Hallo

Ich möchte vom PC via RS232 bytes zum PIC 16F627 senden.
Ich habe die Beispiele bei sprut.de etc studiert, aber es klappt irgendwie nicht.

Kann mir jemand sagen, was bei dem unten angeführten code nicht stimmt. An PORTB pin 0 ist eine LED und wenn Daten an RS232 ankommen, dann sollte diese LED angehen. Es klappt aber nicht.

Ich bin um jegliche Hilfe dankbar!
Grüsse
Sami

;************************************************* ************
MAIN
;************************************************* ************

;-----------------------------------------------------------------------------
INITUSART
;-----------------------------------------------------------------------------
BSF STATUS,RP0 ; switch to Bank1
MOVLW 0x20 ; sender: RS232
MOVWF TXSTA ;
BCF STATUS,RP0 ; switch to Bank 0
MOVLW 0x90 ; receiver: RS232
MOVWF RCSTA ;

;-----------------------------------------------------------------------------
SETBAUD
;-----------------------------------------------------------------------------
BSF STATUS,RP0 ; Bank1
MOVLW 15 ; Set Baud rate 19,2 kBPS bei 20 MHz
MOVWF SPBRG
BCF TXSTA, BRGH ; BRGH=0
BCF STATUS,RP0 ; Bank 0


;-----------------------------------------------------------------------------
CLRPORTS
;-----------------------------------------------------------------------------
clrf PORTA
clrf PORTB


;-----------------------------------------------------------------------------
RECDATA1
;-----------------------------------------------------------------------------
btfss PIR1,RCIF ; sind Daten da ?
goto RECDATA1 ; nein, noch keine Daten da
;movfw RCREG ; RS232-Register auslesen
;movwf CHAR ; und in den Speicher nach 'Zeichen' schreiben


;-----------------------------------------------------------------------------
SETB0ON ; set pin 0 on PortB to 1
;-----------------------------------------------------------------------------
bsf STATUS, RP0 ; switch to bank1
bcf TRISB ^ 0x80, 0 ; set on port B pin 0 as output
bcf STATUS, RP0 ; switch back to bank0
movlw b'00000001' ; set bit 0 high in work reg
movwf PORTB ; move work reg to PORTB
;-----------------------------------------------------------------------------
LOOP ; long loop, this allows to see an LED
;-----------------------------------------------------------------------------
count1 equ 15h
count2 equ 16h
L1 decfsz count1,1
goto L1
decfsz count2,1
goto L1

end
[/code]