*COMDECK SVMCONST 
_*****************************
*                            *
*    SERVICE MODULE CONSTS   *
*                            *
*****************************?
                  _#HOST-NPU TRANSMIT BLOCK SIZE#?
      D8BLKCNT  = 2;                        _NO. OF PRU'S PER BLOCK    ?
  
                  _#SM PRIMARY FUNCTION CODES#? 
      D8REG  = $1;                          _ LOGICAL LINK REGULATION  ?
      D8ICN  = $2;                          _ INITIATE CONNECTION      ?
      D8TCN  = $3;                          _ TERMINATE CONNECTION     ?
      D8CHC  = $4;                          _ CHG TERM CHARACTERISTICS ?
      D8NPU  = $A;                          _ INITIALIZE NPU           ?
      D8SUP  = $E;                          _ INITIATE SUPERVISION     ?
      D8CNF  = $F;                          _ CONFIGURE TERMINAL       ?
      D8ENB  = $10;                         _ ENABLE COMMAND(S)        ?
      D8DIB  = $11;                         _ DISABLE COMMAND(S)       ?
      D8NPS  = $12;                         _ NPU STATUS REQUEST       ?
      D8LLS  = $13;                         _ LL STATUS REQUEST        ?
      D8LIS  = $14;                         _ LINE STATUS REQUEST      ?
      D8TES  = $15;                         _ TERM STATUS REQUEST      ?
      D8TRS  = $16;                         _ TRUNK STATUS REQUEST     ?
      D8CPS  = $17;                         _ COUPLER STATUS REQUEST   ?
      D8VCS  = $18;                         _SVC STATUS REQUEST        ?
      D8STU  = $19;                         _ UNSOLICATED STATUSES     ?
      D8STI  = $1A;                         _ STATISTICS               ?
      D8MSG  = $1B;                         _ MESSSBGE(S)              ?
      D8LOG  = $1C;                         _ ERROR LOG ENTRY          ?
      D8ALM  = $1D;                         _ OPERATOR ALARM           ?
      D8NPI  = $1E;                         _RELOAD NPU                ?
      D8CDI  = $1F;                         _ COUNT(S)                 ?
      D8OLD  = $20;                         _ ON-LINE DIAGNOSTICS      ?
_?
      D8FIRST = D8REG;                      _ FIRST PFC                ?
      D8LAST  = D8OLD;                      _ LAST PFC                 ?
_?
                  _#SM SECONDARY FUNCTION CODES#? 
      D9NP   = $0;                          _ NPU                      ?
      D9LL   = $1;                          _ LOGICAL LINK             ?
      D9LI   = $2;                          _ LINE                     ?
      D9TE   = $3;                          _ TERMINAL                 ?
      D9TR   = $4;                          _ TRUNK                    ?
      D9CP   = $5;                          _ COUPLER                  ?
      D9VC   = $6;                          _ SWITCHED VIRTUAL CIRCUIT ?
      D9OP   = $7;                          _ OPERATOR                 ?
      D9TA   = $8;                          _ TERMINATE CONNECTION     ?
      D9AP   = $9;                          _ OUTBOUND A-A CONNECTION  ?
      D9IN   = $A;                          _ INITIATE SUPERVISION     ?
      D9DO   = $B;                          _ DUMP OPTION              ?
      D9PB   = $C;                          _ PROGRAM BLOCK            ?
      D9DT   = $D;                          _ DATA                     ?
      D9TM   = $E;                          _ TERMINATE DIAGNOSTICS    ?
      D9LD   = $E;                          _ LOAD                     ?
      D9GO   = $F;                          _ GO                       ?
      D9ER   = $10;                         _ ERROR(S)                 ?
      D9EX   = $11;                         _ A TO A CONNECTION        ?
      D9NQ   = $12;                         _ SFC FOR *PBPERFORM* STI  ?
      D9NE   = $13;                         _ NIP BLOCK PROTOCOL ERROR ?
      D9PE   = $14;                         _ PIP BLOCK PROTOCOL ERROR ?
      D9RC   = $11;                         _ RECONFIGURE TERMINAL     ?
  
      SMREQUEST  = 0;                       _ REQUEST TYPE SM          ?
      SMNORMAL   = 1;                       _ NORMAL RESPONSE TYPE SM  ?
      SMABNORMAL = 2;                       _ ABNORMAL RESPONSE TYPE SM?
_?
                  _#SM PARAMETER DEFNS#?
      PFC = P1;               _ PRIMARY FUNCTION CODE   ? 
      SFC = P2;               _ SECONDARY FUNCTION CODE ? 
_?
      FNAUTOC    = 22;                      _ FIELD NUMBER OF AUTO CON ?
      FNSHN      = 20;                      _ FN OF SELECTED HOST NODE ?
      CA         = 16;                      _ POSITION OF CLUSTER ADDR ?
      TA         = 17;                      _ POSITION OF TERM ADDR PAR?
      STIP       = 19;                      _ POSITION OF SUB TIP PAR  ?
      CSET       = 30;                      _ POSITION OF CODE SET PAR ?
_?
_?
                  _#STATISTIC TYPES#? 
      C3NPU  = 0;    _ NPU STATISTICS      ?
      C3LINE = 1;    _ LINE STATISTICS     ?
_?
      C6TCMIN = N0M33;       _TERMINAL CLASS LOWER VALUE   ?
      C6TCMAX = N0UTC4;      _TERMINAL CLASS UPPER VALUE   ?
      C6ASMAX = N0IBM2741;                  _ASYNC SUBTIP UPPER VALUE  ?
      C6ASMIN = N0ASYASC;                   _ASYNC SUBTIP LOWER VALUE  ?
_?
_?
                  _#SM ROUTING OPTIONS#?
      J4DISCARD  = 0;                       _DISCARD SM                ?
      J4DISPATCH = 1;                       _DISPATCH SM TO SM HANDLER ?
      J4PRINT    = 2;                       _PRINT ON CONS (NOT USED)  ?
      J4BOTH     = 3;                       _PRINT/DISPATCH (NOT USED) ?
_?
                  _#CONFIGURE ACTION CODES#?
                                            _***************************
                                            *                          *
                                            *  C A U T I O N --        *
                                            *   IF ANY CHANGES ARE MADE*
                                            *   TO THESE ACTION CODES  *
                                            *   THE CORRESPONDING      *
                                            *   CHANGES MUST ALSO BE   *
                                            *   MADE TO *ATBLEQUS*     *
                                            *                          *
                                            ***************************?
      D2VUL         = 0;                    _VERIFY UPPER/LOWER        ?
      D2VM          = 1;                    _VERIFY MIDDLE VALUE       ?
      D2CRIDLE      = 2;                    _RESTORE CR COUNT          ?
      D2LFIDLE      = 3;                    _RESTORE LF COUNT          ?
      D2TC2741      = 4;                    _TERMINAL CLASS 2741       ?
      D2TCM4HS      = 5;                    _CHECK MODE4/HASP TC       ?
      D2TCBDFLT     = 6;                    _MOVE DEFAULT VALUES TO TCB?
      D2UPPAIR      = 7;                    _VERIFY UPPER VALUE        ?
      D2LOPAIR      = 8;                    _VERIFY LOWER VALUE/RANGE  ?
      D2PARITY      = 9;                   _CHECK PARITY              ? 
      D2CD2741      = 10;                   _IBM 2741 CODE CHECK       ?
      D2CHKCHAR     = 11;                   _CHECK SPECIAL CHARACTERS  ?
      D2ELX         = 12;                   _EOL INDICATOR             ?
      D2E2741       = 13;                   _ERROR IF IBM 2741         ?
      D2CK2741      = 14;                   _SPECIAL D2VUL FOR 2741    ?
      D2I2741       = 15;                   _IGNORE IF IBM 2741        ?
      D2IGNORE      = 16;                   _ERROR IF INPUT FROM TERM. ?
      D2ERROR       = 17;                   _UNCONDITIONAL ERROR       ?
      D2ISYNC       = 18;                   _SYNCHRONIZE INPUT         ?
      D2CRLFNULS    = 19;                   _MILLISECOND CR/LF DELAY   ?
_?
                  _#CONFIGURE ACTION ERROR CODES#?
      D3AC          = 0;                    _ACTION COMPLETE           ?
      D3FNFVERR     = 1;                    _FV OUT-OF-RANGE           ?
      D3DUPCHAR     = 2;                    _DUPLICATE CNTRL CHARACTER ?
      D3INVLDVAL    = 3;                    _INVALID VALUE FOR TERMINAL?
      D3ILLGLTC     = 4;                    _ILLEGAL TERMINAL CLASS    ?
      D3NOSUBTIP    = 4;                    _SUBTIP NOT CONFIGURED     ?
      D3BADCMD      = 5;                    _BAD ASCII IVT COMMAND     ?
      D3FNERR       = 5;                    _FN OUT-OF-RANGE           ?
      D3IGNORE      = 6;                    _INTERNAL TO PNCONFIGURE   ?
  
