Seq # *Modification Id* Act
----------------------------+
02965 M01S00045.272l774 +++| CON 2REC,/COMSDFS/RM0132 (EC) 5833 (1X SABRE)
02966 M01S00046.272l774 +++| CON 2RED,/COMSDFS/RM0133 (ED) 5833 (1XP SABRE)
02967 M01S00047.272l774 +++| CON 2REE,/COMSDFS/RM0134 (EE) 5833 (2X SABRE)
02968 M01S00048.272l774 +++| CON 2REF,/COMSDFS/RM0137 (EF) 5833 (2XP SABRE)
| Line S00004 Modification History |
M01 (Added by) | ns2768 |
Seq # *Modification Id* Act
----------------------------+
02969 M01S00004.ns2768 +++| CON 2REG,/COMSDFS/RM0142 (EG) 5838 (1X ELITE)
02970 M01S00005.ns2768 +++| CON 2REH,/COMSDFS/RM0143 (EH) 5838 (1XP ELITE)
| Line S00080 Modification History |
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act
----------------------------+
02971 M01S00080.284l847 +++| CON 2REI,/COMSDFS/RM0144 (EI) 5838 (2X ELITE) (MP)
02972 M01S00081.284l847 +++| CON 2REJ,/COMSDFS/RM0147 (EJ) 5838 (2XP ELITE) (MP)
02973 M01S00082.284l847 +++| CON 2REK,/COMSDFS/RM0145 (EK) 5838 (3XP ELITE) (MP)
02974 M01S00083.284l847 +++| CON 2REL,/COMSDFS/RM0146 (EL) 5838 (4X ELITE) (MP)
02975 M01S00084.284l847 +++| CON 2REM,/COMSDFS/RM0135 (EM) 5833 (3XP SABRE) (MP)
02976 M01S00085.284l847 +++| CON 2REN,/COMSDFS/RM0136 (EN) 5833 (4X SABRE) (MP)
02977 M01S00086.284l847 +++| CON 2REO,/COMSDFS/RM0162 (EO) 47444 (1X 3.5IN)
02978 M01S00087.284l847 +++| CON 2REP,/COMSDFS/RM0163 (EP) 47444 (1XP 3.5IN)
02979 M01S00088.284l847 +++| CON 2RES,/COMSDFS/RM0164 (ES) 47444 (2X 3.5IN) (MP)
02980 M01S00089.284l847 +++| CON 2REU,/COMSDFS/RM0167 (EU) 47444 (2XP 3.5IN) (MP)
02981 M01S00090.284l847 +++| CON 2REV,/COMSDFS/RM0165 (EV) 47444 (3XP 3.5IN) (MP)
02982 M01S00091.284l847 +++| CON 2REW,/COMSDFS/RM0166 (EW) 47444 (4X 3.5IN) (MP)
| Line S00049 Modification History |
M01 (Added by) | 272l774 |
Seq # *Modification Id* Act
----------------------------+
02983 M01S00049.272l774 +++| CON 0 END OF TABLE
02984 M01S00050.272l774 +++| MSEID SPACE 4,10
02985 M01S00051.272l774 +++|* MSEID - TABLE OF MESSAGE ID-S FOR EXTENDED MEMORY DEVICES.
02986 M01S00052.272l774 +++|
02987 M01S00053.272l774 +++|
02988 M01S00054.272l774 +++| MSEID BSS 0
02989 M00S02243.1mv +++| CON 102,/COMSDFS/RM0070 (DP) ECS I - DC135 DDP
02990 M00S02244.1mv +++| CON 100,/COMSDFS/RM0071 (DE) ECS I - COUPLER
02991 M00S02245.1mv +++| CON 202,/COMSDFS/RM0072 (DP) ECS II - DC135 DDP
02992 M00S02246.1mv +++| CON 200,/COMSDFS/RM0073 (DE) ECS II - COUPLER
02993 M00S02247.1mv +++| CON 101,/COMSDFS/RM0074 (DP) ECS I - DC145 DDP
02994 M00S02248.1mv +++| CON 201,/COMSDFS/RM0075 (DP) ECS II - DC145 DDP
02995 M00S02249.1mv +++| CON 300,/COMSDFS/RM0076 (DP) LCME - COUPLER
02996 M00S02250.1mv +++| CON 400,/COMSDFS/RM0077 (DE) UEM
02997 M00S02251.1mv +++| CON 500,/COMSDFS/RM0207 (DE) ESM - COUPLER
02998 M00S02252.1mv +++| CON 501,/COMSDFS/RM0210 (DP) ESM - LOW SPEED PORT
| Line S00001 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02999 M01S00001.261l700 +++| CON 601,/COMSDFS/RM0172 (DP) STORNET
03000 M00S02253.1mv +++| CON 0 END OF TABLE
03001 M00S02254.1mv +++| SPACE 4,10
03002 M00S02255.1mv +++|* BINARY MAINTENANCE LOG MESSAGE.
03003 M00S02256.1mv +++|
03004 M00S02257.1mv +++| BML BSS 0
03005 M00S02258.1mv +++|
03006 M00S02259.1mv +++| BMLID VFD 12/ MESSAGE ID
03007 M00S02260.1mv +++|
03008 M00S02261.1mv +++| BMLSC VFD 12/ SYMPTOM CODE
03009 M00S02262.1mv +++|
03010 M00S02263.1mv +++| BMLPP VFD 6/ PP NUMBER
03011 M00S02264.1mv +++| VFD 6/ CHANNEL NUMBER
03012 M00S02265.1mv +++|
03013 M00S02266.1mv +++| BMLUN VFD 6/0 EQUIPMENT NUMBER
03014 M00S02267.1mv +++| VFD 6/ UNIT NUMBER
03015 M00S02268.1mv +++|
03016 M00S02269.1mv +++| VFD 12/0 RESERVED
03017 M00S02270.1mv +++|
03018 M00S02271.1mv +++| BMLEO VFD 12/ EST ORDINAL
03019 M00S02272.1mv +++|
03020 M00S02273.1mv +++| VFD 24/0 RESERVED
03021 M00S02274.1mv +++| BMLMF VFD 12/ MAINFRAME ID
03022 M00S02275.1mv +++|
03023 M00S02276.1mv +++| VFD 12/0 RESERVED
03024 M00S02277.1mv +++|
03025 M00S02278.1mv +++| BMLL1 EQU *-BML MESSAGE LENGTH (NON-TRACK FLAW FORMAT)
03026 M00S02279.1mv +++|
03027 M00S02280.1mv +++| VFD 24/0 RESERVED
03028 M00S02281.1mv +++| BMLCY VFD 12/ CYLINDER
03029 M00S02282.1mv +++|
03030 M00S02283.1mv +++| BMLTR VFD 12/ TRACK
03031 M00S02284.1mv +++|
03032 M00S02285.1mv +++| BMLSN VFD 12/ SECTOR
03033 M00S02286.1mv +++|
03034 M00S02287.1mv +++| BMLL2 EQU *-BML MESSAGE LENGTH (TRACK FLAW FORMAT)
03035 M00S02288.1mv +++| SPACE 4,10
03036 M00S02289.1mv +++|* ERROR LOG MESSAGES.
03037 M00S02290.1mv +++|
03038 M00S02291.1mv +++|
03039 M00S02292.1mv +++| ELMA DATA 6HCHXX,
03040 M00S02293.1mv +++| ELMB DATA C*EQXXX VERIFICATION FAILURE.*
03041 M00S02294.1mv +++| ELMC DATA C*EQXXX DOWNED BY SYSTEM.*
03042 M00S02295.1mv +++| ELMD DATA C*EQXXX OFFED BY SYSTEM.*
03043 M00S02296.1mv +++| ELME DATA C*EQXXX UNAVAILABLE.*
03044 M00S02297.1mv +++| ELMF DATA C*EQXXX,TKNNNN, MEDIA DEFECT FLAWED.*
| Line S00092 Modification History |
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act
----------------------------+
03045 M01S00092.284l847 +++| FMT SPACE 4,10
03046 M01S00093.284l847 +++|** FMT - FORMAT 895 DEVICE MAINTENANCE TRACK.
03047 M01S00094.284l847 +++|*
03048 M01S00095.284l847 +++|* ENTRY (T4) = CHANNEL NUMBER.
03049 M01S00096.284l847 +++|* (EQ) = EST ORDINAL.
03050 M01S00097.284l847 +++|* (DVMT) = MAINTENANCE TRACK NUMBER.
03051 M01S00098.284l847 +++|* (ES - ES+4) = EST ENTRY.
03052 M01S00099.284l847 +++|*
03053 M01S00100.284l847 +++|* EXIT (A) .NE. 0 IF ERROR.
03054 M01S00101.284l847 +++|* (T4) = CHANNEL NUMBER.
03055 M01S00102.284l847 +++|* (T5) = EST ORDINAL.
03056 M01S00103.284l847 +++|* (T6) = MAINTENANCE TRACK NUMBER.
03057 M01S00104.284l847 +++|*
03058 M01S00105.284l847 +++|* USES T1, T2, T4, T5, T6, CM - CM+4, CN - CN+2.
03059 M01S00106.284l847 +++|*
03060 M01S00107.284l847 +++|* CALLS FNC, SDR.
03061 M01S00108.284l847 +++|*
03062 M01S00109.284l847 +++|* MACROS DCHAN, DELAY, RCHAN.
03063 M01S00110.284l847 +++|
03064 M01S00111.284l847 +++|
03065 M01S00112.284l847 +++| FMT12 LDD ES+4 GET UNIT COUNT
03066 M01S00113.284l847 +++| SHN 3
03067 M01S00114.284l847 +++| ADK DDLL
03068 M01S00115.284l847 +++| CRD CM
03069 M01S00116.284l847 +++| LDD CM
03070 M01S00117.284l847 +++| LPN 7
03071 M01S00118.284l847 +++| STD T2
03072 M01S00119.284l847 +++| LDN FMMC
03073 M01S00120.284l847 +++| RJM SDR
03074 M01S00121.284l847 +++| LDN 0 SET RETURN STATUS
03075 M01S00122.284l847 +++|
03076 M01S00123.284l847 +++| FMT SUBR ENTRY/EXIT
03077 M01S00124.284l847 +++| LDM DVMT RESTORE MAINTENANCE TRACK NUMBER
03078 M01S00125.284l847 +++| STD T6
03079 M01S00126.284l847 +++| LDD EQ RESTORE EST ORDINAL
03080 M01S00127.284l847 +++| STD T5
| Line S00128 Modification History |
M01 (Added by) | 284l847 |
M02 (Removed by) | 1mv17 |
Seq # *Modification Id* Act
----------------------------+
03081 M02S00128.1mv17 ---| LDD CN RESTORE CHANNEL NUMBER
03082 M02S00129.1mv17 ---| STD T4
| Line S00001 Modification History |
M01 (Added by) | 1mv17 |
Seq # *Modification Id* Act
----------------------------+
03083 M01S00001.1mv17 +++| LDD T4
| Line S00130 Modification History |
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act
----------------------------+
03084 M01S00130.284l847 +++| LPN 40
03085 M01S00131.284l847 +++| NJN FMT12 IF CONCURRENT CHANNEL
03086 M01S00132.284l847 +++| LDD T4
03087 M01S00133.284l847 +++| RCHAN RESERVE CHANNEL
03088 M01S00134.284l847 +++| LDC CTAB
03089 M01S00135.284l847 +++| STD T1 SET CHANNEL TABLE ADDRESS
03090 M01S00136.284l847 +++| FMT1 LDI T1
03091 M01S00137.284l847 +++| ZJN FMT2 IF END OF LIST
03092 M01S00138.284l847 +++| STD T2
03093 M01S00139.284l847 +++| LDI T2 MODIFY INSTRUCTION
03094 M01S00140.284l847 +++| SCN 37
03095 M01S00141.284l847 +++| LMD T4
03096 M01S00142.284l847 +++| STI T2
03097 M01S00143.284l847 +++| AOD T1 ADVANCE LIST POINTER
03098 M01S00144.284l847 +++| UJN FMT1 MODIFY NEXT INSTRUCTION
03099 M01S00145.284l847 +++|
03100 M01S00146.284l847 +++| FMT2 LDD ES+4 GET UNIT LIST
03101 M01S00147.284l847 +++| SHN 3
03102 M01S00148.284l847 +++| ADK DDLL
03103 M01S00149.284l847 +++| CRD CM
03104 M01S00150.284l847 +++| LDD T6 STORE CYLINDER NUMBER
03105 M01S00151.284l847 +++| LPC 3777
03106 M01S00152.284l847 +++| SHN -1
03107 M01S00153.284l847 +++| STD CN
03108 M01S00154.284l847 +++| FMT3 LDD CM+4 EXTRACT NEXT UNIT
03109 M01S00155.284l847 +++| SHN 14
03110 M01S00156.284l847 +++| STD CM+4
03111 M01S00157.284l847 +++| ERRPL 4000-3*SLDC CODE DEPENDS ON VALUE
03112 M01S00158.284l847 +++| SHN -14
03113 M01S00159.284l847 +++| LMC 3S6 SET MODE/OPERATION DECODE
03114 M01S00160.284l847 +++| STD CN+1
03115 M01S00161.284l847 +++| LDD TH SET LARGE RECORD SIZE
03116 M01S00162.284l847 +++| STD CN+2
03117 M01S00163.284l847 +++| FMT4 LDK FCFP ISSUE FORMAT FUNCTION
03118 M01S00164.284l847 +++| RJM FNC
03119 M01S00165.284l847 +++| MJN FMT6 IF ERROR
03120 M01S00166.284l847 +++| ACN CH
03121 M01S00167.284l847 +++| LDN FPBL
03122 M01S00168.284l847 +++| OAM CN,CH
03123 M01S00169.284l847 +++| NJN FMT6 IF INCOMPLETE DATA TRANSFER
03124 M01S00170.284l847 +++| FMT5 EJM FMT7,CH IF ALL DATA WAS ACCEPTED
03125 M01S00171.284l847 +++| ADN 1
03126 M01S00172.284l847 +++| NJN FMT5 IF NOT TIMEOUT
03127 M01S00173.284l847 +++| FMT6 UJN FMT9 SET ERROR STATUS
03128 M01S00174.284l847 +++|
03129 M01S00175.284l847 +++| FMT7 DCN CH+40
03130 M01S00176.284l847 +++| LCN 0 SET 4 SECOND TIMEOUT
03131 M01S00177.284l847 +++| STD T2
03132 M01S00178.284l847 +++| FMT8 DELAY 10
03133 M01S00179.284l847 +++| LDK FCGS ISSUE GENERAL STATUS FUNCTION
03134 M01S00180.284l847 +++| RJM FNC
03135 M01S00181.284l847 +++| MJN FMT9 IF ERROR
03136 M01S00182.284l847 +++| ACN CH
03137 M01S00183.284l847 +++| LDN 1
03138 M01S00184.284l847 +++| IAM T1,CH
03139 M01S00185.284l847 +++| NJN FMT9 IF INCOMPLETE DATA TRANSFER
03140 M01S00186.284l847 +++| SFM FMT9,CH IF CHANNEL PARITY ERROR
03141 M01S00187.284l847 +++| DCN CH+40
03142 M01S00188.284l847 +++| LDD T1
03143 M01S00189.284l847 +++| ZJN FMT10 IF TRACK FORMATTING COMPLETE
03144 M01S00190.284l847 +++| SOD T2
03145 M01S00191.284l847 +++| NJN FMT8 IF NOT TIMEOUT
03146 M01S00192.284l847 +++| FMT9 AOM FMTB,SP SET ERROR STATUS
03147 M01S00193.284l847 +++| UJN FMT11 COMPLETE PROCESSING
03148 M01S00194.284l847 +++|
03149 M01S00195.284l847 +++| FMT10 AOD CN+2 INCREMENT TRACK NUMBER
03150 M01S00196.284l847 +++| LPN 77
03151 M01S00197.284l847 +++| LMN PTCYDC
03152 M01S00198.284l847 +++| NJP FMT4 IF NOT END OF CYLINDER
03153 M01S00199.284l847 +++| LDD CM
03154 M01S00200.284l847 +++| LPN 7
03155 M01S00201.284l847 +++| SBN 1
03156 M01S00202.284l847 +++| STD CM
03157 M01S00203.284l847 +++| PJP FMT3 IF MORE UNITS TO FORMAT
03158 M01S00204.284l847 +++| FMT11 DCN CH+40
03159 M01S00205.284l847 +++| LDK FCOC RELEASE HARDWARE RESERVES
03160 M01S00206.284l847 +++| RJM FNC
03161 M01S00207.284l847 +++| SHN 0-21 SET ERROR STATUS IF ERROR
03162 M01S00208.284l847 +++| RAM FMTB,SP
03163 M01S00209.284l847 +++| LDD T4 RELEASE CHANNEL
03164 M01S00210.284l847 +++| DCHAN
03165 M01S00211.284l847 +++| LDM FMTB,SP
03166 M01S00212.284l847 +++| LJM FMTX RETURN
03167 M01S00213.284l847 +++| FNC SPACE 4,10
03168 M01S00214.284l847 +++|** FNC - FUNCTION CHANNEL.
03169 M01S00215.284l847 +++|*
03170 M01S00216.284l847 +++|* ENTRY (A) = FUNCTION CODE.
03171 M01S00217.284l847 +++|*
03172 M01S00218.284l847 +++|* EXIT (A) .EQ. 0 IF FUNCTION WAS ACCEPTED.
03173 M01S00219.284l847 +++|* .LT. 0 IF TIMEOUT OR CHANNEL ACTIVE UPON ENTRY.
03174 M01S00220.284l847 +++|
03175 M01S00221.284l847 +++|
03176 M01S00222.284l847 +++| FNC SUBR ENTRY/EXIT
03177 M01S00223.284l847 +++| AJM FNC2,CH IF CHANNEL ALREADY ACTIVE
03178 M01S00224.284l847 +++| FAN CH
03179 M01S00225.284l847 +++| FNC1 ADD ON
03180 M01S00226.284l847 +++| IJM FNC3,CH IF FUNCTION ACCEPTED
03181 M01S00227.284l847 +++| NJN FNC1 IF NOT TIMEOUT YET
03182 M01S00228.284l847 +++| FNC2 DCN CH+40
03183 M01S00229.284l847 +++| LCN 0 RETURN ERROR STATUS
03184 M01S00230.284l847 +++| UJN FNCX RETURN
03185 M01S00231.284l847 +++|
03186 M01S00232.284l847 +++| FNC3 LDN 0 RETURN SUCCESSFUL STATUS
03187 M01S00233.284l847 +++| UJN FNCX RETURN
03188 M01S00234.284l847 +++|
03189 M01S00235.284l847 +++|
03190 M01S00236.284l847 +++| CTAB BSS 0 TABLE OF CHANNEL INSTRUCTION ADDRESSES
03191 M01S00237.284l847 +++| CHTB
03192 M00S02298.1mv +++| SPACE 4,10
03193 M00S02299.1mv +++|** COMMON DECKS.
03194 M00S02300.1mv +++|
03195 M00S02301.1mv +++|
03196 M00S02302.1mv +++|*CALL COMPC2D
| Line S00238 Modification History |
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act
----------------------------+
03197 M01S00238.284l847 +++|*CALL COMPSDR
03198 M00S02303.1mv +++|*CALL COMPSMI
03199 M00S02304.1mv +++| VTE SPACE 4,15
03200 M00S02305.1mv +++|** VTE - VERIFY TRT EOI SECTORS.
03201 M00S02306.1mv +++|*
03202 M00S02307.1mv +++|* ENTRY (EQ) = EST ORDINAL BEING PROCESSED.
03203 M00S02308.1mv +++|*
03204 M00S02309.1mv +++|* USES T6, T7.
03205 M00S02310.1mv +++|*
03206 M00S02311.1mv +++|* CALLS CMI, CPF, CPS, FEB, FFT, PCV, WEI.
03207 M00S02312.1mv +++|*
03208 M00S02313.1mv +++|* MACROS SETMS.
03209 M00S02314.1mv +++|
03210 M00S02315.1mv +++|
03211 M00S02316.1mv +++| VTE SUBR ENTRY/EXIT
03212 M00S02317.1mv +++| RJM PCV PRESET
03213 M00S02318.1mv +++| VTE1 RJM FEB FIND *EOI* BYTE IN TRT
03214 M00S02319.1mv +++| ZJN VTEX IF FINISHED WITH *EOI* PROCESSING
03215 M00S02320.1mv +++| RJM FFT FIND FIRST TRACK OF TRT CHAIN
03216 M00S02321.1mv +++| RJM CPS CHECK IF FILE IS PRESERVED
03217 M00S02322.1mv +++| ZJN VTE5 IF FILE IS NOT PRESERVED
03218 M00S02323.1mv +++| RJM CPF CHECK PRESERVED FILE INTERLOCKS
03219 M00S02324.1mv +++| NJN VTE1 IF FILE INTERLOCKED ON OTHER MAINFRAME
03220 M00S02325.1mv +++| VTE2 LDD T9 SETUP TO WRITE AN ENHANCED EOI SECTOR
03221 M00S02326.1mv +++| SBN 1
03222 M00S02327.1mv +++| STD T6
03223 M00S02328.1mv +++| LDD EI
03224 M00S02329.1mv +++| STD T7
03225 M00S02330.1mv +++| SETMS IO,(AD,ND,NR)
03226 M00S02331.1mv +++| RJM WEI WRITE PROPER EOI SECTOR
03227 M00S02332.1mv +++|
03228 M00S02333.1mv +++|* CHECK FOR MS ERROR.
03229 M00S02334.1mv +++|
03230 M00S02335.1mv +++| ENDMS
03231 M00S02336.1mv +++| VTE3 UJP VTE1 CONTINUE TO NEXT EOI
03232 M00S02337.1mv +++|
03233 M00S02338.1mv +++| VTE5 RJM CMI CHECK MACHINE RECOVERY TABLE INTERLOCK
03234 M00S02339.1mv +++| ZJN VTE3 IF FILE NOT LOCAL TO THIS MAINFRAME
03235 M00S02340.1mv +++| UJP VTE2 GO WRITE CORRECT EOI TO FILE
03236 M00S02341.1mv +++| CMI SPACE 4,15
03237 M00S02342.1mv +++|** CMI - CHECK MACHINE RECOVERY TABLE INTERLOCK.
03238 M00S02343.1mv +++|*
03239 M00S02344.1mv +++|* ENTRY (T6) = FIRST TRACK NUMBER OF FILE.
03240 M00S02345.1mv +++|* (T8) = BYTE NUMBER IN TRT WORD.
03241 M00S02346.1mv +++|* (CM - CM+4) = TRT WORD CONTAINING (T6).
03242 M00S02347.1mv +++|* (FTPB) = LENGTH OF TRT BEING PROCESSED.
03243 M00S02348.1mv +++|*
03244 M00S02349.1mv +++|* EXIT (A) = 0 IF FILE IS NOT LOCAL TO THIS MAINFRAME.
03245 M00S02350.1mv +++|* .NE. 0 IF FILE IS LOCAL TO THIS MAINFRAME.
03246 M00S02351.1mv +++|*
03247 M00S02352.1mv +++|* USES T1, T2, CM - CM+4.
03248 M00S02353.1mv +++|
03249 M00S02354.1mv +++|
03250 M00S02355.1mv +++| CMI3 LDN 1 RETURN WITH LOCAL FILE STATUS
03251 M00S02356.1mv +++|
03252 M00S02357.1mv +++| CMI SUBR ENTRY/EXIT
03253 M00S02358.1mv +++| LDD CM+4 CHECK TRACK INTERLOCK
03254 M00S02359.1mv +++| LMM TCMI,T8
03255 M00S02360.1mv +++| SBD CM+4
03256 M00S02361.1mv +++| PJN CMI3 IF FILE NOT INTERLOCKED
03257 M00S02362.1mv +++|
03258 M00S02363.1mv +++|* CHECK MRT TO DETERMINE WHO HAS FILE INTERLOCKED.
03259 M00S02364.1mv +++|
03260 M00S02365.1mv +++| CMI1 LDD T6 CALCULATE WORD OFFSET INTO MRT
03261 M00S02366.1mv +++| SHN 21-4
03262 M00S02367.1mv +++| STD T1
03263 M00S02368.1mv +++| SHN 4-21 SAVE BIT INTERLOCK NUMBER (BITS 0-4)
03264 M00S02369.1mv +++| STD T2
03265 M00S02370.1mv +++| CMIB LDC ** GET TRT FWA
03266 M00S02371.1mv +++| ADM FTPB ADD LENGTH OF TRT
03267 M00S02372.1mv +++| ADD T1 ADD OFFSET INTO MRT
03268 M00S02373.1mv +++| CRD CM
03269 M00S02374.1mv +++| LDN CM+5 SET BYTE POINTER WITHIN MRT WORD
03270 M00S02375.1mv +++| STD T0
03271 M00S02376.1mv +++| CMI2 SOD T0
03272 M00S02377.1mv +++| LCN 14
03273 M00S02378.1mv +++| RAD T2
03274 M00S02379.1mv +++| PJN CMI2 IF NOT POSITIONED TO PROPER BYTE
03275 M00S02380.1mv +++| ADC SHNI+21-0+14
03276 M00S02381.1mv +++| STM CMIC
03277 M00S02382.1mv +++| LDI T0
03278 M00S02383.1mv +++| CMIC SHN **
03279 M00S02384.1mv +++| SHN 0-21
03280 M00S02385.1mv +++| UJP CMIX RETURN
03281 M00S02386.1mv +++|
03282 M00S02387.1mv +++|
03283 M00S02388.1mv +++| TCMI CON 200,100,40,20 TABLE OF TRACK INTERLOCK BITS
03284 M00S02389.1mv +++| CPF SPACE 4,15
03285 M00S02390.1mv +++|** CPF - CHECK PRESERVED FILE STATUS.
03286 M00S02391.1mv +++|*
03287 M00S02392.1mv +++|* ENTRY (MT) = FIRST TRACK NUMBER OF FILE.
03288 M00S02393.1mv +++|*
03289 M00S02394.1mv +++|* EXIT (A) = 0 IF FILE IS NOT INTERLOCKED.
03290 M00S02395.1mv +++|* .NE. 0 IF FILE IS INTERLOCKED ON OTHER MAINFRAME.
03291 M00S02396.1mv +++|*
03292 M00S02397.1mv +++|* USES T6, T7.
03293 M00S02398.1mv +++|*
03294 M00S02399.1mv +++|* CALLS CPI, RDS.
03295 M00S02400.1mv +++|*
03296 M00S02401.1mv +++|* MACROS ENDMS, SETMS.
03297 M00S02402.1mv +++|
03298 M00S02403.1mv +++|
03299 M00S02404.1mv +++| CPF SUBR ENTRY/EXIT
03300 M00S02405.1mv +++| LDD MT SETUP TO READ SYSTEM SECTOR
03301 M00S02406.1mv +++| STD T6
03302 M00S02407.1mv +++| LDN 0
03303 M00S02408.1mv +++| STD T7
03304 M00S02409.1mv +++| SETMS IO,(AD,ND)
03305 M00S02410.1mv +++| LDC BFMS READ SYSTEM SECTOR
03306 M00S02411.1mv +++| RJM RDS
03307 M00S02412.1mv +++|
03308 M00S02413.1mv +++|* CHECK FOR MS ERROR.
03309 M00S02414.1mv +++|
03310 M00S02415.1mv +++| ENDMS
03311 M00S02416.1mv +++| LDM BFMS+2+4
03312 M00S02417.1mv +++| SHN -6
03313 M00S02418.1mv +++| LMN PMFT
03314 M00S02419.1mv +++| ZJN CPF1 IF DIRECT ACCESS PERMANENT FILE
03315 M00S02420.1mv +++| LMN FAFT&PMFT
03316 M00S02421.1mv +++| NJN CPF2 IF NOT FAST ATTACH PERMANENT FILE
03317 M00S02422.1mv +++| CPF1 LDD ES
03318 M00S02423.1mv +++| LPC 1020
03319 M00S02424.1mv +++| ZJN CPF2 IF DEVICE NOT A SHARED DEVICE
03320 M00S02425.1mv +++| RJM CPI CHECK MMF PERMANENT FILE INTERLOCKS
03321 M00S02426.1mv +++| CPF2 UJP CPFX RETURN
03322 M00S02427.1mv +++| CPS SPACE 4,10
03323 M00S02428.1mv +++|** CPS - CHECK FOR PRESERVED FILE STATUS.
03324 M00S02429.1mv +++|*
03325 M00S02430.1mv +++|* ENTRY (T6) = FIRST TRACK NUMBER.
03326 M00S02431.1mv +++|* (T8) = BYTE NUMBER IN TRT WORD.
03327 M00S02432.1mv +++|* (CM - CM+4) = TRT WORD CONTAINING (T6).
03328 M00S02433.1mv +++|*
03329 M00S02434.1mv +++|* EXIT (A) = 0 IF FILE IS NOT PRESERVED.
03330 M00S02435.1mv +++|* .NE. 0 IF FILE IS PRESERVED FILE.
03331 M00S02436.1mv +++|
03332 M00S02437.1mv +++|
03333 M00S02438.1mv +++| CPS SUBR ENTRY/EXIT
03334 M00S02439.1mv +++| LDD CM+4 CHECK FOR PRESERVED BIT
03335 M00S02440.1mv +++| LMM TCPS,T8
03336 M00S02441.1mv +++| SBD CM+4
03337 M00S02442.1mv +++| SHN -21
03338 M00S02443.1mv +++| UJN CPSX RETURN
03339 M00S02444.1mv +++|
03340 M00S02445.1mv +++|* BIT MASKS FOR INTERLOCK TESTS.
03341 M00S02446.1mv +++|
03342 M00S02447.1mv +++| TCPS CON 4000,2000,1000,0400
03343 M00S02448.1mv +++| CPI SPACE 4,10
03344 M00S02449.1mv +++|** CPI - CHECK MMF PERMANENT FILE INTERLOCKS.
03345 M00S02450.1mv +++|*
03346 M00S02451.1mv +++|* ENTRY (BFMS) = SYSTEM SECTOR OF PRESERVED FILE.
03347 M00S02452.1mv +++|*
03348 M00S02453.1mv +++|* EXIT (A) = 0 IF FILE IS NOT INTERLOCKED.
03349 M00S02454.1mv +++|* .NE. 0 IF FILE IS INTERLOCKED ON OTHER MAINFRAME.
03350 M00S02455.1mv +++|*
03351 M00S02456.1mv +++|* USES T2, T3, T5.
03352 M00S02457.1mv +++|*
03353 M00S02458.1mv +++|* CALLS SMI.
03354 M00S02459.1mv +++|
03355 M00S02460.1mv +++|
03356 M00S02461.1mv +++| CPI SUBR ENTRY/EXIT
03357 M00S02462.1mv +++| LDD EQ
03358 M00S02463.1mv +++| STD T5
03359 M00S02464.1mv +++| RJM SMI GET CURRENT MACHINE INDEX
03360 M00S02465.1mv +++| STD T2
03361 M00S02466.1mv +++| SHN 1
03362 M00S02467.1mv +++| STD T3 *2
03363 M00S02468.1mv +++| ADD T3 *4
03364 M00S02469.1mv +++| RAD T2 *5
03365 M00S02470.1mv +++| UJN CPIX RETURN
03366 M00S02471.1mv +++| FEB SPACE 4,15
03367 M00S02472.1mv +++|** FEB - FIND EOI TRT BYTE.
03368 M00S02473.1mv +++|*
03369 M00S02474.1mv +++|* ENTRY (T9) = TRACK NUMBER TO BEGIN SEARCH.
03370 M00S02475.1mv +++|*
03371 M00S02476.1mv +++|* EXIT (A) = 0 IF NO EOI BYTE FOUND.
03372 M00S02477.1mv +++|* (T6) = TRACK NUMBER CONTAINING EOI BYTE, IF FOUND.
03373 M00S02478.1mv +++|* (T9) = UPDATED TO BEGIN NEXT SEARCH.
03374 M00S02479.1mv +++|*
03375 M00S02480.1mv +++|* USES T2.
03376 M00S02481.1mv +++|*
03377 M00S02482.1mv +++|* CALLS FTP.
03378 M00S02483.1mv +++|
03379 M00S02484.1mv +++|
03380 M00S02485.1mv +++| FEB SUBR ENTRY/EXIT
03381 M00S02486.1mv +++| LDN 0
03382 M00S02487.1mv +++| STD T2
03383 M00S02488.1mv +++| LDD T9
03384 M00S02489.1mv +++| RJM FTP
03385 M00S02490.1mv +++| ZJN FEBX IF NO *EOI* FOUND
03386 M00S02491.1mv +++| ADN 1
03387 M00S02492.1mv +++| STD T9
03388 M00S02493.1mv +++| UJN FEBX RETURN
03389 M00S02494.1mv +++| FFT SPACE 4,10
03390 M00S02495.1mv +++|** FFT - FIND FIRST TRACK LINK.
03391 M00S02496.1mv +++|*
03392 M00S02497.1mv +++|* ENTRY (T6) = TRACK NUMBER TO LINK BACK TO *BOI*.
03393 M00S02498.1mv +++|*
03394 M00S02499.1mv +++|* EXIT (A) = (MT) = (T6) = TRACK NUMBER OF FIRST TRACK.
03395 M00S02500.1mv +++|*
03396 M00S02501.1mv +++|* USES MT, T2, T6.
03397 M00S02502.1mv +++|*
03398 M00S02503.1mv +++|* CALLS FTP.
03399 M00S02504.1mv +++|
03400 M00S02505.1mv +++|
03401 M00S02506.1mv +++| FFT SUBR ENTRY/EXIT
03402 M00S02507.1mv +++| FFT1 LDD T6
03403 M00S02508.1mv +++| STD T2
03404 M00S02509.1mv +++| LDN 0 BEGIN SEARCH FROM BEGINNING OF TRT
03405 M00S02510.1mv +++| RJM FTP
03406 M00S02511.1mv +++| NJN FFT1 IF FIRST LINK NOT FOUND
03407 M00S02512.1mv +++| LDD T6 SAVE FIRST TRACK NUMBER
03408 M00S02513.1mv +++| STD MT
03409 M00S02514.1mv +++| UJN FFTX RETURN
03410 M00S02515.1mv +++| FTP SPACE 4,15
03411 M00S02516.1mv +++|** FTP - FIND TRT BYTE PATTERN.
03412 M00S02517.1mv +++|*
03413 M00S02518.1mv +++|* ENTRY (A) = TRACK NUMBER IN TRT TO BEGIN WITH.
03414 M00S02519.1mv +++|* (T2) = PATTERN TO FIND IN TRT BYTES.
03415 M00S02520.1mv +++|*
03416 M00S02521.1mv +++|* EXIT (A) = (T6) = TRACK NUMBER OF PATTERN MATCH.
03417 M00S02522.1mv +++|* (EI) = *EOI* SECTOR NUMBER, IF FOUND AS MATCH.
03418 M00S02523.1mv +++|* (T8) = BYTE NUMBER IN TRT WORD.
03419 M00S02524.1mv +++|*
03420 M00S02525.1mv +++|* USES EI, T1, T2, T6, T8, CM - CM+4.
03421 M00S02526.1mv +++|
03422 M00S02527.1mv +++|
03423 M00S02528.1mv +++| FTP SUBR ENTRY/EXIT
03424 M00S02529.1mv +++| STD T6
03425 M00S02530.1mv +++| LPN 3 CALCULATE FIRST OFFSET
03426 M00S02531.1mv +++| ADN CM
03427 M00S02532.1mv +++| STD T1
03428 M00S02533.1mv +++| LDD T6 CALCULATE TRT WORD OFFSET
03429 M00S02534.1mv +++| LPC 3777
03430 M00S02535.1mv +++| SHN -2
03431 M00S02536.1mv +++| STD T6
03432 M00S02537.1mv +++| FTP1 LDC ** READ TRT WORD
03433 M00S02538.1mv +++| FTPA EQU *-1
03434 M00S02539.1mv +++| ADD T6
03435 M00S02540.1mv +++| CRD CM
03436 M00S02541.1mv +++| FTP2 LDI T1
03437 M00S02542.1mv +++| SHN 21-13
03438 M00S02543.1mv +++| PJN FTP4 IF *EOI* BYTE
03439 M00S02544.1mv +++| SHN 21+1-21+13
03440 M00S02545.1mv +++| LMD T2
03441 M00S02546.1mv +++| ZJN FTP5 IF PATTERN MATCH
03442 M00S02547.1mv +++| FTP3 AOD T1
03443 M00S02548.1mv +++| SBN CM+4
03444 M00S02549.1mv +++| NJN FTP2 IF NOT THROUGH ALL TRT BYTES
03445 M00S02550.1mv +++| LDN CM
03446 M00S02551.1mv +++| STD T1
03447 M00S02552.1mv +++| LDC ** CHECK IF DONE WITH TRT
03448 M00S02553.1mv +++| FTPB EQU *-1 (NUMBER OF WORDS IN TRT)
03449 M00S02554.1mv +++| SBD T6
03450 M00S02555.1mv +++| ZJN FTPX IF NO PATTERN MATCH FOUND
03451 M00S02556.1mv +++| AOD T6 INCREMENT TRT WORD OFFSET
03452 M00S02557.1mv +++| UJN FTP1 CONTINUE SEARCHING TRT
03453 M00S02558.1mv +++|
03454 M00S02559.1mv +++| FTP4 LDD T2
03455 M00S02560.1mv +++| NJN FTP3 IF NOT SEARCHING FOR *EOI*
03456 M00S02561.1mv +++| LDI T1 SAVE *EOI* SECTOR NUMBER
03457 M00S02562.1mv +++| STD EI
03458 M00S02563.1mv +++| FTP5 LDD T1 CONSTRUCT TRACK NUMBER
03459 M00S02564.1mv +++| SBN CM
03460 M00S02565.1mv +++| STD T8 SAVE BYTE NUMBER IN TRT WORD
03461 M00S02566.1mv +++| SHN 21-2
03462 M00S02567.1mv +++| ADD T6
03463 M00S02568.1mv +++| SHN 2
03464 M00S02569.1mv +++| ADC 4000
03465 M00S02570.1mv +++| STD T6
03466 M00S02571.1mv +++| LJM FTPX RETURN
03467 M00S02572.1mv +++| PCV SPACE 4,20
03468 M00S02573.1mv +++|** PCV - PRESET CONDITIONS FOR *VTE*.
03469 M00S02574.1mv +++|*
03470 M00S02575.1mv +++|* ENTRY (ES - ES+4) = EST ENTRY.
03471 M00S02576.1mv +++|*
03472 M00S02577.1mv +++|* EXIT (FTPB) = TRT LENGTH IN CM WORDS.
03473 M00S02578.1mv +++|*
03474 M00S02579.1mv +++|* USES CM - CM+4, CN - CN+4.
03475 M00S02580.1mv +++|*
03476 M00S02581.1mv +++|* CALLS IRA.
03477 M00S02582.1mv +++|
03478 M00S02583.1mv +++|
03479 M00S02584.1mv +++| PCV SUBR ENTRY/EXIT
03480 M00S02585.1mv +++| RJM IRA SET ADDRESSES
03481 M00S02586.1mv +++| LDD ES+4
03482 M00S02587.1mv +++| SHN 3
03483 M00S02588.1mv +++| ADK TDGL GET TRT LENGTH
03484 M00S02589.1mv +++| CRD CN
03485 M00S02590.1mv +++| ADN TRLL-TDGL GET TRT FWA
03486 M00S02591.1mv +++| CRD CM
03487 M00S02592.1mv +++| LDD CN+2
03488 M00S02593.1mv +++| STM FTPB
03489 M00S02594.1mv +++| LDD CM+4 PRESET TRT ADDRESS
03490 M00S02595.1mv +++| STM CMIB+1
03491 M00S02596.1mv +++| STM FTPA
03492 M00S02597.1mv +++| LDD CM+3
03493 M00S02598.1mv +++| LPN 77
03494 M00S02599.1mv +++| LMC LDCI
03495 M00S02600.1mv +++| STM CMIB
03496 M00S02601.1mv +++| STM FTPA-1
03497 M00S02602.1mv +++| UJP PCVX RETURN
03498 M00S02603.1mv +++|
03499 M00S02604.1mv +++| QUAL *
03500 M00S02605.1mv +++|
03501 M00S02606.1mv +++| OVERFLOW OVLA,BFMS
03502 M00S02607.1mv +++| TITLE
03503 M00S02608.1mv +++| END