*COMDECK COMCGFL                                                         DECK2
 GFL      CTEXT  COMCGFL - GET FILE LABEL.                               DECK2
                                                                         DECK2
                                                                         DECK2
          BASE   D                                                       DECK2
          IF     -DEF,QUAL$,1                                            DECK2
          QUAL   COMCGFL                                                 DECK2
                                                                         DECK2
                                                                         DECK2
***       GFL - GET FILE LABEL.                                          DECK2
*                                                                        DECK2
*         R. H. GOODELL      71/03/11                                    DECK2
*                                                                        DECK2
*         COPYRIGHT CONTROL DATA CORP. 1971.                             DECK2
*         CONTROL DATA  PROPRIETARY PRODUCT.                             DECK2
*                                                                        DECK2
*         ENTRY  (X1) = REWIND FLAG --                                   DECK2
*                     = 0, NO REWIND                                     DECK2
*                     " 0  REWIND FILE                                   DECK2
*                (X2) = FET ADDRESS                                      DECK2
*                                                                        DECK2
*         EXIT   (X6, X7) = LABEL OF FILE, IF ANY.                       DECK2
*                IF (X6) = 0, FILE IS UNLABELLED.                        DECK2
*                                                                        DECK2
*         USES   ALL                                                     DECK2
*         CALLS  OPEN                                                    DECK2
                                                                         DECK2
                                                                         DECK2
 GFL      SUBR   0           ENTRY/EXIT...                               DECK2
          ZR     X1,GFL2     IF NO REWIND                                DECK2
          OPEN   X2,READ,RCL                                             DECK2
          EQ     GFL3                                                    DECK2
                                                                         DECK2
 GFL2     OPEN   X2,READNR,RCL                                           DECK2
                                                                         DECK2
 GFL3     SA3    X2+9 
          MX6    0
          SA4    A3+B1
          ZR     X3,GFLX     EXIT IF DEVICE IS NOT LABELED
          BX6    X3 
          MX0    7*6
          SA1    =3R
          BX5    X0*X4
          IX7    X5+X1
          EQ     GFLX        EXIT..                                      DECK2
                                                                         DECK2
                                                                         DECK2
          BASE   *                                                       DECK2
 QUAL$    IF     -DEF,QUAL$                                              DECK2
          QUAL   *                                                       DECK2
 GFL      EQU    /COMCGFL/GFL                                            DECK2
 QUAL$    ENDIF                                                          DECK2
                                                                         DECK2
                                                                         DECK2
 GFL      ENDX                                                           DECK2
