* 2OVER ( a,a b,b -- a,a b,b a,a ) double-cell over, see OVER and 2DUP simulate: : 2OVER SP@ 2 CELLS + 2@ ;
2OVER
( a,a b,b -- a,a b,b a,a )
OVER
2DUP
simulate: : 2OVER SP@ 2 CELLS + 2@ ;
FORTH/ANS core (dpANS.6.1.0400) ordinary primitive