按键与数码管汇编例程

/*
程序效果：八个数码管同时显示，按键最后按下的八个数值
*/
   ORG 0000H
   LJMP START
   ORG 0030H
START:    MOV 30H,#00   //赋初值
   MOV 31H,#00
   MOV 32H,#00
   MOV 33H,#00
   MOV 34H,#00
   MOV 35H,#00
   MOV 36H,#00
   MOV 37H,#00
   MOV P1,#0FFH //打开最右边的数码管
   MOV P2,#00  //给P2口送0值
LOOP:     LCALL KEY  //不断扫描键盘 
   LCALL DISPLAY  //不断显示值
   LJMP  LOOP
//键盘扫描子程序
KEY:         MOV R0,#0FEH   //赋初值，用于循环，不断扫描键值
   MOV R2,#04   //总循环4次
LRP:         MOV A,R0  //暂存A的值
   MOV P0,A
   RL A    //循环左移1位
   XCH A,R0
   MOV A,P0   //读?P0口的值
   CJNE A,#7EH,LKP  //判断按键0是否按下
   MOV 40H,#3FH  //是，则将键值暂存在40h单元中
LFP:         MOV A,P0  //读?P0口的值
   CJNE A,#7EH, LKOP1 //判断按键是否松手
   LCALL DISPLAY  //按键没有松手，继续显示
   LJMP  LFP    //等待按键松手，否则继续循环
LKP:        CJNE A,#0BEH,LKP1  //以下功能同上
   MOV 40H,#66H 
LFP1:     MOV A,P0
   CJNE A,#0BEH,LKOP1
   LCALL DISPLAY
   LJMP LFP1
LKP1:      CJNE A,#0DEH,LKP2
   MOV 40H,#7FH
LFP2:       MOV A,P0
   CJNE A,#0DEH,LKOP1
   LCALL DISPLAY
   LJMP LFP2
LKP2:       CJNE A,#0EEH,LKP3
   MOV 40H,#39H
LFP3:       MOV A,P0
   CJNE A,#0EEH,LKOP1
   LCALL DISPLAY
   LJMP LFP3

LKP3:       CJNE A,#7DH,LKP4
   MOV 40H,#06H
LFP4:       MOV A,P0
   CJNE A,#7DH,LKOP1
   LCALL DISPLAY
   LJMP LFP4
LKP4:       CJNE A,#0BDH,LKP5
   MOV 40H,#06DH
LFP5:       MOV A,P0
   CJNE A,#0BDH,LKOP1
   LCALL DISPLAY
   LJMP LFP5
LKP5:      CJNE A,#0DDH,LKP6
   MOV 40H,#6FH
LFP6:       MOV A,P0
   CJNE A,#0DDH,LKOP1
   LCALL DISPLAY
   LJMP LFP6
    
LKOP1:    LJMP LKOP  //加本条语句的作用是：扩大CJNE的跳转范围

LKP6:      CJNE A,#0EDH,LKP7
   MOV 40H,#5EH
LFP7:       MOV A,P0
   CJNE A,#0EDH,LKOP1
   LCALL DISPLAY
   LJMP LFP7

LKP7:      CJNE A,#7BH,LKP8
   MOV 40H,#5BH
LFP8:       MOV A,P0
   CJNE A,#7BH,LKOP1
   LCALL DISPLAY
   LJMP LFP8
LKP8:      CJNE A,#0BBH,LKP9
   MOV 40H,#7DH
LFP9:       MOV A,P0
   CJNE A,#0BBH,LKOP
   LCALL DISPLAY
   LJMP LFP9
LKP9:      CJNE A,#0DBH,LKP10
         MOV 40H,#77H
LFP10:     MOV A,P0
   CJNE A,#0DBH,LKOP
   LCALL DISPLAY
   LJMP LFP10
LKP10:     CJNE A,#0EBH,LKP11
   MOV 40H,#79H
LFP11:     MOV A,P0
   CJNE A,#0EBH,LKOP
   LCALL DISPLAY
   LJMP LFP11

LKP11:    CJNE A,#77H,LKP12
   MOV 40H,#4FH
LFP12:   MOV A,P0
   CJNE A,#77H,LKOP
   LCALL DISPLAY
   LJMP LFP12
LKP12:    CJNE A,#0B7H,LKP13
   MOV 40H,#07H
LFP13:     MOV A,P0
   CJNE A,#0B7H,LKOP
   LCALL DISPLAY
   LJMP LFP13
LKP13:   CJNE A,#0D7H,LKP14
   MOV 40H,#7CH
LFP14:     MOV A,P0
   CJNE A,#0D7H,LKOP
   LCALL DISPLAY
   LJMP LFP14
LKP14:   CJNE A,#0E7H,LKP15
   MOV 40H,#71H
LFP15:     MOV A,P0
   CJNE A,#0E7H,LKOP
   LCALL DISPLAY
   LJMP LFP15
LKOP:    MOV 37H,36H //以下语句的作用是：在有按键按下时
   MOV 36H,35H  //所有数据左移一位,空出30H单元
   MOV 35H,34H
   MOV 34H,33H
   MOV 33H,32H
   MOV 32H,31H
   MOV 31H,30H
   MOV 30H,40H
LKP15:     DJNZ  R2,LRP1  //以下三条语句的作用是：扩大DJNZ的跳转范围
   LJMP LRP2
LRP1:      LJMP LRP
LRP2:    NOP
   RET
//显示子程序
DISPLAY: MOV R1,#0FFH 
   MOV P1,R1   //点亮最右边的数码管
   MOV P2,30H   //显示30H单元的内容
   LCALL DELAY  //延时，使数码管更加亮，但时间要适宜
   DEC R1    //准备点亮下一个数码管

   MOV P1,R1  //点亮下一个数码管
   MOV P2,31H
   LCALL DELAY
   DEC  R1

   MOV P1,R1
   MOV P2,32H
   LCALL DELAY
   DEC  R1

   MOV P1,R1
   MOV P2,33H
   LCALL DELAY
   DEC  R1

   MOV P1,R1
   MOV P2,34H
   LCALL DELAY
   DEC  R1

   MOV P1,R1
   MOV P2,35H
   LCALL DELAY
   DEC  R1

   MOV P1,R1
   MOV P2,36H
   LCALL DELAY
   DEC  R1

   MOV P1,R1
   MOV P2,37H
   LCALL DELAY
   RET
//延时时间约为：2us*250=15ms
DELAY:    MOV R6,#250
DEL1:    DJNZ R6,DEL1
   RET
   END