PROC C_FL_2T
;VERSION 7
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name: 	C_FL_2T
;#		   	CDS Name: 	CDS_2T
;#		   	CDS Issue:	v3.4
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  1-MAR-95
;#			    Revision:  1. 8-MAR-95	MH
;#						2. 21-APR-95	MH
;#						3.  1-MAY-95	MH
;#						4. 19-MAY-95	MH
;#						5. 6-3-95
;#						6. 1-Sept-95   TFM
;#						7. 27-OCT-95   TFM
;#
;#		1.3	Change Description:	
;#
;#			1. Added reference page, edited TM CS9PLNKR and CS9CMDI
;#			2. Added section delimiters.  Made comment changes from
;#			   experimenters.  Added TM check for Read Timeout to section 1. 
;#			   Added CMSMSG to section 3.1 and 3.2, 4.1, 4.2.
;#			3. Changed proc call from K_OBT_DIST to /KNK12000 to save time
;#			   before reaching snooze mode.  Added comments for TM checks in
;#			   sections 3.1 and 4.1.  Added /NRT TPUT RSUM and /NRT TPUT PAUS
;#			   directives before and after /CMSMSGs respectively.
;#			4. Deleted sections 2, 2.1, 3.3, 4.3 for GSCT2 after direction
;#			   from CDS team.
;#			5. add NRT resume command.  CHanges in various comments.
;#			6. Changed the /NRT command subnmemonic from ENA to RSUM on line 131. 
;#			   And changed Wait statements to Wait until the CMDBUF empety.  
;#			   Also changed this header info.
;#             7. changed ts in name to fl.
;#		1.4	Point of Contact:	CCazeau
;#			FOT Author:  MHill	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			Test of the secondary transputer
;#
;#		2.2	Intended Use:
;#
;#			To test the Two Transputer Module, in nominal modes only
;#			(Science or Primary deleted)
;#
;#		2.3	Duration:	?
;#
;#		2.4	References:	page C_CDHS_SWHK
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			Call to K_OBT_DIST.
;#
;#		3.2	Critical Activities
;#
;#			NONE
;#
;#		3.3	Special Constraints or Activities
;#
;#			NONE
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

