;
;	INITUART.ASM
;
;Program for initiating the TRS-80 Model I UART
;(RS232C board) so that MODEM, MBOOT, MTN etc will
;work properly. You can include this in MODEM or
;MBOOT if you wish.
;
MRSPT	EQU	0E8H	;master reset port
BDRTPT	EQU	0E9H	;baud rate port
CTRLPT	EQU	0EAH	;UART control port
;
BD300	EQU	055H	;300 baud
CTWD	EQU	06DH	;8 bit word, 1 stop bit
			;no parity, set DTR
;
;The next three lines are only for information.
DTPT	EQU	0EBH	;data port
RCVMSK	EQU	O80H	;receive status mask
TRNMSK	EQU	040H	;transmit status mask
;
	ORG	04300H	;start of TPA
;
	OUT	MRSPT	;reset UART, doesn't matter
			;what is in A
	MVI	A,BD300
	OUT	BDRTPT	;set baud rate at 300
	MVI	A,CTWD
	OUT	CTRLPT	;set control port
	JMP	04200H	;do a warm boot
;
	END