adc.s

atmega8的片内A/D转换操作

	.module adc.c
	.area text(rom, con, rel)
	.dbfile ./74164.h
	.dbfunc e write164 _write164 fV
;             ch -> R20
;              i -> R22
;              x -> R16
	.even
_write164::
	rcall push_gset2
	.dbline -1
	.dbline 2
; //ICC-AVR application builder : 2005-3-1 22:02:29
; // Target : M8
	.dbline 5
; // Crystal: 8.0000Mhz
; 
; #include <iom8v.h>
	mov R20,R16
	.dbline 6
; #include <macros.h>
	cbi 0x18,0
	.dbline 7
; #include <74164.h>
	cbi 0x12,6
	.dbline 8
	clr R22
	rjmp L5
L2:
	.dbline 8
; 
	.dbline 9
; unsigned char    display[4];  // 显示缓冲区
	sbrs R20,7
	rjmp L6
	.dbline 10
; unsigned char    dis;         // 当前显示
	sbi 0x12,7
	rjmp L7
L6:
	.dbline 12
; unsigned int     adc;          // 保存AD转换的值
; unsigned char    time;        // AD转换的时间间隔
	cbi 0x12,7
L7:
	.dbline 13
	lsl R20
	.dbline 14
	sbi 0x12,6
	.dbline 15
	nop
	.dbline 16
	cbi 0x12,6
	.dbline 17
L3:
	.dbline 8
	inc R22
L5:
	.dbline 8
	cpi R22,8
	brlo L2
	.dbline 18
; 
; 
; //TIMER0 initialisation - prescale:256
; // WGM: Normal
; // desired value: 5mSec
; // actual value:  4.992mSec (0.2%)
	sbi 0x18,0
	.dbline -2
	.dbline 19
; void timer0_init(void)
L1:
	rcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r ch 20 c
	.dbsym r i 22 c
	.dbsym r x 16 c
	.dbend
	.dbfile D:\job\avrtest\web\example\ad\adc.c
	.dbfunc e timer0_init _timer0_init fV
	.even
_timer0_init::
	.dbline -1
	.dbline 20
; {
	.dbline 21
;  TCCR0 = 0x00; //stop
	clr R2
	out 0x33,R2
	.dbline 22
;  TCNT0 = 0x64; //set count
	ldi R24,100
	out 0x32,R24
	.dbline 23
;  TCCR0 = 0x04; //start timer
	ldi R24,4
	out 0x33,R24
	.dbline -2
	.dbline 24
; }
L8:
	.dbline 0 ; func end
	ret
	.dbend
	.area vector(rom, abs)
	.org 18
	rjmp _timer0_ovf_isr
	.area text(rom, con, rel)
	.dbfile D:\job\avrtest\web\example\ad\adc.c
	.dbfunc e timer0_ovf_isr _timer0_ovf_isr fV
	.even
_timer0_ovf_isr::
	rcall push_lset
	rcall push_gset1
	.dbline -1
	.dbline 28
