【正文】 umns 43 through 49 7026, 7127 , 7224 , 7317, 7405 , 7489, 7568, // Columns 50 through 56 7643, 7713 , 7778, 7839, 7895 , 7946, 7993, // Columns 57 through 63 8034, 8071, 8103, 8130, 8152, 8169, 8182, // Columns 64 through 70 8189, 8192, 8189, 8182, 8169, 8152, 8130, // Columns 71 through 77 8103 , 8071 , 8034 , 7993 , 7946, 7895 , 7839, // Columns 78 through 84 7778, 7713, 7643 , 7568 , 7489 , 7405 , 7317, // Columns 85 through 91 7224, 7127, 7026 , 6921 , 6811, 6697 , 6579, // Columns 92 through 98 6458, 6332, 6203 , 6069, 5933 , 5792 , 5648, // Columns 99 through 105 5501 , 5350, 5196 , 5040 , 4880 , 4717 , 4551, // Columns 106 through 112 4382 , 4211, 4037, 3861, 3683 , 3502, 3319, // Columns 113 through 119 3134, 2948 , 2759, 2569 , 2378, 2184, 1990, // Columns 120 through 126 1794, 1598, 1400 , 1202, 1002 , 803 , 602, // Columns 127 through 133 402, 201 , 0, 201, 402, 602, 803, // Columns 134 through 140 1002, 1202, 1400, 1598 , 1794, 1990, 2184, // Columns 141 through 147 2378, 2569 , 2759, 2948 , 3134, 3319, 3502, // Columns 148 through 154 3683, 3861 , 4037, 4211, 4382 , 4551, 4717, // Columns 155 through 161 4880, 5040, 5196, 5350, 5501 , 5648 , 5792, // Columns 162 through 168 5933, 6069 , 6203 , 6332, 6458, 6579, 6697, // Columns 169 through 175 6811, 6921, 7026 , 7127 , 7224, 7317 , 7405, // Columns 176 through 182 7489, 7568 , 7643 , 7713 , 7778, 7839, 7895, // Columns 183 through 189 7946, 7993, 8034, 8071 , 8103 , 8130, 8152, // Columns 190 through 196 8169, 8182, 8189, 8192, 8189, 8182, 8169, // Columns 197 through 203 8152, 8130, 8103 , 8071, 8034, 7993 , 7946, // Columns 204 through 210 7895 , 7839, 7778, 7713, 7643, 7568 , 7489, // Columns 211 through 217 7405, 7317, 7224 , 7127, 7026 , 6921, 6811, // Columns 218 through 224 6697, 6579 , 6458, 6332, 6203, 6069 , 5933, // Columns 225 through 231 5792, 5648, 5501 , 5358, 5196 , 5040, 4880,// Columns 232 through 238 4717, 4551, 4382, 4211, 4037, 3861 , 3683, // Columns 239 through 245 3502, 3319 , 3134, 2948 , 2759 , 2569, 2378, // Columns 246 through 252 2184 , 1990 , 1794, 1598 , 1400, 1202, 1002, // Columns 253 through 256 803, 602, 402, 201}。//************************時鐘顯示子程序**************************// DISPLAY: MOV R0,4FH 。設置顯存初值，放置秒位低四位 MOV A,26H 。先分離秒位單元 ACALL SEPAR 。調用數(shù)據(jù)分離子程序 MOV A,27H 。分離分位單元 ACALL SEPAR MOV A,28H 。分離時位單元 ACALL SEPAR MOV R0,4AH 。給緩沖單元值 MOV R2,01H 。左邊的第一位開始顯示 MOV DPTR,SEGT DSLP1: MOV A,00H 。關閉原先的顯示字符 MOV P1,A 。關閉字符送P1口 MOV A,@R0 。取出緩沖單元的值 MOVC A,@A+DPTR 。查表取值 MOV P1,A 。結果送P1口 MOV A,R2 。位選送A CPL A MOV P2,A 。位選送P2口 MOV R4,02H MOV R3,00H 。大概延時1毫秒 DSLP2: DJNZ R3,DSLP2 INC R0 。準備下一個顯示單元 MOV A,R2 。 JB ,EXIT1 。6位顯示完則退出 RL A 。未完則左移一位 MOV R2,A 。移位后再回送R2 AJMP DSLP1 。顯示下一位 EXIT1: RET 。返回 SEPAR: 。數(shù)據(jù)分離子程序 MOV R1,A 。取出存值 ACALL SEPAR1 。先分離低四位 MOV A,R1 。分離高四位 SWAP A SEPAR1: ANL A,0FH MOV @R0,A 。分離值送給顯示緩沖 DEC R0 RET SEGT: DB 0xC0,0xF9,0xA4,0xB0,0x99 DB 0x92,0x82,0xF8,0x80,0x90 RET //********************定時器計時中斷入口************************// CLOCK: PUSH PSW 。保護現(xiàn)場 PUSH ACC MOV TL0,00H 。重賦初值 MOV TH0,4CH DJNZ 25H,RETUNT 。1秒到了嗎？ MOV 25H,14H 。重賦1秒計時初值 MOV A,01H 。 ADD A,26H 。1秒到了則加1 DA A 。十進制調整 MOV 26H,A 。調整后給26H單元 CJNE A,60H,RETUNT 。60秒到了嗎 MOV 26H,00H 。秒單元清零 MOV A,01H 。分單元加1 ADD A,27H 。 DA A 。分十進制調整 MOV 27H,A 。調整后給27H單元 CJNE A,60H,RETUNT 。60分到了嗎 MOV 27H,00H 。分單元清零 MOV A,01H 。時單元加1 ADD A,28H 。 DA A 。時十進制調整 MOV 28H,A 。調整后給28H單元 CJNE A,24H,RETUNT 。24小時到了嗎 MOV 28H,00H 。24小時清零 RETUNT: POP ACC ?；謴同F(xiàn)場 POP PSW RETI 37