DATA SEGMENT
BUFFER DB 'ABCDEF'
FILENAME DB 'A.TXT'
EMSG DB 'ERROR!','$'
DATA ENDS
STACK1 SEGMENT PARA STACK
DW 20H DUP(0)
STACK1 ENDS
CODE SEGMENT
ASSUME DS:DATA,SS:STACK1,CS:CODE
START:
MOV AX,DATA
MOV DS,AX
MOV AH,3CH ;3CH号功能，创建文件，也可以用5BH号功能
MOV CX,0 ;文件属性
LEA DX,FILENAME
INT 21H
JZ ERROR ;若CF=1则出错处理
MOV BX,AX ;AX中为文件句病
MOV CX,6 ;要写的字节数
LEA DX,BUFFER
MOV AH,40H ;40H好功能调用，写文件
INT 21H
JMP END0
ERROR:
MOV AH,9
LEA DX,EMSG
INT 21H
END0:
MOV AH,4CH
INT 21H
CODE ENDS
END START
