PIC16F676-al elakadtam egy egyszerű időzítéssel.[MEGOLDVA]

Sziasztok!

PIC16F676-al küzdök. A programot megírtam PIC16F627-re, gond nélkül megy. A feladat egyszerű, van egy lámpa és egy buzzer, mint kimenet, és egy digitális bemenet. Ha van bemenet, akkor a kimenetek nullák. Ha a bemenet megszűnik, és kb 5 másodpercig nincs, akkor a buzzer szól kb 3 másodpercig (a buzzernek csak táp kell, hogy fütyüljön) ezzel együtt felkapcsol a lámpa, és égve marad, míg meg nem jön a bemenet, innentől kezdődik elölről.
A konfig: Lámpa PORTC,5 a buzzer PORTC,4 a bemenet pedig PORTC,3. Belső oszcillátor, az MCLR pedig 10k-val tápra kötve. PORTA nem használt.

De még azt se tudtam megcsinálni, hogy a lámpa ki-be kapcsolgasson, ha a TMR0 túlcsordul, vagy nulla. A TMR0 pörög, mert ha kiíratom a PORtC-re, akkor szkóppal látszottak a különböző frekvenciájú jelek.

Mit szúrtam el?

Megoldás:
Hiába tiltottam le a WatchDogot a config-word-ben, a WDT még aktív maradt, és kb 3 másodpercenként resetelt. A megoldást a RESET rutin végére írt CLRWDT parancs oldotta meg, ami a SATATUS-ban 1-re állítja a T0 és PD biteket.

Az adatlap 33. oldalán is szerepel ez a figyelmeztetés.

Üdv: Jácint

;**************************************************************************
;* Hardw. Rev: P8048'1 Softw. Rev: 1.20 *
;* OSC.......: XT 4MHz Max. POWER.....: 12V DC *
;**************************************************************************
#include "p16F676.inc"

__config 0x3FEC

;==========================================================================
; Variable Definition
;==========================================================================
TIME1 EQU H'20' ;Used in delay routine
TIME2 EQU H'21' ; " " "

ORG 0 ;Reset vector address
GOTO RESET ;goto RESET routine when boot.

ORG 4
GOTO MEGSZAK

MEGSZAK
RETFIE

; *********************************************
; * Example of a delay routine *
; *********************************************

; **********************************
; ** RESET : main boot routine **
; **********************************

RESET
MOVLW B'00000111' ;Disable Comparator module's
MOVWF CMCON
CLRF TMR0
CLRF INTCON ; Disable interrupts and clear T0IF

BSF STATUS,RP0 ;Switch to register bank 1
CLRF ANSEL ; Analóg bemenet digitálisra

MOVLW B'11000111' ;Set PIC options (See datasheet).
MOVWF OPTION_REG ;Write the OPTION register.
MOVLW B'00000000'
MOVWF INTCON ;Disable interrupts
MOVLW B'11001111'
MOVWF TRISC ;RC input/output
MOVLW B'11111111' ;all RA ports are inputs
MOVWF TRISA
BCF STATUS,RP0 ;Switch Back to reg. Bank 0
CLRF PORTC

BSF STATUS, RP0 ; Bank1
CLRF PIE1 ; Disable peripheral interrupts
BCF STATUS, RP0 ; Bank0
CLRF PIR1 ; Clear peripheral interrupts Flags

BLABLA
BSF PORTC,5
WAIT1
movf TMR0,W
btfss STATUS,Z
GOTO WAIT1 ; if not zero yet, keep WAITing
BWAIT
movf TMR0,W
btfsc STATUS,Z
GOTO BWAIT

; Timer has overflowed
BCF PORTC,5

AWAIT2
movf TMR0,W
; subwf TMR0,W
btfss STATUS,Z
GOTO AWAIT2 ; if not zero yet, keep WAITing
CWAIT
movf TMR0,W
btfsc STATUS,Z
GOTO CWAIT

goto BLABLA

END