mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-05 17:18:46 +10:00
This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues.
17 lines
403 B
Plaintext
17 lines
403 B
Plaintext
: MOVE ( a1 a2 u -- )
|
|
( u ) 0 DO ( a1 a2 )
|
|
SWAP C@+ ( a2 a1+1 x )
|
|
ROT C!+ ( a1+1 a2+1 )
|
|
LOOP 2DROP ;
|
|
: MOVE- ( a1 a2 u -- )
|
|
TUCK + 1- ( a1 u a2+u-1 )
|
|
ROT 2 PICK + 1- ( u a2+u-1 a1+u-1 )
|
|
ROT ( u ) 0 DO ( a2 a1 )
|
|
C@- ( a2 a1-1 x )
|
|
ROT C!- ( a1-1 a2-1 ) SWAP ( a2 a1 )
|
|
LOOP 2DROP ;
|
|
: MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ;
|
|
: PREV 3 - DUP @ - ;
|
|
|
|
|