main.lst

介绍用单片机实现时钟的程序,可共大家学习,交流.

0097 12010E          108                             lcall   digital
009A D51FEB          109                             djnz    1fh,beep1_1
009D C295            110                             clr     beep
009F 22              111                             ret
                     112     
                     113     ;*****************************************************
                     114     ;长鸣一声
                     115     ;*****************************************************
                     116     
00A0 751F1E          117     beep2:                  mov     1fh,#1eh
00A3 D295            118                             setb    beep
00A5 12010E          119     beep2_1:                lcall   digital
00A8 12010E          120                             lcall   digital
00AB 12010E          121                             lcall   digital
00AE 12010E          122                             lcall   digital
00B1 12010E          123                             lcall   digital
00B4 12010E          124                             lcall   digital
A51 MACRO ASSEMBLER  MAIN                                                                 11/17/2007 23:49:28 PAGE     3

00B7 D51FEB          125                             djnz    1fh,beep2_1
00BA C295            126                             clr     beep
00BC 22              127                             ret
                     128     
                     129     ;*****************************************************
                     130     ;短鸣两声
                     131     ;*****************************************************
                     132     
00BD 751F04          133     beep3:                  mov     1fh,#04h
00C0 D295            134                             setb    beep
00C2 12010E          135     beep3_1:                lcall   digital
00C5 12010E          136                             lcall   digital
00C8 12010E          137                             lcall   digital
00CB 12010E          138                             lcall   digital
00CE 12010E          139                             lcall   digital
00D1 12010E          140                             lcall   digital
00D4 D51FEB          141                             djnz    1fh,beep3_1
00D7 C295            142                             clr     beep
00D9 751F04          143                             mov     1fh,#04h
00DC 12010E          144     beep3_2:                lcall   digital
00DF 12010E          145                             lcall   digital
00E2 12010E          146                             lcall   digital
00E5 12010E          147                             lcall   digital
00E8 12010E          148                             lcall   digital
00EB 12010E          149                             lcall   digital
00EE D51FEB          150                             djnz    1fh,beep3_2
00F1 D295            151                             setb    beep
00F3 751F04          152                             mov     1fh,#04h
00F6 12010E          153     beep3_3:                lcall   digital
00F9 12010E          154                             lcall   digital
00FC 12010E          155                             lcall   digital
00FF 12010E          156                             lcall   digital
0102 12010E          157                             lcall   digital
0105 12010E          158                             lcall   digital
0108 D51FEB          159                             djnz    1fh,beep3_3
010B C295            160                             clr     beep
010D 22              161                             ret
                     162     
                     163     ;*****************************************************
                     164     ;数码管显示
                     165     ;*****************************************************
                     166     
010E E508            167     digital:               mov     a,digital_bit                ;根据显示位置读取不同的显示内容
0110 20E018          168                            jb      acc.0,digital_check0
0113 20E11A          169                            jb      acc.1,digital_check1
0116 20E21D          170                            jb      acc.2,digital_check2
0119 20E323          171                            jb      acc.3,digital_check3
011C 20E428          172                            jb      acc.4,digital_check4
011F 20E52F          173                            jb      acc.5,digital_check5
0122 20E636          174                            jb      acc.6,digital_check6
0125 20E73C          175                            jb      acc.7,digital_check7
0128 11A0            176                            call    beep2
012A 22              177                            ret
012B 7810            178     digital_check0:        mov     r0,#digital_byte
012D E6              179                            mov     a,@r0                        ;秒
012E 803B            180                            jmp     digital_display
0130 7810            181     digital_check1:        mov     r0,#digital_byte
0132 08              182                            inc     r0
0133 E6              183                            mov     a,@r0
0134 8035            184                            jmp     digital_display
0136 7810            185     digital_check2:        mov     r0,#digital_byte             ;分
0138 08              186                            inc     r0
0139 08              187                            inc     r0
013A E6              188                            mov     a,@r0
013B D2E4            189                            setb    acc.4                        ;加小数点
013D 802C            190                            jmp     digital_display
A51 MACRO ASSEMBLER  MAIN                                                                 11/17/2007 23:49:28 PAGE     4

013F 7410            191     digital_check3:        mov     a,#digital_byte
0141 2403            192                            add     a,#3
0143 F8              193                            mov     r0,a
0144 E6              194                            mov     a,@r0
0145 8024            195                            jmp     digital_display
0147 7410            196     digital_check4:        mov     a,#digital_byte              ;时
0149 2404            197                            add     a,#4
014B F8              198                            mov     r0,a
014C E6              199                            mov     a,@r0
014D D2E4            200                            setb    acc.4                        ;加小数点
014F 801A            201                            jmp     digital_display
0151 7410            202     digital_check5:        mov     a,#digital_byte
0153 2405            203                            add     a,#5
0155 F8              204                            mov     r0,a
0156 E6              205                            mov     a,@r0
0157 5483            206                            anl     a,#83h                       ;屏蔽无效位
0159 8010            207                            jmp     digital_display
015B 7410            208     digital_check6:        mov     a,#digital_byte
015D 2406            209                            add     a,#6
015F F8              210                            mov     r0,a
0160 7420            211                            mov     a,#20h
0162 8007            212                            jmp     digital_display
0164 7410            213     digital_check7:        mov     a,#digital_byte
0166 2407            214                            add     a,#7
0168 F8              215                            mov     r0,a
0169 7420            216                            mov     a,#20h
                     217     
016B C0E0            218     digital_display:       push    acc
016D E50A            219                            mov     a,digital_flash_time
016F 547F            220                            anl     a,#7fh                       ;最高位表示显示状态：1为显示;0