; F-Series Floating Point Processor-Scientific Instruction Set-
;   Fast FORTRAN Processor diagnostic (DSN 101121, 24396-13601_Rev-2326)

echo
echo
echo ---------------------------------
echo DSN 101121 - F-Series FPP-SIS-FFP
echo ---------------------------------
echo
echo Loading the diagnostic.
echo Expect halt 102077 if successful.

deposit A 101121
deposit B 000000
reset
go 120

assert T=102077


; Verify the DSN.

echo
echo Verifying DSN 101121.

deposit M 126
assert T=101121


; Configure the diagnostic.

echo
echo Configuring the CPU as a 1000-F.

set CPU 1000-F

; Diagnostic debug flags
; Set value in location 2574 as below
;
; bit  0 = options enable
; bit  1 = inhibit info messages
; bit  2 = no 2-word operations
;
; bit  3 = no 3-word operations
; bit  4 = no 4-word operations
; bit  5 = no 5-word operations
;
; bit  6 = skip direct operand test
; bit  7 = skip indirect operand test
; bit  8 = skip 105005 exp macro load
;
; bit  9 = non-varying pass number, TST00-14
; bit 10 = short output, TST00-13,15
; bit 11 = inhibit answer compare, TST00-13,15
;
; bit 12 = repeat operations, TST00-13
; bit 13 = display all operations, whether fail or not, no check
; bit 14 = port test mode, TST00-07
;
; bit 15 = unused
;
; (full test)   deposit 2574 000001
; (direct only) deposit 2574 000601
; (4 word only) deposit 2574 000655
; (2 word only) deposit 2574 000671
; (expan expon) deposit 2574 000001
;
;
; deposit 2574 000001

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

set MC1 DIAGNOSTIC

deposit S 000045
reset
go 100

assert T=102074


; Select the test set.
;
; Note: the basic control test only runs if a subset is NOT selected
;
; echo
; echo Selecting the test set.
; echo Expect halt 102075 if successful.
;
; deposit S 001000
;
; reset
; go
;
; assert T=102075
;
;
; Set value in A as below
;
; 000001 = fixs
; 000002 = fixd
; 000004 = flts
; 000010 = fltd
; 000020 = add
; 000040 = sub
; 000100 = mul
; 000200 = div
; 000400 = accumulator test
; 001000 = tan, alog, atan, cos, sin, alogt
; 002000 = sqrt, exp, tanh
; 004000 = dpoly, /cmrt, /atlg, .fpwr, .tpwr
; 010000 = ffp math
; 020000 = ffp utils
; 040000 = double integer test
; 100000 = manual entry
;
; (math only) deposit A 000377
; (sis)       deposit A 007000
; (ffp only)  deposit A 070000
; (full)      deposit A 070777
;
; deposit A 004000


; Start the diagnostic.

echo
echo Running the diagnostic.
echo Expect halt 102077 if successful.

deposit S 000000
go


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

assert T=102077


; Restore the hardware configuration.

set CPU 1000-E
set MC1 DEVICE