diff --git a/projects/examples/devices/file.cat.tal b/projects/examples/devices/file.cat.tal new file mode 100644 index 0000000..78ad771 --- /dev/null +++ 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