Common COMPSEI

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsei +++|          CTEXT  COMPSEI - SEARCH FOR END OF INFORMATION.
00002  M00S00002.compsei +++| SEI      SPACE  4
00003  M00S00003.compsei +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compsei +++|          QUAL   COMPSEI

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compsei +++| SEI      SPACE  4
00008  M00S00007.compsei +++|***       SEI - SEARCH FOR END OF INFORMATION.
00009  M00S00008.compsei +++|*         G. R. MANSFIELD.   70/08/09.
00010  M00S00009.compsei +++|*         K. R. COMBS.       75/12/12.
00011  M00S00010.compsei +++| SEI      SPACE  4
00012  M00S00011.compsei +++|***              SEI SETS THE TRACK AND SECTOR LOCATIONS FOR THE END
00013  M00S00012.compsei +++|*         OF INFORMATION SECTOR OF A MASS STORAGE FILE.
00014  M00S00013.compsei +++|*
00015  M00S00014.compsei +++|*         IF *IRA$* IS DEFINED, INITIALIZATION IS ASSUMED TO BE
00016  M00S00015.compsei +++|*         PERFORMED.  DECK -COMPIRA- CAN BE USED TO DO THIS.
00017  M00S00016.compsei +++|*         IF *SEI$* IS NOT DEFINED, UP TO DATE TRT IN MMF SYSTEM IS
00018  M00S00017.compsei +++|*         NOT GUARANTEED.
00019  M00S00018.compsei +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00020  M01S00019.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.

Line S00001 Modification History
`M01` (Added by)	`ns22000`
`M02` (Removed by)	`ns2565`

Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00001.ns2565  ---|*         ENTRY  (T5) = EST ORDINAL.

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

Seq #  *Modification Id* Act 
----------------------------+
00022  M01S00001.ns2565  +++|*         ENTRY  (T5) = 3/R, 9/EST ORDINAL.
00023  M01S00002.ns2565  +++|*                       R = 1, IF RETURN-ON-INACCESSIBLE REQUESTED.
00024  M00S00020.compsei +++|*                (T6) = FIRST TRACK.
00025  M00S00021.compsei +++|*                (A) .EQ. 0 IF TRT MUST BE CURRENT (SEI$ DEFINED).
00026  M00S00022.compsei +++|*                (A) .NE. 0 IF CURRENT TRT NOT REQUIRED (SEI$ DEFINED).
00027  M00S00023.compsei +++|*

Line S00024 Modification History
`M01` (Removed by)	`ns2565`

Seq #  *Modification Id* Act 
----------------------------+
00028  M01S00024.ns2565  ---|*         EXIT   (A) = TRACK COUNT.

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

Seq #  *Modification Id* Act 
----------------------------+
00029  M01S00003.ns2565  +++|*         EXIT   (A) = TRACK COUNT, IF DEVICE ACCESSIBLE.
00030  M01S00004.ns2565  +++|*                (A) .LT. 0, IF DEVICE INACCESSIBLE.
00031  M01S00005.ns2565  +++|*                (T5) = EST ORDINAL.
00032  M00S00025.compsei +++|*                (T6) = LAST TRACK.
00033  M00S00026.compsei +++|*                (T7) = LAST SECTOR.
00034  M00S00027.compsei +++|*                (T2 - T3) = SECTOR COUNT.
00035  M00S00028.compsei +++|*
00036  M00S00029.compsei +++|*         USES   T1, CM - CM+4.
00037  M00S00030.compsei +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00038  M01S00031.242l642 ---|*         MACROS MONITOR, IF TRT UPDATE NEEDED.
00039  M01S00032.242l642 ---|*                SETMS, IF INITIALIZATION NEEDED.
00040  M01S00033.242l642 ---|          SPACE  4
00041  M01S00034.242l642 ---|*         INSTRUCTIONS USED AS CONSTANTS.
00042  M01S00035.242l642 ---|
00043  M01S00036.242l642 ---|
00044  M01S00037.242l642 ---| ADCI     EQU    2100        ADC

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

Seq #  *Modification Id* Act 
----------------------------+
00045  M01S00001.242l642 +++|*         MACROS MONITOR, SFA.
00046  M01S00002.242l642 +++|*
00047  M01S00003.242l642 +++|*         XREF   COMSPIM.
00048  M00S00038.compsei +++|
00049  M00S00039.compsei +++|
00050  M00S00040.compsei +++| SEI      SUBR               ENTRY/EXIT
00051  M00S00041.compsei +++|
00052  M00S00042.compsei +++| SEI$     IF     DEF,SEI$
00053  M00S00043.compsei +++|          NJN    SEI1        IF NO TRT UPDATE NEEDED
00054  M00S00044.compsei +++|          LDN    UTRS        SET SUBFUNCTION CODE
00055  M00S00045.compsei +++|          STD    CM+3

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

Seq #  *Modification Id* Act 
----------------------------+
00056  M01S00046.ns22000 ---|          LDD    T5          SET EQUIPMENT

