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
1 | Const Cx = 8000000
|
2 | $regfile = "m1284pdef.dat"
|
3 | $crystal = Cx
|
4 | $swstack = 1024
|
5 | $hwstack = 512
|
6 | $framesize = 512
|
7 | '**************************** Port-Definitionen
|
8 | Dim Bytmcusr As Byte
|
9 | Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
|
10 | Config Lcd = 16 * 2
|
11 | Bytmcusr = Peek(0)
|
12 | Cls
|
13 | Lcd Bytmcusr
|
14 | '5=bei Power on (Bit2=0), 7=bei Resetbutton (Bit2=1),
|
15 | '13 bzw. 15=bei Watchdog-Reset (Bit3=1)
|
16 | Config Adc = Single , Prescaler = Auto , Reference = Avcc
|
17 | Start Adc
|
18 | Dim Adc1 As Word
|
19 | Config Watchdog = 1024
|
20 | Start Watchdog
|
21 | Do
|
22 | Reset Watchdog
|
23 | Adc1 = Getadc(1) 'Taste schließt Adc1 gegen VCC
|
24 | If Adc1 > 800 Then
|
25 | Waitms 2048 'Watchdog-Reset erzwungen
|
26 | End If
|
27 | 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.