CSEG SEGMENT
     ASSUME CS:CSEG

     PUBLIC COPYPSTR

COPYPSTR 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  8
COPYPSTR ENDP

CSEG ENDS

     END