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

echo
echo
echo --------------------------------------------------------
echo DSN 101110 - 2100 Fast FORTRAN Package -- 32-Bit Version
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


; 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:
;  - SNGL
;  - DBLE
;  - .XADD
;  - .XSUB
;  - .XMPY
;  - .XDIV

deposit A 014037


; 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