delay.lis

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

                        .module delay.c
                        .area text(rom, con, rel)
 0000                   .dbfile E:\abol\file\EMD\programme\EM-PB-2129\delay.c
 0000                   .dbfunc e del _del fV
 0000           ;           time -> R16,R17
                        .even
 0000           _del::
 0000                   .dbline -1
 0000                   .dbline 14
 0000           ; 
 0000           ; /* 文件名称：main.c  主函数                                                           */
 0000           ; /* 编译：ICC-AVR application builder                                  */
 0000           ; 
 0000           ; 
 0000           ; 
 0000           ; #include <iot13v.h>
 0000           ; #include <macros.h>
 0000           ; #include "delay.h"
 0000           ; #define xtal 9.8 
 0000           ; 
 0000           ; /*            微秒级延时程序  */      
 0000           ; void del(int time)
 0000           ;        {     
 0000           L2:
 0000                   .dbline 16
 0000           ;         do
 0000           ;               {
 0000                   .dbline 17
 0000           ;                time--;
 0000 0150              subi R16,1
 0002 1040              sbci R17,0
 0004                   .dbline 18
 0004           ;               }       
 0004           L3:
 0004                   .dbline 19
 0004           ;         while (time>1);
 0004 81E0              ldi R24,1
 0006 90E0              ldi R25,0
 0008 8017              cp R24,R16
 000A 9107              cpc R25,R17
 000C CCF3              brlt L2
 000E                   .dbline -2
 000E           L1:
 000E                   .dbline 0 ; func end
 000E 0895              ret
 0010                   .dbsym r time 16 I
 0010                   .dbend
 0010                   .dbfunc e delay_1ms _delay_1ms fV
 0010           ;             i1 -> R16,R17
                        .even
 0010           _delay_1ms::
 0010                   .dbline -1
 0010                   .dbline 24
 0010           ;        }
 0010           ;        
 0010           ; /*       毫秒级延时程序       */       
 0010           ; void delay_1ms(void)
 0010           ; { unsigned int i1;
 0010                   .dbline 25
 0010           ;  for(i1=1;i1<(unsigned int)(xtal*143-2);i1++)
 0010 01E0              ldi R16,1
 0012 10E0              ldi R17,0
 0014 02C0              rjmp L9
 0016           L6:
 0016                   .dbline 26
 0016           L7:
 0016                   .dbline 25
 0016 0F5F              subi R16,255  ; offset = 1
 0018 1F4F              sbci R17,255
 001A           L9:
 001A                   .dbline 25
 001A 0737              cpi R16,119
 001C E5E0              ldi R30,5
 001E 1E07              cpc R17,R30
 0020 D0F3              brlo L6
 0022                   .dbline -2
 0022           L5:
 0022                   .dbline 0 ; func end
 0022 0895              ret
 0024                   .dbsym r i1 16 i
 0024                   .dbend
 0024                   .dbfunc e delay _delay fV
 0024           ;             i2 -> R20,R21
 0024           ;              n -> R22,R23
                        .even
 0024           _delay::
 0024 00D0              rcall push_gset2
 0026 602F              mov R22,R16
 0028 712F              mov R23,R17
 002A                   .dbline -1
 002A                   .dbline 30
 002A           ;     ;
 002A           ; }
 002A           ; 
 002A           ; void delay(unsigned int n)
 002A           ; {
 002A                   .dbline 31
 002A           ;  unsigned int i2=0;
 002A 4427              clr R20
 002C 5527              clr R21
 002E 04C0              rjmp L12
 0030           L11:
 0030                   .dbline 33
 0030                   .dbline 33
 0030 EFDF              rcall _delay_1ms
 0032                   .dbline 34
 0032 4F5F              subi R20,255  ; offset = 1
 0034 5F4F              sbci R21,255
 0036                   .dbline 34
 0036 A895              wdr
 0038                   .dbline 35
 0038           L12:
 0038                   .dbline 32
 0038           ;    while(i2<n)
 0038 4617              cp R20,R22
 003A 5707              cpc R21,R23
 003C C8F3              brlo L11
 003E                   .dbline -2
 003E           L10:
 003E 00D0              rcall pop_gset2
 0040                   .dbline 0 ; func end
 0040 0895              ret
 0042                   .dbsym r i2 20 i
 0042                   .dbsym r n 22 i
 0042                   .dbend