bootromfun: led2 geht aus wenn ich was uebern uart schicke \o/

[calu.git] / 3_test / uartint.s

diff --git a/3_test/uartint.s b/3_test/uartint.s
new file mode 100644 (file)
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: