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

echo
echo
echo ----------------------------------------------------------------
echo DSN 101115 - M/E-Series Fast FORTRAN Package 2 -- 32-Bit Version
echo ----------------------------------------------------------------
echo
echo Loading the diagnostic.
echo Expect halt 102077 if successful.

deposit A 101114
deposit B 000000
reset
go 120

assert T=102077


; Verify the DSN.

echo
echo Verifying DSN 101114.

deposit M 126
assert T=101114


; 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


; Select the test set.

echo
echo Selecting the test set.
echo Expect halt 102075 if successful.

deposit S 001000
go

assert T=102075

; 32-bit test set selection omits:
;  - XADD
;  - XSUB
;  - XMPY
;  - XDIV
;  - .XADD
;  - .XSUB
;  - .XMPY
;  - .XDIV

deposit A 000017


; 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