汇编语言: 编写一个程序，新建一个文件：d:\abc.txt,从键盘输入文件的内容（不超过100个字 符）。然后新建一个文件：d:\def.txt,将d:\abc.txt文件的内容复制到d:\def.

编写一个程序，新建一个文件：d:\abc.txt,从键盘输入文件的内容（不超过100个字 符）。然后新建一个文件：d:\def.txt,将d:\abc.txt文件的内容复制到d:\def.

data segmentbuf db 100,?,100 dup(?)file db 'abc.txt',0fh dw ?copyfile db 'def.txt',0copyfh dw ?copybuf db 100 dup(?)error_msg db 0dh,0ah,'error!','$' success_msg db 0dh,0ah,'done!','$'data endsstack segment stackdw 20h dup(?)top label wordstack endscode segment    assume ds:data,cs:code,ss:stack    p proc far     mov ax,data    mov ds,ax    mov ax,stack    mov ss,ax    lea sp,top    ;create file    lea dx,file    mov cx,0    mov ah,3ch    int 21h    jc error    mov fh,ax    ;buff     lea dx,buf    mov ah,0ah    int 21h    ;get buff length in stack       xor ch,ch    mov cl,[buf+1]          ;write file    lea dx,buf+2    mov bx,fh           mov ah,40h    int 21h    jc error            ;create new file2       lea dx,copyfile    mov cx,0    mov ah,3ch    int 21h    jc error        mov copyfh,ax    ;change point    xor cx,cx    xor dx,dx    mov bx,fh    mov al,0        mov ah,42h    int 21h    jc error    ;read from file1    lea dx,copybuf    mov bx,fh    xor ch,0    mov cl,[buf+1]      mov ah,3fh    int 21h    jc error    ;show the read content    xor ch,0    mov cl,[buf+1]      lea si,copybufl1: mov dl,[si]    inc si    mov ah,02h    int 21h    loop l1     ;write to copyfile    lea dx,copybuf    mov bx,copyfh    mov ch,0    mov cl,[buf+1]      mov ah,40h    int 21h    jc error        jmp exit    error:    lea dx,error_msg    mov ah,09h    int 21hexit:    mov ah,4ch    int 21h         p endp      code ends     end p