Pic18f67k22 WDT

[eyalbiton]

Hello

Is it pbp use one of the timer to monitor WATCHDOG TIMER ?
in my program i use timer0, timer1, timer3.

i write test loop to runout the MCU (confirmed all the i/o get "crazy"), but the WDT not restart the MCU.

reset config setting:
CONFIG PWRTEN = ON ;Power-up Timer
CONFIG BOREN = SBORDIS ; Brown-out Reset Enabled in hardware, SBOREN disabled
CONFIG BORPWR = HIGH ;BOR MV set to high power level
CONFIG BORV = 2; 3 ; Brown-out Reset 0=3v, 1=2.7v, 2=2v, 3=1.8v
CONFIG WDTEN = SWDTDIS ;WDT enabled in hardware; SWDTEN bit disabled
CONFIG WDTPS = 64;512 ;WDT (i try many options from 1 to 1024)
CONFIG STVREN = ON ;Stack Full/Underflow Reset

i need some help please.

[richard]

Is it pbp use one of the timer to monitor WATCHDOG TIMER ?

no.

i write test loop to runout the MCU (confirmed all the i/o get "crazy"), but the WDT not restart the MCU.

means very little to anyone.

post a minimal complete and compliable version of your program that demonstrates your issue with the WDT [in code tags]

[eyalbiton]

Hi


In this loop i load receiving scan resolute list from wifi module, and load only the ssid name and rssi to message array.
The loop do the job perfect, but in the beginning i did mistake with "if CHECK=>AX1 THEN GOTO break33 'END OF LIST"
So the MCU become "MAD" ,turn-on the buzzer , and few output i have on my pcb and even send "nul" at uart Tx and stay at loop forever.
It made me wonder, why the WDT didn't reset.

Here is the loop.

RE var byte[998]
Message var byte[998]
;AX1 is total receiving bytes.
;CHECK is the start point

'******************************
SearchSymbol: 'search "," Symbol
'*** Must set T4 before send to this loop
T1=0
FOR A3 = CHECK TO AX1'
IF RE[A3]=Symb THEN T1=T1+1
IF T1=T4 THEN break9
NEXT A3
break9:
CHECK=A3
return


'*********************************************
'*** load all +SCAN SSID,RSSI list to Message array ***
'*********************************************
GET_SSID_list:
MessageL=0
T4=2 'multiple of the symbol x time "space"

GET_SSID_list1:
Symb=" " '"Space"
GOSUB SearchSymbol 'Search THE SYMBOLE
if CHECK=>AX1 THEN GOTO break33 'END OF LIST


CHECK=CHECK+1 'to jump on the "space"
if RE[CHECK]="," THEN  'If hidden wifi move to next line 
            T4=1 'multiple of the symbol
            goto  GET_SSID_list1
            endif
            
FOR A3 = CHECK TO AX1 'Get SSID name
if RE[A3]="," then break31
Message[MessageL]=RE[A3]
MessageL=MessageL+1
next A3 
break31:
T4=2 'multiple of symbol,  JUMP on channel
Symb=","
gosub SearchSymbol


CHECK=A3+1 'jump on ","
Message[MessageL]="," 'insert "," Between ssid to rssi  (ssid,rssi)
MessageL=MessageL+1
FOR A3 = CHECK TO AX1 'Get RSSI 
if RE[A3]=$D then break32 'CR  
Message[MessageL]=RE[A3]
MessageL=MessageL+1
NEXT A3
break32:
CHECK=A3
if CHECK=>AX1 THEN GOTO break33 'END OF LIST


Message[MessageL]=$A 'insert LF
MessageL=MessageL+1
T4=1 'multiple of the symbol
GOTO GET_SSID_list1 'Next line
break33:
RETURN

[richard]

i see a code snippet that cannot be compiled.
a code snippet not in code tags.
a code snippet that does not demonstrate in any way how you have configured the wdt
a code snippet that does not demonstrate how you have employed any clrwdt instructions to
achieve a reset when needed

a minimal, complete and verifiable example MCVE is the best way to get help
https://stackoverflow.com/help/minim...ucible-example

[eyalbiton]

Hello Richard

