【正文】 0F0H ；設(shè)置 B 口高 4 位為輸入，低 4 位為輸出MOVWF TRISBBSF PIE1 , TMR1IE ；設(shè)置允許 TMR1 溢出發(fā)生的中斷BCF STATUS , RP0 ；設(shè)置體 0 為當(dāng)前體BSF INTCON , RBIE ；設(shè)置允許端口 RB 產(chǎn)生的中斷BSF INTCON, GIE ；開放全局中斷BSF INTCON, PEIE ；開放外設(shè)中斷 MOVLW 0F0H ；B 口顯示初始為 0MOVWF PORTBMOVLW 3FH ；D 口顯示初始值為時(shí) 0MOVWF PORTDMOVLW B39。0011111139。 ；A 口控制點(diǎn)亮 D 口上的 6 個(gè) LED 數(shù)碼管MOVLW PORTAMOVLW 0EH ；設(shè)置控制寄存器預(yù)分頻比為 1：1MOVWF T1CON ；外部時(shí)鐘源、異步使能振蕩器CLRF COUNT CLRF SECEND_L ；時(shí)、分、秒初始化清 0CLRF SECEND_HCLRF MINUTE_LCLRF MINUTE_HCLRF HOUR_LCLRF HOUR_HBSF T1CON , TMR1ON ；啟動(dòng) TMR1；————————————— *計(jì)時(shí)子程序*——————————LOOPMOVF SECEND_L, 0XORLW 0AHBTFSS STATUS, Z ；測試 Z 位為 0，則順序執(zhí)行，否則跳步GOTO LEDSCAN ；Z 為 0，則運(yùn)算結(jié)果不為 0，查表顯示CLRF SECEND_L ；Z 為 1，則運(yùn)算結(jié)果為 0，秒個(gè)位滿 10，清 0XXX 大學(xué)本科畢業(yè)設(shè)計(jì) 23INCF SECEND_H , 1 ；秒十位自加一MOVF SECEND_H , 0 ；秒十位與 06H 異或XORLW 06HBTFSS STATUS,Z ；測試 Z 位為 0，則順序執(zhí)行，否則跳步GOTO LEDSCAN ；Z 為 0，則運(yùn)算結(jié)果不為 0，查表顯示CLRF SECEND_H ；Z 為 1，則運(yùn)算結(jié)果為 0，秒十位滿 6，清 0INCF MINUTE_L, 1 ；分個(gè)位自加一MOVF MINUTE_L, 0 ；分個(gè)位與 0AH 異或XORLW 0AH BTFSS STATUS, Z ；測試 Z 位為 0，則順序執(zhí)行，否則跳步GOTO LEDSCAN ；Z 為 0，則運(yùn)算結(jié)果不為 0，查表顯示CLRF MINUTE_L ；Z 為 1，則運(yùn)算結(jié)果為 0，分個(gè)位滿 10，清 0INCF MINUTE_H , 1 ；分十位自加一MOVF MINUTE_H , 0 ；分十位與 06H 異或XORLW 06HBTFSS STATUS，Z ；測試 Z 位為 0，則順序執(zhí)行，否則跳步GOTO LEDSCAN ；Z 為 0，則運(yùn)算結(jié)果不為 0，查表顯示CLRF MINUTE_H ；Z 為 1，則運(yùn)算結(jié)果為 0，分十位滿 6，清 0INCF HOUR_L ,1 ；時(shí)個(gè)位自加一MOVF HOUR_L ,0 ；時(shí)個(gè)位與 04H 異或XORLW 04HBTFSS STATUS, Z ；測試 Z 位為 0，則順序執(zhí)行，否則跳步GOTO LEDSCAN ；Z 為 0，則運(yùn)算結(jié)果不為 0，時(shí)個(gè)位未滿 4；查表顯示MOVF HOUR_H, 0 ；時(shí)十位與 02H 異或XORLW 02HBTFSS STATUS, Z ；測試 Z 位為 0，則順序執(zhí)行，否則跳步GOTO LOOP1 ；Z 為 0，則運(yùn)算結(jié)果不為 0，時(shí)十位未滿 2，跳到LOOP1 CLRF SECEND_L ；Z 為 1，則時(shí)十位滿 2，時(shí)鐘滿 24 小時(shí)，對時(shí)鐘清 0CLRF SECEND_H ；時(shí)鐘又從 0 時(shí) 0 分 0 秒開始計(jì)時(shí)CLRF MINUTE_LCLRF MINUTE_HCLRF HOUR_LCLRF HOUR_HGOTO LEDSCAN ；顯示 0 時(shí) 0 分 0 秒LOOP1 MOVF HOUR_L, 0 ；將十個(gè)位的值送入 W 中，然后與 0AH 異或 XORLW 0A BTFSS STATUS, Z ；測試 Z 位為 0，則順序執(zhí)行，否則跳步 GOTO LEDSCAN ；Z 為 0，時(shí)個(gè)位未滿 10，查表顯示 CLRF HOUR_L ；Z 為 1，則時(shí)個(gè)位滿 10，清 0 INCF HOUR_H, 1 ；時(shí)十位自加一；—————————————— *顯示子程序*—————————————LEDSCANMOVF SECEND_L, 0 ；將秒個(gè)位查表送入 D 口顯示XXX 大學(xué)本科畢業(yè)設(shè)計(jì) 24CALL TABLEMOVWF PORTDMOVLW B39。0000000139。 ；A 口控制點(diǎn)亮 D 口上的右一MOVWF PORTACALL DELAY ；調(diào)用延時(shí)子程序 DELAY MOVF SECEND_H, 0 ；將秒十位查表送入 D 口顯示CALL TABLEMOVWF PORTDMOVLW B39。0000001039。 ；A 口控制點(diǎn)亮 D 口上的右邊第二個(gè)數(shù)碼管MOVWF PORTACALL DELAYMOVF MINUTE_L, 0 ；將分個(gè)位查表送入 D 口顯示CALL TABLE1MOVWF PORTDMOVLW B39。0000010039。 ；A 口控制點(diǎn)亮 D 口上的右邊第三個(gè)數(shù)碼管MOVWF PORTACALL DELAYMOVF MINUTE_H, 0 ；將分十位查表送入 D 口顯示CALL TABLEMOVWF PORTDMOVLW B39。0000100039。 ；A 口控制點(diǎn)亮 D 口上的右邊第四MOVWF PORTACALL DELAYMOVF HOUR_L, 0 ；將時(shí)個(gè)位查表送入 D 口顯示CALL TABLE1MOVWF PORTDMOVLW B39。0001000039。 ；A 口控制點(diǎn)亮 D 口上的右邊第五MOVWF PORTACALL DELAYMOVF HOUR_H, 0 ；將時(shí)十位查表送入 D 口顯示CALL TABLEMOVWF PORTDMOVLW B39。0010000039。 ；A 口控制點(diǎn)亮 D 口上的左一個(gè)數(shù)碼管MOVWF PORTACALL DELAY ；調(diào)用延時(shí)子程序 DELAY 為 0，轉(zhuǎn)到顯示子程序BTFSS COUNT,0 ；測試 COUNT 計(jì)數(shù)器位 0 為 1 則跳步，否則順序執(zhí)行GOTO LEDSCAN ；COUNT 計(jì)數(shù)器位 0 為 0，轉(zhuǎn)到顯示子程序CLRF COUNT ；COUNT 計(jì)數(shù)器位 0 為 1，則清 0GOTO LOOP ；轉(zhuǎn)回計(jì)時(shí)子程序；***********************中斷服務(wù)子程序 *************************SERVMOVWF W_TEMP ；保護(hù) WSWAPF STATUS, 0 ；保護(hù) STATUSCLRF STATUS ；不管當(dāng)前處于哪個(gè)體，都設(shè)置體 0 為當(dāng)前體MOVWF STATUS_TEMP ；保存 STATUS 到體 0 上的臨時(shí)寄存器XXX 大學(xué)本科畢業(yè)設(shè)計(jì) 25BTFSC INTCON ，RBIF ；測試是否是 B 口中斷，不是則跳步GOTO RBSERV ；RBIF 位為 1，則跳步轉(zhuǎn)到 B 口中斷執(zhí)行子程序BTFSC PIR1, TMR1IF ；RBIF 位為 0，則測試是否是 TMR1 模塊中斷GOTO T1SERV ；是 TMR1 中斷，則轉(zhuǎn) TMR1 中斷執(zhí)行子程序GOTO RETFIE0 ；不是，則跳步轉(zhuǎn)恢復(fù)現(xiàn)場子程序 RETFIE0；——————————— *TMR1 中斷執(zhí)行子程序 *————————————T1SERVBCF PIR1，TRM1IF ；發(fā)生了溢出，則用軟件清 0MOVLW 80H ；對 TMR1 裝載初始值，即 1 秒溢出初始值MOVWF TMR1HINCF SECEND_L, 1 ；秒個(gè)位自加一BSF COUNT, 0 ；COUNT 計(jì)數(shù)器的位 0 置 1GOTO RETFIE1 ；調(diào)用恢復(fù)現(xiàn)場子程序 RETFIE1 ；————————————*B 口中斷執(zhí)行子程序* ———————————RBSERVBCF INTCON, RBIF ；發(fā)生電平變化后，用軟件清 0BCF T1CON, TMR1ON ；關(guān)閉 TM R1，以節(jié)省功耗BTFSC PORTB, 4 ；測試 B 口位 4 為 0 則跳步，否則順序執(zhí)行GOTO R5 ；位 4 為 1，則按鍵未按下，轉(zhuǎn)到 R5 CALL DELAY1 ；位 4 為 0，則按鍵已按下，調(diào)延時(shí)子程序DELAY1BTFSC PORTB, 4 ；測試按鍵是否已穩(wěn)定按下，否則順序執(zhí)行GOTO R5 ；延時(shí)后按鍵未按下，則轉(zhuǎn) R5GOTO RB4SERV ；按鍵已穩(wěn)定按下，則轉(zhuǎn) RB4SERVR5 BTFSC PORTB, 5 ；測試 B 口位 5 為 0 則跳步，否則順序執(zhí)行GOTO R6 ；位 5 為 1，則按鍵未按下，轉(zhuǎn) R6 CALL DELAY1 ；位 5 為 0，按鍵已按下，調(diào)延時(shí)子程序 DELAY1BTFSC PORTB,5 ；測試按鍵是否已穩(wěn)定按下，否則順序執(zhí)行GOTO R6 ；延時(shí)后按鍵未按下，則轉(zhuǎn) R6 GOTO RB5SERV ；按鍵已穩(wěn)定按下，則轉(zhuǎn) RB5SERV R6 BTFSC PORTB,6 ；測試 B 口位 6 為 0 則跳步，否則順序執(zhí)行GOTO R7 ；位 6 為 1，則按鍵未按下，轉(zhuǎn) R7 CALL DELAY1 ；位 6 為 0，則按鍵已按下，調(diào)延時(shí)子程序 DELAY1BTFSC PORTB,6 ；測試按鍵是否已穩(wěn)定按下，否則順序執(zhí)行GOTO R7 ；延時(shí)后按鍵未按下，則轉(zhuǎn) R7GOTO RB6SERV ；按鍵已穩(wěn)定按下，則轉(zhuǎn) RB6SERVR7 BTFSC PORTB,7 ；測試 B 口位 7 為 0 則跳步，否則順序執(zhí)行GOTO RETFIE0 ；位 7 為 1，轉(zhuǎn)恢復(fù)現(xiàn)場子程序 RETFIE0 CALL DELAY1 ；位 7 為 0，則按鍵已按下，調(diào)延時(shí)子程序 DELAY1BTFSC PORTB,7 ；延時(shí)后再次測試按鍵是否按下GOTO RETFIE0 ；按鍵未按下，轉(zhuǎn)恢復(fù)現(xiàn)場子程序 RETFIE0GOTO RB7SERV ；按鍵已穩(wěn)定按下，則轉(zhuǎn) RB7SERV；控制修改分個(gè)位子程序RB4SERVINCF MINUTE_L, 1 ；分個(gè)位自加一MOVF MINUTE_L, 0 ；分個(gè)位與 0AH 異或XXX 大學(xué)本科畢業(yè)設(shè)計(jì) 26XORLW 0AHBTFSS STATUS, Z ；測試 Z 為 1 則跳步GOTO RETFIE0 ；Z 為 0，則分個(gè)位未滿 10，轉(zhuǎn) RETFIE0 CLRF MINUT