alarm.lst

能显示时间

A51 MACRO ASSEMBLER  ALARM                                                                02/18/2008 20:37:38 PAGE     1


MACRO ASSEMBLER A51 V7.10
OBJECT MODULE PLACED IN alarm.OBJ
ASSEMBLER INVOKED BY: C:\Keil\C51\BIN\A51.EXE alarm.asm SET(SMALL) DEBUG EP

LOC  OBJ            LINE     SOURCE

0000                   1     ORG 0000H
0000 0130              2     AJMP MAIN
001B                   3     ORG 001BH
001B 018F              4     AJMP TIME
000B                   5     ORG 000BH
000B 0200D8            6     LJMP TIMER2
0030                   7     ORG 0030H
0030 758160            8     MAIN:   MOV SP,#60H
                       9     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                             ;;;;;;;;
0033 7840             10             MOV R0,#40H     ;建立译码器对应查找表
0035 763F             11             MOV @R0,#3FH    ;0
0037 08               12             INC R0
0038 7606             13             MOV @R0,#06H    ;1
003A 08               14             INC R0
003B 765B             15             MOV @R0,#5BH    ;2
003D 08               16             INC R0
003E 764F             17             MOV @R0,#4FH    ;3
0040 08               18             INC R0
0041 7666             19             MOV @R0,#66H    ;4
0043 08               20             INC R0
0044 766D             21             MOV @R0,#6DH    ;5
0046 08               22             INC R0
0047 767D             23             MOV @R0,#7DH    ;6
0049 08               24             INC R0
004A 7607             25             MOV @R0,#07H    ;7
004C 08               26             INC R0
004D 767F             27             MOV @R0,#7FH    ;8
004F 08               28             INC R0
0050 766F             29             MOV @R0,#6FH    ;9
0052 753003           30             MOV 30H,#03H
0055 753100           31             MOV 31H,#00H
0058 753250           32             MOV 32H,#50H
005B 752203           33             MOV 22H,#03H
005E 752302           34             MOV 23H,#02H
0061 753F00           35             MOV 3FH,#00H
                      36     
                      37     ;
0064 758911           38             MOV TMOD,#11H
0067 752028           39             MOV 20H,#28H
006A D2AB             40             SETB ET1
006C D2AF             41             SETB EA
006E 75B808           42             MOV IP,#08H     ;中断优先级控制，计时器1为高优先级
0071 758DA6           43             MOV TH1,#0A6H
0074 758B00           44             MOV TL1,#00H
0077 D28E             45             SETB TR1
0079 D2A9             46             SETB ET0
007B 758CF4           47             MOV TH0,#0F4H
007E 758A00           48             MOV TL0,#00H
0081 D28C             49             SETB TR0
                      50     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                             ;;;;;;;;;;;;;;;;
                      51     ;       SJMP $
0083                  52     JMAIN:  
0083 7A7F             53             MOV R2,#07FH
0085 79FF             54     WTEMP:  MOV R1,#0FFH
0087 D9FE             55     TEMP:   DJNZ R1,TEMP
0089 DAFA             56             DJNZ R2,WTEMP
A51 MACRO ASSEMBLER  ALARM                                                                02/18/2008 20:37:38 PAGE     2

                      57     
008B 315A             58             ACALL ALARM
                      59     
008D 0183             60             AJMP JMAIN
                      61     
                      62     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                             ;;;;;;;;;;;;;;;;;;;;;;
                      63     
008F C0D0             64     TIME:   PUSH PSW        
0091 C0E0             65             PUSH ACC
0093 758DA6           66             MOV TH1,#0A6H
0096 758B00           67             MOV TL1,#00H
0099 E520             68             MOV A,20H
009B 9414             69             SUBB A,#14H
009D 6034             70             JZ FOMINI
009F D5202C           71     TMAIN:  DJNZ 20H,RETUNT
00A2 752028           72             MOV 20H,#28H
00A5 7401             73             MOV A,#01H
00A7 2532             74             ADD A,32H
00A9 D4               75             DA A
00AA F532             76             MOV 32H,A
00AC B4601F           77             CJNE A,#60H,RETUNT
00AF 753200           78             MOV 32H,#00H
00B2 7401             79             MOV A,#01H
00B4 2531             80             ADD A,31H
00B6 D4               81             DA A
00B7 F531             82             MOV 31H,A
                      83     ;       ACALL FIV       ;分改变时，检查一次是否到了整5分钟
00B9 3148             84             ACALL ALATIM
00BB B46010           85             CJNE A,#60H,RETUNT
00BE 753100           86             MOV 31H,#00H
00C1 7401             87             MOV A,#01H
00C3 2530             88             ADD A,30H
00C5 D4               89             DA A
00C6 F530             90             MOV 30H,A
00C8 B42403           91             CJNE A,#24H,RETUNT
00CB 753000           92             MOV 30H,#00H
00CE D0E0             93     RETUNT: POP ACC
00D0 D0D0             94             POP PSW
00D2 32               95             RETI
00D3 753C01           96     FOMINI: MOV 3CH,#01H
00D6 019F             97             AJMP TMAIN
                      98     
                      99     
                     100     
00D8 C0D0            101     TIMER2: PUSH PSW
00DA C0E0            102             PUSH ACC
00DC 758CF4          103             MOV TH0,#0F4H   ;计时器2，扫描显示控制
00DF 758A00          104             MOV TL0,#00H
                     105     
00E2 11E9            106             ACALL TDSP
                     107     
00E4 D0E0            108             POP ACC
00E6 D0D0            109             POP PSW
00E8 32              110             RETI
                     111     
                     112     
00E9 E538            113     TDSP:   MOV A,38H
00EB 04              114             INC A
00EC B40702          115             CJNE A,#07H,CREL
00EF 7401            116             MOV A,#01H
00F1 F538            117     CREL:   MOV 38H,A
00F3 14              118             DEC A
00F4 600F            119             JZ A01
00F6 14              120             DEC A
00F7 6012            121             JZ A02
A51 MACRO ASSEMBLER  ALARM                                                                02/18/2008 20:37:38 PAGE     3

00F9 14              122             DEC A
00FA 6016            123             JZ A03
00FC 14              124             DEC A
00FD 6019            125             JZ A04
00FF 14              126             DEC A
0100 601D            127             JZ A05
0102 14              128             DEC A
0103 6020            129             JZ A06
0105 740F            130     A01:    MOV A,#0FH
0107 5532            131             ANL A,32H
0109 212C            132             AJMP RTT2
010B 74F0            133     A02:    MOV A,#0F0H
010D 5532            134             ANL A,32H
010F C4              135             SWAP A
0110 212C            136             AJMP RTT2
0112 740F            137     A03:    MOV A,#0FH
0114 5531            138             ANL A,31H
0116 212C            139             AJMP RTT2
0118 74F0            140     A04:    MOV A,#0F0H
011A 5531            141             ANL A,31H
011C C4              142             SWAP A
011D 212C            143             AJMP RTT2
011F 740F            144     A05:    MOV A,#0FH
0121 5530            145             ANL A,30H
0123 212C            146             AJMP RTT2
0125 74F0            147     A06:    MOV A,#0F0H
0127 5530            148             ANL A,30H
0129 C4              149             SWAP A
012A 212C            150             AJMP RTT2
012C F539            151     RTT2:   MOV 39H,A
012E 3131            152             ACALL DPLAY
0130 22              153             RET
                     154     
0131 A838            155     DPLAY:  MOV R0,38H      ;显示函剩