kvisc/dos/str/strlen.k

37 lines
444 B
Plaintext

; 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