וווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווווו
RDA	EQU	40H
;
;
BEGIN:
	MVI	C,09H	;PRINT STRING FUNCTION
	LXI	D,MSG	;POINT TO MESSAGE
	CALL	0005H	;CALL BDOS
	JMP	MAIN
;
MSG:
	DB	0DH,0AH,0AH
	DB	'TRTINIT.COM MUST BE RUN FIRST!',0DH,0AH
	DB	'TUART MUST BE SET FOR PORTS 50 & 60H',0DH,0AH
	DB	'CTL-G SWITCHES PORTS',0DH,0AH
	DB	'CTL-C REBOOTS FROM PORT B(60H)',0DH,0AH,0AH,24H
;
MAIN:	IN	ASTAT
	ANI	RDA
	JZ	MAIN
	IN	ADATA
	ANI	07FH	;STRIP PARITY BIT
	MOV	C,A
LOOP1:	IN	ASTAT
	ANI	TBE
	JZ	LOOP1
	MOV	A,C
	OUT	ADATA
	CPI	07H	;IF CTL-G, SWITCH TO B PORTS
	JNZ	MAIN
SECND:	IN	BSTAT
	ANI	RDA
	JZ	SECND
	IN	BDATA
	ANI	07FH	;STRIP PARITY BIT
	MOV	C,A
LOOP2:	IN	BSTAT
	ANI	TBE
	JZ	LOOP2
	MOV	A,C
	OUT	BDATA
	CPI	07H
	JZ	MAIN
	CPI	03H
	JNZ	SECND
	RET
	