081 00052 MOVWF OPTION_REG ^ 80H; підтягує резистори вимкнули, ФРОНТ
; наростання.
30B0 00054 MOVLW B «10110000»; ДОЗВІЛ ПЕРЕРИВАННЯ=при переповнених ТАЙМЕРА
008B 00055 MOVWF INTCON; І зміна вхідного сигналу ПОРТУ В.
A 3018 00056 MOVLW B «00011000»; RA0-RA2 НА ВИХІД, RA3, RA4-ВХІД.
B 0085 00057 MOVWF TRISA ^ 80H
C 3001 00058 MOVLW B «00000001»; RB0 НА ВХІД, RBI-RB7-ВИХІД.
D 0086 00059 MOVWF TRISB ^ 80H
E 1283 00060 BCF STATUS, 5; ПЕРЕХОДИМО В БАНК 0.
F 0181 00061 CLRF TMR0; ВСЕ обнуляти І ВСТАНОВЛЮЄМО.
0190 00062 CLRF DESI
0198 00063 CLRF DES
0191 00064 CLRF SOTI
0199 00065 CLRF SOT
019B 00066 CLRF SOTU
0192 00067 CLRF TUSI
019A 00068 CLRF SEC
; 2. ВИЗНАЧЕННЯ СТАНУ КНОПОК І ПРАПОРІВ.
1D0B 00072 BTFSS INTCON, 2; ЯКЩО НІ ПЕРЕРИВАННЯ,
285B 00073 GOTO INDZIKL0; ЙДЕМО НА індикації.
; 3. Множення
0818 00077 MOVFW DES; МЛАДШИЙ РОЗРЯД.
A 0718 00078 ADDWF DES, 0; 1 +1
B 1803 00079 BTFSC STATUS, 0; ЯКЩО НІ ПЕРЕНЕСЕННЯ, -
C 0A9B 00080 INCF SOTU, 1; +1 У СТАРШИЙ РОЗРЯД.
D 1003 00081 BCF STATUS, 0, 0.
E 0798 00082 ADDWF DES, 1; 2 +1.
F 1803 00083 BTFSC STATUS, 0; ЯКЩО НІ ПЕРЕНЕСЕННЯ,
0A9B 00084 INCF SOTU, 1; +1 У СТАРШИЙ РОЗРЯД.
0819 00085 MOVFW SOT; СТАРШИЙ РОЗРЯД.
0719 00086 ADDWF SOT, 0; 1 +1;
0799 00087 ADDWF SOT, 1; 2 +1.
081B 00088 MOVFW SOTU; додалося ПЕРЕНЕСЕННЯ ІЗ МОЛОДШОГО РАЗРЯДА.
0799 00089 ADDWF SOT, 1; Запишіть у СТАРШИЙ РОЗРЯД.
019B 00090 CLRF SOTU; обнулили ТИМЧАСОВИЙ.
; 4. Перекодування ІЗ 16-розрядного двійкового У 3-х розрядний двійково-десятковому.
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; ПОВТОРИТИ.