求高手帮我讲解下这段程序：
LAR1 P##INO_A_MOD_MC //指针指向DB1000.DBX76.0开始的12个字节
L D [AR1,P#6.0] //不懂啥意思
L DW#16#83000018
==D
JC ubea
L W [AR1,P#4.0]
T #TMP_ANYP.DB_NR
L D [AR1,P#6.0]
T #TMP_ANYP.BEREICH
OPN DB [#TMP_ANYP.DB_NR]
LAR1 #TMP_ANYP.BEREICH
L DBD [AR1,P#0.0]
LAR1 P##MOD_MC
T DID [AR1,P#0.0] //只打开DB1000，为什么有DBD又有DID？
LAR1 #TMP_ANYP.BEREICH
L DBW [AR1,P#4.0] //前面P#0.0，这里又有P#4.0，这是做什么呢？
LAR1 P##MOD_MC
T DIW [AR1,P#4.0]
ubea: NOP 0