2021-02-20 23:00:34 +00:00
|
|
|
( hello world )
|
|
|
|
|
|
|
|
|
|
:dev/w fff9 ( const write port )
|
|
|
|
|
|
|
|
|
|
|0100 @RESET
|
|
|
|
|
|
2021-02-23 21:49:36 +00:00
|
|
|
#00 =dev/w ( set dev/write to console )
|
|
|
|
|
,text1 ,print-label JSR ( print to console )
|
2021-02-20 23:00:34 +00:00
|
|
|
|
|
|
|
|
BRK
|
|
|
|
|
|
2021-02-23 21:49:36 +00:00
|
|
|
@print-label ( text )
|
2021-02-22 00:52:51 +00:00
|
|
|
|
2021-02-20 23:00:34 +00:00
|
|
|
@cliloop
|
|
|
|
|
DUP2 LDR IOW ( write pointer value to console )
|
|
|
|
|
#0001 ADD2 ( increment string pointer )
|
|
|
|
|
DUP2 LDR #00 NEQ ,cliloop ROT JMP? POP2 ( while *ptr!=0 goto loop )
|
2021-02-23 21:49:36 +00:00
|
|
|
POP2
|
2021-02-22 00:52:51 +00:00
|
|
|
|
2021-02-23 21:49:36 +00:00
|
|
|
RTS
|
2021-02-20 23:00:34 +00:00
|
|
|
|
2021-02-23 21:49:36 +00:00
|
|
|
@text1 [ Hello World ] <1 .00 ( add text to memory, return 1 byte, add null byte )
|
2021-02-20 23:00:34 +00:00
|
|
|
|
|
|
|
|
|c000 @FRAME
|
|
|
|
|
|d000 @ERROR
|
|
|
|
|
|
|
|
|
|
|FFF0 [ f3f0 f30b f30a ] ( palette )
|
|
|
|
|
|FFFA .RESET .FRAME .ERROR
|
