Dein Problem ist diese Zuweisung

D = Lookup(n , Value_table)

D ist eine Word-Variable, also 2 byte.
Bascom nimmt nun an, dass du auch 2 Byte aus den Daten einlesen willst. Entsprechend werden auch die Adressen berechnet und es kommt daher immer nur jede zweite Zahl. Der Port kann nur Byte verarbeiten und lässt das höherwertige Byte einfach weg.
Wenn du D als Byte deklarierst, wird es gehen.