(LITERAL)

(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

Ссылки

• Исходный текст слова (LITERAL) в Каллисто Классик 1.0
• РАСШИРЕНИЕ КОМПИЛЯТОРА: ОПРЕДЕЛЯЮЩИЕ И КОМПИЛИРУЮЩИЕ СЛОВА в книге Л.Броуди «Начальный курс программирования на языке Форт»
• Extending the Compiler в книге Leo Brodie Starting Forth (англ.)

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

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