pm5337_line_sonet_lut.tcl

来自「用于EOS芯片的驱动程序, 供参考 参考」· TCL 代码 · 共 1,387 行 · 第 1/4 页

    admindwr $devID $TBER [dec2hex [expr ($thre << 8)|$ip3]] $addr_0x17C3 $rd2clrintb $type $ber_rate $set_clear 
  
    ### 1.00E-7 Declaration ###
    set type 0x1
    set ber_rate 0x7
    set ip3 0x0
    set ip2 0x0002
    set ip1 0x8C35
    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 0x1
    set ber_rate 0x7
    set ip3 0x0
    set ip2 0x0003
    set ip1 0x37A8
    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 0x1
    set ber_rate 0x8
    set ip3 0x0
    set ip2 0x0019
    set ip1 0x7995
    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 0x1
    set ber_rate 0x8
    set ip3 0x0
    set ip2 0x0020
    set ip1 0x2C4A
    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 0x1
    set ber_rate 0x9
    set ip3 0x0
    set ip2 0x00FE
    set ip1 0xBF5B
    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 0x1
    set ber_rate 0x9
    set ip3 0x0
    set ip2 0x0141
    set ip1 0xBA99
    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 0x1
    set ber_rate 0xA
    set ip3 0x0
    set ip2 0x09F3
    set ip1 0x7915
    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 0x1
    set ber_rate 0xA
    set ip3 0x0
    set ip2 0x0C91
    set ip1 0x49AD
    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 0x1
    set ber_rate 0xB
    set ip3 0x0
    set ip2 0x6382
    set ip1 0xBA54
    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 0x1
    set ber_rate 0xB
    set ip3 0x0
    set ip2 0x7DAC
    set ip1 0xE076
    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 0x1
    set ber_rate 0xC
    set ip3 0x3
    set ip2 0xE31B
    set ip1 0x4748
    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 0x1
    set ber_rate 0xC
    set ip3 0x4
    set ip2 0xE8C0
    set ip1 0xC49C
    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 == "VT6" || $payload == "TU2"} { 
  
    ###################################################
    ### VT6 or TU2 Declaration and Removal Settings ###
    ###################################################
    
    ### 1.00E-3 Declaration ###
    set type 0x0
    set ber_rate 0x3
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0028
    set thre 0x1E
    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 0x0
    set ber_rate 0x3
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0028
    set thre 0x11
    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 0x0
    set ber_rate 0x4
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0066
    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-4 Removal ###
    set type 0x0
    set ber_rate 0x4
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x007A
    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 0x0
    set ber_rate 0x5
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x036A
    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-5 Removal ###
    set type 0x0
    set ber_rate 0x5
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0463
    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 0x0
    set ber_rate 0x6
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x21A6
    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-6 Removal ###
    set type 0x0
    set ber_rate 0x6
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x2B8D
    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 0x0
    set ber_rate 0x7
    set ip3 0x0
    set ip2 0x0001
    set ip1 0x5001
    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-7 Removal ###
    set type 0x0
    set ber_rate 0x7
    set ip3 0x0
    set ip2 0x0001
    set ip1 0xB332
    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 0x0
    set ber_rate 0x8
    set ip3 0x0
    set ip2 0x000D
    set ip1 0x1F8F
    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-8 Removal ###
    set type 0x0
    set ber_rate 0x8
    set ip3 0x0
    set ip2 0x0010
    set ip1 0xFFA7
    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 0x0
    set ber_rate 0x9
    set ip3 0x0
    set ip2 0x0083
    set ip1 0x3B14
    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-9 Removal ###
    set type 0x0
    set ber_rate 0x9
    set ip3 0x0
    set ip2 0x00A9
    set ip1 0xFC35
    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 ###