【正文】 A,00H LKEYP: ADD A,R1 。判斷按鍵是否一直持 續(xù) ACALL KEY1 JNZ LKEY3 POP ACC MOV R3,A 。按鍵子程序返回 17 NEXT: INC R1 。掃描完最后一根列線則返回 RL A MOV R2,A AJMP LKEY4 KND: AJMP MLOOP DELAY10MS: 。PCOM 初始化 MOV A,81H MOVX DPTR,A MOV DPTR,0D1FFH 。初始化 PB MOV A,0FFH 18 MOVX DPTR,A MOV DPTR,0D5FFH 。顯示一位八段管 MOV A,30H MOV DPTR,PBPORT 。輸出到段控 LJMP ALOOP */ MLOOP: LCALL DISPLAYLED 。 有鍵入？ JZ MLOOP 。讀入鍵碼 JISUAN: MOV R3,A CJNE R3,0FH,QU 。清零 MOV R4,00H MOV R5,00H MOV BIAOZHI1 ,00H MOV BIAOZHI2,00H MOV BIAOZHI3,00H MOV DATA21,00H MOV DATA23,00H MOV DATA11,00H 19 MOV DATA12,00H MOV DIZHI1,00H MOV DIZHI2,00H MOV DATA13,00H MOV DATA22,00H MOV DATA111,00H MOV DATA222,00H MOV LEDBUF+0,03FH MOV LEDBUF+1,03FH MOV LEDBUF+2,03FH LJMP MLOOP QU: CLR C CJNE R3,0AH,FOLLOW 。R310,說明是數字鍵 LJMP GN SHUZI: MOV A,R4 。有就將數值存在 DATA2 MOV A,BIAOZHI1 CJNE A,00H , DA11 INC BIAOZHI1 MOV A,R3 MOV DATA11,A LJMP LJ11 DA11: MOV A,BIAOZHI1 CJNE A,01H ,DA12 INC BIAOZHI1 MOV A, R3 MOV DATA12,A LJMP LJ12 20 DA12: MOV A,BIAOZHI1 CJNE A,02H ,D111 INC BIAOZHI1 MOV A,R3 MOV DATA13,A LJMP LJ13 LJ11: MOV DATA111 ,A LJMP D111 LJ12: MOV A,DATA11 MOV B,10 MUL AB ADD A,DATA12 MOV DATA111 ,A LJMP D111 LJ13: MOV A,DATA11 MOV B,100 MUL AB MOV DATA111 ,A MOV A,DATA12 MOV B,10 MUL AB ADD A,DATA111 ADD A,DATA13 MOV DATA111,A D111: MOV A ,DATA111 LJMP XS 。顯示第二次輸入的數值 GN: MOV R4,01H 。判斷鍵值是否為 =? MOV R4, 00h 。執(zhí)行 = MOV DPH,A MOV A,DIZHI2 MOV DPL,A MOV A,00H JMP A+DPTR 。若鍵值為 +則將 +的程序首地址 MOV DPTR,JIA 。若鍵值為 則將 的程序首地址存 MOV DPTR, JIAN 。若鍵值為 *則將 *的程序首地址存在 MOV DPTR,CHENG 。若鍵值為 /則將 /的程序首地址存在 MOV DPTR , CHU 。加法程序 ADD A, DATA222 MOV DATA111,A 24 MOV BIAOZHI2 ,00H LJMP XS JIAN: MOV A, DATA111 。乘法程序 MOV B, DATA222 MUL AB MOV DATA111,A MOV BIAOZHI2 ,00H LJMP XS CHU: MOV A, DATA111 。顯示個位數字 DIV AB MOV R5,A MOV A, B MOV DPTR,LEDMAP 25 MOVC A, A+DPTR MOV LEDBUF+2,A MOV A, R5 FRIST: CJNE A,0,NEXT1 LJMP MLOOP NEXT1: MOV B,10 DIV AB MOV R5,A MOV A,B MOV DPTR, LEDMAP MOVC A, A+DPTR MOV LEDBUF+1, A MOV A,R5 FRIST2: CJNE A,0,NEXT2 LJMP MLOOP NEXT2: MOV B,10 DIV AB MOV R5,A MOV A,B MOV DPTR, LEDMAP MOVC A, A+DPTR MOV LEDBUF+0, A MOV A,R5 LJMP FRIST END 26 附錄二