*COMDECK,AIPSTDF
*IF,DEF,XFR 
                                                                       #
* GENERAL REASON CODE DEFINITIONS 
                                                                       #
      DEF RC0#0#;           # REASON CODE = 0                          #
      DEF RC1#1#;           # REASON CODE = 1                          #
      DEF RC2#2#;           # REASON CODE = 2                          #
      DEF RC3#3#;           # REASON CODE = 3                          #
      DEF RC4#4#;           # REASON CODE = 4                          #
      DEF RC5#5#;           # REASON CODE = 5                          #
      DEF RC6#6#;           # REASON CODE = 6                          #
      DEF RC7#7#;           # REASON CODE = 7                          #
      DEF RC8#8#;           # REASON CODE = 8                          #
      DEF RC9#9#;           # REASON CODE = 9                          #
      DEF RC10#10#;         # REASON CODE = 10                         #
      DEF RC11#11#;         # REASON CODE = 11                         #
      DEF RC12#12#;         # REASON CODE = 12                         #
      DEF RC13#13#;         # REASON CODE = 13                         #
      DEF RC14#14#;         # REASON CODE = 14                         #
      DEF RC15#15#;         # REASON CODE = 15                         #
      DEF RC17#17#;         # REASON CODE = 17                         #
      DEF RC22#22#;         # REASON CODE = 22                         #
      DEF RC23#23#;         # REASON CODE = 23                         #
      DEF RC24#24#;         # REASON CODE = 24                         #
      DEF RC25#25#;         # REASON CODE = 25                         #
      DEF RC26#26#;         # REASON CODE = 26                         #
      DEF RC27#27#;         # REASON CODE = 27                         #
      DEF RC28#28#;         # REAOSN CODE = 28                         #
                                                                       #
************************************************************************
*                                                                      *
* TABLE 0 - PRU SENDER                                                 *
*                                                                      *
************************************************************************
                                                                       #
                                                                       #
* TRIGGERS
                                                                       #
      DEF NSPTOCM#0#;       # OPEN COMP                                #
      DEF NSPTSR#1#;        # SR TRANSMITTED                           #
      DEF NSPTRRT#2#;       # RR(CKPT)                                 #
      DEF NSPTERK#3#;       # ER(OK) TRANSMITTED                       #
      DEF NSPTERE#4#;       # ER(E) TRANSMITTED                        #
      DEF NSPTPRN#5#;       # PRU/ON/N                                 #
      DEF NSPTPRA#6#;       # PUR/ON/A                                 #
      DEF NSPTOFN#7#;       # OFT/END TRANSMITTED                      #
      DEF NSPTXFR#8#;       # XFT/IER  WITH RC = 3                     #
      DEF NSPTQRE#9#;       # XFT/IER WITH RC = 4                      #
      DEF NSPTRCT#10#;      # XFT/IER WITH RC = 9                      #
      DEF NSPTIO7#11#;      # XFT/IER WITH RC = 6                      #
      DEF NSPTOFF#12#;      # OFT/END/N TRANSMITTED                    #
      DEF NSPTFAK#13#;      # FC/ACK RECEIVED                          #
      DEF NSPTFNK#14#;      # FC/NAK                                   #
      DEF NSPTBRK#15#;      # FCBRK RECEIVED                           #
      DEF NSPTINT#16#;      # INTRUSR RECEIVED                         #
      DEF NSPTNCB#17#;      # CON/CB RECEIVED                          #
      DEF NSPTFT#18#;       # FT RECEIVED                              #
  
                                                                       #
*STATES 
                                                                       #
      DEF NSPSTX#62#;       # OPEN TO CONNECTION                       #
      DEF NSPACKS#0#;       # EXPECTING ACK FOR  SS                    #
      DEF NSPEXSR#1#;       # EXPECTING SR                             #
      DEF NSPWPRN#2#;       # WAITING ON PRU/N                         #
      DEF NSPDATR#3#;       # DATA TRANSMISSION MODE                   #
      DEF NSPWTCM#4#;       # WAITING NOPNAK COMPLETION                #
      DEF NSPAKES#5#;       # EXPECTING ACK FOR ES                     #
      DEF NSPEROK#6#;       # EXPECTING ER(OK)                         #
      DEF NSPBREC#7#;       # BREAK RECEIVED                           #
      DEF NSPRTRQ#8#;       # RESTART REQUEST                          #
      DEF NSPWTRR#9#;       # WAITING ON RR                            #
      DEF NSPIOQR#10#;      # I/O ERROR OR QR(R) RECEIVED              #
      DEF NSPACES#11#;      # EXPECTING ACK FOR ES                     #
      DEF NSPEXER#12#;      # EXPECTING ER                             #
      DEF NSPPRPD#13#;      # PRU PENDING                              #
      DEF NSPPRBK#14#;      # PRU PENDING + BREAK                      #
      DEF NSPWACK#15#;      # WAITING FOR FCACK TO SEND PRUON          #
      DEF NSPWAC1#16#;      # WAITING FOR FCACK TO RETURN, RC= 1       #
      DEF NSPWAC2#17#;      # WAITING FOR FCACK TO RETURN              #
                                                                       #
************************************************************************
*                                                                      *
* TABLE 1 - PRU RECEIVER                                               *
*                                                                      *
************************************************************************
                                                                       #
                                                                       #
* TRIGGERS
                                                                       #
      DEF NRPTOCM#0#;       # OPEN COMP                                #
      DEF NRPTSS#1#;        # SS TRANSMITTED                           #
      DEF NRPTESE#2#;       # ES(E) TRANSMITTED                        #
      DEF NRPTESK#3#;       # ES/OKR                                   #
      DEF NRPTPRN#4#;       # PRU/ON  NORMAL                           #
      DEF NRPTPRA#5#;       # PRU/ON/A                                 #
      DEF NRPTIFN#6#;       # IFT/END                                  #
      DEF NRPTXFR#7#;       # XFT/IER WITCH RC=10                      #
      DEF NRPTBR3#8#;       # XFT/IER WITH RC=3                        #
      DEF NRPTES5#9#;       # XFT/IER WITH RC=5                        #
      DEF NRPTIO7#10#;      # XFT/IER WITH RC=7                        #
      DEF NRPTTM9#11#;      # XFT/IER WITH RC=9                        #
      DEF NRPTIFF#12#;      # IFT/OFF/N                                #
      DEF NRPTFAK#13#;      # FC/ACK RECEIVED                          #
      DEF NRPTNAK#14#;      # FC/NAK RECEIVED                          #
      DEF NRPTBRK#15#;      # FCBRK RECEIVED                           #
      DEF NRPTFRT#16#;      # FC/RST RECEIVED                          #
      DEF NRPTINT#17#;      # USER INTERRUPT RECEIVED                  #
      DEF NRPTNCB#18#;      # CON/CB RECEIVED                          #
                                                                       #
*STATES 
                                                                       #
      DEF NRPSTX#62#;       # OPEN TO CONNECTION                       #
      DEF NRPEXSS#0#;       # EXPECTING SS                             #
      DEF NRPPRON#1#;       # WAITING FOR PRU/ON/N                     #
      DEF NRPPRDA#2#;       # PRU DATA PHASE                           #
      DEF NRPESKR#3#;       # EXPECTING ES/OKR                         #
      DEF NRPNRCM#4#;       # NORMAL COMPLETION                        #
      DEF NRPAKER#5#;       # EXPECTING ACK(ER)                        #
      DEF NRPE128#6#;       # 1,2,8 ERROR RECEIVED                     #
      DEF NRPBROT#7#;       # BREAK OUTSTANDING                        #
      DEF NRPAKRR#8#;       # EXPECTING ACK(RR)                        #
      DEF NRPBREC#9#;       # BREAK RECEIVED                           #
      DEF NRPESRC#10#;      # ES(E) RECEIVED                           #
      DEF NRPITIO#11#;      # INTERVAL I/O                             #
      DEF NRPAKQR#12#;      # EXPECTING ACK(QR)                        #
      DEF NRPEXES#13#;      # EXPECTING ES(E)                          #
      DEF NRPTOUT#14#;      # TIMED OUT                                #
      DEF NRPPRPD#15#;      # PRU PENDING                              #
      DEF NRPPRBK#16#;      # PRU + BREAK                              #
      DEF NRPSNER#17#;      # SENDER ERROR                             #
                                                                       #
