*DECK,NP$STTP 
*IF,DEF,XFR 
          IDENT  NP$STTP
          SST 
          EXT    NP$MSG 
          ENTRY  NP$STTP
*#
*1DC  NP$STTP 
*     1. PROC NAME       AUTHOR           DATE
*        NP$STTP         Y.C.YIP          81/03/03
*     2. FUNCTIONAL DESCRIPTION 
*        THIS ROUTINE IS RESPONSIBLE FOR ACCESSING THE VARIOUS STATE
*        TABLES.IT IS CALLED BY EACH OF THE FOUR STATE TABLE
*        PROCESSORS (NCSTTP,NBSTTP,HCSTTP,HBSTTP).EACH ONE OF THESE 
*        SPECIFIES THE STATE TABLE TO BE PROCESSED BY PASSING THE 
*        PROPER ORDINAL.
*     3. METHOD USED
*        THE STATE TABLES ARE DEFINED BY USING  THE FOLLOWING MACROES 
*        (DEFINED IN COMDECK STBLMAC):INITBL,STATE,TRIG,ENDTBL. 
*        INITIALLY INITBL IS INVOKED WITH THE STATE TABLE NAME OF 2 
*        CHARACTERS,THE MAXIMUM STATE NUMBER AND THE MAXIMUM TRIGGER
*        TRIGGER NUMBER.
*        NEXT FOR EACH STATE ALL LEGAL TRIGGERS ARE DEFINED,BY
*        INVOKING A STATE MACRO WITH THE STATE NUMBER FOLLOWED BY 
*        THE TRIG MACRO FOR EACH LEGAL TRIGGER IN THAT STATE.THE TRIG 
*        MACRO HAS THE FOLLOWING PARAMETERS (IN THIS ORDER):  
*        TRIGN -  TRIGGER NUMBER
*        NEWST -  NEW STATE AS A RESULT OF THIS TRIGGER 
*        ACTION1- ACTION ORDINAL OF CODE TO BE PERFORMED IN THIS CASE 
*        ACTION2- ACTION  2 , TO BE SENT TO CORRESP. CONNECTION STATE 
*                 TABLE 
*        REASON -  REASON CODE. 
*        EXCEPT TRIGN ALL PARAMETERS MAY BE LEFT BLANK BY ADJACENT
*        COMMAS,IN WHICH A NO CHANGE VALUE (NOCHG) WILL BE FILLED IN. 
*        ALL STATES MUST BE DEFINED IN ORDER STARTING FROM THE SPECIAL
*        NO CONNECTION STATE (STATX),THEN STATE 0,STATE 1 AND SO ON.
*        ALL STATES MUST HAVE AT LEAST ONE LEGAL TRIGGER.FINALLY THE
*        MACRO ENDTBL MUST BE INVOKED WITH THE 2-CHAR NAME OF THE 
*        STATE TABLE. 
*        THE STATE TABLES MACROES ARE DEVISED SUCH THAT ONLY LEGAL
*        TRIGGERS NEED TO BE SPECIFIED.ONLY IN THESE CASES ARE ANY
*        PARAMETERS STORED IN THE STATE TABLE.AT THE SAME TIME A
*        BITMAP IS CONSTRUCTED WITH ONE BIT PER POSSIBLE CASE (BOTH 
*        LEGAL AND ILLEGAL).IF THE TRIGGER IS DEFINED THAT MEANS THAT 
*        THE CASE IS LEGAL AND THE APPROPRIATE BIT IS SET.IF TRIGGER
*        NUMBERS ARE SKIPPED THIS MEANS THAT THOSE CASES ARE ILLEGAL
*        AND THE APPROPRIATE BITS ARE CLEARED.
*        WHEN ROUTINE XSTTP IS CALLED IT CALCULATES THE FOLLOWING 
*        BASED ON THE CALL PARAMETERS:  
*        (CURRENT STATE NO.*(MAX TRIGGER VALUE+1))+CURRENT TRIGGER NO 
*        THIS IS THE APPROPRIATE BIT-NUMBER IN THE BITMAP FOR THIS
*        CASE.IF IT IS CLEAR THE CASE IS ILLEGAL AND ZEROES ARE 
*        RETURNED IN THE RESPONSE.IF IT IS SET THEN THE CASE IS 
*        LEGAL AND THE RESPONSE PARAMETERS ARE TO BE LOCATED IN THE 
*        STATE TABLE.THIS IS DONE BY COUNTING THE ONE BITS PRECEDING
*        THIS CASE IN THE BITMAP,USING THE POPULATION COUNT 
*        MACHINE INSTRUCTION.BASED ON THE NUMBER OF PRECEDING LEGAL 
*        CASES THE PARAMETER-LOCATION IN THE ACTUAL STATE TABLE IS
*        CALCULATED (EACH LEGAL CASE OCCUPIES 30 BITS,CURRENTLY). 
*        FINALLY THAT INFO IS PASSED IN THE RESPONSE PARAMETER. 
*     4. ENTRY PARAMETERS 
*         ORD           STATE TABLE ORDINAL (0-3) 
*         CURST         CURRENT STATE OF CONNECTION OR 76B IF NO
*                                        CONNECTION EXISTS
*         TRIGNO        CURRENT TRIGGER NUMBER
*     5. EXIT PARAMETER.
*         STATRSP       RESPONSE WORD CONTAINING THE FOLLOWING FIELDS 
* 
*            LEGALB       BOOLEAN(LEFTMOST BIT) 
*                         IF FALSE THEN THE TRIGGER WAS NOT LEGAL 
*                         THE CURRENT STATE 
*                         IF TRUE THEN THE TRIGGER WAS LEGAL FOR THE
*                         CURRENT STATE AND THE FOLLOWING FIELDS (6-
*                         BITS EACH) ARE CONTAINED IN THE RIGHMOST
*                         30 BITS OF STATRSP: 
* 
*            NEWST      NEW STATE OF CONNECTION 
*            ACTION1    ACTION INDICATOR OF CODE TO BE PERFORMED
*            ACTION2    ACTION NUMBER 2 OF THE CODE TO BE PERFORMED 
*            REASON      REASON CODE TO CLARIFY THE RESULT
*            RES        RESERVED (77B)
* 
* 
*         A VALUE OF NOCHG(77B) INDICATES THAT NO STATE CHANGE, 
*       ACTION OR TRIGGER IS NEEDED 
*       A SPECIAL VALUE OF STATX (76B) FOR THE NEW STATE IMPLIES
*       THERE IS NO CONNECTION ANYMORE
* 
*     6. COMDECKS CALLED. 
*          MACDEF CYBERDEFS STBLDEF INPARU STBLMAC
*     7. ROUTINES CALLED. 
*          ABORT
*     8. DAYFILE MESSAGES 
*          NONE DIRECTLY
*          VIA ABORT: ERR IN STATE TABLE PROCESSOR CALL (XSTTP) 
* 
*#
*CALL MACDEF
*CALL CYBERDEFS 
*CALL INPARU
*CALL AIPSTDF 
  
 INITBL   MACRO  XX,XXMST,XXMTR 
 TP       MICRO  1,,*XX*
 "TP"_EGN SET    0
 MAXST    SET    XXMST
 MAXTR    SET    XXMTR
 NEXTST   SET    STATX
 NEXTTR   SET    0
          USE    /"TP"_BM/
 "TP"_BM BSS  0 
          USE    *
          USE    /"TP"_BL/
 "TP"_BL BSS  0 
          USE    *
          ENDM
 STATE    MACRO  STATN
          IFNE   STATN,NEXTST,1 
 ERR1     ERR    STATN       STATE NUMBER OUT OF SEQUENCE 
 FRSTSTT  IFEQ   STATN,STATX
 NEXTST   SET    0
 FRSTSTT  ELSE
          IFGT   STATN,MAXST,1
 ERR2     ERR    STATN       STATE NUMBER TOO LARGE 
 NEXTST   SET    STATN+1
 TRDIF    SET    MAXTR+1-NEXTTR 
          IFGT   TRDIF,0,3
          USE    /"TP"_BM/
          VFD    TRDIF/0
          USE    *
 FRSTSTT  ENDIF 
 NEXTTR   SET    0
          ENDM
 TRIG     MACRO  TRIGN,NEWST,ACTIO1,ACTIO2,ERRORC 
          IFC    EQ,**TRIGN*,1
 ERR3     ERR                TRIGGER NOT DEFINED
          IFLT   TRIGN,NEXTTR,1 
 ERR4     ERR    TRIGN       TRIGGER OUT OF SEQUENCE
          IFGT   TRIGN,MAXTR,1
 ERR5     ERR    TRIGN       TRIGGER VALUE TOO LARGE
 TRDIF    SET    TRIGN-NEXTTR 
          USE    /"TP"_BM/
          IFGT   TRDIF,0,1
          VFD    TRDIF/0
          VFD    1/1
          USE    *
 NEXTTR   SET    TRIGN+1
 "TP"_EGN SET  "TP"_EGN+1 
 PARLST   ECHO   ,PAR=(NEWST,ACTIO1,ACTIO2,ERRORC),NAM=(NST,AT1,AT2,ERC)
 BLPAR    IFC    EQ,**PAR*
 NAM      SET    NOCHG
 BLPAR    ELSE
 NAM      SET    PAR
 BLPAR    ENDIF 
 PARLST   ENDD
          USE    /"TP"_BL/
          VFD    6/NST,6/AT1,6/AT2,6/ERC,6/NOCHG
          USE    *
          ENDM
 ENDTBL   MACRO  XX 
 TP1      MICRO  1,,*XX*
          IFC    NE,*"TP1"*"TP"*,1
 ERR10    ERR    XX          WRONG TABLE ON ENDTBL STATEMENT
          IFLE   NEXTST,MAXST,1 
 ERR11    ERR                NOT ALL STATES WERE DEFINED
 TRDIF    SET    MAXTR+1-NEXTTR 
          USE    /"TP"_BM/
          IFGT   TRDIF,0,1
          VFD    TRDIF/0
          VFD    *P/0 
 "TP"_GEN BSS  0
          USE    *
 "TP"_ENW EQU "TP"_GEN-"TP"_BM
          ENDM
 TBLDEF   MACRO  XX,XXORD 
 TP       MICRO  1,,*XX*
          IF     -DEF,TBORD,2 
 TBORD    SET    0
 TBLPNTR  BSS    0
          IFNE   XXORD,TBORD,1
 ERR12    ERR    XXORD       TABLE ORDINALS NOT IN SEQUENCE 
 TBORD    SET    TBORD+1
 "TP"_ENT VFD    12/"TP"_MTR,12/"TP"_ENW,18/"TP"_BL,18/"TP"_BM
          ENDM
  
                                                                       #
