Common COMPSCA

5 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compsca +++|          CTEXT  COMPSCA - SET CATALOG ADDRESS.
00002  M01S00002.compsca +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compsca +++|          QUAL   COMPSCA
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compsca +++|          SPACE  4
00006  M01S00005.compsca +++|***       SCA - SET CATALOG ADDRESS.
00007  M01S00006.compsca +++|*         G. R. MANSFIELD.   70/12/10.
00008  M01S00007.compsca +++|*         J. L. WARDELL.     72/08/24.
00009  M01S00008.compsca +++|*         P. D. HAAS.        74/10/16.
00010  M01S00009.compsca +++|          SPACE  4

Line S00010 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00011  M02S00010.ns22000 ---|***              SCA SETS THE EQUIPMENT NUMBER AND CATALOG TRACK FOR A
00012  M01S00001.ns22000 +++|***              SCA SETS THE EST ORDINAL AND CATALOG TRACK FOR A
00013  M01S00011.compsca +++|*         SPECIFIED USER INDEX.
00014  M01S00012.compsca +++|*
00015  M01S00013.compsca +++|*         IF THE SYMBOL SCA$ IS DEFINED IN THE CALLING PROGRAM,
00016  M01S00014.compsca +++|*         A MATCHING DEVICE WITH THE *UNLOAD* FLAG SET WILL
00017  M01S00015.compsca +++|*         NOT BE REJECTED.
00018  M01S00016.compsca +++|*
00019  M01S00017.compsca +++|*         ENTRY  (UI - UI+1) = USER INDEX.
00020  M01S00018.compsca +++|*                (A) = ADDRESS OF PERMANENT FILE DEVICE DESCRIPTION.
00021  M01S00002.ns22000 +++|*T PFD    42/ NAME, 6/, 12/ EST ORDINAL

Figure PFD

00022  M01S00019.compsca +++|*

Line S00020 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

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

Line S00021 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00024  M02S00021.242l642 ---|*                (A) < 0  IF DEVICE NOT FOUND.
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` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00022.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
00029  M01S00003.ns22000 +++|*                (T5) = EST ORDINAL.
00030  M01S00023.compsca +++|*                (T6) = CATALOG TRACK.
00031  M01S00024.compsca +++|*
00032  M01S00025.compsca +++|*         USES   T0 - T7, CM - CM+6, FN - FN+4.
00033  M01S00004.ns22000 +++|*

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

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

Line S00026 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00035  M02S00026.242l642 ---|          SPACE  4

Line S00027 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00027.242l642 ---|*         INSTRUCTIONS USED AS CONSTANTS.

Line S00028 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00028.242l642 ---|

Line S00029 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00038  M02S00029.242l642 ---|

Line S00030 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00030.242l642 ---| SHNI     EQU    1000        SHN

Line S00031 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00031.242l642 ---| ADCI     EQU    2100        ADC
00041  M01S00004.242l642 +++|*         MACROS MONITOR, SETMS, SFA.
00042  M01S00005.242l642 +++|*
00043  M01S00006.242l642 +++|*         XREF   COMSPIM.
00044  M01S00032.compsca +++|
00045  M01S00033.compsca +++|
00046  M01S00034.compsca +++| SCA      SUBR               ENTRY/EXIT
00047  M01S00035.compsca +++|          STM    SCAA        SET ADDRESS OF DEVICE DESCRIPTION
00048  M01S00036.compsca +++|          LDD    MA
00049  M01S00037.compsca +++|          CWM    *,ON
00050  M01S00038.compsca +++| SCAA     EQU    *-1
00051  M01S00039.compsca +++|          SBN    1
00052  M01S00040.compsca +++|          CRD    FN
00053  M01S00041.compsca +++|          LDD    UI+1        SET EQUIPMENT SHIFT
00054  M01S00042.compsca +++|          LPN    7
00055  M01S00043.compsca +++|          SBN    21
00056  M01S00044.compsca +++|          LMC    -SHNI
00057  M01S00045.compsca +++|          STM    SCAB
00058  M01S00046.compsca +++|
00059  M01S00047.compsca +++|*         SET UP FOR EST SEARCH.
00060  M01S00048.compsca +++|
00061  M01S00049.compsca +++|          LDN    ESTP
00062  M01S00050.compsca +++|          CRD    T1
00063  M01S00051.compsca +++|          LDN    1           SET CHECK FOR AUXILIARY DEVICE
00064  M01S00052.compsca +++|          STD    T7

Line S00053 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00053.ns22000 ---|          LDD    T1+2        SET LAST MASS STORAGE EQUIPMENT NUMBER

Line S00054 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00054.ns22000 ---|          SBD    T1

Line S00055 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00055.ns22000 ---|          STD    T5
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  M01S00056.compsca +++|          LDD    FN
00073  M01S00057.compsca +++|          NJN    SCA1        IF AUXILIARY DEVICE REQUEST
00074  M01S00058.compsca +++|          STD    T7          SET CHECK FOR NON-AUXILIARY DEVICE

Line S00059 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00059.ns22000 ---|          LDD    FN+3        SET EQUIPMENT NUMBER FOR FAMILY

Line S00060 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00060.ns22000 ---|          LPN    77

Line S00061 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00077  M02S00061.ns22000 ---|          ADM    ESTS
00078  M01S00010.ns22000 +++|          SFA    EST,FN+4    READ EST ENTRY
00079  M01S00011.ns22000 +++|          ADK    EQDE
00080  M01S00062.compsca +++|          CRD    T0          READ EST ENTRY
00081  M01S00063.compsca +++|          LDD    T0+4        READ PERMANENT FILE DESCRIPTION
00082  M01S00064.compsca +++|          SHN    3
00083  M01S00065.compsca +++|          ADN    PFGL
00084  M01S00066.compsca +++|          CRD    FN

Line S00067 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00067.ns22000 ---| SCA1     SOD    T5          DECREMENT EQUIPMENT NUMBER

Line S00068 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00068.ns22000 ---|          PJN    SCA2        IF MORE EQUIPMENTS TO CHECK
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` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00015.242l642 ---|          LCN    0           RETURN WITH (A) .LT. 0
00091  M01S00007.242l642 +++|          LCN    0           RETURN WITH (A) = -0
00092  M01S00069.compsca +++|          LJM    SCAX
00093  M01S00070.compsca +++|

Line S00071 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00094  M02S00071.ns22000 ---| SCA2     ADM    ESTS        READ EST ENTRY
00095  M01S00016.ns22000 +++| SCA2     SFA    EST,T5      READ EST ENTRY
00096  M01S00017.ns22000 +++|          ADK    EQDE
00097  M01S00072.compsca +++|          CRD    T0
00098  M01S00073.compsca +++|          LDD    T0
00099  M01S00074.compsca +++|          SHN    -6
00100  M01S00075.compsca +++|          LPN    41
00101  M01S00076.compsca +++|          LMN    40
00102  M01S00077.compsca +++|          NJN    SCA1        IF UNAVAILABLE OR NON MS DEVICE

Line S00078 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00078.242l642 ---|          LDD    T0+3

Line S00079 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00079.242l642 ---|          SHN    21-13

Line S00080 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00105  M02S00080.242l642 ---|          MJN    SCA1        IF DEVICE *OFF*
00106  M01S00081.compsca +++|          LDD    T0+4        READ *STLL* WORD FROM MST
00107  M01S00082.compsca +++|          SHN    3
00108  M01S00083.compsca +++|          ADN    STLL
00109  M01S00084.compsca +++|          CRD    CM
00110  M01S00085.compsca +++|          SBN    STLL-MDGL   READ *MDGL*
00111  M01S00086.compsca +++|          CRD    CM+1
00112  M01S00087.compsca +++|          SBN    MDGL-PFGL   GET PF DESCRIPTOR WORD
00113  M01S00088.compsca +++|          CRD    CM+2
00114  M01S00089.compsca +++|          LDD    CM
00115  M01S00090.compsca +++| SCA$     IF     -DEF,SCA$
00116  M01S00091.compsca +++|          LPC    MLFPR+MLIAL+MLIHD+MLIFD+MLIPF+MLUNL+MLDUL
00117  M01S00092.compsca +++| SCA$     ELSE
00118  M01S00093.compsca +++|          LPC    MLFPR+MLIAL+MLIHD+MLIFD+MLIPF+MLDUL
00119  M01S00094.compsca +++| SCA$     ENDIF
00120  M01S00095.compsca +++|          NJN    SCA1        IF DEVICE UNAVAILABLE FOR THIS PF ACCESS
00121  M01S00096.compsca +++|          LDD    CM+1
00122  M01S00097.compsca +++|          SHN    -12
00123  M01S00098.compsca +++|          LPN    1
00124  M01S00099.compsca +++|          LMD    T7

Line S00100 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00100.ns22000 ---|          NJN    SCA1        IF DEVICE UNAVAILABLE FOR THIS PF ACCESS
00126  M01S00018.ns22000 +++|          NJN    SCA3        IF DEVICE UNAVAILABLE FOR THIS PF ACCESS
00127  M01S00101.compsca +++|
00128  M01S00102.compsca +++|*         COMPARE FAMILY/PACK NAME WITH THAT REQUESTED.
00129  M01S00103.compsca +++|
00130  M01S00104.compsca +++|          LDD    FN
00131  M01S00105.compsca +++|          LMD    CM+2
00132  M01S00106.compsca +++|          NJN    SCA3        IF NO MATCH
00133  M01S00107.compsca +++|          LDD    FN+1
00134  M01S00108.compsca +++|          LMD    CM+3
00135  M01S00109.compsca +++|          NJN    SCA3        IF NO MATCH
00136  M01S00110.compsca +++|          LDD    FN+2
00137  M01S00111.compsca +++|          LMD    CM+4
00138  M01S00112.compsca +++|          NJN    SCA3        IF NO MATCH
00139  M01S00113.compsca +++|          LDD    FN+3
00140  M01S00114.compsca +++|          LMD    CM+5
00141  M01S00115.compsca +++|          SCN    77
00142  M01S00116.compsca +++|          NJN    SCA3        IF NO MATCH
00143  M01S00117.compsca +++|          LDD    T0+4        RETRIEVE MST WORDS
00144  M01S00118.compsca +++|          SHN    3
00145  M01S00119.compsca +++|          ADN    PUGL        PF USER DESCRIPTION
00146  M01S00120.compsca +++|          CRD    CM+2
00147  M01S00121.compsca +++|          SBN    PUGL-ALGL   DEVICE ALLOCATION WORD
00148  M01S00122.compsca +++|          CRD    CM
00149  M01S00123.compsca +++|          LDD    T7
00150  M01S00124.compsca +++|          NJN    SCA4        IF AUXILIARY DEVICE
00151  M01S00125.compsca +++|          LDD    CM+6        CHECK DEVICE MASK
00152  M01S00126.compsca +++| SCAB     SHN    **
00153  M01S00127.compsca +++|          MJN    SCA4        IF USERS CATALOGS ON THIS DEVICE
00154  M01S00128.compsca +++|
00155  M01S00129.compsca +++|*         NOT PROPER DEVICE PROCEED TO NEXT DEVICE.
00156  M01S00130.compsca +++|
00157  M01S00131.compsca +++| SCA3     LJM    SCA1
00158  M01S00132.compsca +++|
00159  M01S00133.compsca +++|*         DETERMINE CATALOG TRACK.
00160  M01S00134.compsca +++|
00161  M01S00135.compsca +++| SCA4     SOD    CM+3        SET MASK FOR NUMBER OF CATALOG TRACKS
00162  M01S00136.compsca +++|          STM    SCAC
00163  M01S00137.compsca +++|          LDD    UI+1
00164  M01S00138.compsca +++|          SHN    -3
00165  M01S00139.compsca +++|          LPC    *
00166  M01S00140.compsca +++| SCAC     EQU    *-1
00167  M01S00141.compsca +++|          ADN    1
00168  M01S00142.compsca +++|          STD    T7          SET CATALOG COUNT
00169  M01S00143.compsca +++|          ADD    CM+1        LABEL TRACK
00170  M01S00144.compsca +++|          STD    T6
00171  M01S00145.compsca +++|          LDD    CM+5
00172  M01S00146.compsca +++|          SHN    21-5

