         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
$PAGE "MPE TABLE ACCESS:  LDT, LDTX"                                    00005000
COMMENT                                                                 00010000
<<**********************************************************>>          00015000
<<*                                                        *>>          00020000
<<*                 INCLLDT - Module I0                    *>>          00025000
<<*               (contains LDT and LDTX)                  *>>          00030000
<<*                    MPE 5 version                       *>>          00035000
<<*                                                        *>>          00040000
<<**********************************************************>>          00045000
                                                                        00050000
$IF X8 = OFF                                                            00055000
$CONTROL NOLIST                                                         00060000
$IF                                                                     00065000
$TITLE "MPE TABLE ACCESS:  LOGICAL DEVICE TABLE (LDT)"                  00070000
                                                                        00075000
                   Overview of Device Tables                            00080000
                   -------------------------                            00085000
                                                                        00090000
DST 14 (= %16)   +---------------------------+<-----DST %16             00095000
SIR 10 (= %12)   |                           |                          00100000
                 |   Logical Device Table    |                          00105000
                 |                           |                          00110000
                 |          (LDT)            |                          00115000
                 |                           |                          00120000
                 +---------------------------+                          00125000
                 |                           |                          00130000
                 |   Logical Device Table    |                          00135000
                 |         Extension         |                          00140000
                 |          (LDTX)           |                          00145000
                 |                           |                          00150000
                 +---------------------------+                          00155000
                                                                        00160000
                                                                        00165000
               LOGICAL DEVICE TABLE                                     00170000
               --------------------                                     00175000
                                                                        00180000
                Zero Entry Format                                       00185000
                -----------------                                       00190000
                                                                        00195000
   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                       00200000
 +--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--+                      00205000
0|             Highest entry number              |                      00210000
 +-----------------------------------------------+                      00215000
1|                Entry size = 7                 |                      00220000
 +-----------------------------------------------+                      00225000
2|            Streams device number              |                      00230000
 +-----------------------------------------------+                      00235000
3|///////////////////////////////////////////////|                      00240000
 +-----------------------------------------------+                      00245000
4|///////////////////////////////////////////////|                      00250000
 +-----------------------------------------------+                      00255000
5|///////////////////////////////////////////////|                      00260000
 +-----------------------------------------------+                      00265000
6|///////////////////////////////////////////////|                      00270000
 +-----------------------------------------------+                      00275000
7|///////////////////////////////////////////////|                      00280000
 +-----------------------------------------------+                      00285000
$PAGE                                                                   00290000
               Typical Entry Format                                     00295000
               --------------------                                     00300000
                                                                        00305000
   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                       00310000
 +--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--+                      00315000
 |                File use count                 |0                     00320000
 +-----------------------+-----------------------+                      00325000
 | Volume table index if device type = 0-7, else |                      00330000
 | main process pin # or spooler process pin #   |1                     00335000
 +-----------------------+-----------------------+                      00340000
 |     Record width      |CS|FO|  Device type    |2                     00345000
 +-----+--+--+--+--+--+--+--+--------------------+             <<B8279>>00350000
 |Spool|Sy|Di|Dn|Tr|Hd|Cl|S |  Device-dependent  |             <<B8279>>00355000
 |state|st|ag|Rq|lr|r |as| Q|  info (see below)  |3            <<B8279>>00360000
 +-----+--+--+--+--+--+--+--+--------------------+             <<B8279>>00365000
 |////////|            XDD head index            |4            <<B8279>>00370000
 +--------+--------------------------------------+             <<B8279>>00375000
 |                CONTROL-Y pin                  |5                     00380000
 +-----------------------------------------------+                      00385000
 | Default output device -OR- default class index|6                     00390000
 |               (see discussion)                |                      00395000
 +-----------------------------------------------+                      00400000
                                                                        00405000
