Редактирование: FILL

Перейти к навигации Перейти к поиску
Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы войдёте или создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.

Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.

Текущая версия Ваш текст
Строка 1: Строка 1:
'''FILL''' (заполнить) — стандартное слово [[Каллисто]].
'''FILL''' (заполнить) — стандартное слово [[Каллисто]].
  FILL          ( a u c −− )                        Заполнить. Записать u байтов c, начиная с адреса a.
  FILL          ( a u c −− )                        Заполнить. Записать u байтов c, начиная с адреса a.
Слово FILL записывает u байт c в память, начиная с адреса a. Универсальный оператор для заполнения массивов памяти идентичными символами. На основе слова FILL реализованы специализированные слова [[ERASE]] и [[BLANK]], заполняющие области памяти нулями и пробелами.
Записывает u байт c в память начиная с адреса a. Универсальный оператор для заполнения массивов памяти идентичными символами.


== Ввод слова FILL ==
== Ввод слова FILL ==
Строка 12: Строка 12:
             последовательных символов в памяти, начинающейся с c-addr.
             последовательных символов в памяти, начинающейся с c-addr.


== История ==
== FILL в предыдущем стандарте Forth-83 (англ.) ==
Слово FILL пришло в [[Каллисто]] из Форта, где оно является древним и стабильным. В существующем ныне виде слово FILL известно с 1979 года и входит во все стандарты.
 
=== FILL в предыдущем стандарте Forth-83 (англ.) ===
       FILL        addr u 8b --                  83
       FILL        addr u 8b --                  83
           u bytes of memory beginning at addr are set to 8b.  No
           u bytes of memory beginning at addr are set to 8b.  No
           action is taken if u is zero.
           action is taken if u is zero.


=== FILL в стандарте Forth-79 (англ.) ===
== FILL в стандарте Forth-79 (англ.) ==
  FILL          addr n byte --                234
  FILL          addr n byte --                234
     Fill  memory beginning at address with a sequence of n  copies
     Fill  memory beginning at address with a sequence of n  copies
Строка 26: Строка 23:
     take no action.
     take no action.


=== FILL в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
== FILL в fig-FORTH Release 1 glossary, май 1979 (англ.) ==
  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.


== Реализация ==
== Реализация ==
<pre>
2000 ;#FILL
2001 ; FILL            ( a U c −− )                        Заполнить. Записать U байтов c, начиная с адреса a.
2002 ; Записать U байт c в память начиная с адреса a
2003 ; Заполнить массив памяти идентичными литерами.
2004 ; а − адрес первого байта памяти, куда будет засылаться байт c
2005 ; U − число заполняемых байтов
2006 ; Подразумевается, что граница памяти программ и данных не пересекается.
2007 LFILL:          .DB    4
2008                .TEXT  "FILL"                  ; ( куда сколько что −− )
2009                .DW    LCMOVEG
2010 FILL:          .DW    JFILL
2011 JFILL:          PKRM03 MB                      ; Литера
2012                RM3 1 +
2013 JFILL2:        M8 1 + MA  1 + M3
2014                KRM8 M0 +/−  KX<09              ; Счётчик литер
2015                KRMA 1 EE 4 −  KX>=09  1 − M5 RMB
2016 FILL1:          KM5  FL0 FILL1
2017                KGOTO9
</pre>
Реализация из SP-Forth 4.20:
<pre>
CODE FILL ( c-addr u char -- ) \ 94
\ Если u больше нуля, заслать char в u байтов по адресу c-addr.
      MOV EDX, EDI
      MOV ECX, [EBP]
      MOV EDI, 4 [EBP]
      CLD
      \ можем ли заполнять DWORD?
      MOV EBX, ECX
      AND EBX, # 3
      JNZ @@1 \ низя
      \ сформируем DWORD
      MOV EBX, EAX
      SHL EAX, # 8
      OR  EAX, EBX
      SHL EAX, # 8
      OR  EAX, EBX
      SHL EAX, # 8
      OR  EAX, EBX
      MOV EBX, ECX
     
      SAR ECX, # 2
      REP STOS DWORD
      MOV ECX, EBX
      AND ECX, # 3
@@1:     
      REP STOS BYTE
      MOV EDI, EDX
      LEA EBP, 0C [EBP]
      MOV EAX, -4 [EBP]
      RET
END-CODE
</pre>
=== Советская реализация ===
Описание и определение слова FILL в ядре ФОРТ-ЕС:
Описание и определение слова FILL в ядре ФОРТ-ЕС:
<PRE>
<PRE>
Строка 129: Строка 70:
[[Категория:Примитивы]]
[[Категория:Примитивы]]
[[Категория:Работа с памятью Каллисто]]
[[Категория:Работа с памятью Каллисто]]
[[Категория:Стандартные слова]]
[[Категория:1994 CORE]]
[[Категория:2012 CORE]]
Пожалуйста, учтите, что любой ваш вклад в проект «ПМК вики» может быть отредактирован или удалён другими участниками. Если вы не хотите, чтобы кто-либо изменял ваши тексты, не помещайте их сюда.
Вы также подтверждаете, что являетесь автором вносимых дополнений, или скопировали их из источника, допускающего свободное распространение и изменение своего содержимого (см. Pmkwiki:Авторские права). НЕ РАЗМЕЩАЙТЕ БЕЗ РАЗРЕШЕНИЯ ОХРАНЯЕМЫЕ АВТОРСКИМ ПРАВОМ МАТЕРИАЛЫ!

В целях защиты вики от автоматического спама в правках просим вас решить следующую каптчу:

Отменить Справка по редактированию (в новом окне)

Шаблоны, используемые на этой странице:

Источник — https://pmk.the-hacker.ru/FILL