home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / rexxhost.lha / RexxHostLib / Glue.LZH / GetToken.asm < prev    next >
Encoding:
Assembly Source File  |  1990-09-18  |  202 b   |  16 lines
  1.     xref    _RexxHostBase
  2.     xdef    _GetToken
  3.  
  4.     section    text,code
  5.  
  6. _GetToken:
  7.     movem.l    a6/a2,-(sp)
  8.     move.l    _RexxHostBase,a6
  9.     movem.l    12(sp),a0/a1/a2
  10.     move.l    24(sp),d0
  11.     jsr    -84(a6)
  12.     movem.l    (sp)+,a6/a2
  13.     rts
  14.  
  15.     end
  16.