Common COMPSUD

2 Modifications

Source

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

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

Seq #  *Modification Id* Act 
----------------------------+
00001  M02S00001.251l670 ---|          CTEXT  COMPSUD - SPIN UP/DOWN ISMD DRIVES.
00002  M01S00001.251l670 +++|          CTEXT  COMPSUD - SPIN UP/DOWN MASS STORAGE DEVICES.
00003  M01S00002.compsud +++| SUD      SPACE  4,10
00004  M01S00003.compsud +++|          IF     -DEF,QUAL$,1
00005  M01S00004.compsud +++|          QUAL   COMPSUD

Line S00005 Modification History
`M01` (Added by)	`compsud`
`M02` (Updated by)	`281l803`

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

Line S00007 Modification History
`M01` (Added by)	`compsud`
`M02` (Updated by)	`251l670`

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

Line S00011 Modification History
`M01` (Added by)	`compsud`
`M02` (Updated by)	`251l670`

Seq #  *Modification Id* Act 
----------------------------+
00014  M02S00011.251l670 ---|*         OR SPIN DOWN ISMD DEVICES.  IF SPIN UP IS SELECTED

Line S00012 Modification History
`M01` (Added by)	`compsud`
`M02` (Updated by)	`251l670`

Seq #  *Modification Id* Act 
----------------------------+
00015  M02S00012.251l670 ---|*         ONLY THOSE DEVICES THAT ARE ON AND NOT UNLOADED

Line S00013 Modification History
`M01` (Added by)	`compsud`
`M02` (Updated by)	`251l670`

Seq #  *Modification Id* Act 
----------------------------+
00016  M02S00013.251l670 ---|*         WILL BE ACTED UPON.
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  M01S00014.compsud +++|*
00021  M01S00015.compsud +++|*         ENTRY  (A) = 0 TO SPIN UP DEVICES.
00022  M01S00016.compsud +++|*                    = 20 TO SPIN DOWN DEVICES.
00023  M01S00017.compsud +++|*
00024  M01S00018.compsud +++|*         EXIT   (A) = 0.
00025  M01S00019.compsud +++|*
00026  M01S00020.compsud +++|*         USES   CM - CM+4.
00027  M01S00021.compsud +++|*
00028  M01S00022.compsud +++|*         MACROS EXECUTE, SFA.
00029  M01S00023.compsud +++|
00030  M01S00024.compsud +++|
00031  M01S00025.compsud +++| SUD      SUBR               ENTRY/EXIT
00032  M01S00026.compsud +++|          LPN    20
00033  M01S00027.compsud +++|          STM    OVL0        SET OPTION
00034  M01S00028.compsud +++|          EXECUTE  0SD,OVL0+2
00035  M01S00029.compsud +++|          STM    SUDA        SET PROCESSOR ENTRY ADDRESS
00036  M01S00030.compsud +++|          LDN    ESTP
00037  M01S00031.compsud +++|          CRD    CM
00038  M01S00032.compsud +++|          LDD    CM+3        LAST MASS STORAGE EST ORDINAL + 1
00039  M01S00033.compsud +++|          STM    OVL0+1
00040  M01S00034.compsud +++| SUD1     SOM    OVL0+1
00041  M01S00035.compsud +++|          ZJN    SUDX        IF END OF MASS STORAGE DEVICES
00042  M01S00036.compsud +++|          SFA    EST
00043  M01S00006.251l670 +++|          ADK    EQDE
00044  M01S00037.compsud +++|          CRD    CM          READ EST ENTRY
00045  M01S00038.compsud +++|          LDD    CM
00046  M01S00039.compsud +++|          SHN    21-13
00047  M01S00040.compsud +++|          PJN    SUD1        IF NOT A MASS STORAGE DEVICE
00048  M01S00041.compsud +++|          LDM    OVL0
00049  M01S00042.compsud +++|          NJN    SUD2        IF SPIN DOWN OPERATION
00050  M01S00043.compsud +++|          LDD    CM
00051  M01S00044.compsud +++|          LPN    2
00052  M01S00045.compsud +++|          NJN    SUD1        IF DEVICE IS OFF OR DOWN
00053  M01S00046.compsud +++|          LDD    CM+4
00054  M01S00047.compsud +++|          SHN    3
00055  M01S00048.compsud +++|          ADN    STLL        FETCH MST STATUS WORD
00056  M01S00049.compsud +++|          CRD    CM
00057  M01S00050.compsud +++|          LDD    CM
00058  M01S00051.compsud +++|          LPN    MLDUL
00059  M01S00052.compsud +++|          NJN    SUD1        IF DEVICE UNLOADED
00060  M01S00053.compsud +++| SUD2     RJM    0
00061  M01S00054.compsud +++| SUDA     EQU    *-1
00062  M01S00055.compsud +++|          UJN    SUD1        PROCESS NEXT EST ENTRY
00063  M01S00056.compsud +++| SUD      SPACE  4,10
00064  M01S00057.compsud +++|          IF     -DEF,QUAL$
00065  M01S00058.compsud +++|          QUAL   *
00066  M01S00059.compsud +++| SUD      EQU    /COMPSUD/SUD
00067  M01S00060.compsud +++|          ENDIF
00068  M01S00061.compsud +++|          ENDX