;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;                   簡單點亮發光二極管實例
;功能：點亮發光管LED并閃爍
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
LED_PIN		EQU		P1.0											

ORG	0000H			;偽指令，指定程序從0000H開始存放
LJMP	MAIN			;跳轉指令，程序跳轉到MAIN處

ORG	0100H			;偽指令，指定以下程序從0100H開始存放
MAIN:
	MOV	SP,#60H		;給堆棧指針賦初值							
LIGHT:
	SETB	LED_PIN		;置一P1.0，LED滅						
	LCALL	DELAY		;調延時子程序							
	CLR		LED_PIN		;清零P1.0，LED亮						
	LCALL	DELAY		;調延時子程序								
	SJMP	LIGHT		;跳轉，程序繼續						

;延時子程序
DELAY: 
	MOV	R7,#10H
DELAY0: 
	MOV	R6,#7FH
DELAY1: 
	MOV	R5,#7FH
	DJNZ	R5,$
	DJNZ	R6,DELAY1
	DJNZ	R7,DELAY0
	RET

END