         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
02/13/85 Doug Nash - corrected transition from Idle CP to      <<*9888>>00515010
                     device clear. SR#4700-145516              <<*9888>>00515020
03/20/86 Jim Quintenz - corrected online transition in the     <<S2068>>00515030
                     states.  SR#4700-233437                   <<S2068>>00515040
03/20/86 Jim Quintenz - corrected the offset in the DIT to be  <<S2068>>00515050
                     logged by HARDRES (LOG'BUFFER).  No SR.   <<S2068>>00515060
   IOQ10 !///////////////////////!   QUALIFIER  !RSTATUS !  QSTAT       03195000
         -------------------------------------------------              03200000
   IOQ11 !                  PCB NUMBER                   !  QPCBN       03200010
         -------------------------------------------------              03200020
  LOG'BUFFER        = %001020,<< DLOGBUFFER LOGGING INFO >>    <<S2068>>04720000
$EDIT VOID=07145000                                            <<*9888>>07140000
        START'HPIB(DITP, CHANP(WAIT2), FALSE);                 <<*9888>>07155000
    CHANP(WAIT2) := WAIT;       << WAIT INSTRUCTION >>         <<*9888>>07280010
    CHANP(DSJ3+3) := 4;         << READ I/O STATUS VECTOR >>   <<*9888>>07280020
$EDIT VOID=07590000                                            <<*9888>>07575000
            IF = THEN      <<WE CAME ONLINE>>                  <<S2068>>09970000
              IF STATP.(4:2) = 0 THEN  <<NO ERRORS>>           <<S2068>>09971000
                GOTO DONE  <<FINISH UP>>                       <<S2068>>09972000
              ELSE         <<THERE ARE OTHER ERRORS>>          <<S2068>>09973000
                GOTO EXIT  <<PROCESS THE OTHER ERRORS>>        <<S2068>>09974000
            ELSE    <<THERE IS AN ERROR CONDITION IN WORD 1>>  <<S2068>>09974100
                     IF ILTP(CPVA1).(14:2) = 3 THEN            <<B2068>>10091000
                     <<OFFLINE AFTER DATA BLOCK MEANS 2680 OR>><<B2068>>10092000
                     <<2688 GOT DATA OK. DON'T RETRANSMIT BLK>><<B2068>>10093100
                      IOQ'STAT := SUCCESSFUL                   <<B2068>>10093500
                     ELSE                                      <<B2068>>10094000
                      BEGIN <<STATUS BEFORE DATA BLOCK IS OK>> <<B2068>>10094500
                      END;                                     <<B2068>>10111000
