VOC-LINK
(перенаправлено с «VOCL»)
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
Ссылки[править]
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |