; Read from ACR SIO port (6/7) and xmit to 2SIO at 10/11h 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	07h	;echo to ACR SIO port

chkRcv2	in	06h	;character received on ACR SIO?
	rrc		;receive flag in lsb
	jc	chkRcv1	;no, go back and check port 1
	in	7h	;read the character
	out	11h	;echo on port 1
	jmp	chkRcv1

	end

