; ADCC Offline Diagnostic (ADCCDIAG).
;
; Runs test sections 1-16.
; Section 16 must be run separately from the other sections.
; Section 17 runs a subset of the other sections and so is omitted.


echo
echo
echo
echo
echo --------------------------------------------------------------
echo ADCCDIAG - Asynchronous Data Communications Channel Diagnostic
echo --------------------------------------------------------------
echo
echo Configuring the simulation environment.


; Configure the diagnostic environment.

set ADCC COUNT=2
set ADCCB CHANNEL=2


; Run the ADCC diagnostic sections 1-15 with the base PCA.

echo
echo Starting the diagnostic (base PCA).
echo

echo ":"
reply "ADCCDIAG\r"


; Configure the diagnostic.

go until ">" ; reply "TEST 1/15\r"
go until ">" ; reply "GO\r"


; Respond to "Replace ADCC cable(s) with test connector(s)."
;            "What is the CHANNEL address of ADCC under test? "

go until "test? " ; set ADCCB DIAGNOSTIC,REALTIME ; reply "2\r"


; Respond to "Is the extended ADCC present?(Y/N) "

go until "(Y/N) " ; set ADCCB NOEXTENDER ; reply "N\r"


; End the of diagnostic.
;
; Respond to "ADCC Diagnostic Pass 0001"
;            "Replace test connector(s) with ADCC cable(s)."

go until ":"


; Re-run the ADCC diagnostic sections 1-15 with the base and extender PCAs.

echo
echo
echo
echo Starting the diagnostic (base and extender PCAs).
echo

echo ":"
reply "ADCCDIAG\r"


; Configure the diagnostic.

go until ">" ; reply "TEST 1/15\r"
go until ">" ; reply "GO\r"


; Respond to "Replace ADCC cable(s) with test connector(s)."
;            "What is the CHANNEL address of ADCC under test? "

go until "test? " ; set ADCCB DIAGNOSTIC,REALTIME ; reply "2\r"


; Respond to "Is the extended ADCC present?(Y/N) "

go until "(Y/N) " ; set ADCCB EXTENDER ; reply "Y\r"


; End the of diagnostic.
;
; Respond to "ADCC Diagnostic Pass 0001"
;            "Replace test connector(s) with ADCC cable(s)."

go until ":"


; Run the ADCC diagnostic section 16.

echo
echo
echo
echo Starting the diagnostic (interactive).
echo

echo ":"
reply "ADCCDIAG\r"


; Configure the diagnostic.

go until ">" ; reply "TEST 16\r"
go until ">" ; reply "GO\r"


; Respond to "How many channels of all types are there installed? "
;
; There are three channels installed: 1 (ADCC), 2 (ADCC), and 12 (GIC).

go until "installed? " ; reply "3\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 00"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=0 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 01"
;            "Respond 'GO'"
;
;go until ">" ; set ADCCB CHANNEL=1 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 02"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=2 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 03"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=3 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 04"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=4 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 05"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=5 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 06"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=6 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 07"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=7 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 08"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=8 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 09"
;            "Respond 'GO'"
;
;go until ">" ; set ADCCB CHANNEL=9 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 10"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=10 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 11"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=11 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 12"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=12 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 13"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=13 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 14"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=14 ; reply "GO\r"


; Respond to "Set Thumbwheel of ADCC under test to channel 15"
;            "Respond 'GO'"

go until ">" ; set ADCCB CHANNEL=15 ; reply "GO\r"


; End the of diagnostic.
;
; Respond to "ADCC Diagnostic Pass 0001"
;            "Replace test connector(s) with ADCC cable(s)."

go until ":"


; Restore the hardware configuration.

set ADCC COUNT=1