Elektrod-serv.ru

Передача данных по радиоканалу

Описание выбора элементной базы и работы принципиальной схемы

MOVFW ADRESH ;ПЕРЕПИШЕМ РЕЗУЛЬТАТ ПРЕОБРАЗОВАНИЯ

MOVWF TEKH ;В СТАРШИЙ ТЕКУЩИЙ РЕГИСТР.

BSF STATUS,5 ;ПЕРЕХОДИМ В БАНК 1.

MOVLW 58 ;

MOVWF FSR ;ПО КОСВЕННОЙ АДРЕСАЦИИ

MOVFW ADRESL ;ЗАПИСЬ МЛ. РЕГИСТРА АЦП

MOVWF INDF ;В РЕГИСТР TEKL.

BCF STATUS,5 ;ПЕРЕХОДИМ В БАНК 0.

CALL COMPA ;

GOTO BINDEC ;ПЕРЕКОДИРУЕМ В 2_10 КОД.

ZAD

MOVLW .5 ;ЗАДЕРЖКА 20 МКС.

ADDLW -1 ;

BTFSS STATUS,2 ;

GOTO $-2 ;

RETURN

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

; 16. СРАВНЕНИЕ С УСТАНОВКОЙ.

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

COMPA

TSTF TEKL ;

BTFSC STATUS,2;

GOTO VUKL ;

MOVFW YCTL ;УСТАНОВКА МАКСИМУМА.

SUBWF TEKL,0 ;ИЗМЕРЕНИЕ,

BTFSC STATUS,0;ЕСЛИ БОЛЬШЕ ИЛИ РАВНО,

GOTO VUKL ;ТО ВКЛЮЧАЕТСЯ ЗУММЕР.

MOVFW YCTLI ;УСТАНОВКА МИНИМУМА.

SUBWF TEKL,0 ;ИЗМЕРЕНИЕ,

BTFSS STATUS,0;ЕСЛИ МЕНЬШЕ,

GOTO VUKL ;ТО ВКЛЮЧАЕТСЯ ЗУММЕР.

BTFSC STATUS,2;ЕСЛИ РАВНО,

GOTO VUKL ;ТО ВКЛЮЧАЕТСЯ ЗУММЕР.

BCF FLAG1,4 ;ЗУММЕР ВЫКЛЮЧЕН.

BCF FLAG1,5 ;ЗУММЕР ВЫКЛЮЧЕН.

BCF PORTC,0 ;ВЫКЛЮЧИМ СИГНАЛ.

RETURN

VUKL

BTFSC PORTA,KY;

GOTO $+5 ;

BSF FLAG1,5 ;ПОСТАВИМ СТОРОЖОК НА 1 ЧАС.

BCF PORTC,0 ;ВЫКЛЮЧИМ СИГНАЛ.

BTFSC FLAG1,5 ;ЕСЛИ 1 ЧАС ПРОШЕЛ, ТО ВКЛЮЧИМ СИГНАЛ.

RETURN

BTFSC FLAG1,4 ;ЕСЛИ ВЫХОД УЖЕ ВЫКЛЮЧЕН,

RETURN ;СРАВНЕНИЙ НЕТ.

BSF PORTC,0 ;ВКЛЮЧИМ СИГНАЛ.

BSF FLAG1,4 ;ЗУММЕР ВКЛЮЧЕН.

RETURN

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

; 17. ПЕРЕКОДИРОВКА ИЗ 16-И РАЗРЯДНОГО 2-ГО В 5- РАЗРЯДНОЕ 2-10-Е.

; АЛГОРИТМ ПЕРЕКОДИРОВКИ ОСНОВЫВАЕТСЯ НА ПРИБАВЛЕНИИ 3 В МЛАДШИЙ

; И СТАРШИЙ ПОЛУБАЙТЫ. ЕСЛИ РЕЗУЛЬТАТ СПЕРЕНОСОМ 1 В 3 РАЗРЯД (10=7+3), ТО ЗАПИСЫВАЕМ

; НОВОЕ ЗНАЧЕНИЕ В РЕГИСТР. ВЫПОЛНЯЕМ 16 РАЗ СДВИГАЯ БИТЫ РЕГИСТРОВ.

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

BINDEC

MOVLW .16 ;ЗАПИШЕМ ЧИСЛО СДВИГОВ

MOVWF COU ;В СЧЕТЧИК.

BIDE

BCF STATUS,0 ;ОБНУЛИМ БИТ "С".

