鍵盤接口程序設計之加減運算

/*
程序效果：1、開機時顯示899
2、按鍵key0一次數字加1，按鍵key1一次數字減1。
加到999時再加1歸零，減到000時再減1得999。
3、按住鍵key2不放實現連加功能，前3s每0.2s加1，以后每0.1s加1.
4、按住鍵key3不放實現連減功能，前3s每0.2s減1，以后每0.1s減1.
5、版權所有:http://www.51hei.com/ 轉帖須保留
*/
ORG 0000H
LJMP START
ORG 0013H //外部中斷1
LJMP IN1
ORG 0030H
START:SETB IT1 //設置為下降沿觸發
SETB EX1 //打開外部中斷1
SETB EA //開總中斷
MOV 30H,#09 //賦初值
MOV 31H,#09
MOV 32H,#08
LOOP: LCALL DISPLAY //調用顯示子程序
SJMP LOOP

IN1: LCALL DISPLAY
LCALL DISPLAY
LCALL DELAY1
JB P3.3,LA0P //其實這三條語句就是
LJMP LA0P1 //JB P3.3 LOOP1
LA0P: LJMP LOOP1 //只是跳轉距離沒有那么大
LA0P1: JNB P3.4 ,KEY0 //KEY0按下，轉key0，

//沒有則，執行下面的語句
JNB P3.5,KEY1
JNB P3.6,KEY2
JNB P3.7,KEY3
LOOP3: JNB P3.3,LOOP2 //等待P3.3為高
LCALL DISPLAY //為高，調用現實子程序
LCALL DISPLAY
LCALL DELAY1 //延時12ms
JNB P3.3,LOOP3 //P3.3為低，繼續等待
LJMP LOOP1 //P3.3為高，結束
LOOP2: LCALL DISPLAY
LJMP LOOP3

KEY0: LCALL ADD1 //KEY0按下，加1
LJMP LOOP3
KEY1: LCALL SUB1 //KEY1按下，加1
LJMP LOOP3

KEY2: MOV R2,#15
LAP2: MOV R1,#33

LCALL ADD1
LAP1: LCALL DISPLAY // 循環完33次約為0.2s
JB P3.3,LAP4 // 33*6ms
DJNZ R1,LAP1 //
DJNZ R2,LAP2 //外循環結束，需3s
//
LAP5: MOV R1,#16
LCALL ADD1
LAP6: LCALL DISPLAY // 循環完16次，需0.1s
JB P3.3,LAP7 // 16*6ms
DJNZ R1, LAP6 //
LJMP LAP5 //快速加1

LAP7: LCALL DISPLAY //P3.3為高，調用顯示子程序
LCALL DELAY1
JNB P3.3,LAP6 //P3.3為低，繼續快速加1
LJMP LOOP1 //為高，結束

LAP4: LCALL DISPLAY
LCALL DISPLAY
LCALL DELAY1
JNB P3.3,LAP1 //為低，重新循環
LJMP LOOP1 //為高，結束

KEY3: MOV R2,#15 //以下功能同KEY2
LSP2: MOV R1,#33

LCALL SUB1
LSP1: LCALL DISPLAY
JB P3.3,LSP4
DJNZ R1,LSP1
DJNZ R2,LSP2

MOV R1,#16
LCALL SUB1
LSP5: LCALL DISPLAY
JB P3.3,LSP6
DJNZ R1, LSP5
LJMP key3

LSP6: LCALL DISPLAY
LCALL DELAY1
JNB P3.3,LSP5
LJMP LOOP1

LSP4: LCALL DISPLAY
LCALL DISPLAY
LCALL DELAY1
JNB P3.3,LSP1

LOOP1: NOP //空指令
RETI //返回

DISPLAY:MOV DPTR,#TAB //顯示沒有問題了
MOV A,#0FBH //賦初值
MOV P2,A //點亮第四個數碼管
XCH A,R0 //暫存A的值
MOV A,32H
MOVC A,@A+DPTR
MOV P0,A //顯示個位數
LCALL DELAY //延時
XCH A,R0
RL A //循環右移，為下次做準備

MOV P2,A
XCH A,R0
MOV A,31H
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAY
XCH A,R0
RL A

MOV P2,A
MOV A,30H
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAY
RET

ADD1: INC 30H //加1子程序
MOV A,30H
CJNE A,#10,LOP1 //判斷個位是否滿10
MOV 30H,#00 //是，則清零
INC 31H //同時十位加1
MOV A,31H
CJNE A,#10,LOP1 //判斷十位是否滿10
MOV 31H,#00 //是，則清零
INC 32H //同時百位加1
MOV A,32H
CJNE A,#10,LOP1 //判斷百位是否滿10
MOV 32H,#00 //是，則清零
LOP1: NOP //空指令
RET //返回

SUB1: DEC 30H //減1子程序
MOV A,30H
CJNE A,#0FFH,LOP2 //判斷是否減過0
MOV 30H,#09 //是，則賦9
DEC 31H
MOV A,31H
CJNE A,#0FFH,LOP2
MOV 31H,#09
DEC 32H
MOV A,32H
CJNE A,#0FFH,LOP2
MOV 32H,#09
LOP2: NOP
RET

TAB: DB 3FH,06H,5BH,4FH,66H ;數碼管顯示的數值
DB 6DH,7DH,07H,7FH,6FH
DELAY: MOV R7,#4 //延時時間約為：2MS
DEL2: MOV R6,#250
DEL1: DJNZ R6,DEL1
DJNZ R7,DEL2
RET
DELAY1: MOV R7,#24 //延時時間約為：12MS
DEL3: MOV R6,#250
DEL4: DJNZ R6,DEL4
DJNZ R7,DEL3
RET
END