*COMDECK CONSTR4
_$J+? 
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           12/07/76  * 
*        # TERMINAL CLASS #                                           * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      N0TMLIA     =   0;     _MLIA                                     ?
      N0M33       =   1;     _ASYNC  - M33,M35,M37,M38                 ?
      N0713       =   2;     _       - CDC 713, 751-1, 752, 756        ?
      N0721       =   3;     _       - CDC 721                         ?
      N02741      =   4;     _       - IBM 2741                        ?
      N0M40       =   5;     _       - M40                             ?
      N0H2000     =   6;     _       - HAZELTINE 2000                  ?
      N0X364      =   7;     _       - X3.64 TYPE TERMINALS            ?
      N0T4014     =   8;     _       - TEXTRONIX 4014                  ?
      N0HASP      =   9;     _HASP   - POST                            ?
      N0200UT     =  10;     _MODE 4 - 200UT, 214                      ?
      N071430     =  11;     _       - 714-30                          ?
      N0711       =  12;     _       - 711-10                          ?
      N0714       =  13;     _       - 714                             ?
      N0HPRE      =  14;     _HASP   - PRE                             ?
      N0734       =  15;     _       - 734                             ?
      N02780      =  16;     _BSC 2780                                 ?
      N03780      =  17;     _BSC 3780                                 ?
      N0327E      =  18;     _3270 EBCDIC                              ?
      N0TCOUPLER  =  19;     _COUPLER                                  ?
      N0TCONSOLE  =  20;     _CONSOLE                                  ?
      N0THDLC     =  21;     _HDLC LIP                                 ?
      N0TDIAG     =  22;     _ON-LINE DIAGNOSTICS                      ?
      N0SYNAUTO   =  23;     _SYNC AUTO                                ?
      N0UTC1      =  28;     _USER TERMINAL CLASS 1                    ?
      N0UTC2      =  29;     _USER TERMINAL CLASS 2                    ?
      N0UTC3      =  30;     _USER TERMINAL CLASS 3                    ?
      N0UTC4      =  31;     _USER TERMINAL CLASS 4                    ?
  
_$J+? 
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           84/02/27  * 
*        # TIP TYPES #                                                * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      N0HDLC      =   0;     _HDLC LIP                                 ?
      N1ASYNC     =   1;     _ASYNC TIP                                ?
      N1M4        =   2;     _MODE 4 TIP                               ?
      N1HASP      =   3;     _HASP TIP                                 ?
      N1X25       =   4;     _X.25 TIP                                 ?
      N1BSC       =   5;     _BYSYNC TIP (2780/3780)                   ?
      N1SYNAUTO   =   6;     _SYNC AUTO TIP TYPE                       ?
      N0MLIA      =   7;     _MLIA ERROR HANDLER                       ?
      N0CONSOLE   =   8;     _NPU CONSOLE                              ?
      N0COUPLER   =   9;     _CYBER COUPLER                            ?
      N0LINIT     =  10;     _LINE INITIALIZER                         ?
      N0OLDIAG    =  11;     _ON-LINE DIAGNOSTICS                      ?
      N0UTT1      =  12;     _USER DEFINED TIP 1                       ?
      N0UTT2      =  13;     _USER DEFINED TIP 2                       ?
      N0UTT3      =  14;     _USER DEFINED TIP 3                       ?
      N13270      =  15;      _ 3270 TIP                               ?
  
      N0NTS1TT    =  N0UTT3;  _NTS TIPTYPE FOR X25                     ?
      N0NTS2TT    =  N0UTT2;  _NTS TIPTYPE FOR BISYNC                  ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           12/07/76  * 
*        # SUB TIP TYPES #                                            * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      N0ASYASC    = 1;       _ASYNCHRONOUS ASCII TERMINAL              ?
      N0IBM2741   =  2;      _IBM 2741 TERMINAL                        ?
_?
      N0M4A       =   1;      _MODE4A                                  ?
      N0M4C       =   2;      _MODE4C                                  ?
      N0BSC2      =  1;                     _SUBTIP TYPE 2780          ?
      N0BSC3      =  2;                     _SUBTIP TYPE 3780          ?
  
      N0HSPOST    = 1;                      _HASP POST-PRINT           ?
      N0HSPRE     = 2;                      _HASP PRE-PRINT            ?
  
_$J+? 
_?
                  _#TERMINAL PRIMARY/SECONDARY FUNCTION CODES#? 