************************************************************************
*                                                                      *
* COMMON TRIGGERS FOR PRU SENDER AND RECEIVER                          *
*                                                                      *
************************************************************************
                                                                       #
      DEF NRSTHSD#19#;      # GRADUAL SHUT DOWN                        #
      DEF NRSTNSL#20#;      # FORCED SHUT DOWN                         #
      DEF NRSTIMO#21#;      # TIME OUT                                 #
      DEF NRSTILL#22#;      # ILLEGAL TRIGGER                          #
                                                                       #
************************************************************************
*                                                                      *
* COMBINED ACTIONS FOR TABLE 0 AND 1                                   *
*                                                                      *
************************************************************************
                                                                       #
      DEF NPSTM1#0#;        # STATUS = -1                              #
      DEF NPSSCKT#1#;        # SS(CKPT) SENDT                          #
      DEF NPRTURN#2#;       # RETURN                                   #
      DEF NPPRUON#3#;       # PRU/ON                                   #
      DEF NPSTZER#4#;       # STATUS = 0                               #
      DEF NPOFST#5#;        # OFT/START SENT                           #
      DEF NPOTOFR#6#;       # OFT/OFF/R                                #
      DEF NPSTM2#7#;        # STATUS = -2                              #
      DEF NPSESOK#8#;       # ES(OK) SENT                              #
      DEF NPFCRST#9#;       # FC/RST SENT                              #
      DEF NPESER#10#;       # ES(E) SENT                               #
      DEF NPIFSRT#11#;      # IFT/START SENT                           #
      DEF NPIFOFR#12#;      # IFT/OFF/R SENT                           #
      DEF NPEROK#13#;       # ER(OK) SENT                              #
      DEF NPFCBRK#14#;      # FC/BRK SENT                              #
      DEF NPRRCKT#15#;      # RR(CKPT) SENT                            #
      DEF NPERER#16#;       # ER(E) SENT                               #
      DEF NPQRER#17#;       # QR(E) SENT                               #
      DEF NPINTRP#18#;      # INTR/RSP                                 #
      DEF NPIDLET#19#;      # SET IDLE FLAG TO BE TRUE                 #
      DEF NPRETPN#20#;      # RETRY TO SEND PRUON                      #
      DEF NPINTRA#21#;      # INTRAHOST RETURN ACTION                  #
      DEF NPLSTF#22#;       # LSTOFF THE FILE TRANSFER CONNECTION      #
      DEF NPLSTO#23#;       # LSTON THE FILE TRANSFER CONNECTION       #
                                                                       #
************************************************************************
*                                                                      *
* TABLE 2 - CHARACTER MODE SENDER                                      *
*                                                                      *
************************************************************************
                                                                       #
                                                                       #
* TRIGGERS
                                                                       #
      DEF NSCTOCM#0#;       # INITIAL READY STATE                      #
      DEF NSCTSR#1#;        # SR TRANSMITTED                           #
      DEF NSCTRRT#2#;       # REQUEST RESTART WITH CHECKMARK VALUE     #
      DEF NSCTERK#3#;       # ER(OK) RECEIVED                          #
      DEF NSCTERE#4#;       # ER(E) RECEIVED                           #
      DEF NSCTQRK#5#;       # QR(OK) RECEIVED                          #
      DEF NSCTQRE#6#;       # QR(E) RECEIVED                           #
      DEF NSCTMRR#7#;       # MR RECEIVED                              #
      DEF NSCTACK#8#;       # FCACK RECEIVED                           #
      DEF NSCTNAK#9#;       # FCNAK RECEIVED                           #
      DEF NSCTBRK#10#;      # FCBRK RECEIVED                           #
      DEF NSCTINT#11#;      # INTERRUPT USER RECEIVED                  #
      DEF NSCTNCB#12#;      # CONCB RECEIVED                           #
      DEF NSCTHSD#13#;      # GRADUAL SHUTDOWN                         #
      DEF NSCTNSL#14#;      # FORCED SHUTDOWN                          #
      DEF NSCTIMO#15#;      # TIMEOUT                                  #
      DEF NSCTILL#16#;      # ILLEGAL TRIGGER RECEIVED                 #
      DEF NSCTEOI#17#;      # EOI ENCOUNTERED                          #
      DEF NSCTMCM#18#;      # MAXIMUM NUMBER OF CHECKMARK SENT         #
      DEF NSCTSND#19#;      # SIGNAL TO TRANSMIT DATA                  #
      DEF NSCTABE#20#;      # ABL CLOSED AFTER ES(OK) SENT             #
      DEF NSCTERR#21#;      # CIO ERROR ENCOUNTERED DURING TRANSMISSION#
                                                                       #