*  THIS COMMON DECK DEFINES THE LEGAL TRIGGERS IN THE STATE TABLES. 
                                                                       #
  
                                                                       #
************************************************************************
*                                                                      *
* PRU SENDER STATE TABLE                                               *
*                                                                      *
************************************************************************
  
          INITBL NETSP,NETSPMST,NETSPMTR
* STATE X 
          STATE NSPSTX
          TRIG NSPTOCM,NSPACKS,NPSTM1,NPSSCKT 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
* STATE 0 
          STATE NSPACKS 
          TRIG NSPTSR,NSPWACK 
          TRIG NSPTFAK,NSPEXSR
          TRIG NSPTFNK,,NPRTURN,,RC2
          TRIG NSPTBRK,NSPWTRR,NPFCRST
          TRIG NSPTINT,,NPINTRP 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NSPTFT 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
          TRIG NRSTILL,NSPEXER,NPESER,,RC4
* STATE 1 
          STATE NSPEXSR 
          TRIG NSPTSR,NSPWPRN,NPPRUON 
          TRIG NSPTRRT,NSPACKS,NPSSCKT
          TRIG NSPTBRK,NSPRTRQ,NPFCRST
          TRIG NSPTINT,,NPINTRP 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NSPTFT 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
          TRIG NRSTILL,NSPACES,NPESER,,RC4
