FILL: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) (→Ссылки) |
AtH (обсуждение | вклад) Нет описания правки |
||
Строка 28: | Строка 28: | ||
FILL addr quan b -- | FILL addr quan b -- | ||
Fill memory at the address with the specified quantity of bytes b. | Fill memory at the address with the specified quantity of bytes b. | ||
== Реализация == | |||
Определение слова FILL в ядре ФОРТ-ЕС: | |||
<PRE> | |||
Экран номер 22 | |||
( 31.03.86 FILL ERASE BLANK COMPILE [ ] MIN MAX HEX DECIMAL) | |||
: FILL ( A,U,C->) SWAP ?DUP IF >R OVER C! | |||
DUP 1+ R> 1- CMOVE EXIT THEN 2DROP ; | |||
</PRE> | |||
== Ссылки == | == Ссылки == |
Версия от 04:19, 26 марта 2016
FILL (заполнить) — стандартное слово Каллисто.
Записывает u байт c в память начиная с адреса a
Универсальный оператор для заполнения массивов памяти идентичными символами.
Ввод слова FILL
В режиме ЛАТ последовательно нажмите четыре клавиши П 7 − −
FILL в стандарте ANS Forth
6.1.1540 FILL CORE ( c-addr u char -- ) Если u больше чем нуль, сохраняет char в каждом из u последовательных символов в памяти, начинающейся с c-addr.
FILL в предыдущем стандарте Forth-83 (англ.)
FILL addr u 8b -- 83 u bytes of memory beginning at addr are set to 8b. No action is taken if u is zero.
FILL в стандарте Forth-79 (англ.)
FILL addr n byte -- 234 Fill memory beginning at address with a sequence of n copies of byte. If the quantity n is less than or equal to zero, take no action.
FILL в fig-FORTH Release 1 glossary, май 1979 (англ.)
FILL addr quan b -- Fill memory at the address with the specified quantity of bytes b.
Реализация
Определение слова FILL в ядре ФОРТ-ЕС:
Экран номер 22 ( 31.03.86 FILL ERASE BLANK COMPILE [ ] MIN MAX HEX DECIMAL) : FILL ( A,U,C->) SWAP ?DUP IF >R OVER C! DUP 1+ R> 1- CMOVE EXIT THEN 2DROP ;
Ссылки
- См. также слова ERASE BLANK
- Слово FILL в стандарте ANS Forth (англ.)
- Слово FILL в черновике Forth 200x (англ.)
- Variables, Constants, and Arrays в книге Leo Brodie Starting Forth (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |