8位數(shù)碼管顯示

;**************DS1302端口位定義

**************

INT_T0:

IO_DATABITP1.1

;數(shù)據(jù)傳送總線

PUSHACC

SCLKBITP1.0

;時鐘控制總線

PUSHPSW

RSTBITP1.2

;復(fù)位總線

MOVTL0,TIME_L

K1EQUP1.4

;獨(dú)立鍵

MOVTH0,TIME_H

K2EQUP1.5

INCT_CONU

K3EQUP1.6

MOVA,T_CONU

K4EQUP1.7

CJNEA,#06H,INT_END

BEEPEQUP3.3

;蜂鳴器

MOVT_CONU,#00H

RELAYEQUP3.5

;繼電器

CPL0AH

T_CONUEQU22H

;中斷計(jì)數(shù)

INT_END:

TIME_LEQU23H

;定時初值

POPPSW

TIME_HEQU24H

POPACC

TIME_DATAEQU50H

;顯示時間單元首地址

RETI

DATE_DATAEQU60H

;顯示日期單元首地址

DS_DATAEQU58H

;顯示定時時間首地址

；DS1302初始化子程序

;(R0)=數(shù)據(jù)(R1)=地址

ORG0000H

AJMPMAIN

PROSET:

ORG000BH

CLRRST

;DS1302復(fù)位

AJMPINT_T0

CLRSCLK

ORG0080H

NOP

NOP

MAIN:

SETBRST

MOVTMOD,#01H

；T0,方式1

MOVTIME_L,#00H

;50MS定時值

;MOVR1,#80H

;寫秒寄存器

MOVTIME_H,#4CH

;MOVR0,#00H

;啟動振蕩器

MOVT_CONU,#00H

；中斷次數(shù)

;LCALLWRITE

MOVIE,#82H

；EA=1,ET0=1

;MOVR1,#82H

;寫分寄存器

MOVA,#00H

;MOVR0,#58H

MOVR0,#40H

；從40H單元開始

;LCALLWRITE

MOVR1,#40H

；清64個單元

M_CLEAR

:MOV@R0,A

;MOVR1,#84H

;寫時寄存器

INCR0

;MOVR0,#80H

DJNZR1,M_CLEAR

;LCALLWRITE

MOV7FH,#0AH

；送熄滅符

MOVR1,#90H

;寫充電寄存器

MOVR0,#0ABH

SETBBEEP

LCALLWRITE

LCALLTIME_DELAY

；調(diào)顯示延時

RET

LCALLPROSET

；DS1302初始化

;讀時間、日期數(shù)據(jù)子程序

MAIN1:

;存放單元40H-46H

LCALLGET_TIME

;從DS1302讀數(shù)據(jù)程序

LCALLCHULI

；實(shí)時時間數(shù)據(jù)處理

GET_TIME:

MOVR0,#TIME_DATA

;顯示時、分、秒

MOVR1,#81H

;讀秒

LCALLDISP

LCALLREAD

MOVR0,#TIME_DATA

MOV40H,R0

lcal^^ime_display

MOVR1,#83H

;讀分

LCALLSET_KEY

；鍵功能程序 ；001

LCALLREAD

LCALLCOMP

;實(shí)時時間與定時時間比較

MOV41H,R0

JBK1,MAIN1

MOVR1,#85H

;讀時

CALLBEEP_BL

LCALLREAD

MAIN2:

MOV42H,R0

LCALLCHULI

；日期數(shù)據(jù)處理

MOVR1,#87H

;讀出日期

MOVR0,#DATE_DATA

LCALLREAD

LCALLDISP

；顯示年、月、日

MOV43H,R0

MOVR0,#DATE_DATA

MOVR1,#89H

;讀出月份

LCALLTIME_DISPLAY

LCALLREAD

JBK1,MAIN2

MOV44H,R0

CALLBEEP_BL

MOVR1,#8BH

;讀出星期

MAIN3:

LCALLREAD

LCALLDS_CHULI

；定時時間數(shù)據(jù)處理

MOV46H,R0

MOVR0,#DS_DATA

