ign="justify"> 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 МС.
D 0A94 00180 INCF SEGD, F; +1 в регістр адреси РАЗРЯДА.
E 0814 00181 MOVFW SEGD; завантажують ЗНАЧЕННЯ
F 2861 00182 GOTO INDZIKL1; І ЙДЕМО.
00183 REST
300A 00184 MOVLW.10; ЗАДЕРЖКА У 41 ЦИКЛ.
00185 REST0
3EFF 00186 ADDLW - 01H; ЧАС НА ГОРІННЯ СЕГМЕНТА
1D03 00187 BTFSS STATUS, 2; 64 ЦИКЛУ=7,81 MCEK.
2871 00188 GOTO REST0; зациклюється
0008 00189 RETURN
; 8. ЗБЕРЕЖЕННЯ ТА ВІДНОВЛЕННЯ значення регістрів при перериванні.
00192 CONST
138B 00193 BCF INTCON, 7; заборонити переривання.
0095 00194 MOVWF W_TEMP; ЗБЕРЕЖЕННЯ значення регістрів W І
0803 00195 MOVFW STATUS; STATUS
0096 00196 MOVWF STATUS_TEMP;
0804 00197 MOVFW FSR; FSR.
A 0097 00198 MOVWF FSR_TEMP
B 188B 00199 BTFSC INTCON, 1; ЯКЩО ПЕРЕРИВАННЯ ПО ВХОДУ В,
C 2810 00200 GOTO DESI; +1 У РЕГІСТРИ РАХУНКУ.
D 00201 RECONST; ВІДНОВЛЕННЯ збереження значення.
D 0816 00202 MOVFW STATUS_TEMP; ВІДНОВЛЕННЯ регістрів:
E 0083 00203 MOVWF STATUS; STATUS,
F 0817 00204 MOVFW FSR_TEMP
0084 00205 MOVWF FSR; FSR,
0815 00206 MOVFW W_TEMP; W.
0009 00207 RETFIE; повернення з переривання.
; 9. РАХУНОК
00209 DES1
0818 00210 MOVFW DES; завантаження значення МЛ. РАЗРЯДА У РАБ. РЕГІСТР.
3CFF 00211 SUBLW 0FFH; відняти з РЕГІСТРУ 255.
1903 288A 00212 BZ SOT1; ПОРІВНЯТИ НА О, ЯКЩО ОДНО, ПЕРЕЙТИ,
0A98 00213 INCF DES, F; ІНАКШЕ додати 1 У РЕГІСТР МЛ. РАЗРЯДА.
108B 00214 BCF INTCON, 1; СБРОС ПРАПОРА ПЕРЕРИВАННЯ.
287D 00215 GOTO RECONST
A 00216 SOT1
A 0198 00217 CLRF DES; обнуленням РЕГІСТРУ МЛ. РАЗРЯДА.
B 0819 00218 MOVFW SOT; ЗАВАНТАЖЕННЯ СТ. РАЗРЯДА У РАБ. РЕГІСТР.
C 3CFF 0...
