scirx bsf c clrf rxdat rrf rxdat,f s1 btfsc rx ;test na start bit goto s1 movlw 14 ;casování 52us (Tbit/2) movwf citac ;požad.čas (us)-4IC/3IC st05 decfsz citac,f goto st05 st1 movlw 27 ;casování 104us (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 35 ;casování (Tbit)-čas pro doběhnutí byte(původně 27) movwf citac ;požad.čas (us)-12IC/3IC st1b decfsz citac,f goto st1b return ;přijatá data jsou uložena v RXDAT