kvisc/ka/str/strlen.k

; The OS/K Team licenses this file to you under the MIT license.
; See the LICENSE file in the project root for more information.

;
; int strlen(char *)
;
strlen:
    xor rax, rax

.1:
    test b[ax0], b[ax0]
    cretz

    inc rax
    inc ax0
    jmp .1

;
; int strnlen(char *, int)
;
strnlen:
    xor rax, rax
    mov rcx, ax1
    jcxz .2
    dec rcx

.1:
    test b[ax0], b[ax0]
    cretz

    inc rax
    inc ax0
    loop .1

.2:
    ret