Started implemented bit input to calc.tal

This commit is contained in:
neauoire 2021-09-22 17:05:18 -07:00
parent 30c1e4dc6c
commit 7c9cf2d17c
1 changed files with 99 additions and 29 deletions

View File

@ -7,6 +7,7 @@
%2* { #10 SFT } %2* { #10 SFT }
%4* { #20 SFT } %4/ { #02 SFT } %4* { #20 SFT } %4/ { #02 SFT }
%8/ { #03 SFT }
%2** { #10 SFT2 } %2// { #01 SFT2 } %2** { #10 SFT2 } %2// { #01 SFT2 }
%4** { #20 SFT2 } %4** { #20 SFT2 }
%8** { #30 SFT2 } %8// { #03 SFT2 } %8** { #30 SFT2 } %8// { #03 SFT2 }
@ -52,6 +53,8 @@
&x $2 &y $2 &x2 $2 &y2 $2 &x $2 &y $2 &x2 $2 &y2 $2
@modpad-frame @modpad-frame
&x $2 &y $2 &x2 $2 &y2 $2 &x $2 &y $2 &x2 $2 &y2 $2
@bitpad-frame
&x $2 &y $2 &x2 $2 &y2 $2
@input-frame @input-frame
&x $2 &y $2 &x2 $2 &y2 $2 &x $2 &y $2 &x2 $2 &y2 $2
@ -89,16 +92,23 @@
DUP2 .keypad-frame/y STZ2 DUP2 .keypad-frame/y STZ2
#0040 ++ .keypad-frame/y2 STZ2 #0040 ++ .keypad-frame/y2 STZ2
.keypad-frame/x LDZ2 #0040 ++ .keypad-frame/x LDZ2
DUP2 .modpad-frame/x STZ2 DUP2 .modpad-frame/x STZ2
#0010 ++ .modpad-frame/x2 STZ2 #0040 ++ .modpad-frame/x2 STZ2
.keypad-frame/y LDZ2 .keypad-frame/y LDZ2 #0040 ++
DUP2 .modpad-frame/y STZ2 DUP2 .modpad-frame/y STZ2
#0040 ++ .modpad-frame/y2 STZ2 #0010 ++ .modpad-frame/y2 STZ2
.keypad-frame/x LDZ2
DUP2 .bitpad-frame/x STZ2
#0040 ++ .bitpad-frame/x2 STZ2
.keypad-frame/y LDZ2 #0058 ++
DUP2 .bitpad-frame/y STZ2
#0010 ++ .bitpad-frame/y2 STZ2
.center/x LDZ2 #0028 -- .center/x LDZ2 #0028 --
DUP2 .input-frame/x STZ2 DUP2 .input-frame/x STZ2
#0050 ++ .input-frame/x2 STZ2 #0040 ++ .input-frame/x2 STZ2
.center/y LDZ2 #0030 -- .center/y LDZ2 #0030 --
DUP2 .input-frame/y STZ2 DUP2 .input-frame/y STZ2
#0010 ++ .input-frame/y2 STZ2 #0010 ++ .input-frame/y2 STZ2
@ -165,6 +175,8 @@ BRK
;within-rect JSR2 ;click-input JCN2 ;within-rect JSR2 ;click-input JCN2
OVR2 OVR2 .modpad-frame OVR2 OVR2 .modpad-frame
;within-rect JSR2 ;click-modpad JCN2 ;within-rect JSR2 ;click-modpad JCN2
OVR2 OVR2 .bitpad-frame
;within-rect JSR2 ;click-bitpad JCN2
POP2 POP2 POP2 POP2
BRK BRK
@ -182,9 +194,9 @@ BRK
@click-modpad ( x* y* -> ) @click-modpad ( x* y* -> )
NIP2 POP2
( get key ) ( get key )
.modpad-frame/y LDZ2 -- 10// NIP .modpad-frame/x LDZ2 -- 10// NIP
DUP #00 ! ,&no-add JCN ;do-add JSR2 &no-add DUP #00 ! ,&no-add JCN ;do-add JSR2 &no-add
DUP #01 ! ,&no-sub JCN ;do-sub JSR2 &no-sub DUP #01 ! ,&no-sub JCN ;do-sub JSR2 &no-sub
DUP #02 ! ,&no-mul JCN ;do-mul JSR2 &no-mul DUP #02 ! ,&no-mul JCN ;do-mul JSR2 &no-mul
@ -195,16 +207,22 @@ BRK
BRK BRK
@click-bitpad ( x* y* -> )
DEBUG2 DEBUG2
BRK
@click-input ( x* y* -> ) @click-input ( x* y* -> )
POP2 POP2
.input-frame/x LDZ2 #0008 ++ -- 10// NIP .input-frame/x LDZ2 -- 8// NIP
DUP #03 ! ,&no-push JCN DUP #06 ! ,&no-push JCN
.input/value LDZ2 #0001 << ,&no-push-empty JCN .input/value LDZ2 #0001 << ,&no-push-empty JCN
;do-push JSR2 ;do-push JSR2
&no-push-empty &no-push-empty
&no-push &no-push
DUP #04 ! ,&no-pop JCN DUP #07 ! ,&no-pop JCN
;do-pop JSR2 ;do-pop JSR2
&no-pop &no-pop
POP POP
@ -341,6 +359,7 @@ RTN
#ff ;draw-keypad JSR2 #ff ;draw-keypad JSR2
#ff ;draw-modpad JSR2 #ff ;draw-modpad JSR2
#ff ;draw-input JSR2 #ff ;draw-input JSR2
;draw-bitpad JSR2
;draw-stack JSR2 ;draw-stack JSR2
RTN RTN
@ -387,8 +406,7 @@ RTN
@draw-input ( key -- ) @draw-input ( key -- )
STH STH
.input-frame/y LDZ2 #0003 ++ .Screen/y DEO2
.input-frame/y LDZ2 #0002 ++ .Screen/y DEO2
#04 #00 #04 #00
&loop &loop
( x ) DUP TOS 8** .input-frame/x LDZ2 #0018 ++ SWP2 -- .Screen/x DEO2 ( x ) DUP TOS 8** .input-frame/x LDZ2 #0018 ++ SWP2 -- .Screen/x DEO2
@ -402,13 +420,13 @@ RTN
( controls ) ( controls )
.input-frame/x LDZ2 #0030 ++ .input-frame/x LDZ2 #0030 ++
.input-frame/y LDZ2 .input-frame/y LDZ2
;stack-icns/push [ STHkr #00 = ] #01 ;stack-icns/push [ STHkr #00 = ] #02
;draw-key JSR2 ;draw-key-thin JSR2
.input-frame/x LDZ2 #0040 ++ .input-frame/x LDZ2 #0038 ++
.input-frame/y LDZ2 .input-frame/y LDZ2
;stack-icns/pop [ STHkr #01 = ] #02 ;stack-icns/pop [ STHkr #01 = ] #03
;draw-key JSR2 ;draw-key-thin JSR2
( line ) ( line )
.input-frame/x LDZ2 .input-frame/x LDZ2
@ -445,20 +463,40 @@ RTN
STH STH
#04 #00 #04 #00
&loop &loop
( color ) #03 STH ( state ) DUP STHkr = STH
( state ) DUP OVRr STHr = STH ( glyph ) DUP TOS 8** ;mod-icns ++ STH2
( layout ) DUP TOS 8** ;mod-icns ++ STH2 ( y ) .modpad-frame/y LDZ2 STH2
( x ) #0000 STH2 ( x ) DUP TOS 10** .modpad-frame/x LDZ2 ++ STH2
( y ) DUP TOS 10** STH2r STH2r STH2r STHr #03 ;draw-key JSR2
( origin-x ) STH2r .modpad-frame/x LDZ2 ++ SWP2
( origin-y ) .modpad-frame/y LDZ2 ++
STH2r STHr STHr ;draw-key JSR2
INC GTHk ,&loop JCN INC GTHk ,&loop JCN
POP2 POP2
POPr POPr
RTN RTN
@draw-bitpad ( -- )
#10 #00
&loop
( state ) #00 STH
( y ) .bitpad-frame/y LDZ2 STH2
( x ) DUP TOS 4** .bitpad-frame/x LDZ2 ++
STH2r STHr #01 ;draw-bit JSR2
INC GTHk ,&loop JCN
POP2
RTN
@draw-bit ( x* y* state color -- )
STH
( addr ) POP ;bit-icns .Screen/addr DEO2
( y ) .Screen/y DEO2
( x ) .Screen/x DEO2
STHr .Screen/sprite DEO
RTN
@draw-key ( x* y* glyph* state color -- ) @draw-key ( x* y* glyph* state color -- )
( auto x addr ) #05 .Screen/auto DEO ( auto x addr ) #05 .Screen/auto DEO
@ -466,8 +504,8 @@ RTN
( state ) ,&state STR ( state ) ,&state STR
( glyph ) ,&glyph STR2 ( glyph ) ,&glyph STR2
( state ) ;button-icns [ #00 ,&state LDR 20** ++ ] .Screen/addr DEO2 ( state ) ;button-icns [ #00 ,&state LDR 20** ++ ] .Screen/addr DEO2
( y* ) .Screen/y DEO2 ( y ) .Screen/y DEO2
( x* ) .Screen/x DEO2 ( x ) .Screen/x DEO2
( draw background ) ( draw background )
,&color LDR .Screen/sprite DEO ,&color LDR .Screen/sprite DEO
,&color LDR .Screen/sprite DEO ,&color LDR .Screen/sprite DEO
@ -485,6 +523,27 @@ RTN
RTN RTN
&color $1 &state $1 &glyph $2 &color $1 &state $1 &glyph $2
@draw-key-thin ( x* y* glyph* state color -- )
( auto y addr ) #06 .Screen/auto DEO
( color ) ,&color STR
( state ) ,&state STR
( glyph ) ,&glyph STR2
( state ) ;button-thin-icns [ #00 ,&state LDR 10** ++ ] .Screen/addr DEO2
( y ) .Screen/y DEO2
( x ) .Screen/x DEO2
( draw background )
,&color LDR .Screen/sprite DEO
,&color LDR .Screen/sprite DEO
( glyph )
,&glyph LDR2 .Screen/addr DEO2
.Screen/y DEI2 #000c -- .Screen/y DEO2
#05 .Screen/sprite DEO
( auto none ) #00 .Screen/auto DEO
RTN
&color $1 &state $1 &glyph $2
( theme ) ( theme )
@theme-txt ".theme $1 @theme-txt ".theme $1
@ -613,11 +672,22 @@ RTN
ffff ffff ff7f 3f00 ffff ffff ff7f 3f00
fefe fefe fefc f800 fefe fefe fefc f800
@button-thin-icns
&outline
3844 8282 8282 8282
8282 8282 8244 3800
&full
387c fefe fefe fefe
fefe fefe fe7c 3800
@bit-icns
e0e0 e0e0 e0e0 e000
@stack-icns @stack-icns
&push &push
0000 0010 2844 0000 0000 1028 1000 0000
&pop &pop
0000 1038 7c38 1000 0000 2810 2800 0000
@pointer-icn @pointer-icn
80c0 e0f0 f8e0 1000 80c0 e0f0 f8e0 1000