home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 272.lha / XProtocol / comm-program / vltface.asm < prev    next >
Encoding:
Assembly Source File  |  1989-07-24  |  2.3 KB  |  195 lines
  1. ;;; vltface.asm
  2. ;
  3. ;   DESCRIPTION:
  4. ;   ===========
  5. ;
  6. ;    This is an interface to VLT callback functions to be handed to
  7. ;    external protocol libraries.
  8. ;
  9. ;   AUTHOR/DATE:  W.G.J. Langeveld, March 1989.
  10. ;   ============
  11. ;
  12. ;;;
  13.  
  14.     public    _geta4
  15.  
  16. setup    macro
  17.     movem.l    d2/d3/d4-d7/a2-a6,-(sp)
  18.     jsr    _geta4            ; Get a4.
  19.     endm
  20.  
  21. push    macro
  22.     move.l    \1,-(sp)
  23.     endm
  24.  
  25. fix    macro
  26.     ifc    '\1',''
  27.         mexit
  28.     endc
  29.     ifle    \1-8
  30.         addq.l    #\1,sp
  31.     endc
  32.     ifgt    \1-8
  33.         lea    \1(sp),sp
  34.     endc
  35.     endm
  36.  
  37. restore    macro
  38.     fix    \1
  39.     movem.l    (sp)+,d2/d3/d4-d7/a2-a6    
  40.     rts
  41.     endm
  42.  
  43.     public    _avlt_fopen
  44.     public    _vlt_fopen
  45.     public    _avlt_fclose
  46.     public    _vlt_fclose
  47.     public    _avlt_fread
  48.     public    _vlt_fread
  49.     public    _avlt_fwrite
  50.     public    _vlt_fwrite
  51.     public    _avlt_fseek
  52.     public    _vlt_fseek
  53.     public    _avlt_sread
  54.     public    _vlt_sread
  55.     public    _avlt_swrite
  56.     public    _vlt_swrite
  57.     public    _avlt_update
  58.     public    _vlt_update
  59.     public    _avlt_chkabort
  60.     public    _vlt_chkabort
  61.     public    _avlt_chkmisc
  62.     public    _vlt_chkmisc
  63.     public    _avlt_gets
  64.     public    _vlt_gets
  65.     public    _avlt_setserial
  66.     public    _vlt_setserial
  67.     public    _avlt_ffirst
  68.     public    _vlt_ffirst
  69.     public    _avlt_fnext
  70.     public    _vlt_fnext
  71.     public    _avlt_finfo
  72.     public    _vlt_finfo
  73.     public    _avlt_sflush
  74.     public    _vlt_sflush
  75.     public  _avlt_options
  76.     public    _vlt_options
  77.  
  78. _avlt_fopen:
  79.     setup
  80.     push    a1
  81.     push    a0
  82.     jsr    _vlt_fopen
  83.     restore    8
  84.  
  85. _avlt_fclose:
  86.     setup
  87.     push    a0
  88.     jsr    _vlt_fclose
  89.     restore    4
  90.  
  91. _avlt_fread:
  92.     setup
  93.     push    a1
  94.     push    d1
  95.     push    d0
  96.     push    a0
  97.     jsr    _vlt_fread
  98.     restore    16
  99.  
  100. _avlt_fwrite:
  101.     setup
  102.     push    a1
  103.     push    d1
  104.     push    d0
  105.     push    a0
  106.     jsr    _vlt_fwrite
  107.     restore    16
  108.  
  109. _avlt_fseek:
  110.     setup
  111.     push    d1
  112.     push    d0
  113.     push    a0
  114.     jsr    _vlt_fseek
  115.     restore    12
  116.  
  117. _avlt_sread:
  118.     setup
  119.     push    d1
  120.     push    d0
  121.     push    a0
  122.     jsr    _vlt_sread
  123.     restore    12
  124.  
  125. _avlt_swrite:
  126.     setup
  127.     push    d0
  128.     push    a0
  129.     jsr    _vlt_swrite
  130.     restore    8
  131.  
  132. _avlt_update:
  133.     setup
  134.     push    a0
  135.     jsr    _vlt_update
  136.     restore    4
  137.  
  138. _avlt_chkabort:
  139.     setup
  140.     jsr    _vlt_chkabort
  141.     restore
  142.  
  143. _avlt_chkmisc:
  144.     setup
  145.     jsr    _vlt_chkmisc
  146.     restore
  147.  
  148. _avlt_gets:
  149.     setup
  150.     push    a1
  151.     push    a0
  152.     jsr    _vlt_gets
  153.     restore    8
  154.  
  155. _avlt_ffirst
  156.     setup
  157.     push    a1
  158.     push    a0
  159.     jsr    _vlt_ffirst
  160.     restore    8
  161.  
  162. _avlt_fnext
  163.     setup
  164.     push    a1
  165.     push    a0
  166.     push    d0
  167.     jsr    _vlt_fnext
  168.     restore    12
  169.  
  170. _avlt_sflush
  171.     setup
  172.     jsr    _vlt_sflush
  173.     restore
  174.  
  175. _avlt_setserial
  176.     setup
  177.     push    d0
  178.     jsr    _vlt_setserial
  179.     restore    4
  180.  
  181. _avlt_finfo
  182.     setup
  183.     push    d0
  184.     push    a0
  185.     jsr    _vlt_finfo
  186.     restore    8
  187.  
  188. _avlt_options
  189.     setup
  190.     push    a0
  191.     push    d0
  192.     jsr    _vlt_options
  193.     restore 8
  194.  
  195.