Line S00147 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00020.242l642 ---|          LJM    SCA6        SET (A) = MST ADDRESS
00176  M01S00008.242l642 +++|          LJM    SCA6        CHECK IF DEVICE CAN BE ACCESSED
00177  M01S00021.ns22000 +++|
00178  M01S00148.compsca +++|
00179  M01S00149.compsca +++|*         LOCATE  CATALOG TRACK FROM CHAIN.
00180  M01S00150.compsca +++|

Line S00151 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

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

Line S00155 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00155.ns22000 ---|          ADN    MSTL
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  M01S00156.compsca +++|          SBD    TH
00194  M01S00157.compsca +++|          STM    SCAD+1
00195  M01S00158.compsca +++|          SHN    -14
00196  M01S00159.compsca +++|          LMC    ADCI
00197  M01S00160.compsca +++|          STM    SCAD
00198  M01S00161.compsca +++| SCA5     LDD    T6          CHECK VALID TRACK LINKAGE
00199  M01S00162.compsca +++|          SHN    21-13
00200  M01S00163.compsca +++|          PJN    SCA7        IF NOT VALID LINKAGE
00201  M01S00164.compsca +++|          SHN    13-21-2     CALCULATE NEXT TRT WORD OFFSET
00202  M01S00165.compsca +++| SCAD     ADC    TRTS
00203  M01S00166.compsca +++|          CRD    CM
00204  M01S00167.compsca +++|          LDD    T6
00205  M01S00168.compsca +++|          LPN    3
00206  M01S00169.compsca +++|          STD    CM+4
00207  M01S00170.compsca +++|          LDM    CM,CM+4
00208  M01S00171.compsca +++|          STD    T6
00209  M01S00172.compsca +++|          SOD    T7
00210  M01S00173.compsca +++|          NJN    SCA5        IF MORE CATALOG TRACKS

Line S00174 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00211  M02S00174.242l642 ---| SCA6     LDD    T0+4        SET (A) = MST ADDRESS

Line S00175 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00212  M02S00175.242l642 ---|          LJM    SCAX        EXIT
00213  M01S00009.242l642 +++|
00214  M01S00010.242l642 +++|*         DETERMINE IF DEVICE CAN BE ACCESSED.
00215  M01S00011.242l642 +++|
00216  M01S00012.242l642 +++| SCA6     SETMS  STATUS
00217  M01S00001.ns2776  +++|          LDM    MSD
00218  M01S00002.ns2776  +++|          SHN    21-6

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

Seq #  *Modification Id* Act 
----------------------------+
00219  M02S00013.251l670 ---|          NJN    SCA8        IF DEVICE SHOULD NOT BE ACCESSED
00220  M01S00001.251l670 +++|          MJN    SCA8        IF DEVICE NOT TO BE ACCESSED
00221  M01S00014.242l642 +++|          LDD    T0+4        SET (A) = MST ADDRESS/10B
00222  M01S00015.242l642 +++| SCA6.1   UJP    SCAX        RETURN
00223  M01S00176.compsca +++|
00224  M01S00177.compsca +++| SCA7     MONITOR  HNGM      HANG ON INVALID CATALOG LINKAGE

Line S00178 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00225  M02S00178.242l642 ---|          LCN    1           SET DEVICE NOT FOUND

Line S00179 Modification History
`M01` (Added by)	`compsca`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00226  M02S00179.242l642 ---|          LJM    SCAX        EXIT
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  M01S00180.compsca +++|          SPACE  4
00233  M01S00181.compsca +++| QUAL$    IF     -DEF,QUAL$
00234  M01S00182.compsca +++|          QUAL   *
00235  M01S00183.compsca +++| SCA      EQU    /COMPSCA/SCA
00236  M01S00184.compsca +++| QUAL$    ENDIF
00237  M01S00185.compsca +++|          ENDX