; ADCC Offline Diagnostic (ADCCDIAG).

set -n console debug=ADCCDIAG-debug.log


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.

echo
echo
echo Starting diagnostic section 16.
echo

echo ":"
reply "ADCCDIAG\r"


; Execute the diagnostic.

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


; Respond to "How many channels of all types are there installed? "

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 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 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"


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


; Finish.

go until "\r\n:"


; Clean up.

set ADCC COUNT=1