mirror of
https://github.com/cc65/cc65.git
synced 2024-11-02 18:06:48 +00:00
53dd513176
which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
48 lines
735 B
ArmAsm
48 lines
735 B
ArmAsm
;
|
|
; Ullrich von Bassewitz, 31.05.1998
|
|
;
|
|
; char* strrchr (const char* s, int c);
|
|
;
|
|
|
|
.export _strrchr
|
|
.import popax
|
|
.importzp ptr1, ptr2, tmp1
|
|
|
|
_strrchr:
|
|
sta tmp1 ; Save c
|
|
jsr popax ; get s
|
|
sta ptr1
|
|
stx ptr1+1
|
|
lda #0 ; function result = NULL
|
|
sta ptr2
|
|
sta ptr2+1
|
|
tay
|
|
|
|
L1: lda (ptr1),y ; get next char
|
|
beq L3 ; jump if end of string
|
|
cmp tmp1 ; found?
|
|
bne L2 ; jump if no
|
|
|
|
; Remember a pointer to the character
|
|
|
|
tya
|
|
clc
|
|
adc ptr1
|
|
sta ptr2
|
|
lda ptr1+1
|
|
adc #$00
|
|
sta ptr2+1
|
|
|
|
; Next char
|
|
|
|
L2: iny
|
|
bne L1
|
|
inc ptr1+1
|
|
bne L1 ; jump always
|
|
|
|
; Return the pointer to the last occurrence
|
|
|
|
L3: lda ptr2
|
|
ldx ptr2+1
|
|
rts
|