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 / library / liblink.asm < prev    next >
Assembly Source File  |  1989-09-15  |  2KB  |  62 lines
  1. ;  liblink.asm -- jimm mackraz, oct 28, 1986
  2. ;  application side interface for C-routines calling example library
  3.  
  4.     include 'exec/types.i'
  5.     include 'exec/libraries.i'
  6.  
  7.     LIBINIT
  8.     LIBDEF    _LVOXProtocolCleanup
  9.     LIBDEF    _LVOXProtocolSetup
  10.     LIBDEF    _LVOXProtocolSend
  11.     LIBDEF    _LVOXProtocolReceive
  12.     LIBDEF    _LVOXProtocolHostMon
  13.     LIBDEF    _LVOXProtocolUserMon
  14.  
  15.     ; --- xref from application
  16.     public    _XProtocolBase
  17.  
  18.     ; --- xdef for application
  19.         public    _XProtocolCleanup
  20.         public    _XProtocolSetup
  21.         public    _XProtocolSend
  22.     public    _XProtocolReceive
  23.     public    _XProtocolHostMon
  24.     public    _XProtocolUserMon
  25.  
  26. _XProtocolCleanup:
  27.     move.l    4(sp),a0        ; First argument on stack
  28.     move.l    _XProtocolBase,a6
  29.     jmp    _LVOXProtocolCleanup(a6)
  30.  
  31. _XProtocolSetup:
  32.     move.l    4(sp),a0        ; First argument on stack
  33.     move.l    _XProtocolBase,a6
  34.     jmp    _LVOXProtocolSetup(a6)
  35.  
  36. _XProtocolSend:
  37.     move.l    4(sp),a0        ; First argument on stack
  38.     move.l    _XProtocolBase,a6
  39.     jmp    _LVOXProtocolSend(a6)
  40.  
  41. _XProtocolReceive:
  42.     move.l    4(sp),a0        ; First argument on stack
  43.     move.l    _XProtocolBase,a6
  44.     jmp    _LVOXProtocolReceive(a6)
  45.  
  46. _XProtocolHostMon:
  47.     move.l    4(sp),a0        ; First  argument on stack
  48.     move.l    8(sp),a1        ; Second argument on stack
  49.     move.l    12(sp),d0        ; Third  argument on stack
  50.     move.l    16(sp),d1        ; Fourth argument on stack
  51.     move.l    _XProtocolBase,a6
  52.     jmp    _LVOXProtocolHostMon(a6)
  53.  
  54. _XProtocolUserMon:
  55.     move.l    4(sp),a0        ; First  argument on stack
  56.     move.l    8(sp),a1        ; Second argument on stack
  57.     move.l    12(sp),d0        ; Third  argument on stack
  58.     move.l    16(sp),d1        ; Fourth argument on stack
  59.     move.l    _XProtocolBase,a6
  60.     jmp    _LVOXProtocolUserMon(a6)
  61.  
  62.