          .586
          .MODEL  flat
		  
	  .CODE
	  public   CopyS
          externdef    Print:near
CopyS     PROC     NEAR PASCAL PUBLIC USES ESI EDI,Str1:PTR DWORD,Str2:PTR DWORD
          LOCAL    S[256]:byte
; Копируем строку в локальную память
  	  mov      ESI,Str1
  	  lea      EDI,S
          xor      EAX,EAX
  	  lodsb
   	  stosb
 	  mov      ECX,EAX
  	  cld
      rep movsb
; Копируем строку в результат
  	  lea      ESI,S
  	  mov      EDI,Str2
   	  lodsb
  	  stosb
  	  mov      ECX,EAX
      rep movsb
; Выводим длину строки
          push     EAX
          call     Print

          ret
CopyS     endp
          end