code:

---

;Function	XOR()
;
;Author		Ben Dulaney
;
;Version	1.0
;
;Action		Performs an eXclusive OR operation on a binary value
;
;Syntax		XOR("Binary Value", "Bit to Swap")
;
;Parameters
;		BINARY VALUE	: REQUIRED. The value of the binary number to be manipulated.
;		BIT TO SWAP	: REQUIRED. A Power of 2 Number (i.e. 2,4,8,16,32,512)
;
;Returns	Value of bit-swapped binary number
;		1 if BIT TO SWAP is invalid
;
;Dependencies	KiX 4.10+ 
;
;Example	$VAL1 = XOR(577,64)
;
;Source

Function XOR($BinaryVal,$Bit)
	Dim $TstBit
	$TstBit = $Bit
	WHILE $TstBit MOD 2 = 0 AND $TstBit <> 1
		$TstBit = $TstBit / 2
	LOOP
	IF $TstBit <> 1
		EXIT(1)
		RETURN
	ENDIF
	Dim $TmpVar
	$TmpVar=$BinaryVal - ($BinaryVal & $Bit)
	IF $TmpVar = $BinaryVal   ;The bit was off
		$XOR = $BinaryVal + $Bit
	ELSE                      ;The bit was on
		$XOR = $BinaryVal - $Bit
	ENDIF
EndFunction

---