КАТ

КАТ — системное слово Каллисто.

КАТ            ( c −− )                             Перейти в каталог Каллисто с литерой c. Если каталога нет, создать его.

Поиск на электронном диске каталога Каллисто с заданным номером и переход в него. Если запрошенного каталога нет, он создаётся.

c — литера, стоящая сразу после "Каллисто" в названии каталога.

Ввод слова КАТ[править]

В режиме РУС последовательно нажмите три клавиши ИП → ÷

Реализация[править]

3934 ;#kaate
3935 ; КАТ              ( c −− )                             Перейти в каталог Каллисто с литерой c. Если каталога нет, создать его.
3936 ; Найти нужный каталог Каллисто и перейти в него.  Если каталога нет, он создаётся.
3937 ; c −− код литеры, стоящей сразу после "Каллисто" в названии каталога
3938 LKATALOG:       .DB     3
3939                 .TEXT   "КАТ"                   ; ( c −− )
3940                 .DW     LSTY
3941 KAT:            .DW     JKAT
3942 JKAT:           PKRM03 MB  RM3 1 + M3           ; RB := литера
3943                 9034 MA
3944 KATRY:          1 PPM 9120                      ; Разрешить дисковые операции
3945                 Cx
3946 ;               PPM 9128  PPM 9121              ; Выбрать корневой каталог диска A
3947                 M8                              ; Начать с нулевой строки каталога
3948 KATNEXT1:       Cx  PPM 9030  PPM 9031          ; Сбросить индексные регистры 0 и 1
3949                 RM8 PPM 9122                    ; Прочесть строку каталога
3950                 KRMA 2 −  PX=0 KATNEXT          ; Подкаталог?
3951                 KRMA KRMA                       ; Пропустить поле 2  ( номер кластера, 2 байта)
3952                 .NUM strForthM1
3953                 M5  8 M0
3954 KATZ:           RM5 1 + M5  KPRGM KRMA −  PX=0 KATNEXT
3955                 FL0 KATZ
3956                 KRMA RMB −  PX=0 KATNEXT        ; Имя начинается с "Каллисто" и переданной литеры?
3957                 RM8  PPM 9128  PPM 9123         ; Перейти в каталог, всё
3958                 KGOTO9                          ; NEXT
3959 KATNEXT:                                        ;−−− Перейти к следующей строке каталога
3960                 RM8 1 + M8  64 −  PX=0 KATNEXT1 ; Просмотрен весь каталог?
3961                 PPM 9030  3 PPM 9031            ; Настроить индексные регистры 0 и 1
3962                 .NUM strForthM1
3963                 M5 8 M0
3964 KATW:           RM5 1 + M5  KPRGM KMA  FL0 KATW ; Загрузить строку "Каллисто" в буфер
3965                 RMB KMA
3966                 11 M0 32
3967 KATQ:           KMA  FL0 KATQ                   ; Заполнить пробелами неиспользуемый конец поля имени
3968                 2  PPM 9128  PPM 9125           ; Создать каталог
3969                 PGOTO KATRY                     ; Перейти в него