VOC-LINK

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

VOC-LINK — фортовская переменная Каллисто.

VOC−LINK       ( −− a )                             Переменная связи, начало списка из наборов слов.

Переменная связи наборов слов.

Ввод слова VOC-LINK[править]

В режиме ЛАТ последовательно нажмите клавиши     5   С/П     P        Р-ГРД-Г      7   4   9 

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

VOC-LINK      --- addr                       U
       A user variable containing the address of a field in the definition
       of the most recently created vocabulary. All vocabulary names are
       linked by these fields to allow control for FORGETting thru multiple
       vocabularies.

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

 148 rrVOCLINK       .EQU     1139                   ; 11139  VOC−LINK − Переменная связи наборов слов
 149 pVOCLINK        .EQU      139
…
2782 ;#VOC−LINK
2783 ; VOC−LINK         ( −− a )                             Переменная связи, начало списка из наборов слов.
2784 LVOCLINK:       .DB     8
2785                 .TEXT   "VOC−LINK"
2786                 .DW     LDP
2787 VOCLINK:        .DW     SUSE
2788                 .DB pVOCLINK

Реализации из SP-Forth 4.20:

VECT VOC-LIST
VARIABLE _VOC-LIST ' _VOC-LIST TO VOC-LIST
VARIABLE VOC-LIST \ список словарей

' VOC-LIST EXECUTE 0!
_VOC-LIST @ \ готовая цепочка

VARIABLE _VOC-LIST \ список словарей

' _VOC-LIST TC-ADDR! \ запись уже созданной цепочки
' _VOC-LIST TO VOC-LIST  \ исправление в tc

VECT VOC-LIST \ точка для модификаций
' _VOC-LIST ' VOC-LIST TC-VECT!  \ начальное значение

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

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

VOC-LINK *П ->А ПЕРЕМЕННАЯ - АДРЕС ПОЛЯ СВЯЗИ ПОСЛЕДНЕГО       33
             СОЗДАННОГО ПО "VOCABULARY" СПИСКА СЛОВ

                     Экран номер 33
( 09.09.86    FORTH FORTH# FL# VOC-LINK VOCABULARY VOCABULARY#)

VOC FORTH   &DWORD  H,                         ( FORTH-83)
A: FORTH#  LASTWORD  ( ВХОД В СПИСОК СЛОВАРНЫХ СТАТЕЙ)
A: FL# 0 Н,  ( ПОЛЕ СВЯЗИ ДЛЯ СПИСКОВ СТАТЕЙ)
CREATE VOC-LINK FL# ( ВХОД В СПИСОК СПИСКОВ СТАТЕЙ)

В FORTH ИТЭФ слово VOC-LINK называлось VOCL, вот его описание и определение:

            HEAD     204Q,'VOC',314Q,VOCL,$USE            ; VOCL
            DW 24Q
            …
             HEAD    305Q,'FORT',310Q,FORTH,$DOE          ; FORTH
             DW  DOVOC,120201Q,TASK-7
   XVOC      LABEL   FAR
             DW  0

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


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


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