&DL      PROC  &P,2                                                     00000000
XIFSOURC NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
IFSOURCE NAME  0    . MPPS IF SOURCE (PACKET)                           00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &XIF                                                     00001100
.* .                                                                    00001200
         DO    ''='&XIF'                                                00001300
&XIF     SET   0                                                        00001400
         ENDO                                                           00001500
&XIF     SET   &XIF+1                                                   00001600
         DO    (''='&P(1)')++(''='&P(2)')                               00001700
         PNOTE 'TK043','PARAMETER 1 OR PARAMETER 2 OR BOTH ARE MISSING' 00001800
         GOTO  .A                                                       00001900
         ENDO                                                           00002000
         DO    1-(''='&DL')                                             00002100
&DL      EQU   *                                                        00002200
         ENDO                                                           00002300
TK#LFB&XIF  EQU  *                                                      00002400
         DC    Y(TK#LFSR-TK#LMPPS)      . IFSOURCE FUNCTION CODE        00002500
         DC    Y(TK#LFE&XIF-TK#LFB&XIF) . LENGTH                        00002600
         DC    CL4'&P(1)'               . SOURCE TERMINAL NAME          00002700
         DC    A(&P(2))                 . BRANCH TO ADDRESS             00002800
TK#LFE&XIF  EQU  *                                                      00002900
.A       LABEL                                                          00003000
         END                                                            00003100