Apologies, I have attached a file for review.

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2024 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 11/16/2024                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
#config
 CONFIG RETEN=OFF
 CONFIG XINST = OFF ;Extended Instruction Set
 CONFIG FOSC = INTIO2 ;internal RC oscillator
 ;CONFIG FOSC = EC3  ; HS oscillator (high power > 16 MHz) 
 CONFIG SOSCSEL=DIG
 ;CONFIG SOSCSEL=HIGH
 CONFIG FCMEN = OFF   ;Fail-Safe Clock Monitor ****
 CONFIG IESO = OFF  ;Two-Speed Start-up is disabled
 CONFIG PLLCFG = OFF  ;4x xtal PLL

 
 CONFIG PWRTEN = ON ;Power-up Timer
 CONFIG BOREN = SBORDIS ; Brown-out Reset Enabled in hardware, SBOREN disabled
 CONFIG BORPWR = HIGH ;BOR MV set to high power level
 CONFIG BORV = 2 ; Brown-out Reset  0=3v, 1=2.7v, 2=2v, 3=1.8v
 
 CONFIG WDTEN = SWDTDIS ;ON ;OFF ;WDT enabled in hardware; SWDTEN bit disabled
 CONFIG WDTPS = 64;512 ;WDT
 
 CONFIG RTCOSC = INTOSCREF  ; RTCC uses INTRC
 ;CONFIG  ECCPMX = PORTH ; Enhanced CCP1/3 [P1B/P1C/P3B/P3C] muxed with RH7/RH6/RH5/RH4 (pwm)
 ;CONFIG  CCP2MX = PORTBE ;PORTC
 
 CONFIG  MCLRE = ON

 CONFIG STVREN = ON ;Stack Full/Underflow Reset
; CONFIG BBSIZ = BB1KL ; 1K word Boot Block size
; CONFIG BBSIZ = BB2K  ; 2K word Boot Block size
 CONFIG DEBUG = OFF ;Background Debugger
 
 CONFIG CP0 = ON  ;code-protected
 CONFIG CP1 = ON
 CONFIG CP2 = ON
 CONFIG CP3 = ON
 CONFIG CP4 = ON
 CONFIG CP5 = ON
 CONFIG CP6 = ON
 CONFIG CP7 = ON
 CONFIG CPB = ON  ;Boot Block Code Protection
 CONFIG CPD = ON  ;Data EEPROM Code Protection 

; CONFIG CP0 = OFF  ;code-protected
; CONFIG CP1 = OFF
; CONFIG CP2 = OFF
; CONFIG CP3 = OFF
; CONFIG CP4 = OFF
; CONFIG CP5 = OFF
; CONFIG CP6 = OFF
; CONFIG CP7 = OFF
; CONFIG CPB = OFF  ;Boot Block Code Protection
; CONFIG CPD = OFF  ;Data EEPROM Code Protection 
#endconfig

'DEFINE RESET_ORG 4000h'4000h HID bootloader must org the program at 2000 HEX
include "fp1832L.bas" 
'include "FLASH.bas"  

'*** At 64MHz each instruction cycle is 62.5ns 
OSCCON=%11110100 'OSCILLATOR CONTROL & Frequency  (16M RC)
OSCTUNE.6=1 'Frequency Multiplier PLL Enable bit FOR INIT RC

DEFINE OSC 64

INTCON2.7=1 'PORTB Pull-up Disable  
PADCFG1.7=0 'PORTD Pull-up Disable
PADCFG1.6=0 'PORTE Pull-up Disable                                                                          
PADCFG1.5=0 'PORTJ Pull-up Disable


ANCON0=0 'AN0-AN7 digital port
ANCON1=0 'AN8-AN15 digital port
ANCON2=0 'AN16-AN23 dig
CM1CON.7=0 'COMPERATOR1 OFF
CM2CON.7=0 'COMPERATOR2 OFF
CM3CON.7=0 'COMPERATOR3 OFF

PSPCON.4=0 'General Purpose I/O mode 'PSPMODE: Parallel Slave Port Mode Select bit


Restart:
TRISA=$FF
TRISB=$FF
TRISC=$FF
TRISD=$FF
TRISE=$FF
TRISF=$FF
TRISG=%11111
'*************


TRISC=%10111110
LATC.0=1 'HOST RTS 1=STOP SEND 0=ALOW TO SEND
'*C.1=MODULE RTS
'*C.2=1 Pump Sence 
'*C.3=SCL RTC
'*C.4=SDA RTC
'*C.5=MFP RTC
LATC.6=1 'Tx1  WiFi
'*C7=RX1 WiFi
TRISA=%11101110 '
LATA.0=1 'PD_SCK HX711 low power mode
'*A0=PD_SCK HX711
'*A1=DOUT HX711
'*A2= HX711 TEMP SENSOR '02-09-2024
'*A3= INT  IC PCAL6524HEAZ   '02-09-2024
'*A5= general I/O connected to Test Point X16  '02-09-2024
latA.4=1 'wifi BW16 Reset/Disable 1=Reset/Disable 


