mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 03:20:56 +11:00
12 lines
221 B
Plaintext
12 lines
221 B
Plaintext
|
( Same as MOVE, but with A@ and A! )
|
||
|
|
( src dst u -- )
|
||
|
|
: AMOVE
|
||
|
|
( u ) 0 DO
|
||
|
|
SWAP DUP I + A@ ( dst src x )
|
||
|
|
ROT SWAP OVER I + ( src dst x dst )
|
||
|
|
A! ( src dst )
|
||
|
|
LOOP
|
||
|
|
2DROP
|
||
|
|
;
|
||
|
|
|