#INCLUDE list p=18f4520 CONFIG OSC = HS CONFIG BOREN = OFF CONFIG WDT = OFF CONFIG LVP = OFF CONFIG PBADEN = OFF PWM_INDITAS EQU 0X21 CBLOCK 0X20 Delay_2_T1 Delay_2_T2 Delay_2_T3 PWM_LED ENDC ORG 0X0000 ;-----------CONFIG----------------- MOVLW 0X00 MOVWF TRISA MOVWF TRISB MOVWF TRISC MOVWF TRISD MOVWF TRISE MOVLW 0x00 MOVWF PORTA MOVWF PORTC MOVWF PORTB MOVWF PORTD MOVWF PORTC MOVWF PORTE ;-----------CONFIG END--------------------- MOVLW 0X01 MOVWF PORTA MOVLW 0XFF MOVWF PORTB ;---------PWM BEÁLÍTÁS------------------- MAIN CLRF TRISC,1 CLRF TRISC,2 MOVLW B'00001100' MOVWF CCP2CON MOVLW B'00000010' MOVWF T2CON MOVLW D'199' MOVWF PIR1 CLRF PWM_LED BCF T2CON,TMR2IF BCF T2CON,TMR2 BSF T2CON,TMR2ON ;---------PWM SZÁM-------- PWM_START_2 MOVLW 0X02 MOVWF PWM_INDITAS PWM_INDIT DECFSZ PWM_INDITAS GOTO P_START CALL FULL P_START CALL MAIN_PWM GOTO PWM_INDIT ;--------------PWM FŐ--------------- MAIN_PWM CALL PWM_IDO MOVLW 0X00 IORWF PWM_LED,W BTFSS STATUS,Z GOTO DEC_CCPR2L INC_CCPR2L INCFSZ CCPR2L GOTO MAIN_PWM GOTO PWM_LED_0 DEC_CCPR2L DECFSZ CCPR2L GOTO MAIN_PWM STATE COMF PWM_LED,F INCFSZ CCPR2L GOTO MAIN_PWM PWM_LED_0 COMF PWM_LED,F DECFSZ CCPR2L GOTO MAIN_PWM RETURN PWM_IDO: MOVLW 0x69 MOVWF Delay_2_T1 MOVLW 0x21 MOVWF Delay_2_T2 DELAY_2: DECFSZ Delay_2_T1, 1 GOTO DELAY_2 DECFSZ Delay_2_T2, 1 GOTO DELAY_2 NOP NOP RETURN FULL MOVLW 0XFF MOVWF PORTA MOVLW 0XFF MOVWF PORTC MOVLW 0XFF MOVWF PORTD END