forth: forgot to commit high.fs...

2020-03-21 21:22:07 -04:00 · 2020-03-21 21:22:07 -04:00 · d5b6659507
parent ac914c3847
commit d5b6659507
1 changed files with 14 additions and 0 deletions
--- a/forth/high.fs
+++ b/forth/high.fs
@ -0,0 +1,14 @@
+( Higher level stuff that generally requires all core units )
+
+: ."
+    LIT
+    BEGIN
+        C< DUP          ( c c )
+        ( 34 is ASCII for " )
+        DUP 34 = IF DROP DROP 0 0 THEN
+        C,
+    0 = UNTIL
+    COMPILE (print)
+; IMMEDIATE
+
+: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE