Path: utzoo!attcan!uunet!zephyr.ens.tek.com!tektronix!nosun!qiclab!m2xenix!puddle!p70.f801.n302.z2.fidonet.org!Martin.Baur From: Martin.Baur@p70.f801.n302.z2.fidonet.org (Martin Baur) Newsgroups: comp.lang.modula2 Subject: Bitwise EXOR Message-ID: <2.2706EBB1@puddle.fidonet.org> Date: 28 Sep 90 05:07:33 GMT Sender: ufgate@puddle.fidonet.org (newsout1.26) Organization: FidoNet node 2:302/801.70 - Gepard's Oracle Zue, Zuerich Lines: 24 In a message of Herman Stevens (2:292/601.21701@fidonet) writes: HS: "I am a beginner with Modula-II. I work on an Amiga with the M2Amiga HS: "compiler. I fail to see how I can do a bitwise EXOR, something you HS: "can easily write in C as : HS: " HS: " tmpbuf[i] = inbuf[i]^key[kp] BITSET (tmpbuf[i]) = BITSET (inbuf[i]) / BITSET (key[kp]) By the way don't be afraid of a possible code generating by the BITSET. It doesn't occur. !Beware of Martin Baur! (His point of view: 2:302/801.70) -- uucp: uunet!m2xenix!puddle!2!302!801.70!Martin.Baur Internet: Martin.Baur@p70.f801.n302.z2.fidonet.org