testplan

HP3070的主板ICT测试主程序,是用BT-basic写的.

global Sampling
if learning then
  log level is all
else
  if Sampling then
    log level is analog without nhls, pins
  else
    log level is indictments without nhls
  end if
end if
subend

!                          END OF TESTMAIN
!##############################################################################

sub Initialize_Board_Constants
global Panel$,Panel_Rev$
global Board$(*),Board_Rev$(*),Number_Boards_On_Panel
global Using_Multiple_Versions, True, False
global Using_AwareTest

   Number_Boards_On_Panel = 2
   Panel$ = "p651"                 !tony
   Panel_Rev$ = "A01"
   Board$(0) = Panel$
   Board_Rev$(0) = Panel_Rev$
   for Board_Num = 1 to 2
      Board$(Board_Num) = "P651"   !tony
      Board_Rev$(Board_Num) = ""
   next Board_Num

! 'vacuum well' statement goes here (if required)
   vacuum well a is 0,1
!  Using_Multiple_Versions = True
   Using_AwareTest = False
subend

sub Panel_Initialize_BoardSet(State)
global BoardSet(*)
global Number_Boards_On_Panel

   for Board_Num = 1 to Number_Boards_On_Panel
      BoardSet(Board_Num) = State
   next Board_Num
subend

sub Panel_Enable_Boards
global BoardSet(*)
global BoardSet_flash(*)
global BoardSet_boards_1_to_2(*)

!TPW: This subroutine is used by debug and is also provided for
!TPW: use in custom testplans.
   for Board_Num = 1 to 2
      BoardSet_boards_1_to_2(Board_Num) = BoardSet(Board_Num)
      BoardSet_flash(Board_Num) = BoardSet(Board_Num)
   next Board_Num
subend

sub Panel_Disable_Boards
global Number_Boards_On_Panel

!TPW: This subroutine is supplied for use in custom testplans.
!TPW: Note that BoardSet(*) is not modified - use this only in
!TPW: test subroutines. BoardSet(*) will be modified in the
!TPW: testmain after returning from this subroutine.
   for Board_Num = 1 to Number_Boards_On_Panel
      board number is Board_Num
      if boardfailed then call Panel_Disable_Single_Board(Board_Num)
   next Board_Num
subend

sub Panel_Disable_Single_Board(Board_Num)
global BoardSet_flash(*)
global BoardSet_boards_1_to_2(*)

!TPW: This subroutine is supplied for use in custom testplans.
   if (Board_Num >= 1) and (Board_Num <= 2) then
      BoardSet_boards_1_to_2(Board_Num) = 0
   end if
subend

sub Flash_Enable_Boards
global BoardSet_flash(*)
global BoardSet_boards_1_to_2(*)

!TPW: This subroutine is used by flash and is also provided for
!TPW: use in custom testplans.
  for Board_Num = 1 to 2
    BoardSet_boards_1_to_2(Board_Num) = BoardSet_flash(Board_Num)
  next Board_Num
subend

sub Flash_Disable_Single_Board(Board_Num)
global BoardSet_flash(*)
global BoardSet_boards_1_to_2(*)

!TPW: This subroutine is supplied for use in custom testplans.
  if (Board_Num >= 1) and (Board_Num <= 2) then
    BoardSet_boards_1_to_2(Board_Num) = 0
    BoardSet_flash(Board_Num) = 0
  end if
subend

sub Characterize
global All_Failed, Failed_In_Learn
global BoardSet_boards_1_to_2(*)

   call Panel_Initialize_BoardSet(1)
   call Panel_Enable_Boards
   learn capacitance on
   learn capacitance off
   call Update_Status (Failed_In_Learn, All_Failed)
subend

sub Pre_Shorts (Status_Code, Message$)
global All_Failed
global BoardSet_boards_1_to_2(*)

   if Message$ <> "" then  print tab(5);Message$
   call Panel_Enable_Boards
   test "analog/f2" on boards BoardSet_boards_1_to_2(*)
   test "analog/f502" on boards BoardSet_boards_1_to_2(*)
   test "analog/j3%jp" on boards BoardSet_boards_1_to_2(*)
   test "analog/j4%jp" on boards BoardSet_boards_1_to_2(*)
   test "analog/j7%jp" on boards BoardSet_boards_1_to_2(*)
   test "analog/j8%jp" on boards BoardSet_boards_1_to_2(*)
   test "analog/j9%jp" on boards BoardSet_boards_1_to_2(*)
   test "analog/l1" on boards BoardSet_boards_1_to_2(*)
   test "analog/l2" on boards BoardSet_boards_1_to_2(*)
   test "analog/l3" on boards BoardSet_boards_1_to_2(*)
   test "analog/l4" on boards BoardSet_boards_1_to_2(*)
   test "analog/l5" on boards BoardSet_boards_1_to_2(*)
   test "analog/l6" on boards BoardSet_boards_1_to_2(*)
   test "analog/l7" on boards BoardSet_boards_1_to_2(*)
   test "analog/l8" on boards BoardSet_boards_1_to_2(*)
