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.
37 lines
574 B
37 lines
574 B
( Console: |
|
Prints Hello Uxn!, and listens for incoming stdin events on enter. ) |
|
|
|
|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1 |
|
|
|
|0100 ( -> ) |
|
|
|
( set vector ) |
|
;on-console .Console/vector DEO2 |
|
( print hello ) |
|
;hello-txt |
|
&while |
|
LDAk .Console/write DEO |
|
INC2 LDAk ,&while JCN |
|
POP2 |
|
|
|
BRK |
|
|
|
@on-console ( -> ) |
|
|
|
;yousaid-txt ,print-str JSR |
|
.Console/read DEI .Console/write DEO |
|
#0a .Console/write DEO |
|
|
|
BRK |
|
|
|
@print-str ( str* -- ) |
|
|
|
&while |
|
LDAk #18 DEO |
|
INC2 LDAk ,&while JCN |
|
POP2 |
|
|
|
JMP2r |
|
|
|
@hello-txt "Hello 20 "Uxn! $1 |
|
@yousaid-txt "You 20 "said: 20 $1
|
|
|