Minimal standard library i'll improve it later
This commit is contained in:
parent
d2f314622a
commit
d89d239f89
1 changed files with 20 additions and 0 deletions
20
flagpole/fvmstd.fp
Normal file
20
flagpole/fvmstd.fp
Normal file
|
|
@ -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
|
||||||
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue