//名称：流水灯
//功能描述：发光二极管单向循环点亮。SPCE061A单片机汇编语言实现

//===================================================================//

.include SPCE061A.inc //包含头文件
.ram
.var R_LEDControl //定义LED控制变量
.var R_DaleyControl //定义延时程序控制变量
.code
.public _main

//===================================================================//
//函数名：主函数
//功能描述：控制发光二极管单向循环点亮
//===================================================================//

_main:
r1=0x00ff //定义IOA口为同向输出，并输出低电平
[P_IOA_Dir]=r1
[P_IOA_Attrib]=r1
r1=0x0000
[P_IOA_Data]=r1 //IO口电平初始化，如果是接共阳极的LED，则选用高电平输出
r1=0x0001
[R_LEDControl]=r1
L_MAINloop: //通过循环左移实现LED单向循环点亮程序段
r1=[R_LEDControl]
[P_IOA_Data]=r1 //点亮第一个LED
r1=r1 LSL 1 //循环左移语句
CMP r1,0x0100 //控制点亮的LED在IOA低八位之内。CMP指令进行做差比较
JNE NoOver //该指令的意思为：不等于转接到后边的程序段
r1=0x0001 //如果等于的话，则对IOA口的输出初始化
NoOver:
[R_LEDControl]=r1
r1=0x0000 //给延时函数的计数赋初值
[R_DaleyControl]=r1
CALL L_Daleyloop //转到延时子函数
JMP L_MAINloop //循环控制LED的点亮

//===================================================================//
//函数名：延时函数
//功能描述：通过计数实现延时，不精确延时
//===================================================================//

L_Daleyloop:
r1=0x0001
[P_Watchdog_Clear]=r1 //清看门狗
r1=[R_DaleyControl]
r1+=1 //延时计数加1
[R_DaleyControl]=r1
JNZ L_Daleyloop //JNZ指令标示“非0则转到loop”。该语句的意思是“R_DaleyControl的值不为0则转到L_Daleyloop”。
RETF //一般情况下，循环加法的值到65535时为最大值，超过该值时则会从0算起，及65536标示0