Редактирование:
КАТ
(раздел)
Перейти к навигации
Перейти к поиску
Внимание:
Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте
или
создадите учётную запись
, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Анти-спам проверка.
Не
заполняйте это!
== Реализация == <pre> 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 ; Перейти в него </pre>
Описание изменений:
Пожалуйста, учтите, что любой ваш вклад в проект «ПМК вики» может быть отредактирован или удалён другими участниками. Если вы не хотите, чтобы кто-либо изменял ваши тексты, не помещайте их сюда.
Вы также подтверждаете, что являетесь автором вносимых дополнений, или скопировали их из источника, допускающего свободное распространение и изменение своего содержимого (см.
Pmkwiki:Авторские права
).
НЕ РАЗМЕЩАЙТЕ БЕЗ РАЗРЕШЕНИЯ ОХРАНЯЕМЫЕ АВТОРСКИМ ПРАВОМ МАТЕРИАЛЫ!
В целях защиты вики от автоматического спама в правках просим вас решить следующую каптчу:
Отменить
Справка по редактированию
(в новом окне)
Навигация
Персональные инструменты
Вы не представились системе
Обсуждение
Вклад
Создать учётную запись
Войти
Пространства имён
Статья
Обсуждение
русский
Просмотры
Читать
Править
История
Ещё
Поиск
Навигация
Заглавная страница
Свежие правки
Случайная страница
Справка по MediaWiki
Инструменты
Ссылки сюда
Связанные правки
Служебные страницы
Сведения о странице