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 
----------------------------+
05697  M01S00191.ns2090  +++|          ZJN    RMS3        IF NOT BUFFERED DEVICE
05698  M01S04357.1ms     +++|          LDD    FC          CHECK TERMINATION CONDITION
05699  M01S04358.1ms     +++|          LPN    14
05700  M01S04359.1ms     +++|          ZJN    RMS3        IF  *WPHR*
Line S04360 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2070
Seq #  *Modification Id* Act 
----------------------------+
05701  M02S04360.ns2070  ---|          LDM    RCRF        SET 819 FUNCTION FLAG
05702  M01S00004.ns2070  +++|          LDM    RCRF        SET BUFFERED DEVICE FUNCTION FLAG
Line S00340 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
05703  M02S00340.1ms6    ---|          STM    WSEB
05704  M01S04361.1ms     +++|          LPC    7577
05705  M01S04362.1ms     +++|          LMC    200
05706  M01S04363.1ms     +++|          STM    RCRF
05707  M01S04364.1ms     +++| RMS3     LDM    RCRF
05708  M01S04365.1ms     +++|          SHN    21-7
Line S04366 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2070
Seq #  *Modification Id* Act 
----------------------------+
05709  M02S04366.ns2070  ---|          PJN    RMS4        IF NOT 819 FUNCTION
05710  M01S00005.ns2070  +++|          PJN    RMS4        IF NOT BUFFERED DEVICE FUNCTION
05711  M01S04367.1ms     +++|          LDC    WMS2        PREVENT DATA AND EOF WRITE
05712  M01S04368.1ms     +++|          STM    WMSA
05713  M01S04369.1ms     +++|          LDC    4000        SET TO RESTART *CPUCIO*
05714  M01S04370.1ms     +++|          STM    COCA
05715  M01S04371.1ms     +++|          LDN    2           SET SYSTEM SECTOR AND EOI SECTOR COUNT
05716  M01S04372.1ms     +++|          STD    SC
Line S04373 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2241
Seq #  *Modification Id* Act 
----------------------------+
05717  M02S04373.ns2241  ---| RMS4     LDC    0
Line S04374 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2241
Seq #  *Modification Id* Act 
----------------------------+
05718  M02S04374.ns2241  ---|          ORG    *-1
Line S04375 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2241
Seq #  *Modification Id* Act 
----------------------------+
05719  M02S04375.ns2241  ---|          LOC    RMSB
Line S04376 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2241
Seq #  *Modification Id* Act 
----------------------------+
05720  M02S04376.ns2241  ---|          UJN    RMS12       CHECK IF ADDITIONAL TRACKS NEEDED
Line S04377 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2241
Seq #  *Modification Id* Act 
----------------------------+
05721  M02S04377.ns2241  ---|          LOC    *O
Line S04378 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2241
Seq #  *Modification Id* Act 
----------------------------+
05722  M02S04378.ns2241  ---|          STM    RMSB
05723  M01S00048.ns2241  +++| RMS4     LDC    LJMI        SET UP FOR FIRST WRITE OF NEW FILE
05724  M01S00049.ns2241  +++|          STM    RMSB
05725  M01S00050.ns2241  +++|          LDC    RMS12
05726  M01S00051.ns2241  +++|          STM    RMSB+1
05727  M01S04379.1ms     +++|          LDD    FS+1        SET CURRENT TRACK TO FIRST TRACK
05728  M01S04380.1ms     +++| RMS5     STD    T6
05729  M01S04381.1ms     +++|          LDD    FS          SET EQUIPMENT
Line S04382 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05730  M02S04382.ns22000 ---|          LPN    77
05731  M01S04383.1ms     +++|          STD    T5
05732  M01S04384.1ms     +++|          LDD    FC
05733  M01S04385.1ms     +++|          SHN    21-12
05734  M01S04386.1ms     +++|          PJN    RMS6        IF NOT REWRITE
Line S04387 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
05735  M02S04387.ns2090  ---|          SETMS  WRITE,(NF,RW),WDSB
Line S00192 Modification History
M01 (Added by) ns2090
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05736  M02S00192.242l642 ---|          SETMS  WRITE,RW,WDSB
05737  M01S00341.242l642 +++|          SETMS  IO,RW,WDSB
05738  M01S04388.1ms     +++|          UJN    RMS7        BUILD TRACK TABLE
05739  M01S04389.1ms     +++|
Line S04390 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05740  M02S04390.242l642 ---| RMS6     SETMS  WRITE,NF,WDSB
Line S04391 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05741  M02S04391.242l642 ---| RMS7     LDD    T6
05742  M01S00342.242l642 +++| RMS6     SETMS  IO,NF,WDSB
05743  M01S00343.242l642 +++| RMS7     LDM    SLM
05744  M01S00344.242l642 +++|          STM    WTBZ
05745  M01S00345.242l642 +++|          LDD    T6
05746  M01S04392.1ms     +++|          LJM    RMS8        BUILD TRACK TABLE
05747  M01S04393.1ms     +++|*         LJM    RMS15       (BYPASS TRACK LINK SEARCH)
05748  M01S04394.1ms     +++| RMSA     EQU    *-1
05749  M01S04395.1ms     +++| SMA      SPACE  4,10
05750  M01S04396.1ms     +++|**        SMA - SET MASS STORAGE ALLOCATION (*MSAL*) PARAMETER.
05751  M01S04397.1ms     +++|*
05752  M01S04398.1ms     +++|*         ENTRY  (BS - BS+4) = FET+0.
05753  M01S04399.1ms     +++|*
05754  M01S04400.1ms     +++|*         EXIT   (A) = *MSAL* PARAMETER.
05755  M01S04401.1ms     +++|*
05756  M01S04402.1ms     +++|*         USES   T1.
05757  M01S04403.1ms     +++|
05758  M01S04404.1ms     +++|
Line S04405 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05759  M02S04405.242l642 ---| SMA2     LDM    4,T1        GET *MSAL* PARAMETER
05760  M01S00346.242l642 +++| SMA2     MJN    SMA1        IF SEARCH NAME IS BEYOND CURRENT ENTRY
05761  M01S00347.242l642 +++|          LDN    LOCS        RETURN *MSAL* SELECTION
05762  M01S04406.1ms     +++|
05763  M01S04407.1ms     +++| SMA      SUBR               ENTRY/EXIT
Line S04408 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05764  M02S04408.242l642 ---|          LDC    TSFN-5
Line S04409 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05765  M02S04409.242l642 ---|          STD    T1
Line S04410 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05766  M02S04410.242l642 ---| SMA1     LDN    5
05767  M01S00348.242l642 +++|          LDC    TSFN-TSFNL
05768  M01S00349.242l642 +++|          STD    T1
05769  M01S00350.242l642 +++| SMA1     LDN    TSFNL
05770  M01S04411.1ms     +++|          RAD    T1
05771  M01S04412.1ms     +++|          LDI    T1
Line S04413 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05772  M02S04413.242l642 ---|          ZJN    SMA2        IF END OF TABLE
Line S04414 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05773  M02S04414.242l642 ---|          LMD    BS
Line S04415 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05774  M02S04415.242l642 ---|          NJN    SMA1        IF NAMES DO NOT MATCH
05775  M01S00351.242l642 +++|          SBD    BS
05776  M01S00352.242l642 +++|          NJN    SMA2        IF NO MATCH ON FIRST TWO CHARACTERS
05777  M01S04416.1ms     +++|          LDM    1,T1
05778  M01S04417.1ms     +++|          LMD    BS+1
05779  M01S04418.1ms     +++|          NJN    SMA1        IF NAMES DO NOT MATCH
05780  M01S04419.1ms     +++|          LDM    2,T1
05781  M01S04420.1ms     +++|          LMD    BS+2
05782  M01S04421.1ms     +++|          NJN    SMA1        IF NAMES DO NOT MATCH
05783  M01S04422.1ms     +++|          LDM    3,T1
05784  M01S04423.1ms     +++|          LMD    BS+3
05785  M01S04424.1ms     +++|          SCN    77
05786  M01S04425.1ms     +++|          NJN    SMA1        IF NAMES DO NOT MATCH
Line S04426 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05787  M02S04426.242l642 ---|          UJN    SMA2        SET *MSAL* PARAMETER
05788  M01S00353.242l642 +++|          LDM    3,T1
05789  M01S00354.242l642 +++|          LPN    77
05790  M01S00355.242l642 +++|          UJN    SMAX        RETURN *MSAL* SELECTION
05791  M01S04427.1ms     +++| TSFN     SPACE  4,10
05792  M01S04428.1ms     +++|**        TSFN - TABLE OF SPECIAL FILE NAMES.
05793  M01S00356.242l642 +++|*         TABLE MUST BE ARRANGED IN ASCENDING ORDER.
05794  M01S04429.1ms     +++|*
05795  M01S04430.1ms     +++|*         ONE CM WORD PER ENTRY -
Line S04431 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05796  M02S04431.242l642 ---|*T        42/ FN, 6/0, 12/ MP
Figure

01112171829 MP0 FN3059 FN

05797  M01S00357.242l642 +++|*T        42/  FN,6/  MP
Figure

05629 MP FN3047 FN

