User Tools

Site Tools


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

Deck 1MS Part 001

38 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01368  M01S00113.242l642 +++|          LDC    -2000       CLEAR TRACK INTERLOCK FLAG
01369  M01S00114.242l642 +++|          RAM    RCRF
Line S00962 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01370  M02S00962.ns22000 ---|          LDD    FS          SET EQUIPMENT NUMBER
01371  M01S00041.ns22000 +++|          LDD    FS          SET EST ORDINAL
Line S00963 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01372  M02S00963.ns22000 ---|          LPN    77
01373  M01S00964.1ms     +++|          STD    T5
01374  M01S00965.1ms     +++|          LDD    FS+1        SET FIRST TRACK
01375  M01S00966.1ms     +++|          RJM    CTI         CLEAR TRACK INTERLOCK
01376  M01S00967.1ms     +++|          UJN    CITX        RETURN
01377  M01S00968.1ms     +++| DCC      SPACE  4,10
01378  M01S00969.1ms     +++|**        DCC - DROP CHANNEL WHEN OUTPUT REGISTER CLEAR.
01379  M01S00970.1ms     +++|*
01380  M01S00971.1ms     +++|*         EXIT   (A) = 0.
01381  M01S00972.1ms     +++|*
01382  M01S00973.1ms     +++|*         USES   CM - CM+4.
01383  M01S00974.1ms     +++|*
01384  M01S00975.1ms     +++|*         MACROS ENDMS.
01385  M01S00976.1ms     +++|
01386  M01S00977.1ms     +++|
01387  M01S00978.1ms     +++| DCC2     ENDMS              END MASS STORAGE OPERATION
01388  M01S00979.1ms     +++|
01389  M01S00980.1ms     +++| DCC      SUBR               ENTRY/EXIT
01390  M01S00981.1ms     +++| DCC1     LDD    OA          WAIT OUTPUT REGISTER CLEAR
01391  M01S00982.1ms     +++|          CRD    CM
01392  M01S00983.1ms     +++|          LDD    CM
01393  M01S00984.1ms     +++|          ZJN    DCC2        IF OUTPUT REGISTER CLEAR
01394  M01S00985.1ms     +++|          LDN    77
01395  M01S00986.1ms     +++|          SBN    1
01396  M01S00987.1ms     +++|          NJN    *-1         DELAY
01397  M01S00988.1ms     +++|          UJN    DCC1        REREAD OUTPUT REGISTER
01398  M01S00042.ns22000 +++| VAL      SPACE  4,10
01399  M01S00043.ns22000 +++|**        VAL - VALIDATE FILE ACCESS LEVEL.
01400  M01S00044.ns22000 +++|*
01401  M01S00045.ns22000 +++|*         ENTRY  (A) = 0 IF VALIDATE FILE READ.
01402  M01S00046.ns22000 +++|*                (A) = 1 IF VALIDATE FILE WRITE.
01403  M01S00047.ns22000 +++|*
01404  M01S00048.ns22000 +++|*         ERROR   TO *ERR* IF VALIDATION ERROR DETECTED.
01405  M01S00049.ns22000 +++|*
01406  M01S00050.ns22000 +++|*         USES   T1, CM - CM+7.
01407  M01S00051.ns22000 +++|*
01408  M01S00052.ns22000 +++|*         MACROS ERROR, MONITOR.
01409  M01S00053.ns22000 +++|
01410  M01S00054.ns22000 +++|
01411  M01S00055.ns22000 +++| VAL      SUBR               ENTRY/EXIT
01412  M01S00056.ns22000 +++|          STD    T1
01413  M01S00057.ns22000 +++|          LDM    OSSM        CHECK O/S SECURITY MODE
01414  M01S00058.ns22000 +++|          ZJN    VALX        IF UNSECURED SYSTEM
01415  M01S00059.ns22000 +++|          LDD    CP          CHECK FOR SUBSYSTEM
01416  M01S00060.ns22000 +++|          ADK    JCIW
01417  M01S00061.ns22000 +++|          CRD    CM+3
01418  M01S00062.ns22000 +++|          ADK    SEPW-JCIW   CHECK FOR SSJ=
01419  M01S00063.ns22000 +++|          CRD    CM
01420  M01S00064.ns22000 +++|          LDD    CM
01421  M01S00065.ns22000 +++|          SHN    21-2
01422  M01S00066.ns22000 +++|          MJN    VALX        IF SSJ=
01423  M01S00067.ns22000 +++|          LDD    CM+3+2
01424  M01S00068.ns22000 +++|          SBK    LSSI+1
01425  M01S00069.ns22000 +++|          PJN    VALX        IF SUBSYSTEM
01426  M01S00070.ns22000 +++|          LDM    JSAL        COMPARE JOB AND FILE ACCESS LEVELS
01427  M01S00071.ns22000 +++|          SBM    FSAL
01428  M01S00072.ns22000 +++| VAL1     ZJN    VALX        IF FILE IS AT JOB ACCESS LEVEL
01429  M01S00073.ns22000 +++|          PJN    VAL3        IF JOB LEVEL .GT. FILE LEVEL
01430  M01S00074.ns22000 +++|          LDD    T1
01431  M01S00075.ns22000 +++|          NJN    VALX        IF WRITE TO FILE
01432  M01S00076.ns22000 +++|          LDM    FSAL        RAISE JOB LEVEL TO FILE LEVEL FOR READ
01433  M01S00077.ns22000 +++|          STD    CM+4
01434  M01S00078.ns22000 +++|          LDN    VJAS
01435  M01S00079.ns22000 +++| VAL2     STD    CM+1
01436  M01S00080.ns22000 +++|          MONITOR  VSAM
01437  M01S00081.ns22000 +++|          LDD    CM+1
01438  M01S00082.ns22000 +++|          ZJN    VAL1        IF ACCESS LEVEL CHANGED
Line S00083 Modification History
M01 (Added by) ns22000
M02 (Updated by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
01439  M02S00083.1ms16   ---|          ERROR  LNF         *ACCESS LEVEL NOT VALID FOR FILE.*
01440  M01S00010.1ms16   +++|          ERROR  LNJ         *JOB ACCESS LEVEL CONFLICT.*
01441  M01S00084.ns22000 +++|
01442  M01S00085.ns22000 +++| VAL3     LDD    T1
01443  M01S00086.ns22000 +++|          ZJN    VAL1        IF READ FILE
01444  M01S00087.ns22000 +++|          LDD    CP          CHECK WRITE DOWN VALIDATION
01445  M01S00088.ns22000 +++|          ADK    JSCW
01446  M01S00089.ns22000 +++|          CRD    CM
01447  M01S00090.ns22000 +++|          LDD    CM
01448  M01S00091.ns22000 +++|          LPN    40
01449  M01S00092.ns22000 +++|          LMN    40
01450  M01S00093.ns22000 +++|          ZJN    VAL1        IF USER ALLOWED TO WRITE TO LOWER LEVEL
01451  M01S00094.ns22000 +++|          LDM    PMFF
01452  M01S00095.ns22000 +++|          ZJN    VAL4        IF PERMANENT FILE
01453  M01S00096.ns22000 +++|          LDD    FA          GET FNT ADDRESS
01454  M01S00097.ns22000 +++|          STD    CM+3
01455  M01S00098.ns22000 +++|          LDM    JSAL        RAISE FILE TO JOB ACCESS LEVEL FOR WRITE
01456  M01S00099.ns22000 +++|          STD    CM+4
01457  M01S00100.ns22000 +++|          LDN    VSFS
01458  M01S00101.ns22000 +++|          UJN    VAL2        ISSUE *VSAM* MONITOR FUNCTION
01459  M01S00102.ns22000 +++|
01460  M01S00103.ns22000 +++| VAL4     ERROR  WDP         *WRITEDOWN PROHIBITED ON FILE.*
Line S00989 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01461  M02S00989.242l642 ---| MSR      SPACE  4,10
Line S00990 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01462  M02S00990.242l642 ---|**        MSR - PROCESS MASS STORAGE ERROR.
Line S00991 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01463  M02S00991.242l642 ---|*
Line S00992 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01464  M02S00992.242l642 ---|*         USES   CM+3, T7+1.
Line S00993 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01465  M02S00993.242l642 ---|*
Line S00994 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01466  M02S00994.242l642 ---|*         ERROR  TO *ERR*.
Line S00995 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01467  M02S00995.242l642 ---|*
Line S00996 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01468  M02S00996.242l642 ---|*         MACROS ERROR.
Line S00997 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01469  M02S00997.242l642 ---|
Line S00998 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01470  M02S00998.242l642 ---|
Line S00999 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01471  M02S00999.242l642 ---| MSR      SUBR               ENTRY/EXIT
Line S01000 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01472  M02S01000.242l642 ---|          LDD    T3          SAVE (T3)
Line S01001 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01473  M02S01001.242l642 ---|          STD    CM+3
Line S01002 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01474  M02S01002.242l642 ---|          LDM    RDCT        SAVE ERROR CODE, T4-T7
Line S01003 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01475  M02S01003.242l642 ---|          STD    T7+1
Line S01004 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01476  M02S01004.242l642 ---|          LDD    MA
Line S01005 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01477  M02S01005.242l642 ---|          CWD    T7+2-5
Line S01006 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01478  M02S01006.242l642 ---|          CRM    MRSB,ON
Line S01007 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01479  M02S01007.242l642 ---|          CWD    CM+3        SAVE T3, T8, T9
Line S01008 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01480  M02S01008.242l642 ---|          CRM    MSRA,ON
Line S01009 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01481  M02S01009.242l642 ---|          ERROR  DRE         *DEVICE ERROR ON FILE*
Line S01010 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01482  M02S01010.242l642 ---|
Line S01011 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01483  M02S01011.242l642 ---|
Line S01012 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01484  M02S01012.242l642 ---| MSRA     BSS    5           T3, T8, T9
Line S01013 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01485  M02S01013.242l642 ---| MRSB     EQU    *           ERROR CODE, T4 - T7
01486  M01S00115.242l642 +++|          SPACE  4,10
Line S00116 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
01487  M02S00116.1ms13   ---| DCSA     EQU    * - *+4     T3, RDCT, T5, T6, T7
01488  M01S00001.1ms13   +++| DCSA     BSSZ   5           T3, RDCT, T5, T6, T7 SAVE AREA
01489  M01S01014.1ms     +++|          SPACE  4,10
01490  M01S01015.1ms     +++| MSDO     EQU    *+5         MASS STORAGE DRIVER ORIGIN
01491  M01S01016.1ms     +++|          SPACE  4,10
01492  M01S01017.1ms     +++| OVL      EQU    *+5         ZERO LEVEL OVERLAY LOAD ADDRESS
01493  M01S01018.1ms     +++|
01494  M01S01019.1ms     +++|          ERRNG  BFMS-OVL-ZDFL  CHECK LENGTH OF *0DF*
01495  M01S01020.1ms     +++|          TITLE  INITIALIZATION.
01496  M01S01021.1ms     +++| CFE      SPACE  4,15
01497  M01S01022.1ms     +++|**        CFE - CREATE FNT ENTRY.
01498  M01S01023.1ms     +++|*
01499  M01S01024.1ms     +++|*         ENTRY  (FN - FN+3) = FILE NAME.
01500  M01S01025.1ms     +++|*
01501  M01S01026.1ms     +++|*         EXIT   TO *ERS1* IF NFL INCREASE REJECTED.
01502  M01S01027.1ms     +++|*                TO *CRC2* IF FNT ENTRY CREATED.
01503  M01S01028.1ms     +++|*
01504  M01S01029.1ms     +++|*         ERROR  TO *ERR* IF ERROR DETECTED.
01505  M01S01030.1ms     +++|*
01506  M01S01031.1ms     +++|*         USES   FA, FS, FS+4, CM - CM+4.
01507  M01S01032.1ms     +++|*
01508  M01S01033.1ms     +++|*         CALLS  VFN, *0BF*.
01509  M01S01034.1ms     +++|*
01510  M01S01035.1ms     +++|*         MACROS CFET, ERROR, EXECUTE, NFA, MONITOR.
01511  M01S01036.1ms     +++|
01512  M01S01037.1ms     +++|
01513  M01S01038.1ms     +++| CFE      BSS    0           ENTRY
01514  M01S01039.1ms     +++|          LDD    FN+3        CLEAR LEVEL NUMBER
01515  M01S01040.1ms     +++|          SCN    77
01516  M01S01041.1ms     +++|          STD    FN+3
01517  M01S01042.1ms     +++|          RJM    VFN         VALIDATE FILE NAME
01518  M01S01043.1ms     +++|          NJN    CFE1        IF NO FILE NAME ERROR
Line S01044 Modification History
M01 (Added by) 1ms
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01519  M02S01044.v23l617 ---|          ERROR  FLN         *ILLEGAL FILE NAME*
01520  M01S00010.v23l617 +++|          ERROR  FLN         *INCORRECT FILE NAME*
01521  M01S01045.1ms     +++|
01522  M01S01046.1ms     +++| CFE1     LDN    6           RETURN ON NFL INCREASE/LOCAL FILE LIMIT
01523  M01S01047.1ms     +++|          STM    CFO-1
Line S01048 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01524  M02S01048.ns22000 ---|          LDC    2000        PREVENT MS TRACK ASSIGNMENT
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  M01S01049.1ms     +++|          STD    FS
01552  M01S01050.1ms     +++|          EXECUTE  0BF,CFO
01553  M01S01051.1ms     +++|          UJN    CFE2        CHECK RETURN STATUS
01554  M01S01052.1ms     +++|
01555  M01S01053.1ms     +++|*         ADVANCE EXIT IF FNT ENTRY FOUND.
01556  M01S01054.1ms     +++|
01557  M01S01055.1ms     +++|          LDN    0
01558  M01S01056.1ms     +++|          STD    FA
01559  M01S01057.1ms     +++|          ERROR  FSQ         *I/O SEQUENCE ERROR*
01560  M01S00130.ns22000 +++|
Line S00131 Modification History
M01 (Added by) ns22000
M02 (Updated by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
01561  M02S00131.1ms16   ---| CFE1.2   ERROR  LNJ         *ACCESS LEVEL NOT VALID FOR JOB.*
01562  M01S00011.1ms16   +++| CFE1.2   ERROR  LNF         *FILE ACCESS LEVEL CONFLICT.*
01563  M01S01058.1ms     +++|
01564  M01S01059.1ms     +++| CFE2     ZJN    CFE4        IF FNT ENTRY CREATED
01565  M01S01060.1ms     +++|          LMN    4
01566  M01S01061.1ms     +++|          NJN    CFE3        IF NOT LOCAL FILE LIMIT
01567  M01S01062.1ms     +++|          ERROR  LFL         *LOCAL FILE LIMIT*
01568  M01S01063.1ms     +++|
01569  M01S01064.1ms     +++| CFE3     LCN    PTLR-NFIR   SET NFL INCREASE PENDING REASON CODE
01570  M01S01065.1ms     +++|          RAM    ERSA
01571  M01S01066.1ms     +++|          LJM    ERS1        ENTER RECALL STACK
01572  M01S01067.1ms     +++|
01573  M01S01068.1ms     +++|*         SET FNT POINTER IN FET.  SET FST NOT BUSY.
01574  M01S01069.1ms     +++|*         ENTER RECALL STACK TO REISSUE *CIO* CALL TO *CPUCIO*.
01575  M01S01070.1ms     +++|
01576  M01S01071.1ms     +++| CFE4     CFET   4           SET FNT POINTER IN FET
01577  M01S01072.1ms     +++|          CRD    CM
01578  M01S01073.1ms     +++|          LDD    FA
01579  M01S01074.1ms     +++|          STD    CM
01580  M01S01075.1ms     +++|          CFET   4
01581  M01S01076.1ms     +++|          CWD    CM
01582  M01S01077.1ms     +++|          AOD    FS+4        SET FST NOT BUSY
01583  M01S01078.1ms     +++|          NFA    FA,R
01584  M01S01079.1ms     +++|          ADN    FSTL
01585  M01S01080.1ms     +++|          CWD    FS
01586  M01S01081.1ms     +++|          LDD    FS          CHECK FOR TERMINAL EQUIPMENT
01587  M01S01082.1ms     +++|          LPC    777
01588  M01S01083.1ms     +++|          ZJN    CFE5        IF NO EQUIPMENT ASSIGNED
01589  M01S01084.1ms     +++|          LCN    2           SET FOR NO DROP OF PP ON *RPPM*
01590  M01S01085.1ms     +++|          RAM    CRCA
01591  M01S01086.1ms     +++|          LDN    0           SET TO ISSUE *DPPM*
01592  M01S01087.1ms     +++|          STM    CRCB
01593  M01S01088.1ms     +++| CFE5     LJM    CRC2        RESTART *CPUCIO*
01594  M01S01089.1ms     +++|
01595  M01S01090.1ms     +++|
01596  M01S01091.1ms     +++| CFO      EQU    *+1         *0BF* LOAD ADDRESS FOR *CFE*
01597  M01S01092.1ms     +++|          ERRNG  BFMS-CFO-ZBFL         CHECK *0BF* LENGTH
01598  M01S01093.1ms     +++| PRS      SPACE  4,45
01599  M01S01094.1ms     +++|**        PRS - PRESET.
01600  M01S01095.1ms     +++|*
01601  M01S01096.1ms     +++|*         ENTRY  (IR - IR+4) = *1MS* CALL.
01602  M01S01097.1ms     +++|*                (MB - MB+4) = MESSAGE BUFFER PARAMETERS.
01603  M01S01098.1ms     +++|*                (MB1 - MB1+4) = MESSAGE BUFFER + 1 PARAMETERS.
01604  M01S01099.1ms     +++|*                (MB2 - MB2+4) = MESSAGE BUFFER + 2 PARAMETERS.
01605  M01S01100.1ms     +++|*
01606  M01S01101.1ms     +++|*         EXIT   (FA) = RELATIVE ADDRESS OF FNT ENTRY.
01607  M01S01102.1ms     +++|*                     = 0 IF NO FNT ENTRY.
01608  M01S01103.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION CODE.
01609  M01S01104.1ms     +++|*                (FO) = SPECIAL FET OPTIONS.
01610  M01S01105.1ms     +++|*                (RC) = *DRCM* MONITOR FUNCTION CODE.
01611  M01S01106.1ms     +++|*                (BS - BS+4) = FILE NAME AND EXTERNAL REQUEST.
01612  M01S01107.1ms     +++|*                (DP - DP+4) = (FET+6) IF RANDOM FILE.
01613  M01S01108.1ms     +++|*                (FS - FS+4) = FST ENTRY.
01614  M01S01109.1ms     +++|*                (FT - FT+1) = FIRST.
01615  M01S01110.1ms     +++|*                (IN - IN+1) = IN.
01616  M01S01111.1ms     +++|*                (LM - LM+1) = LIMIT.
01617  M01S01112.1ms     +++|*                (OT - OT+1) = OUT.
01618  M01S01113.1ms     +++|*                (PC) = 0.
01619  M01S01114.1ms     +++|*                (CFNB) = UPPER STATUS BITS OF FST ENTRY.
01620  M01S01115.1ms     +++|*                (ERCF) = ERROR CODE AND FUNCTION FLAGS.
01621  M01S01116.1ms     +++|*                (FACF) = FILE ACCESS FLAGS.
01622  M01S01117.1ms     +++|*                (FETL) = FET LENGTH - 5.
01623  M01S01118.1ms     +++|*                (FNTA) = RELATIVE ADDRESS OF FNT ENTRY, IF NONZERO.
01624  M01S01119.1ms     +++|*                (ICFC) = INTERNAL *CIO* FUNCTION CODE.
01625  M01S01120.1ms     +++|*                (LVXC) = LEVEL NUMBER.
01626  M01S01121.1ms     +++|*                (MSFF) = MASS STORAGE FILE, IF ZERO.
01627  M01S01122.1ms     +++|*                (PMFF) = DIRECT ACCESS PERMANENT FILE, IF NONZERO.
01628  M01S01123.1ms     +++|*                (RCRF) = RECALL REASON CODE AND RESTART FLAGS.
01629  M01S01124.1ms     +++|*                TO *CFE* IF FNT ENTRY TO BE CREATED.
01630  M01S01125.1ms     +++|*                TO *CFN* IF WRITE OF NON-MASS STORAGE FILE.
01631  M01S00022.241l630 +++|*                TO *CFN2* IF ERROR CODE NOT CORRECT.
01632  M01S01126.1ms     +++|*                TO *DRF* TO DROP FILE.
01633  M01S00157.ns2090  +++|*                TO *ERS1* IF TO WAIT FOR WRITE BUFFER FLUSH.
01634  M01S01127.1ms     +++|*                TO *TMS* IF SKIP, OPEN, CLOSE, READ, OR WRITE
01635  M01S01128.1ms     +++|*                   FUNCTION PROCESSOR TO BE LOADED.
01636  M01S01129.1ms     +++|*                TO *UFS* IF READ OF NULL FILE.
01637  M01S01130.1ms     +++|*
01638  M01S01131.1ms     +++|*         ERROR  TO *ERR* IF PRESET ERROR DETECTED.
01639  M01S01132.1ms     +++|*
01640  M01S01133.1ms     +++|*         USES   EN, CM - CM+4, T1 - T5.
01641  M01S01134.1ms     +++|*
Line S01135 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
01642  M02S01135.ns2090  ---|*         CALLS  /SRP/EVF, EXR, STI.
Line S00158 Modification History
M01 (Added by) ns2090
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01643  M02S00158.241l630 ---|*         CALLS  /SRP/EVF, EXR, FWB, STI.
01644  M01S00023.241l630 +++|*         CALLS  CHG, /SRP/EVF, EXR, FWB, STI.
01645  M01S01136.1ms     +++|*
Line S01137 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01646  M02S01137.ns22000 ---|*         MACROS CFET, ERROR, MONITOR, NFA.
01647  M01S00132.ns22000 +++|*         MACROS CFET, ERROR, MONITOR, NFA, SFA.
01648  M01S01138.1ms     +++|
01649  M01S01139.1ms     +++|
01650  M01S01140.1ms     +++| PRS      BSS    0           ENTRY
01651  M01S01141.1ms     +++|          LDD    MA          RESET FET PARAMETERS IN MESSAGE BUFFER
01652  M01S01142.1ms     +++|          CWD    MB          SAVE MESSAGE BUFFER PARAMETERS
01653  M01S01143.1ms     +++|          CRM    RCRF,ON
01654  M01S01144.1ms     +++|          ADN    1
01655  M01S01145.1ms     +++|          CWD    MB1
01656  M01S01146.1ms     +++|          ADN    1
01657  M01S01147.1ms     +++|          CWD    MB2
01658  M01S01148.1ms     +++|          LDD    MB+3        GET EXTERNAL *CIO* FUNCTION CODE
01659  M01S01149.1ms     +++|          SHN    1           REPOSITION EXTERNAL *CIO* CODE
01660  M01S01150.1ms     +++|          STD    FO
01661  M01S01151.1ms     +++|          LDD    MB+4        GET INTERNAL *CIO* FUNCTION CODE
01662  M01S01152.1ms     +++|          STD    FC
01663  M01S01153.1ms     +++|          LDN    ZERL
01664  M01S01154.1ms     +++|          CRD    FS
01665  M01S01155.1ms     +++|          LDM    FNTA        GET FNT RELATIVE ADDRESS
01666  M01S01156.1ms     +++|          STD    FA
01667  M01S01157.1ms     +++|          ZJN    PRS1        IF NO FNT ENTRY
01668  M01S01158.1ms     +++|          NFA    FA,R        READ FNT ENTRY
01669  M01S01159.1ms     +++|          CRD    DP
01670  M01S01160.1ms     +++|          ADN    FSTL        READ FST ENTRY
01671  M01S01161.1ms     +++|          CRD    FS
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  M01S01162.1ms     +++|          LDD    FS+4        SAVE UPPER STATUS BITS
01678  M01S01163.1ms     +++|          SHN    -6
01679  M01S01164.1ms     +++|          STM    CFNB
01680  M01S01165.1ms     +++|          LDD    DP+4        SAVE FILE TYPE FLAG
01681  M01S01166.1ms     +++|          SHN    -6
01682  M01S01167.1ms     +++|          LMN    PMFT
01683  M01S01168.1ms     +++|          STM    PMFF
01684  M01S01169.1ms     +++|          LDD    DP+3        SAVE FILE ACCESS FLAGS
01685  M01S01170.1ms     +++|          LPN    77
01686  M01S01171.1ms     +++|          STM    FACF
01687  M01S01172.1ms     +++| PRS1     LDN    DRCM        SET DRIVER RECALL MONITOR FUNCTION
01688  M01S01173.1ms     +++|          STD    RC
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  M01S01174.1ms     +++|          LDN    0
01701  M01S01175.1ms     +++|          STD    PC          CLEAR PRU COUNT
01702  M01S01176.1ms     +++|          STD    CM+1        CLEAR *VFPM* ERROR FLAG
01703  M01S01177.1ms     +++|          LDM    ERCF        GET ERROR CODE
01704  M01S01178.1ms     +++|          LPN    77
01705  M01S01179.1ms     +++|          STD    EN          SAVE ERROR CODE
01706  M01S01180.1ms     +++|          SBN    /CIOERR/ARG
Line S01181 Modification History
M01 (Added by) 1ms
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01707  M02S01181.v23l617 ---|          ZJN    PRS3        IF ILLEGAL FET ADDRESS
01708  M01S00011.v23l617 +++|          ZJN    PRS3        IF INCORRECT FET ADDRESS
01709  M01S01182.1ms     +++|          SBN    /CIOERR/MEC-/CIOERR/ARG
01710  M01S01183.1ms     +++|          MJN    PRS2        IF ERROR CODE VALID
Line S01184 Modification History
M01 (Added by) 1ms
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01711  M02S01184.241l630 ---|          MONITOR HNGM       HANG PP
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  M01S01185.1ms     +++|
01716  M01S01186.1ms     +++|*         REVALIDATE FET PARAMETERS IF RESTARTED FROM RECALL STACK.
01717  M01S01187.1ms     +++|
01718  M01S01188.1ms     +++| PRS2     LDM    RCRF        GET RECALL STACK FLAG
01719  M01S01189.1ms     +++|          SHN    21-13
01720  M01S01190.1ms     +++|          PJN    PRS4        IF FET PARAMETERS PASSED IN CALL
01721  M01S01191.1ms     +++|          LDD    FC          GET VALIDATION FLAGS
01722  M01S01192.1ms     +++|          LPN    3
Line S01193 Modification History
M01 (Added by) 1ms
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01723  M02S01193.271l716 ---|          STD    CM+4
01724  M01S00001.271l716 +++|          STD    CM+1
01725  M01S01194.1ms     +++|          LDD    IR+3        SET FET ADDRESS
01726  M01S01195.1ms     +++|          LPN    77
Line S01196 Modification History
M01 (Added by) 1ms
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01727  M02S01196.271l716 ---|          STD    CM+1
01728  M01S00002.271l716 +++|          STD    CM+3
01729  M01S01197.1ms     +++|          LDD    IR+4
Line S01198 Modification History
M01 (Added by) 1ms
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01730  M02S01198.271l716 ---|          STD    CM+2
01731  M01S00003.271l716 +++|          STD    CM+4
01732  M01S01199.1ms     +++|          MONITOR  VFPM
01733  M01S01200.1ms     +++|          LDD    CM+1
01734  M01S01201.1ms     +++|          LMN    1
Line S01202 Modification History
M01 (Added by) 1ms
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01735  M02S01202.v23l617 ---|          NJN    PRS4        IF NOT ILLEGAL FET ADDRESS
01736  M01S00012.v23l617 +++|          NJN    PRS4        IF NOT INCORRECT FET ADDRESS
01737  M01S01203.1ms     +++| PRS3     ERROR  ARG         *FET ADDRESS OUT OF RANGE*
01738  M01S01204.1ms     +++|
01739  M01S01205.1ms     +++| PRS4     CFET               GET FILE NAME AND EXTERNAL FUNCTION CODE
01740  M01S01206.1ms     +++|          CRD    BS
01741  M01S01207.1ms     +++|          ADN    1
01742  M01S01208.1ms     +++|          CRD    T1          GET SPECIAL OPTIONS
01743  M01S01209.1ms     +++|          LDD    FC
01744  M01S01210.1ms     +++|          NJN    PRS5        IF INTERNAL CODE SET
01745  M01S01211.1ms     +++|          LDD    BS+3        CLEAR ERROR FIELD
01746  M01S01212.1ms     +++|          SCN    3
01747  M01S01213.1ms     +++|          STD    BS+3
01748  M01S01214.1ms     +++|          LDD    BS+4
01749  M01S01215.1ms     +++|          STD    FO
01750  M01S01216.1ms     +++|          UJN    PRS6        SET EXTERNAL CODE
01751  M01S01217.1ms     +++|
01752  M01S01218.1ms     +++| PRS5     LDD    BS+3        CLEAR LEVEL NUMBER FROM FET
01753  M01S01219.1ms     +++|          SCN    77
01754  M01S01220.1ms     +++|          STD    BS+3
01755  M01S01221.1ms     +++|          LDM    LVXC        RESET LEVEL NUMBER IN FET
01756  M01S01222.1ms     +++|          SHN    -6
01757  M01S01223.1ms     +++|          LPN    74
01758  M01S01224.1ms     +++|          RAD    BS+3
01759  M01S01225.1ms     +++| PRS6     LDD    FO          GET EXTERNAL *CIO* CODE
01760  M01S01226.1ms     +++|          LPC    776         CLEAR COMPLETE BIT AND ERROR FIELD
01761  M01S01227.1ms     +++|          STD    BS+4
01762  M01S01228.1ms     +++|
01763  M01S01229.1ms     +++|*         GET BUFFER POINTERS.
01764  M01S01230.1ms     +++|
01765  M01S01231.1ms     +++|          LDD    MA
01766  M01S01232.1ms     +++|          ADN    2
01767  M01S01233.1ms     +++|          CRD    IN-1        *IN* AND *OUT*
01768  M01S01234.1ms     +++|          ADN    1
01769  M01S01235.1ms     +++|          CRD    FT-1        RANDOM FLAG, FET LENGTH, *FIRST*, *LIMIT*
01770  M01S01236.1ms     +++|          LDD    FT-1        GET FET LENGTH - 5
01771  M01S01237.1ms     +++|          LPN    77
01772  M01S01238.1ms     +++|          STM    FETL
01773  M01S01239.1ms     +++|          LDD    FT-1        GET RANDOM FLAG
01774  M01S01240.1ms     +++|          LPC    4000
01775  M01S01241.1ms     +++|          STD    FO
01776  M01S01242.1ms     +++|          ZJN    PRS7        IF NOT RANDOM FILE
01777  M01S01243.1ms     +++|          LDD    FC          CHECK FUNCTION CODE
01778  M01S01244.1ms     +++|          SHN    -7
01779  M01S01245.1ms     +++|          LPN    7
01780  M01S01246.1ms     +++|          NJN    PRS7        IF NOT READ/WRITE
01781  M01S01247.1ms     +++|          LDM    RCRF        CHECK DATA TRANSFERRED FLAG
01782  M01S01248.1ms     +++|          LPC    100
01783  M01S01249.1ms     +++|          NJN    PRS7        IF PRIOR DATA TRANSFER
01784  M01S01250.1ms     +++|          CFET   6           READ RANDOM REQUEST WORD
01785  M01S01251.1ms     +++|          CRD    DP
01786  M01S01252.1ms     +++|          LDD    DP+3        CHECK RANDOM REQUEST ADDRESS
01787  M01S01253.1ms     +++|          ADD    DP+4
01788  M01S01254.1ms     +++|          ZJN    PRS7        IF RANDOM REQUEST ADDRESS NOT SET
01789  M01S01255.1ms     +++|          AOM    TMSA        SET RANDOM FUNCTION FLAG
01790  M01S01256.1ms     +++| PRS7     LDD    T1+1        SET FET OPTIONS
01791  M01S01257.1ms     +++|          LPC    3777
01792  M01S01258.1ms     +++|          RAD    FO
01793  M01S01259.1ms     +++|          LDM    FNTA        RESET FNT RELATIVE ADDRESS
01794  M01S01260.1ms     +++|          STD    FA
01795  M01S01261.1ms     +++|          LDD    EN          CHECK FOR ERROR
01796  M01S01262.1ms     +++|          ZJN    PRS8        IF NO ERROR
01797  M01S01263.1ms     +++|          LJM    ERR         PROCESS ERROR
01798  M01S01264.1ms     +++|
01799  M01S01265.1ms     +++| PRS8     LDD    CM+1        CHECK *VFPM* REPLY
01800  M01S01266.1ms     +++|          ZJN    PRS9        IF NO ERROR
01801  M01S01267.1ms     +++|          ERROR  BUF         *BUFFER ARGUMENT ERROR*
01802  M01S01268.1ms     +++|
01803  M01S01269.1ms     +++| PRS9     LDD    FA
01804  M01S01270.1ms     +++|          NJN    PRS10       IF FNT ENTRY PRESENT
01805  M01S01271.1ms     +++|          LDM    ERCF        CHECK IF TO CREATE FNT ENTRY
01806  M01S01272.1ms     +++|          SHN    21-6
01807  M01S01273.1ms     +++|          PJN    PRS10       IF NOT TO CREATE FNT ENTRY
01808  M01S01274.1ms     +++|          LJM    CFE         CREATE FNT ENTRY
01809  M01S01275.1ms     +++|
01810  M01S01276.1ms     +++| PRS10    LDD    FS          CHECK FOR MASS STORAGE
Line S01277 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01811  M02S01277.ns22000 ---|          LPN    77
01812  M01S01278.1ms     +++|          ZJN    PRS11       IF NO EQUIPMENT ASSIGNED
Line S01279 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01813  M02S01279.ns22000 ---|          ADM    ESTS        READ EST ENTRY
01814  M01S00149.ns22000 +++|          SFA    EST         READ EST ENTRY
01815  M01S00150.ns22000 +++|          ADK    EQDE
01816  M01S01280.1ms     +++|          CRD    CM
01817  M01S01281.1ms     +++|          LDD    CM
01818  M01S01282.1ms     +++|          SHN    -13
01819  M01S01283.1ms     +++|          LMN    1
01820  M01S01284.1ms     +++| PRS11    STD    T1          SAVE MASS STORAGE FLAG
01821  M01S01285.1ms     +++|          STM    MSFF
01822  M01S01286.1ms     +++|          LDD    FC
01823  M01S01287.1ms     +++|          SHN    -6
01824  M01S01288.1ms     +++|          LPN    17
01825  M01S01289.1ms     +++|          LMN    /CIO/RET
01826  M01S01290.1ms     +++|          ZJN    PRS12       IF RETURN/UNLOAD FUNCTION
01827  M01S01291.1ms     +++|          LMN    /CIO/EVI&/CIO/RET
01828  M01S01292.1ms     +++|          NJN    PRS13       IF NOT EVICT FUNCTION
01829  M01S01293.1ms     +++|          LDD    T1
01830  M01S01294.1ms     +++|          NJN    PRS12       IF NOT MASS STORAGE FILE
01831  M01S01295.1ms     +++|          LDD    FA
01832  M01S01296.1ms     +++|          ZJN    PRS12       IF NO FNT ENTRY
01833  M01S01297.1ms     +++|          LDC    1L4+SRP     LOAD SPECIAL PROCESSOR OVERLAY
01834  M01S01298.1ms     +++|          RJM    EXR
01835  M01S01299.1ms     +++|          RJM    /SRP/EVF    EVICT MASS STORAGE FILE
01836  M01S01300.1ms     +++| PRS12    LDD    FC          GET UNLOAD FLAG FOR *DRF*
01837  M01S01301.1ms     +++|          SHN    -12
01838  M01S01302.1ms     +++|          LPN    1
01839  M01S01303.1ms     +++|          LJM    DRF         DROP FILE
01840  M01S01304.1ms     +++|
01841  M01S01305.1ms     +++|
01842  M01S01306.1ms     +++| SRPO     EQU    *+5         SPECIAL REQUEST PROCESSOR ORIGIN
01843  M01S01307.1ms     +++|
01844  M01S01308.1ms     +++|
01845  M01S01309.1ms     +++| PRS13    LDD    T1          GET MASS STORAGE FLAG
01846  M01S01310.1ms     +++|          ADM    PMFF        CHECK FILE TYPE
01847  M01S01311.1ms     +++|          NJN    PRS14       IF NOT DIRECT ACCESS PERMANENT FILE
Line S01312 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
01848  M02S01312.ns2090  ---|          LDM    FACF        CHECK FILE ACCESS MODE
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 (Added by) 1ms
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01863  M02S01313.ns21000 ---|          LPN    30
01864  M01S00001.ns21000 +++|          LPN    20
01865  M01S01314.1ms     +++|          ZJN    PRS14       IF NOT M, A, RM, OR RA MODE
01866  M01S01315.1ms     +++|          RJM    STI         SET TRACK INTERLOCK
01867  M01S01316.1ms     +++|
01868  M01S01317.1ms     +++|*         DETERMINE FUNCTION PROCESSOR.
01869  M01S01318.1ms     +++|
01870  M01S01319.1ms     +++| PRS14    LDD    FC
01871  M01S01320.1ms     +++|          SHN    -6
01872  M01S01321.1ms     +++|          LPN    17
01873  M01S01322.1ms     +++|          NJN    PRS17       IF NOT READ
01874  M01S01323.1ms     +++|          LDD    FS+2        CHECK FOR NULL READ
01875  M01S01324.1ms     +++|          ZJN    PRS15       IF NO CURRENT TRACK
01876  M01S01325.1ms     +++|          LCN    WMS-RMS     LOAD READ OVERLAY
01877  M01S01326.1ms     +++|          UJN    PRS18       SET READ OVERLAY NAME
01878  M01S01327.1ms     +++|
01879  M01S01328.1ms     +++|*         PROCESS READ OF NULL FILE.
01880  M01S01329.1ms     +++|
01881  M01S01330.1ms     +++| PRS15    LDN    /CIO/EOI    SET EOI FST STATUS
01882  M01S01331.1ms     +++|          STD    FS+4
01883  M01S01332.1ms     +++|          LDD    FO
01884  M01S01333.1ms     +++|          SHN    21-13
01885  M01S01334.1ms     +++|          PJN    PRS16       IF NOT RANDOM FILE
01886  M01S01335.1ms     +++|          LDN    ZERL        SET RANDOM INDEX = 1
01887  M01S01336.1ms     +++|          CRD    CM
01888  M01S01337.1ms     +++|          LDD    HN
01889  M01S01338.1ms     +++|          STD    CM+2
01890  M01S01339.1ms     +++|          CFET   6
01891  M01S01340.1ms     +++|          CWD    CM
01892  M01S01341.1ms     +++| PRS16    LJM    UFS         UPDATE FET STATUS
01893  M01S01342.1ms     +++|
01894  M01S01343.1ms     +++|*         PROCESS WRITE OF FILE ASSIGNED TO NULL EQUIPMENT.
01895  M01S01344.1ms     +++|
01896  M01S01345.1ms     +++| PRS17    LMN    /CIO/WTF
01897  M01S01346.1ms     +++|          NJN    PRS19       IF NOT WRITE
Line S01347 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
01898  M02S01347.ns2090  ---|          LDD    T1
01899  M01S00173.ns2090  +++|          LDM    MSFF
01900  M01S01348.1ms     +++|          ZJN    PRS18       IF MASS STORAGE FILE
01901  M01S01349.1ms     +++|          LDN    0           SET OUT = IN
01902  M01S01350.1ms     +++|          STD    IN-1
01903  M01S01351.1ms     +++|          STD    IN-2
01904  M01S01352.1ms     +++|          STD    IN-3
01905  M01S01353.1ms     +++|          CFET   3
01906  M01S01354.1ms     +++|          CWD    IN-3
01907  M01S01355.1ms     +++|          LJM    CFN         COMPLETE FUNCTION
01908  M01S01356.1ms     +++|
01909  M01S01357.1ms     +++| PRS18    ADC    WMS         SET WRITE OVERLAY NAME
01910  M01S01358.1ms     +++|          UJN    PRS20       EXECUTE FUNCTION PROCESSOR
01911  M01S01359.1ms     +++|
01912  M01S01360.1ms     +++| PRS19    LMN    /CIO/CLO&/CIO/WTF
Line S01361 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01913  M02S01361.ns22000 ---|          NJN    PRS21       IF NOT CLOSE
01914  M01S00151.ns22000 +++|          NJN    PRS22       IF NOT CLOSE
01915  M01S01362.1ms     +++|          LDC    CMS         SET CLOSE OVERLAY NAME
01916  M01S01363.1ms     +++| PRS20    STM    TMSB
01917  M01S01364.1ms     +++| PRS21    LJM    TMS         LOAD AND EXECUTE FUNCTION PROCESSOR
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  M01S01365.1ms     +++| STI      SPACE  4,15
01924  M01S01366.1ms     +++|**        STI - SET TRACK INTERLOCK.
01925  M01S01367.1ms     +++|*
01926  M01S01368.1ms     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
01927  M01S01369.1ms     +++|*
01928  M01S01370.1ms     +++|*         EXIT   (A) = 0.
01929  M01S01371.1ms     +++|*
01930  M01S01372.1ms     +++|*         ERROR  TO *ERS1* IF INTERLOCK REJECT.
01931  M01S01373.1ms     +++|*                TO *ERR* IF ERROR FLAG SET.
01932  M01S01374.1ms     +++|*
01933  M01S01375.1ms     +++|*         USES   CM - CM+4.
01934  M01S01376.1ms     +++|*
01935  M01S01377.1ms     +++|*         MACROS ERROR, MONITOR.
01936  M01S01378.1ms     +++|
01937  M01S01379.1ms     +++|
01938  M01S01380.1ms     +++| STI2     LDC    2000        SET TRACK INTERLOCK FLAG
01939  M01S01381.1ms     +++|          RAM    RCRF
01940  M01S01382.1ms     +++|
01941  M01S01383.1ms     +++| STI      SUBR               ENTRY/EXIT
01942  M01S01384.1ms     +++|          LDM    RCRF        CHECK TRACK INTERLOCK FLAG
01943  M01S01385.1ms     +++|          SHN    21-12
01944  M01S01386.1ms     +++|          MJN    STIX        IF TRACK INTERLOCK ALREADY SET
01945  M01S01387.1ms     +++|          LDD    FS          SET EQUIPMENT
01946  M01S00003.253l688 +++|          ADD    TH          IMMEDIATE RETURN IF INACCESSIBLE DEVICE
Line S01388 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01947  M02S01388.ns22000 ---|          LPN    77
01948  M01S01389.1ms     +++|          STD    CM+1
01949  M01S01390.1ms     +++|          LDD    FS+1        SET FIRST TRACK
01950  M01S01391.1ms     +++|          STD    CM+2
01951  M01S01392.1ms     +++|          LDN    STIS
01952  M01S01393.1ms     +++|          STD    CM+3
01953  M01S01394.1ms     +++|          MONITOR STBM       SET TRACK INTERLOCK
01954  M01S01395.1ms     +++|          LDD    CM+1
Line S01396 Modification History
M01 (Added by) 1ms
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01955  M02S01396.253l688 ---|          ZJN    STI2        IF INTERLOCK SET
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  M01S01397.1ms     +++|          LDD    CP
01965  M01S01398.1ms     +++|          ADN    STSW
01966  M01S01399.1ms     +++|          CRD    CM
01967  M01S01400.1ms     +++|          LDD    CM+1
01968  M01S01401.1ms     +++|          SBN    SPET
01969  M01S01402.1ms     +++|          MJN    STI1        IF ERROR FLAG NOT ABOVE THRESHOLD
01970  M01S01403.1ms     +++|          ERROR  EFT         *ERROR FLAG TERMINATION*
01971  M01S01404.1ms     +++|
01972  M01S01405.1ms     +++| STI1     LDN    TIRR-PTLR   SET TRACK INTERLOCK REJECT REASON CODE
01973  M01S01406.1ms     +++|          RAM    ERSA
Line S01407 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01974  M02S01407.ns22000 ---|          LDC    TIRT        SET TRACK INTERLOCK REJECT RECALL TIME
01975  M01S00157.ns22000 +++|          LDN    TIRT        SET TRACK INTERLOCK REJECT RECALL TIME
01976  M01S01408.1ms     +++|          STM    ERSB
01977  M01S01409.1ms     +++|          LJM    ERS1        ENTER RECALL STACK
01978  M01S01410.1ms     +++|          SPACE  4,10
01979  M01S01411.1ms     +++|**        COMMON DECKS.
01980  M01S01412.1ms     +++|
01981  M01S01413.1ms     +++|
01982  M01S01414.1ms     +++|*CALL     COMPVFN
01983  M01S01415.1ms     +++|          SPACE  4,10
01984  M01S01416.1ms     +++|          OVERFLOW  PPFW
01985  M01S01417.1ms     +++| SRP      OVERLAY (SPECIAL REQUEST PROCESSOR.),SRPO
01986  M01S01418.1ms     +++|          SPACE  4,10
01987  M01S01419.1ms     +++|**        DIRECT LOCATION ASSIGNMENTS.
01988  M01S01420.1ms     +++|
01989  M01S01421.1ms     +++|
01990  M01S01422.1ms     +++| QA       EQU    26          DEQUEUE GLOBAL FNT ENTRY INDICATOR
01991  M01S01423.1ms     +++| SRP      SPACE  4,10
01992  M01S01424.1ms     +++|**        SRP - SPECIAL REQUEST PROCESSOR.
01993  M01S01425.1ms     +++|
01994  M01S01426.1ms     +++|
01995  M01S01427.1ms     +++| SRP      SUBR               ENTRY/EXIT
01996  M01S01428.1ms     +++|          UJN    SRPX        RETURN
01997  M01S01429.1ms     +++| EVF      SPACE  4,15
01998  M01S01430.1ms     +++|**        EVF - EVICT MASS STORAGE FILE.
01999  M01S01431.1ms     +++|*
02000  M01S01432.1ms     +++|*         ENTRY  (FA) = RELATIVE ADDRESS OF FNT ENTRY IN NFL.
02001  M01S01433.1ms     +++|*                (DP - DP+4) = LOCAL FNT ENTRY.
02002  M01S01434.1ms     +++|*                (FS - FS+4) = LOCAL FST ENTRY.
02003  M01S01435.1ms     +++|*
02004  M01S01436.1ms     +++|*         EXIT   (FS - FS+4) = UPDATED FST ENTRY.
02005  M01S01437.1ms     +++|*                TO *RRF* IF FILE SUCCESSFULLY EVICTED.
02006  M01S00027.241l630 +++|*                TO *RRF* IF ERROR CLEARING GLOBAL QUEUE ENTRY.
02007  M01S00117.242l642 +++|*                TO *CDA*, IF ERROR FROM *0DQ*.
02008  M01S01438.1ms     +++|*
02009  M01S01439.1ms     +++|*         USES   T1, T5, T6, T7, CM+1 - CM+3.
02010  M01S01440.1ms     +++|*
Line S01441 Modification History
M01 (Added by) 1ms
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02011  M02S01441.241l630 ---|*         CALLS  HNG, MSR, WEI, *0DQ*.
02012  M01S00028.241l630 +++|*         CALLS  CHG, MSR, WEI, *0DQ*.
02013  M01S01442.1ms     +++|*
02014  M01S01443.1ms     +++|*         MACROS ENDMS, EXECUTE, MONITOR, NFA, SETMS.
02015  M01S01444.1ms     +++|
02016  M01S01445.1ms     +++|
02017  M01S01446.1ms     +++| EVF      SUBR               ENTRY/EXIT
02018  M01S01447.1ms     +++|          LDD    DP+3        CHECK WRITE LOCKOUT
02019  M01S01448.1ms     +++|          LPN    1
02020  M01S01449.1ms     +++|          NJN    EVFX        IF WRITE LOCKOUT SET
02021  M01S01450.1ms     +++|          LDD    FS+2        CHECK CURRENT TRACK
02022  M01S01451.1ms     +++|          ZJN    EVF1        IF FILE NOT USED
02023  M01S01452.1ms     +++|          LDD    DP+4        GET FILE TYPE
02024  M01S01453.1ms     +++|          SHN    -6
02025  M01S01454.1ms     +++|          STD    T1
02026  M01S01455.1ms     +++|          LDM    TFTY,T1     SET PROCESSOR ADDRESS
02027  M01S01456.1ms     +++|          ZJN    EVFX        IF NO PROCESSING FOR FILE TYPE
02028  M01S01457.1ms     +++|          STD    T1
02029  M01S01458.1ms     +++|          LJM    0,T1        JUMP TO PROCESSOR
02030  M01S01459.1ms     +++|
02031  M01S01460.1ms     +++| EVF1     LJM    RRF         RESET POINTERS
02032  M01S01461.1ms     +++|
02033  M01S01462.1ms     +++|*         EVICT QUEUED FILE.
02034  M01S01463.1ms     +++|
Line S01464 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02035  M02S01464.ns22000 ---| EVF2     LDD    FS          SET EQUIPMENT NUMBER
Line S00158 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02036  M02S00158.ns2358  ---| EVF2     LDD    FS          SET EST ORDINAL
Line S01465 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
M03 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02037  M03S01465.ns2358  ---|          LPC    777
Line S01466 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02038  M02S01466.ns2358  ---|          STM    DQLA-3
Line S01467 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02039  M02S01467.ns2358  ---|          LDD    FS+1        SET FIRST TRACK
Line S01468 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02040  M02S01468.ns2358  ---|          STM    DQLA-1
Line S01469 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02041  M02S01469.ns2358  ---|          LDN    0           INDICATE GLOBAL QUEUE TO BE SEARCHED
Line S01470 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02042  M02S01470.ns2358  ---|          STD    QA
Line S00118 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02043  M02S00118.ns2358  ---|          STM    DQLA-2
Line S01471 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02044  M02S01471.ns2358  ---|          EXECUTE  0DQ,DQLA  CLEAR GLOBAL ENTRY FOR QUEUED FILE
02045  M01S00023.ns2358  +++| EVF2     LDN    0           FORCE QFT SEARCH
02046  M01S00024.ns2358  +++|          STD    QA
Line S00025 Modification History
M01 (Added by) ns2358
M02 (Updated by) 1ms7
Seq #  *Modification Id* Act 
----------------------------+
02047  M02S00025.1ms7    ---|          STM    DQLA-1      SELECT RELEASE DISK SPACE
Line S00026 Modification History
M01 (Added by) ns2358
M02 (Updated by) 1ms7
Seq #  *Modification Id* Act 
----------------------------+
02048  M02S00026.1ms7    ---|          EXECUTE  0DQ,DQLA
Line S01472 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
M03 (Updated by) 1ms7
Seq #  *Modification Id* Act 
----------------------------+
02049  M03S01472.1ms7    ---|          LDD    QA
Line S00119 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms7
Seq #  *Modification Id* Act 
----------------------------+
02050  M02S00119.1ms7    ---|          PJN    EVF2.1      IF NO ERROR
Line S00120 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms7
Seq #  *Modification Id* Act 
----------------------------+
02051  M02S00120.1ms7    ---|          RJM    CDA         CHECK DEVICE
Line S00121 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms7
Seq #  *Modification Id* Act 
----------------------------+
02052  M02S00121.1ms7    ---|
Line S00122 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms7
Seq #  *Modification Id* Act 
----------------------------+
02053  M02S00122.1ms7    ---| EVF2.1   LDD    QA
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
02057  M01S00002.1ms13   +++|          MJP    EVF5.0      IF DEVICE IS INACCESSIBLE
02058  M01S00004.1ms7    +++|          LDD    QA
02059  M01S01473.1ms     +++|          NJN    EVF3        IF GLOBAL ENTRY FOUND AND CLEARED
Line S01474 Modification History
M01 (Added by) 1ms
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02060  M02S01474.241l630 ---|          RJM    HNG         HANG PP
Line S00029 Modification History
M01 (Added by) 241l630
M02 (Updated by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
02061  M02S00029.1ms6    ---|          LDN    0           SET NO ERROR FLAG
02062  M01S00017.1ms6    +++|*         LDN    0           SET NO ERROR FLAG
02063  M01S00030.241l630 +++|          RJM    CHG         CONDITIONALLY HANG PP
02064  M01S00031.241l630 +++|          LJM    RRF         RESET RANDOM FET POINTERS
02065  M01S01475.1ms     +++|
02066  M01S01476.1ms     +++| EVF3     LDD    DP+4        CHANGE FILE TYPE IN LOCAL FNT
02067  M01S01477.1ms     +++|          LPN    77
02068  M01S01478.1ms     +++|          LMC    LOFT*100
02069  M01S01479.1ms     +++|          STD    DP+4
02070  M01S01480.1ms     +++|          NFA    FA,R        REWRITE LOCAL FNT ENTRY
02071  M01S01481.1ms     +++|          CWD    DP
02072  M01S01482.1ms     +++|
02073  M01S01483.1ms     +++|*         EVICT LOCAL FILE.
02074  M01S01484.1ms     +++|
02075  M01S01485.1ms     +++| EVF4     LDN    0           CLEAR SECTOR
02076  M01S01486.1ms     +++|          STD    T7
02077  M01S01487.1ms     +++|          STD    FS+3        CLEAR CURRENT SECTOR
02078  M01S01488.1ms     +++|          STD    FS+2        CLEAR CURRENT TRACK
02079  M01S01489.1ms     +++| EVF5     LDD    FS          SET EQUIPMENT
02080  M01S00012.253l688 +++|          ADD    TH          IMMEDIATE RETURN IF INACCESSIBLE DEVICE
Line S01490 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02081  M02S01490.242l642 ---|          LPC    777
02082  M01S01491.1ms     +++|          ADC    0           SET DEVICE CHECKPOINT
02083  M01S01492.1ms     +++|*         ADC    4000        (DIRECT ACCESS PERMANENT FILE)
02084  M01S01493.1ms     +++| EVFA     EQU    *-1
02085  M01S01494.1ms     +++|          STD    CM+1
02086  M01S01495.1ms     +++|          LDD    FS+1        SET FIRST TRACK
02087  M01S01496.1ms     +++|          LPC    3777
02088  M01S01497.1ms     +++|          STD    CM+2
02089  M01S01498.1ms     +++|          LDD    T7          SET SECTOR
02090  M01S01499.1ms     +++|          STD    CM+3
02091  M01S01500.1ms     +++|          MONITOR DTKM       DROP TRACKS
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 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
02098  M02S00019.1ms13   ---|          LDD    FS          SET EST ORDINAL
02099  M01S00003.1ms13   +++| EVF5.0   LDD    FS          SET EST ORDINAL
02100  M01S00020.253l688 +++|          STM    ERSD
02101  M01S00021.253l688 +++|          RJM    CDA         CHECK DEVICE ACCESSIBILITY
02102  M01S01501.1ms     +++|
02103  M01S01502.1ms     +++|*         INCREMENT PRU LIMIT FIELD IN CONTROL POINT AREA.
02104  M01S01503.1ms     +++|*         ACTUAL COUNT OF SECTORS RETURNED VIA DTKM IS IN CM+3 - CM+4
02105  M01S01504.1ms     +++|
Line S01505 Modification History
M01 (Added by) 1ms
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02106  M02S01505.253l688 ---|          LDD    CM+3        MOVE SECTOR COUNT TO RESIDENT CIO BUFFER
02107  M01S00022.253l688 +++| EVF5.1   LDD    CM+3        MOVE SECTOR COUNT TO RESIDENT CIO BUFFER
02108  M01S01506.1ms     +++|          STM    CFNJ
02109  M01S01507.1ms     +++|          LDD    CM+4
02110  M01S01508.1ms     +++|          STM    CFNJ+1
02111  M01S01509.1ms     +++|          LDN    CICS        CHANGE TO INCREMENT FUNCTION
02112  M01S01510.1ms     +++|          STM    CFNI
02113  M01S01511.1ms     +++|          LJM    RRF         RESET POINTERS
02114  M01S01512.1ms     +++|
02115  M01S01513.1ms     +++|
Line S01514 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02116  M02S01514.ns2358  ---| DQLA     EQU    *+3         *0DQ* LOAD ADDRESS
02117  M01S00027.ns2358  +++| DQLA     EQU    *+1         *0DQ* LOAD ADDRESS
02118  M01S01515.1ms     +++|
02119  M01S01516.1ms     +++|          ERRNG  10000-DQLA-ZDQL  CHECK *0DQ* LENGTH
02120  M01S01517.1ms     +++|
02121  M01S01518.1ms     +++|
02122  M01S01519.1ms     +++|*         EVICT PERMANENT FILE OR PRIMARY FILE.
02123  M01S01520.1ms     +++|
02124  M01S01521.1ms     +++| EVF6     LDC    4000        SET DEVICE CHECKPOINT FLAG
02125  M01S01522.1ms     +++|          STM    EVFA
02126  M01S01523.1ms     +++| EVF7     LDD    FS+1        SET FIRST TRACK
02127  M01S01524.1ms     +++|          STD    T6
02128  M01S01525.1ms     +++|          STD    FS+2
02129  M01S01526.1ms     +++|          LDD    DP+3        CHECK WRITE RESTRICTIONS
02130  M01S01527.1ms     +++|          LPN    30
02131  M01S01528.1ms     +++|          ZJN    EVF8        IF NOT MODIFY OR APPEND MODE
02132  M01S01529.1ms     +++|          LJM    EVFX        RETURN
02133  M01S01530.1ms     +++|
Line S01531 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02134  M02S01531.ns22000 ---| EVF8     LDD    FS          SET EQUIPMENT NUMBER
02135  M01S00159.ns22000 +++| EVF8     LDD    FS          SET EST ORDINAL
Line S01532 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02136  M02S01532.ns22000 ---|          LPN    77
02137  M01S01533.1ms     +++|          STD    T5
02138  M01S01534.1ms     +++|          LDN    FSMS        SET FIRST SECTOR
02139  M01S01535.1ms     +++|          STD    FS+3
02140  M01S01536.1ms     +++|          STD    T7
Line S01537 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02141  M02S01537.242l642 ---|          SETMS  WRITE
02142  M01S00123.242l642 +++|          SETMS  IO
02143  M01S01538.1ms     +++|          RJM    WEI         WRITE EOI SECTOR
02144  M01S01539.1ms     +++|          PJN    EVF9        IF NO ERROR
Line S01540 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02145  M02S01540.242l642 ---|          RJM    MSR         PROCESS ERROR
02146  M01S00124.242l642 +++|          RJM    CDA         CHECK DEVICE
02147  M01S00125.242l642 +++|
02148  M01S01541.1ms     +++| EVF9     ENDMS              END MASS STORAGE OPERATION
02149  M01S01542.1ms     +++|          LDM    CFNB        SET FILE MODIFIED
02150  M01S01543.1ms     +++|          LPN    74
02151  M01S01544.1ms     +++|          LMN    03
02152  M01S01545.1ms     +++|          STM    CFNB
02153  M01S01546.1ms     +++|          LJM    EVF5        DROP TRACKS
02154  M01S01547.1ms     +++| TFTY     SPACE  4,10
02155  M01S01548.1ms     +++|**        TFTY - TABLE OF FILE TYPE PROCESSORS.
02156  M01S01549.1ms     +++|*         ENTRY  1 WORD.
02157  M01S01550.1ms     +++|*         INDEXED BY FILE TYPE.
02158  M01S01551.1ms     +++|*
02159  M01S01552.1ms     +++|*T,       12/  ADDR
Figure

011 ADDR

02160  M01S01553.1ms     +++|*         ADDR   ADDRESS OF FILE PROCESSOR
02161  M01S01554.1ms     +++|
02162  M01S01555.1ms     +++|
02163  M01S01556.1ms     +++| TFTY     INDEX
02164  M01S01557.1ms     +++|
02165  M01S01558.1ms     +++|          INDEX  PTFT,EVF7   PRIMARY
02166  M01S01559.1ms     +++|          INDEX  PMFT,EVF6   PERMANENT
02167  M01S01560.1ms     +++|          INDEX  LOFT,EVF4   LOCAL
02168  M01S01561.1ms     +++|          INDEX  QFFT,EVF2   QUEUED
02169  M01S01562.1ms     +++|
02170  M01S01563.1ms     +++|          INDEX  MXFT
02171  M01S01564.1ms     +++|          SPACE  4,10
02172  M01S01565.1ms     +++|**        COMMON DECKS.
02173  M01S01566.1ms     +++|
02174  M01S01567.1ms     +++|
02175  M01S01568.1ms     +++|*CALL     COMPWEI
02176  M01S01569.1ms     +++|          SPACE  4,10
02177  M01S01570.1ms     +++|          OVERFLOW  SRPO
02178  M01S01571.1ms     +++| RMS      OVERLAY (READ MASS STORAGE.),MSDO
02179  M01S01572.1ms     +++| RMS      SPACE  4,10
02180  M01S01573.1ms     +++|**        DIRECT LOCATION ASSIGNMENTS.
02181  M01S01574.1ms     +++|
02182  M01S01575.1ms     +++|
02183  M01S01576.1ms     +++| OP       EQU    16 - 17     *OUT* POINTER FOR RECALL CALCULATION
02184  M01S01577.1ms     +++| TC       EQU    35          TRACK COUNT
02185  M01S01578.1ms     +++| BP       EQU    37          BUFFER SPACE IN PRUS
02186  M01S01579.1ms     +++| RMS      SPACE  4,10
02187  M01S01580.1ms     +++|          ORG    *+2
02188  M01S01581.1ms     +++|          LJM    PRS         PRESET FOR READ
02189  M01S01582.1ms     +++| LSO      SPACE  4,10
02190  M01S01583.1ms     +++|**        LSO - LOAD SPECIAL READ OVERLAY.
02191  M01S01584.1ms     +++|*
02192  M01S01585.1ms     +++|*         EXIT   TO *RMS*.
02193  M01S01586.1ms     +++|*
02194  M01S01587.1ms     +++|*         CALLS  EXR.
02195  M01S01588.1ms     +++|
02196  M01S01589.1ms     +++|
02197  M01S01590.1ms     +++| LSO      BSS    0           ENTRY
02198  M01S01591.1ms     +++|          LDC    1L4+SMR     LOAD SPECIAL READ OVERLAY
02199  M01S01592.1ms     +++|          RJM    EXR
02200  M01S01593.1ms     +++|*         UJN    RMS         PROCESS READ
02201  M01S01594.1ms     +++| RMS      SPACE  4,15
02202  M01S01595.1ms     +++|**        RMS - READ MASS STORAGE MAIN ROUTINE.
02203  M01S01596.1ms     +++|*
02204  M01S01597.1ms     +++|*         EXIT   (T1) = 0 FOR CONTROL WORD INITIAL SECTOR LENGTH.
02205  M01S01598.1ms     +++|*                (T3) = 0 FOR CONTROL WORD HEADER USE.
02206  M01S01599.1ms     +++|*                (T5) = EQUIPMENT.
02207  M01S01600.1ms     +++|*                (T6) = CURRENT TRACK.
02208  M01S01601.1ms     +++|*                (T7) = CURRENT SECTOR.
02209  M01S01602.1ms     +++|*                TO *BRD* FOR NON-CONTROL WORD READ.
02210  M01S01603.1ms     +++|*                TO *CRD* FOR CONTROL WORD READ.
02211  M01S01604.1ms     +++|*
02212  M01S01605.1ms     +++|*         USES   CM - CM+4.
02213  M01S01606.1ms     +++|*
02214  M01S01607.1ms     +++|*         CALLS  SBA, SCA.
02215  M01S01608.1ms     +++|*
02216  M01S01609.1ms     +++|*         MACROS PAUSE, SETMS.
02217  M01S01610.1ms     +++|
02218  M01S01611.1ms     +++|
02219  M01S01612.1ms     +++| RMS      BSS    0           ENTRY
02220  M01S01613.1ms     +++|
02221  M01S01614.1ms     +++|*         INITIALIZE FOR MASS STORAGE DEVICE.
02222  M01S01615.1ms     +++|
Line S01616 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02223  M02S01616.ns22000 ---|          LDD    FS          SET EQUIPMENT NUMBER
02224  M01S00160.ns22000 +++|          LDD    FS          SET EST ORDINAL
Line S01617 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02225  M02S01617.ns22000 ---|          LPN    77
02226  M01S01618.1ms     +++|          STD    T5
02227  M01S01619.1ms     +++|          LDD    FS+2        SET TRACK
02228  M01S01620.1ms     +++|          STD    T6
02229  M01S01621.1ms     +++|          LDD    FS+3        SET SECTOR
02230  M01S01622.1ms     +++|          STD    T7
02231  M01S01623.1ms     +++|
02232  M01S01624.1ms     +++|*         INITIALIZE READ PARAMETERS.
02233  M01S01625.1ms     +++|
02234  M01S01626.1ms     +++|          LDN    0           SET IN POINTER WORD
02235  M01S01627.1ms     +++|          STD    DP
02236  M01S01628.1ms     +++|          STD    DP+1
02237  M01S01629.1ms     +++|          STD    DP+2
02238  M01S01630.1ms     +++|          STD    TC          INITIALIZE TRACK COUNT
02239  M01S01631.1ms     +++|          LDD    IN
02240  M01S01632.1ms     +++|          STD    DP+3
02241  M01S01633.1ms     +++|          LDD    IN+1
02242  M01S01634.1ms     +++|          STD    DP+4
02243  M01S01635.1ms     +++|
02244  M01S01636.1ms     +++|*         BEGIN READ.
02245  M01S01637.1ms     +++|
Line S01638 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02246  M02S01638.242l642 ---|          SETMS  READ        LOAD DRIVER AND READ EST
02247  M01S00126.242l642 +++|          SETMS  IO
02248  M01S01639.1ms     +++|          LDD    CM
02249  M01S01640.1ms     +++|          SHN    21-12
02250  M01S01641.1ms     +++|          PJN    RMS1        IF NOT SYSTEM DEVICE
02251  M01S01642.1ms     +++|          LDN    FNTP        READ FNT POINTER
02252  M01S01643.1ms     +++|          CRD    CM
02253  M01S01644.1ms     +++|          LDD    CM          READ SYSTEM FST ENTRY
02254  M01S01645.1ms     +++|          SHN    14
02255  M01S01646.1ms     +++|          ADD    CM+1
02256  M01S01647.1ms     +++|          ERRNZ  SYFO        CHECK SYSTEM FILE POSITION IN FNT
02257  M01S01648.1ms     +++|          ADN    FSTG
02258  M01S01649.1ms     +++|          CRD    CM
02259  M01S01650.1ms     +++|          LDD    CM+1        CHECK MATCHING FIRST TRACK
02260  M01S01651.1ms     +++|          LMD    FS+1
02261  M01S01652.1ms     +++|          NJN    RMS1        IF NOT SYSTEM FILE
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  M01S01653.1ms     +++|          SETMS  READSYS     SYSTEM SELECTION OF SYSTEM DEVICE
02270  M01S01654.1ms     +++| RMS1     LDC    RWPC        SET DEFAULT PRU COUNT
02271  M01S01655.1ms     +++|          ADD    T7          ADJUST BY CURRENT SECTOR
02272  M01S01656.1ms     +++| RMS2     STD    T1
02273  M01S01657.1ms     +++|          AOD    TC          INCREMENT TRACK COUNT
02274  M01S01658.1ms     +++|          LDD    T1
02275  M01S01659.1ms     +++|          SBM    SLM
02276  M01S01660.1ms     +++|          PJN    RMS2        IF MORE TRACKS TO PROCESS
02277  M01S01661.1ms     +++|          LDD    OT          SAVE *OUT*
02278  M01S01662.1ms     +++|          STD    OP
02279  M01S01663.1ms     +++|          LDD    OT+1
02280  M01S01664.1ms     +++|          STD    OP+1
02281  M01S01665.1ms     +++|          PAUSE  NE
02282  M01S01666.1ms     +++|          LDD    FC          CHECK FOR CONTROL WORD OPERATION
02283  M01S01667.1ms     +++|          SHN    21-5
02284  M01S01668.1ms     +++|          MJN    RMS3        IF *READCW*
02285  M01S01669.1ms     +++|          RJM    SBA         SET ADDRESSES
02286  M01S01670.1ms     +++|          LJM    BRD         ENTER BUFFER READ LOOP
02287  M01S01671.1ms     +++|*         LJM    RSK9        (*READSKP* SKIP PROCESSING)
02288  M01S01672.1ms     +++| RMSA     EQU    *-1
02289  M01S01673.1ms     +++|
02290  M01S01674.1ms     +++| RMS3     RJM    SCA         SET ADDRESSES
02291  M01S01675.1ms     +++|          LDN    0           PRESET CONTROL WORD
02292  M01S01676.1ms     +++|          STD    T3
02293  M01S01677.1ms     +++|          STD    T1
02294  M01S01678.1ms     +++|          STM    BFMS+2-5
02295  M01S01679.1ms     +++|          STM    BFMS+2-3
02296  M01S01680.1ms     +++|          LDD    HN
02297  M01S01681.1ms     +++|          STM    BFMS+2-4
02298  M01S01682.1ms     +++|          LJM    CRD         ENTER CONTROL WORD READ LOOP
02299  M01S01683.1ms     +++| EOF      SPACE  4,10
02300  M01S01684.1ms     +++|**        EOF - TERMINATE ON EOF.
02301  M01S01685.1ms     +++|*
02302  M01S01686.1ms     +++|*         ENTRY  (T2) = LINKAGE BYTE.
02303  M01S01687.1ms     +++|*                (FS - FS+4) = FST ENTRY.
02304  M01S01688.1ms     +++|*
02305  M01S01689.1ms     +++|*         EXIT   (FS+4) = EOF STATUS.
02306  M01S01690.1ms     +++|*                TO *CPR* TO COMPLETE FUNCTION.
02307  M01S01691.1ms     +++|*                TO */SMR/ALS* TO ADVANCE LIST PROCESSING.
02308  M01S01692.1ms     +++|
02309  M01S01693.1ms     +++|
02310  M01S01694.1ms     +++| EOF      BSS    0           ENTRY
02311  M01S01695.1ms     +++|          LDD    T2          ADVANCE TO NEXT SECTOR
02312  M01S01696.1ms     +++|          STD    T7
02313  M01S01697.1ms     +++|          SHN    6
02314  M01S01698.1ms     +++|          PJN    EOF1        IF NOT TRACK POINTER
02315  M01S01699.1ms     +++|          SHN    -6
02316  M01S01700.1ms     +++|          STD    T6
02317  M01S01701.1ms     +++|          LDN    0
02318  M01S01702.1ms     +++|          STD    T7
02319  M01S01703.1ms     +++| EOF1     LDN    /CIO/EOF    SET EOF FST STATUS
02320  M01S01704.1ms     +++|          STD    FS+4
02321  M01S01705.1ms     +++|          LJM    CPR         COMPLETE READ PROCESSING
02322  M01S01706.1ms     +++|*         LJM    /SMR/ALS    (*READLS*/*RPHRLS*)
02323  M01S01707.1ms     +++|*         LJM    CPR         (CLEANUP AFTER MS ERROR)
02324  M01S01708.1ms     +++| EOFA     EQU    *-1
02325  M01S01709.1ms     +++| CPR      SPACE  4,15
02326  M01S01710.1ms     +++|**        CPR - COMPLETE READ.
02327  M01S01711.1ms     +++|*
02328  M01S01712.1ms     +++|*         ENTRY  (DP - DP+4) = IN POINTER.
02329  M01S01713.1ms     +++|*
02330  M01S01714.1ms     +++|*         EXIT   (FS - FS+4) = UPDATED FST ENTRY.
02331  M01S01715.1ms     +++|*                TO *MSP* TO COMPLETE PROCESSING.
02332  M01S01716.1ms     +++|*                TO */SMR/SLS* TO SET READ LIST STATUS.
02333  M01S01717.1ms     +++|*
02334  M01S01718.1ms     +++|*         USES   CM-2 - CM+4.
02335  M01S01719.1ms     +++|*
02336  M01S01720.1ms     +++|*         CALLS  DCC.
02337  M01S01721.1ms     +++|
02338  M01S01722.1ms     +++|
02339  M01S01723.1ms     +++| CPR      BSS    0           ENTRY
02340  M01S01724.1ms     +++|          RJM    DCC         DROP CHANNEL WHEN OUTPUT REGISTER CLEAR
02341  M01S01725.1ms     +++|          LDD    T6          UPDATE TRACK
02342  M01S01726.1ms     +++|          STD    FS+2
02343  M01S01727.1ms     +++|          LDD    T7          UPDATE SECTOR
02344  M01S01728.1ms     +++|          STD    FS+3
02345  M01S01729.1ms     +++| CPRA     LDC    0           GET POINTER TO BAD DATA BLOCK
02346  M01S01730.1ms     +++|          ZJN    CPR1        IF NO PARITY ERROR
02347  M01S01731.1ms     +++|          STD    CM+4        WRITE BAD DATA POINTER AT *IN*
02348  M01S01732.1ms     +++|          SHN    -14
02349  M01S01733.1ms     +++|          STD    CM+3
02350  M01S01734.1ms     +++|          LDN    ZERL
02351  M01S01735.1ms     +++|          CRD    CM-2
02352  M01S01736.1ms     +++|          LDD    DP+3
02353  M01S01737.1ms     +++|          SHN    6
02354  M01S01738.1ms     +++|          ADD    RA
02355  M01S01739.1ms     +++|          SHN    6
02356  M01S01740.1ms     +++|          ADD    DP+4
02357  M01S01741.1ms     +++|          CWD    CM
02358  M01S01742.1ms     +++| CPR1     LJM    MSP         PROCESS MASS STORAGE EXIT
02359  M01S01743.1ms     +++|*         LJM    /SMR/SLS    (*READLS*/*RPHRLS*)
02360  M01S01744.1ms     +++| CPRB     EQU    *-1
02361  M01S01745.1ms     +++|          TITLE  BUFFER READ.
02362  M01S01746.1ms     +++| BRD      SPACE  4,25
02363  M01S01747.1ms     +++|**        BRD - BUFFER READ LOOP.
02364  M01S01748.1ms     +++|*
02365  M01S01749.1ms     +++|*         ENTRY  (BP) = BUFFER SPACE IN PRUS.
02366  M01S01750.1ms     +++|*                (PC) = 0.
02367  M01S01751.1ms     +++|*                (RC) = *DRCM* MONITOR FUNCTION CODE.
02368  M01S01752.1ms     +++|*                (T6) = TRACK.
02369  M01S01753.1ms     +++|*                (T7) = SECTOR.
02370  M01S01754.1ms     +++|*                (DP - DP+4) = *IN* POINTER.
02371  M01S01755.1ms     +++|*                (FS - FS+4) = FST ENTRY.
02372  M01S01756.1ms     +++|*                ADDRESS REFERENCES SET.
02373  M01S01757.1ms     +++|*                AT *BRD11* IF PROCESSING TRANSFER OF PARTIAL
02374  M01S01758.1ms     +++|*                   SECTOR FOR *READSKP*.
02375  M01S01759.1ms     +++|*
02376  M01S01760.1ms     +++|*         EXIT   (FS+4) = READ STATUS.
02377  M01S01761.1ms     +++|*                (PC) = COUNT OF PRUS TRANSFERRED.
02378  M01S01762.1ms     +++|*                (T6) = UPDATED CURRENT TRACK.
02379  M01S01763.1ms     +++|*                (T7) = UPDATED CURRENT SECTOR.
02380  M01S01764.1ms     +++|*                (DP - DP+4) = ADVANCED *IN* POINTER.
02381  M01S01765.1ms     +++|*                TO *CPR* TO COMPLETE PROCESSING.
02382  M01S00134.242l642 +++|*                TO *CDA*, IF MASS STORAGE ERROR.
02383  M01S01766.1ms     +++|*
02384  M01S01767.1ms     +++|*         USES   BP, OT+1, T1, T2, CM - CM+4, OP-3 - OP+1.
02385  M01S01768.1ms     +++|*
02386  M01S01769.1ms     +++|*         CALLS  CRT, MSR, RDS, SBA.
02387  M01S01770.1ms     +++|
02388  M01S01771.1ms     +++|
02389  M01S01772.1ms     +++|*         LOOP TO PROCESS NEXT SECTOR.
02390  M01S01773.1ms     +++|
02391  M01S01774.1ms     +++| BRD      BSS    0           ENTRY
02392  M01S01775.1ms     +++| BRDA     LDC    **          (OUT + RA)
02393  M01S01776.1ms     +++|          CRD    OP-3        READ OUT
02394  M01S01777.1ms     +++|          LDD    OP          LENGTH = OUT - IN - 1
02395  M01S01778.1ms     +++|          SBD    DP+3
02396  M01S01779.1ms     +++|          SHN    14
02397  M01S01780.1ms     +++|          ADD    OP+1
02398  M01S01781.1ms     +++|          SBD    DP+4
02399  M01S01782.1ms     +++|          SBN    1
02400  M01S01783.1ms     +++|          PJN    BRD1        IF IN+1 .LT. OUT
02401  M01S01784.1ms     +++| BRDB     ADC    **          (LIMIT - FIRST)
02402  M01S01785.1ms     +++| BRD1     SHN    -6
02403  M01S01786.1ms     +++|          STD    BP
02404  M01S01787.1ms     +++| BRDC     NJN    BRD5        IF BUFFER NOT FULL
02405  M01S01788.1ms     +++|*         PSN                (TIME TO ENTER RECALL STACK)
02406  M01S01789.1ms     +++|          LDC    LDNI        CLEAR SETTING OF FET TERMINATION STATUS
02407  M01S01790.1ms     +++|          STM    UFSA
02408  M01S01791.1ms     +++| BRD2     LDC    7777        CHECK FOR EOF
02409  M01S01792.1ms     +++| BRDD     EQU    *-1
02410  M01S01793.1ms     +++|          LMD    PC
02411  M01S01794.1ms     +++|          ZJN    BRD3        IF LAST SECTOR READ WAS AN EOF
02412  M01S01795.1ms     +++|          LDM    BFMS+1      CHECK FOR EOR
02413  M01S01796.1ms     +++|          LMD    HN
02414  M01S01797.1ms     +++|          ZJN    BRD4        IF LAST SECTOR READ WAS FULL SECTOR
02415  M01S01798.1ms     +++|          LDN    /CIO/EOR&/CIO/EOF  SET EOR STATUS
02416  M01S01799.1ms     +++| BRD3     LMN    /CIO/EOF
02417  M01S01800.1ms     +++| BRD4     STD    FS+4
02418  M01S01801.1ms     +++|          LJM    CPR         COMPLETE READ
02419  M01S01802.1ms     +++|*         LJM    RSK2        (*READSKP*)
02420  M01S01803.1ms     +++|*         LJM    CPR         (CLEANUP AFTER MS ERROR)
02421  M01S01804.1ms     +++| BRDE     EQU    *-1
02422  M01S01805.1ms     +++|
02423  M01S01806.1ms     +++|*         READ NEXT SECTOR.
02424  M01S01807.1ms     +++|
02425  M01S01808.1ms     +++| BRD5     AOD    PC          INCREMENT PRU COUNT
02426  M01S01809.1ms     +++|          LDC    BFMS        READ SECTOR
02427  M01S01810.1ms     +++|          RJM    RDS
02428  M01S01811.1ms     +++|          PJN    BRD6        IF NO ERROR
Line S01812 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02429  M02S01812.242l642 ---|          RJM    MSR         PROCESS ERROR
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  M01S01813.1ms     +++| BRD6     LDM    BFMS        CHECK FIRST CONTROL BYTE
02437  M01S01814.1ms     +++|          NJN    BRD8        IF NOT EOF/EOI
02438  M01S01815.1ms     +++|          LDM    BFMS+1
02439  M01S01816.1ms     +++|          NJN    BRD7        IF NOT EOI
02440  M01S01817.1ms     +++|          SOD    PC
02441  M01S01818.1ms     +++|          LDN    /CIO/EOI    SET EOI STATUS
02442  M01S01819.1ms     +++|          STD    FS+4
02443  M01S01820.1ms     +++|          LJM    CPR         COMPLETE READ
02444  M01S01821.1ms     +++|*         LJM    /SMR/ALS    (*READLS*/*RPHRLS*)
02445  M01S01822.1ms     +++|*         LJM    CPR         (CLEANUP AFTER MS ERROR)
02446  M01S01823.1ms     +++| BRDF     EQU    *-1
02447  M01S01824.1ms     +++|
02448  M01S01825.1ms     +++|*         PROCESS EOF.
02449  M01S01826.1ms     +++|
02450  M01S01827.1ms     +++| BRD7     STD    T2
02451  M01S01828.1ms     +++| BRDG     LJM    EOF         PROCESS EOF
02452  M01S01829.1ms     +++|*         UJN    *+2         (*READEI*)
02453  M01S01830.1ms     +++|          LDN    0           SET WORD COUNT
02454  M01S01831.1ms     +++|          STM    BFMS+1
02455  M01S01832.1ms     +++|          LDD    PC          SAVE SECTOR NUMBER
02456  M01S01833.1ms     +++|          STM    BRDD
02457  M01S01834.1ms     +++|          LDD    T2
02458  M01S01835.1ms     +++| BRD8     STD    T7          SET NEXT SECTOR
02459  M01S01836.1ms     +++|          SHN    6
02460  M01S01837.1ms     +++|          PJN    BRD9        IF NOT NEW TRACK
02461  M01S01838.1ms     +++|          SHN    -6          SET NEXT TRACK
02462  M01S01839.1ms     +++|          STD    T6
02463  M01S01840.1ms     +++|          LDN    0           CLEAR SECTOR
02464  M01S01841.1ms     +++|          STD    T7
02465  M01S01842.1ms     +++|          SOD    TC          DECREMENT TRACK COUNT
Line S01843 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms3
Seq #  *Modification Id* Act 
----------------------------+
02466  M02S01843.1ms3    ---|          NJN    BRD9        IF NOT TIME TO RECALL
02467  M01S00001.1ms3    +++| BRDY     NJN    BRD9        IF NOT TIME TO RECALL
02468  M01S00002.1ms3    +++|*         UJN    BRD9        (*READLS*/*RPHRLS*/*RPHR*)
02469  M01S01844.1ms     +++|          STM    BRDC        SET TO ENTER RECALL STACK
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  M01S01845.1ms     +++|          AOM    COCA
02475  M01S01846.1ms     +++| BRD9     LDD    RA          CHECK RA CHANGED
02476  M01S01847.1ms     +++|          LMC    **          (RA)
02477  M01S01848.1ms     +++| BRDH     EQU    *-1
02478  M01S01849.1ms     +++|          ZJN    BRD10       IF RA NOT CHANGED
02479  M01S01850.1ms     +++|          RJM    SBA         SET BUFFER ADDRESSES
02480  M01S01851.1ms     +++| BRD10    LDM    BFMS+1      SET SECTOR WORD COUNT
02481  M01S01852.1ms     +++|          STD    T1
02482  M01S01853.1ms     +++|          NJN    BRD11       IF NOT EMPTY SECTOR
02483  M01S01854.1ms     +++|          LJM    BRD16       PROCESS EMPTY PRU
02484  M01S01855.1ms     +++|
02485  M01S01856.1ms     +++|*         ENTRY FROM *READSKP* PROCESSOR TO TRANSFER PARTIAL SECTOR.
02486  M01S01857.1ms     +++|
02487  M01S01858.1ms     +++| BRD11    ADD    DP+4        CHECK IN + WORD COUNT
02488  M01S01859.1ms     +++|          SHN    6
02489  M01S01860.1ms     +++|          ADD    DP+3
02490  M01S01861.1ms     +++|          SHN    14
02491  M01S01862.1ms     +++| BRDI     ADC    -**         (-LIMIT)
02492  M01S01863.1ms     +++|          MJN    BRD12       IF NOT WRAP AROUND SECTOR
02493  M01S01864.1ms     +++|          NJN    BRD14       IF SECOND PART TO TRANSFER
02494  M01S01865.1ms     +++|          SBD    T1          STORE PRU
02495  M01S01866.1ms     +++| BRDJ     ADC    **          (LIMIT + RA)
02496  M01S01867.1ms     +++|          CWM    BFMS+2,T1
02497  M01S01868.1ms     +++| BRDK     LDC    **          (FIRST)
02498  M01S01869.1ms     +++|          UJN    BRD13       STORE *IN* POINTER
02499  M01S01870.1ms     +++|
02500  M01S01871.1ms     +++|*         PROCESS NORMAL SECTOR.
02501  M01S01872.1ms     +++|
02502  M01S01873.1ms     +++| BRD12    SBD    T1          STORE PRU
02503  M01S01874.1ms     +++| BRDL     ADC    **          (LIMIT + RA)
02504  M01S01875.1ms     +++|          CWM    BFMS+2,T1
02505  M01S01876.1ms     +++|
02506  M01S01877.1ms     +++|*         ADVANCE *IN* POINTER.
02507  M01S01878.1ms     +++|
02508  M01S01879.1ms     +++| BRDM     ADC    -**         (-RA)
02509  M01S01880.1ms     +++| BRD13    STD    DP+4        ADVANCE *IN*
02510  M01S01881.1ms     +++|          SHN    -14
02511  M01S01882.1ms     +++|          STD    DP+3
02512  M01S01883.1ms     +++|
02513  M01S01884.1ms     +++|*         THE FOLLOWING LINE OF CODE IS MODIFIED VIA *RJM*.
02514  M01S01885.1ms     +++|
02515  M01S01886.1ms     +++|          LJM    BRD15       UPDATE *IN* IF NOT BUFFERED OPERATION
Line S01887 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms3
Seq #  *Modification Id* Act 
----------------------------+
02516  M02S01887.1ms3    ---|*         LJM    BRD19       (CHECK *OUT*)
02517  M01S00007.1ms3    +++|*         LJM    BRD18       (CHECK OUT)
02518  M01S01888.1ms     +++|*         LJM    BRD19       (RECALL CPU)
02519  M01S01889.1ms     +++| BRDN     EQU    *-1
02520  M01S01890.1ms     +++|          UJN    BRD15       UPDATE *IN*
02521  M01S01891.1ms     +++|
02522  M01S01892.1ms     +++|*         PROCESS WRAP AROUND SECTOR.
02523  M01S01893.1ms     +++|
02524  M01S01894.1ms     +++| BRD14    STD    CM+1        SET SECOND PART WORD COUNT
02525  M01S01895.1ms     +++|          LDD    T1          SET FIRST PART WORD COUNT
02526  M01S01896.1ms     +++|          SBD    CM+1
02527  M01S01897.1ms     +++|          STD    CM
02528  M01S01898.1ms     +++|          SHN    2           SET PPU ADDRESS OF SECOND PART
02529  M01S01899.1ms     +++|          ADD    CM
02530  M01S01900.1ms     +++|          ADC    BFMS+2
02531  M01S01901.1ms     +++|          STM    BRDQ
02532  M01S01902.1ms     +++|          LDD    DP+3        STORE FIRST PART
02533  M01S01903.1ms     +++|          SHN    14
02534  M01S01904.1ms     +++|          ADD    DP+4
02535  M01S01905.1ms     +++| BRDO     ADC    **          (RA)
02536  M01S01906.1ms     +++|          CWM    BFMS+2,CM
02537  M01S01907.1ms     +++| BRDP     LDC    **          (FIRST + RA) STORE SECOND PART
02538  M01S01908.1ms     +++|          CWM    BFMS+2,CM+1
02539  M01S01909.1ms     +++| BRDQ     EQU    *-1         (PP ADDRESS OF SECOND PART)
02540  M01S01910.1ms     +++| BRDR     ADC    -**         (-RA)
02541  M01S01911.1ms     +++|          STD    DP+4
02542  M01S01912.1ms     +++|          SHN    -14
02543  M01S01913.1ms     +++|          STD    DP+3
02544  M01S01914.1ms     +++|
02545  M01S01915.1ms     +++|*         UPDATE *IN*.
02546  M01S01916.1ms     +++|
02547  M01S01917.1ms     +++| BRD15    LDC    **          (IN+RA)
02548  M01S01918.1ms     +++| BRDS     EQU    *-2
02549  M01S01919.1ms     +++|          CWD    DP          STORE IN
02550  M01S01920.1ms     +++|
02551  M01S01921.1ms     +++|*         CHECK TERMINATIONS.
02552  M01S01922.1ms     +++|
02553  M01S01923.1ms     +++| BRD16    LDD    T1          CHECK SECTOR WORD COUNT
02554  M01S01924.1ms     +++|*         LJM    BRD         (*READNS*)
02555  M01S01925.1ms     +++|*         LJM    BRD         (*READEI*)
02556  M01S01926.1ms     +++|*         LJM    BRD2        (AFTER MS ERROR)
02557  M01S01927.1ms     +++| BRDT     EQU    *-1
02558  M01S01928.1ms     +++|          SHN    -6
02559  M01S01929.1ms     +++|          ZJN    BRD17       IF SHORT SECTOR
02560  M01S01930.1ms     +++|          LJM    BRD         CONTINUE DATA TRANSFER
02561  M01S01931.1ms     +++| BRDU     EQU    *-1
02562  M01S01932.1ms     +++|*         LJM    BRD2        (*RPHR*)
02563  M01S01933.1ms     +++|*         LJM    /SMR/RSK7   (*READSKP* PARTIAL SECTOR TRANSFER)
02564  M01S01934.1ms     +++|*         LJM    /SMR/ALS    (*RPHRLS* ADVANCE LIST)
02565  M01S01935.1ms     +++|
Line S01936 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms3
Seq #  *Modification Id* Act 
----------------------------+
02566  M02S01936.1ms3    ---| BRD17    LJM    BRD2        CONTINUE TRANSFER
02567  M01S00008.1ms3    +++| BRD17    LJM    BRD2        TERMINATE TRANSFER
02568  M01S01937.1ms     +++|*         LJM    /SMR/RSK7   (*READSKP* PARTIAL SECTOR TRANSFER)
02569  M01S01938.1ms     +++|*         LJM    /SMR/ALS    (*READLS*/*RPHRLS*)
02570  M01S01939.1ms     +++| BRDV     EQU    *-1
02571  M01S01940.1ms     +++|
02572  M01S01941.1ms     +++|*         WAIT FOR *OUT* TO CHANGE FOR BUFFERED OPERATION.
02573  M01S01942.1ms     +++|*         ONLY 12 BITS OF *OUT* IS CHECKED DUE TO TIMING
02574  M01S01943.1ms     +++|*         CONSIDERATIONS.
02575  M01S01944.1ms     +++|
02576  M01S01945.1ms     +++|
02577  M01S01946.1ms     +++| BRD18    RJM    BRDN        MODIFY INSTRUCTION
02578  M01S01947.1ms     +++|          LDD    BP
02579  M01S01948.1ms     +++|          SHN    -3
02580  M01S01949.1ms     +++|          NJN    BRD15       IF .GE. 8 SECTORS OF FREE SPACE
02581  M01S01950.1ms     +++|          LDD    OP+1
02582  M01S01951.1ms     +++|          SBD    OT+1
02583  M01S01952.1ms     +++|          ZJN    BRD15       IF *OUT* NOT CHANGED
02584  M01S01953.1ms     +++|          RAD    OT+1        SAVE NEW *OUT*
02585  M01S01954.1ms     +++|
02586  M01S01955.1ms     +++|*         RECALL CPU ON THE NEXT SECTOR IF JOB IS IN *X* STATUS.
02587  M01S01956.1ms     +++|
02588  M01S01957.1ms     +++|          RJM    BRDN        MODIFY INSTRUCTION
02589  M01S01958.1ms     +++|
02590  M01S01959.1ms     +++|*         THE FOLLOWING CHECK MINIMIZES OVERHEAD ON TRACK SWITCH
02591  M01S01960.1ms     +++|*         AND PREVENTS A *DRCM* BEING ISSUED JUST PRIOR
02592  M01S01961.1ms     +++|*         TO THE DRIVER NEEDING TO DO AN *LDAM*.
02593  M01S01962.1ms     +++|
02594  M01S01963.1ms     +++| BRD19    LDD    T7
02595  M01S01964.1ms     +++|          ZJN    BRD15       IF TRACK SWITCH
Line S01965 Modification History
M01 (Added by) 1ms
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02596  M02S01965.271l750 ---|          LDC    **+STSW     CHECK CPU STATUS
02597  M01S00001.271l750 +++|          LDC    **+CWQW     CHECK CPU RECALL REQUIRED
02598  M01S01966.1ms     +++| BRDW     EQU    *-1
02599  M01S01967.1ms     +++|          CRD    CM
Line S01968 Modification History
M01 (Added by) 1ms
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02600  M02S01968.271l750 ---|          LDD    CM
Line S01969 Modification History
M01 (Added by) 1ms
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02601  M02S01969.271l750 ---|          SHN    -11
Line S01970 Modification History
M01 (Added by) 1ms
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02602  M02S01970.271l750 ---|          LMN    XCPS
Line S01971 Modification History
M01 (Added by) 1ms
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02603  M02S01971.271l750 ---|          NJN    BRD18       IF NOT *X* STATUS
02604  M01S00002.271l750 +++|          LDD    CM+1
02605  M01S00003.271l750 +++|          SHN    21-12
02606  M01S00004.271l750 +++|          MJN    BRD18       IF RECALL NOT REQUIRED
02607  M01S01972.1ms     +++|          LDD    OA          RECALL CPU
02608  M01S01973.1ms     +++|          CWD    RC
02609  M01S01974.1ms     +++|          UJN    BRD18       RESET TO CHECK *OUT*
02610  M01S01975.1ms     +++| SBA      SPACE  4,10
02611  M01S01976.1ms     +++|**        SBA - SET BUFFER ADDRESSES.
02612  M01S01977.1ms     +++|*         PRESETS ADDRESSES IN *BRD*.
02613  M01S01978.1ms     +++|*         ENTER IF (RA) CHANGES.
02614  M01S01979.1ms     +++|*
02615  M01S01980.1ms     +++|*         ENTRY  (FT - FT+1) = *FIRST* POINTER.
02616  M01S01981.1ms     +++|*                (LM - LM+1) = *LIMIT* POINTER.
02617  M01S01982.1ms     +++|*
02618  M01S01983.1ms     +++|*         MACROS CFET.
02619  M01S01984.1ms     +++|
02620  M01S01985.1ms     +++|
02621  M01S01986.1ms     +++| SBA      SUBR               ENTRY/EXIT
02622  M01S01987.1ms     +++|
02623  M01S01988.1ms     +++|          LDD    RA          CHECK RA CHANGED
02624  M01S01989.1ms     +++|          LMM    BRDH
02625  M01S01990.1ms     +++|          ZJN    SBAX        IF BUFFER ADDRESSES CORRECT
02626  M01S01991.1ms     +++|          LDD    RA          RA
02627  M01S01992.1ms     +++|          STM    BRDH
02628  M01S01993.1ms     +++|          SHN    6
02629  M01S01994.1ms     +++|          STM    BRDO+1
02630  M01S01995.1ms     +++|          LMC    7777
02631  M01S01996.1ms     +++|          STM    BRDM+1
02632  M01S01997.1ms     +++|          STM    BRDR+1
02633  M01S01998.1ms     +++|          SHN    -14
02634  M01S01999.1ms     +++|          LMC    ADCI
02635  M01S02000.1ms     +++|          STM    BRDO
02636  M01S02001.1ms     +++|          LMN    77
02637  M01S02002.1ms     +++|          STM    BRDM
02638  M01S02003.1ms     +++|          STM    BRDR
02639  M01S02004.1ms     +++|
02640  M01S02005.1ms     +++|          LDD    FT          FIRST + RA
02641  M01S02006.1ms     +++|          SHN    6
02642  M01S02007.1ms     +++|          ADD    RA
02643  M01S02008.1ms     +++|          SHN    6
02644  M01S02009.1ms     +++|          ADD    FT+1
02645  M01S02010.1ms     +++|          STM    BRDP+1
02646  M01S02011.1ms     +++|          SHN    -14
02647  M01S02012.1ms     +++|          LMC    LDCI
02648  M01S02013.1ms     +++|          STM    BRDP
02649  M01S02014.1ms     +++|
02650  M01S02015.1ms     +++|          CFET   2           IN  + RA
02651  M01S02016.1ms     +++|          STM    BRDS+1
02652  M01S02017.1ms     +++|          STM    BRDA+1
02653  M01S02018.1ms     +++|          SHN    -14
02654  M01S02019.1ms     +++|          LMC    LDCI
02655  M01S02020.1ms     +++|          STM    BRDS
02656  M01S02021.1ms     +++|          STM    BRDA
02657  M01S02022.1ms     +++|          AOM    BRDA+1      OUT + RA
02658  M01S02023.1ms     +++|          SHN    -14
02659  M01S02024.1ms     +++|          RAM    BRDA
02660  M01S02025.1ms     +++|
02661  M01S02026.1ms     +++|          LDD    LM          LIMIT + RA
02662  M01S02027.1ms     +++|          SHN    6
02663  M01S02028.1ms     +++|          ADD    RA
02664  M01S02029.1ms     +++|          SHN    6
02665  M01S02030.1ms     +++|          ADD    LM+1
02666  M01S02031.1ms     +++|          STM    BRDL+1
02667  M01S02032.1ms     +++|          STM    BRDJ+1
02668  M01S02033.1ms     +++|          SHN    -14
02669  M01S02034.1ms     +++|          LMC    ADCI
02670  M01S02035.1ms     +++|          STM    BRDL
02671  M01S02036.1ms     +++|          STM    BRDJ
02672  M01S02037.1ms     +++|          LJM    SBAX        RETURN
02673  M01S02038.1ms     +++|          SPACE  4,10
02674  M01S02039.1ms     +++|          QUAL
02675  M01S02040.1ms     +++| SMRO     EQU    *+5         SPECIAL READ OVERLAY LOAD ADDRESS
02676  M01S02041.1ms     +++|          QUAL   *
02677  M01S02042.1ms     +++|          TITLE  CONTROL WORD READ.
02678  M01S02043.1ms     +++| CRD      SPACE  4,20
02679  M01S02044.1ms     +++|**        CRD - CONTROL WORD READ LOOP.
02680  M01S02045.1ms     +++|*
02681  M01S02046.1ms     +++|*         ENTRY  (PC) = 0.
02682  M01S02047.1ms     +++|*                (RC) = *DRCM* MONITOR FUNCTION CODE.
02683  M01S02048.1ms     +++|*                (T5) = EQUIPMENT.
02684  M01S02049.1ms     +++|*                (T6) = CURRENT TRACK.
02685  M01S02050.1ms     +++|*                (T7) = CURRENT SECTOR.
02686  M01S02051.1ms     +++|*                (DP - DP+4) = *IN* POINTER.
02687  M01S02052.1ms     +++|*                (FS - FS+4) = FST ENTRY.
02688  M01S02053.1ms     +++|*                ADDRESS REFERENCES SET.
02689  M01S02054.1ms     +++|*
02690  M01S02055.1ms     +++|*         EXIT   (PC) = PRU COUNT.
02691  M01S02056.1ms     +++|*                (T6) = UPDATED CURRENT TRACK.
02692  M01S02057.1ms     +++|*                (T7) = UPDATED CURRENT SECTOR.
02693  M01S02058.1ms     +++|*                (FS+4) = READ STATUS.
02694  M01S02059.1ms     +++|*                (DP - DP+4) = ADVANCED *IN* POINTER.
02695  M01S00141.242l642 +++|*                TO *CDA*, IF MASS STORAGE ERROR.
02696  M01S02060.1ms     +++|*
02697  M01S02061.1ms     +++|*         USES   BP, T0, T1, T2, CM - CM+4, OT+1, OP-3 - OP+1.
02698  M01S02062.1ms     +++|*
02699  M01S02063.1ms     +++|*         CALLS  CRT, MSR, RDS, SCA.
02700  M01S02064.1ms     +++|
02701  M01S02065.1ms     +++|
02702  M01S02066.1ms     +++| CRD      BSS    0           ENTRY
02703  M01S02067.1ms     +++|
02704  M01S02068.1ms     +++|*         *OUT* NOT READ HERE EACH PASS DUE TO TIMING CONSIDERATIONS.
02705  M01S02069.1ms     +++|
02706  M01S02070.1ms     +++|          LDD    OP          LENGTH = OUT - IN - 1
02707  M01S02071.1ms     +++|          SBD    DP+3
02708  M01S02072.1ms     +++|          SHN    14
02709  M01S02073.1ms     +++|          ADD    OP+1
02710  M01S02074.1ms     +++|          SBD    DP+4
02711  M01S02075.1ms     +++|          SBN    1
02712  M01S02076.1ms     +++|          PJN    CRD1        IF IN+1 .LT. OUT
02713  M01S02077.1ms     +++| CRDA     ADC    **          (LIMIT  - FIRST)
02714  M01S02078.1ms     +++| CRD1     ADC    -102
02715  M01S02079.1ms     +++| CRDB     PJN    CRD4        IF BUFFER NOT FULL
02716  M01S02080.1ms     +++|*         PSN                (TIME TO ENTER RECALL STACK)
02717  M01S02081.1ms     +++|*         PSN                (CLEANUP AFTER MS ERROR)
02718  M01S02082.1ms     +++|          LDC    LDNI        CLEAR SETTING OF FET TERMINATION STATUS
02719  M01S02083.1ms     +++|          STM    UFSA
02720  M01S02084.1ms     +++|          LDC    7777        CHECK FOR EOF
02721  M01S02085.1ms     +++| CRDC     EQU    *-1
02722  M01S02086.1ms     +++|          LMD    PC
02723  M01S02087.1ms     +++|          ZJN    CRD2        IF LAST SECTOR READ WAS AN EOF
02724  M01S02088.1ms     +++|          LDM    BFMS+2-1    CHECK FOR EOR
02725  M01S02089.1ms     +++|          LMC    500
02726  M01S02090.1ms     +++|          ZJN    CRD3        IF LAST SECTOR READ WAS FULL SECTOR
02727  M01S02091.1ms     +++|          LDN    /CIO/EOR&/CIO/EOF
02728  M01S02092.1ms     +++| CRD2     LMN    /CIO/EOF
02729  M01S02093.1ms     +++| CRD3     UJN    CRD7        COMPLETE READ
02730  M01S02094.1ms     +++|
02731  M01S02095.1ms     +++|*         READ NEXT SECTOR.
02732  M01S02096.1ms     +++|
02733  M01S02097.1ms     +++| CRD4     SHN    -6          SAVE APPROXIMATE NUMBER OF SECTORS
02734  M01S02098.1ms     +++|          STD    BP
02735  M01S02099.1ms     +++|          AOD    PC          INCREMENT PRU COUNT
02736  M01S02100.1ms     +++|          LDC    BFMS        READ SECTOR
02737  M01S02101.1ms     +++|          RJM    RDS
02738  M01S02102.1ms     +++|          PJN    CRD5        IF NO ERROR
Line S02103 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02739  M02S02103.242l642 ---|          RJM    MSR         PROCESS ERROR
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  M01S02104.1ms     +++| CRD5     LDD    RA          CHECK RA CHANGED
02747  M01S02105.1ms     +++|          LMC    **          (RA)
02748  M01S02106.1ms     +++| CRDD     EQU    *-1
02749  M01S02107.1ms     +++|          ZJN    CRD6        IF RA NOT CHANGED
02750  M01S02108.1ms     +++|          RJM    SCA         SET BUFFER ADDRESSES
02751  M01S02109.1ms     +++| CRD6     LDD    MA          SAVE CONTROL WORD TRAILER
02752  M01S02110.1ms     +++|          CWD    T3
02753  M01S02111.1ms     +++|          LDM    BFMS        CHECK FIRST CONTROL BYTE
02754  M01S02112.1ms     +++|          NJN    CRD10       IF NOT EOF/EOI
02755  M01S02113.1ms     +++|          LDM    BFMS+1
02756  M01S02114.1ms     +++|          NJN    CRD8        IF NOT EOI
02757  M01S02115.1ms     +++|          SOD    PC
02758  M01S02116.1ms     +++|          LDN    /CIO/EOI    SET EOI STATUS
02759  M01S02117.1ms     +++| CRD7     STD    FS+4
02760  M01S02118.1ms     +++|          LJM    CPR         COMPLETE READ
02761  M01S02119.1ms     +++|
02762  M01S02120.1ms     +++|*         PROCESS EOF.
02763  M01S02121.1ms     +++|
02764  M01S02122.1ms     +++| CRD8     STD    T2
02765  M01S02123.1ms     +++|          LDD    FC          CHECK TERMINATION CONDITION
02766  M01S02124.1ms     +++|          LPN    14
02767  M01S02125.1ms     +++|          LMN    /CIO/EOF
02768  M01S02126.1ms     +++|          NJN    CRD9        IF NOT TERMINATE ON EOF
02769  M01S02127.1ms     +++|          LJM    EOF         TERMINATE READ
02770  M01S02128.1ms     +++|
02771  M01S02129.1ms     +++| CRD9     LDN    17          SET LEVEL NUMBER
02772  M01S02130.1ms     +++|          STD    T3
02773  M01S02131.1ms     +++|          LDD    MA          UPDATE CONTROL WORD TRAILER
02774  M01S02132.1ms     +++|          CWD    T3
02775  M01S02133.1ms     +++|          LDC    CRD19       CHANGE LOOP
02776  M01S02134.1ms     +++|          STM    CRDQ
02777  M01S02135.1ms     +++|          LDN    0
02778  M01S02136.1ms     +++|          STM    BFMS+1
02779  M01S02137.1ms     +++|          LDD    T2
02780  M01S02138.1ms     +++|
02781  M01S02139.1ms     +++|*         UPDATE SECTOR AND TRACK.
02782  M01S02140.1ms     +++|
02783  M01S02141.1ms     +++| CRD10    STD    T7
02784  M01S02142.1ms     +++|          SHN    6
02785  M01S02143.1ms     +++|          PJN    CRD11       IF NOT NEW TRACK
02786  M01S02144.1ms     +++|          SHN    -6
02787  M01S02145.1ms     +++|          STD    T6
02788  M01S02146.1ms     +++|          LDN    0           RESET SECTOR
02789  M01S02147.1ms     +++|          STD    T7
02790  M01S02148.1ms     +++|          SOD    TC
02791  M01S02149.1ms     +++|          NJN    CRD11       IF NOT TIME TO ENTER RECALL STACK
02792  M01S02150.1ms     +++|          STM    CRDB        SET TO ENTER RECALL STACK
02793  M01S02151.1ms     +++|          AOM    COCA
02794  M01S02152.1ms     +++|
02795  M01S02153.1ms     +++|*         WRITE SECTOR TO BUFFER.
02796  M01S02154.1ms     +++|
02797  M01S02155.1ms     +++| CRD11    LDM    BFMS+1      SET SECTOR WORD COUNT
02798  M01S02156.1ms     +++|          STD    T1
02799  M01S02157.1ms     +++|          SHN    2           SET WORD COUNT
02800  M01S02158.1ms     +++|          ADD    T1
02801  M01S02159.1ms     +++|          STM    BFMS+2-1
02802  M01S02160.1ms     +++|          ADC    BFMS+2
02803  M01S02161.1ms     +++|          STM    CRDE
02804  M01S02162.1ms     +++|          LDN    0
02805  M01S02163.1ms     +++|          STM    BFMS+2-2
02806  M01S02164.1ms     +++|          LDD    MA
02807  M01S02165.1ms     +++|          CRM    **,ON       MOVE TRAILER CONTROL WORD
02808  M01S02166.1ms     +++| CRDE     EQU    *-1
02809  M01S02167.1ms     +++|          LDN    2
02810  M01S02168.1ms     +++|          RAD    T1
02811  M01S02169.1ms     +++|          ADD    DP+4        CHECK IN + WORD COUNT
02812  M01S02170.1ms     +++|          SHN    6
02813  M01S02171.1ms     +++|          ADD    DP+3
02814  M01S02172.1ms     +++|          SHN    14
02815  M01S02173.1ms     +++| CRDF     ADC    -**         (-LIMIT)
02816  M01S02174.1ms     +++|          MJN    CRD12       IF NOT WRAP AROUND SECTOR
02817  M01S02175.1ms     +++|          NJN    CRD14       IF A SECOND PART
02818  M01S02176.1ms     +++|          SBD    T1
02819  M01S02177.1ms     +++| CRDG     ADC    **          (LIMIT + RA)
02820  M01S02178.1ms     +++|          CWM    BFMS+2-5,T1
02821  M01S02179.1ms     +++| CRDH     LDC    **          (FIRST)
02822  M01S02180.1ms     +++|          UJN    CRD13       STORE *IN* POINTER
02823  M01S02181.1ms     +++|
02824  M01S02182.1ms     +++|*         PROCESS NORMAL SECTOR.
02825  M01S02183.1ms     +++|
02826  M01S02184.1ms     +++| CRD12    SBD    T1          STORE PRU
02827  M01S02185.1ms     +++| CRDI     ADC    **          (LIMIT + RA)
02828  M01S02186.1ms     +++|          CWM    BFMS+2-5,T1
02829  M01S02187.1ms     +++|
02830  M01S02188.1ms     +++|*         ADVANCE *IN* POINTER.
02831  M01S02189.1ms     +++|
02832  M01S02190.1ms     +++| CRDJ     ADC    -**         (-RA)  UPDATE IN
02833  M01S02191.1ms     +++| CRD13    STD    DP+4
02834  M01S02192.1ms     +++|          SHN    -14
02835  M01S02193.1ms     +++|          STD    DP+3
02836  M01S02194.1ms     +++|
02837  M01S02195.1ms     +++|*         THE FOLLOWING CHECK MINIMIZES OVERHEAD ON TRACK SWITCH
02838  M01S02196.1ms     +++|*         AND PREVENTS A *DRCM* BEING ISSUED JUST PRIOR
02839  M01S02197.1ms     +++|*         TO THE DRIVER NEEDING TO DO AN *LDAM*.
02840  M01S02198.1ms     +++|
02841  M01S02199.1ms     +++|          LDD    T7
02842  M01S02200.1ms     +++|          ZJN    CRD15       IF TRACK SWITCH
02843  M01S02201.1ms     +++|
02844  M01S02202.1ms     +++|*         THE FOLLOWING LINE OF CODE IS MODIFIED VIA *RJM*.
02845  M01S02203.1ms     +++|
02846  M01S02204.1ms     +++|          LJM    CRD15       UPDATE *IN* IF NOT BUFFERED OPERATION
02847  M01S02205.1ms     +++|*         LJM    CRD17       (RECALL CPU)
02848  M01S02206.1ms     +++|*         LJM    CRD18       (WAIT FOR OUT TO CHANGE)
02849  M01S02207.1ms     +++| CRDK     EQU    *-1
02850  M01S02208.1ms     +++|          UJN    CRD15       UPDATE IN
02851  M01S02209.1ms     +++|
02852  M01S02210.1ms     +++|*         PROCESS WRAP AROUND SECTOR.
02853  M01S02211.1ms     +++|
02854  M01S02212.1ms     +++| CRD14    STD    CM+1        SET SECOND PART WORD COUNT
02855  M01S02213.1ms     +++|          LDD    T1          SET FIRST PART WORD COUNT
02856  M01S02214.1ms     +++|          SBD    CM+1
02857  M01S02215.1ms     +++|          STD    CM
02858  M01S02216.1ms     +++|          SHN    2           SET PPU ADDRESS OF SECOND PART
02859  M01S02217.1ms     +++|          ADD    CM
02860  M01S02218.1ms     +++|          ADC    BFMS+2-5
02861  M01S02219.1ms     +++|          STM    CRDN
02862  M01S02220.1ms     +++|          LDD    DP+3        WRITE FIRST PART
02863  M01S02221.1ms     +++|          SHN    14
02864  M01S02222.1ms     +++|          ADD    DP+4
02865  M01S02223.1ms     +++| CRDL     ADC    **          (RA)
02866  M01S02224.1ms     +++|          CWM    BFMS+2-5,CM
02867  M01S02225.1ms     +++| CRDM     LDC    **          (FIRST + RA)
02868  M01S02226.1ms     +++|          CWM    **,CM+1     WRITE SECOND PART
02869  M01S02227.1ms     +++| CRDN     EQU    *-1         (PPU ADDRESS OF SECOND PART)
02870  M01S02228.1ms     +++| CRDO     ADC    -**         (-RA)
02871  M01S02229.1ms     +++|          STD    DP+4        UPDATE *IN* POINTER
02872  M01S02230.1ms     +++|          SHN    -14
02873  M01S02231.1ms     +++|          STD    DP+3
02874  M01S02232.1ms     +++|
02875  M01S02233.1ms     +++|*         UPDATE *IN*.
02876  M01S02234.1ms     +++|
02877  M01S02235.1ms     +++| CRD15    LDC    **          UPDATE *IN* POINTER
02878  M01S02236.1ms     +++| CRDP     EQU    *-2         (IN + RA)
02879  M01S02237.1ms     +++|          CWD    DP
02880  M01S02238.1ms     +++|          LJM    CRD         CONTINUE DATA TRANSFER
02881  M01S02239.1ms     +++|*         LJM    CRD19       (EOF READ)
02882  M01S02240.1ms     +++|*         LJM    CRD20       (SYSTEM SECTOR READ)
02883  M01S02241.1ms     +++| CRDQ     EQU    *-1
02884  M01S02242.1ms     +++|
02885  M01S02243.1ms     +++|*         RECALL CPU ON THE NEXT SECTOR IF JOB IS IN *X* STATUS.
02886  M01S02244.1ms     +++|
02887  M01S02245.1ms     +++| CRD16    RJM    CRDK        MODIFY INSTRUCTION
Line S02246 Modification History
M01 (Added by) 1ms
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02888  M02S02246.271l750 ---| CRD17    LDC    **+STSW     CHECK CPU STATUS
02889  M01S00005.271l750 +++| CRD17    LDC    **+CWQW     CHECK CPU RECALL REQUIRED
02890  M01S02247.1ms     +++| CRDR     EQU    *-1
02891  M01S02248.1ms     +++|          CRD    CM
Line S02249 Modification History
M01 (Added by) 1ms
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02892  M02S02249.271l750 ---|          LDD    CM
Line S02250 Modification History
M01 (Added by) 1ms
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02893  M02S02250.271l750 ---|          SHN    -11
Line S02251 Modification History
M01 (Added by) 1ms
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02894  M02S02251.271l750 ---|          LMN    XCPS
Line S02252 Modification History
M01 (Added by) 1ms
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02895  M02S02252.271l750 ---|          NJN    CRD18       IF NOT *X* STATUS
02896  M01S00006.271l750 +++|          LDD    CM+1
02897  M01S00007.271l750 +++|          SHN    21-12
02898  M01S00008.271l750 +++|          MJN    CRD18       IF RECALL NOT REQUIRED
02899  M01S02253.1ms     +++|          LDD    OA          RECALL CPU
02900  M01S02254.1ms     +++|          CWD    RC
02901  M01S02255.1ms     +++|
02902  M01S02256.1ms     +++|*         READ *OUT* AND CHECK IF *OUT* HAS CHANGED.
02903  M01S02257.1ms     +++|
02904  M01S02258.1ms     +++| CRD18    RJM    CRDK        MODIFY INSTRUCTION
02905  M01S02259.1ms     +++|          LDD    BP
02906  M01S02260.1ms     +++|          SHN    -3
02907  M01S02261.1ms     +++|          NJN    CRD15       IF .GT. 8 SECTORS OF SPACE
02908  M01S02262.1ms     +++|          LDC    **          (OUT+RA)
02909  M01S02263.1ms     +++| CRDS     EQU    *-2
02910  M01S02264.1ms     +++|          CRD    OP-3
02911  M01S02265.1ms     +++|          LDD    OP+1
02912  M01S02266.1ms     +++|          SBD    OT+1
02913  M01S02267.1ms     +++|          ZJN    CRD15       IF *OUT* NOT CHANGED
02914  M01S02268.1ms     +++|          RAD    OT+1        SAVE NEW *OUT*
02915  M01S02269.1ms     +++|          UJN    CRD16       SET TO RECALL CPU
02916  M01S02270.1ms     +++|
02917  M01S02271.1ms     +++|*         EOF POST PROCESSING CODE.
02918  M01S02272.1ms     +++|
02919  M01S02273.1ms     +++| CRD19    LDN    0           RESET LEVEL NUMBER
02920  M01S02274.1ms     +++|          STD    T3
02921  M01S02275.1ms     +++|          LDD    PC          SAVE EOF SECTOR NUMBER
02922  M01S02276.1ms     +++|          STM    CRDC
02923  M01S02277.1ms     +++|          UJN    CRD21       RESTORE LOOP
02924  M01S02278.1ms     +++|
02925  M01S02279.1ms     +++|*         SYSTEM SECTOR POST PROCESSING CODE.
02926  M01S02280.1ms     +++|
02927  M01S02281.1ms     +++| CRD20    LDN    FSMS        SET FIRST DATA SECTOR
02928  M01S02282.1ms     +++|          STD    T7
02929  M01S00148.242l642 +++|          LDM    CFNB
02930  M01S00149.242l642 +++|          LPN    37
02931  M01S00150.242l642 +++|          STM    CFNB
02932  M01S02283.1ms     +++| CRD21    LDC    CRD         RESTORE LOOP
02933  M01S02284.1ms     +++|          STM    CRDQ
02934  M01S02285.1ms     +++|          LJM    CRD         LOOP
02935  M01S02286.1ms     +++| SCA      SPACE  4,10
02936  M01S02287.1ms     +++|**        SCA - SET CONTROL WORD READ ADDRESSES.
02937  M01S02288.1ms     +++|*         PRESETS ADDRESSES IN *CRD*.
02938  M01S02289.1ms     +++|*         ENTER IF (RA) CHANGES.
02939  M01S02290.1ms     +++|*
02940  M01S02291.1ms     +++|*         ENTRY  (FT - FT+1) = *FIRST* POINTER.
02941  M01S02292.1ms     +++|*                (LM - LM+1) = *LIMIT* POINTER.
02942  M01S02293.1ms     +++|*
02943  M01S02294.1ms     +++|*         MACROS CFET.
02944  M01S02295.1ms     +++|
02945  M01S02296.1ms     +++|
02946  M01S02297.1ms     +++| SCA      SUBR               ENTRY/EXIT
02947  M01S02298.1ms     +++|          LDD    RA          RA AND -RA
02948  M01S02299.1ms     +++|          STM    CRDD
02949  M01S02300.1ms     +++|          SHN    6
02950  M01S02301.1ms     +++|          STM    CRDL+1
02951  M01S02302.1ms     +++|          LMC    7777
02952  M01S02303.1ms     +++|          STM    CRDJ+1
02953  M01S02304.1ms     +++|          STM    CRDO+1
02954  M01S02305.1ms     +++|          SHN    -14
02955  M01S02306.1ms     +++|          LMC    ADCI
02956  M01S02307.1ms     +++|          STM    CRDL
02957  M01S02308.1ms     +++|          LMN    77
02958  M01S02309.1ms     +++|          STM    CRDJ
02959  M01S02310.1ms     +++|          STM    CRDO
02960  M01S02311.1ms     +++|
02961  M01S02312.1ms     +++|          LDD    FT          FIRST + RA
02962  M01S02313.1ms     +++|          SHN    6
02963  M01S02314.1ms     +++|          ADD    RA
02964  M01S02315.1ms     +++|          SHN    6
02965  M01S02316.1ms     +++|          ADD    FT+1
02966  M01S02317.1ms     +++|          STM    CRDM+1
02967  M01S02318.1ms     +++|          SHN    -14
02968  M01S02319.1ms     +++|          LMC    LDCI
02969  M01S02320.1ms     +++|          STM    CRDM
02970  M01S02321.1ms     +++|
02971  M01S02322.1ms     +++|          CFET   2           IN  + RA
02972  M01S02323.1ms     +++|          STM    CRDP+1
02973  M01S02324.1ms     +++|          STM    CRDS+1
02974  M01S02325.1ms     +++|          SHN    -14
02975  M01S02326.1ms     +++|          LMC    LDCI
02976  M01S02327.1ms     +++|          STM    CRDP
02977  M01S02328.1ms     +++|          STM    CRDS
02978  M01S02329.1ms     +++|          AOM    CRDS+1      OUT + RA
02979  M01S02330.1ms     +++|          SHN    -14
02980  M01S02331.1ms     +++|          RAM    CRDS
02981  M01S02332.1ms     +++|
02982  M01S02333.1ms     +++|          LDD    LM          LIMIT + RA
02983  M01S02334.1ms     +++|          SHN    6
02984  M01S02335.1ms     +++|          ADD    RA
02985  M01S02336.1ms     +++|          SHN    6
02986  M01S02337.1ms     +++|          ADD    LM+1
02987  M01S02338.1ms     +++|          STM    CRDI+1
02988  M01S02339.1ms     +++|          STM    CRDG+1
02989  M01S02340.1ms     +++|          SHN    -14
02990  M01S02341.1ms     +++|          LMC    ADCI
02991  M01S02342.1ms     +++|          STM    CRDI
02992  M01S02343.1ms     +++|          STM    CRDG
02993  M01S02344.1ms     +++|          LJM    SCAX        RETURN
02994  M01S02345.1ms     +++|          SPACE  4,10
02995  M01S02346.1ms     +++|          QUAL
02996  M01S02347.1ms     +++| ERMS     EQU    *+5         END OF MASS STORAGE READ OVERLAY
02997  M01S02348.1ms     +++|          QUAL   *
02998  M01S02349.1ms     +++|          TITLE  READ MASS STORAGE PRESET.
02999  M01S02350.1ms     +++| PRS      SPACE  4,20
03000  M01S02351.1ms     +++|**        PRS - READ MASS STORAGE PRESET.
03001  M01S02352.1ms     +++|*
03002  M01S02353.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
03003  M01S02354.1ms     +++|*                (FT - OT+1) = BUFFER POINTERS.
03004  M01S02355.1ms     +++|*                (FS - FS+4) = FST ENTRY.
03005  M01S02356.1ms     +++|*
03006  M01S02357.1ms     +++|*         EXIT   (BP) = BUFFER SPACE IN PRUS FOR NON-CONTROL WORD
03007  M01S02358.1ms     +++|*                   READ, IN WORDS FOR CONTROL WORD READ.
03008  M01S02359.1ms     +++|*                (OP - OP+1) = (OT - OT+1).
03009  M01S02360.1ms     +++|*                TO *RMS* IF SYSTEM SECTOR WRITE REQUIRED.
03010  M01S02361.1ms     +++|*                TO *RMS1* IF SYSTEM SECTOR WRITE NOT REQUIRED.
03011  M01S02362.1ms     +++|*                TO *UFS* IF INSUFFICIENT BUFFER SPACE FOR
03012  M01S02363.1ms     +++|*                   CONTINUATION FUNCTION.
03013  M01S02364.1ms     +++|*
03014  M01S02365.1ms     +++|*         ERROR  TO *ERR* IF ERROR OR UNNECESSARY FUNCTION.
03015  M01S02366.1ms     +++|*
03016  M01S02367.1ms     +++|*         USES   T1, CM - CM+4.
03017  M01S02368.1ms     +++|
03018  M01S02369.1ms     +++|
03019  M01S02370.1ms     +++| PRS      BSS    0           ENTRY
03020  M01S02371.1ms     +++|          LDD    OT          CHECK BUFFER SPACE
03021  M01S02372.1ms     +++|          SBD    IN          LENGTH = OUT - IN - 1
03022  M01S02373.1ms     +++|          SHN    14
03023  M01S02374.1ms     +++|          ADD    OT+1
03024  M01S02375.1ms     +++|          SBD    IN+1
03025  M01S02376.1ms     +++|          SBN    1
03026  M01S02377.1ms     +++|          PJN    PRS1        IF NO WRAP AROUND
03027  M01S02378.1ms     +++|          SHN    6           LENGTH = LIMIT - IN - 1 + OUT - FIRST
03028  M01S02379.1ms     +++|          ADD    LM
03029  M01S02380.1ms     +++|          SBD    FT
03030  M01S02381.1ms     +++|          SHN    14
03031  M01S02382.1ms     +++|          ADD    LM+1
03032  M01S02383.1ms     +++|          SBD    FT+1
03033  M01S02384.1ms     +++| PRS1     STD    T1          SAVE FREE WORD COUNT
03034  M01S02385.1ms     +++|          SHN    -6
03035  M01S02386.1ms     +++|          STD    BP          SAVE BUFFER SPACE / 100B
03036  M01S02387.1ms     +++|          NJN    PRS3        IF BUFFER NOT FULL
03037  M01S02388.1ms     +++|          LDD    FC          CHECK REQUEST
03038  M01S02389.1ms     +++|          SHN    21-12
03039  M01S02390.1ms     +++|          MJN    PRS3        IF *READSKP*
03040  M01S02391.1ms     +++|          LDM    RCRF
03041  M01S02392.1ms     +++|          SHN    21-6
03042  M01S02393.1ms     +++|          MJN    PRS2        IF DATA TRANSFERRED PREVIOUSLY
03043  M01S02394.1ms     +++|          ERROR  UCF         *UNNECESSARY CIO FUNCTION*
03044  M01S02395.1ms     +++|
03045  M01S02396.1ms     +++| PRS2     LJM    UFS         UPDATE FET STATUS
03046  M01S02397.1ms     +++|
03047  M01S02398.1ms     +++|*         SET UP RECALL LOGIC.
03048  M01S02399.1ms     +++|
03049  M01S02400.1ms     +++| PRS3     LDD    IR+1        CHECK RECALL STATUC
03050  M01S02401.1ms     +++|          SHN    21-5
03051  M01S02402.1ms     +++|          MJN    PRS4        IF AUTO RECALL
03052  M01S02403.1ms     +++|          LDD    CP          SET CONTROL POINT ADDRESS
03053  M01S02404.1ms     +++|          RAM    BRDW
03054  M01S02405.1ms     +++|          STM    CRDR
03055  M01S02406.1ms     +++|          LDC    BRD19       SET TO RECALL CPU AFTER FIRST SECTOR
03056  M01S02407.1ms     +++|          STM    BRDN
03057  M01S02408.1ms     +++|          LDC    CRD17
03058  M01S02409.1ms     +++|          STM    CRDK
03059  M01S02410.1ms     +++|
03060  M01S02411.1ms     +++|*         SET BUFFER RELATED ADDRESSES.
03061  M01S02412.1ms     +++|
03062  M01S02413.1ms     +++| PRS4     LDD    LM          LIMIT - FIRST
03063  M01S02414.1ms     +++|          SBD    FT
03064  M01S02415.1ms     +++|          SHN    14
03065  M01S02416.1ms     +++|          ADD    LM+1
03066  M01S02417.1ms     +++|          SBD    FT+1
03067  M01S02418.1ms     +++|          STM    BRDB+1
03068  M01S02419.1ms     +++|          STM    CRDA+1
03069  M01S02420.1ms     +++|          SHN    -14
03070  M01S02421.1ms     +++|          RAM    BRDB
03071  M01S02422.1ms     +++|          STM    CRDA
03072  M01S02423.1ms     +++|
03073  M01S02424.1ms     +++|          LDC    ADCI+77     -LIMIT
03074  M01S02425.1ms     +++|          LMD    LM
03075  M01S02426.1ms     +++|          STM    BRDI
03076  M01S02427.1ms     +++|          STM    CRDF
03077  M01S02428.1ms     +++|          LDC    7777
03078  M01S02429.1ms     +++|          LMD    LM+1
03079  M01S02430.1ms     +++|          STM    BRDI+1
03080  M01S02431.1ms     +++|          STM    CRDF+1
03081  M01S02432.1ms     +++|
03082  M01S02433.1ms     +++|          LDD    FT+1        FIRST
03083  M01S02434.1ms     +++|          STM    BRDK+1
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1ms.001.txt ยท Last modified: by 127.0.0.1