;
; clib.s
;
; Finding CLibrary data
;
;  1994 Straylight
;

;----- Standard stuff -------------------------------------------------------

		GET	libs:header
		GET	libs:swis

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

		AREA	|DLL$$Code|,CODE,READONLY

; FILE *_dll_iob(void)

		EXPORT	|_dll_iob|
|_dll_iob|	MOV	ip,lr
		SWI	XDLL_FindCLibData
		ADD	a1,a1,#4
		MOVS	pc,ip

; int *_dll_errno(void)

		EXPORT	|_dll_errno|
|_dll_errno|	MOV	ip,lr
		SWI	XDLL_FindCLibData
		MOVS	pc,ip

; char *_dll_ctype(void)

		EXPORT	|_dll_ctype|
|_dll_ctype|	MOV	ip,lr
		SWI	XDLL_FindCLibData
		ADD	a1,a1,#&290
		MOVS	pc,ip

; double *_dll_huge_val(void)

		EXPORT	|_dll_huge_val|
|_dll_huge_val|	MOV	ip,lr
		SWI	XDLL_FindCLibData
		ADD	a1,a1,#&390
		MOVS	pc,ip

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

		END
