home *** CD-ROM | disk | FTP | other *** search
- ;-----------------------------------------------------------
- ; sasglue.a
- ;
- ; This is the actual dispatch routine that will be called.
- ; It pushes arguments on the stack and then calls our C
- ; dispatch function, storing the result string in A0. Link
- ; this with libent.a and the C code for the library.
- ;
- section code
-
- xref ARLibDispatch
-
- LIBDispatch:
- movem.l d2/d3/d4-d7/a2-a6,-(sp)
-
- subq.l #4,sp ; Create temporary variable
- move.l sp,-(sp) ; Push return pointer
- move.l a0,-(sp) ; Push argument
- jsr ARLibDispatch ; D0 = error code
- addq.l #8,sp ; Restore stack
- movea.l (sp)+,a0 ; Result string
-
- movem.l (sp)+,d2/d3/d4-d7/a2-a6
- rts
-
- xdef LIBDispatch
-
- end
-