LPD-форум: безлицензионные радиостанции + Си-Би + "китайцы"
  · Наш магазин - здесь · Продажа Си-Би · LPD Vector · LPD & PMR Midland · Рейтинги · Частоты · FAQ
  · Копилка · Модификации · Инструкции, схемы, софт · DX-Группа · Клубный форум · Основной форум
На сайте: гостей - 35,
участников - 3 [ rw4hfn, sidr-11, Dipole]
 · Начало · Статистика · Поиск · Регистрация · Правила ·
 LPD-Форум —› LPD, FRS, PMR - радиосвязь без лицензий —› Эхо-репитер, г.Пушкино, 434.625 МГц
Автор Сообщение
rk50
Участник
Offline1.1
с мар 2015
Москва
Сообщений: 15

Дата: 27 Мар 2015 23:11:03 #  

Добрый день.
Поставил "эхо-репитер" в городе Пушкино (17км от МКАД по Ярославскому шоссе) на частоте 434,625 МГц (63 канал LPD).
Когда "эхо-репитер" бездействует, то каждые 15 минут передается радио посылка в формате Азбуки Морзе.
Просьба сообщить, кто и где слышит "эхо-репитер".
Спасибо.
RU245
Участник
Offline4.7
с мар 2006
Орехово-Зуево
Сообщений: 2931

Дата: 27 Мар 2015 23:12:57 #  

rk50
Высота, антенна, мощность?
Реклама
Google
cosmocarrot
Участник
Offline1.0
с окт 2010
Москва
Сообщений: 1

Дата: 28 Мар 2015 11:45:16 #  

Не слышу. 20 км на восток от Пушкино.
Chip_SET
Участник
Offline1.2
с сен 2006
Пушкино М.О.
Сообщений: 49

Дата: 29 Мар 2015 19:29:31 #  

500 метров, не пашет )))
9922
Участник
Offline1.0
с апр 2009
Москва
Сообщений: 38

Дата: 30 Мар 2015 12:22:42 #  

1км не пашет , хотя на подъезде к Пушкино были слышны потуги работы которые очень напоминали
последний выдох ПеЖе или деградировавшую память контроллера.
RU245
Участник
Offline4.7
с мар 2006
Орехово-Зуево
Сообщений: 2931

Дата: 30 Мар 2015 13:04:52 · Поправил: RU245 (30 Мар 2015 13:10:56) #  

Высота, антенна, мощность?
- центр города, первый этаж, лпдшка в металлическом шкафчике над унитазом.
РадиоАматор
Участник
Offline2.1
с мар 2014
Москва
Сообщений: 9

Дата: 30 Мар 2015 15:57:34 #  

С ЖД платформы Пушкино на 5 Вт не открывается. На частоте какие-то строители работают в цифре.
ako
Участник
Offline3.6
с апр 2005
Москва
Сообщений: 105

Дата: 30 Мар 2015 18:56:57 #  

Попробовал сию. Не слышу попугая. Пробовал из Текстильщиков. Мощность 5 ватт, антенны ANLI WH-14 на 9м этаже, направлены правда на юг.
RU245
Участник
Offline4.7
с мар 2006
Орехово-Зуево
Сообщений: 2931

Дата: 30 Мар 2015 22:14:30 · Поправил: RU245 (30 Мар 2015 22:16:39) #  

С района м.Волгоградский Проспект тоже не слышно. Автор темы, Рома - печёт пироги, ему не до репки :)
rk50
Участник
Offline1.1
с мар 2015
Москва
Сообщений: 15

Дата: 04 Май 2015 13:02:50 · Поправил: rk50 (04 Май 2015 14:14:02) #  

Репитер отключил в 16-00 29 марта, сейчас снова включил. Каждые 15 минут при бездействии передает азбукой Морзе мои координаты, можно дешифровать любой программой по работе с цифровыми видами связи.


Высота подвеса антенны -18 метров
Выходная мощность 2.5 Вт
Антенна -5/8 .


Кто и где слышит?
rk50
Участник
Offline1.1
с мар 2015
Москва
Сообщений: 15

Дата: 07 Май 2015 16:03:36 #  


1км не пашет , хотя на подъезде к Пушкино были слышны потуги работы которые очень напоминали
последний выдох ПеЖе или деградировавшую память контроллера.


Контроллер не может издыхать, он работает или не работает.
Репитер собран на двух контроллерах.
Если имеете опыт в написании программного обеспечения можете доработать:
Исходник программы для управления модулем звукозаписи, выполненным на другом микроконтроллере:

;########################################################
;# 25 ÿíâàðÿ 2015 ãîäà
;# ÓÏÐÀÂËÅÍÈÅ ÝÕÎÐÅÏÈÒÅÐÎÌ
;# PB4-óïðàâëåíèå ïåðåäà÷åé TX
;# PB0 - òîíîâûé âûõîä TONE
;# PB2 -èíäèêàòîð ñîñòîÿíèÿ LED
;# PB3 - âõîä äåòåêòîðà IN
;# ÀËÃÎÐÈÒÌ ÐÀÁÎÒÛ:
;# 1.1ÒÎÍ 3 ÑÅÊ.-> ÏÀÓÇÀ 3 ÑÅÊ -> ÈÍÔÎÐÌÀÖÈß 1 -> ÒÀÉÀÓÒ 15 ÌÈÍÓÒ
;# 1.2 -> ÒÎÍ 3 ÑÅÊ. -> ÏÀÓÇÀ 3 ÑÅÊ ÒÀÉÌÀÓÒ 15 ÌÈÍÓÒ
;# 1.3 ->ÒÎÍ 3 ÑÅÊ. -> -> ÏÀÓÇÀ 3 ÑÅÊ -> ÒÀÉÀÓÒ 15 ÌÈÍÓÒ
;# 1.4 ->ÒÎÍ 3ÑÅÊ -> ÏÀÓÇÀ 3 ÑÅÊ -> ÈÍÔÎÐÌÀÖÈß 2 ...
; Äîáàâëåíû 3-ðå òîíîâûå ïîñûëêè â ôîðìàòå Àçáóêè Ìîðçå â ïåðèîä 15, 30, 45 è 60 ìèí - 24 ôåâðàëÿ 2015 ãîä.
; äîáàâëåíà ôóíêöèÿ âîñïðîèçâåäåíèÿ ðàíåå çàïèñàííîé ôðïàçû ïîñëå ïåðâîãî òàì-àóòà â ìèíóò.
; Îêàí÷àòåëüíî äîðàáîòàíà ñ óñòðàíåíèåì âñåõ îøèáîê.
;########################################################

.include "tn13def.inc"
.list

.def tmp = r16;
.def tmpa = r17;
.def tmp_1 = r18; ñîòîÿíèå ïîðòà PORTB
.def short = r19; ðåãèñòð äëÿ ôîðìèðîâàíèÿ äëèííîé çàäåðæêè
.def long = r20; ðåãèñòð äëÿ îñ÷åòà âðåìåíè ñòîðîæåâûì òàéìåðîì
.def tmp_2 = r21; âðåìÿ çàïèñ îãðàíè÷åííîå 10ñåê
.def tmp_3 = r22;
.def counter = r23;
.def vtmp_2 = r24; âðåìÿ çàïèñè, èñïîëüçóåòñÿ äëÿ ïîâîòîðíîãî âîñïðîèçâåäåíèÿ ðàíåå çàïèñàííîé ðàäèîïîñûëêè
.equ tx = 4 ; PB0 TX
.equ led = 2 ; PB1 LED
.equ tone = 0 ; PB2 TONE
.equ det = 3 ; PB3 IN - âõîä äåòåêòîðà
.equ play_rec = 1; PB1 óïðàâëåíèå çàïèñüþ è ÷òåíèåì

.equ t_1 = 255
.equ t_2 = 3 ; çàäåðæêà d1000 1 mS
.equ t_3 = 12; çàäåðæêà d3000 3S
.equ t_30min = 16; 31 çàäåðæêà äëèííàÿ 30 ìèíóò
.equ t_4 = 1 ; çàäåðæêà 1 ìÑ äëÿ ôîðìèðîâàíèÿ òîíà ãåíåðàòîðà
.equ t_10s = 42 ; çàäåðæêà 10.25 Ñåê T=(42-1)*0.25=10.25S
.equ wait_point = 63; çàäåðæêà äëÿ ôîðìèðîâàíèÿ òî÷êè +
.equ wait_point_tone = 32 ; çàäåðæêà äëÿ ôîðìèðîâàíèÿ òîíîâîé òî÷êè
.equ counter_info = 4 ; ñ÷åò÷èê èíôîðìàöèè
.cseg
.org 0
ldi tmp, low(RAMEND)
out SPL, tmp
;########################################################
;# ÈÍÈÖÈÀËÈÇÀÖÈß ÒÀÉÌÅÐÀ
;########################################################

ldi tmp, 0x05; êîýôôèöèåíò äåëåíèÿ òàéìåðà-ñ÷åò÷èêà TCCR0 1024
out TCCR0B, tmp; çàãðóçèòü â ðåãèñòð óïðàâëåíèÿ


;########################################################
;# ÈÍÈÖÈÀËÈÇÀÖÈß ÌÈÊÐÎÊÎÍÒÐÎËËÅÐÂÀ
;########################################################

ldi tmp, 0b0010111; PINB3- in, PINB0, PINB1, PINB2 -out
out DDRB, tmp
ldi tmp, 0xFF ; out PORTB
out PORTB, tmp
ldi counter, counter_info
rcall d3000
rcall d3000
;########################################################
;# ÎÑÍÎÂÍÀß ÏÐÎÃÐÀÌÌÀ
;########################################################



start:
;#####################################################################
;# ÈÍÈÖÈÀËÈÇÀÖÈß
;#####################################################################
;### Íåñóùàÿ 3 ÑÅÊ -> PAUSE 3S-> TONE 3S-> PAUSE 3S->INFO> PAUSE 3S-> TONE 3S-> ÎÒÊËÞ×ÅÍÈÅ

rjmp start_info; Òíîâàÿ ïîñûëêà â ôîðìàòå Àçáóêè Ìîðçå RK50.RU Petrov Roman 79031423721
end_end_info:
ldi counter, counter_info
end_info:


