按键实现加减运算及连续按键检测

*
注意:如果无法在keil里编译,请删除每一行的所有前导空白
程序效果：若按键0（即7EH）按下，则加1；若按键1（即7DH）按下，
则减1；若按键2（即7BH）按下，则快加，若按键3（77H）按下，则快减。
*/
ORG 0000H
LJMP START
ORG 0030H
START:    MOV 30H,#00  //赋初值
   MOV 31H,#00
   MOV 32H,#01
 
LOOP1:    MOV R2,#04 //循环四次
   MOV R1,#0FEH  //分别为：0FEH ?FDH ?FBH ?F7H
 
LOOP:      MOV A,R1  //赋值，用于暂存A的值
   MOV P0,A   //赋初值
   RL A    //循环左移
   XCH A,R1   //暂存A的值
   MOV A,P0   //读?P0口的值
   LCALL DELAY1  //延时

   CJNE A,#7EH,LOP1  //判断是否有按键按下
   LCALL ADD1    //有，则加1
LOP12:    MOV A,P0   //以下语句是用于判断按键是否松开
   LCALL DELAY1
   CJNE A,#7EH,LOP1
   LCALL DISPLAY
   SJMP LOP12  

LOP1:      CJNE A,#7DH,LOP2
   LCALL SUB1
LOP22:    MOV A,P0
   LCALL DELAY1
   CJNE A,#7DH,LOP2
   LCALL DISPLAY
   SJMP LOP22 
 
LOP2:      CJNE A,#7BH,LOP3  //判断快加的按键按下
   MOV R3,#10   //按下了，下面的语句用于减慢数值变化速度
LOP32:    LCALL DISPLAY
   LCALL DELAY
   DJNZ R3,LOP32
   LCALL ADD1
 
LOP3:      CJNE A,#77H,LOP4
   MOV R4,#10
LOP42:    LCALL DISPLAY
   LCALL DELAY
   DJNZ R4,LOP42
   LCALL SUB1

LOP4:      DJNZ  R2,LOOP
   LCALL DISPLAY
   LJMP LOOP1
//显示子程序   
DISPLAY: MOV DPTR,#TAB  //赋表首地址
   MOV A,#0FFH   
   MOV P1,A    //点亮最右边的数码管
   XCH A,R0   //暂存A的值
   MOV A,30H   //显示个位数
   MOVC A,@A+DPTR
   MOV P2,A
   LCALL DELAY1  //延时
   DEC R0    //减1，用于点亮下一个数码管，准备下次显示
   XCH A,R0

   MOV P1,A
   XCH A,R0
   MOV A,31H
   MOVC A,@A+DPTR
   MOV P2,A
   LCALL DELAY1
   DEC R0
   XCH A,R0

   MOV P1,A
   XCH A,R0
   MOV A,32H
   MOVC A,@A+DPTR
   MOV P2,A
   LCALL DELAY1
   RET
//加子程序
ADD1:      INC 30H  //个位加1
   MOV A,30H //把30H的值赋给A
   CJNE A,#0AH,LAP //判断个位是否加为10
   MOV 30H,#00    //是，则清零

   INC 31H
   MOV A,31H
   CJNE A,#0AH,LAP
   MOV 31H,#00

   INC 32H
   MOV A,32H
   CJNE A,#0AH,LAP
   MOV 32H,#00
LAP:         NOP   //空指令
   RET  //返回
//减子程序
SUB1:      DEC 30H  //个位减1
   MOV A,30H  //把30H的值赋给A
   CJNE A,#0FFH,LSP  //判断30H的值为0后是否在减1
   MOV 30H,#09   //是，则给30H赋9

   DEC 31H
   MOV A,31H
   CJNE A,#0FFH,LSP
   MOV 31H,#09

   DEC 32H
   MOV A,32H
   CJNE A,#0FFH,LSP
   MOV 32H,#09

LSP:         NOP
   RET
//延时子程序，时间大约为2us*20*200=8ms
DELAY:    MOV R6,#20 
DEL2:       MOV R5,#200
DEL3:       DJNZ R5,DEL3
   DJNZ R6,DEL2
   RET
//延时子程序，时间约为：2us*5*250=2.5ms
DELAY1:  MOV R6,#5
DEL4:       MOV R5,#250
DEL5:       DJNZ R5,DEL5
   DJNZ R6,DEL4
   RET
TAB: DB 3FH,06H,5BH,4FH,66H ;数码管显示的数值
      DB 6DH,7DH,07H,7FH,6FH
   END
注意:如果无法在keil里编译,请删除每一行的所有前导空白,