2SWAP
Předcházející Slovník ANSI forthu Další

$Header: /home/radek/cvs/forth-book/dictionary/ansi/0430.two-swap,v 1.1 2003/12/28 18:21:57 radek Exp $

Jméno

2SWAP — FIXME:Exchange the top two cell pairs.

Přehled

( a,a b,b → b,b a,a,)

Definováno v: dpANS Forth 6.1.0420 CORE

Popis

FIXME:

Description

double-cell swap, see SWAP and 2DUP simulate: 

: 2SWAP LOCALS| B1 B2 A1 A2 | B2 B1 A2 A1 ;

Příklad použití

.

Kód slova v Qurtus Forthu

Příklad 58. Kód slova 2SWAP *:[80]

02DE= 82E0: 82D0                              DW      $82D0             ; link to SWAP
02E0= 82E2: 0532 5357 4150                    DB    5, "2SWAP"
02E6= 82E8: 202C 0002            2SWAP:       MOVE.L  2(SP), D0         ;=
02EA= 82EC: 4847                              SWAP    TOS               ;
02EC= 82EE: 3E14                              MOVE.W  (SP), TOS
02EE= 82F0: 3880                              MOVE.W  D0, (SP)
02F0= 82F2: 2947 0002                         MOVE.L  TOS, 2(SP)
02F4= 82F6: 4840                              SWAP    D0                ;
02F6= 82F8: 3E00                              MOVE.W  D0, TOS
02F8= 82FA: 4E75                              RTS                       ;= EXIT
Předcházející Nahoru Další
2OVER Domů 2VARIABLE