2021-02-20 23:00:34 +00:00
|
|
|
( hello world )
|
|
|
|
|
|
2021-03-01 17:38:54 +00:00
|
|
|
&Console { pad 8 char 1 byte 1 short 2 }
|
2021-02-20 23:00:34 +00:00
|
|
|
|
|
|
|
|
|0100 @RESET
|
|
|
|
|
|
2021-03-11 23:47:28 +00:00
|
|
|
,text1 ,print-label JSR2
|
|
|
|
|
,text2 ,print-label JSR2
|
2021-03-11 20:19:59 +00:00
|
|
|
#ab =CNSL.byte
|
|
|
|
|
#cdef =CNSL.short
|
2021-02-20 23:00:34 +00:00
|
|
|
|
|
|
|
|
BRK
|
|
|
|
|
|
2021-02-23 21:49:36 +00:00
|
|
|
@print-label ( text )
|
2021-03-11 20:19:59 +00:00
|
|
|
|
2021-03-11 23:47:28 +00:00
|
|
|
$loop NOP
|
2021-03-11 20:19:59 +00:00
|
|
|
( send ) DUP2 LDR =CNSL.char
|
|
|
|
|
( incr ) #0001 ADD2
|
2021-03-11 23:47:28 +00:00
|
|
|
( loop ) DUP2 LDR #00 NEQ ^$loop MUL JMPS
|
2021-02-23 21:49:36 +00:00
|
|
|
POP2
|
2021-03-01 16:55:16 +00:00
|
|
|
|
2021-03-11 22:00:32 +00:00
|
|
|
RTS
|
2021-02-20 23:00:34 +00:00
|
|
|
|
2021-03-11 22:00:32 +00:00
|
|
|
@text1 [ Welcome 20 to 20 UxnVM 0a00 ]
|
|
|
|
|
@text2 [ Hello 20 World 0a00 ]
|
2021-02-20 23:00:34 +00:00
|
|
|
|
|
|
|
|
|c000 @FRAME
|
|
|
|
|
|d000 @ERROR
|
|
|
|
|
|
2021-03-11 20:19:59 +00:00
|
|
|
|FF00 ;CNSL Console
|
2021-02-26 22:36:48 +00:00
|
|
|
|
2021-02-28 19:41:28 +00:00
|
|
|
|FFF0 .RESET .FRAME .ERROR ( vectors )
|
2021-03-01 04:52:41 +00:00
|
|
|
|FFF8 [ 13fd 1ef3 1bf2 ] ( palette )
|
