PIC16F887 + Assembler -> Timer1 + interrupt

[Simon S. (-schumi-)]

Hallo zusammen,

ich versuche gerade ein Lauflicht (PORTD wird einfach nur inkrementiert) 
zu basteln. Allerdings soll es so laufen: Der Timer1 läuft vor sich hin 
und bei einem Überlauf wird ein Interrupt ausgelöst, der dann PORTD 
inkrementiert.

Leider funktioniert das nicht, ich glaube der Timer läuft nicht... (in 
der loop (ganz unten) wollte ich das überprüfen, aber am PORTB liegt 
immer nur 0b01100001 an)

list p=16f887          ; der Prozessortyp wird festgelegt
  include "p16f887.inc"    ; die include-Datei mit vielen Festlegungen wird geladen
                ; z.B. sind hier Standardnamen für wichtige
                ; Register und Bits festgelegt
  
  __CONFIG _CONFIG1, _LVP_OFF & _FCMEN_ON & _IESO_OFF & _BOR_OFF & _CPD_OFF & _CP_OFF & _MCLRE_ON & _PWRTE_ON & _WDT_OFF & _HS_OSC
  __CONFIG _CONFIG2, _WRT_OFF & _BOR21V

  W_TEMP      Equ    0x20  ; Backup für Arbeitsregister
  STATUS_TEMP    Equ    0x21  ; Backup für Statusregister 
  PCLATH_TEMP    Equ    0x22  ; Backup für PC

org    0x00            ; die Startadresse nach Reset ist 0, hier startet der PIC
  goto   main          ; Sprung zum Hauptprogramm


org     0x0004
                ; ___
  MOVWF   W_TEMP        ;    |
  SWAPF   STATUS,W      ;    |
  CLRF    STATUS        ;    |
  MOVWF   STATUS_TEMP      ;    +- Sichern der Umgebung des Hauptprogramms
  MOVF    PCLATH, W      ;    |
  MOVWF   PCLATH_TEMP      ;    |
  CLRF    PCLATH        ; ___|

  movlw 1            ; PORTD soll um 1 inkrementiert werden (1 ins working Register)
  addwf PORTD, 1        ; PORTD wird inkrementiert


  bcf PIR1, TMR1IF      ; "Timer1 hat interrupt ausgelöst" zurücksetzen
                ; ___
  MOVF    PCLATH_TEMP, W    ;    |
  MOVWF   PCLATH        ;    |
  SWAPF   STATUS_TEMP,W    ;    +- Umgebung des Hauptprogramms wiederherstellen
  MOVWF   STATUS        ;    |
  SWAPF   W_TEMP,F      ;    |
  SWAPF   W_TEMP,W       ; ___|

  retfie            ; zurück ins Programm


main
  bsf STATUS, RP0        ; In Bank 1 wechseln
  movlw B'00000000'       ; 0 in Working Register schreiben
  movwf TRISD          ; Working register (also 0) in TRISD schreiben -> Ausgang
  movlw B'00000000'       ; 0 in Working Register schreiben
  movwf TRISB          ; Working register (also 0) in TRISD schreiben -> Ausgang
  bcf STATUS, RP0        ; Wieder in Bank 0 wechseln

  bcf T1CON, TMR1CS      ; Timer 1: Quarz als Quelle

  bcf T1CON, T1CKPS0      ; Prescaler auf 1
  bcf T1CON, T1CKPS1      ; Prescaler auf 1

  bsf INTCON, PEIE      ; Interrupt für Pheripherie erlauben
  bsf STATUS, RP0        ; In Bank 1 wechseln
  bsf PIE1, TMR1IE      ; Interrupt für Timer 1 (Pheripherie) aktivieren
  bcf STATUS, RP0        ; Wieder in Bank 0 wechseln
  bsf INTCON, GIE        ; Globales enable Interrupt setzen

loop
  movf TMR1L, 0
  movwf PORTB
  goto loop

end                ; das Ende des Programms

Erkennt jemand den Fehler?

Viele Grüße und schon mal vielen Dank
-schumi-

[eieiei (Gast)]

Hallo Simon,

da kann ich dir leider nicht helfen ;-)

[Simon S. (-schumi-)]

Oh mann, Kopf -> Tisch

Wenn der Timer laufen soll, ist es nützlich das Byte TMR1ON aus T1CON zu 
setzen..

-> FAIL

[chris (Gast)]

Und wo schaltest du den Timer ein ? TMR1ON