Tutorial 3 - Micontroladores pic - Assembler Pulsadores 2

En el tutorial anterior vimos como encender uno o mas leds mediante pulsadores. ahora veremos como encenderlos  tambien con pulsadores pero de una mejor forma

LIST P=16F628A
INCLUDE  <P16F628A.INC>
ORG 0X00
GOTO     INICIO
ORG  0X05

INICIO  BSF STATUS,RP0
        MOVLW B’00000000'
        MOVWF TRISB
        MOVLW B’11111111'
        MOVWF TRISA
        BCF STATUS,RP0
        MOVWF B’11111111'
        MOVWF PORTB
leer:   BTFSC PORTA,0 ; bit 0 del puerto B esta en nivel bajo, salta 1 linea
        CALL led1 ;salta a encender LED1
        BTFSC PORTA,1
        CALL led2
        BTFSC PORTA,2
        CALL led3
        BTFSC PORTA,3
        CALL led4
        BTFSC PORTA,4
        CALL led5
        GOTO leer

led1:   MOVLW   b’00001100'
        MOVWF   PORTB
        BTFSC PORTA,0
        goto led1
        clrf PORTB
        RETURN

led2:   MOVLW   b’00001010'
        MOVWF   PORTB
        BTFSC PORTA,1
        goto led2
        clrf PORTB
        RETURN

led3:   MOVLW   b’00000110'
        MOVWF   PORTB
        BTFSC PORTA,2
        goto led3
        clrf PORTB
        RETURN
led4:   MOVLW   b’00000010'
        MOVWF   PORTB
        BTFSC PORTA,3
        goto led4
        clrf PORTB
        RETURN
led5:   MOVLW   b’11111111'
        MOVWF   PORTB
        BTFSC PORTA,4
        goto led5
        clrf PORTB
        RETURN
END