;--------------------------------------------------------------------------- ; PROYECTO:Convertidor DC/DC ;--------------------------------------------------------------------------- ; PROCESADOR : PIC 12C508A ;--------------------------------------------------------------------------- list p=12C508A #include __CONFIG _CP_OFF & _WDT_OFF & _MCLRE_ON & _IntRC_OSC #DEFINE C1 GPIO,0 ;GP0 = C1 #DEFINE C2 GPIO,1 ;GP1 = C2 #DEFINE PVpp GPIO,2 ;GP2 = LED ON #DEFINE LEDP GPIO,4 ;GP4 = LED PROG #DEFINE LEDE GPIO,5 ;GP5 = PVpp NO_Val_OSCAL EQU 00H TVAL EQU 08H ;--------------------------------------------------------------------------- ; INICIO DEL PROGRAMA ;--------------------------------------------------------------------------- IF NO_Val_OSCAL ; SERA BORRADO SI NO EXISTE MOVLW H'70' ; EL VALOR PASARA ENDIF ; AL REGISTRO DE CALIBRACION ; CAPTURA DEL VALOR DE CALIBRACION MOVWF OSCCAL ; CARGA DEL VALOR PRE PROGRAMADO. MOVLW B'0001100' ;Programa los puertos TRIS GPIO ;Gpio 2 y 3 como entradas CLRF GPIO ;LIMPIA LOS PUERTOS BSF LEDE ;ENCIENDE EL LED DE ENCENDIDO GOTO INICIO ;--------------------------------------------------------------------- ; RUTINA DE TIEMPO ;--------------------------------------------------------------------- TEM MOVLW d'200' MOVWF TVAL RET DECFSZ TVAL,f GOTO RET RETLW 0 ;--------------------------------------------------------------------- ; RUTINA DE ENCENDER DEL LVpp ;--------------------------------------------------------------------- LVPP BTFSS PVpp ;PREGUNTA SI EL VPP ESTA PRESENTE GOTO CICLO ;SI NO ESTA PRESENTE REGRESAR BSF LEDP ;SI ESTA PRESENTE ENCENDER LED VPP GOTO FIN CICLO BCF LEDP FIN RETLW 0 ;--------------------------------------------------------------------- ; PROGRAMA PRINCIPAL ;--------------------------------------------------------------------- INICIO BCF C2 BSF C1 CALL TEM CALL LVPP BCF C1 BSF C2 CALL TEM CALL LVPP GOTO INICIO ;--------------------------------------------------------------------------- END ;---------------------------------------------------------------------------