User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:0mf

Deck 0MF

6 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.0mf     +++|          IDENT  0MF,ILDX
00002  M01S00002.0mf     +++|          PERIPH J
00003  M01S00003.0mf     +++|          BASE   M
00004  M01S00004.0mf     +++|          SST
00005  M01S00005.0mf     +++|*COMMENT  0MF - INITIALIZE MMF LINK DEVICE.
Line S00006 Modification History
M01 (Added by) 0mf
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
Line S00007 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00007.ns22000 ---|          TITLE  0MF - INITIALIZE MMF LINK DEVICE
00009  M01S00001.ns22000 +++|          TITLE  0MF - INITIALIZE MMF LINK DEVICE.
00010  M01S00008.0mf     +++|          SPACE  4
00011  M01S00009.0mf     +++|***       0MF - INITIALIZE MMF LINK DEVICE.
00012  M01S00010.0mf     +++|*         P. D. HAAS         75/07/14.
00013  M01S00011.0mf     +++|          SPACE  4
00014  M01S00012.0mf     +++|***              0MF IS RESPONSIBLE FOR INITIALIZATION OF THE
00015  M01S00013.0mf     +++|*         MULTI-MAINFRAME LINK DEVICE (ECS).
00016  M01S00014.0mf     +++|          SPACE  4
00017  M01S00015.0mf     +++|***       ENTRY CONDITIONS.
00018  M01S00016.0mf     +++|*
00019  M01S00017.0mf     +++|*
Line S00018 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00018.ns22000 ---|*         (EQ) = ECS EQUIPMENT NUMBER.
00021  M01S00002.ns22000 +++|*         (EQ) = ECS EST ORDINAL.
00022  M01S00001.283l840 +++|*         (RS) = RECOVERY STATUS.
00023  M01S00019.0mf     +++|*         (TW) = CONSTANT TW0.
00024  M01S00002.283l840 +++|*         (P1) = TOTAL NUMBER OF DEVICES TO PRESET.
00025  M01S00003.283l840 +++|*         (P2) = NUMBER OF BUFFERED DEVICES TO PRESET.
00026  M01S00004.283l840 +++|*         (CN - CN+4) = *ALGL* WORD OF MST FOR ECS.
Line S00020 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00020.ns22000 ---|*         (LM) = LINK DEVICE MST POINTER.
00028  M01S00021.0mf     +++|*         (FN - FN+4) = EST ENTRY FOR ECS.
Line S00022 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00022.283l840 ---|*         (P2) = NUMBER OF DEVICES TO PRESET FOR.
Line S00023 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00023.283l840 ---|*         (CN - CN+4) = *ALGL* WORD OF MST FOR ECS.
00031  M01S00024.0mf     +++|          SPACE  4
00032  M01S00025.0mf     +++|***       EXIT CONDITIONS.
00033  M01S00026.0mf     +++|*
00034  M01S00027.0mf     +++|*
00035  M01S00028.0mf     +++|*         ECS RESIDENT INITIALIZED.
00036  M01S00029.0mf     +++|*         *PRSI* INTERLOCK CLEARED.
00037  M01S00005.283l840 +++|*         (QT) = CURRENT *DAT* TRACK.
00038  M01S00006.283l840 +++|*         (QI) = CURRENT *DAT* INDEX.
00039  M01S00007.283l840 +++|*         (BAEI - BAEI+4) = IMAGE OF *BAET* ENVIRONMENT TABLE WORD.
00040  M01S00030.0mf     +++|          SPACE  4
00041  M01S00031.0mf     +++|*CALL     COMPMAC
00042  M01S00032.0mf     +++|*CALL     COMPREL
00043  M01S00033.0mf     +++|*CALL     COMSCPS
00044  M01S00034.0mf     +++|*CALL     COMSMSP
00045  M01S00035.0mf     +++|*CALL     COMSMST
00046  M01S00036.0mf     +++|          LIST   X
00047  M01S00003.ns22000 +++| MMF$     EQU    1           INITIALIZE COMSMMF DIRECT CELLS
00048  M01S00037.0mf     +++|*CALL     COMSMMF
Line S00038 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00038.283l840 ---|          LIST   -X
00050  M01S00008.283l840 +++|          LIST   *
00051  M01S00039.0mf     +++|*CALL     COMSZOL
Line S00040 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00040.ns22000 ---|          SPACE  4
Line S00041 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00041.ns22000 ---|****      DIRECT LOCATION ASSIGNMENTS.
Line S00042 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00042.ns22000 ---|
Line S00043 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00055  M02S00043.ns22000 ---|
Line S00044 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00056  M02S00044.ns22000 ---| FS       EQU    20 - 24     CM WORD BUFFER (5 LOCATIONS)
Line S00045 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00045.ns22000 ---| EL       EQU    25          ECS LABEL TRACK
Line S00046 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00058  M02S00046.ns22000 ---| TW       EQU    27          CONSTANT TWO
Line S00047 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00047.ns22000 ---| CN       EQU    30 - 34     CM WORD BUFFER (5 LOCATIONS)
Line S00048 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00048.ns22000 ---| QT       EQU    35          QUEUED FILE TRACK (4DA)
Line S00049 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00049.ns22000 ---| QS       EQU    36          QUEUED FILE SECTOR (4DA)
Line S00050 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00050.ns22000 ---| QI       EQU    37          QUEUE INDEX (4DA)
Line S00051 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00051.ns22000 ---| FN       EQU    40 - 44     EST ENTRY
Line S00052 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00064  M02S00052.ns22000 ---| LM       EQU    47          LINK DEVICE MST POINTER
Line S00053 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00053.ns22000 ---| EQ       EQU    IR+3        EQUIPMENT NUMBER
Line S00054 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00054.ns22000 ---| RS       EQU    IR+4        RECOVERY STATUS
Line S00055 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00055.ns22000 ---| EP       EQU    60 - 61     EST POINTER
Line S00056 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00056.ns22000 ---| CA       EQU    64 - 65     CENTRAL ADDRESS
Line S00057 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00057.ns22000 ---| P1       EQU    66          SCRATCH
Line S00058 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00058.ns22000 ---| P2       EQU    67          SCRATCH
Line S00059 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00059.ns22000 ---|
Line S00060 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00060.ns22000 ---|****
00073  M01S00061.0mf     +++|          TITLE  MAIN ROUTINE.
00074  M01S00062.0mf     +++|**        ILD - MAIN ROUTINE.
00075  M01S00063.0mf     +++|
00076  M01S00064.0mf     +++|
00077  M01S00065.0mf     +++|          ORG    5
00078  M01S00066.0mf     +++|
00079  M01S00067.0mf     +++| ILD      SUBR               ENTRY/EXIT
00080  M01S00001.252l678 +++|          SFA    EST,EQ
00081  M01S00002.252l678 +++|          ADK    EQAE
00082  M01S00003.252l678 +++|          CRD    CM
00083  M01S00004.252l678 +++|          LDD    CM+2        PRESET EM TRACK SHIFT COUNT
00084  M01S00005.252l678 +++|          SHN    -6
Line S00006 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00006.283l840 ---|          LPN    3           MASK OFF EXTENDED MEMORY SHIFT COUNT
00086  M01S00009.283l840 +++|          LPN    3
00087  M01S00007.252l678 +++|          RAM    ILDF
Line S00068 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00088  M02S00068.283l840 ---|          LDD    LA
00089  M01S00010.283l840 +++|          STM    ILDH
00090  M01S00011.283l840 +++|          LDD    LA          BIAS INSTRUCTIONS BY LOAD ADDRESS
00091  M01S00069.0mf     +++|          RAM    ILDA
00092  M01S00070.0mf     +++|          STM    ILDB
00093  M01S00071.0mf     +++|          STM    ILDC
00094  M01S00012.283l840 +++|
00095  M01S00013.283l840 +++|*         RESERVE DAT/FAT TRACK CHAIN.
00096  M01S00014.283l840 +++|
00097  M01S00072.0mf     +++|          LDN    ZERL
00098  M01S00073.0mf     +++|          CRD    CM
Line S00074 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00074.ns22000 ---|          LDD    EQ          SET EQUIPMENT NUMBER IN REQUEST
00100  M01S00004.ns22000 +++|          LDD    EQ          SET EST ORDINAL IN REQUEST
00101  M01S00075.0mf     +++|          STD    CM+1
00102  M01S00076.0mf     +++|          LDD    RS
00103  M01S00077.0mf     +++|          NJN    ILD2        IF RECOVERY SELECTED
00104  M01S00078.0mf     +++|          LDD    CN+4
00105  M01S00079.0mf     +++|          ZJN    ILD1        IF NO DAT/FAT TRACK CHAIN
00106  M01S00080.0mf     +++|          STD    CM+2
00107  M01S00081.0mf     +++|          MONITOR DTKM       RELEASE DAT/FAT TRACK CHAIN
Line S00082 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00108  M02S00082.283l840 ---|
Line S00083 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00109  M02S00083.283l840 ---|*         RESERVE DAT/FAT TRACK CHAIN.
Line S00084 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00084.283l840 ---|
Line S00085 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00085.ns22000 ---| ILD1     LDD    EQ          SET EQUIPMENT NUMBER
00112  M01S00005.ns22000 +++| ILD1     LDD    EQ          SET EST ORDINAL
00113  M01S00086.0mf     +++|          STD    CM+1
Line S00087 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00087.283l840 ---|          SOD    P2          CONVERT TRACK COUNT TO SECTOR COUNT
Line S00088 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
M03 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00115  M03S00088.283l840 ---|          SHN    4
Line S00008 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00008.283l840 ---| ILDF     SHN    4
00117  M01S00015.283l840 +++|          LDD    P1          NUMBER OF SHARED DEVICES
00118  M01S00016.283l840 +++| ILDF     SHN    4           CONVERT TRACK COUNT TO SECTOR COUNT
00119  M01S00009.252l678 +++|*         SHN    4+EMSC      (EMSC = EM TRACK SHIFT COUNT)
Line S00089 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00120  M02S00089.283l840 ---|          ADN    1
00121  M01S00017.283l840 +++|          ADN    1           ADDITIONAL TRACK FOR DAT-S AND FAT-S
00122  M01S00090.0mf     +++|          STD    CM+4
00123  M01S00018.283l840 +++|          SHN    -14
00124  M01S00019.283l840 +++|          STD    CM+3
00125  M01S00091.0mf     +++|          MONITOR RTCM
00126  M01S00092.0mf     +++|          LDD    CM+4        SET FIRST TRACK IN *ALGL*
00127  M01S00093.0mf     +++|          STD    CN+4
00128  M01S00094.0mf     +++|          STD    CM+2
00129  M01S00095.0mf     +++|          LDN    SPFS        SET PRESERVED FILE STATUS
00130  M01S00096.0mf     +++|          STD    CM+3
00131  M01S00097.0mf     +++|          LDC    4000        INCLUDE CHECKPOINT REQUEST
00132  M01S00098.0mf     +++|          RAD    CM+1
00133  M01S00099.0mf     +++|          MONITOR STBM
00134  M01S00100.0mf     +++| ILD2     LDD    FN+4        STORE DEVICE ALLOCATION WORD
00135  M01S00101.0mf     +++|          SHN    3
00136  M01S00102.0mf     +++|          ADN    ALGL
00137  M01S00103.0mf     +++|          CWD    CN
00138  M01S00104.0mf     +++|          SBN    ALGL-SDGL   GET SHARED DEVICE WORD
00139  M01S00105.0mf     +++|          CRD    FS
00140  M01S00106.0mf     +++|          ADN    PFGL-SDGL   READ PF DESCRIPTOR WORD
00141  M01S00107.0mf     +++|          CRM.   ILDD,ON
00142  M01S00108.0mf     +++| ILDA     EQU    *-1
Line S00109 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00109.283l840 ---|          LDD    CN+4        SET *DAT* TRACK FOR LINK DEVICE
Line S00110 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00110.283l840 ---|          SHN    21-1        REMOVE TRACK BIT
Line S00111 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00145  M02S00111.283l840 ---|          LMD    TH
Line S00112 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00112.283l840 ---|          STD    T0          SET WORD INDEX
Line S00113 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00113.283l840 ---|          SHN    1-21
Line S00114 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00148  M02S00114.283l840 ---|          STD    T1          SET BYTE INDEX
00149  M01S00020.283l840 +++|
00150  M01S00021.283l840 +++|*         SETUP *DAET* IN ENVIRONMENT TABLE SECTOR.
00151  M01S00022.283l840 +++|
Line S00115 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00152  M02S00115.ns22000 ---|          LDD    LM          READ TRT WORD
00153  M01S00006.ns22000 +++|          LDD    FN+4        READ TRT WORD
00154  M01S00116.0mf     +++|          SHN    3
Line S00117 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00117.ns22000 ---|          ADN    MSTL
00156  M01S00007.ns22000 +++|          ADN    TRLL
00157  M01S00008.ns22000 +++|          CRD    CM
00158  M01S00009.ns22000 +++|          LDD    CM+3
00159  M01S00010.ns22000 +++|          LPN    77
00160  M01S00011.ns22000 +++|          RAM    ILDE        SET FWA OF TRT
00161  M01S00023.283l840 +++|          STM    SNTA
00162  M01S00012.ns22000 +++|          LPN    77
00163  M01S00013.ns22000 +++|          SHN    14
00164  M01S00014.ns22000 +++|          LMD    CM+4
00165  M01S00015.ns22000 +++|          STM    ILDE+1
Line S00118 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00118.283l840 ---|          ADD    T0
Line S00119 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00119.283l840 ---|          CRD    CM
Line S00120 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00168  M02S00120.283l840 ---|          LDM.   CM,T1       EXTRACT NEXT TRACK
00169  M01S00024.283l840 +++|          STM    SNTA+1
00170  M01S00025.283l840 +++|          LDD    CN+4        SET *DAT* TRACK FOR LINK DEVICE
00171  M01S00026.283l840 +++|          RJM    SNT         SET NEXT TRACK
00172  M01S00121.0mf     +++|          STM    ILDD+4      SET TRACK IN *DAT* ENTRY
00173  M01S00122.0mf     +++|          STD    QT
00174  M01S00123.0mf     +++|          STD    T6
00175  M01S00124.0mf     +++|          LDN    0
00176  M01S00010.252l678 +++|          STD    T7
00177  M01S00125.0mf     +++|          RJM    CEA         CONVERT ECS ADDRESS
00178  M01S00126.0mf     +++|          LDD    CM+3
00179  M01S00127.0mf     +++|          STD    FS
00180  M01S00128.0mf     +++|          LDD    CM+4        SET ABSOLUTE MST/TRT ADDRESS
00181  M01S00129.0mf     +++|          STD    FS+1
00182  M01S00130.0mf     +++|          LDD    HN          SET ONE TRT ACCESS
00183  M01S00131.0mf     +++|          STD    FS+4
00184  M01S00132.0mf     +++|          LDD    FN+4        STORE DRIVER ACTIVITY WORD
00185  M01S00133.0mf     +++|          SHN    3
00186  M01S00134.0mf     +++|          ADN    SDGL
00187  M01S00135.0mf     +++|          CWD    FS
00188  M01S00136.0mf     +++|          LDD    CN+4        SET FIRST TRACK IN *DAT* CHAIN
00189  M01S00137.0mf     +++|          STD    T6
Line S00138 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00138.283l840 ---|          STD    P1
00191  M01S00027.283l840 +++|          STM    ILDG
00192  M01S00139.0mf     +++|          LDN    ZERL
00193  M01S00140.0mf     +++|          CRD    FS
Line S00141 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00194  M02S00141.283l840 ---|          LDN    0
00195  M01S00028.283l840 +++|          LDN    0           SET WORD COUNT
00196  M01S00142.0mf     +++|          STD    CM+1
00197  M01S00143.0mf     +++|          LDD    QT          SET CURRENT TRACK IN *DAET* IMAGE
00198  M01S00144.0mf     +++|          STD    FS
00199  M01S00145.0mf     +++|          LDN    2           SET *DAT* INDEX
00200  M01S00146.0mf     +++|          STD    QI
00201  M01S00147.0mf     +++|          STD    FS+4
00202  M01S00148.0mf     +++|          LDD    MA          MOVE *DAET* IMAGE TO BUFFER
00203  M01S00149.0mf     +++|          CWD    FS
00204  M01S00150.0mf     +++|          STD    CM+2        SET BUFFER ADDRESS
00205  M01S00151.0mf     +++|          LDD    CN+1        SET LABEL TRACK
00206  M01S00152.0mf     +++|          STD    T6
00207  M01S00029.283l840 +++|          STM    ILDK
Line S00153 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00208  M02S00153.252l678 ---|          LDC    ETLT*100+DAET  CONVERT ADDRESS OF ENVIRONMENT TABLE
00209  M01S00011.252l678 +++|          LDN    ETLT        CONVERT ENVIRONMENT TABLE SECTOR ADDRESS
00210  M01S00012.252l678 +++|          STD    T7
00211  M01S00154.0mf     +++|          RJM    CEA
00212  M01S00013.252l678 +++|          LDN    DAET
00213  M01S00014.252l678 +++|          RAD    CM+4
00214  M01S00015.252l678 +++|          SHN    -14
Line S00016 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00215  M02S00016.283l840 ---|          RAD    CM+3
Line S00155 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00216  M02S00155.283l840 ---|          LDC    WECS*1000   SET WRITE FUNCTION
00217  M01S00030.283l840 +++|          ADC    WECS*1000   SET WRITE FUNCTION
00218  M01S00156.0mf     +++|          RAD    CM+3
00219  M01S00157.0mf     +++|          MONITOR ECSM       STORE *DAET* WORD
00220  M01S00158.0mf     +++|          LDD    RA          STORE *DAT* ENTRY IN CM COPY OF *DAT*
00221  M01S00159.0mf     +++|          SHN    6
00222  M01S00160.0mf     +++|          ADD    CA+1
00223  M01S00161.0mf     +++|          CWM.   ILDD,TW
00224  M01S00162.0mf     +++| ILDC     EQU    *-1
00225  M01S00163.0mf     +++|          LDD    TH          ADVANCE TRT BUFFER ADDRESS
00226  M01S00164.0mf     +++|          RAD    CA+1
00227  M01S00165.0mf     +++|
00228  M01S00166.0mf     +++|*         STORE MST/TRT FOR LINK DEVICE IN ECS.
00229  M01S00167.0mf     +++|
00230  M01S00168.0mf     +++|          LDC    500-5*MSTL
00231  M01S00169.0mf     +++|          STD    T7
00232  M01S00170.0mf     +++| ILD3     LDN    0           CLEAR BUFFER
00233  M01S00171.0mf     +++|          STM.   BFMS+1+5*MSTL,T7
00234  M01S00172.0mf     +++|          SOD    T7
00235  M01S00173.0mf     +++|          NJN    ILD3
Line S00174 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00236  M02S00174.ns22000 ---|          LDD    EQ          SET ECS EQUIPMENT NUMBER
00237  M01S00016.ns22000 +++|          LDD    EQ          SET ECS EST ORDINAL
00238  M01S00175.0mf     +++|          STD    T5
00239  M01S00176.0mf     +++|          LDD    QT          SET MST/TRT TRACK
00240  M01S00177.0mf     +++|          STD    T6
Line S00178 Modification History
M01 (Added by) 0mf
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00178.253l688 ---|          LDN    MLUNL+MLDUL SET UNLOAD STATUS IN LOCAL MST BLOCKS
Line S00179 Modification History
M01 (Added by) 0mf
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00179.253l688 ---|          STM.   BFMS+2+5*STLL+5*LLLL
Line S00180 Modification History
M01 (Added by) 0mf
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00243  M02S00180.253l688 ---|          STM.   BFMS+2+5*STLL+2*5*LLLL
Line S00181 Modification History
M01 (Added by) 0mf
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00244  M02S00181.253l688 ---|          STM.   BFMS+2+5*STLL+3*5*LLLL
00245  M01S00001.253l688 +++|          LDN    MXMF-1
00246  M01S00002.253l688 +++|          STD    T0
00247  M01S00003.253l688 +++|          LDK    5*LLLL
00248  M01S00004.253l688 +++|          STD    T1
00249  M01S00005.253l688 +++| ILD3.1   LDN    MLUNL+MLDUL SET UNLOAD STATUS
00250  M01S00006.253l688 +++|          STM.   BFMS+2+5*STLL,T1
00251  M01S00007.253l688 +++|          LDN    5*LLLL
00252  M01S00008.253l688 +++|          RAD    T1
00253  M01S00009.253l688 +++|          SOD    T0
00254  M01S00010.253l688 +++|          NJN    ILD3.1      IF MORE LOCAL AREAS
00255  M01S00182.0mf     +++|          LDD    HN          SET FULL SECTOR WORD COUNT
00256  M01S00183.0mf     +++|          STM.   BFMS+1
00257  M01S00184.0mf     +++|          LDN    MSTL        SET LENGTH OF MST
00258  M01S00185.0mf     +++|          STD    T1
00259  M01S00186.0mf     +++|          LDD    FN+4        READ MST TO PP BUFFER
00260  M01S00187.0mf     +++|          SHN    3
Line S00188 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00261  M02S00188.ns22000 ---|          ADN    TDGL
00262  M01S00017.ns22000 +++|          ADK    TDGL
00263  M01S00189.0mf     +++|          CRD    CN
00264  M01S00190.0mf     +++|          CRM.   BFMS+2,T1
00265  M01S00191.0mf     +++|          LDM.   BFMS+2+5*MDGL  SET 16-WORD PFC FLAG
00266  M01S00192.0mf     +++|          LPC    6777
00267  M01S00193.0mf     +++|          LMD    TH
00268  M01S00194.0mf     +++|          STM.   BFMS+2+5*MDGL
00269  M01S00195.0mf     +++|          LDD    FN+4        UPDATE MST IN CMR
00270  M01S00196.0mf     +++|          SHN    3
00271  M01S00197.0mf     +++|          ADN    MDGL
00272  M01S00198.0mf     +++|          CWM.   BFMS+2+5*MDGL,ON
Line S00199 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00273  M02S00199.ns22000 ---|          LCN    77-MSTL     INITIALIZE TRT INDEX
Line S00200 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00274  M02S00200.ns22000 ---|          STD    CN+4
Line S00201 Modification History
M01 (Added by) 0mf
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00275  M02S00201.242l642 ---|          SETMS  WRITE,NE
00276  M01S00001.242l642 +++|          SETMS  IO,(DF,NS)
00277  M01S00202.0mf     +++|          LDN    0
00278  M01S00018.ns22000 +++|          STD    CN+4
00279  M01S00203.0mf     +++|          UJN    ILD6        ENTER LOOP WITH (A) = 0
00280  M01S00204.0mf     +++|
00281  M01S00205.0mf     +++| ILD4     SBD    HN          DECREMENT BLOCK COUNT
00282  M01S00206.0mf     +++|          PJN    ILD5        IF ANOTHER FULL SECTOR
00283  M01S00207.0mf     +++|          ADD    HN
00284  M01S00208.0mf     +++|          STM.   BFMS+1      SET SHORT SECTOR
00285  M01S00209.0mf     +++|          LDN    0
00286  M01S00210.0mf     +++| ILD5     STD    CN+2
Line S00211 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00211.ns22000 ---|          LDD    HN          ADVANCE TRT ADDRESS
Line S00212 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00288  M02S00212.ns22000 ---|          RAD    CN+4
Line S00213 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00289  M02S00213.ns22000 ---|          LDD    FN+4        READ NEXT BLOCK
Line S00214 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00290  M02S00214.ns22000 ---|          SHN    3
Line S00019 Modification History
M01 (Added by) ns22000
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00291  M02S00019.283l840 ---| ILDE     LDC    0           READ NEXT BLOCK
00292  M01S00031.283l840 +++| ILDE     LDC    **          (FWA OF TRT)
00293  M01S00215.0mf     +++|          ADD    CN+4
Line S00216 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00294  M02S00216.283l840 ---|          CRM.   BFMS+2,HN
00295  M01S00032.283l840 +++|          CRM.   BFMS+2,HN   READ NEXT BLOCK
00296  M01S00020.ns22000 +++|          LDD    HN          ADVANCE TRT ADDRESS
00297  M01S00021.ns22000 +++|          RAD    CN+4
00298  M01S00217.0mf     +++|          AOD    T7          ADVANCE SECTOR
00299  M01S00218.0mf     +++| ILD6     ADN    1
00300  M01S00219.0mf     +++|          STM.   BFMS
00301  M01S00220.0mf     +++|          LDC    BFMS        WRITE NEXT SECTOR
00302  M01S00221.0mf     +++|          RJM.   WDS
00303  M01S00222.0mf     +++|          LDD    CN+2
00304  M01S00223.0mf     +++|          NJN    ILD4        LOOP TO END OF TRT
00305  M01S00224.0mf     +++|          LDD    FN+4        GET TRT LENGTH FROM MST
00306  M01S00225.0mf     +++|          SHN    3
Line S00226 Modification History
M01 (Added by) 0mf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00307  M02S00226.ns22000 ---|          ADN    TDGL
00308  M01S00022.ns22000 +++|          ADK    TDGL
00309  M01S00227.0mf     +++|          CRD    CN
00310  M01S00228.0mf     +++|          LDN    MRST-1      INITIALIZE MRT SECTOR
00311  M01S00229.0mf     +++|          STD    T7
00312  M01S00230.0mf     +++|          LDD    CN+2        SET MRT LENGTH
00313  M01S00231.0mf     +++|          ADN    7
00314  M01S00232.0mf     +++|          SHN    -3
00315  M01S00233.0mf     +++|          STM.   BFMS+1
00316  M01S00234.0mf     +++|          LDC    500         BUFFER LENGTH
00317  M01S00235.0mf     +++|          STD    T1
00318  M01S00236.0mf     +++| ILD7     LDN    0           CLEAR BUFFER
00319  M01S00237.0mf     +++|          STM.   BFMS+1,T1
00320  M01S00238.0mf     +++|          SOD    T1
00321  M01S00239.0mf     +++|          NJN    ILD7
00322  M01S00240.0mf     +++|          LDN    MXMF        SET LOOP COUNT
00323  M01S00241.0mf     +++|          STD    CN
00324  M01S00242.0mf     +++|
00325  M01S00243.0mf     +++|*         CLEAR MRT SECTORS FOR *MXMF* MAINFRAMES.
00326  M01S00244.0mf     +++|
00327  M01S00245.0mf     +++| ILD8     AOD    T7          ADVANCE MRT SECTOR
00328  M01S00246.0mf     +++|          ADN    1           SET NEXT SECTOR IN LINKAGE
00329  M01S00247.0mf     +++|          STM.   BFMS
00330  M01S00248.0mf     +++|          LDC    BFMS        CLEAR MRT
00331  M01S00249.0mf     +++|          RJM.   WDS
00332  M01S00250.0mf     +++|          SOD    CN
Line S00251 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00333  M02S00251.252l678 ---|          NJN    ILD8        LOOP FOR 4 MRTS
00334  M01S00017.252l678 +++|          NJN    ILD8        IF NOT *MXMF* MRT-S CLEARED
00335  M01S00252.0mf     +++|          STD    T7
00336  M01S00253.0mf     +++|          LCN    20          CLEAR RECOVERY IN PROGRESS FLAG
00337  M01S00254.0mf     +++|          RAM    ILDD+11
Line S00255 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00338  M02S00255.283l840 ---|          LDD    P1          SET DAT/FAT TRACK
00339  M01S00033.283l840 +++|          LDC    **          SET DAT/FAT TRACK
00340  M01S00034.283l840 +++| ILDG     EQU    *-1
00341  M01S00256.0mf     +++|          STD    T6
00342  M01S00257.0mf     +++|          LDD    MA          MOVE LINK DEVICE DAT ENTRY TO BUFFER
00343  M01S00258.0mf     +++|          CWM.   ILDD,TW
00344  M01S00259.0mf     +++| ILDB     EQU    *-1
00345  M01S00260.0mf     +++|          LDD    MA
00346  M01S00261.0mf     +++|          CRM.   BFMS+2,TW
00347  M01S00262.0mf     +++|          LDD    HN
00348  M01S00263.0mf     +++|          STM.   BFMS+1
00349  M01S00264.0mf     +++|
00350  M01S00265.0mf     +++|*         INITIALIZE DAT/FAT TRACK.
00351  M01S00266.0mf     +++|
00352  M01S00267.0mf     +++| ILD9     LDD    T7          SET SECTOR IN LINK BYTE
00353  M01S00268.0mf     +++|          ADN    1
00354  M01S00269.0mf     +++| ILD10    STM.   BFMS
00355  M01S00270.0mf     +++|          LDC    BFMS
00356  M01S00271.0mf     +++|          RJM.   WDS         WRITE NEXT SECTOR
00357  M01S00272.0mf     +++|          LDN    ZERL
00358  M01S00273.0mf     +++|          CRM.   BFMS+2,ON
00359  M01S00274.0mf     +++|          LDN    ZERL
00360  M01S00275.0mf     +++|          CRM.   BFMS+2+5,ON
00361  M01S00276.0mf     +++|          AOD    T7          ADVANCE TO NEXT SECTOR
Line S00277 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00362  M02S00277.252l678 ---|          SBN    SLDE-1
00363  M01S00018.252l678 +++|          ADN    1
00364  M01S00019.252l678 +++|          SBM.   SLM
00365  M01S00278.0mf     +++|          MJN    ILD9        IF NOT LAST SECTOR
00366  M01S00279.0mf     +++|          NJN    ILD11       IF LAST SECTOR WRITTEN
00367  M01S00280.0mf     +++|          STM.   BFMS+1      SET EOI SECTOR
00368  M01S00281.0mf     +++|          UJN    ILD10
00369  M01S00282.0mf     +++|
00370  M01S00283.0mf     +++| ILD11    ENDMS              END MASS STORAGE OPERATION
Line S00284 Modification History
M01 (Added by) 0mf
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00371  M02S00284.283l840 ---|          LCN    PRSI        CLEAR *PRSI* INTERLOCK
00372  M01S00035.283l840 +++|
00373  M01S00036.283l840 +++|*         RESERVE BRT/BDT/BAT TRACK CHAIN.
00374  M01S00037.283l840 +++|
00375  M01S00038.283l840 +++|          LDD    FN+4        GET BRT/BDT/BAT TRACK CHAIN POINTER
00376  M01S00039.283l840 +++|          SHN    3
00377  M01S00040.283l840 +++|          ADN    NVGL
00378  M01S00041.283l840 +++|          CRD    CN
00379  M01S00042.283l840 +++|          LDN    ZERL
00380  M01S00043.283l840 +++|          CRD    CM
00381  M01S00044.283l840 +++|          LDD    EQ          SET EST ORDINAL IN REQUEST
00382  M01S00045.283l840 +++|          STD    CM+1
00383  M01S00046.283l840 +++|          LDD    RS
00384  M01S00047.283l840 +++|          NJP    ILD13       IF RECOVERY SELECTED
00385  M01S00048.283l840 +++|          LDD    CN+3
00386  M01S00049.283l840 +++|          ZJN    ILD12       IF NO BRT/BDT/BAT TRACK CHAIN
00387  M01S00050.283l840 +++|          STD    CM+2
00388  M01S00051.283l840 +++|          MONITOR DTKM       RELEASE BRT/BDT/BAT TRACK CHAIN
00389  M01S00052.283l840 +++|          STD    CN+3        CLEAR POINTER
00390  M01S00053.283l840 +++| ILD12    LDD    EQ          SET EST ORDINAL
00391  M01S00054.283l840 +++|          STD    CM+1
00392  M01S00055.283l840 +++|          LDD    P2          NUMBER OF SHARED BUFFERED DEVICES
00393  M01S00056.283l840 +++|          ZJN    ILD13       IF NO SHARED BUFFERED DEVICES
00394  M01S00057.283l840 +++|          ADN    1           ADDITIONAL TRACK FOR BRT-S
00395  M01S00058.283l840 +++| ILDH     SHN    4           CONVERT TRACK COUNT TO SECTOR COUNT
00396  M01S00059.283l840 +++|*         SHN    4+EMSC      (EMSC = EM TRACK SHIFT COUNT)
00397  M01S00060.283l840 +++|          ADN    1           ADDITIONAL TRACKS FOR BDT-S
00398  M01S00061.283l840 +++|          STD    CM+4
00399  M01S00062.283l840 +++|          SHN    -14
00400  M01S00063.283l840 +++|          STD    CM+3
00401  M01S00064.283l840 +++|          MONITOR RTCM
00402  M01S00065.283l840 +++|          LDD    CM+4        SET FIRST TRACK IN *NVGL*
00403  M01S00066.283l840 +++|          STD    CN+3
00404  M01S00067.283l840 +++|          STD    CM+2
00405  M01S00068.283l840 +++|          LDN    SPFS        SET PRESERVED FILE STATUS
00406  M01S00069.283l840 +++|          STD    CM+3
00407  M01S00070.283l840 +++|          LDC    4000        INCLUDE CHECKPOINT REQUEST
00408  M01S00071.283l840 +++|          RAD    CM+1
00409  M01S00072.283l840 +++|          MONITOR STBM
00410  M01S00073.283l840 +++| ILD13    LDD    FN+4        STORE *NVGL*
00411  M01S00074.283l840 +++|          SHN    3
00412  M01S00075.283l840 +++|          ADN    NVGL
00413  M01S00076.283l840 +++|          CWD    CN
00414  M01S00077.283l840 +++|
00415  M01S00078.283l840 +++|*         SETUP *BAET* IN ENVIRONMENT TABLE SECTOR.
00416  M01S00079.283l840 +++|
00417  M01S00080.283l840 +++|          LDN    ZERL
00418  M01S00081.283l840 +++|          CRD    FS
00419  M01S00082.283l840 +++|          LDD    P2
00420  M01S00083.283l840 +++|          ZJN    ILD14       IF NO SHARED BUFFERED DEVICES
00421  M01S00084.283l840 +++|          LDD    CN+3        FIRST TRACK OF BRT/BDT/BAT TRACK CHAIN
00422  M01S00085.283l840 +++|          STD    FS          SET BRT TRACK INTO *BAET* IMAGE
00423  M01S00086.283l840 +++|          RJM    SNT         SET NEXT TRACK
00424  M01S00087.283l840 +++|          STD    FS+1        SET BDT TRACK INTO *BAET* IMAGE
00425  M01S00088.283l840 +++|          RJM    SNT         SET NEXT TRACK
00426  M01S00089.283l840 +++|          STD    FS+4        SET FIRST BAT TRACK INTO *BAET* IMAGE
00427  M01S00090.283l840 +++| ILD14    LDD    MA          MOVE *BAET* IMAGE TO BUFFER
00428  M01S00091.283l840 +++|          STD    CM+2        SET BUFFER ADDRESS
00429  M01S00092.283l840 +++|          CWD    FS
00430  M01S00093.283l840 +++|          CRM.   BAEI,ON     SAVE *BAET* IMAGE
00431  M01S00094.283l840 +++|          LDN    0           SET WORD COUNT
00432  M01S00095.283l840 +++|          STD    CM+1
00433  M01S00096.283l840 +++|          LDC    **          SET LABEL TRACK
00434  M01S00097.283l840 +++| ILDK     EQU    *-1
00435  M01S00098.283l840 +++|          STD    T6
00436  M01S00099.283l840 +++|          LDN    ETLT        CONVERT ENVIRONMENT TABLE SECTOR ADDRESS
00437  M01S00100.283l840 +++|          STD    T7
00438  M01S00101.283l840 +++|          RJM    CEA
00439  M01S00102.283l840 +++|          LDN    BAET
00440  M01S00103.283l840 +++|          RAD    CM+4
00441  M01S00104.283l840 +++|          SHN    -14
00442  M01S00105.283l840 +++|          ADC    WECS*1000   SET WRITE FUNCTION
00443  M01S00106.283l840 +++|          RAD    CM+3
00444  M01S00107.283l840 +++|          MONITOR ECSM       STORE *BAET* WORD
00445  M01S00108.283l840 +++|
00446  M01S00109.283l840 +++|*         ENABLE BRT PROCESSING IN *MTE*.
00447  M01S00110.283l840 +++|
00448  M01S00111.283l840 +++|          LDD    P2
00449  M01S00112.283l840 +++|          ZJN    ILD15       IF NO SHARED BUFFERED DEVICES
00450  M01S00113.283l840 +++|          LDD    FS          SET BRT TRACK
00451  M01S00114.283l840 +++|          STD    CM+4
00452  M01S00115.283l840 +++|          LDD    FS+1        SET BDT TRACK
00453  M01S00116.283l840 +++|          STD    CM+3
00454  M01S00117.283l840 +++|          LDN    0
00455  M01S00118.283l840 +++|          STD    CM+2
00456  M01S00119.283l840 +++|          LDN    EBRS        ENABLE BRT PROCESSING
00457  M01S00120.283l840 +++|          STD    CM+1
00458  M01S00121.283l840 +++|          MONITOR  MTEM
00459  M01S00122.283l840 +++|
00460  M01S00123.283l840 +++| ILD15    LCN    PRSI        CLEAR *PRSI* INTERLOCK
00461  M01S00285.0mf     +++|          RJM    IFR
00462  M01S00286.0mf     +++|          LJM    ILDX        RETURN
00463  M01S00287.0mf     +++|
00464  M01S00124.283l840 +++|
00465  M01S00288.0mf     +++| ILDD     VFD    42/0LMMFLINK,6/0,12/0
00466  M01S00289.0mf     +++|          VFD    60/20
00467  M01S00125.283l840 +++|          TITLE  SUBROUTINES.
00468  M01S00126.283l840 +++| SNT      SPACE  4,10
00469  M01S00127.283l840 +++|**        SNT - SET NEXT TRACK IN EXTENDED MEMORY TRACK CHAIN.
00470  M01S00128.283l840 +++|*
00471  M01S00129.283l840 +++|*         ENTRY  (A) = TRACK NUMBER.
00472  M01S00130.283l840 +++|*                (SNTA) = CM ADDRESS OF TRT.
00473  M01S00131.283l840 +++|*
00474  M01S00132.283l840 +++|*         EXIT   (A) = TRACK NUMBER OF NEXT TRACK IN CHAIN.
00475  M01S00133.283l840 +++|*
00476  M01S00134.283l840 +++|*         USES   T1, CM - CM+4.
00477  M01S00135.283l840 +++|
00478  M01S00136.283l840 +++|
00479  M01S00137.283l840 +++| SNT      SUBR               ENTRY/EXIT
00480  M01S00138.283l840 +++|          SHN    21-1        REMOVE TRACK BIT
00481  M01S00139.283l840 +++|          LMD    TH
00482  M01S00140.283l840 +++|          STD    T0          SET WORD INDEX
00483  M01S00141.283l840 +++|          SHN    1-21
00484  M01S00142.283l840 +++|          STD    T1          SET BYTE INDEX
00485  M01S00143.283l840 +++| SNTA     LDC    **          (FWA OF TRT)
00486  M01S00144.283l840 +++|          ADD    T0
00487  M01S00145.283l840 +++|          CRD    CM
00488  M01S00146.283l840 +++|          LDM.   CM,T1       EXTRACT NEXT TRACK
00489  M01S00147.283l840 +++|          UJN    SNTX        RETURN
Line S00290 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00490  M02S00290.252l678 ---| CEA      TITLE  SUBROUTINES.
Line S00291 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00491  M02S00291.252l678 ---|**        CEA - CONVERT ECS ADDRESS.
Line S00292 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00492  M02S00292.252l678 ---|*
Line S00293 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00493  M02S00293.252l678 ---|*         ENTRY  (A) = SECTOR NUMBER * 100 + SECTOR WORD.
Line S00294 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00494  M02S00294.252l678 ---|*                (T6) = TRACK.
Line S00295 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00495  M02S00295.252l678 ---|*
Line S00296 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00496  M02S00296.252l678 ---|*         EXIT   (CM+3 - CM+4) = ABSOLUTE ECS ADDRESS.
Line S00297 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00297.252l678 ---|*
Line S00298 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00298.252l678 ---|*         USES   T0.
Line S00299 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00499  M02S00299.252l678 ---|
Line S00300 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00500  M02S00300.252l678 ---|
Line S00301 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00501  M02S00301.252l678 ---| CEA      SUBR               ENTRY/EXIT
Line S00302 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00502  M02S00302.252l678 ---|          ADN    20          ADJUST FOR LINKAGE WORDS
Line S00303 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00503  M02S00303.252l678 ---|          STD    CM+4
Line S00304 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00504  M02S00304.252l678 ---|          LDD    T6          CLEAR TRACK BIT
Line S00305 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00505  M02S00305.252l678 ---|          LPC    3777
Line S00306 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00506  M02S00306.252l678 ---|          STD    T0
Line S00307 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00307.252l678 ---|          SHN    6
Line S00308 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00308.252l678 ---|          RAD    T0          TRACK * 101
Line S00309 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00309.252l678 ---|          SHN    -10
Line S00310 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00310.252l678 ---|          SCN    17
Line S00311 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00311.252l678 ---|          STD    CM+3
Line S00312 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00312.252l678 ---|          LDD    T0
Line S00313 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00313.252l678 ---|          SHN    4           TRACK * 2020
Line S00314 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00514  M02S00314.252l678 ---|          RAD    CM+4
Line S00315 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00515  M02S00315.252l678 ---|          SHN    -14
Line S00316 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00516  M02S00316.252l678 ---|          RAD    CM+3
Line S00317 Modification History
M01 (Added by) 0mf
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00317.252l678 ---|          UJN    CEAX        RETURN
00518  M01S00318.0mf     +++|          SPACE  4
00519  M01S00319.0mf     +++|**        COMMON DECKS.
00520  M01S00320.0mf     +++|
00521  M01S00321.0mf     +++|
00522  M01S00020.252l678 +++|*CALL     COMPCEA
00523  M01S00322.0mf     +++|*CALL     COMPIFR
00524  M01S00323.0mf     +++|          SPACE  4,10
00525  M01S00324.0mf     +++|          OVERFLOW 5,ZMFL
00526  M01S00325.0mf     +++|          END
cdc/nos2.source/opl.opl871/deck/0mf.txt ยท Last modified: by 127.0.0.1