;               REGISTER TESTS
;
; Calling sequence:
;
;   diag-reg
;


; Capture the diagnostic execution console log.

set -n console log=DIAG-REG.log


;  *****************************
;  *                           *
;  *  Diagnostic Configurator  *
;  *                           *
;  *****************************

echo
echo
echo -------------------------------
echo Loading Diagnostic Configurator
echo -------------------------------


; Establish the initial environment.
;
; Note that the tape drive select code must be <= 17 to work on a 2114; this is
; a limitation of the 12607B DMA controller.

set env CPU=1000
set -f CPU 1000-E,128K
set ENV REV=2326

set MSC SC=16

if "%SIM_MAJOR%" != "3" set env reply=send


; Enable normally disabled I/O devices, so that the full complement is available.

echo
echo Configuring the simulation environment.

set LPS ENABLED
set MTC ENABLED
set IPL ENABLED
set MC1 ENABLED
set MC2 ENABLED


; Load the diagnostic configurator.

attach -e -r MSC0 %224396-13601_Rev-2326.abin.tape

echo
echo Loading the diagnostic configurator from magnetic tape.
echo Expect halt 102077 if successful.

deposit S 000000
boot MSC0

assert T=102077


; Verify the Diagnostic Serial Number.

echo
echo Verifying DSN 000200.

deposit M 126
assert T=000200


; Establish the standard break time for diagnostic responses.

if "%SIM_MAJOR%" == "3" break after=425000
if "%SIM_MAJOR%" != "3" expect haltafter=425000


; Prepare for automatic configuration with program load from magnetic tape.

echo
echo Configuring the diagnostic configurator for magnetic tape loading.
echo Expect halt 102077 if successful.

deposit S 011611
reset
go 100

assert T=102077


;  W1  W2  W3  W4  W5  W6  W7  W8  W9   DSN    Diagnostic
;  --- --- --- --- --- --- --- --- --- ------  ---------------------------------
;   C   B   B   B  IN  IN  IN  IN   A  143300  General Purpose Register
;
;   C   B   B   B  IN  IN  IN  IN   A  101220  DMA/DCPC for 2100/1000
;
;   B   A   A   B  IN  IN  IN  IN   A    --    DMA for 2100 (24195)
;
;   B   A   A   B  IN  IN  IN  IN   A  101105  DMA for 2114/2115/2116 (24322)
;   B   C   A  A/B IN  IN  IN  IN   A  101105  DMA for 2114/2115/2116 (24322)
;
;   B   C   B   B  IN  IN  IN  IN   A    --    DMA for 2115/2116 (24185)


echo
echo
echo
echo -------------------
echo HP 1000 Diagnostics
echo -------------------


; General Purpose Register (DSN 143300)

do MC-GPREG.inc


; DMA/DCPC for 2100/1000 (DSN 101220)

do DMA.inc


echo
echo
echo
echo -------------------
echo HP 2100 Diagnostics
echo -------------------


; Establish base CPU for diagnostics.

echo
echo Reconfiguring the CPU as a 2100 with 32K.

set env CPU=2100
set -f CPU 2100,32K
set ENV REV=1713


; Load the diagnostic configurator.

attach -e -r MSC0 %124396-13601_Rev-1713.abin.tape

echo
echo Loading the diagnostic configurator from magnetic tape.
echo Expect halt 102077 if successful.

deposit S 000000
boot MSC0

assert T=102077


; Verify the Diagnostic Serial Number.

echo
echo Verifying DSN 000200.

deposit M 126
assert T=000200


; Prepare for automatic configuration with program load from magnetic tape.

echo
echo Configuring the diagnostic configurator for magnetic tape loading.
echo Expect halt 102077 if successful.

deposit S 011611
reset
go 100

assert T=102077


; DMA/DCPC for 2100/1000 (DSN 101220)

do DMA.inc


; Reload the diagnostic configurator (BMTL) to change to the paper tape loader.

echo
echo Reloading the diagnostic configurator from magnetic tape.
echo Expect halt 102077 if successful.

deposit S 000001
boot MSC0

assert T=102077


; Verify the Diagnostic Serial Number.

echo
echo Verifying DSN 000200.

deposit M 126
assert T=000200


; Prepare for automatic configuration with program load from paper tape.

echo
echo Configuring the diagnostic configurator for paper tape loading.
echo Expect halt 106074 if successful.

deposit S 001011
reset
go 100

assert T=106074


; DMA for 2100 (HP 24195)

do 2100-DMA.inc



