PDA

View Full Version : راهنمایی فوری



azimraeesi
دوشنبه 27 اردیبهشت 1389, 13:27 عصر
سلام این برنامه مشکل داره کسی میتونه مشکلش برطرف کنه
مسیر فایل مبدا رو میگیره محتویاتش در فایل مقصد کپی میشه
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

:متفکر: