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