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

dup cons i

This commit is contained in:
Simon Forman 2019-11-12 09:23:31 -08:00
parent e72fa2585f
commit 89c58d4f5a
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
thun/asm-dump.txt
View File

@ -187,4 +187,5 @@ store_word(6, 0, 0),
do_offset(H), do_offset(H),
label(I1), label(I1),
expr_cell(R, 4), expr_cell(R, 4),
expr_cell(J, 4),
expr_cell(S, 0)]. expr_cell(S, 0)].

7
thun/compiler.markII.pl
View File

@ -162,9 +162,9 @@ Mark II
% ====================================== % ======================================
label(Expression) label(Expression),
]), dexpr([Dup, Cons, I])
dexpr([Dup, I]). ]).
/* /*
@ -200,6 +200,7 @@ language.
⟐(load(From, To)) --> [load_word(From, To, 0)]. ⟐(load(From, To)) --> [load_word(From, To, 0)].
⟐(label(L)) --> [label(L)]. % Pass through. ⟐(label(L)) --> [label(L)]. % Pass through.
⟐(dexpr(L)) --> dexpr(L). % Pass through.
⟐(jump(To)) --> [do_offset(To)]. % Pass through. ⟐(jump(To)) --> [do_offset(To)]. % Pass through.

BIN
thun/joy_asmii.bin
View File

Binary file not shown.