FC15：

L 19
T #temp2
L 5
m003: T #temp1
OPN DB2
L P#DBX 2.0
LAR1
L P#DBX 6.0
LAR2
L #temp2
m001: T #temp0
L DBD [AR1,P#0.0]
L DBD [AR2,P#0.0]
>=R
JC m002
L DBD [AR1,P#0.0]
T #temp
L DBD [AR2,P#0.0]
T DBD [AR1,P#0.0]
L #temp
T DBD [AR2,P#0.0]
m002: +AR1 P#4.0
+AR2 P#4.0
L #temp0
LOOP m001
L #temp2
L 1
-I
T #temp2
L #temp1
LOOP m003