#------------------------------------------------------------------------------# SCRIPT NAME: pm5337_debug.tcl## DESCRIPTION: 	This file includes the following procedures: ##               LINE_SONET Subsystem Loopbacks:#                 1) LINE_LD1_Loopback#                 2) LINE_LD2_Loopback#                 3) LINE_LD3_Loopback#                 3) LINE_LD4_Loopback##               SYS_SONET Subsystem Loopbacks:#                 4) ESSI_LD1_Loopback#                 5) ESSI_LD2_Loopback#            #               EOS Subsystem Loopbacks:#                 6) EOS_SD1_Loopback#                 7) EOS_SONET_CST_Loopback (EOS_LD4_Loopback)#                 8) EOS_VCAT_CST_Loopback (EOS_LD3_Loopback)#                9) EOS_BUF_SYS_Loopback#                10) EOS_GMII_SYS_Loopback#                10) EOS_GMII_CST_Loopback#                12) EOS_MAC_CST_Loopback (EOS_LD1_Loopback)#                13) EOS_GFP_CST_Loopback (EOS_LD2_Loopback)##               PDH Subsystem Loopbacks:#                14) DE1_LD1_Loopback#                15) DE1_SD1_Loopback#                16) DE3_LD1_Loopback#                17) DE3_LD2_Loopback#                18) DE3_SD1_Loopback#                19) DE3_SD2_Loopback#                20) DE3_SD3_Loopback#                21) EC1DE3_LD1_Loopback#                22) EC1DE3_SD1_Loopback#                23) M13DS3_D1_Loopback##               Others:#                24) DDR_Read#                25) DDR_Write#                26) DDR_RW_Test  #               ## NOTES:# REVISION History:# Preliminary 1 - Script created##------------------------------------------------------------------------------#------------------------------------------------------------------------------# PROC NAME:  LINE_LD1_Loopback## DESCRIPTION:  This procedure enables/disables the diagnostic loopback from the #               Rx analog logic to Tx analog logic.## PARAMETERS:	devID  - This parameter is used to specify the device #                        under configuration##               port - 0 (line interface 1), 1 (line interface 2)##		enable	- 0 (disable), 1 (enable)# 		# NOTES: #------------------------------------------------------------------------------proc LINE_LD1_Loopback {devID port enable} {    if {$enable == 1} {    # Set reserved bit 14 and 15 in 0x1040 to 1    wr adm 0x1040 0xC000      }     if {$enable == 0} {    # Set reserved bit 14 in 0x1040 to 0    wr adm 0x1040 0x0000  }    if {$port == 0} {    # Enble Rx to Tx loopback    admwrb $devID 0x1030 14 $enable    admwrb $devID 0x1036 13 $enable    }    if {$port == 1} {    # Enble Rx to Tx loopback    admwrb $devID 0x1037 14 $enable    admwrb $devID 0x103D 13 $enable      }  }#------------------------------------------------------------------------------# PROC NAME:  LINE_LD2_Loopback## DESCRIPTION:  This procedure enables/disables the diagnostic loopback from the#               Rx Section/Line Processor to the Tx Section/Line Processor.## PARAMETERS:	devID  - This parameter is used to specify the device #                        under configuration##               port - 0 (line interface 1), 1 (line interface 2)##		enable	- 0 (disable), 1 (enable)# 		# NOTES: #------------------------------------------------------------------------------proc LINE_LD2_Loopback {devID port enable} {     if {$port == 0 && $enable == 1} {          admwrb $devID 0x102B 3 0    admwrb $devID 0x102B 2 1        admwrb $devID 0x102B 7 0      admwrb $devID 0x102B 6 1       }      if {$port == 0 && $enable == 0} {          admwrb $devID 0x102B 3 0    admwrb $devID 0x102B 2 0                admwrb $devID 0x102B 7 0      admwrb $devID 0x102B 6 0  }  if {$port == 1 && $enable == 1} {    admwrb $devID 0x102B 11 1    admwrb $devID 0x102B 10 1        admwrb $devID 0x102B 15 0    admwrb $devID 0x102B 14 1   }  if {$port == 1 && $enable == 0} {    admwrb $devID 0x102B 11 1    admwrb $devID 0x102B 10 0        admwrb $devID 0x102B 15 0    admwrb $devID 0x102B 14 0      }     }#------------------------------------------------------------------------------# PROC NAME:  LINE_LD3_Loopback## DESCRIPTION:  This procedure enables/disables the diagnostic loopback from the#               LOPP ingress to HOPP egress## PARAMETERS:	devID  - This parameter is used to specify the device #                        under configuration##               port - 0 (line interface 1), 1 (line interface 2)##		enable	- 0 (disable), 1 (enable)# 		# NOTES: #------------------------------------------------------------------------------proc LINE_LD3_Loopback {devID port enable} {       if {$port == 0 && $enable == 1} {          admwrb $devID 0x102B 5 0    admwrb $devID 0x102B 4 1        admwrb $devID 0x102B 7 0      admwrb $devID 0x102B 6 1       }      if {$port == 0 && $enable == 0} {          admwrb $devID 0x102B 5 0    admwrb $devID 0x102B 4 0        admwrb $devID 0x102B 7 0      admwrb $devID 0x102B 6 0      }  if {$port == 1 && $enable == 1} {    admwrb $devID 0x102B 13 1    admwrb $devID 0x102B 12 1       admwrb $devID 0x102B 15 0    admwrb $devID 0x102B 14 1      }    if {$port == 1 && $enable == 0} {    admwrb $devID 0x102B 13 1    admwrb $devID 0x102B 12 0        admwrb $devID 0x102B 15 0    admwrb $devID 0x102B 14 0        }      }#------------------------------------------------------------------------------# PROC NAME:  LINE_LD4_Loopback## DESCRIPTION:  This procedure enables/disables the diagnostic loopback from the#               LOPP ingress to HOPP egress## PARAMETERS:	devID  - This parameter is used to specify the device #                        under configuration##               port - 0 (line interface 1), 1 (line interface 2)##		enable	- 0 (disable), 1 (enable)# 		# NOTES: #------------------------------------------------------------------------------proc LINE_LD4_Loopback {devID port enable} {       if {$port == 0 && $enable == 1} {          admwr $devID 0x102C 0x00000FFF  }      if {$port == 0 && $enable == 0} {          admwr $devID 0x102C 0x00000000  }  if {$port == 1 && $enable == 1} {    admwr $devID 0x102D 0x00000FFF  }  if {$port == 1 && $enable == 0} {    admwr $devID 0x102D 0x00000000  }  }#------------------------------------------------------------------------------# PROC NAME:  ESSI_LD1_Loopback## DESCRIPTION:  This procedure enables/disables the metallic loopback from the Rx#               to Tx analog logic#               ## PARAMETERS:	devID  - This parameter is used to specify the device #                        under configuration##               port - 0 (ESSI Link 1), 1 (ESSI Link 2), #               port - 2 (ESSI Link 3), 3 (ESSI Link 4)##		enable	- 0 (disable), 1 (enable)# 		# NOTES: #------------------------------------------------------------------------------proc ESSI_LD1_Loopback {devID port enable} {      if {port == 0} {     admwrb $devID 0x062B 14 $enable    admwrb $devID 0x0707 13 $enable  }       if {port == 1} {     admwrb $devID 0x064B 14 $enable    admwrb $devID 0x0717 13 $enable  }   if {port == 2} {     admwrb $devID 0x066B 14 $enable    admwrb $devID 0x0727 13 $enable  }   if {port == 3} {     admwrb $devID 0x068B 14 $enable    admwrb $devID 0x0737 13 $enable  }}#------------------------------------------------------------------------------# PROC NAME:  ESSI_LD2_Loopback## DESCRIPTION:  This procedure enables/disables the diagnostic loopback from the #               output of RX MABC to input of TX MABC#               ## PARAMETERS:	devID  - This parameter is used to specify the device #                        under configuration##               port - 0 (ESSI Link 1), 1 (ESSI Link 2), #               port - 2 (ESSI Link 3), 3 (ESSI Link 4)##		enable	- 0 (disable), 1 (enable)# 		# NOTES: #------------------------------------------------------------------------------proc ESSI_LD2_Loopback {devID port enable} {      if {$port == 0} {     admwrb $devID 0x0604 12 $enable  }    if {$port == 1} {     admwrb $devID 0x0604 13 $enable  }    if {$port == 2} {     admwrb $devID 0x0604 14 $enable  }    if {$port == 3} {     admwrb $devID 0x0604 15 $enable  }    }#------------------------------------------------------------------------------# PROC NAME:  EOS_LD1_Loopback## DESCRIPTION:  This procedure enables/disables the Client Side (LAN) loopback#               # PARAMETERS:	devID  - This parameter is used to specify the device #                        under configuration##               port - 0 (port 1) ... 7 (port 8)##		enable	- 0 (disable), 1 (enable)# 		# NOTES: #------------------------------------------------------------------------------proc EOS_LD1_Loopback {devID port enable} {  set addr [expr 0xED09 + $port * 0x20]    admwrb $devID $addr 4 $enable}#------------------------------------------------------------------------------# PROC NAME:  EOS_SD1_Loopback## DESCRIPTION:  This procedure enables/disables the SMII system side loopback#               # PARAMETERS:	devID  - This parameter is used to specify the device #                        under configuration##               port - 0 (port 1) ... 7 (port 8)##		enable	- 0 (disable), 1 (enable)# 		# NOTES: #------------------------------------------------------------------------------proc EOS_SD1_Loopback {devID port enable} {  set addr [expr 0xEF09 + $port]    admwrb $devID $addr 2 $enable}#------------------------------------------------------------------------------# PROC NAME:  EOS_SONET_CST_Loopback## DESCRIPTION:  This procedure enables/disables the SONET/SDH Client (LAN) #               Loopback#               # PARAMETERS:	devID  - This parameter is used to specify the device #                        under configuration##		enable	- 0 (disable), 1 (enable)# 		# NOTES: #------------------------------------------------------------------------------