         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
   AUTO'SUBTYPE     = (13:3)#,  << Subtype for mag tapes >>    <<09517>>02170000
   FULL'SUBTYPE     = (12:4)#,  << complete device subtype >>  <<09517>>02171000
   LPDT'SUBTYPE     = LPDT(DADDR*LPDTENTRY+1).AUTO'SUBTYPE#,   <<09517>>02175000
$EDIT VOID=16340000                                                     16295000
                                                                        16510100
$  IF X0 = ON                                                           16510200
   IF MONOTHER THEN  <<MONITORING?>>                                    16510300
      BEGIN                                                             16510400
      TOS := "SE"; TOS := "TA"; TOS := "CB";                            16510500
      ASSEMBLE(ZERO,DZRO; DZRO);                                        16510600
      FTITLE(*,*,*,*);                                                  16510700
      DEBUG                                                             16510800
      END;                                                              16510900
$  IF                                                                   16511000
      FLIM:=DBL(EXTSIZE/SPB)*DBL(NUMEXTS*BF)                   <<T9345>>20490000
          - DBL(((SECTOFF + SPB - 1)/SPB) * log(BF));          <<T9345>>20492500
<< Make sure User Labels are taken into account when calc   >> <<T9345>>20492750
<< FLIM.  (SECTOFF points past all labels)                  >> <<T9345>>20493000
   FCBSUBTYPE := LPDT(FCBLDEV*LPDTENTRY+1).FULL'SUBTYPE;       <<09517>>20930000
         BEGIN                                                 <<*9390>>52731000
         TOS := %400;     ! DEVICE has NOT been primed.        <<*9390>>52732000
         TOS.(1:1) := 1;  ! set FOPEN FAILED bit               <<*9390>>52733000
         TOS := DADDR;                                         <<*9390>>52734000
         DEALLOCATE(*);                                        <<*9390>>52735000
         END;                                                  <<*9390>>52736000
   LOGICAL LYNX2 := FALSE;                                     <<*9338>>57060000
   LOGICAL LOGC := FALSE;   << True if LOGCLOSE was called >>  <<*9338>>57065000
