.MODEL TINY        ;COM Datei
         .CODE
         ORG  0100h
Start:   
         mov  ah, 05bh
         xor  cx, cx
         mov  dx, OFFSET Filename
         int  021h           ;Datei Erstellen
         jc   Fehler
         mov  bx, ax         ;Handle nach BX

         mov  ah, 040h
         mov  cx, Laenge
         mov  dx, OFFSET Text1
         int  021h           ;Daten schreiben

         call close          ;Datei schließen

         mov  ah, 03Dh
         xor  al, al
         mov  dx, OFFSET Filename
         int  021h           ;Datei wieder öffnen

         mov  bx, ax         ;Handle nach BX

         mov  ah, 03Fh
         mov  cx, Laenge
         mov  dx, OFFSET ZielPuffer
         int  021h           ;Daten Lesen

         call close

         mov  ah, 9
         mov  dx, offset Info
         int  021h           ;Text ausgeben!

         mov  ah, 1
         int  021h
         cmp  al, 'r'
         je   Start
         mov  ah, 04Ch
         int  021h           ;Programm beenden!

Fehler:  mov  dx, offset ErrMsg
         mov  ah, 9
         int  021h  
         mov  al, 1
         mov  ah, 04Ch
         int  021h
close:
         mov  ah, 03Eh
         int  021h           ;Datei schließen
         ret

ErrMsg   db "Fehler - Datei besteht bereits, Error - File already exists!",0a,0d,024         
Filename DB "example.txt",0
Text1    DB "Hallo Welt - Hello World!"
Laenge   EQU $-Text1
Info     db "Filecreate <C>2010 H.V.Viehof             ",0a,0d
         DB "Datei mit folgendem Inhalt wurde erstellt:",0a,0d
         db "__________________________________________",0a,0d
Zielpuffer DB Laenge DUP (?),"$"
         END Start