2021-04-02 04:53:41 +00:00
|
|
|
( Dev/Console )
|
2021-02-20 23:00:34 +00:00
|
|
|
|
2021-03-16 04:29:44 +00:00
|
|
|
%RTN { JMP2r }
|
|
|
|
|
|
2021-03-21 21:16:19 +00:00
|
|
|
( devices )
|
|
|
|
|
|
|
|
|
|
|0100 ;Console { pad 8 char 1 byte 1 short 2 }
|
2021-04-02 04:44:23 +00:00
|
|
|
|0200 ^RESET JMP
|
2021-03-28 18:20:36 +00:00
|
|
|
|0204 ,ERROR JMP2
|
|
|
|
|
|0208 ,FRAME JMP2
|
2021-03-21 21:16:19 +00:00
|
|
|
|
|
|
|
|
( program )
|
|
|
|
|
|
2021-03-28 18:20:36 +00:00
|
|
|
@RESET
|
2021-02-20 23:00:34 +00:00
|
|
|
|
2021-03-11 23:47:28 +00:00
|
|
|
,text1 ,print-label JSR2
|
|
|
|
|
,text2 ,print-label JSR2
|
2021-03-14 01:34:08 +00:00
|
|
|
#ab =Console.byte
|
|
|
|
|
#cdef =Console.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-26 18:45:10 +00:00
|
|
|
$loop
|
2021-03-24 16:39:19 +00:00
|
|
|
( send ) DUP2 PEK2 =Console.char
|
2021-03-11 20:19:59 +00:00
|
|
|
( incr ) #0001 ADD2
|
2021-03-26 18:45:10 +00:00
|
|
|
( loop ) DUP2 PEK2 #00 NEQ ^$loop JNZ
|
2021-02-23 21:49:36 +00:00
|
|
|
POP2
|
2021-03-01 16:55:16 +00:00
|
|
|
|
2021-03-14 21:26:17 +00:00
|
|
|
RTN
|
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
|
|
|
|
2021-03-22 19:33:15 +00:00
|
|
|
@FRAME BRK
|
|
|
|
|
@ERROR BRK
|
