; General I/O Channel diagnostic (GICDIAG).
; Parameter 1 is an optional test number or sequence.


echo
echo
echo ----------------------------------------
echo GICDIAG - General I/O Channel Diagnostic
echo ----------------------------------------
echo
echo Configuring the simulation environment.

; Configure the diagnostic environment.

set GIC COUNT=3
set GICB CHANNEL=11
set GICC CHANNEL=10

set DC   DISABLED


; Run the diagnostic

echo
echo
echo Starting the diagnostic.
echo

echo ":"
reply "GICDIAG\r"


; Configure the diagnostic.
;
; Test 18 is omitted as it tests memory parity errors, which are not simulated.
;
; Respond to "Enter 'GO' to continue."

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

;set cpu  exec=027000;177400
;set cpu  debug=exec;imbus
set gicb debug
set cpp  nodebug
; set cpp  debug=cmd;data;opnd;serv


; Respond to "What is the GIC address (1-15)? "

set GICB TEST
go until "? " ; reply "11\r"


; Break for the debugger.

; eval 0
go until ">" 


:finish
; Finish up.

reply "EXIT\r"

set console nodebug
set GIC COUNT=1

go until ":"