Common COMPSUT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsut +++|          CTEXT  COMPSUT - SET PERMANENT FILE DEVICE INTERLOCK.
00002  M00S00002.compsut +++|          SPACE  4
00003  M00S00003.compsut +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compsut +++|          QUAL   COMPSUT

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compsut +++| SUT      SPACE  4
00008  M00S00007.compsut +++|***       SUT - SET PERMANENT FILE DEVICE INTERLOCK.
00009  M00S00008.compsut +++|*         R. J. THIELEN.     75/04/17.
00010  M00S00009.compsut +++|*         C. R. LUND.        81/06/09.
00011  M00S00010.compsut +++| SUT      SPACE  4
00012  M00S00011.compsut +++|*                SUT SETS THE PERMANENT FILE DEVICE INTERLOCK ON A
00013  M00S00012.compsut +++|*         MASS STORAGE EQUIPMENT.  STATUS IS RETURNED TO INDICATE IF
00014  M00S00013.compsut +++|*         THE INTERLOCK HAS BEEN SET OR IF PF SYSTEM ACTIVITY
00015  M00S00014.compsut +++|*         PROHIBITED SETTING THE INTERLOCK.  IF THE DEVICE INTERLOCK
00016  M00S00015.compsut +++|*         HAS BEEN SET BY ANOTHER PP, THE ROUTINE EXITS AND THE
00017  M00S00016.compsut +++|*         CALLING PROGRAM SHOULD BE PLACED ON RECALL.  IF THE INTER-
00018  M00S00017.compsut +++|*         LOCK IS SET BUT PF ACTIVITY REMAINS AFTER APPROXIMATELY 1
00019  M00S00018.compsut +++|*         SECOND, THE INTERLOCK IS RELEASED AND THE CALLING PROGRAM
00020  M00S00019.compsut +++|*         SHOULD BE PLACED ON RECALL.  IF THE INTERLOCK IS OBTAINED
00021  M00S00020.compsut +++|*         WITH NO PF ACTIVITY PRESENT, SUBSEQUENT PF ACTIVITY ON THIS
00022  M00S00021.compsut +++|*         DEVICE IS DISALLOWED UNTIL THE CALLING PROGRAM HAS RELEASED
00023  M00S00022.compsut +++|*         THE INTERLOCK.
00024  M00S00023.compsut +++|*
00025  M00S00024.compsut +++|*         ENTRY  (T5) = EQUIPMENT TO SET INTERLOCK ON.
00026  M00S00025.compsut +++|*
00027  M00S00026.compsut +++|*         EXIT   (A) = 0 IF INTERLOCK SET.
00028  M00S00027.compsut +++|*                    .NE. 0 IF INTERLOCK NOT SET.
00029  M00S00028.compsut +++|*
00030  M00S00029.compsut +++|*         USES   T1, T2, CM - CM+4.
00031  M00S00030.compsut +++|*
00032  M00S00031.compsut +++|*         CALLS  CUT.
00033  M00S00032.compsut +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00033.ns22000 ---|*         MACROS DELAY, MONITOR, PAUSE.

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

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00001.ns22000 +++|*         MACROS DELAY, MONITOR, PAUSE, SFA.
00036  M00S00034.compsut +++|*
00037  M00S00035.compsut +++|*         NOTE   THIS COMMON DECK REQUIRES THE PRESENCE OF *COMSCPS*
00038  M00S00036.compsut +++|*                AND *COMPCUT*.
00039  M00S00037.compsut +++|
00040  M00S00038.compsut +++|
00041  M00S00039.compsut +++| SUT      SUBR               ENTRY/EXIT

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

Seq #  *Modification Id* Act 
----------------------------+
00042  M01S00040.ns22000 ---|          LDD    T5          EQUIPMENT NUMBER

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

Seq #  *Modification Id* Act 
----------------------------+
00043  M01S00002.ns22000 +++|          LDD    T5          EST ORDINAL
00044  M00S00041.compsut +++|          STD    CM+1
00045  M00S00042.compsut +++|          LDN    SPIS        SET DEVICE PF INTERLOCK
00046  M00S00043.compsut +++|          STD    CM+3
00047  M00S00044.compsut +++|          MONITOR STBM
00048  M00S00045.compsut +++|          LDD    CM+1
00049  M00S00046.compsut +++| SUT1     ZJN    SUTX        IF DEVICE INTERLOCKED
00050  M00S00047.compsut +++|          SHN    -6
00051  M00S00048.compsut +++|          NJN    SUTX        IF DEVICE INTERLOCKED BY ANOTHER PP
00052  M00S00049.compsut +++|          LDN    2           INITIALIZE RETRY LOOP COUNTER
00053  M00S00050.compsut +++|          STD    T1
00054  M00S00051.compsut +++| SUT2     LDC    500000D/150D INITIALIZE APPROX. 1/2 SECOND LOOP
00055  M00S00052.compsut +++|          STD    T2
00056  M00S00053.compsut +++| SUT3     DELAY
00057  M00S00054.compsut +++|          PAUSE  NE

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

Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00055.ns22000 ---|          LDD    T5          GET FWA/10B OF MST
00059  M01S00056.ns22000 ---|          ADM    ESTS

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

