; General I/O Channel diagnostic (GICDIAG).


echo
echo
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
set LPA DISABLED


; Run the diagnostic.

echo
echo Starting the diagnostic.
echo

echo ":"
reply "GICDIAG\r"


; Configure the diagnostic.
;
; NOTE: Diagnostic version 2.11 reports at the end that steps 15, 24, and
;       38 were not run.  If these are enabled explicitly with a TEST +n
;       command, no change in the trace log occurs.  So these steps must
;       have been eliminated from the diagnostic program.
;
; Respond to "Enter 'GO' to continue."

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


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

go until "? " ; reply "11\r"


; Respond to "Please set all toggle switches to their outward positions.
;            "Enter 'GO' to continue."

go until ">" ; 'set GICB CPP,B,NOSYS,TEST' ; reply "GO\r"


; Respond to "Please set all toggle switches to their inward positions.
;            "Enter 'GO' to continue."

go until ">" ; 'set GICB CPU,A,SYS,OPER' ; reply "GO\r"


; Respond to "Please set SW4 to '12'."
;            "Enter 'GO' to continue."

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


; Respond to "Please set SW4 to '13'."
;            "Enter 'GO' to continue."

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


; Respond to "Please set SW4 to '14'."
;            "Enter 'GO' to continue."

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


; Respond to "Please set SW4 to '15'."
;            "Enter 'GO' to continue."

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


; Respond to "Please set SW4 to '2'."
;            "Enter 'GO' to continue."

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


; Respond to "Please set SW4 to '3'."
;            "Enter 'GO' to continue."

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


; Respond to "Please set SW4 to '4'."
;            "Enter 'GO' to continue."

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


; Respond to "Please set SW4 to '5'."
;            "Enter 'GO' to continue."

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


; Respond to "Please set SW4 to '6'."
;            "Enter 'GO' to continue."

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


; Respond to "Please set SW4 to '7'."
;            "Enter 'GO' to continue."

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


; Respond to "Please set SW4 to '8'."
;            "Enter 'GO' to continue."

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


; Respond to "Please set SW4 to '9'."
;            "Enter 'GO' to continue."
;
;go until ">" ; set GICB CHANNEL=9 ; reply "GO\r"


; Respond to "Please set SW4 to '10'."
;            "Enter 'GO' to continue."
;
;go until ">" ; set GICB CHANNEL=10 ; reply "GO\r"


; Respond to "Please set SW4 to '11'."
;            "Enter 'GO' to continue."

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


; Respond to "Please set MODE switch (CHAN 11) to TEST, (OUT)."
;            "Enter 'GO' to continue."

go until ">" ; set GICB TEST ; reply "GO\r"


; Respond to "   Measure HSE pulse at U151-4 or U151-12."
;            "   High period should be 420-454 nanoseconds."
;            "   Check R23 if timing is incorrect."
;
;            "Enter 'GO' to continue."

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


; Respond to "   Select a second GIC, set its SYST CONT switch to OFF,"
;            "   and remove all its cables. Set the GIC under test's"
;            "   MODE switch to OPER and connect it to the second GIC"
;            "   with GIC cables."
;
;            "What is the second GIC address (1-15)?"

go until "(1-15)?" ; set GICC DIAG,NOSYS ; set GICB DIAG,OPER ; reply "10\r"


; Respond to "GIC diagnostic pass 1."
;
;            "PASSED STEPS: 1,2,3,4,5,6,7,8,9,10,11,12,13,14,16,17,18,19,20,21,22,23,25,"
;            "   26,27,28,29,30,31,32,33,34,35,36,37,39,40,41,42,43,44,45"
;
;            "Enter 'GO' to continue."

go until ">" ; reply "TEST 45\r"
go until ">" ; reply "RUN\r"


; Respond to "GICDIAG 2.11"
;
:            "Enter 'GO' to continue."

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


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

go until "? " ; reply "11\r"


; Respond to "   Select a second GIC, set its SYST CONT switch to OFF,"
;            "   and remove all its cables. Set the GIC under test's"
;            "   MODE switch to OPER and connect it to the second GIC"
;            "   with GIC cables."
;
;            "What is the second GIC address (1-15)?"

go until "(1-15)?" ; set GICC CHANNEL=12 ; reply "12\r"


; End the of diagnostic.
;
; Respond to "PASSED STEPS: 45"
;            "Enter 'GO' to continue."

go until ">" ; reply "EXIT\r"
go until ":"


; Restore the hardware configuration.

set DC  ENABLED
set LPA ENABLED

set GIC COUNT=1