16-Bit Folge über LPT ausgeben

[BoondockDuckling]

Ja am Delay habe ich auch schon etwas rumgespielt. Ändert aber nichts. (Sollte es ja eigentlich auch nicht)


shl habe ich natürlich auch in shr geändert.

Danke auch für die Erklärung, ich denke das habe ich soweit verstanden.

Sehe ich das richtig dass durch lData := lData shl 1; die bitfolge um eine Stelle vorschoben wird sodass Bit 14 zu Bit 15 wird und so beim nächsten Durchlauf der for-schleife wieder entsprechend bei lBit := ( lData and $8000 ) <> 0; ausgelesen wird?


Fragt sich jetzt eigentlich wo das Problem ist... es muss doch so funktionieren.