四位数码管显示.s

ICC mega8例子

	.module _四位数码管显示.c
	.area text(rom, con, rel)
	.dbfile E:\xiaozhiyong2009\设计资料\项目设计\ICCAVR_mega8_C\ICCAVR_mega8_四位数码管显示\四位数码管显示.c
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 9
; //ICC-AVR application builder : 2009-3-10 14:16:46
; // Target : M8
; // Crystal: 8.0000Mhz
; 
; #include <iom8v.h>
; #include <macros.h>
; 
; void port_init(void)
; {
	.dbline 10
;  PORTB = 0x00;
	clr R2
	out 0x18,R2
	.dbline 11
;  DDRB  = 0x00;
	out 0x17,R2
	.dbline 12
;  PORTC = 0x00; //m103 output only
	out 0x15,R2
	.dbline 13
;  DDRC  = 0x00;
	out 0x14,R2
	.dbline 14
;  PORTD = 0x00;
	out 0x12,R2
	.dbline 15
;  DDRD  = 0x00;
	out 0x11,R2
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e init_devices _init_devices fV
	.even
_init_devices::
	.dbline -1
	.dbline 20
; }
; 
; //call this routine to initialize all peripherals
; void init_devices(void)
; {
	.dbline 22
;  //stop errant interrupts until set up
;  CLI(); //disable all interrupts
	cli
	.dbline 23
;  port_init();
	rcall _port_init
	.dbline 25
; 
;  MCUCR = 0x00;
	clr R2
	out 0x35,R2
	.dbline 26
;  GICR  = 0x00;
	out 0x3b,R2
	.dbline 27
;  TIMSK = 0x00; //timer interrupt sources
	out 0x39,R2
	.dbline 28
;  SEI(); //re-enable interrupts
	sei
	.dbline -2
L2:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay_us _delay_us fV
;           time -> R16,R17
	.even
_delay_us::
	.dbline -1
	.dbline 40
;  //all peripherals are now initialized
; }
; 
; /************************************
; 用    途:微秒级延时程序
; Taget   :mega8
; crystal :8M
; 介    绍:在8M的晶振上进行us级的延时
; 入口参数:
; *************************************/
; void delay_us(int time)
; {
L4:
	.dbline 42
;     do
;     {
	.dbline 43
;         time--;
	subi R16,1
	sbci R17,0
	.dbline 44
;     } 
L5:
	.dbline 45
;     while (time > 1);
	ldi R24,1
	ldi R25,0
	cp R24,R16
	cpc R25,R17
	brlt L4
X0:
	.dbline -2
L3:
	.dbline 0 ; func end
	ret
	.dbsym r time 16 I
	.dbend
	.area lit(rom, con, rel)
_num::
	.byte 63,6
	.byte 91,'O
	.byte 'f,'m
	.byte 125,7
	.byte 127,'o
	.byte 'w,124
	.byte 57,94
	.byte 'y,'q
	.dbsym e num _num A[16:16]kc
	.area text(rom, con, rel)
	.dbfile E:\xiaozhiyong2009\设计资料\项目设计\ICCAVR_mega8_C\ICCAVR_mega8_四位数码管显示\四位数码管显示.c
	.dbfunc e show_4_digit _show_4_digit fV
;              j -> R20
;              i -> R10
;              p -> R22,R23
	.even
_show_4_digit::
	rcall push_xgsetF00C
	movw R22,R16
	.dbline -1
	.dbline 72
; }
; 
; /************************************
; 用    途:四位数码管的显示程序
; Taget   :mega8
; crystal :8M
; 介    绍:数码管共阳
; 	     a-PB0
; 		 b-PB1
; 		 ...
; 		 h-PB6
; 		 DP-PB7
; 		 -------
; 		 1-PC3
; 		 2-PC2
; 		 3-PC1
; 		 4-PC0
; 	     使用show_4_digit(p)
; 	     unsigned char数组
; 	  	 B用作数据口
;          C用作片选
; 入口参数:显示数组
; *************************************/
; const unsigned char num[16]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,
; 	   			0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71};
; void show_4_digit(unsigned char *p)
; {
	.dbline 74
;  unsigned char i,j;
;  DDRB=0xff;
	ldi R24,255
	out 0x17,R24
	.dbline 75
;  DDRC=0xff;
	out 0x14,R24
	.dbline 76
;  for (j=0;j<200;j++)
	clr R20
	rjmp L11
L8:
	.dbline 77
;  {
	.dbline 78
;   for (i=0;i<4;i++)
	clr R10
	rjmp L15
L12:
	.dbline 79
;   {
	.dbline 80
;     PORTC=0;//先关显示
	clr R2
	out 0x15,R2
	.dbline 81
;     PORTB=~num[*(p+3-i)];//送数据
	mov R2,R10
	clr R3
	movw R30,R22
	adiw R30,3
	sub R30,R2
	sbc R31,R3
	ldd R30,z+0
	clr R31
	ldi R24,<_num
	ldi R25,>_num
	add R30,R24
	adc R31,R25
	lpm R2,Z
	com R2
	out 0x18,R2
	.dbline 82
; 	PORTC=(0x1<<i);//开显示
	ldi R16,1
	mov R17,R10
	rcall lsl8
	out 0x15,R16
	.dbline 83
; 	delay_us(200);//小延时
	ldi R16,200
	ldi R17,0
	rcall _delay_us
	.dbline 84
;   }
L13:
	.dbline 78
	inc R10
L15:
	.dbline 78
	mov R24,R10
	cpi R24,4
	brlo L12
X1:
	.dbline 85
;  }
L9:
	.dbline 76
	inc R20
L11:
	.dbline 76
	cpi R20,200
	brlo L8
X2:
	.dbline -2
L7:
	.dbline 0 ; func end
	rjmp pop_xgsetF00C
	.dbsym r j 20 c
	.dbsym r i 10 c
	.dbsym r p 22 pc
	.dbend
	.area lit(rom, con, rel)
L17:
	.byte 1,2
	.byte 3,4
	.area text(rom, con, rel)
	.dbfile E:\xiaozhiyong2009\设计资料\项目设计\ICCAVR_mega8_C\ICCAVR_mega8_四位数码管显示\四位数码管显示.c
	.dbfunc e main _main fV
;              p -> y+0
	.even
_main::
	sbiw R28,4
	.dbline -1
	.dbline 89
; }
; 
; void main()
; {
	.dbline 90
;  unsigned char p[4]={1,2,3,4};
	ldi R24,<L17
	ldi R25,>L17
	movw R30,R28
	ldi R16,4
	ldi R17,0
	st -y,R31
	st -y,R30
	st -y,R25
	st -y,R24
	rcall asgncblk
	.dbline 91
;  port_init();
	rcall _port_init
	.dbline 92
;  init_devices();
	rcall _init_devices
	rjmp L19
L18:
	.dbline 95
;  
;  while(1)
;  {
	.dbline 96
;   show_4_digit(p);
	movw R16,R28
	rcall _show_4_digit
	.dbline 97
;  }
L19:
	.dbline 94
	rjmp L18
X3:
	.dbline -2
L16:
	.dbline 0 ; func end
	adiw R28,4
	ret
	.dbsym l p 0 A[4:4]c
	.dbend
; }