6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-08-06 11:25:07 +00:00
Code Issues Projects Releases Wiki Activity

EMIT and SHOW cleanup

Browse Source
This commit is contained in:
David Schmenk
2023-12-24 08:22:21 -08:00
parent 4e77f83bed
commit 8d0dad15b3
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/toolsrc/plforth.pla
View File

@@ -33,7 +33,7 @@ predef _branch_#0, _branch0_(a)#0, _if_#0, _else_#0, _then_#0
predef _do_#0, _doloop_#0, _loop_#0, _i_#1, _j_#1 predef _do_#0, _doloop_#0, _loop_#0, _i_#1, _j_#1
predef _create_#0, _dodoes_(words)#0, _filldoes_#0, _does_#0, _pset_(a)#0, _colon_#0, _semi_#0 predef _create_#0, _dodoes_(words)#0, _filldoes_#0, _does_#0, _pset_(a)#0, _colon_#0, _semi_#0
predef _tors_(a)#0, _fromrs_#1, _toprs_#1 predef _tors_(a)#0, _fromrs_#1, _toprs_#1
predef _var_(a)#0, _const_(a)#0,_lit_#1, _tick_#1, _forget_#0 predef _var_(a)#0, _const_(a)#0, _lit_#1, _tick_#1, _forget_#0
predef _vlist_#0, _tron_#0, _troff_#0, _show_#0, _bye_#0, _abort_#0 predef _vlist_#0, _tron_#0, _troff_#0, _show_#0, _bye_#0, _abort_#0
// DROP // DROP
char d_drop = "DROP" char d_drop = "DROP"
@@ -231,10 +231,14 @@ word = @d_lit, @puti, 0
char d_prtoshex = ".$" char d_prtoshex = ".$"
byte = 0 byte = 0
word = @d_prtos, @puth, 0 word = @d_prtos, @puth, 0
// EMIT
char d_emit = "EMIT"
byte = 0
word = @d_prtoshex, @putc, 0
// BYE // BYE
char d_bye = "BYE" char d_bye = "BYE"
byte = 0 byte = 0
word = @d_prtoshex, @_bye_, 0 word = @d_emit, @_bye_, 0
// SHOW DEFINITION // SHOW DEFINITION
char d_show = "SHOW" char d_show = "SHOW"
byte = 0 byte = 0
@@ -404,6 +408,10 @@ def execword(dentry)#0
^$C010 // Clear KB strobe ^$C010 // Clear KB strobe
_abort_ _abort_
fin fin
if ^$C000 == $94 // CTRL-T
^$C010 // Clear KB strobe
trace = not trace
fin
if trace if trace
puts(": "); puts(dentry); putln puts(": "); puts(dentry); putln
fin fin
@@ -417,7 +425,7 @@ def execwords(wlist)#0
IIP = wlist IIP = wlist
while *IIP while *IIP
dentry = *IIP dentry = *IIP
IIP = IIP + 2 IIP = IIP + 2
execword(dentry) execword(dentry)
loop loop
IIP = prevIP IIP = prevIP