+524              S27860 F02 C.W. 4-1-77                                COBOL34
         LH,W9    CLUBUF+1,R3       LOOK AT DATA TYPE                   COBOL34
         AND,W9   L(X'F00')                                             COBOL34
         CI,W9    X'D00'            SEE IF BINARY                       COBOL34
         BNE      CI132             NO                                  COBOL34
         AI,W8    3                 YES--FORCE TO WORD ALIGN            COBOL34
         AND,W8   L(X'FFFC')          MAKE DIVISIBLE BY 4               COBOL34
CI132    EQU      $                                                     COBOL34
+634     S29540 C.W. 8-15-77  F03                                       COBOL34
CI172    EQU      $                                                     COBOL34
+667,667    S29540 C.W. 8-15-77 F03                                     COBOL34
         BL       CI172             UNEXPECTED EOF--NO RD               COBOL34
+END