* STATE 2 
          STATE NSPWPRN 
          TRIG NSPTPRN,NSPDATR,NPSTZER,NPOFST 
          TRIG NSPTPRA,,NPRETPN 
          TRIG NSPTBRK,NSPPRBK
          TRIG NSPTINT,,NPINTRP 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NSPTFT 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
          TRIG NRSTILL,NSPPRPD,NPRTURN,,RC4 
* STATE 3 
          STATE NSPDATR 
          TRIG NSPTOFN,NSPWTCM,NPOTOFR
          TRIG NSPTXFR,NSPBREC,NPSTM2,NPOTOFR 
          TRIG NSPTQRE,NSPIOQR,NPSTM2,NPOTOFR,RC11
          TRIG NSPTRCT,STATX,NPRTURN,,RC5 
          TRIG NSPTIO7,NSPRTRQ,NPSTM2,NPOTOFR 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NSPTFT 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
* STATE 4 
          STATE NSPWTCM 
          TRIG NSPTOFF,NSPAKES,NPSESOK
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NSPTFT 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
* STATE 5 
          STATE NSPAKES 
          TRIG NSPTERK,NSPWAC1,NPLSTF 
          TRIG NSPTFAK,NSPEROK
          TRIG NSPTFNK,,NPRTURN,,RC2
          TRIG NSPTBRK,NSPWTRR,NPFCRST
          TRIG NSPTINT,,NPINTRP 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NSPTFT 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
          TRIG NRSTILL,NSPEXER,NPESER,,RC4
* STATE 6 
          STATE NSPEROK 
          TRIG NSPTERK,,NPRTURN,,RC1
          TRIG NSPTBRK,NSPWTRR,NPFCRST
          TRIG NSPTINT,,NPINTRP 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NSPTFT 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
          TRIG NRSTILL,NSPACES,NPESER,,RC4
* STATE 7 
          STATE NSPBREC 
          TRIG NSPTOFF,NSPWTRR
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NSPTFT 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
* STATE 8 
          STATE NSPRTRQ 
          TRIG NSPTOFF,NSPACKS,NPSTM1,NPSSCKT 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NSPTFT 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
* STATE 9 
          STATE NSPWTRR 
          TRIG NSPTRRT,NSPACKS,NPSTM1,NPSSCKT 
          TRIG NSPTBRK,,NPFCRST 
          TRIG NSPTINT,,NPINTRP 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NSPTFT 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
          TRIG NRSTILL,NSPACES,NPESER,,RC4
* STATE 10
          STATE NSPIOQR 
          TRIG NSPTOFF,NSPACES,NPESER 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NSPTFT 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
* STATE 11
          STATE NSPACES 
          TRIG NSPTRRT
          TRIG NSPTERE,NSPWAC2,NPLSTF 
          TRIG NSPTFAK,NSPEXER
          TRIG NSPTFNK,,NPRTURN,,RC2
          TRIG NSPTBRK,,NPFCRST,NPESER
          TRIG NSPTINT,,NPINTRP 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
          TRIG NRSTILL
* STATE 12
          STATE NSPEXER 
          TRIG NSPTRRT,NSPACKS,NPSTM1,NPSSCKT 
          TRIG NSPTERE,,NPRTURN 
          TRIG NSPTFAK
          TRIG NSPTFNK,,NPRTURN,,RC2
          TRIG NSPTBRK,NSPACES,NPFCRST,NPESER 
          TRIG NSPTINT,,NPINTRP 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
          TRIG NRSTILL
* STATE 13
          STATE NSPPRPD 
          TRIG NSPTPRN,NSPIOQR,NPOTOFR
          TRIG NSPTPRA,NSPACES,NPESER,,RC27 
          TRIG NSPTBRK,NSPPRBK
          TRIG NSPTINT,,NPINTRP 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
          TRIG NRSTILL
* STATE 14
          STATE NSPPRBK 
          TRIG NSPTPRA,NSPACES,NPFCRST,NPESER,RC27
          TRIG NSPTBRK,,NPFCRST 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
*STATE 15 
          STATE NSPWACK 
          TRIG NSPTFAK,NSPWPRN,NPPRUON
          TRIG NSPTFNK,,NPRTURN,,RC2
          TRIG NSPTBRK,NSPWTRR,NPFCRST
          TRIG NSPTINT,,NPINTRP 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NSPTFT 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
          TRIG NRSTILL
*STATE 16 
          STATE NSPWAC1 
          TRIG NSPTFAK,,NPLSTO,NPRTURN,RC1
          TRIG NSPTFNK,,NPRTURN,,RC2
          TRIG NSPTBRK,NSPWTRR,NPFCRST
          TRIG NSPTINT,,NPINTRP 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NSPTFT 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
          TRIG NRSTILL
*STATE 17 
          STATE NSPWAC2 
          TRIG NSPTRRT
          TRIG NSPTFAK,,NPLSTO,NPRTURN
          TRIG NSPTFNK,,NPRTURN,,RC2
          TRIG NSPTBRK,,NPFCRST,NPESER
          TRIG NSPTINT,,NPINTRP 
          TRIG NSPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,STATX,NPRTURN,,RC5 
          TRIG NRSTILL
* 
          ENDTBL NETSP
