请求解读此段程序
OPN "接受寄存"
L DB13.DBB 0
L MB 40
<>I
JC N6
L B#16#0
T MB 9
LAR1 P#DBX 0.0
L MW 7
N5: T MW 37
L MB 9
L B [AR1,P#0.0]
XOW
T MB 9
L P#1.0
+AR1
L MW 37
LOOP N5

L MB 9
L B [AR1,P#0.0]
==I
= M 20.2
<>I
N6: = M 20.1
BEU