ad_lcd.s

用于温度采集过程中的数字及模拟两转换程序清单。采用iccavr系列开发工具调试通过。

	.module ad_lcd.c
	.area text(rom, con, rel)
	.dbfile ad_lcd.c
	.dbfunc e adctoasc _adctoasc fpc
;         char_p -> R10,R11
;              i -> R12
;           temp -> R14,R15
;            adc -> R10,R11
	.even
_adctoasc::
	xcall push_gset5
	movw R10,R16
	.dbline -1
	.dbline 22
; /******************************************************
;               双龙电子公司http://www.sl.com.cn
;               AT90S8535--AD转换演示程序(ICCAVR)
; 	                  作者：詹卫前		
; 	使用注意：1、应包含头文件slavr.h
;               2、在工程选项中的Additional Lib中填入slavr
; 		         使用编译器使用附加库文件libslavr.a
; 			  3、使用SL-AVRAD实验设备
;     接线说明：1、PA.0(PIN40)处接电平指示LED的短路块断开
; 			  2、A/D和VX之间的短路块闭合
; 			  3、AREF(PIN32)和AVCC(PIN30)接VCC
; 			  4、AGND(PIN31)接GND												   			  
; *******************************************************/
; #include<iom16v.h>
; #include<slavr.h>
; #include<macros.h>
; unsigned int ad_con;//存放PA0的AD转换结果
; unsigned char adcval[6];//存放电压ASCII码
; /*      将AD结果转换成电压     */
; #define vref   497
; unsigned char * adctoasc(unsigned int adc)
;     {
	.dbline 26
; 	 unsigned int temp;
; 	 unsigned char i;
; 	 unsigned char *char_p;
;      temp=(unsigned int)(((unsigned long)((unsigned long)adc*vref))/1024);
	movw R2,R10
	clr R4
	clr R5
	ldi R20,241
	ldi R21,1
	ldi R22,0
	ldi R23,0
	st -y,R5
	st -y,R4
	st -y,R3
	st -y,R2
	movw R16,R20
	movw R18,R22
	xcall empy32u
	ldi R24,10
	ldi R25,0
	st -y,R24
	xcall lsr32
	movw R14,R16
	.dbline 27
;      for(i=0;i<3;i++)
	clr R12
	xjmp L5
L2:
	.dbline 28
	.dbline 29
	mov R2,R12
	clr R3
	ldi R30,3
	ldi R31,0
	sub R30,R2
	sbc R31,R3
	ldi R24,<_adcval
	ldi R25,>_adcval
	add R30,R24
	adc R31,R25
	ldi R18,10
	ldi R19,0
	movw R16,R14
	xcall mod16u
	movw R24,R16
	adiw R24,48
	std z+0,R24
	.dbline 30
	ldi R18,10
	ldi R19,0
	movw R16,R14
	xcall div16u
	movw R14,R16
	.dbline 31
L3:
	.dbline 27
	inc R12
L5:
	.dbline 27
	mov R24,R12
	cpi R24,3
	brlo L2
	.dbline 32
; 	    {
; 		 adcval[3-i]=temp%10+0x30;
; 		 temp=temp/10;
; 		}
; 	 adcval[0]=adcval[1];
	lds R2,_adcval+1
	sts _adcval,R2
	.dbline 33
; 	 adcval[1]='.';	
	ldi R24,46
	sts _adcval+1,R24
	.dbline 34
; 	 adcval[4]='V';	
	ldi R24,86
	sts _adcval+4,R24
	.dbline 35
; 	 adcval[5]=0;	
	clr R2
	sts _adcval+5,R2
	.dbline 36
; 	 char_p=adcval;
	ldi R24,<_adcval
	ldi R25,>_adcval
	movw R10,R24
	.dbline 37
; 	 return char_p;
	movw R16,R24
	.dbline -2
L1:
	xcall pop_gset5
	.dbline 0 ; func end
	ret
	.dbsym r char_p 10 pc
	.dbsym r i 12 c
	.dbsym r temp 14 i
	.dbsym r adc 10 i
	.dbend
	.area vector(rom, abs)
	.org 56
	jmp _adc_isr
	.area text(rom, con, rel)
	.dbfile ad_lcd.c
	.dbfunc e adc_isr _adc_isr fV
;           temp -> R16,R17
	.even
_adc_isr::
	st -y,R2
	st -y,R3
	st -y,R16
	st -y,R17
	st -y,R30
	in R2,0x3f
	st -y,R2
	.dbline -1
	.dbline 42
; 	}
; /*      AD转换程序     */
; #pragma interrupt_handler adc_isr:15
; void adc_isr(void)
;    {
	.dbline 43
;     unsigned int temp=0;
	clr R16
	clr R17
	xjmp L12
L11:
	.dbline 45
	subi R16,255  ; offset = 1
	sbci R17,255
L12:
	.dbline 44
; 	while(temp<6)
	cpi R16,6
	ldi R30,0
	cpc R17,R30
	brlo L11
	.dbline 46
; 	    temp++;
; 	ad_con=ADC;    
	in R2,0x4
	in R3,0x5
	sts _ad_con+1,R3
	sts _ad_con,R2
	.dbline 47
;    	ADCSR|=(1<<ADSC);//启动转换 			 	 		 
	sbi 0x6,6
	.dbline -2
L10:
	ld R2,y+
	out 0x3f,R2
	ld R30,y+
	ld R17,y+
	ld R16,y+
	ld R3,y+
	ld R2,y+
	.dbline 0 ; func end
	reti
	.dbsym r temp 16 i
	.dbend
	.dbfunc e main _main fV
	.even
_main::
	.dbline -1
	.dbline 51
;    } 
; //将AD转换结果转换成电压数值，然后在LCD上显示   
; void main(void)
; {
	.dbline 52
;  MCUCR=0;
	clr R2
	out 0x35,R2
	.dbline 53
;  ADMUX=0x00;//0通道
	out 0x7,R2
	.dbline 54
;  ADCSR=(1<<ADEN)|(1<<ADSC)|(1<<ADIF)|(1<<ADIE)|0x06;
	ldi R24,222
	out 0x6,R24
	.dbline 55
;  lcd_init();
	xcall _lcd_init
	.dbline 56
;  SEI();
	sei
	xjmp L16
L15:
	.dbline 58
	.dbline 59
	clr R18
	ldi R16,2
	xcall _lcd_gotoxy
	.dbline 60
	ldi R16,<L18
	ldi R17,>L18
	xcall _lcd_puts
	.dbline 61
	ldi R18,1
	ldi R16,2
	xcall _lcd_gotoxy
	.dbline 62
	ldi R16,<L19
	ldi R17,>L19
	xcall _lcd_puts
	.dbline 63
	ldi R18,1
	ldi R16,10
	xcall _lcd_gotoxy
	.dbline 64
	lds R16,_ad_con
	lds R17,_ad_con+1
	xcall _adctoasc
	xcall _lcd_puts
	.dbline 65
	ldi R16,500
	ldi R17,1
	xcall _delay_ms
	.dbline 66
	xcall _lcd_clear
	.dbline 67
L16:
	.dbline 57
	xjmp L15
X0:
	.dbline -2
L14:
	.dbline 0 ; func end
	ret
	.dbend
	.area bss(ram, con, rel)
	.dbfile ad_lcd.c
_adcval::
	.blkb 6
	.dbsym e adcval _adcval A[6:6]c
_ad_con::
	.blkb 2
	.dbsym e ad_con _ad_con i
	.area data(ram, con, rel)
	.dbfile ad_lcd.c
L19:
	.blkb 9
	.area idata
	.byte 'V,'o,'l,'t,'a,'g,'e,58,0
	.area data(ram, con, rel)
	.dbfile ad_lcd.c
L18:
	.blkb 14
	.area idata
	.byte 'A,'D,45,45,'C,'o,'n,'v,'e,'r,'t,'e,'r,0
	.area data(ram, con, rel)
	.dbfile ad_lcd.c