3a_asm: FIX: parser fail bei labels aufloesen

[calu.git] / progs / deepjit.s

diff --git a/progs/deepjit.s b/progs/deepjit.s
index 400b6eb98f2e829348f25d72ac94e6de0ae1200b..1436b63c6048139336aca09894acb6415eeb58d8 100644 (file)
--- a/progs/deepjit.s
+++ b/progs/deepjit.s
@@ -73,8 +73,7 @@ prog_lessthan:
 .ifill pushge r15
 
 prog_dup:
-.ifill pop r6
-.ifill push r6
+.ifill fetch r6
 .ifill push r6
 
 prog_jmp:
@@ -90,7 +89,7 @@ prog_imm:
 .ifill push r6
 
 prog_pop:
-.ifill pop r6
+.ifill disc
 
 prog_xch:
 .ifill pop r6
@@ -186,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)
 
@@ -436,11 +435,9 @@ vm_dup:
        PROGINSTR
        ldw r0, 4(r4)
        PROGINSTR
-       ldw r0, 8(r4)
-       PROGINSTR
 
        ;increment address
-       addi r2, r2, 3
+       addi r2, r2, 2
 
        br+ vm_loop