mirror of https://git.sr.ht/~rabbits/left
Fixed issue with fixed glyphs
This commit is contained in:
parent
a5cf18f89f
commit
e1cfb10af6
14
src/left.tal
14
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* -- )
|
||||
|
|
Loading…
Reference in New Issue