Apple-2gs-SW
/
ORCALib
mirror of https://github.com/byteworksinc/ORCALib.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Merge pull request #2 from ksherlock/toupper 

tolower/toupper should work with EOF/-1
This commit is contained in:
Stephen Heumann 2017-11-01 18:10:48 -05:00 committed by GitHub
parent 56b101a214 6ebb56af57
commit 89acbf2ced
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ctype.asm
View File

@ -498,6 +498,8 @@ tolower start
pla
sta 1,S
txa
bmi lb2
lda >__ctype+1,X branch if the character is not uppercase
and #_upper
beq lb1
@ -506,7 +508,7 @@ tolower start
rtl
lb1 txa return the input character
rtl
lb2 rtl
end
****************************************************************
@ -530,6 +532,8 @@ toupper start
pla
sta 1,S
txa
bmi lb2
lda >__ctype+1,X branch if the character is not lowercase
and #_lower
beq lb1
@ -538,7 +542,7 @@ toupper start
rtl
lb1 txa return the input character
rtl
lb2 rtl
end
****************************************************************