diff --git a/flagpole/fvmstd.fp b/flagpole/fvmstd.fp new file mode 100644 index 0000000..ee479e2 --- /dev/null +++ b/flagpole/fvmstd.fp @@ -0,0 +1,20 @@ +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 +