Seq #  *Modification Id* Act 
----------------------------+
00060  M01S00003.ns22000 +++|          SFA    EST,T5      GET FWA/10B OF MST
00061  M01S00004.ns22000 +++|          ADK    EQDE
00062  M00S00057.compsut +++|          CRD    CM
00063  M00S00058.compsut +++|          LDD    CM+4        READ TDGL IN MST
00064  M00S00059.compsut +++|          SHN    3
00065  M00S00060.compsut +++|*         ADN    TDGL
00066  M00S00061.compsut +++|          ERRNZ  TDGL-0      ERROR IF WORD POSITION CHANGES
00067  M00S00062.compsut +++|          CRD    CM
00068  M00S00063.compsut +++|          LDD    CM+1
00069  M00S00064.compsut +++|          LPN    77
00070  M00S00065.compsut +++| SUT4     ZJN    SUT1        IF PF ACTIVITY ON DEVICE DONE
00071  M00S00066.compsut +++|          SOD    T2
00072  M00S00067.compsut +++|          MJN    SUT5        IF TIME LIMIT UP
00073  M00S00068.compsut +++|          NJN    SUT3        IF TIME FOR ANOTHER MST CHECK
00074  M00S00069.compsut +++|
00075  M00S00070.compsut +++|*         ISSUE UTRS SUBFUNCTION AFTER APPROXIMATELY 1/2 SECOND TO
00076  M00S00071.compsut +++|*         OBTAIN AN UP-TO-DATE COPY OF THE GLOBAL MST IN CM.
00077  M00S00072.compsut +++|

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

Seq #  *Modification Id* Act 
----------------------------+
00078  M01S00073.ns22000 ---|          LDD    T5          EQUIPMENT NUMBER

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

Seq #  *Modification Id* Act 
----------------------------+
00079  M01S00005.ns22000 +++|          LDD    T5          EST ORDINAL
00080  M00S00074.compsut +++|          STD    CM+1
00081  M00S00075.compsut +++|          LDN    UTRS        OBTAIN UP-TO-DATE COPY OF GLOBAL MST
00082  M00S00076.compsut +++|          STD    CM+3
00083  M00S00077.compsut +++|          MONITOR STBM
00084  M00S00078.compsut +++|
00085  M00S00079.compsut +++|*         WHEN (T1) = (T2) = 0, ONE FINAL CHECK OF THE MST IN CM IS
00086  M00S00080.compsut +++|*         PERFORMED TO DETERMINE IF PF ACTIVITY HAS GONE AWAY.
00087  M00S00081.compsut +++|
00088  M00S00082.compsut +++|          SOD    T1
00089  M00S00083.compsut +++|          ZJN    SUT3        IF TIME FOR FINAL CHECK FOR PF ACTIVITY
00090  M00S00084.compsut +++|          LJM    SUT2        RESET TIME FOR ANOTHER 1/2 SECOND
00091  M00S00085.compsut +++|
00092  M00S00086.compsut +++|*         PF ACTIVITY HAS NOT GONE AWAY AFTER APPROXIMATELY 1 SECOND
00093  M00S00087.compsut +++|*         OF CHECKING.  CLEAR THE DEVICE PF INTERLOCK TO ALLOW PF
00094  M00S00088.compsut +++|*         ACTIVITY ON THE DEVICE, RECALL THIS PP, AND TRY LATER.
00095  M00S00089.compsut +++|
00096  M00S00090.compsut +++| SUT5     RJM    CUT         CLEAR DEVICE INTERLOCK
00097  M00S00091.compsut +++|          LDN    1           INDICATE DEVICE NOT INTERLOCKED
00098  M00S00092.compsut +++|          LJM    SUTX        EXIT
00099  M00S00093.compsut +++|          SPACE  4
00100  M00S00094.compsut +++| QUAL$    IF     -DEF,QUAL$
00101  M00S00095.compsut +++|          QUAL   *
00102  M00S00096.compsut +++| SUT      EQU    /COMPSUT/SUT
00103  M00S00097.compsut +++| QUAL$    ENDIF
00104  M00S00098.compsut +++|          ENDX