Common COMCWTC

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comcwtc +++|          CTEXT  COMCWTC - WRITE CODED LINE, -C- FORMAT.
00002  M00S00002.comcwtc +++| WTC      SPACE  4
00003  M00S00003.comcwtc +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comcwtc +++|          QUAL   COMCWTC
00005  M00S00005.comcwtc +++|          BASE   D

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comcwtc +++| WTC      SPACE  4
00009  M00S00008.comcwtc +++|***       WTC - WRITE CODED LINE, -C- FORMAT.
00010  M00S00009.comcwtc +++|*         G. R. MANSFIELD.  70/10/09.
00011  M00S00010.comcwtc +++| WTC      SPACE  4
00012  M00S00011.comcwtc +++|***              WTC TRANSFERS 1 CODED LINE IN -C- FORMAT FROM A
00013  M00S00012.comcwtc +++|*         WORKING BUFFER TO A CIO BUFFER.
00014  M00S00013.comcwtc +++|*         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,
00015  M00S00014.comcwtc +++|*         WTC WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*
00016  M00S00015.comcwtc +++|*         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET
00017  M00S00016.comcwtc +++|*         WILL BE RE-ISSUED.
00018  M00S00017.comcwtc +++|*
00019  M00S00018.comcwtc +++|*         ENTRY  (X2) = ADDRESS OF FET FOR FILE.
00020  M00S00019.comcwtc +++|*                (B6) = FWA WORKING BUFFER.
00021  M00S00020.comcwtc +++|*
00022  M00S00021.comcwtc +++|*         EXIT   (X2) = ADDRESS OF FET FOR FILE.
00023  M00S00022.comcwtc +++|*
00024  M00S00023.comcwtc +++|*         USES   X - 1, 2, 3, 4, 6, 7.
00025  M00S00024.comcwtc +++|*                B - 1, 2, 3, 4, 5, 6.
00026  M00S00025.comcwtc +++|*                A - 1, 2, 3, 4, 6, 7.
00027  M00S00026.comcwtc +++|*
00028  M00S00027.comcwtc +++|*         CALLS  DCB=, WTX=.
00029  M00S00028.comcwtc +++|
00030  M00S00029.comcwtc +++|
00031  M00S00030.comcwtc +++| +        EQ     WTC1
00032  M00S00031.comcwtc +++|
00033  M00S00032.comcwtc +++| WTC=     PS                 ENTRY/EXIT
00034  M00S00033.comcwtc +++|          SA4    *-1
00035  M00S00034.comcwtc +++|
00036  M00S00035.comcwtc +++|          IF     -DEF,B1=1,1
00037  M00S00036.comcwtc +++|          SB1    1
00038  M00S00037.comcwtc +++|
00039  M00S00038.comcwtc +++|          SA1    X2+4        (B5) = LIMIT
00040  M00S00039.comcwtc +++|          SA3    X2+B1       (X3) = FIRST
00041  M00S00040.comcwtc +++|          MX4    -12         (X4) = BYTE MASK
00042  M00S00041.comcwtc +++|          SB5    X1
00043  M00S00042.comcwtc +++|
00044  M00S00043.comcwtc +++|*         INITIALIZE REGISTERS FOR TRANSFER.
00045  M00S00044.comcwtc +++|
00046  M00S00045.comcwtc +++| WTC1     SA2    X2          (B2) = FET STATUS
00047  M00S00046.comcwtc +++|          SA1    A3+2        (B4) = OUT
00048  M00S00047.comcwtc +++|          SB2    X2
00049  M00S00048.comcwtc +++|          SA2    A3+B1       (X2) = IN
00050  M00S00049.comcwtc +++|          SB4    X1
00051  M00S00050.comcwtc +++|
00052  M00S00051.comcwtc +++|*         TRANSFER DATA FROM WORKING BUFFER TO CIRCULAR BUFFER.
00053  M00S00052.comcwtc +++|
00054  M00S00053.comcwtc +++| WTC2     SA1    B6          READ NEXT WORD
00055  M00S00054.comcwtc +++|          SB3    X2+B1       (IN+1)
00056  M00S00055.comcwtc +++|          EQ     B3,B5,WTC4  IF (IN+1) = LIMIT
00057  M00S00056.comcwtc +++| WTC3     EQ     B3,B4,=XDCB=  DUMP CIRCULAR BUFFER IF (IN+1) = OUT
00058  M00S00057.comcwtc +++|          BX6    X1
00059  M00S00058.comcwtc +++|          SB6    B6+B1       ADVANCE WORKING BUFFER
00060  M00S00059.comcwtc +++|          BX7    -X4*X1
00061  M00S00060.comcwtc +++|          SA6    X2          STORE WORD
00062  M00S00061.comcwtc +++|          SX2    B3+         IN = IN+1
00063  M00S00062.comcwtc +++|          NZ     X7,WTC2     LOOP TO END OF LINE
00064  M00S00063.comcwtc +++|          EQ     =XWTX=      EXIT
00065  M00S00064.comcwtc +++|
00066  M00S00065.comcwtc +++| WTC4     SB3    X3          (IN+1) = FIRST
00067  M00S00066.comcwtc +++|          EQ     WTC3
00068  M00S00067.comcwtc +++|          SPACE  4
00069  M00S00068.comcwtc +++|          BASE   *
00070  M00S00069.comcwtc +++| QUAL$    IF     -DEF,QUAL$
00071  M00S00070.comcwtc +++|          QUAL   *
00072  M00S00071.comcwtc +++| WTC=     EQU    /COMCWTC/WTC=
00073  M00S00072.comcwtc +++| QUAL$    ENDIF
00074  M00S00073.comcwtc +++|          ENDX