*STATES 
                                                                       #
      DEF NSCSTX#62#;       # OPEN TO CONNECTION                       #
      DEF NSCEXSR#0#;       # EXPECTING SR                             #
      DEF NSCDATA#1#;       # DATA STATE                               #
      DEF NSCCABL#2#;       # ABL WINDOW CLOSED                        #
      DEF NSCCCMW#3#;       # CHECKMARK WINDOW CLOSED                  #
      DEF NSCCCAW#4#;       # CHECKMARK AND ABL WINDOW CLOSED          #
      DEF NSCABLE#5#;       # CHECKMARK WINDOW CLOSED AND EOI REACHED  #
      DEF NSCEROK#6#;       # EXPECTING ER(OK)                         #
      DEF NSCABES#7#;       # ABL WINDOW CLOSED AND SEND ES(E)         #
      DEF NSCERER#8#;       # EXPECTING ER(E)                          #
      DEF NSCABRR#9#;       # ABL CLOSED AND RR RECEIVED               #
      DEF NSCWTRR#10#;      # WAITING FOR RESTART REQUEST              #
      DEF NSCWAER#11#;      # WAITING FOR ER(OK) WITH ABL CLOSED       #
      DEF NSCWACK#12#;      # WAITING FOR OUTSTANDING FCACKS           #
                                                                       #
************************************************************************
*                                                                      *
* TABLE 3 - CHARACTER MODE RECEIVER                                    *
*                                                                      *
************************************************************************
                                                                       #
                                                                       #
* TRIGGERS
                                                                       #
      DEF NRCTOCM#0#;       # READY                                    #
      DEF NRCTSS#1#;        # SS TRECEIVED                             #
      DEF NRCTESK#2#;       # ES(OK) RECEIVED                          #
      DEF NRCTESE#3#;       # ES(E) RECEIVED                           #
      DEF NRCTMSR#4#;       # MS RECEIVED                              #
      DEF NRCTACK#5#;       # FCACK RECEIVED                           #
      DEF NRCTNAK#6#;       # FCNAK RECEIVED                           #
      DEF NRCTBRK#7#;       # FCBRK RECEIVED                           #
      DEF NRCTRST#8#;       # FCRST RECEIVED                           #
      DEF NRCTINT#9#;       # INTERRUPT USER RECEIVED                  #
      DEF NRCTNCB#10#;      # CONCB RECEIVED                           #
      DEF NRCTHSD#11#;      # GRADUAL SHUTDOWN9                        #
      DEF NRCTNSL#12#;      # FORCED SHUTDOWN                          #
      DEF NRCTIMO#13#;      # TIMEOUT                                  #
      DEF NRCTILL#14#;      # ILLEGAL TRIGGER                          #
      DEF NRCTDAT#15#;      # DATA TRIGGER RECEIVED                    #
      DEF NRCTEOK#16#;      # END OF RECEPTION OK                      #
      DEF NRCTBDA#17#;      # BAD DATA RECEIVED                        #
      DEF NRCTITR#18#;      # INTERNAL ERROR                           #
      DEF NRCTCHM#19#;      # SENDER'S CHECKMARK RECEIVED              #
                                                                       #
*STATES 
                                                                       #
      DEF NRCSTX#62#;       # OPEN TO CONNECTION                       #
      DEF NRCEXSS#0#;       # EXPECTING SS                             #
      DEF NRCDATA#1#;       # DATA TRANSMISSION PHASE                  #
      DEF NRCABNR#2#;       # ABNORMAL TERMINATION                     #
      DEF NRCRETY#3#;       # RETRY ERROR                              #
      DEF NRCACKR#4#;       # WAITING FOR ACK TO RETURN                #
      DEF NRCTRCM#5#;       # EXPECTING TRIGGER FOR COMPLETION         #
      DEF NRCRSIN#6#;       # RESTART INITIATED                        #
      DEF NRCDUMM#7#;       # DUMMY STATE 7                            #
                                                                       #
