Demon
- 12th August 2024, 06:09
Migrated my test code from a 18F26K22 (max 3Kohm impedance on ADC) to a 16F1937 (max 10K).
Datasheet: https://ww1.microchip.com/downloads/aemDocuments/documents/OTH/ProductDocuments/DataSheets/41364E.pdf
32 MHz internal clock is on page 74
I tried a gazillion permutations of the clock settings but I can't seem to get it to blink ON at 1 second intervals.
Pause 15 takes about 1 second from ON to ON. :confused:
#CONFIG
__CONFIG _CONFIG1, _FOSC_INTOSC & _WDTE_OFF & _PWRTE_ON & _MCLRE_ON & _CP_OFF & _CPD_OFF & _BOREN_OFF & _CLKOUTEN_OFF & _IESO_OFF & _FCMEN_OFF
__CONFIG _CONFIG2, _WRT_OFF & _VCAPEN_OFF & _PLLEN_ON & _STVREN_OFF & _BORV_LO & _LVP_OFF
#ENDCONFIG
DEFINE IRCF = %1110 ' to enable 8 MHz
DEFINE SCS = %00 ' system clock determined by FOSC
DEFINE OSC 32
'DEFINE TUN = %000000
ANSELA = %00000000
ANSELB = %00000000
ANSELD = %00000000
ANSELE = %00000000
TRISA = %00000000
TRISB = %00000000
TRISC = %00000000
TRISD = %00000000
TRISE = %00001000 ' E3=MCLR
LEDblink var PORTB.5
LEDblink = 0
Mainloop:
if ledblink = 0 then
LEDblink = 1
else
LEDblink = 0
endif
Pause 15
goto mainloop
end
I bow in humbleness and await the appropriate mockery.
:D
Datasheet: https://ww1.microchip.com/downloads/aemDocuments/documents/OTH/ProductDocuments/DataSheets/41364E.pdf
32 MHz internal clock is on page 74
I tried a gazillion permutations of the clock settings but I can't seem to get it to blink ON at 1 second intervals.
Pause 15 takes about 1 second from ON to ON. :confused:
#CONFIG
__CONFIG _CONFIG1, _FOSC_INTOSC & _WDTE_OFF & _PWRTE_ON & _MCLRE_ON & _CP_OFF & _CPD_OFF & _BOREN_OFF & _CLKOUTEN_OFF & _IESO_OFF & _FCMEN_OFF
__CONFIG _CONFIG2, _WRT_OFF & _VCAPEN_OFF & _PLLEN_ON & _STVREN_OFF & _BORV_LO & _LVP_OFF
#ENDCONFIG
DEFINE IRCF = %1110 ' to enable 8 MHz
DEFINE SCS = %00 ' system clock determined by FOSC
DEFINE OSC 32
'DEFINE TUN = %000000
ANSELA = %00000000
ANSELB = %00000000
ANSELD = %00000000
ANSELE = %00000000
TRISA = %00000000
TRISB = %00000000
TRISC = %00000000
TRISD = %00000000
TRISE = %00001000 ' E3=MCLR
LEDblink var PORTB.5
LEDblink = 0
Mainloop:
if ledblink = 0 then
LEDblink = 1
else
LEDblink = 0
endif
Pause 15
goto mainloop
end
I bow in humbleness and await the appropriate mockery.
:D