d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed unused routines in calc.tal

This commit is contained in:
neauoire 2021-09-20 15:44:05 -07:00
parent 0c8a7feec5
commit ba76eae6a8
1 changed files with 1 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
projects/software/calc.tal
View File

@ -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