b6a48cfabe
Files correlati : Ricompilazione Demo : [ ] Commento :spostati gli ALX generici in include (step 1) git-svn-id: svn://10.65.10.50/trunk@12241 c028cbd2-c16b-5b4b-a496-9718f37d4682
24 lines
251 B
Plaintext
Executable File
24 lines
251 B
Plaintext
Executable File
: 2DROP ( n1 n2 -- )
|
|
DROP DROP
|
|
;
|
|
|
|
: 2DUP ( n1 n2 -- n1 n2 n1 n2 )
|
|
OVER OVER
|
|
;
|
|
|
|
: NIP ( n1 n2 -- n2 )
|
|
SWAP DROP
|
|
;
|
|
|
|
: -ROT ( n1 n2 n3 -- n3 n1 n2 )
|
|
ROT ROT
|
|
;
|
|
|
|
: TUCK ( n1 n2 -- n2 n1 n2 )
|
|
SWAP OVER
|
|
;
|
|
|
|
: INCR ( a1 -- )
|
|
1 SWAP +!
|
|
;
|