Главная страница -> VRTP -> Texнологии -> Радиомикрофоны, радиомаяки -> Высокочастотные радиожучки до 600мГц

Предлагаю вариант дистанционно управляемого радио микрофона <<СТРЕЛЕЦ>>
в дальнейшем --- УРМ .

Идея и оригинальная прошивка
http://vrtp.ru/index.php?act=categories&CO...le&article=1519

Хочю выразть глубокую благодарность blaiz e за помощь и консультации при создании УРМ <<СТРЕЛЕЦ>>.

В УРМ использую приёмник и передатчик http://vrtp.ru/index.php?act=categories&CO...le&article=2767

1.Размер платы----- УРМ --44х32 мм , толщина текстолита 1,5 мм, питание 2,8 - 3,6 вольта.
Размер платы-------- Пульта 37х35 мм, толщина текстолита 1,5 мм, питание 2,8 – 5 вольт.
2. Перемычки в дальнейшем {PER 1 – 9 } из обрезков проволоки диаметр 0,4 мм.
ПАВы приёмника и передатчика с разницей 10,7 мГц. Например 418 мГц и 407,3 мГц .
3.Фильтр 10,7 Мгц с пропусканием 280 кГц - Е10,7А
4.Уверенное включение и прослушивание при мощности ПУЛЬТА 100 mW 900 метров прямой видимости условия поля. Высота подвеса УРМ и пульта - 120 см.
.
ОПИСАНИЕ

Устройство представляет собой пульт управления радио микрофоном и радиомикрофона
Общее фото.


Пульт управления радио микрофоном

Представляет собой кодер со стандартным передатчиком, работающий в режиме 100% АМ.
При нажатии любой из кнопок команда передается около 7 сек автоматически для попадания в промежуток сканирования приемной части микрофона .






Всеми узлами устройства управляет микроконтроллер .
РЕЖИМ 1
При нажатии КН 1 пульта УРМ включается на 1 минуту на передачу . Приемник микрофона выключен . По истечении этого времени он автоматически переходит в режим ожидания . Этот режим предназначен для того , чтобы оценить обстановку в прослушиваемом помещении . Если там никого нет , нет смысла включать его на более длительное время .
При нажатии КН 2 УРМ включается на 10 минут на передачу . Приемник микрофона выключен .По истечении этого времени он автоматически переходит в режим ожидания .
При нажатии КН 3 УРМ включается на 20 минут на передачу . Приемник микрофона выключен . По истечении этого времени он автоматически переходит в режим ожидания .



Управляемый радио микрофон << СТРЕЛЕЦ>>.

Приемник это супергетеродин с однократным преобразованием частоты ( ПЧ - 10,7 МГц ). Промежуточная частота - разница между частотой пульта и частотой гетеродина приемника . Пульт излучает на частоте 418 МГц . Частота гетеродина приемника 407,3 МГц ( ПАВ резонаторы в приемнике и пульте можно менять местами ) .
Фильтр 10,7 Мгц с пропусканием 280 кГц - Е10,7А
ВЧ часть без особенностей - все ее узлы стандартные.
ВЧ сигнал , прошедший необходимые ступени преобразования и усиления , детектируется и подается на вход компаратора , с компаратора на вход микроконтроллера. Алгоритм работы ----УРМ « спит » 5 сек ( ток при этом 50 мкА ), затем « просыпается » и включает на 1 сек приемную часть ( ток при этом 13 мА ) , ждет сигнала включения , затем снова « засыпает » . Цикл повторяется постоянно, пока не будет принята соответствующая команда с пульта.
Так как силовой ключ микроконтроллера / 7-я ножка\ DD2 –PIC12F675 при токе более 8 ma даёт просадку напряжения в схеме использую дополнительный силовой ключ на транзисторах VT11 и VT12.






Настройка Пульта.
0. Антенна 17 мм.В Пульте установлены все перемычки.PER -7,8,9.\см.схему пульта\.
1.Прооверить надёжную работу ЗГ при напряжении 2,5 --- 5 вольт.
2.Катушками пульта L6 и L7 настроить максимум – по индикатору поля.
3.Регулировка тока пульта осуществляется резистором R24 в схеме Пульта.
4.После этого меняем антенну 17 мм на 23 см – и откусывая по 2 мм находим максимум отдачи по индикатору поля.
5.Убрать перемычку PER-7.
Мощность при напряжении питания 3 вольта , 50 - 70 милливатт . Потребляемый ток - около 60 мА . Мощность можно повысить включив пульт от 5 вольт , она может достигнуть 120 - 150 миливатт . Ток при этом поднимется до 120 мА , что может быть опасным для оконечного каскада.

Настройка приёмника УРМ <<СТРЕЛЕЦ>>.

