         PROC                                                           NTR00010
NTR      NAME                                                           NTR00020
         GBL   &NT$BKSI,&NT$BKSO,&NT$LNSP,&NT$LINE                      NTR00030
         GBL   &NT$NET,&NT$POOL,&NT$SITE                                NTR00040
         LCL   &I                                                       NTR00050
         ENTRY NT$NTRFG,NT$LINSP                                        NTR00060
         ENTRY NT$SITE,NT$LINE,NT$NET                                   NTR00070
         ENTRY NT$MCTDV                                                 NTR00075
*                                                                       NTR00080
NT$NTRFG DC    F'0'                                                     NTR00090
NT$LINSP DC    H'&NT$LNSP'                                              NTR00100
NT$SITE  DC    CL2'&NT$SITE'                                            NTR00110
NT$LINE  DC    CL4'&NT$LINE'                                            NTR00120
NT$NET   DC    CL4'&NT$NET'                                             NTR00130
         CNOP  0,8                                                      NTR00140
                                                               SPACE 3  NTR00150
         ENTRY NT$CONLO,NT$CONSL                                        NTR00160
NT$CONLO DC    XL2'00'                                                  NTR00170
         DC    H'&NT$BKSO'                                              NTR00180
         DC    F'0'                                                     NTR00190
         EXTRN NT$CONQU                                                 NTR00200
         DC    A(NT$CONQU)                                              NTR00210
         DC    2F'0'                                                    NTR00220
         DC    X'80008000'                                              NTR00230
         DC    F'0'                                                     NTR00240
         DC    H'&NT$BKSI'                                              NTR00242
         DC    XL2'0004'                                                NTR00244
         ENTRY NT$DVTAD                                                 NTR00250
NT$DVTAD EQU   *                                                        NTR00260
                                                               SPACE 3  NTR00270
NT$CONSL EQU   *                                                        NTR00280
&IA      DO    15                                                       NTR00300
&I       SET   &IA-1                                                    NTR00310
         DC    YL1(&I)                                                  NTR00320
         DC    XL1'00'                                                  NTR00330
         DC    H'&NT$BKSO'                                              NTR00340
         DC    F'0'                                                     NTR00350
         EXTRN NT$DVC&I                                                 NTR00360
         DC    A(NT$DVC&I)                                              NTR00370
         DC    2F'0'                                                    NTR00380
         DC    XL4'80008000'                                            NTR00390
         DC    F'0'                                                     NTR00400
         DC    H'&NT$BKSI'                                              NTR00410
         DC    XL2'0004'                                                NTR00420
                                                               SPACE 2  NTR00430
         ENDO                                                           NTR00440
NT$MCTDV DC    X'0F20'                                                  NTR00450
         DC    H'&NT$BKSO'                                              NTR00460
         DC    F'0'                                                     NTR00470
         EXTRN NT$MCINP,NT$MCOUT                                        NTR00480
         DC    A(NT$MCINP)                                              NTR00490
         DC    2F'0'                                                    NTR00500
         DC    A(NT$MCOUT)                                              NTR00510
         DC    F'0'                                                     NTR00520
         DC    H'&NT$BKSI'                                              NTR00522
         DC    H'0'                                                     NTR00524
                                                               SPACE 3  NTR00530
NT$MCTQU QUE   BLKSIZE=&NT$BKSO,DEVICE=15,ENTRY=NT$OPRNT,              1NTR00540
               EOFADDR=NT$OPRNT,TYPEFLE=OUTPUT,LFD=NT$LFD               NTR00550
NT$LFD   EQU   0
                                                               SPACE 3  NTR00560
         LTORG                                                          NTR00570
NT$POOLS CSECT                                                          NTR00580
         DS    XL((6*0&NT$BKSI)+(2*0&NT$BKSO)+0&NT$POOL)                NTR00590
         END                                                            NTR00600
