      org 0000h
dlv:  mov r2,#08h                 ;1kz持续时间
dlv1: mov r3,#0fah			  
dlv2: cpl p1.7                    ;输出1khz方波
      lcall d5ms                  ;调用延时程序1
      djnz r3,dlv2                ;持续1秒
      djnz r2,dlv1				  
      mov r2,#10h                  ;2khz持续时间
dlv3: mov r3,#0fah					
dlv4: cpl p1.7                     ;输出2khz方波
      lcall d25ms                 ;调用延时程序2
      djnz r3,dlv4				
      djnz r2,dlv3				
      sjmp dlv                    ;反复循环
d5ms: mov r7,#0ffh                ;延时子程序1
loop: nop						  
      nop						  
      djnz r7,loop
      ret
d25ms:mov r6,#0ffh               ; 延时子程序2
lin:  djnz r6,lin						
      ret								
      end								
