Не могу выставить задержку Тини2313

Chip15

Всем привет. Не получается выставить задержку 1 сек.

Код:

.nolist 
.include "tn2313def.inc" 
.list 
.def   temp =r16 
.def   temp2 =r20 
.def    delay1 =r17 
.def    delay2 =r18 
.def   delay3 =r19 
rjmp Init 
Init: 
   ser temp 
   out DDRA,temp 
   out DDRB,temp 
   out DDRD,temp 
   ldi delay1,0x00 
   ldi delay2,0x35 
   ldi delay3,0x0C    
Start: 
   ldi temp,0b00000001 
   out PinB,temp 
Loop: 
   subi Delay1,1 
   sbci Delay2,0 
   sbci Delay3,0 
   brcc Loop 
   clr temp2 
   out PinB,temp2 
Loop2: 
   subi Delay1,1 
   sbci Delay2,0 
   sbci Delay3,0 
   brcc Loop2 
rjmp Start  

В реале больше 40 сек. Чувство что МК на пониженой частоте пашет.

Кварц подкидывал. Кстати он на 4 МГц. Еще по пути. Не доконца догоняю как выставлять фузы.
Галки поставил в CKSEL1 и SUT1. Остальные пустые.

Victorovych

Для начала скинь CKDIV8 в 1 (убери флажок)

Chip15

нет его там.

Victorovych

Eсли перед каждым циклом предустановку delay1..delay3 делать, то должно раз в 40 полегчать

EdGull

Вот всё таки любим мы себе проблемы создавать на пустом месте...

Код:

$regfile = "attiny2313.dat"
$crystal = 4000000
$baud = 9600

Dim I As Integer

Do
  Incr I
  Print "test I = " ; I
  Waitms 1000
Loop

Chip15

Я не волшебник. только учусь. Можите расшифровать команды, если не сложно

Myp

вот тут всё подробно описано

EdGull

Chip15 писал(а):

Я не волшебник. только учусь. Можите расшифровать команды, если не сложно

какие именно?

Chip15

Код:

$regfile = "attiny2313.dat"
$crystal = 4000000
$baud = 9600

Dim I As Integer

Do
  Incr I
  Print "test I = " ; I
  Waitms 1000
Loop

эти

EdGull

ну давай так, сам-то как думаешь какая команда что означает?

Добавлено спустя 1 минуту 20 секунд:
а то я даже как-то растерялся...

на асме пишешь, а бейсиковские команды не знаешь...

Chip15

Код:

$regfile = "attiny2313.dat"    
$crystal = 4000000               ;частота кристала
$baud = 9600                       ;скорость

Dim I As Integer                   ;объявление переменной

Do
  Incr I                                ;инкремеентирование переменной
  Print "test I = " ; I             ; вывод в уарт строки test I = "номер попытки"
  Waitms 1000                    ;ждем 1 сек                
Loop

Victorovych

Код:

.include "tn2313def.inc"
.list
.def   temp =r16
.def   temp2 =r20
.def    delay1 =r17
.def    delay2 =r18
.def   delay3 =r19
rjmp Init
Init:
   ser temp
   out DDRA,temp
   out DDRB,temp
   out DDRD,temp
   ldi delay1,0x00
   ldi delay2,0x35
   ldi delay3,0x0C   
Start:
   ldi temp,0b00000001
   out PinB,temp
Loop:
   subi Delay1,1
   sbci Delay2,0
   sbci Delay3,0
   brcc Loop
   ldi delay1,0x00
   ldi delay2,0x35
   ldi delay3,0x0C  
   clr temp2
   out PinB,temp2
Loop2:
   subi Delay1,1
   sbci Delay2,0
   sbci Delay3,0
   brcc Loop2
   ldi delay1,0x00
   ldi delay2,0x35
   ldi delay3,0x0C  
rjmp Start 

так попробуй

EdGull

ай маладца
9600 скорость уарта
print это вывод в уарт

Добавлено спустя 1 минуту 11 секунд:
Incr I - это не объявление, а инкрементироваие переменной, т.е. прибавление к ней единички

Chip15

Victorovych , уже лудше. Возник вопрос:
1. Задержка примерно 3 сек. Из за чего так? У мя емкости в обвязке кварца на 33 стоят. (по дш 22 надо)

Добавлено спустя 26 минут 6 секунд:
Все. Исправил. Немного поправил прогу и задержка стала расчетной

Вставил rcall Delay
Всем огромное спасибо. Помогли "чайнику"

Буду осваивать дальше

Код:

.include "tn2313def.inc"
.list
.def   temp =r16
.def   temp2 =r20
.def    delay1 =r17
.def    delay2 =r18
.def   delay3 =r19
rjmp Init
Init:
   ser temp
   out DDRA,temp
   out DDRB,temp
   out DDRD,temp
Delay:
   ldi delay1,0x00
   ldi delay2,0x35
   ldi delay3,0x0C   
Start:
   ldi temp,0b00000001
   out PinB,temp
Loop:
   subi Delay1,1
   sbci Delay2,0
   sbci Delay3,0
   brcc Loop
   rcall Delay
   ret 
   clr temp2
   out PinB,temp2
Loop2:
   subi Delay1,1
   sbci Delay2,0
   sbci Delay3,0
   brcc Loop2
   rcall Delay
   ret 
rjmp Start

roboforum.ru

Не могу выставить задержку Тини2313

Кто сейчас на конференции