1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-21 04:28:06 +11:00
collapseos/blk/395

7 lines
207 B
Plaintext
Raw Normal View History

2020-09-01 02:11:17 +10: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 ;