6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-06-01 03:41:34 +00:00
Code Issues Projects Releases Wiki Activity

Clean up ] and [ compile on/off

Browse Source
This commit is contained in:
David Schmenk 2024-01-09 11:12:20 -08:00
parent 1f1376c467
commit 1548a63a9f
2 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/PLFORTH.PO
View File

Binary file not shown.

11
src/toolsrc/plforth.pla
View File

@ -1300,19 +1300,14 @@ def _compile_#0
fin
end
def _compoff_#0
if state & comp_flag
savestate = state & comp_flag
state = state & ~comp_flag
else
puts("[ Not compiling\n")
_quit_
fin
savestate = state & comp_flag
state = state & ~comp_flag
end
def _compon_#0
state = state | savestate
savestate = 0
if not (state & comp_flag)
puts("[ Not compiling\n")
puts("] Not compiling\n")
_quit_
fin
end