uxn/projects/examples/dev.console.usm

36 lines
536 B
Plaintext

( hello world )
%RTN { JMP2r }
( devices )
|0100 ;Console { pad 8 char 1 byte 1 short 2 }
|01F0 .RESET .FRAME .ERROR ( vectors )
|01F8 [ 13fd 1ef3 1bf2 ] ( palette )
( program )
|0200 @RESET
,text1 ,print-label JSR2
,text2 ,print-label JSR2
#ab =Console.byte
#cdef =Console.short
BRK
@print-label ( text )
$loop
( send ) DUP2 PEK2 =Console.char
( incr ) #0001 ADD2
( loop ) DUP2 PEK2 #00 NEQ ^$loop JNZ
POP2
RTN
@text1 [ Welcome 20 to 20 UxnVM 0a00 ]
@text2 [ Hello 20 World 0a00 ]
@FRAME BRK
@ERROR BRK