Implemented directive in flagpole compiler and added it into programs

This commit is contained in:
cannoli-fruit 2026-07-25 22:16:00 -04:00
commit d2f314622a
3 changed files with 48 additions and 28 deletions

5
flagpole/tests/stdhw.fp Normal file
View file

@ -0,0 +1,5 @@
$inc fvmstd.fp
proc main
"Hello World!" :puts :newline
endproc

View file

@ -1,27 +1,8 @@
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
$inc fvmstd.fp
proc main
:getchar
dup :putchar
while dup "1" ld8 == do
dup :putchar
endwhile
endproc
endproc