helloworld.fs 437 B

12345678910111213141516171819202122
  1. start-microcode helloworld
  2. : 1+ d# 1 + ;
  3. : writechar ( addr ch -- addr' )
  4. over c! 1+ ;
  5. : main
  6. d# 512 \ lines are 64 characters, so this is line 8
  7. [char] H writechar
  8. [char] E writechar
  9. [char] L writechar
  10. [char] L writechar
  11. [char] O writechar
  12. 1+
  13. [char] W writechar
  14. [char] O writechar
  15. [char] R writechar
  16. [char] L writechar
  17. [char] D writechar
  18. begin again
  19. ;
  20. end-microcode