实验9、键盘扫描及数码管显示实验
实验内容
基础部分：
1、编写程序，实现如下功能：初始时数码管无显示；第一次按下键盘时，在最右侧数码管对应的十六进制数字；以后每次按下键盘，则将当前显示的数字全部向左移动一位（最左侧的数字移出数码管），并将刚刚键入的数字显示在数码管的最右侧。
拓展部分：
2、编写程序，将按键所对应的数字（0~E）按要求显示在指定的数码管上：
- 初始时，6位LED数码管上无显示；
- 第一次键入的数字显示在最右端的数码管上；之后每次键入新数字，其显示位置向左移动一位；（只显示最后键入的数字）
- 若当前显示的数字已处于数码管的最左端，此时再键入数字，则将其显示在最左端的数码管上；之后键入数字的显示位置逐次向右移动；
- 如此往复，直至按下数字键F，程序退出。
代码
1
A8255_A EQU 0600H
A8255_B EQU 0602H
A8255_C EQU 0604H
A8255_CON EQU 0606H
ROWOUT EQU 200H
DATA SEGMENT
TABLE DB 11101110B
DB 11101101B
DB 11101011B
DB 11100111B
DB 11011110B
DB 11011101B
DB 11011011B
DB 11010111B
DB 10111110B
DB 10111101B
DB 10111011B
DB 10110111B
DB 01111110B
DB 01111101B
DB 01111011B
DB 01110111B
VALUE DB 3FH ;0
DB 06H ;1
DB 5BH ;2
DB 4FH ;3
DB 66H ;4
DB 6DH ;5
DB 7DH ;6
DB 07H ;7
DB 7FH ;8
DB 6FH ;9
DB 77H ;A
DB 7CH ;B
DB 39H ;C
DB 5EH ;D
DB 79H ;E
DB 71H ;F
TEMP DB 0H
POS1 DB 0H
POS2 DB 0H
DATA ENDS
CODE SEGMENT
ASSUME CODE:CS,DS:DATA
KEY PROC FAR ;段间远调用
START:
PUSH DS ;保存DS
MOV AX,0 ;AX清0
PUSH AX ;保存AX
MOV AX,DATA
MOV DS,AX
MOV DX,A8255_CON
MOV AL,80H
OUT DX,AL ;设置8255的工作方式
MOV DX,A8255_B
MOV AL,00H
OUT DX,AL ;开放所有端口
MOV DX,A8255_A
MOV AL,00H
OUT DX,AL ;让所有灯熄灭
X1: MOV DX,ROWOUT ;设置行输出端口
MOV AL,00H
OUT DX,AL ;行输出0000，准备检查是否有任何键按下
INC DX ;设置列输入端口地址ROWOUT+1
IN AL,DX ;输入线状态
AND AL,0FH ;析取D3~D0列信号线
CMP AL,0FH
JZ X1 ;没有任何键按下，继续查询
CALL D20ms ;有键按下，延时消抖
MOV DX,ROWOUT
MOV AL,00H
OUT DX,AL ;消抖后确定是否有任何键按下
INC DX
IN AL,DX ;读入列线状态
AND AL,0FH ;析取D3~D0列信号线
CMP AL,0FH
JZ X1 ;此时，说明延时消抖前的按键判断是源于干扰
;或者，延时消抖时间不足，重新查询
MOV AH,11111110B ;设置行扫描初值，首先扫描第0行
MOV CX,4 ;设置行扫描初值，共4行
X2: MOV DX,ROWOUT ;设置行输出端口地址
MOV AL,AH ;传递行扫描值
OUT DX,AL ;行扫描值输出,准备检查在哪一列
INC DX
IN AL,DX
AND AL,0FH
CMP AL,0FH
JNZ X3 ;找到按键所在的列号，转X3
ROL AH,1
LOOP X2
MOV AX,80H ;4行全部扫描完，却未发现有键安喜爱（可
;能出现了干扰），以80H作为这种情况的标志
;该指令的设置，主要考虑到程序的完备性，
;即可以使程序在任何情况下都能正确执行
JMP XEND
X3: MOV CL,4
SHL AH,CL ;AH逻辑左移4位，将低4位的行号移到高4位
OR AL,AH ;行号与列号'或',形成键的位置码
LEA BX,TABLE ;设置TABLE位置码表的指针
MOV CL,0 ;设置键号初值为0
X4: CMP AL,[BX] ;在TABLE中查找本次形成的键位置码
JZ X5 ;找到则转X5,对应键号就在CL中
INC CL
INC BX
CMP CL,10H
JNZ X4
MOV AH,0FFH ;CL等于10H，说明在TABLE表中没有找到
;对应的键位置吗，其原因可能是出现了重建
;的情况，以0FFH作为这种情况的标志
JMP XEND
X5: MOV AH,CL ;将CL中保存的键号传到AH中
CALL LMOVESHOW
CALL RESET
MOV DX,A8255_A
MOV AL,11011111B
OUT DX,AL
MOV DX,A8255_B
MOV AL,AH
OUT DX,AL
JMP X1
LMOVESHOW: ;将数码管上每个显示灯上的段码移到其左边的显示灯上
PUSH AX
PUSH CX
MOV CX,5
MOV POS1,11111101B ;将显示灯位码放入POS1中
MOV POS2,11111110B ;将上面显示灯左边的位码放入POS2中
X7: CALL RESET
MOV DX,A8255_A
MOV AL,POS1
OUT DX,AL ;选中位码为POS1的显示灯
MOV DX,A8255_B
PUSH AX
IN AL,DX ;读取其段码到TEMP中
MOV TEMP,AL
POP AX
MOV DX,A8255_A
MOV AL,POS2
OUT DX,AL ;选中位码为POS2的显示灯
MOV DX,A8255_B
MOV AL,TEMP
OUT DX,AL ;将POS1处的段码送入POS2处
ROL POS1,1 ;POS1,POS2均循环左移1位
ROL POS2,1
LOOP X7
POP CX
POP AX
RET
RESET: ;保持显示灯状态
PUSH AX
PUSH DX
MOV DX,A8255_A
MOV AL,00H
OUT DX,AL
POP DX
POP AX
RET
XEND:
NOP
RET
D20ms:
PUSH CX
MOV CX,0FH
X: LOOP X
POP CX
RET
KEY ENDP
CODE ENDS
END START
2
A8255 EQU 0600H ;选择数字
B8255 EQU 0602H ;B: 段码
C8255 EQU 0604H
CON8255 EQU 0606H
DATA SEGMENT
TABLELED : ;段码表
DB 3FH ;0的段码
DB 06H
DB 5BH
DB 4FH
DB 66H
DB 6DH
DB 7DH
DB 07H
DB 7FH
DB 6FH ;9的段码
DB 77H
DB 7CH
DB 39H
DB 5EH
DB 79H
DB 71H
TABLEKEY: ;位码表
DB 11101110B ;键码，前四位表示列，后四位表示行，0表示被按下的键的位置
DB 11011110B;1
DB 10111110B;2
DB 01111110B;3
DB 11101101B;4
DB 11011101B;5
DB 10111101B;6
DB 01111101B;7
DB 11101011B;8
DB 11011011B;9
DB 10111011B
DB 01111011B
DB 11100111B
DB 11010111B
DB 10110111B
DB 01110111B;F
TABLEWEI: ;移动的位置
DB 11011111B
DB 11101111B
DB 11110111B
DB 11111011B
DB 11111101B
DB 11111110B
DB 11111110B
DB 11111101B
DB 11111011B
DB 11110111B
DB 11101111B
DUAN DB 00H;要显示的段码
WEI DB 10111111B;要显示的位码
TURN DB 00H
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV AL,81H ;控制字A口输出，B口输出，C口低四位输入
MOV DX,CON8255
OUT DX,AL ;初始化
X1:
CALL SHOW ;显示
CALL SCAN ;扫描是否有键按下
JZ X1 ;没有任何键按下，继续查询
CALL DELAY20;延迟消抖
CALL SCAN
JZ X1
;消除抖动？？
CALL CHECK
CMP AH,0FH
JZ XEND;按下F，程序终止
LEA SI,TABLELED
MOV AL,AH ;键值
MOV AH,0
MOV BX,AX
MOV AH,[SI+BX] ;键值对应的段码
MOV DUAN,AH;存段码
;操作位码
LEA SI,TABLEWEI
MOV BL,TURN
;AND BX,00FFH
MOV BH,00H
MOV AH,[SI+BX]
MOV WEI,AH
INC TURN
CMP TURN,0BH
JZ X6
JMP X7
X6:
MOV TURN,00H
X7:
CALL SHOW
CALL SCAN
JNZ X7
JMP X1
;检查哪个键被按下
CHECK:
MOV AH,11111110B
MOV CX,4
X2:
MOV DX,A8255 ;输入，A port stands for row
MOV AL,AH
OUT DX,AL
MOV DX,C8255
IN AL,DX
AND AL,0FH
CMP AL,0FH ;比较指令，如果低四位都是1111的话代表没有输入，继续循环
JNZ X3
ROL AH,1 ;左移一位
LOOP X2
MOV AH,80H
JMP XEND
X3:
MOV CL,4 ;输入
SHL AH,CL ;将AH左移四位
OR AL,AH ;al contribute low digits,ah high digits
LEA BX,TABLEKEY ;BX代表的是键位的起始位置
MOV CL,0 ;offset for correct position
X4:
CMP AL,[BX]
JZ X5
INC CL
INC BX
CMP CL,10H
JNZ X4
MOV AH,0FFH
JMP XEND
X5:
MOV AH,CL;AH保存键值
RET
XEND:
MOV AH,4CH
INT 21H
SHOW:
PUSH AX
MOV DX,A8255
MOV AL,WEI
OUT DX,AL;位码
MOV DX,B8255
MOV AL,DUAN
OUT DX,AL;段码
CALL DELAY
POP AX
RET
;检查是否有键按下
SCAN:
MOV DX,B8255
MOV AL,00H
OUT DX,AL;清空显示缓冲
MOV DX,A8255
MOV AL,00H ;选择所有位，所以要清除显示缓冲
OUT DX,AL
MOV DX,C8255
IN AL,DX
AND AL,0FH
CMP AL,0FH
RET
DELAY:
PUSH CX
MOV CX,0300H
LL:
LOOP LL
POP CX
RET
DELAY20:
PUSH CX
MOV CX,0100H
T1:
MOV AX,009FH
T2:
DEC AX
JNZ T2
LOOP T1
POP CX
RET
CODE ENDS
END START