23 lines
437 B
Forth
23 lines
437 B
Forth
start-microcode helloworld
|
|
: 1+ d# 1 + ;
|
|
: writechar ( addr ch -- addr' )
|
|
over c! 1+ ;
|
|
|
|
: main
|
|
d# 512 \ lines are 64 characters, so this is line 8
|
|
[char] H writechar
|
|
[char] E writechar
|
|
[char] L writechar
|
|
[char] L writechar
|
|
[char] O writechar
|
|
1+
|
|
[char] W writechar
|
|
[char] O writechar
|
|
[char] R writechar
|
|
[char] L writechar
|
|
[char] D writechar
|
|
begin again
|
|
;
|
|
|
|
end-microcode
|