INSTR1	MACRO
	LSl.W	#2,D0
	ENDM

INSTR2	MACRO 
	add.w	d2,d2
	add.w	d2,d2
	ENDM



START	MOVEQ.L	#64,D0
	MOVE.B	$BFEC01,D1
	NOT	D1
	ROR.B	#1,D1
	ADD.W	#256,D1
	EXT.W	D1
	SUB.W	D0,D1
	BEQ	STOPPEN
	BTST	#6,$BFE001
	BNE.S	NIET_LINKSE_MUIS	-> ALS NIET INGEDRUKT INSTR1
WACHT1	CMP.B	#200,$DFF006
	BNE.S	WACHT1
	MOVE.W	#$F00,$DFF180
	MOVE.W	#1800,D6
LOOP1	INSTR2
	DBRA	D6,LOOP1
	MOVE.W	#$FFF,$DFF180
	BRA.S	START
NIET_LINKSE_MUIS 
WACHT2	CMP.B	#200,$DFF006
	BNE.S	WACHT2
	MOVE.W	#$F00,$DFF180
	MOVE.W	#1800,D6
LOOP2	INSTR1
	DBRA	D6,LOOP2
	MOVE.W	#$FFF,$DFF180
	BRA.S	START
STOPPEN	RTS