Нерабочие схемы

Шапочка из фольги для клавиатуры, или как ваш пароль был перехвачен на расстоянии v1.0

2026-02-15T11:31:16.045Z

Еще в 2001 году исследователи из Швейцарии Martin Vuagnoux и Sylvain Pasini обнаружили, что паразитные излучения PS/2, USB, и даже встроенных в ноутбуки клавиатур позволяют перехватить пароли на расстоянии 20 м с вероятностью 95%.

https://web.archive.org/web/20150115020100/https://www.usenix.org/legacy/events/sec09/tech/full_papers/vuagnoux.pdf

Для примера рассмотрим старые PS/2 клавиатуры, в которых применяются неэкранированные кабели:

https://oe7twj.at/images/6/6a/PS2_Keyboard.pdf

Поскольку фронты импульсов Data и Clock достаточно крутые, спектр паразитных излучений (нечетные гармоники частоты тактирования клавиатуры) простирается за 200 МГц, и момент перехода сигналов через ноль хорошо заметен на анализаторе спектра:

Перехват паролей на расстоянии: спектр паразитных излучений клавиатуры

Как принять эти побочные излучения и расшифровать набираемые на клавиатуре символы?

На вход быстрого АЦП подключается антенна (через простейший ПФ и МШУ), сигнал записывается.

Применяется быстрое преобразование Фурье (понятно описанные алгоритмы см. в книге Signal Processing for Neuroscientists) для поиска нечетных гармоник частоты тактирования клавиатуры (10...16.7 кГц).

Рекомендуемая книга по цифровой обработке сигналов

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

Момент перехода через ноль сигнала Data обнаруживается по увеличенной амплитуде всплеска.

Авторы использовали АЦП осциллографа Tektronix TDS5104 (частота дискретизации 5 ГГц), записанные сэмплы передавали для анализа на компьютер через сетевую карту.

Осциллограф Tektronix TDS 5104

При использовании древнего USRP результаты были хуже (дальность 2 м).

Современные приемники USRP

Наверное, перехватчик можно сделать даже на базе HackRF One с его 20 МГц полосой (потребуется только написать софт и, для лучших результатов, посчитать ПФ).

HackRF One

Защита: экранирование кабеля и контактных площадок клавиатуры с двух сторон.

Выпускаются специальные экранированные клавиатуры, например, K-TEK-M390TP-FN-BL-ML-EMC-DWP (не реклама):

Экранированная клавиатура K-TEK-M390TP-FN-BL-ML-EMC-DWP

Альтернативные методики перехвата и еще много интересного:

https://web.archive.org/web/20160731194717/https://secu.famillepasini.ch/index.php?page=keyboards.html

Подпишитесь на блог, чтобы узнавать о новых статьях сразу!

Все статьи →

© Copyright 2025 Badradio. All rights reserved.
Все права защищены. Копирование материалов сайта запрещено.
При цитировании ставить кликабельную ссылку на первоисточник.

Жучок ЦРУ SRT-SP: стабилизатор и генератор шума v1.0

2026-02-13T09:03:50.393Z

Как и обещал, публикую схему следующей части жучка ЦРУ SRT-SP — стабилизатора напряжения и генератора шума, который используется маскиратором аудиосигнала.

Схема маскиратора аудиосигнала: https://teletype.in/@badradio/gold

Схема УНЧ с АРУ жучка ЦРУ SRT-SP: https://teletype.in/@badradio/agc

Напоминаю, что последнюю часть — высокочастотную (фото) — опубликую тогда, когда будет 20 подписчиков.

Все схемы нарисованы по фотографиям с сайта https://cryptomuseum.com/covert/bugs/ec/sp/index.htm

SRT-SP CIA Bug Voltage Regulator and Noise Generator Schematic Diagram

SRT-SP CIA Bug Voltage Regulator and Noise Generator Components Placement

Стабилизатор с коэффициентом стабилизации несколько тысяч собран на транзисторах Q1-Q4 и особенностей не имеет.

Генератор шума на транзисторах Q5-Q11 представляет из себя просто УНЧ с большим коэффициентом усиления. Обратите внимание, что для повышения экономичности каскады Q5-Q7 и Q8-Q11 соединены по питанию последовательно.

В отличие от рудометовского фейка, эта схема содержит стабилизатор и развязывающую цепочку R9C3C4, поэтому не самовозбуждается.

Подпишитесь на блог, не дайте фуфлыжникам шанса!

Все статьи →

На пути к самодельному радиопеленгатору (по мотивам M7142) v1.0

2026-02-08T22:03:54.980Z

В этой статье я еще раз покажу, как VRTP препятствует появлению радиолюбительской спецтехники, даже когда речь идет о воплощении самых простых принципов.

Речь пойдет о портативном радиопеленгаторе Micromill M7142, и почему у отечественных радиолюбителей до сих пор нет ничего подобного.

Источник всех фотографий: https://cryptomuseum.com/df/micromill/m7142/

Micromill M7142

Теория

https://www.qsl.net/dl4sdc/db0adf/db0adf.html
https://www.longdom.org/open-access/dadf-digital-automatic-direction-finder-12801.html
http://www.ramseyelectronics.com/downloads/manuals/DDF1.pdf

Две разнесенные в пространстве антенны попеременно подключаются на вход ЧМ приемника (с помощью p-i-n диодов), что эквивалентно изменению фазы несущей, поэтому на выходе появляется напряжение НЧ с частотой переключения. Сравнивая фазы переключающего и демодулированного напряжения НЧ, получаем азимут на передатчик.

Устройство Micromill M7142 Radio Direction Finder (RDF)

Ниже — коммутатор антенн на неизвестных p-i-n диодах из M7142 (маркировка F0D или FOD — возможно, это HSMP-3820, которые маркируются F0).

Экранированный 50 Ом кабель идет на вход ЧМ приемника:

Коммутатор антенн на pin диодах пеленгатора Micromill M7142

А вот аналогичная радиолюбительская схема от N0GSG из CQ 7/2002 (см. стр. 2, на вид — рабочая):

https://www.n5dux.com/ham/files/pdf/N0GSG%20-%20Portable%20Radio%20Direction%20Finder.pdf

https://cq-amateur-radio.com

Применены VHF pin диоды MPN3700 (1 пф) и два микроконтроллера AT90S1200A.

Узкополосный ЧМ приемник с двумя преобразованиями частоты особенностей не имеет и может быть собран на MC3362 (RSSI брать с вывода 10), MC3363, MC13135.

Частота данного экземпляра фиксированная — 168.360 МГц.

УНЧ собран на LM386N.

Узкополосный ЧМ приемник с двумя преобразованиями частоты M7142

Сердце M7142 — верхняя плата управления и индикации:

Плата управления и индикации M7142. Вид со стороны компонентов.

Плата управления и индикации M7142. Вид со стороны монтажа.

M7142 Portable Radio Direction Finder (RDF) Schematic Diagram

Генератор собран на таймере ICL7555 (IC1).

На ОУ IC4A (ICL7612) собран синхронный детектор по схеме из «Искусства схемотехники» Хоровица и Хилла (начинающим обязательно следует прочитать эту книгу). Прямоугольное напряжение подается с выхода первого D-триггера HEF4013 (вывод 1) через резистор R11.

Пропорциональное разности фаз выпрямленное напряжение с вывода 1 IC4A поступает на ФНЧ (IC4B), RC фильтр R21C21, буферный УПТ на IC21A, и, наконец, на вход светодиодной шкалы IC22 (вывод 5 LM3914), куда также добавляется опорное напряжение с выхода IC21A.

В то же время с выходов второго D-триггера HEF4013 (выводы 12, 13) через буферы Q2, Q3 переключающее напряжение подается на pin диоды (контакты P3.DR1, P2.DR2, P1.5V).

Остальные ОУ используются так.

На первой половинке запаянного с обратной стороны аналога ICL7621 (позиционное обозначение не видно) собран усилитель-ограничитель НЧ сигнала с выхода ЧМ приемника (с диодами D3, D4 и RV2 в обратной связи). C8R7 — вход (контакт P5.AF), R8C9 — выход (контакт P6.AUD1).

На второй — BIAS для описанного выше синхронного детектора.

На IC21B собран повторитель опорного напряжения.

Вертикальная шкала отображает уровень RSSI. Задействованы IC41 (ICL7612) и IC42 (LM3914).

Осторожно! Схема срисована с фотографий, поэтому содержит ошибки и не полна. Например, неизвестно, куда ведут R49 и C4.

Напомню, что с LM3914N в индикаторе направления и уровня (RSSI) мы уже сталкивались.

Как на VRTP полурабочую схему в нерабочую превратили

Во второй любительской схеме (от WB2HOL из RDF 9/93) применяется вполне рабочий (по крайней мере, в симуляции) синхронный детектор на основе CD4066, но ВЧ-часть — полный бред: два выпрямительных НЧ диода 1N4007 с огромной паразитной емкостью не могут заменить p-i-n СВЧ диод:

WB2HOL RDF 9/93 Handheld Direction Finder

https://vrtp.ru/index.php?showtopic=10699

Первоисточник (домашняя страница WB2HOL): https://web.archive.org/web/20100227220951/https://home.att.net/~jleggio/projects/rdf/rdf.htm

И вот, чтобы эту полурабочую схему добить, сделать совершенно нерабочей, Werewolf (барабанная дробь)... в качестве приемника применяет RX5000:

https://vrtp.ru/index.php?showtopic=15027

Если кто не знал, то RX5000 — это AM (а не ЧМ) приемник, поэтому схема становится совершенно нерабочей: при изменении фазы ВЧ сигнала напряжение на выходе АМ детектора не меняется!

Многие схемы на VRTP из раздела «Радиопеленгация» сворованы отсюда: https://farcircuits.net/Radio%20Direction_Finder%20RDF%20Projects%20Joe%20WB2HOL.pdf

Тоже бред: https://vrtp.ru/index.php?showtopic=8960

Еще один нерабочий «Индикатор пеленгатор»: https://vrtp.ru/index.php?act=categories&CODE=article&article=97

Совсем примитивный «Радиопеленгатор» Алексая Гаврилова из журнала Радио: https://vrtp.ru/index.php?act=categories&CODE=article&article=3089

Четыре страницы пустой болтовни: https://web.archive.org/web/20150523072145/https://vrtp.ru/index.php?showtopic=1600

(Продолжение следует...)

Некоторые ссылки с VRTP

https://www.qsl.net/ve2emm/pic-projects/doppler3/doppler3-e.html

https://www.ve2ums.ca/chasse/Serge/Transmitter%20Hunting/Doppler/doppler_links.htm

https://web.archive.org/web/20180809144930/http://www.silcom.com/~pelican2/PicoDopp/PICODOPP.htm

Правильный путь

ВЧ часть от M7142 на pin диодах (можно использовать MPN3700 или советские «переключательные», например, 2А515)
Приемник подойдет любой, в том числе готовый, лишь бы он был узкополосный ЧМ
Коммутатор на таймере 555 и CD4013
Фазовый компаратор на ваш выбор
Индикатор — светодиодная шкала на LM3914.

Пусть начинающих не пугает, что в одних схемах используется фазовый компаратор, а в других — синхронный детектор: результат один и тот же.

Подпишитесь на блог, не дайте фуфлыжникам шанса!

Все статьи →

Фото настоящих жучков (2022)

2026-02-05T11:31:22.582Z

Коллекционирую самые новые и самые интересные фотографии настоящих подслушивающих устройств. Вся информация из открытых источников.

Не так страшен черт, как его малюют
— русская народная поговорка

В отличие от других страниц моего блога, на этой нет ничего нового, просто понравившиеся мне фотограии с интересных сайтов собраны в одном месте.

Хотя именно этот фотоальбом спецтехники вдохновляет многих людей углубиться в тему, прочитать что-нибудь интересное у меня на сайте и не только.

К сожалению, сравнивая современные находки с миниатюрными изделиями 1970-х годов, приходишь к выводу, что самые лучшие образцы в этой фотогалерее отсутствуют, так как не были еще никем обнаружены.

Болонья, 2018:

Дижон, 2022:

Лечче, 2017 (миниатюрный жучок):

ABG bug

Белфаст, 2015

Гренобль, 2018:

ATmega128

AD2188 - I2C Analog Switch Array 8x8

UAA2082H - однокристальный приемник до 900 МГц, применялся в пейджерах

Nitronex (MACOM) NPTB00004A - GaN HEMT транзистор, обеспечивающий выходную мощность до 5 Вт на частотах до 5 ГГц

Берлин, 2022:

DESAG Telematic NavKoS T

Греция, 2019

Сделан на основе GSM модуля Telit UC864-G (миниатюрность и расширенный температурный диапазон):

Telit UC864-G GSM bug

Афины, 2019 (GPS трэкер)

Фоллоника, 2020:

Follonica GSM bug

Источник: https://earsandeyes.noblogs.org/downloads/

Италия, 2022

VOD

WESO

Источник: https://www.reddit.com/r/TSCM/comments/14lizni/the_government_is_spying_me/

https://imgur.com/a/gadget-minecraft-server-w8wGNu9

Для сравнения — изделие ABU 1974 года (радиомаячок в наручных часах)

168.360 MHz

Источник: https://cryptomuseum.com/covert/bugs/telefunken/abu/

(Продолжение следует)

Все статьи →

Неправильно указанная мощность в четырехканальной аппаратуре для радиоуправления моделями Чухаленко v1.0

2026-01-16T15:19:16.610Z

Источник: «В помощь радиолюбителю». Выпуск 89 (1985). Четырехканальная аппаратура для радиоуправления моделями. А.Берестов, М.Васильченко, С.Чухаленко. Тираж 900000 экземпляров.

https://studfile.net/preview/16526372/page:6/

Ошибки в схеме передатчика:

Короткое замыкание с коллектора VT1 на землю (спасибо kelvin phitrow, который это заметил; в сборнике ВПР №89 этой ошибки нет).
Забыли поставить электролит по питанию.

Схема была скорее вымучена, чем разработана:

Почему в коллекторе задающего генератора вместо экранированного колебательного контура с подстроечником стоит дроссель?
Почему база КТ606 подключена к коллектору ГТ311Д фактически напрямую, без цепей согласования (не к отводу от контура, например)?
Вопросы вызывают и входная цепь приемника, и контур гетеродина L4C27...

https://studfile.net/preview/16526372/page:6/

Оптимальны эти узлы или нет, но и приемник, и передатчик данного комплекта работают.

Мелкие нестыковки:

На стр. 10 сказано, что L1 должна содержать 15 витков провода 0.8 мм при длине 10 мм. Это невозможно, ведь даже без шага будет 15*0.8=12 мм.
20 витков того же провода в L2 даст 16 мм, а никак не 12 мм.

Переделка в CW передатчик на 10 м 1.28 Вт

Вместо C6 и VT3 поставить телеграфный ключ. VT4, VT5 и все, что правее — не устанавливать.

Приемник собрать по другой схеме.

Переделка в Си-Би радиостанцию с ЧМ (FM) 1.28 Вт

Не проверял.

Вместо C6 и VT3 — перемычка. VT4, VT5 и все, что правее — не устанавливать.

Приемник собрать по другой схеме.

