Porta 0# = 1 'Setzt internen Pull-Up
Porta 0.1 = 1 'Setzt internen Pull-Up
Porta 0.2 = 1 'Setzt internen Pull-Up
Porta 0.3 = 1 'Setzt internen Pull-Up
Porta 0.4 = 1 'Setzt internen Pull-Up
Porta 0.5 = 1 'Setzt internen Pull-Up
Porta 0.6 = 1 'Setzt internen Pull-Up
Porta 0.7 = 1 'Setzt internen Pull-Up
ist syntaktisch sicher falsch.
Vom Sinn her kannst du so schreiben
PORTA=255

Select Case Adr_1 'Adresse + 1
Case 0: Var_adresse = Var_adresse + 1
End Select
Select Case Adr_2 'Adresse + 2
Case 0: Var_adresse = Var_adresse + 2
End Select
Select Case Adr_4 'Adresse + 4
Case 0: Var_adresse = Var_adresse + 4
End Select
Select Case Adr_8 'Adresse + 8
Case 0: Var_adresse = Var_adresse + 8
End Select
Select Case Adr_16 'Adresse + 16
Case 0: Var_adresse = Var_adresse + 16
End Select
Select Case Adr_32 'Adresse + 32
Case 0: Var_adresse = Var_adresse + 32
End Select
Select Case Adr_64 'Adresse + 64
Case 0: Var_adresse = Var_adresse + 64
End Select
Select Case Adr_128 'Adresse + 128
Case 0: Var_adresse = Var_adresse + 128
End Select
Kannst du die Anschlüsse an PORTA genau anders herum machen, dann kannst du einfach schreiben:
Var_adresse=255-PORTA

Empfzeichen = Inkey()
Hier wir der µC stehenbleiben, wenn auf dem UART nichts anliegt.
Es sieht so aus, als würdest du immer eine kleine Anzahl Zeichen mit einem CHR(13) am Ende übertragen.
Dann kannst du auch den SerialCharMatch benutzen. Geht so:

Code:
Config Serialin = Buffered , Size = 20 , Bytematch = 13
Dim Datenstring as String * 20
Serial0charmatch:
   Daten_count = 0
   Datenstring = ""
   While Ischarwaiting() = 1
      Daten_key = Inkey()
      If Daten_key <> Chr(13) Then
         Incr Daten_count
         If Daten_count < 20 Then
            Datenstring  = Datenstring  + Chr(Daten_key)
         End If
      End If
   Wend
   Clear Serialin
   'Print  Datenstring
Return
Es werden maximal 20 Zeichen gespeichert, falls mehr entsprechend vergrößern.
Falls im Input Puffer ein CHR(13) auftaucht, wird automatisch die ISR Serial0CharMatch angesprungen. Dort werden dann die eingegangenen Zeichen an Datenstring angehängt. So wird der µC nie stehenbleiben.

Probier es mal.

Gruß

Rolf