m _ set bitp 1.1；分鐘控制位
h _ set bitp 1.2；小時控制位
第二批30H
分鐘31H
HOUREQU 32H
TCNTEQU 34H
組織00H
SJMPSTART
組織0BH
LJMPINT _ T0
開始:MOVDPTR，#表
MOVHOUR，# 0；初始化
移動分鐘，#0
移動秒，#0
移動事件，#0
MOVTMOD，#01H
MOVTH0，#(65536-50000)/256；計時50毫秒
MOVTL0，#(65536-50000)MOD？256
電影#82H
SETBTR0
；****************************************************
；判斷是否按了控制鍵，按了哪個鍵。
a 1:LCALLDISPLAY
JNBS _ SET，S1
JNBM _ SET
JNBH _ SET
ljm pa 1
s 1:LCALLDELAY；抖動
JBS _ SET，A1
INCSECOND第二個值加上1
MOVA，第二
CJNEA，#60，J0；判斷是否加到60秒。
移動秒，#0
ljmpk 1
S2:延遲
JBM _ SET，A1
k 1:Inc minute；分鐘值加1
MOVA，等壹下
CJNEA，#60，j 1；判斷是否加到60分。
移動分鐘，#0
LJMPK2
S3:延遲
JBH _ SET，A1
K2:英制；小時值加1
HOUR，小時
CJNEA，24號，J2；判斷是否加到24小時。
MOVHOUR，#0
移動分鐘，#0
移動秒，#0
ljm pa 1
；****************************************************
；等待按鈕擡起。
j0:JBS _ SET，A1
LCALLDISPLAY
SJMPJ0
j 1:JBM _集，A1
LCALLDISPLAY
sjmpj 1
J2:JBH集，A1
LCALLDISPLAY
SJMPJ2
；***********************************************
；定時器中斷服務程序，計數秒，分鐘和小時。
INT _ T0:movth 0，#(65536-50000)/256
MOVTL0，#(65536-50000)MOD？256
增量
TCNT MOVA
CJNEA，#20，RETUNE計時1秒
英寸秒
移動事件，#0
MOVA，第二
CJNEA，60號，返回
增加壹分鐘
移動秒，#0
MOVA，等壹下
CJNEA，60號，返回
在我們這裏
移動分鐘，#0
HOUR，小時
CJNEA，24號，返回
MOVHOUR，#0
移動分鐘，#0
移動秒，#0
移動事件，#0
回歸:RETI
；******************************************
；顯示控制子程序
顯示:MOVA，第二；顯示秒
MOVB，#10
DIVAB
CLRP3.6
莫夫卡，@A+DPTR
MOVP0，A
LCALLDELAY
SETBP3.6
MOVA灣
CLRP3.7
莫夫卡，@A+DPTR
MOVP0，A
LCALLDELAY
SETBP3.7
CLRP3.5
MOVP0，# 40H顯示分隔符
LCALLDELAY
SETBP3.5
MOVA，分鐘；顯示分鐘
MOVB，#10
DIVAB
CLRP3.3
莫夫卡，@A+DPTR
MOVP0，A
LCALLDELAY
SETBP3.3
MOVA灣
CLRP3.4
莫夫卡，@A+DPTR
MOVP0，A
LCALLDELAY
SETBP3.4
CLRP3.2
MOVP0，# 40H顯示分隔符
LCALLDELAY
SETBP3.2
？HOUR，小時；顯示小時
MOVB，#10
DIVAB
CLRP3.0
莫夫卡，@A+DPTR
MOVP0，A
LCALLDELAY
SETBP3.0
MOVA灣
clrp 3.1
莫夫卡，@A+DPTR
MOVP0，A
LCALLDELAY
setbp 3.1
浸水使柔軟
表:？DB？3FH，06H，5BH，4FH，66H
DB 6DH，7DH，07H，7FH，6FH
延時:MOVR6，#10
d 1:movr 7，#250
DJNZR7，美元
DJNZR6，D1
浸水使柔軟
結束