sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

4 is already an offset

This commit is contained in:
Simon Forman 2019-11-13 15:07:27 -08:00
parent 93caa2ed66
commit 4a1770b1cc
3 changed files with 23 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
thun/asm-dump.txt
View File

@ -5,7 +5,7 @@ label(A),
mov_imm(0, 0), mov_imm(0, 0),
store_word(0, 0, 0), store_word(0, 0, 0),
mov_imm(0, 4096), mov_imm(0, 4096),
mov_imm(1, B2), mov_imm(1, Z1),
mov_imm(2, 0), mov_imm(2, 0),
mov_imm(3, 0), mov_imm(3, 0),
store_word(2, 0, 0), store_word(2, 0, 0),
@ -233,57 +233,47 @@ eq_offset(Q1),
sub(9, 9, 0), sub(9, 9, 0),
and_imm(9, 9, 32767), and_imm(9, 9, 32767),
label(Q1), label(Q1),
sub_imm(6, 6, 0),
eq_offset(R1),
sub(6, 6, 0),
and_imm(6, 6, 32767),
label(R1),
lsl_imm(9, 9, 15), lsl_imm(9, 9, 15),
ior(9, 9, 6), ior(9, 9, 6),
store_word(9, 0, 0), store_word(9, 0, 0),
do_offset(H), do_offset(H),
label(R1),
symbol(R1),
mov_imm(2, S1),
do_offset(U1),
label(S1), label(S1),
symbol(S1),
mov_imm(2, T1),
do_offset(V1),
label(T1),
expr_cell(I1, 4), expr_cell(I1, 4),
expr_cell(J, 0), expr_cell(J, 0),
label(U1), label(T1),
symbol(U1), symbol(T1),
mov_imm(2, W1), mov_imm(2, V1),
do_offset(V1), do_offset(U1),
label(W1), label(V1),
expr_cell(R, 4), expr_cell(R, 4),
expr_cell(S, 0), expr_cell(S, 0),
label(W1),
symbol(W1),
mov_imm(2, X1),
do_offset(U1),
label(X1), label(X1),
symbol(X1),
mov_imm(2, Y1),
do_offset(V1),
label(Y1),
expr_cell(J1, 4), expr_cell(J1, 4),
expr_cell(J, 0), expr_cell(J, 0),
label(V1), label(U1),
mov_imm(7, 4), mov_imm(7, 4),
sub_imm(0, 0, 4), sub_imm(0, 0, 4),
sub_imm(2, 2, 0), sub_imm(2, 2, 0),
eq_offset(Z1), eq_offset(Y1),
sub(2, 2, 0), sub(2, 2, 0),
and_imm(2, 2, 32767), and_imm(2, 2, 32767),
label(Z1), label(Y1),
sub_imm(7, 7, 0),
eq_offset(A2),
sub(7, 7, 0),
and_imm(7, 7, 32767),
label(A2),
lsl_imm(2, 2, 15), lsl_imm(2, 2, 15),
ior(2, 2, 7), ior(2, 2, 7),
store_word(2, 0, 0), store_word(2, 0, 0),
mov_imm(7, S), mov_imm(7, S),
add_imm(7, 7, 4), add_imm(7, 7, 4),
do(7), do(7),
label(B2), label(Z1),
expr_cell(I1, 4), expr_cell(I1, 4),
expr_cell(R, 4), expr_cell(R, 4),
expr_cell(X1, 4), expr_cell(W1, 4),
expr_cell(S, 0)]. expr_cell(S, 0)].

6
thun/compiler.markII.pl
View File

@ -165,7 +165,8 @@ Mark II
sub_base_merge_and_store(TEMP0, TEMP4, SP), % Push first item onto stack. sub_base_merge_and_store(TEMP0, TEMP4, SP), % Push first item onto stack.
asm(mov_imm(TEMP0, 4)), % Used for linking to previous cell. asm(mov_imm(TEMP0, 4)), % Used for linking to previous cell.
incr(SP), incr(SP),
sub_base_merge_and_store(TEMP3, TEMP0, SP), % Push first item onto stack. sub_base_from_offset(TEMP3, SP),
merge_and_store(TEMP3, TEMP0, SP), % Push second item onto stack.
jump(Main), jump(Main),
definition(Unit, [New, Cons], DoDef, TOS), definition(Unit, [New, Cons], DoDef, TOS),
@ -175,7 +176,8 @@ Mark II
label(DoDef), % TOS points to body expr, set by definition. label(DoDef), % TOS points to body expr, set by definition.
asm(mov_imm(TEMP1, 4)), % Used for linking to previous cell. asm(mov_imm(TEMP1, 4)), % Used for linking to previous cell.
incr(SP), incr(SP),
sub_base_merge_and_store(TOS, TEMP1, SP), % Push body expr onto stack. sub_base_from_offset(TOS, SP),
merge_and_store(TOS, TEMP1, SP), % Push body expr onto stack.
asm(mov_imm(TEMP1, I)), % Get address of I's machine code. asm(mov_imm(TEMP1, I)), % Get address of I's machine code.
asm(add_imm(TEMP1, TEMP1, 4)), asm(add_imm(TEMP1, TEMP1, 4)),
asm(do(TEMP1)), asm(do(TEMP1)),

BIN
thun/joy_asmii.bin
View File

Binary file not shown.