Common COMPSCA

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsca +++|          CTEXT  COMPSCA - SET CATALOG ADDRESS.
00002  M00S00002.compsca +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compsca +++|          QUAL   COMPSCA

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compsca +++|          SPACE  4
00006  M00S00005.compsca +++|***       SCA - SET CATALOG ADDRESS.
00007  M00S00006.compsca +++|*         G. R. MANSFIELD.   70/12/10.
00008  M00S00007.compsca +++|*         J. L. WARDELL.     72/08/24.
00009  M00S00008.compsca +++|*         P. D. HAAS.        74/10/16.
00010  M00S00009.compsca +++|          SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00010.ns22000 ---|***              SCA SETS THE EQUIPMENT NUMBER AND CATALOG TRACK FOR A

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

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00001.ns22000 +++|***              SCA SETS THE EST ORDINAL AND CATALOG TRACK FOR A
00013  M00S00011.compsca +++|*         SPECIFIED USER INDEX.
00014  M00S00012.compsca +++|*
00015  M00S00013.compsca +++|*         IF THE SYMBOL SCA$ IS DEFINED IN THE CALLING PROGRAM,
00016  M00S00014.compsca +++|*         A MATCHING DEVICE WITH THE *UNLOAD* FLAG SET WILL
00017  M00S00015.compsca +++|*         NOT BE REJECTED.
00018  M00S00016.compsca +++|*
00019  M00S00017.compsca +++|*         ENTRY  (UI - UI+1) = USER INDEX.
00020  M00S00018.compsca +++|*                (A) = ADDRESS OF PERMANENT FILE DEVICE DESCRIPTION.
00021  M01S00002.ns22000 +++|*T PFD    42/ NAME, 6/, 12/ EST ORDINAL

Figure PFD

00022  M00S00019.compsca +++|*

Line S00020 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00020.242l642 ---|*         EXIT   (A) > 0  IF DEVICE FOUND. (A) = ADDRESS OF MST/10.
00024  M01S00021.242l642 ---|*                (A) < 0  IF DEVICE NOT FOUND.

Line S00001 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00025  M01S00001.242l642 +++|*         EXIT   (A) .GT. 0  IF DEVICE FOUND. (A) = ADDRESS OF MST/10.
00026  M01S00002.242l642 +++|*                (A) = -0 IF DEVICE NOT FOUND.
00027  M01S00003.242l642 +++|*                (A) = -1 IF DEVICE ACCESS DENIED BY *SETMS*.

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

Seq #  *Modification Id* Act 
----------------------------+
00028  M01S00022.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.

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

Seq #  *Modification Id* Act 
----------------------------+
00029  M01S00003.ns22000 +++|*                (T5) = EST ORDINAL.
00030  M00S00023.compsca +++|*                (T6) = CATALOG TRACK.
00031  M00S00024.compsca +++|*
00032  M00S00025.compsca +++|*         USES   T0 - T7, CM - CM+6, FN - FN+4.
00033  M01S00004.ns22000 +++|*

Line S00005 Modification History
`M01` (Added by)	`ns22000`
`M02` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00005.242l642 ---|*         MACROS MONITOR, SFA.

Line S00026 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00026.242l642 ---|          SPACE  4
00036  M01S00027.242l642 ---|*         INSTRUCTIONS USED AS CONSTANTS.
00037  M01S00028.242l642 ---|
00038  M01S00029.242l642 ---|
00039  M01S00030.242l642 ---| SHNI     EQU    1000        SHN
00040  M01S00031.242l642 ---| ADCI     EQU    2100        ADC

Line S00004 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00041  M01S00004.242l642 +++|*         MACROS MONITOR, SETMS, SFA.
00042  M01S00005.242l642 +++|*
00043  M01S00006.242l642 +++|*         XREF   COMSPIM.
00044  M00S00032.compsca +++|
00045  M00S00033.compsca +++|
00046  M00S00034.compsca +++| SCA      SUBR               ENTRY/EXIT
00047  M00S00035.compsca +++|          STM    SCAA        SET ADDRESS OF DEVICE DESCRIPTION
00048  M00S00036.compsca +++|          LDD    MA
00049  M00S00037.compsca +++|          CWM    *,ON
00050  M00S00038.compsca +++| SCAA     EQU    *-1
00051  M00S00039.compsca +++|          SBN    1
00052  M00S00040.compsca +++|          CRD    FN
00053  M00S00041.compsca +++|          LDD    UI+1        SET EQUIPMENT SHIFT
00054  M00S00042.compsca +++|          LPN    7
00055  M00S00043.compsca +++|          SBN    21
00056  M00S00044.compsca +++|          LMC    -SHNI
00057  M00S00045.compsca +++|          STM    SCAB
00058  M00S00046.compsca +++|
00059  M00S00047.compsca +++|*         SET UP FOR EST SEARCH.
00060  M00S00048.compsca +++|
00061  M00S00049.compsca +++|          LDN    ESTP
00062  M00S00050.compsca +++|          CRD    T1
00063  M00S00051.compsca +++|          LDN    1           SET CHECK FOR AUXILIARY DEVICE
00064  M00S00052.compsca +++|          STD    T7

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

Seq #  *Modification Id* Act 
----------------------------+
00065  M01S00053.ns22000 ---|          LDD    T1+2        SET LAST MASS STORAGE EQUIPMENT NUMBER
00066  M01S00054.ns22000 ---|          SBD    T1
00067  M01S00055.ns22000 ---|          STD    T5

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

Seq #  *Modification Id* Act 
----------------------------+
00068  M01S00006.ns22000 +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
00069  M01S00007.ns22000 +++|          STD    T5
00070  M01S00008.ns22000 +++|          LDD    T1+3        SET LAST MASS STORAGE ORDINAL + 1
00071  M01S00009.ns22000 +++|          STD    T6
00072  M00S00056.compsca +++|          LDD    FN
00073  M00S00057.compsca +++|          NJN    SCA1        IF AUXILIARY DEVICE REQUEST
00074  M00S00058.compsca +++|          STD    T7          SET CHECK FOR NON-AUXILIARY DEVICE

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

Seq #  *Modification Id* Act 
----------------------------+
00075  M01S00059.ns22000 ---|          LDD    FN+3        SET EQUIPMENT NUMBER FOR FAMILY
00076  M01S00060.ns22000 ---|          LPN    77
00077  M01S00061.ns22000 ---|          ADM    ESTS

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

Seq #  *Modification Id* Act 
----------------------------+
00078  M01S00010.ns22000 +++|          SFA    EST,FN+4    READ EST ENTRY
00079  M01S00011.ns22000 +++|          ADK    EQDE
00080  M00S00062.compsca +++|          CRD    T0          READ EST ENTRY
00081  M00S00063.compsca +++|          LDD    T0+4        READ PERMANENT FILE DESCRIPTION
00082  M00S00064.compsca +++|          SHN    3
00083  M00S00065.compsca +++|          ADN    PFGL
00084  M00S00066.compsca +++|          CRD    FN

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

Seq #  *Modification Id* Act 
----------------------------+
00085  M01S00067.ns22000 ---| SCA1     SOD    T5          DECREMENT EQUIPMENT NUMBER
00086  M01S00068.ns22000 ---|          PJN    SCA2        IF MORE EQUIPMENTS TO CHECK

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

Seq #  *Modification Id* Act 
----------------------------+
00087  M01S00012.ns22000 +++| SCA1     AOD    T5          ADVANCE EST ORDINAL
00088  M01S00013.ns22000 +++|          LMD    T6
00089  M01S00014.ns22000 +++|          NJN    SCA2        IF NOT END OF EST

Line S00015 Modification History
`M01` (Added by)	`ns22000`
`M02` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00015.242l642 ---|          LCN    0           RETURN WITH (A) .LT. 0

Line S00007 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00091  M01S00007.242l642 +++|          LCN    0           RETURN WITH (A) = -0
00092  M00S00069.compsca +++|          LJM    SCAX
00093  M00S00070.compsca +++|

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

Seq #  *Modification Id* Act 
----------------------------+
00094  M01S00071.ns22000 ---| SCA2     ADM    ESTS        READ EST ENTRY

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

Seq #  *Modification Id* Act 
----------------------------+
00095  M01S00016.ns22000 +++| SCA2     SFA    EST,T5      READ EST ENTRY
00096  M01S00017.ns22000 +++|          ADK    EQDE
00097  M00S00072.compsca +++|          CRD    T0
00098  M00S00073.compsca +++|          LDD    T0
00099  M00S00074.compsca +++|          SHN    -6
00100  M00S00075.compsca +++|          LPN    41
00101  M00S00076.compsca +++|          LMN    40
00102  M00S00077.compsca +++|          NJN    SCA1        IF UNAVAILABLE OR NON MS DEVICE

Line S00078 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00103  M01S00078.242l642 ---|          LDD    T0+3
00104  M01S00079.242l642 ---|          SHN    21-13
00105  M01S00080.242l642 ---|          MJN    SCA1        IF DEVICE *OFF*
00106  M00S00081.compsca ---|          LDD    T0+4        READ *STLL* WORD FROM MST
00107  M00S00082.compsca ---|          SHN    3
00108  M00S00083.compsca ---|          ADN    STLL
00109  M00S00084.compsca ---|          CRD    CM
00110  M00S00085.compsca ---|          SBN    STLL-MDGL   READ *MDGL*
00111  M00S00086.compsca ---|          CRD    CM+1
00112  M00S00087.compsca ---|          SBN    MDGL-PFGL   GET PF DESCRIPTOR WORD
00113  M00S00088.compsca ---|          CRD    CM+2
00114  M00S00089.compsca ---|          LDD    CM
00115  M00S00090.compsca ---| SCA$     IF     -DEF,SCA$
00116  M00S00091.compsca ---|          LPC    MLFPR+MLIAL+MLIHD+MLIFD+MLIPF+MLUNL+MLDUL
00117  M00S00092.compsca ---| SCA$     ELSE
00118  M00S00093.compsca ---|          LPC    MLFPR+MLIAL+MLIHD+MLIFD+MLIPF+MLDUL
00119  M00S00094.compsca ---| SCA$     ENDIF
00120  M00S00095.compsca ---|          NJN    SCA1        IF DEVICE UNAVAILABLE FOR THIS PF ACCESS
00121  M00S00096.compsca ---|          LDD    CM+1
00122  M00S00097.compsca ---|          SHN    -12
00123  M00S00098.compsca ---|          LPN    1
00124  M00S00099.compsca ---|          LMD    T7

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

Seq #  *Modification Id* Act 
----------------------------+
00125  M01S00100.ns22000 ---|          NJN    SCA1        IF DEVICE UNAVAILABLE FOR THIS PF ACCESS

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

