LIST		p=16F877
#include	"P16f877.inc"
		__config	0x39BA
		org		0x0000
	
	
		goto	main
		
		org		0x04
		
		goto	req



		req
		banksel		portd
		movf		rcreg,w
		movwf		portd
		retfie

;------------------------------------------PARANCSSZÓ KÓDOLÁS ÉS VEZÉRLÉS VÉGE-----------------------------------------------------------------

main
		bank0
		movlw	b'11011111'			;T0CKI porta bemenet
		movwf	OPTION_REG
		movlw	b'11000000'			;GIE,PIE ON
		movwf	INTCON				;többi megszakítása OFF
		movlw	b'00110000'			;RX,TX megszakítás ON többi OFF
		movwf	PIE1				;
		call	init_comport			;comport beállítása	
		call 	init_IOports
		call	loop				;ciklus

init_comport
		banksel	TXSTA
		movlw	b'00100100'			;TXSTA beállítása:8bit mode,transmit enable,async mode,BRGH=1(high)
		movwf	TXSTA
		movlw	d'25'				;táblázat szerint baudrate:9615 bps=> hiba=0,16%
		movwf	SPBRG				;
		banksel	RCSTA
		movlw	b'10010000'			;RCSTA beállítása:soros port enabled,8bit mode, folyamatos mód, nincs cím figyelés,
		movwf	RCSTA				;
		return

init_IOports
		banksel	trisd
		movlw	b'00000000'
		movwf	trisd
		return



loop
		goto	loop
			

end