MOVR1,#8DH

;讀出年

LCALLDS_SP

；顯示定時時間

LCALLREAD

MOVR0,#DS_DATA

MOV45H,R0

LCALLDS_DISPLAY

RET

JBK1,MAIN3

CALLBEEP_BL

;寫DS1302子程序

AJMPMAIN1

WRITE:

;中斷服務(wù)子程序

CLRSCLK

;300MS對閃動標(biāo)記取反一次

NOP

NOP

SETB

RST

CLRSCLK

NOP

NOP

MOV

A,R1 ;(R0)=數(shù)據(jù)(Rl)=地址

NOP

MOV

R2,#08H

MOVC,IO_DATA

WRI_01:

NOP

RRC

A ;傳輸?shù)刂返紻S1302

NOP

NOP

RRCA ;再從DS1302接收數(shù)據(jù)

NOP

NOP

CLR

SCLK

NOP

NOP

SETBSCLK

NOP

NOP

MOV

IO_DATA,C

NOP

NOP

DJNZR2,READ_02

NOP

MOVR0,A

SETB

SCLK

CLRRST

NOP

RET

NOP

;實(shí)時時間、日期數(shù)據(jù)處理子程序

DJNZ

R2,WRI_01

CLR

SCLK

，

NOP

CHULI:

NOP

MOVA,40H ;處理秒數(shù)據(jù)

MOV

A,R0

ANLA,#0FH

MOV

R2,#08H

MOV50H,A

WRI_02:

MOV70H,A

RRC

A ;傳輸數(shù)據(jù)到DS1302

MOVA,40H

NOP

ANLA,#11110000B

CLR

SCLK

SWAPA

NOP

MOV51H,A

NOP

MOV71H,A

MOV

IO_DATA,C

，

NOP

MOVA,41H ;處理分?jǐn)?shù)據(jù)

NOP

ANLA,#0FH

SETB

SCLK

MOV52H,A

NOP

MOV72H,A

NOP

MOVA,41H

DJNZ

R2,WRI_02

ANLA,#11110000B

CLR

SCLK

SWAPA

NOP

MOV53H,A

NOP

MOV73H,A

CLR

RST

，

NOP

MOVA,42H ;處理時數(shù)據(jù)

NOP

ANLA,#0FH

RET

MOV54H,A

;================================================= MOV74H,A

;讀DS1302子程序 MOVA,42H

ANLA,#11110000B

READ:

SWAPA

CLR

SCLK

MOV55H,A

NOP

MOV75H,A

NOP

，

SETB

RST

MOVA,43H

;處理日數(shù)據(jù)

NOP

ANLA,#0FH

NOP

MOV60H,A

MOV

A,R1

MOV76H,A

MOV

R2,#08H

MOVA,43H

READ_01:

ANLA,#11110000B

RRC

A

SWAPA

NOP

;先傳輸?shù)刂返紻S1302

MOV61H,A

MOV

IO_DATA,C

MOV77H,A

NOP

，

NOP

MOVA,44H

;處理月數(shù)據(jù)

SETB

SCLK

ANLA,#0FH

NOP

MOV62H,A

NOP

MOV78H,A

CLR

SCLK

MOVA,44H

NOP

ANLA,#11110000B

NOP

SWAPA

DJNZ

R2,READ_01

MOV63H,A

NOP

MOV79H,A

NOP

，

SETB

IO_DATA

MOVA,45H

;處理年數(shù)據(jù)

CLR

A

ANLA,#0FH

CLR

C

MOV64H,A

MOV

R2,#08H

MOV7AH,A

READ_02:

MOVA,45H

ANLA,#11110000B

SWAPA

MOV65H,A

MOV7BH,A

JNBK4,$

LCALLDSSET

CALLDS_DELAY

RET

MOVA,46H ;處理周數(shù)據(jù)

MOV66H,A

MOV7CH,A

RET

;實(shí)時時間、日期查表取數(shù)子程序

DISP:;MOVR0,#TIME_DATA

MOVR3,#06H

DISP1:MOVA,@R0

