Bascom - Watchdog-Reset auswerten

[Manfred S. (Firma: Manfred) (xfred343)]

Hallo,

ich würde gerne mitloggen, wann meine Schaltung einem "Watchdog-Reset" 
zum Opfer gefallen ist. Laut Datenblatt ist dann das MCUSR.WDRF-Bit 
gesetzt.

Leider scheint es so, dass Bascom schon vorher das Bit wieder 
zurücksetzt.
Hat hier irgendwer eine Idee, wie ich das Watchdog-Resetbit in Bascom 
auswerten kann?

Const Cx = 8000000
$regfile = "m1284pdef.dat"
$crystal = Cx
$swstack = 1024
$hwstack = 512
$framesize = 512
'**************************** Port-Definitionen
Dim Bitwatchdog As Bit
Bitwatchdog = Mcusr.wdrf  'muesste nach Watchdog-Reset gesetzt sein, ist aber nicht!
Ledrot Alias Portd.4
Config Ledrot = Output
Ledrot = Bitwatchdog
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Piezoklingel Alias Portd.7           'OC2A
Config Piezoklingel = Output
Sound Portd.7 , 300 , 300
Waitms 1000
Dim Adc1 As Word
Mcusr.wdrf = 0                'jetzt wird Restart-Flag zurückgesetzt
Config Watchdog = 1024
Start Watchdog
Do
  Reset Watchdog
  Adc1 = Getadc(1)            'Taste schließt Adc1 gegen VCC
  If Adc1 > 800 Then
     Sound Portd.7 , 500 , 300
     Waitms 2048              'Watchdog-Reset wird erzwungen
  End If
Loop

[Weingut P. (weinbauer)]

versuchs mal mit $NOINIT

[Alex W. (a20q90)]

Ich habe das auch schon mal bei nem Mega8 gehabt! Ein Watchdog-Reset 
konnte nicht abgefragt werden. Eventuell ein Bug in Bascom?

[MWS (Gast)]

Manfred S. schrieb:
> Leider scheint es so, dass Bascom schon vorher das Bit wieder
> zurücksetzt.
> Hat hier irgendwer eine Idee, wie ich das Watchdog-Resetbit in Bascom
> auswerten kann?

Da Du Dich bereits vorher als äußerst unbegabt erwiesen hast, was das 
Lesen der Bascom-Hilfe anbetrifft, will ich jetzt mal nicht so sein :D

Zitat Hilfe:
> When it is important to examine at startup if the micro was reset by a
> Watchdog overflow, you need to examine this MCUSR.WDRF flag before you
> use CONFIG WATCHDOG, since that will clear the flag.
und
> For chips that have an enhanced WD timer, the WD timer is cleared as part
> of the chip initialize procedure. This because otherwise the WD timer
> will only work once. If it is important that you know the cause of the
> reset, you can read the register R0 before you run other code.

Und damit Du Dich nicht beim Lesen des R0 verläufst:

my_MCUSR = Peek(0)

[Rudolf (Gast)]

Wenn man ein Bascom-Kompilat (HEX/OBJ) in AVR Studio lädt, und dann im 
Disassembling nachsieht, kann man erkennen, ob der Compiler Code zum 
Zurücksetzen dieses Bits generiert.
Also einen Haken bei "AVR Studio Object file" machen und das erzeugte 
*.OBJ File dann im AVR Studio laden.

[Manfred S. (Firma: Manfred) (xfred343)]

MWS schrieb:
> Zitat Hilfe:
>> When it is important to examine at startup if the micro was reset by a
>> Watchdog overflow, you need to examine this MCUSR.WDRF flag before you
>> use CONFIG WATCHDOG, since that will clear the flag.

Soweit hab ich auch gelesen, nur diesmal war ich wirklich 
Hilfe-resistent - leider hab ich den Scrollbalken am linken 
Bildschirmrand in der Hilfe übersehen ;-)

Danke für den Tipp - klappt wunderbar

Const Cx = 8000000
$regfile = "m1284pdef.dat"
$crystal = Cx
$swstack = 1024
$hwstack = 512
$framesize = 512
'**************************** Port-Definitionen
Dim Bytmcusr As Byte
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Config Lcd = 16 * 2
Bytmcusr = Peek(0)
Cls
Lcd Bytmcusr
'5=bei Power on (Bit2=0), 7=bei Resetbutton (Bit2=1), 
'13 bzw. 15=bei Watchdog-Reset (Bit3=1)
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim Adc1 As Word
Config Watchdog = 1024
Start Watchdog
Do
  Reset Watchdog
  Adc1 = Getadc(1)                    'Taste schließt Adc1 gegen VCC
  If Adc1 > 800 Then
     Waitms 2048                      'Watchdog-Reset erzwungen
  End If
Loop

Zusätzlich zur Bascom-Doku ist mir aufgefallen, dass auch zwischen Strom 
aus/ein und Resetbutton unterschieden werden kann. Dafür ist es mir 
nicht gelungen, das Brown Out-Bit (Bit 2, BORF) abzufangen (weder bei 
Fuse mit 2,7 Volt noch mit 4,3 Volt) - vielleicht hat hier noch jemand 
eine Idee.