TRISB=%11111111 
'B0-B4 not connected 
'*B5= GENERAL I/O 
'*B6=PROGRAMMING
'*B7=PROGRAMMING
TRISD=%00100011   
' RD0 = scl2  AT24C16 
' RD1 = sda2  AT24C16  
LATD.2=0  'Buzzer 
LATD.3=0  'External Unit Power on/off 1=on 
LATD.4=0 'SDO2 FLASH
'D5=SDI2 FLASH
LATD.6=0 'SCK2 FLASH
LATD.7=1 'SS2 FLASH WP WRITE PROTECTION (0=PROTECT  1=ENABLE) 

TRISE=%10011100
LATE.0=0 'HOLD FLASH  1=ACTIVE 0=HOLD
LATE.1=1 'CE FLASH  0=ENABLE 1=DISABLE 
'*E2-E3= n.c   
'*E4= Extension i/o
LATE.5=0 '1= Reset IC PCAL6524HEAZ   
LATE.6=0 'AO3400A PWM6 
'*E7= n.c 
TRISF=%11111111
'*F0= n.c
'*F1= Power Fail input
'*F2= n.c
'*F3=Current Sense  
TRISF.4=0 : LATF.4=1 ' Software Tx 
'*F5= Software Rx
'*F6= Extension GENERAL I/O 
'*F7= Extension GENERAL I/O 
TRISG=%11101
'*G0= Busy 
LATG.1=1 'TX2 
'*G2= RX2 
'*G3= Extension GENERAL I/O 
'*G4= Extension GENERAL I/O 

 
'**************
'**** WIFI ****
'**************

DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 34  ' 115200 Baud @ 64MHz, -0.79%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically


'****************
'**** Uart 2 ****
'****************

DEFINE HSER2_RCSTA 90h ' Enable serial port & continuous receive for RAFID 
DEFINE HSER2_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER2_SPBRG  34  ' 115200 Baud @ 64MHz, -0.79%
DEFINE HSER2_CLROERR 1 ' Clear overflow automatically
'********************************

'****************
'**** Debug  ****
'****************
DEFINE DEBUG_REG PORTF          
DEFINE DEBUG_BIT 4
DEFINE DEBUG_BAUD 115200 
DEFINE DEBUG_MODE 0  '0=TRUE 1=INVERTER
'*************************************************************************************





A VAR BYTE  'general use
RE VAR BYTE[999]' wifi Rx buffer 
'SSID_N VAR BYTE[32] 'SSID NAME buffer
'SSID_nC VAR BYTE  'SSID NAME BYTE COUNTER 
'SSID_P VAR BYTE[128]  'SSID PASWORD buffer
'SSID_pC VAR BYTE  'SSID PASSWORD BYTE COUNTER 
A1 VAR WORD 
A2 VAR WORD
A3 VAR WORD
CHECK VAR WORD
COUNT_A VAR BYTE[50]
T VAR BYTE[50]
T1 VAR BYTE
T2 VAR WORD
T3 VAR BYTE
T4 VAR BYTE
Tlong VAR long '
AX1 VAR WORD  'WIFI
AX2 VAR WORD  'WIFI
Message var byte[500] '  for APP 
MessageL VAR WORD 'Message Length
RSSI var LONG 'SSID signal
RxEvent var LONG 'wifi
ReplyEvent VAR LONG 'WIFI
Symb VAR BYTE
CLEAR

pause 100


'Note: at GET_SSID_list1 loop, remove " if CHECK=>AX1 THEN GOTO break33 '   ***** to runout MCU *****

Main:
Gosub DEMO_RECEIVE 'Simulation of receiving DATA from wifi module
gosub Decoding 'Decoding the received data

debug "SSID LIST:<ssid>,<rssi>",$D,$A,STR Message\MessageL 

End










Decoding: 'Decoding the received data
''*** 128 Indicates end of array ****
arraywrite T,["+WSCAN:",128] 'COUNT_A[15]  'search '+WSCAN:
T3=18 'COUNT_A[] number
GOSUB ConfirmMessage
if COUNT_A[18]=$FF THEN 'found?
                     RxEvent.18=1
                     COUNT_A[18]=0
                     GOSUB GET_SSID_list 'load the SSID list to the Message array
                     endif
return

