soros port szívat

[Borza Attila]

Sziasztok !

Két napja szívok folyamatosan a soros porttal, mostanra eljutottam addig, hogy segítséget kell kérnem, mert nem jutok semmire.
Már teljesen visszabutítottam a történetet próbapanel szintjéig, így most adott a következő felállás:
16F877, a Chipcad-es próbapanelen, amin rajta a szintcsatolás. A hw része műkszik, ez már biztos.
Soros porton kéne adatot küldenem a pc felé, eddig az Eltima Serial Port Monitorral próbáltam figyelni a portot ( com1 ) de mível nem jött semmi adat rajta, ezért feltettem scopera a panelt, a következő  jelet adja :
<http://www.surftura.fw.hu/rs232.jpg>
( ez a jel még a max 232-elött mérve )
a sw a picben a már csak a panelhez adott mintafile, ami a következő, de még ezzel se műkszik, mi lehet a baj? Van valakinek esetleg valami "demo" PICbe, ami biztosan megfelelően műkszik, hogy abból kiinduljak?
(20 MHz-es kavicsról megy a pic)

A segítségeket elölre is köszönöm.

Attila

A benne lévő prog:

;
;
	list      p=16F877            
	#include <p16F877.inc>         
	__CONFIG _CP_OFF & _WDT_OFF & _BODEN_ON & _PWRTE_ON & _HS_OSC & _LVP_OFF
;----------------------------------------------------------------------


;----------------------------------------------------------------------
;----------------------------- FŐPROGRAM ------------------------------
;----------------------------------------------------------------------
;
		org     0             	; reset vektor
		nop			; MPLAB-ICD miatt szükséges
;----------------------------------------------------------------------
; I/O port konfigurálás
;
		bsf	STATUS,RP0	
		bcf	STATUS,RP1	; bank1 kiválasztás
		movlw	14
		movwf	ADCON1		; RA0 analóg bemenet !!!
		movlw	b'00100001'	      	; RA0 bemenet, RA1..5 kimenet
		movwf	TRISA
		movlw	B'10111111'	; RC6 kimenet (TxD)
		movwf	TRISC
		clrf	TRISB
		
;----------------------------------------------------------------------
; USART port programozása aszinkron módban
;
		movlw	129
		movwf	SPBRG
		movlw	B'00100100'	; TXEN=1, SYNC=0, BRGH=1
		movwf	TXSTA		;
		bcf	STATUS,RP0	; bank0 kiválasztás
		movlw	B'10010000'	; SPEN=1, CREN=1
		movwf	RCSTA		;
;----------------------------------------------------------------------
	
Loop		movlw	114
		movwf	TXREG		; TXREG adás regiszterébe
Wait		btfss	PIR1,TXIF
		goto	Wait		; vár az adás befejeződésére
;----------------------------------------------------------------------
		bcf	PIR1,TXIF	; megszakítás jelzőbit törlése




		
		btfsc	PORTA,5
		goto	$-1
		goto	Loop
;----------------------------------------------------------------------
		end