_?
      D8CTRL = $C1;                         _ TERMINAL CHARACTERISTICS ?
        D9DEF   = $04;                      _ DEFINE CHARACTERISTICS   ?
        D9CHAR  = $08;                      _ DEFINE MULTIPLE CHAR.    ?
        D9RTC   = $09;                      _ REQUEST TERMINAL ISTICS  ?
        D9TCD   = $0A;                      _ TERM ISTICS DEFINITION   ?
  
      D8BD   = $C2;                         _ TERMINAL ISTICS ALTERNATE?
        D9CHG   = $00;                      _ CHANGE                   ?
  
      D8BF   = $C3;                         _ FILE CHARACTERISTICS     ?
       _D9CHG   = $00;?                     _ CHANGE                   ?
  
      D8TO   = $C4;                         _ TERMINATE OUTPUT MARKER  ?
        D9MARK  = $00;                      _ MARKER                   ?
  
      D8SI   = $C5;                         _ START INPUT              ?
        D9NONTR = $01;                      _ NON-TRANSPARENT          ?
        D9TRAN  = $02;                      _ TRANSPARENT              ?
        D9RSM   = $03;                      _ RESUME                   ?
  
      D8AI   = $C6;                         _ ABORT INPUT              ?
        D9TERM  = $00;                      _ TERMINAL                 ?
  
      D8IS   = $C7;                         _ INPUT STOPPED            ?
        D9NR    = $04;                      _ NOT READY                ?
        D9SC    = $02;                      _ SLIPPED CARD             ?
        D9ES    = $03;                      _ END-OF-STREAM            ?
        D9BI    = $01;                      _ BATCH INTERRUPT          ?
  
      D8OS   = $C8;                         _ OUTPUT STOPPED           ?
       _D9BI    = $01;?                     _ BATCH INTERRUPT          ?
        D9PM    = $02;                      _ PRINTER MESSAGE          ?
        D9FLF   = $03;                      _ FILE LIMIT               ?
       _D9NR    = $04;?                     _ NOT READY                ?
  
      D8AD   = $C9;                         _ ACCOUNTING DATA          ?
        D9EOI   = $01;                      _ EOI PROCESSED            ?
        D9IOT   = $02;                      _ I/O TERMINATED           ?
        D9TF    = $03;                      _ TERMINAL FAILURE         ?
  
      D8BI   = $CA;                         _ BREAK INDICATION MARKER  ?
       _D9MARK  = $00;?                     _ MARKER                   ?
  
      D8RO   = $CB;                         _ RESUME OUTPUT MARKER     ?
       _D9MARK  = $00;?                     _ MARKER                   ?
  
      D8FT   = $CC;                         _ A - A USING PRU TYPE DATA?
        D9ON    = $00;                      _ TURN ON PRU MODE         ?
        D9OFF   = $01;                      _ TURN OFF PRU MODE        ?
  
_ 
***         REASON CODE FOR IVT 
? 
     B9SIRESPONSE = 0;                _RESPONSE TO STOP INPUT COMMAND ? 
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*                REGULATION LEVELS RETURNED BY -PTREGL-               * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      RGNONE = 0;                           _NO REGULATION ACTIVE      ?
      RGBUF1 = 1;                           _APPROACHING MEDIUM BUFREGL?
      RGBUF2 = 2;                           _MEDIUM LEVEL BUFFER REGL  ?
      RGUBL1 = 3;                           _UPLINE BLK LIMIT REACHED  ?
      RGUBL2 = 4;                           _UPLINE BLK LIMIT EXCEEDED ?
      RGLLNK = 5;                           _LOGICAL LINK REGULATION   ?
      RGMUXB = 6;                           _SEVERE BUFFER REGULATION  ?
      RGTDIS = 7;                           _TERMINAL DISABLED         ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*                  REGULATION CONSTANTS USED BY -PTREGL-              * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
        RGOVBUF  = 5;                       _BUFFERS BETWEEN RGBUF1/2  ?
        RGIUBL  = 20;                       _OVER UBL FOR INTERACTIVE  ?
        RGBUBL  = 12;                       _OVER UBL FOR BATCH        ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*                   PBQUEMAINT PARAMETERS (BIP)                       * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      K4GET      = 0;                  _ GET FROM QUEUE                ?
      K4GETNB    = 1;                  _ GET FROM QUEUE, NO U/L BACK   ?
      K4PUT      = 2;                  _ PUT AT END OF QUEUE           ?
      K4PUTFR    = 3;                  _ PUT AT FRONT OF QUEUE         ?
      K4PUTBC    = 4;                  _ PUT WITH FORCED U/L BACK CHK  ?
  
      K4DWNLN    = 0;                  _ PURGE DOWNLINE QUEUE          ?
      K4BOTH     = 1;                  _ PURGE BOTH QUEUES             ?
      K4UPLN     = 2;                  _ PURGE UPLINE QUEUE            ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                   * 
