<< LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION>>               00000001
                                                                        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
