uxn/projects/examples/devices/console.tal

19 lines
208 B
Tal

( dev/console )
%HALT { #010f DEO }
%EMIT { #18 DEO }
( init )
|0100 ( -> )
;hello-word
&while
( send ) LDAk EMIT
INC2 LDAk ,&while JCN
POP2
( stop ) HALT
BRK
@hello-word "Hello 20 "Uxn! $1