⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.s

📁 AVR单片机ATmega16(L)应用实例1——风机测试仪
💻 S
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
	.module main.c
	.area lit(rom, con, rel)
_str0::
	.byte 32,'S,'h,'a,'n,'g,'h,'a,'i,32,'H,'o,'n,45,'L,'i
	.byte 0
	.dbfile D:\ac18-1\main.c
	.dbsym e str0 _str0 A[17:17]kc
_str1::
	.byte 32,'E,'l,'e,'c,'t,'r,'o,'n,'i,'c,32,'C,'o,46,32
	.byte 0
	.dbsym e str1 _str1 A[17:17]kc
_str2::
	.byte 'W,'e,'l,'c,'o,'m,'e,32,'t,'o,32,'E,'n,'t,'e,'r
	.byte 0
	.dbsym e str2 _str2 A[17:17]kc
_str3::
	.byte 'T,'e,'s,'t,'i,'n,'g,32,'P,'r,'o,'c,'e,'s,'s,32
	.byte 0
	.dbsym e str3 _str3 A[17:17]kc
_cs0::
	.byte 32,'T,'e,'s,'t,'i,'n,'g,46,46,46,46,46,46,32,32
	.byte 0
	.dbsym e cs0 _cs0 A[17:17]kc
_cs1::
	.byte 'L,'V,'S,58,32,32,32,32,'T,'P,'V,58,32,32,32,32
	.byte 0
	.dbsym e cs1 _cs1 A[17:17]kc
_cs2::
	.byte 'R,'P,'M,58,32,32,32,32,'R,'C,58,32,32,32,32,'A
	.byte 0
	.dbsym e cs2 _cs2 A[17:17]kc
_cs3::
	.byte 'L,'C,58,32,32,32,32,'A,32,32,32,32,32,32,32,32
	.byte 0
	.dbsym e cs3 _cs3 A[17:17]kc
_result::
	.byte 32,'R,'e,'s,'u,'l,'t,46,46,46,46,46,46,32,32,32
	.byte 0
	.dbsym e result _result A[17:17]kc
	.area data(ram, con, rel)
	.dbfile D:\ac18-1\main.c
_status::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile D:\ac18-1\main.c
	.dbsym e status _status c
_OutFlag::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile D:\ac18-1\main.c
	.dbsym e OutFlag _OutFlag c
_cnt::
	.blkb 2
	.area idata
	.word 0
	.area data(ram, con, rel)
	.dbfile D:\ac18-1\main.c
	.dbsym e cnt _cnt i
_display_val::
	.blkb 2
	.area idata
	.word 0
	.area data(ram, con, rel)
	.dbfile D:\ac18-1\main.c
	.dbsym e display_val _display_val i
_current::
	.blkb 2
	.area idata
	.word 0
	.area data(ram, con, rel)
	.dbfile D:\ac18-1\main.c
	.dbsym e current _current i
_Wait10S_Start_Flag::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile D:\ac18-1\main.c
	.dbsym e Wait10S_Start_Flag _Wait10S_Start_Flag c
_Wait10S_End_Flag::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile D:\ac18-1\main.c
	.dbsym e Wait10S_End_Flag _Wait10S_End_Flag c
_Wait6S_Start_Flag::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile D:\ac18-1\main.c
	.dbsym e Wait6S_Start_Flag _Wait6S_Start_Flag c
_Wait6S_End_Flag::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile D:\ac18-1\main.c
	.dbsym e Wait6S_End_Flag _Wait6S_End_Flag c
_Wait2S_Start_Flag::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile D:\ac18-1\main.c
	.dbsym e Wait2S_Start_Flag _Wait2S_Start_Flag c
_Wait2S_End_Flag::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile D:\ac18-1\main.c
	.dbsym e Wait2S_End_Flag _Wait2S_End_Flag c
	.area text(rom, con, rel)
	.dbfile D:\ac18-1\main.c
	.dbfunc e read_T1 _read_T1 fi
;          temp1 -> R18,R19
;          temp2 -> R16,R17
	.even
_read_T1::
	.dbline -1
	.dbline 65
; //ICC-AVR application builder : 2007-7-24 12:41:43
; // Target : M16
; // Crystal: 8.0000Mhz
; #include <iom16v.h>
; #include <macros.h>
; #include "head.h"
; #define uchar unsigned char
; #define uint unsigned int
; #define xtal 8
; 
; extern void WaitForEnable(void);
; extern void LcdWriteData(uchar W);
; extern void LcdWriteCommand(uchar CMD,uchar Attribc);
; extern void InitLcd(void);
; extern void Display(uchar dd);
; extern void DisplayOneChar(uchar x,uchar y,uchar Wdata);
; extern void ePutstr(uchar x,uchar y,uchar const *ptr);
; 
; #define SPEED_0V PORTD|=BIT(PD0)
; #define SPEED_5V PORTD&=~BIT(PD0)
; #define POW_OFF PORTD|=BIT(PD1)
; #define POW_ON PORTD&=~BIT(PD1)
; #define POW_14V PORTD|=BIT(PD2)
; #define POW_27V PORTD&=~BIT(PD2)
; #define AIR_OFF PORTD|=BIT(PD3)
; #define AIR_ON PORTD&=~BIT(PD3) 
; #define LCM_BLCON_OFF PORTD|=BIT(PD4)
; #define LCM_BLCON_ON PORTD&=~BIT(PD4) 
; 
; #define BZ_OFF PORTD|=BIT(PD7)
; #define BZ_ON PORTD&=~BIT(PD7) 			
; 
; const uchar str0[]={" Shanghai Hon-Li"};//欢迎界面
; const uchar str1[]={" Electronic Co. "};//欢迎界面
; const uchar str2[]={"Welcome to Enter"};//欢迎界面
; const uchar str3[]={"Testing Process "};//欢迎界面
; 
; const uchar cs0[]={" Testing......  "};//测试界面
; const uchar cs1[]={"LVS:    TPV:    "};//测试界面
; const uchar cs2[]={"RPM:    RC:    A"};//测试界面
; const uchar cs3[]={"LC:    A        "};//测试界面
; const uchar result[]={" Result......   "};//测试界面
; 
; uchar status=0;
; uchar OutFlag=0;
; uint cnt=0;
; uint display_val=0;
; uint current=0;
; 
; uchar LVS[4];
; uchar TPV[4];
; uchar RPM[4];
; uchar RC[4];
; uchar LC[4];
; 
; uint LLVS,TTPV,RRPM;
; float RRC,LLC;
; 
; uchar Wait10S_Start_Flag=0,Wait10S_End_Flag=0;//10S启动结束标志
; uchar Wait6S_Start_Flag=0,Wait6S_End_Flag=0;//6S启动结束标志
; uchar Wait2S_Start_Flag=0,Wait2S_End_Flag=0;//2S启动结束标志
; 
; /***************读取计数器T1的数据*************/
; uint read_T1(void)
; {uint temp1,temp2;
	.dbline 66
;  temp1=(uint)TCNT1L;
	in R18,0x2c
	clr R19
	.dbline 67
;  temp2=(uint)TCNT1H;
	in R16,0x2d
	clr R17
	.dbline 68
;  temp2=(temp2<<8)+temp1;
	movw R2,R16
	mov R3,R2
	clr R2
	add R2,R18
	adc R3,R19
	movw R16,R2
	.dbline 69
;  return(temp2);
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbsym r temp1 18 i
	.dbsym r temp2 16 i
	.dbend
	.dbfunc e clr_T1 _clr_T1 fV
	.even
_clr_T1::
	.dbline -1
	.dbline 73
; }
; /***************清除计数器T1的数据************/
; void clr_T1(void)
; {
	.dbline 74
; TCNT1L=0x00;TCNT1H=0x00;
	clr R2
	out 0x2c,R2
	.dbline 74
	out 0x2d,R2
	.dbline -2
L2:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e watchdog_init _watchdog_init fV
	.even
_watchdog_init::
	.dbline -1
	.dbline 80
; }
; /*****************watchdog初始化**************/
; //Watchdog initialize
; // prescale: 512K
; void watchdog_init(void)
; {
	.dbline 81
;  WDR(); //this prevents a timout on enabling
	wdr
	.dbline 82
;  WDTCR = 0x0D; //WATCHDOG ENABLED - dont forget to issue WDRs
	ldi R24,13
	out 0x21,R24
	.dbline -2
L3:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e adc_init _adc_init fV
	.even
_adc_init::
	.dbline -1
	.dbline 89
; }
; 
; /******************ADC初始化*********************/
; //ADC initialize
; // Conversion time: 3uS
; void adc_init(void)
; {
	.dbline 90
;  ADCSR = 0x00; //disable adc
	clr R2
	out 0x6,R2
	.dbline 91
;  ADMUX = 0xC0; //select adc input 0
	ldi R24,192
	out 0x7,R24
	.dbline 92
;  ACSR  = 0x80;
	ldi R24,128
	out 0x8,R24
	.dbline 93
;  ADCSR = 0xE1;
	ldi R24,225
	out 0x6,R24
	.dbline -2
L4:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 97
; }
; /*********************端口初始化*********************/
; void port_init(void)
; {
	.dbline 98
;  PORTA = 0xfe;
	ldi R24,254
	out 0x1b,R24
	.dbline 99
;  DDRA  = 0x00;
	clr R2
	out 0x1a,R2
	.dbline 100
;  PORTB = 0x00;
	out 0x18,R2
	.dbline 101
;  DDRB  = 0x0D;
	ldi R24,13
	out 0x17,R24
	.dbline 102
;  PORTC = 0x00; //m103 output only
	out 0x15,R2
	.dbline 103
;  DDRC  = 0xFF;
	ldi R24,255
	out 0x14,R24
	.dbline 104
;  PORTD = 0xff;
	out 0x12,R24
	.dbline 105
;  DDRD  = 0x9F;
	ldi R24,159
	out 0x11,R24
	.dbline -2
L5:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e timer1_init _timer1_init fV
	.even
_timer1_init::
	.dbline -1
	.dbline 114
; }
; 
; /****************计数器T1初始化***********************/
; //TIMER1 initialize - prescale:Falling edge
; // WGM: 0) Normal, TOP=0xFFFF
; // desired value: 1KHz
; // actual value: Out of range
; void timer1_init(void)
; {
	.dbline 115
;  TCCR1B = 0x00; //stop
	clr R2
	out 0x2e,R2
	.dbline 116
;  TCNT1H = 0x00 /*INVALID SETTING*/; //setup
	out 0x2d,R2
	.dbline 117
;  TCNT1L = 0x00 /*INVALID SETTING*/;
	out 0x2c,R2
	.dbline 118
;  OCR1AH = 0x00 /*INVALID SETTING*/;
	out 0x2b,R2
	.dbline 119
;  OCR1AL = 0x00 /*INVALID SETTING*/;
	out 0x2a,R2
	.dbline 120
;  OCR1BH = 0x00 /*INVALID SETTING*/;
	out 0x29,R2
	.dbline 121
;  OCR1BL = 0x00 /*INVALID SETTING*/;
	out 0x28,R2
	.dbline 122
;  ICR1H  = 0x00 /*INVALID SETTING*/;
	out 0x27,R2
	.dbline 123
;  ICR1L  = 0x00 /*INVALID SETTING*/;
	out 0x26,R2
	.dbline 124
;  TCCR1A = 0x00;
	out 0x2f,R2
	.dbline 125
;  TCCR1B = 0x00; //start Timer
	out 0x2e,R2
	.dbline -2
L6:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e timer0_init _timer0_init fV
	.even
_timer0_init::
	.dbline -1
	.dbline 135
;  //TCCR1B = 0x86;
; }
; 
; //*************定时器T0初始化********************
; //TIMER0 initialize - prescale:64
; // WGM: Normal
; // desired value: 1mSec
; // actual value:  1.000mSec (0.0%)
; void timer0_init(void)
; {
	.dbline 136
;  TCCR0 = 0x00; //stop
	clr R2
	out 0x33,R2
	.dbline 137
;  TCNT0 = 0x83; //set count
	ldi R24,131
	out 0x32,R24
	.dbline 138
;  OCR0  = 0x7D;  //set compare
	ldi R24,125
	out 0x3c,R24
	.dbline 139
;  TCCR0 = 0x03; //start timer
	ldi R24,3
	out 0x33,R24
	.dbline -2
L7:
	.dbline 0 ; func end
	ret
	.dbend
	.area vector(rom, abs)
	.org 36
	jmp _timer0_ovf_isr
	.area text(rom, con, rel)
	.dbfile D:\ac18-1\main.c
	.dbfunc e timer0_ovf_isr _timer0_ovf_isr fV
	.even
_timer0_ovf_isr::
	st -y,R2
	st -y,R3
	st -y,R24
	st -y,R25
	in R2,0x3f
	st -y,R2
	.dbline -1
	.dbline 145
; }
; 
; /************************T0  1mS中断*****************************/
; #pragma interrupt_handler timer0_ovf_isr:10
; void timer0_ovf_isr(void)
; {
	.dbline 146
;  TCNT0 = 0x83; //reload counter value
	ldi R24,131
	out 0x32,R24
	.dbline 148
;  //------------------------------------
;  if(Wait10S_Start_Flag==1)
	lds R24,_Wait10S_Start_Flag
	cpi R24,1
	brne L9
	.dbline 149
;  {
	.dbline 150
;  cnt++;
	lds R24,_cnt
	lds R25,_cnt+1
	adiw R24,1
	sts _cnt+1,R25
	sts _cnt,R24
	.dbline 151
;  if(cnt>6000){Wait10S_Start_Flag=0;Wait10S_End_Flag=1;cnt=0;}
	ldi R24,6000
	ldi R25,23
	lds R2,_cnt
	lds R3,_cnt+1
	cp R24,R2
	cpc R25,R3
	brsh L11
	.dbline 151
	.dbline 151
	clr R2
	sts _Wait10S_Start_Flag,R2
	.dbline 151
	ldi R24,1
	sts _Wait10S_End_Flag,R24
	.dbline 151
	clr R3
	sts _cnt+1,R3
	sts _cnt,R2
	.dbline 151
L11:
	.dbline 152
;  }
L9:
	.dbline 154
;  //------------------------------------
;  if(Wait6S_Start_Flag==1)
	lds R24,_Wait6S_Start_Flag
	cpi R24,1
	brne L13
	.dbline 155
;  {
	.dbline 156
;  cnt++;
	lds R24,_cnt
	lds R25,_cnt+1
	adiw R24,1
	sts _cnt+1,R25
	sts _cnt,R24
	.dbline 157
;  if(cnt>6000){Wait6S_Start_Flag=0;Wait6S_End_Flag=1;cnt=0;}
	ldi R24,6000
	ldi R25,23
	lds R2,_cnt
	lds R3,_cnt+1
	cp R24,R2
	cpc R25,R3
	brsh L15
	.dbline 157
	.dbline 157
	clr R2
	sts _Wait6S_Start_Flag,R2
	.dbline 157
	ldi R24,1
	sts _Wait6S_End_Flag,R24
	.dbline 157
	clr R3
	sts _cnt+1,R3
	sts _cnt,R2
	.dbline 157
L15:
	.dbline 158
;  }
L13:
	.dbline 160
;  //------------------------------------
;  if(Wait2S_Start_Flag==1)
	lds R24,_Wait2S_Start_Flag
	cpi R24,1
	brne L17
	.dbline 161
;  {
	.dbline 162
;  cnt++;
	lds R24,_cnt
	lds R25,_cnt+1
	adiw R24,1
	sts _cnt+1,R25
	sts _cnt,R24
	.dbline 163
;  if(cnt>2000){Wait2S_Start_Flag=0;Wait2S_End_Flag=1;cnt=0;}
	ldi R24,2000
	ldi R25,7
	lds R2,_cnt
	lds R3,_cnt+1
	cp R24,R2
	cpc R25,R3
	brsh L19
	.dbline 163
	.dbline 163
	clr R2
	sts _Wait2S_Start_Flag,R2
	.dbline 163
	ldi R24,1
	sts _Wait2S_End_Flag,R24
	.dbline 163
	clr R3
	sts _cnt+1,R3
	sts _cnt,R2
	.dbline 163
L19:
	.dbline 164
L17:
	.dbline -2
L8:
	ld R2,y+
	out 0x3f,R2
	ld R25,y+
	ld R24,y+
	ld R3,y+
	ld R2,y+
	.dbline 0 ; func end
	reti
	.dbend
	.dbfunc e init_devices _init_devices fV
	.even
_init_devices::
	.dbline -1
	.dbline 170
;  }
; }
; 
; /************************器件初始化***************************/
; //call this routine to initialize all peripherals
; void init_devices(void)
; {
	.dbline 172
;  //stop errant interrupts until set up
;  CLI(); //disable all interrupts
	cli
	.dbline 173
;  port_init();
	xcall _port_init
	.dbline 174
;  timer0_init();
	xcall _timer0_init
	.dbline 175
;  timer1_init();
	xcall _timer1_init
	.dbline 176
;  adc_init();
	xcall _adc_init
	.dbline 177
;  MCUCR = 0x00;
	clr R2
	out 0x35,R2
	.dbline 178
;  GICR  = 0x00;
	out 0x3b,R2
	.dbline 179
;  TIMSK = 0x01; //timer interrupt sources
	ldi R24,1
	out 0x39,R24
	.dbline 180
;  SEI(); //re-enable interrupts
	sei
	.dbline 181
;  watchdog_init();
	xcall _watchdog_init
	.dbline -2
L21:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e welcome _welcome fV
	.even
_welcome::
	sbiw R28,2
	.dbline -1
	.dbline 187
;  //all peripherals are now initialized
; }
; 
; /**********************欢迎界面********************/
; void welcome(void)
; {
	.dbline 188
; ePutstr(0,0,str0);
	ldi R24,<_str0
	ldi R25,>_str0
	std y+1,R25
	std y+0,R24
	clr R18
	clr R16
	xcall _ePutstr
	.dbline 189
; ePutstr(0,1,str1);
	ldi R24,<_str1
	ldi R25,>_str1
	std y+1,R25
	std y+0,R24
	ldi R18,1
	clr R16
	xcall _ePutstr
	.dbline 190
; ePutstr(0,2,str2);
	ldi R24,<_str2
	ldi R25,>_str2
	std y+1,R25
	std y+0,R24
	ldi R18,2
	clr R16
	xcall _ePutstr
	.dbline 191
; ePutstr(0,3,str3);
	ldi R24,<_str3
	ldi R25,>_str3
	std y+1,R25
	std y+0,R24
	ldi R18,3
	clr R16
	xcall _ePutstr
	.dbline -2
L22:
	adiw R28,2
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e test_display _test_display fV
	.even
_test_display::
	sbiw R28,2
	.dbline -1
	.dbline 195
; }
; /************************测试界面*************************/
; void test_display(void)
; {
	.dbline 196
; ePutstr(0,0,cs0);
	ldi R24,<_cs0
	ldi R25,>_cs0
	std y+1,R25
	std y+0,R24
	clr R18
	clr R16
	xcall _ePutstr
	.dbline 197
; ePutstr(0,1,cs1);
	ldi R24,<_cs1
	ldi R25,>_cs1
	std y+1,R25
	std y+0,R24
	ldi R18,1
	clr R16
	xcall _ePutstr
	.dbline 198
; ePutstr(0,2,cs2);
	ldi R24,<_cs2
	ldi R25,>_cs2
	std y+1,R25
	std y+0,R24
	ldi R18,2
	clr R16
	xcall _ePutstr
	.dbline 199
; ePutstr(0,3,cs3);
	ldi R24,<_cs3
	ldi R25,>_cs3
	std y+1,R25
	std y+0,R24
	ldi R18,3
	clr R16
	xcall _ePutstr
	.dbline -2
L23:
	adiw R28,2
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e scan_key _scan_key fV
;           temp -> R20
	.even
_scan_key::
	xcall push_gset1
	.dbline -1
	.dbline 203
; }
; /**********************扫描按键**************************/
; void scan_key(void)
; {
	.dbline 205
; uchar temp;
; temp=PINA;
	in R20,0x19
	.dbline 206
; if(temp==0xbe)status++;
	cpi R20,190
	brne L25
	.dbline 206
	lds R24,_status
	subi R24,255    ; addi 1
	sts _status,R24
L25:
	.dbline 207
; Delay_nms(50);
	ldi R16,50
	ldi R17,0
	xcall _Delay_nms
	.dbline -2
L24:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r temp 20 c
	.dbend
	.dbfunc e average _average fi
;          array -> y+0
;            avx -> R20,R21
;              i -> R22
	.even
_average::
	xcall push_gset2
	sbiw R28,20
	.dbline -1
	.dbline 211
; }
; 
; uint average(void)//数字化滤波子函数,取样10次后求平均值
; {
	.dbline 213
; uchar i;
; uint avx=0,array[10];
	clr R20
	clr R21
	.dbline 214
;  for(i=0;i<10;i++)
	clr R22
	xjmp L31
L28:
	.dbline 215
	.dbline 216
	xcall _ADC_Convert
	ldi R24,2
	mul R24,R22
	movw R30,R0
	movw R24,R28
	add R30,R24
	adc R31,R25
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -