;
; Listing 3.1 van de CopperCursus
;
; Streepjes op de onderste helft van het scherm
; Versie 2
;

	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,$000			; Achtergrond op zwart
	DC.W  $600F,-2			; Wachten op regel $60
label1:	DC.W  $180,$F00			; Achtergrond op rood
	DC.W  $180,$FFF			; Achtergrond op wit
	DC.W  $180,$FFF
	DC.W  $84,label1/$10000		; High van label1 naar COPADR2
	DC.W  $86,label1&$FFFF		; Low van label1 naar COPADR2
	DC.W  $8A,0			; COPJMP2