echo
echo
echo
echo -------------------
echo HP 2116 Diagnostics
echo -------------------


; Establish base CPU for diagnostics.

echo
echo Reconfiguring the CPU as a 2116 with 16K.

set env CPU=2116
set -f CPU 2116,16K
set ENV REV=1713


; Load the diagnostic configurator.

attach -e -r MSC0 %124396-13601_Rev-1713.abin.tape

echo
echo Loading the diagnostic configurator from magnetic tape.
echo Expect halt 102077 if successful.

deposit S 000000
boot MSC0

assert T=102077


; Verify the Diagnostic Serial Number.

echo
echo Verifying DSN 000200.

deposit M 126
assert T=000200


; Prepare for automatic configuration with program load from magnetic tape.

echo
echo Configuring the diagnostic configurator for magnetic tape loading.
echo Expect halt 102077 if successful.

deposit S 011611
reset
go 100

assert T=102077


; DMA for 2114/2115/2116 (DSN 101105, HP 24322)

do 211X-DMA.inc


; Reload the diagnostic configurator to change to the paper tape loader.

echo
echo Reloading the diagnostic configurator from magnetic tape.
echo Expect halt 102077 if successful.

deposit S 000001
boot MSC0

assert T=102077


; Verify the Diagnostic Serial Number.

echo
echo Verifying DSN 000200.

deposit M 126
assert T=000200


; Prepare for automatic configuration with program load from paper tape.

echo
echo Configuring the diagnostic configurator for paper tape loading.
echo Expect halt 106074 if successful.

deposit S 001011
reset
go 100

assert T=106074


; DMA for 2115/2116 (24185)

do 24185-DMA.inc



echo
echo
echo
echo -------------------
echo HP 2115 Diagnostics
echo -------------------


; Establish base CPU for diagnostics.

echo
echo Reconfiguring the CPU as a 2115 with 8K.

set env CPU=2115
set -f CPU 2115,8K


; Load the diagnostic configurator.

attach -e -r MSC0 %124396-13601_Rev-1713.abin.tape

echo
echo Loading the diagnostic configurator from magnetic tape.
echo Expect halt 102077 if successful.

deposit S 000000
boot MSC0

assert T=102077


; Verify the Diagnostic Serial Number.

echo
echo Verifying DSN 000200.

deposit M 126
assert T=000200


; Prepare for automatic configuration with program load from magnetic tape.

echo
echo Configuring the diagnostic configurator for magnetic tape loading.
echo Expect halt 102077 if successful.

deposit S 011611
reset
go 100

assert T=102077


; DMA for 2114/2115/2116 (DSN 101105, HP 24322)

do 211X-DMA.inc


; Reload the diagnostic configurator to change to the paper tape loader.

echo
echo Reloading the diagnostic configurator from magnetic tape.
echo Expect halt 102077 if successful.

deposit S 000001
boot MSC0

assert T=102077


; Verify the Diagnostic Serial Number.

echo
echo Verifying DSN 000200.

deposit M 126
assert T=000200


; Prepare for automatic configuration with program load from paper tape.

echo
echo Configuring the diagnostic configurator for paper tape loading.
echo Expect halt 106074 if successful.

deposit S 001011
reset
go 100

assert T=106074


; DMA for 2115/2116 (24185)

do 24185-DMA.inc



echo
echo
echo
echo -------------------
echo HP 2114 Diagnostics
echo -------------------


; Establish base CPU for diagnostics.

echo
echo Reconfiguring the CPU as a 2114 with 16K.

set env CPU=2114
set -f CPU 2114,16K


; Load the diagnostic configurator.

attach -e -r MSC0 %224396-13601_Rev-1713.abin.tape

echo
echo Loading the diagnostic configurator from magnetic tape.
echo Expect halt 102077 if successful.

deposit S 000000
boot MSC0

assert T=102077


; Verify the Diagnostic Serial Number.

echo
echo Verifying DSN 000200.

deposit M 126
assert T=000200


; Prepare for automatic configuration with program load from magnetic tape.

echo
echo Configuring the diagnostic configurator for magnetic tape loading.
echo Expect halt 102077 if successful.

deposit S 011611
reset
go 100

assert T=102077


; DMA for 2114/2115/2116 (DSN 101105, HP 24322)

do 211X-DMA.inc



; Diagnostics suite run is complete.
;
; Exit the simulator.

echo
echo
echo
echo ------------------------------
echo Diagnostics Suite Run Complete
echo ------------------------------
echo

exit