کپی رشته

[azimraeesi]

سلام
کد برنام که مسیر یک فایل متنی را از صفحه کلید بگیرد و محتویات ان را در یک فایل دیگر در مسیر دلخواه کپی کند

[azimraeesi]

کسی نیست کمک کند

[pashaie]

یه کدی واسه کار دیگه ای نوشته بودم ولی با کمی تغییر کد مورد نظر شما شد
خدمت شما

    org  100h

    

    lea dx, msg_start

    mov ah, 9

    int 21h

    

    lea dx, pathBuf

    mov ah, 0ah

    int 21h 

    

    lea bx, pathBuf

    sub ax, ax

    mov al, pathBuf[1]    

    mov si, ax     

    mov bx[si+2], 0

    

    lea dx, pathBuf    

    inc dx

    inc dx    

    mov al, 0 

    mov ah, 3Dh 

    int 21h    

    jc  err_open

    mov ReadH, ax 

    

    mov ah, 3Ch 

    mov cx, 0

    lea dx, ResultFN    

    int 21h

    jc  err_create

    mov WriteH, ax  

                    

    mov ah, 3Fh 

    mov bx, ReadH

    mov cx, 2048

    lea dx, buffer

    int 21h  



    mov si, 0        

    copy_start:

    mov bh, buffer[si]

    inc si

    cmp si, ax

    jl  copy_start    

    

    mov cx, ax

    mov ah, 40h

    mov bx, WriteH

    lea dx, buffer

    int 21h 

    

    lea dx, msg_ok

    mov ah, 9

    int 21h

    mov ah, 3Eh 

    mov bx, ReadH

    int 21h 

    mov ah, 3Eh 

    mov bx, WriteH

    int 21h 

    jmp end_of_program

    

    err_open:

    lea dx, msg_err_o

    mov ah, 9

    int 21h 

    jmp end_of_program

    

    err_create:

    lea dx, msg_err_c

    mov ah, 9

    int 21h 

    jmp end_of_program

    

    end_of_program:

    lea dx, msg_key

    mov ah, 9

    int 21h

   

    mov ah, 1

    int 21h

    ret    



    msg_start   db "Note: this program will just convert first 2kb of input file."

                db 13,10,"Input File: $"

    msg_err_o   db 13,10,"Error in opening file.$"

    msg_err_c   db 13,10,"Error in creating file.$"    

    msg_ok      db 13,10,"Mission Accomplished!$"

    msg_key     db 13,10,"Press any key to continue.$"    

    ResultFN    db "result.txt", 0

    ReadH       dw ?

    WriteH      dw ?           

    pathBuf     db 100, ?, 100 dup (0) 

    buffer      db 2048 dup(?)

[azimraeesi]

سلام این برنامه مشکل داره کسی میتونه مشکلش برطرف کنه
مسیر فایل مبدا رو میگیره محتویاتش در فایل مقصد کپی میشه
mydata segment 'data'
str1 label byte
max db 50
len db ?
buffer db 50 dup(?)
str2 label byte
max2 db 50
len2 db ?
buffer2 db 50 dup(?)

filehandle1 dw ?
filehandle2 dw ?
msg1 db 10,13,'enter surce file address:','$'
msg2 db 10,13,'enter file2 address:','$'
temp db ?
mydata ends

mycode segment 'code'
main proc far
assume cs:mycode,ds:mydata
mov ax,mydata
mov ds,ax

mov ah,09
mov dx,offset msg1
int 21h

mov ah,0ah
mov dx,offset str1
int 21h

mov ah,09
mov dx,offset msg2
int 21h

;mov ah,0ah
;mov dx,offset str2
;int 21h

;mohasebe toole reshte
mov si,offset buffer
mov cl,len
mov ch,0
add si,cx
mov byte ptr[si],00h

mov ah,3ch
mov cx,0
mov dx,offset buffer
int 21h

mov filehandle2,ax
start:mov ah,3fh
mov cx,1
mov bx,filehandle1
mov dx,offset temp
int 21h
cmp ax,0
je exit
mov ah,40h
mov bx,filehandle1
mov cx,1
mov dx,offset temp
int 21h
jmp start

exit:mov ah,3eh
mov bx,filehandle1
int 21h
mov ah,3eh
mov bx,filehandle2
int 21h
mov ah,4ch
int 21h
main endp
mycode ends
end main