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