pm5337_eos.tcl

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

    admwrb $devID 0xE346 0 1
    admwrb $devID 0xE347 0 1
    admwrb $devID 0xE348 0 1
    admwrb $devID 0xE349 0 1
    admwrb $devID 0xE34A 0 1
    admwrb $devID 0xE34B 0 1        
    
    ########################
    ### TTOP336 Settings ###
    ########################    
    
    # TTOP336 Settings
     for {set stm1 1} {$stm1 <= 4} {incr stm1} {
      for {set tug3 1} {$tug3 <= 3} {incr tug3} {
        for {set tug2 1} {$tug2 <= 7} {incr tug2} {
          for {set tu 1} {$tu <= 4} {incr tu} {
            
            set stm1 [dec2hex $stm1]
            set tug3 [dec2hex $tug3]
            set tug2 [dec2hex $tug2]
            set tu [dec2hex $tu]
            
            # Set TRIB_RESET to '1'
            admindwr $devID EOS::LOHO_SONET::TTOP336_EOS 0x8030 0xE382 $stm1 $tug3 $tug2 $tu
          
          }
        }
      }
    }                  
           
  } elseif {$payload == "VT15"} {
    ### Configuration for VT1.5 ###
    set activeTU 0x4
    
    # Subsystem level configuration
    admwr $devID 0xE030 0x2FFF0000
    admwr $devID 0xE031 0x0FFF0000
    
    # TVCP payload configuration
    admwr $devID 0xE501 0xFFFF  ;# STS3_1
    admwr $devID 0xE502 0xFFFF	;# STS3_2
    admwr $devID 0xE503 0xFFFF	;# STS3_3
    admwr $devID 0xE504 0xFFF0	;# TUG3
    admwr $devID 0xE505 0x0000	;# HO_SEL     
    
    # RVCP payload configuration
    admwr $devID 0xE401 0xFFFF  ;# STS3_1
    admwr $devID 0xE402 0xFFFF  ;# STS3_2
    admwr $devID 0xE403 0xFFFF  ;# STS3_3
    admwr $devID 0xE404 0xFFF0  ;# TUG3
    admwr $devID 0xE405 0x0000  ;# HO_SEL
    
    # [AL] Added Jan 05, 2006
    #####################
    ### SIRP Settings ###
    #####################    
  
    # SIRP Settings    
    admwrb $devID 0xE340 0 1 
    admwrb $devID 0xE341 0 1
    admwrb $devID 0xE342 0 1
    admwrb $devID 0xE343 0 1
    admwrb $devID 0xE344 0 1
    admwrb $devID 0xE345 0 1
    admwrb $devID 0xE346 0 1
    admwrb $devID 0xE347 0 1
    admwrb $devID 0xE348 0 1
    admwrb $devID 0xE349 0 1
    admwrb $devID 0xE34A 0 1
    admwrb $devID 0xE34B 0 1        
            
  } elseif {$payload == "AU3/TU12"} {
    set activeTU 0x3
    
    # Subsystem level configuration
    admwr $devID 0xE030 0x2FFF0000
    admwr $devID 0xE031 0x0FFF0000
    
    # TVCP payload configuration
    admwr $devID 0xE501 0xFFFF  ;# STS3_1
    admwr $devID 0xE502 0xFFFF	;# STS3_2
    admwr $devID 0xE503 0xFFFF	;# STS3_3
    admwr $devID 0xE504 0xFFF0	;# TUG3
    admwr $devID 0xE505 0x0000	;# HO_SEL 
            
    # RVCP payload configuration
    admwr $devID 0xE401 0xFFFF  ;# STS3_1
    admwr $devID 0xE402 0xFFFF  ;# STS3_2
    admwr $devID 0xE403 0xFFFF  ;# STS3_3
    admwr $devID 0xE404 0xFFF0  ;# TUG3  
    admwr $devID 0xE405 0x0000  ;# HO_SEL 
    
     # [AL] Added Jan 05, 2006
    #####################
    ### SIRP Settings ###
    #####################    
  
    # SIRP Settings    
    admwrb $devID 0xE340 0 1 
    admwrb $devID 0xE341 0 1
    admwrb $devID 0xE342 0 1
    admwrb $devID 0xE343 0 1
    admwrb $devID 0xE344 0 1
    admwrb $devID 0xE345 0 1
    admwrb $devID 0xE346 0 1
    admwrb $devID 0xE347 0 1
    admwrb $devID 0xE348 0 1
    admwrb $devID 0xE349 0 1
    admwrb $devID 0xE34A 0 1
    admwrb $devID 0xE34B 0 1        
        
  } elseif {$payload == "STS-3c" || $payload == "AU4/C4"} {    
    set activeTU 0x0
    
    # Subsystem level configuration
    admwr $devID 0xE030 0x200F000F
    admwr $devID 0xE031 0x000F000F
    
    # TVCP payload configuration
    admwr $devID 0xE501 0xFFFF  ;# STS3_1
    admwr $devID 0xE502 0xFFF0	;# STS3_2
    admwr $devID 0xE503 0xFFF0	;# STS3_3
    admwr $devID 0xE504 0xFFF0	;# TUG3
    admwr $devID 0xE505 0x0FFF	;# HO_SEL     
    
    # RVCP payload configuration
    admwr $devID 0xE401 0xFFFF  ;# STS3_1
    admwr $devID 0xE402 0xFFF0  ;# STS3_2
    admwr $devID 0xE403 0xFFF0  ;# STS3_3
    admwr $devID 0xE404 0xFFF0  ;# TUG3  
    admwr $devID 0xE405 0x0FFF  ;# HO_SEL 

     for {set stm1 1} {$stm1 <= 4} {incr stm1} {
      for {set tug3 1} {$tug3 <= 3} {incr tug3} {
        for {set tug2 1} {$tug2 <= 7} {incr tug2} {
          for {set tu 1} {$tu <= 4} {incr tu} {
            
            set stm1 [dec2hex $stm1]
            set tug3 [dec2hex $tug3]
            set tug2 [dec2hex $tug2]
            set tu [dec2hex $tu]
            
            # Set TRIB_RESET to '1'
            admindwr $devID EOS::LOHO_SONET::TTOP336_EOS 0x8030 0xE382 $stm1 $tug3 $tug2 $tu
          
          }
        }
      }
    }     
    
    # [AL] Added Jan 05, 2006
    #####################
    ### SIRP Settings ###
    #####################    
  
    # SIRP Settings    
    admwrb $devID 0xE340 0 1 
    admwrb $devID 0xE341 0 1
    admwrb $devID 0xE342 0 1
    admwrb $devID 0xE343 0 1
    admwrb $devID 0xE344 0 0
    admwrb $devID 0xE345 0 0
    admwrb $devID 0xE346 0 0
    admwrb $devID 0xE347 0 0
    admwrb $devID 0xE348 0 0
    admwrb $devID 0xE349 0 0
    admwrb $devID 0xE34A 0 0
    admwrb $devID 0xE34B 0 0        

            
  } elseif {$payload == "STS-12c" || $payload == "AU4-4c"} {
    set activeTU 0x0
    
    # Subsystem level configuration
    admwr $devID 0xE030 0x20010000
    admwr $devID 0xE031 0x00010000
    
    # TVCP payload configuration
    admwr $devID 0xE501 0xFFF1  ;# STS3_1
    admwr $devID 0xE502 0xFFF0	;# STS3_2
    admwr $devID 0xE503 0xFFF0	;# STS3_3
    admwr $devID 0xE504 0xFFF0	;# TUG3
    admwr $devID 0xE505 0x0FFF	;# HO_SEL     
    
    # RVCP payload configuration
    admwr $devID 0xE401 0xFFF1  ;# STS3_1
    admwr $devID 0xE402 0xFFF0  ;# STS3_2
    admwr $devID 0xE403 0xFFF0  ;# STS3_3
    admwr $devID 0xE404 0xFFF0  ;# TUG3  
    admwr $devID 0xE405 0x0FFF  ;# HO_SEL 
    
    # [AL] Added Jan 05, 2006
    #####################
    ### SIRP Settings ###
    #####################    
  
    # SIRP Settings    
    admwrb $devID 0xE340 0 1 
    admwrb $devID 0xE341 0 0
    admwrb $devID 0xE342 0 0
    admwrb $devID 0xE343 0 0
    admwrb $devID 0xE344 0 0
    admwrb $devID 0xE345 0 0
    admwrb $devID 0xE346 0 0
    admwrb $devID 0xE347 0 0
    admwrb $devID 0xE348 0 0
    admwrb $devID 0xE349 0 0
    admwrb $devID 0xE34A 0 0
    admwrb $devID 0xE34B 0 0  
        
  } elseif {$payload == "AU4/TU12"} {
    set activeTU 0x3
    
    # Subsystem level configuration
    admwr $devID 0xE030 0x200F000F
    admwr $devID 0xE031 0x000F000F

    # TVCP payload configuration
    admwr $devID 0xE501 0xFFFF  ;# STS3_1
    admwr $devID 0xE502 0xFFF0	;# STS3_2
    admwr $devID 0xE503 0xFFF0	;# STS3_3
    admwr $devID 0xE504 0xFFFF	;# TUG3
    admwr $devID 0xE505 0x0000	;# HO_SEL     
    
    # RVCP payload configuration
    admwr $devID 0xE401 0xFFFF  ;# STS3_1
    admwr $devID 0xE402 0xFFF0  ;# STS3_2
    admwr $devID 0xE403 0xFFF0  ;# STS3_3
    admwr $devID 0xE404 0xFFFF  ;# TUG3  
    admwr $devID 0xE405 0x0000  ;# HO_SEL 
    
    # [AL] Added Jan 05, 2006
    #####################
    ### SIRP Settings ###
    #####################    
  
    # SIRP Settings    
    admwrb $devID 0xE340 0 1 
    admwrb $devID 0xE341 0 1
    admwrb $devID 0xE342 0 1
    admwrb $devID 0xE343 0 1
    admwrb $devID 0xE344 0 0
    admwrb $devID 0xE345 0 0
    admwrb $devID 0xE346 0 0
    admwrb $devID 0xE347 0 0
    admwrb $devID 0xE348 0 0
    admwrb $devID 0xE349 0 0
    admwrb $devID 0xE34A 0 0
    admwrb $devID 0xE34B 0 0  
        
  } elseif {$payload == "AU4/TU3"} {
    set activeTU 0x0
    
    # Subsystem level configuration
    admwr $devID 0xE030 0x200FFFFF
    admwr $devID 0xE031 0x000FFFFF

    # TVCP payload configuration
    admwr $devID 0xE501 0xFFFF  ;# STS3_1
    admwr $devID 0xE502 0xFFF0	;# STS3_2
    admwr $devID 0xE503 0xFFF0	;# STS3_3
    admwr $devID 0xE504 0xFFFF	;# TUG3
    admwr $devID 0xE505 0x0000	;# HO_SEL     
    
    # RVCP payload configuration
    admwr $devID 0xE401 0xFFFF  ;# STS3_1
    admwr $devID 0xE402 0xFFF0  ;# STS3_2
    admwr $devID 0xE403 0xFFF0  ;# STS3_3
    admwr $devID 0xE404 0xFFFF  ;# TUG3  
    admwr $devID 0xE405 0x0000  ;# HO_SEL 
    
    # [AL] Added Jan 05, 2006
    #####################
    ### SIRP Settings ###
    #####################    
  
    # SIRP Settings    
    admwrb $devID 0xE340 0 1 
    admwrb $devID 0xE341 0 1
    admwrb $devID 0xE342 0 1
    admwrb $devID 0xE343 0 1
    admwrb $devID 0xE344 0 0
    admwrb $devID 0xE345 0 0
    admwrb $devID 0xE346 0 0
    admwrb $devID 0xE347 0 0
    admwrb $devID 0xE348 0 0
    admwrb $devID 0xE349 0 0
    admwrb $devID 0xE34A 0 0
    admwrb $devID 0xE34B 0 0  
        
  }  
      
 
  ###########################################################################
  #####           Setting Low Order Payload Configuration               #####
  ###########################################################################
  
  ### VTPI Configuration ###
  # If the data stream contain VT/TUs, set VTPI Payload Configuration.
  # Note that the STM-4/STS-12 data stream are configured to carry the 
  # same tributary types.
  
    
  if {$activeTU != 0} {          
    for {set stm1 1} {$stm1 <= 4} {incr stm1} {
      for {set tug3 1} {$tug3 <= 3} {incr tug3} {
        for {set tug2 1} {$tug2 <= 7} {incr tug2} {
          #for {set tu 1} {$tu <= $activeTU} {incr tu} {
          
            set tu 1
                
            # 1. Poll BUSY bit until it is low
            Poll_BUSY_Bit $devID 0xE280 15
          
            # 2. Set Tributary Type in VTPI Indirect Configuration Register
            if {$payload == "AU4/TU12" ||$payload == "AU3/TU12"} {
              admwr $devID 0xE281 0x1000
            } elseif {$payload == "VT15"} {                        
              admwr $devID 0xE281 0x1800                                        
            }          	
            # 3. Specify tributary address and set RWB = 0	
            set rwb 0
            set iaddr_value [expr [expr $rwb << 14]|[expr $stm1 << 8]|[expr $tug3 << 6]|\
                            [expr $tug2 << 3]|$tu]          
  	    admwr $devID 0xE280 $iaddr_value

            # 4. Poll BUSY bit until it is low (Optional step)
            # Poll_BUSY_Bit $devID 0xE280 15
          #}
        }
      }
    }
  }
  
  ### TTOP 336 Configuration ###
  # If the data stream contain VT/TUs, set TTOP336  Payload Configuration.
  # Note that the STM-4/STS-12 data stream are configured to carry the 
  # same tributary types.
  
  if {$activeTU != 0} {          
    for {set stm1 1} {$stm1 <= 4} {incr stm1} {
      for {set tug3 1} {$tug3 <= 3} {incr tug3} {
        for {set tug2 1} {$tug2 <= 7} {incr tug2} {
          for {set tu 1} {$tu <= $activeTU} {incr tu} {                        
                
            # 1. Poll BUSY bit until it is low
            Poll_BUSY_Bit $devID 0xE381 15
          
            # 2. Set Tributary Type in VTPI Indirect Configuration Register
            if {$payload == "AU4/TU12" ||$payload == "AU3/TU12"} {
                            
              admwr $devID 0xE382 0x0020
              admwr $devID 0xE383 0x0105              
              admwr $devID 0xE384 0x0080
            } elseif {$payload == "VT15"} {            
                        
              admwr $devID 0xE382 0x0030
              admwr $devID 0xE383 0x0105
              admwr $devID 0xE384 0x0080
            }