BDOS   EQU   0005H         ;Точка BDOS для MSX-DOS.
       LD    DE,File       ;Функция BDOS, которая позволяет открыть
       LD    C,16H         ;новый файл на диске. Старый файл с этим
       CALL  BDOS          ;именем уничтожается.
       LD    HL,0006H      ;Пусть текущий размер записи будет равен
       LD    (File+14),HL  ; 6 (запишем только 6 байтов).
       LD    HL,0000H      ;Номер записи для файла  последовательного
       LD    (File+33),HL  ;доступа устанавливаем равным нулю.
       LD    (File+35),HL  ;Тот же номер записи - и для файла прямого
                           ;доступа. Все 4 байта заполняем 00h.
       LD    DE,Data       ;Установка адреса передачи ("откуда").
       LD    C,1AH         ;
       CALL  BDOS          ;
                           ;
       LD    DE,File       ;Осуществляем одну запись размером в 6 байтов.
       LD    HL,0001H      ;
       LD    C,26H         ;Функция BDOS для посылки записи в файл.
       CALL  BDOS          ;
                           ;
       LD    DE,File       ;При закрытии файла на диск дозаписывается
       LD    C,10H         ;все до последнего байта данных, временно
       JP    BDOS          ;расположившихся в оперативной памяти (в
                           ;буфере файла). Эта операция необходима
                           ;всегда при записи на диск.
File:  NOP                 ;
       DEFM  "OPEN    DBS" ;Имя нового файла.
       DEFS  25            ;
Data:  DEFB 0AH,0BH,0CH,0DH,0EH,0FH; Данные.
