text1.a51

串口调试程序

 ORG 0000H
	LJMP PRE
	 
	 ORG 0100H
	 MOV R7,#0FFH
PRE:	 MOV R6,#063H
PRE1:	 NOP
	DJNZ R6,PRE1
	DJNZ R7,PRE
	LJMP MAIN
	

	 ORG 200H
MAIN:	 MOV IE,#00H
	 MOV TMOD,#20H
	 MOV SCON,#50H
	 MOV PCON,#80H
	 MOV TH1,#0F3H
	 MOV TL1,#0F3H
	SETB TR1
	SETB ES
	
	 MOV R7,#0FFH
	 MOV DPH,#00H
OUTTER:	 MOV R6,#0FFH
	 MOV DPL,#00H
	 
INNER:	 MOV A,#44H
         MOV R3,A
	MOVX @DPTR,A
	CLR A
	MOVX A,@DPTR
	SUBB A,R3
	  JZ CORR
	 CLR TI
	 MOV SBUF,#88H
WT1:	 JNB TI,$
	SJMP FIN
CORR:	 CLR TI
         CLR A
	 MOV A,R3
	 MOV SBUF,A
WT2:	 JNB TI,$
FIN:	 INC DPL
	DJNZ R6,INNER
	 INC DPH
	DJNZ R7,OUTTER
	SJMP $
	 END