anstatt der Multiplikation oder shiften kannst Du auch einfach 2 Bytevariablen als Overlay über Deine Wordvariable drüber legen, das spart Rechenzeit
dim Word_Var as word
dim byte_var (2) as byte at Word_Var overlay
Die einzelnen Bytes kannst Du dann einfach per byte_var(1)= xyz and 00011111 und byte_var(2)=abcd and 11111110 befüllen
dann nur einmal den shift Word_Var, right, 1
Lesezeichen