led.s

一个关于AVR单片机的例程

	.module led.c
	.area lit(rom, con, rel)
_led_data::
	.word 63
	.word 6
	.word 91
	.word 79
	.word 102
	.word 109
	.word 125
	.word 7
	.word 127
	.word 111
	.word 119
	.word 115
	.word 57
	.word 99
	.word 121
	.byte 0,0
	.dbfile C:\DOCUME~1\administrator\桌面\教程\18B20\led.c
	.dbsym e led_data _led_data A[32:16]kI
	.area text(rom, con, rel)
	.dbfile C:\DOCUME~1\administrator\桌面\教程\18B20\led.c
	.dbfunc e led_init _led_init fV
	.even
_led_init::
	.dbline -1
	.dbline 20
; /**********************************
; ** file_name led.c             **
; ** describe  七段数码管函数        **
; ** auther    古欣 www.avrvi.com  **
; ** Time      200-2-25           **
; ** temp=(data*1000)%1; 这个式子中的％为取余数，temp为data的第三位小数，0.023(data) --> 3(temp) 
; ***********************************/
; #include "config.h"
; 
; 
; //LED数据 不显点，亮的段为1，连接为P0~P7对应a~g,dp
; const led_data[16]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x77,0x73,0x39,0x63,0x79};
; 
; /***********************
; ** 初始化对应端口为输出 
; ** ABCD 和 abcdefg dpi 共12个IO口
; ** 默认为 PB(0123) 和 PA
; ***********************/
; void led_init(void)
; {
	.dbline 21
;  led_ddr = 0xFF; //abcdefg dpi 各位设为输出
	ldi R24,255
	out 0x1a,R24
	.dbline 22
;  led_contrl_ddr |= (1<<led_a)|(1<<led_b)|(1<<led_c)|(1<<led_d); //ABCD四个控制设为输出
	in R24,0x17
	ori R24,15
	out 0x17,R24
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e display_one _display_one fV
;           data -> R22
;          count -> R20
	.even
_display_one::
	xcall push_gset2
	mov R22,R18
	mov R20,R16
	.dbline -1
	.dbline 34
;  
;  // 以下两句将会使LED全亮,如果立即更改状态，将看不出来效果
;  // led_port = 0xFF;
;  // led_contrl_port |= (1<<led_a)|(1<<led_b)|(1<<led_c)|(1<<led_d);
; }
; 
; /***********************
; ** 显示一位
; ** 输入：count显示在第几位(3210)，data 要显示的数(0~f)
; ************************/
; void display_one(uint8 count, uint8 data)
; {
	.dbline 35
;  led_port = led_data[data];    //显示的数
	ldi R24,2
	mul R24,R22
	movw R30,R0
	ldi R24,<_led_data
	ldi R25,>_led_data
	add R30,R24
	adc R31,R25
	lpm R0,Z+
	lpm R1,Z
	movw R30,R0
	out 0x1b,R30
	.dbline 36
;  led_contrl_port |= (1<<count); //选中对应要显示的位，从右至左，0123
	ldi R16,1
	mov R17,R20
	xcall lsl8
	in R2,0x18
	or R2,R16
	out 0x18,R2
	.dbline -2
L2:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r data 22 c
	.dbsym r count 20 c
	.dbend
	.dbfunc e display _display fV
;           temp -> R20
;           mode -> R10
;           data -> R22,R23
	.even
_display::
	xcall push_gset3
	mov R10,R18
	movw R22,R16
	.dbline -1
	.dbline 46
;  //如果对位进行了调整，就不在是0123，而是对应的值
; }
; 
; /***********************
; ** 显示四位整数
; ** 输入：要显示的四位数data,显示模式mode，1为补零显示模式,默认不显示零
; ** 说明：可以小于四位数，mode=1时 自动补零
; ************************/
; void display(uint16 data,uint8 mode)
; {
	.dbline 49
;  uint8 temp;
;  //千位
;  if(data>1000)
	ldi R24,1000
	ldi R25,3
	cp R24,R22
	cpc R25,R23
	brsh L4
	.dbline 50
;  {
	.dbline 51
;   temp=data/1000;
	ldi R18,1000
	ldi R19,3
	movw R16,R22
	xcall div16u
	mov R20,R16
	.dbline 52
;   display_one(3,temp);
	mov R18,R20
	ldi R16,3
	xcall _display_one
	.dbline 53
;   delay_ms(6);  //6ms 是个经验值，刚好无闪烁，并且亮度较高
	ldi R16,6
	ldi R17,0
	xcall _delay_ms
	.dbline 54
;   led_contrl_port &=~ (1<<3);
	cbi 0x18,3
	.dbline 55
;  }
	xjmp L5
L4:
	.dbline 57
;  else
;  {
	.dbline 58
;   if(mode==1)
	mov R24,R10
	cpi R24,1
	brne L6
	.dbline 59
;   {
	.dbline 60
;   display_one(3,0);
	clr R18
	ldi R16,3
	xcall _display_one
	.dbline 61
;   delay_ms(6);
	ldi R16,6
	ldi R17,0
	xcall _delay_ms
	.dbline 62
;   led_contrl_port &=~ (1<<3);
	cbi 0x18,3
	.dbline 63
;   }
L6:
	.dbline 64
;  }
L5:
	.dbline 66
;  //百位
;  if(data>100)
	ldi R24,100
	ldi R25,0
	cp R24,R22
	cpc R25,R23
	brsh L8
	.dbline 67
;  {
	.dbline 68
;   temp=(data%1000)/100;
	ldi R18,1000
	ldi R19,3
	movw R16,R22
	xcall mod16u
	ldi R18,100
	ldi R19,0
	xcall div16u
	mov R20,R16
	.dbline 69
;   display_one(2,temp);
	mov R18,R20
	ldi R16,2
	xcall _display_one
	.dbline 70
;   delay_ms(6);
	ldi R16,6
	ldi R17,0
	xcall _delay_ms
	.dbline 71
;   led_contrl_port &=~ (1<<2);
	cbi 0x18,2
	.dbline 72
;  }
	xjmp L9
L8:
	.dbline 74
;  else
;  {
	.dbline 75
;   if(mode==1)
	mov R24,R10
	cpi R24,1
	brne L10
	.dbline 76
;   {
	.dbline 77
;   display_one(2,0);
	clr R18
	ldi R16,2
	xcall _display_one
	.dbline 78
;   delay_ms(6);
	ldi R16,6
	ldi R17,0
	xcall _delay_ms
	.dbline 79
;   led_contrl_port &=~ (1<<2);
	cbi 0x18,2
	.dbline 80
;   }
L10:
	.dbline 81
;  }
L9:
	.dbline 83
;  //十位
;  if(data>10)
	ldi R24,10
	ldi R25,0
	cp R24,R22
	cpc R25,R23
	brsh L12
	.dbline 84
;  {
	.dbline 85
;   temp=(data%100)/10;
	ldi R18,100
	ldi R19,0
	movw R16,R22
	xcall mod16u
	ldi R18,10
	ldi R19,0
	xcall div16u
	mov R20,R16
	.dbline 86
;   display_one(1,temp);
	mov R18,R20
	ldi R16,1
	xcall _display_one
	.dbline 87
;   delay_ms(6);
	ldi R16,6
	ldi R17,0
	xcall _delay_ms
	.dbline 88
;   led_contrl_port &=~ (1<<1);
	cbi 0x18,1
	.dbline 89
;  }
	xjmp L13
L12:
	.dbline 91
;  else
;  {
	.dbline 92
;   if(mode==1)
	mov R24,R10
	cpi R24,1
	brne L14
	.dbline 93
;   {
	.dbline 94
;   display_one(1,0);
	clr R18
	ldi R16,1
	xcall _display_one
	.dbline 95
;   delay_ms(6);
	ldi R16,6
	ldi R17,0
	xcall _delay_ms
	.dbline 96
;   led_contrl_port &=~ (1<<1);
	cbi 0x18,1
	.dbline 97
;   }
L14:
	.dbline 98
;  }
L13:
	.dbline 100
;  //个位
;   temp=data%10;
	ldi R18,10
	ldi R19,0
	movw R16,R22
	xcall mod16u
	mov R20,R16
	.dbline 101
;   display_one(0,temp);
	mov R18,R20
	clr R16
	xcall _display_one
	.dbline 102
;   delay_ms(6);
	ldi R16,6
	ldi R17,0
	xcall _delay_ms
	.dbline 103
;   led_contrl_port &=~ (1<<0);
	cbi 0x18,0
	.dbline -2
L3:
	xcall pop_gset3
	.dbline 0 ; func end
	ret
	.dbsym r temp 20 c
	.dbsym r mode 10 c
	.dbsym r data 22 i
	.dbend
	.dbfunc e led_error _led_error fV
	.even
_led_error::
	.dbline -1
	.dbline 225
; }
; 
; /***********************
; ** 显示四位浮点数
; ** 输入：要显示的四位数
; ** 说明：可以小于四位数，自动补零
;    没有调通
; ************************/
; /*
; void display_float(float data)
; {
;  uint8 temp;
;  // 人为保证data的值，可以不要错误处理。
;  if (data>1000)
;  {
;   led_error();
;   break;
;  }
;  if (data<0)
;  {
;   led_error();
;   break;
;  }
;  //
;  if(data<1)       //比如 0.123
;  {
;   display_one(3,0);   //显示0.
;   led_port |= 0x07; //点亮对应小数点
;   delay_ms(6);
;   led_contrl_port &=~ (1<<3);
;   
;   temp=(data*10);   // 0.123*10 = 1
;   display_one(2,temp);
;   delay_ms(6);
;   led_contrl_port &=~ (1<<2);
;   
;   temp=(data*100)%10; // 0.123*100%10 = 2
;   display_one(1,temp);
;   delay_ms(6);
;   led_contrl_port &=~ (1<<1);
;   
;   temp=(data*1000)%10; // 0.123*100%10 = 3
;   display_one(0,temp);
;   delay_ms(6);
;   led_contrl_port &=~ (1<<0);
;  }
;  else if(data<10)  //比如1.234
;  {
;   temp=(data/1);   // 1.234/1 = 1
;   display_one(3,temp);
;   led_port |= 0x07; //点亮对应小数点
;   delay_ms(6);
;   led_contrl_port &=~ (1<<3);
;   //第一位小数
;   temp=(data*10)%10; // 1.234*10%10 = 2
;   display_one(2,temp);
;   delay_ms(6);
;   led_contrl_port &=~ (1<<2);
;   //第二位小数
;   temp=(data*100)%10; // 1.234*100%10 = 3
;   display_one(1,temp);
;   delay_ms(6);
;   led_contrl_port &=~ (1<<1);
;   //第三位小数
;   temp=(data*1000)%10; // 1.234*1000%10 = 4
;   display_one(0,temp);
;   delay_ms(6);
;   led_contrl_port &=~ (1<<0);
;  }
;  else if(data<100)   // 例如12.34
;  {
;   temp=(data/10);   // 12.34/10=1
;   display_one(3,temp);
;   delay_ms(6);
;   led_contrl_port &=~ (1<<3);
;   
;   temp=(data%10);   // 12.34%10=2
;   display_one(2,temp);
;   led_port |= 0x07; //点亮对应小数点
;   delay_ms(6);
;   led_contrl_port &=~ (1<<2);
;   
;   temp=(data*10)%10; // 12.34*10%10=3
;   display_one(1,temp);
;   delay_ms(6);
;   led_contrl_port &=~ (1<<1);
;    
;   temp=(data*100)%10;// 12.34*100%10=4
;   display_one(0,temp);
;   delay_ms(6);
;   led_contrl_port &=~ (1<<0);
;  }
;  else if(data<1000)  //比如123.4
;  {
;   temp=(data/100);// 123.4/100=1
;   display_one(3,temp);
;   delay_ms(6);
;   led_contrl_port &=~ (1<<3);
;   
;   temp=(data%100)/10;// 123.4%100/10=2
;   display_one(2,temp);
;   delay_ms(6);
;   led_contrl_port &=~ (1<<2);
;   
;   temp=(data%10);// 123.4%10=3
;   display_one(1,temp);
;   delay_ms(6);
;   led_contrl_port &=~ (1<<1);
;   
;   temp=(data*10)%10;// 123.4*10%10=4
;   display_one(0,temp);
;   delay_ms(6);
;   led_contrl_port &=~ (1<<0);
;  }
;  else led_error();
; }
; */
; /***********************************************
; ** 异常处理，led全亮 8。8。8。8。
; ***********************************************/
; void led_error(void)
; {
	.dbline 227
;  // 以下两句将会使LED全亮,如果立即更改状态，将看不出来效果
;   led_port = 0xFF;
	ldi R24,255
	out 0x1b,R24
	.dbline 228
;   led_contrl_port |= (1<<led_a)|(1<<led_b)|(1<<led_c)|(1<<led_d);
	in R24,0x18
	ori R24,15
	out 0x18,R24
	.dbline -2
L16:
	.dbline 0 ; func end
	ret
	.dbend