Problem beim Konfigurieren von EUSART PIC18 Assembler

[David M. (mic_dave)]

Hallo zusammen,
irgendwie will meine EUSART- Schnittstelle nicht so, wie ich es will. 
Das Ziel ist momentan eigentlich nur, eine LED zum Tooglen zu bringen. 
Egal, welche Taste gedrückt wurde.
Hier ist der Codeausschnitt:

  CALL init_usart
  GOTO loop

loop 
  CALL get_usart
  GOTO loop

init_usart

  MOVLW 0x20
  MOVWF TXSTA1
  MOVLW 0x90
  MOVWF RCSTA1

  ; Sende- und Empfangsinterrupt ausschalten
  MOVLW 0
  MOVWF RC1IE

  MOVLW 0
  MOVWF TX1IE

  ; Baudrate einstellen
  MOVLW 0x00
  MOVWF BAUDCON1

  MOVLW D'25'
  MOVWF SPBRG

  ; Schreibe- und Leseregister löschen
  MOVLW 0
  MOVWF TX1REG

  MOVLW RC1REG
  MOVWF TEMP

  BSF TRISC, RC7 ; RX- Modul
  BCF TRISC, RC6 ; TX- Modul

  BSF  LATC, RC1

  RETURN

get_usart
  BSF LATC, RC0

  BTFSC RCSTA1, FERR
    RETURN

  BTFSC RCSTA1, OERR
    GOTO rc_cren

  BTFSS PIR1, RC1IF
    GOTO get_usart
  
  BTFSS LATA, RA0  
    BSF LATA, RA0

  BTFSC LATA, RA0
    BCF LATA, RA0

  BCF PIR1, RC1IF
  
  RETLW RC1REG

rc_cren
  BCF RCSTA1, CREN
  BSF RCSTA1, CREN
  GOTO loop

  end

Das Programm Funktioniert bis jetzt wie folgt. Wenn ich eine Taste auf 
der Tastatur drücke, dann geht die LED an. Drücke ich nochmal drauf 
passiert nichts. Die LED bleibt jetzt immer an. Hat jemand eine Idee, 
was da mit dem QT nicht stimmt?

Mit freundlichen Grüßen
David

[SCL SDA (Gast)]

>BTFSS LATA, RA0
>BSF LATA, RA0

>BTFSC LATA, RA0
>BCF LATA, RA0

Irgendwie... Hmmm. Hängt deine LED gegen Vcc?
Dann hab ich vielleicht was für dich.

[Der Rcher der Transistormorde (Gast)]

David M. schrieb:
> irgendwie will meine EUSART- Schnittstelle nicht so, wie ich es will.
> Das Ziel ist momentan eigentlich nur, eine LED zum Tooglen zu bringen.
> Egal, welche Taste gedrückt wurde.

Bisschen wirr, oder? Kommentiere doch erstmal die einzelnen Schritte, wo 
deine Led dranhängt,  isoliere die Ledsoftware und teste Sie ohne den 
Uart.


Das Zauberwort heißt eingrenzen.

[David M. (mic_dave)]

Hallo. Also ich habe den Fehler jetzt ein bisschen eingegrenzt. Und zwar 
lasse ich mir den eingelesenen Wert ausgeben. Was ich da beobachte ist 
folgendes: Starte ich den PIC, dann ist noch alles wunderbar. Drücke ich 
jetzt jedoch eine Taste, dann gibt er mir ständig einen Wert raus. Also 
wird anscheinend der Interruptflag nicht gelöscht. Hat jemand eine Idee, 
warum das so ist?

QT update:

  GOTO Init
; Mainprogram
loop 
  CALL get_usart
  GOTO loop

; Read the RC- Port
get_usart
  BTFSS PIR1, RC1IF
    GOTO loop

  CALL set_usart
RETURN

; Send to usart
set_usart
  MOVLW RCREG1
  MOVWF TXREG1
  
  BCF PIR1, RC1IF
RETURN

; Init the µc
Init
  ; Configuration of PORTA
  CLRF PORTA ; Clear PORTA
    MOVLW 0x00
    MOVWF PORTA

  CLRF TRISA ; Set all pins to output
    MOVLW 0x00
    MOVWF TRISA 

  CLRF ANSELA; Set all pins to digital output
    MOVLW 0x00
    MOVWF ANSELA


  ; Configuration of PORTB
  CLRF PORTB ; Clear PORTB
    MOVLW 0x00
    MOVWF PORTB

  CLRF TRISB ; Set all pins to output
    MOVLW 0xFF
    MOVWF TRISB 

  CLRF ANSELB; Set all pins to digital output
    MOVLW 0x00
    MOVWF ANSELB


  ; Configuration of PORTC
  CLRF PORTC ; Clear PORTC
    MOVLW 0x00
    MOVWF PORTC

  CLRF TRISC ; Set all pins to output
    MOVLW 0xF0
    MOVWF TRISC 

  CLRF ANSELC; Set all pins to digital output
    MOVLW 0x30
    MOVWF ANSELC

  ; Enable EUSART Receiver and Transmitter
  BSF RCSTA1, CREN
  BCF TXSTA1, SYNC
  BSF TXSTA1, TXEN
  BSF RCSTA1, SPEN

  ; initialisation Baudrate
  CLRF BAUDCON1
    MOVLW 0x00
    MOVWF BAUDCON1
  CLRF SPBRG
    MOVLW D'12'
    MOVWF SPBRG

  BCF LATC, RC6
  BSF LATC, RC7
GOTO loop