;######################################################################
;# Âåòâëåíèå, îò÷åò òàé-àóòà ïðè íåèñïîëüçîâàíèè ðåïèòåðà
;######################################################################
start_0:
ldi long, t_30min; çàäàíèå âðåìåíè òàéìàóòà â 15 ìèíóò T=60*(16-1) = 900 S

time_out_1:
clr short
dec long
cpi long, 0
breq start_counter_info; ïåðåéòè íà ìåòêó ïðè ðàâåíòñå time_long =0


det3:; Îäèí öèêë =0.235Ñ Ïîëíàÿ çàäåðæêà ðàâíà 60 ñåêóíä
in tmp_1, PINB
sbrs tmp_1, det; ïðîïóñòèòü ñëåäóþùóþ êîìàíäó, åñëè det=1 -íåò ñèãíàëà íà âõîäå òåòåêòîðà
rjmp write
;#######################################################################
; ÔÎÐÌÈÐÎÂÀÍÈÅ ÒÀÉÌ-ÀÓÒÀ â T=0.25*255 = 15 ÌÈÍÓÒ, ÏÎ ÈÑÒÅ×ÅÍÈÈ ÊÎÒÎÐÎÃÎ
;Â ÝÔÈÐ ÂÛÄÀÅÒÑß ÐÀÄÈÎÏÎÑÛËÊÀ
;#######################################################################
inc short
cpi short, t_1; ñðàâíèòü ñ t_1 (255)
breq time_out_1; ïðè ðàâåíòñâå ïåðåéòè íà ìåòêó Çàäåðæêà 0.25*255 = 63,75Ñ
rcall d250ms
rjmp det3


start_counter_info:
rjmp start_counter_info_0
;#########################################################################
; ÏÐÎÖÅÑÑ ÇÀÏÈÑÈ È ÂÎÑÏÐÎÈÇÂÅÄÅÍÈß ÑÈÃÍÀËÀ Ñ ÎÃÐÀÍÈ×ÅÍÈÅÌ ÇÀÏÈÑÈ Â 10.5 ÑÅÊÓÍÄ
;
;#########################################################################
write:
clr tmp_2
sbi PORTB, PLAY_REC; REC - íà÷àòü çàïèñü
write_1:
rcall d250ms


inc tmp_2
cpi tmp_2, t_10s
breq stop_write; ïðè ðàâåíñòâå tmp=255 ïåðåéòè íà ìåòêó stop_write (T=0,218 *48 =10,5S )

in tmp_1, PINB
sbrs tmp_1, det ; ïðîïóñòèòü åñëè det = 1 - ñèãíàë íà âõîäå ïðîïàë
rjmp write_1 ; ïîâòîðèòü öèêë

stop_write: ; êîíåö çàïèñè
; Æäàòü ïîêà íå çàêîí÷èòñÿ ñèãíàë
det_1:
in tmp_1, PINB
sbrs tmp_1, det; ïðîïóñòèòü åñëè play_rec = 1 - ñèãíàë íà âõîäå ïðîïàë
rjmp det_1


cbi PORTB, LED; ãîðèò ñâåòîäèîä
cbi PORTB, TX; ïåðåäà÷à

rcall d250ms; Ïâóçà äëÿ òîãî, ÷òîáû óñïåë îòêðûòñÿ øóìîïîäàâèòåëü îò CTCSS-ñèãíàëà
rcall d250ms

cbi PORTB, PLAY_REC; PLAY-íà÷àòü âîñïðîèçâåäåíèå ðàíåå çàïèñàííîãî ôàéëà

;#######################################################################
;# PLAY
;;#######################################################################
play:
rcall d250ms
dec tmp_2
cpi tmp_2, 0
breq stop_play_end; ïðè ðà
XOR
Участник
Offline4.0
с янв 2007
...
Сообщений: 197

Дата: 07 Май 2015 18:01:37 #  

это шо за портянка с кракозябрами? где схема? или хотя бы описание, скорее всего там что то типа ISD146
rk50
Участник
Offline1.1
с мар 2015
Москва
Сообщений: 15

Дата: 07 Май 2015 19:28:36 #  

это шо за портянка с кракозябрами? где схема? или хотя бы описание, скорее всего там что то типа ISD146
Это называет Ассемблер для микроконтроллеров АВР.
XOR
Участник
Offline4.0
с янв 2007
...
Сообщений: 197

Дата: 07 Май 2015 20:12:48 #  

спасибо, кэп! шо это асм и камень attiny13 я и сам вижу, я спрашиваю почему все каменты кракозябрами и почему не вкопилке?
50ET01
Участник
Offline1.1
с ноя 2013
Мск. обл, Казань, деревня рядом
Сообщений: 2549

Дата: 07 Май 2015 20:24:58 #  

Кодировка не та.
XOR
Участник
Offline4.0
с янв 2007
...
Сообщений: 197

Дата: 07 Май 2015 20:50:42 #  

те это типа уже нормально выкладывать куски исходников с нечитаемыми каментами и без описания?
rk50
Участник
Offline1.1
с мар 2015
Москва
Сообщений: 15

