模拟计算器十进制整数输入及显示课程设计

模拟计算器十进制整数输入及显示课程设计百度文库搜索“模拟计算器数字输入及显示课程设计”并将程序清单中的程序改成以下程序：ORG 0000HLJMP STARTORG 0030HSTART:MOV 30H,#00HMOV 38H,#00HMOV 39H,#00HMOV 3AH,#00HMOV 3BH,#00HMOV 3CH,#00HMOV 3DH,#00HMOV 3EH,#00HMOV 3FH,#00HMOV 40H,#00HMOV 41H,#00HMOV 42H,#00HMOV 43H,#00HMOV 44H,#00HMOV 50H,#0E0HMOV 51H,#0D0HMOV 52H,#0B0HMOV 53H,#70HLOOP3: ACALL DISPLAYMOV R0,#50HMOV R7,#04HLOOP1:MOV A,@R0MOV P3,AMOV A,#0FFHMOV P1,AMOV A,P1ANL A,#0FHMOV R5,ACJNE A,#0FH,LOOP2INC R0DJNZ R7,LOOP1JMP LOOP3LOOP2:MOV R4,#0A0HTFF:ACALL DELAY1mSDJNZ R4,TFFSS: MOV A,#0FFHMOV P1,AMOV A,P1ANL A,#0FHCJNE A,#0FH,SSMOV A,42HCJNE A,#01H,NEXT1MOV 40H,#00HMOV 42H,#00HNEXT1: CJNE @R0,#0E0H,ROW2KEYMOV A,R5ORL A,@R0CJNE A,#0EEH,KEY2MOV A,40HCJNE A,#08H,TW1ACALL WARNNINGJMP LOOP3TW1:INC 40HMOV A,#07HMOV 43H,AACALL MOVEACALL CHANGE11JMP LOOP3KEY2:CJNE A,#0EDH,KEY3MOV A,40HCJNE A,#08H,TW2ACALL WARNNINGJMP LOOP3TW2: INC 40HMOV A,#08HMOV 43H,AACALL MOVEACALL CHANGE11JMP LOOP3KEY3:CJNE A,#0EBH,KEY4MOV A,40HCJNE A,#08H,TW3ACALL WARNNINGJMP LOOP3TW3:MOV A,#09HINC 40HMOV 43H,AACALL MOVEACALL CHANGE11JMP LOOP3KEY4:ACALL JUDEGACALL CHANGEMOV 42H,#01HMOV 41H,#04HJMP LOOP3ROW2KEY:CJNE @R0,#0D0H,ROW3KEYMOV A,R5ORL A,@R0CJNE A,#0DEH,KEY5MOV A,40HCJNE A,#08H,TW4ACALL WARNNINGJMP LOOP3TW4:INC 40HMOV A,#04HMOV 43H,AACALL MOVEACALL CHANGE11JMP LOOP3KEY5:CJNE A,#0DDH,KEY6MOV A,40HCJNE A,#08H,TW5ACALL WARNNINGJMP LOOP3TW5:MOV A,#05HINC 40HMOV 43H,AACALL MOVEACALL CHANGE11JMP LOOP3KEY6:CJNE A,#0DBH,KEY7MOV A,40HCJNE A,#08H,TW6ACALL WARNNINGJMP LOOP3TW6:MOV A,#06HINC 40HMOV 43H,AACALL MOVEACALL CHANGE11JMP LOOP3KEY7:ACALL JUDEGACALL CHANGEMOV 42H,#01HMOV 41H,#03HJMP LOOP3ROW3KEY:CJNE @R0,#0B0H,ROW4KEYMOV A,R5ORL A,@R0CJNE A,#0BEH,KEY8MOV A,40HCJNE A,#08H,TW7ACALL WARNNINGJMP LOOP3TW7:MOV A,#01HINC 40HMOV 43H,AACALL MOVEACALL CHANGE11JMP LOOP3KEY8:CJNE A,#0BDH,KEY9MOV A,40HCJNE A,#08H,TW8ACALL WARNNINGJMP LOOP3TW8:MOV A,#02HINC 40HMOV 43H,AACALL MOVEACALL CHANGE11JMP LOOP3KEY9:CJNE A,#0BBH,KEY10MOV A,40HCJNE A,#08H,TW9ACALL WARNNINGJMP LOOP3TW9: MOV A,#03HINC 40HMOV 43H,AACALL MOVEACALL CHANGE11JMP LOOP3KEY10:ACALL JUDEGACALL CHANGEMOV 42H,#01HMOV 41H,#02HJMP LOOP3ROW4KEY:MOV A,R5ORL A,@R0CJNE A,#7EH,KEY11JMP STARTKEY11:CJNE A,#7DH,KEY12MOV A,40HJZ QQCJNE A,#08H,TW10ACALL WARNNINGJMP LOOP3TW10:MOV A,#00HINC 40HMOV 43H,AACALL MOVEACALL CHANGE11QQ: MOV A,#00HINC 40HMOV 43H,AACALL MOVEACALL CHANGE11JMP LOOP3KEY12:CJNE A,#07BH,KEY13ACALL JUDEGACALL CHANGEMOV 41H,#00HMOV 42H,#01HMOV 3CH,#00HMOV 3DH,#00HJMP LOOP3KEY13:ACALL JUDEGACALL CHANGEMOV 42H,#01HMOV 41H,#01HJMP LOOP3 MOVE:MOV R1,#30HMOV R6,40H DDD: XCH A,@R1NOPNOPNOPNOPINC R1DJNZ R6,DDDRETMAKEADD:MOV A,R0MOV R2,AMOV A,R3MOV R7,ACLR CLOP:MOV A,@R0ADDC A,@R1MOV @R0,AINC R0INC R1DJNZ R7,LOPJNC NEXTINC R3MOV @R0,#01HNEXT:MOV A,R2MOV R0,ARET MAKESUB:CLR 07HMOV A,R0MOV R2,AMOV A,R3MOV R7,ACLR CLOP1:MOV A,@R0SUBB A,@R1 MOV @R0,AINC R0INC R1DJNZ R7,LOP1JNC LOP2SETB 07HLOP2:MOV A,R2MOV R0,ARET MAKEMUL:MOV A,R3MOV B,R7MUL ABXCH A,R7MOV R5,BMOV B,R2MUL ABADD A,R5MOV R4,ACLR AADDC A,BMOV R5,AMOV A,R6MOV B,R3MUL ABADD A,R4XCH A,R6XCH A,BADDC A,R5MOV R5,AMOV F0,CMOV A,R2MUL ABADD A,R5MOV R5,ACLR AMOV ACC.0,CMOV C,F0ADDC A,BMOV R4,ARET MAKEDIV:MOV A,R5CLR CSUBB A,R3MOV A,R4SUBB A,R2JNC DIV11MOV B,#16 DIV22:CLR CMOV A,R7 RLC AMOV R7,AMOV A,R6RLC AMOV R6,AMOV A,R5RLC AMOV R5,AXCH A,R4RLC AXCH A,R4MOV F0,CCLR CSUBB A,R3MOV R1,AMOV A,R4SUBB A,R2JB F0,DIV33JC DIV44DIV33:MOV R4,AMOV A,R1MOV R5,AINC R7DIV44:DJNZ B,DIV22CLR F0RETDIV11:SETB F0RETCHANGE11:MOV R0,#40HCJNE @R0,#01H,TA1MOV 38H,43HJMP TA2TA1:MOV R3,38HMOV R2,39HMOV R6,#00HMOV R7,#0AHACALL MAKEMULMOV 39H,R6MOV 38H,R7MOV 3AH,R5MOV 3BH,R4MOV R0,#38HMOV R1,#43HMOV R3,#02HACALL MAKEADD TA2: RETCHANGE:MOV 40H,#00HMOV R0,#30HMOV R7,3CHMOV R6,3DHTD1: MOV R5,#00HMOV R4,#00HMOV R2,#00HMOV R3,#0AHINC 40HACALL MAKEDIVMOV A,R5INC R0MOV A,R6CJNE A,#00H,TD1MOV A,R7CJNE A,#00H,TD1RETJUDEG:MOV A,3AHJZ JUD1ACALL ERRORLJMP LOOP3JUD1:MOV R1,#38HMOV A,41HCJNE A,#00H,TBMOV 3CH,@R1INC R1MOV 3DH,@R1JMP TBBTB: CJNE A,#01H,TB1MOV R0,#3CHMOV R3,#02HACALL MAKEADDMOV A,R3CJNE A,#03H,JUD2ACALL ERRORLJMP LOOP3JUD2:JMP TBBTB1:CJNE A,#02H,TB2MOV R0,#3CHMOV R3,#02HACALL MAKESUBJNB 07H,JUD4ACALL ERRORLJMP LOOP3 JUD4:JMP TBBTB2:CJNE A,#03H,TB3MOV R3,3CHMOV R2,3DHMOV R6,39HMOV R7,38HACALL MAKEMULMOV 3DH,R6MOV 3CH,R7MOV 3EH,R5MOV A,R5JZ JUD3ACALL ERRORLJMP LOOP3JUD3: JMP TBBTB3:MOV R7,3CHMOV R6,3DHMOV R5,#00HMOV R4,#00HMOV R2,39HMOV R3,38HACALL MAKEDIVMOV 3CH,R7MOV 3DH,R6JNB F0,TBBACALL ERRORLJMP LOOP3TBB:MOV 38H,#00HMOV 39H,#00HMOV 3AH,#00HMOV 3BH,#00HRET WARNNING: CLR P3.0SETB P3.0MOV R4,#0FFHTFg:ACALL DELAY1mSDJNZ R4,TFgRETERROR:MOV R0,#30HMOV A,#0AHMOV R5,#08HMOV 40H,#08H ET: MOV @R0,AINC R0INC ADJNZ R5,ETRETDISPLAY:MOV DPTR,#TABLE1MOV R0,#30HMOV R1,#80HMOV R5,40HNEXTF:MOV P2,R1MOV A,@R0MOVC A,@A+DPTRMOV P0,AACALL DELAY1mSMOV A,P2RR AMOV R1,AINC R0MOV A,R5JZ AADJNZ R5,NEXTFAA: RETDELAY1mS:MOV R7,#02HDL: MOV R6,#0FFHDL6:DJNZ R6,DL6DJNZ R7,DLRETTABLE1: DB 0C0H, 0F9H, 0A4H, 0B0H, 99HDB 92H, 82H, 0F8H, 80H, 90HDB 0CEH,0C0H,0CEH,0CEH,86H,0FFH,0FFH,0FFH END。