?LOADING

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

?LOADING — фортовское слово Каллисто. Проверка режима экрана.

?LOADING       ( −− )                               Сгенерировать ошибку 22, если входной текст идёт не с экрана.

Убедиться, что интерпретация происходит с экрана (BLK отличен от нуля). Если это не так, выдать сообщение об ошибке.

Ввод слова ?LOADING[править]

В режиме NUM последовательно нажмите клавиши  K     Р-ГРД-Г      5  $\mathrm{\overset{\leftarrow}{ШГ}}$  K   7   4   БП 

Для возврата в режим NUM нажмите синюю клавишу  P .

?LOADING в fig-FORTH Release 1 glossary, май 1979 (англ.)[править]

?LOADING
       Issue an error message if not loading

Реализация[править]

3047 ;#qLOADING
3048 ; ?LOADING         ( −− )                               Сгенерировать ошибку 22, если входной текст идёт не с экрана.
3049 LQLOAD:         .DB     8
3050                 .TEXT   "?LOADING"
3051                 .DW     LQCSP
3052 QLOAD:          .DW CALL, BLK,UAT,ZEQU, LITB    ; BLK U@ 0= 22 ?ERROR
3053                 .DB 22
3054                 .DW BRAN,RQERR

Советская реализация[править]

Описание и определение слова ?LOADING в ядре ФОРТ-ЕС:

?LOADING * -> ВЫДАТЬ ОШИБКУ "НЕТ ОБРАБОТКИ ЭКРАНА",             29
          ЕСЛИ ВХОДНОЙ ТЕКСТ ИДЕТ НЕ С ЭКРАНА

                     Экран номер 32
( 31.03.86   CONSTANT  VARIABLE 2CONSTANT  2VARIABLE  : ; )

: ?LOADING ( ->) BLK @ 0= ABORT" НЕТ ОБРАБОТКИ ЭКРАНА" ;

Слово ?LOADING в FORTH ИТЭФ называлось ?LOAD

Вот его определение:

             HEAD    205Q,'?LOA',304Q,QLOAD,$COL          ; ?LOAD
             DW  BLK,AT,ZEQU,LIT,26Q,QERR,SEMI

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


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


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