Apple-2gs-SW/ORCALib
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCALib.git synced 2024-06-10 09:29:29 +00:00
Code Issues Projects Releases Wiki Activity

Small optimization of strto* functions.

Browse Source
This commit is contained in:
Stephen Heumann 2023-04-03 20:16:22 -05:00
parent fca8c1ef85
commit cd6131abab
1 changed files with 24 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
stdlib.asm
View File

@ -999,9 +999,10 @@ rtl equ 7 return address
val equ 3 value val equ 3 value
negative equ 1 is the number negative? negative equ 1 is the number negative?
pea 0 make room for & initialize val lda #0
pea 0 pha make room for & initialize val
pea 0 make room for & initialize negative pha
pha make room for & initialize negative
tsc set up direct page addressing tsc set up direct page addressing
phd phd
tcd tcd
@ -1126,10 +1127,11 @@ foundOne equ 1 have we found a number?
ldx #1 ldx #1
init pea 1 make room for & initialize rangeOK init pea 1 make room for & initialize rangeOK
pea 0 make room for & initialize negative lda #0
pea 0 make room for & initialize val pha make room for & initialize negative
pea 0 pha make room for & initialize val
pea 0 make room for & initialize foundOne pha
pha make room for & initialize foundOne
tsc set up direct page addressing tsc set up direct page addressing
phd phd
tcd tcd
@ -1317,13 +1319,14 @@ retptr equ 11 pointer to location for return value
val equ 3 value val equ 3 value
negative equ 1 is the number negative? negative equ 1 is the number negative?
pea 0 make room for & initialize retptr lda #0
pha make room for & initialize retptr
phx phx
pea 0 make room for & initialize val pha make room for & initialize val
pea 0 pha
pea 0 pha
pea 0 pha
pea 0 make room for & initialize negative pha make room for & initialize negative
tsc set up direct page addressing tsc set up direct page addressing
phd phd
tcd tcd
@ -1466,15 +1469,16 @@ foundOne equ 1 have we found a number?
~strtoull entry alt entry point called from strtoll ~strtoull entry alt entry point called from strtoll
ldy #1 ldy #1
init pea 0 make room for & initialize retptr init lda #0
pha make room for & initialize retptr
phx phx
pea 1 make room for & initialize rangeOK pea 1 make room for & initialize rangeOK
pea 0 make room for & initialize negative pha make room for & initialize negative
pea 0 make room for & initialize val pha make room for & initialize val
pea 0 pha
pea 0 pha
pea 0 pha
pea 0 make room for & initialize foundOne pha make room for & initialize foundOne
tsc set up direct page addressing tsc set up direct page addressing
phd phd
tcd tcd