MOVDPTR,#TAB_NU

MOVCA,@A+DPTRMOV@R0,A

INCR0

DJNZR3,DISP1

RET

;實(shí)時時間設(shè)定子程序

；K1為加鍵、K2為減鍵、K3為選擇鍵

SET_TIME:

MOVR1,#8EH

MOVR0,#00H

LCALLWRITE

;寫保護(hù)寄存器

;允許寫入

MOVR1,#80H

MOVR0,#80H

LCALLWRITE

;寫秒寄存器

;停止振蕩器工作

SETBTR0

K001: CALLTIME_DELAY

JNBK3,K001

;校時

;K3為位移鍵

K010:

========================== JNB0AH,KH01

TIME_DISPLAY:

MOV54H,7FH

;送入熄滅符

;MOVR0,#TIME_

DATA ;取得顯示單元首地址

MOV55H,7FH

MOVR1,#07FH

;從第一個數(shù)碼管開始,位

JMPKH02

碼

KH01:

MOV54H,74H

;送實(shí)時值

MOVR2,#08H

;共8個數(shù)碼管

MOV55H,75H

;送實(shí)時值

KH02:

MOVR0,#TIME_DATA

DISLP:

MOVP0,@R0

;獲得當(dāng)前單元數(shù)據(jù)

CALLDISP

MOVA,R1

MOVR0,#TIME_DATA

MOVP2,A

;數(shù)碼顯示

CALLTIME_DISPLAY

JBACC.5,DISLP1

;第三位數(shù)碼管顯示－

JNBK1,K011A

MOVP0,#0f7H

JNBK2,K011B

JMPDISLP3

JNBK3,K002

DISLP1:

JBACC.2,DISLP2

;第六位數(shù)碼管顯示－

JMPK010

MOVP0,#0f7H

JMPDISLP3

K011A:

MOVA,42H

DISLP2:

INCR0

ADDA,#01H

DISLP3:

MOVA,R1

;為下一個數(shù)準(zhǔn)備

DAA

RRA

;下一個單元

MOV42H,A

MOVR1,A

;保存

XRLA,#24H

LCALLDELAY

;為了保證數(shù)碼管亮度，延時

JNZK012A

DJNZR2,DISLP

復(fù)顯示，直到全部數(shù)據(jù)刷新過

MOV42H,#00H

RET

;返回

K012A:

MOVR1,#84H

MOVR0,42H

;寫時寄存

DELAY:

LCALLWRITE

MOVR4,#0AH

CALLTIME_DELAY

L15:

MOVR5,#64H

JMPK010

L16:

DJNZR5,L16

DJNZR4,L15

RET

K011B:

MOVA,42H

;******************************************************

XRLA,#00H

SET_HEY： ；001

JZK012B

SETBK1

;增加鍵

SETBC

;求補(bǔ)運(yùn)算

SETBK2

;減少鍵

CLRA

SETBK3

;選擇鍵

ADDCA,#99H

;加99

SETBK4

;定時設(shè)定功能鍵

SUBBA,#01H

;減去減數(shù)

NOP

ADDA,42H

;加被減數(shù)

JBK4,KEY01 ;002

DAA ;十進(jìn)制調(diào)整

;時間、日期顯示子程序

CALLCHULI

;進(jìn)入定時值設(shè)定子程

LCALLBEEP_BL

JMPDS_KEY

序;002

KEY01:

KEY02:

KEY03:

JBK2,KEY02LCALLBEEP_BLJMPSET_TIME

JBK3,KEY03LCALLBEEP_BLCPL20H.0

RET

;進(jìn)入時間設(shè)定子程序

;止鬧標(biāo)記取反

DS_KEY:

;002

CALLDS_DELAY■

K012B:

K012C:

K002:

K020:

MOV42H,A

XRLA,#00H

JNZK012C

MOV42H,#23H

MOVR1,#84H

MOVR0,42H

LCALLWRITE

CALLTIME_DELAY

JMPK010

CALLTIME_DELAY

JNBK3,K002

CALLCHULI

JNB0AH,KM01