0.Антенны две у приёмника и передатчика по 17 см.
1.Временно удаляем перемычки PER 3 PER 4 и PER 5.
2. Контрольную точку КТ1 { в дальнейшем КТ1--6, контрольные точки отмечены на схеме} временно соединяем с КТ5.
3.На КТ4 через ёмкость проверяем работу ЗГ приёмника. При использовании ПАВ резонатора на частоты более 422Мгц часто нет генерации. Чтобы исключить эту проблему на плате предусмотрена перемычка PER 2. Заменив её на контур 3 витка, провод 0,35мм, диаметр намотки 1.5 мм . Контур как правило решает проблему с запуском генератора. Контролируем работу ЗГ при напряжениях 2,8- 4 вольта.
4. В плате ПУЛЬТА устанавливаем перемычку PER7, относим включенный пульт на расстояние при котором приёмник с трудом улавливает сигнал пульта .
5. КТ3 подключаем любой УНЧ и контролируем принимаемый сигнал ПУЛЬТА. Катушками L1 и L2 настроить на максимум чувствительности { как можно чистый и отчетливый звуковой меандр пульта } в контрольной точке КТ3.
6.По окончании настройки приёмной части
А. Рассоединить контрольные точки КТ1 и КТ5 .
Б.Убрать перемычку PER7 в плате пульта.
Если был установлен узкополосный фильтр 10,7 мГц менее 200 кГц то нужно подстроить ЗГ приёмника или передатчика .Для этого на платах предусмотрены перемычки PER 1 – на плате УРМ, и PER9 на плате Пульта.
Если нужно настроить точно на частоту, напомню :
частоту ПАВа можно двигать в небольших ( +- 50 кгц) пределах, если последовательно с ним включить
а) индуктивность ( частота понижается)
б) емкость( частота повышается)


Настойка передатчика УРМ.

0. Антенна передатчика 17 см
1. Временно соединить точки КТ2 и КТ5.
2.На микрофоне устанавливаем 0,7 вольта- резистором R15,R16.
3.Проверяем устойчивую работу ЗГ передатчика при напряжении 2,8 – 4 вольта.
4.Катушками L6 – L7 передатчика находим максимум излучения по индикатору поля.
5.Резистором R24 выставляем ток второго каскада 22-30 ma, общий ток при этом будет составлять примерно 47 -65 ma при напряжении 3,6 вольта.
6.Меняем антенну на 23 см, откусывая по 2 мм находим максимум излучения по индикатору поля.
7.Рассоединить контрольные точки КТ2 и КТ5.
8.Установить на плату УРМ перемычки PER 3 PER 4 и PER 5.
Передатчик без изменения платы может быть и мощностю 10 mW. Для этого не устанавливать детали R31, R30.C32.C23.C24.C30.C31.L5. VT13. Вместо конденсатора С32 поставить конденсатор С25 – 20р и с него на антенну.Катушка L4 будет при этом варианте иметь 8 витков , провод 0,35 мм, на диаметре 1,5 мм.

Собрано три таких схемы с деталями как в схеме и с оригинальными платами.Всё заработало сразу без возбудов и всяких неприятностей.
ВНИМАНИЕ. Этот микрофон не срабатывает -- от пульта мощностью 50 -100 ma ближе трёх метров ,из за искажения сигнала по УНЧ в третьем УПЧ на LM358.По этому при настройке приёмника пульт должен находится не ближе трёх метров от УРМ или временно уменьшить ёмкость конденсатора С16 до 5-10Н.
А так же при использовании ПАВ резонаторов на частоты 433.92 и 423.22 дальность связки \\\\\ ПУЛЬТ – Радио микрофон \\\\\ резко уменьшается из за чрезмерной загруженности этих частот сигнализациями, радиолюбителями ,всякими модулями беспроводной передачи данных.
Которые как правило имеют хорошие антенны и бешенную мощность .Это всё вносит помеху в код включения радио микрофона. И как следствие уменьшение дальности уверенного включения от пульта.

С уважением faraon200.

Это сообщение отредактировал faraon200 - Mar 15 2012, 09:34 PM

Прошивка и платы.

Это сообщение отредактировал REKIN - Mar 15 2012, 10:10 PM

Присоединённый файл ( Кол-во скачиваний: 417 )
 Bug_hunter.zip

Всё стандартно, прикрутили к RF модулям передатчик вместа нагрузки, прошивка и файлы печатных плат у Вас не прикрепились.

Это сообщение отредактировал WiteNoise - Mar 15 2012, 03:03 PM

в зип архиве нужно

Это сообщение отредактировал REKIN - Mar 15 2012, 10:11 PM

Присоединённый файл ( Кол-во скачиваний: 390 )
 Lai.zip

