2SWAP

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.

Реализация

В ядре ФОРТ-ЕС слово 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

Ссылки

• Исходный текст слова 2SWAP в Каллисто Классик 1.0
• См. слова ↔, 2DUP, 2DROP
• Слово 2SWAP (two-swap) в стандарте ANS Forth (англ.)
• Слово 2SWAP (two-swap) в черновике Forth 200x (англ.)
• ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ в книге Л.Броуди «Начальный курс программирования на языке Форт»
• How to Get Results в книге Leo Brodie Starting Forth (англ.)

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

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