&DL      PROC  &P,1                                                     00000000
XSOURCE  NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
SOURCE   NAME  0    . MPPS SOURCE TERMINAL 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   &XS                                                      00001100
.* .                                                                    00001200
         DO    ''='&XS'                                                 00001300
&XS      SET   0                                                        00001400
         ENDO                                                           00001500
&XS      SET   &XS+1                                                    00001600
         DO    ''='&P(1)'                                               00001700
         GOTO  .B                                                       00001800
         ENDO                                                           00001900
         DO    (&P(1)<1)++(&P(1)>4)                                     00002000
         PNOTE 'TK041','NUMBER OF CHARS SPECIFIED IS INCORRECT'         00002100
         GOTO  .A                                                       00002200
         ENDO                                                           00002300
.B       LABEL                                                          00002400
         DO    1-(''='&DL')                                             00002500
&DL      EQU   *                                                        00002600
         ENDO                                                           00002700
TK#LSB&XS EQU  *                                                        00002800
         DC    Y(TK#LSOR-TK#LMPPS)    . SOURCE FUNCTION CODE            00002900
         DC    Y(TK#LSE&XS-TK#LSB&XS)  . LENGTH                         00003000
         DO    ''='&P(1)'                                               00003100
         DC    H'0'                    . VARIABLE LENGTH SOURCE FIELD   00003200
         ENDO                                                           00003300
         DO    1-(''='&P(1)')                                           00003400
         DC    Y(&P(1))                . # CHARS IN SOURCE ID FIELD     00003500
         ENDO                                                           00003600
         DC    H'0'                    . RESERVED                       00003700
TK#LSE&XS EQU  *                                                        00003800
.A       LABEL                                                          00003900
         END                                                            00004000
