8051至pc.asm

刚学时编的小程序

LF EQU 0AH
CR EQU 0DH

ORG 0H
JMP BEGIN

BEGIN:MOV SP,#60H
	CALL INIT_RS232

	CALL LED_BL
	MOV DPTR,#MESS
	CALL TX_STR

SCAN:
	JB P2.4,CH1
	CALL TEST_TX

CH1:JB P2.5,CH2
	JNB P2.5,$
	MOV DPTR,#MESS
	CALL TX_STR
CH2:JMP SCAN

LED_BL:
	MOV R4,#6
ASD:CPL P3.7
	MOV R5,#8
	CALL DELAY
	DJNZ R4,ASD

INIT_RS232:
	MOV SCON,#50H
	MOV TMOD,#20H
	MOV TH1,#0FDH
	SETB TR1
	SETB TI
	RET

TX_CHAR:
	JNB TI,$
	CLR TI
	MOV SBUF,A
	RET

TEST_TX:
	MOV R4,#100
FGH:MOV A,#'A'
	CALL TX_CHAR
	DJNZ R4,FGH
	RET

TX_STR:
	CLR A
	MOVC A,@A+DPTR
	CJNE A,#'$',JKL
	RET

JKL:
	CALL TX_CHAR
	INC DPTR
	JMP TX_STR
	RET

DELAY:
	MOV R6,#50
QWE:MOV R7,#100
RTY:DJNZ R7,RTY
	DJNZ R6,QWE
	DJNZ R5,DELAY
	RET
MESS:DB "TEST 8051 RS232 TX...",LF,CR,"$"

END