led.s

AVR mega16系列单片机开发程序

	.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 124
	.word 57
	.word 94
	.word 121
	.word 113
	.word 0
	.dbfile F:\单片机源程序\AVR单片机程序\MAGE16\LED\led.c
	.dbsym e led_data _led_data A[34:17]kI
	.area text(rom, con, rel)
	.dbfile F:\单片机源程序\AVR单片机程序\MAGE16\LED\led.c
	.dbfunc e led_init _led_init fV
	.even
_led_init::
	.dbline -1
	.dbline 6
; #include "config.h"
; 
; const led_data[17]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71,0x00};
; 
; void led_init(void)
; {
	.dbline 7
;   led_ddr = 0xFF;                                                    //abcdefg dpi 各位设为输出
	ldi R24,255
	out 0x1a,R24
	.dbline 8
;   led_contrl_ddr |= (1<<led_a)|(1<<led_b)|(1<<led_c)|(1<<led_d);     //ABCD四个控制设为输出
	in R24,0x14
	ori R24,15
	out 0x14,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 16
; }
; 
; /***********************
; ** 显示一位
; ** 输入：count显示在第几位(3210)，data 要显示的数(0~f)
; ************************/
; void display_one(uint8 count, uint8 data)
; {
	.dbline 17
;   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 18
;   led_contrl_port &= ~(1<<count);                    //选中对应要显示的位，从右至左，0123
	ldi R16,1
	mov R17,R20
	xcall lsl8
	mov R2,R16
	com R2
	in R3,0x15
	and R3,R2
	out 0x15,R3
	.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
;           data -> R22,R23
	.even
_display::
	xcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 28
;                                                      //如果对位进行了调整，就不在是0123，而是对应的值
; }
; 
; /***********************
; ** 显示四位整数
; ** 输入：要显示的四位数data,显示模式mode，1为补零显示模式,默认不显示零
; ** 说明：可以小于四位数，mode=1时 自动补零
; ************************/
; void display(uint16 data)
; {
	.dbline 30
;  uint8 temp;
;  if(data>1000)                           //千位
	ldi R24,1000
	ldi R25,3
	cp R24,R22
	cpc R25,R23
	brsh L4
	.dbline 31
;    {
	.dbline 32
;      temp=data/1000;
	ldi R18,1000
	ldi R19,3
	movw R16,R22
	xcall div16u
	mov R20,R16
	.dbline 33
;      display_one(0,temp);
	mov R18,R20
	clr R16
	xcall _display_one
	.dbline 34
;      delay_ms(1);                          //是个经验值，刚好无闪烁，并且亮度较高
	ldi R16,1
	ldi R17,0
	xcall _delay_ms
	.dbline 35
;      led_contrl_port |= (1<<0);
	sbi 0x15,0
	.dbline 36
;    }
	xjmp L5
L4:
	.dbline 38
;  else
;    {
	.dbline 39
;      display_one(0,16);
	ldi R18,16
	clr R16
	xcall _display_one
	.dbline 40
;      delay_ms(1);
	ldi R16,1
	ldi R17,0
	xcall _delay_ms
	.dbline 41
;      led_contrl_port |= (1<<0); 
	sbi 0x15,0
	.dbline 42
;    }
L5:
	.dbline 44
; 
;  if(data>100)                            //百位
	ldi R24,100
	ldi R25,0
	cp R24,R22
	cpc R25,R23
	brsh L6
	.dbline 45
;    {
	.dbline 46
;      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 47
;      display_one(1,temp);
	mov R18,R20
	ldi R16,1
	xcall _display_one
	.dbline 48
;      delay_ms(1);
	ldi R16,1
	ldi R17,0
	xcall _delay_ms
	.dbline 49
;      led_contrl_port |= (1<<1);
	sbi 0x15,1
	.dbline 50
;    }
	xjmp L7
L6:
	.dbline 52
;  else
;    {
	.dbline 53
;      display_one(1,16);
	ldi R18,16
	ldi R16,1
	xcall _display_one
	.dbline 54
;      delay_ms(1);
	ldi R16,1
	ldi R17,0
	xcall _delay_ms
	.dbline 55
;     led_contrl_port |= (1<<1);
	sbi 0x15,1
	.dbline 56
;    }
L7:
	.dbline 58
;  
;  if(data>10)                            //十位
	ldi R24,10
	ldi R25,0
	cp R24,R22
	cpc R25,R23
	brsh L8
	.dbline 59
;    {
	.dbline 60
;      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 61
;      display_one(2,temp);
	mov R18,R20
	ldi R16,2
	xcall _display_one
	.dbline 62
;      delay_ms(1);
	ldi R16,1
	ldi R17,0
	xcall _delay_ms
	.dbline 63
;      led_contrl_port |= (1<<2);
	sbi 0x15,2
	.dbline 64
;    }
	xjmp L9
L8:
	.dbline 66
;  else
;    {
	.dbline 67
;      display_one(2,16);
	ldi R18,16
	ldi R16,2
	xcall _display_one
	.dbline 68
;      delay_ms(1);
	ldi R16,1
	ldi R17,0
	xcall _delay_ms
	.dbline 69
;      led_contrl_port |= (1<<2);  
	sbi 0x15,2
	.dbline 70
;  }
L9:
	.dbline 72
;                                         //个位
;  temp=data%10;
	ldi R18,10
	ldi R19,0
	movw R16,R22
	xcall mod16u
	mov R20,R16
	.dbline 73
;  display_one(3,temp);
	mov R18,R20
	ldi R16,3
	xcall _display_one
	.dbline 74
;  delay_ms(1);
	ldi R16,1
	ldi R17,0
	xcall _delay_ms
	.dbline 75
;  led_contrl_port |= (1<<3);
	sbi 0x15,3
	.dbline -2
L3:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r temp 20 c
	.dbsym r data 22 i
	.dbend