kvisc/dos/str/strcpy.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.

;
; void strcpy(char *, const char *)
;
strcpy:
    mov b[ax0], b[ax1]

    test b[ax1], b[ax1]
    cretz

    inc ax0
    inc ax1
    jmp strcpy

;
; void strncpy(char *, const char *, int)
;
strncpy:
    mov rcx, ax2
    jcxz .2
    dec rcx

.1:
    mov b[ax0], b[ax1]

    test b[ax1], b[ax1]
    cretz

    inc ax0
    inc ax1
    loop .1

.2:
    ret

;
; void strnzcpy(char *, const char *, int)
;
strnzcpy:
    mov rcx, ax2
    jcxz .2
    dec rcx

.1:
    mov b[ax0], b[ax1]

    test b[ax1], b[ax1]
    cretz

    inc ax0
    inc ax1
    loop .1

.2:
    mov b[ax0], 0
    ret