;
; Listing 5 van de CopperCursus
;
; Streepjes op een klein stuk
;

	ORG	$40000
	LOAD	$40000

x:	MOVE	#$4000,$DFF09A		; Interrupts uitzetten
	MOVE.L	#cop,$DFF080		; COPADR1
	MOVE.L	#label1,$DFF084		; Adres voor COPJMP2

waitm:	BTST	#6,$BFE001
	BNE.S	waitm
	LEA	GFXNm,A1
	MOVEQ	#0,D0
	MOVE.L	#4,A6
	JSR	-552(A6)
	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 $600F,-2			; WAIT $60,$0F
label1:	DC.W $180,$F00
	DC.W $180,$FFF
	DC.W $180,$FFF
	DC.W $800F,-1			; SKIP vanaf X>$80 en Y>$0F
	DC.W $8A,0			; JMP label1 (COPJMP2)
	DC.W $180,$000			; Eerste kommando na SKIP
	DC.W $FFFF,-2