Hi Enigma
This config works ...Code:' Config '******************************************************************************* #IF __PROCESSOR__ = "12F1840" #CONFIG __CONFIG _CONFIG1, _FOSC_INTOSC & _WDTE_OFF & _PWRTE_ON & _MCLRE_OFF & _CP_OFF & _CPD_OFF & _BOREN_ON & _CLKOUTEN_OFF & _IESO_OFF & _FCMEN_OFF __CONFIG _CONFIG2, _WRT_ALL & _PLLEN_ON & _STVREN_OFF & _BORV_LO & _LVP_OFF #ENDCONFIG #ELSE #MSG "Wrong Processor selected!" #ENDIF '***************************************************************************** 'Includes '***************************************************************************** INCLUDE "DT_INTS-14-2k.bas" INCLUDE "ReEnterPBP.bas" ASM INT_LIST macro ; IntSource, Label, Type, ResetFlag? INT_Handler TMR1_INT, _ClockCount, PBP, yes endm INT_CREATE ; Creates the interrupt processor ENDASM INTCON.7 = 0 ' Pour čtre sur !!! '******************************************************************************* ' Ports init TRISA = 0 PORTA = 0 LATA = 0 NeoPinW1 VAR LATA.0 NeoPinW2 VAR LATA.1 NeoPinR VAR LATA.2 '******************************************************************************* ' Chip Initialization OSCCON = %11110000 ' 8 Mhz internal x 4 OSCTUNE = %00000000 ' Internal osc Adjustment WHILE !OSCSTAT.3 ' Wait for stable OSC ... WEND INTCON = 0 CPSCON0 = 0 CPSCON1 = 0 ADCON0 = 0 ADCON1 = %10000000 ANSELA = 0 CCP1CON = 0 CM1CON0 = 0 DACCON0 = 0 FVRCON = 0 ' Timer 1 T1CON = %00110101 ' Preload @ 15536, PS=8, run T1GCON = 0 INTCON = %11000000 PIE1 = %00000001 PIR1 = 0
But I remember It was somewhat tricky ...
I think this
made the chip run fine ...Code:WHILE !OSCSTAT.3 ' Wait for stable OSC ... WEND
Alain




Bookmarks