.PROC,DSTCMDS*I,
C   "- COMMAND DECK"                   = (*N=,*S2(01234567)),
W   "- WAIT FOR OPERATOR INTERVENTION" = (*N=,F=0,T=1),
T   "- Deadstart type                " = (*N=,CR,DISK,TAPE),
S   "- SCD PORT"                       = (*N=0,0,1),
.
.HELP
THIS PROCEDURE CREATES THE COMMAND FILE FOR *DSMDST*.
.ENDHELP
REVERT. CMDFILE CREATED.
.*
.*  THE FOLLOWING FORMS THE NORMAL COMMAND FILE FOR *DSMDST*.
.*
.DATA,CMDFILE.
.IFE,$T$.NE.$$,NEWSCD.
*DSOPTION=T.
.ENDIF,NEWSCD.
.IFE,$S$.NE.$$,NEWSCD.
*SCD=S.
.ENDIF,NEWSCD.
*RUN.                 **RUN WITHOUT PAUSE FOR OPERATOR ACTION....
.* THESE PANEL DIRECTIVES ESTABLISH THE FOLLOWING DEFAULT VALUES
.*    WORD 13 - DEFAULT SYSTEM CORE COMMAND DECK NUMBER = 01 (DCF01)
.*    WORD 13 - DEFAULT WAIT FOR OPERATOR INTERVENTION = 1 (TRUE)
*PANEL,13(8)=101.
.* IF ANY OF THE SETVE PARAMETERS C, CH, OR W HAVE BEEN SPECIFIED,
.*   THEN THE FOLLOWING DIRECTIVES OVERRIDE THE DEFAULT VALUES.
.IFE,$W$.NE.$$,NEWW.
*PANEL,0FFFF0(16)=W.  **SETVE WAIT, SET TO 1 FOR OPERATOR INTERVENTION
.ENDIF,NEWW.
.IFE,$C$.NE.$$,NEWC.
*PANEL,0FFFFF(16)=C.  **SETVE COMMAND DECK NUMBER
.ENDIF,NEWC.
*ENDLST.
*ENDLST.
/EOR
