?EXEC

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

?EXEC — фортовское слово Каллисто. Проверка состояния исполнения.

?EXEC          ( −− )                               Сгенерировать ошибку 18, если нет состояния исполнения.

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

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

В режиме NUM последовательно нажмите клавиши  K     Р-ГРД-Г   ИП   0   ИП   С/П 

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

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

?EXEC
       Issue an error message if not executing.

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

3020 ;#qEXEC
3021 ; ?EXEC            ( −− )                               Сгенерировать ошибку 18, если нет состояния исполнения.
3022 LQEXEC:         .DB     5
3023                 .TEXT   "?EXEC"
3024                 .DW     LQCOMP
3025 QEXEC:          .DW CALL, STATE,UAT, LITB
3026                 .DB 18
3027                 .DW BRAN,RQERR

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

Определение слова ?EXEC в FORTH ИТЭФ:

             HEAD    205Q,'?EXE',303Q,QEXEC,$COL          ; ?EXEC
             DW  STATE,AT,LIT,22Q,QERR,SEMI

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


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


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