.module LED.C
	.area text(rom, con, rel)
	.dbfile C:\DOCUME~1\Administrator\桌面\張軍\AVR\AVR單片機系統開發實例稿\第二章\第二章程序\跑馬燈設計\LED.C
	.dbfunc e DelayMs _DelayMs fV
;              j -> R20,R21
;              i -> R16,R17
	.even
_DelayMs::
	rcall push_gset1
	.dbline -1
	.dbline 9
; //******************************FileName: LED.C******************************//
; //******************************ICCAVR V6.30編譯****************************//
; 
; #include<io8535v.h>            //頭文件，AT90S8535單片機的寄存器定義
; #define uchar unsigned char    //數據類型說明
; #define uint  unsigned int     //數據類型說明
; 
; void DelayMs(uint i)           //Ms級延時函數,參數i：延時時間
; {uint j;
	.dbline 10
;  for(;i!=0;i--)
	rjmp L5
L2:
	.dbline 11
	.dbline 11
	ldi R20,8000
	ldi R21,31
	rjmp L9
L6:
	.dbline 11
L7:
	.dbline 11
	subi R20,1
	sbci R21,0
L9:
	.dbline 11
	cpi R20,0
	cpc R20,R21
	brne L6
X0:
	.dbline 11
L3:
	.dbline 10
	subi R16,1
	sbci R17,0
L5:
	.dbline 10
	cpi R16,0
	cpc R16,R17
	brne L2
X1:
	.dbline -2
	.dbline 12
;   {for(j=8000;j!=0;j--) ;}
; }
L1:
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r j 20 i
	.dbsym r i 16 i
	.dbend
	.dbfunc e Horse _Horse fV
;              i -> R16
	.even
_Horse::
	rcall push_gset1
	.dbline -1
	.dbline 15
; 
; void Horse(uchar i)            //跑馬燈程序，通過步判斷點亮相應的LED
; {switch(i)                     //高電平點亮LED
	.dbline 15
	mov R20,R16
	clr R21
	cpi R20,1
	ldi R30,0
	cpc R21,R30
	breq L14
	cpi R20,2
	ldi R30,0
	cpc R21,R30
	breq L15
	cpi R20,3
	ldi R30,0
	cpc R21,R30
	breq L16
	cpi R20,4
	ldi R30,0
	cpc R21,R30
	breq L17
	cpi R20,5
	ldi R30,0
	cpc R21,R30
	breq L18
	cpi R20,6
	ldi R30,0
	cpc R21,R30
	breq L19
	cpi R20,7
	ldi R30,0
	cpc R21,R30
	breq L20
	cpi R20,8
	ldi R30,0
	cpc R21,R30
	breq L21
	rjmp L12
X2:
	.dbline 16
L14:
	.dbline 16
;  {case 1:PORTA=0x01;break;     //0000 0001B 點亮LED1
	ldi R24,1
	out 0x1b,R24
	.dbline 16
	rjmp L12
L15:
	.dbline 17
;   case 2:PORTA=0x03;break;     //0000 0011B 點亮LED1~LED2
	ldi R24,3
	out 0x1b,R24
	.dbline 17
	rjmp L12
L16:
	.dbline 18
;   case 3:PORTA=0x07;break;     //0000 0111B 點亮LED1~LED3
	ldi R24,7
	out 0x1b,R24
	.dbline 18
	rjmp L12
L17:
	.dbline 19
;   case 4:PORTA=0x0f;break;     //0000 1111B 點亮LED1~LED4
	ldi R24,15
	out 0x1b,R24
	.dbline 19
	rjmp L12
L18:
	.dbline 20
;   case 5:PORTA=0x1f;break;     //0001 1111B 點亮LED1~LED5
	ldi R24,31
	out 0x1b,R24
	.dbline 20
	rjmp L12
L19:
	.dbline 21
;   case 6:PORTA=0x3f;break;     //0011 1111B 點亮LED1~LED6
	ldi R24,63
	out 0x1b,R24
	.dbline 21
	rjmp L12
L20:
	.dbline 22
;   case 7:PORTA=0x7f;break;     //0111 1111B 點亮LED1~LED7
	ldi R24,127
	out 0x1b,R24
	.dbline 22
	rjmp L12
L21:
	.dbline 23
	ldi R24,255
	out 0x1b,R24
	.dbline 23
	.dbline 24
L12:
	.dbline -2
	.dbline 25
;   case 8:PORTA=0xff;break;     //1111 1111B 點亮LED1~LED8
;   default:break;}
; }
L10:
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r i 16 c
	.dbend
	.dbfunc e main _main fV
;              i -> R20
	.even
_main::
	.dbline -1
	.dbline 28
; 
; void main(void)               
; {uchar i;
	.dbline 29
;  DDRA=0xff;                    //端口設置：PA口設置為推挽1輸出
	ldi R24,255
	out 0x1a,R24
	.dbline 30
;  PORTA=0xff;
	out 0x1b,R24
	.dbline 31
;  PORTA=0x00;                   //PORTA初始值為0，滅掉所有的LED      
	clr R2
	out 0x1b,R2
	.dbline 32
;  DelayMs(1000);
	ldi R16,1000
	ldi R17,3
	rcall _DelayMs
	rjmp L24
L23:
	.dbline 34
;  while(1)                      //程序無條件執行
;   { for(i=0;i<9;i++)           //依次點亮LED1~LED8
	.dbline 34
	clr R20
	rjmp L29
L26:
	.dbline 35
	.dbline 35
	mov R16,R20
	rcall _Horse
	.dbline 36
	ldi R16,1000
	ldi R17,3
	rcall _DelayMs
	.dbline 36
L27:
	.dbline 34
	inc R20
L29:
	.dbline 34
	cpi R20,9
	brlo L26
	.dbline 37
;       {Horse(i);
; 	   DelayMs(1000);}         //點亮時間約1秒
; 	for(i=7;i!=0;i--)          //依次熄滅LED8~LED1
	ldi R20,7
	rjmp L33
L30:
	.dbline 38
	.dbline 38
	mov R16,R20
	rcall _Horse
	.dbline 39
	ldi R16,1000
	ldi R17,3
	rcall _DelayMs
	.dbline 39
L31:
	.dbline 37
	dec R20
L33:
	.dbline 37
	tst R20
	brne L30
	.dbline 40
L24:
	.dbline 33
	rjmp L23
X3:
	.dbline -2
	.dbline 41
;       {Horse(i);
; 	   DelayMs(1000);}         //熄滅時間約1秒
;   }
; }
L22:
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbend