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.
Реализация[править]
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
Ссылки[править]
- Исходный текст слова 2SWAP в Каллисто Классик 1.0
- См. слова ↔, 2DUP, 2DROP
- Слово 2SWAP (two-swap) в стандарте ANS Forth (англ.)
- Слово 2SWAP (two-swap) в черновике Forth 200x (англ.)
- ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ в книге Л.Броуди «Начальный курс программирования на языке Форт»
- How to Get Results в книге Leo Brodie Starting Forth (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |