A     #AM//AM为1则CD=100，否则跳到标号M003处

      JCN   M003

      L     100

      T     #CD

M001: L     P#1.0

      T     #piont//point=1.0

      L     #CD

      *D    

      LAR1  //地址寄存器1的值=cd*point

      OPN   "等间距合流块"//打开数据块"等间距合流块"

      L     DBB [AR1,P#0.0]

      T     DBB [AR1,P#1.0]//指针编程，"等间距合流块"中地址寄存器1中的值对应的地址偏移量为1.0处的值="等间距合流块"中地址寄存器1中的值对应的地址偏移量为0.0处的值

      L     #CD

      L     1

      -I    

      T     #CD//cd=cd-1

      L     0

      >=I   

      JC    M001如果cd>0则循环执行前面的程序

      L     #XJJ

      L     11

      >=I   

      JNB   M002如果xjj>=11则跳到标号M002处，否则执行下面的程序

      L     1

      T     "等间距合流块".DB_VAR[0]//"等间距合流块".DB_VAR[0]=1

      L     0

      T     #XJJ//xjj=0

      BE    //程序扫描到这里结束

M002: L     0

      T     "等间距合流块".DB_VAR[0]//"等间距合流块".DB_VAR[0]=0

      BE    //程序扫描到这里结束

M003: BE  //程序扫描到这里结束