$INCLUDE  (STC12C5A.INC)            ;包含STC12C5A60S2單片機寄存器定義文件
RUN_LED			EQU		P1.0		;程序工作指示燈
ERROR_LED		EQU		P1.1		;出錯指示燈
Hi_Volt_LED		EQU		P1.2		;正常電壓指示燈
POWER_ON_LED	EQU		P1.3		;電源上電指示燈
LOW_Volt_LED	EQU		P1.4		;低電壓指示燈
	ORG   0000H
	LJMP  MAIN
	ORG   0100H
MAIN:
	MOV SP, #70H 	                ;堆棧指針指向 0E0H 單元
	SETB	RUN_LED             	;演示程序開始工作
	LCALL  Delay                    ;延時
	CLR		RUN_LED	                ;演示程序開始工作
	LCALL  Delay                    ;延時
	SETB	RUN_LED
MAIN1:
	MOV    A,PCON
	JBC    ACC.5,POWER_ON_1
	CLR    ERROR_LED
	SETB   POWER_ON_LED
	SETB   Hi_Volt_LED
	SETB   LOW_Volt_LED
ERROR:
	LJMP   ERROR
POWER_ON_1:
	SETB   ERROR_LED
	CLR    POWER_ON_LED
	SETB   Hi_Volt_LED
	SETB   LOW_Volt_LED
	LCALL  Delay                    ;延時
Continue_Read:
	MOV    A,#11011111B
	ANL    PCON, A
	NOP
	MOV    A,PCON
	JBC    ACC.5,Low_Voltage
High_Voltage:
	SETB   ERROR_LED
	SETB   POWER_ON_LED
	CLR    Hi_Volt_LED
	SETB   LOW_Volt_LED
	LJMP   Continue_Read
Low_Voltage:
	SETB   ERROR_LED
	SETB   POWER_ON_LED
	SETB   Hi_Volt_LED
	CLR    LOW_Volt_LED
	LJMP   Continue_Read
Delay:
	 CLR   A
	 MOV   R0, A
	 MOV   R1, A
	 MOV   R2, #30H
Delay_Loop:
	 DJNZ  R0, Delay_Loop
	 DJNZ  R1, Delay_Loop
	 DJNZ  R2, Delay_Loop
	 RET
	 END