*COMDECK QTRMNIT
# 
       NIT STATUS DEFINITIONS.
# 
# 
      NIT CONNECTION STATES 
# 
      STATUS STATE    NULL,            # NIT ENTRY NOT IN USE         0#
                      LIMBO,           # WAIT FOR FC/INIT FOR NEW CN  1#
                      OK,              # NORMAL STATE - DATA TRAF OK  2#
                      STOP,            # WAITI FOR FC/START - UNUSED  3#
                      POSE,            # WAIT FOR FC/INIT FOR A-A CON 4#
                      LEND,            # CON/END SENT FOR LENDING CON 5#
                      LENT,            # CON LOANED TO ANOTHER APP    6#
                      LENDRET,         # WAIT FOR FC/INIT FOR RECON   7#
                      USRBRK,          # WAIT FOR BI/MARK AFT USR BRK 8#
                      FCBRK,           # WAIT FOR FC/RST AFTER FC/BRK 9#
                      INTRRSP,         # WAIT FOR INTR/RSP AFT INTR  10#
                      WCONENDN,        # WAIT FOR CON/END/N          11#
                      WROMARK,         # WAIT FOR ACK TO SEND RO/MARK12#
                      WBIROMK,         # WAIT FOR BI/MARK AND RO/MARK13#
                      WTOMARK,         # WAIT FOR ACK TO SEND TO/MARK14#
# 
                                       STATES 15 TO 24 ARE PRU INTERFACE
                                       STATES.  THE ORDER OF THE STATES 
                                       CANNOT BE CHANGES AS CODE IN QTRM
                                       ROUTINES QTGET, QTPUT, AND QTSUP 
                                       RELY ON THIS ORDERING OF THE 
                                       STATES.
# 
                      WAITPRU,         # QTRM WAITING FOR PRU/ON/N   15#
                      AWAITPRU,        # APP WAITING FOR PRU/ON/N    16#
                      PRUCN,           # PRU CONNECTION              17#
                      PRUACT,          # PRU CONNECTION ACTIVE       18#
                      PRUSTOP,         # APP STOPPING PRU TRANSFER   19#
                      PRUABT,          # PRU TRANSFER ABORTED BY APP 20#
                      PRUSTPN,         # PRU TRANSFER STOPPED BY APP 21#
                      PRUSTPD,         # PRU TRANSFER STOPPED BY NET 22#
                      PRUSTPP,         # PRU TRANSFER STOPPED BY PIP 23#
                      PRUEOO;          # PRU TRANSFER END OF OUTPUT  24#
# 
      NIT RETURN CODE VALUES
