SET  
      SAVE  
      =     L     24.1
      L     #Address
      T     LW    26
      L     DW#16#1002000C
      T     LD    28
      L     W#16#0
      T     LW    32
      L     DW#16#87000000
      T     LD    34
      TAR2  LD    38




      LAR2  LD    38
      L     LW    42
      T     #Return_value_RD
      L     8
      L     LW     0
      LAR1  
      TAK  
      L     DW#16#10
      MOD  
      L     DW#16#0
      ==D  
      JC    I007
      TAK  
      TAR1  
      SLD  
      LAR1  
      L     DW#16#10
      TAK  
      SRD  
      TAR1  
      OD    
      JU    I008
I007: TAR1  
I008: AD    DW#16#FFFF
      T     #Status_word
      CLR  
      A     DIX [AR2,P#40.2]
      =     #Operation_enabled
      A     DIX [AR2,P#40.3]
      =     #Fault_active
      A     DIX [AR2,P#40.6]
      =     #Closing_lockout_active
      A     DIX [AR2,P#40.7]
      =     #Alarm_active
      A     DIX [AR2,P#41.6]
      =     #Rotating_forward
      L     LW     2
      ITD  
      DTR  
      L     1.638400e+004
      /R    
      L     #Reference_speed_P2000
      *R    
      T     #Actual_speed
      L     LW     4
      ITD  
      DTR  
      L     1.638400e+004
      /R    
      L     #Reference_current_P2002
      *R    
      T     #Actual_current
      L     LW     6
      ITD  
      DTR  
      L     1.638400e+004
      /R    
      L     #Reference_torque_P2003
      *R    
      T     #Actual_torque
      L     LW     8
      T     #Actual_alarm
      L     LW    10
      T     #Actual_fault
      A     #Activate_manual_mode
      NOT  
      JCN   A7d0
      A     #ON_OFF1
      =     DIX [AR2,P#38.0]
      A     #OFF2
      =     DIX [AR2,P#38.1]
      A     #OFF3
      =     DIX [AR2,P#38.2]
      SET  
      =     DIX [AR2,P#38.3]
      =     DIX [AR2,P#38.4]
      =     DIX [AR2,P#38.5]
      =     DIX [AR2,P#38.6]
      A     #Acknowledge
      =     DIX [AR2,P#38.7]
      CLR  
      =     DIX [AR2,P#39.0]
      =     DIX [AR2,P#39.1]
      SET  
      =     DIX [AR2,P#39.2]
      A     #Direction_reversal
      =     DIX [AR2,P#39.3]
      CLR  
      =     DIX [AR2,P#39.4]
      =     DIX [AR2,P#39.5]
      =     DIX [AR2,P#39.6]
      =     DIX [AR2,P#39.7]
      L     8
      L     #Control_word
      LAR1  
      TAK  
      L     DW#16#10
      MOD  
      L     DW#16#0
      ==D  
      JC    I009
      TAK  
      TAR1  
      SLD  
      LAR1  
      L     DW#16#10
      TAK  
      SRD  
      TAR1  
      OD    
      JU    I00a
I009: TAR1  
I00a: AD    DW#16#FFFF
      T     LW    12
      L     #Speed_setpoint
      L     #Reference_speed_P2000
      /R    
      L     1.638400e+004
      *R    
      RND  
      T     LW    14
      JU    A7d1
A7d0: L     8
      L     #internal_Control_word
      LAR1  
      TAK  
      L     DW#16#10
      MOD  
      L     DW#16#0
      ==D  
      JC    I00b
      TAK  
      TAR1  
      SLD  
      LAR1  
      L     DW#16#10
      TAK  
      SRD  
      TAR1  
      OD    
      JU    I00c
I00b: TAR1  
I00c: AD    DW#16#FFFF
      T     LW    12
      L     #internal_Setpoint
      L     #Reference_speed_P2000
      /R    
      L     1.638400e+004
      *R    
      RND  
      T     LW    14
A7d1: L     W#16#0
      T     LW    16
      T     LW    18
      T     LW    20
      T     LW    22
      L     #Address
      T     LW    26
      L     DW#16#1002000C
      T     LD    28
      L     W#16#0
      T     LW    32
      L     DW#16#87000060
      T     LD    34
      TAR2  LD    38




      LAR2  LD    38
      L     LW    42
      T     #Return_Value_WR
      A     L     24.1
      SAVE  
      BE