data            segment
file            db     'c:\masm\l.txt' , 0           ;創(chuàng)建文件的文件名
buf            db      'this is a test !'       ;寫到文件中去的內(nèi)容
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               ;創(chuàng)建文件，若磁盤上原有此文件，則覆蓋
              jc error               ;創(chuàng)建出錯，轉(zhuǎn)error處
              mov handle , ax         ;保存文件號
              mov bx , ax
              mov cx , 16 
              mov dx , offset buf
              mov ah , 40h
              int 21h                          ;向文件中寫入16個字節(jié)內(nèi)容
              jc error                          ;寫出錯，轉(zhuǎn)error處
              mov bx , handle
              mov ah , 3eh
              int 21h                          ;關(guān)閉文件
             jc error                           ;關(guān)閉文件出錯，轉(zhuǎn)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