?? pm5337_line_sonet_alarms.tcl
字號:
#------------------------------------------------------------------------------# FILE NAME: PM5337_LINE_SONET_ALARMS.tcl## DESCRIPTION: This file includes the following procedures:# 1) LINE_SONET_Line_RDI_Insert_Config# 2) LINE_SONET_Path_RDI_Insert_Config# 3) LINE_SONET_Line_AIS_Insert_Config# 4) LINE_SONET_Path_AIS_Insert_Config# 5) LINE_SONET_LO_RDI_Config# 6) LINE_SONET_LO_RFI_Config# 7) LINE_SONET_LO_TAIS_Config# 8) LINE_SONET_LO_DAIS_Config# # NOTES:## REVISION History:# Preliminary 1 - Script created#------------------------------------------------------------------------------#------------------------------------------------------------------------------# SCRIPT NAME: LINE_SONET_Line_RDI_Insert_Config## DESCRIPTION: This procedure configure the alarms# the SARC-H block## PARAMETERS : devID# interface - 1 or 2# oofen - 0 to disable, 1 to enable# lofen - 0 to disable, 1 to enable# losen - 0 to disable, 1 to enable# laisen - 0 to disable, 1 to enable # lrdien - 0 to disable, 1 to enable# apsbfen - 0 to disable, 1 to enable# stiuen - 0 to disable, 1 to enable# stimen - 0 to disable, 1 to enable# sdberen - 0 to disable, 1 to enable# sfberen - 0 to disable, 1 to enable# loten - 0 to disable, 1 to enable # apsoofen- 0 to disable, 1 to enable# # NOTE : ##------------------------------------------------------------------------------proc LINE_SONET_Line_RDI_Insert_Config {devID interface oofen lofen losen laisen lrdien apsbfen stiuen stimen sdberen sfberen loten apsoofen} { source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl ###################################################### ### Configure TLRDIINS Output Alarm Defect Enables ### ###################################################### # Defining SARC-H Receive Section/Line Enable set addr_1485 [expr (0x1485 + (($interface-1)*0x0100))] admwrb $devID $addr_1485 0 $oofen admwrb $devID $addr_1485 1 $lofen admwrb $devID $addr_1485 2 $losen admwrb $devID $addr_1485 3 $laisen admwrb $devID $addr_1485 4 $lrdien admwrb $devID $addr_1485 5 $apsbfen admwrb $devID $addr_1485 6 $stiuen admwrb $devID $addr_1485 7 $stimen admwrb $devID $addr_1485 8 $sdberen admwrb $devID $addr_1485 9 $sfberen admwrb $devID $addr_1485 10 $loten admwrb $devID $addr_1485 11 $apsoofen}#------------------------------------------------------------------------------# SCRIPT NAME: LINE_SONET_Path_RDI_Insert_Config## DESCRIPTION: This procedure configure the alarms# the SARC-H block## PARAMETERS : devID# interface - 1 or 2# enable - 0 (disable), 1 (enable)# stm1 - 0~3 (STS-3/STM1 #1~#4) [optional]# stm0 - 0~2 (STS-1/STM0 #1~#3) [optional]# # NOTE : If no values are specified for stm1 or stm0, then# the process configures all tributaries. ##------------------------------------------------------------------------------proc LINE_SONET_Path_RDI_Insert_Config {devID interface enable {stm1 -1} {stm0 -1}} { source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl ######################################################## ### Configuring THPP Priority Configuration Register ### ######################################################## # Defining block name if {$interface == 1} { set THPP "LINE_SONET::HOPP::THPP_1" } elseif {$interface == 2} { set THPP "LINE_SONET::HOPP::THPP_2" } # The active high G1 insertion disable (G1INSDIS) register bit # disables the insertion of the data on the PRDI[2:0] and # PREI[3:0] input pins into the POUT[7:0] output stream. When # G1INSDIS is set to logic one, the G1 byte抯 source is other # than the PRDI[2:0] and PREI[3:0] input pins if {$stm1 == -1 || $stm0 == -1} { ### No TU specificed. Configure all TU to the same setting for {set stm1 0} {$stm1 <= 3} {incr stm1} { for {set stm0 0} {$stm0 <= 2} {incr stm0} { if {$enable == 0} { admindwr $devID $THPP 0x0100 0x01 $stm1 $stm0 } elseif {$enable == 1} { admindwr $devID $THPP 0x0000 0x01 $stm1 $stm0 } } } # Re-initialize $stm1 and $stm0 set stm1 -1 set stm0 -1 } else { # Configure specific TU if {$enable == 0} { admindwr $devID $THPP 0x0100 0x01 $stm1 $stm0 } elseif {$enable == 1} { admindwr $devID $THPP 0x0000 0x01 $stm1 $stm0 } }}#------------------------------------------------------------------------------# SCRIPT NAME: LINE_SONET_Line_AIS_Insert_Config# DESCRIPTION: This procedure configure the alarms# the SARC-H block## PARAMETERS : devID# interface - 1 or 2# oofen - 0 to disable, 1 to enable# lofen - 0 to disable, 1 to enable# losen - 0 to disable, 1 to enable# stiuen - 0 to disable, 1 to enable# stimen - 0 to disable, 1 to enable# # NOTE : ##------------------------------------------------------------------------------proc LINE_SONET_Line_AIS_Insert_Config {devID interface oofen lofen losen stiuen stimen} { source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl ############################### ### Setting RRMP AIS Enable ### ############################### set addr_0x1337 [expr (0x1337 + (($interface-1)*0x80))] admwrb $devID $addr_0x1337 0 1 ###################################################### ### Configure RLAISINS Output Alarm Defect Enables ### ###################################################### # Defining SARC-H Receive Section/Line/Path Enable reg set addr_0x1484 [expr (0x1484 + (($interface-1)*0x0100))] admwrb $devID $addr_0x1484 0 $oofen admwrb $devID $addr_0x1484 1 $lofen admwrb $devID $addr_0x1484 2 $losen admwrb $devID $addr_0x1484 6 $stiuen admwrb $devID $addr_0x1484 7 $stimen}#------------------------------------------------------------------------------# SCRIPT NAME: LINE_SONET_Path_AIS_Insert_Config# DESCRIPTION: This procedure configure the alarms# the SARC-H block## PARAMETERS : # General: devID# interface - 1 or 2# stm1 - 0~3 (STS-3/STM1 #1~#4) [optional]# stm0 - 0~2 (STS-1/STM0 #1~#3) [optional]# # RPAIS laisen - 0 to disable, 1 to enable # lrdien - 0 to disable, 1 to enable# apsbfen - 0 to disable, 1 to enable# sdberen - 0 to disable, 1 to enable# sfberen - 0 to disable, 1 to enable# loten - 0 to disable, 1 to enable # apsoofen- 0 to disable, 1 to enable# RPAISINS:# psden - 0 to disable, 1 to enable# psfen - 0 to disable, 1 to enable# ptimen - 0 to disable, 1 to enable# ptiuen - 0 to disable, 1 to enable # perdien - 0 to disable, 1 to enable# prdien - 0 to disable, 1 to enable# ppdien - 0 to disable, 1 to enable# punequen - 0 to disable, 1 to enable# pplmen - 0 to disable, 1 to enable# ppluen - 0 to disable, 1 to enable# paisptren- 0 to disable, 1 to enable # ploptren - 0 to disable, 1 to enable# rlaisen - 0 to disable, 1 to enable# TPAISINS:# tpaisptren- 0 to disable, 1 to enable # tploptren - 0 to disable, 1 to enable# tpaisen - 0 to disable, 1 to enable# # NOTE : If no values are specified for stm1 or stm0, then# the process configures all tributaries.#-------------------------------------------------------------------------------proc LINE_SONET_Path_AIS_Insert_Config {devID interface laisen lrdien apsbfen sdberen sfberen loten apsoofen psden psfen ptimen ptiuen perdien prdien ppdien puneqen pplmen ppluen paisptren ploptren rlaisen tpaisptren tploptren tpaisen {stm1 -1} {stm0 -1}} { source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl ################################################### ### Configure RPAIS Output Alarm Defect Enables ### ################################################### # Defining block name if {$interface == 1} { set SARCH "LINE_SONET::HOPP::SARCH_1" } elseif {$interface == 2} { set SARCH "LINE_SONET::HOPP::SARCH_2" } # Defining SARC-H Receive Section/Line/Path Enable reg set addr_1484 [expr (0x1484 + (($interface-1)*0x0100))] admwrb $devID $addr_1484 3 $laisen admwrb $devID $addr_1484 4 $lrdien admwrb $devID $addr_1484 5 $apsbfen admwrb $devID $addr_1484 8 $sdberen admwrb $devID $addr_1484 9 $sfberen admwrb $devID $addr_1484 10 $loten admwrb $devID $addr_1484 11 $apsoofen ###################################################### ### Configure RPAISINS Output Alarm Defect Enables ### ###################################################### set iaddr 0x07 set value [expr [expr $psden << 13]|[expr $psfen << 12]|[expr $ptimen << 11]|\ [expr $ptiuen << 10]|[expr $perdien << 9]|[expr $prdien << 8]|\ [expr $ppdien << 7]|[expr $puneqen << 6]|[expr $pplmen << 5]|\ [expr $ppluen << 4]|[expr $paisptren << 3]|[expr $ploptren << 2]|$rlaisen] if {$stm1 == -1 || $stm0 == -1} { ### No TU specificed. Configure all TU to the same setting for {set stm1 0} {$stm1 <= 3} {incr stm1} { for {set stm0 0} {$stm0 <= 2} {incr stm0} { admindwr $devID $SARCH $value $iaddr $stm1 $stm0 } } # Re-initialize $stm1 and $stm0 set stm1 -1 set stm0 -1 } else { # Configure specific TU admindwr $devID $SARCH $value $iaddr $stm1 $stm0 } ###################################################### ### Configure TPAISINS Output Alarm Defect Enables ### ###################################################### set iaddr 0x08 set value [expr [expr $tpaisptren << 2]|[expr $tploptren << 1]|$tpaisen] if {$stm1 == -1 || $stm0 == -1} { ### No TU specificed. Configure all TU to the same setting for {set stm1 0} {$stm1 <= 3} {incr stm1} { for {set stm0 0} {$stm0 <= 2} {incr stm0} { admindwr $devID $SARCH $value $iaddr $stm1 $stm0 } } # Re-initialize $stm1 and $stm0 set stm1 -1 set stm0 -1 } else { # Configure specific TU admindwr $devID $SARCH $value $iaddr $stm1 $stm0 }}#------------------------------------------------------------------------------# SCRIPT NAME: LINE_SONET_LO_RDI_Config# DESCRIPTION: This procedure enables the RDI consequence alarms## PARAMETERS : devID# interface - 1, 2# PSLURDI_enable - 1 (enable), 0 (disable)# PSLMRDI_enable - 1 (enable), 0 (disable)# UNEQRDI_enable - 1 (enable), 0 (disable)# TIURDI_enable - 1 (enable), 0 (disable)# TIMRDI_enable - 1 (enable), 0 (disable)# stm1 - 1~4 (STS-3/STM1 #1~#4) [optional]# tug3 -1~3 (TUG3 #1~#3) [optional]# tug2 - 1~7 (TUG2 #1~#7) [optional]# tu - 1~4 (TU #1~#4) [optional]# # NOTE : 1. If no specific tributary is specified, then the alarm is# is set for ALL the tributaries.### 2. Because read-modify-write procedure is performed in this script# when devID is set to -1, this procedure will not display the# read/write sequence.##------------------------------------------------------------------------------?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -