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

halt.

This commit is contained in:
Simon Forman 2019-11-10 10:58:47 -08:00
parent 2e301fa6c3
commit 0b210d7754
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
thun/compiler.markII.pl
View File

@ -77,13 +77,11 @@ Mark II
label(Done),
store_word(TOS, SP, 0), % RAM[SP] := TOS
do_offset(Main),
do_offset(Main)
label(HALT), % This is a HALT loop, the emulator detects and traps
do_offset(HALT) % on this "10 goto 10" instruction.
],⟐([
% ======================================
],⟐([
halt(HALT), % ======================================
definition(Cons), % Let's cons.
@ -147,6 +145,9 @@ language.
⟐(jump(To)) --> [do_offset(To)]. % Pass through.
⟐(halt(Halt)) --> [label(Halt), do_offset(Halt)].
% This is a HALT loop, the emulator detects and traps on this "10 goto 10" instruction.
⟐(incr(SP)) --> [sub_imm(SP, SP, 4)]. % SP -= 1 (word, not byte).
⟐(if_literal(TERM, Push, TEMP)) -->