04C 0898 00135 TSTF DES; ЯКЩО ЗНАЧЕННЯ РЕГІСТРУ = 0,
D 1903 287D 00136 BZ RECONST; завершуємо ПЕРЕРИВАННЯ,
F 282F 00137 GOTO RAS0; ІНАКШЕ ЙДЕМО ВВАЖАТИ.
; 5. ТАБЛИЦЯ СЕГМЕНТІВ ДЛЯ ЗАГАЛЬНОГО анод. p> 00141
00142 SEGDATA; 7, б, 5, 4, 3, 2, 1, 0.
0782 00143 ADDWF PCL, F; G, F, E, D, С, B, A, PR
00144; АНОД-ДЛЯ СПІЛЬНИХ Анодами
; КАТОД - ДЛЯ СПІЛЬНИХ катод
; НЕПОТРІБНЕ ВИДАЛИТИ АБО закоментувавши
; АНОД КАТОД
0051 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. ІНДИКАЦІЯ. p> B 00160 INDZIKL0
B 0064 00161 CLRWDT
C 0193 00162 CLRF ANOD; обнуляти АНОД, ЩОБ ОЧИСТИТИ старшого розряду.
005D 178B 00163 BSF INTCON, 7; ЩОБ НЕ ПРОПУСТИТИ ПЕРЕРИВАННЯ.
E 1413 00164 BSF ANOD, 0; Встановіть МЛ. РОЗРЯД анод. p> 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; У ПОРТ А.
0067 2070 00174 CALL REST; НА ВІДПОЧИНОК.
1003 00175 BCF STATUS, 0; обнулили.
0069 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; ЧАС НА ГОРІННЯ СЕГМЕНТУ
0072 1D03 00187 BTFSS STATUS, 2; 64 ЦИКЛУ = 7,81 MCEK.
0073 2871 00188 GOTO REST0; зациклюється
0008 00189 RETURN
; 8. ЗБЕРЕЖЕННЯ ТА ВІДНОВЛЕННЯ значення регістрів при перериванні. p> 00192 CONST
138B 00193 BCF INTCON, 7; заборонити переривання.
0095 00194 MOVWF W_TEMP; ЗБЕРЕЖЕННЯ значення регістрів W І
0077 0803...