cdc:nos2.source:opl.opl871:deck:pfload.007
Deck PFLOAD Part 007
34 Modifications
Listing Sections
- Deck PFLOAD Start
- Deck PFLOAD Part 1 (Line 838)
- Deck PFLOAD Part 2 (Line 1754)
- Deck PFLOAD Part 3 (Line 2705)
- Deck PFLOAD Part 4 (Line 4034)
- Deck PFLOAD Part 5 (Line 4933)
- Deck PFLOAD Part 6 (Line 6132)
- Deck PFLOAD Part 7 (Line 7362)
- Deck PFLOAD Part 8 (Line 9236)
- Deck PFLOAD Part 9 (Line 10421)
- Deck PFLOAD Part 10 (Line 11360)
Source
Seq # *Modification Id* Act ----------------------------+
| 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 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 09172 M01S04999.ns22000 ---| INCF BSSZ 1 09173 M01S05000.ns22000 ---| 09174 M01S05001.ns22000 ---| 09175 M01S05002.ns22000 ---|* ARGUMENT TABLE 09176 M01S05003.ns22000 ---| 09177 M01S05004.ns22000 ---| 09178 M01S05005.ns22000 ---| ARGT BSS 0 09179 M01S05006.ns22000 ---| L ARG -KBIC,LTPR 09180 M01S05007.ns22000 ---| E ARG -KBIC,ENPR 09181 M01S05008.ns22000 ---| BSSZ 1 09182 M01S05009.ns22000 ---| 09183 M01S05010.ns22000 ---| KBIC CON 1 09184 M01S05011.ns22000 ---| TITLE SUBROUTINES - INCREMENTAL LOAD
| Line S02231 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 09185 M01S02231.ns22000 +++| TITLE INCREMENTAL LOAD SUBROUTINES.
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | pfloa19 |
Seq # *Modification Id* Act ----------------------------+ 09186 M01S00050.pfloa19 +++| AAT SPACE 4,20 09187 M01S00051.pfloa19 +++|** AAT - ASSIGN NEXT ARCHIVE TAPE. 09188 M01S00052.pfloa19 +++|* 09189 M01S00053.pfloa19 +++|* ENTRY (X1) = VSN LEFT JUSTIFIED. 09190 M01S00054.pfloa19 +++|* 09191 M01S00055.pfloa19 +++|* EXIT (X6) = 0 IF NEW ARCHIVE TAPE ASSIGNED. 09192 M01S00056.pfloa19 +++|* (X6) .NE. 0 IF ARCHIVE FILE LABEL BAD OR MISSING ON 09193 M01S00057.pfloa19 +++|* SELECTED TAPE. 09194 M01S00058.pfloa19 +++|* OLD ARCHIVE FILE UNLOADED. 09195 M01S00059.pfloa19 +++|* ARCHIVE FILE LABEL PROCESSED IF LABEL GOOD. 09196 M01S00060.pfloa19 +++|* 09197 M01S00061.pfloa19 +++|* USES X - 1, 4, 5, 6, 7. 09198 M01S00062.pfloa19 +++|* A - 1, 4, 6, 7. 09199 M01S00063.pfloa19 +++|* 09200 M01S00064.pfloa19 +++|* CALLS PAL, ZTB. 09201 M01S00065.pfloa19 +++|* 09202 M01S00066.pfloa19 +++|* MACROS LABEL, READCW, UNLOAD. 09203 M01S00067.pfloa19 +++| 09204 M01S00068.pfloa19 +++| 09205 M01S00069.pfloa19 +++| AAT SUBR ENTRY/EXIT 09206 M01S00070.pfloa19 +++| RJ ZTB SPACE FILL VSN 09207 M01S00071.pfloa19 +++| MX7 36 09208 M01S00072.pfloa19 +++| BX7 X7*X6 09209 M01S00073.pfloa19 +++| SX6 B0 09210 M01S00074.pfloa19 +++| SA7 TAPE+11B SET VSN IN FET 09211 M01S00075.pfloa19 +++| SA6 A7+B1 CLEAR TAPE LABEL PARAMETERS 09212 M01S00076.pfloa19 +++| SA6 A6+B1 09213 M01S00077.pfloa19 +++| SA6 A6+B1 09214 M01S00078.pfloa19 +++| SA6 A6+B1 09215 M01S00079.pfloa19 +++| UNLOAD TAPE,R UNLOAD OLD ARCHIVE FILE 09216 M01S00080.pfloa19 +++| SA4 X2+B1 CLEAR DEVICE TYPE 09217 M01S00081.pfloa19 +++| MX6 -48 09218 M01S00082.pfloa19 +++| SX5 1 CLEAR ERROR PROCESSING BIT 09219 M01S00083.pfloa19 +++| BX4 -X6*X4 09220 M01S00084.pfloa19 +++| LX5 44 09221 M01S00085.pfloa19 +++| BX6 -X5*X4 09222 M01S00086.pfloa19 +++| SA6 A4 09223 M01S00087.pfloa19 +++| LABEL TAPE REQUEST ARCHIVE TAPE 09224 M01S00088.pfloa19 +++| SA4 X2+B1 SET ERROR PROCESSING BIT 09225 M01S00089.pfloa19 +++| BX6 X5+X4 09226 M01S00090.pfloa19 +++| SA6 A4 09227 M01S00091.pfloa19 +++| SA1 X2+B1 SET IN=OUT=FIRST 09228 M01S00092.pfloa19 +++| SX6 X1 09229 M01S00093.pfloa19 +++| SA6 A1+B1 09230 M01S00094.pfloa19 +++| SA6 A6+B1 09231 M01S00095.pfloa19 +++| READCW X2,17B INITIATE CONTROL WORD READ 09232 M01S00096.pfloa19 +++| SX6 B0+ CLEAR CONTROL WORD STATUS WORD 09233 M01S00097.pfloa19 +++| SA6 TAPE+CWSW 09234 M01S00098.pfloa19 +++| RJ PAL CHECK ARCHIVE LABEL 09235 M01S00099.pfloa19 +++| ZR X6,AATX IF GOOD ARCHIVE FILE LABEL
Proceed to Part 8
cdc/nos2.source/opl.opl871/deck/pfload.007.txt · Last modified: (external edit)