2021-02-05 17:01:34 -05:00
|
|
|
( hello world )
|
2021-02-01 14:58:47 -05:00
|
|
|
|
2021-02-05 17:01:34 -05:00
|
|
|
;iterator
|
2021-02-05 14:57:37 -05:00
|
|
|
:dev1r FFF0
|
|
|
|
|
:dev1w FFF1
|
2021-02-04 21:25:49 -05:00
|
|
|
|
2021-02-05 14:57:37 -05:00
|
|
|
|0100 @RESET
|
2021-02-04 21:25:49 -05:00
|
|
|
|
2021-02-06 13:39:13 -05:00
|
|
|
@word1 "hello_word ( len: 0x0b )
|
2021-02-04 18:23:04 -05:00
|
|
|
|
2021-02-05 17:01:34 -05:00
|
|
|
@loop
|
2021-02-06 13:39:13 -05:00
|
|
|
,dev1w STR ( write to stdout )
|
|
|
|
|
,incr JSU ( increment itr )
|
|
|
|
|
,word1 ,strlen JSU ( get strlen )
|
|
|
|
|
NEQ ,loop ROT JSC ( loop != strlen )
|
2021-02-04 18:23:04 -05:00
|
|
|
|
2021-02-06 13:39:13 -05:00
|
|
|
BRK
|
|
|
|
|
|
|
|
|
|
@strlen
|
|
|
|
|
,0001 ADD^ PEK
|
|
|
|
|
RTS
|
2021-02-04 18:23:04 -05:00
|
|
|
|
2021-02-05 23:18:30 -05:00
|
|
|
@incr
|
|
|
|
|
,iterator LDR
|
|
|
|
|
,01 ADD
|
|
|
|
|
,iterator STR
|
|
|
|
|
,iterator LDR
|
|
|
|
|
RTS
|
2021-02-06 13:39:13 -05:00
|
|
|
|
2021-02-05 14:57:37 -05:00
|
|
|
|c000 @FRAME BRK
|
|
|
|
|
|d000 @ERROR BRK
|
|
|
|
|
|FFFA .RESET .FRAME .ERROR
|