; 
; #pragma interrupt_handler timer0_ovf_isr:10
; void timer0_ovf_isr(void)
; {
	.dbline 29
;  TCNT0 = 0x64; //reload counter value
	ldi R24,100
	out 0x32,R24
	.dbline 31
; //  ad
;     if(++time == 40){
	lds R24,_time
	subi R24,255    ; addi 1
	mov R2,R24
	sts _time,R2
	cpi R24,40
	breq X2
	rjmp L10
X2:
	.dbline 31
	.dbline 32
;         time = 0;
	clr R2
	sts _time,R2
	.dbline 33
;         ADCSR = 0xC6;               //  开始转换
	ldi R24,198
	out 0x6,R24
L12:
	.dbline 34
L13:
	.dbline 34
;         while(!(ADCSR & 0x10));     //  等待转换完成
	sbis 0x6,4
	rjmp L12
	.dbline 35
;         adc = ADCL;
	in R2,0x4
	clr R3
	sts _adc+1,R3
	sts _adc,R2
	.dbline 36
;         adc |= (int)(ADCH << 8);    //  注意顺序
	in R2,0x5
	clr R3
	mov R3,R2
	clr R2
	lds R4,_adc
	lds R5,_adc+1
	or R4,R2
	or R5,R3
	sts _adc+1,R5
	sts _adc,R4
	.dbline 37
;         ADCSR = 0x10;               //  停止
	ldi R24,16
	out 0x6,R24
	.dbline 38
;         display[0] = adc%10;
	ldi R18,10
	ldi R19,0
	movw R16,R4
	rcall mod16u
	sts _display,R16
	.dbline 39
;         adc = adc / 10;
	ldi R18,10
	ldi R19,0
	lds R16,_adc
	lds R17,_adc+1
	rcall div16u
	sts _adc+1,R17
	sts _adc,R16
	.dbline 40
;         display[1] = adc%10;
	ldi R18,10
	ldi R19,0
	rcall mod16u
	sts _display+1,R16
	.dbline 41
;         adc = adc / 10;
	ldi R18,10
	ldi R19,0
	lds R16,_adc
	lds R17,_adc+1
	rcall div16u
	sts _adc+1,R17
	sts _adc,R16
	.dbline 42
;         display[2] = adc%10;
	ldi R18,10
	ldi R19,0
	rcall mod16u
	sts _display+2,R16
	.dbline 43
;         adc = adc / 10;
	ldi R18,10
	ldi R19,0
	lds R16,_adc
	lds R17,_adc+1
	rcall div16u
	sts _adc+1,R17
	sts _adc,R16
	.dbline 44
;         display[3] = adc%10;
	ldi R18,10
	ldi R19,0
	rcall mod16u
	sts _display+3,R16
	.dbline 45
;     }
L10:
	.dbline 48
	lds R20,_dis
	clr R21
	cpi R20,0
	cpc R20,R21
	breq L21
X0:
	cpi R20,1
	ldi R30,0
	cpc R21,R30
	breq L22
	cpi R20,2
	ldi R30,0
	cpc R21,R30
	breq L23
	cpi R20,3
	ldi R30,0
	cpc R21,R30
	breq L24
	rjmp L18
X1:
	.dbline 48
; //  end ad
; //  display
;     switch(dis){
L21:
	.dbline 49
;         case  0:  write164(display[dis] | 0x70);  break;
	ldi R24,<_display
	ldi R25,>_display
	lds R30,_dis
	clr R31
	add R30,R24
	adc R31,R25
	ldd R16,z+0
	ori R16,112
	rcall _write164
	.dbline 49
	rjmp L19
L22:
	.dbline 50
;         case  1:  write164(display[dis] | 0xB0);  break;
	ldi R24,<_display
	ldi R25,>_display
	lds R30,_dis
	clr R31
	add R30,R24
	adc R31,R25
	ldd R16,z+0
	ori R16,176
	rcall _write164
	.dbline 50
	rjmp L19
L23:
	.dbline 51
;         case  2:  write164(display[dis] | 0xD0);  break;
	ldi R24,<_display
	ldi R25,>_display
	lds R30,_dis
	clr R31
	add R30,R24
	adc R31,R25
	ldd R16,z+0
	ori R16,208
	rcall _write164
	.dbline 51
	rjmp L19
L24:
	.dbline 52
;         case  3:  write164(display[dis] | 0xE0);  break;
	ldi R24,<_display
	ldi R25,>_display
	lds R30,_dis
	clr R31
	add R30,R24
	adc R31,R25
	ldd R16,z+0
	ori R16,224
	rcall _write164
	.dbline 52
L18:
L19:
	.dbline 54
	lds R24,_dis
	subi R24,255    ; addi 1
	mov R2,R24
	sts _dis,R2
	ldi R24,3
	cp R24,R2
	brsh L25
	.dbline 54
	clr R2
	sts _dis,R2
L25:
	.dbline -2
	.dbline 56
;     }
;     if(++dis > 3) dis = 0;
; //end  display
; }
L9:
	rcall pop_gset1
	rcall pop_lset
	.dbline 0 ; func end
	reti
	.dbend
	.dbfunc e adc_init _adc_init fV
	.even
_adc_init::
	.dbline -1
	.dbline 61
; 
; //ADC initialisation
; // Conversion time: 13uS
; void adc_init(void)
; {
	.dbline 62
;  ADCSR = 0x00; //disable adc
	clr R2
	out 0x6,R2
	.dbline 63
;  ADMUX = 0x00; //select adc input 0
	out 0x7,R2
	.dbline 64
;  ACSR  = 0x80;
	ldi R24,128
	out 0x8,R24
	.dbline 65
;  ADCSR = 0x83;
	ldi R24,131
	out 0x6,R24
	.dbline -2
	.dbline 66
; }
L27:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e init_devices _init_devices fV
	.even
_init_devices::
	.dbline -1
	.dbline 70
; 
; //call this routine to initialise all peripherals
; void init_devices(void)
; {
	.dbline 72
;  //stop errant interrupts until set up
;  CLI(); //disable all interrupts
	cli
	.dbline 73
;  DDRB = 0x01;    //  初始化操作74LS164的管脚
	ldi R24,1
	out 0x17,R24
	.dbline 74
;  DDRD = 0xC0;    //  初始化操作74LS164的管脚
	ldi R24,192
	out 0x11,R24
	.dbline 75
;  DDRC = 0x00;
	clr R2
	out 0x14,R2
	.dbline 76
;  timer0_init();
	rcall _timer0_init
	.dbline 77
;  adc_init();
	rcall _adc_init
	.dbline 79
; 
;  MCUCR = 0x00;
	clr R2
	out 0x35,R2
	.dbline 80
;  GICR  = 0x00;
	out 0x3b,R2
	.dbline 81
;  TIMSK = 0x01; //timer interrupt sources
	ldi R24,1
	out 0x39,R24
	.dbline 82
;  SEI(); //re-enable interrupts
	sei
	.dbline -2
	.dbline 84
;  //all peripherals are now initialised
; }
L28:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e main _main fV
	.even
_main::
	.dbline -1
	.dbline 88
; 
; //
; void main(void)
; {
	.dbline 89
;  init_devices();
	rcall _init_devices
L30:
	.dbline 91
L31:
	.dbline 91
	rjmp L30
X3:
	.dbline -2
	.dbline 92
;  //insert your functional code here...
;  while(1);
; }
L29:
	.dbline 0 ; func end
	ret
	.dbend
	.area bss(ram, con, rel)
	.dbfile D:\job\avrtest\web\example\ad\adc.c
_time::
	.blkb 1
	.dbsym e time _time c
_adc::
	.blkb 2
	.dbsym e adc _adc i
_dis::
	.blkb 1
	.dbsym e dis _dis c
_display::
	.blkb 4
	.dbsym e display _display A[4:4]c