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