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
Другие статьи по теме
Технологический процесс изготовления платы интегральной микросхемы-фильтра Микроэлектроника как современное направление проектирования и производства электронной аппаратуры различного назначения является катализатором научно-технического прогресса. Автоматизац ...
Медианная фильтрация медианный фильтрация цифровой сигнал Цифровая обработка сигналов нашла широкое применение в различных сферах деятельности: телевидении, радиолокации, связи, метеорологии, сейсмологии, ме ...
Электропреобразовательные устройства РЭС Курс «Электропреобразовательные устройства РЭС» является одной из первых инженерных дисциплин специальности «Радиотехника», обеспечивающей подготовку радиоинженера в области силовых рад ...