LIST P=18LF46K22 #INCLUDE CONFIG PLLCFG = OFF CONFIG FOSC = HS CONFIG PRICLKEN = ON CONFIG FCMEN = OFF CONFIG IESO = OFF CONFIG PWRTEN = OFF CONFIG BOREN = OFF CONFIG WDTEN = OFF CONFIG PBADEN = OFF CONFIG MCLRE = ON CONFIG STVREN = ON CONFIG LVP = OFF CONFIG XINST = OFF CONFIG DEBUG = OFF CBLOCK 0X000 VALT1, LOOP1, LOOP2 ENDC ORG 0000H GOTO START START MOVLB 0XF CLRF PORTB ;PORTB DIGITÁLIS CLRF LATB CLRF TRISB CLRF ANSELB CLRF PORTC ;PORTC DIGITÁLIS CLRF LATC MOVLW B'00010000' MOVWF TRISC CLRF ANSELC PROGRAM MOVLW B'11111111' MOVWF LATB CALL DELAY CALL DELAY CALL DELAY CALL DELAY CALL DELAY CALL DELAY CLRF LATB CALL DELAY CALL DELAY CALL DELAY CALL DELAY CALL DELAY CALL DELAY GOTO PROGRAM DELAY MOVLW D'255' MOVWF LOOP1 OUTER MOVLW D'255' MOVWF LOOP2 INNER DECFSZ LOOP2,F GOTO INNER DECFSZ LOOP1,F GOTO OUTER RETURN STOP NOP GOTO STOP END