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

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

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

Текущая версия Ваш текст
Строка 11: Строка 11:


== CMOVE> в стандарте ANS Forth ==
== CMOVE> в стандарте ANS Forth ==
<PRE>
  17.6.1.0920  CMOVE>                  "c-move-up"                        STRING
  17.6.1.0920  CMOVE>                  "c-move-up"                        STRING
             ( c-addr1 c-addr2 u -- )
             ( c-addr1 c-addr2 u -- )
Строка 30: Строка 29:


         100 DUP CHAR+ SWAP 3 CMOVE>, строка по адресу 100 - "DDDD".
         100 DUP CHAR+ SWAP 3 CMOVE>, строка по адресу 100 - "DDDD".
</PRE>


== История ==
== CMOVE&gt; в предыдущем стандарте Forth-83 (англ.) ==
В 1983 году слово &lt;CMOVE было переименовано в CMOVE&gt; — лучше отражающее направление и способ перемещения участка памяти.
 
В таком виде слово и вошло в [[Каллисто]].
 
=== CMOVE&gt; в предыдущем стандарте Forth-83 (англ.) ===
       CMOVE>      addr1 addr2 u --              83        "c-move-up"
       CMOVE>      addr1 addr2 u --              83        "c-move-up"
           Move the u bytes at address addr1 to addr2.  The move begins
           Move the u bytes at address addr1 to addr2.  The move begins
Строка 45: Строка 38:
           sliding a string towards higher addresses).
           sliding a string towards higher addresses).


=== &lt;CMOVE в стандарте Forth-79 (англ.) ===
== &lt;CMOVE в стандарте Forth-79 (англ.) ==
  <CMOVE        addr1 addr2 n --                    "reverse-c-move"
  <CMOVE        addr1 addr2 n --                    "reverse-c-move"
     Copy  n bytes beginning at addr1 to addr2.  The move proceeds
     Copy  n bytes beginning at addr1 to addr2.  The move proceeds
     within the bytes from high memory toward low memory.
     within the bytes from high memory toward low memory.
== История ==
В 1983 году слово &lt;CMOVE было переименовано в CMOVE&gt; — лучше отражающее направление и способ перемещения участка памяти.
В таком виде слово и вошло в [[Каллисто]].


== Реализация ==
== Реализация ==
<pre>
1983 ;#CMOVEtop
1984 ; CMOVE>          ( a1 a2 U −− )                      Копировать U байтов из a1 в a2, начиная с больших адресов.
1985 LCMOVEG:        .DB    6
1986                .TEXT  "CMOVE>"                ; ( откуда куда сколько −− )
1987                .DW    LCMOVE
1988 CMOVEG:        .DW    JCMOVEG
1989 JCMOVEG:        PKRM03 M0                      ; Счётчик
1990                RM3 1 + MB  1 + MA  1 + M3 M8  ; R8 := SP (R3)
1991                KRMB 1 EE 4 −  KX>=09
1992                RM0 +/−  KX<09  − M1            ; R1 := Куда, конец блока
1993                KRMA MA 1 EE 4 −  FX<0 CMVGR0
1994                RMA RM0 +
1995 CMVGP:          MA KPRGM KM1 RMA 1 −  FL0 CMVGP  KGOTO9
1996 CMVGR0:        RM0 + M3
1997 CMVGRL:        Cx KRM3 KM1  FL0 CMVGRL
1998                RM8 M3  KGOTO9                  ; R3 (SP) := R8
</pre>
Реализация из SP-Forth 4.20:
<pre>
CODE CMOVE> ( c-addr1 c-addr2 u -- ) \ 94 STRING
\ Если u больше нуля, копировать u последовательных символов из пространства
\ данных начиная с адреса c-addr1 в c-addr2, символ за символом, начиная со
\ старших адресов к младшим.
      MOV EDX, EDI
      MOV ECX, EAX
      MOV EDI, [EBP]
      MOV ESI, 4 [EBP]
      STD
      ADD EDI, ECX
      DEC EDI
      ADD ESI, ECX
      DEC ESI
      REP MOVS BYTE
      CLD
      MOV EDI, EDX
      LEA EBP, 0C [EBP]
      MOV EAX, -4 [EBP]
      RET
END-CODE
</pre>
=== Советская реализация ===
Слово CMOVE&gt; в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение:
Слово CMOVE&gt; в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение:
<PRE>
<PRE>
Строка 122: Строка 77:
[[Категория:Примитивы]]
[[Категория:Примитивы]]
[[Категория:Работа с памятью Каллисто]]
[[Категория:Работа с памятью Каллисто]]
[[Категория:Стандартные слова]]
[[Категория:1994 STRING]]
[[Категория:2012 STRING]]
Пожалуйста, учтите, что любой ваш вклад в проект «ПМК вики» может быть отредактирован или удалён другими участниками. Если вы не хотите, чтобы кто-либо изменял ваши тексты, не помещайте их сюда.
Вы также подтверждаете, что являетесь автором вносимых дополнений, или скопировали их из источника, допускающего свободное распространение и изменение своего содержимого (см. Pmkwiki:Авторские права). НЕ РАЗМЕЩАЙТЕ БЕЗ РАЗРЕШЕНИЯ ОХРАНЯЕМЫЕ АВТОРСКИМ ПРАВОМ МАТЕРИАЛЫ!

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

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

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

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