?LOADING
?LOADING — фортовское слово Каллисто. Проверка режима экрана.
?LOADING ( −− ) Сгенерировать ошибку 22, если входной текст идёт не с экрана.
Убедиться, что интерпретация происходит с экрана (BLK отличен от нуля). Если это не так, выдать сообщение об ошибке.
Ввод слова ?LOADING[править]
В режиме NUM последовательно нажмите клавиши K Р-ГРД-Г − 5 ШГ← 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
Ссылки[править]
- Исходный текст слова ?LOADING в Каллисто Классик 1.0
- См. слова ?COMP, ?CSP, ?EXEC, ?PAIRS, ?STACK и ?ERROR
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |