scirx bsf c clrf rxdat rrf rxdat,f s1 btfsc rx ;test na start bit goto s1 movlw 6 ;casování 26us (Tbit/2) movwf citac ;požad.čas (us)-4IC/3IC st05 decfsz citac,f goto st05 st1 movlw 13 ;casování 52us (Tbit) movwf citac ;požad.čas (us)-12IC/3IC st1a decfsz citac,f goto st1a btfsc rx ;vzorkování RX goto sch bcf c goto s2 sch bsf c s2 rrf rxdat,f btfss c ;test na konec byte goto st1 movlw 7 ;casování 52us (Tbit)-čas pro doběhnutí byte movwf citac ;požad.čas (us)-12IC/3IC st1b decfsz citac,f goto st1b return ;přijatá data jsou uložena v RXDAT