BITXOR - Bits XOR durchfuehren

REXX Built-In Funktionen
Umsetzung der Zeichenkette

Syntax:                                 
BITXOR(info1<,<info2><,fuell>>)

/* REXX BITXOR Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a1 = "6F"X
a2 = "E6"X
a3 = "E6E1"X
  /* */
SAY C2X(BITXOR(a1,a2))       /* Ausgabe: "89"X                   */
SAY C2X(BITXOR(a1,a3))       /* Ausgabe: "89E1"X                 */
SAY C2X(BITXOR(a1,a3,"35"X)) /* Ausgabe: "89D4"X                 */
SAY C2X(BITXOR('1010'b,'1111'b))  /* Ausgabe: "05"X '0101'       */