(label.tal) Housekeeping

This commit is contained in:
Devine Lu Linvega 2022-07-05 11:05:00 -07:00
parent 0c908a9379
commit bba64f4da7
1 changed files with 21 additions and 22 deletions

View File

@ -13,27 +13,31 @@
#a0dc .System/r DEO2 #a0dc .System/r DEO2
#a0dc .System/g DEO2 #a0dc .System/g DEO2
#a0dc .System/b DEO2 #a0dc .System/b DEO2
( find screen center ) ( find screen center )
.Screen/width DEI2 #01 SFT2 .center/x STZ2 .Screen/width DEI2 #01 SFT2 .center/x STZ2
.Screen/height DEI2 #01 SFT2 .center/y STZ2 .Screen/height DEI2 #01 SFT2 .center/y STZ2
( ver )
( dashed line )
#02 .Screen/auto DEO #02 .Screen/auto DEO
#0000 .Screen/y DEO2 #0000 .Screen/y DEO2
.center/x LDZ2 .Screen/x DEO2 .center/x LDZ2 .Screen/x DEO2
.Screen/height DEI2 #0000 .Screen/height DEI2 #0000
&ver &ver
#43 .Screen/pixel DEO DUP #01 AND .Screen/pixel DEO
.Screen/y DEI2k INC2 ROT DEO2
INC2 GTH2k ,&ver JCN INC2 GTH2k ,&ver JCN
POP2 POP2 POP2 POP2
( left ) ( left )
.center/x LDZ2 .Screen/x DEO2 .center/x LDZ2 .Screen/x DEO2
.center/y LDZ2 #0018 SUB2 .Screen/y DEO2 .center/y LDZ2 #0018 SUB2 .Screen/y DEO2
;left-txt ,draw-uf2 JSR ;left-txt ,draw-uf2 JSR
( center ) ( center )
.center/x LDZ2 .Screen/x DEO2 .center/x LDZ2 .Screen/x DEO2
.center/y LDZ2 .Screen/y DEO2 .center/y LDZ2 .Screen/y DEO2
;center-txt ,draw-uf2-center JSR ;center-txt ,draw-uf2-center JSR
( right ) ( right )
.center/x LDZ2 .Screen/x DEO2 .center/x LDZ2 .Screen/x DEO2
.center/y LDZ2 #0018 ADD2 .Screen/y DEO2 .center/y LDZ2 #0018 ADD2 .Screen/y DEO2
@ -41,23 +45,7 @@
BRK BRK
@draw-uf2-center ( text* color -- ) @get-uf2-width ( text* -- width* )
DUP2 ,get-width JSR #01 SFT2 STH2
.Screen/x DEI2k STH2r SUB2 ROT DEO2
,draw-uf2 JSR
JMP2r
@draw-uf2-right ( text* color -- )
DUP2 ,get-width JSR STH2
.Screen/x DEI2k STH2r SUB2 ROT DEO2
,draw-uf2 JSR
JMP2r
@get-width ( text* -- width* )
LIT2r 0000 LIT2r 0000
&while &while
@ -68,14 +56,25 @@ JMP2r
JMP2r JMP2r
@draw-uf2-center ( text* -- )
DUP2 ,get-uf2-width JSR #01 SFT2 STH2
.Screen/x DEI2k STH2r SUB2 ROT DEO2
,draw-uf2 JMP
@draw-uf2-right ( text* -- )
DUP2 ,get-uf2-width JSR STH2
.Screen/x DEI2k STH2r SUB2 ROT DEO2
@draw-uf2 ( text* -- ) @draw-uf2 ( text* -- )
#15 .Screen/auto DEO #15 .Screen/auto DEO
&while &while
LDAk #20 SUB #00 SWP LDAk #20 SUB #00 SWP
DUP2 #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2 DUP2 #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2
;font ADD2 LDA #00 SWP .Screen/x DEI2 ADD2 ;font ADD2 LDA STHk #00 SWP .Screen/x DEI2 ADD2
#01 .Screen/sprite DEOk DEO #01 .Screen/sprite DEOk STHr #08 LTH ,&thin JCN DEOk &thin POP2
.Screen/x DEO2 .Screen/x DEO2
INC2 LDAk ,&while JCN INC2 LDAk ,&while JCN
POP2 POP2