ooo:
	include "hardware/cia.i"
	include "hardware/custom.i"

	xref	_ciaa
	xref	_ciab
	xref	_custom

	lea	$dff000,a3
	lea	$bfe001,a4

	move.w	$7fff,dmacon(a3)
	move.b	ciacra(a4),d0
	and.b	#%11000000,d0
	or.b	#%00001000,d0
	move.b	d0,ciacra(a4)
	move.b	#%01111111,ciaicr(a4)
Time:	equ	2148
	move.b	(time&$ff),ciatalo(a4)
	move.b	(time>>8),ciatahi(a4)
busy_wait:
 	btst.b	#0,ciaicr(a4)
 	beq.s	busy_wait
	bchg	#ciab_led,ciapra(a4)
	bset.b	#0,ciacra(a4)
	bra.s	busy_wait
	end