TAR1 #SaveAr1
TAR2 #SaveAr2

L W#16#1002
T LW 0
T LW 10

L #Len1
T LW 2
L #Len2
T LW 12

L #DB_No1
T LW 4
L #DB_No2
T LW 14

L #Off1
T LD 6
L B#16#84
T LB 6

L #off2
T LD 16
L W#16#84
T LB 6

L 0
T #Ret_V //out
L #C_Mode //input
JL COMM
JU Exit
JU SAVE
JU LOAD
JU EQU
COMM: JU Exit


SAVE: CALL "BLKMOV"
SRCBLK :=#Any_DB1
RET_VAL:=#Ret_V
DSTBLK :=#Any_DB2
JU Exit

LOAD: CALL "BLKMOV"
SRCBLK :=#Any_DB2
RET_VAL:=#Ret_V
DSTBLK :=#Any_DB1
JU Exit

EQU: L #Len1
L #Len2
T #count1
JC EQU1
TAK
T #count1
EQU1: L #DB_No1
T #DB1_W
OPN DB [#DB1_W]
L #DB_No2
T #DB2_W
OPN DI [#DB2_W]
L #count1
EQU2: T #count1
L DBB [AR1,P#0.0]
L DIB [AR2,P#0.0]
<>I
JC EQU3
+AR1 P#1.0
+AR2 P#1.0
L #count1
LOOP EQU2
JU Exit
EQU3: L 1
T #Ret_V
Exit: LAR1 #SaveAr1
LAR2 #SaveAr2
BE