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

Apple2: don't define _allow_lowercase and uppercasemask on APPLE2ENH

Browse Source
This commit is contained in:
Colin Leroy-Mira
2025-05-31 13:27:52 +02:00
committed by Oliver Schmidt
parent 89daccaa43
commit d03529067a
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
libsrc/apple2/allow_lowercase.s
View File

@@ -4,8 +4,11 @@
; unsigned char __fastcall__ allow_lowercase (unsigned char onoff); ; unsigned char __fastcall__ allow_lowercase (unsigned char onoff);
; ;
.ifndef __APPLE2ENH__
.export _allow_lowercase .export _allow_lowercase
.import uppercasemask, return0, return1 .import return0
.import uppercasemask, return1
_allow_lowercase: _allow_lowercase:
tax tax
@@ -21,3 +24,5 @@ _allow_lowercase:
values: .byte $DF ; Force uppercase values: .byte $DF ; Force uppercase
.byte $FF ; Keep lowercase .byte $FF ; Keep lowercase
.endif

9
libsrc/apple2/uppercasemask.s
View File

@@ -2,14 +2,12 @@
; Oliver Schmidt, 2024-08-06 ; Oliver Schmidt, 2024-08-06
; ;
.ifndef __APPLE2ENH__
.export uppercasemask .export uppercasemask
.ifndef __APPLE2ENH__
.import machinetype .import machinetype
.constructor detectlowercase .constructor detectlowercase
.endif
.ifndef __APPLE2ENH__
.segment "ONCE" .segment "ONCE"
@@ -21,8 +19,9 @@ detectlowercase:
sta uppercasemask sta uppercasemask
: rts : rts
.endif
.data .data
uppercasemask: .byte $DF ; Convert to uppercase uppercasemask: .byte $DF ; Convert to uppercase
.endif