Code:
$regfile = "m8def.dat"
$crystal = 8000000

Config PortD = Output 'PortD ist mit den Kathoden belegt
Config PortB = Output 'PortB sind die Transistoren

PortD.4 = 0 'D.4 ist an Pin 10
PortD.5 = 0 'D.5 ist an Pin 12
PortD.6 = 1
PortD.7 = 1
PortD.0 = 1
PortD.1 = 1
PortD.2 = 1
PortD.3 = 1

PortB.5 = 0 'B.5 ist an der Basis des Transistors der ersten Displaystelle
PortB.3 = 1 'B.3 ist an der Basis des Transistors der zweiten Stelle
PortB.1 = 1 'B.1 ist an der Basis des Transistors der dritten Stelle

Do

Loop
So oder wie? Oder muss der Kram in die Hauptschleife?

Gruß, Björn