Common COMPSUT

2 Modifications

Source

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