;------------------------------------------------;
;   practica del libro con pic 16f8743a para el  ;
;   parpadeo de 2 leds Pag#49                    ;
;------------------------------------------------;

                  LIST           P=16F873
                  RADIX          HEX
                  INCLUDE        P16F873.INC
                  ORG            0x00
                  goto           INICIO
                  ORG            0x05

INICIO            bsf            STATUS,RP0
                  bcf            STATUS,RP1
                  clrf           TRISB
                  movlw          b'00000110'
                  movwf          ADCON1
                  movlw          b'00000110'
                  movwf          TRISA
                  bcf            STATUS,RP0
                  clrf           PORTB
                  clrf           PORTA
 
BUCLE             movf           PORTA,W
                  btfss          STATUS,Z
                  goto           APAGAR
                  goto           ENCENDER

ENCENDER          movlw          0xFF
                  movwf          PORTB
                  goto           BUCLE

APAGAR            clrf           PORTB
                  goto           BUCLE
                  

                  END