INIT_UART:	mov tmod,#20H		;timer MODE 1, 8 BIT auto reload
		mov th1,#0FDH		;timer preset for 38400 BAUD
		mov scon,#01011010B	;SM0=0 SM1=1 REN=1 TB8=1 RB8=1 TI=1
		mov pcon,#10000000B	;double BR_BIT=1 => @ 38400 BAUD
		setb tr1		;set timer RUN BIT
		setb es			;enable serial interrupt
		setb ea			;enable global interrupt
		clr char_rcv_flag	;clear character received Flag
		ret			;