*COMDECK TYPE 
_$J+  PAGE EJECT? 
TYPE
_*****************************
*                            *
*        T Y P E S           *
*                            *
*****************************?
                _ #'FIELD LENGTHS# ?
     B01BIT  =0..1; 
     B02BITS =0..3; 
     B03BITS =0..7; 
     B04BITS =0..15;
     B05BITS =0..31;
     B06BITS =0..63;
     B07BITS =0..127; 
     B08BITS =0..255; 
     B09BITS =0..511; 
     B010BITS=0..1023;
     B011BITS=0..2047;
     B012BITS=0..4095;
     B013BITS=0..8191;
     B014BITS=0..16383; 
     B015BITS=0..32767; 
  
                _ #'BIT ELEMENTS# ? 
    ELEMENTS = (BIT0,BIT1,BIT2,BIT3,BIT4,BIT5,BIT6,BIT7,
                BIT8,BIT9,BIT10,BIT11,BIT12,BIT13,BIT14,BIT15); 
                _ #'GENERAL MASK WORD# ?
    SETWORD = SET OF ELEMENTS;
  _?
                _ #REGISTER NAMES# ?
     B0REGISTERS = (B0EXTRA,B0R1,B0R2,B0R3,B0R4,
                    B0Q,B0A,B0I,B0M,B0OFLOW); 
                                                         _ 04/02/74 ? 
                _ #REGISTER SAVE AREA TYPE# ? 
     B0REGSAVE = ARRAY[B0REGISTERS] OF INTEGER; 
                                                         _ 84/03/21 ? 
                  _#MULTI-WORD ASCII SET#?
     JSASCIISET = ARRAY [B03BITS] OF SET OF B04BITS;  _1 BIT/CHAR?
  
               _ # P O I N T E R S # ?
  
     B0INTPTR = 'INTEGER;              _ INTEGER POINTER               ?
     B0BUFPTR = 'B0BUFFER;             _ BUFFER POINTER                ?
     B0HEXPTR = 'B0HEX;                _ HEX POINTER                   ?
     B0REGPTR = 'B0REGSAVE;            _ REGISTER SAVE AREA POINTER    ?
     N0LCBP   = 'NCLCB;                _ MUX LCB POINTER               ?
     CHSUBP   = 'C0SUBLCB;             _ SUBPORT LCB POINTER           ?
     BZLCBP   = 'BZLCB;                _ LCB POINTER                   ?
     B0DCBP   = 'NZDCB;                _ DIAGNOSTIC CONTROL BLK PTR.   ?
                _# CHARACTER ARRAY TYPE #?
     B0CHRARAY = PACKED ARRAY[B015BITS] OF CHAR;
                _# INTEGER   ARRAY TYPE #?
     B0INTARAY = ARRAY[B015BITS] OF INTEGER;
                 _# CANNED MESSAGE TYPE #?
     B0CANNED = ARRAY [1..64] OF INTEGER; 
               _ #FOUR HEXADECIMAL NUMBERS# ? 
     B0HEX = PACKED RECORD
               B0H1,B0H2,B0H3,B0H4 : B04BITS
             END; 
  
                _ #'GENERAL FLAG WORD# ?
     B0FLAGS = PACKED RECORD
                 B0B15,B0B14,B0B13,B0B12,B0B11, 
                 B0B10,B0B9, B0B8, B0B7, B0B6,
                 B0B5, B0B4, B0B3, B0B2, B0B1,B0B0 : BOOLEAN
               END; 
                                                         _ 06/15/76 ? 
               _ # LINE TIMING ENTRY # ?
  
     BZLTIME = PACKED RECORD
  
                BLTRESET : B08BITS;         _ OBT TIMER RESET VALUE    ?
               BLTIME   : B08BITS;          _ TIMEOUT FIELD            ?
  
               END; 
*CALL TYPTIMER
                _ #* SYSTEM PRIORITY LEVELS# ?
     B0PRILEVEL=1..17;
                                                           _12-09-74? 
                  _#*SYSTEM HARDWARE LINE ASSIGNMENTS#? 
     J8HDWLINE = (J8INT,      _ LINE 00- INTERNAL             ? 
                  J8TTY,      _ LINE 01- TELETYPE             ? 
                  J8MLE,      _ LINE  2- MUX LOOP ERROR       ? 
                  J8ML2,      _ LINE  3- MUX LEVEL 2          ? 
                  J8LP30,     _ LINE  4- 1742-30 LINE PRINTER ? 
                 J8CPL2,      _ LINE 5- COUPLER               ? 
                 J8CPL1,      _ LINE 6- COUPLER               ? 
                  J8SP2,      _ LINE  7- SPARE                ? 
                  J8CLK,      _ LINE  8- CLOCK                ? 
                  J8LP,       _ LINE  9- 1742 LINE PRINTER    ? 
                  J8SP3,      _ LINE 10- SPARE                ? 
                  J8SP4,      _ LINE 11- SPARE                ? 
                  J8ODD,      _ LINE 12- ODD INT PARALLEL     ? 
                  J8ILF,      _ LINE 13- INPUT LINE FRAME     ? 
                  J8SP5,      _ LINE 14- SPARE                ? 
                  J8HBP);     _ LINE 15- HARDWARE BP                   ?
_$J+? 
_ 
*              * *  LIST OF OPS LEVEL PROGRAMS  * * 
? 
B0PGMS = B0CHWL..B0DUMMY; 
_ 
*              * *  LIST OF ALL WORKLISTS  * *
? 
B0WKLSTS = B0FSWL..B0DUMMY; 
                _ #* WORK LIST CODES# ? 
      B0WLCODES = ( 
                   B0DUMCODE);
                _ # QUEUE POINTER TYPES # ? 
     B0QPTYPES = (B0UNU0,         _ UNUSED                          ? 
                  B0QNEXTSEG,     _ NEXT SEGMENT TO GET             ? 
                  B0QDATLIST);    _ DATA LIST QUEUE                 ? 
                _ #* BUFFER SIZES# ?
      B0BUFSIZES = (B0S0,B0S1,B0S2,B0S3) ;
                _  #TCB SIZES# ?
      B0TCBSIZES  = (B0TS0,B0TS1,B0TS2,B0TS3,B0TS4,B0TS5,B0TS6,B0TS7);
     B0BUFLEVELS = B0T1..B0THMUX;           _ BUFFER THRESHOLDS        ?
  
     N0LTYP  = N0LDIAG..N0LAST;        _ RANGE OF LINE TYPES           ?
     N0LNSPD = N0800..N0DIAG;        _RANGE OF LINE SPEED INDICES      ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*     # TERMINAL TYPE(TT)/ DEVICE TYPE (DT) #                         * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      N0DEVTYPE    =   0..15;               _ DEVICE TYPE              ?
      N0TCLASS    = 0..N0UTC4;              _TERMINAL CLASS            ?
                                                         _ 83/01/27 ? 
               _ # DEVICE TYPE # ?
      NPDT        = PACKED RECORD           _DEVICE TYPE (DT)          ?
                    CASE X: INTEGER OF
                    1: (NPSPR1   : B08BITS;      _SPARE BYTE           ?
                        NPDEV    : N0DEVTYPE;    _DEVICE TYPE          ?
                        NPTCLASS : N0TCLASS);    _TERMINAL CLASS       ?
                    2: (NPCHAR   : CHAR);        _CHARACTER OVERLAY    ?
                    3: (NPINT    : INTEGER);     _INTEGER OVERLAY      ?
                    END;
  
      N0TIPTYPE   = N0HDLC..N13270;         _TIP TYPES                 ?
      N0SUBTIP    = 0..7;                   _TIP SUB TYPE              ?
                                                         _ 83/01/27 ? 
               _ # TIP TYPE # ? 
      NPTT        = PACKED RECORD 
                    CASE X: INTEGER OF
                    1: (NPSPR3    : B08BITS;     _SPARE BYTE           ?
                        NPAUTO    : BOOLEAN;     _AUTO RECOGNITION     ?
                        NPTIPTYPE : N0TIPTYPE;   _TIP TYPE FIELD       ?
                        NPSUBTIP  : N0SUBTIP);   _TIP SUB TYPE FIELD   ?
                    2: (NPCHR     : CHAR);       _CHARACTER OVERLAY    ?
                    3:  (NPSPR5   : B08BITS;     _SPARE BYTE           ?
                        NPLS      : B04BITS;     _LINE SPEED           ?
                        NPCD      : B04BITS);    _CODE SET             ?
                    END;
                                                         _ 83/01/27 ? 
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*              # BLOCK TYPE BYTE #                                    * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      BLKTYPE  =     PACKED RECORD
                     CASE DMY : INTEGER OF
                     1: ( 
                        BTSPR1 : B08BITS; 
                        BTPRID : BOOLEAN;   _PRIORITY DESIGNATOR       ?
                        BTBSN  : B03BITS;   _BLOCK SERIAL NUMBER       ?
                        BTYPE  : B04BITS);  _BLOCK TYPE               ? 
                     2: ( 
                        BTCHR  : CHAR);     _CHARACTER OVERLAY         ?
                     END; 
_?
                _#MLIA PROCESS STATES#? 
     SBMLWK = (SBTIMEOUT,SBRDSTATUS,SBHALT);
                _ #STOP BIT VALUES# ? 
     N0STOP = (N01BIT,            _ 1 STOP BIT  (NO. OF STOP BITS ) ? 
               N02BIT);           _ 2 STOP BITS (DELIMITING A CHAR) ? 
     N0ISPT  = 0..80;          _SIZE OF INPUT STATES POINTERS TABLE    ?
     N0MSPT  = 0..40;          _ SIZE OF MODEM STATES POINTER TABLE    ?
                  _#*LOGICAL I/O FUNCTIONS (LIO)#?
     J0LIO = (J2SUPIN,       _ SUPERVISORY INPUT  ? 
              J2SUPOUT,      _ SUPERVISORY OUTPUT ? 
              J2ALM,         _ ALARMS             ? 
              J2REP,         _ REPORTS            ? 
              J2ORD,         _ ORDERWIRE          ? 
              J2DIAG,        _ DIAGNOSTICS        ? 
              J2TUPINPUT,    _ TUP INPUT          ? 
              J2TUPOUTPUT,   _ TUP OUTPUT         ? 
              J2TUPDUMP,     _ TUP DUMP           ? 
              J2SNP1,        _ SNAPSHOT 1         ? 
              J2SNP2,        _ DUMP REGISTERS     ? 
              J2SNP3,        _ PRINT BREAKPT ADDR ? 
              J2SPARE,       _ SPARE              ? 
              J2QUICK,       _ QUICK I/O          ? 
              J2WS1,         _ WRAP-SNAP 1        ? 
              J2LAST);
                                                         _ 06/15/76 ? 
               _ # MUX CHAR XMIT CHARACTERISTICS ENTRY # ?
_ 
               THE CHARACTER TRANSMISSION CHARACTERISTICS TABLE IS AN 
               ARRAY OF 1 WORD ENTRIES INDEXED BY THE LINE SPEED
               INDEX. EACH ENTRY SPECIFIES THE SPEED RANGE,SPEED
               AND NUMBER OF OUTPUT STOP BITS FOR TRANSMITING AND 
               RECEIVING TO/FROM ASYNCHRONOUS TERMINALS.
? 
NICTCY = PACKED RECORD
  
      NIRSR    : B02BITS;              _RECEIVE SPEED RANGE            ?
      NIRSPED  : B04BITS;              _RECEIVE SPEED                  ?
      NITSR    : B02BITS;              _TRANSMIT SPEED RANGE           ?
      NITSPED  : B04BITS;              _TRANSMIT SPEED                 ?
      NISTOP   : N0STOP;               _STOP BIT LENGTH                ?
  
        END;
                                                         _ 83/01/27 ? 
                 _ #LINE NUMBER FIELD DEFN# ? 
    _ LINE NUMBER IS ONE 16 BIT WORD -LEFT BYTE = PORT NO.         ?
    _                                -RIGHT BYTE= TDM SUB PORT NO. ?
     B0LINO = PACKED RECORD 
                CASE B0LINTAG : INTEGER OF
                  1: (BDLINO:INTEGER);      _ FULL WORD           ? 
                  2: (BDPORT   ,            _ PORT NUMBER         ? 
                      BDSUBPORT:B08BITS);   _ SUB PORT NUMBER     ? 
                END;
*CALL TYPEBEGIN 
_$J+? 
                                                         _ 06/15/76 ? 
               _ # VARIABLE WORD DEFINITIONS # ?
_ 
               THE UNIVERSAL OVERLAY IS A TYPE CONSISTING OF ONE
               WORD WITH MANY VARIANTS.  EACH VARIANT IS OF THE 
               MOST FREQUENTLY USED TYPE.  THUS BY OVERLAYING THE 
               UNIVERSAL OVERLAY OVER A VARIABLE, THE VARIABLE MAY
               BE ACCESSED IN A BROAD VARIETY OF FORMATS
? 
B0OVERLAY = PACKED RECORD CASE B0TAG : INTEGER OF 
  
            0: (BACHARS   : PACKED ARRAY    _ TWO CHARACTERS           ?
                [1..ALFALENG] OF CHAR); 
            1: (BABOOL    : B0FLAGS);       _ FLAGS                    ?
            2: (BASET     : SETWORD);       _ MASK                     ?
            3: (BASETN    : SET OF 0..$F);
            4: (BABUFPTR  : B0BUFPTR);      _ BUFFER POINTER           ?
            5: (BAINT     : INTEGER);       _ INTEGER                  ?
            7: (BALCHAR   : CHAR;           _ LEFT CHARACTER           ?
                BARCHAR   : CHAR);          _ RIGHT CHARACTER          ?
            9: (BAHEX     : B0HEX);         _ 4 HEX"S                  ?
           10: (BAINTPTR  : B0INTPTR);      _ INTEGER POINTER          ?
           12: (BALBYT    : B08BITS;        _ LEFT BYTE - INTEGER      ?
                BARBYT    : B08BITS);       _ RIGHT BYTE - INTEGER     ?
           13: (BA1BOL    : BOOLEAN);       _ BOOLEAN                  ?
           15: (BABUFSIZE : B0BUFSIZES);    _ BUFFER SIZE              ?
           16: (BAWKLST   : B0WKLSTS);      _ WORKLIST NAME            ?
           18: (BALINO    : B0LINO);        _ LINE NUMBER              ?
           19: (BALCBP    : BZLCBP);        _ LCB POINTER              ?
           21: (BA1CHAR   : CHAR);          _ RIGHT CHARACTER - 16 BITS?
           22: (BACHROVLY : PACKED RECORD 
                  BAPAD   : B09BITS;        _ INDEX INTO               ?
                  BAINDEX : B03BITS;        _            ASCII         ?
                  BABITPOS: B04BITS;        _                  CHAR SET?
                  END); 
           23: (BACPOW    : PACKED RECORD 
                  CASE X : INTEGER OF 
                    0: (BASP1  : B04BITS;   _ DUMMY                    ?
                        BACPOC : B04BITS;   _ ORDERCODE                ?
                        BACPLN : B08BITS);  _ BLOCK LENGTH / 16        ?
                    1: (BASP2  : B012BITS;  _ DUMMY                    ?
                        BACPRC : B04BITS);  _ REGULATION CHANGE        ?
                    2: (BASP3  : B012BITS;  _ DUMMY                    ?
                        BANSAV : BOOLEAN;   _ NS INDICATOR             ?
                        BACSAV : BOOLEAN;   _ CS INDICATOR             ?
                        BAREG  : B02BITS);  _ HOST REGULATION LEVEL    ?
                  END); 
           24: (BASP9   : B09BITS;          _ SPARE                    ?
                BA7BITS : B07BITS);         _ UPPER 7-BITS  (18-BIT)   ?
           25: (BAPAGE   : B05BITS;         _ PAGE NUMBER              ?
                BA11BITS : B011BITS);       _ LOWER 11-BITS (18-BIT)   ?
           26: (BAPGM : B0PGMS);            _ OPS PROGRAM INDEX        ?
           27: (BACPREG   : PACKED RECORD 
                  CASE X : INTEGER OF 
                    0: (BACPS1 : B010BITS;  _ SPARE                    ?
                        BACPRS : B02BITS;   _SPECIFIED REGULATION LEVEL?
                        BACPRG : B04BITS);  _ COUPLER REGULATION LEVEL ?
                    1: (BACPS2 : B012BITS;  _ SPARE                    ?
                        BACPNS,             _ NS AVAILABLE             ?
                        BACPCS : B01BIT;    _ CS AVAILABLE             ?
                        BACPRL : B02BITS);  _ BUFFER LEVEL             ?
                  END); 
           30: (BALIO     : J0LIO);         _ CONSOLE LIO              ?
           33: (BACTCT : NICTCY);           _CHAR XMISSION ENTRY       ?
