cdc:nos2.source:opl.opl871:deck:msi.001
Deck MSI Part 001
8 Modifications
Listing Sections
- Deck MSI Start
- Deck MSI Part 1 (Line 2007)
- Deck MSI Part 2 (Line 3992)
Source
Seq # *Modification Id* Act ----------------------------+ 02007 M00S01992.msi +++|* A - 1, 2, 4, 6. 02008 M00S01993.msi +++|* B - 3, 4. 02009 M00S01994.msi +++|* 02010 M00S01995.msi +++|* MACROS SYSTEM. 02011 M00S01996.msi +++| 02012 M00S01997.msi +++| 02013 M00S01998.msi +++| EDD SUBR ENTRY/EXIT 02014 M00S01999.msi +++| SA1 ESTF+B7 SET IMS PARAMETER WORD 02015 M00S02000.msi +++| MX0 -8 02016 M00S02001.msi +++| SB3 -B1 02017 M00S02002.msi +++| SA4 X1+PUGL 02018 M00S02003.msi +++| BX0 -X0*X4 EXTRACT DEVICE MASK 02019 M00S02004.msi +++| LX0 59-11 02020 M00S02005.msi +++| ZR X0,EDDX IF NOT MASTER DEVICE 02021 M00S02006.msi +++| SB0 0 02022 M00S02007.msi +++| EDD1 SB3 B3+B1 02023 M00S02008.msi +++| SB4 ESMX 02024 M00S02009.msi +++| SX5 B3 02025 M00S02010.msi +++| EQ B3,B4,EDDX IF END OF EQUIPMENTS 02026 M00S02011.msi +++| SA1 ESTF+B3 02027 M00S02012.msi +++| ZR X1,EDD1 IF NO ENTRY 02028 M00S02013.msi +++| EQ B3,B7,EDD1 IF EQUIPMENT BEING INITIALIZED 02029 M00S02014.msi +++| LX5 47-11 02030 M00S02015.msi +++| SA2 X1+STLL 02031 M00S02016.msi +++| MX4 60-LIPF 02032 M00S02017.msi +++| BX2 X4*X2 02033 M00S02018.msi +++| BX6 X0+X5 02034 M00S02019.msi +++| NZ X2,EDD1 IF FULL OR *PF* INITIALIZE SET 02035 M00S02020.msi +++| SA6 EDPA 02036 M00S02021.msi +++| SYSTEM IMS,R,EDPA,EDT EDIT TRT ON DEVICE 02037 M00S02022.msi +++| EQ EDD1 LOOP FOR NEXT EQUIPMENT 02038 M00S02023.msi +++| 02039 M00S02024.msi +++| EDPA CON 0 12/MASK, 12/EQ, 36/0 02040 M00S02025.msi +++| 02041 M00S02026.msi +++| ECT SPACE 4,10 02042 M00S02027.msi +++|** ECT - EDIT CATALOGS. 02043 M00S02028.msi +++|* 02044 M00S02029.msi +++|* ENTRY (B6) = DEVICE NUMBER. 02045 M00S02030.msi +++|* (B7) = EST ORDINAL. 02046 M00S02031.msi +++|* 02047 M00S02032.msi +++|* EXIT (B6) (B7) UNCHANGED. 02048 M00S02033.msi +++|* 02049 M00S02034.msi +++|* USES ALL BUT B6 AND B7 02050 M00S02035.msi +++|* 02051 M00S02036.msi +++|* CALLS OPC, RDC, SCT, SFF, WTC. 02052 M00S02037.msi +++|* 02053 M00S02038.msi +++|* MACROS CALLPFU, MESSAGE, RECALL, RETURN, SYSTEM. 02054 M00S02039.msi +++| 02055 M00S02040.msi +++| 02056 M00S02041.msi +++| ECT SUBR ENTRY/EXIT 02057 M00S02042.msi +++| RETURN CATS,R 02058 M00S02043.msi +++| SB5 ESTF-1 02059 M00S02044.msi +++| NZ B6,ECT1 IN DEVICE NUMBER .NE. 0 02060 M00S02045.msi +++| MESSAGE MESD * INTERNAL ERROR IN MSI.*
| Line S02046 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02061 M01S02046.253l688 ---| EQ ABT ABORT *MSI*
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02062 M01S00013.253l688 +++| RJ ABT ABORT *MSI* 02063 M00S02047.msi +++| 02064 M00S02048.msi +++| ECT1 SB4 B5-ESTF-ESMX+1 02065 M00S02049.msi +++| ZR B4,ECTX IF END FAMILY 02066 M00S02050.msi +++| SA1 B5+B1 02067 M00S02051.msi +++| SB5 B5+B1 02068 M00S02052.msi +++| ZR X1,ECT1 IF EMPTY LINK 02069 M00S02053.msi +++| SA3 X1+ALGL 02070 M00S02054.msi +++| SA5 X1+PUGL 02071 M00S02055.msi +++| MX0 -8 02072 M00S02056.msi +++| MX2 -12 02073 M00S02057.msi +++| SA4 X1+STLL 02074 M00S02058.msi +++| LX3 -12 02075 M00S02059.msi +++| BX7 -X0*X5 DEVICE MASK 02076 M00S02060.msi +++| MX0 60-LIPF 02077 M00S02061.msi +++| BX6 -X2*X3 MASK CATALOG TRACK COUNT 02078 M00S02062.msi +++| ZR X7,ECT1 IF NOT MASTER DEVICE 02079 M00S02063.msi +++| SA6 CNT SAVE CATALOG TRACK COUNT 02080 M00S02064.msi +++| BX4 X0*X4 02081 M00S02065.msi +++| SA5 X1+PFGL 02082 M00S02066.msi +++| NZ X4,ECT1 IF FULL OR *PF* INITIALIZE SET 02083 M00S02067.msi +++| RJ OCT OPEN CATALOG 02084 M00S02068.msi +++| ECT2 RJ RDC READ CATALOG ENTRIES 02085 M00S02069.msi +++| RJ SFF SEARCH FOR FILES AND DELETE 02086 M00S02070.msi +++| ZR X6,ECT3 IF NO FILES DELETED 02087 M00S02071.msi +++| RJ WTC REWRITE UPDATED CATALOG 02088 M00S02072.msi +++| ECT3 PL X7,ECT2 IF NOT END OF CATALOG TRACK 02089 M00S02073.msi +++| RJ ACT ADVANCE TO NEXT CATALOG TRACK 02090 M00S02074.msi +++| PL X7,ECT2 IF NOT END OF CATALOG TRACKS 02091 M00S02075.msi +++| SA1 CATS DROP *PFU* 02092 M00S02076.msi +++| SX7 10B 02093 M00S02077.msi +++| MX0 42 02094 M00S02078.msi +++| BX6 X0*X1 02095 M00S02079.msi +++| BX7 X7+X6 SET FUNCTION TO DROP *PFU* 02096 M00S02080.msi +++| SA7 A1 02097 M00S02081.msi +++| RECALL A1 WAIT FOR PFU TO COMPLETE 02098 M00S02082.msi +++| CALLPFU UIFT,CTCU,R CLEAR UTILITY INTERLOCK 02099 M00S02083.msi +++| RETURN CATS 02100 M00S02084.msi +++| EQ ECT1 LOOP FOR NEXT EQUIPMENT
| Line S02085 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02101 M01S02085.253l688 ---| 02102 M01S02086.253l688 ---|* RELEASE *PFU* IF ABORT OCCURS. 02103 M01S02087.253l688 ---| 02104 M01S02088.253l688 ---| ABT SYSTEM IMS,R,B1,CIT CLEAR *CMS* INTERLOCK 02105 M01S02089.253l688 ---| SB3 B0 02106 M01S02090.253l688 ---| SB5 ESMX 02107 M01S02091.253l688 ---| ABT0 SA2 ESTF+B3 CHECK FOR ISD INTERLOCK 02108 M01S02092.253l688 ---| LX2 59-58 02109 M01S02093.253l688 ---| PL X2,ABT0.1 IF EQUIPMENT NOT INTERLOCKED 02110 M01S02094.253l688 ---| SX6 B3 SET EST ORDINAL 02111 M01S02095.253l688 ---| LX6 48
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02112 M01S00014.253l688 +++| ABT SPACE 4,10 02113 M01S00015.253l688 +++|** ABT - ABORT JOB. 02114 M01S00016.253l688 +++|* 02115 M01S00017.253l688 +++|* USES X - 0, 1, 2, 6, 7. 02116 M01S00018.253l688 +++|* A - 1, 2, 6, 7. 02117 M01S00019.253l688 +++|* B - 3, 5. 02118 M01S00020.253l688 +++|* 02119 M01S00021.253l688 +++|* MACROS ABORT, CALLPFU, MESSAGE, RECALL, ROUTE, SYSTEM. 02120 M01S00022.253l688 +++| 02121 M01S00023.253l688 +++| 02122 M01S00024.253l688 +++| ABT SUBR ENTRY 02123 M01S00025.253l688 +++| ABT1 SA1 SSID 02124 M01S00026.253l688 +++| SX1 X1-DSSI 02125 M01S00027.253l688 +++| NZ X1,ABT2 IF NOT DEADSTART SEQUENCING 02126 M01S00028.253l688 +++| MESSAGE MESL 02127 M01S00029.253l688 +++| + EQ * HANG 02128 M01S00030.253l688 +++| 02129 M01S00031.253l688 +++| ABT2 SYSTEM IMS,R,B1,CIT CLEAR *CMS* INTERLOCK 02130 M01S00032.253l688 +++| SB3 0 02131 M01S00033.253l688 +++| SB5 ESMX 02132 M01S00034.253l688 +++| ABT3 SA2 ESTF+B3 CHECK FOR ISD INTERLOCK 02133 M01S00035.253l688 +++| LX2 59-58 02134 M01S00036.253l688 +++| PL X2,ABT4 IF EQUIPMENT NOT INTERLOCKED 02135 M01S00037.253l688 +++| SX6 B3 02136 M01S00038.253l688 +++| LX6 48 SET EST ORDINAL 02137 M00S02096.msi +++| SA6 CIRB 02138 M00S02097.msi +++| SYSTEM IMS,R,CIRB,ISD CLEAR DEVICE INTERLOCK 02139 M00S02098.msi +++| SA1 CIRB
| Line S02099 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02140 M01S02099.253l688 ---| PL X1,ABT0 IF INTERLOCK NOT CLEARED 02141 M01S02100.253l688 ---| ABT0.1 SB3 B3+B1 02142 M01S02101.253l688 ---| LT B3,B5,ABT0 IF NOT END OF EQUIPMENTS 02143 M01S02102.253l688 ---| SA1 CATS CHECK *PFU* ACTIVITY 02144 M01S02103.253l688 ---| SA2 PFUF
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02145 M01S00039.253l688 +++| PL X1,ABT3 IF INTERLOCK NOT CLEARED 02146 M01S00040.253l688 +++| ABT4 SB3 B3+1 02147 M01S00041.253l688 +++| LT B3,B5,ABT3 IF NOT END OF EQUIPMENTS 02148 M01S00042.253l688 +++| SA2 PFUF 02149 M01S00043.253l688 +++| SA1 CATS CHECK *PFU* ACTIVITY 02150 M00S02104.msi +++| SX7 10B 02151 M00S02105.msi +++| MX0 42
| Line S02106 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02152 M01S02106.253l688 ---| ZR X2,ABT1 IF *PFU* NOT ACTIVE
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02153 M01S00044.253l688 +++| ZR X2,ABT5 IF *PFU* NOT ACTIVE 02154 M00S02107.msi +++| BX6 X0*X1 02155 M00S02108.msi +++| BX7 X7+X6 02156 M00S02109.msi +++| SA7 A1 02157 M00S02110.msi +++| RECALL A1 WAIT FOR PFU TO COMPLETE
| Line S02111 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02158 M01S02111.253l688 ---| ABT1 SA1 UIFL CHECK UTILITY INTERLOCK 02159 M01S02112.253l688 ---| ZR X1,ABT2 IF NOT SET 02160 M01S02113.253l688 ---| SA1 UIFT FORCE FET COMPLETE 02161 M01S02114.253l688 ---| SX2 B1
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02162 M01S00045.253l688 +++| ABT5 SA1 UIFL 02163 M01S00046.253l688 +++| ZR X1,ABT6 IF UTILITY INTERLOCK NOT SET 02164 M01S00047.253l688 +++| SA1 UIFT 02165 M01S00048.253l688 +++| SX2 B1 FORCE FET COMPLETE 02166 M00S02115.msi +++| BX6 X1+X2 02167 M00S02116.msi +++| SA6 A1 02168 M00S02117.msi +++| CALLPFU A1,CTCU,R CLEAR UTILITY INTERLOCK
| Line S02118 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02169 M01S02118.253l688 ---| ABT2 MESSAGE MESB * MSI ABORTED INITIALIZE MAY NOT BE
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02170 M01S00049.253l688 +++| ABT6 MESSAGE MESB * MSI ABORTED INITIALIZE MAY NOT BE 02171 M00S02119.msi +++|* COMPLETE.* 02172 M00S02120.msi +++| SYSTEM DMD,R,RFL=
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02173 M01S00050.253l688 +++| SETFS OUTPUT,0 CHANGE FILE STATUS FOR SSJ= OUTPUT 02174 M00S02121.msi +++| ROUTE ABTA,R 02175 M00S02122.msi +++| ABORT ABORT *MSI* 02176 M00S02123.msi +++| 02177 M00S02124.msi +++| 02178 M00S02125.msi +++|* ROUTE BLOCK FOR MEMORY DUMP. 02179 M00S02126.msi +++| 02180 M00S02127.msi +++| ABTA VFD 42/0LOUTPUT,18/0 02181 M00S02128.msi +++| VFD 24/0,12/2HLP,6/0,18/FRCS+FRDC 02182 M00S02129.msi +++| BSS DPBL-2 02183 M00S02130.msi +++| OCT SPACE 4,10 02184 M00S02131.msi +++|** OCT - OPEN CATALOG. 02185 M00S02132.msi +++|* 02186 M00S02133.msi +++|* ENTRY (B5) = ESTF POINTER. 02187 M00S02134.msi +++|* (B6) = DEVICE NUMBER. 02188 M00S02135.msi +++|* (B7) = EST ORDINAL. 02189 M00S02136.msi +++|* (X5) = *PFGL* WORD OF MST. 02190 M00S02137.msi +++|* (X7) = DEVICE MASK. 02191 M00S02138.msi +++|* 02192 M00S02139.msi +++|* EXIT B5, B6, B7, NOT CHANGED. 02193 M00S02140.msi +++|* CATALOG OPENED AND *PFU* ACTIVE. 02194 M00S02141.msi +++|* CATS FET NOT BUSY. 02195 M00S02142.msi +++|* 02196 M00S02143.msi +++|* USES ALL BUT B5, B6, B7. 02197 M00S02144.msi +++|* 02198 M00S02145.msi +++|* MACROS CALLPFU, RECALL. 02199 M00S02146.msi +++| 02200 M00S02147.msi +++| 02201 M00S02148.msi +++| OCT SUBR ENTRY/EXIT 02202 M00S02149.msi +++| MX0 -6 02203 M00S02150.msi +++| AX5 12 02204 M00S02151.msi +++| BX3 -X0*X5 02205 M00S02152.msi +++| SB2 X3 SAVE DN OF THIS EQIPMENT 02206 M00S02153.msi +++| LX5 12 02207 M00S02154.msi +++| SB4 7 02208 M00S02155.msi +++| LX7 59-7 02209 M00S02156.msi +++| OCT1 MI X7,OCT2 IF MASK BIT SET 02210 M00S02157.msi +++| LX7 1 02211 M00S02158.msi +++| SB4 B4-B1 02212 M00S02159.msi +++| EQ OCT1 FORM USER NAME FOR THIS DEVICE 02213 M00S02160.msi +++| 02214 M00S02161.msi +++| OCT2 MX0 42 02215 M00S02162.msi +++| SX7 B5-ESTF EQ NUMBER 02216 M00S02163.msi +++| SA7 SCRB PF DESCRIPTION (42/0, 6/, 12/ EST ORDINAL) 02217 M00S02164.msi +++| SX6 B4 SAVE USER INDEX 02218 M00S02165.msi +++| SA6 A7+B1 02219 M00S02166.msi +++| SX1 A7 SET ADDRESS OF PF DESCRIPTION 02220 M00S02167.msi +++| SX2 A6 SET ADDRESS OF USER INDEX 02221 M00S02168.msi +++| LX1 18 02222 M00S02169.msi +++| BX7 X1+X2 02223 M00S02170.msi +++| SA7 CATS+FTPM 02224 M00S02171.msi +++| CALLPFU CATS,CTCT,R GET CATALOG TRACK PARAMETERS 02225 M00S02172.msi +++| 02226 M00S02173.msi +++|* OPEN CATALOG FILE. 02227 M00S02174.msi +++| 02228 M00S02175.msi +++| SX2 5 FILE STATUS 02229 M00S02176.msi +++| SA1 CATS+FTPM GET CATALOG TRACK PARAMETERS 02230 M00S02177.msi +++| MX0 -24 02231 M00S02178.msi +++| BX1 -X0*X1 SET EST ORDINAL AND FIRST TRACK 02232 M00S02179.msi +++| MX0 -12 02233 M00S02180.msi +++| BX6 -X0*X1 SET CURRENT TRACK 02234 M00S02181.msi +++| LX1 36 02235 M00S02182.msi +++| BX2 X2+X1 BUILD CATALOG TRACK FST ENTRY 02236 M00S02183.msi +++| LX6 24 02237 M00S02184.msi +++| BX7 X2+X6 02238 M00S02185.msi +++| SA7 A1 02239 M00S02186.msi +++| BX6 X6-X6 CLEAR SECTOR COUNT 02240 M00S02187.msi +++| SA6 CATS+FTSC 02241 M00S02188.msi +++| CALLPFU CATS,CTOP,R OPEN CATALOG FILE 02242 M00S02189.msi +++| 02243 M00S02190.msi +++|* SET UTILITY INTERLOCK ON DEVICE. 02244 M00S02191.msi +++| 02245 M00S02192.msi +++| SX7 B5-ESTF SET EQUIPMENT TO INTERLOCK 02246 M00S02193.msi +++| SX2 UIFL SET INTERLOCK FLAG ADDRESS 02247 M00S02194.msi +++| LX7 48 02248 M00S02195.msi +++| BX6 X7+X2 02249 M00S02196.msi +++| SA6 UIFT+FTPM 02250 M00S02197.msi +++| CALLPFU UIFT,CTSU,R SET PF UTILITY INTERLOCK 02251 M00S02198.msi +++| 02252 M00S02199.msi +++|* ACTIVATE PFU LOAD PROCESSOR. 02253 M00S02200.msi +++| 02254 M00S02201.msi +++| SA1 CATS CLEAR CATS FET STATUS 02255 M00S02202.msi +++| SX7 B2 SET MASTER DEVICE NUMBER 02256 M00S02203.msi +++| MX2 42 02257 M00S02204.msi +++| SX3 PFUF SET ADDRESS OF PFU ACTIVE FLAG 02258 M00S02205.msi +++| LX7 54 02259 M00S02206.msi +++| BX6 X7+X3 02260 M00S02207.msi +++| SA6 CATS+FTPM 02261 M00S02208.msi +++| BX1 X2*X1 02262 M00S02209.msi +++| SX2 B1 SET CATS FET COMPLETE 02263 M00S02210.msi +++| BX7 X1+X2 02264 M00S02211.msi +++| SA7 A1 02265 M00S02212.msi +++| 02266 M00S02213.msi +++|* IT IS NECESSARY TO DO A SEPARATE RECALL ON CATS RATHER THAN 02267 M00S02214.msi +++|* CALLING THE CTLM PROCESSOR OF PFU WITH AUTO RECALL SINCE PFU 02268 M00S02215.msi +++|* STAYS AT THE CONTROL POINT AFTER INITIALIZING THE CTLM 02269 M00S02216.msi +++|* PROCESSOR AND SETTING THE FET COMPLETE BUT DOES NOT RESTART 02270 M00S02217.msi +++|* THE CPU. 02271 M00S02218.msi +++| 02272 M00S02219.msi +++| CALLPFU CATS,CTLM ACTIVATE PFU LOAD PROCESSOR 02273 M00S02220.msi +++| RECALL CATS WAIT FOR PFU TO INITIALIZE 02274 M00S02221.msi +++| EQ OCTX EXIT 02275 M00S02222.msi +++| 02276 M00S02223.msi +++| 02277 M00S02224.msi +++| ACT SPACE 4,10 02278 M00S02225.msi +++|** ACT - ADVANCE CATALOG TRACK. 02279 M00S02226.msi +++|* 02280 M00S02227.msi +++|* ENTRY (B5) = ESTF POINTER. 02281 M00S02228.msi +++|* (B6) = DEVICE NUMBER. 02282 M00S02229.msi +++|* (B7) = EST ORDINAL. 02283 M00S02230.msi +++|* CATS FET NOT BUSY. 02284 M00S02231.msi +++|* 02285 M00S02232.msi +++|* EXIT B5,B6,B7 UNCHANGED. 02286 M00S02233.msi +++|* (X7) = 0 CATALOG TRACK ADVANCED. 02287 M00S02234.msi +++|* (X7) .LT. 0 END OF CATALOG TRACKS. 02288 M00S02235.msi +++|* CATS FET NOT BUSY. 02289 M00S02236.msi +++|* 02290 M00S02237.msi +++|* USES X - 0, 1, 2, 3, 6, 7. 02291 M00S02238.msi +++|* A - 1, 2, 6, 7. 02292 M00S02239.msi +++|* 02293 M00S02240.msi +++|* MACROS RECALL. 02294 M00S02241.msi +++| 02295 M00S02242.msi +++| 02296 M00S02243.msi +++| ACT SUBR ENTRY/EXIT 02297 M00S02244.msi +++| SA1 CNT 02298 M00S02245.msi +++| SX6 X1-1 02299 M00S02246.msi +++| SA6 A1 02300 M00S02247.msi +++| 02301 M00S02248.msi +++|* ADVANCE TO NEXT CATALOG TRACK 02302 M00S02249.msi +++| 02303 M00S02250.msi +++| ACT1 SA2 SCRB+1 18/UI 02304 M00S02251.msi +++| SX7 X2+10B 02305 M00S02252.msi +++| SA7 A2 18/NEXT UI 02306 M00S02253.msi +++| SX0 A7-B1 02307 M00S02254.msi +++| SX7 A7 02308 M00S02255.msi +++| LX0 18 02309 M00S02256.msi +++| BX7 X0+X7 18/SCR,18/SCR+1 02310 M00S02257.msi +++| SA1 CATS+1 REWIND BUFFER 02311 M00S02258.msi +++| SA2 A1-B1 SET POSITION FUNCTION CODE IN FET 02312 M00S02259.msi +++| SA7 CATS+FTCA 02313 M00S02260.msi +++| MX3 42 02314 M00S02261.msi +++| SX6 X1 02315 M00S02262.msi +++| BX7 X7-X7 CLEAR SECTOR COUNTER 02316 M00S02263.msi +++| SA6 A1+B1 02317 M00S02264.msi +++| SA7 CATS+FTSC 02318 M00S02265.msi +++| BX7 X3*X2 02319 M00S02266.msi +++| SA6 A6+B1 02320 M00S02267.msi +++| SA7 A2 ISSUE FILE POSITION REQUEST 02321 M00S02268.msi +++| RECALL A2 WAIT FOR *PFU* TO PROCESS REQUEST 02322 M00S02269.msi +++| SA1 CNT CHECK IF END OF CATALOG TRACKS 02323 M00S02270.msi +++| MX7 1 02324 M00S02271.msi +++| ZR X1,ACTX IF END OF CATALOG TRACKS 02325 M00S02272.msi +++| MX7 0 02326 M00S02273.msi +++| EQ ACTX RETURN 02327 M00S02274.msi +++| RDC SPACE 4,10 02328 M00S02275.msi +++|** RDC - READ CATALOG. 02329 M00S02276.msi +++|* 02330 M00S02277.msi +++|* ENTRY (B5) = ESTF POINTER. 02331 M00S02278.msi +++|* (B6) = DEVICE NUMBER. 02332 M00S02279.msi +++|* (B7) = EST ORDINAL. 02333 M00S02280.msi +++|* 02334 M00S02281.msi +++|* EXIT B5,B6,B7 UNCHANGED. 02335 M00S02282.msi +++|* CATALOGS READ INTO CATS BUFFER. 02336 M00S02283.msi +++|* CATS FET NOT BUSY. 02337 M00S02284.msi +++|* 02338 M00S02285.msi +++|* USES X - 0, 1, 2, 3, 6, 7. 02339 M00S02286.msi +++|* A - 1, 3, 6, 7. 02340 M00S02287.msi +++|* 02341 M00S02288.msi +++|* MACROS RECALL. 02342 M00S02289.msi +++| 02343 M00S02290.msi +++| 02344 M00S02291.msi +++| RDC SUBR ENTRY/EXIT 02345 M00S02292.msi +++| SA1 CATS 02346 M00S02293.msi +++| MX0 42 02347 M00S02294.msi +++| BX6 X0*X1 02348 M00S02295.msi +++| SX2 4 READ FUNCTION 02349 M00S02296.msi +++| BX6 X6+X2 02350 M00S02297.msi +++| SA3 A1+B1 GET FIRST 02351 M00S02298.msi +++| BX7 -X0*X3 02352 M00S02299.msi +++| SA7 A3+B1 RESET IN AND OUT 02353 M00S02300.msi +++| SA7 A7+B1 02354 M00S02301.msi +++| SA6 A1 SET FUNCTION 02355 M00S02302.msi +++| RECALL CATS 02356 M00S02303.msi +++| MX7 0 02357 M00S02304.msi +++| SA7 CATS+FTSC CLEAR SECTOR COUNT 02358 M00S02305.msi +++| EQ RDCX RETURN 02359 M00S02306.msi +++| SFF SPACE 4,20 02360 M00S02307.msi +++|** SFF - SEARCH FOR FILES. 02361 M00S02308.msi +++|* 02362 M00S02309.msi +++|* ENTRY (B5) = ESTF POINTER. 02363 M00S02310.msi +++|* (B6) = DEVICE NUMBER. 02364 M00S02311.msi +++|* (B7) = EST ORDINAL. 02365 M00S02312.msi +++|* 02366 M00S02313.msi +++|* EXIT B5,B6,B7 UNCHANGED. 02367 M00S02314.msi +++|* (X6) = 0 IF CATALOG NOT CHANGED. 02368 M00S02315.msi +++|* (X7) .LT. 0 IF EOI ENCOUNTERED. 02369 M00S02316.msi +++|* CATALOG ENTRIES (PFC-S) THAT POINT TO FILES ON 02370 M00S02317.msi +++|* SPECIFIED DEVICE ARE CHANGED AS FOLLOWS. 02371 M00S02318.msi +++|* 1. IF PFC HAS VALID ALTERNATE STORAGE ADDRESS (ASA), 02372 M00S02319.msi +++|* THE DISK ADDRESS IS CLEARED. 02373 M00S02320.msi +++|* 2. IF THE PFC HAS NO ASA, THEN THE PFC IS DELETED 02374 M00S02321.msi +++|* BY CLEARING THE USER INDEX. 02375 M00S02322.msi +++|* 02376 M00S02323.msi +++|* USES X - 0, 1, 2, 4, 6, 7. 02377 M00S02324.msi +++|* A - 1, 2, 4, 7. 02378 M00S02325.msi +++|* B - 3, 4. 02379 M00S02326.msi +++| 02380 M00S02327.msi +++| 02381 M00S02328.msi +++| SFF SUBR ENTRY/EXIT 02382 M00S02329.msi +++| SX7 B0 02383 M00S02330.msi +++| SX6 B0 02384 M00S02331.msi +++| SA1 CATS+2 IN 02385 M00S02332.msi +++| SA2 CATS+1 FIRST 02386 M00S02333.msi +++| SX0 177B 02387 M00S02334.msi +++| SA2 X2 02388 M00S02335.msi +++| BX0 X0*X2 CHECK FOR EMPTY SECTOR 02389 M00S02336.msi +++| NZ X0,SFF1 IF NOT EMPTY 02390 M00S02337.msi +++| MX7 1 02391 M00S02338.msi +++| EQ SFFX EXIT 02392 M00S02339.msi +++| 02393 M00S02340.msi +++| SFF1 SB4 CATB+1 02394 M00S02341.msi +++| SB3 X0 WORDS IN SECTOR 02395 M00S02342.msi +++| MX0 -6 02396 M00S02343.msi +++| SX1 B1 SET WRITE WITHOUT EOI FLAG 02397 M00S02344.msi +++| LX1 53-0 02398 M00S02345.msi +++| BX7 X1+X2 02399 M00S02346.msi +++| SA7 A2 02400 M00S02347.msi +++| SFF2 SA1 B4+FCEO CHECK DEVICE NUMBER 02401 M00S02348.msi +++| SX4 B6 02402 M00S02349.msi +++| LX1 59-35 02403 M00S02350.msi +++| BX1 -X0*X1 MASK OFF DN 02404 M00S02351.msi +++| IX4 X1-X4 02405 M00S02352.msi +++| NZ X4,SFF4 IF DN-S DO NOT MATCH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | msi11 |
Seq # *Modification Id* Act ----------------------------+ 02406 M01S00001.msi11 +++| 02407 M01S00002.msi11 +++|* CHECK ALTERNATE STORAGE COPIES OF FILE DATA. IF THE FILE 02408 M01S00003.msi11 +++|* DATA RESIDES ON TAPE OR CARTRIDGE ALTERNATE STORAGE, THE 02409 M01S00004.msi11 +++|* DISK ADDRESS AND THE DEVICE NUMBER IN THE CATALOG ENTRY 02410 M01S00005.msi11 +++|* WILL BE CLEARED TO FORCE A RESTAGE OF THE FILE ON THE NEXT 02411 M01S00006.msi11 +++|* *ATTACH*. OTHERWISE, THE CATALOG ENTRY WILL BE DELETED. 02412 M01S00007.msi11 +++| 02413 M01S00008.msi11 +++| SA1 B4+FCTV 02414 M01S00009.msi11 +++| MX2 -24 02415 M01S00010.msi11 +++| BX7 -X2*X1 02416 M01S00011.msi11 +++| NZ X7,SFF2.1 IF TAPE ALTERNATE STORAGE COPY EXISTS 02417 M00S02353.msi +++| SA1 B4+FCAA 02418 M00S02354.msi +++| MX2 -36 02419 M00S02355.msi +++| BX7 -X2*X1
| Line S02356 Modification History | |
|---|---|
M01 (Removed by) | msi11 |
Seq # *Modification Id* Act ----------------------------+ 02420 M01S02356.msi11 ---| ZR X7,SFF3 IF NO ALTERNATE STORAGE COPY OF FILE
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | msi11 |
Seq # *Modification Id* Act ----------------------------+ 02421 M01S00012.msi11 +++| ZR X7,SFF3 IF NO CARTRIDGE ALTERNATE STORAGE COPY 02422 M00S02357.msi +++| LX1 59-48
| Line S02358 Modification History | |
|---|---|
M01 (Removed by) | msi11 |
Seq # *Modification Id* Act ----------------------------+ 02423 M01S02358.msi11 ---| NG X1,SFF3 IF ALTERNATE STORAGE COPY OBSOLETE
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | msi11 |
Seq # *Modification Id* Act ----------------------------+ 02424 M01S00013.msi11 +++| NG X1,SFF3 IF CARTRIDGE COPY OBSOLETE 02425 M01S00014.msi11 +++| SFF2.1 SA2 B4+FCBT CLEAR DISK ADDRESS OF FILE 02426 M00S02359.msi +++| MX7 48
| Line S02360 Modification History | |
|---|---|
M01 (Removed by) | msi11 |
Seq # *Modification Id* Act ----------------------------+ 02427 M01S02360.msi11 ---| SA2 B4+FCBT CLEAR DISK ADDRESS OF FILE 02428 M00S02361.msi +++| LX7 12 02429 M00S02362.msi +++| BX7 X7*X2 02430 M00S02363.msi +++| SA7 A2
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | msi11 |
Seq # *Modification Id* Act ----------------------------+ 02431 M01S00015.msi11 +++| SA2 B4+FCDN CLEAR DEVICE NUMBER 02432 M01S00016.msi11 +++| MX7 54 02433 M01S00017.msi11 +++| LX7 36 02434 M01S00018.msi11 +++| BX7 X7*X2 02435 M01S00019.msi11 +++| SA7 A2 02436 M00S02364.msi +++| SX6 B1 FORCE CATALOG UPDATE 02437 M00S02365.msi +++| EQ SFF4 CHECK NEXT CATALOG ENTRY 02438 M00S02366.msi +++| 02439 M00S02367.msi +++| SFF3 SA1 B4+FCUI CLEAR USER INDEX OF FILE 02440 M00S02368.msi +++| MX2 42 02441 M00S02369.msi +++| BX7 X2*X1 CLEAR USER INDEX 02442 M00S02370.msi +++| SA7 A1 02443 M00S02371.msi +++| SX6 B1 FORCE CATALOG UPDATE 02444 M00S02372.msi +++| 02445 M00S02373.msi +++|* PROCESS NEXT CATALOG ENTRY. 02446 M00S02374.msi +++| 02447 M00S02375.msi +++| SFF4 SB4 B4+NWCE 02448 M00S02376.msi +++| SB3 B3-NWCE 02449 M00S02377.msi +++| NZ B3,SFF2 IF MORE ENTRIES IN THIS SECTOR 02450 M00S02378.msi +++| SA1 CATS+2 GET IN 02451 M00S02379.msi +++| SA2 CATS+FTSC 02452 M00S02380.msi +++| SA4 CATS+4 GET LIMIT 02453 M00S02381.msi +++| SB3 B0 02454 M00S02382.msi +++| SX7 X2+B1 BUMP SECTOR COUNT 02455 M00S02383.msi +++| SX2 B4+B1 02456 M00S02384.msi +++| IX2 X1-X2 IN - BUFFER POINTER 02457 M00S02385.msi +++| SA7 A2 02458 M00S02386.msi +++| IX4 X4-X1 LIMIT - IN 02459 M00S02387.msi +++| MI X2,SFFX IF POINTER .EQ. IN 02460 M00S02388.msi +++| SA1 B4 READ NEXT CONTROL WORD 02461 M00S02389.msi +++| MX2 -24 02462 M00S02390.msi +++| SX7 177B 02463 M00S02391.msi +++| BX2 -X2*X1 02464 M00S02392.msi +++| BX7 X7*X1 02465 M00S02393.msi +++| SB4 B4+B1 SET TO NEXT CATALOG ENTRY 02466 M00S02394.msi +++| SB3 X7 WORDS IN SECTOR 02467 M00S02395.msi +++| MX7 1 SET WRITE WITHOUT EOI FLAG 02468 M00S02396.msi +++| LX7 53-59 02469 M00S02397.msi +++| BX7 X7+X1 02470 M00S02398.msi +++| SA7 A1 02471 M00S02399.msi +++| NZ X2,SFF2 IF MORE DATA 02472 M00S02400.msi +++| MX7 1 FLAG EOI ENCOUNTERED 02473 M00S02401.msi +++| EQ SFFX RETURN 02474 M00S02402.msi +++| WTC SPACE 4,10 02475 M00S02403.msi +++|** WTC - WRITE CATALOG BUFFER TO DISK. 02476 M00S02404.msi +++|* 02477 M00S02405.msi +++|* ENTRY (B5) = ESTF POINTER. 02478 M00S02406.msi +++|* (B6) = DEVICE NUMBER. 02479 M00S02407.msi +++|* (B7) = EST ORDINAL. 02480 M00S02408.msi +++|* 02481 M00S02409.msi +++|* EXIT B5,B6,B7 UNCHANGED. 02482 M00S02410.msi +++|* CATALOGS WRITTEN FROM CATS BUFFER. 02483 M00S02411.msi +++|* CATS FET NOT BUSY. 02484 M00S02412.msi +++|* 02485 M00S02413.msi +++|* USES X - 0, 1, 2, 6. 02486 M00S02414.msi +++|* A - 1, 6. 02487 M00S02415.msi +++|* 02488 M00S02416.msi +++|* MACROS RECALL. 02489 M00S02417.msi +++| 02490 M00S02418.msi +++| 02491 M00S02419.msi +++| WTC SUBR ENTRY/EXIT 02492 M00S02420.msi +++| SA1 CATS 02493 M00S02421.msi +++| MX0 42 02494 M00S02422.msi +++| SX2 2 WRITE FUNCTION 02495 M00S02423.msi +++| BX6 X0*X1 02496 M00S02424.msi +++| BX6 X6+X2 02497 M00S02425.msi +++| SA6 CATS WRITE CATALOG 02498 M00S02426.msi +++| RECALL CATS 02499 M00S02427.msi +++| EQ WTCX RETURN 02500 M00S02428.msi +++| TITLE SUBROUTINES. 02501 M00S02429.msi +++| ALD SPACE 4,15 02502 M00S02430.msi +++|** ALD - ALLOCATE *LDAM* DEVICES. 02503 M00S02431.msi +++|* 02504 M00S02432.msi +++|* ENTRY (A3) = EST ENTRY ADDRESS. 02505 M00S02433.msi +++|* (A5) = *PALF* ADDRESS. 02506 M00S02434.msi +++|* (X2) = EST ORDINAL. 02507 M00S02435.msi +++|* (X5) = UNIT COUNT-1 REMAINING TO ALLOCATE. 02508 M00S02436.msi +++|* (X7) = ORIGINAL UNIT COUNT. 02509 M00S02437.msi +++|* (B2) = *PKL* INDEX. 02510 M00S02438.msi +++|* 02511 M00S02439.msi +++|* EXIT (A5) = *PALF* ADDRESS. 02512 M00S02440.msi +++|* (B2) = *PKL* INDEX. 02513 M00S02441.msi +++|* (X5) = .LT. 0 IF DEVICE ALLOCATED. 02514 M00S02442.msi +++|* 02515 M00S02443.msi +++|* USES X - ALL. 02516 M00S02444.msi +++|* A - 1, 2, 3, 4, 6, 7. 02517 M00S02445.msi +++|* B - 2, 3, 4, 5. 02518 M00S02446.msi +++|* 02519 M00S02447.msi +++|* CALLS AUL. 02520 M00S02448.msi +++| 02521 M00S02449.msi +++| 02522 M00S02450.msi +++| ALD SUBR ENTRY/EXIT 02523 M00S02451.msi +++| SA3 A3 GET EST ENTRY 02524 M00S02452.msi +++| SB3 X2 SAVE EST ORDINAL 02525 M00S02453.msi +++| SA1 ALDA GET ALLOCATION MASK 02526 M00S02454.msi +++| SB4 X2 SET SEARCH INDEX 02527 M00S02455.msi +++| BX0 X1 02528 M00S02456.msi +++| BX1 X0*X3 MATCH CRITERIA 02529 M00S02457.msi +++| LX3 59-56 02530 M00S02458.msi +++| PL X3,ALDX IF DEVICE NOT REMOVABLE 02531 M00S02459.msi +++| ALD1 SB4 B4+B1 INCREMENT EST ORDINAL 02532 M00S02460.msi +++| SX3 B4 02533 M00S02461.msi +++| R= X2,ESTE 02534 M00S02462.msi +++| IX2 X3*X2 02535 M00S02463.msi +++| SA2 ESTB+X2+EQDE GET EST ENTRY 02536 M00S02464.msi +++| SA3 B4+ESTF 02537 M00S02465.msi +++| SX4 B4-ESMX 02538 M00S02466.msi +++| PL X4,ALDX IF END OF EST ENTRIES 02539 M00S02467.msi +++| BX6 X0*X2 CHECK DEVICE FOR MATCH 02540 M00S02468.msi +++| BX6 X1-X6 02541 M00S02469.msi +++| SA4 X3+STLL 02542 M00S02470.msi +++| NZ X6,ALD1 IF NO DEVICE MATCH 02543 M00S02471.msi +++| 02544 M00S02472.msi +++|* THE CHANNELS OF THE FIRST DEVICE ARE COMPARED WITH 02545 M00S02473.msi +++|* THE CHANNELS OF THE LINK CANDIDATES TO INSURE THAT ALL 02546 M00S02474.msi +++|* ITS CHANNELS ARE CONTAINED IN THE LINK DEVICES CHANNELS. 02547 M00S02475.msi +++| 02548 M00S02476.msi +++| SB5 B0 INITIALIZE CHANNEL COMPARE 02549 M00S02477.msi +++| LX2 24 POSITION CHANNELS (B * * * * * * * A) 02550 M00S02478.msi +++| MX3 -12 02551 M00S02479.msi +++| BX6 -X3*X2 CHANNEL *A* 02552 M00S02480.msi +++| SA6 ALDB 02553 M00S02481.msi +++| LX2 12 02554 M00S02482.msi +++| BX6 -X3*X2 CHANNEL *B* 02555 M00S02483.msi +++| SA6 A6+B1 02556 M00S02484.msi +++| SX3 B3 02557 M00S02485.msi +++| R= X2,ESTE 02558 M00S02486.msi +++| IX3 X3*X2 02559 M00S02487.msi +++| SA3 ESTB+X3+EQDE GET EST ENTRY OF FIRST EQUIPMENT 02560 M00S02488.msi +++| LX3 24 02561 M00S02489.msi +++| SA2 ALDB 02562 M00S02490.msi +++| ALD2 MX6 -12 CHECK CHANNEL WITH LIST 02563 M00S02491.msi +++| BX6 -X6*X3 02564 M00S02492.msi +++| ZR X6,ALD3 IF CHANNEL .EQ. 0 02565 M00S02493.msi +++| BX2 X2-X6 02566 M00S02494.msi +++| ZR X2,ALD4 IF CHANNELS COMPARE 02567 M00S02495.msi +++| SA2 A2+B1 02568 M00S02496.msi +++| NZ X2,ALD2 IF MORE CHANNELS TO CHECK 02569 M00S02497.msi +++| EQ ALD1 LOOP FOR NEXT EQUIPMENT 02570 M00S02498.msi +++| 02571 M00S02499.msi +++| ALD3 NZ B5,ALD4 IF NOT CHANNEL *A* 02572 M00S02500.msi +++| NZ X2,ALD1 IF LIST CHANNEL *A* .NE. 0 02573 M00S02501.msi +++| ALD4 LX3 12 TEST NEXT CHANNEL 02574 M00S02502.msi +++| SB5 B5+B1 02575 M00S02503.msi +++| SA2 ALDB 02576 M00S02504.msi +++| SX6 B5-2 *** TWO CHANNEL SUPPORT 02577 M00S02505.msi +++| NZ X6,ALD2 IF NOT END OF CHANNELS 02578 M00S02506.msi +++| MX6 12 CHECK FOR ACTIVE USES 02579 M00S02507.msi +++| SX2 B4 02580 M00S02508.msi +++| MX3 60-LIFD 02581 M00S02509.msi +++| LX6 24 02582 M00S02510.msi +++| BX6 X6*X4 02583 M00S02511.msi +++| BX3 X3*X4 02584 M00S02512.msi +++| NZ X6,ALD1 IF ACTIVE USERS 02585 M00S02513.msi +++| ZR X3,ALD1 IF TOTAL INITIALIZE NOT SET 02586 M00S02514.msi +++| LX7 39 02587 M00S02515.msi +++| LX4 0-3 02588 M00S02516.msi +++| BX7 X7+X2 FORM *PKL* ENTRY 02589 M00S02517.msi +++| MX6 -3 02590 M00S02518.msi +++| SA7 B2 02591 M00S02519.msi +++| BX7 -X6*X4 02592 M00S02520.msi +++| SB2 B2+B1 INCREMENT *PKL* INDEX 02593 M00S02521.msi +++| SX7 X7+B1 ADJUST UNIT COUNT 02594 M00S02522.msi +++| IX5 X5-X7 02595 M00S02523.msi +++| PL X5,ALD1 IF MORE UNITS TO ALLOCATE 02596 M00S02524.msi +++| RJ AUL ASSEMBLE UNIT LIST 02597 M00S02525.msi +++| EQ ALDX RETURN 02598 M00S02526.msi +++| 02599 M00S02527.msi +++| ALDA VFD 12/5600B *MS*, SHARED, REMOVABLE, *LDAM* 02600 M00S02528.msi +++| VFD 24/0 02601 M00S02529.msi +++| VFD 12/7777B 0N/OFF AND TYPE 02602 M00S02530.msi +++| VFD 12/0 02603 M00S02531.msi +++| ALDB BSS 3 CHANNEL LIST FOR DEVICE MATCH 02604 M00S02532.msi +++| AUL SPACE 4,10 02605 M00S02533.msi +++|** AUL - ASSEMBLE UNIT LIST. 02606 M00S02534.msi +++|* 02607 M00S02535.msi +++|* ENTRY (B3) = EST ORDINAL. 02608 M00S02536.msi +++|* 02609 M00S02537.msi +++|* EXIT *DDLL* LIST BUILT. 02610 M00S02538.msi +++|* 02611 M00S02539.msi +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 02612 M00S02540.msi +++|* A - 1, 2, 3, 4, 7. 02613 M00S02541.msi +++|* B - 3, 4, 5, 6, 7. 02614 M00S02542.msi +++| 02615 M00S02543.msi +++| 02616 M00S02544.msi +++| AUL3 SA2 B3+ESTF FORM *DDLL* 02617 M00S02545.msi +++| MX0 -48 02618 M00S02546.msi +++| LX7 B5,X7 02619 M00S02547.msi +++| SA1 X2+DDLL 02620 M00S02548.msi +++| BX4 -X0*X7 02621 M00S02549.msi +++| BX1 X0*X1 02622 M00S02550.msi +++| BX7 X1+X4 02623 M00S02551.msi +++| SA7 X2+DDLL SET *DDLL* IMAGE IN MST 02624 M00S02552.msi +++| 02625 M00S02553.msi +++| AUL SUBR ENTRY/EXIT 02626 M00S02554.msi +++| SB4 PKL INITIALIZE INDEX 02627 M00S02555.msi +++| SX1 B3 02628 M00S02556.msi +++| MX0 -6 02629 M00S02557.msi +++| SA4 PARC+PMNP GET UNIT COUNT 02630 M00S02558.msi +++| SB5 B0 INITIALIZE SHIFT INDEX 02631 M00S02559.msi +++| SB6 X4 02632 M00S02560.msi +++| AUL1 SA1 X1+ESTF 02633 M00S02561.msi +++| SA3 X1+DDLL 02634 M00S02562.msi +++| BX2 X3 02635 M00S02563.msi +++| MX6 -3 GET ORIGINAL UNIT COUNT 02636 M00S02564.msi +++| LX2 -51 02637 M00S02565.msi +++| SB7 6 02638 M00S02566.msi +++| BX6 -X6*X2 02639 M00S02567.msi +++| AUL2 BX4 -X0*X3 MASK UNIT 02640 M00S02568.msi +++| BX7 X0*X7 02641 M00S02569.msi +++| BX7 X4+X7 MERGE NEXT UNIT 02642 M00S02570.msi +++| SX6 X6-1 02643 M00S02571.msi +++| SB6 B6-B1 02644 M00S02572.msi +++| LX7 -6 02645 M00S02573.msi +++| AX3 6 02646 M00S02574.msi +++| SB5 B5+B7 02647 M00S02575.msi +++| ZR B6,AUL3 IF END OF ASSEMBLY 02648 M00S02576.msi +++| PL X6,AUL2 IF MORE UNITS TO MERGE 02649 M00S02577.msi +++| SA1 B4 GET NEXT EQUIPMENT 02650 M00S02578.msi +++| SB4 B4+B1 02651 M00S02579.msi +++| EQ AUL1 LOOP TO ASSEMBLE NEXT UNIT 02652 M00S02580.msi +++| BPT SPACE 4,10 02653 M00S02581.msi +++|** BPT - BUILD MST UPDATING PARAMETER TABLE. 02654 M00S02582.msi +++|* 02655 M00S02583.msi +++|* ENTRY (X1) = EST ORDINAL. 02656 M00S02584.msi +++|* INTERNAL EST AND MST REFLECT NEW PARAMETERS. 02657 M00S02585.msi +++|* (X5) = *PKL* LIST ENTRY. 02658 M00S02586.msi +++|* 02659 M00S02587.msi +++|* EXIT *TUMS* BUILT FOR IMS FUNCTION 6. 02660 M00S02588.msi +++|* (X5) = UNCHANGED. 02661 M00S02589.msi +++|* 02662 M00S02590.msi +++|* USES X - 0, 2, 3, 4, 6, 7. 02663 M00S02591.msi +++|* A - 2, 3, 4, 6, 7. 02664 M00S02592.msi +++| 02665 M00S02593.msi +++| 02666 M00S02594.msi +++| BPT SUBR ENTRY/EXIT 02667 M00S02595.msi +++| SA2 X1+ESTF MST ADDRESS 02668 M00S02596.msi +++| R= X3,ESTE 02669 M00S02597.msi +++| IX3 X1*X3 02670 M00S02598.msi +++| SA3 ESTB+X3+EQDE GET NEW EST ENTRY 02671 M00S02599.msi +++| SA4 X2+PFGL GET NEW MST WORDS 02672 M00S02600.msi +++| BX6 X3 02673 M00S02601.msi +++| LX7 X4 02674 M00S02602.msi +++| SA3 X2+PUGL 02675 M00S02603.msi +++| SA6 TUMS 02676 M00S02604.msi +++| MX0 1 SET 16-WORD PFC FLAG 02677 M00S02605.msi +++| SA4 X2+MDGL 02678 M00S02606.msi +++| LX0 57-59 02679 M00S02607.msi +++| SA7 A6+B1 TUMS + 1 02680 M00S02608.msi +++| LX6 X3 02681 M00S02609.msi +++| BX7 X0+X4 02682 M00S02610.msi +++| SA6 A7+B1 TUMS + 2 02683 M00S02611.msi +++| SA7 A6+B1 TUMS + 3 02684 M00S02612.msi +++| MX0 -12 02685 M00S02613.msi +++| SA3 X2+ALGL CATALOG COUNT 02686 M00S02614.msi +++| AX3 12 02687 M00S02615.msi +++| BX6 -X0*X3 02688 M00S02616.msi +++| SA4 X2+DILL ALGORITHM INDEX 02689 M00S02617.msi +++| SA3 X2+STLL 02690 M00S02618.msi +++| LX6 12 02691 M00S02619.msi +++| MX7 LIHD-LIFD+1 02692 M00S02620.msi +++| BX6 X6+X1 NC, EQ 02693 M00S02621.msi +++| LX7 LIHD-59 02694 M00S02622.msi +++| BX4 -X0*X4 02695 M00S02623.msi +++| LX6 12 02696 M00S02624.msi +++| BX7 X7*X3 02697 M00S02625.msi +++| ZR X7,BPT1 IF NOT CHANGING ALGORITHM INDEX 02698 M00S02626.msi +++| BX6 X6+X4 NC, EQ, AI 02699 M00S02627.msi +++| BPT1 LX3 59-LDIU 02700 M00S02628.msi +++| LX6 24 02701 M00S02629.msi +++| LX0 12 02702 M00S02630.msi +++| BX6 -X0+X6 NC, EQ, AI, CI 02703 M00S02631.msi +++| SA4 X2+DDLL GET NEW DEVICES UNIT LIST 02704 M00S02632.msi +++| PL X3,BPT2 IF CLEARING DEVICE IN USE IN CHAIN 02705 M00S02633.msi +++| SA4 X2+STLL GET CURRENT UNIT COUNT 02706 M00S02634.msi +++| SA3 X2+DDLL GET CURRENT UNIT LIST 02707 M00S02635.msi +++| BX6 X0*X6 02708 M00S02636.msi +++| MX0 -48 02709 M00S02637.msi +++| LX4 59-14 02710 M00S02638.msi +++| MX2 3 02711 M00S02639.msi +++| BX7 -X0*X3 02712 M00S02640.msi +++| LX2 -9 02713 M00S02641.msi +++| BX4 X2*X4 02714 M00S02642.msi +++| BX4 X4+X7 02715 M00S02643.msi +++| BPT2 SX3 X5 SET NEXT EQUIPMENT IN CHAIN 02716 M00S02644.msi +++| BX6 X6+X3 02717 M00S02645.msi +++| SA6 A7+B1 TUMS+4 02718 M00S02646.msi +++| BX7 X4 02719 M00S02647.msi +++| MX6 0 02720 M00S02648.msi +++| SA7 A6+B1 TUMS+5 02721 M00S02649.msi +++| SA6 A7+B1 TUMS+6 = CLEAR REPLY WORD 02722 M00S02650.msi +++| EQ BPTX RETURN 02723 M00S02651.msi +++| CIR SPACE 4,10 02724 M00S02652.msi +++|** CIR - CHECK INITIALIZATION REQUESTED. 02725 M00S02653.msi +++|* 02726 M00S02654.msi +++|* EXIT (B6) .LT. 0 IF NO EQUIPMENT FOUND. 02727 M00S02655.msi +++|* (B6) = FIRST EQUIPMENT FOUND. 02728 M00S02656.msi +++|* 02729 M00S02657.msi +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 02730 M00S02658.msi +++|* A - 1, 2, 3, 4, 6. 02731 M00S02659.msi +++|* B - 4, 5, 6. 02732 M00S02660.msi +++|* 02733 M00S02661.msi +++|* MACROS SYSTEM. 02734 M00S02662.msi +++| 02735 M00S02663.msi +++| 02736 M00S02664.msi +++| CIR SUBR ENTRY/EXIT 02737 M00S02665.msi +++| SB3 NOPE INITIALIZE EST ORDINAL FOR SEARCH 02738 M00S02666.msi +++| SB6 -B1 02739 M00S02667.msi +++| SB5 ESMX 02740 M00S02668.msi +++| CIR1 EQ B3,B5,CIRX IF END OF EQUIPMENTS 02741 M00S02669.msi +++| SA2 ESTF+B3 02742 M00S02670.msi +++| SB3 B3+B1 02743 M00S02671.msi +++| ZR X2,CIR1 IF EMPTY LINK 02744 M00S02672.msi +++| SX6 B3-B1 EST ORDINAL 02745 M00S02673.msi +++| R= X1,ESTE 02746 M00S02674.msi +++| IX1 X6*X1 02747 M00S02675.msi +++| SA1 ESTB+X1+EQDE GET EST ENTRY 02748 M00S02676.msi +++| SA4 X2+STLL 02749 M00S02677.msi +++| NG X4,CIR2 IF FORMAT PENDING 02750 M00S02678.msi +++| MX3 60-LIPF 02751 M00S02679.msi +++| BX7 X3*X4 02752 M00S02680.msi +++| LX4 59-LIRP 02753 M00S02681.msi +++| PL X4,CIR1 IF NO INITIALIZE REQUESTS PENDING 02754 M00S02682.msi +++| BX3 X1 02755 M00S02683.msi +++| LX4 LIRP-LUNL 02756 M00S02684.msi +++| MI X4,CIR1 IF DEVICE UNLOADED 02757 M00S02685.msi +++| LX1 59-57 02758 M00S02686.msi +++| BX4 X3 02759 M00S02687.msi +++| LX4 59-49 02760 M00S02688.msi +++| LX3 59-52 02761 M00S02689.msi +++| BX1 X3+X1 02762 M00S02690.msi +++| LX6 48 02763 M00S02691.msi +++| NG X4,CIR2 IF DEVICE OFF OR DOWN 02764 M00S02692.msi +++| PL X1,CIR3 IF NOT SHARED DEVICE 02765 M00S02693.msi +++| ZR X7,CIR3 IF NOT GLOBAL INITIALIZE 02766 M00S02694.msi +++| SA6 CIRA 02767 M00S02695.msi +++| PL X3,CIR1.1 IF NOT AN ISD DEVICE 02768 M00S02696.msi +++| SX7 B1 02769 M00S02697.msi +++| BX6 X6+X7 02770 M00S02698.msi +++| SA6 CIRB 02771 M00S02699.msi +++| SYSTEM IMS,R,CIRB,ISD INTERLOCK DEVICE 02772 M00S02700.msi +++| SA1 CIRB 02773 M00S02701.msi +++| PL X1,CIR2 IF DEVICE NOT INTERLOCKED 02774 M00S02702.msi +++| SA2 B3+ESTF-1 SET DEVICE INTERLOCKED FLAG 02775 M00S02703.msi +++| MX7 1 02776 M00S02704.msi +++| LX7 -1 02777 M00S02705.msi +++| BX7 X7+X2 02778 M00S02706.msi +++| SA7 A2 02779 M00S02707.msi +++| CIR1.1 SYSTEM IMS,R,CIRA,CSD CHECK DEVICE STATUS 02780 M00S02708.msi +++| SA1 CIRA CHECK REPLY 02781 M00S02709.msi +++| NG X1,CIR3 IF DEVICE UNLOADED IN OTHER MACHINES 02782 M00S02710.msi +++| CIR2 SA4 A4 CLEAR INITIALIZE REQUESTS 02783 M00S02711.msi +++| MX3 60-LIRP 02784 M00S02712.msi +++| BX4 -X3*X4 02785 M00S02713.msi +++| MX3 48-LIMF 02786 M00S02714.msi +++| LX3 48 02787 M00S02715.msi +++| BX6 -X3*X4 02788 M00S02716.msi +++| SA6 A4+ 02789 M00S02717.msi +++| EQ CIR1 LOOP ON SEARCH 02790 M00S02718.msi +++| 02791 M00S02719.msi +++| CIR3 PL B6,CIR1 IF EQUIPMENT ALREADY FOUND 02792 M00S02720.msi +++| SB6 B3-B1 02793 M00S02721.msi +++| SX7 B3-B1 SET EQUIPMENT TO PROCESS 02794 M00S02722.msi +++| SX1 B3+1000B-1 ENSURE LEADING ZEROES IN CONVERSION 02795 M00S02723.msi +++| MX0 -18 02796 M00S02724.msi +++| SA7 PARC+PMEQ 02797 M00S02725.msi +++| RJ COD 02798 M00S02726.msi +++| SA2 =7L 02799 M00S02727.msi +++| BX6 -X0*X6 02800 M00S02728.msi +++| SA6 EQ 02801 M00S02729.msi +++| BX7 X6+X2 02802 M00S02730.msi +++| LX7 -18 02803 M00S02731.msi +++| SA7 EQDS+1 SET EST ORDINAL IN K-DISPLAY 02804 M00S02732.msi +++| EQ CIR1 LOOP ON SEARCH 02805 M00S02733.msi +++| 02806 M00S02734.msi +++| 02807 M00S02735.msi +++| CIRA CON 0 IMS REQUEST/REPLY AREA 02808 M00S02736.msi +++| CIRB CON 0 ISD INTERLOCK STATUS 02809 M00S02737.msi +++| CMC SPACE 4,10 02810 M00S02738.msi +++|** CMC - CHECK MODE CHANGE. 02811 M00S02739.msi +++|* 02812 M00S02740.msi +++|* ENTRY (PARC+PMEQ) = EQUIPMENT TO CHECK FOR MODE CHANGE. 02813 M00S02741.msi +++|* (B5) = MST ADDRESS OF EQUIPMENT. 02814 M00S02742.msi +++|* 02815 M00S02743.msi +++|* EXIT (X7) = 0 IF NO FULL TRACK ACCESS WHEN REQUIRED. 02816 M00S02744.msi +++|* TO *ABT* IF INTERNAL ERROR DETECTED. 02817 M00S02745.msi +++|* 02818 M00S02746.msi +++|* USES X - ALL. 02819 M00S02747.msi +++|* A - 1, 2, 3, 4, 6, 7. 02820 M00S02748.msi +++|* B - 3, 6. 02821 M00S02749.msi +++|* 02822 M00S02750.msi +++|* CALLS PMC. 02823 M00S02751.msi +++| 02824 M00S02752.msi +++| 02825 M00S02753.msi +++| CMC4 SX6 -B3 SET *CLEAR* OVERRIDE 02826 M00S02754.msi +++| SA6 CLOV 02827 M00S02755.msi +++| MX0 18 02828 M00S02756.msi +++| SA4 EQ 02829 M00S02757.msi +++| SA1 ERROR23 FORM MESSAGE 02830 M00S02758.msi +++| LX0 -12 02831 M00S02759.msi +++| BX6 -X0*X1 02832 M00S02760.msi +++| LX4 48-18 02833 M00S02761.msi +++| BX6 X6+X4 02834 M00S02762.msi +++| SA6 A1 *EQXXX, NO FULL TRACK ACCESS.* 02835 M00S02763.msi +++| BX7 X7-X7 02836 M00S02764.msi +++| 02837 M00S02765.msi +++| CMC SUBR ENTRY/EXIT 02838 M00S02766.msi +++| SA4 PARC+PMEQ 02839 M00S02767.msi +++| SX7 B1 02840 M00S02768.msi +++| SB3 X4 02841 M00S02769.msi +++| SA3 B5+STLL 02842 M00S02770.msi +++| LX3 59-LIHD 02843 M00S02771.msi +++| SB6 B0 INDICATE HALF TRACK 02844 M00S02772.msi +++| NG X3,CMC1 IF HALF TRACK MODE 02845 M00S02773.msi +++| LX3 LIHD-LIFD 02846 M00S02774.msi +++| PL X3,CMCX IF NO MODE CHANGE 02847 M00S02775.msi +++| BX3 X3-X3 02848 M00S02776.msi +++| CMC1 RJ PMC PROCESS MODE CHANGE 02849 M00S02777.msi +++| NG X5,CMC4 IF NO FULL TRACK ACCESS 02850 M00S02778.msi +++| SB3 NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 02851 M00S02779.msi +++| CMC2 SB3 B3+B1 ADVANCE EST ORDINAL 02852 M00S02780.msi +++| SX7 B1 02853 M00S02781.msi +++| SB4 B3-ESMX 02854 M00S02782.msi +++| ZR B4,CMCX IF END OF EST 02855 M00S02783.msi +++| SA2 B3+ESTF 02856 M00S02784.msi +++| SB4 X2 02857 M00S02785.msi +++| EQ B4,B5,CMC2 IF CURRENT EQUIPMENT 02858 M00S02786.msi +++| SA3 B4+STLL 02859 M00S02787.msi +++| LX3 59-LIHD 02860 M00S02788.msi +++| SB6 B0 SET HALF TRACK MODE 02861 M00S02789.msi +++| NG X3,CMC3 IF HALF TRACK MODE 02862 M00S02790.msi +++| LX3 LIHD-LIFD 02863 M00S02791.msi +++| PL X3,CMC2 IF NO MODE CHANGE 02864 M00S02792.msi +++| BX3 X3-X3 02865 M00S02793.msi +++| CMC3 RJ PMC PROCESS MODE CHANGE 02866 M00S02794.msi +++| EQ CMC2 LOOP 02867 M00S02795.msi +++| DIO SPACE 4,10 02868 M00S02796.msi +++|** DIO - DISPLAY INITIALIZE OPTIONS. 02869 M00S02797.msi +++|* 02870 M00S02798.msi +++|* EXIT DISPLAY UPDATED. 02871 M00S02799.msi +++|* (TOTL) = 0 IF NOT TOTAL INITIALIZE. 02872 M00S02800.msi +++|* 02873 M00S02801.msi +++|* USES X - 0, 2, 3, 5, 6, 7. 02874 M00S02802.msi +++|* A - 2, 3, 5, 6, 7. 02875 M00S02803.msi +++|* B - 2, 3, 4. 02876 M00S02804.msi +++| 02877 M00S02805.msi +++| 02878 M00S02806.msi +++|* DISABLE ACCESS LEVEL PARAMETER ENTRIES ON ANYTHING 02879 M00S02807.msi +++|* OTHER THAN A TOTAL INITIALIZE. 02880 M00S02808.msi +++| 02881 M00S02809.msi +++| DIO2 MX7 1 02882 M00S02810.msi +++| SA7 ENLA DISABLE *LA* PARAMETER ENTRY 02883 M00S02811.msi +++| SA7 A7+B1 DISABLE *UA* PARAMETER ENTRY 02884 M00S02812.msi +++| ERRNZ ENUA-ENLA-1 ERROR IF WORDS NOT CONTIGUOUS 02885 M00S02813.msi +++| MX0 LIPF-LIQF+1 EXTRACT *PF* AND *QF* OPTIONS 02886 M00S02814.msi +++| LX5 LIFD-LIPF 02887 M00S02815.msi +++| BX3 X0*X5 02888 M00S02816.msi +++| MX0 48-LIMF EXTRACT DAYFILE OPTIONS 02889 M00S02817.msi +++| LX5 LIPF-LIDF 02890 M00S02818.msi +++| BX2 X0*X5 02891 M00S02819.msi +++| LX2 LIQF-LIFD MERGE PARTIAL INITIALIZE OPTIONS 02892 M00S02820.msi +++| BX5 X3+X2 02893 M00S02821.msi +++| SB4 TPDS+2 02894 M00S02822.msi +++| SA3 BLK 02895 M00S02823.msi +++| SB3 42 02896 M00S02824.msi +++| SA2 DIOB 02897 M00S02825.msi +++| BX7 X3 02898 M00S02826.msi +++| SX0 77B 02899 M00S02827.msi +++| DIO3 PL X5,DIO4 IF OPTION NOT SET 02900 M00S02828.msi +++| BX3 X0*X2 02901 M00S02829.msi +++| LX3 6 02902 M00S02830.msi +++| SX3 X3+1RF&1R 02903 M00S02831.msi +++| LX6 X3,B3 02904 M00S02832.msi +++| BX7 X6-X7 02905 M00S02833.msi +++| SB3 B3-18 02906 M00S02834.msi +++| PL B3,DIO4 IF DISPLAY WORD NOT FILLED 02907 M00S02835.msi +++| SA7 B4+1 02908 M00S02836.msi +++| SX6 A7-TPDS-4 02909 M00S02837.msi +++| ZR X6,DIOX IF DISPLAY LINE LIMIT 02910 M00S02838.msi +++| SA3 BLK 02911 M00S02839.msi +++| SB4 A7 02912 M00S02840.msi +++| BX7 X3 02913 M00S02841.msi +++| SB3 48 RESET SHIFT COUNT 02914 M00S02842.msi +++| DIO4 AX2 6 02915 M00S02843.msi +++| LX5 1 02916 M00S02844.msi +++| NZ X2,DIO3 IF ALL OPTIONS NOT CHECKED 02917 M00S02845.msi +++| BX6 X6-X6 02918 M00S02846.msi +++| SA7 B4+B1 02919 M00S02847.msi +++| SA6 TOTL CLEAR TOTAL INITIALIZE STATUS 02920 M00S02848.msi +++| 02921 M00S02849.msi +++| DIO SUBR ENTRY/EXIT 02922 M00S02850.msi +++| SA3 PARC+PMEQ GET EST ORDINAL 02923 M00S02851.msi +++| SA4 ESTF+X3 GET MST ADDRESS 02924 M00S02852.msi +++| SA5 X4+STLL 02925 M00S02853.msi +++| SB2 B0 02926 M00S02854.msi +++| LX5 59-LIAL 02927 M00S02855.msi +++| NG X5,DIO1 IF INITIALIZE *AL* 02928 M00S02856.msi +++| SB2 B2+B1 02929 M00S02857.msi +++| LX5 LIAL-LIHD 02930 M00S02858.msi +++| NG X5,DIO1 IF INITIALIZE *HT* 02931 M00S02859.msi +++| SB2 B2+B1 02932 M00S02860.msi +++| LX5 LIHD-LIFD 02933 M00S02861.msi +++| DIO1 PL X5,DIO2 IF NOT INITIALIZE *FT* 02934 M00S02862.msi +++| SA2 B2+DIOA SET VALUE FOR INITIALIZE REQUEST 02935 M00S02863.msi +++| MX7 1 02936 M00S02864.msi +++| SA3 BLK 02937 M00S02865.msi +++| BX6 X2 02938 M00S02866.msi +++| SA7 TOTL SET TOTAL INITIALIZE INDICATOR 02939 M00S02867.msi +++| SA6 TPDS+3 02940 M00S02868.msi +++| BX7 X3 02941 M00S02869.msi +++| SA7 A6+B1 02942 M00S02870.msi +++| EQ DIOX RETURN 02943 M00S02871.msi +++| 02944 M00S02872.msi +++| 02945 M00S02873.msi +++| DIOA DATA H$ *TOTAL*$ 02946 M00S02874.msi +++| DATA H$*TOTAL/HT*$ 02947 M00S02875.msi +++| DATA H$*TOTAL/FT*$ 02948 M00S02876.msi +++| DIOB VFD 24/0,36/6RMEADQP&6R 02949 M00S02877.msi +++| DTY SPACE 4,10 02950 M00S02878.msi +++|** DTY - GET PARAMETERS FOR DEVICE TYPE. 02951 M00S02879.msi +++|* 02952 M00S02880.msi +++|* ENTRY PARC+PMEQ = EST ORDINAL. 02953 M00S02881.msi +++|* 02954 M00S02882.msi +++|* EXIT (X3) = TDTY ENTRY FOR DEVICE TYPE. 02955 M00S02883.msi +++|* (X3) = 0 IF EQUIPMENT NOT FOUND. 02956 M00S02884.msi +++|* (X5) = EST ORDINAL. 02957 M00S02885.msi +++|* 02958 M00S02886.msi +++|* USES X - 2, 3, 5, 6. 02959 M00S02887.msi +++|* A - 3, 5. 02960 M00S02888.msi +++| 02961 M00S02889.msi +++| 02962 M00S02890.msi +++| DTY SUBR ENTRY/EXIT 02963 M00S02891.msi +++| MX2 11 02964 M00S02892.msi +++| SA5 PARC+PMEQ GET EQUIPMENT 02965 M00S02893.msi +++| LX2 -1 02966 M00S02894.msi +++| R= X3,ESTE 02967 M00S02895.msi +++| IX3 X5*X3 02968 M00S02896.msi +++| SA3 ESTB+X3+EQDE GET EST ENTRY 02969 M00S02897.msi +++| LX3 36 02970 M00S02898.msi +++| BX2 X2*X3 DEVICE TYPE 02971 M00S02899.msi +++| BX6 X2 SAVE DEVICE TYPE 02972 M00S02900.msi +++| LX6 12 02973 M00S02901.msi +++| SA6 DTYA 02974 M00S02902.msi +++| SA3 TDTY-1 02975 M00S02903.msi +++| DTY1 SA3 A3+B1 02976 M00S02904.msi +++| BX6 X2-X3 02977 M00S02905.msi +++| LX6 1 02978 M00S02906.msi +++| AX6 48+1 02979 M00S02907.msi +++| ZR X6,DTYX IF DEVICE TYPE FOUND 02980 M00S02908.msi +++| NZ X3,DTY1 IF MORE ENTRIES 02981 M00S02909.msi +++| EQ DTYX RETURN 02982 M00S02910.msi +++| 02983 M00S02911.msi +++| 02984 M00S02912.msi +++| DTYA CON 0 DEVICE TYPE 02985 M00S02913.msi +++| ISF SPACE 4,15 02986 M00S02914.msi +++|** ISF - INITIALIZE SPECIAL FILES. 02987 M00S02915.msi +++|* 02988 M00S02916.msi +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 02989 M00S02917.msi +++|* A - 1, 2, 3, 4, 6. 02990 M00S02918.msi +++|* 02991 M00S02919.msi +++|* MACROS MESSAGE, QCALL, SYSTEM. 02992 M00S02920.msi +++| 02993 M00S02921.msi +++| 02994 M00S02922.msi +++| ISF SUBR ENTRY/EXIT 02995 M00S02923.msi +++| SA1 PARC+PMEQ GET MST POINTER 02996 M00S02924.msi +++| SA1 X1+ESTF 02997 M00S02925.msi +++| SB5 X1 02998 M00S02926.msi +++| SA3 TOTL 02999 M00S02927.msi +++| SA4 B5+STLL 03000 M00S02928.msi +++| AX3 59 03001 M00S02929.msi +++| BX4 X3+X4 03002 M00S02930.msi +++| MX5 -4 03003 M00S02931.msi +++| LX4 59-LIQF CHECK QUEUE FILE INITIALIZATION 03004 M00S02932.msi +++| PL X4,ISF5 IF NOT SELECTED 03005 M00S02933.msi +++| 03006 M00S02934.msi +++|* INITIALIZE INACTIVE QUEUED FILES. 03007 M00S02935.msi +++| 03008 M00S02936.msi +++| SA3 QFET 03009 M00S02937.msi +++| SA2 PARC+PMEQ 03010 M00S02938.msi +++| LX5 10 03011 M00S02939.msi +++| BX6 X5*X3 CLEAR ERROR CODE 03012 M00S02940.msi +++| LX2 48-0 03013 M00S02941.msi +++| SA6 A3 RESET FET+0 03014 M00S02942.msi +++| BX6 X2 03015 M00S02943.msi +++| SA6 A3+7 SET EST ORDINAL FOR *QFM* 03016 M00S02944.msi +++| QCALL IIQF,QFET INITIALIZE QUEUED FILES 03017 M00S02945.msi +++| SA1 QFET 03018 M00S02946.msi +++| BX5 -X5*X1 ISOLATE ERROR CODE 03019 M00S02947.msi +++| AX5 10D SET ERROR CODE LOWER 03020 M00S02948.msi +++| SA1 PARC+PMEQ 03021 M00S02949.msi +++| SA3 MESI * EQXXX, INACTIVE QUEUES INITIALIZED.* 03022 M00S02950.msi +++| SA2 TOTL 03023 M00S02951.msi +++| ZR X5,ISF1 IF QUEUES INITIALIZED 03024 M00S02952.msi +++| SA3 MESE * EQXXX, UNABLE TO INITIALIZE IQFT.* 03025 M00S02953.msi +++| NG X2,ISF5 IF TOTAL INITIALIZE 03026 M00S02954.msi +++| ISF1 SA1 EQ SET EST ORDINAL IN MESSAGE 03027 M00S02955.msi +++| MX0 42 03028 M00S02956.msi +++| LX1 42-18 03029 M00S02957.msi +++| LX0 42-18 03030 M00S02958.msi +++| BX3 X0*X3 03031 M00S02959.msi +++| BX6 X3+X1 03032 M00S02960.msi +++| SA6 A3 03033 M00S02961.msi +++| SX0 A3 SET MESSAGE ADDRESS 03034 M00S02962.msi +++| ZR X5,ISF4 IF FILE INITIALIZED 03035 M00S02963.msi +++| SX2 X5-FAIE 03036 M00S02964.msi +++| NZ X2,ISF2 IF NOT INTERLOCK ERROR 03037 M00S02965.msi +++| MESSAGE MESF,,R * IQFT FILE INTERLOCKED.* 03038 M00S02966.msi +++| EQ ISF4 SET UNABLE TO INITIALIZE IQFT FILE 03039 M00S02967.msi +++| 03040 M00S02968.msi +++| ISF2 SX2 X5-FNFE 03041 M00S02969.msi +++| NZ X2,ISF3 IF FILE FOUND 03042 M00S02970.msi +++| MESSAGE MESG,,R * NO IQFT FILE FOUND.* 03043 M00S02971.msi +++| ISF3 SX2 X5-RMSE 03044 M00S02972.msi +++| NZ X2,ISF4 IF NOT RMS ERROR 03045 M00S02973.msi +++| MESSAGE MESH,,R * UNABLE TO READ IQFT FILE.* 03046 M00S02974.msi +++| ISF4 MESSAGE X0,,R ISSUE INITIALIZATION STATUS MESSAGE 03047 M00S02975.msi +++|* MESSAGE MESE,,R * EQXXX, UNABLE TO INITIALIZE IQFT.* 03048 M00S02976.msi +++|* MESSAGE MESI,,R * EQXXX, INACTIVE QUEUES INITIALIZED.* 03049 M00S02977.msi +++| ISF5 SA5 DSI 03050 M00S02978.msi +++| SA4 B5+STLL 03051 M00S02979.msi +++| NG X5,ISFX IF DEADSTART INITIALIZE 03052 M00S02980.msi +++| SA3 TOTL 03053 M00S02981.msi +++| AX3 59 03054 M00S02982.msi +++| SA5 PARC+PMEQ 03055 M00S02983.msi +++| BX4 X3+X4 03056 M00S02984.msi +++| LX4 59-LIDF 03057 M00S02985.msi +++| PL X4,ISF6 IF NOT DAYFILE INITIALIZATON 03058 M00S02986.msi +++| 03059 M00S02987.msi +++|* INITIALIZE SYSTEM DAYFILE. 03060 M00S02988.msi +++| 03061 M00S02989.msi +++| SYSTEM IMS,R,X5,IDF 03062 M00S02990.msi +++| ISF6 LX4 LIDF-LIAF 03063 M00S02991.msi +++| PL X4,ISF7 IF NOT ACCOUNT FILE INITIALIZATION 03064 M00S02992.msi +++| 03065 M00S02993.msi +++|* INITIALIZE ACCOUNT FILE. 03066 M00S02994.msi +++| 03067 M00S02995.msi +++| SYSTEM IMS,R,X5,IDF+1 03068 M00S02996.msi +++| ISF7 LX4 LIAF-LIEF 03069 M00S02997.msi +++| PL X4,ISF8 IF NOT ERRLOG INITIALIZATION 03070 M00S02998.msi +++| 03071 M00S02999.msi +++|* INITIALIZE ERRLOG. 03072 M00S03000.msi +++| 03073 M00S03001.msi +++| SYSTEM IMS,R,X5,IDF+2 03074 M00S03002.msi +++| ISF8 LX4 LIEF-LIMF 03075 M00S03003.msi +++| PL X4,ISF9 IF NOT MAINTENANCE LOG INITIALIZATION 03076 M00S03004.msi +++| 03077 M00S03005.msi +++|* INITIALIZE MAINTENANCE LOG. 03078 M00S03006.msi +++| 03079 M00S03007.msi +++| SYSTEM IMS,R,X5,IDF+3 03080 M00S03008.msi +++| ISF9 PL X3,ISFX IF NOT TOTAL INITIALIZE 03081 M00S03009.msi +++| SA1 B5+ACGL CHECK FOR LOCAL AREA SECTOR 03082 M00S03010.msi +++| LX1 59-GLAP 03083 M00S03011.msi +++| PL X1,ISFX IF LOCAL AREA SECTOR NOT DEFINED 03084 M00S03012.msi +++| SYSTEM IMS,R,X5,ILA INITIALIZE LOCAL AREAS 03085 M00S03013.msi +++| EQ ISFX RETURN 03086 M00S03014.msi +++| MTW SPACE 4,10 03087 M00S03015.msi +++|** MTW - MOVE THREE WORDS TO DISPLAY LINE. 03088 M00S03016.msi +++|* 03089 M00S03017.msi +++|* ENTRY (A1) = MESSAGE ADDRESS. 03090 M00S03018.msi +++|* 03091 M00S03019.msi +++|* USES X - 1, 2, 5, 6, 7. 03092 M00S03020.msi +++|* A - 1, 2, 5, 6, 7. 03093 M00S03021.msi +++|* B - 2. 03094 M00S03022.msi +++| 03095 M00S03023.msi +++| 03096 M00S03024.msi +++| MTW SUBR ENTRY/EXIT 03097 M00S03025.msi +++| SA2 A1+B1 03098 M00S03026.msi +++| BX6 X1 03099 M00S03027.msi +++| SA1 A2+B1 03100 M00S03028.msi +++| LX7 X2 03101 M00S03029.msi +++| SA2 FLFG 03102 M00S03030.msi +++| NZ X2,MTW2 IF FLAW PROCESSING 03103 M00S03031.msi +++| SA5 PAGA 03104 M00S03032.msi +++| LX5 30 03105 M00S03033.msi +++| SB2 X5 03106 M00S03034.msi +++| GT B2,B1,MTW2 IF CURRENT LEFT SCREEN INDEX IS 2 03107 M00S03035.msi +++| SA6 MSDS1+1 03108 M00S03036.msi +++| MTW1 BX6 X1 03109 M00S03037.msi +++| SA7 A6+1 03110 M00S03038.msi +++| SA6 A7+B1 03111 M00S03039.msi +++| SA1 BLK 03112 M00S03040.msi +++| BX6 X1 03113 M00S03041.msi +++| EQ B1,B2,MTW3 IF CURRENT LEFT SCREEN INDEX IS 1 03114 M00S03042.msi +++| SA2 MSDS1+1 03115 M00S03043.msi +++| MTW1.1 SA6 A2 03116 M00S03044.msi +++| SA6 A2+1 03117 M00S03045.msi +++| SA6 A6+B1 03118 M00S03046.msi +++| EQ MTWX RETURN 03119 M00S03047.msi +++| 03120 M00S03048.msi +++| MTW2 SA6 MSDS2+1 DISPLAY FLAW MESSAGE 03121 M00S03049.msi +++| EQ MTW1 CONTINUE 03122 M00S03050.msi +++| 03123 M00S03051.msi +++| MTW3 SA2 MSDS2+1 03124 M00S03052.msi +++| EQ MTW1.1 CONTINUE 03125 M00S03053.msi +++| PMC SPACE 4,15 03126 M00S03054.msi +++|** PMC - PROCESS MODE CHANGE. 03127 M00S03055.msi +++|* 03128 M00S03056.msi +++|* ENTRY (B3) = EST ORDINAL. 03129 M00S03057.msi +++|* (X3) = .LT. 0, IF HALF TRACK ACCESS. 03130 M00S03058.msi +++|* (B6) = 0, IF HALF TRACK MODE. 03131 M00S03059.msi +++|* 03132 M00S03060.msi +++|* EXIT (X5) .LT. 0, IF NO FULL TRACK ACCESS. 03133 M00S03061.msi +++|* 03134 M00S03062.msi +++|* USES X - ALL. 03135 M00S03063.msi +++|* A - 2, 4, 5, 7. 03136 M00S03064.msi +++|* B - 4, 6. 03137 M00S03065.msi +++|* 03138 M00S03066.msi +++|* CALLS DTY. 03139 M00S03067.msi +++|* 03140 M00S03068.msi +++|* MACROS MESSAGE. 03141 M00S03069.msi +++| 03142 M00S03070.msi +++| 03143 M00S03071.msi +++| PMC SUBR ENTRY/EXIT 03144 M00S03072.msi +++| MX0 -12 03145 M00S03073.msi +++| MX1 0 03146 M00S03074.msi +++| NG X3,PMC3 IF HALF TRACK ACCESS 03147 M00S03075.msi +++| MX1 60 03148 M00S03076.msi +++| SB6 12 SET FULL TRACK SHIFT COUNT 03149 M00S03077.msi +++| 03150 M00S03078.msi +++|* ASSEMBLE EST IMAGE. 03151 M00S03079.msi +++| 03152 M00S03080.msi +++| PMC3 SX7 B3 03153 M00S03081.msi +++| R= X4,ESTE 03154 M00S03082.msi +++| IX7 X7*X4 03155 M00S03083.msi +++| SA4 ESTB+X7+EQDE READ EST ENTRY 03156 M00S03084.msi +++| LX4 -12
| Line S03085 Modification History | |
|---|---|
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03157 M01S03085.284l847 ---| BX7 -X0*X4 CURRENT DEVICE TYPE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03158 M01S00001.284l847 +++| BX5 -X0*X4 CURRENT DEVICE TYPE 03159 M00S03086.msi +++| SA2 PMCB-1 03160 M00S03087.msi +++| PMC4 SA2 A2+B1 READ NEXT LIST WORD
| Line S03088 Modification History | |
|---|---|
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03161 M01S03088.284l847 ---| BX5 -X0*X2 03162 M01S03089.284l847 ---| ZR X2,PMC5 IF END OF LIST
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03163 M01S00002.284l847 +++| BX7 -X0*X2 03164 M01S00003.284l847 +++| ZR X2,PMC4.0 IF END OF LIST 03165 M00S03090.msi +++| BX6 X5-X7 03166 M00S03091.msi +++| NZ X6,PMC4 IF NO MATCH 03167 M00S03092.msi +++| AX2 12 03168 M00S03093.msi +++| AX2 X2,B6 POSITION NEW DEVICE TYPE
| Line S03094 Modification History | |
|---|---|
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03169 M01S03094.284l847 ---| BX4 X0*X4 03170 M00S03095.msi +++| BX5 -X0*X2 NEW DEVICE TYPE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03171 M01S00004.284l847 +++| PMC4.0 BX4 X0*X4 03172 M00S03096.msi +++| BX7 X4+X5 MERGE NEW DEVICE TYPE 03173 M00S03097.msi +++| SX0 10001B SET CHANNEL ACCESS FLAGS 03174 M00S03098.msi +++| LX7 12 03175 M00S03099.msi +++| LX0 24+8 03176 M00S03100.msi +++| BX2 X0*X7 CHANNEL MODE FLAGS 03177 M00S03101.msi +++| BX2 X1-X2 SELECT MODE OF OPERATION 03178 M00S03102.msi +++| BX2 X0*X2 NEW CHANNEL ACCESS FLAGS 03179 M00S03103.msi +++| MX5 1 03180 M00S03104.msi +++| ZR X1,PMC4.1 IF HALF TRACK INITIALIZE 03181 M00S03105.msi +++| ZR X2,PMCX IF NO CHANNELS FOR ACCESS 03182 M00S03106.msi +++| PMC4.1 SA7 A4 03183 M00S03107.msi +++| RJ DTY SET SINGLE UNIT SECTOR LIMIT 03184 M00S03108.msi +++| MX0 12 03185 M00S03109.msi +++| LX0 -12 03186 M00S03110.msi +++| SA1 X5+ESTF 03187 M00S03111.msi +++| SA2 X1+MDGL 03188 M00S03112.msi +++| BX7 X0*X3 03189 M00S03113.msi +++| BX2 -X0*X2 03190 M00S03114.msi +++| AX3 12 03191 M00S03115.msi +++| BX7 X2+X7 03192 M00S03116.msi +++| MX0 -6 03193 M00S03117.msi +++| SA7 A2 03194 M00S03118.msi +++| SA4 X1+DILL CHANGE ALGORITHM INDEX 03195 M00S03119.msi +++| BX2 -X0*X3 03196 M00S03120.msi +++| BX4 X0*X4 03197 M00S03121.msi +++| BX7 X2+X4 03198 M00S03122.msi +++| SA7 A4 03199 M00S03123.msi +++| EQ PMCX RETURN 03200 M00S03124.msi +++|
| Line S03125 Modification History | |
|---|---|
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03201 M01S03125.284l847 ---| PMC5 MESSAGE MESD * INTERNAL ERROR IN MSI.*
| Line S03126 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
M02 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03202 M02S03126.284l847 ---| EQ ABT EXIT TO ABORT PROCESSOR
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03203 M02S00051.284l847 ---| RJ ABT ABORT *MSI*
| Line S03127 Modification History | |
|---|---|
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03204 M01S03127.284l847 ---| 03205 M00S03128.msi +++|** DEVICE CONVERSION TABLES. 03206 M00S03129.msi +++|*T PMCB 24/,12/ *FT* TYPE, 12/ *HT* TYPE, 12/OLD TYPE
Figure PMCB
03207 M00S03130.msi +++| 03208 M00S03131.msi +++| PMCB VFD 24/,12/2RDK,12/2RDI,12/2RDI 03209 M00S03132.msi +++| VFD 24/,12/2RDL,12/2RDJ,12/2RDJ 03210 M00S03133.msi +++| VFD 24/,12/2RDK,12/2RDI,12/2RDK 03211 M00S03134.msi +++| VFD 24/,12/2RDL,12/2RDJ,12/2RDL 03212 M00S03135.msi +++| VFD 24/,12/2RDQ,12/2RDM,12/2RDM 03213 M00S03136.msi +++| VFD 24/,12/2RDQ,12/2RDM,12/2RDQ
| Line S03137 Modification History | |
|---|---|
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03214 M01S03137.284l847 ---| VFD 24/,12/2RDV,12/2RDV,12/2RDV 03215 M01S03138.284l847 ---| VFD 24/,12/2RDW,12/2RDW,12/2RDW 03216 M01S03139.284l847 ---| VFD 24/,12/2RDX,12/2RDX,12/2RDX 03217 M01S03140.284l847 ---| VFD 24/,12/2RDY,12/2RDY,12/2RDY 03218 M01S03141.284l847 ---| VFD 24/,12/2RDZ,12/2RDZ,12/2RDZ 03219 M01S03142.284l847 ---| VFD 24/,12/2RDA,12/2RDA,12/2RDA 03220 M01S03143.284l847 ---| VFD 24/,12/2RDB,12/2RDB,12/2RDB 03221 M01S03144.284l847 ---| VFD 24/,12/2RDC,12/2RDC,12/2RDC 03222 M01S03145.284l847 ---| VFD 24/,12/2RDD,12/2RDD,12/2RDD 03223 M01S03146.284l847 ---| VFD 24/,12/2RDF,12/2RDF,12/2RDF 03224 M01S03147.284l847 ---| VFD 24/,12/2RDG,12/2RDG,12/2RDG 03225 M01S03148.284l847 ---| VFD 24/,12/2RDH,12/2RDH,12/2RDH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03226 M02S00001.284l847 ---| VFD 24/,12/2RDN,12/2RDN,12/2RDN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 272l774 |
M02 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03227 M02S00001.284l847 ---| VFD 24/,12/2REA,12/2REA,12/2REA 03228 M02S00002.284l847 ---| VFD 24/,12/2REB,12/2REB,12/2REB 03229 M02S00003.284l847 ---| VFD 24/,12/2REC,12/2REC,12/2REC 03230 M02S00004.284l847 ---| VFD 24/,12/2RED,12/2RED,12/2RED 03231 M02S00005.284l847 ---| VFD 24/,12/2REE,12/2REE,12/2REE 03232 M02S00006.284l847 ---| VFD 24/,12/2REF,12/2REF,12/2REF
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2768 |
M02 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03233 M02S00001.284l847 ---| VFD 24/,12/2REG,12/2REG,12/2REG 03234 M02S00002.284l847 ---| VFD 24/,12/2REH,12/2REH,12/2REH 03235 M00S03149.msi +++| CON 0 END OF TABLE 03236 M00S03150.msi +++| PTY SPACE 4,10 03237 M00S03151.msi +++|** PTY - PROCESS TYPE. 03238 M00S03152.msi +++|* 03239 M00S03153.msi +++|* ENTRY (B5) = MST POINTER. 03240 M00S03154.msi +++|* 03241 M00S03155.msi +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 03242 M00S03156.msi +++|* A - 1, 2, 3. 03243 M00S03157.msi +++|* 03244 M00S03158.msi +++|* CALLS COD. 03245 M00S03159.msi +++| 03246 M00S03160.msi +++| 03247 M00S03161.msi +++| PTY SUBR ENTRY/EXIT 03248 M00S03162.msi +++| SA1 PARC+PMTY 03249 M00S03163.msi +++| SA2 B5+MDGL 03250 M00S03164.msi +++| LX1 6 03251 M00S03165.msi +++| SA3 B5+PUGL 03252 M00S03166.msi +++| LX2 59-58 03253 M00S03167.msi +++| PTY1 MX0 -16 03254 M00S03168.msi +++| ZR X1,PTY3 IF TYPE NOT ENTERED 03255 M00S03169.msi +++| BX6 -X0 DEFAULT MASK FOR AUXILIARY DEVICES 03256 M00S03170.msi +++| MX7 1 SET AUXILIARY BIT 03257 M00S03171.msi +++| SX4 X1-1RX 03258 M00S03172.msi +++| BX2 -X7*X2 03259 M00S03173.msi +++| ZR X4,PTY2 IF AUXILIARY TYPE 03260 M00S03174.msi +++| MX7 0 CLEAR AUXILIARY BIT 03261 M00S03175.msi +++| BX6 -X0*X3 DEFAULT MASKS FOR FAMILY TYPE 03262 M00S03176.msi +++| SX1 1RF SET TO FAMILY DEVICE 03263 M00S03177.msi +++| PTY2 BX3 X0*X3 SET DEFAULT MASKS 03264 M00S03178.msi +++| BX6 X3+X6 03265 M00S03179.msi +++| BX7 X7+X2 MERGE NEW AUXILIARY BIT 03266 M00S03180.msi +++| SA6 A3 03267 M00S03181.msi +++| LX7 58-59 03268 M00S03182.msi +++| SA7 A2 03269 M00S03183.msi +++| LX1 -6 03270 M00S03184.msi +++| BX6 X1 03271 M00S03185.msi +++| SA6 A1 RESET TYPE 03272 M00S03186.msi +++| SA6 TYDS+1 03273 M00S03187.msi +++| SA1 B5+PUGL SET INDIRECT FILE MASK 03274 M00S03188.msi +++| MX0 -8 03275 M00S03189.msi +++| BX7 -X0*X1 03276 M00S03190.msi +++| BX1 -X0*X1 03277 M00S03191.msi +++| SA7 PARC+PMDM 03278 M00S03192.msi +++| RJ COD 03279 M00S03193.msi +++| SA1 B5+PUGL SET DIRECT ACCESS MASK 03280 M00S03194.msi +++| BX6 X4 03281 M00S03195.msi +++| AX1 8 03282 M00S03196.msi +++| SA6 DMDS+1 03283 M00S03197.msi +++| BX7 -X0*X1 03284 M00S03198.msi +++| BX1 -X0*X1 03285 M00S03199.msi +++| SA7 PARC+PMSM 03286 M00S03200.msi +++| RJ COD 03287 M00S03201.msi +++| BX6 X4 03288 M00S03202.msi +++| SA6 SMDS+1 03289 M00S03203.msi +++| EQ PTYX RETURN 03290 M00S03204.msi +++| 03291 M00S03205.msi +++| PTY3 SX1 1RX 03292 M00S03206.msi +++| NG X2,PTY1 IF AUXILIARY DEVICE 03293 M00S03207.msi +++| SX1 1RF SET TO FAMILY DEVICE 03294 M00S03208.msi +++| EQ PTY1 LOOP 03295 M00S03209.msi +++| SAL SPACE 4,15 03296 M00S03210.msi +++|** SAL - SET ACCESS LEVEL DEFAULTS. 03297 M00S03211.msi +++|* 03298 M00S03212.msi +++|* EXIT DEFAULTS SET IN THE PARAMETER LIST AND THE K-DISPLAY. 03299 M00S03213.msi +++|* IF THE INITIALIZE IS TOTAL, THE DEFAULTS WILL BE 03300 M00S03214.msi +++|* SET TO THE LOWER EQUIPMENT ACCESS LIMIT FROM THE 03301 M00S03215.msi +++|* EST ENTRY. 03302 M00S03216.msi +++|* THE DEFAULTS WILL BE SET FROM THE MST FOR DEADSTART 03303 M00S03217.msi +++|* INITIALIZE, AS WELL AS FOR A NON-TOTAL INITIALIZE. 03304 M00S03218.msi +++|* 03305 M00S03219.msi +++|* USES X - 0, 1, 2, 5, 6. 03306 M00S03220.msi +++|* A - 1, 5, 6. 03307 M00S03221.msi +++|* B - 3, 4. 03308 M00S03222.msi +++| 03309 M00S03223.msi +++| 03310 M00S03224.msi +++| SAL SUBR ENTRY/EXIT 03311 M00S03225.msi +++| SA1 TOTL 03312 M00S03226.msi +++| SA5 B5+PFGL READ ACCESS LEVELS FROM LABEL 03313 M00S03227.msi +++| SB4 51 SET SHIFT COUNTS 03314 M00S03228.msi +++| SB3 3 03315 M00S03229.msi +++| MX0 -3 03316 M00S03230.msi +++| PL X1,SAL1 IF NOT TOTAL INITIALIZE 03317 M00S03231.msi +++| SA1 DSI 03318 M00S03232.msi +++| NG X1,SAL1 IF DEADSTART INITIALIZE 03319 M00S03233.msi +++| SA5 PARC+PMEQ 03320 M00S03234.msi +++| R= X1,ESTE 03321 M00S03235.msi +++| IX1 X5*X1 03322 M00S03236.msi +++| SA5 ESTB+X1+EQAE READ ACCESS LEVELS FROM EST 03323 M00S03237.msi +++| SB4 45 SET SHIFT COUNTS 03324 M00S03238.msi +++| SB3 B0+ 03325 M00S03239.msi +++| SAL1 LX5 B4 POSITION ACCESS LEVELS 03326 M00S03240.msi +++| BX1 -X0*X5 PROCESS LOWER ACCESS LEVEL 03327 M00S03241.msi +++| SA1 X1+TALV 03328 M00S03242.msi +++| MX2 42 03329 M00S03243.msi +++| BX6 X2*X1 03330 M00S03244.msi +++| SA6 PARC+PMLA SET LOWER LIMIT IN PARAMETER LIST 03331 M00S03245.msi +++| SA6 LADS+1 SET LOWER LIMIT IN DISPLAY 03332 M00S03246.msi +++| LX5 B3 PROCESS UPPER ACCESS LEVEL 03333 M00S03247.msi +++| BX1 -X0*X5 03334 M00S03248.msi +++| SA1 X1+TALV 03335 M00S03249.msi +++| BX6 X2*X1 03336 M00S03250.msi +++| SA6 PARC+PMUA SET UPPER LIMIT IN PARAMETER LIST 03337 M00S03251.msi +++| SA6 UADS+1 SET UPPER LIMIT IN DISPLAY 03338 M00S03252.msi +++| EQ SALX RETURN 03339 M00S03253.msi +++| PRS SPACE 4,15 03340 M00S03254.msi +++|** PRS - PRESET PROGRAM. 03341 M00S03255.msi +++|* 03342 M00S03256.msi +++|* EXIT EST AND MST TABLE READ INTO BUFFERS. 03343 M00S03257.msi +++|* 03344 M00S03258.msi +++|* USES X - ALL. 03345 M00S03259.msi +++|* A - 1, 2, 5, 6, 7. 03346 M00S03260.msi +++|* B - 7. 03347 M00S03261.msi +++|* 03348 M00S03262.msi +++|* CALLS PRK. 03349 M00S03263.msi +++|* 03350 M00S03264.msi +++|* MACROS CLEAR, GETSSM, MESSAGE, SYSTEM. 03351 M00S03265.msi +++| 03352 M00S03266.msi +++| 03353 M00S03267.msi +++| PRS SUBR ENTRY/EXIT 03354 M00S03268.msi +++| SA5 JOPR CHECK JOB ORIGIN 03355 M00S03269.msi +++| MX0 -12 03356 M00S03270.msi +++| LX5 -24 03357 M00S03271.msi +++| BX5 -X0*X5 03358 M00S03272.msi +++| SB7 X5-SYOT 03359 M00S03273.msi +++| NZ B7,PRS3 IF NOT SYSTEM ORIGIN 03360 M00S03274.msi +++| SX3 KYCT 03361 M00S03275.msi +++| RJ PRK PRESET *K* DISPLAY 03362 M00S03276.msi +++| SX7 TFLA SET FLAW INDEX 03363 M00S03277.msi +++| SA7 FLAI 03364 M00S03278.msi +++| CLEAR ESTB,BUF-ESTB CLEAR *ESTB*, *ESTF*, AND *PKL* 03365 M00S03279.msi +++| CLEAR FLGS,FLGSL,X7 CLEAR FLAGS 03366 M00S03280.msi +++| CLEAR PARC+PMFN,OTBLL,X7 03367 M00S03281.msi +++| SA7 PREQ 03368 M00S03282.msi +++| SA7 CFEB PREVENT SETTING FLAWS FOR SPECIFIED DEVICE 03369 M00S03283.msi +++| SA1 PRSA READ EST POINTER WORD 03370 M00S03284.msi +++| MX6 1 03371 M00S03285.msi +++| BX7 X1 03372 M00S03286.msi +++| SA6 ESTB SET LOW CORE READ 03373 M00S03287.msi +++| SA7 LCRC 03374 M00S03288.msi +++| SYSTEM RSB,R,LCRC 03375 M00S03289.msi +++| SA2 ESTB SET *COMCRSB* ENTRY CONDITIONS 03376 M00S03290.msi +++| MX3 -12 03377 M00S03291.msi +++| SX1 A2 SET ADDRESS TO TRANSFER TO 03378 M00S03292.msi +++| AX2 12 03379 M00S03293.msi +++| BX7 -X3*X2 03380 M00S03294.msi +++| AX2 24 SET ADDRESS TO TRANSFER FROM 03381 M00S03295.msi +++| SA7 PRSB SAVE LAST EST ORDINAL + 1 03382 M00S03296.msi +++| R= X6,ESTE 03383 M00S03297.msi +++| IX3 X7*X6 SET WORD COUNT 03384 M00S03298.msi +++| SX4 B0 SET SUBSYSTEM (= *CMR*) 03385 M00S03299.msi +++| MX6 1 03386 M00S03300.msi +++| SA6 X1 03387 M00S03301.msi +++| RJ RSB= READ EST
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 03388 M01S00052.253l688 +++| GETSSID SSID GET SUBSYSTEM ID 03389 M00S03302.msi +++| GETSSM SSFL GET SYSTEM SECURITY MODE 03390 M00S03303.msi +++| SA1 PRSC READ MMFL WORD 03391 M00S03304.msi +++| MX6 1 03392 M00S03305.msi +++| BX7 X1 03393 M00S03306.msi +++| SA6 SCRB 03394 M00S03307.msi +++| SA7 LCRC 03395 M00S03308.msi +++| SYSTEM RSB,R,LCRC 03396 M00S03309.msi +++| SA1 SCRB SET LINK DEVICE 03397 M00S03310.msi +++| MX6 -9 03398 M00S03311.msi +++| LX1 59-35 03399 M00S03312.msi +++| BX6 -X6*X1 03400 M00S03313.msi +++| NZ X6,PRS1 IF LINK DEVICE DEFINED 03401 M00S03314.msi +++| R= X6,NEEQ 03402 M00S03315.msi +++| PRS1 SA6 LINK 03403 M00S03316.msi +++| SX6 BUF READ MST,S FOR ALL MASS STORAGE 03404 M00S03317.msi +++| SA6 BUFI 03405 M00S03318.msi +++| SX6 NOPE INITIALIZE EST ORDINAL FOR SEARCH 03406 M00S03319.msi +++| SA6 TEMP 03407 M00S03320.msi +++| PRS2 SA5 TEMP 03408 M00S03321.msi +++| SX7 X5+B1 03409 M00S03322.msi +++| SA7 A5 03410 M00S03323.msi +++| SA1 PRSB CHECK ORDINAL 03411 M00S03324.msi +++| IX6 X5-X1 03412 M00S03325.msi +++| R= X0,ESTE 03413 M00S03326.msi +++| IX7 X5*X0 03414 M00S03327.msi +++| SA1 ESTB+X7+EQDE GET EST ENTRY 03415 M00S03328.msi +++| ZR X6,PRSX IF END OF EST 03416 M00S03329.msi +++| PL X1,PRS2 IF NOT MASS STORAGE 03417 M00S03330.msi +++| MX0 -12 03418 M00S03331.msi +++| SX6 MSTL 03419 M00S03332.msi +++| SA2 BUFI 03420 M00S03333.msi +++| IX7 X2+X6 INCREMENT BUFFER POINTER 03421 M00S03334.msi +++| LX6 36 03422 M00S03335.msi +++| BX1 -X0*X1 03423 M00S03336.msi +++| SA7 A2 03424 M00S03337.msi +++| LX1 18+3 MST ADDRESS 03425 M00S03338.msi +++| BX6 X6+X2 03426 M00S03339.msi +++| IX6 X6+X1 03427 M00S03340.msi +++| SA6 LCRC 03428 M00S03341.msi +++| BX7 X2 03429 M00S03342.msi +++| MX6 1 03430 M00S03343.msi +++| SA7 ESTF+X5 SET MST ADDRESS IN ESTF 03431 M00S03344.msi +++| SA6 X2 FLAG LOW CORE READ 03432 M00S03345.msi +++| SYSTEM RSB,R,LCRC READ MST 03433 M00S03346.msi +++| EQ PRS2 LOOP FOR NEXT DEVICE 03434 M00S03347.msi +++| 03435 M00S03348.msi +++| PRS3 MESSAGE MESK * USER ACCESS NOT VALID.* 03436 M00S03349.msi +++| ABORT 03437 M00S03350.msi +++| 03438 M00S03351.msi +++| PRSA VFD 24/1,18/ESTP,18/ESTB 03439 M00S03352.msi +++| PRSB CON ** LAST MASS STORAGE ORDINAL + 1 03440 M00S03353.msi +++| PRSC VFD 24/1,18/MMFL,18/SCRB 03441 M00S03354.msi +++| TITLE K DISPLAY KEYBOARD MESSAGES 03442 M00S03355.msi +++| SPACE 4 03443 M00S03356.msi +++|* K-DISPLAY KEYBOARD ERROR MESSAGES. 03444 M00S03357.msi +++| 03445 M00S03358.msi +++| ERRF BSS 1 03446 M00S03359.msi +++| ERROR1 DATA 30HUN MUST BE SPECIFIED. 03447 M00S03360.msi +++| ERROR2 DATA 30HNC IS NOT A POWER OF 2. 03448 M00S03361.msi +++| ERROR3 DATA 30HFAMILY MASK NOT EQUAL TO 377. 03449 M00S03362.msi +++| ERROR5 DATA 30HEQ OR DN INCORRECT. 03450 M00S03363.msi +++| ERROR6 DATA 30HINCORRECT ENTRY. 03451 M00S03364.msi +++| ERROR7 DATA 30HFM OR PN MUST BE SPECIFIED. 03452 M00S03365.msi +++| ERROR8 DATA 30HNP GREATER THAN 8. 03453 M00S03366.msi +++| ERROR9 DATA 30HDUPLICATE PN. 03454 M00S03367.msi +++| ERROR10 DATA 30HNC EXCEEDS 200B. 03455 M00S03368.msi +++| ERROR11 DATA 30HCANNOT ALLOCATE DEVICE. 03456 M00S03369.msi +++| ERROR12 DATA 30HNOT AUXILIARY PACK. 03457 M00S03370.msi +++| ERROR13 DATA 30HDUPLICATE DN. 03458 M00S03371.msi +++| ERROR15 DATA 30HDEVICE NOT REMOVABLE. 03459 M00S03372.msi +++| ERROR16 DATA 30HNP NOT ALLOWED. 03460 M00S03373.msi +++| ERROR17 DATA 30HDUPLICATE BITS IN MASK. 03461 M00S03374.msi +++| ERROR18 DATA 30HDEVICE NOT FIRST IN CHAIN. 03462 M00S03375.msi +++| ERROR19 DATA 30HEQXXX, INITIALIZE BIT NOT SET. 03463 M00S03376.msi +++| ERROR20 DATA 30HDN CANNOT BE ZERO. 03464 M00S03377.msi +++| ERROR21 DATA 30HEQXXX, FORMAT PENDING. 03465 M00S03378.msi +++| ERROR22 DATA 30HDEFINED DEVICE ALREADY EXISTS. 03466 M00S03379.msi +++| ERROR23 DATA 30HEQXXX, NO FULL TRACK ACCESS. 03467 M00S03380.msi +++| ERROR24 DATA 30HDEADSTART INITIALIZE REQUIRED. 03468 M00S03381.msi +++| ERROR25 DATA 30HFULL INITIALIZE REQUIRED. 03469 M00S03382.msi +++| ERROR26 DATA 30HEQXXX, TRACK LIMIT. 03470 M00S03383.msi +++| ERROR27 DATA 30HUA NOT WITHIN LIMIT. 03471 M00S03384.msi +++| ERROR28 DATA 30HLA NOT WITHIN LIMIT. 03472 M00S03385.msi +++| ERROR29 DATA 30HLA GREATER THAN UA. 03473 M00S03386.msi +++| ERROR30 DATA 30HUNKNOWN ACCESS LEVEL NAME. 03474 M00S03387.msi +++| 03475 M00S03388.msi +++|* K-DISPLAY KEYBOARD INFORMATIVE MESSAGES. 03476 M00S03389.msi +++| 03477 M00S03390.msi +++| REQOP DATA 30HENTER OPTION. 03478 M00S03391.msi +++| REQEQ DATA 30HENTER EST ORDINAL. 03479 M00S03392.msi +++| REQPM DATA 30HENTER PARAMETERS. 03480 M00S03393.msi +++| ENOFN DATA 30HENTER OLD FAMILY NAME. 03481 M00S03394.msi +++| ENOPN DATA 30HENTER OLD PACK NAME. 03482 M00S03395.msi +++| ENOUN DATA 30HENTER OLD USER NAME. 03483 M00S03396.msi +++| ENODN DATA 30HENTER OLD DEVICE NUMBER. 03484 M00S03397.msi +++| ENNFN DATA 30HENTER NEW FAMILY/PACK NAME. 03485 M00S03398.msi +++| ENFLS DATA 30HENTER FLAWS. 03486 M00S03399.msi +++| ENID DATA 30HENTER IDENTITY OF EQXXX. 03487 M00S03400.msi +++| EDRN DATA 30HEND OF RUN. 03488 M00S03401.msi +++| ENCL DATA 30HENTER CLEAR OR RERUN. 03489 M00S03402.msi +++| 03490 M00S03403.msi +++|* DAYFILE MESSAGES. 03491 M00S03404.msi +++| 03492 M00S03405.msi +++| MESA DATA C* EQXXX, ACTIVE FILES, CANNOT INITIALIZE.* 03493 M00S03406.msi +++| MESB DATA C* MSI ABORTED INITIALIZE MAY NOT BE COMPLETE.* 03494 M00S03407.msi +++| MESC DATA C* NO INITIALIZE REQUESTS SET FOR MSI.* 03495 M00S03408.msi +++| MESD DATA C* INTERNAL ERROR IN MSI.* 03496 M00S03409.msi +++| MESE DATA C* EQXXX, UNABLE TO INITIALIZE IQFT.* 03497 M00S03410.msi +++| MESF DATA C* IQFT FILE INTERLOCKED.* 03498 M00S03411.msi +++| MESG DATA C* NO IQFT FILE FOUND.* 03499 M00S03412.msi +++| MESH DATA C* UNABLE TO READ IQFT FILE.* 03500 M00S03413.msi +++| MESI DATA C* EQXXX, INACTIVE QUEUES INITIALIZED.* 03501 M00S03414.msi +++| MESJ DATA C* LINK DEVICE CANNOT BE ALTERED.* 03502 M00S03415.msi +++| MESK DATA C* USER ACCESS NOT VALID.*
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 03503 M01S00053.253l688 +++| MESL DATA C* MSI HUNG.* 03504 M00S03416.msi +++| TITLE KEYBOARD INPUT PROCESSOR. 03505 M00S03417.msi +++| PKI SPACE 4,10 03506 M00S03418.msi +++|** PKI - PROCESS KEYBOARD INPUT. 03507 M00S03419.msi +++|* 03508 M00S03420.msi +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 03509 M00S03421.msi +++|* A - 0, 1, 2, 4, 5, 6, 7. 03510 M00S03422.msi +++|* B - 2, 3, 4, 5, 7. 03511 M00S03423.msi +++|* 03512 M00S03424.msi +++|* CALLS ARG, CFE, DTY, DXB, RPT, SPT. 03513 M00S03425.msi +++| 03514 M00S03426.msi +++| 03515 M00S03427.msi +++| PKI SUBR ENTRY/EXIT 03516 M00S03428.msi +++| PKI1 EQ KIP KEYBOARD INPUT PROCESSOR 03517 M00S03429.msi +++| 03518 M00S03430.msi +++| PKI2 ZR B6,PKI3 IF NO PARAMETERS ENTERED 03519 M00S03431.msi +++| KEYMES BLK BLANK MESSAGE LINE 03520 M00S03432.msi +++| SB4 PAR 03521 M00S03433.msi +++| RJ CFE CHECK FOR FLAW ENTRY 03522 M00S03434.msi +++| NZ X4,PKI3 IF ERROR 03523 M00S03435.msi +++| ZR X2,PKI1 IF FLAW ENTRY 03524 M00S03436.msi +++| SA4 PAR 03525 M00S03437.msi +++| SA2 ARGP 03526 M00S03438.msi +++| SB4 B6 03527 M00S03439.msi +++| SB5 X2 03528 M00S03440.msi +++| RJ ARG 03529 M00S03441.msi +++| ZR X1,PKI4 IF NO ARGUMENT ERRORS 03530 M00S03442.msi +++| PKI3 ERROR 6 *INCORRECT ENTRY.* 03531 M00S03443.msi +++| EQ PKI1 LOOP FOR NEW DATA 03532 M00S03444.msi +++| 03533 M00S03445.msi +++| PKI4 BX6 X6-X6 CLEAR ERROR FLAG 03534 M00S03446.msi +++| SA6 ERRF 03535 M00S03447.msi +++| SB2 TENP SET INITIAL REGISTERS 03536 M00S03448.msi +++| SB4 PARC 03537 M00S03449.msi +++| SA0 DATB 03538 M00S03450.msi +++| 03539 M00S03451.msi +++|* PROCESS NAMES. 03540 M00S03452.msi +++| 03541 M00S03453.msi +++| SB3 NNME SET NUMBER OF NAMES TO PROCESS 03542 M00S03454.msi +++| PKI5 SA2 B2 GET NAME 03543 M00S03455.msi +++| ZR X2,PKI7 IF NAME NOT ENTERED 03544 M00S03456.msi +++| BX7 X2 SAVE CONVERTED PARAMETER 03545 M00S03457.msi +++| SA1 A0 DISPLAY ENTERED PARAMETER 03546 M00S03458.msi +++| SA7 X1 03547 M00S03459.msi +++| SA1 =1L0 03548 M00S03460.msi +++| BX1 X7-X1 03549 M00S03461.msi +++| NZ X1,PKI6 IF NOT *0* 03550 M00S03462.msi +++| BX7 X7-X7 03551 M00S03463.msi +++| PKI6 SA7 B4 STORE PARAMETER 03552 M00S03464.msi +++| PKI7 SB2 B2+B1 INCREMENT POINTERS 03553 M00S03465.msi +++| SB3 B3-B1 03554 M00S03466.msi +++| SB4 B4+B1 03555 M00S03467.msi +++| SA0 A0+B1 03556 M00S03468.msi +++| NZ B3,PKI5 IF MORE NAMES TO PROCESS 03557 M00S03469.msi +++| 03558 M00S03470.msi +++|* PROCESS OCTAL PARAMETERS. 03559 M00S03471.msi +++| 03560 M00S03472.msi +++| SB3 NOCT SET NUMBER OF OCTAL PARAMETERS 03561 M00S03473.msi +++| SB7 B0 03562 M00S03474.msi +++| PKI8 SA5 B2 GET OCTAL PARAMETER 03563 M00S03475.msi +++| ZR X5,PKI10 IF PARAMETER NOT ENTERED 03564 M00S03476.msi +++| RJ SPT SAVE POINTERS 03565 M00S03477.msi +++| RJ DXB CONVERT PARAMETER 03566 M00S03478.msi +++| RJ RPT RESTORE POINTERS 03567 M00S03479.msi +++| ZR X4,PKI9 IF NO ERROR IN CONVERSION 03568 M00S03480.msi +++| SX6 B1 SET ERROR FLAG 03569 M00S03481.msi +++| SA6 ERRF 03570 M00S03482.msi +++| EQ PKI10 INCREMENT POINTERS 03571 M00S03483.msi +++| 03572 M00S03484.msi +++| PKI9 SA6 B4 SAVE CONVERTED VALUE 03573 M00S03485.msi +++| SA1 B2 DISPLAY ENTERED PARAMETER 03574 M00S03486.msi +++| BX6 X1 03575 M00S03487.msi +++| SA1 A0 03576 M00S03488.msi +++| SA6 X1 03577 M00S03489.msi +++| PKI10 SB2 B2+B1 INCREMENT POINTERS 03578 M00S03490.msi +++| SB3 B3-B1 03579 M00S03491.msi +++| SB4 B4+B1 03580 M00S03492.msi +++| SA0 A0+B1 03581 M00S03493.msi +++| NZ B3,PKI8 IF MORE OCTAL PARAMETERS TO PROCESS 03582 M00S03494.msi +++| 03583 M00S03495.msi +++|* CLEAR OUT ENTRY AREA. 03584 M00S03496.msi +++| 03585 M00S03497.msi +++| SB3 OTBLL-1 SET PARAMETER AREA LENGTH 03586 M00S03498.msi +++| SB2 PARE 03587 M00S03499.msi +++| BX6 X6-X6 03588 M00S03500.msi +++| PKI11 SA6 B2+B3 03589 M00S03501.msi +++| SB3 B3-B1 03590 M00S03502.msi +++| PL B3,PKI11 IF MORE TO CLEAR 03591 M00S03503.msi +++| RJ DTY GET FLAW PROCESSOR 03592 M00S03504.msi +++| AX3 18 03593 M00S03505.msi +++| SX6 X3 03594 M00S03506.msi +++| SA6 DFPR 03595 M00S03507.msi +++| 03596 M00S03508.msi +++|* CHECK FOR ERROR CONDITION. 03597 M00S03509.msi +++| 03598 M00S03510.msi +++| SA1 ERRF CHECK FOR ERROR IN CONVERSION 03599 M00S03511.msi +++| SA2 CNT 03600 M00S03512.msi +++| NZ X1,PKI3 DISPLAY ERROR MESSAGE 03601 M00S03513.msi +++| SX7 X2-1 03602 M00S03514.msi +++| SA7 CNT 03603 M00S03515.msi +++| ZR X7,PKIX IF END OF EXPECTED PARAMETERS 03604 M00S03516.msi +++| EQ PKI1 GO FOR NEXT PARAMETER 03605 M00S03517.msi +++| RPT SPACE 4,10 03606 M00S03518.msi +++|** RPT - RESTORE POINTERS. 03607 M00S03519.msi +++|* 03608 M00S03520.msi +++|* ENTRY SPTA = ENTERED PARAMETER ADDRESS. 03609 M00S03521.msi +++|* SPTA+1 = NUMBER OF PARAMETERS TO PROCESS. 03610 M00S03522.msi +++|* SPTA+2 = CONVERTED PARAMETER ADDRESS. 03611 M00S03523.msi +++|* 03612 M00S03524.msi +++|* EXIT (B2), (B3) AND (B4) RESTORED. 03613 M00S03525.msi +++|* 03614 M00S03526.msi +++|* USES X - 1, 2. 03615 M00S03527.msi +++|* A - 1, 2. 03616 M00S03528.msi +++|* B - 2, 3, 4. 03617 M00S03529.msi +++| 03618 M00S03530.msi +++| 03619 M00S03531.msi +++| RPT SUBR ENTRY/EXIT 03620 M00S03532.msi +++| SA1 SPTA 03621 M00S03533.msi +++| SA2 A1+B1 03622 M00S03534.msi +++| SB2 X1 03623 M00S03535.msi +++| SB3 X2 03624 M00S03536.msi +++| SA1 A2+B1 03625 M00S03537.msi +++| SB4 X1 03626 M00S03538.msi +++| EQ RPTX EXIT 03627 M00S03539.msi +++| SPT SPACE 4,10 03628 M00S03540.msi +++|** SPT - SAVE POINTERS. 03629 M00S03541.msi +++|* 03630 M00S03542.msi +++|* ENTRY (B2) = ENTERED PARAMETER ADDRESS. 03631 M00S03543.msi +++|* (B3) = NUMBER OF PARAMETERS LEFT TO PROCESS. 03632 M00S03544.msi +++|* (B4) = CONVERTED PARAMETER ADDRESS. 03633 M00S03545.msi +++|* 03634 M00S03546.msi +++|* EXIT (SPTA - SPTA+1) = (B2), (B3) AND (B4). 03635 M00S03547.msi +++|* 03636 M00S03548.msi +++|* USES X - 6, 7. 03637 M00S03549.msi +++|* A - 6, 7. 03638 M00S03550.msi +++|* B - NONE. 03639 M00S03551.msi +++| 03640 M00S03552.msi +++| 03641 M00S03553.msi +++| SPT SUBR ENTRY/EXIT 03642 M00S03554.msi +++| SX6 B2 03643 M00S03555.msi +++| SX7 B3 03644 M00S03556.msi +++| SA6 SPTA 03645 M00S03557.msi +++| SA7 A6+B1 03646 M00S03558.msi +++| SX6 B4 03647 M00S03559.msi +++| SA6 A7+B1 03648 M00S03560.msi +++| EQ SPTX EXIT 03649 M00S03561.msi +++| 03650 M00S03562.msi +++| 03651 M00S03563.msi +++| SPTA BSS 1 ADDRESS OF ENTERED PARAMETER 03652 M00S03564.msi +++| BSS 1 NUMBER OF PARAMETERS LEFT TO PROCESS 03653 M00S03565.msi +++| BSS 1 ADDRESS OF CONVERTED PARAMETERS 03654 M00S03566.msi +++| TITLE PROCESS FLAW ENTRIES 03655 M00S03567.msi +++|** CFE - CHECK FOR FLAW ENTRY. 03656 M00S03568.msi +++|* 03657 M00S03569.msi +++|* ENTRY (B4) = ADDRESS OF PARAMETER. 03658 M00S03570.msi +++|* (B6) = PARAMETER COUNT. 03659 M00S03571.msi +++|* 03660 M00S03572.msi +++|* EXIT (X2) = 0, IF FLAW ENTRY. 03661 M00S03573.msi +++|* (X4) = 0, IF NO ERROR. 03662 M00S03574.msi +++|* 03663 M00S03575.msi +++|* USES X - ALL. 03664 M00S03576.msi +++|* A - 0, 1, 2, 3, 4, 6, 7. 03665 M00S03577.msi +++|* B - 2, 3, 4, 6. 03666 M00S03578.msi +++|* 03667 M00S03579.msi +++|* CALLS COD, FMD, FRD, RPA, SFN. 03668 M00S03580.msi +++| 03669 M00S03581.msi +++| 03670 M00S03582.msi +++| CFE SUBR ENTRY/EXIT 03671 M00S03583.msi +++| SX7 B1 SELECT *SET FLAW* AS DEFAULT 03672 M00S03584.msi +++| SA7 CFEA 03673 M00S03585.msi +++| SA1 B4 03674 M00S03586.msi +++| MX0 18 03675 M00S03587.msi +++| SX3 1R= 03676 M00S03588.msi +++| BX4 -X0*X1 03677 M00S03589.msi +++| SX2 B1 03678 M00S03590.msi +++| IX3 X3-X4 03679 M00S03591.msi +++| BX4 X4-X4 03680 M00S03592.msi +++| NZ X3,CFEX IF NOT EQUIVALENCED 03681 M00S03593.msi +++| SA3 CFEB 03682 M00S03594.msi +++| ZR X3,CFEX IF FLAWS NOT ALLOWED YET 03683 M00S03595.msi +++| SA3 =0LCPF 03684 M00S03596.msi +++| BX6 X0*X1 03685 M00S03597.msi +++| BX2 X6-X3 03686 M00S03598.msi +++| ZR X2,CFE2 IF CLEARING PHYSICAL FLAW 03687 M00S03599.msi +++| SA3 =0LSPF 03688 M00S03600.msi +++| BX2 X6-X3 03689 M00S03601.msi +++| ZR X2,CFE2.1 IF SETTING PHYSICAL FLAW 03690 M00S03602.msi +++| SA3 =0LSLF 03691 M00S03603.msi +++| BX2 X6-X3 03692 M00S03604.msi +++| ZR X2,CFE1 IF SETTING LOGICAL FLAW 03693 M00S03605.msi +++| SA3 =0LCLF 03694 M00S03606.msi +++| BX2 X6-X3 03695 M00S03607.msi +++| NZ X2,CFEX IF NOT CLEARING LOGICAL FLAW 03696 M00S03608.msi +++| 03697 M00S03609.msi +++|* PROCESS *CLF* ENTRY. 03698 M00S03610.msi +++| 03699 M00S03611.msi +++| SX7 B1+B1 SELECT *CLEAR FLAW* OPTION 03700 M00S03612.msi +++| SA7 CFEA 03701 M00S03613.msi +++| 03702 M00S03614.msi +++|* PROCESS *SLF* ENTRY. 03703 M00S03615.msi +++| 03704 M00S03616.msi +++| CFE1 SX4 B1 PRESET RESPONSE 03705 M00S03617.msi +++| SB6 B6-B1 03706 M00S03618.msi +++| NE B6,B1,CFEX IF INCORRECT ENTRY 03707 M00S03619.msi +++| SB4 B4+B1 03708 M00S03620.msi +++| SX1 B0 03709 M00S03621.msi +++| SX2 7777B LIMIT 03710 M00S03622.msi +++| RJ RPA RETRIEVE PARAMETER 03711 M00S03623.msi +++| NZ X4,CFEX IF ERROR 03712 M00S03624.msi +++| EQ CFER STORE ENTRY 03713 M00S03625.msi +++| 03714 M00S03626.msi +++|* PROCESS *CPF* ENTRY. 03715 M00S03627.msi +++| 03716 M00S03628.msi +++| CFE2 SX7 B1+B1 SELECT *CLEAR FLAW* OPTION 03717 M00S03629.msi +++| SA7 CFEA 03718 M00S03630.msi +++| 03719 M00S03631.msi +++|* PROCESS *SPF* ENTRY. 03720 M00S03632.msi +++| 03721 M00S03633.msi +++| CFE2.1 SB4 B4+B1 03722 M00S03634.msi +++| SB6 B6-B1 03723 M00S03635.msi +++| SA1 DFPR 03724 M00S03636.msi +++| ZR X1,FMD IF LARGE MEMORY DEVICE 03725 M00S03637.msi +++| SA0 X1 SET PHYSICAL DESCRIPTOR ENTRY ADDRESS 03726 M00S03638.msi +++| EQ FRD FLAW ROTATING MASS STORAGE DEVICE 03727 M00S03639.msi +++| 03728 M00S03640.msi +++| CFER NZ X4,CFEX IF ERROR 03729 M00S03641.msi +++| SA1 FLAI 03730 M00S03642.msi +++| SX3 X1-TFLA-PNFE 03731 M00S03643.msi +++| SX4 B1 PRESET ERROR 03732 M00S03644.msi +++| SX7 X1+B1 INCREMENT POINTER 03733 M00S03645.msi +++| PL X3,CFEX IF LIMIT EXCEEDED 03734 M00S03646.msi +++| SA2 CFEA 03735 M00S03647.msi +++| SA7 A1 03736 M00S03648.msi +++| LX2 48 03737 M00S03649.msi +++| BX6 X6+X2 03738 M00S03650.msi +++| SA6 X1 03739 M00S03651.msi +++| MX0 -12 FORM MASK FOR LOGICAL ENTRY 03740 M00S03652.msi +++| BX1 -X0*X6 MASK OFF 03741 M00S03653.msi +++| BX5 X6 SAVE X6 03742 M00S03654.msi +++| RJ COD CONVERT TO DISPLAY CODE 03743 M00S03655.msi +++| SA1 DASM 03744 M00S03656.msi +++| SA0 X1 SAVE LAST ADDRESS 03745 M00S03657.msi +++| SX7 X1+6 03746 M00S03658.msi +++| SA7 A1 03747 M00S03659.msi +++| SA6 X1 03748 M00S03660.msi +++| SA4 DAST GET DISPLAY ADDRESS 03749 M00S03661.msi +++| SX7 X4+6 03750 M00S03662.msi +++| SA1 I DISPLAY ENTRY 03751 M00S03663.msi +++| SA7 A4 03752 M00S03664.msi +++| BX0 X4 SAVE (X4) 03753 M00S03665.msi +++| RJ SFN 03754 M00S03666.msi +++| SA6 X4 03755 M00S03667.msi +++| SA1 A1+B1 03756 M00S03668.msi +++| RJ SFN 03757 M00S03669.msi +++| SA6 X0+B1 03758 M00S03670.msi +++| SB3 A0 LAST ADDRESS OF LOGICAL TRACK 03759 M00S03671.msi +++| SB2 LTDS+3 03760 M00S03672.msi +++| SA4 STAR PRESET STAR 03761 M00S03673.msi +++| BX6 X4 03762 M00S03674.msi +++| CFE3 EQ B2,B3,CFE5 IF END OF LOOP - EXIT 03763 M00S03675.msi +++| SA3 B3 MORE ENTRIES 03764 M00S03676.msi +++| SA2 B2 03765 M00S03677.msi +++| IX5 X3-X2 03766 M00S03678.msi +++| NZ X5,CFE4 IF NOT EQUAL GO TO NEXT ENTRY 03767 M00S03679.msi +++| SA6 B3+2 WRITE STAR TO BOTH ENTRIES 03768 M00S03680.msi +++| SA6 B2+2 03769 M00S03681.msi +++| CFE4 SB2 B2+6 INCREMENT TO NEXT ENTRY 03770 M00S03682.msi +++| EQ CFE3 LOOP 03771 M00S03683.msi +++| 03772 M00S03684.msi +++| CFE5 BX4 X4-X4 CLEAR X4 03773 M00S03685.msi +++| BX2 X2-X2 03774 M00S03686.msi +++| EQ CFEX RETURN 03775 M00S03687.msi +++| 03776 M00S03688.msi +++| CFEA BSSZ 1 FLAW TYPE INDICATOR 03777 M00S03689.msi +++| CFEB CON 0 *FLAWS ALLOWED* FLAG 03778 M00S03690.msi +++| STAR DIS 1, * 03779 M00S03691.msi +++| 03780 M00S03692.msi +++| LRDS VFD 24/I,18/R,18/L FLAW K-DISPLAY CONTROL WORD 03781 M00S03693.msi +++| 03782 M00S03694.msi +++|* FLAW PROCESSOR TABLE. 03783 M00S03695.msi +++| 03784 M00S03696.msi +++| DFPR CON 0 03785 M00S03697.msi +++| RPA SPACE 4,10 03786 M00S03698.msi +++|** RPA - RETRIEVE PARAMETERS. 03787 M00S03699.msi +++|* 03788 M00S03700.msi +++|* ENTRY (B4) = ADDRESS OF PARAMETER. 03789 M00S03701.msi +++|* (X1) = 0, IF NO PARAMETER CHECK REQUIRED. 03790 M00S03702.msi +++|* (X1) = RIGHT JUSTIFIED CHARACTER TO CHECK FOR. 03791 M00S03703.msi +++|* (X2) = MAXIMUM VALUE. 03792 M00S03704.msi +++|* 03793 M00S03705.msi +++|* EXIT (X4) = 0, IF NO ERROR. 03794 M00S03706.msi +++|* (X6) = PARAMETER. 03795 M00S03707.msi +++|* (B4) = ADDRESS OF NEXT PARAMETER. 03796 M00S03708.msi +++|* 03797 M00S03709.msi +++|* USES X - 0, 1, 2, 4, 5, 6. 03798 M00S03710.msi +++|* A - 1, 5, 6. 03799 M00S03711.msi +++|* B - 4, 7. 03800 M00S03712.msi +++|* 03801 M00S03713.msi +++|* CALLS DXB. 03802 M00S03714.msi +++| 03803 M00S03715.msi +++| 03804 M00S03716.msi +++| RPA SUBR ENTRY/EXIT 03805 M00S03717.msi +++| SB7 B0 SET OCTAL BASE 03806 M00S03718.msi +++| SX6 B1 03807 M00S03719.msi +++| LX1 54 03808 M00S03720.msi +++| IX6 X2-X6 ADJUST MAXIMUM COUNT 03809 M00S03721.msi +++| SA5 B4 GET PARAMETER 03810 M00S03722.msi +++| SA6 RPAA SAVE MAXIMUM VALUE 03811 M00S03723.msi +++| ZR X1,RPA1 IF NO CHARACTER TO CHECK 03812 M00S03724.msi +++| MX0 6 03813 M00S03725.msi +++| BX2 X0*X5 03814 M00S03726.msi +++| BX4 X2-X1 03815 M00S03727.msi +++| NZ X4,RPAX IF INCORRECT ENTRY 03816 M00S03728.msi +++| LX5 6 03817 M00S03729.msi +++| RPA1 MX0 36 MASK OFF VALUE 03818 M00S03730.msi +++| BX5 X0*X5 03819 M00S03731.msi +++| SX6 B4 SAVE PARAMETER ADDRESS 03820 M00S03732.msi +++| SA6 RPAB 03821 M00S03733.msi +++| RJ DXB CONVERT TO OCTAL 03822 M00S03734.msi +++| SA1 RPAB RESTORE PARAMETER ADDRESS 03823 M00S03735.msi +++| SB4 X1+B1 03824 M00S03736.msi +++| NZ X4,RPAX RETURN - IF ERROR 03825 M00S03737.msi +++| SA1 RPAA 03826 M00S03738.msi +++| IX4 X1-X6 03827 M00S03739.msi +++| NG X4,RPAX IF MAXIMUM VALUE EXCEEDED 03828 M00S03740.msi +++| BX4 X4-X4 03829 M00S03741.msi +++| EQ RPAX RETURN 03830 M00S03742.msi +++| 03831 M00S03743.msi +++| RPAA BSSZ 1 HOLD FOR MAXIMUM VALUE 03832 M00S03744.msi +++| RPAB BSSZ 1 HOLD FOR PARAMETER ADDRESS 03833 M00S03745.msi +++| SPACE 4 03834 M00S03746.msi +++|** FLAW ROUTINES. 03835 M00S03747.msi +++|* 03836 M00S03748.msi +++|* ENTRY (B4) = PARAMETER ADDRESS. 03837 M00S03749.msi +++|* (B6) = PARAMETER COUNT. 03838 M00S03750.msi +++|* 03839 M00S03751.msi +++|* EXIT (X4) = 0, IF NO ERROR. 03840 M00S03752.msi +++|* = 1, IF ERROR. 03841 M00S03753.msi +++|* (X6) = LOGICAL TRACK TO FLAW. 03842 M00S03754.msi +++|* 03843 M00S03755.msi +++|* USES X - ALL. 03844 M00S03756.msi +++|* A - 0, 1, 2, 3, 5, 6. 03845 M00S03757.msi +++|* B - ALL. 03846 M00S03758.msi +++|* 03847 M00S03759.msi +++|* CALLS RPA. 03848 M00S03760.msi +++| 03849 M00S03761.msi +++| FMD SPACE 4,10 03850 M00S03762.msi +++|** FMD - FLAW LARGE MEMORY DEVICES. 03851 M00S03763.msi +++| 03852 M00S03764.msi +++| 03853 M00S03765.msi +++| FMD SX4 B6-B1 03854 M00S03766.msi +++| R= X1,1RA 03855 M00S03767.msi +++| NZ X4,CFER IF ERROR 03856 M00S03768.msi +++| SA2 =100000000 03857 M00S03769.msi +++| RJ RPA RETRIEVE ADDRESS 03858 M00S03770.msi +++| NZ X4,CFER IF ERROR 03859 M00S03771.msi +++| SX1 202B CONVERT TRACK ADDRESS 03860 M00S03772.msi +++| SA4 PARC+PMEQ EXTRACT XM SHIFT 03861 M00S03773.msi +++| R= X5,ESTE 03862 M00S03774.msi +++| IX5 X4*X5 03863 M00S03775.msi +++| SA5 ESTB+X5+EQAE 03864 M00S03776.msi +++| MX0 -2 03865 M00S03777.msi +++| LX5 -30 03866 M00S03778.msi +++| BX5 -X0*X5 03867 M00S03779.msi +++| SB7 X5 03868 M00S03780.msi +++| LX1 B7 03869 M00S03781.msi +++| IX6 X6/X1 03870 M00S03782.msi +++| NZ X5,FMD1 IF NOT DEFAULT TRACK SIZE 03871 M00S03783.msi +++| SX4 CETK-4000B 03872 M00S03784.msi +++| IX4 X6-X4 03873 M00S03785.msi +++| NZ X4,FMD1 IF NOT CETK 03874 M00S03786.msi +++| SX4 B1 03875 M00S03787.msi +++| EQ CFER 03876 M00S03788.msi +++| 03877 M00S03789.msi +++| FMD1 BX4 X4-X4 SET NO ERROR RESPONSE 03878 M00S03790.msi +++| EQ CFER RETURN 03879 M00S03791.msi +++| FRD SPACE 4,10 03880 M00S03792.msi +++|** FRD - FLAW ROTATING MASS STORAGE DEVICES. 03881 M00S03793.msi +++| 03882 M00S03794.msi +++| 03883 M00S03795.msi +++|* GET AND VERIFY THE CYLINDER, TRACK AND SECTOR VALUES GIVEN 03884 M00S03796.msi +++|* BY THE USER. FOR BUFFERED MASS STORAGE DEVICES, THE SECTOR 03885 M00S03797.msi +++|* NUMBER VALUE ENTERED BY THE USER MUST BE CONVERTED TO THE 03886 M00S03798.msi +++|* MAPPING USED BY THE OPERATING SYSTEM. 03887 M00S03799.msi +++| 03888 M00S03800.msi +++| FRD SX4 B6-3 03889 M00S03801.msi +++| NZ X4,CFER IF TOO MANY PARAMETERS 03890 M00S03802.msi +++| SX1 1RC 03891 M00S03803.msi +++| SA2 A0 GET CYLINDER LIMIT FOR THIS DEVICE 03892 M00S03804.msi +++| MX0 -12 03893 M00S03805.msi +++| AX2 48 03894 M00S03806.msi +++| BX2 -X0*X2 03895 M00S03807.msi +++| RJ RPA GET CYLINDER SPECIFIED BY USER 03896 M00S03808.msi +++| NZ X4,CFER IF INCORRECT CYLINDER VALUE GIVEN 03897 M00S03809.msi +++| SA6 FRDA SAVE CYLINDER NUMBER 03898 M00S03810.msi +++| SX1 1RT 03899 M00S03811.msi +++| SA2 A0 GET TRACK LIMIT FOR THIS DEVICE 03900 M00S03812.msi +++| MX0 -6 03901 M00S03813.msi +++| AX2 42 03902 M00S03814.msi +++| BX2 -X0*X2 03903 M00S03815.msi +++| RJ RPA GET TRACK SPECIFIED BY USER 03904 M00S03816.msi +++| NZ X4,CFER IF INCORRECT TRACK VALUE GIVEN 03905 M00S03817.msi +++| SA6 FRDB SAVE TRACK NUMBER 03906 M00S03818.msi +++| SX1 1RS 03907 M00S03819.msi +++| SA2 A0 GET SECTOR LIMIT FOR THIS DEVICE
| Line S03820 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03908 M01S03820.271l716 ---| MX0 -9 03909 M01S03821.271l716 ---| AX2 33
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03910 M01S00002.271l716 +++| MX0 -6 03911 M01S00003.271l716 +++| AX2 36 03912 M00S03822.msi +++| BX2 -X0*X2 03913 M00S03823.msi +++| RJ RPA GET SECTOR SPECIFIED BY USER 03914 M00S03824.msi +++| NZ X4,CFER IF INCORRECT SECTOR VALUE GIVEN
| Line S03825 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03915 M01S03825.271l716 ---| SA3 A0+ 03916 M01S03826.271l716 ---| 03917 M01S03827.271l716 ---|* MULTIPLY THE CYLINDER VALUE BY THE NUMBER OF LOGICAL TRACKS 03918 M01S03828.271l716 ---|* PER CYLINDER. 03919 M01S03829.271l716 ---| 03920 M01S03830.271l716 ---| SA1 FRDA CYLINDER NUMBER 03921 M01S03831.271l716 ---| MX0 -3 03922 M01S03832.271l716 ---| LX3 -30 03923 M01S03833.271l716 ---| BX2 -X0*X3 LOGICAL TRACKS / CYLINDER 03924 M01S03834.271l716 ---| IX1 X1*X2 03925 M01S03835.271l716 ---| 03926 M01S03836.271l716 ---|* COMPUTE THE RELATIVE OFFSET OF THE SPECIFIED SECTOR FROM THE 03927 M01S03837.271l716 ---|* BEGINNING OF THE CYLINDER. 03928 M01S03838.271l716 ---| 03929 M01S03839.271l716 ---| SA2 FRDB TRACK NUMBER 03930 M01S03840.271l716 ---| MX0 -9 03931 M01S03841.271l716 ---| LX3 30-33 03932 M01S03842.271l716 ---| BX5 -X0*X3 PHYSICAL SECTORS / PHYSICAL TRACK 03933 M01S03843.271l716 ---| IX5 X5*X2 03934 M01S03844.271l716 ---| IX6 X6+X5 RELATIVE SECTOR OFFSET INTO CYLINDER 03935 M01S03845.271l716 ---| LX3 59-14+33-0-60 03936 M01S03846.271l716 ---| PL X3,FRD3 IF A FULL TRACK DEVICE 03937 M01S03847.271l716 ---| 03938 M01S03848.271l716 ---|* FOR HALF TRACK DEVICES, DETERMINE WHICH LOGICAL TRACK IN THE 03939 M01S03849.271l716 ---|* CYLINDER CONTAINS THE SPECIFIED ADDRESS AND ADD THE LOGICAL 03940 M01S03850.271l716 ---|* TRACK OFFSET TO THE LOGICAL TRACK TOTAL VALUE. FOR ALL HALF 03941 M01S03851.271l716 ---|* TRACK DEVICES EXCEPT *DI*, THE BOTTOM BIT OF THE RELATIVE 03942 M01S03852.271l716 ---|* SECTOR OFFSET IS THE LOGICAL TRACK OFFSET. 03943 M01S03853.271l716 ---| 03944 M01S03854.271l716 ---| SA2 DTYA 03945 M01S03855.271l716 ---| SX2 X2-2RDI 03946 M01S03856.271l716 ---| NZ X2,FRD2 IF NOT A *DI* DEVICE 03947 M01S03857.271l716 ---| MX0 1 03948 M01S03858.271l716 ---| BX3 -X0*X3 03949 M01S03859.271l716 ---| SX0 B1 03950 M01S03860.271l716 ---| BX2 X0*X6 03951 M01S03861.271l716 ---| LX2 1 03952 M01S03862.271l716 ---| IX1 X2+X1 03953 M01S03863.271l716 ---| EQ FRD3 CHECK FOR GAP SECTOR 03954 M01S03864.271l716 ---| 03955 M01S03865.271l716 ---| FRD2 SX0 B1+ THE BOTTOM BIT IS THE LOGICAL TRACK OFFSET 03956 M01S03866.271l716 ---| BX2 X0*X6 03957 M01S03867.271l716 ---| IX1 X2+X1 03958 M01S03868.271l716 ---| 03959 M01S03869.271l716 ---|* FOR FULL TRACK DEVICES, THE LOGICAL TRACK OFFSET IN THE 03960 M01S03870.271l716 ---|* CYLINDER IS DETERMINED BY DIVIDING BY THE NUMBER OF SECTORS 03961 M01S03871.271l716 ---|* PER LOGICAL TRACK, INCLUDING ANY GAP SECTORS. 03962 M01S03872.271l716 ---| 03963 M01S03873.271l716 ---| FRD3 MX0 -3 SAVE NUMBER OF GAP SECTORS 03964 M01S03874.271l716 ---| BX5 -X0*X3 03965 M01S03875.271l716 ---| AX3 3 03966 M01S03876.271l716 ---| MX0 -12 GET PHYSICAL SECTORS PER LOGICAL TRACK 03967 M01S03877.271l716 ---| BX2 -X0*X3 03968 M01S03878.271l716 ---| FRD4 IX6 X6-X2 03969 M01S03879.271l716 ---| NG X6,FRD5 IF IN PREVIOUS LOGICAL TRACK 03970 M01S03880.271l716 ---| NG X3,FRD4 IF A HALF TRACK DEVICE 03971 M01S03881.271l716 ---| SX1 X1+1 03972 M01S03882.271l716 ---| EQ FRD4 LOOP 03973 M01S03883.271l716 ---| 03974 M01S03884.271l716 ---|* DETERMINE WHETHER OR NOT THE USER GAVE THE PHYSICAL ADDRESS 03975 M01S03885.271l716 ---|* OF A GAP SECTOR. IF SO, AVOID SETTING OR CLEARING THE FLAW. 03976 M01S03886.271l716 ---| 03977 M01S03887.271l716 ---| FRD5 IX6 X6+X5 03978 M01S03888.271l716 ---| SX4 B1 03979 M01S03889.271l716 ---| PL X6,CFER IF USER SPECIFIED A GAP SECTOR 03980 M01S03890.271l716 ---| SX4 B0 03981 M01S03891.271l716 ---| BX6 X1
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03982 M01S00004.271l716 +++| SA3 A0 03983 M01S00005.271l716 +++| MX0 -3 03984 M01S00006.271l716 +++| LX3 -33 POSITION CONVERSION FACTOR 03985 M01S00007.271l716 +++| BX2 -X0*X3 03986 M01S00008.271l716 +++| SB7 X2 03987 M01S00009.271l716 +++| LX6 B7 CONVERT PHYSICAL TO LOGICAL SECTOR 03988 M01S00010.271l716 +++| 03989 M01S00011.271l716 +++|* MULTIPLY THE TRACK VALUE BY THE NUMBER OF LOGICAL 03990 M01S00012.271l716 +++|* SECTORS PER PHYSICAL TRACK. 03991 M01S00013.271l716 +++|
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/msi.001.txt · Last modified: by 127.0.0.1