RLF TEKL,1 ;СДВИНЕМ ПЕРЕКОДИРУЕМОЕ

RLF TEKH,1 ;ЧИСЛО ПЕРЕМЕЩАЯ ЕГО СТАРШИЙ БИТ

RLF EDA,1 ;В МЛАДШИЙ БИТ РЕГИСТРОВ

RLF DEA,1 ;РЕЗУЛЬТАТА.

DECFSZ COU,1 ;ЗАФИКСИРУЕМ СДВИГ В СЧЕТЧИКЕ.

GOTO RASDEC ;ПРОВЕРИМ ПОЛУБАЙТЫ НА СЕМЕРКУ.

GOTO MESTO ;ЕСЛИ СЧЕТЧИК ПУСТ, ЗАПОЛНИМ РЕГИСТРЫ ИНДИКАЦИИ.

RASDEC

MOVLW EDA ;ЗАПИШЕМ АДРЕС РЕГИСТРА

MOVWF FSR ;В РЕГИСТР КОСВЕННОЙ АДРЕСАЦИИ.

CALL BCD ;ПРОВЕРИМ ЗНАЧЕНИЕ РЕГИСТРА НА 7.

MOVLW DEA ;АНАЛОГИЧНЫЕ ОПЕРАЦИИ ПРОДЕЛАЕМ

MOVWF FSR ;С ДРУГИМИ РЕГИСТРАМИ.

CALL BCD ;

GOTO BIDE ;ПОЙДЕМ ПОВТОРЯТЬ СДВИГ.

BCD

MOVLW 3 ;0000 0011

ADDWF 0,0 ;ПРИБАВИМ 3 К РЕГИСТРУ И РЕЗУЛЬТАТ

MOVWF TEMP ;ЗАПИШЕМ ВО ВРЕМЕННЫЙ РЕГИСТР.

BTFSC TEMP,3 ;ПРОВЕРИМ 3 БИТ И ЕСЛИ ОН РАВЕН НУЛЮ,

MOVWF 0 ;ПРОПУСКАЕМ ЗАПИСЬ РЕЗУЛЬТАТА В РЕГИСТР.

MOVLW 30 ;48=0011 0000

ADDWF 0,0 ;ПРИБАВИМ 3 К СТАРШЕМУ ПОЛУБАЙТУ РЕГИСТРА И РЕЗУЛЬТАТ

MOVWF TEMP ;ЗАПИШЕМ ВО ВРЕМЕННЫЙ РЕГИСТР.

BTFSC TEMP,7 ;ЕСЛИ БИТ ЕДИНИЧНЫЙ,

MOVWF 0 ;ТО ЗАПИШЕМ НОВОЕ ЗНАЧЕНИЕ В РЕГИСТР.

RETURN ;ВЕРНЕМСЯ ДЛЯ ЗАГРУЗКИ НОВОГО ЗНАЧЕНИЯ РЕГИСТРА.

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

; 18. ИЗВЛЕКАЕМ ПОЛУБАЙТЫ ИЗ РЕГИСТРОВ СЧЕТА В РЕГИСТРЫ ИНДИКАЦИИ.

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

MESTO

MOVLW B'00001111' ;ИЗВЛЕКАЕМ ПОЛУБАЙТЫ

ANDWF DEA,0 ;В РЕГИСТРЫ ИНДИКАЦИИ.

MOVWF COI ;

MOVLW B'11110000' ;

ANDWF EDA,0 ;

MOVWF DEI ;

SWAPF DEI,1 ;

MOVLW B'00001111' ;

ANDWF EDA,0 ;

MOVWF EDI ;

CLRF EDA ;

CLRF DEA ;

RETURN ;

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

; 19. СМЕНА ИНДИКАЦИИ ПРИ СМЕНЕ РЕЖИМА.

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

INDH

BTFSC FLAG,7 ;ЕСЛИ КУРСОР ЕСТЬ,

CALL YCT ;ТО ИДЕМ НА УСТАНОВКУ. Перейти на страницу: 4 5 6 7 8 9 10

Советуем почитать:

Расчет телекоммуникационной сети ГТС малой емкости Актуальность проблемы в настоящее время развития телекоммуникаций происходит в направлении создания рынка телекоммуникационных услуг, внедрения новых телекоммуникационных технологий, их ...

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

Исследование и разработка программ расчета источников вторичного электропитания на ЭВМ Название темы дипломной работы "Исследование и разработка программ расчета источников вторичного электропитания (ИВЭ) на ЭВМ". Целью работы является исследование способов орган ...