【正文】 RET 。********************************************************************。常數(shù)表格區(qū) 。系統(tǒng)初始化后提示符“ P.”字符代碼表 DISBH:DB 10H,10H,10H,10H,10H,10H,10H,11H 。提示符“ P.”字符序號 。顯示字符段選碼表 (共陽極代碼 ) TAB: DB 0C0H, 0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H 。08 DB 90H, 88H,83H,0C6H,0A1H,86H,8EH,0FFH,0CH,0BFH 。9,A,B,C,D,E,F,滅 ,p. 。********************************************************************。中斷服務(wù)程序 INTR。 INTR: PUSH DPH PUSH DPL PUSH ACC PUSH PSW CLR TR0 CLR RS0 。改變當(dāng) 前寄存器組為組 2 SETB RS1 MOV TH0, 6FH 。重賦定時器初值 MOV TL0, 0FFH DJNZ R3, INTREXIT 。未減至零，轉(zhuǎn)至 INTREXIT MOV R3, 1EH 。減至零重賦“二十分頻器”初值 JS: CLR MOV HIG, STEN MOV LIM, 59H MOV R1, SEC LCALL SYN JB , JM LJMP INTREXIT 26 JM: CLR MOV HIG, MTEN MOV LIM, 59H MOV R1, MIN LCALL SYN JB , JH LJMP INTREXIT JH: CLR MOV HIG, HTEN MOV LIM, 23H MOV R1, HOUR LCALL SYN LJMP INTREXIT SYN: MOV R0, HIG 。將加一程序入口參數(shù)定為十位 MOV A, @R1 。獲取時間值 CJNE A, LIM, L 。時間值未達(dá)到則準(zhǔn)備加一 LJMP RSET 。達(dá)到則跳至 RSET L: LCALL AD 。調(diào)加一子程序 AD MOV A, R2 。更新時間值 MOV @R1, A RET 。重賦時間值程序 RSET RSET: MOV @R0, 00H 。當(dāng)前級非壓縮式高位 DEC R0 MOV @R0, 00H 。當(dāng)前級非壓縮式低位清零 MOV @R1, 00H 。當(dāng)前級壓縮式時間值清零 SETB RET 。中斷出口結(jié)合點 INTREXIT INTREXIT:LCALL TTX 。調(diào)時間值送顯緩子程序 TTX POP PSW 。恢復(fù)當(dāng)前寄存器組的組號 POP ACC 27 POP DPL POP DPH SETB TR0 RETI 。********************************************************************。子程序區(qū) 。 。加一子程序 AD（先加十位，后加個位 ,且十位為高地址單元，個位次之） 。入口： @R0，出口： @R0， R2（壓縮式加一結(jié)果） AD: PUSH DPH PUSH DPL PUSH ACC PUSH PSW SETB RS1 。改變當(dāng)前寄存器組為組 2 CLR RS0 MOV A, @R0 。十位數(shù)送 A DEC R0 SWAP A 。十位數(shù)占高半字節(jié) ORL A, @R0 。個位數(shù)占低半字節(jié) ADD A, 01H 。加 1 DA A 。十進(jìn)制調(diào)整 MOV R2, A 。全值暫存 R2 中 ANL A, 0FH 。屏蔽和的十位 MOV @R0, A 。個位值送顯緩 INC R0 MOV A, R2 SWAP A 。使十位占低半字節(jié) ANL A, 0FH 。屏蔽個位數(shù) MOV @R0, A 。十位值 送顯緩 POP PSW ?；謴?fù)當(dāng)前寄存器組的組號 POP ACC POP DPL POP DPH RET 。時間值送顯緩子程序 TTX 28 TTX: MOV 78H, SONE MOV 79H, STEN MOV 7BH, MONE MOV 7CH, MTEN MOV 7EH, HONE MOV 7FH, HTEN RET 。數(shù)碼管顯示子程序 DISP 。 入口 :7FH,7EH,7DH,7CH,7BH,7AH,79H,78H(LED7,LED6,LED5,LED4,LED3,LED2,LED1,LED0) DISP: PUSH DPH PUSH DPL PUSH ACC PUSH PSW CLR RS1 。改變當(dāng)前寄存器組為組 1 SETB RS0 MOV R1, 78H 。顯示緩沖存儲單元首地址 MOV R2, 0FEH 。從右至左顯示 MOV R5, 08H 。循環(huán)次數(shù)， DISP1:MOV A, @R1 MOV DPTR, TAB MOVCA, @A+DPTR MOV P0, A 。送段控 MOV P2, R2 。送位控 LCALL DL 。延時 1 毫秒 MOV A, R2 。位控碼送 A RL A 。獲得新的位控碼 MOV R2, A 。保存新的位控碼 INC R1 。獲得新的顯示緩沖單元地址 DJNZ R5, DISP1 。循環(huán)沒有結(jié)束則繼續(xù) DISP2: POP PSW ?；謴?fù)當(dāng)前寄存器組 的組號 POP ACC 29 POP DPL POP DPH RET 。延時 1ms 子程序 (晶振頻率 12MHz)DL DL: MOV R7, 02H DL1: MOV R6, 0FFH DL2: DJNZ R6, DL2 DJNZ R7, DL1 RET END