2SWAP: различия между версиями

Материал из ПМК вики
Перейти к навигации Перейти к поиску
 
(не показано 10 промежуточных версий этого же участника)
Строка 1: Строка 1:
'''2SWAP''' (два-обмен, читается «два-своп») — стандартное слово [[Каллисто]]. Обменять местами в [[Стек данных|стеке]] две верхних пары [[Ячейка (Каллисто)|ячеек]].
'''2SWAP''' (два-обмен, читается «два-своп») — стандартное слово [[Каллисто]]. Обменять местами в [[Стек данных|стеке]] две верхних пары [[Ячейка (Каллисто)|ячеек]].
  2SWAP          ( x1 x2 x3 x4 -- x3 x4 x1 x2 ) Обмен двух пар.
  2SWAP          ( t z y x -- y x t z )         Обмен двух пар.
Меняет местами две верхние пары [[Десятичное число|чисел]] в [[Стек данных|стеке]].
Меняет местами две верхние пары [[Десятичное число|чисел]] в [[Стек данных|стеке]].


== Ввод слова 2SWAP ==
== Ввод слова 2SWAP ==
В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша 2|{{Серая клавиша|2}}]]   [[Клавиша Р-ГРД-Г|{{Чёрная клавиша|Р-ГРД-Г}}]] [[Клавиша 1|{{Серая клавиша|1}}]] [[Клавиша В↑|{{Серая клавиша|В↑}}]] [[Клавиша ШГ влево|{{Чёрная клавиша|ШГ←}}]] [[Клавиша 6|{{Серая клавиша|6}}]]
В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша 2|{{Серая клавиша|2}}]]   [[Клавиша Р-ГРД-Г|{{Чёрная клавиша|Р-ГРД-Г}}]] [[Клавиша 1|{{Серая клавиша|1}}]] [[Клавиша В↑|{{Серая клавиша|В↑}}]] {{ШГ←}} [[Клавиша 6|{{Серая клавиша|6}}]]


Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]].
Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]].
Строка 13: Строка 13:
             Меняет местами две верхних пары-ячеек.
             Меняет местами две верхних пары-ячеек.


== 2SWAP в предыдущем стандарте Forth-83 (англ.) ==
== История ==
2SWAP — устоявшееся слово в Форте, название и поведение которого не менялось с 1979 года.
 
В [[Каллисто]] редко возникает необходимость в числовых парах, поэтому слово 2SWAP используется реже, чем в классическом Форте.
 
=== 2SWAP в предыдущем стандарте Forth-83 (англ.) ===
       2SWAP        32b1 32b2 -- 32b2 32b1        79          "two-swap"
       2SWAP        32b1 32b2 -- 32b2 32b1        79          "two-swap"
           The top two double numbers are exchanged.
           The top two double numbers are exchanged.


== 2SWAP в стандарте Forth-79 (англ.) ==
=== 2SWAP в стандарте Forth-79 (англ.) ===
  2SWAP          d1 d2 -- d2 d1                            "two-swap"
  2SWAP          d1 d2 -- d2 d1                            "two-swap"
     Exchange the top two double numbers on the stack.
     Exchange the top two double numbers on the stack.


== История ==
== Реализация ==
2SWAP — устоявшееся слово в Форте, название и поведение которого не менялось с 1979 года.
<pre>
 
1891 ;#TwoSWAP
В [[Каллисто]] редко возникает необходимость в числовых парах, поэтому слово 2SWAP используется реже, чем в классическом Форте.
1892 ; 2SWAP           ( t z y x −− y x t z )              Обменять две пары.
1893 LDSWAP:        .DB    5
1894                .TEXT  "2SWAP"                ; ( dd1 dd2 −− dd2 dd1 )
1895                .DW    LSWAP
1896 DSWAP:          .DW    JDSWAP                  ; Поменять местами верхние две пары чисел в стеке.
1897 JDSWAP:        RM3 M8  2 + MA
1898                KRMA KRM8 KMA <−> KM8
1899                RM3 1 + M8  2 + MA
1900                KRMA KRM8 KMA <−> KM8
1901                KGOTO9
</pre>
Реализация из SP-Forth 4.20:
<pre>
CODE 2SWAP ( x1 x2 x3 x4 -- x3 x4 x1 x2 ) \ 94
\ Поменять местами две верхние пары ячеек.
    MOV ECX, [EBP]
    MOV EDX, 4 [EBP]
    MOV EBX, 8 [EBP]
    MOV 8 [EBP], ECX
    MOV 4 [EBP], EAX
    MOV [EBP], EBX
    MOV EAX, EDX
    RET
END-CODE
</pre>


== Реализация ==
=== Советская реализация ===
В ядре ФОРТ-ЕС слово 2SWAP было определено через [[примитив]] ROLL
В ядре ФОРТ-ЕС слово 2SWAP было определено через [[примитив]] ROLL
<PRE>
<PRE>
Строка 36: Строка 65:


: 2SWAP ( WD1,WD2->WD2,WD1)  3 ROLL 3 ROLL ;
: 2SWAP ( WD1,WD2->WD2,WD1)  3 ROLL 3 ROLL ;
</PRE>
В FORTH ИТЭФ слово 2SWAP было [[примитив]]ом, вот его определение:
<PRE>
            HEAD    205Q,'2SWA',320Q,DSWAP              ; 2SWAP
            POP  AX
            POP  CX
            MOV  BX,  SP
            MOV  DX,WORD PTR SS:[BX+2]
            PUSH DX
            MOV  DX,WORD PTR SS:[BX]
            PUSH DX
            MOV  WORD  PTR SS:[BX],AX
            MOV  WORD  PTR SS:[BX+2],CX
            NEXT
