0000001e.awl

本程序为化工厂输送系统控制程序 长达15000行

FUNCTION "处理ACU信息" : VOID
TITLE =
//0=停止  兰色  
//1=待机  绿色
//2=运行  红色
//3=异常  黄色
//4=清管  绿色
//5=急停  兰色
VERSION : 0.1


VAR_INPUT
  ACU_STATUS : BYTE ;	
  ACU_FAL : BOOL ;	
END_VAR
VAR_OUTPUT
  ACU_COLOR : WORD ;	//ACU根据输入值要显示的颜色
  ACU_STOP : BOOL ;	//ACU准备好，处于待机状态
  ACU_RUN : BOOL ;	//ACU处于运行状态
  ACU_CLEAN : BOOL ;	//ACU处于清管状态
END_VAR
VAR_TEMP
  ACU_S : INT ;	
  ACU_N : WORD ;	
END_VAR
BEGIN
NETWORK
TITLE =
//0=停止  兰色  
//1=待机  绿色
//2=运行  红色
//3=异常  黄色
//4=清管  绿色
//5=急停  兰色
//
      A(    ; 
      L     #ACU_STATUS; 
      T     #ACU_N; 
      SET   ; 
      SAVE  ; 
      CLR   ; 
      A     BR; 
      )     ; 
      JNB   _001; 
      L     #ACU_N; 
      BTI   ; 
      T     #ACU_S; 
_001: NOP   0; 
NETWORK
TITLE =
//停止 READY
      L     1; 
      L     #ACU_S; 
      ==I   ; 
      =     #ACU_STOP; 
NETWORK
TITLE =
//运行  RUN
      L     2; 
      L     #ACU_S; 
      ==I   ; 
      =     #ACU_RUN; 
NETWORK
TITLE =
//清管  CLEAN
      L     4; 
      L     #ACU_S; 
      ==I   ; 
      =     #ACU_CLEAN; 
NETWORK
TITLE =

      A     #ACU_STOP; 
      JNB   _002; 
      L     B#16#0; 
      T     #ACU_COLOR; 
_002: NOP   0; 
NETWORK
TITLE =
//运行输出
      A     #ACU_RUN; 
      JNB   _003; 
      L     B#16#2; 
      T     #ACU_COLOR; 
_003: NOP   0; 
NETWORK
TITLE =
//清管输出
      A     #ACU_CLEAN; 
      JNB   _004; 
      L     B#16#4; 
      T     #ACU_COLOR; 
_004: NOP   0; 
NETWORK
TITLE =

      A     #ACU_FAL; 
      JNB   _005; 
      L     3; 
      T     #ACU_COLOR; 
_005: NOP   0; 
END_FUNCTION