justify"> 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; ЗАПИС НОМЕРИ РЕГІСТРУ МЛ. РАЗРЯДА