;寫時寄存器

;校分

;K3為位移鍵

MOV52H,7FH

;送入熄滅符

CALLDATE_DELAY

MOV53H,7FH

JMPK030

JMPKM02

K031B:

KM01:

MOV52H,72H

;送實(shí)時值

MOVA,43H

MOV53H,73H

;送實(shí)時值

XRLA,#00H

KM02:

MOVR0,#TIME_DATA

JZK032B

CALLDISP

SETBC

;求補(bǔ)運(yùn)算

MOVR0,#TIME_DATA

CLRA

CALLTIME_DISPLAY

ADDCA,#99H

;加99

JNBK1,K021A

SUBBA,#01H

;減去減數(shù)

JNBK2,K021B

ADDA,43H

;加被減數(shù)

JNBK3,K003

DAA

;十進(jìn)制調(diào)整

JMPK020

MOV43H,A

K021A:

XRLA,#00H

MOVA,41H

JNZK032C

ADDA,#01H

K032B:

MOV43H,#31H

DAA

K032C:

MOVR1,#86H

;寫日寄存器

MOV41H,A

MOVR0,43H

XRLA,#60H

LCALLWRITE

JNZK022A

CALLDATE_DELAY

MOV41H,#00H

JMPK030

K022A:

MOVR1,#82H

;寫分寄存器

，

MOVR0,41H

K004:

CALLDATE_DELAY

;校月

LCALLWRITE

JNBK3,K004

;K3為位移鍵

CALLTIME_DELAY

JMPK020

K040:

CALLCHULI

，

JNB0AH,KC01

K021B:

MOVA,41H

MOV62H,7FH

;送入熄滅符

XRLA,#00H

MOV63H,7FH

JZK022B

JMPKC02

SETBC

;求補(bǔ)運(yùn)算

CLRA

KC01:

MOV62H,78H

;送實(shí)時值

ADDCA,#99H

;加99

MOV63H,79H

;送實(shí)時值

SUBBA,#01H

;減去減數(shù)

KC02:

MOVR0,#DATE_DATA

ADDA,41H

;加被減數(shù)

CALLDISP

DAA ;

十進(jìn)制調(diào)整

MOVR0,#DATE_DATA

MOV41H,A

，

CALLTIME_DISPLAY

XRLA,#00H

JNBK1,K041A

JNZK022C

JNBK2,K041B

K022B:

MOV41H,#59H

JNBK3,K005

K022C:

MOVR1,#82H

;寫分寄存器

JMPK040

MOVR0,41H

K041A:

LCALLWRITE

MOVA,44H

CALLTIME_DELAY

ADDA,#01H

JMPK020

DAA

，

MOV44H,A

K003:

CALLDATE_DELAY

;校日

XRLA,#13H

JNBK3,K003

;K3為位移鍵

JNZK042A

K030:

CALLCHULI

MOV44H,#00H

JNB0AH,KR01

K042A:

MOVR1,#88H

;寫月寄存器

MOV60H,7FH

;送入熄滅符

MOVR0,44H

MOV61H,7FH

LCALLWRITE

JMPKR02

CALLDATE_DELAY

KR01:

MOV60H,76H

;送實(shí)時值

JMPK040

MOV61H,77H

;送實(shí)時值

KR02:

MOVR0,#DATE_DATA

K041B:

CALLDISP

MOVA,44H

MOVR0,#DATE_DATA

XRLA,#00H

CALLTIME_DISPLAY

JZK042B

JNBK1,K031A

SETBC

;求補(bǔ)運(yùn)算

JNBK2,K031B

CLRA

JNBK3,K004

ADDCA,#99H

;加99

JMPK030

SUBBA,#01H

;減去減數(shù)

K031A:

ADDA,44H

;加被減數(shù)

MOVA,43H

DAA ;

十進(jìn)制調(diào)整

ADDA,#01H

MOV44H,A

，

DAA

XRLA,#00H

MOV43H,A

JNZK042C

XRLA,#32H

K042B:

MOV44H,#12H

JNZK032A

K042C:

