Truth machine

2026-07-25 19:28:07 -04:00 · 2026-07-25 19:28:07 -04:00 · 3c51927c9a
commit 3c51927c9a
parent fda7baea7f
1 changed files with 27 additions and 0 deletions
--- a/flagpole/tests/truthmachine.fp
+++ b/flagpole/tests/truthmachine.fp
@ -0,0 +1,27 @@
+proc putchar
+  0xCFFFFFFFFFFFFFFD st8
+endproc
+
+proc getchar
+  0xCFFFFFFFFFFFFFFE ld8
+endproc
+
+proc puts
+  while dup ld8 0 == not do
+    dup ld8 :putchar
+    1 u+
+  endwhile
+  pop
+endproc
+
+proc newline
+  10 :putchar
+endproc
+
+proc main
+  :getchar
+  dup :putchar
+  while dup "1" ld8 == do
+    dup :putchar
+  endwhile
+endproc