bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Apple2: automatically enable lowercase starting from //e

Browse Source
This commit is contained in:
Colin Leroy-Mira
2025-05-21 20:47:21 +02:00
committed by Oliver Schmidt
parent f8c51ffd3d
commit 89daccaa43
1 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
libsrc/apple2/uppercasemask.s
View File

@@ -4,6 +4,25 @@
.export uppercasemask .export uppercasemask
.ifndef __APPLE2ENH__
.import machinetype
.constructor detectlowercase
.endif
.ifndef __APPLE2ENH__
.segment "ONCE"
detectlowercase:
bit machinetype
bpl :+
lda #$FF
sta uppercasemask
: rts
.endif
.data .data
uppercasemask: .byte $DF ; Convert to uppercase uppercasemask: .byte $DF ; Convert to uppercase