pwm.s

用ICC编写的程序包括SPI

	.module pwm.c
	.area text(rom, con, rel)
	.dbfile F:\IccAvr_Pro\pwm.c
	.area data(ram, con, rel)
_pwm_value::
	.blkb 2
	.area idata
	.byte 127,127
	.area data(ram, con, rel)
	.dbsym e pwm_value _pwm_value A[2:2]c
	.area text(rom, con, rel)
	.dbfunc e pwm_init _pwm_init fV
	.even
_pwm_init::
	.dbline -1
	.dbline 12
; 
; #include "pwm.h"
; 
; 
; unsigned char pwm_value[2]={0x7f,0x7f};
; unsigned char pwm_flag;
; //TIMER1 initialize - prescale:1
; // WGM: 8) PWM phz freq correct, TOP=ICRn
; // desired value: 14.4KHz
; // actual value: 14.456KHz (0.4%)
; void pwm_init(void)
; {
	.dbline 13
;  DDRD|=BIT(OC1B)|BIT(OC1A);
	in R24,0x11
	ori R24,48
	out 0x11,R24
	.dbline 15
;  //PORTD|=BIT(OC1B)|BIT(OC1A);
;  TCCR1B = 0x00; //stop
	clr R2
	out 0x2e,R2
	.dbline 16
;  TCNT1H = 0x00; //setup
	out 0x2d,R2
	.dbline 17
;  TCNT1L = 0x00;
	out 0x2c,R2
	.dbline 18
;  OCR1AH = 0x00;
	out 0x2b,R2
	.dbline 19
;  OCR1AL = 0x7F;
	ldi R24,127
	out 0x2a,R24
	.dbline 20
;  OCR1BH = 0x00;
	out 0x29,R2
	.dbline 21
;  OCR1BL = 0x7F;
	out 0x28,R24
	.dbline 22
;  ICR1H  = 0x00;
	out 0x27,R2
	.dbline 23
;  ICR1L  = 0xFF;
	ldi R24,255
	out 0x26,R24
	.dbline 24
;  TCCR1A = 0xA0;
	ldi R24,160
	out 0x2f,R24
	.dbline 25
;  TCCR1B = 0x11; //start Timer
	ldi R24,17
	out 0x2e,R24
	.dbline 26
;  pwm_flag=0;
	sts _pwm_flag,R2
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e pwm_change _pwm_change fV
	.even
_pwm_change::
	.dbline -1
	.dbline 30
; }
; 
; void pwm_change(void)
; { 
	.dbline 31
;    if(pwm_value[0]<3)
	lds R24,_pwm_value
	cpi R24,3
	brsh L3
	.dbline 32
;       pwm_value[0]=3;
	ldi R24,3
	sts _pwm_value,R24
L3:
	.dbline 33
;    if(pwm_value[0]>253)
	ldi R24,253
	lds R2,_pwm_value
	cp R24,R2
	brsh L5
	.dbline 34
;       pwm_value[0]=253;
	sts _pwm_value,R24
L5:
	.dbline 35
;    OCR1AH=0x00;
	clr R2
	out 0x2b,R2
	.dbline 36
;    OCR1AL=pwm_value[0];
	lds R2,_pwm_value
	out 0x2a,R2
	.dbline 38
;    
;    if(pwm_value[1]<3)
	lds R24,_pwm_value+1
	cpi R24,3
	brsh L7
	.dbline 39
;       pwm_value[1]=3;
	ldi R24,3
	sts _pwm_value+1,R24
L7:
	.dbline 40
;    if(pwm_value[1]>253)
	ldi R24,253
	lds R2,_pwm_value+1
	cp R24,R2
	brsh L11
	.dbline 41
;       pwm_value[1]=253;
	sts _pwm_value+1,R24
L11:
	.dbline 42
;    OCR1BH=0x00;
	clr R2
	out 0x29,R2
	.dbline 43
;    OCR1BL=pwm_value[1];
	lds R2,_pwm_value+1
	out 0x28,R2
	.dbline -2
L2:
	.dbline 0 ; func end
	ret
	.dbend
	.area bss(ram, con, rel)
_pwm_flag::
	.blkb 1
	.dbsym e pwm_flag _pwm_flag c