SET
SAVE
= L 6.1
L DIW [AR2,P#68.0]
T LW 8
TAK
OPN DB [LW 8]
L DID [AR2,P#70.0]
LAR1
TAK
A [AR1,P#0.0]
JCN A7d0
L 1
T #i
A7d1: L #i
L 8
<=I
JCN A7d0
L 1
T #j
A7d3: L #j
L 8
<=I
JCN A7d4
L #i
ITD
L L#1
-D
L L#8
*D
L #j
ITD
+D
L L#1
-D
L L#16
*D
L L#16
+D
L 0
T LD 8
TAK
T LD 14
TAK
L DIW [AR2,P#68.0]
T LW 12
TAK
OPN DB [LW 12]
L DID [AR2,P#70.0]
L LD 14
+D
LAR1
L LD 8
T W [AR1,P#0.0]
L #j
L 1
+I
T #j
JU A7d3
A7d4: L #i
L 1
+I
T #i
JU A7d1
A7d0: L DIW [AR2,P#68.0]
T LW 8
TAK
OPN DB [LW 8]
L DID [AR2,P#70.0]
LAR1
TAK
CLR
A [AR1,P#0.1]
JCN A7d5
L 1
T #i
A807: CLR
A L 6.1
SAVE
BE