;  Read from 2SIO port 2, transmit to 2SIO port 1 and vice-versa

	org	0
	mvi	a,03h	;reset UARTs
	out	10h
	out	12h
	mvi	a,15h	;no RI, no XI, RTS Low, 8n1, /16
	out	10h
	out	12h

chkRcv1	in	10h	;character received port 1?
	rrc		;receive flag in lsb
	jnc	chkRcv2	;no, go check port 2
	in	11h	;read the character
	out	13h	;echo on port 2

chkRcv2	in	12h	;character received port 2?
	rrc		;receive flag in lsb
	jnc	chkRcv1	;no, go back and check port 1
	in	13h	;read the character
	out	11h	;echo on port 1
	jmp	chkRcv1

	end

