00194 movwf WW
03A1 00195 Dr2_2 Decf WW, 1
2163 00196 call Del1
1903 00197 btfsc STATUS, Z
2956 00198 goto Dr2_2
A 1D06 00200 btfss PORTB, 2
B 2956 00201 goto Dr2_2; - віджатий ???
C 3001 00205 movlw 1
D 0225 00206 subwf TEMP1,0
E 3005 00207 movlw 5
F 1903 00208 btfsc STATUS, Z
+0160 00A5 00209 movwf TEMP1; якщо в TEMP1 менше 2 то 5
MPASM 03.20 Released KURS.ASM 12-16-2004 15:59:48 PAGE 5OBJECT CODE LINE SOURCE TEXT
VALUE
03A5 00210 Decf TEMP1,1; а потім декремент
+0162 290D 00211 goto lab2
00214 Del1
3096 00215 movlw .150
00A1 00216 movwf WW; Затримка на 500 мкС
0BA1 00217 Del2 Decfsz WW, ??1
2965 00218 goto Del2
0008 00219 Return
00221
; Підпрограма обробки значення АЦП
00224
00225 ACP
081E 00226 movf ADRESH, W
00A4 00227 MOVWF _IN
A 0222 00229 subwf Max_In, 0
B 1803 00230 btfsc STATUS, C; if 1 to next + 1
C 296F 00231 goto ACP1
D 0824 00232 movf _IN, 0
E 00A2 00233 movwf Max_In
F 00235 ACP1
F 0824 00236 movf _IN, 0
0223 00237 subwf Min_In, 0
1C03 00238 btfss STATUS, C; if 0 to next + 1
2975 00239 goto ACP2
0824 00240 movf _IN, 0
00A3 00241 movwf Min_In
00242
0008 00243 ACP2 return
00252 Init; підпрограма ініціалізації PIC16F877
00253
1683 00254 BSF STATUS, RP0; bank1
1383 00255 BCF STATUS, IRP
1303 00256 BCF STATUS, RP1
30FF 00258 MOVLW b 11111111
A 0085 00259 MOVWF TRISA ^ 80h
B 30D7 00261 MOVLW b 11010111
C 0086 00262 MOVWF TRISB ^ 80h03.20 Released KURS.ASM 12-16-2004 15:59:48 PAGE 6OBJECT CODE LINE SOURCE TEXT
D 3000 00264 MOVLW b 00000000
E 0088 00265 MOVWF TRISD ^ 80h
F 3000 00267 MOVLW b 00000000
0089 00268 MOVWF TRISE ^ 80h
300E 00270 MOVLW b 00001110
009F 00271 MOVWF ADCON1 ^ 80h
1381 00273 BCF OPTION_REG, 7
; movlw b 00000000
; movwf PIE1
138C 00276 BCF PIE1,7
1283 00277 BCF STATUS, RP0; bank0
3000 00279 movlw b 00000000
008B 00280 movwf INTCON
3041 00284 MOVLW b 01000001
009F 00285 MOVWF ADCON0
A 01A2 00287 CLRF Max_In; очистити
018B 0188 00288 CLRF PORTD; очистити
018C 30FF 00289 MOVLW b 11111111
D 00A3 00290 MOVWF Min_In
E 1089 00292 BCF Data
F 1186 00293 BCF CS
3007 00295 movlw .7
00A0 00296 movwf Delay
00297 Init1
2993 00298 goto $ + 1
2994 00299 goto $ + 1
2995 00300 goto $ + 1
1409 00301 bsf Clk
2997 00302 goto $ + 1
2998 00303 goto $ + 1
2999 00304 goto $ + 1
1009 00305 bcf Clk
A 03A0 00306 decf Delay, f
B 1D03 00307 BTFSS STATUS, Z
C 2992 00308 goto Init1
D 1489 00309 bsf Data
E 299F 00310 goto $ + 1
F 29A0 00311 goto $ + 1
A0 29A1 00312 go...
