Fixed label alignment
This commit is contained in:
parent
ebfc496ca2
commit
693742a7a4
|
@ -75,7 +75,7 @@ RTN
|
||||||
@draw-label-right ( x y color addr -- )
|
@draw-label-right ( x y color addr -- )
|
||||||
|
|
||||||
( load ) .label/addr STZ2 .label/color STZ .Screen/y DEO2
|
( load ) .label/addr STZ2 .label/color STZ .Screen/y DEO2
|
||||||
( align ) .label/addr LDZ2 ;get-text-length JSR2 #0008 MUL2 SUB2 #0008 SUB2 .Screen/x DEO2
|
( align ) .label/addr LDZ2 ;get-text-length JSR2 #0008 MUL2 SUB2 .Screen/x DEO2
|
||||||
.label/addr LDZ2
|
.label/addr LDZ2
|
||||||
&loop
|
&loop
|
||||||
( draw ) DUP2 LDA #00 SWP #0008 MUL2 ;font ADD2 .Screen/addr DEO2 .label/color LDZ .Screen/color DEO
|
( draw ) DUP2 LDA #00 SWP #0008 MUL2 ;font ADD2 .Screen/addr DEO2 .label/color LDZ .Screen/color DEO
|
||||||
|
|
Loading…
Reference in New Issue