;******************************************************+
;* Autor: Felipe Moctezuma
;* Descripcion: Comparacion de 2 numeros binarios configurando los puertos de I/O
;*		3 bits de salida
;*		4 bits de entrada


      LIST P=16F887
      #INCLUDE p16f887.inc
      ORG 0
      GOTO CONF
    CONF
      BSF STATUS,5	      ;PASO AL BANCO 1
      CLRF TRISD	        ;CONFIGURO LOS PUERTOS RE0-3 COMO SALIDA
      MOVLW B'00001111'   ;ESTABLESCO LOS PRIMEROS 4 BITS DE
      MOVWF TRISB	        ;ESTABLESCO LOS PRIMEROS 4 BITS DE TRISA COMO ENTRADA
      MOVWF TRISC	        ;ESTABLESCO LOS PRIMEROS 4 BITS DE TRISB COMO ENTRADA
      BCF STATUS, 5	      ;REGRESO AL BANCO 0
      GOTO LOOP
    MAYOR
      CLRF PORTD          ;LIMPIA EL REGISTRO PORTD
      MOVLW B'00000100'   ;PONE EN ALTO SOLO EL BIT3 DE W, PARA INDICAR QUE PORTB > PORTC
      MOVF PORTD	        ;PONE EL ALTO EL BIT3 DE PORTE
      GOTO LOOP	          ;REGRESA A LOOP
    MENOR
      CLRF PORTD          ;LIMPIA EL REGISTRO PORTD
      MOVLW B'00000001'   ;PONE EN ALTO SOLO EL BIT0 DE W, PARA INDICAR QUE PORTB < PORTC
      MOVF PORTD	        ;PONE EL ALTO EL BIT0 DE PORTE
      GOTO LOOP	          ;REGRESA A LOOP
    IGUALES
      CLRF PORTD          ;LIMPIA EL REGISTRO PORTD
      MOVLW B'00000010'   ;PONE EN ALTO SOLO EL BIT1 DE W, PARA INDICAR QUE PORTB = PORTC
      MOVF PORTD	        ;PONE EL ALTO EL BIT1 DE PORTE
      GOTO LOOP	          ;REGRESA A LOOP
    LOOP
      MOVF PORTB,W	      ;MUEVE EL REGISTRO PORTB A W
      SUBWF PORTC,W	      ;REALIZA LA OPERACION PORTC -PORTB Y LA ALMACENA EN W
      BTFSC STATUS,Z	    ;EVALUA EL BIT Z DE STATUS PARA DETERMINAR SI LA OPERACION FUE 0,EN CASO QUE Z=1 SIGNIFICA QUE SON IGUALES
      GOTO IGUALES	      ;ESCRIBE EN PORTE 010 QUE INDICA QUE SON IGUALES
      BTFSS STATUS,C	    ;EVALUA EL BIT C DE STATUS PARA DETERMINAR SI LA OPERACION FUE POSITIVA O NEGATIVA,EN CASO QUE C=0 SIGNIFICA QUE PORTB > PORTC
      GOTO MAYOR	        ;ESCRIBE EN PORTE 100 QUE INDICA QUE PORTB > PORTC
      GOTO MENOR	        ;ESCRIBE EN PORTE 001 QUE INDICA QUE PORTB < PORTC
      GOTO LOOP
      END