Exposed debug functions as forth words.

[forth.jl.git] / src / forth.jl

diff --git a/src/forth.jl b/src/forth.jl
index b1a78f3..ea849cd 100644 (file)
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -1017,4 +1017,23 @@ function printRS()
     end
 end
 
+DOT = defPrimWord(".", () -> begin
+    print(popPS())
+    return NEXT
+end)
+
+DOTS = defPrimWord(".s", () -> begin
+    printPS()
+    return NEXT
+end)
+
+DUMP = defPrimWord("DUMP", () -> begin
+    count = popPS()
+    addr = popPS()
+
+    dump(addr, count=count)
+
+    return NEXT
+end)
+
 end