diff --git a/src/left.tal b/src/left.tal index 75748b3..e632869 100644 --- a/src/left.tal +++ b/src/left.tal @@ -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* -- )