Емкость C1 увеличить, последовательно с C1 включить варикап, подать на варикап постоянное напряжение смещения со стабилизатора. Модулирующее напряжение на варикап подавать через конденсатор 0.1 мкф и дроссель 47 мкГн.

Выходной транзистор VT2 установить на радиатор.

Переделка в Си-Би радиостанцию с АМ 1.28 Вт

Если выкинуть VT3 (ГТ403Б) и C6, вместо них включить вторичную обмотку трансформатора (с соотношением числа витков обмоток 1:1), первичную обмотку которого подключить к УНЧ около 5 Вт, получится рация с качественной АМ (не проверял).

При модуляции напряжение питания передатчика должно изменяться от нескольких вольт до 18В, пиковая мощность будет около 5 Вт.

КТ907А или КТ606 придется установить на радиатор.

Испытания

При закороченном ГТ403 мощность настроенного передатчика составила 1.28 Вт на нагрузке 50 Ом, потребляемый ток — 360 мА при 9В, КПД 40%.

Такой она была бы для ЧМ (FM) или CW SSB.

Но для амплитудной модуляции (АМ) ситуация другая, и вместо заявленной мощности 600 мВт имеем 225 мВт (потребляемый ток 200 мА).

Малограмотные авторы просто измерили среднюю излучаемую мощность, с учетом потерь на ГТ403 как раз получилось 1.2Вт/2 = 600 мВт.

На самом деле мощность АМ передатчика в 4 раза меньше пиковой: 1.2Вт/4 = 300 мВт (при модуляции синусоидальным сигналом и глубине модуляции 100%).

Если вас это удивляет, пора прочитать учебник по радиопередающим устройствам (Шахгильдяна, например).

Кто-то может возразить, что в этом передатчике применяется импульсная модуляция (C6 немного сглаживает), значит, мощность должна быть равна средней — 600 мВт.

На самом деле при модуляции прямоугольным сигналом полезная мощность еще на 25% меньше, ведь энергия расходуется и на излучение гармоник модулирующей частоты (при 800 Гц — 2.4 кГц, 4 кГц и другие нечетные), которые игнорируются точно настроенным на одну частоту (800 Гц) дешифратором команд в приемнике.

Плагиат А.Татаренко

С некоторыми изменениями схема была перепечатана в журнале Конструктор 4-5/2000 (в бозе почивший сателлит «Радиоаматора» с тиражом 1000 экземпляров) под именем А.Титаренко, который на самом деле Татаренко (РК 6/2000, стр. 43). Приведены чертежи печатных плат.

В модификации Татаренко ток потребления передатчика снизился почти в два раза (до 120 мА), во столько же раз упала и выходная мощность; в схему добавлены новые ошибки (неполный список изменений):

Антенна передатчика подключена не через 6800, а через 6.8 пф (чтоб не работало).
«Удлиняющая» катушка помещена в экран, чего в заводской аппаратуре не бывает.
R3 увеличен с 91 Ом до 150 Ом, при этом R3 уменьшен с 6.8 кОм до 2.2 кОм.
C3 увеличен с 18 до 62 пф.
Модернизированы схемы стабилизаторов напряжения (КРЕН5).
В приемнике применены логические элементы и рэле вместо драйверов на VT13-VT18.

Титаренко-Татаренко, «забывший» упомянуть авторов оригинальной конструкции и добавивший ошибку в рабочую схему, получает свое законное место в списке плагиаторов.

Также опасайтесь других статей недоучки Татаренко, в которых могут скрываться довольно подлые ошибки:

Усовершенствованная аппаратура радиоуправления моделями (РК 9-10/2000)
Аппаратура пропорционального управления моделями (РК 5,6,7/2001)
Шифратор и дешифратор дистанционного управления (РА 11/2001)
ДУ — новые возможности старых микросхем (РА 8/2002)

Подпишитесь на блог, не дайте фуфлыжникам шанса!

Все статьи →

Восстановление исходников глючного GSM микрофона на SIM900 и PIC24FJ64GA004 от Tired/STG

2025-12-30T09:08:27.431Z

Прошло 14 лет, исписано 30 страниц форума, но этот код с VRTP так и остался кривым.

Что будет, если не читать книги по программированию Кнута, Вирта и Дейкстры? Результат перед вами. Как говорится в таких случаях, не вздумайте повторять увиденное дома.

Исходники GSM радиожучков на других модулях: SIM300 (PIC16F648A), SIM800 (PIC12F1822, очень кривой).

Оригинальная статья (без исходников, разные версии прошивки):

https://web.archive.org/web/20221208224213/https://vrtp.ru/index.php?showtopic=20314

Схема последней версии. Добавлены дополнительные охранные шлейфы

Похабная прошивка от Tired (№844) и STG (№176) имеет классические ошибки безопасности. Прочтите комментарии в листинге, чтобы научиться их избегать.

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

Вот только самые грубые косяки этого GSM радиомикрофона на SIM900:

Неправильно разведена печатная плата (уже проходили в «Трёшке»‬)
Нет автоматической перезагрузки GSM модуля при потере сети (виснет в течение суток)
Нет развязки SIM900 по питанию с помощью дросселя (глюки и жужжание)
Контролирующие шлейфы входы контроллера не зашунтированы конденсаторами (реагирует на любые импульсные помехи, в том числе от себя)
По достижении BUFSZ (127) символов буфер перезаписывается. Например, подобрав длину SMS (может быть до 160 байт плюс заголовки SIM900) с текстом “RING”, можно заставить устройство подумать, будто идет входящий вызов. Кто раскрутит это до эксплуатируемой уязвимости?
Ответы SIM900 проверяются «приблизительно»: не на равенство, а на вхождение подстроки
Успешность дозвона и отправки SMS не учитывается
Нестандартные ситуации (отсутствует SIM-карта, удалены номера) не отслеживаются
Если ПИН-код неправильный, устройство введет его несколько раз, и карта заблокируется!
Отсутствует резистор R2 для вывода MCLR контроллера (см. стр. 17 даташита).

Кроме того, даже не имея исходников и не зная, что за «шедевр» перед ними, форумчане VRTP выявили следующие недостатки:

При обрыве шлейфа идет звонок за звонком, высаживается батарея
Владелец никак не узнает про обрыв связи в результате зависания GSM модуля, а это случается регулярно
Наличие средств на счету не отслеживается

Кстати, на форуме VRTP есть множество ценнейших комментариев по конструированию GSM радиомикрофонов, но все они были проигнорированы. Лишний раз убеждаешся, что цель VRTP — не помочь и научить, а подставить и обломать.

Примечательно, что среди изученных мною прошивок ни в одной не приняты меры против «продвинутого» нарушителя, который попытается имитировать садящуюся батарею или выход ее из строя, вызвать ложные срабатывания или зависание устройства. Ничто не позволит отличить от постороннего вмешательства:

ошибку в прошивке
отказ GSM модуля
неполадки на стороне оператора
случаи медленно и внезапно севшей батареи
неполадки с питанием.

Начинающим следует изучить несколько схем и прошивок промышленных ОПС, прежде чем изобретать свой велосипед. Чтение руководства по микроконтроллеру, даташитов, аппнот и доступного открытого кода — обязательно.

Осторожно! В листинге еще масса несоответствий (использование naken_util не позволяет пока получить идентичный hex-файл, в отличие от других прошивок, дизассемблированных с помощью gpdasm), проверяйте все вызывающие подозрение места. Некоторые участки дизассемблер naken_util дизассемблировать не смог.

Оригинальный исходник написан на Си.

mic.asm (первая версия прошивки)

; Disassembler: naken_util - by Michael Kohn
;                 Joe Davisson
;     Web: https://www.mikekohn.net/
;   Email: mike@mikekohn.net
;
; Version: May 25, 2025
;
; Loaded mic.hex of type hex / dspic from 0x0000 to 0x157ff
; Type help for a list of commands.
;
; Addr    Opcode     Instruction                              Cycles
; ------- ---------- ----------------------------------       ------

; Compilation:
; naken_asm -o mic_recompiled.hex -type hex mic.asm
; Также см. https://www.watelectronics.com/sim900-module/


; PIC24FJ64GA004
.PIC24


;===============================================================================


#define                 TRUE    1
#define                 FALSE   0
; смещение номера в ответе на AT+CLCC
#define CLCC_PHONE_OFFSET 18
; число символов в телефонном номере
#define PHONE_LEN 39
BUFSZ                   equ     127

; получить адрес переменной в Linear Data Memory
LINEAR_DATA_MEMORY      equ     0x8000
#define LDM(var)        #(var) + LINEAR_DATA_MEMORY

; alternate interrupt vector table (59)
ALTIVT_START            equ     0x0104

; маска для AND
#define MASK(bit)       (1 << (bit))

; если операнд - байт
#define HIREG(reg)      (reg + 1)
#define HIBIT(bit)      (bit - 8)
#define HIMASK(bit)     MASK(HIBIT(bit))


#include "PIC24FJ64GA004.inc"


;===============================================================================
; DATA address definitions

buffer  equ 0x0c11              ; принятый ответ на AT-команду
;after  equ 0x0c90              ; первый байт после буфера

phone1  equ 0x1157              ; номера из записной книги SIM
phone2  equ 0x117f
phone3  equ 0x11a7

callee  equ 0x11cf              ; номер звонящего абонента
;cafter equ 0x11f6              ; первый байт после номера

active1 equ 0x11f8              ; флаги наличия номеров в записной книге SIM
active2 equ 0x11fa
active3 equ 0x11fc
unknown equ 0x11fe

state   equ 0x1202              ; конечный автомат
#define STATE_RESET 4
#define STATE_GSMON 5
#define STATE_PIN_OK 6

bufptr  equ 0x1208              ; индекс свободного байта в буфере

tm4h    equ 0x121C              ; ограничитель времени звонка?

var_a   equ 0x1230              ; ? - только чтение

lowbat  equ 0x1232              ; батарея разряжена
pollcnt equ 0x1234              ; ? - только запись

calling equ 0x1236              ; активен звонок

alert   equ 0x1238              ; шлейф сигнализации в обрыве
charged equ 0x123a              ; аккумулятор полностью заряжен
lbsent  equ 0x123c              ; сообщение о разрядившейся батарее отправлено

temp    equ 0x123e              ; временная переменная для многих операций

STKPTR  equ 0x27f0              ; стек

; indirect
i       equ 20
j       equ 14
k       equ 16
m       equ 10
pbk     equ 18                  ; прочитанный из записной книги номер
cbcpos  equ 12
search_result   equ 6           ; номер позвонившего обнаружен на SIM?
callee_offset   equ 8

;===============================================================================
; PINS usage definitions

LED_PORT            equ PORTB       ; светодиод
LED                 equ RB2

MIC_PORT            equ PORTB       ; управление чувствительностью микрофона
MICLEVEL            equ RB0

SENSOR_PORT         equ PORTB       ; шлейф сигнализации
SENSOR              equ RB8

CHARGE_PORT         equ PORTC       ; контроллер заряда
CHARGE              equ RC1

PWRKEY_PORT         equ PORTC       ; кнопка включения SIM900
PWRKEY              equ RC9         ; pin 1 of SIM900, pin 5 of PIC

STATUS_PORT         equ PORTB       ; SIM900 STATUS
STATUS              equ RB14

; PIC   - SIM900
; 2 RC6 - 10 RXD
; 3 RC7 - 9 TXD

DTR_PORT            equ PORTC       ; SIM900 DTR
DTR                 equ RC8         ; pin 3 of SIM900, pin 4 of PIC


#include "macro.asm"


.org 0


    goto main


; таблица векторов прерываний
#include "ivt.asm"


.org 0x200


