Fix reverse lowercase on Apple][
Fixes #2831. Thanks to Alex Volkov for the patch
This commit is contained in:
committed by
Oliver Schmidt
parent
8fcee1b552
commit
d20d99b32b
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user