;	IO PORT DEFINITIONS
SR2BR	EQU	0F1H
SR2MD	EQU	0F3H;	MODE SET PORT
;
;
;	CONSTANTS FOR BAUD RATE GENERATOR
B1200	EQU	064
CNTMD	EQU	076H
;
;
;	CONSTANTS FOR IODEF
;
DEVCOD	EQU	06H;	CODE FOR AUX LINE PRINTER
SRSRV	EQU	0FCCAH;	ADDRESS OF SERVICE ROUTINE IN ROM MONITOR
;			FOR SERIAL PORT 2 IN MDS SERIES II
;			MAY CHANGE IF MONITOR REV IS NOT V1.2 OR
;			ON MDS800
;
;
;	ISIS CONSTANTS
;
XITCMD	EQU	09H;	EXIT COMMAND TO ISIS
;
	EXTRN	ISIS,IODEF
;
;
;
	CSEG
;
START:	MVI	A,CNTMD
	OUT	SR2MD
	MVI	A,LOW B1200
	OUT	SR2BR
	MVI	A,HIGH B1200
	OUT	SR2BR
	MVI	C,DEVCOD
	LXI	D,SRSRV
	CALL	IODEF
	LXI	B,XITCMD
	CALL	ISIS
;
	END	START