************************************************************************
*                                                                      *
* PRU RECEIVER STATE TABLE                                             *
*                                                                      *
************************************************************************
  
  
          INITBL NETRP,NETRPMST,NETRPMTR
* STATE X 
          STATE NRPSTX
          TRIG NRPTOCM,NRPEXSS,NPSTM1 
          TRIG NRSTIMO,,NPRTURN,,RC5
* STATE 0 
          STATE NRPEXSS 
          TRIG NRPTSS,NRPPRON,NPPRUON 
          TRIG NRPTBRK,,NPRTURN,,RC3
          TRIG NRPTINT,,NPINTRP 
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
          TRIG NRSTILL,NRPAKQR,NPQRER,,RC4
* STATE 1 
          STATE NRPPRON 
          TRIG NRPTPRN,NRPPRDA,NPSTZER,NPIFSRT
          TRIG NRPTPRA,,NPINTRA 
          TRIG NRPTBRK,,NPRTURN,,RC3
          TRIG NRPTINT,,NPINTRP 
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
          TRIG NRSTILL,NRPPRPD,NPRTURN,,RC4 
* STATE 2 
          STATE NRPPRDA 
          TRIG NRPTIFN,NRPESKR
          TRIG NRPTXFR,NRPE128,NPSTM2,NPIFOFR,RC25
          TRIG NRPTBR3,NRPBREC,NPSTM2,NPIFOFR,RC3 
          TRIG NRPTES5,NRPESRC,NPIFOFR,,RC11
          TRIG NRPTIO7,NRPITIO,NPIFOFR,,RC10
          TRIG NRPTTM9,STATX,NPRTURN,,RC5 
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
* STATE 3 
          STATE NRPESKR 
          TRIG NRPTESK,NRPNRCM,NPIFOFR
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
* STATE 4 
          STATE NRPNRCM 
          TRIG NRPTIFF,NRPAKER,NPEROK,NPLSTF,RC1
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
* STATE 5 
          STATE NRPAKER 
          TRIG NRPTFAK,,NPLSTO,NPRTURN
          TRIG NRPTNAK,,NPRTURN,,RC2
          TRIG NRPTBRK,,NPRTURN,,RC3
          TRIG NRPTINT,,NPINTRP 
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
          TRIG NRSTILL,,NPRTURN,,RC28 
* STATE 6 
          STATE NRPE128 
          TRIG NRPTIFF,NRPBROT,NPFCBRK
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
          TRIG NRSTILL
* STATE 7 
          STATE NRPBROT 
          TRIG NRPTBRK,,NPRTURN,,RC3
          TRIG NRPTFRT,NRPAKRR,NPSTM1,NPRRCKT 
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
* STATE 8 
          STATE NRPAKRR 
          TRIG NRPTFAK,NRPEXSS
          TRIG NRPTNAK,,NPRTURN,,RC2
          TRIG NRPTBRK,,NPRTURN,,RC3
          TRIG NRPTINT,,NPINTRP 
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
          TRIG NRSTILL
* STATE 9 
          STATE NRPBREC 
          TRIG NRPTIFF,NRPAKRR,NPSTM1,NPRRCKT 
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
* STATE 10
          STATE NRPESRC 
          TRIG NRPTIFF,NRPSNER,NPERER,NPLSTF
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
          TRIG NRSTILL
* STATE 11
          STATE NRPITIO 
          TRIG NRPTIFF,NRPAKQR,NPQRER 
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
          TRIG NRSTILL
* STATE 12
          STATE NRPAKQR 
          TRIG NRPTFAK,NRPEXES
          TRIG NRPTNAK,,NPRTURN,,RC2
          TRIG NRPTBRK,,NPRTURN,,RC3
          TRIG  NRPTINT,,NPINTRP
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
          TRIG NRSTILL
* STATE 13
          STATE NRPEXES 
          TRIG NRPTESE,NRPSNER,NPERER,NPLSTF
          TRIG NRPTFAK
          TRIG NRPTNAK,,NPRTURN,,RC2
          TRIG NRPTBRK,,NPRTURN,,RC3
          TRIG NRPTINT,,NPINTRP 
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
          TRIG NRSTILL
* STATE 14
          STATE NRPTOUT 
          TRIG NRPTIFF,,NPRTURN 
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
* STATE 15
          STATE NRPPRPD 
          TRIG NRPTPRN,NRPITIO,NPIFOFR
          TRIG NRPTPRA,NRPAKQR,NPQRER 
          TRIG NRPTBRK,,NPRTURN,,RC3
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
          TRIG NRSTILL
* STATE 16
          STATE NRPPRBK 
          TRIG NRPTPRA,NRPAKQR,NPFCRST,NPQRER,RC27
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
* STATE 17
          STATE NRPSNER 
          TRIG NRPTFAK,,NPLSTO,NPRTURN
          TRIG NRPTNAK,,NPRTURN,,RC2
          TRIG NRPTBRK,,NPRTURN,,RC3
          TRIG NRPTINT,,NPINTRP 
          TRIG NRPTNCB,STATX,NPRTURN,,RC3 
          TRIG NRSTHSD,,NPIDLET 
          TRIG NRSTNSL,STATX,NPRTURN,,RC14
          TRIG NRSTIMO,,NPRTURN,,RC5
          TRIG NRSTILL
* 
          ENDTBL NETRP
  
************************************************************************
*                                                                      *
* CHARACTER SENDER STATE TABLE                                         *
*                                                                      *
************************************************************************
  
  
  
          INITBL NETSC,NETSCMST,NETSCMTR
* STATE X 
          STATE NSCSTX
          TRIG NSCTOCM,NSCEXSR,NCSTM1,NCSSCKT 
          TRIG NSCTIMO,STATX,NCRTURN,,RC5 