# 
      STATUS NITRTC   OK,              # NORMAL RESPONSE              0#
                      NOBLK,           # NO DATA RECEIVED             1#
                      NEW$CON,         # NEW CONNECTION ESTABLISHED   2#
                      BAD$MESS,        # APP SENT ILL-FORMATED BLOCK  3#
                      STOP,            # UNUSED                       4#
                      QTPUTREJ,        # BAD CALL TO QTPUT            5#
                      CON$BROKEN,      # CONNECTION BROKEN            6#
                      USER$B1,         # RECEIVED USER BREAK 1        7#
                      USER$B2,         # RECEIVED USER BREAK 2        8#
                      IDLEDOWN,        # NETWORK IN IDLE DOWN STATE   9#
                      SHUTDOWN,        # NETWORK HAS SHUT DOWN       10#
                      LOGICERR,        # RECEIVED ERR/LGL            11#
                      QTLINKREJ,       # QPP-TO-APP REQ OUTSTANDING  12#
                      ACRQ$ERR,        # APP-TO-APP REQ FAILED       13#
                      ACRQ$COMPL,      # APP-TO-APP REQ COMPLETED    14#
                      QTLENDREJ,       # BAD CALL TO QTLEND          15#
                      QTGETREJ,        # BAD CALL TO QTGET           16#
                      RESERVE17,       # UNUSED                      17#
                      NEW$RECON,       # RECONNECTION ESTABLISHED    18#
                      LEND$RET,        # LOANED CONNECTION RETURNED  19#
                      LEND$CB,         # LOANED CONNECTION BROKEN    20#
                      CON$REQ,         # RECEIVED CON/REQ/R          21#
                      QTENDTREJ,       # BAD CALL TO QTENDT          22#
                      SCREENERR,       # SCREEN FORMAT ERROR         23#
                      FC$BRK,          # RECEIVED FC/BRK             24#
                      FC$RST,          # RECEIVED FC/RST             25#
                      USR$INTR,        # RECEIVED INTR/USR           26#
                      INTR$RSP,        # RECEIVED INTR/RSP           27#
                      BI$MARK,         # RECEIVED BI/MARK            28#
                      UNS$SCMD,        # UNSOLICITED SYNC COMMAND    29#
                      RESERVE30,       # UNUSED                      30#
                      HOP$START,       # RECEIVED HOP/START          31#
                      HOP$CMD,         # RECEIVED HOP/CMD            32#
                      HOP$BRK,         # RECEIVED HOP/BREAK          33#
                      HOP$PAGE,        # RECEIVED HOP/PAGE           34#
                      HOP$END,         # RECEIVED HOP/ENDQ           35#
                      HOP$DU,          # RECEIVED HOP/DU             36#
                      HOP$DB,          # RECEIVED HOP/DB             37#
                      HOP$DE,          # RECEIVED HOP/DE             38#
                      HOP$RS,          # RECEIVED HOP/RS             39#
                      HOP$REL,         # RECEIVED HOP/REL            40#
                      NETONREJ,        # NETON REJECTED              41#
                      FC$INACT,        # RECEIVED FC/INACT           42#
                      QTCMDREJ,        # BAD CALL TO QTCMD           43#
                      QTSUPREJ,        # BAD CALL TO QTSUP           44#
                      PRUONN,          # RECEIVED PRU/ON/N           45#
                      PRUONA,          # RECEIVED PRU/ON/A           46#
                      OFCDATAN,        # RECEIVED OFC/DATA/N         47#
                      OFCSTPD,         # RECEIVED OFC/STPD FROM NET  48#
                      OFCSTPN,         # RECEIVED OFC/STP/N          49#
                      OFCABTN,         # RECEIVED OFC/ABT/N          50#
                      OFCEOO,          # RECEIVED OFC/EOO            51#
                      OFCEOJ;          # RECEIVED OFC/EOO OR OFC/DATA52#
# 
      NIT SECONDARY RETURN CODES VALUES 
# 
      STATUS NITSRTC  NORMRET,         # NORMAL RETURN OF LOANED CON  0#
                      UNRECOG,         # UNRECOGNIZED INPUT CODE      1#
                      LOANCON,         # LOANED CON BEING LOANED      2#
                      BADSTATE,        # CON NOT IN NORMAL STATE      3#
                      BADCN,           # CONNECTION DOES NOT EXIST    4#
                      PAZERO,          # PARM-ADDR FIELD IS ZERO      5#
                      NOSIZE,          # NO SIZE SPECIFIED FOR SM     6#
                      BADICT,          # BAD ICT SPECIFIED FOR DATA   7#
                      CCICT,           # DC/CICT NOT ALLOWED FOR CON  8#
                      BADICTS,         # BAD ICT SPECIFIED FOR SYNC SM9#
                      BADDISF,         # SMC=6 BAD PARM-FLAG1 VALUE  10#
                      BADINF,          # SMC=9 BAD PARM-FLAG1 VALUE  11#
                      NOTDEVC,         # NOT DEVICE CONNECTION       12#
                      DBLKSO,          # DOWNLINE BLOCKS OUTSTANDING 13#
                      NONEXTAP,        # NEXT APPLICATION NOT SPEC   14#
                      BADSIZE,         # NIT$CTLC HAD BAD VALUE      15#
                      KNOTASS,         # K-DISPLAY IS NOT ASSIGNED   16#
                      KNOTSUP,         # K-DISPLAY NOT SUPPORTED     17#
                      CONLOANED,       # CON HAS BEEN LOANED TO APP  18#
                      AACONOUT,        # A-A CON REQ OUTSTANDING     19#
                      AAACT4ERR,       # APP SENT BAD BLK ON A-A CON 20#
                      OVERABL,         # APP EXCEEDED ABL            21#
                      RECNAK,          # RECEIVED FC/NAK ON CON      22#
                      IBUSET,          # RECEIVED BLK WITH IBU B SET 23#
                      RECBSZ,          # RECEIVED BAD A-A D C BLK    24#
                      DUPQTOPEN,       # DUPLICATE QTOPEN CALL       25#
                      ZEROCONS,        # MAX NO OF CONS IS ZERO      26#
                      NOPRUSUP,        # PRU NOT SUPPORTED FOR DT    27#
                      BADPRUS,         # BAD PRU SIZE SPECIFIED      28#
                      BADCONVC;        # BAD CONVERSION CODE         29#
  
