izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-23 16:38:06 +11:00
Code Issues Releases Wiki Activity

Remove 2OVER and 2SWAP

Browse Source 
They were unused.
This commit is contained in:
Virgil Dupras 2021-01-02 13:56:36 -05:00
parent 1cbef2f210
commit 64f0f6716e
3 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
blk.fs
View File

@ -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
View File

Binary file not shown.

2
doc/dict.txt
View File

@ -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,