Работа проделана немалая . Смотрю тема РУ микрофонов не померла .
Думаю нужно статьей оформить и поместить в соответствующий раздел .
Фараон ! Спасибо за весьма креативное продолжение .
С ув blaze/

Куда и как прицепить на пульте светодиодик что б было видно о нажатии (выполнении) команды как ето было сделано в ДУ на 3 команды blaze.Спасибо!

С 6го выхода кодера

В трехкомандном светик шел в разрыв 6 ноги и на землю через 470 Ом.здесь так же?И еще вопрос-ток потребления у меня около 15-18 мА,как разогнать его до заявленого автором 60мА при 3-х вольтах питания?подбирая R24 в пульте?

Да подбирая R-24, .
Какой ток второго каскада ?
Посмотреть бы в каком положении { раздвинутые - сжатые } у Вас контура L6 - L7.
Проконтролируйте напряжение питания во время нажатия кнопки.

Это сообщение отредактировал faraon200 - Mar 21 2012, 06:22 PM

С 6 ноги на общий кинул светодиод-индикация нажатия кнопок есть.Вместо R-24 ставил переменник,уменьшая до 5 кОм ток подымался до 35 мА при 3-х вольтах питания.При 3,9В -ток 40мА.Катушки 6 и 7 сдигал и раздвигал-существенного изменения тока не заметил,да ин и так скачет так что о его величине можно судить о среднем значении.Но теперь основной вопрос:учитывая что ПАВ я применяю на 303,825 МГц то необходимо скорее всего изменение L C номиналов в передатчике пульта,вот тут то мне и нехватает опыта,так что просьба ко всем оказать помощь в их расчетах.

У Вас П-контур на выходе не работает вообще, он расчитывался на частоты 420-430мгц, Вы ему влупили 300мгц. Он работать не будет как его не крути, его надо расчитывать на Вашу частоту и потом ещё настраивать по максимуму выдаваемой мощности. То что Вы подняли ток потребления изменяя базовое смещение, так это Вы просто приоткрыли транзистор посильнее, это совсем на означает, что если больше жрёт - том больше отдаёт в антенну.

Настраивайте покаскадно, 1) увеличте число витков в задающем генераторе до 7 штук, внося феррит или латунь в катушку задающего - по волномеру добейтесь максимума. После этого так проделайте со следующими каскадами, резисторы смещения не трогайте, частота меньше, а усиление транзисторов больше, всё получится со временем.

Ето я уже понял на практике,и на ети грабли наступил.Но для меня проблема с расчетом каскада на 303 МГц так и осталась Для начала все контура на 7 витков поставить?

Это сообщение отредактировал куко - Mar 22 2012, 01:15 PM

Я попробую расчитать для Вас это всё дело на 303мгц, но на выходе будет не П-контур а Г- звено. Но это будет только расчёт на бумаге, если будете пробовать осуществлять в железе.

Спасибо!Конечно в железе все обкатаю и отпишусь,так как другого выхода у меня нет.Приемник вместе с видеопередатчиком на 450мВт зацеплен на столбе с помощью автовышки.я его включил а выключать не могу т.к мощи пульта не хватает,на столе вродебы все было нормально,а на практике вот такой кампот получился

Пробуйте сделать выход вот так, расчитывал на 303мгц под антенну четверть волны.

Присоединённое изображение (Нажмите для увеличения)

Или вот таким образом на 303мгц под четвертушку

Присоединённое изображение (Нажмите для увеличения)

Катухи L3 L4 по 7 витков ставить?

33nH - L3, L4, L5 для 303мгц , 7 витков на оправке 2мм, длинна намотки 5мм.

Wite Noise переделка всетаки дала свой результат.На столб лезть не пришлось.Передатчик нормально выключает .Спасибо за помощь

Ток потребления снизили ?

Это сообщение отредактировал WiteNoise - Mar 23 2012, 11:35 AM

Ток потребления от АКБ 4Вольта составил примерно 35мА.Антена штыревая на 4 колена длиной 23 см.Катухи по волномеру пришлось все растягивать.А в общем я доволен.Спасибо!

Если есть возможность, разместите фото, фото стимулируют для повторения, может ещё кто-нибудь повторит.

От первоначального фото что выше в моем посте 415661 ничего не изменилось окромя других катух по 7 витков.А выход сделан по Вашему варианту с поста 415687 тоесть- П- контур.Пригодился и старый пульт от видака

И сам пульт

Ув. WiteNoise.Вы можете предоставить методику расчета выходных цепей РМ? Или может кто из участников форума владеет таковой-поделитесь пож. интересно расчет индуктивности в коллекторе вых. транзистора а также Г-обр. и П-обр. цепи согласования с ант. С ув. и бл.

