uxn

commit 7f35e1863af6f147a691f128012705d6fb9b19b0
parent f0377ca2d994ec92f8ce0ba6b3df1a9fb1135516
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Sun, 16 Jul 2023 09:41:40 -0700

Improved device examples

Diffstat:
A
projects/examples/devices/console.write.tal
 | 
16
++++++++++++++++
M
projects/examples/devices/system.catch.tal
 | 
2
++
M
projects/examples/devices/system.expansion.tal
 | 
7
++++---

3 files changed, 22 insertions(+), 3 deletions(-)
diff --git a/projects/examples/devices/console.write.tal b/projects/examples/devices/console.write.tal
@@ -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
+
diff --git a/projects/examples/devices/system.catch.tal b/projects/examples/devices/system.catch.tal
@@ -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
 
diff --git a/projects/examples/devices/system.expansion.tal b/projects/examples/devices/system.expansion.tal
@@ -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 ( -- )