25개 이상의 토픽을 선택하실 수 없습니다.
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
- : 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 ;
|