ds18b20.s

用的avr icc 开发的atmega16的超声波测距仪模型。

	.module ds18b20.c
	.area text(rom, con, rel)
	.dbfile D:\NEW\ECHO\ds18b20.c
	.dbfunc e resetDS18B20 _resetDS18B20 fc
;        errTime -> R20
	.even
_resetDS18B20::
	xcall push_gset1
	.dbline -1
	.dbline 13
; #include <iom16v.h>
; #include <macros.h>
; #include "ds18b20.h"
; #include "delay.h"
; 
; 
; unsigned char temp_buf[4];
; /**********************************************************************
; functionName: unsigned char resetDS18B20(void)
; description ：DS18B20初始化
; **********************************************************************/
; unsigned char resetDS18B20(void)
; {
	.dbline 14
;    unsigned char errTime=0;
	clr R20
	.dbline 15
;    RLS_DS18B20;		   //释放总线
	cbi 0x14,1
	.dbline 16
;    _NOP();
	nop
	.dbline 17
;    HLD_DS18B20;		   //Maga16控制总线
	sbi 0x14,1
	.dbline 18
;    CLR_DS18B20;		   //强制拉低
	cbi 0x15,1
	.dbline 19
;    ds_delay(254);	   //209.42us
	ldi R16,254
	xcall _ds_delay
	.dbline 20
;    ds_delay(254);
	ldi R16,254
	xcall _ds_delay
	.dbline 21
;    ds_delay(254);
	ldi R16,254
	xcall _ds_delay
	.dbline 23
;    //以上延时大于480us
;    RLS_DS18B20;		   //释放总线,总线自动上拉
	cbi 0x14,1
	.dbline 24
;    _NOP();
	nop
	xjmp L3
L2:
	.dbline 26
;    while(STU_DS18B20)
;    {
	.dbline 27
;       ds_delay(10);//5-15us
	ldi R16,10
	xcall _ds_delay
	.dbline 28
;       errTime++;
	inc R20
	.dbline 29
;       if(errTime>4)
	ldi R24,4
	cp R24,R20
	brsh L5
	.dbline 30
;          return(0x00);	   //如果等带大于约 5.15us*20就返回0x00，报告复位失败（实际上只要等待15-60us）
	clr R16
	xjmp L1
L5:
	.dbline 31
L3:
	.dbline 25
	sbic 0x13,1
	rjmp L2
	.dbline 32
;    }
;    errTime=0;
	clr R20
	xjmp L8
L7:
	.dbline 34
;    while(!(STU_DS18B20))
;    {
	.dbline 35
;       ds_delay(10);//5.15us
	ldi R16,10
	xcall _ds_delay
	.dbline 36
;       errTime++;
	inc R20
	.dbline 37
;       if(errTime>20)
	ldi R24,20
	cp R24,R20
	brsh L10
	.dbline 38
;          return(0x00);     //如果等带大于约 5.15us*50就返回0x00，报告复位失败（实际上只要等待60-240us）
	clr R16
	xjmp L1
L10:
	.dbline 39
L8:
	.dbline 33
	sbis 0x13,1
	rjmp L7
	.dbline 40
;    }
;    return(0xff);
	ldi R16,255
	.dbline -2
L1:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r errTime 20 c
	.dbend
	.dbfunc e readByteDS18B20 _readByteDS18B20 fc
;         retVal -> R20
;              i -> R22
	.even
_readByteDS18B20::
	xcall push_gset2
	.dbline -1
	.dbline 48
; }
; 
; /**********************************************************************
; functionName: unsigned char readByteDS18B20(void)
; description ：读DS18B20一个字节
; **********************************************************************/
; unsigned char readByteDS18B20(void)
; {
	.dbline 50
;    unsigned char i;
;    unsigned char retVal=0;
	clr R20
	.dbline 51
;    RLS_DS18B20;		   //释放总线
	cbi 0x14,1
	.dbline 52
;    for(i=8;i>0;i--)
	ldi R22,8
	xjmp L16
L13:
	.dbline 53
;    {
	.dbline 54
;       retVal>>=1;
	lsr R20
	.dbline 55
;       HLD_DS18B20;	   //Maga16控制总线
	sbi 0x14,1
	.dbline 56
;       CLR_DS18B20;	   //强制拉低
	cbi 0x15,1
	.dbline 57
;      ds_delay(2);	   //延时大于1us
	ldi R16,2
	xcall _ds_delay
	.dbline 58
;       SET_DS18B20;	   //释放总线,DS18B20会将总线强制拉低
	sbi 0x15,1
	.dbline 60
;       //delay_nus(8);
; 	  RLS_DS18B20;		//释放总线
	cbi 0x14,1
	.dbline 61
;       if(STU_DS18B20)
	sbis 0x13,1
	rjmp L17
	.dbline 62
;          retVal|=0x80;
	ori R20,128
L17:
	.dbline 63
	ldi R16,50
	xcall _ds_delay
	.dbline 64
	sbi 0x14,1
	.dbline 65
	sbi 0x15,1
	.dbline 67
L14:
	.dbline 52
	dec R22
L16:
	.dbline 52
	clr R2
	cp R2,R22
	brlo L13
	.dbline 68
;        ds_delay(50); 	//31us
;       HLD_DS18B20;		//释放总线
; 	  SET_DS18B20;	   //释放总线,DS18B20会将总线强制拉低
;       //delay_nus(30);	 	//30.38us
;    }
;    ds_delay(5); 	//2.71us(大于1us就行了)
	ldi R16,5
	xcall _ds_delay
	.dbline 69
;    return(retVal);
	mov R16,R20
	.dbline -2
L12:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r retVal 20 c
	.dbsym r i 22 c
	.dbend
	.dbfunc e writeByteDS18B20 _writeByteDS18B20 fV
;           temp -> R20
;              i -> R22
;             wb -> R10
	.even
_writeByteDS18B20::
	xcall push_gset3
	mov R10,R16
	.dbline -1
	.dbline 77
; }
; 
; /**********************************************************************
; functionName: unsigned char readByteDS18B20(void)
; description ：写DS18B20一个字节
; **********************************************************************/
; void writeByteDS18B20(unsigned char wb)
; {
	.dbline 80
;    unsigned char i;
;    unsigned char temp;
;    RLS_DS18B20;	         	//释放总线
	cbi 0x14,1
	.dbline 81
;    for(i=0;i<8;i++)
	clr R22
	xjmp L23
L20:
	.dbline 82
;    {
	.dbline 83
;       HLD_DS18B20;		//Maga16控制总线
	sbi 0x14,1
	.dbline 84
;       CLR_DS18B20;		//强制拉低
	cbi 0x15,1
	.dbline 85
;       ds_delay(6); 	//14.92us
	ldi R16,6
	xcall _ds_delay
	.dbline 88
; 	  //SET_DS18B20;		//释放总线
; 	  //delay_nus(16);	 	//14.92us
;       temp=wb>>i;
	mov R16,R10
	mov R17,R22
	xcall lsr8
	mov R20,R16
	.dbline 89
;       temp&=0x01;
	andi R20,1
	.dbline 90
;       if(temp)
	breq L24
	.dbline 91
;          SET_DS18B20;		//释放总线
	sbi 0x15,1
	xjmp L25
L24:
	.dbline 93
;       else
;          CLR_DS18B20;		//强制拉低
	cbi 0x15,1
L25:
	.dbline 94
	ldi R16,50
	xcall _ds_delay
	.dbline 96
	sbi 0x15,1
	.dbline 97
	ldi R16,5
	xcall _ds_delay
	.dbline 98
L21:
	.dbline 81
	inc R22
L23:
	.dbline 81
	cpi R22,8
	brlo L20
	.dbline -2
	.dbline 99
;    ds_delay(50);	//30.38us
;       //RLS_DS18B20;		//释放总线
; 	  SET_DS18B20;		//释放总线
;     ds_delay(5); 	//2.71us(大于1us就行了)
;    }
; }
L19:
	xcall pop_gset3
	.dbline 0 ; func end
	ret
	.dbsym r temp 20 c
	.dbsym r i 22 c
	.dbsym r wb 10 c
	.dbend
	.dbfunc e readTempDS18B20 _readTempDS18B20 fi
