diff --git a/thun/asm-dump.txt b/thun/asm-dump.txt index 150cfaa..93593fb 100644 --- a/thun/asm-dump.txt +++ b/thun/asm-dump.txt @@ -184,6 +184,7 @@ label(H1), lsl_imm(6, 6, 15), ior(6, 6, 7), store_word(6, 0, 0), +do_offset(H), label(I1), expr_cell(R, 4), expr_cell(S, 0)]. \ No newline at end of file diff --git a/thun/compiler.markII.pl b/thun/compiler.markII.pl index be9be7d..e454588 100644 --- a/thun/compiler.markII.pl +++ b/thun/compiler.markII.pl @@ -158,6 +158,7 @@ Mark II sub_base_from_offset(TEMP0, SP), sub_base_from_offset(TEMP1, SP), merge_and_store(TEMP0, TEMP1, SP), + jump(Main), % We already wrote the stack cell so 'Main' not 'Done'. % ====================================== diff --git a/thun/joy_asmii.bin b/thun/joy_asmii.bin index a9b23b8..99cb57e 100644 Binary files a/thun/joy_asmii.bin and b/thun/joy_asmii.bin differ