.data
str:
	; "zlol"
	.fill 0x5a4c4f4c
	.fill 0x00000a0d

int2hex:
	;3210
	.fill 0x33323130 
	;7654
	.fill 0x37363534
	;ba98
	.fill 0x62613938
	;fedc
	.fill 0x66656463
.text
	.define UART_BASE, 0x2000
	.define UART_STATUS, 0x0
	.define UART_RECV, 0xc
	.define UART_TRANS, 0x8

	.define UART_TRANS_EMPTY, 0x1
	.define UART_RECV_NEW, 0x2
start:
	br+ main ;br+ 
	br+ main
	ret
main:
	xor r10, r10, r10
	xor r7, r7, r7
	ldi r10, UART_BASE@lo
	ldih r10, UART_BASE@hi
	ldw r5, UART_STATUS(r10)
	andx r5, UART_RECV_NEW
	brzs+ main ; no new data?
	ldw r7, UART_RECV(r10) ; load data

	xor r1, r1, r1
	xor r2, r2, r2
	xor r3, r3, r3
	ldi r1, str
	ldi r2, 6
	call send_string
	xor r1, r1, r1
	xor r2, r2, r2
	ldi r1, 0x12bd
	ldih r1, 0x1337
	call debug_uint
	ldi r1, 0x1337
	ldih r1, 0x12bd
	call debug_uint

main2:
	ldw r5, UART_STATUS(r10)
	andx r5, UART_RECV_NEW
	brzs+ main2 ; no new data?
	ldb r7, UART_RECV(r10) ; load data
uartnrdy:
	ldw r5, 0(r0)
	andx r5, UART_TRANS_EMPTY
	brnz+ uartnrdy ; transmitter not ready yet?
	stw r7, UART_TRANS(r10) ; send zeh shit!
	br main2 ; back to usual stuff

send_string:
	; r1 = addr
	; r2 = len
	addi r3, r1, 0
send_string_int:
	cmpi r2, 0
	reteq-
	ldb r1, 0(r3)
	call send_byte
	addis r2, r2, 0-1
	addi r3, r3, 1
	br send_string_int

send_byte:
	ldw r9, UART_STATUS(r10)
	andx r9, UART_TRANS_EMPTY
	brnz+ send_byte ; branch if not zero
	stb r1, UART_TRANS(r10)
	ret

debug_uint:
	addi r8, r1, 0
	;usb_sendbuffersafe ("0x", 2);
	xor r1, r1, r1
	ldi r1, 0x30
	call send_byte
	xor r1, r1, r1
	ldi r1, 0x78
	call send_byte
	;j = 0
	xor r7, r7, r7
	xor r6, r6, r6
	ldi r6, int2hex@lo
	ldih r6, int2hex@hi
debug_unit_loop:
	;for (j = 0; j < 8; ++j) {
	cmpi r7, 8
	reteq
	;usb_sendbuffersafe (&int2hex[(i >> 28) & 0xf], 1);
	lrs r1, r8, 28
	andx r1, 0xf
	add r9, r6, r1
	ldb r1, 0(r9)
	call send_byte
	;i <<= 4;
	lls r8, r8, 4
	addi r7, r7, 1
	br debug_unit_loop