main:
    mov #temp, w15

    ; стек
    mov #STKPTR, w0
    mov w0, SPLIM

    nop
    rcall setup1

    ; инициализированные переменные
    invoke2(intialize, #initialized_data, #0)

    ; ?
    mov #0, w0
    cp0 w0
    bra z, skip

    call 0

skip:
    call start
    sleep_
    reset


setup1:
    .scope

    ; Program Space Visibility in Data Space Enable bit:
    ; Program space is not visible in data space
    bclr CORCON, #PSV

    ; 8 trap vectors + interrupt vectors
    mov #(2 * (8 + 14) + ALTIVT_START), w0
    cp0 w0
    bra z, done

    mov #0, w0
    mov w0, PSVPAG

    ; Program space is visible in data space
    bset CORCON, #PSV

done:
    return
    .ends

#include "idata.asm"
#include "at.asm"


start:
    lnk #0x00

    ; A/D PORT CONFIGURATION REGISTER (199)
    setm w0
    mov w0, AD1PCFG

    ; Peripheral Output Function is Assigned to RP22 Output Pin bits (123)
    bset RPOR11, #0
    bset RPOR11, #1

    bclr RPOR11, #2
    bclr RPOR11, #3
    bclr RPOR11, #4

    ; Assign UART1 Receive (U1RX) to the Corresponding RPn Pin bits
    bset RPINR18, #0
    bset RPINR18, #1
    bset RPINR18, #2
    ; U1RXR3
    bclr RPINR18, #3
    bset RPINR18, #4

    ; TON: Timery On bit - 1 = Starts 16-bit Timery
    ; Timery Input Clock Prescale Select bits: 11 = 1:256
    mov #(TON | TCKPS1 | TCKPS0), w0
    mov w0, T4CON

    ; период таймера 4
    movlf(15200, PR4)

    mov #(TON | TCKPS1 | TCKPS0), w0
    mov w0, T3CON

    ; период таймера 3
    movlf(760, PR3)

    bclr IFS1, #T4IF
    ; T4IE: Timer4 Interrupt Enable bit
    bset IEC1, #T4IE

    movlf(STATE_RESET, state)

    delay(#1000)

    bclr TRISB, #TRISB2
    ; Change Notice 4 Pull-Up Enable
    bset CNPU1, #CN4PUE

loop:
    rcall SIM900_power
    rcall function_sim900_init
    rcall function_register
    bra loop


#include "atoi.asm"


interrupt_timer3:               ; 0x05f8
    .scope
    push.d w0
    push w2
    push PSVPAG
    mov #0, w0
    mov w0, PSVPAG
    lnk #0

    bclr IFS0, #T3IF            ; прерывание обработано

    IFNE(calling, TRUE, exit)   ; если соединение не активно, выход
    IBLINK
exit:

    ulnk
    pop PSVPAG
    pop w2
    pop.d w0
    retfie
    .ends


interrupt_timer4:
    .scope
    push.d w0
    push w2
    push PSVPAG
    mov #0, w0
    mov w0, PSVPAG
    lnk #0x00

    bclr IFS1, #T4IF            ; прерывание обработано

    ; увеличение счетчика времени в tm4h:initialized_data
    inc16(tm4h, initialized_data)

    IFNE(var_a, TRUE, exit)     ; мигаем, если var_a не ноль
    IBLINK
exit:

    ulnk
    pop PSVPAG
    pop w2
    pop.d w0
    retfie
    .ends


#include "utils.asm"
#include "uart.asm"


; кнопка включения модуля SIM900
SIM900_power:
    .scope
    lnk #0x00

    IFNE(state, STATE_RESET, exit)

    delay(#400)

    bclr TRISC, #TRISC9
    bclr PWRKEY_PORT, #PWRKEY

    delay(#2000)

    bset PWRKEY_PORT, #PWRKEY
    bset TRISB, #TRISB14

wait:                           ; ожидание SIM900 STATUS (66)
    mov.b HIREG(STATUS_PORT), wreg
    and.b #HIMASK(STATUS), w0
    CP0_W0
    bra z, wait

    rcall setup_uart

    movlf(STATE_GSMON, state)

exit:
    ulnk
    return
    .ends


function_sim900_init:
    .scope
    lnk #0x02

    IFNE(state, STATE_GSMON, exit)

    movlf(0, lbsent)

loop:
    ATCMD(at)                  ; отправляем "AT"

    blink                       ; мигаем
    blink

    unless_buffer_contains(ok + 1, retry)
    rcall clear_buffer
    bra autobauded              ; ответ содержит "OK"

retry:
    ATCMD(at)

    blink
    blink
    blink
    blink

    unless_buffer_contains(ok + 1, more)
    rcall clear_buffer
    bra autobauded

more:
    ATCMD(at)

    delay(#250)
    led_off
    delay(#250)
    blink
    blink
    blink
    blink
    blink
    blink
    blink

    unless_buffer_contains(ok + 1, loop)
    rcall clear_buffer

autobauded:                     ; получен "OK"
    clr w0
    mov w0, [w14]

repeat_pin:
    ATCMD(at_cpin)             ; нужен ли SIM PIN?

    blink
    blink

    if_buffer_contains(cpin_sim_pin + 1, pin_ready_or_sim_pin)
    unless_buffer_contains(cpin_ready, repeat_pin)

pin_ready_or_sim_pin:
    unless_buffer_contains(cpin_sim_pin + 1, enter_pin)

    movlo(TRUE, 0)              ; требуется ввод пин-кода

enter_pin:
    rcall clear_buffer

    mov #TRUE, w0               ; установлен пин-код?
    subr w0, [w14], [w15]
    bra z, repeat_enter_pin
    bra pin_accepted_or_no_pin

    ; если пин-код неправильный, зачем вводить его снова?
    ; SIM-карта будет заблокирована!
repeat_enter_pin:
    ATCMD0(at_cpin_2000 + 1)     ; вводим пин-код "2000"
    rcall clear_buffer
    delay(#1000)
    if_buffer_contains(ok + 1, pin_accepted_or_no_pin)
    bra repeat_enter_pin

pin_accepted_or_no_pin:         ; пин-код принят
    movlf(STATE_PIN_OK, state)

exit:
    ulnk
    return
    .ends


function_register:
    lnk #0x16

    IFNE(state, STATE_PIN_OK, wrong_state)

    ; ожидание регистрации в сети
registration_loop:
    ATCMD(at_creg)
    blink
    unless_buffer_contains(creg_01 + 1, registration_loop)

    delay(#500)

    ; чтение трех номеров из телефонной книги SIM карты

    rcall clear_buffer

    movlf(FALSE, active1)
    movlf(FALSE, active2)
    movlf(FALSE, active3)

    ATCMD0(at_cpbs_sm)
    delay(#2000)

    read_parse_phonebook(at_cpbr_1 + 1, phone1, active1)
    read_parse_phonebook(at_cpbr_2, phone2, active2)
    read_parse_phonebook(at_cpbr_3, phone3, active3)

    ATCMD0(at_cmgf_1)            ; переключаем SIM900 в текстовый режим

    led_on                      ; мигаем
    delay(#2000)
    led_off
    delay(#2000)

    ; пин MICLEVEL управляет выбором чувствительности микрофона
    mov.b MIC_PORT, wreg
    and.b w0, #MASK(MICLEVEL), w0
    CP0_W0
    bra nz, mic_sensitivity_high

    ATCMD0(at_cmic00)            ; установить низкую чувствительность микрофона

mic_sensitivity_high:
    mov.b MIC_PORT, wreg
    and.b w0, #MASK(MICLEVEL), w0
    CP0_W0
    bra z, mic_sensitivity_low

    ATCMD0(at_cmic015)           ; установить высокую чувствительность микрофона

mic_sensitivity_low:

    ; отправка SMS по каждому номеру
    ; успешность отправки SMS не проверяется!

    IFNE(active1, TRUE, skip_number1_sms_ready)
    delay(#1000)
    SEND_SMS(#phone1, Ready + 1, i)

skip_number1_sms_ready:
    IFNE(active2, TRUE, skip_number2_sms_ready)
    delay(#5000)
    SEND_SMS(#phone2, Ready + 1, i)

skip_number2_sms_ready:
    IFNE(active3, TRUE, skip_number3_sms_ready)
    delay(#5000)
    SEND_SMS(#phone3, Ready + 1, i)

skip_number3_sms_ready:
    delay(#1000)

    bclr IFS1, #CNIF            ; Change Notice Interrupt Flag

    mov #HIREG(IPC4), w1        ; INTERRUPT PRIORITY CONTROL REGISTER 4
    mov.b [w1], w1
    mov_w0(0x8f)                ; clear CNIP<2:0>
    and.b w1, w0, w0
    mov_w1(0x40)                ; set CNIP<2:0> to 100 - priority 4? (82)
    ior.b w0, w1, w0
    mov.b wreg, HIREG(IPC4)

    bset IEC1, #T1IE            ; Timer1 Interrupt Enable bit
    bset CNEN2, #CN22IE
    bset CNEN1, #CN8IE
    bset CNPU1, #CN8PUE

    movlf(FALSE, lowbat)
    movlf(2, pollcnt)

    delay(#1000)

    for (k, repeat, repeat)
    ; k++
    inco(w14, k)

    mov [w14+k], w0
    sub w0, #20, [w15]
    bra le, local11

    movlo(0, k)

    ; получить заряд батареи
    ATCMD(at_cbc + 1)
    delay(#500)

    ; проверяем наличие чего-то, похожего на ответ
    unless_buffer_contains(cbc, skip_sms_lowbat)

    ; позиция "ответа"
    invoke_strnpos(cbc)
    mov.b w0, [w14+cbcpos]

    ; преобразуем строку в число
    get_digit(14, w2)
    get_digit(13, w5)
    get_digit(12, w4)
    get_digit(11, w0)
    mov.b w2, w3
    mov.b w5, w2
    mov.b w4, w1
    rcall function_atoi

    ; напряжение 3.5В
    ; temp = 3500 - atoi(cbcpos + 11)
    mov w0, w1
    mov #3500, w0
    sub w1, w0, [w15]
    bra gtu, more3_5V

    movlf(TRUE, lowbat)

    mov lbsent, w0
    sub w0, #1, [w15]
    bra gtu, skip_sms_lowbat

    incf(lbsent)

    IFNE(active1, TRUE, skip_number1_sms_lowbat)
    SEND_SMS(#phone1, Low_battery, i)

skip_number1_sms_lowbat:
    IFNE(active2, TRUE, skip_number2_sms_lowbat)
    delay(#5000)
    SEND_SMS(#phone2, Low_battery, i)

skip_number2_sms_lowbat:
    IFNE(active3, TRUE, skip_number3_sms_lowbat)
    delay(#5000)
    SEND_SMS(#phone3, Low_battery, i)

skip_number3_sms_lowbat:
    delay(#1000)
    bra skip_sms_lowbat

more3_5V:
    movlf(FALSE, lowbat)

skip_sms_lowbat:
    rcall clear_buffer

local11:
    delay(#380)
    delay(#380)

    incf(pollcnt)

    delay(#380)
    delay(#380)
    delay(#380)

    led_on

    delay(#380)
    delay(#380)

    led_off

    ; входящий звонок?
    unless_buffer_contains(ring, local4)

    ; определить номер
    ATCMD(at_clcc + 1)

    delay(#380)
    delay(#380)
    delay(#380)
    delay(#380)
    delay(#380)

    for(m, local1, local2)
        erase(callee, m)
    endfor(m, PHONE_LEN, local1, local2)

    ; ошибка: даже если номер не определен,
    ; сравнение выполняется
    unless_buffer_contains(clcc + 1, check_phone)

    invoke_strnpos(clcc + 1)

    ; callee_offset = strnpos(clcc) + CLCC_PHONE_OFFSET
    ze w0, w0
    add w0, #CLCC_PHONE_OFFSET, w0
    mov w0, [w14+callee_offset]
    ; m = 0
    movlo(0, m)
    bra local3

local5:
    ; buffer[callee_offset + m] == '"'?
    mov [w14+callee_offset], w1
    mov [w14+m], w0
    add w1, w0, w1
    mov #buffer, w0
    add w1, w0, w0
    mov.b [w0], w1
    mov_w0('"')
    sub.b w1, w0, [w15]
    ; закрывающая кавычка
    bra z, check_phone

    ; копируем номер звонящего:
    ; callee[m] = buffer[callee_offset + m]
    mov [w14+m], w2
    mov [w14+callee_offset], w1
    mov [w14+m], w0
    add w1, w0, w1
    mov #buffer, w0
    add w1, w0, w0
    mov.b [w0], w1
    mov #callee, w0
    add w2, w0, w0
    mov.b w1, [w0]

    endfor(m, PHONE_LEN, local3, local5)

check_phone:
    ; звонит владелец?

    ; search_result = FALSE
    movlo(FALSE, search_result)

    ; 1. если сигнатура CLCC не обнаружена, в callee будет номер предыдущего звонка
    ; (почти всегда номер хозяина)
    ; 2. то же при пустом номере "" (запрет определения номера)

    check_number(active1, phone1)
    check_number(active2, phone2)
    check_number(active3, phone3)

    mov [w14+search_result], w0
    sub w0, #TRUE, [w15]
    bra nz, drop_call

    ; поднять трубку
    ATCMD(ata)

    mul.uu w0, #0, w0
    mov w0, initialized_data
    mov w1, tm4h
    bclr IFS0, #T3IF
    bset IEC0, #T3IE

    movlf(TRUE, calling)

    bra local4

drop_call:
    ; сбросить звонок
    ATCMD0(ath)

local4:
    ; tm4h:initialized_data < 0xf00?
    mov initialized_data, w2
    mov tm4h, w3
    mov #15, w0
    mov #0, w1
    sub w2, w0, [w15]
    subb w3, w1, [w15]
    bra leu, not_calling

    IFNE(calling, TRUE, not_calling)

    mov.b MIC_PORT, wreg
    and.b w0, #MASK(MICLEVEL), w0
    CP0_W0
    bra nz, not_calling

    ; повесить трубку
    ATCMD(ath)

    ; сбросить флаг активного звонка
    movlf(0, calling)

    bclr IFS0, #T3IF
    bclr IEC0, #T3IE

not_calling:
    ; нет связи?
    unless_buffer_contains(no_carrier, local7)
    rcall clear_buffer

    bclr IFS0, #T3IF
    bclr IEC0, #T3IE

    ; сбросить флаг активного звонка
    movlf(0, calling)

local7:
    unless_buffer_contains(ath2 + 1, check_alert)
    rcall clear_buffer

    bclr IFS0, #T3IF
    bclr IEC0, #T3IE

    ; сбросить флаг активного звонка
    movlf(0, calling)

check_alert:
    IFNE(alert, TRUE, dont_call)

    ; сбрасываем флаг тревоги
    movlf(0, alert)

    IFNE(active1, TRUE, number1_inactive)

    ; звоним по первому номеру
    CALL(phone1, 4)
    bra call_done

number1_inactive:
    IFNE(active2, TRUE, number2_inactive)

    delay(#5000)
    CALL(phone2, 2)
    bra call_done

number2_inactive:
    IFNE(active3, TRUE, call_done)

    delay(#5000)

    ; звоним по третьему номеру
    CALL(phone3, 0)

call_done:
    delay(#1000)

dont_call:
    IFNE(charged, TRUE, repeat)

    movlf(0, charged)

    IFNE(active1, TRUE, sms_number1_inactive)
    SEND_SMS(#phone1, High_battery + 1, j)

sms_number1_inactive:
    IFNE(active2, TRUE, sms_number2_inactive)
    delay(#5000)
    SEND_SMS(#phone2, High_battery + 1, j)

sms_number2_inactive:
    IFNE(active3, TRUE, sms_number3_inactive)
    delay(#5000)
    SEND_SMS(#phone3, High_battery + 1, j)

sms_number3_inactive:
    delay(#1000)
    bra repeat

wrong_state:
    ulnk
    return


#include "itoa_digit.asm"


; прерывание от охранного шлейфа
interrupt_sensor:
    .scope
    push RCOUNT
    push.d w0
    push.d w2
    push.d w4
    push.d w6
    push PSVPAG

    mov #0, w0
    mov w0, PSVPAG

    lnk #0x00

    ; Input Change Notification Interrupt Flag Status bit
    bclr IFS1, #CNIF

    ; контроль охранного шлейфа сигнализации
    mov.b HIREG(SENSOR_PORT), wreg
    and.b w0, #HIMASK(SENSOR), w0
    CP0_W0
    bra z, sensor_ok

    ; за это время можно и успеть восстановить шлейф (быстро войти и закрыть дверь)
    delay(#600)

    mov.b HIREG(SENSOR_PORT), wreg
    and.b w0, #HIMASK(SENSOR), w0
    CP0_W0
    bra z, sensor_ok

    ; тревога!
    movlf(TRUE, alert)

sensor_ok:

    ; аккумулятор полностью заряжен?
    mov.b CHARGE_PORT, wreg
    and.b w0, #CHARGE, w0
    CP0_W0
    bra nz, exit

    delay(#600)

    mov.b CHARGE_PORT, wreg
    and.b w0, #CHARGE, w0
    CP0_W0
    bra nz, exit

    ; аккумулятор заряжен
    movlf(TRUE, charged)

exit:
    ulnk
    pop PSVPAG
    pop.d w6
    pop.d w4
    pop.d w2
    pop.d w0
    pop RCOUNT
    retfie
    .ends

initialized_data:

; инициализированные данные
#include "idata2.asm"

; все неиспользуемые прерывания
interrupt_reset:
    reset

uart.asm (последовательный порт)

; антипаттерн работы с последовательным портом
interrupt_uart:                 ; оригинальный адрес 0x0748
    .scope

    push.d w0
    push PSVPAG
    mov #0, w0
    mov w0, PSVPAG
    lnk #0x02

    ; прерывание обработано
    ; бит нужно сбрасывать в конце обработчика, а не в начале
    ; https://www.joelw.id.au/PicMcuTips
    bclr IFS0, #U1RXIF

    ; этот цикл - источник зависаний
    ; не проверяются FERR, PERR, OERR
wait:
    mov.b U1STA, wreg
    ; Receive buffer has data; at least one more character can be read
    and.b w0, #MASK(URXDA), w0
    CP0_W0
    bra z, wait

    ; принятый байт (а в буфере USART могут быть еще)
    mov U1RXREG, w0

    ; временно сохраняем
    mov.b w0, [w14]

    ; buffer[bufptr++] = c
    mov bufptr, w1
    mov #buffer, w0
    add w1, w0, w0
    mov.b [w14], [w0]

    incf(bufptr)

    ; буфер не заполнен?
    IFNE2(bufptr, BUFSZ, end)

    ; первые байты перезаписываются новыми,
    ; что может привести к интересным уязвимостям
    movlf(0, bufptr)

end:
    ulnk
    pop PSVPAG
    pop.d w0
    retfie
    .ends

transmit_char:
    lnk #0x02
    mov.b w0, [w14]

    mov.b U1STA + 1, wreg
    and.b w0, #2, w0
    CP0_W0
    bra nz, $-6

    se [w14], w0
    mov w0, U1TXREG

    ulnk
    return

setup_uart:
    lnk #0x00

    movlf(103, U1BRG)           ; Baud Rate Generator Prescaler Register (160)
    movlf(0, U1MODE)
    bset U1MODE, #BRGH
    bset U1MODE, #UARTEN        ; UARTx Enable bit (162)

    ; URXISEL = 0
    ; Interrupt is set when any character is received and transferred from the
    ; RSR to the receive buffer;
    ; receive buffer has one or more characters (164)
    movlf(0, U1STA)

    ; Transmit is enabled, UxTX pin is controlled by UARTx (164)
    bset U1STA, #UTXEN
    bclr IFS0, #U1RXIF

    bset IEC0, #T4IE            ; разрешить прерывания от таймера 4

    ulnk
    return

transmit_at_command:
    .scope
    lnk #0x02
    mov w0, [w14]
    bra loop

next_char:
    mov.b U1STA + 1, wreg
    and.b w0, #2, w0
    CP0_W0
    bra nz, next_char
    mov [w14], w0
    mov.b [w0], w0
    se w0, w0
    mov w0, U1TXREG
    inc [w14], [w14]

loop:
    mov [w14], w0
    mov.b [w0], w0
    CP0_W0
    bra nz, next_char

    ulnk
    return
    .ends

macro.asm (макросы)

;===============================================================================
; Макросы

#include "naken.asm"

.macro for(var, label_start, label_next)
    movlo(0, var)
    bra label_start
label_next:
.endm

.macro endfor(var, limit, label_start, label_next)
    inco(w14, var)
label_start:
    .if var == 0
        mov #limit, w0
        subr w0, [w14], [w15]
    .else
        mov [w14+var], w1
        mov #limit, w0
        sub w1, w0, [w15]
    .endif
    bra le, label_next
.endm

; for до конца строки
.macro endforc(buf, pos, label_start, label_next)
    inco(w14, pos)
label_start:
    getc(buf, pos)
    add.b w0, #1, [w15]
    bra nz, label_next
.endm

.macro endforc2(buf, pos, limit, label_start, label_next)
    inco(w14, pos)
label_start:
    getc(buf, pos)
    add.b w0, #1, [w15]
    bra z, break
    IFLEO(w14, pos, limit, label_next)
break:
.endm

.macro inc16(high, low)
    mov low, w0
    mov high, w1
    add w0, #1, w0
    addc w1, #0, w1
    mov w0, low
    mov w1, high
.endm

.macro erase(buf, var)
    movor(w14, var, w1)
    mov #buf, w0
    add w1, w0, w1
    ; 0xff
    setm.b w0
    mov.b w0, [w1]
.endm

; reg = base[pos]
.macro getc_(base, pos, reg)
    movor(w14, pos, w1)
    mov base, w0
    add w1, w0, w0
    mov.b [w0], reg
.endm

; w0 = base[pos]
.macro getc(base, pos)
    getc_(base, pos, w0)
.endm

.macro delay(n)
    mov n, w0
    rcall function_delay
.endm

; отправить AT-команду без предварительной очистки буфера ответа
.macro ATCMD0(cmd)
    mov LDM(cmd), w0
    rcall transmit_at_command
.endm

.macro ATCMD(cmd)
    rcall clear_buffer
    ATCMD0(cmd)
.endm

; отправить символ
.macro SEND(char)
    mov_w0(char)
    rcall transmit_char
.endm

.macro SEND_SMS(number, text, ii)
.scope
    ; AT+CMGS="recipient_number"
    ATCMD0(at_cmgs + 1)

    for(ii, start, next)
        getc(number, ii)
        rcall transmit_char
    endforc(number, ii, start, next)

    ATCMD0(Ready - 1)
    SEND('\r')
    SEND('\n')

    delay(#1000)

    ATCMD0(text)

    ; ^Z - символ конца сообщения
    SEND(0x1a)
.ends
.endm

.macro led_on
    bset LED_PORT, #LED
.endm

.macro led_off
    bclr LED_PORT, #LED
.endm

.macro blink
    led_on
    delay(#250)
    led_off
    delay(#250)
.endm

.macro IBLINK
    mov.b LED_PORT, wreg        ; мигаем
    ze w0, w0
    lsr w0, #LED, w0
    and.b w0, #1, w0
    com.b w0, w0
    and.b w0, #1, w0
    and.b w0, #1, w0            ; что за ерунда?
    sl w0, #LED, w2
    mov #LED_PORT, w1
    mov.b [w1], w1
    mov_w0(~MASK(LED))
    and.b w1, w0, w0
    ior.b w0, w2, w0
    mov.b wreg, LED_PORT
.endm

.macro CALL(number, tmp)
.scope
    ATCMD0(atd + 1)

    for(tmp, start, next)
        getc(#number, tmp)
        rcall transmit_char
    endforc2(#number, tmp, PHONE_LEN, start, next)

    ATCMD0(tail + 1)
.ends
.endm

; вызов функции с двумя аргументами
.macro invoke2(func, arg1, arg2)
    mov arg1, w0
    mov arg2, w1
    rcall initialize
.endm

; вызов функции strnpos для поиска в буфере
.macro invoke_strnpos(needle)
    mov LDM(needle), w1
    mov #BUFSZ, w2
    mov #buffer, w0
    rcall strnpos
.endm

; буфер не содержит needle
.macro unless_buffer_contains(needle, label)
    invoke_strnpos(needle)
    CP0_W0
    bra lt, label
.endm

; буфер содержит needle
.macro if_buffer_contains(needle, label)
    invoke_strnpos(needle)
    CP0_W0
    bra ge, label
.endm

; читать номер из записной книги SIM карты
.macro read_parse_phonebook(cmd, number, flag_active)
    .scope
    ATCMD(cmd)
    delay(#1500)

    ; заполнить номер 0xff
    for(i, start1, next1)
        erase(number, i)
    endfor(i, PHONE_LEN, start1, next1)

    ; проверка корректности ответа
    unless_buffer_contains(cpbr + 1, error)

    invoke_strnpos(cpbr + 1)

    ze w0, w0
    add w0, #10, w0
    mov w0, [w14+pbk]

    for (i, start, next)
        mov [w14+pbk], w1
        mov [w14+i], w0
        add w1, w0, w1
        mov #buffer, w0
        add w1, w0, w0
        mov.b [w0], w1

        ; до закрывающей кавычки
        mov_w0('"')
        sub.b w1, w0, [w15]
        bra z, break

        ; сохраняем номер в number
        mov [w14+i], w2
        mov [w14+pbk], w1
        mov [w14+i], w0
        add w1, w0, w1
        mov #buffer, w0
        add w1, w0, w0
        mov.b [w0], w1
        mov #number, w0
        add w2, w0, w0
        mov.b w1, [w0]
    endfor(i, PHONE_LEN, start, next)

break:
    ; первый номер прочитан с SIM карты, пометить как активный
    movlf(TRUE, flag_active)
error:
    delay(#2000)
    .ends
.endm

.macro check_number(flag_active, number)
    .scope
    mov flag_active, w0
    sub w0, #TRUE, [w15]
    bra nz, exit

    for(m, start, next)
        ; number[m] == callee[m]?
        getc_(#number, m, w2)
        getc_(#callee, m, w0)
        sub.b w2, w0, [w15]
        bra nz, break
    endfor(m, PHONE_LEN, start, next)

break:
    ; number[m] != callee[m]
    mov [w14+m], w1
    mov #PHONE_LEN + 1, w0
    sub w1, w0, [w15]
    bra nz, exit

    movlo(TRUE, 6)

exit:
    .ends
.endm

.macro get_digit(ndigit, dest)
    mov.b [w14+cbcpos], w0
    ze w0, w0
    add w0, #ndigit, w1
    mov #buffer, w0
    add w1, w0, w0
    mov.b [w0], dest
.endm

utils.asm (очистка буфера, задержки, поиск подстроки)

clear_buffer:
    .scope
    lnk #0x02

    for(0, check_cond, repeat)
        erase(buffer, 0)
    endfor(0, BUFSZ, check_cond, repeat)

    movlf(0, bufptr)

    ulnk
    return
    .ends

function_delay:
    .scope
    lnk #0x02

    mov w0, [w14]

    movlf(0x8000, T2CON)
    bra start

loop:
    movlf(0, TMR2)
inner:
    mov TMR2, w1
    mov #3999, w0
    sub w1, w0, [w15]
    bra leu, inner
start:
    dec [w14], [w14]
    setm w0
    subr w0, [w14], [w15]
    bra nz, loop

    ulnk
    return
    .ends

; не используется
timer_delay:
    .scope
    lnk #0x02
    mov w0, [w14]

    movlf(0x8000, T2CON)

    bra start

repeat:
    movlf(0, TMR2)

wait:
    mov TMR2, w1
    mov #PHONE_LEN, w0
    sub w1, w0, [w15]
    bra leu, wait

start:
    dec [w14], [w14]
    setm w0
    subr w0, [w14], [w15]
    bra nz, repeat

    ulnk
    return
    .ends

strnpos:
.scope
    lnk #0x0c

    mov w0, [w14+4]             ; haystack
    mov w1, [w14+6]             ; needle
    mov w2, [w14+8]             ; максимальная длина (i + j)

    for(2, check, nextchar)  ; i (2) - позиция в haystack
    movlo(0, 0)                 ; j (0) - позиция в needle
    bra compare

match:
    inco(w14, 0)                ; j++

    ; needle[j] == '\0'?
    mov [w14], w1
    mov [w14+6], w0
    add w1, w0, w0
    mov.b [w0], w0
    CP0_W0
    bra nz, more

    ; нашли needle
    ; возвращаем i - позицию в haystack
    mov [w14+2], w0
    ze w0, w0
    mov w0, [w14+10]
    bra exit

more:
    ; еще не конец needle
    mov [w14+2], w0
    add w0, [w14], w1           ; i + j
    mov [w14+8], w0             ; максимальная длина
    sub w1, w0, [w15]
    bra ltu, compare

    ; подстрока не найдена
    ; достигнут предел суммы позиций в haystack и needle
    mov #0xff, w0
    mov w0, [w14+10]
    bra exit

compare:
    mov [w14+2], w0             ; i
    add w0, [w14], w0           ; j
    mov w0, w1

    mov [w14+4], w0             ; haystack
    add w1, w0, w0
    mov.b [w0], w2              ; w2 = haystack[i + j]

    mov [w14], w1               ; j
    mov [w14+6], w0             ; needle
    add w1, w0, w0
    mov.b [w0], w0              ; w0 = needle[j]

    sub.b w2, w0, [w15]
    bra z, match

    ; символы не совпали
    ; i++ (следующая позиция в haystack)
    inco(w14, 2)

check:
    ; достигли конца haystack?
    mov [w14+2], w1             ; i
    mov [w14+8], w0             ; предел haystack
    sub w1, w0, [w15]
    bra leu, nextchar

    ; конец haystack
    movlo(0xff, 10)             ; -1 - не найдено

exit:
    mov [w14+10], w0            ; результат
    ulnk
    return
.ends

at.asm (строки AT-команд)

org 0x290
    ; AT команды и ответы SIM900

.align_bits 8
at:
    ; "AT\r\n"
    db "AT",0,0,"\r\n",0,0,0

ok:
    ; "OK"
    db 'O',0,0,'K',0,0,0

at_cpin:
    ; "AT+CPIN?\r\n"
    db "AT",0,0,"+C",0,0,"PI",0,0,"N?",0,0,"\r\n",0,0,0

cpin_sim_pin:
    ; "+CPIN: SIM PIN"
    db '+',0,0,"CP",0,0,"IN",0,0,": ",0,0,"SI",0,0,"M ",0,0,"PI",0,0,'N',0,0,0

cpin_ready:
    ; "+CPIN: READY"
    db "+C",0,0,"PI",0,0,"N:",0,0," R",0,0,"EA",0,0,"DY",0,0,0

at_cpin_2000:
    ; "AT+CPIN=2000\r\n"
    db 'A',0,0,"T+",0,0,"CP",0,0,"IN",0,0,"=2",0,0,"00",0,0,"0\r",0,0,'\n',0,0,0

at_creg:
    ; "AT+CREG?\r\n"
    db "AT",0,0,"+C",0,0,"RE",0,0,"G?",0,0,"\r\n",0,0,0

creg_01:
    ; "+CREG: 0,1"
    db '+',0,0,"CR",0,0,"EG",0,0,": ",0,0,"0,",0,0,'1',0,0,0

at_cpbs_sm:
    ; AT+CPBS="SM"\r\n
    db "AT",0,0,"+C",0,0,"PB",0,0,"S=",0,0,"\"S",0,0,"M\"",0,0,"\r\n",0,0,0

at_cpbr_1:
    ; "AT+CPBR=1\r\n"
    db 'A',0,0,"T+",0,0,"CP",0,0,"BR",0,0,"=1",0,0,"\r\n",0,0,0

cpbr:
    ; "+CPBR:"
    db '+',0,0,"CP",0,0,"BR",0,0,':',0,0,0

at_cpbr_2:
    ; "AT+CPBR=2\r\n"
    db "AT",0,0,"+C",0,0,"PB",0,0,"R=",0,0,"2\r",0,0,'\n',0,0,0

at_cpbr_3:
    ; "AT+CPBR=3\r\n"
    db "AT",0,0,"+C",0,0,"PB",0,0,"R=",0,0,"3\r",0,0,'\n',0,0,0

at_cmgf_1:
    ; AT+CMGF=1\r\n
    db "AT",0,0,"+C",0,0,"MG",0,0,"F=",0,0,"1\r",0,0,'\n',0,0,0

; AT+CMIC=<channel>,<gainlevel>
; https://www.espruino.com/datasheets/SIM900_AT.pdf
; <channel> 0 main audio handset channel
; 1 aux audio headset channel
; 2 main audio handfree channel
; 3 aux audio handfree channel
; <gainlevel> int: 0-15

; animals:
; на канале 1 чувствительность кажется получше, но качество звука идеальное, чистый без искажений звук
; на 2 канале отличий не увидел, всё также как и канале 0

at_cmic00:
    ; "AT+CMIC=0,0\r\n"
    db "AT",0,0,"+C",0,0,"MI",0,0,"C=",0,0,"0,",0,0,"0\r",0,0,'\n',0,0,0

at_cmic015:
    ; "AT+CMIC=0,15\r\n"
    db "AT",0,0,"+C",0,0,"MI",0,0,"C=",0,0,"0,",0,0,"15",0,0,"\r\n",0,0,0

at_cmgs:
    ; AT+CMGS="\x00"
    db 'A',0,0,"T+",0,0,"CM",0,0,"GS",0,0,"=\"",0,0,"\0\"",0,0,0

Ready:
    ; "Ready"
    db 'R',0,0,"ea",0,0,"dy",0,0,0

at_cbc:
    ; "AT+CBC\r\n"
    db 'A',0,0,"T+",0,0,"CB",0,0,"C\r",0,0,'\n',0,0,0

cbc:
    ; "+CBC:"
    db "+C",0,0,"BC",0,0,':',0,0,0

Low_battery:
    ; "Low battery"
    db "Lo",0,0,"w ",0,0,"ba",0,0,"tt",0,0,"er",0,0,'y',0,0,0

ring:
    ; "RING"
    db "RI",0,0,"NG",0,0,0

at_clcc:
    ; "AT+CLCC\r\n"
    db 'A',0,0,"T+",0,0,"CL",0,0,"CC",0,0,"\r\n",0,0,0

clcc:
    ; "+CLCC:"
    db '+',0,0,"CL",0,0,"CC",0,0,':',0,0,0

ata:
    db "AT",0,0,"A\r",0,0,'\n',0,0,0

ath:
    ; "ATH\r\n"
    db "AT",0,0,"H\r",0,0,'\n',0,0,0

no_carrier:
    ; "NO CARRIER"
    db "NO",0,0," C",0,0,"AR",0,0,"RI",0,0,"ER",0,0,0

; дубликат строки
ath2:
    ; "ATH"
    db 'A',0,0,"TH",0,0,0

atd:
    ; "ATD"
    db 'A',0,0,"TD",0,0,0

tail:
    ; ";\x00\r\n"
    db ";\0",0,"\r\n",0,0,0

High_battery:
    ; "High battery 100%"
    db 'H',0,0,"ig",0,0,"h ",0,0,"ba",0,0,"tt",0,0,"er",0,0,"y ",0,0,"10",0,0,"0%",0,0,0
    db 0,0,0

atoi.asm (преобразование строки в число)

.macro atoi_case(n, offset, label, nobra)
    movl(n, w0)
    movro(w0, w14, offset)
    .if nobra == 0
        bra label
    .endif
.endm

; avoid naken_asm 1024 chars macro limit
.macro atoi_subround(label, tmp1, tmp2, tmp3)
    ; select
    mov [w14+tmp1], w0
    mov [w14+tmp2], w1
    bra w0

    ; case
    bra $+20
    bra $+2*(10+1*2)
    bra $+2*(10+2*2)
    bra $+2*(10+3*2)
    bra $+2*(10+4*2)
    bra $+2*(10+5*2)
    bra $+2*(10+6*2)
    bra $+2*(10+7*2)
    bra $+2*(10+8*2)
    bra $+2*(10+9*2)

    atoi_case(0, tmp3, label, 0)
    atoi_case(1, tmp3, label, 0)
    atoi_case(2, tmp3, label, 0)
    atoi_case(3, tmp3, label, 0)
    atoi_case(4, tmp3, label, 0)
    atoi_case(5, tmp3, label, 0)
    atoi_case(6, tmp3, label, 0)
    atoi_case(7, tmp3, label, 0)
    atoi_case(8, tmp3, label, 0)
    atoi_case(9, tmp3, label, 1)
.endm

.macro atoi_round(tmp0, tmp1, tmp2, tmp3, label)
    mov.b [w14+tmp0], w0
    ze w0, w0
    mul.su w0, #1, w2
    mov #-'0', w0
    mov #-1, w1
    add w0, w2, w2
    addc w1, w3, w3
    mov w2, [w14+tmp1]
    mov w3, [w14+tmp2]
    mov #9, w0
    mov #0, w1
    mov [w14+tmp1], w2
    mov [w14+tmp2], w3
    sub w2, w0, [w15]
    subb w3, w1, [w15]
    bra gtu, label

    atoi_subround(label, tmp1, tmp2, tmp3)

label:
.endm

function_atoi:
    .scope
    lnk #0x1c
    mov.b w0, [w14+8]
    mov.b w1, [w14+9]
    mov.b w2, [w14+10]
    mov.b w3, [w14+11]

    atoi_round(8, 12, 14, 6, overflow1)
    atoi_round(9, 16, 18, 4, overflow2)
    atoi_round(10, 20, 22, 2, overflow3)
    atoi_round(11, 24, 26, 0, overflow4)

    mov [w14+6], w1
    mov #1000, w0
    mul.ss w1, w0, w0
    mov w0, w2
    mov [w14+4], w1
    mov #100, w0
    mul.ss w1, w0, w0
    add w2, w0, w2
    mov [w14+2], w0
    mul.su w0, #10, w0
    add w2, w0, w0
    add w0, [w14], w0

    ulnk
    return
    .ends

naken.asm (исправление ошибок дизассемблера и макросы-сокращения)

.macro sleep_
    ; unknown opcode
    db 0, 0x40, 0xda, 0
.endm

; константа - регистр
.macro movl(value, reg)
    .if (value) == 0
        clr reg
    .else
        mov #(value), reg
    .endif
.endm

; константа - файл
.macro movlf(value, file)
    movl(value, w0)
    mov w0, (file)
.endm

; [reg] and [reg+0] are not the same
.macro movro(src, dst, offset)
    .if (offset) == 0
        mov src, [dst]
    .else
        mov src, [dst+offset]
    .endif
.endm

; косвенная базовая адресация (со смещением и без)
.macro movor(src, offset, dst)
    .if (offset) == 0
        mov [src], dst
    .else
        mov [src+offset], dst
    .endif
.endm

.macro movlo(value1, var1)
    movl(value1, w0)
    movro(w0, w14, var1)
.endm

.macro inco(reg, offset)
    .if offset == 0
        inc [reg], [reg]
    .else
        mov [reg+offset], w0
        inc w0, w0
        mov w0, [reg+offset]
    .endif
.endm

; если [reg+offset] < n, перейти на label
.macro IFLEO(reg, offset, n, label)
    .if offset == 0
        mov #n, w0
        subr w0, [reg], [w15]
    .else
        mov [reg+offset], w1
        mov #n, w0
        sub w1, w0, [w15]
    .endif
    bra le, label
.endm

.macro incf(file)
    mov file, w0
    inc w0, w0
    mov w0, file
.endm

; naken_asm bugs fix

;cp0 w0
.macro CP0_W0
    db 0, 4, 0xe0, 0
.endm

; mov #b, w0
.macro mov_w0(b)
    db (b & 0x0f) << 4, 0xc0 | ((b >> 4) & 0x0F), 0xb3, 0
.endm

; mov #b, w1
.macro mov_w1(b)
    db ((b & 0x0f) << 4) | 1, 0xc0 | ((b >> 4) & 0x0F), 0xb3, 0
.endm

; если file не равно value, перейти на метку label
.macro IFNE(file, value, label)
    mov (file), w0
    sub w0, #(value), [w15]
    bra nz, (label)
.endm

.macro IFNE2(file, value, label)
    mov (file), w1
    mov #(value), w0
    sub w1, w0, [w15]
    bra nz, (label)
.endm

PIC24FJ64GA004.inc (минималистический включаемый файл)

;===============================================================================
; Самодельный PIC24FJ64GA004 для naken_asm
; см. include/dspic/convert.py для преобразования include-файлов
; из формата MPLAB в формат naken_asm (добавлено вручную - возможны ошибки!)

RPOR11  equ 0x06d6
RPINR18 equ 0x06a4
AD1PCFG equ 0x032c

PORTB   equ 0x02CA
RB14    equ 14          ; pin 14
RB8     equ 8           ; pin 44
RB2     equ 2           ; pin 23
RB0     equ 0           ; pin 21

TRISB   equ 0x02C8
TRISB14 equ 14
TRISB2  equ 2

PORTC   equ 0x02D2
RC9     equ 9           ; pin 5
RC1     equ 1           ; pin 26

TRISC   equ 0x02D0
TRISC9  equ 9

U1BRG   equ 0x0228
U1RXREG equ 0x0226
U1TXREG equ 0x0224

U1STA   equ 0x0222
UTXEN   equ 10
URXDA   equ 0

U1MODE  equ 0x0220
UARTEN  equ 15
BRGH    equ 3

T4CON   equ 0x011E
PR4     equ 0x011A
T3CON   equ 0x0112
T2CON   equ 0x0110
TMR2    equ 0x0106

TON     equ 0x8000
TCKPS0  equ 16
TCKPS1  equ 32

PR3     equ 0x010E

IPC4    equ 0x00AC

IEC1    equ 0x0096
T4IE    equ 11
T1IE    equ 3

IEC0    equ 0x0094
T3IE    equ 8

IFS1    equ 0x0086
T4IF    equ 11
CNIF    equ 3

IFS0    equ 0x0084
U1RXIF  equ 11
T3IF    equ 8

CNPU1   equ 0x0068
CN4PUE  equ 4
CN8PUE  equ 8

CNEN1   equ 0x0060
CN8IE   equ 8

CNEN2   equ 0x0062
CN22IE  equ 6

CORCON  equ 0x0044
PSV     equ 2

RCOUNT  equ 0x0036
PSVPAG  equ 0x0034
TBLPAG  equ 0x0032
SPLIM   equ 0x0020

idata.asm (инициализация переменных)

initialize:
    .scope
    ; Table Memory Page Address Register
    mov w1, TBLPAG
    mov w0, w1
    clr w0
    bra local1

local2:
    add w1, #2, w1
    addc TBLPAG
    tblrdl [w1], w3
    add w1, #2, w1
    addc TBLPAG
    tblrdl [w1], w5
    add w1, #2, w1
    addc TBLPAG
    clr w4
    lsr w5, #7, w6
    and #0x7f, w5
    cp.b w5, #0
    bra nz, local3

loop:
    clr.b [w2++]
    dec w3, w3
    bra gtu, loop

    bra local1

local3:
    cp w5, #1
    bra z, skip
    setm w4

skip:
    rcall function_026c

local1:
    ; reading the lower word
    tblrdl [w1], w2
    cp0 w2
    bra nz, local2

    return
    .ends


function_026c:
    .scope
start:
    tblrdl.b [w1++], [w2++]
    dec w3, w3
    bra z, exit

    tblrdl.b [w1--], [w2++]
    dec w3, w3
    bra z, next

    cp0 w4
    bra nz, local1

local2:
    add w1, #2, w1
    addc TBLPAG
    bra start

local1:
    tblrdh.b [w1], [w2++]
    dec w3, w3
    bra nz, local2

next:
    inc w1, w1

exit:
    add w1, #1, w1
    addc TBLPAG
    return
    .ends

ivt.asm (таблица векторов прерываний)

    ; таблица векторов прерываний
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_timer3,interrupt_reset, interrupt_reset, interrupt_uart
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_sensor
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_timer4
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, 0,                 0

    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_timer3,interrupt_reset, interrupt_reset, interrupt_uart
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_sensor
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_timer4
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset
    dd interrupt_reset, interrupt_reset, interrupt_reset, interrupt_reset

idata2.asm (инициализированные данные)

    dd unknown, 0x40,   2,      0
    dd 0,       0,      0,      0
    dd 0,       0,      0,      0
    dd 0,       0,      0,      0
    dd 0,       1,      0,      0
    dd 0,       1,      0,      0
    dd 0,       0x800,  0x9FE,  0
    dd 0

Перейти к оглавлению.

Подпишитесь на мой блог, не дайте фуфлыжникам шанса!

Все статьи →

Нерабочий радиомикрофон Э.Флинда (1981) v1.0

2025-12-11T05:38:21.102Z

Книга «Электронные устройства для дома» вышла в 1984 году тиражом 200000 экземпляров в СССР, но ошибку в радиомикрофоне никто так и не заметил.

Схема нерабочего радиомикрофона Э.Флинда:

Э.Флинд. Электронные устройства для дома. Рис. 3.1. Схема радиомикрофона

Э.Флинд. Электронные устройства для дома. Рис. 3.3. Расположение элементов на плате радиомикрофона

Э.Флинд. Электронные устройства для дома. Номиналы элементов радиомикрофона

Частота — средневолновый диапазон 200-400 м, антенна магнитная (должна быть расположена соосно с магнитной антенной радиоприемника).

На транзисторе VT2 собран источник тока: I = ((9В * R5 / (R5 + R4)) - 0.6В) / R8.

При модуляции в базу VT2 меняется ток генератора на VT3, VT4, следовательно и мощность.

Проблема в том, что при указанных на схеме номиналах I = ((9 * 8.2 / (8.2 + 39)) - 0.6) / 3.3 = 292 мкА, и при таком ничтожном токе генератор просто не будет работать.

Чтобы радиомикрофон Флинда заработал, нужно уменьшить R8 в 10 раз — до 330 Ом.

Так как в режиме молчания на базе VT2 1.5В, а на эмиттерах VT3, VT4 3.3В, то модуляцию без искажений получить трудно. При положительной полуволне модулирующего напряжения ток VT3, VT4 будет возрастать линейно, а при отрицательной — упадет до нуля уже при уменьшении базового напряжения VT2 на 0.7В. Это легко исправить, уменьшив R6 с 18 до 10 кОм.

В английском оригинале книги Э.Флинда эта ошибка тоже есть.

Подпишитесь на блог, чтобы узнавать о новых статьях сразу.

Все статьи →

Нерабочий радиомикрофон Осенчука на КП305Ж и 2Т325В v1.0

2025-12-09T05:39:45.365Z

Впервые схема радиомикрофона на КТ3102Г, КП305, КВС111 и КТ325 опубликована в журнале Радиолюбитель №7/1998 под названием «Радиомикрофон на 108 МГц». Автор — А.Осенчук из п.Нижнеангарск, Бурятия.

Все статьи →

Схема радиомикрофона А. Осенчука с RadioStorage.net, дополненная цоколевками КП305 и КТ3102

В 2012 году эта схема вместе с ошибками была сворована неким «вектором» (№74922) и выложена на VRTP:

vrtp .ru/index.php?act=categories&CODE=article&article=2873 (без регистраии ссылка не открывается).

Уже традиционно для VRTP, в статье «Радио микрофон FM диапозона. 3 транзитора» упомянута целая толпа: вектор, Markus, матроскин, но только не автор.

Девиз плагиатора (это он сам на странице своего профиля пишет):

Собрали и смело включайте, лишнее выгорит!

Тем не менее, прежде чем включать эту дрянь, я бы посоветовал сначала добавить электролиты по питанию.

Затем можно заметить, что сопротивление R2 в ООС УНЧ (47 кОм) указано неверно. Оно должно быть в 15-20 раз больше (680 кОм). Вместо шумного КТ3102Г следует применить малошумящий КТ3102Е, а микрофон зашунтировать конденсатором 100 пф для защиты от наводок с мобильных телефонов.

Также можно радикально улучшить разборчивость речи, заменив убогий однотранзисторный УНЧ схемой Kotu с автоматической регулировкой усиления (АРУ).

Примененная Осенчуком схема задающего генератора на МОП-транзисторе — одна из лучших по стабильности, шумам и КПД. Но при повторении конструкции она фактически неработоспособна, потому что подложка должна быть соединена с истоком, а у КП305 она соединена с корпусом, который незнающие этой «хитрости» просто заземлят.

Цепочка R10C6 (конденсатор 100 пф — четвертая ошибка, заменить на 1...10 нанофарад) должна стоять в эмиттере VT3, стабилизируя рабочую точку усилителя мощности. У автора же она просто съедает лишний заряд батареи.

Только после исправления этих ошибок получим «рабочий» радиомикрофон.

При указанных автором номиналах частота будет не 108 МГц, а до 120 МГц.

При увеличении напряжения питания до 4В частота уходит вверх на целых 4 МГц, так как напряжение на варикапной матрице КВС111 не стабилизировано.

Слово «рабочий» я взял в кавычки, потому что из-за безграмотной антенной цепи значительная часть выходной мощности не излучается, а нагревает VT3.

Чтобы это исправить, вместо параллельного контура L5C5 нужно поставить ВЧ дроссель и П-контур, согласовав антенну с усилителем мощности, после чего излучаемая мощность и КПД возрастут в разы при том же потребляемом токе.

Зеленые китайские дроссели тут не годятся, подойдут только самодельные без сердечника (как у Жутяева).

Расчет П-контура для этого радиомикрофона оставляю в качестве домашнего задания, так как уже есть аналогичный пример для радиомикрофона «Филин».

Найдите и скачайте методичку Титова «Проектирование цепей коррекции, согласования и фильтрации усилителей мощности радиопередающих устройств». Вам понадобится таблица 2.2 на странице 13.

Расчету П-контура предшествует выбор оптимального сопротивления нагрузки транзистора 2Т325В при заданном напряжении питания. Методика есть в любом учебнике по проектированию радиопередатчиков (например, у Шахгильдяна).

Пусть ток потребления выходного каскада этой схемы 20 мА при напряжении питания 3В. Значит, на R10 упадет 0.02А*56Ом=0.12В, и напряжение коллектора не более 3-0.12=2.88В. Оставив еще 0.3В на напряжение насыщения (в справочнике Петухова не указано), получим 2.58В. Тогда оптимальное сопротивление нагрузки будет 2.58В/0.02А=129 Ом.

Импеданс антенны «четверьволновой штырь» около 35 Ом (можно измерить NanoVNA).

Вот теперь, используя эти данные (35 Ом и 129 Ом) и зная частоту (около 120 МГц), можно по методичке Титова расчитать конкретные номиналы П-контура.

Первый шаг: коэффициент трансформации 129/35=3.69, ближайшее значение kтр в таблице 2.2 — 4. Дальше сами, полный пример тут.

После выполнения расчетов поделитесь результатами в комментариях.

Помните о противовесе.

Все статьи →

Исходник GSM «жучка» на PIC16F648A v1.0

2025-12-03T17:08:42.284Z

Реверс инжиниринг демо-прошивки радиомикрофона на PIC16F648A/PIC16F628A и древнем GSM модуле SIM300DZ.

Также см. исходники GSM радиомикрофонов на других модулях: SIM800C (PIC12F1822, очень глючная), SIM900 (PIC24FJ64GA004, очень глючная).

В отличие от «Трешки», ножек контроллера хватит и для дистанционного управления по SMS, а программа кажется гораздо более вменяемой.

Исходники GSM радиомикрофона на PIC16F648A, SIM300D

Антенну GSM используйте заводускую, а не такую, как у автора, а то Ротхаммель будет вертеться в гробу, как волчок. Помните о противовесе.

Печатная плата «Трешки» является причиной страшных глюков. В этом GSM радиомикрофоне плата получше, особенно если светодиод с длинными выводами заменить бескорпусным, а микрофон применить от гарнитуры, как советует Eddy71.

Я не анализировал эту прошивку так подробно, как «Трешку», поэтому за надежность не ручаюсь. Но идея хранить номер на SIM карте и проверять по имени гарантирует отсутствие ложных срабатываний и глюков от наводок, от чего так страдает «Трешка», судя по обсуждению на VRTP.

Ни «Трешку», ни эту схему я не собирал, поэтому неприятные неожиданности возможны.

Вместо халтурных проверок ответов SIM300 по одному-двум символам нужно сделать полноценные сравнения, как с "+CMT" (см. not_a_ring).

Авторская прошивка является демонстрационной и содержит ограничения на длительность и количество звонков. Интересные места прокомментированы.

Если вдруг окажется, что микропрограмма качественная, я советую связаться с автором и купить полную версию с управлением по SMS.

Комментарии автора:

Полная прошивка распространяется уже прошитая в микроконтроллер – спрашивайте у автора.
Если у Вас нету опыта и Вы собрали программатор самостоятельно, то не рискуйте, прошивая внутрисхемно. Вы можете потерять сотовый модуль.

Устройство отвечает только хозяину. Чтобы прописать его номер в международном формате (+7905……….) Вам надо записать на сим-карту его номер под имеем Ph1. Обязательно отмените ввод пин-кода. Программирование осуществляется с помощью мобильника. Будьте внимательны – некоторые телефоны дописывают индексы к имени, это приведет к сбою работы. Например, так делают Sony Ericson.

За полной прошивкой обращайтесь к автору по ICQ: 288449055 или пишите на мыло device@open.by. Автор принимает заказы на разработку устройств с применением контроллеров, GSM и GPS технологий.

Оригинальная прошивка без исходников (говносайт «Паяльник» удалил все мои комментарии):

https://web.archive.org/web/20240512090900/https://cxem.net/radiomic/radiomic123.php

Страница с обсуждением на форуме cxem net:

https://web.archive.org/web/20251203165751/https://forum.cxem.net/topic/50702-%D0%BF%D1%80%D0%BE%D1%81%D1%82%D0%BE%D0%B9-gsm-%D0%BC%D0%B8%D0%BA%D1%80%D0%BE%D1%84%D0%BE%D0%BD-%D0%BD%D0%B0-sim300d/

Руководство по работе с GSM/GPRS модемом SIM300 на русском языке:

https://www.macrogroup.ru/content/data/store/images/f_158_213_1.pdf

Правильная работа с UART от Microchip (AN774):

https://ww1.microchip.com/downloads/en/appnotes/00774a.pdf

https://github.com/trygvis/pic16/blob/master/application-notes/an774-Asynchronous%20Communications%20with%20the%20PICmicro%20USART/Appendix%20A%20for%20PIC16/p16_tiri.asm

Блок-схема авторского обработчика прерывания

Довольно сильно отличается от рекомендованного Microchip:

Блок-схема примененного в прошивке алгоритма работы с SIM300

Красный — ошибки.

Оранжевый — опрос кнопки и сенсора зарядки.

Желтый — ограничения демонстрационной версии.

Зеленый — переход в спящий режим.

Синий — отправка AT-команд модулю SIM300.

Темно-синий — управление кнопкной включения SIM300.

Фиолетовый — анализ ответов GSM модуля.

Блок-схема алгоритма применения GSM модуля SIM300 в качестве радиомикрофона на PIC16F648A

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

        processor p16f648a
        radix dec

        include p16f648a.inc

; The recognition of labels and registers is not always good, therefore
; be treated cautiously the results.

        CONFIG  WDTE  = ON
        CONFIG  PWRTE = OFF
        CONFIG  FOSC  = INTOSCIO
        CONFIG  MCLRE = OFF
        CONFIG  BOREN = OFF
        CONFIG  LVP   = OFF
        CONFIG  CPD   = OFF
        CONFIG  CP    = ON

#define MAX_CALLS 10
#define MAX_TIME 114
#define BUFSZ 49
#define TRUE 1
#define FALSE 0
#define BAUD 9600
#define F_OSC 4000000

;===============================================================================
; DATA address definitions

#define EEPROM_CALLS_COUNTER 0x64

STATUS_TEMP     equ     0x21
FSR_TEMP        equ     0x22
PCLATH_TEMP     equ     0x28
bufptr          equ     0x29
buffer          equ     0x2a
after_buffer    equ     0x5b                                ; first byte after buffer
state           equ     0x5c                                ; finite state machine
#define STATE_OFF 0
#define STATE_READY 1
#define STATE_RESET 3

calls_counter   equ     0x5d
time_counter    equ     0x5e

flags           equ     0x5f
#define FLAG_CALL 0

commaptr        equ     0x63                                ; позиция ',' в буфере с СМС
regcnt          equ     0x63                                ; network registration
a               equ     0x63
i               equ     0x63

slotptr         equ     0x64                                ; sms slot offset
c               equ     0x64
blink_arg       equ     0x64
quotes          equ     0x64
namepos         equ     0x64

sms_slot        equ     0x65                                ; sms slot value
d               equ     0x65

dtr_arg         equ     0x66
tmp4            equ     0x66
cmgd_arg1       equ     0x66

delay_arg       equ     0x67
cmgd_arg2       equ     0x67

itoabuf0        equ     0x68
itoabuf1        equ     0x69
itoabuf2        equ     0x6a
itoabuf3        equ     0x6b

arg1            equ     0x6c
arg2            equ     0x6d
j               equ     0x6e

Common_RAM      equ     0x0070                              ; size: 16 bytes
k               equ     (Common_RAM + 7)
INTCON_TEMP     equ     (Common_RAM + 7)
result          equ     (Common_RAM + 8)
button_state    equ     (Common_RAM + 8)
clipptr         equ     (Common_RAM + 8)
highbanks       equ     (Common_RAM + 10)


;===============================================================================
; PINS usage definitions

LED             equ     RA1

PWRKEY          equ     RB0
PIN_DTR         equ     RB3
CHARGER         equ     RB4
BUTTON          equ     RB5


;===============================================================================
; Macroses

Bank0   MACRO
        bcf     STATUS, RP0
        ENDM

Bank1   MACRO
        bsf     STATUS, RP0
        ENDM

BSF1    MACRO   file, bit       ; установить бит регистра из банка 1
        Bank1
        bsf     (file), (bit)
        ENDM

BCF1    MACRO   file, bit       ; сбросить бит регистра из банка 1
        Bank1
        bcf     (file), (bit)
        ENDM

SETPC   MACRO                   ; для отправки AT команды
        bcf     PCLATH, 0
        bcf     PCLATH, 1
        bcf     PCLATH, 2
        addwf   PCL, F
        ENDM

MOVLF   MACRO   value, file
        movlw   (value)
        movwf   (file)
        ENDM

MOVLF0  MACRO   value, file
        movlw   (value)
        Bank0
        movwf   (file)
        ENDM

MOVLF1  MACRO   value, file
        movlw   (value)
        Bank1
        movwf   (file)
        ENDM

MOVFF   MACRO   src, dst
        movf    (src), W
        movwf   (dst)
        ENDM

IFG     MACRO   var, n, label   ; если больше
        movf    (var), W
        sublw   (n)
        btfss   STATUS, C
        goto    (label)
        ENDM

IFL     MACRO   var, n, label   ; если меньше
        movf    (var), W
        sublw   (n)
        btfsc   STATUS, C
        goto    (label)
        ENDM

IFNE    MACRO   var, n, label   ; если не равно
        movf    (var), W
        sublw   (n)
        btfss   STATUS, Z
        goto    (label)
        ENDM

IFEQ    MACRO   var, n, label   ; если равно
        movf    (var), W
        sublw   (n)
        btfsc   STATUS, Z
        goto    (label)
        ENDM

DTR0   MACRO                   ; сбросить DTR
        bcf     PORTB, PIN_DTR
        BCF1    TRISB, PIN_DTR
        ENDM

DTRP    MACRO                   ; дернуть DTR
        bsf     PORTB, PIN_DTR
        BCF1    TRISB, PIN_DTR
        ENDM

DELAY   MACRO   n               ; задержка
        MOVLF0  (n), delay_arg
        call    function_delay
        ENDM

LDELAY  MACRO   n, file         ; длинная задержка
        MOVLF   (n), (file)
        MOVLF   250, delay_arg
        call    function_delay
        decfsz  (file), F
        goto    $-4
        ENDM

BLINK   MACRO   n               ; мигание светодиодом
        MOVLF   (n), blink_arg  ; Bank0 уже выбран
        call    function_blink
        ENDM

BLINKP  MACRO   n               ; мигание светодиодом
        MOVLF0  (n), blink_arg  ; Bank0
        call    function_blink
        ENDM

SEND    MACRO   char            ; отправить символ
        movlw   (char)
        btfss   PIR1, TXIF
        goto    $-1
        movwf   TXREG
        ENDM

SENDF   MACRO   file            ; отправить "файл"
        movf    (file), W
        btfss   PIR1, TXIF
        goto    $-1
        movwf   TXREG
        ENDM

TXSTR   MACRO   m, proc, n      ; отправить строку
        LOCAL   next_char
        clrf    (m)
next_char:
        movf    (m), W
        call    (proc)
        incf    (m), F
        movwf   (Common_RAM + 7)
        SENDF   (Common_RAM + 7)
        movlw   (n)
        subwf   (m), W
        btfss   STATUS, Z
        goto    next_char
        ENDM

; отправить AT-команду
ATCMDB  MACRO   tmp, proc, length, delay
        ; очистить буфер до отправки
        call    function_clear_buffer
        TXSTR   (tmp), (proc), (length)
        LDELAY  (delay), (tmp)
        ENDM

ATCMDA  MACRO   tmp, proc, length, delay
        TXSTR   (tmp), (proc), (length)
        ; очистить буфер после
        call    function_clear_buffer
        LDELAY  (delay), (tmp)
        ENDM

;===============================================================================
; CODE area

        ; code

        org     __CODE_START

vector_reset:

        MOVLF   0, PCLATH       ; select program memory page 0
        goto    reset_vector
        nop

vector_int:                     ; обработчик прерываний

        movwf   (Common_RAM + 15)
        swapf   STATUS, W
        clrf    STATUS
        movwf   STATUS_TEMP
        MOVFF   (Common_RAM + 15), 0x20
        MOVFF   PCLATH, PCLATH_TEMP
        clrf    PCLATH
        swapf   0x20, F
        MOVFF   FSR, FSR_TEMP
        MOVFF   (Common_RAM + 7), 0x23
        MOVFF   (Common_RAM + 8), 0x24
        MOVFF   (Common_RAM + 9), 0x25
        MOVFF   (Common_RAM + 10), 0x26
        MOVFF   (Common_RAM + 11), 0x27

        bcf     STATUS, IRP     ; 0 = Bank 0, 1 (00h - FFh)
        Bank0
        MOVLF   PIE1, FSR       ; IRP:FSR<7> = 01 = Bank 1

        btfss   INDF, RCIE      ; 1 = Enables the USART receive interrupt
        goto    check_timer

        btfsc   PIR1, RCIF      ; test RCIF receive interrupt
        goto    byte_arrived

check_timer:
        MOVLF   PIE1, FSR
        btfss   INDF, TMR1IE    ; TMR1 Overflow Interrupt Enable bit
        goto    restore
        btfsc   PIR1, TMR1IF    ; TMR1 Overflow Interrupt Flag bit
        goto    timer_interrupt

restore:                        ; выход из обработчика прерывания
        MOVFF   FSR_TEMP, FSR
        MOVFF   0x23, (Common_RAM + 7)
        MOVFF   0x24, (Common_RAM + 8)
        MOVFF   0x25, (Common_RAM + 9)
        MOVFF   0x26, (Common_RAM + 10)
        MOVFF   0x27, (Common_RAM + 11)
        MOVFF   PCLATH_TEMP, PCLATH
        swapf   STATUS_TEMP, W
        movwf   STATUS
        swapf   (Common_RAM + 15), F
        swapf   (Common_RAM + 15), W
        retfie

byte_arrived:
        bcf     PCLATH, 3
        goto    byte_arrived2

timer_interrupt:
        bcf     PCLATH, 3
        goto    timer_interrupt2

function_ATE0:
        SETPC
        dt      "ATE0\r", 0

function_ATCREG:        ; registration status
        SETPC
        dt      "AT+CREG?\r", 0

function_ATCMGF:        ; SMS text mode
        SETPC
        dt      "AT+CMGF=1\r", 0

function_ATCMGD:        ; delete SMS
        SETPC
        dt      "AT+CMGD=%d\r", 0

function_ATCHFA:        ; set the audio channel to Half-Duplex
        SETPC
        dt      "AT+CHFA=1\r", 0

function_ATCMIC:
        SETPC
        dt      "AT+CMIC=1,15\r", 0

function_ATCLIP:
        SETPC
        dt      "AT+CLIP=1\r", 0

function_ATCSCLK:
        ; enable the Serial Command Mode for SMS message waiting indications (SMS-CB)
        ; This command informs the module to send SMS-CB (Cell Broadcast) messages to the connected terminal.
        SETPC
        dt      "AT+CSCLK=1\r", 0

function_ATA:
        SETPC
        dt      "ATA\r", 0

function_ATH:
        SETPC
        dt      "ATH\r", 0

function_ATCMGDC:       ; delete SMS
        SETPC
        dt      "AT+CMGD=%c\r", 0

function_ATCBC:         ; report the battery charge status of the module
        SETPC
        dt      "AT+CBC\r", 0

byte_arrived2:
        ; принятый ответ на AT-команду сохраняется в буфере:
        ; buffer[bufptr++] = RCREG;
        IFG     bufptr, BUFSZ, buffer_full
        movf    bufptr, W
        incf    bufptr, F
        addlw   buffer
        movwf   FSR

        ; Register Bank Select bit (used for indirect addressing)
        ; 0 = Bank 0, 1 (00h - FFh)
        bcf     STATUS, IRP

        ; источник зависаний
        ; правильный алгоритм работы с USART от Microchip см. в p16_tiri.asm
        btfss   PIR1, RCIF
        goto    $-1

        MOVFF   RCREG, INDF
        goto    the_end

buffer_full:
        ; источник зависаний
        btfss   PIR1, RCIF
        goto    $-1

        ; правильное поведение: при переполнении буфера лишние символы игнорируются
        movf    RCREG, W

the_end:
        ; ошибка, см. стр. 81 даташита
        ; Flag bit RCIF is a read-only bit, which is cleared by the hardware.
        bcf     PIR1, RCIF

        bcf     PCLATH, 3
        goto    restore

timer_interrupt2:
        btfsc   flags, FLAG_CALL
        incf    time_counter, F
        ; 1 = TMR1 register overflowed (must be cleared in software)
        bcf     PIR1, TMR1IF
        bcf     PCLATH, 3
        goto    restore

function_delay:

        MOVLF   delay_arg, FSR
        bcf     STATUS, IRP
        movf    INDF, W
        btfsc   STATUS, Z
        goto    label_015
label_011:
        MOVLF   1, (Common_RAM + 8)
label_012:
        MOVLF   191, (Common_RAM + 7)
        clrwdt
        decfsz  (Common_RAM + 7), F
        goto    $-2
        decfsz  (Common_RAM + 8), F
        goto    label_012
        MOVLF   74, (Common_RAM + 7)
        decfsz  (Common_RAM + 7), F
        goto    $-1
        nop
        clrwdt
        decfsz  INDF, F
        goto    label_011
label_015:
        retlw   0x00

function_blink:

        movf    blink_arg, F
        btfsc   STATUS, Z
        goto    label_016
        bcf     PORTA, LED
        BCF1    TRISA, LED
        DELAY   250
        BSF1    TRISA, LED
        DELAY   250
        decf    blink_arg, F
        goto    function_blink
label_016:
        retlw   0

; 1 - DTR pulse, 0 - DTR low
function_DTR:
        movf    dtr_arg, F
        btfss   STATUS, Z
        goto    label_017
        DTR0
        DELAY   50
        goto    label_018
label_017:
        DTRP
        Bank0
label_018:
        retlw   0

function_clear_buffer:

        clrf    bufptr
label_019:
        IFG     bufptr, BUFSZ, label_020
        movlw   buffer
        addwf   bufptr, W
        movwf   FSR
        bcf     STATUS, IRP
        clrf    INDF
        incf    bufptr, F
        goto    label_019
label_020:
        clrf    bufptr
        retlw   0

start:
        ; To allow the bit rate to be synchronized simply issue an "AT" or "at" string.
        ; This is necessary when you start up the module while autobauding is enabled
        call    function_clear_buffer
        SEND    'A'
        SEND    'T'
        SEND    '\r'
        call    function_clear_buffer

        LDELAY  2, a

        ; кривая проверка на "OK"
        IFEQ    buffer,     'A', have_ok
        IFEQ    buffer + 2, 'O', have_ok

        MOVLF   FALSE, result
        goto    have_result
        ; unreachable code
        goto    have_result

have_ok:
        MOVLF   TRUE, result
        goto    have_result

have_result:
        bcf     PCLATH, 3
        goto    check_result

check_charger:
        BSF1    TRISB, CHARGER
        Bank0

        ; зарядка подключена?
        btfss   PORTB, CHARGER
        goto    no_charger

        movf    state, F
        btfss   STATUS, Z
        goto    check_battery

        ; передаем несколько раз "AT\r"
        clrf    a
send_at:
        IFG     a, 2, check_battery
        SEND    'A'
        SEND    'T'
        SEND    '\r'
        LDELAY  2, c
        incf    a, F
        goto    send_at

check_battery:
        ATCMDB   c, function_ATCBC, 7, 4

        ; +CBC: <battery connected status>, <battery charging_loop level>, <voltage>

        IFNE    buffer + 15, '1', dont_blink
        BLINK   1
dont_blink:

        IFNE    buffer + 15, '2', charger_disconnected

charging_loop:
        ; зацикливаемся на время зарядки
        BSF1    TRISB, CHARGER
        Bank0
        btfss   PORTB, CHARGER
        goto    charger_disconnected
        ; Для зарядки аккумулятора надо выключать устройство, подключить через
        ; шнур mini USB с соответствующему порту компьютера и дождаться
        ; постоянного горения светодиода.
        bcf     PORTA, LED
        BCF1    TRISA, LED
        DELAY   100
        goto    charging_loop

charger_disconnected:
        goto    charger_disconnected2

no_charger:
        BSF1    TRISA, LED
        Bank0

charger_disconnected2:
        bcf     PCLATH, 3
        goto    check_button

; Нажмите на кнопку и ждите короткой вспышки светодиода.
; Это означает, что контроллер обратил внимание на кнопку.
function_button:

        BSF1    TRISB, BUTTON
        Bank0
        btfsc   PORTB, BUTTON
        goto    label_048

        bcf     PORTA, LED
        BCF1    TRISA, LED
        DELAY   50
        BSF1    TRISA, LED
        DELAY   50
        BSF1    TRISB, BUTTON
        Bank0
        btfsc   PORTB, BUTTON
        goto    label_046

label_043:
        BSF1    TRISB, BUTTON
        Bank0
        btfsc   PORTB, BUTTON
        goto    label_045
        LDELAY  2, a
        goto    label_043

label_045:
        MOVLF   TRUE, button_state
        goto    exit_button
        goto    label_047

label_046:
        MOVLF   FALSE, button_state
        goto    exit_button

label_047:
        goto    exit_button

label_048:
        MOVLF   FALSE, button_state
        goto    exit_button

exit_button:
        retlw   0

function_SIM300D_power:

        bcf     PORTB, PWRKEY
        BCF1    TRISB, PWRKEY
        Bank0
        ; пауза
        clrf    c
label_050:
        IFG     c, 7, label_052
        LDELAY  2, d
        clrwdt
        incf    c, F
        goto    label_050
label_052:
        BSF1    TRISB, PWRKEY
        Bank0
        retlw   0x00

power_on_continue:
        clrf    a
        call    function_clear_buffer
        clrf    a

label_054:
        ; кривая проверка на "OK"
        IFEQ    buffer,     'A', label_060
        IFEQ    buffer + 2, 'O', label_060
        IFNE    a, 7, label_055
        call    function_SIM300D_power
        clrf    a

label_055:
        call    function_clear_buffer
        SEND    'A'
        SEND    'T'
        SEND    '\r'
        call    function_clear_buffer
        LDELAY  2, c
        incf    a, F
        goto    label_054

label_060:
        call    function_clear_buffer
        ATCMDA  c, function_ATE0, 5, 2
        clrf    regcnt

network_registration_loop:
        ; регистрация в сети
        IFEQ    buffer + 11, '1', registered
        IFNE    regcnt, 30, label_atcreg
        call    function_SIM300D_power
        clrf    regcnt
        goto    label_054

label_atcreg:
        incf    regcnt, F
        ATCMDA  c, function_ATCREG, 9, 2
        goto    network_registration_loop

registered:
        bcf     PCLATH, 3
        goto    after_registration

function_018:

        movf    arg2, W
        clrf    (Common_RAM + 8)
        subwf   arg1, W
        btfsc   STATUS, C
        goto    label_070
        MOVFF   arg1, (Common_RAM + 7)
        goto    label_072

label_070:
        clrf    (Common_RAM + 7)
        MOVLF   8, j

label_071:
        rlf     arg1, F
        rlf     (Common_RAM + 7), F
        movf    arg2, W
        subwf   (Common_RAM + 7), W
        btfsc   STATUS, C
        movwf   (Common_RAM + 7)
        rlf     (Common_RAM + 8), F
        decfsz  j, F
        goto    label_071

label_072:
        retlw   0

itoa:
        ; преобразование числа в строку
        movlw   ' '
        btfss   cmgd_arg2, 4
        MOVLF   '0', itoabuf0
        MOVFF   cmgd_arg1, (Common_RAM + 7)
        btfss   cmgd_arg1, 7
        goto    label_074
        comf    (Common_RAM + 7), F
        incf    (Common_RAM + 7), F
        MOVFF   (Common_RAM + 7), cmgd_arg1
        MOVLF   '-', itoabuf0
        bsf     cmgd_arg2, 7

label_074:
        MOVFF   cmgd_arg1, arg1
        MOVLF   100, arg2
        call    function_018
        MOVFF   (Common_RAM + 7), cmgd_arg1
        movlw   '0'
        addwf   (Common_RAM + 8), W
        movwf   itoabuf1

        MOVFF   cmgd_arg1, arg1
        MOVLF   10, arg2
        call    function_018
        movlw   '0'
        addwf   (Common_RAM + 7), W
        movwf   itoabuf3
        movlw   '0'
        addwf   (Common_RAM + 8), W
        movwf   itoabuf2

        MOVFF   itoabuf0, (Common_RAM + 7)
        btfss   cmgd_arg2, 0x3
        goto    $+3
        btfss   cmgd_arg2, 0x7
        bcf     cmgd_arg2, 0x2

        btfsc   cmgd_arg2, 0x4
        goto    label_076
        btfss   cmgd_arg2, 0x7
        goto    label_078
        btfsc   cmgd_arg2, 0x2
        goto    label_078
        MOVFF   (Common_RAM + 7), itoabuf1
        btfsc   cmgd_arg2, 0x1
        goto    label_078
        MOVFF   (Common_RAM + 7), itoabuf2
        goto    label_078

label_076:
        movlw   '0'
        subwf   itoabuf1, W
        btfss   STATUS, Z
        goto    label_078
        MOVFF   (Common_RAM + 7), itoabuf1
        MOVLF   ' ', itoabuf0
        btfss   cmgd_arg2, 0x3
        goto    label_077
        bcf     cmgd_arg2, 0x2
        bsf     cmgd_arg2, 0x1
        btfss   cmgd_arg2, 0x7
        bcf     cmgd_arg2, 0x1

label_077:
        movlw   '0'
        subwf   itoabuf2, W
        btfss   STATUS, Z
        goto    label_078
        MOVFF   (Common_RAM + 7), itoabuf2
        MOVLF   ' ', itoabuf1
        btfss   cmgd_arg2, 0x3
        goto    label_077
        bcf     cmgd_arg2, 0x1
        btfss   cmgd_arg2, 0x7
        bcf     cmgd_arg2, 0x0

label_078:
        btfss   cmgd_arg2, 0x2
        goto    label_080
        SENDF   itoabuf0

label_080:
        btfss   cmgd_arg2, 0x1
        goto    label_082
        SENDF   itoabuf1

label_082:
        btfss   cmgd_arg2, 0x0
        goto    label_084
        SENDF   itoabuf2

label_084:
        SENDF   itoabuf3
        bcf     PCLATH, 3
        goto    return_from_itoa

remove_all_sms:
        ATCMDB   d, function_ATCMGF, 10, 2
        MOVLF   1, i
delete_next:
        IFG     i, 19, delete_done
        call    function_clear_buffer
        TXSTR   d, function_ATCMGD, 8
        MOVFF   i, cmgd_arg1
        MOVLF   31, cmgd_arg2
        goto    itoa
return_from_itoa:
        SEND    '\r'
        LDELAY  2, d
        incf    i, F
        goto    delete_next

delete_done:
        ATCMDB   d, function_ATCHFA, 10, 2
        ATCMDB   d, function_ATCMIC, 13, 2
        ATCMDB   d, function_ATCLIP, 10, 2
        ATCMDB   d, function_ATCSCLK, 11, 2

        bcf     PCLATH, 3
        goto    ready

ringing:
        clrf    quotes
        clrf    i

parse_call_info:
        ; +CLIP: "number", "type", "alphaId"
        IFEQ    quotes, 5, parse_call_done
        movlw   buffer
        addwf   i, W
        movwf   FSR
        bcf     STATUS, IRP
        movf    INDF, W
        ; подсчет количества кавычек
        sublw   '\"'
        btfsc   STATUS, Z
        incf    quotes, F
        incf    i, F
        goto    parse_call_info
        ; выход за пределы буфера не проверяется!

parse_call_done:
        MOVFF   i, namepos
        clrf    i

        ; memmove(buffer, buffer + namepos, BUFSZ + 1 - namepos)
movename:
        ; end of buffer?
        movf    namepos, W
        ; W = BUFSZ + 1 - namepos
        sublw   BUFSZ + 1
        ; W = i - (BUFSZ + 1 - namepos)
        subwf   i, W
        btfsc   STATUS, C
        goto    check_callee

        ; clipptr = &buffer[i]
        movlw   buffer
        addwf   i, W
        movwf   clipptr

        ; select Bank 2, 3 if clipptr > 0xff?
        clrf    highbanks
        btfsc   STATUS, C
        incf    highbanks, F

        ; FSR = &buffer[namepos + i]
        movf    namepos, W
        addwf   i, W
        addlw   buffer
        movwf   FSR

        ; itoabuf0 = buffer[namepos + i]
        bcf     STATUS, IRP
        MOVFF   INDF, itoabuf0

        ; FSR = clipptr = buffer + i
        MOVFF   clipptr, FSR
        ; 1 = Bank 2, 3 (100h - 1FFh)
        bcf     STATUS, IRP
        btfsc   highbanks, 0
        bsf     STATUS, IRP

        ; buffer[i] = buffer[i + namepos]
        MOVFF   itoabuf0, INDF

        incf    i, F
        goto    movename

check_callee:
        clrf    c

        ; проверка имени контакта на SIM карте (Ph1)
        IFNE    buffer, 'P', label_ATH
        IFNE    buffer + 1, 'h', label_ATH
        IFNE    buffer + 2, '1', label_ATH

        ; очистить счетчик времени соединения
        clrf    time_counter

        ; принять звонок
        ATCMDB   d, function_ATA, 4, 2

        ; активен звонок
        bsf     flags, FLAG_CALL

        ; чтение счетчика удачных соединений из EEPROM
        MOVLF1  EEPROM_CALLS_COUNTER, EEADR

        bcf     EECON1, 7       ; Unimplemented
        bsf     EECON1, RD
        movf    EEDATA, W
        Bank0
        ; увеличение на единицу
        movwf   calls_counter
        incf    calls_counter, F
        ; запись нового значения
        MOVLF1  EEPROM_CALLS_COUNTER, EEADR
        Bank0
        movf    calls_counter, W
        Bank1
        movwf   EEDATA
        bsf     EECON1, WREN
        Bank0
        MOVFF   INTCON, INTCON_TEMP
        bcf     INTCON, GIE
        Bank1
        ; Flash programming unlock sequence
        MOVLF   0x55, EECON2
        MOVLF   0xaa, EECON2
        bsf     EECON1, WR
        btfsc   EECON1, WR
        goto    $-1
        bcf     EECON1, WREN

        movf    INTCON_TEMP, W
        Bank0
        iorwf   INTCON, F
        goto    label_121

label_ATH:
        TXSTR   d, function_ATH, 4

label_121:
        LDELAY  2, d
        bcf     PCLATH, 3
        goto    not_a_ring

sms_received:
        ; пришло СМС
        clrf    dtr_arg
        call    function_DTR
        clrf    commaptr
find_comma:
        movlw   buffer
        addwf   commaptr, W
        movwf   FSR
        bcf     STATUS, IRP
        IFEQ    INDF, ',', comma_found
        incf    commaptr, F
        goto    find_comma

comma_found:
        ; пропустить запятую
        movlw   1
        addwf   commaptr, W
        ; номер слота СМС после запятой
        movwf   slotptr
        movlw   buffer
        addwf   slotptr, W
        movwf   FSR
        bcf     STATUS, IRP

        MOVFF   INDF, sms_slot

        ; Команды отсылаются с телефона хозяина, все “чужие” смс просто удаляются.

        ; В демонстрационной версии отсутствует код чтения СМС и выполнения команды.
        ; Надеюсь, в полной версии номер отправителя проверяется?

        ; ...


        call    function_clear_buffer

        ; удаляем СМС
        TXSTR   tmp4, function_ATCMGDC, 8
        SENDF   sms_slot
        SEND    '\r'
        LDELAY  2, 102
        MOVLF   1, dtr_arg
        call    function_DTR
        bcf     PCLATH, 3
        goto    not_a_sms

reset_vector:

        clrf    FSR

        ; очистить IRP, RP1, RP0 - Bank0
        bcf     STATUS, IRP
        movlw   ~((1 << IRP) | (1 << RP1) | (1 << RP0))
        andwf   STATUS, F

        ; INTOSC oscillator frequency: 1 = 4 MHz typical
        BSF1    PCON, OSCF
        ; Bank1

        ; Baud Rate Generator Register (BRGH = 1):
        MOVLF   (F_OSC / BAUD / 16 - 1), SPBRG

        ; CSRC: Clock Source Select bit
        ; Synchronous mode: 1 = Master mode (Clock generated internally from BRG)
        ; TXEN: Transmit Enable bit
        ; BRGH: High Baud Rate Select bit
        ; TRMT: Transmit Shift Register STATUS bit: 1 = TSR empty
        MOVLF   (1 << CSRC) | (1 << TXEN) | (1 << BRGH) | (1 << TRMT), TXSTA

        ; SPEN: Serial Port Enable bit
        ; CREN: Continuous Receive Enable bit
        MOVLF0  (1 << SPEN) | (1 << CREN), RCSTA
        ; Bank0

        ; Comparators Off
        MOVLF   (1 << CM2) | (1 << CM1) | (1 << CM0), CMCON

        clrf    bufptr
        MOVLF   STATE_RESET, state
        bcf     flags, FLAG_CALL

        ; T0CS: TMR0 Clock Source Select bit
        ; T0SE: TMR0 Source Edge Select bit
        ; PSA: Prescaler Assignment bit: 1 = Prescaler is assigned to the WDT
        ; PS2:PS0: Prescaler Rate Select bits
        ; TMR0 Rate 1:256 WDT Rate 1:128
        Bank1
        movf    OPTION_REG, W
        andlw   ~((1<<T0CS)|(1<<T0SE)|(1<<PSA)|(1<<PS2)|(1<<PS1)|(1<<PS0))
        movwf   OPTION_REG

        ; см. 6.3.1 SWITCHING PRESCALER ASSIGNMENT на стр. 39 даташита
        MOVLF   (1<<PSA)|(1<<PS2)|(1<<PS1)|(1<<PS0), (Common_RAM + 7)

        movlw   7
        Bank0
        clrf    TMR0

        MOVLF   OPTION_REG, FSR
        bcf     STATUS, IRP
        movf    INDF, W
        andlw   ~((1 << PSA) | (1 << PS2) | (1 << PS1) | (1 << PS0))
        iorlw   (1 << PS2) | (1 << PS1) | (1 << PS0)
        movwf   INDF

        clrwdt

        movf    INDF, W
        andlw   ~(1 << PSA)
        btfsc   (Common_RAM + 7), (1 << PS1) | (1 << PS0)
        andlw   ~((1 << PSA) | (1 << PS2) | (1 << PS1) | (1 << PS0))
        iorwf   (Common_RAM + 7), W
        movwf   INDF

        MOVLF   0x80|(1<<T1CKPS1)|(1<<T1CKPS0)|(1<<NOT_T1SYNC)|(1<<TMR1ON), T1CON
        MOVLF   0, (Common_RAM + 8)
        movwf   T2CON

        ; Timer2 Period Register
        MOVLF1  0, PR2

        ; ?
        ; Comparators Off
        MOVLF0  (1 << CM2) | (1 << CM1) | (1 << CM0), CMCON

        ; ?
        Bank1
        movf    PORTA, W

        clrwdt
        MOVLF   2, k
short_delay:
        decfsz  k, F
        goto    short_delay
        goto    $+1

        ; ?
        Bank0
        movf    CMCON, W

        ; Clear pending interrupts
        ; CMIF: Comparator Interrupt Flag bit: 0 = Comparator output has not changed
        bcf     PIR1, CMIF

        Bank1
        clrf    CMCON

        ; разрешить прерывания от таймера и последовательного порта
        bsf     PIE1, TMR1IE
        bsf     PIE1, RCIE

        ; GIE: Global Interrupt Enable bit
        ; PEIE: Peripheral Interrupt Enable bit
        movlw   (1 << GIE) | (1 << PEIE)
        Bank0
        iorwf   INTCON, F

        ; OSCF: INTOSC oscillator frequency: 1 = 4 MHz typical
        BSF1    PCON, OSCF

        bsf     PORTA, LED
        bsf     PORTB, CHARGER

        MOVLF   EEPROM_CALLS_COUNTER, EEADR
        bcf     EECON1, 7       ; Unimplemented
        bsf     EECON1, RD
        IFNE    EEDATA, 0xff, check_calls_counter

        ; инициализация счетчика удачных соединений (демо-прошивка)
        MOVLF   EEPROM_CALLS_COUNTER, EEADR
        clrf    EEDATA
        bsf     EECON1, WREN
        Bank0
        MOVFF   INTCON, INTCON_TEMP
        bcf     INTCON, GIE
        Bank1
        ; Flash programming unlock sequence
        MOVLF   0x55, EECON2
        MOVLF   0xaa, EECON2
        bsf     EECON1, WR
        btfsc   EECON1, WR
        goto    $-1
        bcf     EECON1, WREN
        movf    INTCON_TEMP, W
        Bank0
        iorwf   INTCON, F
        Bank1

check_calls_counter:
        ; проверка счетчика звонков
        MOVLF   EEPROM_CALLS_COUNTER, EEADR
        bcf     EECON1, 7       ; Unimplemented
        bsf     EECON1, RD
        ; достигли максимального количества звонков для свободной версии?
        IFNE    EEDATA, MAX_CALLS, have_free_calls
        ; достигли - зацикливаемся
        BLINKP  5
        LDELAY  6, a
        Bank1
        goto    check_calls_counter

have_free_calls:
        ; еще не достигли
        bcf     OPTION_REG, NOT_RBPU    ; PORTB Pull-up Enable bit

        Bank0
        clrf    dtr_arg
        call    function_DTR

label_138:
        movf    state, W
        sublw   STATE_RESET
        btfss   STATUS, Z
        goto    bad_result
        goto    start

check_result:
        movf    result, F
        btfss   STATUS, Z
        goto    good_result
        clrf    state
        goto    bad_result

good_result:
        MOVLF   STATE_READY, state

bad_result:
        BSF1    OPTION_REG, NOT_RBPU    ; PORTB Pull-up Enable bit
        Bank0

        goto    check_charger

check_button:
        BCF1    OPTION_REG, NOT_RBPU    ; PORTB Pull-up Enable bit
        Bank0

        movf    state, F
        btfss   STATUS, Z
        goto    label_147
        ; state == STATE_OFF

        call    function_button
        movf    button_state, F
        btfss   STATUS, Z
        goto    power_on

        sleep
        goto    go_sleep2

power_on:
        ; Затем после того как вы отпустите он моргнет один раз – это означает
        ; что начался процесс включения модуля.
        DTR0
        BLINKP  1
        goto    power_on_continue

after_registration:
        ; Затем светодиод моргнет два раза – это означает что модуль
        ; настроен и зарегистрировался в сети GSM.
        BLINK   2
        goto    remove_all_sms

ready:
        ; После того как светодиод моргнет три раза – устройство готово к работе.
        ; Устройство перейдет в режим сна и будет ждать входящего звонка.
        BLINK   3
        DTRP
        MOVLF0  STATE_READY, state

go_sleep2:
        goto    go_sleep

label_147:
        call    function_button
        movf    (Common_RAM + 8), F
        btfss   STATUS, Z
        goto    power_off

        call    function_clear_buffer
        LDELAY  2, a

        ; "RING"
        IFNE    buffer + 2, 'R', not_a_ring
        IFEQ    buffer + 3, 'I', ringing

not_a_ring:
        ; пришло SMS
        ; <CR><LF>+CMTI: <mem>,<n><CR><LF>
        ; value of mem is the storage location where the sms was stored.
        ; Usually its value is SM, which stands for SIM memory.
        ; the value of n is the sms slot on which the incoming message was stored
        IFNE    buffer + 2, '+', not_a_sms
        IFNE    buffer + 3, 'C', not_a_sms
        IFNE    buffer + 4, 'M', not_a_sms
        IFEQ    buffer + 5, 'T', sms_received

not_a_sms:
        btfss   flags, FLAG_CALL
        goto    check_calls_counter2

        ; проверка максимальной длительности соединения
        IFL     time_counter, MAX_TIME, check_calls_counter2

        clrf    dtr_arg
        call    function_DTR

        bcf     flags, FLAG_CALL
        clrf    time_counter

        ; положить трубку
        ATCMDB   a, function_ATH, 4, 2

        MOVLF   1, dtr_arg
        call    function_DTR

check_calls_counter2:
        ; проверка счетчика удачных соединений (демо-прошивка)
        MOVLF1  EEPROM_CALLS_COUNTER, EEADR
        bcf     EECON1, 7
        bsf     EECON1, RD
        ; достигли максимума?
        IFNE    EEDATA, MAX_CALLS, have_free_calls2
        ; лимит исчерпан
        BLINKP  5
        ; сбрасываем звонок
        TXSTR   a, function_ATH, 4
        LDELAY  6, a
        ; зацикливаемся
        goto    check_calls_counter2
        Bank1

have_free_calls2:
        Bank0
        goto    label_138
        ; unreachable code
        goto    go_sleep

power_off:
        ; Выключение происходит как и включение.
        ; Нажмите на кнопку и держите покуда не моргнет светодиод, как отпустите
        ; он моргнет 2 раза. Это означает, что девайс выключен.
        BLINK   2
        call    function_SIM300D_power
        clrf    state

go_sleep:
        sleep

        end

Если найдете ошибку, напишите в комментариях.

Подпишитесь на блог, чтобы узнавать о новых статьях сразу.

Все статьи →

Что делать, когда этот блог удалят, или как цензура стала невозможной

2025-11-30T14:02:25.785Z

Цензура запрещается.
— Статья 29 Конституции РФ

Как вы думаете, почему вам давно не попадались оригинальные мысли очевидцев, любительские фото и видео с места важных событий?

Потому что действует драконовская цензура!

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

Свобода слова, пожираемая гнусными тараканами цензуры Google, YouTube и Facebook

Для начала примерная схема цензуры на 2025 год:

Теневой бан в поисковых системах — ваш сайт или комментарий просто не индексируется (или даже не показывается, как сделано в Reddit).
Катастрофа для свободы слова — гиганты вроде YouTube, Facebook, Reddit и еще одна, упоминать которую здесь нельзя (признаны или будут признаны экстремистскими организациями, деятельность на территории России запрещена).
Все платформы и сервисы, требующие привязки к телефону — вменяемых пользователей это отпугивает, кроме того они стимулируют самоцензуру.
Несколько тысяч «новостных» говносайтов, копирующих одну и ту же ерунду друг у друга. «Эксперт...», «сообщил...», «запретил...» — жвачка для умственно отсталых.
Продажные «форумы», сайты с «честными» отзывами и прочие маргинальные ресурсы. За редким исключением, содержатся дятлами, ценные комментарии исчезают со скоростью света.

Итог: с одной стороны — «новостные» ссайты, созданные для таких плохих целей, что о них и писать нельзя; с другой — коммерческие сайты, где запрещено критиковать, чтобы не мешать продажам.

Плюс блокировки по IP, удаление комментариев, теневые баны, бесконечные капчи и непревзойденная фраза «что-то пошло не так».

В результате у правды не было бы шансов, если бы не существовало альтернативное средство...

Оказывается, текст статьи можно сохранить в блокчейне!

Статью блога можно поместить в комментарий к маленькому денежному переводу. После этого ее невозможно удалить, т.к. она будет храниться на миллионах компьютеров по всему миру. Анонимность такая же, как у используемой вами VPN. Денежный перевод элегантно решает проблему спама и платы за хранение информации:

How to Store A Text Message on the Ethereum Blockchain - Censorship Resistant - Cryptobulls

Подводя итог, когда этот блог удалят, ищите новые статьи где-то в блокчейне Ethereum!

А пока добавьте в закладки еще несколько запасных аэродромов:

https://badradio.noblogs.org (скоро появится)

https://thro.be/design-flaw-in-the-super-pulse-srt-sp-covert-listening-devic-19700101010001692c246a6d1c7

https://web.archive.org/web/20251001114406/http://teletype.in/@badradio

Подписывайтесь, чтобы бороться и побеждать говносайты вместе!