ad2disp.s

用ICC编写的程序包括SPI

	.module Ad2disp.c
	.area data(ram, con, rel)
_Itrans::
	.blkb 2
	.area idata
	.byte 0,241
	.area data(ram, con, rel)
	.blkb 2
	.area idata
	.byte 'd,'X
	.area data(ram, con, rel)
	.dbfile F:\IccAvr_Pro\Ad2disp.c
	.dbsym e Itrans _Itrans A[4:4]c
	.area text(rom, con, rel)
	.dbfile F:\IccAvr_Pro\Ad2disp.c
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 22
; //ICC-AVR application builder : 2005-6-5 18:27:12
; // Target : M16
; // Crystal: 7.3728Mhz
; 
; #include <iom16v.h>
; #include <macros.h>
; #include "time.h"
; #include "Display.h"
; #include "key.h"
; #include "ADC.h"
; 
; extern const unsigned char ADChannel;
; extern unsigned int AdValue[8];
; extern unsigned char AdP;
; extern unsigned char time_flag;
; extern unsigned char keyflag[4];
; extern unsigned char AdFlag;
; extern unsigned char pwm;
; 
; unsigned char  Itrans[4]={0,241,100,88};
; void port_init(void)
; {
	.dbline 23
;  PORTA = 0xFF;
	ldi R24,255
	out 0x1b,R24
	.dbline 24
;  DDRA  = 0x00;
	clr R2
	out 0x1a,R2
	.dbline 25
;  PORTB = 0xFF;
	out 0x18,R24
	.dbline 26
;  DDRB  = 0x00;
	out 0x17,R2
	.dbline 27
;  PORTC = 0xFF; //m103 output only
	out 0x15,R24
	.dbline 28
;  DDRC  = 0x00;
	out 0x14,R2
	.dbline 29
;  PORTD = 0xFF;
	out 0x12,R24
	.dbline 30
;  DDRD  = 0x00;
	out 0x11,R2
	.dbline -2
	.dbline 31
; }
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e init_devices _init_devices fV
	.even
_init_devices::
	.dbline -1
	.dbline 38
; 
; 
; 
; 
; //call this routine to initialise all peripherals
; void init_devices(void)
; {
	.dbline 40
;  //stop errant interrupts until set up
;  CLI(); //disable all interrupts
	cli
	.dbline 41
;  port_init();
	xcall _port_init
	.dbline 42
;  timer1_init();
	xcall _timer1_init
	.dbline 43
;  disp_init();
	xcall _disp_init
	.dbline 44
;  adc_init();
	xcall _adc_init
	.dbline 45
;  timer2_init();
	xcall _timer2_init
	.dbline 48
;  
; 
;  MCUCR = 0x00;
	clr R2
	out 0x35,R2
	.dbline 49
;  GICR  = 0x00;
	out 0x3b,R2
	.dbline 50
;  TIMSK = 0x40; //timer interrupt sources
	ldi R24,64
	out 0x39,R24
	.dbline 51
;  SEI(); //re-enable interrupts
	sei
	.dbline -2
	.dbline 53
;  //all peripherals are now initialised
; }
L2:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e main _main fV
;         result -> y+0
;            key -> R10
	.even
_main::
	sbiw R28,4
	.dbline -1
	.dbline 57
; 
; //
; void main(void)
; {
	.dbline 58
;  unsigned char key=0;
	clr R10
	.dbline 59
;  unsigned long result=0;
	ldi R20,0
	ldi R21,0
	ldi R22,0
	ldi R23,0
	movw R30,R28
	std z+0,R20
	std z+1,R21
	std z+2,R22
	std z+3,R23
	.dbline 62
;  
;  
;  init_devices();
	xcall _init_devices
	xjmp L5
L4:
	.dbline 65
;  //insert your functional code here...
;  while(1)
;  {
	.dbline 66
;   time_flag=0;
	clr R2
	sts _time_flag,R2
	.dbline 67
;   AdFlag=0;
	sts _AdFlag,R2
	.dbline 69
;  
;  adc_start();
	xcall _adc_start
L7:
	.dbline 71
L8:
	.dbline 71
;  
;  while(!AdFlag);
	lds R2,_AdFlag
	tst R2
	breq L7
	.dbline 72
;  pwm=(unsigned char)(AdValue[7]>>2);
	lds R2,_AdValue+14
	lds R3,_AdValue+14+1
	lsr R3
	ror R2
	lsr R3
	ror R2
	sts _pwm,R2
	.dbline 73
;  pwm_change(pwm);
	mov R16,R2
	xcall _pwm_change
	.dbline 74
;  if(key)
	tst R10
	brne X1
	xjmp L11
X1:
	.dbline 75
;  	{
	.dbline 76
; 	if(key==4)
	mov R24,R10
	cpi R24,4
	brne L13
	.dbline 77
; 		result=0;
	ldi R20,0
	ldi R21,0
	ldi R22,0
	ldi R23,0
	movw R30,R28
	std z+0,R20
	std z+1,R21
	std z+2,R22
	std z+3,R23
	xjmp L14
L13:
	.dbline 79
; 	else
; 		{
	.dbline 80
; 		 result=(10*(long)AdValue[3]*Itrans[key])/AdValue[5];
	ldi R24,<_Itrans
	ldi R25,>_Itrans
	mov R30,R10
	clr R31
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	clr R3
	clr R4
	clr R5
	lds R6,_AdValue+6
	lds R7,_AdValue+6+1
	clr R8
	clr R9
	ldi R20,10
	ldi R21,0
	ldi R22,0
	ldi R23,0
	st -y,R9
	st -y,R8
	st -y,R7
	st -y,R6
	movw R16,R20
	movw R18,R22
	xcall empy32s
	st -y,R5
	st -y,R4
	st -y,R3
	st -y,R2
	xcall empy32s
	lds R2,_AdValue+10
	lds R3,_AdValue+10+1
	clr R4
	clr R5
	st -y,R5
	st -y,R4
	st -y,R3
	st -y,R2
	xcall div32s
	movw R30,R28
	std z+0,R16
	std z+1,R17
	std z+2,R18
	std z+3,R19
	.dbline 82
; 		
; 		 }
L14:
	.dbline 84
; 		
; 	display((unsigned int)(result),0);
	clr R18
	movw R30,R28
	ldd R16,z+0
	ldd R17,z+1
	xcall _display
	.dbline 85
; 	}
L11:
	.dbline 86
;  display(AdValue[3],1);
	ldi R18,1
	lds R16,_AdValue+6
	lds R17,_AdValue+6+1
	xcall _display
	.dbline 87
;  display(AdValue[5],2);
	ldi R18,2
	lds R16,_AdValue+10
	lds R17,_AdValue+10+1
	xcall _display
	.dbline 88
;  display(AdValue[7]*5,3);
	ldi R18,3
	lds R2,_AdValue+14
	lds R3,_AdValue+14+1
	ldi R16,5
	ldi R17,0
	push R18
	push R19
	movw R18,R2
	xcall empy16s
	pop R19
	pop R18
	xcall _display
	xjmp L21
L20:
	.dbline 91
	xcall _ReadKey
	mov R10,R16
L21:
	.dbline 90
	lds R2,_time_flag
	tst R2
	breq L20
	.dbline 93
L5:
	.dbline 64
	xjmp L4
X0:
	.dbline -2
	.dbline 94
;  
;  while(!time_flag)
;  key=ReadKey();
;  
;  }
; }
L3:
	adiw R28,4
	.dbline 0 ; func end
	ret
	.dbsym l result 0 l
	.dbsym r key 10 c
	.dbend