home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / MAXONB32.DMS / in.adf / Includes.lha / BH / BLib / RexxGlue.s < prev    next >
Encoding:
Text File  |  1994-05-09  |  679 b   |  39 lines
  1. **
  2. ** $Id: RexxGlue.s,v 1.1 1994/05/09 11:51:12 alex Rel $
  3. **
  4. ** BASIC Rexx glue
  5. **
  6. ** NB: GenAm and SLink are supplied as part of Devpac and SAS/C respectively
  7. **
  8. ** GenAm RexxGlue.s ALINK SYMTAB
  9. ** SLink FROM RexxGlue.o LIB LIB:amiga.lib TO RexxGlue.ld SMALLCODE NODEBUG
  10. ** OToTagList RexxGlue.ld RexxGlue.bas
  11. **
  12. ** (c) Copyright 1994 HiSoft
  13. **
  14.     SECTION    CODE,CODE
  15.     XREF    CheckRexxMsg
  16.     XREF    GetRexxVar
  17.     XREF    SetRexxVar
  18.  
  19. __CheckRexxMsg:
  20.     movem.l    4(a7),a0/a5
  21.     bsr    CheckRexxMsg
  22.     move.l    d0,(a5)
  23.     rts
  24.  
  25. __GetRexxVar:
  26.     movem.l    4(a7),a0-a1/a4-a5
  27.     bsr    GetRexxVar
  28.     move.l    a1,(a4)
  29.     move.l    d0,(a5)
  30.     rts
  31.  
  32. __SetRexxVar:
  33.     movem.l    4(a7),d0-d1/a0-a1/a5
  34.     bsr    SetRexxVar
  35.     move.l    d0,(a5)
  36.     rts
  37.  
  38.     END
  39.