Seq #  *Modification Id* Act 
----------------------------+
00126  M01S00018.ns22000 +++|          NJN    SCA3        IF DEVICE UNAVAILABLE FOR THIS PF ACCESS
00127  M00S00101.compsca +++|
00128  M00S00102.compsca +++|*         COMPARE FAMILY/PACK NAME WITH THAT REQUESTED.
00129  M00S00103.compsca +++|
00130  M00S00104.compsca +++|          LDD    FN
00131  M00S00105.compsca +++|          LMD    CM+2
00132  M00S00106.compsca +++|          NJN    SCA3        IF NO MATCH
00133  M00S00107.compsca +++|          LDD    FN+1
00134  M00S00108.compsca +++|          LMD    CM+3
00135  M00S00109.compsca +++|          NJN    SCA3        IF NO MATCH
00136  M00S00110.compsca +++|          LDD    FN+2
00137  M00S00111.compsca +++|          LMD    CM+4
00138  M00S00112.compsca +++|          NJN    SCA3        IF NO MATCH
00139  M00S00113.compsca +++|          LDD    FN+3
00140  M00S00114.compsca +++|          LMD    CM+5
00141  M00S00115.compsca +++|          SCN    77
00142  M00S00116.compsca +++|          NJN    SCA3        IF NO MATCH
00143  M00S00117.compsca +++|          LDD    T0+4        RETRIEVE MST WORDS
00144  M00S00118.compsca +++|          SHN    3
00145  M00S00119.compsca +++|          ADN    PUGL        PF USER DESCRIPTION
00146  M00S00120.compsca +++|          CRD    CM+2
00147  M00S00121.compsca +++|          SBN    PUGL-ALGL   DEVICE ALLOCATION WORD
00148  M00S00122.compsca +++|          CRD    CM
00149  M00S00123.compsca +++|          LDD    T7
00150  M00S00124.compsca +++|          NJN    SCA4        IF AUXILIARY DEVICE
00151  M00S00125.compsca +++|          LDD    CM+6        CHECK DEVICE MASK
00152  M00S00126.compsca +++| SCAB     SHN    **
00153  M00S00127.compsca +++|          MJN    SCA4        IF USERS CATALOGS ON THIS DEVICE
00154  M00S00128.compsca +++|
00155  M00S00129.compsca +++|*         NOT PROPER DEVICE PROCEED TO NEXT DEVICE.
00156  M00S00130.compsca +++|
00157  M00S00131.compsca +++| SCA3     LJM    SCA1
00158  M00S00132.compsca +++|
00159  M00S00133.compsca +++|*         DETERMINE CATALOG TRACK.
00160  M00S00134.compsca +++|
00161  M00S00135.compsca +++| SCA4     SOD    CM+3        SET MASK FOR NUMBER OF CATALOG TRACKS
00162  M00S00136.compsca +++|          STM    SCAC
00163  M00S00137.compsca +++|          LDD    UI+1
00164  M00S00138.compsca +++|          SHN    -3
00165  M00S00139.compsca +++|          LPC    *
00166  M00S00140.compsca +++| SCAC     EQU    *-1
00167  M00S00141.compsca +++|          ADN    1
00168  M00S00142.compsca +++|          STD    T7          SET CATALOG COUNT
00169  M00S00143.compsca +++|          ADD    CM+1        LABEL TRACK
00170  M00S00144.compsca +++|          STD    T6
00171  M00S00145.compsca +++|          LDD    CM+5
00172  M00S00146.compsca +++|          SHN    21-5

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

Seq #  *Modification Id* Act 
----------------------------+
00173  M01S00147.ns22000 ---|          MJN    SCA6        IF CATALOG TRACKS CONTINUOUS

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

Seq #  *Modification Id* Act 
----------------------------+
00174  M01S00019.ns22000 +++|          PJN    SCA4.1      IF CATALOG TRACKS NOT CONTINUOUS

Line S00020 Modification History
`M01` (Added by)	`ns22000`
`M02` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00020.242l642 ---|          LJM    SCA6        SET (A) = MST ADDRESS

Line S00008 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00176  M01S00008.242l642 +++|          LJM    SCA6        CHECK IF DEVICE CAN BE ACCESSED

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

Seq #  *Modification Id* Act 
----------------------------+
00177  M01S00021.ns22000 +++|
00178  M00S00148.compsca +++|
00179  M00S00149.compsca +++|*         LOCATE  CATALOG TRACK FROM CHAIN.
00180  M00S00150.compsca +++|

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

Seq #  *Modification Id* Act 
----------------------------+
00181  M01S00151.ns22000 ---|          LDD    CM+1        SAVE FIRST TRACK OF CHAIN

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

Seq #  *Modification Id* Act 
----------------------------+
00182  M01S00022.ns22000 +++| SCA4.1   LDD    CM+1        SAVE FIRST TRACK OF CHAIN
00183  M00S00152.compsca +++|          STD    T6
00184  M00S00153.compsca +++|          LDD    T0+4        SET FWA OF TRT - TRACK BIT
00185  M00S00154.compsca +++|          SHN    3

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

Seq #  *Modification Id* Act 
----------------------------+
00186  M01S00155.ns22000 ---|          ADN    MSTL

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

