1、以下为按键扫描子程序,程序返回后,在变量H和L中存放当前按键的行列号 KEY PROC CHECK: CALL DISP ;等待按键按下的同时进行显示 MOV AL,0F0H ;所有行输出低电平 OUT 44H,AL IN AL,40H CMP AL,0FFH ;读列值 JZ CHECK ;若都为高电平则无键按下,等待 MOV CX,50 LOOP $ ;延时消抖 IN AL,DX ;重读列值 CMP AL,0FFH无键按下一直等待 MOV H,0 ;有键按下,先把行列号变量清0 MOV L,0 MOV BL,01H MOV BH,0FEH ;扫描法读键值:从第一行开始测试,即PC0输出低电平
2、 NEXT: MOV AL,BH NEXTH: IN AL,40H ;读列值,判断是第几列有键按下 TEST AL,BL ;从第一列开始判断 JZ WAIT0 ROL BL,1 CMP BL,10H ;当前行状态下没有任何列有键按下,则转为对下一行的测试 JZ NEXTL INC H ;每判断一列,列号加1 JMP NEXTH ;再对下一列进行判断 NEXTL: MOV H,0 ROL BH,1 ;对下一行测试,让下一个PC口输出低电平 CMP BH,0EFH JZ EXIT INC L JMP NEXT WAIT0:若有键按下,则等该按键松开后再计算键值 JNZ WAIT0 CALL KEY
3、VALUE ;调计算键值子程序 EXIT: RET KEY ENDP以下为计算键值子程序,通过行列号计算键值(键值=列号*4+行号)键值存放在DL寄存器中 KEYVALUE PROC MOV DL,L MOV DH,H SHL DL,1 SHL DL,1 ;列号乘4 ADD DL,DH CMP DL,0 JZ NUM_CALL ;按下的是数字键 CMP DL,1 CMP DL,2 CMP DL,4 CMP DL,5 CMP DL,6 CMP DL,8 CMP DL,9 CMP DL,10 CMP DL,13 CMP DL,3 JZ CONT_CALL ;按下的是运算键 CMP DL,7 CMP
4、 DL,11 CMP DL,15 CMP DL,14 JZ OUTP_CALL ;按下的是等于键 CMP DL,12 JZ CLR_CALL ;按下的是清除键 NUM_CALL: CALL NUMBER ;调数字键处理子程序 JMP EXIT1 CONT_CALL: MOV S,DL ;存放运算键的键值 MOV E,0 CALL COUNT ;调运算键处理子程序,计算第一个加数 OUTP_CALL: CALL OUTP ;调等号键处理子程序 CLR_CALL: CALL CLEAR ;调清除键处理子程序 EXIT1: KEYVALUE ENDP以下为清除键处理子程序,按下清除键后,X变量全部清
5、0 CLEAR PROC MOV X3,0 MOV X2,0 MOV X1,0 MOV X0,0 CALL BITP CLEAR ENDP以下为等号键处理子程序,该子程序负责将第二个运算数据的数值计算出来存入X2变量并根据运算符号,调用相应的运算子程序 OUTP PROC PUSH AX PUSH DX PUSH BX INC E调运算键处理子程序,计算第二个运算数据 CMP S,15 JZ ADD_CALL ;运算符为加号,则调用加法子程序 CMP S,11 JZ SUB_CALL ;运算符为减号,则调用减法子程序 CMP S,7 JZ MUL_CALL ;运算符为乘号,则调用乘法子程序 C
6、MP S,3 CALL DIVP ;运算符为除号,则调用除法子程序 JMP STORE1 ADD_CALL: CALL ADDP SUB_CALL: CALL SUBP MUL_CALL: CALL MULP STORE1: MOV AX,Y ;以下程序将各运算子程序返回的运算结果,按位分解,送入X变量 MOV DX,0 MOV BX,1000 DIV BX MOV X0, AL MOV AX,DX MOV BL,100 DIV BL MOV X1,AL MOV AL,AH MOV AH,0 MOV BL,10 MOV X2,AL MOV X3,AH POP BX POP DX POP AX
7、OUTP ENDP以下为运算键处理子程序,该程序将第一个运算数据的数值计算出来并存入X1变量或者将第二个运算数据的数值计算出来并存入X2变量将运算符的值存入S变量 COUNT PROC CALL BITP ;测试X中的数据是多少位 CMP CC,4 ;输入的数据是4位数 ? JZ C4 CMP CC,3 ;输入的数据是3位数 ? JZ C3 CMP CC,2 ;输入的数据是2位数 ? JZ C2 JMP C1 ;输入的数据是1位数 ? C4: MOV AX,0 MOV AL,X0 MUL BX MOV DX,AX C3: MOV AL,X1 MUL BL ADD DX,AX C2: MOV A
8、L,X2 C1: MOV AL,X3 CMP E,1 JNZ X1_S MOV X2,DX ;按下的是等号,则将第二个运算数据的值存入X2变量 JMP EXIT3 X1_S: MOV X1,DX ;按下的是运算符号,则将第一个运算数据的值存X1变量 MOV X3,0 ;清空X变量 EXIT3: COUNT ENDP以下为数字键处理子程序该程序,将输入的数据按位存放在X变量中,并由CC记录数据的位数 NUMBER PROC CMP DL,8JZ K1 CMP DL,9JZ K2CMP DL,10JZ K3CMP DL,4JZ K4CMP DL,5JZ K5CMP DL,6JZ K6CMP DL,
9、0JZ K7CMP DL,1JZ K8CMP DL,2JZ K9CMP DL,13JZ K0K1: MOV DL,1 JMP N1K2: MOV DL,2K3: MOV DL,3K4: MOV DL,4K5: MOV DL,5K6: MOV DL,6K7: MOV DL,7K8: MOV DL,8K9: MOV DL,9K0: MOV DL,0 N1: JNZ CONTINUE CALL CLEAR CONTINUE: CMP CC,0 ;目前数据为0位,即没有数据,则转到SSS JZ SSS若已有数据,以下程序将X左移8位。例如:先输入“1”,当再输入2时,先要将“1”从个位移到十位,然后再
10、将“2”存放到个位 MOV AH,X2 MOV DL,X1 MOV DH,X0 MOV CX,8 LL: SHL AX, 1 RCL DX,1 LOOP LL MOV X3,AL MOV X2,AH MOV X1,DL MOV X0,DH SSS: MOV DI,DL INC CC ;数据位数加1判断数据位数 JNG EXIT2 MOV CC,0 ;如果数据超过4位,重新从最低位开始存放 EXIT2:调显示子程序,显示输入的数据 NUMBER ENDP加法子程序 ADDP PROC MOV AX,X1 ADD AX,X2 MOV Y,AX ADDP ENDP减法子程序 SUBP PROC SU
11、B AX,X2 SUBP ENDP乘法子程序 MULP PROC MOV DX,X2 MUL DX MULP ENDP除法子程序 DIVP PROC MOV BX,X2 DIVP ENDP显示子程序 ,将X中的数值按位显示出来 DISP PROC MOV BH,0 LEA SI,DISCODE测试X位数 CMP CC,4 JZ QIAN CMP CC,3 JZ BAI CMP CC,2 JZ SHI CMP CC,1 JMP G JMP NONE QIAN: MOV AH,11100000B ;从第4位开始显示 MOV BL,X0 MOV AL,SI+BX OUT 42H,AL CALL DE
12、LY MOV AL,0 BAI: MOV AH,11010000B ;从第3位开始显示 MOV BL,X1 SHI: MOV AH,10110000B ;从第2位开始显示 MOV BL,X2 G: MOV AH,01110000B ;从第1位开始显示 MOV BL,X3 JMP EXIT4 NONE: MOV AL,0 ;X中没有数据,不显示 EXIT4: DISP ENDP分析数据位数子程序 BITP PROC CMP X0,0 ;如果X0不为0,则数据为4位数 JNZ FOURBIT CMP X1,0 ;如果X1不为0,则数据为3位数 JNZ THREEBIT CMP X2,0 ;如果X2不为0,则数据为2位数 JNZ TOWBIT CMP X3,0 ;如果X3不为0,则数据为1位数 JNZ ONEBIT JMP ZER0BIT ;否则,没有数据 FOURBIT: MOV CC,4 JMP EXIT5 THREEBIT: MOV CC,3 TOWBIT: MOV CC,2 ONEBIT: MOV CC,1 ZER0BIT: MOV CC,0 EXIT5: BITP ENDP延时子程序 DELY PROC PUSH CX MOV CX,100 LOOP $ POP CX DELY ENDP CODE ENDS END START (注:可编辑下载,若有不当之处,请指正,谢谢!)
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1