Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:copyb.001
Deck COPYB Part 001
11 Modifications
Listing Sections
- Deck COPYB Start
- Deck COPYB Part 1 (Line 1405)
- Deck COPYB Part 2 (Line 3064)
- Deck COPYB Part 3 (Line 4651)
Source
Seq # *Modification Id* Act ----------------------------+ 01405 M00S01188.copyb +++|* USES A - 1, 3, 6, 7. 01406 M00S01189.copyb +++|* B - 5. 01407 M00S01190.copyb +++|* X - 1, 3, 6, 7. 01408 M00S01191.copyb +++| 01409 M00S01192.copyb +++| 01410 M00S01193.copyb +++| CUE SUBR ENTRY/EXIT 01411 M00S01194.copyb +++| SA3 ERRF LAST BLOCK ERROR FLAG 01412 M00S01195.copyb +++| SB5 ABTD * UNRECOVERABLE ERROR ON LFN.* 01413 M00S01196.copyb +++| SA1 X2 01414 M00S01197.copyb +++| PL X3,ABT4 IF NO PARITY ERROR ON LAST BLOCK 01415 M00S01198.copyb +++| MX6 4 CLEAR ERROR STATUS FROM FET+0 BITS 10 - 13 01416 M00S01199.copyb +++| LX6 14 01417 M00S01200.copyb +++| SX7 B0 CLEAR BLOCK ERROR FLAG 01418 M00S01201.copyb +++| BX6 -X6*X1 01419 M00S01202.copyb +++| SA7 A3 01420 M00S01203.copyb +++| SA6 A1 01421 M00S01204.copyb +++| EQ CUEX RETURN 01422 M00S01205.copyb +++| CWR SPACE 4,20 01423 M00S01206.copyb +++|** CWR - CONTROL WORD READ WORDS. 01424 M00S01207.copyb +++|* 01425 M00S01208.copyb +++|* ENTRY (FWWB) = FWA WORKING BUFFER. 01426 M00S01209.copyb +++|* (X7) = NUMBER OF WORDS TO TRANSFER. 01427 M00S01210.copyb +++|* 01428 M00S01211.copyb +++|* EXIT (X1) = -1, IF EOF ENCOUNTERED. 01429 M00S01212.copyb +++|* = -2, IF EOI ENCOUNTERED. 01430 M00S01213.copyb +++|* = 0, IF TRANSFER COMPLETE AND NO EOR DETECTED. 01431 M00S01214.copyb +++|* = (B6), IF EOR WAS DETECTED ON INPUT BEFORE OR 01432 M00S01215.copyb +++|* IMMEDIATELY AFTER TRANSFER WAS COMPLETED. 01433 M00S01216.copyb +++|* (B6) = LWA+1 DATA TRANSFERRED. 01434 M00S01217.copyb +++|* (LVL) = EOR LEVEL NUMBER. 01435 M00S01218.copyb +++|* (UBC) = UNUSED BIT COUNT FOR LAST WORD TRANSFERRED. 01436 M00S01219.copyb +++|* 01437 M00S01220.copyb +++|* USES A - 1, 2, 3, 4, 6, 7. 01438 M00S01221.copyb +++|* B - 2, 3, 6, 7. 01439 M00S01222.copyb +++|* X - 1, 2, 3, 4, 6, 7. 01440 M00S01223.copyb +++|* 01441 M00S01224.copyb +++|* CALLS CEL, INB, RDW=. 01442 M00S01225.copyb +++| 01443 M00S01226.copyb +++| 01444 M00S01227.copyb +++| CWR SUBR ENTRY/EXIT 01445 M00S01228.copyb +++| SA1 FWWB FWA WORKING BUFFER 01446 M00S01229.copyb +++| SA7 RWTT SAVE NUMBER OF WORDS TO TRANSFER 01447 M00S01230.copyb +++| BX6 X6-X6 01448 M00S01231.copyb +++| LX7 X1 01449 M00S01232.copyb +++| SA2 RWCB 01450 M00S01233.copyb +++| SA7 LWDB 01451 M00S01234.copyb +++| SA6 LVL CLEAR EOR LEVEL NUMBER 01452 M00S01235.copyb +++| SA6 UBC CLEAR UNUSED BIT COUNT 01453 M00S01236.copyb +++| PL X2,CWR1 IF WORDS REMAINING IN CURRENT BLOCK 01454 M00S01237.copyb +++| RJ INB INITIALIZE NEW BLOCK 01455 M00S01238.copyb +++| NG X1,CWRX IF EOF/EOI ENCOUNTERED 01456 M00S01239.copyb +++| CWR1 SA1 RWCB REMAINING WORDS IN CURRENT BLOCK 01457 M00S01240.copyb +++| SA2 RWTT REMAINING WORDS TO TRANSFER 01458 M00S01241.copyb +++| IX6 X2-X1 01459 M00S01242.copyb +++| SA4 BTSK BLOCK TERMINATOR/SKIP WORD INDICATOR 01460 M00S01243.copyb +++| BX3 X2 01461 M00S01244.copyb +++| SB7 X2 01462 M00S01245.copyb +++| NG X6,CWR2 IF MORE THAN ENOUGH DATA TO FILL BUFFER 01463 M00S01246.copyb +++| BX3 X1 01464 M00S01247.copyb +++| SB7 X1+B1 ALSO TRANSFER CONTROL WORD TRAILER 01465 M00S01248.copyb +++| ZR X4,CWR2 IF NO BLOCK TERMINATOR OR EXTRA WORD 01466 M00S01249.copyb +++| SB7 B7+B1 ALSO TRANSFER BLOCK TERMINATOR/EXTRA WORD 01467 M00S01250.copyb +++| CWR2 SA4 LWDB LWA+1 DATA IN WORKING BUFFER 01468 M00S01251.copyb +++| ZR B7,CWR3 IF NO DATA REQUESTED 01469 M00S01252.copyb +++| IX6 X1-X3 DECREMENT NUMBER OF WORDS IN CURRENT BLOCK 01470 M00S01253.copyb +++| SA6 A1 01471 M00S01254.copyb +++| IX7 X2-X3 DECREMENT NUMBER OF WORDS TO TRANSFER 01472 M00S01255.copyb +++| SA7 A2 01473 M00S01256.copyb +++| IX6 X4+X3 INCREMENT WORKING BUFFER ADDRESS 01474 M00S01257.copyb +++| SA6 A4 01475 M00S01258.copyb +++| READW I,X4,B7 01476 M00S01259.copyb +++| CWR3 SA4 RWCB 01477 M00S01260.copyb +++| NZ X4,CWR7 IF TRANSFER COMPLETE AND NO EOR 01478 M00S01261.copyb +++| SA3 LWDB PROCESS TRAILER CONTROL WORD 01479 M00S01262.copyb +++| SA4 BTSK CHECK FOR BLOCK TERMINATOR OR EXTRA WORD 01480 M00S01263.copyb +++| SA1 X3 GET TRAILER CONTROL WORD 01481 M00S01264.copyb +++| ZR X4,CWR4 IF NO BLOCK TERMINATOR OR EXTRA WORD 01482 M00S01265.copyb +++| SA1 A1+B1 01483 M00S01266.copyb +++| CWR4 LX7 X1 01484 M00S01267.copyb +++| SA2 UBCB SET UNUSED BIT COUNT FOR BLOCK 01485 M00S01268.copyb +++| AX7 48 01486 M00S01269.copyb +++| BX6 X2 01487 M00S01270.copyb +++| SA7 LVL 01488 M00S01271.copyb +++| MX7 1 SET INITIALIZE NEW BLOCK FLAG 01489 M00S01272.copyb +++| SA6 UBC 01490 M00S01273.copyb +++| SA7 RWCB 01491 M00S01274.copyb +++| ZR X2,CWR5 IF NO UNUSED BIT COUNT 01492 M00S01275.copyb +++| SB3 59 CLEAR EXTRANEOUS DATA FROM LAST DATA WORD 01493 M00S01276.copyb +++| SB2 X2 01494 M00S01277.copyb +++| MX2 1 01495 M00S01278.copyb +++| SA1 X3-1 01496 M00S01279.copyb +++| SB2 B3-B2 01497 M00S01280.copyb +++| AX2 B2 01498 M00S01281.copyb +++| BX6 X2*X1 01499 M00S01282.copyb +++| SA6 A1 01500 M00S01283.copyb +++| CWR5 SB2 X4
| Line S01284 Modification History | |
|---|---|
M01 (Removed by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01501 M01S01284.copyb5 ---| LE B2,CWR6 IF NOT SI-CODED BLOCK TERMINATOR
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01502 M02S00025.274l797 ---| LE B2,CWR6 IF NOT SI-C/I BLOCK TERMINATOR
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01503 M01S00084.274l797 +++| LE B2,CWR6 IF NOT I OR SI-C BLOCK TERMINATOR
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01504 M01S00026.copyb5 +++| SA1 I+TCF 01505 M01S00027.copyb5 +++| SB2 B1+B1 01506 M01S00028.copyb5 +++| SB2 -B2 01507 M01S00029.copyb5 +++| SB3 X1 01508 M01S00030.copyb5 +++| NE B2,B3,CWR5.1 IF NOT SI-CODED TAPE 01509 M00S01285.copyb +++| SA2 X3 PROCESS SI-CODED BLOCK TERMINATOR 01510 M00S01286.copyb +++| RJ SIT
| Line S01287 Modification History | |
|---|---|
M01 (Removed by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01511 M01S01287.copyb5 ---| NG X1,CWRX IF SI-CODED EOF ENCOUNTERED
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01512 M01S00031.copyb5 +++| PL X1,CWR6 IF NOT SI-CODED EOF 01513 M01S00032.copyb5 +++| EQ CWRX RETURN 01514 M01S00033.copyb5 +++| 01515 M01S00034.copyb5 +++| CWR5.1 SB2 B2-B1 01516 M01S00035.copyb5 +++| NE B2,B3,CWR6 IF NOT I FORMAT VIA L FORMAT 01517 M01S00036.copyb5 +++| SA2 X3 PROCESS I BLOCK TERMINATOR 01518 M01S00037.copyb5 +++| RJ IBT 01519 M01S00038.copyb5 +++| NG X1,CWRX IF I FORMAT EOF ENCOUNTERED 01520 M00S01288.copyb +++| CWR6 SA2 RWTT 01521 M00S01289.copyb +++| ZR X2,CWR7 IF TRANSFER COMPLETE 01522 M00S01290.copyb +++| SA3 EORF 01523 M00S01291.copyb +++| NZ X3,CWR7 IF EOR ON CURRENT BLOCK 01524 M00S01292.copyb +++| RJ INB INITIALIZE NEW BLOCK 01525 M00S01293.copyb +++| PL X1,CWR1 IF EOF/EOI NOT ENCOUNTERED 01526 M00S01294.copyb +++| CWR7 SA1 I+TCF
| Line S01295 Modification History | |
|---|---|
M01 (Removed by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01527 M01S01295.copyb5 ---| SB2 -B1
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01528 M01S00039.copyb5 +++| SB2 B1+B1 01529 M01S00040.copyb5 +++| SB2 -B2 01530 M00S01296.copyb +++| SB3 X1
| Line S01297 Modification History | |
|---|---|
M01 (Removed by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01531 M01S01297.copyb5 ---| GE B3,B2,CWR8 IF NOT SI-CODED TAPE
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01532 M01S00041.copyb5 +++| NE B2,B3,CWR8 IF NOT SI-CODED TAPE 01533 M00S01298.copyb +++| RJ CEL CONVERT END OF LINES 01534 M00S01299.copyb +++| CWR8 SA3 LWDB LWA+1 DATA TRANSFERRED 01535 M00S01300.copyb +++| SA4 RWCB REMAINING WORDS IN CURRENT BLOCK 01536 M00S01301.copyb +++| SB6 X3 01537 M00S01302.copyb +++| BX1 X1-X1 01538 M00S01303.copyb +++| SA2 EORF EOR FLAG 01539 M00S01304.copyb +++| PL X4,CWRX IF CURRENT BLOCK NOT DEPLETED 01540 M00S01305.copyb +++| ZR X2,CWRX IF NO EOR ON CURRENT BLOCK 01541 M00S01306.copyb +++| SX1 B6 01542 M00S01307.copyb +++| EQ CWRX RETURN 01543 M00S01308.copyb +++| CWW SPACE 4,20 01544 M00S01309.copyb +++|** CWW - CONTROL WORD WRITE WORDS. 01545 M00S01310.copyb +++|*
| Line S01311 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01546 M01S01311.274l797 ---|* ENTRY (X0) .NE. 0, IF EOR TO BE GUARANTEED IF MS/I/SI-B
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01547 M01S00085.274l797 +++|* ENTRY (X0) .NE. 0, IF EOR TO BE GUARANTEED IF MS/I/LI/SI-B 01548 M00S01312.copyb +++|* OUTPUT. 01549 M00S01313.copyb +++|* (X2) = FWA FET. 01550 M00S01314.copyb +++|* (B6) = FWA WORKING BUFFER. 01551 M00S01315.copyb +++|* (B7) = NUMBER OF WORDS TO TRANSFER.
| Line S01316 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01552 M01S01316.274l797 ---|* IF (B7) = 0, EOR ONLY WILL BE WRITTEN IF MS/I/SI-B
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01553 M01S00086.274l797 +++|* IF (B7) = 0, EOR ONLY WILL BE WRITTEN IF MS/I/LI/SI-B 01554 M00S01317.copyb +++|* OUTPUT. 01555 M00S01318.copyb +++|* (UBC) = UNUSED BIT COUNT FOR BLOCK. 01556 M00S01319.copyb +++|* (LVL) = EOR LEVEL NUMBER. 01557 M00S01320.copyb +++|* 01558 M00S01321.copyb +++|* EXIT (X2) = FWA FET. 01559 M00S01322.copyb +++|* 01560 M00S01323.copyb +++|* USES A - 1, 3, 4, 6, 7. 01561 M00S01324.copyb +++|* B - 5, 6, 7. 01562 M00S01325.copyb +++|* X - 1, 3, 4, 6, 7. 01563 M00S01326.copyb +++|* 01564 M00S01327.copyb +++|* CALLS WTW=. 01565 M00S01328.copyb +++| 01566 M00S01329.copyb +++|
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 01567 M01S00045.ns2701 +++| CWW3 SA1 RCPY EOR VIA NON-FULL PRU 01568 M01S00046.ns2701 +++| SX6 X1+B1 01569 M01S00047.ns2701 +++| SA6 A1 01570 M01S00048.ns2701 +++| 01571 M00S01330.copyb +++| CWW SUBR ENTRY/EXIT 01572 M00S01331.copyb +++| ZR B7,CWW2 IF WORKING BUFFER EMPTY 01573 M00S01332.copyb +++| SX6 B7 SAVE NUMBER OF WORDS 01574 M00S01333.copyb +++| SB5 B7 01575 M00S01334.copyb +++| SA6 CWWA 01576 M00S01335.copyb +++| SX3 5 BUILD CONTROL WORD HEADER
| Line S01336 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01577 M01S01336.274l797 ---| SA4 X2+SLF
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01578 M01S00087.274l797 +++| SA4 X2+ODF 01579 M00S01337.copyb +++| SA1 UBC GET UNUSED BIT COUNT FOR BLOCK 01580 M00S01338.copyb +++| IX6 X6*X3 CALCULATE NUMBER OF BYTES
| Line S01339 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01581 M01S01339.274l797 ---| ZR X4,CWW1 IF MS/I/SI-B OUTPUT
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01582 M01S00088.274l797 +++| ZR X4,CWW1 IF MS/I/LI/SI-B OUTPUT 01583 M00S01340.copyb +++| BX3 X1 01584 M00S01341.copyb +++| ZR X1,CWW1 IF NO UNUSED BIT COUNT 01585 M00S01342.copyb +++| SX4 12 CALCULATE UNUSED BIT COUNT FOR BYTE 01586 M00S01343.copyb +++| LX7 X4 01587 M00S01344.copyb +++| IX3 X3/X4 01588 M00S01345.copyb +++| IX6 X6-X3 01589 M00S01346.copyb +++| IX3 X3*X7 01590 M00S01347.copyb +++| IX1 X1-X3 01591 M00S01348.copyb +++| LX1 24 01592 M00S01349.copyb +++| BX6 X1+X6 MERGE UNUSED BIT COUNT AND BLOCK LENGTH 01593 M00S01350.copyb +++| CWW1 SB6 B6-B1 RESET FWA WORKING BUFFER 01594 M00S01351.copyb +++| SA3 LVL GET EOR LEVEL NUMBER 01595 M00S01352.copyb +++| SA6 B6 STORE HEADER CONTROL WORD 01596 M00S01353.copyb +++| BX7 X3 01597 M00S01354.copyb +++| SB7 B5+B1 INCREMENT LENGTH OF WORKING BUFFER 01598 M00S01355.copyb +++| LX7 -12 01599 M00S01356.copyb +++| SA7 B6+B7 STORE TRAILER CONTROL WORD 01600 M00S01357.copyb +++| SB7 B7+B1 01601 M00S01358.copyb +++| WRITEW X2,B6,B7 WRITE CONTROL WORD BLOCK 01602 M00S01359.copyb +++| SA3 CWWA CHECK IF FULL PRU WRITTEN 01603 M00S01360.copyb +++| SA1 X2+PRU 01604 M00S01361.copyb +++| IX1 X1-X3
| Line S01362 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 01605 M01S01362.ns2701 ---| NZ X1,CWWX IF LAST BLOCK NOT FULL PRU
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 01606 M01S00049.ns2701 +++| NZ X1,CWW3 IF LAST BLOCK NOT FULL PRU 01607 M00S01363.copyb +++| CWW2 SA3 LVL BUILD TRAILER CONTROL WORD 01608 M00S01364.copyb +++| SA1 X2+SLF 01609 M00S01365.copyb +++| BX7 X3 01610 M00S01366.copyb +++| ZR X0,CWWX IF NOT EOR STATUS
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 01611 M01S00050.ns2701 +++| SA3 RCPY INCREMENT RECORD COUNT 01612 M01S00051.ns2701 +++| SX6 X3+B1 01613 M01S00052.ns2701 +++| SA6 A3 01614 M00S01367.copyb +++| LX7 -12 01615 M00S01368.copyb +++| SB6 CWWB
| Line S01369 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01616 M01S01369.274l797 ---| NZ X1,CWWX IF NOT MS/I/SI-B OUTPUT
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01617 M01S00089.274l797 +++| NZ X1,CWWX IF NOT MS/OD/I/LI/SI-B OUTPUT 01618 M00S01370.copyb +++| SA7 B6+B1 01619 M00S01371.copyb +++| WRITEW X2,B6,B1+B1 WRITE EOR ONLY 01620 M00S01372.copyb +++| EQ CWWX RETURN 01621 M00S01373.copyb +++| 01622 M00S01374.copyb +++| 01623 M00S01375.copyb +++| CWWA CON 0 BLOCK SIZE IN WORDS 01624 M00S01376.copyb +++| 01625 M00S01377.copyb +++| CWWB CON 0 CONTROL WORD EOR 01626 M00S01378.copyb +++| CON 0 01627 M00S01379.copyb +++| DRN SPACE 4,15 01628 M00S01380.copyb +++|** DRN - DISPLAY RECORD NAME. 01629 M00S01381.copyb +++|* 01630 M00S01382.copyb +++|* ENTRY (X2) = FWA RECORD. IF (X2) .LT. 0, IT IS THE 01631 M00S01383.copyb +++|* COMPLEMENT OF FWA RECORD IN INPUT CIO BUFFER. 01632 M00S01384.copyb +++|* (X1) = FWA RECORD, IF ZERO LENGTH RECORD. 01633 M00S01385.copyb +++|* 01634 M00S01386.copyb +++|* EXIT (RC) = UPDATED RECORD COUNT. 01635 M00S01387.copyb +++|* 01636 M00S01388.copyb +++|* USES A - 1, 2, 3, 6, 7. 01637 M00S01389.copyb +++|* X - 1, 2, 3, 6, 7. 01638 M00S01390.copyb +++|* 01639 M00S01391.copyb +++|* CALLS MSG=. 01640 M00S01392.copyb +++| 01641 M00S01393.copyb +++| 01642 M00S01394.copyb +++| DRN SUBR ENTRY/EXIT 01643 M00S01395.copyb +++| SA3 RC INCREMENT RECORD COUNT 01644 M00S01396.copyb +++| SX7 B1 01645 M00S01397.copyb +++| IX6 X3+X7 01646 M00S01398.copyb +++| PL X2,DRN1 IF NOT DISPLAY FROM CIO BUFFER 01647 M00S01399.copyb +++| IX7 X2-X7 01648 M00S01400.copyb +++| BX2 -X2 01649 M00S01401.copyb +++| DRN1 IX1 X1-X2 01650 M00S01402.copyb +++| SA6 A3 01651 M00S01403.copyb +++| ZR X1,DRN2 IF ZERO LENGTH RECORD 01652 M00S01404.copyb +++| SA1 X2 GET RECORD NAME 01653 M00S01405.copyb +++| MX6 12 01654 M00S01406.copyb +++| BX6 X6*X1 01655 M00S01407.copyb +++| LX6 12 01656 M00S01408.copyb +++| SX6 X6-7700B 01657 M00S01409.copyb +++| NZ X6,DRN2 IF NOT 77 TABLE 01658 M00S01410.copyb +++| SA3 I+4 01659 M00S01411.copyb +++| SA1 A1+B1 01660 M00S01412.copyb +++| SX3 X3 01661 M00S01413.copyb +++| PL X7,DRN2 IF NOT DISPLAY FROM CIO BUFFER 01662 M00S01414.copyb +++| SA2 I+1 01663 M00S01415.copyb +++| IX6 X3+X7 CHECK FOR WRAP AROUND 01664 M00S01416.copyb +++| NZ X6,DRN2 IF NO WRAP AROUND 01665 M00S01417.copyb +++| SA1 X2 01666 M00S01418.copyb +++| DRN2 MX7 42 01667 M00S01419.copyb +++| BX7 X7*X1 01668 M00S01420.copyb +++| SA7 DRNA+1 ENTER NAME IN MESSAGE 01669 M00S01421.copyb +++| MESSAGE A7-B1,1 DISPLAY RECORD NAME 01670 M00S01422.copyb +++| EQ DRNX RETURN 01671 M00S01423.copyb +++| 01672 M00S01424.copyb +++| 01673 M00S01425.copyb +++| DRNA DATA 10H COPYING 01674 M00S01426.copyb +++| CON 0,0 01675 M00S01427.copyb +++| END SPACE 4,15 01676 M00S01428.copyb +++|** END - END ROUTINE. 01677 M00S01429.copyb +++|* 01678 M00S01430.copyb +++|* FLUSHES OUTPUT BUFFER, IF NECESSARY. FLUSHES ALTERNATE 01679 M00S01431.copyb +++|* OUTPUT FILE BUFFER, IF NECESSARY. ISSUES DAYFILE MESSAGES. 01680 M00S01432.copyb +++|* 01681 M00S01433.copyb +++|* ENTRY AT *END5*, IF EOI ENCOUNTERED BEFORE COPY COMPLETE. 01682 M00S01434.copyb +++|* 01683 M00S01435.copyb +++|* EXIT TO *VFY*, IF VERIFY REQUESTED. 01684 M00S01436.copyb +++|* 01685 M00S01437.copyb +++|* USES A - 1, 2, 6. 01686 M00S01438.copyb +++|* X - 1, 2, 6. 01687 M00S01439.copyb +++|* 01688 M00S01440.copyb +++|* CALLS CIO=, IES, MSG=, SYS=. 01689 M00S01441.copyb +++| 01690 M00S01442.copyb +++| 01691 M00S01443.copyb +++| END5 SX6 ENDC *EOI ENCOUNTERED* OR *FILE NOT FOUND*
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 01692 M01S00053.ns2701 +++| SA1 ENDG 01693 M01S00054.ns2701 +++| NZ X1,END3.4 IF *FILE NOT FOUND* 01694 M00S01444.copyb +++| SA6 ENDA 01695 M00S01445.copyb +++|* EQ END 01696 M00S01446.copyb +++| 01697 M00S01447.copyb +++| END SA1 SK 01698 M00S01448.copyb +++| NZ X1,END2 IF SKIP SET
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | copyb1 |
Seq # *Modification Id* Act ----------------------------+ 01699 M01S00001.copyb1 +++| RECALL O 01700 M01S00002.copyb1 +++| SA1 O+2 CHECK *IN* = *OUT* 01701 M01S00003.copyb1 +++| SA2 A1+B1 01702 M01S00004.copyb1 +++| IX1 X1-X2 01703 M01S00005.copyb1 +++| ZR X1,END2 IF OUTPUT BUFFER EMPTY 01704 M00S01449.copyb +++| SA2 O+CWF 01705 M00S01450.copyb +++| ZR X2,END1 IF CONTROL WORD WRITE DISABLED 01706 M00S01451.copyb +++| WRITECW O FLUSH OUTPUT BUFFER 01707 M00S01452.copyb +++| EQ END2 ISSUE COMPLETION MESSAGE 01708 M00S01453.copyb +++| 01709 M00S01454.copyb +++| END1 WRITE O FLUSH OUTPUT BUFFER 01710 M00S01455.copyb +++| END2 SA1 EL 01711 M00S01456.copyb +++| ZR X1,END3 IF EXTENDED ERROR PROCESSING NOT IN EFFECT 01712 M00S01457.copyb +++| WRITER L FLUSH ALTERNATE OUTPUT FILE BUFFER 01713 M00S01458.copyb +++| END3 RECALL I FORCE 1MT ERROR MESSAGES TO DAYFILE FIRST 01714 M00S01459.copyb +++| RECALL O 01715 M00S01460.copyb +++| RECALL L
| Line S01461 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 01716 M01S01461.ns2701 ---| RJ IES ISSUE ERROR SUMMARY MESSAGES 01717 M00S01462.copyb +++| SA2 ENDA ISSUE ENDING MESSAGE 01718 M00S01463.copyb +++| MESSAGE X2,0
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 01719 M01S00055.ns2701 +++| SA2 ENDA 01720 M01S00056.ns2701 +++| SA1 X2+2 COPY STATUS 01721 M01S00057.ns2701 +++| SB2 1R/ 01722 M01S00058.ns2701 +++| SB5 ENDF 01723 M01S00059.ns2701 +++| RJ SNM SET TERMINATION TYPE INTO MESSAGE 01724 M01S00060.ns2701 +++| SA1 FCPY FILE COUNT 01725 M01S00061.ns2701 +++| RJ CDD CONVERT TO DISPLAY 01726 M01S00062.ns2701 +++| SB2 B2-B1 01727 M01S00063.ns2701 +++| MX0 1 01728 M01S00064.ns2701 +++| AX1 X0,B2 01729 M01S00065.ns2701 +++| BX1 X1*X4 ZERO FILL 01730 M01S00066.ns2701 +++| SB2 1R+ 01731 M01S00067.ns2701 +++| RJ SNM SET FILE COUNT INTO MESSAGE 01732 M01S00068.ns2701 +++| SA1 FCPY 01733 M01S00069.ns2701 +++| SX1 X1-1 01734 M01S00070.ns2701 +++| ZR X1,END3.1 IF JUST ONE FILE 01735 M01S00071.ns2701 +++| SA1 =1LS 01736 M01S00072.ns2701 +++| END3.1 SB2 1R# 01737 M01S00073.ns2701 +++| RJ SNM SET PLURAL INTO MESSAGE 01738 M01S00074.ns2701 +++| SA1 RCPY RECORD COUNT 01739 M01S00075.ns2701 +++| RJ CDD CONVERT TO DISPLAY 01740 M01S00076.ns2701 +++| SB2 B2-B1 01741 M01S00077.ns2701 +++| AX1 X0,B2 01742 M01S00078.ns2701 +++| BX1 X1*X4 ZERO FILL 01743 M01S00079.ns2701 +++| SB2 1R- 01744 M01S00080.ns2701 +++| RJ SNM SET FILE COUNT INTO MESSAGE 01745 M01S00081.ns2701 +++| SA1 RCPY 01746 M01S00082.ns2701 +++| SX1 X1-1 01747 M01S00083.ns2701 +++| ZR X1,END3.2 IF JUST ONE RECORD 01748 M01S00084.ns2701 +++| SA1 =1LS 01749 M01S00085.ns2701 +++| END3.2 SB2 1R$ 01750 M01S00086.ns2701 +++| RJ SNM SET PLURAL INTO MESSAGE 01751 M01S00087.ns2701 +++| SA1 WCPY WORD COUNT 01752 M01S00088.ns2701 +++| RJ CDD CONVERT TO DISPLAY 01753 M01S00089.ns2701 +++| SB2 B2-B1 01754 M01S00090.ns2701 +++| AX1 X0,B2 01755 M01S00091.ns2701 +++| BX1 X1*X4 ZERO FILL 01756 M01S00092.ns2701 +++| SB2 1R, 01757 M01S00093.ns2701 +++| RJ SNM SET WORD COUNT INTO MESSAGE 01758 M01S00094.ns2701 +++| SA1 WCPY 01759 M01S00095.ns2701 +++| SX1 X1-1 01760 M01S00096.ns2701 +++| ZR X1,END3.3 IF JUST ONE WORD 01761 M01S00097.ns2701 +++| SA1 =1LS 01762 M01S00098.ns2701 +++| END3.3 SB2 1R= 01763 M01S00099.ns2701 +++| RJ SNM SET PLURAL INTO MESSAGE 01764 M01S00100.ns2701 +++| END3.4 MESSAGE ENDF 01765 M01S00101.ns2701 +++| RJ IES ISSUE ERROR SUMMARY MESSAGES 01766 M00S01464.copyb +++| SA1 VF 01767 M00S01465.copyb +++| NZ X1,VFY IF VERIFY REQUESTED 01768 M00S01466.copyb +++| ZR X0,END4 IF NO WARNING MESSAGES ISSUED 01769 M00S01467.copyb +++| MESSAGE ENDE,3 * CHECK DAYFILE FOR ERRORS.* 01770 M00S01468.copyb +++| END4 ENDRUN 01771 M00S01469.copyb +++| 01772 M00S01470.copyb +++| 01773 M00S01471.copyb +++| ENDA CON ENDB ENDING MESSAGE ADDRESS 01774 M00S01472.copyb +++| 01775 M00S01473.copyb +++| ENDB DATA C* COPY COMPLETE.*
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 01776 M01S00102.ns2701 +++| DATA L*END* 01777 M00S01474.copyb +++| ENDC DATA C* EOI ENCOUNTERED.*
| Line S01475 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 01778 M01S01475.ns2701 ---|* DATA C* FILE NOT FOUND - LFN.* 01779 M01S01476.ns2701 ---| BSS 1 ALLOW ROOM FOR *FILE NOT FOUND* MESSAGE
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 01780 M01S00103.ns2701 +++| DATA L*EOI* 01781 M00S01477.copyb +++| ENDD DATA C* EOF ENCOUNTERED.*
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 01782 M01S00104.ns2701 +++| DATA L*EOF* 01783 M00S01478.copyb +++| ENDE DATA C* CHECK DAYFILE FOR ERRORS.*
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 01784 M01S00105.ns2701 +++| ENDF DATA C* ///. ++++++++++ FILE#; ---------- RECORD$; ,,,,,,,,, 01785 M01S00106.ns2701 +++|,, WORD=.* 01786 M01S00107.ns2701 +++| ENDG CON 0 FILE NOT FOUND FLAG 01787 M00S01479.copyb +++| ERP$ SPACE 4,35 01788 M00S01480.copyb +++|** ERP$ - ERROR PROCESSING ROUTINE. 01789 M00S01481.copyb +++|* 01790 M00S01482.copyb +++|* WHEN A NON-FATAL ERROR (ERROR STATUS 02 IN BITS 10-13 OF 01791 M00S01483.copyb +++|* FET+0) IS DETECTED, CIO= EXITS TO ERP$. SINCE ERROR 01792 M00S01484.copyb +++|* PROCESSING MUST BE ENABLED IN ORDER TO GET CONTROL BACK AFTER 01793 M00S01485.copyb +++|* A NON-FATAL ERROR HAS OCCURRED, AND EP BIT IS SET ONLY WHEN 01794 M00S01486.copyb +++|* CONTROL WORD READ IS ENABLED, THE ERROR PROCESSING ROUTINE 01795 M00S01487.copyb +++|* IS ENTERED AT ERP$ ONLY VIA CWR ROUTINE (CWR CALLS RDW= 01796 M00S01488.copyb +++|* WHICH CALLS CIO= WHEN BUFFER IS EMPTY OR THRESHOLD IS 01797 M00S01489.copyb +++|* REACHED, WHICH EXITS TO ERP$ UPON DETECTING 02 ERROR STATUS). 01798 M00S01490.copyb +++|* 01799 M00S01491.copyb +++|* WHEN A PARITY OR BLOCK TOO LARGE ERROR OCCURS, BIT 59 OF THE 01800 M00S01492.copyb +++|* HEADER CONTROL WORD OF THE BLOCK IN ERROR IS SET IN ADDITION 01801 M00S01493.copyb +++|* TO THE ERROR STATUS IN THE FET, AND THE CONTROL WORD READ 01802 M00S01494.copyb +++|* OPERATION TERMINATES SO THAT THE LAST BLOCK IN THE CIO BUFFER 01803 M00S01495.copyb +++|* IS THE ONE IN ERROR. WHEN SOME OTHER NON-FATAL ERROR SUCH AS 01804 M00S01496.copyb +++|* WRONG PARITY, DENSITY CHANGE, OR READY DROP OCCURS, ONLY THE 01805 M00S01497.copyb +++|* ERROR STATUS IS SET IN THE FET. THEREFORE, AFTER THE CIO 01806 M00S01498.copyb +++|* BUFFER IS EMPTIED, THE JOB MUST BE ABORTED WITH 01807 M00S01499.copyb +++|* *UNRECOVERABLE ERROR ON LFN.* IF THE LAST BLOCK PROCESSED 01808 M00S01500.copyb +++|* DID NOT HAVE A PARITY OR BLOCK TOO LARGE ERROR. 01809 M00S01501.copyb +++|* 01810 M00S01502.copyb +++|* ENTRY (X2) = FWA FET. 01811 M00S01503.copyb +++|* (ERRF) = ERROR FLAG FOR LAST BLOCK PROCESSED. 01812 M00S01504.copyb +++|* 01813 M00S01505.copyb +++|* EXIT (X7) = 0, IF EXIT TO *CIO=*. 01814 M00S01506.copyb +++|* (X7) = PREVIOUS READ FUNCTION CODE, IF EXIT 01815 M00S01507.copyb +++|* TO *CIO=+1*. 01816 M00S01508.copyb +++|* TO *CIO=*, IF CIO BUFFER NOT EMPTY (RETURN TO RDW= 01817 M00S01509.copyb +++|* WITHOUT REISSUING CIO FUNCTION). 01818 M00S01510.copyb +++|* TO *ERPX$* WHEN A RECOVERABLE ERROR OCCURS. 01819 M00S01511.copyb +++|* 01820 M00S01512.copyb +++|* USES A - 1, 3. 01821 M00S01513.copyb +++|* X - 1, 3, 7. 01822 M00S01514.copyb +++|* 01823 M00S01515.copyb +++|* CALLS CUE. 01824 M00S01516.copyb +++| 01825 M00S01517.copyb +++| 01826 M00S01518.copyb +++| ERP$ SA1 X2+2 IN POINTER 01827 M00S01519.copyb +++| SA3 A1+B1 OUT POINTER 01828 M00S01520.copyb +++| IX1 X1-X3 01829 M00S01521.copyb +++| BX7 X7-X7 CLEAR CIO ERROR STATUS 01830 M00S01522.copyb +++| NZ X1,CIO= IF BUFFER NOT EMPTY 01831 M00S01523.copyb +++| RJ CUE CHECK UNRECOVERABLE ERROR 01832 M00S01524.copyb +++| EQ ERPX$ RESUME *CIO* FUNCTION 01833 M00S01525.copyb +++| IES SPACE 4,10 01834 M00S01526.copyb +++|** IES - ISSUE ERROR SUMMARY MESSAGES. 01835 M00S01527.copyb +++|* 01836 M00S01528.copyb +++|* EXIT (X0) = NUMBER OF ERROR SUMMARY MESSAGES ISSUED. 01837 M00S01529.copyb +++|* 01838 M00S01530.copyb +++|* USES A - 1, 2, 6. 01839 M00S01531.copyb +++|* B - 5, 6, 7. 01840 M00S01532.copyb +++|* X - 0, 1, 2, 6. 01841 M00S01533.copyb +++|* 01842 M00S01534.copyb +++|* CALLS INM, MSG=. 01843 M00S01535.copyb +++| 01844 M00S01536.copyb +++| 01845 M00S01537.copyb +++| IES SUBR ENTRY/EXIT 01846 M00S01538.copyb +++| SB6 B0 01847 M00S01539.copyb +++| BX0 X0-X0 01848 M00S01540.copyb +++| SB7 TECAL2 01849 M00S01541.copyb +++| IES1 GE B6,B7,IESX IF END OF ERROR COUNTS 01850 M00S01542.copyb +++| SA2 TECA+B6 01851 M00S01543.copyb +++| SB6 B6+B1 01852 M00S01544.copyb +++| SA1 X2 01853 M00S01545.copyb +++| ZR X1,IES1 IF NO ERRORS OF THIS TYPE OCCURRED 01854 M00S01546.copyb +++| AX2 36 01855 M00S01547.copyb +++| SX0 X0+B1 01856 M00S01548.copyb +++| SB5 X2+ 01857 M00S01549.copyb +++| RJ INM INSERT NUMBER IN MESSAGE 01858 M00S01550.copyb +++| MESSAGE B5,3 ISSUE MESSAGE TO USERS DAYFILE 01859 M00S01551.copyb +++| EQ IES1 CONTINUE ERROR SUMMARY PROCESSING 01860 M00S01552.copyb +++| 01861 M00S01553.copyb +++| 01862 M00S01554.copyb +++| IESA DATA C* XXXXXXXXXX PARITY/BLOCK TOO LARGE ERRORS.* 01863 M00S01555.copyb +++| IESC DATA C* XXXXXXXXXX BAD FORMAT BLOCKS.* 01864 M00S01556.copyb +++| IESD DATA C* XXXXXXXXXXXXXXX NOISE BLOCKS PADDED.* 01865 M00S01557.copyb +++| IESE DATA C* XXXXXXXXXX RECORD SPLITS OCCURRED.* 01866 M00S01558.copyb +++| INB SPACE 4,15 01867 M00S01559.copyb +++|** INB - INITIALIZE NEW BLOCK. 01868 M00S01560.copyb +++|* 01869 M00S01561.copyb +++|* EXIT CONTROL WORD HEADER CRACKED AND FLAGS/COUNTS SET. 01870 M00S01562.copyb +++|* (X1) = 0, IF INITIALIZATION COMPLETE. 01871 M00S01563.copyb +++|* = -1, IF EOF ENCOUNTERED. 01872 M00S01564.copyb +++|* = -2, IF EOI ENCOUNTERED. 01873 M00S01565.copyb +++|* 01874 M00S01566.copyb +++|* USES A - 1, 2, 3, 4, 6, 7. 01875 M00S01567.copyb +++|* X - 1, 2, 3, 4, 6, 7. 01876 M00S01568.copyb +++|* 01877 M00S01569.copyb +++|* CALLS ABP, ISI, IXB, PDE, RDW=. 01878 M00S01570.copyb +++| 01879 M00S01571.copyb +++| 01880 M00S01572.copyb +++| INB8 SA2 I+TCF
| Line S01573 Modification History | |
|---|---|
M01 (Removed by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01881 M01S01573.copyb5 ---| SX2 X2+2 01882 M01S01574.copyb5 ---| NZ X2,INBX IF NOT SI-CODED TAPE
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01883 M01S00042.copyb5 +++| SX2 X2+1
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01884 M02S00043.274l797 ---| PL X2,INBX IF NOT SI-C/I VIA S/L FORMAT
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01885 M01S00090.274l797 +++| PL X2,INBX IF NOT I OR SI-C VIA S/L FORMAT 01886 M00S01575.copyb +++| SX1 -2 RETURN EOI IF TAPE MARK ENCOUNTERED 01887 M00S01576.copyb +++| 01888 M00S01577.copyb +++| INB SUBR ENTRY/EXIT 01889 M00S01578.copyb +++| INB1 READW I,INBA,B1 READ HEADER CONTROL WORD 01890 M00S01579.copyb +++| NG X1,INB8 IF EOF/EOI ENCOUNTERED 01891 M00S01580.copyb +++| SA2 BC INCREMENT BLOCK COUNT 01892 M00S01581.copyb +++| SX6 B1 01893 M00S01582.copyb +++| BX7 X7-X7 CLEAR BLOCK ERROR FLAG 01894 M00S01583.copyb +++| IX6 X2+X6 01895 M00S01584.copyb +++| SA6 A2 01896 M00S01585.copyb +++| SA7 ERRF 01897 M00S01586.copyb +++| SA4 INBA GET CONTROL WORD HEADER 01898 M00S01587.copyb +++| SA7 BTSK CLEAR BLOCK TERMINATOR/SKIP WORD INDICATOR 01899 M00S01588.copyb +++| MX3 -24 CRACK CONTROL WORD HEADER 01900 M00S01589.copyb +++| BX7 -X3*X4 BYTE COUNT
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01901 M01S00044.copyb5 +++| SA7 CWBC READCW BYTE COUNT 01902 M00S01590.copyb +++| AX4 24 01903 M00S01591.copyb +++| MX2 -6 01904 M00S01592.copyb +++| LX3 X7 01905 M00S01593.copyb +++| BX6 -X2*X4 UNUSED BIT COUNT FOR BYTE 01906 M00S01594.copyb +++| SX1 4 01907 M00S01595.copyb +++| IX7 X7+X1 ROUND UP BYTE COUNT 01908 M00S01596.copyb +++| SX1 X1+B1 01909 M00S01597.copyb +++| BX2 X1 01910 M00S01598.copyb +++| IX7 X7/X1 CALCULATE WORD COUNT 01911 M00S01599.copyb +++| AX4 12 01912 M00S01600.copyb +++| IX2 X7*X2 CALCULATE UNUSED BIT COUNT FOR WORD 01913 M00S01601.copyb +++| SX1 12 01914 M00S01602.copyb +++| IX2 X2-X3 01915 M00S01603.copyb +++| ZR X2,INB2 IF NO EXTRA DATA BYTES 01916 M00S01604.copyb +++| IX2 X2*X1 01917 M00S01605.copyb +++| IX6 X2+X6 01918 M00S01606.copyb +++| INB2 SA6 UBCB SAVE UNUSED BIT COUNT FOR BLOCK 01919 M00S01607.copyb +++| SA7 RWCB SAVE WORD COUNT FOR BLOCK 01920 M00S01608.copyb +++| SA1 I+SLF 01921 M00S01609.copyb +++| SX6 -1 INDICATE EOR STATUS FOR S, L, F TAPE 01922 M00S01610.copyb +++| SX3 X4 PRU SIZE 01923 M00S01611.copyb +++| NZ X1,INB3 IF S, L, OR F TAPE 01924 M00S01612.copyb +++| IX6 X7-X3 NO EOR IF FULL BLOCK 01925 M00S01613.copyb +++| INB3 SA6 EORF SAVE EOR FLAG 01926 M00S01614.copyb +++| NG X4,INB6 IF ERROR OCCURRED ON THIS BLOCK 01927 M00S01615.copyb +++| INB4 SA2 I+TCF 01928 M00S01616.copyb +++| BX1 X1-X1 01929 M00S01617.copyb +++| SX3 X2+B1
| Line S01618 Modification History | |
|---|---|
M01 (Removed by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01930 M01S01618.copyb5 ---| PL X2,INBX IF NOT TCOPY X OR SI-CODED INPUT TAPE 01931 M01S01619.copyb5 ---| NZ X3,INB5 IF SI-CODED INPUT TAPE
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01932 M01S00045.copyb5 +++| PL X2,INBX IF NOT TCOPY X, SI-CODED TO I INPUT TAPE 01933 M01S00046.copyb5 +++| NZ X3,INB5 IF NOT X BLOCK 01934 M00S01620.copyb +++| RJ IXB INITIALIZE X FORMAT TAPE BLOCK 01935 M00S01621.copyb +++| BX1 X1-X1 INDICATE INITIALIZATION COMPLETE 01936 M00S01622.copyb +++| EQ INBX RETURN 01937 M00S01623.copyb +++|
| Line S01624 Modification History | |
|---|---|
M01 (Removed by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01938 M01S01624.copyb5 ---| INB5 RJ ISI INITIALIZE SI-CODED TAPE BLOCK
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01939 M01S00047.copyb5 +++| INB5 SX3 X3+1 01940 M01S00048.copyb5 +++| NZ X3,INB5.1 IF NOT SI-CODED BLOCK 01941 M01S00049.copyb5 +++| RJ ISI INITIALIZE SI-CODED TAPE BLOCK 01942 M00S01625.copyb +++| BX1 X1-X1 INDICATE INITIALIZATION COMPLETE 01943 M00S01626.copyb +++| EQ INBX RETURN
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 01944 M01S00050.copyb5 +++| 01945 M01S00051.copyb5 +++| INB5.1 RJ IIB INITIALIZE I FORMAT TAPE BLOCK 01946 M01S00052.copyb5 +++| BX1 X1-X1 INDICATE INITIALIZATION COMPLETE 01947 M01S00053.copyb5 +++| EQ INBX RETURN 01948 M00S01627.copyb +++| 01949 M00S01628.copyb +++|* PROCESS PARITY OR BLOCK TOO LARGE ERROR. 01950 M00S01629.copyb +++| 01951 M00S01630.copyb +++| INB6 SB3 B0 INDICATE PARITY/BLOCK TOO LARGE ERROR 01952 M00S01631.copyb +++| RJ PDE PROCESS ERROR 01953 M00S01632.copyb +++| SA1 ESPI ERROR BLOCKS SKIPPED/PROCESSED INDICATOR 01954 M00S01633.copyb +++| NZ X1,INB4 IF ERROR BLOCKS TO BE PROCESSED 01955 M00S01634.copyb +++| SA1 I+3 REMOVE BLOCK FROM BUFFER 01956 M00S01635.copyb +++| SA3 RWCB GET BLOCK WORD COUNT 01957 M00S01636.copyb +++| SX3 X3+B1 REMOVE BLOCK AND TRAILER CONROL WORD 01958 M00S01637.copyb +++| SA2 A1+B1 LIMIT 01959 M00S01638.copyb +++| RJ ABP ADVANCE INPUT OUT POINTER 01960 M00S01639.copyb +++| MX7 1 SET INITIALIZE NEW BLOCK FLAG 01961 M00S01640.copyb +++| SA6 A1 01962 M00S01641.copyb +++| SA7 A3+ 01963 M00S01642.copyb +++| EQ INB1 PROCESS NEXT BLOCK 01964 M00S01643.copyb +++| 01965 M00S01644.copyb +++| 01966 M00S01645.copyb +++| INBA CON 0 CONTROL WORD HEADER 01967 M00S01646.copyb +++| INM SPACE 4,15 01968 M00S01647.copyb +++|** INM - INSERT NUMBER IN MESSAGE. 01969 M00S01648.copyb +++|* 01970 M00S01649.copyb +++|* ENTRY (B5) = FWA MESSAGE TO BE ISSUED. 01971 M00S01650.copyb +++|* (X1) = NUMBER TO BE CONVERTED FOR MESSAGE. 01972 M00S01651.copyb +++|* 01973 M00S01652.copyb +++|* EXIT NUMBER CONVERTED TO DECIMAL DISPLAY AND ENTERED INTO 01974 M00S01653.copyb +++|* MESSAGE. 01975 M00S01654.copyb +++|* 01976 M00S01655.copyb +++|* USES B - 2. 01977 M00S01656.copyb +++|* X - 1. 01978 M00S01657.copyb +++|* 01979 M00S01658.copyb +++|* CALLS CDD, SNM. 01980 M00S01659.copyb +++| 01981 M00S01660.copyb +++| 01982 M00S01661.copyb +++| INM SUBR ENTRY/EXIT 01983 M00S01662.copyb +++| RJ CDD CONVERT NUMBER TO DECIMAL DISPLAY 01984 M00S01663.copyb +++| SB2 B2-B1 CLEAR BLANK FILL 01985 M00S01664.copyb +++| MX1 1 01986 M00S01665.copyb +++| AX1 B2 01987 M00S01666.copyb +++| BX1 X1*X4 01988 M00S01667.copyb +++| SB2 1RX 01989 M00S01668.copyb +++| RJ SNM ENTER NUMBER IN MESSAGE 01990 M00S01669.copyb +++| EQ INMX RETURN 01991 M00S01670.copyb +++| PDE SPACE 4,15 01992 M00S01671.copyb +++|** PDE - PROCESS DATA BLOCK ERROR. 01993 M00S01672.copyb +++|* 01994 M00S01673.copyb +++|* ENTRY (B3) = 0, IF PARITY OR BLOCK TOO LARGE ERROR. 01995 M00S01674.copyb +++|* = 1, IF DATA ERROR. 01996 M00S01675.copyb +++|* 01997 M00S01676.copyb +++|* EXIT IF BLOCK ERROR FLAG NOT ALREADY SET, PARITY/BLOCK 01998 M00S01677.copyb +++|* TOO LARGE, OR DATA ERROR COUNT INCREMENTED, AND 01999 M00S01678.copyb +++|* IF ERROR LIMIT NONZERO, ERROR MESSAGE ISSUED TO 02000 M00S01679.copyb +++|* ALTERNATE OUTPUT FILE. 02001 M00S01680.copyb +++|* TO *ABT*, IF ERROR LIMIT EXCEEDED. 02002 M00S01681.copyb +++|* 02003 M00S01682.copyb +++|* USES A - 1, 2, 3, 4, 6, 7. 02004 M00S01683.copyb +++|* B - 2, 3, 5, 7. 02005 M00S01684.copyb +++|* X - 1, 2, 3, 4, 6, 7. 02006 M00S01685.copyb +++|* 02007 M00S01686.copyb +++|* CALLS INM, SNM, SYS=, WTC=, WTW=. 02008 M00S01687.copyb +++| 02009 M00S01688.copyb +++| 02010 M00S01689.copyb +++| PDE SUBR ENTRY/EXIT 02011 M00S01690.copyb +++| SA1 ERRF 02012 M00S01691.copyb +++| SA2 TECA+B3 02013 M00S01692.copyb +++| NZ X1,PDEX IF BLOCK ERROR FLAG ALREADY SET 02014 M00S01693.copyb +++| SA3 X2 INCREMENT CORRESPONDING ERROR COUNT 02015 M00S01694.copyb +++| SX6 B1 02016 M00S01695.copyb +++| IX7 X3+X6 02017 M00S01696.copyb +++| SA4 EL 02018 M00S01697.copyb +++| AX2 18 02019 M00S01698.copyb +++| SA7 A3 02020 M00S01699.copyb +++| ZR X4,ABT IF ZERO ERROR LIMIT 02021 M00S01700.copyb +++| SX7 X2 SAVE ERROR MESSAGE ADDRESS 02022 M00S01701.copyb +++| AX2 36 02023 M00S01702.copyb +++| SA7 PDEA 02024 M00S01703.copyb +++| BX6 X2 02025 M00S01704.copyb +++| SA6 A1 SET BLOCK ERROR FLAG 02026 M00S01705.copyb +++| SB2 TECAL1-1 02027 M00S01706.copyb +++| SX6 -B1 02028 M00S01707.copyb +++| PDE1 SA1 TECA+B2 CALCULATE TOTAL ERROR COUNT 02029 M00S01708.copyb +++| SA2 X1 02030 M00S01709.copyb +++| SB2 B2-B1 02031 M00S01710.copyb +++| IX6 X6+X2 02032 M00S01711.copyb +++| GE B2,PDE1 IF MORE ERROR COUNTS 02033 M00S01712.copyb +++| BX7 X4 02034 M00S01713.copyb +++| NG X4,PDE2 IF UNLIMITED ERROR PROCESSING 02035 M00S01714.copyb +++| IX7 X6-X4 02036 M00S01715.copyb +++| PDE2 SA7 A7+B1 SAVE ABORT INDICATOR 02037 M00S01716.copyb +++| NZ X6,PDE3 IF NOT FIRST ERROR 02038 M00S01717.copyb +++| WRITE L,* PRESET STANDARD WRITE 02039 M00S01718.copyb +++| WRITEW L,PDEC,B1+B1 WRITE HEADER LINE 02040 M00S01719.copyb +++| WRITEW X2,CCDR,8 02041 M00S01720.copyb +++| DATE PDEC 02042 M00S01721.copyb +++| CLOCK PDEC+1 02043 M00S01722.copyb +++| WRITEW X2,PDEC,5 02044 M00S01723.copyb +++| PDE3 SA2 PDEA GET ERROR MESSAGE ADDRESS 02045 M00S01724.copyb +++| SB3 B0 02046 M00S01725.copyb +++| SB2 X2 02047 M00S01726.copyb +++| SB7 PDECL 02048 M00S01727.copyb +++| SB5 PDEC 02049 M00S01728.copyb +++| PDE4 SA2 B2+B3 MOVE MESSAGE TO BUFFER 02050 M00S01729.copyb +++| BX6 X2 02051 M00S01730.copyb +++| SA6 B5+B3 02052 M00S01731.copyb +++| SB3 B3+B1 02053 M00S01732.copyb +++| LT B3,B7,PDE4 IF MORE WORDS IN MESSAGE 02054 M00S01733.copyb +++| SA1 BC BLOCK COUNT 02055 M00S01734.copyb +++| RJ INM INSERT NUMBER IN MESSAGE 02056 M00S01735.copyb +++| WRITEC L,B5 02057 M00S01736.copyb +++| SA1 PDEB GET ABORT INDICATOR 02058 M00S01737.copyb +++| NG X1,PDEX IF ERROR LIMIT NOT REACHED 02059 M00S01738.copyb +++| EQ ABT ABORT 02060 M00S01739.copyb +++| 02061 M00S01740.copyb +++| 02062 M00S01741.copyb +++| PDEA CON 0 ERROR MESSAGE ADDRESS 02063 M00S01742.copyb +++| PDEB CON 0 ABORT INDICATOR 02064 M00S01743.copyb +++| 02065 M00S01744.copyb +++| PDECL EQU 6 02066 M00S01745.copyb +++| PDEC BSS 0 HEADER LINE AND MESSAGE BUFFER 02067 M00S01746.copyb +++| CON 10H1- ERROR S 02068 M00S01747.copyb +++| CON 10HUMMARY - 02069 M00S01748.copyb +++| BSSZ PDECL-2 02070 M00S01749.copyb +++| 02071 M00S01750.copyb +++| PDED DATA C* PARITY/BLOCK TOO LARGE ERROR IN BLOCK XXXXXXXXXX.*
| Line S01751 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02072 M01S01751.v23l617 ---| PDEF DATA C* ILLEGAL FORMAT IN BLOCK XXXXXXXXXX.*
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02073 M01S00059.v23l617 +++| PDEF DATA C* INCORRECT FORMAT IN BLOCK XXXXXXXXXX.* 02074 M00S01752.copyb +++| PEF SPACE 4,20 02075 M00S01753.copyb +++|** PEF - PROCESS END OF FILE. 02076 M00S01754.copyb +++|* 02077 M00S01755.copyb +++|* GENERATES AN EOF ON OUTPUT WITH OR WITHOUT CONTROL WORDS 02078 M00S01756.copyb +++|* UNLESS ONE OF THE FOLLOWING CONDITIONS EXIST - 02079 M00S01757.copyb +++|* 1. SKIP FLAG IS SET. 02080 M00S01758.copyb +++|* 2. PO=M OPTION (SKIP EOF WRITE) IS SELECTED. 02081 M00S01759.copyb +++|* 3. LAST DOUBLE EOF (FOR TC=EOD COPY) IS ENCOUNTERED. 02082 M00S01760.copyb +++|* 4. FOR A COPY WITH A FILE COUNT SPECIFIED (COPYBF 02083 M00S01761.copyb +++|* OR COPY/TCOPY WITH TC=EOF PARAMETER), WHEN EOI 02084 M00S01762.copyb +++|* IS ENCOUNTERED ON INPUT AND NO DATA TRANSFER HAS 02085 M00S01763.copyb +++|* OCCURRED SINCE PREVIOUS EOF. 02086 M00S01764.copyb +++|* THE COPY COUNT IS DECREMENTED WHEN APPLICABLE. 02087 M00S01765.copyb +++|* 02088 M00S01766.copyb +++|* ENTRY (X0) .LT. 0, IF EOI ENCOUNTERED. 02089 M00S01767.copyb +++|* (X5) = 0, IF EMPTY FILE ENCOUNTERED. 02090 M00S01768.copyb +++|* 02091 M00S01769.copyb +++|* EXIT (X0) .LT. 0, IF EOI ENCOUNTERED. 02092 M00S01770.copyb +++|* (CT) = 0, IF COPY COMPLETE. 02093 M00S01771.copyb +++|* 02094 M00S01772.copyb +++|* USES A - 1, 2, 3, 4, 6. 02095 M00S01773.copyb +++|* B - 2. 02096 M00S01774.copyb +++|* X - 0, 1, 2, 3, 4, 6. 02097 M00S01775.copyb +++|* 02098 M00S01776.copyb +++|* CALLS CIO=, MSG=, WTW=. 02099 M00S01777.copyb +++| 02100 M00S01778.copyb +++| 02101 M00S01779.copyb +++| PEF3 WRITEF O GENERATE EOF AND FLUSH BUFFER 02102 M00S01780.copyb +++| PEF4 SA1 TC GET TERMINATION CONDITION 02103 M00S01781.copyb +++| NG X0,PEFX IF EOI ENCOUNTERED 02104 M00S01782.copyb +++| NG X1,PEFX IF COPY TO EOI 02105 M00S01783.copyb +++| SB2 X0+ 02106 M00S01784.copyb +++| NZ X1,PEF5 IF COPY TO FILE COUNT 02107 M00S01785.copyb +++| EQ B2,B1,PEFX IF EMPTY FILE NOT ENCOUNTERED 02108 M00S01786.copyb +++| PEF5 SX1 B1 DECREMENT COPY COUNT 02109 M00S01787.copyb +++| SA2 CT 02110 M00S01788.copyb +++| IX6 X2-X1 02111 M00S01789.copyb +++| SA6 A2+ 02112 M00S01790.copyb +++| 02113 M00S01791.copyb +++| PEF SUBR ENTRY/EXIT 02114 M00S01792.copyb +++| SA2 TC 02115 M00S01793.copyb +++| SA4 SK 02116 M00S01794.copyb +++| SA1 BC INCREMENT BLOCK COUNT 02117 M00S01795.copyb +++| SA3 CT 02118 M00S01796.copyb +++| SB2 X2 02119 M00S01797.copyb +++| NG X0,PEF2 IF EOI ENCOUNTERED 02120 M00S01798.copyb +++| SX0 B1 02121 M00S01799.copyb +++| IX6 X1+X0 02122 M00S01800.copyb +++| SA6 A1 02123 M00S01801.copyb +++| NZ X5,PEF1 IF DATA TRANSFERRED 02124 M00S01802.copyb +++| NZ B2,PEF1 IF NOT COPY TO DOUBLE EOF 02125 M00S01803.copyb +++| SA2 RC 02126 M00S01804.copyb +++| IX1 X3-X0 02127 M00S01805.copyb +++| ZR X2,PEF1 IF NO RECORDS COPIED 02128 M00S01806.copyb +++| SX0 B1+B1 02129 M00S01807.copyb +++| NZ X1,PEF1 IF NOT LAST DOUBLE EOF 02130 M00S01808.copyb +++| SA1 =10H SKIPPING SKIP LAST EOF 02131 M00S01809.copyb +++| BX0 X0-X0 02132 M00S01810.copyb +++| LX6 X1 02133 M00S01811.copyb +++| SA6 PEFB 02134 M00S01812.copyb +++| PEF1 SA1 RC ADVANCE RECORD COUNT 02135 M00S01813.copyb +++| SX6 B1 02136 M00S01814.copyb +++| IX6 X1+X6 02137 M00S01815.copyb +++| SA6 A1+ 02138 M00S01816.copyb +++| MESSAGE PEFB,1 DISPLAY EOF MESSAGE 02139 M00S01817.copyb +++| ZR X0,PEF5 IF LAST DOUBLE EOF ENCOUNTERED 02140 M00S01818.copyb +++| SA3 SEWI SKIP EOF WRITE INDICATOR 02141 M00S01819.copyb +++| NZ X3,PEF4 IF PO=M OPTION SELECTED
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02142 M01S00108.ns2701 +++| SA1 FCPY INCREMENT FILE COUNT 02143 M01S00109.ns2701 +++| SX6 X1+B1 02144 M01S00110.ns2701 +++| SA6 A1 02145 M00S01820.copyb +++| SA2 O+CWF 02146 M00S01821.copyb +++| NZ X4,PEF4 IF SKIP SET 02147 M00S01822.copyb +++| ZR X2,PEF3 IF CONTROL WORD WRITE DISABLED 02148 M00S01823.copyb +++| WRITEW O,PEFA,B1+B1 WRITE CONTROL WORD EOF 02149 M00S01824.copyb +++| EQ PEF4 DECREMENT COPY COUNT 02150 M00S01825.copyb +++| 02151 M00S01826.copyb +++| PEF2 NZ X4,PEFX IF SKIP SET 02152 M00S01827.copyb +++| LE B2,PEFX IF NOT COPY TO FILE COUNT 02153 M00S01828.copyb +++| ZR X5,PEFX IF NO DATA TRANSFERRED 02154 M00S01829.copyb +++| EQ PEF1 WRITE EOF 02155 M00S01830.copyb +++| 02156 M00S01831.copyb +++| 02157 M00S01832.copyb +++| PEFA VFD 60/0 CONTROL WORD EOF 02158 M00S01833.copyb +++| VFD 12/17B,48/0 02159 M00S01834.copyb +++| 02160 M00S01835.copyb +++| PEFB DATA C* COPYING EOF.* 02161 M00S01836.copyb +++| SSL SPACE 4,20 02162 M00S01837.copyb +++|** SSL - SPECIAL PROCESSOR FOR S AND L OUTPUT TAPES. 02163 M00S01838.copyb +++|* 02164 M00S01839.copyb +++|* ENTRY (B4) = PREVIOUS READ STATUS. 02165 M00S01840.copyb +++|* (B6) = LWA+1 DATA IN WORKING BUFFER. 02166 M00S01841.copyb +++|* (B7) = NUMBER OF WORDS IN WORKING BUFFER. 02167 M00S01842.copyb +++|* (FWWB) = FWA WORKING BUFFER. 02168 M00S01843.copyb +++|* 02169 M00S01844.copyb +++|* EXIT (B6) = UPDATED LWA+1 DATA IN WORKING BUFFER. 02170 M00S01845.copyb +++|* (B7) = UPDATED NUMBER OF WORDS IN WORKING BUFFER. 02171 M00S01846.copyb +++|* TO *ABT4*, IF RECORD TOO LARGE ENCOUNTERED AND RECORD 02172 M00S01847.copyb +++|* SPLIT NOT ALLOWED. 02173 M00S01848.copyb +++|* 02174 M00S01849.copyb +++|* USES A - 1, 2, 3, 4, 6. 02175 M00S01850.copyb +++|* B - 5, 6, 7. 02176 M00S01851.copyb +++|* X - 1, 2, 3, 4, 6. 02177 M00S01852.copyb +++|* 02178 M00S01853.copyb +++|* CALLS BFL. 02179 M00S01854.copyb +++| 02180 M00S01855.copyb +++| 02181 M00S01856.copyb +++| SSL3 SA6 B6 ZERO FILL BLOCK TO NOISE SIZE 02182 M00S01857.copyb +++| SB6 B6+B1 02183 M00S01858.copyb +++| LT B6,B5,SSL3 IF MORE WORDS TO ZERO 02184 M00S01859.copyb +++| SSL4 SA1 O+PRU GET OUTPUT PRU SIZE 02185 M00S01860.copyb +++| SA3 UBC 02186 M00S01861.copyb +++| SX2 B7 02187 M00S01862.copyb +++| SA4 FUBC 02188 M00S01863.copyb +++| IX1 X1-X2 02189 M00S01864.copyb +++| BX6 X4 02190 M00S01865.copyb +++| IX3 X3-X4 02191 M00S01866.copyb +++| NZ X1,SSLX IF NOT FULL BLOCK 02192 M00S01867.copyb +++| PL X3,SSLX IF LARGER UNUSED BIT COUNT ALREADY SET 02193 M00S01868.copyb +++| SA6 A3+ 02194 M00S01869.copyb +++| 02195 M00S01870.copyb +++| SSL SUBR ENTRY/EXIT 02196 M00S01871.copyb +++| ZR B7,SSLX IF EOR ONLY 02197 M00S01872.copyb +++| NZ B4,SSL1 IF PREVIOUS READ STATUS EOR 02198 M00S01873.copyb +++| SA1 RSAI RECORD SPLIT ALLOWED INDICATOR 02199 M00S01874.copyb +++| SB5 ABTC * RECORD TOO LARGE ON LFN.* 02200 M00S01875.copyb +++| SA2 RSCT INCREMENT RECORD SPLIT COUNT 02201 M00S01876.copyb +++| ZR X1,ABT4 IF RECORD SPLIT NOT ALLOWED 02202 M00S01877.copyb +++| SX6 X2+B1 02203 M00S01878.copyb +++| SA6 A2 02204 M00S01879.copyb +++| SSL1 SA2 CRI 02205 M00S01880.copyb +++| SA1 O+NSZ GET OUTPUT NOISE SIZE 02206 M00S01881.copyb +++| PL X2,SSLX IF NOT *COPY* 02207 M00S01882.copyb +++| SA3 FWWB FWA WORKING BUFFER 02208 M00S01883.copyb +++| SB5 X3 02209 M00S01884.copyb +++| SB5 B5+X1 LWA+1 MINIMUM SIZE BLOCK 02210 M00S01885.copyb +++| SA2 NZCT 02211 M00S01886.copyb +++| SX6 X2+B1 INCREMENT NOISE BLOCK COUNT 02212 M00S01887.copyb +++| GE B6,B5,SSL4 IF BLOCK AT LEAST MINIMUM SIZE 02213 M00S01888.copyb +++| SA6 A2 02214 M00S01889.copyb +++| SA3 NPDI NOISE BLOCKS PADDED/DELETED INDICATOR 02215 M00S01890.copyb +++| ZR X3,SSL2 IF NOISE BLOCK TO BE PADDED 02216 M00S01891.copyb +++| SB7 B0 DELETE BLOCK 02217 M00S01892.copyb +++| EQ SSLX RETURN 02218 M00S01893.copyb +++| 02219 M00S01894.copyb +++| SSL2 SA2 O CHECK OUTPUT MODE 02220 M00S01895.copyb +++| BX6 X6-X6 02221 M00S01896.copyb +++| LX2 59-1 02222 M00S01897.copyb +++| SB7 X1+ 02223 M00S01898.copyb +++| NG X2,SSL3 IF BINARY MODE 02224 M00S01899.copyb +++| RJ BFL BLANK FILL LINE TO NOISE SIZE 02225 M00S01900.copyb +++| EQ SSL4 CHECK FOR FULL BLOCK 02226 M00S01901.copyb +++| VFY SPACE 4,10 02227 M00S01902.copyb +++|** VFY - VERIFY FILES. 02228 M00S01903.copyb +++|* 02229 M00S01904.copyb +++|* LOADS AND EXECUTES VERIFY UTILITY. 02230 M00S01905.copyb +++|* 02231 M00S01906.copyb +++|* USES A - 1, 2, 6, 7. 02232 M00S01907.copyb +++|* X - 0, 1, 2, 6, 7. 02233 M00S01908.copyb +++|* 02234 M00S01909.copyb +++|* CALLS MSG=, SYS=, WNB=. 02235 M00S01910.copyb +++| 02236 M00S01911.copyb +++| 02237 M00S01912.copyb +++| VFY BSS 0 02238 M00S01913.copyb +++| RECALL I 02239 M00S01914.copyb +++| RECALL O 02240 M00S01915.copyb +++| MX0 42 TRANSFER VERIFY ARGUMENTS TO RA+2 02241 M00S01916.copyb +++| SA1 I 02242 M00S01917.copyb +++| BX7 X0*X1 02243 M00S01918.copyb +++| SA2 O 02244 M00S01919.copyb +++| R= A7,ARGR 02245 M00S01920.copyb +++| BX6 X0*X2 02246 M00S01921.copyb +++| SA1 VFYA-1 02247 M00S01922.copyb +++| SA6 A7+B1 02248 M00S01923.copyb +++| SX7 B1 ARGUMENT COUNT - 1 02249 M00S01924.copyb +++| VFY1 SA1 A1+B1 02250 M00S01925.copyb +++| BX6 X1 02251 M00S01926.copyb +++| SX7 X7+B1 INCREMENT ARGUMENT COUNT 02252 M00S01927.copyb +++| SA6 A6+B1 02253 M00S01928.copyb +++| NZ X1,VFY1 IF MORE ARGUMENTS 02254 M00S01929.copyb +++| SA7 ACTR
| Line S01930 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02255 M01S01930.v23l617 ---| MESSAGE VFYC,3,R ISSUE VERIFY CONTROL CARD TO DAYFILE
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02256 M01S00060.v23l617 +++| MESSAGE VFYC,3,R ISSUE VERIFY COMMAND TO DAYFILE 02257 M00S01931.copyb +++| SYSTEM LDR,R,VFYB LOAD AND EXECUTE VERIFY UTILITY 02258 M00S01932.copyb +++| PS 0 02259 M00S01933.copyb +++| 02260 M00S01934.copyb +++| 02261 M00S01935.copyb +++| VFYA CON 0LA ABORT ON ERROR 02262 M00S01936.copyb +++| CON 0LR REWIND 02263 M00S01937.copyb +++| CON 1LL+1R= ALTERNATE OUTPUT FILE 02264 M00S01938.copyb +++| CON 0 02265 M00S01939.copyb +++| CON 1LN+1R= FILE COUNT 02266 M00S01940.copyb +++| CON 0 02267 M00S01941.copyb +++| CON 0 CODED PARAMETER 02268 M00S01942.copyb +++| CON 0 BLOCK SIZE PARAMETER FOR S AND L TAPES 02269 M00S01943.copyb +++| CON 0 02270 M00S01944.copyb +++| CON 0 END OF ARGUMENTS 02271 M00S01945.copyb +++| 02272 M00S01946.copyb +++| VFYB CON 0LVERIFY 02273 M00S01947.copyb +++| CON 140BS36 02274 M00S01948.copyb +++| 02275 M00S01949.copyb +++| VFYC DATA C-* VERIFY,XXXXXXX,+++++++,A,R,L=///////,N(((((((($$$) 02276 M00S01950.copyb +++|,)))))))))).-
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02277 M01S00061.v23l617 +++| 02278 M01S00062.v23l617 +++| 02279 M01S00063.v23l617 +++| VNS SPACE 4,15 02280 M01S00064.v23l617 +++|** VNS - VERIFY NOISE SIZE BLOCK FOR *COPY* OR *TCOPY*. 02281 M01S00065.v23l617 +++|* 02282 M01S00066.v23l617 +++|* ENTRY (B6) = LWA+1 DATA IN WORKING BUFFER. 02283 M01S00067.v23l617 +++|* (FWWB) = FWA WORKING BUFFER. 02284 M01S00068.v23l617 +++|* (I+NSZ) = INPUT TAPE NOISE SIZE. 02285 M01S00069.v23l617 +++|* (NZCT) = NOISE BLOCK DELETED COUNT.
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 02286 M02S00070.copyb5 ---|* (UBC) = UNUSED BIT COUNT FOR LAST WORD TRANSFERED.
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 02287 M01S00054.copyb5 +++|* (BTSK) = ZERO IF NO BLOCK TERMINATOR OR EXTRA WORD
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02288 M01S00071.v23l617 +++|* 02289 M01S00072.v23l617 +++|* EXIT (X4) = BLOCK SIZE - NOISE SIZE. 02290 M01S00073.v23l617 +++|* 02291 M01S00074.v23l617 +++|* USES A - 1, 2, 4, 6. 02292 M01S00075.v23l617 +++|* B - 3. 02293 M01S00076.v23l617 +++|* X - 0, 1, 2, 4, 6. 02294 M01S00077.v23l617 +++| 02295 M01S00078.v23l617 +++| 02296 M01S00079.v23l617 +++| VNS SUBR ENTRY/EXIT 02297 M01S00080.v23l617 +++| SA4 I+NSZ 02298 M01S00081.v23l617 +++| SA1 NSFG 02299 M01S00082.v23l617 +++| ZR X1,VNSX IF NO SPECIAL NOISE PROCESSING IN EFFECT 02300 M01S00083.v23l617 +++| SA2 FWWB FWA WORKING BUFFER 02301 M01S00084.v23l617 +++| SB3 X2 02302 M01S00085.v23l617 +++| SX1 B6-B3 NUMBER OF DATA WORDS IN LINE
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 02303 M02S00086.copyb5 ---| SX2 60 60 BITS
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 02304 M01S00055.copyb5 +++| SA2 BTSK 02305 M01S00056.copyb5 +++| ZR X2,VNS1 IF NO BLOCK TERMINATOR OR EXTRA WORD 02306 M01S00057.copyb5 +++| SX1 X1+1 02307 M01S00058.copyb5 +++| VNS1 SX2 60
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02308 M01S00087.v23l617 +++| IX1 X2*X1 NUMBER OF DATA BITS IN LINE 02309 M01S00088.v23l617 +++| SA2 UBC UNUSED BIT COUNT FOR LAST WORD TRANSFERED 02310 M01S00089.v23l617 +++| IX1 X1-X2 BLOCK SIZE 02311 M01S00090.v23l617 +++| MX0 24 02312 M01S00091.v23l617 +++| BX4 X0*X4 NOISE SIZE 02313 M01S00092.v23l617 +++| LX4 24 02314 M01S00093.v23l617 +++| IX4 X1-X4 02315 M01S00094.v23l617 +++| PL X4,VNSX IF NOT NOISE BLOCK 02316 M01S00095.v23l617 +++| SA1 NZCT INCREMENT NOISE BLOCK DELETED COUNT 02317 M01S00096.v23l617 +++| SX6 B1 02318 M01S00097.v23l617 +++| IX6 X6+X1 02319 M01S00098.v23l617 +++| SA6 A1 02320 M01S00099.v23l617 +++| EQ VNSX RETURN 02321 M00S01951.copyb +++| SPACE 4,10 02322 M00S01952.copyb +++|** COMMON DECKS. 02323 M00S01953.copyb +++| 02324 M00S01954.copyb +++| 02325 M00S01955.copyb +++|*CALL COMCCDD 02326 M00S01956.copyb +++| WRIF$ EQU 1 SELECT *RE-ISSUE CURRENT WRITE* 02327 M00S01957.copyb +++|*CALL COMCCIO 02328 M00S01958.copyb +++|*CALL COMCRDW 02329 M00S01959.copyb +++|*CALL COMCSFN 02330 M00S01960.copyb +++|*CALL COMCSNM 02331 M00S01961.copyb +++|*CALL COMCSYS 02332 M00S01962.copyb +++|*CALL COMCWTC 02333 M00S01963.copyb +++|*CALL COMCWTW 02334 M00S01964.copyb +++| SPACE 4,10 02335 M00S01965.copyb +++|** COPY/COPYBF/COPYEI BUFFERS. 02336 M00S01966.copyb +++| 02337 M00S01967.copyb +++| 02338 M00S01968.copyb +++| USE BUFFERS 02339 M00S01969.copyb +++| LBUF BSS 0 ALTERNATE OUTPUT FILE CIO BUFFER 02340 M00S01970.copyb +++| 02341 M00S01971.copyb +++|* SINGLE BUFFER COPY ALLOCATIONS. 02342 M00S01972.copyb +++| 02343 M00S01973.copyb +++| SBUF EQU LBUF+LBUFL SINGLE CIO BUFFER 02344 M00S01974.copyb +++| SRFL EQU SBUF+SBUFL FL FOR SINGLE BUFFER COPY 02345 M00S01975.copyb +++| 02346 M00S01976.copyb +++|* DOUBLE BUFFER COPY ALLOCATIONS. 02347 M00S01977.copyb +++| 02348 M00S01978.copyb +++| BUF1 EQU LBUF+LBUFL WORKING STORAGE BUFFER 02349 M00S01979.copyb +++| IBUF1 EQU BUF1+BUFL INPUT FILE CIO BUFFER 02350 M00S01980.copyb +++| OBUF1 EQU IBUF1+FBUFL OUTPUT FILE CIO BUFFER 02351 M00S01981.copyb +++| RFL1 EQU OBUF1+FBUFL FL FOR DOUBLE BUFFER COPY 02352 M00S01982.copyb +++| ERRNG TCOPY-BUF1 IF LBUF OVERFLOWS INTO TCOPY 02353 M00S01983.copyb +++| TITLE COPYBR/COPYX. 02354 M00S01984.copyb +++| COPYBR SPACE 4,10 02355 M00S01985.copyb +++|** COPYBR - COPY SPECIFIED NUMBER OF RECORDS FROM ONE FILE TO 02356 M00S01986.copyb +++|* ANOTHER. 02357 M00S01987.copyb +++|* 02358 M00S01988.copyb +++|* EXIT TO *END*, IF COPY COMPLETE. 02359 M00S01989.copyb +++|* TO *END5*, IF EOI ENCOUNTERED. 02360 M00S01990.copyb +++| 02361 M00S01991.copyb +++| 02362 M00S01992.copyb +++| COPYBR SX6 B0 INDICATE *COPYBR* CALL 02363 M00S01993.copyb +++| RJ PRS PRESET PROGRAM 02364 M00S01994.copyb +++| 02365 M00S01995.copyb +++| CBR1 READ I BEGIN READ 02366 M00S01996.copyb +++| RECALL O 02367 M00S01997.copyb +++| WRITE O,* PRESET WRITE FUNCTION 02368 M00S01998.copyb +++| READW I,BUF,RBFL 02369 M00S01999.copyb +++| RJ CPR COPY RECORD 02370 M00S02000.copyb +++| NG X0,END5 IF EOI ENCOUNTERED 02371 M00S02001.copyb +++| SA2 CT DECREMENT COUNT 02372 M00S02002.copyb +++| SX6 X2-1 02373 M00S02003.copyb +++| SA6 A2 02374 M00S02004.copyb +++| NZ X6,CBR1 LOOP FOR ALL RECORDS 02375 M00S02005.copyb +++| EQ END TERMINATE PROGRAM 02376 M00S02006.copyb +++| COPYX SPACE 4,10 02377 M00S02007.copyb +++|** COPYX - COPY LOGICAL RECORDS FROM ONE FILE TO ANOTHER UNTIL 02378 M00S02008.copyb +++|* SPECIFIED TERMINATION CONDITION IS MET. 02379 M00S02009.copyb +++|* 02380 M00S02010.copyb +++|* EXIT TO *END*, IF COPY COMPLETE. 02381 M00S02011.copyb +++|* TO *END5*, IF EOI ENCOUNTERED. 02382 M00S02012.copyb +++| 02383 M00S02013.copyb +++| 02384 M00S02014.copyb +++| COPYX SX6 -1 INDICATE *COPYX* CALL 02385 M00S02015.copyb +++| RJ PRS PRESET PROGRAM 02386 M00S02016.copyb +++| 02387 M00S02017.copyb +++| CPX1 READ I BEGIN READ 02388 M00S02018.copyb +++| RECALL O 02389 M00S02019.copyb +++| WRITE O,* PRESET WRITE FUNCTION 02390 M00S02020.copyb +++| READW I,BUF,RBFL 02391 M00S02021.copyb +++| PL X1,CPX2 IF NOT EOF OR EOI 02392 M00S02022.copyb +++| RJ CPR PROCESS EOF/EOI 02393 M00S02023.copyb +++| CPX1.1 NG X0,END5 IF EOI ENCOUNTERED 02394 M00S02024.copyb +++| SX6 ENDD SET *EOF ENCOUNTERED.* ENDING MESSAGE 02395 M00S02025.copyb +++| SA6 ENDA 02396 M00S02026.copyb +++| EQ END ISSUE DAYFILE MESSAGE AND ENDRUN 02397 M00S02027.copyb +++| 02398 M00S02028.copyb +++| CPX2 BX5 X1 SAVE EOR STATUS 02399 M00S02029.copyb +++| SA2 TM CHECK TERMINATION CONDITION 02400 M00S02030.copyb +++| 02401 M00S02031.copyb +++|* PROCESS ZERO RECORD. 02402 M00S02032.copyb +++| 02403 M00S02033.copyb +++| NZ X2,CPX3 IF NOT ZERO RECORD REQUEST 02404 M00S02034.copyb +++| SX2 X1-BUF 02405 M00S02035.copyb +++| ZR X2,CPX4 IF ZERO RECORD 02406 M00S02036.copyb +++| EQ CPX5 COPY RECORD 02407 M00S02037.copyb +++| 02408 M00S02038.copyb +++|* PROCESS RECORD NAME. 02409 M00S02039.copyb +++| 02410 M00S02040.copyb +++| CPX3 NG X2,CPX5 IF NOT RECORD NAME 02411 M00S02041.copyb +++| SX2 BUF 02412 M00S02042.copyb +++| SX1 B6 LWA+1 OF DATA READ 02413 M00S02043.copyb +++| RJ SRT SET RECORD TYPE 02414 M00S02044.copyb +++| SA1 RN CHECK RECORD NAME 02415 M00S02045.copyb +++| BX2 X7-X1 02416 M00S02046.copyb +++| SA3 A1+B1 02417 M00S02047.copyb +++| NZ X2,CPX5 IF NO MATCH 02418 M00S02048.copyb +++| NG X3,CPX4 IF NO TYPE REQUESTED 02419 M00S02049.copyb +++| SX2 X6 CHECK TYPE 02420 M00S02050.copyb +++| BX7 X2-X3 02421 M00S02051.copyb +++| NZ X7,CPX5 IF NO MATCH 02422 M00S02052.copyb +++| CPX4 SX6 B1+ SET TERMINATION 02423 M00S02053.copyb +++| SA6 CT 02424 M00S02054.copyb +++| 02425 M00S02055.copyb +++|* COPY RECORD. 02426 M00S02056.copyb +++| 02427 M00S02057.copyb +++| CPX5 BX1 X5 RESTORE EOR STATUS 02428 M00S02058.copyb +++| RJ CPR COPY RECORD 02429 M00S02059.copyb +++| NZ X0,CPX1.1 IF EOF OR EOI ENCOUNTERED 02430 M00S02060.copyb +++| SA1 CT DECREMENT COUNT 02431 M00S02061.copyb +++| SX6 X1-1 02432 M00S02062.copyb +++| SA6 A1+ 02433 M00S02063.copyb +++| NZ X6,CPX1 LOOP FOR ALL RECORDS 02434 M00S02064.copyb +++| SA1 BK1 02435 M00S02065.copyb +++| ZR X1,CPX6 IF NO BACKSPACE FOR FILE 1 02436 M00S02066.copyb +++| BKSP I 02437 M00S02067.copyb +++| CPX6 SA2 SK 02438 M00S02068.copyb +++| SA1 BK2 02439 M00S02069.copyb +++| NZ X2,END IF SKIPPING RECORDS 02440 M00S02070.copyb +++| ZR X1,END IF NO BACKSPACE FOR FILE 2 02441 M00S02071.copyb +++| BKSP O 02442 M00S02072.copyb +++| EQ END 02443 M00S02073.copyb +++| 02444 M00S02074.copyb +++| 02445 M00S02075.copyb +++| TM CON 1S59 COPYX TERMINATION 02446 M00S02076.copyb +++| RN CON 0 RECORD NAME 02447 M00S02077.copyb +++| CON 1S59 RECORD TYPE 02448 M00S02078.copyb +++| BK1 CON 0 FILE 1 BACKSPACE 02449 M00S02079.copyb +++| BK2 CON 0 FILE 2 BACKSPACE 02450 M00S02080.copyb +++| TITLE RECORD COPY ROUTINES. 02451 M00S02081.copyb +++| CPR SPACE 4,15 02452 M00S02082.copyb +++|** CPR - COPY RECORD. 02453 M00S02083.copyb +++|* 02454 M00S02084.copyb +++|* ENTRY (X1) = FIRST BLOCK READ STATUS. 02455 M00S02085.copyb +++|* (B6) = LWA+1 DATA TRANSFERRED TO WORKING BUFFER. 02456 M00S02086.copyb +++|* 02457 M00S02087.copyb +++|* EXIT (X0) .LT. 0, IF EOI. 02458 M00S02088.copyb +++|* (X0) = 0, IF EOR. 02459 M00S02089.copyb +++|* (X0) .GT. 0, IF EOF. 02460 M00S02090.copyb +++|* 02461 M00S02091.copyb +++|* USES A - 1, 2. 02462 M00S02092.copyb +++|* X - 0, 1, 2, 5. 02463 M00S02093.copyb +++|* 02464 M00S02094.copyb +++|* CALLS CIO=, DRN, MSG=, RDW=, WTW=. 02465 M00S02095.copyb +++| 02466 M00S02096.copyb +++| 02467 M00S02097.copyb +++| CPR4 MESSAGE PEFB,1 DISPLAY EOF MESSAGE
| Line S00111 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02468 M01S00111.ns2701 +++| SA1 FCPY 02469 M01S00112.ns2701 +++| SA2 WCPY 02470 M01S00113.ns2701 +++| SX6 X1+B1 INCREMENT FILE COPY COUNT 02471 M01S00114.ns2701 +++| IX7 X2+X5 02472 M01S00115.ns2701 +++| SA6 A1 02473 M01S00116.ns2701 +++| SA7 A2 INCREMENT WORD COPY COUNT 02474 M00S02098.copyb +++| SA1 RC ADVANCE RECORD COUNT 02475 M00S02099.copyb +++| SX0 B1+ SET EOF STATUS 02476 M00S02100.copyb +++| SA2 SK 02477 M00S02101.copyb +++| IX6 X1+X0 02478 M00S02102.copyb +++| SA6 A1 02479 M00S02103.copyb +++| NZ X2,CPRX IF SKIP SET 02480 M00S02104.copyb +++| WRITEF O GENERATE EOF 02481 M00S02105.copyb +++| 02482 M00S02106.copyb +++| CPR SUBR ENTRY/EXIT 02483 M00S02107.copyb +++| SX0 X1+B1
| Line S02108 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02484 M01S02108.ns2701 ---| BX5 X1
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02485 M01S00117.ns2701 +++| SA0 X1 02486 M01S00118.ns2701 +++| SX5 0 CLEAR WORD COUNT
| Line S02109 Modification History | |
|---|---|
M01 (Removed by) | copyb4 |
Seq # *Modification Id* Act ----------------------------+ 02487 M01S02109.copyb4 ---| NG X0,CPRX IF EOI ENCOUNTERED 02488 M01S02110.copyb4 ---| ZR X0,CPR4 IF EOF ENCOUNTERED
| Line S02111 Modification History | |
|---|---|
M01 (Removed by) | copyb4a |
Seq # *Modification Id* Act ----------------------------+ 02489 M01S02111.copyb4a ---| SX2 BUF
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | copyb4a |
Seq # *Modification Id* Act ----------------------------+ 02490 M01S00001.copyb4a +++| PL X1,CPR0 IF NOT EOF OR EOI 02491 M01S00002.copyb4a +++| SX2 B6-BUF 02492 M01S00003.copyb4a +++| NZ X2,CPR1 IF DATA IN BUFFER 02493 M01S00004.copyb4a +++| NG X0,CPRX IF EOI ENCOUNTERED 02494 M01S00005.copyb4a +++| EQ CPR4 EOF ENCOUNTERED 02495 M01S00006.copyb4a +++| 02496 M01S00007.copyb4a +++| CPR0 SX2 BUF 02497 M00S02112.copyb +++| RJ DRN DISPLAY RECORD NAME 02498 M00S02113.copyb +++| CPR1 SA2 SK
| Line S02114 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02499 M01S02114.ns2701 ---| NZ X2,CPR2 IF SKIP SET 02500 M00S02115.copyb +++| SB7 B6-BUF
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02501 M01S00119.ns2701 +++| SX1 B7 02502 M01S00120.ns2701 +++| IX5 X5+X1 SHOW WORDS COPIED 02503 M01S00121.ns2701 +++| NZ X2,CPR2 IF SKIP SET 02504 M00S02116.copyb +++| WRITEW O,BUF,B7
| Line S02117 Modification History | |
|---|---|
M01 (Removed by) | copyb4 |
M02 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02505 M02S02117.ns2701 ---| CPR2 SX0 B0+ SET EOR STATUS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | copyb4 |
M02 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02506 M02S00001.ns2701 ---| CPR2 NG X0,CPR3 IF EOI ENCOUNTERED 02507 M02S00002.ns2701 ---| ZR X0,CPR4 IF EOF ENCOUNTERED 02508 M02S00003.ns2701 ---| SX0 B0+ SET EOR STATUS
| Line S02118 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02509 M01S02118.ns2701 ---| NZ X5,CPR3 IF EOR
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02510 M01S00122.ns2701 +++| CPR2 SX0 B0 CLEAR EOR STATUS 02511 M01S00123.ns2701 +++| SX2 A0 02512 M01S00124.ns2701 +++| NZ X2,CPR3 IF EOR 02513 M00S02119.copyb +++| READW I,BUF,RBFL
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | copyb4 |
Seq # *Modification Id* Act ----------------------------+ 02514 M01S00004.copyb4 +++| SX0 X1+B1
| Line S02120 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02515 M01S02120.ns2701 ---| BX5 X1
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02516 M01S00125.ns2701 +++| SA0 X1 02517 M00S02121.copyb +++| PL X1,CPR1 IF NOT EOF OR EOI
| Line S02122 Modification History | |
|---|---|
M01 (Removed by) | copyb4 |
Seq # *Modification Id* Act ----------------------------+ 02518 M01S02122.copyb4 ---| SX0 X1+B1 CHECK FOR EOI
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | copyb4 |
Seq # *Modification Id* Act ----------------------------+ 02519 M01S00005.copyb4 +++| SX2 B6-BUF 02520 M01S00006.copyb4 +++| NZ X2,CPR1 IF DATA IN BUFFER 02521 M00S02123.copyb +++| PL X0,CPR4 IF EOF
| Line S02124 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02522 M01S02124.ns2701 ---| CPR3 SA2 SK 02523 M01S02125.ns2701 ---| NZ X2,CPRX IF SKIP SET
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02524 M01S00126.ns2701 +++| CPR3 SA1 RCPY 02525 M01S00127.ns2701 +++| SA2 WCPY 02526 M01S00128.ns2701 +++| SA3 SK 02527 M01S00129.ns2701 +++| SX6 X1+B1 02528 M01S00130.ns2701 +++| IX7 X2+X5 ADD WORDS COPIED TO COUNT 02529 M01S00131.ns2701 +++| SA6 A1 02530 M01S00132.ns2701 +++| SA7 A2 02531 M01S00133.ns2701 +++| NZ X3,CPRX IF SKIP SET 02532 M00S02126.copyb +++| WRITER O END RECORD 02533 M00S02127.copyb +++| EQ CPRX RETURN WITH EOR OR EOI STATUS 02534 M00S02128.copyb +++| SPACE 4,10 02535 M00S02129.copyb +++|** COMMON DECKS. 02536 M00S02130.copyb +++| 02537 M00S02131.copyb +++| 02538 M00S02132.copyb +++|*CALL COMCSRT 02539 M00S02133.copyb +++| SPACE 4,10 02540 M00S02134.copyb +++|** COPYBR/COPYX BUFFERS. 02541 M00S02135.copyb +++| 02542 M00S02136.copyb +++| 02543 M00S02137.copyb +++| BUF BSS 0 WORKING STORAGE BUFFER 02544 M00S02138.copyb +++| IBUF EQU BUF+RBFL INPUT FILE CIO BUFFER 02545 M00S02139.copyb +++| OBUF EQU IBUF+FBUFL OUTPUT FILE CIO BUFFER 02546 M00S02140.copyb +++| RFL= EQU OBUF+FBUFL FIELD LENGTH FOR COPYBR AND COPYX 02547 M00S02141.copyb +++| TITLE TCOPY. 02548 M00S02142.copyb +++| TCOPY SPACE 4,10
| Line S02143 Modification History | |
|---|---|
M01 (Removed by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 02549 M01S02143.copyb5 ---|** TCOPY - COPY E, B, X, OR SI-CODED TAPE VIA S FORMAT TO
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 02550 M01S00059.copyb5 +++|** TCOPY - COPY E, B, X, SI-CODED OR I TAPE VIA S/L FORMAT TO
| Line S02144 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02551 M01S02144.274l797 ---|* MASS STORAGE, I, OR SI-BINARY FILE, OR GENERATE E OR B TAPE
| Line S02145 Modification History | |
|---|---|
M01 (Removed by) | copyb5 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02552 M02S02145.274l797 ---|* VIA S FORMAT FROM MASS STORAGE, I, OR SI-BINARY FILE.
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02553 M02S00060.274l797 ---|* VIA S/L FORMAT FROM MASS STORAGE, I, OR SI-BINARY FILE.
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02554 M01S00091.274l797 +++|* MASS STORAGE, I, LI, OR SI-BINARY FILE, OR GENERATE E OR B 02555 M01S00092.274l797 +++|* TAPE VIA S/L FORMAT FROM MASS STORAGE, I, LI, OR SI-BINARY 02556 M01S00093.274l797 +++|* FILE. 02557 M00S02146.copyb +++|*
| Line S02147 Modification History | |
|---|---|
M01 (Removed by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 02558 M01S02147.copyb5 ---|* EXIT TO *CPY*, IF X OR SI-C TO MS/I/SI-B COPY.
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02559 M02S00061.274l797 ---|* EXIT TO *CPY*, IF X, SI-C, OR I TO MS/I/SI-B COPY.
| Line S02148 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02560 M01S02148.274l797 ---|* TO *CEB*, IF E OR B TO MS/I/SI-B COPY. 02561 M01S02149.274l797 ---|* TO *GEB*, IF MS/I/SI-B TO E OR B COPY.
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02562 M01S00094.274l797 +++|* EXIT TO *CPY*, IF X, SI-C, OR I TO MS/I/LI/SI-B COPY. 02563 M01S00095.274l797 +++|* TO *CEB*, IF E OR B TO MS/I/LI/SI-B COPY. 02564 M01S00096.274l797 +++|* TO *GEB*, IF MS/I/LI/SI-B TO E OR B COPY. 02565 M00S02150.copyb +++| 02566 M00S02151.copyb +++| 02567 M00S02152.copyb +++| TCOPY SX6 B0 INDICATE *TCOPY* CALL 02568 M00S02153.copyb +++| RJ CTP COPY/TCOPY PRESET PROGRAM 02569 M00S02154.copyb +++| SA1 I+TCF 02570 M00S02155.copyb +++| SB3 -B1 02571 M00S02156.copyb +++| SB2 X1
| Line S02157 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02572 M01S02157.274l797 ---| GE B2,B1,CEB IF E OR B TO MS/I/SI-B COPY 02573 M01S02158.274l797 ---| ZR B2,GEB IF MS/I/SI-B TO E OR B COPY 02574 M01S02159.274l797 ---| EQ B2,B3,CPY IF X TO MS/I/SI-B COPY
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02575 M01S00097.274l797 +++| GE B2,B1,CEB IF E OR B TO MS/I/LI/SI-B COPY 02576 M01S00098.274l797 +++| ZR B2,GEB IF MS/I/LI/SI-B TO E OR B COPY 02577 M01S00099.274l797 +++| EQ B2,B3,CPY IF X TO MS/I/LI/SI-B COPY 02578 M00S02160.copyb +++| READCW I,17B INITIATE CONTROL WORD READ
| Line S02161 Modification History | |
|---|---|
M01 (Removed by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 02579 M01S02161.copyb5 ---| EQ CPY SI-CODED TO MS/I/SI-B COPY
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02580 M02S00062.274l797 ---| EQ CPY SI-C OR I TO MS/I/SI-B COPY
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02581 M01S00100.274l797 +++| EQ CPY SI-C OR I TO MS/I/LI/SI-B COPY 02582 M00S02162.copyb +++| CEB SPACE 4,10
| Line S02163 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02583 M01S02163.274l797 ---|** CEB - COPY E OR B TAPE TO MASS STORAGE, I OR SI-BINARY TAPE.
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02584 M01S00101.274l797 +++|** CEB - COPY E OR B TAPE TO MASS STORAGE, I, LI OR SI-B TAPE. 02585 M00S02164.copyb +++|* 02586 M00S02165.copyb +++|* EXIT TO *END*, IF COPY COMPLETE. 02587 M00S02166.copyb +++|* TO *END5*, IF EOI ENCOUNTERED. 02588 M00S02167.copyb +++|* 02589 M00S02168.copyb +++|* USES A - 0, 1, 2, 3, 4, 6. 02590 M00S02169.copyb +++|* B - 2, 6, 7. 02591 M00S02170.copyb +++|* X - 0, 1, 2, 3, 4, 5, 6. 02592 M00S02171.copyb +++|* 02593 M00S02172.copyb +++|* CALLS CIO=, CWR, DRN, PEF, WTC=, WTH=. 02594 M00S02173.copyb +++| 02595 M00S02174.copyb +++| 02596 M00S02175.copyb +++| CEB BSS 0 02597 M00S02176.copyb +++| SA1 I+PRU GET E OR B TAPE PRU SIZE 02598 M00S02177.copyb +++| SA0 X1+ 02599 M00S02178.copyb +++| CEB1 BX5 X5-X5 INDICATE NO DATA TRANSFERRED 02600 M00S02179.copyb +++| READCW I,17B INITIATE CONTROL WORD READ 02601 M00S02180.copyb +++| RECALL O 02602 M00S02181.copyb +++| WRITE O,* PRESET STANDARD WRITE FUNCTION 02603 M00S02182.copyb +++| CEB2 CWRW I,(FWWB),A0 02604 M00S02183.copyb +++| NG X1,CEB5 IF EOF/EOI ENCOUNTERED 02605 M00S02184.copyb +++| NZ X5,CEB3 IF PREVIOUS READ STATUS NOT EOF
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02606 M01S00100.v23l617 +++| RJ VNS VERIFY NOISE SIZE BLOCK 02607 M01S00101.v23l617 +++| NG X4,CEB2 IF NOISE BLOCK 02608 M00S02185.copyb +++| SA2 FWWB FWA WORKING BUFFER 02609 M00S02186.copyb +++| RJ DRN DISPLAY FILE NAME 02610 M00S02187.copyb +++| CEB3 SA1 I+TCF 02611 M00S02188.copyb +++| SA2 SK 02612 M00S02189.copyb +++| SX5 B1 INDICATE DATA TRANSFERRED 02613 M00S02190.copyb +++| SB2 X1 02614 M00S02191.copyb +++| NZ X2,CEB2 IF SKIP SET 02615 M00S02192.copyb +++| SA4 FWWB FWA WORKING BUFFER
| Line S02193 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02616 M01S02193.274l797 ---| GT B2,B1,CEB4 IF B TO MS/I/SI-B COPY
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02617 M01S00102.274l797 +++| GT B2,B1,CEB4 IF B TO MS/I/LI/SI-B COPY 02618 M00S02194.copyb +++| SB7 X4 02619 M00S02195.copyb +++| SB7 B6-B7 LENGTH OF LINE 02620 M00S02196.copyb +++| SA1 B6-B1 02621 M00S02197.copyb +++| RJ SFN BLANK FILL LAST WORD 02622 M00S02198.copyb +++| SA6 A1
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02623 M01S00134.ns2701 +++| RJ CWH COUNT WORDS 02624 M00S02199.copyb +++| WRITEH O,X4,B7 02625 M00S02200.copyb +++| EQ CEB2 CONTINUE COPY 02626 M00S02201.copyb +++|
| Line S02202 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02627 M01S02202.274l797 ---| CEB4 BX6 X6-X6 GUARENTEE END OF LINE
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02628 M01S00103.274l797 +++| CEB4 BX6 X6-X6 GUARANTEE END OF LINE 02629 M00S02203.copyb +++| SA6 B6+
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02630 M01S00135.ns2701 +++| RJ CWC COUNT WORDS 02631 M00S02204.copyb +++| WRITEC O,X4 02632 M00S02205.copyb +++| EQ CEB2 CONTINUE COPY 02633 M00S02206.copyb +++| 02634 M00S02207.copyb +++| CEB5 SX0 X1+B1 SET TERMINATION CONDITION 02635 M00S02208.copyb +++| RJ PEF PROCESS END OF FILE
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02636 M01S00136.ns2701 +++| SA2 RCPY INCREMENT RECORD COUNT 02637 M01S00137.ns2701 +++| SX6 X2+B1 02638 M01S00138.ns2701 +++| SA6 A2 02639 M00S02209.copyb +++| SA1 CT 02640 M00S02210.copyb +++| NG X0,END5 IF EOI ENCOUNTERED 02641 M00S02211.copyb +++| ZR X1,END IF COPY COMPLETE 02642 M00S02212.copyb +++| EQ CEB1 REINITIATE CONTROL WORD READ 02643 M00S02213.copyb +++| GEB SPACE 4,15
| Line S02214 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02644 M01S02214.274l797 ---|** GEB - GENERATE E OR B TAPE FROM MASS STORAGE, I OR SI-BINARY
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02645 M01S00104.274l797 +++|** GEB - GENERATE E OR B TAPE FROM MASS STORAGE, I, LI OR SI-B 02646 M00S02215.copyb +++|* TAPE. 02647 M00S02216.copyb +++|* 02648 M00S02217.copyb +++|* EXIT TO *END*, IF COPY COMPLETE. 02649 M00S02218.copyb +++|* TO *END5*, IF EOI ENCOUNTERED. 02650 M00S02219.copyb +++|* 02651 M00S02220.copyb +++|* USES A - 0, 1, 2, 3, 4, 6. 02652 M00S02221.copyb +++|* B - 2, 3, 5, 6, 7. 02653 M00S02222.copyb +++|* X - 0, 1, 2, 3, 4, 5, 6. 02654 M00S02223.copyb +++|* 02655 M00S02224.copyb +++|* CALLS BFL, CIO=, CUB, CWW, DRN, PEF, RDC=. 02656 M00S02225.copyb +++| 02657 M00S02226.copyb +++| 02658 M00S02227.copyb +++| GEB BSS 0 02659 M00S02228.copyb +++| WRITECW O,* PRESET CONTROL WORD WRITE 02660 M00S02229.copyb +++| SA1 O+PRU GET E OR B TAPE PRU SIZE 02661 M00S02230.copyb +++| BX5 X5-X5 INDICATE NO DATA TRANSFERRED 02662 M00S02231.copyb +++| SA0 X1 02663 M00S02232.copyb +++| GEB1 SX0 B1+ INDICATE READ REINITIATED 02664 M00S02233.copyb +++| READ I INITIATE STANDARD READ 02665 M00S02234.copyb +++| GEB2 SA4 FWWB FWA WORKING BUFFER 02666 M00S02235.copyb +++| READC I,X4,A0 02667 M00S02236.copyb +++| NG X1,GEB7 IF EOF/EOI ENCOUNTERED 02668 M00S02237.copyb +++| BX5 X4 SAVE LAST DATA WORD 02669 M00S02238.copyb +++| SB5 X1 SAVE CURRENT READ STATUS 02670 M00S02239.copyb +++| ZR X0,GEB3 IF PREVIOUS READ STATUS NOT EOR 02671 M00S02240.copyb +++| SX6 B0+ 02672 M00S02241.copyb +++| SA2 FWWB FWA WORKING BUFFER 02673 M00S02242.copyb +++| SA6 GEBA INDICATE NOT CONTINUATION LINE 02674 M00S02243.copyb +++| RJ DRN DISPLAY RECORD NAME 02675 M00S02244.copyb +++| GEB3 SA3 FWWB FWA WORKING BUFFER 02676 M00S02245.copyb +++| SX0 B5 RESTORE CURRENT READ STATUS 02677 M00S02246.copyb +++| BX4 X5 02678 M00S02247.copyb +++| IX6 X0-X3 02679 M00S02248.copyb +++| SX5 B1 INDICATE DATA TRANSFERRED 02680 M00S02249.copyb +++| ZR X0,GEB4 IF TRANSFER COMPLETE
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02681 M01S00139.ns2701 +++| SA1 RCPY INCREMENT RECORD COUNT 02682 M01S00140.ns2701 +++| SX6 X1+B1 02683 M01S00141.ns2701 +++| SA6 A1 02684 M00S02250.copyb +++| ZR X6,GEB1 IF EOR ONLY 02685 M00S02251.copyb +++| SA4 B6-1 02686 M00S02252.copyb +++| GEB4 BX6 X4 RESTORE CONTENTS OF LAST DATA WORD 02687 M00S02253.copyb +++| SA2 O+TCF 02688 M00S02254.copyb +++| SA6 B6-B1 02689 M00S02255.copyb +++| SB2 X2 02690 M00S02256.copyb +++| MX4 -12 02691 M00S02257.copyb +++| SA1 GEBA CHECK PREVIOUS LINE EOL STATUS 02692 M00S02258.copyb +++| BX6 -X4*X6 SET CURRENT LINE EOL INDICATOR 02693 M00S02259.copyb +++| SA3 X3 02694 M00S02260.copyb +++| SA6 A1 02695 M00S02261.copyb +++| SB7 A0 02696 M00S02262.copyb +++| SA4 FUBC GET FULL BLOCK UNUSED BIT COUNT 02697 M00S02263.copyb +++| ZR X1,GEB4.1 IF NOT CONTINUATION LINE 02698 M00S02264.copyb +++| SA2 TLLI CHECK FOR *PO=T* OPTION 02699 M00S02265.copyb +++| NZ X2,GEB6.1 IF DISCARD CONTINUATION LINE 02700 M00S02266.copyb +++| GT B2,B1,GEB5 IF GENERATING B TAPE 02701 M00S02267.copyb +++| ZR X3,GEB6.1 IF EOL ONLY (E TAPE) 02702 M00S02268.copyb +++| GEB4.1 GT B2,B1,GEB5 IF GENERATING B TAPE 02703 M00S02269.copyb +++| RJ BFL BLANK FILL LINE FOR E TAPE 02704 M00S02270.copyb +++| BX6 X4 02705 M00S02271.copyb +++| EQ GEB6 WRITE ONE LINE PER BLOCK 02706 M00S02272.copyb +++| 02707 M00S02273.copyb +++| GEB5 RJ CUB CALCULATE B TAPE UNUSED BIT COUNT 02708 M00S02274.copyb +++| GEB6 SA3 FWWB FWA WORKING BUFFER 02709 M00S02275.copyb +++| SA6 UBC SET UNUSED BIT COUNT FOR WRITE 02710 M00S02276.copyb +++| SB3 X3 02711 M00S02277.copyb +++| SB7 B6-B3 NUMBER OF WORDS IN BUFFER 02712 M00S02278.copyb +++| SB6 B3+
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02713 M01S00142.ns2701 +++| SA1 WCPY ADD TO WORD COUNT 02714 M01S00143.ns2701 +++| SX3 B7 02715 M01S00144.ns2701 +++| IX6 X1+X3 02716 M01S00145.ns2701 +++| SA6 A1 02717 M00S02279.copyb +++| CWWW O,B6,B7 02718 M00S02280.copyb +++| GEB6.1 ZR X0,GEB2 IF NOT EOR 02719 M00S02281.copyb +++| EQ GEB1 REINITIATE READ 02720 M00S02282.copyb +++| 02721 M00S02283.copyb +++| GEB7 SX0 X1+B1 PROCESS END OF FILE 02722 M00S02284.copyb +++| RJ PEF 02723 M00S02285.copyb +++| SA1 CT 02724 M00S02286.copyb +++| NG X0,END5 IF EOI ENCOUNTERED 02725 M00S02287.copyb +++| ZR X1,END IF COPY COMPLETE 02726 M00S02288.copyb +++| BX5 X5-X5 INDICATE NO DATA TRANSFERRED 02727 M00S02289.copyb +++| EQ GEB1 CONTINUE COPY 02728 M00S02290.copyb +++| 02729 M00S02291.copyb +++| 02730 M00S02292.copyb +++| GEBA CON 0 PREVIOUS LINE EOL STATUS
| Line S02293 Modification History | |
|---|---|
M01 (Removed by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 02731 M01S02293.copyb5 ---| TITLE E, B, X, SI-C CONVERSION ROUTINES.
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 02732 M01S00063.copyb5 +++| TITLE E, B, X, SI-C, I CONVERSION ROUTINES. 02733 M00S02294.copyb +++| CCW SPACE 4,10 02734 M00S02295.copyb +++|** CCW - COUNT CHARACTERS IN WORD. 02735 M00S02296.copyb +++|* 02736 M00S02297.copyb +++|* ENTRY (X1) = DATA WORD, LEFT JUSTIFIED, ZERO FILLED. 02737 M00S02298.copyb +++|* 02738 M00S02299.copyb +++|* EXIT (B5) = NUMBER OF CHARACTERS IN WORD. 02739 M00S02300.copyb +++|* 02740 M00S02301.copyb +++|* USES B - 5. 02741 M00S02302.copyb +++|* X - 2, 6. 02742 M00S02303.copyb +++| 02743 M00S02304.copyb +++| 02744 M00S02305.copyb +++| CCW SUBR ENTRY/EXIT 02745 M00S02306.copyb +++| SB5 B0 02746 M00S02307.copyb +++| ZR X1,CCWX IF ZERO WORD 02747 M00S02308.copyb +++| MX6 -54 02748 M00S02309.copyb +++| CCW1 BX2 -X6*X1 02749 M00S02310.copyb +++| SB5 B5+1 INCREMENT CHARACTER COUNT 02750 M00S02311.copyb +++| AX6 6 02751 M00S02312.copyb +++| NZ X2,CCW1 IF MORE CHARACTERS IN WORD 02752 M00S02313.copyb +++| EQ CCWX RETURN 02753 M00S02314.copyb +++| CEL SPACE 4,15 02754 M00S02315.copyb +++|** CEL - CONVERT SI-CODED END OF LINES. 02755 M00S02316.copyb +++|* 02756 M00S02317.copyb +++|* FOR 7-TRACK *SI*-CODED TAPE, END-OF-LINES REPRESENTED BY 02757 M00S02318.copyb +++|* 16...1632B EXTERNAL BCD ARE CONVERTED INTO 63...6362B 02758 M00S02319.copyb +++|* 64-CHARACTER SET DISPLAY CODE (WITH 6362B IN LOWER BYTE OF 02759 M00S02320.copyb +++|* CM WORD) OR 00...0062B 63-CHARACTER SET DISPLAY CODE 02760 M00S02321.copyb +++|* (WITH 0062B IN LOWER BYTE OF CM WORD). 02761 M00S02322.copyb +++|* THESE REPRESENTATIONS ARE CONVERTED INTO BINARY ZERO 02762 M00S02323.copyb +++|* END-OF-LINES IN THE WORKING BUFFER. 02763 M00S02324.copyb +++|* 02764 M00S02325.copyb +++|* ENTRY (FWWB) = FWA WORKING BUFFER. 02765 M00S02326.copyb +++|* (LWDB) = LWA+1 DATA IN WORKING BUFFER. 02766 M00S02327.copyb +++|* 02767 M00S02328.copyb +++|* USES A - 1, 2, 7. 02768 M00S02329.copyb +++|* B - 2, 6. 02769 M00S02330.copyb +++|* X - 1, 2, 3, 4, 6, 7. 02770 M00S02331.copyb +++| 02771 M00S02332.copyb +++| 02772 M00S02333.copyb +++| CEL SUBR ENTRY/EXIT 02773 M00S02334.copyb +++| SA1 FWWB FWA WORKING BUFFER 02774 M00S02335.copyb +++| SA2 I+TRK GET TRACK BITS
| Line S02336 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02775 M01S02336.274l797 ---| SB2 X1+ 02776 M01S02337.274l797 ---| NG X2,CELX IF 9-TRACK SI-CODED TAPE
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02777 M01S00105.274l797 +++| SB2 X1 02778 M01S00106.274l797 +++| LX2 59-58 02779 M01S00107.274l797 +++| PL X2,CELX IF NOT 7-TRACK SI-CODED TAPE 02780 M00S02338.copyb +++| SA2 LWDB LWA+1 DATA IN WORKING BUFFER 02781 M00S02339.copyb +++| MX6 -12 02782 M00S02340.copyb +++| SB6 X2 02783 M00S02341.copyb +++| CEL0 SA2 CELA GET 63/64 CHARACTER SET EOL CONVERSION 02784 M00S02342.copyb +++| BX3 X2 02785 M00S02343.copyb +++| AX3 6 02786 M00S02344.copyb +++| CEL1 SB6 B6-B1 CONVERT 63...62B/00...0062B TO EOL 02787 M00S02345.copyb +++| LT B6,B2,CELX IF CONVERSION COMPLETE 02788 M00S02346.copyb +++| SA1 B6 02789 M00S02347.copyb +++| BX4 -X6*X1 02790 M00S02348.copyb +++| BX4 X4-X2 02791 M00S02349.copyb +++| NZ X4,CEL1 IF NOT 6362B/0062B IN LOWER BYTE 02792 M00S02350.copyb +++| MX6 54 CLEAR 62B CHARACTER FROM WORD 02793 M00S02351.copyb +++| BX7 X6*X1 02794 M00S02352.copyb +++| ZR X3,CEL3 IF 63-CHARACTER SET CONVERSION 02795 M00S02353.copyb +++| CEL2 LX6 6 CLEAR CONSECUTIVE 63B CHARACTERS FROM WORD 02796 M00S02354.copyb +++| BX4 -X6*X7 02797 M00S02355.copyb +++| LX3 6 02798 M00S02356.copyb +++| BX4 X4-X3 02799 M00S02357.copyb +++| NZ X4,CEL3 IF NOT 63B CHARACTER 02800 M00S02358.copyb +++| BX7 X6*X7 02801 M00S02359.copyb +++| NZ X7,CEL2 IF MORE CHARACTERS IN WORD 02802 M00S02360.copyb +++| CEL3 SA7 A1 02803 M00S02361.copyb +++| MX6 -12 02804 M00S02362.copyb +++| EQ CEL0 CONTINUE CONVERSION 02805 M00S02363.copyb +++| 02806 M00S02364.copyb +++| 02807 M00S02365.copyb +++| CELA CON 6362B 64-CHARACTER SET EOL CONVERSION 02808 M00S02366.copyb +++| CUB SPACE 4,20 02809 M00S02367.copyb +++|** CUB - CALCULATE UNUSED BIT COUNT FOR B TAPE LINE. 02810 M00S02368.copyb +++|* 02811 M00S02369.copyb +++|* LINE IS BLANK FILLED TO NOISE SIZE, IF NECESSARY. 02812 M00S02370.copyb +++|* IF LINE HAS ODD NUMBER OF CHARACTERS, AN EXTRA BLANK IS 02813 M00S02371.copyb +++|* APPENDED. UNUSED BIT COUNT OF LAST DATA WORD IS CALCULATED 02814 M00S02372.copyb +++|* FROM THE ADJUSTED LINE. 02815 M00S02373.copyb +++|* 02816 M00S02374.copyb +++|* ENTRY (B6) = LWA+1 CODED LINE. 02817 M00S02375.copyb +++|* (FWWB) = FWA CODED LINE. 02818 M00S02376.copyb +++|* 02819 M00S02377.copyb +++|* EXIT (B6) = LWA+1 READJUSTED LINE. 02820 M00S02378.copyb +++|* (X6) = UNUSED BIT COUNT FOR LAST DATA WORD IN LINE. 02821 M00S02379.copyb +++|* 02822 M00S02380.copyb +++|* USES A - 1, 2, 4, 6. 02823 M00S02381.copyb +++|* B - 2, 3, 5, 6, 7. 02824 M00S02382.copyb +++|* X - 1, 2, 3, 4, 6. 02825 M00S02383.copyb +++|* 02826 M00S02384.copyb +++|* CALLS BFL, CCW. 02827 M00S02385.copyb +++| 02828 M00S02386.copyb +++| 02829 M00S02387.copyb +++| CUB SUBR ENTRY/EXIT 02830 M00S02388.copyb +++| SA1 B6-B1 02831 M00S02389.copyb +++| SX4 1R 02832 M00S02390.copyb +++| MX6 -6 02833 M00S02391.copyb +++| NZ X1,CUB1 IF LAST DATA WORD NOT ZERO 02834 M00S02392.copyb +++| SA2 A1-B1 02835 M00S02393.copyb +++| BX3 -X6*X2 02836 M00S02394.copyb +++| NZ X3,CUB1 IF PREVIOUS WORD NOT PART OF EOL 02837 M00S02395.copyb +++| BX6 X2+X4 BLANK FILL PREVIOUS WORD 02838 M00S02396.copyb +++| SA6 A2 02839 M00S02397.copyb +++| CUB1 SA2 FWWB FWA WORKING BUFFER 02840 M00S02398.copyb +++| SA4 O+NSZ 02841 M00S02399.copyb +++| SB3 X2 02842 M00S02400.copyb +++| SB3 B6-B3 NUMBER OF DATA WORDS IN LINE 02843 M00S02401.copyb +++| SB7 X4 MINIMUM NUMBER OF WORDS FOR NOISE SIZE 02844 M00S02402.copyb +++| AX4 18 02845 M00S02403.copyb +++| GT B3,B7,CUB4 IF LINE LENGTH .GT. NOISE SIZE 02846 M00S02404.copyb +++| RJ CCW COUNT CHARACTERS IN LAST DATA WORD 02847 M00S02405.copyb +++| RJ BFL BLANK FILL LINE TO NOISE SIZE 02848 M00S02406.copyb +++| EQ B3,B7,CUB2 IF LAST WORD BORDERS ON NOISE SIZE 02849 M00S02407.copyb +++| SB5 B0 02850 M00S02408.copyb +++| CUB2 SB2 X4 02851 M00S02409.copyb +++| GE B5,B2,CUB3 IF DATA CHARACTERS EXCEED NOISE SIZE 02852 M00S02410.copyb +++| SB5 B2 02853 M00S02411.copyb +++| SA1 NZCT INCREMENT NOISE BLOCK COUNT 02854 M00S02412.copyb +++| SX6 X1+B1 02855 M00S02413.copyb +++| SA6 A1 02856 M00S02414.copyb +++| CUB3 SB5 B5+B5 CLEAR BLANK FILL BEYOND NOISE SIZE 02857 M00S02415.copyb +++| SB2 B5+B5 02858 M00S02416.copyb +++| SA1 B6-B1 02859 M00S02417.copyb +++| SB2 B2+B5 02860 M00S02418.copyb +++| MX6 1 02861 M00S02419.copyb +++| SB2 B2-B1 02862 M00S02420.copyb +++| AX6 B2 02863 M00S02421.copyb +++| BX6 X6*X1 02864 M00S02422.copyb +++| SA6 A1 02865 M00S02423.copyb +++| CUB4 SA1 B6-B1 02866 M00S02424.copyb +++| NZ X1,CUB5 IF LAST DATA WORD NOT ZERO 02867 M00S02425.copyb +++| SB6 B6-B1 02868 M00S02426.copyb +++| SA1 B6-1 02869 M00S02427.copyb +++| CUB5 RJ CCW COUNT CHARACTERS IN LAST DATA WORD 02870 M00S02428.copyb +++| SX2 B5 02871 M00S02429.copyb +++| LX2 59-0 02872 M00S02430.copyb +++| PL X2,CUB7 IF EVEN NUMBER OF CHARACTERS 02873 M00S02431.copyb +++| SX4 1R APPEND BLANK CHARACTER 02874 M00S02432.copyb +++| SB2 B5+1 02875 M00S02433.copyb +++| CUB6 LX4 -6 02876 M00S02434.copyb +++| SB2 B2-B1 02877 M00S02435.copyb +++| NZ B2,CUB6 IF BLANK NOT IN POSITION 02878 M00S02436.copyb +++| BX6 X1+X4 02879 M00S02437.copyb +++| SA6 A1+ 02880 M00S02438.copyb +++| SB5 B5+B1 INCREMENT NUMBER OF CHARACTERS 02881 M00S02439.copyb +++| CUB7 SB2 10 CALCULATE UNUSED BIT COUNT FOR LAST WORD 02882 M00S02440.copyb +++| SX2 6 02883 M00S02441.copyb +++| SX6 B2-B5 02884 M00S02442.copyb +++| IX6 X2*X6 02885 M00S02443.copyb +++| EQ CUBX RETURN
| Line S00146 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 02886 M01S00146.ns2701 +++| CWC SPACE 4,10 02887 M01S00147.ns2701 +++|** CWC - COUNT WORDS - *C* FORMAT. 02888 M01S00148.ns2701 +++|* 02889 M01S00149.ns2701 +++|* ENTRY (X4) = BUFFER ADDRESS. 02890 M01S00150.ns2701 +++|* 02891 M01S00151.ns2701 +++|* EXIT (WCPY) = (WCPY)+WORD COUNT 02892 M01S00152.ns2701 +++|* 02893 M01S00153.ns2701 +++|* USES A - 1. 02894 M01S00154.ns2701 +++|* X - 1, 2, 3, 6. 02895 M01S00155.ns2701 +++| 02896 M01S00156.ns2701 +++| 02897 M01S00157.ns2701 +++| CWC2 SA1 WCPY ADD TO TOTAL WORD COUNT 02898 M01S00158.ns2701 +++| IX6 X3+X1 02899 M01S00159.ns2701 +++| SA6 A1 02900 M01S00160.ns2701 +++| 02901 M01S00161.ns2701 +++| CWC SUBR 02902 M01S00162.ns2701 +++| SA1 X4 FWA OF BUFFER 02903 M01S00163.ns2701 +++| MX2 -12 EOL MASK 02904 M01S00164.ns2701 +++| SX3 1 CLEAR WORD COUNT 02905 M01S00165.ns2701 +++| CWC1 BX6 -X2*X1 02906 M01S00166.ns2701 +++| ZR X6,CWC2 IF EOL 02907 M01S00167.ns2701 +++| SX3 X3+B1 02908 M01S00168.ns2701 +++| SA1 A1+1 02909 M01S00169.ns2701 +++| EQ CWC1 CONTINUE COUNTING 02910 M01S00170.ns2701 +++| CWH SPACE 4,10 02911 M01S00171.ns2701 +++|** CWH - COUNT WORDS - *H* FORMAT. 02912 M01S00172.ns2701 +++|* 02913 M01S00173.ns2701 +++|* ENTRY (X4) = BUFFER ADDRESS 02914 M01S00174.ns2701 +++|* (B7) = BUFFER LENGTH 02915 M01S00175.ns2701 +++|* 02916 M01S00176.ns2701 +++|* EXIT (WCPY) = (WCPY)+WORD COUNT 02917 M01S00177.ns2701 +++|* 02918 M01S00178.ns2701 +++|* USES A - 1, 2. 02919 M01S00179.ns2701 +++|* X - 1, 2, 3, 6. 02920 M01S00180.ns2701 +++|* B - 2. 02921 M01S00181.ns2701 +++| 02922 M01S00182.ns2701 +++| 02923 M01S00183.ns2701 +++| CWH SUBR 02924 M01S00184.ns2701 +++| SB2 B7-B1 02925 M01S00185.ns2701 +++| SA1 X4+B2 LWA BUFFER 02926 M01S00186.ns2701 +++| SA2 CWHA BLANK 02927 M01S00187.ns2701 +++| CWH1 IX3 X1-X2 CHECK BLANK WORD 02928 M01S00188.ns2701 +++| NZ X3,CWH2 IF NON-BLANK 02929 M01S00189.ns2701 +++| SA1 X4+B2 02930 M01S00190.ns2701 +++| SB2 B2-B1 02931 M01S00191.ns2701 +++| NZ B2,CWH1 IF NOT FIRST WORD 02932 M01S00192.ns2701 +++| CWH2 SA1 WCPY 02933 M01S00193.ns2701 +++| SX2 B2+B1 WORDS LEFT 02934 M01S00194.ns2701 +++| IX6 X1+X2 02935 M01S00195.ns2701 +++| SA6 A1+ 02936 M01S00196.ns2701 +++| EQ CWHX RETURN 02937 M01S00197.ns2701 +++| 02938 M01S00198.ns2701 +++| 02939 M01S00199.ns2701 +++| CWHA DATA 10H
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 02940 M01S00064.copyb5 +++| IBT SPACE 4,20 02941 M01S00065.copyb5 +++|** IBT - PROCESS I TAPE BLOCK TERMINATOR. 02942 M01S00066.copyb5 +++|* 02943 M01S00067.copyb5 +++|* ENTRY (X2) = DATA WORD CONTAINING 48-BIT BLOCK TERMINATOR. 02944 M01S00068.copyb5 +++|* (BTSK) = UNUSED BIT COUNT FOR BLOCK TERMINATOR WORD. 02945 M01S00069.copyb5 +++|* (CWBC) = READCW BYTE COUNT. 02946 M01S00070.copyb5 +++|* 02947 M01S00071.copyb5 +++|* EXIT (X1) = -1, IF LEVEL 17B BLOCK TERMINATOR (EOF) 02948 M01S00072.copyb5 +++|* ENCOUNTERED IN I BLOCK TERMINATOR. 02949 M01S00073.copyb5 +++|* (LVL) = EOR LEVEL FROM BLOCK TERMINATOR. 02950 M01S00074.copyb5 +++|* (EORF) = ZERO IF NOT FULL I BLOCK. 02951 M01S00075.copyb5 +++|* 02952 M01S00076.copyb5 +++|* USES A - 1, 2, 6, 7. 02953 M01S00077.copyb5 +++|* B - 2, 3. 02954 M01S00078.copyb5 +++|* X - 1, 2, 3, 4, 6, 7. 02955 M01S00079.copyb5 +++|* 02956 M01S00080.copyb5 +++|* CALLS PDE. 02957 M01S00081.copyb5 +++| 02958 M01S00082.copyb5 +++| 02959 M01S00083.copyb5 +++| IBT3 SA2 CWBC 02960 M01S00084.copyb5 +++| SX6 X2-5004B BYTES IN NON-EOR BLOCK 02961 M01S00085.copyb5 +++| SA6 EORF 02962 M01S00086.copyb5 +++| SA7 LVL 02963 M01S00087.copyb5 +++| SX2 X7-17B 02964 M01S00088.copyb5 +++| BX1 X1-X1 02965 M01S00089.copyb5 +++| NZ X2,IBTX IF NOT LEVEL 17B (EOF) 02966 M01S00090.copyb5 +++| SX1 -B1 02967 M01S00091.copyb5 +++| 02968 M01S00092.copyb5 +++| IBT SUBR ENTRY/EXIT 02969 M01S00093.copyb5 +++| SA1 I+TRK 02970 M01S00094.copyb5 +++| SX4 B0+ NO EXTRA BYTE BIAS
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02971 M02S00095.274l797 ---| PL X1,IBT1 IF NOT 9-TRACK TAPE
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02972 M01S00108.274l797 +++| LX1 59-58 02973 M01S00109.274l797 +++| NG X1,IBT1 IF 7-TRACK TAPE
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 02974 M01S00096.copyb5 +++| SA1 CWBC 02975 M01S00097.copyb5 +++| SX3 X1+4 02976 M01S00098.copyb5 +++| SX1 5 02977 M01S00099.copyb5 +++| IX3 X3/X1 02978 M01S00100.copyb5 +++| LX3 -1 02979 M01S00101.copyb5 +++| NG X3,IBT1 IF ODD WORD COUNT WITH 48 BIT TERMINATOR 02980 M01S00102.copyb5 +++| SX4 -1 BIAS TO REMOVE EXTRA BYTE 02981 M01S00103.copyb5 +++| IBT1 SA1 BTSK CLEAR EXTRANEOUS DATA 02982 M01S00104.copyb5 +++| SB3 59 02983 M01S00105.copyb5 +++| SB2 X1-1 CORRECT FOR ALWAYS HAVE TERMINATOR FLAG 02984 M01S00106.copyb5 +++| MX1 1 02985 M01S00107.copyb5 +++| SB2 B3-B2 02986 M01S00108.copyb5 +++| AX1 B2 02987 M01S00109.copyb5 +++| BX2 X1*X2 02988 M01S00110.copyb5 +++| AX2 12 EXTRACT LEVEL NUMBER FROM BLOCK TERMINATOR 02989 M01S00111.copyb5 +++| MX1 -6 02990 M01S00112.copyb5 +++| BX7 -X1*X2 LEVEL NUMBER 02991 M01S00113.copyb5 +++| AX2 12 02992 M01S00114.copyb5 +++| MX1 -24 02993 M01S00115.copyb5 +++| BX6 -X1*X2 BLOCK NUMBER 02994 M01S00116.copyb5 +++| AX2 24 02995 M01S00117.copyb5 +++| MX3 -12 02996 M01S00118.copyb5 +++| SA1 CWBC READCW BYTE COUNT 02997 M01S00119.copyb5 +++| IX1 X1+X4 9-TRACK ODD BYTE NUMBER CORRECTION 02998 M01S00120.copyb5 +++| BX4 -X3*X2 BYTE COUNT 02999 M01S00121.copyb5 +++| IX3 X4-X1 03000 M01S00122.copyb5 +++| NZ X3,IBT2 IF ERROR IN NUMBER OF BYTES 03001 M01S00123.copyb5 +++| SA1 IBTA PREVIOUS BLOCK NUMBER 03002 M01S00124.copyb5 +++| SX3 B1 03003 M01S00125.copyb5 +++| IX2 X1+X3 INCREMENT 03004 M01S00126.copyb5 +++| IX3 X6-X2 03005 M01S00127.copyb5 +++| SA6 A1 REPLACE PREVIOUS BLOCK NUMBER 03006 M01S00128.copyb5 +++| NZ X3,IBT2 IF BLOCK SEQUENCE NUMBER ERROR 03007 M01S00129.copyb5 +++| SX1 X7-20B 03008 M01S00130.copyb5 +++| NG X1,IBT3 IF LEGAL LEVEL NUMBER 03009 M01S00131.copyb5 +++| IBT2 SB3 B1 PROCESS DATA ERROR 03010 M01S00132.copyb5 +++| RJ PDE 03011 M01S00133.copyb5 +++| BX7 X7-X7 03012 M01S00134.copyb5 +++| EQ IBT3 CLEAR LEVEL NUMBER 03013 M01S00135.copyb5 +++| 03014 M01S00136.copyb5 +++| 03015 M01S00137.copyb5 +++| IBTA CON -1 PREVIOUS BLOCK NUMBER 03016 M01S00138.copyb5 +++| IIB SPACE 4,15 03017 M01S00139.copyb5 +++|** IIB - INITIALIZE I FORMAT TAPE BLOCK. 03018 M01S00140.copyb5 +++|* 03019 M01S00141.copyb5 +++|* ENTRY (RWCB) = WORD COUNT OF BLOCK. 03020 M01S00142.copyb5 +++|* (UBCB) = UNUSED BIT COUNT FOR BLOCK. 03021 M01S00143.copyb5 +++|* 03022 M01S00144.copyb5 +++|* EXIT WORD COUNT AND UNUSED BIT COUNT UPDATED AS NECESSARY. 03023 M01S00145.copyb5 +++|* EOR FLAG AND BLOCK TERMINATOR SET. 03024 M01S00146.copyb5 +++|* 03025 M01S00147.copyb5 +++|* USES A - 1, 2, 4, 6, 7. 03026 M01S00148.copyb5 +++|* B - 3. 03027 M01S00149.copyb5 +++|* X - 1, 2, 4, 6, 7. 03028 M01S00150.copyb5 +++|* 03029 M01S00151.copyb5 +++|* CALLS PDE. 03030 M01S00152.copyb5 +++| 03031 M01S00153.copyb5 +++| 03032 M01S00154.copyb5 +++| IIB1 NG X1,IIB2 IF ODD WORD COUNT 03033 M01S00155.copyb5 +++| SX2 X2+12 03034 M01S00156.copyb5 +++| IIB2 SA6 A1 UPDATE BLOCK WORD COUNT 03035 M01S00157.copyb5 +++| BX7 X7-X7 CLEAR UNUSED BIT COUNT 03036 M01S00158.copyb5 +++| SX6 B1 03037 M01S00159.copyb5 +++| SA7 A2 03038 M01S00160.copyb5 +++| SA6 EORF 03039 M01S00161.copyb5 +++| ZR X2,IIBX IF NO DATA ERROR 03040 M01S00162.copyb5 +++| SB3 B1 PROCESS DATA ERROR 03041 M01S00163.copyb5 +++| RJ PDE 03042 M01S00164.copyb5 +++| 03043 M01S00165.copyb5 +++| IIB SUBR ENTRY/EXIT 03044 M01S00166.copyb5 +++| SA1 RWCB GET BLOCK WORD COUNT 03045 M01S00167.copyb5 +++| SA2 UBCB GET UNUSED BIT COUNT 03046 M01S00168.copyb5 +++| BX6 X1 03047 M01S00169.copyb5 +++| LX1 -1 03048 M01S00170.copyb5 +++| BX7 X2 SET BLOCK TERMINATOR = UNUSED BIT COUNT 03049 M01S00171.copyb5 +++| SX7 X7+B1 ALWAYS HAVE TERMINATOR 03050 M01S00172.copyb5 +++| SA7 BTSK SET BLOCK TERMINATOR INDICATOR 03051 M01S00173.copyb5 +++| SX6 X6-1 DECREMENT BLOCK WORD COUNT 03052 M01S00174.copyb5 +++| SA4 I+TRK GET TRACK BITS 03053 M01S00175.copyb5 +++| SX2 X2-12
| Line S00176 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03054 M02S00176.274l797 ---| NG X4,IIB1 IF 9-TRACK TAPE 03055 M02S00177.274l797 ---| EQ IIB2 UPDATE FLAGS/COUNTS
| Line S00110 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03056 M01S00110.274l797 +++| LX4 59-58 03057 M01S00111.274l797 +++| NG X4,IIB2 IF 7-TRACK TAPE 03058 M01S00112.274l797 +++| EQ IIB1 CHECK FOR ODD WORD COUNT 03059 M00S02444.copyb +++| ISI SPACE 4,15 03060 M00S02445.copyb +++|** ISI - INITIALIZE SI-CODED FORMAT TAPE BLOCK. 03061 M00S02446.copyb +++|* 03062 M00S02447.copyb +++|* ENTRY (RWCB) = WORD COUNT OF BLOCK. 03063 M00S02448.copyb +++|* (UBCB) = UNUSED BIT COUNT FOR BLOCK.
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/copyb.001.txt · Last modified: by 127.0.0.1