pm5337_line_sonet_lut.tcl

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

    
    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 0x2
    set ber_rate 0x4
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x010B
    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 0x2
    set ber_rate 0x4
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0148
    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 0x2
    set ber_rate 0x5
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x09EE
    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 0x2
    set ber_rate 0x5
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0C81
    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 0x2
    set ber_rate 0x6
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x62CF
    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 0x2
    set ber_rate 0x6
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x7CC1
    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 0x2
    set ber_rate 0x7
    set ip3 0x0
    set ip2 0x0003
    set ip1 0xDB99
    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 0x2
    set ber_rate 0x7
    set ip3 0x0
    set ip2 0x0004
    set ip1 0xDF3D
    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 0x2
    set ber_rate 0x8
    set ip3 0x0
    set ip2 0x0026
    set ip1 0x9383
    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 0x2
    set ber_rate 0x8
    set ip3 0x0
    set ip2 0x0030
    set ip1 0xB814
    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 0x2
    set ber_rate 0x9
    set ip3 0x0
    set ip2 0x0181
    set ip1 0xC2A7
    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 0x2
    set ber_rate 0x9
    set ip3 0x0
    set ip2 0x01E7
    set ip1 0x307D
    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 0x2
    set ber_rate 0xA
    set ip3 0x0
    set ip2 0x0F11
    set ip1 0x9A11
    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 0x2
    set ber_rate 0xA
    set ip3 0x0
    set ip2 0x1307
    set ip1 0xE494
    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 0x2
    set ber_rate 0xB
    set ip3 0x0
    set ip2 0x96B0
    set ip1 0x0430
    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 0x2
    set ber_rate 0xB
    set ip3 0x0
    set ip2 0xBE4E
    set ip1 0xED7B
    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 0x2
    set ber_rate 0xC
    set ip3 0x5
    set ip2 0xE2E0
    set ip1 0x29E0
    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 0x2
    set ber_rate 0xC
    set ip3 0x7
    set ip2 0x6F15
    set ip1 0x46CE
    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 == "VT3"} { 
  
    ############################################
    ### VT3 Declaration and Removal Settings ###
    ############################################
    
    ### 1.00E-3 Declaration ###
    set type 0x1
    set ber_rate 0x3
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0028
    set thre 0x16
    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 0x1
    set ber_rate 0x3
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0028
    set thre 0x0C
    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 0x1
    set ber_rate 0x4
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x00B5
    set thre 0x11
    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 0x1
    set ber_rate 0x4
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x00EB
    set thre 0x0B
    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 0x1
    set ber_rate 0x5
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0693
    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 0x1
    set ber_rate 0x5
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0845
    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 0x1
    set ber_rate 0x6
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x4145
    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 0x1
    set ber_rate 0x6
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x5265
    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