*                            ICMDS                                  * 
*                                                                   * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      D7RESTART   = $01;
      D7TERMINATE = $02;
      D7USB1      = $03;
      D7USB2      = $04;
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           04/20/80  * 
*              # BATCH FILE TYPES #                                 * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      B9026       = $00;               _ DISPLAY CODE TO 026 FILE      ?
      B9029       = $01;               _ DISPLAY CODE TO 029 FILE      ?
      B9ASCII     = $02;               _ ASCII OUTPUT FILE             ?
      B9TRANS     = $03;               _ TRANSPARENT OUTPUT FILE       ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           04/20/80  * 
*              # SUB DEVICE TYPE #                                    * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      B9ASC64     = $00;               _ 64 CHARACTER ASCII PRINTER    ?
      B9BCD64     = $01;               _ 64 CHARACTER BCD PRINTER      ?
      B9ASC96     = $02;               _ 96 CHARACTER ASCII PRINTER    ?
      B9DT29       = $00;                   _ 29  CARD READER          ?
      B9DT26       = $01;                   _ 26  CARD READER          ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           03/25/77  * 
*        # LINE STATUS RESPONSE CODES                                 * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      C6LOPER        =  0;             _LINE OPERATIONAL               ?
      C6LINOP        =  4;             _LINE INOPERATIVE               ?
      C6LNORING      =  5;             _NO RING INDICATOR              ?
      C6DELREQ       =  6;             _DELETE REQUEST                 ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           12/05/78  * 
*              # ASCII CONSTANTS                                      * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      A1BS           = $08;                 _ BACKSPACE                ?
      A1LF           = $0A;                 _ LINEFEED                 ?
      A1SP           = $20;                 _ SPACE                    ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           12/09/76  * 
*              # IVT BUILD PARAMETERS                                 * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
                                                          _ 02/09/77 ?
      B7PWDEF        =  150;           _DEFAULT INPUT BLOCK SIZE       ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           12/09/76  * 
*              # IVT PARITY OPTIONS                                   * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
                                       _4 BIT PARITY FIELD.  LOWER 2   ?
                                       _BITS ARE THE CLA PARITY.       ?
      B7OPAR         =   0;            _ODD    PARITY - 0000           ?
      B7NPAR         =   1;            _NO     PARITY - 0001           ?
      B7EPAR         =   2;            _EVEN   PARITY - 0010           ?
      B7ZPAR         =   5;            _ZERO   PARITY - 0101           ?
      B7IPAR         =   9;            _IGNORE PARITY - 1001           ?
  
      B7LOPARFV      =   0;            _LOWEST FV VALUE FOR PARITY     ?
                                       _FN/FV PAIR                     ?
      B7HIPARFV      =   4;            _HIGHEST FV VALUE FOR PARITY    ?
                                       _FN/FV PAIR                     ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           02/09/77  * 
*              - IVT OUTPUT DEVICE OPTIONS                            * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      B8PRNTR        = 0;              _PRINTER                        ?
      B8DISPLAY      = 1;              _DISPLAY                        ?
      B8OPTAPE       = 2;              _OUTPUT PAPERTAPE               ?
      B8VTDISPLAY    = 3;                   _VIRTUAL DISPLAY           ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           07/11/81  * 
*              - IVT INPUT DEVICE OPTIONS                             * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      B8KEYBOARD     = 0;              _KEYBOARD                       ?
      B8IPTAPE       = 1;              _INPUT PAPERTAPE                ?
      B8BLKMODE      = 2;              _BLOCK MODE TERMINAL            ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           07/11/81  * 
*              - IVT INPUT MODE OPTIONS                               * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      B8NONXPT       = 0;              _NON TRANSPARENT INPUT          ?
      B8SXPT         = 1;              _SINGLE MSG TRANSPARENT INPUT   ?
      B8MXPT         = 2;              _MULTIPLE MSG TRANSPARENT INPUT ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           02/09/77  * 
