d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improved device examples

This commit is contained in:
Devine Lu Linvega 2023-07-16 09:41:40 -07:00
parent f0377ca2d9
commit 7f35e1863a
3 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
projects/examples/devices/console.write.tal Normal file
View File

@ -0,0 +1,16 @@
( usage: uxncli console.write.rom )
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|0100
@on-reset ( -> )
;text
&while ( -- )
LDAk .Console/write DEO
INC2 LDAk ?&while
POP2 BRK
@text
"Hello $1

2
projects/examples/devices/system.catch.tal
View File

@ -1,3 +1,5 @@
( usage: uxncli system.catch.rom )
|00 @System &catch $2 &expansion $2 &pad $2 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &halt $1
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1

7
projects/examples/devices/system.expansion.tal
View File

@ -1,3 +1,4 @@
( usage: uxncli system.expansion.rom )
|00 @System &catch $2 &expansion $2 &pad $2 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &halt $1
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
@ -10,12 +11,12 @@
BRK
@cmd
[ 01 000b 0000 =src 0000 =dst ]
[ 01 000c 0000 =src 0000 =dst ]
@src
"Hello 20 "World $80
"Hello 20 "World $1
@dst $0c
@dst $c
@<print-str> ( str* -- )
&w ( -- )