CoreForth-0

avr/wdt-mega.ft.md


: +wdie         %01000000 WDTCSR bis! ;
: -wdie         %01000000 WDTCSR bic! ;
: -wdif         %10000000 WDTCSR bis! ;
: wdif?         %10000000 WDTCSR bit@ ;
: wdt/1s        %01000110 WDT! ;
: wdt/250ms     %01000100 WDT! ;
: wdt>timeout   wdt/1s sei ;