Category : Assembly Language Source Code
Archive   : RHSTDLIB.ZIP
Filename : STRDUPL.ASM

stdlib segment para public 'slcode'
assume cs:stdlib
extrn sl_malloc:far
;
;
; strdupl- Copies string pointed at by cs:rtnadrs to heap and returns a
; pointer to this new string in es:di.
;
;
; inputs:
; cs:rtn- Zero-terminated source string.
; outputs:
; es:di- Points at destination string on heap.
;
;
;
public sl_strdupl
;
rtnadrs equ 2[bp]
;
sl_strdupl proc far
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
neg cx
dec cx
;
; Allocate some storage for the string.
;
push cx ;Save for later
call sl_malloc
pop cx
jc BadStrDupl
;
push es ;Save ptr to string
push di
;
; Copy the string to the new space on the heap.
;
shr cx, 1
jnc CpyWrd
lodsb
stosb
CpyWrd: rep movsw
pop di ;Restore pointer to string.
pop es
;
DidByte: pop si
popf
pop ax
pop cx
pop ds
pop bp
clc
ret
;
BadStrDupl: pop si
popf
pop ax
pop cx
pop ds
pop bp
stc
ret
sl_strdupl endp
;
;
stdlib ends
end