Encode:
For d = 0 to 3 ' 4 bit
if v.0[d]=0 Then
encoded.0[d*2]=0
encoded.0[d*2+1]=1
else
encoded.0[d*2]=1
encoded.0[d*2+1]=0
endif
next
serout2 portb.0,396,[%1000,encoded]
goto basla
'd: number of bits to encode (8 bits)
'v: byte to BE encoded
'encoded: WORD sized variable holding the encoded
'byte v.
im using this manchester encoding but i didnt decode this pls help..




Bookmarks