Дата: 07 Май 2015 22:07:30 #  

;########################################################
;# 25 января 2015 года
;# УПРАВЛЕНИЕ ЭХОРЕПИТЕРОМ
;# PB4-управление передачей TX
;# PB0 - тоновый выход TONE
;# PB2 -индикатор состояния LED
;# PB3 - вход детектора IN
;# АЛГОРИТМ РАБОТЫ:
;# 1.1ТОН 3 СЕК.-> ПАУЗА 3 СЕК -> ИНФОРМАЦИЯ 1 -> ТАЙАУТ 15 МИНУТ
;# 1.2 -> ТОН 3 СЕК. -> ПАУЗА 3 СЕК ТАЙМАУТ 15 МИНУТ
;# 1.3 ->ТОН 3 СЕК. -> -> ПАУЗА 3 СЕК -> ТАЙАУТ 15 МИНУТ
;# 1.4 ->ТОН 3СЕК -> ПАУЗА 3 СЕК -> ИНФОРМАЦИЯ 2 ...
; Добавлены 3-ре тоновые посылки в формате Азбуки Морзе в период 15, 30, 45 и 60 мин - 24 февраля 2015 год.
; добавлена функция воспроизведения ранее записанной фразы после первого там-аута в минут.
; Окончательна доработана с устранением всех ошибок.
;########################################################

.include "tn13def.inc"
.list

.def tmp = r16;
.def tmpa = r17;
.def tmp_1 = r18; сотояние порта PORTB
.def short = r19; регистр для формирования длинной задержки
.def long = r20; регистр для осчета времени сторожевым таймером
.def tmp_2 = r21; время запис ограниченное 10сек
.def tmp_3 = r22;
.def counter = r23;
.def vtmp_2 = r24; время записи, используется для повоторного воспроизведения ранее записанной радиопосылки
.equ tx = 4 ; PB0 TX
.equ led = 2 ; PB1 LED
.equ tone = 0 ; PB2 TONE
.equ det = 3 ; PB3 IN - вход детектора
.equ play_rec = 1; PB1 управление записью и чтением

.equ t_1 = 255
.equ t_2 = 3 ; задержка d1000 1 mS
.equ t_3 = 12; задержка d3000 3S
.equ t_30min = 16; 31 задержка длинная 30 минут
.equ t_4 = 1 ; задержка 1 мС для формирования тона генератора
.equ t_10s = 42 ; задержка 10.25 Сек T=(42-1)*0.25=10.25S
.equ wait_point = 63; задержка для формирования точки +
.equ wait_point_tone = 32 ; задержка для формирования тоновой точки
.equ counter_info = 4 ; счетчик информации
.cseg
.org 0
ldi tmp, low(RAMEND)
out SPL, tmp
;########################################################
;# ИНИЦИАЛИЗАЦИЯ ТАЙМЕРА
;########################################################

ldi tmp, 0x05; коэффициент деления таймера-счетчика TCCR0 1024
out TCCR0B, tmp; загрузить в регистр управления


;########################################################
;# ИНИЦИАЛИЗАЦИЯ МИКРОКОНТРОЛЛЕРВА
;########################################################

ldi tmp, 0b0010111; PINB3- in, PINB0, PINB1, PINB2 -out
out DDRB, tmp
ldi tmp, 0xFF ; out PORTB
out PORTB, tmp
ldi counter, counter_info
rcall d3000
rcall d3000
;########################################################
;# ОСНОВНАЯ ПРОГРАММА
;########################################################



start:
;#####################################################################
;# ИНИЦИАЛИЗАЦИЯ
;#####################################################################
;### Несущая 3 СЕК -> PAUSE 3S-> TONE 3S-> PAUSE 3S->INFO> PAUSE 3S-> TONE 3S-> ОТКЛЮЧЕНИЕ

rjmp start_info; Тновая посылка в формате Азбуки Морзе
end_end_info:
ldi counter, counter_info
end_info:


;######################################################################
;# Ветвление, отчет тай-аута при неиспользовании репитера
;######################################################################
start_0:
ldi long, t_30min; задание времени таймаута в 15 минут T=60*(16-1) = 900 S

time_out_1:
clr short
dec long
cpi long, 0
breq start_counter_info; перейти на метку при равентсе time_long =0


det3:; Один цикл =0.235С Полная задержка равна 60 секунд
in tmp_1, PINB
sbrs tmp_1, det; пропустить следующую команду, если det=1 -нет сигнала на входе детектора
rjmp write
;#######################################################################
; ФОРМИРОВАНИЕ ТАЙМ-АУТА в T=0.25*255 = 15 МИНУТ, ПО ИСТЕЧЕНИИ КОТОРОГО
;В ЭФИР ВЫДАЕТСЯ РАДИОПОСЫЛКА
;#######################################################################
inc short
cpi short, t_1; сравнить с t_1 (255)
breq time_out_1; при равенстве перейти на метку Задержка 0.25*255 = 63,75С
rcall d250ms
rjmp det3


