160 lines
3.6 KiB
Tal
160 lines
3.6 KiB
Tal
|
( uxnemu sliderule.rom )
|
||
|
|
|
||
|
|
|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|
||
|
|
|10 @Console &vector $2 &read $1 &pad $5 &write $1
|
||
|
|
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|
||
|
|
|80 @Controller &vector $2 &button $1 &key $1
|
||
|
|
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &chord $1
|
||
|
|
|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|
||
|
|
|
||
|
|
|0000
|
||
|
|
|
||
|
|
@cursor &x $2 &y $2
|
||
|
|
@rods $a $1
|
||
|
|
|
||
|
|
|0100
|
||
|
|
|
||
|
|
@on-reset ( -> )
|
||
|
|
( | theme )
|
||
|
|
#a10f .System/r DEO2
|
||
|
|
#a00f .System/g DEO2
|
||
|
|
#a00f .System/b DEO2
|
||
|
|
load-theme
|
||
|
|
( | size )
|
||
|
|
#0148 .Screen/width DEO2
|
||
|
|
#0078 .Screen/height DEO2
|
||
|
|
( | unlock )
|
||
|
|
;on-mouse .Mouse/vector DEO2
|
||
|
|
<redraw>
|
||
|
|
BRK
|
||
|
|
|
||
|
|
(
|
||
|
|
@|vectors )
|
||
|
|
|
||
|
|
@on-mouse ( -> )
|
||
|
|
BRK
|
||
|
|
|
||
|
|
(
|
||
|
|
@|core )
|
||
|
|
|
||
|
|
(
|
||
|
|
@|drawing )
|
||
|
|
|
||
|
|
@<redraw> ( -- )
|
||
|
|
<draw-sliderule>
|
||
|
|
JMP2r
|
||
|
|
|
||
|
|
@<draw-sliderule> ( -- )
|
||
|
|
#0020 .Screen/x DEO2
|
||
|
|
#0020 .Screen/y DEO2
|
||
|
|
( | cap )
|
||
|
|
#25 .Screen/auto DEO
|
||
|
|
;cap-chr .Screen/addr DEO2
|
||
|
|
#85 .Screen/sprite DEO
|
||
|
|
<draw-rule>
|
||
|
|
<draw-rule>
|
||
|
|
<draw-rule>
|
||
|
|
JMP2r
|
||
|
|
|
||
|
|
@<draw-rule> ( -- )
|
||
|
|
#2300
|
||
|
|
&l ( -- )
|
||
|
|
( | bg )
|
||
|
|
#06 .Screen/auto DEO
|
||
|
|
;bg-chr .Screen/addr DEO2
|
||
|
|
[ LIT2 85 -Screen/sprite ] DEOk DEO
|
||
|
|
|
||
|
|
( | scale )
|
||
|
|
#05 .Screen/auto DEO
|
||
|
|
#00 OVR #40 SFT2 ;rule-chr ADD2 .Screen/addr DEO2
|
||
|
|
[ LIT2 85 -Screen/sprite ] DEO
|
||
|
|
( adjust ) .Screen/y DEI2k #0010 SUB2 ROT DEO2
|
||
|
|
INC GTHk ?&l
|
||
|
|
POP2
|
||
|
|
( adjust ) .Screen/x DEI2k #0005 SUB2 ROT DEO2
|
||
|
|
JMP2r
|
||
|
|
|
||
|
|
(
|
||
|
|
@|utils )
|
||
|
|
|
||
|
|
@load-theme ( -- )
|
||
|
|
;&path .File/name DEO2
|
||
|
|
#0002 .File/length DEO2
|
||
|
|
;&r .File/read DEO2
|
||
|
|
;&g .File/read DEO2
|
||
|
|
;&b .File/read DEO2
|
||
|
|
.File/success DEI2 ORA #01 JCN
|
||
|
|
JMP2r
|
||
|
|
LIT2 &r $2
|
||
|
|
.System/r DEO2
|
||
|
|
LIT2 &g $2
|
||
|
|
.System/g DEO2
|
||
|
|
LIT2 &b $2
|
||
|
|
.System/b DEO2
|
||
|
|
JMP2r
|
||
|
|
&path ".theme $1
|
||
|
|
|
||
|
|
(
|
||
|
|
@|spritesheet )
|
||
|
|
|
||
|
|
@cursor-icn
|
||
|
|
[ 80c0 e0f0 f8e0 1000 ]
|
||
|
|
|
||
|
|
@num-icn
|
||
|
|
[
|
||
|
|
3c66 6e76 6666 3c00 1838 1818 1818 7e00
|
||
|
|
3c66 060c 1830 7e00 7e0c 180c 0666 3c00
|
||
|
|
0c1c 3c6c 7e0c 0c00 7e60 7c06 0666 3c00
|
||
|
|
3c60 607c 6666 3c00 7e06 0c18 3030 3000
|
||
|
|
3c66 663c 6666 3c00 3c66 663e 060c 3800 ]
|
||
|
|
|
||
|
|
@bg-chr
|
||
|
|
[
|
||
|
|
00ff ffff ffff ffff ffff ffff ffff ffff
|
||
|
|
ffff ffff ffff ffff ffff ffff ffff ffff ]
|
||
|
|
|
||
|
|
@cap-chr
|
||
|
|
[
|
||
|
|
003f 7f7f 7f7f 7f7f 3f7f ffff ffff ffff
|
||
|
|
7f7f 7f7f 7f7f 7f7f ffff ffff ffff ffff
|
||
|
|
7f7f 7f7f 7f7f 3f00 ffff ffff ffff 7f3f ]
|
||
|
|
|
||
|
|
@rule-chr
|
||
|
|
[
|
||
|
|
7f7f 7f7f 6d6d ff00 ffff ffff ffff ffff
|
||
|
|
ffff fefe b6b6 ff00 ffff ffff ffff ffff
|
||
|
|
ffff ffff dbdb ff00 ffff ffff ffff ffff
|
||
|
|
fdfd fdfd 6d6d ff00 ffff ffff ffff ffff
|
||
|
|
ffff ffff b6b6 ff00 ffff ffff ffff ffff
|
||
|
|
ffff fbfb dbdb ff00 ffff ffff ffff ffff
|
||
|
|
ffff ffff 6d6d ff00 ffff ffff ffff ffff
|
||
|
|
efef efef adad ff00 ffff ffff ffff ffff
|
||
|
|
ffff ffff b6b6 ff00 ffff ffff ffff ffff
|
||
|
|
ffff dfdf dbdb ff00 ffff ffff ffff ffff
|
||
|
|
fefe fefe 6a6a ff00 ffff ffff ffff ffff
|
||
|
|
ffff ffff dbdb ff00 ffff ffff ffff ffff
|
||
|
|
ffff fdfd 6d6d ff00 ffff ffff ffff ffff
|
||
|
|
ffff ffff b5b5 ff00 ffff ffff ffff ffff
|
||
|
|
dfdf dfdf 5b5b ff00 ffff ffff ffff ffff
|
||
|
|
ffff ffff 6d6d ff00 ffff ffff ffff ffff
|
||
|
|
ffff bfbf b5b5 ff00 ffff ffff ffff ffff
|
||
|
|
f7f7 f7f7 5656 ff00 ffff ffff ffff ffff
|
||
|
|
ffff ffff dbdb ff00 ffff ffff ffff ffff
|
||
|
|
ffff efef 6a6a ff00 ffff ffff ffff ffff
|
||
|
|
fbfb fbfb abab ff00 ffff ffff ffff ffff
|
||
|
|
ffff ffff 6d6d ff00 ffff ffff ffff ffff
|
||
|
|
ffff efef aaaa ff00 ffff ffff ffff ffff
|
||
|
|
fbfb fbfb abab ff00 ffff ffff ffff ffff
|
||
|
|
ffff ffff 6d6d ff00 ffff ffff ffff ffff
|
||
|
|
ffff dfdf 5555 ff00 ffff ffff ffff ffff
|
||
|
|
f7f7 f7f7 5656 ff00 ffff ffff ffff ffff
|
||
|
|
ffff ffff d5d5 ff00 ffff ffff ffff ffff
|
||
|
|
ffff 7f7f 5555 ff00 ffff ffff ffff ffff
|
||
|
|
dfdf dfdf 5a5a ff00 ffff ffff ffff ffff
|
||
|
|
ffff fbfb aaaa ff00 ffff ffff ffff ffff
|
||
|
|
fefe fefe aaaa ff00 ffff ffff ffff ffff
|
||
|
|
ffff ffff aaaa ff00 ffff ffff ffff ffff
|
||
|
|
ffff bfbf aaaa ff00 ffff ffff ffff ffff
|
||
|
|
e0e0 e0e0 a0a0 f000 f0f0 f0f0 f0f0 f0f0 ]
|
||
|
|
|