ASSEMBLY - RHSTDLIB.ZIP - STRCPYL.ASM

 
Output of file : STRCPYL.ASM contained in archive : RHSTDLIB.ZIP

stdlib segment para public 'slcode'
assume cs:stdlib
;
;
; strcpyl- Copies string pointed at by cs:rtnadrs to es:di.
;
;
; inputs:
; cs:rtn- Zero-terminated source string.
; es:di- Buffer for destination string.
; outputs:
; es:di- Still points at destination string.
;
;
; Note: The destination buffer must be large enough to hold the string and
; zero terminating byte.
;
public sl_strcpyl
;
rtnadrs equ 6[bp]
destptr equ 2[bp]
;
sl_strcpyl proc far
push es
push di
push bp
mov bp, sp
push ds
push cx
push ax
pushf
push si
;
cld
mov al, 0
mov cx, 0ffffh
les di, rtnadrs
repne scasb
lds si, rtnadrs
mov rtnadrs, di
les di, destptr
neg cx
dec cx
shr cx, 1
jnc CpyWrd
lodsb
stosb
CpyWrd: rep movsw
;
DidByte: pop si
popf
pop ax
pop cx
pop ds
pop bp
pop di
pop es
ret
sl_strcpyl endp
;
;
stdlib ends
end