!  test "analog/l9" on boards BoardSet_boards_1_to_2(*)   !ECO
   test "analog/l10" on boards BoardSet_boards_1_to_2(*)
   test "analog/l11" on boards BoardSet_boards_1_to_2(*)
   test "analog/l12" on boards BoardSet_boards_1_to_2(*)
   test "analog/l13" on boards BoardSet_boards_1_to_2(*)
   test "analog/l14" on boards BoardSet_boards_1_to_2(*)
   test "analog/l15" on boards BoardSet_boards_1_to_2(*)
   test "analog/l16" on boards BoardSet_boards_1_to_2(*)
   test "analog/l17" on boards BoardSet_boards_1_to_2(*)
   test "analog/l501" on boards BoardSet_boards_1_to_2(*)
   test "analog/l502" on boards BoardSet_boards_1_to_2(*)
   test "analog/l503" on boards BoardSet_boards_1_to_2(*)
   test "analog/l504" on boards BoardSet_boards_1_to_2(*)
   test "analog/l505" on boards BoardSet_boards_1_to_2(*)
   test "analog/l506" on boards BoardSet_boards_1_to_2(*)
   test "analog/l507" on boards BoardSet_boards_1_to_2(*)
   test "analog/l508" on boards BoardSet_boards_1_to_2(*)
   test "analog/l509%jp1" on boards BoardSet_boards_1_to_2(*)
   test "analog/l509%jp2" on boards BoardSet_boards_1_to_2(*)
   test "analog/l510%jp1" on boards BoardSet_boards_1_to_2(*)
   test "analog/l511%jp1" on boards BoardSet_boards_1_to_2(*)
   test "analog/l512%jp1" on boards BoardSet_boards_1_to_2(*)
   test "analog/l512%jp2" on boards BoardSet_boards_1_to_2(*)
   test "analog/l513%jp1" on boards BoardSet_boards_1_to_2(*)
   test "analog/l514%jp1" on boards BoardSet_boards_1_to_2(*)
   test "analog/l515" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb1" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb2" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb4" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb502" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb503" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb504" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb505" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb507" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb508" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb509" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb511" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb512" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb513" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb514" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb515" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb525" on boards BoardSet_boards_1_to_2(*)
   test "analog/r779" on boards BoardSet_boards_1_to_2(*)
   test "analog/j2%jp" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb517" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb518" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb519" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb522" on boards BoardSet_boards_1_to_2(*)
   test "analog/lb523" on boards BoardSet_boards_1_to_2(*)
!  test "analog/lb524" on boards BoardSet_boards_1_to_2(*)
!  test "analog/lb5" on boards BoardSet_boards_1_to_2(*)
!  test "analog/lb506" on boards BoardSet_boards_1_to_2(*)
!  test "analog/lb516" on boards BoardSet_boards_1_to_2(*)
!  test "analog/lb6" on boards BoardSet_boards_1_to_2(*)
!  test "analog/lb510" on boards BoardSet_boards_1_to_2(*)
!  test "analog/lb520" on boards BoardSet_boards_1_to_2(*)
!  test "analog/lb521" on boards BoardSet_boards_1_to_2(*)
!  test "analog/lb501" on boards BoardSet_boards_1_to_2(*)
!  test "analog/lb3" on boards BoardSet_boards_1_to_2(*)
!  test "analog/l18" on boards BoardSet_boards_1_to_2(*)
!  test "analog/j10%jp" on boards BoardSet_boards_1_to_2(*)
!  test "analog/j11%jp" on boards BoardSet_boards_1_to_2(*)
!  test "analog/j501%jp" on boards BoardSet_boards_1_to_2(*)
!  test "analog/j5%jp" on boards BoardSet_boards_1_to_2(*)
!  test "analog/f501" on boards BoardSet_boards_1_to_2(*)
!  test "analog/f1" on boards BoardSet_boards_1_to_2(*)
   call Update_Status (Status_Code, All_Failed)
subend

sub Shorts (Status_Code, Message$)
global All_Failed
global BoardSet_boards_1_to_2(*)

   if Message$ <> "" then  print tab(5);Message$
   call Panel_Enable_Boards
   test "shorts" on boards BoardSet_boards_1_to_2(*)
   call Update_Status (Status_Code, All_Failed)
subend

