6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-10-18 07:24:16 +00:00
Code Issues Projects Releases Wiki Activity

Remove extraneous source and cleanup

Browse Source
This commit is contained in:
David Schmenk 2023-12-29 23:46:16 -08:00
parent b2ddb0434d
commit a15658a714
1 changed files with 1 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/toolsrc/plforth.pla
View File

@ -458,14 +458,10 @@ word = @d_abort, @_restart_
char d_bye = "BYE"
byte = 0
word = @d_restart, @_bye_
// CALL 6502
char d_call = "CALL"
byte = 0
word = @d_bye, @call
// SHOW DEFINITION
char d_show = "SHOW"
byte = 0
word = @d_call, @_show_
word = @d_bye, @_show_
// SHOW STACK
char d_showstack = "SHOWSTACK"
byte = 0
@ -523,7 +519,6 @@ byte inref[SRCREFS]
word previnptr[SRCREFS]
char inbuf[SRCREFS * INBUF_SIZE]
word inbufptr
//
// RSTACK
//
@ -566,7 +561,6 @@ byte = $60 // RTS
// Helper routines
//
predef interpret#0
//
// Input routines
//
@ -1125,24 +1119,6 @@ def _dodoes_#0
(@push)(W + 12)#0 // Pointer to PFA storage
execwords(*(W + 2)) // Exec PFA ptr
end
def _createdoes_(a)#0
if state & comp_itc_flag
//
// Overwrite CREATE as ITC words
//
^(_ffa_(vlist)) = itc_flag
*(_cfa_(vlist)) = @_dodoes_
*(_pfa_(vlist)) = a // Fill in DOES code address
else // comp_pbc_flag
//
// Rewrite the end of CREATE
//
^(_pfa_(vlist) + 6) = $54 // CALL DOES> directly
*(_pfa_(vlist) + 7) = a
^(_pfa_(vlist) + 9) = $5C // RET
fin
state = state & ~comp_flag
end
def _itcdoes_(a)#0
//
// Overwrite CREATE as ITC words
@ -1436,7 +1412,6 @@ def _repeat_#0
word backref
backref = _fromrs_ // Backref from WHILE
if state & comp_itc_flag
pfillw(@d_branch)
pfillw(_fromrs_)