(LITERAL): различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) |
AtH (обсуждение | вклад) |
||
Строка 13: | Строка 13: | ||
to the stack. | to the stack. | ||
== Реализация | == Реализация == | ||
У Баранова-Ноздрунова приводится следующее | У Баранова-Ноздрунова приводится следующее определение слова (LITERAL) (стр. 53): | ||
: (LITERAL) ( ---> A ) I @ R> 2+ >R ; | : (LITERAL) ( ---> A ) I @ R> 2+ >R ; | ||
Строка 28: | Строка 28: | ||
CODE LIT ( ->W ) RW1 0 (, RI RFORTH LH, | CODE LIT ( ->W ) RW1 0 (, RI RFORTH LH, | ||
RI RTWO AR, PUSHRW1 B, END-CODE | RI RTWO AR, PUSHRW1 B, END-CODE | ||
</PRE> | |||
В FORTH ИТЭФ слово (LITERAL) называлось LIT и тоже было [[примитив]]ом: | |||
<PRE> | |||
HEAD 203Q,'LI',324Q,LIT ; LIT | |||
LODSW | |||
PUSH AX | |||
NEXT | |||
</PRE> | </PRE> | ||
Версия от 09:31, 27 марта 2016
(LITERAL) — стандартное слово Каллисто.
Код периода выполнения для литерала.
Ввод слова (LITERAL)
В режиме NUM последовательно нажмите клавиши ШГ→ Р-ГРД-Г − 7 2 ИП × ШГ← − P ШГ←
LIT в fig-FORTH Release 1 glossary, май 1979 (англ.)
LIT --- n C2,L0 Within a colon-definition, LIT is automatically compiled before each 16 bit literal number encountered in input text. Later execution of LIT causes the contents of the next dictionary address to be pushed to the stack.
Реализация
У Баранова-Ноздрунова приводится следующее определение слова (LITERAL) (стр. 53):
: (LITERAL) ( ---> A ) I @ R> 2+ >R ;
Слово (LITERAL) в ФОРТ-ЕС было примитивом и называлось LIT
Вот его описание и определение:
LIT *K ->W ПОМЕСТИТЬ НА СТЕК СЛЕДУЮЩИЙ КОД 23 Экран номер 23 ( 31.03.84 LIT 2LIT LITERAL 2LITERAL SPACE SPACES ) CODE LIT ( ->W ) RW1 0 (, RI RFORTH LH, RI RTWO AR, PUSHRW1 B, END-CODE
В FORTH ИТЭФ слово (LITERAL) называлось LIT и тоже было примитивом:
HEAD 203Q,'LI',324Q,LIT ; LIT LODSW PUSH AX NEXT
Ссылки
- РАСШИРЕНИЕ КОМПИЛЯТОРА: ОПРЕДЕЛЯЮЩИЕ И КОМПИЛИРУЮЩИЕ СЛОВА в книге Л.Броуди «Начальный курс программирования на языке Форт»
- Extending the Compiler в книге Leo Brodie Starting Forth (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |