1 Modification

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcwto +++|          CTEXT  COMCWTO - WRITE ONE WORD.
00002  M01S00002.comcwto +++| WTO      SPACE  4
00003  M01S00003.comcwto +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcwto +++|          QUAL   COMCWTO
00005  M01S00005.comcwto +++|          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.comcwto +++| WTO      SPACE  4
00009  M01S00008.comcwto +++|***       WTO - WRITE ONE WORD.
00010  M01S00009.comcwto +++|*         D. A. CAHALANDER.  70/10/09.
00011  M01S00010.comcwto +++| WTO      SPACE  4
00012  M01S00011.comcwto +++|***              WTO WRITES 1 WORD TO A CIO BUFFER FROM (X6).
00013  M01S00012.comcwto +++|*         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,
00014  M01S00013.comcwto +++|*         WTO WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*
00015  M01S00014.comcwto +++|*         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET
00016  M01S00015.comcwto +++|*         WILL BE RE-ISSUED.
00017  M01S00016.comcwto +++|*
00018  M01S00017.comcwto +++|*         ENTRY  (A1) = ADDRESS OF IN POINTER.
00019  M01S00018.comcwto +++|*                (X1) = IN.
00020  M01S00019.comcwto +++|*                (X6) = WORD TO WRITE.
00021  M01S00020.comcwto +++|*
00022  M01S00021.comcwto +++|*         EXIT   (X2) = ADDRESS OF FET OF FILE.
00023  M01S00022.comcwto +++|*
00024  M01S00023.comcwto +++|*         USES   X - 1, 2, 3, 4, 6, 7.
00025  M01S00024.comcwto +++|*                B - 1.
00026  M01S00025.comcwto +++|*                A - 1, 2, 3, 4, 6, 7.
00027  M01S00026.comcwto +++|*
00028  M01S00027.comcwto +++|*         CALLS  NONE.
00029  M01S00028.comcwto +++|
00030  M01S00029.comcwto +++|
00031  M01S00030.comcwto +++| WTO1     SA6    X1          STORE WORD
00032  M01S00031.comcwto +++|          SX2    A1-2
00033  M01S00032.comcwto +++|          SA7    A1          UPDATE IN
00034  M01S00033.comcwto +++|
00035  M01S00034.comcwto +++| WTO=     PS                 ENTRY/EXIT
00036  M01S00035.comcwto +++| WTO2     BSS    0
00037  M01S00036.comcwto +++|
00038  M01S00037.comcwto +++|          IF     -DEF,B1=1,1
00039  M01S00038.comcwto +++|          SB1    1
00040  M01S00039.comcwto +++|
00041  M01S00040.comcwto +++|          SA2    A1-2        READ FET+0
00042  M01S00041.comcwto +++|          SA3    A1+B1       READ OUT
00043  M01S00042.comcwto +++|          SX7    X1+B1       IN+1
00044  M01S00043.comcwto +++|          IX4    X7-X3       IN+1 - OUT
00045  M01S00044.comcwto +++|          NG     X4,WTO1     IF NO WRAP AROUND
00046  M01S00045.comcwto +++|          SA3    A3+B1       READ LIMIT
00047  M01S00046.comcwto +++|          ZR     X4,WTO3     IF BUFFER FULL
00048  M01S00047.comcwto +++|          SX3    X3
00049  M01S00048.comcwto +++|          IX4    X7-X3       IN+1 - LIMIT
00050  M01S00049.comcwto +++|          SA3    A1-B1       READ FIRST
00051  M01S00050.comcwto +++|          NZ     X4,WTO1     IF IN+1 .NE. LIMIT
00052  M01S00051.comcwto +++|          SX7    X3          IN+1 = FIRST
00053  M01S00052.comcwto +++|          SA3    A1+B1       READ OUT
00054  M01S00053.comcwto +++|          IX4    X7-X3
00055  M01S00054.comcwto +++|          NZ     X4,WTO1     IF IN+1 .NE. OUT
00056  M01S00055.comcwto +++|
00057  M01S00056.comcwto +++|*         DUMP CIRCULAR BUFFER.
00058  M01S00057.comcwto +++|
00059  M01S00058.comcwto +++| WTO3     BX1    X2
00060  M01S00059.comcwto +++|          BX4    X6          SAVE WORD
00061  M01S00060.comcwto +++|          LX1    59-0
00062  M01S00061.comcwto +++|          SX2    A2
00063  M01S00062.comcwto +++|          NG     X1,WTO5     IF NOT BUSY
00064  M01S00063.comcwto +++|          ZR     X1,WTO5     IF BLANK FET
00065  M01S00064.comcwto +++|          RECALL X2
00066  M01S00065.comcwto +++| WTO4     SA1    X2+2        READ IN
00067  M01S00066.comcwto +++|          BX6    X4
00068  M01S00067.comcwto +++|          EQ     WTO2        CONTINUE WRITE
00069  M01S00068.comcwto +++| WRIF$    IF     DEF,WRIF$
00070  M01S00069.comcwto +++| WTO5     SA1    X2          RE-ISSUE CURRENT WRITE FUNCTION
00071  M01S00070.comcwto +++|          SX6    774B
00072  M01S00071.comcwto +++|          BX7    X6*X1
00073  M01S00072.comcwto +++|          RJ     =XCIO=
00074  M01S00073.comcwto +++| WRIF$    ELSE   1
00075  M01S00074.comcwto +++| WTO5     WRITE  X2
00076  M01S00075.comcwto +++|          EQ     WTO4        CONTINUE WRITE
00077  M01S00076.comcwto +++|          SPACE  4
00078  M01S00077.comcwto +++|          BASE   *
00079  M01S00078.comcwto +++| QUAL$    IF     -DEF,QUAL$
00080  M01S00079.comcwto +++|          QUAL   *
00081  M01S00080.comcwto +++| WTO=     EQU    /COMCWTO/WTO=
00082  M01S00081.comcwto +++| QUAL$    ENDIF
00083  M01S00082.comcwto +++|          ENDX