Язык программирования Форт



         

Приложение А. Глоссарий (список слов Форта) - часть 32


Моделирует (медленно) оператор Форт-83 /MOD, используя Форт79. : FL/MOD 2DUP FLMOD ROT ROT FL/ ; FLMOD "f-l-mod" TXT ( n1 n2 -- n3) Используя операторы Форт-79, выполняет деление с нижней границей n1 на n2 и засылает в стек остаток n3. Моделирует (медленно) оператор Форт-83 MOD, используя Форт-79. : FLMOD 2DUP FL/ * - ; FLUSH "flush" 83REQ MMS VAR ( --) Копирует содержимое всех блочных буферов, помеченных для спасения, в соответствующие блоки массовой памяти. Синоним - SAVE-BUFFERS в большинстве версий Форта. В Форт-83 требуется, чтобы приписка буферов к блокам была ликвидирована, в то время как SAVE-BUFFERS этого не требует. FORGET "forget" "забыть" 83REQ 79REQ ( --) При использовании в форме FORGET

уничтожает слово и все слова, добавленные в словарь после , вне зависимости от их принадлежности к контекстным словарям, если

найдено в контекстном словаре, куда вводились описания. ( В Форт-79 - это контекстный словарь CURRENT.) Если не найдено, дается сообщение об ошибке. FORTH "forth" 83REQ 79REQ ( --) Имя первичного контекстного словаря. Исполнение слова FORTH делает словарь FORTH первым и единственным, который просматривается при поиске слов. Новые описания становятся частью словаря FORTH до тех пор, пока с помощью DEFINITIONS не будет сделан контекстным другой словарь. См. также CURRENT; CONTEXT; DEFINITIONS; VOCABULARY. FORTH-83 "forth-83" 83REQ ( --) Сообщает, соответствует ли система стандарту Форт-83. Если стандартная система Форт-83 не используется, слово не будет найдено, а будет дано сообщение об ошибке. HERE "here" "здесь" 83REQ 79REQ ( -- адр) Засылает в стек адрес очередной свободной позиции в словаре, указатель словаря. HEX "hex" 83CNT 79RES TXT MMS Выбирает для ввода-вывода шестнадцатеричную систему счисления. : HEX 16 BASE ! ; HI# "high-number" MMS ( --n) MMSFORTH воспринимает все числовые вводы как числа двойной длины, помещая число двойной длины в стек, если входная последовательность содержит десятичную точку, и посылая в стек число одинарной длины в противном случае.


Содержание  Назад  Вперед