Common COMPSUD

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+

Line S00001 Modification History
`M01` (Removed by)	`251l670`

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.251l670 ---|          CTEXT  COMPSUD - SPIN UP/DOWN ISMD DRIVES.

Line S00001 Modification History
`M01` (Added by)	`251l670`

Seq #  *Modification Id* Act 
----------------------------+
00002  M01S00001.251l670 +++|          CTEXT  COMPSUD - SPIN UP/DOWN MASS STORAGE DEVICES.
00003  M00S00002.compsud +++| SUD      SPACE  4,10
00004  M00S00003.compsud +++|          IF     -DEF,QUAL$,1
00005  M00S00004.compsud +++|          QUAL   COMPSUD

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00006.compsud +++| SUD      SPACE  4,10

Line S00007 Modification History
`M01` (Removed by)	`251l670`

Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00007.251l670 ---|***       SUD - SPIN UP/DOWN ISMD DRIVES.

Line S00002 Modification History
`M01` (Added by)	`251l670`

Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00002.251l670 +++|***       SUD - SPIN UP/DOWN MASS STORAGE DEVICES.
00011  M00S00008.compsud +++|*         M. L. SWANSON.     85/10/11.
00012  M00S00009.compsud +++| SUD      SPACE  4,10
00013  M00S00010.compsud +++|***              SUD PROVIDES THE UTILITY TO EITHER SPIN UP

Line S00011 Modification History
`M01` (Removed by)	`251l670`

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00011.251l670 ---|*         OR SPIN DOWN ISMD DEVICES.  IF SPIN UP IS SELECTED
00015  M01S00012.251l670 ---|*         ONLY THOSE DEVICES THAT ARE ON AND NOT UNLOADED
00016  M01S00013.251l670 ---|*         WILL BE ACTED UPON.

Line S00003 Modification History
`M01` (Added by)	`251l670`

Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00003.251l670 +++|*         OR SPIN DOWN MASS STORAGE DEVICES.  IF SPIN UP IS
00018  M01S00004.251l670 +++|*         SELECTED, ONLY THOSE DEVICES THAT ARE ON AND NOT
00019  M01S00005.251l670 +++|*         UNLOADED WILL BE ACTED UPON.
00020  M00S00014.compsud +++|*
00021  M00S00015.compsud +++|*         ENTRY  (A) = 0 TO SPIN UP DEVICES.
00022  M00S00016.compsud +++|*                    = 20 TO SPIN DOWN DEVICES.
00023  M00S00017.compsud +++|*
00024  M00S00018.compsud +++|*         EXIT   (A) = 0.
00025  M00S00019.compsud +++|*
00026  M00S00020.compsud +++|*         USES   CM - CM+4.
00027  M00S00021.compsud +++|*
00028  M00S00022.compsud +++|*         MACROS EXECUTE, SFA.
00029  M00S00023.compsud +++|
00030  M00S00024.compsud +++|
00031  M00S00025.compsud +++| SUD      SUBR               ENTRY/EXIT
00032  M00S00026.compsud +++|          LPN    20
00033  M00S00027.compsud +++|          STM    OVL0        SET OPTION
00034  M00S00028.compsud +++|          EXECUTE  0SD,OVL0+2
00035  M00S00029.compsud +++|          STM    SUDA        SET PROCESSOR ENTRY ADDRESS
00036  M00S00030.compsud +++|          LDN    ESTP
00037  M00S00031.compsud +++|          CRD    CM
00038  M00S00032.compsud +++|          LDD    CM+3        LAST MASS STORAGE EST ORDINAL + 1
00039  M00S00033.compsud +++|          STM    OVL0+1
00040  M00S00034.compsud +++| SUD1     SOM    OVL0+1
00041  M00S00035.compsud +++|          ZJN    SUDX        IF END OF MASS STORAGE DEVICES
00042  M00S00036.compsud +++|          SFA    EST

Line S00006 Modification History
`M01` (Added by)	`251l670`

Seq #  *Modification Id* Act 
----------------------------+
00043  M01S00006.251l670 +++|          ADK    EQDE
00044  M00S00037.compsud +++|          CRD    CM          READ EST ENTRY
00045  M00S00038.compsud +++|          LDD    CM
00046  M00S00039.compsud +++|          SHN    21-13
00047  M00S00040.compsud +++|          PJN    SUD1        IF NOT A MASS STORAGE DEVICE
00048  M00S00041.compsud +++|          LDM    OVL0
00049  M00S00042.compsud +++|          NJN    SUD2        IF SPIN DOWN OPERATION
00050  M00S00043.compsud +++|          LDD    CM
00051  M00S00044.compsud +++|          LPN    2
00052  M00S00045.compsud +++|          NJN    SUD1        IF DEVICE IS OFF OR DOWN
00053  M00S00046.compsud +++|          LDD    CM+4
00054  M00S00047.compsud +++|          SHN    3
00055  M00S00048.compsud +++|          ADN    STLL        FETCH MST STATUS WORD
00056  M00S00049.compsud +++|          CRD    CM
00057  M00S00050.compsud +++|          LDD    CM
00058  M00S00051.compsud +++|          LPN    MLDUL
00059  M00S00052.compsud +++|          NJN    SUD1        IF DEVICE UNLOADED
00060  M00S00053.compsud +++| SUD2     RJM    0
00061  M00S00054.compsud +++| SUDA     EQU    *-1
00062  M00S00055.compsud +++|          UJN    SUD1        PROCESS NEXT EST ENTRY
00063  M00S00056.compsud +++| SUD      SPACE  4,10
00064  M00S00057.compsud +++|          IF     -DEF,QUAL$
00065  M00S00058.compsud +++|          QUAL   *
00066  M00S00059.compsud +++| SUD      EQU    /COMPSUD/SUD
00067  M00S00060.compsud +++|          ENDIF
00068  M00S00061.compsud +++|          ENDX