pm5337_line_sonet_lut.tcl

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

#------------------------------------------------------------------------------
# FILE NAME: PM5337_LINE_SONET_LUT.tcl
#
# DESCRIPTION: 	This file includes the following procedures:
#		1) LINE_SONET_TBER_LUT_Config
#			
# NOTES:
#
# REVISION History:
# Preliminary 1 - Script created
#------------------------------------------------------------------------------
#------------------------------------------------------------------------------
# SCRIPT NAME:	LINE_SONET_TBER_LUT_Config
#
# DESCRIPTION:	This procedure configures the TBER Look Up Tables with the value
#               summarized in the Configuration Guide.
#		
# PARAMETERS:	devID - This parameter is used to specify the device 
#                       under configuration	
#
#               intf - 1 (interface 1), 2 (interface 2)
#
#               payload - VT15, TU11, VT2, TU12, VT3, VT6, TU2, TU3
#		
# NOTES:  
#
#------------------------------------------------------------------------------
  
proc LINE_SONET_TBER_LUT_Config {devID intf payload} { 

  source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl       
  
  ####################################################
  ##### Determine which TBER Block to Initialize #####
  ####################################################
    
  if {$intf == 1} {
    set TBER LINE_SONET::LOPP::TBER_LOOKUP_1           
  } elseif {$intf == 2} {
    set TBER LINE_SONET::LOPP::TBER_LOOKUP_2
  }
  
  # Defining address offset
  set addr_0x17C1 [dec2hex [expr 0x17C1 + (($intf - 1)* 0x200)]]
  set addr_0x17C2 [dec2hex [expr 0x17C2 + (($intf - 1)* 0x200)]]
  set addr_0x17C3 [dec2hex [expr 0x17C3 + (($intf - 1)* 0x200)]]
  
  #################################
  ##### Initialize TBER block #####    
  #################################
  
  set rd2clrintb 1
  
  if {$payload == "VT15" || $payload == "TU11"} {
  
    ######################################################
    ### VT1.5 or TU11 Declaration and Removal Settings ###
    ######################################################
    
    ### 1.00E-3 Declaration ###
    set type 0x3
    set ber_rate 0x3
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0028
    set thre 0x10
    set set_clear 0  
    
      
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-3 Removal ###
    set type 0x3
    set ber_rate 0x3
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x002D
    set thre 0x07
    set set_clear 1
    
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-4 Declaration ###
    set type 0x3
    set ber_rate 0x4
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0162
    set thre 0x10
    set set_clear 0
      
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-4 Removal ###
    set type 0x3
    set ber_rate 0x4
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0190
    set thre 0x0A
    set set_clear 1
    
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-5 Declaration ###
    set type 0x3
    set ber_rate 0x5
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x00D59
    set thre 0x10
    set set_clear 0
      
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-5 Removal ###
    set type 0x3
    set ber_rate 0x5
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0F7A
    set thre 0x0A
    set set_clear 1
    
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
  
    ### 1.00E-6 Declaration ###
    set type 0x3
    set ber_rate 0x6
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x84FE
    set thre 0x10
    set set_clear 0
      
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-6 Removal ###
    set type 0x3
    set ber_rate 0x6
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x9A7E
    set thre 0x0A
    set set_clear 1
    
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
  
    ### 1.00E-7 Declaration ###
    set type 0x3
    set ber_rate 0x7
    set ip3 0x0
    set ip2 0x0005
    set ip1 0x3171
    set thre 0x10
    set set_clear 0
      
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-7 Removal ###
    set type 0x3
    set ber_rate 0x7
    set ip3 0x0
    set ip2 0x0006
    set ip1 0x08A5
    set thre 0x0A
    set set_clear 1
    
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
  
    ### 1.00E-8 Declaration ###
    set type 0x3
    set ber_rate 0x8
    set ip3 0x0
    set ip2 0x0033
    set ip1 0xEDF1
    set thre 0x10
    set set_clear 0
      
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-8 Removal ###
    set type 0x3
    set ber_rate 0x8
    set ip3 0x0
    set ip2 0x003C
    set ip1 0x562E
    set thre 0x0A
    set set_clear 1
    
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-9 Declaration ###
    set type 0x3
    set ber_rate 0x9
    set ip3 0x0
    set ip2 0x0207
    set ip1 0x4AF0
    set thre 0x10
    set set_clear 0
      
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-9 Removal ###
    set type 0x3
    set ber_rate 0x9
    set ip3 0x0
    set ip2 0x025B
    set ip1 0x5D84
    set thre 0x0A
    set set_clear 1
    
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-10 Declaration ###
    set type 0x3
    set ber_rate 0xA
    set ip3 0x0
    set ip2 0x1448
    set ip1 0xECEB
    set thre 0x10
    set set_clear 0
      
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-10 Removal ###
    set type 0x3
    set ber_rate 0xA
    set ip3 0x0
    set ip2 0x1791
    set ip1 0xA6E4
    set thre 0x0A
    set set_clear 1
    
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-11 Declaration ###
    set type 0x3
    set ber_rate 0xB
    set ip3 0x0
    set ip2 0xCAD9
    set ip1 0x40B2
    set thre 0x10
    set set_clear 0
      
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-11 Removal ###
    set type 0x3
    set ber_rate 0xB
    set ip3 0x0
    set ip2 0xEBB0
    set ip1 0x849F
    set thre 0x0A
    set set_clear 1
    
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-12 Declaration ###
    set type 0x3
    set ber_rate 0xC
    set ip3 0x7
    set ip2 0xEC7C
    set ip1 0x86F4
    set thre 0x10
    set set_clear 0
      
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-12 Removal ###
    set type 0x3
    set ber_rate 0xC
    set ip3 0x9
    set ip2 0x34E5
    set ip1 0x2E36
    set thre 0x0A
    set set_clear 1
    
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
  
  } elseif {$payload == "VT2" || $payload == "TU12"} { 
  
    ####################################################
    ### VT2 or TU12 Declaration and Removal Settings ###
    ####################################################
    
    ### 1.00E-3 Declaration ###
    set type 0x2
    set ber_rate 0x3
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0028
    set thre 0x12
    set set_clear 0  
      
    admindwr $devID $TBER $ip1 $addr_0x17C1 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER $ip2 $addr_0x17C2 $rd2clrintb $type $ber_rate $set_clear
    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
    
    ### 1.00E-3 Removal ###
    set type 0x2
    set ber_rate 0x3
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0028
    set thre 0x08
    set set_clear 1