将输入缓冲区的内容写入到txt文件

data segment  
     file db 'tes1.txt',0
     buf db 100,?,100 dup(?)
     fh dw ?
     error_msg db 0dh,0ah,'error!','$' 
     writer_msg db 0dh,0ah,'open file !input text:',0ah,'$' 
     success_msg db 0dh,0ah,'done!','$'
data ends
stack segment stack
      dw 20h dup(?)
top label word
stack ends
code segment
	assume ds:data,cs:code,ss:stack
main proc far 
	mov ax,data
	mov ds,ax
	mov ax,stack
	mov ss,ax
	lea sp,top
	lea dx,file
	mov cx,0
	mov ah,3ch
	int 21h
	jc error
writer:
	mov fh,ax        
	lea dx,writer_msg
	mov ah,09h
	int 21h
	lea dx,buf
	mov ah,0ah
	int 21h
	lea si,buf
	inc si
	xor ch,ch
	mov cl,[si]                     
	inc si
	mov dx,si                            
	mov bx,fh                                 
	mov ah,40h
	int 21h
	jc error
success:
	lea dx,success_msg
	mov ah,09h
	int 21h	
	jmp exit	
error:
	mov cx,16
	mov bx,ax
l1:	rol bx,1
	mov dl,bl
	and dl,1
	add dl,30h
	mov ah,02h
	int 21h
	loop l1
	lea dx,error
	mov ah,09h
	int 21h	
exit:
	mov ah,4ch
	int 21h		
main endp		
code ends 
	 end main