led_323.s

ATmegal128的JTAG测试程序

	.module led_323.c
	.area text(rom, con, rel)
	.dbfile D:\jtag_test\led_323.c
	.dbfunc s Delay _Delay fI
;              a -> R16
;              b -> R18
	.even
_Delay::
	.dbline -1
	.dbline 8
; #include <iom323.h>
; #include <macros.h>
; 
; /* This seems to produce the right amount of delay for the LED to be
;  * seen
;  */
; void Delay()
; 	{
	.dbline 11
; 	unsigned char a, b;
; 
; 	for (a = 1; a; a++)
	ldi R16,1
	xjmp L5
L2:
	.dbline 12
; 		for (b = 1; b; b++)
	ldi R18,1
	xjmp L9
L6:
	.dbline 13
L7:
	.dbline 12
	inc R18
L9:
	.dbline 12
	tst R18
	brne L6
L3:
	.dbline 11
	inc R16
L5:
	.dbline 11
	tst R16
	brne L2
	.dbline -2
	.dbline 14
; 			;
; 	}
L1:
	.dbline 0 ; func end
	ret
	.dbsym r a 16 c
	.dbsym r b 18 c
	.dbfunc s LED_On _LED_On fI
;              i -> R20,R21
	.even
_LED_On::
	xcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 17
; 
; void LED_On(int i)
; 	{
	.dbline 18
; 	PORTB = ~BIT(i);	/* low output to turn LED on */
	ldi R16,1
	ldi R17,0
	movw R18,R20
	xcall lsl16
	movw R2,R16
	com R2
	com R3
	out 0x18,R2
	.dbline 19
; 	Delay();
	xcall _Delay
	.dbline -2
	.dbline 20
; 	}
L10:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r i 20 I
	.dbfunc s main _main fI
;              i -> R20,R21
	.even
_main::
	.dbline -1
	.dbline 23
; 
; void main()
; 	{
	.dbline 25
; 	int i;
; 	DDRB = 0xFF;	/* output */
	ldi R24,255
	out 0x17,R24
	.dbline 26
; 	PORTB = 0xFF;	/* all off */
	out 0x18,R24
	xjmp L13
L12:
	.dbline 29
; 
; 	while (1)
; 		{
	.dbline 31
; 		/* forward march */
; 		for (i = 0; i < 8; i++)
	clr R20
	clr R21
L15:
	.dbline 32
	movw R16,R20
	xcall _LED_On
L16:
	.dbline 31
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 31
	cpi R20,8
	ldi R30,0
	cpc R21,R30
	brlt L15
	.dbline 34
; 			LED_On(i);
; 		/* backward march */
; 		for (i = 8; i > 0; i--)
	ldi R20,8
	ldi R21,0
L19:
	.dbline 35
	movw R16,R20
	xcall _LED_On
L20:
	.dbline 34
	subi R20,1
	sbci R21,0
	.dbline 34
	clr R2
	clr R3
	cp R2,R20
	cpc R3,R21
	brlt L19
	.dbline 37
; 			LED_On(i);
; 		/* skip */
; 		for (i = 0; i < 8; i += 2)
	clr R20
	clr R21
L23:
	.dbline 38
	movw R16,R20
	xcall _LED_On
L24:
	.dbline 37
	subi R20,254  ; offset = 2
	sbci R21,255
	.dbline 37
	cpi R20,8
	ldi R30,0
	cpc R21,R30
	brlt L23
	.dbline 39
; 			LED_On(i);
; 		for (i = 7; i > 0; i -= 2)
	ldi R20,7
	ldi R21,0
L27:
	.dbline 40
	movw R16,R20
	xcall _LED_On
L28:
	.dbline 39
	subi R20,2
	sbci R21,0
	.dbline 39
	clr R2
	clr R3
	cp R2,R20
	cpc R3,R21
	brlt L27
	.dbline 41
L13:
	.dbline 28
	xjmp L12
X0:
	.dbline -2
	.dbline 42
; 			LED_On(i);
; 		}
; 	}
L11:
	.dbline 0 ; func end
	ret
	.dbsym r i 20 I