Редактирование:
ALLOT
(раздел)
Перейти к навигации
Перейти к поиску
Внимание:
Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте
или
создадите учётную запись
, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Анти-спам проверка.
Не
заполняйте это!
== Реализация == <pre> 145 rrDP .EQU 1137 ; 11137 H − Указатель на первую свободную ячейку словаря H @ = HERE 146 pDP .EQU 137 147 rlDP .EQU 1138 … 2312 ;#ALLOT 2313 ; ALLOT ( D −− ) Занять. Сместить вершину словаря на n байт. 2314 LALLOT: .DB 5 2315 .TEXT "ALLOT" ; ( n −− ) 2316 .DW LHERE 2317 ALLOT: .DW JALLOT ; Добавить D байт к полю параметров слова, описанного последним. 2318 JALLOT: RM3 MA 1 + M3 2319 PPRM rlDP KRMA + 2320 ENT RME / FANS <−> KINT MA ∗ − PPM rlDP 2321 RMA KX!=09 2322 PPRM rrDP + PPM rrDP 2323 KGOTO9 </pre> === Реализация в SP-Forth 4.20 === <pre> : ALLOT ( n -- ) \ 94 \ Если n больше нуля, зарезервировать n байт пространства данных. Если n меньше \ нуля - освободить |n| байт пространства данных. Если n ноль, оставить \ указатель пространства данных неизменным. \ Если перед выполнением ALLOT указатель пространства данных выровнен и n \ кратно размеру ячейки, он остается выровненным и после ALLOT. \ Если перед выполнением ALLOT указатель пространства данных выровнен на \ границу символа и n кратно размеру символа, он остается выровненным на \ границу символа и после ALLOT. DP +! ; </pre> === Советская реализация === Определение слова '''ALLOT''' в ядре ФОРТ-ЕС: <PRE> ALLOT W-> СМЕСТИТЬ ВЕРШИНУ СЛОВАРЯ НА W БАЙТОВ 10 Экран номер 10 ( 31.03.86 HERE ALLOT ALIGN ALIGNH DP! ) CODE ALLOT ( N-> ) RD FIRST AH, POP B, END-CODE </PRE> В FORTH ИТЭФ слово '''ALLOT''' также было [[примитив]]ом, вот его определение: <PRE> HEAD 205Q,'ALLO',3240,ALLOT ; ALLOT POP BX ADD [DI]+22Q,BX NEXT </PRE>
Описание изменений:
Пожалуйста, учтите, что любой ваш вклад в проект «ПМК вики» может быть отредактирован или удалён другими участниками. Если вы не хотите, чтобы кто-либо изменял ваши тексты, не помещайте их сюда.
Вы также подтверждаете, что являетесь автором вносимых дополнений, или скопировали их из источника, допускающего свободное распространение и изменение своего содержимого (см.
Pmkwiki:Авторские права
).
НЕ РАЗМЕЩАЙТЕ БЕЗ РАЗРЕШЕНИЯ ОХРАНЯЕМЫЕ АВТОРСКИМ ПРАВОМ МАТЕРИАЛЫ!
В целях защиты вики от автоматического спама в правках просим вас решить следующую каптчу:
Отменить
Справка по редактированию
(в новом окне)
Навигация
Персональные инструменты
Вы не представились системе
Обсуждение
Вклад
Создать учётную запись
Войти
Пространства имён
Статья
Обсуждение
русский
Просмотры
Читать
Править
История
Ещё
Поиск
Навигация
Заглавная страница
Свежие правки
Случайная страница
Справка по MediaWiki
Инструменты
Ссылки сюда
Связанные правки
Служебные страницы
Сведения о странице