mirror of https://git.sr.ht/~rabbits/uxn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
585 B
33 lines
585 B
( hello world ) |
|
|
|
&Console { pad 8 char 1 byte 1 short 2 } |
|
|
|
|0100 @RESET |
|
|
|
,text1 ,print-label JSR2 |
|
,text2 ,print-label JSR2 |
|
#ab =CNSL.byte |
|
#cdef =CNSL.short |
|
|
|
BRK |
|
|
|
@print-label ( text ) |
|
|
|
@print-label-loop NOP |
|
( send ) DUP2 LDR =CNSL.char |
|
( incr ) #0001 ADD2 |
|
DUP2 LDR #00 NEQ ^print-label-loop MUL JMPS |
|
POP2 |
|
|
|
RTS |
|
|
|
@text1 [ Hello 20 World 0a00 ] ( store text with a linebreak and null byte ) |
|
@text2 [ Welcome 20 to 20 UxnVM 0a00 ] |
|
|
|
|c000 @FRAME |
|
|d000 @ERROR |
|
|
|
|FF00 ;CNSL Console |
|
|
|
|FFF0 .RESET .FRAME .ERROR ( vectors ) |
|
|FFF8 [ 13fd 1ef3 1bf2 ] ( palette ) |