# 
      THE NETWORK INFORMATION TABLE (NIT) IS THE GENERAL
      COMMUNICATIONS BLOCK BETWEEN THE USER AND QTRM. 
      IT ACTUALLY RESIDES IN THE USERS WORKING AREA.
# 
      BASED ARRAY NIT [0:0] S(10);
        BEGIN 
        ITEM NIT$WORD0     U(0,0,WL); 
        ITEM NIT$APP$NAME  C(0,0,7);   # APPLICATION NAME              #
        ITEM NIT$CHAR$SET  U(0,42,6);  # CHARACTER SET TO USE          #
        ITEM NIT$XPTSET    U(0,42,3);  # TRANSPARENT MODE              #
        ITEM NIT$PUTSET    U(0,45,3);  # CHAR TYPE FOR QTPUT           #
        ITEM NIT$NO$TERMS  U(0,48,12); # MAX NUMBER OF TERMINALS       #
        ITEM NIT$NSUP      U(1,0,WL);  # SUPERVISOR WORD               #
        ITEM NIT$NSUP$I    B(1,3,1);   # INPUT AVAILABLE FROM NAM      #
        ITEM NIT$NSUP$S    B(1,4,1);   # SUPERVISORY DATA AVAILABLE    #
        ITEM NIT$NSUP$N    B(1,2,1);   # NAM AVAILABLE FLAG.           #
        ITEM NIT$NUMRCNS   U(2,30,12); # NO OF RESERVED OUTGOING CONN  #
        ITEM NIT$PARMADR   U(2,42,18); # PARAMETER CONTAINING ADDRESS  #
        ITEM NIT$QDATA     U(3,0,6);   # QUALIFIED DATA FLAG           #
        ITEM NIT$PARMFLG1  U(3,6,6);   # PARAMETER FLAG 1              #
        ITEM NIT$PARMFLG2  U(3,12,6);  # PARAMETER FLAG 2              #
        ITEM NIT$SB$RC     U(3,42,12); # CON/ACRQ/A REASON CODE        #
        ITEM NIT$SBC$RC    C(3,48,1);  # HOP/PAGE CHARACTER            #
        ITEM NIT$SB$RCB    B(3,53,01); # SINGLE BIT BOOLEAN RESPONSE   #
        ITEM NIT$SUPPAA    U(3,54,6);  # SUPPORT A TO A                #
        ITEM NIT$MTLC      U(4,0,12);  # MAXIMUM TEXT LENGTH IN CHARS  #
        ITEM NIT$CTLC      U(4,12,12); # CURRENT TEXT LENGTH IN CHAR   #
        ITEM NIT$SLEEP     I(4,24,6);  # SLEEP SETTING PARAMETER       #
        ITEM NIT$CON       U(4,30,12); # CONNECTION NUMBER FOR CALLER  #
        ITEM NIT$RC        S:NITRTC(4,42,6); # RETURN CODE             #
        ITEM NIT$S$RC      S:NITSRTC(4,48,6); # QTRM GENERATED SEC RC  #
        ITEM NIT$SEC$RC    U(4,48,6);  # SUP MSG RETURN CODE           #
        ITEM NIT$INT$MSG   U(4,54,6);  # INT - MSG                     #
        ITEM NIT$NEXT$APP  C(5,0,7);   # NEXT APPLICATION CHARS.       #
        ITEM NIT$NXAP$NUM  U(5,0,42);  # NEXT APPLICATION NUMERIC.     #
        ITEM NIT$XSLEEP    I(5,42,18); # EXTENDED SLEEP FIELD          #
        ITEM NIT$REQ$APP   C(6,0,7) ;  # OUTCALL NAME 1                #
        ITEM NIT$HOSTAA    U(6,42,18); # OUTCALL NAME 2 IN U           #
        ITEM NIT$TRUNC     U(7,0,6);   # TRUNCATION FLAG               #
        ITEM NIT$LID       C(7,42,3);  # LID OF DESTINATION HOST       #
