3a_asm: FIX: parser fail bei labels aufloesen

[calu.git] / progs / deepjit.s

diff --git a/progs/deepjit.s b/progs/deepjit.s
index ef127c2c63941aacf36ea0b4f92ec57bd9838eb4..1436b63c6048139336aca09894acb6415eeb58d8 100644 (file)
--- a/progs/deepjit.s
+++ b/progs/deepjit.s
@@ -89,7 +89,7 @@ prog_imm:
 .ifill push r6
 
 prog_pop:
-.ifill disc r6
+.ifill disc
 
 prog_xch:
 .ifill pop r6
@@ -114,6 +114,11 @@ prog_not:
        .define PBASE, 0x2030
        .define PADDR, 0x4
        .define PDATA, 0x8
+.org 0
+start:
+       call main
+       call main
+       ret
 
 
 main:
@@ -135,10 +140,12 @@ u_test:
        brnz+ u_test ; branch if not zero
        stb r0, UART_TRANS(r10)
 
+
        ;set address of input
        ldis r1, inputdata@lo
        ldih r1, inputdata@hi
 
+
        ;set address of program start
        ldis r2, (prog_start/4)@lo
        ldih r2, (prog_start/4)@hi
@@ -154,6 +161,7 @@ u_test:
        ldis r13, PBASE@lo
        ldih r13, PBASE@hi
 
+
        ;set programmer address
        stw r2, PADDR(r13)
 
@@ -177,10 +185,10 @@ u_test:
        ldi  r10, UART_BASE@lo
        ldih r10, UART_BASE@hi
 
-u_send_by1:
+u_send_byte1:
        ldw r9, UART_STATUS(r10)
        andx r9, UART_TRANS_EMPTY
-       brnz+ u_send_by1 ; branch if not zero
+       brnz+ u_send_byte1 ; branch if not zero
        ldis r0, 0x50
        stb r0, UART_TRANS(r10)