Fixed label alignment
This commit is contained in:
parent
ebfc496ca2
commit
693742a7a4
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue