【正文】 R4,00H 。清標(biāo)志 START: ACALL ALARM 。兩層外循環(huán)，每層循環(huán) 500ms START1: MOV R7,20 。調(diào)用延時(shí) 5ms ACALL DISPLAY 。是否設(shè)鬧鈴，查詢 ，為一轉(zhuǎn)到 M1，為 0設(shè)置鬧鈴 ACALL SETALARM 。是否設(shè)時(shí)間 ACALL SETCLOCK 。R7=20減 1循環(huán) CPL 。R5為 2，循環(huán)兩次后為 1s INC R0 。判斷 R0為 60,跳轉(zhuǎn) MOV R0,00H 。時(shí)間邏輯，如果為 23： 59分，則全部清零 CJNE R2,05H,L2 。時(shí)的十位為 5 CJNE R3,03H,L4 。將分的個(gè)位清零 MOV R2,00H 。將時(shí)的個(gè)位清零 MOV R4,00H 。絕對(duì)轉(zhuǎn)移到 START L1: INC R1 。絕對(duì)轉(zhuǎn)移到 START L2: INC R2 。分的個(gè)位置 0 5 AJMP START 。時(shí)的個(gè)位為 9跳轉(zhuǎn) INC R4 。將時(shí)的個(gè)位清零 MOV R2,00H 。將分的個(gè)位清零 AJMP START 。時(shí)的個(gè)位加一 MOV R2,00H 。將分的個(gè)位清零 AJMP START 。顯示子程序，把 TABLE的首地址送給 DPTR MOV A,R1 。將對(duì)應(yīng)地址中的量給 A ACALL BIT1 。顯示第二個(gè)字節(jié)，分的高位 MOVC A,A+DPTR 。顯示第二個(gè)字節(jié)，分的高位 MOV A,R3 。將對(duì)應(yīng)地址中的量給 A ACALL BIT3 。顯示第四個(gè)字節(jié)，時(shí)的高位 MOVC A,A+DPTR 。顯示第四個(gè)字節(jié)，時(shí)的高位 RET BIT1: MOV R6,08H 。A帶進(jìn)位左移，移出的最高位存到 C中 MOV ,C 。在 ，將 SETB 。8次循環(huán)，輸入第一個(gè)字節(jié) 8段的值 CLR 。延時(shí) 5ms SETB 。顯示第二個(gè)字節(jié)（分的高位）的子程序 LOOP2: RLC A 。把 C的值給 CLR 。置位 DJNZ R6,LOOP2 。給 ,點(diǎn)亮對(duì)應(yīng)的數(shù)碼管 ACALL DELAY 。置位 6 RET BIT3: MOV R6,08H 。A帶進(jìn)位左移，移出的最高位存到 C中 MOV ,C 。在 ，將 SETB 。8次循環(huán)，輸入第一個(gè)字節(jié) 8段的值 CLR 。延時(shí) 5ms SETB 。顯示第四個(gè)字節(jié)（時(shí)的高位）的子程序 LOOP4: RLC A 。把 C的值給 CLR 。置位 DJNZ R6,LOOP4 。給 ,點(diǎn)亮對(duì)應(yīng)的數(shù)碼管 ACALL DELAY 。置位 RET ALARM: MOV A,R1 。分別判斷，若不等則跳出 MOV A,R2 。判斷分的十位是否相等 ,若不等則跳出 MOV A,R3 。判斷時(shí)的個(gè)位是否相等 ,若不等則跳出 MOV A,R4 。判斷時(shí)的十 位是否相等 ,若不等則跳出 MOV R6,03H 。若各位都相等，則驅(qū)動(dòng)鬧鈴，激活蜂鳴器 SETB 。延時(shí) 5ms CLR 。再延時(shí) 5ms，使頻率為 100赫茲，可調(diào) DJNZ R6,MING 。將數(shù)碼管中顯示的 0~9分別對(duì)應(yīng)的數(shù)存入 TABLE開始的一段程序存儲(chǔ)器中 SETALARM:MOV 40H,R1 。把分的十位保存在 41H MOV 42H,R3 。把時(shí)的十位保存在 43H 7 MOV R1,50H