绕线机计数器程序

声明：本程序已经调好并已投入实际生产中。

此公开的目的是给单片机初学者的一个简单的实例，供学习用。

本人的宗旨是：“人人为我，我为人人”。

大家共同分亨学习及改证，如转贴请注明出处。

请勿用于商业途径！2006-2-10整理以下程序请”大虾”不吝指正!!!!;***********************************;; 绕线机计数器程序;;CPU : 89C2051 版本: V2.7 ;;可预置数--电机车间专用;;创建：2005-02-01 修改于：2005.09.29 ;;作者：孙世林;;; E-mail:sunlin137@ ;;***********************************;;;****************;; 伪定义;;****************;LED0 EQU 3AH; 存放显存的小数LED1 EQU 3BH; 存放个位数LED2 EQU 3CH; 存放十位数LED3 EQU 3DH; 存放百位数LED4 EQU 3FH; 存放千位数SLOW0 EQU 40H; 存放减速预置数小数SLOW1 EQU 41H; 存放减速预置数个位SLOW2 EQU 42H; 存放减速预置数十位SLOW3 EQU 43H; 存放减速预置数百位SLOW4 EQU 44H; 存放减速预置数千位TOEND0 EQU 45H; 存放预置数小数位TOEND1 EQU 46H; 存放预置数个位TOEND2 EQU 47H; 存放预置数十位TOEND3 EQU 48H; 存放预置数百位TOEND4 EQU 49H; 存放预置数千位L1BIT1 EQU 4AH; 存放相应键位中的预置数L1L1BIT2 EQU 4BH;L1BIT3 EQU 4CH;L1BIT4 EQU 4DH;L2BIT1 EQU 4EH; 存放相应键位中的预置数L2 L2BIT2 EQU 4FH;L2BIT3 EQU 50H;L2BIT4 EQU 51H;L3BIT1 EQU 52H; 存放相应键位中的预置数L3 L3BIT2 EQU 53H;L3BIT3 EQU 54H;L3BIT4 EQU 55H;L4BIT1 EQU 56H; 存放相应键位中的预置数L4 L4BIT2 EQU 57H;L4BIT3 EQU 58H;L4BIT4 EQU 59H;MOVD EQU 5EH;MOVE EQU 5FH;MOVDA T4 EQU 60H; 存放寄存数L0-L4 MOVDA T3 EQU 61H;MOVDA T2 EQU 62H;MOVDA T1 EQU 63H;MOVDA T0 EQU 64H;RUNOVER EQU 65H;L1ORL2 EQU 5CH;L1ORL EQU 5DH;;************;; 中断入口;;************;ORG 0000H ;程序执行开始地址LJMP START ;跳至START执行ORG 0003H ;外中断0中断入口地址LJMP INTEXT0 ;ORG 000BH ;定时器T0中断入口地址RETI ;中断返回ORG 0013H ;外中断1中断入口地址LJMP INTEXT1 ;ORG 001BH ;定时器T1中断入口地址RETI ;中断返回ORG 0023H ;串行口中断入口地址RETI ;中断返回ORG 002BH ;定时器T2中断入口地址RETI ;中断返回;************;; 初始化程序;;************;START: LJMP LODLED; 进入开机显示信息程序MOV TMOD,#90H;MOV SP,#70H;SETB PX0;START0: MOV LED4,#0DH; 清零时显示"CLR" 并为不限制计数范围、清除循环计数标志MOV LED3,#0FH;CMOV LED2,#0AH;LMOV LED1,#010H;RMOV LED0,#0DH;START1: ACALL DISPLAY; 等待键释放JNB P1.7, START1CLEAR: MOV TOEND0,#0AH; 初始化预置数值及减速数值MOV TOEND1,#0AHMOV TOEND2,#0AHMOV TOEND3,#0AHMOV TOEND4,#0AHMOV SLOW1,#0AHMOV SLOW2,#0AHMOV SLOW3,#0AHMOV SLOW4,#0AHMOV L1ORL2,#00H; 不循环计数标记MOV L1BIT1,#0H;*L1-10 载入初始默认数MOV L1BIT2,#1H;MOV L1BIT3,#0H;MOV L1BIT4,#0H;MOV L2BIT1,#0H;*L2-20MOV L2BIT2,#2H;MOV L2BIT3,#0H;MOV L2BIT4,#0H;MOV L3BIT1,#5H;*L3-15MOV L3BIT2,#1H;MOV L3BIT3,#0H;MOV L3BIT4,#0H;MOV L4BIT1,#0H;*L4-30MOV L4BIT2,#3H;MOV L4BIT3,#0H;MOV L4BIT4,#0H;CLEARP: ACALL CLRALL; 调用清零程序ACALL CLRMOV;LJMP MAIN; 跳到主程序开始计数CLRALL: MOV A,#00H; 将LED0至LED4计数显存置0 MOV LED0,AMOV LED1,AMOV LED2,AMOV LED3,AMOV LED4,ACLR C;MOV P3,#0FFHMOV P1,#0FFHRETCLRMOV: MOV A,#00H; 暂存器置零MOV MOVDA T4,AMOV MOVDA T3,AMOV MOVDA T2,AMOV MOVDA T1,AMOV MOVDA T0,ARET;************************;; 快速预置数程序L1~L4 ;;************************;CLEAR1: MOV TOEND0,#0H; 载入预置数到寄存器L1 MOV TOEND1,L1BIT1MOV TOEND2,L1BIT2MOV TOEND3,L1BIT3MOV TOEND4,L1BIT4MOV R1,L1BIT1; 处理减速数值MOV R2,L1BIT2;MOV R3,L1BIT3;MOV R4,L1BIT4;MOV L1ORL,#00H; 建立循环标记AJMP CLEPOG;CLEAR2: MOV TOEND0,#0H; 载入预置数到寄存器L2 MOV TOEND1,L2BIT1MOV TOEND2,L2BIT2MOV TOEND3,L2BIT3MOV TOEND4,L2BIT4MOV R1,L2BIT1; 处理减速数值MOV R2,L2BIT2;MOV R3,L2BIT3;MOV R4,L2BIT4; 建立循环标记MOV L1ORL,#05H;AJMP CLEPOG;CLEAR3: MOV TOEND0,#0H; 载入预置数到寄存器L3MOV TOEND1,L3BIT1MOV TOEND2,L3BIT2MOV TOEND3,L3BIT3MOV TOEND4,L3BIT4MOV R1,L3BIT1; 处理减速数值MOV R2,L3BIT2;MOV R3,L3BIT3;MOV R4,L3BIT4;AJMP CLEPOG;CLEAR4: MOV TOEND0,#0H; 载入预置数到寄存器L4MOV TOEND1,L4BIT1MOV TOEND2,L4BIT2MOV TOEND3,L4BIT3MOV TOEND4,L4BIT4MOV R1,L4BIT1; 处理减速数值MOV R2,L4BIT2;MOV R3,L4BIT3;MOV R4,L4BIT4;CLEPOG: DEC R1; 减速数值是终值的前一圈进行CLR C; 清进位标致CJNE R1,#0FFH,CLEOUT;MOV R1,#09H;DEC R2;CLR C; 清进位标致CJNE R2,#0FFH,CLEOUT;MOV R2,#09H;DEC R3CLR C; 清进位标致CJNE R3,#0FFH,CLEOUT;MOV R3,#09H;DEC R4CLR C; 清进位标致CJNE R4,#0FFH,CLEOUT;MOV R4,#09H;CLEOUT: MOV SLOW1,R1; 载入减速数到寄存器MOV SLOW2,R2;MOV SLOW3,R3;MOV SLOW4,R4;LJMP CLEARP; 跳到初始化程序CLEAREX:MOV TOEND0,#0AH; 解除锁定电机控制，且不清零继续计数MOV TOEND1,#0AHMOV TOEND2,#0AHMOV TOEND3,#0AHMOV TOEND4,#0AHACALL CLEARPX;AJMP MAINCLEARPX:MOV SLOW1,#0AH; 不减速时载入的数MOV SLOW2,#0AHMOV SLOW3,#0AHMOV SLOW4,#0AHMOV P3,#0FFHMOV P1,#0FFHRET;**************************************;; 主程序;;**************************************;MAIN: MOV A,SLOW4; 判断是否到减速的数值(千位）MOV MOVD,LED4CJNE A,MOVD,LOOP0MOV A,SLOW3; 判断是否到减速的数值（百位）MOV MOVD,LED3CJNE A,MOVD,LOOP0MOV A,SLOW2; ...................十位MOV MOVD,LED2CJNE A,MOVD,LOOP0MOV A,SLOW1; ...................个位MOV MOVD,LED1CJNE A,MOVD,LOOP0MOV A,LED0; 减速(使P1.7口电压下降约0.6V)MOVC A,@A+DPTR; 递增减速MOV P1,ACLR P3.5; 高位高亮显示发出提示，并断开慢起动电路ACALL D1MSSETB P1.7LOOP0: MOV A,TOEND4; 判断是否到预置数了(千位)MOV MOVD,LED4CJNE A,MOVD,LOOPMOV A,TOEND3; ................百位MOV MOVD,LED3CJNE A,MOVD,LOOPMOV A,TOEND2; ................十位MOV MOVD,LED2CJNE A,MOVD,LOOPMOV A,TOEND1; ................个位MOV MOVD,LED1CJNE A,MOVD,LOOPMOV A,TOEND0; ................小数位MOV MOVD,LED0CJNE A,MOVD,LOOPCLR P1.7; 控制电机停车LCALL DLS3; 延时约0.5秒MOV A,#05H;CJNE A,L1ORL2,LOOP1; 如标记位不是07则跳至LOOP1AJMP ACTION_X; 到预置数时，跳到循环L1-L2计数LOOP1: AJMP ACTION; 跳到停机等待按键处理程序LOOP: ACALL DISPLAY; 调用显示程序MOV P1,#0FFH; 置P1口为输入状态MOV P3,#0FFH; 置P3口为输入状态JNB P1.0,NUMNOW; 显示当前的预置数并将标志位置数JNB P1.1,NOTSLOW; 不减速JNB P1.7,ALLCLR; 如清零键按下跳至清零序清除所有已设定数JNB P3.7,SELSA VE0; 如设置键按下跳到到点程序选数JNB P1.6,LED_L1; 显示相应键位值是多少JNB P1.2,LED_L2;JNB P1.5,LED_L3;JNB P1.3,LED_L4;JNB P1.4,LED_L5;SELOD: SETB IT0;SETB EX0;SETB IT1;SETB EX1;SETB EA; 开总中断AJMP MAIN; 返回主程序重复LED_L1: AJMP LOOKL1; 跳至显示当前键位的预置数是多少L1 LED_L2: AJMP LOOKL2; 跳至显示当前键位的预置数是多少L2 LED_L3: AJMP LOOKL3; 跳至显示当前键位的预置数是多少L3 LED_L4: AJMP LOOKL4; 跳至显示当前键位的预置数是多少L4 LED_L5: AJMP LOOKL5;ALLCLR: LJMP START0;NUMNOW: AJMP LOOKNOWNOTSLOW: ACALL LOOKLX;NOTSLOW1:ACALL DISPLAY0LCALL DLS1SETB P1.1JNB P1.1,NOTSLOW1LCALL CLEARPX; 调用不减速程序MOV SLOW4,#0FHMOV LED4,#0EH; 高位显示PXXXXAJMP MAINSELSA VE0:ACALL LOOKLX; 将当前数寄存在指定单元SELSA VE: JB P3.7,SELOD5LCALL DLS1JNB P3.7,SELOD2; 若按下大于1秒则跳LCALL SELOD3SELOD1: AJMP SELOD5SELOD2: ACALL LOOKLX;MOV LED4,#013H; 显示“-----”MOV LED3,#013H;MOV LED2,#013H;MOV LED1,#013H;MOV LED0,#013H;SELOD21: ACALL DISPLAY0SETB P3.7JNB P3.7,SELOD21LJMP SELNUM; 跳到设置预置数状态SELOD3: MOV A,LED2MOV MOVD,#011H; 如为T则返回避免在显示SET时出错CJNE A,MOVD,SELOD5AJMP SELODSELOD5: CLR P1.7CLR EA; 关总中断MOV LED4,#0DH; 设置键按下时显示"SET"MOV LED3,#05HMOV LED2,#011HMOV LED1,#012HMOV LED0,#0DHACALL DISPLAY0SETB P3.7JNB P3.7,SELOD5;ACTION: CLR P1.7ACALL DISPLAY0MOV P1,#0FFH; 置P1.0至P1.6为输入状态CLR P1.7SETB P3.7JNB P1.0,KBSET3; 执行超程计数JNB P1.1,KBSET0;RETF: JNB P1.2,KBOUT22; L2 只有L1至L4与SET\SEL键输入有效JNB P1.3,KBOUT40; L4JNB P1.4,KBOUT0; L--------rel--------NEXTJNB P1.5,KBOUT3; L3JNB P1.6,KBOUT11; L1JNB P3.7,KBSET1; SETAJMP ACTION;KBSET0: AJMP ACTION;KBSET1: MOV A,LED2MOV MOVD,#011H; 如为E则返回CJNE A,MOVD,KBSET12;AJMP ACTION;KBSET12: ACALL DISPLAY0LCALL DLS1JNB P3.7,KBSET11; 若按下大于1秒则跳AJMP ACTION;KBSET11: AJMP SELSA VE;KBSET3: MOV A,LED2MOV MOVD,#011H; 看是否为SETCJNE A,MOVD,KBOUT60; 如不为SET就执行超程计数AJMP RETF; 是SET则返回KBOUT60: LJMP KBOUT6;KBOUT0: AJMP KBOUT5;KBOUT40: AJMP KBOUT4;KBOUT11: MOV A,#05H;CJNE A,L1ORL2,KBOUT1; 如标记位不是05则跳MOV RUNOVER,#08H; 建立循环次数8次KBOUT1: MOV LED4,#0AH; 当K1按下时显示“L 1”MOV LED3,#0DHMOV LED2,#01HMOV LED1,#0DHMOV LED0,#0DHACALL DISPLAY0SETB P1.6JNB P1.6,KBOUT1; 延时消抖ACALL DISPLAY0LCALL DLS3LJMP CLEAR1; 如松开键时跳至CLEAR1置数程序KBOUT22: MOV A,#05H;CJNE A,L1ORL2,KBOUT2; 如标记位不是05则跳，（不循环计数)MOV RUNOVER,#06H; 建立循环次数6次KBOUT2: MOV LED4,#0AH; .L 2MOV LED3,#0DH; .MOV LED2,#02H; .MOV LED1,#0DHMOV LED0,#0DHACALL DISPLAY0SETB P1.2JNB P1.2,KBOUT2ACALL DISPLAY0LCALL DLS3LJMP CLEAR2KBOUT3: MOV LED4,#0AH; L 3MOV LED3,#0DHMOV LED2,#03HMOV LED1,#0DHMOV LED0,#0DHACALL DISPLAY0SETB P1.5JNB P1.5,KBOUT3ACALL DISPLAY0LCALL DLS3LJMP CLEAR3KBOUT4: MOV LED4,#0AH; L 4MOV LED3,#0DHMOV LED2,#04HMOV LED1,#0DHMOV LED0,#0DHACALL DISPLAY0SETB P1.3JNB P1.3,KBOUT4ACALL DISPLAY0LCALL DLS3LJMP CLEAR4KBOUT5: ACALL DISPLAY0SETB P1.4JNB P1.4,KBOUT5LJMP LOOKL5KBOUT6: MOV LED4,#011H; E.... 解除电机锁定并继续计数，同时高位用E显示ACALL DISPLAY0LCALL DL05SSETB P1.0JNB P1.0,KBOUT6LJMP CLEAREXACTION_X:ACALL DISPLAY0; 循环数判别CLR C; 清进位标致LCALL DLS3; 延时约1秒LCALL DLS3DJNZ RUNOVER,NEXT; 是否计完8/6次？不是则再继续循环LJMP ACTION; 跳到停机状态，等待按键处理NEXT: MOV A,#05H;CJNE A,L1ORL,GOL2; 如是L1则转L2、如是L2则转L1LJMP KBOUT1;GOL2: LJMP KBOUT2;;***************************;; 显示当前键位中的预置数;;***************************;LOOKL1: ACALL LOOKLX;MOV LED4,L1BIT4;MOV LED3,L1BIT3;MOV LED2,L1BIT2;MOV LED1,L1BIT1;AJMP LOOKALLLOOKL2: ACALL LOOKLX;MOV LED4,L2BIT4;MOV LED3,L2BIT3;MOV LED2,L2BIT2;MOV LED1,L2BIT1;AJMP LOOKALLLOOKL3: ACALL LOOKLX;MOV LED4,L3BIT4;MOV LED3,L3BIT3;MOV LED2,L3BIT2;MOV LED1,L3BIT1;AJMP LOOKALLLOOKL4: ACALL LOOKLX;MOV LED4,L4BIT4;MOV LED3,L4BIT3;MOV LED2,L4BIT2;MOV LED1,L4BIT1;AJMP LOOKALLLOOKL5: ACALL LOOKLX;ACALL DISPLAY0SETB P1.4JNB P1.4,LOOKL5MOV A,LED2MOV MOVD,#011H; 如为E则返回CJNE A,MOVD,LOOKL51;AJMP ACTION;LOOKL51: MOV L1ORL2,#05H; -REL-MOV LED4,#013H;MOV LED3,#010H;MOV LED2,#011H;MOV LED1,#0AH;MOV LED0,#013H;AJMP LOOKA1;LOOKNOW: ACALL LOOKLX;MOV LED4,TOEND4;MOV LED3,TOEND3;MOV LED2,TOEND2;MOV LED1,TOEND1;LOOKALL: MOV LED0,#010H;LOOKA1: ACALL DISPLAY0;LCALL DLS2LCALL DLS3ACALL LOOKLB;AJMP MAIN;LOOKLX: MOV MOVDA T4,LED4; 送数入寄存器MOV MOVDA T3,LED3;MOV MOVDA T2,LED2;MOV MOVDA T1,LED1;MOV MOVDA T0,LED0;CLR P1.7; 置电机停止工作RETLOOKLB: MOV LED4,MOVDA T4;MOV LED3,MOVDA T3;MOV LED2,MOVDA T2;MOV LED1,MOVDA T1;MOV LED0,MOVDA T0;RET;*****************;; 设置预置数程序;;*****************;SELNUM: MOV LED4,#013H; 显示“-----”MOV LED3,#013H;MOV LED2,#013H;MOV LED1,#013H;MOV LED0,#013H;ACALL DISPLAYLCALL DLS1ACALL LEDOFF; 调用灭灯程序MOV P1,#0FFH;MOV P3,#0FFHJNB P3.2,SELNUM1JNB P1.0,SELNUM1JNB P3.7,GOMAINAJMP SELNUMSELNUM1: ACALL CLRALL; 调用清零程序SELNUM2: ACALL DISPLAYMOV P1,#0FFH;JNB P1.6,SA VEL1;JNB P1.2,SA VEL2;JNB P1.5,SA VEL3;JNB P1.3,SA VEL4;JNB P1.4,SA VEL5;JNB P1.0,ADDONE0;JNB P1.1,DECONE0;JNB P3.7,GOMAIN;AJMP SELNUM2;ADDONE0: AJMP ADDONE;DECONE0: AJMP DECONE;GOMAIN: ACALL DISPLAY;JNB P3.7,GOMAIN;LCALL CLRALLLCALL LOOKLBACALL DISPLAYLJMP MAINSA VEL1: LCALL DLS1JB P1.6,SELNUM2; L1MOV L1BIT1,LED1; 将显示的数存到相应键位的寄存器中MOV L1BIT2,LED2; 小数不保存MOV L1BIT3,LED3;MOV L1BIT4,LED4;LJMP KBOUT1SA VEL2: LCALL DLS1JB P1.2,SELNUM2; L2MOV L2BIT1,LED1;MOV L2BIT2,LED2;MOV L2BIT3,LED3;MOV L2BIT4,LED4;LJMP KBOUT2SA VEL3: LCALL DLS1JB P1.5,SELNUM2; L3MOV L3BIT1,LED1;MOV L3BIT2,LED2;LJMP KBOUT3SA VEL4: LCALL DLS1JB P1.3,SELNUM2; L4MOV L4BIT1,LED1;MOV L4BIT2,LED2;MOV L4BIT3,LED3;MOV L4BIT4,LED4;LJMP KBOUT4SA VEL5: LCALL DLS1JB P1.4,SELNUM21LJMP LOOKA1;ADDONE: ACALL ADD1; 按键加1CLR P1.0JB P1.0,ADDONE1;LCALL DLS1;SETB P1.0JNB P1.0,ADDONE2; 若按下大于1秒则跳到快速加1程序SELNUM21:AJMP SELNUM2;ADDONE1: LCALL DISPLAYLCALL DL1SLCALL DL1SAJMP ADDONEADDONE2: ACALL ADD1; 按键快速加1程序ACALL DISPLAYLCALL DL1SLCALL DL1SLCALL DL1SSETB P1.0JNB P1.0,ADDONE2AJMP SELNUM2DECONE: ACALL DEC1; 按键减1CLR P1.1JB P1.1,DECONE1;LCALL DLS1;SETB P1.1JNB P1.1,DECONE2; 若按下大于1秒则跳AJMP SELNUM2;DECONE1: LCALL DISPLAYLCALL DL1SLCALL DL1SAJMP DECONEDECONE2: ACALL DEC1; 按键快速减1ACALL DISPLAYLCALL DL1SLCALL DL1SLCALL DL1SSETB P1.1JNB P1.1,DECONE2;AJMP SELNUM2; 退回;************;; 中断0 加1程序;;************;INTEXT0: PUSH ACC; 进栈PUSH PSW;INC LED0; 寄存单元LED0加1MOV A,LED0; 小数加1CJNE A,#0AH,INT0OUT; LED0数是否在10内0-9MOV LED0,#00H; 如到了则将LED0置0ACALL ADD1; 调用加1程序整数部分INT0OUT: POP PSW; 出栈POP ACCRETI; 中断返回;************;;中断1 减1程序;;************;INTEXT1: PUSH ACC; 进栈PUSH PSWDEC LED0; LED0减1MOV A,LED0 ;CLR C; 清进位标致CJNE A,#0FFH,INT1OUT; 判断LED0是不在0-9中MOV LED0,#09H; 不是将LED0置9ACALL DEC1; 调用减1程序INT1OUT: POP PSWPOP ACCRETI; 中断返回;*************;; 加1程序;;*************;ADD1: INC LED1; LED1加1MOV A,LED1CJNE A,#0AH,ADD1OUT; 显存单元在0-9MOV LED1,#00H; 如是10时则置零INC LED2; LED2加1MOV A,LED2CJNE A,#0AH,ADD1OUT; .MOV LED2,#00HINC LED3MOV A,LED3CJNE A,#0AH,ADD1OUT; .MOV LED3,#00HINC LED4MOV A,LED4CJNE A,#0AH,ADD1OUTMOV LED4,#00HADD1OUT: RET;**************;; 减1程序;;**************;DEC1: DEC LED1; LED1减1MOV A,LED1CLR C; 清进位标志CJNE A,#0FFH,DEC1OUT; .MOV LED1,#09H; .DEC LED2;MOV A,LED2CLR C;CJNE A,#0FFH,DEC1OUTMOV LED2,#09HDEC LED3MOV A,LED3CLR C;CJNE A,#0FFH,DEC1OUTMOV LED3,#09HDEC LED4MOV A,LED4CLR C;CJNE A,#0FFH,DEC1OUTMOV LED4,#09HDEC1OUT: RET;************;; 显示程序;;************;DISPLAY: MOV DPTR,#NUMTAB; 指针指向数据字符码MOV A,LED0MOVC A,@A+DPTR; 查表MOV P1,ASETB P1.7CLR P3.0; 选中小数位显示ACALL D1MSSETB P3.0MOV A,LED1MOVC A,@A+DPTRMOV P1,ASETB P1.7CLR P3.1; 选中个位数显示ACALL D1MSSETB P3.1MOV A,LED2MOVC A,@A+DPTRMOV P1,ASETB P1.7CLR P3.4; 选中十位数显示ACALL D1MSSETB P3.4MOV A,LED3MOVC A,@A+DPTRMOV P1,ASETB P1.7CLR P3.7; 选中百位数显示ACALL D1MSSETB P3.7MOV A,LED4MOVC A,@A+DPTRMOV P1,ASETB P1.7CLR P3.5; 选中千位数显示ACALL D1MSSETB P3.5RET;**************************************************************************;; 显示程序2 因电机控制引脚和显示输出引脚共用，所以在到预置数时再处理一次; ;**************************************************************************; DISPLAY0: MOV DPTR,#NUMTABMOV A,LED0MOVC A,@A+DPTRMOV P1,ACLR P1.7; 保持锁定电机CLR P3.0ACALL D1MSSETB P3.0MOV A,LED1MOVC A,@A+DPTRMOV P1,ACLR P1.7CLR P3.1ACALL D1MSSETB P3.1MOV A,LED2MOVC A,@A+DPTRMOV P1,ACLR P1.7CLR P3.4ACALL D1MSSETB P3.4MOV A,LED3MOVC A,@A+DPTRMOV P1,ACLR P1.7CLR P3.7ACALL D1MSSETB P3.7MOV A,LED4MOVC A,@A+DPTRMOV P1,ACLR P1.7CLR P3.5ACALL D1MSSETB P3.5RET;*************;; 显示灭灯程序;;*************;LEDOFF: MOV LED0,#0DH; 灭灯MOV LED1,#0DHMOV LED2,#0DHMOV LED3,#0DHMOV LED4,#0DHACALL DISPLAYLCALL DLS1RET;*******;;延时程序;;*******;D1MS: MOV R7,#2; 显示延时程序DJNZ R7,$RETDL1S: LCALL DL05S; 延时程序，用作按键时间的长短判断LCALL DL05SRETDL05S: MOV R5,#80HDL05S1: LCALL DISPLAY0DJNZ R5,DL05S1RETDLS1: SETB P1.7; 开机显示延时程序JNB P1.7,STAR; 如清零键按下跳至清零确认程序MOV R6,#50HDLS2: LCALL DL05SLCALL DISPLAY0DJNZ R6,DLS2RETDLS3: MOV R6,#40HDLS4: LCALL DL05SLCALL DISPLAY0DJNZ R6,DLS4RETSTAR: LJMP CLEARLODLED: MOV P1,#0FFH;MOV P3,#0FFHMOV LED4,#0DH;MOV LED3,#0DHMOV LED2,#0DHMOV LED1,#0DH MOV LED0,#0AH ACALL DISPLAY0 LCALL DLS3MOV LED1,#0AH MOV LED0,#0BH ACALL DISPLAY0 LCALL DLS1MOV LED2,#0AH MOV LED1,#0BH MOV LED0,#0CH ACALL DISPLAY0 LCALL DLS3MOV LED3,#0AH MOV LED2,#0BH MOV LED1,#0CH MOV LED0,#013H ACALL DISPLAY0 LCALL DLS3MOV LED4,#0AH; MOV LED3,#0BH; MOV LED2,#0CH; MOV LED1,#013H; MOV LED0,#0EH; LCALL DLS1 LCALL DLS1 MOV LED4,#2H; MOV LED3,#0H; MOV LED2,#0H; MOV LED1,#5H; MOV LED0,#3H; LCALL DLS1 LCALL DLS1MOV LED4,#0DH; MOV LED3,#0DH MOV LED2,#0DH MOV LED1,#0DH MOV LED0,#0EH ACALL DISPLAY0 LCALL DLS3MOV LED1,#0EH MOV LED0,#0FH ACALL DISPLAY0LCALL DLS3MOV LED2,#0EHMOV LED1,#0FHMOV LED0,#013HACALL DISPLAY0LCALL DLS3MOV LED3,#0EHMOV LED2,#0FHMOV LED1,#013HMOV LED0,#2HACALL DISPLAY0LCALL DLS3MOV LED4,#0EH;MOV LED3,#0FH;MOV LED2,#013H;MOV LED1,#2H;MOV LED0,#7H;LCALL DLS1LCALL DLS1LJMP CLEAR;*********;; 查表程序;;*********;NUMTAB: DB 03FH;0DB 006H;1DB 05BH;2DB 04FH;3DB 066H;4DB 06DH;5DB 07DH;6DB 007H;7DB 07FH;8DB 06FH;9DB 038H;LDB 030H;IDB 037H;NDB 000H;DB 073H;PDB 058H;cDB 050H;rDB 079H;EDB 078H;tDB 040H;-END21。