sub Analog_Tests (Status_Code, Message$)
global All_Failed
global BoardSet_boards_1_to_2(*)

   if Message$ <> "" then  print tab(5);Message$
   call Panel_Enable_Boards
   test "analog/c77" on boards BoardSet_boards_1_to_2(*)
   test "analog/c9" on boards BoardSet_boards_1_to_2(*)
   test "analog/c79" on boards BoardSet_boards_1_to_2(*)
   test "analog/c74" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1036" on boards BoardSet_boards_1_to_2(*)
   test "analog/c966" on boards BoardSet_boards_1_to_2(*)
   test "analog/c975" on boards BoardSet_boards_1_to_2(*)
   test "analog/c985" on boards BoardSet_boards_1_to_2(*)
   test "analog/c988" on boards BoardSet_boards_1_to_2(*)
   test "analog/c990" on boards BoardSet_boards_1_to_2(*)
   test "analog/c401" on boards BoardSet_boards_1_to_2(*)
!  test "analog/c344" on boards BoardSet_boards_1_to_2(*)  !remove for NVVDD
   test "analog/c346" on boards BoardSet_boards_1_to_2(*)
   test "analog/c99" on boards BoardSet_boards_1_to_2(*)
   test "analog/c240" on boards BoardSet_boards_1_to_2(*)
   test "analog/c143" on boards BoardSet_boards_1_to_2(*)
   test "analog/c163" on boards BoardSet_boards_1_to_2(*)
   test "analog/c170" on boards BoardSet_boards_1_to_2(*)
   test "analog/c191" on boards BoardSet_boards_1_to_2(*)
   test "analog/c994" on boards BoardSet_boards_1_to_2(*)
   test "analog/c239" on boards BoardSet_boards_1_to_2(*)
   test "analog/c240" on boards BoardSet_boards_1_to_2(*)
   test "analog/c241" on boards BoardSet_boards_1_to_2(*)
   test "analog/c242" on boards BoardSet_boards_1_to_2(*)
   test "analog/c436" on boards BoardSet_boards_1_to_2(*)
   test "analog/c437" on boards BoardSet_boards_1_to_2(*)
   test "analog/c450" on boards BoardSet_boards_1_to_2(*)
   test "analog/c510" on boards BoardSet_boards_1_to_2(*)
   test "analog/c243" on boards BoardSet_boards_1_to_2(*)
   test "analog/c244" on boards BoardSet_boards_1_to_2(*)
   test "analog/c524" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1134" on boards BoardSet_boards_1_to_2(*)
   test "analog/c604" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1073" on boards BoardSet_boards_1_to_2(*)
   test "analog/c605" on boards BoardSet_boards_1_to_2(*)
   test "analog/c606" on boards BoardSet_boards_1_to_2(*)
   test "analog/c607" on boards BoardSet_boards_1_to_2(*)
   test "analog/c608" on boards BoardSet_boards_1_to_2(*)
   test "analog/c609" on boards BoardSet_boards_1_to_2(*)
   test "analog/c655" on boards BoardSet_boards_1_to_2(*)
   test "analog/c681" on boards BoardSet_boards_1_to_2(*)
   test "analog/c19" on boards BoardSet_boards_1_to_2(*)
   test "analog/c763" on boards BoardSet_boards_1_to_2(*)
   test "analog/c775" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1136" on boards BoardSet_boards_1_to_2(*)
   test "analog/c808" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1030" on boards BoardSet_boards_1_to_2(*)
   test "analog/c854" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1100" on boards BoardSet_boards_1_to_2(*)
   test "analog/c860" on boards BoardSet_boards_1_to_2(*)
   test "analog/c170" on boards BoardSet_boards_1_to_2(*)
   test "analog/c889" on boards BoardSet_boards_1_to_2(*)
   test "analog/c904" on boards BoardSet_boards_1_to_2(*)
   test "analog/c907" on boards BoardSet_boards_1_to_2(*)
   test "analog/c911" on boards BoardSet_boards_1_to_2(*)
   test "analog/c914" on boards BoardSet_boards_1_to_2(*)
   test "analog/c925" on boards BoardSet_boards_1_to_2(*)
   test "analog/c933" on boards BoardSet_boards_1_to_2(*)
   test "analog/c938" on boards BoardSet_boards_1_to_2(*)
   test "analog/c163" on boards BoardSet_boards_1_to_2(*)
   test "analog/c946" on boards BoardSet_boards_1_to_2(*)
   test "analog/c950" on boards BoardSet_boards_1_to_2(*)
   test "analog/c952" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1108" on boards BoardSet_boards_1_to_2(*)
   test "analog/c335" on boards BoardSet_boards_1_to_2(*)
   test "analog/c350" on boards BoardSet_boards_1_to_2(*)
   test "analog/c376" on boards BoardSet_boards_1_to_2(*)
   test "analog/c377" on boards BoardSet_boards_1_to_2(*)
   test "analog/c378" on boards BoardSet_boards_1_to_2(*)
   test "analog/c407" on boards BoardSet_boards_1_to_2(*)
   test "analog/c404" on boards BoardSet_boards_1_to_2(*)
   test "analog/c73" on boards BoardSet_boards_1_to_2(*)
   test "analog/c156" on boards BoardSet_boards_1_to_2(*)
   test "analog/c184" on boards BoardSet_boards_1_to_2(*)
   test "analog/c248" on boards BoardSet_boards_1_to_2(*)
   test "analog/c249" on boards BoardSet_boards_1_to_2(*)
   test "analog/c250" on boards BoardSet_boards_1_to_2(*)
   test "analog/c598" on boards BoardSet_boards_1_to_2(*)
   test "analog/c599" on boards BoardSet_boards_1_to_2(*)
   test "analog/c600" on boards BoardSet_boards_1_to_2(*)
   test "analog/c668" on boards BoardSet_boards_1_to_2(*)
   test "analog/c818" on boards BoardSet_boards_1_to_2(*)
   test "analog/c928" on boards BoardSet_boards_1_to_2(*)
   test "analog/c135" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1086" on boards BoardSet_boards_1_to_2(*)
   test "analog/c993" on boards BoardSet_boards_1_to_2(*)
   test "analog/c125" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1055" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1053" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1010" on boards BoardSet_boards_1_to_2(*)