'******************************************
'**** SEARCH MESSAGE AT RECEIVED ARRAY ****
'******************************************
ConfirmMessage:
for T4 = 0 to 49  'GET T array Length
if T[T4]=128 THEN GOTO break5
NEXT T4
break5:
                      
FOR CHECK = 0 TO AX1
IF RE[CHECK]=T[0] THEN 'confirm the first charter at T array
                    COUNT_A[T3]=COUNT_A[T3]+1
                    FOR T1= 1 TO T4-1  'the number of charter need to confirm     
                    IF RE[CHECK+T1]=T[T1] THEN 
                                            COUNT_A[T3]=COUNT_A[T3]+1 'if charter true then count
                                            ELSE
                                            COUNT_A[T3]=0  'if one of charter not the same, clear counter
                                            goto break24
                                            ENDIF
                    next T1
                    break24:
                    if COUNT_A[T3]=T4 THEN 
                                        COUNT_A[T3]=$FF 'True   
'                                        if T3=7 then  ReplyEvent.14=1  '+WSCANACTIVE Confirm found the ssid   'RxEvent.14
'                                        if T3=19 THEN ReplyEvent.19=1 '+WSCAN Confirm found the ssid  'RxEvent.19               
                                        GOTO break7
                                        endif
                    ENDIF

'IF pir1.0 THEN gosub CLEAR_TIMER1'TIMER1 OVER FLOW 20ms
next CHECK
break7: 
T[T4]=0 'clear T
return
'******************************************



DEMO_RECEIVE: 
arraywrite RE,[$d,$a,_
"+WSCAN:index SSID,CH,RSSI",$d,$a,_
"1 TP-Link_Guest_ABD6_5G,48,-42",$d,$a,_
"2 TP-Link_ABD6,48,-42",$d,$a,_
"3 ,48,-42",$d,$a,_
"4 TP-Link_ABD6,1,-45",$d,$a,_
"5 TP-Link_Guest_ABD6,1,-45",$d,$a,_
"6 ,1,-45",$d,$a,_
"7 Mamad_EXT2,4,-46",$d,$a,_
"8 Mamad_EXT5g 2,48,-48",$d,$a,_
"9 ,10,-57",$d,$a,_
"10 HOME,11,-68",$d,$a,_
"11 HOME_EXT,11,-74",$d,$a,_
"12 ,52,-80",$d,$a,_
"13 HOME_5G,52,-80",$d,$a,_
"14 HOTWiFi-D7D,6,-85",$d,$a,_
"15 HOME_5G_EXT,52,-85",$d,$a,_
"16 Mali,6,-89",$d,$a,_
"17 lior,11,-92",$d,$a,_
$d,$a,"OK",$d,$a]
'Rx Byte:360
AX1=360 'received byte
return

'******************************
SearchSymbol: 'search "," Symbol
'*** Must set T4 before send to this loop
T1=0
FOR A3 = CHECK TO AX1'
IF RE[A3]=Symb THEN T1=T1+1
IF T1=T4 THEN break9
NEXT A3
break9:
CHECK=A3
return


'*********************************************
'*** load all +SCAN SSID,RSSI list to Message array ***
'*********************************************
GET_SSID_list:
MessageL=0
T4=2 'multiple of the symbol x time "space"

GET_SSID_list1:
Symb=" " '"Space"
GOSUB SearchSymbol 'Search THE SYMBOLE

if CHECK=>AX1 THEN GOTO break33 'END OF LIST    ***** REMOVED to runout MCU *****


CHECK=CHECK+1 'to jump on the "space"
if RE[CHECK]="," THEN  'If hidden wifi move to next line 
            T4=1 'multiple of the symbol
            goto  GET_SSID_list1
            endif
            
FOR A3 = CHECK TO AX1 'Get SSID name
if RE[A3]="," then break31
Message[MessageL]=RE[A3]
MessageL=MessageL+1
next A3 
break31:
T4=2 'multiple of symbol,  JUMP on channel
Symb=","
gosub SearchSymbol


CHECK=A3+1 'jump on ","
Message[MessageL]="," 'insert "," Between ssid to rssi  (ssid,rssi)
MessageL=MessageL+1
FOR A3 = CHECK TO AX1 'Get RSSI 
if RE[A3]=$D then break32 'CR  
Message[MessageL]=RE[A3]
MessageL=MessageL+1
NEXT A3
break32:
CHECK=A3


Message[MessageL]=$A 'insert LF
MessageL=MessageL+1
T4=1 'multiple of the symbol
GOTO GET_SSID_list1 'Next line
break33:
RETURN

[Ioannis]

