18b20lcd.lst

是proteus仿真的另一个实例

A51 MACRO ASSEMBLER  18B20LCD                                                             05/20/2007 20:19:19 PAGE     1


MACRO ASSEMBLER A51 V8.00c
OBJECT MODULE PLACED IN 18b20lcd.OBJ
ASSEMBLER INVOKED BY: C:\KEIL\C51\BIN\KE51.EXE 18b20lcd.asm SET(SMALL) DEBUG EP

LOC  OBJ            LINE     SOURCE

                       1     
                       2     
                       3     
                       4     
                       5     
                       6     
                       7     
                       8     
  0029                 9             TEMPER_L        EQU             29H
  0028                10             TEMPER_H        EQU     28H
  0027                11             T_DF            EQU     27H 
                      12     
  0050                13             FLAG1           BIT     50H
                      14     
  0020                15             A_BIT           EQU     20h 
  0021                16             B_BIT           EQU     21h 
  0022                17             C_BIT           EQU     22H 
  0023                18             D_BIT           EQU     23H 
  0024                19             S_BIT           EQU     24H 
                      20     
                      21     
                      22     
  00B7                23             RS                      BIT     P3.7 
  00B6                24             RW                      BIT     P3.6
  00B5                25             E                       BIT     P3.5
                      26     
0000                  27                     ORG     0000H
0000 020100           28             LJMP    MAIN
0100                  29                     ORG     0100H
0100 12010F           30     MAIN:   LCALL   T_CONVERSION
0103 12019B           31             LCALL   T_FORMAT
0106 1201DF           32             LCALL   DISPLAY
0109 1202A4           33             LCALL   D1S
010C 020100           34             LJMP    MAIN
                      35     
                      36     
010F                  37     T_CONVERSION:
010F 120134           38                     LCALL   INIT_1820
0112 205001           39             JB              FLAG1,T_C0
0115 22               40             RET                     
                      41     
0116 74CC             42     T_C0:   MOV     A,#0CCH 
0118 120161           43             LCALL   WRITE_1820
011B 7444             44             MOV     A,#44H 
011D 120161           45             LCALL   WRITE_1820
0120 1202A4           46             LCALL   D1S  
0123 120134           47             LCALL   INIT_1820
0126 74CC             48             MOV     A,#0CCH 
0128 120161           49             LCALL   WRITE_1820
012B 74BE             50             MOV     A,#0BEH 
012D 120161           51             LCALL   WRITE_1820
0130 120179           52             LCALL   READ_1820
0133 22               53             RET
                      54     
0134                  55     INIT_1820: 
0134 D2A2             56                     SETB    P2.2
0136 00               57                     NOP
0137 C2A2             58                     CLR     P2.2
A51 MACRO ASSEMBLER  18B20LCD                                                             05/20/2007 20:19:19 PAGE     2

                      59     
0139 7903             60                     MOV     R1,#3
013B 786B             61     TSR1:   MOV     R0,#107
013D D8FE             62                     DJNZ    R0,
013F D9FA             63                     DJNZ    R1,TSR1
0141 D2A2             64                     SETB    P2.2 
0143 00               65                     NOP
0144 00               66                     NOP
0145 00               67                     NOP
0146 7825             68                     MOV     R0,#25H
0148 30A205           69     TSR2:   JNB     P2.2,TSR3 
014B D8FB             70                     DJNZ    R0,TSR2  
014D 020155           71                     LJMP    TSR4   
0150 D250             72     TSR3:   SETB    FLAG1   
0152 02015A           73                     LJMP    TSR5
0155 C250             74     TSR4:   CLR     FLAG1   
0157 02015E           75                     LJMP    TSR7
                      76     
015A 7875             77     TSR5:   MOV     R0,#117
015C D8FE             78     TSR6:   DJNZ    R0,TSR6  
015E D2A2             79     TSR7:   SETB    P2.2
0160 22               80                     RET
                      81     
                      82     
                      83     
                      84     
0161                  85     WRITE_1820:  
0161 7A08             86                     MOV     R2,#8
0163 C2A2             87     WR0:    CLR     P2.2
0165 7B06             88             MOV     R3,#6 
0167 DBFE             89             DJNZ    R3,
0169 13               90             RRC     A
016A 92A2             91             MOV     P2.2,C
016C 7B14             92             MOV     R3,#20  
016E DBFE             93             DJNZ    R3,
0170 D2A2             94             SETB    P2.2
0172 00               95             NOP
0173 00               96             NOP
0174 DAED             97             DJNZ    R2,WR0
0176 D2A2             98             SETB    P2.2
0178 22               99             RET
                     100     
                     101     
