30997

;Listing 7.4 #

pomiar_tx ;mierzy czas ładowania kondensatora przez Rx

clrf tmrlh clrf tmrll	;zeruj tmrlh ;zeruj tmrll
movlwb'00111101' movwfgpio	;ustal stan linii portu, GP0=1, GP1=0, GP2=1, GP4=1
cali del_ntb	;poczekaj na rozładowanie
bsf status, rpO	;bank 1
movlwb'00101011' movwf trisio	;wylacz rozładowanie i zalacz ładowanie przez Rx
bcf status, rpO	;bank0

bsf    tlcon, tmrlon ;zalacz tmrl

btfss cmcon, cout    ;sprawdz wyjście komparatora

goto $-1    ;czekaj na 1 na wyjściu komparatora

bcf    tlcon, tmrlon;wyiacz tmrl

movlw b'001 mor movwfgpio	;ustal stan linii portu, GP0=1, GP1=0, GP2=1, GP4=1
bsf status, rpO movlw b'00101101' movwf trisio	;bank 1 ;zalacz rozładowanie
bcf status, rpO	;bank 0

return