.globl _main
.arm
_main:
wat_replacement:
	cmp r0, #4
	bne lr
	mov r3, r1
	# r3 is the string...
loop:
	ldrsb r0, [r3]
	# todo: ldrsb r0, [r3], #1 SHOULD do both of these
	add r3, r3, #1
	cmp r0, #0
	beq done
	b exisendbyte
done:
	movs pc, lr
exisendbyte:
	# r0 should be the byte.
	# r0..r2 get clobbered
	mov r2, #0xB0000000
	orr r2, r2, r0, LSL #20
	# r2 is now 0xB0000000 + (sendbyte<<20)
	mov r1, #0x0d000000
	add r1, r1, #0x6800
	# r1 is 0x0d006800
	mov r0, #0xd0
	str r0, [r1, #0x14]
	str r2, [r1, #0x24]
	mov r0, #0x19
	str r0, [r1, #0x20]
exicheckreceivewait:
	ldr r0, [r1, #0x20]
	ands r0, r0, #1
	bne exicheckreceivewait

	ldr r2, [r1, #0x24]
	str r0, [r1, #0x14]
	lsl r2, r2, #26 ;#did it work?
	and r0, r2, #1
	b loop