_?
                  _# LINK CONNECTION STATES #?
  
      D4IPOSS = 0;                          _ INITIATION POSSIBLE      ?
      D4IPREQ = 1;                          _ INIT REQUESTED BY PROCESS?
      D4ILREQ = 2;                          _ INIT REQUESTED BY LINK   ?
      D4ICONF = 3;                          _ INITIATION CONFIRMED     ?
      D4TPEND = 4;                          _ TERMINATION PENDING      ?
      D4TPREQ = 5;                          _ TERM REQUESTED BY PROCESS?
      D4TLREQ = 6;                          _ TERM REQUESTED BY LINK   ?
      D4TCOLL = 7;                          _ TERM COLLISION           ?
_?
                  _# WORKLIST ENTRY DATA CODES #? 
  
      _ WORKCODE D0IACTIVATE ?
      D5CLAOR    = 1;                       _ CLA OUT OF RANGE         ?
      D5DUPCLA   = 2;                       _ DUPLICATE CLA            ?
      D5TESDISA  = 3;                       _ ALL TERMINAL(S) DISABLED ?
      D5ALMMSG   = 4;                       _ ALARM(S) FROM CE ERROR(S)?
  
      _ WORKCODE D0TCB ?
      D5CONN     = 1;                       _ CONNECT    - FROM BIP,SVM?
      D5DISC     = 2;                       _ DISCONNECT - FROM IVT,SVM?
      D5TERM     = 3;                       _ TERMINATE  - FROM BIP    ?
      D5DELK     = 4;                       _ DELINK     - FROM SVM,TIP?
      D5DELE     = 5;                       _ DELETE     - FROM SVM    ?
      D5DOWN     = 6;                       _ DOWN       - FROM TIP    ?
      D5UP       = 7;                       _ RECOVERED  - FROM TIP    ?
      D5RECON    = 8;                       _ RECONFIGURE- FROM BIP,SVM?
_?
      _ WORKCODE D0LINE ? 
      D5OPER     = 1;                       _ OPERATIONAL - FROM TIP   ?
      D5ENAB     = 2;                       _ ENABLE LINE - FROM SVM   ?
      D5DISA     = 3;                       _ DISABLE     - FROM SVM   ?
      D5INOP     = 4;                       _ INOPERATIVE  - FROM LINIT?
_?
      _ WORKCODE DOX25 ?
      D5ICAN     = 1;                       _ OUT-BOUND CALL ACCEPTED  ?
      D5ICAA     = 2;                       _ OUT-BOUND CALL REJECTED  ?
      D5ICXR     = 3;                       _ IN-BOUND CALL REQUEST    ?
      D5ICNR     = 4;                       _ PAD IN-BOUND CALL REQUEST?
_?
      _ WORKCODE D0TIP ?
      D5ICXN     = 1;                       _ IN-BOUND CALL ACCEPTED   ?
      D5ICXA     = 2;                       _ IN-BOUND CALL REJECTED   ?
      D5ICAR     = 3;                       _ OUT-BOUND CALL REQUEST   ?
      D5FREE     = 4;                       _ ACCESS HAS BEEN FREED    ?
      D5ICNN     = 5;                       _ PAD IN-BOUND CALL ACCEPTD?
      D5ICNA     = 6;                       _ PAD IN-BOUND CALL REJECTD?
_?
      _ WORKCODE D0LINK ? 
      CPLR       = 0;                       _ COUPLER REGULATION       ?
      TRNK       = 1;                       _ TRUNK REGULATION         ?
      NPU        = 2;                       _ NPU REGULATION           ?
      LOGL       = 3;                       _ LOGICAL LINK REGULATION  ?
_?
                  _# D5DISC REASON CODES NON X25 #? 
      DAUSER    = 1;                        _ USER REQUEST/CONFIG ERROR?
      DAPASS    = 2;                        _ PASSIVE DEVICE FOLLOWS   ?
      DADISA    = 3;                        _ OPERATOR DISABLED ELEMENT?
      DAHARD    = 4;                        _ HARDWRE FAILURE          ?
      DACLEAR   = 5;                        _ NETWORK CLEAR/RESTART    ?
      DADISC    = 6;                        _ BATCH/A-A INPUT DISCARDED?
