SET
SAVE
= L 0.1
A #xExecute
JCN A7d0
L DIW [AR2,P#10.0]
T LW 2
TAK
OPN DB [LW 2]
L DID [AR2,P#12.0]
LAR1
TAK
L B [AR1,P#11.0]
L B#16#1
AW
T B [AR1,P#11.0]
JU A7d1
A7d0: L DIW [AR2,P#10.0]
T LW 2
TAK
OPN DB [LW 2]
L DID [AR2,P#12.0]
LAR1
TAK
L B [AR1,P#11.0]
L B#16#2
OW
T B [AR1,P#11.0]
A7d1: L 2
L DIW [AR2,P#4.0]
T LW 2
TAK
OPN DB [LW 2]
L DID [AR2,P#6.0]
LAR1
TAK
L B [AR1,P#10.0]
LAR1
TAK
L DW#16#8
>=I
JC I007
TAK
TAR1
SRW
JU I008
I007: L DW#16#0
I008: L B#16#1
AW
L B#16#1
==I
A #xExecute
= #xDone
A L 0.1
SAVE
BE