Deck 1MS Part 001

38 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01502  M00S01027.1ms     +++|*                TO *CRC2* IF FNT ENTRY CREATED.
01503  M00S01028.1ms     +++|*
01504  M00S01029.1ms     +++|*         ERROR  TO *ERR* IF ERROR DETECTED.
01505  M00S01030.1ms     +++|*
01506  M00S01031.1ms     +++|*         USES   FA, FS, FS+4, CM - CM+4.
01507  M00S01032.1ms     +++|*
01508  M00S01033.1ms     +++|*         CALLS  VFN, *0BF*.
01509  M00S01034.1ms     +++|*
01510  M00S01035.1ms     +++|*         MACROS CFET, ERROR, EXECUTE, NFA, MONITOR.
01511  M00S01036.1ms     +++|
01512  M00S01037.1ms     +++|
01513  M00S01038.1ms     +++| CFE      BSS    0           ENTRY
01514  M00S01039.1ms     +++|          LDD    FN+3        CLEAR LEVEL NUMBER
01515  M00S01040.1ms     +++|          SCN    77
01516  M00S01041.1ms     +++|          STD    FN+3
01517  M00S01042.1ms     +++|          RJM    VFN         VALIDATE FILE NAME
01518  M00S01043.1ms     +++|          NJN    CFE1        IF NO FILE NAME ERROR
Line S01044 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01519  M01S01044.v23l617 ---|          ERROR  FLN         *ILLEGAL FILE NAME*
Line S00010 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01520  M01S00010.v23l617 +++|          ERROR  FLN         *INCORRECT FILE NAME*
01521  M00S01045.1ms     +++|
01522  M00S01046.1ms     +++| CFE1     LDN    6           RETURN ON NFL INCREASE/LOCAL FILE LIMIT
01523  M00S01047.1ms     +++|          STM    CFO-1
Line S01048 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01524  M01S01048.ns22000 ---|          LDC    2000        PREVENT MS TRACK ASSIGNMENT
Line S00104 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01525  M01S00104.ns22000 +++|          LDM    JSAL        SET DEFAULT FILE ACCESS LEVEL
01526  M01S00105.ns22000 +++|          STM    FSAL
01527  M01S00106.ns22000 +++|          LDD    FO
01528  M01S00107.ns22000 +++|          SHN    21-3
01529  M01S00108.ns22000 +++|          PJN    CFE1.1      IF NO ACCESS LEVEL PROCESSING
01530  M01S00109.ns22000 +++|          CFET   4           GET FILE ACCESS LEVEL
01531  M01S00110.ns22000 +++|          CRD    CM
01532  M01S00111.ns22000 +++|          LDD    CM+1
01533  M01S00112.ns22000 +++|          LPN    7
01534  M01S00113.ns22000 +++|          STD    CM+1
01535  M01S00114.ns22000 +++|          STM    FSAL
01536  M01S00115.ns22000 +++|          ADN    10
01537  M01S00116.ns22000 +++|          SHN    6
01538  M01S00117.ns22000 +++|          RAM    CFO-1
01539  M01S00118.ns22000 +++|          LDM    OSSM        CHECK O/S SECURITY MODE
01540  M01S00119.ns22000 +++|          ZJN    CFE1.1      IF UNSECURED SYSTEM
01541  M01S00120.ns22000 +++|          LDD    MA          VALIDATE FILE ACCESS LEVEL FOR JOB
01542  M01S00121.ns22000 +++|          CWD    CM
01543  M01S00122.ns22000 +++|          LDN    1
01544  M01S00123.ns22000 +++|          STD    CM+4
01545  M01S00124.ns22000 +++|          LDN    VAJS
01546  M01S00125.ns22000 +++|          STD    CM+1
01547  M01S00126.ns22000 +++|          MONITOR  VSAM
01548  M01S00127.ns22000 +++|          LDD    CM+1
01549  M01S00128.ns22000 +++|          NJN    CFE1.2      IF FILE ACCESS LEVEL NOT VALID
01550  M01S00129.ns22000 +++| CFE1.1   LDC    2000        PREVENT MS TRACK ASSIGNMENT
01551  M00S01049.1ms     +++|          STD    FS
01552  M00S01050.1ms     +++|          EXECUTE  0BF,CFO
01553  M00S01051.1ms     +++|          UJN    CFE2        CHECK RETURN STATUS
01554  M00S01052.1ms     +++|
01555  M00S01053.1ms     +++|*         ADVANCE EXIT IF FNT ENTRY FOUND.
01556  M00S01054.1ms     +++|
01557  M00S01055.1ms     +++|          LDN    0
01558  M00S01056.1ms     +++|          STD    FA
01559  M00S01057.1ms     +++|          ERROR  FSQ         *I/O SEQUENCE ERROR*
Line S00130 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01560  M01S00130.ns22000 +++|
Line S00131 Modification History
M01 (Added by) ns22000
M02 (Removed by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
01561  M02S00131.1ms16   ---| CFE1.2   ERROR  LNJ         *ACCESS LEVEL NOT VALID FOR JOB.*
Line S00011 Modification History
M01 (Added by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
01562  M01S00011.1ms16   +++| CFE1.2   ERROR  LNF         *FILE ACCESS LEVEL CONFLICT.*
01563  M00S01058.1ms     +++|
01564  M00S01059.1ms     +++| CFE2     ZJN    CFE4        IF FNT ENTRY CREATED
01565  M00S01060.1ms     +++|          LMN    4
01566  M00S01061.1ms     +++|          NJN    CFE3        IF NOT LOCAL FILE LIMIT
01567  M00S01062.1ms     +++|          ERROR  LFL         *LOCAL FILE LIMIT*
01568  M00S01063.1ms     +++|
01569  M00S01064.1ms     +++| CFE3     LCN    PTLR-NFIR   SET NFL INCREASE PENDING REASON CODE
01570  M00S01065.1ms     +++|          RAM    ERSA
01571  M00S01066.1ms     +++|          LJM    ERS1        ENTER RECALL STACK
01572  M00S01067.1ms     +++|
01573  M00S01068.1ms     +++|*         SET FNT POINTER IN FET.  SET FST NOT BUSY.
01574  M00S01069.1ms     +++|*         ENTER RECALL STACK TO REISSUE *CIO* CALL TO *CPUCIO*.
01575  M00S01070.1ms     +++|
01576  M00S01071.1ms     +++| CFE4     CFET   4           SET FNT POINTER IN FET
01577  M00S01072.1ms     +++|          CRD    CM
01578  M00S01073.1ms     +++|          LDD    FA
01579  M00S01074.1ms     +++|          STD    CM
01580  M00S01075.1ms     +++|          CFET   4
01581  M00S01076.1ms     +++|          CWD    CM
01582  M00S01077.1ms     +++|          AOD    FS+4        SET FST NOT BUSY
01583  M00S01078.1ms     +++|          NFA    FA,R
01584  M00S01079.1ms     +++|          ADN    FSTL
01585  M00S01080.1ms     +++|          CWD    FS
01586  M00S01081.1ms     +++|          LDD    FS          CHECK FOR TERMINAL EQUIPMENT
01587  M00S01082.1ms     +++|          LPC    777
01588  M00S01083.1ms     +++|          ZJN    CFE5        IF NO EQUIPMENT ASSIGNED
01589  M00S01084.1ms     +++|          LCN    2           SET FOR NO DROP OF PP ON *RPPM*
01590  M00S01085.1ms     +++|          RAM    CRCA
01591  M00S01086.1ms     +++|          LDN    0           SET TO ISSUE *DPPM*
01592  M00S01087.1ms     +++|          STM    CRCB
01593  M00S01088.1ms     +++| CFE5     LJM    CRC2        RESTART *CPUCIO*
01594  M00S01089.1ms     +++|
01595  M00S01090.1ms     +++|
01596  M00S01091.1ms     +++| CFO      EQU    *+1         *0BF* LOAD ADDRESS FOR *CFE*
01597  M00S01092.1ms     +++|          ERRNG  BFMS-CFO-ZBFL         CHECK *0BF* LENGTH
01598  M00S01093.1ms     +++| PRS      SPACE  4,45
01599  M00S01094.1ms     +++|**        PRS - PRESET.
01600  M00S01095.1ms     +++|*
01601  M00S01096.1ms     +++|*         ENTRY  (IR - IR+4) = *1MS* CALL.
01602  M00S01097.1ms     +++|*                (MB - MB+4) = MESSAGE BUFFER PARAMETERS.
01603  M00S01098.1ms     +++|*                (MB1 - MB1+4) = MESSAGE BUFFER + 1 PARAMETERS.
01604  M00S01099.1ms     +++|*                (MB2 - MB2+4) = MESSAGE BUFFER + 2 PARAMETERS.
01605  M00S01100.1ms     +++|*
01606  M00S01101.1ms     +++|*         EXIT   (FA) = RELATIVE ADDRESS OF FNT ENTRY.
01607  M00S01102.1ms     +++|*                     = 0 IF NO FNT ENTRY.
01608  M00S01103.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION CODE.
01609  M00S01104.1ms     +++|*                (FO) = SPECIAL FET OPTIONS.
01610  M00S01105.1ms     +++|*                (RC) = *DRCM* MONITOR FUNCTION CODE.
01611  M00S01106.1ms     +++|*                (BS - BS+4) = FILE NAME AND EXTERNAL REQUEST.
01612  M00S01107.1ms     +++|*                (DP - DP+4) = (FET+6) IF RANDOM FILE.
01613  M00S01108.1ms     +++|*                (FS - FS+4) = FST ENTRY.
01614  M00S01109.1ms     +++|*                (FT - FT+1) = FIRST.
01615  M00S01110.1ms     +++|*                (IN - IN+1) = IN.
01616  M00S01111.1ms     +++|*                (LM - LM+1) = LIMIT.
01617  M00S01112.1ms     +++|*                (OT - OT+1) = OUT.
01618  M00S01113.1ms     +++|*                (PC) = 0.
01619  M00S01114.1ms     +++|*                (CFNB) = UPPER STATUS BITS OF FST ENTRY.
01620  M00S01115.1ms     +++|*                (ERCF) = ERROR CODE AND FUNCTION FLAGS.
01621  M00S01116.1ms     +++|*                (FACF) = FILE ACCESS FLAGS.
01622  M00S01117.1ms     +++|*                (FETL) = FET LENGTH - 5.
01623  M00S01118.1ms     +++|*                (FNTA) = RELATIVE ADDRESS OF FNT ENTRY, IF NONZERO.
01624  M00S01119.1ms     +++|*                (ICFC) = INTERNAL *CIO* FUNCTION CODE.
01625  M00S01120.1ms     +++|*                (LVXC) = LEVEL NUMBER.
01626  M00S01121.1ms     +++|*                (MSFF) = MASS STORAGE FILE, IF ZERO.
01627  M00S01122.1ms     +++|*                (PMFF) = DIRECT ACCESS PERMANENT FILE, IF NONZERO.
01628  M00S01123.1ms     +++|*                (RCRF) = RECALL REASON CODE AND RESTART FLAGS.
01629  M00S01124.1ms     +++|*                TO *CFE* IF FNT ENTRY TO BE CREATED.
01630  M00S01125.1ms     +++|*                TO *CFN* IF WRITE OF NON-MASS STORAGE FILE.
Line S00022 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01631  M01S00022.241l630 +++|*                TO *CFN2* IF ERROR CODE NOT CORRECT.
01632  M00S01126.1ms     +++|*                TO *DRF* TO DROP FILE.
Line S00157 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
01633  M01S00157.ns2090  +++|*                TO *ERS1* IF TO WAIT FOR WRITE BUFFER FLUSH.
01634  M00S01127.1ms     +++|*                TO *TMS* IF SKIP, OPEN, CLOSE, READ, OR WRITE
01635  M00S01128.1ms     +++|*                   FUNCTION PROCESSOR TO BE LOADED.
01636  M00S01129.1ms     +++|*                TO *UFS* IF READ OF NULL FILE.
01637  M00S01130.1ms     +++|*
01638  M00S01131.1ms     +++|*         ERROR  TO *ERR* IF PRESET ERROR DETECTED.
01639  M00S01132.1ms     +++|*
01640  M00S01133.1ms     +++|*         USES   EN, CM - CM+4, T1 - T5.
01641  M00S01134.1ms     +++|*
Line S01135 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
01642  M01S01135.ns2090  ---|*         CALLS  /SRP/EVF, EXR, STI.
Line S00158 Modification History
M01 (Added by) ns2090
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01643  M02S00158.241l630 ---|*         CALLS  /SRP/EVF, EXR, FWB, STI.
Line S00023 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01644  M01S00023.241l630 +++|*         CALLS  CHG, /SRP/EVF, EXR, FWB, STI.
01645  M00S01136.1ms     +++|*
Line S01137 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01646  M01S01137.ns22000 ---|*         MACROS CFET, ERROR, MONITOR, NFA.
Line S00132 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01647  M01S00132.ns22000 +++|*         MACROS CFET, ERROR, MONITOR, NFA, SFA.
01648  M00S01138.1ms     +++|
01649  M00S01139.1ms     +++|
01650  M00S01140.1ms     +++| PRS      BSS    0           ENTRY
01651  M00S01141.1ms     +++|          LDD    MA          RESET FET PARAMETERS IN MESSAGE BUFFER
01652  M00S01142.1ms     +++|          CWD    MB          SAVE MESSAGE BUFFER PARAMETERS
01653  M00S01143.1ms     +++|          CRM    RCRF,ON
01654  M00S01144.1ms     +++|          ADN    1
01655  M00S01145.1ms     +++|          CWD    MB1
01656  M00S01146.1ms     +++|          ADN    1
01657  M00S01147.1ms     +++|          CWD    MB2
01658  M00S01148.1ms     +++|          LDD    MB+3        GET EXTERNAL *CIO* FUNCTION CODE
01659  M00S01149.1ms     +++|          SHN    1           REPOSITION EXTERNAL *CIO* CODE
01660  M00S01150.1ms     +++|          STD    FO
01661  M00S01151.1ms     +++|          LDD    MB+4        GET INTERNAL *CIO* FUNCTION CODE
01662  M00S01152.1ms     +++|          STD    FC
01663  M00S01153.1ms     +++|          LDN    ZERL
01664  M00S01154.1ms     +++|          CRD    FS
01665  M00S01155.1ms     +++|          LDM    FNTA        GET FNT RELATIVE ADDRESS
01666  M00S01156.1ms     +++|          STD    FA
01667  M00S01157.1ms     +++|          ZJN    PRS1        IF NO FNT ENTRY
01668  M00S01158.1ms     +++|          NFA    FA,R        READ FNT ENTRY
01669  M00S01159.1ms     +++|          CRD    DP
01670  M00S01160.1ms     +++|          ADN    FSTL        READ FST ENTRY
01671  M00S01161.1ms     +++|          CRD    FS
Line S00133 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01672  M01S00133.ns22000 +++|          ADN    FUTL-FSTL   READ FUT ENTRY
01673  M01S00134.ns22000 +++|          CRD    CM
01674  M01S00135.ns22000 +++|          LDD    CM+2        SAVE FILE SECURITY ACCESS LEVEL
01675  M01S00136.ns22000 +++|          LPN    7
01676  M01S00137.ns22000 +++|          STM    FSAL
01677  M00S01162.1ms     +++|          LDD    FS+4        SAVE UPPER STATUS BITS
01678  M00S01163.1ms     +++|          SHN    -6
01679  M00S01164.1ms     +++|          STM    CFNB
01680  M00S01165.1ms     +++|          LDD    DP+4        SAVE FILE TYPE FLAG
01681  M00S01166.1ms     +++|          SHN    -6
01682  M00S01167.1ms     +++|          LMN    PMFT
01683  M00S01168.1ms     +++|          STM    PMFF
01684  M00S01169.1ms     +++|          LDD    DP+3        SAVE FILE ACCESS FLAGS
01685  M00S01170.1ms     +++|          LPN    77
01686  M00S01171.1ms     +++|          STM    FACF
01687  M00S01172.1ms     +++| PRS1     LDN    DRCM        SET DRIVER RECALL MONITOR FUNCTION
01688  M00S01173.1ms     +++|          STD    RC
Line S00138 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01689  M01S00138.ns22000 +++|          LDD    CP          GET JOB SECURITY ACCESS LEVEL
01690  M01S00139.ns22000 +++|          ADK    JSCW
01691  M01S00140.ns22000 +++|          CRD    CM
01692  M01S00141.ns22000 +++|          LDD    CM+1
01693  M01S00142.ns22000 +++|          SHN    -11
01694  M01S00143.ns22000 +++|          STM    JSAL
01695  M01S00144.ns22000 +++|          LDK    SSML        GET O/S SECURITY MODE
01696  M01S00145.ns22000 +++|          CRD    CM
01697  M01S00146.ns22000 +++|          LDD    CM
01698  M01S00147.ns22000 +++|          LPN    77
01699  M01S00148.ns22000 +++|          STM    OSSM
01700  M00S01174.1ms     +++|          LDN    0
01701  M00S01175.1ms     +++|          STD    PC          CLEAR PRU COUNT
01702  M00S01176.1ms     +++|          STD    CM+1        CLEAR *VFPM* ERROR FLAG
01703  M00S01177.1ms     +++|          LDM    ERCF        GET ERROR CODE
01704  M00S01178.1ms     +++|          LPN    77
01705  M00S01179.1ms     +++|          STD    EN          SAVE ERROR CODE
01706  M00S01180.1ms     +++|          SBN    /CIOERR/ARG
Line S01181 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01707  M01S01181.v23l617 ---|          ZJN    PRS3        IF ILLEGAL FET ADDRESS
Line S00011 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01708  M01S00011.v23l617 +++|          ZJN    PRS3        IF INCORRECT FET ADDRESS
01709  M00S01182.1ms     +++|          SBN    /CIOERR/MEC-/CIOERR/ARG
01710  M00S01183.1ms     +++|          MJN    PRS2        IF ERROR CODE VALID
Line S01184 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01711  M01S01184.241l630 ---|          MONITOR HNGM       HANG PP
Line S00024 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01712  M01S00024.241l630 +++|          LDK    PPET        SET PPU ABORT ERROR FLAG
01713  M01S00025.241l630 +++|          RJM    CHG         CONDITIONALLY HANG PP
01714  M01S00026.241l630 +++|          LJM    CFN2        COMPLETE FUNCTION
01715  M00S01185.1ms     +++|
01716  M00S01186.1ms     +++|*         REVALIDATE FET PARAMETERS IF RESTARTED FROM RECALL STACK.
01717  M00S01187.1ms     +++|
01718  M00S01188.1ms     +++| PRS2     LDM    RCRF        GET RECALL STACK FLAG
01719  M00S01189.1ms     +++|          SHN    21-13
01720  M00S01190.1ms     +++|          PJN    PRS4        IF FET PARAMETERS PASSED IN CALL
01721  M00S01191.1ms     +++|          LDD    FC          GET VALIDATION FLAGS
01722  M00S01192.1ms     +++|          LPN    3
Line S01193 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01723  M01S01193.271l716 ---|          STD    CM+4
Line S00001 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01724  M01S00001.271l716 +++|          STD    CM+1
01725  M00S01194.1ms     +++|          LDD    IR+3        SET FET ADDRESS
01726  M00S01195.1ms     +++|          LPN    77
Line S01196 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01727  M01S01196.271l716 ---|          STD    CM+1
Line S00002 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01728  M01S00002.271l716 +++|          STD    CM+3
01729  M00S01197.1ms     +++|          LDD    IR+4
Line S01198 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01730  M01S01198.271l716 ---|          STD    CM+2
Line S00003 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01731  M01S00003.271l716 +++|          STD    CM+4
01732  M00S01199.1ms     +++|          MONITOR  VFPM
01733  M00S01200.1ms     +++|          LDD    CM+1
01734  M00S01201.1ms     +++|          LMN    1
Line S01202 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01735  M01S01202.v23l617 ---|          NJN    PRS4        IF NOT ILLEGAL FET ADDRESS
Line S00012 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01736  M01S00012.v23l617 +++|          NJN    PRS4        IF NOT INCORRECT FET ADDRESS
01737  M00S01203.1ms     +++| PRS3     ERROR  ARG         *FET ADDRESS OUT OF RANGE*
01738  M00S01204.1ms     +++|
01739  M00S01205.1ms     +++| PRS4     CFET               GET FILE NAME AND EXTERNAL FUNCTION CODE
01740  M00S01206.1ms     +++|          CRD    BS
01741  M00S01207.1ms     +++|          ADN    1
01742  M00S01208.1ms     +++|          CRD    T1          GET SPECIAL OPTIONS
01743  M00S01209.1ms     +++|          LDD    FC
01744  M00S01210.1ms     +++|          NJN    PRS5        IF INTERNAL CODE SET
01745  M00S01211.1ms     +++|          LDD    BS+3        CLEAR ERROR FIELD
01746  M00S01212.1ms     +++|          SCN    3
01747  M00S01213.1ms     +++|          STD    BS+3
01748  M00S01214.1ms     +++|          LDD    BS+4
01749  M00S01215.1ms     +++|          STD    FO
01750  M00S01216.1ms     +++|          UJN    PRS6        SET EXTERNAL CODE
01751  M00S01217.1ms     +++|
01752  M00S01218.1ms     +++| PRS5     LDD    BS+3        CLEAR LEVEL NUMBER FROM FET
01753  M00S01219.1ms     +++|          SCN    77
01754  M00S01220.1ms     +++|          STD    BS+3
01755  M00S01221.1ms     +++|          LDM    LVXC        RESET LEVEL NUMBER IN FET
01756  M00S01222.1ms     +++|          SHN    -6
01757  M00S01223.1ms     +++|          LPN    74
01758  M00S01224.1ms     +++|          RAD    BS+3
01759  M00S01225.1ms     +++| PRS6     LDD    FO          GET EXTERNAL *CIO* CODE
01760  M00S01226.1ms     +++|          LPC    776         CLEAR COMPLETE BIT AND ERROR FIELD
01761  M00S01227.1ms     +++|          STD    BS+4
01762  M00S01228.1ms     +++|
01763  M00S01229.1ms     +++|*         GET BUFFER POINTERS.
01764  M00S01230.1ms     +++|
01765  M00S01231.1ms     +++|          LDD    MA
01766  M00S01232.1ms     +++|          ADN    2
01767  M00S01233.1ms     +++|          CRD    IN-1        *IN* AND *OUT*
01768  M00S01234.1ms     +++|          ADN    1
01769  M00S01235.1ms     +++|          CRD    FT-1        RANDOM FLAG, FET LENGTH, *FIRST*, *LIMIT*
01770  M00S01236.1ms     +++|          LDD    FT-1        GET FET LENGTH - 5
01771  M00S01237.1ms     +++|          LPN    77
01772  M00S01238.1ms     +++|          STM    FETL
01773  M00S01239.1ms     +++|          LDD    FT-1        GET RANDOM FLAG
01774  M00S01240.1ms     +++|          LPC    4000
01775  M00S01241.1ms     +++|          STD    FO
01776  M00S01242.1ms     +++|          ZJN    PRS7        IF NOT RANDOM FILE
01777  M00S01243.1ms     +++|          LDD    FC          CHECK FUNCTION CODE
01778  M00S01244.1ms     +++|          SHN    -7
01779  M00S01245.1ms     +++|          LPN    7
01780  M00S01246.1ms     +++|          NJN    PRS7        IF NOT READ/WRITE
01781  M00S01247.1ms     +++|          LDM    RCRF        CHECK DATA TRANSFERRED FLAG
01782  M00S01248.1ms     +++|          LPC    100
01783  M00S01249.1ms     +++|          NJN    PRS7        IF PRIOR DATA TRANSFER
01784  M00S01250.1ms     +++|          CFET   6           READ RANDOM REQUEST WORD
01785  M00S01251.1ms     +++|          CRD    DP
01786  M00S01252.1ms     +++|          LDD    DP+3        CHECK RANDOM REQUEST ADDRESS
01787  M00S01253.1ms     +++|          ADD    DP+4
01788  M00S01254.1ms     +++|          ZJN    PRS7        IF RANDOM REQUEST ADDRESS NOT SET
01789  M00S01255.1ms     +++|          AOM    TMSA        SET RANDOM FUNCTION FLAG
01790  M00S01256.1ms     +++| PRS7     LDD    T1+1        SET FET OPTIONS
01791  M00S01257.1ms     +++|          LPC    3777
01792  M00S01258.1ms     +++|          RAD    FO
01793  M00S01259.1ms     +++|          LDM    FNTA        RESET FNT RELATIVE ADDRESS
01794  M00S01260.1ms     +++|          STD    FA
01795  M00S01261.1ms     +++|          LDD    EN          CHECK FOR ERROR
01796  M00S01262.1ms     +++|          ZJN    PRS8        IF NO ERROR
01797  M00S01263.1ms     +++|          LJM    ERR         PROCESS ERROR
01798  M00S01264.1ms     +++|
01799  M00S01265.1ms     +++| PRS8     LDD    CM+1        CHECK *VFPM* REPLY
01800  M00S01266.1ms     +++|          ZJN    PRS9        IF NO ERROR
01801  M00S01267.1ms     +++|          ERROR  BUF         *BUFFER ARGUMENT ERROR*
01802  M00S01268.1ms     +++|
01803  M00S01269.1ms     +++| PRS9     LDD    FA
01804  M00S01270.1ms     +++|          NJN    PRS10       IF FNT ENTRY PRESENT
01805  M00S01271.1ms     +++|          LDM    ERCF        CHECK IF TO CREATE FNT ENTRY
01806  M00S01272.1ms     +++|          SHN    21-6
01807  M00S01273.1ms     +++|          PJN    PRS10       IF NOT TO CREATE FNT ENTRY
01808  M00S01274.1ms     +++|          LJM    CFE         CREATE FNT ENTRY
01809  M00S01275.1ms     +++|
01810  M00S01276.1ms     +++| PRS10    LDD    FS          CHECK FOR MASS STORAGE
Line S01277 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01811  M01S01277.ns22000 ---|          LPN    77
01812  M00S01278.1ms     +++|          ZJN    PRS11       IF NO EQUIPMENT ASSIGNED
Line S01279 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01813  M01S01279.ns22000 ---|          ADM    ESTS        READ EST ENTRY
Line S00149 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01814  M01S00149.ns22000 +++|          SFA    EST         READ EST ENTRY
01815  M01S00150.ns22000 +++|          ADK    EQDE
01816  M00S01280.1ms     +++|          CRD    CM
01817  M00S01281.1ms     +++|          LDD    CM
01818  M00S01282.1ms     +++|          SHN    -13
01819  M00S01283.1ms     +++|          LMN    1
01820  M00S01284.1ms     +++| PRS11    STD    T1          SAVE MASS STORAGE FLAG
01821  M00S01285.1ms     +++|          STM    MSFF
01822  M00S01286.1ms     +++|          LDD    FC
01823  M00S01287.1ms     +++|          SHN    -6
01824  M00S01288.1ms     +++|          LPN    17
01825  M00S01289.1ms     +++|          LMN    /CIO/RET
01826  M00S01290.1ms     +++|          ZJN    PRS12       IF RETURN/UNLOAD FUNCTION
01827  M00S01291.1ms     +++|          LMN    /CIO/EVI&/CIO/RET
01828  M00S01292.1ms     +++|          NJN    PRS13       IF NOT EVICT FUNCTION
01829  M00S01293.1ms     +++|          LDD    T1
01830  M00S01294.1ms     +++|          NJN    PRS12       IF NOT MASS STORAGE FILE
01831  M00S01295.1ms     +++|          LDD    FA
01832  M00S01296.1ms     +++|          ZJN    PRS12       IF NO FNT ENTRY
01833  M00S01297.1ms     +++|          LDC    1L4+SRP     LOAD SPECIAL PROCESSOR OVERLAY
01834  M00S01298.1ms     +++|          RJM    EXR
01835  M00S01299.1ms     +++|          RJM    /SRP/EVF    EVICT MASS STORAGE FILE
01836  M00S01300.1ms     +++| PRS12    LDD    FC          GET UNLOAD FLAG FOR *DRF*
01837  M00S01301.1ms     +++|          SHN    -12
01838  M00S01302.1ms     +++|          LPN    1
01839  M00S01303.1ms     +++|          LJM    DRF         DROP FILE
01840  M00S01304.1ms     +++|
01841  M00S01305.1ms     +++|
01842  M00S01306.1ms     +++| SRPO     EQU    *+5         SPECIAL REQUEST PROCESSOR ORIGIN
01843  M00S01307.1ms     +++|
01844  M00S01308.1ms     +++|
01845  M00S01309.1ms     +++| PRS13    LDD    T1          GET MASS STORAGE FLAG
01846  M00S01310.1ms     +++|          ADM    PMFF        CHECK FILE TYPE
01847  M00S01311.1ms     +++|          NJN    PRS14       IF NOT DIRECT ACCESS PERMANENT FILE
Line S01312 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
01848  M01S01312.ns2090  ---|          LDM    FACF        CHECK FILE ACCESS MODE
Line S00159 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
01849  M01S00159.ns2090  +++|          LDM    TMSA
01850  M01S00160.ns2090  +++|          NJN    PRS13.1     IF RANDOM READ/WRITE
01851  M01S00161.ns2090  +++|          LDD    FC
01852  M01S00162.ns2090  +++|          SHN    -6
01853  M01S00163.ns2090  +++|          LPN    17
01854  M01S00164.ns2090  +++|          LMN    /CIO/WTF
01855  M01S00165.ns2090  +++|          ZJN    PRS13.2     IF WRITE
01856  M01S00166.ns2090  +++| PRS13.1  RJM    FWB         FLUSH WRITE BUFFER
01857  M01S00167.ns2090  +++|          ZJN    PRS13.2     IF NO FLUSH IN PROGRESS
01858  M01S00168.ns2090  +++|          LDN    LBBR-PTLR   SET BUFFER BUSY REJECT
01859  M01S00169.ns2090  +++|          RAM    ERSA
01860  M01S00170.ns2090  +++|          LJM    ERS1        ENTER RECALL STACK
01861  M01S00171.ns2090  +++|
01862  M01S00172.ns2090  +++| PRS13.2  LDM    FACF        CHECK FILE ACCESS MODE
Line S01313 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01863  M01S01313.ns21000 ---|          LPN    30
Line S00001 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01864  M01S00001.ns21000 +++|          LPN    20
01865  M00S01314.1ms     +++|          ZJN    PRS14       IF NOT M, A, RM, OR RA MODE
01866  M00S01315.1ms     +++|          RJM    STI         SET TRACK INTERLOCK
01867  M00S01316.1ms     +++|
01868  M00S01317.1ms     +++|*         DETERMINE FUNCTION PROCESSOR.
01869  M00S01318.1ms     +++|
01870  M00S01319.1ms     +++| PRS14    LDD    FC
01871  M00S01320.1ms     +++|          SHN    -6
01872  M00S01321.1ms     +++|          LPN    17
01873  M00S01322.1ms     +++|          NJN    PRS17       IF NOT READ
01874  M00S01323.1ms     +++|          LDD    FS+2        CHECK FOR NULL READ
01875  M00S01324.1ms     +++|          ZJN    PRS15       IF NO CURRENT TRACK
01876  M00S01325.1ms     +++|          LCN    WMS-RMS     LOAD READ OVERLAY
01877  M00S01326.1ms     +++|          UJN    PRS18       SET READ OVERLAY NAME
01878  M00S01327.1ms     +++|
01879  M00S01328.1ms     +++|*         PROCESS READ OF NULL FILE.
01880  M00S01329.1ms     +++|
01881  M00S01330.1ms     +++| PRS15    LDN    /CIO/EOI    SET EOI FST STATUS
01882  M00S01331.1ms     +++|          STD    FS+4
01883  M00S01332.1ms     +++|          LDD    FO
01884  M00S01333.1ms     +++|          SHN    21-13
01885  M00S01334.1ms     +++|          PJN    PRS16       IF NOT RANDOM FILE
01886  M00S01335.1ms     +++|          LDN    ZERL        SET RANDOM INDEX = 1
01887  M00S01336.1ms     +++|          CRD    CM
01888  M00S01337.1ms     +++|          LDD    HN
01889  M00S01338.1ms     +++|          STD    CM+2
01890  M00S01339.1ms     +++|          CFET   6
01891  M00S01340.1ms     +++|          CWD    CM
01892  M00S01341.1ms     +++| PRS16    LJM    UFS         UPDATE FET STATUS
01893  M00S01342.1ms     +++|
01894  M00S01343.1ms     +++|*         PROCESS WRITE OF FILE ASSIGNED TO NULL EQUIPMENT.
01895  M00S01344.1ms     +++|
01896  M00S01345.1ms     +++| PRS17    LMN    /CIO/WTF
01897  M00S01346.1ms     +++|          NJN    PRS19       IF NOT WRITE
Line S01347 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
01898  M01S01347.ns2090  ---|          LDD    T1
Line S00173 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
01899  M01S00173.ns2090  +++|          LDM    MSFF
01900  M00S01348.1ms     +++|          ZJN    PRS18       IF MASS STORAGE FILE
01901  M00S01349.1ms     +++|          LDN    0           SET OUT = IN
01902  M00S01350.1ms     +++|          STD    IN-1
01903  M00S01351.1ms     +++|          STD    IN-2
01904  M00S01352.1ms     +++|          STD    IN-3
01905  M00S01353.1ms     +++|          CFET   3
01906  M00S01354.1ms     +++|          CWD    IN-3
01907  M00S01355.1ms     +++|          LJM    CFN         COMPLETE FUNCTION
01908  M00S01356.1ms     +++|
01909  M00S01357.1ms     +++| PRS18    ADC    WMS         SET WRITE OVERLAY NAME
01910  M00S01358.1ms     +++|          UJN    PRS20       EXECUTE FUNCTION PROCESSOR
01911  M00S01359.1ms     +++|
01912  M00S01360.1ms     +++| PRS19    LMN    /CIO/CLO&/CIO/WTF
Line S01361 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01913  M01S01361.ns22000 ---|          NJN    PRS21       IF NOT CLOSE
Line S00151 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01914  M01S00151.ns22000 +++|          NJN    PRS22       IF NOT CLOSE
01915  M00S01362.1ms     +++|          LDC    CMS         SET CLOSE OVERLAY NAME
01916  M00S01363.1ms     +++| PRS20    STM    TMSB
01917  M00S01364.1ms     +++| PRS21    LJM    TMS         LOAD AND EXECUTE FUNCTION PROCESSOR
Line S00152 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01918  M01S00152.ns22000 +++|
01919  M01S00153.ns22000 +++| PRS22    LMN    /CIO/OVW&/CIO/CLO
01920  M01S00154.ns22000 +++|          NJN    PRS21       IF NOT OVERWRITE
01921  M01S00155.ns22000 +++|          LDC    OMS         SET OVERWRITE OVERLAY NAME
01922  M01S00156.ns22000 +++|          UJN    PRS20       EXECUTE FUNCTION PROCESSOR
01923  M00S01365.1ms     +++| STI      SPACE  4,15
01924  M00S01366.1ms     +++|**        STI - SET TRACK INTERLOCK.
01925  M00S01367.1ms     +++|*
01926  M00S01368.1ms     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
01927  M00S01369.1ms     +++|*
01928  M00S01370.1ms     +++|*         EXIT   (A) = 0.
01929  M00S01371.1ms     +++|*
01930  M00S01372.1ms     +++|*         ERROR  TO *ERS1* IF INTERLOCK REJECT.
01931  M00S01373.1ms     +++|*                TO *ERR* IF ERROR FLAG SET.
01932  M00S01374.1ms     +++|*
01933  M00S01375.1ms     +++|*         USES   CM - CM+4.
01934  M00S01376.1ms     +++|*
01935  M00S01377.1ms     +++|*         MACROS ERROR, MONITOR.
01936  M00S01378.1ms     +++|
01937  M00S01379.1ms     +++|
01938  M00S01380.1ms     +++| STI2     LDC    2000        SET TRACK INTERLOCK FLAG
01939  M00S01381.1ms     +++|          RAM    RCRF
01940  M00S01382.1ms     +++|
01941  M00S01383.1ms     +++| STI      SUBR               ENTRY/EXIT
01942  M00S01384.1ms     +++|          LDM    RCRF        CHECK TRACK INTERLOCK FLAG
01943  M00S01385.1ms     +++|          SHN    21-12
01944  M00S01386.1ms     +++|          MJN    STIX        IF TRACK INTERLOCK ALREADY SET
01945  M00S01387.1ms     +++|          LDD    FS          SET EQUIPMENT
Line S00003 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01946  M01S00003.253l688 +++|          ADD    TH          IMMEDIATE RETURN IF INACCESSIBLE DEVICE
Line S01388 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01947  M01S01388.ns22000 ---|          LPN    77
01948  M00S01389.1ms     +++|          STD    CM+1
01949  M00S01390.1ms     +++|          LDD    FS+1        SET FIRST TRACK
01950  M00S01391.1ms     +++|          STD    CM+2
01951  M00S01392.1ms     +++|          LDN    STIS
01952  M00S01393.1ms     +++|          STD    CM+3
01953  M00S01394.1ms     +++|          MONITOR STBM       SET TRACK INTERLOCK
01954  M00S01395.1ms     +++|          LDD    CM+1
Line S01396 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01955  M01S01396.253l688 ---|          ZJN    STI2        IF INTERLOCK SET
Line S00004 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01956  M01S00004.253l688 +++|          SHN    21-11
01957  M01S00005.253l688 +++|          PJN    STI0        IF FUNCTION PROCESSED
01958  M01S00006.253l688 +++|          ISTORE CDAA,(UJN CDA4)  SKIP EOI WRITE
01959  M01S00007.253l688 +++|          LDD    FS          SET EST ORDINAL
01960  M01S00008.253l688 +++|          STM    ERSD
01961  M01S00009.253l688 +++|          RJM    CDA         CHECK DEVICE ACCESSIBILITY
01962  M01S00010.253l688 +++|
01963  M01S00011.253l688 +++| STI0     ZJP    STI2        IF INTERLOCK SET
01964  M00S01397.1ms     +++|          LDD    CP
01965  M00S01398.1ms     +++|          ADN    STSW
01966  M00S01399.1ms     +++|          CRD    CM
01967  M00S01400.1ms     +++|          LDD    CM+1
01968  M00S01401.1ms     +++|          SBN    SPET
01969  M00S01402.1ms     +++|          MJN    STI1        IF ERROR FLAG NOT ABOVE THRESHOLD
01970  M00S01403.1ms     +++|          ERROR  EFT         *ERROR FLAG TERMINATION*
01971  M00S01404.1ms     +++|
01972  M00S01405.1ms     +++| STI1     LDN    TIRR-PTLR   SET TRACK INTERLOCK REJECT REASON CODE
01973  M00S01406.1ms     +++|          RAM    ERSA
Line S01407 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01974  M01S01407.ns22000 ---|          LDC    TIRT        SET TRACK INTERLOCK REJECT RECALL TIME
Line S00157 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01975  M01S00157.ns22000 +++|          LDN    TIRT        SET TRACK INTERLOCK REJECT RECALL TIME
01976  M00S01408.1ms     +++|          STM    ERSB
01977  M00S01409.1ms     +++|          LJM    ERS1        ENTER RECALL STACK
01978  M00S01410.1ms     +++|          SPACE  4,10
01979  M00S01411.1ms     +++|**        COMMON DECKS.
01980  M00S01412.1ms     +++|
01981  M00S01413.1ms     +++|
01982  M00S01414.1ms     +++|*CALL     COMPVFN
01983  M00S01415.1ms     +++|          SPACE  4,10
01984  M00S01416.1ms     +++|          OVERFLOW  PPFW
01985  M00S01417.1ms     +++| SRP      OVERLAY (SPECIAL REQUEST PROCESSOR.),SRPO
01986  M00S01418.1ms     +++|          SPACE  4,10
01987  M00S01419.1ms     +++|**        DIRECT LOCATION ASSIGNMENTS.
01988  M00S01420.1ms     +++|
01989  M00S01421.1ms     +++|
01990  M00S01422.1ms     +++| QA       EQU    26          DEQUEUE GLOBAL FNT ENTRY INDICATOR
01991  M00S01423.1ms     +++| SRP      SPACE  4,10
01992  M00S01424.1ms     +++|**        SRP - SPECIAL REQUEST PROCESSOR.
01993  M00S01425.1ms     +++|
01994  M00S01426.1ms     +++|
01995  M00S01427.1ms     +++| SRP      SUBR               ENTRY/EXIT
01996  M00S01428.1ms     +++|          UJN    SRPX        RETURN
01997  M00S01429.1ms     +++| EVF      SPACE  4,15
01998  M00S01430.1ms     +++|**        EVF - EVICT MASS STORAGE FILE.
01999  M00S01431.1ms     +++|*
02000  M00S01432.1ms     +++|*         ENTRY  (FA) = RELATIVE ADDRESS OF FNT ENTRY IN NFL.
02001  M00S01433.1ms     +++|*                (DP - DP+4) = LOCAL FNT ENTRY.
02002  M00S01434.1ms     +++|*                (FS - FS+4) = LOCAL FST ENTRY.
02003  M00S01435.1ms     +++|*
02004  M00S01436.1ms     +++|*         EXIT   (FS - FS+4) = UPDATED FST ENTRY.
02005  M00S01437.1ms     +++|*                TO *RRF* IF FILE SUCCESSFULLY EVICTED.
Line S00027 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02006  M01S00027.241l630 +++|*                TO *RRF* IF ERROR CLEARING GLOBAL QUEUE ENTRY.
Line S00117 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02007  M01S00117.242l642 +++|*                TO *CDA*, IF ERROR FROM *0DQ*.
02008  M00S01438.1ms     +++|*
02009  M00S01439.1ms     +++|*         USES   T1, T5, T6, T7, CM+1 - CM+3.
02010  M00S01440.1ms     +++|*
Line S01441 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02011  M01S01441.241l630 ---|*         CALLS  HNG, MSR, WEI, *0DQ*.
Line S00028 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02012  M01S00028.241l630 +++|*         CALLS  CHG, MSR, WEI, *0DQ*.
02013  M00S01442.1ms     +++|*
02014  M00S01443.1ms     +++|*         MACROS ENDMS, EXECUTE, MONITOR, NFA, SETMS.
02015  M00S01444.1ms     +++|
02016  M00S01445.1ms     +++|
02017  M00S01446.1ms     +++| EVF      SUBR               ENTRY/EXIT
02018  M00S01447.1ms     +++|          LDD    DP+3        CHECK WRITE LOCKOUT
02019  M00S01448.1ms     +++|          LPN    1
02020  M00S01449.1ms     +++|          NJN    EVFX        IF WRITE LOCKOUT SET
02021  M00S01450.1ms     +++|          LDD    FS+2        CHECK CURRENT TRACK
02022  M00S01451.1ms     +++|          ZJN    EVF1        IF FILE NOT USED
02023  M00S01452.1ms     +++|          LDD    DP+4        GET FILE TYPE
02024  M00S01453.1ms     +++|          SHN    -6
02025  M00S01454.1ms     +++|          STD    T1
02026  M00S01455.1ms     +++|          LDM    TFTY,T1     SET PROCESSOR ADDRESS
02027  M00S01456.1ms     +++|          ZJN    EVFX        IF NO PROCESSING FOR FILE TYPE
02028  M00S01457.1ms     +++|          STD    T1
02029  M00S01458.1ms     +++|          LJM    0,T1        JUMP TO PROCESSOR
02030  M00S01459.1ms     +++|
02031  M00S01460.1ms     +++| EVF1     LJM    RRF         RESET POINTERS
02032  M00S01461.1ms     +++|
02033  M00S01462.1ms     +++|*         EVICT QUEUED FILE.
02034  M00S01463.1ms     +++|
Line S01464 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02035  M01S01464.ns22000 ---| EVF2     LDD    FS          SET EQUIPMENT NUMBER
Line S00158 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02036  M02S00158.ns2358  ---| EVF2     LDD    FS          SET EST ORDINAL
Line S01465 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02037  M02S01465.ns2358  ---|          LPC    777
Line S01466 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02038  M01S01466.ns2358  ---|          STM    DQLA-3
02039  M01S01467.ns2358  ---|          LDD    FS+1        SET FIRST TRACK
02040  M01S01468.ns2358  ---|          STM    DQLA-1
02041  M01S01469.ns2358  ---|          LDN    0           INDICATE GLOBAL QUEUE TO BE SEARCHED
02042  M01S01470.ns2358  ---|          STD    QA
Line S00118 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02043  M02S00118.ns2358  ---|          STM    DQLA-2
Line S01471 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02044  M01S01471.ns2358  ---|          EXECUTE  0DQ,DQLA  CLEAR GLOBAL ENTRY FOR QUEUED FILE
Line S00023 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02045  M01S00023.ns2358  +++| EVF2     LDN    0           FORCE QFT SEARCH
02046  M01S00024.ns2358  +++|          STD    QA
Line S00025 Modification History
M01 (Added by) ns2358
M02 (Removed by) 1ms7
Seq #  *Modification Id* Act 
----------------------------+
02047  M02S00025.1ms7    ---|          STM    DQLA-1      SELECT RELEASE DISK SPACE
02048  M02S00026.1ms7    ---|          EXECUTE  0DQ,DQLA
Line S01472 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 1ms7
Seq #  *Modification Id* Act 
----------------------------+
02049  M02S01472.1ms7    ---|          LDD    QA
Line S00119 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms7
Seq #  *Modification Id* Act 
----------------------------+
02050  M02S00119.1ms7    ---|          PJN    EVF2.1      IF NO ERROR
02051  M02S00120.1ms7    ---|          RJM    CDA         CHECK DEVICE
02052  M02S00121.1ms7    ---|
02053  M02S00122.1ms7    ---| EVF2.1   LDD    QA
Line S00001 Modification History
M01 (Added by) 1ms7
Seq #  *Modification Id* Act 
----------------------------+
02054  M01S00001.1ms7    +++|          LDN    1           SELECT NO RELEASE OF DISK SPACE
02055  M01S00002.1ms7    +++|          STM    DQLA-1
02056  M01S00003.1ms7    +++|          EXECUTE  0DQ,DQLA  RETURN QFT ENTRY
Line S00002 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
02057  M01S00002.1ms13   +++|          MJP    EVF5.0      IF DEVICE IS INACCESSIBLE
Line S00004 Modification History
M01 (Added by) 1ms7
Seq #  *Modification Id* Act 
----------------------------+
02058  M01S00004.1ms7    +++|          LDD    QA
02059  M00S01473.1ms     +++|          NJN    EVF3        IF GLOBAL ENTRY FOUND AND CLEARED
Line S01474 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02060  M01S01474.241l630 ---|          RJM    HNG         HANG PP
Line S00029 Modification History
M01 (Added by) 241l630
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
02061  M02S00029.1ms6    ---|          LDN    0           SET NO ERROR FLAG
Line S00017 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
02062  M01S00017.1ms6    +++|*         LDN    0           SET NO ERROR FLAG
Line S00030 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02063  M01S00030.241l630 +++|          RJM    CHG         CONDITIONALLY HANG PP
02064  M01S00031.241l630 +++|          LJM    RRF         RESET RANDOM FET POINTERS
02065  M00S01475.1ms     +++|
02066  M00S01476.1ms     +++| EVF3     LDD    DP+4        CHANGE FILE TYPE IN LOCAL FNT
02067  M00S01477.1ms     +++|          LPN    77
02068  M00S01478.1ms     +++|          LMC    LOFT*100
02069  M00S01479.1ms     +++|          STD    DP+4
02070  M00S01480.1ms     +++|          NFA    FA,R        REWRITE LOCAL FNT ENTRY
02071  M00S01481.1ms     +++|          CWD    DP
02072  M00S01482.1ms     +++|
02073  M00S01483.1ms     +++|*         EVICT LOCAL FILE.
02074  M00S01484.1ms     +++|
02075  M00S01485.1ms     +++| EVF4     LDN    0           CLEAR SECTOR
02076  M00S01486.1ms     +++|          STD    T7
02077  M00S01487.1ms     +++|          STD    FS+3        CLEAR CURRENT SECTOR
02078  M00S01488.1ms     +++|          STD    FS+2        CLEAR CURRENT TRACK
02079  M00S01489.1ms     +++| EVF5     LDD    FS          SET EQUIPMENT
Line S00012 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02080  M01S00012.253l688 +++|          ADD    TH          IMMEDIATE RETURN IF INACCESSIBLE DEVICE
Line S01490 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02081  M01S01490.242l642 ---|          LPC    777
02082  M00S01491.1ms     +++|          ADC    0           SET DEVICE CHECKPOINT
02083  M00S01492.1ms     +++|*         ADC    4000        (DIRECT ACCESS PERMANENT FILE)
02084  M00S01493.1ms     +++| EVFA     EQU    *-1
02085  M00S01494.1ms     +++|          STD    CM+1
02086  M00S01495.1ms     +++|          LDD    FS+1        SET FIRST TRACK
02087  M00S01496.1ms     +++|          LPC    3777
02088  M00S01497.1ms     +++|          STD    CM+2
02089  M00S01498.1ms     +++|          LDD    T7          SET SECTOR
02090  M00S01499.1ms     +++|          STD    CM+3
02091  M00S01500.1ms     +++|          MONITOR DTKM       DROP TRACKS
Line S00013 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02092  M01S00013.253l688 +++|          LDD    CM+1        CHECK STATUS
02093  M01S00014.253l688 +++|          SHN    21-11
02094  M01S00015.253l688 +++|          PJN    EVF5.1      IF FUNCTION PROCESSED
02095  M01S00016.253l688 +++|          NFA    FA,R        RESTORE (FS - FS+4)
02096  M01S00017.253l688 +++|          ADN    1
02097  M01S00018.253l688 +++|          CRD    FS
Line S00019 Modification History
M01 (Added by) 253l688
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
02098  M02S00019.1ms13   ---|          LDD    FS          SET EST ORDINAL
Line S00003 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
02099  M01S00003.1ms13   +++| EVF5.0   LDD    FS          SET EST ORDINAL
Line S00020 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02100  M01S00020.253l688 +++|          STM    ERSD
02101  M01S00021.253l688 +++|          RJM    CDA         CHECK DEVICE ACCESSIBILITY
02102  M00S01501.1ms     +++|
02103  M00S01502.1ms     +++|*         INCREMENT PRU LIMIT FIELD IN CONTROL POINT AREA.
02104  M00S01503.1ms     +++|*         ACTUAL COUNT OF SECTORS RETURNED VIA DTKM IS IN CM+3 - CM+4
02105  M00S01504.1ms     +++|
Line S01505 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02106  M01S01505.253l688 ---|          LDD    CM+3        MOVE SECTOR COUNT TO RESIDENT CIO BUFFER
Line S00022 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02107  M01S00022.253l688 +++| EVF5.1   LDD    CM+3        MOVE SECTOR COUNT TO RESIDENT CIO BUFFER
02108  M00S01506.1ms     +++|          STM    CFNJ
02109  M00S01507.1ms     +++|          LDD    CM+4
02110  M00S01508.1ms     +++|          STM    CFNJ+1
02111  M00S01509.1ms     +++|          LDN    CICS        CHANGE TO INCREMENT FUNCTION
02112  M00S01510.1ms     +++|          STM    CFNI
02113  M00S01511.1ms     +++|          LJM    RRF         RESET POINTERS
02114  M00S01512.1ms     +++|
02115  M00S01513.1ms     +++|
Line S01514 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02116  M01S01514.ns2358  ---| DQLA     EQU    *+3         *0DQ* LOAD ADDRESS
Line S00027 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02117  M01S00027.ns2358  +++| DQLA     EQU    *+1         *0DQ* LOAD ADDRESS
02118  M00S01515.1ms     +++|
02119  M00S01516.1ms     +++|          ERRNG  10000-DQLA-ZDQL  CHECK *0DQ* LENGTH
02120  M00S01517.1ms     +++|
02121  M00S01518.1ms     +++|
02122  M00S01519.1ms     +++|*         EVICT PERMANENT FILE OR PRIMARY FILE.
02123  M00S01520.1ms     +++|
02124  M00S01521.1ms     +++| EVF6     LDC    4000        SET DEVICE CHECKPOINT FLAG
02125  M00S01522.1ms     +++|          STM    EVFA
02126  M00S01523.1ms     +++| EVF7     LDD    FS+1        SET FIRST TRACK
02127  M00S01524.1ms     +++|          STD    T6
02128  M00S01525.1ms     +++|          STD    FS+2
02129  M00S01526.1ms     +++|          LDD    DP+3        CHECK WRITE RESTRICTIONS
02130  M00S01527.1ms     +++|          LPN    30
02131  M00S01528.1ms     +++|          ZJN    EVF8        IF NOT MODIFY OR APPEND MODE
02132  M00S01529.1ms     +++|          LJM    EVFX        RETURN
02133  M00S01530.1ms     +++|
Line S01531 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02134  M01S01531.ns22000 ---| EVF8     LDD    FS          SET EQUIPMENT NUMBER
Line S00159 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02135  M01S00159.ns22000 +++| EVF8     LDD    FS          SET EST ORDINAL
Line S01532 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02136  M01S01532.ns22000 ---|          LPN    77
02137  M00S01533.1ms     +++|          STD    T5
02138  M00S01534.1ms     +++|          LDN    FSMS        SET FIRST SECTOR
02139  M00S01535.1ms     +++|          STD    FS+3
02140  M00S01536.1ms     +++|          STD    T7
Line S01537 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02141  M01S01537.242l642 ---|          SETMS  WRITE
Line S00123 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02142  M01S00123.242l642 +++|          SETMS  IO
02143  M00S01538.1ms     +++|          RJM    WEI         WRITE EOI SECTOR
02144  M00S01539.1ms     +++|          PJN    EVF9        IF NO ERROR
Line S01540 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02145  M01S01540.242l642 ---|          RJM    MSR         PROCESS ERROR
Line S00124 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02146  M01S00124.242l642 +++|          RJM    CDA         CHECK DEVICE
02147  M01S00125.242l642 +++|
02148  M00S01541.1ms     +++| EVF9     ENDMS              END MASS STORAGE OPERATION
02149  M00S01542.1ms     +++|          LDM    CFNB        SET FILE MODIFIED
02150  M00S01543.1ms     +++|          LPN    74
02151  M00S01544.1ms     +++|          LMN    03
02152  M00S01545.1ms     +++|          STM    CFNB
02153  M00S01546.1ms     +++|          LJM    EVF5        DROP TRACKS
02154  M00S01547.1ms     +++| TFTY     SPACE  4,10
02155  M00S01548.1ms     +++|**        TFTY - TABLE OF FILE TYPE PROCESSORS.
02156  M00S01549.1ms     +++|*         ENTRY  1 WORD.
02157  M00S01550.1ms     +++|*         INDEXED BY FILE TYPE.
02158  M00S01551.1ms     +++|*
02159  M00S01552.1ms     +++|*T,       12/  ADDR
Figure

011 ADDR

02160  M00S01553.1ms     +++|*         ADDR   ADDRESS OF FILE PROCESSOR
02161  M00S01554.1ms     +++|
02162  M00S01555.1ms     +++|
02163  M00S01556.1ms     +++| TFTY     INDEX
02164  M00S01557.1ms     +++|
02165  M00S01558.1ms     +++|          INDEX  PTFT,EVF7   PRIMARY
02166  M00S01559.1ms     +++|          INDEX  PMFT,EVF6   PERMANENT
02167  M00S01560.1ms     +++|          INDEX  LOFT,EVF4   LOCAL
02168  M00S01561.1ms     +++|          INDEX  QFFT,EVF2   QUEUED
02169  M00S01562.1ms     +++|
02170  M00S01563.1ms     +++|          INDEX  MXFT
02171  M00S01564.1ms     +++|          SPACE  4,10
02172  M00S01565.1ms     +++|**        COMMON DECKS.
02173  M00S01566.1ms     +++|
02174  M00S01567.1ms     +++|
02175  M00S01568.1ms     +++|*CALL     COMPWEI
02176  M00S01569.1ms     +++|          SPACE  4,10
02177  M00S01570.1ms     +++|          OVERFLOW  SRPO
02178  M00S01571.1ms     +++| RMS      OVERLAY (READ MASS STORAGE.),MSDO
02179  M00S01572.1ms     +++| RMS      SPACE  4,10
02180  M00S01573.1ms     +++|**        DIRECT LOCATION ASSIGNMENTS.
02181  M00S01574.1ms     +++|
02182  M00S01575.1ms     +++|
02183  M00S01576.1ms     +++| OP       EQU    16 - 17     *OUT* POINTER FOR RECALL CALCULATION
02184  M00S01577.1ms     +++| TC       EQU    35          TRACK COUNT
02185  M00S01578.1ms     +++| BP       EQU    37          BUFFER SPACE IN PRUS
02186  M00S01579.1ms     +++| RMS      SPACE  4,10
02187  M00S01580.1ms     +++|          ORG    *+2
02188  M00S01581.1ms     +++|          LJM    PRS         PRESET FOR READ
02189  M00S01582.1ms     +++| LSO      SPACE  4,10
02190  M00S01583.1ms     +++|**        LSO - LOAD SPECIAL READ OVERLAY.
02191  M00S01584.1ms     +++|*
02192  M00S01585.1ms     +++|*         EXIT   TO *RMS*.
02193  M00S01586.1ms     +++|*
02194  M00S01587.1ms     +++|*         CALLS  EXR.
02195  M00S01588.1ms     +++|
02196  M00S01589.1ms     +++|
02197  M00S01590.1ms     +++| LSO      BSS    0           ENTRY
02198  M00S01591.1ms     +++|          LDC    1L4+SMR     LOAD SPECIAL READ OVERLAY
02199  M00S01592.1ms     +++|          RJM    EXR
02200  M00S01593.1ms     +++|*         UJN    RMS         PROCESS READ
02201  M00S01594.1ms     +++| RMS      SPACE  4,15
02202  M00S01595.1ms     +++|**        RMS - READ MASS STORAGE MAIN ROUTINE.
02203  M00S01596.1ms     +++|*
02204  M00S01597.1ms     +++|*         EXIT   (T1) = 0 FOR CONTROL WORD INITIAL SECTOR LENGTH.
02205  M00S01598.1ms     +++|*                (T3) = 0 FOR CONTROL WORD HEADER USE.
02206  M00S01599.1ms     +++|*                (T5) = EQUIPMENT.
02207  M00S01600.1ms     +++|*                (T6) = CURRENT TRACK.
02208  M00S01601.1ms     +++|*                (T7) = CURRENT SECTOR.
02209  M00S01602.1ms     +++|*                TO *BRD* FOR NON-CONTROL WORD READ.
02210  M00S01603.1ms     +++|*                TO *CRD* FOR CONTROL WORD READ.
02211  M00S01604.1ms     +++|*
02212  M00S01605.1ms     +++|*         USES   CM - CM+4.
02213  M00S01606.1ms     +++|*
02214  M00S01607.1ms     +++|*         CALLS  SBA, SCA.
02215  M00S01608.1ms     +++|*
02216  M00S01609.1ms     +++|*         MACROS PAUSE, SETMS.
02217  M00S01610.1ms     +++|
02218  M00S01611.1ms     +++|
02219  M00S01612.1ms     +++| RMS      BSS    0           ENTRY
02220  M00S01613.1ms     +++|
02221  M00S01614.1ms     +++|*         INITIALIZE FOR MASS STORAGE DEVICE.
02222  M00S01615.1ms     +++|
Line S01616 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02223  M01S01616.ns22000 ---|          LDD    FS          SET EQUIPMENT NUMBER
Line S00160 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02224  M01S00160.ns22000 +++|          LDD    FS          SET EST ORDINAL
Line S01617 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02225  M01S01617.ns22000 ---|          LPN    77
02226  M00S01618.1ms     +++|          STD    T5
02227  M00S01619.1ms     +++|          LDD    FS+2        SET TRACK
02228  M00S01620.1ms     +++|          STD    T6
02229  M00S01621.1ms     +++|          LDD    FS+3        SET SECTOR
02230  M00S01622.1ms     +++|          STD    T7
02231  M00S01623.1ms     +++|
02232  M00S01624.1ms     +++|*         INITIALIZE READ PARAMETERS.
02233  M00S01625.1ms     +++|
02234  M00S01626.1ms     +++|          LDN    0           SET IN POINTER WORD
02235  M00S01627.1ms     +++|          STD    DP
02236  M00S01628.1ms     +++|          STD    DP+1
02237  M00S01629.1ms     +++|          STD    DP+2
02238  M00S01630.1ms     +++|          STD    TC          INITIALIZE TRACK COUNT
02239  M00S01631.1ms     +++|          LDD    IN
02240  M00S01632.1ms     +++|          STD    DP+3
02241  M00S01633.1ms     +++|          LDD    IN+1
02242  M00S01634.1ms     +++|          STD    DP+4
02243  M00S01635.1ms     +++|
02244  M00S01636.1ms     +++|*         BEGIN READ.
02245  M00S01637.1ms     +++|
Line S01638 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02246  M01S01638.242l642 ---|          SETMS  READ        LOAD DRIVER AND READ EST
Line S00126 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02247  M01S00126.242l642 +++|          SETMS  IO
02248  M00S01639.1ms     +++|          LDD    CM
02249  M00S01640.1ms     +++|          SHN    21-12
02250  M00S01641.1ms     +++|          PJN    RMS1        IF NOT SYSTEM DEVICE
02251  M00S01642.1ms     +++|          LDN    FNTP        READ FNT POINTER
02252  M00S01643.1ms     +++|          CRD    CM
02253  M00S01644.1ms     +++|          LDD    CM          READ SYSTEM FST ENTRY
02254  M00S01645.1ms     +++|          SHN    14
02255  M00S01646.1ms     +++|          ADD    CM+1
02256  M00S01647.1ms     +++|          ERRNZ  SYFO        CHECK SYSTEM FILE POSITION IN FNT
02257  M00S01648.1ms     +++|          ADN    FSTG
02258  M00S01649.1ms     +++|          CRD    CM
02259  M00S01650.1ms     +++|          LDD    CM+1        CHECK MATCHING FIRST TRACK
02260  M00S01651.1ms     +++|          LMD    FS+1
02261  M00S01652.1ms     +++|          NJN    RMS1        IF NOT SYSTEM FILE
Line S00127 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02262  M01S00127.242l642 +++|
02263  M01S00128.242l642 +++|*         *CIO* IS USED TO ACCESS THE SYSTEM FILE FOR THE LOADER, CCL,
02264  M01S00129.242l642 +++|*         ETC. THE READSYS OPTION CAUSES THE DRIVER TO SELECT THE
02265  M01S00130.242l642 +++|*         SYSTEM DEVICE WITH THE LEAST ACTIVITY. IT ALSO CAUSES THE
02266  M01S00131.242l642 +++|*         DRIVER ERROR PROCESSOR TO AUTOMATICALLY TRY A DIFFERENT
02267  M01S00132.242l642 +++|*         SYSTEM DEVICE WHEN AN ERROR IS ENCOUNTERED.
02268  M01S00133.242l642 +++|
02269  M00S01653.1ms     +++|          SETMS  READSYS     SYSTEM SELECTION OF SYSTEM DEVICE
02270  M00S01654.1ms     +++| RMS1     LDC    RWPC        SET DEFAULT PRU COUNT
02271  M00S01655.1ms     +++|          ADD    T7          ADJUST BY CURRENT SECTOR
02272  M00S01656.1ms     +++| RMS2     STD    T1
02273  M00S01657.1ms     +++|          AOD    TC          INCREMENT TRACK COUNT
02274  M00S01658.1ms     +++|          LDD    T1
02275  M00S01659.1ms     +++|          SBM    SLM
02276  M00S01660.1ms     +++|          PJN    RMS2        IF MORE TRACKS TO PROCESS
02277  M00S01661.1ms     +++|          LDD    OT          SAVE *OUT*
02278  M00S01662.1ms     +++|          STD    OP
02279  M00S01663.1ms     +++|          LDD    OT+1
02280  M00S01664.1ms     +++|          STD    OP+1
02281  M00S01665.1ms     +++|          PAUSE  NE
02282  M00S01666.1ms     +++|          LDD    FC          CHECK FOR CONTROL WORD OPERATION
02283  M00S01667.1ms     +++|          SHN    21-5
02284  M00S01668.1ms     +++|          MJN    RMS3        IF *READCW*
02285  M00S01669.1ms     +++|          RJM    SBA         SET ADDRESSES
02286  M00S01670.1ms     +++|          LJM    BRD         ENTER BUFFER READ LOOP
02287  M00S01671.1ms     +++|*         LJM    RSK9        (*READSKP* SKIP PROCESSING)
02288  M00S01672.1ms     +++| RMSA     EQU    *-1
02289  M00S01673.1ms     +++|
02290  M00S01674.1ms     +++| RMS3     RJM    SCA         SET ADDRESSES
02291  M00S01675.1ms     +++|          LDN    0           PRESET CONTROL WORD
02292  M00S01676.1ms     +++|          STD    T3
02293  M00S01677.1ms     +++|          STD    T1
02294  M00S01678.1ms     +++|          STM    BFMS+2-5
02295  M00S01679.1ms     +++|          STM    BFMS+2-3
02296  M00S01680.1ms     +++|          LDD    HN
02297  M00S01681.1ms     +++|          STM    BFMS+2-4
02298  M00S01682.1ms     +++|          LJM    CRD         ENTER CONTROL WORD READ LOOP
02299  M00S01683.1ms     +++| EOF      SPACE  4,10
02300  M00S01684.1ms     +++|**        EOF - TERMINATE ON EOF.
02301  M00S01685.1ms     +++|*
02302  M00S01686.1ms     +++|*         ENTRY  (T2) = LINKAGE BYTE.
02303  M00S01687.1ms     +++|*                (FS - FS+4) = FST ENTRY.
02304  M00S01688.1ms     +++|*
02305  M00S01689.1ms     +++|*         EXIT   (FS+4) = EOF STATUS.
02306  M00S01690.1ms     +++|*                TO *CPR* TO COMPLETE FUNCTION.
02307  M00S01691.1ms     +++|*                TO */SMR/ALS* TO ADVANCE LIST PROCESSING.
02308  M00S01692.1ms     +++|
02309  M00S01693.1ms     +++|
02310  M00S01694.1ms     +++| EOF      BSS    0           ENTRY
02311  M00S01695.1ms     +++|          LDD    T2          ADVANCE TO NEXT SECTOR
02312  M00S01696.1ms     +++|          STD    T7
02313  M00S01697.1ms     +++|          SHN    6
02314  M00S01698.1ms     +++|          PJN    EOF1        IF NOT TRACK POINTER
02315  M00S01699.1ms     +++|          SHN    -6
02316  M00S01700.1ms     +++|          STD    T6
02317  M00S01701.1ms     +++|          LDN    0
02318  M00S01702.1ms     +++|          STD    T7
02319  M00S01703.1ms     +++| EOF1     LDN    /CIO/EOF    SET EOF FST STATUS
02320  M00S01704.1ms     +++|          STD    FS+4
02321  M00S01705.1ms     +++|          LJM    CPR         COMPLETE READ PROCESSING
02322  M00S01706.1ms     +++|*         LJM    /SMR/ALS    (*READLS*/*RPHRLS*)
02323  M00S01707.1ms     +++|*         LJM    CPR         (CLEANUP AFTER MS ERROR)
02324  M00S01708.1ms     +++| EOFA     EQU    *-1
02325  M00S01709.1ms     +++| CPR      SPACE  4,15
02326  M00S01710.1ms     +++|**        CPR - COMPLETE READ.
02327  M00S01711.1ms     +++|*
02328  M00S01712.1ms     +++|*         ENTRY  (DP - DP+4) = IN POINTER.
02329  M00S01713.1ms     +++|*
02330  M00S01714.1ms     +++|*         EXIT   (FS - FS+4) = UPDATED FST ENTRY.
02331  M00S01715.1ms     +++|*                TO *MSP* TO COMPLETE PROCESSING.
02332  M00S01716.1ms     +++|*                TO */SMR/SLS* TO SET READ LIST STATUS.
02333  M00S01717.1ms     +++|*
02334  M00S01718.1ms     +++|*         USES   CM-2 - CM+4.
02335  M00S01719.1ms     +++|*
02336  M00S01720.1ms     +++|*         CALLS  DCC.
02337  M00S01721.1ms     +++|
02338  M00S01722.1ms     +++|
02339  M00S01723.1ms     +++| CPR      BSS    0           ENTRY
02340  M00S01724.1ms     +++|          RJM    DCC         DROP CHANNEL WHEN OUTPUT REGISTER CLEAR
02341  M00S01725.1ms     +++|          LDD    T6          UPDATE TRACK
02342  M00S01726.1ms     +++|          STD    FS+2
02343  M00S01727.1ms     +++|          LDD    T7          UPDATE SECTOR
02344  M00S01728.1ms     +++|          STD    FS+3
02345  M00S01729.1ms     +++| CPRA     LDC    0           GET POINTER TO BAD DATA BLOCK
02346  M00S01730.1ms     +++|          ZJN    CPR1        IF NO PARITY ERROR
02347  M00S01731.1ms     +++|          STD    CM+4        WRITE BAD DATA POINTER AT *IN*
02348  M00S01732.1ms     +++|          SHN    -14
02349  M00S01733.1ms     +++|          STD    CM+3
02350  M00S01734.1ms     +++|          LDN    ZERL
02351  M00S01735.1ms     +++|          CRD    CM-2
02352  M00S01736.1ms     +++|          LDD    DP+3
02353  M00S01737.1ms     +++|          SHN    6
02354  M00S01738.1ms     +++|          ADD    RA
02355  M00S01739.1ms     +++|          SHN    6
02356  M00S01740.1ms     +++|          ADD    DP+4
02357  M00S01741.1ms     +++|          CWD    CM
02358  M00S01742.1ms     +++| CPR1     LJM    MSP         PROCESS MASS STORAGE EXIT
02359  M00S01743.1ms     +++|*         LJM    /SMR/SLS    (*READLS*/*RPHRLS*)
02360  M00S01744.1ms     +++| CPRB     EQU    *-1
02361  M00S01745.1ms     +++|          TITLE  BUFFER READ.
02362  M00S01746.1ms     +++| BRD      SPACE  4,25
02363  M00S01747.1ms     +++|**        BRD - BUFFER READ LOOP.
02364  M00S01748.1ms     +++|*
02365  M00S01749.1ms     +++|*         ENTRY  (BP) = BUFFER SPACE IN PRUS.
02366  M00S01750.1ms     +++|*                (PC) = 0.
02367  M00S01751.1ms     +++|*                (RC) = *DRCM* MONITOR FUNCTION CODE.
02368  M00S01752.1ms     +++|*                (T6) = TRACK.
02369  M00S01753.1ms     +++|*                (T7) = SECTOR.
02370  M00S01754.1ms     +++|*                (DP - DP+4) = *IN* POINTER.
02371  M00S01755.1ms     +++|*                (FS - FS+4) = FST ENTRY.
02372  M00S01756.1ms     +++|*                ADDRESS REFERENCES SET.
02373  M00S01757.1ms     +++|*                AT *BRD11* IF PROCESSING TRANSFER OF PARTIAL
02374  M00S01758.1ms     +++|*                   SECTOR FOR *READSKP*.
02375  M00S01759.1ms     +++|*
02376  M00S01760.1ms     +++|*         EXIT   (FS+4) = READ STATUS.
02377  M00S01761.1ms     +++|*                (PC) = COUNT OF PRUS TRANSFERRED.
02378  M00S01762.1ms     +++|*                (T6) = UPDATED CURRENT TRACK.
02379  M00S01763.1ms     +++|*                (T7) = UPDATED CURRENT SECTOR.
02380  M00S01764.1ms     +++|*                (DP - DP+4) = ADVANCED *IN* POINTER.
02381  M00S01765.1ms     +++|*                TO *CPR* TO COMPLETE PROCESSING.
Line S00134 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02382  M01S00134.242l642 +++|*                TO *CDA*, IF MASS STORAGE ERROR.
02383  M00S01766.1ms     +++|*
02384  M00S01767.1ms     +++|*         USES   BP, OT+1, T1, T2, CM - CM+4, OP-3 - OP+1.
02385  M00S01768.1ms     +++|*
02386  M00S01769.1ms     +++|*         CALLS  CRT, MSR, RDS, SBA.
02387  M00S01770.1ms     +++|
02388  M00S01771.1ms     +++|
02389  M00S01772.1ms     +++|*         LOOP TO PROCESS NEXT SECTOR.
02390  M00S01773.1ms     +++|
02391  M00S01774.1ms     +++| BRD      BSS    0           ENTRY
02392  M00S01775.1ms     +++| BRDA     LDC    **          (OUT + RA)
02393  M00S01776.1ms     +++|          CRD    OP-3        READ OUT
02394  M00S01777.1ms     +++|          LDD    OP          LENGTH = OUT - IN - 1
02395  M00S01778.1ms     +++|          SBD    DP+3
02396  M00S01779.1ms     +++|          SHN    14
02397  M00S01780.1ms     +++|          ADD    OP+1
02398  M00S01781.1ms     +++|          SBD    DP+4
02399  M00S01782.1ms     +++|          SBN    1
02400  M00S01783.1ms     +++|          PJN    BRD1        IF IN+1 .LT. OUT
02401  M00S01784.1ms     +++| BRDB     ADC    **          (LIMIT - FIRST)
02402  M00S01785.1ms     +++| BRD1     SHN    -6
02403  M00S01786.1ms     +++|          STD    BP
02404  M00S01787.1ms     +++| BRDC     NJN    BRD5        IF BUFFER NOT FULL
02405  M00S01788.1ms     +++|*         PSN                (TIME TO ENTER RECALL STACK)
02406  M00S01789.1ms     +++|          LDC    LDNI        CLEAR SETTING OF FET TERMINATION STATUS
02407  M00S01790.1ms     +++|          STM    UFSA
02408  M00S01791.1ms     +++| BRD2     LDC    7777        CHECK FOR EOF
02409  M00S01792.1ms     +++| BRDD     EQU    *-1
02410  M00S01793.1ms     +++|          LMD    PC
02411  M00S01794.1ms     +++|          ZJN    BRD3        IF LAST SECTOR READ WAS AN EOF
02412  M00S01795.1ms     +++|          LDM    BFMS+1      CHECK FOR EOR
02413  M00S01796.1ms     +++|          LMD    HN
02414  M00S01797.1ms     +++|          ZJN    BRD4        IF LAST SECTOR READ WAS FULL SECTOR
02415  M00S01798.1ms     +++|          LDN    /CIO/EOR&/CIO/EOF  SET EOR STATUS
02416  M00S01799.1ms     +++| BRD3     LMN    /CIO/EOF
02417  M00S01800.1ms     +++| BRD4     STD    FS+4
02418  M00S01801.1ms     +++|          LJM    CPR         COMPLETE READ
02419  M00S01802.1ms     +++|*         LJM    RSK2        (*READSKP*)
02420  M00S01803.1ms     +++|*         LJM    CPR         (CLEANUP AFTER MS ERROR)
02421  M00S01804.1ms     +++| BRDE     EQU    *-1
02422  M00S01805.1ms     +++|
02423  M00S01806.1ms     +++|*         READ NEXT SECTOR.
02424  M00S01807.1ms     +++|
02425  M00S01808.1ms     +++| BRD5     AOD    PC          INCREMENT PRU COUNT
02426  M00S01809.1ms     +++|          LDC    BFMS        READ SECTOR
02427  M00S01810.1ms     +++|          RJM    RDS
02428  M00S01811.1ms     +++|          PJN    BRD6        IF NO ERROR
Line S01812 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02429  M01S01812.242l642 ---|          RJM    MSR         PROCESS ERROR
Line S00135 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02430  M01S00135.242l642 +++|          LDD    T6          SET CURRENT TRACK
02431  M01S00136.242l642 +++|          STD    FS+2
02432  M01S00137.242l642 +++|          LDD    T7          SET CURRENT SECTOR
02433  M01S00138.242l642 +++|          STD    FS+3
02434  M01S00139.242l642 +++|          RJM    CDA         CHECK DEVICE
02435  M01S00140.242l642 +++|
02436  M00S01813.1ms     +++| BRD6     LDM    BFMS        CHECK FIRST CONTROL BYTE
02437  M00S01814.1ms     +++|          NJN    BRD8        IF NOT EOF/EOI
02438  M00S01815.1ms     +++|          LDM    BFMS+1
02439  M00S01816.1ms     +++|          NJN    BRD7        IF NOT EOI
02440  M00S01817.1ms     +++|          SOD    PC
02441  M00S01818.1ms     +++|          LDN    /CIO/EOI    SET EOI STATUS
02442  M00S01819.1ms     +++|          STD    FS+4
02443  M00S01820.1ms     +++|          LJM    CPR         COMPLETE READ
02444  M00S01821.1ms     +++|*         LJM    /SMR/ALS    (*READLS*/*RPHRLS*)
02445  M00S01822.1ms     +++|*         LJM    CPR         (CLEANUP AFTER MS ERROR)
02446  M00S01823.1ms     +++| BRDF     EQU    *-1
02447  M00S01824.1ms     +++|
02448  M00S01825.1ms     +++|*         PROCESS EOF.
02449  M00S01826.1ms     +++|
02450  M00S01827.1ms     +++| BRD7     STD    T2
02451  M00S01828.1ms     +++| BRDG     LJM    EOF         PROCESS EOF
02452  M00S01829.1ms     +++|*         UJN    *+2         (*READEI*)
02453  M00S01830.1ms     +++|          LDN    0           SET WORD COUNT
02454  M00S01831.1ms     +++|          STM    BFMS+1
02455  M00S01832.1ms     +++|          LDD    PC          SAVE SECTOR NUMBER
02456  M00S01833.1ms     +++|          STM    BRDD
02457  M00S01834.1ms     +++|          LDD    T2
02458  M00S01835.1ms     +++| BRD8     STD    T7          SET NEXT SECTOR
02459  M00S01836.1ms     +++|          SHN    6
02460  M00S01837.1ms     +++|          PJN    BRD9        IF NOT NEW TRACK
02461  M00S01838.1ms     +++|          SHN    -6          SET NEXT TRACK
02462  M00S01839.1ms     +++|          STD    T6
02463  M00S01840.1ms     +++|          LDN    0           CLEAR SECTOR
02464  M00S01841.1ms     +++|          STD    T7
02465  M00S01842.1ms     +++|          SOD    TC          DECREMENT TRACK COUNT
Line S01843 Modification History
M01 (Removed by) 1ms3
Seq #  *Modification Id* Act 
----------------------------+
02466  M01S01843.1ms3    ---|          NJN    BRD9        IF NOT TIME TO RECALL
Line S00001 Modification History
M01 (Added by) 1ms3
Seq #  *Modification Id* Act 
----------------------------+
02467  M01S00001.1ms3    +++| BRDY     NJN    BRD9        IF NOT TIME TO RECALL
02468  M01S00002.1ms3    +++|*         UJN    BRD9        (*READLS*/*RPHRLS*/*RPHR*)
02469  M00S01844.1ms     +++|          STM    BRDC        SET TO ENTER RECALL STACK
Line S00003 Modification History
M01 (Added by) 1ms3
Seq #  *Modification Id* Act 
----------------------------+
02470  M01S00003.1ms3    +++|          LDM    BFMS+1
02471  M01S00004.1ms3    +++|          SHN    -6
02472  M01S00005.1ms3    +++| BRDZ     ZJN    BRD9        IF EOR/EOF
02473  M01S00006.1ms3    +++|*         PSN                (*READNS*/*READEI*)
02474  M00S01845.1ms     +++|          AOM    COCA
02475  M00S01846.1ms     +++| BRD9     LDD    RA          CHECK RA CHANGED
02476  M00S01847.1ms     +++|          LMC    **          (RA)
02477  M00S01848.1ms     +++| BRDH     EQU    *-1
02478  M00S01849.1ms     +++|          ZJN    BRD10       IF RA NOT CHANGED
02479  M00S01850.1ms     +++|          RJM    SBA         SET BUFFER ADDRESSES
02480  M00S01851.1ms     +++| BRD10    LDM    BFMS+1      SET SECTOR WORD COUNT
02481  M00S01852.1ms     +++|          STD    T1
02482  M00S01853.1ms     +++|          NJN    BRD11       IF NOT EMPTY SECTOR
02483  M00S01854.1ms     +++|          LJM    BRD16       PROCESS EMPTY PRU
02484  M00S01855.1ms     +++|
02485  M00S01856.1ms     +++|*         ENTRY FROM *READSKP* PROCESSOR TO TRANSFER PARTIAL SECTOR.
02486  M00S01857.1ms     +++|
02487  M00S01858.1ms     +++| BRD11    ADD    DP+4        CHECK IN + WORD COUNT
02488  M00S01859.1ms     +++|          SHN    6
02489  M00S01860.1ms     +++|          ADD    DP+3
02490  M00S01861.1ms     +++|          SHN    14
02491  M00S01862.1ms     +++| BRDI     ADC    -**         (-LIMIT)
02492  M00S01863.1ms     +++|          MJN    BRD12       IF NOT WRAP AROUND SECTOR
02493  M00S01864.1ms     +++|          NJN    BRD14       IF SECOND PART TO TRANSFER
02494  M00S01865.1ms     +++|          SBD    T1          STORE PRU
02495  M00S01866.1ms     +++| BRDJ     ADC    **          (LIMIT + RA)
02496  M00S01867.1ms     +++|          CWM    BFMS+2,T1
02497  M00S01868.1ms     +++| BRDK     LDC    **          (FIRST)
02498  M00S01869.1ms     +++|          UJN    BRD13       STORE *IN* POINTER
02499  M00S01870.1ms     +++|
02500  M00S01871.1ms     +++|*         PROCESS NORMAL SECTOR.
02501  M00S01872.1ms     +++|
02502  M00S01873.1ms     +++| BRD12    SBD    T1          STORE PRU
02503  M00S01874.1ms     +++| BRDL     ADC    **          (LIMIT + RA)
02504  M00S01875.1ms     +++|          CWM    BFMS+2,T1
02505  M00S01876.1ms     +++|
02506  M00S01877.1ms     +++|*         ADVANCE *IN* POINTER.
02507  M00S01878.1ms     +++|
02508  M00S01879.1ms     +++| BRDM     ADC    -**         (-RA)
02509  M00S01880.1ms     +++| BRD13    STD    DP+4        ADVANCE *IN*
02510  M00S01881.1ms     +++|          SHN    -14
02511  M00S01882.1ms     +++|          STD    DP+3
02512  M00S01883.1ms     +++|
02513  M00S01884.1ms     +++|*         THE FOLLOWING LINE OF CODE IS MODIFIED VIA *RJM*.
02514  M00S01885.1ms     +++|
02515  M00S01886.1ms     +++|          LJM    BRD15       UPDATE *IN* IF NOT BUFFERED OPERATION
Line S01887 Modification History
M01 (Removed by) 1ms3
Seq #  *Modification Id* Act 
----------------------------+
02516  M01S01887.1ms3    ---|*         LJM    BRD19       (CHECK *OUT*)
Line S00007 Modification History
M01 (Added by) 1ms3
Seq #  *Modification Id* Act 
----------------------------+
02517  M01S00007.1ms3    +++|*         LJM    BRD18       (CHECK OUT)
02518  M00S01888.1ms     +++|*         LJM    BRD19       (RECALL CPU)
02519  M00S01889.1ms     +++| BRDN     EQU    *-1
02520  M00S01890.1ms     +++|          UJN    BRD15       UPDATE *IN*
02521  M00S01891.1ms     +++|
02522  M00S01892.1ms     +++|*         PROCESS WRAP AROUND SECTOR.
02523  M00S01893.1ms     +++|
02524  M00S01894.1ms     +++| BRD14    STD    CM+1        SET SECOND PART WORD COUNT
02525  M00S01895.1ms     +++|          LDD    T1          SET FIRST PART WORD COUNT
02526  M00S01896.1ms     +++|          SBD    CM+1
02527  M00S01897.1ms     +++|          STD    CM
02528  M00S01898.1ms     +++|          SHN    2           SET PPU ADDRESS OF SECOND PART
02529  M00S01899.1ms     +++|          ADD    CM
02530  M00S01900.1ms     +++|          ADC    BFMS+2
02531  M00S01901.1ms     +++|          STM    BRDQ
02532  M00S01902.1ms     +++|          LDD    DP+3        STORE FIRST PART
02533  M00S01903.1ms     +++|          SHN    14
02534  M00S01904.1ms     +++|          ADD    DP+4
02535  M00S01905.1ms     +++| BRDO     ADC    **          (RA)
02536  M00S01906.1ms     +++|          CWM    BFMS+2,CM
02537  M00S01907.1ms     +++| BRDP     LDC    **          (FIRST + RA) STORE SECOND PART
02538  M00S01908.1ms     +++|          CWM    BFMS+2,CM+1
02539  M00S01909.1ms     +++| BRDQ     EQU    *-1         (PP ADDRESS OF SECOND PART)
02540  M00S01910.1ms     +++| BRDR     ADC    -**         (-RA)
02541  M00S01911.1ms     +++|          STD    DP+4
02542  M00S01912.1ms     +++|          SHN    -14
02543  M00S01913.1ms     +++|          STD    DP+3
02544  M00S01914.1ms     +++|
02545  M00S01915.1ms     +++|*         UPDATE *IN*.
02546  M00S01916.1ms     +++|
02547  M00S01917.1ms     +++| BRD15    LDC    **          (IN+RA)
02548  M00S01918.1ms     +++| BRDS     EQU    *-2
02549  M00S01919.1ms     +++|          CWD    DP          STORE IN
02550  M00S01920.1ms     +++|
02551  M00S01921.1ms     +++|*         CHECK TERMINATIONS.
02552  M00S01922.1ms     +++|
02553  M00S01923.1ms     +++| BRD16    LDD    T1          CHECK SECTOR WORD COUNT
02554  M00S01924.1ms     +++|*         LJM    BRD         (*READNS*)
02555  M00S01925.1ms     +++|*         LJM    BRD         (*READEI*)
02556  M00S01926.1ms     +++|*         LJM    BRD2        (AFTER MS ERROR)
02557  M00S01927.1ms     +++| BRDT     EQU    *-1
02558  M00S01928.1ms     +++|          SHN    -6
02559  M00S01929.1ms     +++|          ZJN    BRD17       IF SHORT SECTOR
02560  M00S01930.1ms     +++|          LJM    BRD         CONTINUE DATA TRANSFER
02561  M00S01931.1ms     +++| BRDU     EQU    *-1
02562  M00S01932.1ms     +++|*         LJM    BRD2        (*RPHR*)
02563  M00S01933.1ms     +++|*         LJM    /SMR/RSK7   (*READSKP* PARTIAL SECTOR TRANSFER)
02564  M00S01934.1ms     +++|*         LJM    /SMR/ALS    (*RPHRLS* ADVANCE LIST)
02565  M00S01935.1ms     +++|
Line S01936 Modification History
M01 (Removed by) 1ms3
Seq #  *Modification Id* Act 
----------------------------+
02566  M01S01936.1ms3    ---| BRD17    LJM    BRD2        CONTINUE TRANSFER
Line S00008 Modification History
M01 (Added by) 1ms3
Seq #  *Modification Id* Act 
----------------------------+
02567  M01S00008.1ms3    +++| BRD17    LJM    BRD2        TERMINATE TRANSFER
02568  M00S01937.1ms     +++|*         LJM    /SMR/RSK7   (*READSKP* PARTIAL SECTOR TRANSFER)
02569  M00S01938.1ms     +++|*         LJM    /SMR/ALS    (*READLS*/*RPHRLS*)
02570  M00S01939.1ms     +++| BRDV     EQU    *-1
02571  M00S01940.1ms     +++|
02572  M00S01941.1ms     +++|*         WAIT FOR *OUT* TO CHANGE FOR BUFFERED OPERATION.
02573  M00S01942.1ms     +++|*         ONLY 12 BITS OF *OUT* IS CHECKED DUE TO TIMING
02574  M00S01943.1ms     +++|*         CONSIDERATIONS.
02575  M00S01944.1ms     +++|
02576  M00S01945.1ms     +++|
02577  M00S01946.1ms     +++| BRD18    RJM    BRDN        MODIFY INSTRUCTION
02578  M00S01947.1ms     +++|          LDD    BP
02579  M00S01948.1ms     +++|          SHN    -3
02580  M00S01949.1ms     +++|          NJN    BRD15       IF .GE. 8 SECTORS OF FREE SPACE
02581  M00S01950.1ms     +++|          LDD    OP+1
02582  M00S01951.1ms     +++|          SBD    OT+1
02583  M00S01952.1ms     +++|          ZJN    BRD15       IF *OUT* NOT CHANGED
02584  M00S01953.1ms     +++|          RAD    OT+1        SAVE NEW *OUT*
02585  M00S01954.1ms     +++|
02586  M00S01955.1ms     +++|*         RECALL CPU ON THE NEXT SECTOR IF JOB IS IN *X* STATUS.
02587  M00S01956.1ms     +++|
02588  M00S01957.1ms     +++|          RJM    BRDN        MODIFY INSTRUCTION
02589  M00S01958.1ms     +++|
02590  M00S01959.1ms     +++|*         THE FOLLOWING CHECK MINIMIZES OVERHEAD ON TRACK SWITCH
02591  M00S01960.1ms     +++|*         AND PREVENTS A *DRCM* BEING ISSUED JUST PRIOR
02592  M00S01961.1ms     +++|*         TO THE DRIVER NEEDING TO DO AN *LDAM*.
02593  M00S01962.1ms     +++|
02594  M00S01963.1ms     +++| BRD19    LDD    T7
02595  M00S01964.1ms     +++|          ZJN    BRD15       IF TRACK SWITCH
Line S01965 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02596  M01S01965.271l750 ---|          LDC    **+STSW     CHECK CPU STATUS
Line S00001 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02597  M01S00001.271l750 +++|          LDC    **+CWQW     CHECK CPU RECALL REQUIRED
02598  M00S01966.1ms     +++| BRDW     EQU    *-1
02599  M00S01967.1ms     +++|          CRD    CM
Line S01968 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02600  M01S01968.271l750 ---|          LDD    CM
02601  M01S01969.271l750 ---|          SHN    -11
02602  M01S01970.271l750 ---|          LMN    XCPS
02603  M01S01971.271l750 ---|          NJN    BRD18       IF NOT *X* STATUS
Line S00002 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02604  M01S00002.271l750 +++|          LDD    CM+1
02605  M01S00003.271l750 +++|          SHN    21-12
02606  M01S00004.271l750 +++|          MJN    BRD18       IF RECALL NOT REQUIRED
02607  M00S01972.1ms     +++|          LDD    OA          RECALL CPU
02608  M00S01973.1ms     +++|          CWD    RC
02609  M00S01974.1ms     +++|          UJN    BRD18       RESET TO CHECK *OUT*
02610  M00S01975.1ms     +++| SBA      SPACE  4,10
02611  M00S01976.1ms     +++|**        SBA - SET BUFFER ADDRESSES.
02612  M00S01977.1ms     +++|*         PRESETS ADDRESSES IN *BRD*.
02613  M00S01978.1ms     +++|*         ENTER IF (RA) CHANGES.
02614  M00S01979.1ms     +++|*
02615  M00S01980.1ms     +++|*         ENTRY  (FT - FT+1) = *FIRST* POINTER.
02616  M00S01981.1ms     +++|*                (LM - LM+1) = *LIMIT* POINTER.
02617  M00S01982.1ms     +++|*
02618  M00S01983.1ms     +++|*         MACROS CFET.
02619  M00S01984.1ms     +++|
02620  M00S01985.1ms     +++|
02621  M00S01986.1ms     +++| SBA      SUBR               ENTRY/EXIT
02622  M00S01987.1ms     +++|
02623  M00S01988.1ms     +++|          LDD    RA          CHECK RA CHANGED
02624  M00S01989.1ms     +++|          LMM    BRDH
02625  M00S01990.1ms     +++|          ZJN    SBAX        IF BUFFER ADDRESSES CORRECT
02626  M00S01991.1ms     +++|          LDD    RA          RA
02627  M00S01992.1ms     +++|          STM    BRDH
02628  M00S01993.1ms     +++|          SHN    6
02629  M00S01994.1ms     +++|          STM    BRDO+1
02630  M00S01995.1ms     +++|          LMC    7777
02631  M00S01996.1ms     +++|          STM    BRDM+1
02632  M00S01997.1ms     +++|          STM    BRDR+1
02633  M00S01998.1ms     +++|          SHN    -14
02634  M00S01999.1ms     +++|          LMC    ADCI
02635  M00S02000.1ms     +++|          STM    BRDO
02636  M00S02001.1ms     +++|          LMN    77
02637  M00S02002.1ms     +++|          STM    BRDM
02638  M00S02003.1ms     +++|          STM    BRDR
02639  M00S02004.1ms     +++|
02640  M00S02005.1ms     +++|          LDD    FT          FIRST + RA
02641  M00S02006.1ms     +++|          SHN    6
02642  M00S02007.1ms     +++|          ADD    RA
02643  M00S02008.1ms     +++|          SHN    6
02644  M00S02009.1ms     +++|          ADD    FT+1
02645  M00S02010.1ms     +++|          STM    BRDP+1
02646  M00S02011.1ms     +++|          SHN    -14
02647  M00S02012.1ms     +++|          LMC    LDCI
02648  M00S02013.1ms     +++|          STM    BRDP
02649  M00S02014.1ms     +++|
02650  M00S02015.1ms     +++|          CFET   2           IN  + RA
02651  M00S02016.1ms     +++|          STM    BRDS+1
02652  M00S02017.1ms     +++|          STM    BRDA+1
02653  M00S02018.1ms     +++|          SHN    -14
02654  M00S02019.1ms     +++|          LMC    LDCI
02655  M00S02020.1ms     +++|          STM    BRDS
02656  M00S02021.1ms     +++|          STM    BRDA
02657  M00S02022.1ms     +++|          AOM    BRDA+1      OUT + RA
02658  M00S02023.1ms     +++|          SHN    -14
02659  M00S02024.1ms     +++|          RAM    BRDA
02660  M00S02025.1ms     +++|
02661  M00S02026.1ms     +++|          LDD    LM          LIMIT + RA
02662  M00S02027.1ms     +++|          SHN    6
02663  M00S02028.1ms     +++|          ADD    RA
02664  M00S02029.1ms     +++|          SHN    6
02665  M00S02030.1ms     +++|          ADD    LM+1
02666  M00S02031.1ms     +++|          STM    BRDL+1
02667  M00S02032.1ms     +++|          STM    BRDJ+1
02668  M00S02033.1ms     +++|          SHN    -14
02669  M00S02034.1ms     +++|          LMC    ADCI
02670  M00S02035.1ms     +++|          STM    BRDL
02671  M00S02036.1ms     +++|          STM    BRDJ
02672  M00S02037.1ms     +++|          LJM    SBAX        RETURN
02673  M00S02038.1ms     +++|          SPACE  4,10
02674  M00S02039.1ms     +++|          QUAL
02675  M00S02040.1ms     +++| SMRO     EQU    *+5         SPECIAL READ OVERLAY LOAD ADDRESS
02676  M00S02041.1ms     +++|          QUAL   *
02677  M00S02042.1ms     +++|          TITLE  CONTROL WORD READ.
02678  M00S02043.1ms     +++| CRD      SPACE  4,20
02679  M00S02044.1ms     +++|**        CRD - CONTROL WORD READ LOOP.
02680  M00S02045.1ms     +++|*
02681  M00S02046.1ms     +++|*         ENTRY  (PC) = 0.
02682  M00S02047.1ms     +++|*                (RC) = *DRCM* MONITOR FUNCTION CODE.
02683  M00S02048.1ms     +++|*                (T5) = EQUIPMENT.
02684  M00S02049.1ms     +++|*                (T6) = CURRENT TRACK.
02685  M00S02050.1ms     +++|*                (T7) = CURRENT SECTOR.
02686  M00S02051.1ms     +++|*                (DP - DP+4) = *IN* POINTER.
02687  M00S02052.1ms     +++|*                (FS - FS+4) = FST ENTRY.
02688  M00S02053.1ms     +++|*                ADDRESS REFERENCES SET.
02689  M00S02054.1ms     +++|*
02690  M00S02055.1ms     +++|*         EXIT   (PC) = PRU COUNT.
02691  M00S02056.1ms     +++|*                (T6) = UPDATED CURRENT TRACK.
02692  M00S02057.1ms     +++|*                (T7) = UPDATED CURRENT SECTOR.
02693  M00S02058.1ms     +++|*                (FS+4) = READ STATUS.
02694  M00S02059.1ms     +++|*                (DP - DP+4) = ADVANCED *IN* POINTER.
Line S00141 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02695  M01S00141.242l642 +++|*                TO *CDA*, IF MASS STORAGE ERROR.
02696  M00S02060.1ms     +++|*
02697  M00S02061.1ms     +++|*         USES   BP, T0, T1, T2, CM - CM+4, OT+1, OP-3 - OP+1.
02698  M00S02062.1ms     +++|*
02699  M00S02063.1ms     +++|*         CALLS  CRT, MSR, RDS, SCA.
02700  M00S02064.1ms     +++|
02701  M00S02065.1ms     +++|
02702  M00S02066.1ms     +++| CRD      BSS    0           ENTRY
02703  M00S02067.1ms     +++|
02704  M00S02068.1ms     +++|*         *OUT* NOT READ HERE EACH PASS DUE TO TIMING CONSIDERATIONS.
02705  M00S02069.1ms     +++|
02706  M00S02070.1ms     +++|          LDD    OP          LENGTH = OUT - IN - 1
02707  M00S02071.1ms     +++|          SBD    DP+3
02708  M00S02072.1ms     +++|          SHN    14
02709  M00S02073.1ms     +++|          ADD    OP+1
02710  M00S02074.1ms     +++|          SBD    DP+4
02711  M00S02075.1ms     +++|          SBN    1
02712  M00S02076.1ms     +++|          PJN    CRD1        IF IN+1 .LT. OUT
02713  M00S02077.1ms     +++| CRDA     ADC    **          (LIMIT  - FIRST)
02714  M00S02078.1ms     +++| CRD1     ADC    -102
02715  M00S02079.1ms     +++| CRDB     PJN    CRD4        IF BUFFER NOT FULL
02716  M00S02080.1ms     +++|*         PSN                (TIME TO ENTER RECALL STACK)
02717  M00S02081.1ms     +++|*         PSN                (CLEANUP AFTER MS ERROR)
02718  M00S02082.1ms     +++|          LDC    LDNI        CLEAR SETTING OF FET TERMINATION STATUS
02719  M00S02083.1ms     +++|          STM    UFSA
02720  M00S02084.1ms     +++|          LDC    7777        CHECK FOR EOF
02721  M00S02085.1ms     +++| CRDC     EQU    *-1
02722  M00S02086.1ms     +++|          LMD    PC
02723  M00S02087.1ms     +++|          ZJN    CRD2        IF LAST SECTOR READ WAS AN EOF
02724  M00S02088.1ms     +++|          LDM    BFMS+2-1    CHECK FOR EOR
02725  M00S02089.1ms     +++|          LMC    500
02726  M00S02090.1ms     +++|          ZJN    CRD3        IF LAST SECTOR READ WAS FULL SECTOR
02727  M00S02091.1ms     +++|          LDN    /CIO/EOR&/CIO/EOF
02728  M00S02092.1ms     +++| CRD2     LMN    /CIO/EOF
02729  M00S02093.1ms     +++| CRD3     UJN    CRD7        COMPLETE READ
02730  M00S02094.1ms     +++|
02731  M00S02095.1ms     +++|*         READ NEXT SECTOR.
02732  M00S02096.1ms     +++|
02733  M00S02097.1ms     +++| CRD4     SHN    -6          SAVE APPROXIMATE NUMBER OF SECTORS
02734  M00S02098.1ms     +++|          STD    BP
02735  M00S02099.1ms     +++|          AOD    PC          INCREMENT PRU COUNT
02736  M00S02100.1ms     +++|          LDC    BFMS        READ SECTOR
02737  M00S02101.1ms     +++|          RJM    RDS
02738  M00S02102.1ms     +++|          PJN    CRD5        IF NO ERROR
Line S02103 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02739  M01S02103.242l642 ---|          RJM    MSR         PROCESS ERROR
Line S00142 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02740  M01S00142.242l642 +++|          LDD    T6          SET CURRENT TRACK
02741  M01S00143.242l642 +++|          STD    FS+2
02742  M01S00144.242l642 +++|          LDD    T7          SET CURRENT SECTOR
02743  M01S00145.242l642 +++|          STD    FS+3
02744  M01S00146.242l642 +++|          RJM    CDA         CHECK DEVICE
02745  M01S00147.242l642 +++|
02746  M00S02104.1ms     +++| CRD5     LDD    RA          CHECK RA CHANGED
02747  M00S02105.1ms     +++|          LMC    **          (RA)
02748  M00S02106.1ms     +++| CRDD     EQU    *-1
02749  M00S02107.1ms     +++|          ZJN    CRD6        IF RA NOT CHANGED
02750  M00S02108.1ms     +++|          RJM    SCA         SET BUFFER ADDRESSES
02751  M00S02109.1ms     +++| CRD6     LDD    MA          SAVE CONTROL WORD TRAILER
02752  M00S02110.1ms     +++|          CWD    T3
02753  M00S02111.1ms     +++|          LDM    BFMS        CHECK FIRST CONTROL BYTE
02754  M00S02112.1ms     +++|          NJN    CRD10       IF NOT EOF/EOI
02755  M00S02113.1ms     +++|          LDM    BFMS+1
02756  M00S02114.1ms     +++|          NJN    CRD8        IF NOT EOI
02757  M00S02115.1ms     +++|          SOD    PC
02758  M00S02116.1ms     +++|          LDN    /CIO/EOI    SET EOI STATUS
02759  M00S02117.1ms     +++| CRD7     STD    FS+4
02760  M00S02118.1ms     +++|          LJM    CPR         COMPLETE READ
02761  M00S02119.1ms     +++|
02762  M00S02120.1ms     +++|*         PROCESS EOF.
02763  M00S02121.1ms     +++|
02764  M00S02122.1ms     +++| CRD8     STD    T2
02765  M00S02123.1ms     +++|          LDD    FC          CHECK TERMINATION CONDITION
02766  M00S02124.1ms     +++|          LPN    14
02767  M00S02125.1ms     +++|          LMN    /CIO/EOF
02768  M00S02126.1ms     +++|          NJN    CRD9        IF NOT TERMINATE ON EOF
02769  M00S02127.1ms     +++|          LJM    EOF         TERMINATE READ
02770  M00S02128.1ms     +++|
02771  M00S02129.1ms     +++| CRD9     LDN    17          SET LEVEL NUMBER
02772  M00S02130.1ms     +++|          STD    T3
02773  M00S02131.1ms     +++|          LDD    MA          UPDATE CONTROL WORD TRAILER
02774  M00S02132.1ms     +++|          CWD    T3
02775  M00S02133.1ms     +++|          LDC    CRD19       CHANGE LOOP
02776  M00S02134.1ms     +++|          STM    CRDQ
02777  M00S02135.1ms     +++|          LDN    0
02778  M00S02136.1ms     +++|          STM    BFMS+1
02779  M00S02137.1ms     +++|          LDD    T2
02780  M00S02138.1ms     +++|
02781  M00S02139.1ms     +++|*         UPDATE SECTOR AND TRACK.
02782  M00S02140.1ms     +++|
02783  M00S02141.1ms     +++| CRD10    STD    T7
02784  M00S02142.1ms     +++|          SHN    6
02785  M00S02143.1ms     +++|          PJN    CRD11       IF NOT NEW TRACK
02786  M00S02144.1ms     +++|          SHN    -6
02787  M00S02145.1ms     +++|          STD    T6
02788  M00S02146.1ms     +++|          LDN    0           RESET SECTOR
02789  M00S02147.1ms     +++|          STD    T7
02790  M00S02148.1ms     +++|          SOD    TC
02791  M00S02149.1ms     +++|          NJN    CRD11       IF NOT TIME TO ENTER RECALL STACK
02792  M00S02150.1ms     +++|          STM    CRDB        SET TO ENTER RECALL STACK
02793  M00S02151.1ms     +++|          AOM    COCA
02794  M00S02152.1ms     +++|
02795  M00S02153.1ms     +++|*         WRITE SECTOR TO BUFFER.
02796  M00S02154.1ms     +++|
02797  M00S02155.1ms     +++| CRD11    LDM    BFMS+1      SET SECTOR WORD COUNT
02798  M00S02156.1ms     +++|          STD    T1
02799  M00S02157.1ms     +++|          SHN    2           SET WORD COUNT
02800  M00S02158.1ms     +++|          ADD    T1
02801  M00S02159.1ms     +++|          STM    BFMS+2-1
02802  M00S02160.1ms     +++|          ADC    BFMS+2
02803  M00S02161.1ms     +++|          STM    CRDE
02804  M00S02162.1ms     +++|          LDN    0
02805  M00S02163.1ms     +++|          STM    BFMS+2-2
02806  M00S02164.1ms     +++|          LDD    MA
02807  M00S02165.1ms     +++|          CRM    **,ON       MOVE TRAILER CONTROL WORD
02808  M00S02166.1ms     +++| CRDE     EQU    *-1
02809  M00S02167.1ms     +++|          LDN    2
02810  M00S02168.1ms     +++|          RAD    T1
02811  M00S02169.1ms     +++|          ADD    DP+4        CHECK IN + WORD COUNT
02812  M00S02170.1ms     +++|          SHN    6
02813  M00S02171.1ms     +++|          ADD    DP+3
02814  M00S02172.1ms     +++|          SHN    14
02815  M00S02173.1ms     +++| CRDF     ADC    -**         (-LIMIT)
02816  M00S02174.1ms     +++|          MJN    CRD12       IF NOT WRAP AROUND SECTOR
02817  M00S02175.1ms     +++|          NJN    CRD14       IF A SECOND PART
02818  M00S02176.1ms     +++|          SBD    T1
02819  M00S02177.1ms     +++| CRDG     ADC    **          (LIMIT + RA)
02820  M00S02178.1ms     +++|          CWM    BFMS+2-5,T1
02821  M00S02179.1ms     +++| CRDH     LDC    **          (FIRST)
02822  M00S02180.1ms     +++|          UJN    CRD13       STORE *IN* POINTER
02823  M00S02181.1ms     +++|
02824  M00S02182.1ms     +++|*         PROCESS NORMAL SECTOR.
02825  M00S02183.1ms     +++|
02826  M00S02184.1ms     +++| CRD12    SBD    T1          STORE PRU
02827  M00S02185.1ms     +++| CRDI     ADC    **          (LIMIT + RA)
02828  M00S02186.1ms     +++|          CWM    BFMS+2-5,T1
02829  M00S02187.1ms     +++|
02830  M00S02188.1ms     +++|*         ADVANCE *IN* POINTER.
02831  M00S02189.1ms     +++|
02832  M00S02190.1ms     +++| CRDJ     ADC    -**         (-RA)  UPDATE IN
02833  M00S02191.1ms     +++| CRD13    STD    DP+4
02834  M00S02192.1ms     +++|          SHN    -14
02835  M00S02193.1ms     +++|          STD    DP+3
02836  M00S02194.1ms     +++|
02837  M00S02195.1ms     +++|*         THE FOLLOWING CHECK MINIMIZES OVERHEAD ON TRACK SWITCH
02838  M00S02196.1ms     +++|*         AND PREVENTS A *DRCM* BEING ISSUED JUST PRIOR
02839  M00S02197.1ms     +++|*         TO THE DRIVER NEEDING TO DO AN *LDAM*.
02840  M00S02198.1ms     +++|
02841  M00S02199.1ms     +++|          LDD    T7
02842  M00S02200.1ms     +++|          ZJN    CRD15       IF TRACK SWITCH
02843  M00S02201.1ms     +++|
02844  M00S02202.1ms     +++|*         THE FOLLOWING LINE OF CODE IS MODIFIED VIA *RJM*.
02845  M00S02203.1ms     +++|
02846  M00S02204.1ms     +++|          LJM    CRD15       UPDATE *IN* IF NOT BUFFERED OPERATION
02847  M00S02205.1ms     +++|*         LJM    CRD17       (RECALL CPU)
02848  M00S02206.1ms     +++|*         LJM    CRD18       (WAIT FOR OUT TO CHANGE)
02849  M00S02207.1ms     +++| CRDK     EQU    *-1
02850  M00S02208.1ms     +++|          UJN    CRD15       UPDATE IN
02851  M00S02209.1ms     +++|
02852  M00S02210.1ms     +++|*         PROCESS WRAP AROUND SECTOR.
02853  M00S02211.1ms     +++|
02854  M00S02212.1ms     +++| CRD14    STD    CM+1        SET SECOND PART WORD COUNT
02855  M00S02213.1ms     +++|          LDD    T1          SET FIRST PART WORD COUNT
02856  M00S02214.1ms     +++|          SBD    CM+1
02857  M00S02215.1ms     +++|          STD    CM
02858  M00S02216.1ms     +++|          SHN    2           SET PPU ADDRESS OF SECOND PART
02859  M00S02217.1ms     +++|          ADD    CM
02860  M00S02218.1ms     +++|          ADC    BFMS+2-5
02861  M00S02219.1ms     +++|          STM    CRDN
02862  M00S02220.1ms     +++|          LDD    DP+3        WRITE FIRST PART
02863  M00S02221.1ms     +++|          SHN    14
02864  M00S02222.1ms     +++|          ADD    DP+4
02865  M00S02223.1ms     +++| CRDL     ADC    **          (RA)
02866  M00S02224.1ms     +++|          CWM    BFMS+2-5,CM
02867  M00S02225.1ms     +++| CRDM     LDC    **          (FIRST + RA)
02868  M00S02226.1ms     +++|          CWM    **,CM+1     WRITE SECOND PART
02869  M00S02227.1ms     +++| CRDN     EQU    *-1         (PPU ADDRESS OF SECOND PART)
02870  M00S02228.1ms     +++| CRDO     ADC    -**         (-RA)
02871  M00S02229.1ms     +++|          STD    DP+4        UPDATE *IN* POINTER
02872  M00S02230.1ms     +++|          SHN    -14
02873  M00S02231.1ms     +++|          STD    DP+3
02874  M00S02232.1ms     +++|
02875  M00S02233.1ms     +++|*         UPDATE *IN*.
02876  M00S02234.1ms     +++|
02877  M00S02235.1ms     +++| CRD15    LDC    **          UPDATE *IN* POINTER
02878  M00S02236.1ms     +++| CRDP     EQU    *-2         (IN + RA)
02879  M00S02237.1ms     +++|          CWD    DP
02880  M00S02238.1ms     +++|          LJM    CRD         CONTINUE DATA TRANSFER
02881  M00S02239.1ms     +++|*         LJM    CRD19       (EOF READ)
02882  M00S02240.1ms     +++|*         LJM    CRD20       (SYSTEM SECTOR READ)
02883  M00S02241.1ms     +++| CRDQ     EQU    *-1
02884  M00S02242.1ms     +++|
02885  M00S02243.1ms     +++|*         RECALL CPU ON THE NEXT SECTOR IF JOB IS IN *X* STATUS.
02886  M00S02244.1ms     +++|
02887  M00S02245.1ms     +++| CRD16    RJM    CRDK        MODIFY INSTRUCTION
Line S02246 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02888  M01S02246.271l750 ---| CRD17    LDC    **+STSW     CHECK CPU STATUS
Line S00005 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02889  M01S00005.271l750 +++| CRD17    LDC    **+CWQW     CHECK CPU RECALL REQUIRED
02890  M00S02247.1ms     +++| CRDR     EQU    *-1
02891  M00S02248.1ms     +++|          CRD    CM
Line S02249 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02892  M01S02249.271l750 ---|          LDD    CM
02893  M01S02250.271l750 ---|          SHN    -11
02894  M01S02251.271l750 ---|          LMN    XCPS
02895  M01S02252.271l750 ---|          NJN    CRD18       IF NOT *X* STATUS
Line S00006 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02896  M01S00006.271l750 +++|          LDD    CM+1
02897  M01S00007.271l750 +++|          SHN    21-12
02898  M01S00008.271l750 +++|          MJN    CRD18       IF RECALL NOT REQUIRED
02899  M00S02253.1ms     +++|          LDD    OA          RECALL CPU
02900  M00S02254.1ms     +++|          CWD    RC
02901  M00S02255.1ms     +++|
02902  M00S02256.1ms     +++|*         READ *OUT* AND CHECK IF *OUT* HAS CHANGED.
02903  M00S02257.1ms     +++|
02904  M00S02258.1ms     +++| CRD18    RJM    CRDK        MODIFY INSTRUCTION
02905  M00S02259.1ms     +++|          LDD    BP
02906  M00S02260.1ms     +++|          SHN    -3
02907  M00S02261.1ms     +++|          NJN    CRD15       IF .GT. 8 SECTORS OF SPACE
02908  M00S02262.1ms     +++|          LDC    **          (OUT+RA)
02909  M00S02263.1ms     +++| CRDS     EQU    *-2
02910  M00S02264.1ms     +++|          CRD    OP-3
02911  M00S02265.1ms     +++|          LDD    OP+1
02912  M00S02266.1ms     +++|          SBD    OT+1
02913  M00S02267.1ms     +++|          ZJN    CRD15       IF *OUT* NOT CHANGED
02914  M00S02268.1ms     +++|          RAD    OT+1        SAVE NEW *OUT*
02915  M00S02269.1ms     +++|          UJN    CRD16       SET TO RECALL CPU
02916  M00S02270.1ms     +++|
02917  M00S02271.1ms     +++|*         EOF POST PROCESSING CODE.
02918  M00S02272.1ms     +++|
02919  M00S02273.1ms     +++| CRD19    LDN    0           RESET LEVEL NUMBER
02920  M00S02274.1ms     +++|          STD    T3
02921  M00S02275.1ms     +++|          LDD    PC          SAVE EOF SECTOR NUMBER
02922  M00S02276.1ms     +++|          STM    CRDC
02923  M00S02277.1ms     +++|          UJN    CRD21       RESTORE LOOP
02924  M00S02278.1ms     +++|
02925  M00S02279.1ms     +++|*         SYSTEM SECTOR POST PROCESSING CODE.
02926  M00S02280.1ms     +++|
02927  M00S02281.1ms     +++| CRD20    LDN    FSMS        SET FIRST DATA SECTOR
02928  M00S02282.1ms     +++|          STD    T7
Line S00148 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02929  M01S00148.242l642 +++|          LDM    CFNB
02930  M01S00149.242l642 +++|          LPN    37
02931  M01S00150.242l642 +++|          STM    CFNB
02932  M00S02283.1ms     +++| CRD21    LDC    CRD         RESTORE LOOP
02933  M00S02284.1ms     +++|          STM    CRDQ
02934  M00S02285.1ms     +++|          LJM    CRD         LOOP
02935  M00S02286.1ms     +++| SCA      SPACE  4,10
02936  M00S02287.1ms     +++|**        SCA - SET CONTROL WORD READ ADDRESSES.
02937  M00S02288.1ms     +++|*         PRESETS ADDRESSES IN *CRD*.
02938  M00S02289.1ms     +++|*         ENTER IF (RA) CHANGES.
02939  M00S02290.1ms     +++|*
02940  M00S02291.1ms     +++|*         ENTRY  (FT - FT+1) = *FIRST* POINTER.
02941  M00S02292.1ms     +++|*                (LM - LM+1) = *LIMIT* POINTER.
02942  M00S02293.1ms     +++|*
02943  M00S02294.1ms     +++|*         MACROS CFET.
02944  M00S02295.1ms     +++|
02945  M00S02296.1ms     +++|
02946  M00S02297.1ms     +++| SCA      SUBR               ENTRY/EXIT
02947  M00S02298.1ms     +++|          LDD    RA          RA AND -RA
02948  M00S02299.1ms     +++|          STM    CRDD
02949  M00S02300.1ms     +++|          SHN    6
02950  M00S02301.1ms     +++|          STM    CRDL+1
02951  M00S02302.1ms     +++|          LMC    7777
02952  M00S02303.1ms     +++|          STM    CRDJ+1
02953  M00S02304.1ms     +++|          STM    CRDO+1
02954  M00S02305.1ms     +++|          SHN    -14
02955  M00S02306.1ms     +++|          LMC    ADCI
02956  M00S02307.1ms     +++|          STM    CRDL
02957  M00S02308.1ms     +++|          LMN    77
02958  M00S02309.1ms     +++|          STM    CRDJ
02959  M00S02310.1ms     +++|          STM    CRDO
02960  M00S02311.1ms     +++|
02961  M00S02312.1ms     +++|          LDD    FT          FIRST + RA
02962  M00S02313.1ms     +++|          SHN    6
02963  M00S02314.1ms     +++|          ADD    RA
02964  M00S02315.1ms     +++|          SHN    6
02965  M00S02316.1ms     +++|          ADD    FT+1
02966  M00S02317.1ms     +++|          STM    CRDM+1
02967  M00S02318.1ms     +++|          SHN    -14
02968  M00S02319.1ms     +++|          LMC    LDCI
02969  M00S02320.1ms     +++|          STM    CRDM
02970  M00S02321.1ms     +++|
02971  M00S02322.1ms     +++|          CFET   2           IN  + RA
02972  M00S02323.1ms     +++|          STM    CRDP+1
02973  M00S02324.1ms     +++|          STM    CRDS+1
02974  M00S02325.1ms     +++|          SHN    -14
02975  M00S02326.1ms     +++|          LMC    LDCI
02976  M00S02327.1ms     +++|          STM    CRDP
02977  M00S02328.1ms     +++|          STM    CRDS
02978  M00S02329.1ms     +++|          AOM    CRDS+1      OUT + RA
02979  M00S02330.1ms     +++|          SHN    -14
02980  M00S02331.1ms     +++|          RAM    CRDS
02981  M00S02332.1ms     +++|
02982  M00S02333.1ms     +++|          LDD    LM          LIMIT + RA
02983  M00S02334.1ms     +++|          SHN    6
02984  M00S02335.1ms     +++|          ADD    RA
02985  M00S02336.1ms     +++|          SHN    6
02986  M00S02337.1ms     +++|          ADD    LM+1
02987  M00S02338.1ms     +++|          STM    CRDI+1
02988  M00S02339.1ms     +++|          STM    CRDG+1
02989  M00S02340.1ms     +++|          SHN    -14
02990  M00S02341.1ms     +++|          LMC    ADCI
02991  M00S02342.1ms     +++|          STM    CRDI
02992  M00S02343.1ms     +++|          STM    CRDG
02993  M00S02344.1ms     +++|          LJM    SCAX        RETURN
02994  M00S02345.1ms     +++|          SPACE  4,10
02995  M00S02346.1ms     +++|          QUAL
02996  M00S02347.1ms     +++| ERMS     EQU    *+5         END OF MASS STORAGE READ OVERLAY
02997  M00S02348.1ms     +++|          QUAL   *
02998  M00S02349.1ms     +++|          TITLE  READ MASS STORAGE PRESET.
02999  M00S02350.1ms     +++| PRS      SPACE  4,20
03000  M00S02351.1ms     +++|**        PRS - READ MASS STORAGE PRESET.
03001  M00S02352.1ms     +++|*
03002  M00S02353.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
03003  M00S02354.1ms     +++|*                (FT - OT+1) = BUFFER POINTERS.
03004  M00S02355.1ms     +++|*                (FS - FS+4) = FST ENTRY.
03005  M00S02356.1ms     +++|*
03006  M00S02357.1ms     +++|*         EXIT   (BP) = BUFFER SPACE IN PRUS FOR NON-CONTROL WORD
03007  M00S02358.1ms     +++|*                   READ, IN WORDS FOR CONTROL WORD READ.
03008  M00S02359.1ms     +++|*                (OP - OP+1) = (OT - OT+1).
03009  M00S02360.1ms     +++|*                TO *RMS* IF SYSTEM SECTOR WRITE REQUIRED.
03010  M00S02361.1ms     +++|*                TO *RMS1* IF SYSTEM SECTOR WRITE NOT REQUIRED.
03011  M00S02362.1ms     +++|*                TO *UFS* IF INSUFFICIENT BUFFER SPACE FOR
03012  M00S02363.1ms     +++|*                   CONTINUATION FUNCTION.
03013  M00S02364.1ms     +++|*
03014  M00S02365.1ms     +++|*         ERROR  TO *ERR* IF ERROR OR UNNECESSARY FUNCTION.
03015  M00S02366.1ms     +++|*
03016  M00S02367.1ms     +++|*         USES   T1, CM - CM+4.
03017  M00S02368.1ms     +++|
03018  M00S02369.1ms     +++|
03019  M00S02370.1ms     +++| PRS      BSS    0           ENTRY
03020  M00S02371.1ms     +++|          LDD    OT          CHECK BUFFER SPACE
03021  M00S02372.1ms     +++|          SBD    IN          LENGTH = OUT - IN - 1
03022  M00S02373.1ms     +++|          SHN    14
03023  M00S02374.1ms     +++|          ADD    OT+1
03024  M00S02375.1ms     +++|          SBD    IN+1
03025  M00S02376.1ms     +++|          SBN    1
03026  M00S02377.1ms     +++|          PJN    PRS1        IF NO WRAP AROUND
03027  M00S02378.1ms     +++|          SHN    6           LENGTH = LIMIT - IN - 1 + OUT - FIRST
03028  M00S02379.1ms     +++|          ADD    LM
03029  M00S02380.1ms     +++|          SBD    FT
03030  M00S02381.1ms     +++|          SHN    14
03031  M00S02382.1ms     +++|          ADD    LM+1
03032  M00S02383.1ms     +++|          SBD    FT+1
03033  M00S02384.1ms     +++| PRS1     STD    T1          SAVE FREE WORD COUNT
03034  M00S02385.1ms     +++|          SHN    -6
03035  M00S02386.1ms     +++|          STD    BP          SAVE BUFFER SPACE / 100B
03036  M00S02387.1ms     +++|          NJN    PRS3        IF BUFFER NOT FULL
03037  M00S02388.1ms     +++|          LDD    FC          CHECK REQUEST
03038  M00S02389.1ms     +++|          SHN    21-12
03039  M00S02390.1ms     +++|          MJN    PRS3        IF *READSKP*
03040  M00S02391.1ms     +++|          LDM    RCRF
03041  M00S02392.1ms     +++|          SHN    21-6
03042  M00S02393.1ms     +++|          MJN    PRS2        IF DATA TRANSFERRED PREVIOUSLY
03043  M00S02394.1ms     +++|          ERROR  UCF         *UNNECESSARY CIO FUNCTION*
03044  M00S02395.1ms     +++|
03045  M00S02396.1ms     +++| PRS2     LJM    UFS         UPDATE FET STATUS
03046  M00S02397.1ms     +++|
03047  M00S02398.1ms     +++|*         SET UP RECALL LOGIC.
03048  M00S02399.1ms     +++|
03049  M00S02400.1ms     +++| PRS3     LDD    IR+1        CHECK RECALL STATUC
03050  M00S02401.1ms     +++|          SHN    21-5
03051  M00S02402.1ms     +++|          MJN    PRS4        IF AUTO RECALL
03052  M00S02403.1ms     +++|          LDD    CP          SET CONTROL POINT ADDRESS
03053  M00S02404.1ms     +++|          RAM    BRDW
03054  M00S02405.1ms     +++|          STM    CRDR
03055  M00S02406.1ms     +++|          LDC    BRD19       SET TO RECALL CPU AFTER FIRST SECTOR
03056  M00S02407.1ms     +++|          STM    BRDN
03057  M00S02408.1ms     +++|          LDC    CRD17
03058  M00S02409.1ms     +++|          STM    CRDK
03059  M00S02410.1ms     +++|
03060  M00S02411.1ms     +++|*         SET BUFFER RELATED ADDRESSES.
03061  M00S02412.1ms     +++|
03062  M00S02413.1ms     +++| PRS4     LDD    LM          LIMIT - FIRST
03063  M00S02414.1ms     +++|          SBD    FT
03064  M00S02415.1ms     +++|          SHN    14
03065  M00S02416.1ms     +++|          ADD    LM+1
03066  M00S02417.1ms     +++|          SBD    FT+1
03067  M00S02418.1ms     +++|          STM    BRDB+1
03068  M00S02419.1ms     +++|          STM    CRDA+1
03069  M00S02420.1ms     +++|          SHN    -14
03070  M00S02421.1ms     +++|          RAM    BRDB
03071  M00S02422.1ms     +++|          STM    CRDA
03072  M00S02423.1ms     +++|
03073  M00S02424.1ms     +++|          LDC    ADCI+77     -LIMIT
03074  M00S02425.1ms     +++|          LMD    LM
03075  M00S02426.1ms     +++|          STM    BRDI
03076  M00S02427.1ms     +++|          STM    CRDF
03077  M00S02428.1ms     +++|          LDC    7777
03078  M00S02429.1ms     +++|          LMD    LM+1
03079  M00S02430.1ms     +++|          STM    BRDI+1
03080  M00S02431.1ms     +++|          STM    CRDF+1
03081  M00S02432.1ms     +++|
03082  M00S02433.1ms     +++|          LDD    FT+1        FIRST
03083  M00S02434.1ms     +++|          STM    BRDK+1
03084  M00S02435.1ms     +++|          STM    CRDH+1
03085  M00S02436.1ms     +++|          LDD    FT
03086  M00S02437.1ms     +++|          RAM    BRDK
03087  M00S02438.1ms     +++|          STM    CRDH
03088  M00S02439.1ms     +++|
03089  M00S02440.1ms     +++|*         CHECK FOR SYSTEM SECTOR READ.
03090  M00S02441.1ms     +++|
03091  M00S02442.1ms     +++|          LDD    FS+4
03092  M00S02443.1ms     +++|          SHN    21-13
03093  M00S02444.1ms     +++|          PJN    PRS5        IF NOT SYSTEM SECTOR READ
03094  M00S02445.1ms     +++|          LDD    FC
03095  M00S02446.1ms     +++|          SHN    21-5
03096  M00S02447.1ms     +++|          PJN    PRS7        IF NOT *READCW*
03097  M00S02448.1ms     +++|          LDC    CRD20       CHANGE LOOP
03098  M00S02449.1ms     +++|          STM    CRDQ
Line S02450 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03099  M01S02450.242l642 ---|          LDM    CFNB        CLEAR SYSTEM SECTOR OPERATION
03100  M01S02451.242l642 ---|          LPN    37
03101  M01S02452.242l642 ---|          STM    CFNB
03102  M00S02453.1ms     +++| PRS5     LDN    0
03103  M00S02454.1ms     +++|          STD    FS+4
03104  M00S02455.1ms     +++|          LDD    FC
03105  M00S02456.1ms     +++|          SHN    21-12
03106  M00S02457.1ms     +++|          MJN    PRS6        IF *READSKP*
03107  M00S02458.1ms     +++|          SHN    21-4-21+12
03108  M00S02459.1ms     +++|          PJN    PRS8        IF NOT READ LIST
Line S00009 Modification History
M01 (Added by) 1ms3
Seq #  *Modification Id* Act 
----------------------------+
03109  M01S00009.1ms3    +++|          LDK    UJNI-NJNI   PREVENT ENTERING RECALL STACK
03110  M01S00010.1ms3    +++|          RAM    BRDY
03111  M00S02460.1ms     +++| PRS6     LJM    LSO         LOAD SPECIAL READ OVERLAY
03112  M00S02461.1ms     +++|
Line S02462 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03113  M01S02462.v23l617 ---| PRS7     ERROR  IRQ         *ILLEGAL I/O REQUEST*
Line S00013 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03114  M01S00013.v23l617 +++| PRS7     ERROR  IRQ         *INCORRECT I/O REQUEST*
03115  M00S02463.1ms     +++|
03116  M00S02464.1ms     +++| PRS8     SHN    21-5-21+4+22
03117  M00S02465.1ms     +++|          MJN    PRS11       IF *READCW*
03118  M00S02466.1ms     +++|          SHN    -21+5+22
03119  M00S02467.1ms     +++|          LPN    14          GET TERMINATION CONDITION
03120  M00S02468.1ms     +++|          NJN    PRS9        IF NOT *RPHR*
03121  M00S02469.1ms     +++|          LDC    BRD2        SET STOP ON PRU
03122  M00S02470.1ms     +++|          STM    BRDU
Line S00011 Modification History
M01 (Added by) 1ms3
Seq #  *Modification Id* Act 
----------------------------+
03123  M01S00011.1ms3    +++|          LDK    UJNI-NJNI   PREVENT ENTERING RECALL STACK
03124  M01S00012.1ms3    +++|          RAM    BRDY
03125  M00S02471.1ms     +++|          UJN    PRS11       PROCESS READ
03126  M00S02472.1ms     +++|
03127  M00S02473.1ms     +++| PRS9     LMN    /CIO/EOF
03128  M00S02474.1ms     +++|          ZJN    PRS10       IF *READNS*
03129  M00S02475.1ms     +++|          LMN    /CIO/EOI&/CIO/EOF
03130  M00S02476.1ms     +++|          NJN    PRS11       IF NOT *READEI*
03131  M00S02477.1ms     +++|          LDC    UJNI+2      CLEAR STOP ON EOF
03132  M00S02478.1ms     +++|          STM    BRDG
03133  M00S02479.1ms     +++| PRS10    LDD    HN+LJMI*    CLEAR EOR CHECK
03134  M00S02480.1ms     +++|          STM    BRDT
03135  M00S02481.1ms     +++|          LDC    BRD
03136  M00S02482.1ms     +++|          STM    BRDT+1
Line S00013 Modification History
M01 (Added by) 1ms3
Seq #  *Modification Id* Act 
----------------------------+
03137  M01S00013.1ms3    +++|          LDK    PSNI        PREVENT EOR/EOF CHECK
03138  M01S00014.1ms3    +++|          STM    BRDZ
03139  M00S02483.1ms     +++| PRS11    LJM    RMS         PROCESS READ
03140  M00S02484.1ms     +++|          SPACE  4,10
03141  M00S02485.1ms     +++|          OVERFLOW  MSDO
03142  M00S02486.1ms     +++| SMR      OVERLAY (SPECIAL MASS STORAGE READS.),SMRO
03143  M00S02487.1ms     +++| SMR      SPACE  4,10
03144  M00S02488.1ms     +++|**        DIRECT LOCATION ASSIGNMENTS.
03145  M00S02489.1ms     +++|
03146  M00S02490.1ms     +++|
03147  M00S02491.1ms     +++| OP       EQU    16 - 17     *OUT* POINTER
03148  M00S02492.1ms     +++| LE       EQU    30 - 31     LIST ENTRY (2 LOCATIONS)
03149  M00S02493.1ms     +++| RI       EQU    32 - 33     RANDOM INDEX (2 LOCATIONS)
03150  M00S02494.1ms     +++| LP       EQU    34 - 35     LIST POINTER (2 LOCATIONS)
03151  M00S02495.1ms     +++| TC       EQU    35          TRACK COUNT
03152  M00S02496.1ms     +++| LI       EQU    36          LIST INDEX
03153  M00S02497.1ms     +++| BP       EQU    37          BUFFER SPACE IN PRUS
03154  M00S02498.1ms     +++| LS       EQU    46 - 47     LIST ADDRESS (2 LOCATIONS)
03155  M00S02499.1ms     +++| SMR      SPACE  4,10
03156  M00S02500.1ms     +++|**        SMR - SPECIAL MASS STORAGE READS MAIN ROUTINE.
03157  M00S02501.1ms     +++|*
03158  M00S02502.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
03159  M00S02503.1ms     +++|*
03160  M00S02504.1ms     +++|*         EXIT   TO *RLS* IF *READLS*.
03161  M00S02505.1ms     +++|*                TO *RPL* IF *RPHRLS*.
03162  M00S02506.1ms     +++|*                TO *RSK* IF *READSKP*.
03163  M00S02507.1ms     +++|
03164  M00S02508.1ms     +++|
03165  M00S02509.1ms     +++| SMR      SUBR               ENTRY/EXIT
03166  M00S02510.1ms     +++|          LDD    FC
03167  M00S02511.1ms     +++|          SHN    21-12
03168  M00S02512.1ms     +++|          MJN    RSK         IF *READSKP*
03169  M00S02513.1ms     +++|          SHN    -21+12+22   GET TERMINATION CONDITION
03170  M00S02514.1ms     +++|          LPN    14
03171  M00S02515.1ms     +++|          ZJN    SMR1        IF *RPHRLS*
03172  M00S02516.1ms     +++|          LJM    RLS         PROCESS *READLS*
03173  M00S02517.1ms     +++|
03174  M00S02518.1ms     +++| SMR1     LJM    RPL         PROCESS *RPHRLS*
03175  M00S02519.1ms     +++|          TITLE  READ SKIP PROCESSOR.
03176  M00S02520.1ms     +++| RSK      SPACE  4,15
03177  M00S02521.1ms     +++|**        RSK - READ SKIP (*READSKP*) PROCESSOR (FUNCTION 020).
03178  M00S02522.1ms     +++|*
03179  M00S02523.1ms     +++|*         ENTRY  (BS - BS+4) = (FET+0).
03180  M00S02524.1ms     +++|*                (FS - FS+4) = FST ENTRY.
03181  M00S02525.1ms     +++|*                (FT - FT+1) = *FIRST* POINTER.
03182  M00S02526.1ms     +++|*                (OP - OP+1) = *OUT* POINTER.
03183  M00S02527.1ms     +++|*
03184  M00S02528.1ms     +++|*         EXIT   (PC) = COUNT OF PRUS TRANSFERRED.
03185  M00S02529.1ms     +++|*                (FS - FS+4) = ADVANCED FST ENTRY.
03186  M00S02530.1ms     +++|*                TO */RMS/CPR*.
03187  M00S02531.1ms     +++|*                TO *SMRX* AFTER PRESET FOR REENTRY.
Line S00151 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03188  M01S00151.242l642 +++|*                TO *CDA*, IF MASS STORAGE ERROR.
03189  M00S02532.1ms     +++|*
03190  M00S02533.1ms     +++|*         CALLS  /RMS/BRD, CRT, RNS, /RMS/SBA.
03191  M00S02534.1ms     +++|*
03192  M00S02535.1ms     +++|*         USES   T1, T3.
03193  M00S02536.1ms     +++|
03194  M00S02537.1ms     +++|
03195  M00S02538.1ms     +++| RSK      BSS    0           ENTRY
03196  M00S02539.1ms     +++|          LDM    RCRF        CHECK FOR SKIP PROCESSING
03197  M00S02540.1ms     +++|          SHN    21-10
03198  M00S02541.1ms     +++|          PJN    RSK1        IF NOT SKIP PROCESSING
03199  M00S02542.1ms     +++|          LDC    RSK9        SET TO CONTINUE SKIP PROCESSING
03200  M00S02543.1ms     +++|          STM    /RMS/RMSA
03201  M00S02544.1ms     +++| RSK1     LDC    RSK2        SET LOAD BUFFER EXIT
03202  M00S02545.1ms     +++|          STM    /RMS/BRDE
03203  M00S02546.1ms     +++|          LDD    HN          PRESET FULL SECTOR FOR *READSKP*
03204  M00S02547.1ms     +++|          STM    BFMS+1
Line S02548 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03205  M01S02548.ns22000 ---|          LJM    SMRX        RETURN
Line S00161 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03206  M01S00161.ns22000 +++|          UJN    SMRX        RETURN
03207  M00S02549.1ms     +++|
03208  M00S02550.1ms     +++|*         REENTRY AFTER TRACK COUNT EXHAUSTED OR WHEN USER
03209  M00S02551.1ms     +++|*         BUFFER FULL (LESS THAN ONE PRU OF SPACE REMAINS)
03210  M00S02552.1ms     +++|*         OR EOR/EOF/EOI ENCOUNTERED.
03211  M00S02553.1ms     +++|
03212  M00S02554.1ms     +++| RSK2     LDM    COCA
03213  M00S02555.1ms     +++|          NJN    RSK3        IF TO ENTER RECALL STACK
03214  M00S02556.1ms     +++|          LDC    SHNI+77-2   FORCE SETTING OF FET TERMINATION STATUS
03215  M00S02557.1ms     +++|          STM    UFSA
03216  M00S02558.1ms     +++|          LDD    FS+4        CHECK FET STATUS
03217  M00S02559.1ms     +++|          LPN    14
03218  M00S02560.1ms     +++|          ZJN    RSK4        IF NOT EOR/EOF/EOI
03219  M00S02561.1ms     +++|          LPN    10
03220  M00S02562.1ms     +++|          NJN    RSK3        IF EOF OR EOI ENCOUNTERED
03221  M00S02563.1ms     +++|          LDC    400         SET SKIP FLAG
03222  M00S02564.1ms     +++|          RAM    RCRF
03223  M00S02565.1ms     +++|          LJM    RSK11       CHECK FOR SKIP TO EOF
03224  M00S02566.1ms     +++|
03225  M00S02567.1ms     +++| RSK3     LJM    /RMS/CPR    EXIT TO COMPLETE READ
Proceed to Part 2