49 lines
983 B
Plaintext
49 lines
983 B
Plaintext
( Dev/File )
|
|
|
|
%RTN { JMP2r }
|
|
%STEP8 { #0033 SFT2 }
|
|
%++ { #01 ADD }
|
|
|
|
%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 ]
|
|
|40 @Controller [ &vector $2 &button $1 &key $1 ]
|
|
|60 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &chord $1 ]
|
|
|70 @File [ &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2 ]
|
|
|
|
( variables )
|
|
|
|
|0000
|
|
|
|
( init )
|
|
|
|
|0100 ( -> )
|
|
|
|
( theme )
|
|
#804b .System/r DEO2
|
|
#804b .System/g DEO2
|
|
#e0bb .System/b DEO2
|
|
|
|
( load file )
|
|
#0100 .File/length DEO2
|
|
;srcpath .File/name DEO2
|
|
MEMORY .File/load DEO2
|
|
|
|
.File/success DEI2 #0000 NEQ2 ;on-success JNZ2
|
|
|
|
BRK
|
|
|
|
@on-success ( -> )
|
|
|
|
;srcpath .Console/string DEO2
|
|
;dstpath .Console/string DEO2
|
|
|
|
BRK
|
|
|
|
@srcpath "README.md $1
|
|
@dstpath "bin/export.md $1
|