X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=3_test%2Fuartint.s;fp=3_test%2Fuartint.s;h=bf8e43d46128840ef52b61b556a613c32cff487e;hb=1a2e51983b5e25fec44b1ef9b1f61f22dce19afa;hp=0000000000000000000000000000000000000000;hpb=8558b10449023bd73fafd703e7c3cddff012cb8e;p=calu.git

diff --git a/3_test/uartint.s b/3_test/uartint.s
new file mode 100644
index 0000000..bf8e43d
--- /dev/null
+++ b/3_test/uartint.s
@@ -0,0 +1,65 @@
+.text
+start:
+	br+ main ;br+ 
+	call+ uartrdy ;call+ 0x80(128, 128)
+	ret
+main:
+	ldi r1, 0x200b ;ldi r1, 8203
+	ldi r2, 0x200c ;ldi r2, 8204
+	ldi r3, 0x2010 ;ldi r3, 8208
+	ldi r4, 0x2024 ;ldi r4, 8228
+	ldi r5, 3
+	stw r5, 0(r4)
+	br+ start
+	; stwnv r5, 0(r4)
+uartrdy:
+	; load instructions into ram
+	ldi r8, 0x2037 ; paddr
+	ldi r9, 0x203b ; pdata
+
+    ; x"e7390000"; -- ldw r7, 0(r2)
+	xor r10, r10, r10
+	stw r10, 0(r8)
+	xor r10, r10, r10
+	ldi r10, 0xe739
+	lls r10, r10, 16
+	stw r10, 0(r9)
+
+	;x"e7b98000"; -- stw r7, 0(r3)
+	xor r10, r10, r10
+	ldi r10, 1
+	stw r10, 0(r8)
+	xor r10, r10, r10
+	ldi r10, 0xe7b9
+	lls r10, r10, 8
+	addi r10, r10, 0x80
+	lls r10, r10, 8
+	stw r10, 0(r9)
+
+	;x"e7b88000"; -- stw r7, 0(r1)
+	xor r10, r10, r10
+	ldi r10, 2
+	stw r10, 0(r8)
+	xor r10, r10, r10
+	ldi r10, 0xe7b8
+	lls r10, r10, 8
+	addi r10, r10, 0x80
+	lls r10, r10, 8
+	stw r10, 0(r9)
+
+	;x"eb000008"; -- ret-
+	xor r10, r10, r10
+	ldi r10, 3
+	stw r10, 0(r8)
+	xor r10, r10, r10
+	ldi r10, 0xeb00
+	lls r10, r10, 16
+	addi r10, r10, 0x8
+	stw r10, 0(r9)
+	br hmm
+
+.org 0x1fc
+hmm:
+	ldinv r0, 0
+; real ram...
+woot: