pm5337_line_sonet_lut.tcl

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

    set type 0x0
    set ber_rate 0xA
    set ip3 0x0
    set ip2 0x0520
    set ip1 0x4E4A
    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-10 Removal ###
    set type 0x0
    set ber_rate 0xA
    set ip3 0x0
    set ip2 0x06A3
    set ip1 0xD9BF
    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 0x0
    set ber_rate 0xB
    set ip3 0x0
    set ip2 0x3343
    set ip1 0x0E61
    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-11 Removal ###
    set type 0x0
    set ber_rate 0xB
    set ip3 0x0
    set ip2 0x4266
    set ip1 0x8123
    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 0x0
    set ber_rate 0xC
    set ip3 0x2
    set ip2 0x009E
    set ip1 0x8FCA
    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-12 Removal ###
    set type 0x0
    set ber_rate 0xC
    set ip3 0x2
    set ip2 0x9801
    set ip1 0x0B5E
    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 == "TU3"} { 
   
    ############################################
    ### TU3 Declaration and Removal Settings ###
    ############################################
    
    ### 1.00E-3 Declaration ###
    set type 0x4
    set ber_rate 0x3
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0005
    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 0x4
    set ber_rate 0x3
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0006
    set thre 0x0E
    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 0x4
    set ber_rate 0x4
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0019
    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 0x4
    set ber_rate 0x4
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0023
    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-5 Declaration ###
    set type 0x4
    set ber_rate 0x5
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x00F3
    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 0x4
    set ber_rate 0x5
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x014D
    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-6 Declaration ###
    set type 0x4
    set ber_rate 0x6
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0968
    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 0x4
    set ber_rate 0x6
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x0CF1
    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-7 Declaration ###
    set type 0x4
    set ber_rate 0x7
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x5DFD
    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 0x4
    set ber_rate 0x7
    set ip3 0x0
    set ip2 0x0000
    set ip1 0x8159
    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-8 Declaration ###
    set type 0x4
    set ber_rate 0x8
    set ip3 0x0
    set ip2 0x0003
    set ip1 0xABCA
    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 0x4
    set ber_rate 0x8
    set ip3 0x0
    set ip2 0x0005
    set ip1 0x0D67
    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-9 Declaration ###
    set type 0x4
    set ber_rate 0x9
    set ip3 0x0
    set ip2 0x0024
    set ip1 0xB5D5
    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 0x4
    set ber_rate 0x9
    set ip3 0x0
    set ip2 0x0032
    set ip1 0x85FB
    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-10 Declaration ###
    set type 0x4
    set ber_rate 0xA
    set ip3 0x0
    set ip2 0x016F
    set ip1 0x1A3E
    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-10 Removal ###
    set type 0x4
    set ber_rate 0xA
    set ip3 0x0
    set ip2 0x01F9
    set ip1 0x3BBD
    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-11 Declaration ###
    set type 0x4
    set ber_rate 0xB
    set ip3 0x0
    set ip2 0x0E57
    set ip1 0x065C
    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-11 Removal ###
    set type 0x4
    set ber_rate 0xB
    set ip3 0x0
    set ip2 0x13BC
    set ip1 0x5550
    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-12 Declaration ###
    set type 0x4
    set ber_rate 0xC
    set ip3 0x0
    set ip2 0x8F66
    set ip1 0x3F98
    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-12 Removal ###
    set type 0x4
    set ber_rate 0xC
    set ip3 0x0
    set ip2 0xC55B
    set ip1 0x5520
    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   
  }   
}