</PRE>
</PRE>


== Ссылки ==
== Ссылки ==
* {{Исходник|TwoSWAP|2SWAP}}
* См. слова [[Слово ↔|↔]], [[2DUP]], [[2DROP]]
* См. слова [[Слово ↔|↔]], [[2DUP]], [[2DROP]]
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0430 2SWAP (two-swap)] в стандарте ANS Forth ''(англ.)''
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0430 2SWAP (two-swap)] в стандарте ANS Forth ''(англ.)''
* Слово [http://www.forth200x.org/documents/html3/core/TwoSWAP.html 2SWAP (two-swap)] в черновике Forth 200x ''(англ.)''
* Слово [http://forth-standard.org/standard/core/TwoSWAP 2SWAP (two-swap)] в черновике Forth 200x ''(англ.)''
* [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\02.WYPOLNENIE%20ARIFMETITESKIH%20OPERAZIJ ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»]
* [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\02.WYPOLNENIE%20ARIFMETITESKIH%20OPERAZIJ ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»]
* [http://www.forth.com/starting-forth/sf2/sf2.html How to Get Results] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)''
* [http://www.forth.com/starting-forth/sf2/sf2.html How to Get Results] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)''
Строка 51: Строка 95:
[[Категория:Примитивы]]
[[Категория:Примитивы]]
[[Категория:Стековые манипуляции Каллисто]]
[[Категория:Стековые манипуляции Каллисто]]
[[Категория:Описание бета-версии Каллисто]]
[[Категория:Стандартные слова]]
[[Категория:1994 CORE]]
[[Категория:2012 CORE]]

Текущая версия от 16:40, 10 ноября 2017

2SWAP (два-обмен, читается «два-своп») — стандартное слово Каллисто. Обменять местами в стеке две верхних пары ячеек. 

2SWAP          ( t z y x -- y x t z )          Обмен двух пар.

Меняет местами две верхние пары чисел в стеке.

Ввод слова 2SWAP[править]

В режиме NUM последовательно нажмите клавиши  2     Р-ГРД-Г   1   В↑   ШГ←   6 

Для возврата в режим NUM нажмите синюю клавишу  P .

2SWAP в стандарте ANS Forth[править]

6.1.0430   2SWAP                             "two-swap"                    CORE
           ( x1 x2 x3 x4 -- x3 x4 x1 x2 )
           Меняет местами две верхних пары-ячеек.

История[править]

2SWAP — устоявшееся слово в Форте, название и поведение которого не менялось с 1979 года.

В Каллисто редко возникает необходимость в числовых парах, поэтому слово 2SWAP используется реже, чем в классическом Форте.

2SWAP в предыдущем стандарте Forth-83 (англ.)[править]

     2SWAP        32b1 32b2 -- 32b2 32b1        79          "two-swap"
          The top two double numbers are exchanged.

2SWAP в стандарте Forth-79 (англ.)[править]

2SWAP          d1 d2 -- d2 d1                            "two-swap"
    Exchange the top two double numbers on the stack.

Реализация[править]

1891 ;#TwoSWAP
1892 ; 2SWAP            ( t z y x −− y x t z )               Обменять две пары.
1893 LDSWAP:         .DB     5
1894                 .TEXT   "2SWAP"                 ; ( dd1 dd2 −− dd2 dd1 )
1895                 .DW     LSWAP
1896 DSWAP:          .DW     JDSWAP                  ; Поменять местами верхние две пары чисел в стеке.
1897 JDSWAP:         RM3 M8  2 + MA
1898                 KRMA KRM8 KMA <−> KM8
1899                 RM3 1 + M8  2 + MA
1900                 KRMA KRM8 KMA <−> KM8
1901                 KGOTO9

Реализация из SP-Forth 4.20: 

CODE 2SWAP ( x1 x2 x3 x4 -- x3 x4 x1 x2 ) \ 94
\ Поменять местами две верхние пары ячеек.
     MOV ECX, [EBP]
     MOV EDX, 4 [EBP]
     MOV EBX, 8 [EBP]
     MOV 8 [EBP], ECX
     MOV 4 [EBP], EAX
     MOV [EBP], EBX
     MOV EAX, EDX
     RET
END-CODE

Советская реализация[править]

В ядре ФОРТ-ЕС слово 2SWAP было определено через примитив ROLL 

2SWAP        WD1,WD2->WD2,WD1 ОБМЕНЯТЬ МЕСТАМИ ДВА              12
             ВЕРХНИХ ДВОЙНЫХ ЗНАЧЕНИЯ

                     Экран номер 12
( 31.03.86    ROLL  PICK  2DUP 2DROP  2SWAP  2OVER  2ROT )

: 2SWAP ( WD1,WD2->WD2,WD1)  3 ROLL 3 ROLL ;

В FORTH ИТЭФ слово 2SWAP было примитивом, вот его определение: 

            HEAD     205Q,'2SWA',320Q,DSWAP               ; 2SWAP
            POP  AX
            POP  CX
            MOV  BX,  SP
            MOV  DX,WORD PTR SS:[BX+2]
            PUSH DX
            MOV  DX,WORD PTR SS:[BX]
            PUSH DX
            MOV  WORD  PTR SS:[BX],AX
            MOV  WORD  PTR SS:[BX+2],CX
            NEXT

Ссылки[править]


  У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.


  Это заготовка статьи. Вы можете помочь проекту, дополнив её.
Источник — https://pmk.the-hacker.ru/index.php?title=2SWAP&oldid=36678