【正文】 延時(shí) 125 毫秒 DELA1: MOV R6,125 DELA2: MOV R5,248 。出棧 RETI 。T1中斷現(xiàn)場(chǎng)保護(hù) PUSH PSW CPL MOV TL1,20H MOV TH1,21H 。去下一個(gè)碼 STOP: CLR TR1 SETB 。啟動(dòng) T1 DEL: LCALL DELAY INC 43H 。加 1 MOVC A,A+DPTR MOV TL1,A 。查表取發(fā)音符 MOVC A,A+DPTR MOV TH1,A 。交換高低四位 DEC A 。取簡(jiǎn)譜碼高四位（音符碼） CJNE A,00H,MUSIC1 。取到的簡(jiǎn)譜碼暫放于 R1 ANL A,0FH 。查表取簡(jiǎn)譜碼 MOVC A, A+DPTR CJNE A,00H,PLAY 。子程序返回 MUSIC: CLR LCALL DISP SETB RET /****************************************************************************************** 音樂(lè)播放 ******************************************************************************************/ START: SETB TR1 SETB ET1 MOV 43H,00H 。相等，則使蜂鳴器響 DSN: POP Acc 。將時(shí)鐘 時(shí) 單元送 A CJNE A,42H,DSN 。將時(shí)鐘 分 單元送 A CJNE A,41H,DSN 。從 PC 口讀入數(shù)據(jù) JNB ,DSN 。鬧鐘警報(bào)子程序，保護(hù)現(xiàn)場(chǎng) PUSH Acc MOV DPTR,0FD02H ?；謴?fù) 現(xiàn)場(chǎng) POP PSW RET 。分別比較日期與設(shè)定生日日期 LCALL START 。從 PC口讀入數(shù)據(jù) JNB ,DSN1 。音樂(lè)播放判斷程序，保護(hù)現(xiàn)場(chǎng) PUSH Acc MOV DPTR,0FD02H 。PB6 鍵調(diào)整年份 ADD A,1 DA A ANL A,0FH MOV 36H,A SJMP KD1 KEY77: MOV A,37H 。PB4 鍵調(diào)整年份 ADD A,1 DA A ANL A,0FH MOV 34H,A SJMP KD1 KEY55: MOV A,35H 。PB2 鍵實(shí)現(xiàn)月的個(gè)位調(diào)整 ADD A,1 CJNE A,2,H11 JMP H22 H11: JC H22 CLR A H22: DA A ANL A,0FH MOV 32H,A SJMP KD1 KEY33: MOV A,33H 。PB0鍵實(shí)現(xiàn)日的個(gè)位的調(diào)整 ADD A,1 DA A ANL A,0FH MOV 30H,A SJMP KD1 KEY11: MOV A,31H 。PB口 MOVX A,DPTR CPL A JZ KD1 LCALL DELAY12MS CPL A JZ KD1 MOVX A,DPTR MOV B,A KW1: MOVX A,DPTR CPL A JNZ KW1 MOV A,B JNB ,KEY00 。延時(shí) 200ms D1: MOV R5,100 D2: NOP DJNZ R5,D2 DJNZ R6,D1 RET DELAY12MS: MOV R6,24 。實(shí)現(xiàn)二極管左移點(diǎn)亮 MOV R7,8 XUN: MOV P1,A CALL DELAY200MS RL A DJNZ R7,XUN MOV P1,0FFH RET /****************************************************************************************** 延時(shí)程序 ******************************************************************************************/ DELAY1S: MOV R7,4 。關(guān)蜂鳴器 LCALL DISPLAY 。分為 0 則跳轉(zhuǎn)至 NEXT2 LJMP OUT1 NEXT2: CLR 。秒為 0 則轉(zhuǎn)至比較分 LJMP OUT1 NEXT1: MOV A,3BH 。小于 24 存入 3CH OUT: RET /****************************************************************************************** 整點(diǎn)報(bào)時(shí) ******************************************************************************************/ BAOSHI: MOV A,3AH 。是否為 24？ JMP J3 JUDGE2: JC CHK_OUT2 J3: CLR A 。2 鍵按下實(shí)現(xiàn)時(shí)加 1 ADD A,1 DA A 。大于等于 60清 0 CHK_OUT1: MOV 3BH,A 。十進(jìn)制調(diào)整 CJNE A,60H,JUDGE1 。小于 60存入 3AH RET KEY1: MOV A,3BH 。是否為 60？ JMP J1 JUDGE: JC CHK_OUT0 J1: CLR A 。1 鍵按下實(shí)現(xiàn)秒加 1 ADD A,1 DA A 。PB 口無(wú)按鍵按下， B 值存入 A JNB ,KEY0 。PB 口 MOVX A,DPTR CPL A JZ KD LCALL DELAY12MS ?；謴?fù)現(xiàn)場(chǎng) POP ACC RETI 。滿(mǎn) 24小時(shí)？ MOV 3CH,0 。分鐘單元清零 MOV A,3CH 。分鐘單元（按 BCD碼）加 1 ADD A,1 DA A MOV 3BH,A CJNE A,60H,DONE 。滿(mǎn) 1 分鐘？ MOV 3AH,0 。滿(mǎn) 1 秒？ MOV 39H,0 MOV A,3AH 。滿(mǎn) 秒？ MOV 38H,0 INC 39H 。保護(hù)現(xiàn)場(chǎng) PUSH PSW INC 38H 。未完繼續(xù) RET TAB2:DB 9,1,2,0,0,0,0,0 。指向顯緩下一個(gè)個(gè)位單元 INC R7 。將內(nèi)容存入 30H37H單元 MOV R2,8 MOV A,0 MOV R7,0 MOV DPTR ,TAB2 SAVE2: MOVC A,A+DPTR MOV R0,A 。未完繼續(xù) RET TAB1:DB 0,3,6,0,0,1,0,2 。指向顯緩下一個(gè)個(gè)位單元 INC R7 。將內(nèi)容存入 30H37H單元 MOV R2,8 MOV A,0 MOV R7,0 MOV DPTR ,TAB1 SAVE: MOVC A,A+DPTR MOV R0,A 。未完繼續(xù) RET 。指向顯緩下一個(gè)個(gè)位單元 INC R0 。交換到低 4位 MOV R1,A 。再取當(dāng)前 BCD 碼 ANL A,0F0H 。送顯緩當(dāng)前個(gè)位單元 INC R1 。取當(dāng)前 BCD 碼 ANL A,0FH 。秒、分、時(shí)單元首地址 MOV R1,30H 。AF,,全亮， D1MS: MOV R7,250 。轉(zhuǎn)下一位顯 示 DISP2: RET TAB: DB 0C0H,0F9H,0A4H,0B0H,99H 。未完 ,字位碼左移 1位 MOV R3,A 。取出字位碼 JB ,DISP2 。保 持顯示 1毫秒 INC R0 。查表得相應(yīng)字段碼 NEXTPC: MOV DPTR,0FE00H MOVX DPTR,A 。輸出字位碼 MOV A,R0 。字位碼初值（從最右位起） MOV A,R3 DISP1: MOV DPTR,0FE01H 。未按下則執(zhí)行功能 3（顯示生日） /****************************************************************************************** 顯示子程序 ***************************