; 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.


; 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 sections 1-15 and 16.

echo
echo
echo Starting the diagnostic.
echo

echo ":"
reply "ADCCDIAG\r"

go until ">"


; Configure the diagnostic.

if "%1" != "" reply "TEST %1\r"
if "%1" == "" reply "TEST 1/15\r"

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


; Trace HP-IB instructions

;set cpp   debug=cmd;data;opnd;serv
;set adccb debug,nodebug=pserv
set adccb debug

; RMSK and SMSK

;set cpu exec=030100;177757
;set cpu debug=exec


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

if "%1" != "" reply "N\r" ; set ADCCB NOEXTENDER
if "%1" == "" reply "Y\r" ; set ADCCB EXTENDER


; Complete the diagnostic.

;set cpu exec=020302;177777
;set cpu debug=exec
; set cpu debug,nodebug=fetch


; Run the ADCC diagnostic section 16.

go until "\r\n:" ; 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 four channels installed: 1 (ADCC), 2 (ADCC), 9 (GIC) and 11 (GIC).

go until "installed? " ; reply "4\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"


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


; Exit

go until "\r\n:"


; Clean up.

set ADCC COUNT=1