*COMDECK X25NETDEF
          NAM    X25NETDEF
          ENT    X25NETTAB
NEW       MAC    NN 
          IFC    "NN",EQ,DATAPC 
          EQU    DATAPAC(*) 
          ADC    DPCLEAR
          ADC    DPRESET
          ADC    DPRSTART 
          EIF 
          IFC    "NN",EQ,TELNET 
          EQU    TELENET(*) 
          ADC    TLCLEAR
          ADC    TLRESET
          ADC    TLRSTART 
          EIF 
          IFC    "NN",EQ,XPAC 
          EQU    TRANSPAC(*)
          ADC    XPCLEAR
          ADC    XPRESET
          ADC    XPRSTART 
          EIF 
          IFC    "NN",EQ,TMNET
          EQU    TYMNET(*)
          ADC    TMCLEAR
          ADC    TMRESET
          ADC    TMRSTART 
          EIF 
          IFC    "NN",EQ,CDNET
          EQU    CDSN(*)
          ADC    CDCLEAR
          ADC    CDRESET
          ADC    CDRSTART 
          EIF 
          IFC    "NN",EQ,U2PSN
          EQU    USR2PSN(*) 
          ADC    U2CLEAR
          ADC    U2RESET
          ADC    U2RSTART 
          EIF 
          EMC 
NETWORK   MAC 
          EQU    X25NETTAB(*) 
          ADC    DATAPAC
          ADC    TELENET
          ADC    TRANSPAC 
          ADC    TYMNET 
          ADC    CDSN 
          ADC    TYMNET                 UNINET USES TYMNET SPECS
          ADC    TYMNET      C120 USES TYMNET SPECS 
* 
*      FOLLOWING ENTRIES ARE FOR SITE-DEFINED PSN-S 
* 
          ADC    USR2PSN
          ADC    USR2PSN
          ADC    USR2PSN
          EMC 
*                  FOR CLEAR-RESET-RESTART  MACROS, THE FOLLOWING 
*                  PARAMETERS ARE USED
* 
*                  P1 = NETWORK TYPE  : 
*                       1 - DATAPAC 
*                       2 - TELENET 
*                       3 - TRANSPAC
*                       4 - TYMNET
*                       5 - CDSN
*                       6 - UNINET USES TYMNET SPECS
*                       7 - C120 USES TYMNET SPECS
*                       REST - SITE DEFINED 
*                  P2 = ENTRY TYPE(FIRST OR LAST) 
*                  P3 = CAUSE CODE TO BE CHECKED
*                  P4 = DIAGNOSTIC CODE TO BE CHECKED 
*                  P5 = SINGLE BYTE CHECK(CAUSE CODE) 
*                  P6 = PRIMARY EVENT CODE TO BE RETURNED 
*                  P7 = INTERNAL ERROR CODE 
*                  P8 = ALARM FLAG
*                  P9 = WARNING FLAG
*                  PA = USES INVITATION TO CLEAR
*                  PB = USES LCN 0 FOR DATA 
* 
* 
CLEAR     MAC    P1,P2,P3,P4,P5,P6,P7,P8,P9,PA,PB 
A1        IFC    "P2",EQ,FIRST
A2        IFC    "P1",EQ,DATAPC 
          EQU    DPCLEAR(*) 
          EIF    A2 
A3        IFC    "P1",EQ,TELNET 
          EQU    TLCLEAR(*) 
          EIF    A3 
A4        IFC    "P1",EQ,XPAC 
          EQU    XPCLEAR(*) 
          EIF    A4 
A5        IFC    "P1",EQ,TMNET
          EQU    TMCLEAR(*) 
          EIF    A5 
A6        IFC    "P1",EQ,CDNET
          EQU    CDCLEAR(*) 
          EIF    A6 
A7        IFC    "P1",EQ,U2PSN
          EQU    U2CLEAR(*) 
          EIF    A7 
          EIF    A1 
AA        IFC    "PA",EQ, 
          EQU    "PA"(0)
          EIF    AA 
