Редактирование: (LITERAL)

'''(LITERAL)''' — служебное слово [[Каллисто]].
 (LITERAL)      ( −− x )                             Код периода выполнения для литерала.
Код периода выполнения для [[LITERAL|литерала]].

== Ввод слова (LITERAL) ==
В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша ШГ вправо|{{Чёрная клавиша|ШГ→}}]] &nbsp; [[Клавиша Р-ГРД-Г|{{Чёрная клавиша|Р-ГРД-Г}}]] [[Клавиша -|{{Серая клавиша|−}}]] [[Клавиша 7|{{Серая клавиша|7}}]] [[Клавиша 2|{{Серая клавиша|2}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] [[Клавиша ×|{{Серая клавиша|×}}]] [[Клавиша ШГ влево|{{Чёрная клавиша|ШГ←}}]] [[Клавиша -|{{Серая клавиша|−}}]] &nbsp; [[Клавиша P|{{Синяя клавиша|P}}]] [[Клавиша ШГ влево|{{Чёрная клавиша|ШГ←}}]]

== Детали реализации ==
Литералы в области данных — целые 16-битные числа со знаком.

В теле словарной статьи для (LITERAL) присутствуют два «подпольных» токена LITP и LITB, позволяющие использовать беззнаковые 16- и 8-битные литералы в памяти программ.

== История ==
Имя (LITERAL) взято у Броуди, соответствует духу [[Каллисто]].

=== 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) в ФОРТ-ЕС и FORTH ИТЭФ было [[примитив]]ом и называлось LIT

Вот его описание и определение из ФОРТ-ЕС:
<PRE>
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
</PRE>

Вот его определение из FORTH ИТЭФ:
<PRE>
             HEAD    203Q,'LI',324Q,LIT                   ; LIT
             LODSW
             PUSH  AX
             NEXT
</PRE>

== Ссылки ==
* {{Исходник|xLITERAL|(LITERAL)}}
* [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\11.RASSIRENIE%20KOMPILATORA:%20OPREDELAUSIE%20I%20KOMPILIRUUSIE%20SLOWA РАСШИРЕНИЕ КОМПИЛЯТОРА: ОПРЕДЕЛЯЮЩИЕ И КОМПИЛИРУЮЩИЕ СЛОВА] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»]
* [http://www.forth.com/starting-forth/sf11/sf11.html Extending the Compiler] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)''


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
@@ Строка 4: / Строка 4: @@
 == Ввод слова (LITERAL) ==
-В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши {{ШГ→}} &nbsp; [[Клавиша Р-ГРД-Г|{{Чёрная клавиша|Р-ГРД-Г}}]] [[Клавиша -|{{Серая клавиша|−}}]] [[Клавиша 7|{{Серая клавиша|7}}]] [[Клавиша 2|{{Серая клавиша|2}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] [[Клавиша ×|{{Серая клавиша|×}}]] {{ШГ←}} [[Клавиша -|{{Серая клавиша|−}}]] &nbsp; [[Клавиша P|{{Синяя клавиша|P}}]] {{ШГ←}}
+В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша ШГ вправо|{{Чёрная клавиша|ШГ→}}]] &nbsp; [[Клавиша Р-ГРД-Г|{{Чёрная клавиша|Р-ГРД-Г}}]] [[Клавиша -|{{Серая клавиша|−}}]] [[Клавиша 7|{{Серая клавиша|7}}]] [[Клавиша 2|{{Серая клавиша|2}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] [[Клавиша ×|{{Серая клавиша|×}}]] [[Клавиша ШГ влево|{{Чёрная клавиша|ШГ←}}]] [[Клавиша -|{{Серая клавиша|−}}]] &nbsp; [[Клавиша P|{{Синяя клавиша|P}}]] [[Клавиша ШГ влево|{{Чёрная клавиша|ШГ←}}]]
+== Детали реализации ==
+Литералы в области данных — целые 16-битные числа со знаком.
+В теле словарной статьи для (LITERAL) присутствуют два «подпольных» токена LITP и LITB, позволяющие использовать беззнаковые 16- и 8-битные литералы в памяти программ.
 == История ==
@@ Строка 17: / Строка 22: @@
 == Реализация ==
-Литералы в области данных — целые 16-битные числа со знаком.
-В [[Каллисто|Каллисто 1.0]] тело словарной статьи для (LITERAL) содержит два «подпольных» [[CFA|токена]] LITP и LITB, позволяющие использовать беззнаковые 16- и 8-битные литералы в [[Память программ|памяти программ]]:
-<pre>
-;#xLITERAL
-; (LITERAL)        ( −− x )                             Код периода выполнения для литерала.
-; В шитом коде за (LITERAL) идёт двухбайтовое целое со знаком в шестнадцатеричном формате.
-LLIT:           .DB     9
-                 .TEXT   "(LITERAL)"
-                 .DW     LQBREAK
-LITD:           .DW     JLITD
-JLITD:          KRM6 RME ∗ KRM6
-PLUSKM3M:       +                               ; Код повторно используется обработчиком CONSTANT
-                 KM3                             ; PUSH MEMW[RI++]
-                 32768 − KX>=09                  ; Если число положительное, NEXT
-                 FANS − PKM03  KGOTO9            ; Обработка отрицательных чисел, NEXT
-LITP:           .DW     JLITP                   ; Литералы в области памяти программ
-JLITP:          PPRM9044 RME ∗ PPRM9044 +       ; Все литералы в области программ положительные!
-                 KM3  KGOTO9                     ; PUSH MEMW[RI++]
-LITB:           .DW     JLITB
-JLITB:          PPRM9044 KM3  KGOTO9            ; Специальный байтовый литерал для памяти программ.
-</pre>
-Реализации из SP-Forth 4.20:
-<pre>
-: TC-LIT,
-  S" DUP" TC-FINDOUT INLINE,
-  OPT_INIT
-  SetOP 0B8 C,  , OPT  \ MOV EAX, #
-  OPT_CLOSE ;
-</pre>
-<pre>
-: LIT, ( W -> )
-  ['] DUP  INLINE,
-  OPT_INIT
-  SetOP 0B8 C,  , OPT  \ MOV EAX, #
-  OPT_CLOSE
-;
-</pre>
-=== Советская реализация ===
 У Баранова-Ноздрунова приводится следующее определение слова (LITERAL) (стр. 53):
    : (LITERAL)   ( ---> A )    I  @  R>  2+  >R  ;