MOVR1,#88H

;寫月寄存器

MOV43H,#00H

MOVR0,44H

K032A:

MOVR1,#86H

;寫日寄存器

LCALLWRITE

MOVR0,43H

CALLDATE_DELAY

LCALLWRITE

JMPK040

K005:

CALLDATE_DELAY

JNBK3,K005

；校年

；K3為位移鍵

K050:

CALL

CHULI

JNB

0AH,KY01

MOV

64H,7FH

；送入熄滅符

MOV

65H,7FH

JMP

KY02

KY01:

MOV

64H,7AH

；送實(shí)時值

MOV

65H,7BH

；送實(shí)時值

KY02:

MOV

R0,#DATE_DATA

CALL

DISP

MOV

R0,#DATE_DATA

CALL

TIME_DISPLAY

JNB

K1,K051A

JNB

K2,K051B

JNB

K3,K008

JMP

K050

K051A:

MOV

A,45H

ADD

A,#01H

DAA

MOV

45H,A

XRL

A,#9AH

JNZ

K052A

MOV

45H,#00H

K052A:

MOV

R1,#8CH

；寫年寄存器

MOV

R0,45H

LCALLWRITE

CALL

DATE_DELAY

JMP

K050

K051B:

MOV

A,45H

XRL

A,#00H

JZK052B

SETB

C

；求補(bǔ)運(yùn)算

CLR

A

ADDC

A,#99H

；加99

SUBB

A,#01H

；減去減數(shù)

ADD

A,45H

；加被減數(shù)

DAA

，

十進(jìn)制調(diào)整

MOV

45H,A

，

XRL

A,#00H

JNZ

K052C

K052B:

MOV

45H,#99H

K052C:

MOV

R1,#8CH

；寫年寄存器

MOV

R0,45H

LCALLWRITE

CALL

DATE_DELAY

JMP

K050

K008:

JNBK3,K008

MOV

R1,#80H

；寫秒寄存器

MOV

R0,#00H

；啟動振蕩器工作

LCALLWRITE

MOV

R1,#8EH

；寫保護(hù)寄存器

MOV

R0,#80H

；禁止寫入

LCALLWRITE

CALL

DATE_DELAY

CLR

0AH

CLR

TR0

CALL

BEEP_BL

RET

;定時時間設(shè)定子程序

；K1為加鍵、K2

為減鍵、K3為選擇鍵

DSSET:

SETB

TR0

DS01:

LCALLDS_DELAY

；定時分設(shè)定

JNB

K4,$

DS010:

CALL

DS_CHULI

JNB

0AH,DS01_1

MOV

58H,7FH

；送入熄滅符

MOV

59H,7FH

JMP

DS01_2

DS01_1:

MOV

58H,70H

；送實(shí)時值

MOV

59H,71H

；送實(shí)時值

DS01_2:

MOV

R0,#58H

LCALLDS_SP

MOV

R0,#58H

LCALLDS_DISPLAY

JNB

K1,DS01A

；加鍵

JNB

K2,DS01B

；減鍵

JNB

K3,DS02

JMP

DS010

DS01A:

；加

MOV

A,48H

ADDA,#01H

DAA

MOV48H,A

XRL

A,#60H

JNZDS011

MOV

48H,#00H

DS011:

LCALLDS_DELAY

JMP

DS010

DS01B:

MOVA,48H

;判48H是否為0

XRL

A,#00H

JZDS012

SETBC

；減

CLR

A

;求補(bǔ)運(yùn)算

ADDC

A,#99H

;加99

SUBB

A,#01H

;減去減數(shù)

ADD

A,48H

;加被減數(shù)

DAA

;十進(jìn)制調(diào)整

MOV48H,A

，

XRL

A,#00H

JNZ

DS013

DS012:

MOV

48H,#59H

DS013:

CALL

DS_DELAY

JMP

DS010

DS02:

LCALLDS_DELAY

;定時時設(shè)定

JNB

K3,$

DS020:

CALL

DS_CHULI

JNB

0AH,DS02_1

MOV

5AH,7FH

