2SWAP

Материал из ПМК вики
Перейти к навигации Перейти к поиску

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

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

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

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

В режиме NUM последовательно нажмите клавиши  2     Р-ГРД-Г   1   В↑  $\mathrm{\overset{\leftarrow}{ШГ}}$  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

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


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


  Stub-icon-48px.png Это заготовка статьи. Вы можете помочь проекту, дополнив её.