05798  M01S04432.1ms     +++|*         FN     FILE NAME.
05799  M01S04433.1ms     +++|*         MP     *MSAL* PARAMETER.
05800  M01S04434.1ms     +++|
05801  M01S04435.1ms     +++|
05802  M01S04436.1ms     +++| TSFN     BSS    0
Line S04437 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05803  M02S04437.242l642 ---|          VFD    42/0LLGO,6/0,12/LGOS  LGO FILE
Line S04438 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05804  M02S04438.242l642 ---|          VFD    42/0LOUTPUT,6/0,12/OUTS
Line S04439 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05805  M02S04439.242l642 ---|          VFD    42/0LPUNCH,6/0,12/OUTS
Line S04440 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05806  M02S04440.242l642 ---|          VFD    42/0LPUNCHB,6/0,12/OUTS
Line S04441 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05807  M02S04441.242l642 ---|          VFD    42/0LP8,6/0,12/OUTS
Line S04442 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05808  M02S04442.242l642 ---|          VFD    42/0,6/0,12/LOCS      OTHER MS FILE
05809  M01S00358.242l642 +++| TSFNL    EQU    4
05810  M01S00359.242l642 +++|          VFD    42/0LLGO,6/LGOS
05811  M01S00360.242l642 +++|          VFD    42/0LOUTPUT,6/OUTS
05812  M01S00361.242l642 +++|          VFD    42/0LPUNCH,6/OUTS
05813  M01S00362.242l642 +++|          VFD    42/0LPUNCHB,6/OUTS
05814  M01S00363.242l642 +++|          VFD    42/0LP8,6/OUTS
05815  M01S00364.242l642 +++|          CON    7777        TERMINATE TABLE
05816  M01S04443.1ms     +++|          SPACE  4,10
05817  M01S00024.1ms4    +++|          SPACE  4,10
05818  M01S00025.1ms4    +++|**        COMMON DECKS.
05819  M01S00026.1ms4    +++|
05820  M01S00027.1ms4    +++|
05821  M01S00028.1ms4    +++|*CALL     COMPRJC
05822  M01S00029.1ms4    +++| EJT$     EQU    1           DEFINE EJT ACCESS
05823  M01S00030.1ms4    +++|*CALL     COMPGFP
05824  M01S04444.1ms     +++|          OVERFLOW  MSDO,BFMS
05825  M01S04445.1ms     +++| PMS      OVERLAY (POSITION MASS STORAGE.),MSDO
05826  M01S04446.1ms     +++| PMS      SPACE  4,10
05827  M01S04447.1ms     +++|**        DIRECT LOCATION ASSIGNMENTS.
05828  M01S04448.1ms     +++|
05829  M01S04449.1ms     +++|
05830  M01S04450.1ms     +++| BI       EQU    35          BACKSPACE INDEX
05831  M01S04451.1ms     +++| RI       EQU    36 - 37     RANDOM INDEX (2 LOCATIONS)
Line S04452 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05832  M02S04452.242l642 ---| PA       EQU    46          PROCESSOR ADDRESS
05833  M01S04453.1ms     +++| PMS      SPACE  4,10
05834  M01S04454.1ms     +++|**        PMS - POSITION MASS STORAGE MAIN ROUTINE.
05835  M01S04455.1ms     +++|
05836  M01S04456.1ms     +++|
05837  M01S04457.1ms     +++| PMS      SUBR               ENTRY/EXIT
05838  M01S04458.1ms     +++|          LJM    PRS         PRESET
05839  M01S00365.242l642 +++| MSR      SPACE  4,10
05840  M01S00366.242l642 +++|**        MSR - PROCESS MASS STORAGE ERROR FROM *COMPRNS*.
05841  M01S00367.242l642 +++|
05842  M01S00368.242l642 +++|
05843  M01S00369.242l642 +++| MSR      SUBR
05844  M01S00370.242l642 +++|          LDD    T6          SET CURRENT TRACK
05845  M01S00371.242l642 +++|          STD    FS+2
05846  M01S00372.242l642 +++|          LDD    T7          SET CURRENT SECTOR
05847  M01S00373.242l642 +++|          STD    FS+3
05848  M01S00374.242l642 +++|          RJM    CDA         CHECK DEVICE (ERROR PROCESSOR RETURNS)
05849  M01S00375.242l642 +++|          UJN    MSRX        RETURN
05850  M01S04459.1ms     +++| SRC      SPACE  4,10
05851  M01S04460.1ms     +++|**        SRC - SET RECALL CONDITIONS.
05852  M01S04461.1ms     +++|*
05853  M01S04462.1ms     +++|*         EXIT   (FS+2) = UPDATED CURRENT TRACK.
05854  M01S04463.1ms     +++|*                (FS+3) = UPDATED CURRENT SECTOR.
05855  M01S04464.1ms     +++|*                TO *PMSX* TO ENTER RECALL STACK.
05856  M01S04465.1ms     +++|*                TO *ERR* IF ERROR FLAG TERMINATION.
05857  M01S04466.1ms     +++|*
05858  M01S04467.1ms     +++|*         CALLS  CET.
05859  M01S04468.1ms     +++|*
05860  M01S04469.1ms     +++|*         MACROS ENDMS.
05861  M01S04470.1ms     +++|
05862  M01S04471.1ms     +++|
05863  M01S04472.1ms     +++| SRC      BSS    0           ENTRY
05864  M01S04473.1ms     +++|          ENDMS              END MASS STORAGE OPERATION
05865  M01S04474.1ms     +++|          LDD    T6          SET CURRENT TRACK
05866  M01S04475.1ms     +++|          STD    FS+2
05867  M01S04476.1ms     +++|          LDD    T7          SET CURRENT SECTOR
05868  M01S04477.1ms     +++|          STD    FS+3
05869  M01S04478.1ms     +++|          RJM    CET         CHECK ERROR FLAG TERMINATION
05870  M01S04479.1ms     +++|          AOM    COCA        SET RECALL STACK FLAG
Line S04480 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05871  M02S04480.242l642 ---|          UJN    PMSX        EXIT
05872  M01S00376.242l642 +++| SRC1     UJN    PMSX        RETURN
05873  M01S04481.1ms     +++| SFP      SPACE  4,20
05874  M01S04482.1ms     +++|**        SFP - SET FILE POSITION.
05875  M01S04483.1ms     +++|*
05876  M01S04484.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
05877  M01S04485.1ms     +++|*                (FO) = FET OPTIONS.
05878  M01S04486.1ms     +++|*                (T6) = CURRENT TRACK.
05879  M01S04487.1ms     +++|*                (T7) = CURRENT SECTOR.
05880  M01S04488.1ms     +++|*                (FS - FS+4) = FST ENTRY.
Line S04489 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05881  M02S04489.242l642 ---|*                (RI - RI+1) = RANDOM ADDRESS.
05882  M01S00377.242l642 +++|*                (RI - RI+1) = RANDOM ADDRESS IF *SFPA* SET AND
05883  M01S00378.242l642 +++|*                            RANDOM FET.
05884  M01S04490.1ms     +++|*
05885  M01S04491.1ms     +++|*         EXIT   (FS - FS+4) = ADVANCED FST ENTRY.
05886  M01S04492.1ms     +++|*                TO *PMSX*.
05887  M01S04493.1ms     +++|*
05888  M01S04494.1ms     +++|*         USES   DP - DP+4.
05889  M01S04495.1ms     +++|*
05890  M01S04496.1ms     +++|*         CALLS  SRA.
05891  M01S04497.1ms     +++|*
05892  M01S04498.1ms     +++|*         MACROS CFET.
05893  M01S04499.1ms     +++|
05894  M01S04500.1ms     +++|
05895  M01S04501.1ms     +++| SFP      BSS    0           ENTRY
05896  M01S04502.1ms     +++|          LDD    T6          SET CURRENT TRACK
05897  M01S04503.1ms     +++|          STD    FS+2
05898  M01S04504.1ms     +++|          LDD    T7          SET CURRENT SECTOR
05899  M01S04505.1ms     +++|          STD    FS+3
05900  M01S04506.1ms     +++|          LDN    ZERL
05901  M01S04507.1ms     +++|          CRD    DP
05902  M01S04508.1ms     +++|          LDD    FO          CHECK FET STATUS
05903  M01S04509.1ms     +++|          SHN    6
Line S04510 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05904  M02S04510.242l642 ---|          PJN    PMSX        IF NOT RANDOM FET
Line S04511 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05905  M02S04511.242l642 ---|          LDD    FC          CHECK FUNCTION
Line S04512 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05906  M02S04512.242l642 ---|          SHN    -7
Line S04513 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05907  M02S04513.242l642 ---|          LPN    7
Line S04514 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05908  M02S04514.242l642 ---|          ZJN    SFP1        IF READ/WRITE
05909  M01S00379.242l642 +++|          PJN    SRC1        IF NOT RANDOM FET
05910  M01S00380.242l642 +++| SFPA     LDN    0
05911  M01S00381.242l642 +++|          NJN    SFP1        IF RANDOM ADDRESS IS PRESET
05912  M01S04515.1ms     +++|          LDD    FS+2        CHECK FILE
05913  M01S04516.1ms     +++|          ZJN    SFP1        IF FILE NOT USED
05914  M01S04517.1ms     +++|          LDD    FS+1        SET RANDOM ADDRESS
05915  M01S04518.1ms     +++|          RJM    SRA
05916  M01S04519.1ms     +++| SFP1     LDM    ERRA        CHECK MS ERROR OCCURRED
05917  M01S04520.1ms     +++|          ZJN    SFP2        IF NO ERROR
05918  M01S04521.1ms     +++|          CFET   6           MERGE RANDOM ADDRESS
05919  M01S04522.1ms     +++|          CRD    DP
05920  M01S04523.1ms     +++| SFP2     LDD    RI+1        ENTER CURRENT RANDOM ADDRESS
05921  M01S04524.1ms     +++|          SHN    6
05922  M01S04525.1ms     +++|          STD    DP+2
05923  M01S04526.1ms     +++|          SHN    -14
05924  M01S04527.1ms     +++|          STD    DP+1
05925  M01S04528.1ms     +++|          LDD    RI
05926  M01S04529.1ms     +++|          SHN    6
05927  M01S04530.1ms     +++|          RAD    DP+1
05928  M01S04531.1ms     +++|          SHN    -14
05929  M01S04532.1ms     +++|          STD    DP
05930  M01S04533.1ms     +++|          CFET   6           STORE RANDOM ACCESS WORD
05931  M01S04534.1ms     +++|          CWD    DP
05932  M01S04535.1ms     +++|          LJM    PMSX        EXIT
Line S04536 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05933  M02S04536.242l642 ---|          TITLE  RANDOM ACCESS PROCESSORS.
Line S04537 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05934  M02S04537.242l642 ---| RRD      SPACE  4,15
Line S04538 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05935  M02S04538.242l642 ---|**        RRD - PROCESS RANDOM READ.
Line S04539 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05936  M02S04539.242l642 ---|*
Line S04540 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05937  M02S04540.242l642 ---|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
Line S04541 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05938  M02S04541.242l642 ---|*                (DP - DP+4) = (FET+6).
Line S04542 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05939  M02S04542.242l642 ---|*                (FS - FS+4) = FST ENTRY.
Line S04543 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05940  M02S04543.242l642 ---|*
Line S04544 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05941  M02S04544.242l642 ---|*         EXIT   (FS - FS+4) = ADVANCED FST ENTRY.
Line S04545 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05942  M02S04545.242l642 ---|*                (RI - RI+1) = RANDOM ADDRESS.
Line S04546 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05943  M02S04546.242l642 ---|*                TO *SFP* TO COMPLETE PROCESSING.
Line S04547 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05944  M02S04547.242l642 ---|*
Line S04548 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05945  M02S04548.242l642 ---|*         ERROR  TO *ERR* IF RANDOM ADDRESS ERROR.
Line S04549 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05946  M02S04549.242l642 ---|*
Line S04550 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05947  M02S04550.242l642 ---|*         CALLS  CRA.
Line S04551 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05948  M02S04551.242l642 ---|*
Line S04552 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05949  M02S04552.242l642 ---|*         MACROS ERROR.
Line S04553 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05950  M02S04553.242l642 ---|
Line S04554 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05951  M02S04554.242l642 ---|
Line S04555 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05952  M02S04555.242l642 ---| RRD2     LDD    FC
Line S04556 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05953  M02S04556.242l642 ---|          LPC    1700
Line S04557 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05954  M02S04557.242l642 ---|          ZJN    RRD3        IF READ
Line S04558 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05955  M02S04558.242l642 ---|          LDD    FS+4        SET LAST OPERATION COMPLETE WRITE
Line S04559 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05956  M02S04559.242l642 ---|          SCN    16
Line S04560 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05957  M02S04560.242l642 ---|          LMN    6
Line S04561 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05958  M02S04561.242l642 ---|          STD    FS+4
Line S04562 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05959  M02S04562.242l642 ---| RRD3     LDD    DP+3        SET RANDOM ADDRESS
Line S04563 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05960  M02S04563.242l642 ---|          STD    RI
Line S04564 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05961  M02S04564.242l642 ---|          LDD    DP+4
Line S04565 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05962  M02S04565.242l642 ---|          STD    RI+1
Line S04566 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05963  M02S04566.242l642 ---|          LJM    SFP         PROCESS EXIT
Line S04567 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05964  M02S04567.242l642 ---|
Line S04568 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05965  M02S04568.242l642 ---| RRD      BSS    0           ENTRY
Line S04569 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05966  M02S04569.242l642 ---|          LDD    DP+3        SET RANDOM ADDRESS
Line S04570 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05967  M02S04570.242l642 ---|          STD    RI
Line S04571 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05968  M02S04571.242l642 ---|          LDD    DP+4
Line S04572 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05969  M02S04572.242l642 ---|          STD    RI+1
Line S04573 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05970  M02S04573.242l642 ---|          LDD    FS+2
Line S04574 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05971  M02S04574.242l642 ---|          ZJN    RRD1        IF FILE NOT WRITTEN ON
Line S04575 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05972  M02S04575.242l642 ---|          LDD    FS+1        SET FIRST TRACK
Line S04576 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05973  M02S04576.242l642 ---|          STD    T6
Line S04577 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05974  M02S04577.242l642 ---|          RJM    CRA         CONVERT RANDOM ADDRESS
Line S04578 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05975  M02S04578.242l642 ---|          PJN    RRD2        IF SECTOR ON FILE
Line S04579 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05976  M02S04579.242l642 ---| RRD1     ERROR  RAD         *RANDOM ADDRESS NOT ON FILE*
Line S04580 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05977  M02S04580.242l642 ---| RWT      SPACE  4,20
Line S04581 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05978  M02S04581.242l642 ---|**        RWT - PROCESS RANDOM WRITE.
Line S04582 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05979  M02S04582.242l642 ---|*
Line S04583 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05980  M02S04583.242l642 ---|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
Line S04584 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05981  M02S04584.242l642 ---|*                (DP - DP+4) = (FET+6).
Line S04585 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05982  M02S04585.242l642 ---|*                (FS - FS+4) = FST ENTRY.
Line S04586 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05983  M02S04586.242l642 ---|*
Line S04587 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05984  M02S04587.242l642 ---|*         EXIT   (FC) = UPDATED INTERNAL *CIO* FUNCTION CODE.
Line S04588 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05985  M02S04588.242l642 ---|*                (RI - RI+1) = RANDOM ADDRESS.
Line S04589 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05986  M02S04589.242l642 ---|*                TO *RRD* IF REWRITE OPERATION.
Line S04590 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05987  M02S04590.242l642 ---|*                TO *SFP* IF RANDOM WRITE AT EOI.
Line S04591 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05988  M02S04591.242l642 ---|*
Line S04592 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05989  M02S04592.242l642 ---|*         USES   T2, T3, T6, CM - CM+4.
Line S04593 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05990  M02S04593.242l642 ---|*
Line S04594 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05991  M02S04594.242l642 ---|*         CALLS  SEI.
Line S04595 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05992  M02S04595.242l642 ---|*
Line S04596 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05993  M02S04596.242l642 ---|*         MACROS ERROR.
Line S04597 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05994  M02S04597.242l642 ---|
Line S04598 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05995  M02S04598.242l642 ---|
Line S04599 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05996  M02S04599.242l642 ---| RWT      BSS    0           ENTRY
Line S04600 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05997  M02S04600.242l642 ---|          LDD    FC
Line S04601 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05998  M02S04601.242l642 ---|          SHN    21-12
Line S04602 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05999  M02S04602.242l642 ---|          MJN    RRD         IF REWRITE FUNCTION
Line S04603 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06000  M02S04603.242l642 ---|          LDD    DP+2        CHECK FOR REWRITE
Line S04604 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06001  M02S04604.242l642 ---|          LPN    40
Line S04605 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06002  M02S04605.242l642 ---|          ZJN    RWT1        IF NOT REWRITE IN PLACE
Line S04606 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06003  M02S04606.242l642 ---|          LDD    FC          SET REWRITE FLAG IN FUNCTION CODE
Line S04607 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06004  M02S04607.242l642 ---|          LPC    5777
Line S04608 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06005  M02S04608.242l642 ---|          LMC    2000
Line S04609 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06006  M02S04609.242l642 ---|          STD    FC
Line S04610 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06007  M02S04610.242l642 ---|          STM    ICFC
Line S04611 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06008  M02S04611.242l642 ---|          UJN    RRD         CONVERT RANDOM ADDRESS
Line S04612 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06009  M02S04612.242l642 ---|
Line S04613 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06010  M02S04613.242l642 ---|*         RANDOM WRITE AT END OF INFORMATION.
Line S04614 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06011  M02S04614.242l642 ---|
Line S04615 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06012  M02S04615.242l642 ---| RWT1     LDD    DP+3        CHECK RETURN ADDRESS
Line S04616 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06013  M02S04616.242l642 ---|          LPN    37
Line S04617 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06014  M02S04617.242l642 ---|          STD    DP+3
Line S04618 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06015  M02S04618.242l642 ---|          SHN    14
Line S04619 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06016  M02S04619.242l642 ---|          LMD    DP+4
Line S04620 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06017  M02S04620.242l642 ---|          SBN    2
Line S04621 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06018  M02S04621.242l642 ---|          MJN    RWT2        IF .LT. 2
Line S04622 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06019  M02S04622.242l642 ---|          ADN    2
Line S04623 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06020  M02S04623.242l642 ---|          SHN    -6
Line S04624 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06021  M02S04624.242l642 ---|          SBD    FL
Line S04625 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06022  M02S04625.242l642 ---|          MJN    RWT3        IF .LT. FL
Line S04626 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06023  M02S04626.242l642 ---| RWT2     ERROR  RWT         *INDEX ADDRESS OUT OF RANGE*
Line S04627 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06024  M02S04627.242l642 ---|
Line S04628 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06025  M02S04628.242l642 ---| RWT3     LDD    FS+2        CHECK CURRENT TRACK
Line S04629 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06026  M02S04629.242l642 ---|          NJN    RWT4        IF FILE USED
Line S04630 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06027  M02S04630.242l642 ---|          STD    T2          SET FIRST SECTOR
Line S04631 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06028  M02S04631.242l642 ---|          LDN    FSMS
Line S04632 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06029  M02S04632.242l642 ---|          STD    T3
Line S04633 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06030  M02S04633.242l642 ---|          UJN    RWT5        UPDATE RESPONSE WORD
Line S04634 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06031  M02S04634.242l642 ---|
Line S04635 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06032  M02S04635.242l642 ---| RWT4     LDD    FS+1        SEARCH FOR EOI
Line S04636 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06033  M02S04636.242l642 ---|          STD    T6
Line S04637 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06034  M02S04637.242l642 ---|          RJM    SEI
Line S04638 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06035  M02S04638.242l642 ---| RWT5     LDD    DP+3        READ RESPONSE WORD
Line S04639 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06036  M02S04639.242l642 ---|          SHN    6
Line S04640 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06037  M02S04640.242l642 ---|          ADD    RA
Line S04641 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06038  M02S04641.242l642 ---|          SHN    6
Line S04642 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06039  M02S04642.242l642 ---|          ADD    DP+4
Line S04643 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06040  M02S04643.242l642 ---|          CRD    CM
Line S04644 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06041  M02S04644.242l642 ---|          LDD    T2          SET RANDOM INDEX
Line S04645 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06042  M02S04645.242l642 ---|          STD    CM+3
Line S04646 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06043  M02S04646.242l642 ---|          STD    RI
Line S04647 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06044  M02S04647.242l642 ---|          LDD    T3
Line S04648 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06045  M02S04648.242l642 ---|          STD    CM+4
Line S04649 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06046  M02S04649.242l642 ---|          STD    RI+1
Line S04650 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06047  M02S04650.242l642 ---|          LDD    DP+3        STORE RESPONSE WORD
Line S04651 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06048  M02S04651.242l642 ---|          SHN    6
Line S04652 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06049  M02S04652.242l642 ---|          ADD    RA
Line S04653 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06050  M02S04653.242l642 ---|          SHN    6
Line S04654 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06051  M02S04654.242l642 ---|          ADD    DP+4
Line S04655 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06052  M02S04655.242l642 ---|          CWD    CM
Line S04656 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06053  M02S04656.242l642 ---|          LJM    SFP         EXIT
06054  M01S04657.1ms     +++|          TITLE  SKIP/OPEN FUNCTION PROCESSORS.
06055  M01S04658.1ms     +++| BKS      SPACE  4,15
06056  M01S04659.1ms     +++|**        BKS - BACKSPACE SECTOR.
06057  M01S04660.1ms     +++|*
06058  M01S04661.1ms     +++|*         ENTRY  (T6) = CURRENT TRACK.
06059  M01S04662.1ms     +++|*                (T7) = CURRENT SECTOR.
06060  M01S04663.1ms     +++|*                (FS - FS+4) = FST ENTRY.
06061  M01S04664.1ms     +++|*
06062  M01S04665.1ms     +++|*         EXIT   (T6) = UPDATED CURRENT TRACK.
06063  M01S04666.1ms     +++|*                (T7) = UPDATED CURRENT SECTOR.
06064  M01S04667.1ms     +++|*                TO *SFS* IF BOI ENCOUNTERED.
06065  M01S04668.1ms     +++|*                TO *SFS2* IF PRU BACKSPACE COMPLETE.
06066  M01S04669.1ms     +++|*
06067  M01S04670.1ms     +++|*         CALLS  BOT, DSC.
06068  M01S04671.1ms     +++|
06069  M01S04672.1ms     +++|
06070  M01S04673.1ms     +++| BKS      BSS    0           ENTRY
06071  M01S04674.1ms     +++|          LDD    T6          CHECK CURRENT TRACK
06072  M01S04675.1ms     +++|          LMD    FS+1
06073  M01S04676.1ms     +++|          NJN    BKS1        IF NOT FIRST TRACK
06074  M01S04677.1ms     +++|          LDD    T7          CHECK CURRENT SECTOR
06075  M01S04678.1ms     +++|          LMN    FSMS
06076  M01S04679.1ms     +++|          ZJN    SFS         IF FIRST SECTOR
06077  M01S04680.1ms     +++| BKS1     SOD    T7          DECREMENT SECTOR
06078  M01S04681.1ms     +++|          PJN    BKS2        IF SAME TRACK
06079  M01S04682.1ms     +++|          RJM    BOT         BACK UP ONE TRACK
06080  M01S04683.1ms     +++|          SBN    1           SET LAST SECTOR
06081  M01S04684.1ms     +++|          STD    T7
06082  M01S04685.1ms     +++| BKS2     RJM    DSC         DECREMENT SKIP COUNT
06083  M01S04686.1ms     +++|          NJN    BKS         IF SKIP NOT COMPLETE
06084  M01S04687.1ms     +++|          UJN    SFS2        SET FST STATUS
06085  M01S04688.1ms     +++| SFS      SPACE  4,10
06086  M01S04689.1ms     +++|**        SFS - SET FILE STATUS.
06087  M01S04690.1ms     +++|*
06088  M01S04691.1ms     +++|*         ENTRY  (A) = FST STATUS IF ENTRY AT *SFS2*.
06089  M01S04692.1ms     +++|*                AT *SFS* TO SET BOI STATUS IN FET.
06090  M01S04693.1ms     +++|*                AT *SFS1* TO SET EOR FST STATUS.
06091  M01S04694.1ms     +++|*                AT *SFS2* TO STORE FST STATUS.
06092  M01S04695.1ms     +++|*
06093  M01S04696.1ms     +++|*         EXIT   (FS+4) = FST STATUS.
06094  M01S04697.1ms     +++|*                TO *SFP*.
06095  M01S04698.1ms     +++|
06096  M01S04699.1ms     +++|
06097  M01S04700.1ms     +++| SFS      BSS    0           ENTRY
06098  M01S04701.1ms     +++|          LDD    BS+4        SET REWIND FUNCTION STATUS
06099  M01S04702.1ms     +++|          LPN    2
06100  M01S04703.1ms     +++|          ADN    50
06101  M01S04704.1ms     +++|          STD    BS+4
06102  M01S04705.1ms     +++|          LDC    LDNI        DISABLE FET STATUS UPDATE
06103  M01S04706.1ms     +++|          STM    UFSA
06104  M01S04707.1ms     +++|
06105  M01S04708.1ms     +++|*         SET EOR STATUS IN FST.
06106  M01S04709.1ms     +++|
06107  M01S04710.1ms     +++| SFS1     LDN    /CIO/EOR    SET EOR FST STATUS
06108  M01S04711.1ms     +++|
06109  M01S04712.1ms     +++|*         SET STATUS IN FST.
06110  M01S04713.1ms     +++|
06111  M01S04714.1ms     +++| SFS2     STD    FS+4        STORE FST STATUS
06112  M01S04715.1ms     +++|          LJM    SFP         EXIT
06113  M01S04716.1ms     +++| SKB      SPACE  4,15
06114  M01S04717.1ms     +++|**        SKB - SKIP RECORD/FILE BACKWARD.
06115  M01S04718.1ms     +++|*
06116  M01S04719.1ms     +++|*         ENTRY  (T6) = CURRENT TRACK.
06117  M01S04720.1ms     +++|*                (T7) = CURRENT SECTOR.
06118  M01S04721.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION CODE.
06119  M01S04722.1ms     +++|*                (FS - FS+4) = FST ENTRY.
06120  M01S04723.1ms     +++|*
06121  M01S04724.1ms     +++|*         EXIT   (T6) = UPDATED CURRENT TRACK.
06122  M01S04725.1ms     +++|*                (T7) = UPDATED CURRENT SECTOR.
06123  M01S04726.1ms     +++|*                TO *SFS* IF BOI ENCOUNTERED.
06124  M01S04727.1ms     +++|*                TO *SFS1* OR *SFS2* IF SKIP COMPLETE.
06125  M01S04728.1ms     +++|*
Line S04729 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06126  M02S04729.242l642 ---|*         CALLS  BKR, DSC.
06127  M01S00382.242l642 +++|*         CALLS  BKR, DSC, SMS.
06128  M01S04730.1ms     +++|
06129  M01S04731.1ms     +++|
06130  M01S04732.1ms     +++| SKB      BSS    0           ENTRY
Line S04733 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06131  M02S04733.242l642 ---|          LDD    T6          CHECK CURRENT TRACK
06132  M01S00383.242l642 +++|          RJM    SMS         LOAD MASS STORAGE DRIVER
06133  M01S00384.242l642 +++| SKB0     LDD    T6          CHECK CURRENT TRACK
06134  M01S04734.1ms     +++|          LMD    FS+1
06135  M01S04735.1ms     +++|          NJN    SKB1        IF NOT FIRST TRACK
06136  M01S04736.1ms     +++|          LDD    T7          CHECK CURRENT SECTOR
06137  M01S04737.1ms     +++|          LMN    FSMS
06138  M01S04738.1ms     +++|          ZJN    SFS         IF FIRST SECTOR
06139  M01S04739.1ms     +++| SKB1     RJM    BKR         BACKSPACE RECORD
06140  M01S04740.1ms     +++|          LDD    FC
06141  M01S04741.1ms     +++|          LPN    14
06142  M01S04742.1ms     +++|          LMN    /CIO/EOF
06143  M01S04743.1ms     +++|          NJN    SKB2        IF NOT SKIP TO EOF
06144  M01S04744.1ms     +++|          LDD    T1
06145  M01S04745.1ms     +++|          SHN    21-13
Line S04746 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06146  M02S04746.242l642 ---|          PJN    SKB         IF NOT EOF
06147  M01S00385.242l642 +++|          PJN    SKB0        IF NOT EOF
06148  M01S04747.1ms     +++| SKB2     RJM    DSC         DECREMENT SKIP COUNT
Line S04748 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06149  M02S04748.242l642 ---|          NJN    SKB         IF SKIP NOT COMPLETE
06150  M01S00386.242l642 +++|          NJN    SKB0        IF SKIP NOT COMPLETE
06151  M01S04749.1ms     +++|          LDD    T1          GET EOF INDICATOR
06152  M01S04750.1ms     +++|          SHN    0-13
06153  M01S04751.1ms     +++|          ZJN    SFS1        IF NOT EOF
06154  M01S04752.1ms     +++|          LDN    /CIO/EOF
06155  M01S04753.1ms     +++|          UJN    SFS2        SET FST STATUS
06156  M01S04754.1ms     +++| SKF      SPACE  4,15
06157  M01S04755.1ms     +++|**        SKF - SKIP RECORD/FILE FORWARD.
06158  M01S04756.1ms     +++|*
06159  M01S04757.1ms     +++|*         ENTRY  (T6) = CURRENT TRACK.
06160  M01S04758.1ms     +++|*                (T7) = CURRENT SECTOR.
06161  M01S04759.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION CODE.
06162  M01S04760.1ms     +++|*
06163  M01S04761.1ms     +++|*         EXIT   (PC) = PRU COUNT.
06164  M01S04762.1ms     +++|*                TO *SFP* IF SKIP COMPLETE.
06165  M01S04763.1ms     +++|*                TO *SRC* TO ENTER RECALL STACK.
06166  M01S04764.1ms     +++|*
Line S04765 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06167  M02S04765.242l642 ---|*         CALLS  CRT, DSC, RNS.
06168  M01S00387.242l642 +++|*         CALLS  CRT, DSC, RNS, SMS.
06169  M01S04766.1ms     +++|*
06170  M01S04767.1ms     +++|*         MACROS ENDMS.
06171  M01S04768.1ms     +++|
06172  M01S04769.1ms     +++|
06173  M01S04770.1ms     +++| SKF5     LCN    0           RESET PRU COUNT
06174  M01S04771.1ms     +++|          STD    PC
06175  M01S04772.1ms     +++|          LJM    SRC         SET RECALL CONDITIONS
06176  M01S04773.1ms     +++|
06177  M01S04774.1ms     +++| SKF      BSS    0           ENTRY
Line S04775 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06178  M02S04775.242l642 ---| SKFA     LDD    T7          CHECK FOR NEW ENTRY
06179  M01S00388.242l642 +++|          RJM    SMS         LOAD MASS STORAGE DRIVER
06180  M01S00389.242l642 +++| SKF0     LDD    T7          CHECK FOR NEW ENTRY
06181  M01S00390.242l642 +++| SKFA     EQU    *-1
06182  M01S04776.1ms     +++|*         LJM    SFP         (MASS STORAGE ERROR)
06183  M01S04777.1ms     +++|          NJN    SKF1        IF NOT NEW TRACK
06184  M01S04778.1ms     +++|          RJM    CRT         CHECK RECALL TIME
06185  M01S04779.1ms     +++| SKF1     AOD    PC          INCREMENT PRU COUNT
06186  M01S04780.1ms     +++|          SHN    -14
06187  M01S04781.1ms     +++|          NJN    SKF5        IF PRU COUNT EXCEEDS 12 BITS
06188  M01S04782.1ms     +++|          LDC    BFMS+DTSF   READ NEXT SECTOR HEADER WORD
06189  M01S04783.1ms     +++|          RJM    RNS
06190  M01S04784.1ms     +++|          SHN    -6
Line S04785 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06191  M02S04785.242l642 ---|          NJN    SKF         IF NOT EOR
06192  M01S00391.242l642 +++|          NJN    SKF0        IF NOT EOR
06193  M01S04786.1ms     +++|          LDM    BFMS
06194  M01S04787.1ms     +++|          ADM    BFMS+1
06195  M01S04788.1ms     +++|          ZJN    SKF4        IF EOI
06196  M01S04789.1ms     +++|          LDD    FC
06197  M01S04790.1ms     +++|          LPN    14
06198  M01S04791.1ms     +++|          LMN    /CIO/EOF
06199  M01S04792.1ms     +++|          NJN    SKF2        IF NOT SKIP TO EOF
06200  M01S04793.1ms     +++|          LDM    BFMS
Line S04794 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06201  M02S04794.242l642 ---|          NJN    SKF         IF NOT EOF
06202  M01S00392.242l642 +++|          NJN    SKF0        IF NOT EOF
06203  M01S04795.1ms     +++| SKF2     RJM    DSC         DECREMENT SKIP COUNT
Line S04796 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06204  M02S04796.242l642 ---|          NJN    SKF         IF SKIP NOT COMPLETE
06205  M01S00393.242l642 +++|          NJN    SKF0        IF SKIP NOT COMPLETE
06206  M01S04797.1ms     +++|          LDM    BFMS
06207  M01S04798.1ms     +++|          ZJN    SKF3        IF EOF
06208  M01S04799.1ms     +++|          LDN    /CIO/EOR&/CIO/EOF
06209  M01S04800.1ms     +++| SKF3     LMN    /CIO/EOF&/CIO/EOI
06210  M01S04801.1ms     +++| SKF4     LMN    /CIO/EOI
06211  M01S04802.1ms     +++|          STD    FS+4        SET FST STATUS
06212  M01S04803.1ms     +++|          ENDMS              END MASS STORAGE OPERATION
06213  M01S04804.1ms     +++|          LJM    SFP         EXIT
06214  M01S04805.1ms     +++| SKP      SPACE  4,20
06215  M01S04806.1ms     +++|**        SKP - SKIP PROCESSOR.
06216  M01S04807.1ms     +++|*
06217  M01S04808.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
06218  M01S04809.1ms     +++|*                (T6) = CURRENT TRACK.
06219  M01S04810.1ms     +++|*                (T7) = CURRENT SECTOR.
06220  M01S04811.1ms     +++|*                (BS - BS+4) = (FET+0).
06221  M01S04812.1ms     +++|*                (FS - FS+4) = FST ENTRY.
06222  M01S04813.1ms     +++|*
06223  M01S04814.1ms     +++|*         EXIT   (BS+4) = REWIND STATUS IF BOI ENCOUNTERED ON
06224  M01S04815.1ms     +++|*                   BACKWARD SKIP.
06225  M01S04816.1ms     +++|*                (FS - FS+4) = UPDATED FST ENTRY.
06226  M01S04817.1ms     +++|*                TO *BKS* IF BACKSPACE PRU FUNCTION.
06227  M01S04818.1ms     +++|*                TO *SKB* IF BACKSPACE RECORD/FILE FUNCTION.
06228  M01S04819.1ms     +++|*                TO *SKF* IF SKIP RECORD/FILE FORWARD.
06229  M01S04820.1ms     +++|*                TO *SFP* IF FORWARD SKIP ON NULL FILE OR *SKIPEI*.
06230  M01S04821.1ms     +++|*                TO *SFS* IF BACKWARD SKIP ON NULL FILE.
06231  M01S04822.1ms     +++|*
06232  M01S04823.1ms     +++|*         USES   T1.
06233  M01S04824.1ms     +++|*
06234  M01S04825.1ms     +++|*         CALLS  CET, SEI.
06235  M01S04826.1ms     +++|
06236  M01S04827.1ms     +++|
06237  M01S04828.1ms     +++| SKP      BSS    0           ENTRY
06238  M01S04829.1ms     +++|          LDD    T6          CHECK CURRENT TRACK
06239  M01S04830.1ms     +++|          NJN    SKP1        IF FILE USED
06240  M01S04831.1ms     +++|          LDD    FC
06241  M01S04832.1ms     +++|          SHN    -13
Line S04833 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06242  M02S04833.242l642 ---|          ZJN    SKP2        IF SKIP FORWARD
06243  M01S00394.242l642 +++|          ZJN    SKP3        IF FORWARD SKIP
06244  M01S04834.1ms     +++|          LJM    SFS         SET BOI STATUS
06245  M01S04835.1ms     +++|
06246  M01S04836.1ms     +++| SKP1     RJM    CET         CHECK ERROR TERMINATION
06247  M01S04837.1ms     +++|          LDD    FC
06248  M01S04838.1ms     +++|          SHN    -13
06249  M01S04839.1ms     +++|          STD    T1          0 = SKIP FORWARD, 1 = SKIP BACKWARD
Line S04840 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06250  M02S04840.242l642 ---|          NJN    SKP3        IF BACKWARD SKIP
06251  M01S00395.242l642 +++|          NJN    SKP4        IF BACKWARD SKIP
06252  M01S04841.1ms     +++|          LDD    FC          CHECK FOR *SKIPEI*
06253  M01S04842.1ms     +++|          LPN    14
06254  M01S04843.1ms     +++|          LMN    /CIO/EOI
Line S04844 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06255  M02S04844.242l642 ---|          NJN    SKP4        IF NOT SKIP TO EOI
Line S04845 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06256  M02S04845.242l642 ---|          RJM    SEI         SEARCH FOR END OF INFORMATION
Line S04846 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06257  M02S04846.242l642 ---| SKP2     LDN    /CIO/EOI
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  M01S04847.1ms     +++|          STD    FS+4        SET EOI FST STATUS
06272  M01S04848.1ms     +++|          LJM    SFP         EXIT
06273  M01S04849.1ms     +++|
Line S04850 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06274  M02S04850.242l642 ---| SKP3     LDD    FC          CHECK TERMINATION CONDITION
Line S04851 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06275  M02S04851.242l642 ---|          LPN    14
Line S04852 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06276  M02S04852.242l642 ---|          ZJN    SKP4        IF BACKSPACE PRU
06277  M01S00409.242l642 +++| SKP4     LDD    FC          CHECK TERMINATION CONDITION
06278  M01S00410.242l642 +++|          LPN    14
06279  M01S00411.242l642 +++|          ZJN    SKP5        IF BACKSPACE PRU
06280  M01S04853.1ms     +++|          AOD    T1          2 = SKIP RECORD/FILE BACKWARD
06281  M01S04854.1ms     +++|          LDD    FS+3        INITIALIZE BACKSPACE SECTOR
06282  M01S04855.1ms     +++|          STM    BKRA
06283  M01S04856.1ms     +++|          LDD    FS+2        INITIALIZE BACKSPACE TRACK
06284  M01S04857.1ms     +++|          STM    BKRB
Line S04858 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06285  M02S04858.242l642 ---| SKP4     LDM    TSPA,T1     GET SKIP PROCESSOR ADDRESS
Line S04859 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06286  M02S04859.242l642 ---|          STD    PA
Line S04860 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06287  M02S04860.242l642 ---|          LJM    0,PA        PROCESS SKIP FUNCTION
06288  M01S00412.242l642 +++| SKP5     LDM    TSPA,T1
06289  M01S00413.242l642 +++|          STD    T1
06290  M01S00414.242l642 +++|          LJM    0,T1        PROCESS SKIP FUNCTION
06291  M01S04861.1ms     +++|
06292  M01S04862.1ms     +++|
06293  M01S04863.1ms     +++| TSPA     BSS    0           TABLE OF SKIP PROCESSOR ADDRESSES
06294  M01S04864.1ms     +++|          LOC    0
06295  M01S04865.1ms     +++|          CON    SKF         SKIP FORWARD
06296  M01S04866.1ms     +++|          CON    BKS         BACKSPACE PRU
06297  M01S04867.1ms     +++|          CON    SKB         SKIP RECORD/FILE BACKWARD
06298  M01S04868.1ms     +++|          LOC    *O
06299  M01S04869.1ms     +++| OPE      SPACE  4,15
06300  M01S04870.1ms     +++|**        OPE - OPEN FILE.
06301  M01S04871.1ms     +++|*
06302  M01S04872.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
06303  M01S04873.1ms     +++|*                (FO) = FET OPTIONS.
06304  M01S04874.1ms     +++|*
06305  M01S04875.1ms     +++|*         EXIT   TO *REW* IF OPEN/REWIND.
06306  M01S04876.1ms     +++|*                TO *SFP* IF OPEN/NO REWIND.
06307  M01S04877.1ms     +++|*
06308  M01S04878.1ms     +++|*         USES   CM - CM+4.
06309  M01S04879.1ms     +++|*
06310  M01S04880.1ms     +++|*         CALLS  LRI.
06311  M01S04881.1ms     +++|*
06312  M01S04882.1ms     +++|*         MACROS  CFET.
06313  M01S04883.1ms     +++|
06314  M01S04884.1ms     +++|
06315  M01S04885.1ms     +++| OPE      BSS    0           ENTRY
06316  M01S04886.1ms     +++|          LDD    FO          CHECK SPECIAL PROCESSING
06317  M01S04887.1ms     +++|          SHN    6
06318  M01S04888.1ms     +++|          PJN    OPE1        IF NOT RANDOM FILE
06319  M01S04889.1ms     +++|          LDM    FETL        CHECK FET LENGTH
06320  M01S04890.1ms     +++|          SBN    3
06321  M01S04891.1ms     +++|          MJN    OPE1        IF NO INDEX WORD IN FET
06322  M01S04892.1ms     +++|          RJM    LRI         LOAD RANDOM INDEX
06323  M01S04893.1ms     +++| OPE1     CFET   4           READ LIMIT
06324  M01S04894.1ms     +++|          CRD    CM
06325  M01S04895.1ms     +++|          LDN    1           SET PRU SIZE
06326  M01S04896.1ms     +++|          STD    CM+2
06327  M01S04897.1ms     +++|          LDD    CM+3
06328  M01S04898.1ms     +++|          LPN    37
06329  M01S04899.1ms     +++|          STD    CM+3
06330  M01S04900.1ms     +++|          CFET   4           STORE LIMIT
06331  M01S04901.1ms     +++|          CWD    CM
06332  M01S04902.1ms     +++|          LDM    CFNB        CLEAR FILE OPENED AND WRITTEN BITS
06333  M01S04903.1ms     +++|          LPN    71
06334  M01S04904.1ms     +++|          LMN    04          SET FILE OPENED STATUS
06335  M01S04905.1ms     +++|          STM    CFNB
06336  M01S04906.1ms     +++|          LDD    FC          CHECK FOR OPEN/REWIND OPERATION
06337  M01S04907.1ms     +++|          SHN    21-13
06338  M01S04908.1ms     +++|          PJN    OPE2        IF NO REWIND
06339  M01S04909.1ms     +++|          LJM    REW         REWIND FILE
06340  M01S04910.1ms     +++|
06341  M01S04911.1ms     +++| OPE2     LJM    SFP         RETURN
06342  M01S04912.1ms     +++|          TITLE  SKIP/OPEN SUBROUTINES.
06343  M01S04913.1ms     +++| BKR      SPACE  4,20
06344  M01S04914.1ms     +++|**        BKR - BACKSPACE RECORD.
06345  M01S04915.1ms     +++|*
06346  M01S04916.1ms     +++|*         ENTRY  (T4 - T7) = MS PARAMETERS.
06347  M01S04917.1ms     +++|*                (BI) = BACKSPACE INDEX.
06348  M01S04918.1ms     +++|*                (FS - FS+4) = FST ENTRY.
06349  M01S00415.242l642 +++|*                DRIVER PRESET.
06350  M01S04919.1ms     +++|*
06351  M01S04920.1ms     +++|*         EXIT   (BIT 13B OF T1) = 1 IF EOF.
06352  M01S04921.1ms     +++|*                (T6 - T7) UPDATED.
06353  M01S04922.1ms     +++|*                (BI) = ADVANCED BACKSPACE INDEX.
06354  M01S04923.1ms     +++|*                (PC) = ACCUMULATED PRUS TRANSFERRED COUNT.
06355  M01S04924.1ms     +++|*                (FS - FS+4) = UPDATED FST ENTRY.
06356  M01S04925.1ms     +++|*                TO *SRC* IF PRU TRANSFER LIMIT.
06357  M01S00416.242l642 +++|*                TO *CDA*, IF MASS STORAGE ERROR.
06358  M01S04926.1ms     +++|*
06359  M01S04927.1ms     +++|*         USES   T1.
06360  M01S04928.1ms     +++|*
06361  M01S04929.1ms     +++|*         CALLS  BOT, CET, CRT, RNS.
06362  M01S04930.1ms     +++|*
06363  M01S04931.1ms     +++|*         MACROS ENDMS.
06364  M01S04932.1ms     +++|
06365  M01S04933.1ms     +++|
06366  M01S04934.1ms     +++| BKR      SUBR               ENTRY/EXIT
06367  M01S04935.1ms     +++|
06368  M01S04936.1ms     +++|*         SET PREVIOUS END OF RECORD POSITION FROM BUFFER IF POSSIBLE.
06369  M01S04937.1ms     +++|
06370  M01S04938.1ms     +++|          LDD    BI
06371  M01S04939.1ms     +++|          ZJN    BKR5        IF BACKSPACE INDEX EMPTY
06372  M01S04940.1ms     +++|          LDD    T7          SET CURRENT SECTOR
06373  M01S04941.1ms     +++|          STD    FS+3
06374  M01S04942.1ms     +++| BKR1     SOD    BI          DECREMENT INDEX
06375  M01S04943.1ms     +++|          LDM    BKRB        SET TRACK
06376  M01S04944.1ms     +++|          STD    T6
06377  M01S04945.1ms     +++|          LDM    BBUF,BI     SET EOF STATUS
06378  M01S04946.1ms     +++|          STD    T1
06379  M01S04947.1ms     +++|          LPC    3777        SET SECTOR
06380  M01S04948.1ms     +++|          STD    T7
06381  M01S04949.1ms     +++|          NJN    BKR2        IF NOT FIRST SECTOR OF NEXT TRACK
06382  M01S04950.1ms     +++|          LDD    FS+2        SET NEXT TRACK
06383  M01S04951.1ms     +++|          STD    T6
06384  M01S04952.1ms     +++| BKR2     LDD    FS+3        COUNT PRUS TRANSFERRED
06385  M01S04953.1ms     +++|          NJN    BKR3        IF NOT NEXT TRACK
06386  M01S04954.1ms     +++|          LDM    SLM         SECTORS PER TRACK
06387  M01S04955.1ms     +++| BKR3     SBD    T7
06388  M01S04956.1ms     +++|          RAD    PC
06389  M01S04957.1ms     +++|          UJN    BKRX        RETURN
06390  M01S04958.1ms     +++|
06391  M01S04959.1ms     +++| BKR4     LJM    SRC         ENTER RECALL STACK
06392  M01S04960.1ms     +++|
06393  M01S04961.1ms     +++|*         BACKSPACE UP TO *MPTB* SECTORS OR BEGINNING OF TRACK.
06394  M01S04962.1ms     +++|
06395  M01S04963.1ms     +++| BKR5     LDC    0           SET PRIOR TRACK/SECTOR POSITION
06396  M01S04964.1ms     +++| BKRA     EQU    *-1
06397  M01S04965.1ms     +++|          STD    T7
06398  M01S04966.1ms     +++|          STD    FS+3
06399  M01S04967.1ms     +++|          LDC    0
06400  M01S04968.1ms     +++| BKRB     EQU    *-1
06401  M01S04969.1ms     +++|          STD    T6
06402  M01S04970.1ms     +++|          STD    FS+2
06403  M01S04971.1ms     +++|          RJM    CET         CHECK ERROR TERMINATION
06404  M01S04972.1ms     +++|          RJM    CRT         CHECK RECALL TIME
06405  M01S04973.1ms     +++|          LDD    PC
06406  M01S04974.1ms     +++|          ADC    MPTB
06407  M01S04975.1ms     +++|          SHN    -14
06408  M01S04976.1ms     +++|          NJN    BKR4        IF PRU TRANSFER LIMIT
06409  M01S04977.1ms     +++|          LDD    T7          CHECK SECTOR
06410  M01S04978.1ms     +++|          NJN    BKR6        IF NOT FIRST SECTOR
06411  M01S04979.1ms     +++|          RJM    BOT         BACK UP ONE TRACK
06412  M01S04980.1ms     +++| BKR6     ADC    -MPTB       CHECK NUMBER OF SECTORS
06413  M01S04981.1ms     +++|          PJN    BKR7        IF NUMBER OF SECTORS .GT. BUFFER SIZE
06414  M01S04982.1ms     +++|          LDN    0           POSITION TO FIRST SECTOR
06415  M01S04983.1ms     +++| BKR7     STD    T7          SET SECTOR
06416  M01S04984.1ms     +++|          STM    BKRA
06417  M01S04985.1ms     +++|          LDD    T6          SAVE CURRENT TRACK
06418  M01S04986.1ms     +++|          STM    BKRB
06419  M01S04987.1ms     +++|          LMD    FS+1
06420  M01S04988.1ms     +++|          NJN    BKR8        IF NOT FIRST TRACK
06421  M01S04989.1ms     +++|          LDD    T7
06422  M01S04990.1ms     +++|          NJN    BKR8        IF NOT FIRST SECTOR
06423  M01S04991.1ms     +++|          LDN    FSMS        SET FIRST SECTOR
06424  M01S04992.1ms     +++|          STD    T7
06425  M01S04993.1ms     +++|          STM    BKRA
06426  M01S04994.1ms     +++|          STM    BBUF,BI
06427  M01S04995.1ms     +++|          AOD    BI
06428  M01S04996.1ms     +++|          UJN    BKR10       CONTINUE PROCESSING AT BOI
06429  M01S04997.1ms     +++|
06430  M01S04998.1ms     +++|*         SCAN TRACK AND SET END OF RECORD POSITIONS.
06431  M01S04999.1ms     +++|
06432  M01S05000.1ms     +++| BKR8     LDC    BFMS+DTSF   READ NEXT SECTOR HEADER WORDS
06433  M01S05001.1ms     +++|          RJM    RNS
06434  M01S05002.1ms     +++|          SHN    -6          CHECK WORD COUNT
06435  M01S05003.1ms     +++|          NJN    BKR10       IF FULL SECTOR
06436  M01S05004.1ms     +++|          LDD    T7          SET SECTOR
06437  M01S05005.1ms     +++|          STM    BBUF,BI
06438  M01S05006.1ms     +++|          LDM    BFMS        CHECK CONTROL BYTE
06439  M01S05007.1ms     +++|          NJN    BKR9        IF EOR
06440  M01S05008.1ms     +++|          LDM    BFMS+1      CHECK FOR EOI
06441  M01S05009.1ms     +++|          ZJN    BKR11       IF EOI ENCOUNTERED
06442  M01S05010.1ms     +++|          LDC    4000        SET EOF STATUS
06443  M01S05011.1ms     +++|          RAM    BBUF,BI
06444  M01S05012.1ms     +++| BKR9     AOD    BI          ADVANCE BACKSPACE INDEX
06445  M01S05013.1ms     +++| BKR10    LDD    T7          CHECK CURRENT POSITION
06446  M01S05014.1ms     +++|          LMD    FS+3
06447  M01S05015.1ms     +++|          NJN    BKR8        IF CURRENT POSITION NOT REACHED
06448  M01S05016.1ms     +++|          LDD    T6
06449  M01S05017.1ms     +++|          LMD    FS+2
06450  M01S05018.1ms     +++|          NJN    BKR8        IF CURRENT POSITION NOT REACHED
06451  M01S05019.1ms     +++|          LDM    RCRF
06452  M01S05020.1ms     +++|          SHN    21-11
06453  M01S05021.1ms     +++|          MJN    BKR11       IF NOT AT ORIGINAL POSITION
06454  M01S05022.1ms     +++|
06455  M01S05023.1ms     +++|*         IGNORE END OF RECORD IF CURRENT POSITION REACHED
06456  M01S05024.1ms     +++|
06457  M01S05025.1ms     +++|          LDD    T1          CHECK WORD COUNT OF SECTOR
06458  M01S05026.1ms     +++|          SHN    -6
06459  M01S05027.1ms     +++|          NJN    BKR11       IF NOT END OF RECORD
06460  M01S05028.1ms     +++|          SOD    BI          DECREMENT INDEX
06461  M01S05029.1ms     +++| BKR11    ENDMS              END MASS STORAGE OPERATION
06462  M01S05030.1ms     +++|          LDM    RCRF        SET POSITION CHANGED FLAG
06463  M01S05031.1ms     +++|          LPC    6777
06464  M01S05032.1ms     +++|          LMD    TH
06465  M01S05033.1ms     +++|          STM    RCRF
06466  M01S05034.1ms     +++|          LDD    BI
06467  M01S05035.1ms     +++|          ZJN    BKR12       IF BACKSPACE INDEX EMPTY
06468  M01S05036.1ms     +++|          LJM    BKR1        RETURN NEXT RECORD LOCATION
06469  M01S05037.1ms     +++|
06470  M01S05038.1ms     +++| BKR12    LDD    FS+3        COUNT PRUS TRANSFERRED
06471  M01S05039.1ms     +++|          NJN    BKR13       IF NOT NEXT TRACK
06472  M01S05040.1ms     +++|          LDM    SLM         SECTORS PER TRACK
06473  M01S05041.1ms     +++| BKR13    SBM    BKRA
06474  M01S05042.1ms     +++|          RAD    PC
06475  M01S05043.1ms     +++|          LJM    BKR5        CONTINUE BACKSPACE
06476  M01S05044.1ms     +++| BOT      SPACE  4,15
06477  M01S05045.1ms     +++|**        BOT - BACK ONE TRACK.
06478  M01S05046.1ms     +++|*
06479  M01S05047.1ms     +++|*         ENTRY  (T6) = CURRENT TRACK.
06480  M01S05048.1ms     +++|*                (FS+1) = FIRST TRACK.
06481  M01S05049.1ms     +++|*
06482  M01S05050.1ms     +++|*         EXIT   (T6) = PREVIOUS TRACK.
06483  M01S05051.1ms     +++|*                (A) = SECTOR LIMIT FOR TRACK.
06484  M01S05052.1ms     +++|*
06485  M01S05053.1ms     +++|*         USES   T3.
06486  M01S05054.1ms     +++|*
06487  M01S05055.1ms     +++|*         CALLS  SNT.
06488  M01S05056.1ms     +++|
06489  M01S05057.1ms     +++|
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  M01S05058.1ms     +++| BOT      SUBR               ENTRY/EXIT
06498  M01S05059.1ms     +++|          LDD    T6          SAVE CURRENT TRACK
06499  M01S05060.1ms     +++|          STD    T3
06500  M01S05061.1ms     +++|          LDD    FS+1        SET FIRST TRACK
Line S05062 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06501  M02S05062.242l642 ---|          LMD    T3
Line S05063 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06502  M02S05063.242l642 ---| BOT1     LMD    T3          SET NEXT TRACK
Line S05064 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06503  M02S05064.242l642 ---|          STD    T6
Line S05065 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06504  M02S05065.242l642 ---|          RJM    SNT
Line S05066 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06505  M02S05066.242l642 ---|          LMD    T3
Line S05067 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06506  M02S05067.242l642 ---|          NJN    BOT1        IF NEXT TRACK NOT EQUAL TO CURRENT TRACK
Line S05068 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06507  M02S05068.242l642 ---|          LDM    SLM
Line S05069 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06508  M02S05069.242l642 ---|          UJN    BOTX        RETURN
06509  M01S00424.242l642 +++|          UJN    BOT2        ENTER LOOP
06510  M01S05070.1ms     +++| CET      SPACE  4,10
06511  M01S05071.1ms     +++|**        CET - CHECK ERROR TERMINATION.
06512  M01S05072.1ms     +++|*
06513  M01S05073.1ms     +++|*         EXIT   TO *ERR* IF ERROR FLAG TERMINATION.
06514  M01S05074.1ms     +++|*
06515  M01S05075.1ms     +++|*         USES   CM - CM+4.
06516  M01S05076.1ms     +++|
06517  M01S05077.1ms     +++|
06518  M01S05078.1ms     +++| CET      SUBR               ENTRY/EXIT
06519  M01S05079.1ms     +++|          LDD    CP          CHECK ERROR FLAG
06520  M01S05080.1ms     +++|          ADN    STSW
06521  M01S05081.1ms     +++|          CRD    CM
06522  M01S05082.1ms     +++|          LDD    CM+1
06523  M01S05083.1ms     +++|          SBN    SPET
06524  M01S05084.1ms     +++|          MJN    CETX        IF NOT SPECIAL ERROR
06525  M01S05085.1ms     +++|          ERROR  EFT         *ERROR FLAG TERMINATION*
06526  M01S05086.1ms     +++| CRT      SPACE  4,10
06527  M01S05087.1ms     +++|**        CRT - CHECK RECALL TIME.
06528  M01S05088.1ms     +++|*
06529  M01S05089.1ms     +++|*         ENTRY  FIRST CALL STARTS TIMING.  ELAPSED TIME OF EACH
06530  M01S05090.1ms     +++|*                INTERVAL IS KEPT TO MINIMIZE CLOCK OVERFLOW.
06531  M01S05091.1ms     +++|*
06532  M01S05092.1ms     +++|*         EXIT   TO *SRC* IF PROCESSING TIME EXCEEDED.
06533  M01S05093.1ms     +++|*
06534  M01S05094.1ms     +++|*         USES   CM - CM+4.
06535  M01S05095.1ms     +++|
06536  M01S05096.1ms     +++|
06537  M01S05097.1ms     +++| CRT2     AOM    CRTA        INDICATE TIME ACCUMULATION STARTED
06538  M01S05098.1ms     +++| CRT3     LDD    CM+4        SAVE CURRENT CLOCK VALUE
06539  M01S05099.1ms     +++|          STM    CRTB
06540  M01S05100.1ms     +++|
06541  M01S05101.1ms     +++| CRT      SUBR               ENTRY/EXIT
06542  M01S05102.1ms     +++|          LDC    RTCL        READ REAL TIME CLOCK
06543  M01S05103.1ms     +++|          CRD    CM
06544  M01S05104.1ms     +++|          LDC    0           ELAPSED TIME
06545  M01S05105.1ms     +++| CRTA     EQU    *-1
06546  M01S05106.1ms     +++|          ZJN    CRT2        IF FIRST CALL
06547  M01S05107.1ms     +++|          LDD    CM+4        CALCULATE TIME SINCE LAST CALL
06548  M01S05108.1ms     +++|          SBM    CRTB
06549  M01S05109.1ms     +++|          PJN    CRT1        IF NO OVERFLOW
06550  M01S05110.1ms     +++|          ADC    10000
06551  M01S05111.1ms     +++| CRT1     RAM    CRTA        ACCUMULATED PROCESSING TIME
06552  M01S05112.1ms     +++|          ADC    -RSPT
06553  M01S05113.1ms     +++|          MJN    CRT3        IF TIME NOT EXCEEDED
06554  M01S05114.1ms     +++|          LJM    SRC         SET RECALL CONDITIONS
06555  M01S05115.1ms     +++|
06556  M01S05116.1ms     +++|
06557  M01S05117.1ms     +++| CRTB     CON    0           PREVIOUS CLOCK VALUE
06558  M01S05118.1ms     +++| DSC      SPACE  4,10
06559  M01S05119.1ms     +++|**        DSC - DECREMENT SKIP COUNT.
06560  M01S05120.1ms     +++|*
06561  M01S05121.1ms     +++|*         EXIT   (A) = 0, IF SKIP COMPLETE.
06562  M01S05122.1ms     +++|*                SKIP COUNT IN (IR+2 - IR+3) DECREMENTED BY ONE.
06563  M01S05123.1ms     +++|*
06564  M01S05124.1ms     +++|*         USES   T0.
06565  M01S05125.1ms     +++|
06566  M01S05126.1ms     +++|
06567  M01S05127.1ms     +++| DSC      SUBR               ENTRY/EXIT
06568  M01S05128.1ms     +++|          LDD    IR+3        GET SKIP COUNT
06569  M01S05129.1ms     +++|          SCN    77
06570  M01S05130.1ms     +++|          STD    T0
06571  M01S05131.1ms     +++|          SHN    6
06572  M01S05132.1ms     +++|          LMD    IR+2
06573  M01S05133.1ms     +++|          SHN    6
06574  M01S05134.1ms     +++|          SBN    1
06575  M01S05135.1ms     +++|          ZJN    DSCX        IF SKIP COMPLETE
06576  M01S05136.1ms     +++|          SHN    14          RESET SKIP COUNT
06577  M01S05137.1ms     +++|          STD    IR+2
06578  M01S05138.1ms     +++|          SHN    -6
06579  M01S05139.1ms     +++|          SCN    77
06580  M01S05140.1ms     +++|          LMD    T0
06581  M01S05141.1ms     +++|          LMD    IR+3
06582  M01S05142.1ms     +++|          STD    IR+3
06583  M01S05143.1ms     +++|          LDN    1           INDICATE SKIP NOT COMPLETE
06584  M01S05144.1ms     +++|          UJN    DSCX        RETURN
06585  M01S05145.1ms     +++| LRI      SPACE  4,15
06586  M01S05146.1ms     +++|**        LRI - LOAD RANDOM INDEX.
06587  M01S05147.1ms     +++|*
06588  M01S05148.1ms     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
06589  M01S05149.1ms     +++|*
06590  M01S05150.1ms     +++|*         EXIT   (FS - FS+4) UPDATED.
06591  M01S05151.1ms     +++|*                (PC) = ACCUMULATED PRU COUNT TRANSFERRED.
06592  M01S00425.242l642 +++|*                TO *CDA*, IF MASS STORAGE ERROR.
06593  M01S05152.1ms     +++|*
06594  M01S05153.1ms     +++|*         USES   PC, T1, T2, T6, T7, CM - CM+4, LM - LM+1, IN - IN+1.
06595  M01S05154.1ms     +++|*
Line S05155 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06596  M02S05155.ns22000 ---|*         CALLS  BKR, DDT, MSR, RNS, SEI.
Line S00186 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06597  M02S00186.242l642 ---|*         CALLS  BKR, DDT, MSR, RNS, SEI, VAL.
06598  M01S00426.242l642 +++|*         CALLS  BKR, DDT, MSR, RNS, SEI, SMS, VAL.
06599  M01S05156.1ms     +++|*
Line S05157 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06600  M02S05157.ns22000 ---|*         MACROS CFET, ENDMS, ERROR, NFA.
06601  M01S00187.ns22000 +++|*         MACROS CFET, ENDMS, ERROR, NFA, SFA.
06602  M01S05158.1ms     +++|
06603  M01S05159.1ms     +++|
06604  M01S05160.1ms     +++| LRI      SUBR               ENTRY/EXIT
06605  M01S05161.1ms     +++|          CFET   7           READ (FET+7)
06606  M01S05162.1ms     +++|          CRD    CM
06607  M01S05163.1ms     +++|          LDD    CM+3        CHECK INDEX LENGTH
06608  M01S05164.1ms     +++|          SCN    77
06609  M01S05165.1ms     +++|          SHN    6
06610  M01S05166.1ms     +++|          LMD    CM+2
06611  M01S05167.1ms     +++|          ZJN    LRIX        IF INDEX LENGTH = 0
06612  M01S05168.1ms     +++|          SHN    6
06613  M01S05169.1ms     +++|          STD    LM+1
06614  M01S05170.1ms     +++|          SHN    -14
06615  M01S05171.1ms     +++|          LPN    37
06616  M01S05172.1ms     +++|          STD    LM
06617  M01S05173.1ms     +++|          LDD    CM+3        CHECK FWA
06618  M01S05174.1ms     +++|          LPN    37
06619  M01S05175.1ms     +++|          STD    IN
06620  M01S05176.1ms     +++|          SHN    14
06621  M01S05177.1ms     +++|          LMD    CM+4
06622  M01S05178.1ms     +++|          STD    IN+1
06623  M01S05179.1ms     +++|          SBN    2
06624  M01S05180.1ms     +++|          PJN    LRI2        IF INDEX ADDRESS .GE. 2
06625  M01S05181.1ms     +++| LRI1     ERROR  FPE         *FET PARAMETER ERROR*
06626  M01S05182.1ms     +++|
06627  M01S05183.1ms     +++| LRI2     ADN    2
06628  M01S05184.1ms     +++|          SHN    6
06629  M01S05185.1ms     +++|          ADD    LM
06630  M01S05186.1ms     +++|          SHN    14
06631  M01S05187.1ms     +++|          ADD    LM+1
06632  M01S05188.1ms     +++|          SHN    -6
06633  M01S05189.1ms     +++|          SBD    FL
06634  M01S05190.1ms     +++|          PJN    LRI1        IF INDEX BUFFER LWA+1 .GE. FL
06635  M01S05191.1ms     +++|          LDM    RCRF
06636  M01S05192.1ms     +++|          SHN    21-6
06637  M01S05193.1ms     +++|          MJN    LRI6        IF CONTINUATION OF BACKSPACE
06638  M01S05194.1ms     +++|          LDN    ZERL
06639  M01S05195.1ms     +++|          CRD    CM
06640  M01S05196.1ms     +++|          LDN    0
06641  M01S05197.1ms     +++|          STD    T1
06642  M01S05198.1ms     +++|          STD    T2
06643  M01S05199.1ms     +++|
06644  M01S05200.1ms     +++|*         ZERO INDEX AREA.
06645  M01S05201.1ms     +++|
06646  M01S05202.1ms     +++| LRI3     LDD    IN          CLEAR INDEX AREA
06647  M01S05203.1ms     +++|          ADD    T1
06648  M01S05204.1ms     +++|          SHN    6
06649  M01S05205.1ms     +++|          ADD    RA
06650  M01S05206.1ms     +++|          SHN    6
06651  M01S05207.1ms     +++|          ADD    IN+1
06652  M01S05208.1ms     +++|          ADD    T2
06653  M01S05209.1ms     +++|          CWD    CM
06654  M01S05210.1ms     +++|          AOD    T2
06655  M01S05211.1ms     +++|          SHN    -14
06656  M01S05212.1ms     +++|          RAD    T1
06657  M01S05213.1ms     +++|          LMD    LM
06658  M01S05214.1ms     +++|          NJN    LRI3        IF NOT END OF INDEX AREA
06659  M01S05215.1ms     +++|          LDD    T2
06660  M01S05216.1ms     +++|          LMD    LM+1
06661  M01S05217.1ms     +++|          NJN    LRI3        IF NOT END OF INDEX AREA
06662  M01S05218.1ms     +++|          LDD    T6          CHECK TRACK
06663  M01S05219.1ms     +++|          NJN    LRI5        IF FILE USED
06664  M01S05220.1ms     +++| LRI4     LJM    LRIX        RETURN
06665  M01S05221.1ms     +++|
06666  M01S05222.1ms     +++| LRI5     RJM    SEI         SKIP FROM CURRENT POSITION TO EOI
06667  M01S05223.1ms     +++|          LDD    T6
06668  M01S05224.1ms     +++|          LMD    FS+1
06669  M01S05225.1ms     +++| LRI6     NJN    LRI7        IF MORE THAN ONE TRACK ON FILE
06670  M01S05226.1ms     +++|          LDD    T7
06671  M01S05227.1ms     +++|          LMN    FSMS
06672  M01S05228.1ms     +++|          ZJN    LRI4        IF FILE CONTAINS ONLY AN EOI
Line S05229 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06673  M02S05229.ns22000 ---| LRI7     LDD    T7          INITIALIZE BACKSPACE SECTOR
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  M01S05230.1ms     +++|          STM    BKRA
06678  M01S05231.1ms     +++|          LDD    T6          INITIALIZE BACKSPACE TRACK
06679  M01S05232.1ms     +++|          STM    BKRB
06680  M01S00427.242l642 +++|          RJM    SMS         LOAD MASS STORAGE DRIVER
06681  M01S05233.1ms     +++|          RJM    BKR         BACKSPACE RECORD
06682  M01S05234.1ms     +++|          LDD    PC          CHARGE FOR PRUS TRANSFERRED
06683  M01S05235.1ms     +++|          SHN    IMPT
06684  M01S05236.1ms     +++|          RAM    CFNH+1
06685  M01S05237.1ms     +++|          SHN    -14
06686  M01S05238.1ms     +++|          RAM    CFNH
06687  M01S05239.1ms     +++|          LDN    0           CLEAR PRU COUNT
06688  M01S05240.1ms     +++|          STD    PC
Line S05241 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06689  M02S05241.ns22000 ---|          LDD    T5          CHECK IF DEVICE BUFFERED IN ECS
Line S05242 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06690  M02S05242.ns22000 ---|          ADM    ESTS
06691  M01S00191.ns22000 +++|          SFA    EST,T5      CHECK IF DEVICE BUFFERED IN ECS
06692  M01S00192.ns22000 +++|          ADK    EQDE
06693  M01S05243.1ms     +++|          CRD    CM
06694  M01S05244.1ms     +++|          LDD    CM+4
06695  M01S05245.1ms     +++|          SHN    3
06696  M01S05246.1ms     +++|          ADN    DILL
06697  M01S05247.1ms     +++|          CRD    CM
06698  M01S05248.1ms     +++|          LDD    CM+3
06699  M01S05249.1ms     +++|          SHN    21-13
06700  M01S05250.1ms     +++|          PJN    LRI8        IF DEVICE NOT BUFFERED IN ECS
06701  M01S05251.1ms     +++|          LJM    LRI11       PROCESS DIRECT TRANSFER
06702  M01S05252.1ms     +++|
Line S05253 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06703  M02S05253.242l642 ---|*         LOAD RANDOM INDEX.
06704  M01S00428.242l642 +++|*         READ RANDOM INDEX AND STORE INTO BUFFER.
06705  M01S05254.1ms     +++|
06706  M01S05255.1ms     +++| LRI8     LDC    BFMS        READ NEXT SECTOR
06707  M01S05256.1ms     +++|          RJM    RNS
06708  M01S05257.1ms     +++|          ZJN    LRI9        IF ZERO LENGTH SECTOR
06709  M01S05258.1ms     +++|          AOD    PC          ADVANCE SECTOR COUNT
06710  M01S05259.1ms     +++|          LDD    LM
06711  M01S05260.1ms     +++|          SHN    14
06712  M01S05261.1ms     +++|          ADD    LM+1
06713  M01S05262.1ms     +++|          SBD    T1
06714  M01S05263.1ms     +++|          PJN    LRI10       IF ROOM FOR SECTOR
06715  M01S05264.1ms     +++|          AOM    LRIB        SET INDEX TOO LARGE FLAG
06716  M01S05265.1ms     +++|          LDD    LM+1
06717  M01S05266.1ms     +++|          STD    T1
06718  M01S05267.1ms     +++|          NJN    LRI10       IF ROOM LEFT IN INDEX AREA
06719  M01S05268.1ms     +++| LRI9     LJM    LRI14       COMPLETE PROCESSING
06720  M01S05269.1ms     +++|
06721  M01S05270.1ms     +++| LRI10    LDD    IN          STORE SECTOR
06722  M01S05271.1ms     +++|          SHN    6
06723  M01S05272.1ms     +++|          ADD    RA
06724  M01S05273.1ms     +++|          SHN    6
06725  M01S05274.1ms     +++|          ADD    IN+1
06726  M01S05275.1ms     +++|          CWM    BFMS+2,T1
06727  M01S05276.1ms     +++|          LDD    T1          ADVANCE ADDRESS
06728  M01S05277.1ms     +++|          RAD    IN+1
06729  M01S05278.1ms     +++|          SHN    -14
06730  M01S05279.1ms     +++|          RAD    IN
06731  M01S05280.1ms     +++|          LDD    LM          DECREMENT LENGTH
06732  M01S05281.1ms     +++|          SHN    14
06733  M01S05282.1ms     +++|          ADD    LM+1
06734  M01S05283.1ms     +++|          SBD    T1
06735  M01S05284.1ms     +++|          STD    LM+1
06736  M01S05285.1ms     +++|          SHN    -14
06737  M01S05286.1ms     +++|          STD    LM
06738  M01S05287.1ms     +++|          LDD    T1
06739  M01S05288.1ms     +++|          SHN    -6
06740  M01S05289.1ms     +++| LRIA     ZJN    LRI9        IF EOR
06741  M01S05290.1ms     +++|*         UJN    LRI9        (AFTER MS ERROR)
06742  M01S05291.1ms     +++|          LJM    LRI8        LOOP TO EOR
06743  M01S05292.1ms     +++|
06744  M01S05293.1ms     +++|*         DIRECT TRANSFER RANDOM INDEX FOR ECS BUFFERED DEVICE.
06745  M01S05294.1ms     +++|
06746  M01S05295.1ms     +++| LRI11    LDD    IN          SET FWA INDEX AREA
06747  M01S05296.1ms     +++|          STD    CM+3
06748  M01S05297.1ms     +++|          SHN    14
06749  M01S05298.1ms     +++|          ADD    IN+1
06750  M01S05299.1ms     +++|          STD    CM+4
06751  M01S05300.1ms     +++|          RAD    LM+1        SET LWA INDEX AREA
06752  M01S05301.1ms     +++|          SHN    -14
06753  M01S05302.1ms     +++|          RAD    LM
06754  M01S05303.1ms     +++|          SHN    14
06755  M01S05304.1ms     +++|          ADD    LM+1
06756  M01S05305.1ms     +++|          SHN    14
06757  M01S05306.1ms     +++|          STD    CM+2
06758  M01S05307.1ms     +++|          SHN    -14
06759  M01S05308.1ms     +++|          SHN    6
06760  M01S05309.1ms     +++|          RAD    CM+3
06761  M01S05310.1ms     +++|          LDC    RDDS*10000+7777  DIRECT READ TO EOR
06762  M01S05311.1ms     +++|          RJM    DDT
06763  M01S05312.1ms     +++|          PJN    LRI13       IF NO ERROR
Line S05313 Modification History
M01 (Added by) 1ms
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
06764  M02S05313.251l664 ---|          SHN    21-10
06765  M01S00001.251l664 +++|          SHN    21-20
Line S05314 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06766  M02S05314.242l642 ---|          PJN    LRI12       IF TRANSFER NOT TRUNCATED
Line S05315 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06767  M02S05315.242l642 ---|          AOM    LRIB        SET INDEX TOO LARGE FLAG
Line S05316 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06768  M02S05316.242l642 ---|          UJN    LRI13       SET PRU COUNT
Line S05317 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06769  M02S05317.242l642 ---|
Line S05318 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06770  M02S05318.242l642 ---| LRI12    RJM    MSR         PROCESS MASS STORAGE ERROR
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  M01S05319.1ms     +++| LRI13    LDD    T4          SET PRU TRANSFERRED COUNT
06776  M01S05320.1ms     +++|          STD    PC
06777  M01S00433.242l642 +++|
06778  M01S00434.242l642 +++|*         COMPLETE PROCESSING.
06779  M01S05321.1ms     +++|
06780  M01S05322.1ms     +++| LRI14    ENDMS              END MASS STORAGE OPERATION
06781  M01S05323.1ms     +++|          LDD    PC          CHECK SECTOR COUNT
06782  M01S05324.1ms     +++|          NJN    LRI16       IF INDEX TRANSFERRED
06783  M01S05325.1ms     +++|          LDD    FC          CHECK FOR REWIND REQUEST
06784  M01S05326.1ms     +++|          SHN    21-13
06785  M01S05327.1ms     +++|          MJN    LRI15       IF REWIND REQUESTED
06786  M01S05328.1ms     +++|          NFA    FA,R        RETAIN ORIGINAL POSITION AND STATUS
06787  M01S05329.1ms     +++|          ADN    FSTL
06788  M01S05330.1ms     +++|          CRD    FS
06789  M01S05331.1ms     +++|          LDD    FS+2        RESET CURRENT POSITION
06790  M01S05332.1ms     +++|          STD    T6
06791  M01S05333.1ms     +++|          LDD    FS+3
06792  M01S05334.1ms     +++|          STD    T7
06793  M01S05335.1ms     +++|
06794  M01S05336.1ms     +++|*         CLEAR RANDOM FILE BIT.
06795  M01S05337.1ms     +++|
06796  M01S05338.1ms     +++| LRI15    CFET   1           READ FIRST
06797  M01S05339.1ms     +++|          CRD    CM
06798  M01S05340.1ms     +++|          LDD    CM+1        CLEAR RANDOM BIT
06799  M01S05341.1ms     +++|          LPC    3777
06800  M01S05342.1ms     +++|          STD    CM+1
06801  M01S05343.1ms     +++|          CFET   1           STORE FIRST
06802  M01S05344.1ms     +++|          CWD    CM
06803  M01S05345.1ms     +++|          LJM    LRIX        RETURN
06804  M01S05346.1ms     +++|
06805  M01S05347.1ms     +++|*         PROCESS INDEX TOO LARGE.
06806  M01S05348.1ms     +++|
06807  M01S05349.1ms     +++| LRI16    LDM    BFMS+1      SET FET STATUS
06808  M01S05350.1ms     +++|          SHN    2-6
06809  M01S05351.1ms     +++|          LPN    4
06810  M01S05352.1ms     +++|          LMN    4
06811  M01S05353.1ms     +++|          STD    FS+4
06812  M01S05354.1ms     +++| LRIB     LDN    0
06813  M01S05355.1ms     +++|*         LDN    1           (INDEX TRUNCATED)
06814  M01S05356.1ms     +++|          ZJN    LRI18       IF INDEX NOT TRUNCATED
06815  M01S05357.1ms     +++|          LDM    ERRA        CHECK FOR MASS STORAGE ERROR
06816  M01S05358.1ms     +++|          NJN    LRI18       IF MASS STORAGE ERROR
06817  M01S05359.1ms     +++|          LDD    FO          CHECK ERROR PROCESSING SELECTED
06818  M01S05360.1ms     +++|          SHN    21-10
06819  M01S05361.1ms     +++|          MJN    LRI17       IF ERROR PROCESSING SELECTED
06820  M01S05362.1ms     +++|          ERROR  ITL         *INDEX TOO LARGE ON OPEN*
06821  M01S05363.1ms     +++|
06822  M01S05364.1ms     +++| LRI17    LDC    23S9        SET STATUS = 23B
06823  M01S05365.1ms     +++|          RAD    BS+4
06824  M01S05366.1ms     +++|          SHN    -14
06825  M01S05367.1ms     +++|          RAD    BS+3
06826  M01S05368.1ms     +++|          LDM    FETL        CHECK FET LENGTH
06827  M01S05369.1ms     +++|          SBN    2
06828  M01S05370.1ms     +++|          MJN    LRI18       IF NO DETAILED STATUS FIELD
06829  M01S05371.1ms     +++|          CFET   6           CLEAR DETAILED STATUS FIELD
06830  M01S05372.1ms     +++|          CRD    CM
06831  M01S05373.1ms     +++|          LDN    0
06832  M01S05374.1ms     +++|          STD    CM+3
06833  M01S05375.1ms     +++|          STD    CM+4
06834  M01S05376.1ms     +++|          CFET   6
06835  M01S05377.1ms     +++|          CWD    CM
06836  M01S05378.1ms     +++| LRI18    LJM    LRIX        RETURN
06837  M01S05379.1ms     +++|          SPACE  4,10
06838  M01S05380.1ms     +++|**        COMMON DECKS.
06839  M01S05381.1ms     +++|
06840  M01S05382.1ms     +++|
06841  M01S05383.1ms     +++| IRA$     EQU    1           SET INITIALIZATION
06842  M01S05384.1ms     +++|*CALL     COMPCRA
06843  M01S05385.1ms     +++|          LIST   X
06844  M01S05386.1ms     +++|*CALL     COMPDDT
06845  M01S05387.1ms     +++|          LIST   -X
06846  M01S00435.242l642 +++|
06847  M01S05388.1ms     +++| MSR$     EQU    1           DEFINE ERROR PROCESSING
Line S05389 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06848  M02S05389.242l642 ---| EOR$     EQU    1           DEFINE POSITION ON EOR
06849  M01S05390.1ms     +++|*CALL     COMPRNS
06850  M01S05391.1ms     +++|*CALL     COMPSEI
06851  M01S05392.1ms     +++|*CALL     COMPSNT
06852  M01S05393.1ms     +++|*CALL     COMPSRA
06853  M01S05394.1ms     +++|          SPACE  4,10
06854  M01S05395.1ms     +++| BBUF     BSS    0           BACKSPACE BUFFER
06855  M01S05396.1ms     +++|
06856  M01S05397.1ms     +++|          ERRNG  BFMS-BBUF-MPTB  CHECK FOR BACKSPACE BUFFER OVERFLOW
06857  M01S05398.1ms     +++|
06858  M01S05399.1ms     +++|          QUAL
06859  M01S05400.1ms     +++| EPSO     EQU    *+5         END OF POSITION OVERLAY
06860  M01S05401.1ms     +++| .ERPO    MAX    EWTO,ERDO,EPSO  CALCULATE MAXIMUM OVERLAY SIZE
06861  M01S05402.1ms     +++| ERPO     EQU    .ERPO       ERROR PROCESSING OVERLAY ORIGIN
06862  M01S05403.1ms     +++|          QUAL   *
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
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/1ms.004.txt ยท Last modified: by 127.0.0.1