SET                           //置1，RLO

      SAVE  

      A     #Enable    

      JCN   end                //   #enable为0，结束；否则，往下执行；

      TAR1  #AR1_STORE        //  传送AR1值到# AR1_STORE

      TAR2                                  //ACC1传送到AR2

      T     #AR2_STORE            // ACC1传送到 #AR2_STORE

      L     P##Time_P

      LAR1                      //#Time_P传送到AR1

      L     W [AR1,P#0.0]    // 寄存器间接寻址，#Time_P的地址加#0.0后所指的地址内容传送到#DB_Open

      T     #DB_Open

      OPN   DB [#DB_Open]      //打开DB块

      L     D [AR1,P#2.0]          // AR1+#2.0

//      OD    DW#16#1000000     //或字指令，保存所有为1的位

      LAR1      // 装载到AR1

      L     #timeT1

      L     T#0MS

      <=D       // timeT1<=0ms为1，跳转a1，否则往下执行

      JC    a1

      TAK      // AC1和AC2内容交换

      L     T#32S767MS   //装载时间值

      <=D           //#timeT1<=T#32S767MS,RLO=0，跳转

      JCN   a1

      TAK     //...

a1:   T     #S5T_ms

      L     #P_t1

      L     T#0MS

      <=D                     //...

      JC    a2

      TAK                   //..

      L     T#32S767MS

      <=D                  //....

      JCN   a2

      TAK                 //....

a2:   T     #P_t_ms

      L     W [AR1,P#0.0]      //寄存器寻址

      T     #TimeT

      L     W [AR1,P#2.0]

      T     #FP_t