Έλεγχος διόδου με PIC 16F84

        LIST P=16F84, F=INHX8M
        INCLUDE 'PICREG.EQU'
REG1 	EQU 	0CH
REG2 	EQU 	0DH
	MOVLW	B'11111001'
	MOVWF	PORTB
	MOVLW	FFH
	MOLWF	PORTA
	ORG 	0FH
START	BSF	PORTB,0
	BCF	PORTB,3
	BTFSS	PORTA,0
	GOTO	ELEGXOS
	MOVLW	B'00000010'
	MOVWF	PORTB
	GOTO	START
ELEGXOS	MOVLW	B'00000100'
	MOVWF	PORTB
	BCF	PORTB,0
	BSF	PORTB,3
	BTFSS	PORTA,0
	GOTO	ELEGXOS2
	MOVLW	B'00000010'
	MOVWF	PORTB
ELEGXOS2MOVLW	B'00000100'
	MOVWF	PORTB