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

Optimization

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@2151 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2003-05-05 17:19:48 +00:00
parent ebb44b8a4f
commit 32389dc678
1 changed files with 35 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
libsrc/common/memchr.s
View File

@@ -1,57 +1,57 @@
; ;
; Ullrich von Bassewitz, 09.06.1998 ; Ullrich von Bassewitz, 2003-05-05
; ;
; void* memchr (const void* p, int c, size_t n); ; void* __fastcall__ memchr (const void* p, int c, size_t n);
; ;
.export _memchr .export _memchr
.import popax, return0 .import popax, return0
.importzp ptr1, ptr2, tmp1 .importzp ptr1, ptr2
_memchr: .proc _memchr
sta ptr2 ; Save n
stx ptr2+1 eor #$FF
jsr popax ; get c sta ptr2
sta tmp1 txa
eor #$FF
sta ptr2+1 ; Save ones complement of n
jsr popax ; get c
pha
jsr popax ; get p jsr popax ; get p
sta ptr1 sta ptr1
stx ptr1+1 stx ptr1+1
ldy #0 ldy #$00
lda tmp1 ; get c pla ; Get c
ldx ptr2 ; use X as low counter byte ldx ptr2 ; Use X as low counter byte
beq L3 ; check high byte
; Search for the char L1: inx
beq L3
L2: cmp (ptr1),y
beq found
iny
bne L1
inc ptr1+1
bne L1 ; Branch always
L1: cmp (ptr1),y L3: inc ptr2+1 ; Bump counter high byte
beq L5 ; jump if found bne L2
iny
bne L2
inc ptr1+1
L2: cpx #0
beq L3
dex
jmp L1
L3: ldx ptr2+1 ; Check high byte
beq L4 ; Jump if counter off
dec ptr2+1
ldx #$FF
bne L1 ; branch always
; Character not found, return zero ; Not found, return NULL
L4: jmp return0 notfound:
jmp return0
; Character found, calculate pointer ; Found, return pointer to char
L5: ldx ptr1+1 ; get high byte of pointer found: ldx ptr1+1 ; get high byte of pointer
tya ; low byte offset tya ; low byte offset
clc clc
adc ptr1 adc ptr1
bcc L6 bcc L9
inx inx
L6: rts L9: rts
.endproc