Common COMCWTO

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comcwto +++|          CTEXT  COMCWTO - WRITE ONE WORD.
00002  M00S00002.comcwto +++| WTO      SPACE  4
00003  M00S00003.comcwto +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comcwto +++|          QUAL   COMCWTO
00005  M00S00005.comcwto +++|          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.comcwto +++| WTO      SPACE  4
00009  M00S00008.comcwto +++|***       WTO - WRITE ONE WORD.
00010  M00S00009.comcwto +++|*         D. A. CAHALANDER.  70/10/09.
00011  M00S00010.comcwto +++| WTO      SPACE  4
00012  M00S00011.comcwto +++|***              WTO WRITES 1 WORD TO A CIO BUFFER FROM (X6).
00013  M00S00012.comcwto +++|*         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,
00014  M00S00013.comcwto +++|*         WTO WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*
00015  M00S00014.comcwto +++|*         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET
00016  M00S00015.comcwto +++|*         WILL BE RE-ISSUED.
00017  M00S00016.comcwto +++|*
00018  M00S00017.comcwto +++|*         ENTRY  (A1) = ADDRESS OF IN POINTER.
00019  M00S00018.comcwto +++|*                (X1) = IN.
00020  M00S00019.comcwto +++|*                (X6) = WORD TO WRITE.
00021  M00S00020.comcwto +++|*
00022  M00S00021.comcwto +++|*         EXIT   (X2) = ADDRESS OF FET OF FILE.
00023  M00S00022.comcwto +++|*
00024  M00S00023.comcwto +++|*         USES   X - 1, 2, 3, 4, 6, 7.
00025  M00S00024.comcwto +++|*                B - 1.
00026  M00S00025.comcwto +++|*                A - 1, 2, 3, 4, 6, 7.
00027  M00S00026.comcwto +++|*
00028  M00S00027.comcwto +++|*         CALLS  NONE.
00029  M00S00028.comcwto +++|
00030  M00S00029.comcwto +++|
00031  M00S00030.comcwto +++| WTO1     SA6    X1          STORE WORD
00032  M00S00031.comcwto +++|          SX2    A1-2
00033  M00S00032.comcwto +++|          SA7    A1          UPDATE IN
00034  M00S00033.comcwto +++|
00035  M00S00034.comcwto +++| WTO=     PS                 ENTRY/EXIT
00036  M00S00035.comcwto +++| WTO2     BSS    0
00037  M00S00036.comcwto +++|
00038  M00S00037.comcwto +++|          IF     -DEF,B1=1,1
00039  M00S00038.comcwto +++|          SB1    1
00040  M00S00039.comcwto +++|
00041  M00S00040.comcwto +++|          SA2    A1-2        READ FET+0
00042  M00S00041.comcwto +++|          SA3    A1+B1       READ OUT
00043  M00S00042.comcwto +++|          SX7    X1+B1       IN+1
00044  M00S00043.comcwto +++|          IX4    X7-X3       IN+1 - OUT
00045  M00S00044.comcwto +++|          NG     X4,WTO1     IF NO WRAP AROUND
00046  M00S00045.comcwto +++|          SA3    A3+B1       READ LIMIT
00047  M00S00046.comcwto +++|          ZR     X4,WTO3     IF BUFFER FULL
00048  M00S00047.comcwto +++|          SX3    X3
00049  M00S00048.comcwto +++|          IX4    X7-X3       IN+1 - LIMIT
00050  M00S00049.comcwto +++|          SA3    A1-B1       READ FIRST
00051  M00S00050.comcwto +++|          NZ     X4,WTO1     IF IN+1 .NE. LIMIT
00052  M00S00051.comcwto +++|          SX7    X3          IN+1 = FIRST
00053  M00S00052.comcwto +++|          SA3    A1+B1       READ OUT
00054  M00S00053.comcwto +++|          IX4    X7-X3
00055  M00S00054.comcwto +++|          NZ     X4,WTO1     IF IN+1 .NE. OUT
00056  M00S00055.comcwto +++|
00057  M00S00056.comcwto +++|*         DUMP CIRCULAR BUFFER.
00058  M00S00057.comcwto +++|
00059  M00S00058.comcwto +++| WTO3     BX1    X2
00060  M00S00059.comcwto +++|          BX4    X6          SAVE WORD
00061  M00S00060.comcwto +++|          LX1    59-0
00062  M00S00061.comcwto +++|          SX2    A2
00063  M00S00062.comcwto +++|          NG     X1,WTO5     IF NOT BUSY
00064  M00S00063.comcwto +++|          ZR     X1,WTO5     IF BLANK FET
00065  M00S00064.comcwto +++|          RECALL X2
00066  M00S00065.comcwto +++| WTO4     SA1    X2+2        READ IN
00067  M00S00066.comcwto +++|          BX6    X4
00068  M00S00067.comcwto +++|          EQ     WTO2        CONTINUE WRITE
00069  M00S00068.comcwto +++| WRIF$    IF     DEF,WRIF$
00070  M00S00069.comcwto +++| WTO5     SA1    X2          RE-ISSUE CURRENT WRITE FUNCTION
00071  M00S00070.comcwto +++|          SX6    774B
00072  M00S00071.comcwto +++|          BX7    X6*X1
00073  M00S00072.comcwto +++|          RJ     =XCIO=
00074  M00S00073.comcwto +++| WRIF$    ELSE   1
00075  M00S00074.comcwto +++| WTO5     WRITE  X2
00076  M00S00075.comcwto +++|          EQ     WTO4        CONTINUE WRITE
00077  M00S00076.comcwto +++|          SPACE  4
00078  M00S00077.comcwto +++|          BASE   *
00079  M00S00078.comcwto +++| QUAL$    IF     -DEF,QUAL$
00080  M00S00079.comcwto +++|          QUAL   *
00081  M00S00080.comcwto +++| WTO=     EQU    /COMCWTO/WTO=
00082  M00S00081.comcwto +++| QUAL$    ENDIF
00083  M00S00082.comcwto +++|          ENDX