LIST P=18F4550
    #INCLUDE<P18F4550.INC>


    #DEFINE	BOTON PORTA,  4, 0

    ORG .0

INICIO
    CLRF    PORTA,  0
    CLRF    PORTD,  0
    MOVLW  B'11111111'
    MOVWF  TRISA,0
    MOVLW   .15
    MOVWF   ADCON1, 0
    CLRF    TRISD, 0
    MOVLW   B'11010111'
    MOVWF   T0CON,  0


MAIN
BTFSS BOTON
    GOTO OPC1
    GOTO ESPERA

ESPERA
CALL DELAY_10
BTFSC BOTON
    GOTO ESPERA
    GOTO PRENDE

    PRENDE
       BSF PORTD,6,0
    CALL DELAY_100
    BCF PORTD,6,0
    CALL DELAY_100
    BTFSS BOTON
    GOTO PRENDE
    GOTO OPC

    OPC
    BCF PORTD,6,0
    BTFSC BOTON
    GOTO OPC
    GOTO OPC1

    OPC1



    CLRF PORTD,0
    MOVLW B'00000101'
    CPFSEQ PORTA,0
    GOTO OPC2
    GOTO LEDV
    LEDV
  MOVLW B'00000001'
  MOVWF PORTD,0
GOTO MAIN
  OPC2
   MOVLW B'00000001'
    CPFSEQ PORTA,0
    GOTO OPC3
    GOTO LEDR
LEDR
  MOVLW B'00000010'
  MOVWF PORTD,0
GOTO MAIN
  OPC3
   MOVLW B'00000111'
    CPFSEQ PORTA,0
    GOTO MAIN
    GOTO LEDA
    LEDA
  MOVLW B'11111111'
  MOVWF PORTD,0
GOTO MAIN



  DELAY_10
    CLRF    TMR0L,  0
    MOVLW   .10
    ASK
	CPFSEQ	TMR0L,	0
	GOTO	ASK
	RETURN



	DELAY_100
    CLRF    TMR0L,  0
    MOVLW   .100
    ASK1
	CPFSEQ	TMR0L,	0
	GOTO	ASK1
	RETURN



    END