         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
>>                                                             <<J1044>>00415000
comment:                                                       <<J1044>>00416000
Jesse Chin  12/18/84 SR#5000-043927                                     00675010
                                                                        00675020
Correct function 15 for reporting device status.                        00675030
                                                               <<J1044>>00675040
Jesse Chin  01/25/85 SR#4700-142653                            <<J1044>>00675050
Correct function code 16 set'density command                   <<J1044>>00675060
                                                               <<J1044>>00675070
Jesse Chin    06/26/85   SR#4700-134106/139014                 <<01325>>00675080
change all single byte command transfer starting from left byte<<01325>>00675090
;                                                              <<J1044>>00686000
<<                                                                      00687000
    TC'WRITE          = [8/  5,8/0],                           <<01325>>04375000
    TC'FILE'MARK      = [8/  6,8/0],                           <<01325>>04380000
    TC'TAPE'GAP       = [8/  7,8/0],                           <<01325>>04385000
    TC'READ           = [8/%10,8/0],                           <<01325>>04390000
    TC'FOR'SPACE'REC  = [8/%11,8/0], << Forward space to next>><<01325>>04395000
    TC'BAC'SPACE'REC  = [8/%12,8/0], << Back space to prior r>><<01325>>04400000
    TC'NEXT'FILE      = [8/%13,8/0], << Forward space to next>><<01325>>04405000
    TC'PREV'FILE      = [8/%14,8/0], << Back space to prior f>><<01325>>04410000
    TC'REWIND         = [8/%15,8/0],                           <<01325>>04415000
    TC'REWIND'OFFLINE = [8/%16,8/0],                           <<01325>>04420000
    TC'BACK'READ      = [8/%17,8/0], << Backward read.       >><<01325>>04425000
    TC'DENSITY'6250   = [8/%20,8/0],                           <<01325>>04430000
    TC'DENSITY'1600   = [8/%21,8/0],                           <<01325>>04435000
    GCR'6250            =     0, << 6250 (GCR) density mode. >><<J1044>>04856000
<<   5 >>  % 2000, << Left byte, update disable.>>             <<01325>>05550000
<<  10 >>  % 2000, << Left byte, update disable.>>             <<01325>>05580000
<<  32 >>  % 2000, << Left byte, update disable.>>             <<01325>>05745000
<<  51 >>  % 2000, << left byte, update disable.    >>         <<01325>>05860000
<<  63 >>  % 2000, << Left byte, update disable.>>             <<01325>>05935000
<<  70 >>  % 2000, << Left byte, update disable.>>             <<01325>>06000000
<<  75 >>  % 2000, << Left byte, update disable.>>             <<01325>>06030000
<<  97 >>  % 2000,                                             <<01325>>06215000
<< 112 >>  % 2000, << Left byte, update disabled.>>            <<01325>>06310000
<< 118 >> [8/2,8/0],  << Stop poll for data command.>>         <<01325>>06350000
<< 119 >> [8/%10,8/0],<< channel end >>                        <<01325>>06355000
<< 127 >> [8/4,8/0];  << idle end >>                           <<01325>>06395000
      P'CHAN'PGM (97) := % 2000;                               <<01325>>08645000
          TOS := P'CHAN'PGM (DEVICE'STATUS);                   <<J9543>>13885000
          TOS := P'CHAN'PGM (DEVICE'STATUS);                   <<J9543>>13960000
          if ioq'density = GCR'6250 then                       <<J1044>>14161000
          TAPE'COMMAND := TC'DENSITY'6250                      <<J1044>>14165000
        else                                                   <<J1044>>14166000
        begin                                                  <<J1044>>14166100
          driver'state := request'done;                        <<J1044>>14166200
          ioq'stat     := invalid'request;                     <<J1044>>14166300
          return;                                              <<J1044>>14166400
        end;                                                   <<J1044>>14166500
