L     350                         //打开数据块
      T     #PHASE
      OPN   DB [#PHASE]
      OPN   DI   351
      LAR1  P#0.0                       //地址初始化
      LAR2  P#0.0
      L     0
      T     MW  2000
      L     65                          //循环次数

NEXT: T     MW  2000                    //循环次数地址

STAT: L     DBW [AR1,P#0.0]             //DB300的地址
      L     1
      ==I  
      JC    NOP

      A     "完成"
      JC    NOP

      A     M   1820.1                  //查找急停步号
      JCN   E1
      A     M   1820.1
      A(   
      L     DBW [AR1,P#0.0]
      L     6                           //查找阶段号
      ==I  
      )    
      A(   
      L     DBW [AR1,P#2.0]             //查找步号
      L     1
      ==I  
      )    
      JCN   NOP                         //未找到继续查找
      A     M   1820.1
      R     M   1820.1                  //找到复位急停命令
      JC    CON                         //找到执行子程序

E1:   A     M   1820.2                  //查找暂停步号
      JCN   CON
      A     M   1820.2
      A(   
      L     DBW [AR1,P#0.0]             //查找阶段号
      L     3
      ==I  
      )    
      A(   
      L     DBW [AR1,P#2.0]             //查找步号
      L     1
      ==I  
      )    
      JCN   NOP                         //未找到继续查找
      A     M   1820.2
      R     M   1820.2                  //找到复位暂停命令
      JC    CON                         //找到执行子程序

CON:  L     DBW [AR1,P#0.0]
      T     #A1
      L     #A1
      T     MW  1400                    //AR2指针地址，P#0.0偏移量

      L     DBW [AR1,P#2.0]
      T     DIW    2                    //AR2指针地址，P#0.0偏移量

      L     DBD [AR1,P#4.0]
      T     DID    4                    //AR2指针地址，P#0.0偏移量

      L     DBD [AR1,P#24.0]
      T     DID   24

      L     "当前温度"
      T     MD  1564

      O     M   1820.1                  //检测到有急停或暂停命令跳转
      O     M   1820.2
      JC    STAT

      A     "完成"
      JCN   wh

      L     MW  2000                    //未检测到急停或暂停命令执行下一步
      L     0
      >=I  
      JC    NOP

NOP:  A     "启动"
      R     "启动"

      LAR1  P#34.0

      L     MW  2000                    //检测是否循环完成
      LOOP  NEXT

wh:   NOP   0
      A     "完成"
      JC    NOP