Hallo AVRBoy

falls ich Deine Frage richtig verstanden habe, möchtest Du den Gesamtwert (8bit) je nach aktivierten Port haben.

hier mal eine Idee, ist aber nicht getestet müsste aber funktionieren

Code:
Dim Temp As Byte
Dim Portstatus As Byte
Dim N As Byte

Do
   Temp = 0
   For N = 7 To 0 Step -1
      Shift Temp , Left , 1
      Temp = Pind.n
   Next N

   Portstatus = Temp
Loop
Gruß, Raimond