.module RectangularWave.c
	.area text
	.dbfile E:\grc\licc\例子10.4.5\RectangularWave.c
	.dbfunc s delay _delay fI
;              i -> R20
;              j -> R22
;              t -> R16
	.even
_delay::
	rcall push_gset2
	.dbline 5{
; #include <io8515.h>
; #define uchar unsigned char
; #define uint unsigned int
; void delay(uchar t)
; {
	.dbline 7
;  uchar i,j;
;  for (i=0;i<t;i++)
	clr R20
	rjmp L5
L2:
	.dbline 8
;     for (j=1;j;j++)
	ldi R22,1
	rjmp L9
L6:
	.dbline 9
L7:
	.dbline 8
	inc R22
L9:
	.dbline 8
	tst R22
	brne L6
L3:
	.dbline 7
	inc R20
L5:
	.dbline 7
	cp R20,R16
	brlo L2
	.dbline 10}
;         ;
; }
L1:
	rcall pop_gset2
	ret
	.dbsym r i 20 c
	.dbsym r j 22 c
	.dbsym r t 16 c
	.dbfunc s main _main fI
	.even
_main::
	.dbline 12{
; void main(void)               
; {
	.dbline 13
;  DDRA=0xff;                   
	ldi R24,255
	out 0x1a,R24
	.dbline 14
;  PORTA=0xff;
	out 0x1b,R24
	.dbline 15
;  for(;;)
L11:
	.dbline 16
;   {
	.dbline 17
;    PORTA^=0x01;              
	ldi R24,1
	in R2,0x1b
	eor R2,R24
	out 0x1b,R2
	.dbline 18
;    delay(25);
	ldi R16,25
	rcall _delay
	.dbline 19
;   }                          
	.dbline 15
	.dbline 15
	rjmp L11
X0:
L10:
	ret
	.dbline 16}