home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 500-599 / ff589.lza / Term / TermSrc.lha / XprGlue.asm < prev    next >
Assembly Source File  |  1991-09-02  |  2KB  |  102 lines
  1. * $Revision Header * Header built automatically - do not edit! *************
  2. *
  3. *    (C) Copyright 1991 by Olaf 'Olsen' Barthel & MXM
  4. *
  5. *    Name .....: XprGlue.asm
  6. *    Created ..: Monday 21-Jan-91 20:12
  7. *    Revision .: 0
  8. *
  9. *    Date            Author          Comment
  10. *    =========       ========        ====================
  11. *    21-Jan-91       Olsen           Created this file!
  12. *
  13. * $Revision Header *********************************************************
  14.  
  15.     csect    text,0,0,1,2
  16.  
  17. *--------------------------------------------------------------------------
  18. *
  19. *    This file contains all library glue routines for the xpr
  20. *    libraries. I didn't want to use inline library calls since
  21. *    I had a few crashes in this area.
  22. *
  23. *--------------------------------------------------------------------------
  24.  
  25.     xdef    _XProtocolCleanup
  26.  
  27. _XProtocolCleanup:
  28.     pea    (a6)
  29.     move.l    _XProtocolBase(a4),a6
  30.     move.l    8(sp),a0
  31.     jsr    -30(a6)
  32.     move.l    (sp)+,a6
  33.     rts
  34.  
  35. *--------------------------------------------------------------------------
  36.  
  37.     xdef    _XProtocolSetup
  38.  
  39. _XProtocolSetup:
  40.     pea    (a6)
  41.     move.l    _XProtocolBase(a4),a6
  42.     move.l    8(sp),a0
  43.     jsr    -36(a6)
  44.     move.l    (sp)+,a6
  45.     rts
  46.  
  47. *--------------------------------------------------------------------------
  48.  
  49.     xdef    _XProtocolSend
  50.  
  51. _XProtocolSend:
  52.     pea    (a6)
  53.     move.l    _XProtocolBase(a4),a6
  54.     move.l    8(sp),a0
  55.     jsr    -42(a6)
  56.     move.l    (sp)+,a6
  57.     rts
  58.  
  59. *--------------------------------------------------------------------------
  60.  
  61.     xdef    _XProtocolReceive
  62.  
  63. _XProtocolReceive:
  64.     pea    (a6)
  65.     move.l    _XProtocolBase(a4),a6
  66.     move.l    8(sp),a0
  67.     jsr    -48(a6)
  68.     move.l    (sp)+,a6
  69.     rts
  70.  
  71. *--------------------------------------------------------------------------
  72.  
  73.     xdef    _XProtocolHostMon
  74.  
  75. _XProtocolHostMon:
  76.     pea    (a6)
  77.     move.l    _XProtocolBase(a4),a6
  78.     movem.l    8(sp),a0/a1
  79.     movem.l    16(sp),d0/d1
  80.     jsr    -54(a6)
  81.     move.l    (sp)+,a6
  82.     rts
  83.  
  84. *--------------------------------------------------------------------------
  85.  
  86.     xdef    _XProtocolUserMon
  87.  
  88. _XProtocolUserMon:
  89.     pea    (a6)
  90.     move.l    _XProtocolBase(a4),a6
  91.     movem.l    8(sp),a0/a1
  92.     movem.l    16(sp),d0/d1
  93.     jsr    -60(a6)
  94.     move.l    (sp)+,a6
  95.     rts
  96.  
  97.     csect    __MERGED
  98.  
  99.     xref    _XProtocolBase
  100.  
  101.     end
  102.