mirror of
https://git.sr.ht/~rabbits/uxn
synced 2024-11-12 17:25:05 +00:00
35 lines
No EOL
514 B
Text
35 lines
No EOL
514 B
Text
( Dev/Console )
|
|
|
|
%RTN { JMP2r }
|
|
|
|
( devices )
|
|
|
|
|0100 ;System { vector 2 pad 6 r 2 g 2 b 2 }
|
|
|0110 ;Console { vector 2 pad 6 char 1 byte 1 short 2 }
|
|
|
|
( 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 |