;--------------------------------------------------------------------------------------------------------------
; <<<<<<<<<<<<<<<<<<<<<< VARIACION DE INTENCIDAD LUMINOSA DE LEDs CON PIC (PWM)>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; PROGRAMADOR:
; * UWALDO EMILIO CALAVE TUCO
; AÑO: 2010.
;--------------------------------------------------------------------------------------------------------------
LIST P = 16F877A ; Tipo de microcontrolador.
#INCLUDE <P16F877A.INC> ; Archivo de definicioes.
__CONFIG _CP_OFF & _WRT_OFF & _DEBUG_OFF & _CPD_OFF & _LVP_OFF & _BODEN_ON & _PWRTE_ON & _WDT_OFF & _XT_OSC
ORG 0x00 ; Inicio del codigo.
GOTO INICIO
PDel0 EQU 0x73
PDel1 EQU 0x74
;------------------------------------------------
;*********************** MACRO ************************
;--------------------------------------
BANCO_0 MACRO
BCF STATUS,RP1
BCF STATUS,RP0
ENDM
BANCO_1 MACRO
BCF STATUS,RP1
BSF STATUS,RP0
ENDM
;-------------------------------------------------------------
; RETARDO DE 20ms
; Generado con PDEL ver SP r 1.0 el 15/04/2010 Hs 19:25:10
; Descripcion: Delay 20000 ciclos
;-------------------------------------------------------------
RET_20ms
movlw .21 ; 1 set numero de repeticion (B)
movwf PDel0 ; 1 |
PLoop1 movlw .237 ; 1 set numero de repeticion (A)
movwf PDel1 ; 1 |
PLoop2 clrwdt ; 1 clear watchdog
decfsz PDel1, 1 ; 1 + (1) es el tiempo 0 ? (A)
goto PLoop2 ; 2 no, loop
decfsz PDel0,1 ; 1 + (1) es el tiempo 0 ? (B)
goto PLoop1 ; 2 no, loop
PDelLL1 goto PDelLL2 ; 2 ciclos delay
PDelLL2 clrwdt ; 1 ciclo delay
return ; 2+2 Fin.
;-------------------------------------------------------------
INICIO
BANCO_0
CLRF PORTB
CLRF PORTC
BANCO_1
MOVLW B'11111111'
MOVWF TRISB
MOVLW B'11111011'
MOVWF TRISC
BCF OPTION_REG,NOT_RBPU
BANCO_0
BSF INTCON,GIE
BSF INTCON,RBIE
BCF INTCON,RBIF
BANKSEL PR2
MOVLW .249
MOVWF PR2
BANKSEL CCPR1L
MOVLW B'01111101'
MOVWF CCPR1L
BANKSEL CCP1CON
BCF CCP1CON,CCP1X
BCF CCP1CON,CCP1Y
BANKSEL T2CON
BCF T2CON,T2CKPS1
BSF T2CON,T2CKPS0
BSF T2CON,TMR2ON
BANKSEL CCP1CON
MOVF CCP1CON,W
ANDLW B'00110000'
IORLW B'00001111'
MOVWF CCP1CON
TEST_0
BTFSC PORTB,0
GOTO TEST_1
GOTO INCREMENTA
TEST_1
BTFSC PORTB,1
GOTO TEST_0
GOTO DECREMENTA
INCREMENTA
CALL RET_20ms
BTFSC PORTB,0
GOTO TEST_0
SUELTA_0
BTFSS PORTB,0
GOTO SUELTA_0
INCF CCPR1L,F
INCF CCPR1L,F
INCF CCPR1L,F
INCF CCPR1L,F
INCF CCPR1L,F
INCF CCPR1L,F
INCF CCPR1L,F
INCF CCPR1L,F
GOTO TEST_1
DECREMENTA
CALL RET_20ms
BTFSC PORTB,1
GOTO TEST_1
SUELTA_1
BTFSS PORTB,1
GOTO SUELTA_1
DECF CCPR1L,F
DECF CCPR1L,F
DECF CCPR1L,F
DECF CCPR1L,F
DECF CCPR1L,F
DECF CCPR1L,F
DECF CCPR1L,F
DECF CCPR1L,F
GOTO TEST_0
END
el codigo no puedo ver ni con el osciloscopio ni por led en la version que tengo 7.5 sp3
ayudenme para ver como puedo simular es urgente
; <<<<<<<<<<<<<<<<<<<<<< VARIACION DE INTENCIDAD LUMINOSA DE LEDs CON PIC (PWM)>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; PROGRAMADOR:
; * UWALDO EMILIO CALAVE TUCO
; AÑO: 2010.
;--------------------------------------------------------------------------------------------------------------
LIST P = 16F877A ; Tipo de microcontrolador.
#INCLUDE <P16F877A.INC> ; Archivo de definicioes.
__CONFIG _CP_OFF & _WRT_OFF & _DEBUG_OFF & _CPD_OFF & _LVP_OFF & _BODEN_ON & _PWRTE_ON & _WDT_OFF & _XT_OSC
ORG 0x00 ; Inicio del codigo.
GOTO INICIO
PDel0 EQU 0x73
PDel1 EQU 0x74
;------------------------------------------------
;*********************** MACRO ************************
;--------------------------------------
BANCO_0 MACRO
BCF STATUS,RP1
BCF STATUS,RP0
ENDM
BANCO_1 MACRO
BCF STATUS,RP1
BSF STATUS,RP0
ENDM
;-------------------------------------------------------------
; RETARDO DE 20ms
; Generado con PDEL ver SP r 1.0 el 15/04/2010 Hs 19:25:10
; Descripcion: Delay 20000 ciclos
;-------------------------------------------------------------
RET_20ms
movlw .21 ; 1 set numero de repeticion (B)
movwf PDel0 ; 1 |
PLoop1 movlw .237 ; 1 set numero de repeticion (A)
movwf PDel1 ; 1 |
PLoop2 clrwdt ; 1 clear watchdog
decfsz PDel1, 1 ; 1 + (1) es el tiempo 0 ? (A)
goto PLoop2 ; 2 no, loop
decfsz PDel0,1 ; 1 + (1) es el tiempo 0 ? (B)
goto PLoop1 ; 2 no, loop
PDelLL1 goto PDelLL2 ; 2 ciclos delay
PDelLL2 clrwdt ; 1 ciclo delay
return ; 2+2 Fin.
;-------------------------------------------------------------
INICIO
BANCO_0
CLRF PORTB
CLRF PORTC
BANCO_1
MOVLW B'11111111'
MOVWF TRISB
MOVLW B'11111011'
MOVWF TRISC
BCF OPTION_REG,NOT_RBPU
BANCO_0
BSF INTCON,GIE
BSF INTCON,RBIE
BCF INTCON,RBIF
BANKSEL PR2
MOVLW .249
MOVWF PR2
BANKSEL CCPR1L
MOVLW B'01111101'
MOVWF CCPR1L
BANKSEL CCP1CON
BCF CCP1CON,CCP1X
BCF CCP1CON,CCP1Y
BANKSEL T2CON
BCF T2CON,T2CKPS1
BSF T2CON,T2CKPS0
BSF T2CON,TMR2ON
BANKSEL CCP1CON
MOVF CCP1CON,W
ANDLW B'00110000'
IORLW B'00001111'
MOVWF CCP1CON
TEST_0
BTFSC PORTB,0
GOTO TEST_1
GOTO INCREMENTA
TEST_1
BTFSC PORTB,1
GOTO TEST_0
GOTO DECREMENTA
INCREMENTA
CALL RET_20ms
BTFSC PORTB,0
GOTO TEST_0
SUELTA_0
BTFSS PORTB,0
GOTO SUELTA_0
INCF CCPR1L,F
INCF CCPR1L,F
INCF CCPR1L,F
INCF CCPR1L,F
INCF CCPR1L,F
INCF CCPR1L,F
INCF CCPR1L,F
INCF CCPR1L,F
GOTO TEST_1
DECREMENTA
CALL RET_20ms
BTFSC PORTB,1
GOTO TEST_1
SUELTA_1
BTFSS PORTB,1
GOTO SUELTA_1
DECF CCPR1L,F
DECF CCPR1L,F
DECF CCPR1L,F
DECF CCPR1L,F
DECF CCPR1L,F
DECF CCPR1L,F
DECF CCPR1L,F
DECF CCPR1L,F
GOTO TEST_0
END
el codigo no puedo ver ni con el osciloscopio ni por led en la version que tengo 7.5 sp3
ayudenme para ver como puedo simular es urgente
