19 lines
227 B
GLSL
19 lines
227 B
GLSL
proc putchar
|
|
0xCFFFFFFFFFFFFFFD st8
|
|
endproc
|
|
|
|
proc puts
|
|
while dup ld8 0 == not do
|
|
dup ld8 :putchar
|
|
1 u+
|
|
endwhile
|
|
pop
|
|
endproc
|
|
|
|
proc newline
|
|
10 :putchar
|
|
endproc
|
|
|
|
proc main
|
|
"Hello World!" :puts :newline
|
|
endproc
|