data            segment
file            db     'c:\masm\l.txt' , 0           ;創建文件的文件名
buf            db      'this is a test !'       ;寫到文件中去的內容
error_message   db     0ah , 'error !' , '$'     ;出錯時的提示
message        db     0ah , 'ok !$'          ;操作成功后的提示
handle          dw    ?                    ;保存文件號
data           ends
code           segment
              assume  cs:code  , ds:data
start:
              mov ax , data
              mov ds , ax
              mov dx , offset file
              mov cx , 0
              mov ah , 3ch
              int 21h               ;創建文件，若磁盤上原有此文件，則覆蓋
              jc error               ;創建出錯，轉error處
              mov handle , ax         ;保存文件號
              mov bx , ax
              mov cx , 16 
              mov dx , offset buf
              mov ah , 40h
              int 21h                          ;向文件中寫入16個字節內容
              jc error                          ;寫出錯，轉error處
              mov bx , handle
              mov ah , 3eh
              int 21h                          ;關閉文件
             jc error                           ;關閉文件出錯，轉error處
             mov dx , offset message
              mov ah , 9
              int 21h                            ;操作成功后顯示提示
              jmp end1
error:
              mov dx , offset error_message
              mov ah , 9
              int 21h                              ;顯示錯誤提示`
end1:
              mov ah , 4ch
              int 21h
code   ends
             end  start