Common COMPSEI

4 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compsei +++|          CTEXT  COMPSEI - SEARCH FOR END OF INFORMATION.
00002  M01S00002.compsei +++| SEI      SPACE  4
00003  M01S00003.compsei +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compsei +++|          QUAL   COMPSEI

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

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.compsei +++| SEI      SPACE  4
00008  M01S00007.compsei +++|***       SEI - SEARCH FOR END OF INFORMATION.
00009  M01S00008.compsei +++|*         G. R. MANSFIELD.   70/08/09.
00010  M01S00009.compsei +++|*         K. R. COMBS.       75/12/12.
00011  M01S00010.compsei +++| SEI      SPACE  4
00012  M01S00011.compsei +++|***              SEI SETS THE TRACK AND SECTOR LOCATIONS FOR THE END
00013  M01S00012.compsei +++|*         OF INFORMATION SECTOR OF A MASS STORAGE FILE.
00014  M01S00013.compsei +++|*
00015  M01S00014.compsei +++|*         IF *IRA$* IS DEFINED, INITIALIZATION IS ASSUMED TO BE
00016  M01S00015.compsei +++|*         PERFORMED.  DECK -COMPIRA- CAN BE USED TO DO THIS.
00017  M01S00016.compsei +++|*         IF *SEI$* IS NOT DEFINED, UP TO DATE TRT IN MMF SYSTEM IS
00018  M01S00017.compsei +++|*         NOT GUARANTEED.
00019  M01S00018.compsei +++|*

Line S00019 Modification History
`M01` (Added by)	`compsei`
`M02` (Updated by)	`ns22000`

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

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

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

Line S00024 Modification History
`M01` (Added by)	`compsei`
`M02` (Updated by)	`ns2565`

Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00024.ns2565  ---|*         EXIT   (A) = TRACK COUNT.
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  M01S00025.compsei +++|*                (T6) = LAST TRACK.
00033  M01S00026.compsei +++|*                (T7) = LAST SECTOR.
00034  M01S00027.compsei +++|*                (T2 - T3) = SECTOR COUNT.
00035  M01S00028.compsei +++|*
00036  M01S00029.compsei +++|*         USES   T1, CM - CM+4.
00037  M01S00030.compsei +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00038  M02S00031.242l642 ---|*         MACROS MONITOR, IF TRT UPDATE NEEDED.

Line S00032 Modification History
`M01` (Added by)	`compsei`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00032.242l642 ---|*                SETMS, IF INITIALIZATION NEEDED.

Line S00033 Modification History
`M01` (Added by)	`compsei`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00033.242l642 ---|          SPACE  4

Line S00034 Modification History
`M01` (Added by)	`compsei`
`M02` (Updated by)	`242l642`

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

Line S00035 Modification History
`M01` (Added by)	`compsei`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00035.242l642 ---|

Line S00036 Modification History
`M01` (Added by)	`compsei`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00036.242l642 ---|

Line S00037 Modification History
`M01` (Added by)	`compsei`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00044  M02S00037.242l642 ---| ADCI     EQU    2100        ADC
00045  M01S00001.242l642 +++|*         MACROS MONITOR, SFA.
00046  M01S00002.242l642 +++|*
00047  M01S00003.242l642 +++|*         XREF   COMSPIM.
00048  M01S00038.compsei +++|
00049  M01S00039.compsei +++|
00050  M01S00040.compsei +++| SEI      SUBR               ENTRY/EXIT
00051  M01S00041.compsei +++|
00052  M01S00042.compsei +++| SEI$     IF     DEF,SEI$
00053  M01S00043.compsei +++|          NJN    SEI1        IF NO TRT UPDATE NEEDED
00054  M01S00044.compsei +++|          LDN    UTRS        SET SUBFUNCTION CODE
00055  M01S00045.compsei +++|          STD    CM+3

Line S00046 Modification History
`M01` (Added by)	`compsei`
`M02` (Updated by)	`ns22000`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00002.ns2565  ---|          LDD    T5          SET EST ORDINAL
00058  M01S00006.ns2565  +++|          LDD    T5          SET RETURN-ON-INACCESSIBLE / EST ORDINAL
00059  M01S00047.compsei +++|          STD    CM+1
00060  M01S00007.ns2565  +++|          LPC    777
00061  M01S00008.ns2565  +++|          STD    T5          EST ORDINAL
00062  M01S00048.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  M01S00049.compsei +++| SEI1     BSS    0
00067  M01S00050.compsei +++| SEI$     ENDIF
00068  M01S00051.compsei +++| IRA$     IF     -DEF,IRA$

