&DL      PROC  &P,4                                                     00000000
XDIRECT  NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
DIRECT   NAME  0    . MPPS DIRECT 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   &XQ                                                      00001100
.* .                                                                    00001200
         DO    ''='&XQ'                                                 00001300
&XQ      SET   0                                                        00001400
         ENDO                                                           00001500
&XQ      SET   &XQ+1                                                    00001600
         DO    ''='&P(1)'                                               00001700
         PNOTE 'TK005','PARAMETER 1 IS MISSING'                         00001800
         GOTO  .A                                                       00001900
         ENDO                                                           00002000
         DO    1-(('&P(1)'='T')++('&P(1)'='P')++('&P(1)'='D')++('&P(1)'$00002100
               ='ALTD')++('&P(1)'='SOURCE'))                            00002200
         PNOTE 'TK006','PARAMETER 1 IS INCORRECT'                       00002300
         GOTO  .A                                                       00002400
         ENDO                                                           00002500
         DO    (''='&P(2)')**(('&P(1)'='T')++('&P(1)'='P')++('&P(1)'='D$00002600
               '))                                                      00002700
         PNOTE 'TK007','PARAMETER 2 IS MISSING'                         00002800
         GOTO  .A                                                       00002900
         ENDO                                                           00003000
         DO    ('&P(4)'='FSEL')**(1-('&P(1)'='T'))                      00003100
         PNOTE 'TK008','FSEL SPECIFIED FOR OTHER THAN TERMINAL'         00003200
         GOTO  .A                                                       00003300
         ENDO                                                           00003400
         DO    1-(''='&DL')                                             00003500
&DL      EQU   *                                                        00003600
         ENDO                                                           00003700
TK#LQB&XQ EQU  *                                                        00003800
         DC    Y(TK#LDIR-TK#LMPPS)    . DIRECT FUNCTION CODE            00003900
         DC    Y(TK#LQE&XQ-TK#LQB&XQ) . LENGTH                          00004000
         DO    '&P(1)'='ALTD'                                           00004100
         DC    CL1'A'                  . ALTD DESTINATION               00004200
         DC    XL1'00'                 . NO FAST SELECT                 00004300
         GOTO  .B                                                       00004400
         ENDO                                                           00004500
         DO    '&P(1)'='SOURCE'                                         00004600
         DC    CL1'S'                                                   00004700
         DC    XL1'00'                                                  00004800
         GOTO  .B                                                       00004900
         ENDO                                                           00005000
         DC    CL1'&P(1)'              . TYPE OF DESTINATION            00005100
         DO    ('&P(1)'='T')**('&P(4)'='FSEL')                          00005200
         DC    CL1'F'                  . FAST SELECT - TERMINAL ONLY    00005300
         GOTO  .B                                                       00005400
         ENDO                                                           00005500
         DC    XL1'00'                 . NO FAST SELECT                 00005600
.B       LABEL                                                          00005700
         DO    1-(('&P(3)'='H')++('&P(3)'='M')++('&P(3)'='L'))          00005800
*                                                                       00005900
***  NOTE  ***  LOW PRIORITY QUEUE ASSUMED. POSITIONAL PARAMETER 3 NOT  00006000
*               'H' OR 'M' OR 'L'.                                      00006100
*                                                                       00006200
         ENDO                                                           00006300
         DO    '&P(3)'='H'                                              00006400
         DC    YL1(TN#THIGH-TN#TNAME) . Q PRIORITY - HIGH               00006500
         GOTO  .C                                                       00006600
         ENDO                                                           00006700
         DO    '&P(3)'='M'                                              00006800
         DC    YL1(TN#TMED-TN#TNAME) . Q PRIORITY - MED                 00006900
         GOTO  .C                                                       00007000
         ENDO                                                           00007100
         DC    YL1(TN#TLOW-TN#TNAME) . Q PRIORITY - LOW                 00007200
.C       LABEL                                                          00007300
         DC    XL1'00'                 . RESERVED                       00007400
         DO    1-(('ALTD'='&P(1)')++('SOURCE'='&P(1)'))                 00007500
         DC    CL4'&P(2)'             . DESTINATION                     00007600
         ENDO                                                           00007700
TK#LQE&XQ EQU  *                                                        00007800
.A       LABEL                                                          00007900
         END                                                            00008000
