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
Советуем почитать:
Расчет телекоммуникационной сети ГТС малой емкости Актуальность проблемы в настоящее время развития телекоммуникаций происходит в направлении создания рынка телекоммуникационных услуг, внедрения новых телекоммуникационных технологий, их ...
Расчёт спиральной антенны круговой поляризации спиральная антенна круговая поляризация Антенна является необходимой частью любой радиотехнической системы. Антенны классифицируются по многим признакам и параметрам. По направленнос ...
Исследование и разработка программ расчета источников вторичного электропитания на ЭВМ Название темы дипломной работы "Исследование и разработка программ расчета источников вторичного электропитания (ИВЭ) на ЭВМ". Целью работы является исследование способов орган ...