         PROC  &P,0                                                     IN$00010
IN$ST    NAME                                                           IN$00020
         GBL   &IQ$IDA                                                  IN$00030
         GBL   &IQ$IPC0,&IQ$IPC1,&IQ$IPC2,&IQ$IPC3                      IN$00040
         GBL   &IQ$IPC6,&IQ$IPC7,&IQ$IPC8,&IQ$IPC9                      IN$00050
         GBL   &IQ$MUX0,&IQ$MUX1,&IQ$MUX2,&IQ$MUX3,&IQ$MUX4,&IQ$MUX5    IN$00060
         GBL   &IQ$MUX6,&IQ$MUX7                                        IN$00070
         GBL   &IQ$SEL1,&IQ$SEL2                                        IN$00080
         GBL   &GS$CMLS                                                 IN$00090
         ENTRY IN$STLEN                                                 IN$00100
         ENTRY IN$STLO                                                  IN$00110
         ENTRY IN$STHI                                                  IN$00120
         CNOP  0,4                                                      IN$00130
IN$STLO  EQU   *                                                        IN$00140
         DO    &IQ$IPC0+&IQ$IPC1+&IQ$IPC2+&IQ$IPC3+&IQ$IDA              IN$00150
         DC    XL4'80000000'                      STATUS TBL ENTRY      IN$00160
         ENDO                                                           IN$00170
         DO    (&IQ$SEL1+&IQ$SEL2)*3                                    IN$00180
         DC    XL4'80000000'                      STATUS TBL ENTRY      IN$00190
         ENDO                                                           IN$00200
         DO    &IQ$MUX0+&IQ$MUX1+&IQ$MUX2+&IQ$MUX3                      IN$00210
         DC    XL4'80000000'                      STATUS TBL ENTRY      IN$00220
         ENDO                                                           IN$00230
         DO    &IQ$MUX4+&IQ$MUX5+&IQ$MUX6+&IQ$MUX7                      IN$00240
         DC    XL4'80000000'                      STATUS TBL ENTRY      IN$00250
         ENDO                                                           IN$00260
         DO    &GS$CMLS                                                 IN$00270
         DC    XL4'80000000'            3 WORDS PER                     IN$00280
         DC    XL4'80000000'                 COMMUNICATION              IN$00290
         DC    XL4'80000000'                      LINE                  IN$00300
         ENDO                                                           IN$00310
IN$STHI  EQU   *                                                        IN$00320
IN$STLEN EQU   (IN$STHI-IN$STLO)/4                                      IN$00330
         END                                                            IN$00340
