Fixed label alignment

This commit is contained in:
Andrew Alderwick 2021-05-24 22:27:45 +01:00
parent ebfc496ca2
commit 693742a7a4
1 changed files with 1 additions and 1 deletions

View File

@ -75,7 +75,7 @@ RTN
@draw-label-right ( x y color addr -- )
( 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
&loop
( draw ) DUP2 LDA #00 SWP #0008 MUL2 ;font ADD2 .Screen/addr DEO2 .label/color LDZ .Screen/color DEO