_?
                  _# SVM LOCAL WORKLIST INDICES #?
      D6STAT    = 1;                        _ STATUS                   ?
      D6NOTIFY  = 2;                        _ NOTIFY                   ?
      D6BRDCST  = 3;                        _ BROADCAST                ?
      D6INITERR = 4;                        _ INIT ERROR               ?
_?
  
                    _# BIAS - D6XXXX TO D0XACTIVATE #?
      D0BIAS    = $28;
_?
                   _# STATUS REQUEST CONSTANT #?
  
      D9RESPONSE = $7;                      _WORK CODE FOR RESPONSE    ?
  
                   _# BROADCAST CONSTANT #? 
      B9UC       = 3;                       _WORD INDEX FOR USE COUNTER?
_?
                   _# NOTIFY CONSTANTS #? 
  
      H2HADONLY  = 1;                       _COMPLETE H. A. D.         ?
      H2HNCONN   = 2;                       _HOST CONNECTED + H. A. D. ?
      H2NHNSEL   = 3;                       _NO HOST SELECTED          ?
      H2NHNAVAIL = 4;                       _NO HOST AVAILABLE         ?
      H2HNUNAVAI = 5;                       _HOST UNAVAILABLE          ?
      H2HNBUSY   = 6;                       _HOST BUSY                 ?
      H2HNDISC   = 7;                       _HOST DISCONNECTED         ?
      H2HNAVAIL  = 8;                       _HOST AVAILABLE            ?
      H2NHNCONN  = 9;                       _NO HOST CONNECTED         ?
      H2RECONFIG = 10;                      _RECONFIGURING             ?
      H2INPDISC  = 11;                      _INPUT DISCARDED..         ?
      H2TMLCHARS = 12;                      _TERMINAL CHARACTERISTICS  ?
      H2BELL     = 13;                      _TERMINAL BELL             ?
  
                   _# A-A CONNECTION ERROR REASON CODES #?
                 _ ERRORS IN CALL REQUEST DETECTED BY RECEIVER ?
      X0RSNR     = $92;                     _SUBTIP NOT AVAILABLE      ?
      X0RRHN     = $A2;                     _REMOTE HOST NOT KNOWN     ?
      X0RNP      = $C4;                     _NO PATH AVAILABLE         ?
      X0RRHU     = $D6;                     _REMOTE HOST UNAVAILABLE   ?
                 _ SENDER UNABLE TO MAKE CALLS ?
      X0RIRN     = $81;                     _INVALID REQUEST (NO TIP)  ?
      X0RNPO     = $C3;                     _NO PATH AVAILABLE-OUTGOING?
                 _ INVALID CALL REQUEST ? 
      X0RIPN     = $E1;                     _ILLEGAL PORT NUMBER       ?
      X0RSNS     = $91;                     _SUBTIP NOT AVAILABLE      ?
      X0RNCA     = $A3;                     _NO CONNECTION AVAILABLE   ?
      X0RLLC     = $D5;                     _LOGICAL LINK NOT ENABLED  ?
                 _ TEMPORARY LACK OF NETWORK RESOURCES ?
      X0RNLL     = $85;                     _NO AVAILABLE LOGICAL CHAN.?
      X0RNBL     = $93;                     _NO BUFFER AVAIL. FOR TIP  ?
      X0RPLN     = $A5;                     _PACKET LVL NOT OPERATIONAL?
                 _ RECEIVER TEMPORARY CANNOT ACCEPT CALLS ? 
      X0RNLR     = $86;                     _NO AVAILABLE LOGICAL CHAN.?
      X0RNBR     = $94;                     _NO BUFFER AVAIL. FOR TIP  ?
      X0RLLR     = $B6;                     _LOGICAL LINK NOT ENABLED  ?
      X0RUNP     = $8B;                     _UNKNOWN PACKET RECEIVED   ?
      X0RUNS     = $B1;                     _UNKNOWN SUBTIP            ?
      X0RPLP     = $A9;                     _PACKET LEVEL NOT OPERATING?
      X0RMN8     = $81;                     _MODULO NOT 8              ?
