pm5337_line_sonet_alarms.tcl

用于EOS芯片的驱动程序, 供参考 参考

#------------------------------------------------------------------------------
# FILE NAME: PM5337_LINE_SONET_ALARMS.tcl
#
# DESCRIPTION: 	This file includes the following procedures:
#		1) LINE_SONET_Line_RDI_Insert_Config
#		2) LINE_SONET_Path_RDI_Insert_Config
#               3) LINE_SONET_Line_AIS_Insert_Config
#               4) LINE_SONET_Path_AIS_Insert_Config
#               5) LINE_SONET_LO_RDI_Config
#               6) LINE_SONET_LO_RFI_Config
#               7) LINE_SONET_LO_TAIS_Config
#               8) LINE_SONET_LO_DAIS_Config
#			
# NOTES:
#
# REVISION History:
# Preliminary 1 - Script created
#------------------------------------------------------------------------------
#------------------------------------------------------------------------------
# SCRIPT NAME: LINE_SONET_Line_RDI_Insert_Config
#
# DESCRIPTION:  This procedure configure the alarms
#               the SARC-H block
#
#  PARAMETERS : devID
#               interface - 1 or 2
#               oofen   - 0 to disable, 1 to enable
#               lofen   - 0 to disable, 1 to enable
#               losen   - 0 to disable, 1 to enable
#               laisen  - 0 to disable, 1 to enable 
#               lrdien  - 0 to disable, 1 to enable
#               apsbfen - 0 to disable, 1 to enable
#               stiuen  - 0 to disable, 1 to enable
#               stimen  - 0 to disable, 1 to enable
#               sdberen - 0 to disable, 1 to enable
#               sfberen - 0 to disable, 1 to enable
#               loten   - 0 to disable, 1 to enable 
#               apsoofen- 0 to disable, 1 to enable
#               
#  NOTE : 
#
#------------------------------------------------------------------------------

proc LINE_SONET_Line_RDI_Insert_Config {devID interface oofen lofen 
        losen laisen lrdien apsbfen stiuen stimen sdberen sfberen 
        loten apsoofen} {

 source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl  

  ######################################################
  ### Configure TLRDIINS Output Alarm Defect Enables ###
  ######################################################
  
  # Defining SARC-H Receive Section/Line Enable
  set addr_1485 [expr (0x1485 + (($interface-1)*0x0100))]   
    
  admwrb $devID $addr_1485 0 $oofen
  admwrb $devID $addr_1485 1 $lofen
  admwrb $devID $addr_1485 2 $losen
  admwrb $devID $addr_1485 3 $laisen
  admwrb $devID $addr_1485 4 $lrdien
  admwrb $devID $addr_1485 5 $apsbfen
  admwrb $devID $addr_1485 6 $stiuen
  admwrb $devID $addr_1485 7 $stimen
  admwrb $devID $addr_1485 8 $sdberen
  admwrb $devID $addr_1485 9 $sfberen
  admwrb $devID $addr_1485 10 $loten
  admwrb $devID $addr_1485 11 $apsoofen

}

#------------------------------------------------------------------------------
# SCRIPT NAME: LINE_SONET_Path_RDI_Insert_Config
#
# DESCRIPTION:  This procedure configure the alarms
#               the SARC-H block
#
#  PARAMETERS : devID
#               interface - 1 or 2
#		enable - 0 (disable), 1 (enable)
#		stm1 - 0~3 (STS-3/STM1 #1~#4) [optional]
#		stm0 - 0~2 (STS-1/STM0 #1~#3) [optional]
#               
#  NOTE : 	If no values are specified for stm1 or stm0, then
#		the process configures all tributaries.               
#
#------------------------------------------------------------------------------

