Цитата(sergik_vrn @ Dec 21 2007, 13:26)

ну вообще-то неплохо было бы привести хоть какие-то исходники (протокола например). навскидку можно предположить, что Вы где-то напортачили с реализацией протокола (насколько я помню, там операция чтения/записи как раз определяется последним битом адреса, то есть четностью числа)
main.asm
.include "tn2313def.inc"
.equ LED1 = PD2
.equ LED2 = PD6
.equ LED3 = PD4
.equ LED4 = PD5
.cseg
.org 0x00
rjmp main
.org 0x01
rjmp main
.org 0x02
rjmp main
.org 0x03
rjmp main
.org 0x04
rjmp main
.org 0x05
rjmp main
.org 0x06
rjmp main
.org 0x07
rjmp main
.org 0x08
rjmp main
.org 0x09
rjmp main
.org 0x0a
rjmp main
.org 0x0b
rjmp main
.org 0x0c
rjmp main
.org 0x0d
rjmp t0_compa
.org 0x0e
rjmp main
.org 0x0f
rjmp main
.org 0x10
rjmp main
.org 0x11
rjmp main
.org 0x12
rjmp main
t0_compa:
push r16
push r17
push ZH
push ZL
lds r16, LedNum
cpi r16, 0x01
breq t0_l1
cpi r16, 0x02
breq t0_l2
cpi r16, 0x03
breq t0_l3
cpi r16, 0x04
breq t0_l4
rjmp t0_l5
t0_l1:
cbi PORTD, LED1
sbi PORTD, LED2
sbi PORTD, LED3
sbi PORTD, LED4
lds r17, DisplayNum
rjmp t0_l5
t0_l2:
sbi PORTD, LED1
cbi PORTD, LED2
sbi PORTD, LED3
sbi PORTD, LED4
lds r17, DisplayNum + 1
rjmp t0_l5
t0_l3:
sbi PORTD, LED1
sbi PORTD, LED2
cbi PORTD, LED3
sbi PORTD, LED4
lds r17, DisplayNum + 2
rjmp t0_l5
t0_l4:
clr r16
sbi PORTD, LED1
sbi PORTD, LED2
sbi PORTD, LED3
cbi PORTD, LED4
lds r17, DisplayNum + 3
rjmp t0_l5
t0_l5:
ldi ZH, high(Digits << 1)
ldi ZL, low(Digits << 1)
add ZL, r17
lpm r17, Z
cpi r16, 0x02
brne t0_l6
ori r17, 0x80
t0_l6:
com r17
out PORTB, r17
inc r16
sts LedNum, r16
t0_exit:
pop ZL
pop ZH
pop r17
pop r16
reti
main:
ldi r16, RAMEND
out SPL, r16
clr r16
sts LedNum, r16
rcall InitLedPort
rcall InitTimer
rcall InitPort
// Сбросить защиту от записи
ldi r16, 0x8E
ldi r17, 0x00
rcall DataWrite
//Установить часы
ldi r16, 0x84
ldi r17, 0x12
rcall DataWrite
//Установить минуты
ldi r16, 0x82
ldi r17, 0x30
rcall DataWrite
// Установить секунды
ldi r16, 0x80
ldi r17, 0x00
rcall DataWrite
//Установить День
ldi r16, 0x86
ldi r17, 0x21
rcall DataWrite
//Установить месяц
ldi r16, 0x88
ldi r17, 0x12
rcall DataWrite
//Установить год
ldi r16, 0x8C
ldi r17, 0x07
rcall DataWrite
mainloop:
ldi r16, 0x85
rcall DataRead
mov r18, r17
andi r17, 0b00001111
sts DisplayNum + 1, r17
swap r18
andi r18, 0b00001111
sts DisplayNum + 0, r18
ldi r16, 0x83
rcall DataRead
mov r18, r17
andi r17, 0b00001111
sts DisplayNum + 3, r17
swap r18
andi r18, 0b00001111
sts DisplayNum + 2, r18
rjmp mainloop
.include "delay.inc"
.include "7-s.inc"
.include "time.inc"
.include "timer.inc"
.dseg
LedNum: .db '\x00'
DisplayNum: .db '\x00', '\x00', '\x00', '\x00'
и собственно реализация протокола time.inc:
.equ CE = PD3
.equ CLK = PD1
.equ IO = PD0
.cseg
InitPort:
sbi DDRD, CE
sbi DDRD, CLK
cbi PORTD, CE
cbi PORTD, CLK
ret
PortToIn:
cbi DDRD, IO
ret
PortToOut:
sbi DDRD, IO
ret
DataWrite:
// Передаем коммандный байт
// r16 - комманда
cli
push r18
push r19
sbi DDRD, CLK
ldi r18, 8 // Счетчик бит
rcall PortToOut // Переключаем порт на выход данных, что бы передать коммандый байт
cbi PORTD, CLK // Подготавливаем RTC к передачи данных
DelayUs 10 // Временная задержка, что бы CLK успел переключится
sbi PORTD, CE // Включием RTC
DelayUs 10 // Временная задержка, что бы CE успел переключится
dw_l1:
mov r19, r16 // Скопируем адрес во временный регистр
andi r19, 0x01 // извлечем 0й бит
tst r19 // проверим на 0
breq dw_l2 // если 0, то перейти
sbi PORTD, IO // иначе записать в порт данных 1
rjmp dw_l3 // продолжить выполнение
dw_l2:
cbi PORTD, IO // Записать лог. 0
dw_l3:
DelayUs 10 // задержка для формирования данных на ноге контроллера
sbi PORTD, CLK // сформировать нарастающий фронт CLK
DelayUs 10 // подержать 10 мкс
cbi PORTD, CLK // сформировать стадающий фронт CLK
lsr r16 // Сдвигаем адрес, что бы получить следующий бит
dec r18 // уменьшить значение переданных бит
brne dw_l1 // если переданы еще не все 8 - перейти
// Передача адреса закончена, переходим к передаче данных
ldi r18, 8 // Снова инициализируем счетчик бит
dw_l4:
mov r19, r17 // Скопируем данные во временный регистр
andi r19, 0x01 // извлечем 0й бит
tst r19 // проверим на 0
breq dw_l5 // если 0, то перейти
sbi PORTD, IO // иначе записать в порт данных 1
rjmp dw_l6 // продолжить выполнение
dw_l5:
cbi PORTD, IO // Записать лог. 0
dw_l6:
DelayUs 10 // задержка для формирования данных на ноге контроллера
sbi PORTD, CLK // сформировать нарастающий фронт CLK
DelayUs 10 // подержать 10 мкс
cbi PORTD, CLK // сформировать стадающий фронт CLK
lsr r17 // Сдвигаем данные, что бы получить следующий бит
dec r18 // уменьшить значение переданных бит
brne dw_l4 // если переданы еще не все 8 - перейти
// Адрес и данные переданы, завершаем
DelayUs 10 // Задержка
cbi PORTD, CE // Выключаем RTC
DelayUs 10 // Подержим немного 0
rcall PortToIn // Переключим порт на вход
cbi DDRD, CLK
pop r19
pop r18
sei
ret
DataRead:
// Передаем адрес
cli
push r18
push r19
sbi DDRD, CLK
ldi r18, 8 // Счетчик бит
rcall PortToOut // Переключаем порт на выход данных, что бы передать коммандый байт
cbi PORTD, CLK // Подготавливаем RTC к передачи данных
cbi PORTD, IO // Подготавливаем RTC к передачи данных
DelayUs 10 // Временная задержка, что бы CLK успел переключится
sbi PORTD, CE // Включием RTC
DelayUs 10 // Временная задержка, что бы CE успел переключится
dr_l1:
mov r19, r16 // Скопируем адрес во временный регистр
andi r19, 0x01 // извлечем 0й бит
tst r19 // проверим на 0
breq dr_l2 // если 0, то перейти
sbi PORTD, IO // иначе записать в порт данных 1
rjmp dr_l3 // продолжить выполнение
dr_l2:
cbi PORTD, IO // Записать лог. 0
dr_l3:
DelayUs 10 // задержка для формирования данных на ноге контроллера
sbi PORTD, CLK // сформировать нарастающий фронт CLK
DelayUs 10 // подержать 10 мкс
cbi PORTD, CLK // сформировать стадающий фронт CLK
lsr r16 // Сдвигаем адрес, что бы получить следующий бит
dec r18 // уменьшить значение переданных бит
brne dr_l1 // если переданы еще не все 8 - перейти
// Передача адреса закончена, переходим к приему данных
rcall PortToIn // Переводим порт на вход
ldi r18, 8 // Инициализация счетчика бит
clr r17 // Очищаем регистр выходных данных
dr_l4:
lsr r17 // Сдвигаем вправо на 1 бит
sbis PIND, IO // Проверяем бит на входе
rjmp dr_l5 // переход, если = 0
ori r17, 0x80 // Если 1, то устанавливаем 1 в старший разряд выходного регистра
dr_l5:
DelayUs 10 // задержка для формирования данных на ноге контроллера
sbi PORTD, CLK // сформировать нарастающий фронт CLK
DelayUs 10 // подержать 10 мкс
cbi PORTD, CLK // сформировать стадающий фронт CLK
dec r18 // уменьшить счетчик бит на 1
brne dr_l4 // Если переданы не все 8, то переход
// Адрес и данные переданы, завершаем сеанс
DelayUs 10 // Задержка
cbi PORTD, CE // Выключаем RTC
rcall PortToIn // Переводим порт на вход
DelayUs 10 // Задержка
cbi DDRD, CLK
pop r19
pop r18
sei
ret
сразу прошу прощения за размещение AVRASM-кода в ветке PIC.
сразу внимания не обратил, а когда уже добавил, не нашел возможности перенести куда надо