uart.asm

AD AND TLC549 TLC548C, TLC548I, TLC549C, TLC549I

DAT	DATA 30H
SOK	BIT  00H
	ORG 0000H
	LJMP MAIN

	ORG 0023H
	LJMP UART

	ORG 0050H
MAIN:	MOV IE,#10010000B
	MOV SP,#60H
	MOV TMOD,#21H
	MOV SCON,#50H
	MOV PCON,#80H
	MOV TH1,#-13  ;12MHZ/4800
	SETB TR1
	MOV DAT,#'A'
WAIT:	CLR SOK
	MOV SBUF,DAT
	JNB SOK,$
	LCALL DELAY
	SJMP WAIT

UART:	PUSH ACC
	PUSH PSW
	JNB RI,NEXT
	MOV A,SBUF
	MOV DAT,A
	MOV P1,A
NEXT:	MOV C,TI
	MOV SOK,C
	CLR TI
	POP PSW
	POP ACC
	RETI

DELAY:	MOV R6,#250
DEL:	MOV R7,#250
	DJNZ R7,$
	DJNZ R6,DEL
	RET
	END