| d5 = address to print

print:
	
	move.l #0x00000008, %d6
100:
	rol #4, %d5
	move.l %d5, %d7
	and.l #0x0000000F, %d7
	cmp.b #0x0A, %d7
	blt 101f
	add.l #55, %d7
	bra 102f
101:
	add.l #32, %d7
102:
	nop
	move.l 0xC0000804, %d0
	btst #0, %d0
	jeq 102b
	move.l %d7, 0xC0000800
	sub.b #1, %d6
	cmp.b #0, %d6
	bne 100b