Overlay:
Code:
Dim Frequenz As Word        addresse &H0060     länge 2 Byte 
Dim Controlw As Word        addresse &H0062     länge 2 Byte 
Dim Controls As Byte          addresse &H0064     länge 1 Byte     
Dim Controls1 As Long        addresse &H0065     länge 4 Byte     

Dim Sendebytes(4) As Byte AT FREQUENZ OVERLAY -->
                   ' d.h. das ist auch auf   addresse &H0060    länge 4 x 1 Byte
Vor dem Senden muss man in Controlw die Bits
B0, B1, B2 , TB , R0, R1, R2, S
enthalten sein bzw. zusammengemischt werden

*grübel*

Eigentlich ist das ein unnötiges Gefummel. Vorschlag: Einfacher

Code:
DIM Frequenz as Word
DIM Control1 As Byte         ' mit B0, B1, B2 , TB
DIM Control2 As Byte         ' mit R0, R1, R2, S 

' das schreibst du nach Herzenslust was rein 

SENDEN:

DIM Sendewort AS Word 

Clb  = 0
Dlen = 1

  Sendewort = Frequenz
for i = 1 to 16 
       XX =  Sendewort AND &H01
       Dat = XX.0      
       CLB = 1 
       shift Sendewort, right, 1
       CLB = 0
   NEXT  

  Sendewort = Control1
for i = 1 to 4
       XX =  Sendewort AND &H01
       Dat = XX.0      
       CLB = 1 
       shift Sendewort, right, 1
       CLB = 0
   NEXT  

  Sendewort = Control2
for i = 1 to 4
       XX =  Sendewort AND &H01
       Dat = XX.0      
       CLB = 1 
       shift Sendewort, right, 1
       CLB = 0
   NEXT  

Dlen = 0
Das sieht zwar im ersten moment nach Spaghetti aus, auf es ist effektiv, wenn man das Gewurstel betrachtet, das man sonst machen muss, um die Daten zusammenzuschippern.

Könnte man noch mit subroutinen eleganter machen, aber was soll's