6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-06-01 03:41:34 +00:00
Code Issues Projects Releases Wiki Activity

Add more info to SEE

Browse Source
This commit is contained in:
dschmenk 2024-02-06 20:22:12 -08:00
parent 87c261bf3d
commit 9b749d6f99
2 changed files with 63 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/scripts/hrplot.4th
View File

@ -20,10 +20,10 @@ SRC" FPU.4TH"
;
FPEXT XSCALE
FPCONSTPI 140 >FPINT FP/ XSCALE FPEXT!
FPCONSTPI 139 >FPINT FP/ XSCALE FPEXT!
FPEXT YSCALE
96 >FPINT YSCALE FPEXT!
-95 >FPINT YSCALE FPEXT!
DEFER FUNC

114
src/toolsrc/plforth.pla
View File

@ -1863,62 +1863,70 @@ def _see_#0
word dentry, pfa, w
dentry = find(nextword(' '))
if dentry and ^_ffa_(dentry) & itc_flag // Only show ITC words
when *_cfa_(dentry)
is @_docolon_
pfa = _pfa_(dentry)
break
is @_dodefer_
pfa = _pfa_(*_pfa_(dentry))
break
is @_dodoes_
pfa = *_pfa_(dentry)
break
otherwise // ???
pfa = @d_exit
wend
putc('$'); puth(pfa); putc(' ')
w = *pfa
while w
if ^_ffa_(w) & param_flag
pfa = pfa + 2
when w
is @d_slit
putc('"')
puts(pfa)
putc('"')
pfa = pfa + ^pfa - 1
break
is @d_lit
puti(*pfa)
break
is @d_branch
is @d_0branch
is @d_doloop
puts(w); puts(" $"); puth(*pfa)
break
otherwise
puts(w)
wend
else
puts(w)
fin
pfa = pfa + 2
if ^_ffa_(w) & showcr_flag
putln; putc('$'); puth(pfa)
fin
putc(' ')
if dentry
putc('$'); puth(dentry); putc(' '); puts(dentry)
if ^_ffa_(dentry) & imm_flag; puts(" IMMEDIATE"); fin
if ^_ffa_(dentry) & componly_flag; puts(" COMPILE-ONLY"); fin
if ^_ffa_(dentry) & interponly_flag; puts(" INTERPRET-ONLY"); fin
putln
if ^_ffa_(dentry) & itc_flag // Only show ITC words
puts("-----\n")
when *_cfa_(dentry)
is @_docolon_
pfa = _pfa_(dentry)
break
is @_dodefer_
pfa = _pfa_(*_pfa_(dentry))
break
is @_dodoes_
pfa = *_pfa_(dentry)
break
otherwise // ???
pfa = @d_exit
wend
putc('$'); puth(pfa); putc(' ')
w = *pfa
if !w
while w
if ^_ffa_(w) & param_flag
pfa = pfa + 2
when w
is @d_slit
putc('"')
puts(pfa)
putc('"')
pfa = pfa + ^pfa - 1
break
is @d_lit
puti(*pfa)
break
is @d_branch
is @d_0branch
is @d_doloop
puts(w); puts(" $"); puth(*pfa)
break
otherwise
puts(w)
wend
else
puts(w)
fin
pfa = pfa + 2
if ^_ffa_(w) & showcr_flag
putln; putc('$'); puth(pfa)
fin
putc(' ')
w = *pfa
if w; puts("EXIT\n"); putc('$'); puth(pfa); putc(' '); fin // Early exit
fin
if conio:keypressed()
conio:getkey(); conio:getkey()
fin
loop
puts("EXIT\n")
if !w
pfa = pfa + 2
w = *pfa
if w; puts("EXIT\n"); putc('$'); puth(pfa); putc(' '); fin // Early exit
fin
if conio:keypressed()
conio:getkey(); conio:getkey()
fin
loop
puts("EXIT\n")
fin
fin
end
def _prstack_#0