【正文】 ML8: CLR ； 蜂鳴器響 RET I START1: CLR EA ；關中斷 MOV R7, 30 ；立即數(shù) 30 送 R7 MOV R0, 0L0H MOV R1, 0B0H MOV TMOD, 42H MOV TH0, 80H ； 80H 送 TH0 MOV TH1, 83H ； 83H 送 TH1 MOV TL1, 00H SETB TR0 SETB TR1 SETB EA RET I START2: SETB ；定時 /計數(shù)器 0 外部信號輸入端置 1 NOP NOP CLR 25 RET I STRAT3: DEC R7 ；秒減 1 LCALL DISP ；調(diào)顯示處理程序 MOV A, R7 ； (R7)送累加器 A JZ ML10 CJNZ R7, 00H, ML10 MOV TH1, 83H ；將 83H 送到 TH1 MOV TL1, 00H ；將 00H 送到 TL1 SETB TR1 SETB TR0 SETB EA ；開中斷 LJMP ML11 ML10: CLR ；蜂鳴器響 CLR TR0 ；關閉定時器 T0 CLR TR1 ；關閉定時器 T0 CLR EA ML11: RET I DISP MOV A, R7 MOV B, 2 MUL AB MOV B, A ADD A, 09H MOVC A, A+PC MOV R1, A MOV A, B ADD A, 02H INC A MOVC A, A+PC MOV R0, A RET TAB: DB 0FFH, 40H, 0FFH, 79H, 0FFH, 24H DB 0FFH, 30H, 0FFH, 19H, 0FFH, 12H DB 0FFH, 02H, 0FFH, 78H, 0FFH, 00H DB 0FFH, 10H, 0F9H, 40H, 0F9H, 79H DB 0F9H, 24H, 0F9H, 30H, 0F9H, 19H DB 0F9H, 12H, 0F9H, 02H, 0F9H, 18H DB 0F9H, 00H, 0F9H, 10H, 0A4H, 40H DB 0A4H, 79H, 0A4H, 24H, 0A4H, 30H DB 0A4H, 19H, 0A4H, 12H, 0A4H, 02H DB 0A4H, 78H, 0A4H, 00H, 0A4H, 10H END. ；程序結束 26 主程序框圖 : P1 口 全 置 1 關 閉 顯 示 個位送“ 0”，十位全滅（送 FF） 開 四 個 中 斷 關 提 示 音 十位位碼取低電平（即 0 送到 口） 十 位字符碼送 P0 口 延 時 十位位碼取高電平（即 1 送 口） 延 時 個位位碼取高電平（即 1 送 口） 個位字符碼送 P0 口 個位位碼去低電平（即 0 送 口） 設定中斷方式，下 降沿有效 開 始 27 主程序 : BEEP BIT 00H ORG 0000H LJMP MAIN ORG 0003H ；定義四個中斷的入口地址 LJMP START ORG 000BH LJMP START ORG 0013H LJMP START1 ORG 001BH LJMP START3 ORG 0030H MAIN : MOV P1, 0FFH ； P1 口全置 1 SETB ； 串行輸入端置 1 SETB ；串行輸出端置 1 CLR BEEP ；清零 MOV R0, 40H ；個位送 “0” MOV R1, 0FFH ；十位全滅 MOV IP, 01H MOV IE, 8FH LOOP: CLR ； 串行輸入端清零 MOV P0, R1 LCALL DEL ；延時 SETB CLR MOV P0, R0 LCALL DEL ； 延時 SETB ； 串行輸出端置 1 SJMP LOOP 28 延時程序 : DEL: MOV R4, 20H ；立即數(shù)送 R4 DLY1: MOV R3, 49 ；立即數(shù)送 R4 DLY2: DJNZ R3, DLY2 ；（ R3） — 1 不為 0，繼續(xù) DJNZ R4, DLY1 ；（ R4） — 1 不為 0，繼續(xù) RET ；返回 開始 20H 送 R4 49 送 R3 (R3)— 1=0? (R4)— 1=0? 返回 29 顯示處理程序 : DISP: MOV DPTR,TAB MOV A,R7 ； (R7)送 A,立即數(shù) 10 送 B MOV B,10 ；秒數(shù)分解成十位 ,個位 DIV AB CJNZ A,00H,MLR MOV A,0AH ML12:MOV A,A+DPTR MOV R0,A ；取個位字符碼送 R0 RET TAB:DB 00H,0F9H,0A4H,0B0H,99H DB 92H,82H,0F8H,80H,90H,0FFH 開始 表首址送到 DPTR (R7)送 A,立即數(shù) 10 送 B 秒數(shù)分解成十位 ,個位 十位值 =0? 0AH 送 A(不顯示 ) 取十位字符碼送 R1 B 送 A 取個位字符碼送 R0 返回 30 INT0 中斷服務程序 : 開始 關中斷 P1 口數(shù)據(jù)送 A (A)=FEH? 1 字符碼送 P0 口 置 0 亮燈 (A)=FDH? “2”字符碼送 P0口 口置 0 亮燈 (A)=FBH? “3”字符碼送 P0口 口置 0,亮燈 (A)=F7H? “4”字符碼送 P0口 1 2 3 置 0,亮燈 2 1 (A)=EFH? 3 “5”字符碼送 P0口 置 0,亮燈 (A)=DFH? “6”字符碼送 P0口 置 0,亮燈 (A)=BFH? “7”字符碼送 P0口 置 0,亮燈 (A)=7FH? “8”字符碼送 P0口 置 0,亮燈 置 0,報警 返回 31 START0: CLR EA MOV A, P1 ML0: CJNE A, 0FEH, ML1 ； 1”字符碼送 P0 口 MOV R0, 0F9H CLR SJMP ML8 ML1: CJNE A, 0FEH, ML2 ； 2 字符碼送 P0 口 MOV R0, 0A4H CLR SJMP ML8 ML2: CJNE A, 0FBH, ML3 ； “3 字符碼送 P0 口 MOV R0, 0B0H CLR SJMP ML8 ML3: CJNE A, 0F7H, ML4 ； “4 字符碼送 P0 口 MOV R0, 99H CLR SJMP ML8 ML4: CJNE A, 0EFH, ML5 ； “5 字符碼送 P0 口 MOV R0, 92H CLR SJMP ML8 ML5: CJNE A, 0DFH, ML6 ； “6 字符碼送 P0 口