Trailing-Edge
-
PDP-10 Archives
-
k20v7b
-
mfg/dn1-stop.mic
There are no other files named dn1-stop.mic in the archive.
!***
! Mic file to turn off Auto Decnet Reload on DN20N1
! and optionally start up DFDNA for diags.
!
@OPR DISABLE OUTPUT ALL
*WAIT 1
*ENTER NCP
*WAIT 1
*SET CIRCUIT DTE-0-1 SERVICE DISABLED
*WAIT 2
*WAIT 1
*RET
*EXIT
!
! Type "^P" to start DFDNA.
! Type "^A" to abort.
!
=^B
@ERROR ?
!
ASSCHK::
@ASSIGN DL1:
@IF (NOERROR) @GOTO GOTDL1
!
! DL1 assigned by another job. Type (on CTY):
! PTYCON>"DL1-^C^C"
! Then type "^P" (to this job)
!
=^B
@BACKTO ASSCHK
!
GOTDL1::
@NOERROR
@DEASSIGN DL1:
@DO <MFG>DIAGNOSTIC-DEFINE.MIC
@DEF SYS: SYS:,DSK:
@RUN DFDNA
*1
*DL1: