**** initialization for Okidata ML 92 *****************************

	SECTION		printer

*---- Included files ----------------------------------------------

	INCLUDE		"exec/types.i"
	INCLUDE		"exec/nodes.i"
	INCLUDE		"exec/lists.i"
	INCLUDE		"exec/memory.i"
	INCLUDE		"exec/ports.i"
	INCLUDE		"exec/libraries.i"

	INCLUDE		"macros.i"

*---- Imported Functions ------------------------------------------

	XREF_EXE	CloseLibrary
	XREF_EXE	OpenLibrary
	XREF		_AbsExecBase

	XREF		_PEDData

*---- Exported Globals --------------------------------------------

	XDEF		_Init
	XDEF		_Expunge
	XDEF		_Open
	XDEF		_Close
	XDEF		_PD
	XDEF		_PED
	XDEF		_SysBase
	XDEF		_GfxBase

*******************************************************************

	SECTION		printer,DATA
_PD		DC.L	0
_PED		DC.L	0
_SysBase	DC.L	0
_GfxBase	DC.L	0

*******************************************************************

	SECTION		printer,CODE
_Init:
		MOVE.L	4(A7),_PD
		LEA	_PEDData(PC),A0
		MOVE.L	A0,_PED
		MOVE.L	A6,-(A7)
		MOVE.L	_AbsExecBase,A6
		MOVE.L	A6,_SysBase

		LEA	GLName(PC),A1
		MOVEQ	#0,D0
		CALLEXE	OpenLibrary
		MOVE.L	D0,_GfxBase
		BEQ	initGLErr

		MOVEQ	#0,D0
pdiRts:
		MOVE.L	(A7)+,A6
		RTS

initGLErr:
		MOVEQ	#-1,D0
		BRA.S	pdiRts

GLName:
		DC.B	'graphics.library'
		DC.B	0
		DS.W	0

*----------------------------------------------------------------
_Expunge:
		MOVE.L	_GfxBase,A1
		LINKEXE	CloseLibrary

*----------------------------------------------------------------
_Open:
_Close:
		MOVEQ	#0,D0
		RTS
		
		END