BSET DDRB,%00000001
	BSET DDRB,%00000010
	BSET DDRB,%00000100
	BCLR DDRA,%10000000
	BSET PORTB,%00000001		
CHK	BRCLR PORTA,%1000000,CWISE
	BCLR  PORTB,%00000001	
	BSET  PORTB,%00000100
	BRA  CHK
CWISE	BSET  PORTB,%00000001
	BCLR  PORTB,%00000010		
	BRA  CHK