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

Add CR to PBC compiled words for SHOW

Browse Source
This commit is contained in:
David Schmenk 2024-01-09 07:43:08 -08:00
parent a755df496c
commit 2770a6f774
2 changed files with 2 additions and 0 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.

2
src/toolsrc/plforth.pla
View File

@ -1179,6 +1179,7 @@ def newdict#0
end
def _plasma_(a)#0
newdict
^(_ffa_(vlist)) = showcr_flag
*(_cfa_(vlist)) = a // PLASMA code address
addhash(vlist)
end
@ -1258,6 +1259,7 @@ def _colon_#0
^(_ffa_(vlist)) = itc_flag | showcr_flag
*(_cfa_(vlist)) = @_docolon_
else // comp_pbc_flag
^(_ffa_(vlist)) = showcr_flag
_dictaddb_(JSR); _dictaddw_(vmvect)
fin
if state & trace_flag