*COMDECK COMFRDC                                                         DECK2
          CTEXT  COMFRDC     READ CODED LINE                             DECK2
          QUAL   COMFRDC                                                 DECK2
          BASE   D                                                       DECK2
          SPACE  4                                                       DECK2
 COMFRDC  TITLE  RDC - READ CODED LINE, -C- FORMAT                       DECK2
**        RDC - READ CODED LINE FROM FILE, IN -C- FORMAT                 DECK2
*                                                                        DECK2
*                                                                        DECK2
*         ENTRY  (X2) = PSEUDO-FET WORD 1                                DECK2
*                (A2) = PSEUDO-FET ADDRESS                               DECK2
*                (B1) = 1                                                DECK2
*                (B6) = WSA ADDRESS                                      DECK2
*                (B7) = WSA LENGTH (WORDS)                               DECK2
*                                                                        DECK2
*         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         DECK2
*                (X1) = -1 IF EOP/EOI DETECTED ON FILE.                  DECK2
*                (X1) = (B6) IF EOS DETECTED ON FILE BEFORE TRANSFER     DECK2
*                            WAS COMPLETED.                              DECK2
*                (X2) = ADDRESS OF FIT FOR FILE.                         DECK2
*                (B1) = 1                                                DECK2
*                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO     DECK2
*                            WORKING STORAGE AREA.                       DECK2
*                                                                        DECK2
*         USES   X - 1, 2, 3, 4, 6                                       DECK2
*                A - 3, 6                                                DECK2
*                B - 6                                                   DECK2
*                                                                        DECK2
*         CALLS  FETCH, GET, STORE (RECORD MANAGER), CW, WC (FTNTEXT)    DECK2
                                                                         DECK2
                                                                         DECK2
                                                                         DECK2
 RDC=     JP     *+1S17                                                  DECK2
                                                                         DECK2
                                                                         DECK2
          SX3    B6          (X3) = WSA ADDRESS                          DECK2
          SX4    B7          (X4) = WSA LENGTH                           DECK2
          GETW   X2,X3,X4,RDC2                                           DECK2
          SB6    B6+X4       (B6) = LWA+1 OF TRANSFER                    DECK2
          SA3    B6-B1       LAST WORD OF LINE                           DECK2
          AX4    18D         (X4) = UNUSED BIT COUNT                     DECK2
          MX6    1                                                       DECK2
          SB2    X4-59                                                   DECK2
          MX7    0                                                       DECK2
          AX4    X6,-B2                                                  DECK2
          SX1    B0          (X1)=0 FOR TRANSFER COMPLETE                DECK2
          BX6    X4*X3       DISCARD UNUSED BITS                         DECK2
          AX4    6                                                       DECK2
          SA6    A3          TERMINATE LAST WORD READ                    DECK2
          NZ     X4,RDC=     IF AT LEAST 12-BIT LINE TERMINATION, EXIT   DECK2
          SB6    B6+B1       INCREMENT LWA+1 OF TRANSFER                 DECK2
          SA7    A6+B1       TERMINATE LINE                              DECK2
          EQ     RDC=                                                    DECK2
                                                                         DECK2
*         HERE IF END-OF-DATA ENCOUNTERED.                               DECK2
                                                                         DECK2
 RDC2     JP     *+1S17                                                  DECK2
          FETCH  X2,FP,X3                                                DECK2
          SX3    X3-#EOS#                                                DECK2
          SX1    B6+X4       TO RETURN EOS STATUS                        DECK2
          SB6    B6+X4       (B6) = LWA+1 OF TRANSFER                    DECK2
          ZR     X3,RDC=     IF EOS EXIT                                 DECK2
          MX1    -1          RETURN EOP/EOI STATUS                       DECK2
          EQ     RDC=                                                    DECK2
                                                                         DECK2
          QUAL   *                                                       DECK2
 RDC=     EQU    /COMFRDC/RDC=                                           DECK2
          ENDX                                                           DECK2
