Remove 2OVER and 2SWAP
They were unused.
This commit is contained in:
parent
1cbef2f210
commit
64f0f6716e
2
blk.fs
2
blk.fs
@ -1840,8 +1840,6 @@ SYSVARS 0x0c + :** C<*
|
|||||||
1+ DUP PICK ( n val )
|
1+ DUP PICK ( n val )
|
||||||
SWAP 2 * (roll) ( val )
|
SWAP 2 * (roll) ( val )
|
||||||
NIP ;
|
NIP ;
|
||||||
: 2OVER 3 PICK 3 PICK ;
|
|
||||||
: 2SWAP 3 ROLL 3 ROLL ;
|
|
||||||
( ----- 367 )
|
( ----- 367 )
|
||||||
: MOVE ( a1 a2 u -- )
|
: MOVE ( a1 a2 u -- )
|
||||||
?DUP IF ( u ) 0 DO ( a1 a2 )
|
?DUP IF ( u ) 0 DO ( a1 a2 )
|
||||||
|
BIN
cvm/stage.bin
BIN
cvm/stage.bin
Binary file not shown.
@ -129,8 +129,6 @@ SWAP a b -- b a
|
|||||||
TUCK a b -- b a b
|
TUCK a b -- b a b
|
||||||
2DROP a a --
|
2DROP a a --
|
||||||
2DUP a b -- a b a b
|
2DUP a b -- a b a b
|
||||||
2OVER a b c d -- a b c d a b
|
|
||||||
2SWAP a b c d -- c d a b
|
|
||||||
'S Returns current stack pointer, not counting the
|
'S Returns current stack pointer, not counting the
|
||||||
push it's making right now.
|
push it's making right now.
|
||||||
S0 Returns address of PSP TOS. When PSP is empty,
|
S0 Returns address of PSP TOS. When PSP is empty,
|
||||||
|
Loading…
Reference in New Issue
Block a user