;
; dsetjmp.s
;
; Support for exceptional comtrol flow
;
; © 1994 Straylight
;

;----- Standard stuff -----------------------------------------------------*/

		GET	libs:header
		GET	libs:swis

;----- Main code ------------------------------------------------------------

		AREA	|DLL$$Code|,CODE,READONLY

; int _dll_setjmp(void)

		EXPORT	|_dll_setjmp|
|_dll_setjmp|	ROUT

		MOV	ip,lr
		SWI	XDLL_ReadStackPtr
		MOVS	pc,ip

		LTORG

; void _dll_longjmped(int sp)

		EXPORT	|_dll_longjmped|
|_dll_longjmped| ROUT

		MOV	ip,lr
		MOV	a2,sl
		SWI	XDLL_SetStackPtr
		MOVS	pc,ip

		LTORG

;----- That's all, folks --------------------------------------------------*/

		END