Исходники прошивок

Пульт

LIST p=12F675
#include <P12F675.inc>
__CONFIG (_MCLRE_OFF & _PWRTE_ON & _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _BODEN_ON)


Reg_1 EQU 0x20
Reg_2 EQU 0x21
Reg_3 EQU 0x22
Reg_4 EQU 0x23
Reg_5 EQU 0x24
Reg_6 EQU 0x25

;;;;;;;;;;;;;;;;;;;
; старт программы ;
;;;;;;;;;;;;;;;;;;;
org 0
goto START
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; подготовительные операции ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
START call 0x3FF ; копируем калибровочную константу
bsf STATUS,RP0 ; переход в банк 1
movwf OSCCAL ; записываем калибровочную константу
banksel TRISIO ; переходим в регистр TRISIO
movlw b'00111100' ; настраиваем порты GP0, GP1 на выход, GP2, GP4, GP5 на вход
movwf TRISIO ; -//-
banksel CMCON ; переходим в регистр CMCON
movlw b'00000111' ; выключаем компаратор
movwf CMCON ; -//-
banksel WPU ; переходим в регистр WPU
movlw b'00111100' ; включаем подтягивающие резисторы портов GP2, GP4, GP5
movwf WPU ; -//-
banksel OPTION_REG ; переходим в регистр OPTION_REG
movlw .0 ; обнуляем OPTION_REG
movwf OPTION_REG ; -//-
banksel INTCON ; переходим в регистр INTCON
movlw b'00001000' ; разрешаем прерывания по изменению уровня сигнала на входах GPIO
movwf INTCON ; -//-
banksel VRCON ; переходим в регистр VRCON
movlw .0 ; отключаем источник опорного напряжения
movwf VRCON ; -//-
banksel IOCB ; переходим в регистр IOCB
movlw b'00111100' ; разрешаем прерывания по изменению уровня сигнала на входах GP2, GP3, GP4, GP5
movwf IOCB ; -//-
banksel ANSEL ; переходим в регистр ANSEL
movlw .0 ; отключаем АЦП
movwf ANSEL ; -//-
banksel ADCON0 ; переходим в регистр ADCON0
movlw .0 ; отключаем аналоговые входы АЦП
movwf ADCON0 ; -//-
bcf STATUS,RP0 ; переход в банк 0



;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; основная часть программы ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
go clrf Reg_4 ; очищаем порт GPIO (отключаем передачу)
movf Reg_4,W ; -//-
movwf GPIO ; -//-
clrf Reg_3
bcf STATUS, Z ; сбрасываем флаг Z
movlw b'00111100' ; записываем в W b'00111100' для опроса клавиатуры
xorwf GPIO, W ; проверяем равно ли значение GPIO регистра содержимому регистра W
btfsc STATUS, Z ; проверяем значение флага Z, если =1(нажата одна из кнопок) то значение W и GPIO не равны и пропускается следующая команда
sleep ; отправляем контроллер спать, если не нажата ни одна из кнопок
bcf INTCON, GPIF ; сбрасываем флаг GPIF
bcf STATUS, Z ; сбрасываем флаг Z
bsf Reg_4,1 ; включаем передачу
call Pause1

movf GPIO,W ; копируем в Reg_3 содержимое порта GPIO
movwf Reg_3 ; -//-

movlw b'00111100' ;
xorwf Reg_3, W ;
btfsc STATUS, Z ;
goto go





movlw .165 ; записываем константы, определяющие продолжительность передачи сигнала
movwf Reg_5 ; -//-
movlw .11 ; -//-
movwf Reg_6 ; -//-


wr2 decfsz Reg_5, F
goto go1
decfsz Reg_6, F
goto go1
goto go

go1 call RST ; формируем сигнал сброса для приемника
call RST ; -//-
call CLK_0 ; формируем преамбулу перед отправкой идентификационного кода
call CLK_0 ; -//-
call CLK_0
call CLK_0
call CLK_0
call CLK_0
call CLK_0
call CLK_0
call CLK_0
call CLK_0
call CLK_0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Отправляем идентификационный код устройства ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
call CLK_1
call CLK_1
call CLK_0
call CLK_1
call CLK_0
call CLK_1
call CLK_0
call CLK_0

call CLK_1
call CLK_1
call CLK_1
call CLK_1
call CLK_0
call CLK_0
call CLK_1
call CLK_1

call CLK_1
call CLK_0
call CLK_1
call CLK_1
call CLK_0
call CLK_0
call CLK_1
call CLK_0

call CLK_1
call CLK_0
call CLK_1
call CLK_1
call CLK_0
call CLK_1
call CLK_0
call CLK_1

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Отправляем первую кодовую посылку ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
btfsc Reg_3,5
call CLK_0
btfss Reg_3,5
call CLK_1

