Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.compsut +++| CTEXT COMPSUT - SET PERMANENT FILE DEVICE INTERLOCK.
00002 M01S00002.compsut +++| SPACE 4
00003 M01S00003.compsut +++| IF -DEF,QUAL$,1
00004 M01S00004.compsut +++| QUAL COMPSUT
| Line S00005 Modification History |
M01 (Added by) | compsut |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00005 M02S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00007 M01S00006.compsut +++| SUT SPACE 4
00008 M01S00007.compsut +++|*** SUT - SET PERMANENT FILE DEVICE INTERLOCK.
00009 M01S00008.compsut +++|* R. J. THIELEN. 75/04/17.
00010 M01S00009.compsut +++|* C. R. LUND. 81/06/09.
00011 M01S00010.compsut +++| SUT SPACE 4
00012 M01S00011.compsut +++|* SUT SETS THE PERMANENT FILE DEVICE INTERLOCK ON A
00013 M01S00012.compsut +++|* MASS STORAGE EQUIPMENT. STATUS IS RETURNED TO INDICATE IF
00014 M01S00013.compsut +++|* THE INTERLOCK HAS BEEN SET OR IF PF SYSTEM ACTIVITY
00015 M01S00014.compsut +++|* PROHIBITED SETTING THE INTERLOCK. IF THE DEVICE INTERLOCK
00016 M01S00015.compsut +++|* HAS BEEN SET BY ANOTHER PP, THE ROUTINE EXITS AND THE
00017 M01S00016.compsut +++|* CALLING PROGRAM SHOULD BE PLACED ON RECALL. IF THE INTER-
00018 M01S00017.compsut +++|* LOCK IS SET BUT PF ACTIVITY REMAINS AFTER APPROXIMATELY 1
00019 M01S00018.compsut +++|* SECOND, THE INTERLOCK IS RELEASED AND THE CALLING PROGRAM
00020 M01S00019.compsut +++|* SHOULD BE PLACED ON RECALL. IF THE INTERLOCK IS OBTAINED
00021 M01S00020.compsut +++|* WITH NO PF ACTIVITY PRESENT, SUBSEQUENT PF ACTIVITY ON THIS
00022 M01S00021.compsut +++|* DEVICE IS DISALLOWED UNTIL THE CALLING PROGRAM HAS RELEASED
00023 M01S00022.compsut +++|* THE INTERLOCK.
00024 M01S00023.compsut +++|*
00025 M01S00024.compsut +++|* ENTRY (T5) = EQUIPMENT TO SET INTERLOCK ON.
00026 M01S00025.compsut +++|*
00027 M01S00026.compsut +++|* EXIT (A) = 0 IF INTERLOCK SET.
00028 M01S00027.compsut +++|* .NE. 0 IF INTERLOCK NOT SET.
00029 M01S00028.compsut +++|*
00030 M01S00029.compsut +++|* USES T1, T2, CM - CM+4.
00031 M01S00030.compsut +++|*
00032 M01S00031.compsut +++|* CALLS CUT.
00033 M01S00032.compsut +++|*
| Line S00033 Modification History |
M01 (Added by) | compsut |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00034 M02S00033.ns22000 ---|* MACROS DELAY, MONITOR, PAUSE.
00035 M01S00001.ns22000 +++|* MACROS DELAY, MONITOR, PAUSE, SFA.
00036 M01S00034.compsut +++|*
00037 M01S00035.compsut +++|* NOTE THIS COMMON DECK REQUIRES THE PRESENCE OF *COMSCPS*
00038 M01S00036.compsut +++|* AND *COMPCUT*.
00039 M01S00037.compsut +++|
00040 M01S00038.compsut +++|
00041 M01S00039.compsut +++| SUT SUBR ENTRY/EXIT
| Line S00040 Modification History |
M01 (Added by) | compsut |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00042 M02S00040.ns22000 ---| LDD T5 EQUIPMENT NUMBER
00043 M01S00002.ns22000 +++| LDD T5 EST ORDINAL
00044 M01S00041.compsut +++| STD CM+1
00045 M01S00042.compsut +++| LDN SPIS SET DEVICE PF INTERLOCK
00046 M01S00043.compsut +++| STD CM+3
00047 M01S00044.compsut +++| MONITOR STBM
00048 M01S00045.compsut +++| LDD CM+1
00049 M01S00046.compsut +++| SUT1 ZJN SUTX IF DEVICE INTERLOCKED
00050 M01S00047.compsut +++| SHN -6
00051 M01S00048.compsut +++| NJN SUTX IF DEVICE INTERLOCKED BY ANOTHER PP
00052 M01S00049.compsut +++| LDN 2 INITIALIZE RETRY LOOP COUNTER
00053 M01S00050.compsut +++| STD T1
00054 M01S00051.compsut +++| SUT2 LDC 500000D/150D INITIALIZE APPROX. 1/2 SECOND LOOP
00055 M01S00052.compsut +++| STD T2
00056 M01S00053.compsut +++| SUT3 DELAY
00057 M01S00054.compsut +++| PAUSE NE
| Line S00055 Modification History |
M01 (Added by) | compsut |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00058 M02S00055.ns22000 ---| LDD T5 GET FWA/10B OF MST
| Line S00056 Modification History |
M01 (Added by) | compsut |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00059 M02S00056.ns22000 ---| ADM ESTS
00060 M01S00003.ns22000 +++| SFA EST,T5 GET FWA/10B OF MST
00061 M01S00004.ns22000 +++| ADK EQDE
00062 M01S00057.compsut +++| CRD CM
00063 M01S00058.compsut +++| LDD CM+4 READ TDGL IN MST
00064 M01S00059.compsut +++| SHN 3
00065 M01S00060.compsut +++|* ADN TDGL
00066 M01S00061.compsut +++| ERRNZ TDGL-0 ERROR IF WORD POSITION CHANGES
00067 M01S00062.compsut +++| CRD CM
00068 M01S00063.compsut +++| LDD CM+1
00069 M01S00064.compsut +++| LPN 77
00070 M01S00065.compsut +++| SUT4 ZJN SUT1 IF PF ACTIVITY ON DEVICE DONE
00071 M01S00066.compsut +++| SOD T2
00072 M01S00067.compsut +++| MJN SUT5 IF TIME LIMIT UP
00073 M01S00068.compsut +++| NJN SUT3 IF TIME FOR ANOTHER MST CHECK
00074 M01S00069.compsut +++|
00075 M01S00070.compsut +++|* ISSUE UTRS SUBFUNCTION AFTER APPROXIMATELY 1/2 SECOND TO
00076 M01S00071.compsut +++|* OBTAIN AN UP-TO-DATE COPY OF THE GLOBAL MST IN CM.
00077 M01S00072.compsut +++|
| Line S00073 Modification History |
M01 (Added by) | compsut |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00078 M02S00073.ns22000 ---| LDD T5 EQUIPMENT NUMBER
00079 M01S00005.ns22000 +++| LDD T5 EST ORDINAL
00080 M01S00074.compsut +++| STD CM+1
00081 M01S00075.compsut +++| LDN UTRS OBTAIN UP-TO-DATE COPY OF GLOBAL MST
00082 M01S00076.compsut +++| STD CM+3
00083 M01S00077.compsut +++| MONITOR STBM
00084 M01S00078.compsut +++|
00085 M01S00079.compsut +++|* WHEN (T1) = (T2) = 0, ONE FINAL CHECK OF THE MST IN CM IS
00086 M01S00080.compsut +++|* PERFORMED TO DETERMINE IF PF ACTIVITY HAS GONE AWAY.
00087 M01S00081.compsut +++|
00088 M01S00082.compsut +++| SOD T1
00089 M01S00083.compsut +++| ZJN SUT3 IF TIME FOR FINAL CHECK FOR PF ACTIVITY
00090 M01S00084.compsut +++| LJM SUT2 RESET TIME FOR ANOTHER 1/2 SECOND
00091 M01S00085.compsut +++|
00092 M01S00086.compsut +++|* PF ACTIVITY HAS NOT GONE AWAY AFTER APPROXIMATELY 1 SECOND
00093 M01S00087.compsut +++|* OF CHECKING. CLEAR THE DEVICE PF INTERLOCK TO ALLOW PF
00094 M01S00088.compsut +++|* ACTIVITY ON THE DEVICE, RECALL THIS PP, AND TRY LATER.
00095 M01S00089.compsut +++|
00096 M01S00090.compsut +++| SUT5 RJM CUT CLEAR DEVICE INTERLOCK
00097 M01S00091.compsut +++| LDN 1 INDICATE DEVICE NOT INTERLOCKED
00098 M01S00092.compsut +++| LJM SUTX EXIT
00099 M01S00093.compsut +++| SPACE 4
00100 M01S00094.compsut +++| QUAL$ IF -DEF,QUAL$
00101 M01S00095.compsut +++| QUAL *
00102 M01S00096.compsut +++| SUT EQU /COMPSUT/SUT
00103 M01S00097.compsut +++| QUAL$ ENDIF
00104 M01S00098.compsut +++| ENDX