Seq # *Modification Id* Act
----------------------------+
07310 M01S00564.ns2697 +++|* INITIALIZE SEARCH PARAMETERS.
07311 M01S00565.ns2697 +++|
07312 M01S00566.ns2697 +++| SA5 MSTT-1 INITIALIZE SEARCH ADDRESS
07313 M01S00567.ns2697 +++| SB2 -B1 PRESET ERROR STATUS = NO DEVICE FOR UI
07314 M01S00568.ns2697 +++| SX4 -B1 INITIALIZE BEST DEVICE STATUS
07315 M01S00569.ns2697 +++|
07316 M01S00570.ns2697 +++|* ADVANCE TO NEXT DEVICE AND CHECK DEVICE MASK.
07317 M01S00571.ns2697 +++|
07318 M01S00572.ns2697 +++| SRD1 SA5 A5+2 GET DEVICE PARAMETERS
07319 M01S00573.ns2697 +++| AX2 X5,B6 POSITION DAPF MASK BIT
07320 M01S00574.ns2697 +++| ZR X5,SRDX IF END OF DEVICES
07321 M01S00575.ns2697 +++| PL X2,SRD1 IF USER INDEX NOT ALLOWED ON DEVICE
07322 M01S00576.ns2697 +++|
07323 M01S00577.ns2697 +++|* CHECK ACCESS LEVELS, DEVICE STATE, AND AVAILABLE SPACE.
07324 M01S00578.ns2697 +++|
07325 M01S00579.ns2697 +++| RJ CAL CHECK ACCESS LEVELS
07326 M01S00580.ns2697 +++| SB3 B0 SET ACCESS LEVEL ERROR
07327 M01S00581.ns2697 +++| NG X6,SRD2 IF FILE NOT WITHIN DEVICE LEVELS
07328 M01S00582.ns2697 +++| SX3 B0 SET NO SPACE INCREMENT
07329 M01S00583.ns2697 +++| RJ RAS RETURN AVAILABLE SPACE
07330 M01S00584.ns2697 +++| SB3 B1 SET NO SPACE FOR FILE ERROR
07331 M01S00585.ns2697 +++| ZR X1,SRD2 IF INSUFFICIENT SPACE ON DEVICE
07332 M01S00586.ns2697 +++| IX2 X1-X4
07333 M01S00587.ns2697 +++| NG X2,SRD1 IF PREVIOUS DEVICE BETTER
07334 M01S00588.ns2697 +++| BX4 X1 SET NEW BEST DEVICE STATUS
07335 M01S00589.ns2697 +++| SB2 A5-B1 SET BEST DEVICE POINTER
07336 M01S00590.ns2697 +++| EQ SRD1 ADVANCE TO NEXT DEVICE
07337 M01S00591.ns2697 +++|
07338 M01S00592.ns2697 +++|* PROCESS ACCESS LEVEL CONFLICT OR NO SPACE AVAILABLE.
07339 M01S00593.ns2697 +++|
07340 M01S00594.ns2697 +++| SRD2 SX2 B2-B3
07341 M01S00595.ns2697 +++| PL X2,SRD1 IF NO LOWER PRIORITY ERROR SET
07342 M01S00596.ns2697 +++| SB2 B3 UPDATE ERROR STATUS
07343 M01S00597.ns2697 +++| EQ SRD1 ADVANCE TO NEXT DEVICE
| Line S03332 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
07344 M01S03332.253l688 ---| SSC SPACE 4,10
| Line S00163 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
07345 M01S00163.253l688 +++| SSC SPACE 4,15
07346 M00S03333.pfload +++|** SSC - SET SECTOR COUNTER.
07347 M00S03334.pfload +++|*
07348 M00S03335.pfload +++|* ENTRY (X2) = FET ADDRESS.
07349 M00S03336.pfload +++|* FET NOT BUSY.
07350 M00S03337.pfload +++|*
07351 M00S03338.pfload +++|* EXIT (X2) = FET ADDRESS.
07352 M00S03339.pfload +++|* (X2+FTSC) = SECTOR COUNT IN BUFFER.
07353 M00S03340.pfload +++|*
07354 M00S03341.pfload +++|* USES X - 1, 5, 6, 7.
07355 M00S03342.pfload +++|* A - 1, 5, 6, 7.
07356 M00S03343.pfload +++|*
07357 M00S03344.pfload +++|* MACROS READW.
07358 M00S03345.pfload +++|
07359 M00S03346.pfload +++|
| Line S03347 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07360 M01S03347.ns22000 ---| SSC3 SA1 SSCA RESTORE *IN*
07361 M01S03348.ns22000 ---| SA5 A1+B1 RESTORE *OUT*
| Line S02220 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07362 M01S02220.ns22000 +++| SSC3 SA1 SSCA RESTORE IN
07363 M01S02221.ns22000 +++| SA5 A1+B1 RESTORE OUT
07364 M00S03349.pfload +++| BX6 X1
07365 M00S03350.pfload +++| LX7 X5
07366 M00S03351.pfload +++| SA6 X2+2
07367 M00S03352.pfload +++| SA7 A6+B1
07368 M00S03353.pfload +++|
07369 M00S03354.pfload +++| SSC SUBR ENTRY/EXIT
| Line S03355 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07370 M01S03355.ns22000 ---| SA1 X2+2 SAVE *IN*
07371 M01S03356.ns22000 ---| SA5 A1+B1 SAVE *OUT*
| Line S02222 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07372 M01S02222.ns22000 +++| SA1 X2+2 SAVE IN
07373 M01S02223.ns22000 +++| SA5 A1+B1 SAVE OUT
07374 M00S03357.pfload +++| BX6 X1
07375 M00S03358.pfload +++| LX7 X5
07376 M00S03359.pfload +++| SA6 SSCA
07377 M00S03360.pfload +++| SA7 A6+B1
07378 M00S03361.pfload +++| SA1 X2 SET EOR STATUS IN FET
07379 M00S03362.pfload +++| MX6 48
07380 M00S03363.pfload +++| SX5 23B
07381 M00S03364.pfload +++| BX1 X6*X1
07382 M00S03365.pfload +++| SX7 B0+ CLEAR SECTOR COUNT
07383 M00S03366.pfload +++| BX6 X1+X5
07384 M00S03367.pfload +++| SA7 X2+FTSC
07385 M00S03368.pfload +++| SA6 X2+
07386 M00S03369.pfload +++| SSC1 READW X2,SSCB,B1 READ CONTROL WORD
07387 M00S03370.pfload +++| NZ X1,SSC3 IF BUFFER EMPTY
07388 M00S03371.pfload +++| SA1 SSCB GET SECTOR WORD COUNT
07389 M00S03372.pfload +++| MX6 -12
07390 M00S03373.pfload +++| BX5 -X6*X1
07391 M00S03374.pfload +++| SA1 X2+FTSC INCREMENT SECTOR COUNT
07392 M00S03375.pfload +++| SX6 X1+B1
07393 M00S03376.pfload +++| SA6 A1
07394 M00S03377.pfload +++| SSC2 ZR X5,SSC1 IF END OF SECTOR
07395 M00S03378.pfload +++| READW X2,SSCB,B1 READ ONE WORD OF SECTOR
07396 M00S03379.pfload +++| NZ X1,SSC3 IF BUFFER EMPTY
07397 M00S03380.pfload +++| SX5 X5-1
07398 M00S03381.pfload +++| EQ SSC2 CHECK FOR END OF SECTOR
07399 M00S03382.pfload +++|
| Line S00164 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
07400 M01S00164.253l688 +++|
| Line S03383 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07401 M01S03383.ns22000 ---| SSCA BSS 2 *IN* AND *OUT* SAVE AREA
07402 M01S03384.ns22000 ---| SSCB BSS 1 SCRATCH BUFFER
| Line S02224 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07403 M01S02224.ns22000 +++| SSCA BSSZ 2 IN AND OUT SAVE AREA
07404 M01S02225.ns22000 +++| SSCB CON 0 SCRATCH BUFFER
07405 M00S03385.pfload +++| VFN SPACE 4,10
07406 M00S03386.pfload +++|** VFN - VALIDATE FILE NAME.
07407 M00S03387.pfload +++|*
07408 M00S03388.pfload +++|* ENTRY (TCBF) = CURRENT CATALOG ENTRY.
07409 M00S03389.pfload +++|*
| Line S03390 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07410 M01S03390.v23l617 ---|* EXIT (X3) .GE. 0, IF ILLEGAL FILE NAME.
| Line S00023 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07411 M01S00023.v23l617 +++|* EXIT (X3) .GE. 0, IF FILE NAME NOT VALID
07412 M00S03391.pfload +++|*
07413 M00S03392.pfload +++|* USES X - 0, 1, 2, 3.
07414 M00S03393.pfload +++|* A - 1.
07415 M00S03394.pfload +++|
07416 M00S03395.pfload +++|
07417 M00S03396.pfload +++| VFN SUBR ENTRY/EXIT
07418 M00S03397.pfload +++| SA1 TCBF+FCFN CHECK FILE NAME
07419 M00S03398.pfload +++| MX2 42
07420 M00S03399.pfload +++| BX1 X2*X1
07421 M00S03400.pfload +++| MX0 -6
07422 M00S03401.pfload +++| LX1 6
07423 M00S03402.pfload +++| SX2 1R9+1
07424 M00S03403.pfload +++| VFN1 BX3 -X0*X1 CHECK FOR NON-ALPHANUMERIC CHARACTER
| Line S03404 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07425 M01S03404.v23l617 ---| ZR X3,VFNX IF ILLEGAL CHARACTER
| Line S00024 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07426 M01S00024.v23l617 +++| ZR X3,VFNX IF CHARACTER NOT VALID
07427 M00S03405.pfload +++| BX1 X0*X1
07428 M00S03406.pfload +++| IX3 X3-X2
| Line S03407 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07429 M01S03407.v23l617 ---| PL X3,VFNX IF ILLEGAL CHARACTER
| Line S00025 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07430 M01S00025.v23l617 +++| PL X3,VFNX IF CHARACTER NOT VALID
07431 M00S03408.pfload +++| LX1 6
07432 M00S03409.pfload +++| NZ X1,VFN1 IF MORE CHARACTERS
07433 M00S03410.pfload +++| EQ VFNX RETURN
07434 M00S03411.pfload +++| WCE SPACE 4,20
07435 M00S03412.pfload +++|** WCE - WRITE CATALOG ENTRY.
07436 M00S03413.pfload +++|*
07437 M00S03414.pfload +++|* ENTRY (CSWC) = CURRENT CATALOG SECTOR WORD COUNT.
| Line S03415 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07438 M01S03415.ns22000 ---|* (*CATS* *IN* POINTER) = ADDRESS OF CATALOG ENTRY.
| Line S02226 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07439 M01S02226.ns22000 +++|* (*CATS* IN POINTER) = ADDRESS OF CATALOG ENTRY.
07440 M00S03416.pfload +++|*
| Line S03417 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
07441 M01S03417.286l859 ---|* ENTRY (CSWC) = UPDATED.
| Line S00752 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
07442 M01S00752.286l859 +++|* EXIT (CSWC) = UPDATED SECTOR WORD COUNT.
07443 M01S00753.286l859 +++|* (CBFO) = UPDATED CATALOG BUFFER ORDINAL.
07444 M00S03418.pfload +++|* (IPFF) = 0.
07445 M00S03419.pfload +++|* (CEWF) = 0 IF CATALOG BUFFER FLUSHED.
07446 M00S03420.pfload +++|* = 1 IF CATALOG BUFFER NOT FLUSHED.
07447 M00S03421.pfload +++|* CATALOG FILE BUFFER POINTERS ADJUSTED.
07448 M00S03422.pfload +++|* CATALOG BUFFER FLUSHED IF NECESSARY.
07449 M00S03423.pfload +++|* FULL SECTOR CONTROL WORD WRITTEN TO BUFFER IF
| Line S03424 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
07450 M01S03424.286l859 ---|* NECESSARY.
| Line S00754 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
07451 M01S00754.286l859 +++|* NECESSARY.
07452 M00S03425.pfload +++|*
07453 M00S03426.pfload +++|* USES X - 1, 2, 6, 7.
07454 M00S03427.pfload +++|* A - 1, 2, 6, 7.
07455 M00S03428.pfload +++|*
07456 M00S03429.pfload +++|* CALLS FCB.
07457 M00S03430.pfload +++|
07458 M00S03431.pfload +++|
07459 M00S03432.pfload +++| WCE SUBR ENTRY/EXIT
07460 M00S03433.pfload +++| BX6 X6-X6 CLEAR INCOMPLETE FILE FLAG
07461 M00S03434.pfload +++| SA6 IPFF
07462 M00S03435.pfload +++| SX7 B1 SET *CATALOG ENTRIES WRITTEN*
07463 M00S03436.pfload +++| SA7 CEWF
| Line S00755 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
07464 M01S00755.286l859 +++| SA2 CBFO ADVANCE CATALOG ORDINAL
07465 M01S00756.286l859 +++| IX7 X2+X7
07466 M01S00757.286l859 +++| SA7 A2
| Line S03437 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07467 M01S03437.ns22000 ---| SA2 CATS+2 SET *IN* POINTER TO END OF CATALOG ENTRY
| Line S02227 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07468 M01S02227.ns22000 +++| SA2 CATS+2 SET IN POINTER TO END OF CATALOG ENTRY
07469 M00S03438.pfload +++| SA1 CSWC ADJUST SECTOR WORD COUNT
07470 M00S03439.pfload +++| SX6 X2+NWCE
07471 M00S03440.pfload +++| SX7 X1+NWCE
07472 M00S03441.pfload +++| SA6 A2
07473 M00S03442.pfload +++| SA7 A1
07474 M00S03443.pfload +++| SX1 X7-100B
07475 M00S03444.pfload +++| NG X1,WCEX IF NOT FULL SECTOR
07476 M00S03445.pfload +++| BX6 X6-X6 CLEAR SECTOR WORD COUNT
07477 M00S03446.pfload +++| SA6 A1
07478 M00S03447.pfload +++| SA1 CATS+FTSC INCREMENT SECTOR COUNTER
07479 M00S03448.pfload +++| SX7 X1+B1
07480 M00S03449.pfload +++| SA7 A1+
07481 M00S03450.pfload +++| LX7 59-11
07482 M00S03451.pfload +++| NG X7,WCE1 IF AT SECTOR LIMIT
07483 M00S03452.pfload +++| SA1 CATS+4 CHECK BUFFER SPACE
07484 M00S03453.pfload +++| SA2 CATS+2
07485 M00S03454.pfload +++| SX6 X1-101B
07486 M00S03455.pfload +++| IX7 X2-X6
07487 M00S03456.pfload +++| NG X7,WCE2 IF ROOM FOR FULL SECTOR
07488 M00S03457.pfload +++| WCE1 RJ FCB FLUSH CATALOG BUFFER
07489 M00S03458.pfload +++| WCE2 SX6 100B SET FULL SECTOR CONTROL WORD
07490 M00S03459.pfload +++| SA1 CATS+2
07491 M00S03460.pfload +++| SA6 X1
| Line S03461 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07492 M01S03461.ns22000 ---| SX7 X1+B1 ADJUST *IN* POINTER
| Line S02228 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07493 M01S02228.ns22000 +++| SX7 X1+B1 ADJUST IN POINTER
07494 M00S03462.pfload +++| SA7 A1+
| Line S03463 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07495 M01S03463.ns22000 ---| EQ WCEX EXIT
| Line S02229 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07496 M01S02229.ns22000 +++| EQ WCEX RETURN
07497 M00S03464.pfload +++| WPR SPACE 4,20
07498 M00S03465.pfload +++|** WPR - WRITE PRU TO *PFU* CIRCULAR BUFFER.
07499 M00S03466.pfload +++|*
07500 M00S03467.pfload +++|* ENTRY (X2) = FET ADDRESS.
07501 M00S03468.pfload +++|* (B6) = FWA OF WORKING BUFFER.
07502 M00S03469.pfload +++|* (B7) = WORD COUNT OF WORKING BUFFER.
07503 M00S03470.pfload +++|*
07504 M00S03471.pfload +++|* EXIT (X2) = FET ADDRESS.
07505 M00S03472.pfload +++|* (B7) = 0 IF NO WRITE ERROR DETECTED.
07506 M00S03473.pfload +++|* = SAME AS ENTRY IF WRITE ERROR DETECTED.
07507 M00S03474.pfload +++|* (X6) = ERROR CODE FROM FET IF (B7) IS NON-ZERO.
07508 M00S03475.pfload +++|* DATA WRITTEN TO CIRCULAR BUFFER.
07509 M00S03476.pfload +++|* WRITE REQUEST ISSUED IF BUFFER AT LEAST HALF FULL.
07510 M00S03477.pfload +++|*
07511 M00S03478.pfload +++|* USES X - 1, 3, 6, 7.
07512 M00S03479.pfload +++|* A - 1, 3, 6, 7.
07513 M00S03480.pfload +++|* B - 2, 3, 4, 6, 7.
07514 M00S03481.pfload +++|*
07515 M00S03482.pfload +++|* CALLS FUB.
07516 M00S03483.pfload +++|*
07517 M00S03484.pfload +++|* MACROS RECALL.
07518 M00S03485.pfload +++|
07519 M00S03486.pfload +++|
07520 M00S03487.pfload +++| WPR SUBR ENTRY/EXIT
07521 M00S03488.pfload +++|
07522 M00S03489.pfload +++|* CHECK SECTOR COUNTER.
07523 M00S03490.pfload +++|
07524 M00S03491.pfload +++| SA1 X2+FTSC CHECK SECTOR COUNTER
07525 M00S03492.pfload +++| LX1 59-11
07526 M00S03493.pfload +++| PL X1,WPR1 IF SECTOR COUNTER NOT AT THRESHOLD
07527 M00S03494.pfload +++| RJ FUB FLUSH BUFFER
07528 M00S03495.pfload +++| NZ X6,WPRX IF WRITE ERROR
07529 M00S03496.pfload +++| SA6 X2+FTSC CLEAR SECTOR COUNTER
07530 M00S03497.pfload +++|
07531 M00S03498.pfload +++|* CHECK BUFFER SPACE.
07532 M00S03499.pfload +++|
07533 M00S03500.pfload +++| WPR1 ZR B7,WPRX IF NO DATA TO TRANSFER
07534 M00S03501.pfload +++| SA1 X2+2 (B2) = IN
07535 M00S03502.pfload +++| SB2 X1
07536 M00S03503.pfload +++| SA1 A1+B1 (B4) = OUT
07537 M00S03504.pfload +++| SB4 X1
07538 M00S03505.pfload +++| SA1 A1+B1 (B3) = LIMIT
07539 M00S03506.pfload +++| SB3 X1
07540 M00S03507.pfload +++| SB4 B4-B2 BUFFER SPACE + 1 = OUT - IN
07541 M00S03508.pfload +++| GE B4,B1,WPR2 IF NO BUFFER WRAP
07542 M00S03509.pfload +++| SA1 X2+B1 BUFFER SPACE + 1 = (OUT-IN)+(LIMIT-FIRST)
07543 M00S03510.pfload +++| SB4 B4+B3
07544 M00S03511.pfload +++| BX1 -X1
07545 M00S03512.pfload +++| SB4 B4+X1
07546 M00S03513.pfload +++| WPR2 GT B4,B7,WPR4 IF ENOUGH ROOM IN BUFFER
07547 M00S03514.pfload +++|
07548 M00S03515.pfload +++|* PROCESS BUFFER FULL.
07549 M00S03516.pfload +++|
07550 M00S03517.pfload +++| SA1 X2 GET FILE NAME
07551 M00S03518.pfload +++| MX6 42
07552 M00S03519.pfload +++| BX7 X6*X1
07553 M00S03520.pfload +++| LX1 59-0 CHECK BUFFER STATUS
07554 M00S03521.pfload +++| SX3 B1+B1 SET WRITE FUNCTION CODE
07555 M00S03522.pfload +++| MX6 -6
07556 M00S03523.pfload +++| PL X1,WPR3 IF BUFFER BUSY
07557 M00S03524.pfload +++| LX1 0-12-59+0+60 GET ERROR STATUS
07558 M00S03525.pfload +++| BX6 -X6*X1
07559 M00S03526.pfload +++| IX7 X7+X3
07560 M00S03527.pfload +++| NZ X6,WPRX IF WRITE ERROR
07561 M00S03528.pfload +++| SA7 X2 ISSUE WRITE REQUEST
07562 M00S03529.pfload +++| WPR3 RECALL WAIT FOR *PFU* TO CATCH UP
07563 M00S03530.pfload +++| EQ WPR1 CHECK BUFFER SPACE
07564 M00S03531.pfload +++|
07565 M00S03532.pfload +++|* MOVE DATA TO CIRCULAR BUFFER.
07566 M00S03533.pfload +++|
07567 M00S03534.pfload +++| WPR4 SA1 B6 MOVE WORD
07568 M00S03535.pfload +++| SB6 B6+B1 ADVANCE WORKING BUFFER ADDRESS
07569 M00S03536.pfload +++| BX6 X1
07570 M00S03537.pfload +++| SB7 B7-B1 DECREMENT WORD COUNT
07571 M00S03538.pfload +++| SA6 B2
07572 M00S03539.pfload +++| SB2 B2+B1 ADVANCE IN
07573 M00S03540.pfload +++| LT B2,B3,WPR5 IF IN .LT. LIMIT
07574 M00S03541.pfload +++| SA1 X2+B1 IN = FIRST
07575 M00S03542.pfload +++| SB2 X1
07576 M00S03543.pfload +++| WPR5 NZ B7,WPR4 IF WORKING BUFFER NOT EMPTY
07577 M00S03544.pfload +++|
07578 M00S03545.pfload +++|* CHECK BUFFER THRESHOLD.
07579 M00S03546.pfload +++|
07580 M00S03547.pfload +++| SX6 B2 UPDATE IN
07581 M00S03548.pfload +++| SA3 X2 CHECK BUFFER STATUS
07582 M00S03549.pfload +++| SA1 X2+FTSC INCREMENT SECTOR COUNTER
07583 M00S03550.pfload +++| SA6 X2+2
07584 M00S03551.pfload +++| SX7 X1+B1
07585 M00S03552.pfload +++| LX3 59-0
07586 M00S03553.pfload +++| SA7 A1
07587 M00S03554.pfload +++| SA1 X2+B1 FIRST
07588 M00S03555.pfload +++| PL X3,WPRX IF BUFFER ALREADY BUSY
07589 M00S03556.pfload +++| SA3 X2+3 OUT
07590 M00S03557.pfload +++| SX6 B3
07591 M00S03558.pfload +++| SX1 X1
07592 M00S03559.pfload +++| IX7 X6-X1 BUFFER SIZE = LIMIT - FIRST
07593 M00S03560.pfload +++| SX6 B2 BUFFER WC = IN - OUT
07594 M00S03561.pfload +++| IX3 X6-X3
07595 M00S03562.pfload +++| PL X3,WPR6 IF NO BUFFER WRAP
07596 M00S03563.pfload +++| IX3 X3+X7 BUFFER WC = BUFFER WC + BUFFER SIZE
07597 M00S03564.pfload +++| WPR6 AX7 1 BUFFER SIZE / 2
07598 M00S03565.pfload +++| IX1 X3-X7
07599 M00S03566.pfload +++| NG X1,WPRX IF BUFFER NOT AT LEAST HALF FULL
07600 M00S03567.pfload +++| SA1 X2 GET FILE NAME
07601 M00S03568.pfload +++| MX6 42
07602 M00S03569.pfload +++| BX7 X6*X1
07603 M00S03570.pfload +++| LX1 -12 GET ERROR STATUS
07604 M00S03571.pfload +++| MX3 -6
07605 M00S03572.pfload +++| BX6 -X3*X1
07606 M00S03573.pfload +++| SX1 B1+B1 SET WRITE FUNCTION CODE
07607 M00S03574.pfload +++| BX7 X7+X1
07608 M00S03575.pfload +++| NZ X6,WPRX IF WRITE ERROR
07609 M00S03576.pfload +++| SA7 X2+ ISSUE WRITE REQUEST
| Line S03577 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07610 M01S03577.ns22000 ---| EQ WPRX EXIT
| Line S02230 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07611 M01S02230.ns22000 +++| EQ WPRX RETURN
| Line S03578 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07612 M01S03578.ns22000 ---| PCB SPACE 4,40
07613 M01S03579.ns22000 ---|** PCB - PROCESS CATALOG BUFFER.
07614 M01S03580.ns22000 ---|*
07615 M01S03581.ns22000 ---|* ENTRY (CPAR) = CONVERTED PARAMETER ARRAY.
07616 M01S03582.ns22000 ---|* (MASK) = MASTER DEVICE MASK.
07617 M01S03583.ns22000 ---|* (MMSK) = CURRENT MASTER DEVICE MASK.
07618 M01S03584.ns22000 ---|* (NCTR) = CURRENT NUMBER OF CATALOG TRACKS.
07619 M01S03585.ns22000 ---|* (CCTR) = CURRENT CATALOG TRACK.
07620 M01S03586.ns22000 ---|* (TMDD) = TABLE OF MASTER DEVICE DESCRIPTIONS.
07621 M01S03587.ns22000 ---|* (NILD) = NON-INITIAL LOAD FLAG.
07622 M01S03588.ns22000 ---|* (CWBF) = CATALOG CONTROL WORD.
07623 M01S03589.ns22000 ---|*
07624 M01S03590.ns22000 ---|* EXIT (X6) = 0 IF FILE NOT TO BE LOADED.
07625 M01S03591.ns22000 ---|* = 1 IF FILE TO BE LOADED.
07626 M01S03592.ns22000 ---|* (TCBF) = CATALOG ENTRY FOR CURRENT FILE.
07627 M01S03593.ns22000 ---|* (MDDS) = MASTER DEVICE DESCRIPTION FOR FILE.
07628 M01S03594.ns22000 ---|* (MMSK) = UPDATED MASTER DEVICE MASK.
07629 M01S03595.ns22000 ---|* (NCTR) = UPDATED NUMBER OF CATALOG TRACKS.
07630 M01S03596.ns22000 ---|* (MAEQ) = UPDATED MASTER EQUIPMENT.
07631 M01S03597.ns22000 ---|* (DAEQ) = DAF EQUIPMENT NUMBER IF FAMILY LOAD.
07632 M01S03598.ns22000 ---|* (NILD) = SET AFTER DEVICE SWITCH.
07633 M01S03599.ns22000 ---|* (CPAR+/COMSPFS/CPDN) = UPDATED MASTER DEVICE NUMBER.
07634 M01S03600.ns22000 ---|* (SKER) = 1 IF *SKIP TO EOR* REQUIRED.
07635 M01S03601.ns22000 ---|* (PFCO) = 0 IF *PFC ONLY* FILE.
07636 M01S03602.ns22000 ---|* " 0 IF NOT *PFC ONLY* FILE.
07637 M01S03603.ns22000 ---|* MASTER DEVICE SWITCH MADE IF NECESSARY.
07638 M01S03604.ns22000 ---|* FILES OPENED IF A MASTER DEVICE SWITCH IS MADE.
07639 M01S03605.ns22000 ---|* CATALOG ENTRY FOR CURRENT FILE MOVED TO CATALOG
07640 M01S03606.ns22000 ---|* BUFFER STARTING AT CURRENT *IN* ADDRESS.
07641 M01S03607.ns22000 ---|*
07642 M01S03608.ns22000 ---|* USES X - ALL.
07643 M01S03609.ns22000 ---|* A - 1, 2, 3, 5, 6, 7.
07644 M01S03610.ns22000 ---|* B - 2, 7.
07645 M01S03611.ns22000 ---|*
| Line S03612 Modification History |
M01 (Removed by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07646 M02S03612.ns22000 ---|* CALLS CCE, CCI, CSP, EFL, MCE, MCO,
07647 M02S03613.ns22000 ---|* PDI, PGF, SDM, SEM, SMD, VFN.
| Line S00022 Modification History |
M01 (Added by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07648 M02S00022.ns22000 ---|* CALLS CCE, CCI, CSP, EFL, MCE, MCO, PDI, PGF, RAS,
07649 M02S00023.ns22000 ---|* SDM, SEM, SLD, SMD, VFN.
| Line S03614 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07650 M01S03614.ns22000 ---|*
07651 M01S03615.ns22000 ---|* MACROS CWREAD, EDITS, MESSAGE, MOVE.
07652 M01S03616.ns22000 ---|
07653 M01S03617.ns22000 ---|
07654 M01S03618.ns22000 ---| PCB SUBR ENTRY/EXIT
07655 M01S03619.ns22000 ---|
07656 M01S03620.ns22000 ---|* CHECK FOR PFC ONLY FILE.
07657 M01S03621.ns22000 ---|
07658 M01S03622.ns22000 ---| SA1 CWBF FETCH CONTROL WORD
07659 M01S03623.ns22000 ---| MX0 -3 EXTRACT SUBTYPE
07660 M01S03624.ns22000 ---| LX0 11-2
07661 M01S03625.ns22000 ---| BX7 -X0*X1
07662 M01S03626.ns22000 ---| SA7 PFCO SAVE *PFC ONLY* FLAG
07663 M01S03627.ns22000 ---|
07664 M01S03628.ns22000 ---|* READ CATALOG ENTRY.
07665 M01S03629.ns22000 ---|
07666 M01S03630.ns22000 ---| MX0 51
07667 M01S03631.ns22000 ---| BX5 -X0*X1
07668 M01S03632.ns22000 ---| CWREAD TAPE,TCBF,X5
07669 M01S03633.ns22000 ---| NZ X7,PCB5 IF PARITY ERROR
07670 M01S03634.ns22000 ---| RJ VFN VALIDATE FILE NAME
07671 M01S03635.ns22000 ---| PL X3,PCB6 IF ILLEGAL FILE NAME
07672 M01S03636.ns22000 ---| SA1 TCBF+FCUI VALIDATE USER INDEX
07673 M01S03637.ns22000 ---| SX6 X1+
07674 M01S03638.ns22000 ---| NG X6,PCB6 IF ILLEGAL USER INDEX
07675 M01S03639.ns22000 ---| RJ SDM SET DISPLAY MESSAGES
07676 M01S03640.ns22000 ---|
07677 M01S03641.ns22000 ---|* CHECK FORMAT OF CATALOG ENTRY.
07678 M01S03642.ns22000 ---|
07679 M01S03643.ns22000 ---| SA1 CWBF CHECK SIZE OF CATALOG ENTRY
07680 M01S03644.ns22000 ---| MX6 -9
07681 M01S03645.ns22000 ---| BX2 -X6*X1
07682 M01S03646.ns22000 ---| SX1 X2-NWCE
07683 M01S03647.ns22000 ---| ZR X1,PCB1 IF NOT CURRENT SIZE
07684 M01S03648.ns22000 ---| SX4 TCBF
07685 M01S03649.ns22000 ---| RJ CCE CONVERT CATALOG ENTRY TO CURRENT FORMAT
07686 M01S03650.ns22000 ---|
07687 M01S03651.ns22000 ---|* PROCESS SELECTIVE PARAMETERS.
07688 M01S03652.ns22000 ---|
07689 M01S03653.ns22000 ---| PCB1 SA1 ZOPF
07690 M01S03654.ns22000 ---| PL X1,PCB2 IF *OP=Z* NOT SELECTED
07691 M01S03655.ns22000 ---| SA1 PFCO
07692 M01S03656.ns22000 ---| ZR X1,PCB4 IF *PFC ONLY*
07693 M01S03657.ns22000 ---| PCB2 SA1 CPAR+/COMSPFS/CPDI
07694 M01S03658.ns22000 ---| SA2 TCBF+FCUI USER INDEX FROM CATALOG
07695 M01S03659.ns22000 ---| NZ X1,PCB3 IF DESTINATION INDEX SPECIFIED
07696 M01S03660.ns22000 ---| MX0 -3 CHECK USER INDEX AGAINST MASK
07697 M01S03661.ns22000 ---| BX1 -X0*X2
07698 M01S03662.ns22000 ---| SA2 MASK
07699 M01S03663.ns22000 ---| SB2 X1
07700 M01S03664.ns22000 ---| MX0 -1
07701 M01S03665.ns22000 ---| AX1 X2,B2 SELECT MASK BIT
07702 M01S03666.ns22000 ---| BX2 -X0*X1
07703 M01S03667.ns22000 ---| ZR X2,PCB4 IF USER INDEX NOT TO BE LOADED
07704 M01S03668.ns22000 ---| PCB3 RJ CSP CHECK SELECTIVE PARAMETERS
07705 M01S03669.ns22000 ---| ZR X6,PCB4 IF FILE NOT TO BE LOADED
07706 M01S03670.ns22000 ---| RJ CCI CHECK CATALOG IMAGE
07707 M01S03671.ns22000 ---| NZ X6,PCB4 IF FILE NOT TO BE LOADED
07708 M01S03672.ns22000 ---| RJ PDI PROCESS DESTINATION INDEX
07709 M01S03673.ns22000 ---|
07710 M01S03674.ns22000 ---|* CHECK FILE TYPE.
07711 M01S03675.ns22000 ---|
07712 M01S03676.ns22000 ---| SA1 TCBF+FCBS IAF(0)/DAF(1) FLAG (BIT 11)
07713 M01S03677.ns22000 ---| SA2 CPAR+/COMSPFS/CPOP LOAD OPTIONS
07714 M01S03678.ns22000 ---| LX1 59-11
07715 M01S03679.ns22000 ---| LX2 59-55 DAF ONLY LOAD FLAG (BIT 55)
07716 M01S03680.ns22000 ---| NG X1,PCB7 IF A DIRECT ACCESS FILE
07717 M01S03681.ns22000 ---| PL X2,PCB17 IF NOT DIRECT ONLY FILE
07718 M01S03682.ns22000 ---|
07719 M01S03683.ns22000 ---|* SUPPRESS LOADING OF FILE.
07720 M01S03684.ns22000 ---|
07721 M01S03685.ns22000 ---| PCB4 SX7 B1 SET SKIP TO EOR FLAG
07722 M01S03686.ns22000 ---| BX6 X6-X6 CLEAR LOAD FLAG
07723 M01S03687.ns22000 ---| SA7 SKER
07724 M01S03688.ns22000 ---| EQ PCBX EXIT
07725 M01S03689.ns22000 ---|
07726 M01S03690.ns22000 ---|* PROCESS PARITY ERROR.
07727 M01S03691.ns22000 ---|
07728 M01S03692.ns22000 ---| PCB5 SX5 MSGN SEND TAPE PARITY ERROR MESSAGE
07729 M01S03693.ns22000 ---| RJ SEM
07730 M01S03694.ns22000 ---| EQ PCB4 SKIP FILE
07731 M01S03695.ns22000 ---|
07732 M01S03696.ns22000 ---|* PROCESS ILLEGAL FILE NAME/USER INDEX.
07733 M01S03697.ns22000 ---|
07734 M01S03698.ns22000 ---| PCB6 SA1 TCBF+FCFN SET NAME/INDEX PARAMETER
07735 M01S03699.ns22000 ---| MX0 30
07736 M01S03700.ns22000 ---| BX6 X0*X1
07737 M01S03701.ns22000 ---| BX7 -X0*X1
07738 M01S03702.ns22000 ---| LX6 30
07739 M01S03703.ns22000 ---| SA7 MPLH
07740 M01S03704.ns22000 ---| SA6 MPUH
07741 M01S03705.ns22000 ---| EDITS MSNI,MES6 ENTER OCTAL DISPLAY FOR NAME AND INDEX
07742 M01S03706.ns22000 ---| RJ SEM SEND ILLEGAL NAME/INDEX MESSAGE
07743 M01S03707.ns22000 ---| EQ PCB4 SKIP FILE
07744 M01S03708.ns22000 ---|
07745 M01S03709.ns22000 ---|* PROCESS DIRECT ACCESS FILE.
07746 M01S03710.ns22000 ---|
07747 M01S03711.ns22000 ---| PCB7 LX2 59-56-59+55 GET INDIRECT ONLY FILE
07748 M01S03712.ns22000 ---| NG X2,PCB4 IF INDIRECT ONLY LOAD
07749 M01S03713.ns22000 ---| MX0 -6
07750 M01S03714.ns22000 ---| SA1 CPAR+/COMSPFS/CPPN
07751 M01S03715.ns22000 ---| SA2 TCBF+FCEO GET DN FROM CATALOG
07752 M01S03716.ns22000 ---| ZR X1,PCB8 IF NOT AN AUXILIARY DEVICE LOAD
07753 M01S03717.ns22000 ---| LX0 36 CLEAR DEVICE NUMBER
07754 M01S03718.ns22000 ---| BX6 X0*X2
07755 M01S03719.ns22000 ---| SA6 A2
07756 M01S03720.ns22000 ---| EQ PCB17 LOAD FILE
07757 M01S03721.ns22000 ---|
07758 M01S03722.ns22000 ---| PCB8 SA1 TCBF+FCUI USER INDEX
07759 M01S03723.ns22000 ---| SX4 X1-SBUI
07760 M01S03724.ns22000 ---| NG X4,PCB9 IF NOT *MSF* SUBFAMILY USER INDEX
07761 M01S03725.ns22000 ---| BX3 -X4
07762 M01S03726.ns22000 ---| SX4 X3+MNSF-1
07763 M01S03727.ns22000 ---| PCB9 SA3 CPAR+/COMSPFS/CPDN MASTER DEVICE NUMBER
07764 M01S03728.ns22000 ---| LX2 -36
07765 M01S03729.ns22000 ---| BX1 -X0*X2 DN FROM CATALOG
07766 M01S03730.ns22000 ---| IX6 X2-X1
07767 M01S03731.ns22000 ---| BX7 X1-X3
07768 M01S03732.ns22000 ---| SB7 MSTT INITIALIZE DEVICE SEARCH ADDRESS
07769 M01S03733.ns22000 ---| NG X4,PCB10 IF NOT *MSF* SUBFAMILY USER INDEX
07770 M01S03734.ns22000 ---| BX7 X7-X7 FORCE MASTER DEVICE
07771 M01S03735.ns22000 ---| BX1 X1-X1
07772 M01S03736.ns22000 ---| PCB10 NZ X7,PCB11 IF *DN* FROM CATALOG NOT MASTER DEVICE
07773 M01S03737.ns22000 ---| LX6 36 CLEAR DN FROM CATALOG
07774 M01S03738.ns22000 ---| SA6 A2
07775 M01S03739.ns22000 ---| PCB11 ZR X1,PCB12 IF *DN* FROM CATALOG IS ZERO
07776 M01S03740.ns22000 ---| SX3 X1+ USE DN FROM CATALOG
| Line S03741 Modification History |
M01 (Removed by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07777 M02S03741.ns22000 ---|
| Line S03742 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07778 M01S03742.ns22000 ---|
07779 M01S03743.ns22000 ---|* SEARCH FOR DIRECT ACCESS DEVICE.
| Line S03744 Modification History |
M01 (Removed by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07780 M02S03744.ns22000 ---|*
07781 M02S03745.ns22000 ---|* (B7) = CURRENT ADDRESS IN TABLE OF DEVICES (MSTT).
07782 M02S03746.ns22000 ---|
| Line S03747 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07783 M01S03747.ns22000 ---|
07784 M01S03748.ns22000 ---| PCB12 SA1 B7+ GET *DN* OF A DEVICE IN TABLE
07785 M01S03749.ns22000 ---| BX2 -X0*X1
07786 M01S03750.ns22000 ---| IX6 X2-X3 COMPARE DN,S
07787 M01S03751.ns22000 ---| ZR X1,PCB13 IF END OF TABLE
07788 M01S03752.ns22000 ---| SB7 B7+2 ADVANCE TABLE ADDRESS
07789 M01S03753.ns22000 ---| NZ X6,PCB12 IF NOT CORRECT DEVICE
07790 M01S03754.ns22000 ---| LX1 -6 SET DAF EQUIPMENT NUMBER
07791 M01S03755.ns22000 ---| BX7 -X0*X1
07792 M01S03756.ns22000 ---| SA7 DAEQ
07793 M01S03757.ns22000 ---| SA2 TCBF+FCUI USER INDEX OF FILE
07794 M01S03758.ns22000 ---| MX6 -3
07795 M01S03759.ns22000 ---| BX2 -X6*X2
07796 M01S03760.ns22000 ---| SA1 A1+B1 GET SECONDARY MASK OF DEVICE
| Line S00024 Modification History |
M01 (Added by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07797 M02S00024.ns22000 ---| SB7 A1 SAVE TABLE ADDRESS
| Line S03761 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07798 M01S03761.ns22000 ---| SB2 X2+8-59
07799 M01S03762.ns22000 ---| AX6 X1,B2 SELECT CORRECT MASK BIT
| Line S03763 Modification History |
M01 (Removed by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07800 M02S03763.ns22000 ---| NG X6,PCB17 IF USER INDEX ALLOWED ON DEVICE
| Line S00025 Modification History |
M01 (Added by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07801 M02S00025.ns22000 ---| NG X6,PCB16.1 IF USER INDEX ALLOWED ON DEVICE
| Line S03764 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07802 M01S03764.ns22000 ---| PL X4,PCB17 IF *MSF* SUBFAMILY USER INDEX
07803 M01S03765.ns22000 ---|
07804 M01S03766.ns22000 ---|* CHECK DESTINATION DEVICE.
07805 M01S03767.ns22000 ---|
07806 M01S03768.ns22000 ---| PCB13 SA1 CPAR+/COMSPFS/CPDD DESTINATION DEVICE
| Line S03769 Modification History |
M01 (Removed by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07807 M02S03769.ns22000 ---| ZR X1,PCB14 IF DESTINATION DEVICE NOT SPECIFIED
| Line S00026 Modification History |
M01 (Added by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07808 M02S00026.ns22000 ---| ZR X1,PCB13.1 IF DESTINATION DEVICE NOT SPECIFIED
| Line S03770 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07809 M01S03770.ns22000 ---| SA2 TCBF+FCUI USER INDEX OF FILE
07810 M01S03771.ns22000 ---| MX0 -6
07811 M01S03772.ns22000 ---| BX7 -X0*X1 DD
07812 M01S03773.ns22000 ---| LX1 -6 MSTT ADDRESS OF DD
07813 M01S03774.ns22000 ---| SA3 X1+B1 SECONDARY MASK OF DD
| Line S00027 Modification History |
M01 (Added by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07814 M02S00027.ns22000 ---| SB7 A3+ SAVE TABLE ADDRESS
| Line S03775 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07815 M01S03775.ns22000 ---| MX1 -3
07816 M01S03776.ns22000 ---| BX2 -X1*X2
07817 M01S03777.ns22000 ---| SA1 CPAR+/COMSPFS/CPDN MASTER DN
07818 M01S03778.ns22000 ---| SB2 X2+8-59
07819 M01S03779.ns22000 ---| AX3 X3,B2 POSITION MASK BIT
07820 M01S03780.ns22000 ---| BX2 X1-X7 COMPARE DD WITH MASTER DN
07821 M01S03781.ns22000 ---| NG X3,PCB15 IF USER INDEX ALLOWED ON DEVICE
| Line S00028 Modification History |
M01 (Added by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07822 M02S00028.ns22000 ---| PCB13.1 SA1 CPAR+/COMSPFS/CPOP
07823 M02S00029.ns22000 ---| LX1 59-54
07824 M02S00030.ns22000 ---| NG X1,PCB16.2 IF *OP=L* SPECIFIED
| Line S03782 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07825 M01S03782.ns22000 ---|
07826 M01S03783.ns22000 ---|* NO DEVICE FOUND TO LOAD DIRECT ACCESS FILE ON.
07827 M01S03784.ns22000 ---|
| Line S03785 Modification History |
M01 (Removed by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07828 M02S03785.ns22000 ---| PCB14 SX5 =C* ALTERNATE DEVICE NOT FOUND.*
07829 M02S03786.ns22000 ---| RJ SEM
07830 M02S03787.ns22000 ---| SX5 MSGG * STATUS ERROR LFN UI*
| Line S00031 Modification History |
M01 (Added by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07831 M02S00031.ns22000 ---| PCB14 SX5 MES12 *PFLOAD - ALTERNATE DEVICE NOT FOUND*
07832 M02S00032.ns22000 ---| PCB14.1 SA1 TCBF+FCFN SET FILE NAME AND USER INDEX IN MESSAGE
07833 M02S00033.ns22000 ---| MX2 42
07834 M02S00034.ns22000 ---| BX6 X2*X1
07835 M02S00035.ns22000 ---| BX7 -X2*X1
07836 M02S00036.ns22000 ---| SA6 MPFN
07837 M02S00037.ns22000 ---| SA7 MPUI
07838 M02S00038.ns22000 ---| EDITS MSFN,X5 FORMAT ERROR MESSAGE
| Line S03788 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07839 M01S03788.ns22000 ---| RJ SEM
07840 M01S03789.ns22000 ---| EQ PCB4 SKIP LOADING OF FILE
07841 M01S03790.ns22000 ---|
| Line S00039 Modification History |
M01 (Added by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07842 M02S00039.ns22000 ---|* PROCESS *DN* AND/OR *DD* FOUND.
07843 M02S00040.ns22000 ---|
| Line S03791 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07844 M01S03791.ns22000 ---| PCB15 SA1 A3-B1 SET DAF EQUIPMENT NUMBER
07845 M01S03792.ns22000 ---| SA3 TCBF+FCEO CLEAR *DN* FROM CATALOG
07846 M01S03793.ns22000 ---| LX1 -6
07847 M01S03794.ns22000 ---| BX6 -X0*X1
07848 M01S03795.ns22000 ---| LX0 36
07849 M01S03796.ns22000 ---| SA6 DAEQ
07850 M01S03797.ns22000 ---| BX1 X0*X3
07851 M01S03798.ns22000 ---| NZ X2,PCB16 IF *DD* NOT EQUAL TO *DN*
07852 M01S03799.ns22000 ---| BX7 X7-X7 CLEAR *DN* IN CATALOG
07853 M01S03800.ns22000 ---| PCB16 LX7 36 PUT *DD* IN CATALOG
07854 M01S03801.ns22000 ---| BX6 X1+X7
07855 M01S03802.ns22000 ---| SA6 A3+
| Line S00041 Modification History |
M01 (Added by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07856 M02S00041.ns22000 ---|
07857 M02S00042.ns22000 ---|* LOAD LEVEL FILES IF *OP=L* SPECIFIED.
07858 M02S00043.ns22000 ---|
07859 M02S00044.ns22000 ---| PCB16.1 SA1 CPAR+/COMSPFS/CPOP
07860 M02S00045.ns22000 ---| LX1 59-54
07861 M02S00046.ns22000 ---| PL X1,PCB16.4 IF *OP=L* NOT SPECIFIED
07862 M02S00047.ns22000 ---| PCB16.2 RJ SLD SELECT LARGEST DEVICE
07863 M02S00048.ns22000 ---| ZR X4,PCB14 IF NO DEVICE FOUND
07864 M02S00049.ns22000 ---| PL X5,PCB17 IF SPACE FOR FILE ON DEVICE
07865 M02S00050.ns22000 ---| PCB16.3 SX5 MES13 * PFLOAD - NO SPACE FOR FILE*
07866 M02S00051.ns22000 ---| EQ PCB14.1 ISSUE MESSAGE AND SKIP FILE
07867 M02S00052.ns22000 ---|
07868 M02S00053.ns22000 ---|* CHECK IF ENOUGH SPACE FOR FILE ON SELECTED DEVICE.
07869 M02S00054.ns22000 ---|
07870 M02S00055.ns22000 ---| PCB16.4 SA5 B7+ GET TABLE ENTRY
07871 M02S00056.ns22000 ---| RJ RAS RETURN AVAILABLE SPACE
07872 M02S00057.ns22000 ---| SA2 TCBF+FCLF GET FILE LENGTH
07873 M02S00058.ns22000 ---| AX2 36
07874 M02S00059.ns22000 ---| IX5 X1-X2
07875 M02S00060.ns22000 ---| NG X5,PCB16.3 IF NO SPACE FOR FILE
| Line S03803 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
07876 M01S03803.ns22000 ---|
07877 M01S03804.ns22000 ---|* CHECK IF FILE ALREADY PERMANENT.
07878 M01S03805.ns22000 ---|
07879 M01S03806.ns22000 ---| PCB17 RJ SMD SET MASTER DEVICE PARAMETERS
07880 M01S03807.ns22000 ---| RJ EFL ENTER FILE LIST
07881 M01S03808.ns22000 ---| ZR X6,PCB22 IF FILE ALREADY PRESENT
07882 M01S03809.ns22000 ---|
07883 M01S03810.ns22000 ---|* LOAD FILE.
07884 M01S03811.ns22000 ---|
07885 M01S03812.ns22000 ---| PCB18 SA5 IDSA+/COMSPFS/ADMS
07886 M01S03813.ns22000 ---| MOVE 3,MSGA,X5
07887 M01S03814.ns22000 ---| MESSAGE MSGA,1 * LOADING (FILE NAME) (USER INDEX)
07888 M01S03815.ns22000 ---| SA1 PFCO FETCH *PFC ONLY* FLAG
07889 M01S03816.ns22000 ---| ZR X1,PCB19 IF *PFC* ONLY
07890 M01S03817.ns22000 ---| SA1 ZOPF FETCH OP=Z FLAG
07891 M01S03818.ns22000 ---| PL X1,PCB20 IF *OP=Z* NOT SELECTED
07892 M01S03819.ns22000 ---| BX6 X6-X6
07893 M01S03820.ns22000 ---| SA6 TCBF+FCAA+FCAT*0+FCAF*0
07894 M01S03821.ns22000 ---| EQ PCB20 CHECK UTILITY CONTROL DATE UPDATE
07895 M01S03822.ns22000 ---|
07896 M01S03823.ns22000 ---| PCB19 SX6 B1 SET *ASAVER* FLAG IN PFC
07897 M01S03824.ns22000 ---| SA1 TCBF+FCAF
07898 M01S03825.ns22000 ---| LX6 52
07899 M01S03826.ns22000 ---| BX6 X1+X6
07900 M01S03827.ns22000 ---| SA6 A1+
07901 M01S03828.ns22000 ---| PCB20 SA1 UDAT FETCH UTLITY CONTROL UPDATE FLAG
07902 M01S03829.ns22000 ---| ZR X1,PCB21 IF FORCED UPDATE FLAG NOT SET
07903 M01S03830.ns22000 ---| MX0 24
07904 M01S03831.ns22000 ---| SA2 TCBF+FCUD
07905 M01S03832.ns22000 ---| BX6 X0*X2
07906 M01S03833.ns22000 ---| BX6 X6+X1
07907 M01S03834.ns22000 ---| SA6 A2+
07908 M01S03835.ns22000 ---| PCB21 RJ MCE MOVE CATALOG ENTRY TO CATALOG BUFFER
07909 M01S03836.ns22000 ---| SX6 B1 SET LOAD FLAG
07910 M01S03837.ns22000 ---| SA6 PCBA
07911 M01S03838.ns22000 ---| SA1 CPAR+/COMSPFS/CPLO
07912 M01S03839.ns22000 ---| PL X1,PCBX IF CATALOG NOT REQUESTED
07913 M01S03840.ns22000 ---| SB2 TCBF
07914 M01S03841.ns22000 ---| RJ MCO
07915 M01S03842.ns22000 ---| SX6 B1 SET LOAD FLAG
07916 M01S03843.ns22000 ---| EQ PCBX RETURN
07917 M01S03844.ns22000 ---|
07918 M01S03845.ns22000 ---|* PROCESS REPLACE OPTION.
07919 M01S03846.ns22000 ---|
07920 M01S03847.ns22000 ---| PCB22 SA1 CPAR+/COMSPFS/CPOP
07921 M01S03848.ns22000 ---| LX1 59-52
07922 M01S03849.ns22000 ---| PL X1,PCB4 IF FILE NOT TO BE LOADED (NO REPLACE)
07923 M01S03850.ns22000 ---| RJ PGF PURGE FILE
07924 M01S03851.ns22000 ---| NZ X6,PCB4 IF FILE NOT TO BE LOADED
07925 M01S03852.ns22000 ---| EQ PCB18 CATALOG FILE
07926 M01S03853.ns22000 ---|
07927 M01S03854.ns22000 ---|
07928 M01S03855.ns22000 ---| PCBA CON 0 FILES PROCESSED FLAG
07929 M01S03856.ns22000 ---| NCTR BSSZ 1 NUMBER OF CATALOG TRACKS
07930 M01S03857.ns22000 ---| CSP SPACE 4,20
07931 M01S03858.ns22000 ---|** CSP - CHECK SELECTION PARAMETERS.
07932 M01S03859.ns22000 ---|*
07933 M01S03860.ns22000 ---|* ENTRY (CPAR) = CONVERTED PARAMETER ARRAY.
07934 M01S03861.ns22000 ---|* (TCBF) = CATALOG ENTRY FOR CURRENT FILE.
07935 M01S03862.ns22000 ---|* (FSAD) = ALTERNATE DEVICE SELECTION PARAMETER.
07936 M01S03863.ns22000 ---|* (FSSA) = SECONDARY ALTERNATE DEVICE SELECTION
07937 M01S03864.ns22000 ---|* PARAMETER.
07938 M01S03865.ns22000 ---|* (TMDD) = TABLE OF MASTER DEVICE DESCRIPTIONS.
07939 M01S03866.ns22000 ---|*
07940 M01S03867.ns22000 ---|* EXIT (X6) = 0 IF FILE NOT TO BE LOADED.
07941 M01S03868.ns22000 ---|* = 1 IF FILE TO BE LOADED.
07942 M01S03869.ns22000 ---|*
07943 M01S03870.ns22000 ---|* USES X - 0, 1, 2, 3, 4, 6, 7.
07944 M01S03871.ns22000 ---|* A - 1, 2, 3, 4.
07945 M01S03872.ns22000 ---|*
07946 M01S03873.ns22000 ---|* CALLS CDT.
07947 M01S03874.ns22000 ---|
07948 M01S03875.ns22000 ---|
07949 M01S03876.ns22000 ---| CSP SUBR ENTRY/EXIT
07950 M01S03877.ns22000 ---| SB4 TCBF CATALOG ADDRESS FOR *CDT*
07951 M01S03878.ns22000 ---| RJ CDT CHECK DATE/TIME
07952 M01S03879.ns22000 ---| ZR X6,CSPX IF DATE/TIME FAILS
07953 M01S03880.ns22000 ---|
07954 M01S03881.ns22000 ---|* CHECK USER INDEX.
07955 M01S03882.ns22000 ---|
07956 M01S03883.ns22000 ---| SA2 CPAR+/COMSPFS/CPUI CHECK USER INDEX
07957 M01S03884.ns22000 ---| ZR X2,CSP2 IF NOT PRESENT
07958 M01S03885.ns22000 ---| SA3 TCBF+FCFN GET CATALOG FILE NAME
07959 M01S03886.ns22000 ---| MX0 42
07960 M01S03887.ns22000 ---| BX7 X0*X3
07961 M01S03888.ns22000 ---| SA1 CPAR+/COMSPFS/CPPF
07962 M01S03889.ns22000 ---| ZR X1,CSP1 IF PF NOT SPECIFIED
07963 M01S03890.ns22000 ---| BX1 X1-X7
07964 M01S03891.ns22000 ---| NZ X1,CSP5 IF FILE NOT TO BE LOADED
07965 M01S03892.ns22000 ---| CSP1 BX3 -X0*X3
07966 M01S03893.ns22000 ---| IX2 X2-X3
07967 M01S03894.ns22000 ---| NZ X2,CSP5 IF FILE NOT TO BE LOADED
07968 M01S03895.ns22000 ---|
07969 M01S03896.ns22000 ---|* CHECK FOR ALTERNATE DEVICE LOAD.
07970 M01S03897.ns22000 ---|
07971 M01S03898.ns22000 ---| CSP2 SA1 FSAD
07972 M01S03899.ns22000 ---| NZ X1,CSP4 IF ALTERNATE DEVICE
07973 M01S03900.ns22000 ---| SA1 FSSA
07974 M01S03901.ns22000 ---| ZR X1,CSPX IF NO SECONDARY ALTERNATE DEVICE
07975 M01S03902.ns22000 ---| SA2 CPAR+/COMSPFS/CPDI
07976 M01S03903.ns22000 ---| SX0 7B
07977 M01S03904.ns22000 ---| NZ X2,CSP3 IF DESTINATION INDEX SPECIFIED
07978 M01S03905.ns22000 ---| SA2 TCBF+FCUI GET USER INDEX OF FILE
07979 M01S03906.ns22000 ---| CSP3 BX3 X0*X2 GET MASTER DEVICE NUMBER
07980 M01S03907.ns22000 ---| SA2 TMDD+X3
07981 M01S03908.ns22000 ---| MX0 -6
07982 M01S03909.ns22000 ---| BX3 -X0*X2
07983 M01S03910.ns22000 ---| IX7 X3-X1
07984 M01S03911.ns22000 ---| ZR X7,CSPX IF MASTER DEVICE = SECONDARY
07985 M01S03912.ns22000 ---| CSP4 SA2 TCBF+FCEO GET DEVICE NUMBER FROM CATALOG
07986 M01S03913.ns22000 ---| LX2 24
07987 M01S03914.ns22000 ---| MX0 -6
07988 M01S03915.ns22000 ---| BX2 -X0*X2
07989 M01S03916.ns22000 ---| BX2 X2-X1
07990 M01S03917.ns22000 ---| ZR X2,CSPX IF FILE IS TO BE LOADED
07991 M01S03918.ns22000 ---| CSP5 SX6 B0 SET TO NOT LOAD FILE
07992 M01S03919.ns22000 ---| EQ CSPX RETURN
07993 M01S03920.ns22000 ---| AUP SPACE 4,20
07994 M01S03921.ns22000 ---|** AUP - ACTIVATE UTILITY PROCESSOR.
07995 M01S03922.ns22000 ---|*
07996 M01S03923.ns22000 ---|* (PAFL) = 0 IF PFU NOT ACTIVE.
07997 M01S03924.ns22000 ---|* = 1 IF PFU ALREADY ACTIVE.
07998 M01S03925.ns22000 ---|* (MAEQ) = MASTER EQUIPMENT.
07999 M01S03926.ns22000 ---|* (CPDN) = DEVICE NUMBER.
08000 M01S03927.ns22000 ---|* (TCBF+FCUI) = USER INDEX TO ACTIVATE PFU ON.
08001 M01S03928.ns22000 ---|*
08002 M01S03929.ns22000 ---|* EXIT (PAFL) = 1.
08003 M01S03930.ns22000 ---|* (RICT) = RANDOM INDEX OF PETS EOI.
08004 M01S03931.ns22000 ---|* PFU ACTIVATED IF NOT ALREADY ACTIVE.
08005 M01S03932.ns22000 ---|* CATS AND PETS FILES SET UP FOR PROCESSING.
08006 M01S03933.ns22000 ---|*
08007 M01S03934.ns22000 ---|* USES X - 1, 2, 3, 6, 7.
08008 M01S03935.ns22000 ---|* A - 1, 2, 3, 6, 7.
08009 M01S03936.ns22000 ---|*
08010 M01S03937.ns22000 ---|* CALLS RCT.
08011 M01S03938.ns22000 ---|*
08012 M01S03939.ns22000 ---|* MACROS CALLPFU, RECALL.
08013 M01S03940.ns22000 ---|
08014 M01S03941.ns22000 ---|
08015 M01S03942.ns22000 ---| AUP SUBR ENTRY/EXIT
08016 M01S03943.ns22000 ---| SA2 PAFL PFU ACTIVITY FLAG
08017 M01S03944.ns22000 ---| SA3 MAEQ
08018 M01S03945.ns22000 ---| NZ X2,AUPX IF PFU ALREADY ACTIVE
08019 M01S03946.ns22000 ---| SA2 CPAR+/COMSPFS/CPDN
08020 M01S03947.ns22000 ---| LX3 23-11 SET MASTER EQUIPMENT
08021 M01S03948.ns22000 ---| BX6 X3
08022 M01S03949.ns22000 ---| SA1 FAPM SET FET ADDRESS PARAMETER
08023 M01S03950.ns22000 ---| SA6 DATA+FTDW
08024 M01S03951.ns22000 ---| LX2 54 SET DEVICE NUMBER
08025 M01S03952.ns22000 ---| BX7 X2+X1
08026 M01S03953.ns22000 ---| SA7 CATS+FTPM
08027 M01S03954.ns22000 ---| SA1 CATS CLEAR FET STATUS FIELDS
08028 M01S03955.ns22000 ---| SA2 PETS
08029 M01S03956.ns22000 ---| MX3 42
08030 M01S03957.ns22000 ---| BX6 X3*X1
08031 M01S03958.ns22000 ---| SX1 B1 SET CATS FET COMPLETE
08032 M01S03959.ns22000 ---| BX7 X6+X1
08033 M01S03960.ns22000 ---| SA7 A1
08034 M01S03961.ns22000 ---| BX6 X3*X2
08035 M01S03962.ns22000 ---| SA1 DATA
08036 M01S03963.ns22000 ---| SA6 A2
08037 M01S03964.ns22000 ---| BX7 X3*X1
08038 M01S03965.ns22000 ---| SA7 A1
08039 M01S03966.ns22000 ---| BX6 X6-X6 CLEAR SECTOR COUNTS
08040 M01S03967.ns22000 ---| SA6 CATS+FTSC
08041 M01S03968.ns22000 ---| SA6 PETS+FTSC
08042 M01S03969.ns22000 ---| SA6 DATA+FTSC
08043 M01S03970.ns22000 ---| SA6 DATA+FTDL CLEAR DATA FILE STATE WORD
08044 M01S03971.ns22000 ---| CALLPFU CATS,CTLM ACTIVATE PFU LOAD PROCESSOR
08045 M01S03972.ns22000 ---| RECALL DATA WAIT FOR PFU TO INITIALIZE
08046 M01S03973.ns22000 ---| RJ RCT READ CATALOG TRACK
08047 M01S03974.ns22000 ---| SA1 PETS+FTSC SET PETS RANDOM INDEX
08048 M01S03975.ns22000 ---| MX2 24
08049 M01S03976.ns22000 ---| BX6 X2*X1
08050 M01S03977.ns22000 ---| LX6 -36
08051 M01S03978.ns22000 ---| SA6 RICT
08052 M01S03979.ns22000 ---| EQ AUPX EXIT
08053 M01S03980.ns22000 ---|
08054 M01S03981.ns22000 ---| PAFL BSSZ 1 PFU ACTIVE FLAG
08055 M01S03982.ns22000 ---| FAPM VFD 6/0,18/DATA,18/PETS,18/PAFL FET ADDRESS PARAMETER
08056 M01S03983.ns22000 ---| DUP SPACE 4,15
08057 M01S03984.ns22000 ---|** DUP - DROP UTILITY PROCESSOR.
08058 M01S03985.ns22000 ---|*
08059 M01S03986.ns22000 ---|* ENTRY (PAFL) = 0 IF PFU NOT ACTIVE.
08060 M01S03987.ns22000 ---|* = 1 IF PFU ACTIVE.
08061 M01S03988.ns22000 ---|*
08062 M01S03989.ns22000 ---|* EXIT (PAFL) = 0.
08063 M01S03990.ns22000 ---|* PFU DROPPED IF ACTIVE.
08064 M01S03991.ns22000 ---|* CATALOG PROCESSING COMPLETED.
08065 M01S03992.ns22000 ---|*
08066 M01S03993.ns22000 ---|* USES X - 1, 2, 6.
08067 M01S03994.ns22000 ---|* A - 1, 6.
08068 M01S03995.ns22000 ---|*
08069 M01S03996.ns22000 ---|* CALLS FCB.
08070 M01S03997.ns22000 ---|*
08071 M01S03998.ns22000 ---|* MACROS RECALL.
08072 M01S03999.ns22000 ---|
08073 M01S04000.ns22000 ---|
08074 M01S04001.ns22000 ---| DUP SUBR ENTRY/EXIT
08075 M01S04002.ns22000 ---| SA1 PAFL
08076 M01S04003.ns22000 ---| ZR X1,DUPX IF PFU NOT ACTIVE
08077 M01S04004.ns22000 ---| RJ FCB FLUSH CATALOG BUFFER
08078 M01S04005.ns22000 ---| RECALL DATA
08079 M01S04006.ns22000 ---| SA1 DATA SIGNAL PFU TO DROP
08080 M01S04007.ns22000 ---| MX2 42
08081 M01S04008.ns22000 ---| BX6 X2*X1
08082 M01S04009.ns22000 ---| SX1 10B
08083 M01S04010.ns22000 ---| BX6 X6+X1
08084 M01S04011.ns22000 ---| SA6 A1
08085 M01S04012.ns22000 ---| RECALL DATA WAIT FOR PFU TO COMPLETE
08086 M01S04013.ns22000 ---| EQ DUPX EXIT
08087 M01S04014.ns22000 ---| PPB SPACE 4,30
08088 M01S04015.ns22000 ---|** PPB - PROCESS PERMIT BLOCK.
08089 M01S04016.ns22000 ---|*
08090 M01S04017.ns22000 ---|* ENTRY (CWBF) = PERMIT CONTROL WORD.
08091 M01S04018.ns22000 ---|* (RICT) = CURRENT PERMIT RANDOM INDEX.
08092 M01S04019.ns22000 ---|* (*CATS* IN POINTER) = ADDRESS OF CATALOG ENTRY.
08093 M01S04020.ns22000 ---|*
08094 M01S04021.ns22000 ---|* EXIT (X6) = 0 IF FILE NOT TO BE LOADED.
08095 M01S04022.ns22000 ---|* (X6) = 1 IF FILE TO BE LOADED.
08096 M01S04023.ns22000 ---|* (RICT) = UPDATED PERMIT RANDOM INDEX.
08097 M01S04024.ns22000 ---|* (SKER) = 1 IF *SKIP TO EOR* REQUIRED.
08098 M01S04025.ns22000 ---|* CATALOG ENTRY UPDATED WITH RANDOM INDEX OF FIRST
08099 M01S04026.ns22000 ---|* PERMIT SECTOR.
08100 M01S04027.ns22000 ---|* PERMIT SECTORS WRITTEN TO PETS FILE.
08101 M01S04028.ns22000 ---|* TAPE FILE POSITIONED AT EOR IF FILE NOT TO BE LOADED,
08102 M01S04029.ns22000 ---|* OTHERWISE AT FIRST WORD FOLLOWING PERMITS.
08103 M01S04030.ns22000 ---|*
08104 M01S04031.ns22000 ---|* IF A PERMIT WRITE ERROR, TRACK LIMIT ERROR OR ERROR
08105 M01S04032.ns22000 ---|* IDLE CONDITION IS DETECTED, CLEANUP IS PERFORMED AND
08106 M01S04033.ns22000 ---|* EXIT IS TO *ABT*.
08107 M01S04034.ns22000 ---|*
08108 M01S04035.ns22000 ---|* USES X - 0, 1, 2, 3, 5, 6, 7.
08109 M01S04036.ns22000 ---|* A - 1, 2, 3, 6, 7.
08110 M01S04037.ns22000 ---|* B - 3, 6, 7.
08111 M01S04038.ns22000 ---|*
08112 M01S04039.ns22000 ---|* CALLS PWE, RCW, SCE, SEM, WPR.
08113 M01S04040.ns22000 ---|*
08114 M01S04041.ns22000 ---|* MACROS CWREAD.
08115 M01S04042.ns22000 ---|
08116 M01S04043.ns22000 ---|
08117 M01S04044.ns22000 ---| PPB SUBR ENTRY/EXIT
08118 M01S04045.ns22000 ---| SA3 CATS+2 PUT FIRST RANDOM INDEX IN CATALOG
08119 M01S04046.ns22000 ---| SA1 X3+FCRI
08120 M01S04047.ns22000 ---| SA2 RICT
08121 M01S04048.ns22000 ---| MX3 -36
08122 M01S04049.ns22000 ---| BX7 -X3*X1
08123 M01S04050.ns22000 ---| LX2 36
08124 M01S04051.ns22000 ---| BX6 X2+X7
08125 M01S04052.ns22000 ---| SA6 A1
08126 M01S04053.ns22000 ---| BX5 X5-X5 CLEAR SECTOR BUFFER WORD COUNT
08127 M01S04054.ns22000 ---| PPB1 SA1 CWBF SET WORD COUNT OF CONTROL WORD
08128 M01S04055.ns22000 ---| MX2 -9
08129 M01S04056.ns22000 ---| BX0 -X2*X1
08130 M01S04057.ns22000 ---|
08131 M01S04058.ns22000 ---|* FILL PERMIT SECTOR BUFFER.
08132 M01S04059.ns22000 ---|
08133 M01S04060.ns22000 ---| PPB2 SX1 100B
08134 M01S04061.ns22000 ---| IX3 X1-X5 REMAINING WORD COUNT OF SECTOR BUFFER
08135 M01S04062.ns22000 ---| IX2 X0-X3
08136 M01S04063.ns22000 ---| PL X2,PPB3 IF CONTROL WORD WILL FILL SECTOR BUFFER
08137 M01S04064.ns22000 ---| BX3 X0 SET TO READ REMAINDER OF CONTROL WORD
08138 M01S04065.ns22000 ---| PPB3 ZR X3,PPB4 IF NO WORDS TO READ
08139 M01S04066.ns22000 ---| SB6 TDBF+X5 SET SECTOR BUFFER ADDRESS
08140 M01S04067.ns22000 ---| IX0 X0-X3 REMAINING WORD COUNT FOR CONTROL WORD
08141 M01S04068.ns22000 ---| IX5 X5+X3 SECTOR BUFFER WORD COUNT
08142 M01S04069.ns22000 ---| CWREAD TAPE,B6,X3
08143 M01S04070.ns22000 ---| NZ X7,PPB5 IF PARITY ERROR
08144 M01S04071.ns22000 ---| ZR X1,PPB2 IF CONTROL WORD BLOCK COMPLETE
08145 M01S04072.ns22000 ---| EQ PPB7 PROCESS INCOMPLETE PERMIT BLOCK
08146 M01S04073.ns22000 ---|
08147 M01S04074.ns22000 ---|* PROCESS END OF CONTROL WORD.
08148 M01S04075.ns22000 ---|
08149 M01S04076.ns22000 ---| PPB4 NZ X0,PPB10 IF NOT END OF CONTROL WORD
08150 M01S04077.ns22000 ---| SA1 CWBF GET EOR FLAG
08151 M01S04078.ns22000 ---| MX2 -3
08152 M01S04079.ns22000 ---| LX1 -9
08153 M01S04080.ns22000 ---| BX3 -X2*X1 SET LAST SECTOR FLAG
08154 M01S04081.ns22000 ---| LX1 -6
08155 M01S04082.ns22000 ---| BX6 -X2*X1
08156 M01S04083.ns22000 ---| SB3 X3
08157 M01S04084.ns22000 ---| NZ X6,PPB8 IF ERROR CONTROL WORD
08158 M01S04085.ns22000 ---| EQ B3,B1,PPB9 IF EOR FLAG SET IN CONTROL WORD
08159 M01S04086.ns22000 ---| RJ RCW READ NEXT CONTROL WORD
08160 M01S04087.ns22000 ---| SX2 X3-2
08161 M01S04088.ns22000 ---| ZR X2,PPB1 IF A PERMIT CONTROL WORD
08162 M01S04089.ns22000 ---|
08163 M01S04090.ns22000 ---|* PROCESS TAPE ERROR.
08164 M01S04091.ns22000 ---|
08165 M01S04092.ns22000 ---| PPB5 ZR X7,PPB7 IF NOT PARITY ERROR
08166 M01S04093.ns22000 ---| SX5 MSGF SEND PARITY ERROR MESSAGE
08167 M01S04094.ns22000 ---| RJ SEM
08168 M01S04095.ns22000 ---| PPB6 SX7 B1 SET SKIP TO EOR FLAG
08169 M01S04096.ns22000 ---| BX6 X6-X6 SELECT NO FILE LOAD
08170 M01S04097.ns22000 ---| SA7 SKER
08171 M01S04098.ns22000 ---| EQ PPBX EXIT
08172 M01S04099.ns22000 ---|
08173 M01S04100.ns22000 ---| PPB7 SX5 MSGL SEND MISSING PERMITS MESSAGE
08174 M01S04101.ns22000 ---| RJ SEM
08175 M01S04102.ns22000 ---| SX5 MSGH SEND TAPE ERROR MESSAGE
08176 M01S04103.ns22000 ---| RJ SEM
08177 M01S04104.ns22000 ---| EQ PPB6 SKIP FILE
08178 M01S04105.ns22000 ---|
08179 M01S04106.ns22000 ---|* PROCESS EMPTY PERMIT SECTOR.
08180 M01S04107.ns22000 ---|
08181 M01S04108.ns22000 ---| PPB8 SX6 FEPM SET PERMIT ERROR IN CATALOG
08182 M01S04109.ns22000 ---| RJ SCE
08183 M01S04110.ns22000 ---| PPB9 NZ X5,PPB10 IF NOT EMPTY SECTOR
08184 M01S04111.ns22000 ---| SA3 CATS+2 CLEAR PERMIT RANDOM INDEX FROM CATALOG
08185 M01S04112.ns22000 ---| SA1 X3+FCRI
08186 M01S04113.ns22000 ---| MX2 -36
08187 M01S04114.ns22000 ---| BX7 -X2*X1
08188 M01S04115.ns22000 ---| SX6 B1 SELECT FILE LOAD
08189 M01S04116.ns22000 ---| SA7 A1
08190 M01S04117.ns22000 ---| EQ PPBX EXIT
08191 M01S04118.ns22000 ---|
08192 M01S04119.ns22000 ---|* WRITE PERMIT SECTOR TO PERMIT FILE.
08193 M01S04120.ns22000 ---|
08194 M01S04121.ns22000 ---| PPB10 SA1 RICT ADVANCE RANDOM INDEX
08195 M01S04122.ns22000 ---| SA2 CATS+2 GET CATALOG ADDRESS
08196 M01S04123.ns22000 ---| SX6 B1
08197 M01S04124.ns22000 ---| IX7 X1+X6
08198 M01S04125.ns22000 ---| SB7 X5+B1 SET SECTOR WORD COUNT
08199 M01S04126.ns22000 ---| SA7 A1
08200 M01S04127.ns22000 ---| SA1 X2+FCUI GET USER INDEX FROM CATALOG
08201 M01S04128.ns22000 ---| LX2 36 BUILD SECTOR CONTROL WORD
08202 M01S04129.ns22000 ---| BX6 X2+X5
08203 M01S04130.ns22000 ---| LX7 36
08204 M01S04131.ns22000 ---| MX2 -18
08205 M01S04132.ns22000 ---| SA6 LWRD
08206 M01S04133.ns22000 ---| BX1 -X2*X1
08207 M01S04134.ns22000 ---| ZR X3,PPB11 IF NOT LAST SECTOR
08208 M01S04135.ns22000 ---| BX7 X7-X7 CLEAR PERMIT LINKAGE RANDOM INDEX
08209 M01S04136.ns22000 ---| PPB11 LX1 12 GET PERMIT LINKAGE WORD
08210 M01S04137.ns22000 ---| BX6 X7+X1
08211 M01S04138.ns22000 ---| SB6 LWRD SET WORKING BUFFER ADDRESS
08212 M01S04139.ns22000 ---| BX5 X3 SAVE LAST SECTOR FLAG
08213 M01S04140.ns22000 ---| SX2 PETS SET FET ADDRESS
08214 M01S04141.ns22000 ---| SA6 B6+B1
08215 M01S04142.ns22000 ---| RJ WPR WRITE PERMIT SECTOR
08216 M01S04143.ns22000 ---| NZ B7,PPB12 IF PERMIT WRITE ERROR
08217 M01S04144.ns22000 ---| ZR X5,PPB2 IF NOT LAST SECTOR
08218 M01S04145.ns22000 ---| SX6 B1 SELECT FILE LOAD
08219 M01S04146.ns22000 ---| EQ PPBX EXIT
08220 M01S04147.ns22000 ---|
08221 M01S04148.ns22000 ---|* PROCESS PERMIT WRITE ERROR.
08222 M01S04149.ns22000 ---|
08223 M01S04150.ns22000 ---| PPB12 RJ PWE PROCESS PERMIT WRITE ERROR
08224 M01S04151.ns22000 ---| EQ ABT ABORT LOAD
08225 M01S04152.ns22000 ---| PDB SPACE 4,20
08226 M01S04153.ns22000 ---|** PDB - PROCESS DATA BLOCK.
08227 M01S04154.ns22000 ---|*
08228 M01S04155.ns22000 ---|* ENTRY (X3) .LT. 0 IF EOR DETECTED ON ARCHIVE FILE.
08229 M01S04156.ns22000 ---|* .GE. 0 IF EOR NOT DETECTED ON ARCHIVE FILE.
08230 M01S04157.ns22000 ---|* (*CATS* *IN* POINTER) = ADDRESS OF CATALOG ENTRY.
08231 M01S04158.ns22000 ---|*
08232 M01S04159.ns22000 ---|* EXIT (X6) = 0 IF FILE NOT TO BE LOADED.
08233 M01S04160.ns22000 ---|* = NON-ZERO IF FILE TO BE LOADED.
08234 M01S04161.ns22000 ---|* DATA FOR FILE WRITTEN TO MASS STORAGE.
08235 M01S04162.ns22000 ---|* (SKER) = 1 IF *SKIP TO EOR* REQUIRED.
08236 M01S04163.ns22000 ---|*
08237 M01S04164.ns22000 ---|* USES X - ALL.
08238 M01S04165.ns22000 ---|* A - 1, 2, 3, 4, 6, 7.
08239 M01S04166.ns22000 ---|* B - 6, 7.
08240 M01S04167.ns22000 ---|*
08241 M01S04168.ns22000 ---|* CALLS DIF, DWE, RCW, SCE, SEM, WPR.
08242 M01S04169.ns22000 ---|*
08243 M01S04170.ns22000 ---|* MACROS CWREAD, EDITS, RECALL.
08244 M01S04171.ns22000 ---|
08245 M01S04172.ns22000 ---|
08246 M01S04173.ns22000 ---| PDB SUBR ENTRY/EXIT
08247 M01S04174.ns22000 ---|
08248 M01S04175.ns22000 ---|* PRESET DATA PROCESSING PARAMETERS.
08249 M01S04176.ns22000 ---|
08250 M01S04177.ns22000 ---| SA1 TCBF+FCLF SET FILE LENGTH
08251 M01S04178.ns22000 ---| MX0 -24
08252 M01S04179.ns22000 ---| SX2 B1 ADJUST LENGTH FOR EOI
08253 M01S04180.ns22000 ---| LX1 -36
08254 M01S04181.ns22000 ---| BX6 -X0*X1
08255 M01S04182.ns22000 ---| IX7 X6+X2
08256 M01S04183.ns22000 ---| BX5 X5-X5 CLEAR WORD ACCUMULATOR
08257 M01S04184.ns22000 ---| SA1 TCBF+FCBS CHECK FILE TYPE
08258 M01S04185.ns22000 ---| SA7 LENA
08259 M01S04186.ns22000 ---| BX6 X6-X6 CLEAR PFU CONTROL WORD
08260 M01S04187.ns22000 ---| LX1 59-11
08261 M01S04188.ns22000 ---| SA6 WWRT CLEAR BUFFER POINTER
08262 M01S04189.ns22000 ---| SX7 SSBFL INITIALIZE SYSTEM SECTOR LENGTH
08263 M01S04190.ns22000 ---| SA7 PDBC
08264 M01S04191.ns22000 ---| PL X1,PDB1 IF INDIRECT ACCESS FILE
08265 M01S04192.ns22000 ---|
08266 M01S04193.ns22000 ---|* SET DEVICE NUMBER FOR DIRECT ACCESS FILE IN LINKAGE WORD.
08267 M01S04194.ns22000 ---|
08268 M01S04195.ns22000 ---| SA1 TCBF+FCEO GET DN FROM CATALOG
08269 M01S04196.ns22000 ---| MX0 -6
08270 M01S04197.ns22000 ---| LX1 -36
08271 M01S04198.ns22000 ---| BX6 -X0*X1
08272 M01S04199.ns22000 ---| LX6 48
08273 M01S04200.ns22000 ---| NZ X6,PDB1 IF DEVICE SPECIFIED IN CATALOG
08274 M01S04201.ns22000 ---| SA1 CPAR+/COMSPFS/CPDN SET MASTER DEVICE NUMBER
08275 M01S04202.ns22000 ---| LX1 48
08276 M01S04203.ns22000 ---| BX6 X1
08277 M01S04204.ns22000 ---| NZ X1,PDB1 IF DN SPECIFIED
08278 M01S04205.ns22000 ---| MX6 1 SET 4000B FOR PACK DAF DN
08279 M01S04206.ns22000 ---| PDB1 LX6 24
08280 M01S04207.ns22000 ---|
08281 M01S04208.ns22000 ---|* SET CATALOG ADDRESS IN LINKAGE WORD.
08282 M01S04209.ns22000 ---|
08283 M01S04210.ns22000 ---| SA1 CATS+2 GET ADDRESS OF CATALOG ENTRY
08284 M01S04211.ns22000 ---| LX1 36
08285 M01S04212.ns22000 ---| BX6 X6+X1
08286 M01S04213.ns22000 ---| SA6 LWRD
08287 M01S04214.ns22000 ---| NG X3,PDB13 IF PHYSICAL EOR
08288 M01S04215.ns22000 ---| EQ PDB3
08289 M01S04216.ns22000 ---|
08290 M01S04217.ns22000 ---| PDB2 RJ RCW READ CONTROL WORD
08291 M01S04218.ns22000 ---| NZ X7,PDB25 IF PARITY ERROR
08292 M01S04219.ns22000 ---| SX0 X3-3
08293 M01S04220.ns22000 ---| NZ X0,PDB12 IF NOT DATA TYPE
08294 M01S04221.ns22000 ---|
08295 M01S04222.ns22000 ---|* BREAK UP CONTROL WORD
08296 M01S04223.ns22000 ---|
08297 M01S04224.ns22000 ---| PDB3 SA4 CWBF CHECK FOR ERROR CONTROL WORD
08298 M01S04225.ns22000 ---| SA3 ERCW
08299 M01S04226.ns22000 ---| MX0 42
08300 M01S04227.ns22000 ---| BX2 X0*X4
08301 M01S04228.ns22000 ---| BX2 X2-X3
08302 M01S04229.ns22000 ---| ZR X2,PDB26 IF ERROR CONTROL WORD
08303 M01S04230.ns22000 ---| MX0 51
08304 M01S04231.ns22000 ---| BX1 -X0*X4 SET NUMBER OF WORDS
08305 M01S04232.ns22000 ---| AX4 9
08306 M01S04233.ns22000 ---| AX0 6
08307 M01S04234.ns22000 ---| BX0 -X0*X4 SET DATA MARK
08308 M01S04235.ns22000 ---| IX5 X5+X1 INCREMENT WORD COUNT
08309 M01S04236.ns22000 ---|
08310 M01S04237.ns22000 ---|* CHECK FOR SYSTEM SECTOR.
08311 M01S04238.ns22000 ---|
08312 M01S04239.ns22000 ---| SA3 PDBC GET REMAINING SYSTEM SECTOR LENGTH
08313 M01S04240.ns22000 ---| SX4 X0-4
08314 M01S04241.ns22000 ---| BX7 X7-X7
08315 M01S04242.ns22000 ---| BX6 X4+X3
08316 M01S04243.ns22000 ---| ZR X6,PDB12 IF SYSTEM SECTOR NOT BOI
08317 M01S04244.ns22000 ---| ZR X4,PDB4 IF SYSTEM SECTOR
08318 M01S04245.ns22000 ---| ZR X3,PDB6 IF SYSTEM SECTOR PROCESSING COMPLETED
08319 M01S04246.ns22000 ---| SX7 X3-SSBFL
08320 M01S04247.ns22000 ---| ZR X7,PDB5 IF BOI NOT SYSTEM SECTOR
08321 M01S04248.ns22000 ---| EQ PDB28 PROCESS TRUNCATED SYSTEM SECTOR
08322 M01S04249.ns22000 ---|
08323 M01S04250.ns22000 ---| PDB4 IX7 X3-X1 DECREMENT REMAINING SYSTEM SECTOR LENGTH
08324 M01S04251.ns22000 ---| NG X7,PDB29 IF SYSTEM SECTOR TOO LONG
08325 M01S04252.ns22000 ---|
08326 M01S04253.ns22000 ---|* READ TAPE INTO BUFFER
08327 M01S04254.ns22000 ---|
08328 M01S04255.ns22000 ---| PDB5 SA7 PDBC SAVE REMAINING SYSTEM SECTOR LENGTH
08329 M01S04256.ns22000 ---| PDB6 ZR X5,PDB8 IF NO WORDS TO READ
08330 M01S04257.ns22000 ---| SA4 WWRT POINTER TO NEXT AVAILABLE WORD
08331 M01S04258.ns22000 ---| BX3 -X4
08332 M01S04259.ns22000 ---| SX3 X3+100B
08333 M01S04260.ns22000 ---| IX2 X5-X3
08334 M01S04261.ns22000 ---| PL X2,PDB7 IF NOT ENOUGH SPACE
08335 M01S04262.ns22000 ---| IX6 X4+X5 NEW POINTER
08336 M01S04263.ns22000 ---| SA6 A4
08337 M01S04264.ns22000 ---| CWREAD TAPE,TDBF+X4,X5
08338 M01S04265.ns22000 ---| NZ X7,PDB25 IF PARITY ERROR
08339 M01S04266.ns22000 ---| BX5 X5-X5 CLEAR WORD COUNT
08340 M01S04267.ns22000 ---| ZR X0,PDB2 IF NO FILE MARK
08341 M01S04268.ns22000 ---| SX2 X0-4
08342 M01S04269.ns22000 ---| ZR X2,PDB2 IF FIRST PART OF SPLIT SYSTEM SECTOR
08343 M01S04270.ns22000 ---| SX0 X0-1
08344 M01S04271.ns22000 ---| ZR X0,PDB10 IF EOR
08345 M01S04272.ns22000 ---| SX5 =C* MISSING EOR.*
08346 M01S04273.ns22000 ---| RJ SEM SEND ERROR MESSAGE
08347 M01S04274.ns22000 ---| EQ PDB22 PROCESS TAPE ERROR
08348 M01S04275.ns22000 ---|
08349 M01S04276.ns22000 ---|* PROCESS BUFFER WITH NOT ENOUGH SPACE AVAILABLE.
08350 M01S04277.ns22000 ---|
08351 M01S04278.ns22000 ---| PDB7 BX6 X6-X6 RESET WORDS WRITTEN
08352 M01S04279.ns22000 ---| SA6 A4
08353 M01S04280.ns22000 ---| IX5 X5-X3 WORDS LEFT IN MAIN BUFFER
08354 M01S04281.ns22000 ---| CWREAD TAPE,TDBF+X4,X3
08355 M01S04282.ns22000 ---| NZ X7,PDB25 IF PARITY ERROR
08356 M01S04283.ns22000 ---| SX6 100B
08357 M01S04284.ns22000 ---| EQ PDB14 PROCESS BLOCK
08358 M01S04285.ns22000 ---|
08359 M01S04286.ns22000 ---|* PROCESS FILE MARKS.
08360 M01S04287.ns22000 ---|
08361 M01S04288.ns22000 ---| PDB8 ZR X0,PDB2 IF PLAIN DATA BLOCK
08362 M01S04289.ns22000 ---| SX2 X0-4
08363 M01S04290.ns22000 ---| ZR X2,PDB2 IF SYSTEM SECTOR
08364 M01S04291.ns22000 ---| SX2 X0-1
08365 M01S04292.ns22000 ---| NZ X2,PDB11 IF NOT EOR
08366 M01S04293.ns22000 ---|
08367 M01S04294.ns22000 ---|* PROCESS EOR WITH ZERO LENGTH PRU.
08368 M01S04295.ns22000 ---|
08369 M01S04296.ns22000 ---| BX6 X6-X6 SET PRU LENGTH TO ZERO
08370 M01S04297.ns22000 ---| PDB9 BX0 X0-X0 CLEAR DATA MARK
08371 M01S04298.ns22000 ---| EQ PDB14 PROCESS DATA BLOCK
08372 M01S04299.ns22000 ---|
08373 M01S04300.ns22000 ---|* PROCESS EOR WITH SHORT PRU.
08374 M01S04301.ns22000 ---|
08375 M01S04302.ns22000 ---| PDB10 SA1 WWRT SET PRU LENGTH
08376 M01S04303.ns22000 ---| BX6 X1
08377 M01S04304.ns22000 ---| BX7 X7-X7 CLEAR WORDS WRITTEN
08378 M01S04305.ns22000 ---| SA7 A1
08379 M01S04306.ns22000 ---| EQ PDB14 PROCESS DATA BLOCK
08380 M01S04307.ns22000 ---|
08381 M01S04308.ns22000 ---|* PROCESS EOF.
08382 M01S04309.ns22000 ---|
08383 M01S04310.ns22000 ---| PDB11 SX6 DLEF SET EOF INDICATOR
08384 M01S04311.ns22000 ---| LX6 54
08385 M01S04312.ns22000 ---| EQ PDB9 CLEAR DATA MARK
08386 M01S04313.ns22000 ---|
08387 M01S04314.ns22000 ---|* PROCESS EOI.
08388 M01S04315.ns22000 ---|
08389 M01S04316.ns22000 ---| PDB12 NG X3,PDB13 IF EOI
08390 M01S04317.ns22000 ---| SX5 =C* NO EOI FOR FILE.*
08391 M01S04318.ns22000 ---| RJ SEM
08392 M01S04319.ns22000 ---| EQ PDB22 PROCESS MISSING EOI
08393 M01S04320.ns22000 ---|
08394 M01S04321.ns22000 ---| PDB13 SX0 3 SET EOI CONDITION
08395 M01S04322.ns22000 ---| SX6 DLEI SET EOI INDICATOR
08396 M01S04323.ns22000 ---| LX6 54
08397 M01S04324.ns22000 ---|
08398 M01S04325.ns22000 ---|* PROCESS DATA BLOCK
08399 M01S04326.ns22000 ---|
08400 M01S04327.ns22000 ---| PDB14 SA1 LWRD SET PRU LENGTH
08401 M01S04328.ns22000 ---| MX2 48
08402 M01S04329.ns22000 ---| BX2 -X2*X6
08403 M01S04330.ns22000 ---| SB7 X2+B1
08404 M01S04331.ns22000 ---| MX2 42
08405 M01S04332.ns22000 ---| LX2 54
08406 M01S04333.ns22000 ---| BX1 X2*X1
08407 M01S04334.ns22000 ---| BX6 X6+X1
08408 M01S04335.ns22000 ---| SX3 X0-4
08409 M01S04336.ns22000 ---| ZR X3,PDB15 IF SYSTEM SECTOR
08410 M01S04337.ns22000 ---| SA1 LENA DECREMENT LENGTH
08411 M01S04338.ns22000 ---| SX2 B1
08412 M01S04339.ns22000 ---| IX7 X1-X2
08413 M01S04340.ns22000 ---| SX3 X0-3
08414 M01S04341.ns22000 ---| IX1 X7-X2
08415 M01S04342.ns22000 ---| PL X1,PDB16 IF MORE LENGTH INDICATED BY CATALOG
08416 M01S04343.ns22000 ---| ZR X3,PDB17 IF EOI
08417 M01S04344.ns22000 ---| EQ PDB22 PROCESS FILE TOO LONG
08418 M01S04345.ns22000 ---|
08419 M01S04346.ns22000 ---|* PROCESS SYSTEM SECTOR.
08420 M01S04347.ns22000 ---|
08421 M01S04348.ns22000 ---| PDB15 SX1 DLSS SET SYSTEM SECTOR INDICATOR
08422 M01S04349.ns22000 ---| LX1 54
08423 M01S04350.ns22000 ---| BX6 X6+X1
08424 M01S04351.ns22000 ---| BX0 X0-X0 CLEAR DATA MARK
08425 M01S04352.ns22000 ---| EQ PDB18 WRITE SYSTEM SECTOR TO DATA FILE
08426 M01S04353.ns22000 ---|
08427 M01S04354.ns22000 ---|* WRITE SECTOR TO DATA FILE.
08428 M01S04355.ns22000 ---|
08429 M01S04356.ns22000 ---| PDB16 ZR X3,PDB21 IF FILE TOO SHORT
08430 M01S04357.ns22000 ---| PDB17 SA7 A1 SAVE REMAINING LENGTH
08431 M01S04358.ns22000 ---| PDB18 SA6 LWRD SAVE DATA LINKAGE WORD
08432 M01S04359.ns22000 ---| SB6 A6 SET BUFFER ADDRESS
08433 M01S04360.ns22000 ---| PDB19 SX2 DATA
08434 M01S04361.ns22000 ---| RJ WPR WRITE SECTOR TO DATA FILE
08435 M01S04362.ns22000 ---| NZ B7,PDB20 IF WRITE ERROR
08436 M01S04363.ns22000 ---| SX1 X0-3
08437 M01S04364.ns22000 ---| NZ X1,PDB6 IF NOT EOI
08438 M01S04365.ns22000 ---| SX6 B1+ SELECT FILE LOADING
08439 M01S04366.ns22000 ---| EQ PDBX EXIT
08440 M01S04367.ns22000 ---|
08441 M01S04368.ns22000 ---|* PROCESS DATA WRITE ERROR.
08442 M01S04369.ns22000 ---|
08443 M01S04370.ns22000 ---| PDB20 BX6 X0 SAVE ARCHIVE CONTROL WORD PARAMETERS
08444 M01S04371.ns22000 ---| LX7 X5
08445 M01S04372.ns22000 ---| SA6 PDBA
08446 M01S04373.ns22000 ---| SA7 A6+B1
08447 M01S04374.ns22000 ---| RJ DWE PROCESS DATA WRITE ERROR
08448 M01S04375.ns22000 ---| SA1 PDBA RESTORE ARCHIVE CONTROL WORD PARAMETERS
08449 M01S04376.ns22000 ---| SA2 A1+B1
08450 M01S04377.ns22000 ---| BX0 X1
08451 M01S04378.ns22000 ---| LX5 X2
08452 M01S04379.ns22000 ---| SA1 LWRD RESTORE SECTOR WORD COUNT
08453 M01S04380.ns22000 ---| MX2 -12
08454 M01S04381.ns22000 ---| BX3 -X2*X1
08455 M01S04382.ns22000 ---| SB6 A1 RESTORE BUFFER ADDRESS
08456 M01S04383.ns22000 ---| SA1 BFCA CHECK IF ERROR ON CURRENT FILE
08457 M01S04384.ns22000 ---| SA2 CATS+2
08458 M01S04385.ns22000 ---| SB7 X3+B1
08459 M01S04386.ns22000 ---| BX7 X1-X2
08460 M01S04387.ns22000 ---| NZ X7,PDB19 IF ERROR NOT ON CURRENT FILE
08461 M01S04388.ns22000 ---| SA1 LENA LENGTH NOT WRITTEN TO BUFFER
08462 M01S04389.ns22000 ---| SA3 X2+FCLF ADJUST CATALOG LENGTH
08463 M01S04390.ns22000 ---| LX1 36
08464 M01S04391.ns22000 ---| IX7 X3-X1
08465 M01S04392.ns22000 ---| SX6 B1 SELECT FILE LOADING
08466 M01S04393.ns22000 ---| SA7 A3
08467 M01S04394.ns22000 ---| SA6 SKER SET SKIP TO EOR FLAG
08468 M01S04395.ns22000 ---| EQ PDBX EXIT
08469 M01S04396.ns22000 ---|
08470 M01S04397.ns22000 ---|* PROCESS FILE TOO SHORT.
08471 M01S04398.ns22000 ---|
08472 M01S04399.ns22000 ---| PDB21 SA1 MSGH+2 SET UP TRUNCATED FILE MESSAGE
08473 M01S04400.ns22000 ---| SA2 A1+B1
08474 M01S04401.ns22000 ---| BX6 X1
08475 M01S04402.ns22000 ---| BX7 X2
08476 M01S04403.ns22000 ---| SA6 PDBB+2
08477 M01S04404.ns22000 ---| SA7 A6+B1
08478 M01S04405.ns22000 ---| SX5 PDBB SEND ERROR MESSAGE
08479 M01S04406.ns22000 ---| RJ SEM
08480 M01S04407.ns22000 ---| EQ PDB24 PROCESS TRUNCATED FILE
08481 M01S04408.ns22000 ---|
08482 M01S04409.ns22000 ---|* PROCESS ERRORS.
08483 M01S04410.ns22000 ---|
08484 M01S04411.ns22000 ---| PDB22 SX5 MSGH SEND TAPE ERROR MESSAGE
08485 M01S04412.ns22000 ---| RJ SEM
08486 M01S04413.ns22000 ---| PDB23 SX6 B1+ SET SKIP TO EOR FLAG
08487 M01S04414.ns22000 ---| SA6 SKER
08488 M01S04415.ns22000 ---| PDB24 SA2 LENA UPDATE LENGTH IN CATALOG
08489 M01S04416.ns22000 ---| SX1 B1
08490 M01S04417.ns22000 ---| IX7 X2-X1 ALLOW FOR EOI SECTOR
08491 M01S04418.ns22000 ---| ZR X7,PDB13 IF NO CATALOG CHANGE
08492 M01S04419.ns22000 ---| MX6 0
08493 M01S04420.ns22000 ---| SA6 A2
08494 M01S04421.ns22000 ---| RECALL DATA WAIT FOR PFU COMPLETION
08495 M01S04422.ns22000 ---| SA1 CATS+2 SET NEW LENGTH IN CATALOG
08496 M01S04423.ns22000 ---| SA2 X1+FCLF
08497 M01S04424.ns22000 ---| LX2 24
08498 M01S04425.ns22000 ---| IX6 X2-X7 NEW FILE LENGTH
08499 M01S04426.ns22000 ---| LX6 36
08500 M01S04427.ns22000 ---| SA6 A2
08501 M01S04428.ns22000 ---| EQ PDB13 FORCE EOI
08502 M01S04429.ns22000 ---|
08503 M01S04430.ns22000 ---|* PROCESS PARITY ERROR.
08504 M01S04431.ns22000 ---|
08505 M01S04432.ns22000 ---| PDB25 SX5 MSGF SEND PARITY ERROR MESSAGE
08506 M01S04433.ns22000 ---| RJ SEM
08507 M01S04434.ns22000 ---| EQ PDB23 PROCESS ERROR
08508 M01S04435.ns22000 ---|
08509 M01S04436.ns22000 ---|* PROCESS ERROR CONTROL WORD.
08510 M01S04437.ns22000 ---|
08511 M01S04438.ns22000 ---| PDB26 SX6 FEDT SET DATA ERROR IN CATALOG
08512 M01S04439.ns22000 ---| RJ SCE
08513 M01S04440.ns22000 ---| SA1 CWBF CLEAR CONTROL WORD ERROR FLAGS
08514 M01S04441.ns22000 ---| MX7 -15
08515 M01S04442.ns22000 ---| BX6 -X7*X1
08516 M01S04443.ns22000 ---| LX1 -15 GET ERROR TYPE
08517 M01S04444.ns22000 ---| MX7 -3
08518 M01S04445.ns22000 ---| BX2 -X7*X1
08519 M01S04446.ns22000 ---| SA6 A1
08520 M01S04447.ns22000 ---| ZR X2,PDB21 IF TRUNCATED FILE ERROR
08521 M01S04448.ns22000 ---| SA1 CPAR+/COMSPFS/CPEO
08522 M01S04449.ns22000 ---| NZ X1,PDB27 IF BAD FILE PROCESSING SUPPRESSED
08523 M01S04450.ns22000 ---| SX7 X2-2
08524 M01S04451.ns22000 ---| NZ X7,PDB3 IF NOT SUPPRESSED FILE CONTROL WORD
08525 M01S04452.ns22000 ---| PDB27 RJ DIF DELETE INCOMPLETE FILE
08526 M01S04453.ns22000 ---| SX7 B1 SET SKIP TO EOR FLAG
08527 M01S04454.ns22000 ---| BX6 X6-X6 CLEAR LOAD FLAG
08528 M01S04455.ns22000 ---| SA7 SKER
08529 M01S04456.ns22000 ---| EQ PDBX EXIT
08530 M01S04457.ns22000 ---|
08531 M01S04458.ns22000 ---|* PROCESS WRONG LENGTH SYSTEM SECTOR.
08532 M01S04459.ns22000 ---|
08533 M01S04460.ns22000 ---| PDB28 EDITS MSFN,MES9 * PFLOAD - SYSTEM SECTOR TRUNCATED*
08534 M01S04461.ns22000 ---| EQ PDB30 SEND ERROR MESSAGE
08535 M01S04462.ns22000 ---|
08536 M01S04463.ns22000 ---| PDB29 EDITS MSFN,MES10 * PFLOAD - SYSTEM SECTOR TOO LONG*
08537 M01S04464.ns22000 ---| PDB30 RJ SEM
08538 M01S04465.ns22000 ---| EQ PDB27 DELETE INCOMPLETE FILE
08539 M01S04466.ns22000 ---|
08540 M01S04467.ns22000 ---| PDBA BSS 2 ARCHIVE CONTROL WORD PARAMETERS
08541 M01S04468.ns22000 ---| WWRT BSSZ 1 WORDS WRITTEN
08542 M01S04469.ns22000 ---| ERCW VFD 42/7HERROR**,18/0
08543 M01S04470.ns22000 ---| PDBB DATA 40H FILE TRUNCATED
08544 M01S04471.ns22000 ---| PDBC BSSZ 1 REMAINING SYSTEM SECTOR LENGTH
08545 M01S04472.ns22000 ---| PDI SPACE 4,20
08546 M01S04473.ns22000 ---|** PDI - PROCESS DESTINATION INDEX.
08547 M01S04474.ns22000 ---|*
08548 M01S04475.ns22000 ---|* ENTRY (TCBF) = CATALOG ENTRY FOR CURRENT FILE.
08549 M01S04476.ns22000 ---|* (CPAR+/COMSPFS/CPDI) = DESTINATION INDEX.
08550 M01S04477.ns22000 ---|* (TMDD) = TABLE OF MASTER DEVICE DESCRIPTIONS.
08551 M01S04478.ns22000 ---|*
08552 M01S04479.ns22000 ---|* EXIT (TCBF) = UPDATED WITH DESTINATION INDEX IF SPECIFIED.
08553 M01S04480.ns22000 ---|* (MDDS) = MASTER DEVICE DESCRIPTION FOR FILE.
08554 M01S04481.ns22000 ---|* (CPAR+/COMSPFS/CPDN) = MASTER DEVICE NUMBER FOR FILE.
08555 M01S04482.ns22000 ---|*
08556 M01S04483.ns22000 ---|* USES X - 1, 2, 3, 6, 7.
08557 M01S04484.ns22000 ---|* A - 1, 2, 6, 7.
08558 M01S04485.ns22000 ---|
08559 M01S04486.ns22000 ---|
08560 M01S04487.ns22000 ---| PDI SUBR ENTRY/EXIT
08561 M01S04488.ns22000 ---| SA1 CPAR+/COMSPFS/CPDI
08562 M01S04489.ns22000 ---| SA2 TCBF+FCUI
08563 M01S04490.ns22000 ---| ZR X1,PDI1 IF DESTINATION DEVICE NOT SPECIFIED
08564 M01S04491.ns22000 ---| MX3 42
08565 M01S04492.ns22000 ---| BX2 X3*X2 PUT DESTINATION INDEX IN CATALOG
08566 M01S04493.ns22000 ---| IX6 X2+X1
08567 M01S04494.ns22000 ---| BX2 X1
08568 M01S04495.ns22000 ---| SA6 A2+
08569 M01S04496.ns22000 ---| PDI1 MX3 -3 GET MASTER DEVICE DESCRIPTION
08570 M01S04497.ns22000 ---| BX2 -X3*X2
08571 M01S04498.ns22000 ---| SA1 TMDD+X2
08572 M01S04499.ns22000 ---| SX3 77B
08573 M01S04500.ns22000 ---| LX6 X1 SAVE MASTER DEVICE DESCRIPTION
08574 M01S04501.ns22000 ---| BX7 X3*X1 SET MASTER DEVICE NUMBER
08575 M01S04502.ns22000 ---| SA6 MDDS
08576 M01S04503.ns22000 ---| SA7 CPAR+/COMSPFS/CPDN
08577 M01S04504.ns22000 ---| EQ PDIX
| Line S00061 Modification History |
M01 (Added by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
08578 M02S00061.ns22000 ---| RAS SPACE 4,10
08579 M02S00062.ns22000 ---|** RAS - RETURN AVAILABLE SPACE.
08580 M02S00063.ns22000 ---|*
08581 M02S00064.ns22000 ---|* ENTRY (X5) = SECOND WORD OF *MSTT* TABLE ENTRY FOR DEVICE.
08582 M02S00065.ns22000 ---|*
08583 M02S00066.ns22000 ---|* EXIT (X1) = NUMBER OF AVAILABLE SECTORS ON DEVICE.
08584 M02S00067.ns22000 ---|*
08585 M02S00068.ns22000 ---|* USES X - 0, 1, 2, 5, 6, 7.
08586 M02S00069.ns22000 ---|* A - 1, 6, 7.
08587 M02S00070.ns22000 ---|*
08588 M02S00071.ns22000 ---|* MACROS SYSTEM.
08589 M02S00072.ns22000 ---|
08590 M02S00073.ns22000 ---|
08591 M02S00074.ns22000 ---| RAS SUBR ENTRY/EXIT
08592 M02S00075.ns22000 ---| LX5 12 ADD MST ADDRESS TO *RSB* CALL
08593 M02S00076.ns22000 ---| MX0 -12
08594 M02S00077.ns22000 ---| BX2 -X0*X5
08595 M02S00078.ns22000 ---| ERRNZ TDGL CODE DEPENDS ON VALUE
08596 M02S00079.ns22000 ---| SA1 RASA
08597 M02S00080.ns22000 ---| LX2 3+18
08598 M02S00081.ns22000 ---| MX0 42
08599 M02S00082.ns22000 ---| LX0 18
08600 M02S00083.ns22000 ---| BX1 X0*X1
08601 M02S00084.ns22000 ---| BX6 X1+X2
08602 M02S00085.ns22000 ---| MX7 1
08603 M02S00086.ns22000 ---| SA7 RASB
08604 M02S00087.ns22000 ---| BX6 -X7*X6
08605 M02S00088.ns22000 ---| SA6 A1
08606 M02S00089.ns22000 ---| SYSTEM RSB,R,A6 READ MST WORD
08607 M02S00090.ns22000 ---| SA1 RASB
08608 M02S00091.ns22000 ---| MX0 -12
08609 M02S00092.ns22000 ---| BX1 -X0*X1 TRACKS AVAILABLE
08610 M02S00093.ns22000 ---| LX5 12
08611 M02S00094.ns22000 ---| BX2 -X0*X5 SECTOR LIMIT
08612 M02S00095.ns22000 ---| IX1 X1*X2 SECTORS AVAILABLE
08613 M02S00096.ns22000 ---| EQ RASX RETURN
08614 M02S00097.ns22000 ---|
08615 M02S00098.ns22000 ---| RASA VFD 24/1,18/0,18/RASB *RSB* PARAMETER WORD
08616 M02S00099.ns22000 ---| RASB CON 0 MST WORD RETURN
08617 M02S00100.ns22000 ---| SLD SPACE 4,10
08618 M02S00101.ns22000 ---|** SLD - SELECT LARGEST DEVICE.
08619 M02S00102.ns22000 ---|*
08620 M02S00103.ns22000 ---|* ENTRY *MSTT* TABLE SET UP.
08621 M02S00104.ns22000 ---|* PFC ENTRY FOR FILE IN *TCBF*.
08622 M02S00105.ns22000 ---|*
08623 M02S00106.ns22000 ---|* EXIT (X4) = 0 IF NO DEVICE FOUND.
08624 M02S00107.ns22000 ---|* (X5) = .LT. 0 IF NO SPACE FOR FILE ON ANY DEVICE.
08625 M02S00108.ns22000 ---|* (DAEQ) = EQUIPMENT NUMBER OF DEVICE.
08626 M02S00109.ns22000 ---|* PROPER DEVICE NUMBER SET IN FILE-S PFC ENTRY.
08627 M02S00110.ns22000 ---|*
08628 M02S00111.ns22000 ---|* USES X - ALL.
08629 M02S00112.ns22000 ---|* A - 1, 2, 3, 5, 7.
08630 M02S00113.ns22000 ---|* B - 2, 3, 7.
08631 M02S00114.ns22000 ---|*
08632 M02S00115.ns22000 ---|* CALLS RAS.
08633 M02S00116.ns22000 ---|
08634 M02S00117.ns22000 ---|
08635 M02S00118.ns22000 ---| SLD SUBR ENTRY/EXIT
08636 M02S00119.ns22000 ---| SB7 MSTT-2 INITIALIZE SEARCH ADDRESS
08637 M02S00120.ns22000 ---| SX4 B0+ INITIALIZE MAXIMUM SPACE
08638 M02S00121.ns22000 ---| SLD1 SB7 B7+2 CHECK NEXT DEVICE IN *MSTT*
08639 M02S00122.ns22000 ---| SA5 B7+B1
08640 M02S00123.ns22000 ---| ZR X5,SLD2 IF END OF TABLE
08641 M02S00124.ns22000 ---| SA2 TCBF+FCUI
08642 M02S00125.ns22000 ---| MX0 -3
08643 M02S00126.ns22000 ---| BX2 -X0*X2 LAST DIGIT OF USER INDEX
08644 M02S00127.ns22000 ---| SB3 X2+8-59
08645 M02S00128.ns22000 ---| AX3 X5,B3 POSITION MASK BIT
08646 M02S00129.ns22000 ---| PL X3,SLD1 IF USER INDEX NOT ON DEVICE
08647 M02S00130.ns22000 ---| RJ RAS RETURN AVAILABLE SPACE
08648 M02S00131.ns22000 ---| IX2 X1-X4
08649 M02S00132.ns22000 ---| NG X2,SLD1 IF PREVIOUS MAXIMUM WAS GREATER
08650 M02S00133.ns22000 ---| BX4 X1 SET NEW MAXIMUM
08651 M02S00134.ns22000 ---| SB2 A5-B1 SAVE TABLE WORD ADDRESS
08652 M02S00135.ns22000 ---| EQ SLD1 CONTINUE SEARCH
08653 M02S00136.ns22000 ---|
08654 M02S00137.ns22000 ---|* SET DEVICE NUMBER OF LARGEST DEVICE IN PFC.
08655 M02S00138.ns22000 ---|
08656 M02S00139.ns22000 ---| SLD2 ZR X4,SLDX IF NO DEVICE FOUND
08657 M02S00140.ns22000 ---| SA1 TCBF+FCLF GET FILE LENGTH
08658 M02S00141.ns22000 ---| AX1 36
08659 M02S00142.ns22000 ---| IX5 X4-X1
08660 M02S00143.ns22000 ---| NG X5,SLDX IF NOT ENOUGH SPACE ON DEVICE
08661 M02S00144.ns22000 ---| SA1 B2 GET DEVICE/EQUIPMENT NUMBERS FROM TABLE
08662 M02S00145.ns22000 ---| MX0 -6
08663 M02S00146.ns22000 ---| BX6 -X0*X1 DEVICE NUMBER
08664 M02S00147.ns22000 ---| LX1 -6
08665 M02S00148.ns22000 ---| BX7 -X0*X1 EQUIPMENT NUMBER
08666 M02S00149.ns22000 ---| SA7 DAEQ
08667 M02S00150.ns22000 ---| SA2 CPAR+/COMSPFS/CPDN MASTER DEVICE
08668 M02S00151.ns22000 ---| BX2 X6-X2
08669 M02S00152.ns22000 ---| SA3 TCBF+FCEO SET DEVICE NUMBER IN PFC
08670 M02S00153.ns22000 ---| LX3 -36
08671 M02S00154.ns22000 ---| MX0 -12
08672 M02S00155.ns22000 ---| BX7 X0*X3
08673 M02S00156.ns22000 ---| ZR X2,SLD3 IF LARGEST DEVICE IS MASTER DEVICE
08674 M02S00157.ns22000 ---| BX7 X7+X6
08675 M02S00158.ns22000 ---| SLD3 LX7 36
08676 M02S00159.ns22000 ---| SA7 A3
08677 M02S00160.ns22000 ---| EQ SLDX RETURN
| Line S04505 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
08678 M01S04505.ns22000 ---| SMD SPACE 4,30
08679 M01S04506.ns22000 ---|** SMD - SET MASTER DEVICE PARAMETERS.
08680 M01S04507.ns22000 ---|*
08681 M01S04508.ns22000 ---|* ENTRY (TCBF) = CURRENT CATALOG ENTRY.
08682 M01S04509.ns22000 ---|* (MMSK) = CURRENT MASTER DEVICE MASK.
08683 M01S04510.ns22000 ---|* (NCTR) = CURRENT NUMBER OF CATALOG TRACKS.
08684 M01S04511.ns22000 ---|* (CCTR) = CURRENT CATALOG TRACK.
08685 M01S04512.ns22000 ---|* (MDDS) = MASTER DEVICE DESCRIPTION.
08686 M01S04513.ns22000 ---|*
08687 M01S04514.ns22000 ---|* EXIT (MMSK) = UPDATED MASTER DEVICE MASK.
08688 M01S04515.ns22000 ---|* (NCTR) = UPDATED NUMBER OF CATALOG TRACKS.
08689 M01S04516.ns22000 ---|* (CCTR) = UPDATED CURRENT CATALOG TRACK.
08690 M01S04517.ns22000 ---|* (MAEQ) = UPDATED MASTER EQUIPMENT.
| Line S04518 Modification History |
M01 (Removed by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
08691 M02S04518.ns22000 ---|* (NILD) = SET AFTER DEVICE SWITCH.
| Line S04519 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
08692 M01S04519.ns22000 ---|* (CPAR+/COMSPFS/CPDN) = UPDATED MASTER DEVICE NUMBER.
08693 M01S04520.ns22000 ---|* MASTER DEVICE SWITCH MADE IF NECESSARY.
08694 M01S04521.ns22000 ---|* FILES OPENED IF A MASTER DEVICE SWITCH IS MADE.
08695 M01S04522.ns22000 ---|* UTILITY INTERLOCK SET.
08696 M01S04523.ns22000 ---|* UTILITY PROCESSOR ACTIVE.
08697 M01S04524.ns22000 ---|* FILES POSITIONED.
08698 M01S04525.ns22000 ---|*
08699 M01S04526.ns22000 ---|* USES X - 0, 1, 2, 3, 6, 7.
08700 M01S04527.ns22000 ---|* A - 1, 2, 3, 6, 7.
08701 M01S04528.ns22000 ---|* B - 2.
08702 M01S04529.ns22000 ---|*
08703 M01S04530.ns22000 ---|* CALLS AUP, CIN, DUP, FCB, RCT, SIN.
08704 M01S04531.ns22000 ---|*
08705 M01S04532.ns22000 ---|* MACROS CALLPFU, RETURN, SETFS.
08706 M01S04533.ns22000 ---|
08707 M01S04534.ns22000 ---|
08708 M01S04535.ns22000 ---| SMD1 RJ DUP DROP UTILITY PROCESSOR
08709 M01S04536.ns22000 ---| RJ CIN CLEAR UTILITY INTERLOCK
08710 M01S04537.ns22000 ---|
08711 M01S04538.ns22000 ---|* GET CATALOG TRACK PARAMETERS.
08712 M01S04539.ns22000 ---|
08713 M01S04540.ns22000 ---| SX1 PDWD SET ADDRESS OF PF DESCRIPTION WORD
08714 M01S04541.ns22000 ---| SX2 TCBF+FCUI SET ADDRESS OF USER INDEX IN CATALOG
08715 M01S04542.ns22000 ---| LX1 18
08716 M01S04543.ns22000 ---| BX6 X1+X2
08717 M01S04544.ns22000 ---| SA6 CATS+FTCA
08718 M01S04545.ns22000 ---| SA6 CATS+FTPM
08719 M01S04546.ns22000 ---| CALLPFU CATS,CTCT,R GET CATALOG TRACK PARAMETERS
08720 M01S04547.ns22000 ---|
08721 M01S04548.ns22000 ---|* SET UP NEW MASTER DEVICE PARAMETERS.
08722 M01S04549.ns22000 ---|
08723 M01S04550.ns22000 ---| SA3 MDDS GET MASTER DEVICE DESCRIPTION
08724 M01S04551.ns22000 ---| MX0 -6
08725 M01S04552.ns22000 ---| LX3 -6
08726 M01S04553.ns22000 ---| BX6 -X0*X3 SET MASTER EQUIPMENT
08727 M01S04554.ns22000 ---| LX3 -6
08728 M01S04555.ns22000 ---| SA6 MAEQ
08729 M01S04556.ns22000 ---| MX0 -12
08730 M01S04557.ns22000 ---| BX7 -X0*X3 SET NUMBER OF CATALOG TRACKS
08731 M01S04558.ns22000 ---| MX0 -8
08732 M01S04559.ns22000 ---| LX3 -24
08733 M01S04560.ns22000 ---| BX6 -X0*X3 SET MASTER DEVICE MASK
08734 M01S04561.ns22000 ---| LX3 12
08735 M01S04562.ns22000 ---| SA7 NCTR
08736 M01S04563.ns22000 ---| SA6 MMSK
08737 M01S04564.ns22000 ---| SA1 TCBF+FCUI SET CURRENT CATALOG TRACK
08738 M01S04565.ns22000 ---| SX2 X7-1
08739 M01S04566.ns22000 ---| LX1 -3
08740 M01S04567.ns22000 ---| BX7 X2*X1
08741 M01S04568.ns22000 ---| SA7 CCTR
08742 M01S04569.ns22000 ---|
08743 M01S04570.ns22000 ---|* SET UP CATALOG FST ENTRY.
08744 M01S04571.ns22000 ---|
08745 M01S04572.ns22000 ---| SA1 CATS+FTPM GET CATALOG TRACK PARAMETERS
08746 M01S04573.ns22000 ---| SX2 5 SET FILE STATUS
08747 M01S04574.ns22000 ---| MX0 -18
08748 M01S04575.ns22000 ---| BX1 -X0*X1 SET EQ AND FIRST TRACK
08749 M01S04576.ns22000 ---| MX0 -12
08750 M01S04577.ns22000 ---| BX6 -X0*X1 SET CURRENT TRACK
08751 M01S04578.ns22000 ---| LX1 36
08752 M01S04579.ns22000 ---| BX2 X2+X1 BUILD CATALOG TRACK FST ENTRY
08753 M01S04580.ns22000 ---| LX6 24
08754 M01S04581.ns22000 ---| BX7 X2+X6
08755 M01S04582.ns22000 ---| SA7 A1
08756 M01S04583.ns22000 ---| LX0 36 SET ID, EQ AND STATUS
08757 M01S04584.ns22000 ---| BX6 X0*X2
08758 M01S04585.ns22000 ---|
08759 M01S04586.ns22000 ---|* SET UP PERMITS FST ENTRY.
08760 M01S04587.ns22000 ---|
08761 M01S04588.ns22000 ---| SX1 10000B*FSMS SET SECTOR FOR PETS AND DATA
08762 M01S04589.ns22000 ---| BX6 X6+X1
08763 M01S04590.ns22000 ---| MX0 -12
08764 M01S04591.ns22000 ---| BX1 -X0*X3 SET FIRST PERMITS TRACK
08765 M01S04592.ns22000 ---| BX2 X1 SET CURRENT TRACK
08766 M01S04593.ns22000 ---| LX1 36
08767 M01S04594.ns22000 ---| LX2 24
08768 M01S04595.ns22000 ---| BX7 X6+X1
08769 M01S04596.ns22000 ---| LX3 -24
08770 M01S04597.ns22000 ---| BX7 X7+X2
08771 M01S04598.ns22000 ---| SA7 PETS+FTPM
08772 M01S04599.ns22000 ---|
08773 M01S04600.ns22000 ---|* SET UP DATA FST ENTRY.
08774 M01S04601.ns22000 ---|
08775 M01S04602.ns22000 ---| BX1 -X0*X3 SET FIRST DATA TRACK
08776 M01S04603.ns22000 ---| BX2 X1 SET CURRENT TRACK
08777 M01S04604.ns22000 ---| LX1 36
08778 M01S04605.ns22000 ---| BX7 X6+X1
08779 M01S04606.ns22000 ---| LX2 24
08780 M01S04607.ns22000 ---| BX7 X7+X2
08781 M01S04608.ns22000 ---| SA7 DATA+FTPM
08782 M01S04609.ns22000 ---|
08783 M01S04610.ns22000 ---|* OPEN FILES AND SET SPECIAL SYSTEM FILE STATUS
08784 M01S04611.ns22000 ---|
08785 M01S04612.ns22000 ---| RETURN CATS RETURN ANY EXISTING FILES
08786 M01S04613.ns22000 ---| RETURN PETS
08787 M01S04614.ns22000 ---| RETURN DATA
08788 M01S04615.ns22000 ---| CALLPFU CATS,CTOP,R OPEN CATS FILE
08789 M01S04616.ns22000 ---| CALLPFU PETS,CTOP,R OPEN PETS FILE
08790 M01S04617.ns22000 ---| CALLPFU DATA,CTOP,R OPEN DATA FILE
08791 M01S04618.ns22000 ---| SETFS CATS,SSST
08792 M01S04619.ns22000 ---| SETFS PETS,SSST
08793 M01S04620.ns22000 ---| SETFS DATA,SSST
08794 M01S04621.ns22000 ---|
08795 M01S04622.ns22000 ---|* SET UTILITY INTERLOCK AND ACTIVATE PFU.
08796 M01S04623.ns22000 ---|
08797 M01S04624.ns22000 ---| SMD2 RJ SIN SET UTILITY INTERLOCK
08798 M01S04625.ns22000 ---| RJ AUP ACTIVATE PFU
08799 M01S04626.ns22000 ---|
08800 M01S04627.ns22000 ---|* CHECK FOR NEW MASTER DEVICE.
08801 M01S04628.ns22000 ---|
08802 M01S04629.ns22000 ---| SMD SUBR ENTRY/EXIT
08803 M01S04630.ns22000 ---| SA2 TCBF+FCUI USER INDEX OF FILE
08804 M01S04631.ns22000 ---| SA1 MMSK
08805 M01S04632.ns22000 ---| MX0 -3
08806 M01S04633.ns22000 ---| BX6 -X0*X2 SELECT CORRECT MASK BIT
08807 M01S04634.ns22000 ---| SB2 X6-59
08808 M01S04635.ns22000 ---| AX1 X1,B2
08809 M01S04636.ns22000 ---| PL X1,SMD1 IF NOT CORRECT MASTER DEVICE
08810 M01S04637.ns22000 ---|
08811 M01S04638.ns22000 ---|* CHECK FOR NEW CATALOG TRACK.
08812 M01S04639.ns22000 ---|
08813 M01S04640.ns22000 ---| LX2 -3
08814 M01S04641.ns22000 ---| SA1 NCTR SET CATALOG TRACK MASK
08815 M01S04642.ns22000 ---| SA3 CCTR CURRENT CATALOG TRACK
08816 M01S04643.ns22000 ---| SX6 X1-1
08817 M01S04644.ns22000 ---| BX7 X6*X2 NEW CATALOG TRACK
08818 M01S04645.ns22000 ---| IX2 X3-X7
08819 M01S04646.ns22000 ---| ZR X2,SMD2 IF SAME CATALOG TRACK
08820 M01S04647.ns22000 ---|
08821 M01S04648.ns22000 ---|* SWITCH CATALOG TRACKS.
08822 M01S04649.ns22000 ---|
08823 M01S04650.ns22000 ---| SA1 PAFL
08824 M01S04651.ns22000 ---| SA7 A3+ SAVE NEW CATALOG TRACK
08825 M01S04652.ns22000 ---| ZR X1,SMD2 IF *PFU* NOT ACTIVE
08826 M01S04653.ns22000 ---| RJ FCB FLUSH CATALOG BUFFER
08827 M01S04654.ns22000 ---| RJ RCT READ NEW CATALOG TRACK
08828 M01S04655.ns22000 ---| EQ SMDX EXIT
08829 M01S04656.ns22000 ---| EOL SPACE 4,20
08830 M01S04657.ns22000 ---|** EOL - END OF LOAD PROCESSOR.
08831 M01S04658.ns22000 ---|*
08832 M01S04659.ns22000 ---|* EXIT UTILITY PROCESSOR DROPPED.
08833 M01S04660.ns22000 ---|* UTILITY INTERLOCK CLEARED.
08834 M01S04661.ns22000 ---|* LOAD SYSTEM FILES RETURNED.
08835 M01S04662.ns22000 ---|* TERMINATION MESSAGES ISSUED.
08836 M01S04663.ns22000 ---|* ARCHIVE FILE REWOUND OR POSITIONED AS APPROPRIATE.
08837 M01S04664.ns22000 ---|*
08838 M01S04665.ns22000 ---|* USES X - 1, 3, 5, 6, 7.
08839 M01S04666.ns22000 ---|* A - 1, 3, 5.
08840 M01S04667.ns22000 ---|*
08841 M01S04668.ns22000 ---|* CALLS CIN, DUP.
08842 M01S04669.ns22000 ---|*
08843 M01S04670.ns22000 ---|* MACROS MESSAGE, MOVE, RECALL, RETURN, SETPFP, SKIPFF, WRITER.
08844 M01S04671.ns22000 ---|
08845 M01S04672.ns22000 ---|
08846 M01S04673.ns22000 ---| EOL SUBR ENTRY/EXIT
08847 M01S04674.ns22000 ---| RJ DUP DROP UTILITY PROCESSOR
08848 M01S04675.ns22000 ---| RJ CIN CLEAR UTILITY INTERLOCK
08849 M01S04676.ns22000 ---| RETURN CATS RETURN LOAD SYSTEM FILES
08850 M01S04677.ns22000 ---| RETURN PETS
08851 M01S04678.ns22000 ---| RETURN DATA
08852 M01S04679.ns22000 ---| SA1 PCBA
08853 M01S04680.ns22000 ---| NZ X1,EOL1 IF FILES PROCESSED
08854 M01S04681.ns22000 ---| MESSAGE (=C* NO FILES PROCESSED.*)
08855 M01S04682.ns22000 ---| EOL1 SA1 SEMA
08856 M01S04683.ns22000 ---| ZR X1,EOL2 IF NO ERROR MESSAGES
08857 M01S04684.ns22000 ---| MESSAGE (=C* CHECK DAYFILE FOR ERRORS.*)
08858 M01S04685.ns22000 ---| EOL2 MESSAGE MSGD,,R *P. F. DEVICE XX LOADED.*
08859 M01S04686.ns22000 ---| SETPFP GPAR RESTORE PERMANENT FILE PARAMETERS
08860 M01S04687.ns22000 ---| SA5 IDSA+/COMSPFS/ADMS
08861 M01S04688.ns22000 ---| MOVE 3,MSGD,X5
08862 M01S04689.ns22000 ---| RETURN DATA RETURN FILES
08863 M01S04690.ns22000 ---| RETURN CIRF
08864 M01S04691.ns22000 ---| RETURN S1
08865 M01S04692.ns22000 ---| WRITER OUTPUT FLUSH OUTPUT BUFFER
08866 M01S04693.ns22000 ---| RECALL TAPE POSITION ARCHIVE FILE
08867 M01S04694.ns22000 ---| SA1 CPAR+/COMSPFS/CPNB
08868 M01S04695.ns22000 ---| ZR X1,EOLX IF NO FILE COUNT SPECIFIED
08869 M01S04696.ns22000 ---| SA3 X2 CHECK FOR EOF/EOI ON ARCHIVE FILE
08870 M01S04697.ns22000 ---| SX6 30B
08871 M01S04698.ns22000 ---| BX7 X6*X3
08872 M01S04699.ns22000 ---| BX6 X7-X6
08873 M01S04700.ns22000 ---| NZ X6,EOL3 IF NOT EOF/EOI
08874 M01S04701.ns22000 ---| SX1 X1-1
08875 M01S04702.ns22000 ---| EOL3 ZR X1,EOLX IF NO FILES TO SKIP
08876 M01S04703.ns22000 ---| SKIPFF X2,X1 SKIP FILES NOT PROCESSED
08877 M01S04704.ns22000 ---| EQ EOLX RETURN
08878 M01S04705.ns22000 ---| CIN SPACE 4,15
08879 M01S04706.ns22000 ---|** CIN - CLEAR PF UTILITY INTERLOCK.
08880 M01S04707.ns22000 ---|*
08881 M01S04708.ns22000 ---|* ENTRY (UIFL) = 0 IF UTILITY INTERLOCK NOT SET.
08882 M01S04709.ns22000 ---|* = 1 IF UTILITY INTERLOCK SET.
08883 M01S04710.ns22000 ---|* (MAEQ) = EQUIPMENT TO CLEAR INTERLOCK ON.
08884 M01S04711.ns22000 ---|*
08885 M01S04712.ns22000 ---|* EXIT (UIFL) = 0.
08886 M01S04713.ns22000 ---|* PFU CALLED TO CLEAR UTILITY INTERLOCK IF NOT ALREADY
08887 M01S04714.ns22000 ---|* CLEAR.
08888 M01S04715.ns22000 ---|*
08889 M01S04716.ns22000 ---|* USES X - 1, 2, 3, 6.
08890 M01S04717.ns22000 ---|* A - 1, 2, 3, 6.
08891 M01S04718.ns22000 ---|*
08892 M01S04719.ns22000 ---|* MACROS CALLPFU, MESSAGE, MOVE.
08893 M01S04720.ns22000 ---|
08894 M01S04721.ns22000 ---|
08895 M01S04722.ns22000 ---| CIN SUBR ENTRY/EXIT
08896 M01S04723.ns22000 ---| SA1 UIFL CHECK PF UTILTIY INTERLOCK FLAG
08897 M01S04724.ns22000 ---| SA2 MAEQ SET MASTER EQUIPMENT NUMBER
08898 M01S04725.ns22000 ---| ZR X1,CINX IF UTILITY INTERLOCK ALREADY CLEAR
08899 M01S04726.ns22000 ---| SX1 UIFL SET INTERLOCK FLAG ADDRESS
08900 M01S04727.ns22000 ---| LX2 48
08901 M01S04728.ns22000 ---| BX6 X2+X1
08902 M01S04729.ns22000 ---| SA3 IDSA+/COMSPFS/ADE1 K DISPLAY MESSAGE ADDRESS
08903 M01S04730.ns22000 ---| SA6 UIFT+FTPM
08904 M01S04731.ns22000 ---| MOVE 3,MSGK,X3 * CLEARING UTILITY INTERLOCK.*
08905 M01S04732.ns22000 ---| MESSAGE MSGK,2,R
08906 M01S04733.ns22000 ---| CALLPFU UIFT,CTCU,R CLEAR PF UTILITY INTERLOCK
08907 M01S04734.ns22000 ---| SA3 IDSA+/COMSPFS/ADE1 K DISPLAY MESSAGE ADDRESS
08908 M01S04735.ns22000 ---| MOVE 3,BLNK,X3 CLEAR MESSAGES
08909 M01S04736.ns22000 ---| MESSAGE (=C**),2,R
08910 M01S04737.ns22000 ---| EQ CINX EXIT
08911 M01S04738.ns22000 ---| SIN SPACE 4,15
08912 M01S04739.ns22000 ---|** SIN - SET PF UTILITY INTERLOCK.
08913 M01S04740.ns22000 ---|*
08914 M01S04741.ns22000 ---|* ENTRY (UIFL) = UTILITY INTERLOCK FLAG.
08915 M01S04742.ns22000 ---|* (MAEQ) = EQUIPMENT TO SET INTERLOCK ON.
08916 M01S04743.ns22000 ---|*
08917 M01S04744.ns22000 ---|* EXIT (UIFL) = 1.
08918 M01S04745.ns22000 ---|* *PFU* CALLED TO SET UTILITY INTERLOCK IF NOT ALREADY
08919 M01S04746.ns22000 ---|* SET.
08920 M01S04747.ns22000 ---|*
08921 M01S04748.ns22000 ---|* USES X - 1, 2, 3, 6.
08922 M01S04749.ns22000 ---|* A - 1, 2, 3, 6.
08923 M01S04750.ns22000 ---|*
08924 M01S04751.ns22000 ---|* MACROS CALLPFU, MESSAGE, MOVE.
08925 M01S04752.ns22000 ---|
08926 M01S04753.ns22000 ---|
08927 M01S04754.ns22000 ---| SIN SUBR ENTRY/EXIT
08928 M01S04755.ns22000 ---| SA1 UIFL
08929 M01S04756.ns22000 ---| NZ X1,SINX IF UTILITY INTERLOCK ALREADY SET
08930 M01S04757.ns22000 ---| SA2 MAEQ SET MASTER EQUIPMENT NUMBER
08931 M01S04758.ns22000 ---| SX1 UIFL SET INTERLOCK FLAG ADDRESS
08932 M01S04759.ns22000 ---| LX2 48
08933 M01S04760.ns22000 ---| BX6 X2+X1
08934 M01S04761.ns22000 ---| SA3 IDSA+/COMSPFS/ADE1 K DISPLAY MESSAGE ADDRESS
08935 M01S04762.ns22000 ---| SA6 UIFT+FTPM
08936 M01S04763.ns22000 ---| MOVE 3,MSGJ,X3 * SETTING UTILITY INTERLOCK.*
08937 M01S04764.ns22000 ---| MESSAGE MSGJ,2,R
08938 M01S04765.ns22000 ---| CALLPFU UIFT,CTSU,R SET PF UTILITY INTERLOCK
08939 M01S04766.ns22000 ---| SA3 IDSA+/COMSPFS/ADE1 K DISPLAY MESSAGE ADDRESS
08940 M01S04767.ns22000 ---| MOVE 3,BLNK,X3 CLEAR MESSAGES
08941 M01S04768.ns22000 ---| MESSAGE (=C**),2,R
08942 M01S04769.ns22000 ---| EQ SINX EXIT
08943 M01S04770.ns22000 ---| MCO SPACE 4,15
08944 M01S04771.ns22000 ---|** MCO - MOVE CATALOG TO OUTPUT.
08945 M01S04772.ns22000 ---|*
08946 M01S04773.ns22000 ---|* ENTRY (B2) = CATALOG ADDRESS.
08947 M01S04774.ns22000 ---|* (PFCO) = 0, IF *PFC ONLY* FILE.
08948 M01S04775.ns22000 ---|*
08949 M01S04776.ns22000 ---|* EXIT CATALOG ENTRY WRITTEN TO OUTPUT.
08950 M01S04777.ns22000 ---|*
08951 M01S04778.ns22000 ---|* USES X - 1, 2, 3, 6.
08952 M01S04779.ns22000 ---|* A - 1, 2, 3, 6.
08953 M01S04780.ns22000 ---|*
08954 M01S04781.ns22000 ---|* CALLS CDD.
08955 M01S04782.ns22000 ---|*
08956 M01S04783.ns22000 ---|* MACROS EDCAT, WRITEH.
08957 M01S04784.ns22000 ---|
08958 M01S04785.ns22000 ---|
08959 M01S04786.ns22000 ---| MCO SUBR ENTRY/EXIT
08960 M01S04787.ns22000 ---| SX6 B2
08961 M01S04788.ns22000 ---| SA6 MCOA
08962 M01S04789.ns22000 ---| SA1 LNAC INCREMENT LINE NUMBER
08963 M01S04790.ns22000 ---| SX6 X1+B1
08964 M01S04791.ns22000 ---| SA6 A1
08965 M01S04792.ns22000 ---| SA1 LNPP INCREMENT LINES / PAGE
08966 M01S04793.ns22000 ---| SX6 X1+4
08967 M01S04794.ns22000 ---| SX2 PGLM
08968 M01S04795.ns22000 ---| IX2 X2-X6
08969 M01S04796.ns22000 ---| PL X2,MCO1 IF NOT END OF PAGE
08970 M01S04797.ns22000 ---| SA1 PAGE
08971 M01S04798.ns22000 ---| SX6 X1+B1
08972 M01S04799.ns22000 ---| SA6 A1
08973 M01S04800.ns22000 ---| RJ CDD
08974 M01S04801.ns22000 ---| SA6 HPGE
08975 M01S04802.ns22000 ---| WRITEH OUTPUT,HDR1A,7
08976 M01S04803.ns22000 ---| WRITEH OUTPUT,HDR1B,7
08977 M01S04804.ns22000 ---| WRITEH OUTPUT,HDR2,1
08978 M01S04805.ns22000 ---| WRITEH OUTPUT,HDR3,FCELL
08979 M01S04806.ns22000 ---| WRITEH X2,HDR4,FCELL
08980 M01S04807.ns22000 ---| WRITEH X2,HDR8,FCELL
08981 M01S04808.ns22000 ---| WRITEH OUTPUT,HDR2,1
08982 M01S04809.ns22000 ---| SX6 B1
08983 M01S04810.ns22000 ---| MCO1 SA6 LNPP
08984 M01S04811.ns22000 ---| SA1 LNAC
08985 M01S04812.ns22000 ---| SA2 MCOA
08986 M01S04813.ns22000 ---| EDCAT X2,OUTL,X1,B1,B1
08987 M01S04814.ns22000 ---| SA1 PFCO
08988 M01S04815.ns22000 ---| SA3 =C/* PFC ONLY/
08989 M01S04816.ns22000 ---| ZR X1,MCO2 IF *PFC ONLY* FILE BEING LOADED
08990 M01S04817.ns22000 ---| SA3 =C/ /
08991 M01S04818.ns22000 ---| MCO2 BX6 X3
08992 M01S04819.ns22000 ---| SA6 AMSG
08993 M01S04820.ns22000 ---| WRITEH OUTPUT,OUTL,FCELL
08994 M01S04821.ns22000 ---| WRITEH X2,OUTM,FCELL
08995 M01S04822.ns22000 ---| WRITEH X2,OUTN,FCELL+1
08996 M01S04823.ns22000 ---| WRITEH OUTPUT,HDR2,1
08997 M01S04824.ns22000 ---| EQ MCOX RETURN
08998 M01S04825.ns22000 ---|
08999 M01S04826.ns22000 ---|
09000 M01S04827.ns22000 ---| MCOA BSS 1
09001 M01S04828.ns22000 ---| PGLM EQU LINP-11 MAXIMUM NUMBER OF LINES PER PAGE
09002 M01S04829.ns22000 ---| PAGE CON 1
09003 M01S04830.ns22000 ---| LNAC CON 0
09004 M01S04831.ns22000 ---| LNPP CON PGLM
09005 M01S04832.ns22000 ---| HDR1A DIS 5,1 PFLOAD CATALOG OF FILES PROCESSED
09006 M01S04833.ns22000 ---| DIS 1, PAGE
09007 M01S04834.ns22000 ---| HPGE DIS 1,
09008 M01S04835.ns22000 ---| HDR1B DIS 5, ON AT
09009 M01S04836.ns22000 ---| HTMR DIS 2,
09010 M01S04837.ns22000 ---| HDTR EQU HDR1B+2
09011 M01S04838.ns22000 ---| HDR2 DIS 1,
09012 M01S04839.ns22000 ---| SEM SPACE 4,15
09013 M01S04840.ns22000 ---|** SEM - SEND ERROR MESSAGE
09014 M01S04841.ns22000 ---|*
09015 M01S04842.ns22000 ---|* ENTRY (X5) = MESSAGE ADDRESS
09016 M01S04843.ns22000 ---|* (ELFG) = 0, IF MESSAGE NOT TO BE INCLUDED IN ERRLOG.
09017 M01S04844.ns22000 ---|* = 1, IF MESSAGE TO BE INCLUDED IN ERRLOG.
09018 M01S04845.ns22000 ---|*
09019 M01S04846.ns22000 ---|* EXIT MESSAGE SENT TO DAYFILE
09020 M01S04847.ns22000 ---|* IF LO = E MESSAGE SENT TO OUTPUT FILE
09021 M01S04848.ns22000 ---|* IF (ELFG) = 1, MESSAGE SENT TO ERRLOG.
09022 M01S04849.ns22000 ---|* (ELFG) = 0.
09023 M01S04850.ns22000 ---|*
09024 M01S04851.ns22000 ---|* USES X - 1, 6.
09025 M01S04852.ns22000 ---|* A - 1, 6.
09026 M01S04853.ns22000 ---|*
09027 M01S04854.ns22000 ---|* CALLS BEL.
09028 M01S04855.ns22000 ---|*
09029 M01S04856.ns22000 ---|* MACROS MESSAGE, WRITEC.
09030 M01S04857.ns22000 ---|
09031 M01S04858.ns22000 ---|
09032 M01S04859.ns22000 ---| SEM SUBR ENTRY/EXIT
09033 M01S04860.ns22000 ---| SA1 CPAR+/COMSPFS/CPLO
09034 M01S04861.ns22000 ---| LX1 2
09035 M01S04862.ns22000 ---| PL X1,SEM1 IF LO = E NOT SPECIFIED
09036 M01S04863.ns22000 ---| WRITEC OUTPUT,X5 WRITE MESSAGE TO OUTPUT FILE
09037 M01S04864.ns22000 ---| SEM1 MESSAGE X5
09038 M01S04865.ns22000 ---| SA1 ELFG
09039 M01S04866.ns22000 ---| ZR X1,SEM2 IF ERRLOG ENTRY NOT DESIRED
09040 M01S04867.ns22000 ---| RJ BEL BUILD ERRLOG MESSAGE
09041 M01S04868.ns22000 ---| MESSAGE X5,4
09042 M01S04869.ns22000 ---| BX6 X6-X6 CLEAR ERRLOG FLAG
09043 M01S04870.ns22000 ---| SA6 ELFG
09044 M01S04871.ns22000 ---| SEM2 SX6 B1 SET *CHECK DAYFILE* FLAG
09045 M01S04872.ns22000 ---| SA6 SEMA
09046 M01S04873.ns22000 ---| EQ SEMX RETURN
09047 M01S04874.ns22000 ---|
09048 M01S04875.ns22000 ---| SEMA CON 0
09049 M01S04876.ns22000 ---| ELFG BSSZ 1 ERRLOG FLAG
09050 M01S04877.ns22000 ---| PGF SPACE 4,10
09051 M01S04878.ns22000 ---|** PGF - PURGE FILE ON REPLACE OPTION.
09052 M01S04879.ns22000 ---|*
09053 M01S04880.ns22000 ---|* EXIT (X6) = 0 IF NO ERROR ON PURGE.
09054 M01S04881.ns22000 ---|* UTILITY INTERLOCK CLEARED AND RESTORED.
09055 M01S04882.ns22000 ---|*
09056 M01S04883.ns22000 ---|* USES X - 0, 1, 2, 5, 6, 7.
09057 M01S04884.ns22000 ---|* A - 1, 2, 6, 7.
09058 M01S04885.ns22000 ---|*
09059 M01S04886.ns22000 ---|* CALLS AUP, CIN, DUP, SIN.
09060 M01S04887.ns22000 ---|*
09061 M01S04888.ns22000 ---|* MACROS PURGE, SETPFP.
09062 M01S04889.ns22000 ---|
09063 M01S04890.ns22000 ---|
09064 M01S04891.ns22000 ---| PGF SUBR ENTRY/EXIT
09065 M01S04892.ns22000 ---|
09066 M01S04893.ns22000 ---|* CLEAR UTILITY INTERLOCK.
09067 M01S04894.ns22000 ---|
09068 M01S04895.ns22000 ---| RJ DUP DROP UTILITY PROCESSOR
09069 M01S04896.ns22000 ---| RJ CIN CLEAR UTILITY INTERLOCK
09070 M01S04897.ns22000 ---|
09071 M01S04898.ns22000 ---|* SET UP FET.
09072 M01S04899.ns22000 ---|
09073 M01S04900.ns22000 ---| SA1 TCBF+FCFN GET FILE NAME AND USER INDEX
09074 M01S04901.ns22000 ---| SA2 PURG
09075 M01S04902.ns22000 ---| MX0 42
09076 M01S04903.ns22000 ---| BX6 -X0*X2
09077 M01S04904.ns22000 ---| BX5 -X0*X1
09078 M01S04905.ns22000 ---| BX1 X0*X1
09079 M01S04906.ns22000 ---| BX6 X6+X1
09080 M01S04907.ns22000 ---| SA6 A2
09081 M01S04908.ns22000 ---|
09082 M01S04909.ns22000 ---|* PROCESS USER INDEX.
09083 M01S04910.ns22000 ---|
09084 M01S04911.ns22000 ---| SA1 PGFA CURRENT USER INDEX
09085 M01S04912.ns22000 ---| IX6 X1-X5
09086 M01S04913.ns22000 ---| SX7 X5 SAVE NEW USER INDEX
09087 M01S04914.ns22000 ---| ZR X6,PGF1 IF SAME USER INDEX
09088 M01S04915.ns22000 ---| SA7 SPAR+2
09089 M01S04916.ns22000 ---| SX6 UIPR SET USER INDEX FLAG
09090 M01S04917.ns22000 ---| SA7 PGFA
09091 M01S04918.ns22000 ---| SA6 SPAR
09092 M01S04919.ns22000 ---| SETPFP SPAR SET USER INDEX
09093 M01S04920.ns22000 ---|
09094 M01S04921.ns22000 ---|* PURGE FILES.
09095 M01S04922.ns22000 ---|
09096 M01S04923.ns22000 ---| PGF1 PURGE PURG PURGE FILE
09097 M01S04924.ns22000 ---| RJ SIN SET UTILITY INTERLOCK
09098 M01S04925.ns22000 ---| SX1 B1 ACTIVATE UTILITY PROCESSOR (NON-INITIAL)
09099 M01S04926.ns22000 ---| RJ AUP
09100 M01S04927.ns22000 ---| SA1 PURG CHECK FOR ERROR
09101 M01S04928.ns22000 ---| MX0 -8
09102 M01S04929.ns22000 ---| AX1 10
09103 M01S04930.ns22000 ---| BX6 -X0*X1
09104 M01S04931.ns22000 ---| EQ PGFX RETURN
09105 M01S04932.ns22000 ---|
09106 M01S04933.ns22000 ---| PGFA CON 0 CURRENT USER INDEX
09107 M01S04934.ns22000 ---| SDM SPACE 4,15
09108 M01S04935.ns22000 ---|** SDM - SET DISPLAY MESSAGES.
09109 M01S04936.ns22000 ---|*
09110 M01S04937.ns22000 ---|* ENTRY (TCBF) = CATALOG ENTRY.
09111 M01S04938.ns22000 ---|*
09112 M01S04939.ns22000 ---|* EXIT DISPLAY MESSAGES SET.
09113 M01S04940.ns22000 ---|*
09114 M01S04941.ns22000 ---|*
09115 M01S04942.ns22000 ---|* USES X - 0, 1, 4, 5, 6.
09116 M01S04943.ns22000 ---|* A - 1, 4, 5, 6.
09117 M01S04944.ns22000 ---|*
09118 M01S04945.ns22000 ---|* CALLS COD, SFN.
09119 M01S04946.ns22000 ---|*
09120 M01S04947.ns22000 ---|* MACROS MESSAGE.
09121 M01S04948.ns22000 ---|
09122 M01S04949.ns22000 ---|
09123 M01S04950.ns22000 ---| SDM SUBR ENTRY/EXIT
09124 M01S04951.ns22000 ---| SA1 TCBF+FCUI GET USER INDEX OF FILE
09125 M01S04952.ns22000 ---| MX0 42
09126 M01S04953.ns22000 ---| BX1 -X0*X1
09127 M01S04954.ns22000 ---| RJ COD CONVERT UI TO OCTAL DISPLAY
09128 M01S04955.ns22000 ---| MX0 36
09129 M01S04956.ns22000 ---| LX6 24 BUILD DISPLAY MESSAGES
09130 M01S04957.ns22000 ---| BX6 X0*X6
09131 M01S04958.ns22000 ---| SA6 MSGA+2
09132 M01S04959.ns22000 ---| SA6 MSGE+2
09133 M01S04960.ns22000 ---| SX1 1R. ADD PERIOD TO MESSAGE
09134 M01S04961.ns22000 ---| LX1 18
09135 M01S04962.ns22000 ---| BX6 X1+X6
09136 M01S04963.ns22000 ---| SA6 MSGF+3
| Line S04964 Modification History |
M01 (Removed by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
09137 M02S04964.ns22000 ---| SA6 MSGG+3
| Line S04965 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
09138 M01S04965.ns22000 ---| SA6 MSGH+3
09139 M01S04966.ns22000 ---| MX0 42
09140 M01S04967.ns22000 ---| SA4 TCBF+FCFN GET FILE NAME
09141 M01S04968.ns22000 ---| BX1 X0*X4
09142 M01S04969.ns22000 ---| RJ SFN SPACE FILL NAME
09143 M01S04970.ns22000 ---| SA6 MSGA+1
09144 M01S04971.ns22000 ---| SA6 MSGE+1
09145 M01S04972.ns22000 ---| LX6 54
09146 M01S04973.ns22000 ---| SA6 MSGF+2
| Line S04974 Modification History |
M01 (Removed by) | ns2047 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
09147 M02S04974.ns22000 ---| SA6 MSGG+2
| Line S04975 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
09148 M01S04975.ns22000 ---| SA6 MSGH+2
09149 M01S04976.ns22000 ---| SA1 MSGA
09150 M01S04977.ns22000 ---| SA5 IDSA+/COMSPFS/ADMS
09151 M01S04978.ns22000 ---| BX6 X1
09152 M01S04979.ns22000 ---| SA6 X5
09153 M01S04980.ns22000 ---| MESSAGE MSGE,1
09154 M01S04981.ns22000 ---| EQ SDMX RETURN
09155 M01S04982.ns22000 ---|
09156 M01S04983.ns22000 ---|
09157 M01S04984.ns22000 ---| BLNK DIS 4,
09158 M01S04985.ns22000 ---| ERROR DATA 40H ILLEGAL OPTION - REENTER.
09159 M01S04986.ns22000 ---|
09160 M01S04987.ns22000 ---|
09161 M01S04988.ns22000 ---| INLM DIS 4,ENTER E TO TERMINATE LOADING.
09162 M01S04989.ns22000 ---| INLM1 DIS 4, L TO LIST REMAINING FILES.
09163 M01S04990.ns22000 ---| INLM2 DIS 4, GO TO RESUME INCREMENTAL LOAD.
09164 M01S04991.ns22000 ---|
09165 M01S04992.ns22000 ---|
09166 M01S04993.ns22000 ---|* PARAMETER TABLE
09167 M01S04994.ns22000 ---|
09168 M01S04995.ns22000 ---|
09169 M01S04996.ns22000 ---| PAR BSS 0
09170 M01S04997.ns22000 ---| LTPR BSSZ 1
09171 M01S04998.ns22000 ---| ENPR BSSZ 1