home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff247.lzh / XprLib / comm-program / vltface.asm next >
Assembly Source File  |  1989-09-15  |  3KB  |  218 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.     public  _avlt_unlink
  78.     public    _vlt_unlink
  79.     public  _avlt_squery
  80.     public    _vlt_squery
  81.     public  _avlt_getptr
  82.     public    _vlt_getptr
  83.  
  84. _avlt_fopen:
  85.     setup
  86.     push    a1
  87.     push    a0
  88.     jsr    _vlt_fopen
  89.     restore    8
  90.  
  91. _avlt_fclose:
  92.     setup
  93.     push    a0
  94.     jsr    _vlt_fclose
  95.     restore    4
  96.  
  97. _avlt_fread:
  98.     setup
  99.     push    a1
  100.     push    d1
  101.     push    d0
  102.     push    a0
  103.     jsr    _vlt_fread
  104.     restore    16
  105.  
  106. _avlt_fwrite:
  107.     setup
  108.     push    a1
  109.     push    d1
  110.     push    d0
  111.     push    a0
  112.     jsr    _vlt_fwrite
  113.     restore    16
  114.  
  115. _avlt_fseek:
  116.     setup
  117.     push    d1
  118.     push    d0
  119.     push    a0
  120.     jsr    _vlt_fseek
  121.     restore    12
  122.  
  123. _avlt_sread:
  124.     setup
  125.     push    d1
  126.     push    d0
  127.     push    a0
  128.     jsr    _vlt_sread
  129.     restore    12
  130.  
  131. _avlt_swrite:
  132.     setup
  133.     push    d0
  134.     push    a0
  135.     jsr    _vlt_swrite
  136.     restore    8
  137.  
  138. _avlt_update:
  139.     setup
  140.     push    a0
  141.     jsr    _vlt_update
  142.     restore    4
  143.  
  144. _avlt_chkabort:
  145.     setup
  146.     jsr    _vlt_chkabort
  147.     restore
  148.  
  149. _avlt_chkmisc:
  150.     setup
  151.     jsr    _vlt_chkmisc
  152.     restore
  153.  
  154. _avlt_gets:
  155.     setup
  156.     push    a1
  157.     push    a0
  158.     jsr    _vlt_gets
  159.     restore    8
  160.  
  161. _avlt_ffirst
  162.     setup
  163.     push    a1
  164.     push    a0
  165.     jsr    _vlt_ffirst
  166.     restore    8
  167.  
  168. _avlt_fnext
  169.     setup
  170.     push    a1
  171.     push    a0
  172.     push    d0
  173.     jsr    _vlt_fnext
  174.     restore    12
  175.  
  176. _avlt_sflush
  177.     setup
  178.     jsr    _vlt_sflush
  179.     restore
  180.  
  181. _avlt_setserial
  182.     setup
  183.     push    d0
  184.     jsr    _vlt_setserial
  185.     restore    4
  186.  
  187. _avlt_finfo
  188.     setup
  189.     push    d0
  190.     push    a0
  191.     jsr    _vlt_finfo
  192.     restore    8
  193.  
  194. _avlt_options
  195.     setup
  196.     push    a0
  197.     push    d0
  198.     jsr    _vlt_options
  199.     restore 8
  200.  
  201. _avlt_unlink
  202.     setup
  203.     push    a0
  204.     jsr    _vlt_unlink
  205.     restore 4
  206.  
  207. _avlt_squery
  208.     setup
  209.     jsr    _vlt_squery
  210.     restore
  211.  
  212. _avlt_getptr
  213.     setup
  214.     push    d0
  215.     jsr    _vlt_getptr
  216.     restore 4
  217.  
  218.