proc LINE_SONET_Path_RDI_Insert_Config {devID interface enable {stm1 -1} {stm0 -1}} {

  source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl  

  ########################################################
  ### Configuring THPP Priority Configuration Register ###
  ########################################################
  
  # Defining block name
  if {$interface == 1} {
    set THPP "LINE_SONET::HOPP::THPP_1"
  } elseif {$interface == 2} {
    set THPP "LINE_SONET::HOPP::THPP_2"
  }
      
  # The active high G1 insertion disable (G1INSDIS) register bit 
  # disables the insertion of the data on the PRDI[2:0] and 
  # PREI[3:0] input pins into the POUT[7:0] output stream. When 
  # G1INSDIS is set to logic one, the G1 byte抯 source is other 
  # than the PRDI[2:0] and PREI[3:0] input pins
    
  if {$stm1 == -1 || $stm0 == -1} {
      
    ### No TU specificed. Configure all TU to the same setting
    for {set stm1 0} {$stm1 <= 3} {incr stm1} {
      for {set stm0 0} {$stm0 <= 2} {incr stm0} {
        if {$enable == 0} {
          admindwr $devID $THPP 0x0100 0x01 $stm1 $stm0
        } elseif {$enable == 1} {
          admindwr $devID $THPP 0x0000 0x01 $stm1 $stm0
        }
      }
    }
    # Re-initialize $stm1 and $stm0
    set stm1 -1
    set stm0 -1
  
  } else {
      
    # Configure specific TU
    if {$enable == 0} {
      admindwr $devID $THPP 0x0100 0x01 $stm1 $stm0
    } elseif {$enable == 1} {
      admindwr $devID $THPP 0x0000 0x01 $stm1 $stm0
    }
  }
}

#------------------------------------------------------------------------------
# SCRIPT NAME: LINE_SONET_Line_AIS_Insert_Config

# DESCRIPTION:  This procedure configure the alarms
#               the SARC-H block
#
#  PARAMETERS : devID
#               interface - 1 or 2
#               oofen   - 0 to disable, 1 to enable
#               lofen   - 0 to disable, 1 to enable
#               losen   - 0 to disable, 1 to enable
#               stiuen  - 0 to disable, 1 to enable
#               stimen  - 0 to disable, 1 to enable
#               
#  NOTE : 
#
#------------------------------------------------------------------------------

proc LINE_SONET_Line_AIS_Insert_Config {devID interface oofen lofen 
        losen stiuen stimen} {

  source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl  

  ###############################
  ### Setting RRMP AIS Enable ###
  ###############################
  set addr_0x1337 [expr (0x1337 + (($interface-1)*0x80))]      
  admwrb $devID $addr_0x1337 0 1  
  
  ######################################################
  ### Configure RLAISINS Output Alarm Defect Enables ###
  ######################################################
  
  # Defining SARC-H Receive Section/Line/Path Enable reg 
  set addr_0x1484 [expr (0x1484 + (($interface-1)*0x0100))]   
  
  admwrb $devID $addr_0x1484 0 $oofen
  admwrb $devID $addr_0x1484 1 $lofen
  admwrb $devID $addr_0x1484 2 $losen

  admwrb $devID $addr_0x1484 6 $stiuen
  admwrb $devID $addr_0x1484 7 $stimen

}

#------------------------------------------------------------------------------
# SCRIPT NAME: LINE_SONET_Path_AIS_Insert_Config

# DESCRIPTION:  This procedure configure the alarms
#               the SARC-H block
#
#  PARAMETERS : 
#   General:	devID
#               interface - 1 or 2
#		stm1 - 0~3 (STS-3/STM1 #1~#4) [optional]
#		stm0 - 0~2 (STS-1/STM0 #1~#3) [optional]
#               
#   RPAIS	laisen  - 0 to disable, 1 to enable 
#               lrdien  - 0 to disable, 1 to enable
#               apsbfen - 0 to disable, 1 to enable
#               sdberen - 0 to disable, 1 to enable
#               sfberen - 0 to disable, 1 to enable
#               loten   - 0 to disable, 1 to enable 
#               apsoofen- 0 to disable, 1 to enable
#   RPAISINS:
#               psden    - 0 to disable, 1 to enable
#               psfen    - 0 to disable, 1 to enable
#               ptimen   - 0 to disable, 1 to enable
#               ptiuen   - 0 to disable, 1 to enable 
#               perdien  - 0 to disable, 1 to enable
#               prdien   - 0 to disable, 1 to enable
#               ppdien   - 0 to disable, 1 to enable
#               punequen - 0 to disable, 1 to enable
#               pplmen   - 0 to disable, 1 to enable
#               ppluen   - 0 to disable, 1 to enable
#               paisptren- 0 to disable, 1 to enable 
#               ploptren - 0 to disable, 1 to enable
#               rlaisen  - 0 to disable, 1 to enable
#   TPAISINS:
#               tpaisptren- 0 to disable, 1 to enable 
#               tploptren - 0 to disable, 1 to enable
#               tpaisen   - 0 to disable, 1 to enable
#               
#  NOTE : 	If no values are specified for stm1 or stm0, then
#		the process configures all tributaries.
#-------------------------------------------------------------------------------

