etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
1
Fork 0
Code Issues Projects Releases Wiki Activity

(calc.tal) Merged a few unnecessary SFT

This commit is contained in:
neauoire 2022-03-15 11:13:35 -07:00
parent a63322e207
commit 24474b6b32
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
projects/software/calc.tal
View File

@ -39,21 +39,21 @@
.Screen/width DEI2 #01 SFT2 .center/x STZ2
.Screen/height DEI2 #01 SFT2 .center/y STZ2
.center/x LDZ2 #0020 SUB2
DUP2 .keypad-frame/x STZ2 #0040 ADD2 .keypad-frame/x2 STZ2
DUP2 .keypad-frame/x STZ2 #003f ADD2 .keypad-frame/x2 STZ2
.center/y LDZ2 #0018 SUB2
DUP2 .keypad-frame/y STZ2 #003f ADD2 .keypad-frame/y2 STZ2
.keypad-frame/x LDZ2
DUP2 .modpad-frame/x STZ2 #0040 ADD2 .modpad-frame/x2 STZ2
DUP2 .modpad-frame/x STZ2 #003f ADD2 .modpad-frame/x2 STZ2
.keypad-frame/y LDZ2 #0040 ADD2
DUP2 .modpad-frame/y STZ2 #001f ADD2 .modpad-frame/y2 STZ2
.keypad-frame/x LDZ2
DUP2 .bitpad-frame/x STZ2 #0040 ADD2 .bitpad-frame/x2 STZ2
DUP2 .bitpad-frame/x STZ2 #003f ADD2 .bitpad-frame/x2 STZ2
.modpad-frame/y2 LDZ2 #0008 ADD2
DUP2 .bitpad-frame/y STZ2 #000f ADD2 .bitpad-frame/y2 STZ2
.center/x LDZ2 #0020 SUB2
DUP2 .input-frame/x STZ2 #0040 ADD2 .input-frame/x2 STZ2
DUP2 .input-frame/x STZ2 #003f ADD2 .input-frame/x2 STZ2
.center/y LDZ2 #002a SUB2
DUP2 .input-frame/y STZ2 #0010 ADD2 .input-frame/y2 STZ2
DUP2 .input-frame/y STZ2 #000f ADD2 .input-frame/y2 STZ2
( theme support )
;load-theme JSR2
@ -152,7 +152,7 @@ BRK
@click-bitpad ( state* x* y* -> )
( y ) .bitpad-frame/y LDZ2 SUB2 #03 SFT2 NIP #30 SFT STH
( y ) .bitpad-frame/y LDZ2 SUB2 #33 SFT2 NIP STH
( x ) .bitpad-frame/x LDZ2 SUB2 #03 SFT2 NIP
( value ) STHr ADD STHk
@ -438,7 +438,7 @@ JMP2r
( layout ) #00 OVR ;keypad/layout ADD2 LDA
( layout addr ) #00 SWP #30 SFT2 ;font-hex ADD2 STH2
( x ) #00 OVR #03 AND #40 SFT2 STH2
( y ) #00 OVR #02 SFT #40 SFT2
( y ) #00 OVR #42 SFT2
( origin-x ) STH2r .keypad-frame/x LDZ2 ADD2 SWP2
( origin-y ) .keypad-frame/y LDZ2 ADD2
STH2r STHr STHr ;draw-key JSR2
@ -455,7 +455,7 @@ JMP2r
&loop
( state ) DUP STHkr EQU STH
( glyph ) #00 OVR #30 SFT2 ;mod-icns ADD2 STH2
( y ) #00 OVR #02 SFT #40 SFT2 .modpad-frame/y LDZ2 ADD2 STH2
( y ) #00 OVR #42 SFT2 .modpad-frame/y LDZ2 ADD2 STH2
( x ) #00 OVR #03 AND #40 SFT2 .modpad-frame/x LDZ2 ADD2 STH2
STH2r STH2r STH2r STHr #03 ;draw-key JSR2
INC GTHk ,&loop JCN
@ -468,7 +468,7 @@ JMP2r
#1000
&loop
( y ) #00 OVR #03 SFT #30 SFT2 .bitpad-frame/y LDZ2 ADD2 .Screen/y DEO2
( y ) #00 OVR #33 SFT2 .bitpad-frame/y LDZ2 ADD2 .Screen/y DEO2
( x ) #00 OVR #07 AND #30 SFT2 .bitpad-frame/x LDZ2 ADD2 .Screen/x DEO2
( state ) DUP #0f SWP SUB .input/value LDZ2 ROT SFT2 #0001 AND2
( addr ) #30 SFT2 ;bit-icns ADD2 .Screen/addr DEO2
@ -521,13 +521,10 @@ JMP2r
.input/mode LDZ ,&decimal JCN
#01 .Screen/auto DEO
#00 ,&digit JSR
SWP
SWP ,&byte JSR
&byte
STHk #04 SFT ,&digit JSR
STHr #0f AND ,&digit JSR
STHk #04 SFT ,&digit JSR
STHr #0f AND ,&digit JSR
#00 .Screen/auto DEO
JMP2r
STHr #0f AND
&digit ( num -- )
,&addr JSR .Screen/addr DEO2
[ LIT &color $1 ] .Screen/sprite DEO