; CPU diagnostic sections 6-14 (D420A5-D420A13)
;   Parameter 1 = path to diagnostic tape.
;
; Configuration locations:
;
;     Location     Default Value  Contents
;   -------------  -------------  ---------------------------------------------------
;   DB+2   002002  001000          Version and update level
;   DB+3   002003  000005          Section number
;   DB+5   002005  000000          Step number



; CPU diagnostic section 6 (D420A5)
;
; Tests system halt when segment 1 is absent by causing an integer overflow
; interrupt.

echo
echo
echo ----------------------
echo D420A5 - CPU Section 6
echo ----------------------
echo
echo Loading the diagnostic.


; Cold load the CPU diagnostics tape.

attach -r MS0 %130000-11016_Rev-1244_CPU-64K.tape
boot MS0
boot MS0
boot MS0
boot MS0
boot MS0
boot MS0


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect a system halt 3 for successful completion.

go


; End of the diagnostic; verify a system halt for a successful pass.

assert CPX2&000002=000002
assert SP0=000003



; CPU diagnostic section 7 (D420A6)
;
; Tests system halt when segment 1 is traced by causing an integer overflow
; interrupt.

echo
echo
echo ----------------------
echo D420A6 - CPU Section 7
echo ----------------------
echo
echo Loading the diagnostic.

; Cold load the CPU diagnostics tape.

boot ms0


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect a system halt 33 for successful completion.

go


; End of the diagnostic; verify a system halt for a successful pass.

assert CPX2&000002=000002
assert SP0=000041



; CPU diagnostic section 8 (D420A7)
;
; Tests system halt when code segment table length = 0 by setting word 0 of the
; first CST entry to 0 and then executing a PCAL to segment 3.  This causes the
; system halt.

echo
echo
echo ----------------------
echo D420A7 - CPU Section 8
echo ----------------------
echo
echo Loading the diagnostic.

; Cold load the CPU diagnostics tape.

boot ms0


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect a system halt 5 for successful completion.

go


; End of the diagnostic; verify a system halt on PCAL 0 for a successful pass.

assert CPX2&000002=000002
assert SP0=000005
assert CIR=031000



; CPU diagnostic section 9 (D420A8)
;
; Tests system halt when code segment is absent while executing on the ICS by
; executing a PCAL that tries to load code segment 3.

echo
echo
echo ----------------------
echo D420A8 - CPU Section 9
echo ----------------------
echo
echo Loading the diagnostic.

; Cold load the CPU diagnostics tape.

boot ms0


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect a system halt 2 for successful completion.

go


; End of the diagnostic; verify a system halt on PCAL 0 for a successful pass.

assert CPX2&000002=000002
assert SP0=000002
assert CIR=031000



; CPU diagnostic section 10 (D420A9)
;
; Tests system halt when I/O timeout occurs on IXIT device reset by issuing the
; Reset I/O command to device 0.  Note that the IMBA must be disabled for this
; test to succeed, as it will respond as device number 0 unless the masquerade
; register is set to another value.

echo
echo
echo -----------------------
echo D420A9 - CPU Section 10
echo -----------------------
echo
echo Loading the diagnostic.

; Cold load the CPU diagnostics tape.

boot ms0


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect a system halt 6 for successful completion.

set IMBA DISABLED
go


; End of the diagnostic; verify a system halt on IXIT for a successful pass.

assert CPX2&000002=000002
assert SP0=000006
assert CIR=020360



; CPU diagnostic section 11 (D420A10)
;
; Tests system halt when QI - 18 = 0 when executing a PSEB instruction.
;
echo
echo
echo ------------------------
echo D420A10 - CPU Section 11
echo ------------------------
echo
echo Loading the diagnostic.

; Cold load the CPU diagnostics tape.

boot ms0


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect a system halt 9 for successful completion.

go


; End of the diagnostic; verify a system halt on PSEB for a successful pass.

assert CPX2&000002=000002
assert SP0=000011
assert CIR=030063



; CPU diagnostic section 12 (D420A11)
;
; Tests system halt when segment 1 STT length = 0 by causing an integer overflow
; interrupt.

echo
echo
echo ------------------------
echo D420A11 - CPU Section 12
echo ------------------------
echo
echo Loading the diagnostic.

; Cold load the CPU diagnostics tape.

boot ms0


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect a system halt 1 for successful completion.

go


; End of the diagnostic; verify a system halt for a successful pass.

assert CPX2&000002=000002
assert SP0=000001



; CPU diagnostic section 13 (D420A12)
;
; Tests system halt when a stack overflow occurs on the ICS by executing an ADDS
; instruction with a large value.

echo
echo
echo ------------------------
echo D420A12 - CPU Section 13
echo ------------------------
echo
echo Loading the diagnostic.

; Cold load the CPU diagnostics tape.

boot ms0


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect a system halt 4 for successful completion.

go


; End of the diagnostic; verify a system halt for a successful pass.

assert CPX2&000002=000002
assert SP0=000004



; CPU diagnostic section 14 (D420A13)
;
; Tests system halt when a stack overflow occurs on the ICS by executing LDI 0
; in an infinite loop until SM = Z.

echo
echo
echo ------------------------
echo D420A13 - CPU Section 14
echo ------------------------
echo
echo Loading the diagnostic.

; Cold load the CPU diagnostics tape.

boot ms0


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect a system halt 4 for successful completion.

go


; End of the diagnostic; verify a system halt for a successful pass.

assert CPX2&000002=000002
assert SP0=000004