start_counter_info:
rjmp start_counter_info_0
;#########################################################################
; ПРОЦЕСС ЗАПИСИ И ВОСПРОИЗВЕДЕНИЯ СИГНАЛА С ОГРАНИЧЕНИЕМ ЗАПИСИ В 10.5 СЕКУНД
;
;#########################################################################
write:
clr tmp_2
sbi PORTB, PLAY_REC; REC - начать запись
write_1:
rcall d250ms


inc tmp_2
cpi tmp_2, t_10s
breq stop_write; при равенстве tmp=255 перейти на метку stop_write (T=0,218 *48 =10,5S )

in tmp_1, PINB
sbrs tmp_1, det ; пропустить если det = 1 - сигнал на входе пропал
rjmp write_1 ; повторить цикл

stop_write: ; конец записи
; Ждать пока не закончится сигнал
det_1:
in tmp_1, PINB
sbrs tmp_1, det; пропустить если play_rec = 1 - сигнал на входе пропал
rjmp det_1


cbi PORTB, LED; горит светодиод
cbi PORTB, TX; передача

rcall d250ms; Пвуза для того, чтобы успел открытся шумоподавитель от CTCSS-сигнала
rcall d250ms

cbi PORTB, PLAY_REC; PLAY-начать воспроизведение ранее записанного файла

;#######################################################################
;# PLAY
;;#######################################################################
play:
rcall d250ms
dec tmp_2
cpi tmp_2, 0
breq stop_play_end; при равенстве нулю tmp перейти на метку
rjmp play
stop_play_end:
; Пауза перед тоновой посылкой, т.е. концом передачи
ldi tmp, 0x06
pause_tone:
dec tmp
cpi tmp,0
breq exit_pause
rcall d250ms
rjmp pause_tone
exit_pause:
rcall tone_3s ; тоновая посылка
sbi PORTB, LED; не горит светодиод
sbi PORTB, TX; передача закончена
rjmp start_0

;######################################################
;# Пауза 3 секунды = 3000 мС
;# T=1MHz/1024=976,5 Hz 1,24 mS 1,024*256=261 mS
;# T=218 mS T=0.925 mS -1 цикл
;# Реальная T=1,45S
;######################################################
d3000:
push tmp
ldi tmpa, t_3
d3000_1:
clr tmp
out TCNT0, tmp

dec tmpa
cpi tmpa,0
breq output
wait_1:; 232 mS
in tmp, TCNT0
cpi tmp, t_1
brlo wait_1
rjmp d3000_1

output:
pop tmp
ret


;################################################################
;# ЗАДЕРЖКА ДЛЯ ФОРМИРОВАНИЯ ТОНА T=2,34 mS F=500 Hz
;# ИСПОЛЬЗОВАНИЕ ТАЙМЕРА TCNT0
;# F=977Hz T=1,024 ms
;# Реальная задержка T=937 mkS

;################################################################

d1000: ; ФОРМИРОВАНИЕ ЗАДЕРЖКИ в 1 МС F=1/(2T)=500 Hz для ГЕНЕРАТОРА
push tmp
clr tmp
out TCNT0, tmp

wait_2:
in tmp, TCNT0
cpi tmp, t_4
brlo wait_2
pop tmp
ret

;################################################################
;# ЗАДЕРЖКА 250 мС
;################################################################

d250ms: ; ФОРМИРОВАНИЕ ЗАДЕРЖКИ в 1 МС F=1/(2T)=500 Hz для ГЕНЕРАТОРА
push tmp
clr tmp
out TCNT0, tmp

wait_3: ; Итоговая задержка в 1 мС
in tmp, TCNT0
cpi tmp, t_1; сравнить с числом t_1=255
brlo wait_3
pop tmp
ret

;############################################################
;# ФОРМИРОВАНИЕ ТОНА 0,944 mS при t_2=7
;############################################################
tone_3s: ; t=1,85*60=111 ms
ldi tmpa, t_2; 3
stop_1:
dec tmpa
cpi tmpa,0
breq tone_stop
ldi tmp_1, 0b111100 ; tmp_1=60 (Было t_1=255)

tone_start: ; Цикл выполняется 1,85 ms
sbi PORTB, TONE
rcall d1000; задержка в 1 мС
cbi PORTB, TONE
rcall d1000; задержка в 1 мС
;############################################################
;######## ОСЧЕТ 3 СЕКУНД ТОНОВОЙ ПОСЫЛКИ
dec tmp_1
cpi tmp_1, 0
breq stop_1; при равенстве перейтина метку stop_1
rjmp tone_start
tone_stop:
ret


;############################################################
;# ИНФОРМАЦИОННОЫЕ ПОСЫЛКИ В ПЕРИОД 15, 30, 45 и 60 минут
;############################################################

start_counter_info_0:
dec counter
cpi counter, 3
breq info_1
cpi counter, 2
breq info_2
cpi counter, 1
breq info_3
cpi counter, 0
breq info_4
#########################################################

info_1:
cbi PORTB, LED;
cbi PORTB, TX ;
rcall d3000; ПАУЗА 3 СЕК
rcall tone_3s ; тоновая посылка 1
rcall d3000; ПАУЗА 3 СЕК


rcall word_2
rcall word_3


