利用AT89C2051制作的6位電子鐘

A,@R0 ;取當(dāng)前計(jì)時(shí)單元數(shù)據(jù)到A

DEC R0 ;指向前一地址

SWAP A ;A中數(shù)據(jù)高四位與低四位交換

ORL A,@R0 ;前一地址中數(shù)據(jù)放入A中低四位

ADD A,#01H ;A加1操作

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

MOV R3,A ;移入R3寄存器

ANL A,#0FH ;高四位變0

MOV @R0,A ;放回前一地址單元

MOV A,R3 ;取回R3中暫存數(shù)據(jù)

INC R0 ;指向當(dāng)前地址單元

SWAP A ;A中數(shù)據(jù)高四位與低四位交換

ANL A,#0FH ;高四位變0

MOV @R0,A ;數(shù)據(jù)放入當(dāng)削地址單元中

RET ;子程序返回

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 清零程序 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;對(duì)計(jì)時(shí)單元復(fù)零用

CLR0: CLR A ;清累加器

MOV @R0,A ;清當(dāng)前地址單元

DEC R0 ;指向前一地址

MOV @R0,A ;前一地址單元清0

RET ;子程序返回

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 時(shí)鐘調(diào)整程序 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;當(dāng)調(diào)時(shí)按鍵按下時(shí)進(jìn)入此程序

SETMM: CLR ET0 ;關(guān)定時(shí)器T0中斷

CLR TR0 ;關(guān)閉定時(shí)器T0

LCALL DL1S ;調(diào)用1秒延時(shí)程序

JB P3.7,CLOSEDIS ;鍵按下時(shí)間小于1秒，關(guān)閉顯示（省電）

MOV R2,#06H ;進(jìn)入調(diào)時(shí)狀態(tài)，賦閃爍定時(shí)初值

SETB ET1 ;允許T1中斷

SETB TR1 ;開啟定時(shí)器T1

SET2: JNB P3.7,SET1 ;P3.7口為0（鍵未釋放），等待

SETB 00H ;鍵釋放，分調(diào)整閃爍標(biāo)志置1

SET4: JB P3.7,SET3 ;等待鍵按下

LCALL DL05S ;有鍵按下，延時(shí)0.5秒

JNB P3.7,SETHH