6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-23 14:30:48 +00:00
Code Issues Projects Releases Wiki Activity

SHOW pretty print improvements

Browse Source
This commit is contained in:
David Schmenk 2024-01-10 08:24:50 -08:00
parent d5c22b1ff0
commit 2eacd75b69
2 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/PLFORTH.PO
View File

Binary file not shown.

36
src/toolsrc/plforth.pla
View File

@ -375,7 +375,7 @@ byte = imm_flag | componly_flag
word = @d_endcase, 0, @_do_ word = @d_endcase, 0, @_do_
// LEAVE // LEAVE
char d_leave = "LEAVE" char d_leave = "LEAVE"
byte = componly_flag byte = componly_flag | showcr_flag
word = @d_do, 0, @_leave_ word = @d_do, 0, @_leave_
// COMPILED LOOP ( not in vocabulary ) // COMPILED LOOP ( not in vocabulary )
char d_doloop = "(DOLOOP)" char d_doloop = "(DOLOOP)"
@ -475,7 +475,7 @@ byte = imm_flag
word = @d_interponly, 0, @_immediate_ word = @d_interponly, 0, @_immediate_
// EXIT // EXIT
char d_exit = "EXIT" char d_exit = "EXIT"
byte = imm_flag | componly_flag | showcr_flag byte = imm_flag | componly_flag
word = @d_immediate, 0, @_exit_ word = @d_immediate, 0, @_exit_
// SEMI // SEMI
char d_semi = ";" char d_semi = ";"
@ -527,19 +527,19 @@ byte = 0
word = @d__isnum_, 0, @_trailing_ word = @d__isnum_, 0, @_trailing_
// PRINT @TOS // PRINT @TOS
char d_prat = "?" char d_prat = "?"
byte = showcr_flag byte = 0
word = @d_trailing, 0, @_prat_ word = @d_trailing, 0, @_prat_
// PRINT TOS // PRINT TOS
char d_prtos = "." char d_prtos = "."
byte = showcr_flag byte = 0
word = @d_prat, 0, @_prval_ word = @d_prat, 0, @_prval_
// PRINT TOS HEX // PRINT TOS HEX
char d_prtoshex = "$." char d_prtoshex = "$."
byte = showcr_flag byte = 0
word = @d_prtos, 0, @_prhex_ word = @d_prtos, 0, @_prhex_
// PRINT TOS HEX BYTE // PRINT TOS HEX BYTE
char d_prtosbyte = "C$." char d_prtosbyte = "C$."
byte = showcr_flag byte = 0
word = @d_prtoshex, 0, @_prbyte_ word = @d_prtoshex, 0, @_prbyte_
// EMIT // EMIT
char d_emit = "EMIT" char d_emit = "EMIT"
@ -547,7 +547,7 @@ byte = 0
word = @d_prtosbyte, 0, @putc word = @d_prtosbyte, 0, @putc
// CR // CR
char d_cr = "CR" char d_cr = "CR"
byte = 0 byte = showcr_flag
word = @d_emit, 0, @putln word = @d_emit, 0, @putln
// SPACE // SPACE
char d_space = "SPACE" char d_space = "SPACE"
@ -579,7 +579,7 @@ byte = param_flag | inline_flag
word = 0, 0, @_slit_, $2E word = 0, 0, @_slit_, $2E
// PRINT STRING FROM STACK // PRINT STRING FROM STACK
char d_doprstr = "(.\")" char d_doprstr = "(.\")"
byte = showcr_flag byte = 0
word = @d_str, 0, @puts word = @d_str, 0, @puts
// PRINT STRING // PRINT STRING
char d_prstr = ".\"" char d_prstr = ".\""
@ -627,7 +627,7 @@ byte = showcr_flag
word = @d_abortstr, 0, @_restart_ word = @d_abortstr, 0, @_restart_
// COMMENT // COMMENT
char d_comment = "(" char d_comment = "("
byte = imm_flag | showcr_flag byte = imm_flag
word = @d_exitforth, 0, @_comment_ word = @d_exitforth, 0, @_comment_
// //
// PLFORTH custom words // PLFORTH custom words
@ -642,31 +642,31 @@ byte = interponly_flag
word = @d_bye, 0, @_show_ word = @d_bye, 0, @_show_
// SHOW STACK // SHOW STACK
char d_showstack = "SHOWSTACK" char d_showstack = "SHOWSTACK"
byte = 0 byte = showcr_flag
word = @d_show, 0, @_showstack_ word = @d_show, 0, @_showstack_
// SHOW RSTACK // SHOW RSTACK
char d_showrstack = "SHOWRSTACK" char d_showrstack = "SHOWRSTACK"
byte = 0 byte = showcr_flag
word = @d_showstack, 0, @_showrstack_ word = @d_showstack, 0, @_showrstack_
// TRACE ON // TRACE ON
char d_tron = "TRON" char d_tron = "TRON"
byte = 0 byte = showcr_flag
word = @d_showrstack, 0, @_tron_ word = @d_showrstack, 0, @_tron_
// TRACE OFF // TRACE OFF
char d_troff = "TROFF" char d_troff = "TROFF"
byte = 0 byte = showcr_flag
word = @d_tron, 0, @_troff_ word = @d_tron, 0, @_troff_
// SINGLE STEP ON // SINGLE STEP ON
char d_stepon = "STEPON" char d_stepon = "STEPON"
byte = 0 byte = showcr_flag
word = @d_troff, 0, @_stepon_ word = @d_troff, 0, @_stepon_
// SINGLE STEP OFF // SINGLE STEP OFF
char d_stepoff = "STEPOFF" char d_stepoff = "STEPOFF"
byte = 0 byte = showcr_flag
word = @d_stepon, 0, @_stepoff_ word = @d_stepon, 0, @_stepoff_
// BREAK OUT // BREAK OUT
char d_brk = "BRK" char d_brk = "BRK"
byte = 0 byte = showcr_flag
word = @d_stepoff, 0, @_brk_ word = @d_stepoff, 0, @_brk_
// BREAK ON // BREAK ON
char d_brkon = "BRKON" char d_brkon = "BRKON"
@ -689,7 +689,7 @@ word = @d_itc, 0, @_pbc_
// //
// LIST VOCAB // LIST VOCAB
char d_vlist = "VLIST" char d_vlist = "VLIST"
byte = 0 byte = showcr_flag
word = @d_pbc, 0, @_vlist_ word = @d_pbc, 0, @_vlist_
// //
// Helper routines // Helper routines
@ -903,7 +903,7 @@ end
// Break handler // Break handler
// //
def showtrace(dentry)#0 def showtrace(dentry)#0
puts("\n( "); _showstack_; puts(") "); puts(dentry); putc(' ') putln; puts("( "); _showstack_; puts(") "); puts(dentry); putc(' ')
end end
def brkhandle(dentry)#0 def brkhandle(dentry)#0
word brk_infn, brk_inptr, brk_iip word brk_infn, brk_inptr, brk_iip