BDOS   EQU   0005H         ;
       LD    HL,005CH      ;Пересылка номера устройства (драйвера)
       LD    DE,Konec      ;и имени файла в отведенную область для
       LD    BC,0CH        ;дальнейшей работы с блоком FCB
       LDIR                ;
       LD    DE,Konec      ;Открытие файла
       LD    C,0FH         ;
       CALL  BDOS          ;
       LD    DE,Adres      ;Установление адреса передачи для загрузки
       LD    C,1AH         ;файла с диска
       CALL  BDOS          ;
       LD    HL,(Konec+16) ;Устанавливаем размер записи для считывания
       LD    (Konec+14),HL ;равный объему файла.
       LD    HL,0000H      ;Номер записи для файла прямого и последо-
       LD    (Konec+33),HL ;вательного доступа обнуляем, т. е. чита-
       LD    (Konec+35),HL ;ем файл с самого начала
       LD    HL,1          ;Производим считывание одной записи = размеру
       LD    DE,Konec      ;файла по адресу передачи
       LD    C,27H         ;
       CALL  BDOS          ;
       LD    HL,Adres      ;XWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWY
LABL_1:LD    A,(HL)        ;V Программа распечатки ASCII кодов.     V
       CP    1AH           ;V Вывод символов из текстового файла    V
       JP    Z,LABL_2      ;V будет осуществляться до тех пор,пока  V
       INC   HL            ;V не встретится символ файла с кодом:   V
       RST   30H           ;V 1Аh. Этот символ обозначает конец     V
       DEFB  00H           ;V текстового файла (по стандарту ASCII).V
       DEFW  00A2H         ;ZWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW[
       JP    LABL_1        ;
LABL_2:RST   00H           ;Выход в MSX-DOS (рестарт).
                           ;
Konec: DEFS  38            ;Обнуление 38 байтов для блока FCB
Adres: DEFS  25            ;Адрес передачи
