watchd.bas

来自「82 sample programs written in BASCOM-805」· BAS 代码 · 共 16 行

'-----------------------------------------------------
'                (c) 1998-2001 MCS Electronics
' WATCHD.BAS demonstrates the AT89S8252 watchdog timer
' select 89s8252.dat !!!
'-----------------------------------------------------
Config Watchdog = 2048                  'reset after 2048 mSec
Start Watchdog                          'start the watchdog timer
Dim I As Word
For I = 1 To 10000
  Print I                               'print value
  '  Reset Watchdog
  'you will notice that the for next doesnt finish because of the reset
  'when you unmark the RESET WATCHDOG statement it will finish because the
  'wd-timer is reset before it reaches 2048 msec
Next
End