ORG 0H
;----------------------
BEGIN:
	CALL INIT_RS232
	CLR  A
        MOV  A, #01010101B
        MOV  P1, A
	CALL TX_CHAR
RUN:
	JNB RI,$
	CLR RI
	MOV A,SBUF
        MOV P1,A
	CALL TX_CHAR
	JMP RUN
;-----------------------------------------
INIT_RS232:	      ;<9600 N 8 1>
	MOV SCON,#50H
	MOV TMOD,#20H
	MOV TH1,#0FDH
	SETB TR1
	SETB TI
	RET
;------------------------------------
TX_CHAR:
	CLR TI
	MOV SBUF, A
	RET
;-------------------------------------
	END
;--------------------