         PROC  &P,0                                                     00000000
XTL#EQUS NAME  X    . 9700 ICAM CONVERSION EQUATES                      00000100
TL#EQUS  NAME  0                                                        00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &TU#DQLP            . EQUATE LOOP CONTROL                00001100
.* .                                                                    00001200
         DO    '&TU#DQLP'='1'=0                                         00001300
&TU#DQLP SET   1                                                        00001400
*                                                                       00001500
*        FOLLOWING USED IN CALLING TABLE FLAG BYTE                      00001600
*                                                                       00001700
TL#DPASS EQU   X'20'               . PASSWORD SPECIFIED                 00001800
TL#DLREQ EQU   X'80'               . OPEN ALL LINES                     00001900
TL#DHPRI EQU   X'00'               . HIGH PRIORITY REQUEST              00002000
TL#DLPRI EQU   X'03'               . LOW PRIORITY REQUEST               00002100
*                                                                       00002200
*        FOLLOWING EQUATES DEFINE THE FIRST BYTE OF OVERLAY INDICATOR   00002300
*                                                                       00002400
TL#DOVL1 EQU   X'C1'                                                    00002500
TL#DOVL2 EQU   X'C5'                                                    00002600
TL#DOVL3 EQU   X'C6'                                                    00002700
TL#DOVL4 EQU   X'C7'                                                    00002800
TL#DOVL5 EQU   X'C8'                                                    00002900
*                                                                       00003000
*        FOLLOWING SET OVERLAY LOAD NUMBER                              00003100
*                                                                       00003200
TL#DNTRQ EQU   X'02'               . NETWORK REQUEST                    00003300
TL#DNTRL EQU   X'04'               . NETWORK RELEASE                    00003400
TL#DLNRQ EQU   X'05'               . LINE REQUEST                       00003500
TL#DLNRL EQU   X'06'               . LINE RELEASE                       00003600
TL#DTMPY EQU   X'07'               . TERMINAL COPY                      00003700
TL#DTMRP EQU   X'02'                    . TERMINAL REPLACE              00003800
TL#DPLPY EQU   X'09'               . POLL COPY                          00003900
TL#DPLRP EQU   X'00'               . POLL REPLACE                       00004000
TL#DQHLD EQU   X'01'                    . QUEUE HOLD                    00004100
TL#DQREL EQU   X'01'                    . QUEUE RELEASE                 00004200
TL#DQDPH EQU   X'01'                    . QUEUE DEPTH                   00004300
TL#DCCPY EQU   X'01'                    . CCA COPY                      00004400
TL#DRELM EQU   X'01'                    . RELEASE MSGS FROM INTRCPT     00004500
TL#DQCLR EQU   X'01'                    . QCLEAR                        00004501
TL#DQTRN EQU   X'02'                    . QTRANS
TL#DPCPY EQU   X'03'                    . POLCPY
TL#DPREP EQU   X'04'                    . POLREP
TL#DTCPY EQU   X'05'                    . TRMCPY
TL#DTREP EQU   X'05'                    . TRMREP
         ENDO                                                           00004600
         END                                                            00004700
