?LOADING: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) |
AtH (обсуждение | вклад) |
||
Строка 13: | Строка 13: | ||
== Реализация == | == Реализация == | ||
<pre> | |||
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 | |||
</pre> | |||
=== Советская реализация === | |||
Описание и определение слова ?LOADING в ядре ФОРТ-ЕС: | Описание и определение слова ?LOADING в ядре ФОРТ-ЕС: | ||
<PRE> | <PRE> |
Текущая версия от 20:08, 9 ноября 2017
?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
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |