Форум РадиоКот

Tankor писал(а):В хедпе васика есть, но надо с английским дружить или онлайн переводчик использовать.

Я так методом втыка проверил - любая комбинация цифр в стеках не превышающая 63 ( с Вашей одной переменной) - работает. 64 и более ругается на отсутствие памяти. По крайней мере для Тини 2313. И еще, если добавляются переменные - то "магическое" число под стек уменьшается. Попробуйте сами - добавьте 2 переменные и стек придется уменьшать на 2.
P.S. Посмотрел на реальной проге - так переменные вроде и не влияют.

Это распределение пространства статической памяти (SRAM) под нужды программы в байтах, так называемый стэк.
hwstack - аппаратный стек, он необходим контроллеру чтобы записывать в него адреса того места, откуда прыгнула программа на подпрограмму или функцию. Если проще то так, камень выполняет программу и тут ему нужно уйти на выполнение какой-то подпрограммы (например прерывание), вот чтобы знать куда возвращаться после того как подпрограмма отработана, необходимо место чтобы сохранить этот адрес. При использовании в программе одного Gosub необходимо место в 2 байта.
swstack - программный стэк. Практически тоже самое, но хранит переменные (вернее их адреса) чтобы не потерять их после ухода на подпрограмму. Для хранения каждого адреса переменной тоже нужно резервировать по 2 байта.
framesize - это размер выделяемой памяти для преобразований строк, их форматирования, подготовку вывода на дисплей по команде LCD или PRINT/INPUT. В общем та область памяти куда буферизируются переменные для последующей обработки.

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

Dim A As Long
Dim B As Long
Dim C As Long
Dim D As Long
Dim E As Long


Do

incr A
incr B
incr C
incr D
incr E

if a>3335556666 then 'сколько то часов покрутили и хватит
gosub pdprogramma
return

if b>111555111 then 'сколько то часов покрутили и хватит
gosub pdprogramma
return

delayms(1) 'длительность цикла примерно

Loop

End

Podprogramma
a=0
b=0
c=0
d=0
e=0
return

Tankor писал(а):if a>3335556666 then 'сколько то часов покрутили и хватит
gosub pdprogramma
return 'ВОТ ЭТО ЗАЧЕМ, может end if

Можно короче:
if a>3335556666 then gosub pdprogramma
if b>111555111 then gosub pdprogramma

А ещё лучше всё в ассме (можно и отдельные куски), и место ещё останется.
Со стеками "магия". Не видел точное, простое описание и методу вычислений. Только на практике.
Обнуление:
Loadadr a , X
!ldI r16,0
!st x+,r16
!st x+,r16
!st x+,r16
!st x+,r16
Можно и так:
!LDI r16,0
!STS {a},r16
!STS {a+1},r16
!STS {a+2},r16
!STS {a+3},r16
Тут много интересного про асм вставки. http://bascomavr.3bb.ru/viewtopic.php?id=1275

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

Project :
Version :
Date : 18.12.2011
Author : Freeware, for evaluation and
non-commercial use only
Company :
Comments:


Chip type : ATtiny13
AVR Core Clock frequency: 4,800000 MHz
Memory model : Tiny
External RAM size : 0
Data Stack size : 16
*****************************************************/

#include <tiny13.h>

#include <delay.h>

int get,but;
// Timer 0 overflow interrupt service routine
interrupt [TIM0_OVF] void timer0_ovf_isr(void)
{
// Place your code here

}
... и так далее

KOTик писал(а):Мрр неспящим котам
Я к вам за помощью.

Имеется Ардуино Нано, блютус и светик.
Нашел простенькую программу - по УАРТ приходит символ и частота мерцания меняется (1 - чаще; 2 - реже). Подружил Барсик с АРдуино и прошил из него же.
Посылаю по уарт 1 и/или 2- ничего не меняется. В протеусе все четко работает.
Залил тестовый скетч с Ардуино ИДЕ - тоже все работает, а вот прошитый hex/bin из под барсика ни в какую.
Два дня голову ломаю, не пойму в чем дело

Может где фьюзы поставить надо, бутлоадер отключить (в случае с барсиком) или еще что?
Буду признателен, если кто поможет
Прикладываю архив.

ARDUINO_NANO.zip

Вот, портировал ещё один пример - программный УАРТ. В протеусе пашет, в железе нет.

Код: Выделить всё

$regfile = "m328pdef.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32



Open "comd.2:9600,8,n,1" For Output As #1                   'PD.2 TXD - ARDUINO PIN D2
Open "comd.4:9600,8,n,1" For Input As #2                    'PD.4 RXD - ARDUINO PIN D4
Dim Cmd As String * 8

Config Portb.0 = Output                                     'ARDUINO PIN D8
Led Alias Portb.0


Print #1 , "Program UART for AVR microcontroller Attiny13"
Print #1 , "------"
Print #1 , "Developer: Yakovlev Alexander"
Print #1 , "E-mail: haker.by@mail.ru"
Print #1 , "------"
Print #1 , "Hello http://cxem.net !!!"
Print #1 , "------"

Do

Print #1 , "Command: (0=[OFF] / 1=[ON])"
Input #2 , Cmd

If Cmd = "1" Then
Led = 1
Print #1 , "LED IS ON!"
End If

If Cmd = "0" Then
Led = 0
Print #1 , "LED IS OFF!"
End If

Loop


End

kip96 писал(а): Так у ардуино вроде кварц на 16МГц стоит. А в программе 8 написанно.
З.Ы,
Я вообще все свои ардуино перепрошил на бутлоадер баскома. Всё на много проще.

Dnepr_1186 писал(а):Доброго времени суток! Бьюсь я с часами реального времени на ds1302. Пришел с китая модуль, хотя в описании значилась микросхема дс1207. С горем пополам запустил часы с этим модулем, потому как нормального примера и библиотеки не нашел, только какие-то отрывки кода на китайском сайте. Так вот собственно все работает, когда данные часов ввожу через компьютер, то есть задав начальное врмя в прошивке. Когда же пытаюсь кнопкой увеличить показания допустим часа, оно не меняется. Но заметил такую фишку что когда пишу в программе hour=hour+1 показания не меняется, если же задаю hour=hour+2, то при нажатии кнопки время исправно меняется на 2 часа вперед. Помогите разобраться, уже голова кипит.
Проект протеус и все остальное прилагаю.

pavel1979 писал(а):собираю радиоуправляемый жук,включение жука-по сигналу с рации,передача DTMF,есть ли у кого пример декодера (не кодера,а именно декодера) на баском авр?нет желания использовать спец дешифраторы типа mt8870 так как питание от лития с сотового,минимум потребления и габариты

Tankor писал(а): Повнимательней с поиском. На сайте баскома уже всё есть готовое. http://www.mcselec.com/index2.php?optio ... ght=ds1302
А из празного интереса вопрос можно? Накой такой "древний модель" использовать? Ну хотя бы ds1307 по шине i2c.

'The prescale parameter excepts 1,8,64,256 or 1024
Config Timer0 = Timer , Prescale = 256
On Timer0 My_timer
Enable Interrupts
Enable Timer0

$regfile = "attiny13a.dat"
$crystal = 128000 '57 FD (wdt+, 1.8V, 128k, 4ms)
$hwstack = 16
$swstack = 16
$framesize = 16

Dnepr_1186 писал(а):Вопрос может не в тему но все же. Хочу подключить ds18b20 с паразитным питанием. Нужны ли какие нибудь изменения в коде? Просто в нормальном режиме подключения температура отображается, а с паразитным питанием-пишет 85гр и все Может есть какие хитрости?