hongwai.s

红外的运用

	.module hongwai.c
	.area text(rom, con, rel)
	.dbfile E:\zh\avr\8515板\hs0038\hongwai.c
	.dbfunc e delay _delay fV
;              i -> R16,R17
;              j -> R18,R19
	.even
_delay::
	.dbline -1
	.dbline 4
; #include<io8515v.h>
; #include<macros.h>
; void delay()
; {
	.dbline 6
; 	int i,j;
; 	for(i=0;i<250;i++)
	clr R16
	clr R17
L2:
	.dbline 7
	clr R18
	clr R19
L6:
	.dbline 7
L7:
	.dbline 7
	subi R18,255  ; offset = 1
	sbci R19,255
	.dbline 7
	cpi R18,200
	ldi R30,0
	cpc R19,R30
	brlt L6
L3:
	.dbline 6
	subi R16,255  ; offset = 1
	sbci R17,255
	.dbline 6
	cpi R16,250
	ldi R30,0
	cpc R17,R30
	brlt L2
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbsym r i 16 I
	.dbsym r j 18 I
	.dbend
	.dbfunc e m8515_init _m8515_init fV
	.even
_m8515_init::
	.dbline -1
	.dbline 10
; 	for(j=0;j<200;j++);
; }
; void m8515_init()
; {
	.dbline 11
;  DDRA=0XFF;
	ldi R24,255
	out 0x1a,R24
	.dbline 12
;  PORTA=0XAA;
	ldi R24,170
	out 0x1b,R24
	.dbline 13
;  DDRB=0X00;
	clr R2
	out 0x17,R2
	.dbline 14
;  PORTB=0Xff;
	ldi R24,255
	out 0x18,R24
	.dbline 15
;  DDRC=0X00;
	out 0x14,R2
	.dbline 16
;  PORTC=0XFF;
	out 0x15,R24
	.dbline 17
;  DDRD=0X00;
	out 0x11,R2
	.dbline 18
;  PORTD=0XFF;
	out 0x12,R24
	.dbline -2
L10:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e main _main fV
;            sig -> <dead>
	.even
_main::
	.dbline -1
	.dbline 21
; }		
; void main()
; {
	.dbline 23
;   unsigned char sig;
;   m8515_init();
	rcall _m8515_init
	rjmp L13
L12:
	.dbline 25
;   while(1)
;     {
	.dbline 26
; 	 DDRB=0X00;
	clr R2
	out 0x17,R2
	.dbline 27
; 	 PORTA=0xff;
	ldi R24,255
	out 0x1b,R24
L15:
	.dbline 28
L16:
	.dbline 28
; 	 while(PINB==0xff);
	in R24,0x16
	cpi R24,255
	breq L15
L18:
	.dbline 29
L19:
	.dbline 29
; 	 while(PINB!=0xff);
	in R24,0x16
	cpi R24,255
	brne L18
	.dbline 30
; 	 PORTA=0x00;delay();
	clr R2
	out 0x1b,R2
	.dbline 30
	rcall _delay
L21:
	.dbline 31
L22:
	.dbline 31
; 	 while(PINB==0xff);
	in R24,0x16
	cpi R24,255
	breq L21
	.dbline 32
; 	 delay();
	rcall _delay
L24:
	.dbline 33
L25:
	.dbline 33
	in R24,0x16
	cpi R24,255
	brne L24
	.dbline 34
L13:
	.dbline 24
	rjmp L12
X0:
	.dbline -2
L11:
	.dbline 0 ; func end
	ret
	.dbsym l sig 1 c
	.dbend