Hallo Loro,
bei mir in 1.11.9.0 funktioniert das weder mit byval noch mit byref.
Das Problem liegt bei mir in der Funktion INP(), die nur ein Byte und keine Long-Werte zurückgibt.
Daher muss ich jedes Byte einzeln einlesen und dann entsprechend shiften.
Sieht dann so aus:

Code:
   Sub Array_anzeigen(byval Addr As Word)
   Local Y As Byte
   Local D As Byte
   Local L As Long


   Print " "
   Print "Von Suboutine aus :"
   For Y = 1 To 5
      Addr = Addr + 3              ' LSB steht in der ersten Adresse, also von hinten nach vorne einlesen
      L = Inp(addr)
      Shift L , Left , 8
      Decr Addr
      D = Inp(addr)
      L = L + D
      Shift L , Left , 8
      Decr Addr
      D = Inp(addr)
      L = L + D
      Shift L , Left , 8
      Decr Addr
      D = Inp(addr)
      L = L + D
      Print "addr ";
      Print Addr
      Print L
      Addr = Addr + 4                                       ' Inhalt des Arrays anzeigen.
      Print "tabelle ";
      Print Tabelle(y)
   Next Y

   End Sub
Gruß

Rolf