From ba76eae6a8a361737dc881c565524189b1906246 Mon Sep 17 00:00:00 2001 From: neauoire Date: Mon, 20 Sep 2021 15:44:05 -0700 Subject: [PATCH] Removed unused routines in calc.tal --- projects/software/calc.tal | 42 +------------------------------------- 1 file changed, 1 insertion(+), 41 deletions(-) diff --git a/projects/software/calc.tal b/projects/software/calc.tal index e40b5ae..09202e8 100644 --- a/projects/software/calc.tal +++ b/projects/software/calc.tal @@ -414,7 +414,7 @@ RTN STH #04 #00 &loop - ( color ) DUP TOS ;modpad/color ++ LDA STH + ( color ) #03 STH ( state ) DUP OVRr STHr = STH ( layout ) DUP TOS 8** ;mod-icns ++ STH2 ( x ) #0000 STH2 @@ -431,11 +431,9 @@ RTN @draw-key ( x* y* glyph* state color -- ) ( auto x addr ) #05 .Screen/auto DEO - ( color ) ,&color STR ( state ) ,&state STR ( glyph ) ,&glyph STR2 - ( state ) ;button-icns [ #00 ,&state LDR 20** ++ ] .Screen/addr DEO2 ( y* ) .Screen/y DEO2 ( x* ) .Screen/x DEO2 @@ -485,39 +483,6 @@ RTN RTN - -@line-rect ( rect color -- ) - - STH STH - ( y2 ) STHkr #06 + LDZ2 - ( y1 ) STHkr #02 + LDZ2 #0001 -- ( flip sign ) GTH2k SWP2? - &ver - ( save ) DUP2 .Screen/y DEO2 - ( x1 ) STHkr LDZ2 #0001 -- .Screen/x DEO2 - OVRr STHr .Screen/pixel DEO - ( x2 ) STHkr #04 + LDZ2 .Screen/x DEO2 - OVRr STHr .Screen/pixel DEO - ( incr ) - INC2 GTH2k ,&ver JCN - POP2 - ( x2 ) STHkr #04 + LDZ2 - ( x1 ) STHkr LDZ2 #0001 -- ( flip sign ) GTH2k SWP2? - &hor - ( save ) DUP2 .Screen/x DEO2 - ( y1 ) STHkr #02 + LDZ2 #0001 -- .Screen/y DEO2 - OVRr STHr .Screen/pixel DEO - ( y2 ) STHkr #06 + LDZ2 .Screen/y DEO2 - OVRr STHr .Screen/pixel DEO - ( incr ) - INC2 GTH2k ,&hor JCN - POP2 - POPr - .Screen/x DEO2 - .Screen/y DEO2 - STHr .Screen/pixel DEO - -RTN - @print-hex ( value* -- ) &short ( value* -- ) @@ -552,11 +517,6 @@ RTN 0101 0102 0102 0202 -@modpad - &color - 0303 0303 - 0303 0303 - @font-hex 007c 8282 8282 827c 0030 1010 1010 1010 007c 8202 7c80 80fe 007c 8202 1c02 827c