灯亮.s

led灯循环亮,对初学单片机者来说,ICCAVR 芯片atmega16l

	.module _灯亮.c
	.area text(rom, con, rel)
	.dbfile 灯亮.c
	.dbfunc e main _main fV
	.even
_main::
	.dbline -1
	.dbline 6
; #include <iom16v.h> //和单片机类型相对应的头文件，选择Atmega8做实验；
; #include <macros.h>
; void delay_1ms(void); //函数声明，本实验中会用到这两个函数
; void delay_nms(unsigned int n);
; void main(void) //主函数
; {
	.dbline 7
; OSCCAL=0X9E;//系统时钟校准，不同的芯片和不同的频率，
	ldi R24,158
	out 0x31,R24
	.dbline 8
; DDRC=0B00000011; //定义B口的PB0、PB1为输出口
	ldi R24,3
	out 0x14,R24
	.dbline 9
; PORTC=0B00000001; //PB0口输出高电平，PB1口输出低电平，绿灯亮
	ldi R24,1
	out 0x15,R24
	.dbline 10
; delay_nms(5000); //延时5秒
	ldi R16,5000
	ldi R17,19
	xcall _delay_nms
	.dbline 11
; PORTC=0B00000010; //PB1口输出高电平，PB0口输出低电平，关闭绿灯，红灯亮
	ldi R24,2
	out 0x15,R24
	.dbline 12
; delay_nms(5000); //延时5秒
	ldi R16,5000
	ldi R17,19
	xcall _delay_nms
	xjmp L3
L2:
	.dbline 14
	.dbline 15
	ldi R24,3
	in R2,0x15
	eor R2,R24
	out 0x15,R2
	.dbline 16
	ldi R16,1000
	ldi R17,3
	xcall _delay_nms
	.dbline 17
L3:
	.dbline 13
	xjmp L2
X0:
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay_1ms _delay_1ms fV
;              i -> R16,R17
	.even
_delay_1ms::
	.dbline -1
	.dbline 20
; while(1) //程序一直执行该循环 
; {
;   PORTC^=0B00000011; //翻转PB0和PB1口
;   delay_nms(1000);
; }
; }
; void delay_1ms(void)//1ms延时函数
; {
	.dbline 22
; unsigned int i;
; for (i=0;i<150;i++)
	clr R16
	clr R17
	xjmp L9
L6:
	.dbline 23
	.dbline 24
L7:
	.dbline 22
	subi R16,255  ; offset = 1
	sbci R17,255
L9:
	.dbline 22
	cpi R16,150
	ldi R30,0
	cpc R17,R30
	brlo L6
	.dbline -2
L5:
	.dbline 0 ; func end
	ret
	.dbsym r i 16 i
	.dbend
	.dbfunc e delay_nms _delay_nms fV
;              i -> R20,R21
;              n -> R22,R23
	.even
_delay_nms::
	xcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 27
; {
; } 
; }
; void delay_nms(unsigned int n)//延时n毫秒
; {
	.dbline 29
; unsigned int i;
; for (i=0;i<n;i++)//执行n次1毫秒延时
	clr R20
	clr R21
	xjmp L14
L11:
	.dbline 30
	xcall _delay_1ms
L12:
	.dbline 29
	subi R20,255  ; offset = 1
	sbci R21,255
L14:
	.dbline 29
	cp R20,R22
	cpc R21,R23
	brlo L11
	.dbline -2
L10:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend