; 2100 Fast FORTRAN Package diagnostic (DSN 101110, 24396-13601_Rev-1713)

echo
echo
echo --------------------------------------
echo DSN 101110 - 2100 Fast FORTRAN Package
echo --------------------------------------
echo
echo Loading the diagnostic.
echo Expect halt 102077 if successful.

deposit A 101110
deposit B 000000
reset
go 120

assert T=102077


; Verify the DSN.

echo
echo Verifying DSN 101110.

deposit M 126
assert T=101110


; Configure the diagnostic.

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

set CPU FFP

deposit S 000013
reset
go 100

assert T=102074


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect message "E142 NOT INTERRUPTIBLE" and halt 106042.

deposit S 000000
reset
go

assert T=106042


; Respond to "E142 NOT INTERRUPTIBLE"

echo
echo Resuming from error.
echo Expect message "E162 NOT INTERRUPTIBLE" and halt 106062.
echo

go

assert T=106062


; Respond to "E162 NOT INTERRUPTIBLE"

echo
echo Resuming from error.
echo Expect halt 102077 for successful completion.
echo

go


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

assert T=102077


; Restore the hardware configuration.

set CPU NOFFP