Common COMPVEI

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compvei +++|          CTEXT  COMPVEI - VALIDATE EOI FOR MASS STORAGE FILE.
00002  M00S00002.compvei +++|          SPACE  4,10
00003  M00S00003.compvei +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compvei +++|          QUAL   COMPVEI
00005  M00S00005.compvei +++|          BASE   M

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1979.

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.compvei +++|          SPACE  4,10
00009  M00S00008.compvei +++|***       VEI - VALIDATE EOI FOR MASS STORAGE FILE.
00010  M00S00009.compvei +++|*
00011  M00S00010.compvei +++|*         P. D. HAAS.        79/09/21.
00012  M00S00011.compvei +++|          SPACE  4,10
00013  M00S00012.compvei +++|***              *COMPVEI* CONTAINS SEVERAL SUBROUTINES USED TO
00014  M00S00013.compvei +++|*         VALIDATE EOI FOR A DISK FILE.
00015  M00S00014.compvei +++|*

Line S00015 Modification History
`M01` (Removed by)	`ns2478`

Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00015.ns2478  ---|*         DECKS  COMSCPS, COMPSEI, COMPSNT, COMPIRA.

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

Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00001.ns2478  +++|*         XREF   COMSCPS, COMPC2D, COMPSEI, COMPSNT, COMPIRA.
00018  M00S00016.compvei +++|          SPACE  4,10
00019  M00S00017.compvei +++|*         ASSEMBLY CONSTANTS.
00020  M00S00018.compvei +++|
00021  M00S00019.compvei +++|
00022  M00S00020.compvei +++| NT       DEFC   FS          NUMBER OF TRACKS
00023  M00S00021.compvei +++| SBUF     DEFC   BFMS        SECTOR BUFFER
00024  M00S00022.compvei +++| CLF      SPACE  4,15
00025  M00S00023.compvei +++|**        CLF - CHANGE LENGTH OF FILE IN TRT.
00026  M00S00024.compvei +++|*

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00028  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00029  M00S00026.compvei +++|*                (T6) = TRACK FOR EOI.
00030  M00S00027.compvei +++|*                (T7) = SECTOR FOR EOI.
00031  M00S00028.compvei +++|*
00032  M00S00029.compvei +++|*         EXIT   EOI IN TRT CHANGED.
00033  M00S00030.compvei +++|*
00034  M00S00031.compvei +++|*         USES   CM - CM+4.
00035  M00S00032.compvei +++|*

Line S00033 Modification History
`M01` (Removed by)	`pvei1`

Seq #  *Modification Id* Act 
----------------------------+
00036  M01S00033.pvei1   ---|*         MACROS MONITOR.

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

Seq #  *Modification Id* Act 
----------------------------+
00037  M01S00001.pvei1   +++|*         MACROS ENDMS, MONITOR.
00038  M00S00034.compvei +++|
00039  M00S00035.compvei +++|
00040  M00S00036.compvei +++| CLF      SUBR               ENTRY/EXIT

Line S00002 Modification History
`M01` (Added by)	`pvei1`

Seq #  *Modification Id* Act 
----------------------------+
00041  M01S00002.pvei1   +++|          ENDMS
00042  M00S00037.compvei +++|          LDD    T6
00043  M00S00038.compvei +++|          LPC    3777
00044  M00S00039.compvei +++|          STD    CM+2
00045  M00S00040.compvei +++|          LDD    T7          SET UP MONITOR REQUEST
00046  M00S00041.compvei +++|          STD    CM+3
00047  M00S00042.compvei +++|          LDD    T5          ADJUST EOI IN TRT
00048  M00S00043.compvei +++|          LMC    4000
00049  M00S00044.compvei +++|          STD    CM+1
00050  M00S00045.compvei +++|          MONITOR DTKM
00051  M00S00046.compvei +++|          UJN    CLFX        RETURN
00052  M00S00047.compvei +++| RDC      SPACE  4,20
00053  M00S00048.compvei +++|**        RDC - READ DISK CHAIN.
00054  M00S00049.compvei +++|*
00055  M00S00050.compvei +++|*         ENTRY  (A) .GE. 0 IF EOI PARAMETERS SET.

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00057  M01S00002.ns22000 +++|*                (T5) = EST ORDINAL.
00058  M00S00052.compvei +++|*                (FS+1) = FIRST TRACK OF PRESERVED FILE.

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

