Start

    ;BANK 3
    BSF STATUS ,5
    BSF STATUS ,6
    CLRF ANSEL
    ;BANK 1
    BCF STATUS ,6
    CLRF TRISA

    ;BANK 0
    BCF STATUS ,5

    CLRF PORTA;0000 0000

    MENU
    CLRF PORTA ;Remise des led à 0;
    BTFSS PORTC,3 ;PORTC= 1111 1111
    CALL RELEASE
    BTFSC A,0;
    GOTO ALLUMER
    GOTO MENU


    RELEASE
    BTFSC PORTC,3 ;PORTC=1111 1111
    GOTO VAR
    GOTO RELEASE


    VAR
    BTFSS A,0
    GOTO INCA
    GOTO DECA

    INCA
    BSF A,0;A=0000 0001
    GOTO MENU

    DECA
    BCF A,0; A=0000 0000
    GOTO MENU

    ALLUMER
    MOVLW B'11111111'
    MOVWF PORTA ; PORTA=1111 1111
    BTFSS PORTC ,3
    GOTO RELEASE



    END