27 lines
310 B
Plaintext
27 lines
310 B
Plaintext
( dev/console )
|
|
|
|
%RTN { JMP2r }
|
|
|
|
( devices )
|
|
|
|
|10 @Console [ &pad $8 &char $1 ]
|
|
|
|
( init )
|
|
|
|
|0100 ( -> )
|
|
|
|
;hello-word ;print JSR2
|
|
|
|
BRK
|
|
|
|
@print ( addr* -- )
|
|
|
|
&loop
|
|
( send ) DUP2 GET .Console/char DEO
|
|
( incr ) #0001 ADD2
|
|
( loop ) DUP2 GET #00 NEQ ,&loop JNZ
|
|
POP2
|
|
|
|
RTN
|
|
|
|
@hello-word "hello 20 "World! |