OPN   DB     6       打开DB6

      L     P#DBX 0.0  //  AR1 指向0.0

      LAR1                

      L     #IN0    如果这个是整数  4 //这里是长整型  其实是L#4

      SLD   5    //  那么就是把4进行操作，SLD 3 得到p#4.0，再移2次，一次*2  得到 16.0

      +AR1       //   前面0.0+16.0

      L     DBD [AR1,P#0.0] // DBD16 

      T     #OUT1

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  OPN   DB    40

      L     P#DBX 0.0

      LAR1  //  AR1 指向0.0

      L     #IN0   //  那么就是把长整型#IN进行操作

      SLD   5  //把SLD 5拆分2次操作 先 SLD 3 得到p##IN.0，再移2次，一次*2  得到 P#（2*#IN0.0）

      +AR1  

      L     #IN1

      T     DBD [AR1,P#0.0]//把#in1 赋值到 DB40.DBD[2*#IN0]