按键识别和数码管显示 8255芯片
BEGIN: CALL DIS
CALL CLEAR CALL CCSCAN JNZ INK1 JMP BEGIN
;调用显示子程序 ;清屏
;扫描
INK1: CALL DIS CALL DALLY CALL DALLY CALL CLEAR
CALL CCSCAN JNZ INK2 JMP BEGIN
;有键按下，转到INK2
INK2: MOV CH,0FEH
MOV CL,00H
COLUM: MOV AL,CH MOV DX,MY8255_A
OUT DX,AL
MOV DX,MY8255_C
IN AL,DX
L1: TEST AL,01H ;is L1? JNZ L2
MOV AL,00H ;L1
JMP KCODE
L2: TEST AL,02H ;is L2? JNZ L3
MOV AL,04H ;L2 JMP KCODE
L3: TEST AL,04H ;is L3? JNZ L4