6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-11 11:30:13 +00:00
Code Issues Projects Releases Wiki Activity

Fix strnlen().

Browse Source
This commit is contained in:
Sven Michael Klose 2021-12-25 09:11:58 +01:00 committed by mrdudz
parent 88fdaeb490
commit 3ee9b35080
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
libsrc/common/strnlen.s
View File

@ -5,25 +5,25 @@
.importzp ptr1, tmp1, tmp2, tmp3, tmp4
.proc _strnlen
; Get maximum length.
tay
iny
sty tmp3
inx
stx tmp4
; Fetch string pointer.
jsr popax
sta ptr1
stx ptr1+1
; Clear return value.
lda #0
sta tmp1
sta tmp2
ldy #0
sty tmp1
sty tmp2
; Get maximum length.
jsr popax
sta tmp3
inc tmp3
inx
stx tmp4
;;; Loop over string.
ldy #0
; Decrement maximum length.
next: dec tmp3
bne l2
@ -35,7 +35,7 @@ l2:
beq done
; Step to next character.
inc ptr1
iny
bne l1
inc ptr1+1
l1:
@ -45,7 +45,7 @@ l1:
bne next
inc tmp2
jmp next
bne next ; (jmp)
done: lda tmp1