Retro1.org codex

User Tools

Site Tools

Trace: • NP$STTP
cdc:nos2.source:nam5871:np_sttp

Table of Contents

NP$STTP

Table Of Contents

Source Code

NP$STTP.txt 
  1. *DECK,NP$STTP 
  2. *IF,DEF,XFR 
  3.           IDENT  NP$STTP
  4.           SST 
  5.           EXT    NP$MSG 
  6.           ENTRY  NP$STTP
  7. *#
  8. *1DC  NP$STTP 
  9. *     1. PROC NAME       AUTHOR           DATE
  10. *        NP$STTP         Y.C.YIP          81/03/03
  11. *     2. FUNCTIONAL DESCRIPTION 
  12. *        THIS ROUTINE IS RESPONSIBLE FOR ACCESSING THE VARIOUS STATE
  13. *        TABLES.IT IS CALLED BY EACH OF THE FOUR STATE TABLE
  14. *        PROCESSORS (NCSTTP,NBSTTP,HCSTTP,HBSTTP).EACH ONE OF THESE 
  15. *        SPECIFIES THE STATE TABLE TO BE PROCESSED BY PASSING THE 
  16. *        PROPER ORDINAL.
  17. *     3. METHOD USED
  18. *        THE STATE TABLES ARE DEFINED BY USING  THE FOLLOWING MACROES 
  19. *        (DEFINED IN COMDECK STBLMAC):INITBL,STATE,TRIG,ENDTBL. 
  20. *        INITIALLY INITBL IS INVOKED WITH THE STATE TABLE NAME OF 2 
  21. *        CHARACTERS,THE MAXIMUM STATE NUMBER AND THE MAXIMUM TRIGGER
  22. *        TRIGGER NUMBER.
  23. *        NEXT FOR EACH STATE ALL LEGAL TRIGGERS ARE DEFINED,BY
  24. *        INVOKING A STATE MACRO WITH THE STATE NUMBER FOLLOWED BY 
  25. *        THE TRIG MACRO FOR EACH LEGAL TRIGGER IN THAT STATE.THE TRIG 
  26. *        MACRO HAS THE FOLLOWING PARAMETERS (IN THIS ORDER):  
  27. *        TRIGN -  TRIGGER NUMBER
  28. *        NEWST -  NEW STATE AS A RESULT OF THIS TRIGGER 
  29. *        ACTION1- ACTION ORDINAL OF CODE TO BE PERFORMED IN THIS CASE 
  30. *        ACTION2- ACTION  2 , TO BE SENT TO CORRESP. CONNECTION STATE 
  31. *                 TABLE 
  32. *        REASON -  REASON CODE. 
  33. *        EXCEPT TRIGN ALL PARAMETERS MAY BE LEFT BLANK BY ADJACENT
  34. *        COMMAS,IN WHICH A NO CHANGE VALUE (NOCHG) WILL BE FILLED IN. 
  35. *        ALL STATES MUST BE DEFINED IN ORDER STARTING FROM THE SPECIAL
  36. *        NO CONNECTION STATE (STATX),THEN STATE 0,STATE 1 AND SO ON.
  37. *        ALL STATES MUST HAVE AT LEAST ONE LEGAL TRIGGER.FINALLY THE
  38. *        MACRO ENDTBL MUST BE INVOKED WITH THE 2-CHAR NAME OF THE 
  39. *        STATE TABLE. 
  40. *        THE STATE TABLES MACROES ARE DEVISED SUCH THAT ONLY LEGAL
  41. *        TRIGGERS NEED TO BE SPECIFIED.ONLY IN THESE CASES ARE ANY
  42. *        PARAMETERS STORED IN THE STATE TABLE.AT THE SAME TIME A
  43. *        BITMAP IS CONSTRUCTED WITH ONE BIT PER POSSIBLE CASE (BOTH 
  44. *        LEGAL AND ILLEGAL).IF THE TRIGGER IS DEFINED THAT MEANS THAT 
  45. *        THE CASE IS LEGAL AND THE APPROPRIATE BIT IS SET.IF TRIGGER
  46. *        NUMBERS ARE SKIPPED THIS MEANS THAT THOSE CASES ARE ILLEGAL
  47. *        AND THE APPROPRIATE BITS ARE CLEARED.
  48. *        WHEN ROUTINE XSTTP IS CALLED IT CALCULATES THE FOLLOWING 
  49. *        BASED ON THE CALL PARAMETERS:  
  50. *        (CURRENT STATE NO.*(MAX TRIGGER VALUE+1))+CURRENT TRIGGER NO 
  51. *        THIS IS THE APPROPRIATE BIT-NUMBER IN THE BITMAP FOR THIS
  52. *        CASE.IF IT IS CLEAR THE CASE IS ILLEGAL AND ZEROES ARE 
  53. *        RETURNED IN THE RESPONSE.IF IT IS SET THEN THE CASE IS 
  54. *        LEGAL AND THE RESPONSE PARAMETERS ARE TO BE LOCATED IN THE 
  55. *        STATE TABLE.THIS IS DONE BY COUNTING THE ONE BITS PRECEDING
  56. *        THIS CASE IN THE BITMAP,USING THE POPULATION COUNT 
  57. *        MACHINE INSTRUCTION.BASED ON THE NUMBER OF PRECEDING LEGAL 
  58. *        CASES THE PARAMETER-LOCATION IN THE ACTUAL STATE TABLE IS
  59. *        CALCULATED (EACH LEGAL CASE OCCUPIES 30 BITS,CURRENTLY). 
  60. *        FINALLY THAT INFO IS PASSED IN THE RESPONSE PARAMETER. 
  61. *     4. ENTRY PARAMETERS 
  62. *         ORD           STATE TABLE ORDINAL (0-3) 
  63. *         CURST         CURRENT STATE OF CONNECTION OR 76B IF NO
  64. *                                        CONNECTION EXISTS
  65. *         TRIGNO        CURRENT TRIGGER NUMBER
  66. *     5. EXIT PARAMETER.
  67. *         STATRSP       RESPONSE WORD CONTAINING THE FOLLOWING FIELDS 
  68. * 
  69. *            LEGALB       BOOLEAN(LEFTMOST BIT) 
  70. *                         IF FALSE THEN THE TRIGGER WAS NOT LEGAL 
  71. *                         THE CURRENT STATE 
  72. *                         IF TRUE THEN THE TRIGGER WAS LEGAL FOR THE
  73. *                         CURRENT STATE AND THE FOLLOWING FIELDS (6-
  74. *                         BITS EACH) ARE CONTAINED IN THE RIGHMOST
  75. *                         30 BITS OF STATRSP: 
  76. * 
  77. *            NEWST      NEW STATE OF CONNECTION 
  78. *            ACTION1    ACTION INDICATOR OF CODE TO BE PERFORMED
  79. *            ACTION2    ACTION NUMBER 2 OF THE CODE TO BE PERFORMED 
  80. *            REASON      REASON CODE TO CLARIFY THE RESULT
  81. *            RES        RESERVED (77B)
  82. * 
  83. * 
  84. *         A VALUE OF NOCHG(77B) INDICATES THAT NO STATE CHANGE, 
  85. *       ACTION OR TRIGGER IS NEEDED 
  86. *       A SPECIAL VALUE OF STATX (76B) FOR THE NEW STATE IMPLIES
  87. *       THERE IS NO CONNECTION ANYMORE
  88. * 
  89. *     6. COMDECKS CALLED. 
  90. *          MACDEF CYBERDEFS STBLDEF INPARU STBLMAC
  91. *     7. ROUTINES CALLED. 
  92. *          ABORT
  93. *     8. DAYFILE MESSAGES 
  94. *          NONE DIRECTLY
  95. *          VIA ABORT: ERR IN STATE TABLE PROCESSOR CALL (XSTTP) 
  96. * 
  97. *#
  98. *CALL MACDEF
  99. *CALL CYBERDEFS 
  100. *CALL INPARU
  101. *CALL AIPSTDF 
  102.  
  103.  INITBL   MACRO  XX,XXMST,XXMTR 
  104.  TP       MICRO  1,,*XX*
  105.  "TP"_EGN SET    0
  106.  MAXST    SET    XXMST
  107.  MAXTR    SET    XXMTR
  108.  NEXTST   SET    STATX
  109.  NEXTTR   SET    0
  110.           USE    /"TP"_BM/
  111.  "TP"_BM BSS  0 
  112.           USE    *
  113.           USE    /"TP"_BL/
  114.  "TP"_BL BSS  0 
  115.           USE    *
  116.           ENDM
  117.  STATE    MACRO  STATN
  118.           IFNE   STATN,NEXTST,1 
  119.  ERR1     ERR    STATN       STATE NUMBER OUT OF SEQUENCE 
  120.  FRSTSTT  IFEQ   STATN,STATX
  121.  NEXTST   SET    0
  122.  FRSTSTT  ELSE
  123.           IFGT   STATN,MAXST,1
  124.  ERR2     ERR    STATN       STATE NUMBER TOO LARGE 
  125.  NEXTST   SET    STATN+1
  126.  TRDIF    SET    MAXTR+1-NEXTTR 
  127.           IFGT   TRDIF,0,3
  128.           USE    /"TP"_BM/
  129.           VFD    TRDIF/0
  130.           USE    *
  131.  FRSTSTT  ENDIF 
  132.  NEXTTR   SET    0
  133.           ENDM
  134.  TRIG     MACRO  TRIGN,NEWST,ACTIO1,ACTIO2,ERRORC 
  135.           IFC    EQ,**TRIGN*,1
  136.  ERR3     ERR                TRIGGER NOT DEFINED
  137.           IFLT   TRIGN,NEXTTR,1 
  138.  ERR4     ERR    TRIGN       TRIGGER OUT OF SEQUENCE
  139.           IFGT   TRIGN,MAXTR,1
  140.  ERR5     ERR    TRIGN       TRIGGER VALUE TOO LARGE
  141.  TRDIF    SET    TRIGN-NEXTTR 
  142.           USE    /"TP"_BM/
  143.           IFGT   TRDIF,0,1
  144.           VFD    TRDIF/0
  145.           VFD    1/1
  146.           USE    *
  147.  NEXTTR   SET    TRIGN+1
  148.  "TP"_EGN SET  "TP"_EGN+1 
  149.  PARLST   ECHO   ,PAR=(NEWST,ACTIO1,ACTIO2,ERRORC),NAM=(NST,AT1,AT2,ERC)
  150.  BLPAR    IFC    EQ,**PAR*
  151.  NAM      SET    NOCHG
  152.  BLPAR    ELSE
  153.  NAM      SET    PAR
  154.  BLPAR    ENDIF 
  155.  PARLST   ENDD
  156.           USE    /"TP"_BL/
  157.           VFD    6/NST,6/AT1,6/AT2,6/ERC,6/NOCHG
  158.           USE    *
  159.           ENDM
  160.  ENDTBL   MACRO  XX 
  161.  TP1      MICRO  1,,*XX*
  162.           IFC    NE,*"TP1"*"TP"*,1
  163.  ERR10    ERR    XX          WRONG TABLE ON ENDTBL STATEMENT
  164.           IFLE   NEXTST,MAXST,1 
  165.  ERR11    ERR                NOT ALL STATES WERE DEFINED
  166.  TRDIF    SET    MAXTR+1-NEXTTR 
  167.           USE    /"TP"_BM/
  168.           IFGT   TRDIF,0,1
  169.           VFD    TRDIF/0
  170.           VFD    *P/0 
  171.  "TP"_GEN BSS  0
  172.           USE    *
  173.  "TP"_ENW EQU "TP"_GEN-"TP"_BM
  174.           ENDM
  175.  TBLDEF   MACRO  XX,XXORD 
  176.  TP       MICRO  1,,*XX*
  177.           IF     -DEF,TBORD,2 
  178.  TBORD    SET    0
  179.  TBLPNTR  BSS    0
  180.           IFNE   XXORD,TBORD,1
  181.  ERR12    ERR    XXORD       TABLE ORDINALS NOT IN SEQUENCE 
  182.  TBORD    SET    TBORD+1
  183.  "TP"_ENT VFD    12/"TP"_MTR,12/"TP"_ENW,18/"TP"_BL,18/"TP"_BM
  184.           ENDM
  185.  
  186.                                                                        #
  187. *  THIS COMMON DECK DEFINES THE LEGAL TRIGGERS IN THE STATE TABLES. 
  188.                                                                        #
  189.  
  190.                                                                        #
  191. ************************************************************************
  192. *                                                                      *
  193. * PRU SENDER STATE TABLE                                               *
  194. *                                                                      *
  195. ************************************************************************
  196.  
  197.           INITBL NETSP,NETSPMST,NETSPMTR
  198. * STATE X 
  199.           STATE NSPSTX
  200.           TRIG NSPTOCM,NSPACKS,NPSTM1,NPSSCKT 
  201.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  202.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  203. * STATE 0 
  204.           STATE NSPACKS 
  205.           TRIG NSPTSR,NSPWACK 
  206.           TRIG NSPTFAK,NSPEXSR
  207.           TRIG NSPTFNK,,NPRTURN,,RC2
  208.           TRIG NSPTBRK,NSPWTRR,NPFCRST
  209.           TRIG NSPTINT,,NPINTRP 
  210.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  211.           TRIG NSPTFT 
  212.           TRIG NRSTHSD,,NPIDLET 
  213.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  214.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  215.           TRIG NRSTILL,NSPEXER,NPESER,,RC4
  216. * STATE 1 
  217.           STATE NSPEXSR 
  218.           TRIG NSPTSR,NSPWPRN,NPPRUON 
  219.           TRIG NSPTRRT,NSPACKS,NPSSCKT
  220.           TRIG NSPTBRK,NSPRTRQ,NPFCRST
  221.           TRIG NSPTINT,,NPINTRP 
  222.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  223.           TRIG NSPTFT 
  224.           TRIG NRSTHSD,,NPIDLET 
  225.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  226.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  227.           TRIG NRSTILL,NSPACES,NPESER,,RC4
  228. * STATE 2 
  229.           STATE NSPWPRN 
  230.           TRIG NSPTPRN,NSPDATR,NPSTZER,NPOFST 
  231.           TRIG NSPTPRA,,NPRETPN 
  232.           TRIG NSPTBRK,NSPPRBK
  233.           TRIG NSPTINT,,NPINTRP 
  234.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  235.           TRIG NSPTFT 
  236.           TRIG NRSTHSD,,NPIDLET 
  237.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  238.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  239.           TRIG NRSTILL,NSPPRPD,NPRTURN,,RC4 
  240. * STATE 3 
  241.           STATE NSPDATR 
  242.           TRIG NSPTOFN,NSPWTCM,NPOTOFR
  243.           TRIG NSPTXFR,NSPBREC,NPSTM2,NPOTOFR 
  244.           TRIG NSPTQRE,NSPIOQR,NPSTM2,NPOTOFR,RC11
  245.           TRIG NSPTRCT,STATX,NPRTURN,,RC5 
  246.           TRIG NSPTIO7,NSPRTRQ,NPSTM2,NPOTOFR 
  247.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  248.           TRIG NSPTFT 
  249.           TRIG NRSTHSD,,NPIDLET 
  250.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  251.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  252. * STATE 4 
  253.           STATE NSPWTCM 
  254.           TRIG NSPTOFF,NSPAKES,NPSESOK
  255.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  256.           TRIG NSPTFT 
  257.           TRIG NRSTHSD,,NPIDLET 
  258.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  259.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  260. * STATE 5 
  261.           STATE NSPAKES 
  262.           TRIG NSPTERK,NSPWAC1,NPLSTF 
  263.           TRIG NSPTFAK,NSPEROK
  264.           TRIG NSPTFNK,,NPRTURN,,RC2
  265.           TRIG NSPTBRK,NSPWTRR,NPFCRST
  266.           TRIG NSPTINT,,NPINTRP 
  267.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  268.           TRIG NSPTFT 
  269.           TRIG NRSTHSD,,NPIDLET 
  270.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  271.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  272.           TRIG NRSTILL,NSPEXER,NPESER,,RC4
  273. * STATE 6 
  274.           STATE NSPEROK 
  275.           TRIG NSPTERK,,NPRTURN,,RC1
  276.           TRIG NSPTBRK,NSPWTRR,NPFCRST
  277.           TRIG NSPTINT,,NPINTRP 
  278.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  279.           TRIG NSPTFT 
  280.           TRIG NRSTHSD,,NPIDLET 
  281.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  282.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  283.           TRIG NRSTILL,NSPACES,NPESER,,RC4
  284. * STATE 7 
  285.           STATE NSPBREC 
  286.           TRIG NSPTOFF,NSPWTRR
  287.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  288.           TRIG NSPTFT 
  289.           TRIG NRSTHSD,,NPIDLET 
  290.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  291.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  292. * STATE 8 
  293.           STATE NSPRTRQ 
  294.           TRIG NSPTOFF,NSPACKS,NPSTM1,NPSSCKT 
  295.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  296.           TRIG NSPTFT 
  297.           TRIG NRSTHSD,,NPIDLET 
  298.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  299.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  300. * STATE 9 
  301.           STATE NSPWTRR 
  302.           TRIG NSPTRRT,NSPACKS,NPSTM1,NPSSCKT 
  303.           TRIG NSPTBRK,,NPFCRST 
  304.           TRIG NSPTINT,,NPINTRP 
  305.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  306.           TRIG NSPTFT 
  307.           TRIG NRSTHSD,,NPIDLET 
  308.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  309.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  310.           TRIG NRSTILL,NSPACES,NPESER,,RC4
  311. * STATE 10
  312.           STATE NSPIOQR 
  313.           TRIG NSPTOFF,NSPACES,NPESER 
  314.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  315.           TRIG NSPTFT 
  316.           TRIG NRSTHSD,,NPIDLET 
  317.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  318.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  319. * STATE 11
  320.           STATE NSPACES 
  321.           TRIG NSPTRRT
  322.           TRIG NSPTERE,NSPWAC2,NPLSTF 
  323.           TRIG NSPTFAK,NSPEXER
  324.           TRIG NSPTFNK,,NPRTURN,,RC2
  325.           TRIG NSPTBRK,,NPFCRST,NPESER
  326.           TRIG NSPTINT,,NPINTRP 
  327.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  328.           TRIG NRSTHSD,,NPIDLET 
  329.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  330.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  331.           TRIG NRSTILL
  332. * STATE 12
  333.           STATE NSPEXER 
  334.           TRIG NSPTRRT,NSPACKS,NPSTM1,NPSSCKT 
  335.           TRIG NSPTERE,,NPRTURN 
  336.           TRIG NSPTFAK
  337.           TRIG NSPTFNK,,NPRTURN,,RC2
  338.           TRIG NSPTBRK,NSPACES,NPFCRST,NPESER 
  339.           TRIG NSPTINT,,NPINTRP 
  340.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  341.           TRIG NRSTHSD,,NPIDLET 
  342.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  343.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  344.           TRIG NRSTILL
  345. * STATE 13
  346.           STATE NSPPRPD 
  347.           TRIG NSPTPRN,NSPIOQR,NPOTOFR
  348.           TRIG NSPTPRA,NSPACES,NPESER,,RC27 
  349.           TRIG NSPTBRK,NSPPRBK
  350.           TRIG NSPTINT,,NPINTRP 
  351.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  352.           TRIG NRSTHSD,,NPIDLET 
  353.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  354.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  355.           TRIG NRSTILL
  356. * STATE 14
  357.           STATE NSPPRBK 
  358.           TRIG NSPTPRA,NSPACES,NPFCRST,NPESER,RC27
  359.           TRIG NSPTBRK,,NPFCRST 
  360.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  361.           TRIG NRSTHSD,,NPIDLET 
  362.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  363.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  364. *STATE 15 
  365.           STATE NSPWACK 
  366.           TRIG NSPTFAK,NSPWPRN,NPPRUON
  367.           TRIG NSPTFNK,,NPRTURN,,RC2
  368.           TRIG NSPTBRK,NSPWTRR,NPFCRST
  369.           TRIG NSPTINT,,NPINTRP 
  370.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  371.           TRIG NSPTFT 
  372.           TRIG NRSTHSD,,NPIDLET 
  373.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  374.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  375.           TRIG NRSTILL
  376. *STATE 16 
  377.           STATE NSPWAC1 
  378.           TRIG NSPTFAK,,NPLSTO,NPRTURN,RC1
  379.           TRIG NSPTFNK,,NPRTURN,,RC2
  380.           TRIG NSPTBRK,NSPWTRR,NPFCRST
  381.           TRIG NSPTINT,,NPINTRP 
  382.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  383.           TRIG NSPTFT 
  384.           TRIG NRSTHSD,,NPIDLET 
  385.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  386.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  387.           TRIG NRSTILL
  388. *STATE 17 
  389.           STATE NSPWAC2 
  390.           TRIG NSPTRRT
  391.           TRIG NSPTFAK,,NPLSTO,NPRTURN
  392.           TRIG NSPTFNK,,NPRTURN,,RC2
  393.           TRIG NSPTBRK,,NPFCRST,NPESER
  394.           TRIG NSPTINT,,NPINTRP 
  395.           TRIG NSPTNCB,STATX,NPRTURN,,RC3 
  396.           TRIG NRSTHSD,,NPIDLET 
  397.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  398.           TRIG NRSTIMO,STATX,NPRTURN,,RC5 
  399.           TRIG NRSTILL
  400. * 
  401.           ENDTBL NETSP
  402. ************************************************************************
  403. *                                                                      *
  404. * PRU RECEIVER STATE TABLE                                             *
  405. *                                                                      *
  406. ************************************************************************
  407.  
  408.  
  409.           INITBL NETRP,NETRPMST,NETRPMTR
  410. * STATE X 
  411.           STATE NRPSTX
  412.           TRIG NRPTOCM,NRPEXSS,NPSTM1 
  413.           TRIG NRSTIMO,,NPRTURN,,RC5
  414. * STATE 0 
  415.           STATE NRPEXSS 
  416.           TRIG NRPTSS,NRPPRON,NPPRUON 
  417.           TRIG NRPTBRK,,NPRTURN,,RC3
  418.           TRIG NRPTINT,,NPINTRP 
  419.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  420.           TRIG NRSTHSD,,NPIDLET 
  421.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  422.           TRIG NRSTIMO,,NPRTURN,,RC5
  423.           TRIG NRSTILL,NRPAKQR,NPQRER,,RC4
  424. * STATE 1 
  425.           STATE NRPPRON 
  426.           TRIG NRPTPRN,NRPPRDA,NPSTZER,NPIFSRT
  427.           TRIG NRPTPRA,,NPINTRA 
  428.           TRIG NRPTBRK,,NPRTURN,,RC3
  429.           TRIG NRPTINT,,NPINTRP 
  430.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  431.           TRIG NRSTHSD,,NPIDLET 
  432.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  433.           TRIG NRSTIMO,,NPRTURN,,RC5
  434.           TRIG NRSTILL,NRPPRPD,NPRTURN,,RC4 
  435. * STATE 2 
  436.           STATE NRPPRDA 
  437.           TRIG NRPTIFN,NRPESKR
  438.           TRIG NRPTXFR,NRPE128,NPSTM2,NPIFOFR,RC25
  439.           TRIG NRPTBR3,NRPBREC,NPSTM2,NPIFOFR,RC3 
  440.           TRIG NRPTES5,NRPESRC,NPIFOFR,,RC11
  441.           TRIG NRPTIO7,NRPITIO,NPIFOFR,,RC10
  442.           TRIG NRPTTM9,STATX,NPRTURN,,RC5 
  443.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  444.           TRIG NRSTHSD,,NPIDLET 
  445.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  446.           TRIG NRSTIMO,,NPRTURN,,RC5
  447. * STATE 3 
  448.           STATE NRPESKR 
  449.           TRIG NRPTESK,NRPNRCM,NPIFOFR
  450.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  451.           TRIG NRSTHSD,,NPIDLET 
  452.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  453.           TRIG NRSTIMO,,NPRTURN,,RC5
  454. * STATE 4 
  455.           STATE NRPNRCM 
  456.           TRIG NRPTIFF,NRPAKER,NPEROK,NPLSTF,RC1
  457.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  458.           TRIG NRSTHSD,,NPIDLET 
  459.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  460.           TRIG NRSTIMO,,NPRTURN,,RC5
  461. * STATE 5 
  462.           STATE NRPAKER 
  463.           TRIG NRPTFAK,,NPLSTO,NPRTURN
  464.           TRIG NRPTNAK,,NPRTURN,,RC2
  465.           TRIG NRPTBRK,,NPRTURN,,RC3
  466.           TRIG NRPTINT,,NPINTRP 
  467.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  468.           TRIG NRSTHSD,,NPIDLET 
  469.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  470.           TRIG NRSTIMO,,NPRTURN,,RC5
  471.           TRIG NRSTILL,,NPRTURN,,RC28 
  472. * STATE 6 
  473.           STATE NRPE128 
  474.           TRIG NRPTIFF,NRPBROT,NPFCBRK
  475.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  476.           TRIG NRSTHSD,,NPIDLET 
  477.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  478.           TRIG NRSTIMO,,NPRTURN,,RC5
  479.           TRIG NRSTILL
  480. * STATE 7 
  481.           STATE NRPBROT 
  482.           TRIG NRPTBRK,,NPRTURN,,RC3
  483.           TRIG NRPTFRT,NRPAKRR,NPSTM1,NPRRCKT 
  484.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  485.           TRIG NRSTHSD,,NPIDLET 
  486.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  487.           TRIG NRSTIMO,,NPRTURN,,RC5
  488. * STATE 8 
  489.           STATE NRPAKRR 
  490.           TRIG NRPTFAK,NRPEXSS
  491.           TRIG NRPTNAK,,NPRTURN,,RC2
  492.           TRIG NRPTBRK,,NPRTURN,,RC3
  493.           TRIG NRPTINT,,NPINTRP 
  494.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  495.           TRIG NRSTHSD,,NPIDLET 
  496.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  497.           TRIG NRSTIMO,,NPRTURN,,RC5
  498.           TRIG NRSTILL
  499. * STATE 9 
  500.           STATE NRPBREC 
  501.           TRIG NRPTIFF,NRPAKRR,NPSTM1,NPRRCKT 
  502.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  503.           TRIG NRSTHSD,,NPIDLET 
  504.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  505.           TRIG NRSTIMO,,NPRTURN,,RC5
  506. * STATE 10
  507.           STATE NRPESRC 
  508.           TRIG NRPTIFF,NRPSNER,NPERER,NPLSTF
  509.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  510.           TRIG NRSTHSD,,NPIDLET 
  511.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  512.           TRIG NRSTIMO,,NPRTURN,,RC5
  513.           TRIG NRSTILL
  514. * STATE 11
  515.           STATE NRPITIO 
  516.           TRIG NRPTIFF,NRPAKQR,NPQRER 
  517.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  518.           TRIG NRSTHSD,,NPIDLET 
  519.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  520.           TRIG NRSTIMO,,NPRTURN,,RC5
  521.           TRIG NRSTILL
  522. * STATE 12
  523.           STATE NRPAKQR 
  524.           TRIG NRPTFAK,NRPEXES
  525.           TRIG NRPTNAK,,NPRTURN,,RC2
  526.           TRIG NRPTBRK,,NPRTURN,,RC3
  527.           TRIG  NRPTINT,,NPINTRP
  528.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  529.           TRIG NRSTHSD,,NPIDLET 
  530.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  531.           TRIG NRSTIMO,,NPRTURN,,RC5
  532.           TRIG NRSTILL
  533. * STATE 13
  534.           STATE NRPEXES 
  535.           TRIG NRPTESE,NRPSNER,NPERER,NPLSTF
  536.           TRIG NRPTFAK
  537.           TRIG NRPTNAK,,NPRTURN,,RC2
  538.           TRIG NRPTBRK,,NPRTURN,,RC3
  539.           TRIG NRPTINT,,NPINTRP 
  540.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  541.           TRIG NRSTHSD,,NPIDLET 
  542.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  543.           TRIG NRSTIMO,,NPRTURN,,RC5
  544.           TRIG NRSTILL
  545. * STATE 14
  546.           STATE NRPTOUT 
  547.           TRIG NRPTIFF,,NPRTURN 
  548.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  549.           TRIG NRSTHSD,,NPIDLET 
  550.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  551.           TRIG NRSTIMO,,NPRTURN,,RC5
  552. * STATE 15
  553.           STATE NRPPRPD 
  554.           TRIG NRPTPRN,NRPITIO,NPIFOFR
  555.           TRIG NRPTPRA,NRPAKQR,NPQRER 
  556.           TRIG NRPTBRK,,NPRTURN,,RC3
  557.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  558.           TRIG NRSTHSD,,NPIDLET 
  559.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  560.           TRIG NRSTIMO,,NPRTURN,,RC5
  561.           TRIG NRSTILL
  562. * STATE 16
  563.           STATE NRPPRBK 
  564.           TRIG NRPTPRA,NRPAKQR,NPFCRST,NPQRER,RC27
  565.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  566.           TRIG NRSTHSD,,NPIDLET 
  567.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  568.           TRIG NRSTIMO,,NPRTURN,,RC5
  569. * STATE 17
  570.           STATE NRPSNER 
  571.           TRIG NRPTFAK,,NPLSTO,NPRTURN
  572.           TRIG NRPTNAK,,NPRTURN,,RC2
  573.           TRIG NRPTBRK,,NPRTURN,,RC3
  574.           TRIG NRPTINT,,NPINTRP 
  575.           TRIG NRPTNCB,STATX,NPRTURN,,RC3 
  576.           TRIG NRSTHSD,,NPIDLET 
  577.           TRIG NRSTNSL,STATX,NPRTURN,,RC14
  578.           TRIG NRSTIMO,,NPRTURN,,RC5
  579.           TRIG NRSTILL
  580. * 
  581.           ENDTBL NETRP
  582.  
  583. ************************************************************************
  584. *                                                                      *
  585. * CHARACTER SENDER STATE TABLE                                         *
  586. *                                                                      *
  587. ************************************************************************
  588.  
  589.  
  590.  
  591.           INITBL NETSC,NETSCMST,NETSCMTR
  592. * STATE X 
  593.           STATE NSCSTX
  594.           TRIG NSCTOCM,NSCEXSR,NCSTM1,NCSSCKT 
  595.           TRIG NSCTIMO,STATX,NCRTURN,,RC5 
  596. * STATE 0 
  597.           STATE NSCEXSR 
  598.           TRIG NSCTSR,NSCDATA,NCSTZER 
  599.           TRIG NSCTQRK
  600.           TRIG NSCTQRE,NSCERER,NCESER,,RC11 
  601.           TRIG NSCTMRR
  602.           TRIG NSCTACK,,NCADABL 
  603.           TRIG NSCTNAK,STATX,NCRTURN,,RC2 
  604.           TRIG NSCTBRK,NSCWTRR,NCOPRST
  605.           TRIG NSCTINT,,NCINTSP 
  606.           TRIG NSCTNCB,STATX,NCRTURN,,RC3 
  607.           TRIG NSCTHSD,,NCIDLE
  608.           TRIG NSCTNSL,STATX,NCRTURN,,RC14
  609.           TRIG NSCTIMO,STATX,NCRTURN,,RC5 
  610.           TRIG NSCTILL,NSCERER,NCESER,,RC4
  611.           TRIG NSCTERR,NSCERER,NCESER,,RC10 
  612. * STATE 1 
  613.           STATE NSCDATA 
  614.           TRIG NSCTRRT,NSCEXSR,NCSTMRS,NCSSRRT
  615.           TRIG NSCTQRK,NSCEROK,NCESOK 
  616.           TRIG NSCTQRE,NSCERER,NCESER 
  617.           TRIG NSCTMRR,,NCADCMW 
  618.           TRIG NSCTACK,,NCADABL 
  619.           TRIG NSCTNAK,STATX,NCRTURN,,RC2 
  620.           TRIG NSCTBRK,NSCWTRR,NCOPRST
  621.           TRIG NSCTINT,,NCINTSP 
  622.           TRIG NSCTNCB,STATX,NCRTURN,,RC3 
  623.           TRIG NSCTHSD,,NCIDLE
  624.           TRIG NSCTNSL,STATX,NCRTURN,,RC14
  625.           TRIG NSCTIMO,STATX,NCRTURN,,RC5 
  626.           TRIG NSCTILL,NSCERER,NCESER,,RC4
  627.           TRIG NSCTEOI,NSCEROK,NCESOK 
  628.           TRIG NSCTMCM,NSCCCMW
  629.           TRIG NSCTSND,,NCSDATA 
  630.           TRIG NSCTERR,NSCERER,NCESER,,RC10 
  631. * STATE 2 
  632.           STATE NSCCABL 
  633.           TRIG NSCTRRT,NSCABRR,NCSTMRS
  634.           TRIG NSCTQRK,NSCABLE
  635.           TRIG NSCTQRE,NSCABES,,,RC11 
  636.           TRIG NSCTMRR,,NCADCMW 
  637.           TRIG NSCTACK,NSCDATA,NCADABL
  638.           TRIG NSCTNAK,STATX,NCRTURN,,RC2 
  639.           TRIG NSCTBRK,NSCWTRR,NCOPRST
  640.           TRIG NSCTINT,,NCINTSP 
  641.           TRIG NSCTNCB,STATX,NCRTURN,,RC3 
  642.           TRIG NSCTHSD,,NCIDLE
  643.           TRIG NSCTNSL,STATX,NCRTURN,,RC14
  644.           TRIG NSCTIMO,STATX,NCRTURN,,RC5 
  645.           TRIG NSCTILL,NSCABES,,,RC7
  646.           TRIG NSCTEOI,NSCABLE
  647.           TRIG NSCTMCM,NSCCCAW
  648.           TRIG NSCTSND
  649.           TRIG NSCTERR,NSCABES,,,RC10 
  650. * STATE 3 
  651.           STATE NSCCCMW 
  652.           TRIG NSCTRRT,NSCEXSR,NCSTMRS,NCSSRRT
  653.           TRIG NSCTQRK,NSCEROK,NCESOK 
  654.           TRIG NSCTQRE,NSCERER,NCESER,,RC11 
  655.           TRIG NSCTMRR,NSCDATA,NCADCMW
  656.           TRIG NSCTACK,,NCADABL 
  657.           TRIG NSCTNAK,STATX,NCRTURN,,RC2 
  658.           TRIG NSCTBRK,NSCWTRR,NCOPRST
  659.           TRIG NSCTINT,,NCINTSP 
  660.           TRIG NSCTNCB,STATX,NCRTURN,,RC3 
  661.           TRIG NSCTHSD,,NCIDLE
  662.           TRIG NSCTNSL,STATX,NCRTURN,,RC14
  663.           TRIG NSCTIMO,STATX,NCRTURN,,RC5 
  664.           TRIG NSCTILL,NSCERER,NCESER,,RC4
  665.           TRIG NSCTEOI,NSCEROK,NCESOK 
  666.           TRIG NSCTSND
  667.           TRIG NSCTERR,NSCERER,NCESER,,RC10 
  668. * STATE 4 
  669.           STATE NSCCCAW 
  670.           TRIG NSCTRRT,NSCABRR,NCSTMRS
  671.           TRIG NSCTQRK,NSCABLE
  672.           TRIG NSCTQRE,NSCABES,,,RC11 
  673.           TRIG NSCTMRR,NSCCABL,NCADCMW
  674.           TRIG NSCTACK,NSCCCMW,NCADABL
  675.           TRIG NSCTNAK,STATX,NCRTURN,,RC2 
  676.           TRIG NSCTBRK,NSCWTRR,NCOPRST
  677.           TRIG NSCTINT,,NCINTSP 
  678.           TRIG NSCTNCB,STATX,NCRTURN,,RC3 
  679.           TRIG NSCTHSD,,NCIDLE
  680.           TRIG NSCTNSL,STATX,NCRTURN,,RC14
  681.           TRIG NSCTIMO,STATX,NCRTURN,,RC5 
  682.           TRIG NSCTILL,NSCABES,,,RC4
  683.           TRIG NSCTERR,NSCABES,,,RC10 
  684. * STATE 5 
  685.           STATE NSCABLE 
  686.           TRIG NSCTRRT,NSCABRR,NCSTMRS
  687.           TRIG NSCTQRK
  688.           TRIG NSCTQRE,NSCABES,,,RC11 
  689.           TRIG NSCTMRR,,NCADCMW 
  690.           TRIG NSCTACK,NSCEROK,NCADABL,NCESOK 
  691.           TRIG NSCTNAK,STATX,NCRTURN,,RC2 
  692.           TRIG NSCTBRK,NSCWTRR,NCOPRST
  693.           TRIG NSCTINT,,NCINTSP 
  694.           TRIG NSCTNCB,STATX,NCRTURN,,RC3 
  695.           TRIG NSCTHSD,,NCIDLE
  696.           TRIG NSCTNSL,STATX,NCRTURN,,RC14
  697.           TRIG NSCTIMO,STATX,NCRTURN,,RC5 
  698.           TRIG NSCTILL,NSCABES,,,RC4
  699.           TRIG NSCTERR,NSCABES,,,RC10 
  700. * STATE 6 
  701.           STATE NSCEROK 
  702.           TRIG NSCTRRT,NSCABRR,NCSTMRS
  703.           TRIG NSCTERK,,NCRTURN,,RC1
  704.           TRIG NSCTQRK
  705.           TRIG NSCTQRE,NSCERER,NCESER,,RC11 
  706.           TRIG NSCTMRR,,NCADCMW 
  707.           TRIG NSCTACK,,NCADABL 
  708.           TRIG NSCTNAK,STATX,NCRTURN,,RC2 
  709.           TRIG NSCTBRK,NSCWTRR,NCOPRST
  710.           TRIG NSCTINT,,NCINTSP 
  711.           TRIG NSCTNCB,STATX,NCRTURN,,RC3 
  712.           TRIG NSCTHSD,,NCIDLE
  713.           TRIG NSCTNSL,STATX,NCRTURN,,RC14
  714.           TRIG NSCTIMO,STATX,NCRTURN,,RC5 
  715.           TRIG NSCTILL,NSCERER,NCESER,,RC4
  716.           TRIG NSCTABE,NSCWAER
  717.           TRIG NSCTERR,NSCERER,NCESER,,RC10 
  718. * STATE 7 
  719.           STATE NSCABES 
  720.           TRIG NSCTACK,NSCERER,NCADABL,NCESER 
  721.           TRIG NSCTNAK,STATX,NCRTURN,,RC2 
  722.           TRIG NSCTBRK,NSCWTRR,NCOPRST
  723.           TRIG NSCTINT,,NCINTSP 
  724.           TRIG NSCTNCB,STATX,NCRTURN,,RC3 
  725.           TRIG NSCTHSD,,NCIDLE
  726.           TRIG NSCTNSL,STATX,NCRTURN,,RC14
  727.           TRIG NSCTIMO,STATX,NCRTURN,,RC5 
  728.           TRIG NSCTILL
  729.           TRIG NSCTERR
  730. * STATE 8 
  731.           STATE NSCERER 
  732.           TRIG NSCTERK,,NCRTURN 
  733.           TRIG NSCTERE,STATX,NCRTURN
  734.           TRIG NSCTACK,,NCADABL 
  735.           TRIG NSCTNAK,STATX,NCRTURN,,RC2 
  736.           TRIG NSCTBRK,NSCWTRR,NCOPRST
  737.           TRIG NSCTINT,,NCINTSP 
  738.           TRIG NSCTNCB,STATX,NCRTURN,,RC3 
  739.           TRIG NSCTHSD,,NCIDLE
  740.           TRIG NSCTNSL,STATX,NCRTURN,,RC14
  741.           TRIG NSCTIMO,STATX,NCRTURN,,RC5 
  742.           TRIG NSCTILL
  743.           TRIG NSCTERR
  744. * STATE 9 
  745.           STATE NSCABRR 
  746.           TRIG NSCTACK,NSCEXSR,NCADABL,NCSSCKT
  747.           TRIG NSCTNAK,STATX,NCRTURN,,RC2 
  748.           TRIG NSCTBRK,NSCWTRR,NCOPRST
  749.           TRIG NSCTINT,,NCINTSP 
  750.           TRIG NSCTNCB,STATX,NCRTURN,,RC3 
  751.           TRIG NSCTHSD,,NCIDLE
  752.           TRIG NSCTNSL,STATX,NCRTURN,,RC14
  753.           TRIG NSCTIMO,STATX,NCRTURN,,RC5 
  754.           TRIG NSCTILL,NSCABES,,,RC4
  755.           TRIG NSCTERR,NSCABES,,,RC10 
  756. * STATE 10
  757.           STATE NSCWTRR 
  758.           TRIG NSCTRRT,NSCEXSR,NCSTMRS,NCSSRRT
  759.           TRIG NSCTERK
  760.           TRIG NSCTERE,NSCERER,NCESER,,RC11 
  761.           TRIG NSCTQRK,NSCEROK,NCESOK 
  762.           TRIG NSCTQRE,NSCERER,NCESER,,RC11 
  763.           TRIG NSCTMRR
  764.           TRIG NSCTACK
  765.           TRIG NSCTNAK,STATX,NCRTURN,,RC2 
  766.           TRIG NSCTBRK,,NCOPRST 
  767.           TRIG NSCTINT,,NCINTSP 
  768.           TRIG NSCTNCB,STATX,NCRTURN,,RC3 
  769.           TRIG NSCTHSD,,NCIDLE
  770.           TRIG NSCTNSL,STATX,NCRTURN,,RC14
  771.           TRIG NSCTIMO,STATX,NCRTURN,,RC5 
  772.           TRIG NSCTILL,NSCERER,NCESER,,RC4
  773.           TRIG NSCTERR,NSCERER,NCESER,,RC10 
  774. * STATE 11
  775.           STATE NSCWAER 
  776.           TRIG NSCTRRT,NSCABRR,NCSTMRS
  777.           TRIG NSCTERK,,NCRTURN,,RC1
  778.           TRIG NSCTQRK
  779.           TRIG NSCTQRE,NSCABES,,RC11
  780.           TRIG NSCTMRR,,NCADCMW 
  781.           TRIG NSCTACK,NSCEROK,NCADABL
  782.           TRIG NSCTNAK,STATX,NCRTURN,,RC2 
  783.           TRIG NSCTBRK,NSCWTRR,NCOPRST
  784.           TRIG NSCTINT,,NCINTSP 
  785.           TRIG NSCTNCB,STATX,NCRTURN,,RC3 
  786.           TRIG NSCTHSD,,NCIDLE
  787.           TRIG NSCTNSL,STATX,NCRTURN,,RC14
  788.           TRIG NSCTIMO,STATX,NCRTURN,,RC5 
  789.           TRIG NSCTILL,NSCABES,,,RC4
  790.           TRIG NSCTERR,NSCABES,,,RC10 
  791. * STATE 12
  792.           STATE NSCWACK 
  793.           TRIG NSCTACK,,NCADWSP,NCRTURN 
  794.           TRIG NSCTNAK,,NCRTURN,,RC2
  795.           TRIG NSCTBRK,,NCOPRST 
  796.           TRIG NSCTINT,,NCINTSP 
  797.           TRIG NSCTNCB,,NCRTURN,,RC3
  798.           TRIG NSCTHSD,,NCIDLE
  799.           TRIG NSCTNSL,,NCRTURN,,RC14 
  800.           TRIG NSCTIMO,,NCRTURN,,RC5
  801.           TRIG NSCTILL
  802. * 
  803.           ENDTBL NETSC
  804.  
  805.  
  806. ************************************************************************
  807. *                                                                      *
  808. * CHARACTER RECEIVER STATE TABLE                                       *
  809. *                                                                      *
  810. ************************************************************************
  811.  
  812.  
  813.           INITBL NETRC,NETRCMST,NETRCMTR
  814. * STATE X 
  815.           STATE NRCSTX
  816.           TRIG NRCTOCM,NRCEXSS,NCSTM1 
  817.           TRIG NRCTIMO,STATX,NCRTURN,,RC5 
  818. * STATE 0 
  819.           STATE NRCEXSS 
  820.           TRIG NRCTSS,NRCDATA,NCSNDSR 
  821.           TRIG NRCTESE,NRCACKR,NCERER,,RC11 
  822.           TRIG NRCTACK,,NCADABL 
  823.           TRIG NRCTBRK,,NCOPRST,NCRRCHK,RC3 
  824.           TRIG NRCTINT,,NCINTSP 
  825.           TRIG NRCTNCB,STATX,NCRTURN,,RC3 
  826.           TRIG NRCTHSD,,NCIDLE
  827.           TRIG NRCTNSL,STATX,NCRTURN,,RC14
  828.           TRIG NRCTIMO,STATX,NCRTURN,,RC5 
  829.           TRIG NRCTILL,NRCABNR,NCSTM2,NCQRER,RC4
  830.           TRIG NRCTITR,NRCABNR,NCSTM2,NCQRER,RC10 
  831. * STATE 1 
  832.           STATE NRCDATA 
  833.           TRIG NRCTESK,NRCTRCM,NCCLOSE
  834.           TRIG NRCTESE,NRCACKR,NCERER,,RC11 
  835.           TRIG NRCTMSR,,NCSAVE
  836.           TRIG NRCTACK,,NCADABL 
  837.           TRIG NRCTNAK,,NCRTURN,,RC2
  838.           TRIG NRCTBRK,NRCRSIN,NCOPRST,NCRRCHK,RC3
  839.           TRIG NRCTINT,,NCINTSP 
  840.           TRIG NRCTNCB,STATX,NCRTURN,,RC3 
  841.           TRIG NRCTHSD,,NCIDLE
  842.           TRIG NRCTNSL,STATX,NCRTURN,,RC14
  843.           TRIG NRCTIMO,STATX,NCRTURN,,RC5 
  844.           TRIG NRCTILL,NRCABNR,NCSTM2,NCQRER,RC4
  845.           TRIG NRCTDAT,,NCSTORE 
  846.           TRIG NRCTBDA,NRCRETY,NCSTRWL,NCFCBRK,RC25 
  847.           TRIG NRCTITR,NRCABNR,NCSTM2,NCQRER
  848.           TRIG NRCTCHM,,NCSNDMR 
  849. * STATE 2 
  850.           STATE NRCABNR 
  851.           TRIG NRCTESE,NRCACKR,NCERER,,RC11 
  852.           TRIG NRCTMSR
  853.           TRIG NRCTACK,,NCADABL 
  854.           TRIG NRCTNAK,,NCRTURN,,RC2
  855.           TRIG NRCTBRK,,NCOPRST,NCRTURN,RC3 
  856.           TRIG NRCTINT,,NCINTSP 
  857.           TRIG NRCTNCB,STATX,NCRTURN,,RC3 
  858.           TRIG NRCTHSD,,NCIDLE
  859.           TRIG NRCTNSL,STATX,NCRTURN,,RC14
  860.           TRIG NRCTIMO,STATX,NCRTURN,,RC5 
  861.           TRIG NRCTILL,NRCABNR,NCSTM2,NCQRER,RC4
  862.           TRIG NRCTDAT
  863.           TRIG NRCTITR
  864. * STATE 3 
  865.           STATE NRCRETY 
  866.           TRIG NRCTMSR
  867.           TRIG NRCTACK,,NCADABL 
  868.           TRIG NRCTBRK,NRCRSIN,NCRRCHK
  869.           TRIG NRCTRST,NRCRSIN,NCRRCHK
  870.           TRIG NRCTINT
  871.           TRIG NRCTNCB,STATX,NCRTURN,,RC3 
  872.           TRIG NRCTHSD,,NCIDLE
  873.           TRIG NRCTNSL,STATX,NCRTURN,,RC14
  874.           TRIG NRCTIMO,STATX,NCRTURN,,RC5 
  875.           TRIG NRCTILL
  876. * STATE 4 
  877.           STATE NRCACKR 
  878.           TRIG NRCTACK,,NCLSTO,NCRTURN
  879.           TRIG NRCTNAK,,NCRTURN,,RC2
  880.           TRIG NRCTBRK,STATX,NCOPRST,NCRTURN,RC28 
  881.           TRIG NRCTINT,,NCINTSP 
  882.           TRIG NRCTNCB,STATX,NCRTURN,,RC3 
  883.           TRIG NRCTHSD,,NCIDLE
  884.           TRIG NRCTNSL,STATX,NCRTURN,,RC14
  885.           TRIG NRCTIMO,STATX,NCRTURN,,RC5 
  886.           TRIG NRCTILL
  887. * STATE 5 
  888.           STATE NRCTRCM 
  889.           TRIG NRCTINT,,NCINTSP 
  890.           TRIG NRCTNCB,STATX,NCRTURN,,RC3 
  891.           TRIG NRCTHSD,,NCIDLE
  892.           TRIG NRCTNSL,STATX,NCRTURN,,RC14
  893.           TRIG NRCTIMO,STATX,NCRTURN,,RC5 
  894.           TRIG NRCTILL,NRCABNR,NCSTM2,NCQRER,RC4
  895.           TRIG NRCTEOK,NRCACKR,NCEROK,NCLSTF,RC1
  896.           TRIG NRCTITR,NRCABNR,NCSTM2,NCQRER,RC10 
  897. * STATE 6 
  898.           STATE NRCRSIN 
  899.           TRIG NRCTSS,NRCDATA,NCSNDSR 
  900.           TRIG NRCTESK
  901.           TRIG NRCTESE,NRCACKR,NCERER 
  902.           TRIG NRCTMSR
  903.           TRIG NRCTACK,,NCADABL 
  904.           TRIG NRCTBRK,,NCOPRST,NCRRCHK,RC3 
  905.           TRIG NRCTINT,,NCINTSP 
  906.           TRIG NRCTNCB,STATX,NCRTURN,,RC3 
  907.           TRIG NRCTHSD,,NCIDLE
  908.           TRIG NRCTNSL,STATX,NCRTURN,,RC14
  909.           TRIG NRCTIMO,STATX,NCRTURN,,RC5 
  910.           TRIG NRCTILL,NRCABNR,NCSTM2,NCQRER,RC4
  911.           TRIG NRCTDAT
  912.           TRIG NRCTBDA
  913.           TRIG NRCTITR,NRCABNR,NCSTM2,NCQRER,RC10 
  914. * STATE 7 
  915.           STATE NRCDUMM 
  916. * 
  917.           ENDTBL NETRC
  918.  
  919.  
  920. ************************************************************************
  921. *                                                                      *
  922. * DEFINITIONS OF THE STATE TABLE ORDINALS                              *
  923. *                                                                      *
  924. ************************************************************************
  925.  
  926.           TBLDEF NETSP,NETSPOD
  927.           TBLDEF NETRP,NETRPOD
  928.           TBLDEF NETSC,NETSCOD
  929.           TBLDEF NETRC,NETRCOD
  930.                                                                        #
  931.  NP$STTP  SUBR   =
  932.           SB7    WL 
  933.           SB1    1
  934.           SA2    X1          PAR LIST,PICK UP STTBL ORDINAL 
  935.           SA2    X2+TBLPNTR  POINTER TABLE INDEXED BY ORDINAL 
  936.           SB2    X2          SAVE LEGBM ADDRESS 
  937.           MX7    48 
  938.           LX2    12          SHIFT POINTER TABLE ENTRY
  939.           BX1    -X7*X2      MAXIMUM TRIGGER VALUE
  940.           SX1    X1+B1       ADD ONE
  941.           LX2    12          SHIFT AGAIN AND PICK UP
  942.           BX3    -X7*X2      LENGTH OF LEGAL CASE BITMAP IN WORDS 
  943.           SB3    X3          SAVE IN B3 
  944.           SA3    A1+B1       NEXT PAR:CURRENT STATE 
  945.           SA5    X3 
  946.           SX4    X5-STATX 
  947.           ZR     X4,NOCONN   IF STATE OF NO CONNECTION SKIP 
  948.           SX3    X5+B1       ADD ONE FOR NO CONN STATE
  949.           IX4    X1*X3       CALCULATE CUR STATE*MAX TRIGVAL+1
  950.  NOCONN   SA3    A3+B1       NEXT PAR:TRIGNO
  951.           SA5    X3 
  952.           IX3    X5+X4       ADD IT TO X4 
  953.           SB4    X3          SAVE IN B4 (CURST*(MAXTR+1))+TRIGNO
  954.           SB6    B0 
  955.           LT     B4,B7,FNDWD IF VALUE LESS THAN 60 THEN FOUND WORD
  956.  LOOP     SB4    B4-B7       OTHERWISE SUBTRACT 60 AND
  957.           SB6    B6+B1       KEEP WORD COUNT IN B6
  958.           GE     B4,B7,LOOP  MORE TO GO 
  959.  FNDWD    GE     B6,B3,ERR   ILLEGAL VALUE IN B4
  960.           SA1    B2+B6       FETCH PROPER LEGBM WORD
  961.           LX5    X1,B4       SHIFT TO PROPER BIT
  962.           NG     X5,LEGVAL   LEGAL TRIGGER,JUMP 
  963.           MX6    0           ILLEGAL TRIGGER
  964.           SA3    A3+B1       SET EXIT PAR TO 0
  965.           SA6    X3          STORE AND EXIT 
  966.           EQ     NP$STTPX 
  967.  LEGVAL   MX6    1           COUNT NO OF PRECEDING ENTRIES
  968.           AX7    B4,X6       BUILD MASK FOR ALL PRECEDING BITS
  969.           BX5    X7*X1       X1 CONTAINS LEGBM WORD 
  970.           CX3    X5          NUMBER OF ONES IN WORD 
  971.           EQ     B6,NOMORE   JUMP IF NO PRECEDING WORDS 
  972.  MORE     SB6    B6-B1       CHECK PRECEDING WORDS IN LEGBM 
  973.           SA1    B2+B6       PREVIOUS WORD
  974.           CX5    X1          COUNT ONES 
  975.           IX3    X3+X5       ADD TO RESULT
  976.           GT     B6,MORE     MORE TO GO 
  977.  NOMORE   SX3    X3-1        SUBTRACT ONE FOR ORIG ENTRY
  978. * X3 NOW HOLDS THE NUMBER OF PRECEDING LEGAL ENTRIES IN STTBL 
  979. * BASED ON 30 BIT ENTRY LENGTH WE DIVIDE BY 2 IN ORDER TO 
  980. * CALCULATE THE PROPER ADDRESS
  981.           AX4    B1,X3
  982.           SB3    X4 
  983.           LX5    B1,X4       MULT BACK BY 2AND CALCULATE LOGICAL
  984.           BX4    X5-X3       DIFFERENCE TO KNOW SIDE OF ENTRY 
  985. * X2 STILL HOLDS POINTER TABLE WORD FOR PROPER ORDINAL
  986.           LX2    18          SHIFT TO POSITION
  987.           SA1    X2+B3       FETCH PROPER STTBL WORD
  988.           NZ     X4,RIGHTSD  TAKE PROPER SIDE 
  989.           LX1    30          LEFT OR
  990.  RIGHTSD  MX7    30          RIGHT
  991.           BX5    -X7*X1      MASK THE 30 BITS AND ADD 
  992.           BX7    X5+X6       HIGH ORDER BIT TO INDICATE 
  993.           SA3    A3+B1       LEGAL VALUE
  994.           SA7    X3          STORE IN EXIT PARAMETER
  995.           EQ     NP$STTPX 
  996.  ERR      SX1    ERRMSG 
  997.           EQ     NP$MSG      ABORT WITH PROPER ERROR MESSAGE IN DAYFILE 
  998.  ERRMSG   DIS    ,* ERROR IN NP$STTP CALL*
  999.  ERRMSG0  BSS    0
  1000.  XNAME    DATA    L*NP$STTP*
  1001.  TEMP     BSS    1
  1002.           END 
  1003. *ENDIF
cdc/nos2.source/nam5871/np_sttp.txt · Last modified: 2023/08/05 17:22 by Site Administrator