uxn/projects/examples/devices/console.usm

27 lines
309 B
Plaintext
Raw Normal View History

2021-04-21 16:09:18 +00:00
( dev/console )
2021-02-20 23:00:34 +00:00
2021-03-16 04:29:44 +00:00
%RTN { JMP2r }
( devices )
|10 @Console [ &pad $8 &char $1 ]
2021-04-21 16:48:04 +00:00
( init )
2021-04-21 16:48:04 +00:00
|0100 ( -> )
2021-02-20 23:00:34 +00:00
2021-05-01 16:59:57 +00:00
;hello-word ,print JSR
2021-04-20 18:32:26 +00:00
2021-02-20 23:00:34 +00:00
BRK
2021-04-29 04:00:39 +00:00
@print ( addr* -- )
2021-03-11 20:19:59 +00:00
2021-04-20 18:32:26 +00:00
&loop
( send ) DUP2 GET .Console/char DEO
2021-03-11 20:19:59 +00:00
( incr ) #0001 ADD2
( loop ) DUP2 GET #00 NEQ ,&loop JNZ
POP2
2021-03-01 16:55:16 +00:00
2021-04-20 18:32:26 +00:00
RTN
2021-02-20 23:00:34 +00:00
@hello-word "hello 20 "World!