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

'''&gt;BODY''' (к телу) — стандартное слово [[Каллисто]]. Получить [[PFA|адрес поля данных]] слова, [[CFA|токен]] которого находится в [[Стек данных|стеке]].
 >BODY          ( т −− a )                           К телу. Преобразовать [[адрес поля кода]] в [[адрес поля параметров]].
Слово &gt;BODY преобразует [[CFA]] в [[PFA]].

Слово &gt;BODY включено в обязательное «ядро» (CORE) действующего стандарта Форта и присутствует в черновике готовящегося стандарта. Его переносимость весьма необычна для таких «интимных» слов, как преобразования полей [[Словарная статья|словарной статьи]].

== Ввод слова &gt;BODY ==
В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] &nbsp; [[Клавиша Р-ГРД-Г|{{Чёрная клавиша|Р-ГРД-Г}}]] [[Клавиша В/О|{{Чёрная клавиша|В/О}}]] [[Клавиша 5|{{Серая клавиша|5}}]] [[Клавиша K|{{Синяя клавиша|K}}]] [[Клавиша ,|{{Серая клавиша|1=<span style="position:relative;bottom:3px"> , </span>}}]]

Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]].

== &gt;BODY в стандарте ANS Forth ==
<PRE>
 6.1.0550   >BODY                             "to-body"                     CORE
            ( xt -- a-addr )
            a-addr - адрес области данных соответствующей xt. Неопределенная 
            ситуация существует, если xt не для слова определенного через 
            CREATE.

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

 A.6.1.0550   >BODY
 a-addr - адрес, который HERE возвратило бы, если бы было выполнено немедленно 
 после выполнения CREATE которое определило xt.
</PRE>

== &gt;BODY в предыдущем стандарте Forth-83 (англ.) ==
      >BODY        addr1 -- addr2                83           "to-body"
           addr2 is the parameter field address corresponding to the
           compilation address addr1.  See:  "9.2 Addressable Memory"

== Реализация ==
Вообще говоря, [[поле кода]] может занимать больше двух байт, например быть [[Векторное поле кода|векторным]] или быть созданным с помощью [[⟨BUILDS|&lt;BUILDS]]. Размер [[Поле кода|поля кода]] нигде не хранится, так что программист должен  должен знать структуру [[Поле кода|поля кода]] обрабатываемого слова, а не полагаться на слово &gt;BODY, обрабатывающее лишь стандартный случай.

В [[Каллисто|Каллисто 1.0]] слово &gt;BODY является синонимом слова [[2+]] и использует его обработчик:
<pre>
1284 JTWOP:          2
1285                 .DB 59H                         ; FX>=0 aka пропустить 1 байт
1286 JONEP:          1
1287 NONEP:          PKRM03 + PKM03  KGOTO9
…
1292 ;#toBODY
1293 ; >BODY            ( т −− a )                           К телу. Преобразовать адрес поля кода в адрес поля параметров.
1294 LGBODY:         .DB     5
1295                 .TEXT   ">BODY"                 ; ( cfa −− pfa )
1296                 .DW     LTWOP
1297 GBODY:          .DW     JTWOP                   ; Синоним 2+
</pre>

=== Советская реализация ===
Описание и определение слова &gt;BODY в ядре ФОРТ-ЕС:
<PRE>
>BODY     CFA->PFA ОТ ПОЛЯ КОДА К ПОЛЮ ПАРАМЕТРОВ               30

                     Экран номер 30
( 31.03.86  >BODY BODY> >LINK LINK> L>NAME N>LINK >NAME NAME> )

: >BODY  ( CFA->PFA) 2+ ;
</PRE>

== Ссылки ==
* {{Исходник|toBODY|&gt;BODY}}
* См. слова [[BODY⟩|BODY&gt;]], [[NAME⟩|NAME&gt;]], [[N⟩BODY|N&gt;BODY]] и [[N⟩LINK|N&gt;LINK]]
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0550 &gt;BODY (to-body)] и [http://forth.sourceforge.net/standard/dpans/dpansa6.htm#A.6.1.0550 комментарий к нему] в стандарте ANS Forth ''(англ.)''
* Слово [http://forth-standard.org/standard/core/toBODY &gt;BODY (to-body)] и [http://forth-standard.org/standard/rationale#rat:core:toBODY комментарий к нему] в черновике 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 Л.Броуди «Начальный курс программирования на языке Форт»]


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Преобразования адресов полей]]
[[Категория:Стандартные слова]]
[[Категория:1994 CORE]]
[[Категория:2012 CORE]]
@@ Строка 46: / Строка 46: @@
                  .DW     LTWOP
 GBODY:          .DW     JTWOP                   ; Синоним 2+
-</pre>
-Реализация из SP-Forth 4.20:
-<pre>
-: >BODY ( xt -- a-addr ) \ 94
-\ a-addr - адрес поля данных, соответствующий xt.
-\ Исключительная ситуация возникает, если xt не от слова,
-\ определенного через CREATE.
-(  1+ @ было в версии 2.5 )
-+
-;
 </pre>