Fix reverse lowercase on Apple][
Some checks failed
Snapshot Build / Build, Test, and Snapshot (Linux) (push) Has been skipped
Snapshot Build / Build (Windows) (push) Has been cancelled

Fixes #2831.
Thanks to Alex Volkov for the patch
This commit is contained in:
Colin Leroy-Mira
2026-04-13 08:43:15 +02:00
committed by Oliver Schmidt
parent 8fcee1b552
commit d20d99b32b

View File

@@ -109,16 +109,14 @@ newline:
: jmp VTABZ : jmp VTABZ
putchar: putchar:
.ifdef __APPLE2ENH__
ldy INVFLG
cpy #$FF ; Normal character display mode?
beq putchardirect
cmp #$E0 ; Lowercase? cmp #$E0 ; Lowercase?
bcc mask and INVFLG ; Apply normal, inverse, flash
and #$7F ; Inverse lowercase bcc putchardirect ; Not lowercase, no special handling
bra putchardirect .ifndef __APPLE2ENH__
bit machinetype
bpl putchardirect ; Mask normally for ][/+ ; done
.endif .endif
mask: and INVFLG ; Apply normal, inverse, flash ora #$40 ; Restore lowercase bit for //e and up
putchardirect: putchardirect:
tax tax