Deck REC Part 001

29 Modifications

Seq #  *Modification Id* Act 
----------------------------+
01750  M00S01575.rec     +++| IDF5     LJM    IDF11       INITIALIZE DAYFILE
01751  M00S01576.rec     +++|
01752  M00S01577.rec     +++| IDF6     LDM    IDFD,CN+3   CHECK TRACK ASSIGNED
01753  M00S01578.rec     +++|          NJN    IDF7        IF TRACK ASSIGNED
01754  M00S01579.rec     +++|          LDD    T5          CHECK REQUESTED EQUIPMENT
01755  M00S01580.rec     +++|          LMM    FN,CN+3
01756  M00S01581.rec     +++|          LPC    777
01757  M00S01582.rec     +++|          NJN    IDF5        IF DEFAULT EQUIPMENT
01758  M00S01583.rec     +++|          LJM    IDF10       TRACK NOT ASSIGNED RECOVERY IMPOSSIBLE
01759  M00S01584.rec     +++|
01760  M00S01585.rec     +++|*         UPDATE RECOVERY INFORMATION IN SYSTEM SECTOR.
01761  M00S01586.rec     +++|
01762  M00S01587.rec     +++| IDF7     STD    T6
01763  M00S01588.rec     +++|          STD    FS+1
01764  M00S01589.rec     +++|          SETMS  IO,(SM,RW)
01765  M00S01590.rec     +++|          LDM    IDFB,CN+3
01766  M00S01591.rec     +++|          RJM    RSS         READ SYSTEM SECTOR
01767  M00S01592.rec     +++|          NJN    IDF8        IF INCORRECT SYSTEM SECTOR
01768  M00S01593.rec     +++|          ENDMS

Seq #  *Modification Id* Act 
----------------------------+
01769  M01S00001.ns2669  +++|*         LDN    0           (FORCE CURRENT TRT)
01770  M00S01594.rec     +++|          RJM    SEI         SET CURRENT POSITION TO EOI
01771  M00S01595.rec     +++|          LDD    T6
01772  M00S01596.rec     +++|          STD    FS+2
01773  M00S01597.rec     +++|          LDD    T7
01774  M00S01598.rec     +++|          STD    FS+3        SET SECTOR
01775  M00S01599.rec     +++|          LDD    T2          SAVE LENGTH
01776  M00S01600.rec     +++|          STM    FLSS
01777  M00S01601.rec     +++|          LDD    T3
01778  M00S01602.rec     +++|          STM    FLSS+1
01779  M00S01603.rec     +++|          RJM    TLM         TERMINATE LAST MESSAGE
01780  M00S01604.rec     +++|          LDC    SBUF
01781  M00S01605.rec     +++|          RJM    RDS         READ EOI SECTOR
01782  M00S01606.rec     +++|          MJN    IDF9        IF READ ERROR
01783  M00S01607.rec     +++|          LDM    SBUF
01784  M00S01608.rec     +++|          ADM    SBUF+1
01785  M00S01609.rec     +++| IDF8     NJN    IDF9        IF NOT EOI
01786  M00S01610.rec     +++|          RJM    FMM         FORMAT MESSAGES
01787  M00S01611.rec     +++|          LJM    IDF15
01788  M00S01612.rec     +++|
01789  M00S01613.rec     +++|*         IF NO TRACK ASSIGNED, ERROR IN SYSTEM SECTOR
01790  M00S01614.rec     +++|*         OR ERROR IN EOI SECTOR.
01791  M00S01615.rec     +++|
01792  M00S01616.rec     +++| IDF9     ENDMS
01793  M00S01617.rec     +++| IDF10    RJM    IEM         ISSUE ERROR MESSAGE
01794  M00S01618.rec     +++|
01795  M00S01619.rec     +++|*         CREATE A NEW DAYFILE.
01796  M00S01620.rec     +++|
01797  M00S01621.rec     +++| IDF11    LDM    IDFD,CN+3
01798  M00S01622.rec     +++|          ZJN    IDF12       IF NO TRACK ASSIGNED
01799  M00S01623.rec     +++|          STD    CM+2
01800  M00S01624.rec     +++|          LDD    T5
01801  M00S01625.rec     +++|          STD    CM+1
01802  M00S01626.rec     +++|          MONITOR DTKM       DROP TRACKS
01803  M00S01627.rec     +++| IDF12    LDN    ZERL
01804  M00S01628.rec     +++|          CRD    CM
01805  M00S01629.rec     +++|          LDD    T5          SET EST ORDINAL
01806  M00S01630.rec     +++|          STD    CM+1
01807  M00S01631.rec     +++|          LMC    4000
01808  M00S01632.rec     +++|          STM    USST,QS
01809  M00S01633.rec     +++|          MONITOR RTCM       RESERVE TRACK CHAIN
01810  M00S01634.rec     +++|          LDD    CM+4        SET TRACK
01811  M00S01635.rec     +++|          STD    T6
01812  M00S01636.rec     +++|          STM    RDBF,CN+3
01813  M00S01637.rec     +++|          NJN    IDF13       IF TRACK ASSIGNED
01814  M00S01638.rec     +++|          LDD    T5          CONVERT UPPER TWO DIGITS OF EST ORDINAL
01815  M00S01639.rec     +++|          SHN    -3
01816  M00S01640.rec     +++|          RJM    C2D
01817  M00S01641.rec     +++|          STM    IDFC+1
01818  M00S01642.rec     +++|          LDD    T5          CONVERT LOWER DIGIT OF EST ORDINAL
01819  M00S01643.rec     +++|          LPN    7
01820  M00S01644.rec     +++|          SHN    6
01821  M00S01645.rec     +++|          ADC    2R0,
01822  M00S01646.rec     +++|          STM    IDFC+2
01823  M00S01647.rec     +++|          LDC    IDFC        *EQXXX, DAYFILE TRACK LIMIT.*
01824  M00S01648.rec     +++|          LJM    ERR
01825  M00S01649.rec     +++|
01826  M00S01650.rec     +++| IDF13    STM    USST+1,QS
01827  M00S01651.rec     +++|          STD    CM+2        SET PRESERVED FILE BIT
01828  M00S01652.rec     +++|          LDD    T5
01829  M00S01653.rec     +++|          STD    CM+1
01830  M00S01654.rec     +++|          LDN    SPFS
01831  M00S01655.rec     +++|          STD    CM+3
01832  M00S01656.rec     +++|          MONITOR STBM
01833  M00S01657.rec     +++|*         LDN    0           FORCE DEADSTART CHECKPOINT
01834  M00S01658.rec     +++|          STM    RECB
01835  M00S01659.rec     +++|          LDN    2           ADVANCE SYSTEM SECTOR UPDATE INDEX
01836  M00S01660.rec     +++|          RAD    QS
01837  M00S01661.rec     +++|          LDM    IDFB,CN+3   SET DAYFILE NAME
01838  M00S01662.rec     +++|          STM    IDFA
01839  M00S01663.rec     +++|          LDC    501-ETEI
01840  M00S01664.rec     +++|          STD    T1
01841  M00S01665.rec     +++| IDF14    LDN    0           CLEAR SYSTEM SECTOR / EOI BUFFER
01842  M00S01666.rec     +++|          STM    BFMS+ETEI,T1
01843  M00S01667.rec     +++|          SOD    T1
01844  M00S01668.rec     +++|          PJN    IDF14       LOOP UNTIL CLEAR
01845  M00S01669.rec     +++|          LDD    MA
01846  M00S01670.rec     +++|          CWM    *,ON
01847  M00S01671.rec     +++| IDFA     EQU    *-1
01848  M00S01672.rec     +++|          SBN    1
01849  M00S01673.rec     +++|          CRM    FNSS,ON
01850  M00S01674.rec     +++|          RJM    WSS         WRITE SYSTEM SECTOR
01851  M00S01675.rec     +++|          RJM    WEI         WRITE EOI
01852  M00S01676.rec     +++|          ENDMS
01853  M00S01677.rec     +++|          LDD    T5          SET EQUIPMENT
01854  M00S01678.rec     +++|          STD    FS
01855  M00S01679.rec     +++|          LMC    4000
01856  M00S01680.rec     +++|          STD    CM+1
01857  M00S01681.rec     +++|          LDD    T6          SET TRACK
01858  M00S01682.rec     +++|          STD    FS+1
01859  M00S01683.rec     +++|          STD    FS+2
01860  M00S01684.rec     +++|          LPC    3777
01861  M00S01685.rec     +++|          STD    CM+2
01862  M00S01686.rec     +++|          LDD    T7          SET SECTOR
01863  M00S01687.rec     +++|          STD    FS+3
01864  M00S01688.rec     +++|          STD    CM+3
01865  M00S01689.rec     +++|          MONITOR DTKM       SET EOI IN TRT
01866  M00S01690.rec     +++|
01867  M00S01691.rec     +++|*         COMPLETE PROCESSING FOR THIS DAYFILE.
01868  M00S01692.rec     +++|
01869  M00S01693.rec     +++| IDF15    ENDMS
01870  M00S01694.rec     +++|          LDD    CN          STORE DAYFILE FST
01871  M00S01695.rec     +++|          SHN    14
01872  M00S01696.rec     +++|          ADD    CN+1
01873  M00S01697.rec     +++|          CWD    FS
01874  M00S01698.rec     +++|          LJM    IDF1        LOOP FOR NEXT DAYFILE
01875  M00S01699.rec     +++|
01876  M00S01700.rec     +++|*         TABLE OF ADDRESSES FOR DAYFILE FNT ENTRIES.
01877  M00S01701.rec     +++|
01878  M00S01702.rec     +++| IDFB     BSS    0
01879  M00S01703.rec     +++|          CON    NDYF
01880  M00S01704.rec     +++|          CON    NACF
01881  M00S01705.rec     +++|          CON    NERL
01882  M00S01706.rec     +++|          CON    NBML
01883  M00S01707.rec     +++|
01884  M00S01708.rec     +++| IDFC     DATA   C*EQXXX, DAYFILE TRACK LIMIT.*
01885  M00S01709.rec     +++| IDFD     BSS    5           DAYFILES FIRST TRACK BUFFER
01886  M00S01710.rec     +++|
01887  M00S01711.rec     +++|*         DAYFILE FNT ENTRIES.
01888  M00S01712.rec     +++|
01889  M00S01713.rec     +++| NDYF     VFD    42/0LDAYFILE,6/1,6/LIFT,6/0
01890  M00S01714.rec     +++| NACF     VFD    42/0LACCOUNT,6/1,6/LIFT,6/0
01891  M00S01715.rec     +++| NERL     VFD    42/0LERRLOG,6/1,6/LIFT,6/0
01892  M00S01716.rec     +++| NBML     VFD    42/0LMAINLOG,6/1,6/LIFT,6/0
01893  M00S01717.rec     +++| IEM      SPACE  4
01894  M00S01718.rec     +++|**        IEM - ISSUE ERROR MESSAGE.
01895  M00S01719.rec     +++|*
01896  M00S01720.rec     +++|*         ENTRY  (CN+3) = DAYFILE INDEX.
01897  M00S01721.rec     +++|*
01898  M00S01722.rec     +++|*         USES   CM - CM+4.
01899  M00S01723.rec     +++|
01900  M00S01724.rec     +++|
01901  M00S01725.rec     +++| IEM      SUBR               ENTRY/EXIT
01902  M00S01726.rec     +++|          LDM    IDFB,CN+3
01903  M00S01727.rec     +++|          STM    IEMA
01904  M00S01728.rec     +++|          LDD    MA
01905  M00S01729.rec     +++|          CWM    *,ON        FILENAME FOR MESSAGE
01906  M00S01730.rec     +++| IEMA     EQU    *-1
01907  M00S01731.rec     +++|          SBN    1
01908  M00S01732.rec     +++|          CRM    IEMB,ON
01909  M00S01733.rec     +++|          LDC    2R          BLANK FILE NAME
01910  M00S01734.rec     +++|          STM    IEMB+4
01911  M00S01735.rec     +++|          LDM    IEMB+3
01912  M00S01736.rec     +++|          SCN    77
01913  M00S01737.rec     +++|          LMN    1R
01914  M00S01738.rec     +++|          STM    IEMB+3
01915  M00S01739.rec     +++|
01916  M00S01740.rec     +++|*         SET PAUSE BIT.
01917  M00S01741.rec     +++|
01918  M00S01742.rec     +++|          LDD    NC          SYSTEM CONTROL POINT
01919  M00S01743.rec     +++|          SHN    7
01920  M00S01744.rec     +++|          ADN    SNSW        SENSE SWITCH WORD
01921  M00S01745.rec     +++|          CRD    CM
01922  M00S01746.rec     +++|          STD    T1
01923  M00S01747.rec     +++|
01924  M00S01748.rec     +++|*         SET PAUSE BIT AND WAIT FOR OPERATOR ACTION.
01925  M00S01749.rec     +++|
01926  M00S01750.rec     +++|          LDD    CM+3
01927  M00S01751.rec     +++|          SCN    1
01928  M00S01752.rec     +++|          LMN    1
01929  M00S01753.rec     +++|          STD    CM+3
01930  M00S01754.rec     +++|          LDD    T1
01931  M00S01755.rec     +++|          CWD    CM
01932  M00S01756.rec     +++|          ADN    MS2W-SNSW
01933  M00S01757.rec     +++|          CWM    IEMB,TR
01934  M00S01758.rec     +++| IEM1     LDN    77
01935  M00S01759.rec     +++|          SBN    1
01936  M00S01760.rec     +++|          NJN    *-1         DELAY
01937  M00S01761.rec     +++|          LDD    T1
01938  M00S01762.rec     +++|          CRD    CM
01939  M00S01763.rec     +++|          LDD    CM+3
01940  M00S01764.rec     +++|          LPN    1
01941  M00S01765.rec     +++|          NJN    IEM1        IF PAUSE BIT STILL SET
01942  M00S01766.rec     +++|          LJM    IEMX        RETURN
01943  M00S01767.rec     +++|
01944  M00S01768.rec     +++|
01945  M00S01769.rec     +++| IEMB     DATA   C*DAYFILE   UNRECOVERABLE.*
01946  M00S01770.rec     +++| FMM      SPACE  4,15
01947  M00S01771.rec     +++|**        FMM - FORMAT MESSAGES.
01948  M00S01772.rec     +++|*
01949  M00S01773.rec     +++|*         ENTRY  CHANNEL RESERVED.
01950  M00S01774.rec     +++|*                (T5) = EST ORDINAL.
01951  M00S01775.rec     +++|*                (QS) = INDEX TO *USST* LIST.
01952  M00S01776.rec     +++|*                SYSTEM SECTOR AT BFMS.
01953  M00S01777.rec     +++|*                EOI SECTOR AT SBUF.
01954  M00S01778.rec     +++|*                (CN+3) = DAYFILE INDEX.
01955  M00S01779.rec     +++|*                (FS - FS+4) = DAYFILE STATUS WORD.

