****************************************************************************************************
** LNG product:		ELISA source
****************************************************************************************************
** Type:               			Sequence 
**  
** FOP Name & Version: 			None 
**
** Description:                    	The following sequence performs the following steps :-
**								- Switch on SWA HIS
**					
**
** Input Arguments:				None
**								
**
** Output Values:					None
**
** CSW Version:					V2.1.3 or higher
** 
** FOPs used:						None 
**
** HK TM packets used:				AB.TM.YIA58452  AB.TM.YIA58211  AB.TM.YIA58440  AB.TM.YIA58446  AB.TM.YIA58902  
**								AB.TM.YIA58435  AB.TM.YIA58200  AB.TM.YIA58061  AB.TM.YIA58445  AB.TM.YIA58216
**
** Test Procedure & Reference:		SO-SWA-MSSL-TOP-059 Issue 1 Section 5.2
**
** Restrictions and Limitations: 	SSMM hardware required to be on before switch ON.
**								SWA DPU to be On in OPS mode.     
**
****************************************************************************************************
**	History
**--------------------------------------------------------------------------------------------------
**	Version	Date			Author			Comment
**--------------------------------------------------------------------------------------------------
**	1.1		26/04/2018	J Silverthorn		Initial version
**	1.4		30/04/2018	E Boulet			Implement A and B side option
**	1.5		30/04/2018	E Boulet			Remove halt to set heartbeat after HIS power up
**	1.6		30/04/2018	E Boulet			extend timeout for catching packet YIA58213
**  1.7									Remove capture of first packet YIA58213
**  1.8 - 1.11							Debugging of TM limits for EM SWA
**  1.12									Debugging of TM limits for EM SWA
**  1.13		01/05/2018	E Boulet			Debugging of TM limits for EM SWA + remove halt before TC HIS on
**	1.14		31/07/2018	j Silverthorn		Check added for HV DISABLE plug
**										Halt prior to LCL On command for in-rush current measurements
**										TM rate change removed for NCR 1025 investigation
**	1.15									Timeout for acquisition of SID2 parameters increased to 100 seconds
**	1.16									Timeout for NIA03010 increased to 240 seconds.
**										Timeout for acquisition of SID2 parameters increased to 120 seconds
**	1.17		02/08/2018					Error traps added in case HV DISABLE plug detection fails
**	1.18		04/08/2018					Changes to mask for HV plug checks, TM acquisition moved
**	1.19									AB.TM.NIAG1206 timeout increased to 120 seconds
**	1.20		06/08/2018					Halt removed prior to sending LCL
**	1.21		04/09/2018	E Boulet			Update TC ZCSD3008 to put parameter in line with new SRDB v 4.610
**	1.22		06/09/2018	E Boulet			Include comment about ZIA58729 and correct typo about SRDB version 4.610 instead of 1.610
**	1.23		12/09/2018	J Silverthorn		$i_reportflowID_1 removed from script
**	1.24									Redundant PCDU Tm's implemented for HIS LCL status and current
**	1.25		16/10/2018	E Boulet			Replace RIU generic command ZCSD3008 by dedicated commands to handle HIS LCL
**	1.26		12/11/2018	J Silverthorn		LCL commands replaced by dedicated commands
**										LCL OFF commands added at start of sequence in case they are on for decontamination heaters.
**	1.27		16/11/2018					De-restriction and re-restriction of relay box commands
**	1.28		08/12/2018					ACS-SVT-140 Obs#37 - Change to high limit for NIA01724
**	1.29		14/12/2018	E Boulet			ACS-SVT-140 Obs#181 - change limits for HIS checks
**	1.30		14/12/2018	E Boulet			ACS-SVT-140 Obs#181 - NIA01724 update typo in limits
**	1.31		10/01/2018	J Silverthorn		Ref. NCR 1068 Relay box telemetries are now correct. Sequence modified to capture correct expected Tm values
**  	1.32   	08/01/2019  	C Loeffler      	Updated per running HIS with Air-Safe HV.  Updated HIS startup telemetry checks.
**	1.33		14/01/2019	J Silverthorn		Corrected typo in relay status acquisitions.
**	1.34									EM limits changed according to email from Chad Loeffler
**	1.35									Diagnostic commands added to allow for a command echo from HIS
**	1.36		02/02/2019	D Cowan			FM Current Limits updated based on email from Chad Loeffler
**	1.37		02/02/2019	S Shanmugam		Changes made in accordance with email from Chad
**	1.38		02/02/2019	D Cowan			Updated table checksum TM checks in accordance with new MRAM
**	1.39		12/02/2019	J Silverthorn		Proto added for $TM - no TM available during Mission tests
**	1.40		20/03/2019					Increase delay for RSA/LCL status check
**	1.41		26/04/2019					Removed diagnostic commands ZIA58927 i.a.w. instructions from HIS team
**	1.42		12/06/2019					Additional commnds included i.a.w. NCR 1329
**	1.43		11/09/2019					Changes made during formal FFT under ACS 498. See comments in script for details.
***************************************************************************************************

** SEQUENCE TISS_HIS_ON

SEQUENCE TISS_HIS_ON
** Definition of Input parameters
	proto
		string		$sUnit := "A" ["A", "B"]
		string      	$sHvPlug := "HV_PLUG_DISABLE" ["HV_PLUG_DISABLE", "HV_PLUG_AIRSAFE"]
		string      	$sHvRamp := "HV_RAMP_NONE" ["HV_RAMP_NONE", "HV_RAMP_UP"]
		string		$TM := "YES" ["YES", "NO"]
	end proto

** Definition of Constants
	const
		string   		$sTitle  		:= "TITLE"  
		string		$sTrace 		:= "TRACE"

