User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ms.002

Deck 1MS Part 002

38 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03226  M00S02568.1ms     +++|
03227  M00S02569.1ms     +++|*         PROCESS PARTIAL SECTOR TRANSFER TO USER BUFFER.
03228  M00S02570.1ms     +++|
03229  M00S02571.1ms     +++| RSK4     AOD    PC          INCREMENT PRU COUNT
03230  M00S02572.1ms     +++|          LDC    RSK7        SET STOP ON PRU
03231  M00S02573.1ms     +++|          STM    /RMS/BRDU
03232  M00S02574.1ms     +++|          STM    /RMS/BRDV
03233  M00S02575.1ms     +++|          LDC    400         SET SKIP FLAG
03234  M00S02576.1ms     +++|          RAM    RCRF
03235  M00S02577.1ms     +++|          LDC    BFMS        READ NEXT SECTOR
03236  M00S02578.1ms     +++|          RJM    RNS
Line S02579 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03237  M01S02579.242l642 ---|          STM    RSKA        SAVE SECTOR WORD COUNT
03238  M01S02580.242l642 ---|          ZJN    RSK7        IF EMPTY SECTOR
Line S00152 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03239  M01S00152.242l642 +++|          ZJN    RSK7.2      IF EMPTY SECTOR
03240  M01S00153.242l642 +++|          STM    RSKA
03241  M00S02581.1ms     +++|          LDD    OP          CHECK BUFFER SPACE
03242  M00S02582.1ms     +++|          SBD    DP+3        LENGTH = OUT - IN - 1
03243  M00S02583.1ms     +++|          SHN    14
03244  M00S02584.1ms     +++|          ADD    OP+1
03245  M00S02585.1ms     +++|          SBD    DP+4
03246  M00S02586.1ms     +++|          SBN    1
03247  M00S02587.1ms     +++|          PJN    RSK5        IF NO WRAP AROUND
03248  M00S02588.1ms     +++|          SHN    6           LENGTH = LIMIT - IN - 1 + OUT - FIRST
03249  M00S02589.1ms     +++|          ADD    LM
03250  M00S02590.1ms     +++|          SBD    FT
03251  M00S02591.1ms     +++|          SHN    14
03252  M00S02592.1ms     +++|          ADD    LM+1
03253  M00S02593.1ms     +++|          SBD    FT+1
03254  M00S02594.1ms     +++| RSK5     STD    T3          SET BUFFER LENGTH
03255  M00S02595.1ms     +++|          SBD    T1
03256  M00S02596.1ms     +++|          PJN    RSK6        IF ROOM FOR SECTOR
03257  M00S02597.1ms     +++|          LDD    T3          SET BUFFER WORD COUNT
03258  M00S02598.1ms     +++|          STD    T1
03259  M00S02599.1ms     +++|          ZJN    RSK7        IF FULL BUFFER
03260  M00S02600.1ms     +++| RSK6     RJM    /RMS/SBA    RESET BUFFER ADDRESSES
03261  M00S02601.1ms     +++|          LDD    T1
03262  M00S02602.1ms     +++|          LJM    /RMS/BRD11  WRITE DATA TO BUFFER
03263  M00S02603.1ms     +++|
03264  M00S02604.1ms     +++|*         PROCESS SKIP TO EOR/EOF/EOI.
03265  M00S02605.1ms     +++|
03266  M00S02606.1ms     +++| RSK7     LDC    **          CHECK SECTOR WORD COUNT
03267  M00S02607.1ms     +++| RSKA     EQU    *-1
Line S02608 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03268  M01S02608.242l642 ---|          SHN    -6
03269  M01S02609.242l642 ---|          ZJN    RSK11       IF SHORT SECTOR
Line S00154 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03270  M01S00154.242l642 +++| RSK7.1   SHN    -6
03271  M01S00155.242l642 +++| RSK7.2   ZJN    RSK11       IF SHORT SECTOR
03272  M00S02610.1ms     +++| RSK8     LDD    T7          CHECK FOR NEW TRACK
03273  M00S02611.1ms     +++|*         LDN    0           (MASS STORAGE ERROR)
03274  M00S02612.1ms     +++| RSKB     EQU    *-1
03275  M00S02613.1ms     +++| RSKC     NJN    RSK9        IF NOT NEW TRACK
03276  M00S02614.1ms     +++|*         LJM    RSK13       (MASS STORAGE ERROR)
03277  M00S02615.1ms     +++|          RJM    CRT         CHECK RECALL TIME
03278  M00S02616.1ms     +++|          MJN    RSK10       IF PROCESSING TIME EXCEEDED
03279  M00S02617.1ms     +++|          LDD    PC
03280  M00S02618.1ms     +++|          ADM    SLM
03281  M00S02619.1ms     +++|          SHN    -14
03282  M00S02620.1ms     +++|          NJN    RSK10       IF PRU COUNT WILL EXCEED 12 BITS
03283  M00S02621.1ms     +++| RSK9     AOD    PC
03284  M00S02622.1ms     +++|          LDC    BFMS+DTSF   READ NEXT SECTOR HEADER WORDS
03285  M00S02623.1ms     +++|          RJM    RNS
Line S02624 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03286  M01S02624.242l642 ---|          STM    RSKA        SAVE WORD COUNT
03287  M01S02625.242l642 ---|          UJN    RSK7        CONTINUE SKIP TO SHORT SECTOR
Line S00156 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03288  M01S00156.242l642 +++|          UJN    RSK7.1      CONTINUE SKIP TO SHORT SECTOR
03289  M00S02626.1ms     +++|
03290  M00S02627.1ms     +++| RSK10    AOM    COCA        SET RECALL STACK FLAG
03291  M00S02628.1ms     +++|          UJN    RSK14       COMPLETE READ PROCESSING
03292  M00S02629.1ms     +++|
03293  M00S02630.1ms     +++| RSK11    LDM    BFMS        CHECK TERMINATION
03294  M00S02631.1ms     +++|          ZJN    RSK12       IF EOF/EOI
03295  M00S02632.1ms     +++|          LDD    BS+3        CHECK SKIP TO EOF
03296  M00S02633.1ms     +++|          LPN    74
03297  M00S02634.1ms     +++|          LMN    74
03298  M00S02635.1ms     +++|          ZJN    RSK8        IF SKIP TO EOF
03299  M00S02636.1ms     +++|          LDN    /CIO/EOR
03300  M00S02637.1ms     +++|          UJN    RSK13       SET EOR READ STATUS
03301  M00S02638.1ms     +++|
03302  M00S02639.1ms     +++| RSK12    LDN    /CIO/EOF    SET EOF
03303  M00S02640.1ms     +++|          STD    FS+4
03304  M00S02641.1ms     +++|          LDM    BFMS+1
03305  M00S02642.1ms     +++|          NJN    RSK14       IF NOT EOI
03306  M00S02643.1ms     +++|          SOD    PC
03307  M00S02644.1ms     +++|          LDN    /CIO/EOI
03308  M00S02645.1ms     +++| RSK13    STD    FS+4
03309  M00S02646.1ms     +++| RSK14    LJM    /RMS/CPR    EXIT TO COMPLETE READ
03310  M00S02647.1ms     +++| CRT      SPACE  4,10
03311  M00S02648.1ms     +++|**        CRT - CHECK RECALL TIME.
03312  M00S02649.1ms     +++|*
03313  M00S02650.1ms     +++|*         ENTRY  FIRST CALL STARTS TIMING.  ELAPSED TIME OF EACH
03314  M00S02651.1ms     +++|*                INTERVAL IS KEPT TO MINIMIZE CLOCK OVERFLOW.
03315  M00S02652.1ms     +++|*
03316  M00S02653.1ms     +++|*         EXIT   (A) .LT. 0 IF PROCESSING TIME EXCEEDED.
03317  M00S02654.1ms     +++|*
03318  M00S02655.1ms     +++|*         USES   CM - CM+4.
03319  M00S02656.1ms     +++|
03320  M00S02657.1ms     +++|
03321  M00S02658.1ms     +++| CRT2     AOM    CRTA        INDICATE TIME ACCUMULATION STARTED
03322  M00S02659.1ms     +++| CRT3     LDD    CM+4        SAVE CURRENT CLOCK VALUE
03323  M00S02660.1ms     +++|          STM    CRTB
03324  M00S02661.1ms     +++|
03325  M00S02662.1ms     +++| CRT      SUBR               ENTRY/EXIT
03326  M00S02663.1ms     +++|          LDC    RTCL        READ REAL TIME CLOCK
03327  M00S02664.1ms     +++|          CRD    CM
03328  M00S02665.1ms     +++|          LDC    0           ELAPSED TIME
03329  M00S02666.1ms     +++| CRTA     EQU    *-1
03330  M00S02667.1ms     +++|          ZJN    CRT2        IF FIRST CALL
03331  M00S02668.1ms     +++|          LDD    CM+4        CALCULATE TIME SINCE LAST CALL
03332  M00S02669.1ms     +++|          SBM    CRTB
03333  M00S02670.1ms     +++|          PJN    CRT1        IF NO OVERFLOW
03334  M00S02671.1ms     +++|          ADC    10000
03335  M00S02672.1ms     +++| CRT1     RAM    CRTA        ACCUMULATED PROCESSING TIME
03336  M00S02673.1ms     +++|          ADC    -RSPT
03337  M00S02674.1ms     +++|          MJN    CRT3        IF TIME NOT EXCEEDED
03338  M00S02675.1ms     +++|          LCN    0           SET TIME EXCEEDED
03339  M00S02676.1ms     +++|          UJN    CRTX        RETURN
03340  M00S02677.1ms     +++|
03341  M00S02678.1ms     +++|
03342  M00S02679.1ms     +++| CRTB     CON    0           PREVIOUS CLOCK VALUE
03343  M00S02680.1ms     +++|          TITLE  READ LIST PROCESSOR.
03344  M00S02681.1ms     +++| RPL      SPACE  4,10
03345  M00S02682.1ms     +++|**        RPL - READ PRUS WITH LIST (*RPHRLS*) (FUNCTION 230).
03346  M00S02683.1ms     +++|*
03347  M00S02684.1ms     +++|*         EXIT   TO *RLS*.
03348  M00S02685.1ms     +++|
03349  M00S02686.1ms     +++|
03350  M00S02687.1ms     +++| RPL      BSS    0           ENTRY
03351  M00S02688.1ms     +++|          LDC    ALS         SET LIST ADVANCE AT EACH PRU
03352  M00S02689.1ms     +++|          STM    /RMS/BRDU
03353  M00S02690.1ms     +++|*         LJM    RLS         PROCESS LIKE *READNS*
03354  M00S02691.1ms     +++| RLS      SPACE  4,20
03355  M00S02692.1ms     +++|**        RLS - READ RECORDS WITH LIST (*READLS*) (FUNCTION 210).
03356  M00S02693.1ms     +++|*
03357  M00S02694.1ms     +++|*         ENTRY  (FO) = FET OPTIONS.
03358  M00S02695.1ms     +++|*                (FS - FS+4) = FST ENTRY.
03359  M00S02696.1ms     +++|*
03360  M00S02697.1ms     +++|*         EXIT   (LI) = LIST INDEX (IN *TLSA* TRACK/SECTOR TABLE).
03361  M00S02698.1ms     +++|*                (FS - FS+4) = ADVANCED FST AENTRY.
03362  M00S02699.1ms     +++|*                (LS - LS+1) = LIST ADDRESS.
03363  M00S02700.1ms     +++|*                TO *SLS* IF EMPTY LIST.
03364  M00S02701.1ms     +++|*                TO *SMRX* AFTER PRESET FOR REENTRY.
03365  M00S02702.1ms     +++|*
03366  M00S02703.1ms     +++|*         USES   T5, CM - CM+4, LP - LP+1.
03367  M00S02704.1ms     +++|*
03368  M00S02705.1ms     +++|*         CALLS  CLI.
03369  M00S02706.1ms     +++|*
03370  M00S02707.1ms     +++|*         MACROS CFET, ERROR, SETMS.
03371  M00S02708.1ms     +++|
03372  M00S02709.1ms     +++| RLS      BSS    0           ENTRY
03373  M00S02710.1ms     +++|          LDM    FETL        CHECK FET LENGTH
03374  M00S02711.1ms     +++|          NJN    RLS1        IF FET CONTAINS THE LIST ADDRESS WORD
03375  M00S02712.1ms     +++|          ERROR  FPE         *FET PARAMETER ERROR*
03376  M00S02713.1ms     +++|
03377  M00S02714.1ms     +++| RLS1     LDC    ALS         SET LIST ADVANCE ON EOR
03378  M00S02715.1ms     +++|          STM    /RMS/BRDV
03379  M00S02716.1ms     +++|          STM    /RMS/BRDF
03380  M00S02717.1ms     +++|          STM    /RMS/EOFA
03381  M00S02718.1ms     +++|          LDC    SLS         SET LIST COMPLETION
03382  M00S02719.1ms     +++|          STM    /RMS/CPRB
Line S00003 Modification History
M01 (Added by) 1ms14
Seq #  *Modification Id* Act 
----------------------------+
03383  M01S00003.1ms14   +++|          STM    CDAB
03384  M00S02720.1ms     +++|          LDC    TLSA        SET LIST INDEX
03385  M00S02721.1ms     +++|          STD    LI
03386  M00S02722.1ms     +++|          CFET   5           READ LIST POINTER
03387  M00S02723.1ms     +++|          CRD    CM
03388  M00S02724.1ms     +++|          LDD    CM+3        SET LIST POINTER
03389  M00S02725.1ms     +++|          LPC    4037
03390  M00S02726.1ms     +++|          STD    LS
03391  M00S02727.1ms     +++|          STM    SLSC
03392  M00S02728.1ms     +++|          LPN    37
03393  M00S02729.1ms     +++|          STD    LP
03394  M00S02730.1ms     +++|          LDD    CM+4
03395  M00S02731.1ms     +++|          STD    LS+1
03396  M00S02732.1ms     +++|          STD    LP+1
Line S02733 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03397  M01S02733.ns22000 ---|          LDD    FS          SET EQUIPMENT NUMBER
Line S00162 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03398  M01S00162.ns22000 +++|          LDD    FS          SET EST ORDINAL
Line S02734 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03399  M01S02734.ns22000 ---|          LPN    77
03400  M00S02735.1ms     +++|          STD    T5
Line S02736 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03401  M01S02736.242l642 ---|          SETMS  READ
Line S00157 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03402  M01S00157.242l642 +++|          SETMS  STATUS
03403  M00S02737.1ms     +++|          LDD    CM+4        READ TRT POINTER
03404  M00S02738.1ms     +++|          SHN    3
Line S02739 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03405  M01S02739.ns22000 ---|          ADN    MSTL
Line S00163 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03406  M01S00163.ns22000 +++|          ADN    TRLL
03407  M01S00164.ns22000 +++|          CRD    CM
03408  M01S00165.ns22000 +++|          LDD    CM+3        EXTRACT TRT ADDRESS
03409  M01S00166.ns22000 +++|          LPN    77
03410  M01S00167.ns22000 +++|          SHN    14
03411  M01S00168.ns22000 +++|          LMD    CM+4
03412  M00S02740.1ms     +++|          ADC    -4000/4
03413  M00S02741.1ms     +++|          STM    CLIA+1
03414  M00S02742.1ms     +++|          STM    CLIB+1
03415  M00S02743.1ms     +++|          STM    CLIC+1
03416  M00S02744.1ms     +++|          SHN    -14
03417  M00S02745.1ms     +++|          RAM    CLIA
03418  M00S02746.1ms     +++|          STM    CLIB
03419  M00S02747.1ms     +++|          STM    CLIC
03420  M00S02748.1ms     +++|          RJM    CLI         CONVERT LIST INDICES
03421  M00S02749.1ms     +++|          LDN    0           TERMINATE LIST
03422  M00S02750.1ms     +++|          STI    LI
03423  M00S02751.1ms     +++|          LDC    TLSA        RESET LIST INDEX
03424  M00S02752.1ms     +++|          STD    LI
03425  M00S02753.1ms     +++|          LDI    LI          SET TRACK
03426  M00S02754.1ms     +++|          ZJN    RLS3        IF EMPTY LIST
03427  M00S02755.1ms     +++|          LDD    LS
03428  M00S02756.1ms     +++|          SHN    21-13
03429  M00S02757.1ms     +++|          MJN    RLS2        IF CONTINUATION OF PREVIOUS OPERATION
03430  M00S02758.1ms     +++|          LDC    4000        SET CONTINUATION FLAG
03431  M00S02759.1ms     +++|          RAD    LS
03432  M00S02760.1ms     +++|          LDI    LI
03433  M00S02761.1ms     +++|          STD    FS+2
03434  M00S02762.1ms     +++|          LDM    1,LI        SET SECTOR
03435  M00S02763.1ms     +++|          STD    FS+3
03436  M00S02764.1ms     +++| RLS2     LJM    SMRX        RETURN
03437  M00S02765.1ms     +++|
03438  M00S02766.1ms     +++| RLS3     LDD    FO          CLEAR RANDOM FILE FLAG
03439  M00S02767.1ms     +++|          LPC    3777
03440  M00S02768.1ms     +++|          STD    FO
03441  M00S02769.1ms     +++|          LDN    /CIO/EOF    SET EOF STATUS
03442  M00S02770.1ms     +++|          RAM    SLSA
03443  M00S02771.1ms     +++|*         LJM    SLS         SET LIST STATUS
03444  M00S02772.1ms     +++| SLS      SPACE  4,15
03445  M00S02773.1ms     +++|**        SLS - SET LIST STATUS.
03446  M00S02774.1ms     +++|*
03447  M00S02775.1ms     +++|*         ENTRY  (FO) = FET OPTIONS.
03448  M00S02776.1ms     +++|*                (PC) = ACCUMULATED PRU COUNT.
03449  M00S02777.1ms     +++|*                (LS - LS+1) = LIST ADDRESS AND CONTINUATION FLAG.
03450  M00S02778.1ms     +++|*
03451  M00S02779.1ms     +++|*         EXIT   (FS+4) = LIST STATUS.
03452  M00S02780.1ms     +++|*                TO *MSP* IF NOT RANDOM FILE OR IF ALL PROCESSING
03453  M00S02781.1ms     +++|*                   DONE FOR SAME CONTINUATION LIST ENTRY.
03454  M00S02782.1ms     +++|*                TO *COC* IF NEW LIST ENTRY PROCESSED.
03455  M00S02783.1ms     +++|*
03456  M00S02784.1ms     +++|*         USES   CM - CM+4.
03457  M00S02785.1ms     +++|*
03458  M00S02786.1ms     +++|*         MACROS CFET.
03459  M00S02787.1ms     +++|
03460  M00S02788.1ms     +++|
03461  M00S02789.1ms     +++| SLS      BSS    0           ENTRY
03462  M00S02790.1ms     +++|          CFET   5           UPDATE LIST POINTER
03463  M00S02791.1ms     +++|          CRD    CM
03464  M00S02792.1ms     +++|          LDD    LI          UPDATE LIST ADDRESS
03465  M00S02793.1ms     +++|          ADC    -TLSA
03466  M00S02794.1ms     +++|          SHN    -1
03467  M00S02795.1ms     +++|          RAD    LS+1
03468  M00S02796.1ms     +++|          STD    CM+4
03469  M00S02797.1ms     +++|          SHN    -14
03470  M00S02798.1ms     +++|          RAD    LS
03471  M00S02799.1ms     +++|          STD    CM+3
03472  M00S02800.1ms     +++|          SHN    -13         COMPLEMENT CONTINUATION FLAG
03473  M00S02801.1ms     +++|
03474  M00S02802.1ms     +++|*         IF CONTINUATION, CRI UPDATE IS BASED ON ENTRY POINTED TO.
03475  M00S02803.1ms     +++|*         OTHERWISE *CRI* IS SET BASED ON PREVIOUS ENTRY.
03476  M00S02804.1ms     +++|
03477  M00S02805.1ms     +++|          LMN    1
03478  M00S02806.1ms     +++|          STD    T2
03479  M00S02807.1ms     +++|          CFET   5
03480  M00S02808.1ms     +++|          CWD    CM
03481  M00S02809.1ms     +++| SLSA     LDN    0           SET FST STATUS
03482  M00S02810.1ms     +++|*         LDN    /CIO/EOF    (END OF LIST - SET EOF STATUS)
03483  M00S02811.1ms     +++|          STD    FS+4
03484  M00S02812.1ms     +++|          LDC    0           CALCULATE PRUS TRANSFERRED FOR LIST ENTRY
03485  M00S02813.1ms     +++| SLSB     EQU    *-1
03486  M00S02814.1ms     +++|          NJN    SLS2        IF LIST HAS BEEN ADVANCED
03487  M00S02815.1ms     +++|          LDC    0           (ORIGINAL LIST POINTER CONTINUATION FLAG)
03488  M00S02816.1ms     +++| SLSC     EQU    *-1
03489  M00S02817.1ms     +++|          SHN    21-13
03490  M00S02818.1ms     +++|          PJN    SLS3        IF NOT CONTINUATION OPERATION INITIALLY
03491  M00S02819.1ms     +++| SLS1     LJM    MSP         COMPLETE MASS STORAGE PROCESSING
03492  M00S02820.1ms     +++|
03493  M00S02821.1ms     +++|*         CALCULATE I/O PENALTY.
03494  M00S02822.1ms     +++|
03495  M00S02823.1ms     +++| SLS2     LDD    LI
03496  M00S02824.1ms     +++|          ADC    -TLSA
03497  M00S02825.1ms     +++|          SHN    -1
03498  M00S02826.1ms     +++|          STD    T1
03499  M00S02827.1ms     +++|          LDM    TLAA,T1     ADD I/O PENALTY
03500  M00S02828.1ms     +++|          RAM    CFNH+1
03501  M00S02829.1ms     +++|          SHN    -14
03502  M00S02830.1ms     +++|          RAM    CFNH
03503  M00S02831.1ms     +++|          LCN    2
03504  M00S02832.1ms     +++|          RAD    LI
03505  M00S02833.1ms     +++|          LMC    TLSA
03506  M00S02834.1ms     +++|          NJN    SLS2        IF NOT AT BEGINNING OF LIST
03507  M00S02835.1ms     +++|
03508  M00S02836.1ms     +++|*         RETURN RANDOM ADDRESS TO FET.
03509  M00S02837.1ms     +++|
03510  M00S02838.1ms     +++| SLS3     LDD    FO
03511  M00S02839.1ms     +++|          SHN    21-13
03512  M00S02840.1ms     +++|          PJN    SLS1        IF NOT RANDOM FET
03513  M00S02841.1ms     +++|          CFET   6
03514  M00S02842.1ms     +++|          CRD    CM
03515  M00S02843.1ms     +++|
03516  M00S02844.1ms     +++|*         USE PREVIOUS ENTRY UNLESS CONTINUATION, THEN USE CURRENT
03517  M00S02845.1ms     +++|*         ENTRY.
03518  M00S02846.1ms     +++|
03519  M00S02847.1ms     +++|          LDD    LS
03520  M00S02848.1ms     +++|          LPN    37
03521  M00S02849.1ms     +++|          SHN    6
03522  M00S02850.1ms     +++|          ADD    RA
03523  M00S02851.1ms     +++|          SHN    6
03524  M00S02852.1ms     +++|          ADD    LS+1
03525  M00S02853.1ms     +++|          SBD    T2
03526  M00S02854.1ms     +++|          CRD    DP
03527  M00S02855.1ms     +++|          LDD    CM+2
03528  M00S02856.1ms     +++|          LPN    77
03529  M00S02857.1ms     +++|          STD    CM+2
03530  M00S02858.1ms     +++|          LDD    PC          ADVANCE RANDOM ADDRESS
03531  M00S02859.1ms     +++|          SBM    SLSB
03532  M00S02860.1ms     +++|          RAD    DP+4
03533  M00S02861.1ms     +++|          SHN    -14
03534  M00S02862.1ms     +++|          RAD    DP+3
03535  M00S02863.1ms     +++|          LDD    DP+4
03536  M00S02864.1ms     +++|          SHN    6
03537  M00S02865.1ms     +++|          RAD    CM+2
03538  M00S02866.1ms     +++|          LMD    CM+2
03539  M00S02867.1ms     +++|          ADD    DP+3
03540  M00S02868.1ms     +++|          SHN    6
03541  M00S02869.1ms     +++|          STD    CM+1
03542  M00S02870.1ms     +++|          SHN    -14
03543  M00S02871.1ms     +++|          STD    CM
03544  M00S02872.1ms     +++|          CFET   6
03545  M00S02873.1ms     +++|          CWD    CM
03546  M00S02874.1ms     +++|          LJM    COC         COMPLETE MASS STORAGE PROCESSING
03547  M00S02875.1ms     +++| ALS      SPACE  4,20
03548  M00S02876.1ms     +++|**        ALS - ADVANCE LIST.
03549  M00S02877.1ms     +++|*
03550  M00S02878.1ms     +++|*         ENTRY  (LI) = LIST INDEX.
03551  M00S02879.1ms     +++|*                (PC) = ACCUMULATED PRU COUNT.
03552  M00S02880.1ms     +++|*                (LS - LS+1) = LIST ADDRESS AND CONTINUATION FLAG.
03553  M00S02881.1ms     +++|*                (TC) = TRACKS TO PROCESS COUNT.
03554  M00S02882.1ms     +++|*
03555  M00S02883.1ms     +++|*         EXIT   (LI) = ADVANCED LIST INDEX.
03556  M00S02884.1ms     +++|*                (T6) = NEW LIST ENTRY CURRENT TRACK.
03557  M00S02885.1ms     +++|*                (T7) = NEW LIST ENTRY CURRENT SECTOR.
03558  M00S02886.1ms     +++|*                (LS) = CONTINUATION CLEARED IF RECALL OR END OF LIST.
03559  M00S02887.1ms     +++|*                (TC) = DECREMENTED IF TRACK SWITCH.
03560  M00S02888.1ms     +++|*                (SLSC) = (PC) IF NORMAL EXIT.
03561  M00S02889.1ms     +++|*                TO */RMS/BRD* TO PROCESS READ FOR NEXT LIST ENTRY.
03562  M00S02890.1ms     +++|*                TO */RMS/CPR* TO COMPLETE READ PROCESSING.
Line S00158 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03563  M01S00158.242l642 +++|*                TO *CDA*, IF MASS STORAGE ERROR.
03564  M00S02891.1ms     +++|*
03565  M00S02892.1ms     +++|*         USES   CM - CM+4.
03566  M00S02893.1ms     +++|*
03567  M00S02894.1ms     +++|*         CALLS  RNS.
03568  M00S02895.1ms     +++|*
03569  M00S02896.1ms     +++|*         MACROS SETMS.
03570  M00S02897.1ms     +++|
03571  M00S02898.1ms     +++|
03572  M00S02899.1ms     +++| ALS      BSS    0           ENTRY
03573  M00S02900.1ms     +++|          LDN    2           ADVANCE LIST INDEX
03574  M00S02901.1ms     +++|          RAD    LI
03575  M00S02902.1ms     +++|          LDI    LI          CHECK TRACK
03576  M00S02903.1ms     +++|          NJN    ALS4        IF NOT END OF TABLE
03577  M00S02904.1ms     +++|          LDD    LI          CHECK LIST INDEX
03578  M00S02905.1ms     +++|          ADC    -TLSAE
03579  M00S02906.1ms     +++|          MJN    ALS2        IF END OF REQUEST LIST ENCOUNTERED
03580  M00S02907.1ms     +++| ALS1     AOM    COCA        SET RECALL STACK FLAG
03581  M00S02908.1ms     +++|          UJN    ALS3        COMPLETE READ PROCESSING
03582  M00S02909.1ms     +++|
03583  M00S02910.1ms     +++| ALS2     LDN    /CIO/EOF    SET EOF STATUS
03584  M00S02911.1ms     +++|          RAM    SLSA
03585  M00S02912.1ms     +++| ALS3     LDC    -4000       CLEAR CONTINUATION FLAG
03586  M00S02913.1ms     +++|          RAD    LS
03587  M00S02914.1ms     +++|          LJM    /RMS/CPR    COMPLETE READ PROCESSING
03588  M00S02915.1ms     +++|
03589  M00S02916.1ms     +++| ALS4     LMD    T6
03590  M00S02917.1ms     +++|          ZJN    ALS6        IF SAME TRACK
03591  M00S02918.1ms     +++|          SOD    TC          DECREMENT TRACK COUNT
03592  M00S02919.1ms     +++|          NJN    ALS5        IF NOT TIME TO RECALL
03593  M00S02920.1ms     +++|          LDD    PC
03594  M00S02921.1ms     +++|          SBD    HN
03595  M00S02922.1ms     +++|          PJN    ALS1        IF 100 OR MORE SECTORS READ
03596  M00S02923.1ms     +++|          LDN    2           RESET TRACK COUNT
03597  M00S02924.1ms     +++|          STD    TC
03598  M00S02925.1ms     +++| ALS5     LDI    LI          SET NEW TRACK
03599  M00S02926.1ms     +++|          STD    T6
Line S02927 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03600  M01S02927.242l642 ---|          SETMS  READ
Line S00159 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03601  M01S00159.242l642 +++|          SETMS  POSITION
03602  M00S02928.1ms     +++|          UJN    ALS7        EXIT
03603  M00S02929.1ms     +++|
03604  M00S02930.1ms     +++| ALS6     LDM    1,LI
03605  M00S02931.1ms     +++|          SBD    T7
03606  M00S02932.1ms     +++|
03607  M00S02933.1ms     +++|*         TIMING OF THIS ROUTINE WHEN PROCESSING CONSECUTIVE SECTORS IS
03608  M00S02934.1ms     +++|*         CRITICAL.  ADDITIONAL CODE MAY CAUSE LOST REVOLUTIONS.
03609  M00S02935.1ms     +++|
03610  M00S02936.1ms     +++|          ZJN    ALS8        IF NEXT SECTOR IS DESIRED ONE
03611  M00S02937.1ms     +++|          MJN    ALS7        IF ADDRESSES NOT ASCENDING
03612  M00S02938.1ms     +++|          SBN    5
03613  M00S02939.1ms     +++|          PJN    ALS7        IF ENOUGH TIME TO RESEEK
03614  M00S02940.1ms     +++|
03615  M00S02941.1ms     +++|*         READING OF UP TO 5 SECTORS IS DONE INSTEAD OF ISSUING A SEEK
03616  M00S02942.1ms     +++|*         AS MOST CONTROLLERS ARE NOT FAST ENOUGH TO PROCESS THE SEEK
03617  M00S02943.1ms     +++|*         AND BE ABLE TO ACCESS THE NEXT SECTOR OR THE ONE FOLLOWING.
03618  M00S02944.1ms     +++|
03619  M00S02945.1ms     +++|          LDC    BFMS+DTSF   READ HEADER WORDS ONLY OPTION
03620  M00S02946.1ms     +++|          RJM    RNS         READ NEXT SECTOR
03621  M00S02947.1ms     +++|          UJN    ALS6        LOOP TO DESIRED SECTOR
03622  M00S02948.1ms     +++|
03623  M00S02949.1ms     +++| ALS7     LDM    1,LI        SET SECTOR
03624  M00S02950.1ms     +++|          STD    T7
03625  M00S02951.1ms     +++| ALS8     LDD    PC          SAVE SECTORS READ SO FAR
03626  M00S02952.1ms     +++|          STM    SLSB
03627  M00S02953.1ms     +++|          LJM    /RMS/BRD    PROCESS NEXT READ
03628  M00S02954.1ms     +++| CLI      SPACE  4,10
03629  M00S02955.1ms     +++|**        CLI - CONVERT LIST INDICES.
03630  M00S02956.1ms     +++|*
03631  M00S02957.1ms     +++|*         ENTRY  (LI) = INITIAL LIST INDEX.
03632  M00S02958.1ms     +++|*                (LP - LP+1) = LIST ADDRESS.
03633  M00S02959.1ms     +++|*
03634  M00S02960.1ms     +++|*         EXIT   TRACK/SECTOR/PENALTY TABLES BUILT FOR LIST ENTRIES.
03635  M00S02961.1ms     +++|*
03636  M00S02962.1ms     +++|*         USES   CM - CM+4, LE - LE+1, RI - RI+1, T1 - T3, T6 - T7.
03637  M00S02963.1ms     +++|*
03638  M00S02964.1ms     +++|*         MACROS ERROR.
03639  M00S02965.1ms     +++|
03640  M00S02966.1ms     +++|
03641  M00S02967.1ms     +++| CLI      SUBR               ENTRY/EXIT
03642  M00S02968.1ms     +++| CLI1     LDN    1           SET RANDOM INDEX
03643  M00S02969.1ms     +++|          STD    RI+1
03644  M00S02970.1ms     +++|          SHN    -14
03645  M00S02971.1ms     +++|          STD    RI
03646  M00S02972.1ms     +++|          LDN    FSMS        SET FIRST SECTOR
03647  M00S02973.1ms     +++|          STD    T7
03648  M00S02974.1ms     +++|          LDD    FS+1        SET FIRST TRACK
03649  M00S02975.1ms     +++|          STD    T6
03650  M00S02976.1ms     +++|          SHN    -2          CHECK FIRST TRACK CONTAINS EOI
03651  M00S02977.1ms     +++| CLIA     ADC    TRTS
03652  M00S02978.1ms     +++|          CRD    CM
03653  M00S02979.1ms     +++|          LDD    T6
03654  M00S02980.1ms     +++|          LPN    3
03655  M00S02981.1ms     +++|          STD    T1
03656  M00S02982.1ms     +++|          LDM    CM,T1
03657  M00S02983.1ms     +++|          STD    T3
03658  M00S02984.1ms     +++|          SHN    6
03659  M00S02985.1ms     +++|          PJN    CLI2        IF FIRST TRACK CONTAINS EOI
03660  M00S02986.1ms     +++|          LDM    SLM
03661  M00S02987.1ms     +++|          STD    T3
03662  M00S02988.1ms     +++| CLI2     LDD    LI          CHECK LIST INDEX
03663  M00S02989.1ms     +++|          ADC    -TLSAE
03664  M00S02990.1ms     +++| CLI3     PJN    CLIX        IF LIST FULL
03665  M00S02991.1ms     +++|          LDD    LP          CHECK POINTER ADDRESS
03666  M00S02992.1ms     +++|          SHN    14
03667  M00S02993.1ms     +++|          LMD    LP+1
03668  M00S02994.1ms     +++|          SBN    2
03669  M00S02995.1ms     +++|          MJN    CLI4        IF LIST ADDRESS .LT. 2
03670  M00S02996.1ms     +++|          ADN    2
03671  M00S02997.1ms     +++|          SHN    -6
03672  M00S02998.1ms     +++|          SBD    FL
03673  M00S02999.1ms     +++|          MJN    CLI5        IF ADDRESS WITHIN FL
03674  M00S03000.1ms     +++| CLI4     ERROR  FPE         *FET PARAMETER ERROR*
03675  M00S03001.1ms     +++|
03676  M00S03002.1ms     +++| CLI5     LDD    LP          READ LIST ENTRY
03677  M00S03003.1ms     +++|          SHN    6
03678  M00S03004.1ms     +++|          ADD    RA
03679  M00S03005.1ms     +++|          SHN    6
03680  M00S03006.1ms     +++|          ADD    LP+1
03681  M00S03007.1ms     +++|          CRD    CM
03682  M00S03008.1ms     +++|          LDD    LI          COMPUTE INDEX INTO PENALTY TABLE
03683  M00S03009.1ms     +++|          ADC    -TLSA
03684  M00S03010.1ms     +++|          SHN    -1
03685  M00S03011.1ms     +++|          STD    T2
03686  M00S03012.1ms     +++|          LDC    0           (PREVIOUS POSITION)
03687  M00S03013.1ms     +++| CLID     EQU    *-1
03688  M00S03014.1ms     +++|          SBD    CM+3
03689  M00S03015.1ms     +++|          ZJN    CLI5.1      IF THE SAME
03690  M00S03016.1ms     +++|          PJN    CLI5.2      IF PENALTY CHARGE
03691  M00S03017.1ms     +++|          ADN    1
03692  M00S03018.1ms     +++|          NJN    CLI5.2      IF PENALTY CHARGE
03693  M00S03019.1ms     +++|          SBN    1
03694  M00S03020.1ms     +++|          SHN    14
03695  M00S03021.1ms     +++| CLI5.1   ADC    0           (PREVIOUS POSITION)
03696  M00S03022.1ms     +++| CLIE     EQU    *-1
03697  M00S03023.1ms     +++|          SBD    CM+4
03698  M00S03024.1ms     +++|          PJN    CLI5.2      IF PENALTY CHARGE
03699  M00S03025.1ms     +++|          ADC    IMPL
03700  M00S03026.1ms     +++|          MJN    CLI5.2      IF PENALTY CHARGE
03701  M00S03027.1ms     +++|          LDN    0
03702  M00S03028.1ms     +++|          UJN    CLI5.3      NO CHARGE
03703  M00S03029.1ms     +++|
03704  M00S03030.1ms     +++| CLI5.2   LDN    IMRL        SET PENALTY
03705  M00S03031.1ms     +++| CLI5.3   STM    TLAA,T2
03706  M00S03032.1ms     +++|          LDD    CM+4        SET LIST INDEX
03707  M00S03033.1ms     +++|          STD    LE+1
03708  M00S03034.1ms     +++|          ADD    CM+3
03709  M00S03035.1ms     +++|          NJN    CLI5.4      IF NOT END OF LIST
03710  M00S03036.1ms     +++|          LJM    CLIX        RETURN
03711  M00S03037.1ms     +++|
03712  M00S03038.1ms     +++| CLI5.4   LDD    CM+3
03713  M00S03039.1ms     +++|          STD    LE
03714  M00S03040.1ms     +++|
03715  M00S03041.1ms     +++|*         SET SECTOR ADVANCE
03716  M00S03042.1ms     +++|
03717  M00S03043.1ms     +++| CLI6     LDD    LE+1        SUBTRACT BOTTOM 12 BITS
03718  M00S03044.1ms     +++|          SBD    RI+1
03719  M00S03045.1ms     +++|          STD    T2
03720  M00S03046.1ms     +++|          PJN    CLI7        IF NO BORROW
03721  M00S03047.1ms     +++|          AOD    T2          END AROUND CARRY
03722  M00S03048.1ms     +++|          LCN    1
03723  M00S03049.1ms     +++|          UJN    CLI8        BORROW FROM UPPER
03724  M00S03050.1ms     +++|
03725  M00S03051.1ms     +++| CLI7     LDN    0
03726  M00S03052.1ms     +++| CLI8     ADD    LE          SUBTRACT TOP 12 BITS
03727  M00S03053.1ms     +++|          SBD    RI
03728  M00S03054.1ms     +++|          STD    T1
03729  M00S03055.1ms     +++|          PJN    CLI9        IF FORWARD
03730  M00S03056.1ms     +++|          LJM    CLI1        RESTART
03731  M00S03057.1ms     +++|
03732  M00S03058.1ms     +++| CLI9     LDD    T7          CHECK FOR SECTOR LIMIT
03733  M00S03059.1ms     +++|          RAD    T2
03734  M00S03060.1ms     +++|          SHN    -14
03735  M00S03061.1ms     +++|          ADD    T1
03736  M00S03062.1ms     +++|          NJN    CLI10       IF SECTOR LIMIT PASSED
03737  M00S03063.1ms     +++|          LDD    T2
03738  M00S03064.1ms     +++|          STM    1,LI
03739  M00S03065.1ms     +++|          SBD    T3
03740  M00S03066.1ms     +++|          PJN    CLI10       IF SECTOR LIMIT PASSED
03741  M00S03067.1ms     +++|          LDD    T6          SET TRACK
03742  M00S03068.1ms     +++|          STI    LI
03743  M00S03069.1ms     +++|          LDD    LE          UPDATE RANDOM INDEX
03744  M00S03070.1ms     +++|          STD    RI
03745  M00S03071.1ms     +++|          STM    CLID        SAVE POSITION
03746  M00S03072.1ms     +++|          LDD    LE+1
03747  M00S03073.1ms     +++|          STD    RI+1
03748  M00S03074.1ms     +++|          STM    CLIE        SAVE POSITION
03749  M00S03075.1ms     +++|          LDM    1,LI        UPDATE SECTOR NUMBER
03750  M00S03076.1ms     +++|          STD    T7
03751  M00S03077.1ms     +++|          AOD    LP+1        ADVANCE LIST POINTER
03752  M00S03078.1ms     +++|          SHN    -14
03753  M00S03079.1ms     +++|          RAD    LP
03754  M00S03080.1ms     +++|          LDN    2           ADVANCE LIST INDEX
03755  M00S03081.1ms     +++|          RAD    LI
03756  M00S03082.1ms     +++|          LJM    CLI2        LOOP
03757  M00S03083.1ms     +++|
03758  M00S03084.1ms     +++|*         ADVANCE TRACK.
03759  M00S03085.1ms     +++|
03760  M00S03086.1ms     +++| CLI10    LDD    T3          ADVANCE RANDOM INDEX
03761  M00S03087.1ms     +++|          SBD    T7
03762  M00S03088.1ms     +++|          RAD    RI+1
03763  M00S03089.1ms     +++|          SHN    -14
03764  M00S03090.1ms     +++|          RAD    RI
03765  M00S03091.1ms     +++|          LDN    0           SECTOR = 0
03766  M00S03092.1ms     +++|          STD    T7
03767  M00S03093.1ms     +++|          LDD    T6          CHECK NEXT TRACK
03768  M00S03094.1ms     +++|          SHN    -2
03769  M00S03095.1ms     +++| CLIB     ADC    TRTS
03770  M00S03096.1ms     +++|          CRD    CM
03771  M00S03097.1ms     +++|          LDD    T6          SET BYTE INDEX
03772  M00S03098.1ms     +++|          LPN    3
03773  M00S03099.1ms     +++|          STD    T1
03774  M00S03100.1ms     +++|          LDM    CM,T1       SET NEXT TRACK
03775  M00S03101.1ms     +++|          STD    T6
03776  M00S03102.1ms     +++|          SHN    6
03777  M00S03103.1ms     +++|          MJN    CLI11       IF NEXT TRACK FOUND
03778  M00S03104.1ms     +++|          ERROR  RAD         *RANDOM ADDRESS NOT ON FILE*
03779  M00S03105.1ms     +++|
03780  M00S03106.1ms     +++| CLI11    SHN    -10
03781  M00S03107.1ms     +++| CLIC     ADC    TRTS
03782  M00S03108.1ms     +++|          CRD    CM
03783  M00S03109.1ms     +++|          LDD    T6
03784  M00S03110.1ms     +++|          LPN    3
03785  M00S03111.1ms     +++|          STD    T1
03786  M00S03112.1ms     +++|          LDM    CM,T1
03787  M00S03113.1ms     +++|          STD    T3          SET SECTOR LIMIT
03788  M00S03114.1ms     +++|          SHN    6
03789  M00S03115.1ms     +++|          PJN    CLI12       IF END OF CHAIN
03790  M00S03116.1ms     +++|          LDM    SLM
03791  M00S03117.1ms     +++|          STD    T3
03792  M00S03118.1ms     +++| CLI12    LJM    CLI6        LOOP
03793  M00S03119.1ms     +++|          SPACE  4,10
03794  M00S03120.1ms     +++|**        COMMON DECKS.
03795  M00S03121.1ms     +++|
03796  M00S03122.1ms     +++|
03797  M00S03123.1ms     +++| MSR$     EQU    1           DEFINE ERROR PROCESSING
Line S03124 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03798  M01S03124.242l642 ---| EOR$     EQU    1           DEFINE POSITION ON EOR
Line S00160 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03799  M01S00160.242l642 +++| MSR      EQU    CDA         ERROR PROCESSOR FOR *COMPRNS*
03800  M00S03125.1ms     +++|*CALL     COMPRNS
03801  M00S03126.1ms     +++|          SPACE  4,10
03802  M00S03127.1ms     +++|**        READ LIST BUFFERS.
03803  M00S03128.1ms     +++|
03804  M00S03129.1ms     +++|
03805  M00S03130.1ms     +++|          USE    BUFFER
03806  M00S03131.1ms     +++| TLAA     EQU    *           ACCOUNTING PENALTY INCREMENT BUFFER
03807  M00S03132.1ms     +++| TLSA     EQU    TLAA+MRAL+1
03808  M00S03133.1ms     +++| TLSAE    EQU    TLSA+MRAL*2
03809  M00S03134.1ms     +++|          ERRPL  TLSAE+1-BFMS  OVERFLOW INTO MASS STORAGE BUFFER
03810  M00S03135.1ms     +++|          SPACE  4,10
03811  M00S03136.1ms     +++|          QUAL
03812  M00S03137.1ms     +++| ERDO     EQU    *+5         END OF READ OVERLAYS
03813  M00S03138.1ms     +++|          SPACE  4,10
03814  M00S03139.1ms     +++|          OVERFLOW  ERMS
03815  M00S03140.1ms     +++| WMS      OVERLAY (WRITE MASS STORAGE.),MSDO
03816  M00S03141.1ms     +++| WMS      SPACE  4,10
03817  M00S03142.1ms     +++|**        DIRECT LOCATION ASSIGNMENTS.
03818  M00S03143.1ms     +++|
03819  M00S03144.1ms     +++|
03820  M00S03145.1ms     +++| IP       EQU    16 - 17     *IN* POINTER FOR RECALL CALCULATION
03821  M00S03146.1ms     +++| WC       EQU    35          SECTOR WORD COUNT
03822  M00S03147.1ms     +++| NT       EQU    36          NEXT TRACK TABLE ADDRESS
03823  M00S03148.1ms     +++| BD       EQU    37          WORDS OF DATA IN BUFFER
03824  M00S03149.1ms     +++| SC       EQU    46          SECTOR COUNT
03825  M00S03150.1ms     +++| SL       EQU    47          NEXT SECTOR/TRACK LINK FLAG
Line S00001 Modification History
M01 (Added by) 1ms1a
M02 (Removed by) ns2328a
Seq #  *Modification Id* Act 
----------------------------+
03826  M02S00001.ns2328a ---| WMS      SPACE  4,10
03827  M02S00002.ns2328a ---|*         MISCELLANEOUS SYMBOL DEFINITIONS.
03828  M02S00003.ns2328a ---|
03829  M02S00004.ns2328a ---|
03830  M02S00005.ns2328a ---| CH       EQU    0           ENABLE CHANNEL INSTRUCTION CROSS REFERENCE
03831  M02S00006.ns2328a ---| WMS      SPACE  4,10
03832  M02S00007.ns2328a ---|*         COMMON DECK REQUIRED FOR CHANNEL LINKAGE.
03833  M02S00008.ns2328a ---|
03834  M02S00009.ns2328a ---|
03835  M02S00010.ns2328a ---| FWDL$    EQU    1           SELECT FORWARD LINKING
03836  M02S00011.ns2328a ---| RICHL$   EQU    1           SELECT DEFERRED INSTRUCTION DEFINITION
03837  M02S00012.ns2328a ---|
03838  M02S00013.ns2328a ---|*CALL     COMPCHL
03839  M02S00014.ns2328a ---| WMS      SPACE  4,10
03840  M02S00015.ns2328a ---|*         GENERATE LINKED LIST OF CHANNEL INSTRUCTIONS.
03841  M02S00016.ns2328a ---|
03842  M02S00017.ns2328a ---|          RICHL
03843  M00S03151.1ms     +++| WMS      SPACE  4,10
03844  M00S03152.1ms     +++|          ORG    *+2
03845  M00S03153.1ms     +++|          LJM    PRS         PRESET FOR WRITE
03846  M00S03154.1ms     +++| WSY      SPACE  4,10
03847  M00S03155.1ms     +++|**        WSY - WRITE SYSTEM SECTOR.
03848  M00S03156.1ms     +++|*
03849  M00S03157.1ms     +++|*         EXIT   TO *WMS*.
Line S00161 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
03850  M02S00161.1ms6    ---|*                TO *WSE*, IF ERROR WRITING SYSTEM SECTOR.
Line S00018 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
03851  M01S00018.1ms6    +++|*                TO *CDA*, IF ERROR WRITING SYSTEM SECTOR.
03852  M00S03158.1ms     +++|*
03853  M00S03159.1ms     +++|*         CALLS  SBA, WSS.
03854  M00S03160.1ms     +++|
03855  M00S03161.1ms     +++|
03856  M00S03162.1ms     +++| WSY      BSS    0           ENTRY
03857  M00S03163.1ms     +++|          RJM    WSS         WRITE SYSTEM SECTOR
Line S03164 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03858  M01S03164.242l642 ---|          LDM    WTBP
Line S00162 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03859  M01S00162.242l642 +++|          PJN    WSY1        IF NO ERROR
Line S00163 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
03860  M02S00163.1ms6    ---|          LJM    WSE         PROCESS SYSTEM SECTOR WRITE ERROR
Line S00019 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
03861  M01S00019.1ms6    +++|          RJM    CDA         CHECK DEVICE
Line S00164 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03862  M01S00164.242l642 +++|
03863  M01S00165.242l642 +++| WSY1     CFET   3           UPDATE OUT POINTER
03864  M01S00166.242l642 +++|          CWD    DP
03865  M01S00167.242l642 +++|          LDM    CFNB        CLEAR SYSTEM SECTOR OPERATION FLAG
03866  M01S00168.242l642 +++|          LPN    37
03867  M01S00169.242l642 +++|          STM    CFNB
03868  M01S00170.242l642 +++|          LDM    WTBP
03869  M00S03165.1ms     +++|          LMD    RA
03870  M00S03166.1ms     +++|          ZJN    WMS         IF NO MOVE
03871  M00S03167.1ms     +++|          RJM    SBA         SET BUFFER ADDRESSES
03872  M00S03168.1ms     +++|*         UJN    WMS         PROCESS WRITE
03873  M00S03169.1ms     +++| WMS      SPACE  4,10
03874  M00S03170.1ms     +++|**        WMS - WRITE MASS STORAGE MAIN ROUTINE.
03875  M00S03171.1ms     +++|*
Line S03172 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03876  M01S03172.242l642 ---|*         EXIT   TO *MSP*.
Line S00171 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03877  M01S00171.242l642 +++|*         EXIT   TO *CDA*, IF MASS STORAGE ERROR.
03878  M01S00172.242l642 +++|*                TO *MSP*.
03879  M00S03173.1ms     +++|*
03880  M00S03174.1ms     +++|*         USES   WC.
03881  M00S03175.1ms     +++|*
03882  M00S03176.1ms     +++|*         CALLS  WEI, WTB.
03883  M00S03177.1ms     +++|
03884  M00S03178.1ms     +++|
03885  M00S03179.1ms     +++| WMS      BSS    0           ENTRY
03886  M00S03180.1ms     +++|          LDD    HN          SET FULL SECTOR WORD COUNT
03887  M00S03181.1ms     +++|          STD    WC
03888  M00S03182.1ms     +++|          STM    BFMS+1
03889  M00S03183.1ms     +++|          LJM    WTB3        WRITE DATA
03890  M00S03184.1ms     +++|*         LJM    WTB         (*WRITECW*)
03891  M00S03185.1ms     +++|*         LJM    WMS1        (*WRITEF*, NO DATA, OPERATION COMPLETE)
Line S03186 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
03892  M01S03186.ns2090  ---|*         LJM    WMS2        (819 SYSTEM SECTOR WRITE)
Line S00174 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
03893  M01S00174.ns2090  +++|*         LJM    WMS2        (BUFFERED DEVICE SYSTEM SECTOR WRITE)
03894  M00S03187.1ms     +++| WMSA     EQU    *-1
03895  M00S03188.1ms     +++|
03896  M00S03189.1ms     +++|*         REENTRY FROM *WTB* FOR EOF WRITE.
03897  M00S03190.1ms     +++|*         WRITE EOF SECTOR FOR *WRITEF*/*REWRITEF*.
03898  M00S03191.1ms     +++|
Line S03192 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03899  M01S03192.242l642 ---| WMS1     LDN    0           SET EOF SECTOR WORD COUNT
03900  M01S03193.242l642 ---|          STM    BFMS+1
03901  M01S03194.242l642 ---|          STM    WTBT        PREVENT UPDATE OF OUT POINTER
03902  M01S03195.242l642 ---|          LDN    17          SET EOF LEVEL NUMBER
03903  M01S03196.242l642 ---|          STM    BFMS+2
03904  M01S03197.242l642 ---|          LDM    WTBY        SET SHORT BLOCK PROCESSING
Line S00173 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03905  M01S00173.242l642 +++| WMS1     LDN    0           PREVENT UPDATE OF OUT POINTER
03906  M01S00174.242l642 +++|          STM    WTBT
03907  M01S00175.242l642 +++|          LDC    WTB18-WTBN+UJNI
03908  M00S03198.1ms     +++|          STM    WTBN
03909  M00S03199.1ms     +++|          LDC    WMS2        SET RETURN ADDRESS FOR *WTB*
03910  M00S03200.1ms     +++|          STM    WTBU
03911  M00S03201.1ms     +++|          LJM    WTB11       WRITE EOF SECTOR
03912  M00S03202.1ms     +++|
03913  M00S03203.1ms     +++|*         REENTRY FROM *WTB*.
03914  M00S03204.1ms     +++|*         WRITE EOI SECTOR.
03915  M00S03205.1ms     +++|
03916  M00S03206.1ms     +++| WMS2     RJM    WEI         WRITE EOI SECTOR
Line S03207 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03917  M01S03207.242l642 ---|          LJM    MSP         PROCESS MASS STORAGE EXIT
Line S00176 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
03918  M02S00176.1ms6    ---|          PJN    WMS3        IF NO ERROR
Line S00020 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
03919  M01S00020.1ms6    +++|          ZJN    WMS3        IF NO ERROR
Line S00177 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03920  M01S00177.242l642 +++|          RJM    CDA         CHECK DEVICE
03921  M01S00178.242l642 +++|
03922  M01S00179.242l642 +++| WMS3     LDM    CFNB        SET FILE MODIFIED
03923  M01S00180.242l642 +++|          LPN    74
03924  M01S00181.242l642 +++|*         LPN    76          (REWRITE)
03925  M01S00182.242l642 +++| WMSB     EQU    *-1
03926  M01S00183.242l642 +++|          LMN    3
03927  M01S00184.242l642 +++|*         LMN    1           (REWRITE)
03928  M01S00185.242l642 +++| WMSC     EQU    *-1
03929  M01S00186.242l642 +++|          STM    CFNB
03930  M01S00187.242l642 +++|          LDN    2           SET WRITE MODE
03931  M01S00188.242l642 +++|          STD    FS+4
03932  M01S00189.242l642 +++|          LDM    BFMS+2+505+4  WORD COUNT - 500
03933  M01S00190.242l642 +++|          ADC    -500
03934  M01S00191.242l642 +++|          NJN    WMS4        IF EOR/EOF ON *WRITECW*
03935  M01S00192.242l642 +++|          LDD    BS+4        CHECK REQUEST
03936  M01S00193.242l642 +++|          SHN    21-4
03937  M01S00194.242l642 +++|          PJN    WMS5        IF NOT EOR/EOF
03938  M01S00195.242l642 +++| WMS4     LDN    4           SET OPERATION COMPLETE
03939  M01S00196.242l642 +++|          RAD    FS+4
03940  M01S00197.242l642 +++| WMS5     LJM    MSP         PROCESS MASS STORAGE EXIT
03941  M00S03208.1ms     +++| WTB      SPACE  4,30
03942  M00S03209.1ms     +++|**        WTB - WRITE BUFFER.
03943  M00S03210.1ms     +++|*
03944  M00S03211.1ms     +++|*         ENTRY  (BD) = WORD COUNT OF DATA IN BUFFER.
03945  M00S03212.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION.
03946  M00S03213.1ms     +++|*                (PC) = 0.
03947  M00S03214.1ms     +++|*                (RC) = *DRCM* MONITOR FUNCTION CODE.
03948  M00S03215.1ms     +++|*                (T6) = CURRENT TRACK.
03949  M00S03216.1ms     +++|*                (T7) = CURRENT SECTOR.
03950  M00S03217.1ms     +++|*                (DP - DP+4) = *OUT* POINTER.
03951  M00S03218.1ms     +++|*                (IN - IN+1) = (IP - IP+1) = *IN* POINTER.
03952  M00S03219.1ms     +++|*                AT *WTB* FOR *WRITECW* OF DATA.
03953  M00S03220.1ms     +++|*                AT *WTB3* FOR NON-CONTROL WORD WRITE OF DATA.
03954  M00S03221.1ms     +++|*                AT *WTB6* FOR *WRITECW* SYSTEM SECTOR OPERATION.
03955  M00S03222.1ms     +++|*                AT *WTB11* TO WRITE EOF SECTOR.
03956  M00S03223.1ms     +++|*
03957  M00S03224.1ms     +++|*         EXIT   (PC) = COUNT OF PRUS TRANSFERRED.
03958  M00S03225.1ms     +++|*                (T6) = ADVANCED CURRENT TRACK.
03959  M00S03226.1ms     +++|*                (T7) = ADVANCED CURRENT SECTOR.
03960  M00S03227.1ms     +++|*                (DP - DP+4) = ADVANCED *OUT* POINTER.
Line S00032 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03961  M01S00032.241l630 +++|*                TO *CFN* IF PRESET TRACK ALLOCATION ERROR.
Line S00198 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03962  M01S00198.242l642 +++|*         TO *CDA*, IF MASS STORAGE ERROR.
03963  M00S03228.1ms     +++|*
03964  M00S03229.1ms     +++|*         ERROR  TO *ERR* IF CONTROL WORD ERROR.
03965  M00S03230.1ms     +++|*
Line S03231 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03966  M01S03231.242l642 ---|*         USES   IN+1, NT, SL, T1, T2, WC, CM - CM+4, IP-3 - IP+1.
Line S00199 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03967  M01S00199.242l642 +++|*         USES   IN+1, NT, SL, T1, T2, T3, WC, CM - CM+4, IP-3, IP+1.
03968  M00S03232.1ms     +++|*
Line S03233 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03969  M01S03233.241l630 ---|*         CALLS  HNG, MSR, SBA, WDS, WEI.
Line S00033 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03970  M01S00033.241l630 +++|*         CALLS  CHG, MSR, SBA, WDS, WEI.
03971  M00S03234.1ms     +++|*
03972  M00S03235.1ms     +++|*         MACROS ERROR.
03973  M00S03236.1ms     +++|
03974  M00S03237.1ms     +++|
Line S00200 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03975  M01S00200.242l642 +++| WTB25    UJN    WMS2        COMPLETE OPERATION
03976  M01S00201.242l642 +++|
03977  M01S00202.242l642 +++| WTB26    RJM    WEI         WRITE EOI
Line S00203 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
03978  M02S00203.1ms6    ---|          PJN    WTB27       IF NO ERROR
Line S00021 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
03979  M01S00021.1ms6    +++|          ZJN    WTB27       IF NO ERROR
Line S00204 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03980  M01S00204.242l642 +++|          RJM    CDA         CHECK DEVICE
03981  M01S00205.242l642 +++|
03982  M01S00206.242l642 +++| WTB27    ERROR  BLE         *BUFFER CONTROL WORD ERROR*
03983  M01S00207.242l642 +++|
03984  M00S03238.1ms     +++|*         *WRITECW* PREPROCESSING FOR DATA BLOCK.
03985  M00S03239.1ms     +++|
03986  M00S03240.1ms     +++|*         ENTRY FOR CONTROL WORD WRITE.
03987  M00S03241.1ms     +++|*         LOOP FOR *WRITECW* AFTER SHORT BLOCK PROCESSED.
03988  M00S03242.1ms     +++|
03989  M00S03243.1ms     +++| WTB      BSS    0           ENTRY
03990  M00S03244.1ms     +++|          LDD    HN          SET FULL SECTOR WORD COUNT
03991  M00S03245.1ms     +++|          STM    BFMS+1
03992  M00S03246.1ms     +++|          ADN    2           ALLOW FOR CONTROL WORDS
03993  M00S03247.1ms     +++|          STD    WC
03994  M00S03248.1ms     +++|          LDC    WTB1        RESET FULL BLOCK LOOP
03995  M00S03249.1ms     +++|          STM    WTBU
03996  M00S03250.1ms     +++|
03997  M00S03251.1ms     +++|*         LOOP FOR *WRITECW* AFTER FULL BLOCK PROCESSED.
03998  M00S03252.1ms     +++|
03999  M00S03253.1ms     +++| WTB1     LDD    BD          CHECK FOR EMPTY BUFFER
Line S03254 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04000  M01S03254.242l642 ---|          ZJN    WMS2        IF BUFFER EMPTY
Line S00208 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04001  M01S00208.242l642 +++|          ZJN    WTB25       IF BUFFER EMPTY
04002  M00S03255.1ms     +++|          LDM    BFMS+2+505+4  PREPROCESS HEADER CONTROL WORD
04003  M00S03256.1ms     +++|          ADC    -500
Line S03257 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04004  M01S03257.242l642 ---|          STM    MSPC        SET FOR FULL OR SHORT BLOCK WRITE
04005  M00S03258.1ms     +++|          ZJN    WTB3        IF FULL BLOCK
Line S03259 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04006  M01S03259.242l642 ---|          MJN    WTB2        IF BLOCK .LE. 500 BYTES
04007  M01S03260.242l642 ---|          RJM    WEI         WRITE EOI
04008  M01S03261.242l642 ---|          ERROR  BLE         *BUFFER CONTROL WORD ERROR*
04009  M01S03262.242l642 ---|
04010  M01S03263.242l642 ---| WTB2     ADC    500         CALCULATE WORD COUNT
Line S00209 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04011  M01S00209.242l642 +++|          PJN    WTB26       IF BLOCK .GT. 500 BYTES
04012  M01S00210.242l642 +++|          ADC    500         CALCULATE WORD COUNT
04013  M00S03264.1ms     +++|          STD    T2          (BYTE COUNT * 103) / 512
04014  M00S03265.1ms     +++|          SHN    1
04015  M00S03266.1ms     +++|          ADD    T2
04016  M00S03267.1ms     +++|          STD    T1
04017  M00S03268.1ms     +++|          SHN    3
04018  M00S03269.1ms     +++|          ADD    T2
04019  M00S03270.1ms     +++|          SHN    2
04020  M00S03271.1ms     +++|          ADD    T1
04021  M00S03272.1ms     +++|          SHN    -9D
04022  M00S03273.1ms     +++|          STM    BFMS+1      SET SECTOR WORD COUNT
04023  M00S03274.1ms     +++|          ADN    2
04024  M00S03275.1ms     +++|          STD    WC          SET CONTROL WORD BLOCK WORD COUNT
Line S00211 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04025  M01S00211.242l642 +++|          SBN    2           SAVE INDEX TO END OF BLOCK
04026  M01S00212.242l642 +++|          STD    T3
04027  M01S00213.242l642 +++|          SHN    2
04028  M01S00214.242l642 +++|          RAD    T3
04029  M00S03276.1ms     +++|          LDC    WTB         SET TO RESTORE FULL BLOCK WORD COUNT
04030  M00S03277.1ms     +++|          STM    WTBU
Line S03278 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04031  M01S03278.242l642 ---|          LDM    WTBY        SET TO PROCESS SHORT PRU
Line S00215 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04032  M01S00215.242l642 +++|          LDC    WTB12+77-WTBN+UJNI
04033  M00S03279.1ms     +++|          STM    WTBN
04034  M00S03280.1ms     +++|
04035  M00S03281.1ms     +++|*         ENTRY FOR NON-CONTROL WORD WRITE.
04036  M00S03282.1ms     +++|*         CHECK AMOUNT OF DATA IN BUFFER.
04037  M00S03283.1ms     +++|*         *IN* IS NOT READ UP HERE DUE TO TIMING CONSIDERATIONS.
04038  M00S03284.1ms     +++|
04039  M00S03285.1ms     +++| WTB3     BSS    0           ENTRY
04040  M00S03286.1ms     +++|          LDD    IP          DATA LENGTH = IN - OUT
04041  M00S03287.1ms     +++|          SBD    DP+3
04042  M00S03288.1ms     +++|          SHN    14
04043  M00S03289.1ms     +++|          ADD    IP+1
04044  M00S03290.1ms     +++|          SBD    DP+4
04045  M00S03291.1ms     +++|          PJN    WTB4        IF NOT WRAP AROUND
04046  M00S03292.1ms     +++| WTBA     ADC    **          (LIMIT - FIRST)
04047  M00S03293.1ms     +++| WTB4     SBD    WC
04048  M00S03294.1ms     +++|          PJN    WTB5        IF SUFFICIENT DATA IN BUFFER
04049  M00S03295.1ms     +++|          LJM    WMS2        RETURN
04050  M00S03296.1ms     +++|*         LJM    WTB21       (PROCESS EOR FOR EOR/EOF WRITE)
04051  M00S03297.1ms     +++| WTBB     EQU    *-1
04052  M00S03298.1ms     +++|
04053  M00S03299.1ms     +++|*         READ DATA FROM *CIO* BUFFER.
04054  M00S03300.1ms     +++|
04055  M00S03301.1ms     +++| WTB5     STD    BD          UPDATE BUFFER DATA WORD COUNT
04056  M00S03302.1ms     +++|          SHN    -14
04057  M00S03303.1ms     +++|          ZJN    WTB6        IF .LT. 10000B WORDS OF DATA
04058  M00S03304.1ms     +++|          LCN    0           SET 7777B WORDS OF DATA
04059  M00S03305.1ms     +++|          STD    BD
04060  M00S03306.1ms     +++|
04061  M00S03307.1ms     +++|*         ENTRY FOR *WRITECW* SYSTEM SECTOR OPERATION.
04062  M00S03308.1ms     +++|
04063  M00S03309.1ms     +++| WTB6     LDD    DP+3        CHECK FOR WRAP AROUND SECTOR
04064  M00S03310.1ms     +++|          SHN    14
04065  M00S03311.1ms     +++|          ADD    DP+4
04066  M00S03312.1ms     +++|          ADD    WC
04067  M00S03313.1ms     +++| WTBC     ADC    -**         (-LIMIT)
04068  M00S03314.1ms     +++|*         ADC    -**         ((-LIMIT)+1) FOR *WRITECW*
04069  M00S03315.1ms     +++|          MJN    WTB7        IF NOT WRAP AROUND SECTOR
04070  M00S03316.1ms     +++|          STD    T2          SET SECOND PART WORD COUNT
04071  M00S03317.1ms     +++|          NJN    WTB9        IF SECOND PART PRESENT
04072  M00S03318.1ms     +++|          LDD    DP+3
04073  M00S03319.1ms     +++|          SHN    14
04074  M00S03320.1ms     +++|          ADD    DP+4
04075  M00S03321.1ms     +++| WTBD     ADC    **          (RA)
04076  M00S03322.1ms     +++|*         ADC    **          (RA+1) FOR *WRITECW*
04077  M00S03323.1ms     +++|          CRM    BFMS+2,WC
04078  M00S03324.1ms     +++| WTBE     LDC    **          (FIRST)
04079  M00S03325.1ms     +++|*         LDC    **          (LIMIT-1) FOR *WRITECW*
04080  M00S03326.1ms     +++|          UJN    WTB8        UPDATE OUT
04081  M00S03327.1ms     +++|
04082  M00S03328.1ms     +++|*         PROCESS NORMAL SECTOR.
04083  M00S03329.1ms     +++|
04084  M00S03330.1ms     +++| WTB7     ADC    **          (LIMIT+RA)
04085  M00S03331.1ms     +++| WTBF     EQU    *-2
04086  M00S03332.1ms     +++|          SBD    WC
04087  M00S03333.1ms     +++|          CRM    BFMS+2,WC
04088  M00S03334.1ms     +++| WTBG     ADC    -**         (-RA)
04089  M00S03335.1ms     +++|*         ADC    -**         (-RA-1) FOR *WRITECW*
04090  M00S03336.1ms     +++| WTB8     STD    DP+4        UPDATE OUT
04091  M00S03337.1ms     +++|          SHN    -14
04092  M00S03338.1ms     +++|          STD    DP+3
04093  M00S03339.1ms     +++|
04094  M00S03340.1ms     +++|*         THE FOLLOWING CHECK MINIMIZES OVERHEAD ON TRACK SWITCH
04095  M00S03341.1ms     +++|*         AND PREVENTS A *DRCM* BEING ISSUED JUST PRIOR
04096  M00S03342.1ms     +++|*         TO THE DRIVER NEEDING TO DO AN *LDAM*.
04097  M00S03343.1ms     +++|
04098  M00S03344.1ms     +++|          LDD    T7
04099  M00S03345.1ms     +++|          ZJN    WTB11       IF TRACK SWITCH
04100  M00S03346.1ms     +++|
04101  M00S03347.1ms     +++|*         THE FOLLOWING LINE OF CODE IS MODIFIED VIA *RJM*.
04102  M00S03348.1ms     +++|
04103  M00S03349.1ms     +++|          LJM    WTB11       WRITE SECTOR
04104  M00S03350.1ms     +++| WTBH     EQU    *-1
04105  M00S03351.1ms     +++|*         LJM    WTB23       (RECALL CPU AFTER FIRST SECTOR)
Line S03352 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04106  M01S03352.ns21000 ---|*         LJM    WTB33       (RECALL CPU)
04107  M01S03353.ns21000 ---|*         LJM    WTB35       (MONITOR *IN* POINTER)
Line S00002 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04108  M01S00002.ns21000 +++|*         LJM    WTB23+2     (RECALL CPU)
04109  M01S00003.ns21000 +++|*         LJM    WTB24+2     (MONITOR IN POINTER)
04110  M00S03354.1ms     +++|          UJN    WTB11       WRITE SECTOR
Line S00216 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04111  M01S00216.242l642 +++|
04112  M01S00217.242l642 +++|*         PROCESS WRAP-AROUND SECTOR.
04113  M00S03355.1ms     +++|
04114  M00S03356.1ms     +++| WTB9     LDD    WC          SET FIRST PART WORD COUNT
04115  M00S03357.1ms     +++|          SBD    T2
04116  M00S03358.1ms     +++|          STD    T1
04117  M00S03359.1ms     +++|          ZJN    WTB10       IF NO FIRST PART
04118  M00S03360.1ms     +++|          LDD    DP+3        READ FIRST PART
04119  M00S03361.1ms     +++|          SHN    14
04120  M00S03362.1ms     +++|          ADD    DP+4
04121  M00S03363.1ms     +++| WTBI     ADC    **          (RA)
04122  M00S03364.1ms     +++|*         ADC    **          (RA+1) FOR *WRITECW*
04123  M00S03365.1ms     +++|          CRM    BFMS+2,T1
04124  M00S03366.1ms     +++|          LDD    T1          ADVANCE PP BUFFER ADDRESS
04125  M00S03367.1ms     +++|          SHN    2
04126  M00S03368.1ms     +++|          ADD    T1
04127  M00S03369.1ms     +++| WTB10    ADC    BFMS+2
04128  M00S03370.1ms     +++|          STM    WTBK
04129  M00S03371.1ms     +++| WTBJ     LDC    **          (FIRST+RA)
04130  M00S03372.1ms     +++|          CRM    **,T2       READ SECOND PART
04131  M00S03373.1ms     +++| WTBK     EQU    *-1
04132  M00S03374.1ms     +++| WTBL     ADC    -**         (-RA)
04133  M00S03375.1ms     +++|*         ADC    -**         (-RA-1) FOR *WRITECW*
04134  M00S03376.1ms     +++|          STD    DP+4        UPDATE OUT
04135  M00S03377.1ms     +++|          SHN    -14
04136  M00S03378.1ms     +++|          STD    DP+3
04137  M00S03379.1ms     +++|
04138  M00S03380.1ms     +++|*         ENTRY TO WRITE EOF SECTOR FOR *WRITEF*/*REWRITEF*.
04139  M00S03381.1ms     +++|*         ADVANCE CURRENT SECTOR/TRACK.
04140  M00S03382.1ms     +++|*         RETURN TO *PRS* FOR *WRITECW* OF SYSTEM SECTOR.
04141  M00S03383.1ms     +++|
04142  M00S03384.1ms     +++| WTB11    LDD    T7          SET NEXT SECTOR POINTER
Line S03385 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04143  M01S03385.242l642 ---|*         LJM    PRS23       (*WRITECW* SYSTEM SECTOR OPERATION)
Line S00218 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04144  M01S00218.242l642 +++|*         LJM    PRS25       (*WRITECW* SYSTEM SECTOR OPERATION)
04145  M00S03386.1ms     +++| WTBM     EQU    *-1
04146  M00S03387.1ms     +++|          ADN    1
04147  M00S03388.1ms     +++|          STM    BFMS
Line S03389 Modification History
M01 (Removed by) ns2241
Seq #  *Modification Id* Act 
----------------------------+
04148  M01S03389.ns2241  ---|          LMM    SLM
Line S00001 Modification History
M01 (Added by) ns2241
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04149  M02S00001.242l642 ---| WTBZ     LMM    SLM         CHECK FOR END OF TRACK REACHED
04150  M02S00002.242l642 ---|*         LMC    (EOI+1)     (UPDATE MODE - CHECK FOR WRITE PAST EOI)
Line S00219 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04151  M02S00219.1ms17   ---|          LMC    **          CHECK FOR END OF TRACK OR UPDATE/EOI
04152  M02S00220.1ms17   ---|*         LMC    (SLM)       (NOT UPDATE MODE - CHECK FOR END OF TRACK)
04153  M02S00221.1ms17   ---|*         LMC    (EOI+1)     (UPDATE MODE - CHECK FOR WRITE PAST EOI)
Line S00007 Modification History
M01 (Added by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04154  M01S00007.1ms17   +++|
04155  M01S00008.1ms17   +++|*         CHECK FOR END OF TRACK (IF UPDATE MODE AND/OR REWRITE, AND
04156  M01S00009.1ms17   +++|*         IF PROCESSING ORIGINAL EOI TRACK, CHECK FOR ORIGINAL EOI
04157  M01S00010.1ms17   +++|*         SECTOR).  ONCE THE ORIGINAL EOI IS REACHED ON A BUFFERED
04158  M01S00011.1ms17   +++|*         DEVICE, *SETMS RW* MAY NO LONGER BE USED.  WRITING BEYOND
04159  M01S00012.1ms17   +++|*         THE ORIGINAL EOI IN UPDATE MODE IS AN ERROR.
04160  M01S00013.1ms17   +++|
04161  M01S00014.1ms17   +++|          LMC    **          CHECK FOR END OF TRACK OR ORIGINAL EOI
04162  M01S00015.1ms17   +++|*         LMC    (SLM)       (END OF TRACK)
04163  M01S00016.1ms17   +++|*         LMC    (EOI+1)     (ORIGINAL EOI SECTOR)
Line S00222 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04164  M01S00222.242l642 +++| WTBZ     EQU    *-1
04165  M00S03390.1ms     +++|          STD    SL
Line S03391 Modification History
M01 (Removed by) ns2241
Seq #  *Modification Id* Act 
----------------------------+
04166  M01S03391.ns2241  ---|          NJN    WTB13       IF NOT END OF TRACK
Line S00003 Modification History
M01 (Added by) ns2241
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04167  M02S00003.242l642 ---|          NJN    WTB11.2     IF NOT END OF TRACK
Line S00223 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04168  M02S00223.1ms17   ---|          NJN    WTB13       IF NOT END OF TRACK
Line S03392 Modification History
M01 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04169  M01S03392.1ms17   ---|          AOD    NT          SET NEXT TRACK
04170  M01S03393.1ms17   ---|          LDI    NT
Line S00017 Modification History
M01 (Added by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04171  M01S00017.1ms17   +++|          NJP    WTB13       IF NOT END OF TRACK (IF NOT ORIGINAL EOI)
04172  M01S00018.1ms17   +++| WTBAA    UJN    WTB11.1     SET NEXT TRACK
04173  M01S00019.1ms17   +++|*         PSN                (UPDATE MODE AND/OR REWRITE)
04174  M01S00020.1ms17   +++|
04175  M01S00021.1ms17   +++|*         CHECK FOR ORIGINAL EOI TRACK.
04176  M01S00022.1ms17   +++|
04177  M01S00023.1ms17   +++|          LDM    1,NT        CHECK NEXT TRACK
04178  M01S00024.1ms17   +++|          LMC    **
04179  M01S00025.1ms17   +++| WTBAB    EQU    *-1         (ORIGINAL EOI TRACK)
04180  M01S00026.1ms17   +++| WTBAC    NJN    WTB11.2     IF NEXT TRACK IS NOT ORIGINAL EOI TRACK
04181  M01S00027.1ms17   +++|*         NJN    WTB11.3     (UPDATE MODE  - IF NEXT TRACK IS NOT EOI)
04182  M01S00028.1ms17   +++|          LDC    *           SET CHECK FOR ORIGINAL EOI SECTOR
04183  M01S00029.1ms17   +++| WTBAD    EQU    *-1
04184  M01S00030.1ms17   +++|          STM    WTBZ
04185  M01S00031.1ms17   +++| WTB11.1  UJN    WTB11.3     SET NEXT TRACK
04186  M01S00032.1ms17   +++|
04187  M01S00033.1ms17   +++| WTB11.2  LDI    NT          CHECK CURRENT TRACK
04188  M01S00034.1ms17   +++|          LMM    WTBAB
04189  M01S00035.1ms17   +++|          NJN    WTB11.3     IF CURRENT TRACK NOT ORIGINAL EOI TRACK
04190  M01S00036.1ms17   +++|          SETMS  IO,NF,WDSB  CLEAR *RW* (REWRITE) OPTION
04191  M01S00037.1ms17   +++|          ISTORE WTBAA,(UJN WTB11.1)  DISABLE ORIGINAL EOI CHECK
04192  M01S00038.1ms17   +++|          LDM    SLM         RESET SECTOR LIMIT CHECK
04193  M01S00039.1ms17   +++|          STM    WTBZ
04194  M01S00040.1ms17   +++|          LMM    BFMS
04195  M01S00041.1ms17   +++|          STD    SL
04196  M01S00042.1ms17   +++|          NJN    WTB13       IF ORIGINAL EOI IS NOT ALSO END OF TRACK
04197  M01S00043.1ms17   +++|
04198  M01S00044.1ms17   +++|*         SET NEXT TRACK.
04199  M01S00045.1ms17   +++|
04200  M01S00046.1ms17   +++| WTB11.3  AOD    NT          SET NEXT TRACK
04201  M01S00047.1ms17   +++|          LDI    NT          CHECK IF NEXT TRACK RESERVED
04202  M00S03394.1ms     +++|          STM    BFMS
Line S03395 Modification History
M01 (Removed by) ns2241
Seq #  *Modification Id* Act 
----------------------------+
04203  M01S03395.ns2241  ---|          NJN    WTB13       IF NEXT TRACK RESERVED
Line S00004 Modification History
M01 (Added by) ns2241
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04204  M02S00004.242l642 ---| WTBAA    NJN    WTB11.2     IF NEXT TRACK RESERVED
Line S00224 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04205  M02S00224.1ms17   ---| WTBAA    NJN    WTB13       IF NEXT TRACK RESERVED
Line S00005 Modification History
M01 (Added by) ns2241
M02 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04206  M02S00005.1ms17   ---|*         NJN    WTB11.1     (UPDATE MODE)
Line S00048 Modification History
M01 (Added by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04207  M01S00048.1ms17   +++|          NJN    WTB13       IF NEXT TRACK RESERVED
04208  M00S03396.1ms     +++|          LJM    WTB19       CHECK TERMINATION CONDITION
Line S00225 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04209  M01S00225.242l642 +++|*         LJM    WTB20.1     (UPDATE MODE - WRITE PAST EOI)
Line S00226 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04210  M02S00226.1ms17   ---| WTBAC    EQU    *-1
Line S00006 Modification History
M01 (Added by) ns2241
M02 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04211  M02S00006.1ms17   ---|
04212  M02S00007.1ms17   ---|*         UPDATE MODE - SET CHECK FOR WRITE PAST EOI.
04213  M02S00008.1ms17   ---|
04214  M02S00009.1ms17   ---| WTB11.1  LDM    1,NT        CHECK IF MORE TRACKS REMAIN AFTER THIS ONE
Line S00010 Modification History
M01 (Added by) ns2241
M02 (Removed by) 242l642
M03 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04215  M03S00010.1ms17   ---|          NJN    WTB11.2     IF NOT LAST TRACK
Line S00227 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04216  M02S00227.1ms17   ---|          NJN    WTB13       IF NOT LAST TRACK
Line S00011 Modification History
M01 (Added by) ns2241
M02 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04217  M02S00011.1ms17   ---| WTBAB    LDC    *           SET CHECK FOR WRITE PAST EOI
04218  M02S00012.1ms17   ---|*         LDC    (EOI+1)
Line S00013 Modification History
M01 (Added by) ns2241
M02 (Removed by) 242l642
M03 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04219  M03S00013.1ms17   ---|          STM    WTBZ+1
04220  M03S00014.1ms17   ---|          LDC    LMCI
04221  M03S00015.1ms17   ---|          STM    WTBZ
04222  M03S00016.1ms17   ---| WTB11.2  UJN    WTB13       TRANSFER SECTOR TO DISK
Line S00228 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04223  M02S00228.1ms17   ---|          STM    WTBZ
04224  M02S00229.1ms17   ---|          UJN    WTB13       TRANSFER SECTOR TO DISK
Line S00049 Modification History
M01 (Added by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
04225  M01S00049.1ms17   +++| WTBAE    EQU    *-1
04226  M00S03397.1ms     +++|
04227  M00S03398.1ms     +++|*         PROCESS *WRITECW* SHORT BLOCK.
Line S03399 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04228  M01S03399.242l642 ---|*         PROCESS *WRITEF*/*REWRITEF* EOF SECTOR WRITE.
04229  M00S03400.1ms     +++|
04230  M00S03401.1ms     +++| WTB12    LDC    AODI+PC     RESET FULL BLOCK PROCESSING
04231  M00S03402.1ms     +++|          STM    WTBN
Line S03403 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04232  M01S03403.242l642 ---|          LDM    BFMS+1      FIND EOR LEVEL NUMBER
04233  M01S03404.242l642 ---|          STD    T2
04234  M01S03405.242l642 ---|          SHN    2
04235  M01S03406.242l642 ---|          RAD    T2
04236  M01S03407.242l642 ---|          LDM    BFMS+2+5+4,T2  MOVE NEXT BYTE COUNT
Line S00230 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04237  M01S00230.242l642 +++|          LDM    BFMS+2+5+4,T3  MOVE NEXT BYTE COUNT
04238  M00S03408.1ms     +++|          STM    BFMS+2+505+4
Line S03409 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04239  M01S03409.242l642 ---|          LDD    T2          CHECK FOR EOF BLOCK
Line S00231 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04240  M01S00231.242l642 +++|          LDD    T3          CHECK FOR EOF BLOCK
04241  M00S03410.1ms     +++|          NJN    WTB13       IF DATA IN BLOCK
Line S03411 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04242  M01S03411.242l642 ---|          LDM    BFMS+2,T2
Line S00232 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04243  M01S00232.242l642 +++|          LDM    BFMS+2,T3
04244  M00S03412.1ms     +++|          LMN    17
04245  M00S03413.1ms     +++|          ZJN    WTB18       IF EOF
04246  M00S03414.1ms     +++|
04247  M00S03415.1ms     +++|*         TRANSFER SECTOR TO DISK.
04248  M00S03416.1ms     +++|
04249  M00S03417.1ms     +++| WTB13    AOD    PC          INCREMENT PRU COUNT
04250  M00S03418.1ms     +++|*         UJN    WTB12       (PROCESS SHORT BLOCK FOR *WRITECW*)
Line S03419 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04251  M01S03419.242l642 ---|*         UJN    WTB12       (PROCESS EOF SECTOR FOR EOF WRITE)
Line S00233 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04252  M01S00233.242l642 +++|*         UJN    WTB18       (PROCESS EOF SECTOR FOR EOF WRITE)
04253  M00S03420.1ms     +++| WTBN     EQU    *-1
Line S03421 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04254  M01S03421.242l642 ---| WTBO     LDC    BFMS+WCSF
Line S00234 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04255  M01S00234.242l642 +++|          ERRPL  WTBN-WTB12-40  JUMP OUT OF RANGE
04256  M01S00235.242l642 +++|          ERRPL  WTB18-WTBN-40  JUMP OUT OF RANGE
04257  M01S00236.242l642 +++|
04258  M01S00237.242l642 +++| WTB13.1  LDC    BFMS+WCSF
04259  M00S03422.1ms     +++|*         LDC    BFMS+WLSF   (*WPHR*)
Line S00238 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04260  M01S00238.242l642 +++| WTBO     EQU    *-2
04261  M00S03423.1ms     +++|          RJM    WDS         WRITE SECTOR
Line S03424 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04262  M01S03424.242l642 ---|          PJN    WTB14       IF NO ERROR
04263  M01S03425.242l642 ---|          RJM    MSR         PROCESS ERROR
Line S00239 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
04264  M02S00239.1ms6    ---|          MJP    WTB24.1     IF ERROR
Line S00022 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
04265  M01S00022.1ms6    +++|          PJN    WTB14       IF NO ERROR
04266  M01S00023.1ms6    +++|          RJM    CDA         CHECK DEVICE
04267  M01S00024.1ms6    +++|
04268  M00S03426.1ms     +++| WTB14    LDD    RA          CHECK RA
04269  M00S03427.1ms     +++|          LMC    **          (RA)
04270  M00S03428.1ms     +++| WTBP     EQU    *-1
04271  M00S03429.1ms     +++|          ZJN    WTB15       IF NO CHANGE
04272  M00S03430.1ms     +++|          RJM    SBA         SET BUFFER ADDRESSES
04273  M00S03431.1ms     +++| WTB15    LDD    SL          CHECK FOR TRACK CHANGE
04274  M00S03432.1ms     +++|          ZJN    WTB16       IF NEW TRACK
04275  M00S03433.1ms     +++|          AOD    T7          INCREMENT SECTOR
04276  M00S03434.1ms     +++|
04277  M00S03435.1ms     +++|*         *IN* IS READ UP HERE SO THAT THE OVERHEAD IS NOT ENCOUNTERED
04278  M00S03436.1ms     +++|*         ON LOGICAL TRACK SWITCH.
04279  M00S03437.1ms     +++|
04280  M00S03438.1ms     +++| WTBQ     LDC    **          (IN + RA)
Line S03439 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04281  M01S03439.ns21000 ---| WTBR     PSN                (NON-BUFFERED)
Line S00004 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04282  M01S00004.ns21000 +++| WTBR     PSN                (NON-BUFFERED OR UPDATE MODE FILE)
04283  M00S03440.1ms     +++|*         CRD    IP-3        (BUFFERED)
04284  M00S03441.1ms     +++|          UJN    WTB17       STORE OUT
04285  M00S03442.1ms     +++|
04286  M00S03443.1ms     +++| WTB16    STD    T7          RESET SECTOR
04287  M00S03444.1ms     +++|          LDI    NT          SET NEXT TRACK
04288  M00S03445.1ms     +++|          STD    T6
04289  M00S03446.1ms     +++|
Line S03447 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04290  M01S03447.242l642 ---|*         STORE OUT.
Line S00240 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04291  M01S00240.242l642 +++|*         STORE OUT POINTER. THE OUT POINTER IS NOT UPDATED BEFORE THE
04292  M01S00241.242l642 +++|*         WRITE SO RECOVERABLE ERRORS CAN BE RETRIED WHEN THE DEVICE
04293  M01S00242.242l642 +++|*         BECOMES ACCESSIBLE.
04294  M00S03448.1ms     +++|
04295  M00S03449.1ms     +++| WTB17    LDC    **          (OUT + RA)
04296  M00S03450.1ms     +++| WTBS     EQU    *-2
04297  M00S03451.1ms     +++| WTBT     CWD    DP          STORE OUT
04298  M00S03452.1ms     +++|*         PSN                (*CLOSE*)
04299  M00S03453.1ms     +++|*         PSN                (*WRITEF*/*REWRITEF* WRITE EOF SECTOR)
04300  M00S03454.1ms     +++|          LJM    WTB3        TRANSFER NEXT BLOCK
04301  M00S03455.1ms     +++|*         LJM    WTB         (*WRITECW* AFTER SHORT BLOCK)
04302  M00S03456.1ms     +++|*         LJM    WTB1        (*WRITECW* AFTER FULL BLOCK)
04303  M00S03457.1ms     +++|*         LJM    WMS1        (EOR BLOCK WRITTEN FOR EOF WRITE)
04304  M00S03458.1ms     +++|*         LJM    WMS2        (EOR BLOCK WRITTEN FOR EOR WRITE)
04305  M00S03459.1ms     +++|*         LJM    WMS2        (EOF BLOCK WRITTEN FOR EOF WRITE)
04306  M00S03460.1ms     +++|*         LJM    WMS2        (*WPHR*)
04307  M00S03461.1ms     +++| WTBU     EQU    *-1
04308  M00S03462.1ms     +++|
04309  M00S03463.1ms     +++|*         PROCESS EOF WRITE FOR *WRITECW* AND *WRITEF*/*REWRITEF*.
04310  M00S03464.1ms     +++|
04311  M00S03465.1ms     +++| WTB18    LDM    BFMS        SET EOF HEADER BYTES
04312  M00S03466.1ms     +++|          STM    BFMS+1
04313  M00S03467.1ms     +++|          LDN    0
04314  M00S03468.1ms     +++|          STM    BFMS
Line S03469 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04315  M01S03469.242l642 ---|          LJM    WTB13       WRITE SECTOR
Line S00243 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04316  M01S00243.242l642 +++|          AOD    PC          INCREMENT PRU COUNT
04317  M01S00244.242l642 +++|          UJP    WTB13.1     WRITE SECTOR
04318  M00S03470.1ms     +++|
04319  M00S03471.1ms     +++|*         PROCESS END OF TRACK TABLE.
04320  M00S03472.1ms     +++|
04321  M00S03473.1ms     +++| WTB19    LDD    FC          CHECK TERMINATION CONDITION
04322  M00S03474.1ms     +++|          LPN    14
04323  M00S03475.1ms     +++|          LMN    /CIO/EOI
Line S03476 Modification History
M01 (Removed by) ns2241
Seq #  *Modification Id* Act 
----------------------------+
04324  M01S03476.ns2241  ---|          ZJN    WTB20       IF *WRITE*/*REWRITE*/*WRITECW*
Line S00017 Modification History
M01 (Added by) ns2241
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04325  M02S00017.242l642 ---| WTBAC    ZJN    WTB20       IF *WRITE*/*REWRITE*/*WRITECW*
04326  M02S00018.242l642 ---|*         UJN    WTB20.1     (UPDATE MODE - WRITE PAST EOI)
Line S00245 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04327  M01S00245.242l642 +++|          ZJN    WTB20       IF *WRITE*/*REWRITE*/*WRITECW*
04328  M00S03477.1ms     +++|
04329  M00S03478.1ms     +++|*         WRITE FUNCTIONS (AND *CLOSE*) OTHER THAN *WRITE*, *REWRITE*,
04330  M00S03479.1ms     +++|*         OR *WRITECW* SHOULD NOT REQUIRE MORE TRACKS THAN THOSE
04331  M00S03480.1ms     +++|*         ALLOCATED BY *RMS* IN PRESET PROCESSING.
04332  M00S03481.1ms     +++|
Line S03482 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04333  M01S03482.241l630 ---|          RJM    HNG         HANG PP
Line S00034 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04334  M01S00034.241l630 +++|          RJM    WEI         WRITE EOI SECTOR
04335  M01S00035.241l630 +++|          LDK    SWET        SET SYSTEM ERROR FLAG
04336  M01S00036.241l630 +++|          RJM    CHG         CONDITIONALLY HANG PP
04337  M01S00037.241l630 +++|          LJM    CFN         COMPLETE FUNCTION
04338  M00S03483.1ms     +++|
04339  M00S03484.1ms     +++| WTB20    AOM    COCA        SET TO ENTER RECALL STACK
04340  M00S03485.1ms     +++|          LJM    WMS2        RETURN
Line S00019 Modification History
M01 (Added by) ns2241
Seq #  *Modification Id* Act 
----------------------------+
04341  M01S00019.ns2241  +++|
04342  M01S00020.ns2241  +++| WTB20.1  ENDMS              RELEASE CHANNEL
04343  M01S00021.ns2241  +++|          ERROR  IFM         *INCORRECT MODIFICATION*
04344  M00S03486.1ms     +++|
04345  M00S03487.1ms     +++|*         PROCESS EOR SECTOR FOR EOR/EOF WRITE.
04346  M00S03488.1ms     +++|
04347  M00S03489.1ms     +++| WTB21    RAD    WC
04348  M00S03490.1ms     +++|          LDC    WMS2        SET RETURN FOR EOR WRITE
04349  M00S03491.1ms     +++|*         LDC    WMS1        (SET RETURN FOR EOF WRITE)
04350  M00S03492.1ms     +++| WTBV     EQU    *-1
04351  M00S03493.1ms     +++|          STM    WTBU
04352  M00S03494.1ms     +++|          LDD    WC          GET EOR BLOCK LENGTH
04353  M00S03495.1ms     +++|          STM    BFMS+1
04354  M00S03496.1ms     +++|          ZJN    WTB22       IF ZERO LENGTH BLOCK
04355  M00S03497.1ms     +++|          LJM    WTB6        READ CENTRAL BUFFER
04356  M00S03498.1ms     +++|
04357  M00S03499.1ms     +++| WTB22    LJM    WTB11       WRITE EOR SECTOR
04358  M00S03500.1ms     +++|
04359  M00S03501.1ms     +++|*         PROCESS CPU RECALL.
04360  M00S03502.1ms     +++|
04361  M00S03503.1ms     +++| WTB23    RJM    WTBH        MODIFY INSTRUCTION
Line S03504 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
04362  M01S03504.271l750 ---|          LDC    **+STSW     CHECK CPU STATUS
Line S00009 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
04363  M01S00009.271l750 +++|          LDC    **+CWQW     CHECK RECALL REQUIRED
04364  M00S03505.1ms     +++| WTBW     EQU    *-1
04365  M00S03506.1ms     +++|          CRD    CM
Line S03507 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
04366  M01S03507.271l750 ---|          LDD    CM
04367  M01S03508.271l750 ---|          SHN    -11
04368  M01S03509.271l750 ---|          LMN    XCPS
04369  M01S03510.271l750 ---|          NJN    WTB24       IF NOT *X* STATUS
Line S00010 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
04370  M01S00010.271l750 +++|          LDD    CM+1
04371  M01S00011.271l750 +++|          SHN    21-12
04372  M01S00012.271l750 +++|          MJN    WTB24       IF RECALL NOT REQUIRED
04373  M00S03511.1ms     +++|          LDD    OA
04374  M00S03512.1ms     +++|          CWD    RC
04375  M00S03513.1ms     +++|
04376  M00S03514.1ms     +++|*         CALCULATE DATA IN THE BUFFER.
04377  M00S03515.1ms     +++|
04378  M00S03516.1ms     +++| WTB24    RJM    WTBH        MODIFY INSTRUCTION
04379  M00S03517.1ms     +++|          LDD    BD
04380  M00S03518.1ms     +++|          SHN    -11
04381  M00S03519.1ms     +++|          NJN    WTB24       IF .GE. 8 SECTORS OF DATA IN THE BUFFER
04382  M00S03520.1ms     +++|          LDD    IP+1
04383  M00S03521.1ms     +++|          SBD    IN+1
04384  M00S03522.1ms     +++|          ZJN    WTB24       IF *IN* NOT CHANGED
04385  M00S03523.1ms     +++|          RAD    IN+1
04386  M00S03524.1ms     +++|          UJN    WTB23       RECALL CPU
Line S03525 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04387  M01S03525.242l642 ---|
04388  M01S03526.242l642 ---|
04389  M01S03527.242l642 ---| WTBY     BSS    0
04390  M01S03528.242l642 ---|          LOC    WTBN
04391  M01S03529.242l642 ---|          UJN    WTB12       PROCESS SHORT BLOCK
04392  M01S03530.242l642 ---|          LOC    *O
Line S00246 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
04393  M02S00246.1ms6    ---|
04394  M02S00247.1ms6    ---| WTB24.1  LDM    RDCT        SAVE DRIVER STATUS
04395  M02S00248.1ms6    ---|          STM    WTBAD
04396  M02S00249.1ms6    ---|          SETMS  IO,NS       WRITE EOI ON FILE
04397  M02S00250.1ms6    ---|          RJM    WEI
04398  M02S00251.1ms6    ---|          LDC    **
04399  M02S00252.1ms6    ---| WTBAD    EQU    *-1
04400  M02S00253.1ms6    ---|          STM    RDCT
04401  M02S00254.1ms6    ---|          RJM    CDA         PROCESS ERROR
04402  M00S03531.1ms     +++| SBA      SPACE  4,10
04403  M00S03532.1ms     +++|**        SBA - SET BUFFER ADDRESSES.
04404  M00S03533.1ms     +++|*         PRESETS CM ADDRESSES IN *WTB*.
04405  M00S03534.1ms     +++|*         ENTER IF (RA) CHANGES.
04406  M00S03535.1ms     +++|*
04407  M00S03536.1ms     +++|*         ENTRY  (FT - FT+1) = *FIRST* POINTER.
04408  M00S03537.1ms     +++|*                (LM - LM+1) = *LIMIT* POINTER.
04409  M00S03538.1ms     +++|*
04410  M00S03539.1ms     +++|*         MACROS CFET.
04411  M00S03540.1ms     +++|
04412  M00S03541.1ms     +++|
04413  M00S03542.1ms     +++| SBA      SUBR               ENTRY/EXIT
04414  M00S03543.1ms     +++|          LDD    RA          RA
04415  M00S03544.1ms     +++|          STM    WTBP
04416  M00S03545.1ms     +++|          SHN    6
04417  M00S03546.1ms     +++| SBAA     ADN    0
04418  M00S03547.1ms     +++|*         ADN    1           (*WRITECW*)
04419  M00S03548.1ms     +++|          STM    WTBI+1
04420  M00S03549.1ms     +++|          STM    WTBD+1
04421  M00S03550.1ms     +++|          LMC    7777        -RA
04422  M00S03551.1ms     +++|          STM    WTBG+1
04423  M00S03552.1ms     +++|          STM    WTBL+1
04424  M00S03553.1ms     +++|          SHN    -14
04425  M00S03554.1ms     +++|          LMC    ADCI
04426  M00S03555.1ms     +++|          STM    WTBI
04427  M00S03556.1ms     +++|          STM    WTBD
04428  M00S03557.1ms     +++|          LMN    77
04429  M00S03558.1ms     +++|          STM    WTBG
04430  M00S03559.1ms     +++|          STM    WTBL
04431  M00S03560.1ms     +++|
04432  M00S03561.1ms     +++|          LDD    FT          FIRST + RA
04433  M00S03562.1ms     +++|          SHN    6
04434  M00S03563.1ms     +++|          ADD    RA
04435  M00S03564.1ms     +++|          SHN    6
04436  M00S03565.1ms     +++|          ADD    FT+1
04437  M00S03566.1ms     +++|          STM    WTBJ+1
04438  M00S03567.1ms     +++|          SHN    -14
04439  M00S03568.1ms     +++|          LMC    LDCI
04440  M00S03569.1ms     +++|          STM    WTBJ
04441  M00S03570.1ms     +++|
04442  M00S03571.1ms     +++|          CFET   2           IN + RA
04443  M00S03572.1ms     +++|          STM    WTBS+1
04444  M00S03573.1ms     +++|          STM    WTBQ+1
04445  M00S03574.1ms     +++|          SHN    -14
04446  M00S03575.1ms     +++|          LMC    LDCI
04447  M00S03576.1ms     +++|          STM    WTBS
04448  M00S03577.1ms     +++|          STM    WTBQ
04449  M00S03578.1ms     +++|          AOM    WTBS+1      OUT + RA
04450  M00S03579.1ms     +++|          SHN    -14
04451  M00S03580.1ms     +++|          RAM    WTBS
04452  M00S03581.1ms     +++|
04453  M00S03582.1ms     +++|          LDD    LM          LIMIT + RA
04454  M00S03583.1ms     +++|          SHN    6
04455  M00S03584.1ms     +++|          ADD    RA
04456  M00S03585.1ms     +++|          SHN    6
04457  M00S03586.1ms     +++|          ADD    LM+1
04458  M00S03587.1ms     +++|          STM    WTBF+1
04459  M00S03588.1ms     +++|          SHN    -14
04460  M00S03589.1ms     +++|          LMC    ADCI
04461  M00S03590.1ms     +++|          STM    WTBF
04462  M00S03591.1ms     +++|          LJM    SBAX        RETURN
Line S00001 Modification History
M01 (Added by) 1ms1
Seq #  *Modification Id* Act 
----------------------------+
04463  M01S00001.1ms1    +++| SRW      SPACE  4,15
04464  M01S00002.1ms1    +++|**        SRW - STATUS LAST SECTOR REWRITE.
04465  M01S00003.1ms1    +++|*
04466  M01S00004.1ms1    +++|*         ENTRY  (MSD) = DRIVER IDENTIFIER.
04467  M01S00005.1ms1    +++|*                (PC) = PRU COUNT WRITTEN.
04468  M01S00006.1ms1    +++|*                (T4) = CHANNEL.
04469  M01S00007.1ms1    +++|*                (T5) = EQUIPMENT.
04470  M01S00008.1ms1    +++|*                (T6) = CURRENT TRACK.
04471  M01S00009.1ms1    +++|*                (T7) = CURRENT SECTOR.
04472  M01S00010.1ms1    +++|*
04473  M01S00011.1ms1    +++|*         EXIT   (T7) = CURRENT SECTOR.
Line S00255 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04474  M01S00255.242l642 +++|*                TO *CDA*, IF MASS STORAGE ERROR.
Line S00012 Modification History
M01 (Added by) 1ms1
Seq #  *Modification Id* Act 
----------------------------+
04475  M01S00012.1ms1    +++|*
Line S00018 Modification History
M01 (Added by) 1ms1a
Seq #  *Modification Id* Act 
----------------------------+
04476  M01S00018.1ms1a   +++|*         USES   T1, T2, T7.
04477  M01S00019.1ms1a   +++|*
Line S00013 Modification History
M01 (Added by) 1ms1
Seq #  *Modification Id* Act 
----------------------------+
04478  M01S00013.1ms1    +++|*         CALLS  MSR, WDS.
04479  M01S00014.1ms1    +++|
04480  M01S00015.1ms1    +++|
04481  M01S00016.1ms1    +++| SRW      SUBR               ENTRY/EXIT
04482  M01S00017.1ms1    +++|          LDD    PC
04483  M01S00018.1ms1    +++|          ZJN    SRWX        IF NO SECTORS WRITTEN
04484  M01S00019.1ms1    +++|          LDM    MSD
Line S00020 Modification History
M01 (Added by) 1ms1
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04485  M02S00020.242l642 ---|          LMC    2RDI
Line S00256 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04486  M01S00256.242l642 +++|          LPN    77
04487  M01S00257.242l642 +++|          LMN    LA6DI
Line S00021 Modification History
M01 (Added by) 1ms1
M02 (Removed by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04488  M02S00021.ns2328  ---|          NJN    SRWX        IF NOT *6DI* DRIVER
04489  M02S00022.ns2328  ---|          LDD    T7
04490  M02S00023.ns2328  ---|          ZJN    SRWX        IF TRACK SWITCH (DRIVER ISSUED *WLSF*)
Line S00024 Modification History
M01 (Added by) 1ms1
M02 (Removed by) 1ms1a
M03 (Removed by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04491  M03S00024.ns2328  ---|          LDD    T4          GET CHANNEL
04492  M03S00025.ns2328  ---|          LPN    37
04493  M03S00026.ns2328  ---|          RAM    SRWA
04494  M03S00027.ns2328  ---|          LPN    37
04495  M03S00028.ns2328  ---|          RAM    SRWB
04496  M03S00029.ns2328  ---|          LPN    37
04497  M03S00030.ns2328  ---|          RAM    SRWC
04498  M03S00031.ns2328  ---|          LPN    37
04499  M03S00032.ns2328  ---|          RAM    SRWD
04500  M03S00033.ns2328  ---| SRWA     AJM    SRW3,0      IF CHANNEL ACTIVE
Line S00020 Modification History
M01 (Added by) 1ms1a
M02 (Removed by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04501  M02S00020.ns2328  ---|
04502  M02S00021.ns2328  ---|*         MODIFY CHANNEL INSTRUCTIONS.
04503  M02S00022.ns2328  ---|
04504  M02S00023.ns2328  ---|          LDC    CH01$       SET ADDRESS OF FIRST CHANNEL INSTRUCTION
04505  M02S00024.ns2328  ---|          STD    T1
04506  M02S00025.ns2328  ---|          LDN    0
04507  M02S00026.ns2328  ---| SRW0.1   RAD    T1
04508  M02S00027.ns2328  ---|          LDI    T1
04509  M02S00028.ns2328  ---|          LPN    37
04510  M02S00029.ns2328  ---|          STD    T2
04511  M02S00030.ns2328  ---|          LDD    T4
04512  M02S00031.ns2328  ---|          SBD    T2
04513  M02S00032.ns2328  ---|          RAI    T1
04514  M02S00033.ns2328  ---|          LDD    T2
04515  M02S00034.ns2328  ---|          NJN    SRW0.1      IF MORE INSTRUCTIONS TO MODIFY
04516  M02S00035.ns2328  ---|          AJM    SRW3,CH     IF CHANNEL ACTIVE
Line S00034 Modification History
M01 (Added by) 1ms1
M02 (Removed by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04517  M02S00034.ns2328  ---|          LDN    12          ISSUE GENERAL STATUS
Line S00035 Modification History
M01 (Added by) 1ms1
M02 (Removed by) 1ms1a
M03 (Removed by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04518  M03S00035.ns2328  ---| SRWB     FAN    0
Line S00036 Modification History
M01 (Added by) 1ms1a
M02 (Removed by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04519  M02S00036.ns2328  ---|          FAN    CH
Line S00036 Modification History
M01 (Added by) 1ms1
M02 (Removed by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04520  M02S00036.ns2328  ---| SRW1     ADD    ON          ENSURE 300 MS DELAY
Line S00037 Modification History
M01 (Added by) 1ms1
M02 (Removed by) 1ms1a
M03 (Removed by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04521  M03S00037.ns2328  ---| SRWC     IJM    SRW2,0      IF FUNCTION ACCEPTED
Line S00037 Modification History
M01 (Added by) 1ms1a
M02 (Removed by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04522  M02S00037.ns2328  ---|          IJM    SRW2,CH     IF FUNCTION ACCEPTED
Line S00038 Modification History
M01 (Added by) 1ms1
M02 (Removed by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04523  M02S00038.ns2328  ---|          NJN    SRW1        IF DELAY NOT SATISFIED
04524  M02S00039.ns2328  ---|          UJN    SRW3        PROCESS TIMEOUT ERROR
04525  M02S00040.ns2328  ---|
Line S00041 Modification History
M01 (Added by) 1ms1
M02 (Removed by) 1ms1a
M03 (Removed by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04526  M03S00041.ns2328  ---| SRW2     IAN    40          INPUT GENERAL STATUS
04527  M03S00042.ns2328  ---| SRWD     EQU    *-1
Line S00038 Modification History
M01 (Added by) 1ms1a
M02 (Removed by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04528  M02S00038.ns2328  ---| SRW2     ACN    CH
04529  M02S00039.ns2328  ---|          LDN    1
04530  M02S00040.ns2328  ---|          IAM    T1,CH       INPUT GENERAL STATUS
04531  M02S00041.ns2328  ---|          NJN    SRW3        IF STATUS NOT RECEIVED
04532  M02S00042.ns2328  ---|          LDD    T1
Line S00043 Modification History
M01 (Added by) 1ms1
M02 (Removed by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04533  M02S00043.ns2328  ---|          ZJN    SRW5        IF NO ERROR
04534  M02S00044.ns2328  ---| SRW3     SOD    T7          RESET LAST SECTOR
04535  M02S00045.ns2328  ---|          LDC    BFMS+WLSF   REWRITE LAST SECTOR
04536  M02S00046.ns2328  ---|          RJM    WDS
04537  M02S00047.ns2328  ---|          PJN    SRW4        IF NO ERROR
Line S00001 Modification History
M01 (Added by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04538  M01S00001.ns2328  +++|          ZJN    SRW1        IF *6DI* DRIVER
Line S00002 Modification History
M01 (Added by) ns2328
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04539  M02S00002.242l642 ---|          LMK    2RDJ&2RDI
Line S00258 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04540  M01S00258.242l642 +++|          LMK    LA6DJ&LA6DI
Line S00003 Modification History
M01 (Added by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04541  M01S00003.ns2328  +++|          NJN    SRWX        IF NOT *6DJ* DRIVER
Line S00004 Modification History
M01 (Added by) ns2328
M02 (Removed by) ns2328a
Seq #  *Modification Id* Act 
----------------------------+
04542  M02S00004.ns2328a ---| SRW1     LDD    T7
04543  M02S00005.ns2328a ---|          ZJN    SRWX        IF TRACK SWITCH (DRIVER ISSUED *WLSF*)
Line S00001 Modification History
M01 (Added by) ns2328a
Seq #  *Modification Id* Act 
----------------------------+
04544  M01S00001.ns2328a +++| SRW1     LDM    CHRV        CHECK IF CHANNEL CONNECTED
04545  M01S00002.ns2328a +++|          LPN    1
Line S00003 Modification History
M01 (Added by) ns2328a
M02 (Removed by) ns2328b
Seq #  *Modification Id* Act 
----------------------------+
04546  M02S00003.ns2328b ---|          ADD    T7          CHECK TRACK SWITCH (DRIVER ISSUED *WLSF*)
Line S00001 Modification History
M01 (Added by) ns2328b
Seq #  *Modification Id* Act 
----------------------------+
04547  M01S00001.ns2328b +++|          ZJN    SRWX        IF CHANNEL NOT CONNECTED
04548  M01S00002.ns2328b +++|          LDD    T7          CHECK TRACK SWITCH (DRIVER ISSUED *WLSF*)
Line S00004 Modification History
M01 (Added by) ns2328a
Seq #  *Modification Id* Act 
----------------------------+
04549  M01S00004.ns2328a +++|          ZJN    SRWX        IF STATUS NOT NEEDED
Line S00006 Modification History
M01 (Added by) ns2328
Seq #  *Modification Id* Act 
----------------------------+
04550  M01S00006.ns2328  +++|          SOD    T7
04551  M01S00007.ns2328  +++|          LDC    SRW2
04552  M01S00008.ns2328  +++|          STM    WDS
04553  M01S00009.ns2328  +++|          LJM    .DST1       ENTER DRIVER TO TAKE SECOND GENERAL STATUS
04554  M01S00010.ns2328  +++|
04555  M01S00011.ns2328  +++| SRW2     PJN    SRW4        IF NO ERROR
Line S00048 Modification History
M01 (Added by) 1ms1
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04556  M02S00048.242l642 ---|          RJM    MSR         PROCESS ERROR
Line S00259 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04557  M01S00259.242l642 +++|          RJM    CDA         PROCESS ERROR
04558  M01S00260.242l642 +++|
Line S00049 Modification History
M01 (Added by) 1ms1
Seq #  *Modification Id* Act 
----------------------------+
04559  M01S00049.1ms1    +++| SRW4     AOD    T7          ADVANCE SECTOR
04560  M01S00050.1ms1    +++| SRW5     LJM    SRWX        RETURN
04561  M00S03592.1ms     +++| WEI      SPACE  4,25
04562  M00S03593.1ms     +++|**        WEI - WRITE EOI SECTOR.
04563  M00S03594.1ms     +++|*
Line S03595 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04564  M01S03595.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
Line S00169 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04565  M01S00169.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
04566  M00S03596.1ms     +++|*                (T6) = TRACK.
04567  M00S03597.1ms     +++|*                (T7) = SECTOR.
04568  M00S03598.1ms     +++|*                (NT) = NEXT TRACK POINTER.
04569  M00S03599.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION CODE.
04570  M00S03600.1ms     +++|*                (FS - FS+4) = FST ENTRY.
04571  M00S03601.1ms     +++|*                (WEIA) = OLD EOI TRACK TABLE ADDRESS.
04572  M00S03602.1ms     +++|*                (WEIB) = OLD EOI SECTOR.
04573  M00S03603.1ms     +++|*                (WEIC) = 1 IF ADDITIONAL TRACKS ALLOWED.
04574  M00S03604.1ms     +++|*                (WEID) = EOI TRACK SET BY *RTCM*.
04575  M00S03605.1ms     +++|*                (WEIE) = EOI SECTOR SET BY *RTCM*.
04576  M00S03606.1ms     +++|*
04577  M00S03607.1ms     +++|*         EXIT   (FS - FS+4) = UPDATED FST ENTRY.
Line S00025 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
04578  M01S00025.1ms6    +++|*                (A) = 0 IF NO DISK ERROR.
04579  M00S03608.1ms     +++|*                CHANNEL RELEASED AND EXCESS TRACKS DROPPED.
Line S00261 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
04580  M02S00261.1ms6    ---|*                TO *CDA*, IF MASS STORAGE ERROR.
04581  M00S03609.1ms     +++|*
04582  M00S03610.1ms     +++|*         USES   T1, T2, CM - CM+4.
04583  M00S03611.1ms     +++|*
Line S03612 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
04584  M01S03612.ns2090  ---|*         CALLS  DCC, MSR, /WEI/WEI.
Line S00175 Modification History
M01 (Added by) ns2090
M02 (Removed by) 1ms1
Seq #  *Modification Id* Act 
----------------------------+
04585  M02S00175.1ms1    ---|*         CALLS  DCC, FWB, MSR, SCF, /WEI/WEI.
Line S00051 Modification History
M01 (Added by) 1ms1
Seq #  *Modification Id* Act 
----------------------------+
04586  M01S00051.1ms1    +++|*         CALLS  DCC, FWB, MSR, SCF, SRW, /WEI/WEI.
04587  M00S03613.1ms     +++|*
04588  M00S03614.1ms     +++|*         MACROS MONITOR.
04589  M00S03615.1ms     +++|
04590  M00S03616.1ms     +++|
04591  M00S03617.1ms     +++| WEI      SUBR               ENTRY/EXIT
Line S03618 Modification History
M01 (Removed by) 1ms9
Seq #  *Modification Id* Act 
----------------------------+
04592  M01S03618.1ms9    ---|          LDD    T6          SET CURRENT TRACK IN FST
Line S00001 Modification History
M01 (Added by) 1ms9
Seq #  *Modification Id* Act 
----------------------------+
04593  M01S00001.1ms9    +++|
04594  M01S00002.1ms9    +++|*         CHECK FOR ERROR WRITING SYSTEM SECTOR.
04595  M01S00003.1ms9    +++|
04596  M01S00004.1ms9    +++|          LDD    T6
04597  M01S00005.1ms9    +++|          LMD    FS+1
04598  M01S00006.1ms9    +++|          NJN    WEI1        IF NOT IN FIRST TRACK
04599  M01S00007.1ms9    +++|          LDD    T7
04600  M01S00008.1ms9    +++|          ZJN    WEIX        IF POSITIONED AT SYSTEM SECTOR
04601  M01S00009.1ms9    +++| WEI1     LDD    T6          SET CURRENT TRACK IN FST
04602  M00S03619.1ms     +++|          STD    FS+2
04603  M00S03620.1ms     +++|          LDD    T7          SET CURRENT SECTOR IN FST
04604  M00S03621.1ms     +++|          STD    FS+3
Line S00012 Modification History
M01 (Added by) ns2328
M02 (Removed by) ns2328a
Seq #  *Modification Id* Act 
----------------------------+
04605  M02S00012.ns2328a ---| WEI0.0   LDD    OA          ALLOW *DRCM* TO FINISH BEFORE *WLSF*
04606  M02S00013.ns2328a ---|          CRD    CM
04607  M02S00014.ns2328a ---|          LDD    CM
04608  M02S00015.ns2328a ---|          NJN    WEI0.0      IF *DRCM* NOT YET PROCESSED
04609  M00S03622.1ms     +++|          LDD    FC          CHECK FOR REWRITE
04610  M00S03623.1ms     +++|          SHN    21-12
Line S03624 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
04611  M01S03624.ns2090  ---|          PJN    WEI3        IF NOT REWRITE
Line S00176 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
04612  M01S00176.ns2090  +++|          PJP    WEI3        IF NOT REWRITE
04613  M00S03625.1ms     +++|          LDC    7777        CHECK TRACK TABLE
04614  M00S03626.1ms     +++| WEIA     EQU    *-1
Line S03627 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
04615  M01S03627.ns2090  ---|          STD    T1
04616  M00S03628.1ms     +++|          SBD    NT
Line S03629 Modification History
M01 (Removed by) 1ms1
Seq #  *Modification Id* Act 
----------------------------+
04617  M01S03629.1ms1    ---|          MJN    WEI3        IF TRACK BEYOND EOI USED
Line S00052 Modification History
M01 (Added by) 1ms1
M02 (Removed by) 1ms9
Seq #  *Modification Id* Act 
----------------------------+
04618  M02S00052.1ms9    ---|          MJN    WEI0        IF TRACK BEYOND EOI USED
Line S03630 Modification History
M01 (Removed by) 1ms9
Seq #  *Modification Id* Act 
----------------------------+
04619  M01S03630.1ms9    ---|          NJN    WEI1        IF NOT AT EOI TRACK
Line S00010 Modification History
M01 (Added by) 1ms9
Seq #  *Modification Id* Act 
----------------------------+
04620  M01S00010.1ms9    +++|          MJN    WEI1.1      IF TRACK BEYOND EOI USED
04621  M01S00011.1ms9    +++|          NJN    WEI1.2      IF NOT AT EOI TRACK
04622  M00S03631.1ms     +++|          LDC    7777        CHECK EOI SECTOR
04623  M00S03632.1ms     +++| WEIB     EQU    *-1
04624  M00S03633.1ms     +++|          SBD    T7
Line S03634 Modification History
M01 (Removed by) 1ms1
Seq #  *Modification Id* Act 
----------------------------+
04625  M01S03634.1ms1    ---|          MJN    WEI3        IF SECTOR BEYOND EOI
04626  M01S03635.1ms1    ---| WEI1     RJM    DCC         DROP CHANNEL WHEN OUTPUT REGISTER CLEAR
Line S00053 Modification History
M01 (Added by) 1ms1
M02 (Removed by) 1ms9
Seq #  *Modification Id* Act 
----------------------------+
04627  M02S00053.1ms9    ---| WEI0     MJN    WEI3        IF SECTOR BEYOND EOI
04628  M02S00054.1ms9    ---| WEI1     RJM    SRW         STATUS LAST SECTOR REWRITE
Line S00012 Modification History
M01 (Added by) 1ms9
Seq #  *Modification Id* Act 
----------------------------+
04629  M01S00012.1ms9    +++| WEI1.1   MJN    WEI3        IF SECTOR BEYOND EOI
04630  M01S00013.1ms9    +++| WEI1.2   RJM    SRW         STATUS LAST SECTOR REWRITE
Line S00055 Modification History
M01 (Added by) 1ms1
Seq #  *Modification Id* Act 
----------------------------+
04631  M01S00055.1ms1    +++|          RJM    DCC         DROP CHANNEL WHEN OUTPUT REGISTER CLEAR
04632  M00S03636.1ms     +++|          LDN    76          ONLY SET FILE WRITTEN IN FST IF REWRITE
Line S03637 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04633  M01S03637.242l642 ---|          STM    MSPA
Line S00262 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04634  M01S00262.242l642 +++|          STM    WMSB
04635  M00S03638.1ms     +++|          LDN    1           SET FILE WRITTEN
Line S03639 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04636  M01S03639.242l642 ---|          STM    MSPB
Line S00263 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04637  M01S00263.242l642 +++|          STM    WMSC
Line S00177 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
04638  M01S00177.ns2090  +++|          RJM    SCF         SET CONTROL BUFFER INDEX INTO FNT
04639  M01S00178.ns2090  +++|          RJM    FWB         FLUSH WRITE DATA FOR BUFFERED DEVICE
04640  M00S03640.1ms     +++| WEIC     LDN    0           CHECK TRT MODIFIED
04641  M00S03641.1ms     +++|*         LDN    1           (ADDITIONAL TRACKS REQUESTED)
Line S03642 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
04642  M01S03642.ns2090  ---| WEI2     ZJN    WEIX        IF NO TRT UPDATE NEEDED
Line S00179 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
04643  M01S00179.ns2090  +++|          ZJN    WEI2        IF NO TRT UPDATE NEEDED
04644  M00S03643.1ms     +++|          LDM    WEIB        RESET OLD EOI SECTOR
04645  M00S03644.1ms     +++|          STD    CM+3
Line S00180 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
04646  M01S00180.ns2090  +++|          LDM    WEIA        RESET OLD EOI TRACK
04647  M01S00181.ns2090  +++|          STD    T1
04648  M00S03645.1ms     +++|          LDI    T1          RESET OLD EOI TRACK
04649  M00S03646.1ms     +++|          UJN    WEI5        RESET EOI IN TRT
Line S00182 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
04650  M01S00182.ns2090  +++|
Line S00183 Modification History
M01 (Added by) ns2090
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
04651  M02S00183.1ms6    ---| WEI2     LJM    WEIX        RETURN
Line S00026 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
04652  M01S00026.1ms6    +++| WEI2     LJM    WEI9        RETURN
04653  M00S03647.1ms     +++|
04654  M00S03648.1ms     +++| WEI3     RJM    /WEI/WEI    WRITE EOI SECTOR
Line S03649 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04655  M01S03649.242l642 ---|          PJN    WEI4        IF NO ERROR
04656  M01S03650.242l642 ---|          RJM    MSR         PROCESS ERROR
04657  M01S03651.242l642 ---| WEI4     RJM    DCC         DROP CHANNEL WHEN OUTPUT REGISTER CLEAR
Line S00264 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04658  M01S00264.242l642 +++|          SHN    0-21
04659  M01S00265.242l642 +++|          RAM    WEIF
04660  M01S00266.242l642 +++|          RJM    DCC         DROP CHANNEL
Line S03652 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
04661  M01S03652.ns2090  ---|          LDD    T7          SET CURRENT SECTOR
Line S00184 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
04662  M01S00184.ns2090  +++|          RJM    SCF         SET CONTROL BUFFER INDEX INTO FNT
04663  M01S00185.ns2090  +++|          LDM    COCA
04664  M01S00186.ns2090  +++|          SHN    21-13
04665  M01S00187.ns2090  +++|          MJN    WEI4.1      IF TO RESTART *CPUCIO* FOR BUFFERED DEVICE
04666  M01S00188.ns2090  +++|          RJM    FWB         FLUSH WRITE DATA FOR BUFFERED DEVICE
04667  M01S00189.ns2090  +++| WEI4.1   LDD    T7          SET CURRENT SECTOR
04668  M00S03653.1ms     +++|          STD    CM+3
04669  M00S03654.1ms     +++|          LDD    T6          SET CURRENT TRACK
04670  M00S03655.1ms     +++| WEI5     LPC    3777
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/1ms.002.txt ยท Last modified: by 127.0.0.1