?BREAK

Материал из ПМК вики
Перейти к навигации Перейти к поиску

?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.

Ссылки[править]


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


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