29 lines
613 B
Plaintext
29 lines
613 B
Plaintext
( hello world )
|
|
|
|
&Console { pad 8 stdio 1 }
|
|
|
|
|0100 @RESET
|
|
|
|
,text1 ,print-label JSR ( print to console )
|
|
|
|
BRK
|
|
|
|
@print-label ( text )
|
|
|
|
@cliloop
|
|
DUP2 LDR =dev/console.stdio ( write pointer value to console )
|
|
#0001 ADD2 ( increment string pointer )
|
|
DUP2 LDR #00 NEQ ,cliloop ROT JMP? POP2 ( while *ptr!=0 goto loop )
|
|
POP2
|
|
|
|
RTS
|
|
|
|
@text1 [ Hello World ] <1 .00 ( add text to memory, return 1 byte, add null byte )
|
|
|
|
|c000 @FRAME
|
|
|d000 @ERROR
|
|
|
|
|FF00 ;dev/console Console
|
|
|
|
|FFF0 .RESET .FRAME .ERROR ( vectors )
|
|
|FFF8 [ 13fd 1ef3 1bf2 ] ( palette ) |