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
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