Fehler bei der Anwendung des Programs

[RobertVogel (Gast)]

Hey,
um mit den PIC Microkontrolern anzufangen habe ich mir eine einfache 
Aufgabe gestellt:
- drei LEDs (Blau, Grün, Rot) sollen mit einen Taster nacheinander an 
und Ausgeschaltet werden (1. Tastendruck: Grüne LED geht an - 2. 
Tastendruck Blaue LED geht an - 3. Tastendruck: Grüne LED geht aus...).
-mit einem zweiten Taster soll eine LED ein, und beim zweiten drücken 
ausgeschaltet werden.
Im Simulationprogram "Real Pic Simulator" und "MPLAB SIM" funktioniert 
das Programm auch so wie ich es haben will. doch beim Laden auf ein 
16F628A Chip mit "Propic2" reagiert der Chip nicht auf die Signale, die 
ich ihm Gebe.
Die Taster schalten 5V an PIN RA1 und RB1 und die Ausgänge kontrolier 
ich mittels Voltmeter (will keine Bauteile verschwenden, solange der 
Chip nicht ordnungsgemäß lauft).



Program:

  list      p=16f628A           ; list directive to define processor
  #include <p16F628A.inc>       ; processor specific variable definitions

  errorlevel  -302              ; suppress message 302 from list file

  __CONFIG   _CP_OFF  & _LVP_OFF & _BOREN_OFF & _MCLRE_ON & _WDT_OFF & _PWRTE_ON & _INTOSC_OSC_NOCLKOUT 
;& _DATA_CP_OFF
; '__CONFIG' directive is used to embed configuration word within .asm file.
; The lables following the directive are located in the respective .inc file.
; See data sheet for additional information on configuration word settings.




;***** VARIABLE DEFINITIONS
w_temp        EQU     0x7E        ; variable used for context saving 
status_temp   EQU     0x7F        ; variable used for context saving
loops       Equ     0x22            ; Zähler für Warteschleife 
loops2      Equ     0x23            ; Zähler für Warteschleife  




;**********************************************************************
  ORG     0x000             ; processor reset vector
  goto    main              ; go to beginning of program
  

  ORG     0x004             ; interrupt vector location
  movwf   w_temp            ; save off current W register contents
  movf  STATUS,w          ; move status register into W register
  movwf  status_temp       ; save off contents of STATUS register

; isr code can go here or be located as a call subroutine elsewhere
  BTFSS PORTB,1
  GOTO LEDEIN
  BTFSC PORTB,1
  GOTO LEDAUS

  LEDEIN
  BSF PORTB,1
  CALL Wait
  GOTO OUT

  LEDAUS
  BCF PORTB,1
  CALL Wait

OUT
  bcf    INTCON, INTF       ; RB0-Interrupt-Flag löschen 
  movf    status_temp,w     ; retrieve copy of STATUS register
  movwf  STATUS            ; restore pre-isr STATUS register contents
  swapf   w_temp,f
  swapf   w_temp,w          ; restore pre-isr W register contents
  retfie                    ; return from interrupt


main

; remaining code goes here

        bsf     STATUS, RP0     ; auf Bank 1 umschalten
        movlw   B'00000001'     ; PortB alle output
        movwf   TRISB
        bcf     STATUS, RP0     ; auf Bank 0 schalten
        clrf    PORTB           ; alle LEDs ausschalten


; RB0-Interrupt einstellen
        bsf    STATUS, RP0        ; auf Bank 1 umschalten
        bsf    OPTION_REG, INTEDG ; 0-1-Flanke an RB0
        bcf    STATUS, RP0        ; auf Bank 0 zurückschalten

        bsf    INTCON, INTE       ; RB0-interrupt erlauben
        bsf    INTCON, GIE        ; Interrupt generell erlauben

Start
  BTFSC PORTA,1
  GOTO Gruen
  CALL Wait
  GOTO Start

Gruen
  BSF PORTB,2
  CALL Wait
  BTFSC PORTA,1
  GOTO Tuerkis
  GOTO Gruen

Tuerkis
  BSF PORTB,3
  CALL Wait 
  BTFSC PORTA,1
  GOTO Blau
  GOTO Tuerkis

Blau
  BCF PORTB,2
  CALL Wait
  BTFSC PORTA,1
  GOTO Lila
  GOTO Blau

Lila
  BSF PORTB,4
  CALL Wait
  BTFSC PORTA,1
  GOTO Rot
  GOTO Lila

Rot
  BCF PORTB,3
  CALL Wait
  BTFSC PORTA,1
  GOTO Gelb
  GOTO Rot

Gelb
  BSF PORTB,2
  CALL Wait
  BTFSC PORTA,1
  GOTO Weiss
  GOTO Gelb

Weiss
  BSF PORTB,3
  CALL Wait
  BTFSC PORTA,1
  GOTO Schwarz
  GOTO Weiss

Schwarz
  BCF PORTB,2
  BCF  PORTB,3
  BCF PORTB,4
  CALL Wait
  GOTO Start

; Warteschleife 250 ms

Wait
        movlw   D'250'          ; 250 ms Pause
        movwf   loops 

Wai
        movlw   .110           ; Zeitkonstante für 1ms
        movwf   loops2
Wai2    nop                    ; 
        nop
        nop
        nop
        nop
        nop
        decfsz  loops2, F      ; 1 ms vorbei?
        goto    Wai2           ; nein, noch nicht
                               ;
        decfsz  loops, F       ; 250 ms vorbei?
        goto    Wai            ; nein, noch nicht
        retlw   0              ; das Warten hat ein Ende 

; initialize eeprom locations

  ORG  0x2100
  DE  0x00, 0x01, 0x02, 0x03


  END                       ; directive 'end of program'

[Karl H. (kbuchegg)]

RobertVogel schrieb:
> Hey,
> um mit den PIC Microkontrolern anzufangen habe ich mir eine einfache
> Aufgabe gestellt:


> ich mittels Voltmeter (will keine Bauteile verschwenden, solange der
> Chip nicht ordnungsgemäß lauft).

Der läuft sicherlich ordnungsgemäss. Das Problem liegt bei dir, bzw. 
deinem Programm und nicht beim PIC.

Aber: Was du festgestellt hast ist, dass deine vermeintlich 'einfache 
Aufgabe' in Wirklichkeit noch immer viel zu schwer ist. Du musst dir 
eine noch einfachere Aufgabe stellen.
Taste drücken -> LED leuchtet
Tatse nicht drücken -> LED leuchtet nicht

Und für die allerersten Versuche solltest du auch die Taste gleich noch 
weg lassen und dich nur mit der LED (oder mehreren LED) alleine 
beschäftigen.

Die einzige Web-Site die ich kenne, die so etwas ähnliches wie ein PIC 
Tutorial anbietet, ist Sprut.de

http://www.sprut.de/electronic/pic/grund/grund.htm

[RobertVogel (Gast)]

Ich bin mit dem Programieren in Assembler vertraut. Ich bin dabei mich 
in die PICs einzuarbeiten und diese Aufgabe dient nur zur vorbereitung 
auf andere Komplexere anwendungen.

Diese aller einfachsten Übungen habe ich allerdings auch Bewerkstelligt 
und diese Funktionierten auch.

[Dietrich L. (dietrichl)]

RobertVogel schrieb:
> Die Taster schalten 5V an PIN RA1 und RB1

Und hast Du auch Ziehwiderstände nach GND? Soll heißen: wer sorgt dafür, 
dass bei nicht-gedrückter Taste das Signal 0 ist?

Gruß Dietrich

[Chris B. (dekatz)]

RobertVogel schrieb:
> Die Taster schalten 5V an PIN RA1

Und ist PortA auch auf Digital umgeschaltet? (default ist der Analog) - 
zumindest sehe ich das niergends...siehe DB 5.1

[RobertVogel (Gast)]

um die erste Aufgabe zu lösen kann ich das "Vellemann 8048" 
Experimentierbord nutzen. Da sind die Wiederstände eingebaut. in der 
Schaltung die ich für die Kontrolle des Interrubs aufgebaut habe fehlen 
diese Widerstände zwar noch, das Program läuft aber auf beiden nicht.

[RobertVogel (Gast)]

wie schalte ich PORTA auf diegital und warum muss ich PORTB nicht 
umschalten?

[RobertVogel (Gast)]

Danke habe es gefunden wie man die umschaltet und dies hat den Fehler 
behoben.

[RobertVogel (Gast)]

Korektur, das Interrubt funktioniert immer noch nicht. An den Tastern 
befinden sich jetzt 10kOhm Widerstände die zur Masse führen.

[spontan (Gast)]

Was macht eigentlich????

>  GOTO Gelb
>  GOTO Rot

[RobertVogel (Gast)]

Was ist den da unklar? und die Stelle hat ja überhaupt nichts mit dem 
Interrubt zu tun...

[spontan (Gast)]

Was unklar ist?

Weißt Du was Dein Code macht?

[RobertVogel (Gast)]

an der von dir angefragten Stelle:
wen PORTA,1 = 1: springe vor zu Markierung "Gelb"
ansonsten springe zurück zur Markierung "Rot".

wie schon erwähnt, diese Zeilen haben nichts mit dem Interrubt zu tun.
Habe den Fehler übrigens schon Lokaliesiert. Er lag in der Schaltung.

[Route_66 H. (route_66)]

RobertVogel schrieb:
> Interrubt
Wenn schon sächsisch dann: Inderrubd!