kvisc/dos/str/strcpy.k

59 lines
717 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.
;
; 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