test.fth 245 B

12345678910111213141516171819202122
  1. prelude
  2. struc text txt {
  3. local ..
  4. .. db txt
  5. .len = $-..
  6. }
  7. msg text <'Hello world',10>
  8. endprelude
  9. code print
  10. pop edx ecx
  11. mov eax, sys_write
  12. mov ebx, STDOUT
  13. int 80h
  14. endcode
  15. word main
  16. literal msg
  17. literal msg.len
  18. print
  19. endword