*COMDECK COMFWTC                                                         DECK2
          CTEXT  COMFWTC     WRITE CODED LINE                            DECK2
          QUAL   COMFWTC                                                 DECK2
          BASE   D                                                       DECK2
          SPACE  4                                                       DECK2
 COMFWTC  TITLE  WTC - WRITE CODED LINE, -C- FORMAT                      DECK2
**        WTC - WRITE CODED LINE, IN -C- FORMAT                          DECK2
*                                                                        DECK2
*                                                                        DECK2
*         ENTRY  (X2) = FIT ADDRESS                                      DECK2
*                (B1) = 1                                                DECK2
*                (B6) = LINE ADDRESS                                     DECK2
*                (B7) = LINE LENGTH (WORDS)                              DECK2
*                                                                        DECK2
*         EXIT   (X2) = FIT ADDRESS                                      DECK2
*                (B1) = 1                                                DECK2
*                                                                        DECK2
*         USES   X - 1, 3, 4, 6, 7                                       DECK2
*                A - 1, 4                                                DECK2
*                B - 2                                                   DECK2
*                                                                        DECK2
*         CALLS  PUT (RECORD MANAGER)                                    DECK2
                                                                         DECK2
                                                                         DECK2
 WTC=     JP     *+1S17                                                  DECK2
                                                                         DECK2
                                                                         DECK2
          SB2    B7-B1                                                   DECK2
          SX6    B7+B7                                                   DECK2
          SA1    B6+B2       (X1) = LAST WORD OF LINE                    DECK2
          SX7    B7+B7                                                   DECK2
          LX6    2                                                       DECK2
          IX7    X6+X7       (X7) = LINE LENGTH (CHARACTERS)             DECK2
                                                                         DECK2
*         LOCATE AND COUNT LINE TERMINATING ZERO BYTES.  ADJUST LINE     DECK2
*         LENGTH (IN CHARACTERS) ACCORDINGLY.                            DECK2
                                                                         DECK2
          SA4    WTCA        (X4) = CHARACTER BYTE MASK                  DECK2
          NZ     X1,WTC2     IF LAST WORD NOT EMPTY                      DECK2
          SA1    A1-1        (X1) = LAST NON-NULL WORD OF LINE           DECK2
          SX7    X7-10D                                                  DECK2
 WTC2     MX3    -1                                                      DECK2
          IX6    X1+X3       BORROW PROPAGATES LEFT THRU ALL ZERO BYTES  DECK2
          BX1    -X1*X6                                                  DECK2
          SX3    B6          (X3) = LINE ADDRESS                         DECK2
          BX6    X4*X1       RETAIN A 1-BIT IN EACH NULL CHARAC BYTE     DECK2
          CX1    X6          (X1) = NBR OF NULL CHARACTERS               DECK2
          NO                                                             DECK2
          IX4    X7-X1       (X4) = LINE LENGTH (NON-NULL CHARACTERS)    DECK2
          PUT    X2,X3,X4                                                DECK2
          EQ     WTC=        EXIT                                        DECK2
                                                                         DECK2
                                                                         DECK2
                                                                         DECK2
 WTCA     DATA   40404040404040404040B                                   DECK2
          QUAL   *                                                       DECK2
 WTC=     EQU    /COMFWTC/WTC=                                           DECK2
          ENDX                                                           DECK2