Discussion:                                                             00410000
  Word 2.(8:1) -- Communication system device if set.                   00415000
  Word 2.(9:1) -- If set, there are special forms  mounted  on          00420000
                  the device.                                           00425000
  Word 3.(0:2) -- Spooled state of the device:                          00430000
                  0 -- Not spooled.                                     00435000
                  1 -- Owned by an input  spooler.                      00440000
                  2 -- Owned by an output spooler.                      00445000
  Word 3.(2:1) -- Device is available to system (not down).             00450000
  Word 3.(3:1) -- Device is available to diagnostics (obs).             00455000
  Word 3.(4:1) -- :DOWN requested, honored when use count = 0.          00460000
  Word 3.(5:1) -- If set, trailers are disabled.                        00465000
  Word 3.(6:1) -- If set, headers are disabled. These two bits          00470000
                  are managed such  that  header/trailers  are          00475000
                  generated in pairs or not at all.                     00480000
  Word 3.(7:1) -- If 1/0, word 6 is the DCT index/LDEV# of the          00485000
                  default output class/device associated  with          00490000
                  this device.                                          00495000
  Word 3.(8:1) -- Spooling has been enabled (spool queues  are <<B8279>>00500000
                  open) for this device.                       <<B8279>>00505000
  Word 3.(9:7) -- Device dependent information:                <<B8279>>00510000
                  1.  For terminal-like devices,  the  default          00515000
                      terminal  type  to be used if not speci-          00520000
                      fied in the :HELLO command.                       00525000
                  2.  For variable density tape drives:                 00530000
     Word 3.(10:3) -- actual tape density.                     <<B8279>>00535000
     Word 3.(13:3) -- density requested in FOPEN for writes to <<B8279>>00540000
                      unlabelled tapes only.                            00545000
                      For either:                                       00550000
                      0 = unknown density/no FOPEN w/ write.            00555000
                      1 = 1600 BPI                                      00560000
                      2 = 6250 BPI                                      00565000
                      3 = 800  BPI                             <<07380>>00570000
$PAGE                                                                   00575000
$IF X8 = OFF                                                            00580000
$CONTROL LIST                                                           00585000
$IF                                                                     00590000
             *-*-*-*-*-*-*-*-*-*-*-*-*-*-*                              00595000
             |  Declarations start here  |                              00600000
             *-*-*-*-*-*-*-*-*-*-*-*-*-*-*                              00605000
                                                                        00610000
Conventions used in the declarations:                                   00615000
1.  We presume the existence of the following identifiers:              00620000
  a)  A logical array or pointer, LDT.                                  00625000
  b)  An offset integer LDT'INDEX, normally  set  to  LDEV#  *          00630000
      LDT'ENTRY'SIZE.                                                   00635000
    The LDT array (pointer) can be direct, indirect,  DB-rela-          00640000
    tive  or  Q-relative.  If  DB-relative, make sure you know          00645000
    where DB is before you use it.                                      00650000
      Setting LDT'INDEX as above allows you to do segment-rel-          00655000
    ative LDT accesses.  If you prefer to make a local copy of          00660000
    an LDT entry via MFDS/MTDS, or if you have  existing  code          00665000
    which does this, simply set LDT'INDEX := 0.                         00670000
2.  Each DEFINE is prefixed by LDT'... to distinguish it  from          00675000
    references to other MPE tables.                                     00680000
3.  DEFINEs of fields are  listed  alphabetically  for  easier          00685000
    lookup without using XREF. DEFINEs of states of fields are          00690000
    listed sequentially following the field DEFINE.                     00695000
;                                                                       00700000
EQUATE                                                                  00705000
   LDT'DST                = %16,           << = 14(10)      >>          00710000
   LDT'SIR                = %12,           << = 10(10)      >>          00715000
   LDT'MPE'VERSION        =   5;                                        00720000
                                                                        00725000
<< The following EQUATE must be changed if the length of an >>          00730000
<< LDT entry changes.                                       >>          00735000
                                                                        00740000
EQUATE                                                                  00745000
   SIZE'OF'LDT'ENTRY      =   7;                                        00750000
                                                                        00755000