*CALL TYPEOVLY
                 END; 
     B018BITS = RECORD
                CASE X:INTEGER OF 
                  0: (B0UPPER7, 
                      B0WORD : B0OVERLAY);
                  1: (B0DELIM : INTEGER); 
                END;
_$J+? 
_*****************************
*                            *
*  SERVICE MODULE TYPES      *
*                            *
*****************************?
                                                         _ 83/01/27 ? 
                  _#TIMER PACKET POINTER OVERLAY#?
     DJTOPKT = PACKED RECORD
       DJDUMY :  ARRAY[1..5] OF INTEGER;    _ NON USER TIMER PKT FIELDS?
       DJPAR1 : B08BITS;                    _ SUPERVISOR/RC            ?
       DJSPAR : B08BITS;                    _ SPARE                    ?
       DJPFC  : B08BITS;                    _ PFC                      ?
       DJSFC  : B08BITS;                    _ SFC                      ?
       DJPAR2 : INTEGER;                    _ PARAMETER                ?
       END; _ RECORD ?
  
     DJTYPE = RECORD
       CASE X : INTEGER OF
         1: (DJBP : B0BUFPTR);              _ BUFFER POINTER           ?
         2: (DJPP : B7PKTPTR);              _ TIMER PACKET PTR         ?
         3: (DJTO : 'DJTOPKT);              _ SVM TIMEOUT PACKET PTR   ?
         END; _ CASE, RECORD ?
  
                    _ # NETWORK ELEMENT STATUS # ?
  
      C7CNFST = C7DUMMY..C7ACTIVE;          _CONFIGURATION STATE       ?
                                                         _ 83/01/27 ? 
                  _#SM WORKLIST ENTRY#? 
     CMSMWLE = PACKED RECORD
               CASE X : INTEGER OF
               0:(CMDATA,                   _OPTIONAL DATA    ? 
                  CMWKCODE : B08BITS;       _WORK CODE        ? 
                  CASE Y : INTEGER OF 
                  0:(CMLINO : B0LINO;       _LINE NUMBER      ? 
                     CMPTR : B0BUFPTR);     _SM OR TCB PTR    ? 
                  1:(CMPOINT : B0BUFPTR);   _SM POINTER       ? 
                  3:(CMRC  : INTEGER);      _ RESPONSE CODE            ?
                  4:(CMPKTPTR : DJTYPE);    _ TIMER PACKET POINTER     ?
                  5:(CMSDUMMY : B0BUFPTR;   _ENTRY FOR CMCBP           ?
                     CMCNFST   : C7CNFST;   _STATUS OF NETWORK ELEMENT ?
                     CMUNSOLIT : BOOLEAN;   _UNSOLICITED STATUS FLAG   ?
                     CMDAT1    : B08BITS);  _EXTRA STATUS PARAMETER    ?
                  );
               1:(CMTIMER,                  _TIMER            ? 
                  CMTIPWC : B08BITS);       _TIP WORK CODE    ? 
               2:(CMLTYP : B02BITS;         _ LINK TYPE                ?
                  CMSP1  : B01BITS;         _ DUMMY                    ?
                  CMSWAP : BOOLEAN;         _ REVERSE DN SN IN LLCB    ?
                  CMREG  : B04BITS;         _ REGULATION CHANGE        ?
                  CMSP2  : B08BITS);        _ DUMMY                    ?
               3:(CMNMSG   : INTEGER;       _NOTIFY MESSAGE ORDINAL    ?
                  CMNDUMMY : B0BUFPTR);     _ENTRY FOR CMCBP           ?
               4:(CMBMSG : B0BUFPTR;        _BROADCAST MESSAGE         ?
                  CMCBP  : B0BUFPTR);       _STATUS, NOTIFY, BRDCST PTR?
               5:(CMSMGEN    : BOOLEAN;     _PNSMGEN TIMER FLAG        ?
                  CMREALTIMER: B07BITS;     _SVM TIMER FIELD           ?
                  CMPRM1     : B08BITS;     _TIMER PARAMETER 1         ?
                  CMPRM2     : B08BITS;     _TIMER PARAMETER 2         ?
                  CMPRM3     : B08BITS;     _TIMER PARAMETER 3         ?
                  CMPRM4     : B0OVERLAY);  _TIMER PARAMETER 4         ?
               END; 
_$J+? 
                  _#STATISTIC TYPES FOR PNSGATH#?                        UPDATES
      J0STATYPE = (J0BADBLK,                _COUNT BAD BLOCKS          ?
                   J0TRRCVE,                _COUNT TRUNK RECEIVED CHARS?
                   J0RCVE,                  _COUNT RECEIVED CHARS      ?
                   J0TRSEND,                _COUNT TRUNK SENT CHARS    ?
                   J0SEND);                 _COUNT SENT CHARS          ?
                _ #BUFFER REGULATION THRESHOLD MASK# ?
     CVTMASK = SET OF B0BUFLEVELS;
                                                         _ 83/01/27 ? 
                  _#CE ERROR FILE OVERLAY#?                              31OCT75
     CNCEFILE = PACKED RECORD CASE X : INTEGER OF 
                 0:(CNCHAR : PACKED ARRAY [0..0] OF CHAR);
                 1:(CNCECODE : INTEGER; 
                    CASE USROVLY : INTEGER OF 
_?
                    0:(ADST1,                _COUPLER                  ?
                       ADST2 : B0OVERLAY);
_?
                    1:(NRLINO,               _ON-LINE DIAGNOSTICS      ?
                       NRCLAST : INTEGER);
_?
                    2:(SASUBCDE,             _MLIA HANDLER             ?
                       SAILOOPERR,
                       SALOSTDATA,
                       SAFULL : INTEGER); 
_?
*CALL TYPECNCE
_?
                    );
                 2:(CNCS1   : B03BITS;      _ UNUSED                   ?
                    CNCCNT  : BOOLEAN;      _USE COUNTER FOR ALARMS    ?
                    CNCALM  : B04BITS;      _ GENERATE ALARM 1 2 OR 3  ?
                    CNCS2   : B08BITS);     _ UNUSED                   ?
               END; 
_*                                                                     ?
            _#ENUMERATION OF STATUS CONDITION INDICATORS#?
      M0SCTYP = (M0CLAON,  _0 CLA ON DETECTED                          ?
                 M0RING,   _1 RING INDICATOR DETECTED                  ?
                 M0ENBL,   _2 LINE ENABLED                             ?
                 M0HERR,   _3 HARD ERRORS DETECTED                     ?
                 M0SOER,   _4 SOFT OUTPUT ERRORS DETECTED              ?
                 M0SIER,   _5 SOFT INPUT ERRORS DETECTED               ?
                 M0STRT,   _6 START MODEM TIMEOUT                      ?
                 M0STOP,   _7 STOP MODEM TIMEOUT (UNUSED)              ?
                 M0OVRF,   _8 CLA STATUS OVERFLOW                      ?
                 M0SPARE,  _9 SPARE                                    ?
                 M0MRTO,   _A MODEM RESPONSE TIMEOUT                   ?
                 M0BREAK,  _ B BREAK FROM FRAMING ERROR STATUS         ?
                 M0NSDCD,  _ C SDCD DROPPED ON OUTPUT - POSSIBLE BREAK ?
                 M0SDCD,   _ D SDCD ON - READY FOR OUTPUT              ?
                 M0SDTO,   _ E SDCD TIMEOUT - BREAK                    ?
                 M0SD2TO,  _ F SDCD TIMEOUT - DISCONNECT               ?
                  M0NDSR,   _10 NO DATA SET READY                      ?
                  M0DSR,    _11 DATA SET READY                         ?
                  M0NALL,   _12 NOT ALL SIGNALS PRESENT                ?
                  M0ALL,    _13 ALL SIGNALS PRESENT                    ?
                  M0LUP,    _14 LINE UP AND OPERATIONAL                ?
                  M0SHER);  _15 SOFT HARDWARE ERROR                    ?
_?
            _# WORKLIST ENTRY TYPE FOR TIP DEBUG #? 
  
      BWTIPWLE = ARRAY [0..2] OF INTEGER;   _FIRST THREE WORDS OF WLE  ?
_$J+? 
                                                         _ 06/15/76 ? 
               _ # EVENT INTERFACE FORMAT # ? 
_ 
             THE EVENT INTERFACE IS THE FORMAT OF THE DATA PASSED 
             BY THE MUX TO THE USER OR DATA PASSED BY THE FIRMWARE
             TO THE MUX SUBSYSTEM.
? 
MMEVENT = PACKED RECORD CASE MMTAG : INTEGER OF 
  
        1: (MMWTCOUNT  : B08BITS;      _ WAIT COUNT                    ?
            MMSP1      : B02BITS;      _ SPARE                         ?
            MMWKCOD    : B06BITS;      _ WORKCODE                      ?
            MMLINO     : INTEGER;      _ LINE NUMBER                   ?
            MMIBP      : B0BUFPTR;     _ INPUT BUFFER POINTER          ?
            MMDM2      : INTEGER;      _ DUMMY                         ?
            MMDM3      : INTEGER);     _ DUMMY                         ?
  
        2: (MMDELAYCNT : B08BITS;      _ DELAY COUNT                   ?
            MMDECMPLT  : BOOLEAN;      _ DELAY COMPLETED FLAG          ?
            MMSP4      : B07BITS;      _ SPARE                         ?
            MMPORT     : B08BITS;      _ PHYSICAL PORT NUMBER          ?
            MMLOPOR    : B08BITS;      _ LOGICAL  PORT NUMBER          ?
            MMOBP      : B0BUFPTR;     _ OUTPUT BUFFER POINTER         ?
            MMDM5      : INTEGER;      _ DUMMY                         ?
            MMDM6      : INTEGER);     _ DUMMY                         ?
  
        3: (MMWD0      : B0OVERLAY;    _ WORD 0 UNIVERSAL OVERLAY      ?
            MMWD1      : B0OVERLAY;    _ WORD 1 UNIVERSAL OVERLAY      ?
            MMWD2      : B0OVERLAY;    _ WORD 2 UNIVERSAL OVERLAY      ?
            MMWD3      : B0OVERLAY;    _ WORD 3 UNIVERSAL OVERLAY      ?
            MMWD4      : B0OVERLAY);   _ WORD 4 UNIVERSAL OVERLAY      ?
  
        4: (MMINOP     : B04BITS;      _ NON OPERATIONAL CODE          ?
            MMDM8      : B012BITS;     _DUMMY                          ?
            MMDM9      : INTEGER;      _ DUMMY                         ?
            MMCSTS     : INTEGER);     _ CLA STATUS - WHOLE WORD       ?
  
        5: (MMDM10     : B03BITS;      _DUMMY                          ?
            MMSCI      : M0SCTYP;      _STATUS CONDITION INDICATOR     ?
            MMDM15     : B08BITS;      _DUMMY                          ?
            MMDM11     : INTEGER;      _ SPARE                         ?
            MMLCTS     : BOOLEAN;      _ CLEAR TO SEND (LOGICAL)       ?
            MMLDSR     : BOOLEAN;      _ DATA SET READY                ?
            MMLDCD     : BOOLEAN;      _ DATA CARRIER DETECTED         ?
            MMLRI      : BOOLEAN;      _ RING INDICATOR                ?
            MMLQM      : BOOLEAN;      _ QUALITY MONITOR               ?
            MMLSQD     : BOOLEAN;      _ SIGNAL QUALITY DETECT         ?
            MMLILE     : BOOLEAN;      _ INPUT LOOP ERROR              ?
            MMLOLE     : BOOLEAN;      _ OUTPUT LOOP ERROR             ?
            MMLPES     : BOOLEAN;      _ PARITY ERROR STATUS           ?
            MMLDTO     : BOOLEAN;      _ DATA TRANSFER OVERRUN         ?
            MMLFES     : BOOLEAN;      _ FRAMING ERROR STATUS          ?
            MMLNCNA    : BOOLEAN;      _ NEXT CHARACTER NOT AVAILABLE  ?
            MMDM12     : B04BITS);     _ DUMMY                         ?
  
        6: (MMDM13     : INTEGER;      _ DUMMY                         ?
            MMDM14     : INTEGER;      _ DUMMY                         ?
            NMLIAST    : B0OVERLAY);   _ MLIA STATUS                   ?
  
        END;   _ MMEVENT ?
_$J+? 
                                                         _ 83/01/27 ? 
                _ # INTERMEDIATE ARRAY FORMAT # ? 
_ 
      BWWORKLIST DEPICTS THE DIFFERENT FORMAT OVERLAYS WHICH THE
      INTERMEDIATE ARRAY MAY ASSUME. IT ASLO DEPICTS THE FORMATS
      OF THE ENTRIES OF THE DIFFERENT WORKLISTS OF THE SYSTEM.
? 
     BWWORKLIST = PACKED RECORD 
                  CASE B0WL : INTEGER OF
            1:(BWPKTPTR : B0BUFPTR);   _THIS OVERLAY TO BE USED BY THE ?
                                       _TTY CONSOLE DRIVERS WORKLISTS  ?
                                       _B0TTYP,B0TTYN,THE LINE PRINTER ?
                                       _DRIVER B0LPWL,AND ALL WORKLISTS?
                                       _WHOSE ENTRIES ARE A SINGLE WORD?
                                       _OF TYPE B0BUFPTR.              ?
_                                                                      ?
            2:(CATMLEY : INTEGER);     _THIS OVERLAY APPLIES TO THE    ?
                                       _TIMING SERVICES WORKLIST B0TIWL?
                                       _AND ALL WORKLISTS WITH SINGLE  ?
                                       _WORD ENTRIES OF TYPE INTEGER   ?
_                                                                      ?
            3:(B0EWLQ : MMEVENT);      _THIS OVERLAY APPLIES TO THE    ?
                                       _EVENT WORKLIST QUEUE MMEWLQ AND?
                                       _ALL WORKLISTS WHOSE ENTRIES ARE?
                                       _5 WORDS LONG OF TYPE MMEVENT   ?
_                                                                      ?
            4:(BWTCB,                  _THIS OVERLAY PERTAINS TO THE   ?
               BWBLKPTR : B0BUFPTR);   _INTERNAL PROCESSOR WORKLIST    ?
                                       _AND ALL WORKLIST WITH 2 WORD   ?
                                       _ENTRIES BOTH OF TYPE B0BUFPTR  ?
_                                                                      ?
            5:(B0TIPWLE : BWTIPWLE);        _SAVE THREE WORDS FOR DEBUG?
_                                                                      ?
            6:(BWIMED:ARRAY[1..J1WLMAX]_THIS OVERLAY IS THE GENERAL    ?
                      OF B0OVERLAY);   _FORMAT USED BY LIST SERVICES   ?
                                       _FOR THE BULK TRANSFER OF ENTR- ?
                                       _ES TO AND FROM ANY WORKLIST    ?
  
            7:(CMSMLEY : CMSMWLE);     _THIS IS THE SERVICE MODULE     ?
                                       _WORKLIST OVERLAY               ?
            8:(ACPDUMMY : B010BITS;    _ SPARE                         ?
               ACPEVENT : B06BITS;     _ EVENT CODE                    ?
               ACPBLINO : B0LINO;      _ LINE NUMBER                   ?
               ACPB0BUF : B0BUFPTR);   _ BUFFER POINTER                ?
_ ? 
            9:(BWORD1,             _THIS OVERLAY PERTAINS TO TIP DEBUG ?
               BWORD2,             _AND IT PROVIDES EASY ACCESS TO EACH?
               BWORD3,             _WORD OF THE INTERMEDIATE ARRAY     ?
               BWORD4,
               BWORD5,
               BWORD6:INTEGER); 
*IF DEF,HLIP,1
           10:(BWLIPPARAMS : IELIPPARAMS);  _ OVERLAY FOR LIP.         ?
            END;
_$J+? 
BYCBPTR  = 'BYLISTCB;                       _ POINTER TO WLCB          ?
                                                         _ 10/29/76 ? 
               _ # WORKLIST CONTROL BLOCK # ? 
  
BYLISTCB = PACKED RECORD
            BYCNT : INTEGER;                _ NUMBER OF ENTRIES        ?
  
           CASE BYTAG : INTEGER OF
  
             1: (BYPUT     : B0BUFPTR;      _ PUT POINTER              ?
                 BYGET     : B0BUFPTR;      _ GET POINTER              ?
                 BYBACKUP  : BOOLEAN;       _ BACK UP WHEN COUNT = 0   ?
                 BYRELEASE : BOOLEAN;       _ RELEASE WHEN COUNT = 0   ?
                 BYFEINC   : B06BITS;       _ FIRST ENTRY INDEX        ?
                 BYINC     : B08BITS);      _ ENTRY SIZE               ?
  
             2: (BYPUTMASK : B0OVERLAY;     _ PUT POINTER              ?
                 BYGETMASK : B0OVERLAY;     _ GET POINTER              ?
                 BYSP1     : INTEGER; 
                 BYNAME    : INTEGER;       _ ASCII NAME OF WLCB OWNER ?
                 BYACTCHN  : BYCBPTR;       _ ADDRESS NEXT ACTIVE WLCB ?
                 BYMAXCNT  : B06BITS;       _ NR WLE TO BE PROCESSED   ?
                 BYPAGE    : B09BITS;       _ PROGRAM PAGE NUMBER      ?
                 BYPRADDR  : INTEGER);      _ PROGRAM ENTRY ADDRESS    ?
           END; 
  
BYWLTY = ARRAY [B0WKLSTS] OF BYLISTCB;
_ 
          BUFFER MAINTENANCE CONTROL BLOCK
  
          THIS RECORD CONTAINS FOR EACH BUFFER SIZE THE FIELDS
          REQUIRED BY PASCAL ROUTINES.
          SIZE : 0 = 8 , 1 = 16 , 2 = 32 , 3 = 64 WORDS 
          MASK : MASK OF SIGNIFICANT LOW ORDER BITS 
                 LENGTH - 1 OF BUFFER 
? 
BECTRL = PACKED RECORD
  
         BESIZE : INTEGER;                  _INDEX TO BUFFER SIZE      ?
         BEMSK  : B0OVERLAY;                _MASK AND LENGTH - 1       ?
  
         END; 
BECTPTR = 'BECTRL;                          _ POINTER TO CONTROL BLOCK ?
  
                                                         _ 84/03/21 ? 
                  _#LOGICAL/PHYSICAL I/O REQUEST PACKET#? 
     JCPACKET = PACKED RECORD 
                  JCCOMMAND,                _I/O COMMAND? 
                  JCCOMPL : B08BITS;        _COMPLETION CODE? 
                  JCRELBUFLG,               _RELEASE OUTPUT BUFFERS?
                  JCRELPRPFLG,              _RELEASE PRP? 
                  JCNOBUFLG,                _I/O NOT IN SYSTEM BUFFERS? 
                  JCSP1,                    _SPARE? 
                  JCPRIFLG,                 _PRIORITY OUTPUT? 
                  JCTRANSPFLG,              _TRANSPARENT DATA?
                  JCGETBUFLG,               _GET BUFFERS FOR INPUT? 
                  JCRESETFLG,               _RESET WAIT I/O BIT?
                  JCCHAINFLG,               _CHAIN MESSAGES?
                  JCSTACKFLG,               _STACK THIS COMPLETION? 
                  JCENDSTACKFLG,            _END OF COMPLETION STACK? 
                  JCBATCHFLG,               _BATCH THIS REQUEST?
                  JCENDBATCHFLG,            _LAST REQUEST TO BATCH? 
                  JCSP2,                    _SPARE? 
                  JCIMMEDFLG,               _IMMEDIATE OUTPUT?
                  JCCOMFLG : BOOLEAN;       _CALL PBDRCOMPL?
                  JCLIO : J0LIO;            _LIO FUNCTION?
                  JCPD : B08BITS;           _PHYSICAL DEVICE CODE?
                  JCUSERWD : B0OVERLAY;     _USER WORD? 
                  JCPOINTER : B0BUFPTR;     _PTR TO TAG/1ST I/O BFR?
                  JCBUFSZE : BECTPTR;       _ BUFFER CONTROL BLOCK     ?
                  JCENTRYCODE : B0WKLSTS;   _WORKLIST CODE? 
                  JCUSRCODE : B0PGMS;       _USER PROGRAM CODE? 
                  JCOPCODE : B0WLCODES;     _WORKLIST OP-CODE?
                  JCRESULT,                 _I/O RESULT CODE? 
                  JCRETRYCNT,               _RETRY COUNT? 
                  JCRECDSZE,                _RECORD SIZE? 
                  JCBLKSZE : B04BITS;       _BLOCK SIZE?
                  JCSTATUS : SETWORD        _PD STATUS? 
                END;
                                                         _ 10/14/74 ? 
                  _#PARAMETERS FOR COPY BUFFER#?
     JTCOPYB = PACKED RECORD
                 JTNUM : B08BITS;       _NUMBER OF BFRS TO COPY?
                 JTSSIZE : BECTPTR;     _SOURCE BUFFER SIZE            ?
                 JTDSIZE,               _DESTINATION BUFFER SIZE? 
                 JTSMIXED,              _MIXED DATA BFR SOURCE CHAIN? 
                 JTRLS : BOOLEAN        _RELEASE SOURCE BUFFERS?
               END; 
                  _#I/O RESPONSES#? 
     J0IORESP = (J0XREJECT,   _ EXTERNAL REJECT ? 
                 J0IREJECT,   _ INTERNAL REJECT ? 
                 J0REPLY);    _ REPLY           ? 
  
                  _#DEVICE CONTROLLER TABLE#? 
     JACONTROLLERTABLE =
       RECORD 
         JASTATUS : SETWORD;      _PD STATUS? 
         JACUREQ,                 _CURRENT I/O REQUEST? 
         JAIOBUF  : B0BUFPTR      _I/O BUFFER PTR?
         JAINPROGFLG : BOOLEAN;   _I/O IN-PROGRESS? 
         JABUFSZE : BECTPTR;      _I/O BUFFER CONTROL BLOCK            ?
         JACHRCNT,                _I/O CHARACTER COUNT? 
         JATIMER,                 _I/O TIMER? 
         JATIMOUT,                _TIMEOUT COUNT? 
         JAREJECT,                _REJECT COUNT?
         JABADINT,                _BAD INTERRUPT COUNT? 
         JARETRY,                 _RETRY COUNT? 
         JAQVALUE : INTEGER;      _Q VALUE OF LAST I/O? 
         JAAVALUE : CHAR;         _A VALUE OF LAST I/O? 
         JAREADFLG : BOOLEAN;     _LAST I/O WAS READ/WRITE? 
         JAMASK : INTEGER;        _MASK OUT DEVICE FOR PBSTARTIO? 
         JAIOWL : ARRAY [BOOLEAN] OF B0WKLSTS;   _DRIVER WORKLISTS? 
_?
         CASE B0TAG : INTEGER OF
             TTY : (JAAUTOFLG,            _AUTOMATIC OUTPUT?
                    JAFRSTFLG,            _1ST CHAR OF MESSAGE? 
                    JAINTFLG,             _MESSAGE INTERRUPTED? 
                    JAMODEFLG,            _MODE CHANGE? 
                    JACHFLG : BOOLEAN;    _CONSOLE INPUT MESSAGE? 
                    JACURIBP,             _CURRENT INPUT BUFFER?
                    JAOLDIBP : B0BUFPTR;  _1ST INPUT BUFFER?
                    JAQCHOSEN : INTEGER;  _CHOSEN QUEUE?
                    JADROPQ : SET OF 0..$F; _INACTIVE QUEUE?
                    JAERRCNT : INTEGER);  _ERROR COUNT? 
       END; 
_$J+? 
                                                       _ 12/21/76 ? 
                _ #MUX CMD DRIVER INPUT FORMAT#?
_*                                                                     ?
_         ***  COMMAND DRIVER INPUT FORMAT  ***                        ?
_ THE COMMAND DRIVER INPUT FORMAT IS THE FORMAT IN WHICH THE COMMANDS  ?
_ AND THEIR ASSOCIATED PARAMETERS ARE PRESENTED TO THE COMMAND DRIVER  ?
_*                                                                     ?
  
NKINCOM = PACKED RECORD CASE NKTAG : INTEGER OF 
  
          1: (NKCMD   : B08BITS;       _ COMMAND                       ?
              NKLTYP  : B08BITS;       _ LINE TYPE                     ?
              NKPORT  : B08BITS;       _ PORT NUMBER                   ?
              NKLOPOR : B08BITS;       _ SUB PORT NUMBER               ?
              NKCARY  : PACKED ARRAY   _ ARRAY FOR CONTROL COMMAND     ?
                        [1..8] OF CHAR);
          2: (NKDM1   : B08BITS;       _ DUMMY                         ?
              NKTCLS  : B08BITS;       _ DEFAULT TERMINAL CLASS        ?
              NKLINO  : INTEGER;       _ LINE NUMBER                   ?
              NKSRF1  : BOOLEAN;       _ FUNCTION 1                    ?
              NKFUN1  : B07BITS;       _                               ?
              NKSRF2  : BOOLEAN;       _ FUNCTION 2                    ?
              NKFUN2  : B07BITS;       _                               ?
              NKSRF3  : BOOLEAN;       _ FUNCTION 3                    ?
              NKFUN3  : B07BITS;       _                               ?
              NKSRF4  : BOOLEAN;       _ FUNCTION 4                    ?
              NKFUN4  : B07BITS;       _                               ?
              NKSRF5  : BOOLEAN;       _ FUNCTION 5                    ?
              NKFUN5  : B07BITS;       _                               ?
              NKZERO  : B08BITS);      _ END OF FUNCTIONS = 0          ?
  
          3: (NKDM2   : INTEGER;       _DUMMY                          ?
              NKDM3   : INTEGER;       _ DUMMY                         ?
              NKIBP   : B0BUFPTR;      _ INPUT BUFFER ADDRESS          ?
              NKUOP1  : BOOLEAN;       _ USER OPTION FLAG 1 (MUX BIT15)?
              NKUOP2  : BOOLEAN;       _ USER OPTION FLAG 2 (MUX BIT14)?
              NKUOP3  : BOOLEAN;       _ USER OPTION FLAG 3 (MUX BIT13)?
              NKUOP4  : BOOLEAN;       _ USER OPTION FLAG 4 (MUX BIT12)?
              NKUOP5  : BOOLEAN;       _ USER OPTION FLAG 5 (MUX BIT11)?
              NKUOP6  : BOOLEAN;       _ USER OPTION FLAG 6 (MUX BIT10)?
              NKUOP7  : BOOLEAN;       _ USER OPTION FLAG 7 (MUX BIT09)?
              NKUOP8  : BOOLEAN;       _ USER OPTION FLAG 8 (MUX BIT08)?
              NKIFCD  : B08BITS;       _ OPTIONAL FCD OF INPUT/OUTPUT B?
              NKNOXL  : BOOLEAN;       _ CODE TRANSLATE FLAG (1=XLAT)  ?
              NKSCENBL: BOOLEAN;       _ SPECIAL CHARACTER TO BE CHNG  ?
              NKDM9   : B02BITS;       _ DUMMY                         ?
              NKBLKL  : B012BITS);     _ BLOCK LENGTH COUNT            ?
  
          4: (NKWD0   : B0OVERLAY;     _ WORD 0 UNIVERSAL OVERLAY      ?
              NKWD1   : B0OVERLAY;     _ WORD 1 UNIVERSAL OVERLAY      ?
              NKOBP   : B0BUFPTR;      _ OUTPUT BUFFER POINTER         ?
              NKUOPS  : B08BITS;       _ ALL 8 USER BITS               ?
              NKMVB   : BOOLEAN;       _ MOVE USER BITS TO LCB FLAG    ?
              NKRPRT  : BOOLEAN;       _ PARITY STRIP FLAG             ?
              NKISTAI : B06BITS;       _ INPUT STATE INDEX             ?
              NKDM6   : INTEGER;       _ DUMMY                         ?
              NKISPTA : INTEGER;       _ INPUT STATE PTR TBL ADDRESS   ?
              NKSCHR  : CHAR;          _ SPECIAL CHARACTER             ?
              NKCNT1  : B08BITS;       _ CHARACTER COUNT 1 VALUE IF"0  ?
              NKCXLTA : INTEGER);      _ XLATE TABLE ADDRESS           ?
  
          5: (NKDM7   : INTEGER;       _ DUMMY                         ?
              NKDM8   : INTEGER;       _ DUMMY                         ?
              NKWD2   : B0OVERLAY;     _ WORD 2 UNIVERSAL OVERLAY      ?
              NKWD3   : B0OVERLAY;     _ WORD 3 UNIVERSAL OVERLAY      ?
              NKWD4   : B0OVERLAY;     _ WORD 4 UNIVERSAL OVERLAY      ?
              NKWD5   : B0OVERLAY;     _ WORD 5 UNIVERSAL OVERLAY      ?
              NKWD6   : B0OVERLAY;     _ WORD 6 UNIVERSAL OVERLAY      ?
              NKWD7   : B0OVERLAY);    _ WORD 7 UNIVERSAL OVERLAY      ?
  
          6: (NKDM10   : B08BITS;      _ DUMMY                         ?
              NKRELBFS : BOOLEAN;      _ RELEASE INPUT BUFFERS         ?
              NKWKFLG  : BOOLEAN;      _ MAKE WORKLIST TO CALLER       ?
              NKWLINDX : B0WKLSTS;     _ WORKLIST INDEX                ?
              NKDM11   : INTEGER;      _ DUMMY                         ?
              NKUSRBY  : B08BITS;      _ USER PARAMETER FOR WORKLIST   ?
              NKWKCOD  : B08BITS);     _ USER WORKCODE IF W/L DESIRED  ?
  
          7: (NKDM12,                  _ DUMMY                         ?
              NKDM13   : INTEGER;      _ DUMMY                         ?
              NKMDMST  : B08BITS;      _MODEM STATE PARAMETER          ?
                                       _  0= MSTIDL                    ?
                                       _  1= MSTLNI                    ?
              NKDDD    : B08BITS;      _DUMMY                          ?
              NKCMS    : INTEGER);     _MODEM STATE PTR TABLE ADDR     ?
  
         8:  (NKDD1    : INTEGER;      _DUMMY                          ?
              NKDD2    : INTEGER;      _DUMMY                          ?
              NKDD3    : B012BIT;      _DUMMY                          ?
              NKNSTA   : B04BITS);     _NEW MODEM STATE                ?
          END;  _ NKINCOM ? 
_$J+? 
                                                       _ 09/07/76 ? 
               _ #DIAGNOSTICS CONTROL BLOCK# ?
  
_              THE DIAGNOSTIC CONTROL BLOCK IS USED BY THE ON-LINE
               DIAGNOSTICS PROGRAM TO CONTROL A LINE WHEN BEING USED
               BY THE DIAGNOSTICS PROGRAM.  THE DIAGNOSTIC CONTROL
               IS PHYSICALLY A BUFFER WITH THIS DEFINITION OVERLAYED
               ON THE BUFFER. 
? 
NZDCB = PACKED RECORD CASE NZTAG : INTEGER OF 
  
      1: (NZCMD   : B08BITS;           _ COMMAND                       ?
          NZD0R   : B08BITS;           _ WORD 0 RIGHT BYTE             ?
          NZPORT  : B08BITS;           _ PORT                          ?
          NZLOPOR : B08BITS;           _ SUBPORT - LOGICAL PORT        ?
          NZOBP   : B0BUFPTR;          _ OUTPUT BUFFER POINTER         ?
          NZBUF   : B0BUFPTR;          _ BUFFER POINTER                ?
          NZDUM1,                      _CMD PACKET WORD 5              ?
          NZDUM2,                      _CMD PACKET WORD 6              ?
          NZDUM3,                      _CMD PACKET WORD 7              ?
          NZLAST  : INTEGER;           _ LAST WORD IN PACKET           ?
          NZCTYP  : INTEGER;           _ CLA TYPE                      ?
          NZMODE  : B08BITS;           _ DIAGNOSTIC MODE               ?
          NZDCN1  : B08BITS;           _ COUNT ONE                     ?
          NZDCNS  : B08BITS;           _ LIMIT                         ?
          NZIX    : B08BITS;           _       TO                      ?
          NZDCNF  : B08BITS;           _          NICTCT               ?
          NZMSGX  : B02BITS;           _ INDEX TO MESSAGE ADDRESS TABLE?
          NZISON  : BOOLEAN;           _ SET ISON FLAG                 ?
          NZWAIT  : BOOLEAN;           _ WAIT FLAG                     ?
          NZABORT : BOOLEAN;           _ ABORT FLAG                    ?
          NZTERM  : BOOLEAN;           _TERMINATE DIAG FLAG            ?
          NZTSTYP : B02BITS;           _ TEST TYPE                     ?
          NZTMCT  : B0OVERLAY;         _CLA TYPE AND TEST MODE MASK    ?
          NZSVDTCB : B0BUFPTR;         _TRUNK CONTROL BLOCK POINTER    ?
          NZSFC   : CHAR;              _SUB FUNCTION CODE              ?
          NZPAS1  : BOOLEAN;          _ FIRST PASS THRU DIAGNOSTIC FLAG?
          NZTIPTYPE : N0TIPTYPE;       _SAVE TIP TYPE DURING OLD PROC. ?
          NZLNSPD : N0LNSPD;           _LCB LINE SPEED DURING OLD      ?
          NZDO    : CHAR);             _DIAGNOSTIC OPERATOR ORDINAL    ?
  
      2: (NZINTAR : ARRAY[1..KQDCBSIZE] 
                    OF INTEGER);       _ INTEGER REFERENCE             ?
  
      3: (NZDPAK  : NKINCOM);          _ COMMAND PACKET DEFINITION     ?
  
      4: (NZDM1   : B0LINO;            _ SPARE                         ?
          NZLINO  : B0LINO;            _ LINE NUMBER                   ?
          NZFNC1  : B08BITS;           _ FUNCTION BYTE ONE             ?
          NZFNC2  : B08BITS;           _ FUNCTION BYTE TWO             ?
          NZFNC3  : B08BITS;           _ FUNCTION BYTE THREE           ?
          NZFNC4  : B08BITS;           _ FUNCTION BYTE FOUR            ?
          NZFNC5  : B08BITS;           _ FUNCTION BYTE FIVE            ?
          NZFNC6  : B08BITS;           _ FUNCTION BYTE SIX             ?
          NZTYPS  : B08BITS;           _ TERMINAL TYPE                 ?
          NZMODS  : B08BITS);          _ MODES                         ?
  
      END;  _ NZDCB ? 
_$J+? 
_*****************************
*                            *
*    STRUCTURE SERVICES      *
*           TYPES            *
*                            *
*****************************?
                                                         _ 83/01/27 ? 
                  _#TYPE 1 AND 4 TABLE ENTRY#?
     BRDIRCTRY = PACKED RECORD
                   BRTYPE : B02BITS;        _ ROUTING TYPE             ?
                   BRLNKT : B02BITS;        _ LINK TYPE                ?
                   BRNSAV : BOOLEAN;        _ NS AVAIL - SUP TABLE ONLY?
                   BRCSAV : BOOLEAN;        _ CS AVAIL - SUP TABLE ONLY?
                   BRSUPI : BOOLEAN;        _ SUP IN PROG - SUP ONLY   ?
                   BRSPAR : BOOLEAN;        _ SPARE                    ?
                   BRID : B08BITS;     _ ID - ARGUMENT SEARCHED FOR    ?
                   BRPTR : B0BUFPTR;   _ PTR - VALUE RETURNED BY SRCH  ?
                 END; 
                                                         _ 83/01/27 ? 
                  _#TYPE 3 TABLE ENTRY#?
     BRHSTABLE = PACKED RECORD
       CASE X : INTEGER OF
         0: (BRHINT  : ARRAY[1..4] OF INTEGER); _OST NAME INTEGER      ?
         1: (BRHOST  : PACKED ARRAY[1..8]   _ HOST NAME                ?
                                   OF CHAR; 
             BRNODE  : INTEGER);            _ NODE ENTRIES             ?
         2: (BRLAST  : BRDIRCTRY);          _ TEST FOR END OF TABLE    ?
       END; _ CASE, RECORD ?
                                                         _ 83/01/27 ? 
                  _#TYPE 4 TABLE LIST SEARCH CONTROL BLOCK#?
     LSRCHCB = RECORD 
                 LSCOUNT : INTEGER;         _ENTRY COUNT FOR THIS BFR  ?
                 LSBUFPTR : B0BUFPTR;       _PTR TO CURRENT BFR        ?
               END; 
_*****************************
*                            *
*  SERVICE MODULE TYPES      *
*                            *
*****************************?
                                                         _ 83/01/27 ? 
               _ # NPU STATISTICS # ? 
     CPNPUCNTS = RECORD 
                   CPSMRCV,            _ SM RECEIVED                   ?
                   CPSMSENT,           _ SM SENT                       ?
                   CPSMBAD,            _ BAD SM RECEIVED               ?
                   CPPKTBA,            _ PACKETS WITH BAD ADDRESS      ?
                   CPPKTFMT,           _ PACKETS WITH BAD FORMAT       ?
                   CPREG3,             _ NO. TIMES AT REGULATION LVL 3 ?
                   CPREG2,             _ NO. TIMES AT REGULATION LVL 2 ?
                   CPREG1,             _ NO. TIMES AT REGULATION LVL 1 ?
                   CPREG0,             _ NO. TIMES AT REGULATION LVL 0 ?
                   CPPTO : INTEGER;    _ PACKET PROTOCOL TIMEOUTS      ?
                 END; 
                                                         _ 83/01/27 ? 
                  _#TRUNK/LINE STATISTICS#? 
_?
     BZLNCNTS = PACKED RECORD 
                  BZBTRANS,            _ BLOCKS TRANSMITTED     ? 
                  BZBRCV,              _ BLOCKS RECEIVED        ? 
                  BZCTRANS,            _ CHARACTERS TRANSMITTED ? 
                  BZCRCV,              _ CHARACTER RECEIVED     ? 
                  BZBBAD,              _ BAD BLOCKS RECIEVED    ? 
                                       _ AND TRANSMITTED        ? 
                  BZRP,                _ X.25 PAD CONN REJECTED ? 
                  BZRA   : INTEGER;    _ X.25 A-A CONN REJECTED ? 
                END;
                                                         _ 83/01/27 ? 
                  _#ACTION TABLE ENTRY#?
     DFATENTRY = PACKED RECORD
                 CASE X : INTEGER OF
                 0:(DFEND  : INTEGER;       _END OF ACTION TABLE       ?
                    DFNEXT : 'DFATENTRY);   _POINTER TO NEXT TABLE     ?
                 1:(DFAKEY,                 _ ACTION KEY               ?
                    DFFN : B08BITS;         _ FIELD NUMBER             ?
                    DFPARAM : INTEGER);     _ OPTIONAL ACTION PARAMETER?
                 END; 
_?
                  _#ACTION TABLE ENTRY POINTER#?
     DFATPTR = 'DFATENTRY;
                                                         _ 83/01/27 ? 
                  _#FIELD DESCRIPTOR TABLE ENTRY#?
     DDFDTENTRY = PACKED RECORD 
                    CASE DDFCASE : INTEGER OF 
                      0:(DDFSTRT,           _ FIELD START BIT POSITION ?
                         DDFLNTH : B04BITS; _ FIELD LENGTH MINUS 1     ?
                         DDX25EX : BOOLEAN; _ X25 EXTENSION REQD       ?
                         DDFDISP : B07BITS);_FIELD DISPLACEMENT        ?
                      1:(DDFPARS : INTEGER);_ FIELD PARAMETERS         ?
                  END;
                                                         _ 83/01/27 ? 
                  _#FIELD DESCRIPTOR TABLE RECORD#? 
     DDFDTRECORD = PACKED RECORD
                    DDSTART,                _LOWEST FN IN FDT          ?
                    DDNUMENT : B08BITS;     _HIGHEST FN IN FDT         ?
                    DDFDT : ARRAY [1..1] OF DDFDTENTRY; 
                 END; 
                  _#FIELD DESCRIPTOR TABLE POINTER#?
     DDFDTPTR = 'DDFDTRECORD; 
                  _# NDCB ENTRY #?
     NHDCBENTRY = PACKED ARRAY[1..2] OF CHAR; 
  
_*****************************
*                            *
*  NCB TYPES                 *
*                            *
*****************************?
  
     CFTYPE = (CFNAME,CFNODE,CFLINK,        _ NCB ENTRY TYPES          ?
               CFROUTE,CFHST,CFSUP,CFCONF); 
                                                         _ 83/01/27 ? 
               _ # NCB HOST TABLE # ? 
     CFHOSTABLE = PACKED RECORD             _ HOST TABLE               ?
       CASE CFIND : INTEGER OF
         1 : (CFHRO   : B08BITS;            _ HOST ROUTING ORDINAL     ?
              CFFORCE : B08BITS);           _ FORCE TO UPPER 8 BITS    ?
         2 : (CFHNAME : PACKED ARRAY        _ HOST NAME                ?
                        [0..0] OF CHAR);
       END; _CASE AND RECORD? 
                                                         _ 83/01/27 ? 
               _ # NCB LINE CONFIGURATION TABLE # ? 
     CFCNFTABLE = PACKED RECORD             _ LINE CONFIGURE TABLE     ?
       CASE CFIND : INTEGER OF
         1: (CFLINO    : B0LINO);           _ LINE NUMBER              ?
         2: (CFLTYPE   : B08BITS;           _ LINE TYPE                ?
             CFAUTO    : BOOLEAN;           _ AUTO RECOGNITION         ?
             CFTTYPE   : N0TIPTYPE;         _ TERMINAL TYPE            ?
             CFSUBT    : N0SUBTIP);         _ SUBTIP TYPE              ?
         3: (CFLSTAT   : B08BITS;           _ INITIAL LINE STATUS      ?
             CFFNFVCNT : B08BITS);          _ NUMBER OF FN/FV PAIRS    ?
         4: (CFFN      : B08BITS;           _ FN                       ?
             CFFV      : B08BITS);          _ FV                       ?
         5: (CFFILLER  : B014BITS;
             CFARSPD   : BOOLEAN;           _ALLOW RE-AUTOREC OF SPEED ?
             CFHIAUTO  : BOOLEAN);          _HI/LO AUTOREC RANGE       ?
     END; _CASE AND RECORD? 
                                                         _ 83/01/27 ? 
               _ # NCB TABLE ENTRIES # ?
     CFENTRY = PACKED RECORD                _ NCB TABLE ENTRIES        ?
       CASE CFTAG : CFTYPE OF 
         CFNAME : (CFTBLTYPE : CHAR;        _ TABLE TYPE               ?
                   CFLENGTH  : B08BITS);    _ TABLE LENGTH             ?
         CFNODE : (CFNODTYP  : B02BITS;     _ NODE TYPE                ?
                   CF1SPARE  : B06BITS;     _ SPARE                    ?
                   CFNODNO   : B08BITS);    _ NODE NUMBER              ?
         CFLINK : (CFLNKTYP  : B02BITS;     _ LINK TYPE                ?
                   CFLNKSTAT : B02BITS;     _ LINK STATUS              ?
                   CFFRMSIZE : B02BITS;     _ TRUNK FRAME SIZE         ?
                   CF2SPARE  : B02BITS;     _ SPARE                    ?
                   CFLNKNO   : B08BITS);    _ LINK NUMBER              ?
         CFROUT : (CFRTYPE   : B02BITS;     _ ROUTING TYPE             ?
                   CFRST1    : B02BITS;     _ ROUTING STATUS TO NODE 1 ?
                   CFRST2    : B02BITS;     _ ROUTING STATUS TO NODE 2 ?
                   CFRST3    : B02BITS;     _ ROUTING STATUS TO NODE 3 ?
                   CFLNKO    : B08BITS);    _ LINK ORDINAL TO NODE     ?
         CFHST  : (CFHENTRY  : CFHOSTABLE); _HOST TABLE ENTRY          ?
         CFSUP  : (CFSUPTYPE : B02BITS;     _ TYPE OF SUPERVISOR       ?
                   CFSUPSTAT : B02BITS;     _ RESERVED                 ?
                   CF3SPARE  : B04BITS;     _ SPARE                    ?
                   CFRORD    : B08BITS);    _ SUPERVISOR DN            ?
         CFCONF : (CFCNFENT  : CFCNFTABLE); _ LINE CONFIGUR TABLE ENTRY?
       END; _CASE?
                                                         _ 83/01/27 ? 
               _ # NCB OPTIONS # ?
     CFOPTS = PACKED RECORD                 _ NCB OPTIONS              ?
              CFSP1  : B02BITS;             _ DUMMY                    ?
              CFDUMP : BOOLEAN;             _ DUMP OPTION              ?
              CFGO   : BOOLEAN;             _ OPERATOR GO OPTION       ?
              CFSP2  : B012BITS;            _ DUMMY                    ?
          END;
                                                         _ 83/01/27 ? 
                  _ # NPU CONFIGURE BLOCK # ? 
  
     CFNCBFILE = PACKED RECORD
       CASE X : INTEGER OF
         0: (CFWORD : ARRAY[1..1]           _ NCB ARRAY OF INTEGER     ?
                      OF INTEGER);
         1: (CFVERSION : PACKED ARRAY[1..2] _ VERSION                  ?
                         OF CHAR; 
             CFOPTIONS : CFOPTS;            _ OPTIONS                  ?
             CFTABLES  : ARRAY[1..1]        _ TABLES                   ?
                         OF CFENTRY); 
       END; _ CASE AND RECORD ? 
_?
*CALL TYPEMID 
_$J+? 
                                                         _ 06/15/76 ? 
                _ #LINE CONTROL BLOCK            # ?
_ 
      LL                       CCCCCCCCCCC            BBBBBBBBBBB 
      LL                      CCCCCCCCCCCC            BBBBBBBBBBBB
      LL                      CC                      BB        BB
      LL                      CC                      BB        BB
      LL                      CC                      BB        BB
      LL                      CC                      BBBBBBBBBBB 
      LL                      CC                      BBBBBBBBBBB 
      LL                      CC                      BB        BB
      LL                      CC                      BB        BB
      LL                      CC                      BB        BB
      LLLLLLLLLLLL            CCCCCCCCCCCC            BBBBBBBBBBBB
      LLLLLLLLLLLL             CCCCCCCCCCC            BBBBBBBBBBB 
? 
_ 
               SYSTEM LINE CONTROL BLOCK - CONTAINS THE LINE
               DEPENDENT INFORMATION USED PRIMARILY BY OPS LEVEL
               INTERFACE PACKAGES TO :  
  
                 1. DEFINE AND CONTROL LINE PROTOCOL
                 2. DEFINE AND INTERFACE WITH EXTERNAL
                    LINE MANAGERS (SERVICE MODULE, ETC.)
? 
BZLCB = PACKED RECORD 
  
      BZLINO     : B0LINO;             _ LINE NUMBER                   ?
      BZTMRCHN   : BZLCBP;             _ ACTIVE LCB TIMER CHAIN        ?
      BZSWLINE   : BOOLEAN;            _ SWITCHED LINE                 ?
      BZSMDISC   : BOOLEAN;            _ SVM REQUEST FOR DISCONNECT    ?
      BZWTCENB   : B06BITS;            _ WAIT COUNT FOR ENABLING       ?
      BZWTCOUNT  : B08BITS;            _ WAIT COUNT                    ?
      BZRET1ADDR : INTEGER;            _ INPUT ROUTINE ADDRESS RETURN  ?
      BZRET2ADDR : INTEGER;            _ OUTPUT ROUTINE ADDRESS RETURN ?
      BZTAPEX    : BOOLEAN;            _ TIMAL APPENDAGE EXISTS        ?
      BZCHECKQS  : BOOLEAN;            _ CHECK WHEN OUTPUT QUEUED      ?
      BZSMRESP   : BOOLEAN;            _ SM RESPONSE RECEIVED          ?
      BZACTVITY  : BOOLEAN;            _ LINE ACTIVITY FLAG            ?
      BZLTYP     : N0LTYP;             _ LINE TYPE                     ?
      BZCNFST    : C7CNFST;            _ CURRENT CONFIGURATION STATE   ?
      BZLNSPD    : N0LNSPD;            _LINE SPEED                     ?
      BZTCBCNT   : B08BITS;            _ NO OF TCBS ATTACHED           ?
      BZTOUTPUT  : BOOLEAN;            _ TERM OUTPUT ON LINE TIMEOUT   ?
      BZTINPUT   : BOOLEAN;            _ TERM INPUT  ON LINE TIMEOUT   ?
      BZSMCNTRL  : BOOLEAN;            _ SVM CONTROLLING LINE          ?
      BZSTATE    : B05BITS;            _ TIP STATE                     ?
      BZAUTO     : BOOLEAN;            _ AYTO RECOGINITION REQUIRED    ?
      BZDIAG     : BOOLEAN;            _ DIAGNOSTIC IN PROGRESS        ?
      BZWKCODE   : B06BITS;            _ LAST WORKCODE RECEVIED        ?
      BZTIPTYPE  : N0TIPTYPE;          _ TIP TYPE                      ?
      BZSUBTIP   : N0SUBTIP;           _ SUB TIP                       ?
      BZSVTIPTYPE: N0TIPTYPE;          _SAVE TIP TYPE DURING LINE INIT ?
      BZHIAUTO   : BOOLEAN;            _ HIGH RANGE ASYNC AUTO RECOGN. ?
      BZARSPD    : BOOLEAN;            _ALLOW RE-AUTOREC ASYNC SPEED   ?
      BZSYNAUTO  : BOOLEAN;            _ SYNC AUTO LINE                ?
      BZBSCTRY   : B03BITS;            _ BISYNC RECOGNITION RETRIES    ?
      BZQDISC    : BOOLEAN;            _ IMMEDIATE DISCONNECT FLAG     ?
      BZRECON    : BOOLEAN;            _ RECONFIGURE AT DISCONNECT FLAG?
      BZSTIC     : BZLNCNTS;           _ LINE STATISTICS               ?
      BZTCBPTR   : B0BUFPTR;           _ FIRST TCB ATTACHED            ?
      BZLBTOMUX  : B0BUFPTR;           _ LAST BUFFER GIVEN TO MUX      ?
      BZWTCCON   : B08BITS;            _ WAIT COUNT FOR CONNECTION     ?
      BZCNFPEND  : BOOLEAN;            _ CONFIGURATION PENDING FLAG    ?
      BZALCNT    : B07BITS;            _ ALARM COUNTER                 ?
      BZSECURITY : B05BITS;            _ SECURITY CODE                 ?
      BZCRRM     : B05BITS;            _ CHARACTER(S) RCVD REMAINDER   ?
      BZCTRM     : B05BITS;            _ CHARACTER(S) XMTTED REMAINDER ?
      BZARPARAMS : B0BUFPTR;           _ PTR TO AUTO REC PARAMETERS    ?
_ 
*              ---- FIELDS DEPENDENT ON TYPE OF LCB ----
? 
      CASE BZCASE : INTEGER OF
_ 
? 
         0: (BZSUB1PTR    : CHSUBP;         _ FIRST SUBPORT ATTACHED   ?
            BZSP5         : B08BITS;        _ SPARE                    ?
            BZNUMSUBS     : B08BITS);       _ NUMBER OF SUBPORTS       ?
*CALL TYPELCB 
      END;   _ BZLCB  ? 
  
                _ #ARRAY OF LINE CONTROL BLOCKS# ?
  
      C0LCBS = ARRAY[0..1] OF BZLCB;
  
                _ #ARRAY OF TDM LINE CONTROL BLOCKS# ?
  
      C0SUBLCB = ARRAY[1..C4MAXSUBLCB] OF BZLCB;
                                                         _ 83/01/27 ? 
               _ # UPLINE TIP SERVICES FLAG WORD # ?
      KTULTSFLAG = PACKED RECORD
                  CASE X : INTEGER OF 
_?
                  1: (KTULS1    : B06BITS;  _ SPARE                    ?
                      KTSEND,               _ END OF LOGICAL LINE SEEN ?
                      KTINTERM,             _ INPUT HAS BEEN TERMINATED?
                      KTUBREAK,             _ BREAK SEEN               ?
                      KTCKPGTRN,            _ PAGE WAIT ON CK PAGE TURN?
                      KTIGNRCN,             _ SPECIAL EDIT MODE  NO CN ?
                      KTCKSPEC  : BOOLEAN;  _ CHECK FOR SPECIAL CHARS  ?
                      KTBLKT    : B04BITS); _ BLOCK TYPE REQUESTED     ?
_?
                  2: (KTULS2    : B06BITS;  _SPARE                     ?
                      KTSECHAR,             _SECURITY CHARACTER SEEN   ?
                      KTBRKSEEN,            _ BREAK SEEN BY BIP        ?
                      KTPGTURN,             _ PAGE TURN                ?
                      KTRESP,               _ RESPONSE FOR TIP         ?
                      KTDATA,               _ INPUT WAS DATA           ?
                      KTCAN,                _ CANCEL INPUT             ?
                      KTUI,                 _ USER INTERUPT            ?
                      KTGOODIVT,            _ GOOD IVT COMMAND         ?
                      KTUB2,                _ USER BREAK 2             ?
                      KTUB1     : BOOLEAN); _ USER BREAK 1             ?
_?
                  3: (KTULS3  : B011BITS;   _ SPARE                    ?
                      KTBREAK : BOOLEAN;    _ BREAK RESPONSE FOR TIP   ?
                      KTULS4  : B02BITS;
                      KTUBS   : B02BITS);   _ USER BREAK 1 OR 2 SEEN   ?
_?
                  4: (KTULS5  : B08BITS;    _ SPARE                    ?
                      KTFLAGS : B08BITS);   _ OVERLAY FOR FLAGS        ?
_?
                  5: (KTWORD : INTEGER);    _ INTEGER OVERLAY          ?
                  END;
*CALL X25SLCB 
_$J+? 
                                                         _ 04/04/85 ? 
                  _#TERMINAL CONTROL BLOCK#?
_ 
      TTTTTTTTTTTT             CCCCCCCCCCC            BBBBBBBBBBB 
      TTTTTTTTTTTT            CCCCCCCCCCCC            BBBBBBBBBBBB
           TT                 CC                      BB        BB
           TT                 CC                      BB        BB
           TT                 CC                      BB        BB
           TT                 CC                      BBBBBBBBBBB 
           TT                 CC                      BBBBBBBBBBB 
           TT                 CC                      BB        BB
           TT                 CC                      BB        BB
           TT                 CC                      BB        BB
           TT                 CCCCCCCCCCCC            BBBBBBBBBBBB
           TT                  CCCCCCCCCCC            BBBBBBBBBBB 
? 
_ 
               THE TERMINAL CONTROL BLOCK DEFINES TERMINAL DEPENDENT
               INFORMATION.  IN ADDITION TO THE BASIC TERMINAL
               INFORMATION THERE IS A TIP DEPENDENT DEFINITION FOR
               EACH TIP PRESENT IN THE SYSTEM.
? 
BSTCBLK = PACKED RECORD 
          BSCHAIN   : B0BUFPTR;             _CHAIN TO NEXT TCB         ?
          BSLCBP    : BZLCBP;               _LCB POINTER               ?
  
          BSCA      : B08BITS;              _CLUSTER ADDRESS           ?
          BSTA      : B08BITS;              _TERMINAL ADDRESS          ?
  
          BSCN      : B08BITS;              _CONNECTION NUMBER         ?
          BSDEVTYPE : N0DEVTYPE;            _DEVICE TYPE               ?
          BSCODE    : B04BITS;              _CODE SET FOR TERMINAL     ?
  
          BSTNAME   : PACKED ARRAY[0..7] OF _TERMINAL NAME             ?
                             CHAR;
  
          BSBATCH   : BOOLEAN;              _BATCH DEVICE              ?
          BSSTATE   : B03BITS;              _LINK CONNECTION STATE     ?
          BSRCNFPEN : BOOLEAN;              _RECONFIGURATION PENDING   ?
          BSCNFST   : C7CNFST;              _CONFIGURATION STATE       ?
          BSACON    : BOOLEAN;              _AUTO CONNECT FLAG         ?
          BSTRSTATE : B03BITS;              _TRANSMITTER STATE         ?
          BSIPRI    : B01BIT;               _TERMINAL PRIORITY         ?
          BSRSTATE  : B03BITS;              _RECEIVER STATE            ?
  
          BSTCLASS  : N0TCLASS;             _TERMINAL CLASS            ?
          BSUBL     : B05BITS;              _UPLINE BLOCK LIMIT        ?
          BSOBCNT   : B06BITS;              _OUTSTANDING BLOCK COUNT   ?
  
          BSQBLKUP  : BOOLEAN;              _LAST UPLINE BLOCK = QBLK  ?
          BS4LPEOF  : BOOLEAN;              _SEND EOF SIGNAL TO MD4 LP ?
          BSDO      : B03BITS;              _DEVICE ORDINAL            ?
          BSXBZ     : B011BITS;             _TRANSMISSION BLOCK SIZE   ?
  
          BSLLCB    : B0BUFPTR;             _LOGICAL LINK CTRL BLOCK   ?
          BSCONSOLE : B0BUFPTR;             _OWNING CONSOLE            ?
          BSQPTR    : B0OVERLAY;            _QUEUE POINTER             ?
          BSFULLQ   : B0OVERLAY;            _COMPLETE UPLINE QUEUE     ?
          BSWORKQUE : B0BUFPTR;             _PARTIAL UPLINE BLOCK      ?
          BSAUTOINP : B0BUFPTR;             _PTR TO AUTO INPUT         ?
  
          BSHN      : B08BITS;              _CONNECTED HOST NODE       ?
          BSSHN     : B08BITS;              _SELECTED HOST NODE        ?
  
          BSBLKUP   : BOOLEAN;              _LAST UPLINE BLOCK = BLK   ?
          BSCUBSN   : B03BITS;              _BSN CURRENT U/L BLOCK     ?
          BSLUBSN   : B03BITS;              _BSN LAST D/L BACK         ?
          BSCDBSN   : B03BITS;              _BSN CURRENT D/L BLOCK     ?
          BSLDBSN   : B03BITS;              _BSN LAST U/L BACK         ?
          BSBCKDUE  : B03BITS;              _NUMBER OF BACKS DUE HOST  ?
  
          BSPRUON   : BOOLEAN;              _A-A USING PRU TYPE DATA   ?
          BSSECHAR  : B07BITS;              _SECURITY CHARACTER        ?
          BSABL     : B03BITS;              _ALLOWABLE BLOCK LIMIT     ?
          BSUBZ     : B05BITS;              _UPLINE BLOCK SIZE         ?
  
          BSSTSTOP  : BOOLEAN;              _STREAM STOPPED FLAG       ?
          BSINOP    : BOOLEAN;              _TERMINAL INOPERATIVE      ?
          BSRC      : B03BITS;              _CONNECTION RESPONSE CODE  ?
          BSDBZ     : B011BITS;             _NOT IMPLEMENTED           ?
  
          BSALIMIT  : INTEGER;              _BATCH OUTPUT FILE LIMIT   ?
          BSACTH16  : INTEGER;              _ACCOUNTING DATA (UPPER 16)?
  
          BSACTL8   : B08BITS;              _ACCOUNTING DATA (LOWER 8) ?
          BSSUBDT   : B04BITS;              _SUB-DEVICE TYPE           ?
          BSLACEC   : BOOLEAN;              _PUNCH LACE CARD           ?
          BSLIMC    : BOOLEAN;              _PUNCH LIMIT CARD          ?
          BSFTYPE   : B02BITS;              _BATCH FILE TYPE           ?
  
          BSSUPCC   : BOOLEAN;              _SUPPRESS CARRIAGE CONTROL ?
          BSHADON   : BOOLEAN;              _H.A.D. RECEIVER FLAG      ?
          BSLOCK    : BOOLEAN;              _LOCK-OUT KEYBOARD         ?
          BSCNTIMER : BOOLEAN;              _SVM TIMER OUTSTANDING     ?
          BSDELTCB  : BOOLEAN;              _TCB TO BE DELETED         ?
          BSXWEPAY  : BOOLEAN;              _X25 REVERSE CHARGES       ?
          BSRIC     : BOOLEAN;              _RESTRICTED CAPACITY *RBF* ?
          BSWTOMRK  : BOOLEAN;              _WAITING FOR TERMOUT MARKER?
          BSPACER   : B08BITS;              _PACER PROMPT CHARACTER    ?
  
          BSCKCAN   : BOOLEAN;              _CHECK FOR A CANCEL        ?
          BSISYNC   : BOOLEAN;              _SYNCHRONIZE INPUT         ?
          BSISSENT  : BOOLEAN;              _SYNC INPUT SENT           ?
          BSDBL     : B03BITS;              _DOWNLINE BLOCK LIMIT      ?
          BSNINCP   : BOOLEAN;              _NO CP AFTER NEXT INPUT    ?
          BSSP7     : B07BITS;              _SPARE                     ?
          BSHCIN    : BOOLEAN;              _PROCESSING HC COMMAND     ?
          BSXB12    : BOOLEAN;              _BREAK 1 AND 2 IN XPT      ?
_ 
*              ---- TIP DEPENDENT OVERLAY FIELDS
? 
          CASE BSCASE : INTEGER OF
_ 
*              * *  M L I A   H A N D L E R   * * 
? 
            1: (BSCEMI  : BOOLEAN;     _ ERROR NOTE ISSUED             ?
                BSWRKCD : SBMLWK;      _ PROCESS STATE WORKCODE        ?
                BSCONB  : INTEGER;     _ CONDITION B COUNTER           ?
                BSCONC  : INTEGER;     _ CONDITION C COUNTER           ?
                BSCOND  : INTEGER);    _ CONDITION D COUNTER           ?
*CALL TYPETCB 
          END;
_$J+? 
*CALL THIPD1
*IF DEF,HLIP,1
*CALL TYP1HLIP
_$J+? 
                                                         _ 06/15/76 ? 
               _ # MUX LINE CONTROL BLOCK # ? 
  
_              THE MUX LINE CONTROL BLOCK IS A 16 WORD DYNAMICALLY
               ALLOCATED BUFFER OBTAINED AND RELEASED AS A RESULT 
               OF REQUESTS ISSUED BY TERMINAL INTERFACE PACKAGES. 
               THE LINE CONTROL BLOCK DEFINES THE PROCESSING FUNCTIONS
               TO BE PROVIDED BY THE MUX.  FOR A GIVEN COMMUNICATIONS 
               LINE, THERE IS ONE LINE CONTROL BLOCK FOR EACH ENABLED 
               LINE.
? 
NCLCB = PACKED RECORD CASE NCTAG : INTEGER OF 
  
        1: (NCEOBL     : BOOLEAN;      _ END OF BLOCK FLAG             ?
            NCBUFCLA   : BOOLEAN;      _BUFFERED CLA FLAG              ?
            NCEOS      : BOOLEAN;      _ODD END OF SOURCE FLAG         ?
            NCNXCCA    : BOOLEAN;      _LEFT RIGHT SOURCE FLAG         ?
            NCCRST     : B04BITS;      _ODD CRC STATE                  ?
            NCOCHR     : CHAR;         _ NEXT OUTPUT CHARACTER         ?
            NCSUPCHAIN : BOOLEAN;      _ SUPPRESS BUFFER CHAINING      ?
            NCOBT      : BOOLEAN;      _ GENERATE OBT FLAG             ?
            NCBZL      : BOOLEAN;      _ RESET TIMER FLAG              ?
            NCTIME     : B05BITS;      _ MUX TIMER                     ?
            NCOBLCD    : B08BITS;      _ LCD OF OUTPUT BUFFER          ?
            NCOBP      : B0BUFPTR;     _ OUTPUT BUFFER POINTER         ?
            NCRINCH    : BOOLEAN;      _ INPUT CHAR IN RIGHT BYTE      ?
            NCCAREC    : BOOLEAN;      _ CHARACTER RECEIVED FLAG       ?
            NCRIGHTC   : BOOLEAN;      _ LEFT/RIGHT SOURCE FLAG        ?
            NCINPRO    : BOOLEAN;      _ INPUT MESSAGE IN PROGRESS     ?
            NCNOXL     : BOOLEAN;      _ CODE TRANSLATE ACTIVE         ?
            NCRPRT     : BOOLEAN;      _ STRIP PARITY BIT FLAG         ?
            NCSCF      : BOOLEAN;      _ TP SUPPRESS CHAIN FLAG        ?
            NCLASTCH   : BOOLEAN;      _ TP SOURCE LCD REACHED         ?
            NCEOSR     : BOOLEAN;      _ TP END OF SOURCE REACHED      ?
            NCSP3      : BOOLEAN;      _ SPARE                         ?
            NCISTAI    : B06BITS;      _ INPUT STATE PROGRAM INDEX     ?
            NCCNTL     : B08BITS;      _ CHARACTER COUNT LIMIT         ?
            NCCNT1     : B08BITS;      _ CHARACTER COUNTER ONE         ?
            NCISPTA    : INTEGER;      _ INPUT STATE POINTER TBL ADDR  ?
            NCIBP      : B0BUFPTR;     _ INPUT BUFFER POINTER          ?
            NCUOP1     : BOOLEAN;      _ USER OPTIONAL FLAG 1          ?
            NCUOP2     : BOOLEAN;      _ USER OPTIONAL FLAG 2          ?
            NCUOP3     : BOOLEAN;      _ USER OPTIONAL FLAG 3          ?
            NCUOP4     : BOOLEAN;      _ USER OPTIONAL FLAG 4          ?
            NCUOP5     : BOOLEAN;      _ USER OPTIONAL FLAG 5          ?
            NCUOP6     : BOOLEAN;      _ USER OPTIONAL FLAG 6          ?
            NCUOP7     : BOOLEAN;      _ USER OPTIONAL FLAG 7          ?
            NCUOP8     : BOOLEAN;      _ USER OPTIONAL FLAG 8          ?
            NCETX      : BOOLEAN;      _ DELAYED ETX WL GENERATION FLAG?
            NCMRTO     : BOOLEAN;      _ MODEM RESPONSE TIMEOUT FLAG   ?
            NCUOPB     : BOOLEAN;      _ ADDITIONAL USER OPTION FLAG   ?
            NCUOPC     : BOOLEAN;      _ USER OPTIONAL FLAG 12         ?
            NCCRCP     : B04BITS;      _ CRC POLYNOMIAL                ?
            NCSCHR     : CHAR;         _ SPECIAL CHARACTER NUMBER 1    ?
            NCIBFCD    : B08BITS;      _ FCD OF INPUT BUFFER           ?
            NCCRCS     : INTEGER;      _ CRC ACCUMULATION              ?
            NCCNT2     : INTEGER;      _ CHARACTER COUNT TWO           ?
            NCBLKL     : INTEGER;      _ CHARACTER COUNT TWO LIMIT     ?
            NCCXLTA    : INTEGER;      _ CODE TRANSLATE TABLE ADDRESS  ?
            NCSCBA     : B0BUFPTR;     _ FIRST BUFFER OF BLOCK ADDRESS ?
            NCBLCNT    : B08BITS;      _ BUFFERS ALLOCATED COUNTER     ?
            NCSVWL     : B08BITS;      _ SAVED WORKCODE VALUE          ?
            NCS2CHR    : CHAR;         _ SPECIAL CHARACTER NUMBER 2    ?
            NCS3CHR    : CHAR);        _ SPECIAL CHARACTER NUMBER 3    ?
  
        2: (NCARRY     : ARRAY[1..16]  _ INTEGER REFFERENCES           ?
            OF INTEGER);               _                               ?
  
        3: (NCWD0      : INTEGER;      _ DUMMY                         ?
            NCWD1      : INTEGER;      _ DUMMY                         ?
            NCWD2      : INTEGER;      _ DUMMY                         ?
            NCWD3      : INTEGER;       _ DUMMY                        ?
            NCWD4      : INTEGER;      _ DUMMY                         ?
            NCWD5      : INTEGER;      _ DUMMY                         ?
            NCWD6      : INTEGER;      _ DUMMY                         ?
            NCUOPS     : B08BITS;      _ USER OPTION FLAGS LUMPED      ?
            NCDM0M2    : B08BITS);     _ DUMMY                         ?
  
        4: (NCLCDFCD   : INTEGER; 
            NCDUM2     : INTEGER; 
            NCSBP      : B0BUFPTR;          _ SOURCE BUFFER POINTER.   ?
            NCDCRB     : BOOLEAN;           _ DEST. CHAR IN RT. BYTE   ?
            NCFFLGS    : B09BITS;           _ TP FIRM. SOURCE FLAGS MSK?
            NCSTAI     : B06BITS;           _ STATE PROGRAM INDEX.     ?
            NCDUM4     : INTEGER; 
            NCSPTA     : INTEGER;           _ STATE POINTER TABLE ADRS.?
            NCDBP      : B0BUFPTR;          _ DESTINATION BUFFER PNTR. ?
            NCDUM5     : INTEGER; 
            NCDUM6     : B08BITS; 
            NCBFCD     : B08BITS;           _ BUFFER FCD.              ?
            NCDUM7     : INTEGER; 
            NCDUM8     : INTEGER; 
            NCDUM9     : INTEGER; 
            NCDUMA     : INTEGER; 
            NCFDBA     : B0BUFPTR;          _ FIRST DESTNTN BFR ADRS.  ?
            NCDUMB     : INTEGER; 
            NCDUMC     : INTEGER; 
            NCDUMD     : INTEGER; 
            NCDUME     : B08BITS; 
            NCRCHAR    : CHAR;               _ RIGHT CHARACTER         ?
            NCFSBA     : B0BUFPTR);         _ FIRST SOURCE BFR ADRS.   ?
  
        5: (NCTPML     : ARRAY[0..15] OF INTEGER;  _ MUXLCB ARRAY     ? 
            NCTPF1     : ARRAY[0..15] OF INTEGER); _ TP FILE 1 RGSTRS ? 
*CALL TYPENCLCB 
*IF DEF,BSC,1 
*CALL BSCTPCB 
*IF DEF,X25,1 
*CALL PADTPCB 
        END;
  
                 _ #ARRAY OF MUX LINE CONTROL BLOCKS# ? 
_?
      N0MUXSIZE = ARRAY [1..C4LMUX] OF INTEGER;                          CC4
      N0MUXLCB = ARRAY [1..2] OF N0MUXSIZE;                              CC4
  
                 _ #ARRAY OF MUX CIRCULAR INPUT BUFFER# ? 
      B0CIB    = ARRAY [1..2] OF INTEGER; 
*CALL X25TYP01
*CALL X25LCCB 
_$J+? 
                                                         _ 84/03/21 ? 
_ 
*         M O D E   4   C L U S T E R   C O N T R O L   B L O C K 
  
* * * *   CANNED POLL / CONFIGURATION REQUEST / STATUS REQUEST
? 
BVPLSTS = PACKED RECORD 
          BVHEAD : ARRAY [0..3] OF INTEGER; _LCD,FCD,FLAGS,4 SYNCS,SOH ?
          CASE BVXCASE : INTEGER OF 
          1 : (BVCA        : B08BITS;       _CLUSTER ADDRESS           ?
               BVTA        : B08BITS;       _TERMINAL ADDRESS          ?
               BVMTI       : B08BITS;       _MESSAGE TYPE INDICATOR    ?
               BVETX       : B08BITS);      _ETX                       ?
  
          2 : (BVCATA      : INTEGER);      _CLUSTER AND TERMINAL ADDR ?
  
          3 : (BVSET       : SETWORD);      _CA/TA ADDRESS SET         ?
  
          4 : (BVAR1       : B04BITS;       _DUMMY FOR AUTO-REC        ?
               BVARCA      : B04BITS;       _AUTO-REC CLUSTER ADDRESS  ?
               BVAR2       : B08BITS);      _DUMMY FOR AUTO-REC        ?
  
          5 : (BVTG1       : B011BITS;      _FORCE CORRECT BIT         ?
               BVTOG       : BOOLEAN;       _CLUSTER TOGGLE BIT        ?
               BVTG2       : B04BITS);      _FORCE CORRECT BIT         ?
          END;
_ 
* * * *   CLUSTER CONTROL BLOCK   ( C C B ) 
? 
BVCCBLK = PACKED RECORD 
          BVCANNED      : BVPLSTS;          _POLL/STATUS/CONFIGURATION ?
          BVTCBPTR      : B0BUFPTR;         _PTR TO 1ST TCB ON CLUSTER ?
          BVCURTCB      : B0BUFPTR;         _PTR TO CURRENT TCB        ?
          BVTIMER       : INTEGER;          _POLL / STATUS TIMER       ?
          BVSLOWTIMER   : INTEGER;          _SLOW / FAST POLL TIMER    ?
          BVRETCALLIO   : INTEGER;          _RETURN ADDR OF I/O CALLER ?
          BVRETRESERVED : INTEGER;          _RETURN ADDR OF RESERVATION?
          BVRETWRITERR  : INTEGER;          _RETURN ADDR WRITE RECOVERY?
  
          CASE BVYCASE : INTEGER OF 
  
          1 : (BVCRON        : BOOLEAN;     _MODE 4A CARD READER ON    ?
               BVCRWAIT      : BOOLEAN;     _MODE 4A CARD READER WAIT  ?
               BVLPON        : BOOLEAN;     _MODE 4A LINE PRINTER ON   ?
               BVLPWAIT      : BOOLEAN;     _MODE 4A LINE PRINTER WAIT ?
               BVBATCH       : BOOLEAN;     _MODE 4A IN BATCH MODE     ?
               BVJOBCARD     : BOOLEAN;     _MODE 4A CR EXPECTING JOB  ?
               BVBIREQD      : BOOLEAN;     _MODE 4A BATCH INTERRUPT RQ?
               BVM4A         : BOOLEAN;     _MODE 4A CLUSTER           ?
               BVM4C         : BOOLEAN;     _MODE 4C CLUSTER           ?
               BVTYPEKNOWN   : BOOLEAN;     _MODE 4B/4C TYPE KNOWN     ?
               BVRESERVED    : BOOLEAN;     _RESERVED BY A DEVICE      ?
               BVTOGLASTWRT  : BOOLEAN;     _TOGGLE BIT LAST GOOD WRITE?
               BVTOGKNOWN    : BOOLEAN;     _TOGGLE BIT KNOWN          ?
               BVSTATE       : B03BITS;     _CLUSTER STATE             ?
               BVIOTYPE      : B05BITS;     _LAST TYPE OF I/O DONE     ?
               BVIOWRITERR   : B05BITS;     _SAVED I/O TYPE WRITE ERROR?
               BVERRCOUNT    : B06BITS;     _ERROR COUNTER             ?
               BVCCBPTR      : B0BUFPTR);   _POINTER TO NEXT CCB       ?
  
          2 : (BVBTCHFLGS    : B06BITS;     _MODE4A BATCH FLAGS        ?
               BVDUM3        : B010BITS);   _FORCE TO UPPER BITS       ?
  
          3 : (BVCRFLGS      : B02BITS;     _MODE 4A CARD READER FLAGS ?
               BVLPFLGS      : B02BITS;     _MODE 4A LINE PRINTER FLAGS?
               BVDUM4        : B012BITS);   _FORCE TO UPPER BITS       ?
  
          END;
_$J+? 
                                                         _ 06/12/74 ? 
                _ #SYSTEM BUFFER# ? 
_ 
BBBBBB    00000   BBBBBB   U     U  FFFFFFF  FFFFFFF  EEEEEEE  RRRRRR 
B     B  0     0  B     B  U     U  F        F        E        R     R
B     B  0     0  B     B  U     U  F        F        E        R     R
BBBBBB   0     0  BBBBBB   U     U  FFFFFFF  FFFFFFF  EEEEEEE  RRRRRR 
B     B  0     0  B     B  U     U  F        F        E        R   R
B     B  0     0  B     B  U     U  F        F        E        R    R 
BBBBBB    00000   BBBBBB   UUUUUUU  F        F        EEEEEEE  R     R
? 
  
       _ SYSTEM BUFFERS EXIST IN FOUR SIZES AS DEFINED  ? 
       _ BY B0BUFSIZES . BUFFERS ARE USED FOR A VARIETY ? 
       _ OF PURPOSES AS DESCRIBED BY THE FOLLOWING      ? 
       _ OVERLAY DEFINITIONS                            ? 
     B0BUFFER =                                                          UPDATES
       PACKED RECORD                                                     UPDATES
       CASE B0CASE : INTEGER OF                                          UPDATES
       0:(                                  _DATA BUFFER               ? UPDATES
         BFLCD,                             _LAST CHAR OF DATA         ? UPDATES
         BFFCD : B08BITS;                   _FIRST CHAR OF DATA        ? UPDATES
         BFEOTFLG,                          _END OF XMISSION BFR       ? UPDATES
         BFSOTT,                            _START OF TRANSPARENT TEXT ? UPDATES
         BFSONT,                            _START OF NON-XPARENT TEXT ? UPDATES
         BFSUPCHAIN,                        _SUPPRESS BFR CHAINING     ? UPDATES
         BFEOBFLG,                          _END-OF-BLOCK BFR          ? UPDATES
         BFINTBLK,                          _INTERNAL BLK- DO NOT BACK ? UPDATES
         BFPRTK,                            _BUFFER PROTECT            ? UPDATES
         BFPERM,                            _PERMANENT BUFFER          ? UPDATES
         BFLNKQ,                            _BUFFER IN LINK Q OR FRAME ?
         BFPMMSG,                           _ PM MESSAGE IN BUFFER     ?
         BFEOI,                             _ EOI BLOCK                ?
         BFEOR,                             _ EOR BLOCK                ?
         BFXPT,                             _ TRANSPARENT DATA         ?
         BFPARITY : BOOLEAN;                _ PARITY ERROR IN BLOCK    ?
         BFSP1    : B01BIT;                 _ SPARE                    ?
         BFDBSIZE : BOOLEAN;                _SMALL(0),LARGE(1) DATA BFR? UPDATES
         BFDATAC : PACKED ARRAY             _DATA PORTION OF BUFFER    ? UPDATES
                     [J1DATAFRST..J1LSTCHAR] OF CHAR);
     _ OVERLAY FOR TIP RESERVED FLAGS                                  ? UPDATES
         1:(                                _MODE4 TIP FLAGS           ? UPDATES
           BFFIL1 : INTEGER;                _FILL                      ? UPDATES
           BFFIL2 : B012BITS;               _FILL                      ? UPDATES
           CASE B0SUBCASE : INTEGER OF                                   UPDATES
*CALL TYPEBUF 
             1: (BFBCCOK,                   _BCC IN AND OK (3270)      ? UPDATES
                 BFNOTABRTPKT,              _INPUT STATE PGM TERM      ? UPDATES
                 BFVRCBAD : BOOLEAN;        _VRC ERROR IN PACKET       ? UPDATES
                 BF32D3 : B01BITS);         _FILL                      ? UPDATES
             2: (BFFORMAT : BOOLEAN;        _CONSOLE FORMAT FLG        ? UPDATES
                 BFTEXT : BOOLEAN;          _CONSOLE TEXT FLG          ?
                 BFCNSLFIL : B02BITS);      _FILL                      ?
             );                                                          UPDATES
         2:(                                _INTEGER OVERLAY           ? UPDATES
           BIINT : ARRAY [1..J1BLMAX] OF INTEGER);                       31OCT75
         3:(                                _BFR CHAINING OVERLAY      ? UPDATES
           BCCHAINS : ARRAY [1..J1BLMAX] OF B0BUFPTR);                   31OCT75
         4:(                                _TERMINAL CONTROL BLOCK    ? UPDATES
           BSTCB : BSTCBLK);                                             UPDATES
         5:(                                _PHYSICAL I/O REQUEST PKT  ? UPDATES
           BCPRP : JCPACKET);                                            UPDATES
         6:(                                _ACTIVE TTY LCB LIST       ? UPDATES
           NELED : INTEGER;                 _LAST ENTRY INDEX          ? UPDATES
           NEENTRY : ARRAY [1..7] OF                                     UPDATES
                     RECORD                                              UPDATES
                       NELINO : INTEGER;    _LINE NUMBER               ? UPDATES
                       NELCBP : N0LCBP;     _MUX LCB POINTER           ? UPDATES
                     END;                                                UPDATES
           NECHAIN : B0BUFPTR);             _CHAIN TO NEXT BUFFER      ? UPDATES
         8:(                                _TYPE 1 TABLE ENTRY        ?
           BRTYP1  : BRDIRCTRY);
         9:(                                _TYPE 4 TABLE              ?
           CECOUNT : INTEGER;               _LAST ENTRY INDEX          ?
           CEENTRY : ARRAY [1..7] OF BRDIRCTRY);
         10:(                               _LOGICAL LINK CONTROL BLK  ? UPDATES
           BLLLCB : BLLCB);                                              UPDATES
        11:( _ TIMEOUT BUFFER  ?
           CASE B0SCASE : INTEGER OF
           0:(BFTREL    : BOOLEAN;          _ RELEASE BUFFER FLAG      ?
              BFTUSR    : B07BITS;          _ USER BITS                ?
              BFTWKCOD  : B08BITS;          _ WORKCODE                 ?
              BFTLINO   : B0LINO;           _ LINE NUMBER              ?
              BFTWLINDX : B0WKLSTS;         _ WORKLIST INDEX           ?
              BFTSP1    : B01BIT;           _ SPARE                    ?
              BFTOVAL   : B015BITS;         _ TIMEOUT VALUE (100 MS)   ?
              BFTCHAIN  : B0BUFPTR);        _ BUFFER CHAIN POINTER     ?
           1:(BFTDM1    : B03BITS;          _ DUMMY                    ?
              BFTSCI    : M0SCTYP;          _ STATUS TYPE INDICATOR    ?
              BFTDM2    : B08BITS);         _ DUMMY                    ?
            );
        12: (BZDCB : NZDCB);                _ DIAGNOSTIC CONTROL BLOCK ?
        13: (BGMLCB : NCLCB) ;              _ MUX LINE CONTROL BLOCK   ?
        14: (                               _ TYPE 3 TABLE             ?
             BRTYP3  : BRHSTABLE);
        15: (                               _LINE CONTROL BLOCK        ?
             BZZLCB : BZLCB); 
        16: (LCCB    : LCCBLK);             _LCCB VARIANT              ?
        17: (BZXSLCB : BZX25SLCB);          _X25 SUB LCB VARIANT       ?
*CALL TYPEB0BUF 
       END;                                                              UPDATES
_$J+? 
                                                          _05-02-74?
                  _#CANNED MESSAGE TYPES#?
     J0ML3  = PACKED ARRAY [0..3]  OF CHAR; 
     J0ML5  = PACKED ARRAY [0..5]  OF CHAR; 
     J0ML6  = PACKED ARRAY [0..6]  OF CHAR; 
     J0ML7  = PACKED ARRAY [0..7]  OF CHAR; 
     J0ML10 = PACKED ARRAY [0..10] OF CHAR; 
     J0ML11 = PACKED ARRAY [0..11] OF CHAR; 
     J0ML13 = PACKED ARRAY [0..13] OF CHAR; 
     J0ML14 = PACKED ARRAY [0..14] OF CHAR; 
     J0ML18 = PACKED ARRAY [0..18] OF CHAR; 
     J0ML19 = PACKED ARRAY [0..19] OF CHAR; 
     J0ML20 = PACKED ARRAY [0..20] OF CHAR; 
     J0ML21 = PACKED ARRAY [0..21] OF CHAR; 
     J0ML23 = PACKED ARRAY [0..23] OF CHAR; 
     J0ML28 = PACKED ARRAY [0..28] OF CHAR; 
                  _#18-BIT ADDRESS FUNCTION CODES#? 
     J018BITS = (J0LOAD,                    _LOAD MEMORY               ?
                 J0GET,                     _READ MEMORY               ?
                 J0CLRP,                    _CLEAR PROTECT BIT         ?
                 J0SETP,                    _SET PROTECT BIT           ?
                 J0XFORM);                  _GET 18-BIT ADDRESS        ?
                  _#18-BIT ADDRESS COMPARISON CODES#? 
     J018COMP = (J0EQ,                      _ = ? 
                 J0NE,                      _ " ? 
                 J0GR,                      _ > ? 
                 J0GRE,                     _ \ ? 
                 J0LT,                      _ < ? 
                 J0LTE);                    _ @ ? 
                  _#ADDRESS COMPARISON#?
     J0COMPADDR = (J0PPP,J0PPN,J0PNP,J0NPP,J0PNN,J0NPN,J0NNP,J0NNN);
                  _#BREAKPOINT TABLE ENTRY#?
     JEENTRY   = RECORD 
                   JEBEGINADDR,        _BEGIN ADDRESS?
                   JEENDADDR:B018BITS; _END ADDRESS?
                   JEBPCODE : INTEGER  _BREAKPOINT CODE?
                   JEPARAM : ARRAY     _BREAKPOINT PARAMETERS          ?
                             [1..5] OF B018BITS;
                 END; 
                  _#SNAP TABLE ENTRY#?
     JFSNPENTRY = RECORD
                    JFBEGINADDR,         _BEGIN ADDRESS?
                    JFENDADDR:B018BITS;  _END ADDRESS?
                  END;
                  _#TUP MESSAGE PARAMETER ENTRY#? 
     JVTUPARAM=RECORD 
                 JVLSTFLG : BOOLEAN;        _LAST PARAMETER FLAG       ?
                 CASE X : INTEGER OF
                   0: (JVFILL,
                       JVWORD : B0OVERLAY); _16-BIT WORD               ?
                   1: (JV18BITS : B018BITS);_18-BIT ADDRESS            ?
               END; 
                  _#BREAKPOINT TABLE#?
     JEBREAKTABLE = RECORD
                      JEREGSAVE : B0REGPTR; 
                      JERTNADDR : B0INTPTR; 
                      JESAVEAREA : ARRAY [1..16] OF B0REGSAVE;
                      JEBPENTRY : ARRAY [1..J1BREAKMAX] OF JEENTRY
                    END;
                  _#SNAPSHOT TABLE#?
     JFSNAPTABLE  = ARRAY [1..J1SNAPMAX] OF JFSNPENTRY; 
                  _#WRAP AROUND SNAP TABLE#?
     JFWRAP = RECORD
                JFWAREA,                    _CURRENT WRAP ADDRESS      ?
                JFWBASE,                    _WRAP AREA START ADDR      ?
                JFWEND : B018BITS;          _WRAP AREA END ADDR        ?
              END;
  
                  _#TUP TABLE#? 
     JUTESTUTILITYPACKAG =
       RECORD 
         JUTUPFLG,              _TUP MODE?
         JUNEEDFLG,             _READY FOR TUP OUTPUT?
         JUMSGINFLG,            _TUP MESSAGE IN?
         JUDPCFLG,              _DUMP TO TTY? 
         JUDPLFLG,              _DUMP TO ASSIGNED TUP DUMP DEVICE?
         JU16WDS,               _FALSE = 32 WDS/LINE ON LINE PRINTER? 
         JUTPINPROGFLG,         _TUP OUTPUT IN-PROGRESS?
         JUHLTFLG,              _MEMORY HALT? 
         JUSHLTFLG : BOOLEAN;   _SYSTEM HALT? 
         JUTUPIN,               _PTR TO TUP INPUT BUFFER? 
         JUTUPOUT,              _PTR TO TUP OUTPUT BUFFER?
         JUPRPIN,               _PTR TO TUP INPUT PRP?
         JUPRPOUT : B0BUFPTR;   _PTR TO TUP OUTPUT PRP? 
         JULRPIN,               _TUP INPUT LRP? 
         JULRPOUT : JCPACKET;   _TUP OUTPUT LRP?
         JULHXADDR : B018BITS;  _LOAD ADDRESS FOR LHX?
         JUTEMP : B0OVERLAY;    _WORK AREA? 
         JUREGSAVE : B0REGPTR;  _PTR TO TUP REGISTER SAVE AREA? 
         JUTREGS : B0REGSAVE;   _TUP REG SAVE AREA? 
         JUPARAM : ARRAY [0..7] OF JVTUPARAM;  _TUP MESSAGE PARAMS? 
       END; 
_$J+? 
                                                         _ 06/15/76 ? 
                 _ # TERMINAL CHARACTERISTICS TABLE ENTRY # ? 
_ 
               THE TERMINAL CHARACTERISTICS TABLE CONTAINS
               PARAMETERS WHICH DEFINE THE SPECIAL PROCESSING 
               CHARACTERISTICS OF A GIVEN TERMINAL TYPE.
? 
NJTECY = PACKED RECORD CASE NJTAG : INTEGER OF
  
           1:  (
                NJISPTA     : INTEGER;      _INPUT STATE PTR TABLE ADDR?
                NJSYNC      : B08BITS;      _SYNCHRONIZATION CHARACTER ?
                NJCNT1      : B08BITS;      _CHARACTER COUNT 1         ?
                NJCRCP      : B04BITS;      _CRC POLYNOMIAL INDEX      ?
                NJBLKL      : B012BITS;     _CHARACTER COUNT 2         ?
                NJIBFCD     : B06BITS;      _FCD OF FIRST BUFFER       ?
                NJTIPTY     : N0TIPTY;      _TIP TYPE                  ?
                NJCXLTA     : INTEGER;      _CODE TRANSLATE TABLE ADDR ?
                NJLPPW      : B08BITS;      _LINE PRINTER PAGE WIDTH   ?
                NJLPPL      : B08BITS;      _LINE PRINTER PAGE LENGTH  ?
_ 
*              ---- I V T   P A R A M E T E R S   ----
*                   THE FOLLOWING FIELDS MUST START ON A WORD BOUNDARY
? 
                NJPGWIDTH   : B08BITS;      _PAGE WIDTH                ?
                NJPGLENGTH  : B08BITS;      _PAGE LENGTH               ?
  
                NJPGWAIT    : BOOLEAN;      _PAGE WAIT MODE FLAG       ?
                NJCANCHAR   : B07BITS;      _CANCEL INPUT LINE CHAR    ?
                NJFLASCII   : BOOLEAN;      _FULL ASCII INPUT MODE     ?
                NJCNTRLCHAR : B07BITS;      _IVT CONTROL CHARACTER     ?
  
                NJXPT       : BOOLEAN;      _NONTRANSPARENT/TRANSPARENT?
                NJUSR1      : B07BITS;      _USER BREAK 1 CHARACTER    ?
                NJMXPT      : BOOLEAN;      _SINGLE/MULTI MSG XPARENT  ?
                NJUSR2      : B07BITS;      _USER BREAK 2 CHARACTER    ?
  
                NJINDEV     : B02BITS;      _INPUT DEVICE  (KB,PT,BK)  ?
                NJELCHAR    : B07BITS;      _END OF LINE CHARACTER     ?
                NJEBCHAR    : B07BITS;      _END OF BLOCK CHARACTER    ?
  
                NJXCHAR     : B08BITS;      _XPARENT DELIMITER CHAR    ?
                NJXDBTIM    : BOOLEAN;      _XPARENT DELIMITER BY TIME ?
                NJXDBCHAR   : BOOLEAN;      _XPARENT DELIMITER BY CHAR ?
                NJPARITY    : B04BITS;      _PARITY FIELD, INCLUDES    ?
                                            _              CLA PARITY  ?
                NJCHLEN     : B02BITS;      _CHARACTER LENGTH FOR CLA  ?
  
                NJCPEB      : B02BITS;      _EOB CURSOR POS (CR/LF/CL) ?
                NJCPEL      : B02BITS;      _EOL CURSOR POS (CR/LF/CL) ?
                NJXCNT      : B012BITS;     _XPARENT CHARACTER COUNT   ?
  
      _ # REMAINDER OF IVT PORTION IS OVERLAIDED BY BVT VARAINT # ? 
  
                NJRGLIN     : BOOLEAN;      _XON/XOFF INPUT CONTROL    ?
                NJBSCHAR    : B07BITS;      _BACKSPACE CHARACTER       ?
                NJRGLOUT    : BOOLEAN;      _XON/XOFF OUTPUT CONTROL   ?
                NJABTBLK    : B07BITS;      _ABORT OUTPUT BLOCK        ?
  
                NJCURPOS    : BOOLEAN;      _CURSOR POSITIONING        ?
                NJBRUSR1    : BOOLEAN;      _TREAT BREAK AS USER BREAK1?
                NJSPEDIT    : BOOLEAN;      _SPECIAL EDIT MODE         ?
                NJECHOPLEX  : BOOLEAN;      _ASYNC ECHOPLEX MODE       ?
                NJOUTDEV    : B02BITS;      _OUTPUT DEVICE (PR,DSP,PT) ?
                NJAUREC     : BOOLEAN;      _ AUTO CODE SET REC        ?
                NJFLDPLX    : BOOLEAN;      _FULL DUPLEX PLATO SUPPORT ?
                NJMXCHAR    : B08BITS;      _MULTI MSG XPT DELIMITER   ?
  
                NJXSTIME    : BOOLEAN;      _STICKY TIMEOUT            ?
                NJSP15      : B015BITS;     _15 BITS SPARE             ?
  
                NJCRCALC    : BOOLEAN;      _CALCULATE CR IDLE COUNT   ?
                NJCRIDLES   : 0..99;        _CR IDLE COUNT             ?
                NJLFCALC    : BOOLEAN;      _CALCULATE LF IDLE COUNT   ?
                NJLFIDLES   : 0..99);       _LF IDLE COUNT             ?
  
           2:  (
                NJARRY      : ARRAY [1..15] _REDEFINITION TO MOVE IVT  ?
                              OF INTEGER);  _PARAMETERS INTO TCB       ?
  
         END;  _ NJTECY ? 
_$J+? 
                                                         _ 08/08/75 ? 
                _ #MUX CLA CMD STATUS TABLE ENTRY#? 
_*                                                                     ?
_ THE CLA COMMAND STATUS TABLE REFLECTS THE CURRENT COMMAND STATUS OF  ?
_ EACH CLA. IT CONTAINS THE CUMULATIVE HISTORY OF ALL PHYSICAL COMMANDS?
_ SENT TO EACH CLA.                                                    ?
_*                                                                     ?
      NFCCSE=PACKED RECORD CASE NFTAG:INTEGER OF
           1:(NFW1B7,                  _THIS OVERLAY ASSIGNES A NAME   ?
              NFW1B6,                  _TO EACH BIT IN EACH BYTE, IT   ?
              NFW1B5,                  _IS COMMON TO ALL CLA TYPES,AND ?
              NFW1B4,                  _IT IS USED TO SET AND CLEAR    ?
              NFW1B3,                  _INDIVIDUAL BITS IN THE CLAS    ?
              NFW1B2, 
              NFW1B1, 
              NFW1B0, 
              NFW2B7, 
              NFW2B6, 
              NFW2B5, 
              NFW2B4, 
              NFW2B3, 
              NFW2B2, 
              NFW2B1, 
              NFW2B0, 
              NFW3B7, 
              NFW3B6, 
              NFW3B5, 
              NFW3B4, 
              NFW3B3, 
              NFW3B2, 
              NFW3B1, 
              NFW3B0, 
              NFW4B7, 
              NFW4B6, 
              NFW4B5, 
              NFW4B4, 
              NFW4B3, 
              NFW4B2, 
              NFW4B1, 
              NFW4B0:BOOLEAN);
           2:(NFDM0:B013BITS;               _THIS OVERLAY DEFINES BITS ?
              NFXCNT:B03BITS);              _PERTAINING TO SDLC CLA    ?
_*                                                                     ?
           3:(NFINT1,                  _THIS OVERLAY ASSIGNES A NAME TO?
              NFINT2:INTEGER);         _EACH WHOLE WORD,IT IS COMMON TO?
                                       _ALL CLA TYPES AND IT IS USED   ?
                                       _WHEN CLEARING THE TABLE        ?
_*                                                                     ?
           4:(NFDM1:B012BITS;          _THIS OVERLAY DEFINES FIELDS    ?
                                       _PERTAINING TO THE ASYNC.CLA    ?
              NFARSR,                  _RECEIVE SPEED RANGE            ?
              NFATSR,                  _TRANSMIT SPEED RANGE           ?
              NFAPARY,                 _PARITY                         ?
              NFACHLEN:B02BITS;        _CHARACTER LENGTH               ?
              NFSTOP:N0STOP;           _STOP BIT                       ?
              NFDM2,                   _DUMY                           ?
              NFECHO,                  _ECHOPLEX MODE                  ?
              NFLBT:BOOLEAN;           _LOOP BACK TEST                 ?
              NFARSPED,                _RECEIVE SPEED                  ?
              NFATSPED:B04BITS);       _TRANSMIT SPEED                 ?
_*                                                                     ?
           5:(NFDM3:B012BITS;          _THIS OVERLAY NAMES FIELDS PERT-?
                                       _AINING TO THE SYNC.CLA ONLY    ?
              NFSPARY,                 _PARITY                         ?
              NFSCHLEN:B02BITS;        _CHARACTER LENGTH               ?
              NFSYCAR,                 _SYNCHRONOUS CHARACTER          ?
              NFDM4:CHAR);             _DUMMY                          ?
           6:(NFCMD1,                  _CLA COMMAND WORDS ONE THROUGH  ?
              NFCMD2,                  _  FOUR                         ?
              NFCMD3, 
              NFCMD4:B08BITS);
           7:(NFSET1, 
              NFSET2: SETWORD); 
           END; 
_$J+? 
                                                         _ 06/15/76 ? 
               _ # MUX PORT TABLE ENTRY # ? 
_ 
               THE MUX PORT TABLE ENTRY DEFINES INFORMATION RELATING
               TO EACH LINE.  THE MUX PORT TABLE IS THE STARTING POINT
               OF THE MUX SUBSYSTEM.  THE MUX SUBSYSTEM ACCESS THE
               MUX PORT TABLE TO OBTAIN MODEM AND CIRCUIT RELATED 
               PARAMETERS NECESSARY TO ESTABLISH THE PROPER COM-
               MUNICATION INTERFACE BETWEEN THE MUX SUBSYSTEM AND 
               A USER COMM. LINE. 
? 
NAPORY = PACKED RECORD CASE NATAG : INTEGER OF
  
         1: (NAION    : BOOLEAN;            _ INPUT  ON FLAG           ?
             NAOON    : BOOLEAN;            _ OUTPUT ON FLAG           ?
             NAISON   : BOOLEAN;            _ INPUT SUPERVISION        ?
            NASTOUT    : BOOLEAN;      _STOP OUTPUT FLAG               ?
             NAISR    : BOOLEAN;            _ CLA STATUS PENDING       ?
             NALTYP   : B05BITS;            _ LINE TYPE                ?
             NAHARDER : BOOLEAN;            _ HARD ERROR IN PROGRESS   ?
             NASPILL  : B05BITS;            _ CLA STATUS COUNT         ?
             NALCBP   : N0LCBP;             _ POINTER TO MUX LCB       ?
             NAOBTCMD : B08BITS;            _ CLA TURNAROUND COMMAND   ?
             NANDCD   : BOOLEAN;            _ DCD DROPPED              ?
             NAMTO    : BOOLEAN;            _ MODEM TIMEOUT IN PROGRESS?
             NARTSCON : BOOLEAN;            _ RTS FLOW CONTROL CONSTANT?
             NADM1    : B01BIT;             _ SPARE                    ?
             NAMSI    : B04BITS;            _ MODEM STATE INDEX        ?
             NAMSPTA  : INTEGER;            _ MODEM STATE POINTER TABLE?
             NAFCCST  : NFCCSE;             _ CLA COMMAND STATUS       ?
             NASTAT   : INTEGER;            _ SPARE                    ?
            NACRC      : INTEGER);     _STORAGE FOR ODD PARTIAL CRC    ?
                                            _COUNTER FOR PTLINIT       ?
  
         2: (NAARRY:ARRAY[1..8] OF INTEGER);_ ARRAY FOR CLEARING PORT  ?
  
         3: (NADM3    : B0BUFPTR;           _ SPARE                    ?
             NABFPTR  : B0BUFPTR;           _ BUFFER POINTER OVERLAY   ?
             NADM4    : B09BITS;            _ DUMMY                    ?
             NAFLAGS  : B03BITS;            _ 3 FLAGS LUMPED           ?
             NADM5     : B04BITS);          _ DUMMY                    ?
  
         4: (NAOVERAY : ARRAY[1..8] OF      _ ARRAY FOR GENERAL USE    ?
                        B0OVERLAY); 
  
         5: (NAXX : ARRAY[1..6]OF INTEGER;  _DUMMY ARRAY               ?
             CTS      : BOOLEAN;            _CLEAR TO SEND             ?
             DSR      : BOOLEAN;            _DATA SET READY            ?
             DCD      : BOOLEAN;            _DATA CARRIER DETECT       ?
             RI       : BOOLEAN;            _RING                      ?
             NAXXX    : B012BITS);          _FILL                      ?
         END; 
                                                         _ 06/15/76 ? 
               _ # MUX LINE TYPE TABLE ENTRY # ?
_ 
               THE LINE TYPE TABLE IS AN ARRAY OF ENTERIES.  EACH 
               ENTRY CORRESPONDS TO A LINE TYPE IN THE SYSTEM.  THE 
               LINE TYPE TABLE ENTRY DEFINES THE PHYSICAL CHARACTER-
               ISTICS OF A GIVEN PORT, MODEM AND CIRCUIT. 
? 
NBLTYE = PACKED RECORD CASE NBTAG : INTEGER OF
  
         1: (NBSP1    : B02BITS;       _ SPARE                         ?
             NBTURN   : BOOLEAN;       _ LINE TURNAROUND REQUIRED FLAG ?
             NBDELAY  : BOOLEAN;       _ DELAY LINE TURNAROUND         ?
             NBANSMOD : BOOLEAN;       _ ANSWER MODE (0=AUT0,1=DEDICAT)?
             NBCARR   : BOOLEAN;       _ CARRIER     (0=CONST,1=CNTRLD)?
             NBCIRTYP : BOOLEAN;       _ CKT TYPE    (0=2WIRE,1=4WIRE) ?
             NBMODCLS : B04BITS;       _ MODEM CLASS                   ?
             NBCTYP   : B05BITS;       _ CLA TYPE                      ?
             NBAND    : INTEGER);      _ MASK                          ?
  
         2: (NBINT1   : INTEGER;       _ INTEGER                       ?
             NBINT2   : INTEGER);      _         REFFERENCE            ?
  
         3: (NBWD0    : B0OVERLAY;     _ UNIVERSAL                     ?
             NBWD1    : B0OVERLAY);    _           OVERLAY             ?
  
         4: (NBDM1    : B09BITS;       _ DUMMY                         ?
             NBISR    : BOOLEAN;       _ INPUT STATUS REQUEST          ?
             NBDM2    : B06BITS);      _ DUMMY                         ?
  
         END;   _ NBLTYE  ? 
                                                         _ 06/15/76 ? 
               _ # CONTROL CMD SEQUENCE WORD # ?
  
NDSEQE = PACKED RECORD CASE NDTAG : INTEGER OF
  
         1: (NDDM1  : B08BITS;         _ LEFT BYTE = RIGHT BYTE        ?
             NDSET  : BOOLEAN;         _ SET/RESET FUNCTION FL         ?
             NDCASE : B07BITS);        _ INDEX TO CASE OF MOD/CKT CMDS ?
  
         2: (NDCHAR : CHAR);            _ CHARACTER REFERENCE          ?
  
         3: (NDWORD : B0OVERLAY);      _ UNIVERSAL OVERLAY             ?
  
         END; 
_$J+? 
                                                         _ 08/08/75 ? 
                    _ # A AND Q REGISTER LOAD AREA # ?
_*                                                                     ?
      NGAQLT=PACKED RECORD CASE NGTAG:INTEGER OF
           1:(NGPORT,                  _PORT NUMBER                    ?
              NGCMD:B08BITS);          _COMMAND                        ?
           2:(NGLTYP,                  _LINE TYPE                      ?
              NGCNT:B08BITS);          _SEND COUNT                     ?
           3:(NGINT:INTEGER);          _WHOLE INTEGER WORD             ?
          END;
                                                         _ 83/01/27 ? 
               _ # COMMAND PACKET FOR FIRMWARE INTERFACE # ?
  
      NQMUXCMD = PACKED RECORD
               NQPWD0 : INTEGER;            _PORT AND COMMAND          ?
               NQPWD1 : INTEGER;            _LINE TYPE AND COUNT       ?
               NQPWD2 : INTEGER;            _COMMAND WD 1 AND 2        ?
               NQPWD3 : INTEGER;            _COMMAND WD 3 AND 4        ?
               NQPWD4 : INTEGER;            _CMD 1/2 RESET VALUE       ?
               NQPWD5 : INTEGER;            _CMD 1/2 LINE TYPE RESET   ?
               END; 
                                                         _ 08/08/75 ? 
               _ #INITIALIZATION SEQUENCE AND ERROR TBL# ?
      NPINTYPE = PACKED RECORD
               NPSODD:INTEGER;         _DUPLICATE CLA ADDRESS          ?
               NPISFL:B0FLAGS;         _INIT. COMPLETION SEQ. FLAGS    ?
               NPBMLS:INTEGER;         _BAD MLIA INITIALIZATION STATUS ?
               END; 
_?
                  _#*PROGRAMS CONTROLLED BY PBTIMAL#? 
      C0TDPGMS  =  C0LCBTMSCN..C0SPARE; 
_$J+? 
                                                         _ 83/01/27 ? 
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*                # DATA BLOCK CLARIFIER #                             * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
     DBDBC = PACKED RECORD CASE DBTAG : INTEGER OF
           1:  (DBCHAR  : CHAR);            _CHARACTER OVERLAY         ?
  
           1:  (DBDLF1   : B011BIT;         _SPARE                     ?
                DBDLNCP,                    _CURSOR POS OFF NEXT INPUT ?
                DBDLFE,                     _FORMAT EFFECTORS?
                DBDLXPT,                    _XPARENT   ?
                DBDLNECHO,                  _ECHOPLEX OFF NEXT INPUT   ?
                DBSP1    : BOOLEAN);        _SPARE                     ?
  
           2:  (DBULF1   : B013BITS;
                DBULXPT,                    _XPARENT? 
                DBULCAN,                    _CANCEL?
                DBULPERR:  BOOLEAN);        _PARITY ERR?
  
           6:  (DBBF1    : B09BITS; 
                DBBERI   : B02BITS;         _EOI AND EOR COMBINED      ?
                DBBF2    : B05BITS);
  
           7:  (DBBSPARE : B08BITS;         _ BATCH DBC SPARE          ?
                DBBDATA,                    _ BATCH DATA FLAG          ?
                DBBEOI,                     _ EOI BLOCK                ?
                DBBEOR,                     _ EOR BLOCK                ?
                DBBXPT   : BOOLEAN;         _ TRANSPARENT BATCH DATA   ?
                DBBLEVNO : B04BITS);        _ LEVEL NUMBER OF RECORD   ?
  
           8: (DBDUM2 : B09BITS;            _DUMMY                     ?
               DBEORI : B02BITS;            _EOR/EOI FLAGS             ?
               DBDUM3 : B05BITS);           _DUMMY                     ?
             END; 
                  _#MONITOR TABLES#?
     PGMSKIP = (RUN,SKIP) ;       _RUN/SKIP FLAG                       ?
     SMONT = RECORD 
                 BTTIMER,          _TIMER - CHECKED BY TIMING SVCS.   ? 
                 BTCURSP,          _CURRENT SEGMENT POINTER           ? 
                 BTCURPP,          _CURRENT PROGRAM POINTER           ? 
                 BTMRIX:INTEGER    _LOOP END CHECK INDEX              ? 
             END; 
_?
      CBSYTMT = RECORD
                  CBTIMER,                  _ TIME REMAINING FIELD     ?
                  CBINTVAL,                 _ INTERVAL FIELD           ?
                  CBPADDR,                  _ PROGRAM PAGE ADDRESS     ?
                  CBADDR : INTEGER;         _ PROGRAM ADDRESS          ?
                END;
      HLRANGE = (HLOPS,HLMUX);              _ OPS,MUX LCB SVAE INDEX   ?
                                                      _ 01/03/77 ?
               _ # TIP TYPE TABLE # ? 
_ 
               THIS TABLE CONTAINS ONE ENTRY FOR EACH INTERFACE 
               PACKAGE IN A SYSTEM (TIP,LIP,OR HIP). THE
               LOCAL CONSOLE, MLIA, LINE INITIALIZER, AND ON-LINE 
               DIAGNOSTICS ARE ALSO INCLUDED. 
               THE FIELDS CONTAINED HEREIN ARE UNIQUE TO EACH TIP.
? 
     TIPTYPE = PACKED RECORD
  
           BJOBT      : BOOLEAN;       _ GENERATE CBT FLAG             ?
           BJBZL      : BOOLEAN;       _ RESET TIMER FLAG ON OBT       ?
           BJQTYPE    : B0QPTYPES;     _ TYPE OF QUEUE FOR DATA        ?
           BJIVTSIZE  : B04BITS;       _ NO. WORDS IN TCB/TCT IVT      ?
           BJTCBSIZE  : B0TCBSIZES;    _ TCB BUFFER SIZE               ?
           BJLISTIX   : B0WKLSTS;      _ WORKLIST INDEX                ?
           BJDFTC     : N0TCLASS;      _ DEFAULT TERM CLASS FOR PTENABL?
           BJICRCS    : B04BITS;       _INITIAL CRC STATE              ?
           BJPTIMRTN  : INTEGER;       _ TIP TIMAL ROUTINE - PAGE ADDR ?
           BJETIMRTN  : INTEGER;       _ TIP TIMAL ROUTINE - ENTRY ADDR?
           BJJAT      : ARRAY[N1CON..N1PLOT] OF DFATPTR;
                                            _ TCB ACTION ADDRESSES     ?
           BJAT       : DFATPTR;       _ LCB ACTION TABLE ADDRESS      ?
           BJLIVTBVT  : B0OVERLAY;     _ OFFSET LENGTH OF IVT/BVT AREA ?
           BJTPMUX2   : INTEGER;       _ TIP LEVEL TWO PAGE ADDRESS    ?
           BJTEMUX2   : INTEGER;       _ TIP LEVEL TWO ENTRY ADDRESS   ?
           BJTCBPINIT : INTEGER;       _ TCB INIT ROUTINE PAGE         ?
           BJTCBEINIT : INTEGER;       _ TCB INIT ROUTINE ENTRY        ?
           BJTXTPAGE  : INTEGER;       _ TEXT PROCESSING PAGE          ?
           BJTXTENT   : INTEGER;       _ TEXT PROCESSING ENTRY         ?
           END;  _ BJTIPTYPT  ? 
_$J+? 
_*****************************************
*                                        *
*        SYSTEM INTERFACE TABLE          *
*        TYPES                           *
*                                        *
*****************************************?
_?
      SYLCBP = ARRAY[HLRANGE] OF BZLCBP ; 
      SYLINO = ARRAY[HLRANGE] OF B0LINO ; 
      SYENTY = ARRAY[B0PRILEVEL] OF BWWORKLIST; 
      SYLTYT = ARRAY[N0LTYP,1..NKISR ] OF NBLTYE; 
      SYPRTT = ARRAY[0..1] OF NAPORY; 
      SYTMTB = ARRAY[C0TDPGMS] OF CBSYTMT;
      SYTECT = ARRAY [N0TCLASS] OF NJTECY;
      SYTIMTBL = ARRAY[0..1] OF BZLTIME;
      SYTIPTYPT = ARRAY[N0TIPTYPE] OF TIPTYPE;
_*             INPUT REGULATION OPTIONS FOR PTREGL                     ?
    REGLTYPES = (RELOGLNK,             _LOGICAL LINK REGULATION        ?
                 RELOCAL,              _LOCAL BUFFER LEVELS            ?
                 REABL,                _ALLOWABLE BLOCK LIMIT          ?
                 REACPINP);            _ACCEPT INPUT                   ?
_*                                                                     ?
    REGLSET   = SET OF REGLTYPES; 
_?
_$J+ PAGE EJECT ? 
_***********************************************************************
*                                                                      *
*    THE # BPGSWITCH # USES THIS TABLE TO SWITCH PAGE                  *
*                                                                      *
*        NOTE : THIS TABLE IS ADDED FOR PAGING BASE SYSTEM             *
*               ENHANCEMENT                                            *
*                                                                      *
***********************************************************************?
_?
      B0SWITCH = ARRAY [P1FIRST .. P1LAST] OF INTEGER;
_?
_***********************************************************************
*                                                                      *
*    THE # BRTNJUMP # USES THIS TABLE TO JUMP TO A ROUTINE             *
*    WHICH EXISTS IN A DIFFERENT PAGED AREA FROM THE CALLER.           *
*                                                                      *
*        NOTE : THIS TABLE IS ADDED TO CREATE 8K/PAGE FOR CCP.         *
*                                                                      *
***********************************************************************?
_?
      JUMPTYPE    = RECORD
                      JPAGEVAL : INTEGER;   _A PAGE VALUE FOR A ROUTINE?
                      JENTADDR : INTEGER;   _A ENTRY ADDR FOR A ROUTINE?
                    END;
_?
      PAGEJUMPTBL = ARRAY [C1FIRST .. C1LAST] OF JUMPTYPE;
