Picten Comporta Data Gönder(eme)mek

[alabora]

pic ve bilgisayarı seri porttan haberleştirmek için yazdığım bir program var elimde. Bunu isiste simüle etmek için bu forumda link verilen Advanced Virtual Comport ile bilgisayarda sanal port oluşturdum. Docklight ile de bu comportu kullanarak (Çünkü bilgisayarımda com port çıkışı yok.nedense laptop var  :? )veri iletişimi sağlamak istedim ancak programım çalışmadı.

Ben de Hyper terminal COM1i, Docklight COM2 olacak şekilde düzenledim ve şimdi ikisi de birbirleriyle haberleşiyor.Yani bilgisayarda comport simüle edebiliyorum.Ama  İşin içine yazdığım programı da katınca tadı kaçıyor işte. Demekki programda var bi terslik.

Eksik olan çok şey var gibime geliyor programda. Picten seri porta data gönderen bi program örneği(sadece bunu yapması yeterli) verirseniz çok güzel olacak.

9600 BR, 8N1

list      p=16f628            ; list directive to define processor
	#include <p16f628.inc>        ; processor specific variable definitions
	
	__CONFIG _CP_OFF & _WDT_ON & _BODEN_ON & _PWRTE_ON & _ER_OSC_CLKOUT & _MCLRE_ON & _LVP_ON

;***** VARIABLE DEFINITIONS

sayac equ 0x72


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

main
	call kur
	BANKSEL PIR1
	WaitTX: btfss PIR1,TXIF
	goto WaitTX
	
	movlw .255
	movwf sayac
	decfsz sayac,f
	goto $-1
	movlw .255
	movwf sayac
	decfsz sayac,f
	goto $-1
	movlw .255
	movwf sayac
	decfsz sayac,f
	goto $-1
	movlw .255
	movwf sayac
	decfsz sayac,f
	goto $-1
	movlw .255
	movwf sayac
	decfsz sayac,f
	goto $-1
	
	movlw .65
	BANKSEL TXREG
	movwf TXREG
	
	movlw .255
	movwf sayac
	decfsz sayac,f
	goto $-1

	BANKSEL PIR1
	WaitTX_1: btfss PIR1,TXIF
	goto WaitTX_1

	bsf PORTA,0
xx
	goto xx
kur
	BANKSEL INTCON
	clrf INTCON
	
	BANKSEL TRISA
	clrf TRISA
	movlw b'00000110'
	movwf TRISB
	
	BANKSEL PORTA
	clrf PORTA
	clrf PORTB
	
	BANKSEL CMCON
	movlw b'00000111'
	movwf CMCON
	
	BANKSEL OPTION_REG
	movlw	b'00001000' ;presclaer for WTD;WTD off
	movwf	OPTION_REG

	BANKSEL TXSTA
	movlw B'10100110'
	movwf TXSTA
	BANKSEL RCSTA
	movlw B'10010000'
	movwf RCSTA
	
	BANKSEL SPBRG
	movlw .25
	movwf SPBRG
	return
end