cdc:nos2.source:opl.opl871:deck:1mv.002
Deck 1MV Part 002
23 Modifications
Listing Sections
- Deck 1MV Start
- Deck 1MV Part 1 (Line 1480)
- Deck 1MV Part 2 (Line 2965)
Source
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
cdc/nos2.source/opl.opl871/deck/1mv.002.txt · Last modified: by 127.0.0.1