TAR1 #TEMP5
L P##IN0
LAR1
L P##IN1
LAR2
L W [AR1,P#0.0]
T LW 0
OPN DB [LW 0]
L D [AR1,P#2.0]
LAR1
L W [AR2,P#0.0]
T LW 0
OPN DI [LW 0]
L D [AR2,P#2.0]
OD DW#16#1000000
LAR2
SET
SAVE
L B [AR1,P#0.0]
T #TEMP2
AW W#16#6666
PUSH
JZ M001
SLW 1
L #TEMP2
AW
AW W#16#8888
JN M002
TAK
AW W#16#4444
SLW 1
L #TEMP2
AW
JN M002
M001: L B [AR2,P#0.0]
T #TEMP3
AW W#16#6666
PUSH
JZ M003
SLW 1
L #TEMP3
AW
AW W#16#8888
JN M002
TAK
AW W#16#4444
SLW 1
L #TEMP3
AW
JN M002
M003: L 89
L #TEMP2
BTI
JC M004
+ 100
M004: T #TEMP2
L 89
L #TEMP3
BTI
JC M005
+ 100
M005: T #TEMP3
L #TEMP2
JC M006
>I
JC M007
L 7
M008: T #TEMP4
L B [AR1,P#1.0]
L B [AR2,P#1.0]
JC M007
>I
JC M006
+AR1 P#1.0
+AR2 P#1.0
L #TEMP4
LOOP M008
M007: R #RET_VAL
JU M009
M006: S #RET_VAL
JU M009
M002: CLR
SAVE
M009: LAR1 #TEMP5
BE