;Convert a Binary Number to Gray Code
;XOR the Binary Number with a copy of itself
;that has been Right Shifted (RRC)
;Example: Binary Number = 0EDH = 09BH Gray

	MOV    BINARY,#0EDH
	MOV    A,BINARY
	RRC    A
	XRL    A,BINARY