home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 545b.lha / RexxHS / sas / sasglue.a < prev    next >
Encoding:
Text File  |  1991-09-07  |  714 b   |  29 lines

  1. ;-----------------------------------------------------------
  2. ; sasglue.a
  3. ;
  4. ;    This is the actual dispatch routine that will be called.
  5. ;    It pushes arguments on the stack and then calls our C
  6. ;    dispatch function, storing the result string in A0.  Link
  7. ;    this with libent.a and the C code for the library.
  8. ;
  9.     section    code
  10.  
  11.     xref     ARLibDispatch
  12.  
  13. LIBDispatch:
  14.     movem.l     d2/d3/d4-d7/a2-a6,-(sp)
  15.  
  16.     subq.l   #4,sp            ; Create temporary variable
  17.     move.l   sp,-(sp)        ; Push return pointer
  18.     move.l   a0,-(sp)        ; Push argument
  19.     jsr      ARLibDispatch        ; D0 = error code
  20.     addq.l   #8,sp            ; Restore stack
  21.     movea.l  (sp)+,a0        ; Result string
  22.  
  23.     movem.l     (sp)+,d2/d3/d4-d7/a2-a6
  24.     rts
  25.  
  26.     xdef     LIBDispatch
  27.  
  28.     end
  29.