led2.s

16个单片机c语言实验程序

	.module LED2.c
	.area text(rom, con, rel)
	.dbfile D:\16实验程序\LED2\LED2.c
	.dbfunc e s_ms _s_ms fV
;              t -> R16,R17
	.even
_s_ms::
	.dbline -1
	.dbline 9
; //led显示程序
; //流水灯显示
; #include<iom16v.h>
; #define uchar unsigned char 
; #define uint unsigned int 
; 
; //延时函数
; void s_ms(unsigned int t)
; {
	.dbline 10
;     for(;t>1;t--)
	xjmp L5
L2:
	.dbline 11
;     {
	.dbline 12
;     }
L3:
	.dbline 10
	subi R16,1
	sbci R17,0
L5:
	.dbline 10
	ldi R24,1
	ldi R25,0
	cp R24,R16
	cpc R25,R17
	brlo L2
X0:
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbsym r t 16 i
	.dbend
	.dbfunc e main _main fI
;            led -> R20
	.even
_main::
	.dbline -1
	.dbline 17
; }
; 
; //主函数
; main()
; {
	.dbline 18
; uchar led=1;
	ldi R20,1
	.dbline 19
; DDRD=0xff;         //端口A为输出
	ldi R24,255
	out 0x11,R24
	.dbline 20
; PORTD=0xff;        //关闭所有LED
	out 0x12,R24
	xjmp L8
L7:
	.dbline 22
; while(1)
;      {
	.dbline 23
; 	  PORTD=~led;  //端口输出led值
	mov R2,R20
	com R2
	out 0x12,R2
	.dbline 24
; 	  led=led<<1;  //向左移动一位
	lsl R20
	.dbline 25
; 	  s_ms(65535); //延时
	ldi R16,65535
	ldi R17,255
	xcall _s_ms
	.dbline 26
; 	  s_ms(65535);
	ldi R16,65535
	ldi R17,255
	xcall _s_ms
	.dbline 27
; 	  s_ms(65535);
	ldi R16,65535
	ldi R17,255
	xcall _s_ms
	.dbline 28
; 	  s_ms(65535);
	ldi R16,65535
	ldi R17,255
	xcall _s_ms
	.dbline 30
; 	  //PORTG=0xff;
; 	  if(led==0)   //完成8位后重新开始
	tst R20
	brne L10
X1:
	.dbline 31
;          {
	.dbline 32
; 	      led=1;
	ldi R20,1
	.dbline 33
; 	     }  
L10:
	.dbline 34
; 	  }
L8:
	.dbline 21
	xjmp L7
X2:
	.dbline -2
L6:
	.dbline 0 ; func end
	ret
	.dbsym r led 20 c
	.dbend
; }