                                                                        00001000
<<                                                               >>     00002000
                                                                        00003000
                                                                        00004000
                                                                        00005000
<<                         incltbh4                              >>     00006000
                                                                        00007000
                                                                        00008000
<<===============================================================>>     00009000
<<                                                               >>     00010000
<<             ttttt       bbbbbb       h    h      4    4       >>     00011000
<<               t         b   bb       h    h      4    4       >>     00012000
<<               t         bbbb         hhhhhh      4444444      >>     00013000
<<               t         b   bb       h    h           4       >>     00014000
<<               t         bbbbbb       h    h           4       >>     00015000
<<===============================================================>>     00016000
                                                                        00017000
<<             i o         queue        head                     >>     00018000
$if x8 = off                                                            00019000
$control nolist                                                         00020000
$if                                                                     00021000
comment                                                                 00022000
                                                                        00023000
                     tbf table layout                                   00024000
                     ----------------                                   00025000
                                                                        00026000
                                                                        00027000
                |------------------------|                              00028000
                | total #   |  primary # |                              00029000
                |------------------------|                              00030000
                | impeded   | entry size |                              00031000
                |process pcb|            |  tsize                       00032000
                |------------------------|                              00033000
         -------|      head index        |  thead                       00034000
         |      |------------------------|                              00035000
   -------------|      tail index        |  ttail                       00036000
   |     |      |------------------------|                              00037000
   |     |      |maximum of |  current   |  tuse                        00038000
   |     |      |  in use   |  in use    |                              00039000
   |     |      |------------------------|                              00040000
   |     |      |      overflows         |  tovrfl                      00041000
   |     |      |------------------------|                              00042000
   |     |      |                        |                              00043000
   |     |      |    total requests      |  trqsts                      00044000
   |     |      |                        |                              00045000
   |     |      |------------------------|                              00046000
   |     |   -->|                        |                              00047000
   |     |   |  |------------------------|                              00048000
   |     |   |  |      index of 5        |-----                         00049000
   |     |   |  |------------------------|    |                         00050000
   |     |   |  |                        |    |                         00051000
   |     |   |  |                        |    |                         00052000
   |     |   |  |       entry 1          |    |                         00053000
   |     |   |  |                        |    |                         00054000
   |     |   |  |                        |    |                         00055000
   |     |   |  |------------------------|    |                         00056000
   |-----|---|->|                        |<---|----                     00057000
         |   |  |------------------------|    |   |                     00058000
         |   |  |           0            |    |   |                     00059000
         |   |  |------------------------|    |   |                     00060000
         |   |  |                        |    |   |                     00061000
         |   |  |                        |    |   |                     00062000
         |   |  |        entry 2         |    |   |                     00063000
         |   |  |                        |    |   |                     00064000
         |   |  |                        |    |   |                     00065000
         |   |  |------------------------|    |   |                     00066000
         |---|->|                        |    |   |                     00067000
             |  |------------------------|    |   |                     00068000
             |--|       index of 1       |    |   |                     00069000
                |------------------------|    |   |                     00070000
                |                        |    |   |                     00071000
                |                        |    |   |                     00072000
                |         entry 3        |    |   |                     00073000
                |                        |    |   |                     00074000
                |                        |    |   |                     00075000
                |------------------------|    |   |                     00076000
                |                        |    |   |                     00077000
tbf (cont.)                                                             00078000
---                                                                     00079000
                                                                        00080000
                                                                        00081000
                |------------------------|    |   |                     00082000
                |     indeterminate      |    |   |                     00083000
                |------------------------|    |   |                     00084000
                |                        |    |   |                     00085000
                |                        |    |   |                     00086000
                |         entry 4        |    |   |                     00087000
                |        (in use)        |    |   |                     00088000
                |                        |    |   |                     00089000
                |                        |    |   |                     00090000
                |------------------------|    |   |                     00091000
                |                        |<---|   |                     00092000
                |------------------------|        |                     00093000
                |       index of 2       |--------|                     00094000
                |------------------------|                              00095000
                |                        |                              00096000
                |                        |                              00097000
                |         entry 5        |                              00098000
                |                        |                              00099000
                |                        |                              00100000
                |------------------------|                              00101000
                                                                        00102000
                                                                        00103000
           dst  %10                                                     00104000
           system table   6                                             00105000
                                                                        00106000
                                                                        00107000
                                                                        00108000
                       tbf table head                                   00109000
                       -----------                                      00110000
                                                                        00111000
    0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                      00112000
  |--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|                     00113000
 0|  total elements in q  |  no. in primary area  |                     00114000
  |-----------------------------------------------|                     00115000
 1| impeded  pcb          |   entry size          |  tsize              00116000
  |-----------------------------------------------|                     00117000
 2|       free queue element list head index      |  thead              00118000
  |-----------------------------------------------|                     00119000
 3|       free queue element list tail index      |  ttail              00120000
  |-----------------------------------------------|                     00121000
 4|     max. in use       |  current in use       |  tuse               00122000
  |-----------------------------------------------|                     00123000
 5|       number of times table has overflowed    |  tovrfl             00124000
  |-----------------------------------------------|                     00125000
 6|                    total                      |  trqsts             00126000
  |                                               |                     00127000
 7|                   requests                    |                     00128000
  |-----------------------------------------------|                     00129000
 8|                                               |                     00130000
  |-----------------------------------------------|                     00131000
 9|                                               |                     00132000
  |-----------------------------------------------|                     00133000