Line S00052 Modification History
`M01` (Added by)	`compsei`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00052.242l642 ---|          SETMS

Line S00053 Modification History
`M01` (Added by)	`compsei`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00053.242l642 ---|          LDD    CM+4        SET FWA OF TRT

Line S00054 Modification History
`M01` (Added by)	`compsei`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00054.242l642 ---|          SHN    3

Line S00055 Modification History
`M01` (Added by)	`compsei`
`M02` (Updated by)	`ns22000`
`M03` (Updated by)	`242l642`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00003.242l642 ---|          ADN    TRLL

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

Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00004.242l642 ---|          CRD    CM

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

Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00005.242l642 ---|          LDD    CM+3
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
00088  M01S00006.ns22000 +++|          LPN    77
00089  M01S00007.ns22000 +++|          SHN    14

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

Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00008.242l642 ---|          LMD    CM+4
00091  M01S00016.242l642 +++|          LMD    T7+4
00092  M01S00056.compsei +++|          SBD    TH          4000/2
00093  M01S00057.compsei +++|          STM    SEIA+1
00094  M01S00058.compsei +++|          SHN    -14
00095  M01S00059.compsei +++|          LMC    ADCI
00096  M01S00060.compsei +++|          STM    SEIA
00097  M01S00061.compsei +++| IRA$     ENDIF
00098  M01S00062.compsei +++|          LDN    0           CLEAR SECTOR COUNT
00099  M01S00063.compsei +++|          STD    T3
00100  M01S00064.compsei +++|          STD    T2
00101  M01S00065.compsei +++|          STD    T0
00102  M01S00066.compsei +++| SEI2     LDD    T6          READ TRT WORD
00103  M01S00067.compsei +++|          SHN    -2
00104  M01S00068.compsei +++| SEIA     ADC    TRTS
00105  M01S00069.compsei +++|          CRD    CM
00106  M01S00070.compsei +++|          LDD    T6          SET BYTE INDEX
00107  M01S00071.compsei +++|          LPN    3
00108  M01S00072.compsei +++|          STD    T1
00109  M01S00073.compsei +++|          LDM    CM,T1       CHECK NEXT LINK
00110  M01S00074.compsei +++|          SHN    6
00111  M01S00075.compsei +++|          PJN    SEI3        IF LAST SECTOR
00112  M01S00076.compsei +++|          SHN    -6
00113  M01S00077.compsei +++|          STD    T6

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

Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00078.242l642 ---|          LDM    SLM
00115  M01S00017.242l642 +++|          LDP    SLM
00116  M01S00079.compsei +++|          RAD    T3
00117  M01S00080.compsei +++|          SHN    -14
00118  M01S00081.compsei +++|          RAD    T2
00119  M01S00082.compsei +++|          AOD    T0          ADVANCE TRACK COUNT
00120  M01S00083.compsei +++|          UJN    SEI2        LOOP
00121  M01S00084.compsei +++|
00122  M01S00085.compsei +++| SEI3     SHN    -6          SET LAST SECTOR
00123  M01S00086.compsei +++|          STD    T7
00124  M01S00087.compsei +++|          RAD    T3          COUNT SECTORS
00125  M01S00088.compsei +++|          SHN    -14
00126  M01S00089.compsei +++|          RAD    T2
00127  M01S00090.compsei +++|          AOD    T0          (A) = TRACK COUNT
00128  M01S00091.compsei +++|          LJM    SEIX        RETURN
00129  M01S00092.compsei +++|          SPACE  4
00130  M01S00093.compsei +++| QUAL$    IF     -DEF,QUAL$
00131  M01S00094.compsei +++|          QUAL   *
00132  M01S00095.compsei +++| SEI      EQU    /COMPSEI/SEI
00133  M01S00096.compsei +++| SEIA     EQU    /COMPSEI/SEIA
00134  M01S00097.compsei +++| QUAL$    ENDIF
00135  M01S00098.compsei +++|          ENDX