;              x -> R20,R21
;          tempH -> R20
;          tempL -> R22
	.even
_readTempDS18B20::
	xcall push_gset2
	.dbline -1
	.dbline 106
; 
; /**********************************************************************
; functionName: unsigned int readTempDS18B20(void)
; description ：读DS18B20温度
; **********************************************************************/
; unsigned int readTempDS18B20(void)
; {
	.dbline 112
;    unsigned char tempL,tempH;
;    unsigned int x;
;    //resetDS18B20();
;    //writeByteDS18B20(0xcc); 	//跳过ROM
;    //writeByteDS18B20(0x44);	//启动温度转换
;    delay_nms(1);          //等待1ms
	ldi R16,1
	ldi R17,0
	xcall _delay_nms
	.dbline 113
;    resetDS18B20();
	xcall _resetDS18B20
	.dbline 114
;    writeByteDS18B20(0xcc);	//跳过ROM
	ldi R16,204
	xcall _writeByteDS18B20
	.dbline 115
;    writeByteDS18B20(0xbe);	//读数据
	ldi R16,190
	xcall _writeByteDS18B20
	.dbline 116
;    tempL=readByteDS18B20();
	xcall _readByteDS18B20
	mov R22,R16
	.dbline 117
;    tempH=readByteDS18B20();
	xcall _readByteDS18B20
	mov R20,R16
	.dbline 118
;    x=(tempH<<8)|tempL;
	mov R21,R20
	mov R20,R22
	.dbline 119
;    resetDS18B20();
	xcall _resetDS18B20
	.dbline 120
;    writeByteDS18B20(0xcc); 	//跳过ROM
	ldi R16,204
	xcall _writeByteDS18B20
	.dbline 121
;    writeByteDS18B20(0x44);	//启动温度转换
	ldi R16,68
	xcall _writeByteDS18B20
	.dbline 122
;    return(x);
	movw R16,R20
	.dbline -2
L26:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r x 20 i
	.dbsym r tempH 20 c
	.dbsym r tempL 22 c
	.dbend
	.dbfunc e BCDtoASCII _BCDtoASCII fV
;              j -> R20
;              i -> R22
;           pstr -> R18,R19
;           cBCD -> R16
	.even
_BCDtoASCII::
	xcall push_gset2
	.dbline -1
	.dbline 126
; }
; //压缩BCD码转换成ASCII码
; void BCDtoASCII(unsigned char cBCD,unsigned char *pstr)
; {
	.dbline 128
;    unsigned char i,j;
;    i=cBCD>>4;
	mov R22,R16
	swap R22
	andi R22,#0x0F
	.dbline 129
;    j=cBCD&0x0F;
	mov R20,R16
	andi R20,15
	.dbline 130
;    *pstr++=i+0x30;
	mov R24,R22
	subi R24,208    ; addi 48
	movw R30,R18
	st Z+,R24
	movw R18,R30
	.dbline 131
;    *pstr=j+0x30;
	mov R24,R20
	subi R24,208    ; addi 48
	std z+0,R24
	.dbline -2
	.dbline 132
; }
L27:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r j 20 c
	.dbsym r i 22 c
	.dbsym r pstr 18 pc
	.dbsym r cBCD 16 c
	.dbend
	.dbfunc e Read_Temp _Read_Temp fV