IF (P@CMD_STATE#TELECOMMAND = "AVAILABLE") THEN
ELSE
	/CLEAR		;Clearing the Command Buffer.
ENDIF


;******SECTION 1******

WAIT UNTIL (P@CS9PRI = "_")		;Primary Running Science Code
WAIT UNTIL (P@CS9SEC = "_")		;Secondary Running Science Code
WAIT UNTIL (P@CS9CMDNA = "_")		;Commanding Not Allowed
WAIT UNTIL (P@CS9BTIMO = "_")		;Boot Timeout
WAIT UNTIL (P@CS9WTIMO = "_")		;Write Timeout
WAIT UNTIL (P@CS9RTIMO = "_")		;Read Timeout
WAIT UNTIL (P@CS9CHK = "_")		;Checksum Invalid
WAIT UNTIL (P@CS9LOAD = "_")		;Transputer Load OK
WAIT UNTIL (P@CS9FAIL = "_")		;Transputer Load Failed
WAIT UNTIL (P@CS9PLNKR = "_")		;Primary Link Reset
WAIT UNTIL (P@CS9ABORT = "_")		;Secondary Aborted
WAIT UNTIL (P@CS9CMDI = "_")		;Command Invalid
WAIT UNTIL (P@CS9UNK = "_")		;Unknown Error


;******SECTION 3******

;LOAD SCIENCE ON PU3 AS SECONDARY
/CBCPU3N		;Processor 3 ON
/CBCPU3RS		;Processor 3 Reset
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (P@CSCPU3 = "ON")	;Processor Unit 3 Power

/CB9SECLD,0001		;Load Secondary, link number 1
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (P@CS9LOAD = "OK")	;Transputer Load OK
WAIT UNTIL (P@CS9FAIL = "_")		;Transputer Load Failed

WAIT 5

/CB9SEC		;Run science on secondary
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (P@CS9SEC = "SEC")	;Secondary Running Science Code
WAIT UNTIL (P@CS9PRI = "_")		;Primary Running Science Code


;******SECTION 3.1******

;SECONDARY EVENT REG

WAIT 5

/NRT TPUT RSUM
/CMSMSG CDS 'PERFORM NECESSARY CHECKS FROM SECTION 3.1'

; BK9NOEVT = 1
; BSBPWR1 = "COLDSTART"
; BSBPWR2 = "COLDSTART"
; BSBPARE0 = "_"
; BSBPARE1 = "_"
; BSBPARE2 = "_"
; BSBPARE3 = "_"

WAIT		;WAIT FOR CDS IWS TM CHECK VERIFICATION
/NRT TPUT PAUS

/CBBRST		;Reset Sec event reg
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

; ******SECTION 3.2******

; PARITY ON SECONDARY
/NRT TPUT RSUM

/CMSMSG CDS 'CHECK BS9PAR = ENABLED'
WAIT		;WAIT FOR CDS IWS TM CHECK BS9PAR = ENABLED VERIFICATION
/NRT TPUT PAUS

/CB9PD		;Secondary Parity Disable
WAIT		;Verify command buffer contents
/SEND

WAIT 5

/NRT TPUT RSUM
/CMSMSG CDS 'CHECK BS9PAR = DISABLED'
WAIT ;WAIT FOR CDS IWS TM CHECK BS9PAR = DISABLED VERIFICATION
/NRT TPUT PAUS

/CB9PE		;Secondary Parity Enable
WAIT		;Verify command buffer contents
/SEND

WAIT 5

/NRT TPUT RSUM
/CMSMSG CDS 'CHECK BS9PAR0,1,2 or 3 = ERROR and BK9NOEVT > 1'
WAIT ;WAIT FOR CHECK BS9PAR0,1,2 or 3 = ERROR and BK9NOEVT > 1 ON CDS IWS
/NRT TPUT PAUS


;******SECTION 3.4******

;POWER OFF PU3, ABORT SECONDARY
/CBCPU3F		;Processor 3 OFF
/CB9ABORT		;Abort Secondary
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (P@CS9ABORT = "ABORTED")		;Secondary Aborted

/CB9RSTS
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (P@CS9PRI = "_")		;Primary Running Science Code
WAIT UNTIL (P@CS9SEC = "_")		;Secondary Running Science Code

/CB9RST		;Reset 2T module err flags = 0003
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")


;******SECTION 4******

;LOAD SCIENCE ON PU2 AS SECONDARY
/CBCPU2N		;Processor 2 ON
/CBCPU2RS		;Processor 2 Reset
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (P@CSCPU2 = "ON")	;Processor Unit 2 Power

/CB9SECLD,0003		;Load Secondary, link number 3
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (P@CS9LOAD = "OK")	;Transputer Load OK
WAIT UNTIL (P@CS9FAIL = "_")		;Transputer Load Failed

/CB9SEC		;Run science on secondary
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (P@CS9SEC = "SEC")	;Secondary Running Science Code
WAIT UNTIL (P@CS9PRI = "_")		;Primary Running Science Code


WAIT 5

;******SECTION 4.1******

;SECONDARY EVENT REG
/NRT TPUT RSUM
/CMSMSG CDS 'CHECK NECESSARY TM FROM SECTION 4.1'
;BK9NOEVT = 1
;BSBPWR1 = "COLDSTART"
;BSBPWR2 = "COLDSTART"
;BSBWDERR = "ERROR"
;BSBPARE0 = "ERROR"
;BSBPARE1 = "ERROR"
;BSBPARE2 = "ERROR"
;BSBPARE3 = "ERROR"

WAIT	;CHECK TM ON CDS IWS
/NRT TPUT PAUS

/CBBRST		;Reset Sec event reg
WAIT		;Verify command buffer contents
/SEND

WAIT 5

/NRT TPUT RSUM
/CMSMSG CDS 'CHECK NECESSARY TM FROM SECTION 4.1'
;BSBWDERR = "
;BSBPWR1 = "COLDSTART"
;BSBPWR2 = "COLDSTART"
;BSBPARE0 = "_"
;BSBPARE1 = "_"
;BSBPARE2 = "_"
;BSBPARE3 = "_"
;BSBIADDE = "_"
;BSBVERR = "_"
;BS9PAR = "_"

WAIT	;WAIT FOR TM CHECK  VERIFICATION FROM CDS IWS
/NRT TPUT PAUS

;******SECTION 4.2******

;PARITY
/CB9PD		;Secondary Parity Disable
WAIT		;Verify command buffer contents
/SEND

WAIT 5

/NRT TPUT RSUM
/CMSMSG CDS 'CHECK BS9PAR = DISABLED'
;BSBPARE0 = "ERROR"
;BSBPARE1 = "ERROR"
;BSBPARE2 = "ERROR"
;BSBPARE3 = "ERROR"
;BK9NOEVT > 1
WAIT UNTIL (P@CS6CHK = "ERROR")

/NRT TPUT PAUS

/CB9PE		;Secondary Parity Enable
WAIT		;Verify command buffer contents
/SEND

WAIT 5

/NRT TPUT RSUM
/CMSMSG CDS 'CHECK BS9PAR0,1,2 or 3 = ERROR and BK9NOEVT > 1'
WAIT ;CHECK BS9PAR0,1,2 or 3 = ERROR and BK9NOEVT > 1 ON CDS IWS
/NRT TPUT PAUS


;******SECTION 4.4******

;POWER OFF PU2, ABORT SECONDARY
/CBCPU2F		;Processor 2 OFF
/CB9ABORT		;Abort Secondary
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (P@CS9ABORT = "ABORTED")		;Secondary Aborted

/CB9RSTS	
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (P@CS9PRI = "_")		;Primary Running Science Code
WAIT UNTIL (P@CS9SEC = "_")		;Secondary Running Science Code

/CB9RST	;Reset 2T module err flags = 0003
WAIT		;Verify command buffer contents
/SEND

OUT:
;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		NONE
;#
;#**************************************************************************
RETURN
ENDPROC