&DL      PROC  &P,3                                                     00000000
XMSGTYP  NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
MSGTYP   NAME  0    . MPPS MESSAGE TYPE FUNCTION (PACKET)               00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &XM                                                      00001100
.* .                                                                    00001200
         DO    ''='&XM'                                                 00001300
&XM      SET   0                                                        00001400
         ENDO                                                           00001500
&XM      SET &XM+1                                                      00001600
         DO    (''='&P(1)')**(''='&P(2)')**(''='&P(3)')                 00001700
         GOTO  .B                                                       00001800
         ENDO                                                           00001900
         DO    (''='&P(1)')++(''='&P(2)')++(''='&P(3)')                 00002000
         PNOTE 'TK018','PARAMETER(S) MISSING'                           00002100
         GOTO  .A                                                       00002200
         ENDO                                                           00002300
         DO    (&P(1)<1)++(&P(1)>8)                                     00002400
         PNOTE 'TK019','NUMBER OF CHARS IN MESSAGE TYPE IS INCORRECT'   00002500
         GOTO  .A                                                       00002600
         ENDO                                                           00002700
.B       LABEL                                                          00002800
         DO    1-(''='&DL')                                             00002900
&DL      EQU   *                                                        00003000
         ENDO                                                           00003100
TK#LMB&XM EQU  *                                                        00003200
         DC    Y(TK#LMTP-TK#LMPPS)    . MSGTYP FUNCTION CODE            00003300
         DC    Y(TK#LME&XM-TK#LMB&XM)  . LENGTH                         00003400
         DO    ''='&P(1)'                                               00003500
         DC    4F'0'                   . NO PARAMETERS                  00003600
         ENDO                                                           00003700
         DO    1-(''='&P(1)')                                           00003800
         DC    Y(&P(1))                . # CHARS IN CHAR STRING         00003900
         DC    H'0'                    . RESERVED                       00004000
         DC    CL8'&P(2)'              . CHAR STRING                    00004100
         DC    A(&P(3))                . NO MATCH - TRANSFER ADDR       00004200
         ENDO                                                           00004300
TK#LME&XM EQU  *                                                        00004400
.A       LABEL                                                          00004500
         END                                                            00004600
