; Run the ADCC diagnostic optional Section 16.


; Set up the log(s).

set -N console log=ADCCDIAGX.log
set -N console debug=ADCCDIAGX-debug.log


; Establish the initial environment.

echo
echo Configuring the simulation environment.

set CPU S58,1024K,REALTIME
set CPU STOP=UNIMPL

set CONSOLE DEL=177

set IMBA ENABLED
set  GIC DISABLED

break delay 30 milliseconds


echo
echo
echo --------------------------------------------------------------
echo Asynchronous Data Communications Channel Diagnostic Section 16
echo --------------------------------------------------------------
echo
echo Loading the ADCC diagnostic.


; Cold load the DUS-III tape containing ADCCDIAG.

attach -e -r MS0 DUS-III-ADCCDIAG.tape
boot MS0


echo
echo Configuring the diagnostic.

deposit SWCH 1


; Load and start the diagnostic.
;
; The diagnostic loads from tape and then waits for a <CR>.

echo
echo Starting the diagnostic.

reply "\r" delay 2 seconds


; Configure the diagnostic
;
; Trace HP-IB instructions

set imba debug=csrw;data
set cpp  debug=cmd;data;opnd;serv
set adcc debug,nodebug=pserv


; 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 "1\r"

set IMBA DISABLED
set ADCC DIAGNOSTIC

set cpu exec=020302;177777
set cpu debug=exec


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

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


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

go until ">" ; set ADCC CHANNEL=1 ; reply "GO\r"


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

go until ">" ; set ADCC CHANNEL=9 ; reply "GO\r"


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

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


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

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


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

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


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

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


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

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


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

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


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

go until "(s).\r\n" ; set IMBA ENABLED


; Finish.

go until "\r\n:"


; exit

exit