;
; $VER: UtilityLib.a 1.0 (29.10.94) · Copyright © 1994 Klaus A Seistrup, Magnetic Ink
;

	XDEF	_UtilityBase
	XREF	__AutoFail0

CloseLibrary	EQU -$019E ; (libBase)(A1)
OpenLibrary	EQU -$0228 ; (libName,libVer)(A1,D0)

LIBVER		EQU     37

	SECTION	autoinit0,code

	MOVEQ	#LIBVER,D0
	LEA	libName(PC),A1
	JSR	OpenLibrary(A6)
	MOVE.L	D0,_UtilityBase(A4)
	BEQ	__AutoFail0
	BRA	I10
libName	DC.B	'utility.library',0
	DS.W	0
I10

	SECTION	autoexit0,code

	MOVE.L	_UtilityBase(A4),D0
	BEQ	L10
	MOVEA.L	D0,A1
	JSR	CloseLibrary(A6)
L10

	SECTION	libbss,bss

_UtilityBase
	DS.L	1

	END