\ additional words

: 2+ ( x -- x+2)
	2 +
;

: *dup ( x u -- x1 x2 x3 ... xu )
	0 DO DUP LOOP
;

: *2dup ( d u -- d1 d2 d3 ... du )
	0 DO 2DUP LOOP
;

\ forth words overrided by assembler syntax

: && AND ;
: || OR ;
: ^^ XOR ;
: >< SWAP ;