NULLA	MOVLW	B'00000000'
	MOVWF	PORTB
	BTFSC 	PORTA,0
	GOTO	NULLA
	GOTO	EGY
	
EGY	MOVLW	B'00000001'
	MOVWF	PORTB
	BTFSC	PORTA,0
	GOTO	EGY
	GOTO	KETTO
	
KETTO	MOVLW	B'00000011'
	MOVWF	PORTB
	BTFSC	PORTA,0
	GOTO	KETTO
	GOTO	HAROM
	
HAROM	MOVLW	B'00000111'
	MOVWF	PORTB
	BTFSC	PORTA,0
	GOTO	HAROM
	GOTO	NULLA