rcall d3000; ПАУЗА 3 СЕК
rcall tone_3s ; тоновая посылка 1
rcall d3000; ПАУЗА 3 СЕК
sbi PORTB, LED;
sbi PORTB, TX ;
rjmp end_info

info_2:

cbi PORTB, LED;
cbi PORTB, TX ;
rcall d3000; ПАУЗА 3 СЕК
rcall tone_3s ; тоновая посылка 1
rcall d250ms
rcall tone_3s ; тоновая посылка 2
rcall d3000; ПАУЗА 3 СЕК

rcall word_4 ; hello i
rcall word_1 ; rk50.ru
rcall word_2 ;79031423721

rcall d3000; ПАУЗА 3 СЕК
rcall tone_3s ; тоновая посылка 1
rcall d250ms
rcall tone_3s ; тоновая посылка 2
rcall d3000; ПАУЗА 3 СЕК
sbi PORTB, LED;
sbi PORTB, TX ;
rjmp end_info

info_3: ;
cbi PORTB, LED;
cbi PORTB, TX ;
rcall d3000; ПАУЗА 3 СЕК
rcall tone_3s ; тоновая посылка 1
rcall d250ms
rcall tone_3s ; тоновая посылка 2
rcall d250ms
rcall tone_3s ; тоновая посылка 3
rcall d3000; ПАУЗА 3 СЕК

rcall word_4; hello i
rcall word_1 ; rk50.ru
rcall word_3 ; Petrov Roman

rcall d3000; ПАУЗА 3 СЕК
rcall tone_3s ; тоновая посылка 1
rcall d250ms
rcall tone_3s ; тоновая посылка 2
rcall d250ms
rcall tone_3s ; тоновая посылка 3
rcall d3000; ПАУЗА 3 СЕК
sbi PORTB, LED;
sbi PORTB, TX ;
rjmp end_info

info_4:

cbi PORTB, LED;
cbi PORTB, TX ;
rcall d3000; ПАУЗА 3 СЕК
rcall tone_3s ; тоновая посылка 1
rcall d250ms
rcall tone_3s ; тоновая посылка 2
rcall d250ms
rcall tone_3s ; тоновая посылка 3
rcall d250ms
rcall tone_3s ; тоновая посылка 4

rcall d3000; ПАУЗА 3 СЕК
rcall word_4
rcall word_5
rcall word_1

rcall d3000; ПАУЗА 3 СЕК
rcall tone_3s ; тоновая посылка 1
rcall d250ms
rcall tone_3s ; тоновая посылка 2
rcall d250ms
rcall tone_3s ; тоновая посылка 3
rcall d250ms
rcall tone_3s ; тоновая посылка 4
rcall d3000; ПАУЗА 3 СЕК

sbi PORTB, LED;
sbi PORTB, TX ;
rjmp end_end_info

start_info:
cbi PORTB, LED;
cbi PORTB, TX ;
rcall d3000; ПАУЗА 3 СЕК

rcall word_4
rcall word_5
rcall word_1
rcall word_3
rcall word_2

rcall d3000; ПАУЗА 3 СЕК
sbi PORTB, LED; погасить светодиод
sbi PORTB, TX ; выключение передачи

rjmp end_info





;############################################################
;# ФОРМИРОВАНИЕ ТОНОВОЙ ИНФОРМАЦИОННОЙ ПОСЫЛКИ В ФОРМАТЕ АЗБУКИ МОРЗЕ
;############################################################





word_1:
rcall pause_word
rcall symbol_R
rcall symbol_K
rcall symbol_5
rcall symbol_0; ЦИФРА 0
rcall symbol_tchk
rcall symbol_R
rcall symbol_U
ret

word_2:
rcall pause_word
rcall symbol_M
rcall symbol_Y
rcall pause_word
rcall symbol_T
rcall symbol_E
rcall symbol_L
rcall symbol_tchk
rcall pause_word
rcall symbol_7
rcall symbol_9
rcall symbol_0; ЦИФРА 0
rcall symbol_3
rcall symbol_1
rcall symbol_4
rcall symbol_2
rcall symbol_3
rcall symbol_7
rcall symbol_2
rcall symbol_1
ret
word_3:
rcall pause_word
rcall symbol_P
rcall symbol_E
rcall symbol_T
rcall symbol_R
rcall symbol_O; БУВА О
rcall symbol_V
rcall pause_word
rcall symbol_R
rcall symbol_O
rcall symbol_M
rcall symbol_A
rcall symbol_N
ret

word_4:
rcall pause_word
rcall symbol_H
rcall symbol_E
rcall symbol_L
rcall symbol_L
rcall symbol_O
rcall pause_word
rcall symbol_I
ret

word_5:
rcall pause_word
rcall symbol_M
rcall symbol_I
rcall symbol_D
rcall symbol_L
rcall symbol_A
rcall symbol_N
rcall symbol_D
rcall pause_word
rcall symbol_G
rcall symbol_X
rcall symbol_T
rcall symbol_4
rcall symbol_0
rcall symbol_0
ret






;############################################################
;# Таблица символов в формате Азбуки Морзе
;############################################################
symbol_H:
rcall point
rcall point
rcall point
rcall point
rcall pause_symbol
ret
symbol_I:
rcall point
rcall point
rcall pause_symbol
ret
symbol_D:
rcall tire
rcall point
rcall point
rcall pause_symbol
ret

