Редактирование: ALLOT

'''ALLOT''' (распределить, занять) — стандартное слово [[Каллисто]].
 ALLOT          ( D −− )                             Занять. Сместить вершину словаря на D байт.
Добавляет D байт к [[Поле параметров|полю параметров]] слова, описанного последним. Осмысленные значения D от -4096 до 4096, обычно намного скромнее этих границ.

Оператор N '''ALLOT''' резервирует в [[Словарь|словаре]] N байт.

== Ввод слова ALLOT ==
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите клавиши {{ШГ←}} [[Клавиша -|{{Серая клавиша|−}}]] [[Клавиша -|{{Серая клавиша|−}}]] [[Клавиша 5|{{Серая клавиша|5}}]] [[Клавиша 2|{{Серая клавиша|2}}]]

== ALLOT в стандарте ANS Forth ==
<PRE>
 6.1.0710   ALLOT                                                           CORE
            ( n -- )
            Если n больше нуля, резервирует n адресуемых элементов области 
            данных. Если n меньше нуля, освобождает | n | адресуемых элементов 
            области данных. Если n нуль, оставляет указатель области данных 
            неизменным.

            Если указатель области данных выровнен, и n - кратно размеру ячейки 
            перед выполнением ALLOT, он останется выровненным, и после 
            завершения выполнения ALLOT.

            Если указатель области данных выровнен на символ, и n - кратно 
            размеру символа перед выполнением ALLOT, он останется выровненным 
            на символ, и после завершения выполнения ALLOT.

        См.: 3.3.3 Область данных.
</PRE>

== История ==
D для советских ЭВМ типа ДВК или СМ должно было быть чётным.

=== ALLOT в предыдущем стандарте Forth-83 (англ.) ===
      ALLOT        w --                          79
           Allocates w bytes in the dictionary.  The address of the
           next available dictionary entry is updated accordingly.

=== ALLOT в стандарте Forth-79 (англ.) ===
 ALLOT          n --                          154
     Add  n  bytes  to the parameter field  of  the  most  recently
     defined word.

=== ALLOT в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
 ALLOT         n  ---                           L0
        Add the signed number to the dictionary pointer DP. May be used to
        reserve dictionary space or re-origin memory. n is with regard to
        computer address type (byte or word).

== Реализация ==
Определение слова '''ALLOT''' в ядре ФОРТ-ЕС:
<PRE>
ALLOT     W-> СМЕСТИТЬ ВЕРШИНУ СЛОВАРЯ НА W БАЙТОВ              10

                     Экран номер 10
( 31.03.86       HERE ALLOT ALIGN ALIGNH DP! )

CODE ALLOT  ( N-> ) RD FIRST AH,   POP B,   END-CODE
</PRE>
В FORTH ИТЭФ слово '''ALLOT''' также было [[примитив]]ом, вот его определение:
<PRE>
            HEAD     205Q,'ALLO',3240,ALLOT               ; ALLOT
            POP  BX
            ADD  [DI]+22Q,BX
            NEXT
</PRE>

== Ссылки ==
* {{Исходник|ALLOT|ALLOT}}
* См. слова [[HERE]] и [[Слово H|H]], а также слово [[ДALLOT]]
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0710 ALLOT] в стандарте ANS Forth ''(англ.)''
* Слово [http://forth-standard.org/standard/core/ALLOT ALLOT] в черновике Forth 200x ''(англ.)''
* [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\09.FUNKZIONIROWANIE%20FORT-SISTEMY ФУНКЦИОНИРОВАНИЕ ФОРТ-СИСТЕМЫ] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»]
* [http://www.forth.com/starting-forth/sf8/sf8.html Variables, Constants, and Arrays] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)''
* [http://www.forth.com/starting-forth/sf9/sf9.html Under the Hood] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)''


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Работа со словарём Каллисто]]
[[Категория:Стандартные слова]]
[[Категория:1994 CORE]]
[[Категория:2012 CORE]]
@@ Строка 48: / Строка 48: @@
 == Реализация ==
-<pre>
-rrDP            .EQU     1137                   ; 11137  H − Указатель на первую свободную ячейку словаря H @ = HERE
-pDP             .EQU      137
-rlDP            .EQU     1138
-…
-;#ALLOT
-; ALLOT            ( D −− )                             Занять. Сместить вершину словаря на n байт.
-LALLOT:         .DB     5
-                 .TEXT   "ALLOT"                 ; ( n −− )
-                 .DW     LHERE
-ALLOT:          .DW     JALLOT                  ; Добавить D байт к полю параметров слова, описанного последним.
-JALLOT:         RM3 MA 1 + M3
-                 PPRM rlDP KRMA +
-                 ENT RME / FANS <−> KINT MA ∗ − PPM rlDP
-                 RMA KX!=09
-                 PPRM rrDP + PPM rrDP
-                 KGOTO9
-</pre>
-=== Реализация в SP-Forth 4.20 ===
-<pre>
-: ALLOT ( n -- ) \ 94
-\ Если n больше нуля, зарезервировать n байт пространства данных. Если n меньше
-\ нуля - освободить |n| байт пространства данных. Если n ноль, оставить
-\ указатель пространства данных неизменным.
-\ Если перед выполнением ALLOT указатель пространства данных выровнен и n
-\ кратно размеру ячейки, он остается выровненным и после ALLOT.
-\ Если перед выполнением ALLOT указатель пространства данных выровнен на
-\ границу символа и n кратно размеру символа, он остается выровненным на
-\ границу символа и после ALLOT.
-  DP +!
-;
-</pre>
-=== Советская реализация ===
 Определение слова '''ALLOT''' в ядре ФОРТ-ЕС:
 <PRE>