User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:rec.001

Deck REC Part 001

29 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01539  M01S01370.rec     +++|          LPN    76
Line S01371 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01540  M02S01371.282l826 ---|          SBN    EXJS*2
Line S01372 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01541  M02S01372.282l826 ---|          NJN    STU3        IF JOB NOT AT CONTROL POINT
Line S01373 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01542  M02S01373.282l826 ---|          LDD    FS          INDICATE JOB ACTIVITY LOST
Line S01374 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01543  M02S01374.282l826 ---|          LPC    5777
Line S01375 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01544  M02S01375.282l826 ---|          LMC    2000
Line S01376 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01545  M02S01376.282l826 ---|          STD    FS
Line S01377 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01546  M02S01377.282l826 ---|          LDD    CN+3
01547  M01S00013.282l826 +++|          LMN    EXJS*2
01548  M01S00014.282l826 +++|          ZJN    STU5        IF UNIT NOT ASSIGNED OR JOB AT CP
01549  M01S00015.282l826 +++|          AOD    FS          INDICATE JOB ROLLED OUT
01550  M01S00016.282l826 +++| STU5     LDD    CN+3
01551  M01S01378.rec     +++|          SHN    6
01552  M01S01379.rec     +++|          ADD    CM+4
Line S01380 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01553  M02S01380.282l826 ---|          ADN    /COMSMTX/UJID
01554  M01S00017.282l826 +++|          ADN    /MTX/UST1
01555  M01S01381.rec     +++|          CWD    FS
01556  M01S01382.rec     +++|          UJN    STU3        PROCESS NEXT UDT
01557  M01S01383.rec     +++|          SPACE  4,10
01558  M01S01384.rec     +++|**        PRESET COMMON DECKS.
01559  M01S01385.rec     +++|
01560  M01S01386.rec     +++|
01561  M01S01387.rec     +++|*CALL     COMPAST
01562  M01S01388.rec     +++|          TTL    REC/4RA - RECOVER DAYFILES.
01563  M01S01389.rec     +++|          TITLE
01564  M01S01390.rec     +++|          QUAL   RDB
01565  M01S01391.rec     +++|          IDENT  4RA,RDFX
01566  M01S01392.rec     +++| QUAL$    EQU    1           DONT QUALIFY COMMON DECKS
01567  M01S01393.rec     +++|*COMMENT  REC - RECOVER DAYFILES.
Line S01394 Modification History
M01 (Added by) rec
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
01568  M02S01394.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
01569  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01570  M01S01395.rec     +++|          SPACE  4
01571  M01S01396.rec     +++|**        4RA - RECOVER DAYFILES.
01572  M01S01397.rec     +++|*
01573  M01S01398.rec     +++|*                *4RA* USES THE DAYFILE RECOVERY INFORMATION DEVELOPED
01574  M01S01399.rec     +++|*         BY *RMS* TO SETUP THE DAYFILE FST ENTRIES.  IT ALSO SETS
01575  M01S01400.rec     +++|*         THE RECOVERED DAYFILES LENGTH IN THE CORRESPONDING
01576  M01S01401.rec     +++|*         SYSTEM SECTOR.  IF A DAYFILE IS NOT RECOVERED, *4RA*
01577  M01S01402.rec     +++|*         WILL START A NEW DAYFILE ON THE DEVICE DEFINED BY
01578  M01S01403.rec     +++|*         THE DAYFILE CMRDECK DIRECTIVES.
01579  M01S01404.rec     +++|          SPACE  4,3
01580  M01S01405.rec     +++|***       ENTRY CONDITIONS.
01581  M01S01406.rec     +++|*
01582  M01S01407.rec     +++|*         (SE) = SYSTEM EQUIPMENT.
01583  M01S01408.rec     +++|          SPACE  4,3
01584  M01S01409.rec     +++|***       OPERATOR MESSAGES.
01585  M01S01410.rec     +++|*
01586  M01S01411.rec     +++|*         *FILENAM   UNRECOVERABLE.*  = DAYFILE SPECIFIED
01587  M01S01412.rec     +++|*         NOT RECOVERABLE.
01588  M01S01413.rec     +++|          SPACE  4
01589  M01S01414.rec     +++|          ORG    OVLA
01590  M01S01415.rec     +++|
01591  M01S01416.rec     +++|
01592  M01S01417.rec     +++| RDF      SUBR               ENTRY/EXIT
01593  M01S01418.rec     +++|          RJM    IDF         INITIALIZE DAYFILES
01594  M01S01419.rec     +++|          UJN    RDFX        RETURN
01595  M01S01420.rec     +++| RDB      SPACE  4,10
01596  M01S01421.rec     +++|          QUAL
01597  M01S01422.rec     +++|
01598  M01S01423.rec     +++|*         *4RA*/*4RE* COMMUNICATION BLOCK.
01599  M01S01424.rec     +++|
01600  M01S01425.rec     +++|
01601  M01S01426.rec     +++| RDBA     BSS    0           CREATION DATE BUFFERS
01602  M01S01427.rec     +++|          BSSZ   5           SYSTEM DAYFILE
01603  M01S01428.rec     +++|          BSSZ   5           ACCOUNT DAYFILE
01604  M01S01429.rec     +++|          BSSZ   5           ERRLOG DAYFILE
01605  M01S01430.rec     +++|          BSSZ   5           MAINTENANCE LOG DAYFILE
01606  M01S01431.rec     +++|
01607  M01S01432.rec     +++| RDBB     BSS    0           EOI DATE BUFFERS
01608  M01S01433.rec     +++|          BSSZ   5           SYSTEM DAYFILE
01609  M01S01434.rec     +++|          BSSZ   5           ACCOUNT DAYFILE
01610  M01S01435.rec     +++|          BSSZ   5           ERRLOG DAYFILE
01611  M01S01436.rec     +++|          BSSZ   5           MAINTENANCE LOG DAYFILE
01612  M01S01437.rec     +++|
01613  M01S01438.rec     +++| RDBC     BSS    0           EOI TIME BUFFERS
01614  M01S01439.rec     +++|          BSSZ   5           SYSTEM DAYFILE
01615  M01S01440.rec     +++|          BSSZ   5           ACCOUNT DAYFILE
01616  M01S01441.rec     +++|          BSSZ   5           ERRLOG DAYFILE
01617  M01S01442.rec     +++|          BSSZ   5           MAINTENANCE LOG DAYFILE
01618  M01S01443.rec     +++|
01619  M01S01444.rec     +++| RDBD     BSS    0
01620  M01S01445.rec     +++|          DATA   H*DAYFILE   *
01621  M01S01446.rec     +++|          DATA   H*ACCOUNT   *
01622  M01S01447.rec     +++|          DATA   H*ERRLOG    *
01623  M01S01448.rec     +++|          DATA   H*MAINLOG   *
01624  M01S01449.rec     +++| RDBE     BSS    0
01625  M01S01450.rec     +++|
01626  M01S01451.rec     +++| RDBF     BSSZ   EXDF        FIRST TRACK OF CREATED DAYFILES
01627  M01S01452.rec     +++|
01628  M01S01453.rec     +++|*         THE FOLLOWING MESSAGE, *ARSY, LN, YY/MM/DD.* IS ISSUED WHEN
01629  M01S01454.rec     +++|*         THE ACCOUNT DAYFILE IS RECOVERED ON DEADSTART LEVEL *LN*.
01630  M01S01455.rec     +++|*         THE MESSAGE *ABSY,  YY/MM/DD.* IS ISSUED WHEN THE ACCOUNT
01631  M01S01456.rec     +++|*         DAYFILE IS INITIALIZED.
01632  M01S01457.rec     +++|
01633  M01S01458.rec     +++| RDBG     DATA   H*ARSY, 0, YY/MM/D*
01634  M01S01459.rec     +++|          CON    0,0
01635  M01S01460.rec     +++| RDBH     DATA   C*FILENAM   RECOVERED, EQXXX.*
01636  M01S01461.rec     +++| RDBI     DATA   C*FILENAM   CREATION DATE YY/MM/DD. *
01637  M01S01462.rec     +++| RDBI1    EQU    *-6
01638  M01S01463.rec     +++| RDBJ     DATA   C*FILENAM   UPDATED YY/MM/DD. HH.MM.SS. *
01639  M01S01464.rec     +++| RDBJ1    EQU    *-13
01640  M01S01465.rec     +++| RDBK     CON    RDBG+4      MESSAGE ADDRESS FOR DATE
01641  M01S01466.rec     +++|          SPACE  4,10
01642  M01S01467.rec     +++| OVLB     EQU    *+5         ORIGIN FOR *4RE*
01643  M01S01468.rec     +++|          QUAL   RDB
01644  M01S01469.rec     +++|          TITLE  SUBROUTINES.
01645  M01S01470.rec     +++| IDF      SPACE  4,9
01646  M01S01471.rec     +++|**        IDF - INITIALIZE DAYFILES.
01647  M01S01472.rec     +++|*
01648  M01S01473.rec     +++|*         ENTRY  (RS) = RECOVERY STATUS.
01649  M01S01474.rec     +++|*                (RECF) = SYSTEM EQUIPMENT.
01650  M01S01475.rec     +++|*
01651  M01S01476.rec     +++|*         EXIT   (USST) = EQUIPMENT AND FIRST TRACK OF NEW DAYFILES.
01652  M01S01477.rec     +++|*
01653  M01S01478.rec     +++|*         USES   T1 - T7, CM - CM+4, CN - CN+4, FN - FN+4,
01654  M01S01479.rec     +++|*                FS - FS+4, USST, QT, QS, FA.
01655  M01S01480.rec     +++|*
01656  M01S01481.rec     +++|*         CALLS  C2D, FMM, GDT, IEM, IRA, RDS, RSS, SEI, TLM, WEI, WSS.
01657  M01S01482.rec     +++|*
01658  M01S01483.rec     +++|*         MACROS ENDMS, MONITOR, SETMS, SFA.
01659  M01S01484.rec     +++|
01660  M01S01485.rec     +++|
01661  M01S01486.rec     +++| IDF      SUBR               ENTRY/EXIT
01662  M01S01487.rec     +++|          LDD    RS          CHECK RECOVERY STATUS
01663  M01S01488.rec     +++|          LPN    FLMK
01664  M01S01489.rec     +++|          LMN    FLCM
01665  M01S01490.rec     +++|          ZJN    IDFX        IF FILES RECOVERED FROM CM
01666  M01S01491.rec     +++|          LDN    0           CLEAR FST ADDRESS
01667  M01S01492.rec     +++|          STD    FA
01668  M01S01493.rec     +++|          STD    QS          CLEAR *USST* INDEX
01669  M01S01494.rec     +++|          LDN    ZERL
01670  M01S01495.rec     +++|          CRD    CM
01671  M01S01496.rec     +++|
01672  M01S01497.rec     +++|*         THE FIRST WORD OF THE SYSTEM DAYFILES BUFFER CONTAINS
01673  M01S01498.rec     +++|*         THE DAYFILE RECOVERY INFORMATION.
01674  M01S01499.rec     +++|
01675  M01S01500.rec     +++|          LDN    DFPP        SET FWA OF DAYFILE POINTERS
01676  M01S01501.rec     +++|          CRD    CN
01677  M01S01502.rec     +++|          LDD    CN
01678  M01S01503.rec     +++|          SHN    14
01679  M01S01504.rec     +++|          ADD    CN+1
01680  M01S01505.rec     +++|          CRD    FS
01681  M01S01506.rec     +++|          SBN    1           INITIALIZE DAYFILE STATUS WORD ADDRESS
01682  M01S01507.rec     +++|          STD    CN+1
01683  M01S01508.rec     +++|          SHN    -14
01684  M01S01509.rec     +++|          STD    CN
01685  M01S01510.rec     +++|          LCN    0           INITIALIZE DAYFILE INDEX
01686  M01S01511.rec     +++|          STD    CN+3
01687  M01S01512.rec     +++|          LDD    FS
01688  M01S01513.rec     +++|          SHN    14
01689  M01S01514.rec     +++|          LMD    FS+1
01690  M01S01515.rec     +++|          CRD    FN
01691  M01S01516.rec     +++|          CWD    CM
01692  M01S01517.rec     +++|          LDD    FN+1        CHECK ACCOUNT FILE RECOVERY INFORMATION
01693  M01S01518.rec     +++|          SHN    21-13
01694  M01S01519.rec     +++|          PJN    IDF1        IF RECOVERY SELECTED
01695  M01S01520.rec     +++|          SOM    RDBK
01696  M01S01521.rec     +++|          LCN    1RR-1RB     SET *ABSY* IN MESSAGE
01697  M01S01522.rec     +++|          RAM    RDBG
01698  M01S01523.rec     +++|
01699  M01S01524.rec     +++|*         LOOP TO PROCESS EACH DAYFILE.
01700  M01S01525.rec     +++|
01701  M01S01526.rec     +++| IDF1     AOD    CN+3        ADVANCE DAYFILE INDEX
01702  M01S01527.rec     +++|          LMN    EXDF
01703  M01S01528.rec     +++|          NJN    IDF2        IF NOT LAST OF EXCESS DAYFILES
01704  M01S01529.rec     +++|          LJM    IDFX        RETURN
01705  M01S01530.rec     +++|
01706  M01S01531.rec     +++| IDF2     LDN    3           SET STATUS WORD ADDRESS
01707  M01S01532.rec     +++|          RAD    CN+1
01708  M01S01533.rec     +++|          SHN    -14
01709  M01S01534.rec     +++|          RAD    CN
01710  M01S01535.rec     +++|          SHN    14
01711  M01S01536.rec     +++|          ADD    CN+1
01712  M01S01537.rec     +++|          CRD    FS          READ DAYFILE STATUS WORD
01713  M01S01538.rec     +++|          SBN    1           READ DAYFILE BUFFER LENGTH WORD
01714  M01S01539.rec     +++|          CRD    CM
01715  M01S01540.rec     +++|          LDD    CM+3
01716  M01S01541.rec     +++|          ZJN    IDF1        IF ZERO LENGTH BUFFER
01717  M01S01542.rec     +++|          STD    CM+2
01718  M01S01543.rec     +++|          LDN    0
01719  M01S01544.rec     +++|          STD    CM+3
01720  M01S01545.rec     +++|          LDD    CN          ACTIVATE DAYFILE
01721  M01S01546.rec     +++|          SHN    14
01722  M01S01547.rec     +++|          ADD    CN+1
01723  M01S01548.rec     +++|          SBN    1
01724  M01S01549.rec     +++|          CWD    CM
01725  M01S01550.rec     +++|
01726  M01S01551.rec     +++|*         PROCESS DAYFILE RECOVERY.
01727  M01S01552.rec     +++|
01728  M01S01553.rec     +++|          LDM    FN,CN+3     SET DAYFILE EST ORDINAL
01729  M01S01554.rec     +++|          LPC    777
01730  M01S01555.rec     +++|          STD    T5
01731  M01S01556.rec     +++|          LMN    NEEQ
01732  M01S01557.rec     +++|          ZJN    IDF3        IF DEFAULT EQUIPMENT
01733  M01S01558.rec     +++|          SFA    EST,T5      READ EST ENTRY
01734  M01S01559.rec     +++|          ADK    EQDE
01735  M01S01560.rec     +++|          CRD    CM
01736  M01S01561.rec     +++|          LDD    CM          CHECK EQUIPMENT
01737  M01S01562.rec     +++|          SHN    -6
01738  M01S01563.rec     +++|          LPN    45
01739  M01S01564.rec     +++|          LMN    40
01740  M01S01565.rec     +++|          ZJN    IDF4        IF MASS STORAGE, NOT REMOVABLE, AVAILABLE
01741  M01S01566.rec     +++| IDF3     LDM    RECF        DEFAULT TO SYSTEM DEVICE
01742  M01S01567.rec     +++|          STD    T5
01743  M01S01568.rec     +++| IDF4     RJM    IRA         INITIALIZE RANDOM ACCESS PROCESSORS
01744  M01S01569.rec     +++|          LDD    T5          SET EQUIPMENT IN FST
01745  M01S01570.rec     +++|          STD    FS
01746  M01S01571.rec     +++|          RJM    GDT         GET DAYFILE TRACKS
01747  M01S01572.rec     +++|          LDM    FN,CN+3
01748  M01S01573.rec     +++|          SHN    21-13
01749  M01S01574.rec     +++|          PJN    IDF6        IF RECOVERY OF DAYFILE SELECTED
01750  M01S01575.rec     +++| IDF5     LJM    IDF11       INITIALIZE DAYFILE
01751  M01S01576.rec     +++|
01752  M01S01577.rec     +++| IDF6     LDM    IDFD,CN+3   CHECK TRACK ASSIGNED
01753  M01S01578.rec     +++|          NJN    IDF7        IF TRACK ASSIGNED
01754  M01S01579.rec     +++|          LDD    T5          CHECK REQUESTED EQUIPMENT
01755  M01S01580.rec     +++|          LMM    FN,CN+3
01756  M01S01581.rec     +++|          LPC    777
01757  M01S01582.rec     +++|          NJN    IDF5        IF DEFAULT EQUIPMENT
01758  M01S01583.rec     +++|          LJM    IDF10       TRACK NOT ASSIGNED RECOVERY IMPOSSIBLE
01759  M01S01584.rec     +++|
01760  M01S01585.rec     +++|*         UPDATE RECOVERY INFORMATION IN SYSTEM SECTOR.
01761  M01S01586.rec     +++|
01762  M01S01587.rec     +++| IDF7     STD    T6
01763  M01S01588.rec     +++|          STD    FS+1
01764  M01S01589.rec     +++|          SETMS  IO,(SM,RW)
01765  M01S01590.rec     +++|          LDM    IDFB,CN+3
01766  M01S01591.rec     +++|          RJM    RSS         READ SYSTEM SECTOR
01767  M01S01592.rec     +++|          NJN    IDF8        IF INCORRECT SYSTEM SECTOR
01768  M01S01593.rec     +++|          ENDMS
01769  M01S00001.ns2669  +++|*         LDN    0           (FORCE CURRENT TRT)
01770  M01S01594.rec     +++|          RJM    SEI         SET CURRENT POSITION TO EOI
01771  M01S01595.rec     +++|          LDD    T6
01772  M01S01596.rec     +++|          STD    FS+2
01773  M01S01597.rec     +++|          LDD    T7
01774  M01S01598.rec     +++|          STD    FS+3        SET SECTOR
01775  M01S01599.rec     +++|          LDD    T2          SAVE LENGTH
01776  M01S01600.rec     +++|          STM    FLSS
01777  M01S01601.rec     +++|          LDD    T3
01778  M01S01602.rec     +++|          STM    FLSS+1
01779  M01S01603.rec     +++|          RJM    TLM         TERMINATE LAST MESSAGE
01780  M01S01604.rec     +++|          LDC    SBUF
01781  M01S01605.rec     +++|          RJM    RDS         READ EOI SECTOR
01782  M01S01606.rec     +++|          MJN    IDF9        IF READ ERROR
01783  M01S01607.rec     +++|          LDM    SBUF
01784  M01S01608.rec     +++|          ADM    SBUF+1
01785  M01S01609.rec     +++| IDF8     NJN    IDF9        IF NOT EOI
01786  M01S01610.rec     +++|          RJM    FMM         FORMAT MESSAGES
01787  M01S01611.rec     +++|          LJM    IDF15
01788  M01S01612.rec     +++|
01789  M01S01613.rec     +++|*         IF NO TRACK ASSIGNED, ERROR IN SYSTEM SECTOR
01790  M01S01614.rec     +++|*         OR ERROR IN EOI SECTOR.
01791  M01S01615.rec     +++|
01792  M01S01616.rec     +++| IDF9     ENDMS
01793  M01S01617.rec     +++| IDF10    RJM    IEM         ISSUE ERROR MESSAGE
01794  M01S01618.rec     +++|
01795  M01S01619.rec     +++|*         CREATE A NEW DAYFILE.
01796  M01S01620.rec     +++|
01797  M01S01621.rec     +++| IDF11    LDM    IDFD,CN+3
01798  M01S01622.rec     +++|          ZJN    IDF12       IF NO TRACK ASSIGNED
01799  M01S01623.rec     +++|          STD    CM+2
01800  M01S01624.rec     +++|          LDD    T5
01801  M01S01625.rec     +++|          STD    CM+1
01802  M01S01626.rec     +++|          MONITOR DTKM       DROP TRACKS
01803  M01S01627.rec     +++| IDF12    LDN    ZERL
01804  M01S01628.rec     +++|          CRD    CM
01805  M01S01629.rec     +++|          LDD    T5          SET EST ORDINAL
01806  M01S01630.rec     +++|          STD    CM+1
01807  M01S01631.rec     +++|          LMC    4000
01808  M01S01632.rec     +++|          STM    USST,QS
01809  M01S01633.rec     +++|          MONITOR RTCM       RESERVE TRACK CHAIN
01810  M01S01634.rec     +++|          LDD    CM+4        SET TRACK
01811  M01S01635.rec     +++|          STD    T6
01812  M01S01636.rec     +++|          STM    RDBF,CN+3
01813  M01S01637.rec     +++|          NJN    IDF13       IF TRACK ASSIGNED
01814  M01S01638.rec     +++|          LDD    T5          CONVERT UPPER TWO DIGITS OF EST ORDINAL
01815  M01S01639.rec     +++|          SHN    -3
01816  M01S01640.rec     +++|          RJM    C2D
01817  M01S01641.rec     +++|          STM    IDFC+1
01818  M01S01642.rec     +++|          LDD    T5          CONVERT LOWER DIGIT OF EST ORDINAL
01819  M01S01643.rec     +++|          LPN    7
01820  M01S01644.rec     +++|          SHN    6
01821  M01S01645.rec     +++|          ADC    2R0,
01822  M01S01646.rec     +++|          STM    IDFC+2
01823  M01S01647.rec     +++|          LDC    IDFC        *EQXXX, DAYFILE TRACK LIMIT.*
01824  M01S01648.rec     +++|          LJM    ERR
01825  M01S01649.rec     +++|
01826  M01S01650.rec     +++| IDF13    STM    USST+1,QS
01827  M01S01651.rec     +++|          STD    CM+2        SET PRESERVED FILE BIT
01828  M01S01652.rec     +++|          LDD    T5
01829  M01S01653.rec     +++|          STD    CM+1
01830  M01S01654.rec     +++|          LDN    SPFS
01831  M01S01655.rec     +++|          STD    CM+3
01832  M01S01656.rec     +++|          MONITOR STBM
01833  M01S01657.rec     +++|*         LDN    0           FORCE DEADSTART CHECKPOINT
01834  M01S01658.rec     +++|          STM    RECB
01835  M01S01659.rec     +++|          LDN    2           ADVANCE SYSTEM SECTOR UPDATE INDEX
01836  M01S01660.rec     +++|          RAD    QS
01837  M01S01661.rec     +++|          LDM    IDFB,CN+3   SET DAYFILE NAME
01838  M01S01662.rec     +++|          STM    IDFA
01839  M01S01663.rec     +++|          LDC    501-ETEI
01840  M01S01664.rec     +++|          STD    T1
01841  M01S01665.rec     +++| IDF14    LDN    0           CLEAR SYSTEM SECTOR / EOI BUFFER
01842  M01S01666.rec     +++|          STM    BFMS+ETEI,T1
01843  M01S01667.rec     +++|          SOD    T1
01844  M01S01668.rec     +++|          PJN    IDF14       LOOP UNTIL CLEAR
01845  M01S01669.rec     +++|          LDD    MA
01846  M01S01670.rec     +++|          CWM    *,ON
01847  M01S01671.rec     +++| IDFA     EQU    *-1
01848  M01S01672.rec     +++|          SBN    1
01849  M01S01673.rec     +++|          CRM    FNSS,ON
01850  M01S01674.rec     +++|          RJM    WSS         WRITE SYSTEM SECTOR
01851  M01S01675.rec     +++|          RJM    WEI         WRITE EOI
01852  M01S01676.rec     +++|          ENDMS
01853  M01S01677.rec     +++|          LDD    T5          SET EQUIPMENT
01854  M01S01678.rec     +++|          STD    FS
01855  M01S01679.rec     +++|          LMC    4000
01856  M01S01680.rec     +++|          STD    CM+1
01857  M01S01681.rec     +++|          LDD    T6          SET TRACK
01858  M01S01682.rec     +++|          STD    FS+1
01859  M01S01683.rec     +++|          STD    FS+2
01860  M01S01684.rec     +++|          LPC    3777
01861  M01S01685.rec     +++|          STD    CM+2
01862  M01S01686.rec     +++|          LDD    T7          SET SECTOR
01863  M01S01687.rec     +++|          STD    FS+3
01864  M01S01688.rec     +++|          STD    CM+3
01865  M01S01689.rec     +++|          MONITOR DTKM       SET EOI IN TRT
01866  M01S01690.rec     +++|
01867  M01S01691.rec     +++|*         COMPLETE PROCESSING FOR THIS DAYFILE.
01868  M01S01692.rec     +++|
01869  M01S01693.rec     +++| IDF15    ENDMS
01870  M01S01694.rec     +++|          LDD    CN          STORE DAYFILE FST
01871  M01S01695.rec     +++|          SHN    14
01872  M01S01696.rec     +++|          ADD    CN+1
01873  M01S01697.rec     +++|          CWD    FS
01874  M01S01698.rec     +++|          LJM    IDF1        LOOP FOR NEXT DAYFILE
01875  M01S01699.rec     +++|
01876  M01S01700.rec     +++|*         TABLE OF ADDRESSES FOR DAYFILE FNT ENTRIES.
01877  M01S01701.rec     +++|
01878  M01S01702.rec     +++| IDFB     BSS    0
01879  M01S01703.rec     +++|          CON    NDYF
01880  M01S01704.rec     +++|          CON    NACF
01881  M01S01705.rec     +++|          CON    NERL
01882  M01S01706.rec     +++|          CON    NBML
01883  M01S01707.rec     +++|
01884  M01S01708.rec     +++| IDFC     DATA   C*EQXXX, DAYFILE TRACK LIMIT.*
01885  M01S01709.rec     +++| IDFD     BSS    5           DAYFILES FIRST TRACK BUFFER
01886  M01S01710.rec     +++|
01887  M01S01711.rec     +++|*         DAYFILE FNT ENTRIES.
01888  M01S01712.rec     +++|
01889  M01S01713.rec     +++| NDYF     VFD    42/0LDAYFILE,6/1,6/LIFT,6/0
01890  M01S01714.rec     +++| NACF     VFD    42/0LACCOUNT,6/1,6/LIFT,6/0
01891  M01S01715.rec     +++| NERL     VFD    42/0LERRLOG,6/1,6/LIFT,6/0
01892  M01S01716.rec     +++| NBML     VFD    42/0LMAINLOG,6/1,6/LIFT,6/0
01893  M01S01717.rec     +++| IEM      SPACE  4
01894  M01S01718.rec     +++|**        IEM - ISSUE ERROR MESSAGE.
01895  M01S01719.rec     +++|*
01896  M01S01720.rec     +++|*         ENTRY  (CN+3) = DAYFILE INDEX.
01897  M01S01721.rec     +++|*
01898  M01S01722.rec     +++|*         USES   CM - CM+4.
01899  M01S01723.rec     +++|
01900  M01S01724.rec     +++|
01901  M01S01725.rec     +++| IEM      SUBR               ENTRY/EXIT
01902  M01S01726.rec     +++|          LDM    IDFB,CN+3
01903  M01S01727.rec     +++|          STM    IEMA
01904  M01S01728.rec     +++|          LDD    MA
01905  M01S01729.rec     +++|          CWM    *,ON        FILENAME FOR MESSAGE
01906  M01S01730.rec     +++| IEMA     EQU    *-1
01907  M01S01731.rec     +++|          SBN    1
01908  M01S01732.rec     +++|          CRM    IEMB,ON
01909  M01S01733.rec     +++|          LDC    2R          BLANK FILE NAME
01910  M01S01734.rec     +++|          STM    IEMB+4
01911  M01S01735.rec     +++|          LDM    IEMB+3
01912  M01S01736.rec     +++|          SCN    77
01913  M01S01737.rec     +++|          LMN    1R
01914  M01S01738.rec     +++|          STM    IEMB+3
01915  M01S01739.rec     +++|
01916  M01S01740.rec     +++|*         SET PAUSE BIT.
01917  M01S01741.rec     +++|
01918  M01S01742.rec     +++|          LDD    NC          SYSTEM CONTROL POINT
01919  M01S01743.rec     +++|          SHN    7
01920  M01S01744.rec     +++|          ADN    SNSW        SENSE SWITCH WORD
01921  M01S01745.rec     +++|          CRD    CM
01922  M01S01746.rec     +++|          STD    T1
01923  M01S01747.rec     +++|
01924  M01S01748.rec     +++|*         SET PAUSE BIT AND WAIT FOR OPERATOR ACTION.
01925  M01S01749.rec     +++|
01926  M01S01750.rec     +++|          LDD    CM+3
01927  M01S01751.rec     +++|          SCN    1
01928  M01S01752.rec     +++|          LMN    1
01929  M01S01753.rec     +++|          STD    CM+3
01930  M01S01754.rec     +++|          LDD    T1
01931  M01S01755.rec     +++|          CWD    CM
01932  M01S01756.rec     +++|          ADN    MS2W-SNSW
01933  M01S01757.rec     +++|          CWM    IEMB,TR
01934  M01S01758.rec     +++| IEM1     LDN    77
01935  M01S01759.rec     +++|          SBN    1
01936  M01S01760.rec     +++|          NJN    *-1         DELAY
01937  M01S01761.rec     +++|          LDD    T1
01938  M01S01762.rec     +++|          CRD    CM
01939  M01S01763.rec     +++|          LDD    CM+3
01940  M01S01764.rec     +++|          LPN    1
01941  M01S01765.rec     +++|          NJN    IEM1        IF PAUSE BIT STILL SET
01942  M01S01766.rec     +++|          LJM    IEMX        RETURN
01943  M01S01767.rec     +++|
01944  M01S01768.rec     +++|
01945  M01S01769.rec     +++| IEMB     DATA   C*DAYFILE   UNRECOVERABLE.*
01946  M01S01770.rec     +++| FMM      SPACE  4,15
01947  M01S01771.rec     +++|**        FMM - FORMAT MESSAGES.
01948  M01S01772.rec     +++|*
01949  M01S01773.rec     +++|*         ENTRY  CHANNEL RESERVED.
01950  M01S01774.rec     +++|*                (T5) = EST ORDINAL.
01951  M01S01775.rec     +++|*                (QS) = INDEX TO *USST* LIST.
01952  M01S01776.rec     +++|*                SYSTEM SECTOR AT BFMS.
01953  M01S01777.rec     +++|*                EOI SECTOR AT SBUF.
01954  M01S01778.rec     +++|*                (CN+3) = DAYFILE INDEX.
01955  M01S01779.rec     +++|*                (FS - FS+4) = DAYFILE STATUS WORD.
01956  M01S00002.ns2669  +++|*                *SETMS IO,RW* PERFORMED.
01957  M01S01780.rec     +++|*
01958  M01S01781.rec     +++|*         EXIT   SYSTEM SECTOR UPDATED.
01959  M01S01782.rec     +++|*                MESSAGE INFORMATION SAVED.
01960  M01S01783.rec     +++|*
01961  M01S01784.rec     +++|*         USES   T1, T2, T6, T7.
01962  M01S01785.rec     +++|*
01963  M01S01786.rec     +++|*         CALLS  WSS.
01964  M01S01787.rec     +++|
01965  M01S01788.rec     +++|
01966  M01S01789.rec     +++| FMM      SUBR               ENTRY/EXIT
01967  M01S01790.rec     +++|          LDD    CN+3        SAVE DATE AND TIME
01968  M01S01791.rec     +++|          SHN    2
01969  M01S01792.rec     +++|          ADD    CN+3
01970  M01S01793.rec     +++|          ADC    RDBA
01971  M01S01794.rec     +++|          STM    FMMA
01972  M01S01795.rec     +++|          ADN    RDBB-RDBA
01973  M01S01796.rec     +++|          STM    FMMC
01974  M01S01797.rec     +++|          ADN    RDBC-RDBB
01975  M01S01798.rec     +++|          STM    FMMB
01976  M01S01799.rec     +++|
01977  M01S01800.rec     +++|*         SAVE SYSTEM SECTOR CREATION DATE.
01978  M01S01801.rec     +++|
01979  M01S01802.rec     +++|          LDD    MA
01980  M01S01803.rec     +++|          CWM    BFMS+DTEI+2*5,ON
01981  M01S01804.rec     +++|          SBN    1
01982  M01S01805.rec     +++|          CRM    **,ON
01983  M01S01806.rec     +++| FMMA     EQU    *-1
01984  M01S01807.rec     +++|
01985  M01S01808.rec     +++|*         SAVE UPDATE TIME.
01986  M01S01809.rec     +++|
01987  M01S01810.rec     +++|          SBN    1
01988  M01S01811.rec     +++|          CWM    SBUF+DTEI+5,ON
01989  M01S01812.rec     +++|          SBN    1
01990  M01S01813.rec     +++|          CRM    **,ON
01991  M01S01814.rec     +++| FMMB     EQU    *-1
01992  M01S01815.rec     +++|
01993  M01S01816.rec     +++|*         SAVE UPDATE DATE.
01994  M01S01817.rec     +++|
01995  M01S01818.rec     +++|          SBN    1
01996  M01S01819.rec     +++|          CWM    SBUF+DTEI+2*5,ON
01997  M01S01820.rec     +++|          SBN    1
01998  M01S01821.rec     +++|          CRM    **,ON
01999  M01S01822.rec     +++| FMMC     EQU    *-1
02000  M01S01823.rec     +++|
02001  M01S01824.rec     +++|*         UPDATE SYSTEM SECTOR WITH NEW LENGTH.
02002  M01S01825.rec     +++|
02003  M01S01826.rec     +++|          SETMS  POSITION
02004  M01S01827.rec     +++|          LDM    FTSS        REWRITE SYSTEM SECTOR
02005  M01S01828.rec     +++|          STM    USST+1,QS
02006  M01S01829.rec     +++|          STD    T6
02007  M01S01830.rec     +++|          RJM    WSS
02008  M01S01831.rec     +++|          LDD    T5          SET RECOVERED DAYFILE IN *USST*
02009  M01S01832.rec     +++|          LMC    2000
02010  M01S01833.rec     +++|          STM    USST,QS
02011  M01S01834.rec     +++|          LDN    2
02012  M01S01835.rec     +++|          RAD    QS
02013  M01S01836.rec     +++|          LDD    FS+1        CHECK STATUS OF DAYFILE
02014  M01S01837.rec     +++|          LMD    FS+2
02015  M01S01838.rec     +++|          NJN    FMM1        IF BUFFER DUMPED TO DISK
02016  M01S01839.rec     +++|          LDD    FS+3
02017  M01S01840.rec     +++|          LMN    FSMS
02018  M01S01841.rec     +++|          NJN    FMM1        IF BUFFER DUMPED
02019  M01S01842.rec     +++|          LDD    T6          SET FIRST TRACK IN CREATION TABLE
02020  M01S01843.rec     +++|          STM    RDBF,CN+3
02021  M01S01844.rec     +++| FMM1     LJM    FMMX        RETURN
02022  M01S01845.rec     +++| GDT      SPACE  4,10
02023  M01S01846.rec     +++|**        GDT - GET DAYFILE TRACKS.
02024  M01S01847.rec     +++|*
02025  M01S01848.rec     +++|*         ENTRY  (T5) = EST ORDINAL.
02026  M01S01849.rec     +++|*
02027  M01S01850.rec     +++|*         EXIT   (IDFD) = FIRST TRACKS OF EXCESS DAYFILES.
02028  M01S01851.rec     +++|*                       = 0 IF NO DAYFILES ON DEVICE.
02029  M01S01852.rec     +++|*
02030  M01S01853.rec     +++|*         EREXIT TO *ERR* IF ERROR READING SECTOR OF LOCAL AREAS.
02031  M01S01854.rec     +++|*
02032  M01S01855.rec     +++|*         CALLS  C2D, RLA.
02033  M01S01856.rec     +++|
02034  M01S01857.rec     +++|
02035  M01S01858.rec     +++| GDT1     ZJN    GDT2        IF NO SECTOR OF LOCAL AREAS
02036  M01S01859.rec     +++|          STM    GDTA
02037  M01S01860.rec     +++|          LDD    MA          MOVE DAYFILE TRACKS TO DIRECT CELLS
02038  M01S01861.rec     +++|          CWM    *,ON
02039  M01S01862.rec     +++| GDTA     EQU    *-1
02040  M01S01863.rec     +++|          SBN    1
02041  M01S01864.rec     +++| GDT2     CRM    IDFD,ON
02042  M01S01865.rec     +++|
02043  M01S01866.rec     +++| GDT      SUBR               ENTRY/EXIT
02044  M01S01867.rec     +++|          RJM    RLA         READ LOCAL AREA SECTOR
02045  M01S01868.rec     +++|          PJN    GDT1        IF NO ERRORS
02046  M01S01869.rec     +++|          LDD    T5          CONVERT UPPER TWO DIGITS OF EST ORDINAL
02047  M01S01870.rec     +++|          SHN    -3
02048  M01S01871.rec     +++|          RJM    C2D
02049  M01S01872.rec     +++|          STM    GDTB+1      STORE IN MESSAGE
02050  M01S01873.rec     +++|          LDD    T5          CONVERT LOWER DIGIT OF EST ORDINAL
02051  M01S01874.rec     +++|          LPN    7
02052  M01S01875.rec     +++|          SHN    6
02053  M01S01876.rec     +++|          ADC    2R0,
02054  M01S01877.rec     +++|          STM    GDTB+2
02055  M01S01878.rec     +++|          LDC    GDTB        *EQXXX, LOCAL AREA SECTOR ERROR.*
02056  M01S01879.rec     +++|          LJM    ERR         DISPLAY MESSAGE AND HANG
02057  M01S01880.rec     +++|
02058  M01S01881.rec     +++| GDTB     DATA   C*EQXXX, LOCAL AREA SECTOR ERROR.*
02059  M01S01882.rec     +++| TLM      SPACE  4,15
02060  M01S01883.rec     +++|**        TLM - TERMINATE LAST DAYFILE MESSAGE.
02061  M01S01884.rec     +++|*
02062  M01S01885.rec     +++|*         ENTRY  (T5) = EST ORDINAL.
02063  M01S01886.rec     +++|*                (T6) = (FS+2) = EOI TRACK FOR DAYFILE.
02064  M01S01887.rec     +++|*                (T7) = (FS+3) = EOI SECTOR.
02065  M01S01888.rec     +++|*                (FS+1) = FIRST TRACK OF DAYFILE.
02066  M01S01889.rec     +++|*                (CN+3) = DAYFILE INDEX.
02067  M01S01890.rec     +++|*                (CN - CN+1) = FWA OF DAYFILE POINTERS.
02068  M01S01891.rec     +++|*                (T2 - T3) = DAYFILE LENGTH (SECTOR COUNT).
02069  M01S01892.rec     +++|*
02070  M01S01893.rec     +++|*         USES   T2, CM - CM+4.
02071  M01S01894.rec     +++|*
02072  M01S01895.rec     +++|*         CALLS  RDS, SNT.
02073  M01S01896.rec     +++|
02074  M01S01897.rec     +++|
02075  M01S01898.rec     +++| TLM      SUBR               ENTRY/EXIT
02076  M01S01899.rec     +++|          LDD    CN+3
02077  M01S01900.rec     +++|          LMN    MLDY
02078  M01S01901.rec     +++|          ZJN    TLMX        IF MAINTENANCE LOG
02079  M01S01902.rec     +++|          LDD    T3
02080  M01S01903.rec     +++|          LMN    FSMS
02081  M01S01904.rec     +++|          ADD    T2
02082  M01S01905.rec     +++|          ZJN    TLMX        IF DAYFILE EMPTY
02083  M01S01906.rec     +++|          SOD    T7
02084  M01S01907.rec     +++|          PJN    TLM2        IF EOI NOT ON TRACK BOUNDARY
02085  M01S01908.rec     +++|          LDD    FS+1
02086  M01S01909.rec     +++|          STD    T6
02087  M01S01910.rec     +++| TLM1     LDD    T6          SAVE CURRENT TRACK
02088  M01S01911.rec     +++|          STD    T2
02089  M01S01912.rec     +++|          RJM    SNT         SET NEXT TRACK
02090  M01S01913.rec     +++|          STD    T6
02091  M01S01914.rec     +++|          LMD    FS+2
02092  M01S01915.rec     +++|          NJN    TLM1        IF NOT EOI TRACK
02093  M01S01916.rec     +++|          LDD    T2
02094  M01S01917.rec     +++|          STD    T6
02095  M01S01918.rec     +++|          LDM    SLM         SET LAST DATA SECTOR
02096  M01S01919.rec     +++|          SBN    1
02097  M01S01920.rec     +++|          STD    T7
02098  M01S01921.rec     +++| TLM2     LDC    SBUF        READ LAST SECTOR OF DAYFILE DATA
02099  M01S01922.rec     +++|          RJM    RDS
02100  M01S01923.rec     +++|          MJN    TLM3        IF READ ERROR
02101  M01S01924.rec     +++|          LDM    SBUF+1
02102  M01S01925.rec     +++|          LMD    HN
02103  M01S01926.rec     +++|          NJN    TLM3        IF NOT FULL SECTOR (BUFFER FLUSHED)
02104  M01S01927.rec     +++|          LDM    SBUF+501
02105  M01S01928.rec     +++|          ZJN    TLM3        IF LAST MESSAGE COMPLETE
02106  M01S01929.rec     +++|          LDD    CN
02107  M01S01930.rec     +++|          SHN    14
02108  M01S01931.rec     +++|          ADD    CN+1
02109  M01S01932.rec     +++|          SBN    2
02110  M01S01933.rec     +++|          CRD    CM
02111  M01S01934.rec     +++|          AOD    CM+4        ADVANCE IN POINTER
02112  M01S01935.rec     +++|          LDD    CN
02113  M01S01936.rec     +++|          SHN    14
02114  M01S01937.rec     +++|          ADD    CN+1
02115  M01S01938.rec     +++|          SBN    2
02116  M01S01939.rec     +++|          CWD    CM
02117  M01S01940.rec     +++| TLM3     LDD    FS+2        RESTORE EOI ADDRESS
02118  M01S01941.rec     +++|          STD    T6
02119  M01S01942.rec     +++|          LDD    FS+3
02120  M01S01943.rec     +++|          STD    T7
02121  M01S01944.rec     +++|          LJM    TLMX        RETURN
02122  M01S01945.rec     +++| USS      SPACE  4
02123  M01S01946.rec     +++|**        USS - UPDATE SYSTEM SECTOR.
02124  M01S01947.rec     +++|*
02125  M01S01948.rec     +++|*         ENTRY  EST ORDINAL AND FIRST TRACK OF SELECTED DAYFILES
02126  M01S01949.rec     +++|*                STORED IN USST.
02127  M01S01950.rec     +++|*
02128  M01S01951.rec     +++|*         EXIT   DAYFILE SYSTEM SECTORS UPDATED WITH CURRENT TIME.
02129  M01S01952.rec     +++|*
02130  M01S01953.rec     +++|*         USES   T5, T6, QS.
02131  M01S01954.rec     +++|*
02132  M01S01955.rec     +++|*         CALLS  RSS, WSS.
02133  M01S01956.rec     +++|*
02134  M01S01957.rec     +++|*         MACROS ENDMS, SETMS.
02135  M01S01958.rec     +++|
02136  M01S01959.rec     +++|
02137  M01S01960.rec     +++| USS      SUBR               ENTRY/EXIT
02138  M01S01961.rec     +++|          LDN    0           CLEAR FILE INDEX
02139  M01S01962.rec     +++|          STD    QS
02140  M01S01963.rec     +++|          STD    FA
02141  M01S01964.rec     +++| USS1     LDM    USST,QS     CHECK FOR SELECTED EQUIPMENT
02142  M01S01965.rec     +++|          ZJN    USSX        IF END OF FILES
02143  M01S01966.rec     +++|          LPC    777
02144  M01S01967.rec     +++|          STD    T5
02145  M01S01968.rec     +++|          SETMS  IO,RW
02146  M01S01969.rec     +++|          LDM    USST+1,QS   SET FIRST TRACK
02147  M01S01970.rec     +++|          STD    T6
02148  M01S01971.rec     +++|          LDN    0           READ SYSTEM SECTOR
02149  M01S01972.rec     +++|          RJM    RSS
02150  M01S01973.rec     +++|          NJN    USS3        IF ERROR IN SYSTEM SECTOR
02151  M01S01974.rec     +++|          LDM    USST,QS
02152  M01S01975.rec     +++|          SHN    21-12
02153  M01S01976.rec     +++|          MJN    USS2        IF A RECOVERED DAYFILE
02154  M01S01977.rec     +++|          LDN    PDTL        ENTER CREATION DATE AND TIME
02155  M01S01978.rec     +++|          CRM    DTSS,TR
02156  M01S01979.rec     +++| USS2     RJM    WSS         UPDATE TIME IN SYSTEM SECTOR
02157  M01S01980.rec     +++| USS3     ENDMS
02158  M01S01981.rec     +++|          LDN    2
02159  M01S01982.rec     +++|          RAD    QS
02160  M01S01983.rec     +++|          LJM    USS1        LOOP FOR NEXT FILE
02161  M01S01984.rec     +++|
02162  M01S01985.rec     +++|
02163  M01S01986.rec     +++|**        TABLE OF DAYFILE SYSTEM SECTORS TO UPDATE.
02164  M01S01987.rec     +++|*         ENTRY = 2 WORDS, ZERO WORD TERMINATES THE TABLE.
02165  M01S01988.rec     +++|*
02166  M01S01989.rec     +++|*T, USST  3/FLAGS, 9/ ESTORD, 12/ FIRST TRACK
Figure USST

01112202123 FIRST TRACK ESTORDFLAGS

02167  M01S01990.rec     +++|*
02168  M01S01991.rec     +++|*         FLAGS -
02169  M01S01992.rec     +++|*                4 = NEW DAYFILE.
02170  M01S01993.rec     +++|*                2 = RECOVERED DAYFILE.
02171  M01S01994.rec     +++|
02172  M01S01995.rec     +++|
02173  M01S01996.rec     +++| USST     BSSZ   2*EXDF+1
02174  M01S01997.rec     +++|          SPACE  4
02175  M01S01998.rec     +++|*         COMMON DECKS.
02176  M01S01999.rec     +++|
02177  M01S02000.rec     +++|
02178  M01S02001.rec     +++|*CALL     COMPRLA
02179  M01S02002.rec     +++|          SPACE  4
02180  M01S02003.rec     +++|          USE    LITERALS
02181  M01S02004.rec     +++|
02182  M01S02005.rec     +++| SBUF     EQU    *           SCRATCH BUFFER
02183  M01S02006.rec     +++|          ERRNG  BFMS-SBUF-502  SCRATCH BUFFER OVERFLOW INTO *BFMS*
02184  M01S02007.rec     +++|          TTL    REC/4RB - ALLOCATE/RECOVER USER XM.
02185  M01S02008.rec     +++|          TITLE
02186  M01S02009.rec     +++|          QUAL   ECS
02187  M01S02010.rec     +++|          IDENT  4RB,ECSX
02188  M01S02011.rec     +++|*COMMENT  REC - ALLOCATE/RECOVER USER XM.
Line S02012 Modification History
M01 (Added by) rec
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
02189  M02S02012.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1976.
02190  M01S00003.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02191  M01S02013.rec     +++| 4RB      SPACE 4,10
02192  M01S02014.rec     +++|***       ECS - ALLOCATE/RECOVER USER EXTENDED MEMORY.
02193  M01S02015.rec     +++|*
02194  M01S02016.rec     +++|*                *ECS* PERFORMS THE ALLOCATION AND RECOVERY OF USER
02195  M01S02017.rec     +++|*         ACCESS EXTENDED MEMORY. THE ALLOCATED XM FOR USER DIRECT
02196  M01S02018.rec     +++|*         ACCESS IS MAINTAINED AS A PRESERVED FILE OF TYPE *LIFT* AND
02197  M01S02019.rec     +++|*         IS NAMED -**UECS.-.  THE FILE IS COMPOSED OF UP TO 5
02198  M01S02020.rec     +++|*         SUB-CHAINS.  THE FIRST SUB-CHAIN IS ONE TRACK LONG AND IS
02199  M01S02021.rec     +++|*         TO GUARANTEE A SYSTEM SECTOR FOR THE ENTIRE CHAIN.  EACH
02200  M01S02022.rec     +++|*         SUBSEQUENT SUB-CHAIN, UP TO 4, IS COMPOSED OF ENOUGH
02201  M01S02023.rec     +++|*         CONTINUOUS TRACKS TO MEET THE SPACE REQUIRMENTS OF ONE
02202  M01S02024.rec     +++|*         MACHINES DIRECT ACCESS AREA.  THE SYSTEM SECTOR CONTAINS
02203  M01S02025.rec     +++|*         INFORMATION DESCRIBING EACH SUB-CHAIN PRESENT.
02204  M01S02026.rec     +++| 4RB      SPACE  4,10
02205  M01S02027.rec     +++|***       OPERATOR MESSAGES.
02206  M01S00083.271l716 +++|*
02207  M01S00084.271l716 +++|*         **ECSM* ERROR CLEARING USER XM.* = A HARDWARE ERROR OCCURRED
02208  M01S00085.271l716 +++|*         WHILE ATTEMPTING TO CLEAR A JOB-S EXTENDED MEMORY FIELD
02209  M01S00086.271l716 +++|*         LENGTH.
02210  M01S02028.rec     +++|*
02211  M01S02029.rec     +++|*         *USER EXTENDED MEMORY IMPROPERLY ALLOCATED.* = AN
02212  M01S02030.rec     +++|*         INCONSISTENCY HAS BEEN DETECTED, BETWEEN THE REQUESTED USER
02213  M01S02031.rec     +++|*         EXTENDED MEMORY SPACE AND ALLOCATION INFORMATION IN THE
02214  M01S02032.rec     +++|*         SYSTEM SECTOR, WHILE ATTEMPTING TO RECOVER THE USER
02215  M01S02033.rec     +++|*         DIRECT ACCESS SPACE.
02216  M01S02034.rec     +++|*
02217  M01S02035.rec     +++|*         *USER EM SPACE UNAVAILABLE.* = THE AMOUNT
02218  M01S02036.rec     +++|*         REQUESTED FOR USER EXTENDED MEMORY (VIA THE *XM* ENTRY IN
02219  M01S02037.rec     +++|*         *EQPDECK*) IS NOT AVAILABLE.
02220  M01S02038.rec     +++|*
02221  M01S02039.rec     +++|*         *USER EXTENDED MEMORY SYSTEM SECTOR ERROR.* = AN ERROR WAS
02222  M01S02040.rec     +++|*         DETECTED WHILE READING THE SYSTEM SECTOR FOR THE USER
02223  M01S02041.rec     +++|*         EXTENDED MEMORY CHAIN.
Line S02042 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02224  M02S02042.271l716 ---|*
02225  M01S02043.rec     +++| 4RB      SPACE  4,10
02226  M01S02044.rec     +++|****      DIRECT CELL DEFINITIONS LOCAL TO *4RB*.
02227  M01S02045.rec     +++|
02228  M01S02046.rec     +++|
02229  M01S02047.rec     +++| T8       EQU    26          POINTER TO SUB-CHAIN ENTRY
02230  M01S02048.rec     +++| T9       EQU    27          CURRENT MACHINE ID
02231  M01S00087.271l716 +++| KA       EQU    QS          CP/PCP NUMBER
02232  M01S00088.271l716 +++| KB       EQU    QI          MCT ENTRY COUNT
02233  M01S00089.271l716 +++| AB       EQU    FN          CM WORD BUFFER
02234  M01S02049.rec     +++|
02235  M01S02050.rec     +++|****
02236  M01S02051.rec     +++| ECS      TITLE  MAIN PROCESSING ROUTINE.
02237  M01S02052.rec     +++| ECS      SPACE  4,10
02238  M01S02053.rec     +++|**        ECS - MAIN ROUTINE.
02239  M01S02054.rec     +++|
02240  M01S02055.rec     +++|
02241  M01S02056.rec     +++|          ORG    OVLA
02242  M01S02057.rec     +++| ECS      SUBR               ENTRY/EXIT
02243  M01S02058.rec     +++|          RJM    PRS         PRESET OVERLAY
02244  M01S02059.rec     +++|          LDM    TAXM
02245  M01S02060.rec     +++|          ZJN    ECS1        IF NO ENTRY FOR THIS MACHINE
02246  M01S02061.rec     +++|          LDM    TAXM+2      GET LENGTH OF USER EXTENDED MEMORY
02247  M01S02062.rec     +++|          STD    FS+2
02248  M01S02063.rec     +++| ECS1     RJM    SDI         INTERLOCK ECS
02249  M01S02064.rec     +++|          LDM    ECSE+ACGL*5+1  CHECK FOR FIRST TRACK OF UEC CHAIN
02250  M01S02065.rec     +++|          ZJN    ECS2        IF MST NOT INITIALIZED
02251  M01S02066.rec     +++|          LJM    ECS8        IF SOME USER ECS SPACE ALLOCATED
02252  M01S02067.rec     +++|
02253  M01S02068.rec     +++|*         INITIALIZE USER EXTENDED MEMORY CHAIN AND MST.
02254  M01S02069.rec     +++|
02255  M01S02070.rec     +++| ECS2     LDD    FS+2
02256  M01S02071.rec     +++|          ZJN    ECS4        IF NO USER ECS REQUESTED FOR THIS MACHINE
02257  M01S02072.rec     +++|          LDD    RS
02258  M01S02073.rec     +++|          NJN    ECS6        IF NOT LEVEL 0 DEADSTART
02259  M01S02074.rec     +++|          RJM    ISS         INITIALIZE SYSTEM SECTOR
02260  M01S02075.rec     +++|          LDM    ECSE+ACGL*5+1  END OF CURRENT CHAIN
02261  M01S02076.rec     +++|          STD    FS+4
02262  M01S02077.rec     +++|          LDC    BFMS+2+4*5  SET FIRST ENTRY POINTER
02263  M01S02078.rec     +++|          STD    T8
02264  M01S02079.rec     +++|
02265  M01S02080.rec     +++|*         ASSIGN USER EXTENDED MEMORY AREA.
02266  M01S02081.rec     +++|
02267  M01S02082.rec     +++| ECS3     RJM    ACE         ASSIGN TRACKS
02268  M01S02083.rec     +++|          RJM    SSS         STORE SYSTEM SECTOR
02269  M01S02084.rec     +++| ECS4     RJM    CDI         CLEAR INTERLOCK
02270  M01S02085.rec     +++| ECSA     RJM    SCP         SETUP CONTROL POINT AREAS
02271  M01S02086.rec     +++|*         UJN    *+2         (DURING MMF PROCESSING)
02272  M01S02087.rec     +++| ECS5     LDC    0
02273  M01S02088.rec     +++| ECSB     EQU    *-1
02274  M01S02089.rec     +++|          LMD    FS
02275  M01S02090.rec     +++|          ZJN    ECS7        IF ALLOCATING ON MMF LINK
02276  M01S02091.rec     +++| ECS5.1   LJM    ECSX        RETURN
02277  M01S02092.rec     +++|
02278  M01S02093.rec     +++|*         ERROR IN USER EXTENDED MEMORY ALLOCATION.
02279  M01S02094.rec     +++|
02280  M01S02095.rec     +++| ECS6     RJM    CDI         CLEAR INTERLOCK
02281  M01S02096.rec     +++|          LDC    =C*USER EXTENDED MEMORY IMPROPERLY ALLOCATED.*
02282  M01S02097.rec     +++|          LJM    HNG         ISSUE ERROR AND HANG
02283  M01S02098.rec     +++|
02284  M01S02099.rec     +++|*         SET UP TO PROCESS MULTIMAINFRAME ALLOCATION.
02285  M01S02100.rec     +++|
02286  M01S02101.rec     +++| ECS7     LDC    UJNI+2      SET MMF SWITCHES
02287  M01S02102.rec     +++|          STM    ECSA
02288  M01S02103.rec     +++|          LDD    HN
02289  M01S02104.rec     +++|          ERRNZ  100-LJMI    ADJUST IF VALUE CHANGES
02290  M01S02105.rec     +++|          STM    ECSC
02291  M01S02106.rec     +++|          LDC    ECS5
02292  M01S02107.rec     +++|          STM    ECSC+1
02293  M01S02108.rec     +++|          RJM    CAD         CLEAR THIS MACHINES ID AND DATA
02294  M01S02109.rec     +++|          RJM    FAD         FETCH NEW MACHINE ID AND DATA
02295  M01S02110.rec     +++|          ZJN    ECS5.1      IF NO MORE MACHINES TO ALLOCATE
02296  M01S02111.rec     +++|          STD    T9
02297  M01S02112.rec     +++|          LDM    2,T1        SET NEW USER EXTENDED MEMORY AREA LENGTH
02298  M01S02113.rec     +++|          STD    FS+2
02299  M01S02114.rec     +++|          LJM    ECS1        PROCESS ANOTHER MACHINE
02300  M01S02115.rec     +++|
02301  M01S02116.rec     +++|*         PROCESS EXISTING USER EXTENDED MEMORY CHAIN.
02302  M01S02117.rec     +++|
02303  M01S02118.rec     +++| ECS8     RJM    CDI         CLEAR INTERLOCK ON ECS
02304  M01S02119.rec     +++|          RJM    FSS         FETCH EXISTING SYSTEM SECTOR
02305  M01S02120.rec     +++|          RJM    FTM         FIND THIS MACHINES ENTRY
02306  M01S02121.rec     +++|          LDM    2,T8
02307  M01S02122.rec     +++|          NJN    ECS9        IF SPACE EXISTS FOR THIS MACHINE
02308  M01S02123.rec     +++|          LDD    FS+2
02309  M01S02124.rec     +++|          ZJN    ECS12       IF SPACE NOT REQUESTED FOR THIS MACHINE
02310  M01S02125.rec     +++|          LDD    RS
02311  M01S02126.rec     +++|          NJN    ECS10       IF NOT LEVEL 0, THEN ERROR
02312  M01S02127.rec     +++|          UJN    ECS14       LOCATE END OF USER EXTENDED MEMORY CHAIN
02313  M01S02128.rec     +++|
02314  M01S02129.rec     +++|*         PROCESS EXISTING SUB-CHAIN.
02315  M01S02130.rec     +++|
02316  M01S02131.rec     +++| ECS9     LDM    3,T8        SET RAE FROM SYSTEM SECTOR
02317  M01S02132.rec     +++|          STD    FS+3
02318  M01S02133.rec     +++|          LDM    1,T8        SET FIRST TRACK OF SUB CHAIN
02319  M01S02134.rec     +++|          STD    FS+1
02320  M01S02135.rec     +++|          LDD    FS+2
02321  M01S02136.rec     +++|          NJN    ECS13       IF SPACE REQUESTED
02322  M01S02137.rec     +++|          LDD    RS
02323  M01S02138.rec     +++|          ZJN    ECS11       IF LEVEL 0 DEADSTART
02324  M01S02139.rec     +++| ECS10    LJM    ECS6        REPORT ERROR
02325  M01S02140.rec     +++|
02326  M01S02141.rec     +++|*         RELEASE EXISTING SUB-CHAIN.
02327  M01S02142.rec     +++|
02328  M01S02143.rec     +++| ECS11    RJM    RLS         RELEASE SPACE
02329  M01S02144.rec     +++|          STD    T9          CLEAR SUB-CHAIN ENTRY
02330  M01S02145.rec     +++|          STD    FS+2
02331  M01S02146.rec     +++|          RJM    SSS         STORE UPDATED SYSTEM SECTOR
02332  M01S02147.rec     +++| ECS12    LJM    ECS4        COMPLETE PROCESSING
02333  M01S02148.rec     +++|
02334  M01S02149.rec     +++|*         UPDATE EXISTING SUB-CHAIN.
02335  M01S02150.rec     +++|
02336  M01S02151.rec     +++| ECS13    LDM    2,T8
02337  M01S02152.rec     +++|          SBD    FS+2
02338  M01S02153.rec     +++|          ZJN    ECS12       IF SPACE MATCHES
02339  M01S02154.rec     +++|          LDD    RS
02340  M01S02155.rec     +++|          NJN    ECS10       IF NOT LEVEL 0 DEADSTART, THEN ERROR
02341  M01S02156.rec     +++| ECSC     RJM    RLS         RELEASE SPACE
02342  M01S02157.rec     +++|*         LJM    ECS5        (DURING MMF PROCESSING)
02343  M01S02158.rec     +++|
02344  M01S02159.rec     +++|*         FIND LAST TRACK OF USER EXTENDED MEMORY CHAIN.
02345  M01S02160.rec     +++|
02346  M01S02161.rec     +++| ECS14    LDD    FS          SET EQUIPMENT
02347  M01S02162.rec     +++|          STD    T5
02348  M01S02163.rec     +++|          LDM    ECSE+ACGL*5+1  SET FIRST TRACK
02349  M01S02164.rec     +++|          STD    T6
02350  M01S02165.rec     +++|          RJM    IRA         INITIALIZE RANDOM ACCESS PROCESSORS
02351  M01S02166.rec     +++|          LDN    0           FORCE TRT UPDATE
02352  M01S02167.rec     +++|          RJM    SEI         SEARCH FOR EOI
02353  M01S02168.rec     +++|          LDD    T6          SET LAST TRACK
02354  M01S02169.rec     +++|          STD    FS+4
02355  M01S02170.rec     +++|          LJM    ECS3        ASSIGN TRACKS
02356  M01S02171.rec     +++|
02357  M01S02172.rec     +++|
02358  M01S02173.rec     +++| ECSE     BSS    3*5         BUFFER FOR MST GLOBAL WORDS
02359  M01S02174.rec     +++| ECSF     VFD    42/7H**UECS.,6/0,6/SYFT,6/0
02360  M01S02175.rec     +++|          TITLE  SUBROUTINES.
02361  M01S02176.rec     +++| ACE      SPACE  4,10
02362  M01S02177.rec     +++|**        ACE - ASSIGN CONTIGUOUS EXTENDED MEMORY TRACKS.
02363  M01S02178.rec     +++|*
02364  M01S02179.rec     +++|*         ENTRY  (FS) = EXTENDED MEMORY EST ORDINAL.
02365  M01S02180.rec     +++|*                (FS+2) = LENGTH OF USER EXTENDED MEMORY AREA / *EMBS*.
02366  M01S02181.rec     +++|*                (FS+4) = LAST TRACK OF CURRENT CHAIN.
02367  M01S02182.rec     +++|*
02368  M01S02183.rec     +++|*         EXIT   (FS+1) = FIRST TRACK OF SUB-CHAIN.
02369  M01S02184.rec     +++|*                (FS+3) = RA/*EMBS* OF USER EXTENDED MEMORY AREA.
02370  M01S02185.rec     +++|*                (FS+4) = LAST TRACK OF NEW SUB-CHAIN.
02371  M01S02186.rec     +++|*
02372  M01S02187.rec     +++|*         USES   CM - CM+7, CN - CN+4, FS+1 - FS+3, T0 - T7.
02373  M01S02188.rec     +++|*
02374  M01S02189.rec     +++|*         CALLS  CAT, CDI.
02375  M01S02190.rec     +++|
02376  M01S02191.rec     +++|
02377  M01S02192.rec     +++| ACE17    LDN    0           CLEAR FIELDS
02378  M01S02193.rec     +++|          STD    FS+1
02379  M01S02194.rec     +++|          STD    FS+3
02380  M01S02195.rec     +++|
02381  M01S02196.rec     +++| ACE      SUBR               ENTRY/EXIT
02382  M01S02197.rec     +++|          LDD    FS+2
02383  M01S02198.rec     +++|          ZJN    ACE17       IF NO USER EXTENDED MEMORY TO BE ALLOCATED
02384  M01S02199.rec     +++|          ADN    2
02385  M01S02200.rec     +++|          SHN    5
02386  M01S02201.rec     +++|          STD    T1          ALLOW FOR *EMBS* WORD BLOCKS
02387  M01S02202.rec     +++|          SHN    -14
02388  M01S02203.rec     +++|          STD    T6
02389  M01S02204.rec     +++|          LDN    0           TRACK COUNT = (FL*40) / 101
02390  M01S02205.rec     +++|          STD    T7
02391  M01S02206.rec     +++| ACE0     AOD    T7          ADVANCE TRACK COUNT
02392  M01S02207.rec     +++|          LDC    -101
02393  M01S02208.rec     +++|          RAD    T1
02394  M01S02209.rec     +++|          PJN    ACE0        IF NOT UNDERFLOW
02395  M01S02210.rec     +++|          AOD    T1
02396  M01S02211.rec     +++|          SOD    T6
02397  M01S02212.rec     +++|          PJN    ACE0        IF NOT END OF CONVERSION
02398  M01S02213.rec     +++|          LDN    17
02399  M01S02214.rec     +++| ACEB     SHN    -4          ADJUST FOR BLOCKING FACTOR
02400  M01S02215.rec     +++|*         SHN    -4+UESC-EMSC
02401  M01S02216.rec     +++|          RAD    T7
02402  M01S02217.rec     +++|          RJM    CDI         CLEAR INTERLOCK ON ECS
02403  M01S02218.rec     +++|          UJN    ACE2        ENTER LOOP
02404  M01S02219.rec     +++|
02405  M01S02220.rec     +++| ACE1     LDD    NC          WRITE MESSAGE TO SYSTEM CONTROL POINT
02406  M01S02221.rec     +++|          SHN    7
02407  M01S02222.rec     +++|          ADN    MS2W
02408  M01S02223.rec     +++|          CWM    =C*USER EM SPACE UNAVAILABLE.*,TR
02409  M01S02224.rec     +++| ACE2     PAUSE  NE
02410  M01S02225.rec     +++|          LCN    1           SET TO REQUEST ALL TRACKS
02411  M01S02226.rec     +++|          STD    CM+4
02412  M01S02227.rec     +++|          SHN    -14
02413  M01S02228.rec     +++|          STD    CM+3
02414  M01S02229.rec     +++|          LDD    FS          SET EST ORDINAL
02415  M01S02230.rec     +++|          STD    CM+1
02416  M01S02231.rec     +++|          LDD    FS+4        SET CURRENT TRACK
02417  M01S02232.rec     +++|          STD    CM+2
02418  M01S02233.rec     +++|          MONITOR RTCM       REQUEST ALL AVAILABLE ECS SPACE
02419  M01S02234.rec     +++|          LDD    CM+4
02420  M01S02235.rec     +++|          ZJN    ACE1        IF TRACKS NOT AVAILABLE
02421  M01S02236.rec     +++|          RJM    CAT         CALCULATE FWA OF TRT
02422  M01S02237.rec     +++|          STM    ACEA+1
02423  M01S02238.rec     +++|          SHN    -14
02424  M01S02239.rec     +++|          ADC    ADCI
02425  M01S02240.rec     +++|          STM    ACEA
02426  M01S02241.rec     +++|
02427  M01S02242.rec     +++|*         FIND BEST FITTING CONTIGUOUS TRACK CHAIN.
02428  M01S02243.rec     +++|*         (T0) = POINTER TO FIRST TRACK OF CHAIN UNDER CONSIDERATION.
02429  M01S02244.rec     +++|*         (T1) = FIRST TRACK OF CHAIN UNDER CONSIDERATION.
02430  M01S02245.rec     +++|*         (T2) = LENGTH OF CHAIN UNDER CONSIDERATION.
02431  M01S02246.rec     +++|*         (T3) = POINTER TO FIRST TRACK OF BEST FIT SO FAR.
02432  M01S02247.rec     +++|*         (T4) = FIRST TRACK OF BEST FIT SO FAR.
02433  M01S02248.rec     +++|*         (T5) = LENGTH OF BEST FIT SO FAR.
02434  M01S02249.rec     +++|*         (T6) = BYTE INDEX.
02435  M01S02250.rec     +++|*         (T7) = LENGTH OF TRACK CHAIN REQUESTED.
02436  M01S02251.rec     +++|*         (CM) = POINTER TO FIRST TRACK OF LONGEST CHAIN SO FAR.
02437  M01S02252.rec     +++|*         (CM+1) = FIRST TRACK OF LONGEST CHAIN SO FAR.
02438  M01S02253.rec     +++|*         (CM+2) = LENGTH OF LONGEST CHAIN SO FAR.
02439  M01S02254.rec     +++|
02440  M01S02255.rec     +++|          LDN    ZERL
02441  M01S02256.rec     +++|          CRD    T0
02442  M01S02257.rec     +++|          LDN    0
02443  M01S02258.rec     +++|          STD    CM
02444  M01S02259.rec     +++|          STD    CM+1
02445  M01S02260.rec     +++|          STD    CM+2
02446  M01S02261.rec     +++|          LDD    NC          CLEAR MESSAGE AT SYSTEM CONTROL POINT
02447  M01S02262.rec     +++|          SHN    7
02448  M01S02263.rec     +++|          ADN    MS2W
02449  M01S02264.rec     +++|          CWD    CM
02450  M01S02265.rec     +++|          LCN    0           PRESET AMOUNT OF SLOP IN BEST FIT
02451  M01S02266.rec     +++|          STD    T5
02452  M01S02267.rec     +++|          LDD    CM+4        SET FIRST TRACK
02453  M01S02268.rec     +++|          LJM    ACE9
02454  M01S02269.rec     +++|
02455  M01S02270.rec     +++|*         SCAN TRT FOR CONTIGUOUS TRACKS.
02456  M01S02271.rec     +++|
02457  M01S02272.rec     +++| ACE4     AOD    T2          INCREMENT LENGTH OF THIS CHAIN
02458  M01S02273.rec     +++|          LDD    CM+3        SET BYTE INDEX
02459  M01S02274.rec     +++|          LPN    3
02460  M01S02275.rec     +++|          STD    T6
02461  M01S02276.rec     +++|          NJN    ACE6        IF NOT POINTER TO NEW WORD
02462  M01S02277.rec     +++| ACE5     LDD    CM+3        READ NEW TRT WORD
02463  M01S02278.rec     +++|          SHN    -2
02464  M01S02279.rec     +++| ACEA     ADC    TRTS
02465  M01S02280.rec     +++|          CRD    CN
02466  M01S02281.rec     +++| ACE6     AOD    CM+3
02467  M01S02282.rec     +++|          LMM    CN,T6
02468  M01S02283.rec     +++|          ZJN    ACE4        IF CONTIGUOUS TRACK
02469  M01S02284.rec     +++|          LDD    T2          CHECK FOR LONGEST CHAIN
02470  M01S02285.rec     +++|          SBD    CM+2
02471  M01S02286.rec     +++|          MJN    ACE7        IF OLD TRACK CHAIN LONGER
02472  M01S02287.rec     +++|          RAD    CM+2        SET NEW LENGTH
02473  M01S02288.rec     +++|          LDD    T0          SET POINTER TO FIRST TRACK
02474  M01S02289.rec     +++|          STD    CM
02475  M01S02290.rec     +++|          LDD    T1          SET FIRST TRACK
02476  M01S02291.rec     +++|          STD    CM+1
02477  M01S02292.rec     +++| ACE7     LDD    T2          CHECK IF THIS CHAIN LONG ENOUGH
02478  M01S02293.rec     +++|          SBD    T7
02479  M01S02294.rec     +++|          MJN    ACE8        IF NOT LONG ENOUGH
02480  M01S02295.rec     +++|          SBD    T5          COMPARE AMOUNT OF SLOP
02481  M01S02296.rec     +++|          PJN    ACE8        IF OLD CHAIN HAS LESS SLOP
02482  M01S02297.rec     +++|          RAD    T5          SET NEW AMOUNT OF SLOP
02483  M01S02298.rec     +++|          LDD    T0          SET POINTER TO FIRST TRACK
02484  M01S02299.rec     +++|          STD    T3
02485  M01S02300.rec     +++|          LDD    T1          SET FIRST TRACK
02486  M01S02301.rec     +++|          STD    T4
02487  M01S02302.rec     +++| ACE8     SOD    CM+3        SET POINTER TO FIRST TRACK OF NEXT CHAIN
02488  M01S02303.rec     +++|          STD    T0
02489  M01S02304.rec     +++|          LDM    CN,T6       CHECK FOR EOI
02490  M01S02305.rec     +++| ACE9     SHN    6
02491  M01S02306.rec     +++|          PJN    ACE10       IF EOI
02492  M01S02307.rec     +++|          SHN    -6
02493  M01S02308.rec     +++|          STD    CM+3        SET FIRST TRACK OF NEXT CHAIN TO CHECK
02494  M01S02309.rec     +++|          STD    T1
02495  M01S02310.rec     +++|          LPN    3           SET BYTE INDEX
02496  M01S02311.rec     +++|          STD    T6
02497  M01S02312.rec     +++|          LDN    1
02498  M01S02313.rec     +++|          STD    T2
02499  M01S02314.rec     +++|          LJM    ACE5
02500  M01S02315.rec     +++|
02501  M01S02316.rec     +++|*         COMPLETE PROCESSING.
02502  M01S02317.rec     +++|
02503  M01S02318.rec     +++| ACE10    LDD    T7          ADJUST TRACK CHAIN LENGTH
02504  M01S02319.rec     +++|          RAD    T5
02505  M01S02320.rec     +++|          LDD    T4          CHECK IF LARGE ENOUGH CHAIN FOUND
02506  M01S02321.rec     +++|          NJN    ACE11       IF CHAIN FOUND
02507  M01S02322.rec     +++|          LDD    FS+4
02508  M01S02323.rec     +++|          UJN    ACE14       DROP SHORT TRACK TRAIN
02509  M01S02324.rec     +++|
02510  M01S02325.rec     +++|*         DROP UNUSED TRACKS.
02511  M01S02326.rec     +++|
02512  M01S02327.rec     +++| ACE11    LMD    CM+4
02513  M01S02328.rec     +++|          ZJN    ACE12       IF ONLY NEED TO DROP TRACKS OFF END
02514  M01S02329.rec     +++|          LDD    FS          SET EXTENDED MEMORY EQ NUMBER
02515  M01S02330.rec     +++|          STD    CM+1
02516  M01S02331.rec     +++|          LDD    FS+4        SET TRACK TO LINK TO
02517  M01S02332.rec     +++|          LPC    3777
02518  M01S02333.rec     +++|          STD    CM+2
02519  M01S02334.rec     +++|          LDD    T4          SET FIRST TRACK OF CONTIGUOUS CHAIN
02520  M01S02335.rec     +++|          STD    CM+3
02521  M01S02336.rec     +++|          LDD    T3          SET LAST TRACK TO DROP
02522  M01S02337.rec     +++|          STD    CM+4
02523  M01S02338.rec     +++|          MONITOR DLKM
02524  M01S02339.rec     +++| ACE12    LDD    T7          CHECK IF ALL REQUEST SPACE FOUND
02525  M01S02340.rec     +++|          SBD    T5
02526  M01S02341.rec     +++|          PJN    ACE13       DROP UNNEEDED TRACKS
02527  M01S02342.rec     +++|          RAD    T5
02528  M01S02343.rec     +++| ACE13    LDD    T4          COMPUTE LAST TRACK NEEDED IN CHAIN
02529  M01S02344.rec     +++|          ADD    T5
02530  M01S02345.rec     +++|          SBN    1
02531  M01S02346.rec     +++| ACE14    LPC    3777
02532  M01S02347.rec     +++|          STD    CM+2
02533  M01S02348.rec     +++|          LDD    FS          SET EXTENDED MEMORY EQ NUMBER
02534  M01S02349.rec     +++|          LMC    4000
02535  M01S02350.rec     +++|          STD    CM+1
02536  M01S02351.rec     +++|          LDN    0           SET SECTOR NUMBER
02537  M01S02352.rec     +++|          STD    CM+3
02538  M01S02353.rec     +++|          MONITOR DTKM       DROP TRACKS
02539  M01S02354.rec     +++|
02540  M01S02355.rec     +++|*         COMPUTE RA AND LAST TRACK OF USER EXTENDED MEMORY AREA.
02541  M01S02356.rec     +++|
02542  M01S02357.rec     +++|          LDD    T4          SET FIRST TRACK
02543  M01S02358.rec     +++|          NJN    ACE15       IF USER EXTENDED MEMORY SPACE FOUND
02544  M01S02359.rec     +++|          LJM    ISS2        REPORT ERROR
02545  M01S02360.rec     +++|
02546  M01S02361.rec     +++| ACE15    STD    FS+1
02547  M01S02362.rec     +++|          LPC    3777        COMPUTE USER EXTENDED MEMORY RA
02548  M01S02363.rec     +++|          STD    T6
02549  M01S02364.rec     +++|          SHN    6           *100
02550  M01S02365.rec     +++|          ADD    T6          *101
02551  M01S02366.rec     +++|          SHN    1           *202
02552  M01S02367.rec     +++|          ADN    77          ROUND TO NEAREST *EMBS* WORDS
02553  M01S02368.rec     +++|          SHN    -6
02554  M01S02369.rec     +++|          STD    FS+3        SET USER EXTENDED MEMORY RA
02555  M01S02370.rec     +++|          LDN    17          ROUND TO NEAREST *UEBS* WORDS
02556  M01S02371.rec     +++| ACEC     SHN    -4
02557  M01S02372.rec     +++|*         SHN    -4+UESC-EMSC
02558  M01S02373.rec     +++|          RAD    FS+3
02559  M01S02374.rec     +++|          LDD    T5          COMPUTE USER EXTENDED MEMORY FL
02560  M01S02375.rec     +++|          RAD    T6
02561  M01S02376.rec     +++|          STD    FS+4        SET LAST TRACK
02562  M01S02377.rec     +++|          SHN    6           *100
02563  M01S02378.rec     +++|          ADD    T6          *101
02564  M01S02379.rec     +++|          SHN    -5          *202/100
02565  M01S02380.rec     +++|          SBD    FS+3        SUBTRACT EXTENDED MEMORY RA
02566  M01S02381.rec     +++|          SBD    FS+2
02567  M01S02382.rec     +++|          PJN    ACE16       IF SUFFICIENT SPACE
02568  M01S02383.rec     +++|          LJM    ECS6        REPORT ERROR
02569  M01S02384.rec     +++|
02570  M01S02385.rec     +++| ACE16    LDC    3777        POINT TO LAST TRACK
02571  M01S02386.rec     +++|          RAD    FS+4
02572  M01S02387.rec     +++|          LJM    ACEX        RETURN
02573  M01S02388.rec     +++| CAD      SPACE  4,10
02574  M01S02389.rec     +++|**        CAD - CLEAR ALLOCATION DATA.
02575  M01S02390.rec     +++|*
02576  M01S02391.rec     +++|*         ENTRY  (T9) = ID OF MACHINE TO BE CLEARED.
02577  M01S02392.rec     +++|*
02578  M01S02393.rec     +++|*         USES   T1.
02579  M01S02394.rec     +++|
02580  M01S02395.rec     +++|
02581  M01S02396.rec     +++| CAD2     STI    T1          CLEAR ENTRY
02582  M01S02397.rec     +++|
02583  M01S02398.rec     +++| CAD      SUBR               ENTRY/EXIT
02584  M01S02399.rec     +++|          LDC    TAXM
02585  M01S02400.rec     +++|          STD    T1
02586  M01S02401.rec     +++| CAD1     LDI    T1
02587  M01S02402.rec     +++|          LMD    T9
02588  M01S02403.rec     +++|          ZJN    CAD2        IF MATCH FOUND
02589  M01S02404.rec     +++|          LDN    5
02590  M01S02405.rec     +++|          RAD    T1
02591  M01S02406.rec     +++|          LMC    TAXML
02592  M01S02407.rec     +++|          NJN    CAD1        LOOP
02593  M01S02408.rec     +++|          UJN    CADX        RETURN
02594  M01S02409.rec     +++| CAT      SPACE  4,10
02595  M01S02410.rec     +++|**        CAT - CALCULATE ADDRESS OF TRT.
02596  M01S02411.rec     +++|*
02597  M01S02412.rec     +++|*         ENTRY  (CATA) = EXTENDED MEMORY MST ADDRESS / 10.
02598  M01S02413.rec     +++|*
02599  M01S02414.rec     +++|*         EXIT   (A) = FWA OF TRT - 1000.
02600  M01S02415.rec     +++|*
02601  M01S02416.rec     +++|*         USES   T0 - T4.
02602  M01S02417.rec     +++|
02603  M01S02418.rec     +++|
02604  M01S02419.rec     +++| CAT      SUBR               ENTRY/EXIT
02605  M01S02420.rec     +++|          LDC    **          READ TRT ADDRESS FROM EXTENDED MEMORY MST
02606  M01S02421.rec     +++| CATA     EQU    *-1         (ECS MST ADDRESS)
02607  M01S02422.rec     +++|          SHN    3
02608  M01S02423.rec     +++|          ADN    TRLL
02609  M01S02424.rec     +++|          CRD    T0
02610  M01S02425.rec     +++|          LDD    T0+3
02611  M01S02426.rec     +++|          LPN    77
02612  M01S02427.rec     +++|          SHN    14
02613  M01S02428.rec     +++|          LMD    T0+4
02614  M01S02429.rec     +++|          SBD    TH          4000/4
02615  M01S02430.rec     +++|          UJN    CATX        RETURN
02616  M01S02431.rec     +++| CDI      SPACE  4,10
02617  M01S02432.rec     +++|**        CDI - CLEAR DEVICE INTERLOCK ON ECS.
02618  M01S02433.rec     +++|*
02619  M01S02434.rec     +++|*         ENTRY  (FS) = EXTENDED MEMORY EST ORDINAL.
02620  M01S02435.rec     +++|*
02621  M01S02436.rec     +++|*         EXIT   (DIFL) = 0.
02622  M01S02437.rec     +++|*
02623  M01S02438.rec     +++|*         USES   CM - CM+4.
02624  M01S02439.rec     +++|
02625  M01S02440.rec     +++|
02626  M01S02441.rec     +++| CDI      SUBR               ENTRY/EXIT
02627  M01S02442.rec     +++|          LDM    DIFL
02628  M01S02443.rec     +++|          ZJN    CDIX        IF INTERLOCK NOT SET
02629  M01S02444.rec     +++|          LDD    FS          SET EQUIPMENT
02630  M01S02445.rec     +++|          STD    CM+1
02631  M01S02446.rec     +++|          LDN    CDIS        SET FUNCTION
02632  M01S02447.rec     +++|          STD    CM+3
02633  M01S02448.rec     +++|          LDN    0
02634  M01S02449.rec     +++|          STD    CM+2
02635  M01S02450.rec     +++|          STD    CM+4
02636  M01S02451.rec     +++|          MONITOR STBM
02637  M01S02452.rec     +++|*         LDN    0           CLEAR INTERLOCK FLAG
02638  M01S02453.rec     +++|          STM    DIFL
02639  M01S02454.rec     +++|          UJN    CDIX        RETURN
02640  M01S00090.271l716 +++| CTE      SPACE  4,10
02641  M01S00091.271l716 +++|**        CTE - CREATE MEMORY CONTROL TABLE ENTRY.
02642  M01S00092.271l716 +++|*
02643  M01S00093.271l716 +++|*         ENTRY  (KA) = CP/PCP NUMBER.
02644  M01S00094.271l716 +++|*                (CN) = RAX BACKWARD LINK.
02645  M01S00095.271l716 +++|*                (CN+1) = RAX FORWARD LINK.
02646  M01S00096.271l716 +++|*
02647  M01S00097.271l716 +++|*         USES   AB - AB+4, CM - CM+4.
02648  M01S00098.271l716 +++|*
02649  M01S00099.271l716 +++|*         CALLS  SCA.
02650  M01S00100.271l716 +++|
02651  M01S00101.271l716 +++|
02652  M01S00102.271l716 +++| CTE      SUBR               ENTRY/EXIT
02653  M01S00103.271l716 +++|          LDD    KA
02654  M01S00104.271l716 +++|          RJM    SCA         SET CURRENT CPA/PCPA ADDRESS
02655  M01S00105.271l716 +++|          ADN    ECSW
02656  M01S00106.271l716 +++|          CRD    CM          READ MEMORY CONTROL WORD
02657  M01S00107.271l716 +++|          LDD    CM+4
02658  M01S00108.271l716 +++|          RAD    CM+3        FORM RAX + FLX
02659  M01S00109.271l716 +++|          SHN    -14
02660  M01S00110.271l716 +++|          RAD    CM+2        NEXT POTENTIAL RAX
02661  M01S00111.271l716 +++|          LDD    CN+1
02662  M01S00112.271l716 +++|          ZJN    CTE1        IF SYSTEM CP
02663  M01S00113.271l716 +++|          LMD    NC
02664  M01S00114.271l716 +++|          NJN    CTE2        IF NOT LINKED TO SYSTEM CP
02665  M01S00115.271l716 +++| CTE1     STD    CM+2
02666  M01S00116.271l716 +++|          UJN    CTE3        SET NO UNASSIGNED MEMORY
02667  M01S00117.271l716 +++|
02668  M01S00118.271l716 +++| CTE2     LDD    CN+1        GET FORWARD LINKED CP/PCP ADDRESS
02669  M01S00119.271l716 +++|          RJM    SCA
02670  M01S00120.271l716 +++|          ADN    ECSW        READ FL CONTROL WORD
02671  M01S00121.271l716 +++|          CRD    AB
02672  M01S00122.271l716 +++|          LDD    AB+2        RAX OF FORWARD LINK
02673  M01S00123.271l716 +++|          SHN    14
02674  M01S00124.271l716 +++|          LMD    AB+3
02675  M01S00125.271l716 +++|          SBD    CM+3        SUBTRACT CURRENT RAX + FLX
02676  M01S00126.271l716 +++| CTE3     STD    CN+4
02677  M01S00127.271l716 +++|          SHN    -14
02678  M01S00128.271l716 +++|          SBD    CM+2        SET UNASSIGNED MEMORY
02679  M01S00129.271l716 +++|          STD    CN+3
02680  M01S00130.271l716 +++|          LDD    KA          FORM CONTROL TABLE ADDRESS
02681  M01S00131.271l716 +++|          SHN    1
02682  M01S00132.271l716 +++|          ADC    1           STORE MCT WORD
02683  M01S00133.271l716 +++| CTEA     EQU    *-1
02684  M01S00134.271l716 +++|          CWD    CN
02685  M01S00135.271l716 +++|          UJP    CTEX        RETURN
02686  M01S02455.rec     +++| FAD      SPACE  4,10
02687  M01S02456.rec     +++|**        FAD - FETCH ALLOCATION DATA.
02688  M01S02457.rec     +++|*
02689  M01S02458.rec     +++|*         EXIT   (A) = ((T1)) = MACHINE ID,IF ONE FOUND.
02690  M01S02459.rec     +++|*                    = 0 IF NO ENTRIES IN ALLOCATION DATA.
02691  M01S02460.rec     +++|*
02692  M01S02461.rec     +++|*         USES   T1.
02693  M01S02462.rec     +++|
02694  M01S02463.rec     +++|
02695  M01S02464.rec     +++| FAD      SUBR               ENTRY/EXIT
02696  M01S02465.rec     +++|          LDC    TAXM
02697  M01S02466.rec     +++|          STD    T1
02698  M01S02467.rec     +++| FAD1     LDI    T1
02699  M01S02468.rec     +++|          NJN    FADX        IF ENTRY FOUND
02700  M01S02469.rec     +++|          LDN    5
02701  M01S02470.rec     +++|          RAD    T1
02702  M01S02471.rec     +++|          LMC    TAXML
02703  M01S02472.rec     +++|          ZJN    FADX        IF END OF SEARCH
02704  M01S02473.rec     +++|          UJN    FAD1        LOOP
02705  M01S02474.rec     +++| FSS      SPACE  4,10
02706  M01S02475.rec     +++|**        FSS - FETCH SYSTEM SECTOR FOR USER EXTENDED MEMORY CHAIN.
02707  M01S02476.rec     +++|*
02708  M01S02477.rec     +++|*         ENTRY  (ECSE) = MST GLOBAL WORDS.
02709  M01S02478.rec     +++|*                (FS) = EXTENDED MEMORY EST ORDINAL.
02710  M01S02479.rec     +++|*
02711  M01S02480.rec     +++|*         EXIT   (BFMS) = SYSTEM SECTOR FOR USER EXTENDED MEMORY CHAIN.
02712  M01S02481.rec     +++|*
02713  M01S02482.rec     +++|*         USES   T5, T6.
02714  M01S02483.rec     +++|*
02715  M01S02484.rec     +++|*         CALLS  CDI, RSS.
02716  M01S02485.rec     +++|
02717  M01S02486.rec     +++|
02718  M01S02487.rec     +++| FSS1     ENDMS
02719  M01S02488.rec     +++|
02720  M01S02489.rec     +++| FSS      SUBR               ENTRY/EXIT
02721  M01S02490.rec     +++|          LDD    FS          SET EST ORDINAL
02722  M01S02491.rec     +++|          STD    T5
02723  M01S02492.rec     +++|          LDM    ECSE+ACGL*5+1  SET FIRST TRACK
02724  M01S02493.rec     +++|          STD    T6
02725  M01S02494.rec     +++|          SETMS  IO
02726  M01S02495.rec     +++|          LDC    ECSF        READ SYSTEM SECTOR
02727  M01S02496.rec     +++|          RJM    RSS
02728  M01S02497.rec     +++|          ZJN    FSS1        IF NO ERROR IN SYSTEM SECTOR
02729  M01S02498.rec     +++|          RJM    CDI         CLEAR DEVICE INTERLOCK
02730  M01S02499.rec     +++|          LDC    =C*USER EXTENDED MEMORY SYSTEM SECTOR ERROR.*
02731  M01S02500.rec     +++|          UJN    HNG         ISSUE ERROR AND HANG
02732  M01S02501.rec     +++| FTM      SPACE  4,10
02733  M01S02502.rec     +++|**        FTM - FIND THIS MACHINES ID IN THE SYSTEM SECTOR.
02734  M01S02503.rec     +++|*
02735  M01S02504.rec     +++|*         ENTRY  (T9) = MACHINE ID TO BE FOUND.
02736  M01S02505.rec     +++|*                (BFMS) = SYSTEM SECTOR FOR USER EXTENDED MEMORY CHAIN.
02737  M01S02506.rec     +++|*
02738  M01S02507.rec     +++|*         EXIT   (T8) = POINTER TO THIS MACHINES ID OR POINTER TO THE
02739  M01S02508.rec     +++|*                       FIRST EMPTY SUB-CHAIN ENTRY.
02740  M01S02509.rec     +++|*                IF NO MATCH AND NO EMPTY ENTRY THEN EXIT TO *ECS6*
02741  M01S02510.rec     +++|*                TO REPORT ERROR CONDITION.
02742  M01S02511.rec     +++|*
02743  M01S02512.rec     +++|*         USES   T1, T8.
02744  M01S02513.rec     +++|
02745  M01S02514.rec     +++|
02746  M01S02515.rec     +++| FTM3     LDD    T1
02747  M01S02516.rec     +++|          NJN    FTM4        IF EMPTY ENTRY FOUND
02748  M01S02517.rec     +++|          LJM    ECS6        REPORT ERROR
02749  M01S02518.rec     +++|
02750  M01S02519.rec     +++| FTM4     STD    T8          SET POINTER TO EMPTY SUB-CHAIN
02751  M01S02520.rec     +++|
02752  M01S02521.rec     +++| FTM      SUBR               ENTRY/EXIT
02753  M01S02522.rec     +++|          LDC    BFMS+2+3*5  INITIALIZE POINTERS
02754  M01S02523.rec     +++|          STD    T8
02755  M01S02524.rec     +++|          LDN    0
02756  M01S02525.rec     +++|          STD    T1
02757  M01S02526.rec     +++| FTM1     LDN    5           INCREMENT POINTER
02758  M01S02527.rec     +++|          RAD    T8
02759  M01S02528.rec     +++|          LMC    BFMS+2+10*5
02760  M01S02529.rec     +++|          ZJN    FTM3        IF END OF SUB-CHAIN ENTRIES
02761  M01S02530.rec     +++|          LDI    T8
02762  M01S02531.rec     +++|          NJN    FTM2        IF NOT AN EMPTY ENTRY
02763  M01S02532.rec     +++|          LDD    T1
02764  M01S02533.rec     +++|          NJN    FTM1        IF FIRST EMPTY ENTRY ALREADY FOUND
02765  M01S02534.rec     +++|          LDD    T8          SET POINTER TO EMPTY ENTRY
02766  M01S02535.rec     +++|          STD    T1
02767  M01S02536.rec     +++|          UJN    FTM1        LOOP
02768  M01S02537.rec     +++|
02769  M01S02538.rec     +++| FTM2     LMD    T9
02770  M01S02539.rec     +++|          ZJN    FTMX        IF MATCH FOUND
02771  M01S02540.rec     +++|          UJN    FTM1        LOOP
02772  M01S02541.rec     +++| HNG      SPACE  4,10
02773  M01S02542.rec     +++|**        HNG - ISSUE MESSAGE AND HANG.
02774  M01S02543.rec     +++|*
02775  M01S02544.rec     +++|*         ENTRY  (A) = ERROR MESSAGE ADDRESS.
02776  M01S02545.rec     +++|
02777  M01S02546.rec     +++|
02778  M01S02547.rec     +++| HNG      STM    HNGA        SAVE MESSAGE ADDRESS
02779  M01S02548.rec     +++|          LDN    4
02780  M01S02549.rec     +++|          STD    T1
02781  M01S02550.rec     +++|          LDD    NC          WRITE MESSAGE TO SYSTEM CONTROL POINT
02782  M01S02551.rec     +++|          SHN    7
02783  M01S02552.rec     +++|          ADN    MS2W
02784  M01S02553.rec     +++|          CWM    **,T1
02785  M01S02554.rec     +++| HNGA     EQU    *-1
02786  M01S02555.rec     +++|          UJN    *           HANG
02787  M01S02556.rec     +++| ISS      SPACE  4,10
02788  M01S02557.rec     +++|**        ISS - INITIALIZE SYSTEM SECTOR FOR USER EXTENDED MEMORY AREA.
02789  M01S02558.rec     +++|*
02790  M01S02559.rec     +++|*         ENTRY  (FS) = EXTENDED MEMORY EST ORDINAL.
02791  M01S02560.rec     +++|*                (CATA) = EXTENDED MEMORY MST ADDRESS / 10.
02792  M01S02561.rec     +++|*                (ECSE) = GLOBAL MST WORDS.
02793  M01S02562.rec     +++|*
02794  M01S02563.rec     +++|*         EXIT   UPDATED GLOBAL MST STORED IN CENTRAL MEMORY.
02795  M01S02564.rec     +++|*                SYSTEM SECTOR INITIALIZED.
02796  M01S02565.rec     +++|*
02797  M01S02566.rec     +++|*         USES   CM - CM+4, FA, T1, T2, T5, T6.
02798  M01S02567.rec     +++|*
02799  M01S02568.rec     +++|*         CALLS  CDI, DCH, RCH, SDI, SMS, WEI, WSS.
02800  M01S02569.rec     +++|
02801  M01S02570.rec     +++|
02802  M01S02571.rec     +++| ISS      SUBR               ENTRY/EXIT
02803  M01S02572.rec     +++|          LDC    500         INITIALIZE TO CLEAR SYSTEM SECTOR
02804  M01S02573.rec     +++|          STD    T1
02805  M01S02574.rec     +++| ISS1     LDN    0           CLEAR SYSTEM SECTOR
02806  M01S02575.rec     +++|          STM    BFMS+2,T1
02807  M01S02576.rec     +++|          SOD    T1
02808  M01S02577.rec     +++|          NJN    ISS1        IF NOT TIME TO MOVE FNT ENTRY
02809  M01S02578.rec     +++|          STD    FA
02810  M01S02579.rec     +++|          LDD    MA          SET FNT ENTRY IN SYSTEM SECTOR
02811  M01S02580.rec     +++|          CWM    ECSF,ON
02812  M01S02581.rec     +++|          SBN    1
02813  M01S02582.rec     +++|          CRM    FNSS,ON
02814  M01S02583.rec     +++|          RJM    CDI         CLEAR INTERLOCK ON ECS
02815  M01S02584.rec     +++|          LDN    ZERL        REQUEST FIRST TRACK OF USER ECS CHAIN
02816  M01S02585.rec     +++|          CRD    CM
02817  M01S02586.rec     +++|          LDD    FS
02818  M01S02587.rec     +++|          STD    CM+1
02819  M01S02588.rec     +++|          STD    T5
02820  M01S02589.rec     +++|          MONITOR RTCM
02821  M01S02590.rec     +++|          LDD    CM+4
02822  M01S02591.rec     +++|          NJN    ISS3        IF TRACK ASSIGNED
02823  M01S02592.rec     +++| ISS2     LDC    =C*USER EXTENDED MEMORY SPACE UNAVAILABLE.*
02824  M01S02593.rec     +++|          LJM    HNG         ISSUE ERROR AND HANG
02825  M01S02594.rec     +++|
02826  M01S02595.rec     +++| ISS3     STD    T6
02827  M01S02596.rec     +++|          RJM    SDI         INTERLOCK ECS
02828  M01S02597.rec     +++|          LDD    T6
02829  M01S02598.rec     +++|          STM    ECSE+ACGL*5+1  SET FIRST TRACK IN GLOBAL DATA
02830  M01S02599.rec     +++|          LDM    CATA        SET FIRST TRACK IN MST
02831  M01S02600.rec     +++|          SHN    3
02832  M01S02601.rec     +++|          ADN    ACGL
02833  M01S02602.rec     +++|          CWM    ECSE+ACGL*5,ON
02834  M01S02603.rec     +++|          RJM    CDI         CLEAR INTERLOCK ON ECS
02835  M01S02604.rec     +++|          SETMS  IO
02836  M01S02605.rec     +++|          RJM    WSS         WRITE SYSTEM SECTOR
02837  M01S02606.rec     +++|          RJM    WEI         WRITE EOI
02838  M01S02607.rec     +++|          ENDMS
02839  M01S02608.rec     +++|          LDD    T6          PRESERVE USER EXTENDED MEMORY AREA
02840  M01S02609.rec     +++|          STD    CM+2
02841  M01S02610.rec     +++|          LDN    SPFS
02842  M01S02611.rec     +++|          STD    CM+3
02843  M01S02612.rec     +++|          LDD    FS          SET EXTENDED MEMORY EQUIPMENT
02844  M01S02613.rec     +++|          ADC    4000        SET CHECKPOINT REQUEST
02845  M01S02614.rec     +++|          STD    CM+1
02846  M01S02615.rec     +++|          MONITOR STBM
02847  M01S02616.rec     +++|          LJM    ISSX        RETURN
02848  M01S02617.rec     +++| RLS      SPACE  4,10
02849  M01S02618.rec     +++|**        RLS - RELEASE EXISTING USER EXTENDED MEMORY SUB-CHAIN.
02850  M01S02619.rec     +++|*
02851  M01S02620.rec     +++|*         ENTRY  (BFMS) = SYSTEM SECTOR FOR USER EXTENDED MEMORY CHAIN.
02852  M01S02621.rec     +++|*                (ECSE) = GLOBAL MST WORDS.
02853  M01S02622.rec     +++|*                (FS) = EXTENDED MEMORY EST ORDINAL.
02854  M01S02623.rec     +++|*                (T8) = POINTER TO SUB-CHAIN ENTRY TO BE RELEASED.
02855  M01S02624.rec     +++|*
02856  M01S02625.rec     +++|*         EXIT   (A) = (FS+1) = (FS+3) = (FS+4) = 0.
02857  M01S02626.rec     +++|*                TO *ECS6* IF UNABLE TO LOCATE PREDECESSOR TRACK FOR
02858  M01S02627.rec     +++|*                SUB-CHAIN TO BE RELEASED.
02859  M01S02628.rec     +++|*
02860  M01S02629.rec     +++|*         USES   CM - CM+4, T1, T3.
02861  M01S02630.rec     +++|*
02862  M01S02631.rec     +++|*         CALLS  CAT.
02863  M01S02632.rec     +++|
02864  M01S02633.rec     +++|
02865  M01S02634.rec     +++| RLS      SUBR               ENTRY/EXIT
02866  M01S02635.rec     +++|          RJM    CAT         CALCULATE FWA OF TRT
02867  M01S02636.rec     +++|          STM    RLSA+1
02868  M01S02637.rec     +++|          STM    RLSB+1
02869  M01S02638.rec     +++|          SHN    -14
02870  M01S02639.rec     +++|          LMC    ADCI
02871  M01S02640.rec     +++|          STM    RLSA
02872  M01S02641.rec     +++|          STM    RLSB
02873  M01S02642.rec     +++|          LDC    BFMS+2+3*5+4  INITIALIZE FOR SEARCH
02874  M01S02643.rec     +++|          STD    T3
02875  M01S02644.rec     +++|          LDM    ECSE+ACGL*5+1
02876  M01S02645.rec     +++|          STI    T3
02877  M01S02646.rec     +++|
02878  M01S02647.rec     +++|*         LOCATE PREDECESSOR TRACK OF SUB-CHAIN TO BE RELEASED.
02879  M01S02648.rec     +++|
02880  M01S02649.rec     +++| RLS1     LDI    T3          READ TRT WORD CONTAINING THIS TRACK
02881  M01S02650.rec     +++|          SHN    -2
02882  M01S02651.rec     +++| RLSA     ADC    TRTS
02883  M01S02652.rec     +++|          CRD    CM
02884  M01S02653.rec     +++|          LDI    T3          SET BYTE INDEX
02885  M01S02654.rec     +++|          LPN    3
02886  M01S02655.rec     +++|          STD    T1
02887  M01S02656.rec     +++|          LDM    CM,T1       CHECK LINK
02888  M01S02657.rec     +++|          LMM    1,T8
02889  M01S02658.rec     +++|          ZJN    RLS2        IF PREDECESSOR TRACK FOUND
02890  M01S02659.rec     +++|          LDN    5
02891  M01S02660.rec     +++|          RAD    T3
02892  M01S02661.rec     +++|          LMC    BFMS+2+10*5+4
02893  M01S02662.rec     +++|          NJN    RLS1        IF MORE ENTRIES TO SEARCH
02894  M01S02663.rec     +++|          LJM    ECS6        REPORT ERROR
02895  M01S02664.rec     +++|
02896  M01S02665.rec     +++|*         LOCATE SUCCESSOR TRACK TO SUB-CHAIN TO BE RELEASED.
02897  M01S02666.rec     +++|
02898  M01S02667.rec     +++| RLS2     LDM    4,T8        FIND TRACK TO LINK TO
02899  M01S02668.rec     +++|          SHN    -2
02900  M01S02669.rec     +++| RLSB     ADC    TRTS
02901  M01S02670.rec     +++|          CRD    CM
02902  M01S02671.rec     +++|          LDM    4,T8
02903  M01S02672.rec     +++|          LPN    3
02904  M01S02673.rec     +++|          STD    T1
02905  M01S02674.rec     +++|          LDM    CM,T1
02906  M01S02675.rec     +++|          SHN    21-13
02907  M01S02676.rec     +++|          PJN    RLS3        IF LAST TRACK IN CHAIN
02908  M01S02677.rec     +++|
02909  M01S02678.rec     +++|*         DELINK SUB-CHAIN.
02910  M01S02679.rec     +++|
02911  M01S02680.rec     +++|          SHN    -6          SET TRACK TO BE LINKED
02912  M01S02681.rec     +++|          STD    CM+3
02913  M01S02682.rec     +++|          LDI    T3          SET TRACK TO LINK TO
02914  M01S02683.rec     +++|          LPC    3777
02915  M01S02684.rec     +++|          STD    CM+2
02916  M01S02685.rec     +++|          LDM    4,T8        SET LAST TRACK TO DROP
02917  M01S02686.rec     +++|          STD    CM+4
02918  M01S02687.rec     +++|          LDD    FS          SET EST ORDINAL
02919  M01S02688.rec     +++|          ADC    4000        SET CHECKPOINT REQUEST
02920  M01S02689.rec     +++|          STD    CM+1
02921  M01S02690.rec     +++|          MONITOR DLKM
02922  M01S02691.rec     +++|          UJN    RLS4        COMPLETE PROCESSING
02923  M01S02692.rec     +++|
02924  M01S02693.rec     +++|*         DROP LAST SUB-CHAIN.
02925  M01S02694.rec     +++|
02926  M01S02695.rec     +++| RLS3     LDI    T3          GET PREDECESSOR TRACK
02927  M01S02696.rec     +++|          LPC    3777        SET TO DROP AFTER THIS TRACK
02928  M01S02697.rec     +++|          STD    CM+2
02929  M01S02698.rec     +++|          LDN    0
02930  M01S02699.rec     +++|          STD    CM+3
02931  M01S02700.rec     +++|          STD    CM+4
02932  M01S02701.rec     +++|          LDD    FS          SET EST ORDINAL
02933  M01S02702.rec     +++|          ADC    4000        SET CHECKPOINT REQUEST
02934  M01S02703.rec     +++|          STD    CM+1
02935  M01S02704.rec     +++|          MONITOR DTKM
02936  M01S02705.rec     +++|
02937  M01S02706.rec     +++|*         COMPLETE RELEASE SUB-CHAIN PROCESSING.
02938  M01S02707.rec     +++|
02939  M01S02708.rec     +++| RLS4     LDN    0           CLEAR TRACK POINTERS
02940  M01S02709.rec     +++|          STD    FS+1
02941  M01S02710.rec     +++|          STD    FS+4
02942  M01S02711.rec     +++|          STD    FS+3        CLEAR RA OF RELEASED SUB-CHAIN
02943  M01S02712.rec     +++|          LJM    RLSX        RETURN
02944  M01S02713.rec     +++| SCP      SPACE  4,10
02945  M01S02714.rec     +++|**        SCP - SETUP CONTROL POINT AREAS.
02946  M01S02715.rec     +++|*
02947  M01S02716.rec     +++|*         ENTRY  (FS+2) = LENGTH OF USER EXTENDED MEMORY AREA / *EMBS*.
02948  M01S02717.rec     +++|*                (FS+3) = RA/*EMBS* OF USER EXTENDED MEMORY AREA.
02949  M01S02718.rec     +++|*                (NC) = NUMBER OF CONTROL POINTS.
02950  M01S00136.271l716 +++|*                (NS) = NUMBER OF CP-S + PCP-S.
02951  M01S02719.rec     +++|*
02952  M01S02720.rec     +++|*         EXIT   *ECRL* SETUP IN CMR, ALL CONTROL POINT AREAS SETUP.
02953  M01S02721.rec     +++|*
Line S02722 Modification History
M01 (Added by) rec
M02 (Updated by) rec26
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02954  M03S02722.271l716 ---|*         USES   T7, CM - CM+4, FS+1 - FS+4.
02955  M01S00137.271l716 +++|*         USES   T1, T2, T7, CM - CM+4, FS+1 - FS+4.
02956  M01S00138.271l716 +++|*
02957  M01S00139.271l716 +++|*         CALLS  SMT.
Line S00001 Modification History
M01 (Added by) rec26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02958  M02S00001.271l716 ---|*         USES   T1, T2, T7, CM - CM+4, FS+1 - FS+4.
02959  M01S02723.rec     +++|
02960  M01S02724.rec     +++|
02961  M01S02725.rec     +++| SCP      SUBR               ENTRY/EXIT
02962  M01S02726.rec     +++|          LDD    FS+2
02963  M01S02727.rec     +++|          STD    FS+1
02964  M01S02728.rec     +++|          LDN    ECRL        COMPLETE BUILD OF *ECRL*
02965  M01S02729.rec     +++|          CRD    CM
02966  M01S02730.rec     +++|          LDN    0           CLEAR EXTENDED MEMORY EQUIPMENT
02967  M01S02731.rec     +++|          STD    CM
02968  M01S02732.rec     +++|          LDD    FS+3        SET USER EXTENDED MEMORY RA
02969  M01S02733.rec     +++| SCPA     SHN    0
02970  M01S02734.rec     +++|*         SHN    EMSC-UESC
02971  M01S02735.rec     +++|          STD    FS+3
02972  M01S02736.rec     +++|          STD    CM+3
02973  M01S02737.rec     +++|          SHN    -14
02974  M01S02738.rec     +++|          STD    FS+2
02975  M01S02739.rec     +++|          STD    CM+2
02976  M01S02740.rec     +++|          LDN    ECRL
02977  M01S02741.rec     +++|          CWD    CM
02978  M01S02742.rec     +++|          LDD    FS+1
02979  M01S02743.rec     +++|          ZJN    SCPX        IF NO USER ECS IN ECS EQUIPMENT
Line S02744 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02980  M02S02744.271l716 ---|          LDD    CM+4        SAVE USER ECS RESERVED FOR CP 0
Line S00002 Modification History
M01 (Added by) rec26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02981  M02S00002.271l716 ---|          STD    T2
Line S02745 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02982  M02S02745.271l716 ---|          STD    FS+4
Line S02746 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02983  M02S02746.271l716 ---|          LDN    ZERL        CLEAR WORK AREAS
02984  M01S00140.271l716 +++|          LDD    CM+4
02985  M01S00141.271l716 +++|          STD    FS+4        SAVE USER XM RESERVED FOR CP 0
02986  M01S00142.271l716 +++|          LDN    ZERL
02987  M01S02747.rec     +++|          CRD    CM
02988  M01S02748.rec     +++|          LDN    CPNS        SETUP CONTROL POINT AREAS
02989  M01S02749.rec     +++|          STD    T7
02990  M01S02750.rec     +++|          LDD    FS+2
02991  M01S02751.rec     +++|          SHN    14
02992  M01S02752.rec     +++|          ADD    FS+3        SET XM RA IN CONTROL POINT WORK AREA
02993  M01S02753.rec     +++|          ADD    FS+4
02994  M01S02754.rec     +++| SCP2     STD    CM+3
02995  M01S02755.rec     +++|          SHN    -14
02996  M01S02756.rec     +++|          STD    CM+2
02997  M01S02757.rec     +++| SCP3     LDD    T7          FORM CONTROL POINT ADDRESS
02998  M01S02758.rec     +++|          SHN    7
02999  M01S02759.rec     +++|          ADN    ECSW        SET ECS RA IN CONTROL POINT AREA
03000  M01S02760.rec     +++|          CWD    CM
03001  M01S02761.rec     +++|          AOD    T7
03002  M01S02762.rec     +++|          SBD    NC
Line S02763 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03003  M02S02763.271l716 ---|          PJN    SCP4        IF END OF CONTROL POINTS
Line S02764 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03004  M02S02764.271l716 ---|          ADN    1
Line S02765 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03005  M02S02765.271l716 ---|          MJN    SCP3        IF NOT AT LAST CONTROL POINT
Line S02766 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03006  M02S02766.271l716 ---|          LDD    FS+1        SET LAST CONTROL POINT RA = USER EM FL
03007  M01S00143.271l716 +++|          ZJN    SCP4        IF SYSTEM CP
03008  M01S00144.271l716 +++|          ADD    NC
03009  M01S00145.271l716 +++|          LMN    2
03010  M01S00146.271l716 +++|          NJN    SCP3        IF NOT SECOND CP
03011  M01S00147.271l716 +++|          LDD    FS+1
03012  M01S02767.rec     +++| SCPB     SHN    0
03013  M01S02768.rec     +++|*         SHN    EMSC-UESC
Line S02769 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03014  M02S02769.271l716 ---|          ADD    FS+3
03015  M01S00148.271l716 +++|          ADD    FS+3        ALLOCATE XM FL BETWEEN 1ST AND 2ND CP-S
03016  M01S02770.rec     +++|          SHN    6
03017  M01S02771.rec     +++|          LMD    FS+2
03018  M01S02772.rec     +++|          SHN    14
Line S02773 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03019  M02S02773.271l716 ---|          UJN    SCP2        SETUP LAST CONTROL POINT
03020  M01S00149.271l716 +++|          UJN    SCP2        SETUP SECOND CP AREA
03021  M01S02774.rec     +++|
03022  M01S02775.rec     +++| SCP4     LDD    FS+2        SETUP *ECSW* FOR SYSTEM CONTROL POINT
03023  M01S02776.rec     +++|          STD    CM+2
03024  M01S02777.rec     +++|          LDD    FS+3
03025  M01S02778.rec     +++|          STD    CM+3
03026  M01S02779.rec     +++|          LDD    FS+1
03027  M01S02780.rec     +++| SCPC     SHN    0
03028  M01S02781.rec     +++|*         SHN    EMSC-UESC
03029  M01S02782.rec     +++|          STD    CM+4
Line S02783 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03030  M02S02783.271l716 ---|          LDD    T7
03031  M01S00150.271l716 +++|          LDD    NC
03032  M01S02784.rec     +++|          SHN    7
03033  M01S02785.rec     +++|          ADN    ECSW
03034  M01S02786.rec     +++|          CWD    CM
03035  M01S00151.271l716 +++|          LDD    NS          SET NUMBER OF PSEUDO CONTROL POINTS
03036  M01S00152.271l716 +++|          SBD    NC
03037  M01S00153.271l716 +++|          ZJN    SCP6        IF NO PCP-S
03038  M01S00154.271l716 +++|          STD    T2
03039  M01S00155.271l716 +++|
03040  M01S00156.271l716 +++|*         SET UP PSEUDO CONTROL POINT AREAS.
03041  M01S00157.271l716 +++|
03042  M01S00158.271l716 +++|          LDD    NC          INITIALIZE PCP NUMBER
03043  M01S00159.271l716 +++|          STD    T1
03044  M01S00160.271l716 +++|          SBN    CPLK        CP LINK TO PCP-S
03045  M01S00161.271l716 +++|          SHN    7
03046  M01S00162.271l716 +++|          ADN    ECSW        GET FLX CONTROL WORD
03047  M01S00163.271l716 +++|          CRD    CM
03048  M01S00164.271l716 +++| SCP5     AOD    T1          ADVANCE AND SET PCPA ADDRESS
03049  M01S00165.271l716 +++|          RJM    SCA
03050  M01S00166.271l716 +++|          ADN    ECSW        STORE FLX CONTROL WORD
03051  M01S00167.271l716 +++|          CWD    CM
03052  M01S00168.271l716 +++|          SOD    T2
03053  M01S00169.271l716 +++|          NJN    SCP5        IF MORE PCP-S
03054  M01S00170.271l716 +++| SCP6     RJM    SMT
03055  M01S00171.271l716 +++|          LDN    ACML
03056  M01S00172.271l716 +++|          CRD    CM
03057  M01S00173.271l716 +++|          LDD    FS+1        SET UNASSIGNED USER XM
03058  M01S00001.rec30   +++| SCPF     SHN    0
03059  M01S00002.rec30   +++|*         SHN    EMSC-UESC
03060  M01S00003.rec30   +++|          SBD    FS+4        ADJUST FOR USER XM RESERVED FOR CP 0
03061  M01S00174.271l716 +++|          STD    CM+3
03062  M01S00175.271l716 +++|          LDN    ACML        STORE AVAILABLE USER XM
03063  M01S00176.271l716 +++|          CWD    CM
Line S02787 Modification History
M01 (Added by) rec
M02 (Updated by) rec26
Seq #  *Modification Id* Act 
----------------------------+
03064  M02S02787.rec26   ---|          LJM    SCPX        RETURN
Line S00003 Modification History
M01 (Added by) rec26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03065  M02S00003.271l716 ---|          LDD    T2
Line S00004 Modification History
M01 (Added by) rec26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03066  M02S00004.271l716 ---|          ZJP    SCP6        IF NO ECS FOR CONTROL POINT ZERO
Line S00005 Modification History
M01 (Added by) rec26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03067  M02S00005.271l716 ---|          SHN    11          CONVERT TO WORDS
03068  M01S00177.271l716 +++|          LDD    FS+4
03069  M01S00178.271l716 +++|          NJN    SCP8        IF USER XM FOR CP 0
03070  M01S00179.271l716 +++| SCP7     LJM    SCPX        RETURN
03071  M01S00180.271l716 +++|
03072  M01S00181.271l716 +++| SCP8     SHN    11          CONVERT TO WORD COUNT
03073  M01S00006.rec26   +++| SCPD     SHN    0
03074  M01S00007.rec26   +++|*         SHN    EMSC-UESC
03075  M01S00008.rec26   +++|          STD    T2
03076  M01S00009.rec26   +++|          SHN    -14
03077  M01S00010.rec26   +++|          STD    T1
03078  M01S00011.rec26   +++|          LDN    ZERL        CLEAR THE MESSAGE BUFFER
03079  M01S00012.rec26   +++|          CRD    CM
03080  M01S00013.rec26   +++|          LDD    MA
03081  M01S00014.rec26   +++|          CWM    CM,ON
03082  M01S00015.rec26   +++|          CWM    CM,ON
03083  M01S00016.rec26   +++|          CWM    CM,ON
03084  M01S00017.rec26   +++|          CWM    CM,ON
Line S00018 Modification History
M01 (Added by) rec26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03085  M02S00018.271l716 ---| SCP5     LDD    T1          CLEAR THE ECS BUFFER
03086  M01S00182.271l716 +++| SCP9     LDD    T1          CLEAR XM BUFFER
03087  M01S00019.rec26   +++|          SHN    14
03088  M01S00020.rec26   +++|          LMD    T2
03089  M01S00021.rec26   +++|          SBN    4
Line S00022 Modification History
M01 (Added by) rec26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03090  M02S00022.271l716 ---|          MJN    SCP6        IF END OF BUFFER
03091  M01S00183.271l716 +++|          MJN    SCP7        IF END OF BUFFER
03092  M01S00023.rec26   +++|          STD    CM+4
03093  M01S00024.rec26   +++|          STD    T2
03094  M01S00025.rec26   +++|          SHN    -14
03095  M01S00026.rec26   +++|          STD    T1
03096  M01S00027.rec26   +++|          LMC    WRES*1000   MERGE SUBFUNCTION
03097  M01S00028.rec26   +++|          STD    CM+3
03098  M01S00029.rec26   +++|          LDD    MA          SET CM ADDRESS
03099  M01S00030.rec26   +++|          STD    CM+2
03100  M01S00031.rec26   +++|          LDC    300         SET WORD COUNT-1
03101  M01S00032.rec26   +++|          STD    CM+1
03102  M01S00033.rec26   +++|          MONITOR  ECSM
03103  M01S00034.rec26   +++|          LDD    CM+1
Line S00035 Modification History
M01 (Added by) rec26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03104  M02S00035.271l716 ---|          NJN    *           IF ERROR
Line S00036 Modification History
M01 (Added by) rec26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03105  M02S00036.271l716 ---|          UJN    SCP5        LOOP ON CLEAR
Line S00037 Modification History
M01 (Added by) rec26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03106  M02S00037.271l716 ---|
Line S00038 Modification History
M01 (Added by) rec26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03107  M02S00038.271l716 ---| SCP6     LJM    SCPX        RETURN
03108  M01S00184.271l716 +++|          ZJN    SCP9        IF NO ERROR
03109  M01S00185.271l716 +++|          LDC    SCPE
03110  M01S00186.271l716 +++|          RJM    ERR         DISPLAY MESSAGE AND HANG
03111  M01S00187.271l716 +++|
03112  M01S00188.271l716 +++|
03113  M01S00189.271l716 +++| SCPE     DATA   C+*ECSM* ERROR CLEARING USER XM.+
03114  M01S02788.rec     +++| SDI      SPACE  4,10
03115  M01S02789.rec     +++|**        SDI - SET DEVICE INTERLOCK ON ECS.
03116  M01S02790.rec     +++|*
03117  M01S02791.rec     +++|*         ENTRY  (FS) = EXTENDED MEMORY EST ORDINAL.
03118  M01S02792.rec     +++|*
03119  M01S02793.rec     +++|*         EXIT   (ECSE) = MST GLOBAL WORDS.
03120  M01S02794.rec     +++|*                (CATA) = EXTENDED MEMORY MST ADDRESS / 10.
03121  M01S02795.rec     +++|*                (DIFL) = 1.
03122  M01S02796.rec     +++|*
03123  M01S02797.rec     +++|*         USES   CM - CM+4.
03124  M01S02798.rec     +++|*
03125  M01S02799.rec     +++|*         MACROS MONITOR, SFA.
03126  M01S02800.rec     +++|
03127  M01S02801.rec     +++|
03128  M01S02802.rec     +++| SDI1     SFA    EST,FS
03129  M01S02803.rec     +++|          ADK    EQDE
03130  M01S02804.rec     +++|          CRD    CM
03131  M01S02805.rec     +++|          LDD    CM+4        READ MST GLOBAL WORDS
03132  M01S02806.rec     +++|          STM    CATA
03133  M01S02807.rec     +++|          SHN    3
03134  M01S02808.rec     +++|          ADK    TDGL
03135  M01S02809.rec     +++|          CRM    ECSE,TR
03136  M01S02810.rec     +++|
03137  M01S02811.rec     +++| SDI      SUBR               ENTRY/EXIT
03138  M01S02812.rec     +++|          LDC    0
03139  M01S02813.rec     +++| DIFL     EQU    *-1         DEVICE INTERLOCKED FLAG (CLEARED BY *CDI*)
03140  M01S02814.rec     +++|          NJN    SDI1        IF DEVICE INTERLOCKED
03141  M01S02815.rec     +++|          STD    CM+2
03142  M01S02816.rec     +++|          STD    CM+4
03143  M01S02817.rec     +++|          LDD    FS          SET EQUIPMENT
03144  M01S02818.rec     +++|          STD    CM+1
03145  M01S02819.rec     +++|          LDN    SDIS        SET FUNCTION
03146  M01S02820.rec     +++|          STD    CM+3
03147  M01S02821.rec     +++|          MONITOR STBM
03148  M01S02822.rec     +++|          AOM    DIFL        SET INTERLOCKED FLAG
03149  M01S02823.rec     +++|          UJN    SDI1        READ MST GLOBAL WORDS
03150  M01S00190.271l716 +++| SMT      SPACE  4,10
03151  M01S00191.271l716 +++|**        SMT - SETUP MEMORY CONTROL TABLE.
03152  M01S00192.271l716 +++|*
03153  M01S00193.271l716 +++|*         ENTRY  (NC) = SYSTEM CP NUMBER.
03154  M01S00194.271l716 +++|*                (NS) = NUMBER OF CP-S + PCP-S.
03155  M01S00195.271l716 +++|*
03156  M01S00196.271l716 +++|*         USES   T5, KA, KB, CN - CN+4.
03157  M01S00197.271l716 +++|*
03158  M01S00198.271l716 +++|*         CALLS  CTE.
03159  M01S00199.271l716 +++|
03160  M01S00200.271l716 +++|
03161  M01S00201.271l716 +++| SMT      SUBR               ENTRY/EXIT
03162  M01S00202.271l716 +++|          LDN    0
03163  M01S00203.271l716 +++|          STD    KA          INITIALIZE CP NUMBER
03164  M01S00204.271l716 +++|          CRD    CN
03165  M01S00205.271l716 +++|          LDD    NS          SET MCT ENTRY COUNT
03166  M01S00206.271l716 +++|          ADN    1
03167  M01S00207.271l716 +++|          STD    KB          INCLUDE CP-0
03168  M01S00208.271l716 +++|          STD    T5
03169  M01S00209.271l716 +++| SMT1     LDD    KA
03170  M01S00210.271l716 +++|          STD    CN          SET BACKWARD LINK
03171  M01S00211.271l716 +++|          LDD    CN+1
03172  M01S00212.271l716 +++|          STD    KA          CURRENT = PREVIOUS FORWARD LINK
03173  M01S00213.271l716 +++|          LMD    NC
03174  M01S00214.271l716 +++|          ZJN    SMT3        IF CREATING ENTRY FOR SYSTEM CP
03175  M01S00215.271l716 +++|          AOD    CN+1
03176  M01S00216.271l716 +++|          ADN    CPLK        CHECK NEW FORWARD LINK
03177  M01S00217.271l716 +++|          SBD    NC
03178  M01S00218.271l716 +++|          NJN    SMT2        IF NOT CP TO LINK TO PCP-S
03179  M01S00219.271l716 +++|          LDD    NC
03180  M01S00220.271l716 +++|          ADN    1           SET FIRST PCP NUMBER
03181  M01S00221.271l716 +++|          STD    CN+1
03182  M01S00222.271l716 +++| SMT2     LDD    CN+1        CHECK NEW FORWARD LINK
03183  M01S00223.271l716 +++|          LMD    T5
03184  M01S00224.271l716 +++|          NJN    SMT4        IF NOT LINKING OUT OF PCP-S
03185  M01S00225.271l716 +++|          LDD    NC
03186  M01S00226.271l716 +++|          SBN    CPLK        SET FORWARD LINK TO REAL CP
03187  M01S00227.271l716 +++| SMT3     STD    CN+1
03188  M01S00228.271l716 +++| SMT4     RJM    CTE         CREATE TABLE ENTRY FOR XM
03189  M01S00229.271l716 +++|          SOD    KB
03190  M01S00230.271l716 +++|          NJN    SMT1        IF NOT END OF TABLE
03191  M01S00231.271l716 +++|          UJP    SMTX        RETURN
03192  M01S02824.rec     +++| SSS      SPACE  4,10
03193  M01S02825.rec     +++|**        SSS - STORE SYSTEM SECTOR FOR USER EXTENDED MEMORY CHAIN.
03194  M01S02826.rec     +++|*
03195  M01S02827.rec     +++|*         ENTRY  (ECSE) = MST GLOBAL WORDS.
03196  M01S02828.rec     +++|*                (FS) = EXTENDED MEMORY EST ORDINAL.
03197  M01S02829.rec     +++|*                (FS+1) = FIRST TRACK OF SUB-CHAIN.
03198  M01S02830.rec     +++|*                (FS+2) = LENGTH OF USER EXTENDED MEMORY AREA.
03199  M01S02831.rec     +++|*                (FS+3) = RA OF USER EXTENDED MEMORY AREA.
03200  M01S02832.rec     +++|*                (FS+4) = LAST TRACK OF SUB-CHAIN.
03201  M01S02833.rec     +++|*                (T8) = POINTER TO SUB-CHAIN DESCRIPTOR ENTRY.
03202  M01S02834.rec     +++|*                (T9) = MMF MACHINE ID FOR CHAIN.
03203  M01S02835.rec     +++|*                     = 0 IF SUB-CHAIN ENTRY TO BE CLEARED.
03204  M01S02836.rec     +++|*
03205  M01S02837.rec     +++|*         EXIT   SYSTEM SECTOR UPDATED WITH NEW INFORMATION.
03206  M01S02838.rec     +++|*
03207  M01S02839.rec     +++|*         USES   FA, T5, T6.
03208  M01S02840.rec     +++|*
03209  M01S02841.rec     +++|*         CALLS  WSS.
03210  M01S02842.rec     +++|*
03211  M01S02843.rec     +++|*         MACROS ENDMS, SETMS.
03212  M01S02844.rec     +++|
03213  M01S02845.rec     +++|
03214  M01S02846.rec     +++| SSS      SUBR               ENTRY/EXIT
03215  M01S02847.rec     +++|          LDD    FS          SET EST ORDINAL
03216  M01S02848.rec     +++|          STD    T5
03217  M01S02849.rec     +++|          LDM    ECSE+ACGL*5+1  SET FIRST TRACK
03218  M01S02850.rec     +++|          STD    T6
03219  M01S02851.rec     +++|          LDD    T9          SET MMF ID
03220  M01S02852.rec     +++|          NJN    SSS1        IF NOT CLEARING ENTRY
03221  M01S02853.rec     +++|          LDD    T8
03222  M01S02854.rec     +++|          STM    SSSA
03223  M01S02855.rec     +++|          LDN    ZERL
03224  M01S02856.rec     +++|          CRM    **,ON
03225  M01S02857.rec     +++| SSSA     EQU    *-1
03226  M01S02858.rec     +++|          UJN    SSS2        WRITE SECTOR
03227  M01S02859.rec     +++|
03228  M01S02860.rec     +++| SSS1     STI    T8
03229  M01S02861.rec     +++|          LDD    FS+1        SET FIRST TRACK OF USER ECS AREA
03230  M01S02862.rec     +++|          STM    1,T8
03231  M01S02863.rec     +++|          LDD    FS+2        SET LENGTH OF USER EXTENDED MEMORY AREA
03232  M01S02864.rec     +++|          STM    2,T8
03233  M01S02865.rec     +++|          LDD    FS+3        SET RA OF USER EXTENDED MEMORY AREA
03234  M01S02866.rec     +++|          STM    3,T8
03235  M01S02867.rec     +++|          LDD    FS+4        SET LAST TRACK OF USER ECS
03236  M01S02868.rec     +++|          STM    4,T8
03237  M01S02869.rec     +++| SSS2     SETMS  IO,DF
03238  M01S02870.rec     +++|          LDN    0           SET FNT DATA PRESTORED
03239  M01S02871.rec     +++|          STD    FA
03240  M01S02872.rec     +++|          RJM    WSS         WRITE SYSTEM SECTOR
03241  M01S02873.rec     +++|          ENDMS
03242  M01S02874.rec     +++|          LJM    SSSX        RETURN
03243  M01S02875.rec     +++|
03244  M01S02876.rec     +++|          SPACE  4,10
03245  M01S02877.rec     +++|          OVERFLOW  ECSX,BFMS
03246  M01S02878.rec     +++| PRS      SPACE  4,10
03247  M01S02879.rec     +++|**        PRS - PRESET PROGRAM.
03248  M01S02880.rec     +++|*
03249  M01S02881.rec     +++|*         ENTRY  (FS) = BYTE 0 OF *ECRL* = EM EST ORDINAL FROM *SET*.
03250  M01S02882.rec     +++|*                (FS+1) = USER XM SIZE / *UEBS*.
03251  M01S02883.rec     +++|*                (FS+2 - FS+3) = USER XM RA / *UEBS*.
03252  M01S02884.rec     +++|*                (RS) = RECOVERY STATUS.
03253  M01S02885.rec     +++|*                TAXM = EM ALLOCATION TABLE GENERATED BY *SET*.
03254  M01S02886.rec     +++|*
03255  M01S02887.rec     +++|*         EXIT   (FS+2) = USER XM SIZE / *EMBS*.
03256  M01S02888.rec     +++|*                (FS+3) = USER XM RA / *EMBS*.
03257  M01S02889.rec     +++|*                (T9) = MACHINE ID.
03258  M01S02890.rec     +++|*
Line S02891 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03259  M02S02891.271l716 ---|*         USES   T0, CM - CM+4, CN - CN+4.
03260  M01S00232.271l716 +++|*         USES   CM - CM+4, CN - CN+4, T5 - T7.
03261  M01S02892.rec     +++|
03262  M01S02893.rec     +++|
03263  M01S02894.rec     +++| PRS      SUBR               ENTRY/EXIT
Line S02895 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03264  M02S02895.271l716 ---|          LDK    MEFL        PRESET SHIFT INSTRUCTIONS
Line S02896 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03265  M02S02896.271l716 ---|          CRD    CM
Line S02897 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03266  M02S02897.271l716 ---|          ADN    MMFL-MEFL
Line S02898 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03267  M02S02898.271l716 ---|          CRD    CN
Line S02899 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03268  M02S02899.271l716 ---|          LDD    CM+2        GET USER EXTENDED SHIFT COUNT (*UESC*)
Line S02900 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03269  M02S02900.271l716 ---|          SHN    -11
Line S02901 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03270  M02S02901.271l716 ---|          STD    T9          SAVE *UESC*
Line S02902 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03271  M02S02902.271l716 ---|          LDD    CM+2        GET XM SHIFT (EMSC)
03272  M01S00233.271l716 +++|          LDN    MEFL
03273  M01S00234.271l716 +++|          CRD    T5          GET XM SHIFT COUNTS
03274  M01S00235.271l716 +++|          ADN    MMFL-MEFL
03275  M01S00236.271l716 +++|          CRD    CN          FETCH MMF STATUS
03276  M01S00237.271l716 +++|          ADN    MCTP-MMFL
03277  M01S00238.271l716 +++|          CRD    CM          READ MCT POINTER
03278  M01S00239.271l716 +++|          LDD    CM+1
03279  M01S00240.271l716 +++|          RAM    CTEA
03280  M01S00241.271l716 +++|          SHN    -14         SET MCT ADDRESS
03281  M01S00242.271l716 +++|          ADD    CM
03282  M01S00243.271l716 +++|          RAM    CTEA-1
03283  M01S00244.271l716 +++|          LDD    T7          EXTRACT USER XM SHIFT COUNT *UESC*
03284  M01S00245.271l716 +++|          SHN    -11
03285  M01S00246.271l716 +++|          STD    T9
03286  M01S00247.271l716 +++|          LDD    T7          EXTRACT XM SHIFT COUNT *EMSC*
03287  M01S02903.rec     +++|          SHN    -5
03288  M01S02904.rec     +++|          LPN    3
03289  M01S02905.rec     +++|          STD    T0
03290  M01S02906.rec     +++|          SBD    T9
Line S02907 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03291  M02S02907.271l716 ---|          LPN    77
03292  M01S00248.271l716 +++|          LPN    77          PRESET SHIFT INSTRUCTIONS
03293  M01S02908.rec     +++|          RAM    SCPA
03294  M01S02909.rec     +++|          STM    SCPB
03295  M01S02910.rec     +++|          STM    SCPC
03296  M01S00039.rec26   +++|          STM    SCPD
03297  M01S00004.rec30   +++|          STM    SCPF
03298  M01S02911.rec     +++|          LMN    77
03299  M01S02912.rec     +++|          STM    PRSA
03300  M01S02913.rec     +++|          STM    PRSB
03301  M01S02914.rec     +++|          LDD    T9
03302  M01S02915.rec     +++|          SBD    T0
03303  M01S02916.rec     +++|          RAM    ACEB
03304  M01S02917.rec     +++|          STM    ACEC
03305  M01S02918.rec     +++|          LDD    FS+2        ADJUST USER XM RA
03306  M01S02919.rec     +++|          SHN    14
03307  M01S02920.rec     +++|          ADD    FS+3
03308  M01S02921.rec     +++| PRSA     SHN    0
03309  M01S02922.rec     +++|*         SHN    UESC-EMSC
03310  M01S02923.rec     +++|          STD    FS+3
03311  M01S02924.rec     +++|          LDD    FS+1        ADJUST USER XM FL VALUE
03312  M01S02925.rec     +++| PRSB     SHN    0
03313  M01S02926.rec     +++|*         SHN    UESC-EMSC
03314  M01S02927.rec     +++|          STD    FS+2
03315  M01S02928.rec     +++|          LDD    CN+1        CHECK ALLOCATING ON LINK DEVICE
03316  M01S02929.rec     +++|          LPC    777
03317  M01S02930.rec     +++|          STM    ECSB
03318  M01S02931.rec     +++|          LDD    CN          SAVE MACHINE ID
03319  M01S02932.rec     +++|          STD    T9
03320  M01S02933.rec     +++|          UJP    PRSX        RETURN
03321  M01S02934.rec     +++|
03322  M01S02935.rec     +++|          QUAL
03323  M01S02936.rec     +++|          TTL    REC/4RC - RECOVER CHANNEL/EQUIPMENT STATUS.
03324  M01S02937.rec     +++|          TITLE
03325  M01S02938.rec     +++|          QUAL   RCE
03326  M01S02939.rec     +++|          IDENT  4RC,RCEX
03327  M01S02940.rec     +++|*COMMENT  REC - RECOVER CHANNEL/EQUIPMENT STATUS.
Line S02941 Modification History
M01 (Added by) rec
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
03328  M02S02941.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1981.
03329  M01S00004.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03330  M01S02942.rec     +++|          SPACE  4,10
03331  M01S02943.rec     +++|***       RCE - RECOVER CHANNEL/EQUIPMENT STATUS.
03332  M01S02944.rec     +++|*
03333  M01S02945.rec     +++|*                RCE WILL READ THE CHANNEL INTERLOCK TABLES AND THE
03334  M01S02946.rec     +++|*         EQUIPMENT STATUS TABLE (EST) FROM THE CHECKPOINT FILE.
03335  M01S02947.rec     +++|*         THE FOLLOWING ITEMS MUST BE RESTORED TO THE STATUS THAT
03336  M01S02948.rec     +++|*         EXISTED BEFORE THE RECOVERY.
03337  M01S02949.rec     +++|*         1. CHANNELS THAT ARE GLOBALLY DOWN.
03338  M01S02950.rec     +++|*         2. CHANNELS THAT ARE DOWN FOR A SPECIFIC EQUIPMENT, BUT
03339  M01S02951.rec     +++|*            ARE NOT GLOBALLY DOWN.
03340  M01S02952.rec     +++|*         3. CHANNELS THAT ARE ASSIGNED TO EJT ORDINALS.
03341  M01S02953.rec     +++|*         4. EQUIPMENTS THAT ARE DOWN.  THE DATA TO BE RESTORED
03342  M01S02954.rec     +++|*            INCLUDES THE DOWN, UNAVAILABLE AND OFF BITS IN THE
03343  M01S02955.rec     +++|*            EST, AND GLOBAL DOWN, GLOBAL UNLOAD, UNLOAD
03344  M01S02956.rec     +++|*            REQUESTED AND UNLOADED BITS IN THE MST.
03345  M01S02957.rec     +++| RCE      SPACE  4,10
03346  M01S02958.rec     +++|***       ENTRY CONDITIONS.
03347  M01S02959.rec     +++|*
03348  M01S02960.rec     +++|*         (SE) = EST ORDINAL OF CHECKPOINT FILE.
03349  M01S02961.rec     +++|*         (RECE) = FIRST TRACK OF CHECKPOINT FILE.
03350  M01S02962.rec     +++|          SPACE  4,10
03351  M01S02963.rec     +++|          ORG    OVLA
03352  M01S02964.rec     +++|          SPACE  4,10
03353  M01S02965.rec     +++|**        RCE - MAIN ROUTINE.
03354  M01S02966.rec     +++|
03355  M01S02967.rec     +++|
03356  M01S02968.rec     +++| RCE      SUBR               ENTRY/EXIT
03357  M01S02969.rec     +++|          LDD    RS
03358  M01S02970.rec     +++|          LPN    SYMK        CHECK RECOVERY LEVEL
03359  M01S02971.rec     +++|          LMN    SYCM
03360  M01S02972.rec     +++|          ZJN    RCE1        IF CM RECOVERY
03361  M01S02973.rec     +++|          LDD    CE
03362  M01S02974.rec     +++|          STD    T5          CHECKPOINT DEVICE EST ORDINAL
03363  M01S02975.rec     +++|          SETMS  IO
03364  M01S02976.rec     +++|          LDM    RECE        SET FIRST TRACK OF CHECKPOINT FILE
03365  M01S02977.rec     +++|          STD    T6
03366  M01S02978.rec     +++|          LDN    3           SET SECTOR OF EST
03367  M01S02979.rec     +++|          STD    T7
Line S02980 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03368  M02S02980.rec21   ---|          RJM    SKR         SKIP EST
03369  M01S00001.rec21   +++|          RJM    PET         PROCESS EST
03370  M01S02981.rec     +++|          RJM    PCH         PROCESS CHANNEL TABLES
Line S02982 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03371  M02S02982.rec21   ---|          LDM    RECE
Line S02983 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03372  M02S02983.rec21   ---|          STD    T6          RESET FIRST TRACK
Line S02984 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03373  M02S02984.rec21   ---|          LDN    3
Line S02985 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03374  M02S02985.rec21   ---|          STD    T7
Line S02986 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03375  M02S02986.rec21   ---|          SETMS  POSITION    PROCESS EST
Line S02987 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03376  M02S02987.rec21   ---|          RJM    PET
03377  M01S02988.rec     +++| RCE1     RJM    RSE         RELEASE SYSTEM ASSIGNED EQUIPMENT
03378  M01S02989.rec     +++|          UJP    RCEX        RETURN
Line S02990 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03379  M02S02990.rec21   ---|
Line S02991 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03380  M02S02991.rec21   ---|
Line S02992 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03381  M02S02992.rec21   ---| RCEA     DATA   C*SYSTEM FILE PARITY ERROR.*
03382  M01S02993.rec     +++|          TITLE  SUBROUTINES.
03383  M01S02994.rec     +++| CDS      SPACE  4,10
03384  M01S02995.rec     +++|**        CDS - CHECK DEVICE STATUS.
03385  M01S02996.rec     +++|*
03386  M01S02997.rec     +++|*         ENTRY  (T5) = EST ORDINAL.
03387  M01S02998.rec     +++|*                (CA) = BUFFER ADDRESS OF EST ENTRY.
03388  M01S02999.rec     +++|*
03389  M01S03000.rec     +++|*         MACROS SMSTF.
03390  M01S03001.rec     +++|
03391  M01S03002.rec     +++|
03392  M01S03003.rec     +++| CDS1     LDI    CA          CHECK PREVIOUS RECOVERY STATUS
03393  M01S03004.rec     +++|          SHN    21-6
03394  M01S03005.rec     +++|          PJN    CDSX        IF DEVICE AVAILABLE
03395  M01S03006.rec     +++| CDS2     SMSTF  LUNL        SET UNLOAD REQUESTED
03396  M01S03007.rec     +++|          SMSTF  LDUL        SET DEVICE UNLOADED
03397  M01S03008.rec     +++|
03398  M01S03009.rec     +++| CDS      SUBR               ENTRY/EXIT
03399  M01S03010.rec     +++|          LDI    CA
03400  M01S03011.rec     +++|          SHN    21-13
03401  M01S03012.rec     +++|          PJN    CDSX        IF NOT MS DEVICE
03402  M01S03013.rec     +++|          SHN    14
03403  M01S03014.rec     +++|          LPN    3           CHECK DEVICE STATE
03404  M01S03015.rec     +++|          LMN    3
03405  M01S03016.rec     +++|          NJN    CDS1        IF NOT DOWN
03406  M01S03017.rec     +++|          SMSTF  GUNL        SET GLOBAL UNLOAD
03407  M01S03018.rec     +++|          UJN    CDS2        SET LOCAL MST STATUS
03408  M01S03019.rec     +++| DDC      SPACE  4,10
03409  M01S03020.rec     +++|**        DDC - DETERMINE DOWN CHANNELS.
03410  M01S03021.rec     +++|*
03411  M01S03022.rec     +++|*         ENTRY  (CA) = ADDRESS OF EST ENTRY IN BUFFER.
03412  M01S03023.rec     +++|*
03413  M01S03024.rec     +++|*         EXIT   ANY CHANNEL MARKED AS DOWN ON THE CHECKPOINT FILE
03414  M01S03025.rec     +++|*         WILL BE SET DOWN IN THE CM COPY OF THE EST ENTRY.
03415  M01S03026.rec     +++|*
03416  M01S03027.rec     +++|*         USES   T1, T2, CM - CM+4.
03417  M01S03028.rec     +++|*
03418  M01S03029.rec     +++|*         CALLS  ISF.
03419  M01S03030.rec     +++|*
03420  M01S03031.rec     +++|*         MACROS MONITOR.
03421  M01S03032.rec     +++|
03422  M01S03033.rec     +++|
03423  M01S03034.rec     +++| DDC4     AOD    T1          ADVANCE CHANNEL BYTE ADDRESS
03424  M01S03035.rec     +++|          LMD    T2
03425  M01S03036.rec     +++|          NJN    DDC1        IF ANOTHER CHANNEL TO CHECK
03426  M01S03037.rec     +++|
03427  M01S03038.rec     +++| DDC      SUBR               ENTRY/EXIT
03428  M01S03039.rec     +++|          LDD    CA
03429  M01S03040.rec     +++|          ADN    1           SET CHANNEL BYTE ADDRESS
03430  M01S03041.rec     +++|          STD    T1
03431  M01S03042.rec     +++|          ADN    2           SET END OF PATH DESCRIPTORS
03432  M01S03043.rec     +++|          STD    T2
03433  M01S03044.rec     +++| DDC1     LDI    T1
03434  M01S03045.rec     +++|          ZJN    DDC4        IF ACCESS UNDEFINED
03435  M01S03046.rec     +++|          SHN    0-11
03436  M01S03047.rec     +++|          LMN    4
03437  M01S03048.rec     +++| DDC2     ZJN    DDC4        IF CHANNEL PRESENT AND UP
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/rec.001.txt ยท Last modified: by 127.0.0.1