0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-23 22:35:11 +00:00
uxn/projects/examples/dev.console.usm

27 lines
310 B
Text

( 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!