btfsc Reg_3,2
call CLK_0
btfss Reg_3,2
call CLK_1

btfsc Reg_3,4
call CLK_0
btfss Reg_3,4
call CLK_1

btfsc Reg_3,3
call CLK_0
btfss Reg_3,3
call CLK_1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Отправляем дубль кодовой посылки №1 ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
btfsc Reg_3,5
call CLK_0
btfss Reg_3,5
call CLK_1

btfsc Reg_3,2
call CLK_0
btfss Reg_3,2
call CLK_1

btfsc Reg_3,4
call CLK_0
btfss Reg_3,4
call CLK_1

btfsc Reg_3,3
call CLK_0
btfss Reg_3,3
call CLK_1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Отправляем дубль кодовой посылки №2 ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
btfsc Reg_3,5
call CLK_0
btfss Reg_3,5
call CLK_1

btfsc Reg_3,2
call CLK_0
btfss Reg_3,2
call CLK_1

btfsc Reg_3,4
call CLK_0
btfss Reg_3,4
call CLK_1

btfsc Reg_3,3
call CLK_0
btfss Reg_3,3
call CLK_1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Отправляем дубль кодовой посылки №3 ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
btfsc Reg_3,5
call CLK_0
btfss Reg_3,5
call CLK_1

btfsc Reg_3,2
call CLK_0
btfss Reg_3,2
call CLK_1

btfsc Reg_3,4
call CLK_0
btfss Reg_3,4
call CLK_1

btfsc Reg_3,3
call CLK_0
btfss Reg_3,3
call CLK_1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Отправляем дубль кодовой посылки №4 ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
btfsc Reg_3,5
call CLK_0
btfss Reg_3,5
call CLK_1

btfsc Reg_3,2
call CLK_0
btfss Reg_3,2
call CLK_1

btfsc Reg_3,4
call CLK_0
btfss Reg_3,4
call CLK_1

btfsc Reg_3,3
call CLK_0
btfss Reg_3,3
call CLK_1

goto wr2

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Подпрограмма отправки 0 синхроимпульса ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CLK_0 bsf Reg_4,0 ; подготавливаем 1 для записи в GPIO
movf Reg_4,W ; -//-
movwf GPIO ; устанавливаем 1 в GPIO (x синхроимпульс)
call Pause ; пауза 108 мкс
bcf Reg_4,0 ; подготавливаем 0 для записи в GPIO
movf Reg_4,W ; -//-
movwf GPIO ; устанавливаем 0 в GPIO (x бит)
call Pause ; пауза 108 мкс
bcf Reg_4,0 ; подготавливаем 0 для записи в GPIO
movf Reg_4,W ; -//-
movwf GPIO ; устанавливаем 0 в GPIO (x синхроимпульс - окончание посылки)
call Pause ; пауза 108 мкс
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Подпрограмма отправки 1 синхроимпульса ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CLK_1 bsf Reg_4,0 ; подготавливаем 1 для записи в GPIO
movf Reg_4,W ; -//-
movwf GPIO ; устанавливаем 1 в GPIO (x синхроимпульс)
call Pause ; пауза 108 мкс
bsf Reg_4,0 ; подготавливаем 1 для записи в GPIO
movf Reg_4,W ; -//-
movwf GPIO ; устанавливаем 1 в GPIO (x бит)
call Pause ; пауза 108 мкс
bcf Reg_4,0 ; подготавливаем 0 для записи в GPIO
movf Reg_4,W ; -//-
movwf GPIO ; устанавливаем 0 в GPIO (x синхроимпульс - окончание посылки)
call Pause ; пауза 108 мкс
return


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Подпрограмма сброса чтения кода приемника ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
RST bsf Reg_4,0 ; подготавливаем 1 для записи в GPIO
movf Reg_4,W ; -//-
movwf GPIO ; устанавливаем 1 в GPIO
call Pause ; пауза 108 мкс
call Pause ; пауза 108 мкс
call Pause ; пауза 108 мкс
call Pause ; пауза 108 мкс
bcf Reg_4,0 ; подготавливаем 0 для записи в GPIO
movf Reg_4,W ; -//-
movwf GPIO ; устанавливаем 0 в GPIO
return

;delay = 106 machine cycles
Pause movlw .35
movwf Reg_1
wr decfsz Reg_1, F
goto wr
return

;delay = 100'000 machine cycles
Pause1 movlw .221
movwf Reg_1
movlw .130
movwf Reg_2
wr1 decfsz Reg_1, F
goto wr1
decfsz Reg_2, F
goto wr1
nop
return


end




Приёмник


