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

Ссылки

• Исходный текст слова VOC-LINK в Каллисто Классик 1.0

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

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