;送入熄滅符

MOV

5BH,7FH

JMP

DS02_2

DS02_1:

MOV

5AH,72H

;送實(shí)時值

MOV

5BH,73H

;送實(shí)時值

DS02_2:

MOV

R0,#58H

LCALLDS_SP

MOV

R0,#58H

LCALLDS_DISPLAY

JNB

K1,DS02A

JNB

K2,DS02B

JNB

K3,DS03

JMP

DS020

DS02A:

MOVA,49H

;加

ADD

A,#01H

DAA

MOV

49H,A

XRL

A,#24H

JNZ

DS021

MOV

49H,#00H

DS021:

LCALLDS_DELAY

JMP

DS020

DS02B:

MOVA,49H

;判49H是否為0

XRL

A,#00H

JZDS022

SETBC

;減

CLR

A

;求補(bǔ)運(yùn)算

ADDCA,#99H

;加99

SUBBA,#01H

;減去減數(shù)

ADD

A,49H

;加被減數(shù)

DAA

;十進(jìn)制調(diào)整

MOV49H,A

XRLA,#00H

JNZDS023DS022: MOV49H,#23H

DS023: CALLDS_DELAY

JMPDS020

DS03: CALLDS_DELAY

JNBK3,$

DS030:

CALL

DS_CHULI

JNB

0AH,DS03_1

MOV

5CH,7FH

JMP

DS03_2

DS03_1:

MOV

5CH,74H

DS03_2:

MOV

R0,#58H

LCALLDS_SP

;送入熄滅符

;送實(shí)時值

MOV

R0,#58H

LCALLDS_DISPLAY

JNBK3,DS04

JNB

K1,DS03A

JMP

DS030

DS03A:

CPL

20H.1

JNB

20H.1,DS031

MOV

4AH,#01H

AJMP

DS032

DS031:

MOV

4AH,#00H

DS032:

LCALLDS_DELAY

JMP

DS030

;報(bào)警標(biāo)記取反

;報(bào)警標(biāo)記=1,允許報(bào)警

;報(bào)警標(biāo)記=0,禁止報(bào)警

DS04:CLRTR0

CLR0AH

CALLBEEP_BLLCALLDS_DELAYRET

;定時時間數(shù)據(jù)處理子程序

DS_CHULI: ?

MOVA,48H

ANLA,#0FH

MOV58H,A

MOV70H,A

MOVA,48H

ANLA,#0F0HSWAPAMOV59H,AMOV71H,AMOVA,49H

ANLA,#0FH

MOV5AH,A

MOV72H,A

MOVA,49H

ANLA,#0F0HSWAPAMOV5BH,AMOV73H,AMOVA,4AH

ANLA,#01H

MOV5CH,A

MOV74H,ARET

;處理分?jǐn)?shù)據(jù)

;處理時數(shù)據(jù)

;處理定時標(biāo)記

;定時時間查表取數(shù)子程序

DS_SP: ;MOVR0,#58H

MOVR3,#05H

DS_SP1:MOVA,@R0

MOVDPTR,#TAB_NU

MOVCA,@A+DPTRMOV@R0,A

INCR0

DJNZR3,DS_SP1

RET

Ds_DISPLAY: ;006

;取得設(shè)定顯示單元首地址

;從第一個數(shù)碼管開始;共7個數(shù)碼管

;MOVR0,#58H

MOVR1,#07FH

MOVR2,#07H

DSPLAY:

MOVP0,@R0

;獲得當(dāng)前單元數(shù)據(jù)

MOVA,R1

MOVP2,A

;數(shù)碼顯示

JBACC.5,DSLP1

MOVP0,#0f7H

JMPDSLP3

;第三位數(shù)碼管顯示“－”

DSLP1:

JBACC.2,DSLP2

MOVP0,#0f7H

JMPDSLP3

;第六位數(shù)碼管顯示“－”

DSLP2:

INCR0

DSLP3:

MOVA,R1

;為下一個數(shù)準(zhǔn)備

RRA

;下一個單元

MOVR1,A

LCALLDELAY

;保存