<< LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION>>               00000001
PCBSIZE        =   21,                                         <<06545>>00132000
maxstack    = initstack+4096;                                  << 9541>>00150000
INTRINSIC FSETMODE;                                            <<*7561>>00376100
PROCEDURE FLUSH(INDEX,FLAG);                                   <<*7560>>00598000
VALUE INDEX,FLAG;                                              <<*7560>>00600000
INTEGER INDEX;                                                 <<*7560>>00602000
LOGICAL FLAG;                                                  <<*7560>>00603000
         FLUSH(NULL,FALSE); << We are the log process       >> <<*7560>>01018000
<< If this tape drive has an internal device buffer, we want >><<*7561>>05142010
<< to make sure that this device buffer gets posted for every>><<*7561>>05142020
<< write.                                                    >><<*7561>>05142030
                                                               <<*7561>>05142040
FSETMODE(FILENO,POST'TAPE'BUFFER);                             <<*7561>>05142050
                                                               <<*7561>>05142060
   FLUSH(NULL,FALSE);    << We are the log process          >> <<*7560>>06842000
      FLUSH(NULL,FALSE); << We are the log process          >> <<*7560>>07060000
   SUCCESS  = 1,      << General status  -  from Attachio >>   <<*7559>>07240000
   BLOCKEDIO= 1;                                               <<*7559>>07242000
   << Make sure we'll still be posting device buffer on each>> <<*7561>>07274010
   << write to tape.                                        >> <<*7561>>07274020
                                                               <<*7561>>07274030
   FSETMODE(FILENO,POST'TAPE'BUFFER);                          <<*7561>>07274040
                                                               <<*7561>>07274050
    STAT:=ATTACHIO(TLDEV,0,0,0,REWIND,0,0,0,FLAGS);            <<06746>>07290000
    STAT:=ATTACHIO(TLDEV,0,0,0,FORWARDSPACE,0,0,0,FLAGS);      <<06746>>07322000
                         FLAGS);                               <<06746>>07383000
                  STAT:=ATTACHIO(TAPEDEV,0,0,0,REWIND,0,0,0,   <<06746>>08344000
                                 FLAGS);                       <<06746>>08345000
                  STAT:=ATTACHIO(TAPEDEV,0,0,0,FORWRD,0,0,0,   <<06746>>08372000
                                 FLAGS);                       <<06746>>08373000
   IF PXFXLOGGING = 1 THEN                                     <<06545>>20160000
      PXFXLOGGING:=0;                                          <<06545>>20164000
$EDIT VOID=20414000                                            <<06545>>20412000
      IF LOGBUFF(OWNERPIN) = MYPIN THEN                        <<06545>>20416000
$EDIT VOID=20648000                                            <<06545>>20646000
      IF LOGBUFF(OWNERPIN) = MYPIN                             <<06545>>20650000
   IF NOT GENTRY(INDEX,0) THEN                                 <<*9519>>20936000
      BEGIN  << couldn't get an entry in the log dst >>        <<*9519>>20936100
      RELSIR(LOGSIR,A);                                        <<*9519>>20936200
      INITLOG := FALSE;                                        <<*9519>>20936300
      RETURN;                                                  <<*9519>>20936800
      END    << couldn't get entry >>                          <<*9519>>20936900
   ELSE                                                        <<*9519>>20937000
         RETURN;                                               <<*9519>>21155000
