&DL      PROC  &P,3                                                     00000000
XREROI   NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
REROUTI  NAME  0    . MPPS REROUTE INPUT MESSAGE (PACKET)               00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &XU                                                      00001100
.* .                                                                    00001200
         DO    ''='&XU'                                                 00001300
&XU      SET   0                                                        00001400
         ENDO                                                           00001500
&XU      SET   &XU+1                                                    00001600
         DO    ''='&P(1)'                                               00001700
         PNOTE 'TK031','REROUTI MASK NOT SPECIFIED'                     00001800
         GOTO  .A                                                       00001900
         ENDO                                                           00002000
         DO    ''='&P(2)'                                               00002100
         PNOTE 'TK032','REROUTI DESTINATION NOT SPECIFIED'              00002200
         GOTO  .A                                                       00002300
         ENDO                                                           00002400
         DO    1-(('&P(3)'='H')++('&P(3)'='M')++('&P(3)'='L'))          00002500
*                                                                       00002600
***  NOTE  ***  LOW PRIORITY QUEUE ASSUMED. POSITIONAL PARAMETER 3 NOT  00002700
*               'H' OR 'M' OR 'L'.                                      00002800
*                                                                       00002900
         ENDO                                                           00003000
         DO    1-(''='&DL')                                             00003100
&DL      EQU   *                                                        00003200
         ENDO                                                           00003300
TK#LUB&XU EQU  *                                                        00003400
         DC    Y(TK#LRRI-TK#LMPPS)    . REROUTI FUNCTION CODE           00003500
         DC    Y(TK#LUE&XU-TK#LUB&XU)  . LENGTH                         00003600
         DC    AL2(&P(1))          . ERROR MASK                         00003700
         DC    Y(0)                . RESERVED                           00003800
         DC    A(TK#LUP&XU)            . ADDR DIRECT PACKET             00003900
TK#LUP&XU EQU  *                                                        00004000
         DO    '&P(2)'='SOURCE'                                         00004100
         DIRECT SOURCE,,&P(3)                                           00004200
         GOTO  .B                                                       00004300
         ENDO                                                           00004400
         DO    '&P(2)'='ALTD'                                           00004500
         DIRECT ALTD,,&P(3)                                             00004600
         GOTO  .B                                                       00004700
         ENDO                                                           00004800
         DIRECT T,&P(2),&P(3)                                           00004900
.B       LABEL                                                          00005000
TK#LUE&XU EQU  *                                                        00005100
.A       LABEL                                                          00005200
         END                                                            00005300
