*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