CSEG SEGMENT
     ASSUME CS:CSEG
     PUBLIC COPYSTR

COPYSTR PROC FAR
     PUSH BP
     MOV BP,SP
     PUSH DS
     PUSH ES
     PUSH AX
     PUSH BX
     PUSH CX
     PUSH DX
     PUSH SI
     PUSH DI
     LES DI,[BP+10]
     LDS SI,[BP+6]
     MOV CL,[SI]
     MOV CH,0
     INC CX
     cld
     rep movsb
;CLOOP:
;     MOV DL,[SI]
;     MOV ES:[DI],DL
;     INC SI
;     INC DI
;     LOOP CLOOP
     POP DI
     POP SI
     POP DX
     POP CX
     POP BX
     POP AX
     POP ES
     POP DS
     POP BP
     RET 4
COPYSTR ENDP

CSEG ENDS

     END