;THIS ROUTINE SETS THE SERIAL CHANNELS 1 AND 2
;BAUD RATES TO 2400.

	CSEG

START:	MVI	A,040H	;RESET THE 8251 USART
	OUT	0F5H
	OUT	0F7H
	MVI	A,076H	;SET 8253 TO MODE 3
	OUT	0F3H

	LXI	H,020H	;SET 2400 BAUD
	MOV	A,L
	OUT	0F0H
	MOV	A,H
	OUT	0F0H
	MOV	A,L
	OUT	0F1H
	MOV	A,H
	OUT	0F1H

	MVI	A,0CEH
	OUT	0F5H	;SET MULTIPLIER
	MVI	A,025H
	OUT	0F5H
	MVI	A,0CEH
	OUT	0F7H
	MVI	A,025H
	OUT	0F7H
	RET

	END	START