delay.s

433M收发,内有PCB(用99打开),源程序ICC打开,用了IC发送和三极管两种,接收用RX3310

	.module delay.c
	.area text(rom, con, rel)
	.dbfile E:\abol\file\EMD\programme\delay.c
	.dbfunc e del _del fV
;           time -> R16,R17
	.even
_del::
	.dbline -1
	.dbline 21
; 
; /********************************************************/
; /*         			ABOL      			  				*/
; /*                868MHZ数码管显示接收器   				*/
; /*     作者:于朝晖     2008-5-24 9:30:00  				*/
; /*     目标MCU:MEGA16  晶振:INT RC 8MHZ  				*/
; /* 文件名称：main.c  主函数								*/
; /* 编译：ICC-AVR application builder					*/
; /* 当前版本： 1.0										*/
; /* 修改日期： 2008.5.24									*/
; /********************************************************/
; 
; 
; #include <iom88v.h>
; #include <macros.h>
; #include "delay.h"
; #define xtal 8 
; 
; /*		微秒级延时程序	*/	
; void del(int time)
; 	 {     
L2:
	.dbline 23
;   	  do
; 	  	{
	.dbline 24
; 		 time--;
	subi R16,1
	sbci R17,0
	.dbline 25
; 		}	
L3:
	.dbline 26
;   	  while (time>1);
	ldi R24,1
	ldi R25,0
	cp R24,R16
	cpc R25,R17
	brlt L2
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbsym r time 16 I
	.dbend
	.dbfunc e delay_1ms _delay_1ms fV
;             i1 -> R16,R17
	.even
_delay_1ms::
	.dbline -1
	.dbline 31
; 	 }
; 	 
; /*	   毫秒级延时程序   	*/	 
; void delay_1ms(void)
; { unsigned int i1;
	.dbline 32
;  for(i1=1;i1<(unsigned int)(xtal*143-2);i1++)
	ldi R16,1
	ldi R17,0
	rjmp L9
L6:
	.dbline 33
L7:
	.dbline 32
	subi R16,255  ; offset = 1
	sbci R17,255
L9:
	.dbline 32
	cpi R16,118
	ldi R30,4
	cpc R17,R30
	brlo L6
	.dbline -2
L5:
	.dbline 0 ; func end
	ret
	.dbsym r i1 16 i
	.dbend
	.dbfunc e delay _delay fV
;             i2 -> R20,R21
;              n -> R22,R23
	.even
_delay::
	rcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 37
;     ;
; }
; 
; void delay(unsigned int n)
; {
	.dbline 38
;  unsigned int i2=0;
	clr R20
	clr R21
	rjmp L12
L11:
	.dbline 40
	.dbline 40
	rcall _delay_1ms
	.dbline 41
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 41
	wdr
	.dbline 42
L12:
	.dbline 39
;    while(i2<n)
	cp R20,R22
	cpc R21,R23
	brlo L11
	.dbline -2
L10:
	rcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i2 20 i
	.dbsym r n 22 i
	.dbend