Маячок для радиоориентирования на 3.5 МГц.
                                                Бирюков Н.В.   г. Симферополь.

Не так давно на сервере Кубанских радиолюбителей появилась схема тренировочной "лисы" http://cqham.ru/ot22_42.htm.
Передатчик слышно всего в радиусе 20 метров -это очень мало, использован кварц 14МГц, что сильно снижает экономичность, но сама идея -максимально использовать ресурсы микропроцессора и таким образом упростить конструкцию, безусловно хороша. Можно ли усовершенствоватьэту схему?
В микроконтроллере ATTiny-2313, установив фьюз SKOUT, можно вывести тактовую частоту 3.5 МГц на выход PORTD.2 , но при этом выходом  становится невозможно управлять. Однако, если переводить ATTiny-2313 в спящий режим, тактовый генератор будет выключаться, а пробудиться через заданное время поможет WatchDog. Так можно сформировать тире, точки и паузы.  Для индикации мощности в антенне можно воспользоваться аналоговым компаратором микропроцессора. Помимо фьюза SKOUT нужно установитьфьюзы для работы с кварцевым резонатором.   Так в течение одного вечера была сделана следующая схема.
Маячок потребляет средний ток  2.5 ма от источника 4,5в.
Работает в диапазоне питающих напряжений 1.5 -5.5 в.
При правильно настроенной антенне слышен на расстоянии до1 км.
Укоротив антенну его можно использовать для радиоориентирования.
Исходный текст программы на "СИ" привожу ниже. Запрограммирована буква  Р  .-.


/*****************************************************
This program was produced by the
CodeWizardAVR V2.03.4 Standard
Automatic Program Generator
© Copyright 1998-2008 Pavel Haiduc, HP InfoTech s.r.l.
http://www.hpinfotech.com

Project :
Version :
Date    : 05.11.2009
Author  :Бирюков Н.В.
Company :
Comments: Маячок для тренировок, используется вывод SKOUT для излучения мощности в антенну
аналоговый компаратор для индикации выхода.
Chip type           : ATtiny2313V
Clock frequency     : 3,579500 MHz
Memory model        : Tiny
External RAM size   : 0
Data Stack size     : 32
*****************************************************/

#include <tiny2313.h>
#include <delay.h>
// Watchdog timeout interrupt service routine
interrupt [WDT] void wdt_timeout_isr(void)
{
WDTCR|=0x40;
// Прерывание только чтобы вывести процессор из спящего режима
}
unsigned int b, a;
void main(void)
{
// Crystal Oscillator division factor: 1
#pragma optsize-
CLKPR=0x80;
CLKPR=0x00;
#ifdef _OPTIMIZE_SIZE_
#pragma optsize+
#endif
// Input/Output Ports initialization
// Port A initialization
// Func2=In Func1=In Func0=In
// State2=T State1=T State0=T
PORTA=0x00;
DDRA=0x00;
// Port B initialization
// Func7=In Func6=In Func5=In Func4=In Func3=In Func2=In Func1=In Func0=In
// State7=T State6=T State5=T State4=T State3=T State2=T State1=T State0=T
PORTB=0x00;
DDRB=0x00;
// Port D initialization
// Func6=In Func5=In Func4=In Func3=Out Func2=Out Func1=In Func0=In
// State6=T State5=T State4=T State3=0 State2=0 State1=T State0=T
PORTD=0x00;
DDRD=0x0D;
// Timer/Counter 0 initialization
TCCR0A=0x00;
TCCR0B=0x00;
TCNT0=0x00;
OCR0A=0x00;
OCR0B=0x00;
// Timer/Counter 1 initialization
TCCR1A=0x00;
TCCR1B=0x00;
TCNT1H=0x00;
TCNT1L=0x00;
ICR1H=0x00;
ICR1L=0x00;
OCR1AH=0x00;
OCR1AL=0x00;
OCR1BH=0x00;
OCR1BL=0x00;
// External Interrupt(s) initialization
// INT0: Off
// INT1: Off
// Interrupt on any change on pins PCINT0-7: Off
GIMSK=0x00;
MCUCR=0x00;
// Timer(s)/Counter(s) Interrupt(s) initialization
TIMSK=0x00;
// Universal Serial Interface initialization
// Mode: Disabled
// Clock source: Register & Counter=no clk.
// USI Counter Overflow Interrupt: Off
USICR=0x00;
// Analog Comparator initialization
// Analog Comparator: Off
// Analog Comparator Input Capture by Timer/Counter 1: Off
ACSR=0x40;
DIDR=0x02;
// Watchdog Timer initialization
// Watchdog Timer Prescaler: OSC/16k
// Watchdog Timer interrupt: On
#pragma optsize-
#ifdef _OPTIMIZE_SIZE_
#pragma optsize+
#endif
while (1)
      {WDTCR=0x1B;
       WDTCR=0x4B;
       ACSR=0x40;
      #asm("cli");
      delay_ms(5);
      for (a=0;a<25;a++) {
      delay_ms(5);
      b=ACSR;
      b=b&0b00100000;
        if (b==0)
       {PORTD.0=0;
       }
       else  {PORTD.0=1;   
       };
    };
      #asm("wdr");
      #asm("sei");
      MCUSR=0;
      MCUCR=0x30;
      ACSR=0x80;
      PORTD.0=1;
      #asm("sleep");     
       #asm("cli");
        ACSR=0x40;
      delay_ms(5);
           for (a=0;a<75;a++) {
       delay_ms(5);   
      b=ACSR;
      b=b&0b00100000;
        if (b==0)
       {PORTD.0=0;
       }
       else  {PORTD.0=1;   
       };    
    };
      #asm("wdr");
      #asm("sei");
      MCUSR=0;
      MCUCR=0x30;
      ACSR=0x80;
      PORTD.0=1;
      #asm("sleep")
      #asm("cli");
      delay_ms(5);
      ACSR=0x40;
           for (a=0;a<25;a++) {
      delay_ms(5);    
      b=ACSR;
      b=b&0b00100000;
        if (b==0)
       {PORTD.0=0;
       }
       else  {PORTD.0=1;   
       };
    };
      #asm("wdr");
      #asm("sei");
      WDTCR=0x1C;
      WDTCR=0x4C;
      MCUSR=0;
      MCUCR=0x30;
      ACSR=0x80;
      PORTD.0=1;
      #asm("sleep");
                 
      };
  }