@@ 1025,14 1025,15 @@ JMP2r
@get-chr ( c -- addr* )
- .state/f LDZ ?&fixed
DUP #09 EQU ?&tab
#20 SUB
DUP #5e GTH ?&unknown
- #00 SWP #50 SFT2 ;font/glyphs ADD2
+ #00 SWP
+ .state/f LDZ ?&fixed
+ #50 SFT2 ;font/glyphs ADD2
JMP2r
- &fixed #20 SUB #00 SWP #40 SFT2 ;font-mono/glyphs ADD2 JMP2r
+ &fixed #40 SFT2 ;font-mono/glyphs ADD2 JMP2r
&tab POP ;tab-icn JMP2r
&unknown POP ;checkered-icn JMP2r
@@ 1059,12 1060,13 @@ JMP2r
@get-chrw ( c -- width* )
- .state/f LDZ ?&fixed
DUP #7f GTH ?&unknown
- #0000 ROT ;font ADD2 LDA
+ #0000 ROT
+ .state/f LDZ ?&fixed
+ ;font ADD2 LDA
JMP2r
- &fixed #0000 ROT ;font-mono ADD2 LDA JMP2r
+ &fixed ;font-mono ADD2 LDA JMP2r
&unknown POP #0008 JMP2r
@draw-str-right ( text* -- )