Нужно доделать задачу

[Dizel_Zombi]

Есть зада которая читает из одного файла инфу и записывает в другой, нужно дописать чтобы она записывала ещё инфу введённую с клавы(команда ввода есть)
Вот сама прога:

include macro.lib
stek segment 'stack'
dw 30 dup (?)
stek ends
data segment 
str1 db 1024 dup('$')


filename db '1.txt'
handle dw ?
filename2 db '2.txt'
handle1 dw ?
buflen equ $-str1
strlen dw ?
str2 db 1024 dup ('$')
cp2 dw 80
p1 dw 0
p2 dw 0
a1 db 'vvedite stroky $'
a2 db 'vi vveli stroky $'
stroka label byte
maxlen db 130
actlen db ?

data ends
code segment 
assume ss:stek,ds:data,cs:code
begin proc far
mov ax,data
mov ds,ax
mov ah,3dh
mov al,2
lea dx,filename
int 21h
mov handle,ax

mov ah,3fh
mov bx,handle
mov cx,buflen
lea dx,str1
int 21h
mov strlen,ax
mov ah,3eh
mov bx,handle
int 21h
cls
message a1
crlf
lea dx, filename2
mov ah, 0ah
lea dx, stroka
int 21h
crlf
message a2
crlf
message str1

lea di,str1
mov al,'a'

mov [di],al
crlf
 message str1
crlf

mov cx,0
mov ah,3ch
mov al,0
lea dx,filename2
int 21h
mov handle1,ax

mov ah,40h
mov bx,handle1
mov cx,cp2
lea dx,str1
int 21h

mov ah,3eh
mov bx,handle1
int 21h

message str1
lea di,str1
add di,6

mov al,'a'
mov [di],al
crlf
message str1
crlf
mov ax,10
mov cp2,ax

mov ax, 4c00h
int 21h
ret
begin endp
code ends

end begin

\


Буду очень благодарин

[bestns]

За тебе ніхто не буде писати програми!(Це порушення правил форума!)

[alexcoder]

Это не нарушение правил, а личное дело каждого. А вот сообщение на украинском языке - это уже нарушение правил.