BODY⟩

Материал из ПМК вики
Перейти к навигации Перейти к поиску

BODY> (от тела) — фортовское слово Каллисто.

BODY>          ( a −− т )                           От тела. От поля параметров к полю кода.

Слово BODY> преобразует PFA в CFA. Оно позволяет узнать токен слова, если известен адрес его поля параметров.

Ввод слова BODY>[править]

В режиме ЛАТ последовательно нажмите клавиши  В/О   5   K    ,      P   F   ИП 

Эти нажатия оставляют клавиатуру в режиме NUM.

История[править]

Слово BODY> попало в Каллисто из расширения (не обязательного к реализации) стандарта Форт−83. Ранее, в fig-Форте, оно называлось CFA.

Слово из расширения стандарта Форт−83 (не обязательное).

В FORTH ИТЭФ это слово использовалось вместо отсутствовавшего слова 2−.

BODY> в предыдущем стандарте Forth-83 (англ.)[править]

     BODY>        addr1 -- addr2                           "from-body"
          addr2 is the compilation address corresponding to the
          parameter field address addr1.

CFA в fig-FORTH Release 1 glossary, май 1979 (англ.)[править]

CFA    pfa --- cfa
       Convert the parameter field address of a definition to its code
       field address.

Реализация[править]

1287 NONEP:          PKRM03 + PKM03  KGOTO9
…
1289 JTWOM:          2 +/−  GOTO NONEP
…
2286 ;#BODYfrom
2287 ; BODY>            ( a −− т )                           От тела. От поля параметров к полю кода.
2288 LCFA:           .DB     5
2289                 .TEXT   "BODY>"                 ; ( pfa −− cfa )
2290                 .DW     LCSTOR
2291 CFA:            .DW     JTWOM

Советская реализация[править]

Юрий Семёнов описывает слово BODY> как синоним 2− (стр. 73).

Описание и определение слова BODY> в ядре ФОРТ-ЕС:

BODY>   * PFA->CFA ОТ ПОЛЯ ПАРАМЕТРОВ К ПОЛЮ КОДА               30

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

: BODY>  ( PFA->CFA) 2- ;

В FORTH ИТЭФ слово BODY> называлось CFA и было примитивом. Вот его определение:

            HEAD     203Q,'CF',301Q,CFA                   ; CFA
            POP  AX
            SUB  AX, 2
            PUSH AX
            NEXT

Ссылки[править]


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


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