0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-12-18 06:20:18 +00:00
uxn/projects/examples/devices/file.save.tal

42 lines
813 B
Tal
Raw Normal View History

2021-05-21 13:10:57 +00:00
( simple Dev/File writing example )
( devices )
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|a0 @File [ &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2 ]
( variables )
|0000
( init )
|0100 ( -> )
;try-save JSR2
BRK
2021-05-21 13:10:57 +00:00
@try-save ( -- )
2021-05-21 13:10:57 +00:00
( save contents to file )
;contents/end ;contents SUB2 .File/length DEO2
;filename .File/name DEO2
;contents .File/save DEO2
.File/success DEI2 ORA ,&success JCN
( failed to write: bright yellow background )
#f0f7 .System/r DEO2
#f0f7 .System/g DEO2
#00f7 .System/b DEO2
JMP2r
2021-05-21 13:10:57 +00:00
&success
( write successful: dark blue background )
#00f7 .System/r DEO2
#00f7 .System/g DEO2
#40f7 .System/b DEO2
JMP2r
2021-05-21 13:10:57 +00:00
@filename "hello.txt 00
@contents "Hello 20 "world, 0a "how 20 "are 20 "you? 0a
2021-05-21 13:10:57 +00:00
&end