LIST p=12F675
#include <P12F675.inc>
__CONFIG (_MCLRE_OFF & _PWRTE_ON & _BODEN_OFF & _CP_OFF & _WDT_ON & _INTRC_OSC_NOCLKOUT)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; прописываем регистры общего назначения ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Reg_1 EQU 0x20
Reg_3 EQU 0x22
Reg_4 EQU 0x23
Reg_5 EQU 0x24
Reg_6 EQU 0x25
Reg_7 EQU 0x26
Reg_8 EQU 0x27
Reg_9 EQU 0x28
Reg_10 EQU 0x29
Reg_11 EQU 0x30
Reg_12 EQU 0x31

;;;;;;;;;;;;;;;;;;;
; старт программы ;
;;;;;;;;;;;;;;;;;;;
org 0
goto START

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; подготовительные операции ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
START call 0x3FF ; копируем калибровочную константу
bsf STATUS,RP0 ; переход в банк 1
movwf OSCCAL ; записываем калибровочную константу
banksel INTCON ; переходим в регистр INTCON
movlw .0 ; глобальный запрет прерываний
movwf INTCON ; -//-
banksel TRISIO ; переходим в регистр TRISIO
movlw b'00100000' ; настраиваем GP5 на вход, остальные порты на выход
movwf TRISIO ; -//-
banksel WPU ; переходим в регистр WPU
movlw .0 ; отключаем подтягивающие резисторы
movwf WPU ; -//-
banksel CMCON ; переходим в регистр CMCON
movlw b'00000111' ; выключаем компаратор
movwf CMCON ; -//-
banksel OPTION_REG ; переходим в регистр OPTION_REG
movlw b'00001111' ; включаем предделитель перед WDT 1:128
movwf OPTION_REG ; -//-
banksel ANSEL ; переходим в регистр ANSEL
movlw .0 ; отключаем АЦП
movwf ANSEL ; -//-
banksel ADCON0 ; переходим в регистр ADCON0
movlw .0 ; отключаем аналоговые входы АЦП
movwf ADCON0 ; -//-
bcf STATUS,RP0 ; переход в банк 0

clrf Reg_3 ; очищаем регистры, для хранения основной и дублей кодовой посылки
clrf Reg_4 ; -//-
clrf Reg_5 ; -//-
clrf Reg_6 ; -//-
clrf Reg_7 ; -//-
clrwdt ; сбрасываем сторожевой таймер

clrf Reg_8 ; отключаем приемник и передатчик
movf Reg_8,W ; -//-
movwf GPIO ; -//-



;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; основная часть программы ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;

sleep ; отправляем контроллер спать. С WDT 1:128 период сна составляет 2,304 секунды
sleep
sleep
sleep
sleep
sleep
sleep
sleep
sleep
sleep
sleep
sleep
sleep
sleep
sleep
sleep
sleep
sleep
sleep
sleep
sleep
; sleep
; sleep
; sleep
; sleep
sleep ; итого 26 sleepов. 26 * 2,304 = 59,904 сек
bsf Reg_8,0 ; включаем приемник
movf Reg_8,W ; -//-
movwf GPIO ; -//-
banksel OPTION_REG ; переходим в регистр OPTION_REG
movlw b'00001110' ; включаем предделитель перед WDT 1:64
movwf OPTION_REG ; -//-
bcf STATUS,RP0 ; переход в банк 0
loop call id_SN ; читаем идентификационный код
call kod_pos ; принимаем кодовую посылку
call XOR ; сравниваем кодовую посылку с 4 дублями
bcf Reg_8,0 ; выключаем приемник
movf Reg_8,W ; -//-
movwf GPIO ; -//-

btfss Reg_3,0 ; проверяем значение 0 бита
goto p15m ; пропускаем если данное значение = 1
bsf Reg_8,2 ; включаем передатчик
movf Reg_8,W ; -//-
movwf GPIO ; -//-
call Pause1min
call Pause1min
bcf Reg_8,2 ; выключаем передатчик
movf Reg_8,W ; -//-
movwf GPIO ; -//-
goto START
p15m btfss Reg_3,1 ; проверяем значение 1 бита
goto p30m ; пропускаем если данное значение = 1
bsf Reg_8,2 ; включаем передатчик
movf Reg_8,W ; -//-
movwf GPIO ; -//-
call Pause10min
call Pause1min
call Pause1min
call Pause1min
call Pause1min
call Pause1min
bcf Reg_8,2 ; выключаем передатчик
movf Reg_8,W ; -//-
movwf GPIO ; -//-
goto START
p30m btfss Reg_3,2 ; проверяем значение 2 бита
goto p60m ; пропускаем если данное значение = 1
bsf Reg_8,2 ; включаем передатчик
movf Reg_8,W ; -//-
movwf GPIO ; -//-
call Pause10min
call Pause10min
call Pause10min
bcf Reg_8,2 ; выключаем передатчик
movf Reg_8,W ; -//-
movwf GPIO ; -//-
goto START
p60m btfss Reg_3,4 ; проверяем значение 4 бита
goto loop ; пропускаем если данное значение = 1
bsf Reg_8,2 ; включаем передатчик
movf Reg_8,W ; -//-
movwf GPIO ; -//-
call Pause10min
call Pause10min
call Pause10min
call Pause10min
call Pause10min
call Pause10min
bcf Reg_8,2 ; выключаем передатчик
movf Reg_8,W ; -//-
movwf GPIO ; -//-
goto START




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; подпрограмма приема идентификационного кода ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
id_SN call RDY_1
call RDY_1
call RDY_0
call RDY_1
call RDY_0
call RDY_1
call RDY_0
call RDY_0

