&DL      PROC  &P,0                                                     00000000
XLMPPS   NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
TK#LMPPS NAME  0    . DSECT FOR MPPS TABLE                              00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &TN#GBLC                                                 00001100
.* .                                                                    00001200
         DO    1-('&TN#GBLC'='1')                                       00001300
         EJECT                                                          00001400
&TN#GBLC SET   1                                                        00001500
TK#LMPPS DSECT                                                          00001600
TK#LRS   DS    A                       RECEIVE SEGMENT                  00001700
TK#LRH   DS    A                       RECEIVE HEADER                   00001800
TK#LRE   DS    A                       RECEIVE END                      00001900
TK#LRP   DS    A                       RECEIVE POST                     00002000
TK#LSS   DS    A                       SEND SEGMENT                     00002100
TK#LSH   DS    A                       SEND HEADER                      00002200
TK#LSE   DS    A                       SEND END                         00002300
TK#LSP   DS    A                       SEND POST                        00002400
TK#LDIR  DS    A                       DIRECT                           00002500
TK#LRRO  DS    A                       REROUTE OUTPUT                   00002600
TK#LRTR  DS    A                       RETRANSMIT                       00002700
TK#LADV  DS    A                       ADVANCE                          00002800
TK#LSOR  DS    A                       SOURCE                           00002900
TK#LSQI  DS    A                       SEQUENCE IN                      00003000
TK#LSQO  DS    A                       SEQUENCE OUT                     00003100
TK#LMLT  DS    A                       MESSAGE LIMIT                    00003200
TK#LMTP  DS    A                       MESSAGE TYPE                     00003300
TK#LBR   DS    A                       BRANCH                           00003400
TK#LDAT  DS    A                       DATE STAMP                       00003500
TK#LTIM  DS    A                       TIME STAMP                       00003600
TK#LRTE  DS    A                       ROUTE                            00003700
TK#LFSR  DS    A                       IF SOURCE                        00003800
TK#LTRF  DS    A                       TRANSFER                         00003900
TK#LRRI  DS    A                       REROUTE INPUT                    00004000
TK#LCAN  DS    A                       CANCEL MESSAGE                   00004100
TK#LICT  DS    A                       INTERCEPT MESSAGE                00004200
TK#LREL  DS    A                       RELEASE INTERCEPTED QUEUE        00004300
TK#LERR  DS    A                       ERROR MESSAGE                    00004400
TK#LLOG  DS    A                       LOG                              00004500
TK#LJR   DS    A                       JOURNAL                          00004600
* * * *                                                                 00004700
&SYSECT  CSECT                                                          00004800
         ENDO                                                           00004900
         END                                                            00005000
