scitx		bsf	tx	;v TXDAT musí být data pro vysílání
		movlw	9	;do POCBITu 9
		movwf	pocbit
		bcf	tx	;start bit
st31 		movlw	12	;casování 52us (Tbit)
		movwf	citac	;požad.čas (us)-12IC/3IC
st31a		decfsz	citac,f
		goto	st31a
		decfsz	pocbit,f;test na konec odvys. bytu
		goto	s51
		bsf	tx	;stop bit
 		movlw	12	;casování 52us (Tbit)=délka stop bitu
		movwf	citac	;požad.čas (us)-2IC/3IC
st32		decfsz	citac,f
		goto	st32
		return
s51		rrf	txdat,f
		btfsc	c	;test na stav aktuálního bitu
		goto	s4h
		bcf	tx
		goto	s41
s4h		bsf	tx
s41		goto	st31