Seq #  *Modification Id* Act 
----------------------------+
01956  M01S00002.ns2669  +++|*                *SETMS IO,RW* PERFORMED.
01957  M00S01780.rec     +++|*
01958  M00S01781.rec     +++|*         EXIT   SYSTEM SECTOR UPDATED.
01959  M00S01782.rec     +++|*                MESSAGE INFORMATION SAVED.
01960  M00S01783.rec     +++|*
01961  M00S01784.rec     +++|*         USES   T1, T2, T6, T7.
01962  M00S01785.rec     +++|*
01963  M00S01786.rec     +++|*         CALLS  WSS.
01964  M00S01787.rec     +++|
01965  M00S01788.rec     +++|
01966  M00S01789.rec     +++| FMM      SUBR               ENTRY/EXIT
01967  M00S01790.rec     +++|          LDD    CN+3        SAVE DATE AND TIME
01968  M00S01791.rec     +++|          SHN    2
01969  M00S01792.rec     +++|          ADD    CN+3
01970  M00S01793.rec     +++|          ADC    RDBA
01971  M00S01794.rec     +++|          STM    FMMA
01972  M00S01795.rec     +++|          ADN    RDBB-RDBA
01973  M00S01796.rec     +++|          STM    FMMC
01974  M00S01797.rec     +++|          ADN    RDBC-RDBB
01975  M00S01798.rec     +++|          STM    FMMB
01976  M00S01799.rec     +++|
01977  M00S01800.rec     +++|*         SAVE SYSTEM SECTOR CREATION DATE.
01978  M00S01801.rec     +++|
01979  M00S01802.rec     +++|          LDD    MA
01980  M00S01803.rec     +++|          CWM    BFMS+DTEI+2*5,ON
01981  M00S01804.rec     +++|          SBN    1
01982  M00S01805.rec     +++|          CRM    **,ON
01983  M00S01806.rec     +++| FMMA     EQU    *-1
01984  M00S01807.rec     +++|
01985  M00S01808.rec     +++|*         SAVE UPDATE TIME.
01986  M00S01809.rec     +++|
01987  M00S01810.rec     +++|          SBN    1
01988  M00S01811.rec     +++|          CWM    SBUF+DTEI+5,ON
01989  M00S01812.rec     +++|          SBN    1
01990  M00S01813.rec     +++|          CRM    **,ON
01991  M00S01814.rec     +++| FMMB     EQU    *-1
01992  M00S01815.rec     +++|
01993  M00S01816.rec     +++|*         SAVE UPDATE DATE.
01994  M00S01817.rec     +++|
01995  M00S01818.rec     +++|          SBN    1
01996  M00S01819.rec     +++|          CWM    SBUF+DTEI+2*5,ON
01997  M00S01820.rec     +++|          SBN    1
01998  M00S01821.rec     +++|          CRM    **,ON
01999  M00S01822.rec     +++| FMMC     EQU    *-1
02000  M00S01823.rec     +++|
02001  M00S01824.rec     +++|*         UPDATE SYSTEM SECTOR WITH NEW LENGTH.
02002  M00S01825.rec     +++|
02003  M00S01826.rec     +++|          SETMS  POSITION
02004  M00S01827.rec     +++|          LDM    FTSS        REWRITE SYSTEM SECTOR
02005  M00S01828.rec     +++|          STM    USST+1,QS
02006  M00S01829.rec     +++|          STD    T6
02007  M00S01830.rec     +++|          RJM    WSS
02008  M00S01831.rec     +++|          LDD    T5          SET RECOVERED DAYFILE IN *USST*
02009  M00S01832.rec     +++|          LMC    2000
02010  M00S01833.rec     +++|          STM    USST,QS
02011  M00S01834.rec     +++|          LDN    2
02012  M00S01835.rec     +++|          RAD    QS
02013  M00S01836.rec     +++|          LDD    FS+1        CHECK STATUS OF DAYFILE
02014  M00S01837.rec     +++|          LMD    FS+2
02015  M00S01838.rec     +++|          NJN    FMM1        IF BUFFER DUMPED TO DISK
02016  M00S01839.rec     +++|          LDD    FS+3
02017  M00S01840.rec     +++|          LMN    FSMS
02018  M00S01841.rec     +++|          NJN    FMM1        IF BUFFER DUMPED
02019  M00S01842.rec     +++|          LDD    T6          SET FIRST TRACK IN CREATION TABLE
02020  M00S01843.rec     +++|          STM    RDBF,CN+3
02021  M00S01844.rec     +++| FMM1     LJM    FMMX        RETURN
02022  M00S01845.rec     +++| GDT      SPACE  4,10
02023  M00S01846.rec     +++|**        GDT - GET DAYFILE TRACKS.
02024  M00S01847.rec     +++|*
02025  M00S01848.rec     +++|*         ENTRY  (T5) = EST ORDINAL.
02026  M00S01849.rec     +++|*
02027  M00S01850.rec     +++|*         EXIT   (IDFD) = FIRST TRACKS OF EXCESS DAYFILES.
02028  M00S01851.rec     +++|*                       = 0 IF NO DAYFILES ON DEVICE.
02029  M00S01852.rec     +++|*
02030  M00S01853.rec     +++|*         EREXIT TO *ERR* IF ERROR READING SECTOR OF LOCAL AREAS.
02031  M00S01854.rec     +++|*
02032  M00S01855.rec     +++|*         CALLS  C2D, RLA.
02033  M00S01856.rec     +++|
02034  M00S01857.rec     +++|
02035  M00S01858.rec     +++| GDT1     ZJN    GDT2        IF NO SECTOR OF LOCAL AREAS
02036  M00S01859.rec     +++|          STM    GDTA
02037  M00S01860.rec     +++|          LDD    MA          MOVE DAYFILE TRACKS TO DIRECT CELLS
02038  M00S01861.rec     +++|          CWM    *,ON
02039  M00S01862.rec     +++| GDTA     EQU    *-1
02040  M00S01863.rec     +++|          SBN    1
02041  M00S01864.rec     +++| GDT2     CRM    IDFD,ON
02042  M00S01865.rec     +++|
02043  M00S01866.rec     +++| GDT      SUBR               ENTRY/EXIT
02044  M00S01867.rec     +++|          RJM    RLA         READ LOCAL AREA SECTOR
02045  M00S01868.rec     +++|          PJN    GDT1        IF NO ERRORS
02046  M00S01869.rec     +++|          LDD    T5          CONVERT UPPER TWO DIGITS OF EST ORDINAL
02047  M00S01870.rec     +++|          SHN    -3
02048  M00S01871.rec     +++|          RJM    C2D
02049  M00S01872.rec     +++|          STM    GDTB+1      STORE IN MESSAGE
02050  M00S01873.rec     +++|          LDD    T5          CONVERT LOWER DIGIT OF EST ORDINAL
02051  M00S01874.rec     +++|          LPN    7
02052  M00S01875.rec     +++|          SHN    6
02053  M00S01876.rec     +++|          ADC    2R0,
02054  M00S01877.rec     +++|          STM    GDTB+2
02055  M00S01878.rec     +++|          LDC    GDTB        *EQXXX, LOCAL AREA SECTOR ERROR.*
02056  M00S01879.rec     +++|          LJM    ERR         DISPLAY MESSAGE AND HANG
02057  M00S01880.rec     +++|
02058  M00S01881.rec     +++| GDTB     DATA   C*EQXXX, LOCAL AREA SECTOR ERROR.*
02059  M00S01882.rec     +++| TLM      SPACE  4,15
02060  M00S01883.rec     +++|**        TLM - TERMINATE LAST DAYFILE MESSAGE.
02061  M00S01884.rec     +++|*
02062  M00S01885.rec     +++|*         ENTRY  (T5) = EST ORDINAL.
02063  M00S01886.rec     +++|*                (T6) = (FS+2) = EOI TRACK FOR DAYFILE.
02064  M00S01887.rec     +++|*                (T7) = (FS+3) = EOI SECTOR.
02065  M00S01888.rec     +++|*                (FS+1) = FIRST TRACK OF DAYFILE.
02066  M00S01889.rec     +++|*                (CN+3) = DAYFILE INDEX.
02067  M00S01890.rec     +++|*                (CN - CN+1) = FWA OF DAYFILE POINTERS.
02068  M00S01891.rec     +++|*                (T2 - T3) = DAYFILE LENGTH (SECTOR COUNT).
02069  M00S01892.rec     +++|*
02070  M00S01893.rec     +++|*         USES   T2, CM - CM+4.
02071  M00S01894.rec     +++|*
02072  M00S01895.rec     +++|*         CALLS  RDS, SNT.
02073  M00S01896.rec     +++|
02074  M00S01897.rec     +++|
02075  M00S01898.rec     +++| TLM      SUBR               ENTRY/EXIT
02076  M00S01899.rec     +++|          LDD    CN+3
02077  M00S01900.rec     +++|          LMN    MLDY
02078  M00S01901.rec     +++|          ZJN    TLMX        IF MAINTENANCE LOG
02079  M00S01902.rec     +++|          LDD    T3
02080  M00S01903.rec     +++|          LMN    FSMS
02081  M00S01904.rec     +++|          ADD    T2
02082  M00S01905.rec     +++|          ZJN    TLMX        IF DAYFILE EMPTY
02083  M00S01906.rec     +++|          SOD    T7
02084  M00S01907.rec     +++|          PJN    TLM2        IF EOI NOT ON TRACK BOUNDARY
02085  M00S01908.rec     +++|          LDD    FS+1
02086  M00S01909.rec     +++|          STD    T6
02087  M00S01910.rec     +++| TLM1     LDD    T6          SAVE CURRENT TRACK
02088  M00S01911.rec     +++|          STD    T2
02089  M00S01912.rec     +++|          RJM    SNT         SET NEXT TRACK
02090  M00S01913.rec     +++|          STD    T6
02091  M00S01914.rec     +++|          LMD    FS+2
02092  M00S01915.rec     +++|          NJN    TLM1        IF NOT EOI TRACK
02093  M00S01916.rec     +++|          LDD    T2
02094  M00S01917.rec     +++|          STD    T6
02095  M00S01918.rec     +++|          LDM    SLM         SET LAST DATA SECTOR
02096  M00S01919.rec     +++|          SBN    1
02097  M00S01920.rec     +++|          STD    T7
02098  M00S01921.rec     +++| TLM2     LDC    SBUF        READ LAST SECTOR OF DAYFILE DATA
02099  M00S01922.rec     +++|          RJM    RDS
02100  M00S01923.rec     +++|          MJN    TLM3        IF READ ERROR
02101  M00S01924.rec     +++|          LDM    SBUF+1
02102  M00S01925.rec     +++|          LMD    HN
02103  M00S01926.rec     +++|          NJN    TLM3        IF NOT FULL SECTOR (BUFFER FLUSHED)
02104  M00S01927.rec     +++|          LDM    SBUF+501
02105  M00S01928.rec     +++|          ZJN    TLM3        IF LAST MESSAGE COMPLETE
02106  M00S01929.rec     +++|          LDD    CN
02107  M00S01930.rec     +++|          SHN    14
02108  M00S01931.rec     +++|          ADD    CN+1
02109  M00S01932.rec     +++|          SBN    2
02110  M00S01933.rec     +++|          CRD    CM
02111  M00S01934.rec     +++|          AOD    CM+4        ADVANCE IN POINTER
02112  M00S01935.rec     +++|          LDD    CN
02113  M00S01936.rec     +++|          SHN    14
02114  M00S01937.rec     +++|          ADD    CN+1
02115  M00S01938.rec     +++|          SBN    2
02116  M00S01939.rec     +++|          CWD    CM
02117  M00S01940.rec     +++| TLM3     LDD    FS+2        RESTORE EOI ADDRESS
02118  M00S01941.rec     +++|          STD    T6
02119  M00S01942.rec     +++|          LDD    FS+3
02120  M00S01943.rec     +++|          STD    T7
02121  M00S01944.rec     +++|          LJM    TLMX        RETURN
02122  M00S01945.rec     +++| USS      SPACE  4
02123  M00S01946.rec     +++|**        USS - UPDATE SYSTEM SECTOR.
02124  M00S01947.rec     +++|*
02125  M00S01948.rec     +++|*         ENTRY  EST ORDINAL AND FIRST TRACK OF SELECTED DAYFILES
02126  M00S01949.rec     +++|*                STORED IN USST.
02127  M00S01950.rec     +++|*
02128  M00S01951.rec     +++|*         EXIT   DAYFILE SYSTEM SECTORS UPDATED WITH CURRENT TIME.
02129  M00S01952.rec     +++|*
02130  M00S01953.rec     +++|*         USES   T5, T6, QS.
02131  M00S01954.rec     +++|*
02132  M00S01955.rec     +++|*         CALLS  RSS, WSS.
02133  M00S01956.rec     +++|*
02134  M00S01957.rec     +++|*         MACROS ENDMS, SETMS.
02135  M00S01958.rec     +++|
02136  M00S01959.rec     +++|
02137  M00S01960.rec     +++| USS      SUBR               ENTRY/EXIT
02138  M00S01961.rec     +++|          LDN    0           CLEAR FILE INDEX
02139  M00S01962.rec     +++|          STD    QS
02140  M00S01963.rec     +++|          STD    FA
02141  M00S01964.rec     +++| USS1     LDM    USST,QS     CHECK FOR SELECTED EQUIPMENT
02142  M00S01965.rec     +++|          ZJN    USSX        IF END OF FILES
02143  M00S01966.rec     +++|          LPC    777
02144  M00S01967.rec     +++|          STD    T5
02145  M00S01968.rec     +++|          SETMS  IO,RW
02146  M00S01969.rec     +++|          LDM    USST+1,QS   SET FIRST TRACK
02147  M00S01970.rec     +++|          STD    T6
02148  M00S01971.rec     +++|          LDN    0           READ SYSTEM SECTOR
02149  M00S01972.rec     +++|          RJM    RSS
02150  M00S01973.rec     +++|          NJN    USS3        IF ERROR IN SYSTEM SECTOR
02151  M00S01974.rec     +++|          LDM    USST,QS
02152  M00S01975.rec     +++|          SHN    21-12
02153  M00S01976.rec     +++|          MJN    USS2        IF A RECOVERED DAYFILE
02154  M00S01977.rec     +++|          LDN    PDTL        ENTER CREATION DATE AND TIME
02155  M00S01978.rec     +++|          CRM    DTSS,TR
02156  M00S01979.rec     +++| USS2     RJM    WSS         UPDATE TIME IN SYSTEM SECTOR
02157  M00S01980.rec     +++| USS3     ENDMS
02158  M00S01981.rec     +++|          LDN    2
02159  M00S01982.rec     +++|          RAD    QS
02160  M00S01983.rec     +++|          LJM    USS1        LOOP FOR NEXT FILE
02161  M00S01984.rec     +++|
02162  M00S01985.rec     +++|
02163  M00S01986.rec     +++|**        TABLE OF DAYFILE SYSTEM SECTORS TO UPDATE.
02164  M00S01987.rec     +++|*         ENTRY = 2 WORDS, ZERO WORD TERMINATES THE TABLE.
02165  M00S01988.rec     +++|*
02166  M00S01989.rec     +++|*T, USST  3/FLAGS, 9/ ESTORD, 12/ FIRST TRACK

Figure USST

02167  M00S01990.rec     +++|*
02168  M00S01991.rec     +++|*         FLAGS -
02169  M00S01992.rec     +++|*                4 = NEW DAYFILE.
02170  M00S01993.rec     +++|*                2 = RECOVERED DAYFILE.
02171  M00S01994.rec     +++|
02172  M00S01995.rec     +++|
02173  M00S01996.rec     +++| USST     BSSZ   2*EXDF+1
02174  M00S01997.rec     +++|          SPACE  4
02175  M00S01998.rec     +++|*         COMMON DECKS.
02176  M00S01999.rec     +++|
02177  M00S02000.rec     +++|
02178  M00S02001.rec     +++|*CALL     COMPRLA
02179  M00S02002.rec     +++|          SPACE  4
02180  M00S02003.rec     +++|          USE    LITERALS
02181  M00S02004.rec     +++|
02182  M00S02005.rec     +++| SBUF     EQU    *           SCRATCH BUFFER
02183  M00S02006.rec     +++|          ERRNG  BFMS-SBUF-502  SCRATCH BUFFER OVERFLOW INTO *BFMS*
02184  M00S02007.rec     +++|          TTL    REC/4RB - ALLOCATE/RECOVER USER XM.
02185  M00S02008.rec     +++|          TITLE
02186  M00S02009.rec     +++|          QUAL   ECS
02187  M00S02010.rec     +++|          IDENT  4RB,ECSX
02188  M00S02011.rec     +++|*COMMENT  REC - ALLOCATE/RECOVER USER XM.

Seq #  *Modification Id* Act 
----------------------------+
02189  M01S02012.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1976.

