uxn/projects/examples/devices/console.tal

20 lines
276 B
Tal

( dev/console )
|00 @System $e &debug
|10 @Console $8 &write
( init )
|0100 ( -> )
;hello-word
&while
( send ) LDAk .Console/write DEO
( incr ) #0001 ADD2
( loop ) LDAk ,&while JCN
POP2
( show debugger ) #01 .System/debug DEO
BRK
@hello-word "Hello 20 "World!