uxn

commit 3d8cf7c25715db0354d15e55e3e04623a91c6f95
parent 39a93bda402e2846a6e3e80f14cd2740dd5cb650
Author: neauoire <aliceffekt@gmail.com>
Date:   Sat, 18 Sep 2021 12:27:19 -0700

Added input to the calculator

Diffstat:
M
projects/software/calc.tal
 | 
37
++++++++++++++++++++++++++++++++++---

1 file changed, 34 insertions(+), 3 deletions(-)
diff --git a/projects/software/calc.tal b/projects/software/calc.tal
@@ -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