call RDY_1
call RDY_1
call RDY_1
call RDY_1
call RDY_0
call RDY_0
call RDY_1
call RDY_1

call RDY_1
call RDY_0
call RDY_1
call RDY_1
call RDY_0
call RDY_0
call RDY_1
call RDY_0

call RDY_1
call RDY_0
call RDY_1
call RDY_1
call RDY_0
call RDY_1
call RDY_0
call RDY_1
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; подпрограмма приема кодовых посылок ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
kod_pos call RDY_KOD ; читаем 1 кодовую посылку
movf Reg_3, W ; копируем в W содержимое 3 регистра
movwf Reg_4 ; записываем данное значение в 4 регистр
call RDY_KOD ; читаем 2 кодовую посылку
movf Reg_3, W ; копируем в W содержимое 3 регистра
movwf Reg_5 ; записываем данное значение в 5 регистр
call RDY_KOD ; читаем 3 кодовую посылку
movf Reg_3, W ; копируем в W содержимое 3 регистра
movwf Reg_6 ; записываем данное значение в 6 регистр
call RDY_KOD ; читаем 4 кодовую посылку
movf Reg_3, W ; копируем в W содержимое 3 регистра
movwf Reg_7 ; записываем данное значение в 7 регистр
call RDY_KOD ; читаем 5 кодовую посылку
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; подпрограмма распознавания 0 уровня ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
RDY_0 btfss GPIO,5 ; если на входе 1, то следующая команда пропускается
goto RDY_0 ; -//-
call Pause ; задержка 165 мкс (0,5 периода)
btfsc GPIO,5 ; если на входе 0, то следующая команда пропускается
goto loop ; -//-
call Pause111 ; задержка 111 мкс (0,3 периода)
btfsc GPIO,5 ; если на входе 0, то следующая команда пропускается
goto loop ; -//-
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; подпрограмма распознавания 1 уровня ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
RDY_1 btfss GPIO,5 ; если на входе 1, то следующая команда пропускается
goto RDY_1 ; -//-
call Pause ; задержка 165 мкс (0,5 периода)
btfss GPIO,5 ; если на входе 1, то следующая команда пропускается
goto loop ; -//-
call Pause111 ; задержка 111 мкс (0,3 периода)
btfsc GPIO,5 ; если на входе 0, то следующая команда пропускается
goto loop ; -//-
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; подпрограмма чтения кодовой посылки ;
; и записи значения в Reg_3. 0,1,2,4 биты ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
RDY_KOD btfss GPIO,5 ; если на входе 1, то следующая команда пропускается
goto RDY_KOD ; -//-
call Pause ; задержка 165 мкс (0,5 периода)
btfsc GPIO,5 ; 0 бит. Проверка значения
bsf Reg_3,0 ; если =0 то данная команда пропускается
btfss GPIO,5 ; 0 бит. Проверка значения
bcf Reg_3,0 ; если =1 данная команда пропускается
call Pause107 ; задержка 108 мкс (0,3 периода)
btfsc GPIO,5 ; если на входе 0, то следующая команда пропускается
goto loop ; -//-
RDY_KOD1 btfss GPIO,5 ; если на входе 1, то следующая команда пропускается
goto RDY_KOD1 ; -//-
call Pause ; задержка 165 мкс (0,5 периода)
btfsc GPIO,5 ; 1 бит. Проверка значения
bsf Reg_3,1 ; если =0 то данная команда пропускается
btfss GPIO,5 ; 1 бит. Проверка значения
bcf Reg_3,1 ; если =1 данная команда пропускается
call Pause107 ; задержка 108 мкс (0,3 периода)
btfsc GPIO,5 ; если на входе 0, то следующая команда пропускается
goto loop ; -//-
RDY_KOD2 btfss GPIO,5 ; если на входе 1, то следующая команда пропускается
goto RDY_KOD2 ; -//-
call Pause ; задержка 165 мкс (0,5 периода)
btfsc GPIO,5 ; 2 бит. Проверка значения
bsf Reg_3,2 ; если =0 то данная команда пропускается
btfss GPIO,5 ; 2 бит. Проверка значения
bcf Reg_3,2 ; если =1 данная команда пропускается
call Pause107 ; задержка 108 мкс (0,3 периода)
btfsc GPIO,5 ; если на входе 0, то следующая команда пропускается
goto loop ; -//-
RDY_KOD3 btfss GPIO,5 ; если на входе 1, то следующая команда пропускается
goto RDY_KOD3 ; -//-
call Pause ; задержка 165 мкс (0,5 периода)
btfsc GPIO,5 ; 3 бит. Проверка значения
bsf Reg_3,4 ; если =0 то данная команда пропускается
btfss GPIO,5 ; 3 бит. Проверка значения
bcf Reg_3,4 ; если =1 данная команда пропускается
call Pause107 ; задержка 108 мкс (0,3 периода)
btfsc GPIO,5 ; если на входе 0, то следующая команда пропускается
goto loop ; -//-
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; подпрограмма сравнения кодовой посылки ;
; с дублем 1, 2, 3, 4 ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
XOR bcf STATUS, Z ; сбрасываем флаг Z
movf Reg_3, W ; копируем в W содержимое 3 регистра
xorwf Reg_4, W ; проверяем равно ли значение 4 регистра содержимому регистра W
btfss STATUS, Z ; проверяем значение флага Z, если =1 то значение W и Reg_4,5,6,7 не равны и исполняется следующая команда, если =0 то значение W и Reg_3 равны и следующая команда пропускается
goto loop ; -//-
movf Reg_3, W ; копируем в W содержимое 3 регистра
xorwf Reg_5, W ; проверяем равно ли значение 5 регистра содержимому регистра W
btfss STATUS, Z ; проверяем значение флага Z, если =1 то значение W и Reg_4,5,6,7 не равны и исполняется следующая команда, если =0 то значение W и Reg_3 равны и следующая команда пропускается
goto loop ; -//-
movf Reg_3, W ; копируем в W содержимое 3 регистра
xorwf Reg_6, W ; проверяем равно ли значение 6 регистра содержимому регистра W
btfss STATUS, Z ; проверяем значение флага Z, если =1 то значение W и Reg_4,5,6,7 не равны и исполняется следующая команда, если =0 то значение W и Reg_3 равны и следующая команда пропускается
goto loop ; -//-
movf Reg_3, W ; копируем в W содержимое 3 регистра
xorwf Reg_7, W ; проверяем равно ли значение 7 регистра содержимому регистра W
btfss STATUS, Z ; проверяем значение флага Z, если =1 то значение W и Reg_4,5,6,7 не равны и исполняется следующая команда, если =0 то значение W и Reg_3 равны и следующая команда пропускается
goto loop ; -//-
return



