1 Lantern_controller(彩灯控制器设计的源程序清单).docVIP

6 源程序清单 （1）参考汇编程序 ；********************************************； ； 课程设计一程序：彩灯控制器用4个按键控制 ； ；8个LED小灯的工作状态，可使LED小灯实现 ； ； 轮流点亮、逐点点亮、间隔闪亮功能 ； ； 12MHz晶振 ； ；********************************************； LAMPOUT EQU P1 ；小灯输出口 KEYSW0 EQU P3.7 ；按键0 KEYSW1 EQU P3.6 ；按键l KEYSW2 EQU P3.5 ；按键2 KEYSW3 EQU P3.4 ；按键3 ；*************; ；中断入口程序 ； ； *************; ORG 0000H ；程序执行开始地址 LJMP START ；跳至START执行 ；************； ；初始化程序 ； ； ***********； CLEAR：MOV 20H，#00H ；20H单元内存清0（闪烁标志清0） SETB 00H ；20H.0位置l（上电时默认执行1个功能） RET ；子程序返回 ；************； ； 主程序 ； ；************； START：ACALL CLEAR ；凋用初始化子程序 MAIN： LCALL KEYWORK ；调用键扫描子程序 JB 00H, FUN0 ；20H.0位为l时执行FUN0 JB 01H，FUN1 ；20H.1位为1时执行FUN1 JB 02H，FUN2 ；20H.2位为l时执行FUN2 JB 03H，MAIN ；备用 AJMP MAIN ; 返回主程序MAIN ；************； ； 功能程序 ； ；************； ；第1种闪烁功能程序 FUN0： MOV A，#0FEH ；累加器赋初值 FUN00：MOV LAMPOUT，A ；累加器值送至LAMPOUT口 LCALL DL05S ；延时 JNB ACC.7，MAIN ；累加器最高位为0时转MAIN RL A ；累加器A中数据循环左移1位 AJMP FUN00 ；转FUN00循环 ；第2种闪烁功能程序 FUN1： MOV A，#OFEH ；累加器赋初值 FUN11：MOV LAMPOUT，A ；累加器值送至LAMPOUT口 LCALL DL05S ; 延时 JZ MAIN ；A为0转MAIN RL A ；累加器A中数据循环左移1位 ANL A，LAMPOUT ；A同LAMPOUT口值相与 AJMP FUN11 ；转FUN11循环 ；第3种闪烁功能程序 FUN2： MOV A，#0AAH ；累加器赋初值 MOV LAMPOUT，A ；累加器值送至LAMPOUT口 LCALL DL05S ；延时 LCALL DL05S ；延时 CPL A ；A中各位取反 MOV LAMPOUT，A；累加器值送至LAMPOUT口 LCALL DL05S ; 延时 LCALL DL05S ; 延时 AJMP MAIN ；转MAIN ；************； ； 扫键程序 ； ；***********； KEYWORK：MOV P3，#0FFH ；置P3口为输入状态 JNB KEYSW0，KEY0 ：读KEYSW0口，若为0转KEY0 JNB KEYSW1，KEYI ；读KEYSW1口，若为0转KEY1 JNB KEYSW2，KEY2 ；读KEYSW2口，若为0转KEY2 JNB KEYSW3，KEY3 ；读KEYSW3口，若为0转KEY3 RET ；子程序返回 ；闪烁功能0键处理程序 KEY0：LCALL DL10ms ；延时10ms消抖 JB KEYSW0，OUT0 ；KEYSW0为1，子程序返回（干扰） SETB 00H ; 20H. 0位置1（执行闪烁功能1标志） CLR 01H ; 20H.1位清0 CLR 02H ; 20H.2位清0 CLR 03H ; 20H.3位清0 OUT0：RET ; 子程序返回 ；闪烁功能1键处理程序 KEY1： LCALL DL10ms JB KEYSW1，OUT1 SETB 01H ; 20H.1位