;                 Load a diagnostic from magnetic tape by DSN.
;
; Calling sequence:
;
;   diag-dsn <diag-serial-number> [ <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.


; Capture the diagnostic execution console log.

set -N console log=DIAG-DSN.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 -F CPU 1000-E,128K
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 %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


; Load the diagnostic from magnetic tape.
;
; Preload the A register with 177777, so that if the DSN was omitted, an error
; halt will occur.

echo
echo Loading the diagnostic (DSN = %1).
echo Expect halt 102077 if successful, 106070 if DSN cannot be found.

deposit A 177777
deposit A %1
deposit B 000000
deposit S 111611
reset
go 100