这是一个文件复制程序,请高手帮小弟修改一下,怎样复制[color=FF00FF]大[/color]文件

    [color=800080] 第一页[/color]sseg        segment    stack
sseg        ends
dseg        segment
s_file      db 63 dup(?)
d_file      db 63 dup(?)
buffer      db 100 dup(?)
s_hand      dw ?
d_hand      dw ?
c_er        db 'copy error!$'
finish      db 'copy finish!$'
dseg        ends
cseg        segment
        assume cs:cseg,ds:dseg,ss:sseg
main        proc
start:
        mov ax,dseg
        mov ds,ax
        mov ax,sseg
        mov ss,ax
            push ax
            push bx
            
            mov ah,62h
            int 21h
            mov es,bx
            mov si,80h
            xor ch,ch
            mov cl,es:[si]
            inc si
            inc si
            pop bx 
            pop ax
            mov   di,offset s_file
next:       mov   al,es:[si]  
            cmp   al,20h                                 
 jz    next1                   
            cmp   al,0dh                               
jz    para_end                  
            mov   [di],al      
            inc   di          
            inc   si       
            loop  next
next1:  mov   al,0
            mov   [di],al
            mov   di,offset d_file           
            inc   si     
            loop  next
para_end:   mov   al,0
            mov   [di],al
             mov   dx,offset s_file
             mov   ah,3dh
             int   21h
             jc    exit                            
             mov   s_hand,ax                       
             mov   dx,offset d_file
             mov   cx,0                            
             mov   ah,3ch
             int   21h
             mov   d_hand,ax
             mov   cx,07fffh                       
             mov   dx,offset  buffer