Редактирование:
CREATE
(раздел)
Перейти к навигации
Перейти к поиску
Внимание:
Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте
или
создадите учётную запись
, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Анти-спам проверка.
Не
заполняйте это!
=== Советская реализация === Юрий Семёнов приводит следующее определение слова CREATE (стр. 139): <PRE> : CREATE FINDN ( поиск слова в словаре) IF ( если оно найдено) DROP ( запись адреса поля имени в стек) ID. ( печать имени) 4 MESSAGE ( печать "MSG# 4") THEN HERE ↑ C@ ( запись в стек числа символов в слове) WIDTH @ ( максимально допустимое число символов в имени ) MIN ( укорочение имени, если оно слишком длинное) 1+ ALLOT ( выделение нужного числа байт) ?ALIGN ( выравнивание выделенного числа байт на чётную границу, что важно для ЭВМ типа СМ) ↑ $A0 TOGGLE ( коррекция байта имени) HERE 1- $80 TOGGLE ( коррекция последнего байта имени) LAST , ( формирование поля LFA) CURRENT @ ! ( коррекция значения CURRENT) HERE 2+ , ; ( заполнение поля CFA) </PRE> Описание и определение слова CREATE в ядре ФОРТ-ЕС: <PRE> CREATE -> СОЗДАТЬ НАЧАЛО СТАТЬИ (ДО PFA) ДЛЯ 36 СЛЕДУЮЩЕГО СЛОВА) ЕГО ИСПОЛНЕНИЕ КЛАДЕТ PFA НА СТЕК CREATE# A НАЧАЛО ИСПОЛНИТЕЛЬНОЙ ЧАСТИ "VARIABLE" 3 Экран номер 3 ( 09.09.86 ДОПОЛНИТЕЛЬНЫЕ ВХОДЫ В АДРЕСНЫЙ ИНТЕРПРЕТАТОР) A: CREATE# RW1 14 LR, ( ПОМЕСТИТЬ РFA СТАТЬИ) M: PUSHRW1 RSTACK RTWO SR, ( ПОМЕСТИТЬ ЗНАЧЕНИЕ ИЗ RW1) M: PUTRW1 RW1 PUT, RNEXT BR, ( ЗАМЕНИТЬ ВЕРХНЕЕ) Экран номер 36 ( 09.09.86 CREATE DOES> ) : CREATE ( ->) 100 ?GAP ALIGNH -FIND SWAP DROP IF HERE ID. ." УЖЕ ЕСТЬ " THEN HERE DUP С@ WIDTH AND 2+ ALLOT ALIGNH HERE OVER - 2- OVER C! LATEST , CURRENT @ ! LIT [ CREATE# ] , ; </PRE> Определение слова CREATE в FORTH ИТЭФ: <PRE> HEAD 206Q,'CREAT',305Q,GREAT,$COL ; CREATE DW DFIND,ZBRAN,CRE-$,DROP,TWOP,NFA,IDDOT DW LIT,4,MESS CRE: DW HERE,DUBL,CAT,$WIDTH,AT,MIN,ONEP,ALLOT DW DUBL,LIT,240Q,TOGL,HERE,ONEM DW LIT,200Q,TOGL,LATES,COMMA,CURR,AT,STORE DW HERE,TWOP,COMMA,SEMI </PRE>
Описание изменений:
Пожалуйста, учтите, что любой ваш вклад в проект «ПМК вики» может быть отредактирован или удалён другими участниками. Если вы не хотите, чтобы кто-либо изменял ваши тексты, не помещайте их сюда.
Вы также подтверждаете, что являетесь автором вносимых дополнений, или скопировали их из источника, допускающего свободное распространение и изменение своего содержимого (см.
Pmkwiki:Авторские права
).
НЕ РАЗМЕЩАЙТЕ БЕЗ РАЗРЕШЕНИЯ ОХРАНЯЕМЫЕ АВТОРСКИМ ПРАВОМ МАТЕРИАЛЫ!
В целях защиты вики от автоматического спама в правках просим вас решить следующую каптчу:
Отменить
Справка по редактированию
(в новом окне)
Навигация
Персональные инструменты
Вы не представились системе
Обсуждение
Вклад
Создать учётную запись
Войти
Пространства имён
Статья
Обсуждение
русский
Просмотры
Читать
Править
История
Ещё
Поиск
Навигация
Заглавная страница
Свежие правки
Случайная страница
Справка по MediaWiki
Инструменты
Ссылки сюда
Связанные правки
Служебные страницы
Сведения о странице