Line S00002 Modification History
`M01` (Added by)	`ns22000`
`M02` (Removed by)	`ns2565`

Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00002.ns2565  ---|          LDD    T5          SET EST ORDINAL

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

Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00006.ns2565  +++|          LDD    T5          SET RETURN-ON-INACCESSIBLE / EST ORDINAL
00059  M00S00047.compsei +++|          STD    CM+1
00060  M01S00007.ns2565  +++|          LPC    777
00061  M01S00008.ns2565  +++|          STD    T5          EST ORDINAL
00062  M00S00048.compsei +++|          MONITOR STBM
00063  M01S00009.ns2565  +++|          LDD    CM+1        CHECK INACCESSIBLE STATUS
00064  M01S00010.ns2565  +++|          SHN    21-11
00065  M01S00011.ns2565  +++|          MJN    SEIX        IF DEVICE IS INACCESSIBLE
00066  M00S00049.compsei +++| SEI1     BSS    0
00067  M00S00050.compsei +++| SEI$     ENDIF
00068  M00S00051.compsei +++| IRA$     IF     -DEF,IRA$

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

Seq #  *Modification Id* Act 
----------------------------+
00069  M01S00052.242l642 ---|          SETMS
00070  M01S00053.242l642 ---|          LDD    CM+4        SET FWA OF TRT
00071  M01S00054.242l642 ---|          SHN    3

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

Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00055.242l642 ---|          ADN    MSTL

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

Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00003.242l642 ---|          ADN    TRLL
00074  M02S00004.242l642 ---|          CRD    CM
00075  M02S00005.242l642 ---|          LDD    CM+3

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

Seq #  *Modification Id* Act 
----------------------------+
00076  M01S00004.242l642 +++|          SFA    EST,T5      READ EST ENTRY
00077  M01S00005.242l642 +++|          ADK    EQDE
00078  M01S00006.242l642 +++|          CRD    CM
00079  M01S00007.242l642 +++|          LDD    CM+4
00080  M01S00008.242l642 +++|          SHN    3
00081  M01S00009.242l642 +++|          ADK    MDGL
00082  M01S00010.242l642 +++|          CRD    CM
00083  M01S00011.242l642 +++|          ADK    TRLL-MDGL
00084  M01S00012.242l642 +++|          CRD    T7
00085  M01S00013.242l642 +++|          LDD    CM+4        SET SECTOR LIMIT
00086  M01S00014.242l642 +++|          STP    SLM
00087  M01S00015.242l642 +++|          LDD    T7+3        SET TRT FWA

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

Seq #  *Modification Id* Act 
----------------------------+
00088  M01S00006.ns22000 +++|          LPN    77
00089  M01S00007.ns22000 +++|          SHN    14

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

Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00008.242l642 ---|          LMD    CM+4

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

Seq #  *Modification Id* Act 
----------------------------+
00091  M01S00016.242l642 +++|          LMD    T7+4
00092  M00S00056.compsei +++|          SBD    TH          4000/2
00093  M00S00057.compsei +++|          STM    SEIA+1
00094  M00S00058.compsei +++|          SHN    -14
00095  M00S00059.compsei +++|          LMC    ADCI
00096  M00S00060.compsei +++|          STM    SEIA
00097  M00S00061.compsei +++| IRA$     ENDIF
00098  M00S00062.compsei +++|          LDN    0           CLEAR SECTOR COUNT
00099  M00S00063.compsei +++|          STD    T3
00100  M00S00064.compsei +++|          STD    T2
00101  M00S00065.compsei +++|          STD    T0
00102  M00S00066.compsei +++| SEI2     LDD    T6          READ TRT WORD
00103  M00S00067.compsei +++|          SHN    -2
00104  M00S00068.compsei +++| SEIA     ADC    TRTS
00105  M00S00069.compsei +++|          CRD    CM
00106  M00S00070.compsei +++|          LDD    T6          SET BYTE INDEX
00107  M00S00071.compsei +++|          LPN    3
00108  M00S00072.compsei +++|          STD    T1
00109  M00S00073.compsei +++|          LDM    CM,T1       CHECK NEXT LINK
00110  M00S00074.compsei +++|          SHN    6
00111  M00S00075.compsei +++|          PJN    SEI3        IF LAST SECTOR
00112  M00S00076.compsei +++|          SHN    -6
00113  M00S00077.compsei +++|          STD    T6

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

Seq #  *Modification Id* Act 
----------------------------+
00114  M01S00078.242l642 ---|          LDM    SLM

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

Seq #  *Modification Id* Act 
----------------------------+
00115  M01S00017.242l642 +++|          LDP    SLM
00116  M00S00079.compsei +++|          RAD    T3
00117  M00S00080.compsei +++|          SHN    -14
00118  M00S00081.compsei +++|          RAD    T2
00119  M00S00082.compsei +++|          AOD    T0          ADVANCE TRACK COUNT
00120  M00S00083.compsei +++|          UJN    SEI2        LOOP
00121  M00S00084.compsei +++|
00122  M00S00085.compsei +++| SEI3     SHN    -6          SET LAST SECTOR
00123  M00S00086.compsei +++|          STD    T7
00124  M00S00087.compsei +++|          RAD    T3          COUNT SECTORS
00125  M00S00088.compsei +++|          SHN    -14
00126  M00S00089.compsei +++|          RAD    T2
00127  M00S00090.compsei +++|          AOD    T0          (A) = TRACK COUNT
00128  M00S00091.compsei +++|          LJM    SEIX        RETURN
00129  M00S00092.compsei +++|          SPACE  4
00130  M00S00093.compsei +++| QUAL$    IF     -DEF,QUAL$
00131  M00S00094.compsei +++|          QUAL   *
00132  M00S00095.compsei +++| SEI      EQU    /COMPSEI/SEI
00133  M00S00096.compsei +++| SEIA     EQU    /COMPSEI/SEIA
00134  M00S00097.compsei +++| QUAL$    ENDIF
00135  M00S00098.compsei +++|          ENDX