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