Практическая составляющая

SKPNZ ;РЕГИСТР НУЛЕВОЙ,ID0I ;ИДЕМ НА ЗАВЕРШЕНИЕ.SC0,1 ;ВЫЧТЕМ 1 ИЗ РЕГИСТРА.PORTB,0 ;ВКЛЮЧИМ ВЫХОД.ID200 ;ОТРАБОТАЕМ ПАУЗУ, РАВНУЮ ДЛИТЕЛЬНОСТИ ЕДИНИЦЫ.PORTB,0 ;ВЫКЛЮЧИМ ВЫХОД.ID200 ;ОТРАБОТАЕМ ПАУЗУ, РАВНУЮ ДЛИТЕЛЬНОСТИ НОЛЯ.ID0Z ;НАЧНЕМ СНАЧАЛА.IINTCON,7 ;ЖДЕМ ПРЕРЫВАНИЯ.ID0I ;ХОДИМ ПО КРУГУ.

;=========================================INTCON,7 ;ОСТАЛЬНЫЕ 9 ВЫХОДОВ КОММУТИРУЮТСЯ.2 ;АНАЛОГИЧНО ПЕРВОМУ.

MOVWF SC1 ;

MOVFW ANOD ;DES ;SC1,1 ;ZSC1 ;;ID1I ;

DECF SC1,1 ;PORTB,1 ;ВКЛЮЧИМ ВЫХОД.

CALL ID200

BCF PORTB,1 ;ВЫКЛЮЧИМ ВЫХОД.

CALL ID200ID1Z ;IINTCON,7 ;ID1I ;

;=========================================INTCON,7 ;.3SC2ANODDESSC2,1ZSC2 ;;ID2I ;SC2,1 ;

BSF PORTB,2 ;ВКЛЮЧИМ ВЫХОД.

CALL ID200

BCF PORTB,2 ;ВЫКЛЮЧИМ ВЫХОД.

CALL ID200

GOTO ID2Z ;IINTCON,7 ;ID2I ;

;=========================================INTCON,7 ;.4SC3ANODDESSC3,1ZSC3 ;;ID3I ;SC3,1 ;

BSF PORTB,3 ;ВКЛЮЧИМ ВЫХОД.

CALL ID200

BCF PORTB,3 ;ВЫКЛЮЧИМ ВЫХОД.

CALL ID200

GOTO ID3Z ;IINTCON,7 ;ID3I ;

;=========================================INTCON,7 ;.5SC4ANODDESSC4,1ZSC4 ;;ID4I ;SC4,1 ;

BSF PORTB,4 ;ВКЛЮЧИМ ВЫХОД.

CALL ID200

BCF PORTB,4 ;ВЫКЛЮЧИМ ВЫХОД.

CALL ID200

GOTO ID4Z ;IINTCON,7 ;ID4I ;

;=========================================INTCON,7 ;.6SC5ANODDESSC5,1ZSC5ID5ISC5,1PORTB,5 ;ВКЛЮЧИМ ВЫХОД.ID200PORTB,5 ;ВЫКЛЮЧИМ ВЫХОД.ID200ID5Z ;НАЧНЕМ СНАЧАЛА.IINTCON,7ID5I

;=========================================INTCON,7.7SC6ANODDESSC6,1ZSC6ID6ISC6,1PORTB,6 ;ВКЛЮЧИМ ВЫХОД.ID200PORTB,6 ;ВЫКЛЮЧИМ ВЫХОД.ID200ID6ZIINTCON,7ID6I

;=========================================INTCON,7.8SC7ANODDESSC7,1ZSC7ID7ISC7,1PORTB,7 ;ВКЛЮЧИМ ВЫХОД.ID200PORTB,7 ;ВЫКЛЮЧИМ ВЫХОД.ID200ID7ZIINTCON,7ID7I

;=========================================INTCON,7.9SC8ANODDESSC8,1ZSC8ID8ISC8,1PORTA,3 ;ВКЛЮЧИМ ВЫХОД.ID200PORTA,3 ;ВЫКЛЮЧИМ ВЫХОД.ID200ID8ZIINTCON,7ID8I

;=========================================INTCON,7.10SC9ANODDESSC9,1ZSC9ID9ISC9,1PORTA,4 ;ВКЛЮЧИМ ВЫХОД.ID200PORTA,4 ;ВЫКЛЮЧИМ ВЫХОД.ID200ID9ZIINTCON,7ID9I

;==========================================ANOD,1 ;УВЕЛИЧИМ ДЕСЯТКИ 8 ;НЕ БОЛЕЕ 80.ANOD,0 ;ВЫЧТЕМ.STATUS,2 ;ЕСЛИ НОЛЬ,

GOTO IDOO ;ПРОДОЛЖИМ С ОБНУЛЕНИЕМ.IDAO ;ИЛИ БЕЗ ОБНУЛЕНИЯ.

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

; 5. ПАУЗА.

;===========================.3 ;ПАУЗА 24 МИКРОСЕКУНДЫ.

MOVWF COU ;COU,1 ;ВЫЧТЕМ 1.

NOPCOU ;ПРОТЕСТИРУЕМ НА НОЛЬ.;ЕСЛИ НЕ РАВНО НУЛЮ,PAUSA ;ПОВТОРИМ.

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

