Kleine Anmerkung zur Portkonfiguration:
Du kannst die Ports insgesamt mit "Config Portx = Input" /// "Config Porty = Output" als Ein- oder Ausgang definieren.
Sollen an einem Port einige Pin's als Eingang und einige als Ausgang definiert werden sähe das dann so aus.
Config Portx = &B11110000
Hier sind Pin 0 bis 3 als Eingang und Pin 4 bis 7 als Ausgang geschaltet.
Deine Variante geht freilich auch, erzeugt aber etwas mehr Schreibarbeit. Ob es mehr Code erzeugt entzieht sich meiner Kenntniss