AB        IFC    "PB",EQ, 
          EQU    "PB"(0)
          EIF    AB 
          VFD    X1/"P8",X1/"P9",X1/"P5",X1/"P2",X1/"PA",X1/"PB",X10/0
          VFD    X8/"P3",X8/"P4"
          VFD    X8/"P6",X8/"P7"
          EMC 
RESET     MAC    P1,P2,P3,P4,P5,P6,P7,P8,P9 
A1        IFC    "P2",EQ,FIRST
A2        IFC    "P1",EQ,DATAPC 
          EQU    DPRESET(*) 
          EIF    A2 
A3        IFC    "P1",EQ,TELNET 
          EQU    TLRESET(*) 
          EIF    A3 
A4        IFC    "P1",EQ,XPAC 
          EQU    XPRESET(*) 
          EIF    A4 
A5        IFC    "P1",EQ,TMNET
          EQU    TMRESET(*) 
          EIF    A5 
A6        IFC    "P1",EQ,CDNET
          EQU    CDRESET(*) 
          EIF    A6 
A7        IFC    "P1",EQ,U2PSN
          EQU    U2RESET(*) 
          EIF    A7 
          EIF    A1 
          VFD    X1/"P8",X1/"P9",X1/"P5",X1/"P2",X12/0
          VFD    X8/"P3",X8/"P4"
          VFD    X8/"P6",X8/"P7"
          EMC 
RSTART    MAC    P1,P2,P3,P4,P5,P6,P7,P8,P9 
A1        IFC    "P2",EQ,FIRST
A2        IFC    "P1",EQ,DATAPC 
          EQU    DPRSTART(*)
          EIF    A2 
A3        IFC    "P1",EQ,TELNET 
          EQU    TLRSTART(*)
          EIF    A3 
A4        IFC    "P1",EQ,XPAC 
          EQU    XPRSTART(*)
          EIF    A4 
A5        IFC    "P1",EQ,TMNET
          EQU    TMRSTART(*)
          EIF    A5 
A6        IFC    "P1",EQ,CDNET
          EQU    CDRSTART(*)
          EIF    A6 
A7        IFC    "P1",EQ,U2PSN
          EQU    U2RSTART(*)
          EIF    A7 
          EIF    A1 
          VFD    X1/"P8",X1/"P9",X1/"P5",X1/"P2",X12/0
          VFD    X8/"P3",X8/"P4"
          VFD    X8/"P6",X8/"P7"
          EMC 
          EQU    ALARM(1) 
          EQU    WARNING(1) 
          EQU    SBCHECK(1) 
          EQU    LAST(1)
          EQU    FIRST(0) 
          EQU    X7CLRR(3)
          EQU    X7DRFC(5)
          EQU    X7SKIP(10) 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* D A T A P A C 
*                  DATAPAC CLEAR INDICATION PROCESSING
* 
          CLEAR  DATAPC,FIRST,0,0,SBCHECK,X7CLRR,0,0,0
          CLEAR  DATAPC,0,1,0,SBCHECK,X7CLRR,1,0,WARNING
          CLEAR  DATAPC,0,3,0,SBCHECK,X7SKIP,2,ALARM,0
          CLEAR  DATAPC,0,5,0,SBCHECK,X7CLRR,3,0,WARNING
          CLEAR  DATAPC,0,9,0,SBCHECK,X7CLRR,4,0,WARNING
          CLEAR  DATAPC,0,11,0,SBCHECK,X7CLRR,5,0,WARNING 
          CLEAR  DATAPC,0,13,0,SBCHECK,X7CLRR,6,0,WARNING 
          CLEAR  DATAPC,0,17,0,SBCHECK,X7CLRR,7,0,0 
          CLEAR  DATAPC,0,19,0,SBCHECK,X7SKIP,8,ALARM,0 
          CLEAR  DATAPC,LAST,25,0,SBCHECK,X7CLRR,9,0,WARNING
* 
*                  DATAPAC RESET INDICATION PROCESSING
* 
          RESET  DATAPC,FIRST,0,0,SBCHECK,X7DRFC,0,0,0
          RESET  DATAPC,0,1,0,SBCHECK,X7CLRR,1,0,WARNING
          RESET  DATAPC,0,3,0,SBCHECK,X7DRFC,2,0,WARNING
          RESET  DATAPC,0,5,0,SBCHECK,X7SKIP,3,ALARM,0
          RESET  DATAPC,LAST,7,0,SBCHECK,X7DRFC,4,0,WARNING 
* 
*                  DATAPAC RESTART INDICATION PROCESSING
* 
          RSTART DATAPC,FIRST,1,0,SBCHECK,X7SKIP,0,ALARM,0
          RSTART DATAPC,0,3,0,SBCHECK,X7SKIP,1,0,0
          RSTART DATAPC,LAST,7,0,SBCHECK,X7SKIP,0,0,0 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* T E L E N E T 
*                  TELENET CLEAR INDICATION PROCESSING
* 
          CLEAR  TELNET,FIRST,0,0,SBCHECK,X7CLRR,0,0,0
          CLEAR  TELNET,0,1,0,SBCHECK,X7CLRR,1,0,WARNING
          CLEAR  TELNET,0,3,0,SBCHECK,X7CLRR,2,0,WARNING
          CLEAR  TELNET,0,5,0,SBCHECK,X7CLRR,3,0,WARNING
          CLEAR  TELNET,0,9,0,SBCHECK,X7CLRR,4,0,WARNING
          CLEAR  TELNET,0,11,0,SBCHECK,X7CLRR,5,0,WARNING 
          CLEAR  TELNET,0,13,0,SBCHECK,X7CLRR,6,0,WARNING 
          CLEAR  TELNET,0,17,0,SBCHECK,X7CLRR,7,0,0 
          CLEAR  TELNET,0,19,0,SBCHECK,X7CLRR,8,0,WARNING 
          CLEAR  TELNET,0,19,0,SBCHECK,X7CLRR,9,0,0 
          CLEAR  TELNET,0,25,0,SBCHECK,X7CLRR,10,0,WARNING
          CLEAR  TELNET,0,33,0,SBCHECK,X7CLRR,11,0,WARNING
          CLEAR  TELNET,LAST,48,0,SBCHECK,X7CLRR,12,0,WARNING 
* 
*                  TELENET RESET INDICATION PROCESSING
* 
          RESET  TELNET,FIRST,0,0,SBCHECK,X7DRFC,0,0,0
          RESET  TELNET,0,1,0,SBCHECK,X7DRFC,1,0,WARNING
          RESET  TELNET,0,3,0,SBCHECK,X7DRFC,3,0,WARNING
          RESET  TELNET,0,5,0,SBCHECK,X7DRFC,4,0,WARNING
          RESET  TELNET,0,7,0,SBCHECK,X7DRFC,5,0,WARNING
          RESET  TELNET,0,9,0,SBCHECK,X7DRFC,6,0,0
          RESET  TELNET,0,15,0,SBCHECK,X7DRFC,7,0,0 
          RESET  TELNET,LAST,17,0,SBCHECK,X7DRFC,8,0,0
* 
*                  TELENET RESTART  INDICATION PROCESSING 
* 
          RSTART TELNET,FIRST,1,0,SBCHECK,X7SKIP,0,ALARM,0
          RSTART TELNET,0,3,0,SBCHECK,X7SKIP,1,0,WARNING
          RSTART TELNET,LAST,7,0,SBCHECK,X7SKIP,2,0,0 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* T R A N S P A C 
*                  TRANSPAC CLEAR INDICATION PROCESSING 
* 
          CLEAR  XPAC,FIRST,0,0,SBCHECK,X7CLRR,0,0,0,0,1
          CLEAR  XPAC,0,1,0,0,X7CLRR,1,0,WARNING
          CLEAR  XPAC,0,3,0,SBCHECK,X7SKIP,2,ALARM,0
          CLEAR  XPAC,0,5,0,SBCHECK,X7CLRR,3,0,WARNING
          CLEAR  XPAC,0,9,0,0,X7CLRR,4,0,WARNING
          CLEAR  XPAC,0,11,1,0,X7CLRR,5,0,WARNING 
          CLEAR  XPAC,0,13,0,0,X7CLRR,6,0,WARNING 
          CLEAR  XPAC,0,17,3,0,X7CLRR,7,0,0 
          CLEAR  XPAC,0,17,0,SBCHECK,X7SKIP,8,ALARM,0 
          CLEAR  XPAC,0,19,0,SBCHECK,X7CLRR,9,0,0 
          CLEAR  XPAC,0,25,0,0,X7CLRR,10,0,WARNING
          CLEAR  XPAC,LAST,33,0,0,X7CLRR,11,0,WARNING 
* 
*                  TRANSPAC RESET INDICATION PROCESSING 
* 
          RESET  XPAC,FIRST,0,0,0,X7DRFC,7,0,0
          RESET  XPAC,0,0,0,SBCHECK,X7CLRR,1,0,0
          RESET  XPAC,0,1,0,0,X7CLRR,1,0,WARNING
          RESET  XPAC,0,3,3,0,X7SKIP,5,ALARM,0
          RESET  XPAC,0,3,0,SBCHECK,X7DRFC,2,0,0
          RESET  XPAC,0,5,0,SBCHECK,X7SKIP,3,ALARM,0
          RESET  XPAC,0,7,1,0,X7DRFC,4,0,WARNING
          RESET  XPAC,0,9,1,0,X7DRFC,6,0,0
          RESET  XPAC,LAST,15,1,0,X7DRFC,6,0,0
* 
*                  TRANSPAC RESTART  INDICATION PROCESSING
* 
          RSTART XPAC,FIRST,1,3,0,X7SKIP,4,ALARM,0
          RSTART XPAC,0,1,0,SBCHECK,X7SKIP,0,ALARM,0
          RSTART XPAC,0,5,0,0,X7SKIP,3,ALARM,0
          RSTART XPAC,LAST,7,0,SBCHECK,X7SKIP,1,0,0 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* T Y M N E T 
*                  TYMNET CLEAR INDICATION PROCESSING 
* 
          CLEAR  TMNET,FIRST,0,0,SBCHECK,X7CLRR,0,0,0 
          CLEAR  TMNET,0,1,0,SBCHECK,X7CLRR,1,0,WARNING 
          CLEAR  TMNET,0,3,0,SBCHECK,X7CLRR,2,0,WARNING 
          CLEAR  TMNET,0,5,0,SBCHECK,X7CLRR,3,0,WARNING 
          CLEAR  TMNET,0,9,0,SBCHECK,X7CLRR,4,0,WARNING 
          CLEAR  TMNET,0,11,0,SBCHECK,X7CLRR,5,0,WARNING
          CLEAR  TMNET,0,13,0,SBCHECK,X7CLRR,6,0,WARNING
          CLEAR  TMNET,0,17,0,SBCHECK,X7CLRR,7,0,WARNING
          CLEAR  TMNET,0,19,0,SBCHECK,X7CLRR,8,0,WARNING
          CLEAR  TMNET,0,25,0,SBCHECK,X7CLRR,9,0,WARNING
          CLEAR  TMNET,LAST,33,0,SBCHECK,X7CLRR,10,0,WARNING
* 
*                  TYMNET RESET INDICATION PROCESSING 
* 
          RESET  TMNET,FIRST,0,0,SBCHECK,X7DRFC,0,0,0 
          RESET  TMNET,0,1,0,SBCHECK,X7DRFC,1,0,WARNING 
          RESET  TMNET,0,3,0,SBCHECK,X7DRFC,2,0,WARNING 
          RESET  TMNET,0,5,0,SBCHECK,X7DRFC,3,0,WARNING 
          RESET  TMNET,0,7,0,SBCHECK,X7DRFC,4,0,WARNING 
          RESET  TMNET,0,9,0,SBCHECK,X7DRFC,5,0,0 
          RESET  TMNET,0,15,0,SBCHECK,X7DRFC,6,0,0
          RESET  TMNET,LAST,17,0,SBCHECK,X7DRFC,7,0,0 