* STATE 0 
          STATE NSCEXSR 
          TRIG NSCTSR,NSCDATA,NCSTZER 
          TRIG NSCTQRK
          TRIG NSCTQRE,NSCERER,NCESER,,RC11 
          TRIG NSCTMRR
          TRIG NSCTACK,,NCADABL 
          TRIG NSCTNAK,STATX,NCRTURN,,RC2 
          TRIG NSCTBRK,NSCWTRR,NCOPRST
          TRIG NSCTINT,,NCINTSP 
          TRIG NSCTNCB,STATX,NCRTURN,,RC3 
          TRIG NSCTHSD,,NCIDLE
          TRIG NSCTNSL,STATX,NCRTURN,,RC14
          TRIG NSCTIMO,STATX,NCRTURN,,RC5 
          TRIG NSCTILL,NSCERER,NCESER,,RC4
          TRIG NSCTERR,NSCERER,NCESER,,RC10 
* STATE 1 
          STATE NSCDATA 
          TRIG NSCTRRT,NSCEXSR,NCSTMRS,NCSSRRT
          TRIG NSCTQRK,NSCEROK,NCESOK 
          TRIG NSCTQRE,NSCERER,NCESER 
          TRIG NSCTMRR,,NCADCMW 
          TRIG NSCTACK,,NCADABL 
          TRIG NSCTNAK,STATX,NCRTURN,,RC2 
          TRIG NSCTBRK,NSCWTRR,NCOPRST
          TRIG NSCTINT,,NCINTSP 
          TRIG NSCTNCB,STATX,NCRTURN,,RC3 
          TRIG NSCTHSD,,NCIDLE
          TRIG NSCTNSL,STATX,NCRTURN,,RC14
          TRIG NSCTIMO,STATX,NCRTURN,,RC5 
          TRIG NSCTILL,NSCERER,NCESER,,RC4
          TRIG NSCTEOI,NSCEROK,NCESOK 
          TRIG NSCTMCM,NSCCCMW
          TRIG NSCTSND,,NCSDATA 
          TRIG NSCTERR,NSCERER,NCESER,,RC10 
* STATE 2 
          STATE NSCCABL 
          TRIG NSCTRRT,NSCABRR,NCSTMRS
          TRIG NSCTQRK,NSCABLE
          TRIG NSCTQRE,NSCABES,,,RC11 
          TRIG NSCTMRR,,NCADCMW 
          TRIG NSCTACK,NSCDATA,NCADABL
          TRIG NSCTNAK,STATX,NCRTURN,,RC2 
          TRIG NSCTBRK,NSCWTRR,NCOPRST
          TRIG NSCTINT,,NCINTSP 
          TRIG NSCTNCB,STATX,NCRTURN,,RC3 
          TRIG NSCTHSD,,NCIDLE
          TRIG NSCTNSL,STATX,NCRTURN,,RC14
          TRIG NSCTIMO,STATX,NCRTURN,,RC5 
          TRIG NSCTILL,NSCABES,,,RC7
          TRIG NSCTEOI,NSCABLE
          TRIG NSCTMCM,NSCCCAW
          TRIG NSCTSND
          TRIG NSCTERR,NSCABES,,,RC10 
* STATE 3 
          STATE NSCCCMW 
          TRIG NSCTRRT,NSCEXSR,NCSTMRS,NCSSRRT
          TRIG NSCTQRK,NSCEROK,NCESOK 
          TRIG NSCTQRE,NSCERER,NCESER,,RC11 
          TRIG NSCTMRR,NSCDATA,NCADCMW
          TRIG NSCTACK,,NCADABL 
          TRIG NSCTNAK,STATX,NCRTURN,,RC2 
          TRIG NSCTBRK,NSCWTRR,NCOPRST
          TRIG NSCTINT,,NCINTSP 
          TRIG NSCTNCB,STATX,NCRTURN,,RC3 
          TRIG NSCTHSD,,NCIDLE
          TRIG NSCTNSL,STATX,NCRTURN,,RC14
          TRIG NSCTIMO,STATX,NCRTURN,,RC5 
          TRIG NSCTILL,NSCERER,NCESER,,RC4
          TRIG NSCTEOI,NSCEROK,NCESOK 
          TRIG NSCTSND
          TRIG NSCTERR,NSCERER,NCESER,,RC10 
* STATE 4 
          STATE NSCCCAW 
          TRIG NSCTRRT,NSCABRR,NCSTMRS
          TRIG NSCTQRK,NSCABLE
          TRIG NSCTQRE,NSCABES,,,RC11 
          TRIG NSCTMRR,NSCCABL,NCADCMW
          TRIG NSCTACK,NSCCCMW,NCADABL
          TRIG NSCTNAK,STATX,NCRTURN,,RC2 
          TRIG NSCTBRK,NSCWTRR,NCOPRST
          TRIG NSCTINT,,NCINTSP 
          TRIG NSCTNCB,STATX,NCRTURN,,RC3 
          TRIG NSCTHSD,,NCIDLE
          TRIG NSCTNSL,STATX,NCRTURN,,RC14
          TRIG NSCTIMO,STATX,NCRTURN,,RC5 
          TRIG NSCTILL,NSCABES,,,RC4
          TRIG NSCTERR,NSCABES,,,RC10 
* STATE 5 
          STATE NSCABLE 
          TRIG NSCTRRT,NSCABRR,NCSTMRS
          TRIG NSCTQRK
          TRIG NSCTQRE,NSCABES,,,RC11 
          TRIG NSCTMRR,,NCADCMW 
          TRIG NSCTACK,NSCEROK,NCADABL,NCESOK 
          TRIG NSCTNAK,STATX,NCRTURN,,RC2 
          TRIG NSCTBRK,NSCWTRR,NCOPRST
          TRIG NSCTINT,,NCINTSP 
          TRIG NSCTNCB,STATX,NCRTURN,,RC3 
          TRIG NSCTHSD,,NCIDLE
          TRIG NSCTNSL,STATX,NCRTURN,,RC14
          TRIG NSCTIMO,STATX,NCRTURN,,RC5 
          TRIG NSCTILL,NSCABES,,,RC4
          TRIG NSCTERR,NSCABES,,,RC10 
