collapseos/blk/395

7 lines
207 B
Plaintext
Raw Normal View History

2020-08-31 12:11:17 -04:00
: AMOVEW ( src dst u -- )
( u ) 0 DO
SWAP DUP I 1 LSHIFT + A@ ( dst src x )
ROT TUCK I 1 LSHIFT + ( src dst x dst )
A! ( src dst )
LOOP 2DROP ;