?BREAK: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) Нет описания правки |
||
(не показано 15 промежуточных версий этого же участника) | |||
Строка 1: | Строка 1: | ||
'''?BREAK''' — | '''?BREAK''' (вопрос-разрыв, читается «вопрос-брэйк») — родное слово [[Каллисто]]. | ||
?BREAK ( −− ) Проверить клавиатуру на паузу и аварийную остановку. | |||
Проверяем клавиатуру на паузу и аварийную остановку. Делаем паузу или выходим в [[QUIT]], если на это есть запрос с клавиатуры. Рекомендуется для использования в длительных циклах. | |||
== Ввод слова ?BREAK == | |||
В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша K|{{Синяя клавиша|K}}]] [[Клавиша Р-ГРД-Г|{{Чёрная клавиша|Р-ГРД-Г}}]] [[Клавиша В/О|{{Чёрная клавиша|В/О}}]] [[Клавиша ×|{{Серая клавиша|×}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] {{ШГ←}} [[Клавиша 9|{{Серая клавиша|9}}]] | |||
Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]]. | |||
== Реализация == | |||
Для приостановки вывода нажмите [[Клавиша K|синюю клавишу {{Синяя клавиша|K}}]]. Чтобы [[QUIT|прервать вывод]], используйте последовательность из двух клавиш [[Клавиша K|{{Синяя клавиша|K}}]] [[Клавиша С/П|{{Чёрная клавиша|С/П}}]]. | |||
[[Каллисто|Каллисто 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 --- f | |||
Perform a test of the terminal keyboard for actuation of the break | |||
key. A true flag indicates actuation. | |||
This definition is installation dependent. | |||
== Ссылки == | |||
* {{Исходник|qBREAK|?BREAK}} | |||
{{нет иллюстраций}} | {{нет иллюстраций}} | ||
{{заготовка}} | {{заготовка}} | ||
[[Категория:Слова Каллисто]] | [[Категория:Слова Каллисто]] | ||
[[Категория:Примитивы]] |
Текущая версия от 00:33, 29 декабря 2018
?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.
Ссылки[править]
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |