; M/E-Series Fast FORTRAN Package 1 diagnostic (DSN 101213, 24396-13601_Rev-2326)

echo
echo
echo ----------------------------------------------
echo DSN 101213 - M/E-Series Fast FORTRAN Package 1
echo ----------------------------------------------
echo
echo Loading the diagnostic.
echo Expect halt 102077 if successful.

deposit A 101213
deposit B 000000
reset
go 120

assert T=102077


; Verify the DSN.

echo
echo Verifying DSN 101213.

deposit M 126
assert T=101213


; Configure the diagnostic.

echo
echo Configuring the diagnostic.
echo Expect halt 102074 if successful.

set CPU FFP
set MC1 DIAGNOSTIC

deposit S 000045
reset
go 100

assert T=102074


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect halt 102077 for successful completion.

deposit S 000000
reset
go


; End of the diagnostic.
;
; Verify HLT 77B for a successful pass.

assert T=102077


; Restore the hardware configuration.

set CPU NOFFP
set MC1 DEVICE