User Tools

Site Tools


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

Deck 1MS Part 004

38 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
06188  M00S04782.1ms     +++|          LDC    BFMS+DTSF   READ NEXT SECTOR HEADER WORD
06189  M00S04783.1ms     +++|          RJM    RNS
06190  M00S04784.1ms     +++|          SHN    -6
Line S04785 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06191  M01S04785.242l642 ---|          NJN    SKF         IF NOT EOR
Line S00391 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06192  M01S00391.242l642 +++|          NJN    SKF0        IF NOT EOR
06193  M00S04786.1ms     +++|          LDM    BFMS
06194  M00S04787.1ms     +++|          ADM    BFMS+1
06195  M00S04788.1ms     +++|          ZJN    SKF4        IF EOI
06196  M00S04789.1ms     +++|          LDD    FC
06197  M00S04790.1ms     +++|          LPN    14
06198  M00S04791.1ms     +++|          LMN    /CIO/EOF
06199  M00S04792.1ms     +++|          NJN    SKF2        IF NOT SKIP TO EOF
06200  M00S04793.1ms     +++|          LDM    BFMS
Line S04794 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06201  M01S04794.242l642 ---|          NJN    SKF         IF NOT EOF
Line S00392 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06202  M01S00392.242l642 +++|          NJN    SKF0        IF NOT EOF
06203  M00S04795.1ms     +++| SKF2     RJM    DSC         DECREMENT SKIP COUNT
Line S04796 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06204  M01S04796.242l642 ---|          NJN    SKF         IF SKIP NOT COMPLETE
Line S00393 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06205  M01S00393.242l642 +++|          NJN    SKF0        IF SKIP NOT COMPLETE
06206  M00S04797.1ms     +++|          LDM    BFMS
06207  M00S04798.1ms     +++|          ZJN    SKF3        IF EOF
06208  M00S04799.1ms     +++|          LDN    /CIO/EOR&/CIO/EOF
06209  M00S04800.1ms     +++| SKF3     LMN    /CIO/EOF&/CIO/EOI
06210  M00S04801.1ms     +++| SKF4     LMN    /CIO/EOI
06211  M00S04802.1ms     +++|          STD    FS+4        SET FST STATUS
06212  M00S04803.1ms     +++|          ENDMS              END MASS STORAGE OPERATION
06213  M00S04804.1ms     +++|          LJM    SFP         EXIT
06214  M00S04805.1ms     +++| SKP      SPACE  4,20
06215  M00S04806.1ms     +++|**        SKP - SKIP PROCESSOR.
06216  M00S04807.1ms     +++|*
06217  M00S04808.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
06218  M00S04809.1ms     +++|*                (T6) = CURRENT TRACK.
06219  M00S04810.1ms     +++|*                (T7) = CURRENT SECTOR.
06220  M00S04811.1ms     +++|*                (BS - BS+4) = (FET+0).
06221  M00S04812.1ms     +++|*                (FS - FS+4) = FST ENTRY.
06222  M00S04813.1ms     +++|*
06223  M00S04814.1ms     +++|*         EXIT   (BS+4) = REWIND STATUS IF BOI ENCOUNTERED ON
06224  M00S04815.1ms     +++|*                   BACKWARD SKIP.
06225  M00S04816.1ms     +++|*                (FS - FS+4) = UPDATED FST ENTRY.
06226  M00S04817.1ms     +++|*                TO *BKS* IF BACKSPACE PRU FUNCTION.
06227  M00S04818.1ms     +++|*                TO *SKB* IF BACKSPACE RECORD/FILE FUNCTION.
06228  M00S04819.1ms     +++|*                TO *SKF* IF SKIP RECORD/FILE FORWARD.
06229  M00S04820.1ms     +++|*                TO *SFP* IF FORWARD SKIP ON NULL FILE OR *SKIPEI*.
06230  M00S04821.1ms     +++|*                TO *SFS* IF BACKWARD SKIP ON NULL FILE.
06231  M00S04822.1ms     +++|*
06232  M00S04823.1ms     +++|*         USES   T1.
06233  M00S04824.1ms     +++|*
06234  M00S04825.1ms     +++|*         CALLS  CET, SEI.
06235  M00S04826.1ms     +++|
06236  M00S04827.1ms     +++|
06237  M00S04828.1ms     +++| SKP      BSS    0           ENTRY
06238  M00S04829.1ms     +++|          LDD    T6          CHECK CURRENT TRACK
06239  M00S04830.1ms     +++|          NJN    SKP1        IF FILE USED
06240  M00S04831.1ms     +++|          LDD    FC
06241  M00S04832.1ms     +++|          SHN    -13
Line S04833 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06242  M01S04833.242l642 ---|          ZJN    SKP2        IF SKIP FORWARD
Line S00394 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06243  M01S00394.242l642 +++|          ZJN    SKP3        IF FORWARD SKIP
06244  M00S04834.1ms     +++|          LJM    SFS         SET BOI STATUS
06245  M00S04835.1ms     +++|
06246  M00S04836.1ms     +++| SKP1     RJM    CET         CHECK ERROR TERMINATION
06247  M00S04837.1ms     +++|          LDD    FC
06248  M00S04838.1ms     +++|          SHN    -13
06249  M00S04839.1ms     +++|          STD    T1          0 = SKIP FORWARD, 1 = SKIP BACKWARD
Line S04840 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06250  M01S04840.242l642 ---|          NJN    SKP3        IF BACKWARD SKIP
Line S00395 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06251  M01S00395.242l642 +++|          NJN    SKP4        IF BACKWARD SKIP
06252  M00S04841.1ms     +++|          LDD    FC          CHECK FOR *SKIPEI*
06253  M00S04842.1ms     +++|          LPN    14
06254  M00S04843.1ms     +++|          LMN    /CIO/EOI
Line S04844 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06255  M01S04844.242l642 ---|          NJN    SKP4        IF NOT SKIP TO EOI
06256  M01S04845.242l642 ---|          RJM    SEI         SEARCH FOR END OF INFORMATION
06257  M01S04846.242l642 ---| SKP2     LDN    /CIO/EOI
Line S00396 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06258  M01S00396.242l642 +++|          NJN    SKP5        IF NOT SKIP TO EOI
06259  M01S00397.242l642 +++|          LDD    FO
06260  M01S00398.242l642 +++|          SHN    6
06261  M01S00399.242l642 +++|          PJN    SKP2        IF NOT RANDOM FET
06262  M01S00400.242l642 +++|          LDD    FS+1        START AT FIRST TRACK TO GET FILE LENGTH
06263  M01S00401.242l642 +++|          STD    T6
06264  M01S00402.242l642 +++|          AOM    SFPA        INDICATE THAT *RI* IS PRESET
06265  M01S00403.242l642 +++| SKP2     RJM    SEI         SKIP TO END OF INFORMATION
06266  M01S00404.242l642 +++|          LDD    T2          SET RELATIVE SECTOR ADDRESS
06267  M01S00405.242l642 +++|          STD    RI
06268  M01S00406.242l642 +++|          LDD    T3
06269  M01S00407.242l642 +++|          STD    RI+1
06270  M01S00408.242l642 +++| SKP3     LDN    /CIO/EOI
06271  M00S04847.1ms     +++|          STD    FS+4        SET EOI FST STATUS
06272  M00S04848.1ms     +++|          LJM    SFP         EXIT
06273  M00S04849.1ms     +++|
Line S04850 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06274  M01S04850.242l642 ---| SKP3     LDD    FC          CHECK TERMINATION CONDITION
06275  M01S04851.242l642 ---|          LPN    14
06276  M01S04852.242l642 ---|          ZJN    SKP4        IF BACKSPACE PRU
Line S00409 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06277  M01S00409.242l642 +++| SKP4     LDD    FC          CHECK TERMINATION CONDITION
06278  M01S00410.242l642 +++|          LPN    14
06279  M01S00411.242l642 +++|          ZJN    SKP5        IF BACKSPACE PRU
06280  M00S04853.1ms     +++|          AOD    T1          2 = SKIP RECORD/FILE BACKWARD
06281  M00S04854.1ms     +++|          LDD    FS+3        INITIALIZE BACKSPACE SECTOR
06282  M00S04855.1ms     +++|          STM    BKRA
06283  M00S04856.1ms     +++|          LDD    FS+2        INITIALIZE BACKSPACE TRACK
06284  M00S04857.1ms     +++|          STM    BKRB
Line S04858 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06285  M01S04858.242l642 ---| SKP4     LDM    TSPA,T1     GET SKIP PROCESSOR ADDRESS
06286  M01S04859.242l642 ---|          STD    PA
06287  M01S04860.242l642 ---|          LJM    0,PA        PROCESS SKIP FUNCTION
Line S00412 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06288  M01S00412.242l642 +++| SKP5     LDM    TSPA,T1
06289  M01S00413.242l642 +++|          STD    T1
06290  M01S00414.242l642 +++|          LJM    0,T1        PROCESS SKIP FUNCTION
06291  M00S04861.1ms     +++|
06292  M00S04862.1ms     +++|
06293  M00S04863.1ms     +++| TSPA     BSS    0           TABLE OF SKIP PROCESSOR ADDRESSES
06294  M00S04864.1ms     +++|          LOC    0
06295  M00S04865.1ms     +++|          CON    SKF         SKIP FORWARD
06296  M00S04866.1ms     +++|          CON    BKS         BACKSPACE PRU
06297  M00S04867.1ms     +++|          CON    SKB         SKIP RECORD/FILE BACKWARD
06298  M00S04868.1ms     +++|          LOC    *O
06299  M00S04869.1ms     +++| OPE      SPACE  4,15
06300  M00S04870.1ms     +++|**        OPE - OPEN FILE.
06301  M00S04871.1ms     +++|*
06302  M00S04872.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
06303  M00S04873.1ms     +++|*                (FO) = FET OPTIONS.
06304  M00S04874.1ms     +++|*
06305  M00S04875.1ms     +++|*         EXIT   TO *REW* IF OPEN/REWIND.
06306  M00S04876.1ms     +++|*                TO *SFP* IF OPEN/NO REWIND.
06307  M00S04877.1ms     +++|*
06308  M00S04878.1ms     +++|*         USES   CM - CM+4.
06309  M00S04879.1ms     +++|*
06310  M00S04880.1ms     +++|*         CALLS  LRI.
06311  M00S04881.1ms     +++|*
06312  M00S04882.1ms     +++|*         MACROS  CFET.
06313  M00S04883.1ms     +++|
06314  M00S04884.1ms     +++|
06315  M00S04885.1ms     +++| OPE      BSS    0           ENTRY
06316  M00S04886.1ms     +++|          LDD    FO          CHECK SPECIAL PROCESSING
06317  M00S04887.1ms     +++|          SHN    6
06318  M00S04888.1ms     +++|          PJN    OPE1        IF NOT RANDOM FILE
06319  M00S04889.1ms     +++|          LDM    FETL        CHECK FET LENGTH
06320  M00S04890.1ms     +++|          SBN    3
06321  M00S04891.1ms     +++|          MJN    OPE1        IF NO INDEX WORD IN FET
06322  M00S04892.1ms     +++|          RJM    LRI         LOAD RANDOM INDEX
06323  M00S04893.1ms     +++| OPE1     CFET   4           READ LIMIT
06324  M00S04894.1ms     +++|          CRD    CM
06325  M00S04895.1ms     +++|          LDN    1           SET PRU SIZE
06326  M00S04896.1ms     +++|          STD    CM+2
06327  M00S04897.1ms     +++|          LDD    CM+3
06328  M00S04898.1ms     +++|          LPN    37
06329  M00S04899.1ms     +++|          STD    CM+3
06330  M00S04900.1ms     +++|          CFET   4           STORE LIMIT
06331  M00S04901.1ms     +++|          CWD    CM
06332  M00S04902.1ms     +++|          LDM    CFNB        CLEAR FILE OPENED AND WRITTEN BITS
06333  M00S04903.1ms     +++|          LPN    71
06334  M00S04904.1ms     +++|          LMN    04          SET FILE OPENED STATUS
06335  M00S04905.1ms     +++|          STM    CFNB
06336  M00S04906.1ms     +++|          LDD    FC          CHECK FOR OPEN/REWIND OPERATION
06337  M00S04907.1ms     +++|          SHN    21-13
06338  M00S04908.1ms     +++|          PJN    OPE2        IF NO REWIND
06339  M00S04909.1ms     +++|          LJM    REW         REWIND FILE
06340  M00S04910.1ms     +++|
06341  M00S04911.1ms     +++| OPE2     LJM    SFP         RETURN
06342  M00S04912.1ms     +++|          TITLE  SKIP/OPEN SUBROUTINES.
06343  M00S04913.1ms     +++| BKR      SPACE  4,20
06344  M00S04914.1ms     +++|**        BKR - BACKSPACE RECORD.
06345  M00S04915.1ms     +++|*
06346  M00S04916.1ms     +++|*         ENTRY  (T4 - T7) = MS PARAMETERS.
06347  M00S04917.1ms     +++|*                (BI) = BACKSPACE INDEX.
06348  M00S04918.1ms     +++|*                (FS - FS+4) = FST ENTRY.
Line S00415 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06349  M01S00415.242l642 +++|*                DRIVER PRESET.
06350  M00S04919.1ms     +++|*
06351  M00S04920.1ms     +++|*         EXIT   (BIT 13B OF T1) = 1 IF EOF.
06352  M00S04921.1ms     +++|*                (T6 - T7) UPDATED.
06353  M00S04922.1ms     +++|*                (BI) = ADVANCED BACKSPACE INDEX.
06354  M00S04923.1ms     +++|*                (PC) = ACCUMULATED PRUS TRANSFERRED COUNT.
06355  M00S04924.1ms     +++|*                (FS - FS+4) = UPDATED FST ENTRY.
06356  M00S04925.1ms     +++|*                TO *SRC* IF PRU TRANSFER LIMIT.
Line S00416 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06357  M01S00416.242l642 +++|*                TO *CDA*, IF MASS STORAGE ERROR.
06358  M00S04926.1ms     +++|*
06359  M00S04927.1ms     +++|*         USES   T1.
06360  M00S04928.1ms     +++|*
06361  M00S04929.1ms     +++|*         CALLS  BOT, CET, CRT, RNS.
06362  M00S04930.1ms     +++|*
06363  M00S04931.1ms     +++|*         MACROS ENDMS.
06364  M00S04932.1ms     +++|
06365  M00S04933.1ms     +++|
06366  M00S04934.1ms     +++| BKR      SUBR               ENTRY/EXIT
06367  M00S04935.1ms     +++|
06368  M00S04936.1ms     +++|*         SET PREVIOUS END OF RECORD POSITION FROM BUFFER IF POSSIBLE.
06369  M00S04937.1ms     +++|
06370  M00S04938.1ms     +++|          LDD    BI
06371  M00S04939.1ms     +++|          ZJN    BKR5        IF BACKSPACE INDEX EMPTY
06372  M00S04940.1ms     +++|          LDD    T7          SET CURRENT SECTOR
06373  M00S04941.1ms     +++|          STD    FS+3
06374  M00S04942.1ms     +++| BKR1     SOD    BI          DECREMENT INDEX
06375  M00S04943.1ms     +++|          LDM    BKRB        SET TRACK
06376  M00S04944.1ms     +++|          STD    T6
06377  M00S04945.1ms     +++|          LDM    BBUF,BI     SET EOF STATUS
06378  M00S04946.1ms     +++|          STD    T1
06379  M00S04947.1ms     +++|          LPC    3777        SET SECTOR
06380  M00S04948.1ms     +++|          STD    T7
06381  M00S04949.1ms     +++|          NJN    BKR2        IF NOT FIRST SECTOR OF NEXT TRACK
06382  M00S04950.1ms     +++|          LDD    FS+2        SET NEXT TRACK
06383  M00S04951.1ms     +++|          STD    T6
06384  M00S04952.1ms     +++| BKR2     LDD    FS+3        COUNT PRUS TRANSFERRED
06385  M00S04953.1ms     +++|          NJN    BKR3        IF NOT NEXT TRACK
06386  M00S04954.1ms     +++|          LDM    SLM         SECTORS PER TRACK
06387  M00S04955.1ms     +++| BKR3     SBD    T7
06388  M00S04956.1ms     +++|          RAD    PC
06389  M00S04957.1ms     +++|          UJN    BKRX        RETURN
06390  M00S04958.1ms     +++|
06391  M00S04959.1ms     +++| BKR4     LJM    SRC         ENTER RECALL STACK
06392  M00S04960.1ms     +++|
06393  M00S04961.1ms     +++|*         BACKSPACE UP TO *MPTB* SECTORS OR BEGINNING OF TRACK.
06394  M00S04962.1ms     +++|
06395  M00S04963.1ms     +++| BKR5     LDC    0           SET PRIOR TRACK/SECTOR POSITION
06396  M00S04964.1ms     +++| BKRA     EQU    *-1
06397  M00S04965.1ms     +++|          STD    T7
06398  M00S04966.1ms     +++|          STD    FS+3
06399  M00S04967.1ms     +++|          LDC    0
06400  M00S04968.1ms     +++| BKRB     EQU    *-1
06401  M00S04969.1ms     +++|          STD    T6
06402  M00S04970.1ms     +++|          STD    FS+2
06403  M00S04971.1ms     +++|          RJM    CET         CHECK ERROR TERMINATION
06404  M00S04972.1ms     +++|          RJM    CRT         CHECK RECALL TIME
06405  M00S04973.1ms     +++|          LDD    PC
06406  M00S04974.1ms     +++|          ADC    MPTB
06407  M00S04975.1ms     +++|          SHN    -14
06408  M00S04976.1ms     +++|          NJN    BKR4        IF PRU TRANSFER LIMIT
06409  M00S04977.1ms     +++|          LDD    T7          CHECK SECTOR
06410  M00S04978.1ms     +++|          NJN    BKR6        IF NOT FIRST SECTOR
06411  M00S04979.1ms     +++|          RJM    BOT         BACK UP ONE TRACK
06412  M00S04980.1ms     +++| BKR6     ADC    -MPTB       CHECK NUMBER OF SECTORS
06413  M00S04981.1ms     +++|          PJN    BKR7        IF NUMBER OF SECTORS .GT. BUFFER SIZE
06414  M00S04982.1ms     +++|          LDN    0           POSITION TO FIRST SECTOR
06415  M00S04983.1ms     +++| BKR7     STD    T7          SET SECTOR
06416  M00S04984.1ms     +++|          STM    BKRA
06417  M00S04985.1ms     +++|          LDD    T6          SAVE CURRENT TRACK
06418  M00S04986.1ms     +++|          STM    BKRB
06419  M00S04987.1ms     +++|          LMD    FS+1
06420  M00S04988.1ms     +++|          NJN    BKR8        IF NOT FIRST TRACK
06421  M00S04989.1ms     +++|          LDD    T7
06422  M00S04990.1ms     +++|          NJN    BKR8        IF NOT FIRST SECTOR
06423  M00S04991.1ms     +++|          LDN    FSMS        SET FIRST SECTOR
06424  M00S04992.1ms     +++|          STD    T7
06425  M00S04993.1ms     +++|          STM    BKRA
06426  M00S04994.1ms     +++|          STM    BBUF,BI
06427  M00S04995.1ms     +++|          AOD    BI
06428  M00S04996.1ms     +++|          UJN    BKR10       CONTINUE PROCESSING AT BOI
06429  M00S04997.1ms     +++|
06430  M00S04998.1ms     +++|*         SCAN TRACK AND SET END OF RECORD POSITIONS.
06431  M00S04999.1ms     +++|
06432  M00S05000.1ms     +++| BKR8     LDC    BFMS+DTSF   READ NEXT SECTOR HEADER WORDS
06433  M00S05001.1ms     +++|          RJM    RNS
06434  M00S05002.1ms     +++|          SHN    -6          CHECK WORD COUNT
06435  M00S05003.1ms     +++|          NJN    BKR10       IF FULL SECTOR
06436  M00S05004.1ms     +++|          LDD    T7          SET SECTOR
06437  M00S05005.1ms     +++|          STM    BBUF,BI
06438  M00S05006.1ms     +++|          LDM    BFMS        CHECK CONTROL BYTE
06439  M00S05007.1ms     +++|          NJN    BKR9        IF EOR
06440  M00S05008.1ms     +++|          LDM    BFMS+1      CHECK FOR EOI
06441  M00S05009.1ms     +++|          ZJN    BKR11       IF EOI ENCOUNTERED
06442  M00S05010.1ms     +++|          LDC    4000        SET EOF STATUS
06443  M00S05011.1ms     +++|          RAM    BBUF,BI
06444  M00S05012.1ms     +++| BKR9     AOD    BI          ADVANCE BACKSPACE INDEX
06445  M00S05013.1ms     +++| BKR10    LDD    T7          CHECK CURRENT POSITION
06446  M00S05014.1ms     +++|          LMD    FS+3
06447  M00S05015.1ms     +++|          NJN    BKR8        IF CURRENT POSITION NOT REACHED
06448  M00S05016.1ms     +++|          LDD    T6
06449  M00S05017.1ms     +++|          LMD    FS+2
06450  M00S05018.1ms     +++|          NJN    BKR8        IF CURRENT POSITION NOT REACHED
06451  M00S05019.1ms     +++|          LDM    RCRF
06452  M00S05020.1ms     +++|          SHN    21-11
06453  M00S05021.1ms     +++|          MJN    BKR11       IF NOT AT ORIGINAL POSITION
06454  M00S05022.1ms     +++|
06455  M00S05023.1ms     +++|*         IGNORE END OF RECORD IF CURRENT POSITION REACHED
06456  M00S05024.1ms     +++|
06457  M00S05025.1ms     +++|          LDD    T1          CHECK WORD COUNT OF SECTOR
06458  M00S05026.1ms     +++|          SHN    -6
06459  M00S05027.1ms     +++|          NJN    BKR11       IF NOT END OF RECORD
06460  M00S05028.1ms     +++|          SOD    BI          DECREMENT INDEX
06461  M00S05029.1ms     +++| BKR11    ENDMS              END MASS STORAGE OPERATION
06462  M00S05030.1ms     +++|          LDM    RCRF        SET POSITION CHANGED FLAG
06463  M00S05031.1ms     +++|          LPC    6777
06464  M00S05032.1ms     +++|          LMD    TH
06465  M00S05033.1ms     +++|          STM    RCRF
06466  M00S05034.1ms     +++|          LDD    BI
06467  M00S05035.1ms     +++|          ZJN    BKR12       IF BACKSPACE INDEX EMPTY
06468  M00S05036.1ms     +++|          LJM    BKR1        RETURN NEXT RECORD LOCATION
06469  M00S05037.1ms     +++|
06470  M00S05038.1ms     +++| BKR12    LDD    FS+3        COUNT PRUS TRANSFERRED
06471  M00S05039.1ms     +++|          NJN    BKR13       IF NOT NEXT TRACK
06472  M00S05040.1ms     +++|          LDM    SLM         SECTORS PER TRACK
06473  M00S05041.1ms     +++| BKR13    SBM    BKRA
06474  M00S05042.1ms     +++|          RAD    PC
06475  M00S05043.1ms     +++|          LJM    BKR5        CONTINUE BACKSPACE
06476  M00S05044.1ms     +++| BOT      SPACE  4,15
06477  M00S05045.1ms     +++|**        BOT - BACK ONE TRACK.
06478  M00S05046.1ms     +++|*
06479  M00S05047.1ms     +++|*         ENTRY  (T6) = CURRENT TRACK.
06480  M00S05048.1ms     +++|*                (FS+1) = FIRST TRACK.
06481  M00S05049.1ms     +++|*
06482  M00S05050.1ms     +++|*         EXIT   (T6) = PREVIOUS TRACK.
06483  M00S05051.1ms     +++|*                (A) = SECTOR LIMIT FOR TRACK.
06484  M00S05052.1ms     +++|*
06485  M00S05053.1ms     +++|*         USES   T3.
06486  M00S05054.1ms     +++|*
06487  M00S05055.1ms     +++|*         CALLS  SNT.
06488  M00S05056.1ms     +++|
06489  M00S05057.1ms     +++|
Line S00417 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06490  M01S00417.242l642 +++| BOT1     LMD    T3          SET NEXT TRACK
06491  M01S00418.242l642 +++| BOT2     STD    T6
06492  M01S00419.242l642 +++|          RJM    SNT
06493  M01S00420.242l642 +++|          LMD    T3
06494  M01S00421.242l642 +++|          NJN    BOT1        IF NEXT TRACK NOT EQUAL TO CURRENT TRACK
06495  M01S00422.242l642 +++|          LDM    SLM
06496  M01S00423.242l642 +++|
06497  M00S05058.1ms     +++| BOT      SUBR               ENTRY/EXIT
06498  M00S05059.1ms     +++|          LDD    T6          SAVE CURRENT TRACK
06499  M00S05060.1ms     +++|          STD    T3
06500  M00S05061.1ms     +++|          LDD    FS+1        SET FIRST TRACK
Line S05062 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06501  M01S05062.242l642 ---|          LMD    T3
06502  M01S05063.242l642 ---| BOT1     LMD    T3          SET NEXT TRACK
06503  M01S05064.242l642 ---|          STD    T6
06504  M01S05065.242l642 ---|          RJM    SNT
06505  M01S05066.242l642 ---|          LMD    T3
06506  M01S05067.242l642 ---|          NJN    BOT1        IF NEXT TRACK NOT EQUAL TO CURRENT TRACK
06507  M01S05068.242l642 ---|          LDM    SLM
06508  M01S05069.242l642 ---|          UJN    BOTX        RETURN
Line S00424 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06509  M01S00424.242l642 +++|          UJN    BOT2        ENTER LOOP
06510  M00S05070.1ms     +++| CET      SPACE  4,10
06511  M00S05071.1ms     +++|**        CET - CHECK ERROR TERMINATION.
06512  M00S05072.1ms     +++|*
06513  M00S05073.1ms     +++|*         EXIT   TO *ERR* IF ERROR FLAG TERMINATION.
06514  M00S05074.1ms     +++|*
06515  M00S05075.1ms     +++|*         USES   CM - CM+4.
06516  M00S05076.1ms     +++|
06517  M00S05077.1ms     +++|
06518  M00S05078.1ms     +++| CET      SUBR               ENTRY/EXIT
06519  M00S05079.1ms     +++|          LDD    CP          CHECK ERROR FLAG
06520  M00S05080.1ms     +++|          ADN    STSW
06521  M00S05081.1ms     +++|          CRD    CM
06522  M00S05082.1ms     +++|          LDD    CM+1
06523  M00S05083.1ms     +++|          SBN    SPET
06524  M00S05084.1ms     +++|          MJN    CETX        IF NOT SPECIAL ERROR
06525  M00S05085.1ms     +++|          ERROR  EFT         *ERROR FLAG TERMINATION*
06526  M00S05086.1ms     +++| CRT      SPACE  4,10
06527  M00S05087.1ms     +++|**        CRT - CHECK RECALL TIME.
06528  M00S05088.1ms     +++|*
06529  M00S05089.1ms     +++|*         ENTRY  FIRST CALL STARTS TIMING.  ELAPSED TIME OF EACH
06530  M00S05090.1ms     +++|*                INTERVAL IS KEPT TO MINIMIZE CLOCK OVERFLOW.
06531  M00S05091.1ms     +++|*
06532  M00S05092.1ms     +++|*         EXIT   TO *SRC* IF PROCESSING TIME EXCEEDED.
06533  M00S05093.1ms     +++|*
06534  M00S05094.1ms     +++|*         USES   CM - CM+4.
06535  M00S05095.1ms     +++|
06536  M00S05096.1ms     +++|
06537  M00S05097.1ms     +++| CRT2     AOM    CRTA        INDICATE TIME ACCUMULATION STARTED
06538  M00S05098.1ms     +++| CRT3     LDD    CM+4        SAVE CURRENT CLOCK VALUE
06539  M00S05099.1ms     +++|          STM    CRTB
06540  M00S05100.1ms     +++|
06541  M00S05101.1ms     +++| CRT      SUBR               ENTRY/EXIT
06542  M00S05102.1ms     +++|          LDC    RTCL        READ REAL TIME CLOCK
06543  M00S05103.1ms     +++|          CRD    CM
06544  M00S05104.1ms     +++|          LDC    0           ELAPSED TIME
06545  M00S05105.1ms     +++| CRTA     EQU    *-1
06546  M00S05106.1ms     +++|          ZJN    CRT2        IF FIRST CALL
06547  M00S05107.1ms     +++|          LDD    CM+4        CALCULATE TIME SINCE LAST CALL
06548  M00S05108.1ms     +++|          SBM    CRTB
06549  M00S05109.1ms     +++|          PJN    CRT1        IF NO OVERFLOW
06550  M00S05110.1ms     +++|          ADC    10000
06551  M00S05111.1ms     +++| CRT1     RAM    CRTA        ACCUMULATED PROCESSING TIME
06552  M00S05112.1ms     +++|          ADC    -RSPT
06553  M00S05113.1ms     +++|          MJN    CRT3        IF TIME NOT EXCEEDED
06554  M00S05114.1ms     +++|          LJM    SRC         SET RECALL CONDITIONS
06555  M00S05115.1ms     +++|
06556  M00S05116.1ms     +++|
06557  M00S05117.1ms     +++| CRTB     CON    0           PREVIOUS CLOCK VALUE
06558  M00S05118.1ms     +++| DSC      SPACE  4,10
06559  M00S05119.1ms     +++|**        DSC - DECREMENT SKIP COUNT.
06560  M00S05120.1ms     +++|*
06561  M00S05121.1ms     +++|*         EXIT   (A) = 0, IF SKIP COMPLETE.
06562  M00S05122.1ms     +++|*                SKIP COUNT IN (IR+2 - IR+3) DECREMENTED BY ONE.
06563  M00S05123.1ms     +++|*
06564  M00S05124.1ms     +++|*         USES   T0.
06565  M00S05125.1ms     +++|
06566  M00S05126.1ms     +++|
06567  M00S05127.1ms     +++| DSC      SUBR               ENTRY/EXIT
06568  M00S05128.1ms     +++|          LDD    IR+3        GET SKIP COUNT
06569  M00S05129.1ms     +++|          SCN    77
06570  M00S05130.1ms     +++|          STD    T0
06571  M00S05131.1ms     +++|          SHN    6
06572  M00S05132.1ms     +++|          LMD    IR+2
06573  M00S05133.1ms     +++|          SHN    6
06574  M00S05134.1ms     +++|          SBN    1
06575  M00S05135.1ms     +++|          ZJN    DSCX        IF SKIP COMPLETE
06576  M00S05136.1ms     +++|          SHN    14          RESET SKIP COUNT
06577  M00S05137.1ms     +++|          STD    IR+2
06578  M00S05138.1ms     +++|          SHN    -6
06579  M00S05139.1ms     +++|          SCN    77
06580  M00S05140.1ms     +++|          LMD    T0
06581  M00S05141.1ms     +++|          LMD    IR+3
06582  M00S05142.1ms     +++|          STD    IR+3
06583  M00S05143.1ms     +++|          LDN    1           INDICATE SKIP NOT COMPLETE
06584  M00S05144.1ms     +++|          UJN    DSCX        RETURN
06585  M00S05145.1ms     +++| LRI      SPACE  4,15
06586  M00S05146.1ms     +++|**        LRI - LOAD RANDOM INDEX.
06587  M00S05147.1ms     +++|*
06588  M00S05148.1ms     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
06589  M00S05149.1ms     +++|*
06590  M00S05150.1ms     +++|*         EXIT   (FS - FS+4) UPDATED.
06591  M00S05151.1ms     +++|*                (PC) = ACCUMULATED PRU COUNT TRANSFERRED.
Line S00425 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06592  M01S00425.242l642 +++|*                TO *CDA*, IF MASS STORAGE ERROR.
06593  M00S05152.1ms     +++|*
06594  M00S05153.1ms     +++|*         USES   PC, T1, T2, T6, T7, CM - CM+4, LM - LM+1, IN - IN+1.
06595  M00S05154.1ms     +++|*
Line S05155 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06596  M01S05155.ns22000 ---|*         CALLS  BKR, DDT, MSR, RNS, SEI.
Line S00186 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06597  M02S00186.242l642 ---|*         CALLS  BKR, DDT, MSR, RNS, SEI, VAL.
Line S00426 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06598  M01S00426.242l642 +++|*         CALLS  BKR, DDT, MSR, RNS, SEI, SMS, VAL.
06599  M00S05156.1ms     +++|*
Line S05157 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06600  M01S05157.ns22000 ---|*         MACROS CFET, ENDMS, ERROR, NFA.
Line S00187 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06601  M01S00187.ns22000 +++|*         MACROS CFET, ENDMS, ERROR, NFA, SFA.
06602  M00S05158.1ms     +++|
06603  M00S05159.1ms     +++|
06604  M00S05160.1ms     +++| LRI      SUBR               ENTRY/EXIT
06605  M00S05161.1ms     +++|          CFET   7           READ (FET+7)
06606  M00S05162.1ms     +++|          CRD    CM
06607  M00S05163.1ms     +++|          LDD    CM+3        CHECK INDEX LENGTH
06608  M00S05164.1ms     +++|          SCN    77
06609  M00S05165.1ms     +++|          SHN    6
06610  M00S05166.1ms     +++|          LMD    CM+2
06611  M00S05167.1ms     +++|          ZJN    LRIX        IF INDEX LENGTH = 0
06612  M00S05168.1ms     +++|          SHN    6
06613  M00S05169.1ms     +++|          STD    LM+1
06614  M00S05170.1ms     +++|          SHN    -14
06615  M00S05171.1ms     +++|          LPN    37
06616  M00S05172.1ms     +++|          STD    LM
06617  M00S05173.1ms     +++|          LDD    CM+3        CHECK FWA
06618  M00S05174.1ms     +++|          LPN    37
06619  M00S05175.1ms     +++|          STD    IN
06620  M00S05176.1ms     +++|          SHN    14
06621  M00S05177.1ms     +++|          LMD    CM+4
06622  M00S05178.1ms     +++|          STD    IN+1
06623  M00S05179.1ms     +++|          SBN    2
06624  M00S05180.1ms     +++|          PJN    LRI2        IF INDEX ADDRESS .GE. 2
06625  M00S05181.1ms     +++| LRI1     ERROR  FPE         *FET PARAMETER ERROR*
06626  M00S05182.1ms     +++|
06627  M00S05183.1ms     +++| LRI2     ADN    2
06628  M00S05184.1ms     +++|          SHN    6
06629  M00S05185.1ms     +++|          ADD    LM
06630  M00S05186.1ms     +++|          SHN    14
06631  M00S05187.1ms     +++|          ADD    LM+1
06632  M00S05188.1ms     +++|          SHN    -6
06633  M00S05189.1ms     +++|          SBD    FL
06634  M00S05190.1ms     +++|          PJN    LRI1        IF INDEX BUFFER LWA+1 .GE. FL
06635  M00S05191.1ms     +++|          LDM    RCRF
06636  M00S05192.1ms     +++|          SHN    21-6
06637  M00S05193.1ms     +++|          MJN    LRI6        IF CONTINUATION OF BACKSPACE
06638  M00S05194.1ms     +++|          LDN    ZERL
06639  M00S05195.1ms     +++|          CRD    CM
06640  M00S05196.1ms     +++|          LDN    0
06641  M00S05197.1ms     +++|          STD    T1
06642  M00S05198.1ms     +++|          STD    T2
06643  M00S05199.1ms     +++|
06644  M00S05200.1ms     +++|*         ZERO INDEX AREA.
06645  M00S05201.1ms     +++|
06646  M00S05202.1ms     +++| LRI3     LDD    IN          CLEAR INDEX AREA
06647  M00S05203.1ms     +++|          ADD    T1
06648  M00S05204.1ms     +++|          SHN    6
06649  M00S05205.1ms     +++|          ADD    RA
06650  M00S05206.1ms     +++|          SHN    6
06651  M00S05207.1ms     +++|          ADD    IN+1
06652  M00S05208.1ms     +++|          ADD    T2
06653  M00S05209.1ms     +++|          CWD    CM
06654  M00S05210.1ms     +++|          AOD    T2
06655  M00S05211.1ms     +++|          SHN    -14
06656  M00S05212.1ms     +++|          RAD    T1
06657  M00S05213.1ms     +++|          LMD    LM
06658  M00S05214.1ms     +++|          NJN    LRI3        IF NOT END OF INDEX AREA
06659  M00S05215.1ms     +++|          LDD    T2
06660  M00S05216.1ms     +++|          LMD    LM+1
06661  M00S05217.1ms     +++|          NJN    LRI3        IF NOT END OF INDEX AREA
06662  M00S05218.1ms     +++|          LDD    T6          CHECK TRACK
06663  M00S05219.1ms     +++|          NJN    LRI5        IF FILE USED
06664  M00S05220.1ms     +++| LRI4     LJM    LRIX        RETURN
06665  M00S05221.1ms     +++|
06666  M00S05222.1ms     +++| LRI5     RJM    SEI         SKIP FROM CURRENT POSITION TO EOI
06667  M00S05223.1ms     +++|          LDD    T6
06668  M00S05224.1ms     +++|          LMD    FS+1
06669  M00S05225.1ms     +++| LRI6     NJN    LRI7        IF MORE THAN ONE TRACK ON FILE
06670  M00S05226.1ms     +++|          LDD    T7
06671  M00S05227.1ms     +++|          LMN    FSMS
06672  M00S05228.1ms     +++|          ZJN    LRI4        IF FILE CONTAINS ONLY AN EOI
Line S05229 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06673  M01S05229.ns22000 ---| LRI7     LDD    T7          INITIALIZE BACKSPACE SECTOR
Line S00188 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06674  M01S00188.ns22000 +++| LRI7     LDN    0           CHECK READ SECURITY
06675  M01S00189.ns22000 +++|          RJM    VAL         VALIDATE FILE ACCESS LEVEL
06676  M01S00190.ns22000 +++|          LDD    T7          INITIALIZE BACKSPACE SECTOR
06677  M00S05230.1ms     +++|          STM    BKRA
06678  M00S05231.1ms     +++|          LDD    T6          INITIALIZE BACKSPACE TRACK
06679  M00S05232.1ms     +++|          STM    BKRB
Line S00427 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06680  M01S00427.242l642 +++|          RJM    SMS         LOAD MASS STORAGE DRIVER
06681  M00S05233.1ms     +++|          RJM    BKR         BACKSPACE RECORD
06682  M00S05234.1ms     +++|          LDD    PC          CHARGE FOR PRUS TRANSFERRED
06683  M00S05235.1ms     +++|          SHN    IMPT
06684  M00S05236.1ms     +++|          RAM    CFNH+1
06685  M00S05237.1ms     +++|          SHN    -14
06686  M00S05238.1ms     +++|          RAM    CFNH
06687  M00S05239.1ms     +++|          LDN    0           CLEAR PRU COUNT
06688  M00S05240.1ms     +++|          STD    PC
Line S05241 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06689  M01S05241.ns22000 ---|          LDD    T5          CHECK IF DEVICE BUFFERED IN ECS
06690  M01S05242.ns22000 ---|          ADM    ESTS
Line S00191 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06691  M01S00191.ns22000 +++|          SFA    EST,T5      CHECK IF DEVICE BUFFERED IN ECS
06692  M01S00192.ns22000 +++|          ADK    EQDE
06693  M00S05243.1ms     +++|          CRD    CM
06694  M00S05244.1ms     +++|          LDD    CM+4
06695  M00S05245.1ms     +++|          SHN    3
06696  M00S05246.1ms     +++|          ADN    DILL
06697  M00S05247.1ms     +++|          CRD    CM
06698  M00S05248.1ms     +++|          LDD    CM+3
06699  M00S05249.1ms     +++|          SHN    21-13
06700  M00S05250.1ms     +++|          PJN    LRI8        IF DEVICE NOT BUFFERED IN ECS
06701  M00S05251.1ms     +++|          LJM    LRI11       PROCESS DIRECT TRANSFER
06702  M00S05252.1ms     +++|
Line S05253 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06703  M01S05253.242l642 ---|*         LOAD RANDOM INDEX.
Line S00428 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06704  M01S00428.242l642 +++|*         READ RANDOM INDEX AND STORE INTO BUFFER.
06705  M00S05254.1ms     +++|
06706  M00S05255.1ms     +++| LRI8     LDC    BFMS        READ NEXT SECTOR
06707  M00S05256.1ms     +++|          RJM    RNS
06708  M00S05257.1ms     +++|          ZJN    LRI9        IF ZERO LENGTH SECTOR
06709  M00S05258.1ms     +++|          AOD    PC          ADVANCE SECTOR COUNT
06710  M00S05259.1ms     +++|          LDD    LM
06711  M00S05260.1ms     +++|          SHN    14
06712  M00S05261.1ms     +++|          ADD    LM+1
06713  M00S05262.1ms     +++|          SBD    T1
06714  M00S05263.1ms     +++|          PJN    LRI10       IF ROOM FOR SECTOR
06715  M00S05264.1ms     +++|          AOM    LRIB        SET INDEX TOO LARGE FLAG
06716  M00S05265.1ms     +++|          LDD    LM+1
06717  M00S05266.1ms     +++|          STD    T1
06718  M00S05267.1ms     +++|          NJN    LRI10       IF ROOM LEFT IN INDEX AREA
06719  M00S05268.1ms     +++| LRI9     LJM    LRI14       COMPLETE PROCESSING
06720  M00S05269.1ms     +++|
06721  M00S05270.1ms     +++| LRI10    LDD    IN          STORE SECTOR
06722  M00S05271.1ms     +++|          SHN    6
06723  M00S05272.1ms     +++|          ADD    RA
06724  M00S05273.1ms     +++|          SHN    6
06725  M00S05274.1ms     +++|          ADD    IN+1
06726  M00S05275.1ms     +++|          CWM    BFMS+2,T1
06727  M00S05276.1ms     +++|          LDD    T1          ADVANCE ADDRESS
06728  M00S05277.1ms     +++|          RAD    IN+1
06729  M00S05278.1ms     +++|          SHN    -14
06730  M00S05279.1ms     +++|          RAD    IN
06731  M00S05280.1ms     +++|          LDD    LM          DECREMENT LENGTH
06732  M00S05281.1ms     +++|          SHN    14
06733  M00S05282.1ms     +++|          ADD    LM+1
06734  M00S05283.1ms     +++|          SBD    T1
06735  M00S05284.1ms     +++|          STD    LM+1
06736  M00S05285.1ms     +++|          SHN    -14
06737  M00S05286.1ms     +++|          STD    LM
06738  M00S05287.1ms     +++|          LDD    T1
06739  M00S05288.1ms     +++|          SHN    -6
06740  M00S05289.1ms     +++| LRIA     ZJN    LRI9        IF EOR
06741  M00S05290.1ms     +++|*         UJN    LRI9        (AFTER MS ERROR)
06742  M00S05291.1ms     +++|          LJM    LRI8        LOOP TO EOR
06743  M00S05292.1ms     +++|
06744  M00S05293.1ms     +++|*         DIRECT TRANSFER RANDOM INDEX FOR ECS BUFFERED DEVICE.
06745  M00S05294.1ms     +++|
06746  M00S05295.1ms     +++| LRI11    LDD    IN          SET FWA INDEX AREA
06747  M00S05296.1ms     +++|          STD    CM+3
06748  M00S05297.1ms     +++|          SHN    14
06749  M00S05298.1ms     +++|          ADD    IN+1
06750  M00S05299.1ms     +++|          STD    CM+4
06751  M00S05300.1ms     +++|          RAD    LM+1        SET LWA INDEX AREA
06752  M00S05301.1ms     +++|          SHN    -14
06753  M00S05302.1ms     +++|          RAD    LM
06754  M00S05303.1ms     +++|          SHN    14
06755  M00S05304.1ms     +++|          ADD    LM+1
06756  M00S05305.1ms     +++|          SHN    14
06757  M00S05306.1ms     +++|          STD    CM+2
06758  M00S05307.1ms     +++|          SHN    -14
06759  M00S05308.1ms     +++|          SHN    6
06760  M00S05309.1ms     +++|          RAD    CM+3
06761  M00S05310.1ms     +++|          LDC    RDDS*10000+7777  DIRECT READ TO EOR
06762  M00S05311.1ms     +++|          RJM    DDT
06763  M00S05312.1ms     +++|          PJN    LRI13       IF NO ERROR
Line S05313 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
06764  M01S05313.251l664 ---|          SHN    21-10
Line S00001 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
06765  M01S00001.251l664 +++|          SHN    21-20
Line S05314 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06766  M01S05314.242l642 ---|          PJN    LRI12       IF TRANSFER NOT TRUNCATED
06767  M01S05315.242l642 ---|          AOM    LRIB        SET INDEX TOO LARGE FLAG
06768  M01S05316.242l642 ---|          UJN    LRI13       SET PRU COUNT
06769  M01S05317.242l642 ---|
06770  M01S05318.242l642 ---| LRI12    RJM    MSR         PROCESS MASS STORAGE ERROR
Line S00429 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06771  M01S00429.242l642 +++|          MJN    LRI12       IF TRANSFER TRUNCATED
06772  M01S00430.242l642 +++|          RJM    CDA         CHECK DEVICE
06773  M01S00431.242l642 +++|
06774  M01S00432.242l642 +++| LRI12    AOM    LRIB        SET INDEX TOO LARGE FLAG
06775  M00S05319.1ms     +++| LRI13    LDD    T4          SET PRU TRANSFERRED COUNT
06776  M00S05320.1ms     +++|          STD    PC
Line S00433 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06777  M01S00433.242l642 +++|
06778  M01S00434.242l642 +++|*         COMPLETE PROCESSING.
06779  M00S05321.1ms     +++|
06780  M00S05322.1ms     +++| LRI14    ENDMS              END MASS STORAGE OPERATION
06781  M00S05323.1ms     +++|          LDD    PC          CHECK SECTOR COUNT
06782  M00S05324.1ms     +++|          NJN    LRI16       IF INDEX TRANSFERRED
06783  M00S05325.1ms     +++|          LDD    FC          CHECK FOR REWIND REQUEST
06784  M00S05326.1ms     +++|          SHN    21-13
06785  M00S05327.1ms     +++|          MJN    LRI15       IF REWIND REQUESTED
06786  M00S05328.1ms     +++|          NFA    FA,R        RETAIN ORIGINAL POSITION AND STATUS
06787  M00S05329.1ms     +++|          ADN    FSTL
06788  M00S05330.1ms     +++|          CRD    FS
06789  M00S05331.1ms     +++|          LDD    FS+2        RESET CURRENT POSITION
06790  M00S05332.1ms     +++|          STD    T6
06791  M00S05333.1ms     +++|          LDD    FS+3
06792  M00S05334.1ms     +++|          STD    T7
06793  M00S05335.1ms     +++|
06794  M00S05336.1ms     +++|*         CLEAR RANDOM FILE BIT.
06795  M00S05337.1ms     +++|
06796  M00S05338.1ms     +++| LRI15    CFET   1           READ FIRST
06797  M00S05339.1ms     +++|          CRD    CM
06798  M00S05340.1ms     +++|          LDD    CM+1        CLEAR RANDOM BIT
06799  M00S05341.1ms     +++|          LPC    3777
06800  M00S05342.1ms     +++|          STD    CM+1
06801  M00S05343.1ms     +++|          CFET   1           STORE FIRST
06802  M00S05344.1ms     +++|          CWD    CM
06803  M00S05345.1ms     +++|          LJM    LRIX        RETURN
06804  M00S05346.1ms     +++|
06805  M00S05347.1ms     +++|*         PROCESS INDEX TOO LARGE.
06806  M00S05348.1ms     +++|
06807  M00S05349.1ms     +++| LRI16    LDM    BFMS+1      SET FET STATUS
06808  M00S05350.1ms     +++|          SHN    2-6
06809  M00S05351.1ms     +++|          LPN    4
06810  M00S05352.1ms     +++|          LMN    4
06811  M00S05353.1ms     +++|          STD    FS+4
06812  M00S05354.1ms     +++| LRIB     LDN    0
06813  M00S05355.1ms     +++|*         LDN    1           (INDEX TRUNCATED)
06814  M00S05356.1ms     +++|          ZJN    LRI18       IF INDEX NOT TRUNCATED
06815  M00S05357.1ms     +++|          LDM    ERRA        CHECK FOR MASS STORAGE ERROR
06816  M00S05358.1ms     +++|          NJN    LRI18       IF MASS STORAGE ERROR
06817  M00S05359.1ms     +++|          LDD    FO          CHECK ERROR PROCESSING SELECTED
06818  M00S05360.1ms     +++|          SHN    21-10
06819  M00S05361.1ms     +++|          MJN    LRI17       IF ERROR PROCESSING SELECTED
06820  M00S05362.1ms     +++|          ERROR  ITL         *INDEX TOO LARGE ON OPEN*
06821  M00S05363.1ms     +++|
06822  M00S05364.1ms     +++| LRI17    LDC    23S9        SET STATUS = 23B
06823  M00S05365.1ms     +++|          RAD    BS+4
06824  M00S05366.1ms     +++|          SHN    -14
06825  M00S05367.1ms     +++|          RAD    BS+3
06826  M00S05368.1ms     +++|          LDM    FETL        CHECK FET LENGTH
06827  M00S05369.1ms     +++|          SBN    2
06828  M00S05370.1ms     +++|          MJN    LRI18       IF NO DETAILED STATUS FIELD
06829  M00S05371.1ms     +++|          CFET   6           CLEAR DETAILED STATUS FIELD
06830  M00S05372.1ms     +++|          CRD    CM
06831  M00S05373.1ms     +++|          LDN    0
06832  M00S05374.1ms     +++|          STD    CM+3
06833  M00S05375.1ms     +++|          STD    CM+4
06834  M00S05376.1ms     +++|          CFET   6
06835  M00S05377.1ms     +++|          CWD    CM
06836  M00S05378.1ms     +++| LRI18    LJM    LRIX        RETURN
06837  M00S05379.1ms     +++|          SPACE  4,10
06838  M00S05380.1ms     +++|**        COMMON DECKS.
06839  M00S05381.1ms     +++|
06840  M00S05382.1ms     +++|
06841  M00S05383.1ms     +++| IRA$     EQU    1           SET INITIALIZATION
06842  M00S05384.1ms     +++|*CALL     COMPCRA
06843  M00S05385.1ms     +++|          LIST   X
06844  M00S05386.1ms     +++|*CALL     COMPDDT
06845  M00S05387.1ms     +++|          LIST   -X
Line S00435 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06846  M01S00435.242l642 +++|
06847  M00S05388.1ms     +++| MSR$     EQU    1           DEFINE ERROR PROCESSING
Line S05389 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06848  M01S05389.242l642 ---| EOR$     EQU    1           DEFINE POSITION ON EOR
06849  M00S05390.1ms     +++|*CALL     COMPRNS
06850  M00S05391.1ms     +++|*CALL     COMPSEI
06851  M00S05392.1ms     +++|*CALL     COMPSNT
06852  M00S05393.1ms     +++|*CALL     COMPSRA
06853  M00S05394.1ms     +++|          SPACE  4,10
06854  M00S05395.1ms     +++| BBUF     BSS    0           BACKSPACE BUFFER
06855  M00S05396.1ms     +++|
06856  M00S05397.1ms     +++|          ERRNG  BFMS-BBUF-MPTB  CHECK FOR BACKSPACE BUFFER OVERFLOW
06857  M00S05398.1ms     +++|
06858  M00S05399.1ms     +++|          QUAL
06859  M00S05400.1ms     +++| EPSO     EQU    *+5         END OF POSITION OVERLAY
06860  M00S05401.1ms     +++| .ERPO    MAX    EWTO,ERDO,EPSO  CALCULATE MAXIMUM OVERLAY SIZE
06861  M00S05402.1ms     +++| ERPO     EQU    .ERPO       ERROR PROCESSING OVERLAY ORIGIN
06862  M00S05403.1ms     +++|          QUAL   *
Line S00436 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06863  M01S00436.242l642 +++|          TITLE  RANDOM ACCESS PROCESSORS.
06864  M01S00437.242l642 +++| RRD      SPACE  4,15
06865  M01S00438.242l642 +++|**        RRD - PROCESS RANDOM READ.
06866  M01S00439.242l642 +++|*
06867  M01S00440.242l642 +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
06868  M01S00441.242l642 +++|*                (DP - DP+4) = (FET+6).
06869  M01S00442.242l642 +++|*                (FS - FS+4) = FST ENTRY.
06870  M01S00443.242l642 +++|*
06871  M01S00444.242l642 +++|*         EXIT   (FS - FS+4) = ADVANCED FST ENTRY.
06872  M01S00445.242l642 +++|*                (RI - RI+1) = RANDOM ADDRESS.
06873  M01S00446.242l642 +++|*                TO *SFP* TO COMPLETE PROCESSING.
06874  M01S00447.242l642 +++|*
06875  M01S00448.242l642 +++|*         ERROR  TO *ERR* IF RANDOM ADDRESS ERROR.
06876  M01S00449.242l642 +++|*
06877  M01S00450.242l642 +++|*         CALLS  CRA.
06878  M01S00451.242l642 +++|*
06879  M01S00452.242l642 +++|*         MACROS ERROR.
06880  M01S00453.242l642 +++|
06881  M01S00454.242l642 +++|
06882  M01S00455.242l642 +++| RRD2     LDD    FC
06883  M01S00456.242l642 +++|          LPC    1700
06884  M01S00457.242l642 +++|          ZJN    RRD3        IF READ
06885  M01S00458.242l642 +++|          LDD    FS+4        SET LAST OPERATION COMPLETE WRITE
06886  M01S00459.242l642 +++|          SCN    16
06887  M01S00460.242l642 +++|          LMN    6
06888  M01S00461.242l642 +++|          STD    FS+4
06889  M01S00462.242l642 +++| RRD3     LDD    DP+3        RESET RANDOM ADDRESS
06890  M01S00463.242l642 +++|          STD    RI
06891  M01S00464.242l642 +++|          LDD    DP+4
06892  M01S00465.242l642 +++|          STD    RI+1
06893  M01S00466.242l642 +++|          AOM    SFPA        INDICATE *RI* IS PRESET
06894  M01S00467.242l642 +++|          LJM    SFP         PROCESS EXIT
06895  M01S00468.242l642 +++|
06896  M01S00469.242l642 +++| RRD      BSS    0           ENTRY
06897  M01S00470.242l642 +++|          LDD    DP+3        SET RANDOM ADDRESS
06898  M01S00471.242l642 +++|          STD    RI
06899  M01S00472.242l642 +++|          LDD    DP+4
06900  M01S00473.242l642 +++|          STD    RI+1
06901  M01S00474.242l642 +++|          LDD    FS+2
06902  M01S00475.242l642 +++|          ZJN    RRD1        IF FILE NOT WRITTEN ON
06903  M01S00476.242l642 +++|          LDD    FS+1        SET FIRST TRACK
06904  M01S00477.242l642 +++|          STD    T6
06905  M01S00478.242l642 +++|          RJM    CRA         CONVERT RANDOM ADDRESS
06906  M01S00479.242l642 +++|          PJN    RRD2        IF SECTOR ON FILE
06907  M01S00480.242l642 +++| RRD1     ERROR  RAD         *RANDOM ADDRESS NOT ON FILE*
06908  M01S00481.242l642 +++| RWT      SPACE  4,20
06909  M01S00482.242l642 +++|**        RWT - PROCESS RANDOM WRITE.
06910  M01S00483.242l642 +++|*
06911  M01S00484.242l642 +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
06912  M01S00485.242l642 +++|*                (DP - DP+4) = (FET+6).
06913  M01S00486.242l642 +++|*                (FS - FS+4) = FST ENTRY.
06914  M01S00487.242l642 +++|*
06915  M01S00488.242l642 +++|*         EXIT   (FC) = UPDATED INTERNAL *CIO* FUNCTION CODE.
06916  M01S00489.242l642 +++|*                (RI - RI+1) = RANDOM ADDRESS.
06917  M01S00490.242l642 +++|*                TO *RRD* IF REWRITE OPERATION.
06918  M01S00491.242l642 +++|*                TO *SFP* IF RANDOM WRITE AT EOI.
06919  M01S00492.242l642 +++|*
06920  M01S00493.242l642 +++|*         USES   T2, T3, T6, CM - CM+4.
06921  M01S00494.242l642 +++|*
06922  M01S00495.242l642 +++|*         CALLS  SEI.
06923  M01S00496.242l642 +++|*
06924  M01S00497.242l642 +++|*         MACROS ERROR.
06925  M01S00498.242l642 +++|
06926  M01S00499.242l642 +++|
06927  M01S00500.242l642 +++| RWT      BSS    0           ENTRY
06928  M01S00501.242l642 +++|          LDD    FC
06929  M01S00502.242l642 +++|          SHN    21-12
06930  M01S00503.242l642 +++|          MJN    RRD         IF REWRITE FUNCTION
06931  M01S00504.242l642 +++|          LDD    DP+2        CHECK FOR REWRITE
06932  M01S00505.242l642 +++|          LPN    40
06933  M01S00506.242l642 +++|          ZJN    RWT1        IF NOT REWRITE IN PLACE
06934  M01S00507.242l642 +++|          LDC    2000        SET REWRITE FLAG IN FUNCTION CODE
06935  M01S00508.242l642 +++|          RAD    FC
06936  M01S00509.242l642 +++|          STM    ICFC
06937  M01S00510.242l642 +++|          UJN    RRD         CONVERT RANDOM ADDRESS
06938  M01S00511.242l642 +++|
06939  M01S00512.242l642 +++|*         RANDOM WRITE AT END OF INFORMATION.
06940  M01S00513.242l642 +++|
06941  M01S00514.242l642 +++| RWT1     LDD    DP+3        CHECK RETURN ADDRESS
06942  M01S00515.242l642 +++|          LPN    37
06943  M01S00516.242l642 +++|          STD    DP+3
06944  M01S00517.242l642 +++|          SHN    14
06945  M01S00518.242l642 +++|          LMD    DP+4
06946  M01S00519.242l642 +++|          SBN    2
06947  M01S00520.242l642 +++|          MJN    RWT2        IF .LT. 2
06948  M01S00521.242l642 +++|          ADN    2
06949  M01S00522.242l642 +++|          SHN    -6
06950  M01S00523.242l642 +++|          SBD    FL
06951  M01S00524.242l642 +++|          MJN    RWT3        IF .LT. FL
06952  M01S00525.242l642 +++| RWT2     ERROR  RWT         *INDEX ADDRESS OUT OF RANGE*
06953  M01S00526.242l642 +++|
06954  M01S00527.242l642 +++| RWT3     LDD    FS+2        CHECK CURRENT TRACK
06955  M01S00528.242l642 +++|          NJN    RWT4        IF FILE USED
06956  M01S00529.242l642 +++|          STD    T2          SET FIRST SECTOR
06957  M01S00530.242l642 +++|          LDN    FSMS
06958  M01S00531.242l642 +++|          STD    T3
06959  M01S00532.242l642 +++|          UJN    RWT5        UPDATE RESPONSE WORD
06960  M01S00533.242l642 +++|
06961  M01S00534.242l642 +++|*         SKIP FROM BEGINNING OF FILE TO EOI AND CALCULATE LENGTH.
06962  M01S00535.242l642 +++|
06963  M01S00536.242l642 +++| RWT4     LDD    FS+1
06964  M01S00537.242l642 +++|          STD    T6
06965  M01S00538.242l642 +++|          RJM    SEI         SEARCH FOR EOI
06966  M01S00539.242l642 +++| RWT5     LDD    DP+3        READ RESPONSE WORD
06967  M01S00540.242l642 +++|          SHN    6
06968  M01S00541.242l642 +++|          ADD    RA
06969  M01S00542.242l642 +++|          SHN    6
06970  M01S00543.242l642 +++|          ADD    DP+4
06971  M01S00544.242l642 +++|          CRD    CM
06972  M01S00545.242l642 +++|          LDD    T2          SET RANDOM INDEX
06973  M01S00546.242l642 +++|          STD    CM+3
06974  M01S00547.242l642 +++|          STD    RI
06975  M01S00548.242l642 +++|          LDD    T3
06976  M01S00549.242l642 +++|          STD    CM+4
06977  M01S00550.242l642 +++|          STD    RI+1
06978  M01S00551.242l642 +++|          LDD    DP+3        STORE RESPONSE WORD
06979  M01S00552.242l642 +++|          SHN    6
06980  M01S00553.242l642 +++|          ADD    RA
06981  M01S00554.242l642 +++|          SHN    6
06982  M01S00555.242l642 +++|          ADD    DP+4
06983  M01S00556.242l642 +++|          CWD    CM
06984  M01S00557.242l642 +++|          AOM    SFPA        INDICATE *RI* IS PRESET
06985  M01S00558.242l642 +++|          LJM    SFP         EXIT
06986  M00S05404.1ms     +++|          TITLE  POSITION MASS STORAGE PRESET.
06987  M00S05405.1ms     +++| PRS      SPACE  4,15
06988  M00S05406.1ms     +++|**        PRS - POSITION MASS STORAGE PRESET ROUTINE.
06989  M00S05407.1ms     +++|*
06990  M00S05408.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
06991  M00S05409.1ms     +++|*                (FS - FS+4) = FST ENTRY.
06992  M00S05410.1ms     +++|*
Line S05411 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06993  M01S05411.242l642 ---|*         EXIT   (T4 - T7) = MS PARAMETERS.
Line S00559 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06994  M01S00559.242l642 +++|*         EXIT   (T5) = EST ORDINAL.
06995  M01S00560.242l642 +++|*                (T6) = CURRENT TRACK.
06996  M01S00561.242l642 +++|*                (T7) = CURRENT SECTOR.
06997  M00S05412.1ms     +++|*                (BI) = 0.
06998  M00S05413.1ms     +++|*                (RI - RI+1) = 1.
Line S00038 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
06999  M01S00038.241l630 +++|*                TO *CFN* IF INCORRECT *CIO* FUNCTION CODE.
07000  M00S05414.1ms     +++|*
07001  M00S05415.1ms     +++|*         USES   T1, CM - CM+4.
07002  M00S05416.1ms     +++|*
Line S05417 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07003  M01S05417.241l630 ---|*         CALLS  HNG, IRA.
Line S00039 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07004  M01S00039.241l630 +++|*         CALLS  CHG, IRA.
07005  M00S05418.1ms     +++|
07006  M00S05419.1ms     +++|
07007  M00S05420.1ms     +++| PRS      BSS    0           ENTRY
07008  M00S05421.1ms     +++|          LDN    0           CLEAR BACKSPACE INDEX
07009  M00S05422.1ms     +++|          STD    BI
Line S05423 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07010  M01S05423.ns22000 ---|          LDD    FS          SET EQUIPMENT NUMBER
Line S00193 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07011  M01S00193.ns22000 +++|          LDD    FS          SET EST ORDINAL
Line S05424 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07012  M01S05424.ns22000 ---|          LPN    77
07013  M00S05425.1ms     +++|          STD    T5
Line S05426 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07014  M01S05426.242l642 ---|          LDD    FS+3        SET SECTOR
07015  M01S05427.242l642 ---|          STD    T7
07016  M00S05428.1ms     +++|          LDD    FS+2        SET TRACK
07017  M00S05429.1ms     +++|          STD    T6
07018  M00S05430.1ms     +++|          ZJN    PRS1        IF FILE NOT USED
07019  M00S05431.1ms     +++|          RJM    IRA         INITIALIZE RANDOM ACCESS
07020  M00S05432.1ms     +++|
07021  M00S05433.1ms     +++|*         IDENTIFY FUNCTION.
07022  M00S05434.1ms     +++|
Line S05435 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07023  M01S05435.242l642 ---| PRS1     LDN    0
Line S00562 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07024  M01S00562.242l642 +++| PRS1     LDD    FS+3        SET SECTOR
07025  M01S00563.242l642 +++|          STD    T7
07026  M01S00564.242l642 +++|          LDN    0
07027  M00S05436.1ms     +++|          STD    RI          PRESET RANDOM INDEX
Line S05437 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07028  M01S05437.242l642 ---|          LDN    1
Line S00565 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07029  M01S00565.242l642 +++|          LDN    FSMS
07030  M00S05438.1ms     +++|          STD    RI+1
07031  M00S05439.1ms     +++|          LDD    FC          SET FUNCTION INDEX
07032  M00S05440.1ms     +++|          SHN    -6
07033  M00S05441.1ms     +++|          LPN    17
07034  M00S05442.1ms     +++|          STD    T1
07035  M00S05443.1ms     +++|          SBN    TFPAL
07036  M00S05444.1ms     +++|          PJN    PRS2        IF FUNCTION NOT IN TABLE
07037  M00S05445.1ms     +++|          LDM    TFPA,T1     SET PROCESSING ADDRESS
07038  M00S05446.1ms     +++|          ZJN    PRS2        IF FUNCTION PROCESSOR NOT DEFINED
07039  M00S05447.1ms     +++|          STD    T1
07040  M00S05448.1ms     +++|          LJM    0,T1        JUMP TO PROCESSOR
07041  M00S05449.1ms     +++|
Line S05450 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07042  M01S05450.241l630 ---| PRS2     RJM    HNG         HANG PP
Line S00040 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07043  M01S00040.241l630 +++| PRS2     LDK    SWET        SET SYSTEM SOFTWARE ERROR
07044  M01S00041.241l630 +++|          RJM    CHG         CONDITIONALLY HANG PP
07045  M01S00042.241l630 +++|          LJM    CFN         COMPLETE FUNCTION
07046  M00S05451.1ms     +++|
07047  M00S05452.1ms     +++|
07048  M00S05453.1ms     +++| TFPA     INDEX              TABLE OF FUNCTION PROCESSOR ADDRESSES
07049  M00S05454.1ms     +++|
07050  M00S05455.1ms     +++| TFPAL1   MAX    /CIO/RDF,/CIO/WTF,/CIO/SKP,/CIO/OPE
07051  M00S05456.1ms     +++| TFPAL    EQU    TFPAL1+1    TABLE LENGTH
07052  M00S05457.1ms     +++|
07053  M00S05458.1ms     +++|          INDEX  /CIO/RDF,RRD  RANDOM READ
07054  M00S05459.1ms     +++|          INDEX  /CIO/WTF,RWT  RANDOM WRITE
07055  M00S05460.1ms     +++|          INDEX  /CIO/SKP,SKP  SKIP
07056  M00S05461.1ms     +++|          INDEX  /CIO/OPE,OPE  OPEN
07057  M00S05462.1ms     +++|          INDEX  TFPAL         END OF TABLE
Line S00566 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07058  M01S00566.242l642 +++| SMS      SPACE  4,10
07059  M01S00567.242l642 +++|**        SMS - SET MASS STORAGE DRIVER.
07060  M01S00568.242l642 +++|*
07061  M01S00569.242l642 +++|*         ENTRY  (T5) = EQUIPMENT ORDINAL.
07062  M01S00570.242l642 +++|*                (FS+1) = FIRST TRACK OF LOCAL FILE.
07063  M01S00571.242l642 +++|*
07064  M01S00572.242l642 +++|*         EXIT   DRIVER LOADED.
07065  M01S00573.242l642 +++|*                SYSTEM ACCESS SET IF FILE IS SYSTEM FILE.
07066  M01S00574.242l642 +++|*
07067  M01S00575.242l642 +++|*         USES   CM - CM+4.
07068  M01S00576.242l642 +++|*
07069  M01S00577.242l642 +++|*         MACROS SETMS.
07070  M01S00578.242l642 +++|
07071  M01S00579.242l642 +++|
07072  M01S00580.242l642 +++| SMS1     SETMS  IO
07073  M01S00581.242l642 +++|
07074  M01S00582.242l642 +++| SMS      SUBR
07075  M01S00583.242l642 +++|          SFA    EST,T5      CHECK FOR SYSTEM DEVICE
07076  M01S00584.242l642 +++|          CRD    CM
07077  M01S00585.242l642 +++|          LDD    CM
07078  M01S00586.242l642 +++|          SHN    21-12
07079  M01S00587.242l642 +++|          PJN    SMS1        IF NOT SYSTEM DEVICE
07080  M01S00588.242l642 +++|          LDN    FNTP        READ FNT POINTER
07081  M01S00589.242l642 +++|          CRD    CM
07082  M01S00590.242l642 +++|          LDD    CM
07083  M01S00591.242l642 +++|          SHN    14
07084  M01S00592.242l642 +++|          ADD    CM+1
07085  M01S00593.242l642 +++|          ERRNZ  SYFO        CHECK SYSTEM FILE POSITION IN FNT
07086  M01S00594.242l642 +++|          ADK    FSTG
07087  M01S00595.242l642 +++|          CRD    CM
07088  M01S00596.242l642 +++|          LDD    CM+1
07089  M01S00597.242l642 +++|          LMD    FS+1
07090  M01S00598.242l642 +++|          NJN    SMS1        IF NOT SYSTEM FILE
07091  M01S00599.242l642 +++|
07092  M01S00600.242l642 +++|*         *CIO* IS USED TO ACCESS THE SYSTEM FILE FOR THE LOADER, CCL,
07093  M01S00601.242l642 +++|*         ETC. THE READSYS OPTION CAUSES THE DRIVER TO SELECT THE
07094  M01S00602.242l642 +++|*         SYSTEM DEVICE WITH THE LEAST ACTIVITY. IT ALSO CAUSES THE
07095  M01S00603.242l642 +++|*         DRIVER ERROR PROCESSOR TO AUTOMATICALLY TRY A DIFFERENT
07096  M01S00604.242l642 +++|*         SYSTEM DEVICE WHEN AN ERROR IS ENCOUNTERED.
07097  M01S00605.242l642 +++|
07098  M01S00606.242l642 +++|          SETMS  READSYS
07099  M01S00607.242l642 +++|          UJN    SMSX        RETURN
07100  M00S05463.1ms     +++|          SPACE  4,10
07101  M00S05464.1ms     +++|**        COMMON DECKS.
07102  M00S05465.1ms     +++|
07103  M00S05466.1ms     +++|
07104  M00S05467.1ms     +++|*CALL     COMPIRA
07105  M00S05468.1ms     +++|          SPACE  4,10
07106  M00S05469.1ms     +++|          OVERFLOW  MSDO
07107  M00S05470.1ms     +++| CMS      OVERLAY (CLOSE MASS STORAGE.),MSDO
07108  M00S05471.1ms     +++| CMS      SPACE  4,10
07109  M00S05472.1ms     +++|**        DIRECT LOCATION ASSIGNMENTS.
07110  M00S05473.1ms     +++|
07111  M00S05474.1ms     +++|
07112  M00S05475.1ms     +++| RI       EQU    36 - 37     RANDOM INDEX (2 LOCATIONS)
07113  M00S05476.1ms     +++| CMS      SPACE  4,10
07114  M00S05477.1ms     +++|          ORG    *+2
07115  M00S05478.1ms     +++| CLO      SPACE  4,15
07116  M00S05479.1ms     +++|**        CLO - CLOSE FILE.
07117  M00S05480.1ms     +++|*
07118  M00S05481.1ms     +++|*         ENTRY  (FO) = FET OPTIONS.
07119  M00S05482.1ms     +++|*                (BS - BS+4) = (FET+0).
07120  M00S05483.1ms     +++|*                (FS - FS+4) = FST ENTRY.
07121  M00S05484.1ms     +++|*
07122  M00S05485.1ms     +++|*         EXIT   TO *CLS*.
07123  M00S05486.1ms     +++|*
07124  M00S05487.1ms     +++|*         USES   T5, T6.
07125  M00S05488.1ms     +++|*
07126  M00S05489.1ms     +++|*         CALLS  DRI.
07127  M00S05490.1ms     +++|
07128  M00S05491.1ms     +++|
07129  M00S05492.1ms     +++| CLO      BSS    0           ENTRY
07130  M00S05493.1ms     +++|          LDD    BS+4        GET CLOSE FUNCTION
07131  M00S05494.1ms     +++|          SHN    -3
07132  M00S05495.1ms     +++|          LPN    7
07133  M00S05496.1ms     +++|          LMN    5
07134  M00S05497.1ms     +++|          ZJN    CLO2        IF REWIND
07135  M00S05498.1ms     +++|          LMN    3&5
07136  M00S05499.1ms     +++|          ZJN    CLO1        IF NO REWIND
07137  M00S05500.1ms     +++|          LDD    BS+4        SET RETURN/UNLOAD FLAG FOR *0DF*
07138  M00S05501.1ms     +++|          SHN    -2
07139  M00S05502.1ms     +++|          LPN    1
07140  M00S05503.1ms     +++|          LMN    1
07141  M00S05504.1ms     +++|          RAM    CLSA
07142  M00S05505.1ms     +++|          LDN    IMRU        CHARGE FOR RETURN/UNLOAD
07143  M00S05506.1ms     +++|          RAM    TACC+/CIO/CLO
07144  M00S05507.1ms     +++|          LDC    DRF&CFN     SET COMPLETION ADDRESS
07145  M00S05508.1ms     +++| CLO1     LMC    CFN
07146  M00S05509.1ms     +++|          STM    CLSB
07147  M00S05510.1ms     +++| CLO2     LDM    MSFF        GET MASS STORAGE FILE FLAG
07148  M00S05511.1ms     +++|          NJN    CLO3        IF NOT MASS STORAGE FILE
07149  M00S05512.1ms     +++|          LDD    FS+2
07150  M00S05513.1ms     +++|          ZJN    CLO3        IF FILE NOT USED
07151  M00S05514.1ms     +++|          STD    T6          SET CURRENT TRACK
Line S05515 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07152  M01S05515.ns22000 ---|          LDD    FS          SET EQUIPMENT NUMBER
Line S00194 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07153  M01S00194.ns22000 +++|          LDD    FS          SET EST ORDINAL
Line S05516 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07154  M01S05516.ns22000 ---|          LPN    77
07155  M00S05517.1ms     +++|          STD    T5
07156  M00S05518.1ms     +++|          LDD    FO          CHECK SPECIAL PROCESSING
07157  M00S05519.1ms     +++|          SHN    6
07158  M00S05520.1ms     +++|          PJN    CLO3        IF NOT RANDOM FILE
07159  M00S05521.1ms     +++|          LDM    FETL
07160  M00S05522.1ms     +++|          SBN    3
07161  M00S05523.1ms     +++|          MJN    CLO3        IF NO INDEX WORD IN FET
07162  M00S05524.1ms     +++|          LDD    FS+4        CHECK WRITE STATUS
07163  M00S05525.1ms     +++|          SHN    21-7
07164  M00S05526.1ms     +++|          PJN    CLO3        IF NOT WRITTEN SINCE LAST OPEN
07165  M00S05527.1ms     +++|          LDM    FACF        CHECK WRITE LOCKOUT SET
07166  M00S05528.1ms     +++|          LPN    1
07167  M00S05529.1ms     +++|          NJN    CLO3        IF WRITE LOCKOUT SET
07168  M00S05530.1ms     +++|          RJM    DRI         DUMP RANDOM INDEX
07169  M00S05531.1ms     +++| CLO3     LJM    CLS         COMPLETE CLOSE PROCESSING
07170  M00S05532.1ms     +++| DRI      SPACE  4,15
07171  M00S05533.1ms     +++|**        DRI - DUMP RANDOM INDEX.
07172  M00S05534.1ms     +++|*
07173  M00S05535.1ms     +++|*         EXIT   TO *WMS* OVERLAY IF RANDOM INDEX TO BE WRITTEN.
07174  M00S05536.1ms     +++|*                (FS+2) = EOI TRACK.
07175  M00S05537.1ms     +++|*                (FS+3) = EOI SECTOR.
07176  M00S05538.1ms     +++|*                (FS+4) = COMPLETE WRITE FST STATUS.
07177  M00S05539.1ms     +++|*                (IN - IN+1) = LWA+1 INDEX AREA.
07178  M00S05540.1ms     +++|*                (LM - LM+1) = LWA+2 INDEX AREA.
07179  M00S05541.1ms     +++|*                (OT - OT+1) = FWA INDEX AREA.
07180  M00S05542.1ms     +++|*
07181  M00S05543.1ms     +++|*         USES   T1, T2, CM - CM+4.
07182  M00S05544.1ms     +++|*
Line S05545 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07183  M01S05545.ns22000 ---|*         CALLS  EXR, SEI.
Line S00195 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07184  M01S00195.ns22000 +++|*         CALLS  EXR, SEI, VAL.
07185  M00S05546.1ms     +++|*
07186  M00S05547.1ms     +++|*         MACROS ERROR.
07187  M00S05548.1ms     +++|
07188  M00S05549.1ms     +++|
07189  M00S05550.1ms     +++| DRI      SUBR               ENTRY/EXIT
07190  M00S05551.1ms     +++|          CFET   7           READ (FET+7)
07191  M00S05552.1ms     +++|          CRD    CM
07192  M00S05553.1ms     +++|          LDD    CM+3        CHECK INDEX LENGTH
07193  M00S05554.1ms     +++|          SCN    77
07194  M00S05555.1ms     +++|          SHN    6
07195  M00S05556.1ms     +++|          LMD    CM+2
07196  M00S05557.1ms     +++|          ZJN    DRIX        IF INDEX LENGTH=0 - RETURN
07197  M00S05558.1ms     +++|          SHN    6
07198  M00S05559.1ms     +++|          STD    T2
07199  M00S05560.1ms     +++|          SHN    -14
07200  M00S05561.1ms     +++|          LPN    37
07201  M00S05562.1ms     +++|          STD    T1
07202  M00S05563.1ms     +++|          LDD    CM+3        OUT = FWA
07203  M00S05564.1ms     +++|          LPN    37
07204  M00S05565.1ms     +++|          STD    OT
07205  M00S05566.1ms     +++|          SHN    14
07206  M00S05567.1ms     +++|          LMD    CM+4
07207  M00S05568.1ms     +++|          STD    OT+1
07208  M00S05569.1ms     +++|          SBN    2
07209  M00S05570.1ms     +++|          PJN    DRI2        IF INDEX BUFFER ADDRESS .GE. 2
07210  M00S05571.1ms     +++| DRI1     ERROR  FPE         *FET PARAMETER ERROR*
07211  M00S05572.1ms     +++|
07212  M00S05573.1ms     +++| DRI2     ADN    2
07213  M00S05574.1ms     +++|          SHN    6
07214  M00S05575.1ms     +++|          ADD    T1
07215  M00S05576.1ms     +++|          SHN    14
07216  M00S05577.1ms     +++|          ADD    T2
07217  M00S05578.1ms     +++|          STD    IN+1        IN = FWA+LENGTH = LWA+1
07218  M00S05579.1ms     +++|          SHN    -6
07219  M00S05580.1ms     +++|          SBD    FL
07220  M00S05581.1ms     +++|          PJN    DRI1        IF INDEX BUFFER LWA+1 .GE. FL
07221  M00S05582.1ms     +++|          ADD    FL
07222  M00S05583.1ms     +++|          SHN    -6
07223  M00S05584.1ms     +++|          STD    IN
Line S00196 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07224  M01S00196.ns22000 +++|          LDN    1           CHECK WRITE SECURITY
07225  M01S00197.ns22000 +++|          RJM    VAL         VALIDATE FILE ACCESS LEVEL
07226  M00S05585.1ms     +++|          RJM    SEI         SEARCH FOR END OF INFORMATION
07227  M00S05586.1ms     +++|          LDD    T6          SET TRACK
07228  M00S05587.1ms     +++|          STD    FS+2
07229  M00S05588.1ms     +++|          LDD    T7          SET SECTOR
07230  M00S05589.1ms     +++|          STD    FS+3
07231  M00S05590.1ms     +++|          LDN    6           SET COMPLETE WRITE FST STATUS
07232  M00S05591.1ms     +++|          STD    FS+4
07233  M00S05592.1ms     +++|          LDD    IN          LIMIT = IN + 1
07234  M00S05593.1ms     +++|          SHN    14
07235  M00S05594.1ms     +++|          ADD    IN+1
07236  M00S05595.1ms     +++|          ADN    1
07237  M00S05596.1ms     +++|          STD    LM+1
07238  M00S05597.1ms     +++|          SHN    -14
07239  M00S05598.1ms     +++|          STD    LM
07240  M00S05599.1ms     +++|          LDC    1L4+WMS     SET WRITE OVERLAY NAME
07241  M00S05600.1ms     +++|          RJM    EXR         EXECUTE ROUTINE
07242  M00S05601.1ms     +++|          SPACE  4,10
07243  M00S05602.1ms     +++|**        COMMON DECKS.
07244  M00S05603.1ms     +++|
07245  M00S05604.1ms     +++|
07246  M00S05605.1ms     +++|*CALL     COMPSEI
07247  M00S05606.1ms     +++|          SPACE  4,10
07248  M00S05607.1ms     +++|          OVERFLOW  MSDO
Line S00198 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07249  M01S00198.ns22000 +++| OMS      OVERLAY (OVERWRITE MASS STORAGE.),MSDO
07250  M01S00199.ns22000 +++|          SPACE  4,10
07251  M01S00200.ns22000 +++|**        DIRECT LOCATION ASSIGNMENTS.
07252  M01S00201.ns22000 +++|
07253  M01S00202.ns22000 +++|
07254  M01S00203.ns22000 +++| NT       EQU    36          EOI/NEXT TRACK LINK
07255  M01S00204.ns22000 +++| TC       EQU    37          TRACK COUNT BEFORE PP RELEASE
07256  M01S00205.ns22000 +++|          SPACE  4,10
07257  M01S00206.ns22000 +++|          ORG    *+2
07258  M01S00207.ns22000 +++| OVW      SPACE  4,15
07259  M01S00208.ns22000 +++|**        OVW - OVERWRITE FILE.
07260  M01S00209.ns22000 +++|*
07261  M01S00210.ns22000 +++|*         ENTRY  (BS - BS+4) = (FET+0).
07262  M01S00211.ns22000 +++|*                (FA) = FNT ENTRY NFL RELATIVE ADDRESS.
07263  M01S00212.ns22000 +++|*                (FS - FS+4) = FST ENTRY.
07264  M01S00213.ns22000 +++|*                (PC) = 0.
07265  M01S00214.ns22000 +++|*
07266  M01S00215.ns22000 +++|*         EXIT   TO *COC* IF TO ENTER RECALL STACK.
07267  M01S00216.ns22000 +++|*                TO *DRF* IF TO DROP FILE AFTER OVERWRITE.
07268  M01S00217.ns22000 +++|*                TO *REW* IF TO REWIND FILE AFTER OVERWRITE.
Line S00608 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07269  M01S00608.242l642 +++|*                TO *CDA*, IF RECOVERABLE MASS STORAGE ERROR.
Line S00218 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07270  M01S00218.ns22000 +++|*
Line S00219 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07271  M02S00219.242l642 ---|*         CALLS  DCC, GNT, IBP, WDS, WEI.
Line S00609 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07272  M01S00609.242l642 +++|*         CALLS  GNT, IBP, WDS, WEI.
Line S00220 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07273  M01S00220.ns22000 +++|*
Line S00221 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07274  M02S00221.242l642 ---|*         MACROS SETMS.
Line S00610 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07275  M01S00610.242l642 +++|*         MACROS ENDMS, SETMS.
Line S00222 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07276  M01S00222.ns22000 +++|
07277  M01S00223.ns22000 +++|
07278  M01S00224.ns22000 +++| OVW      BSS    0           ENTRY
07279  M01S00225.ns22000 +++|          LDD    FA
07280  M01S00226.ns22000 +++|          ZJN    OVW2        IF NO FNT ENTRY
07281  M01S00227.ns22000 +++|          LDM    FACF        CHECK FILE MODE
07282  M01S00228.ns22000 +++|          LPN    30
07283  M01S00229.ns22000 +++|          ZJN    OVW1        IF NO RESTRICTIONS
Line S00230 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07284  M02S00230.v23l617 ---|          ERROR  IFM         *ILLEGAL MODIFICATION*
Line S00018 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07285  M01S00018.v23l617 +++|          ERROR  IFM         *INCORRECT MODIFICATION*
Line S00231 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07286  M01S00231.ns22000 +++|
07287  M01S00232.ns22000 +++| OVW1     LDM    RCRF        CHECK FOR CONTINUATION OF FUNCTION
07288  M01S00233.ns22000 +++|          SHN    21-6
07289  M01S00234.ns22000 +++|          MJN    OVW4        IF FUNCTION PREVIOUSLY INITIALIZED
07290  M01S00235.ns22000 +++|          LDD    FS+2
07291  M01S00236.ns22000 +++|          NJN    OVW3        IF FILE USED
07292  M01S00237.ns22000 +++| OVW2     LJM    OVW11       REWIND OR DROP FILE
07293  M01S00238.ns22000 +++|
07294  M01S00239.ns22000 +++| OVW3     LDN    FSMS        SET CURRENT SECTOR = FIRST SECTOR
07295  M01S00240.ns22000 +++|          STD    FS+3
07296  M01S00241.ns22000 +++|          LDD    FS+1        SET CURRENT TRACK = FIRST TRACK
07297  M01S00242.ns22000 +++|          STD    FS+2
07298  M01S00243.ns22000 +++|          RJM    GNT         GET NEXT TRACK
07299  M01S00244.ns22000 +++|          SBN    FSMS
07300  M01S00245.ns22000 +++|          ZJN    OVW2        IF EOI ONLY ON FILE
07301  M01S00246.ns22000 +++| OVW4     RJM    IBP         INITIALIZE BUFFER WITH PATTERN
07302  M01S00247.ns22000 +++|          LDD    FS+3        SET CURRENT SECTOR
07303  M01S00248.ns22000 +++|          STD    T7
07304  M01S00249.ns22000 +++|          LDD    FS+2        SET CURRENT TRACK
07305  M01S00250.ns22000 +++|          STD    T6
07306  M01S00251.ns22000 +++|          RJM    GNT         GET EOI/NEXT TRACK LINK
Line S00252 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07307  M02S00252.242l642 ---|          SETMS  WRITE,,WDSB
Line S00611 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07308  M01S00611.242l642 +++|          SETMS  IO,,WDSB
Line S00253 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07309  M01S00253.ns22000 +++|          LDN    0
07310  M01S00254.ns22000 +++|          STD    TC          CLEAR TRACK COUNT
07311  M01S00255.ns22000 +++|          LDD    PC
07312  M01S00256.ns22000 +++|          STD    T1
07313  M01S00257.ns22000 +++| OVW5     AOD    TC          CALCULATE TRACK COUNT BEFORE PP RELEASE
07314  M01S00258.ns22000 +++|          LDM    SLM
07315  M01S00259.ns22000 +++|          RAD    T1
07316  M01S00260.ns22000 +++|          SBK    RWPC
07317  M01S00261.ns22000 +++|          MJN    OVW5        IF ALLOWED TO WRITE MORE TRACKS
07318  M01S00262.ns22000 +++| OVW6     LDD    T7          SET NEXT SECTOR LINKAGE
07319  M01S00263.ns22000 +++|          ADN    1
07320  M01S00264.ns22000 +++|          STM    BFMS
07321  M01S00265.ns22000 +++|          STD    FS+3
07322  M01S00266.ns22000 +++|          SBM    SLM
07323  M01S00267.ns22000 +++|          NJN    OVW7        IF NOT AT END OF TRACK
07324  M01S00268.ns22000 +++|          STD    FS+3        RESET TO FIRST SECTOR
07325  M01S00269.ns22000 +++|          LDD    NT          SET NEXT TRACK LINK
07326  M01S00270.ns22000 +++|          STM    BFMS
07327  M01S00271.ns22000 +++|          STD    FS+2
07328  M01S00272.ns22000 +++|          RJM    GNT         GET NEXT TRACK LINK
07329  M01S00273.ns22000 +++|          ZJN    OVW7        IF EOI IN FIRST SECTOR OF NEXT TRACK
07330  M01S00274.ns22000 +++|          SOD    TC
07331  M01S00275.ns22000 +++|          NJN    OVW7        IF NOT TRACK COUNT LIMIT
07332  M01S00276.ns22000 +++|          AOM    COCA        SET TO ENTER RECALL STACK
07333  M01S00277.ns22000 +++|          LDC    LDCI+WLSF/10000
07334  M01S00278.ns22000 +++|          STM    OVWA
07335  M01S00279.ns22000 +++| OVW7     LDD    FS+3
07336  M01S00280.ns22000 +++|          SBD    NT
07337  M01S00281.ns22000 +++|          NJN    OVW7.1      IF NOT LAST SECTOR BEFORE EOI
07338  M01S00282.ns22000 +++|          LDN    77          SET EOR ON LAST SECTOR BEFORE EOI
07339  M01S00283.ns22000 +++|          STM    BFMS+1
07340  M01S00284.ns22000 +++| OVW7.1   LDC    BFMS+WCSF   WRITE SECTOR
07341  M01S00285.ns22000 +++|*         LDC    BFMS+WLSF   (ENTER RECALL STACK)
07342  M01S00286.ns22000 +++| OVWA     EQU    *-2
07343  M01S00287.ns22000 +++|          RJM    WDS
Line S00288 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07344  M02S00288.242l642 ---|          AOD    PC          INCREMENT PRU COUNT
Line S00612 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07345  M01S00612.242l642 +++|          PJN    OVW7.2      IF NO ERROR
Line S00613 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07346  M02S00613.253l688 ---|          LPN    17
Line S00048 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07347  M01S00048.253l688 +++|          LPN    77
Line S00614 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07348  M01S00614.242l642 +++|          LMN    PARE
07349  M01S00615.242l642 +++|          ZJN    OVW7.2      IF MEDIA ERROR CONTINUE
07350  M01S00616.242l642 +++|          RJM    CDA         CHECK DEVICE
07351  M01S00617.242l642 +++|
07352  M01S00618.242l642 +++| OVW7.2   AOD    PC          INCREMENT PRU COUNT
Line S00289 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07353  M01S00289.ns22000 +++|          LDD    FS+2
07354  M01S00290.ns22000 +++|          STD    T6
07355  M01S00291.ns22000 +++|          LDD    FS+3
07356  M01S00292.ns22000 +++|          STD    T7
07357  M01S00293.ns22000 +++|          SBD    NT
07358  M01S00294.ns22000 +++|          ZJN    OVW9        IF EOI ENCOUNTERED
07359  M01S00295.ns22000 +++|          LDM    COCA
07360  M01S00296.ns22000 +++|          NJN    OVW8        IF TRACK COUNT LIMIT
07361  M01S00297.ns22000 +++|          LJM    OVW6        WRITE NEXT SECTOR
07362  M01S00298.ns22000 +++|
Line S00299 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07363  M02S00299.242l642 ---| OVW8     RJM    DCC         DROP CHANNEL WHEN OUTPUT REGISTER CLEAR
Line S00619 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07364  M01S00619.242l642 +++| OVW8     ENDMS
Line S00300 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07365  M01S00300.ns22000 +++|          AOM    COCA
07366  M01S00301.ns22000 +++|          LDN    2           SET WRITE MODE FLAG
07367  M01S00302.ns22000 +++|          STD    FS+4
07368  M01S00303.ns22000 +++|          LJM    COC         ENTER RECALL STACK
07369  M01S00304.ns22000 +++|
07370  M01S00305.ns22000 +++| OVW9     RJM    WEI         WRITE EOI
07371  M01S00306.ns22000 +++|          LDD    IR+3
07372  M01S00307.ns22000 +++|          SHN    -6
07373  M01S00308.ns22000 +++|          SBN    2
07374  M01S00309.ns22000 +++|          MJN    OVW10       IF FUNCTION COMPLETE
07375  M01S00310.ns22000 +++|          LDC    -100
07376  M01S00311.ns22000 +++|          RAD    IR+3
07377  M01S00312.ns22000 +++|          LDD    FS+1        SET CURRENT TRACK = FIRST TRACK
07378  M01S00313.ns22000 +++|          STD    FS+2
07379  M01S00314.ns22000 +++|          LDN    FSMS        SET CURRENT SECTOR = FIRST SECTOR
07380  M01S00315.ns22000 +++|          STD    FS+3
07381  M01S00316.ns22000 +++|          SOD    TC
07382  M01S00317.ns22000 +++|          ZJN    OVW8        IF TRACK COUNT LIMIT
07383  M01S00318.ns22000 +++|          LJM    OVW4        PROCESS NEXT DATA PATTERN
07384  M01S00319.ns22000 +++|
Line S00320 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07385  M02S00320.242l642 ---| OVW10    RJM    DCC         DROP CHANNEL WHEN OUTPUT REGISTER CLEAR
Line S00620 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07386  M01S00620.242l642 +++| OVW10    ENDMS
Line S00321 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07387  M01S00321.ns22000 +++|          LDM    CFNB        SET FILE WRITTEN FLAGS
07388  M01S00322.ns22000 +++|          LPN    74
07389  M01S00323.ns22000 +++|          LMN    03
07390  M01S00324.ns22000 +++|          STM    CFNB
07391  M01S00325.ns22000 +++| OVW11    LDD    BS+4        CHECK OVERWRITE FUNCTION CODE
07392  M01S00326.ns22000 +++|          LPN    10
07393  M01S00327.ns22000 +++|          ZJP    REW         IF TO REWIND FILE
07394  M01S00328.ns22000 +++|          LDN    0           SELECT *0DF* RETURN FUNCTION
07395  M01S00329.ns22000 +++|          LJM    DRF         DROP FILE
07396  M01S00330.ns22000 +++| GNT      SPACE  4,10
07397  M01S00331.ns22000 +++|**        GNT - GET NEXT TRACK POINTER.
07398  M01S00332.ns22000 +++|*
07399  M01S00333.ns22000 +++|*         ENTRY  (A) = CURRENT TRACK POINTER.
07400  M01S00334.ns22000 +++|*                (FS - FS+4) = FST ENTRY.
07401  M01S00335.ns22000 +++|*
07402  M01S00336.ns22000 +++|*         EXIT   (A) = (NT) = NEXT TRACK POINTER.
07403  M01S00337.ns22000 +++|*                (T2) = CURRENT TRACK POINTER.
07404  M01S00338.ns22000 +++|*                (T5) = EQUIPMENT IF INITIAL CALL.
07405  M01S00339.ns22000 +++|*
07406  M01S00340.ns22000 +++|*         USES   NT, T2, CM - CM+4.
07407  M01S00341.ns22000 +++|*
07408  M01S00342.ns22000 +++|*         MACROS SFA.
07409  M01S00343.ns22000 +++|
07410  M01S00344.ns22000 +++|
07411  M01S00345.ns22000 +++| GNT2     SHN    -2          READ TRT WORD
07412  M01S00346.ns22000 +++| GNTB     ADC    **          ADD TRT BASE ADDRESS
07413  M01S00347.ns22000 +++|          CRD    CM
07414  M01S00348.ns22000 +++|          LDD    T2          SET BYTE INDEX
07415  M01S00349.ns22000 +++|          LPN    3
07416  M01S00350.ns22000 +++|          STD    NT
07417  M01S00351.ns22000 +++|          LDM    CM,NT       GET NEXT TRACK POINTER
07418  M01S00352.ns22000 +++|          STD    NT
07419  M01S00353.ns22000 +++|
07420  M01S00354.ns22000 +++| GNT      SUBR               ENTRY/EXIT
07421  M01S00355.ns22000 +++|          STD    T2          SAVE CURRENT TRACK POINTER
07422  M01S00356.ns22000 +++| GNT1     LDD    FS          SET EQUIPMENT
07423  M01S00357.ns22000 +++|*         UJN    GNT2        (TRT ADDRESS PRESET)
07424  M01S00358.ns22000 +++| GNTA     EQU    *-1
07425  M01S00359.ns22000 +++|          STD    T5
07426  M01S00360.ns22000 +++|          SFA    EST         GET EST ENTRY
07427  M01S00361.ns22000 +++|          ADK    EQDE
07428  M01S00362.ns22000 +++|          CRD    CM
07429  M01S00363.ns22000 +++|          LDD    CM+4        MST ADDDRESS / 10
07430  M01S00364.ns22000 +++|          SHN    3
07431  M01S00365.ns22000 +++|          ADN    TRLL        READ TRT POINTER
07432  M01S00366.ns22000 +++|          CRD    CM
07433  M01S00367.ns22000 +++|          LDD    CM+3        EXTRACT TRT ADDRESS
07434  M01S00368.ns22000 +++|          LPN    77
07435  M01S00369.ns22000 +++|          SHN    14
07436  M01S00370.ns22000 +++|          LMD    CM+4
07437  M01S00371.ns22000 +++|          SBD    TH          COMPENSATE FOR TRACK LINK FLAG (4000/4)
07438  M01S00372.ns22000 +++|          STM    GNTB+1      SET TRT BASE ADDRESS
07439  M01S00373.ns22000 +++|          SHN    -14
07440  M01S00374.ns22000 +++|          RAM    GNTB
Line S00375 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07441  M02S00375.242l642 ---|          LDC    0           MODIFY INSTRUCTION FOR SUBSEQUENT CALLS
07442  M02S00376.242l642 ---|          ORG    *-1
07443  M02S00377.242l642 ---|          LOC    GNTA
07444  M02S00378.242l642 ---|          UJN    GNT2        GET NEXT TRACK POINTER
07445  M02S00379.242l642 ---|          LOC    *O
07446  M02S00380.242l642 ---|          STM    GNTA
Line S00621 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07447  M01S00621.242l642 +++|          ISTORE GNTA,(UJN GNT2)
Line S00381 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07448  M01S00381.ns22000 +++|          LDD    T2
07449  M01S00382.ns22000 +++|          UJN    GNT1        GET NEXT TRACK POINTER
07450  M01S00383.ns22000 +++| IBP      SPACE  4,10
07451  M01S00384.ns22000 +++|**        IBP - INITIALIZE BUFFER WITH PATTERN SELECTION.
07452  M01S00385.ns22000 +++|*
07453  M01S00386.ns22000 +++|*         EXIT   (BFMS+1 - BFMS+501) INITIALIZED.
07454  M01S00387.ns22000 +++|*
07455  M01S00388.ns22000 +++|*         USES   T1, T2.
07456  M01S00389.ns22000 +++|
07457  M01S00390.ns22000 +++|
07458  M01S00391.ns22000 +++| IBP      SUBR               ENTRY/EXIT
07459  M01S00392.ns22000 +++|          LDC    BFMS+2
07460  M01S00393.ns22000 +++|          STD    T1
07461  M01S00394.ns22000 +++|          LDD    IR+3        GET PATTERN SELECTION
07462  M01S00395.ns22000 +++|          LPC    377
07463  M01S00396.ns22000 +++|          STD    IR+3
07464  M01S00397.ns22000 +++|          SHN    -6
07465  M01S00398.ns22000 +++|          STD    T2
07466  M01S00399.ns22000 +++|          LDM    TWPS,T2
07467  M01S00400.ns22000 +++|          STD    T2
07468  M01S00401.ns22000 +++| IBP1     LDD    T2          INITIALIZE BUFFER
07469  M01S00402.ns22000 +++|          STI    T1
07470  M01S00403.ns22000 +++|          AOD    T1
07471  M01S00404.ns22000 +++|          LMC    BFMS+502
07472  M01S00405.ns22000 +++|          NJN    IBP1        IF MORE WORDS TO INITIALIZE
07473  M01S00406.ns22000 +++|          LDD    HN          SET BUFFER WORD COUNT
07474  M01S00407.ns22000 +++|          STM    BFMS+1
07475  M01S00408.ns22000 +++|          UJN    IBPX        RETURN
07476  M01S00409.ns22000 +++|
07477  M01S00410.ns22000 +++|
07478  M01S00411.ns22000 +++| TWPS     BSS    0           TABLE OF WORD PATTERN SELECTIONS
07479  M01S00412.ns22000 +++|          LOC    0
07480  M01S00413.ns22000 +++|          CON    0
07481  M01S00414.ns22000 +++|          CON    5252
07482  M01S00415.ns22000 +++|          CON    7777
07483  M01S00416.ns22000 +++|          CON    0
07484  M01S00417.ns22000 +++|          LOC    *O
07485  M01S00418.ns22000 +++|          SPACE  4,10
07486  M01S00419.ns22000 +++|**        COMMON DECKS.
07487  M01S00420.ns22000 +++|
07488  M01S00421.ns22000 +++|
07489  M01S00422.ns22000 +++|*CALL     COMPWEI
Line S00622 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07490  M01S00622.242l642 +++| WDSB     SPACE  4,10
07491  M01S00623.242l642 +++|**        WDSB - WRITE ERROR PROCESSING BUFFER.
07492  M01S00624.242l642 +++|*         THIS BUFFER IS USED STRICTLY BY THE DRIVER ERROR PROCESSOR
07493  M01S00625.242l642 +++|*         WHEN A WRITE ERROR IS ENCOUNTERED ON THE SECTOR PREVIOUS TO
07494  M01S00626.242l642 +++|*         A SECTOR CURRENTLY BEING WRITTEN.  THIS SPACE MAY BE
07495  M01S00627.242l642 +++|*         OVERLAYED BY THE ERROR PROCESSING OVERLAY.
07496  M01S00628.242l642 +++|
07497  M01S00629.242l642 +++| WDSB     EQU    *
07498  M01S00630.242l642 +++|          ERRNG  BFMS-WDSB-502  WDSB EXTENDS INTO BFMS
Line S00423 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07499  M01S00423.ns22000 +++|          SPACE  4,10
07500  M01S00424.ns22000 +++|          OVERFLOW  MSDO,BFMS
07501  M00S05608.1ms     +++| ERP      OVERLAY (ERROR PROCESSOR.),ERPO
07502  M00S05609.1ms     +++| ERP      SPACE  4,10
07503  M00S05610.1ms     +++|          ORG    *+2
07504  M00S05611.1ms     +++|          UJN    ERP         ENTER ERROR PROCESSOR
07505  M00S05612.1ms     +++|          SPACE  4,35
07506  M00S05613.1ms     +++|***       RETURN OF UNRECOVERABLE MASS STORAGE ERROR STATUS.
07507  M00S05614.1ms     +++|*
07508  M00S05615.1ms     +++|*         WHENEVER A MASS STORAGE DEVICE RETURNS AN ERROR STATUS OR THE
07509  M00S05616.1ms     +++|*         DEVICE DRIVER DETECTS AN ERROR, AN ERROR STATUS IS PLACED IN
07510  M00S05617.1ms     +++|*         THE STATUS FIELD OF THE FET. IF THE USER ERROR PROCESSING BIT
07511  M00S05618.1ms     +++|*         IS SET IN THE FET *SP* FIELD, FURTHER *DETAIL* STATUS IS
07512  M00S05619.1ms     +++|*         RETURNED TO THE USER ; IF NOT SET, A MESSAGE IS ISSUED TO THE
07513  M00S05620.1ms     +++|*         DAYFILE AND THE JOB IS ABORTED.
07514  M00S05621.1ms     +++|*
07515  M00S05622.1ms     +++|*         ERROR STATUS (STATUS FIELD)
07516  M00S05623.1ms     +++|*                002         END OF DEVICE (TRACK LIMIT).
07517  M00S05624.1ms     +++|*                004         PARITY ERROR.
07518  M00S05625.1ms     +++|*                023         RANDOM INDEX TOO LARGE FOR INDEX BUFFER.
07519  M00S05626.1ms     +++|*                022         OTHER ERROR.
07520  M00S05627.1ms     +++|*
07521  M00S05628.1ms     +++|*         DETAIL ERROR STATUS (DEC FIELD) (ONLY IF *EPR* SET)
07522  M00S05629.1ms     +++|*                X001        PARITY ERROR.
07523  M00S05630.1ms     +++|*                X002        ADDRESS ERROR.
07524  M00S05631.1ms     +++|*                X003        DEVICE STATUS ERROR.
07525  M00S05632.1ms     +++|*                X004        6681 FUNCTION REJECT.
07526  M00S05633.1ms     +++|*                X005        DEVICE RESERVED.
07527  M00S05634.1ms     +++|*                X006        DEVICE NOT READY.
07528  M00S05635.1ms     +++|*                4007        TRACK LIMIT. (DEVICE FULL)
07529  M00S05636.1ms     +++|*                0000        OTHER ERROR.
07530  M00S05637.1ms     +++|*
07531  M00S05638.1ms     +++|*         IF, AFTER A READ ERROR (WITH *EPR* SET), THE SYSTEM
07532  M00S05639.1ms     +++|*         DETERMINES THAT THE PROPER PRU WAS READ (ALTHOUGH IT
07533  M00S05640.1ms     +++|*         PROBABLY CONTAINS BAD DATA) THEN *X* ABOVE IS ZERO, THE
07534  M00S05641.1ms     +++|*         DATA IS PLACED IN THE BUFFER, AND THE FILE IS POSITIONED
07535  M00S05642.1ms     +++|*         TO THE NEXT PRU OF THE FILE.  IF THE PROPER PRU WAS NOT
07536  M00S05643.1ms     +++|*         READ THEN *X* IS 4, NO DATA IS PLACED IN THE BUFFER, AND
07537  M00S05644.1ms     +++|*         THE FILE IS LEFT POSITIONED AT THE OFFENDING PRU.   *CRI*
07538  M00S05645.1ms     +++|*         IS SET AS USUAL.
07539  M00S05646.1ms     +++| IMR      SPACE  4,10
07540  M00S05647.1ms     +++|**        IMR - ISSUE MESSAGE AND RETURN TO MAIN PROGRAM.
07541  M00S05648.1ms     +++|*
07542  M00S05649.1ms     +++|*         ENTRY  (A) = ADDRESS TO RETURN TO.
07543  M00S05650.1ms     +++|*                AT *IMR* TO SET RETURN ADDRESS.
07544  M00S05651.1ms     +++|*                AT *IMR1* IF TO USE DEFAULT RETURN ADDRESS (*CFN*).
07545  M00S05652.1ms     +++|*                AT *IMR2* TO SET PP HANG.
07546  M00S05653.1ms     +++|*
07547  M00S05654.1ms     +++|*         CALLS  IDM.
07548  M00S05655.1ms     +++|
07549  M00S05656.1ms     +++|
07550  M00S05657.1ms     +++|*         ENTRY TO SET PP HANG.
07551  M00S05658.1ms     +++|
Line S05659 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07552  M01S05659.241l630 ---| IMR2     LDC    RJMI        SET *RJM HNG* INSTRUCTION
07553  M01S05660.241l630 ---|          STM    IMRA-1
07554  M01S05661.241l630 ---|          LDC    HNG
Line S00043 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07555  M01S00043.241l630 +++| IMR2     LDC    CHP         SET HANG PP ADDRESS
07556  M01S00044.241l630 +++|
07557  M00S05662.1ms     +++|
07558  M00S05663.1ms     +++| IMR      BSS    0           ENTRY
Line S00001 Modification History
M01 (Added by) 1ms12
Seq #  *Modification Id* Act 
----------------------------+
07559  M01S00001.1ms12   +++|          ZJN    IMR1        IF NO EXIT ADDRESS SPECIFIED
07560  M00S05664.1ms     +++|          STM    IMRA        SAVE RETURN ADDRESS
07561  M00S05665.1ms     +++|
07562  M00S05666.1ms     +++|*         ENTRY IF TO USE DEFAULT RETURN ADDRESS (*CFN*).
07563  M00S05667.1ms     +++|
07564  M00S05668.1ms     +++| IMR1     RJM    IDM         ISSUE DAYFILE MESSAGE
Line S05669 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07565  M01S05669.242l642 ---|          LDD    MA          RESTORE T4 - T7
07566  M01S05670.242l642 ---|          CWM    MRSB,ON
07567  M01S05671.242l642 ---|          CWM    MSRA,ON     RESTORE T3, T8, T9
07568  M01S05672.242l642 ---|          SBN    2
07569  M01S05673.242l642 ---|          CRD    T4
07570  M01S05674.242l642 ---|          ADN    1
07571  M01S05675.242l642 ---|          CRD    CM+3
07572  M01S05676.242l642 ---|          LDD    CM+3        RESTORE (T3)
07573  M01S05677.242l642 ---|          STD    T3
Line S00631 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07574  M01S00631.242l642 +++|          LDD    MA          RESTORE T3 - T7
07575  M01S00632.242l642 +++|          CWM    DCSA,ON
07576  M01S00633.242l642 +++|          SBN    1
07577  M01S00634.242l642 +++|          CRD    T3
07578  M00S05678.1ms     +++|          LJM    CFN         COMPLETE FUNCTION AND DROP PPU
07579  M00S05679.1ms     +++|*         LJM    MSP         (PROCESS WRITE OPERATION)
07580  M00S05680.1ms     +++|*         LJM    /PMS/SFP    (PROCESS POSITION ERROR)
07581  M00S05681.1ms     +++|*         LJM    /PMS/LRIX   (PROCESS OPEN ERROR - NOT CORRECT SECTOR)
07582  M00S05682.1ms     +++|*         LJM    /PMS/LRIX   (USER PROCESSING INDEX TOO LARGE ON OPEN)
07583  M00S05683.1ms     +++|*         LJM    MSRX        (PROCESS SKIP FORWARD - CORRECT SECTOR)
07584  M00S05684.1ms     +++|*         LJM    MSRX        (PROCESS OPEN ERROR - CORRECT SECTOR)
07585  M00S05685.1ms     +++|*         LJM    MSRX        (COMPLETE READ - CORRECT SECTOR)
07586  M00S05686.1ms     +++|*         LJM    /RMS/CPR    (COMPLETE READ - NOT CORRECT SECTOR)
Line S05687 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07587  M01S05687.241l630 ---|*         RJM    HNG         (HANG MESSAGE)
Line S00045 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07588  M01S00045.241l630 +++|*         LJM    CHP         (HANG MESSAGE)
07589  M00S05688.1ms     +++| IMRA     EQU    *-1
07590  M00S05689.1ms     +++| ERP      SPACE  4,20
07591  M00S05690.1ms     +++|**        ERP - MAIN ROUTINE.
07592  M00S05691.1ms     +++|*
07593  M00S05692.1ms     +++|*         ENTRY  (ERRA) = ERROR NUMBER
07594  M00S05693.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION CODE.
07595  M00S05694.1ms     +++|*                (FO) = FET OPTIONS.
07596  M00S05695.1ms     +++|*                (BS - BS+4) = (FET+0).
07597  M00S05696.1ms     +++|*
07598  M00S05697.1ms     +++|*         EXIT   (BS - BS+4) = UPDATED WITH ERROR STATUS.
07599  M00S05698.1ms     +++|*                TO *ABJ* IF FATAL ERROR.
07600  M00S05699.1ms     +++|*                TO *IMR* IF ERROR PROCESSING SELECTED FOR INDEX
07601  M00S05700.1ms     +++|*                   TOO LARGE ERROR.
07602  M00S05701.1ms     +++|*                TO *IMR1* IF WARNING MESSAGE.
07603  M00S05702.1ms     +++|*                TO *IMR2* IF HANG CONDITION.
07604  M00S05703.1ms     +++|*                TO *RES* IF DEVICE ERROR.
07605  M00S05704.1ms     +++|*
07606  M00S05705.1ms     +++|*         USES   EN, T1, T4 - T4+4.
07607  M00S05706.1ms     +++|*
07608  M00S05707.1ms     +++|*         CALLS  PTL, WEI.
07609  M00S05708.1ms     +++|
07610  M00S05709.1ms     +++|
07611  M00S05710.1ms     +++| ERP      BSS    0           ENTRY
07612  M00S05711.1ms     +++|          LDM    ERRA        SET ERROR NUMBER
07613  M00S05712.1ms     +++|          STD    EN
07614  M00S05713.1ms     +++|          SBN    /CIOERR/HMSL
07615  M00S05714.1ms     +++|          MJN    IMR2        IF HANG CONDITION
07616  M00S05715.1ms     +++|          SBN    /CIOERR/WMSL-/CIOERR/HMSL
07617  M00S05716.1ms     +++|          PJN    ERP1        IF ERROR MESSAGE
07618  M00S05717.1ms     +++|          LDM    TMSG+/CIOERR/UCF  SET EXTERNAL FUNCTION IN MESSAGE
07619  M00S05718.1ms     +++|          ADN    10D
07620  M00S05719.1ms     +++|          STD    T1
07621  M00S05720.1ms     +++|          LDD    BS+4
07622  M00S05721.1ms     +++|          SHN    -6
07623  M00S05722.1ms     +++|          LPN    7
07624  M00S05723.1ms     +++|          RAI    T1
07625  M00S05724.1ms     +++|          AOD    T1
07626  M00S05725.1ms     +++|          LDD    BS+4
07627  M00S05726.1ms     +++|          LPN    4
07628  M00S05727.1ms     +++|          RAI    T1
07629  M00S05728.1ms     +++|          LDD    BS+4
07630  M00S05729.1ms     +++|          LPN    70
07631  M00S05730.1ms     +++|          SHN    3
07632  M00S05731.1ms     +++|          RAI    T1
07633  M00S05732.1ms     +++|          LJM    IMR1        ISSUE WARNING MESSAGE
07634  M00S05733.1ms     +++|
07635  M00S05734.1ms     +++| ERP1     LDN    0           CLEAR RECALL STACK FLAG
07636  M00S05735.1ms     +++|          STM    COCA
07637  M00S05736.1ms     +++|
07638  M00S05737.1ms     +++|*         CHECK FOR EOI NEEDED.
07639  M00S05738.1ms     +++|
07640  M00S05739.1ms     +++|          LDD    EN
07641  M00S05740.1ms     +++|          LMN    /CIOERR/DRE
07642  M00S05741.1ms     +++|          NJN    ERP3        IF NOT DEVICE ERROR
Line S00049 Modification History
M01 (Added by) 253l688
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07643  M02S00049.1ms13   ---|          LDM    ERSD
Line S00050 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2553
M03 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07644  M03S00050.1ms13   ---|          NJN    ERP4        IF NO ERROR ON THE FILE
Line S00001 Modification History
M01 (Added by) ns2553
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07645  M02S00001.1ms13   ---|          NJN    ERP2.1      IF NO ERROR ON THE FILE
Line S05742 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07646  M01S05742.242l642 ---|          LDD    MA          RESET T4 - T7
07647  M01S05743.242l642 ---|          CWM    MRSB,ON
Line S00635 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07648  M01S00635.242l642 +++|          LDD    MA          RESTORE T3 - T7
07649  M01S00636.242l642 +++|          CWM    DCSA,ON
07650  M00S05744.1ms     +++|          SBN    1
Line S05745 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07651  M01S05745.242l642 ---|          CRD    T4
Line S00637 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07652  M01S00637.242l642 +++|          CRD    T3
Line S00004 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07653  M01S00004.1ms13   +++|          LDM    ERSD
07654  M01S00005.1ms13   +++|          NJN    ERP2.1      IF NO ERROR ON THE FILE
07655  M00S05746.1ms     +++|          LDD    FC
07656  M00S05747.1ms     +++|          SHN    -6
07657  M00S05748.1ms     +++|          LPN    17
07658  M00S05749.1ms     +++|          LMN    /CIO/WTF
07659  M00S05750.1ms     +++|          ZJN    ERP2        IF WRITE
07660  M00S05751.1ms     +++|          LMN    /CIO/CLO&/CIO/WTF
Line S05752 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07661  M01S05752.242l642 ---|          ZJN    ERP2        IF CLOSE
07662  M01S05753.242l642 ---|          LMN    /CIO/EVI&/CIO/CLO
07663  M01S05754.242l642 ---|          NJN    ERP3        IF NOT EVICT
Line S00638 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07664  M01S00638.242l642 +++|          NJN    ERP2.1      IF NOT CLOSE
07665  M00S05755.1ms     +++|
07666  M00S05756.1ms     +++|*         WRITE EOI IF FILE WRITTEN ON.
07667  M00S05757.1ms     +++|
Line S05758 Modification History
M01 (Removed by) 1ms2
Seq #  *Modification Id* Act 
----------------------------+
07668  M01S05758.1ms2    ---| ERP2     RJM    WEI         WRITE EOI
Line S00001 Modification History
M01 (Added by) 1ms2
Seq #  *Modification Id* Act 
----------------------------+
07669  M01S00001.1ms2    +++| ERP2     LDD    EN          SAVE THE ERROR CODE
07670  M01S00002.1ms2    +++|          STM    ERPA
07671  M01S00003.1ms2    +++|          RJM    WEI         WRITE AN EOI SECTOR
07672  M01S00004.1ms2    +++|          LDC    **
07673  M01S00005.1ms2    +++| ERPA     EQU    *-1
07674  M01S00006.1ms2    +++|          STD    EN
Line S00639 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms15
Seq #  *Modification Id* Act 
----------------------------+
07675  M02S00639.1ms15   ---| ERP2.1   UJN    RES         RETURN ERROR STATUS
Line S00001 Modification History
M01 (Added by) 1ms15
Seq #  *Modification Id* Act 
----------------------------+
07676  M01S00001.1ms15   +++| ERP2.1   UJP    RES         RETURN ERROR STATUS
07677  M00S05759.1ms     +++|
07678  M00S05760.1ms     +++|*         CHECK FOR TRACK LIMIT.
07679  M00S05761.1ms     +++|
07680  M00S05762.1ms     +++| ERP3     LDD    EN
07681  M00S05763.1ms     +++|          LMN    /CIOERR/TKL
07682  M00S05764.1ms     +++|          NJN    ERP4        IF NOT TRACK LIMIT
07683  M00S05765.1ms     +++|          RJM    PTL         PROCESS TRACK LIMIT ERROR
07684  M00S05766.1ms     +++|
07685  M00S05767.1ms     +++|*         CHECK USER PROCESSING OF ERRORS.
07686  M00S05768.1ms     +++|
Line S05769 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07687  M01S05769.242l642 ---| ERP4     LDD    EN
07688  M01S05770.242l642 ---|          LMN    /CIOERR/DRE
07689  M01S05771.242l642 ---|          ZJN    RES         IF DEVICE ERROR
07690  M01S05772.242l642 ---|          LDC    22S9        SET STATUS = 22
Line S00640 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07691  M01S00640.242l642 +++| ERP4     LDC    22S9        SET STATUS = 22
07692  M00S05773.1ms     +++|          RAD    BS+4
07693  M00S05774.1ms     +++|          SHN    -14
07694  M00S05775.1ms     +++|          RAD    BS+3
07695  M00S05776.1ms     +++|          LDD    EN
07696  M00S05777.1ms     +++|          LMN    /CIOERR/ITL
Line S05778 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07697  M01S05778.v23l617 ---|          NJN    ERP5        IF NOT INDEX TOO LARGE ERROR
Line S00019 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07698  M01S00019.v23l617 +++|          NJN    ERP6        IF NOT INDEX TOO LARGE ERROR
07699  M00S05779.1ms     +++|          STM    ERRA        CLEAR ERROR CODE
07700  M00S05780.1ms     +++|          LDD    TH          SET STATUS = 23B
07701  M00S05781.1ms     +++|          RAD    BS+4
07702  M00S05782.1ms     +++| ERP5     LJM    ABJ         ABORT JOB
Line S00020 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07703  M01S00020.v23l617 +++|
07704  M01S00021.v23l617 +++| ERP6     LMN    /CIOERR/FTL&/CIOERR/ITL
Line S00022 Modification History
M01 (Added by) v23l617
M02 (Removed by) 1ms15
Seq #  *Modification Id* Act 
----------------------------+
07705  M02S00022.1ms15   ---|          NJN    ERP5        IF NOT FILE TOO LONG ERROR
07706  M02S00023.1ms15   ---|          LDD    CP          CHECK IF SUBSYSTEM
Line S00002 Modification History
M01 (Added by) 1ms15
Seq #  *Modification Id* Act 
----------------------------+
07707  M01S00002.1ms15   +++|          ZJN    ERP7        IF FILE TOO LONG ERROR
07708  M01S00003.1ms15   +++|          LMN    /CIOERR/LFL&/CIOERR/FTL
07709  M01S00004.1ms15   +++|          ZJN    ERP7        IF LOCAL FILE LIMIT ERROR
07710  M01S00005.1ms15   +++|          LMN    /CIOERR/PRL&/CIOERR/LFL
07711  M01S00006.1ms15   +++|          ZJN    ERP7        IF PRU LIMIT ERROR
07712  M01S00007.1ms15   +++|          LMN    /CIOERR/RAD&/CIOERR/PRL
07713  M01S00008.1ms15   +++|          ZJN    ERP7        IF RANDOM ADDRESS ERROR
07714  M01S00009.1ms15   +++|          LMN    /CIOERR/BLE&/CIOERR/RAD
07715  M01S00010.1ms15   +++|          NJN    ERP5        IF NOT BUFFER CONTROL WORD ERROR
07716  M01S00011.1ms15   +++| ERP7     LDD    CP          CHECK IF SUBSYSTEM
Line S00024 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07717  M01S00024.v23l617 +++|          ADK    JCIW
07718  M01S00025.v23l617 +++|          CRD    CM
07719  M01S00026.v23l617 +++|          LDD    CM+2
07720  M01S00027.v23l617 +++|          SBK    LSSI
07721  M01S00028.v23l617 +++|          MJN    ERP5        IF NOT SUBSYSTEM
07722  M01S00029.v23l617 +++|          LJM    IMR1        TREAT ERROR AS WARNING
07723  M00S05783.1ms     +++| RES      SPACE  4,10
07724  M00S05784.1ms     +++|**        RES - RETURN ERROR STATUS.
07725  M00S05785.1ms     +++|*
Line S00006 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07726  M01S00006.1ms13   +++|*         ENTRY  (T4) = (RDCT) AT THE TIME OF THE ERROR.
07727  M01S00007.1ms13   +++|*
07728  M00S05786.1ms     +++|*         EXIT   TO *ERP5* IF ERROR PROCESSING NOT SELECTED.
07729  M00S05787.1ms     +++|*                TO *IMR* TO ISSUE DAYFILE MESSAGE.
07730  M00S05788.1ms     +++|*
07731  M00S05789.1ms     +++|*         CALLS  MDE, SES.
07732  M00S05790.1ms     +++|
07733  M00S05791.1ms     +++|
07734  M00S05792.1ms     +++|*         PROCESS DRIVER DETECTED DEVICE ERROR.
07735  M00S05793.1ms     +++|
07736  M00S05794.1ms     +++| RES      BSS    0           ENTRY
Line S05795 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07737  M01S05795.242l642 ---|          LDM    MRSB+4      SET ERROR STATUS
Line S00641 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07738  M02S00641.1ms13   ---|          LDM    DCSA+1      GET ERROR STATUS
Line S00008 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07739  M01S00008.1ms13   +++|          LDD    T4          GET ERROR STATUS
07740  M00S05796.1ms     +++|          RJM    MDE         MAP DISK ERROR
07741  M00S05797.1ms     +++|          RJM    SES
07742  M00S05798.1ms     +++|          ZJN    ERP5        IF ERROR PROCESSING NOT SELECTED
Line S05799 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07743  M01S05799.1ms13   ---|          LDD    FC
Line S00009 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07744  M01S00009.1ms13   +++|          LDD    FC          GET PROCESSOR ADDRESS
07745  M00S05800.1ms     +++|          SHN    -6
07746  M00S05801.1ms     +++|          LPN    17
Line S05802 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07747  M01S05802.1ms13   ---|          LMN    /CIO/SKP
07748  M01S05803.1ms13   ---|          ZJN    RES1        IF SKIP FUNCTION
07749  M01S05804.1ms13   ---|          LMN    /CIO/WTF&/CIO/SKP
07750  M01S05805.1ms13   ---|          NJN    RES4        IF NOT WRITE
Line S05806 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07751  M02S05806.1ms13   ---|          LDC    MSP         COMPLETE WRITE FUNCTION
Line S00642 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07752  M02S00642.1ms13   ---|          LDC    /WMS/WMS3   COMPLETE WRITE OPERATION
Line S05807 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07753  M01S05807.1ms13   ---|          UJN    RES3        ISSUE DAYFILE MESSAGE
Line S00010 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07754  M01S00010.1ms13   +++|          STD    T1
07755  M01S00011.1ms13   +++|          LDM    RESB,T1
07756  M01S00012.1ms13   +++|          STM    RESA
07757  M01S00013.1ms13   +++|          LJM    *           ENTER PROCESSOR
07758  M01S00014.1ms13   +++| RESA     EQU    *-1
07759  M00S05808.1ms     +++|
07760  M00S05809.1ms     +++|*         PROCESS SKIP ERROR.
07761  M00S05810.1ms     +++|
Line S05811 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07762  M01S05811.1ms13   ---| RES1     STD    FS+4        CLEAR FST STATUS
Line S00015 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07763  M01S00015.1ms13   +++| RES1     LDN    0
07764  M01S00016.1ms13   +++|          STD    FS+4        CLEAR FST STATUS
07765  M00S05812.1ms     +++|          LDD    FC
07766  M00S05813.1ms     +++|          SHN    -13
07767  M00S05814.1ms     +++|          NJN    RES2        IF BACKWARD SKIP
Line S05815 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07768  M01S05815.242l642 ---|          LDM    MRSB+4      CHECK IF CORRECT SECTOR READ
Line S00643 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07769  M02S00643.1ms13   ---|          LDM    DCSA+1      CHECK IF CORRECT SECTOR READ
Line S00017 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07770  M01S00017.1ms13   +++|          LDD    T4          CHECK IF CORRECT SECTOR READ
07771  M00S05816.1ms     +++|          SHN    -13
Line S05817 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07772  M01S05817.v23l617 ---|          NJN    RES2        IF INVALID DATA
Line S00030 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07773  M01S00030.v23l617 +++|          NJN    RES2        IF INCORRECT DATA
07774  M00S05818.1ms     +++|          LDD    HN+LJMI*    SET TERMINATOR
07775  M00S05819.1ms     +++|          STM    /PMS/SKFA
07776  M00S05820.1ms     +++|          LDC    /PMS/SFP
07777  M00S05821.1ms     +++|          STM    /PMS/SKFA+1
Line S05822 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07778  M01S05822.1ms13   ---|          LJM    RES10       SET TO RETURN TO CALLER
Line S00018 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07779  M01S00018.1ms13   +++|          UJN    RES5        RETURN TO CALLER
07780  M00S05823.1ms     +++|
Line S05824 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07781  M01S05824.1ms13   ---| RES2     LDC    /PMS/SFP    PROCESS POSITION ERROR
Line S00019 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07782  M01S00019.1ms13   +++|*         PROCESS WRITE/REWIND/RETURN/UNLOAD/EVICT ERRORS.
07783  M01S00020.1ms13   +++|
07784  M01S00021.1ms13   +++| RES2     LDM    RESC,T1     GET CONTINUATION PROCESSOR
07785  M00S05825.1ms     +++| RES3     LJM    IMR         ISSUE DAYFILE MESSAGE
07786  M00S05826.1ms     +++|
07787  M00S05827.1ms     +++|*         PROCESS OPEN ERROR.
07788  M00S05828.1ms     +++|
Line S05829 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07789  M01S05829.242l642 ---| RES4     LMN    /CIO/WTF
Line S00644 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07790  M02S00644.1ms13   ---| RES4     LMN    /CIO/WTF&/CIO/RDF
Line S05830 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07791  M01S05830.1ms13   ---|          ZJN    RES6        IF READ FUNCTION
Line S05831 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07792  M02S05831.1ms13   ---|          LDM    MRSB+4
Line S00645 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07793  M02S00645.1ms13   ---|          LDM    DCSA+1
Line S00022 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07794  M01S00022.1ms13   +++| RES4     LDD    T4
07795  M00S05832.1ms     +++|          SHN    21-11D
Line S05833 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07796  M01S05833.1ms13   ---|          MJN    RES5        IF PROPER SECTOR READ
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/1ms.004.txt ยท Last modified: by 127.0.0.1