Seq #  *Modification Id* Act 
----------------------------+
02190  M01S00003.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02191  M00S02013.rec     +++| 4RB      SPACE 4,10
02192  M00S02014.rec     +++|***       ECS - ALLOCATE/RECOVER USER EXTENDED MEMORY.
02193  M00S02015.rec     +++|*
02194  M00S02016.rec     +++|*                *ECS* PERFORMS THE ALLOCATION AND RECOVERY OF USER
02195  M00S02017.rec     +++|*         ACCESS EXTENDED MEMORY. THE ALLOCATED XM FOR USER DIRECT
02196  M00S02018.rec     +++|*         ACCESS IS MAINTAINED AS A PRESERVED FILE OF TYPE *LIFT* AND
02197  M00S02019.rec     +++|*         IS NAMED -**UECS.-.  THE FILE IS COMPOSED OF UP TO 5
02198  M00S02020.rec     +++|*         SUB-CHAINS.  THE FIRST SUB-CHAIN IS ONE TRACK LONG AND IS
02199  M00S02021.rec     +++|*         TO GUARANTEE A SYSTEM SECTOR FOR THE ENTIRE CHAIN.  EACH
02200  M00S02022.rec     +++|*         SUBSEQUENT SUB-CHAIN, UP TO 4, IS COMPOSED OF ENOUGH
02201  M00S02023.rec     +++|*         CONTINUOUS TRACKS TO MEET THE SPACE REQUIRMENTS OF ONE
02202  M00S02024.rec     +++|*         MACHINES DIRECT ACCESS AREA.  THE SYSTEM SECTOR CONTAINS
02203  M00S02025.rec     +++|*         INFORMATION DESCRIBING EACH SUB-CHAIN PRESENT.
02204  M00S02026.rec     +++| 4RB      SPACE  4,10
02205  M00S02027.rec     +++|***       OPERATOR MESSAGES.

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02028.rec     +++|*
02211  M00S02029.rec     +++|*         *USER EXTENDED MEMORY IMPROPERLY ALLOCATED.* = AN
02212  M00S02030.rec     +++|*         INCONSISTENCY HAS BEEN DETECTED, BETWEEN THE REQUESTED USER
02213  M00S02031.rec     +++|*         EXTENDED MEMORY SPACE AND ALLOCATION INFORMATION IN THE
02214  M00S02032.rec     +++|*         SYSTEM SECTOR, WHILE ATTEMPTING TO RECOVER THE USER
02215  M00S02033.rec     +++|*         DIRECT ACCESS SPACE.
02216  M00S02034.rec     +++|*
02217  M00S02035.rec     +++|*         *USER EM SPACE UNAVAILABLE.* = THE AMOUNT
02218  M00S02036.rec     +++|*         REQUESTED FOR USER EXTENDED MEMORY (VIA THE *XM* ENTRY IN
02219  M00S02037.rec     +++|*         *EQPDECK*) IS NOT AVAILABLE.
02220  M00S02038.rec     +++|*
02221  M00S02039.rec     +++|*         *USER EXTENDED MEMORY SYSTEM SECTOR ERROR.* = AN ERROR WAS
02222  M00S02040.rec     +++|*         DETECTED WHILE READING THE SYSTEM SECTOR FOR THE USER
02223  M00S02041.rec     +++|*         EXTENDED MEMORY CHAIN.