; 6. СОХРАНЕНИЕ И ВОССТАНОВЛЕНИЕ ЗНАЧЕНИЙ РЕГИСТРОВ ПРИ ПРЕРЫВАНИИ.

;===================================================================W_TEMP ;СОХРАНЕНИЕ ЗНАЧЕНИЙ РЕГИСТРОВ W И

MOVFW STATUS ;STATUS,STATUS_TEMP ;FSR ;FSR.FSR_TEMP ;

CALL S1 ;ПРИБАВИМ 1 В СЧЕТЧИК.;ВОССТАНОВЛЕНИЕ СОХРАНЕННЫХ ЗНАЧЕНИЙ.INTCON,2 ;СБРОС ФЛАГА (T0IF) ПЕРЕПОЛНЕНИЯ ТАЙМЕРА.STATUS_TEMP ;ВОССТАНОВЛЕНИЕ РЕГИСТРОВ:

MOVWF STATUS ;STATUS,FSR_TEMP ;

MOVWF FSR ;FSR,.119 ;ДЛИТЕЛЬНОСТЬ ПОДОБРАНА ТАК,ЧТОБЫ БЫЛА РАВНАTMR0 ;НЕ МЕНЕЕ 80 ПЕРИОДАМ ИМПУЛЬСОВ.W_TEMP ;W.;ВОЗВРАТ ИЗ ПРЕРЫВАНИЯ.

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

; 7. ОТСЧЕТ ПРЕРЫВАНИЙ.

;============================SMC,1 ;ЗНАЧЕНИЯ РЕГИСТРА НЕ ИСПОЛЬЗУЮТСЯ.

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

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

ПРИЛОЖЕНИЕ F

6. Текст программы приемника

;

; КАБЕЛЬНЫЙ ПРОБНИК. ПРИЕМНИК.

; МАКСИМАЛЬНАЯ ЧАСТОТА СЧЕТА ДО 28 КГЦ.

; 2 РАЗРЯДА ИНДИКАЦИИ.

;

; РАЗРАБОТАЛ ГАСАНОВ ПЁТР.

; ПРОГРАММА = KABELPM.ASM

; ВЕРСИЯ: 08-05-11.

; АССЕМБЛЕР И ОТЛАДЧИК: MPLAB IDE, ВЕРСИЯ: 5.61.00.

;

#include p16f84a.inc

CONFIG 3FF2H

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

; ИСПОЛЬЗУЕТСЯ КВАРЦ ЧАСТОТОЙ 4,0 МГЦ.

; RB0 - ВХОД.

; RA0, RA1 - ВЫХОД КАТОДА.

; RB1-RB7 - ВЫХОД СЕГМЕНТОВ.

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

; СПЕЦ РЕГИСТРЫ.

;================EQU 00H ;ДОСТУП К ПАМЯТИ ЧЕРЕЗ FSR.

TIMER0 EQU 01H ;TMR0.EQU 81H ;OPTION (RP0=1).

PC EQU 02H ;СЧЕТЧИК КОМАНД.EQU 03H ;РЕГИСТР СОСТОЯНИЯ АЛУ.EQU 04H ;РЕГИСТР КОСВЕННОЙ АДРЕСАЦИИ.EQU 05H ;ПОРТ А ВВОДА/ВЫВОДА.EQU 06H ;ПОРТ В ВВОДА/ВЫВОДА.EQU 85H ;НАПРАВЛЕНИЯ ДАННЫХ ПОРТА А.EQU 86H ;НАПРАВЛЕНИЯ ДАННЫХ ПОРТА В.EQU 0BH ;РЕГИСТР ФЛАГОВ ПРЕРЫВАНИЙ.

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

; ОПРЕДЕЛЕНИЕ РАБОЧИХ РЕГИСТРОВ.

;=================================EQU 0CH ;МЛАДШИЙ РАЗРЯД СЧЕТЧИКА.EQU 0DH ;ДЕСЯТКИ СЧЕТЧИКА.EQU 0EH ;НУЛЕВОЙ РАЗРЯД ИНДИКАЦИИ.EQU 0FH ;ПЕРВЫЙ РАЗРЯД ИНДИКАЦИИEQU 10H ;КАТОД.EQU 11H ;РЕГИСТР СЕГМЕНТОВ.EQU 12H ;СЧЕТЧИК ПАУЗЫ.EQU 14H ;

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

; ВРЕМЕННЫЕ РЕГИСТРЫ.

;====================_TEMP EQU 021H ;БАЙТ СОХРАНЕНИЯ РЕГИСТРА W ПРИ ПРЕРЫВАНИИ._TEMP EQU 022H ;БАЙТ СОХРАНЕНИЯ РЕГИСТРА STATUS ПРИ ПРЕРЫВАНИИ._TEMP EQU 023H ;ВРЕМЕННЫЙ ДЛЯ FSR.

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

Интересное из раздела

Датчики
...

Функционально-структурный анализ системы автоматического управления (регулирования) технического объекта
Работа любого технологического объекта характеризуется различными параметрами, которые изменяются в зависимости от работы машины и воздействия внешних факто ...

Расчет линейной электрической цепи при гармоническом воздействии
Цель курсовой работы состоит в практическом освоении методов расчета простых и сложных электрических цепей при воздействии на них гармонических колебани ...