Hallo dremeier,

du hast die Umwandlung doch als Kommentar schon drin:
'A = Makebcd(i)

Dann schickst du die unteren 4 Bits an Portb und die oberen 4 Bits (um 4 nach rechts geschoben) an Portc.

Gruß Dirk