;           temp -> R20,R21
	.even
_Read_Temp::
	xcall push_gset1
	.dbline -1
	.dbline 135
; //读取当前温度并解释
; void Read_Temp(void)
; {
	.dbline 136
;    unsigned int temp=0;
	clr R20
	clr R21
	.dbline 137
;    temp=readTempDS18B20();
	xcall _readTempDS18B20
	movw R20,R16
	.dbline 138
;    BCDtoASCII((temp>>8)&0x0F,&temp_buf[0]);					
	ldi R18,<_temp_buf
	ldi R19,>_temp_buf
	mov R16,R17
	clr R17
	andi R16,15
	andi R17,0
	xcall _BCDtoASCII
	.dbline 139
;    BCDtoASCII((temp>>8)&0x0F,&temp_buf[1]);
	ldi R18,<_temp_buf+1
	ldi R19,>_temp_buf+1
	movw R16,R20
	mov R16,R17
	clr R17
	andi R16,15
	andi R17,0
	xcall _BCDtoASCII
	.dbline 140
;    BCDtoASCII((temp>>4)&0x0F,&temp_buf[2]);					
	ldi R18,<_temp_buf+2
	ldi R19,>_temp_buf+2
	movw R16,R20
	lsr R17
	ror R16
	lsr R17
	ror R16
	lsr R17
	ror R16
	lsr R17
	ror R16
	andi R16,15
	andi R17,0
	xcall _BCDtoASCII
	.dbline 141
;    BCDtoASCII(temp&0x0F,&temp_buf[3]);					
	ldi R18,<_temp_buf+3
	ldi R19,>_temp_buf+3
	mov R16,R20
	andi R16,15
	andi R17,0
	xcall _BCDtoASCII
	.dbline -2
	.dbline 142
; }
L28:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r temp 20 i
	.dbend
	.area bss(ram, con, rel)
	.dbfile D:\NEW\ECHO\ds18b20.c
_temp_buf::
	.blkb 4
	.dbsym e temp_buf _temp_buf A[4:4]c