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