etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
1
Fork 0
Code Issues Projects Releases Wiki Activity

Added system.cat example

This commit is contained in:
Devine Lu Linvega 2024-02-14 15:17:08 -08:00
parent 3fa01a63d8
commit 9da44f52d4
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
projects/examples/devices/file.cat.tal Normal file
View File

@ -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