Seq #  *Modification Id* Act 
----------------------------+
00059  M01S00001.ns2788  +++|*                (FS+4) NONZERO.

Line S00002 Modification History
`M01` (Added by)	`ns2478`

Seq #  *Modification Id* Act 
----------------------------+
00060  M01S00002.ns2478  +++|*                (RDCA) = ADDRESS AT WHICH TO WRITE THE STATUS MESSAGE.

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

Seq #  *Modification Id* Act 
----------------------------+
00061  M01S00001.ns2669  +++|*                *SETMS IO* PERFORMED.
00062  M00S00053.compvei +++|*
00063  M00S00054.compvei +++|*         EXIT   (A) = 0 IF EOI ON DISK MATCHES EOI IN TRT.

Line S00055 Modification History
`M01` (Removed by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00064  M01S00055.ns2788  ---|*                    .LT. 0 IF ERROR READING DISK.
00065  M01S00056.ns2788  ---|*                    .GT. 0 IF LENGTH/LINKAGE ERROR.

Line S00002 Modification History
`M01` (Added by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00066  M01S00002.ns2788  +++|*                (A) .NE. 0 IF LENGTH/LINKAGE/DISK ERROR.
00067  M00S00057.compvei +++|*                (T6) = EOI TRACK.
00068  M00S00058.compvei +++|*                (T7) = EOI SECTOR.

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

Seq #  *Modification Id* Act 
----------------------------+
00069  M01S00059.ns2788  ---|*                (FS+4) = 0 IF EOI SECTOR TO BE REWRITTEN.

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

Seq #  *Modification Id* Act 
----------------------------+
00070  M01S00003.ns2788  +++|*                (FS+4) = 0, IF EOI SECTOR MUST BE REWRITTEN.
00071  M00S00060.compvei +++|*

Line S00061 Modification History
`M01` (Removed by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00072  M01S00061.ns2788  ---|*         USES   NT, FS+2 - FS+4, T3 - T7.

Line S00004 Modification History
`M01` (Added by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00073  M01S00004.ns2788  +++|*         USES   NT, FS+2 - FS+4, T2 - T7.
00074  M00S00062.compvei +++|*

Line S00063 Modification History
`M01` (Removed by)	`ns2478`

Seq #  *Modification Id* Act 
----------------------------+
00075  M01S00063.ns2478  ---|*         CALLS  RDS, SEI, VSL.

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

Seq #  *Modification Id* Act 
----------------------------+
00076  M01S00003.ns2478  +++|*         CALLS  C2D, RDS, SEI, VSL.
00077  M00S00064.compvei +++|*
00078  M00S00065.compvei +++|*         MACROS SETMS.
00079  M00S00066.compvei +++|
00080  M00S00067.compvei +++|
00081  M00S00068.compvei +++| RDC      SUBR               ENTRY/EXIT
00082  M00S00069.compvei +++|          PJN    RDC1        IF EOI LOCATED

Line S00002 Modification History
`M01` (Added by)	`ns2669`

Seq #  *Modification Id* Act 
----------------------------+
00083  M01S00002.ns2669  +++|*         LDN    (NONZERO)   (DO NOT FORCE CURRENT TRT)
00084  M00S00070.compvei +++|          RJM    SEI         SEARCH FOR EOI IN TRT
00085  M00S00071.compvei +++|          STD    NT          SET NUMBER OF TRACKS
00086  M00S00072.compvei +++|          LDD    T6          SAVE EOI TRACK
00087  M00S00073.compvei +++|          STD    FS+2
00088  M00S00074.compvei +++|          LDD    T7          SAVE EOI SECTOR
00089  M00S00075.compvei +++|          STD    FS+3

Line S00076 Modification History
`M01` (Removed by)	`pvei2`

Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00076.pvei2   ---|          SETMS  READ
00091  M01S00077.pvei2   ---| RDC1     LDC    SBUF        SET BUFFER ADDRESS

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

Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00001.242l642 ---| RDC1     SETMS  READ        FORCE POSITION

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

Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00001.ns2669  ---| RDC1     SETMS  IO,RW

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

Seq #  *Modification Id* Act 
----------------------------+
00094  M01S00003.ns2669  +++| RDC1     SETMS  POSITION
00095  M01S00004.ns2669  +++|          LDD    TH          SET *READSTR* STATUS
00096  M01S00005.ns2669  +++|          RAM    CHRV
00097  M01S00006.ns2669  +++|          SETMS  =,READSTR

Line S00002 Modification History
`M01` (Added by)	`pvei2`

Seq #  *Modification Id* Act 
----------------------------+
00098  M01S00002.pvei2   +++|          LDC    SBUF        SET BUFFER ADDRESS
00099  M00S00078.compvei +++|          STD    T3
00100  M00S00079.compvei +++|          LDN    FSMS        SET FIRST DATA SECTOR
00101  M00S00080.compvei +++|          STD    T7

Line S00005 Modification History
`M01` (Added by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00102  M01S00005.ns2788  +++|          STM    RDCC
00103  M00S00081.compvei +++|          LDD    FS+1        SET FIRST TRACK

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

Seq #  *Modification Id* Act 
----------------------------+
00104  M01S00006.ns2788  +++|          STM    RDCD
00105  M00S00082.compvei +++| RDC2     STD    T6

Line S00004 Modification History
`M01` (Added by)	`ns2478`

Seq #  *Modification Id* Act 
----------------------------+
00106  M01S00004.ns2478  +++|          SHN    -6          CONVERT TO DISPLAY CODE
00107  M01S00005.ns2478  +++|          RJM    C2D
00108  M01S00006.ns2478  +++|          STM    RDCB+1      SET IN MESSAGE
00109  M01S00007.ns2478  +++|          LDD    T6
00110  M01S00008.ns2478  +++|          RJM    C2D
00111  M01S00009.ns2478  +++|          STM    RDCB+2
00112  M01S00010.ns2478  +++|          LDC    DSCP*CPAS+MS1W  STORE STATUS MESSAGE
00113  M01S00011.ns2478  +++| RDCA     EQU    *-1
00114  M01S00012.ns2478  +++|          CWM    RDCB,ON
00115  M00S00083.compvei +++| RDC3     LDD    T3          READ NEXT SECTOR
00116  M00S00084.compvei +++|          RJM    RDS

Line S00085 Modification History
`M01` (Removed by)	`ns2478`

Seq #  *Modification Id* Act 
----------------------------+
00117  M01S00085.ns2478  ---|          MJN    RDCX        IF ERROR

Line S00013 Modification History
`M01` (Added by)	`ns2478`
`M02` (Removed by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00118  M02S00013.ns2788  ---|          MJN    RDC6        IF ERROR

Line S00007 Modification History
`M01` (Added by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00119  M01S00007.ns2788  +++|          PJN    RDC3.1      IF NO ERROR
00120  M01S00008.ns2788  +++|          LDC    **          (LAST SECTOR BEFORE ERROR)
00121  M01S00009.ns2788  +++| RDCC     EQU    *-1
00122  M01S00010.ns2788  +++|          STD    T7
00123  M01S00011.ns2788  +++|          LDC    **          (LAST TRACK BEFORE ERROR)
00124  M01S00012.ns2788  +++| RDCD     EQU    *-1
00125  M01S00013.ns2788  +++|          STD    T6
00126  M01S00014.ns2788  +++|          UJN    RDC4.1      SET REWRITE OF EOI SECTOR
00127  M01S00015.ns2788  +++|
00128  M01S00016.ns2788  +++| RDC3.1   LDD    T7          SAVE SECTOR/TRACK
00129  M01S00017.ns2788  +++|          STM    RDCC
00130  M01S00018.ns2788  +++|          LDD    T6
00131  M01S00019.ns2788  +++|          STM    RDCD
00132  M00S00086.compvei +++|          LDI    T3          CHECK LINKAGE

Line S00087 Modification History
`M01` (Removed by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00133  M01S00087.ns2788  ---|          NJN    RDC4        IF NOT EOI

Line S00020 Modification History
`M01` (Added by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00134  M01S00020.ns2788  +++|          NJN    RDC4        IF NOT EOF/EOI SECTOR
00135  M00S00088.compvei +++|          ADM    1,T3
00136  M00S00089.compvei +++|          ZJN    RDC5        IF EOI SECTOR

Line S00090 Modification History
`M01` (Removed by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00137  M01S00090.ns2788  ---|          STI    T3

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

Seq #  *Modification Id* Act 
----------------------------+
00138  M01S00021.ns2788  +++|          STI    T3          SAVE LINKAGE BYTE FOR EOF SECTOR
00139  M00S00091.compvei +++| RDC4     RJM    VSL         VALIDATE SECTOR LINKAGE
00140  M00S00092.compvei +++|          ZJN    RDC3        IF NORMAL SECTOR LINKAGE

Line S00093 Modification History
`M01` (Removed by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00141  M01S00093.ns2788  ---|          PJN    RDC2        IF CROSSING TRACK BOUNDARY
00142  M01S00094.ns2788  ---|          LDN    0           SET REWRITE OF EOI SECTOR

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

Seq #  *Modification Id* Act 
----------------------------+
00143  M01S00022.ns2788  +++|          PJP    RDC2        IF CROSSING TRACK BOUNDARY
00144  M01S00023.ns2788  +++| RDC4.1   LDN    0           SET REWRITE OF EOI SECTOR
00145  M00S00095.compvei +++|          STD    FS+4

Line S00024 Modification History
`M01` (Added by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00146  M01S00024.ns2788  +++|          LDN    1
00147  M01S00025.ns2788  +++|          UJN    RDC6        RETURN ERROR STATUS
00148  M01S00026.ns2788  +++|
00149  M00S00096.compvei +++| RDC5     LDD    T6          COMPARE EOI ON DISK WITH TRT EOI
00150  M00S00097.compvei +++|          LMD    FS+2
00151  M00S00098.compvei +++|          NJN    RDC6        IF NOT SAME TRACK
00152  M00S00099.compvei +++|          LDD    T7
00153  M00S00100.compvei +++|          LMD    FS+3

Line S00101 Modification History
`M01` (Removed by)	`ns2669`

Seq #  *Modification Id* Act 
----------------------------+
00154  M01S00101.ns2669  ---| RDC6     LJM    RDCX        RETURN

Line S00007 Modification History
`M01` (Added by)	`ns2669`

Seq #  *Modification Id* Act 
----------------------------+
00155  M01S00007.ns2669  +++| RDC6     STD    T2          SAVE STATUS

Line S00008 Modification History
`M01` (Added by)	`ns2669`
`M02` (Removed by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00008.ns2788  ---|          SHN    -14
00157  M02S00009.ns2788  ---|          STD    T1

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

Seq #  *Modification Id* Act 
----------------------------+
00158  M01S00010.ns2669  +++|          LDC    -1000       CLEAR *READSTR* STATUS
00159  M01S00011.ns2669  +++|          RAM    CHRV
00160  M01S00012.ns2669  +++|          SETMS  =,IO

Line S00013 Modification History
`M01` (Added by)	`ns2669`
`M02` (Removed by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00161  M02S00013.ns2788  ---|          LDD    T1          GET STATUS
00162  M02S00014.ns2788  ---|          SHN    14
00163  M02S00015.ns2788  ---|          LMD    T2

Line S00027 Modification History
`M01` (Added by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00164  M01S00027.ns2788  +++|          LDD    T2          RETURN STATUS

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

Seq #  *Modification Id* Act 
----------------------------+
00165  M01S00016.ns2669  +++|          LJM    RDCX        RETURN

Line S00014 Modification History
`M01` (Added by)	`ns2478`

Seq #  *Modification Id* Act 
----------------------------+
00166  M01S00014.ns2478  +++|
00167  M01S00015.ns2478  +++|
00168  M01S00016.ns2478  +++| RDCB     DATA   C* T0000.*
00169  M00S00102.compvei +++| VFL      SPACE  4,15
00170  M00S00103.compvei +++|**        VFL - VERIFY FILE LENGTH.

Line S00017 Modification History
`M01` (Added by)	`ns2669`

Seq #  *Modification Id* Act 
----------------------------+
00171  M01S00017.ns2669  +++|*
00172  M01S00018.ns2669  +++|*         ENTRY  (T5) = EST ORDINAL.
00173  M01S00019.ns2669  +++|*                *SETMS IO* PERFORMED.
00174  M00S00104.compvei +++|*
00175  M00S00105.compvei +++|*         EXIT   (A) = 0 IF NO LENGTH ERRORS.
00176  M00S00106.compvei +++|*                (A) .LT. 0 IF READ ERROR.
00177  M00S00107.compvei +++|*                (NT) = NUMBER OF TRACKS TO EOI.
00178  M00S00108.compvei +++|*                (FS+2) = EOI TRACK.
00179  M00S00109.compvei +++|*                (FS+3) = EOI SECTOR.
00180  M00S00110.compvei +++|*
00181  M00S00111.compvei +++|*         CALLS  RDS, SEI.
00182  M00S00112.compvei +++|*
00183  M00S00113.compvei +++|*         MACROS ENDMS, SETMS.
00184  M00S00114.compvei +++|
00185  M00S00115.compvei +++|
00186  M00S00116.compvei +++| VFL      SUBR               ENTRY EXIT
00187  M00S00117.compvei +++|          RJM    SEI
00188  M00S00118.compvei +++|          STD    NT          SET NUMBER OF TRACKS
00189  M00S00119.compvei +++|          LDD    T6          SAVE EOI TRACK
00190  M00S00120.compvei +++|          STD    FS+2
00191  M00S00121.compvei +++|          LDD    T7          SAVE EOI SECTOR
00192  M00S00122.compvei +++|          STD    FS+3

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

Seq #  *Modification Id* Act 
----------------------------+
00193  M01S00123.242l642 ---|          SETMS  READ

Line S00002 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2669`

Seq #  *Modification Id* Act 
----------------------------+
00194  M02S00002.ns2669  ---|          SETMS  IO

Line S00020 Modification History
`M01` (Added by)	`ns2669`

Seq #  *Modification Id* Act 
----------------------------+
00195  M01S00020.ns2669  +++|          SETMS  POSITION
00196  M00S00124.compvei +++|          LDC    SBUF        READ EOI SECTOR
00197  M00S00125.compvei +++|          RJM    RDS
00198  M00S00126.compvei +++|          MJN    VFLX        IF READ ERROR
00199  M00S00127.compvei +++|          ENDMS
00200  M00S00128.compvei +++|
00201  M00S00129.compvei +++|*         DETERMINE IF EOI SECTOR WAS READ.
00202  M00S00130.compvei +++|
00203  M00S00131.compvei +++|          LDM    SBUF
00204  M00S00132.compvei +++|          ADM    SBUF+1
00205  M00S00133.compvei +++|          UJN    VFLX

Line S00134 Modification History
`M01` (Removed by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00206  M01S00134.ns2788  ---| VSL      SPACE  4,20

Line S00028 Modification History
`M01` (Added by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00207  M01S00028.ns2788  +++| VSL      SPACE  4,25
00208  M00S00135.compvei +++|**        VSL - VALIDATE SECTOR LINKAGE.
00209  M00S00136.compvei +++|*
00210  M00S00137.compvei +++|*         ENTRY  (T3) = BUFFER ADDRESS.
00211  M00S00138.compvei +++|*                (T6) = CURRENT TRACK.
00212  M00S00139.compvei +++|*                (T7) = CURRENT SECTOR.
00213  M00S00140.compvei +++|*                (NT) = TRACK COUNT TO EOI.
00214  M00S00141.compvei +++|*                (FS+2) = EOI TRACK FROM TRT.
00215  M00S00142.compvei +++|*                (FS+3) = EOI SECTOR FROM TRT.
00216  M00S00143.compvei +++|*
00217  M00S00144.compvei +++|*         EXIT   (A) = 0 IF NORMAL SECTOR LINKAGE.
00218  M00S00145.compvei +++|*                (A) = NEXT TRACK IF CROSSING TRACK BOUNDARY.
00219  M00S00146.compvei +++|*                (A) = -0 IF LINKAGE ERROR.

Line S00029 Modification History
`M01` (Added by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00220  M01S00029.ns2788  +++|*                (T6) = NEXT TRACK.
00221  M01S00030.ns2788  +++|*                (T6) = EOI TRACK, IF LINKAGE ERROR.
00222  M00S00147.compvei +++|*                (T7) = NEXT SECTOR.

Line S00148 Modification History
`M01` (Removed by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00223  M01S00148.ns2788  ---|*                (FS+3) = -0 IF TRT UPDATE REQUIRED.

Line S00031 Modification History
`M01` (Added by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00224  M01S00031.ns2788  +++|*                (T7) = EOI SECTOR, IF LINKAGE ERROR.
00225  M01S00032.ns2788  +++|*                (NT) DECREMENTED IF TRACK BOUNDARY CROSSED.
00226  M01S00033.ns2788  +++|*
00227  M01S00034.ns2788  +++|*         USES   NT, T6, T7.
00228  M00S00149.compvei +++|*
00229  M00S00150.compvei +++|*         CALLS  SNT.
00230  M00S00151.compvei +++|
00231  M00S00152.compvei +++|
00232  M00S00153.compvei +++| VSL3     LDI    T3          CHECK SECTOR LINKAGE

Line S00154 Modification History
`M01` (Removed by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00233  M01S00154.ns2788  ---|          SHN    6

Line S00035 Modification History
`M01` (Added by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00234  M01S00035.ns2788  +++|          SHN    21-13
00235  M00S00155.compvei +++|          PJN    VSL1        IF LINKAGE DOESNT INDICATE NEW TRACK
00236  M00S00156.compvei +++|          SOD    NT          DECREMENT TRACK COUNT FOR FILE
00237  M00S00157.compvei +++|          ZJN    VSL2        IF BEYOND EOI IN TRT
00238  M00S00158.compvei +++|          RJM    SNT         GET NEXT TRACK FROM TRT
00239  M00S00159.compvei +++|          LMI    T3
00240  M00S00160.compvei +++|          NJN    VSL1        IF NOT SAME TRACK IN LINKAGE
00241  M00S00161.compvei +++|          STD    T7          SET FIRST SECTOR FOR NEXT TRACK
00242  M00S00162.compvei +++|          LDI    T3          RETURN WITH (A) = NEXT TRACK
00243  M00S00163.compvei +++|
00244  M00S00164.compvei +++| VSL      SUBR               ENTRY/EXIT
00245  M00S00165.compvei +++|          AOD    T7          ADVANCE SECTOR NUMBER
00246  M00S00166.compvei +++|          LMM    SLM
00247  M00S00167.compvei +++|          ZJN    VSL3        IF SECTOR LIMIT
00248  M00S00168.compvei +++|          LDD    T7
00249  M00S00169.compvei +++|          LMI    T3
00250  M00S00170.compvei +++|          ZJN    VSLX        IF VALID SECTOR LINKAGE
00251  M00S00171.compvei +++| VSL1     SOD    T7          SET EOI SECTOR

Line S00172 Modification History
`M01` (Removed by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00252  M01S00172.ns2788  ---|          LCN    0           FORCE CHANGE OF EOI IN TRT
00253  M01S00173.ns2788  ---|          STD    FS+3

Line S00036 Modification History
`M01` (Added by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00254  M01S00036.ns2788  +++|          LCN    0           INDICATE LINKAGE ERROR
00255  M00S00174.compvei +++|          UJN    VSLX        RETURN
00256  M00S00175.compvei +++|
00257  M00S00176.compvei +++| VSL2     LDD    FS+3        SET EOI SECTOR
00258  M00S00177.compvei +++|          STD    T7
00259  M00S00178.compvei +++|          LDD    FS+2        SET EOI TRACK
00260  M00S00179.compvei +++|          STD    T6

Line S00180 Modification History
`M01` (Removed by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00261  M01S00180.ns2788  ---|          LCN    0

Line S00037 Modification History
`M01` (Added by)	`ns2788`

Seq #  *Modification Id* Act 
----------------------------+
00262  M01S00037.ns2788  +++|          LCN    0           INDICATE LINKAGE ERROR
00263  M00S00181.compvei +++|          UJN    VSLX        RETURN
00264  M00S00182.compvei +++|          SPACE  4,10
00265  M00S00183.compvei +++|          BASE   *
00266  M00S00184.compvei +++| QUAL$    IF     -DEF,QUAL$
00267  M00S00185.compvei +++|          QUAL   *
00268  M00S00186.compvei +++| CLF      EQU    /COMPVEI/CLF
00269  M00S00187.compvei +++| RDC      EQU    /COMPVEI/RDC

Line S00017 Modification History
`M01` (Added by)	`ns2478`

Seq #  *Modification Id* Act 
----------------------------+
00270  M01S00017.ns2478  +++| RDCA     EQU    /COMPVEI/RDCA
00271  M00S00188.compvei +++| VFL      EQU    /COMPVEI/VFL
00272  M00S00189.compvei +++| QUAL$    ENDIF
00273  M00S00190.compvei +++|          ENDX