Seq #  *Modification Id* Act 
----------------------------+
00187  M01S00023.ns22000 +++|          ADN    TRLL
00188  M01S00024.ns22000 +++|          CRD    CM
00189  M01S00025.ns22000 +++|          LDD    CM+3
00190  M01S00026.ns22000 +++|          LPN    77
00191  M01S00027.ns22000 +++|          SHN    14
00192  M01S00028.ns22000 +++|          LMD    CM+4
00193  M00S00156.compsca +++|          SBD    TH
00194  M00S00157.compsca +++|          STM    SCAD+1
00195  M00S00158.compsca +++|          SHN    -14
00196  M00S00159.compsca +++|          LMC    ADCI
00197  M00S00160.compsca +++|          STM    SCAD
00198  M00S00161.compsca +++| SCA5     LDD    T6          CHECK VALID TRACK LINKAGE
00199  M00S00162.compsca +++|          SHN    21-13
00200  M00S00163.compsca +++|          PJN    SCA7        IF NOT VALID LINKAGE
00201  M00S00164.compsca +++|          SHN    13-21-2     CALCULATE NEXT TRT WORD OFFSET
00202  M00S00165.compsca +++| SCAD     ADC    TRTS
00203  M00S00166.compsca +++|          CRD    CM
00204  M00S00167.compsca +++|          LDD    T6
00205  M00S00168.compsca +++|          LPN    3
00206  M00S00169.compsca +++|          STD    CM+4
00207  M00S00170.compsca +++|          LDM    CM,CM+4
00208  M00S00171.compsca +++|          STD    T6
00209  M00S00172.compsca +++|          SOD    T7
00210  M00S00173.compsca +++|          NJN    SCA5        IF MORE CATALOG TRACKS

Line S00174 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00211  M01S00174.242l642 ---| SCA6     LDD    T0+4        SET (A) = MST ADDRESS
00212  M01S00175.242l642 ---|          LJM    SCAX        EXIT

Line S00009 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00213  M01S00009.242l642 +++|
00214  M01S00010.242l642 +++|*         DETERMINE IF DEVICE CAN BE ACCESSED.
00215  M01S00011.242l642 +++|
00216  M01S00012.242l642 +++| SCA6     SETMS  STATUS

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

Seq #  *Modification Id* Act 
----------------------------+
00217  M01S00001.ns2776  +++|          LDM    MSD
00218  M01S00002.ns2776  +++|          SHN    21-6

Line S00013 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`251l670`

Seq #  *Modification Id* Act 
----------------------------+
00219  M02S00013.251l670 ---|          NJN    SCA8        IF DEVICE SHOULD NOT BE ACCESSED

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

Seq #  *Modification Id* Act 
----------------------------+
00220  M01S00001.251l670 +++|          MJN    SCA8        IF DEVICE NOT TO BE ACCESSED

Line S00014 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00221  M01S00014.242l642 +++|          LDD    T0+4        SET (A) = MST ADDRESS/10B
00222  M01S00015.242l642 +++| SCA6.1   UJP    SCAX        RETURN
00223  M00S00176.compsca +++|
00224  M00S00177.compsca +++| SCA7     MONITOR  HNGM      HANG ON INVALID CATALOG LINKAGE

Line S00178 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00225  M01S00178.242l642 ---|          LCN    1           SET DEVICE NOT FOUND
00226  M01S00179.242l642 ---|          LJM    SCAX        EXIT

Line S00016 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00227  M01S00016.242l642 +++|          LCN    0           RETURN WITH (A) = -0
00228  M01S00017.242l642 +++|          UJN    SCA6.1      RETURN
00229  M01S00018.242l642 +++|
00230  M01S00019.242l642 +++| SCA8     LCN    1           RETURN WITH (A) = -1
00231  M01S00020.242l642 +++|          UJN    SCA6.1      RETURN
00232  M00S00180.compsca +++|          SPACE  4
00233  M00S00181.compsca +++| QUAL$    IF     -DEF,QUAL$
00234  M00S00182.compsca +++|          QUAL   *
00235  M00S00183.compsca +++| SCA      EQU    /COMPSCA/SCA
00236  M00S00184.compsca +++| QUAL$    ENDIF
00237  M00S00185.compsca +++|          ENDX