0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-24 06:45:11 +00:00
uxn/projects/examples/dev.console.usm

32 lines
438 B
Text
Raw Normal View History

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 )
|0110 ;Console { vector 2 pad 6 char 1 byte 1 short 2 }
2021-03-21 21:16:19 +00:00
( program )
2021-04-06 17:45:53 +00:00
|0200
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
@print-label ( text )
2021-03-11 20:19:59 +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
( loop ) DUP2 PEK2 #00 NEQ ^$loop JNZ
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 ]