1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-14 17:38:05 +11:00
collapseos/blk/144
2020-05-22 14:17:38 -04:00

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 TUCK I + ( src dst x dst )
A! ( src dst )
LOOP
2DROP
;