Sifos Technologies PowerSync PSA100, Technical Reference Manual, Page: 126 / 147

PowerSync Analyzer Reference Manual
March 9, 2010 Sifos Technologies page 126
proc psa_take_six {args} {
global port
# Inputs: List of 6 test ports in list format
# DUT Assumptions
# Detection Signal: No pre-detection, NRZ, 3 steps, 2 edges, > 600 mSec backoff
# Classification Signal: NRZ
# MPS Method: AC
# Process the Test Port List
set portList $args
if { [llength $portList] != 6 } {
return -code error "Must Specify 6 Ports in Slot,Port format"
}
# Initialize result parameters
foreach portId $portList {
set Vport($portId) 0
set RgoodMax($portId) "<26_K"
}
# Pre-Configuration - All Ports
# Power Down all Ports
iload 99,99 i 0
port 99,99 isolate
# Establish Passives for Vvalid Max Test - use 27K ohm for det range validation
passive 99,99 r 27 c 0
# Configure Vpeak measurement for Vvalid_Max measurement – all ports
# Configure for duration of the detection pulse peak = 50 mSec
vdcpeak 99,99 trig on max period 200m timeout 10
# Configure Average VDC measurement for Vport measurement
vdcaverage 99,99 trig off period 100m
# For each port, initiate VvalidMax measurement then given R = RgoodMax
foreach port $portList {
# Sync to trailing edge of pre-detection pulse, then modify trigger point
set syncDetect [ psa_det_sync $port falling level 2.5]
trig1 $port rising
if { $syncDetect == 0 } {
return -code error "Port $port has no detection pulse!"
}
# Initiate Triggered Measurement on this port and connect the port switch
vdcpeak $port stat
port $port connect
}
# For each port, complete VvalidMax measurement then Vport if port powered
foreach port $portList {
# Recover the peak detection voltage - shouldn't have to wait long!
set status [ psa_wait $port vdcpeak 10]
if { [lindex $status 2] == "READY" } {
set Vvalid($port) [lindex $status 3]
} else {
return -code error "Detection Signal Measurement Timed Out !"
}
# Now verify that PSE powered up and recover Vport
set VportMaxR [lindex [ vdcaverage $port stat] 3]
# Disconnect port so it powers down for next test
if { $VportMaxR >= 44 } {
set Vport($port) $VportMaxR
set RgoodMax($port) ">=27_K"
}
}
parray Vvalid
parray Vport
parray RgoodMax
return
}