BASCOM AVR для радиолюбителей

[ur3ilf]

Сообразить как это сделать ни как не могу, именно по этой причине обратился за помощью.

Поди туда- не знаю куда, принеси то- не знаю что.

$regfile = "attiny13a.dat"
$crystal = 9600000
$hwstack = 16
$swstack = 16
$framesize = 12


'откл CKDIV8
Config Clockdiv = 1


'конфигурация выхода
Config Portb.0 = Output
Vyhod Alias Portb.0
'****************************
Const Ts = 2
'1 дергает ногу по переполнении Т0
'2 дёргает ногу с PWM
'****************************
#if Ts = 1
  Dim T As Byte : T = 106                            'clock / T and Prescale  1khz
  Config Timer0 = Timer , Prescale = 64         'Prescale value must be 1,8,64,256 or 1024
  On Timer0 Impulse
  Enable Timer0
  Start Timer0
  Enable Interrupts
#endif
'****************************
#if Ts = 2                                                  'PWM
  Config Timer0 = Pwm , Compare A Pwm = Clear Down , Prescale = 64
' Pwm0a = 128                                            'скважность=2
 Do
  !lds R16 , {Pwm0a}                                   'Плавная перестройка ШИМ
  !dec R16
  !sts {Pwm0a} , R16
  Waitms 10
 Loop
#endif
'############################
#if Ts = 1
 Do
  nop
 Loop
'.'.'.'.'.'.'.'.'.
 Impulse:
  Toggle Vyhod
  Tcnt0 = T
 Return
#endif

Ts написано что делает при компиляции. Оба варианта таймером дёргают ногу. Типа аппаратно. Второй вариант с PWM. Если Pwm0a установить половину разрядности Т0 получите разыскиваемый "аппаратный меандр".

[Сергей Урал]

Всем откликнувшимся спасибо за помощь!

[EU1ABR]

Оу ассемблерные вставки в баскоме, респект!

[R2RBN]

ассемблерные вставки в баскоме, респект!

А что такого удивительного,там ассемблер спокойно вставляется,хоть всю программу напиши на нём.

[Adagumer]

А знак диеза (#) перед командами там в тексте что делает?
Что-то я раньше такого не встречал!

[DMJ]

Со знака # начинаются директивы условной компиляции.
Участок между #if Ts = 1 и #endif компилируется только при Ts равном 1, в противном случае пропускается
Участок между #if Ts = 2 и #endif компилируется только при Ts равном 2, в противном случае пропускается.

Значение Ts меняют вручную в начале программы в зависимости от того, какой вариант нужно получить (по переполнению таймера или с PWM).

[Сергей Урал]

Вообщем вышло у меня вот так.

$Regfile="m8def.dat"
$Crystal=4096000
$hwstack=40
$swstack=16
$framesize=32

Enable Interrupts
Config Timer1 = Timer, Prescale = 64, Compare A = Toggle, Clear Timer = 1

Config Portb.1 = Output
Dim Endtime as Word
Endtime = 32

Do
COMPARE1A = Endtime
Loop
End

Сможете подсказать, будут ли при таком решении какие либо подводные камни.

[Vital R2GKH]

Коллеги, может что и упустил, но недавно стало откровением то, что "часовой 32768" кварц можно повесить на ножки PB6,7 и тактировать им исключительно таймер(ы). При этом ядро тактируется от встроенного "калиброванного RC-генератора".
А как должна выглядеть строка
CONFIG TIMERx=
для этого?
И как запараметрировать ножки PB6,7 ?

[Владимир_К]

Коллеги, может что и упустил, но недавно стало откровением то, что "часовой 32768" кварц можно повесить на ножки PB6,7 и тактировать им исключительно таймер(ы). При этом ядро тактируется от встроенного "калиброванного RC-генератора".

Не знал такой возможности и в даташите пока не вижу. Имею ввиду Atmel, например Atmega328P или подобные.
STM32 да, имеет такую возможность. Можно и два кварца поцепить. Мало того, если оба кварца по какой-то причине перестают генерить, контроллер автоматчески переходит на тактирование от RC-генератора.

[ur3ilf]

А как должна выглядеть строка
CONFIG TIMERx=
для этого?

Для мега8 по моему так конфигурируется. Кварц 32768 припаивается без конденсаторов к Xtal1 Xtal2 Давно часы делал. Не помню уже и исходник не сохранился.
$regfile = "m8def.dat"
$crystal = 8000000
Config Timer2 = Counter , Edge = Falling , Prescale = 1

Не знал такой возможности и в даташите пока не вижу. Имею ввиду Atmel, например Atmega328P или подобные.

В мега16 есть. http://easyelectronics.ru/avr-uchebn...m-tajmera.html