; Invoke as "GICX <sections> <debug>"


; Load GIC diagnostic from the tape.


; Set up the log(s).

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

set imba debug=csrw;data
set gic  debug
set cpp  debug=cmd;data;opnd;serv


; Establish the initial environment.
;
; The CPU clock must be REALTIME to pass GICDIAG section 24 (timeouts).

echo
echo Configuring the simulation environment.

set CPU 512K,CIS,REALTIME

set console DEL=177

break delay 30 milliseconds


; Remove all devices from the HP-IB

set DC DISABLED


echo
echo
echo -----------------------------------------
echo General I/O Channel Diagnostic Section %1
echo -----------------------------------------
echo
echo Loading the GIC diagnostic.


; Cold load the DUS-III tape.

attach -e -r MS0 DUS-III.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

set gic test

go until ">" ; reply "TEST %1\r"
go until ">" ; reply "GO\r"


; Correct the diag from 021001 (LDI 1) to 000600 (ZERO,NOP)

deposit 00.075515 000600


go until "What is the CHANNEL address of GIC under test? " ; reply "11\r"


; Either alternate is OK, although the former might be easier to read.

if "%2" == "" 'set cpu exec=027000;177400' ; set cpu debug=exec
if "%2" != "" 'set cpu debug,nodebug=fetch;pserv'


go until ">" 

exit