LIST p=P18F45K20
INCLUDE "P18F45K20.INC"
CONFIG FOSC=INTIO67
CONTADOR equ 0X02;VARIABLE CONTAJE
BUCLE1 equ 0x04
BUCLE2 equ 0x06
ORG 0X00
goto inicio
ORG 0X20
inicio
bcf ANSELH,4,ACCESS
bsf TRISB,0,ACCESS
CLRF TRISD
CLRF PORTD
CLRF CONTADOR
LAZO
BTFSS PORTB,0,ACCESS;INSTRUCCION QUE FALLA!!!!
BRA LAZO
CALL TEMPORIZADOR
BTFSS PORTB,0,ACCESS
BRA LAZO
INCF CONTADOR,1;INCREMENTA CONTADOR
MOVF CONTADOR,0,ACCESS;PASA CONTADOR A WREG
MOVWF PORTD,ACCESS; Y WREG A LEDS
OFF
BTFSC PORTB, 0,ACCESS
BRA LAZO
BRA OFF
TEMPORIZADOR;SI B1=15 -> B2=25 5000=4*B2*(5+B1*3)
MOVLW D'25' ;cargo 25 en wreg
MOVWF BUCLE2,ACCESS; Y CARGO WREG EN BUCLE2
BUC1;BUCLE EXTERIOR SIN CONTAR INTERIOR TIENE 5 CM-
MOVLW D'15'
MOVWF BUCLE1,ACCESS;
DECREMENTA1; BUCLE INTERIOR 3 CM
DECFSZ BUCLE1,1;DECREMENTA BUCLE1 SALTA SI 0
BRA DECREMENTA1
DECFSZ BUCLE2,1;DECREMENTA BUCLE2 SALTA SI 0
BRA BUC1
RETURN
END