?BREAK: различия между версиями

Материал из ПМК вики
Перейти к навигации Перейти к поиску
Нет описания правки
Строка 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.

Ссылки


  У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.


  Это заготовка статьи. Вы можете помочь проекту, дополнив её.