;delay = 164 machine cycles
Pause movlw .54
movwf Reg_1
wr decfsz Reg_1, F
goto wr
return

;delay = 110 machine cycles
Pause111 movlw .35
movwf Reg_1
wr1 decfsz Reg_1, F
goto wr1
nop
nop
nop
return

;delay = 107 machine cycles
Pause107 movlw .35
movwf Reg_1
wr2 decfsz Reg_1, F
goto wr2
return

;delay = 60'000'000 machine cycles
Pause1min movlw .52
movwf Reg_9
movlw .253
movwf Reg_10
movlw .48
movwf Reg_11
movlw .2
movwf Reg_12
wr3 decfsz Reg_9, F
goto wr3
clrwdt
decfsz Reg_10, F
goto wr3
decfsz Reg_11, F
goto wr3
decfsz Reg_12, F
goto wr3
return

;delay = 600'000'000 machine cycles
Pause10min movlw .48
movwf Reg_9
movlw .219
movwf Reg_10
movlw .224
movwf Reg_11
movlw .12
movwf Reg_12
wr4 decfsz Reg_9, F
goto wr4
clrwdt
decfsz Reg_10, F
goto wr4
decfsz Reg_11, F
goto wr4
decfsz Reg_12, F
goto wr4
return

end

faraon200 !
Уберите этот бред ... А то и вправду его примут за исходники .
Их я ни кому не давал .

Это не Ваши исходники.
И это совсем не бред, а рабочие исходники.
Правда на пульт и приёмник в 4е команды.
Но и на три команды эти прошивки работают.

Я это принял за декомпилированную прошивку к радиомикрофону ...

Собрал управление, все прошил-заработало как часы-спасибо автору!!!!!!.