# 
     ENTRY (10 WORDS) REPEATED FOR EACH CONNECTION. 
# 
        ITEM NIT$WD0       U(0,0,WL); 
        ITEM NIT$TNAME     C(0,0,7);   # TERMINAL NAME                 #
        ITEM NIT$ANAME     C(0,0,7);   # CONNECTED APPLICATION NAME    #
        ITEM NIT$TC        U(0,42,6);  # TERMINAL CLASS                #
        ITEM NIT$PW        U(0,48,12); # PAGE WIDTH                    #
        ITEM NIT$WD1       U(1,0,WL); 
        ITEM NIT$FAMNAME   C(1,0,7);   # FAMILY NAME                   #
        ITEM NIT$HOSTID    U(1,30,12); # CONNECTED HOST ID             #
        ITEM NIT$DEVTYP    U(1,42,6);  # DEVICE TYPE                   #
        ITEM NIT$PL        U(1,48,12); # PAGE LENGTH                   #
        ITEM NIT$WD2       U(2,0,WL); 
        ITEM NIT$USERNAME  C(2,0,7);   # USER NAME FOR THIS CONNECTION #
        ITEM NIT$SL        U(2,42,6);  # SECURITY LEVEL FOR THIS CON   #
        ITEM NIT$BSZ       U(2,48,12); # MAX BLOCK SIZE FOR THIS TERMIN#
        ITEM NIT$WD3       U(3,0,WL); 
        ITEM NIT$ABL       U(3,0,6);   # APPLICATION BLOCK LIMIT       #
        ITEM NIT$ABN       U(3,6,18);  # LAST ABN SENT TO NAM          #
        ITEM NIT$ACK$ABN   U(3,24,18); # LAST ABN ACKED BY NAM         #
        ITEM NIT$STATE     S:STATE(3,42,6); # STATE OF THIS TERMINAL   #
        ITEM NIT$LOAN      U(3,48,6);  # LOANED CONNECTION FLAG        #
        ITEM NIT$C$ABL     U(3,54,6);  # CURRENT ABL                   #
        ITEM NIT$WD4       U(4,0,WL); 
        ITEM NIT$UPS       U(4,0,12);  # UPLINE PRU SIZE               #
        ITEM NIT$DPS       U(4,12,12); # DOWNLINE PRU SIZE             #
        ITEM NIT$CDCNT     B(4,47,1);  # CDCNET CONNECTION             #
        ITEM NIT$SICT      U(4,48,6);  # CHARACTER SET FOR SYNCH SM    #
        ITEM NIT$ICT       U(4,54,6);  # CHARACTER SET FOR INPUT DATA  #
        ITEM NIT$WD5       U(5,0,WL); 
        ITEM NIT$UP$ABH    U(5,0,WL);  #MOST RECENT UPLINE ABH         #
        ITEM NIT$WD6       U(6,0,WL); 
        ITEM NIT$DN$ABH    U(6,0,WL);  #MOST RECENT DOWNLINE ABH       #
        ITEM NIT$WD7       U(7,0,WL); 
        ITEM NIT$WD8       U(8,0,WL); 
        ITEM NIT$WD9       U(9,0,WL); 
        END 