* STATE 6 
          STATE NSCEROK 
          TRIG NSCTRRT,NSCABRR,NCSTMRS
          TRIG NSCTERK,,NCRTURN,,RC1
          TRIG NSCTQRK
          TRIG NSCTQRE,NSCERER,NCESER,,RC11 
          TRIG NSCTMRR,,NCADCMW 
          TRIG NSCTACK,,NCADABL 
          TRIG NSCTNAK,STATX,NCRTURN,,RC2 
          TRIG NSCTBRK,NSCWTRR,NCOPRST
          TRIG NSCTINT,,NCINTSP 
          TRIG NSCTNCB,STATX,NCRTURN,,RC3 
          TRIG NSCTHSD,,NCIDLE
          TRIG NSCTNSL,STATX,NCRTURN,,RC14
          TRIG NSCTIMO,STATX,NCRTURN,,RC5 
          TRIG NSCTILL,NSCERER,NCESER,,RC4
          TRIG NSCTABE,NSCWAER
          TRIG NSCTERR,NSCERER,NCESER,,RC10 
* STATE 7 
          STATE NSCABES 
          TRIG NSCTACK,NSCERER,NCADABL,NCESER 
          TRIG NSCTNAK,STATX,NCRTURN,,RC2 
          TRIG NSCTBRK,NSCWTRR,NCOPRST
          TRIG NSCTINT,,NCINTSP 
          TRIG NSCTNCB,STATX,NCRTURN,,RC3 
          TRIG NSCTHSD,,NCIDLE
          TRIG NSCTNSL,STATX,NCRTURN,,RC14
          TRIG NSCTIMO,STATX,NCRTURN,,RC5 
          TRIG NSCTILL
          TRIG NSCTERR
* STATE 8 
          STATE NSCERER 
          TRIG NSCTERK,,NCRTURN 
          TRIG NSCTERE,STATX,NCRTURN
          TRIG NSCTACK,,NCADABL 
          TRIG NSCTNAK,STATX,NCRTURN,,RC2 
          TRIG NSCTBRK,NSCWTRR,NCOPRST
          TRIG NSCTINT,,NCINTSP 
          TRIG NSCTNCB,STATX,NCRTURN,,RC3 
          TRIG NSCTHSD,,NCIDLE
          TRIG NSCTNSL,STATX,NCRTURN,,RC14
          TRIG NSCTIMO,STATX,NCRTURN,,RC5 
          TRIG NSCTILL
          TRIG NSCTERR
* STATE 9 
          STATE NSCABRR 
          TRIG NSCTACK,NSCEXSR,NCADABL,NCSSCKT
          TRIG NSCTNAK,STATX,NCRTURN,,RC2 
          TRIG NSCTBRK,NSCWTRR,NCOPRST
          TRIG NSCTINT,,NCINTSP 
          TRIG NSCTNCB,STATX,NCRTURN,,RC3 
          TRIG NSCTHSD,,NCIDLE
          TRIG NSCTNSL,STATX,NCRTURN,,RC14
          TRIG NSCTIMO,STATX,NCRTURN,,RC5 
          TRIG NSCTILL,NSCABES,,,RC4
          TRIG NSCTERR,NSCABES,,,RC10 
* STATE 10
          STATE NSCWTRR 
          TRIG NSCTRRT,NSCEXSR,NCSTMRS,NCSSRRT
          TRIG NSCTERK
          TRIG NSCTERE,NSCERER,NCESER,,RC11 
          TRIG NSCTQRK,NSCEROK,NCESOK 
          TRIG NSCTQRE,NSCERER,NCESER,,RC11 
          TRIG NSCTMRR
          TRIG NSCTACK
          TRIG NSCTNAK,STATX,NCRTURN,,RC2 
          TRIG NSCTBRK,,NCOPRST 
          TRIG NSCTINT,,NCINTSP 
          TRIG NSCTNCB,STATX,NCRTURN,,RC3 
          TRIG NSCTHSD,,NCIDLE
          TRIG NSCTNSL,STATX,NCRTURN,,RC14
          TRIG NSCTIMO,STATX,NCRTURN,,RC5 
          TRIG NSCTILL,NSCERER,NCESER,,RC4
          TRIG NSCTERR,NSCERER,NCESER,,RC10 
* STATE 11
          STATE NSCWAER 
          TRIG NSCTRRT,NSCABRR,NCSTMRS
          TRIG NSCTERK,,NCRTURN,,RC1
          TRIG NSCTQRK
          TRIG NSCTQRE,NSCABES,,RC11
          TRIG NSCTMRR,,NCADCMW 
          TRIG NSCTACK,NSCEROK,NCADABL
          TRIG NSCTNAK,STATX,NCRTURN,,RC2 
          TRIG NSCTBRK,NSCWTRR,NCOPRST
          TRIG NSCTINT,,NCINTSP 
          TRIG NSCTNCB,STATX,NCRTURN,,RC3 
          TRIG NSCTHSD,,NCIDLE
          TRIG NSCTNSL,STATX,NCRTURN,,RC14
          TRIG NSCTIMO,STATX,NCRTURN,,RC5 
          TRIG NSCTILL,NSCABES,,,RC4
          TRIG NSCTERR,NSCABES,,,RC10 
* STATE 12
          STATE NSCWACK 
          TRIG NSCTACK,,NCADWSP,NCRTURN 
          TRIG NSCTNAK,,NCRTURN,,RC2
          TRIG NSCTBRK,,NCOPRST 
          TRIG NSCTINT,,NCINTSP 
          TRIG NSCTNCB,,NCRTURN,,RC3
          TRIG NSCTHSD,,NCIDLE
          TRIG NSCTNSL,,NCRTURN,,RC14 
          TRIG NSCTIMO,,NCRTURN,,RC5
          TRIG NSCTILL
* 
          ENDTBL NETSC
  
  
************************************************************************
*                                                                      *
* CHARACTER RECEIVER STATE TABLE                                       *
*                                                                      *
************************************************************************
  
  
          INITBL NETRC,NETRCMST,NETRCMTR
* STATE X 
          STATE NRCSTX
          TRIG NRCTOCM,NRCEXSS,NCSTM1 
          TRIG NRCTIMO,STATX,NCRTURN,,RC5 
* STATE 0 
          STATE NRCEXSS 
          TRIG NRCTSS,NRCDATA,NCSNDSR 
          TRIG NRCTESE,NRCACKR,NCERER,,RC11 
          TRIG NRCTACK,,NCADABL 
          TRIG NRCTBRK,,NCOPRST,NCRRCHK,RC3 
          TRIG NRCTINT,,NCINTSP 
          TRIG NRCTNCB,STATX,NCRTURN,,RC3 
          TRIG NRCTHSD,,NCIDLE
          TRIG NRCTNSL,STATX,NCRTURN,,RC14
          TRIG NRCTIMO,STATX,NCRTURN,,RC5 
          TRIG NRCTILL,NRCABNR,NCSTM2,NCQRER,RC4
          TRIG NRCTITR,NRCABNR,NCSTM2,NCQRER,RC10 
* STATE 1 
          STATE NRCDATA 
          TRIG NRCTESK,NRCTRCM,NCCLOSE
          TRIG NRCTESE,NRCACKR,NCERER,,RC11 
          TRIG NRCTMSR,,NCSAVE
          TRIG NRCTACK,,NCADABL 
          TRIG NRCTNAK,,NCRTURN,,RC2
          TRIG NRCTBRK,NRCRSIN,NCOPRST,NCRRCHK,RC3
          TRIG NRCTINT,,NCINTSP 
          TRIG NRCTNCB,STATX,NCRTURN,,RC3 
          TRIG NRCTHSD,,NCIDLE
          TRIG NRCTNSL,STATX,NCRTURN,,RC14
          TRIG NRCTIMO,STATX,NCRTURN,,RC5 
          TRIG NRCTILL,NRCABNR,NCSTM2,NCQRER,RC4
          TRIG NRCTDAT,,NCSTORE 
          TRIG NRCTBDA,NRCRETY,NCSTRWL,NCFCBRK,RC25 
          TRIG NRCTITR,NRCABNR,NCSTM2,NCQRER
          TRIG NRCTCHM,,NCSNDMR 
* STATE 2 
          STATE NRCABNR 
          TRIG NRCTESE,NRCACKR,NCERER,,RC11 
          TRIG NRCTMSR
          TRIG NRCTACK,,NCADABL 
          TRIG NRCTNAK,,NCRTURN,,RC2
          TRIG NRCTBRK,,NCOPRST,NCRTURN,RC3 
          TRIG NRCTINT,,NCINTSP 
          TRIG NRCTNCB,STATX,NCRTURN,,RC3 
          TRIG NRCTHSD,,NCIDLE
          TRIG NRCTNSL,STATX,NCRTURN,,RC14
          TRIG NRCTIMO,STATX,NCRTURN,,RC5 
          TRIG NRCTILL,NRCABNR,NCSTM2,NCQRER,RC4
          TRIG NRCTDAT
          TRIG NRCTITR
* STATE 3 
          STATE NRCRETY 
          TRIG NRCTMSR
          TRIG NRCTACK,,NCADABL 
          TRIG NRCTBRK,NRCRSIN,NCRRCHK
          TRIG NRCTRST,NRCRSIN,NCRRCHK
          TRIG NRCTINT
          TRIG NRCTNCB,STATX,NCRTURN,,RC3 
          TRIG NRCTHSD,,NCIDLE
          TRIG NRCTNSL,STATX,NCRTURN,,RC14
          TRIG NRCTIMO,STATX,NCRTURN,,RC5 
          TRIG NRCTILL
* STATE 4 
          STATE NRCACKR 
          TRIG NRCTACK,,NCLSTO,NCRTURN
          TRIG NRCTNAK,,NCRTURN,,RC2
          TRIG NRCTBRK,STATX,NCOPRST,NCRTURN,RC28 
          TRIG NRCTINT,,NCINTSP 
          TRIG NRCTNCB,STATX,NCRTURN,,RC3 
          TRIG NRCTHSD,,NCIDLE
          TRIG NRCTNSL,STATX,NCRTURN,,RC14
          TRIG NRCTIMO,STATX,NCRTURN,,RC5 
          TRIG NRCTILL
* STATE 5 
          STATE NRCTRCM 
          TRIG NRCTINT,,NCINTSP 
          TRIG NRCTNCB,STATX,NCRTURN,,RC3 
          TRIG NRCTHSD,,NCIDLE
          TRIG NRCTNSL,STATX,NCRTURN,,RC14
          TRIG NRCTIMO,STATX,NCRTURN,,RC5 
          TRIG NRCTILL,NRCABNR,NCSTM2,NCQRER,RC4
          TRIG NRCTEOK,NRCACKR,NCEROK,NCLSTF,RC1
          TRIG NRCTITR,NRCABNR,NCSTM2,NCQRER,RC10 
