X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_xor.adoc;h=5c8b6378f2e1385916c7bfb71b47ead6b36f1b00;hb=bfb48545dd4310c422007dfc1dc3b9eb2897d125;hp=04f763ae708055901d7b913ba4381e1c0239ce48;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git diff --git a/adoc/p_xor.adoc b/adoc/p_xor.adoc index 04f763a..5c8b637 100644 --- a/adoc/p_xor.adoc +++ b/adoc/p_xor.adoc @@ -1,9 +1,13 @@ +// logic.asm: WORD p_xor, 'XOR',fasm + anchor:p_xor[] -Word: XOR ----------- +=== Word: XOR ----- -logic.asm: WORD p_xor, 'XOR',fasm ----- +.... +Data stack: ( v1 v2 -- v3 ) +.... +"XOR" is a function word that replaces a value pair with their bitwise +exclusion; each bit is 1 if the corresponding bits of the two operands +differ and 0 if not.