【正文】 ；送時分秒至時間修改單元 MOV TADJAREA+1,MINIT MOV TADJAREA+2,SECOND MOV TPOINT,TADJAREA ；指向修改時間高位地址，以便區(qū)別顯示 CLR ODDEVEN ；設(shè)置高低位標志 LCALL DISPLAY2 ； 6 位顯示 KK: RETI ；設(shè)定時間 TIMESET: CJNE A,0F8H,CLRALL ；定時鍵按下？ JB ADJUST,ROK2 ；已在修改時間，設(shè)定鍵無效 JB TSET,ROK2 ；已在設(shè)定時間，設(shè)定鍵無效 MOV A,TNUM ；取出已設(shè)定定時個數(shù) CJNE A,HNUM,TMST ；判斷是否達到上限 SETB CLRFLAG ；滿則顯示提示信息“ RAMOV” MOV DCODE,0AFH MOV DCODE+1,88H MOV DCODE+2,0ABH MOV DCODE+3,0BBH MOV DCODE+4,0C0H MOV DCODE+5,0E3H LCALL DISPLAY1 ；顯示 LCALL DELAY2S ；延時 2S ROK2: RETI ；中斷返回 TMST: SETB TSET ；置位修改標志位 MOV TSETAREA,0 ；清 0 時 MOV TSETAREA+1,0 ；清 0 分 MOV TPOINT,TSETAREA ；指向設(shè)定定時位置，以便區(qū)別顯示 CLR ODDEVEN ；設(shè)置高低位標志 LCALL DISPLAY3 ； 4 位顯示 RETI CLRALL: CJNE A,0F1H,SUREKEY ；清除鍵按下？ CLR EX0 ；關(guān)外中斷 0 SETB CLRFLAG ；置位正在清除標志位 MOV DCODE,92H ；顯示“ SURE”，確認修改 MOV DCODE+1,0E3H MOV DCODE+2,0AFH 10 MOV DCODE+3,86H MOV DCODE+4,0ACH MOV A,0 ；后面 3 位不顯示 MOV DCODE+5,A LCALL DISPLAY1 WW: SETB JB ,WW LCALL READKEY ；讀鍵 CJNE A,0F9H,ROK3 ；確認鍵按下，清除所有定時點數(shù)據(jù) MOV R0,TNUM ；指向起始位置 MOV R7,HNUM*2+1 ；需要清除的單元個數(shù) MOV A,0 CLRLP: MOV R0,A ；清除 INC R0 DJNZ R7,CLRLP MOV DCODE,88H ；顯示刪除信息“ ALLCLR” MOV DCODE+1,0C7H MOV DCODE+2,0C7H MOV DCODE+3,0A7H MOV DCODE+4,0C7H MOV DCODE+5,0AFH LCALL DISPLAY1 LCALL DELAY2S SETB EX0 ；開外部中斷 0 CLR CLRFLAG ；還原正在清除標志位 ROK3: RETI SUREKEY: CJNE A,0F9H,T1KEY ；確認鍵按下 JNB ADJUST,SS ；修改時間時，確認鍵按下 MOV HOUR,TADJAREA ；記錄下修改的時分秒 MOV MINIT,TADJAREA+1 MOV SECOND,TADJAREA+2 CLR ADJUST ；清除正在修改時間標志位 LCALL DISPLAY RETI SS: JNB TSET,ROK4 ；設(shè)定定時時，確認鍵按下 CLR TSET ；清 0 正在定時標志位 MOV A,TNUM ；保存設(shè)定的定時點數(shù)據(jù) RL A ；乘 2 字節(jié) ADD A,TAREA ；地址加 2 MOV R0,A MOV R0,TSETAREA ；保存設(shè)定定時點的“時” INC R0 ；地址加 1 MOV R0,TSETAREA+1 ；保存設(shè)定定時點的“分” INC TNUM ；設(shè)定定時點個數(shù)加 1 11 LCALL DISPLAY ROK4: RETI T1KEY: CJNE A,0E9H,NUMKEY ；“跑表”鍵按下 JB TSET,ROK4 ；正在設(shè)定定時點，按鍵無效 JB ADJUST,ROK4 ；正在修改時鐘時間，按鍵無效 MOV A,T1COUNT ；修改跑表鍵按下次數(shù) ADD A,1 CJNE A,3,NTX1 ；按下 3 次時回 0 MOV A,0 NTX1: MOV T1COUNT,A CJNE A,1,NTX2 ；按下 1 次，開始跑表 MOV TL1,78H MOV TL1,0ECH MOV A,0 MOV T1HOUR,A MOV T1MINIT,A MOV T1SECOND,A MOV T1MSECOND,A SETB ET1 SETB TR1 SETB T