;;; libface.c
;
;   DESCRIPTION:
;   ===========
;
;	This is the skeleton for an AmigaREXX support library.
;	This version is written for Aztec C. It is based on the example
;	library by Jim Mackraz who got some stuff from Neil Katin, and
;	rxexample.asm by Bill Hawes.
;	All changes and additions by me.
;
;   AUTHOR/DATE:  W.G.J. Langeveld, November 1987.
;   ============
;
;;;

	section	code

        xref  _RALDispatch

_Dispatch:
	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      _RALDispatch		; 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 _Dispatch

	end