br/>
; 2. ВИЗНАЧЕННЯ СТАНУ КНОПОК І ПРАПОРІВ. br/>
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 У СТАРШИЙ РОЗРЯД.
001D 1003 00081 BCF STATUS, 0, 0.
E 0798 00082 ADDWF DES, 1; 2 +1.
001F 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-х розрядний двійково-десятковому. p> 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).
003F 300A 00120 MOVLW .10; 10.
1403 00121 BSF STATUS, 0; ОЧИЩЕННЯ БІТА "С" РЕГІСТРУ STATUS.
00122 RAD0
0041 0298 00123 SUBWF DES, 1; віднімається з РЕГІСТРУ 10> DES.
1C03 2846 00124 BNC BINDED; ПЕРЕХІД, ЯКЩО ПРОПАЛ ПЕРЕНЕСЕННЯ.
0A91 00125 INCF SOTI, 1; додали 1 до старшого регістру.
0045 2841 00126 GOTO RAD0; ПОВТОРИТИ.
00127 BINDED
0718 00128 ADDWF DES, 0; +10.
0047 0090 00129 MOVWF DESI; Запишіть у РЕГІСТР ІНДИКАЦІЇ.
0048 0198 00130 CLRF DES; обнулили.
0199 00131 CLRF SOT
A 287D 00132 GOTO RECONST
B 00133 RAS1
B 1103 00134 BCF STATUS, 2; ОЧИЩЕННЯ БІТА "Z" РЕГІСТРУ STATUS.
0...
