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