秒計(jì)時(shí)器程序

;**************************************************
;帶鍵盤設(shè)置的秒計(jì)時(shí)器
;功能：倒計(jì)時(shí)的秒計(jì)時(shí)器，從59倒計(jì)到0，然后又從59開始倒計(jì)到0;
;各個(gè)鍵的功能
;S1：開始運(yùn)行
;S2：停止運(yùn)行
;S3：高位加1，按一次，數(shù)碼管的十位加1，從0-5循環(huán)變化
;S4：低位加1，按一次，數(shù)碼管的個(gè)位加1，從0-9循環(huán)變化

;**************************************************
KEYOKBIT　00H
STARTRUNBIT01H
VALUEEQU21H
SETVALEQU22H;設(shè)置值
COUNTEREQU23H;用于顯示的計(jì)數(shù)器
COUNTEQU24H;秒計(jì)數(shù)器
KEYVALEQU25H
DISPBUFEQU5EH
FIRSTBITP2.7;第一位數(shù)碼管的位控制
SECONDBITP2.6;第二位數(shù)碼管的位控制
P1LEDEQU22H
TMRVAREQU60110;65536-5000*12/11.0592定時(shí)器初值5毫秒

ORG0000H
JMPSTART
ORG0*8+3;INT0中斷入口
RETI
ORG1*8+3;TIMER0中斷入口
JMPINT_T0;轉(zhuǎn)去定時(shí)器0中斷服務(wù)程序入口
ORG2*8+3;INT1中斷入口
RETI
ORG3*8+3;TIMER1中斷入口
RETI
ORG4*8+3;串行中斷入口
RETI
START:
MOV SP,#5FH
MOV P1,#0FFH;所有LED全部熄滅
MOV VALUE,#0
MOV P1LED,#0FEH
MOV SETVAL,#59
MOV VALUE,SETVAL
MOV DISPBUF,#5
MOV DISPBUF+1,#9
CLRSTARTRUN
CLRKEYOK
CALLINIT_T0
SETBEA
LOOP:
CALLKEY;調(diào)用鍵盤程序
JBKEYOK,KEYPROC;如果有鍵按下，轉(zhuǎn)鍵盤處理
NEXT:
MOV A,VALUE;獲得秒的數(shù)值
MOV B,#10
DIVAB;二進(jìn)制轉(zhuǎn)化為十進(jìn)制，十位和個(gè)位分送顯示緩沖區(qū)
NEXT1:
MOV DISPBUF,A
MOV DISPBUF+1,B;個(gè)位送顯示緩沖區(qū)
JMPLOOP
;以下是鍵值處理
KEYPROC:
MOV A,KEYVAL;取得鍵值
JZKEYRUN;如果鍵值是0
DECA
JZKEYSTOP;如果鍵值是1
DECA
JZKEYLEFT;如果鍵值是2
JMPKEYRIGHT;鍵值是3,轉(zhuǎn)
KEYRUN:
SETBSTARTRUN
JMPLOOP
KEYSTOP:
CLRSTARTRUN
JMPLOOP
KEYLEFT:
CLRSTARTRUN
INCDISPBUF
MOV A,DISPBUF
CJNEA,#6,LEFT0
MOV A,#0
LEFT0:
MOV B,#10
MULAB
MOV SETVAL,A
MOV VALUE,SETVAL
JMPLOOP
KEYRIGHT:
CLRSTARTRUN
INCDISPBUF+1
MOV A,DISPBUF+1
CJNEA,#10,REFT0
MOV DISPBUF+1,#0
REFT0:
MOV A,DISPBUF
MOV B,#10
MULAB
ADDA,DISPBUF+1
MOV SETVAL,A
MOV VALUE,SETVAL
JMPLOOP
;鍵盤程序
KEY:
MOV P3,#0FFH
CLRKEYOK
MOV A,P3
ORLA,#11000011B
CPLA
JZKEY_RET
CALLDELAY
MOV A,P3
ORLA,#11000011B
CPLA
JZKEY_RET
SETBKEYOK
JNBACC.2,KEY_1;S1沒有按下，轉(zhuǎn)
MOV KEYVAL,#0
JMPKEY_RET
KEY_1:
JNBACC.3,KEY_2;S2沒有按下，轉(zhuǎn)
MOV KEYVAL,#1
JMPKEY_RET
KEY_2:
JNBACC.4,KEY_3
MOV KEYVAL,#2
JMPKEY_RET
KEY_3:
MOV KEYVAL,#3
KEY_RET:
MOV A,P3
ORLA,#11000011B
CPLA
JNZKEY_RET
RET

DELAY:
PUSHPSW
SETBRS0
MOV R7,#50
D1: MOV R6,#50
D2:DJNZR6,D2
DJNZR7,D1
POPPSW
RET

INIT_T0:;初始化T0為5毫秒的定時(shí)器
MOV TMOD,#01H
MOV TH0,#HIGH(TMRVAR)
MOV TL0,#LOW(TMRVAR)
SETBET0;開T0中斷
SETBTR0;定時(shí)器0開始運(yùn)行
RET;返回

;以下是中斷程序，實(shí)現(xiàn)秒計(jì)數(shù)和顯示
INT_T0:;定時(shí)器T0的中斷響應(yīng)程序
PUSHACC;ACC入棧
PUSHPSW;PSW入棧
MOV TH0,#HIGH(TMRVAR)
MOV TL0,#LOW(TMRVAR)
INCCOUNT;軟件計(jì)數(shù)器加1
MOV A,COUNT
CJNEA,#20,INT_N2
MOV COUNT,#0;計(jì)到20，軟件計(jì)數(shù)器清0
INT_N1:
JNBSTARTRUN,INT_N2;停止運(yùn)行，轉(zhuǎn)
DECVALUE;計(jì)數(shù)器減1
MOV A,VALUE
JNZINT_N2;不等于0，轉(zhuǎn)
MOV VALUE,SETVAL;否則，再置初值
INT_N2:;以下是顯示部份
SETBFIRST
SETBSECOND;關(guān)顯示
MOV A,#DISPBUF;顯示緩沖區(qū)首地址
ADDA,Counter
MOV R0,A
MOV A,@R0;根據(jù)計(jì)數(shù)器的值取相應(yīng)的顯示緩沖區(qū)的值
MOV DPTR,#DISPTAB;字形表首地址
MOV CA,@A+DPTR;取字形碼
MOV P0,A;將字形碼送P0位（段口）
MOV A,Counter;取計(jì)數(shù)器的值
JZDISPFIRST;如果是0則顯示第一位
CLRSECOND;否則顯示第二位
AJMPDISPNEXT
DISPFIRST:
CLRFIRST;顯示第一位
DISPNEXT:
INCCounter;計(jì)數(shù)器加1
MOV A,Counter
DECA;如果計(jì)數(shù)器計(jì)到2,則讓它回0
DECA
JZRSTCOUNT
AJMPDISPEXIT
RSTCOUNT:
MOV Counter,#0;計(jì)數(shù)器的值只能是0或1
DISPEXIT:
POPPSW
POPACC
RETI
DISPTAB:DB28H,7EH,0a4H,64H,72H,61H,21H,7CH,20H,60H
END