Browse code
Fixed label alignment
Andrew Alderwick authored on 24/05/2021 21:27:45
Showing 1 changed files
| ... | ... |
@@ -75,7 +75,7 @@ RTN |
| 75 | 75 |
@draw-label-right ( x y color addr -- ) |
| 76 | 76 |
|
| 77 | 77 |
( load ) .label/addr STZ2 .label/color STZ .Screen/y DEO2 |
| 78 |
- ( align ) .label/addr LDZ2 ;get-text-length JSR2 #0008 MUL2 SUB2 #0008 SUB2 .Screen/x DEO2 |
|
| 78 |
+ ( align ) .label/addr LDZ2 ;get-text-length JSR2 #0008 MUL2 SUB2 .Screen/x DEO2 |
|
| 79 | 79 |
.label/addr LDZ2 |
| 80 | 80 |
&loop |
| 81 | 81 |
( draw ) DUP2 LDA #00 SWP #0008 MUL2 ;font ADD2 .Screen/addr DEO2 .label/color LDZ .Screen/color DEO |