BDOS   EQU   0005H
       LD    DE,0500H      ;Установка адреса передачи
       LD    C,1AH         ;
       CALL  BDOS          ;
       LD    C,11H         ;Поиск первого появления файлов
       LD    DE,File       ;В имени файла используется специальный
       CALL  0005H         ;символ "?"
       OR    A             ;
       RET   NZ            ;
START: CALL  Consol        ;Если файл еще есть, то выводим имя.
       LD    C,12H         ;Поиск следующего появления файлов.
       LD    DE,File       ;
       CALL  0005H         ;
       OR    A             ;
       RET   NZ            ;Когда поиск прекратится,
       JR    START         ;подпрограмма завершается
Consol:LD    HL,0A0DH      ;Перевод строки в конце слова
       LD    (050CH),HL    ;
       LD    A,24H         ;Символ окончания строки "$"
       LD    (050EH),A     ;
       LD    DE,0501H      ;Первый байт - номер дисковода: его
       LD    C,9           ;не стоит выводить.
       JP    0005H         ;
File:                      ;
       NOP                 ;
       DEFM "???????????"  ;
       DEFS  30            ;
