;************************************************
;*			FW PRO TEST KOMUNIKACE RS 232		*
;************************************************
;*					MAREK RYBAK					*
;************************************************

;************************************************
;*				MCU CONFIG						*
;************************************************
	CONFIG	IESO=OFF
	CONFIG	FCMEN=OFF
	CONFIG	OSC=INTIO1
	CONFIG	PWRT=ON
	CONFIG	BOR=OFF
	CONFIG	BORV=3
	CONFIG	WDT=ON
	CONFIG	WDTPS=1024
	CONFIG	MCLRE=OFF
	CONFIG	PBADEN=DIG
	CONFIG	CCP2MX=RC1
	CONFIG	DEBUG=OFF
	CONFIG	LVP=OFF
	CONFIG	STVREN=OFF
	CONFIG	CP0=OFF
	CONFIG	CP1=OFF
	CONFIG	CPB=OFF
	CONFIG	CPD=OFF
	CONFIG	WRT0=OFF
	CONFIG	WRT1=OFF
	CONFIG	WRTC=OFF
	CONFIG	WRTB=OFF	
	CONFIG	WRTD=OFF
	CONFIG	EBTR1=OFF
	CONFIG	EBTR0=OFF
	CONFIG	EBTRB=OFF


;************************************************
;*						MCU						*
;************************************************

			LIST P=18F2321
			#INCLUDE <P18F2321.INC>

;************************************************
;*				NASTAVENI MCU					*
;************************************************

	

;************************************************
;*				PREKLAD							*
;************************************************
		ORG		H'00'	
		GOTO	START

	

;************************************************
;*				ZACATEK PROGRAMU				*
;************************************************

		

START
		
		
		BSF		TRISC,6			;RX
		BSF		TRISC,7			;TX

		MOVLW	D'207'			;2400 BD
		MOVWF	SPBRG
		
		BSF		TXSTA,TXEN		;POVOL PRIJEM
		BSF		TXSTA,BRGH		;VYSOKA RYCHLOST

		BSF		RCSTA,SPEN		;POVOL KOMUNIKACI
		BSF		RCSTA,CREN		;POVOL CREN
		
	
		MOVLW	H'0F'			;JEN DIG IO
		MOVWF	ADCON1
		MOVLW	B'01110110'		;OSC INT 8 Mhz
		MOVWF	OSCCON

;************************************************
;*				HLAVNI SMYCKA					*
;************************************************

MAIN
			CLRWDT
			MOVLW	A'M'
			CALL	VYS
			CLRWDT
			MOVLW	A'A'
			CALL	VYS
			CLRWDT
			MOVLW	A'R'
			CALL	VYS
			GOTO	MAIN

VYS			MOVWF	TXREG
			RETURN
			
		




		END
