?BREAK: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) |
AtH (обсуждение | вклад) Нет описания правки |
||
Строка 8: | Строка 8: | ||
Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]]. | Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]]. | ||
== | == Реализация == | ||
Для приостановки вывода нажмите [[Клавиша K|синюю клавишу {{Синяя клавиша|K}}]]. Чтобы [[QUIT|прервать вывод]], используйте последовательность из двух клавиш [[Клавиша K|{{Синяя клавиша|K}}]] [[Клавиша С/П|{{Чёрная клавиша|С/П}}]]. | Для приостановки вывода нажмите [[Клавиша K|синюю клавишу {{Синяя клавиша|K}}]]. Чтобы [[QUIT|прервать вывод]], используйте последовательность из двух клавиш [[Клавиша K|{{Синяя клавиша|K}}]] [[Клавиша С/П|{{Чёрная клавиша|С/П}}]]. | ||
[[Каллисто]] использует ?BREAK в словах [[LIST]] и [[WORDS]] | [[Каллисто|Каллисто 1.0]] использует ?BREAK в словах [[LIST]] и [[WORDS]] | ||
<pre> | |||
565 ;#qBREAK | |||
566 ; ?BREAK ( −− ) Проверить клавиатуру на паузу и аварийную остановку. | |||
567 LQBREAK: .DB 6 | |||
568 .TEXT "?BREAK" | |||
569 .DW LNOP | |||
570 QBREAK: .DW JQBREAK | |||
571 JQBREAK: PPRM 9028 ; Клавиша нажата? | |||
572 21 − KX=09 ; Если нажата не К, продолжить | |||
573 PGSB CSRON | |||
574 QBL: PPRM 9028 | |||
575 KNOT FX=0 QBL | |||
576 PPM 9029 ; Очистить буфер клавиатуры | |||
577 QBL2: PPRM 9029 MA ; Прочесть код клавиши | |||
578 KNOT FX!=0 QBL2 | |||
579 PGSB CSROFF | |||
580 RMA 26 − KX=09 ; Если не С/П, продолжить | |||
581 94 PPM 9020 ; "^" | |||
582 67 PPM 9020 ; "C" | |||
583 .NUM RABORT | |||
584 PGOTO SETRIPRG ; Перейти на исполнение шитого кода с ABORT | |||
</pre> | |||
== ?TERMINAL в fig-FORTH Release 1 glossary, май 1979 (англ.) == | == ?TERMINAL в fig-FORTH Release 1 glossary, май 1979 (англ.) == |
Версия от 05:50, 9 ноября 2017
?BREAK (вопрос-разрыв, читается «вопрос-брэйк») — родное слово Каллисто.
?BREAK ( −− ) Проверить клавиатуру на паузу и аварийную остановку.
Проверяем клавиатуру на паузу и аварийную остановку. Делаем паузу или выходим в QUIT, если на это есть запрос с клавиатуры.
Ввод слова ?BREAK
В режиме NUM последовательно нажмите клавиши K Р-ГРД-Г В/О × ИП ШГ← 9
Для возврата в режим NUM нажмите синюю клавишу P .
Реализация
Для приостановки вывода нажмите синюю клавишу K . Чтобы прервать вывод, используйте последовательность из двух клавиш K С/П .
Каллисто 1.0 использует ?BREAK в словах LIST и WORDS
565 ;#qBREAK 566 ; ?BREAK ( −− ) Проверить клавиатуру на паузу и аварийную остановку. 567 LQBREAK: .DB 6 568 .TEXT "?BREAK" 569 .DW LNOP 570 QBREAK: .DW JQBREAK 571 JQBREAK: PPRM 9028 ; Клавиша нажата? 572 21 − KX=09 ; Если нажата не К, продолжить 573 PGSB CSRON 574 QBL: PPRM 9028 575 KNOT FX=0 QBL 576 PPM 9029 ; Очистить буфер клавиатуры 577 QBL2: PPRM 9029 MA ; Прочесть код клавиши 578 KNOT FX!=0 QBL2 579 PGSB CSROFF 580 RMA 26 − KX=09 ; Если не С/П, продолжить 581 94 PPM 9020 ; "^" 582 67 PPM 9020 ; "C" 583 .NUM RABORT 584 PGOTO SETRIPRG ; Перейти на исполнение шитого кода с ABORT
?TERMINAL в fig-FORTH Release 1 glossary, май 1979 (англ.)
?TERMINAL --- f Perform a test of the terminal keyboard for actuation of the break key. A true flag indicates actuation. This definition is installation dependent.
Ссылки
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |