&DL      PROC  &P,1                                                     00000000
XMSGLMT  NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
MSGLMT   NAME  0    . MPPS MESSAGE LIMIT (PACKET)                       00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &XP                                                      00001100
.* .                                                                    00001200
         DO    ''='&XP'                                                 00001300
&XP      SET   0                                                        00001400
         ENDO                                                           00001500
&XP      SET   &XP+1                                                    00001600
         DO    (1-(''='&P(1)'))**(&P(1)<1)                              00001700
         PNOTE 'TK017','MESSAGE LIMIT PARAMETER IS INCORRECT'           00001800
         GOTO  .A                                                       00001900
         ENDO                                                           00002000
         DO    1-(''='&DL')                                             00002100
&DL      EQU   *                                                        00002200
         ENDO                                                           00002300
TK#LPB&XP EQU  *                                                        00002400
         DC    Y(TK#LMLT-TK#LMPPS)    . MSGLMT FUNCTION CODE            00002500
         DC    Y(TK#LPE&XP-TK#LPB&XP)  . LENGTH                         00002600
         DO    ''='&P(1)'                                               00002700
         DC    H'0'                    . VARIABLE MESSAGE LIMIT         00002800
         ENDO                                                           00002900
         DO   1-(''='&P(1)')                                            00003000
         DC    Y(&P(1))                . MESSAGE LIMIT                  00003100
         ENDO                                                           00003200
         DC    H'0'                    . RESERVED                       00003300
TK#LPE&XP EQU  *                                                        00003400
.A       LABEL                                                          00003500
         END                                                            00003600
