; Por el Puerto B se obtiene el dato de las cinco líneas del Puerto A al que está conectado

; un array de interruptores. Por ejemplo, si por el Puerto A se introduce "---11001", por

; el Puerto B aparecerá "xxx11001" (el valor de las tres líneas superiores no importa).

;

; ZONA DE DATOS **********************************************************************



   __CONFIG   _CP_OFF &  _WDT_OFF & _PWRTE_ON & _XT_OSC   ; Configuración para el

                                             ; grabador.

   LIST   P=16F84A         ; Procesador.

   INCLUDE <P16F84A.INC>      ; Definición de los operandos utilizados.



; ZONA DE CÓDIGOS ********************************************************************



   ORG    0               ; El programa comienza en la dirección 0 de memoria de

Inicio                     ; programa.

   bsf      STATUS,RP0         ; Pone a 1 el bit 5 del STATUS. Acceso al Banco 1.

   clrf   TRISB            ; Las líneas del Puerto B se configuran como salidas.

   movlw   b'11111111'

   movwf   TRISA            ; Las líneas del Puerto A se configuran como entradas.

   bcf      STATUS,RP0         ; Pone a 0 el bit 5 de STATUS. Acceso al Banco 0.

Principal

   movf    PORTA,W            ; Lee el Puerto A.

   movwf   PORTB            ; El contenido de W se visualiza por el Puerto B.

   goto    Principal         ; Crea un bucle cerrado.



   END                     ; Fin del programa.