COMBF	MACRO	REG,BIT
	IF (BIT==0)
		MOVLW	B'00000001'
	ENDIF
	IF (BIT==1)
		MOVLW	B'00000010'
	ENDIF
	IF (BIT==2)
		MOVLW	B'00000100'
	ENDIF
	IF (BIT==3)
		MOVLW	B'00001000'
	ENDIF
	IF (BIT==4)
		MOVLW	B'00010000'
	ENDIF
	IF (BIT==5)
		MOVLW	B'00100000'
	ENDIF
	IF (BIT==6)
		MOVLW	B'01000000'
	ENDIF
	IF (BIT==7)
		MOVLW	B'10000000'
	ENDIF
	XORWF	REG,F
	ENDM
	
	
	JPE	MACRO	ENDER,REG,VAL
	MOVLW  	VAL
	SUBWF  	REG,W
	BTFSC	STATUS,Z
	GOTO	ENDER
	ENDM