Kód: Egész kijelölése
$regfile = "atTiny45.dat"
$crystal = 8000000
Config Watchdog = 2048
Start Watchdog
On Watchdog Wd_int
Wdtcr = &B01001000 'Hogy INTet adjon
Wait 1
Semmi:
Goto Semmi
Wd_int:
Set Wdtcr.6 'WDIE=ENABLE, mindig INT legyen WD lejártakor
Return
End
Kód: Egész kijelölése
$crystal = 16000000 'orajel
$regfile = "m168def.dat" 'chip
$baud = 9600
Wdtcsr = 0
Mcusr.wdrf = 0
Config Watchdog = 4096 '2 sec
Start Watchdog
Reset Watchdog
'Wdtcsr.wde = 1
'Wdtcsr.wdie = 0
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.6 , Db5 = Portd.7 , Db6 = Portb.0 , Db7 = Portb.1 , E = Portd.5 , Rs = Portd.4
Led Alias Portb.5
Config Led = Output
Reset Led
Speaker Alias Portb.2
Config Speaker = Output 'Hangszoro
Reset Speaker
On Wdt Wdtreset
Enable Wdt
Enable Interrupts
Dim Temp1b As Byte
Initlcd
Cls
Print
Sound Speaker , 100 , 1400 'make some noice
If Mcusr.0 = 1 Then Print "PowerOn reset"
If Mcusr.1 = 1 Then Print "External reset"
If Mcusr.2 = 1 Then Print "BrownOut reset"
If Mcusr.3 = 1 Then Print "WatchDog reset"
Mcucsr = 0
Sound Speaker , 100 , 1400 'make some noice
Cls
Set Led
Lcd "WDStat..."
Start Watchdog
Locate 2 , 1
For Temp1b = 1 To 10
Lcd Temp1b
Waitms 250
Sound Speaker , 100 , 700 'make some noice
Next Temp1b
End
Wdtreset:
Do
Print "a"
Loop
ReturnKód: Egész kijelölése
$crystal = 16000000 'orajel
$regfile = "m168def.dat" 'chip
$baud = 9600
Config Watchdog = 512
On Watchdog Wd_int
Enable Interrupts
Enable Wdt
Start Watchdog
Print "mcusr" ; Bin(mcusr)
Print "wdtcsr" ; Bin(wdtcsr)
'WDIE - Watchdog INT: Enable
'WDE - Watchdog Reset Enable
Led Alias Portb.5
Config Led = Output
Reset Led
Do
nop
Loop
Wd_int:
'Set Wdtcr.6
'WDIE=ENABLE, mindig INT legyen WD lejártakor
'ha ez nincs: a 2. leketyegés esetén RESET
Toggle Led
Return
End
