X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=calu.git;a=blobdiff_plain;f=3_test%2Fuartint.s;h=8afa8f23fa081bddfce80f9d4fd8f02e5c474166;hp=8c62b030897dd79b2f9ac3242c3eb6e752a6a21e;hb=96cf9cabc078d3d8fbb6d3918667f72027426c21;hpb=2fc8379195133d616d8452eb23c79268fffc6008

diff --git a/3_test/uartint.s b/3_test/uartint.s
index 8c62b03..8afa8f2 100644
--- a/3_test/uartint.s
+++ b/3_test/uartint.s
@@ -1,7 +1,7 @@
 .text
 start:
 	br+ main ;br+ 
-	call+ uartrdy
+	br+ main
 	ret
 main:
 	ldi r0, 0x2000 ; status...
@@ -12,8 +12,11 @@ main:
 	; stw r5, 0(r4)
 	ldw r5, 0(r0)
 	andx r5, 0x2
-	brzs+ main
-uartrdy:
-	ldw r7, 0(r2)
-	stw r7, 0(r1)
-	br main
+	brzs+ main ; no new data?
+	ldw r7, 0(r2) ; load data
+uartnrdy:
+	ldw r5, 0(r0)
+	andx r5, 0x1
+	brnz+ uartnrdy ; transmitter not ready yet?
+	stw r7, 0(r1) ; send zeh shit!
+	br main ; back to usual stuff