uxn/etc/hello.tal

29 lines
366 B
Tal

( init )
|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
%emit ( byte -- ) { #18 DEO }
|0100 @program
#1234 SWP
#010e DEO
#010f DEO
#1234 #5678 SWP2
;hello-word
&while
( send ) LDAk emit
( loop ) INC2 LDAk ?&while
POP2
#010f DEO
BRK
@program/extend BRK
@hello-word "Hello 20 "World? 00