*COMDECK  COMCWTC            WRITE CODED LINE, *C* FORMAT.               COMCWTC
 WTC      CTEXT  COMCWTC - WRITE CODED LINE, -C- FORMAT.                 COMCWTC
 WTC      SPACE  4,10                                                    COMCWTC
          IF     -DEF,QUAL$,1                                            COMCWTC
          QUAL   COMCWTC                                                 COMCWTC
          BASE   D                                                       COMCWTC
*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCWTC
 WTC      SPACE  4,10                                                    COMCWTC
***       WTC - WRITE CODED LINE, -C- FORMAT.                            COMCWTC
*                                                                        COMCWTC
*         G. R. MANSFIELD.   70/10/09.                                   COMCWTC
*         C. J. CONRAD.      81/08/06.
* 
*         ******************************************************* 
*         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS * 
*         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  * 
*         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     * 
*         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  * 
*         * THROUGH THE PROPER PROCEDURE.                       * 
*         ******************************************************* 
* 
*                                                                        COMCWTC
*         WTC WRITES A ZERO-BYTE-DELIMITED LINE TO A FILE.               COMCWTC
 WTC      SPACE  4,10                                                    COMCWTC
***       WTC TRANSFERS 1 CODED LINE IN -C- FORMAT FROM A                COMCWTC
*         WORKING BUFFER TO A CIO BUFFER.                                COMCWTC
*         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTC
*         OR THE DEVICE TYPE INDICATES A NOS/BE TERMINAL,                COMCWTC
*         WTC WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTC
*         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTC
*         WILL BE RE-ISSUED.                                             COMCWTC
*                                                                        COMCWTC
*         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCWTC
*                (B6) = FWA WORKING BUFFER.                              COMCWTC
*                                                                        COMCWTC
*         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCWTC
*                (B1) = 1.                                               COMCWTC
*                                                                        COMCWTC
*         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTC
*                B - 1, 2, 3, 4, 5, 6.                                   COMCWTC
*                A - 1, 2, 3, 4, 6, 7.                                   COMCWTC
*                                                                        COMCWTC
*         CALLS  DCB=, WTX=.                                             COMCWTC
                                                                         COMCWTC
                                                                         COMCWTC
 +        EQ     WTC1                                                    COMCWTC
                                                                         COMCWTC
 WTC=     SUBR               ENTRY/EXIT                                  COMCWTC
          SA4    *-1                                                     COMCWTC
          IF     -DEF,B1=1,1                                             COMCWTC
          SB1    1                                                       COMCWTC
          SA1    X2+4        (B5) = LIMIT                                COMCWTC
          SA3    X2+B1       (X3) = FIRST                                COMCWTC
          MX4    -12         (X4) = BYTE MASK                            COMCWTC
          SB5    X1                                                      COMCWTC
                                                                         COMCWTC
*         INITIALIZE REGISTERS FOR TRANSFER.                             COMCWTC
                                                                         COMCWTC
 WTC1     SA2    X2          (B2) = FET STATUS
          SA1    A3+2        (B4) = OUT 
          SB2    X2 
          SA2    A3+B1       (X2) = IN                                   COMCWTC
          SB4    X1                                                      COMCWTC
                                                                         COMCWTC
*         TRANSFER DATA FROM WORKING BUFFER TO CIRCULAR BUFFER.          COMCWTC
                                                                         COMCWTC
 WTC2     SA1    B6          READ NEXT WORD                              COMCWTC
          SB3    X2+B1       (IN+1)                                      COMCWTC
          EQ     B3,B5,WTC4  IF (IN+1) = LIMIT                           COMCWTC
 WTC3     EQ     B3,B4,=XDCB= DUMP CIRCULAR BUFFER IF (IN+1) = OUT       COMCWTC
          BX6    X1                                                      COMCWTC
          SB6    B6+B1       ADVANCE WORKING BUFFER                      COMCWTC
          BX7    -X4*X1                                                  COMCWTC
          SA6    X2          STORE WORD                                  COMCWTC
          SX2    B3+         IN = IN+1                                   COMCWTC
          NZ     X7,WTC2     LOOP TO END OF LINE                         COMCWTC
          EQ     =XWTX=      EXIT                                        COMCWTC
                                                                         COMCWTC
 WTC4     SB3    X3          (IN+1) = FIRST                              COMCWTC
          EQ     WTC3                                                    COMCWTC
 WTC      SPACE  4,10                                                    COMCWTC
          BASE   *                                                       COMCWTC
 QUAL$    IF     -DEF,QUAL$                                              COMCWTC
          QUAL   *                                                       COMCWTC
 WTC=     EQU    /COMCWTC/WTC=                                           COMCWTC
 QUAL$    ENDIF                                                          COMCWTC
 WTC      ENDX                                                           COMCWTC
