add .R PAD U.R U> UNUSED WITHIN

1 files changed, 25 insertions, 0 deletions

diff --git a/forth/tools.fth b/forth/tools.fth
new file mode 100644
index 0000000..3453ae3
--- /dev/null
+++ b/forth/tools.fth
@@ -0,0 +1,25 @@
+: .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 ;
+
+7 cells 80 chars + constant _begin
+: 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