Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comcstf +++| CTEXT COMCSTF - SET TERMINAL FILE.
00002 M00S00002.comcstf +++| SPACE 4
00003 M00S00003.comcstf +++| QUAL$ IF -DEF,QUAL$
00004 M00S00004.comcstf +++| QUAL COMCSTF
00005 M00S00005.comcstf +++| QUAL$ ENDIF
00006 M00S00006.comcstf +++| BASE D
| Line S00007 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00007.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00009 M00S00008.comcstf +++| SPACE 4
00010 M00S00009.comcstf +++|*** STF - SET TERMINAL OUTPUT FILE
00011 M00S00010.comcstf +++|* J. L. WARDELL 71/01/29.
00012 M00S00011.comcstf +++|* R. E. TATE 73/04/08.
00013 M00S00012.comcstf +++| SPACE 4
00014 M00S00013.comcstf +++|*** *STF* DETERMINES WHETHER A FILE IS OR WILL BE
00015 M00S00014.comcstf +++|* ASSIGNED TO AN INTERACTIVE TERMINAL (DEVICE TYPE *TT*).
00016 M00S00015.comcstf +++|*
00017 M00S00016.comcstf +++|* ENTRY (X2) = ADDRESS OF FET.
00018 M00S00017.comcstf +++|* FET MUST BE GREATER THAN FIVE WORDS IN LENGTH.
00019 M00S00018.comcstf +++|*
00020 M00S00019.comcstf +++|* EXIT (X6) = 0 IF FILE IS TERMINAL FILE.
| Line S00001 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00021 M01S00001.ns22000 +++|* (X6) = 1 IF NULL FILE OR NOT TERMINAL FILE.
00022 M00S00020.comcstf +++|* (X2) = ADDRESS OF FET.
00023 M00S00021.comcstf +++|*
00024 M00S00022.comcstf +++|* USES A - 1, 6.
00025 M00S00023.comcstf +++|* X - 1, 6.
00026 M00S00024.comcstf +++|*
00027 M00S00025.comcstf +++|* MACROS OPEN.
00028 M00S00026.comcstf +++|
00029 M00S00027.comcstf +++|
00030 M00S00028.comcstf +++| STF PS ENTRY/EXIT
00031 M00S00029.comcstf +++| SA1 X2 CHECK FILE NAME AND STATUS
00032 M00S00030.comcstf +++| SX6 1
00033 M00S00031.comcstf +++| BX6 X6+X1 SET PREVIOUS STATUS COMPLETE
00034 M00S00032.comcstf +++| ZR X1,STF IF NULL FILE, RETURN
00035 M00S00033.comcstf +++| SA6 STFA
00036 M00S00034.comcstf +++| OPEN X2,ALTERNR,R ISSUE *OPEN* REQUEST
00037 M00S00035.comcstf +++| SA1 STFA RESTORE PREVIOUS FUNCTION CODE
00038 M00S00036.comcstf +++| BX6 X1
00039 M00S00037.comcstf +++| SA6 X2
00040 M00S00038.comcstf +++| SA1 X2+1 CHECK DEVICE TYPE
00041 M00S00039.comcstf +++| AX1 48
00042 M00S00040.comcstf +++| SX6 X1-2RTT (X6) = ZERO IF TYPE *TT*
| Line S00002 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00043 M01S00002.ns22000 +++| STF1 ZR X6,STF IF TERMINAL FILE
00044 M01S00003.ns22000 +++| SX6 1
00045 M00S00041.comcstf +++| EQ STF RETURN
00046 M00S00042.comcstf +++|
00047 M00S00043.comcstf +++| STFA CON 0 SAVE FET FUNCTION CODE
00048 M00S00044.comcstf +++| SPACE 4
00049 M00S00045.comcstf +++| BASE *
00050 M00S00046.comcstf +++| QUAL$ IF -DEF,QUAL$
00051 M00S00047.comcstf +++| QUAL *
00052 M00S00048.comcstf +++| STF EQU /COMCSTF/STF
00053 M00S00049.comcstf +++| QUAL$ ENDIF
00054 M00S00050.comcstf +++| ENDX