8ds18d20.lst

是proteus仿真的另一个实例

A51 MACRO ASSEMBLER  8DS18D20                                                             05/20/2007 18:20:16 PAGE     1


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

LOC  OBJ            LINE     SOURCE

                       1     
                       2     
                       3     
                       4     
0000                   5       ORG  0000H
                       6     
                       7     
  0029                 8     TEMPER_L  EQU  29H  
  0028                 9     TEMPER_H  EQU  28H  
  0027                10     T_DF    EQU  27H        
  0038                11     FLAG1   EQU  38H        
  0020                12     A_BIT   EQU  20H        
  0021                13     B_BIT   EQU  21H        
  0022                14     C_BIT   EQU  22H        
  0023                15     D_BIT   EQU  23H        
  0024                16     S_BIT   EQU  24H        
0000 120078           17     MAIN:   LCALL   GET_TEMPER 
                      18     
                      19     
                      20     
                      21     
                      22     
                      23             
0003 E529             24                     MOV             A,29H
0005 F527             25                     MOV             T_DF,A  
0007 740F             26                     MOV             A,#0FH  
0009 5527             27                     ANL             A,T_DF
000B F523             28                     MOV             D_BIT,A
000D E528             29                     MOV             A,28H
                      30     
000F 30E728           31                     JNB             ACC.7,POSI
0012 C3               32                     CLR             C               
0013 E529             33                     MOV             A,29H
0015 9401             34                     SUBB    A,#01H
0017 F4               35                     CPL             A
0018 F527             36                     MOV     T_DF,A  
001A 740F             37                     MOV             A,#0FH  
001C 5527             38                     ANL             A,T_DF
001E F523             39                     MOV             D_BIT,A
0020 E528             40                     MOV             A,28H
0022 9400             41                     SUBB    A,#00H
0024 F4               42                     CPL             A
0025 F528             43                     MOV             28H,A
                      44                     
0027 0141             45                     AJMP    NEG
0029 E527             46     PROD:   MOV             A,T_DF
002B A240             47                     MOV     C,40H  
002D 13               48                     RRC     A
002E A241             49                     MOV     C,41H
0030 13               50                     RRC     A
0031 A242             51                     MOV     C,42H
0033 13               52                     RRC     A
0034 A243             53                     MOV     C,43H
0036 13               54                     RRC     A
0037 F529             55                     MOV     29H,A
0039 22               56                     RET
003A 752400           57     POSI:   MOV             S_BIT,#00H 
003D 1129             58                     ACALL   PROD
A51 MACRO ASSEMBLER  8DS18D20                                                             05/20/2007 18:20:16 PAGE     2

003F 0146             59                     AJMP    MAIN1
0041 752440           60     NEG:    MOV             S_BIT,#40H 
0044 1129             61                     ACALL   PROD
0046 1200DB           62     MAIN1:  LCALL  DISPLAY  
                      63     
0049 0100             64                     AJMP    MAIN
                      65     
                      66     
004B                  67     INIT_1820: 
004B D2A2             68                     SETB    p2.2
004D 00               69                     NOP
004E C2A2             70                     CLR     p2.2
                      71     
0050 7903             72                     MOV     R1,#3
0052 786B             73     TSR1:   MOV     R0,#107
0054 D8FE             74                     DJNZ    R0,
0056 D9FA             75                     DJNZ    R1,TSR1
0058 D2A2             76                     SETB    p2.2  
005A 00               77                     NOP
005B 00               78                     NOP
005C 00               79                     NOP
005D 7825             80                     MOV     R0,#25H
005F 30A205           81     TSR2:   JNB     p2.2,TSR3 
0062 D8FB             82                     DJNZ    R0,TSR2  
0064 02006C           83                     LJMP    TSR4
0067 D238             84     TSR3:   SETB    FLAG1   
0069 020071           85                     LJMP    TSR5
006C C238             86     TSR4:   CLR     FLAG1   
006E 020075           87                     LJMP    TSR7
                      88     
0071 7875             89     TSR5:   MOV     R0,#117
0073 D8FE             90     TSR6:   DJNZ    R0,TSR6  
0075 D2A2             91     TSR7:   SETB    p2.2
0077 22               92                     RET
                      93     
                      94     
                      95     
0078                  96     GET_TEMPER: 
0078 D2A2             97                     SETB    p2.2
007A 12004B           98                     LCALL  INIT_1820 
007D 203801           99                     JB              FLAG1,TSS2
0080 22              100                     RET                     
                     101     
0081 74CC            102     TSS2:   MOV     A,#0CCH  
0083 12009F          103                     LCALL  WRITE_1820
0086 7444            104                     MOV     A,#44H   
0088 12009F          105                     LCALL  WRITE_1820
                     106     
                     107     
                     108     
008B 1200DB          109                     LCALL  DISPLAY
                     110     
008E 12004B          111                     LCALL  INIT_1820 
0091 74CC            112                     MOV     A,#0CCH  
0093 12009F          113                     LCALL  WRITE_1820
                     114     
0096 74BE            115                     MOV     A,#0BEH  
0098 12009F          116                     LCALL  WRITE_1820
                     117     
009B 1200B7          118                     LCALL  READ_18200 
                     119     
009E 22              120                     RET
                     121     
                     122     
009F                 123     WRITE_1820: 
009F 7A08            124                     MOV     R2,#8  
A51 MACRO ASSEMBLER  8DS18D20                                                             05/20/2007 18:20:16 PAGE     3

00A1 C3              125                     CLR     C       
00A2 C2A2            126     WR1:    CLR     p2.2
00A4 7B06            127                     MOV     R3,#6
00A6 DBFE            128                     DJNZ    R3,
00A8 13              129                     RRC     A
00A9 92A2            130                     MOV     p2.2,C
00AB 7B17            131                     MOV     R3,#23
00AD DBFE            132                     DJNZ    R3,
00AF D2A2            133                     SETB    p2.2
00B1 00              134                     NOP
00B2 DAEE            135                     DJNZ    R2,WR1
00B4 D2A2            136                     SETB    p2.2
00B6 22              137                     RET
                     138     
                     139     
                     140     
00B7                 141     READ_18200: 
00B7 7C02            142                     MOV     R4,#2   
00B9 7929            143                     MOV     R1,#29H  
00BB 7A08            144     RE00:   MOV     R2,#8  
00BD C3              145     RE01:   CLR     C
00BE D2A2            146                     SETB    p2.2
00C0 00              147                     NOP
00C1 00              148                     NOP
00C2 C2A2            149                     CLR     p2.2
00C4 00              150                     NOP
00C5 00              151                     NOP
00C6 00              152                     NOP
00C7 D2A2            153                     SETB    p2.2
                     154     
00C9 7B09            155                     MOV     R3,#9
00CB DBFE            156     RE10:   DJNZ    R3,RE10
                     157     
00CD A2A2            158                     MOV     C,p2.2
                     159     
00CF 7B17            160                     MOV     R3,#23
00D1 DBFE            161     RE20:   DJNZ    R3,RE20
                     162     
00D3 13              163                     RRC     A
00D4 DAE7            164                     DJNZ    R2,RE01
00D6 F7              165                     MOV     @R1,A
00D7 19              166                     DEC     R1
00D8 DCE1            167                     DJNZ    R4,RE00
00DA 22              168                     RET
                     169