&DL      PROC  &P,3                                                     00000000
XROUTE   NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
ROUTE    NAME  0    . MPPS ROUTE 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   &XZ                                                      00001100
.* .                                                                    00001200
         DO    ''='&XZ'                                                 00001300
&XZ      SET   1                                                        00001400
         ENDO                                                           00001500
&XZ      SET   &XZ+1                                                    00001600
         DO    ''='&P(1)'                                               00001700
         PNOTE 'TK036','END OF SCAN CHARACTER NOT SPECIFIED'            00001800
         GOTO  .A                                                       00001900
         ENDO                                                           00002000
         DO    ''='&P(2)'                                               00002100
         GOTO  .CC                                                      00002200
         ENDO                                                           00002300
         DO    (&P(2)<1)++(&P(2)>4)                                     00002400
         PNOTE 'TK037','PARAMETER 2 IS INCORRECT'                       00002500
         GOTO  .A                                                       00002600
         ENDO                                                           00002700
.CC      LABEL                                                          00002800
         DO    1-(''='&DL')                                             00002900
&DL      EQU   *                                                        00003000
         ENDO                                                           00003100
TK#LZB&XZ EQU  *                                                        00003200
         DC    Y(TK#LRTE-TK#LMPPS)    . ROUTE FUNCTION CODE             00003300
         DC    Y(TK#LZE&XZ-TK#LZB&XZ)                                   00003400
         DO    ''='&P(2)'                                               00003500
         DC    H'0'                                                     00003600
         ENDO                                                           00003700
         DO    1-(''='&P(2)')                                           00003800
         DC    Y(&P(2))                                                 00003900
         ENDO                                                           00004000
         DO    1-(('&P(3)'='L')++('&P(3)'='M')++('&P(3)'='H'))          00004100
*                                                                       00004200
***  NOTE  ***  LOW PRIORITY QUEUE ASSUMED. POSITIONAL PARAMETER 3 NOT  00004300
*               'H' OR 'M' OR 'L'.                                      00004400
*                                                                       00004500
         ENDO                                                           00004600
         DO    '&P(3)'='H'                                              00004700
         DC    YL1(TN#THIGH-TN#TNAME) . Q PRIORITY - HIGH               00004800
         GOTO  .BB                                                      00004900
         ENDO                                                           00005000
         DO    '&P(3)'='M'                                              00005100
         DC    YL1(TN#TMED-TN#TNAME) . Q PRIORITY - MED                 00005200
         GOTO  .BB                                                      00005300
         ENDO                                                           00005400
         DC    YL1(TN#TLOW-TN#TNAME) . Q PRIORITY - LOW                 00005500
.BB      LABEL                                                          00005600
         DC    CL1'&P(1)'          . END OF SCAN CHAR FOR ROUTE         00005700
TK#LZE&XZ EQU  *                                                        00005800
.A       LABEL                                                          00005900
         END                                                            00006000
