6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-24 20:31:12 +00:00
Code Issues Projects Releases Wiki Activity

dd ability to functionaly break out

Browse Source
This commit is contained in:
David Schmenk 2023-12-27 20:33:53 -08:00
parent 99d584f45f
commit a7c7cf9e19
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/toolsrc/plforth.pla
View File

@ -44,7 +44,7 @@ predef _cmove_(a,b,c)#0, _move_(a,b,c)#0, _fill_(a,b,c)#0
predef _var_(a)#0, _const_(a)#0, _lit_#1, _slit_#1, _tick_#1, _forget_#0
predef _terminal_#1, _prat_(a)#0, _str_#0, _prstr_#0, _src_#0
predef _vlist_#0, _tron_#0, _troff_#0, _itc_#0, _pbc_#0
predef _brkon_#0, _brkoff_#0
predef _brkout_#0, _brkon_#0, _brkoff_#0
predef _show_#0, _showstack_#0, _showrstack_#0
predef _cont_#0, _restart_#0, _bye_#0, _quit_#0, _abort_#0
// DROP
@ -423,10 +423,14 @@ word = @d_showrstack, @_tron_, 0
char d_troff = "TROFF"
byte = 0
word = @d_tron, @_troff_, 0
// BREAK OUT
char d_brkout = "BRKOUT"
byte = 0
word = @d_troff, @_brkout_, 0
// BREAK ON
char d_brkon = "BRKON"
byte = 0
word = @d_troff, @_brkon_, 0
word = @d_brkout, @_brkon_, 0
// BREAK OFF
char d_brkoff = "BRKOFF"
byte = 0
@ -1400,6 +1404,9 @@ def brkpoint#0
(*_cfa_(brkentry))()#0
fin
end
def _brkout_#0
brkhandle(@d_brkout)
end
def _brkon_#0
word inchars, dentry
byte inlen