NETwork1:

TAR1 #tmpSaveAR1
TAR2 #tmpSaveAR2

L DBNO
T #tmpDBNO

L DINO
T #tmpDINO

NETwork2:

L #DBData
T #tmpDataDbNo

L #AddressOnMDS
T #tmpMDSAddress

CLR
= #tmpFin

L #DBRFIDParameter
T #tmpParameterDbNo
L 0
==I
JC END

OPN DB [#tmpParameterDbNo]

L DBW 20
L DBW 18
==I
= #tmpGroupActive
L P#22.0
+D
LAR1

AN #Last
JC A999
L DBW 18
+ 1
T DBW 18

A999: NOP 0

NETwork3

A #Start
AN #tmpGroupActive
AN DBX 320.0
AN DBX 320.4
AN DBX [AR1,P#0.0]
JC STRT

AN #Last
JC END

A DBX [AR1,P#0.0]
JC FIN

AN #tmpGroupActive
JC END

AN #Start
S DBX 320.7

AN DBX 320.4
AN DBX 118.6
AN DBX 9.1
JC END
L -1
T DBW 20
R DBX 320.0

FIN: AN #Start
O DBX 320.7
O DBX 118.6
O DBX 9.1
JC REST

S #tmpFin
S DBX [AR1,P#0.0]
JU END

REST: R #tmpFin
R DBX [AR1,P#0.0]
R DBX 320.7
L 0
T DBB 16
JU END

STRT: NOP 0
NETwork3
L W#16#0
L DBB 16
<>I
JC D000
L 1
D000: T #tmpCounterInput
L 10
==I
S DBX 9.7
JC END
TAK

NETword4:

L W#16#0
L DBB 16
<>I
JC D000
L 1
D000: T #tmpCounterInput
L 10
==I
S DBX 9.7
JC END
TAK

NETword5

L #tmpCounterInput
L 1
-I
L 10
*I
L 150
+I
SLD 3
LAR1

L #tmpCounterInput
L 1
-I
L 6
*I
L 250
+I
SLD 3
LAR2

NETword6:

A(
L #Command
L B#16#49
==I
)
O(
L #Command
L B#16#69
==I
)
JCN F001
L W#16#8000
T #tmpMDSAddress
L B#16#3
T #tmpCommand_r_w_i
JU F003
F001: A(
L #Command
L B#16#52
==I
)
O(
L #Command
L B#16#72
==I
)
JCN F002
L B#16#2
T #tmpCommand_r_w_i
JU F003
F002: A(
L #Command
L B#16#57
==I
)
O(
L #Command
L B#16#77
==I
)
JCN G000
L B#16#1
T #tmpCommand_r_w_i

F003: A #Last
O #PointerCommand
JC F004

L #tmpCommand_r_w_i
L W#16#40
+I
T #tmpCommand_r_w_i

F004: T DBB [AR1,P#0.0]
L #Length
T DBW [AR1,P#2.0]
L #tmpMDSAddress
T DBW [AR1,P#4.0]
L #tmpDataDbNo
T DBW [AR1,P#6.0]
L #AddressInDBData
T DBW [AR1,P#8.0]

AN #PointerCommand
JC G000

A #PointerCommand
= DBX [AR2,P#0.0]
L #LengthPointer
T DBW [AR2,P#2.0]
L #AddressInDBDataPointer
T DBW [AR2,P#4.0]

NETword7：

G000: A #Last
JC G001
L #tmpCounterInput
+ 1
T DBB 16
JU END

G001: L W#16#0
T DBB 16
L DBW 18
+ -1
T DBW 20
= DBX 320.0

NETwork8:

END: OPN DB [#tmpDBNO]
OPN DI [#tmpDINO]
A #tmpFin
= #Fin
LAR1 #tmpSaveAR1
LAR2 #tmpSaveAR2

SET
SAVE
这是个被调用 的程序，我想请问哈最前面的TAR1，TAR2指令起什么作用，把什么数传送到累加器了，L DBNO, L DINO 又是装载的那些数据块编号？