City #53 14 мая 2001

Программирование

        ░░░    ░░░  ░░░░ ░░░░ ░░░░ ░░░░░▒░ ░░░░░░▒░  ░▒░░
       ░▓█▒   ░███  ▓██▒ ▒██▓▒██▓░░██████▒ ▒██████░ ▓████▒
      ░▓██▓░  ▒███ ▒███▒ ▓██▓▓██░ ▒██████▒ ▒█████▓ ░▓█▓███
      ░▓███▒  ░███▒████▒ ▒█████▒  ░███░░░░ ░███░░░  ░░░▓██
      ░██▓█▓   ████████▒ ░████▓    ███▒▓▓▒  ███▓▓▓    ▓██▒
      ▒██▒██░  █████▓██▒ ░█████▒   ███▓███░ ███▒▒▒    ▓██▓░
     ░██▓ ▓█▓  ████▓░██▓░░██▓▓██░  ███ ▓██▒ ███▒▒▒░░▒▒░▓██▒
     ▒██░ ▒██░ ███▓░░██▓ ░██▓▒██▓░ ███▓███▒ ██████░▓██████░
     ▓▓▓  ░▓▓▒ ▓▓▓░ ░▓▓▒ ░▓▓▒ ▒▓▓▒ ▓▓▓▓▓▒░  ▓▓▓▓▓▓ ░▒▓▓▓▓▒

  (c) П.Федин

  ПОЛНОЕ ОПИСАНИЕ + ПОЛНЫЙ ДИЗАССЕМБЛЕР ПЗУ TR-DOS 5.04 (5.03)
  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ДЛЯ ПРОФЕССИОНАЛОВ, А ТАКЖЕ ДЛЯ ТЕХ, КТО ХОЧЕТ ИМИ СТАТЬ
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                          продолжение

Адрес 8501. Принятие команды. Установите 23823 и если  там не 0,
то и 23840.
8501  LD A,(23823) ;ошибка была?
      OR A
      PUSH AF      ;сохранение результата проверки
      CALL NZ,8490 ;если да, то восстановление первых трех сим-
                    волов
Не надо этого делать!!! COPY портит буфер по адресу 23840, а бу-
фер редактора всегда остается цел.
      POP AF       ;восстановление результата проверки
      CALL Z,8478  ;если   ошибки  не  было, то  стирание старой
                    строки
      LD HL,(23641);эта команда тоже не нужна
      CALL 15744   ;перевод строки
      LD A,(23833) ;берем номер дисковода по умолчанию
      ADD A,"A"    ;печать его имени
      RST 16
      LD A,">"     ;печать ">"
      RST 16
      LD HL,23610  ;для нормального выхода из редактора
      LD (HL),255
      JP 7568      ;ввод команды и возврат
────────────────────────────────────────────────────────────────
Адрес 8536.  Прием числа.  CH_ADD  установите  на  символ  перед
числом. Число, увеличенное на 1, будет помещено в 23767,  а  со-
держимое 23771 будет скопировано в 23769. Число  не  должно рав-
няться 0.
8536  CALL 7722    ;следующий символ
      CALL 7564
      CP ","       ;это запятая?
      JP NZ,7450   ;если да, то ошибка
      LD HL,(23771);сохранение 23771
      LD (23769),HL
      CALL 7691    ;помещение числа на стек калькулятора
      CALL 7541    ;если идет проверка на синтаксис, то возврат
      LD HL,(23771);число равно 0?
      LD A,
      OR L
      JP NZ,7450   ;если да, то ошибка
      INC HL       ;еще будет байт ENTER
      LD (23767),HL;установка числа
      LD HL,(23769);восстановление 23771
      LD (23771),HL
      RET          ;возврат
────────────────────────────────────────────────────────────────
Адрес 8578. Выполнение команды OPEN#.  Установите 23825 и 23611.
8578  LD HL,(23825);установка CH_ADD
      LD (23645),HL
      CALL 7691    ;принятие номера потока
      CALL 7632    ;принятие имени файла на стек калькулятора
8590  CALL 7564    ;берем текущий символ
      CP "A"       ;он меньше "A"?
      JR NC,8602   ;если нет, то проверка режима файла
      CALL 7722    ;следующий символ
      JR 8590      ;повтор
8602  CP 165       ;это RND?
      PUSH AF      ;сохранение символа и результата проверки
      CALL Z,8536  ;если это RND, то обработка длины записи
      POP AF       ;восстановление символа и результата проверки
      JR Z,8622    ;если это RND, то открытие потока
      AND 223      ;буква заглавная
      CP "R"       ;это "R"?
      JR Z,8622    ;если да, то открытие потока
      CP "W"       ;это "W"?
      JP NZ,7450   ;если нет, то ошибка
8622  LD (23817),A ;сохранение буквы режима файла
      CALL 7541    ;если идет проверка на синтаксис, то возврат
      LD A,"#"     ;расширение файла - "#"
      LD (23781),A
      LD A,0       ;поиск начинать с блока 0
      LD (23782),A
      CALL 8667    ;поиск последнего блока файла
      PUSH AF      ;сохранение флага результата поиска
      CALL 8719    ;проверка потока
      POP AF       ;восстановление флага результата поиска
      PUSH AF      ;сохранение флага результата поиска
      CALL NZ,8840 ;если файл не был найден, то создание блока 0
      POP AF       ;восстановление флага результата поиска
      CALL 8770    ;открытие потока
      LD HL,(23825);коррекция  переменной  с  адресом  командной
                    строки
      LD BC,292
      ADD HL,BC
      LD (23825),HL
      JP 467       ;завершение
────────────────────────────────────────────────────────────────
Адрес 8667. Поиск блока файла данных. Вход: поместите  имя файла
на стек калькулятора, установите  23773 и  23817 и  поместите  в
23782 номер первого блока файла. Выход: если файл найден, то бу-
дет считан описатель последнего или первого блока в  зависимости
от 23817 и обнулен аккумулятор и установлен флаг Z; иначе флаг Z
будет сброшен, а в аккумуляторе будет байт из 23817.
8667  LD A,10     ;поиск файла ведем по 10 байтам
      LD (23814),A
      CALL 7344   ;установка имени файла и поиск файла
      PUSH AF     ;сохранение результата поиска
      CALL 1029   ;настройка на диск
      POP AF      ;восстановление результата поиска
      JR NZ,8710  ;если файл не найден, то проверка режима файла
      LD A,(23817);открываем файл для чтения?
      CP "R"
      JR Z,8705   ;если да, то выход
8689  LD HL,23782 ;следующий блок
      INC (HL)
      CALL 7347   ;поиск блока
      JR Z,8689   ;если блок найден, то следующий блок
      LD HL,23782
      DEC (HL)    ;последний существующий блок
      CALL 7347   ;определение его номера в каталоге
8705  CALL 5725   ;чтение его описателя
      XOR A       ;обнуление аккумулятора и установка флага Z
      RET         ;возврат
8710  LD A,(23817);открываем файл для чтения?
      CP "R"
      RET NZ      ;если да, то возврат
      JP 985      ;сообщение NO FILE

                   продолжение следует ...