;                Load and execute a diagnostic from paper tape.
;
; Calling sequence:
;
;   diag-ptload <diag-cmdfile> [ <cpu-model> [ <path-to-diagnostics> ] ]
;
; If <path-to-diagnostics> is null, the current directory is assumed.  The path
; must end with a backslash if it is specified and must not contain embedded
; spaces, even if it is quoted.
;
; If <cpu-model> is not specified, a 1000 E-Series is assumed.



; Capture the diagnostic execution console log.

if "%2" == "" set -n console log=DIAG-PTLOAD.log
if "%2" != "" set -n console log=DIAG-PTLOAD-%2.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.

if "%2" == "" set -F CPU 1000-E,128K
if "%2" != "" set -F CPU %2

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 %324396-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 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


; Run the selected diagnostic

do %3%1.inc 24396-13601_Rev-2326.abin.tape %3