6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-05 03:37:43 +00:00
Code Issues Projects Releases Wiki Activity

Add CALL and RESTART

Browse Source
This commit is contained in:
David Schmenk 2023-12-27 10:21:54 -08:00
parent e22e8f472f
commit 7a73d2b621
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/toolsrc/plforth.pla
View File

@ -41,7 +41,7 @@ predef _var_(a)#0, _const_(a)#0, _lit_#1, _slit_#1, _tick_#1, _forget_#0
predef _str_#0, _prstr_#0, _src_#0
predef _vlist_#0, _tron_#0, _troff_#0, _itc_#0, _pbc_#0
predef _show_#0, _showstack_#0, _showrstack_#0
predef _cont_#0, _quit_#0, _bye_#0, _abort_#0
predef _cont_#0, _quit_#0, _restart_#0, _bye_#0, _abort_#0
// DROP
char d_drop = "DROP"
byte = inline_flag
@ -290,10 +290,14 @@ word = @d_prsrc, @_cont_, 0
char d_quit = "QUIT"
byte = 0
word = @d_cont, @_quit_, 0
// RESTART
char d_restart = "RESTART"
byte = 0
word = @d_quit, @_restart_, 0
// BYE
char d_bye = "BYE"
byte = 0
word = @d_quit, @_bye_, 0
word = @d_restart, @_bye_, 0
// CALL 6502
char d_call = "CALL"
byte = 0
@ -1164,6 +1168,13 @@ def _abort_#0
_quit_
end
//
// Restart
//
def _restart_#0
coldstart
_quit_
end
//
// Leave FORTH
//
def _bye_#0