;
; Listing 4 van de CopperCursus
;
; Een wit vlak op een rood scherm
;

	ORG 	$40000
	LOAD	$40000

x:	MOVE	#$4000,$DFF09A		; Interrupts uitzetten
	MOVE.L	#cop,$DFF080		; COPADR1

waitm:	BTST	#6,$BFE001		; Test op muisknop
	BNE.S	waitm
	LEA	GFXNm,A1
	MOVEQ	#0,D0
	MOVE.L	#4,A6			; ofset EXEC-library
	JSR	-552(A6)		; OpenLibrary
	MOVE.L	38(A0),$DFF080
	MOVE.L	A0,A1
	JSR	-414(A6)		; CloseLibrary
	RTS

GFXNm:	DC.B	'graphics.library',0
	EVEN

cop:	DC.W $180,$F00
	DC.W $8049,%1000000011111110	; WAIT $7F < Y < $100 en X=$49
	DC.W $180,$FFF
	DC.W $80CD,%1000000011111110	; WAIT $7F < Y < $100 en X=$CD
	DC.W $180,$F00
	DC.W $80E1,%1000000011111110	; WAIT $7F < Y < $100 en X=$E1
	DC.W $88,0