Added system.cat example

2024-02-14 15:17:08 -08:00 · 2024-02-14 15:17:08 -08:00 · 9da44f52d4
parent 3fa01a63d8
commit 9da44f52d4
1 changed files with 14 additions and 0 deletions
--- a/projects/examples/devices/file.cat.tal
+++ b/projects/examples/devices/file.cat.tal
@ -0,0 +1,14 @@
+|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
+
+|0100 
+
+@on-reset ( -> )
+	;filename .File/name DEO2
+	#0001 .File/length DEO2
+	&while ( -- )
+		;&byte .File/read DEO2
+		.File/success DEI2 ORA ?{ #010f DEO BRK }
+		[ LIT2 &byte $1 18 ] DEO
+		!&while
+
+@filename "cat.tal $1