!   test "analog/c1132" on boards BoardSet_boards_1_to_2(*)  !1%DACA_VREF
   test "analog/c1136" on boards BoardSet_boards_1_to_2(*)
   test "analog/c41" on boards BoardSet_boards_1_to_2(*)
   test "analog/c42" on boards BoardSet_boards_1_to_2(*)
   test "analog/c141" on boards BoardSet_boards_1_to_2(*)
   test "analog/c358" on boards BoardSet_boards_1_to_2(*)
   test "analog/c414" on boards BoardSet_boards_1_to_2(*)
   test "analog/c511" on boards BoardSet_boards_1_to_2(*)   !unstable
   test "analog/c525" on boards BoardSet_boards_1_to_2(*)
   test "analog/c362" on boards BoardSet_boards_1_to_2(*)
   test "analog/c413" on boards BoardSet_boards_1_to_2(*)
   test "analog/c424" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1073" on boards BoardSet_boards_1_to_2(*)
   test "analog/c417" on boards BoardSet_boards_1_to_2(*)
   test "analog/c425" on boards BoardSet_boards_1_to_2(*)
!  test "analog/c426" on boards BoardSet_boards_1_to_2(*)
!  test "analog/c428" on boards BoardSet_boards_1_to_2(*)   !small capacitor
   test "analog/c1109" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1052" on boards BoardSet_boards_1_to_2(*)
   test "analog/c1123" on boards BoardSet_boards_1_to_2(*)
   test "analog/r942" on boards BoardSet_boards_1_to_2(*)
   test "analog/r205" on boards BoardSet_boards_1_to_2(*)
   test "analog/r541" on boards BoardSet_boards_1_to_2(*)
   test "analog/r542" on boards BoardSet_boards_1_to_2(*)
   test "analog/r606" on boards BoardSet_boards_1_to_2(*)
   test "analog/r608" on boards BoardSet_boards_1_to_2(*)
   test "analog/r609" on boards BoardSet_boards_1_to_2(*)
   test "analog/r5" on boards BoardSet_boards_1_to_2(*)
   test "analog/r8" on boards BoardSet_boards_1_to_2(*)
   test "analog/r664" on boards BoardSet_boards_1_to_2(*)
   test "analog/r700" on boards BoardSet_boards_1_to_2(*)
   test "analog/r726" on boards BoardSet_boards_1_to_2(*)
   test "analog/r745" on boards BoardSet_boards_1_to_2(*)
   test "analog/r803" on boards BoardSet_boards_1_to_2(*)
   test "analog/r813" on boards BoardSet_boards_1_to_2(*)
   test "analog/r858" on boards BoardSet_boards_1_to_2(*)
   test "analog/r867" on boards BoardSet_boards_1_to_2(*)
   test "analog/r874" on boards BoardSet_boards_1_to_2(*)
   test "analog/r938" on boards BoardSet_boards_1_to_2(*)
   test "analog/r834" on boards BoardSet_boards_1_to_2(*)
   test "analog/r642" on boards BoardSet_boards_1_to_2(*)
   test "analog/r651" on boards BoardSet_boards_1_to_2(*)
   test "analog/r674" on boards BoardSet_boards_1_to_2(*)
   test "analog/r6" on boards BoardSet_boards_1_to_2(*)
   test "analog/r31" on boards BoardSet_boards_1_to_2(*)
   test "analog/r127" on boards BoardSet_boards_1_to_2(*)
   test "analog/r173" on boards BoardSet_boards_1_to_2(*)
   test "analog/r162" on boards BoardSet_bo