* 
*                  TYMNET RESTART INDICATION PROCESSING 
* 
          RSTART TMNET,FIRST,0,0,SBCHECK,X7SKIP,0,0,0 
          RSTART TMNET,0,1,0,SBCHECK,X7SKIP,0,ALARM,0 
          RSTART TMNET,0,3,0,SBCHECK,X7SKIP,1,0,WARNING 
          RSTART TMNET,LAST,7,0,SBCHECK,X7SKIP,2,0,0
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*                  CDSN CLEAR INDICATION PROCESSING 
* 
          CLEAR  CDNET,FIRST,0,0,SBCHECK,X7CLRR,0,0,0,1 
          CLEAR  CDNET,0,1,0,SBCHECK,X7CLRR,1,0,WARNING 
          CLEAR  CDNET,0,3,0,SBCHECK,X7CLRR,2,0,WARNING 
          CLEAR  CDNET,0,5,0,SBCHECK,X7CLRR,3,0,WARNING 
          CLEAR  CDNET,0,9,0,SBCHECK,X7CLRR,4,0,WARNING 
          CLEAR  CDNET,0,11,0,SBCHECK,X7CLRR,5,0,WARNING
          CLEAR  CDNET,0,13,0,SBCHECK,X7CLRR,6,0,WARNING
          CLEAR  CDNET,0,17,0,SBCHECK,X7CLRR,7,0,WARNING
          CLEAR  CDNET,0,19,0,SBCHECK,X7CLRR,9,0,0
          CLEAR  CDNET,0,25,0,SBCHECK,X7CLRR,10,0,WARNING 
          CLEAR  CDNET,LAST,33,0,SBCHECK,X7CLRR,11,0,WARNING
* 
*                  CDSN RESET INDICATION PROCESSING 
* 
          RESET  CDNET,FIRST,0,0,SBCHECK,X7DRFC,0,0,0 
          RESET  CDNET,0,1,0,SBCHECK,X7DRFC,1,0,WARNING 
          RESET  CDNET,0,3,0,SBCHECK,X7DRFC,2,0,WARNING 
          RESET  CDNET,0,5,0,SBCHECK,X7DRFC,3,0,WARNING 
          RESET  CDNET,0,7,0,SBCHECK,X7DRFC,4,0,WARNING 
          RESET  CDNET,0,9,0,SBCHECK,X7DRFC,5,0,0 
          RESET  CDNET,0,15,0,SBCHECK,X7DRFC,6,0,0
          RESET  CDNET,LAST,17,0,SBCHECK,X7DRFC,7,0,0 
* 
*                  CDSN RESTART INDICATION PROCESSING 
* 
          RSTART CDNET,FIRST,1,0,SBCHECK,X7SKIP,0,ALARM,0 
          RSTART CDNET,0,0,0,SBCHECK,X7DRFC,0,0,0 
          RSTART CDNET,0,3,0,SBCHECK,X7SKIP,1,0,WARNING 
          RSTART CDNET,LAST,7,0,SBCHECK,X7SKIP,2,0,0
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* U S R 2 P S N 
*                  USR2PSN CLEAR INDICATION PROCESSING
* 
          CLEAR  U2PSN,FIRST,0,0,SBCHECK,X7CLRR,0,0,0 
          CLEAR  U2PSN,LAST,33,0,SBCHECK,X7CLRR,10,0,WARNING
* 
*                  USR2PSN RESET INDICATION PROCESSING
* 
          RESET  U2PSN,FIRST,0,0,SBCHECK,X7DRFC,0,0,0 
          RESET  U2PSN,LAST,17,0,SBCHECK,X7DRFC,7,0,0 
* 
*                  USR2PSN RESTART INDICATION PROCESSING
* 
          RSTART U2PSN,FIRST,1,0,SBCHECK,X7SKIP,0,ALARM,0 
          RSTART U2PSN,LAST,7,0,SBCHECK,X7SKIP,2,0,0
          NEW    DATAPC 
          NEW    TELNET 
          NEW    XPAC 
          NEW    TMNET
          NEW    CDNET
          NEW    U2PSN
          NETWORK 
          END 
