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

Added input to the calculator

This commit is contained in:
neauoire 2021-09-18 12:27:19 -07:00
parent 39a93bda40
commit 3d8cf7c257
1 changed files with 34 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
projects/software/calc.tal
View File

@ -6,9 +6,11 @@
%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
%4/ { #02 SFT }
%4* { #20 SFT }
%2** { #10 SFT2 } %2// { #01 SFT2 }
%4** { #20 SFT2 }
%8** { #30 SFT2 } %8// { #03 SFT2 }
%10** { #40 SFT2 }
%10** { #40 SFT2 } %10// { #04 SFT2 }
%4MOD { #03 AND }
@ -38,6 +40,8 @@
|0000
@input
&length $1 &value $2
@center
&x $2 &y $2
@rect
@ -106,15 +110,42 @@ BRK
@click-keypad ( -> )
#00 .Mouse/state DEO
#aa DEBUG
( get key )
.Mouse/x DEI2 .keypad-frame/x LDZ2 -- 10// 4MOD
.Mouse/y DEI2 .keypad-frame/y LDZ2 -- 10// 4**
++ ;keypad/layout ++ LDA ;push-key JSR2
( release mouse ) #00 .Mouse/state DEO
BRK
@push-key ( key -- )
TOS .input/value LDZ2 #40 SFT2 ++ .input/value STZ2
.input/length LDZ INC .input/length STZ
;draw-value JSR2
RTN
@redraw ( -- )
;draw-keypad JSR2
;draw-modpad JSR2
;draw-value JSR2
RTN
@draw-value ( -- )
.center/y LDZ2 #0030 -- .Screen/y DEO2
#04 #00
&loop
( x ) DUP TOS 8** .center/x LDZ2 SWP2 -- .Screen/x DEO2
( value ) STHk .input/value LDZ2 STHr 4* SFT2 #000f AND2
( value glyph ) 8** ;font-hex ++ .Screen/addr DEO2
#01 .Screen/sprite DEO
INC GTHk ,&loop JCN
POP2
RTN