0179                 102     READ_1820:      
0179 7C02            103                     MOV     R4,#2 
017B 7929            104             MOV     R1,#TEMPER_L 
017D 7A08            105     RE0:    MOV     R2,#8
017F D2A2            106     RE1:    SETB    P2.2
0181 00              107             NOP
0182 00              108             NOP
0183 C2A2            109             CLR     P2.2
0185 00              110             NOP
0186 00              111                     NOP
0187 D2A2            112             SETB    P2.2
0189 7B05            113             MOV     R3,#5
018B DBFE            114             DJNZ    R3, 
018D A2A2            115             MOV     C,P2.2
018F 7B14            116             MOV     R3,#20 
0191 DBFE            117             DJNZ    R3, 
0193 13              118             RRC     A
0194 DAE9            119             DJNZ    R2,RE1
0196 F7              120             MOV     @R1,A
0197 19              121             DEC     R1        
0198 DCE3            122             DJNZ    R4,RE0
019A 22              123             RET
                     124     
A51 MACRO ASSEMBLER  18B20LCD                                                             05/20/2007 20:19:19 PAGE     3

                     125     
019B                 126     T_FORMAT:  
                     127     
                     128     
                     129     
                     130             
019B E529            131                     MOV             A,29H
019D F527            132                     MOV             T_DF,A  
019F 740F            133                     MOV             A,#0FH  
01A1 5527            134                     ANL             A,T_DF
01A3 F523            135                     MOV             D_BIT,A
01A5 E528            136                     MOV             A,28H
                     137     
01A7 30E728          138                     JNB             ACC.7,POSI
01AA C3              139                     CLR             C               
01AB E529            140                     MOV             A,29H
01AD 9401            141                     SUBB    A,#01H
01AF F4              142                     CPL             A
01B0 F527            143                     MOV     T_DF,A  
01B2 740F            144                     MOV             A,#0FH  
01B4 5527            145                     ANL             A,T_DF
01B6 F523            146                     MOV             D_BIT,A
01B8 E528            147                     MOV             A,28H
01BA 9400            148                     SUBB    A,#00H
01BC F4              149                     CPL             A
01BD F528            150                     MOV             28H,A
                     151                     
01BF 21D9            152                     AJMP    NEG
01C1 E527            153     PROD:   MOV             A,T_DF
01C3 A240            154                     MOV     C,40H  
01C5 13              155                     RRC     A
01C6 A241            156                     MOV     C,41H
01C8 13              157                     RRC     A
01C9 A242            158                     MOV     C,42H
01CB 13              159                     RRC     A
01CC A243            160                     MOV     C,43H
01CE 13              161                     RRC     A
01CF F529            162                     MOV     29H,A
01D1 22              163                     RET
01D2 752420          164     POSI:   MOV             S_BIT,#20H 
01D5 31C1            165                     ACALL   PROD
01D7 21DE            166                     AJMP    OUT
01D9 75242D          167     NEG:    MOV             S_BIT,#2DH 
01DC 31C1            168                     ACALL   PROD
                     169     
                     170     
01DE 22              171     OUT:    RET
                     172     
01DF E529            173     DISPLAY:MOV     A,29H  
01E1 75F064          174                     MOV     B,#100   
01E4 84              175                     DIV     AB
01E5 F520            176                     MOV             A_BIT,A
01E7 E5F0            177                     MOV             A,B
01E9 75F00A          178                 MOV         B,#10   
01EC 84              179                     DIV     AB
01ED F521            180                     MOV             B_BIT,A
01EF E5F0            181                     MOV             A,B  
01F1 75F00A          182                     MOV             B,#10
01F4 84              183                     DIV             AB
                     184                     
01F5 85F022          185                     MOV             C_BIT,B
                     186                     
01F8 9002B0          187                     MOV             DPTR,#DFTAB
01FB E523            188                     MOV             A,D_BIT
01FD 93              189                     MOVC    A,@A+DPTR
01FE F523            190                     MOV             D_BIT,A
A51 MACRO ASSEMBLER  18B20LCD                                                             05/20/2007 20:19:19 PAGE     4

                     191                  
0200 7430            192             MOV     A,#30H
0202 4220            193             ORL     A_BIT, A
0204 4221            194             ORL     B_BIT, A