mask! shortening

Open jamesbowman opened this issue 8 years ago • 0 comments

https://github.com/oh2aun/flashforth/blob/6c5643999cc78383dd377d84668916ca55639247/avr/forth/asm.txt#L17-L18

can be:

>r over xor r> and xor ;

demonstration:

: x rot over invert and rot rot and or ;  ok
: y >r over xor r> and xor ;   ok
aaaa bbbb 0f0f x . ABAB  ok
aaaa bbbb 0f0f y . ABAB  ok

Dec 04 '17 15:12 jamesbowman