MACRO                                                          00001000
&NAME    TERMINAL &TERM=,&SELECT=,&MODEL=2,&FEATURE=                    00002000
         GBLA  &RCUCNT,&RCHCNT,&RDVCNT,&RPCCNT,&RPCLST(16),&DIAL75(16)  00003100
         GBLC  &CUPOLL,&RPCCU(16)                                       00004000
         LCLC  &TYPE,&FEAT,&DVPOLL                                      00005000
         LCLA  &NICNAME,&INDEX,&DTYP                                    00006000
         AIF   (&RCUCNT NE 0 OR &RCHCNT NE 0 OR &RDVCNT NE 0).ERR1      00007000
         AIF   (&RPCCNT EQ 0).ERR1                                      00008000
         AIF   (T'&TERM EQ 'O').ERR2                                    00009000
         AIF   ('&TERM' EQ '3277' OR '&TERM' EQ '3275').TERMOK          00010000
         AIF   ('&TERM' EQ '3286' OR '&TERM' EQ '3288').PRTOK           00011000
         AIF   ('&TERM' NE '3284').ERR3                                 00012000
.PRTOK   AIF   ('&MODEL' NE '2').ERR4                                   00013000
&TYPE    SETC  'NICTERM+NICRSPL'                                        00014000
         AGO   .SELAD                                                   00015000
.TERMOK  ANOP                                                           00016000
&TYPE    SETC  'NICTERM+NICGRAF'                                        00017000
.SELAD   ANOP                                                           00018100
         AIF   (&DIAL75(&RPCCNT) NE 0).NGP1                             00018200
         AIF   (T'&SELECT EQ 'O').ERR5                                  00018300
         AIF   (K'&SELECT NE 4).ERR6                                    00019000
&DVPOLL  SETC  '&CUPOLL'.'&SELECT'(3,2)                                 00020000
.NGP1    ANOP                                                           00020100
         AIF   (('&TERM' EQ '3284') OR ('&TERM' EQ '3286')).NEXT        00021000
         AIF   ('&TERM' EQ '3288').NEXT                                 00022000
         AIF   (T'&FEATURE EQ 'O').NEXT                                 00023000
         AIF   (K'&FEATURE NE 5).ERR7                                   00024000
         AIF   ('&FEATURE' NE 'OPRDR').ERR7                             00025000
&FEAT    SETC  'NIC&FEATURE'                                            00026000
.NEXT    ANOP                                                           00027000
         AIF   ('&MODEL' EQ '3' AND '&TERM' EQ '3275').SETPT            00028000
         AIF   ('&MODEL' NE '2').ERR4                                   00029000
         AGO   .CONT1                                                   00030000
.SETPT   ANOP                                                           00031000
&INDEX   SETA  1                                                        00032000
.CONT1   ANOP                                                           00033000
         AIF   ('&NAME' EQ '').SKIP1                                    00034000
&NAME    DS    0D                                                       00035000
         AGO   .SKIP2                                                   00036000
.SKIP1   ANOP                                                           00037000
         DS    0D                                                       00038000
.SKIP2   ANOP                                                           00039000
&NICNAME SETA  &RPCLST(&RPCCNT)                                         00040000
         DC    AL2(&NICNAME),AL2(0)     NICNAME, NICCORD                00041000
         DC    AL1(NICDISA,NICPSUP)     NICSTAT, NICFLAG                00042000
         AIF   (K'&FEAT EQ 0).BYPASS                                    00043000
         DC    AL1(80),AL1(&TYPE+&FEAT) NICLLEN, NICTYPE                00044000
         AGO    .NEXT1                                                  00045000
.BYPASS  ANOP                                                           00046000
         DC    AL1(80),AL1(&TYPE)       NICLLEN, NICTYPE                00047000
.NEXT1   ANOP                                                           00048000
         AIF   (&DIAL75(&RPCCNT) EQ 0).NGP2                             00048100
         DC    XL2'00',XL2'00'          NICSELT, NICPOLL                00048200
         AGO   .NGP3                                                    00048300
.NGP2    ANOP                                                           00048400
         DC    X'&SELECT',X'&DVPOLL'    NICSELT, NICPOLL                00049000
.NGP3    ANOP                                                           00049100
         DC    A(0)                     NICATRB                         00050000
         DC    V(DMKSYSVM)              NICUSER                         00051000
         DC    A(0)                     NICQPNT                         00052000
         AIF   ('&TYPE' EQ 'NICTERM+NICGRAF').CONT2                     00052060
         DC    8X'00'         NICRSV                                    00052120
         AGO   .CONT3                                                   00052180
.CONT2   ANOP                                                           00052240
         DC    AL1(0)         NICRSV1                                   00052300
         AIF   ('&TERM' EQ '3275').SET5                                 00052360
&DTYP    SETA  4                                                        00052420
         AGO   .CONT4                                                   00052480
.SET5    ANOP                                                           00052540
&DTYP    SETA 2                                                         00052600
.CONT4   ANOP                                                           00052660
         DC    AL1(&DTYP)     NICDTYPE                                  00052720
         DC    AL1(2)         NICMDL                                    00052780
         DC    AL1(0)         NICRSV2                                   00052840
         DC    A(0)           NICRSV3                                   00052900
.CONT3   ANOP                                                           00052960
         SPACE                                                          00053000
&RPCLST(&RPCCNT)  SETA  &RPCLST(&RPCCNT)+1                              00054000
         AIF   (&INDEX EQ 0).EXITRET                                    00055000
&INDEX   SETA  0                                                        00056000
&FEAT    SETC  ''                                                       00057000
&TYPE    SETC  'NICTERM+NICRSPL'                                        00058000
         AGO   .SKIP1                                                   00059000
.EXITRET ANOP                                                           00060000
         MEXIT                                                          00061000
.ERR1    MNOTE 12,'TERMINAL MACRO OUT OF SEQUENCE'                      00062000
         MEXIT                                                          00063000
.ERR2    MNOTE 8,'TERM NOT SPECIFIED'                                   00064000
         MEXIT                                                          00065000
.ERR3    MNOTE 8,'INVALID TERM OPERAND'                                 00066000
         MEXIT                                                          00067000
.ERR4    MNOTE 8,'INVALID MODEL NUMBER'                                 00068000
         MEXIT                                                          00069000
.ERR5    MNOTE 8,'SELECT NOT SPECIFIED'                                 00070000
         MEXIT                                                          00071000
.ERR6    MNOTE 8,'INVALID SELECT OPERAND'                               00072000
         MEXIT                                                          00073000
.ERR7    MNOTE 4,'INVALID FEATURE OPERAND'                              00074000
         AGO   .NEXT                                                    00075000
         MEND                                                           00076000