键盘--(微机原理实验五）

DATAS SEGMENT
      TAB DB 0C0H,0F9H,0A4H,0B0H,99H
          DB 92H,82H,0F8H,80H,90H
          DB 88H,83H,0C6H,0A1H,86H,8EH  

DATAS ENDS

STACKS SEGMENT
    ;此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
         MOV  AX,DATAS
         MOV  DS,AX
KEYSCAN: MOV  AL,10000001B;8255A的方式选择控制字为81H
         MOV  DX,36H;控制端口为36H
         OUT  DX,AL;8255A方式选择控制字写入控制端口
 
  WAIT1: MOV  AL,00001111B;让列全为0，行为1
         MOV  DX,34H;PC口地址为34H
         OUT  DX,AL;把行和列的状态送到C端口
         IN   AL,DX;读行线的状态
         AND  AL,00001111B
         CMP  AL,0FH
         JZ   KEYEND;若相等（行全为1），则无键按下，使用WAIT时要等待按键按下         
  
         MOV  CL,0EFH;(11101111B,扫描初值）
         MOV  CH,0;0列
     LP1:MOV  DX,34H
         MOV  AL,CL
         OUT  DX,AL
         IN   AL,DX
         TEST AL,00000001B;
         JNZ  LONE;表示0行没有按下，则跳转到下一行
         MOV  AL,00H;行首值
         JMP  KEYJS;无条件跳转到计算键值
   LONE: TEST AL,00000010B
         JNZ  LTWO
         MOV  AL,04H;行首值
         JMP  KEYJS
   LTWO: TEST AL,00000100B
         JNZ  LTHR
         MOV  AL,08H;行首值
         JMP  KEYJS
   LTHR: TEST AL,00001000B
         JNZ  NEXT;若最后一行都扫描完了，没有键按下，则跳转到下一列
         MOV  AL,0CH;行首值
         JMP  KEYJS
  KEYJS: ADD  AL,CH;计算键值
         LEA  BX,TAB
         XLAT;（换码指令，把数据段中偏移地址为BX+AL的内存单元的内容送到AL中）无规则的数据放到表格中可以有序输出
         MOV  DX,30H;将键值送到PA口显示输出
         OUT  DX,AL
         
         MOV  DX,34H
         MOV  AL,0FH
         OUT  DX ,AL
  WAIT2: IN   AL,DX
         AND  AL,0FH
         CMP  AL,0FH
         JNZ  WAIT2;JNZ表示有键按下
 KEYEND: JMP  KEYSCAN;RET
   NEXT: INC  CH;列加1
         ROL  CL,1;修改扫描值
         CMP  CL,0FEH
         JZ   KEYEND
         JMP  LP1   
        
    MOV AH,4CH
    INT 21H
CODES ENDS
    END START