* STATE 6 
          STATE NRCRSIN 
          TRIG NRCTSS,NRCDATA,NCSNDSR 
          TRIG NRCTESK
          TRIG NRCTESE,NRCACKR,NCERER 
          TRIG NRCTMSR
          TRIG NRCTACK,,NCADABL 
          TRIG NRCTBRK,,NCOPRST,NCRRCHK,RC3 
          TRIG NRCTINT,,NCINTSP 
          TRIG NRCTNCB,STATX,NCRTURN,,RC3 
          TRIG NRCTHSD,,NCIDLE
          TRIG NRCTNSL,STATX,NCRTURN,,RC14
          TRIG NRCTIMO,STATX,NCRTURN,,RC5 
          TRIG NRCTILL,NRCABNR,NCSTM2,NCQRER,RC4
          TRIG NRCTDAT
          TRIG NRCTBDA
          TRIG NRCTITR,NRCABNR,NCSTM2,NCQRER,RC10 
* STATE 7 
          STATE NRCDUMM 
* 
          ENDTBL NETRC
  
  
************************************************************************
*                                                                      *
* DEFINITIONS OF THE STATE TABLE ORDINALS                              *
*                                                                      *
************************************************************************
  
          TBLDEF NETSP,NETSPOD
          TBLDEF NETRP,NETRPOD
          TBLDEF NETSC,NETSCOD
          TBLDEF NETRC,NETRCOD
                                                                       #
 NP$STTP  SUBR   =
          SB7    WL 
          SB1    1
          SA2    X1          PAR LIST,PICK UP STTBL ORDINAL 
          SA2    X2+TBLPNTR  POINTER TABLE INDEXED BY ORDINAL 
          SB2    X2          SAVE LEGBM ADDRESS 
          MX7    48 
          LX2    12          SHIFT POINTER TABLE ENTRY
          BX1    -X7*X2      MAXIMUM TRIGGER VALUE
          SX1    X1+B1       ADD ONE
          LX2    12          SHIFT AGAIN AND PICK UP
          BX3    -X7*X2      LENGTH OF LEGAL CASE BITMAP IN WORDS 
          SB3    X3          SAVE IN B3 
          SA3    A1+B1       NEXT PAR:CURRENT STATE 
          SA5    X3 
          SX4    X5-STATX 
          ZR     X4,NOCONN   IF STATE OF NO CONNECTION SKIP 
          SX3    X5+B1       ADD ONE FOR NO CONN STATE
          IX4    X1*X3       CALCULATE CUR STATE*MAX TRIGVAL+1
 NOCONN   SA3    A3+B1       NEXT PAR:TRIGNO
          SA5    X3 
          IX3    X5+X4       ADD IT TO X4 
          SB4    X3          SAVE IN B4 (CURST*(MAXTR+1))+TRIGNO
          SB6    B0 
          LT     B4,B7,FNDWD IF VALUE LESS THAN 60 THEN FOUND WORD
 LOOP     SB4    B4-B7       OTHERWISE SUBTRACT 60 AND
          SB6    B6+B1       KEEP WORD COUNT IN B6
          GE     B4,B7,LOOP  MORE TO GO 
 FNDWD    GE     B6,B3,ERR   ILLEGAL VALUE IN B4
          SA1    B2+B6       FETCH PROPER LEGBM WORD
          LX5    X1,B4       SHIFT TO PROPER BIT
          NG     X5,LEGVAL   LEGAL TRIGGER,JUMP 
          MX6    0           ILLEGAL TRIGGER
          SA3    A3+B1       SET EXIT PAR TO 0
          SA6    X3          STORE AND EXIT 
          EQ     NP$STTPX 
 LEGVAL   MX6    1           COUNT NO OF PRECEDING ENTRIES
          AX7    B4,X6       BUILD MASK FOR ALL PRECEDING BITS
          BX5    X7*X1       X1 CONTAINS LEGBM WORD 
          CX3    X5          NUMBER OF ONES IN WORD 
          EQ     B6,NOMORE   JUMP IF NO PRECEDING WORDS 
 MORE     SB6    B6-B1       CHECK PRECEDING WORDS IN LEGBM 
          SA1    B2+B6       PREVIOUS WORD
          CX5    X1          COUNT ONES 
          IX3    X3+X5       ADD TO RESULT
          GT     B6,MORE     MORE TO GO 
 NOMORE   SX3    X3-1        SUBTRACT ONE FOR ORIG ENTRY
* X3 NOW HOLDS THE NUMBER OF PRECEDING LEGAL ENTRIES IN STTBL 
* BASED ON 30 BIT ENTRY LENGTH WE DIVIDE BY 2 IN ORDER TO 
* CALCULATE THE PROPER ADDRESS
          AX4    B1,X3
          SB3    X4 
          LX5    B1,X4       MULT BACK BY 2AND CALCULATE LOGICAL
          BX4    X5-X3       DIFFERENCE TO KNOW SIDE OF ENTRY 
* X2 STILL HOLDS POINTER TABLE WORD FOR PROPER ORDINAL
          LX2    18          SHIFT TO POSITION
          SA1    X2+B3       FETCH PROPER STTBL WORD
          NZ     X4,RIGHTSD  TAKE PROPER SIDE 
          LX1    30          LEFT OR
 RIGHTSD  MX7    30          RIGHT
          BX5    -X7*X1      MASK THE 30 BITS AND ADD 
          BX7    X5+X6       HIGH ORDER BIT TO INDICATE 
          SA3    A3+B1       LEGAL VALUE
          SA7    X3          STORE IN EXIT PARAMETER
          EQ     NP$STTPX 
 ERR      SX1    ERRMSG 
          EQ     NP$MSG      ABORT WITH PROPER ERROR MESSAGE IN DAYFILE 
 ERRMSG   DIS    ,* ERROR IN NP$STTP CALL*
 ERRMSG0  BSS    0
 XNAME    DATA    L*NP$STTP*
 TEMP     BSS    1
          END 
*ENDIF
