Автоматическая система контроля

Автоматизация технологических процессов

Разработка управляющей программы

00093 RAS

0064 00094 CLRWDT

0190 00095 CLRF DESI;ОБНУЛИМ РЕГИСТРЫ ИНДИКАЦИИ.

0191 00096 CLRF SOTI

A 0192 00097 CLRF TUSI

B 1103 00098 BCF STATUS,2;ОЧИСТКА БИТА "Z" РЕГИСТРА STATUS.

C 0899 00099 TSTF SOT;ПРОВЕРИМ НА НОЛЬ.

D 1903 284B 00100 BZ RAS1;ЕСЛИ РАВНО, ИДЕМ.

F 00101 RAS0

F 3064 00102 MOVLW 64;100.

00103 RAS2

1403 00104 BSF STATUS,0;УСТАНОВКА БИТА "С" РЕГИСТРА STATUS.

00105 RAS3

0298 00106 SUBWF DES,1;ВЫЧИТАЕМ ИЗ РЕГИСТРА 100 > DES.

1C03 2836 00107 BNC BINDES;ПЕРЕХОД ЕСЛИ ПЕРЕНОС.

0A92 00108 INCF TUSI,1;ПРИБАВИМ 1 К ТЫСЯЧАМ РЕГИСТРА ИНДИКАЦИИ.

2831 00109 GOTO RAS3;ПОВТОРИТЬ.

00110 BINDES

0064 00111 CLRWDT

1103 00112 BCF STATUS,2;ОЧИСТКА БИТА "Z" РЕГИСТРА STATUS.

0899 00113 TSTF SOT;ПРИВЕРИТЬ РЕГИСТР НА НОЛЬ.

1903 283E 00114 BZ RAD;ЕСЛИ 0, ИДЕМ.

B 0399 00115 DECF SOT,1;ВЫЧЕСТЬ ИЗ РЕГИСТРА 1.

C 0A92 00116 INCF TUSI,1;ПРИБАВИМ 1 К ТЫСЯЧАМ РЕГИСТРА ИНДИКАЦИИ.

D 2830 00117 GOTO RAS2;ПОВТОРИТЬ.

E 00118 RAD

E 0798 00119 ADDWF DES,1;ВОССТАНОВИМ ДЕСЯТКИ (В АКК. - 100).

F 300A 00120 MOVLW.10;10.

1403 00121 BSF STATUS,0;ОЧИСТКА БИТА "С" РЕГИСТРА STATUS.

00122 RAD0

0298 00123 SUBWF DES,1;ВЫЧИТАЕМ ИЗ РЕГИСТРА 10 > DES.

1C03 2846 00124 BNC BINDED;ПЕРЕХОД, ЕСЛИ ПРОПАЛ ПЕРЕНОС.

0A91 00125 INCF SOTI,1;ПРИБАВИМ 1 К СТАРШЕМУ РЕГИСТРУ.

2841 00126 GOTO RAD0;ПОВТОРИТЬ.

00127 BINDED

0718 00128 ADDWF DES,0;+10.

0090 00129 MOVWF DESI;ЗАПИШЕМ В РЕГИСТР ИНДИКАЦИИ.

0198 00130 CLRF DES;ОБНУЛИМ.

0199 00131 CLRF SOT

A 287D 00132 GOTO RECONST

B 00133 RAS1

B 1103 00134 BCF STATUS,2;ОЧИСТКА БИТА "Z" РЕГИСТРА STATUS.

C 0898 00135 TSTF DES;ЕСЛИ ЗНАЧЕНИЕ РЕГИСТРА = 0,

D 1903 287D 00136 BZ RECONST;ЗАВЕРШАЕМ ПРЕРЫВАНИЕ,

F 282F 00137 GOTO RAS0;ИНАЧЕ ИДЕМ СЧИТАТЬ.

; 5. ТАБЛИЦА СЕГМЕНТОВ ДЛЯ ОБЩЕГО АНОДА.

