;                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.
; Otherwise, the path must end with a backslash and must be enclosed in single
; quotes (apostrophes) and NOT double quotes (quotation marks) if it contains
; embedded spaces.
;
; If <cpu-model> is not specified, a 1000 E-Series is assumed.
;
; The <diag-cmdfile> parameter specifies the command file containing the
; instructions to execute the diagnostic.  Only the filename is specified; the
; path is assumed to be the <path-to-diagnostics> or the current directory as
; above.  An ".inc" extension is appended if the filename as specified cannot
; be found.
;
; The diagnostic command file is invoked with the <path-to-diagnostics> passed
; as the first parameter.  If the path is not specified, a null parameter is
; passed to retain the position.  The diagnostic tape filename, including its
; path, is passed as the second parameter.  If the diagnostic needs to use the
; tape drive, the diagnostic tape should be reattached to MSC0 before
; returning.


; Ensure that the diagnostic command file is specified and available.

if "%1" == "" echo ; echo Usage: do %0 <diag-cmdfile> [ <cpu-model> [ <path-to-diags> ] ] ; return

if not exist "%3%1" && not exist "%3%1.inc" echo ; echo Command file %3%1 cannot be found. ; return


; 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


; Enable normally disabled I/O devices so that all devices are available.

echo
echo Configuring the simulation environment.

set ALL 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.

break delay 300 milliseconds


; 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

if exist "%3%1"     do "%3%1"     "%3" "%324396-13601_Rev-2326.abin.tape"
if exist "%3%1.inc" do "%3%1.inc" "%3" "%324396-13601_Rev-2326.abin.tape"