	opt	l-
	
	incdir	:include/
	include	exec/exec_lib.i
	include	graphics/graphics_lib.i
	
	lea	grafname,a1
	clr.l	d0
	CALLEXEC	OpenLibrary
	move.l	d0,_GfxBase
	
	CALLEXEC	Forbid
	CALLEXEC	Disable
	
	move.l	#$FC0000,d0
	lea	$8,a0
Copy	move.l	d0,(a0)+
	cmpa.l	#$BC,a0
	bne.s	Copy
	move.l	#$400,a1
	move.l	#$7FC00,d0
	clr.l	d1
	CALLGRAF	BltClear
	
	TRAP	#0		; Reset
	CALLEXEC	Enable
	CALLEXEC	Permit		; else Guru=Reset
	
grafname	dc.b	'graphics.library',0	; Guru Sicura...
_GfxBase	ds.l	1	
