Ganz grob als Anregung

Du willst ein Bytes senden, hat ja 8 Bits. Du kannst immer nur ein Bit nach dem sende. Also prüfst du, ob BIT 0 deiner Variablen 1 oder 0 ist.

Wenn1 dann sendest du eine 1, wenn nicht eine 0.

Danach schiebst du die Variable um eine Stelle nach rechts. Damit steht jetzt BIT1 an Stelle BIT0 und du kannst wieder abfragen ob 1 oder 0.

Nach 8 mal schiebben bist du mit deinem Byte durch.

daten = 23
for a = 1 to 8
if daten.0 = 1 then
sende 1
else
sende 0
end if
shift daten , right ,1

next a

So sollte es ganz grob abgehen. Nicht getestet, so aus dem Kopf