home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Resources / System / BoingBag1 / Contributions / Workbench / RexxArpLib3p6 / src / disp.asm < prev    next >
Assembly Source File  |  1991-03-14  |  768b  |  37 lines
  1. ;;; libface.c
  2. ;
  3. ;   DESCRIPTION:
  4. ;   ===========
  5. ;
  6. ;    This is the skeleton for an AmigaREXX support library.
  7. ;    This version is written for Aztec C. It is based on the example
  8. ;    library by Jim Mackraz who got some stuff from Neil Katin, and
  9. ;    rxexample.asm by Bill Hawes.
  10. ;    All changes and additions by me.
  11. ;
  12. ;   AUTHOR/DATE:  W.G.J. Langeveld, November 1987.
  13. ;   ============
  14. ;
  15. ;;;
  16.  
  17.     section    code
  18.  
  19.         xref  _RALDispatch
  20.  
  21. _Dispatch:
  22.     movem.l    d2/d3/d4-d7/a2-a6,-(sp)
  23.  
  24.     subq.l   #4,sp            ; Create temporary variable
  25.     move.l   sp,-(sp)        ; Push return pointer
  26.     move.l   a0,-(sp)        ; Push argument
  27.     jsr      _RALDispatch        ; D0 = error code
  28.     addq.l   #8,sp            ; Restore stack
  29.     movea.l  (sp)+,a0        ; Result string
  30.  
  31.     movem.l    (sp)+,d2/d3/d4-d7/a2-a6
  32.     rts
  33.  
  34.     xdef _Dispatch
  35.  
  36.     end
  37.