93c46-0002.lst

基于51的DS18B20_1Wire温度控制等C,ASM源程序

A51 MACRO ASSEMBLER  93C46_0002                                                           12/20/2006 21:52:42 PAGE     1


MACRO ASSEMBLER A51 V7.08a
OBJECT MODULE PLACED IN 93c46-0002.OBJ
ASSEMBLER INVOKED BY: C:\Keil\C51\BIN\A51.EXE 93c46-0002.asm SET(SMALL) DEBUG EP

LOC  OBJ            LINE     SOURCE

                       1     ;*******************************************************************
                       2     ;*                                                                 *
                       3     ;* ME500单片机开发系统演示程序 - 读写93C46                         *
                       4     ;*                                                                 *
                       5     ;* 8位数码管显示  (跳马灯方式)                                     *
                       6     ;*                                                                 *
                       7     ;* 将演示数据先写入93C46芯片内，再将其数据逐个读出数码管显示。     *
                       8     ;*                                                                 *
                       9     ;* 版本： V1.0 (2006/11/20)                                        *
                      10     ;* 作者： gguoqing (Email: [e-mail])                    *
                      11     ;* 网站： www.willar.com(伟纳电子)   www.mcusj.com(伟纳单片机世界) *
                      12     ;* 时间： 2006/11/20                                               *
                      13     ;*                                                                 *
                      14     ;*【版权】Copyright(C)伟纳电子 www.willar.com  All Rights Reserved *
                      15     ;*【声明】此程序仅用于学习与参考，引用请注明版权和作者信息！       *
                      16     ;*                                                                 *
                      17     ;*******************************************************************
                      18     
                      19     ;------------------------------------------------
                      20     ;             93C46 接口定义
                      21     ;        ORG=0  8位数据存储器结构
                      22     ;-----------------------------------------------
                      23     
  00B4                24                    CS       BIT     P3.4
  00B3                25                    SK       BIT     P3.3
  00B5                26                    DI       BIT     P3.5
  00B6                27                    DO       BIT     P3.6
                      28     ;-----------------------------------------------
                      29     ;           P0 －－－数码管的段码
                      30     ;           P2 －－－数码管的位选
                      31     ;-----------------------------------------------
  0020                32                   ADDR   EQU  20H
  0021                33                  INDATA  EQU  21H
                      34     ;-----------------------------------------------
0000                  35                   ORG  0000H
0000 020030           36                   LJMP  MAIN
0030                  37                   ORG  0030H
                      38     ;-----------------------------------------------
0030 758130           39     MAIN:        MOV   SP,#30H
0033 C2B4             40                  CLR   P3.4
0035 C2B3             41                  CLR   P3.3
0037 D2B5             42                  SETB  P3.5
0039 D2B6             43                  SETB  P3.6
003B 1200AE           44                  LCALL EWEN
003E 1200C1           45                  LCALL ERASE
0041 E4               46                  CLR   A
0042 F520             47                  MOV   ADDR,A
0044 E520             48     WRITE_LP:    MOV   A,ADDR
0046 900156           49                  MOV   DPTR,#TABLE1
0049 93               50                  MOVC  A,@A+DPTR
004A FD               51                  MOV   R5,A
004B AF20             52                  MOV   R7,ADDR
004D 120088           53                  LCALL WRITE
0050 0520             54                  INC   ADDR
0052 E520             55                  MOV   A,ADDR
0054 C3               56                  CLR   C
0055 9408             57                  SUBB  A,#08H
0057 40EB             58                  JC    WRITE_LP
A51 MACRO ASSEMBLER  93C46_0002                                                           12/20/2006 21:52:42 PAGE     2

0059 1200B8           59                  LCALL EWDS
005C 7840             60                  MOV   R0,#40H
005E E4               61                  CLR   A
005F F520             62                  MOV   ADDR,A
0061 AF20             63     MAIN_LP:     MOV   R7,ADDR
0063 12009F           64                  LCALL READ
0066 EF               65                  MOV   A,R7
0067 F6               66                  MOV   @R0,A
0068 08               67                  INC  R0
0069 0520             68                  INC   ADDR
006B AC20             69                  MOV  R4,ADDR
006D 7FFA             70                  MOV   R7,#0FAH
006F 12012B           71                  LCALL DELAYMS
0072 BC08EC           72                  CJNE  R4,#08H,MAIN_LP
                      73     
0075 7840             74     LEDOUT1:     MOV  R0,#40H
0077 7C08             75                  MOV  R4,#08H
0079 747F             76                  MOV  A,#7FH
007B 8680             77     LEDOUT2:     MOV  P0,@R0
007D F5A0             78                  MOV  P2,A
007F 08               79                  INC  R0
0080 03               80                  RR   A
0081 120138           81                  LCALL  Delay4
0084 DCF5             82                  DJNZ  R4,LEDOUT2
0086 80ED             83                  SJMP  LEDOUT1
                      84     ;===========================================================
0088 8D21             85     WRITE:       MOV   indata,R5
008A 8FF0             86                  MOV   B,R7
008C ADF0             87                  MOV   R5,B
008E 7F40             88                  MOV   R7,#40H
0090 1200D0           89                  LCALL INOP
0093 AF21             90                  MOV   R7,indata
0095 120106           91                  LCALL SHIN
0098 C2B4             92                  CLR   P3.4
009A 7F0A             93                  MOV   R7,#0AH
009C 02012B           94                  LJMP  DELAYMS
                      95     ;==========================================================
009F 8FF0             96     READ :       MOV   B,r7
00A1 ADF0             97                  MOV   R5,B
00A3 7F80             98                  MOV   R7,#80H
00A5 1200D0           99                  LCALL INOP
00A8 12011A          100                  LCALL SHOUT
00AB C2B4            101                  CLR   P3.4
00AD 22              102                  RET
                     103     ;==========================================================
00AE 7D60            104     EWEN:        MOV   R5,#60H
00B0 E4              105                  CLR   A
00B1 FF              106                  MOV   R7,A
00B2 1200D0          107                  LCALL INOP
00B5 C2B4            108                  CLR   P3.4
00B7 22              109                  RET
                     110     ;===========================================================
00B8 E4              111     EWDS:        CLR   A
00B9 FD              112                  MOV   R5,A
00BA FF              113                  MOV   R7,A
00BB 1200D0          114                  LCALL INOP
00BE C2B4            115                  CLR   P3.4
00C0 22              116                  RET
                     117     ;==========================================================
00C1 7D40            118     ERASE:       MOV   R5,#40H
00C3 E4              119                  CLR   A
00C4 FF              120                  MOV   R7,A
00C5 1200D0          121                  LCALL INOP
00C8 7F1E            122                  MOV   R7,#1EH
00CA 12012B          123                  LCALL DELAYMS
00CD C2B4            124                  CLR   P3.4
A51 MACRO ASSEMBLER  93C46_0002                                                           12/20/2006 21:52:42 PAGE     3

00CF 22              125                  RET
                     126     ;===========================================================
00D0 C2B3            127     INOP:        CLR   P3.3
00D2 D2B5            128                  SETB  P3.5
00D4 D2B4            129                  SETB  P3.4
00D6 00              130                  NOP
00D7 00              131                  NOP
00D8 D2B3            132                  SETB  P3.3
00DA 00              133                  NOP
00DB 00              134                  NOP
00DC C2B3            135                  CLR   P3.3