Common COMPSTI

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsti +++|          CTEXT  COMPSTI - SET TRACK INTERLOCK.
00002  M00S00002.compsti +++|          SPACE  4
00003  M00S00003.compsti +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compsti +++|          QUAL   COMPSTI

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1972.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.

Line S00006 Modification History
`M01` (Removed by)	`psti1`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00006.psti1   ---|          SPACE  4

Line S00001 Modification History
`M01` (Added by)	`psti1`

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.psti1   +++|          SPACE  4,10
00009  M00S00007.compsti +++|***       STI - SET TRACK INTERLOCK.
00010  M00S00008.compsti +++|*         J. L. WARDELL      72/05/24.

Line S00009 Modification History
`M01` (Removed by)	`psti1`

Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00009.psti1   ---|          SPACE  4

Line S00002 Modification History
`M01` (Added by)	`psti1`

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00002.psti1   +++| STI      SPACE  4,15

Line S00010 Modification History
`M01` (Removed by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00013  M01S00010.ns2415  ---|***              STI SETS WRITE INTERLOCK FOR TRACK SPECIFIED.

Line S00001 Modification History
`M01` (Added by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00001.ns2415  +++|***       COMPSTI SETS THE TRT INTERLOCK FOR THE TRACK SPECIFIED.
00015  M00S00011.compsti +++|*

Line S00012 Modification History
`M01` (Removed by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00012.ns2415  ---|*         IF STI$ IS DEFINED, CONTROL IS RETURNED TO THE CALLER
00017  M01S00013.ns2415  ---|*         IF THE TRACK IS NOT INTERLOCKED.

Line S00001 Modification History
`M01` (Added by)	`ns2304`
`M02` (Removed by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00001.ns2415  ---|*         IF TNR$ IS DEFINED, CONTROL IS RETURNED TO THE CALLER
00019  M02S00002.ns2415  ---|*         IF THE TRACK IS NOT RESERVED.

Line S00002 Modification History
`M01` (Added by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00020  M01S00002.ns2415  +++|*         IF *STI$* IS DEFINED, CONTROL IS RETURNED TO THE CALLER
00021  M01S00003.ns2415  +++|*         IF THE TRACK IS ALREADY INTERLOCKED.  OTHERWISE, THE
00022  M01S00004.ns2415  +++|*         THE *STBM* WILL BE RETRIED EVERY 100 MILLISECONDS UNTIL
00023  M01S00005.ns2415  +++|*         THE INTERLOCK IS ACHIEVED OR UNTIL AN OPERATOR OVERRIDE
00024  M01S00006.ns2415  +++|*         IS DETECTED.
00025  M01S00007.ns2415  +++|*
00026  M01S00008.ns2415  +++|*         IF *TNR$* IS DEFINED, CONTROL IS RETURNED TO THE CALLER
00027  M01S00009.ns2415  +++|*         IF THE TRACK IS NOT RESERVED.  OTHERWISE, *CPUMTR* WILL
00028  M01S00010.ns2415  +++|*         HANG THE PP IF AN UNRESERVED TRACK IS DETECTED.
00029  M00S00014.compsti +++|*

Line S00015 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00030  M01S00015.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT ORDINAL.

Line S00001 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00031  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00032  M00S00016.compsti +++|*                (T6) = TRACK.
00033  M00S00017.compsti +++|*

Line S00018 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00018.ns22000 ---|*         EXIT   (A) " 0 IF ERROR FLAG SET.
00035  M01S00019.ns22000 ---|*                (A) = 0 IF TRACK INTERLOCKED.

Line S00002 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00036  M01S00002.ns22000 +++|*         EXIT   (A) = 0 IF TRACK INTERLOCKED.

Line S00011 Modification History
`M01` (Added by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00037  M01S00011.ns2415  +++|*                    = 1 IF TRACK ALREADY INTERLOCKED (STI$ DEFINED).
00038  M01S00012.ns2415  +++|*                    = 2 IF TRACK NOT RESERVED (TNR$ DEFINED).
00039  M00S00020.compsti +++|*

Line S00021 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00040  M01S00021.ns22000 ---|*         USES   CM - CM+4, T1

Line S00003 Modification History
`M01` (Added by)	`ns22000`
`M02` (Removed by)	`psti1`

Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00003.psti1   ---|*         USES   CM - CM+4.

Line S00003 Modification History
`M01` (Added by)	`psti1`

Seq #  *Modification Id* Act 
----------------------------+
00042  M01S00003.psti1   +++|*         USES   T0, CM - CM+4.

Line S00004 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00043  M01S00004.ns22000 +++|*
00044  M01S00005.ns22000 +++|*         MACROS DELAY, MONITOR, PAUSE.
00045  M00S00022.compsti +++|*

Line S00023 Modification History
`M01` (Removed by)	`psti1`

Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00023.psti1   ---|*         NOTE   THIS COMMON DECK REQUIRES THE PRESENCE OF COMSCPS.

Line S00004 Modification History
`M01` (Added by)	`psti1`

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00004.psti1   +++|*         XREF   COMSCPS.
00048  M00S00024.compsti +++|
00049  M00S00025.compsti +++|
00050  M00S00026.compsti +++| STI$     IF     -DEF,STI$
00051  M00S00027.compsti +++| STI2     LDD    CM+1        RESTORE EXIT CONDITION
00052  M00S00028.compsti +++| STI$     ENDIF
00053  M00S00029.compsti +++|
00054  M00S00030.compsti +++| STI      SUBR               ENTRY/EXIT

Line S00031 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00055  M01S00031.ns22000 ---| STI1     LDD    T5          SET EQUIPMENT

Line S00006 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00056  M01S00006.ns22000 +++| STI1     LDD    T5          SET EST ORDINAL

Line S00003 Modification History
`M01` (Added by)	`ns2304`

Seq #  *Modification Id* Act 
----------------------------+
00057  M01S00003.ns2304  +++| TNR$     IF     DEF,TNR$
00058  M01S00004.ns2304  +++|          LMC    2000        SET RETURN IF TRACK NOT RESERVED
00059  M01S00005.ns2304  +++| TNR$     ENDIF
00060  M00S00032.compsti +++|          STD    CM+1
00061  M00S00033.compsti +++|          LDD    T6          SET TRACK
00062  M00S00034.compsti +++|          STD    CM+2
00063  M00S00035.compsti +++|          LDN    STIS        SET TRACK INTERLOCK
00064  M00S00036.compsti +++|          STD    CM+3
00065  M00S00037.compsti +++|          MONITOR STBM
00066  M00S00038.compsti +++|          LDD    CM+1
00067  M01S00006.ns2304  +++| TNR$     IF     DEF,TNR$
00068  M01S00007.ns2304  +++|          LMN    2

Line S00008 Modification History
`M01` (Added by)	`ns2304`
`M02` (Removed by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00008.ns2415  ---|          NJN    STI1.0      IF NOT TRACK NOT RESERVED

Line S00013 Modification History
`M01` (Added by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00070  M01S00013.ns2415  +++|          NJN    STI1.0      IF NOT *TRACK NOT RESERVED*

Line S00009 Modification History
`M01` (Added by)	`ns2304`

Seq #  *Modification Id* Act 
----------------------------+
00071  M01S00009.ns2304  +++|          LMN    2
00072  M01S00010.ns2304  +++|          UJN    STIX        RETURN
00073  M01S00011.ns2304  +++|
00074  M01S00012.ns2304  +++| STI1.0   LMN    2
00075  M01S00013.ns2304  +++| TNR$     ENDIF
00076  M00S00039.compsti +++| STI$     IF     DEF,STI$
00077  M00S00040.compsti +++|          UJN    STIX        RETURN
00078  M00S00041.compsti +++| STI$     ELSE
00079  M00S00042.compsti +++|          ZJN    STIX        IF INTERLOCK SET
00080  M00S00043.compsti +++|

Line S00044 Modification History
`M01` (Removed by)	`psti1`

Seq #  *Modification Id* Act 
----------------------------+
00081  M01S00044.psti1   ---|*         DELAY 1/2 SECOND AND RETRY.

Line S00005 Modification History
`M01` (Added by)	`psti1`
`M02` (Removed by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00005.ns2415  ---|*         DELAY 1/4 SECOND AND RETRY.

Line S00014 Modification History
`M01` (Added by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00083  M01S00014.ns2415  +++|*         DELAY 100 MILLISECONDS AND RETRY.
00084  M00S00045.compsti +++|

Line S00046 Modification History
`M01` (Removed by)	`psti1`

Seq #  *Modification Id* Act 
----------------------------+
00085  M01S00046.psti1   ---|          DELAY

Line S00006 Modification History
`M01` (Added by)	`psti1`
`M02` (Removed by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00006.ns2415  ---|          LDC    3000

Line S00015 Modification History
`M01` (Added by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00087  M01S00015.ns2415  +++|          LDC    1400

Line S00007 Modification History
`M01` (Added by)	`psti1`

Seq #  *Modification Id* Act 
----------------------------+
00088  M01S00007.psti1   +++|          STD    T0
00089  M01S00008.psti1   +++| STI1.1   DELAY
00090  M00S00047.compsti +++|          PAUSE
00091  M00S00048.compsti +++|          LDD    CM+1
00092  M00S00049.compsti +++|          LMN    ORET

Line S00050 Modification History
`M01` (Removed by)	`ns2304`

Seq #  *Modification Id* Act 
----------------------------+
00093  M01S00050.ns2304  ---|          ZJN    STI2        IF *ORET* ERROR FLAG SET

Line S00014 Modification History
`M01` (Added by)	`ns2304`

Seq #  *Modification Id* Act 
----------------------------+
00094  M01S00014.ns2304  +++|          ZJP    STI2        IF *ORET* ERROR FLAG SET

Line S00009 Modification History
`M01` (Added by)	`psti1`

Seq #  *Modification Id* Act 
----------------------------+
00095  M01S00009.psti1   +++|          SOD    T0
00096  M01S00010.psti1   +++|          PJN    STI1.1      IF MORE DELAY REQUIRED

Line S00051 Modification History
`M01` (Removed by)	`ns2304`

Seq #  *Modification Id* Act 
----------------------------+
00097  M01S00051.ns2304  ---|          UJN    STI1        LOOP TO RE ATTEMPT INTERLOCK

Line S00015 Modification History
`M01` (Added by)	`ns2304`

Seq #  *Modification Id* Act 
----------------------------+
00098  M01S00015.ns2304  +++|          LJM    STI1        LOOP TO RETRY INTERLOCK
00099  M00S00052.compsti +++| STI$     ENDIF
00100  M00S00053.compsti +++|          SPACE  4
00101  M00S00054.compsti +++| QUAL$    IF     -DEF,QUAL$
00102  M00S00055.compsti +++|          QUAL   *
00103  M00S00056.compsti +++| STI      EQU    /COMPSTI/STI
00104  M00S00057.compsti +++| QUAL$    ENDIF
00105  M00S00058.compsti +++|          ENDX