From: Markus Hofstätter <markus.hofstaetter@gmx.net>
Date: Wed, 12 Jan 2011 18:12:32 +0000 (+0100)
Subject: deepjit: 'geht nicht' sagt martin
X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=calu.git;a=commitdiff_plain;h=60851688b35e13c41b92518d7f5657499666080d

deepjit: 'geht nicht' sagt martin
---

diff --git a/progs/deepjit.s b/progs/deepjit.s
index b73b238..2524ae1 100644
--- a/progs/deepjit.s
+++ b/progs/deepjit.s
@@ -128,6 +128,12 @@ u_recv_byte:
 	xor r0, r0, r0
 	ldw r0, UART_RECV(r10)
 ;recv byte
+	ldi r0, 0x48
+u_test:
+	ldw r9, UART_STATUS(r10)
+	andx r9, UART_TRANS_EMPTY
+	brnz+ u_test ; branch if not zero
+	stb r0, UART_TRANS(r10)
 
 	;set address of input
 	ldil r1, inputdata@lo
@@ -151,10 +157,20 @@ u_recv_byte:
 	;set programmer address
 	stw r2, PADDR(r13)
 
-
 	;call jit compiler
 	call+ jit
 
+	ldi  r10, UART_BASE@lo
+	ldih r10, UART_BASE@hi
+	ldi r0, 0x46
+u_panic:
+	ldw r9, UART_STATUS(r10)
+	andx r9, UART_TRANS_EMPTY
+	brnz+ u_panic ; branch if not zero
+	stb r0, UART_TRANS(r10)
+
+
+
 	;set address to stack
 	;ldil r3, stack@lo
 	;ldih r3, stack@hi
@@ -175,6 +191,7 @@ u_send_byte:
 	andx r9, UART_TRANS_EMPTY
 	brnz+ u_send_byte ; branch if not zero
 	stb r0, UART_TRANS(r10)
+
 ;send result
 
 	br+ main