** Definition of Variables
	var
		string		$sBufArg := ""
		string		$sNumPha
		string		$sPlatform	
		date			$dCurDate
	
		int 			$Count
		int			$i_reportflowID
		int      		$i_RptRefNb
		int      		$i_RptRefNb_1
		int      		$i_RptRefNb_2
		int      		$i_RptRefNb_3

		string 		$s_lcl_a_cur := "AB.TM.NPWD3267"											--IFA_LCL4_LCL16 SWA-A_LCL TM
		string		$s_lcl_b_cur := "AB.TM.NPWD2768"											--IFA_LCL2_LCL17 SWA-B PWR_LCL TM
		string 		$s_lcl_a_sts := "AB.TM.NPWD0077"											--IFA_LCL4_LCL16 SWA-A_LCL ST
		string		$s_lcl_b_sts := "AB.TM.NPWD0038"											--IFA_LCL2_LCL17 SWA-B PWR_LCL ST
		string 		$s_his_a_cur := "AB.TM.NPWD3010"											--IFA_LCL4_LCL16 SWA-A_LCL TM
		string		$s_his_b_cur := "AB.TM.NPWD2510"											--IFA_LCL2_LCL17 SWA-B PWR_LCL TM
		string 		$s_his_a_sts := "AB.TM.NPWD0050"
		string		$s_his_b_sts := "AB.TM.NPWD0010"											--IFA_LCL2_LCL17 SWA-B PWR_LCL ST
		string 		$s_rsa_a_sts := "AB.TM.NRUD2007"											--Acq. RSA_1_1_9 SWA A
		string		$s_rsa_b_sts := "AB.TM.NRUD2067"											--Acq. RSA_2_1_9 SWA B

		string 		$sTTRM
		string 		$sPM
		string 		$sRIU
		string		$sPCDU
		string		$sMilBus	

		string		$sRSA_A
		string		$sRSA_B


	main
		window

		@SU_SEQSTART("Switching SWA HIS side - "+$sUnit+" ON", *$dCurDate, $sTrace, "")
		$sPlatform := AB.USR.PLATFORM

		if ($TM = "YES")
			@TPZC_PSFT_CONFIG(*$sTTRM,*$sPM,*$sRIU,*$sPCDU,*$sMilBus)

			if ($sPCDU = "B")
				$s_lcl_a_cur := "AB.TM.NPWT3267"
				$s_lcl_b_cur := "AB.TM.NPWT2768"
				$s_lcl_a_sts := "AB.TM.NPWT0077"
				$s_lcl_b_sts := "AB.TM.NPWT0038"
				$s_his_a_sts := "AB.TM.NPWT0050"
				$s_his_b_sts := "AB.TM.NPWT0010"
				$s_his_a_cur := "AB.TM.NPWT3010"
				$s_his_b_cur := "AB.TM.NPWT2510"	
			endif
			if ($sRIU = "B")
				$s_rsa_a_sts := "AB.TM.NRUT2007"
				$s_rsa_b_sts := "AB.TM.NRUT2067"
			endif

			********************************************************************
			@SU_SEQPHASE2(1, "Initial checks", *$sNumPha, "",  $sTitle)
			********************************************************************
			
			@su_digacs($s_lcl_a_sts,"NO","NO", $sTrace, 90) 
			@su_digacs($s_lcl_b_sts,"NO","NO", $sTrace, 90) 
			@su_digacrs($s_rsa_a_sts,"NO","NO", *$sRSA_A, $sTrace, 90) 
			@su_digacrs($s_rsa_b_sts,"NO","NO", *$sRSA_B, $sTrace, 90) 
			@su_anaacs($s_lcl_a_cur,"NO","NO",$sTrace, 90) 
			@su_anaacs($s_lcl_b_cur,"NO","NO",$sTrace, 90) 
			
			if (($sRSA_A = "Off") and ($sRSA_B = "Off"))
				ta_print "Error SWA DPU is OFF - please check"
				Return "INIT_NOK"
			end if
			
			@su_digacs("AB.TM.NIAD0703","=","OPS", $sTrace, 5) 
		endif

		@SU_SEQPHASE2(1, "De-restriction of necessary commands", *$sNumPha, "",  $sTitle)	
		SETGRAVITY "ZCS2Z09W","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09Y","NORM","TC","AB"

		SETGRAVITY "ZCS2Z09V","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09X","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09C","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09E","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09G","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09D","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09F","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09J","PROH","TC","AB"

		SETGRAVITY "ZCS2Z09V","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09X","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09C","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09E","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09G","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09D","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09F","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09J","NORM","TC","AB"

		@SU_SEQPHASE2(1, "Switch HIS on  ", *$sNumPha, "",  $sTitle)	
		$i_reportflowID := startreportflow("AB.TM.YIA58601")
		
		@SU_SEND({ AB.TC.ZCS2Z09W }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			
		if ($TM = "YES")
			@SU_SEQPHASE2(2, "Checking LCL HTR1 is OFF", *$sNumPha, "",  $sTitle)	
			@su_digacs($s_his_a_sts,"=","OFF", $sTrace, 5)
		endif
		
		@SU_SEND({ AB.TC.ZCS2Z09Y }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)

		if ($TM = "YES")
			@SU_SEQPHASE2(2, "Checking LCL HTR2 is OFF", *$sNumPha, "",  $sTitle)	
			@su_digacs($s_his_b_sts,"=","OFF", $sTrace, 5)
		endif

		IF ($sUnit = "A")			
			@SU_SEQPHASE2(2, "Configure Relay box relays to position 1", *$sNumPha, "",  $sTitle)	
			
			@SU_SEND({ AB.TC.ZCS2Z09C}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)	--RIU SHP SWA_HIS_Ret1Pos1 change to avoid using generic command and in line with SRDB v4.610

			if ($TM = "YES")
				@su_digacs("AB.TM.NBCD0033","=","Pos 1", $sTrace, 5) -- Note NCR on TM inversion
			endif

			@SU_SEND({ AB.TC.ZCS2Z09E}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)	--RIU SHP SWA_HIS_Ret2Pos1 change to avoid using generic command and in line with SRDB v4.610

			if ($TM = "YES")
				@su_digacs("AB.TM.NBCD0043","=","Pos 1", $sTrace, 5)  -- Note NCR on TM inversion
	
				@SU_SEQPHASE2(2, "Checking LCL HTR1 is OFF", *$sNumPha, "",  $sTitle)	
				@su_digacs($s_his_a_sts,"=","OFF", $sTrace, 5)
			endif		
	
			@SU_SEQPHASE2(2, "Switching Relay box output to ON", *$sNumPha, "",  $sTitle)	

			@SU_SEND({ AB.TC.ZCS2Z09G}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)	--RIU SHP SWA_HIS_NominON  change to avoid using generic command and in line with SRDB v4.610

			if ($TM = "YES")
				@su_digacs("AB.TM.NBCD0034","=","On", $sTrace, 5)  -- Note NCR on TM inversion			
			endif
			
		ELSE 			
			@SU_SEQPHASE2(2, "Configure Relay box relays to position 2", *$sNumPha, "",  $sTitle)	
			
			@SU_SEND({ AB.TC.ZCS2Z09D}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)	--RIU SHP SWA_HIS_Ret1Pos2 change to avoid using generic command and in line with SRDB v4.610

			if ($TM = "YES")
				@su_digacs("AB.TM.NBCD0033","=","Pos 2", $sTrace, 5) -- Note NCR on TM inversion
			endif
		
			@SU_SEND({ AB.TC.ZCS2Z09F}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)	--RIU SHP SWA_HIS_Ret2Pos2 change to avoid using generic command and in line with SRDB v4.610

			if ($TM = "YES")
				@su_digacs("AB.TM.NBCD0043","=","Pos 2", $sTrace, 5)  -- Note NCR on TM inversion
	
				@SU_SEQPHASE2(2, "Checking LCL HTR2 is OFF", *$sNumPha, "",  $sTitle)	
				@su_digacs($s_his_b_sts,"=","OFF", $sTrace, 5)
			endif
	
			@SU_SEQPHASE2(2, "Switching Relay box output to ON", *$sNumPha, "",  $sTitle)	

			@SU_SEND({ AB.TC.ZCS2Z09J}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)	--RIU SHP SWA_HIS_RedunON  change to avoid using generic command and in line with SRDB v4.610

			if ($TM = "YES")
				@su_digacs("AB.TM.NBCD0046","=","On", $sTrace, 5)  -- Note NCR on TM inversion			
			endif
		ENDIF

		@SU_SEQPHASE2(2, "Sending commands to switch ON HIS", *$sNumPha, "",  $sTitle)	


		@SU_SEND({ AB.TC.ZIA58729 , \
						SHF:OBV := 0 , \
						SID:OBV := 120}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 10)
		@su_wait(1)
		-- The TC ZIA58729 is sent twice as defined in the SWA test procedure. The second time the TC is sent, it will appear in red in Open Center TC monitor window. This is expected.
		@SU_SEND({ AB.TC.ZIA58729 , \
						SHF:OBV := 0 , \
						SID:OBV := 120}, $sTrace, VER := "NACK", TIMEOUT_VER := 10)
		@su_wait(1)

		IF ($sUnit = "A")			
			@SU_SEND({ AB.TC.ZCS2Z09V }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			
			if ($TM = "YES")
				@SU_SEQPHASE2(2, "Checking LCL HTR1 is ON", *$sNumPha, "",  $sTitle)	
				@su_digacs($s_his_a_sts,"=","ON", $sTrace, 5)
				@su_anaacs($s_his_a_cur,"NO","NO", $sTrace, 5)  -- Need to establish expected limits
			endif

		ELSE
			@SU_SEND({ AB.TC.ZCS2Z09X }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			
			if ($TM = "YES")
				@SU_SEQPHASE2(2, "Checking LCL HTR2 is ON", *$sNumPha, "",  $sTitle)	
				@su_digacs($s_his_b_sts,"=","ON", $sTrace, 5)
				@su_anaacs($s_his_b_cur,"NO","NO", $sTrace, 5)  -- Need to establish expected limits
			endif
		ENDIF
		
		@SU_SEQPHASE2(1, "Re-restriction of necessary commands", *$sNumPha, "",  $sTitle)	
		SETGRAVITY "ZCS2Z09W","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09Y","PROH","TC","AB"

		SETGRAVITY "ZCS2Z09V","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09X","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09C","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09E","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09G","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09D","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09F","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09J","PROH","TC","AB"

		SETGRAVITY "ZCS2Z09V","DANG","TC","AB"
		SETGRAVITY "ZCS2Z09X","DANG","TC","AB"
		SETGRAVITY "ZCS2Z09C","DANG","TC","AB"
		SETGRAVITY "ZCS2Z09E","DANG","TC","AB"
		SETGRAVITY "ZCS2Z09G","DANG","TC","AB"
		SETGRAVITY "ZCS2Z09D","DANG","TC","AB"
		SETGRAVITY "ZCS2Z09F","DANG","TC","AB"
		SETGRAVITY "ZCS2Z09J","DANG","TC","AB"

		@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58601", *$i_RptRefNb) -- 3 minute timeout. Expected wait is 90 seconds.
		stopreportflow $i_reportflowID

		@SU_SEND({ AB.TC.ZIA58063 , \
			PIA60452_ := 1 , \
			PIA60449_1 := "HISHEARTB_MI" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)

		if ($TM = "YES")

			IF ($sPlatform = "FM")

				@SU_SEQPHASE2(2, "Checking remaining HK TM", *$sNumPha, "",  $sTitle)
				@su_rawacs("AB.TM.NIA03501","=",0xC0DEC0DE, 0xFFFFFFFF, $sTrace, 5) --  BOOT.eeprom_1_code_magic_num
				@su_rawacs("AB.TM.NIA03502","=",0xDEEC9F01, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_REP_CKS
				@su_rawacs("AB.TM.NIA03503","=",0x00009F15, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_LEN
				@su_rawacs("AB.TM.NIA03504","=",0x44180207, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_VER
				@su_rawacs("AB.TM.NIA03505","=",0x40080000, 0xFFFFFFFF, $sTrace, 5) --  BOOT.eeprom_1_code_addr
				@su_rawacs("AB.TM.NIA03506","=",0xC0DEC0DE, 0xFFFFFFFF, $sTrace, 5) --  BOOT.eeprom_2_code_magic_num
				@su_rawacs("AB.TM.NIA03507","=",0xDEEC9F01, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_REP_CKS
				@su_rawacs("AB.TM.NIA03508","=",0x00009F15, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_LEN
				@su_rawacs("AB.TM.NIA03509","=",0x44180207, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_VER
				@su_rawacs("AB.TM.NIA03510","=",0x40080000, 0xFFFFFFFF, $sTrace, 5) --  BOOT.eeprom_2_code_addr
				@su_rawacs("AB.TM.NIA03511","=",0xDEEC9F01, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_CAL_CKS
				@su_rawacs("AB.TM.NIA03512","=",0xDEEC9F01, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_CAL_CKS
				@su_rawacs("AB.TM.NIA03513","=",0x007AB1E5, 0xFFFFFFFF, $sTrace, 5) --  BOOT.eeprom_1_table_magic_num
				@su_rawacs("AB.TM.NIA03514","=",0x138DB66D, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_TABLE_REP_CKS
				@su_rawacs("AB.TM.NIA03515","=",0x00017F86, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_TABLE_LEN
				@su_rawacs("AB.TM.NIA03516","=",0x07190131, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_TABLE_VER
				@su_rawacs("AB.TM.NIA03517","=",0x007AB1E5, 0xFFFFFFFF, $sTrace, 5) --  BOOT.eeprom_2_table_magic_num
				@su_rawacs("AB.TM.NIA03518","=",0x138DB66D, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_TABLE_REP_CKS
				@su_rawacs("AB.TM.NIA03519","=",0x00017F86, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_TABLE_LEN
				@su_rawacs("AB.TM.NIA03520","=",0x07190131, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_TABLE_VER
				@su_rawacs("AB.TM.NIA03521","=",0x138DB66D, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_TABLE_CAL_CKS
				@su_rawacs("AB.TM.NIA03522","=",0x138DB66D, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_TABLE_CAL_CKS
				
				@SU_RAWacs("AB.TM.NIA03546","=",0x83, 0xFF, $sTrace, 5)              --  BOOT.spw_link_version
				@SU_RAWacs("AB.TM.NIA03545","=",0xFFFF, 0xFFFF, $sTrace, 5)          --  BOOT.adc_wait_states
				@SU_RAWacs("AB.TM.NIA03541","=",0x360802FF, 0xFFFFFFFF, $sTrace, 5)  --  BOOT.sparc_mem_cfg_reg_1
				@SU_RAWacs("AB.TM.NIA03543","=",0xC8000300, 0xFFFFFFFF, $sTrace, 5)  --  BOOT.sparc_mem_cfg_reg_3
				@SU_IPVacs("AB.TM.NIA04700","=19","=19", $sTrace, 5)                 --  BOOT.cdh_fpga_rev
				@SU_IPVacs("AB.TM.NIA04400",">=1","NO", $sTrace, 5)                  --  BOOT.pkt_creation_time_whole
				
				@SU_IPVacs("AB.TM.NIA03525","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_TEST_FST
				@SU_IPVacs("AB.TM.NIA03526","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_TEST_LST
				@SU_IPVacs("AB.TM.NIA03527","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_PAT_FAI_CNT
				@SU_IPVacs("AB.TM.NIA03528","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_PAT_BAD_BLKS
				@SU_IPVacs("AB.TM.NIA03529","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_INV_TEST_FST
				@SU_IPVacs("AB.TM.NIA03530","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_INV_TEST_LST
				@SU_IPVacs("AB.TM.NIA03531","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_INV_FAI_CNT
				@SU_IPVacs("AB.TM.NIA03532","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_INV_BAD_BLKS
				@SU_IPVacs("AB.TM.NIA03533","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_PAT_FST_FAI_ADD
				@SU_IPVacs("AB.TM.NIA03534","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_PAT_LST_FAI_ADD
				@SU_IPVacs("AB.TM.NIA03535","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_PAT_FAI_CNT
				@SU_IPVacs("AB.TM.NIA03536","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_PAT_BAD_BLKS
				@SU_IPVacs("AB.TM.NIA03537","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_INV_FST_FAI_ADD
				@SU_IPVacs("AB.TM.NIA03538","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_INV_LST_FAI_ADD
				@SU_IPVacs("AB.TM.NIA03539","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_INV_FAI_CNT
				@SU_IPVacs("AB.TM.NIA03540","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_INV_BAD_BLKS
				@SU_RAWacs("AB.TM.NIA03523","=",0x4A55, 0xFFFFFFFF, $sTrace, 5) --  BOOT.boot_mem_addr
				@SU_RAWacs("AB.TM.NIA03524","=",0x4A55, 0xFFFFFFFF, $sTrace, 5) --  BOOT.boot_mem_data
				
				@su_wait(90)
				
				-- If using HV Airsafe Plug
				IF ($sHvPlug = "HV_PLUG_AIRSAFE")
					@SU_SEQPHASE2(2, "Checking HV AIRSAFE plug is fitted", *$sNumPha, "",  $sTitle)
					on error @RSTAT_RET()
					@su_rawacs("AB.TM.NIAG1206","=",0x40, 0x40, $sTrace, 120) -- Checking for "AIRSAFE" plug fitted (CDH)
					@su_rawacs("AB.TM.NIAG3803","=",0x10, 0x10, $sTrace, 120) -- Checking for "AIRSAFE" plug fitted (DSCB)
					on error default
					
					-- default HV_DISABLE
				ELSE
					@SU_SEQPHASE2(2, "Checking HV DISABLE plug is fitted", *$sNumPha, "",  $sTitle)
					on error @RSTAT_RET()
					@su_rawacs("AB.TM.NIAG1206","=",0x20, 0x20, $sTrace, 120) -- Checking for "DISABLE" plug fitted (CDH)
					@su_rawacs("AB.TM.NIAG3803","=",0x0, 0x10, $sTrace, 120)  -- Checking for "DISABLE" plug fitted (DSCB)
					on error default
					
					-- check for mismatch of requesting HV ramp with the disable plug
					IF ($sHvRamp = "HV_RAMP_UP")
						ta_print "Error HIS HV cannot ramp up when DISABLE Plug is installed"
						Return "INIT_NOK"
					ENDIF
					
					-- HV Plug check
				ENDIF
				
				@su_rawacs("AB.TM.NIAG1202","=",0x40, 0xF0, $sTrace, 120)    -- HIS mode check 0x40 = "LV ENG"
				@SU_IPVacs("AB.TM.NIA03010",">=91","<=100", $sTrace, 240)    -- HK.his_proc_idle
				@SU_IPVacs("AB.TM.NIA04400",">=1","NO", $sTrace, 120)        -- HK.pkt_creation_time_whole
				@SU_IPVacs("AB.TM.NIA04560","=0","=0", $sTrace, 120)         -- HK.macro_current_wait
				@SU_IPVacs("AB.TM.NIA04561","=0","=0", $sTrace, 120)         -- HK.macro_last_accepted_service
				@SU_IPVacs("AB.TM.NIA04562","=0","=0", $sTrace, 120)         -- HK.macro_last_accepted_subservice
				@SU_IPVacs("AB.TM.NIA04563","=0","=0", $sTrace, 120)         -- HK.macro_last_rejected_service
				@SU_IPVacs("AB.TM.NIA04564","=0","=0", $sTrace, 120)         -- HK.macro_last_rejected_subservice
				@SU_IPVacs("AB.TM.NIA04567","=0","=0", $sTrace, 120)         -- HK.con_test_cnt
				@SU_IPVacs("AB.TM.NIA04583","=4095","=4095", $sTrace, 120)   -- HK.dscb_adc_waits
				@SU_IPVacs("AB.TM.NIA04588","=3","=3", $sTrace, 120)         -- HK.lim_pers_voltage
				@SU_IPVacs("AB.TM.NIA04589","=3","=3", $sTrace, 120)         -- HK.lim_pers_current
				@SU_IPVacs("AB.TM.NIA04590","=0","=0", $sTrace, 120)         -- HK.dscb_wdog_count
				@SU_IPVacs("AB.TM.NIA04591","=6","=6", $sTrace, 120)         -- HK.dscb_fpga_rev
				@SU_IPVacs("AB.TM.NIA04592","=20","=20", $sTrace, 120)       -- HK.dscb_fpga_base
				@SU_IPVacs("AB.TM.NIA04594","=0","=0", $sTrace, 120)         -- HK.dscb_corr_edac
				@SU_IPVacs("AB.TM.NIA04595","=0","=0", $sTrace, 120)         -- HK.dscb_uncorr_edac
				@SU_IPVacs("AB.TM.NIA04599","=0","=0", $sTrace, 120)         -- HK.dscb_naks
				
--				@su_anaacs("AB.TM.NIA01392",">=-20","<=40", $sTrace, 120)            -- HK.his_lvps_ac_link_t_ave
--				@su_anaacs("AB.TM.NIA01393",">=-20","<=40", $sTrace, 120)            -- HK.HIS_LVPS_12V_DCDC_TMP_AVE
--				@su_anaacs("AB.TM.NIA01394",">=-20","<=40", $sTrace, 120)            -- HK.HIS_LVPS_P3_3V_DCDC_TMP_AVE
--				@su_anaacs("AB.TM.NIA01395",">=-20","<=40", $sTrace, 120)            -- HK.his_lvps_5V_dcdc_tmp_ave
--				@su_anaacs("AB.TM.NIA01396",">=-20","<=40", $sTrace, 120)            -- HK.HIS_PS_HVPS_TMP_AVE
--				@su_anaacs("AB.TM.NIA01397",">=-20","<=40", $sTrace, 120)            -- HK.HIS_CDH_BOARD_TMP_AVE
--				@su_anaacs("AB.TM.NIA01398",">=-20","<=40", $sTrace, 120)            -- HK.HIS_CDH_CPU_TMP_AVE
--				@su_anaacs("AB.TM.NIA01399",">=-20","<=40", $sTrace, 120)            -- HK.HIS_HVPS_TMP_AVE


-- v1.43 OBS #1 temporary change due to ne cal curve in database

				@su_rawacs("AB.TM.NIA01392","NO",0x0, 0x0, $sTrace, 120)            -- HK.his_lvps_ac_link_t_ave 
				@su_rawacs("AB.TM.NIA01393","NO",0x0, 0x0, $sTrace, 120)            -- HK.HIS_LVPS_12V_DCDC_TMP_AVE -- v1.43
				@su_rawacs("AB.TM.NIA01394","NO",0x0, 0x0, $sTrace, 120)            -- HK.HIS_LVPS_P3_3V_DCDC_TMP_AVE -- v1.43
				@su_rawacs("AB.TM.NIA01395","NO",0x0, 0x0, $sTrace, 120)            -- HK.his_lvps_5V_dcdc_tmp_ave -- v1.43
				@su_rawacs("AB.TM.NIA01396","NO",0x0, 0x0, $sTrace, 120)            -- HK.HIS_PS_HVPS_TMP_AVE -- v1.43
				@su_rawacs("AB.TM.NIA01397","NO",0x0, 0x0, $sTrace, 120)            -- HK.HIS_CDH_BOARD_TMP_AVE -- v1.43
				@su_rawacs("AB.TM.NIA01398","NO",0x0, 0x0, $sTrace, 120)            -- HK.HIS_CDH_CPU_TMP_AVE -- v1.43
				@su_rawacs("AB.TM.NIA01399","NO",0x0, 0x0, $sTrace, 120)            -- HK.HIS_HVPS_TMP_AVE -- v1.43

				@su_anaacs("AB.TM.NIA01400",">=-0.02805","<=0.1683", $sTrace, 120)   -- HK.his_lvps_ac_link_i_ave
				@su_anaacs("AB.TM.NIA01401",">=0","<=24.3716", $sTrace, 120)         -- HK.his_lvps_ac_link_v_ave
				@su_anaacs("AB.TM.NIA01402",">=-13.2","<=-12.3481", $sTrace, 120)    -- HK.HIS_LVPS_N12V_AVE
				@su_anaacs("AB.TM.NIA01403",">=1.72078","<=1.82825", $sTrace, 120)   -- HK.his_cdh_p1_8v_v_ave
				@su_anaacs("AB.TM.NIA01404",">=1.4453","<=1.53676", $sTrace, 120)    -- HK.his_cdh_p1_5v_v_ave
				@su_anaacs("AB.TM.NIA01405",">=12.04837","<=12.80496", $sTrace, 120) -- HK.HIS_LVPS_P12V_AVE
				@su_anaacs("AB.TM.NIA01406",">=0.239","<=0.448", $sTrace, 120)       -- HK.HIS_LVPS_P3_3V_CUR_AVE
				@su_anaacs("AB.TM.NIA01407",">=-0.618","<=0", $sTrace, 120)          -- HK.HIS_HVPS_MAIN_NEG_AVE
				@su_anaacs("AB.TM.NIA01408",">=-0.618","<=0.618", $sTrace, 120)      -- HK.HIS_HVPS_TOP_DEF_AVE
				@su_anaacs("AB.TM.NIA01409",">=-0.618","<=0.618", $sTrace, 120)      -- HK.HIS_HVPS_BOT_DEF_AVE
				@su_anaacs("AB.TM.NIA01340",">=-49.9","<=55", $sTrace, 120)          -- HK.his_eais_port_tmp_t_ave
				@su_anaacs("AB.TM.NIA01343",">=0","<=0.618", $sTrace, 120)           -- HK.HIS_HVPS_MAIN_POS_AVE
				@su_anaacs("AB.TM.NIA01346",">=-0.618","<=0", $sTrace, 120)          -- HK.HIS_HVPS_ANL_AVE
				@su_anaacs("AB.TM.NIA01349",">=-0.618","<=0.618", $sTrace, 120)      -- HK.HIS_HVPS_TOP_PLATE_AVE
				@su_anaacs("AB.TM.NIA01352",">=-2.64","<=0", $sTrace, 120)           -- HK.HIS_PA_HVPS_VOLT_M_AVE
				@su_anaacs("AB.TM.NIA01702",">=4.93317","<=5.08674", $sTrace, 120)   -- HK.his_cdh_p5v_dac_v_ave
				@su_anaacs("AB.TM.NIA01705",">=3.28086","<=3.346853", $sTrace, 120)  -- HK.his_cdh_p3_3v_adc_v_ave
				@su_anaacs("AB.TM.NIA01711",">=0.013","<=0.110", $sTrace, 120)       -- HK.HIS_HVPS_P12V_CUR_AVE
				@su_anaacs("AB.TM.NIA01714",">=-0.110","<=-0.013", $sTrace, 120)      -- HK.HIS_HVPS_N12V_CUR_AVE
				@su_anaacs("AB.TM.NIA01723",">=-0.0121","<=-0.009", $sTrace, 120)    -- HK.HIS_LVPS_N5V_CUR_AVE
				@su_anaacs("AB.TM.NIA01726",">=-0.126","<=-0.017", $sTrace, 120)     -- HK.HIS_LVPS_N12V_CUR_AVE
				@su_anaacs("AB.TM.NIA01729",">=3.20682","<=3.41548", $sTrace, 120)   -- HK.HIS_LVPS_P3_3V_AVE
				@su_anaacs("AB.TM.NIA01732",">=0.027","<=0.0429", $sTrace, 120)      -- HK.HIS_LVPS_P5V_CUR_AVE
				@su_anaacs("AB.TM.NIA01735",">=4.90432","<=5.21077", $sTrace, 120)   -- HK.HIS_LVPS_P5V_AVE
				@su_anaacs("AB.TM.NIA01738",">=-5.22954","<=-4.97319", $sTrace, 120) -- HK.HIS_LVPS_N5V_AVE
				@su_anaacs("AB.TM.NIA01741",">=0.015","<=0.111", $sTrace, 120)       -- HK.HIS_LVPS_P12V_CUR_AVE
				@su_ipvacs("AB.TM.NIA01708",">=9","<=25", $sTrace, 120)              -- HK.his_cdh_ground_v_ave
				
				@su_anaacs("AB.TM.NIA04653",">=0","<=0.33", $sTrace, 120)            -- HK.HIS_STARTMCPVMON_AVE
				@su_anaacs("AB.TM.NIA04654",">=0","<=0.33", $sTrace, 120)            -- HK.HIS_STOPMCPVMON_AVE
				@su_anaacs("AB.TM.NIA04655",">=0","<=110", $sTrace, 120)             -- HK.HIS_SSDVMON_AVE
				@su_anaacs("AB.TM.NIA04656",">=0","<=0.145", $sTrace, 120)           -- HK.HIS_OFFSETVMON_AVE
				@su_anaacs("AB.TM.NIA04657",">=0","<=11.604", $sTrace, 120)          -- HK.HIS_STARTMCPIMON_AVE
				@su_anaacs("AB.TM.NIA04658",">=0","<=15.211", $sTrace, 120)          -- HK.HIS_STOPMCPIMON_AVE

--				@su_anaacs("AB.TM.NIA04659",">=-20","<=35", $sTrace, 120)            -- HK.HIS_STOP_TEMP_AVE
--				@su_anaacs("AB.TM.NIA04660",">=-20","<=35", $sTrace, 120)            -- HK.HIS_DSCB_TEMP_AVE

-- v1.43 OBS #1 temporary change due to ne cal curve in database

				@su_rawacs("AB.TM.NIA04659","NO",0x0, 0x0, $sTrace, 120) 
				@su_rawacs("AB.TM.NIA04660","NO",0x0, 0x0, $sTrace, 120) 

				@su_anaacs("AB.TM.NIA04661",">=4.9098","<=5.0601", $sTrace, 120)     -- HK.HIS_P5V_DAC_REF_MON_AVE
				@su_anaacs("AB.TM.NIA04662",">=3.26242","<=3.345645", $sTrace, 120)  -- HK.HIS_P3_3V_ADC_REF_AVE
				@su_anaacs("AB.TM.NIA04663",">=4.91176","<=5.06212", $sTrace, 120)   -- HK.HIS_P5V_ADC_REF_MON_AVE
				@su_anaacs("AB.TM.NIA04664",">=0","<=4095", $sTrace, 120)            -- HK.HIS_ASIC_MON_AVE
				@su_anaacs("AB.TM.NIA04665",">=3.19809","<=3.39591", $sTrace, 120)   -- HK.HIS_P3_3V_AVE
				@su_anaacs("AB.TM.NIA04666",">=1.42595","<=1.57815", $sTrace, 120)   -- HK.HIS_P1_5V_AVE
				@su_anaacs("AB.TM.NIA04667",">=0","<=4", $sTrace, 120)               -- HK.HIS_SSDIMON_AVE
				@su_anaacs("AB.TM.NIA04668",">=0","<=5", $sTrace, 120)               -- HK.HIS_OFFSETIMON_AVE
				@su_anaacs("AB.TM.NIA04669",">=0.0061","<=0.0156", $sTrace, 120)     -- HK.HIS_V_IMON_REF_AVE

--				@su_anaacs("AB.TM.NIA04670",">=-20","<=35", $sTrace, 120)            -- HK.HIS_HVPS_TEMP_AVE
--				@su_anaacs("AB.TM.NIA04671",">=-20","<=35", $sTrace, 120)            -- HK.HIS_DSIB_TEMP_AVE
--				@su_anaacs("AB.TM.NIA04672",">=-20","<=35", $sTrace, 120)            -- HK.HIS_SSD_TEMP_AVE
--				@su_anaacs("AB.TM.NIA04673",">=-20","<=35", $sTrace, 120)            -- HK.HIS_ASIC_TEMP_AVE
--				@su_anaacs("AB.TM.NIA04674",">=-20","<=35", $sTrace, 120)            -- HK.HIS_START_TEMP_AVE

-- v1.43 OBS #1 temporary change due to ne cal curve in database

				@su_rawacs("AB.TM.NIA04670","NO",0x0, 0x0, $sTrace, 120) 
				@su_rawacs("AB.TM.NIA04671","NO",0x0, 0x0, $sTrace, 120) 
				@su_rawacs("AB.TM.NIA04672","NO",0x0, 0x0, $sTrace, 120) 
				@su_rawacs("AB.TM.NIA04673","NO",0x0, 0x0, $sTrace, 120) 
				@su_rawacs("AB.TM.NIA04674","NO",0x0, 0x0, $sTrace, 120) 

				
			ELSE -- ELM
				
				@SU_SEQPHASE2(2, "Checking remaining HK TM", *$sNumPha, "",  $sTitle)
				@su_rawacs("AB.TM.NIA03501","=",0xC0DEC0DE, 0xFFFFFFFF, $sTrace, 5) --  BOOT.eeprom_1_code_magic_num
				@su_rawacs("AB.TM.NIA03502","=",0x65FF6C88, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_REP_CKS
				@su_rawacs("AB.TM.NIA03503","=",0x00009F7D, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_LEN
				@su_rawacs("AB.TM.NIA03504","=",0x44180207, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_VER
				@su_rawacs("AB.TM.NIA03505","=",0x40080000, 0xFFFFFFFF, $sTrace, 5) --  BOOT.eeprom_1_code_addr
				@su_rawacs("AB.TM.NIA03506","=",0xC0DEC0DE, 0xFFFFFFFF, $sTrace, 5) --  BOOT.eeprom_2_code_magic_num
				@su_rawacs("AB.TM.NIA03507","=",0x65FF6C88, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_REP_CKS
				@su_rawacs("AB.TM.NIA03508","=",0x00009F7D, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_LEN
				@su_rawacs("AB.TM.NIA03509","=",0x44180207, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_VER
				@su_rawacs("AB.TM.NIA03510","=",0x40080000, 0xFFFFFFFF, $sTrace, 5) --  BOOT.eeprom_2_code_addr
				@su_rawacs("AB.TM.NIA03511","=",0x65FF6C88, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_CAL_CKS
				@su_rawacs("AB.TM.NIA03512","=",0x65FF6C88, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_CAL_CKS
				@su_rawacs("AB.TM.NIA03513","=",0x007AB1E5, 0xFFFFFFFF, $sTrace, 5) --  BOOT.eeprom_1_table_magic_num
				@su_rawacs("AB.TM.NIA03514","=",0x8FB4BCFC, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_TABLE_REP_CKS
				@su_rawacs("AB.TM.NIA03515","=",0x00017F86, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_TABLE_LEN
				@su_rawacs("AB.TM.NIA03516","=",0xE1180213, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_TABLE_VER
				@su_rawacs("AB.TM.NIA03517","=",0x007AB1E5, 0xFFFFFFFF, $sTrace, 5) --  BOOT.eeprom_2_table_magic_num
				@su_rawacs("AB.TM.NIA03518","=",0x8FB4BCFC, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_TABLE_REP_CKS
				@su_rawacs("AB.TM.NIA03519","=",0x00017F86, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_TABLE_LEN
				@su_rawacs("AB.TM.NIA03520","=",0xE1180213, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_TABLE_VER
				@su_rawacs("AB.TM.NIA03521","=",0x8FB4BCFC, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM1_TABLE_CAL_CKS
				@su_rawacs("AB.TM.NIA03522","=",0x8FB4BCFC, 0xFFFFFFFF, $sTrace, 5) --  BOOT.HIS_EEPROM2_TABLE_CAL_CKS
				
				@SU_RAWacs("AB.TM.NIA03546","=",0x83, 0xFF, $sTrace, 5)              --  BOOT.spw_link_version
				@SU_RAWacs("AB.TM.NIA03545","=",0xFFFF, 0xFFFF, $sTrace, 5)          --  BOOT.adc_wait_states
				@SU_RAWacs("AB.TM.NIA03541","=",0x360802FF, 0xFFFFFFFF, $sTrace, 5)  --  BOOT.sparc_mem_cfg_reg_1
				@SU_RAWacs("AB.TM.NIA03543","=",0xC8000300, 0xFFFFFFFF, $sTrace, 5)  --  BOOT.sparc_mem_cfg_reg_3
				@SU_IPVacs("AB.TM.NIA04700","=19","=19", $sTrace, 5)                 --  BOOT.cdh_fpga_rev
				@SU_IPVacs("AB.TM.NIA04400",">=1","NO", $sTrace, 5)                  --  BOOT.pkt_creation_time_whole
				
				@SU_IPVacs("AB.TM.NIA03525","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_TEST_FST
				@SU_IPVacs("AB.TM.NIA03526","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_TEST_LST
				@SU_IPVacs("AB.TM.NIA03527","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_PAT_FAI_CNT
				@SU_IPVacs("AB.TM.NIA03528","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_PAT_BAD_BLKS
				@SU_IPVacs("AB.TM.NIA03529","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_INV_TEST_FST
				@SU_IPVacs("AB.TM.NIA03530","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_INV_TEST_LST
				@SU_IPVacs("AB.TM.NIA03531","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_INV_FAI_CNT
				@SU_IPVacs("AB.TM.NIA03532","=0","=0", $sTrace, 5) --  BOOT.HIS_SCI_MEM_INV_BAD_BLKS
				@SU_IPVacs("AB.TM.NIA03533","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_PAT_FST_FAI_ADD
				@SU_IPVacs("AB.TM.NIA03534","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_PAT_LST_FAI_ADD
				@SU_IPVacs("AB.TM.NIA03535","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_PAT_FAI_CNT
				@SU_IPVacs("AB.TM.NIA03536","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_PAT_BAD_BLKS
				@SU_IPVacs("AB.TM.NIA03537","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_INV_FST_FAI_ADD
				@SU_IPVacs("AB.TM.NIA03538","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_INV_LST_FAI_ADD
				@SU_IPVacs("AB.TM.NIA03539","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_INV_FAI_CNT
				@SU_IPVacs("AB.TM.NIA03540","=0","=0", $sTrace, 5) --  BOOT.HIS_CDH_INV_BAD_BLKS
				@SU_RAWacs("AB.TM.NIA03523","=",0x4A55, 0xFFFFFFFF, $sTrace, 5) --  BOOT.boot_mem_addr
				@SU_RAWacs("AB.TM.NIA03524","=",0x4A55, 0xFFFFFFFF, $sTrace, 5) --  BOOT.boot_mem_data
				@su_wait(90)
				
				-- If using HV Airsafe Plug
				IF ($sHvPlug = "HV_PLUG_AIRSAFE")
					@SU_SEQPHASE2(2, "Checking HV AIRSAFE plug is fitted", *$sNumPha, "",  $sTitle)
					on error @RSTAT_RET()
					@su_rawacs("AB.TM.NIAG1206","=",0x40, 0x40, $sTrace, 120) -- Checking for "AIRSAFE" plug fitted (CDH)
					-- ELM does not simulate DSCB plug status and will fail below check
					-- @su_rawacs("AB.TM.NIAG3803","=",0x10, 0x10, $sTrace, 120) -- Checking for "AIRSAFE" plug fitted (DSCB)
					on error default
					
					-- default HV_DISABLE
				ELSE
					@SU_SEQPHASE2(2, "Checking HV DISABLE plug is fitted", *$sNumPha, "",  $sTitle)
					on error @RSTAT_RET()
					@su_rawacs("AB.TM.NIAG1206","=",0x20, 0x20, $sTrace, 120) -- Checking for "DISABLE" plug fitted (CDH)
					-- below check does not report actual plug state for ELM. this part of the simulation merely defaults to 0.
					@su_rawacs("AB.TM.NIAG3803","=",0x0, 0x10, $sTrace, 120) -- Checking for "DISABLE" plug fitted (DSCB)
					on error default
					
					-- check for mismatch of requesting HV ramp with the disable plug
					IF ($sHvRamp = "HV_RAMP_UP")
						ta_print "Error HIS HV cannot ramp up when DISABLE Plug is installed"
						Return "INIT_NOK"
					ENDIF
					
					-- HV Plug check
				ENDIF
				
				@su_rawacs("AB.TM.NIAG1202","=",0x40, 0xF0, $sTrace, 120)    -- HIS mode check 0x40 = "LV ENG"
				@SU_IPVacs("AB.TM.NIA03010",">=91","<=100", $sTrace, 240)    -- HK.his_proc_idle
				@SU_IPVacs("AB.TM.NIA04400",">=1","NO", $sTrace, 120)        -- HK.pkt_creation_time_whole
				@SU_IPVacs("AB.TM.NIA04560","=0","=0", $sTrace, 120)         -- HK.macro_current_wait
				@SU_IPVacs("AB.TM.NIA04561","=0","=0", $sTrace, 120)         -- HK.macro_last_accepted_service
				@SU_IPVacs("AB.TM.NIA04562","=0","=0", $sTrace, 120)         -- HK.macro_last_accepted_subservice
				@SU_IPVacs("AB.TM.NIA04563","=0","=0", $sTrace, 120)         -- HK.macro_last_rejected_service
				@SU_IPVacs("AB.TM.NIA04564","=0","=0", $sTrace, 120)         -- HK.macro_last_rejected_subservice
				@SU_IPVacs("AB.TM.NIA04567","=0","=0", $sTrace, 120)         -- HK.con_test_cnt
				
				@su_anaacs("AB.TM.NIA01392",">=-20","<=40", $sTrace, 120)            -- HK.his_lvps_ac_link_t_ave
				@su_anaacs("AB.TM.NIA01393",">=-20","<=40", $sTrace, 120)            -- HK.HIS_LVPS_12V_DCDC_TMP_AVE
				@su_anaacs("AB.TM.NIA01394",">=-20","<=40", $sTrace, 120)            -- HK.HIS_LVPS_P3_3V_DCDC_TMP_AVE
				@su_anaacs("AB.TM.NIA01395",">=-20","<=40", $sTrace, 120)            -- HK.his_lvps_5V_dcdc_tmp_ave
				@su_anaacs("AB.TM.NIA01396",">=-20","<=40", $sTrace, 120)            -- HK.HIS_PS_HVPS_TMP_AVE
				@su_anaacs("AB.TM.NIA01397",">=-20","<=40", $sTrace, 120)            -- HK.HIS_CDH_BOARD_TMP_AVE
				@su_anaacs("AB.TM.NIA01398",">=-20","<=40", $sTrace, 120)            -- HK.HIS_CDH_CPU_TMP_AVE
				@su_anaacs("AB.TM.NIA01399",">=-20","<=40", $sTrace, 120)            -- HK.HIS_HVPS_TMP_AVE
				@su_anaacs("AB.TM.NIA01400",">=-0.02805","<=0.1683", $sTrace, 120)   -- HK.his_lvps_ac_link_i_ave
				@su_anaacs("AB.TM.NIA01401",">=0","<=26", $sTrace, 120)              -- HK.his_lvps_ac_link_v_ave
				@su_anaacs("AB.TM.NIA01402",">=-13.2","<=-12.3481", $sTrace, 120)    -- HK.HIS_LVPS_N12V_AVE
				@su_anaacs("AB.TM.NIA01403",">=1.72078","<=1.82825", $sTrace, 120)   -- HK.his_cdh_p1_8v_v_ave
				@su_anaacs("AB.TM.NIA01404",">=1.4453","<=1.53676", $sTrace, 120)    -- HK.his_cdh_p1_5v_v_ave
				@su_anaacs("AB.TM.NIA01405",">=12.04837","<=13.5", $sTrace, 120)     -- HK.HIS_LVPS_P12V_AVE
				@su_anaacs("AB.TM.NIA01406",">=0.239","<=0.448", $sTrace, 120)       -- HK.HIS_LVPS_P3_3V_CUR_AVE
				@su_anaacs("AB.TM.NIA01407",">=-0.618","<=0", $sTrace, 120)          -- HK.HIS_HVPS_MAIN_NEG_AVE
				@su_anaacs("AB.TM.NIA01408","NO","NO", $sTrace, 120)      			-- HK.HIS_HVPS_TOP_DEF_AVE
				@su_anaacs("AB.TM.NIA01409","NO","NO", $sTrace, 120)      			-- HK.HIS_HVPS_BOT_DEF_AVE
				--			@su_anaacs("AB.TM.NIA01408",">=-0.618","<=0.618", $sTrace, 120)      -- HK.HIS_HVPS_TOP_DEF_AVE
				--			@su_anaacs("AB.TM.NIA01409",">=-0.618","<=0.618", $sTrace, 120)      -- HK.HIS_HVPS_BOT_DEF_AVE
				@su_anaacs("AB.TM.NIA01340",">=-49.9","<=55", $sTrace, 120)          -- HK.his_eais_port_tmp_t_ave
				@su_anaacs("AB.TM.NIA01343",">=0","<=0.618", $sTrace, 120)           -- HK.HIS_HVPS_MAIN_POS_AVE
				@su_anaacs("AB.TM.NIA01346","NO","NO", $sTrace, 120)          		-- HK.HIS_HVPS_ANL_AVE
				@su_anaacs("AB.TM.NIA01349","NO","NO", $sTrace, 120)      			-- HK.HIS_HVPS_TOP_PLATE_AVE
				--			@su_anaacs("AB.TM.NIA01346",">=-0.618","<=0", $sTrace, 120)          -- HK.HIS_HVPS_ANL_AVE
				--			@su_anaacs("AB.TM.NIA01349",">=-0.618","<=0.618", $sTrace, 120)      -- HK.HIS_HVPS_TOP_PLATE_AVE
				@su_anaacs("AB.TM.NIA01352",">=-2.64","<=0", $sTrace, 120)           -- HK.HIS_PA_HVPS_VOLT_M_AVE
				@su_anaacs("AB.TM.NIA01702",">=4.93317","<=5.08674", $sTrace, 120)   -- HK.his_cdh_p5v_dac_v_ave
				@su_anaacs("AB.TM.NIA01705",">=3.28086","<=3.346853", $sTrace, 120)  -- HK.his_cdh_p3_3v_adc_v_ave
				@su_anaacs("AB.TM.NIA01711",">=0.0198","<=0.07", $sTrace, 120)       -- HK.HIS_HVPS_P12V_CUR_AVE
				@su_anaacs("AB.TM.NIA01714",">=-0.07","<=-0.013", $sTrace, 120)      -- HK.HIS_HVPS_N12V_CUR_AVE
				@su_anaacs("AB.TM.NIA01723",">=-0.0121","<=0.0", $sTrace, 120)    -- HK.HIS_LVPS_N5V_CUR_AVE
				@su_anaacs("AB.TM.NIA01726",">=-0.066","<=0.0", $sTrace, 120)     -- HK.HIS_LVPS_N12V_CUR_AVE
				@su_anaacs("AB.TM.NIA01729",">=3.20682","<=3.41548", $sTrace, 120)   -- HK.HIS_LVPS_P3_3V_AVE
				@su_anaacs("AB.TM.NIA01732",">=0.015","<=0.0429", $sTrace, 120)      -- HK.HIS_LVPS_P5V_CUR_AVE
				@su_anaacs("AB.TM.NIA01735",">=4.90432","<=5.21077", $sTrace, 120)   -- HK.HIS_LVPS_P5V_AVE
				@su_anaacs("AB.TM.NIA01738",">=-5.22954","<=-4.97319", $sTrace, 120) -- HK.HIS_LVPS_N5V_AVE
				@su_anaacs("AB.TM.NIA01741",">=0.015","<=0.066", $sTrace, 120)       -- HK.HIS_LVPS_P12V_CUR_AVE
				@su_ipvacs("AB.TM.NIA01708",">=9","<=25", $sTrace, 120)              -- HK.his_cdh_ground_v_ave
				
				@su_anaacs("AB.TM.NIA04653",">=0","<=0.33", $sTrace, 120)            -- HK.HIS_STARTMCPVMON_AVE
				@su_anaacs("AB.TM.NIA04654",">=0","<=0.33", $sTrace, 120)            -- HK.HIS_STOPMCPVMON_AVE
				@su_anaacs("AB.TM.NIA04655",">=0","<=110", $sTrace, 120)             -- HK.HIS_SSDVMON_AVE
				@su_anaacs("AB.TM.NIA04656",">=0","<=0.145", $sTrace, 120)           -- HK.HIS_OFFSETVMON_AVE
				@su_anaacs("AB.TM.NIA04657",">=0","<=11.604", $sTrace, 120)          -- HK.HIS_STARTMCPIMON_AVE
				@su_anaacs("AB.TM.NIA04658",">=0","<=15.211", $sTrace, 120)          -- HK.HIS_STOPMCPIMON_AVE
				@su_anaacs("AB.TM.NIA04659",">=-20","<=35", $sTrace, 120)            -- HK.HIS_STOP_TEMP_AVE
				@su_anaacs("AB.TM.NIA04660",">=-20","<=35", $sTrace, 120)            -- HK.HIS_DSCB_TEMP_AVE
				@su_anaacs("AB.TM.NIA04661",">=4.9098","<=5.0601", $sTrace, 120)     -- HK.HIS_P5V_DAC_REF_MON_AVE
				@su_anaacs("AB.TM.NIA04662",">=3.26242","<=3.345645", $sTrace, 120)  -- HK.HIS_P3_3V_ADC_REF_AVE
				@su_anaacs("AB.TM.NIA04663",">=4.91176","<=5.06212", $sTrace, 120)   -- HK.HIS_P5V_ADC_REF_MON_AVE
				@su_anaacs("AB.TM.NIA04664",">=0","<=4095", $sTrace, 120)            -- HK.HIS_ASIC_MON_AVE
				@su_anaacs("AB.TM.NIA04665",">=3.19809","<=3.39591", $sTrace, 120)   -- HK.HIS_P3_3V_AVE
				@su_anaacs("AB.TM.NIA04666",">=1.42595","<=1.57815", $sTrace, 120)   -- HK.HIS_P1_5V_AVE
				@su_anaacs("AB.TM.NIA04667",">=0","<=4", $sTrace, 120)               -- HK.HIS_SSDIMON_AVE
				@su_anaacs("AB.TM.NIA04668",">=0","<=5", $sTrace, 120)               -- HK.HIS_OFFSETIMON_AVE
				@su_anaacs("AB.TM.NIA04669",">=0.0061","<=0.0156", $sTrace, 120)     -- HK.HIS_V_IMON_REF_AVE
				@su_anaacs("AB.TM.NIA04670",">=-20","<=35", $sTrace, 120)            -- HK.HIS_HVPS_TEMP_AVE
				@su_anaacs("AB.TM.NIA04671",">=-20","<=35", $sTrace, 120)            -- HK.HIS_DSIB_TEMP_AVE
				@su_anaacs("AB.TM.NIA04672",">=-20","<=35", $sTrace, 120)            -- HK.HIS_SSD_TEMP_AVE
				@su_anaacs("AB.TM.NIA04673",">=-20","<=35", $sTrace, 120)            -- HK.HIS_ASIC_TEMP_AVE
				@su_anaacs("AB.TM.NIA04674",">=-20","<=35", $sTrace, 120)            -- HK.HIS_START_TEMP_AVE
				
			ENDIF
		else -- $TM = "NO"
			@su_wait(300)
		endif
			
		@SU_SEQPHASE2(2, "Put HIS into standby mode", *$sNumPha, "",  $sTitle)
		$i_reportflowID := startreportflow("AB.TM.YIA58602")
		@SU_SEND({ AB.TC.ZIA58917 , \
			PIA59011_ := "HVSTDBY"}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)

		@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58602", *$i_RptRefNb)
		stopreportflow $i_reportflowID
		@su_wait(1)

		if ($TM = "YES")
			@su_rawacs("AB.TM.NIAG1202","=",0x50, 0xF0, $sTrace, 120) -- HIS mode check 0x50 = "HV Standby"
		endif

		-- Configure HV
		-- If using HV Airsafe Plug and ramping up
		IF (($sHvPlug = "HV_PLUG_AIRSAFE") AND ($sHvRamp = "HV_RAMP_UP"))

			if ($TM <> "YES")
				ta_print "Do not enable HV systems with no TM visability"
				halt
			endif

			@SU_SEQPHASE2(2, "Enable IRAP", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC. ZIA58907 , \
			PIA59000_ := "ENABLE"  , \
			PIA59006_ := "IRAP" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			
			@su_wait(5)
			
			@SU_SEQPHASE2(2, "Disable IRAP", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC. ZIA58907 , \
			PIA59000_ := "DISABLE"  , \
			PIA59006_ := "IRAP" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
						
			@su_wait(180)

			-- PA (Post Acceleration) (-2000V (command -14000V with plug))
			
			-- Enable PA
			-- ALIAS: SWA_TC_HIS_HV_PWR ENABLE PA
			@SU_SEQPHASE2(2, "Enable Post Acceleration", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC. ZIA58907 , \
			PIA59000_ := "ENABLE"  , \
			PIA59006_ := "PA" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
			
			IF ($sPlatform = "FM")
				-- leave FM limits as they are
			ELSE
				-- ELM does not simulate division on the plug, so reports full HV
				@SU_SEQPHASE2(2, "Removing ELM safing limits for non-divided PA V", *$sNumPha, "",  $sTitle)
				@SU_SEND({ AB.TC.ZIA58939 , \
				SHF:OBV := 0 , \
				SID:OBV := 120 , \
				PIA60763_ := "PA_HVPS_V_1" , \
				PIA60764_ := 65535 , \ -- yellow min
				PIA60765_ := 4095 , \ -- yellow max
				PIA60766_ := 65535 , \ -- yellow persistance
				PIA60767_ := 65535 , \ -- yelow macro
				PIA60768_ := 65535 , \ -- red min
				PIA60769_ := 4095 , \ -- red max
				PIA60770_ := 65535 , \-- red persistance
				PIA60771_ := 65535 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60) -- red macro
				@su_wait(2)
			ENDIF
			
			-- Ramp Up PA
			-- ALIAS: SWA_TC_HIS_PA_SET -14000 1000 10 -- SWA_TC_HIS_DAC_SET PA -1712 122 10 NONE
			@SU_SEQPHASE2(2, "Ramp Up Post Acceleration", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58908 , \
			PIA59050_ := "PA", \
			PIA60354_ := -1712 , \
			PIA60353_ := 122 , \
			PIA60345_ := 10 , \
			PIA59054_ := "NONE" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(155)
			
			IF ($sPlatform = "FM")
				
				-- Check PA Voltage
				-- ((::HISTLM::HK(HIS_PA_HVPS_VOLT_M_AVE) >= -2.5) && (::HISTLM::HK(HIS_PA_HVPS_VOLT_M_AVE) <= -2.0)) : HK.HIS_PA_HVPS_VOLT_M_AVE=-2.16562499904
				@su_anaacs("AB.TM.NIA01352",">=-2.5","<=-2.0", $sTrace, 200)
				
				-- Check LVPS -12V Current
				-- ((::HISTLM::HK(HIS_LVPS_N12V_CUR_AVE) >= -0.041) && (::HISTLM::HK(HIS_LVPS_N12V_CUR_AVE) <= -0.027)) : HK.HIS_LVPS_N12V_CUR_AVE=-0.0321866994
				@su_anaacs("AB.TM.NIA01726",">=-0.126","<=-0.017", $sTrace, 200)
				
				-- Check LVPS +12V Current
				-- ((::HISTLM::HK(HIS_LVPS_P12V_CUR_AVE) >= 0.034) && (::HISTLM::HK(HIS_LVPS_P12V_CUR_AVE) <= 0.046)) : HK.HIS_LVPS_P12V_CUR_AVE=0.04297963273
				@su_anaacs("AB.TM.NIA01741",">=0.015","<=0.111", $sTrace, 200)
				
			ELSE -- ELM
				
				-- Check PA Voltage (no plug division)
				@su_anaacs("AB.TM.NIA01352",">=-14.1","<=-13.9", $sTrace, 200)
				
			ENDIF
			
			-- MCP Offset (100V)
			
			-- Enable MCP Offset
			-- ALIAS: SWA_TC_HIS_HV_PWR ENABLE OFFSET
			@SU_SEQPHASE2(2, "Enable MCP Offset", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC. ZIA58907 , \
			PIA59000_ := "ENABLE"  , \
			PIA59006_ := "OFFSET" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
			
			-- Ramp Up MCP Offset
			-- ALIAS: SWA_TC_HIS_OFFSET_SET 100 50 5 -- SWA_TC_HIS_DAC_SET OFFSET 205 102 5 NONE
			@SU_SEQPHASE2(2, "Ramp Up MCP Offset", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58908 , \
			PIA59050_ := "OFFSET", \
			PIA60354_ := 205 , \
			PIA60353_ := 102 , \
			PIA60345_ := 5 , \
			PIA59054_ := "NONE" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(20)
			
			-- Check MCP Offset Voltage
			-- ((::HISTLM::HK(HIS_OFFSETVMON_AVE) >= 0.095) && (::HISTLM::HK(HIS_OFFSETVMON_AVE) <= 0.105)) : HK.HIS_OFFSETVMON_AVE=0.09765624992
			@su_anaacs("AB.TM.NIA04656",">=0.095","<=0.105", $sTrace, 200)
			
			IF ($sPlatform = "FM")
				
				-- Check MCP Offset Current
				-- ((::HISTLM::HK(HIS_OFFSETIMON_AVE) >= 0.41) && (::HISTLM::HK(HIS_OFFSETIMON_AVE) <= 0.60)) : HK.HIS_OFFSETIMON_AVE=0.50913485
				@su_anaacs("AB.TM.NIA04668",">=0.41","<=0.6", $sTrace, 200)
				
			ENDIF
			
			-- MCP Start / Stop / SSD Enable
			
			-- Enable MCP Start
			-- ALIAS: SWA_TC_HIS_HV_PWR ENABLE START_MCP
			@SU_SEQPHASE2(2, "Enable MCP Start", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC. ZIA58907 , \
			PIA59000_ := "ENABLE"  , \
			PIA59006_ := "START_MCP" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
			
			-- Enable MCP Stop
			-- ALIAS: SWA_TC_HIS_HV_PWR ENABLE STOP_MCP
			@SU_SEQPHASE2(2, "Enable MCP Stop", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC. ZIA58907 , \
			PIA59000_ := "ENABLE"  , \
			PIA59006_ := "STOP_MCP" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
			
			-- Enable MCP SSD
			-- ALIAS: SWA_TC_HIS_HV_PWR ENABLE SSD
			@SU_SEQPHASE2(2, "Enable MCP SSD", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC. ZIA58907 , \
			PIA59000_ := "ENABLE"  , \
			PIA59006_ := "SSD" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
			
			-- MCP Start (300V) / Stop (300V) / SSD (30V) Ramp Up
			
			-- Ramp Up MCP Start
			-- ALIAS: SWA_TC_HIS_START_MCP_SET 300 50 5 -- SWA_TC_HIS_DAC_SET START_MCP 246 41 5 NONE
			@SU_SEQPHASE2(2, "Ramp Up MCP Start", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58908 , \
			PIA59050_ := "START_MCP", \
			PIA60354_ := 246 , \
			PIA60353_ := 41 , \
			PIA60345_ := 5 , \
			PIA59054_ := "NONE" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2) -- intentional parallel ramp up between start and stop
			
			-- Ramp Up MCP Stop
			-- ALIAS: SWA_TC_HIS_STOP_MCP_SET 300 50 5 -- SWA_TC_HIS_DAC_SET STOP_MCP 246 41 5 NONE
			@SU_SEQPHASE2(2, "Ramp Up MCP Stop", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58908 , \
			PIA59050_ := "STOP_MCP", \
			PIA60354_ := 246 , \
			PIA60353_ := 41 , \
			PIA60345_ := 5 , \
			PIA59054_ := "NONE" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(40) -- let these finish before SSD
			
			-- Ramp Up MCP SSD
			-- ALIAS: SWA_TC_HIS_SSD_SET 30 10 1 -- SWA_TC_HIS_DAC_SET SSD 491 164 1 NONE
			@SU_SEQPHASE2(2, "Ramp Up MCP SSD", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58908 , \
			PIA59050_ := "SSD", \
			PIA60354_ := 491 , \
			PIA60353_ := 164 , \
			PIA60345_ := 1 , \
			PIA59054_ := "NONE" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(7)
			
			-- MCP Start / Stop / SSD Voltage Checks
			
			-- Check MCP Start Voltage
			-- ((::HISTLM::HK(HIS_STARTMCPVMON_AVE) >= 0.285) && (::HISTLM::HK(HIS_STARTMCPVMON_AVE) <= 0.315)) : HK.HIS_STARTMCPVMON_AVE=0.294189453125
			@su_anaacs("AB.TM.NIA04653",">=0.285","<=0.315", $sTrace, 200)
			
			-- Check MCP Stop Voltage
			-- ((::HISTLM::HK(HIS_STOPMCPVMON_AVE) >= 0.285) && (::HISTLM::HK(HIS_STOPMCPVMON_AVE) <= 0.315)) : HK.HIS_STOPMCPVMON_AVE=0.301513671875
			@su_anaacs("AB.TM.NIA04654",">=0.285","<=0.315", $sTrace, 200)
			
			-- Check MCP SSD Voltage
			-- ((::HISTLM::HK(HIS_SSDVMON_AVE) >= 28.5) && (::HISTLM::HK(HIS_SSDVMON_AVE) <= 31.5)) : HK.HIS_SSDVMON_AVE=29.6020507813
			@su_anaacs("AB.TM.NIA04655",">=28.5","<=31.5", $sTrace, 200)
			
			-- MCP Start / Stop / SSD Current Checks
			
			IF ($sPlatform = "FM")
				
				-- Check MCP Start Current
				-- ((::HISTLM::HK(HIS_STARTMCPIMON_AVE) >= 0.8) && (::HISTLM::HK(HIS_STARTMCPIMON_AVE) <= 1.5)) : HK.HIS_STARTMCPIMON_AVE=0.936930338532
				@su_anaacs("AB.TM.NIA04657",">=0.8","<=1.5", $sTrace, 200)
				
				-- Check MCP Stop Current
				-- ((::HISTLM::HK(HIS_STOPMCPIMON_AVE) >= 1.2) && (::HISTLM::HK(HIS_STOPMCPIMON_AVE) <= 2.0)) : HK.HIS_STOPMCPIMON_AVE=1.50231933592
				@su_anaacs("AB.TM.NIA04658",">=1.2","<=2.0", $sTrace, 200)
				
				-- Check MCP SSD Current
				-- ((::HISTLM::HK(HIS_SSDIMON_AVE) >= 0.54) && (::HISTLM::HK(HIS_SSDIMON_AVE) <= 0.90)) : HK.HIS_SSDIMON_AVE=0.753519578
				@su_anaacs("AB.TM.NIA04667",">=0.54","<=0.9", $sTrace, 200)
				
			ENDIF
			
			-- EAIS Main (-630V (command -6250V with plug))
			
			-- Enable EAIS Main
			-- ALIAS: SWA_TC_HIS_HV_PWR ENABLE IRAP
			@SU_SEQPHASE2(2, "Enable EAIS Main", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC. ZIA58907 , \
			PIA59000_ := "ENABLE"  , \
			PIA59006_ := "IRAP" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
			
			IF ($sPlatform = "FM")
				-- leave FM limits as they are
			ELSE
				-- ELM does not simulate division on the plug, so reports full HV
				@SU_SEQPHASE2(2, "Removing ELM safing limits for non-divided EAIS Main V", *$sNumPha, "",  $sTitle)
				
				@SU_SEND({ AB.TC.ZIA58939 , \
				SHF:OBV := 0 , \
				SID:OBV := 120 , \
				PIA60763_ := "HVPS_MAIN_NEG_1" , \
				PIA60764_ := 65535 , \ -- yellow min
				PIA60765_ := 4095 , \ -- yellow max
				PIA60766_ := 65535 , \ -- yellow persistance
				PIA60767_ := 65535 , \ -- yelow macro
				PIA60768_ := 65535 , \ -- red min
				PIA60769_ := 4095 , \ -- red max
				PIA60770_ := 65535 , \-- red persistance
				PIA60771_ := 65535 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60) -- red macro
				@su_wait(2)
				
				@SU_SEND({ AB.TC.ZIA58939 , \
				SHF:OBV := 0 , \
				SID:OBV := 120 , \
				PIA60763_ := "HVPS_MAIN_POS" , \
				PIA60764_ := 65535 , \ -- yellow min
				PIA60765_ := 4095 , \ -- yellow max
				PIA60766_ := 65535 , \ -- yellow persistance
				PIA60767_ := 65535 , \ -- yelow macro
				PIA60768_ := 65535 , \ -- red min
				PIA60769_ := 4095 , \ -- red max
				PIA60770_ := 65535 , \-- red persistance
				PIA60771_ := 65535 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60) -- red macro
				@su_wait(2)
			ENDIF
			
			-- Ramp Up EAIS Main
			-- ALIAS: SWA_TC_HIS_MAIN_SET 6250 350 10 -- SWA_TC_HIS_DAC_SET MAIN 4095 229 10 NONE
			@SU_SEQPHASE2(2, "Ramp Up EAIS Main", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58908 , \
			PIA59050_ := "MAIN", \
			PIA60354_ := 4095 , \
			PIA60353_ := 229 , \
			PIA60345_ := 10 , \
			PIA59054_ := "NONE" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(200)
			
			IF ($sPlatform = "FM")
				
				-- Check EAIS Main Voltage Positive
				-- ((::HISTLM::HK(HIS_HVPS_MAIN_POS_AVE) >= 0.5643) && (::HISTLM::HK(HIS_HVPS_MAIN_POS_AVE) <= 0.625)) : HK.HIS_HVPS_MAIN_POS_AVE=0.576049804616
				@su_anaacs("AB.TM.NIA01343",">=0.5643","<=0.625", $sTrace, 200)
				
				-- Check EAIS Main Voltage Negative
				-- ((::HISTLM::HK(HIS_HVPS_MAIN_NEG_AVE) >= -0.625) && (::HISTLM::HK(HIS_HVPS_MAIN_NEG_AVE) <= -0.5643)) : HK.HIS_HVPS_MAIN_NEG_AVE=-0.5720214826
				@su_anaacs("AB.TM.NIA01407",">=-0.625","<=-0.5643", $sTrace, 200)
				
				-- Check EAIS Main Current +12V
				--  ((::HISTLM::HK(HIS_HVPS_P12V_CUR_AVE) >= 0.02115) && (::HISTLM::HK(HIS_HVPS_P12V_CUR_AVE) <= 0.0285)) : HK.HIS_HVPS_P12V_CUR_AVE=0.02449218712
				@su_anaacs("AB.TM.NIA01711",">=0.013","<=0.110", $sTrace, 200)
				
				-- Check EAIS Main Current -12V
				-- ((::HISTLM::HK(HIS_HVPS_N12V_CUR_AVE) >= -0.0285) && (::HISTLM::HK(HIS_HVPS_N12V_CUR_AVE) <= -0.02115)) : HK.HIS_HVPS_N12V_CUR_AVE=-0.02220409984
				@su_anaacs("AB.TM.NIA01714",">=-0.110","<=-0.013", $sTrace, 200)
				
			ELSE -- ELM
				
				-- Check EAIS Main Voltage Positive
				-- ::HISTLM::HK(HIS_HVPS_MAIN_POS_AVE)
				@su_anaacs("AB.TM.NIA01343",">=6.1","<=6.3", $sTrace, 200)
				
				-- Check EAIS Main Voltage Negative
				-- ::HISTLM::HK(HIS_HVPS_MAIN_NEG_AVE)
				@su_anaacs("AB.TM.NIA01407",">=-6.3","<=-6.1", $sTrace, 200)
				
			ENDIF
			
			-- Sweeping Enable
			
			@SU_SEQPHASE2(2, "Configure HIS Analyzer for HV sweeping", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58919 , \
			PIA60356_ := "SW_EN_ANALYZER"  , \
			PIA60352_ := 1 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(1)
			
			@SU_SEQPHASE2(2, "Configure HIS Top Deflector for HV sweeping", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58919 , \
			PIA60356_ := "SW_EN_TOP_DFL"  , \
			PIA60352_ := 1 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(1)
			
			@SU_SEQPHASE2(2, "Configure HIS Bottom Deflector for HV sweeping", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58919 , \
			PIA60356_ := "SW_EN_BOT_DFL"  , \
			PIA60352_ := 1 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(1)
			
			@SU_SEQPHASE2(2, "Configure HIS Top Plate for HV sweeping", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58919 , \
			PIA60356_ := "SW_EN_TOP_PLATE"  , \
			PIA60352_ := 1 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(1)
			
			-- Default HV DISABLE
		ELSE
			
			-- Sweeping Disable
			
			@SU_SEQPHASE2(2, "Configure HIS Analyzer for no HV sweeping (static output only)", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58919 , \
			PIA60356_ := "SW_EN_ANALYZER"  , \
			PIA60352_ := 0 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(1)
			
			@SU_SEQPHASE2(2, "Configure HIS Top Deflector for no HV sweeping (static output only)", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58919 , \
			PIA60356_ := "SW_EN_TOP_DFL"  , \
			PIA60352_ := 0 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(1)
			
			@SU_SEQPHASE2(2, "Configure HIS Bottom Deflector for no HV sweeping (static output only)", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58919 , \
			PIA60356_ := "SW_EN_BOT_DFL"  , \
			PIA60352_ := 0 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(1)
			
			@SU_SEQPHASE2(2, "Configure HIS Top Plate for no HV sweeping (static output only)", *$sNumPha, "",  $sTitle)
			@SU_SEND({ AB.TC.ZIA58919 , \
			PIA60356_ := "SW_EN_TOP_PLATE"  , \
			PIA60352_ := 0 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(1)
			
			-- HV Configuration
		ENDIF
	
end sequence

ROUTINE RSTAT_RET
	main

		ta_print "HIS HV disable / airsafe plug not fitted or mismatched with script input - switch OFF HIS and investigate"
		halt
		abort
		return
ENDROUTINE
**