NUMERO EQU D'13'
ORG 0
INICIO
BSF SATATUS,RP0
CLRF TRISB
MOVLW B'00011111'
MOVWF TRISA
BCF STATUS,RP0
PRINCIPAL
MOVLW NUMERO
SUBWF PORTA,W
MOVLW B'11110000' ;SUPONE QUE ES MENOR
BTFSS STATUS,C
GOTO ACTIVARSALIDAS
MOVLW B'11111111' ;SUPONE QUE SON IGUALES
BTFSC STATUS,Z
GOTO ACTIVASALIDAS
MOVLW B'01010101' ;SUPONE QUE ES MAYOR
ACTIVASALIDAS
MOVWF PORTB
GOTO PRINCIPAL
END