proc LINE_SONET_Path_AIS_Insert_Config {devID interface laisen lrdien apsbfen 
        sdberen sfberen loten apsoofen psden psfen ptimen ptiuen perdien prdien 
        ppdien puneqen pplmen ppluen paisptren ploptren rlaisen tpaisptren 
        tploptren tpaisen {stm1 -1} {stm0 -1}} {

  source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl  

  ###################################################
  ### Configure RPAIS Output Alarm Defect Enables ###
  ###################################################
  # Defining block name
  if {$interface == 1} {
    set SARCH "LINE_SONET::HOPP::SARCH_1"
  } elseif {$interface == 2} {
    set SARCH "LINE_SONET::HOPP::SARCH_2"
  }   
  
  # Defining SARC-H Receive Section/Line/Path Enable reg 
  set addr_1484 [expr (0x1484 + (($interface-1)*0x0100))]   
  
  admwrb $devID $addr_1484 3 $laisen
  admwrb $devID $addr_1484 4 $lrdien
  admwrb $devID $addr_1484 5 $apsbfen
  admwrb $devID $addr_1484 8 $sdberen
  admwrb $devID $addr_1484 9 $sfberen
  admwrb $devID $addr_1484 10 $loten
  admwrb $devID $addr_1484 11 $apsoofen

  ######################################################
  ### Configure RPAISINS Output Alarm Defect Enables ###
  ######################################################
  
  set iaddr 0x07
  
  set value [expr [expr $psden << 13]|[expr $psfen << 12]|[expr $ptimen << 11]|\
            [expr $ptiuen << 10]|[expr $perdien << 9]|[expr $prdien << 8]|\
  	    [expr $ppdien << 7]|[expr $puneqen << 6]|[expr $pplmen << 5]|\
  	    [expr $ppluen << 4]|[expr $paisptren << 3]|[expr $ploptren << 2]|$rlaisen]

  if {$stm1 == -1 || $stm0 == -1} {
      
    ### No TU specificed. Configure all TU to the same setting
    for {set stm1 0} {$stm1 <= 3} {incr stm1} {
      for {set stm0 0} {$stm0 <= 2} {incr stm0} {
        admindwr $devID $SARCH $value $iaddr $stm1 $stm0
      }
    }

    # Re-initialize $stm1 and $stm0
    set stm1 -1
    set stm0 -1

  } else {
      
      # Configure specific TU
      admindwr $devID $SARCH $value $iaddr $stm1 $stm0    
  }   
  ######################################################
  ### Configure TPAISINS Output Alarm Defect Enables ###
  ######################################################

  set iaddr 0x08
  set value [expr [expr $tpaisptren << 2]|[expr $tploptren << 1]|$tpaisen]
  
  if {$stm1 == -1 || $stm0 == -1} {
  
    ### No TU specificed. Configure all TU to the same setting
    for {set stm1 0} {$stm1 <= 3} {incr stm1} {
      for {set stm0 0} {$stm0 <= 2} {incr stm0} {
        admindwr $devID $SARCH $value $iaddr $stm1 $stm0
      }
    }
    # Re-initialize $stm1 and $stm0
    set stm1 -1
    set stm0 -1
    
  } else {
  
    # Configure specific TU
    admindwr $devID $SARCH $value $iaddr $stm1 $stm0
  }
}

#------------------------------------------------------------------------------
# SCRIPT NAME: LINE_SONET_LO_RDI_Config

# DESCRIPTION: 	This procedure enables the RDI consequence alarms
#
#  PARAMETERS :	devID
#		            interface - 1, 2
#               PSLURDI_enable - 1 (enable), 0 (disable)
#               PSLMRDI_enable - 1 (enable), 0 (disable)
#               UNEQRDI_enable - 1 (enable), 0 (disable)
#               TIURDI_enable  - 1 (enable), 0 (disable)
#               TIMRDI_enable  - 1 (enable), 0 (disable)
#		            stm1 - 1~4 (STS-3/STM1 #1~#4) [optional]
#		            tug3 -1~3 (TUG3 #1~#3) [optional]
#		            tug2 - 1~7 (TUG2 #1~#7) [optional]
#		            tu - 1~4 (TU #1~#4) [optional]
#		
#  NOTE : 1. If no specific tributary is specified, then the alarm is
#            is set for ALL the tributaries.
#
#
#         2. Because read-modify-write procedure is performed in this script
#            when devID is set to -1, this procedure will not display the
#            read/write sequence.
#
#------------------------------------------------------------------------------