DT EQU 21H
KEYBK EQU 22H
KV EQU 23H
D11 EQU 24H
D12 EQU 25H
MYP2 EQU 26H
ORG 0000H
AJMP START
ORG 000BH ;定時(shí)器T0的入口
AJMP DISP ;顯示程序
ORG 30H
START:
MOV SP,#5FH ;設(shè)置堆棧
MOV MYP2,#0FCH;保存P2口初設(shè)值
MOV DPTR,#ASCII
MOV DT ,#0AH ;可以調(diào)整延時(shí)時(shí)間
MOV KV,#0H ;保存當(dāng)前所按鍵的值
MOV TMOD,#00000001B ;定時(shí)器T0工作于模式1（16位定時(shí)/計(jì)數(shù)模式）
MOV TH0,#HIGH(65535-1000)
MOV TL0,#LOW(65535-1000) ;賦定時(shí)器初值,這里為了驗(yàn)證秒數(shù)正確性，設(shè)一開機(jī)就進(jìn)入定時(shí)中斷
SETB EA
SETB ET0 ;開T0中斷
SETB TR0 ;啟動(dòng)定時(shí)器
LOOP:
;加入你要的工作
AJMP LOOP
;;;;;;;;;;;;;;;
DISP:
MOV TH0,#HIGH(65535-1000)
MOV TL0,#LOW(65535-1000) ;賦定時(shí)器初值
DEC MYP2 ; FC減一就是FB了
;從F0到FB共12個(gè)LED數(shù)碼管，
;我這里管的接法是根據(jù)我在用的板子接的，不是abcdefgh順序?qū)Φ?
MOV A,MYP2
CJNE A,#0EFH,NEXT;一個(gè)個(gè)數(shù)碼管顯示的，比較是否己是最后一個(gè)，
;因?yàn)槲沂菑牡谑䝼�(gè)開始掃描的，也就是fb, MOV MYP2,#0FCH;保存P2口初設(shè)值
第一個(gè)是F0，再減一就成EF了。
MOV MYP2,#0FBH; 如果是第一個(gè)了就把初值重置成第十二個(gè)的值,不是跳到next
NEXT:
MOV A,MYP2
CJNE A,#0F1H,DISP12 ;我這里只用到了每一二兩個(gè)數(shù)碼管用于顯示
MOV P2,MYP2
MOV P0,D12
LCALL SCANKEY ;顯示后調(diào)用鍵盤掃描子程序
;LCALL DELAY10MS
RETI
DISP12:
CJNE A,#0F0H,OTHER
MOV P2,MYP2
MOV P0,D11
LCALL SCANKEY
LCALL DELAY10MS
RETI
OTHER:
MOV P2,MYP2 ;不是第一和二的管不顯示
MOV P0,#0FFH
LCALL SCANKEY
RETI
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SCANKEY:
PUSH PSW
PUSH ACC
MOV A,P2
MOV KEYBK,A
LCALL DELAY10MS
MOV A,P2
CJNE A,KEYBK,RELOOP
CJNE A,#0F9H,NOSAME;檢測(cè)是不是真的有按鍵，沒(méi)有就返回中斷
NOSAME:
JNC RELOOP
CJNE A,#0B9H,KL3
KL3:
JNC KL2
MOV A,KEYBK
CLR C
SUBB A,#09DH;這里的算法是按鍵值減去一個(gè)值，得到在要顯示的鍵值，
;轉(zhuǎn)化后去碼表中得取得數(shù)碼管能顯示的相應(yīng)值
MOV KV,A
AJMP RELOOP
KL2:
CJNE A,#0D9H,KL2SET
KL2SET:
JNC KL1
MOV A,KEYBK
CLR C
SUBB A,#0C6H
MOV KV,A
AJMP RELOOP
KL1:
CJNE A,#0E9H,KL1SET
KL1SET:
JNC RELOOP
MOV A,KEYBK
CLR C
SUBB A,#0DFH
MOV KV,A
AJMP RELOOP
RELOOP:
MOV A,KV
CJNE A,#0H,CUTKEY
MOV D11,#041H
MOV D12,#041H
POP ACC
POP PSW
RET
CUTKEY:
MOV B,#0AH
DIV AB
MOVC A,@A+DPTR
MOV D11,A
MOV A,B
MOVC A,@A+DPTR
MOV D12,A
POP ACC
POP PSW
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DELAY10MS: ;延時(shí)函數(shù)
PUSH PSW
SETB RS0
MOV R7,DT
D1:
MOV R6,#032H
DJNZ R6,$
DJNZ R7,D1
POP PSW
RET
ASCII: DB 041H,077H,0c2H,052H,074H ;數(shù)字碼表 因?yàn)楣苣_接法不同，所以0-9值不同
DB 058H,048H,073H,040H,050H
;
END
|
