text11111lcd.lst

温度传感器18B20汇编程序,采用器件默认的12位转化,最大转化时间750微秒 可以将检测到的温度直接显示到AT89C51开发实验板的两个数码管上 显示温度00到99度,很准确哦~~无需校正!

A51 MACRO ASSEMBLER  TEXT11111LCD                                                         06/19/2005 21:05:49 PAGE     1


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

LOC  OBJ            LINE     SOURCE

  00A7                 1           E   EQU P2.7
  00A6                 2     RW  EQU P2.6
  00A5                 3     RS  EQU P2.5
  0080                 4     LW  EQU P0
                       5     
0000                   6     ORG 0000H
0000 020030            7     LJMP LCD
0030                   8     ORG 0030H
                       9     
0030                  10     LCD:
0030 12008D           11     LCALL DELAY1
0033 12008D           12     LCALL DELAY1
                      13     
0036 758001           14     MOV LW,#01H;
0039 12006F           15     LCALL WRITE1
003C 758002           16     MOV LW,#02H;
003F 12006F           17     LCALL WRITE1 
0042 758006           18     MOV LW,#06H;
0045 12006F           19     LCALL WRITE1 
0048 75800C           20     MOV LW,#0CH;
004B 12006F           21     LCALL WRITE1 
004E 758018           22     MOV LW,#18H;
0051 12006F           23     LCALL WRITE1
0054 758038           24     MOV LW,#38H;
0057 12006F           25     LCALL WRITE1
005A 758080           26     MOV LW,#80h;
005D 12006F           27     LCALL WRITE1
                      28     
                      29     
0060                  30     START1:
0060 758080           31     MOV LW,#80H
0063 116F             32     ACALL WRITE1
0065 7441             33     MOV A,#'A'
0067 F580             34     MOV LW,A
0069 12007E           35     LCALL WRITE2
006C 020060           36     LJMP START1
                      37     
006F                  38     WRITE1:  ;写指令
006F C2A5             39     CLR RS
0071 C2A6             40     CLR RW 
0073 C2A7             41     CLR E 
0075 12008D           42     LCALL DELAY1
0078 12008D           43     LCALL DELAY1
007B D2A7             44     SETB E 
007D 22               45     RET
                      46     
007E                  47     WRITE2:  ;写示