Seq #  *Modification Id* Act 
----------------------------+
02224  M01S02042.271l716 ---|*
02225  M00S02043.rec     +++| 4RB      SPACE  4,10
02226  M00S02044.rec     +++|****      DIRECT CELL DEFINITIONS LOCAL TO *4RB*.
02227  M00S02045.rec     +++|
02228  M00S02046.rec     +++|
02229  M00S02047.rec     +++| T8       EQU    26          POINTER TO SUB-CHAIN ENTRY
02230  M00S02048.rec     +++| T9       EQU    27          CURRENT MACHINE ID

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02049.rec     +++|
02235  M00S02050.rec     +++|****
02236  M00S02051.rec     +++| ECS      TITLE  MAIN PROCESSING ROUTINE.
02237  M00S02052.rec     +++| ECS      SPACE  4,10
02238  M00S02053.rec     +++|**        ECS - MAIN ROUTINE.
02239  M00S02054.rec     +++|
02240  M00S02055.rec     +++|
02241  M00S02056.rec     +++|          ORG    OVLA
02242  M00S02057.rec     +++| ECS      SUBR               ENTRY/EXIT
02243  M00S02058.rec     +++|          RJM    PRS         PRESET OVERLAY
02244  M00S02059.rec     +++|          LDM    TAXM
02245  M00S02060.rec     +++|          ZJN    ECS1        IF NO ENTRY FOR THIS MACHINE
02246  M00S02061.rec     +++|          LDM    TAXM+2      GET LENGTH OF USER EXTENDED MEMORY
02247  M00S02062.rec     +++|          STD    FS+2
02248  M00S02063.rec     +++| ECS1     RJM    SDI         INTERLOCK ECS
02249  M00S02064.rec     +++|          LDM    ECSE+ACGL*5+1  CHECK FOR FIRST TRACK OF UEC CHAIN
02250  M00S02065.rec     +++|          ZJN    ECS2        IF MST NOT INITIALIZED
02251  M00S02066.rec     +++|          LJM    ECS8        IF SOME USER ECS SPACE ALLOCATED
02252  M00S02067.rec     +++|
02253  M00S02068.rec     +++|*         INITIALIZE USER EXTENDED MEMORY CHAIN AND MST.
02254  M00S02069.rec     +++|
02255  M00S02070.rec     +++| ECS2     LDD    FS+2
02256  M00S02071.rec     +++|          ZJN    ECS4        IF NO USER ECS REQUESTED FOR THIS MACHINE
02257  M00S02072.rec     +++|          LDD    RS
02258  M00S02073.rec     +++|          NJN    ECS6        IF NOT LEVEL 0 DEADSTART
02259  M00S02074.rec     +++|          RJM    ISS         INITIALIZE SYSTEM SECTOR
02260  M00S02075.rec     +++|          LDM    ECSE+ACGL*5+1  END OF CURRENT CHAIN
02261  M00S02076.rec     +++|          STD    FS+4
02262  M00S02077.rec     +++|          LDC    BFMS+2+4*5  SET FIRST ENTRY POINTER
02263  M00S02078.rec     +++|          STD    T8
02264  M00S02079.rec     +++|
02265  M00S02080.rec     +++|*         ASSIGN USER EXTENDED MEMORY AREA.
02266  M00S02081.rec     +++|
02267  M00S02082.rec     +++| ECS3     RJM    ACE         ASSIGN TRACKS
02268  M00S02083.rec     +++|          RJM    SSS         STORE SYSTEM SECTOR
02269  M00S02084.rec     +++| ECS4     RJM    CDI         CLEAR INTERLOCK
02270  M00S02085.rec     +++| ECSA     RJM    SCP         SETUP CONTROL POINT AREAS
02271  M00S02086.rec     +++|*         UJN    *+2         (DURING MMF PROCESSING)
02272  M00S02087.rec     +++| ECS5     LDC    0
02273  M00S02088.rec     +++| ECSB     EQU    *-1
02274  M00S02089.rec     +++|          LMD    FS
02275  M00S02090.rec     +++|          ZJN    ECS7        IF ALLOCATING ON MMF LINK
02276  M00S02091.rec     +++| ECS5.1   LJM    ECSX        RETURN
02277  M00S02092.rec     +++|
02278  M00S02093.rec     +++|*         ERROR IN USER EXTENDED MEMORY ALLOCATION.
02279  M00S02094.rec     +++|
02280  M00S02095.rec     +++| ECS6     RJM    CDI         CLEAR INTERLOCK
02281  M00S02096.rec     +++|          LDC    =C*USER EXTENDED MEMORY IMPROPERLY ALLOCATED.*
02282  M00S02097.rec     +++|          LJM    HNG         ISSUE ERROR AND HANG
02283  M00S02098.rec     +++|
02284  M00S02099.rec     +++|*         SET UP TO PROCESS MULTIMAINFRAME ALLOCATION.
02285  M00S02100.rec     +++|
02286  M00S02101.rec     +++| ECS7     LDC    UJNI+2      SET MMF SWITCHES
02287  M00S02102.rec     +++|          STM    ECSA
02288  M00S02103.rec     +++|          LDD    HN
02289  M00S02104.rec     +++|          ERRNZ  100-LJMI    ADJUST IF VALUE CHANGES
02290  M00S02105.rec     +++|          STM    ECSC
02291  M00S02106.rec     +++|          LDC    ECS5
02292  M00S02107.rec     +++|          STM    ECSC+1
02293  M00S02108.rec     +++|          RJM    CAD         CLEAR THIS MACHINES ID AND DATA
02294  M00S02109.rec     +++|          RJM    FAD         FETCH NEW MACHINE ID AND DATA
02295  M00S02110.rec     +++|          ZJN    ECS5.1      IF NO MORE MACHINES TO ALLOCATE
02296  M00S02111.rec     +++|          STD    T9
02297  M00S02112.rec     +++|          LDM    2,T1        SET NEW USER EXTENDED MEMORY AREA LENGTH
02298  M00S02113.rec     +++|          STD    FS+2
02299  M00S02114.rec     +++|          LJM    ECS1        PROCESS ANOTHER MACHINE
02300  M00S02115.rec     +++|
02301  M00S02116.rec     +++|*         PROCESS EXISTING USER EXTENDED MEMORY CHAIN.
02302  M00S02117.rec     +++|
02303  M00S02118.rec     +++| ECS8     RJM    CDI         CLEAR INTERLOCK ON ECS
02304  M00S02119.rec     +++|          RJM    FSS         FETCH EXISTING SYSTEM SECTOR
02305  M00S02120.rec     +++|          RJM    FTM         FIND THIS MACHINES ENTRY
02306  M00S02121.rec     +++|          LDM    2,T8
02307  M00S02122.rec     +++|          NJN    ECS9        IF SPACE EXISTS FOR THIS MACHINE
02308  M00S02123.rec     +++|          LDD    FS+2
02309  M00S02124.rec     +++|          ZJN    ECS12       IF SPACE NOT REQUESTED FOR THIS MACHINE
02310  M00S02125.rec     +++|          LDD    RS
02311  M00S02126.rec     +++|          NJN    ECS10       IF NOT LEVEL 0, THEN ERROR
02312  M00S02127.rec     +++|          UJN    ECS14       LOCATE END OF USER EXTENDED MEMORY CHAIN
02313  M00S02128.rec     +++|
02314  M00S02129.rec     +++|*         PROCESS EXISTING SUB-CHAIN.
02315  M00S02130.rec     +++|
02316  M00S02131.rec     +++| ECS9     LDM    3,T8        SET RAE FROM SYSTEM SECTOR
02317  M00S02132.rec     +++|          STD    FS+3
02318  M00S02133.rec     +++|          LDM    1,T8        SET FIRST TRACK OF SUB CHAIN
02319  M00S02134.rec     +++|          STD    FS+1
02320  M00S02135.rec     +++|          LDD    FS+2
02321  M00S02136.rec     +++|          NJN    ECS13       IF SPACE REQUESTED
02322  M00S02137.rec     +++|          LDD    RS
02323  M00S02138.rec     +++|          ZJN    ECS11       IF LEVEL 0 DEADSTART
02324  M00S02139.rec     +++| ECS10    LJM    ECS6        REPORT ERROR
02325  M00S02140.rec     +++|
02326  M00S02141.rec     +++|*         RELEASE EXISTING SUB-CHAIN.
02327  M00S02142.rec     +++|
02328  M00S02143.rec     +++| ECS11    RJM    RLS         RELEASE SPACE
02329  M00S02144.rec     +++|          STD    T9          CLEAR SUB-CHAIN ENTRY
02330  M00S02145.rec     +++|          STD    FS+2
02331  M00S02146.rec     +++|          RJM    SSS         STORE UPDATED SYSTEM SECTOR
02332  M00S02147.rec     +++| ECS12    LJM    ECS4        COMPLETE PROCESSING
02333  M00S02148.rec     +++|
02334  M00S02149.rec     +++|*         UPDATE EXISTING SUB-CHAIN.
02335  M00S02150.rec     +++|
02336  M00S02151.rec     +++| ECS13    LDM    2,T8
02337  M00S02152.rec     +++|          SBD    FS+2
02338  M00S02153.rec     +++|          ZJN    ECS12       IF SPACE MATCHES
02339  M00S02154.rec     +++|          LDD    RS
02340  M00S02155.rec     +++|          NJN    ECS10       IF NOT LEVEL 0 DEADSTART, THEN ERROR
02341  M00S02156.rec     +++| ECSC     RJM    RLS         RELEASE SPACE
02342  M00S02157.rec     +++|*         LJM    ECS5        (DURING MMF PROCESSING)
02343  M00S02158.rec     +++|
02344  M00S02159.rec     +++|*         FIND LAST TRACK OF USER EXTENDED MEMORY CHAIN.
02345  M00S02160.rec     +++|
02346  M00S02161.rec     +++| ECS14    LDD    FS          SET EQUIPMENT
02347  M00S02162.rec     +++|          STD    T5
02348  M00S02163.rec     +++|          LDM    ECSE+ACGL*5+1  SET FIRST TRACK
02349  M00S02164.rec     +++|          STD    T6
02350  M00S02165.rec     +++|          RJM    IRA         INITIALIZE RANDOM ACCESS PROCESSORS
02351  M00S02166.rec     +++|          LDN    0           FORCE TRT UPDATE
02352  M00S02167.rec     +++|          RJM    SEI         SEARCH FOR EOI
02353  M00S02168.rec     +++|          LDD    T6          SET LAST TRACK
02354  M00S02169.rec     +++|          STD    FS+4
02355  M00S02170.rec     +++|          LJM    ECS3        ASSIGN TRACKS
02356  M00S02171.rec     +++|
02357  M00S02172.rec     +++|
02358  M00S02173.rec     +++| ECSE     BSS    3*5         BUFFER FOR MST GLOBAL WORDS
02359  M00S02174.rec     +++| ECSF     VFD    42/7H**UECS.,6/0,6/SYFT,6/0
02360  M00S02175.rec     +++|          TITLE  SUBROUTINES.
02361  M00S02176.rec     +++| ACE      SPACE  4,10
02362  M00S02177.rec     +++|**        ACE - ASSIGN CONTIGUOUS EXTENDED MEMORY TRACKS.
02363  M00S02178.rec     +++|*
02364  M00S02179.rec     +++|*         ENTRY  (FS) = EXTENDED MEMORY EST ORDINAL.
02365  M00S02180.rec     +++|*                (FS+2) = LENGTH OF USER EXTENDED MEMORY AREA / *EMBS*.
02366  M00S02181.rec     +++|*                (FS+4) = LAST TRACK OF CURRENT CHAIN.
02367  M00S02182.rec     +++|*
02368  M00S02183.rec     +++|*         EXIT   (FS+1) = FIRST TRACK OF SUB-CHAIN.
02369  M00S02184.rec     +++|*                (FS+3) = RA/*EMBS* OF USER EXTENDED MEMORY AREA.
02370  M00S02185.rec     +++|*                (FS+4) = LAST TRACK OF NEW SUB-CHAIN.
02371  M00S02186.rec     +++|*
02372  M00S02187.rec     +++|*         USES   CM - CM+7, CN - CN+4, FS+1 - FS+3, T0 - T7.
02373  M00S02188.rec     +++|*
02374  M00S02189.rec     +++|*         CALLS  CAT, CDI.
02375  M00S02190.rec     +++|
02376  M00S02191.rec     +++|
02377  M00S02192.rec     +++| ACE17    LDN    0           CLEAR FIELDS
02378  M00S02193.rec     +++|          STD    FS+1
02379  M00S02194.rec     +++|          STD    FS+3
02380  M00S02195.rec     +++|
02381  M00S02196.rec     +++| ACE      SUBR               ENTRY/EXIT
02382  M00S02197.rec     +++|          LDD    FS+2
02383  M00S02198.rec     +++|          ZJN    ACE17       IF NO USER EXTENDED MEMORY TO BE ALLOCATED
02384  M00S02199.rec     +++|          ADN    2
02385  M00S02200.rec     +++|          SHN    5
02386  M00S02201.rec     +++|          STD    T1          ALLOW FOR *EMBS* WORD BLOCKS
02387  M00S02202.rec     +++|          SHN    -14
02388  M00S02203.rec     +++|          STD    T6
02389  M00S02204.rec     +++|          LDN    0           TRACK COUNT = (FL*40) / 101
02390  M00S02205.rec     +++|          STD    T7
02391  M00S02206.rec     +++| ACE0     AOD    T7          ADVANCE TRACK COUNT
02392  M00S02207.rec     +++|          LDC    -101
02393  M00S02208.rec     +++|          RAD    T1
02394  M00S02209.rec     +++|          PJN    ACE0        IF NOT UNDERFLOW
02395  M00S02210.rec     +++|          AOD    T1
02396  M00S02211.rec     +++|          SOD    T6
02397  M00S02212.rec     +++|          PJN    ACE0        IF NOT END OF CONVERSION
02398  M00S02213.rec     +++|          LDN    17
02399  M00S02214.rec     +++| ACEB     SHN    -4          ADJUST FOR BLOCKING FACTOR
02400  M00S02215.rec     +++|*         SHN    -4+UESC-EMSC
02401  M00S02216.rec     +++|          RAD    T7
02402  M00S02217.rec     +++|          RJM    CDI         CLEAR INTERLOCK ON ECS
02403  M00S02218.rec     +++|          UJN    ACE2        ENTER LOOP
02404  M00S02219.rec     +++|
02405  M00S02220.rec     +++| ACE1     LDD    NC          WRITE MESSAGE TO SYSTEM CONTROL POINT
02406  M00S02221.rec     +++|          SHN    7
02407  M00S02222.rec     +++|          ADN    MS2W
02408  M00S02223.rec     +++|          CWM    =C*USER EM SPACE UNAVAILABLE.*,TR
02409  M00S02224.rec     +++| ACE2     PAUSE  NE
02410  M00S02225.rec     +++|          LCN    1           SET TO REQUEST ALL TRACKS
02411  M00S02226.rec     +++|          STD    CM+4
02412  M00S02227.rec     +++|          SHN    -14
02413  M00S02228.rec     +++|          STD    CM+3
02414  M00S02229.rec     +++|          LDD    FS          SET EST ORDINAL
02415  M00S02230.rec     +++|          STD    CM+1
02416  M00S02231.rec     +++|          LDD    FS+4        SET CURRENT TRACK
02417  M00S02232.rec     +++|          STD    CM+2
02418  M00S02233.rec     +++|          MONITOR RTCM       REQUEST ALL AVAILABLE ECS SPACE
02419  M00S02234.rec     +++|          LDD    CM+4
02420  M00S02235.rec     +++|          ZJN    ACE1        IF TRACKS NOT AVAILABLE
02421  M00S02236.rec     +++|          RJM    CAT         CALCULATE FWA OF TRT
02422  M00S02237.rec     +++|          STM    ACEA+1
02423  M00S02238.rec     +++|          SHN    -14
02424  M00S02239.rec     +++|          ADC    ADCI
02425  M00S02240.rec     +++|          STM    ACEA
02426  M00S02241.rec     +++|
02427  M00S02242.rec     +++|*         FIND BEST FITTING CONTIGUOUS TRACK CHAIN.
02428  M00S02243.rec     +++|*         (T0) = POINTER TO FIRST TRACK OF CHAIN UNDER CONSIDERATION.
02429  M00S02244.rec     +++|*         (T1) = FIRST TRACK OF CHAIN UNDER CONSIDERATION.
02430  M00S02245.rec     +++|*         (T2) = LENGTH OF CHAIN UNDER CONSIDERATION.
02431  M00S02246.rec     +++|*         (T3) = POINTER TO FIRST TRACK OF BEST FIT SO FAR.
02432  M00S02247.rec     +++|*         (T4) = FIRST TRACK OF BEST FIT SO FAR.
02433  M00S02248.rec     +++|*         (T5) = LENGTH OF BEST FIT SO FAR.
02434  M00S02249.rec     +++|*         (T6) = BYTE INDEX.
02435  M00S02250.rec     +++|*         (T7) = LENGTH OF TRACK CHAIN REQUESTED.
02436  M00S02251.rec     +++|*         (CM) = POINTER TO FIRST TRACK OF LONGEST CHAIN SO FAR.
02437  M00S02252.rec     +++|*         (CM+1) = FIRST TRACK OF LONGEST CHAIN SO FAR.
02438  M00S02253.rec     +++|*         (CM+2) = LENGTH OF LONGEST CHAIN SO FAR.
02439  M00S02254.rec     +++|
02440  M00S02255.rec     +++|          LDN    ZERL
02441  M00S02256.rec     +++|          CRD    T0
02442  M00S02257.rec     +++|          LDN    0
02443  M00S02258.rec     +++|          STD    CM
02444  M00S02259.rec     +++|          STD    CM+1
02445  M00S02260.rec     +++|          STD    CM+2
02446  M00S02261.rec     +++|          LDD    NC          CLEAR MESSAGE AT SYSTEM CONTROL POINT
02447  M00S02262.rec     +++|          SHN    7
02448  M00S02263.rec     +++|          ADN    MS2W
02449  M00S02264.rec     +++|          CWD    CM
02450  M00S02265.rec     +++|          LCN    0           PRESET AMOUNT OF SLOP IN BEST FIT
02451  M00S02266.rec     +++|          STD    T5
02452  M00S02267.rec     +++|          LDD    CM+4        SET FIRST TRACK
02453  M00S02268.rec     +++|          LJM    ACE9
02454  M00S02269.rec     +++|
02455  M00S02270.rec     +++|*         SCAN TRT FOR CONTIGUOUS TRACKS.
02456  M00S02271.rec     +++|
02457  M00S02272.rec     +++| ACE4     AOD    T2          INCREMENT LENGTH OF THIS CHAIN
02458  M00S02273.rec     +++|          LDD    CM+3        SET BYTE INDEX
02459  M00S02274.rec     +++|          LPN    3
02460  M00S02275.rec     +++|          STD    T6
02461  M00S02276.rec     +++|          NJN    ACE6        IF NOT POINTER TO NEW WORD
02462  M00S02277.rec     +++| ACE5     LDD    CM+3        READ NEW TRT WORD
02463  M00S02278.rec     +++|          SHN    -2
02464  M00S02279.rec     +++| ACEA     ADC    TRTS
02465  M00S02280.rec     +++|          CRD    CN
02466  M00S02281.rec     +++| ACE6     AOD    CM+3
02467  M00S02282.rec     +++|          LMM    CN,T6
02468  M00S02283.rec     +++|          ZJN    ACE4        IF CONTIGUOUS TRACK
02469  M00S02284.rec     +++|          LDD    T2          CHECK FOR LONGEST CHAIN
02470  M00S02285.rec     +++|          SBD    CM+2
02471  M00S02286.rec     +++|          MJN    ACE7        IF OLD TRACK CHAIN LONGER
02472  M00S02287.rec     +++|          RAD    CM+2        SET NEW LENGTH
02473  M00S02288.rec     +++|          LDD    T0          SET POINTER TO FIRST TRACK
02474  M00S02289.rec     +++|          STD    CM
02475  M00S02290.rec     +++|          LDD    T1          SET FIRST TRACK
02476  M00S02291.rec     +++|          STD    CM+1
02477  M00S02292.rec     +++| ACE7     LDD    T2          CHECK IF THIS CHAIN LONG ENOUGH
02478  M00S02293.rec     +++|          SBD    T7
02479  M00S02294.rec     +++|          MJN    ACE8        IF NOT LONG ENOUGH
02480  M00S02295.rec     +++|          SBD    T5          COMPARE AMOUNT OF SLOP
02481  M00S02296.rec     +++|          PJN    ACE8        IF OLD CHAIN HAS LESS SLOP
02482  M00S02297.rec     +++|          RAD    T5          SET NEW AMOUNT OF SLOP
02483  M00S02298.rec     +++|          LDD    T0          SET POINTER TO FIRST TRACK
02484  M00S02299.rec     +++|          STD    T3
02485  M00S02300.rec     +++|          LDD    T1          SET FIRST TRACK
02486  M00S02301.rec     +++|          STD    T4
02487  M00S02302.rec     +++| ACE8     SOD    CM+3        SET POINTER TO FIRST TRACK OF NEXT CHAIN
02488  M00S02303.rec     +++|          STD    T0
02489  M00S02304.rec     +++|          LDM    CN,T6       CHECK FOR EOI
02490  M00S02305.rec     +++| ACE9     SHN    6
02491  M00S02306.rec     +++|          PJN    ACE10       IF EOI
02492  M00S02307.rec     +++|          SHN    -6
02493  M00S02308.rec     +++|          STD    CM+3        SET FIRST TRACK OF NEXT CHAIN TO CHECK
02494  M00S02309.rec     +++|          STD    T1
02495  M00S02310.rec     +++|          LPN    3           SET BYTE INDEX
02496  M00S02311.rec     +++|          STD    T6
02497  M00S02312.rec     +++|          LDN    1
02498  M00S02313.rec     +++|          STD    T2
02499  M00S02314.rec     +++|          LJM    ACE5
02500  M00S02315.rec     +++|
02501  M00S02316.rec     +++|*         COMPLETE PROCESSING.
02502  M00S02317.rec     +++|
02503  M00S02318.rec     +++| ACE10    LDD    T7          ADJUST TRACK CHAIN LENGTH
02504  M00S02319.rec     +++|          RAD    T5
02505  M00S02320.rec     +++|          LDD    T4          CHECK IF LARGE ENOUGH CHAIN FOUND
02506  M00S02321.rec     +++|          NJN    ACE11       IF CHAIN FOUND
02507  M00S02322.rec     +++|          LDD    FS+4
02508  M00S02323.rec     +++|          UJN    ACE14       DROP SHORT TRACK TRAIN
02509  M00S02324.rec     +++|
02510  M00S02325.rec     +++|*         DROP UNUSED TRACKS.
02511  M00S02326.rec     +++|
02512  M00S02327.rec     +++| ACE11    LMD    CM+4
02513  M00S02328.rec     +++|          ZJN    ACE12       IF ONLY NEED TO DROP TRACKS OFF END
02514  M00S02329.rec     +++|          LDD    FS          SET EXTENDED MEMORY EQ NUMBER
02515  M00S02330.rec     +++|          STD    CM+1
02516  M00S02331.rec     +++|          LDD    FS+4        SET TRACK TO LINK TO
02517  M00S02332.rec     +++|          LPC    3777
02518  M00S02333.rec     +++|          STD    CM+2
02519  M00S02334.rec     +++|          LDD    T4          SET FIRST TRACK OF CONTIGUOUS CHAIN
02520  M00S02335.rec     +++|          STD    CM+3
02521  M00S02336.rec     +++|          LDD    T3          SET LAST TRACK TO DROP
02522  M00S02337.rec     +++|          STD    CM+4
02523  M00S02338.rec     +++|          MONITOR DLKM
02524  M00S02339.rec     +++| ACE12    LDD    T7          CHECK IF ALL REQUEST SPACE FOUND
02525  M00S02340.rec     +++|          SBD    T5
02526  M00S02341.rec     +++|          PJN    ACE13       DROP UNNEEDED TRACKS
02527  M00S02342.rec     +++|          RAD    T5
02528  M00S02343.rec     +++| ACE13    LDD    T4          COMPUTE LAST TRACK NEEDED IN CHAIN
02529  M00S02344.rec     +++|          ADD    T5
02530  M00S02345.rec     +++|          SBN    1
02531  M00S02346.rec     +++| ACE14    LPC    3777
02532  M00S02347.rec     +++|          STD    CM+2
02533  M00S02348.rec     +++|          LDD    FS          SET EXTENDED MEMORY EQ NUMBER
02534  M00S02349.rec     +++|          LMC    4000
02535  M00S02350.rec     +++|          STD    CM+1
02536  M00S02351.rec     +++|          LDN    0           SET SECTOR NUMBER
02537  M00S02352.rec     +++|          STD    CM+3
02538  M00S02353.rec     +++|          MONITOR DTKM       DROP TRACKS
02539  M00S02354.rec     +++|
02540  M00S02355.rec     +++|*         COMPUTE RA AND LAST TRACK OF USER EXTENDED MEMORY AREA.
02541  M00S02356.rec     +++|
02542  M00S02357.rec     +++|          LDD    T4          SET FIRST TRACK
02543  M00S02358.rec     +++|          NJN    ACE15       IF USER EXTENDED MEMORY SPACE FOUND
02544  M00S02359.rec     +++|          LJM    ISS2        REPORT ERROR
02545  M00S02360.rec     +++|
02546  M00S02361.rec     +++| ACE15    STD    FS+1
02547  M00S02362.rec     +++|          LPC    3777        COMPUTE USER EXTENDED MEMORY RA
02548  M00S02363.rec     +++|          STD    T6
02549  M00S02364.rec     +++|          SHN    6           *100
02550  M00S02365.rec     +++|          ADD    T6          *101
02551  M00S02366.rec     +++|          SHN    1           *202
02552  M00S02367.rec     +++|          ADN    77          ROUND TO NEAREST *EMBS* WORDS
02553  M00S02368.rec     +++|          SHN    -6
02554  M00S02369.rec     +++|          STD    FS+3        SET USER EXTENDED MEMORY RA
02555  M00S02370.rec     +++|          LDN    17          ROUND TO NEAREST *UEBS* WORDS
02556  M00S02371.rec     +++| ACEC     SHN    -4
02557  M00S02372.rec     +++|*         SHN    -4+UESC-EMSC
02558  M00S02373.rec     +++|          RAD    FS+3
02559  M00S02374.rec     +++|          LDD    T5          COMPUTE USER EXTENDED MEMORY FL
02560  M00S02375.rec     +++|          RAD    T6
02561  M00S02376.rec     +++|          STD    FS+4        SET LAST TRACK
02562  M00S02377.rec     +++|          SHN    6           *100
02563  M00S02378.rec     +++|          ADD    T6          *101
02564  M00S02379.rec     +++|          SHN    -5          *202/100
02565  M00S02380.rec     +++|          SBD    FS+3        SUBTRACT EXTENDED MEMORY RA
02566  M00S02381.rec     +++|          SBD    FS+2
02567  M00S02382.rec     +++|          PJN    ACE16       IF SUFFICIENT SPACE
02568  M00S02383.rec     +++|          LJM    ECS6        REPORT ERROR
02569  M00S02384.rec     +++|
02570  M00S02385.rec     +++| ACE16    LDC    3777        POINT TO LAST TRACK
02571  M00S02386.rec     +++|          RAD    FS+4
02572  M00S02387.rec     +++|          LJM    ACEX        RETURN
02573  M00S02388.rec     +++| CAD      SPACE  4,10
02574  M00S02389.rec     +++|**        CAD - CLEAR ALLOCATION DATA.
02575  M00S02390.rec     +++|*
02576  M00S02391.rec     +++|*         ENTRY  (T9) = ID OF MACHINE TO BE CLEARED.
02577  M00S02392.rec     +++|*
02578  M00S02393.rec     +++|*         USES   T1.
02579  M00S02394.rec     +++|
02580  M00S02395.rec     +++|
02581  M00S02396.rec     +++| CAD2     STI    T1          CLEAR ENTRY
02582  M00S02397.rec     +++|
02583  M00S02398.rec     +++| CAD      SUBR               ENTRY/EXIT
02584  M00S02399.rec     +++|          LDC    TAXM
02585  M00S02400.rec     +++|          STD    T1
02586  M00S02401.rec     +++| CAD1     LDI    T1
02587  M00S02402.rec     +++|          LMD    T9
02588  M00S02403.rec     +++|          ZJN    CAD2        IF MATCH FOUND
02589  M00S02404.rec     +++|          LDN    5
02590  M00S02405.rec     +++|          RAD    T1
02591  M00S02406.rec     +++|          LMC    TAXML
02592  M00S02407.rec     +++|          NJN    CAD1        LOOP
02593  M00S02408.rec     +++|          UJN    CADX        RETURN
02594  M00S02409.rec     +++| CAT      SPACE  4,10
02595  M00S02410.rec     +++|**        CAT - CALCULATE ADDRESS OF TRT.
02596  M00S02411.rec     +++|*
02597  M00S02412.rec     +++|*         ENTRY  (CATA) = EXTENDED MEMORY MST ADDRESS / 10.
02598  M00S02413.rec     +++|*
02599  M00S02414.rec     +++|*         EXIT   (A) = FWA OF TRT - 1000.
02600  M00S02415.rec     +++|*
02601  M00S02416.rec     +++|*         USES   T0 - T4.
02602  M00S02417.rec     +++|
02603  M00S02418.rec     +++|
02604  M00S02419.rec     +++| CAT      SUBR               ENTRY/EXIT
02605  M00S02420.rec     +++|          LDC    **          READ TRT ADDRESS FROM EXTENDED MEMORY MST
02606  M00S02421.rec     +++| CATA     EQU    *-1         (ECS MST ADDRESS)
02607  M00S02422.rec     +++|          SHN    3
02608  M00S02423.rec     +++|          ADN    TRLL
02609  M00S02424.rec     +++|          CRD    T0
02610  M00S02425.rec     +++|          LDD    T0+3
02611  M00S02426.rec     +++|          LPN    77
02612  M00S02427.rec     +++|          SHN    14
02613  M00S02428.rec     +++|          LMD    T0+4
02614  M00S02429.rec     +++|          SBD    TH          4000/4
02615  M00S02430.rec     +++|          UJN    CATX        RETURN
02616  M00S02431.rec     +++| CDI      SPACE  4,10
02617  M00S02432.rec     +++|**        CDI - CLEAR DEVICE INTERLOCK ON ECS.
02618  M00S02433.rec     +++|*
02619  M00S02434.rec     +++|*         ENTRY  (FS) = EXTENDED MEMORY EST ORDINAL.
02620  M00S02435.rec     +++|*
02621  M00S02436.rec     +++|*         EXIT   (DIFL) = 0.
02622  M00S02437.rec     +++|*
02623  M00S02438.rec     +++|*         USES   CM - CM+4.
02624  M00S02439.rec     +++|
02625  M00S02440.rec     +++|
02626  M00S02441.rec     +++| CDI      SUBR               ENTRY/EXIT
02627  M00S02442.rec     +++|          LDM    DIFL
02628  M00S02443.rec     +++|          ZJN    CDIX        IF INTERLOCK NOT SET
02629  M00S02444.rec     +++|          LDD    FS          SET EQUIPMENT
02630  M00S02445.rec     +++|          STD    CM+1
02631  M00S02446.rec     +++|          LDN    CDIS        SET FUNCTION
02632  M00S02447.rec     +++|          STD    CM+3
02633  M00S02448.rec     +++|          LDN    0
02634  M00S02449.rec     +++|          STD    CM+2
02635  M00S02450.rec     +++|          STD    CM+4
02636  M00S02451.rec     +++|          MONITOR STBM
02637  M00S02452.rec     +++|*         LDN    0           CLEAR INTERLOCK FLAG
02638  M00S02453.rec     +++|          STM    DIFL
02639  M00S02454.rec     +++|          UJN    CDIX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02455.rec     +++| FAD      SPACE  4,10
02687  M00S02456.rec     +++|**        FAD - FETCH ALLOCATION DATA.
02688  M00S02457.rec     +++|*
02689  M00S02458.rec     +++|*         EXIT   (A) = ((T1)) = MACHINE ID,IF ONE FOUND.
02690  M00S02459.rec     +++|*                    = 0 IF NO ENTRIES IN ALLOCATION DATA.
02691  M00S02460.rec     +++|*
02692  M00S02461.rec     +++|*         USES   T1.
02693  M00S02462.rec     +++|
02694  M00S02463.rec     +++|
02695  M00S02464.rec     +++| FAD      SUBR               ENTRY/EXIT
02696  M00S02465.rec     +++|          LDC    TAXM
02697  M00S02466.rec     +++|          STD    T1
02698  M00S02467.rec     +++| FAD1     LDI    T1
02699  M00S02468.rec     +++|          NJN    FADX        IF ENTRY FOUND
02700  M00S02469.rec     +++|          LDN    5
02701  M00S02470.rec     +++|          RAD    T1
02702  M00S02471.rec     +++|          LMC    TAXML
02703  M00S02472.rec     +++|          ZJN    FADX        IF END OF SEARCH
02704  M00S02473.rec     +++|          UJN    FAD1        LOOP
02705  M00S02474.rec     +++| FSS      SPACE  4,10
02706  M00S02475.rec     +++|**        FSS - FETCH SYSTEM SECTOR FOR USER EXTENDED MEMORY CHAIN.
02707  M00S02476.rec     +++|*
02708  M00S02477.rec     +++|*         ENTRY  (ECSE) = MST GLOBAL WORDS.
02709  M00S02478.rec     +++|*                (FS) = EXTENDED MEMORY EST ORDINAL.
02710  M00S02479.rec     +++|*
02711  M00S02480.rec     +++|*         EXIT   (BFMS) = SYSTEM SECTOR FOR USER EXTENDED MEMORY CHAIN.
02712  M00S02481.rec     +++|*
02713  M00S02482.rec     +++|*         USES   T5, T6.
02714  M00S02483.rec     +++|*
02715  M00S02484.rec     +++|*         CALLS  CDI, RSS.
02716  M00S02485.rec     +++|
02717  M00S02486.rec     +++|
02718  M00S02487.rec     +++| FSS1     ENDMS
02719  M00S02488.rec     +++|
02720  M00S02489.rec     +++| FSS      SUBR               ENTRY/EXIT
02721  M00S02490.rec     +++|          LDD    FS          SET EST ORDINAL
02722  M00S02491.rec     +++|          STD    T5
02723  M00S02492.rec     +++|          LDM    ECSE+ACGL*5+1  SET FIRST TRACK
02724  M00S02493.rec     +++|          STD    T6
02725  M00S02494.rec     +++|          SETMS  IO
02726  M00S02495.rec     +++|          LDC    ECSF        READ SYSTEM SECTOR
02727  M00S02496.rec     +++|          RJM    RSS
02728  M00S02497.rec     +++|          ZJN    FSS1        IF NO ERROR IN SYSTEM SECTOR
02729  M00S02498.rec     +++|          RJM    CDI         CLEAR DEVICE INTERLOCK
02730  M00S02499.rec     +++|          LDC    =C*USER EXTENDED MEMORY SYSTEM SECTOR ERROR.*
02731  M00S02500.rec     +++|          UJN    HNG         ISSUE ERROR AND HANG
02732  M00S02501.rec     +++| FTM      SPACE  4,10
02733  M00S02502.rec     +++|**        FTM - FIND THIS MACHINES ID IN THE SYSTEM SECTOR.
02734  M00S02503.rec     +++|*
02735  M00S02504.rec     +++|*         ENTRY  (T9) = MACHINE ID TO BE FOUND.
02736  M00S02505.rec     +++|*                (BFMS) = SYSTEM SECTOR FOR USER EXTENDED MEMORY CHAIN.
02737  M00S02506.rec     +++|*
02738  M00S02507.rec     +++|*         EXIT   (T8) = POINTER TO THIS MACHINES ID OR POINTER TO THE
02739  M00S02508.rec     +++|*                       FIRST EMPTY SUB-CHAIN ENTRY.
02740  M00S02509.rec     +++|*                IF NO MATCH AND NO EMPTY ENTRY THEN EXIT TO *ECS6*
02741  M00S02510.rec     +++|*                TO REPORT ERROR CONDITION.
02742  M00S02511.rec     +++|*
02743  M00S02512.rec     +++|*         USES   T1, T8.
02744  M00S02513.rec     +++|
02745  M00S02514.rec     +++|
02746  M00S02515.rec     +++| FTM3     LDD    T1
02747  M00S02516.rec     +++|          NJN    FTM4        IF EMPTY ENTRY FOUND
02748  M00S02517.rec     +++|          LJM    ECS6        REPORT ERROR
02749  M00S02518.rec     +++|
02750  M00S02519.rec     +++| FTM4     STD    T8          SET POINTER TO EMPTY SUB-CHAIN
02751  M00S02520.rec     +++|
02752  M00S02521.rec     +++| FTM      SUBR               ENTRY/EXIT
02753  M00S02522.rec     +++|          LDC    BFMS+2+3*5  INITIALIZE POINTERS
02754  M00S02523.rec     +++|          STD    T8
02755  M00S02524.rec     +++|          LDN    0
02756  M00S02525.rec     +++|          STD    T1
02757  M00S02526.rec     +++| FTM1     LDN    5           INCREMENT POINTER
02758  M00S02527.rec     +++|          RAD    T8
02759  M00S02528.rec     +++|          LMC    BFMS+2+10*5
02760  M00S02529.rec     +++|          ZJN    FTM3        IF END OF SUB-CHAIN ENTRIES
02761  M00S02530.rec     +++|          LDI    T8
02762  M00S02531.rec     +++|          NJN    FTM2        IF NOT AN EMPTY ENTRY
02763  M00S02532.rec     +++|          LDD    T1
02764  M00S02533.rec     +++|          NJN    FTM1        IF FIRST EMPTY ENTRY ALREADY FOUND
02765  M00S02534.rec     +++|          LDD    T8          SET POINTER TO EMPTY ENTRY
02766  M00S02535.rec     +++|          STD    T1
02767  M00S02536.rec     +++|          UJN    FTM1        LOOP
02768  M00S02537.rec     +++|
02769  M00S02538.rec     +++| FTM2     LMD    T9
02770  M00S02539.rec     +++|          ZJN    FTMX        IF MATCH FOUND
02771  M00S02540.rec     +++|          UJN    FTM1        LOOP
02772  M00S02541.rec     +++| HNG      SPACE  4,10
02773  M00S02542.rec     +++|**        HNG - ISSUE MESSAGE AND HANG.
02774  M00S02543.rec     +++|*
02775  M00S02544.rec     +++|*         ENTRY  (A) = ERROR MESSAGE ADDRESS.
02776  M00S02545.rec     +++|
02777  M00S02546.rec     +++|
02778  M00S02547.rec     +++| HNG      STM    HNGA        SAVE MESSAGE ADDRESS
02779  M00S02548.rec     +++|          LDN    4
02780  M00S02549.rec     +++|          STD    T1
02781  M00S02550.rec     +++|          LDD    NC          WRITE MESSAGE TO SYSTEM CONTROL POINT
02782  M00S02551.rec     +++|          SHN    7
02783  M00S02552.rec     +++|          ADN    MS2W
02784  M00S02553.rec     +++|          CWM    **,T1
02785  M00S02554.rec     +++| HNGA     EQU    *-1
02786  M00S02555.rec     +++|          UJN    *           HANG
02787  M00S02556.rec     +++| ISS      SPACE  4,10
02788  M00S02557.rec     +++|**        ISS - INITIALIZE SYSTEM SECTOR FOR USER EXTENDED MEMORY AREA.
02789  M00S02558.rec     +++|*
02790  M00S02559.rec     +++|*         ENTRY  (FS) = EXTENDED MEMORY EST ORDINAL.
02791  M00S02560.rec     +++|*                (CATA) = EXTENDED MEMORY MST ADDRESS / 10.
02792  M00S02561.rec     +++|*                (ECSE) = GLOBAL MST WORDS.
02793  M00S02562.rec     +++|*
02794  M00S02563.rec     +++|*         EXIT   UPDATED GLOBAL MST STORED IN CENTRAL MEMORY.
02795  M00S02564.rec     +++|*                SYSTEM SECTOR INITIALIZED.
02796  M00S02565.rec     +++|*
02797  M00S02566.rec     +++|*         USES   CM - CM+4, FA, T1, T2, T5, T6.
02798  M00S02567.rec     +++|*
02799  M00S02568.rec     +++|*         CALLS  CDI, DCH, RCH, SDI, SMS, WEI, WSS.
02800  M00S02569.rec     +++|
02801  M00S02570.rec     +++|
02802  M00S02571.rec     +++| ISS      SUBR               ENTRY/EXIT
02803  M00S02572.rec     +++|          LDC    500         INITIALIZE TO CLEAR SYSTEM SECTOR
02804  M00S02573.rec     +++|          STD    T1
02805  M00S02574.rec     +++| ISS1     LDN    0           CLEAR SYSTEM SECTOR
02806  M00S02575.rec     +++|          STM    BFMS+2,T1
02807  M00S02576.rec     +++|          SOD    T1
02808  M00S02577.rec     +++|          NJN    ISS1        IF NOT TIME TO MOVE FNT ENTRY
02809  M00S02578.rec     +++|          STD    FA
02810  M00S02579.rec     +++|          LDD    MA          SET FNT ENTRY IN SYSTEM SECTOR
02811  M00S02580.rec     +++|          CWM    ECSF,ON
02812  M00S02581.rec     +++|          SBN    1
02813  M00S02582.rec     +++|          CRM    FNSS,ON
02814  M00S02583.rec     +++|          RJM    CDI         CLEAR INTERLOCK ON ECS
02815  M00S02584.rec     +++|          LDN    ZERL        REQUEST FIRST TRACK OF USER ECS CHAIN
02816  M00S02585.rec     +++|          CRD    CM
02817  M00S02586.rec     +++|          LDD    FS
02818  M00S02587.rec     +++|          STD    CM+1
02819  M00S02588.rec     +++|          STD    T5
02820  M00S02589.rec     +++|          MONITOR RTCM
02821  M00S02590.rec     +++|          LDD    CM+4
02822  M00S02591.rec     +++|          NJN    ISS3        IF TRACK ASSIGNED
02823  M00S02592.rec     +++| ISS2     LDC    =C*USER EXTENDED MEMORY SPACE UNAVAILABLE.*
02824  M00S02593.rec     +++|          LJM    HNG         ISSUE ERROR AND HANG
02825  M00S02594.rec     +++|
02826  M00S02595.rec     +++| ISS3     STD    T6
02827  M00S02596.rec     +++|          RJM    SDI         INTERLOCK ECS
02828  M00S02597.rec     +++|          LDD    T6
02829  M00S02598.rec     +++|          STM    ECSE+ACGL*5+1  SET FIRST TRACK IN GLOBAL DATA
02830  M00S02599.rec     +++|          LDM    CATA        SET FIRST TRACK IN MST
02831  M00S02600.rec     +++|          SHN    3
02832  M00S02601.rec     +++|          ADN    ACGL
02833  M00S02602.rec     +++|          CWM    ECSE+ACGL*5,ON
02834  M00S02603.rec     +++|          RJM    CDI         CLEAR INTERLOCK ON ECS
02835  M00S02604.rec     +++|          SETMS  IO
02836  M00S02605.rec     +++|          RJM    WSS         WRITE SYSTEM SECTOR
02837  M00S02606.rec     +++|          RJM    WEI         WRITE EOI
02838  M00S02607.rec     +++|          ENDMS
02839  M00S02608.rec     +++|          LDD    T6          PRESERVE USER EXTENDED MEMORY AREA
02840  M00S02609.rec     +++|          STD    CM+2
02841  M00S02610.rec     +++|          LDN    SPFS
02842  M00S02611.rec     +++|          STD    CM+3
02843  M00S02612.rec     +++|          LDD    FS          SET EXTENDED MEMORY EQUIPMENT
02844  M00S02613.rec     +++|          ADC    4000        SET CHECKPOINT REQUEST
02845  M00S02614.rec     +++|          STD    CM+1
02846  M00S02615.rec     +++|          MONITOR STBM
02847  M00S02616.rec     +++|          LJM    ISSX        RETURN
02848  M00S02617.rec     +++| RLS      SPACE  4,10
02849  M00S02618.rec     +++|**        RLS - RELEASE EXISTING USER EXTENDED MEMORY SUB-CHAIN.
02850  M00S02619.rec     +++|*
02851  M00S02620.rec     +++|*         ENTRY  (BFMS) = SYSTEM SECTOR FOR USER EXTENDED MEMORY CHAIN.
02852  M00S02621.rec     +++|*                (ECSE) = GLOBAL MST WORDS.
02853  M00S02622.rec     +++|*                (FS) = EXTENDED MEMORY EST ORDINAL.
02854  M00S02623.rec     +++|*                (T8) = POINTER TO SUB-CHAIN ENTRY TO BE RELEASED.
02855  M00S02624.rec     +++|*
02856  M00S02625.rec     +++|*         EXIT   (A) = (FS+1) = (FS+3) = (FS+4) = 0.
02857  M00S02626.rec     +++|*                TO *ECS6* IF UNABLE TO LOCATE PREDECESSOR TRACK FOR
02858  M00S02627.rec     +++|*                SUB-CHAIN TO BE RELEASED.
02859  M00S02628.rec     +++|*
02860  M00S02629.rec     +++|*         USES   CM - CM+4, T1, T3.
02861  M00S02630.rec     +++|*
02862  M00S02631.rec     +++|*         CALLS  CAT.
02863  M00S02632.rec     +++|
02864  M00S02633.rec     +++|
02865  M00S02634.rec     +++| RLS      SUBR               ENTRY/EXIT
02866  M00S02635.rec     +++|          RJM    CAT         CALCULATE FWA OF TRT
02867  M00S02636.rec     +++|          STM    RLSA+1
02868  M00S02637.rec     +++|          STM    RLSB+1
02869  M00S02638.rec     +++|          SHN    -14
02870  M00S02639.rec     +++|          LMC    ADCI
02871  M00S02640.rec     +++|          STM    RLSA
02872  M00S02641.rec     +++|          STM    RLSB
02873  M00S02642.rec     +++|          LDC    BFMS+2+3*5+4  INITIALIZE FOR SEARCH
02874  M00S02643.rec     +++|          STD    T3
02875  M00S02644.rec     +++|          LDM    ECSE+ACGL*5+1
02876  M00S02645.rec     +++|          STI    T3
02877  M00S02646.rec     +++|
02878  M00S02647.rec     +++|*         LOCATE PREDECESSOR TRACK OF SUB-CHAIN TO BE RELEASED.
02879  M00S02648.rec     +++|
02880  M00S02649.rec     +++| RLS1     LDI    T3          READ TRT WORD CONTAINING THIS TRACK
02881  M00S02650.rec     +++|          SHN    -2
02882  M00S02651.rec     +++| RLSA     ADC    TRTS
02883  M00S02652.rec     +++|          CRD    CM
02884  M00S02653.rec     +++|          LDI    T3          SET BYTE INDEX
02885  M00S02654.rec     +++|          LPN    3
02886  M00S02655.rec     +++|          STD    T1
02887  M00S02656.rec     +++|          LDM    CM,T1       CHECK LINK
02888  M00S02657.rec     +++|          LMM    1,T8
02889  M00S02658.rec     +++|          ZJN    RLS2        IF PREDECESSOR TRACK FOUND
02890  M00S02659.rec     +++|          LDN    5
02891  M00S02660.rec     +++|          RAD    T3
02892  M00S02661.rec     +++|          LMC    BFMS+2+10*5+4
02893  M00S02662.rec     +++|          NJN    RLS1        IF MORE ENTRIES TO SEARCH
02894  M00S02663.rec     +++|          LJM    ECS6        REPORT ERROR
02895  M00S02664.rec     +++|
02896  M00S02665.rec     +++|*         LOCATE SUCCESSOR TRACK TO SUB-CHAIN TO BE RELEASED.
02897  M00S02666.rec     +++|
02898  M00S02667.rec     +++| RLS2     LDM    4,T8        FIND TRACK TO LINK TO
02899  M00S02668.rec     +++|          SHN    -2
02900  M00S02669.rec     +++| RLSB     ADC    TRTS
02901  M00S02670.rec     +++|          CRD    CM
02902  M00S02671.rec     +++|          LDM    4,T8
02903  M00S02672.rec     +++|          LPN    3
02904  M00S02673.rec     +++|          STD    T1
02905  M00S02674.rec     +++|          LDM    CM,T1
02906  M00S02675.rec     +++|          SHN    21-13
02907  M00S02676.rec     +++|          PJN    RLS3        IF LAST TRACK IN CHAIN
02908  M00S02677.rec     +++|
02909  M00S02678.rec     +++|*         DELINK SUB-CHAIN.
02910  M00S02679.rec     +++|
02911  M00S02680.rec     +++|          SHN    -6          SET TRACK TO BE LINKED
02912  M00S02681.rec     +++|          STD    CM+3
02913  M00S02682.rec     +++|          LDI    T3          SET TRACK TO LINK TO
02914  M00S02683.rec     +++|          LPC    3777
02915  M00S02684.rec     +++|          STD    CM+2
02916  M00S02685.rec     +++|          LDM    4,T8        SET LAST TRACK TO DROP
02917  M00S02686.rec     +++|          STD    CM+4
02918  M00S02687.rec     +++|          LDD    FS          SET EST ORDINAL
02919  M00S02688.rec     +++|          ADC    4000        SET CHECKPOINT REQUEST
02920  M00S02689.rec     +++|          STD    CM+1
02921  M00S02690.rec     +++|          MONITOR DLKM
02922  M00S02691.rec     +++|          UJN    RLS4        COMPLETE PROCESSING
02923  M00S02692.rec     +++|
02924  M00S02693.rec     +++|*         DROP LAST SUB-CHAIN.
02925  M00S02694.rec     +++|
02926  M00S02695.rec     +++| RLS3     LDI    T3          GET PREDECESSOR TRACK
02927  M00S02696.rec     +++|          LPC    3777        SET TO DROP AFTER THIS TRACK
02928  M00S02697.rec     +++|          STD    CM+2
02929  M00S02698.rec     +++|          LDN    0
02930  M00S02699.rec     +++|          STD    CM+3
02931  M00S02700.rec     +++|          STD    CM+4
02932  M00S02701.rec     +++|          LDD    FS          SET EST ORDINAL
02933  M00S02702.rec     +++|          ADC    4000        SET CHECKPOINT REQUEST
02934  M00S02703.rec     +++|          STD    CM+1
02935  M00S02704.rec     +++|          MONITOR DTKM
02936  M00S02705.rec     +++|
02937  M00S02706.rec     +++|*         COMPLETE RELEASE SUB-CHAIN PROCESSING.
02938  M00S02707.rec     +++|
02939  M00S02708.rec     +++| RLS4     LDN    0           CLEAR TRACK POINTERS
02940  M00S02709.rec     +++|          STD    FS+1
02941  M00S02710.rec     +++|          STD    FS+4
02942  M00S02711.rec     +++|          STD    FS+3        CLEAR RA OF RELEASED SUB-CHAIN
02943  M00S02712.rec     +++|          LJM    RLSX        RETURN
02944  M00S02713.rec     +++| SCP      SPACE  4,10
02945  M00S02714.rec     +++|**        SCP - SETUP CONTROL POINT AREAS.
02946  M00S02715.rec     +++|*
02947  M00S02716.rec     +++|*         ENTRY  (FS+2) = LENGTH OF USER EXTENDED MEMORY AREA / *EMBS*.
02948  M00S02717.rec     +++|*                (FS+3) = RA/*EMBS* OF USER EXTENDED MEMORY AREA.
02949  M00S02718.rec     +++|*                (NC) = NUMBER OF CONTROL POINTS.

Seq #  *Modification Id* Act 
----------------------------+
02950  M01S00136.271l716 +++|*                (NS) = NUMBER OF CP-S + PCP-S.
02951  M00S02719.rec     +++|*
02952  M00S02720.rec     +++|*         EXIT   *ECRL* SETUP IN CMR, ALL CONTROL POINT AREAS SETUP.
02953  M00S02721.rec     +++|*

Seq #  *Modification Id* Act 
----------------------------+
02954  M02S02722.271l716 ---|*         USES   T7, CM - CM+4, FS+1 - FS+4.

Seq #  *Modification Id* Act 
----------------------------+
02955  M01S00137.271l716 +++|*         USES   T1, T2, T7, CM - CM+4, FS+1 - FS+4.
02956  M01S00138.271l716 +++|*
02957  M01S00139.271l716 +++|*         CALLS  SMT.

Seq #  *Modification Id* Act 
----------------------------+
02958  M02S00001.271l716 ---|*         USES   T1, T2, T7, CM - CM+4, FS+1 - FS+4.
02959  M00S02723.rec     +++|
02960  M00S02724.rec     +++|
02961  M00S02725.rec     +++| SCP      SUBR               ENTRY/EXIT
02962  M00S02726.rec     +++|          LDD    FS+2
02963  M00S02727.rec     +++|          STD    FS+1
02964  M00S02728.rec     +++|          LDN    ECRL        COMPLETE BUILD OF *ECRL*
02965  M00S02729.rec     +++|          CRD    CM
02966  M00S02730.rec     +++|          LDN    0           CLEAR EXTENDED MEMORY EQUIPMENT
02967  M00S02731.rec     +++|          STD    CM
02968  M00S02732.rec     +++|          LDD    FS+3        SET USER EXTENDED MEMORY RA
02969  M00S02733.rec     +++| SCPA     SHN    0
02970  M00S02734.rec     +++|*         SHN    EMSC-UESC
02971  M00S02735.rec     +++|          STD    FS+3
02972  M00S02736.rec     +++|          STD    CM+3
02973  M00S02737.rec     +++|          SHN    -14
02974  M00S02738.rec     +++|          STD    FS+2
02975  M00S02739.rec     +++|          STD    CM+2
02976  M00S02740.rec     +++|          LDN    ECRL
02977  M00S02741.rec     +++|          CWD    CM
02978  M00S02742.rec     +++|          LDD    FS+1
02979  M00S02743.rec     +++|          ZJN    SCPX        IF NO USER ECS IN ECS EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
02980  M01S02744.271l716 ---|          LDD    CM+4        SAVE USER ECS RESERVED FOR CP 0

Seq #  *Modification Id* Act 
----------------------------+
02981  M02S00002.271l716 ---|          STD    T2

Seq #  *Modification Id* Act 
----------------------------+
02982  M01S02745.271l716 ---|          STD    FS+4
02983  M01S02746.271l716 ---|          LDN    ZERL        CLEAR WORK AREAS

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02747.rec     +++|          CRD    CM
02988  M00S02748.rec     +++|          LDN    CPNS        SETUP CONTROL POINT AREAS
02989  M00S02749.rec     +++|          STD    T7
02990  M00S02750.rec     +++|          LDD    FS+2
02991  M00S02751.rec     +++|          SHN    14
02992  M00S02752.rec     +++|          ADD    FS+3        SET XM RA IN CONTROL POINT WORK AREA
02993  M00S02753.rec     +++|          ADD    FS+4
02994  M00S02754.rec     +++| SCP2     STD    CM+3
02995  M00S02755.rec     +++|          SHN    -14
02996  M00S02756.rec     +++|          STD    CM+2
02997  M00S02757.rec     +++| SCP3     LDD    T7          FORM CONTROL POINT ADDRESS
02998  M00S02758.rec     +++|          SHN    7
02999  M00S02759.rec     +++|          ADN    ECSW        SET ECS RA IN CONTROL POINT AREA
03000  M00S02760.rec     +++|          CWD    CM
03001  M00S02761.rec     +++|          AOD    T7
03002  M00S02762.rec     +++|          SBD    NC

Seq #  *Modification Id* Act 
----------------------------+
03003  M01S02763.271l716 ---|          PJN    SCP4        IF END OF CONTROL POINTS
03004  M01S02764.271l716 ---|          ADN    1
03005  M01S02765.271l716 ---|          MJN    SCP3        IF NOT AT LAST CONTROL POINT
03006  M01S02766.271l716 ---|          LDD    FS+1        SET LAST CONTROL POINT RA = USER EM FL

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02767.rec     +++| SCPB     SHN    0
03013  M00S02768.rec     +++|*         SHN    EMSC-UESC

Seq #  *Modification Id* Act 
----------------------------+
03014  M01S02769.271l716 ---|          ADD    FS+3

Seq #  *Modification Id* Act 
----------------------------+
03015  M01S00148.271l716 +++|          ADD    FS+3        ALLOCATE XM FL BETWEEN 1ST AND 2ND CP-S
03016  M00S02770.rec     +++|          SHN    6
03017  M00S02771.rec     +++|          LMD    FS+2
03018  M00S02772.rec     +++|          SHN    14

Seq #  *Modification Id* Act 
----------------------------+
03019  M01S02773.271l716 ---|          UJN    SCP2        SETUP LAST CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
03020  M01S00149.271l716 +++|          UJN    SCP2        SETUP SECOND CP AREA
03021  M00S02774.rec     +++|
03022  M00S02775.rec     +++| SCP4     LDD    FS+2        SETUP *ECSW* FOR SYSTEM CONTROL POINT
03023  M00S02776.rec     +++|          STD    CM+2
03024  M00S02777.rec     +++|          LDD    FS+3
03025  M00S02778.rec     +++|          STD    CM+3
03026  M00S02779.rec     +++|          LDD    FS+1
03027  M00S02780.rec     +++| SCPC     SHN    0
03028  M00S02781.rec     +++|*         SHN    EMSC-UESC
03029  M00S02782.rec     +++|          STD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
03030  M01S02783.271l716 ---|          LDD    T7

Seq #  *Modification Id* Act 
----------------------------+
03031  M01S00150.271l716 +++|          LDD    NC
03032  M00S02784.rec     +++|          SHN    7
03033  M00S02785.rec     +++|          ADN    ECSW
03034  M00S02786.rec     +++|          CWD    CM

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
03061  M01S00174.271l716 +++|          STD    CM+3
03062  M01S00175.271l716 +++|          LDN    ACML        STORE AVAILABLE USER XM
03063  M01S00176.271l716 +++|          CWD    CM

Seq #  *Modification Id* Act 
----------------------------+
03064  M01S02787.rec26   ---|          LJM    SCPX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
03065  M02S00003.271l716 ---|          LDD    T2
03066  M02S00004.271l716 ---|          ZJP    SCP6        IF NO ECS FOR CONTROL POINT ZERO
03067  M02S00005.271l716 ---|          SHN    11          CONVERT TO WORDS

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
03085  M02S00018.271l716 ---| SCP5     LDD    T1          CLEAR THE ECS BUFFER

Seq #  *Modification Id* Act 
----------------------------+
03086  M01S00182.271l716 +++| SCP9     LDD    T1          CLEAR XM BUFFER

Seq #  *Modification Id* Act 
----------------------------+
03087  M01S00019.rec26   +++|          SHN    14
03088  M01S00020.rec26   +++|          LMD    T2
03089  M01S00021.rec26   +++|          SBN    4

Seq #  *Modification Id* Act 
----------------------------+
03090  M02S00022.271l716 ---|          MJN    SCP6        IF END OF BUFFER

Seq #  *Modification Id* Act 
----------------------------+
03091  M01S00183.271l716 +++|          MJN    SCP7        IF END OF BUFFER

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
03104  M02S00035.271l716 ---|          NJN    *           IF ERROR
03105  M02S00036.271l716 ---|          UJN    SCP5        LOOP ON CLEAR
03106  M02S00037.271l716 ---|
03107  M02S00038.271l716 ---| SCP6     LJM    SCPX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02788.rec     +++| SDI      SPACE  4,10
03115  M00S02789.rec     +++|**        SDI - SET DEVICE INTERLOCK ON ECS.
03116  M00S02790.rec     +++|*
03117  M00S02791.rec     +++|*         ENTRY  (FS) = EXTENDED MEMORY EST ORDINAL.
03118  M00S02792.rec     +++|*
03119  M00S02793.rec     +++|*         EXIT   (ECSE) = MST GLOBAL WORDS.
03120  M00S02794.rec     +++|*                (CATA) = EXTENDED MEMORY MST ADDRESS / 10.
03121  M00S02795.rec     +++|*                (DIFL) = 1.
03122  M00S02796.rec     +++|*
03123  M00S02797.rec     +++|*         USES   CM - CM+4.
03124  M00S02798.rec     +++|*
03125  M00S02799.rec     +++|*         MACROS MONITOR, SFA.
03126  M00S02800.rec     +++|
03127  M00S02801.rec     +++|
03128  M00S02802.rec     +++| SDI1     SFA    EST,FS
03129  M00S02803.rec     +++|          ADK    EQDE
03130  M00S02804.rec     +++|          CRD    CM
03131  M00S02805.rec     +++|          LDD    CM+4        READ MST GLOBAL WORDS
03132  M00S02806.rec     +++|          STM    CATA
03133  M00S02807.rec     +++|          SHN    3
03134  M00S02808.rec     +++|          ADK    TDGL
03135  M00S02809.rec     +++|          CRM    ECSE,TR
03136  M00S02810.rec     +++|
03137  M00S02811.rec     +++| SDI      SUBR               ENTRY/EXIT
03138  M00S02812.rec     +++|          LDC    0
03139  M00S02813.rec     +++| DIFL     EQU    *-1         DEVICE INTERLOCKED FLAG (CLEARED BY *CDI*)
03140  M00S02814.rec     +++|          NJN    SDI1        IF DEVICE INTERLOCKED
03141  M00S02815.rec     +++|          STD    CM+2
03142  M00S02816.rec     +++|          STD    CM+4
03143  M00S02817.rec     +++|          LDD    FS          SET EQUIPMENT
03144  M00S02818.rec     +++|          STD    CM+1
03145  M00S02819.rec     +++|          LDN    SDIS        SET FUNCTION
03146  M00S02820.rec     +++|          STD    CM+3
03147  M00S02821.rec     +++|          MONITOR STBM
03148  M00S02822.rec     +++|          AOM    DIFL        SET INTERLOCKED FLAG
03149  M00S02823.rec     +++|          UJN    SDI1        READ MST GLOBAL WORDS

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02824.rec     +++| SSS      SPACE  4,10
03193  M00S02825.rec     +++|**        SSS - STORE SYSTEM SECTOR FOR USER EXTENDED MEMORY CHAIN.
03194  M00S02826.rec     +++|*
03195  M00S02827.rec     +++|*         ENTRY  (ECSE) = MST GLOBAL WORDS.
03196  M00S02828.rec     +++|*                (FS) = EXTENDED MEMORY EST ORDINAL.
03197  M00S02829.rec     +++|*                (FS+1) = FIRST TRACK OF SUB-CHAIN.
03198  M00S02830.rec     +++|*                (FS+2) = LENGTH OF USER EXTENDED MEMORY AREA.
03199  M00S02831.rec     +++|*                (FS+3) = RA OF USER EXTENDED MEMORY AREA.
03200  M00S02832.rec     +++|*                (FS+4) = LAST TRACK OF SUB-CHAIN.
03201  M00S02833.rec     +++|*                (T8) = POINTER TO SUB-CHAIN DESCRIPTOR ENTRY.
03202  M00S02834.rec     +++|*                (T9) = MMF MACHINE ID FOR CHAIN.
03203  M00S02835.rec     +++|*                     = 0 IF SUB-CHAIN ENTRY TO BE CLEARED.
03204  M00S02836.rec     +++|*
03205  M00S02837.rec     +++|*         EXIT   SYSTEM SECTOR UPDATED WITH NEW INFORMATION.
03206  M00S02838.rec     +++|*
03207  M00S02839.rec     +++|*         USES   FA, T5, T6.
03208  M00S02840.rec     +++|*
03209  M00S02841.rec     +++|*         CALLS  WSS.
03210  M00S02842.rec     +++|*
03211  M00S02843.rec     +++|*         MACROS ENDMS, SETMS.
03212  M00S02844.rec     +++|
03213  M00S02845.rec     +++|
03214  M00S02846.rec     +++| SSS      SUBR               ENTRY/EXIT
03215  M00S02847.rec     +++|          LDD    FS          SET EST ORDINAL
03216  M00S02848.rec     +++|          STD    T5
03217  M00S02849.rec     +++|          LDM    ECSE+ACGL*5+1  SET FIRST TRACK
03218  M00S02850.rec     +++|          STD    T6
03219  M00S02851.rec     +++|          LDD    T9          SET MMF ID
03220  M00S02852.rec     +++|          NJN    SSS1        IF NOT CLEARING ENTRY
03221  M00S02853.rec     +++|          LDD    T8
03222  M00S02854.rec     +++|          STM    SSSA
03223  M00S02855.rec     +++|          LDN    ZERL
03224  M00S02856.rec     +++|          CRM    **,ON
03225  M00S02857.rec     +++| SSSA     EQU    *-1
03226  M00S02858.rec     +++|          UJN    SSS2        WRITE SECTOR
03227  M00S02859.rec     +++|
03228  M00S02860.rec     +++| SSS1     STI    T8
03229  M00S02861.rec     +++|          LDD    FS+1        SET FIRST TRACK OF USER ECS AREA
03230  M00S02862.rec     +++|          STM    1,T8
03231  M00S02863.rec     +++|          LDD    FS+2        SET LENGTH OF USER EXTENDED MEMORY AREA
03232  M00S02864.rec     +++|          STM    2,T8
03233  M00S02865.rec     +++|          LDD    FS+3        SET RA OF USER EXTENDED MEMORY AREA
03234  M00S02866.rec     +++|          STM    3,T8
03235  M00S02867.rec     +++|          LDD    FS+4        SET LAST TRACK OF USER ECS
03236  M00S02868.rec     +++|          STM    4,T8
03237  M00S02869.rec     +++| SSS2     SETMS  IO,DF
03238  M00S02870.rec     +++|          LDN    0           SET FNT DATA PRESTORED
03239  M00S02871.rec     +++|          STD    FA
03240  M00S02872.rec     +++|          RJM    WSS         WRITE SYSTEM SECTOR
03241  M00S02873.rec     +++|          ENDMS
03242  M00S02874.rec     +++|          LJM    SSSX        RETURN
03243  M00S02875.rec     +++|
03244  M00S02876.rec     +++|          SPACE  4,10
03245  M00S02877.rec     +++|          OVERFLOW  ECSX,BFMS
03246  M00S02878.rec     +++| PRS      SPACE  4,10
03247  M00S02879.rec     +++|**        PRS - PRESET PROGRAM.
03248  M00S02880.rec     +++|*
03249  M00S02881.rec     +++|*         ENTRY  (FS) = BYTE 0 OF *ECRL* = EM EST ORDINAL FROM *SET*.
03250  M00S02882.rec     +++|*                (FS+1) = USER XM SIZE / *UEBS*.
03251  M00S02883.rec     +++|*                (FS+2 - FS+3) = USER XM RA / *UEBS*.
03252  M00S02884.rec     +++|*                (RS) = RECOVERY STATUS.
03253  M00S02885.rec     +++|*                TAXM = EM ALLOCATION TABLE GENERATED BY *SET*.
03254  M00S02886.rec     +++|*
03255  M00S02887.rec     +++|*         EXIT   (FS+2) = USER XM SIZE / *EMBS*.
03256  M00S02888.rec     +++|*                (FS+3) = USER XM RA / *EMBS*.
03257  M00S02889.rec     +++|*                (T9) = MACHINE ID.
03258  M00S02890.rec     +++|*

Seq #  *Modification Id* Act 
----------------------------+
03259  M01S02891.271l716 ---|*         USES   T0, CM - CM+4, CN - CN+4.

Seq #  *Modification Id* Act 
----------------------------+
03260  M01S00232.271l716 +++|*         USES   CM - CM+4, CN - CN+4, T5 - T7.
03261  M00S02892.rec     +++|
03262  M00S02893.rec     +++|
03263  M00S02894.rec     +++| PRS      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
03264  M01S02895.271l716 ---|          LDK    MEFL        PRESET SHIFT INSTRUCTIONS
03265  M01S02896.271l716 ---|          CRD    CM
03266  M01S02897.271l716 ---|          ADN    MMFL-MEFL
03267  M01S02898.271l716 ---|          CRD    CN
03268  M01S02899.271l716 ---|          LDD    CM+2        GET USER EXTENDED SHIFT COUNT (*UESC*)
03269  M01S02900.271l716 ---|          SHN    -11
03270  M01S02901.271l716 ---|          STD    T9          SAVE *UESC*
03271  M01S02902.271l716 ---|          LDD    CM+2        GET XM SHIFT (EMSC)

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02903.rec     +++|          SHN    -5
03288  M00S02904.rec     +++|          LPN    3
03289  M00S02905.rec     +++|          STD    T0
03290  M00S02906.rec     +++|          SBD    T9

Seq #  *Modification Id* Act 
----------------------------+
03291  M01S02907.271l716 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
03292  M01S00248.271l716 +++|          LPN    77          PRESET SHIFT INSTRUCTIONS
03293  M00S02908.rec     +++|          RAM    SCPA
03294  M00S02909.rec     +++|          STM    SCPB
03295  M00S02910.rec     +++|          STM    SCPC

Seq #  *Modification Id* Act 
----------------------------+
03296  M01S00039.rec26   +++|          STM    SCPD

Seq #  *Modification Id* Act 
----------------------------+
03297  M01S00004.rec30   +++|          STM    SCPF
03298  M00S02911.rec     +++|          LMN    77
03299  M00S02912.rec     +++|          STM    PRSA
03300  M00S02913.rec     +++|          STM    PRSB
03301  M00S02914.rec     +++|          LDD    T9
03302  M00S02915.rec     +++|          SBD    T0
03303  M00S02916.rec     +++|          RAM    ACEB
03304  M00S02917.rec     +++|          STM    ACEC
03305  M00S02918.rec     +++|          LDD    FS+2        ADJUST USER XM RA
03306  M00S02919.rec     +++|          SHN    14
03307  M00S02920.rec     +++|          ADD    FS+3
03308  M00S02921.rec     +++| PRSA     SHN    0
03309  M00S02922.rec     +++|*         SHN    UESC-EMSC
03310  M00S02923.rec     +++|          STD    FS+3
03311  M00S02924.rec     +++|          LDD    FS+1        ADJUST USER XM FL VALUE
03312  M00S02925.rec     +++| PRSB     SHN    0
03313  M00S02926.rec     +++|*         SHN    UESC-EMSC
03314  M00S02927.rec     +++|          STD    FS+2
03315  M00S02928.rec     +++|          LDD    CN+1        CHECK ALLOCATING ON LINK DEVICE
03316  M00S02929.rec     +++|          LPC    777
03317  M00S02930.rec     +++|          STM    ECSB
03318  M00S02931.rec     +++|          LDD    CN          SAVE MACHINE ID
03319  M00S02932.rec     +++|          STD    T9
03320  M00S02933.rec     +++|          UJP    PRSX        RETURN
03321  M00S02934.rec     +++|
03322  M00S02935.rec     +++|          QUAL
03323  M00S02936.rec     +++|          TTL    REC/4RC - RECOVER CHANNEL/EQUIPMENT STATUS.
03324  M00S02937.rec     +++|          TITLE
03325  M00S02938.rec     +++|          QUAL   RCE
03326  M00S02939.rec     +++|          IDENT  4RC,RCEX
03327  M00S02940.rec     +++|*COMMENT  REC - RECOVER CHANNEL/EQUIPMENT STATUS.

Seq #  *Modification Id* Act 
----------------------------+
03328  M01S02941.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1981.

Seq #  *Modification Id* Act 
----------------------------+
03329  M01S00004.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03330  M00S02942.rec     +++|          SPACE  4,10
03331  M00S02943.rec     +++|***       RCE - RECOVER CHANNEL/EQUIPMENT STATUS.
03332  M00S02944.rec     +++|*
03333  M00S02945.rec     +++|*                RCE WILL READ THE CHANNEL INTERLOCK TABLES AND THE
03334  M00S02946.rec     +++|*         EQUIPMENT STATUS TABLE (EST) FROM THE CHECKPOINT FILE.
03335  M00S02947.rec     +++|*         THE FOLLOWING ITEMS MUST BE RESTORED TO THE STATUS THAT
03336  M00S02948.rec     +++|*         EXISTED BEFORE THE RECOVERY.
03337  M00S02949.rec     +++|*         1. CHANNELS THAT ARE GLOBALLY DOWN.
03338  M00S02950.rec     +++|*         2. CHANNELS THAT ARE DOWN FOR A SPECIFIC EQUIPMENT, BUT
03339  M00S02951.rec     +++|*            ARE NOT GLOBALLY DOWN.
03340  M00S02952.rec     +++|*         3. CHANNELS THAT ARE ASSIGNED TO EJT ORDINALS.
03341  M00S02953.rec     +++|*         4. EQUIPMENTS THAT ARE DOWN.  THE DATA TO BE RESTORED
03342  M00S02954.rec     +++|*            INCLUDES THE DOWN, UNAVAILABLE AND OFF BITS IN THE
03343  M00S02955.rec     +++|*            EST, AND GLOBAL DOWN, GLOBAL UNLOAD, UNLOAD
03344  M00S02956.rec     +++|*            REQUESTED AND UNLOADED BITS IN THE MST.
03345  M00S02957.rec     +++| RCE      SPACE  4,10
03346  M00S02958.rec     +++|***       ENTRY CONDITIONS.
03347  M00S02959.rec     +++|*
03348  M00S02960.rec     +++|*         (SE) = EST ORDINAL OF CHECKPOINT FILE.
03349  M00S02961.rec     +++|*         (RECE) = FIRST TRACK OF CHECKPOINT FILE.
03350  M00S02962.rec     +++|          SPACE  4,10
03351  M00S02963.rec     +++|          ORG    OVLA
03352  M00S02964.rec     +++|          SPACE  4,10
03353  M00S02965.rec     +++|**        RCE - MAIN ROUTINE.
03354  M00S02966.rec     +++|
03355  M00S02967.rec     +++|
03356  M00S02968.rec     +++| RCE      SUBR               ENTRY/EXIT
03357  M00S02969.rec     +++|          LDD    RS
03358  M00S02970.rec     +++|          LPN    SYMK        CHECK RECOVERY LEVEL
03359  M00S02971.rec     +++|          LMN    SYCM
03360  M00S02972.rec     +++|          ZJN    RCE1        IF CM RECOVERY
03361  M00S02973.rec     +++|          LDD    CE
03362  M00S02974.rec     +++|          STD    T5          CHECKPOINT DEVICE EST ORDINAL
03363  M00S02975.rec     +++|          SETMS  IO
03364  M00S02976.rec     +++|          LDM    RECE        SET FIRST TRACK OF CHECKPOINT FILE
03365  M00S02977.rec     +++|          STD    T6
03366  M00S02978.rec     +++|          LDN    3           SET SECTOR OF EST
03367  M00S02979.rec     +++|          STD    T7

Seq #  *Modification Id* Act 
----------------------------+
03368  M01S02980.rec21   ---|          RJM    SKR         SKIP EST

Seq #  *Modification Id* Act 
----------------------------+
03369  M01S00001.rec21   +++|          RJM    PET         PROCESS EST
03370  M00S02981.rec     +++|          RJM    PCH         PROCESS CHANNEL TABLES

Seq #  *Modification Id* Act 
----------------------------+
03371  M01S02982.rec21   ---|          LDM    RECE
03372  M01S02983.rec21   ---|          STD    T6          RESET FIRST TRACK
03373  M01S02984.rec21   ---|          LDN    3
03374  M01S02985.rec21   ---|          STD    T7
03375  M01S02986.rec21   ---|          SETMS  POSITION    PROCESS EST
03376  M01S02987.rec21   ---|          RJM    PET
03377  M00S02988.rec     +++| RCE1     RJM    RSE         RELEASE SYSTEM ASSIGNED EQUIPMENT
03378  M00S02989.rec     +++|          UJP    RCEX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
03379  M01S02990.rec21   ---|
03380  M01S02991.rec21   ---|
03381  M01S02992.rec21   ---| RCEA     DATA   C*SYSTEM FILE PARITY ERROR.*
03382  M00S02993.rec     +++|          TITLE  SUBROUTINES.
03383  M00S02994.rec     +++| CDS      SPACE  4,10
03384  M00S02995.rec     +++|**        CDS - CHECK DEVICE STATUS.
03385  M00S02996.rec     +++|*
03386  M00S02997.rec     +++|*         ENTRY  (T5) = EST ORDINAL.
03387  M00S02998.rec     +++|*                (CA) = BUFFER ADDRESS OF EST ENTRY.
03388  M00S02999.rec     +++|*
03389  M00S03000.rec     +++|*         MACROS SMSTF.
03390  M00S03001.rec     +++|
03391  M00S03002.rec     +++|
03392  M00S03003.rec     +++| CDS1     LDI    CA          CHECK PREVIOUS RECOVERY STATUS
03393  M00S03004.rec     +++|          SHN    21-6
03394  M00S03005.rec     +++|          PJN    CDSX        IF DEVICE AVAILABLE
03395  M00S03006.rec     +++| CDS2     SMSTF  LUNL        SET UNLOAD REQUESTED
03396  M00S03007.rec     +++|          SMSTF  LDUL        SET DEVICE UNLOADED
03397  M00S03008.rec     +++|
03398  M00S03009.rec     +++| CDS      SUBR               ENTRY/EXIT
03399  M00S03010.rec     +++|          LDI    CA
03400  M00S03011.rec     +++|          SHN    21-13
03401  M00S03012.rec     +++|          PJN    CDSX        IF NOT MS DEVICE
03402  M00S03013.rec     +++|          SHN    14
03403  M00S03014.rec     +++|          LPN    3           CHECK DEVICE STATE
03404  M00S03015.rec     +++|          LMN    3
03405  M00S03016.rec     +++|          NJN    CDS1        IF NOT DOWN
03406  M00S03017.rec     +++|          SMSTF  GUNL        SET GLOBAL UNLOAD
03407  M00S03018.rec     +++|          UJN    CDS2        SET LOCAL MST STATUS
03408  M00S03019.rec     +++| DDC      SPACE  4,10
03409  M00S03020.rec     +++|**        DDC - DETERMINE DOWN CHANNELS.
03410  M00S03021.rec     +++|*
03411  M00S03022.rec     +++|*         ENTRY  (CA) = ADDRESS OF EST ENTRY IN BUFFER.
03412  M00S03023.rec     +++|*
03413  M00S03024.rec     +++|*         EXIT   ANY CHANNEL MARKED AS DOWN ON THE CHECKPOINT FILE
03414  M00S03025.rec     +++|*         WILL BE SET DOWN IN THE CM COPY OF THE EST ENTRY.
03415  M00S03026.rec     +++|*
03416  M00S03027.rec     +++|*         USES   T1, T2, CM - CM+4.
03417  M00S03028.rec     +++|*
03418  M00S03029.rec     +++|*         CALLS  ISF.
03419  M00S03030.rec     +++|*
03420  M00S03031.rec     +++|*         MACROS MONITOR.
03421  M00S03032.rec     +++|
03422  M00S03033.rec     +++|
03423  M00S03034.rec     +++| DDC4     AOD    T1          ADVANCE CHANNEL BYTE ADDRESS
03424  M00S03035.rec     +++|          LMD    T2
03425  M00S03036.rec     +++|          NJN    DDC1        IF ANOTHER CHANNEL TO CHECK
03426  M00S03037.rec     +++|
03427  M00S03038.rec     +++| DDC      SUBR               ENTRY/EXIT
03428  M00S03039.rec     +++|          LDD    CA
03429  M00S03040.rec     +++|          ADN    1           SET CHANNEL BYTE ADDRESS
03430  M00S03041.rec     +++|          STD    T1
03431  M00S03042.rec     +++|          ADN    2           SET END OF PATH DESCRIPTORS
03432  M00S03043.rec     +++|          STD    T2
03433  M00S03044.rec     +++| DDC1     LDI    T1
03434  M00S03045.rec     +++|          ZJN    DDC4        IF ACCESS UNDEFINED
03435  M00S03046.rec     +++|          SHN    0-11
03436  M00S03047.rec     +++|          LMN    4
03437  M00S03048.rec     +++| DDC2     ZJN    DDC4        IF CHANNEL PRESENT AND UP
03438  M00S03049.rec     +++|          LPN    3
03439  M00S03050.rec     +++|          ZJN    DDC3        IF CHANNEL AVAILABLE
03440  M00S03051.rec     +++|          LDN    DNCS
03441  M00S03052.rec     +++|          RJM    ISF         DOWN THE CHANNEL
03442  M00S03053.rec     +++| DDC3     LDI    T1
03443  M00S03054.rec     +++|          SHN    0-13
03444  M00S03055.rec     +++|          NJN    DDC4        IF CHANNEL PRESENT
03445  M00S03056.rec     +++|          LDN    DAPS
03446  M00S03057.rec     +++|          STD    CM+3
03447  M00S03058.rec     +++|          LDD    EO          SET EST ORDINAL
03448  M00S03059.rec     +++|          STD    CM+1
03449  M00S03060.rec     +++|          LDI    T1
03450  M00S03061.rec     +++|          LPN    77
03451  M00S03062.rec     +++|          STD    CM+2
03452  M00S03063.rec     +++|          MONITOR  SCSM      DISABLE ACCESS PATH
03453  M00S03064.rec     +++|*         LDN    0
03454  M00S03065.rec     +++|          UJP    DDC4        CHECK FOR ALTERNATE ACCESS
03455  M00S03066.rec     +++| IEQ      SPACE  4,10
03456  M00S03067.rec     +++|**        IEQ - IDENTIFY EQUIPMENT.
03457  M00S03068.rec     +++|*
03458  M00S03069.rec     +++|*         ENTRY  (CA) = BUFFER ADDRESS OF EST ENTRY.
03459  M00S03070.rec     +++|*                (T5) = EST ORDINAL.
03460  M00S03071.rec     +++|*                (CN - CN+4) = EST ENTRY FROM CMR.
03461  M00S03072.rec     +++|*

Seq #  *Modification Id* Act 
----------------------------+
03462  M01S03073.rec21   ---|*         EXIT   (A) .LT. 0 IF NON-REMOVABLE MS DEVICE.
03463  M01S03074.rec21   ---|*                    .EQ. 0 IF REMOVABLE MS OR TAPE DEVICE.
03464  M01S03075.rec21   ---|*                    .GT. 0 IF NOT MASS STORAGE OR TAPE DEVICE.
03465  M01S03076.rec21   ---|*
03466  M00S03077.rec     +++|*         MACROS SFA.
03467  M00S03078.rec     +++|

Seq #  *Modification Id* Act 
----------------------------+
03468  M01S03079.rec21   ---|
03469  M01S03080.rec21   ---| IEQ1     SHN    13-10+1
03470  M01S03081.rec21   ---|          LMN    1           COMPLEMENT REMOVABLE STATUS
03471  M01S03082.rec21   ---|          LPN    1
03472  M01S03083.rec21   ---|          SHN    21-0        SHIFT TO SIGN POSITION
03473  M00S03084.rec     +++|
03474  M00S03085.rec     +++| IEQ      SUBR               ENTRY/EXIT
03475  M00S03086.rec     +++|          LDD    CA
03476  M00S03087.rec     +++|          ADN    EQAE*5
03477  M00S03088.rec     +++|          STM    IEQA
03478  M00S03089.rec     +++|          SFA    EST,T5      REWRITE *EQAE* WORD OF EST ENTRY
03479  M00S03090.rec     +++|          ADK    EQAE
03480  M00S03091.rec     +++|          CWM    **,ON
03481  M00S03092.rec     +++| IEQA     EQU    *-1
03482  M00S03093.rec     +++|          LDI    CA
03483  M00S03094.rec     +++|          SHN    21-13

Seq #  *Modification Id* Act 
----------------------------+
03484  M01S03095.rec21   ---|          MJN    IEQ1        IF MS DEVICE

Seq #  *Modification Id* Act 
----------------------------+
03485  M01S00002.rec21   +++|          MJN    IEQX        IF MS DEVICE
03486  M00S03096.rec     +++|          LDM    3,CA
03487  M00S03097.rec     +++|          STD    CN+3
03488  M00S03098.rec     +++|          SFA    EST,T5      PRESERVE DEVICE MNEMONIC
03489  M00S03099.rec     +++|          ADK    EQDE
03490  M00S03100.rec     +++|          CWD    CN

Seq #  *Modification Id* Act 
----------------------------+
03491  M01S03101.rec21   ---|          LDD    CN+3        CHECK TAPE EQUIPMENT
03492  M01S03102.rec21   ---|          LMC    2RMT
03493  M01S03103.rec21   ---|          ZJN    IEQX        IF EQUIPMENT TYPE *MT*
03494  M01S03104.rec21   ---|          LMC    2RNT&2RMT
03495  M00S03105.rec     +++|          UJP    IEQX        RETURN
03496  M00S03106.rec     +++| ISF      SPACE  4,10
03497  M00S03107.rec     +++|**        ISF - ISSUE *SEQM* FUNCTION.
03498  M00S03108.rec     +++|*
03499  M00S03109.rec     +++|*         ENTRY  (A) = *SEQM* SUBFUNCTION.
03500  M00S03110.rec     +++|*                (T1) = CHANNEL DESCRIPTOR ADDRESS.
03501  M00S03111.rec     +++|*                (EO) = EST ORDINAL.
03502  M00S03112.rec     +++|*
03503  M00S03113.rec     +++|*         EXIT   (A) = 0.
03504  M00S03114.rec     +++|*                (CM+1) = *SEQM* STATUS.
03505  M00S03115.rec     +++|*
03506  M00S03116.rec     +++|*         USES   CM - CM+4.
03507  M00S03117.rec     +++|*
03508  M00S03118.rec     +++|*         MACROS MONITOR.
03509  M00S03119.rec     +++|
03510  M00S03120.rec     +++|
03511  M00S03121.rec     +++| ISF      SUBR               ENTRY/EXIT
03512  M00S03122.rec     +++|          STD    CM+2
03513  M00S03123.rec     +++|          LDD    EO          SET EST ORDINAL
03514  M00S03124.rec     +++|          STD    CM+1
03515  M00S03125.rec     +++|          LDI    T1          SET CHANNEL NUMBER
03516  M00S03126.rec     +++|          LPN    77
03517  M00S03127.rec     +++|          STD    CM+3
03518  M00S03128.rec     +++|          LDN    0           CLEAR MUX CHANNEL INDICATOR
03519  M00S03129.rec     +++|          STD    CM+4
03520  M00S03130.rec     +++|          MONITOR  SEQM      MODIFY PATH DESCRIPTOR
03521  M00S03131.rec     +++|*         LDN    0
03522  M00S03132.rec     +++|          UJN    ISFX        RETURN
03523  M00S03133.rec     +++| PCH      SPACE  4,10
03524  M00S03134.rec     +++|**        PCH - PROCESS CHANNEL TABLES.
03525  M00S03135.rec     +++|*
03526  M00S03136.rec     +++|*         ENTRY  SYSTEM FILE POSITIONED TO CHANNEL TABLES.
03527  M00S03137.rec     +++|*

Seq #  *Modification Id* Act 
----------------------------+
03528  M01S03138.rec21   ---|*         EXIT   CHANNEL STATUS TABLE (DOWN BIT ONLY) AND EJT
03529  M01S03139.rec21   ---|*                ASSIGNMENT TABLE RESTORED.

Seq #  *Modification Id* Act 
----------------------------+
03530  M01S00003.rec21   +++|*         EXIT   CHANNEL EJT ASSIGNMENT TABLE RESTORED.
03531  M00S03140.rec     +++|*

Seq #  *Modification Id* Act 
----------------------------+
03532  M01S03141.rec21   ---|*         USES   T1, FN, CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
03533  M01S00004.rec21   +++|*         USES   T1, CM - CM+4.
03534  M00S03142.rec     +++|*

Seq #  *Modification Id* Act 
----------------------------+
03535  M01S03143.rec21   ---|*         CALLS  RNS, SCD.

Seq #  *Modification Id* Act 
----------------------------+
03536  M01S00005.rec21   +++|*         CALLS  RNS.
03537  M00S03144.rec     +++|*
03538  M00S03145.rec     +++|*         MACROS ENDMS.
03539  M00S03146.rec     +++|
03540  M00S03147.rec     +++|
03541  M00S03148.rec     +++| PCH      SUBR               ENTRY/EXIT
03542  M00S03149.rec     +++|          LDC    BFMS        READ CHANNEL TABLES
03543  M00S03150.rec     +++|          RJM    RNS
03544  M00S03151.rec     +++|          ENDMS

Seq #  *Modification Id* Act 
----------------------------+
03545  M01S03152.rec21   ---|          LDN    CTALL*2     SET TABLE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
03546  M01S00006.rec21   +++|          LDN    CTALL       SET TABLE LENGTH
03547  M00S03153.rec     +++|          STD    T1
03548  M00S03154.rec     +++|          LDC    CHTP        GET CHANNEL TABLE POINTER
03549  M00S03155.rec     +++|          CRD    CM
03550  M00S03156.rec     +++|          LDD    CM+2
03551  M00S03157.rec     +++|          SHN    14
03552  M00S03158.rec     +++|          ADD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
03553  M01S03159.rec21   ---|          CWM    BFMS+2,T1   RESTORE CHANNEL TABLES
03554  M01S03160.rec21   ---|          LDN    MXCH+1
03555  M01S03161.rec21   ---|          STD    FN
03556  M01S03162.rec21   ---| PCH1     LDM    BFMS+2,FN   CHECK CHANNEL STATUS
03557  M01S03163.rec21   ---|          LPN    40
03558  M01S03164.rec21   ---|          ZJN    PCH2        IF CHANNEL NOT DOWN
03559  M01S03165.rec21   ---|          RJM    SCD         SET CHANNEL DOWN
03560  M01S03166.rec21   ---| PCH2     SOD    FN
03561  M01S03167.rec21   ---|          PJN    PCH1        IF MORE CHANNELS

Seq #  *Modification Id* Act 
----------------------------+
03562  M01S00007.rec21   +++|          ADK    CTALL
03563  M01S00008.rec21   +++|          CWM    BFMS+2+CTALL*5,T1  RESTORE CHANNEL ASSIGNMENT TABLE
03564  M00S03168.rec     +++|          UJN    PCHX        RETURN
03565  M00S03169.rec     +++| PET      SPACE  4,10
03566  M00S03170.rec     +++|**        PET - PROCESS EST.
03567  M00S03171.rec     +++|*
03568  M00S03172.rec     +++|*         ENTRY  SYSTEM FILE POSITIONED TO EST SECTOR.
03569  M00S03173.rec     +++|*
03570  M00S03174.rec     +++|*         EXIT   FOR ALL EQUIPMENTS WITH DOWN STATUS SET,
03571  M00S03175.rec     +++|*                THE DOWN, OFF, AND UNAVAILABLE BITS WILL BE
03572  M00S03176.rec     +++|*                SET IN THE EST, AND THE GLOBAL
03573  M00S03177.rec     +++|*                UNLOAD, UNLOAD REQUESTED, AND UNLOAD PROCESSED
03574  M00S03178.rec     +++|*                BITS WILL BE SET IN THE MST.
03575  M00S03179.rec     +++|*                FOR EQUIPMENTS WITH A CHANNEL DOWN ON THE CHECKPOINT
03576  M00S03180.rec     +++|*                FILE, BUT NOT IN THE CM EST (CHANNEL IS NOT GLOABALLY
03577  M00S03181.rec     +++|*                DOWN), THE CHANNEL DOWN STATUS IS RESET WITH A *SEQM*
03578  M00S03182.rec     +++|*                FUNCTION.
03579  M00S03183.rec     +++|*
03580  M00S03184.rec     +++|*         USES   CA, EO, LM, T3, T5, CN - CN+4.
03581  M00S03185.rec     +++|*
03582  M00S03186.rec     +++|*         CALLS  CDS, DDC, IEQ, RNS, SES.
03583  M00S03187.rec     +++|*
03584  M00S03188.rec     +++|*         MACROS ENDMS, SETMS, SFA.
03585  M00S03189.rec     +++|
03586  M00S03190.rec     +++|
03587  M00S03191.rec     +++| PET2     AOD    EO          ADVANCE EST ORDINAL
03588  M00S03192.rec     +++|          STD    T5
03589  M00S03193.rec     +++|          ERRNZ  ESTE/2*2-ESTE  CODE ASSUMES INTEGRAL EST-S PER PRU
03590  M00S03194.rec     +++|          LDN    5*ESTE      ADVANCE BUFFER ADDRESS
03591  M00S03195.rec     +++|          RAD    CA
03592  M00S03196.rec     +++|          SFA    EST,EO      GET EST ENTRY FROM CMR
03593  M00S03197.rec     +++|          ADK    EQDE
03594  M00S03198.rec     +++|          CRD    CN
03595  M00S03199.rec     +++|          RJM    IEQ         IDENTIFY EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
03596  M01S03200.rec21   ---|          MJN    PET4        IF NON-REMOVABLE MS DEVICE
03597  M01S03201.rec21   ---|          NJN    PET3        IF NOT MASS STORAGE OR TAPE

Seq #  *Modification Id* Act 
----------------------------+
03598  M01S00009.rec21   +++|          RJM    SES
03599  M00S03202.rec     +++|          RJM    DDC

Seq #  *Modification Id* Act 
----------------------------+
03600  M01S03203.rec21   ---| PET3     RJM    SES         SET EQUIPMENT STATE
03601  M00S03204.rec     +++|          RJM    CDS         CHECK DEVICE STATUS
03602  M00S03205.rec     +++| PET4     LCN    ESTE        DECREMENT WORD COUNT
03603  M00S03206.rec     +++|          RAD    LM
03604  M00S03207.rec     +++|          PJN    PET2        IF NOT END OF SECTOR
03605  M00S03208.rec     +++|          LDD    CE          RESET CHECKPOINT DEVICE EST ORDINAL
03606  M00S03209.rec     +++|          STD    T5
03607  M00S03210.rec     +++|          LDD    T3          CHECK EST SECTOR
03608  M00S03211.rec     +++|          SHN    -6
03609  M00S03212.rec     +++|          NJN    PET1        IF NOT EOR
03610  M00S03213.rec     +++|
03611  M00S03214.rec     +++| PET      SUBR               ENTRY/EXIT
03612  M00S03215.rec     +++|          LCN    0
03613  M00S03216.rec     +++|          STD    EO
03614  M00S03217.rec     +++| PET1     LDC    BFMS+2-5*ESTE  INITIALIZE BUFFER POINTER
03615  M00S03218.rec     +++|          STD    CA
03616  M00S03219.rec     +++|          ADN    5*ESTE-2    READ NEXT SECTOR OF EST
03617  M00S03220.rec     +++|          RJM    RNS
03618  M00S03221.rec     +++|          STD    LM
03619  M00S03222.rec     +++|          ENDMS
03620  M00S03223.rec     +++|          LDD    LM          SET SECTOR WORD COUNT
03621  M00S03224.rec     +++|          STD    T3
03622  M00S03225.rec     +++|          NJN    PET4        IF NOT EMPTY SECTOR
03623  M00S03226.rec     +++|          UJN    PETX        RETURN
03624  M00S03227.rec     +++| RSE      SPACE  4,10
03625  M00S03228.rec     +++|**        RSE - RELEASE SYSTEM ASSIGNED EQUIPMENT.
03626  M00S03229.rec     +++|*
03627  M00S03230.rec     +++|*         USES   T5, T6, T7, CM - CM+4, FS - FS+4.
03628  M00S03231.rec     +++|*
03629  M00S03232.rec     +++|*         MACROS SFA.
03630  M00S03233.rec     +++|
03631  M00S03234.rec     +++|
03632  M00S03235.rec     +++| RSE2     LDD    CP
03633  M00S03236.rec     +++|          ADN    EACW        UPDATE EQUIPMENT ASSIGNED COUNT WORD
03634  M00S03237.rec     +++|          CWD    FS
03635  M00S03238.rec     +++|
03636  M00S03239.rec     +++| RSE      SUBR               ENTRY/EXIT
03637  M00S03240.rec     +++|          LDD    CP
03638  M00S03241.rec     +++|          ADN    EACW        GET EQUIPMENT ASSIGNED COUNT WORD
03639  M00S03242.rec     +++|          CRD    FS
03640  M00S03243.rec     +++|          LDN    ESTP
03641  M00S03244.rec     +++|          CRD    T7-2        FETCH EST POINTERS
03642  M00S03245.rec     +++| RSE1     SOD    T7
03643  M00S03246.rec     +++|          MJN    RSE2        IF EST SCAN COMPLETE
03644  M00S03247.rec     +++|          SFA    EST
03645  M00S03248.rec     +++|          ADK    EQAE        READ EST ASSIGNMENT WORD
03646  M00S03249.rec     +++|          CRD    CM
03647  M00S03250.rec     +++|          LDD    CM+4        CHECK ASSIGNMENT

Proceed to Part 2