#------------------------------------------------------------------------------# FILE NAME: PM5337_LINE_SONET_HOPP.tcl## DESCRIPTION: 	This file includes the following procedures:#               1) LINE_SONET_HO_Payload_Config#               2) LINE_SONET_HO_Trace_Config#               3) LINE_SONET_HO_BER_Config#               4) LINE_SONET_HO_MAPS_Config#               5) LINE_SONET_HO_MAPS_SW_Path_Config#               6) LINE_SONET_HO_MAPS_SW_Line_Config#			# NOTES:## REVISION History:# Preliminary 1 - Script created#------------------------------------------------------------------------------#------------------------------------------------------------------------------# SCRIPT NAME:  LINE_SONET_HO_Payload_Config## DESCRIPTION:  This procedure configures the High Order Payload #               LINE_SONET subsystem. #               # PARAMETERS:   devID     - This parameter is used to specify the device #                           under configuration       ##               interface - 1 (interface 1), 2 (interface 2)##               payload   - STS-1, STS-3c, STS-12c, AU3, AU4, #			    AU4-4c## NOTES:  For rate = OC-3, only time slot 1,5,9 are used.  Rx and #	  Tx config matched.#------------------------------------------------------------------------------proc LINE_SONET_HO_Payload_Config {devID interface payload} {  source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl    #### Define address for rx, tx based on line interface ###    set rxaddr [expr (0x1005+($interface-1))]    # Interface 2 for tx uses register 0x1009  set txaddr [expr (0x1007+($interface-1)*2)]      ############################################  ##### Configure High Order Playload    #####  ############################################   ### Configure time slots ###  # The options in a STS-12/STM-4 data stream are:   # M = master, S = Slave, X = don't care  #                                     HOPP configuration        # 12x AU3 with C3 (STS-1 with no VT): MMMM MMMM MMMM    # 12x AU3 with TU (STS-1 with VT):    MMMM MMMM MMMM    # 4x AU4 with C4 (4x STS-3c):         MMMM SSSS SSSS    # 1x AU4-4c (1x STS-12c):             MSSS SSSS SSSS    # 4x AU4 with TUG3 (Invalid in SONET):MMMM SSSS SSSS    #  # The options in a STS-3/STM-1 data stream are:  #                                     HOPP configuration        # 3x AU3 with C3 (STS-1 with no VT):  MXXX MXXX MXXX  # 3x AU3 with TU (STS-1 with VT):     MXXX MXXX MXXX  # 1x AU4 with C4 (4x STS-3c):         MXXX SXXX SXXX  # 1x AU4 with TUG3 (Invalid in SONET):MXXX SXXX SXXX   if {$payload == "AU3" || $payload == "STS-1"} {    # Set all time slots to masters      admwr $devID $rxaddr 0x0000FFFF    admwr $devID $txaddr 0x0000FFFF        } elseif {$payload == "AU4" || $payload == "STS-3c"} {    # Set first four time slots to masters    admwr $devID $rxaddr 0x0000000F    admwr $devID $txaddr 0x0000000F         } elseif {$payload == "AU4-4c" || $payload == "STS-12c"} {            ### AU4-4C or STS-12C ###    # Set first time slot to master, all other slaves            admwr $devID $rxaddr 0x00000001    admwr $devID $txaddr 0x00000001  }     ####################  # THPP block setup #  ####################    if {$interface == 1} {      for {set sts3 0x0} {$sts3 <= 0x3} {incr sts3} {      for {set sts1 0x0} {$sts1 <= 0x2} {incr sts1} {        # Set SS bit        admindwr 0 LINE_SONET::LINEINTF::TSVCA_1 0x4800 0x5 $sts3 $sts1        # Enable REGC2EN and disable G1 insertion        admindwr 0 LINE_SONET::HOPP::THPP_1 0x0002 0x01 $sts3 $sts1        # Set C2 to 0x01        admindwr 0 LINE_SONET::HOPP::THPP_1 0x0100 0x03 $sts3 $sts1      }    }      }  if {$interface == 2} {      for {set sts3 0x0} {$sts3 <= 0x3} {incr sts3} {      for {set sts1 0x0} {$sts1 <= 0x2} {incr sts1} {        # Set SS bit        admindwr 0 LINE_SONET::LINEINTF::TSVCA_2 0x4800 0x5 $sts3 $sts1        # Enable REGC2EN and disable G1 insertion        admindwr 0 LINE_SONET::HOPP::THPP_2 0x0002 0x01 $sts3 $sts1        # Set C2 to 0x01        admindwr 0 LINE_SONET::HOPP::THPP_2 0x0100 0x03 $sts3 $sts1      }    }      }  }#------------------------------------------------------------------------------# SCRIPT NAME:	LINE_SONET_HO_Trace_Config## DESCRIPTION:	This procedure configures the RTTP blocks in#               the HOPP.#		# PARAMETERS:	devID     - This parameter is used to specify the device #                           under configuration  #               interface - 1, 2#                    algo - '1', '2', or '3' (see datasheet for details)#                length16 - '0' for 64 bytes or '1' for 16 byte#                    sync - '0' algorithm will synchronize when receiving#                               a byte with it MSB set to 1 #                           '1' algorithm will synchrnoize when receiving#                               a byte with CR/LF	          #                    stm1 - 0 to 3 (STS-3/STM1 #1~#4)#                    stm0 - 0 to 2 (STS-1/STM0 #1~#3)#                  enable - '1' to enable or '0' to disable## NOTE:	      Default trace message in ASCII is#             FF CR 1 2 3 4 5 6 7 8 9 A B C D##------------------------------------------------------------------------------proc LINE_SONET_HO_Trace_Config {devID interface algo length16 sync stm1 stm0 enable} {  source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl                                     ##### Defining system block name #####  if {$interface == 1 } {     set RTTP "LINE_SONET::HOPP::RTTP_1"  } elseif {$interface == 2} {    set RTTP "LINE_SONET::HOPP::RTTP_2"  }          #### Enable Section Trace Message Monitoring for Interface 1 ###    if {$enable == 1} {    # 1. Set ALOG[1:0] to 0 to disable trace monitoring in all paths    admindwr $devID $RTTP 0x0000 0x03 $stm1 $stm0    # 2. Program the expected trace message for the first 16 bytes    #    Program 64 bytes if required (length16 = 0)            admindwr $devID $RTTP 0xCD 0xC0 $stm1 $stm0    admindwr $devID $RTTP 0x30 0xC1 $stm1 $stm0        admindwr $devID $RTTP 0x31 0xC2 $stm1 $stm0        admindwr $devID $RTTP 0x32 0xC3 $stm1 $stm0        admindwr $devID $RTTP 0x33 0xC4 $stm1 $stm0       admindwr $devID $RTTP 0x34 0xC5 $stm1 $stm0        admindwr $devID $RTTP 0x35 0xC6 $stm1 $stm0        admindwr $devID $RTTP 0x36 0xC7 $stm1 $stm0        admindwr $devID $RTTP 0x37 0xC8 $stm1 $stm0    admindwr $devID $RTTP 0x38 0xC9 $stm1 $stm0    admindwr $devID $RTTP 0x39 0xCa $stm1 $stm0    admindwr $devID $RTTP 0x41 0xCb $stm1 $stm0    admindwr $devID $RTTP 0x42 0xCc $stm1 $stm0    admindwr $devID $RTTP 0x43 0xCd $stm1 $stm0    admindwr $devID $RTTP 0x44 0xCe $stm1 $stm0    admindwr $devID $RTTP 0x45 0xCf $stm1 $stm0             # 3. Set ALGO [1:0], LENGTH16 and SYNC_CRLF value        #    Make sure bit 6 (RESERVED_1) is set to 1    set configvalue [expr [expr $algo << 0]|[expr $length16 << 2]|[expr $sync << 5]]    admindwr $devID $RTTP $configvalue 0x03 $stm1 $stm0    #### Disable Section Trace Message Monitoring for Interface 1 ###       } elseif {$enable == 0} {      # set ALOG[1:0] to 0 to disable trace monitoring      admindwr $devID $RTTP 0x0000 0x03 $stm1 $stm0  }}#------------------------------------------------------------------------------# SCRIPT NAME:  LINE_SONET_HO_BER_Config## DESCRIPTION:  This procedure provides examples of how to:#               - enable and configure the PBER blocks for Signal Degrade detection#               - enable and configure the PBER blocks for Signal Failure detection#               - disable the PBER Signal Degrade detection feature#               - disable the PBER Signal Failure detection feature##  PARAMETERS : devID  - This parameter is used to specify the device #                        under configuration.##               interface - '1' or '2'##               payload - STS-1, STS-3c, STS-12c##               ber_rate  - 3 to 11 ##               sd_sf     - 0 (SF), 1 (SD)##               enable    - 1 (enabled), 0 (disabled)##		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 paths.##------------------------------------------------------------------------------proc LINE_SONET_HO_BER_Config {devID interface payload ber_rate sd_sf enable {stm1 -1} {stm0 -1}} {  source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl       #####################################################################################  ##### Defining Set Integration Period, Set Threshold and Clear Threshold values #####  #####################################################################################    # ipH = High Word of Integration Period  # ipL = Low Word of Integration Period  # sthre = Set Threshold  # cthre = Clear Threshold    if {$payload == "STS-1"} {    if {$ber_rate == 3} {      set ipH 0x0000      set ipL 0x0014      set sthre 0x02A      set cthre 0x024    } elseif {$ber_rate == 4} {      set ipH 0x0000      set ipL 0x0044      set sthre 0x017      set cthre 0x010    } elseif {$ber_rate == 5} {      set ipH 0x0000      set ipL 0x0261      set sthre 0x016      set cthre 0x00F    } elseif {$ber_rate == 6} {      set ipH 0x0000      set ipL 0x177F      set sthre 0x015      set cthre 0x00F    } elseif {$ber_rate == 7} {      set ipH 0x0000      set ipL 0xEAB1      set sthre 0x15      set cthre 0x00F    } elseif {$ber_rate == 8} {      set ipH 0x0009      set ipL 0x2AA7      set sthre 0x015      set cthre 0x00F    } elseif {$ber_rate == 9} {      set ipH 0x005B      set ipL 0xAA40      set sthre 0x015      set cthre 0x00F    } elseif {$ber_rate == 10} {      set ipH 0x0394      set ipL 0xA638      set sthre 0x015      set cthre 0x00F    }   }    if {$payload == "STS-3c"} {    if {$ber_rate == 4} {      set ipH 0x0000      set ipL 0x001D      set sthre 0x01A      set cthre 0x014    } elseif {$ber_rate == 5} {      set ipH 0x0000      set ipL 0x00D0      set sthre 0x016      set cthre 0x00F    } elseif {$ber_rate == 6} {      set ipH 0x0000      set ipL 0x07DA      set sthre 0x015      set cthre 0x00F    } elseif {$ber_rate == 7} {      set ipH 0x0000      set ipL 0x4E40      set sthre 0x15      set cthre 0x00F    } elseif {$ber_rate == 8} {      set ipH 0x0003      set ipL 0x0E3D      set sthre 0x015      set cthre 0x00F    } elseif {$ber_rate == 9} {      set ipH 0x001E      set ipL 0x8E1B      set sthre 0x015      set cthre 0x00F    } elseif {$ber_rate == 10} {      set ipH 0x0131      set ipL 0x8CC3      set sthre 0x015      set cthre 0x00F    } elseif {$ber_rate == 11} {      set ipH 0x0BEF      set ipL 0x7F53      set sthre 0x015      set cthre 0x00F    }  }    if {$payload == "STS-12c"} {        if {$ber_rate == 4} {      set ipH 0x0000      set ipL 0x0014      set sthre 0x02E      set cthre 0x029    } elseif {$ber_rate == 5} {      set ipH 0x0000      set ipL 0x003B      set sthre 0x018      set cthre 0x011    } elseif {$ber_rate == 6} {      set ipH 0x0000      set ipL 0x01FD      set sthre 0x16      set cthre 0x00F    } elseif {$ber_rate == 7} {      set ipH 0x0000      set ipL 0x1396      set sthre 0x015      set cthre 0x00F    } elseif {$ber_rate == 8} {      set ipH 0x0000      set ipL 0xC395      set sthre 0x015      set cthre 0x00F