&DL      PROC  &P,0                                                     00000000
XDMPPS   NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
TK#DMPPS NAME  0    . DSECT FOR MPSTART 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#GBLD                                                 00001100
.* .                                                                    00001200
         DO    1-('&TN#GBLD'='1')                                       00001300
         EJECT                                                          00001400
&TN#GBLD SET   1                                                        00001500
* * * * * * * M P S T A R T   T A B L E - - - - T K # D M P P S         00001600
TK#DMPPS DSECT                                                          00001700
TK#DRS   DS    A                        RECEIVE SEGMENT                 00001800
TK#DRH   DS    A                        RECEIVE HEADER                  00001900
TK#DRE   DS    A                        RECEIVE END                     00002000
TK#DRP   DS    A                        RECEIVE POST                    00002100
TK#DSS   DS    A                        SEND SEGMENT                    00002200
TK#DSH   DS    A                        SEND HEADER                     00002300
TK#DSE   DS    A                        SEND END                        00002400
TK#DSP   DS    A                        SEND POST                       00002500
*                                                                       00002600
&SYSECT  CSECT                                                          00002700
         ENDO                                                           00002800
         END                                                            00002900
