1 Modification

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcwth +++|          CTEXT  COMCWTH - WRITE CODED LINE, -H- FORMAT.
00002  M01S00002.comcwth +++| WTH      SPACE  4
00003  M01S00003.comcwth +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcwth +++|          QUAL   COMCWTH
00005  M01S00005.comcwth +++|          BASE   D

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comcwth +++| WTH      SPACE  4
00009  M01S00008.comcwth +++|***       WTH - WRITE CODED LINE, -H- FORMAT.
00010  M01S00009.comcwth +++|*         G. R. MANSFIELD.  70/10/09.
00011  M01S00010.comcwth +++|*         S. R. MCPHERSON.   74/09/30.
00012  M01S00011.comcwth +++| WTH      SPACE  4
00013  M01S00012.comcwth +++|***              WTH TRANSFERS 1 CODED LINE IN -H- FORMAT FROM A
00014  M01S00013.comcwth +++|*         WORKING BUFFER TO A CIO BUFFER.  TRAILING SPACES ARE DELETED.
00015  M01S00014.comcwth +++|*         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,
00016  M01S00015.comcwth +++|*         WTH WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*
00017  M01S00016.comcwth +++|*         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET
00018  M01S00017.comcwth +++|*         WILL BE RE-ISSUED.
00019  M01S00018.comcwth +++|*         IF THE BOCK TO BE WRITTEN TERMINATES WITH 6 BITS OF ZERO A
00020  M01S00019.comcwth +++|*         WORD CONTAINING A BLANK BYTE WILL BE APPENDED TO PRESERVE
00021  M01S00020.comcwth +++|*         THE  *00*  CHARACTER AS A COLON.  IF THE LINE TERMINATES
00022  M01S00021.comcwth +++|*         ON AN END-OF-LINE IT WILL BE WRITTEN AS IS.
00023  M01S00022.comcwth +++|*
00024  M01S00023.comcwth +++|*         ENTRY  (X2) = ADDRESS OF FET FOR FILE.
00025  M01S00024.comcwth +++|*                (B6) = FWA WORKING BUFFER.
00026  M01S00025.comcwth +++|*                (B7) = WORD COUNT OF WORKING BUFFER.
00027  M01S00026.comcwth +++|*                IF (B7) = 0, NO TRANSFER WILL BE PERFORMED.
00028  M01S00027.comcwth +++|*
00029  M01S00028.comcwth +++|*         EXIT   (X2) = ADDRESS OF FET FOR FILE.
00030  M01S00029.comcwth +++|*
00031  M01S00030.comcwth +++|*         USES   X - 1, 2, 3, 4, 6, 7.
00032  M01S00031.comcwth +++|*                B - 1, 2, 3, 4, 5, 6, 7.
00033  M01S00032.comcwth +++|*                A - 1, 2, 3, 4, 6, 7.
00034  M01S00033.comcwth +++|*
00035  M01S00034.comcwth +++|*         CALLS  DCB=, WTX=.
00036  M01S00035.comcwth +++|
00037  M01S00036.comcwth +++|
00038  M01S00037.comcwth +++| +        EQ     WTH3
00039  M01S00038.comcwth +++|
00040  M01S00039.comcwth +++| WTH=     PS                 ENTRY/EXIT
00041  M01S00040.comcwth +++|          SA4    *-1
00042  M01S00041.comcwth +++|          ZR     B7,WTH=     IF WORKING BUFFER EMPTY
00043  M01S00042.comcwth +++|
00044  M01S00043.comcwth +++|          IF     -DEF,B1=1,1
00045  M01S00044.comcwth +++|          SB1    1
00046  M01S00045.comcwth +++|
00047  M01S00046.comcwth +++|*         DELETE TRAILING BLANK WORDS.
00048  M01S00047.comcwth +++|
00049  M01S00048.comcwth +++|          SA3    WTHA        =1H
00050  M01S00049.comcwth +++|          SA1    B6+B7       PRESET (A1)
00051  M01S00050.comcwth +++|          SB7    B7+B1
00052  M01S00051.comcwth +++| WTH1     SA1    A1-B1
00053  M01S00052.comcwth +++|          IX6    X1-X3
00054  M01S00053.comcwth +++|          SB7    B7-B1
00055  M01S00054.comcwth +++|          EQ     B7,B1,WTH2
00056  M01S00055.comcwth +++|          ZR     X6,WTH1
00057  M01S00056.comcwth +++| WTH2     SA1    X2+4        (B5) = LIMIT
00058  M01S00057.comcwth +++|          SA3    X2+B1       (X3) = FIRST
00059  M01S00058.comcwth +++|          SB5    X1
00060  M01S00059.comcwth +++|
00061  M01S00060.comcwth +++|*         INITIALIZE REGISTERS FOR TRANSFER.
00062  M01S00061.comcwth +++|
00063  M01S00062.comcwth +++| WTH3     SA2    X2          (B2) = FET STATUS
00064  M01S00063.comcwth +++|          SA1    A3+2        (B4) = OUT
00065  M01S00064.comcwth +++|          SB2    X2
00066  M01S00065.comcwth +++|          SA2    A3+B1       (X2) = IN
00067  M01S00066.comcwth +++|          SB4    X1
00068  M01S00067.comcwth +++|
00069  M01S00068.comcwth +++|*         TRANSFER DATA FROM WORKING BUFFER TO CIRCULAR BUFFER.
00070  M01S00069.comcwth +++|
00071  M01S00070.comcwth +++| WTH4     SB3    X2+1        (IN+1)
00072  M01S00071.comcwth +++|          EQ     B3,B5,WTH9  IF (IN+1) = LIMIT
00073  M01S00072.comcwth +++| WTH5     EQ     B3,B4,=XDCB= DUMP CIRCULAR BUFFER IF (IN+1) = OUT
00074  M01S00073.comcwth +++|          SA1    B6          READ WORD
00075  M01S00074.comcwth +++|          SB7    B7-B1       DECREMENT WORD COUNT
00076  M01S00075.comcwth +++|          BX6    X1
00077  M01S00076.comcwth +++|          SA6    X2          STORE WORD
00078  M01S00077.comcwth +++|          SB6    B6+B1       ADVANCE WORKING BUFFER
00079  M01S00078.comcwth +++|          SX2    B3          IN = (IN+1)
00080  M01S00079.comcwth +++|          GE     B7,B1,WTH4  LOOP TO LAST WORD
00081  M01S00080.comcwth +++|
00082  M01S00081.comcwth +++|          MX1    -12         CHECK LAST BYTE
00083  M01S00082.comcwth +++|          BX7    -X1*X6
00084  M01S00083.comcwth +++|          ZR     X7,WTX=     EXIT IF 0000 BYTE
00085  M01S00084.comcwth +++|          SB6    WTHB        PREPARE ZERO WORD
00086  M01S00085.comcwth +++|          SX7    X7-2R
00087  M01S00086.comcwth +++|          ZR     X7,WTH6     IF *  * BYTE
00088  M01S00087.comcwth +++|          MX4    -6          SET CHARACTER MASK
00089  M01S00088.comcwth +++|          BX4    -X4*X6      GET LAST CHARACTER OF WORD
00090  M01S00089.comcwth +++|          NZ     X4,WTH4     IF LAST CHARACTER NOT  *00*
00091  M01S00090.comcwth +++|          SB6    WTHC        PRESERVE *00* CHARACTER WITH *  *
00092  M01S00091.comcwth +++|          JP     WTH4
00093  M01S00092.comcwth +++|
00094  M01S00093.comcwth +++|*         DELETE TRAILING SPACE BYTES.
00095  M01S00094.comcwth +++|
00096  M01S00095.comcwth +++| WTH6     MX4    -6          SINGLE CHARACTER MASK
00097  M01S00096.comcwth +++|          LX4    12
00098  M01S00097.comcwth +++|          BX7    -X4*X6      GET RIGHT CHARACTER OF BYTE
00099  M01S00098.comcwth +++|          ZR     X7,WTH4     IF  *00*  CHARACTER ADD BLANK BYTE
00100  M01S00099.comcwth +++|          SX2    2R          SET SPACE BYTE
00101  M01S00100.comcwth +++| WTH7     BX6    X1*X6       ZERO OUT SPACE BYTE
00102  M01S00101.comcwth +++|          LX1    12          CHECK NEXT BYTE
00103  M01S00102.comcwth +++|          LX2    12
00104  M01S00103.comcwth +++|          BX7    -X1*X6      GET BYTE
00105  M01S00104.comcwth +++|          LX4    12
00106  M01S00105.comcwth +++|          BX7    X7-X2       CHECK FOR SPACE BYTE
00107  M01S00106.comcwth +++|          NZ     X7,WTH8     IF NOT SPACE BYTE
00108  M01S00107.comcwth +++|          BX7    -X4*X6      CHECK CHARACTER BEFORE BYTE
00109  M01S00108.comcwth +++|          NZ     X7,WTH7     IF NOT  *00*  CHARACTER
00110  M01S00109.comcwth +++| WTH8     SA6    A6
00111  M01S00110.comcwth +++|          SX2    B3
00112  M01S00111.comcwth +++|          EQ     =XWTX=      EXIT
00113  M01S00112.comcwth +++|
00114  M01S00113.comcwth +++| WTH9     SB3    X3          (IN+1) = FIRST
00115  M01S00114.comcwth +++|          EQ     WTH5
00116  M01S00115.comcwth +++|
00117  M01S00116.comcwth +++| WTHA     DATA   1H
00118  M01S00117.comcwth +++| WTHB     CON    0
00119  M01S00118.comcwth +++| WTHC     DATA   2L
00120  M01S00119.comcwth +++|          SPACE  4
00121  M01S00120.comcwth +++|          BASE   *
00122  M01S00121.comcwth +++| QUAL$    IF     -DEF,QUAL$
00123  M01S00122.comcwth +++|          QUAL   *
00124  M01S00123.comcwth +++| WTH=     EQU    /COMCWTH/WTH=
00125  M01S00124.comcwth +++| QUAL$    ENDIF
00126  M01S00125.comcwth +++|          ENDX