Cody/FlagVM
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Truth machine

Browse source
This commit is contained in:
cannoli-fruit 2026-07-25 19:28:07 -04:00
commit 3c51927c9a
1 changed files with 27 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

27
flagpole/tests/truthmachine.fp Normal file
View file

@ -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