*              - IVT MISCELLANEOUS CONSTANTS                          * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                           12/08/76  * 
*                                                                     * 
*                # IVT CHARACTER DEFINITIONS #                        * 
*                                                                     * 
*              THE FOLLOWING CHARACTERS ARE DEFINED FOR THE           * 
*              INTERACTIVE VIRTUAL TERMINAL                           * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
_ 
* * *    FORMAT EFFECTORS 
? 
      I9FSS    =  $20;                 _FE - SINGLE SPACE              ?
      I9FDS    =  $30;                 _FE - DOUBLE SPACE              ?
      I9FTS    =  $2D;                 _FE - TRIPLE SPACE              ?
      I9FNS    =  $2B;                 _FE - START OF CURRENT LINE     ?
      I9FRS    =  $2A;                 _FE - TOP OF FORM               ?
      I9FPE    =  $31;                 _FE - HOME CURSOR AND CLEAR     ?
      I9FNA    =  $2C;                 _FE - NO ACTION                 ?
      I9PSS    =  $2E;                 _FE - POST PRINT SINGLE SPACE   ?
      I9PNS    =  $2F;                 _FE - POST PRINT START OF       ?
                                       _     CURRENT LINE              ?
_ 
* * *    CONTROL CODES
? 
      I9LF     =  $0A;                 _LINE FEED                      ?
      I9CR     =  $0D;                 _CARRIAGE RETURN                ?
      I9US     =  $1F;                 _LOGICAL LINE SEPARATOR         ?
_$J+? 
_ 
*              * *   OPS LEVEL WORKLISTS   * *
*                    THESES LISTS DO NOT REQUIRE SERVICE BY OPS 
*                    MONITOR.  THEY ARE HERE TO GENERATE THE WORKLIST 
*                    ARRAY.  NEW ENTERIES SHOULD BE ADDED IF FRONT OF 
*                    THESE ENTERIES.
? 
      B0FSWL   = 1;               _ FIRST WORKLIST = MMEWLQ            ?
      MMEWLQ   = 1;               _ MUX EVENT WORKLIST QUEUE           ?
      B0SPARE  = 2;               _ SPARE                              ?
      B0SMTMR  = 3;               _ SERVICE MODULE TIMEOUT LIST        ?
      B0SMTO   = 3;               _ SERVICE MODULE TIMEOUT LIST        ?
      B0T200   = 4;               _ CRITICAL 200 MS TIMEOUT            ?
      B0TTYP   = 5;               _ TTY CONSOLE DRIVER - PRIORITY      ?
      B0TTYN   = 6;               _ TTY CONSOLE DRIVER - NON PRIORITY  ?
      B0LPWL   = 7;               _ LINE PRINTER DRIVER                ?
      B0XOBTQ  = 8;               _X25 LEVEL 2 OBT QUEUE               ?
_ 
*              * *   OPS LEVEL PROGRAMS   * * 
*                    THESE WORKLISTS ARE SERVICED BY THE OPS MONITOR
*                    PROGRAM.  THEY ARE ALSO PART OF THE WORKLIST ARRAY.
*                    NEW ENTERIES MUST BE ADDED AT THE END.  THE LAST 
*                    ENTRY MUST BE B0DUMMY WHICH IS EQUAL TO THE LAST 
*                    TIP WORKLIST VALUE.
? 
      B0CHWL   = 9;               _ CONSOLE PROGRAM                    ?
      B0BIP    = 10;              _ BLOCK PROTOCOL INTERFACE PACKAGE   ?
      B0MLWL   = 11;              _ MLIA INTERRUPT HANDLER             ?
      B0SMWL   = 12;              _ SERVICE MODULE                     ?
      B0TIWL   = 13;              _ 100 / 500 MILLISEC TIMER SERVICES  ?
      B0UWL1   = 14;              _ USER TIP 1                         ?
      B0LIWL   = 15;              _ LINE INITIALIZER                   ?
      B0DGWL   = 16;              _ ONLINE DIAGNOSTICS                 ?
      B0COWL   = 17;              _ HOST INTERFACE PACKAGE (HIP)       ?
      B0HDLC   = 18;              _ HDLC LIP                           ?
      B0M4WL   = 19;              _ MODE 4 TIP                         ?
      B0ASYNC  = 20;              _ BLOCK MODE ASYNC TIP               ?
      B0HASP   = 21;              _ HASP TIP                           ?
      B0UWL2   = 22;              _ USER TIP 2                         ?
      B0X25TIP = 23;              _ X25 TIP                            ?
      B0XTRANS = 24;              _X25 TRANSPORT LEVEL 2 & LEVEL 3     ?
      B03270   = 25;              _ 3270 TIP                           ?
      B0UWL3   = 26;              _ USER TIP 3                         ?
      B0MLBSC  = 27;              _ BSC TIP MAIN LEVEL                 ?
      B0L2BSC  = 28;              _ BSC TIP LEVEL 2                    ?
      B0UWL4   = 29;              _ USER TIP 4                         ?
      B0DUMMY  = 30;              _ LAST ENTRY (CONSOLE DRIVER)        ?
  
      B0NTSWL  = B0UWL3;          _ NTS TIP                            ?
      B0XPTNTS = B0NTSWL;         _ NTS TRANSPARENT I/O TIP            ?
_ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*        # DATA BLOCK FORMAT #                                        * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ? 
      DN   =  8;                          _DESTINATION NODE            ?
      SN   =  9;                          _SOURCE NODE                 ?
      CN   = 10;                          _CONNECTION NUMBER           ?
      BTPT = 11;                          _BLOCK TYPE / BSN / PRIORITY ?
      P1   = 12;                          _PARAMETER  1                ?
      P2   = 13;                          _PARAMETER  2                ?
      P3   = 14;                          _PARAMETER  3                ?
      P4   = 15;                          _PARAMETER  4                ?
      P5   = 16;                          _PARAMETER  5                ?
      P6   = 17;                          _PARAMETER  6                ?
      P7   = 18;                          _PARAMETER  7                ?
      P8   = 19;                          _PARAMETER  8                ?
      P9   = 20;                          _PARAMETER  9                ?
      P10  = 21;                          _PARAMETER 10                ?
      P11  = 22;                          _PARAMETER 11                ?
      P12  = 23;                          _PARAMETER 12                ?
      P13  = 24;                          _PARAMETER 13                ?
      P14  = 25;                          _PARAMETER 14                ?
      P15  = 26;                          _ PARAMETER 15               ?
      P16  = 27;                          _PARAMETER 16                ?
      P17  = 28;                          _PARAMETER 17                ?
      P18  = 29;                          _PARAMETER 18                ?
      P19  = 30;                          _PARAMETER 19                ?
      P20  = 31;                          _ PARAMETER 20               ?
      P21  = 32;                          _PARAMETER 21                ?
      P22  = 33;                          _PARAMETER 22                ?
      P23  = 34;                          _PARAMETER 23                ?
      P24  = 35;                          _PARAMETER 24                ?
      FBYTE = DN;                           _FCD FOR FIRST BYTE OF DATA?
_ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*        # BLOCK PROTOCOL MESSAGE PARAMETERS #                        * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ? 
      BLOCK = DN;                      _FCD OF 1ST BYTE OF BLOCK HEADER?
      DBC   = P1;                      _DATA BLOCK CLARIFIER           ?
      DATA = P1;                          _FCD OF 1ST BYTE OF DATA     ?
_ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*        # PORT DEFINITION PARAMETERS #                               * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ? 
      C4TCBS = 2;                           _ NUMBER OF FIXED TCBS.    ?
      C4TCM1 = 1;                           _ NO. OF FIXED TCBS - 1    ?
      C4MAXSUBLCB = 4;                      _ MAX NUMBER OF SUB LCBS   ?
_            * *     TIME DEPENDENT PROGRAMS  * * 
*                    THESE PROGRAMS RUN PERIODICALLY AT DESIRED 
*                    INTERVALS FROM PBTIMAL.  THE INTERVAL IS 
*                    INITIALIZED BY LINKZAP.                           ?
      C0LCBTMSCN = 0;                       _ACTIVE LCB SCAN           ?
      C0ADJUST   = 1;                       _BUFFER ADJUST             ?
      C0TUP      = 2;                       _TUP                       ?
      C0T1SEC    = 3;                       _MUX TTY SCAN              ?
      C0PSTAT    = 4;                       _STATISTICS DUMP           ?
      C0IOTMR    = 5;                       _I/O TIMAL APPENDAGE       ?
      C0CECNT    = 6;                       _RESET CE ERROR COUNT      ?
      C0HLIP     = 7;                       _LIP                       ?
      C0SMTMR    = 8;                       _SERVICE MODULE            ?
      C0PERF     = 9;                       _PERFORMANCE DATA          ?
      C0SPARE    = 10;                      _SPARE ENTRY               ?
_?
_**********************************************************************?
