Common COMCSTF

Library Member Format: MODIFY

Source

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