         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
        will be enabled.  If the QPARM 2 parameter is one, immediate    02765000
        report for writes will be disabled.                             02770000
         3 |             Logical device number             | DLDEV      03170000
         6 |RW|RU|SH|GR|  |PF|          |EOV|PP|IR| EI  |PA| DSAVE      03200000
        12 | IOT |/////////////////|     Phys. unit #      | DUNIT      03251010
           |--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--|            03252010
        13 | Holds the time out request entry index while  | DRQST      03255000
           |--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--|            03265000
        14 | Error log. Contains 6 bytes of status from    | DDEVSTAT   03270000
        15 | the previous operation.                       |            03275000
        16 |                                               |            03280000
              GR - Good retries on previous operation.                  03511010
         2 |             Logical device number             | QLDEV      04135000
Comment:                                                       <<J9175>>06700000
08/28/84  Jesse Chin                                                    06781010
          F0828 - Fix retries problem SR#117184 BR592                   06781020
                - Fix problem related to handle the completion          06781030
                  of IOQ'ABORT condition SR#121491 BR733                06781040
                                                               <<J9175>>06781050
09/07/84  Jesse Chin                                           <<J9175>>06781060
          F0907 - Fix DIT DLDEV , DUNIT and IOQ QLDEV size     <<J9175>>06781070
                - SR#123927 fix stream mode 2 -> 0             <<J9175>>06781080
10/30/84  Jesse Chin                                           <<J9400>>06781090
          F1030 - SR#128911/BR996 on multireel STORE, aborting <<J9400>>06781100
                  rewind would got rewind error, motion stop.  <<J9400>>06781110
                  Replace REWIND/OFFLINE with REWIND then      <<J9400>>06781120
                  REWIND/OFFLINE because REWIND/OFFLINE gets   <<J9400>>06781130
                  immediate completion, REWIND would complete  <<J9400>>06781140
                  upon sensing BOT, this fix use a flag        <<J9400>>06781150
                  bit in DIT DSAVE for rewind pending to       <<J9400>>06781160
                  prevent issuing an idle program if user      <<J9400>>06781170
                  aborting this operation while rewinding.     <<J9400>>06781180
                                                               <<J9400>>06781190
11/15/84  Jesse Chin                                           <<J9459>>06782010
          F1115 - SR#134106 fix problem with write ring check  <<J9459>>06782020
                  causes FS error 29 due to error in restart   <<J9459>>06782030
                  channel program after transparent status     <<J9459>>06782040
                  report from the tape drive.                  <<J9459>>06782050
;                                                              <<J9175>>06785000
  COMPLETOR'STATE      = 3    ,                                <<J9400>>07311010
  STREAM               = 0    , <<SR#123927>>                  <<J9175>>07400000
  DUNIT     = %12,                                             <<J9175>>07501010
  DRQST     = %13,                                             <<J9175>>07505000
  DDEVSTAT1 = %14,                                             <<J9175>>07510000
  DDEVSTAT2 = %15,                                             <<J9175>>07515000
  DDEVSTAT3 = %16;                                             <<J9175>>07520000
                                                               <<J9175>>07560000
  DSAVE'GR'BIT      = ( 3:1)#,                                          07576010
  DSAVE'RP'BIT      = ( 4:1)#,                                 <<J9400>>07576020
  DIT'LDEV             =  P'DIT (DLDEV    )                  #,<<J9175>>07780000
  DIT'GOOD'RETRY       =  P'DIT (DSAVE    ).DSAVE'GR'BIT     #,         07811010
  DIT'REWIND'PEND      =  P'DIT (DSAVE    ).DSAVE'RP'BIT     #,<<J9400>>07811020
  [8/15, 8/%21], << DIT size, not core res.>>                  <<J9175>>09555000
                 << idle chan pgm, type 1. >>                  <<J9175>>09555010
              0, << DIT'LDEV             >>                    <<J9175>>09615000
         %40000, << HPIB TYPE DEVICE     >>                    <<J9175>>09646010
IF DIT'REWIND'PEND AND                                         <<J9400>>13930010
  DIT'PENDING'ABORT AND                                        <<J9400>>13930020
  NOT DIT'POWERFAIL THEN RETURN;                               <<J9400>>13930030
  IF IOQ'FUNCTION'CODE = FC'REWIND'OFFLINE AND                 <<J9400>>14096010
    NOT IOQ'POWERFAIL AND                                      <<J9400>>14096020
    DIT'REWIND'PEND THEN                                       <<J9400>>14096030
    BEGIN                                                      <<J9400>>14096040
      DIT'PENDING'ABORT := TRUE;                               <<J9400>>14096050
      IF DRIVER'STATE = COMPLETOR'STATE THEN                   <<J9400>>14096060
      GO TO COMPLETE'REQUEST;                                  <<J9400>>14096070
      RETURN;                                                  <<J9400>>14096080
    END;                                                       <<J9400>>14096090
    GO TO COMPLETE'SYS'ABORT;                                  <<J9160>>14225000
      DIT'GOOD'RETRY := 1;                                     <<J9160>>15191010
      IF IOQ'FUNCTION'CODE = FC'WRITE and                      <<J9459>>15245000
      ioq'transfer'count <> 0 then                             <<J9459>>15245100
    IP'CHAN'PGM (CTAPE'CMD  ) := TC'REWIND;                    <<J9400>>17750000
    DIT'REWIND'PEND := TRUE;                                   <<J9400>>17750010
IF IOQ'FUNCTION'CODE = FC'REWIND'OFFLINE AND                   <<J9400>>23350010
  DIT'REWIND'PEND AND                                          <<J9400>>23350020
  DIT'UNIT'ONLINE THEN                                         <<J9400>>23350030
  BEGIN                                                        <<J9400>>23350040
    IP'CHAN'PGM (CSTART'JVEC) := 0;                            <<J9400>>23350050
    IP'CHAN'PGM (CCMD'DSJ0  ) := 20;                           <<J9400>>23350060
    IP'CHAN'PGM (CTAPE'CMD  ) := TC'REWIND'OFFLINE;            <<J9400>>23350070
    DIT'REWIND'PEND := FALSE;                                  <<J9400>>23350080
    GO TO START'CHAN'PGM;                                      <<J9400>>23350090
  END;                                                         <<J9400>>23350100
COMPLETE'SYS'ABORT:                                            <<J9160>>23531010
  IF IOQ'FUNCTION'CODE = FC'REWIND'OFFLINE                     <<J9400>>23600010
  THEN DIT'REWIND'PEND := FALSE;                               <<J9400>>23600020
ELSE IF DIT'GOOD'RETRY AND IOQ'RETRY'COUNT > 0 THEN            <<J9160>>25536010
BEGIN                                                          <<J9160>>25536020
  IOQ'IO'STATUS := GOOD'RETRY;                                 <<J9160>>25536030
  DIT'GOOD'RETRY := 0;                                         <<J9160>>25536040
END                                                            <<J9160>>25536050
