home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 545b.lha / RexxHS / aztec / aztecglue.asm < prev    next >
Encoding:
Assembly Source File  |  1991-09-07  |  675 b   |  27 lines
  1. ;-----------------------------------------------------------
  2. ; aztecglue.asm
  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.
  7. ;
  8.     public _Dispatch
  9.     public _ARLibDispatch
  10.     public _geta4
  11.  
  12. _Dispatch:
  13.     movem.l     d2/d3/d4-d7/a2-a6,-(sp)
  14.     jsr      _geta4
  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.     end
  27.