Common COMPSTI

5 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compsti +++|          CTEXT  COMPSTI - SET TRACK INTERLOCK.
00002  M01S00002.compsti +++|          SPACE  4
00003  M01S00003.compsti +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compsti +++|          QUAL   COMPSTI

Line S00005 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`281l803`

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

Line S00006 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`psti1`

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

Line S00009 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`psti1`

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

Line S00010 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00013  M02S00010.ns2415  ---|***              STI SETS WRITE INTERLOCK FOR TRACK SPECIFIED.
00014  M01S00001.ns2415  +++|***       COMPSTI SETS THE TRT INTERLOCK FOR THE TRACK SPECIFIED.
00015  M01S00011.compsti +++|*

Line S00012 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00016  M02S00012.ns2415  ---|*         IF STI$ IS DEFINED, CONTROL IS RETURNED TO THE CALLER

Line S00013 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00013.ns2415  ---|*         IF THE TRACK IS NOT INTERLOCKED.

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

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

Line S00002 Modification History
`M01` (Added by)	`ns2304`
`M02` (Updated by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00002.ns2415  ---|*         IF THE TRACK IS NOT RESERVED.
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  M01S00014.compsti +++|*

Line S00015 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00015.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT ORDINAL.
00031  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00032  M01S00016.compsti +++|*                (T6) = TRACK.
00033  M01S00017.compsti +++|*

Line S00018 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00018.ns22000 ---|*         EXIT   (A) " 0 IF ERROR FLAG SET.

Line S00019 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00035  M02S00019.ns22000 ---|*                (A) = 0 IF TRACK INTERLOCKED.
00036  M01S00002.ns22000 +++|*         EXIT   (A) = 0 IF TRACK INTERLOCKED.
00037  M01S00011.ns2415  +++|*                    = 1 IF TRACK ALREADY INTERLOCKED (STI$ DEFINED).
00038  M01S00012.ns2415  +++|*                    = 2 IF TRACK NOT RESERVED (TNR$ DEFINED).
00039  M01S00020.compsti +++|*

Line S00021 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`ns22000`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00003.psti1   ---|*         USES   CM - CM+4.
00042  M01S00003.psti1   +++|*         USES   T0, CM - CM+4.
00043  M01S00004.ns22000 +++|*
00044  M01S00005.ns22000 +++|*         MACROS DELAY, MONITOR, PAUSE.
00045  M01S00022.compsti +++|*

Line S00023 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`psti1`

Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00023.psti1   ---|*         NOTE   THIS COMMON DECK REQUIRES THE PRESENCE OF COMSCPS.
00047  M01S00004.psti1   +++|*         XREF   COMSCPS.
00048  M01S00024.compsti +++|
00049  M01S00025.compsti +++|
00050  M01S00026.compsti +++| STI$     IF     -DEF,STI$
00051  M01S00027.compsti +++| STI2     LDD    CM+1        RESTORE EXIT CONDITION
00052  M01S00028.compsti +++| STI$     ENDIF
00053  M01S00029.compsti +++|
00054  M01S00030.compsti +++| STI      SUBR               ENTRY/EXIT

Line S00031 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00055  M02S00031.ns22000 ---| STI1     LDD    T5          SET EQUIPMENT
00056  M01S00006.ns22000 +++| STI1     LDD    T5          SET EST ORDINAL
00057  M01S00003.ns2304  +++| TNR$     IF     DEF,TNR$
00058  M01S00004.ns2304  +++|          LMC    2000        SET RETURN IF TRACK NOT RESERVED
00059  M01S00005.ns2304  +++| TNR$     ENDIF
00060  M01S00032.compsti +++|          STD    CM+1
00061  M01S00033.compsti +++|          LDD    T6          SET TRACK
00062  M01S00034.compsti +++|          STD    CM+2
00063  M01S00035.compsti +++|          LDN    STIS        SET TRACK INTERLOCK
00064  M01S00036.compsti +++|          STD    CM+3
00065  M01S00037.compsti +++|          MONITOR STBM
00066  M01S00038.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` (Updated by)	`ns2415`

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00008.ns2415  ---|          NJN    STI1.0      IF NOT TRACK NOT RESERVED
00070  M01S00013.ns2415  +++|          NJN    STI1.0      IF NOT *TRACK NOT RESERVED*
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  M01S00039.compsti +++| STI$     IF     DEF,STI$
00077  M01S00040.compsti +++|          UJN    STIX        RETURN
00078  M01S00041.compsti +++| STI$     ELSE
00079  M01S00042.compsti +++|          ZJN    STIX        IF INTERLOCK SET
00080  M01S00043.compsti +++|

Line S00044 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`psti1`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00005.ns2415  ---|*         DELAY 1/4 SECOND AND RETRY.
00083  M01S00014.ns2415  +++|*         DELAY 100 MILLISECONDS AND RETRY.
00084  M01S00045.compsti +++|

Line S00046 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`psti1`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00006.ns2415  ---|          LDC    3000
00087  M01S00015.ns2415  +++|          LDC    1400
00088  M01S00007.psti1   +++|          STD    T0
00089  M01S00008.psti1   +++| STI1.1   DELAY
00090  M01S00047.compsti +++|          PAUSE
00091  M01S00048.compsti +++|          LDD    CM+1
00092  M01S00049.compsti +++|          LMN    ORET

Line S00050 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`ns2304`

Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00050.ns2304  ---|          ZJN    STI2        IF *ORET* ERROR FLAG SET
00094  M01S00014.ns2304  +++|          ZJP    STI2        IF *ORET* ERROR FLAG SET
00095  M01S00009.psti1   +++|          SOD    T0
00096  M01S00010.psti1   +++|          PJN    STI1.1      IF MORE DELAY REQUIRED

Line S00051 Modification History
`M01` (Added by)	`compsti`
`M02` (Updated by)	`ns2304`

Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00051.ns2304  ---|          UJN    STI1        LOOP TO RE ATTEMPT INTERLOCK
00098  M01S00015.ns2304  +++|          LJM    STI1        LOOP TO RETRY INTERLOCK
00099  M01S00052.compsti +++| STI$     ENDIF
00100  M01S00053.compsti +++|          SPACE  4
00101  M01S00054.compsti +++| QUAL$    IF     -DEF,QUAL$
00102  M01S00055.compsti +++|          QUAL   *
00103  M01S00056.compsti +++| STI      EQU    /COMPSTI/STI
00104  M01S00057.compsti +++| QUAL$    ENDIF
00105  M01S00058.compsti +++|          ENDX