程序设计改版.doc

ORG 0000H LJMP KEY ORG 0030HKEY: MOV P2,#0FFH ；置P0口为输入 MOV A,P2 CPL A ANL A,#0F0H JZ KEY；判断是否按键（累加器为零则转移） LCALL DGF；去抖动 MOV A,P2 CPL A ANL A,#0F0H JZ KEY；确认按键AGAIN:MOV B,AKEY1:MOV A,P2 CPL A ANL A,#0F0H JNZ KEY1 ；按键是否松开 LCALL DGF MOV A,B ；键值判别 JB ACC.4,PKEY1 JB ACC.5,PKEY2 JB ACC.6,PKEY3 JB ACC.7,PKEY4 JB ACC.0,PKEY5 JB ACC.1,PKEY6PKEY1:LCALL K1；跳转子程序 AJMP KEY1PKEY2:LCALL K2 AJMP KEY1PKEY3:LCALL K3 AJMP KEY1PKEY4:LCALL K4 AJMP KEYPKEY5: LCALL K5 AJMP KEYPKEY6: LCALL K6 AJMP KEYK1: MOV A,#7FHLOOP1:MOV P1,A；LED初始化 MOV A,P2 CPL A ANL A,#0F0H JNZ DELAY1 PUSH A ANL A,#80H JZ K5 POP A ANL A,#40H JZ K6 LCALL DELAY；延时 RR A ；右循环转移PUSH ACC ；入栈 MOV P2,#0FFHMOV A,P2；按键查询CPL AANL A,#0F0HJZ ST1LCALL DGFMOV A,P2CPL AANL A,#0F0HJZ ST1MOV B,APOP ACCRET ；返回主体程序ST1:POP ACCAJMP LOOP1 ；继续K1K2: MOV A,#0FEH ；LED初始化LOOP2:MOV P1,A MOV A,P2 CPL A ANL A,#0F0H JNZ DELAY1 PUSH A ANL A,#80H JZ K5 POP A ANL A,#40H JZ K6 LCALL DELAY RL APUSH ACC ；入栈保护 MOV P2,#0FFH ；按键查询MOV A,P2CPL AANL A,#0F0HJZ ST2LCALL DGFMOV A,P2CPL AANL A,#0F0HJZ ST2MOV B,APOP ACCRETST2:POP ACC ；出栈AJMP LOOP2K3: MOV A,#0FHLOOP3:MOV P1,A ；置初值 MOV A,P2 CPL A ANL A,#0F0H JNZ DELAY1 PUSH A ANL A,#80H JZ K5 POP A ANL A,#40H JZ K6 LCALL DELAY CPL APUSH ACC ；入栈保护MOV P2,#0FFH ；按键查询MOV A,P2CPL AANL A,#0F0HJZ ST3LCALL DGFMOV A,P2CPL AANL A,#0F0HJZ ST3MOV B,APOP ACCRETST3: POP ACCAJMP LOOP3K4: MOV R0,#05H ；置入循环次数LOOP4:MOV A,#00H ；LED初始化 MOV P1,A MOV A,P2 CPL A ANL A,#0F0H JNZ DELAY1 PUSH A ANL A,#80H JZ K5 POP A ANL A,#40H JZ K6 LCALL DELAY CPL A MOV P1,A LCALL DELAY DJNZ R0,LOOP4 ；循环转移 RETK5: MOV R7,#200K6: MOV R7,#300DGF: MOV R7,#10H ；10ms去抖动程序DE0: MOV R6,#126DE1: DJNZ R6,DE1 DJNZ R7,