shit not working

[calu.git] / progs / testbench.s

diff --git a/progs/testbench.s b/progs/testbench.s
index 624e3c9312a734d0474f088e4b3e6a1d5f9c07da..cc86e478d132b5626190157237f90c34824fedda 100644 (file)
--- a/progs/testbench.s
+++ b/progs/testbench.s
@@ -1,14 +1,9 @@
 #include "dt_inc.s"
-
-.data
-.org 0x0
-list:
-       .fill 0x1 ;1. element = 1 ;0x10
-       .fill 0x1 ;2. element = 1 ;0x14
-       .fill 0x10, 0x0 ;nullen..
-str:
-       .ascii "hier das ergebnis: "
 .text
+       .define LCDBASE, 0x2060
+       .define LCDSTATUS, 0x0
+       .define LCDADDR, 0x4
+
 .org 0x0
 start:
        br+ main
@@ -21,22 +16,23 @@ main:
 
        ldis r1, 0x42
        call u_send_byte
-       
-       ldis r0, bla/4
-       ; addi r1, r0, 0
-       ; call u_send_byte
-       brr r0
 
-       ldis r1, 0x43
-       call u_send_byte
+       call t_init
+       call t_start
 
-hang:
-       br hang
-
-
-.org 0x50
-bla:
-       call u_init
-       ldis r1, 0x41
+loop:
+       call u_recv_byte
+       ldi r0, LCDBASE@lo
+       ldih r0, LCDBASE@hi
+       ldw r1, LCDSTATUS(r0)
        call u_send_byte
-       br hang
+       ldi r0, LCDBASE@lo
+       ldih r0, LCDBASE@hi
+       ldis r1, 0x141
+       stw r1, LCDADDR(r0)
+       br loop
+
+reset_timer:
+       ldis r1, 0
+       call t_valset
+       br loop