projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added CFA>TFA
[rrq/rrqforth.git]
/
adoc
/
p_2swap.adoc
diff --git
a/adoc/p_2swap.adoc
b/adoc/p_2swap.adoc
index 7b0694caf8cb7f68bb4d67730a0d8632f243e689..2c03e4968161ed5654e9af6263bc926c5e03e504 100644
(file)
--- a/
adoc/p_2swap.adoc
+++ b/
adoc/p_2swap.adoc
@@
-1,9
+1,20
@@
+// stack.asm: WORD p_2swap, '2SWAP',fasm
+
anchor:p_2swap[]
anchor:p_2swap[]
-Word: 2SWAP
-----------
+=== Word: 2SWAP
+
+....
+Data stack: ( v1 v2 v3 v4 -- v3 v4 v1 v2 )
+....
-----
-stack.asm: WORD p_2swap, '2SWAP',fasm
-----
+"2SWAP" is a function word the reorgnizes the top 4 cells swappping
+the upper and lower pair. This is similar to <<p_swap,SWAP>> but
+working with cell pairs rather than single cells.
+====
+.Definition concept for 2SWAP
+****
+( v1 v2 v3 v4 -- v3 v4 v1 v2 ) : 2SWAP 3 ROLL 3 ROLL ;
+****
+====