Wolfgang Pavel: Zuse-Z22-Simulation: Beispiel 04a
Direktes zeichenweises Kopieren eines Lochstreifens vom Abtaster zum Stanzer mit Wiederholungsbefehl EKs-n

Was auf dem Lochstreifen steht:
(Das Trennzeichen kann entweder Zwischenraum oder NeueZeile sein.)
T3000T​•​LA0​•​E2004​•​
T2000T​•​B22+3000​•​B23+3001​•​B20​•​E23-33​•​T19​•​E2002​•​
EZ2000E​•​

Besonders betroffene Themen:
► Lochstreifen herstellen und verarbeiten (insbesondere: zeichenweise abarbeiten)
► Ausgabe auf Lochstreifenstanzer (insbesondere Ausgabe einzelner Schriftzeichen)
► Wiederholungsbefehle

Was es tun soll:
Bei der Wahl dieses Beispiels ist bereits ein Lochstreifen in den Abtaster eingelegt (Inhalt: ABC NeueZeile 123 NeueZeile); man kann diesen aber auch »entnehmen« und einen anderen nach eigener Wahl einlegen.
Das Programm liest ein Zeichen nach dem anderen vom Abtaster: mit dem Befehl B20 wird die Lochkombination des Zeichens als Dualzahl in die untersten 5 Bits des Akkus gebracht. Dann verschiebt das Programm diese Dualzahl um 33 Bits nach links in die obersten 5 Bits des Akkus, was für die Ausgabe auf den Stanzer Voraussetzung ist; diese erfolgt dann mit T19.
Die Beispielvariante 4a führt die Verschiebung aus, indem sie den Befehl LA0 33-mal in einer Kernspeicherschleife ausführt, was 66 Takte erfordert.
Wie es gespeichert und ausgeführt wird:
Trommel-
adresse
ExternInternErläuterung
T3000TDie beiden für die Kernspeicherschleife notwendigen Befehle
3000LA0LLRAK0+0Linksverschiebung um 1 Bit
3001E2004E+2004Weiter im Programm auf der Trommel
T2000TStart Programm
2000B22+3000NA22+3000Bringt Inhalt von 3000 (LA0) in Schnellspeicher 22
2001B23+3001NA23+3001Bringt Inhalt von 3001 (E2004) in Schnellspeicher 23
2002B20NAK20+0Lochung im Abtaster wird in die untersten 5 Bits des Akkus gebracht
2003E23-33EK22+8159Führt Befehl in Kernspeicher 22 33-mal aus: verschiebt in die obersten 5 Bits
2004T19NUK19+0Transportiert Lochung zum Stanzer
2005E2002E0+2002Wiederholt das Ganze mit dem nächsten Zeichen (solange, bis der Lochstreifen zu Ende ist)
EZ2000EProgrammstart