home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff226.lzh / Vlt / xprlib / comm-program / vltface.asm next >
Assembly Source File  |  1989-06-25  |  2KB  |  134 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_sread
  52.     public    _vlt_sread
  53.     public    _avlt_swrite
  54.     public    _vlt_swrite
  55.     public    _avlt_update
  56.     public    _vlt_update
  57.     public    _avlt_chkabort
  58.     public    _vlt_chkabort
  59. ;    public    _avlt_chkmisc
  60. ;    public    _vlt_chkmisc
  61.     public    _avlt_gets
  62.     public    _vlt_gets
  63. ;    public    _avlt_setserial
  64. ;    public    _vlt_setserial
  65.  
  66. _avlt_fopen:
  67.     setup
  68.     push    a1
  69.     push    a0
  70.     jsr    _vlt_fopen
  71.     restore    8
  72.  
  73. _avlt_fclose:
  74.     setup
  75.     push    a0
  76.     jsr    _vlt_fclose
  77.     restore    4
  78.  
  79. _avlt_fread:
  80.     setup
  81.     push    a1
  82.     push    d1
  83.     push    d0
  84.     push    a0
  85.     jsr    _vlt_fread
  86.     restore    16
  87.  
  88. ;_avlt_fwrite:
  89. ;    setup
  90. ;    push    d0
  91. ;    push    a0
  92. ;    jsr    _vlt_fwrite
  93. ;    restore    8
  94.  
  95. _avlt_sread:
  96.     setup
  97.     push    d1
  98.     push    d0
  99.     push    a0
  100.     jsr    _vlt_sread
  101.     restore    12
  102.  
  103. _avlt_swrite:
  104.     setup
  105.     push    d0
  106.     push    a0
  107.     jsr    _vlt_swrite
  108.     restore    8
  109.  
  110. _avlt_update:
  111.     setup
  112.     push    a0
  113.     jsr    _vlt_update
  114.     restore    4
  115.  
  116. _avlt_chkabort:
  117.     setup
  118.     jsr    _vlt_chkabort
  119.     restore
  120.  
  121. ;_avlt_chkmisc:
  122. ;    setup
  123. ;    jsr    _vlt_chkmisc
  124. ;    restore
  125.  
  126. _avlt_gets:
  127.     setup
  128.     push    a1
  129.     push    a0
  130.     jsr    _vlt_gets
  131.     restore    8
  132.  
  133.  
  134.