cdc:nos2.source:opl.opl871:common:comcwtc
Common COMCWTC
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comcwtc +++| CTEXT COMCWTC - WRITE CODED LINE, -C- FORMAT. 00002 M01S00002.comcwtc +++| WTC SPACE 4 00003 M01S00003.comcwtc +++| IF -DEF,QUAL$,1 00004 M01S00004.comcwtc +++| QUAL COMCWTC 00005 M01S00005.comcwtc +++| BASE D
Line S00006 Modification History | |
---|---|
M01 (Added by) | comcwtc |
M02 (Updated by) | 281l803 |
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.comcwtc +++| WTC SPACE 4 00009 M01S00008.comcwtc +++|*** WTC - WRITE CODED LINE, -C- FORMAT. 00010 M01S00009.comcwtc +++|* G. R. MANSFIELD. 70/10/09. 00011 M01S00010.comcwtc +++| WTC SPACE 4 00012 M01S00011.comcwtc +++|*** WTC TRANSFERS 1 CODED LINE IN -C- FORMAT FROM A 00013 M01S00012.comcwtc +++|* WORKING BUFFER TO A CIO BUFFER. 00014 M01S00013.comcwtc +++|* IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING, 00015 M01S00014.comcwtc +++|* WTC WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$* 00016 M01S00015.comcwtc +++|* IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET 00017 M01S00016.comcwtc +++|* WILL BE RE-ISSUED. 00018 M01S00017.comcwtc +++|* 00019 M01S00018.comcwtc +++|* ENTRY (X2) = ADDRESS OF FET FOR FILE. 00020 M01S00019.comcwtc +++|* (B6) = FWA WORKING BUFFER. 00021 M01S00020.comcwtc +++|* 00022 M01S00021.comcwtc +++|* EXIT (X2) = ADDRESS OF FET FOR FILE. 00023 M01S00022.comcwtc +++|* 00024 M01S00023.comcwtc +++|* USES X - 1, 2, 3, 4, 6, 7. 00025 M01S00024.comcwtc +++|* B - 1, 2, 3, 4, 5, 6. 00026 M01S00025.comcwtc +++|* A - 1, 2, 3, 4, 6, 7. 00027 M01S00026.comcwtc +++|* 00028 M01S00027.comcwtc +++|* CALLS DCB=, WTX=. 00029 M01S00028.comcwtc +++| 00030 M01S00029.comcwtc +++| 00031 M01S00030.comcwtc +++| + EQ WTC1 00032 M01S00031.comcwtc +++| 00033 M01S00032.comcwtc +++| WTC= PS ENTRY/EXIT 00034 M01S00033.comcwtc +++| SA4 *-1 00035 M01S00034.comcwtc +++| 00036 M01S00035.comcwtc +++| IF -DEF,B1=1,1 00037 M01S00036.comcwtc +++| SB1 1 00038 M01S00037.comcwtc +++| 00039 M01S00038.comcwtc +++| SA1 X2+4 (B5) = LIMIT 00040 M01S00039.comcwtc +++| SA3 X2+B1 (X3) = FIRST 00041 M01S00040.comcwtc +++| MX4 -12 (X4) = BYTE MASK 00042 M01S00041.comcwtc +++| SB5 X1 00043 M01S00042.comcwtc +++| 00044 M01S00043.comcwtc +++|* INITIALIZE REGISTERS FOR TRANSFER. 00045 M01S00044.comcwtc +++| 00046 M01S00045.comcwtc +++| WTC1 SA2 X2 (B2) = FET STATUS 00047 M01S00046.comcwtc +++| SA1 A3+2 (B4) = OUT 00048 M01S00047.comcwtc +++| SB2 X2 00049 M01S00048.comcwtc +++| SA2 A3+B1 (X2) = IN 00050 M01S00049.comcwtc +++| SB4 X1 00051 M01S00050.comcwtc +++| 00052 M01S00051.comcwtc +++|* TRANSFER DATA FROM WORKING BUFFER TO CIRCULAR BUFFER. 00053 M01S00052.comcwtc +++| 00054 M01S00053.comcwtc +++| WTC2 SA1 B6 READ NEXT WORD 00055 M01S00054.comcwtc +++| SB3 X2+B1 (IN+1) 00056 M01S00055.comcwtc +++| EQ B3,B5,WTC4 IF (IN+1) = LIMIT 00057 M01S00056.comcwtc +++| WTC3 EQ B3,B4,=XDCB= DUMP CIRCULAR BUFFER IF (IN+1) = OUT 00058 M01S00057.comcwtc +++| BX6 X1 00059 M01S00058.comcwtc +++| SB6 B6+B1 ADVANCE WORKING BUFFER 00060 M01S00059.comcwtc +++| BX7 -X4*X1 00061 M01S00060.comcwtc +++| SA6 X2 STORE WORD 00062 M01S00061.comcwtc +++| SX2 B3+ IN = IN+1 00063 M01S00062.comcwtc +++| NZ X7,WTC2 LOOP TO END OF LINE 00064 M01S00063.comcwtc +++| EQ =XWTX= EXIT 00065 M01S00064.comcwtc +++| 00066 M01S00065.comcwtc +++| WTC4 SB3 X3 (IN+1) = FIRST 00067 M01S00066.comcwtc +++| EQ WTC3 00068 M01S00067.comcwtc +++| SPACE 4 00069 M01S00068.comcwtc +++| BASE * 00070 M01S00069.comcwtc +++| QUAL$ IF -DEF,QUAL$ 00071 M01S00070.comcwtc +++| QUAL * 00072 M01S00071.comcwtc +++| WTC= EQU /COMCWTC/WTC= 00073 M01S00072.comcwtc +++| QUAL$ ENDIF 00074 M01S00073.comcwtc +++| ENDX
cdc/nos2.source/opl.opl871/common/comcwtc.txt ยท Last modified: by 127.0.0.1