免费电子智能抢答器（单片机）

  MOV  R0,A  ;键号送显示缓冲区
  INC  R0
  DJNZ R7,L1  ;3位数值输入完否？未完继续,否则返回
  POP  ACC
  POP  PSW
  CLR  RS1
  RET
KEYSCAN:MOV  R3, #0F7H ;扫描初值（P1.3=0）
  MOV  R1, #00H ;取码指针
L3:  MOV  A, R3  ;开始扫描
  MOV  P1, A  ;将扫描值输出至P1
  MOV  A, P1  ;读入P1值,判断是否有键按下
  MOV  R4, A  ;存入R4,以判断按键是否放开
  SETB C   ;C=1
  MOV  R5, #04H ;扫描P1.4～P1.7
L4:  RLC  A   ;将按键左移一位
  JNC  KEYIN  ;判断C=0?有键按下则C=0,跳至KEYIN
  INC  R1   ;C=1,则无键按下,将取码指针值加1
  DJNZ R5, L4  ;4列扫描完毕了吗?
  MOV  A, R3  ;扫描值载入
  SETB C   ;C=1
  RRC  A   ;扫描下一行(P1.3～P1.0)
  MOV  R3, A  ;存回扫描寄存器
  JC  L3   ;C=1?是则P1.0尚未扫描到
  SJMP KEYSCAN  ;C=0,则四行已扫描完毕
KEYIN: MOV  R7, #60  ;延时消除抖动
D2:  MOV  R6, #248 ;
  DJNZ R6, $  ;
  DJNZ R7, D2  ;
D3:  MOV  A, P1   ;延时后再读入P1值
  XRL  A, R4  ;与上次读入值作比较
  JZ  D3   ;A=0,表示按键未放,等待按键释放
  MOV  A, R1  ;按键已放开,取码指针载入累加器
  MOV  DPTR,#TABLE ;键盘码表首地址送DPTR
  MOVC A, @A+DPTR ;查键码
  RET     ;返回
TABLE: DB 00H,01H,02H,03H ;键码安排表与键盘相同
  DB 04H,05H,06H,07H
  DB 08H,09H,0AH,0BH
  DB 0CH,0DH,0EH,0FH
  ORG 0200H
DISPLAY:MOV R0, #DBUF  ;串口静态显示子程序
   MOV R2,#3  ;显示3位数码
   MOV DPTR,#SEGTAB;
DISP: MOV A,@R0  ;
   MOVC A,@A+DPTR ;取字段码
   MOV SCON,#0  ;置串口工作方式0
   MOV SBUF,A  ;开始发送
   JNB TI,$  ;等待发送完毕
   CLR TI   ;发送完毕,标志位清零
   INC R0   ;缓冲单元地址增1
   DJNZ R2,DISP  ;三位数码发送完否?
   RET    ;发送完毕,则返回
SEGTAB: DB  0FCH,60H,0DAH,0F2H ;0,1,2,3（共阳极字段码表）
         DB  66H,0B6H, 0BEH,0E0H  ;4,5,6,7
         DB  0FEH,0F6H,0EEH,3EH  ;8,

首页上一页 1 2 3 4 5 下一页尾页 2/5/5

免费电子智能抢答器（单片机）(二)