/* PSI					                    St醔l Robrt */
/*                                                                      */
/* SerialR.h (Funkce pro komunikaci po SCI)                 23.06.1998  */
/************************************************************************/

/* 	- Zakladni funkce pro SCI */
/*    - Nutno prilinkovat k cecku jako "SerialR.obj" */

/* #ifndef ! __SERIALR_H */
/*  #define __SERIALR_H */

extern char getkeyR (void);   		 				/* Precte znak z bafru; Je-li bafr prazdny vraci nedefinovany znak */
extern char getCharR(void);              			/* Precte znak z bafru; Je-li prazdny ceka */
extern unsigned int  getWordR(void);            /* Precte 2 znaky z bafru; Je-li prazdny ceka */
extern void putkeyR (unsigned char c);   			/* Ceka na volnoulinku, pak naplni Sbaf */
extern void putWordR(int i);             			/* Ceka na volnoulinku, pak vysle 2B */


extern void init_Bafr(void);     					/* Inicializace vstupniho bafru znaku */
extern void Tim_out_Int(void);						/* Funkce pro obsluhu time_outu */
extern char in_Rx (void);								/* Vraci pocet znaku ve vstupnim bafru */
extern void serial_int ();             			/* Rutina preruseni; Testuje linku, */
																/*  prijma znaky po SCI nutno dat do C jako funkci */

extern char LinkFlg;										/* Priznak volne vysilaci linky */
extern char RxCount;                   			/* Pocet znaku v prijmacim bafru */

/* Nutna inicializace seriove linky */
/*	" serial_init (int Baud)              " */
/* "  { PCON  = 0x00;     SCON  = 0x53;  " */			/* mode 1: 8-bit UART, enable receiver   */
/* "    TCON  = 0x49;     TMOD |= 0x20;  " */			/* timer 1 mode 2: 8-Bit reload          */
/* "    TH1   = 0xfc;              		  " */			/* 0xf3 reload value 2400 baud           */
/* "    init_Bafr();      ES    = 1;  	  " */			/* enable serial port interrupt          */
/* "    EA	  = 1; }							  " */	

/* #endif */