mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-23 13:58:06 +11:00
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 )
|
||||
SWAP 2 * (roll) ( val )
|
||||
NIP ;
|
||||
: 2OVER 3 PICK 3 PICK ;
|
||||
: 2SWAP 3 ROLL 3 ROLL ;
|
||||
( ----- 367 )
|
||||
: MOVE ( a1 a2 u -- )
|
||||
?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
|
||||
2DROP a a --
|
||||
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
|
||||
push it's making right now.
|
||||
S0 Returns address of PSP TOS. When PSP is empty,
|
||||
|
Loading…
Reference in New Issue
Block a user