<< LDT header (zero'th) entry fields.  Be sure to check the >>          00760000
<< LDTX portion of this $INCLUDE file  if  you  change  the >>          00765000
<< symbol names in this section.                            >>          00770000
                                                                        00775000
DEFINE                                                                  00780000
   LDT'ENTRY'SIZE        = LDT(1)       #,                              00785000
   LDT'NUM'ENTRIES       = LDT(0)       #,                              00790000
   LDT'STREAMS'LDEV      = LDT(2)       #;                              00795000
$PAGE                                                                   00800000
<<               Fields for a typical LDT entry.            >>          00805000
DEFINE                                                                  00810000
   LDT'ACCESS'TYPE        = LDT(LDT'INDEX+2).(10:3) #,                  00815000
       LDT'DIRECT'ACCESS  = 0                       #,                  00820000
       LDT'SERIAL'IN      = 1                       #,                  00825000
       LDT'IO'CONCURRENT  = 2                       #,                  00830000
       LDT'IO'NONCONCUR   = 3                       #,                  00835000
       LDT'SERIAL'OUT     = 4                       #,                  00840000
   LDT'ACTUAL'TAPE'DENS   = LDT(LDT'INDEX+3).(10:3) #,         <<B8279>>00845000
       LDT'NO'DENSITY     = 0                       #,                  00850000
       LDT'DENSITY'1600   = 1                       #,                  00855000
       LDT'DENSITY'6250   = 2                       #,                  00860000
       LDT'DENSITY'800    = 3                       #,         <<07380>>00865000
   LDT'AVAIL'TO'DIAG      = LDT(LDT'INDEX+3).( 3:1) #,                  00870000
   LDT'AVAIL'TO'SYS       = LDT(LDT'INDEX+3).( 2:1) #,                  00875000
   LDT'CLASS'INDEX        = LDT(LDT'INDEX+3).( 7:1) #,                  00880000
   LDT'CONTROL'Y'PIN      = LDT(LDT'INDEX+5)        #,                  00885000
   LDT'CS'DEVICE          = LDT(LDT'INDEX+2).( 8:1) #,                  00890000
   LDT'DEVICE'TYPE        = LDT(LDT'INDEX+2).(10:6) #,                  00895000
       LDT'13037'DISC     =  0                      #,                  00900000
       LDT'FIXED'HD'DISC  =  1                      #,                  00905000
       LDT'FLOPPY'DISC    =  2                      #,                  00910000
       LDT'CS80'DEVICE    =  3                      #,                  00915000
       LDT'FOREIGN'DISC   =  7                      #,                  00920000
       LDT'CARD'READER    =  8                      #,                  00925000
       LDT'TERMINAL       = 16                      #,                  00930000
       LDT'READER'PUNCH   = 20                      #,                  00935000
       LDT'MAG'TAPE       = 24                      #,                  00940000
       LDT'SERIAL'DISC    = 31  << = %37 >>         #,                  00945000
       LDT'PRINTER        = 32                      #,                  00950000
       LDT'CARD'PUNCH     = 33                      #,                  00955000
       LDT'PLOTTER        = 35                      #,                  00960000
   LDT'DFLT'OUT'CLASS     = LDT(LDT'INDEX+6)        #,                  00965000
   LDT'DFLT'OUT'DEV       = LDT(LDT'INDEX+6)        #,                  00970000
   LDT'DFLT'TERM'TYPE     = LDT(LDT'INDEX+3).( 9:7) #,         <<B8279>>00975000
   LDT'DOWN'PENDING       = LDT(LDT'INDEX+3).( 4:1) #,                  00980000
   LDT'FILE'USE'CNT       = LDT(LDT'INDEX+0)        #,                  00985000
   LDT'HEADER             = LDT(LDT'INDEX+3).( 6:1) #,                  00990000
   LDT'HEADER'OFF         = LDT'HEADER              #,                  00995000
   LDT'HEADER'ON          = NOT LDT'HEADER          #,                  01000000
   LDT'HEADER'TRAILER     = LDT(LDT'INDEX+3).( 5:2) #,                  01005000
   LDT'MAIN'PIN           = LDT(LDT'INDEX+1)        #,                  01010000
   LDT'RECORD'WIDTH       = LDT(LDT'INDEX+2).( 0:8) #,                  01015000
   LDT'RQST'TAPE'DENS     = LDT(LDT'INDEX+3).(13:3) #,         <<B8279>>01020000
       << See values under LDT'ACTUAL'TAPE'DENS. >>                     01025000
   LDT'SPECIAL'FORMS      = LDT(LDT'INDEX+2).( 9:1) #,                  01030000
   LDT'SPOOL'QUEUES       = LDT(LDT'INDEX+3).( 8:1) #,         <<B8279>>01035000
       LDT'QOPEN          = 1                       #,                  01040000
       LDT'QSHUT          = 0                       #,                  01045000
   LDT'SPOOL'STATE        = LDT(LDT'INDEX+3).( 0:2) #,                  01050000
       LDT'NOT'SPOOLED    = 0                       #,                  01055000
       LDT'INPUT'SPOOLED  = 1                       #,                  01060000
       LDT'OUTPUT'SPOOLED = 2                       #,                  01065000
   LDT'SPOOLER'PIN        = LDT(LDT'INDEX+1)        #,                  01070000
   LDT'TRAILER            = LDT(LDT'INDEX+3).( 5:1) #,                  01075000
   LDT'TRAILER'OFF        = LDT'TRAILER             #,                  01080000
   LDT'TRAILER'ON         = NOT LDT'TRAILER         #,                  01085000
   LDT'VOLUME'TBL'INDEX   = LDT(LDT'INDEX+1)        #,                  01090000
   LDT'XDD'HEAD'ENTRY'PTR = LDT(LDT'INDEX+4).(3:13) #,         <<B8279>>01095000
   LDT'XDD'HEAD'INDEX     = LDT(LDT'INDEX+4).(3:13) #;         <<B8279>>01100000
$PAGE "MPE TABLE ACCESS:  LOGICAL DEVICE TABLE EXTENSION (LDTX)"        01105000
COMMENT                                                                 01110000
$IF X8 = OFF                                                            01115000
$CONTROL NOLIST                                                         01120000
$IF                                                                     01125000
                                                                        01130000
                                                                        01135000
            Logical Device Table Extension (LDTX)                       01140000
            -------------------------------------                       01145000
                                                                        01150000
                         Zero entry                                     01155000
                         ----------                                     01160000
                                                                        01165000
        0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                  01170000
      +--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--+                 01175000
    0 |             Highest entry number              |                 01180000
      +-----------------------------------------------+                 01185000
    1 |                Entry size = 5                 |                 01190000
      +-----------------------------------------------+                 01195000
    2 |///////////////////////////////////////////////|                 01200000
      +-----------------------------------------------+                 01205000
    3 |///////////////////////////////////////////////|                 01210000
      +-----------------------------------------------+                 01215000
    4 |///////////////////////////////////////////////|                 01220000
      +-----------------------------------------------+                 01225000
                                                                        01230000
                                                                        01235000
                         Typical entry                                  01240000
                         -------------                                  01245000
                                                                        01250000
        0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                  01255000
      +--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--+                 01260000
    0 | S|SD|CP|FS|DS| Reserved  |  Device-specific   |                 01265000
      +--+--+--+--+--+-----------+                    |                 01270000
    1 |                 information                   |                 01275000
      +-------                                 -------+                 01280000
    2 |                   fields.                     |                 01285000
      +-------                                 -------+                 01290000
    3 |           See the following LDTX              |                 01295000
      +-------                                 -------+                 01300000
    4 |            descriptor examples.               |                 01305000
      +-----------------------------------------------+                 01310000
                                                                        01315000
Where:                                                                  01320000
                                                                        01325000
S.....Seek ahead enable/disable flag (system or PV disc only).          01330000
SD....This logical device is a Serial Disc or a Foreign Disc.           01335000
CP....This logical device uses the CIPER protocol.                      01340000
FS....This is a system or PV disc with Disc Free Space                  01345000
      management.                                                       01350000
DS....This LDEV is a DS or data communications device.                  01355000
$PAGE                                                                   01360000
                         Terminal entry                                 01365000
                         --------------                                 01370000
                                                                        01375000
        0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                  01380000
      +--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--+                 01385000
    0 | 0| 0| 0| 0| 0|   Reserved   |      TBRC       |                 01390000
      +--+--+--+--+-----------------+-----------------+                 01395000
    1 |       Terminal Descriptor Table Offset        |                 01400000
      +--+--------------------------------------------+                 01405000
    2 |LX|////////////////////////////////////////////|                 01410000
      +--+--------------------------------------------+                 01415000
    3 |///////////////////////////////////////////////|                 01420000
      +-----------------------------------------------+                 01425000
    4 |///////////////////////////////////////////////|                 01430000
      +-----------------------------------------------+                 01435000
                                                                        01440000
TBRC..Terminal's baud rate code (CPS = characters per second).          01445000
                                                                        01450000
Speed (CPS)   ATC (II/III) TBRC      ADCC/ATP (HPIB) TBRC               01455000
-----------   -----------------      --------------------               01460000
                                                                        01465000
Not known             0                        0                        01470000
  1920               ---                      16 (ATP only)             01475000
   960               ---                       8                        01480000
   480               ---                       9                        01485000
   240                1                        7                        01490000
   120                2                       11                        01495000
    60                3                        6                        01500000
    30                4                       13                        01505000
    15                5                       14                        01510000
    14                7                       ---                       01515000
    10                6                       15                        01520000
                                                                        01525000
LX....This terminal is connected to a LYNXII port.                      01530000
                                                                        01535000
TDT offset...Offset from the base of the TDT (see $INCLDCT) to          01540000
             the TDT entry for this terminal.  A -1  indicates          01545000
             no TDT entry exists for this terminal.                     01550000
                                                                        01555000
                 Data Communications Entry                              01560000
                 -------------------------                              01565000
                                                                        01570000
        0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                  01575000
      +--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--+                 01580000
    0 | 0| 0| 0| 0| 1|   Reserved   |      TBRC       |                 01585000
      +--+--+--+--+-----------------+-----------------+                 01590000
    1 |                  Flag word                    |                 01595000
      +-----------------------------------------------+                 01600000
    2 |///////////////////////////////////////////////|                 01605000
      +-----------------------------------------------+                 01610000
    3 |///////////////////////////////////////////////|                 01615000
      +-----------------------------------------------+                 01620000
    4 |///////////////////////////////////////////////|                 01625000
      +-----------------------------------------------+                 01630000
                                                                        01635000
TBRC........Same as for terminal entry.                                 01640000
Flag word...Defined by IND Data Comm Lab for DS83.                      01645000
$PAGE                                                                   01650000
                Serial or Foreign Disc entry                            01655000
                ----------------------------                            01660000
                                                                        01665000
        0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                  01670000
      +--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--+                 01675000
    0 | 0| 1| 0| 0| 0|   Reserved   |/////////////////|                 01680000
      +--+--+--+--+-----------------+-----------------+                 01685000
    1 |     SDISC:  XDS# for variables, Gap Table     |                 01690000
      |     FDISC:  1                                 |                 01695000
      +-----------------------------------------------+                 01700000
    2 |     SDISC:  1 ==> data buffer XDS's acquired  |                 01705000
      |     FDISC:  not used.                         |                 01710000
      +-----------------------------------------------+                 01715000
    3 |     SDISC:  PCB index when WAITing, else 0    |        <<S7471>>01720000
      |     FDISC:  not used.                         |        <<S7471>>01725000
      +-----------------------------------------------+                 01730000
    4 |///////////////////////////////////////////////|                 01735000
      +-----------------------------------------------+                 01740000
                                                                        01745000
                          CIPER entry                                   01750000
                          -----------                                   01755000
                                                                        01760000
        0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                  01765000
      +--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--+                 01770000
    0 | 0| 0| 1| 0| 0| Reserved  |DB|/////////////////|                 01775000
      +--+--+--+--+--------------+--+-----------------+                 01780000
    1 |  CIPER Device Control Data Segment # (CDCDS)  |                 01785000
      +--+--------------------------------------------+                 01790000
    2 |DN|      CTM Index for this device (CTMI)      |                 01795000
      +--+--------------------------------------------+                 01800000
    3 |///////////////////////////////////////////////|                 01805000
      +-----------------------------------------------+                 01810000
    4 |///////////////////////////////////////////////|                 01815000
      +-----------------------------------------------+                 01820000
                                                                        01825000
DB.....If set to 1, then debugging is in effect.                        01830000
DN.....If 1, the CIPER facility has been de-activated for this          01835000
       device because of error.                                         01840000
CTMI...Control Table Map Index (an index into the Control               01845000
       Table Map (CTM), which is located in the CDCDS.                  01850000
                                                                        01855000
            System or Private Volume Disc entry                         01860000
            -----------------------------------                         01865000
                                                                        01870000
        0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                  01875000
      +--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--+                 01880000
    0 | S| 0| 0| 1| 0|   Reserved   |/////////////////|                 01885000
      +--+--+--+--+-----------------+-----------------+                 01890000
    1 |///////////////////////////////////////////////|                 01895000
      +-----------------------------------------------+                 01900000
    2 |      Disc Free Space DST number (DFSDST)      |                 01905000
      +-----------------------------------------------+                 01910000
    3 |     Disc Free Space error status (DFSERR)     |                 01915000
      +-----------------------------------------------+                 01920000
    4 |///////////////////////////////////////////////|                 01925000
      +-----------------------------------------------+                 01930000
                                                                        01935000
S......Seek ahead enable/disable flag.                                  01940000
$PAGE                                                                   01945000
$IF X8 = OFF                                                            01950000
$CONTROL LIST                                                           01955000
$IF                                                                     01960000
             *-*-*-*-*-*-*-*-*-*-*-*-*-*-*                              01965000
             |  Declarations start here  |                              01970000
             *-*-*-*-*-*-*-*-*-*-*-*-*-*-*                              01975000
                                                                        01980000
Conventions used in the declarations:                                   01985000
1.  We presume the existence of the following identifiers:              01990000
  a)  A logical array or pointer, LDTX.                                 01995000
  b)  An offset integer LDTX'INDEX, normally set  to  LDEV#  *          02000000
      LDTX'ENTRY'SIZE.                                                  02005000
    The LDTX array (pointer) can be direct, indirect, DB-rela-          02010000
    tive  or  Q-relative.  If  DB-relative, make sure you know          02015000
    where DB is before you use it.                                      02020000
      Setting LDTX'INDEX as above allows you  to  do  segment-          02025000
    relative LDTX accesses. If you prefer to make a local copy          02030000
    of an LDTX entry via MFDS/MTDS, or if  you  have  existing          02035000
    code which does this, simply set LDTX'INDEX := 0.                   02040000
2.  Each DEFINE is prefixed by LDTX'... to distinguish it from          02045000
    references to other MPE tables.                                     02050000
3.  DEFINEs of fields are  listed  alphabetically  for  easier          02055000
    lookup without using XREF. DEFINEs of states of fields are          02060000
    listed sequentially following the field DEFINE.                     02065000
;                                                                       02070000
EQUATE                                                                  02075000
   LDTX'MPE'VERSION      =  5;                                          02080000
                                                                        02085000
<< The following EQUATE must be changed if the length of an >>          02090000
<< LDTX entry changes.                                      >>          02095000
                                                                        02100000
EQUATE                                                                  02105000
   SIZE'OF'LDTX'ENTRY     = 5;                                          02110000
                                                                        02115000
<< LDTX header (zero'th) entry fields.                      >>          02120000
                                                                        02125000
DEFINE                                                                  02130000
   LDTX'ENTRY'SIZE       = LDTX(1)       #,                             02135000
   LDTX'NUM'ENTRIES      = LDTX(0)       #;                             02140000
                                                                        02145000
<< The following expression calculates the segment-relative >>          02150000
<< base address of the LDTX.  It uses symbols from the  LDT >>          02155000
<< portion of this $INCLUDE file.                           >>          02160000
                                                                        02165000
DEFINE                                                                  02170000
   LDTX'BASE              = INTEGER (LDT'NUM'ENTRIES + 1) *             02175000
                            INTEGER (LDT'ENTRY'SIZE)#;                  02180000
$PAGE                                                                   02185000
<< LDTX device entry fields.                                >>          02190000
                                                                        02195000
DEFINE                                                                  02200000
   LDTX'BAUD'RATE'CODE     = LDTX(LDTX'INDEX+0).(10:6)#,                02205000
        LDTX'ADCC'960      =  8                       #,                02210000
        LDTX'ADCC'480      =  9                       #,                02215000
        LDTX'ADCC'240      =  7                       #,                02220000
        LDTX'ADCC'120      = 11                       #,                02225000
        LDTX'ADCC'60       =  6                       #,                02230000
        LDTX'ADCC'30       = 13                       #,                02235000
        LDTX'ADCC'15       = 14                       #,                02240000
        LDTX'ADCC'10       = 15                       #,                02245000
        LDTX'ATC'240       =  1                       #,                02250000
        LDTX'ATC'120       =  2                       #,                02255000
        LDTX'ATC'60        =  3                       #,                02260000
        LDTX'ATC'30        =  4                       #,                02265000
        LDTX'ATC'15        =  5                       #,                02270000
        LDTX'ATC'10        =  6                       #,                02275000
        LDTX'ATC'14        =  7                       #,                02280000
        LDTX'ATP'1920      = 16                       #,                02285000
        LDTX'UNKNOWN       =  0                       #,                02290000
   LDTX'CIPER'CNTL'DSEG    = LDTX(LDTX'INDEX+1)       #,                02295000
   LDTX'CIPER'CT'MAP'INDEX = LDTX(LDTX'INDEX+2).(1:15)#,                02300000
   LDTX'CIPER'DEBUG        = LDTX(LDTX'INDEX+0).( 9:1)#,                02305000
   LDTX'CIPER'PROTOCOL     = LDTX(LDTX'INDEX+0).( 2:1)#,                02310000
   LDTX'CIPER'SHUT'DOWN    = LDTX(LDTX'INDEX+2).( 0:1)#,                02315000
   LDTX'DFS'DISC           = LDTX(LDTX'INDEX+0).( 3:1)#,                02320000
   LDTX'DFS'ERR            = LDTX(LDTX'INDEX+3)       #,                02325000
   LDTX'DISC'FREE'SPC'XDS  = LDTX(LDTX'INDEX+2)       #,                02330000
   LDTX'DS'DEVICE          = LDTX(LDTX'INDEX+0).( 4:1)#,                02335000
   LDTX'DS'FLAG'WORD       = LDTX(LDTX'INDEX+1)       #,                02340000
   LDTX'FDISC'ALLOC        = LDTX(LDTX'INDEX+1)       #,                02345000
   LDTX'LYNXII             = LDTX(LDTX'INDEX+2).( 0:1)#,                02350000
   LDTX'SDISC'DBUFS'ALLOC  = LDTX(LDTX'INDEX+2)       #,                02355000
   LDTX'SDISC'GPT'XDS      = LDTX(LDTX'INDEX+1)       #,                02360000
   LDTX'SDISC'PCB'NUM      = LDTX(LDTX'INDEX+3)       #,       <<S7471>>02365000
   LDTX'SEEK'AHEAD         = LDTX(LDTX'INDEX+0).( 0:1)#,                02370000
   LDTX'SERIAL'OR'FOREIGN  = LDTX(LDTX'INDEX+0).( 1:1)#,                02375000
   LDTX'TDT'OFFSET         = LDTX(LDTX'INDEX+1)       #;                02380000
                                                                        02385000
COMMENT --                                                              02390000
<<**********************************************************>>          02395000
<<*                                                        *>>          02400000
<<*                     END INCLLDT                        *>>          02405000
<<*                                                        *>>          02410000
<<**********************************************************>>          02415000
;                                                                       02420000
