ex10-2.asm

《增强型8051单片机实用开发技术》例程代码

$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