serin.asm

Proteus的8051仿真经典实例

	ORG	00H
LOOP:	MOV	SCON,#00010000B	;设定MODE0，REN=1
	CLR	P1.7		;P1.7=0 载入74166数据（并入）
	CALL	DELAY1		;延迟
	SETB	P1.7		;P1.7=1  74166移位串出
	CLR	RI		;RI=0
LOOP1:	JBC	RI,LOOP2	;RI=1？是则跳到LOOP2
	JMP	LOOP1		;不是则再检测
LOOP2:	MOV	A,SBUF		;将SBUF载入ACC 
	MOV	P2,A		;输出至P2
	CALL	DELAY		;延迟
	JMP	LOOP		;
DELAY:	MOV	R3,#50		;延时0.5s
D1:	MOV	R4,#20
D2:	MOV	R5,#248
	DJNZ	R5,$
	DJNZ	R4,D2
	DJNZ	R3,D1
	RET
DELAY1:	
	MOV	R7,#02		;
	DJNZ	R7,$
	RET	
	END