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