         PROC                                                           NT$00010
NT$EQU   NAME                                                           NT$00020
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * NT$00030
*                                                                       NT$00040
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY UNIVAC       NT$00050
*                                                                       NT$00060
*   CONTAINING ITS  PROPRIETARY, CONFIDENTIAL INFORMATION               NT$00070
*                                                                       NT$00080
*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  NT$00090
         SPACE 5                                                        NT$00100
         PRINT OFF                                                      NT$00110
         TN#DSECT MCT                                                   NT$00120
         PRINT ON                                                       NT$00130
ST$DTF   DSECT                                                          NT$00140
         VTOC  SAT=*                                                    NT$00150
ST$DPCA  DSECT                                                          NT$00160
         VTOC  PCA=*                                                    NT$00170
NT$MESAG DSECT                                                          NT$00180
NT$SOH   DS    X                        START OF HEADER                 NT$00190
NT$MSGNM DS    X                        MESSAGE NUMBER  HANDLER FILLSIN NT$00200
NT$ACKNM DS    X                        ACKNOWLEDGE NUMBER              NT$00210
NT$MSGTP DS    X                        MESSAGE TYPE                    NT$00220
NT$DVCNM DS    X                        DEVICE NUMBER                   NT$00230
NT$DETAL DS    X                        DETAIL BYTE                     NT$00240
NT$ETX   DS    X                        END OF TEXT                     NT$00250
*                                                                       NT$00260
NT$DEVTB DSECT                                                          NT$00270
NT$DVC   DS    X                        DEVIC NUMBER                    NT$00280
NT$FLGDV DS    X                                                        NT$00290
NT$BLKSZ DS    XL2                      WORK BUFFER BLOCKSIZE           NT$00300
NT$WKBUF DS    F                        ADDRESS OF WORK BUFFER          NT$00310
NT$QUEAD DS    F                        ADDRESS OF QUEUE ENTRY          NT$00320
NT$QUEHD DS    F                        ADDRESS OF FIRST BUFFER IN QUE  NT$00330
NT$QUETL DS    F                        ADDRESS OF LAST  BUFFER IN QUE  NT$00340
NT$ECBAD DS    2F                      ECB                              NT$00350
NT$BLKIN DS    H                       INPUT BLKSIZE                    NT$00360
NT$FLGD1 DS    X                       FLAGS                            NT$00380
NT$FLG02 EQU   NT$FLGD1                                                 NT$00390
NT$FUNCD DS    X                       TRANSLATION CODE                 NT$00400
*                                                                       NT$00410
NT$QUETB DSECT                                                          NT$00420
NT$DVCQ  DS    X                        DEVICE NUMBER                   NT$00430
NT$FLGQU DS    X                        FLAGS                           NT$00440
NT$BLKMX DS    XL2                      THE MAX IMAGE BLOCKSIZE         NT$00450
NT$INTAD DS    F                        ADDRESS FOR INITIAL ENTRY       NT$00460
NT$EOFAD DS    F                        ADDRESS FOR EOF ENTRY           NT$00470
NT$DTFAD DS    F                       DTF ADDRESS                      NT$00480
NT$FUNCQ DS    X                       FUNCTION CODE                    NT$00490
NT$DEST  DS    X                       DESTINATION DVC                  NT$00500
         DS    H                       RESERVED                         NT$00510
NT$COMPD DS    H                       COMPRESSION WORK AREA            NT$00520
NT$COMPL DS    H                       COMPRESSION WORK AREA            NT$00530
NT$BCNT  DS    H                       BLANK COUNT                      NT$00540
NT$CCNT  DS    H                       CHARACTER COUNT                  NT$00550
NT$QUE17 EQU   *                                                        NT$00555
*                                                                       NT$00560
NT$BUFHD DSECT                                                          NT$00570
NT$BUFLK DS    F                        FORWARD LINK TO NEXT BUFFER     NT$00580
NT$DVCBF DS    X                        DEVICE NUMBER                   NT$00590
NT$FLGBF DS    X                        FLAGS                           NT$00600
NT$BLKAC DS    XL2                      ACTUAL BUFFER SIZE ALLOCATED    NT$00610
NT$PARDS DS    XL2                      PARTIAL LENGTH FIELD            NT$00620
NT$COMUN DS    XL2                      COMMUNICATIONS BYTES            NT$00630
NT$BDATA EQU   *                        BEGINNING OF DATA AREA          NT$00640
*                                                                       NT$00650
&SYSECT  CSECT                                                          NT$00660
*              REGISTER EQUATES                                         NT$00670
R0       EQU   0                                                        NT$00680
R1       EQU   1                                                        NT$00690
R2       EQU   2                                                        NT$00700
R3       EQU   3                                                        NT$00710
R4       EQU   4                                                        NT$00720
R5       EQU   5                                                        NT$00730
R6       EQU   6                                                        NT$00740
R7       EQU   7                                                        NT$00750
R8       EQU   8                                                        NT$00760
R9       EQU   9                                                        NT$00770
R10      EQU   10                                                       NT$00780
R11      EQU   11                                                       NT$00790
R12      EQU   12                                                       NT$00800
R13      EQU   13                                                       NT$00810
R14      EQU   14                                                       NT$00820
R15      EQU   15                                                       NT$00830
BASE     EQU   15                                                       NT$00840
NT$SWTF0 EQU   X'F0'                                                    NT$00850
BL$NTR   EQU   2                                                        NT$00860
NT$SWT01 EQU   X'01'                    USED IN OPCOM FOR KEY-IN SWITCH NT$00870
NT$DVCLG EQU   X'5'                LENGTH OF DEVICE TABLE               NT$00880
*                                                                       NT$00890
*NT$FLGDV      DEVICE INTERFACE TABLE FLAG1                             NT$00900
NT$ACTIV EQU   X'80'                   THIS DEVICE IS ACTIVE            NT$00910
NT$INTDV EQU   X'40'                   INITIATE DEVICE IS OUTSTANDING   NT$00920
*NT$INPUT EQU  X'20'                   TABLE ENTRY USED FOR INPUT       NT$00930
NT$NEWCL EQU   X'10'                   OUTPUT MCPCALL REQUIRED          NT$00940
NT$NDBUF EQU   X'08'                   DEVICE YIELDED FOR BUFFER        NT$00950
NT$EOFLC EQU   X'04'                   DEVICE HAS RECEIVED EOF          NT$00960
NT$ASSGN EQU   X'02'                   DEVICE ASSIGNED                  NT$00970
NT$DSUSP EQU   X'01'                   SUSPEND DEVICE OR SITE           NT$00980
*                                                                       NT$00990
*NT$FLGD1      DEVICE INTERFACE TABLE FLAG 2                            NT$01000
NT$MCPIN EQU   X'80'                   INPUT MCPCALL REQUIRED           NT$01010
NT$TRMNW EQU   X'40'                    TERMINATE SITE NOW/ DEVICE TERM NT$01020
NT$TRMAC EQU   X'20'                    TERMINATE SITE WHEN ALLDEV INAC NT$01030
NT$NOINT EQU   X'10'                    ALLOW NO      INITIATE DEVICES  NT$01040
NT$NOMIN EQU   X'08'                    ALLOW NO MORE INITIATE DEVICES  NT$01050
NT$ABEOF EQU   X'04'                    ABNORMAL EOF                    NT$01060
NT$TERMD EQU   X'02'                   TERMINATE DEVICE OR SITE         NT$01070
NT$NOREQ EQU   X'01'                   REQUEST FOR OUTPUT NOT REQUIRED  NT$01080
*                                                                       NT$01090
*NT$FLGQU      QUE CONTROL BLOCK FLAG                                   NT$01100
*        EQU   X'80'                    ACCEPT SPOOL FILE NAME          NT$01110
*        EQU   X'40'                    FIRST ENQ?                      NT$01120
NT$INPUT EQU   X'20'                   LOCAL INPUT DEVICE               NT$01130
NT$QUESP EQU   X'10'                   QUE ENTRY SUSPENDED              NT$01140
*        EQU   X'08'                    SPLIT BC/CC                     NT$01150
*        EQU   X'04'                    LCB CARD PRESENT                NT$01160
*        EQU   X'02'                    VARIABLE LENGTH RECORDS         NT$01170
NT$QCTL  EQU   X'01'                   CNTRL BYTES TO BE PROCESSED      NT$01180
*                                                                       NT$01190
*NT$FLGBF      BUFFER HEADER FLAGES                                     NT$01200
*        EQU   X'80'                   UNASSIGNED                       NT$01210
*        EQU   X'40'                   UNASSIGNED                       NT$01220
*        EQU   X'20'                   UNASSIGNED                       NT$01230
NT$PARTL EQU   X'10'                   BUFFER PARTIALLY FULL            NT$01240
NT$BUFPR EQU   X'08'                   BUFFER BEING PROCESSED           NT$01250
NT$BALOC EQU   X'04'                   BUFFER IS ALLOCATED              NT$01260
NT$BFNTR EQU   X'02'                   BUFFER CONTROLED BY NTR          NT$01270
NT$SVMSG EQU   X'01'                   BUFFER USED FOR SERVICE MSG      NT$01280
*                                                                       NT$01290
*NT$FLAG       NTR COMMON FLAGS                                         NT$01295
*        EQU   X'80'                    IS DEVICE ACTIVE IN SYSTEM
*        EQU   X'40'                    EOF BUFFER REQUIRED
*        EQU   X'20'                    INPUT SCAN REQUIRED
*        EQU   X'10'
*        EQU   X'08'
*        EQU   X'04'
*        EQU   X'02'
*        EQU   X'01'                    RECIEVE ENTRY REQUIRED
NT$QUOTE EQU   X'7D'                   QUOTE FOR DISPLAY MESSAGE        NT$01300
NT$PLWT  EQU   X'40'                   SOME TASK YIELDED FOR BUFFER     NT$01310
         END                                                            NT$01320
