Netzwerk 1: Register sichern
L DBNO // DB-Register
T #DB_REGISTER
TAR1 #AR1_REGISTER // AR1-Register
Netzwerk 2: Bubblesort
AUF #DATENBAUSTEIN // Datenbaustein
L #STARTADRESSE // Startadresse
ITD
SLD 3
T #BEREICHSZEIGER // Bereichszeiger
L #BLOCKANZAHL // Blockanzahl
L 1
-I
M01: T #SCHLEIFE_1
L #BEREICHSZEIGER // Bereichszeiger
LAR1
L #SCHLEIFE_1
M02: T #SCHLEIFE_2
L 0
L DBD [AR1,P#0.0] // Wert 1-1
==D
SPB M04
L 0
L DBD [AR1,P#8.0] // Wert 2-1
==D
SPB M03
L DBD [AR1,P#0.0] // Wert 1-1
<D
SPBN M03
M04: L DBD [AR1,P#0.0] // Wert 1-1
L DBD [AR1,P#8.0] // Wert 2-1
T DBD [AR1,P#0.0] // Wert 2-1 => Wert 1-1
TAK
T DBD [AR1,P#8.0] // Wert 1-1 => Wert 2-1
L DBD [AR1,P#4.0] // Wert 1-2
L DBD [AR1,P#12.0] // Wert 2-2
T DBD [AR1,P#4.0] // Wert 2-2 => Wert 1-2
TAK
T DBD [AR1,P#12.0] // Wert 1-2 => Wert 2-2
M03: L P#8.0
+AR1
L #SCHLEIFE_2
LOOP M02
L #SCHLEIFE_1
LOOP M01
Netzwerk 3: Register wiederherstellen
AUF DB [#DB_REGISTER]
LAR1 #AR1_REGISTER