【正文】 MMFUN 。=1 時秒表 MOV TL1, 00H 。裝定時器 T1 定時初值 MOV TH1, 4CH 。 DJNZ R2,INTT1OUT 。 秒未到退出中斷（5 斷次） MOV R2,06H 。重裝 秒定時用初值 CPL 02H 。 秒定時到對閃爍標志取反 JB 02H,FLASH1 。02H 位為 1 時顯示單元熄滅 MOV 72H,76H 。02H 位為 0 時正常顯示 MOV 73H,77H 。 MOV 74H,78H 。 MOV 75H,79H 。INTT1OUT: POP PSW 。恢復現(xiàn)場 POP ACC 。 RETI 。中斷退出FLASH1: JB 01H,FLASH2 。01H 位為 1 時，轉(zhuǎn)小時熄滅控制 MOV 72H,7AH 。01H 位為 0 時，熄滅符數(shù)據(jù)放入分 MOV 73H,7AH 。顯示單元（72H73H） ，將不顯示分數(shù)據(jù) MOV 74H,78H 。 MOV 75H,79H 。 AJMP INTT1OUT 。轉(zhuǎn)中斷退出FLASH2: MOV 72H,76H 。01H 位為 1 時，熄滅符數(shù)據(jù)放入小時 MOV 73H,77H 。顯示單元（74H75H） ，小時數(shù)據(jù)將不顯示 MOV 74H,7AH 。 MOV 75H,7AH 。36 / 52 AJMP INTT1OUT 。轉(zhuǎn)中斷退出MMFUN : CLR TR1 MOV A,0F7H 。中斷響應時間同步修正 ,重裝初值（10ms） ADD A,TL1 。低 8 位初值修正 MOV TL1,A 。重裝初值（低 8 位修正值） MOV A,0D8H 。高 8 位初值修正 ADDC A,TH1 。 MOV TH1,A 。重裝初值（高 8 位修正值） SETB TR1 。開啟定時器 T1 MOV R0,61H 。指向秒計時單元（71H72H） ACALL ADD1 。調(diào)用加 1 程序（加 1 秒操作） CLR C 。 MOV A,R3 。 JZ FSS1 。加 1 后為 00，C=0 AJMP OUTT01 。加 1 后不為 00，C=1 FSS1: ACALL CLR0 。大于或等于 60 秒時對秒計時單元清0 MOV R0,63H 。指向分計時單元（76H77H） ACALL ADD1 。分計時單元加 1 分鐘 MOV A,R3 。分數(shù)據(jù)放入 A CLR C 。清進位標志 CJNE A,60H,ADDHH1 。 ADDHH1: JC OUTT01 。小于 60 分時中斷退出 LCALL CLR0 。大于或等于 60 分時分計時單元清0 MOV R0,65H 。指向小時計時單元（78H79H）37 / 52 ACALL ADD1 。小時計時單元加 1 小時 OUTT01: POP PSW ?；謴蜖顟B(tài)字（出棧） POP ACC ?；謴屠奂悠? RETI 。中斷返回 。****************************************。 加 1 子 程 序 。**************************************** ADD1: MOV A,@R0 。取當前計時單元數(shù)據(jù)到 A DEC R0 。指向前一地址 SWAP A 。A 中數(shù)據(jù)高四位與低四位交換 ORL A,@R0 。前一地址中數(shù)據(jù)放入 A 中低四位 ADD A,01H 。A 加 1 操作 DA A 。十進制調(diào)整 MOV R3,A 。移入 R3 寄存器 ANL A,0FH 。高四位變 0 MOV @R0,A 。放回前一地址單元 MOV A,R3 。取回 R3 中暫存數(shù)據(jù) INC R0 。指向當前地址單元 SWAP A 。A 中數(shù)據(jù)高四位與低四位交換 ANL A,0FH 。高四位變 0 MOV @R0,A 。數(shù)據(jù)放入當削地址單元中 RET 。子程序返回。****************************************。 分減 1 子 程 序 。****************************************。 SUB1: MOV A,@R0 。取當前計時單元數(shù)據(jù)到 A DEC R0 。指向前一地址 SWAP A 。A 中數(shù)據(jù)高四位與低四位交換38 / 52 ORL A,@R0 。前一地址中數(shù)據(jù)放入 A 中低四位 JZ SUB11 DEC A 。A 減 1 操作 SUB111: MOV R3,A 。移入 R3 寄存器 ANL A,0FH 。高四位變 0 CLR C 。清進位標志 SUBB A,0AH SUB1111: JC SUB1110 MOV @R0,09H 。大于等于 0AH，為 9 SUB110: MOV A,R3 。取回 R3 中暫存數(shù)據(jù) INC R0 。指向當前地址單元 SWAP A 。A 中數(shù)據(jù)高四位與低四位交換 ANL A,0FH 。高四位變 0 MOV @R0,A 。數(shù)據(jù)放入當削地址單元中 RET 。子程序返回 SUB11: MOV A,59H AJMP SUB111 SUB1110:MOV A,R3 。移入 R3 寄存器 ANL A,0FH 。高四位變 0 MOV @R0,A AJMP SUB110。****************************************。 時減 1 子 程 序 。**************************************** SUBB1:MOV A,@R0 。取當前計時單元數(shù)據(jù)到 A DEC R0 。指向前一地址 SWAP A 。A 中數(shù)據(jù)高四位與低四位交換 ORL A,@R0 。前一地址中數(shù)據(jù)放入 A 中低四位 JZ SUBB11 。00 減 1 為 23（小時） DEC A 。A 減 1 操作39 / 52 SUBB111:MOV R3,A 。移入 R3 寄存器 ANL A,0FH 。高四位變 0 CLR C 。清進位標志 SUBB A,0AH 。時個位大于 9 為 9 SUBB1111: JC SUBB1110 。 MOV @R0,09H 。大于等于 0AH，為 9 SUBB110: MOV A,R3 。取回 R3 中暫存數(shù)據(jù) INC R0 。指向當前地址單元 SWAP A 。A 中數(shù)據(jù)高四位與低四位交換 ANL A,0FH 。高四位變 0 MOV @R0,A 。時十位數(shù)數(shù)據(jù)放入 RET 。子程序返回 SUBB11: MOV A,23H AJMP SUBB111 SUBB1110:MOV A,R3 。時個位小于 0A 不處理 ANL A,0FH 。高四位變 0 MOV @R0,A 。個位移入 AJMP SUBB110。*****************