Paarsuse biti kalkuleerimine

[felch]

Ülilihtsat võimalust kas ei ole või siis ei tule kuidagi meelde. Tegin pikemalt, asmis muidugi

Kood:

movwf sendtemp ; seivi saadetav movwf countH btfsc MySerial,.7 ; bit7 paarsus. 0=E,1=N goto snd_exit ; kalkuleeri paarsuse bitt movlw .8 movwf countL clrf adrtemp ; 1-tede loendi bcf CARRY parity: rrf countH,F btfsc CARRY incf adrtemp,F decfsz countL goto parity bcf CARRY btfsc adrtemp,.0 bsf CARRY banksel TXSTA ; paarsuse bitt on nüüd TXSTA,TX9D-s bcf TXSTA,TX9D btfsc CARRY bsf TXSTA,TX9D banksel .0 snd_exit: btfss PIR1,TXIF ; saatja valmis ? goto snd_exit movf sendtemp,W ; saadetav bait meelde tuletada banksel TXREG movwf TXREG ; saada! banksel TXSTA snd_exit1: btfss TXSTA,TRMT ; kas saatja nihkeregister tühi (bait prosest väljas)? goto snd_exit1 banksel .0 movf sendtemp,W ; taasta saadetav return