;
LIST		P=18F14K50
#INCLUDE	<P18F14K50.INC>
ORG		0x1000
;
;------------------[ ÁLLANDÓK ]---------------------------------------------
;
#DEFINE CLOCKFRQ D'48000000'
#DEFINE BAUD(X) (CLOCKFRQ/(D'64'*X))-1
;
;---------------------------------------------------------------------------
;
INICIALIZÁLÁSOK
INI_SOROS
		BSF		TRISB,RX
		BSF		TRISB,TX
		MOVLW		BAUD(D'9600')	;9600bps
		MOVWF		SPBRG
		MOVLW		B'00100000'	;8 bites aszinkron átvitel
		MOVWF		TXSTA		;paritás nincs, 1 stop bit
		MOVLW		B'10010000'
		MOVWF		RCSTA
INI_POTRC
		CLRF		LATC
		MOVLW		B'11110000'
		MOVWF		TRISC
;
		CLRF		PIR1
;
;---------------------------------------------------------------------------
;
INDÍTÁS
		BTFSC		PORTA,3		;a nyomógombot meggnyomása
		BRA		$ - 2
		BTFSS		PORTA,3
		BRA		$ - 2
		BTG		LATC,0
OK_KÜLDÉS
		BTFSS		PIR1,TXIF
		BRA		$ - 2
		MOVLW		'O'
		MOVWF		TXREG
		BTFSS		PIR1,TXIF
		BRA		$ - 2
		MOVLW		'K'
		MOVWF		TXREG

ADAT_VÉTEL
		BTFSS		PIR1,RCIF
		BRA		$ - 2
		MOVF		RCREG,W
		BTG		LATC,1
ADAT_KÜLDÉS
		BTFSS		PIR1,TXIF
		BRA		$ - 2
		MOVWF		TXREG
		BTG		LATC,2
;
		BRA		ADAT_VÉTEL
;
END