6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-09 01:37:17 +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

14
src/toolsrc/plforth.pla

@ -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 _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 _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
// DROP
char d_drop = "DROP"
@ -231,10 +231,14 @@ word = @d_lit, @puti, 0
char d_prtoshex = ".$"
byte = 0
word = @d_prtos, @puth, 0
// EMIT
char d_emit = "EMIT"
byte = 0
word = @d_prtoshex, @putc, 0
// BYE
char d_bye = "BYE"
byte = 0
word = @d_prtoshex, @_bye_, 0
word = @d_emit, @_bye_, 0
// SHOW DEFINITION
char d_show = "SHOW"
byte = 0
@ -404,6 +408,10 @@ def execword(dentry)#0
^$C010 // Clear KB strobe
_abort_
fin
if ^$C000 == $94 // CTRL-T
^$C010 // Clear KB strobe
trace = not trace
fin
if trace
puts(": "); puts(dentry); putln
fin
@ -417,7 +425,7 @@ def execwords(wlist)#0
IIP = wlist
while *IIP
dentry = *IIP
IIP = IIP + 2
IIP = IIP + 2
execword(dentry)
loop
IIP = prevIP