xdef Start, Stop, End
	xdef wait

Start:

	move.l #-1, $140C       ; Clobber status
	move.l #1,  $1404       ; Set length
	move.l #X,  $1408       ; Set buffer address
	move.l #0,  $1400;      ; READ

wait:
	move.l $140C, d0
	cmp.l #-1,    d0        ; Test if status has changed to ready
	beq         wait        ; Repeat testing until status changes

Stop:
	nop
	nop
	nop

X:   ds.b 100
End:
	end