************************************************************************
*                                                                      *
* COMBINED ACTIONS FOR TABLE 2 AND 3                                   *
*                                                                      *
************************************************************************
                                                                       #
      DEF NCSTM1#0#;        # STATUS = -1                              #
      DEF NCSSCKT#1#;       # SEND SS(CHECKMARK=0)                     #
      DEF NCSTZER#2#;       # STATUS = 0                               #
      DEF NCESER#3#;        # ES(E) SENT                               #
      DEF NCADABL#4#;       # ADVANCE ABL WINDOW                       #
      DEF NCRTURN#5#;       # RETURN                                   #
      DEF NCOPRST#6#;       # OPEN ABL WINDOW TO MAXIMUM AND SEND FCRST#
      DEF NCINTSP#7#;       # SEND INTRRSP                             #
      DEF NCIDLE#8#;        # SET IDLE FLAG TO TRUE                    #
      DEF NCSTMRS#9#;       # STATUS = -1 AND RESET                    #
      DEF NCESOK#10#;       # SEND ES(OK)                              #
      DEF NCADCMW#11#;      # ADVANCE CHECKMARK WINDOW                 #
      DEF NCSDATA#12#;      # SEND DATA                                #
      DEF NCSNDSR#13#;      # SEND SR                                  #
      DEF NCERER#14#;       # SEND ER(E)                               #
      DEF NCSTRWL#15#;      # STATUS = -1 AND RESET ABL WINDOW         #
      DEF NCSSRRT#16#;      # SEND SS(CHECKMARK)                       #
      DEF NCSTM2#17#;       # STATUS = -2                              #
      DEF NCQRER#18#;       # SEND QR(E)                               #
      DEF NCCLOSE#19#;      # CLOSE CIO FUNCTION                       #
      DEF NCSAVE#20#;       # SAVE CHECKMARK                           #
      DEF NCSTORE#21#;      # STORE DATA                               #
      DEF NCFCBRK#22#;      # SEND FCBRK                               #
      DEF NCSNDMR#23#;      # SEND MR                                  #
      DEF NCRRCHK#24#;      # SEND RR(CHK)                             #
      DEF NCEROK#25#;       # SEND ER(OK)                              #
      DEF NCLSTF#26#;       # LSTOFF THE FILE TRANSFER CONNECTION      #
      DEF NCLSTO#27#;       # LSTON THE FILE TRANSFER CONNECTION       #
      DEF NCADWSP#28#;      # SPECIAL ADVANCED WINDOW                  #
                                                                       #
* DEFINITION OF MINIMUM AND MAXIMUM STATE TABLE STATE AND TRIGGER 
*   VALUES
                                                                       #
      DEF NETSPMST#17#;     # MAX STATE FOR PRU SENDER TABLE           #
      DEF NETSPMTR#22#;     # MAX TRIGGER FOR PRU SENDER TABLE         #
      DEF NETRPMST#17#;     # MAX STATE FOR PRU RECEIVER TABLE         #
      DEF NETRPMTR#22#;     # MAX TRIGGER FOR PRU RECEIVER TABLE       #
      DEF NETSCMST#12#;     # MAX STATE FOR CHARACTER SENDER TABLE     #
      DEF NETSCMTR#21#;     # MAX TRIGGER FOR CHARACTER SENDER TABLE   #
      DEF NETRCMST#7#;      # MAX STATE FOR CHARACTER RECEIVER TABLE   #
      DEF NETRCMTR#19#;     # MAX TRIGGER FOR CHARACTER RECEIVER TABLE #
  
                                                                       #
* GENERAL DEFINITIONS FOR STATE TABLES
                                                                       #
  
      DEF NETSPOD#0#;        # ORDINAL FOR PRU SENDER                  #
      DEF NETRPOD#1#;        # ORDINAL FOR PRU RECEIVER                #
      DEF NETSCOD#2#;        # ORDINAL FOR CHARACTER SENDER            #
      DEF NETRCOD#3#;        # ORDINAL FOR CHARACTER RECEIVER          #
      DEF NIL#0#;            # VALUE OF A NULL BACKTRIGGER             #
      DEF STATX#62#;         # NO CONNECTION STATE VALUE (76B)         #
      DEF NOCHG#63#;         # NO CHANGE VALUE IN STATE TABLE (77B)    #
*ENDIF
