uxn/projects/examples/dev.file.usm

70 lines
1.3 KiB
Plaintext

( Dev/File )
%8+ { #0008 ADD2 }
%MEMORY { #1000 }
( devices )
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|10 @Console [ &pad $8 &char $1 &byte $1 &short $2 &string $2 ]
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &color $1 ]
|70 @File [ &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2 ]
( variables )
|0000
( init )
|0100 ( -> )
( theme )
#0efc .System/r DEO2
#03cc .System/g DEO2
#03ac .System/b DEO2
( load file )
#1000 .File/length DEO2
;srcpath .File/name DEO2
MEMORY .File/load DEO2
.File/success DEI2 #0000 NEQ2 ;on-success JNZ2
;failedtxt .Console/string DEO2
BRK
@on-success ( -> )
;successtxt .Console/string DEO2
( draw image )
MEMORY .Screen/addr DEO2
#0000 #0080
&ver
( save ) OVR2 .Screen/y DEO2
#0000 #0080
&hor
( save ) OVR2 .Screen/x DEO2
( draw ) #41 .Screen/color DEO
( incr ) .Screen/addr DEI2 #0010 ADD2 .Screen/addr DEO2
( incr ) SWP2 8+ SWP2
OVR2 OVR2 LTH2 ,&hor JNZ
POP2 POP2
( incr ) SWP2 8+ SWP2
OVR2 OVR2 LTH2 ,&ver JNZ
POP2 POP2
( save file )
#1000 .File/length DEO2
;dstpath .File/name DEO2
MEMORY .File/save DEO2
BRK
@successtxt "Success! $1
@failedtxt "Failed. $1
@srcpath "projects/pictures/ako10x10.chr $1
@dstpath "bin/image-copy.chr $1