         PROC  &P,0                                                     IO$00010
IO$QLST  NAME                                                           IO$00020
         GBL   &IQ$IDA                                                  IO$00030
         GBL   &IQ$IPC0,&IQ$IPC1,&IQ$IPC2,&IQ$IPC3,&IQ$IPC4,&IQ$IPC5    IO$00040
         GBL   &IQ$IPC6,&IQ$IPC7                                        IO$00050
         GBL   &IQ$MUX0,&IQ$MUX1,&IQ$MUX2,&IQ$MUX3,&IQ$MUX4,&IQ$MUX5    IO$00060
         GBL   &IQ$MUX6,&IQ$MUX7                                        IO$00070
         GBL   &IQ$ADP0,&IQ$ADP1,&IQ$ADP2,&IQ$ADP3,&IQ$ADP4,&IQ$ADP5    IO$00075
         GBL   &IQ$ADP6,&IQ$ADP7
         GBL   &IQ$SEL1,&IQ$SEL2                                        IO$00080
         GBL   &GS$SLOTS                                                IO$00090
         GBL   &GS$MIN                                                  IO$00100
         LCL   &IQ$KEYS                                                 IO$00110
         ENTRY IO$QLO                                                   IO$00120
         ENTRY IO$QHI                                                   IO$00130
         GBL   &GS$SLTS                                                 IO$00140
&IQ$KEYS SET   &GS$SLTS+1                                               IO$00150
IO$QLO   EQU   *                                                        IO$00160
         DO    '&IQ$IDA'>'0'                                            IO$00170
         ENTRY IT$IDA                                                   IO$00180
IT$IDA   EQU   *                                                        IO$00190
         DO    &IQ$KEYS*&IQ$IDA                                         IO$00200
         DC    XL4'0'                                                   IO$00210
         ENDO                                                           IO$00220
         DO    '&GS$MIN'='0'                                            IO$00230
         DC    A(IT$IDA)                                                IO$00240
         ENDO                                                           IO$00250
         ENDO                                                           IO$00260
         DO    '&IQ$IPC0'>'0'                                           IO$00270
         ENTRY IT$IPC0                                                  IO$00280
IT$IPC0  EQU   *                                                        IO$00290
         DO    &IQ$KEYS*&IQ$IPC0                                        IO$00300
         DC    XL4'0'                                                   IO$00310
         ENDO                                                           IO$00320
         DO    '&GS$MIN'='0'                                            IO$00330
         DC    A(IT$IPC0)                                               IO$00340
         ENDO                                                           IO$00350
         ENDO                                                           IO$00360
         DO    '&IQ$IPC1'>'0'                                           IO$00370
         ENTRY IT$IPC1                                                  IO$00380
IT$IPC1  EQU   *                                                        IO$00390
         DO    &IQ$KEYS*&IQ$IPC1                                        IO$00400
         DC    XL4'0'                                                   IO$00410
         ENDO                                                           IO$00420
         DO    '&GS$MIN'='0'                                            IO$00430
         DC    A(IT$IPC1)                                               IO$00440
         ENDO                                                           IO$00450
         ENDO                                                           IO$00460
         DO    '&IQ$IPC2'>'0'                                           IO$00470
         ENTRY IT$IPC2                                                  IO$00480
IT$IPC2  EQU   *                                                        IO$00490
         DO    &IQ$KEYS*&IQ$IPC2                                        IO$00500
         DC    XL4'0'                                                   IO$00510
         ENDO                                                           IO$00520
         DO    '&GS$MIN'='0'                                            IO$00530
         DC    A(IT$IPC2)                                               IO$00540
         ENDO                                                           IO$00550
         ENDO                                                           IO$00560
         DO    '&IQ$IPC3'>'0'                                           IO$00570
         ENTRY IT$IPC3                                                  IO$00580
IT$IPC3  EQU   *                                                        IO$00590
         DO    &IQ$KEYS*&IQ$IPC3                                        IO$00600
         DC    XL4'0'                                                   IO$00610
         ENDO                                                           IO$00620
         DO    '&GS$MIN'='0'                                            IO$00630
         DC    A(IT$IPC3)                                               IO$00640
         ENDO                                                           IO$00650
         ENDO                                                           IO$00660
         DO    '&IQ$IPC4'>'0'                                           IO$00670
         ENTRY IT$IPC4                                                  IO$00680
IT$IPC4  EQU   *                                                        IO$00690
         DO    &IQ$KEYS*&IQ$IPC4                                        IO$00700
         DC    XL4'0'                                                   IO$00710
         ENDO                                                           IO$00720
         DO    '&GS$MIN'='0'                                            IO$00730
         DC    A(IT$IPC4)                                               IO$00740
         ENDO                                                           IO$00750
         ENDO                                                           IO$00760
         DO    '&IQ$IPC5'>'0'                                           IO$00770
         ENTRY IT$IPC5                                                  IO$00780
IT$IPC5  EQU   *                                                        IO$00790
         DO    &IQ$KEYS*&IQ$IPC5                                        IO$00800
         DC    XL4'0'                                                   IO$00810
         ENDO                                                           IO$00820
         DO    '&GS$MIN'='0'                                            IO$00830
         DC    A(IT$IPC5)                                               IO$00840
         ENDO                                                           IO$00850
         ENDO                                                           IO$00860
         DO    '&IQ$IPC6'>'0'                                           IO$00870
         ENTRY IT$IPC6                                                  IO$00880
IT$IPC6  EQU   *                                                        IO$00890
         DO    &IQ$KEYS*&IQ$IPC6                                        IO$00900
         DC    XL4'0'                                                   IO$00910
         ENDO                                                           IO$00920
         DO    '&GS$MIN'='0'                                            IO$00930
         DC    A(IT$IPC6)                                               IO$00940
         ENDO                                                           IO$00950
         ENDO                                                           IO$00960
         DO    '&IQ$IPC7'>'0'                                           IO$00970
         ENTRY IT$IPC7                                                  IO$00980
IT$IPC7  EQU   *                                                        IO$00990
         DO    &IQ$KEYS*&IQ$IPC7                                        IO$01000
         DC    XL4'0'                                                   IO$01010
         ENDO                                                           IO$01020
         DO    '&GS$MIN'='0'                                            IO$01030
         DC    A(IT$IPC7)                                               IO$01040
         ENDO                                                           IO$01050
         ENDO                                                           IO$01060
         DO    '&IQ$MUX0'>'0'                                           IO$01070
         ENTRY IT$MUX0                                                  IO$01080
IT$MUX0  EQU   *                                                        IO$01090
         DO    &IQ$KEYS*&IQ$MUX0                                        IO$01100
         DC    XL4'0'                                                   IO$01110
         ENDO                                                           IO$01120
         DO    '&GS$MIN'='0'                                            IO$01130
         DC    A(IT$MUX0)                                               IO$01140
         ENDO                                                           IO$01150
         ENDO -                                                         IO$01160
         DO    '&IQ$MUX1'>'0'                                           IO$01170
         ENTRY IT$MUX1                                                  IO$01180
IT$MUX1  EQU   *                                                        IO$01190
         DO    &IQ$KEYS*&IQ$MUX1                                        IO$01200
         DC    XL4'0'                                                   IO$01210
         ENDO                                                           IO$01220
         DO    '&GS$MIN'='0'                                            IO$01230
         DC    A(IT$MUX1)                                               IO$01240
         ENDO                                                           IO$01250
         ENDO                                                           IO$01260
         DO    '&IQ$MUX2'>'0'                                           IO$01270
         ENTRY IT$MUX2                                                  IO$01280
IT$MUX2  EQU   *                                                        IO$01290
         DO    &IQ$KEYS*&IQ$MUX2                                        IO$01300
         DC    XL4'0'                                                   IO$01310
         ENDO                                                           IO$01320
         DO    '&GS$MIN'='0'                                            IO$01330
         DC    A(IT$MUX2)                                               IO$01340
         ENDO                                                           IO$01350
         ENDO                                                           IO$01360
         DO    '&IQ$MUX3'>'0'                                           IO$01370
         ENTRY IT$MUX3                                                  IO$01380
IT$MUX3  EQU   *                                                        IO$01390
         DO    &IQ$KEYS*&IQ$MUX3                                        IO$01400
         DC    XL4'0'                                                   IO$01410
         ENDO                                                           IO$01420
         DO    '&GS$MIN'='0'                                            IO$01430
         DC    A(IT$MUX3)                                               IO$01440
         ENDO                                                           IO$01450
         ENDO                                                           IO$01460
         DO    '&IQ$MUX4'>'0'                                           IO$01470
         ENTRY IT$MUX4                                                  IO$01480
IT$MUX4  EQU   *                                                        IO$01490
         DO    &IQ$KEYS*&IQ$MUX4                                        IO$01500
         DC    XL4'0'                                                   IO$01510
         ENDO                                                           IO$01520
         DO    '&GS$MIN'='0'                                            IO$01530
         DC    A(IT$MUX4)                                               IO$01540
         ENDO                                                           IO$01550
         ENDO                                                           IO$01560
         DO    '&IQ$MUX5'>'0'                                           IO$01570
         ENTRY IT$MUX5                                                  IO$01580
IT$MUX5  EQU   *                                                        IO$01590
         DO    &IQ$KEYS*&IQ$MUX5                                        IO$01600
         DC    XL4'0'                                                   IO$01610
         ENDO                                                           IO$01620
         DO    '&GS$MIN'='0'                                            IO$01630
         DC    A(IT$MUX5)                                               IO$01640
         ENDO                                                           IO$01650
         ENDO                                                           IO$01660
         DO    '&IQ$MUX6'>'0'                                           IO$01670
         ENTRY IT$MUX6                                                  IO$01680
IT$MUX6  EQU   *                                                        IO$01690
         DO    &IQ$KEYS*&IQ$MUX6                                        IO$01700
         DC    XL4'0'                                                   IO$01710
         ENDO                                                           IO$01720
         DO    '&GS$MIN'='0'                                            IO$01730
         DC    A(IT$MUX6)                                               IO$01740
         ENDO                                                           IO$01750
         ENDO                                                           IO$01760
         DO    '&IQ$MUX7'>'0'                                           IO$01770
         ENTRY IT$MUX7                                                  IO$01780
IT$MUX7  EQU   *                                                        IO$01790
         DO    &IQ$KEYS*&IQ$MUX7                                        IO$01800
         DC    XL4'0'                                                   IO$01810
         ENDO                                                           IO$01820
         DO    '&GS$MIN'='0'                                            IO$01830
         DC    A(IT$MUX7)                                               IO$01840
         ENDO                                                           IO$01850
         ENDO                                                           IO$01860
         DO    '&IQ$ADP0'>'0'                                           IO$01865
 ENTRY   IT$MUX01
 ENTRY   IT$MUX02
 ENTRY   IT$MUX03
IT$MUX01 EQU   *
         DO    &IQ$KEYS*&IQ$ADP0
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX01)
         ENDO
IT$MUX02 EQU   *
         DO    &IQ$KEYS*&IQ$ADP0
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX02)
         ENDO
IT$MUX03 EQU   *
         DO    &IQ$KEYS*&IQ$ADP0
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX03)
         ENDO
         ENDO
         DO    '&IQ$ADP1'>'0'
 ENTRY   IT$MUX11
 ENTRY   IT$MUX12
 ENTRY   IT$MUX13
IT$MUX11 EQU   *
         DO    &IQ$KEYS*&IQ$ADP1
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX11)
         ENDO
IT$MUX12 EQU   *
         DO    &IQ$KEYS*&IQ$ADP1
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX12)
         ENDO
IT$MUX13 EQU   *
         DO    &IQ$KEYS*&IQ$ADP1
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX13)
         ENDO
         ENDO
         DO    '&IQ$ADP2'>'0'
 ENTRY   IT$MUX21
 ENTRY   IT$MUX22
 ENTRY   IT$MUX23
IT$MUX21 EQU   *
         DO    &IQ$KEYS*&IQ$ADP2
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX21)
         ENDO
IT$MUX22 EQU   *
         DO    &IQ$KEYS*&IQ$ADP2
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX22)
         ENDO
IT$MUX23 EQU   *
         DO    &IQ$KEYS*&IQ$ADP2
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX23)
         ENDO
         ENDO
         DO    '&IQ$ADP3'>'0'
 ENTRY   IT$MUX31
 ENTRY   IT$MUX32
 ENTRY   IT$MUX33
IT$MUX31 EQU   *
         DO    &IQ$KEYS*&IQ$ADP3
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX31)
         ENDO
IT$MUX32 EQU   *
         DO    &IQ$KEYS*&IQ$ADP3
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX32)
         ENDO
IT$MUX33 EQU   *
         DO    &IQ$KEYS*&IQ$ADP3
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX33)
         ENDO
         ENDO
         DO    '&IQ$ADP4'>'0'
 ENTRY   IT$MUX41
 ENTRY   IT$MUX42
 ENTRY   IT$MUX43
IT$MUX41 EQU   *
         DO    &IQ$KEYS*&IQ$ADP4
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX41)
         ENDO
IT$MUX42 EQU   *
         DO    &IQ$KEYS*&IQ$ADP4
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX42)
         ENDO
IT$MUX43 EQU   *
         DO    &IQ$KEYS*&IQ$ADP4
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX43)
         ENDO
         ENDO
         DO    '&IQ$ADP5'>'0'
 ENTRY   IT$MUX51
 ENTRY   IT$MUX52
 ENTRY   IT$MUX53
IT$MUX51 EQU   *
         DO    &IQ$KEYS*&IQ$ADP5
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX51)
         ENDO
IT$MUX52 EQU   *
         DO    &IQ$KEYS*&IQ$ADP5
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX52)
         ENDO
IT$MUX53 EQU   *
         DO    &IQ$KEYS*&IQ$ADP5
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX53)
         ENDO
         ENDO
         DO    '&IQ$ADP6'>'0'
 ENTRY   IT$MUX61
 ENTRY   IT$MUX62
 ENTRY   IT$MUX63
IT$MUX61 EQU   *
         DO    &IQ$KEYS*&IQ$ADP6
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX61)
         ENDO
IT$MUX62 EQU   *
         DO    &IQ$KEYS*&IQ$ADP6
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX62)
         ENDO
IT$MUX63 EQU   *
         DO    &IQ$KEYS*&IQ$ADP6
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX63)
         ENDO
         ENDO
         DO    '&IQ$ADP7'>'0'
 ENTRY   IT$MUX71
 ENTRY   IT$MUX72
 ENTRY   IT$MUX73
IT$MUX71 EQU   *
         DO    &IQ$KEYS*&IQ$ADP7
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX71)
         ENDO
IT$MUX72 EQU   *
         DO    &IQ$KEYS*&IQ$ADP7
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX72)
         ENDO
IT$MUX73 EQU   *
         DO    &IQ$KEYS*&IQ$ADP7
         DC    XL4'0'
         ENDO
         DO    '&GS$MIN'='0'
         DC    A(IT$MUX73)
         ENDO
         ENDO
         DO    '&IQ$SEL1'>'0'                                           IO$01870
         ENTRY IT$SEL1                                                  IO$01880
IT$SEL1  EQU   *                                                        IO$01890
         DO    &IQ$KEYS*&IQ$SEL1                                        IO$01900
         DC    XL4'0'                                                   IO$01910
         ENDO                                                           IO$01920
         DO    '&GS$MIN'='0'                                            IO$01930
         DC    A(IT$SEL1)                                               IO$01940
         ENDO                                                           IO$01950
         ENDO                                                           IO$01960
         DO    '&IQ$SEL2'>'0'                                           IO$01970
         ENTRY IT$SEL2                                                  IO$01980
IT$SEL2  EQU   *                                                        IO$01990
         DO    &IQ$KEYS*&IQ$SEL2                                        IO$02000
         DC    XL4'0'                                                   IO$02010
         ENDO                                                           IO$02020
         DO    '&GS$MIN'='0'                                            IO$02030
         DC    A(IT$SEL2)                                               IO$02040
         ENDO                                                           IO$02050
         ENDO                                                           IO$02060
IO$QHI   EQU   *                                                        IO$02070
         END                                                            IO$02080
