s10-3.asm

51单片机程序教程

	ORG 0000H
	LJMP MAIN
	ORG 030H
MAIN:	MOV P1,#0FFH
	MOV R0,#08H
	MOV A,#24H
OUT:	RRC A
	MOV P1.0,C
	ACALL DEL1S
	DJNZ R0,OUT
	MOV P1,#0FFH
	SJMP $
DEL1S:	MOV R5,#08H
F3:	MOV R6,#0FFH
F2:	MOV R7,#0FFH
F1:	DJNZ R7,F1
	DJNZ R6,F2
	DJNZ R5,F3
	RET
	END