move.l	#120,d1
	sub.l	speedselected(pc),d1
	subq.l	#1,d2
l2:	subq.l	#1,d1

	move.b	$bfde00,d0
	and.b	#%11000000,d0
	or.b	#%00001000,d0
	move.b	d0,$bfde00
;	move.b	#%01111111,$bfdd00

	move.b	90,$bfd400	; low byte
	move.b	22,$bfd500	; High byte
busy_wait:
 	btst.b	#0,$bfdd00
 	beq.s	busy_wait

	cmp.l	#0,d1
	bne.b	l2