W .247; лише для налагодження !!!!
; MOVWF ADRESH; лише для налагодження !!!!
; addWF ADRESH, 0 ;; лише для налагодження !!!!
00080
2168 00081 call ACP
; BSF PORTB, 1; !!!!!!!!!!!!!!!!
1C86 00085 btfss PORTB, 1
A 2936 00086 goto Drebezg1
B 1D06 00087 btfss PORTB, 2
C 294C 00088 goto Drebezg2
D 00091 lab2
D 3001 00093 movlw 1
E 0225 00094 subwf TEMP1,0
F 1D03 00095 btfss STATUS, Z
2916 00096 goto lab3
0824 00097 movf _IN, 0
00A6 00098 movwf TEMP2
0188 00099 CLRF PORTD; очистити
1408 00100 bsf PORTD, 0
2934 00101 goto lab10
00103 lab303.20 Released KURS.ASM 12-16-2004 15:59:48 PAGE 3OBJECT CODE LINE SOURCE TEXT
3002 00104 movlw 2
0225 00105 subwf TEMP1,0
1D03 00106 btfss STATUS, Z
291F 00107 goto lab4
A 0822 00108 movf Max_In, 0
B 00A6 00109 movwf TEMP2
011C 0188 00110 CLRF PORTD; очистити
011D 1 488 00111 bsf PORTD, 1
E 2934 00112 goto lab10
F 00114 lab4
F 3003 00115 movlw 3
0225 00116 subwf TEMP1,0
1D03 00117 btfss STATUS, Z
2928 00118 goto lab5
0823 00119 movf Min_In, 0
00A6 00120 movwf TEMP2
0188 00121 CLRF PORTD; очистити
1508 00122 bsf PORTD, 2
2934 00123 goto lab10
00125 lab5
3004 00126 movlw 4
0225 00127 subwf TEMP1,0
A 1D03 00128 btfss STATUS, Z
B 2934 00129 goto lab10
C 0822 00130 movf Max_In, 0
D 0723 00131 addwf Min_In, 0
E 00A1 00132 movwf WW
F 0C21 00133 rrf WW, 0
00A6 00134 movwf TEMP2
0188 00135 CLRF PORTD; очистити
1588 00136 bsf PORTD, 3
2934 00137 goto lab10
00139 lab10
21AB 00140 call Data_7
2901 00143 goto ACP_Start
00148 Drebezg1
301E 00150 movlw .30
00A1 00151 movwf WW
03A1 00152 Dr1_1 Decf WW, 1
2163 00153 call Del1
A 1903 00154 btfsc STATUS, Z
B 2938 00155 goto Dr1_1
03.20 Released KURS.ASM 12-16-2004 15:59:48 PAGE 4OBJECT CODE LINE SOURCE TEXT
C 1886 00157 btfsc PORTB, 1
D 2938 00158 goto Dr1_1; + натиснута ???
E 301E 00161 movlw .30
F 00A1 00162 movwf WW
03A1 00163 Dr1_2 Decf WW, 1
2163 00164 call Del1
1903 00165 btfsc STATUS, Z
2940 00166 goto Dr1_2
1C86 00168 btfss PORTB, 1
2940 00169 goto Dr1_2; + віджатий ???
3004 00172 movlw 4
0225 00173 subwf TEMP1,0
1903 00174 btfsc STATUS, Z
01A5 00175 clrf TEMP1; якщо в TEMP1 більше 3 то очищаємо
014A 0AA5 00176 Incf TEMP1,1; а потім інкремент
014B 290D 00177 goto lab2
C 00180 Drebezg2
C 301E 00182 movlw .30
D 00A1 00183 movwf WW
E 03A1 00184 Dr2_1 Decf WW, 1
F 2163 00185 call Del1
1903 00186 btfsc STATUS, Z
294E 00187 goto Dr2_1
1906 00189 btfsc PORTB, 2
294E 00190 goto Dr2_1; - натиснутий ???
301E 00193 movlw .30
00A1 ...