Use this tags to embed the code:

[ code ]

[/ code ]

without spaces.

Ioannis

[richard]

a simple example to demonstrate WDT

'****************************************************************'*  Name    : UNTITLED.BAS                                      *
'*  Author  : richard                                           *
'*  Notice  : Copyright (c) 2024 caveat emptor                  *
'*          : All Rights Reserved                               *
'*  Date    : 17/11/2024                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
#config
 CONFIG RETEN=OFF
 CONFIG XINST = OFF ;Extended Instruction Set
 CONFIG FOSC = INTIO2 ;internal RC oscillator
 
 CONFIG SOSCSEL=DIG


 CONFIG FCMEN = OFF   ;Fail-Safe Clock Monitor ****
 CONFIG IESO = OFF  ;Two-Speed Start-up is disabled
 CONFIG PLLCFG = OFF  ;4x xtal PLL


 
 CONFIG PWRTEN = ON ;Power-up Timer
 CONFIG BOREN = SBORDIS ; Brown-out Reset Enabled in hardware, SBOREN disabled
 CONFIG BORPWR = HIGH ;BOR MV set to high power level
 CONFIG BORV = 2 ; Brown-out Reset  0=3v, 1=2.7v, 2=2v, 3=1.8v
 
 CONFIG WDTEN = SWDTDIS ;ON ;OFF ;WDT enabled in hardware; SWDTEN bit disabled
 CONFIG WDTPS = 512 ;WDT     512*4Ms = 2 SECONDS
 
 CONFIG RTCOSC = INTOSCREF  ; RTCC uses INTRC


 
 CONFIG  MCLRE = ON


 CONFIG STVREN = ON ;Stack Full/Underflow Reset


 CONFIG DEBUG = OFF ;Background Debugger
 
 CONFIG CP0 = ON  ;code-protected
 CONFIG CP1 = ON
 CONFIG CP2 = ON
 CONFIG CP3 = ON
 CONFIG CP4 = ON
 CONFIG CP5 = ON
 CONFIG CP6 = ON
 CONFIG CP7 = ON
 CONFIG CPB = ON  ;Boot Block Code Protection
 CONFIG CPD = ON  ;Data EEPROM Code Protection 


#endconfig


DEFINE NO_CLRWDT 1 'Don’t insert CLRWDTs 


DEFINE DEBUG_REG PORTD         
DEFINE DEBUG_BIT 4
DEFINE DEBUG_BAUD 9600 
DEFINE DEBUG_MODE 0  '0=TRUE 1=INVERTER


'*** At 64MHz each instruction cycle is 62.5ns 
    OSCCON=%11110100 'OSCILLATOR CONTROL & Frequency  (16M RC)
    OSCTUNE.6=1 'Frequency Multiplier PLL Enable bit FOR INIT RC


DEFINE OSC 64 
    TRISD=$ed
    ANCON0=0 'AN0-AN7 digital port
    ANCON1=0 'AN8-AN15 digital port
    ANCON2=0 'AN16-AN23 dig
    CM1CON.7=0 'COMPERATOR1 OFF
    CM2CON.7=0 'COMPERATOR2 OFF
    CM3CON.7=0 'COMPERATOR3 OFF


    PSPCON.4=0 'General Purpose I/O mode 'PSPMODE: Parallel Slave Port Mode Select bit
    
    latd=18
    @ CLRWDT        ;WDT needs to be cleared every   512*4Ms = 2 SECONDS  at most else chip will reset
 
    pause 100
    @ CLRWDT
    debug "ready",13,10
    @ CLRWDT
    MAIN:              ; if porta.0 is not detected going high the wdt will overflow and reset chip     
        LATD.1=0
        IF PORTA.0 THEN 
            @ CLRWDT       ; in main loop the wdt is cleared when porta.0 goes high 
            WHILE PORTA.0 : WEND         
        ENDIF  
    GOTO MAIN  
 




stop

[amgen]

************************************************** **************'* Name : UNTITLED.BAS *
'* Author : richard *
'* Notice : Copyright (c) 2024 caveat emptor *
'* : All Rights Reserved *
'* Date : 17/11/2024 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
#config
CONFIG RETEN=OFF
CONFIG XINST = OFF ;Extended Instruction Set

Are you a wizard of some kind.......... you wrote/posted this a day ahead of today...... writing now in the future ??????

warning: I am an idiot!

[richard]

you wrote/posted this a day ahead of today

the world is not flat , time is relative

[eyalbiton]

Hello Richard

Thanks a lot for the help.