Code: Alles auswählen
outa[HW#D7..HW#D0] := 0 ' Datenbus auf 0 setzen
Code: Alles auswählen
waitpeq(1<HW#BEL_CS + 1<HW#BUS_WR, 1<HW#BUS_WR, 0) '/CS + WR
Ansonnsten muß ich noch Konstanten Anlegen.
Dein Code ist natürlich richtig.
