15487952.lst

用单片机来设计

A51 MACRO ASSEMBLER  _蚰_繽                                                               12/18/2008 15:19:12 PAGE     1


MACRO ASSEMBLER A51 V6.23
OBJECT MODULE PLACED IN 万年历.OBJ
ASSEMBLER INVOKED BY: D:\Program Files\keil\C51\BIN\A51.EXE 万年历.ASM SET(SMALL) DEBUG EP

LOC  OBJ            LINE     SOURCE

  0024                 1     LXFG    EQU     24H             
  0025                 2     FLAG1   EQU     25H             
  0026                 3     A_bit   EQU     26h             
  0027                 4     B_bit   EQU     27h             
  0028                 5     TEMPER_H EQU    28H             
  0029                 6     TEMPER_L EQU    29H             
  0031                 7     XSYS1   EQU     31H             
  0032                 8     XSYS2   EQU     32H            
  0033                 9     DLYS1   EQU     33H             
  0034                10     ZJBL0   EQU     34H             
  0035                11     ZJBL1   EQU     35H            
  0036                12     ZJBL2   EQU     36H             
  0037                13     SHIJI   EQU     37H
  0038                14     NIAN    EQU     38H
  0039                15     YUE     EQU     39H
  003A                16     RII     EQU     3AH
  003B                17     XINQI   EQU     3BH
  003C                18     SHI     EQU     3CH
  003D                19     FEN     EQU     3DH
  003E                20     MIAO    EQU     3EH
  003F                21     XSZJL   EQU     3FH
  0040                22     XSSHIJI1 EQU     40H
  0041                23     XSSHIJI2 EQU     41H
  0042                24     XSNIAN1  EQU     42H
  0043                25     XSNIAN2  EQU     43H
  0044                26     XSYUE1   EQU     44H
  0045                27     XSYUE2   EQU     45H
  0046                28     XSRII1   EQU     46H
  0047                29     XSRII2   EQU     47H
  0048                30     XSXINQI  EQU     48H
  0049                31     XSSHI1   EQU     49H
  004A                32     XSSHI2   EQU     4AH
  004B                33     XSFEN1   EQU     4BH
  004C                34     XSFEN2   EQU     4CH
  004D                35     XSMIAO1  EQU     4DH
  004E                36     XSMIAO2  EQU     4EH
  004F                37     XSWD1    EQU     4FH
  0050                38     XSWD2    EQU     50H
                      39     ;****************************************
  0090                40     TZZJ    EQU     P1.0            
  0091                41     TZSJ    EQU     P1.1            
  0092                42     TZSZ    EQU     P1.2            
  0093                43     TZBC    EQU     P1.3            
  0094                44     CS12    EQU     P1.4            
  0095                45     GW      EQU     P1.5            
  0096                46     SW      EQU     P1.6            
  0097                47     DQ      EQU     P1.7            
  00A0                48     PLAY    EQU     P2              
  00B0                49     DZ54    EQU     P3             
                      50     ;****************************************
0000                  51             ORG 0000H
0000 00               52             NOP
0001 753720           53             MOV     SHIJI,#20H
0004 7C01             54             MOV     R4,#1
0006 120016           55             LCALL   SZCSH
0009 1201FE           56             LCALL   TZRLSZ
000C 00               57             NOP
000D                  58     MAIN:   ;*********************
A51 MACRO ASSEMBLER  _蚰_繽                                                               12/18/2008 15:19:12 PAGE     2

000D 120063           59             LCALL   RDWDSZ
0010 1200FC           60             LCALL   DISPLAY
                      61             ;*********************TZRQ
0013 02000D           62             LJMP    MAIN
                      63     
                      64      ;*********
0016 75B0FF           65     SZCSH:  MOV     P3,#0FFH        
0019 780A             66             MOV     R0,#0AH
001B 7420             67             MOV     A,#20H
001D F2               68             MOVX    @R0,A
001E 00               69             NOP
001F 00               70             NOP
0020 780B             71             MOV     R0,#0BH
0022 7402             72             MOV     A,#02H
0024 F2               73             MOVX    @R0,A
0025 00               74             NOP
0026 00               75             NOP
0027 22               76             RET
                      77      ;*********
0028 75B0FF           78     SZSZZ:  MOV     P3,#0FFH        
002B 780A             79             MOV     R0,#0AH
002D 7420             80             MOV     A,#20H
002F F2               81             MOVX    @R0,A
0030 00               82             NOP
0031 00               83             NOP
0032 780B             84             MOV     R0,#0BH
0034 7482             85             MOV     A,#82H
0036 F2               86             MOVX    @R0,A
0037 00               87             NOP
0038 00               88             NOP
0039 7809             89             MOV     R0,#09H
003B E538             90             MOV     A,NIAN
003D F2               91             MOVX    @R0,A
003E 7808             92             MOV     R0,#08H
0040 E539             93             MOV     A,YUE
0042 F2               94             MOVX    @R0,A
0043 7807             95             MOV     R0,#07H
0045 E53A             96             MOV     A,RII
0047 F2               97             MOVX    @R0,A
0048 7806             98             MOV     R0,#06H
004A E53B             99             MOV     A,XINQI
004C F2              100             MOVX    @R0,A
004D 7804            101             MOV     R0,#04H
004F E53C            102             MOV     A,SHI
0051 F2              103             MOVX    @R0,A
0052 7802            104             MOV     R0,#02H
0054 E53D            105             MOV     A,FEN
0056 F2              106             MOVX    @R0,A
0057 7800            107             MOV     R0,#00H
0059 E53E            108             MOV     A,MIAO
005B F2              109             MOVX    @R0,A
005C 00              110             NOP
005D 780B            111             MOV     R0,#0BH
005F 7402            112             MOV     A,#02H
0061 F2              113             MOVX    @R0,A
0062 22              114             RET
                     115      ;*******************************************************************
0063 120185          116     RDWDSZ: LCALL   GET_TEMPER      
0066 E529            117             MOV     A,TEMPER_L      
0068 A240            118             MOV     C,40H           
006A 13              119             RRC     A
006B A241            120             MOV     C,41H           
006D 13              121             RRC     A
006E A242            122             MOV     C,42H
0070 13              123             RRC     A
0071 A243            124             MOV     C,43H
A51 MACRO ASSEMBLER  _蚰_繽                                                               12/18/2008 15:19:12 PAGE     3

0073 13              125             RRC     A
0074 F529            126             MOV     TEMPER_L,A      
                     127             ;*******