; Load the ADCC diagnostic from the tape.
; First parameter is the section number.
; If omitted, then run all sections in order.


; Set up the log(s).
; Enable the debug log only if a test section is specified.

set -N console log=ADCCDIAG.log

if "%1" != "" set -N console debug=ADCCDIAG-debug.log


; Establish the initial environment.

echo
echo Configuring the simulation environment.

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

set CONSOLE DEL=177

set IMBA ENABLED
set  GIC DISABLED

break delay 30 milliseconds


echo
echo
echo ---------------------------------------------------
echo Asynchronous Data Communications Channel Diagnostic
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

; RMSK and SMSK

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


; Execute the diagnostic.

go until ">"

if "%1" != "" reply "TEST %1\r"
if "%1" == "" 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 ADCC DIAGNOSTIC,REALTIME ; reply "2\r"


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

go until "(Y/N) "

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


; Complete the diagnostic.

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

break "\r\n>"
break "\r\n:"
go


; exit

exit