【正文】 HL2 EQU 38HL3 EQU 39HDSPLYP EQU 3AH 。顯示次數(shù)計數(shù)器 LPLMOD BIT 39H 。高兩位顯示方式BRIGHT BIT 3BH 。時間計數(shù)器ADDRES EQU 3DH 。加l子程序參數(shù)IFDEC BIT 20H 。發(fā)光管狀態(tài)位BELL BIT WITCH BIT FKEY BIT 。修改鍵(S2) WORKIN BIT 38H 。關(guān)中斷MOV SP,57H 。選用寄存器組0MOV TMOD,11H 。判斷上電復(fù)位標(biāo)志，無標(biāo)志轉(zhuǎn)冷啟動MOV A,57HCJNE A,55H,CSTART 。有上電復(fù)位標(biāo)志轉(zhuǎn)熱啟動NOPNOPCSTART: MOV P1,0FFH 。計時停止MOV TL0,0B0H 。賦定時器初值MOV R5,00H 。R4為工作模式選擇寄存器MOV ML,00H MOV MH,00H 。時MOV PLYTS,64H 。顯示指針指向顯存單元MOV L0,0AH 。數(shù)碼管之間的發(fā)光二極管SETB LPLMOD 。允許顯示CLR WORKIN 。轉(zhuǎn)開始工作NOPNOPHSTART: MOV SCON,00H 。清中斷優(yōu)先控制寄存器SETB FKEY 。開中斷AJMP BEGIN 。開中斷MAINl: ACALL DISPLAY 。按鍵掃描ACALL DELAY1 。無鍵按下判斷是否到點CLR ET0 。暫停計日寸ACALL MTAB 。置工作標(biāo)志位，開始工作SETB ET0 。開始計時MOV A,R4 。根據(jù)模式轉(zhuǎn)到相應(yīng)程序段MTAB: AJMP WORKlAJMP WORK2AJMP WORK3AJMP WORK4NOPNOPWORKl: WORK2: CLR WITCH 。工作方式3和4：不開繼電器MAIN2: CLR BELL 。判斷是否在定時之中JNZ MAINlMOV A,ML 。判斷時是否為零JNZ MAINl 。停止計時CLR TR0 ACALL KEYI 。返回NOPNOP ORG 0100HROUNT1: MOV A,N 。反向，轉(zhuǎn) LOOP2LOOP1: MOV P2,03H 。延時 DEC A 。B組線圈工作 ACALL DELAY 。A＝0，轉(zhuǎn)DONEJZ DONEMOV P2,0CH 。延時DEC A 。D組線圈工作ACALL DELAY 。A≠0，轉(zhuǎn)LOOP1 JNZ LOOP1AJMP DONE 。反向，A組線圈工作ACALL DELAY 。A＝0，轉(zhuǎn)DONJZ DONEMOV P2,06H 。延時DEC A JZ DONE 。C組線圈工作ACALL DELAY 。D組線圈工作 ACALL DELAY 。A≠0，轉(zhuǎn)LOOP2 JZ DONEJNZ LOOP2DONE: RET DISPLAY:MOV A , 03H 。置顯示緩沖區(qū)首地址MOV R2 , 01H 。形成查表的偏移地址MOVC A , A+PCDIR: MOVX DPTR , AACALL DELAY 。判斷6位是否顯示完畢RL AMOV R2 , AAJMP LOOPLOP1: RETDB 3FH , 06H , 5BH , 4FH , 66H , 6DHDB 7DH , 07H , 7FH , 6FH , 77H , 7CHDB 39H , 5EH , 79H , 71HDELAY: MOV R7 , 04HDELAY1: MOV R6 , 0FFHDELAY2: DJNZ R6 , DELAY2DJNZ R7 , DELAY1RET KEYI: ACALL KS1 。有鍵閉合，跳LK1NI: ACALL DIR 。可能有鍵閉合，延遲12ms，軟件去抖ACALL DIRACALL KS1 。經(jīng)去抖，判鍵確實閉合，跳LK2處理ACALL DIR 。抖動引起，跳KEYILK2: MOV R2,0FEH 。R4為列號計數(shù)器LK4: MOV DPTR,7F01H 。數(shù)據(jù)指針增2，指向PC口INC DPTR MOVX A,DPTR 。0行線為高，無鍵閉合，跳LONE，轉(zhuǎn)判1行MOV A,00H 。跳LKP，計算鍵號LONE: JB ,LTW0 。1行有鍵閉合,首鍵號8→AAJMP LKP LTW0: JB ,LTHR 。2行有鍵閉合,首鍵號10H→AAJMP LKP 。3行線為高，跳NEXT，準(zhǔn)備下一列掃描MOV A,18H 。計算鍵號：首鍵號＋列號=鍵號PUSH ACC 。調(diào)用顯示子程序，延時6msACALL KS1 。判鍵釋放否，未釋放，則循環(huán)POP ACC 。列計數(shù)器加1，為下一列掃描作準(zhǔn)備MOV A,R2 。鍵掃描已掃到最后一列，跳KND，重新進行掃描RL A 。位選碼→R2AJMP LK4 KND: AJMP KEYI KS1: MOV DPTR ,7F01H 。即列線全為低電平MOVX DPTR,A INC DPTR 。指針增1，指向PC口MOVX A,DPTR 。行線取反，如無鍵按下，則A為0。屏蔽無用的高4位RETEND主程序: ML EQU 32H 。MH存放分的十位數(shù)HL EQU 34H 。HH存放小時的十位數(shù)L0 EQU 36H 。顯示數(shù)據(jù)指針PLYTS EQU 3BH 。低兩位顯示方式 HPLMOD BIT 3AH 。DISPLAY子程序參數(shù)TCOUNT EQU 3CH 。加l子程序參數(shù)MAX EQU 3EH 。BCD加法子程序參數(shù)RMOD EQU 3FH LED4 BIT 30H 。功能鍵(S1) MKEY BIT 。工作狀態(tài)指示位MAIN: MOV IE,00H 。設(shè)置堆棧指針MOV PSW,00H 。設(shè)定中斷工作方式為T0和T1MOV A,56HCJNE A,0AAH,CSTART 。無標(biāo)志轉(zhuǎn)冷啟動AJMP HSTART 。冷啟動，全面初始化MOV P3,0FFHMOV TCON,00H 。賦中斷T0初值MOV TH0,3CHMOV TCOUNT,0AH 。R5為一空單元(備用)MOV R4,00H 。分MOV HL,00H MOV HH,00H 。賦顯示次數(shù)初值為100次MOV DSPLYP,L0 。送顯示數(shù)據(jù)“一”MOV L1, 0AHMOV L2,0AHMOV L3,04HSETB LED4 。設(shè)定顯示方式為閃爍SETB HPLMOD SETB BRIGHT 。清工作標(biāo)志，待命AJMP SETUP 。有上電標(biāo)志,熱啟動,清串行口控制MOV IP,00H 。重設(shè)按鍵SETB MKEYSETB EA 。轉(zhuǎn)向繼續(xù)工作NOPNOPSETUP: ETB EA 。調(diào)用顯示JB FKEY,JUDGE 。延時消抖動JB FKEY,JUDGE 。功能鍵被按下CLR TR0 。調(diào)用菜單設(shè)置程序BEGIN: SETB WORKIN 。開中斷SETB TR0 。移入工作模式選擇RL A MOV DPTR,7F01H JMP A+DPTR 。工作方式1和2：開繼電器AJMP MAIN2NOPNOP WORK3: WORK4: SETB WITCH 。ACALL DL05SSETB BELLJUDGE: JNB WORKIN,MAINl 。判斷分是否為零JNZ MAINlMOV A,HH 。若時、分、秒全為零CLR ET0 。調(diào)用到點工作子程序AJMP MAIN 。步進電機步數(shù)→AJNB 00H,LOOP2 。正向，A組線圈工作 ACALL DELAY 。A＝0，轉(zhuǎn)DONEJZ DONEMOV P2,06H 。延時DEC A 。C組線圈工作ACALL DELAY 。A＝0，轉(zhuǎn)DONE JZ DONEMOV P2,09H 。延時DEC A 。A＝0，轉(zhuǎn)DONELOOP2: MOV P2,0CH 。延時DEC A。B組線圈工作 ACALL DELAY 。MOV P2,03H 。延時DEC A MOV P2,09H 。延時DEC A 。初始化MOV DPTR , 7F00HMOVX DPTR , AMOV R0 , 60H 。置位選碼初值MOV A , R2LOOP: MOV DPTR , 7F01HMOVX DPTR , AINC DPTRMOV A , R0ADD A , 0DH 。延時INC R0MOV A , R2