You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
836 B
Forth
25 lines
836 B
Forth
1 year ago
|
: .s depth dup 0 ?do dup i - pick . loop drop ;
|
||
|
|
: ? @ . ;
|
||
|
|
: dump hex 0 do i cells over + @ s>d <# # # # # bl hold #> type loop
|
||
|
|
drop decimal ;
|
||
|
|
|
||
|
|
: words _latest @ begin
|
||
|
|
dup @ dup 31 &
|
||
|
|
2 pick cell+ \ lt l len ws
|
||
|
|
2 pick 6 >> 1023 < if \ lt l len ws
|
||
|
|
rot 6 >> else \ lt len ws adv
|
||
|
|
>r cell+ rot drop r> @ then
|
||
|
|
-rot swap type space \ lt adv
|
||
|
|
over _begin <> while - repeat 2drop ;
|
||
|
|
|
||
|
|
( xt -- caddr u )
|
||
|
|
: _nameof _latest @ begin \ xt lt
|
||
|
|
2dup < while \ xt lt
|
||
|
|
dup @ \ xt lt l
|
||
|
|
dup 6 >> 1023 < if \ xt lt l
|
||
|
|
6 >> - else
|
||
|
|
drop dup cell+ @ - then \ xt lt
|
||
|
|
repeat nip \ lt
|
||
|
|
dup @ swap cell+ over 31 & \ l lt len
|
||
|
|
rot 6 >> 1023 = if swap cell+ swap then ; \ lt len
|