00142 SEGDATA;7, б, 5, 4, 3, 2, 1, 0.

0782 00143 ADDWF PCL,F;G, F, E, D, С, B, A, PR

;АНОД-ДЛЯ ОБЩИХ АНОДОВ

;КАТОД - ДЛЯ ОБЩИХ КАТОДОВ

;НЕНУЖНОЕ УДАЛИТЬ ИЛИ ЗАКОММЕНТИРОВАТЬ

; АНОД КАТОД

3481 00148 RETLW B'10000001'; 0 B'01111111'

34F3 00149 RETLW B'11110011'; 1 B'00001101'

3449 00150 RETLW B'01001001'; 2 B'10110111'

3461 00151 RETLW B'01100001'; 3 B'10011111'

3433 00152 RETLW B'00110011'; 4 B'11001101'

3425 00153 RETLW B'00100101'; 5 B'11011011'

3405 00154 RETLW B'00000101'; 6 B'11111011'

34F1 00155 RETLW B'11110001'; 7 B'00001111'

3401 00156 RETLW B'00000001'; 8 B'11111111'

A 3421 00157 RETLW B'00100001'; 9 B'11011111'

; 7. ИНДИКАЦИЯ.

B 00160 INDZIKL0

B 0064 00161 CLRWDT

C 0193 00162 CLRF ANOD;ОБНУЛЯЕМ АНОД, ЧТОБЫ ОЧИСТИТЬ СТАРШИЕ РАЗРЯДЫ.

D 178B 00163 BSF INTCON,7;ЧТОБЫ НЕ ПРОПУСТИТЬ ПРЕРЫВАНИЕ.

E 1413 00164 BSF ANOD,0;УСТАНОВИМ МЛ. РАЗРЯД АНОДА.

F 3010 00165 MOVLW 010H;ЗАПИСЬ НОМЕРА РЕГИСТРА МЛ. РАЗРЯДА

0094 00166 MOVWF SEGD;В РЕгИСТР АДРЕСА РАЗРЯДА.

00167 INDZIKL1

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

0800 00169 MOVFW INDF;ВЫБИРАЕМ 2-10 ЗНАЧЕНИЕ.

2050 00170 CALL SEGDATA;ПРЕОБРАЗУЕМ В СЕМИСЕГМЕНТНОЕ ДЛЯ ИНДИКАЦИИ

0086 00171 MOVWF PORTB;В ПОРТ В.

0813 00172 MOVFW ANOD;ЗАГРУЖАЕМ ЗНАЧЕНИЕ АНОДА.

0085 00173 MOVWF PORTA;В ПОРТ А.

2070 00174 CALL REST;НА ОТДЫХ.

1003 00175 BCF STATUS,0;ОБНУЛИМ.

0D93 00176 RLF ANOD,1;+1 В РЕГИСТР АНОДА.

A 1993 00177 BTFSC ANOD,3;ЗАПИСЬ ЧИСЛА 3.

B 285B 00178 GOTO INDZIKL0;ЕСЛИ РАВНО 0, ИДЕМ,

C 0064 00179 CLRWDT;ВРЕМЯ ТАЙМЕРА - 18 МС. Перейти на страницу: 1 2 3 4

Другие статьи по теме

Технологический процесс изготовления платы интегральной микросхемы-фильтра Микроэлектроника как современное направление проектирования и производства электронной аппаратуры различного назначения является катализатором научно-технического прогресса. Автоматизац ...

Медианная фильтрация медианный фильтрация цифровой сигнал Цифровая обработка сигналов нашла широкое применение в различных сферах деятельности: телевидении, радиолокации, связи, метеорологии, сейсмологии, ме ...

Электропреобразовательные устройства РЭС Курс «Электропреобразовательные устройства РЭС» является одной из первых инженерных дисциплин специальности «Радиотехника», обеспечивающей подготовку радиоинженера в области силовых рад ...