; CS/80 Offline Diagnostic (CS80DIAG).
;
; NOTE: CS80DIAG version 0.16 does not support test 5.
;       Doing TEST 1/5 does not run test 5.
;       Doing TEST 5 does, but it produces:
;
;         Start Section 5: System Type Test
;
;         ** AID ERROR in statement 934  **
;         Program area overflow (including fifteen words per executed function call)


echo
echo
echo -----------------------------------
echo CS80DIAG - CS/80 Offline Diagnostic
echo -----------------------------------
echo
echo Configuring the simulation environment.


; Configure the diagnostic environment.
;
; A Device Clear reset is required to clear the power-on status in the disc
; controller (unit 15).  If this is not done, the CS/80 diagnostic will report
; the status as an error in section 3.  This is a bug in the diagnostic.

set GIC COUNT=2
set GICB CHANNEL=11

attach DC0 scratch.7933.disc

reset -C DC


; Run the CS/80 diagnostic.

echo
echo Starting the diagnostic.
echo

echo ":"
reply "CS80DIAG\r"


; Respond to "TYPE 'GO' FOR CS80DIAG, 'EXIT' TO LEAVE"

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


; Respond to "DEFAULT SECTIONS ARE 1-4, TYPE 'GO' TO CONTINUE"

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


; Exit

go until "\r\n:"


; Clean up.

set GIC COUNT=1

detach -F DC0

delete scratch.7933.disc