10|                                               |                     00134000
  |-----------------------------------------------|                     00135000
                                                                        00136000
<<   no pegging should be required for this set of declarations >>      00137000
<<   since it starts at word zero of the i o queue    table    >>       00138000
<<                                                             >>       00139000
<<                                                             >>       00140000
<<                                                             >>       00141000
;                                                                       00142000
$control list                                                           00143000
                                                                        00144000
                                                                        00145000
logical pointer tbh = %16  ;     << system table definition for tbh >>  00146000
                                                                        00147000
                                                                        00148000
equate                                                                  00149000
                                                                        00150000
    tbh'totpri'index  =  0,                                             00151000
    tbh'impsize'index =  1,                                             00152000
    tbh'prient'index  =  0,                                             00153000
    tbh'imppcb'index  =  1,                                             00154000
    tbh'freehead'index=  2,                                             00155000
    tbh'freetail'index=  3,                                             00156000
    tbh'musecuse'index=  4,                                             00157000
    tbh'curinuse'index=  4,                                             00158000
    tbh'overflow'index=  5,                                             00159000
    tbh'reqcount'index=  6,                                             00160000
    tbh'reqcounu'index=  7,                                             00161000
    tbh'header'size = 8;                                                00162000
                                                                        00163000
                                                                        00164000
define                                                                  00165000
                                                                        00166000
    tbh'totpri  =   tbh(tbh'totpri'index)#,                             00167000
    tbh'impsize =   tbh(tbh'impsize'index)#,                            00168000
    tbh'prient  =   tbh(tbh'prient'index)#,                             00169000
    tbh'imppcb  =   tbh(tbh'imppcb'index)#,                             00170000
    tbh'freehead=   tbh(tbh'freehead'index)#,                           00171000
    tbh'freetail=   tbh(tbh'freetail'index)#,                           00172000
    tbh'musecuse=   tbh(tbh'musecuse'index)#,                           00173000
    tbh'curinuse=   tbh(tbh'curinuse'index)#,                           00174000
    tbh'ovrflows=   tbh(tbh'overflow'index)#,                           00175000
    tbh'reqcount=   tbh(tbh'reqcount'index)#,                           00176000
    tbh'reqcounu=   tbh(tbh'reqcounu'index)#;                           00176500
                                                                        00177000
                                                                        00178000
                                                                        00179000
                                                                        00180000
define                                                                  00181000
                                                                        00182000
    tbh'tot'ent =   tbh'totpri.(0:8)#,    << total # of entries >>      00183000
    tbh'pri'ent =   tbh'totpri.(8:8)#,    << # of primary entries >>    00184000
    tbh'imp'pcb =   tbh'impsize.(0:8)#,   << impeded pcb number  >>     00185000
    tbh'ent'size=   tbh'impsize.(8:8)#,   << entry size            >>   00186000
    tbh'max'nuse=   tbh'musecuse.(0:8)#,  << maximum drqs used   >>     00187000
    tbh'cur'nuse=   tbh'musecuse.(8:8)#;  << current # of drqs in use >>00188000
                                                                        00189000
                                                                        00190000
<<---------------------------------------------------------->>          00191000
                                                                        00192000
<<                       s b f                              >>          00193000
                                                                        00194000
<<---------------------------------------------------------->>          00195000
                                                                        00196000
logical pointer tbf = %6;   << sys. table definition for tbf >>         00197000
                                                                        00198000
equate                                                                  00199000
                                                                        00200000
    tbf'link'index  = -1;                                               00201000
                                                                        00202000
define                                                                  00203000
    tbf'link        = tbf(tbf'link'index + tbf'entry'index)#;           00204000
