.; COMMAND FILE GO.CMD

.; This command file is used to make running the tasks ADORDA and
.; DR2TAP easier. It is invocked by issuing the command 
.;
.;	>@GO NAME
.;
.; The command file issues the following commands :
.;	>INS NAME
.;	>FIX NAME
.;	>RUN CLOCKS/CMD="STOP"	!Stop the System Line Clock
.;	>RUN NAME
.;	>RUN CLOCKS/CMD="START"	!Start the System Line Clock
.;	>REM NAME

.ENABLE DECIMAL

INS 'P1'
.IF <EXSTAT> NE 1 .GOTO INSERR
FIX 'P1'
.IF <EXSTAT> NE 1 .GOTO FIXERR
RUN CLOCKS/CMD="STOP"/TASK=CLOCKS
.WAIT CLOCKS
RUN 'P1'
.WAIT 'P1'
RUN CLOCKS/CMD="START"/TASK=CLOCKS
.WAIT CLOCKS
.IF <EXSTAT> NE 1 .GOTO RUNERR
.OPEN TI:
.ENABLE DATA
  
  *** Operation Complete ***
  
.DISABLE DATA
.CLOSE
REM 'P1'
.EXIT

.INSERR:
.OPEN TI:
.ENABLE DATA
  !! INSTALL ERROR OF 'P1' !!
.DISABLE DATA
.CLOSE
.EXIT

.FIXERR:
.OPEN TI:
.ENABLE DATA
  !! ERROR ON FIXING 'P1' !!
.DISABLE DATA
REM 'P1'
.CLOSE
.EXIT

.RUNERR:
.OPEN TI:
.IF <EXSTAT> EQ 24 .GOTO REM
.ENABLE DATA
  !! ERROR DURING RUN OF 'P1' !!
.DISABLE DATA
.REM:
REM 'P1'
.CLOSE
.EXIT