symbol_L:
rcall point
rcall tire
rcall point
rcall point
rcall pause_symbol
ret

symbol_G:
rcall tire
rcall tire
rcall point
rcall pause_symbol
ret

symbol_X:
rcall tire
rcall point
rcall point
rcall tire
rcall pause_symbol
ret

symbol_R :
rcall point
rcall tire
rcall point
rcall pause_symbol
ret
symbol_K :
rcall tire
rcall point
rcall tire
rcall pause_symbol
ret
symbol_5 :
rcall point
rcall point
rcall point
rcall point
rcall point
rcall pause_symbol
ret
symbol_0: ;ЦИФРА 0
rcall tire
rcall tire
rcall tire
rcall tire
rcall tire
rcall pause_symbol
ret

symbol_point:
rcall point
rcall point
rcall point
rcall point
rcall point
rcall point
rcall pause_symbol
ret

symbol_U :
rcall point
rcall point
rcall tire
rcall pause_symbol
ret
symbol_P :
rcall point
rcall tire
rcall tire
rcall point
rcall pause_symbol
ret
symbol_E :
rcall point
rcall pause_symbol
ret

symbol_T :
rcall tire
rcall pause_symbol
ret

symbol_Y :
rcall tire
rcall point
rcall tire
rcall tire
rcall pause_symbol
ret


symbol_V :
rcall point
rcall point
rcall point
rcall tire
rcall pause_symbol
ret
symbol_O : ; буква О
rcall tire
rcall tire
rcall tire
rcall pause_symbol
ret
symbol_M :
rcall tire
rcall tire
rcall pause_symbol
ret
symbol_A :
rcall point
rcall tire
rcall pause_symbol
ret
symbol_N :
rcall tire
rcall point
rcall pause_symbol
ret
symbol_7 :
rcall tire
rcall tire
rcall point
rcall point
rcall point
rcall pause_symbol
ret
symbol_9 :
rcall tire
rcall tire
rcall tire
rcall tire
rcall point
rcall pause_symbol
ret
symbol_1 :
rcall point
rcall tire
rcall tire
rcall tire
rcall tire
rcall pause_symbol
ret
symbol_4 :
rcall point
rcall point
rcall point
rcall point
rcall tire
rcall pause_symbol
ret
symbol_2 :
rcall point
rcall point
rcall tire
rcall tire
rcall tire
rcall pause_symbol
ret
symbol_3 :
rcall point
rcall po
rk50
Участник
Offline1.1
с мар 2015
Москва
Сообщений: 15

Дата: 07 Май 2015 22:12:07 #  

Рабочий код, который сейчас работает.
Еле уместил в 1 Кб.
Это вторая причина по которой я писал на Ассемблере.
Данилыч
Участник
Offline1.1
с дек 2006
Видное МО
Сообщений: 478

Дата: 07 Май 2015 22:33:40 #  

лучше такой бинарник

1101000010010010110100001011100011010000101101001101000010111101110100001011111011010000101101010010000011010001100000001101000110000011110100001011101111010000101110001101000110000010001000001101000010010010110100011000000111010000101101011101000110 0001010010000011010001100000010010000000110111001100000010110111010001100000101101000010111000001000001101000010111011110100001011010111010001100000101101000010111000110100001011010111010000101111000010000011010000101111111101000010111110110100001011 0001110100001011010111010000101101001101000110001011
rk50
Участник
Offline1.1
с мар 2015
Москва
Сообщений: 15

Дата: 07 Май 2015 22:50:54 #  

Пожалуйста, в формате HEX.
:020000020000FC
:100000000FE90DBF05E003BF07E107BB0FEF08BB1A
:1000100074E031D030D0B2C074E040E133274A956B
:10002000403041F026B323FF06C033953F3FB1F384
:1000300037D0F8CF4BC05527C19A32D053955A329A
:1000400019F026B323FFF9CF26B323FFFDCFC298C3
:10005000C49826D025D0C19823D05A95503009F0A5
:10006000FBCF06E00A95003011F01AD0FBCF20D06C
:10007000C29AC49AD2CF0F931CE0002702BF1A95F0
:10008000103021F002B70F3FE8F3F7CF0F9108953A
:100090000F93002702BF02B70130E8F30F910895D4
:1000A0000F93002702BF02B70F3FE8F30F910895A7
:1000B00013E01A95103049F02CE3C09AE9DFC0989C
:1000C000E7DF2A952030A9F3F8CF08957A957330A9
:1000D00031F0723089F0713009F17030A9F1C298B5
:1000E000C498C9DFE5DFC7DF5ED072D0C4DFE0DFD0
:1000F000C2DFC29AC49A91CFC298C498BCDFD8DF3D
:10010000CFDFD6DFB8DF72D045D04DD0B4DFD0DF3F
:10011000C7DFCEDFB0DFC29AC49A7FCFC298C4983F
:10012000AADFC6DFBDDFC4DFBBDFC2DFA4DF5ED076
:1001300031D04ED0A0DFBCDFB3DFBADFB1DFB8DF34
:100140009ADFC29AC49A69CFC298C49894DFB0DF8C
:10015000A7DFAEDFA5DFACDFA3DFAADF8CDF46D0F1
:100160004ED018D088DFA4DF9BDFA2DF99DFA0DFAD
:1001700097DF9EDF80DFC29AC49A4ECFC298C498A0
:100180007ADF34D03CD006D023D00DD074DFC29AB1
:10019000C49A43CFFAD063D067D06BD071D0D7D098
:1001A0005ED07DD00895F1D09CD08AD0EED085D09D
:1001B00081D044D0CCD0E9D0A0D0A6D061D0C0D0DE
:1001C000AAD0B0D0B6D0BCD098D0B3D0A4D0089527
:1001D000DCD06AD06FD071D042D07ED077D0D5D06D
:1001E0003ED07AD07ED081D084D00895CED017D0A2
:1001F00061D024D023D070D0C8D017D00895C5D0F6
:1002000070D013D016D01AD070D073D012D0BDD009
:100210001BD01FD052D086D033D032D008959FD07B
:100220009ED09DD09CD0C0D0089599D098D0BCD0FD
:100230000895A0D094D093D0B7D0089590D09AD0FC
:100240008ED08DD0B1D0089595D094D088D0ACD038
:10025000089590D084D083D08DD0A6D008957FD03B
:1002600089D07DD0A1D0089585D079D083D09CD07D
:10027000089575D074D073D072D071D095D0089590
:1002800079D078D077D076D075D08ED0089567D0D9
:1002900066D065D064D063D062D086D008955FD038
:1002A0005ED068D081D008955AD064D063D057D042
:1002B0007BD0089554D078D008955CD075D008953F
:1002C00059D04DD057D056D06FD0089548D047D090
:1002D00046D050D069D008954DD04CD04BD064D08A
:1002E000089548D047D060D0089539D043D05CD02D
:1002F000089540D034D058D008953CD03BD02FD072
:100300002ED02DD051D0089535D034D033D032D026
:1003100026D04AD0089523D02DD02CD02BD02AD04F
:1003200043D008951CD01BD01AD019D023D03CD074
:10033000089515D014D01ED01DD01CD035D00895EE
:100340000ED00DD00CD016D015D02ED0089507D0D9
:1003500006D005D004D003D002D026D0089560E2A4
:10036000C09A96DEC09894DE6A95603009F0F8CFA6
:1003700013D0089560E6C09A8BDEC09889DE6A9536
:10038000603009F0F8CF08D0089566E005D06A958E
:10039000603009F0FBCF08950F93002702BF02B72A
:1003A0000F33E8F30F91089562E0F6DF6A9560304D
:0603B00009F0FBCF0895E7
:00000001FF
rk50
Участник
Offline1.1
с мар 2015
Москва
Сообщений: 15

Дата: 07 Май 2015 22:52:24 #  

Дело в том, что молодые программисты отвязаны от железа.
Ассемблер -защищает авторские права, на Си -может любой разобраться.
РадиоАматор
Участник
Offline2.1
с мар 2014
Москва
Сообщений: 9

Дата: 07 Май 2015 23:42:12 · Поправил: РадиоАматор (07 Май 2015 23:51:06) #  

.
РадиоАматор
Участник
Offline2.1
с мар 2014
Москва
Сообщений: 9

Дата: 07 Май 2015 23:44:19 #  

Проверил. Эхо-репитер топик-стартера, как обычно, не работает.
Репитер Пушкинской радиошколы, на 145,7875 как обычно, работает.
В общем, все как обычно, все как всегда.
9922
Участник
Offline1.0
с апр 2009
Москва
Сообщений: 38

Дата: 08 Май 2015 10:18:41 #  

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

Перевожу на общедоступный язык ...
tiny13 имеет память которая очень не любит ВЧ излучения
выглядит это со стороны так
три-четыре раза работает замечательно а потом наступает фаза
деградации памяти и работа превращается в нечто типа
на воде вилами писаное или бабушка на двое сказала
ПАлексей
Участник
Offline5.2
с сен 2007
Россия
Сообщений: 1423

Дата: 08 Май 2015 12:50:45 · Поправил: ПАлексей (08 Май 2015 12:55:12) #  

rk50
Потрите свои кракозябры, пока ещё Вам редактирование этого поста доступно (сутки ещё не прошли). И вообще, зачем форум всякой фигнёй засирать? Прямо как спамер какой-то сюда всякой никому не нужной дряни напихали!
50ET01
Участник
Offline1.1
с ноя 2013
Мск. обл, Казань, деревня рядом
Сообщений: 2549

Дата: 08 Май 2015 20:35:10 · Поправил: 50ET01 (09 Май 2015 07:33:39) #  

ПАлексей
Если Вы НЕГРАМОТНЫЙ в программировании (не шнурками) - не лезьте просто..
Реклама
Google
 

Создавать сообщения могут только зарегистрированные участники форума.
Войти в форум :: » Логин » Пароль
 
Начало
Время загрузки страницы (сек.): 0.033; miniBB®
Магазин раций, антенн и аксессуаров. Много Си-Би техники.