cdc:nos2.source:opl.opl871:deck:libedit.002
Deck LIBEDIT Part 002
20 Modifications
Listing Sections
- Deck LIBEDIT Start
- Deck LIBEDIT Part 1 (Line 1591)
- Deck LIBEDIT Part 2 (Line 3472)
- Deck LIBEDIT Part 3 (Line 5154)
Source
Seq # *Modification Id* Act ----------------------------+ 03472 M01S03294.libedit +++| SA1 LITC+1 03473 M01S03295.libedit +++| BX6 X2 03474 M01S03296.libedit +++| SA6 OUTPUTB+1 03475 M01S03297.libedit +++| NZ X1,LIT8 IF IGNORE NOT STARTED 03476 M01S03298.libedit +++| CALL CFN,(=6LTEXT/,) 03477 M01S03299.libedit +++| EQ LIT9 OUTPUT PROGRAM NAME 03478 M01S03300.libedit +++| LIT8 CALL CFN,X1+OICD 03479 M01S03301.libedit +++| CALL CFN,LITC+1 OUTPUT PROGRAM NAME 03480 M01S03302.libedit +++| SA1 LITC+1 CHECK SINGLE IGNORE 03481 M01S03303.libedit +++| SA2 A1+B1 03482 M01S03304.libedit +++| BX6 X1-X2 03483 M01S03305.libedit +++| ZR X6,LIT10 IF FIRST PROGRAM = LAST PROGRAM 03484 M01S03306.libedit +++| LIT9 CALL CFN,(=1L-) 03485 M01S03307.libedit +++| SA2 LITC+2 OUTPUT LIBRARY NAME 03486 M01S03308.libedit +++| CALL CFN,X2+OICD 03487 M01S03309.libedit +++| CALL CFN,LITC+2 03488 M01S03310.libedit +++| LIT10 CALL OSB OUTPUT STRING BUFFER 03489 M01S03311.libedit +++| SA1 LITB ADVANCE ERROR COUNT 03490 M01S03312.libedit +++| SX6 X1+B1 03491 M01S03313.libedit +++| SA6 A1 03492 M01S03314.libedit +++| EQ LIT3 LOOP 03493 M01S03315.libedit +++| 03494 M01S03316.libedit +++| 03495 M01S03317.libedit +++| LITA CON 0 PIT INDEX 03496 M01S03318.libedit +++| LITB CON 0 ERROR COUNT 03497 M01S03319.libedit +++| 03498 M01S03320.libedit +++| LITC VFD 42/,18/ PIT ETRY - 42/FILE,18/ 03499 M01S03321.libedit +++| VFD 42/,18/ 42/PROG1,18/LIB1 03500 M01S03322.libedit +++| VFD 42/,18/ 42/PROG2,18/LIB2
| Line S03323 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03501 M02S03323.libed6 ---| LITL BSS 0 03502 M01S03324.libedit +++| LOL SPACE 4,20 03503 M01S03325.libedit +++|** LOL - LIST ONE LINE. 03504 M01S03326.libedit +++|* 03505 M01S03327.libedit +++|* ENTRY (OUTPUTB) = LINE TO BE WRITTEN. 03506 M01S03328.libedit +++|* (LINE) = LINE NUMBER. 03507 M01S03329.libedit +++|* (BRFM) = 1 IF BRIEF MODE SET (NO TITLE). 03508 M01S03330.libedit +++|* (PAGE) = PAGE NUMBER. 03509 M01S00005.ns22000 +++|* (LL) = PAGE LINE LIMIT. 03510 M01S00006.ns22000 +++|* (PD) = PRINT DENSITY FORMAT CONTROL. 03511 M01S00007.ns22000 +++|* (PDFLG) = 1 IF FORMAT CONTROL NOT WRITTEN. 03512 M01S03331.libedit +++|* 03513 M01S03332.libedit +++|* EXIT LINE AND PAGE NUMBER UPDATED. 03514 M01S03333.libedit +++|* 03515 M01S03334.libedit +++|* USES A - 1, 2, 3, 6. 03516 M01S03335.libedit +++|* X - 0, 1, 2, 3, 6. 03517 M01S03336.libedit +++|* B - 2, 5, 6, 7. 03518 M01S03337.libedit +++|* 03519 M01S03338.libedit +++|* CALLS C6S. 03520 M01S03339.libedit +++|* 03521 M01S03340.libedit +++|* MACROS CALL, WRITEC, WRITEH. 03522 M01S03341.libedit +++| 03523 M01S03342.libedit +++|
| Line S03343 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03524 M02S03343.libed6 ---| NAME LOL,LOLL 03525 M01S03344.libedit +++| LOL SUBR ENTRY/EXIT 03526 M01S03345.libedit +++| SA1 LINE CHECK LINE NUMBER 03527 M01S03346.libedit +++| SX6 X1+B1 03528 M01S03347.libedit +++| SA6 A1
| Line S03348 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03529 M02S03348.ns22000 ---| SX6 X6-LNCNT 03530 M01S00008.ns22000 +++| SA3 A1+B1 GET LINE LIMIT 03531 M01S00009.ns22000 +++| ERRNZ LL-LINE-1 CODE DEPENDS ON CONSECUTIVE LOCATIONS 03532 M01S00010.ns22000 +++| IX6 X6-X3 03533 M01S03349.libedit +++| NG X6,LOL1 IF NOT END OF PAGE 03534 M01S03350.libedit +++| SX6 B0 RESET LINE COUNT 03535 M01S03351.libedit +++| SA6 A1 03536 M01S03352.libedit +++| SA3 TTYO 03537 M01S03353.libedit +++| NZ X3,LOL0 IF NOT TTY OUTPUT 03538 M01S03354.libedit +++| SA1 BRFM 03539 M01S03355.libedit +++| NZ X1,LOL1 IF BRIEF MODE SET 03540 M01S03356.libedit +++| WRITEH OUTPUT,TITA,TITAL TITLE LINE 03541 M01S03357.libedit +++| WRITEH OUTPUT,TITE,TITEL SUBTITLE 03542 M01S03358.libedit +++| WRITEC OUTPUT,(=C* *) 03543 M01S03359.libedit +++| EQ LOL1 CONTINUE 03544 M01S03360.libedit +++| 03545 M01S03361.libedit +++| LOL0 SA2 PAGE 03546 M01S03362.libedit +++| SX6 X2+B1 03547 M01S03363.libedit +++| SA6 A2 03548 M01S03364.libedit +++| CALL C6S,PAGE,LOLA 03549 M01S03365.libedit +++| SA1 TITD INSERT PAGE NUMBER 03550 M01S03366.libedit +++| LX6 36 03551 M01S03367.libedit +++| MX0 24 03552 M01S03368.libedit +++| BX1 X0*X1 03553 M01S03369.libedit +++| BX6 -X0*X6 03554 M01S03370.libedit +++| BX6 X6+X1 03555 M01S03371.libedit +++| SA6 A1 03556 M01S00011.ns22000 +++| SA3 PDFLG FLAG THAT FORMAT CONTROL WAS WRITTEN 03557 M01S00012.ns22000 +++| BX7 X7-X7 03558 M01S00013.ns22000 +++| SA7 A3 03559 M01S00014.ns22000 +++| WRITEW O,A3-B1,X3 CONDITIONALLY WRITE FORMAT EFFECTOR 03560 M01S00015.ns22000 +++| ERRNZ PDFLG-PD-1 CODE DEPENDS ON CONSECUTIVE LOCATIONS 03561 M01S03372.libedit +++| WRITEC OUTPUT,(=C*1*) 03562 M01S03373.libedit +++| WRITEH OUTPUT,TITA,TITE-TITA WRITE TITLE LINE 03563 M01S03374.libedit +++| WRITEC OUTPUT,(=C* *) 03564 M01S03375.libedit +++| WRITEH OUTPUT,TITE,TITF-TITE WRITE SUBTITLE LINE 03565 M01S03376.libedit +++| WRITEC OUTPUT,(=C* *)
| Line S03377 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03566 M02S03377.ns22000 ---| SA2 LINE INCREMENT LINE NUMBER
| Line S03378 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03567 M02S03378.ns22000 ---| SB2 5
| Line S03379 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03568 M02S03379.ns22000 ---| SX6 X2+B2
| Line S03380 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03569 M02S03380.ns22000 ---| SA6 A2 03570 M01S00016.ns22000 +++| SX6 5 RESET LINE COUNT 03571 M01S00017.ns22000 +++| SA6 LINE 03572 M01S03381.libedit +++| LOL1 SX2 1R BLANK FILL LINE 03573 M01S03382.libedit +++| SB6 OUTPUTB 03574 M01S03383.libedit +++| SB7 OUTPUTB+DCBL+1 03575 M01S03384.libedit +++| SA1 B6 03576 M01S03385.libedit +++| MX0 54 03577 M01S03386.libedit +++| LOL2 BX6 X1 03578 M01S03387.libedit +++| SA6 A1 03579 M01S03388.libedit +++| EQ B6,B7,LOL4 IF END-OF-LINE 03580 M01S03389.libedit +++| SA1 B6 03581 M01S03390.libedit +++| SB6 B6+B1 03582 M01S03391.libedit +++| SB5 10 03583 M01S03392.libedit +++| LOL3 ZR B5,LOL2 IF END-OF-WORD 03584 M01S03393.libedit +++| LX0 6 03585 M01S03394.libedit +++| LX2 6 03586 M01S03395.libedit +++| BX6 -X0*X1 03587 M01S03396.libedit +++| SB5 B5-B1 03588 M01S03397.libedit +++| NZ X6,LOL3 IF CHARACTER .NE. 00 03589 M01S03398.libedit +++| BX1 X1+X2 03590 M01S03399.libedit +++| EQ LOL3 LOOP 03591 M01S03400.libedit +++| 03592 M01S03401.libedit +++| LOL4 WRITEH OUTPUT,OUTPUTB,DCBL+1 03593 M01S03402.libedit +++| EQ LOLX RETURN 03594 M01S03403.libedit +++| 03595 M01S03404.libedit +++| 03596 M01S03405.libedit +++| LOLA VFD 60/ PAGE NUMBER (DISPLAY CODE)
| Line S03406 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03597 M02S03406.libed6 ---| LOLL BSS 0 03598 M01S03407.libedit +++| MSG SPACE 4,10 03599 M01S03408.libedit +++|** MSG - SEND DAYFILE MESSAGE. 03600 M01S03409.libedit +++|* 03601 M01S03410.libedit +++|* ENTRY (B2) = ADDRESS OF PROGRAM NAME. 03602 M01S03411.libedit +++|* (B3) = ADDRESS OF MESSAGE. 03603 M01S03412.libedit +++|* 03604 M01S03413.libedit +++|* USES A - 1, 2, 6. 03605 M01S03414.libedit +++|* X - 0, 1, 2, 3, 4, 6. 03606 M01S03415.libedit +++|* 03607 M01S03416.libedit +++|* MACROS MESSAGE. 03608 M01S03417.libedit +++| 03609 M01S03418.libedit +++|
| Line S03419 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03610 M02S03419.libed6 ---| NAME MSG,MSGL 03611 M01S03420.libedit +++| MSG SUBR ENTRY/EXIT 03612 M01S03421.libedit +++| MX0 42 03613 M01S03422.libedit +++| SA1 B3 03614 M01S03423.libedit +++| SA2 B2 03615 M01S03424.libedit +++| BX3 X0*X2 03616 M01S03425.libedit +++| BX1 -X0*X1 03617 M01S03426.libedit +++| BX6 X3+X1 03618 M01S03427.libedit +++| MX0 6 03619 M01S03428.libedit +++| SA6 B3 03620 M01S03429.libedit +++| SX4 1R 03621 M01S03430.libedit +++| LX0 24 03622 M01S03431.libedit +++| LX4 18 03623 M01S03432.libedit +++| BX1 X0*X6 03624 M01S03433.libedit +++| NZ X1,MSG2 IF NO BLANKS 03625 M01S03434.libedit +++| MSG1 IX6 X6+X4 BLANK FILL FILE NAME 03626 M01S03435.libedit +++| LX0 6 03627 M01S03436.libedit +++| LX4 6 03628 M01S03437.libedit +++| BX1 X0*X6 03629 M01S03438.libedit +++| ZR X1,MSG1 03630 M01S03439.libedit +++| SA6 B3 03631 M01S03440.libedit +++| MSG2 MESSAGE B3,,R SEND MESSAGE TO DAYFILE 03632 M01S03441.libedit +++| EQ MSGX RETURN 03633 M01S03442.libedit +++|
| Line S03443 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03634 M02S03443.libed6 ---| MSGL BSS 0 03635 M01S03444.libedit +++| IDT SPACE 4
| Line S03445 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03636 M02S03445.v23l617 ---|** IDT - ISSUE ILLEGAL DEVICE MESSAGE. 03637 M01S00030.v23l617 +++|** IDT - ISSUE INCORRECT DEVICE MESSAGE. 03638 M01S03446.libedit +++|* 03639 M01S03447.libedit +++|* ENTRY (A1) = FET ADDRESS + 1. 03640 M01S03448.libedit +++|* (X7) = 0. 03641 M01S03449.libedit +++|* 03642 M01S03450.libedit +++|* EXIT TO ABT. 03643 M01S03451.libedit +++|* 03644 M01S03452.libedit +++|* USES A - 1, 7. 03645 M01S03453.libedit +++|* B - 4. 03646 M01S03454.libedit +++|* X - 0, 1, 2, 3, 4, 6, 7. 03647 M01S03455.libedit +++|* 03648 M01S03456.libedit +++|* CALLS MSG=. 03649 M01S03457.libedit +++| 03650 M01S03458.libedit +++| 03651 M01S03459.libedit +++| IDT MX0 42 03652 M01S03460.libedit +++| SA1 A1-B1 READ FILE NAME 03653 M01S03461.libedit +++| MX3 26+10 03654 M01S03462.libedit +++| BX6 X0*X1 03655 M01S03463.libedit +++| MX2 6 03656 M01S03464.libedit +++| LX3 59 POSITION LEGAL CHARACTER MASK 03657 M01S03465.libedit +++| BX1 X1-X1 03658 M01S03466.libedit +++| MX0 -6 03659 M01S03467.libedit +++| IDT1 LX7 6 03660 M01S03468.libedit +++| BX7 X7+X1 ASSEMBLE FILE NAME 03661 M01S03469.libedit +++| LX6 6 03662 M01S03470.libedit +++| BX1 -X0*X6 03663 M01S03471.libedit +++| SB4 X1 FIND END OF FILE NAME 03664 M01S03472.libedit +++| LX4 B4,X3 03665 M01S03473.libedit +++| NG X4,IDT1 IF NOT END OF NAME 03666 M01S03474.libedit +++| LX7 6 03667 M01S03475.libedit +++| SX1 1R. ADD *.* TO FILE NAME 03668 M01S03476.libedit +++| BX7 X7+X1 03669 M01S03477.libedit +++| + LX7 6 LEFT JUSTIFY ASSEMBLY 03670 M01S03478.libedit +++| BX6 X2*X7 03671 M01S03479.libedit +++| ZR X6,* IF NOT LEFT JUSTIFIED 03672 M01S03480.libedit +++| SA7 IDTB 03673 M01S03481.libedit +++| MESSAGE IDTA 03674 M01S03482.libedit +++| CALL ABT 03675 M01S03483.libedit +++| 03676 M01S03484.libedit +++|
| Line S03485 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03677 M02S03485.v23l617 ---| IDTA DATA 30H ILLEGAL DEVICE TYPE -- LFN = 03678 M01S00031.v23l617 +++| IDTA DATA 30H UNKNOWN DEVICE TYPE -- LFN = 03679 M01S03486.libedit +++| IDTB CON 0 03680 M01S03487.libedit +++| SPACE 4
| Line S03488 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03681 M02S03488.v23l617 ---|** OCC - OUTPUT COMMENT CARD. 03682 M01S00032.v23l617 +++|** OCC - OUTPUT COMMENT DIRECTIVE. 03683 M01S03489.libedit +++|* 03684 M01S03490.libedit +++|* ENTRY (B2) = INDEX IN COMMENT/DATE TABLE. 03685 M01S03491.libedit +++|* USES A - 1, 5, 6. 03686 M01S03492.libedit +++|* X - 0, 1, 5, 6, 7. 03687 M01S03493.libedit +++|* B - 4, 6, 7. 03688 M01S03494.libedit +++|* 03689 M01S03495.libedit +++|* CALLS CFN, OSB. 03690 M01S03496.libedit +++|* 03691 M01S03497.libedit +++|* MACROS CALL. 03692 M01S03498.libedit +++| 03693 M01S03499.libedit +++|
| Line S03500 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03694 M02S03500.libed6 ---| NAME OCC,OCCL 03695 M01S03501.libedit +++| OCC SUBR ENTRY/EXIT 03696 M01S03502.libedit +++| SA1 P.CDT 03697 M01S03503.libedit +++| SX6 X1+B2 03698 M01S03504.libedit +++| SA6 OCCA 03699 M01S03505.libedit +++| SA2 =1H 03700 M01S03506.libedit +++| BX6 X2 03701 M01S03507.libedit +++| SA6 OUTPUTB 03702 M01S03508.libedit +++| SA1 X1+B2 SET *DATE OR *COMMENT 03703 M01S03509.libedit +++| LX1 60-17 03704 M01S03510.libedit +++| SX7 B1 03705 M01S03511.libedit +++| BX6 X7*X1 03706 M01S03512.libedit +++| SA2 OCCB+X6 03707 M01S03513.libedit +++| BX6 X2 03708 M01S03514.libedit +++| SA6 A6+B1 03709 M01S03515.libedit +++| AX1 -17+60 OUTPUT LIBRARY NAME 03710 M01S03516.libedit +++| CALL CFN,(X1+OICD) 03711 M01S03517.libedit +++| SA1 OCCA OUTPUT PROGRAM NAME 03712 M01S03518.libedit +++| CALL CFN,X1 03713 M01S03519.libedit +++| CALL CFN,(=1L ) OUTPUT BLANK 03714 M01S03520.libedit +++| SA1 OCCA OUTPUT COMMENT 03715 M01S03521.libedit +++| SB6 X1 03716 M01S03522.libedit +++| MX0 54 03717 M01S03523.libedit +++| SB7 B6+8 03718 M01S03524.libedit +++| SA1 SBP SET STRING BUFFER POINTER 03719 M01S03525.libedit +++| SB4 X1 03720 M01S03526.libedit +++| OCC1 SB6 B6+B1 DISASSEMBLE COMMENT INTO STRING BUFFER 03721 M01S03527.libedit +++| EQ B6,B7,OCC3 IF END OF COMMENT 03722 M01S03528.libedit +++| SA5 B6 03723 M01S03529.libedit +++| SB5 B4+10 03724 M01S03530.libedit +++| OCC2 EQ B4,B5,OCC1 IF END OF WORD 03725 M01S03531.libedit +++| LX5 6 03726 M01S03532.libedit +++| BX6 -X0*X5 03727 M01S03533.libedit +++| SA6 B4 03728 M01S03534.libedit +++| SB4 B4+B1 03729 M01S03535.libedit +++| NZ X6,OCC2 IF NOT END OF COMMENT 03730 M01S03536.libedit +++| OCC3 SX6 B0 SET END OF BUFFER 03731 M01S03537.libedit +++| SA6 B4 03732 M01S03538.libedit +++| SX7 B4 03733 M01S03539.libedit +++| SA7 A1 03734 M01S03540.libedit +++| CALL OSB OUTPUT STRING BUFFER 03735 M01S03541.libedit +++| EQ OCCX RETURN 03736 M01S03542.libedit +++| 03737 M01S03543.libedit +++| 03738 M01S03544.libedit +++| OCCA VFD 60/ COMMENT ADDRESS 03739 M01S03545.libedit +++| OCCB DATA 10H*COMMENT 03740 M01S03546.libedit +++| DATA 10H*DATE
| Line S03547 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03741 M02S03547.libed6 ---| OCCL BSS 0 03742 M01S03548.libedit +++| SPACE 4 03743 M01S03549.libedit +++|** ODP - OUTPUT DELETED PROGRAM. 03744 M01S03550.libedit +++|* 03745 M01S03551.libedit +++|* ENTRY (B2) = ADDRESS OF PROGRAM NAME. 03746 M01S03552.libedit +++|* 03747 M01S03553.libedit +++|* USES A - 1, 2, 6, 7. 03748 M01S03554.libedit +++|* X - 0, 1, 2, 3, 6, 7. 03749 M01S03555.libedit +++|* B - 2. 03750 M01S03556.libedit +++|* 03751 M01S03557.libedit +++|* CALLS COB, ORW. 03752 M01S03558.libedit +++|* 03753 M01S03559.libedit +++|* MACROS CALL. 03754 M01S03560.libedit +++| 03755 M01S03561.libedit +++|
| Line S03562 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03756 M02S03562.libed6 ---| NAME ODP,ODPL 03757 M01S03563.libedit +++| ODP SUBR ENTRY/EXIT 03758 M01S03564.libedit +++| CALL COB CLEAR OUTPUT BUFFER 03759 M01S03565.libedit +++| MX0 42 03760 M01S03566.libedit +++| SA1 B2 SET PROGRAM NAME 03761 M01S03567.libedit +++| SA2 X1+NAMA 03762 M01S03568.libedit +++| BX1 X0*X1 03763 M01S03569.libedit +++| SX3 1R) ADD *)* AT END OF NAME 03764 M01S03570.libedit +++| MX0 54 03765 M01S03571.libedit +++| + LX3 54 03766 M01S03572.libedit +++| LX0 54 03767 M01S03573.libedit +++| BX7 -X0*X1 03768 M01S03574.libedit +++| BX6 X1+X3 03769 M01S03575.libedit +++| NZ X7,*-1 LOOP FOR END OF NAME 03770 M01S03576.libedit +++| SA6 OUTPUTB+1 03771 M01S03577.libedit +++| LX7 X2 03772 M01S03578.libedit +++| SA7 A6+B1 03773 M01S03579.libedit +++| SB2 =9HDELETED-( 03774 M01S03580.libedit +++| CALL ORW,B2,OLD 03775 M01S03581.libedit +++| EQ ODPX RETURN
| Line S03582 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03776 M02S03582.libed6 ---| 03777 M01S00020.libed6 +++| OIC SPACE 4,15 03778 M01S03583.libedit +++| ODPL BSS 0 03779 M01S03584.libedit +++| SPACE 4
| Line S03585 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03780 M02S03585.v23l617 ---|** OIC - OUTPUT INSERT CARD.
| Line S03586 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03781 M02S03586.v23l617 ---|*
| Line S03587 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03782 M02S03587.v23l617 ---|* OUTPUT AN INSERT CARD THAT CAN NOT BE FOLLOWED. 03783 M01S00033.v23l617 +++|** OIC - OUTPUT INSERT DIRECTIVE. 03784 M01S00034.v23l617 +++|* 03785 M01S00035.v23l617 +++|* OUTPUT AN INSERT DIRECTIVE THAT CAN NOT BE FOLLOWED. 03786 M01S00036.v23l617 +++|* 03787 M01S03588.libedit +++|* ENTRY (B2) = ADDRESS OF INSERT PROGRAM TABLE INDEX. 03788 M01S03589.libedit +++|* 03789 M01S03590.libedit +++|* USES A - 1, 2, 3, 4, 5, 6, 7. 03790 M01S03591.libedit +++|* X - ALL. 03791 M01S03592.libedit +++|* B - 2, 5, 6, 7. 03792 M01S03593.libedit +++|* 03793 M01S03594.libedit +++|* CALLS CFN, LOL. 03794 M01S03595.libedit +++|* 03795 M01S03596.libedit +++|* MACROS CALL. 03796 M01S03597.libedit +++| 03797 M01S03598.libedit +++|
| Line S03599 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03798 M02S03599.libed6 ---| NAME OIC,OICL 03799 M01S03600.libedit +++| OIC SUBR ENTRY/EXIT 03800 M01S03601.libedit +++| SA2 B2 03801 M01S03602.libedit +++| SA1 P.IPT 03802 M01S03603.libedit +++| SB6 X1 03803 M01S03604.libedit +++| SA4 B6+X2 03804 M01S03605.libedit +++| SA5 A4+B1 03805 M01S03606.libedit +++| BX6 X4 03806 M01S03607.libedit +++| LX7 X5 03807 M01S03608.libedit +++| SA6 OICA 03808 M01S03609.libedit +++| SA7 A6+B1 03809 M01S03610.libedit +++| SA4 A5+B1 03810 M01S03611.libedit +++| SA5 A4+B1 03811 M01S03612.libedit +++| BX6 X4 03812 M01S03613.libedit +++| LX7 X5 03813 M01S03614.libedit +++| SA6 A7+B1 03814 M01S03615.libedit +++| SB6 OICB *DIRECTIVE CAN NOT BE PERFORMED.* 03815 M01S03616.libedit +++| SB7 OICB+OICBL 03816 M01S03617.libedit +++| SB5 OUTPUTB 03817 M01S03618.libedit +++| SA7 A6+B1 03818 M01S03619.libedit +++| SB5 B6-B5 03819 M01S03620.libedit +++| + SA1 B6 03820 M01S03621.libedit +++| BX6 X1 03821 M01S03622.libedit +++| SA6 B6-B5 03822 M01S03623.libedit +++| SB6 B6+B1 03823 M01S03624.libedit +++| NE B6,B7,*-1 03824 M01S03625.libedit +++| CALL LOL LIST ONE LINE 03825 M01S03626.libedit +++| SA1 =10H 03826 M01S03627.libedit +++| BX6 X1 03827 M01S03628.libedit +++| SA6 OUTPUTB 03828 M01S03629.libedit +++| SA1 =10H*FILE 03829 M01S03630.libedit +++| BX6 X1 03830 M01S03631.libedit +++| SA6 A6+B1 03831 M01S03632.libedit +++| SB2 OICA+1 CONVERT FILE NAME 03832 M01S03633.libedit +++| CALL CFN,B2 03833 M01S03634.libedit +++| CALL OSB OUTPUT STRING BUFFER 03834 M01S03635.libedit +++| SA1 OICA CHECK FOR *REPLACE* *INSERT* OR *BEFORE* 03835 M01S03636.libedit +++| SA3 OICA+2 03836 M01S03637.libedit +++| BX7 X1-X3 03837 M01S03638.libedit +++| SA2 =10H*REPLACE 03838 M01S03639.libedit +++| SX6 B1 03839 M01S03640.libedit +++| BX3 X1 03840 M01S03641.libedit +++| LX1 60-17 03841 M01S03642.libedit +++| ZR X7,OIC1 IF *REPLACE* 03842 M01S03643.libedit +++| BX6 X6*X1 03843 M01S03644.libedit +++| SA2 OICC+X6 03844 M01S03645.libedit +++| MX0 6 03845 M01S03646.libedit +++| BX6 X0*X3 03846 M01S03647.libedit +++| NZ X6,OIC1 IF *INSERT* OR *BEFORE* 03847 M01S03648.libedit +++| SA2 =10H*ADD 03848 M01S03649.libedit +++| BX6 X2 03849 M01S03650.libedit +++| SA6 OUTPUTB+1
| Line S03651 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 03850 M02S03651.libed8 ---| AX3 48 OUTPUT LIBRARY NAME
| Line S03652 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 03851 M02S03652.libed8 ---| CALL CFN,(X3+ADPB-1) 03852 M01S00022.libed8 +++| CALL CFN,ADPB OUTPUT *LIB* PREFIX 03853 M01S00023.libed8 +++| BX1 X3 CONVERT LIBRARY NAME 03854 M01S00024.libed8 +++| AX1 42 03855 M01S00025.libed8 +++| RJ CDD CONVERT LIBRARY NUMBER TO DISPLAY 03856 M01S00026.libed8 +++| SB2 B2-B1 OUTPUT CONVERTED LIBRARY NUMBER 03857 M01S00027.libed8 +++| MX6 1 03858 M01S00028.libed8 +++| AX6 B2 03859 M01S00029.libed8 +++| BX6 X6*X4 03860 M01S00030.libed8 +++| SA6 OICE 03861 M01S00031.libed8 +++| CALL CFN,OICE 03862 M01S03653.libedit +++| EQ OIC2 03863 M01S00032.libed8 +++| 03864 M01S03654.libedit +++| OIC1 BX6 X2 03865 M01S03655.libedit +++| SA6 OUTPUTB+1 03866 M01S03656.libedit +++| AX1 -17+60 OUTPUT LIBRARY NAME 03867 M01S03657.libedit +++| CALL CFN,(X1+OICD) 03868 M01S03658.libedit +++| CALL CFN,OICA OUTPUT PROGRAM NAME 03869 M01S03659.libedit +++| OIC2 CALL CFN,(=1L,) 03870 M01S03660.libedit +++| SA1 OICA+2 OUTPUT FIRST PROGRAM NAME 03871 M01S03661.libedit +++| CALL CFN,(X1+OICD) 03872 M01S03662.libedit +++| CALL CFN,(OICA+2) 03873 M01S03663.libedit +++| SA1 OICA+2 OUTPUT LAST PROGRAM NAME 03874 M01S03664.libedit +++| SA2 A1+B1 03875 M01S03665.libedit +++| BX6 X1-X2 03876 M01S03666.libedit +++| ZR X6,OIC3 IF FIRST PROGRAM = LAST PROGRAM 03877 M01S03667.libedit +++| CALL CFN,(=1L-) 03878 M01S03668.libedit +++| SA2 OICA+3 03879 M01S03669.libedit +++| CALL CFN,(X2+OICD) 03880 M01S03670.libedit +++| CALL CFN,(OICA+3) 03881 M01S03671.libedit +++| OIC3 CALL OSB OUTPUT STRING BUFFER 03882 M01S03672.libedit +++| EQ OICX RETURN 03883 M01S03673.libedit +++| 03884 M01S03674.libedit +++| 03885 M01S03675.libedit +++| OICA VFD 42/,1/,17/ IPT ENTRY - 42/PROG1,1/BEFORE,17/LIB1 03886 M01S03676.libedit +++| VFD 42/,18/ 42/FILE,18/0 03887 M01S03677.libedit +++| VFD 42/,18/ 42/PROG2,18/LIB2 03888 M01S03678.libedit +++| VFD 42/,18/ 42/PROG3,18/LIB3 03889 M01S03679.libedit +++| 03890 M01S03680.libedit +++| OICB DATA H/ *ERROR* - *DIRECTIVE CAN NOT BE PERFORMED./ 03891 M01S03681.libedit +++| OICBL EQU *-OICB 03892 M01S03682.libedit +++| 03893 M01S03683.libedit +++| OICC DATA 0H*INSERT 03894 M01S03684.libedit +++| DATA 0H*BEFORE 03895 M01S03685.libedit +++|
| Line S03686 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03896 M02S03686.251l664 ---| OICD DATA 0LTEXT/
| Line S03687 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03897 M02S03687.251l664 ---| DATA 0LPP/
| Line S03688 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03898 M02S03688.251l664 ---| DATA 0 (UNDEFINED RECORD TYPE)
| Line S03689 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03899 M02S03689.251l664 ---| DATA 0LREL/
| Line S03690 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03900 M02S03690.251l664 ---| DATA 0LOVL/
| Line S03691 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03901 M02S03691.251l664 ---| DATA 0LULIB/
| Line S03692 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03902 M02S03692.251l664 ---| DATA 0LOPL/
| Line S03693 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03903 M02S03693.251l664 ---| DATA 0LOPLC/
| Line S03694 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03904 M02S03694.251l664 ---| DATA 0LOPLD/
| Line S03695 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03905 M02S03695.251l664 ---| DATA 0LABS/
| Line S03696 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03906 M02S03696.251l664 ---| DATA 0LPPU/
| Line S03697 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03907 M02S03697.251l664 ---| DATA 0 (UNDEFINED RECORD TYPE)
| Line S03698 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03908 M02S03698.251l664 ---| DATA 0 (UNDEFINED RECORD TYPE)
| Line S03699 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03909 M02S03699.251l664 ---| DATA 0 (UNDEFINED RECORD TYPE)
| Line S03700 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03910 M02S03700.251l664 ---| DATA 0LCAP/
| Line S03701 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03911 M02S03701.251l664 ---| DATA 0 (UNDEFINED RECORD TYPE)
| Line S03702 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
03912 M02S03702.251l664 ---| DATA 0LPROC/
03913 M01S00037.251l664 +++| OICD BSS 0
03914 M01S00038.251l664 +++| .E ECHO ,RT=("RTMIC")
03915 M01S00039.251l664 +++| .A IFC NE,/RT//
03916 M01S00040.251l664 +++| DATA L.RT/.
03917 M01S00041.251l664 +++| .A ELSE
03918 M01S00042.251l664 +++| DATA 0
03919 M01S00043.251l664 +++| .A ENDIF
03920 M01S00044.251l664 +++| .E ENDD
03921 M01S00033.libed8 +++|
03922 M01S00034.libed8 +++|OICE BSS 1
| Line S03703 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03923 M02S03703.libed6 ---| OICL BSS 0 03924 M01S03704.libedit +++| SPACE 4 03925 M01S03705.libedit +++|** ORW - OUTPUT RECORDS WRITTEN ON FILE *NEW*. 03926 M01S03706.libedit +++|* 03927 M01S03707.libedit +++|* ENTRY (B2) = ADDRESS OF *INSERT*, *DELETED*, *REPLACED*, 03928 M01S03708.libedit +++|* OR * *. 03929 M01S03709.libedit +++|* (B3) = ADDRESS OF FILE NAME. 03930 M01S03710.libedit +++|* 03931 M01S03711.libedit +++|* USES A - 1, 2, 3, 6, 7. 03932 M01S03712.libedit +++|* X - 0, 1, 2, 3, 6, 7. 03933 M01S03713.libedit +++|* B - 2. 03934 M01S03714.libedit +++|* 03935 M01S03715.libedit +++|* CALLS LOL. 03936 M01S03716.libedit +++| 03937 M01S03717.libedit +++|
| Line S03718 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03938 M02S03718.libed6 ---| NAME ORW,ORWL 03939 M01S03719.libedit +++| ORW SUBR ENTRY/EXIT 03940 M01S03720.libedit +++| SA1 LIST 03941 M01S03721.libedit +++| SX2 10B+2B 03942 M01S03722.libedit +++| BX1 X2*X1 03943 M01S03723.libedit +++| ZR X1,ORWX IF LIST OPTION IS OFF 03944 M01S03724.libedit +++| SA2 B2 SET STATUS AND FILE NAME 03945 M01S03725.libedit +++| SX6 10B 03946 M01S03726.libedit +++| BX1 X6*X1 03947 M01S03727.libedit +++| NZ X1,ORW1 IF FULL LIST OPTION ON 03948 M01S03728.libedit +++| SA3 =1H 03949 M01S03729.libedit +++| BX6 X2-X3 03950 M01S03730.libedit +++| NZ X6,ORW1 IF COMMENT MESSAGE 03951 M01S03731.libedit +++| SA3 OUTPUTB+1 CHECK FOR RENAME 03952 M01S03732.libedit +++| MX0 60-12 03953 M01S03733.libedit +++| BX6 -X0*X3 03954 M01S03734.libedit +++| SX7 X6-2R* 03955 M01S03735.libedit +++| NZ X7,ORWX IF NO RENAME 03956 M01S03736.libedit +++| ORW1 SA3 B3 03957 M01S03737.libedit +++| BX6 X2 03958 M01S03738.libedit +++| MX0 42 03959 M01S03739.libedit +++| LX6 54 03960 M01S03740.libedit +++| BX7 X0*X3 03961 M01S03741.libedit +++| SA6 OUTPUTB 03962 M01S03742.libedit +++| SA7 OUTPUTB+3 03963 M01S03743.libedit +++| SA1 TTYO 03964 M01S03744.libedit +++| NZ X1,ORW3 IF NOT TTY OUTPUT 03965 M01S03745.libedit +++| BX6 X6-X6 03966 M01S03746.libedit +++| SB2 DCBL-5 03967 M01S03747.libedit +++| SA6 OUTPUTB+5 03968 M01S03748.libedit +++| ORW2 SA6 A6+B1 CLEAR COMMENT FIELD 03969 M01S03749.libedit +++| SB2 B2-B1 03970 M01S03750.libedit +++| NZ B2,ORW2 IF NOT END OF BUFFER 03971 M01S03751.libedit +++| ORW3 RJ LOL LIST ONE LINE 03972 M01S03752.libedit +++| EQ ORWX RETURN
| Line S03753 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03973 M02S03753.libed6 ---|
| Line S03754 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03974 M02S03754.libed6 ---| ORWL BSS 0 03975 M01S03755.libedit +++| SPACE 4 03976 M01S03756.libedit +++|** OSB - OUTPUT STRING BUFFER. 03977 M01S03757.libedit +++|* 03978 M01S03758.libedit +++|* ENTRY (OUTPUTB) = STRING BUFFER. 03979 M01S03759.libedit +++|* 03980 M01S03760.libedit +++|* USES X - 1, 6. 03981 M01S03761.libedit +++|* A - 1, 6. 03982 M01S03762.libedit +++|* B - 4, 5, 6, 7. 03983 M01S03763.libedit +++|* 03984 M01S03764.libedit +++|* CALLS LOL. 03985 M01S03765.libedit +++|* 03986 M01S03766.libedit +++|* MACROS CALL. 03987 M01S03767.libedit +++| 03988 M01S03768.libedit +++|
| Line S03769 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03989 M02S03769.libed6 ---| NAME OSB,OSBL 03990 M01S03770.libedit +++| OSB SUBR ENTRY/EXIT 03991 M01S03771.libedit +++| SX6 DSB RESET STRING BUFFER POINTER 03992 M01S03772.libedit +++| SA6 SBP 03993 M01S03773.libedit +++| SB6 OUTPUTB+2 03994 M01S03774.libedit +++| SB7 OUTPUTB+DCBL 03995 M01S03775.libedit +++| SA1 DSB 03996 M01S03776.libedit +++| SB4 10 03997 M01S03777.libedit +++| SX6 B0 03998 M01S03778.libedit +++| SB5 B4 03999 M01S03779.libedit +++| EQ OSB2 04000 M01S03780.libedit +++| 04001 M01S03781.libedit +++| OSB1 SA6 B6 STORE WORD 04002 M01S03782.libedit +++| SB6 B6+B1 04003 M01S03783.libedit +++| SB5 B4 04004 M01S03784.libedit +++| SX6 B0 04005 M01S03785.libedit +++| OSB2 ZR B5,OSB1 IF END OF WORD 04006 M01S03786.libedit +++| LX6 6 04007 M01S03787.libedit +++| BX6 X6+X1 04008 M01S03788.libedit +++| SA1 A1+B1 04009 M01S03789.libedit +++| SB5 B5-B1 04010 M01S03790.libedit +++| NZ X1,OSB2 IF NOT END OF STRING BUFFER 04011 M01S03791.libedit +++| SA1 A1-B1 04012 M01S03792.libedit +++| SX1 1R 04013 M01S03793.libedit +++| NZ B5,OSB2 IF NOT END OF WORD 04014 M01S03794.libedit +++| SA1 =10H 04015 M01S03795.libedit +++| SA6 B6 04016 M01S03796.libedit +++| BX6 X1 04017 M01S03797.libedit +++| OSB3 SB6 B6+B1 BLANK FILL WORKING STORAGE 04018 M01S03798.libedit +++| SA6 B6 04019 M01S03799.libedit +++| NE B6,B7,OSB3 04020 M01S03800.libedit +++| CALL LOL 04021 M01S03801.libedit +++| EQ OSBX RETURN
| Line S03802 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04022 M02S03802.libed6 ---|
| Line S03803 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04023 M02S03803.libed6 ---| OSBL BSS 0
| Line S03804 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04024 M02S03804.libed6 ---| SPACE 4 04025 M01S00021.libed6 +++| OZR SPACE 4,15 04026 M01S03805.libedit +++|** OZR - OUTPUT ZERO LENGTH RECORD. 04027 M01S03806.libedit +++|* 04028 M01S03807.libedit +++|* ENTRY (B2) = ADDRESS OF STATUS. 04029 M01S03808.libedit +++|* (B3) = ADDRESS OF FILE NAME. 04030 M01S03809.libedit +++|* (B4) = ADDRESS OF PROGRAM NAME. 04031 M01S03810.libedit +++|* 04032 M01S03811.libedit +++|* USES A - 1, 6. 04033 M01S03812.libedit +++|* X - 1, 2, 6. 04034 M01S03813.libedit +++|* 04035 M01S03814.libedit +++|* CALLS COB, LOL, ORW. 04036 M01S03815.libedit +++|* 04037 M01S03816.libedit +++|* MACROS CALL. 04038 M01S03817.libedit +++| 04039 M01S03818.libedit +++|
| Line S03819 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04040 M02S03819.libed6 ---| NAME OZR,OZRL 04041 M01S03820.libedit +++| OZR SUBR ENTRY/EXIT 04042 M01S03821.libedit +++| CALL COB CLEAR OUTPUT BUFFER 04043 M01S03822.libedit +++| SA1 B4 04044 M01S03823.libedit +++| BX6 X1 SET PROGRAM NAME 04045 M01S03824.libedit +++| SA6 OUTPUTB+1 04046 M01S03825.libedit +++| CALL ORW,B2,B3 OUTPUT RECORD WRITTEN 04047 M01S03826.libedit +++| CALL COB CLEAR OUTPUT BUFFER 04048 M01S03827.libedit +++| SA1 LIST CHECK LIST OPTION 04049 M01S03828.libedit +++| SX2 10B 04050 M01S03829.libedit +++| BX1 X2*X1 04051 M01S03830.libedit +++| ZR X1,OZR IF FULL LIST OPTION OFF 04052 M01S03831.libedit +++| CALL LOL LIST ONE LINE 04053 M01S03832.libedit +++| EQ OZRX RETURN
| Line S03833 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04054 M02S03833.libed6 ---| OZRL BSS 0
| Line S03834 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04055 M02S03834.libed6 ---| 04056 M01S03835.libedit +++| SPACE 4 04057 M01S03836.libedit +++|** RCF - READ ALL CORRECTION FILES. 04058 M01S03837.libedit +++|* 04059 M01S03838.libedit +++|* READ CORRECTION FILES, IGNORING RECORDS IN THE IGNORE TABLE. 04060 M01S03839.libedit +++|* MAKE ENTRYS IN THE PROGRAM NAME TABLE. 04061 M01S03840.libedit +++|* 04062 M01S03841.libedit +++|* USES A - 1, 2, 3, 4, 6, 7. 04063 M01S03842.libedit +++|* X - 0, 1, 2, 3, 4, 6, 7. 04064 M01S03843.libedit +++|* B - 2, 3, 6, 7. 04065 M01S03844.libedit +++|* 04066 M01S03845.libedit +++|* CALLS CIT, CVD, DIS, SRT. 04067 M01S03846.libedit +++|* 04068 M01S03847.libedit +++|* MACROS ADDWRD, BKSP, CALL, OPEN, READCW, READW, REWIND, WRCW, 04069 M01S03848.libedit +++|* WRITECW. 04070 M01S03849.libedit +++| 04071 M01S03850.libedit +++|
| Line S03851 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04072 M02S03851.libed6 ---| NAME RCF,RCFL 04073 M01S03852.libedit +++| RCF11 WRITECW S,R FLUSH BUFFER 04074 M01S03853.libedit +++| REWIND X2,R 04075 M01S03854.libedit +++| SX7 1 INITIALIZE SECTOR COUNT 04076 M01S03855.libedit +++| SA7 SC 04077 M01S03856.libedit +++| 04078 M01S03857.libedit +++| RCF SUBR ENTRY/EXIT 04079 M01S03858.libedit +++| OPEN S,WRITE,R 04080 M01S03859.libedit +++| WRITECW S,* SET FILE STATUS 04081 M01S03860.libedit +++| SA3 S+4 04082 M01S03861.libedit +++| BX6 X6-X6 04083 M01S03862.libedit +++| AX3 18 EXTRACT PRU SIZE 04084 M01S03863.libedit +++| SA6 RCFA 04085 M01S03864.libedit +++| SX7 X3+ 04086 M01S03865.libedit +++| SA7 S-1 04087 M01S03866.libedit +++| RCF1 SX6 B0 CLEAR PROGRAM TYPE 04088 M01S03867.libedit +++| SA6 RCFE 04089 M01S03868.libedit +++| SA1 P.FNT DO LOOP TO READ CORRECTION FILE 04090 M01S03869.libedit +++| SA2 L.FNT 04091 M01S03870.libedit +++| SA3 RCFA 04092 M01S03871.libedit +++| SB2 X2 04093 M01S03872.libedit +++| SB3 X3 04094 M01S03873.libedit +++| EQ B2,B3,RCF11 IF END OF TABLE 04095 M01S03874.libedit +++| SA4 X1+B3 READ FILE NAME 04096 M01S03875.libedit +++| MX0 42 04097 M01S03876.libedit +++| BX6 X4 04098 M01S03877.libedit +++| SA6 RCFC+1 04099 M01S03878.libedit +++| BX6 X0*X4 04100 M01S03879.libedit +++| SX7 17B SET NAME IN FET 04101 M01S03880.libedit +++| BX7 X6+X7 04102 M01S03881.libedit +++| SA6 RCFB 04103 M01S03882.libedit +++| SA7 LGO 04104 M01S03883.libedit +++| OPEN A7,READ,R 04105 M01S03884.libedit +++| SA1 LGO+1 CHECK VALID DEVICE 04106 M01S03885.libedit +++| RJ CVD 04107 M01S03886.libedit +++| ZR X7,IDT IF CONTROL WORD I/O NOT SUPPORTED 04108 M01S03887.libedit +++| READCW LGO,17B 04109 M01S03888.libedit +++| RCF2 SA1 SC 04110 M01S03889.libedit +++| BX7 X1 STORE RANDOM ADDRESS 04111 M01S03890.libedit +++| SA7 RCFC+2 04112 M01S03891.libedit +++| READW LGO,WSB,WSBL READ 1 SECTOR 04113 M01S03892.libedit +++| PL X1,RCF4 IF NOT EOF 04114 M01S03893.libedit +++| RCF3 BKSP LGO,R 04115 M01S03894.libedit +++| SA1 RCFA INCREMENT FILE INDEX 04116 M01S03895.libedit +++| SX6 X1+B1 04117 M01S03896.libedit +++| SA6 A1 04118 M01S03897.libedit +++| EQ RCF1 LOOP TO READ NEXT FILE 04119 M01S03898.libedit +++| 04120 M01S03899.libedit +++| RCF4 BX6 X1 SET EOR INDICATOR 04121 M01S03900.libedit +++| SA6 RCFD 04122 M01S03901.libedit +++| SB7 X1 04123 M01S03902.libedit +++| SB6 WSB 04124 M01S03903.libedit +++| EQ B6,B7,RCF2 IF 0-LENGTH RECORD 04125 M01S03904.libedit +++| 04126 M01S03905.libedit +++|* CHECK PROGRAM TYPE, CHECK IGNORE TABLE, AND MAKE 04127 M01S03906.libedit +++|* ENTRY INTO THE PROGRAM NAME TABLE. 04128 M01S03907.libedit +++| 04129 M01S03908.libedit +++| SA1 X2-LWP LWA+1 OF DATA TRANSFERED 04130 M01S03909.libedit +++| SX2 WSB FWA OF BUFFER 04131 M01S03910.libedit +++| RJ SRT SET RECORD TYPE 04132 M01S03911.libedit +++| SA6 RCFC 04133 M01S03912.libedit +++| CALL DIS,RCFC,(=H*READING *) 04134 M01S03913.libedit +++| 04135 M01S03914.libedit +++|* COPY REST OF RECORD. 04136 M01S03915.libedit +++| 04137 M01S03916.libedit +++| SA1 RCFD 04138 M01S03917.libedit +++| NZ X1,RCF6 IF EOR READ 04139 M01S03918.libedit +++| RCF5 WRCW S,WSB,WSBL 04140 M01S03919.libedit +++| READW LGO,WSB,WSBL 04141 M01S03920.libedit +++| ZR X1,RCF5 IF NOT EOR READ 04142 M01S03921.libedit +++| SA1 LGO-LWP LWA + 1 OF DATA TRANSFERED 04143 M01S03922.libedit +++| RCF6 WRCW S,WSB,X1-WSB,R 04144 M01S03923.libedit +++| CALL CIT,RCFB,RCFC 04145 M01S03924.libedit +++| SA1 RCFC GET RECORD TYPE 04146 M01S03925.libedit +++| NZ X6,RCF7 IF NOT IGNORED
| Line S03926 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04147 M02S03926.251l664 ---| SB7 X1-5 04148 M01S00045.251l664 +++| SB7 X1-ULRT 04149 M01S03927.libedit +++| ZR B7,RCF8 IF TYPE *ULIB* 04150 M01S03928.libedit +++| JP RCF2 READ NEXT RECORD 04151 M01S03929.libedit +++|
| Line S03930 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04152 M02S03930.251l664 ---| RCF7 SX6 X1-8 04153 M01S00046.251l664 +++| RCF7 SX6 X1-ODRT 04154 M01S03931.libedit +++| ZR X6,RCF2 IF RECORD IS *OPLD* 04155 M01S03932.libedit +++| SA2 CULB 04156 M01S03933.libedit +++| ZR X2,RCF7.1 IF NOT *ULIB* MODE
| Line S03934 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04157 M02S03934.251l664 ---| SX6 X1-5 04158 M01S00047.251l664 +++| SX6 X1-ULRT 04159 M01S03935.libedit +++| ZR X6,RCF2 IF *ULIB* SKIP RECORD 04160 M01S03936.libedit +++| RCF7.1 ADDWRD PNT,RCFC 04161 M01S03937.libedit +++| SA1 RCFC CHECK PROGRAM TYPE
| Line S03938 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04162 M02S03938.251l664 ---| SB7 X1-5 04163 M01S00048.251l664 +++| SB7 X1-ULRT 04164 M01S03939.libedit +++| NZ B7,RCF2 IF NOT TYPE *ULIB* 04165 M01S03940.libedit +++| 04166 M01S03941.libedit +++|* COPY USER LIBRARY. 04167 M01S03942.libedit +++| 04168 M01S03943.libedit +++| RCF8 READW LGO,WSB,WSBL 04169 M01S03944.libedit +++| NG X1,RCF3 IF EOF 04170 M01S03945.libedit +++| SB6 WSB 04171 M01S03946.libedit +++| SB7 X1 04172 M01S03947.libedit +++| EQ B6,B7,RCF10 IF 0-LENGTH RECORD 04173 M01S03948.libedit +++| BX6 X1 SET EOR INDICATOR 04174 M01S03949.libedit +++| SA6 RCFD 04175 M01S03950.libedit +++| SA1 X2-LWP LWA+1 OF DATA TRANSFERED 04176 M01S03951.libedit +++| SX2 WSB 04177 M01S03952.libedit +++| RJ SRT SET RECORD TYPE 04178 M01S03953.libedit +++| SA6 RCFE 04179 M01S03954.libedit +++| SA1 RCFD 04180 M01S03955.libedit +++| NZ X1,RCF10 IF EOR 04181 M01S03956.libedit +++| RCF9 WRCW S,WSB,WSBL 04182 M01S03957.libedit +++| READW LGO,WSB,WSBL 04183 M01S03958.libedit +++| ZR X1,RCF9 IF NOT EOR 04184 M01S03959.libedit +++| RCF10 WRCW S,WSB,X1-WSB,R 04185 M01S03960.libedit +++| SA2 RCFE
| Line S03961 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04186 M02S03961.251l664 ---| SX6 X2-8 04187 M01S00049.251l664 +++| SX6 X2-ODRT 04188 M01S03962.libedit +++| NZ X6,RCF8 IF NOT OPLD 04189 M01S03963.libedit +++| EQ RCF2 READ NEXT RECORD 04190 M01S03964.libedit +++| 04191 M01S03965.libedit +++| 04192 M01S03966.libedit +++| RCFA DATA 0 INDEX IN FNT 04193 M01S03967.libedit +++| RCFB VFD 42/,18/ CURRENT FILE NAME 04194 M01S03968.libedit +++| 04195 M01S03969.libedit +++| RCFC VFD 42/,18/ 42/PROGRAM,18/TYPE 04196 M01S03970.libedit +++| VFD 42/,18/ 42/FILE,18/ADDRESS 04197 M01S03971.libedit +++| VFD 60/ 60/POSITION 04198 M01S03972.libedit +++| 04199 M01S03973.libedit +++| RCFD DATA 0 EOR INDICATOR 04200 M01S03974.libedit +++| RCFE DATA 0 USER LIBRARY RECORD NAME
| Line S03975 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04201 M02S03975.libed6 ---| RCFL BSS 0 04202 M01S03976.libedit +++| RFN SPACE 4,10 04203 M01S03977.libedit +++|** RFN - REPLACE FILE NAME. 04204 M01S03978.libedit +++|* 04205 M01S03979.libedit +++|* ENTRY (A1) = ADDRESS OF ENTRY IN LIST OF FILES. 04206 M01S03980.libedit +++|* (X1) = CONTENTS OF ENTRY IN LIST OF FILES. 04207 M01S03981.libedit +++|* (X6) = NEW FILE NAME. 04208 M01S03982.libedit +++|* 04209 M01S03983.libedit +++|* EXIT FILE NAME CHANGED. 04210 M01S03984.libedit +++|* 04211 M01S03985.libedit +++|* USES A - 3, 6. 04212 M01S03986.libedit +++|* X - 0, 1, 2, 3, 6. 04213 M01S03987.libedit +++| 04214 M01S03988.libedit +++|
| Line S03989 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04215 M02S03989.libed6 ---| NAME RFN,RFNL 04216 M01S03990.libedit +++| RFN SUBR ENTRY/EXIT 04217 M01S03991.libedit +++| MX0 -18 04218 M01S03992.libedit +++| BX1 -X0*X1 EXTRACT ADDRESS OF FET 04219 M01S03993.libedit +++| SA3 X1 READ FET+0 04220 M01S03994.libedit +++| BX2 X0*X6 04221 M01S03995.libedit +++| SX6 1R0 04222 M01S03996.libedit +++| LX6 -6 04223 M01S03997.libedit +++| BX6 X6-X2 04224 M01S03998.libedit +++| ZR X6,RFN1 IF FILE NAME = *0* 04225 M01S03999.libedit +++| BX6 X2 04226 M01S04000.libedit +++| ZR X6,RFN1 IF NO NEW FILE NAME 04227 M01S04001.libedit +++| BX3 -X0*X3 04228 M01S04002.libedit +++| BX6 X3+X6 04229 M01S04003.libedit +++| RFN1 SA6 A3 04230 M01S04004.libedit +++| BX6 X0*X6 04231 M01S04005.libedit +++| BX6 X6+X1 04232 M01S04006.libedit +++| SA6 A1 04233 M01S04007.libedit +++| EQ RFNX RETURN
| Line S04008 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04234 M02S04008.libed6 ---|
| Line S04009 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04235 M02S04009.libed6 ---| RFNL BSS 0 04236 M01S04010.libedit +++| RNP SPACE 4,10 04237 M01S04011.libedit +++|** RNP - RENAME PROGRAM. 04238 M01S04012.libedit +++|* ENTRY (B2) = ADDRESS OF PROGRAM NAME. 04239 M01S04013.libedit +++|* EXIT (X6) = NEW PROGRAM NAME AND TYPE. 04240 M01S04014.libedit +++|* 04241 M01S04015.libedit +++|* USES A - 1, 2, 3, 6. 04242 M01S04016.libedit +++|* X - 0, 1, 2, 3, 6. 04243 M01S04017.libedit +++|* B - 2, 3, 4. 04244 M01S04018.libedit +++|* 04245 M01S04019.libedit +++|* MACROS MESSAGE, SEARCH. 04246 M01S04020.libedit +++| 04247 M01S04021.libedit +++|
| Line S04022 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04248 M02S04022.libed6 ---| NAME RNP,RNPL 04249 M01S04023.libedit +++| RNP SUBR ENTRY/EXIT 04250 M01S04024.libedit +++| SX6 B2 SAVE PROGRAM NAME ADDRESS 04251 M01S04025.libedit +++| MX0 42 04252 M01S04026.libedit +++| SA6 RNPA 04253 M01S04027.libedit +++| SEARCH RNT,X6 04254 M01S04028.libedit +++| SA1 RNPA 04255 M01S04029.libedit +++| SB2 X6 04256 M01S04030.libedit +++| SA2 X1 04257 M01S04031.libedit +++| BX6 X2 04258 M01S04032.libedit +++| ZR B2,RNPX IF NO RENAME 04259 M01S04033.libedit +++| SA2 RNPA CHECK RECORD TYPE 04260 M01S04034.libedit +++| SA3 X2 04261 M01S04035.libedit +++| SB3 X3
| Line S04036 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04262 M02S04036.251l664 ---| SB4 B3-20B CHECK FOR TYPE *PROC* 04263 M01S00050.251l664 +++| ERRNZ TXRT CODE ASSUMES VALUE 04264 M01S00051.251l664 +++| SB4 B3+TXRT-PRRT CHECK FOR TYPE *PROC*
| Line S04037 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed2 |
Seq # *Modification Id* Act ----------------------------+ 04265 M02S04037.libed2 ---| NZ B4,RNP1 IF NOT TYPE *PROC*
| Line S04038 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed2 |
Seq # *Modification Id* Act ----------------------------+ 04266 M02S04038.libed2 ---| MESSAGE (=C* RENAME OF PROC TYPE NOT ALLOWED.*) 04267 M01S00004.libed2 +++| ZR B3,RNP1 IF TYPE *TEXT* 04268 M01S00005.libed2 +++| NZ B4,RNP2 IF NOT TYPE *PROC* 04269 M01S00006.libed2 +++| RNP1 MESSAGE (=C* RENAME NOT ALLOWED FOR PROC OR TEXT RECORD.*) 04270 M01S04039.libedit +++| EQ RNPX RETURN 04271 M01S04040.libedit +++|
| Line S04041 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed2 |
Seq # *Modification Id* Act ----------------------------+ 04272 M02S04041.libed2 ---| RNP1 SA2 B2+B1 04273 M01S00007.libed2 +++| RNP2 SA2 B2+B1 04274 M01S04042.libedit +++| BX6 X0*X2 04275 M01S04043.libedit +++| SX3 2R* 04276 M01S04044.libedit +++| BX6 X6+X3 04277 M01S04045.libedit +++| SA6 OUTPUTB+1 04278 M01S04046.libedit +++| BX6 X2 04279 M01S04047.libedit +++| SA6 X1 04280 M01S04048.libedit +++| EQ RNPX RETURN 04281 M01S04049.libedit +++| 04282 M01S04050.libedit +++| 04283 M01S04051.libedit +++| RNPA DATA 0 ADDRESS OF PROGRAM NAME
| Line S04052 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04284 M02S04052.libed6 ---| RNPL BSS 0 04285 M01S04053.libedit +++| SPACE 4 04286 M01S04054.libedit +++|** RWF - REWIND ALL FILES. 04287 M01S04055.libedit +++|* 04288 M01S04056.libedit +++|* REWIND ALL RANDOM FILES ALONG WITH THE FILES IN THE RFT. 04289 M01S04057.libedit +++|* 04290 M01S04058.libedit +++|* USES X - 0, 1, 2, 3, 6. 04291 M01S04059.libedit +++|* A - 1, 2, 3, 6. 04292 M01S04060.libedit +++|* B - 6, 7. 04293 M01S04061.libedit +++|* 04294 M01S04062.libedit +++|* MACROS EVICT, REWIND. 04295 M01S04063.libedit +++| 04296 M01S04064.libedit +++|
| Line S04065 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04297 M02S04065.libed6 ---| NAME RWF,RWFL 04298 M01S04066.libedit +++| RWF SUBR ENTRY/EXIT 04299 M01S04067.libedit +++| EVICT S,R 04300 M01S04068.libedit +++| SA1 P.FNT 04301 M01S04069.libedit +++| SA2 L.FNT 04302 M01S04070.libedit +++| SB6 X1 04303 M01S04071.libedit +++| SB7 X2+B6 04304 M01S04072.libedit +++| RWF1 EQ B6,B7,RWF2 IF END OF TABLE 04305 M01S04073.libedit +++| SA1 B6 CHECK IF FILE IS RANDOM 04306 M01S04074.libedit +++| MX0 42 04307 M01S04075.libedit +++| SX6 3 04308 M01S04076.libedit +++| BX2 -X0*X1 04309 M01S04077.libedit +++| BX1 X0*X1 04310 M01S04078.libedit +++| SB6 B6+B1 04311 M01S04079.libedit +++| BX6 X6+X1 04312 M01S04080.libedit +++| NZ X2,RWF1 LOOP IF FILE IS NON-RANDOM 04313 M01S04081.libedit +++| SA6 LGO 04314 M01S04082.libedit +++| REWIND A6,R 04315 M01S04083.libedit +++| EQ RWF1 04316 M01S04084.libedit +++| 04317 M01S04085.libedit +++| RWF2 SA1 P.RFT REWIND FILES IN THE REWIND FILE TABLE 04318 M01S04086.libedit +++| SA2 L.RFT 04319 M01S04087.libedit +++| SB6 X1 04320 M01S04088.libedit +++| SB7 X2+B6 04321 M01S04089.libedit +++| RWF3 EQ B6,B7,RWF4 IF END OF TABLE 04322 M01S04090.libedit +++| SA1 B6 04323 M01S04091.libedit +++| SX6 3 04324 M01S04092.libedit +++| SB6 B6+B1 04325 M01S04093.libedit +++| BX6 X6+X1 04326 M01S04094.libedit +++| SA6 LGO 04327 M01S04095.libedit +++| REWIND A6,R 04328 M01S04096.libedit +++| EQ RWF3 LOOP 04329 M01S04097.libedit +++| 04330 M01S04098.libedit +++| RWF4 SA1 CREW CHECK FOR NO REWIND OPTION 04331 M01S04099.libedit +++| ZR X1,RWF5 IF NO REWIND 04332 M01S04100.libedit +++| 04333 M01S04101.libedit +++| SX1 B1 04334 M01S04102.libedit +++| RWF5 SX6 B1 04335 M01S04103.libedit +++| BX6 X6-X1 04336 M01S04104.libedit +++| SA2 CVFY 04337 M01S04105.libedit +++| SA3 CCPY 04338 M01S04106.libedit +++| BX6 X6+X2 04339 M01S04107.libedit +++| BX6 X6+X3 04340 M01S04108.libedit +++| ZR X6,RWFX IF V AND C NOT SET AND R SET 04341 M01S04109.libedit +++| REWIND OLD,R 04342 M01S04110.libedit +++| REWIND NEW,R 04343 M01S04111.libedit +++| EQ RWFX RETURN
| Line S04112 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04344 M02S04112.libed6 ---|
| Line S04113 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04345 M02S04113.libed6 ---| RWFL BSS 0 04346 M01S04114.libedit +++| SPACE 4 04347 M01S04115.libedit +++|** RWS - REWIND SEQUENTIAL FILES. 04348 M01S04116.libedit +++|* 04349 M01S04117.libedit +++|* REWIND SEQUENTIAL CORRECTION FILES THAT HAVE REWIND SELECTED. 04350 M01S04118.libedit +++|* 04351 M01S04119.libedit +++|* USES X - 0, 1, 2, 3, 6, 7. 04352 M01S04120.libedit +++|* A - 1, 2, 3, 6. 04353 M01S04121.libedit +++|* B - 6, 7. 04354 M01S04122.libedit +++|* 04355 M01S04123.libedit +++|* MACROS REWIND, SEARCH. 04356 M01S04124.libedit +++| 04357 M01S04125.libedit +++|
| Line S04126 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04358 M02S04126.libed6 ---| NAME RWS,RWSL 04359 M01S04127.libedit +++| RWS SUBR ENTRY/EXIT 04360 M01S04128.libedit +++| SX6 B0 04361 M01S04129.libedit +++| SA6 RWSA 04362 M01S04130.libedit +++| RWS1 SA1 P.FNT 04363 M01S04131.libedit +++| SA2 L.FNT 04364 M01S04132.libedit +++| SA3 RWSA 04365 M01S04133.libedit +++| SB6 X1 04366 M01S04134.libedit +++| SB7 B6+X2 04367 M01S04135.libedit +++| SB6 B6+X3 04368 M01S04136.libedit +++| SX6 X3+B1 04369 M01S04137.libedit +++| EQ B6,B7,RWSX IF END OF FNT 04370 M01S04138.libedit +++| SA6 A3 04371 M01S04139.libedit +++| SA1 B6 READ FILE NAME 04372 M01S04140.libedit +++| MX0 42 04373 M01S04141.libedit +++| BX6 -X0*X1 04374 M01S04142.libedit +++| ZR X6,RWS1 IF FILE IS RANDOM 04375 M01S04143.libedit +++| SEARCH RFT,B6,(=77777777777777000000B) 04376 M01S04144.libedit +++| ZR X6,RWS1 IF FILE IS NOT IN RFT 04377 M01S04145.libedit +++| SA1 P.FNT REWIND FILE 04378 M01S04146.libedit +++| SA3 RWSA 04379 M01S04147.libedit +++| IX2 X1+X3 04380 M01S04148.libedit +++| MX0 42 04381 M01S04149.libedit +++| SA2 X2-1 04382 M01S04150.libedit +++| BX6 X0*X2 04383 M01S04151.libedit +++| SX7 B1 04384 M01S04152.libedit +++| IX6 X6+X7 04385 M01S04153.libedit +++| SA6 A2 04386 M01S04154.libedit +++| SA6 LGO 04387 M01S04155.libedit +++| REWIND A6,R 04388 M01S04156.libedit +++| EQ RWS1 04389 M01S04157.libedit +++| 04390 M01S04158.libedit +++| 04391 M01S04159.libedit +++| RWSA DATA 0 FNT INDEX
| Line S04160 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04392 M02S04160.libed6 ---| RWSL BSS 0 04393 M01S04161.libedit +++| SPACE 4 04394 M01S04162.libedit +++|** SMT - SEARCH MANAGED TABLE. 04395 M01S04163.libedit +++|* 04396 M01S04164.libedit +++|* ENTRY (B2) = ADDRESS OF TABLE POINTER. 04397 M01S04165.libedit +++|* (B3) = ADDRESS OF ENTRY. 04398 M01S04166.libedit +++|* (B4) = ADDRESS OF MASK. 04399 M01S04167.libedit +++|* (B5) = INDEX INTO TABLE. 04400 M01S04168.libedit +++|* EXIT (B6) = ADDRESS OF ADDRESS OF ENTRY IF FOUND. 04401 M01S04169.libedit +++|* (B6) = ADDRESS OF 0 IF NOT FOUND. 04402 M01S04170.libedit +++|* (X6) = ADDRESS OF ENTRY IF FOUND 04403 M01S04171.libedit +++|* (X6) = 0 IF NOT FOUND 04404 M01S04172.libedit +++|* 04405 M01S04173.libedit +++|* USES A - 1, 2, 3, 4, 5, 6. 04406 M01S04174.libedit +++|* X - 1, 2, 3, 4, 5, 6. 04407 M01S04175.libedit +++|* B - 2, 3, 7. 04408 M01S04176.libedit +++| 04409 M01S04177.libedit +++|
| Line S04178 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04410 M02S04178.libed6 ---| NAME SMT,SMTL 04411 M01S04179.libedit +++| SMT SUBR ENTRY/EXIT 04412 M01S04180.libedit +++| SA1 B2 SET TABLE POINTER 04413 M01S04181.libedit +++| SA2 A1+B1 SET TABLE LENGTH 04414 M01S04182.libedit +++| SA3 A2+B1 SET NUMBER OF WORDS/ENTRY 04415 M01S04183.libedit +++| SA4 B3 (X4) = ENTRY 04416 M01S04184.libedit +++| SB2 X1 (B2) = FWA TABLE 04417 M01S04185.libedit +++| SB7 X2+B2 (B7) = LWA TABLE 04418 M01S04186.libedit +++| SB3 X3 (B3) = WORDS/ENTRY 04419 M01S04187.libedit +++| SA5 B4 (X5) = MASK 04420 M01S04188.libedit +++| SMT1 EQ B2,B7,SMT2 IF END OF TABLE 04421 M01S04189.libedit +++| SA1 B2+B5 04422 M01S04190.libedit +++| BX6 X4-X1 04423 M01S04191.libedit +++| BX6 X5*X6 04424 M01S04192.libedit +++| SB2 B2+B3 04425 M01S04193.libedit +++| NZ X6,SMT1 IF NOT FOUND 04426 M01S04194.libedit +++| SX6 B2-B3 SET ENTRY ADDRESS 04427 M01S04195.libedit +++| SA6 B6 04428 M01S04196.libedit +++| EQ SMTX RETURN 04429 M01S04197.libedit +++| 04430 M01S04198.libedit +++| SMT2 SX6 B0 SET NOT FOUND 04431 M01S04199.libedit +++| SA6 B6 04432 M01S04200.libedit +++| EQ SMTX RETURN 04433 M01S04201.libedit +++| 04434 M01S04202.libedit +++| 04435 M01S04203.libedit +++| SMTA VFD 60/0
| Line S04204 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04436 M02S04204.libed6 ---| SMTL BSS 0 04437 M01S04205.libedit +++| SPACE 4 04438 M01S04206.libedit +++|** STB - SET TITLE BUFFER. 04439 M01S04207.libedit +++|* 04440 M01S04208.libedit +++|* ENTRY (B2) = ADDRESS OF TITLE. 04441 M01S04209.libedit +++|* (B6) = 0 IF TITLE. 04442 M01S04210.libedit +++|* = 1 IF SUBTITLE. 04443 M01S04211.libedit +++|* 04444 M01S04212.libedit +++|* USES A - 1, 2, 6. 04445 M01S04213.libedit +++|* X - 0, 1, 2, 6. 04446 M01S04214.libedit +++|* B - 2, 6, 7. 04447 M01S04215.libedit +++| 04448 M01S04216.libedit +++|
| Line S04217 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04449 M02S04217.libed6 ---| NAME STB,STBL 04450 M01S04218.libedit +++| STB SUBR ENTRY/EXIT 04451 M01S04219.libedit +++| NZ B6,STB0 IF SUBTITLE 04452 M01S04220.libedit +++| SB6 TITA 04453 M01S04221.libedit +++| SB7 TITB 04454 M01S04222.libedit +++| EQ STB1 SET TITLE BUFFER 04455 M01S04223.libedit +++| 04456 M01S04224.libedit +++| STB0 SB6 TITE 04457 M01S04225.libedit +++| SB7 TITF 04458 M01S04226.libedit +++| STB1 SX1 1R 04459 M01S04227.libedit +++| MX0 54
| Line S04228 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04460 M02S04228.ns22000 ---| SX6 LNCNT RESET LINE COUNT 04461 M01S00018.ns22000 +++| SX6 99999 FORCE PAGE EJECT 04462 M01S04229.libedit +++| SA6 LINE 04463 M01S04230.libedit +++| SA2 B2 COPY TITLE OR SUBTITLE 04464 M01S04231.libedit +++| BX6 X2 04465 M01S04232.libedit +++| BX7 -X0*X2 04466 M01S04233.libedit +++| SB2 B2+B1 04467 M01S04234.libedit +++| ZR X7,STB2 IF END OF TITLE 04468 M01S04235.libedit +++| SA6 B6 04469 M01S04236.libedit +++| SB6 B6+B1 04470 M01S04237.libedit +++| NE B6,B7,STB1 IF NOT END OF TITLE BUFFER 04471 M01S04238.libedit +++| EQ STBX RETURN 04472 M01S04239.libedit +++| 04473 M01S04240.libedit +++|* ADD TRAILING BLANKS. 04474 M01S04241.libedit +++| 04475 M01S04242.libedit +++| STB2 BX6 X6+X1 04476 M01S04243.libedit +++| LX1 6 04477 M01S04244.libedit +++| LX0 6 04478 M01S04245.libedit +++| BX7 -X0*X2 04479 M01S04246.libedit +++| ZR X7,STB2 LOOP 04480 M01S04247.libedit +++| SA6 B6 04481 M01S04248.libedit +++| SA1 =1H BLANK FILL REMAINING WORDS 04482 M01S04249.libedit +++| BX6 X1 04483 M01S04250.libedit +++| SB6 B6+B1 04484 M01S04251.libedit +++| STB3 EQ B6,B7,STBX IF END OF BUFFER 04485 M01S04252.libedit +++| SA6 B6 04486 M01S04253.libedit +++| SB6 B6+B1 04487 M01S04254.libedit +++| EQ STB3
| Line S04255 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04488 M02S04255.libed6 ---|
| Line S04256 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04489 M02S04256.libed6 ---| STBL BSS 0 04490 M01S04257.libedit +++| SPACE 4 04491 M01S04258.libedit +++|** SUL - SKIP USER LIBRARY. 04492 M01S04259.libedit +++|* 04493 M01S04260.libedit +++|* ENTRY (B2) = ADDRESS OF CURRENT PROGRAM TYPE. 04494 M01S04261.libedit +++|* (B3) = ADDRESS TO RETURN EOR INDICATOR. 04495 M01S04262.libedit +++|* 04496 M01S04263.libedit +++|* USES A - 1, 2, 6, 7. 04497 M01S04264.libedit +++|* X - 1, 2, 5, 6, 7. 04498 M01S04265.libedit +++|* B - 6, 7. 04499 M01S04266.libedit +++|* 04500 M01S04267.libedit +++|* CALLS SRT. 04501 M01S04268.libedit +++|* 04502 M01S04269.libedit +++|* MACROS READW. 04503 M01S04270.libedit +++| 04504 M01S04271.libedit +++|
| Line S04272 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04505 M02S04272.libed6 ---| NAME SUL,SULL 04506 M01S04273.libedit +++| SUL SUBR ENTRY/EXIT 04507 M01S04274.libedit +++| SA1 B2 CHECK IF USER LIBRARY 04508 M01S04275.libedit +++| SX7 B3
| Line S04276 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04509 M02S04276.251l664 ---| SX6 X1-5 04510 M01S00052.251l664 +++| SX6 X1-ULRT 04511 M01S04277.libedit +++| SA7 SULA 04512 M01S04278.libedit +++| NZ X6,SUL4 IF NOT USER LIBRARY 04513 M01S04279.libedit +++| SUL1 READW P,WSA,WSAL 04514 M01S04280.libedit +++| NG X1,SUL5 IF EOF 04515 M01S04281.libedit +++| SB6 WSA 04516 M01S04282.libedit +++| SB7 X1 04517 M01S04283.libedit +++| EQ B6,B7,SUL1 IF 0-LENGTH RECORD 04518 M01S04284.libedit +++| BX5 X1 04519 M01S04285.libedit +++| SA1 X2-LWP LWA+1 OF DATA TRANSFERED 04520 M01S04286.libedit +++| SX2 WSA 04521 M01S04287.libedit +++| RJ SRT SET RECORD TYPE 04522 M01S04288.libedit +++| SA6 SULB 04523 M01S04289.libedit +++| SA1 SULA 04524 M01S04290.libedit +++| BX7 X5 STORE EOR INDICATOR 04525 M01S04291.libedit +++| SA7 X1 04526 M01S04292.libedit +++| NZ X5,SUL3 IF EOR ON PREVIOUS READ 04527 M01S04293.libedit +++| SUL2 READW OLD,WSA,WSAL 04528 M01S04294.libedit +++| SUL3 ZR X1,SUL2 IF NOT EOR 04529 M01S04295.libedit +++| SA2 SULB
| Line S04296 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04530 M02S04296.251l664 ---| SB7 X2-8 04531 M01S00053.251l664 +++| SB7 X2-ODRT 04532 M01S04297.libedit +++| NZ B7,SUL1 LOOP TO END OF USER LIBRARY 04533 M01S04298.libedit +++| SUL4 READW P,WSA,WSAL 04534 M01S04299.libedit +++| SUL5 SA2 SULA STORE EOR INDICATOR 04535 M01S04300.libedit +++| BX6 X1 04536 M01S04301.libedit +++| SA6 X2 04537 M01S04302.libedit +++| EQ SULX RETURN 04538 M01S04303.libedit +++| 04539 M01S04304.libedit +++| 04540 M01S04305.libedit +++| SULA DATA 0 ADDRESS TO RETURN EOR INDICATOR 04541 M01S04306.libedit +++| SULB DATA 0 PROGRAM NAME
| Line S04307 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04542 M02S04307.libed6 ---| SULL BSS 0 04543 M01S04308.libedit +++| SUM SPACE 4,10 04544 M01S04309.libedit +++|** SUM - SET *ULIB* MODE. 04545 M01S04310.libedit +++|* 04546 M01S04311.libedit +++|* ENTRY (CULB) = *ULIB* MODE FLAG. 04547 M01S04312.libedit +++|* 04548 M01S04313.libedit +++|* EXIT ROUTINE PRESET FOR CALLING *LIBGEN*. 04549 M01S04314.libedit +++|* 04550 M01S04315.libedit +++|* USES A - 1, 2, 3, 4, 6, 7. 04551 M01S04316.libedit +++|* X - 0, 1, 2, 3, 4, 6, 7. 04552 M01S04317.libedit +++| 04553 M01S04318.libedit +++|
| Line S04319 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04554 M02S04319.libed6 ---| NAME SUM,SUML 04555 M01S04320.libedit +++| SUM SUBR ENTRY/EXIT 04556 M01S04321.libedit +++| SA4 CULB 04557 M01S04322.libedit +++| ZR X4,SUMX IF *U* NOT SPECIFIED 04558 M01S04323.libedit +++| MX0 42 04559 M01S04324.libedit +++| SA1 CCPY 04560 M01S04325.libedit +++| ZR X1,SUM1 IF NO RECOPY 04561 M01S04326.libedit +++| SA2 NEW 04562 M01S04327.libedit +++| BX6 X0*X2 04563 M01S04328.libedit +++| SA6 GULD SET F=NEW 04564 M01S04329.libedit +++| SA2 OLD 04565 M01S04330.libedit +++| BX6 X0*X2 04566 M01S04331.libedit +++| SA6 GULF SET P=OLD 04567 M01S04332.libedit +++| EQ SUM2 SET N=CULB 04568 M01S04333.libedit +++| 04569 M01S04334.libedit +++| SUM1 SA2 SUMA 04570 M01S04335.libedit +++| SA3 NEW 04571 M01S04336.libedit +++| BX6 X2*X0 04572 M01S04337.libedit +++| BX7 X0*X3 04573 M01S04338.libedit +++| BX3 -X0*X3 04574 M01S04339.libedit +++| BX6 X6+X3 04575 M01S04340.libedit +++| SA6 A3+ SET NEW FILE NAME 04576 M01S04341.libedit +++| SA7 GULF SET P=NEW 04577 M01S04342.libedit +++| SUM2 BX6 X4*X0 04578 M01S04343.libedit +++| SA6 GULH SET N=CULB 04579 M01S04344.libedit +++| EQ SUMX RETURN 04580 M01S04345.libedit +++| 04581 M01S04346.libedit +++| 04582 M01S04347.libedit +++| SUMA VFD 42/7LZZZZZG2,18/0
| Line S04348 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04583 M02S04348.libed6 ---| SUML BSS 0 04584 M01S04349.libedit +++| SUM SPACE 4,10 04585 M01S04350.libedit +++|** VFY - CALL VFYLIB TO VERIFY *OLD* AND *NEW*. 04586 M01S04351.libedit +++|* 04587 M01S04352.libedit +++|* ENTRY (CVFY) = 1 VERIFY REQUESTED. 04588 M01S04353.libedit +++|* 04589 M01S04354.libedit +++|* EXIT TO *VFYLIB*. 04590 M01S04355.libedit +++|* 04591 M01S04356.libedit +++|* MACROS MESSAGE, OVERLAY, RECALL, SETLOF. 04592 M01S04357.libedit +++| 04593 M01S04358.libedit +++|
| Line S04359 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04594 M02S04359.libed6 ---| NAME VFY,VFYL 04595 M01S04360.libedit +++| VFY SUBR ENTRY/EXIT 04596 M01S04361.libedit +++| SA1 CVFY 04597 M01S04362.libedit +++| ZR X1,VFY IF NO VERIFY 04598 M01S04363.libedit +++| RECALL OUTPUT WAIT FOR END OF OUTPUT 04599 M01S04364.libedit +++| MESSAGE (=C* VFYLIB*),1 04600 M01S04365.libedit +++| RECALL S 04601 M01S04366.libedit +++| RECALL OLD 04602 M01S04367.libedit +++| RECALL NEW 04603 M01S04368.libedit +++| SA1 OLD SET *VFYLIB* PARAMETERS 04604 M01S04369.libedit +++| MX0 42 04605 M01S04370.libedit +++| BX6 X0*X1 04606 M01S04371.libedit +++| SA6 2 04607 M01S04372.libedit +++| SA1 NEW 04608 M01S04373.libedit +++| BX6 X0*X1 04609 M01S04374.libedit +++| SA6 A6+B1 04610 M01S04375.libedit +++| SA1 OUTPUT 04611 M01S04376.libedit +++| BX6 X0*X1 04612 M01S04377.libedit +++| SA6 A6+B1 04613 M01S04378.libedit +++| SX6 3 SET PARAMETER COUNT 04614 M01S04379.libedit +++| SA6 ACTR 04615 M01S04380.libedit +++| SA2 FL 04616 M01S04381.libedit +++| LX2 30 04617 M01S04382.libedit +++| SA0 X2 SET (A0) = FL FOR *VFYLIB* 04618 M01S04383.libedit +++| SETLOF =0 CLEAR LIST OF FILES POINTER 04619 M01S04384.libedit +++| OVERLAY VFYA,,SYSTEM 04620 M01S04385.libedit +++| PS 0 04621 M01S04386.libedit +++| 04622 M01S04387.libedit +++| 04623 M01S04388.libedit +++| VFYA CON 0LVFYLIB
| Line S04389 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04624 M02S04389.libed6 ---| VFYL BSS 0
| Line S04390 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04625 M02S04390.251l664 ---| SPACE 4 04626 M01S00054.251l664 +++| SPACE 4,15 04627 M01S04391.libedit +++|** WPD - WRITE PROGRAM DIRECTORY. 04628 M01S04392.libedit +++|*
| Line S04393 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04629 M02S04393.libed10 ---|* ENTRY (B2) = ADDRESS OF OPL DIRECTORY NAME. 04630 M01S00001.libed10 +++|* ENTRY (X1) = OLD FILE EOI STATUS INDICATOR. 04631 M01S00002.libed10 +++|* (B2) = ADDRESS OF OPL DIRECTORY NAME. 04632 M01S04394.libedit +++|* 04633 M01S04395.libedit +++|* USES A - 1, 2, 5, 6, 7. 04634 M01S04396.libedit +++|* X - 0, 1, 2, 5, 6, 7. 04635 M01S04397.libedit +++|* B - 2, 6, 7. 04636 M01S04398.libedit +++|*
| Line S04399 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04637 M02S04399.libed10 ---|* CALLS CCM, ORW. 04638 M01S00003.libed10 +++|* CALLS CCM, EPN, ORW, OZR. 04639 M01S04400.libedit +++|*
| Line S04401 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04640 M02S04401.libed10 ---|* MACROS ADDWRD, CALL, WRCW, WRITE, WRITEF, WRITER, WRITEW. 04641 M01S00004.libed10 +++|* MACROS ADDWRD, CALL, FILINFO, WRCW, WRITE, 04642 M01S00005.libed10 +++|* WRITECW, WRITEF, WRITER, WRITEW. 04643 M01S04402.libedit +++| 04644 M01S04403.libedit +++|
| Line S04404 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04645 M02S04404.libed6 ---| NAME WPD,WPDL 04646 M01S04405.libedit +++| WPD SUBR ENTRY/EXIT 04647 M01S04406.libedit +++| SA5 NPLN 04648 M01S04407.libedit +++| NZ X5,WPD1 IF BUILD 04649 M01S00006.libed10 +++| SA5 FLST+/FLST/NEW SET UP *FILINFO* BLOCK 04650 M01S00007.libed10 +++| MX0 42 04651 M01S00008.libed10 +++| BX5 X0*X5 04652 M01S00009.libed10 +++| SX6 50001B 04653 M01S00010.libed10 +++| BX6 X5+X6 04654 M01S00011.libed10 +++| SA6 WPDD 04655 M01S00012.libed10 +++| FILINFO WPDD 04656 M01S00013.libed10 +++| SA2 WPDD+1 *FILINFO* STATUS WORD 04657 M01S04408.libedit +++| SA5 B2 04658 M01S00014.libed10 +++| LX2 59-24 04659 M01S00015.libed10 +++| NG X2,WPD0 IF NEW FILE IS ON MAGNETIC TAPE
| Line S04409 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04660 M02S04409.251l664 ---| SX6 X5-8 04661 M01S00055.251l664 +++| SX6 X5-ODRT
| Line S04410 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04662 M02S04410.libed10 ---| SB7 B0 04663 M01S04411.libedit +++| ZR X6,WPD1 IF LAST RECORD TYPE *OPLD* 04664 M01S00016.libed10 +++| WPD0 SB7 B0 04665 M01S04412.libedit +++| SX6 X1+2 CHECK FOR EOI ON OLD FILE 04666 M01S04413.libedit +++| MX7 4 04667 M01S04414.libedit +++| BX5 X5-X5 CLEAR DIRECTORY TEXT 04668 M01S04415.libedit +++| ZR X6,WPD1 IF EOI ON OLD FILE 04669 M01S04416.libedit +++| LX7 4+48 04670 M01S04417.libedit +++| SA7 WDAA+1 SET LEVEL 17 EOR 04671 M01S04418.libedit +++| WRCW N,B0,B7 04672 M01S04419.libedit +++| SX7 0 04673 M01S04420.libedit +++| SA7 WDAA+1 RESET CONTROL WORD 04674 M01S04421.libedit +++| CALL OZR,(=1H ),OLD,(=7H**EOF**) 04675 M01S04422.libedit +++| WPD1 WRITECW N,R 04676 M01S04423.libedit +++| ZR X5,WPD IF NO DIRECTORY 04677 M01S04424.libedit +++| MX0 42 04678 M01S04425.libedit +++| BX6 X0*X5 STORE NAME IN 7700 TABLE 04679 M01S04426.libedit +++| SA6 WPDA+1
| Line S04427 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04680 M02S04427.251l664 ---| SX7 8 04681 M01S00056.251l664 +++| SX7 ODRT 04682 M01S04428.libedit +++| BX7 X6+X7 04683 M01S04429.libedit +++| SB2 WPDC 04684 M01S04430.libedit +++| SA7 B2 04685 M01S04431.libedit +++| SA1 DATE. 04686 M01S04432.libedit +++| BX6 X1 04687 M01S04433.libedit +++| SA6 A6+B1 04688 M01S04434.libedit +++| CALL EPN,B2 04689 M01S04435.libedit +++| ADDWRD NPT,NIND 04690 M01S04436.libedit +++| SA1 L.NPT SET 7000 TABLE LENGTH 04691 M01S04437.libedit +++| MX6 3 04692 M01S04438.libedit +++| BX6 X6+X1 04693 M01S04439.libedit +++| SA6 WPDB 04694 M01S04440.libedit +++| WRITE N,* 04695 M01S04441.libedit +++| CALL CCM,WPDA,WPDC 04696 M01S04442.libedit +++| SB6 X6 WRITE 7000 TABLE 04697 M01S04443.libedit +++| SB7 WPDB+1 04698 M01S04444.libedit +++| WRITEW NEW,B6,B7-B6 04699 M01S04445.libedit +++| SA1 P.NPT 04700 M01S04446.libedit +++| SA2 L.NPT 04701 M01S04447.libedit +++| WRITEW NEW,X1,X2 04702 M01S04448.libedit +++| WRITER NEW 04703 M01S04449.libedit +++| WRITEF X2 04704 M01S04450.libedit +++| CALL ORW,(=5HADDED),(=5H*****) 04705 M01S04451.libedit +++| CALL OZR,(=1H ),OLD,(=7H**EOF**) 04706 M01S04452.libedit +++| EQ WPDX RETURN 04707 M01S04453.libedit +++| 04708 M01S04454.libedit +++| 04709 M01S04455.libedit +++| WPDA DATA 77000016000000000000B 04710 M01S04456.libedit +++| BSSZ 16B 04711 M01S04457.libedit +++| WPDB DATA 70000000000000000000B 04712 M01S04458.libedit +++| 04713 M01S04459.libedit +++| WPDC VFD 42/,18/ 42/PROGRAM,18/TYPE 04714 M01S04460.libedit +++| BSS 1 04715 M01S00017.libed10 +++| 04716 M01S00018.libed10 +++| WPDD BSS 5 *FILINFO* PARAMETER BLOCK
| Line S04461 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04717 M02S04461.libed6 ---| WPDL BSS 0 04718 M01S04462.libedit +++| SPACE 4 04719 M01S04463.libedit +++| TITLE BUFFERS. 04720 M01S04464.libedit +++|** DATA AND FILE ENVIRONMENT TABLES. 04721 M01S04465.libedit +++| 04722 M01S04466.libedit +++|* INDEX TAGS FOR WORDS PRECEEDING EACH FET. 04723 M01S04467.libedit +++| 04724 M01S04468.libedit +++| LWP EQU 3 LWA+1 OF DATA TRANSFERED. 04725 M01S04469.libedit +++| WRB EQU 2 WORDS REMAINING IN BLOCK. 04726 M01S04470.libedit +++| ERF EQU 1 EOR FLAG. 04727 M01S04471.libedit +++| 04728 M01S04472.libedit +++|
| Line S04473 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04729 M02S04473.libed6 ---| NAME FET,FETL 04730 M01S04474.libedit +++| CW CON 1 CONTROL WORD READ FLAG 04731 M01S04475.libedit +++| SC CON 1 SECTOR COUNT 04732 M01S04476.libedit +++| 04733 M01S04477.libedit +++| CON 0 LWA+1 OF DATA TRANSFERED 04734 M01S04478.libedit +++| CON -0 WORDS REMAINING IN BLOCK (OLD) 04735 M01S04479.libedit +++| CON 0 EOR FLAG 04736 M01S04480.libedit +++| P BSS 0
| Line S04481 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04737 M02S04481.274l797 ---| OLD FILEB OLDB,OLDL,(WSA=WSA,WSAL) 04738 M01S00007.274l797 +++| OLD FILEB OLDB,OLDL,(FET=10),(WSA=WSA,WSAL) 04739 M01S00008.274l797 +++| ORG P+11B 04740 M01S00009.274l797 +++| VFD 36/,6/ODEBL,18/PODEB POINTER TO *OD* EXT. BUFFER 04741 M01S00010.274l797 +++| ORG P+10 04742 M01S04482.libedit +++| 04743 M01S04483.libedit +++| CON 0 LWA+1 OF DATA TRANSFERED 04744 M01S04484.libedit +++| CON -0 WORDS REMAINING IN BLOCK (NEW) 04745 M01S04485.libedit +++| CON 0 EOR FLAG 04746 M01S04486.libedit +++| N BSS 0
| Line S04487 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04747 M02S04487.274l797 ---| NEW RFILEB NEWB,NEWL 04748 M01S00011.274l797 +++| NEW RFILEB NEWB,NEWL,(FET=10) 04749 M01S00012.274l797 +++| ORG N+11B 04750 M01S00013.274l797 +++| VFD 36/,6/ODEBL,18/NODEB POINTER TO *OD* EXT. BUFFER 04751 M01S00014.274l797 +++| ORG N+10 04752 M01S04488.libedit +++| 04753 M01S04489.libedit +++| CON 0 LWA+1 OF DATA TRANSFERED 04754 M01S04490.libedit +++| CON -0 04755 M01S04491.libedit +++| CON 0 04756 M01S04492.libedit +++| S BSS 0 04757 M01S04493.libedit +++| ZZZZZG1 RFILEB SBUF,SBUFL 04758 M01S04494.libedit +++| 04759 M01S04495.libedit +++| CON 0 LWA+1 OF DATA TRANSFERED 04760 M01S04496.libedit +++| CON -0 04761 M01S04497.libedit +++| CON 0 04762 M01S04498.libedit +++| LGO RFILEB LGOB,LGOL,(WSA=WSB,WSBL) 04763 M01S04499.libedit +++| 04764 M01S04500.libedit +++| O BSS 0 04765 M01S04501.libedit +++| OUTPUT FILEC OUTB,OUTL,(WSA=OUTPUTB,DCBL+1),(FET=10) 04766 M01S04502.libedit +++| 04767 M01S04503.libedit +++| I BSS 0 04768 M01S04504.libedit +++| INPUT FILEC INPB,INPL,(WSA=DCB,DCBL),(FET=10) 04769 M01S04505.libedit +++| 04770 M01S04506.libedit +++| TTYOUT BSS 0 04771 M01S04507.libedit +++| ZZZZZG0 FILEC TTYB,TTYL,(FET=10) 04772 M01S04508.libedit +++| 04773 M01S00015.274l797 +++| 04774 M01S00016.274l797 +++|* OPTICAL DISK EXTENSION BUFFERS. 04775 M01S00017.274l797 +++| 04776 M01S00018.274l797 +++| PODEB BSSZ ODEBL *OLD* 04777 M01S00019.274l797 +++| NODEB BSSZ ODEBL *NEW* 04778 M01S04509.libedit +++|* FILE LIST. 04779 M01S04510.libedit +++| 04780 M01S04511.libedit +++| FLST CON FLSTL 04781 M01S04512.libedit +++| 04782 M01S04513.libedit +++| LOC 1 04783 M01S04514.libedit +++| QUAL FLST 04784 M01S04515.libedit +++| 04785 M01S00003.ns2371a +++| TTYOUT VFD 42/0LZZZZZG0,18///TTYOUT 04786 M01S00004.ns2371a +++| INPUT VFD 42/0LINPUT,18///INPUT
| Line S04516 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | ns2371 |
Seq # *Modification Id* Act ----------------------------+ 04787 M02S04516.ns2371 ---| TTYOUT VFD 42/0LZZZZZG0,18///TTYOUT 04788 M01S00001.ns2371 +++| OUTPUT VFD 42/0LOUTPUT,18///OUTPUT
| Line S04517 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | ns2371a |
Seq # *Modification Id* Act ----------------------------+ 04789 M02S04517.ns2371a ---| INPUT VFD 42/0LINPUT,18///INPUT
| Line S04518 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | ns2371 |
Seq # *Modification Id* Act ----------------------------+ 04790 M02S04518.ns2371 ---| OUTPUT VFD 42/0LOUTPUT,18///OUTPUT 04791 M01S04519.libedit +++| OLD VFD 42/0LOLD,18///OLD 04792 M01S04520.libedit +++| NEW VFD 42/0LNEW,18///NEW 04793 M01S04521.libedit +++| LGO VFD 42/0LLGO,18///LGO
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2371 |
M02 (Updated by) | ns2371a |
Seq # *Modification Id* Act ----------------------------+ 04794 M02S00002.ns2371a ---| TTYOUT VFD 42/0LZZZZZG0,18///TTYOUT 04795 M01S04522.libedit +++| 04796 M01S04523.libedit +++| QUAL * 04797 M01S04524.libedit +++| LOC *O 04798 M01S04525.libedit +++| CON 0 04799 M01S04526.libedit +++| FLSTL EQU *-FLST 04800 M01S04527.libedit +++| 04801 M01S04528.libedit +++| DATE. DATA 0 CURRENT DATE 04802 M01S04529.libedit +++| 04803 M01S04530.libedit +++| LGO. DATA 0LLGO CORRECTION FILE NAME 04804 M01S04531.libedit +++| 04805 M01S04532.libedit +++| LIST VFD 56/0 LIST OPTIONS 04806 M01S04533.libedit +++| VFD 1/1 FULL LIST 04807 M01S04534.libedit +++| VFD 1/1 LIST DIRECTIVES 04808 M01S04535.libedit +++| VFD 1/1 LIST MODIFICATIONS MADE 04809 M01S04536.libedit +++| VFD 1/1 LIST ERRORS 04810 M01S04537.libedit +++| 04811 M01S04538.libedit +++| BRFM DATA 0 BRIEF MODE FLAG 04812 M01S04539.libedit +++| 04813 M01S04540.libedit +++| CADD DATA 0 NO INSERT AT EOF FLAG 04814 M01S04541.libedit +++| 04815 M01S04542.libedit +++| CREW DATA 0 NO REWIND FLAG 04816 M01S04543.libedit +++| 04817 M01S04544.libedit +++| CVFY DATA 0 VERIFY FLAG 04818 M01S04545.libedit +++| 04819 M01S04546.libedit +++| CCPY DATA 0 COPY FLAG 04820 M01S04547.libedit +++| 04821 M01S04548.libedit +++| CDOP DATA 0 IGNORE ERROR FLAG 04822 M01S04549.libedit +++| 04823 M01S04550.libedit +++| CZOP DATA 0 *Z* OPTION FLAG 04824 M01S04551.libedit +++| 04825 M01S04552.libedit +++| CULB DATA 0 USER LIBRARY OPTION 04826 M01S04553.libedit +++| 04827 M01S04554.libedit +++| FL DATA 0 FIELD LENGTH 04828 M01S04555.libedit +++| 04829 M01S04556.libedit +++| TTYI DATA 1 NON-TTY INPUT FLAG 04830 M01S04557.libedit +++| 04831 M01S04558.libedit +++| TTYO DATA 1 NON-TTY OUTPUT FLAG 04832 M01S04559.libedit +++| 04833 M01S04560.libedit +++| SBP VFD 60/DSB STRING BUFFER POINTER 04834 M01S04561.libedit +++|
| Line S04562 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04835 M02S04562.ns22000 ---| LINE VFD 60/LNCNT LINE NUMBER COUNT 04836 M01S00019.ns22000 +++| LINE CON 99999 LINE COUNT 04837 M01S00020.ns22000 +++| 04838 M01S00021.ns22000 +++| LL CON 0 PAGE LINE LIMIT 04839 M01S00022.ns22000 +++| 04840 M01S00023.ns22000 +++| PD CON 0 PRINT DENSITY FORMAT CONTROL 04841 M01S00024.ns22000 +++| PDFLG CON 1 FORMAT CONTROL NOT WRITTEN FLAG 04842 M01S04563.libedit +++| 04843 M01S04564.libedit +++| PAGE DATA 0 PAGE NUMBER COUNT 04844 M01S04565.libedit +++| 04845 M01S04566.libedit +++| NIND VFD 42/,18/ 42/PROGRAM,18/TYPE 04846 M01S04567.libedit +++| CON 0 RANDOM ADDRESS 04847 M01S04568.libedit +++| 04848 M01S04569.libedit +++| NPLN DATA 0 NEW PROGRAM LIBRARY NAME 04849 M01S04570.libedit +++| 04850 M01S04571.libedit +++| TITA DATA H* LIBEDIT DIRECTIVES. * 04851 M01S04572.libedit +++| DATA H* * 04852 M01S04573.libedit +++| TITAL EQU *-TITA 04853 M01S04574.libedit +++| TITB DATA H* 01/20/69.* 04854 M01S04575.libedit +++| TITC DATA H* 00.00.00.* 04855 M01S04576.libedit +++| DATA H* * 04856 M01S04577.libedit +++| TITD DATA H*PAGE * 04857 M01S04578.libedit +++| 04858 M01S04579.libedit +++| TITE DATA H* * 04859 M01S04580.libedit +++| DATA H* * 04860 M01S04581.libedit +++| DATA H* * 04861 M01S04582.libedit +++| TITEL EQU *-TITE 04862 M01S04583.libedit +++| TITF BSS 0
| Line S04584 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04863 M02S04584.libed6 ---| FETL BSS 0 04864 M01S04585.libedit +++| SPACE 4 04865 M01S04586.libedit +++|** TABLE POINTERS. 04866 M01S04587.libedit +++| 04867 M01S04588.libedit +++| 04868 M01S04589.libedit +++| TABLE BSS 0 04869 M01S04590.libedit +++| TABLE CDT,8 COMMENT/DATE TABLE 04870 M01S04591.libedit +++| TABLE DPT,2 DELETE PROGRAM TABLE 04871 M01S04592.libedit +++| TABLE FNT FILE NAME TABLE 04872 M01S04593.libedit +++| TABLE IDT,2 IMPLIED DELETE TABLE 04873 M01S04594.libedit +++| TABLE IPT,4 INSERT PROGRAM TABLE 04874 M01S04595.libedit +++| TABLE NPT,2,40B NEW PROGRAM TABLE 04875 M01S04596.libedit +++| TABLE NRT NO REPLACE TABLE 04876 M01S04597.libedit +++| TABLE PIT,3 PROGRAM IGNORE TABLE 04877 M01S04598.libedit +++| TABLE PNT,3,40B PROGRAM NAME TABLE 04878 M01S04599.libedit +++| TABLE RFT REWIND FILE TABLE 04879 M01S04600.libedit +++| TABLE RNT,2 RENAME TABLE 04880 M01S04601.libedit +++| TABLE BUF UNUSED STORAGE TABLE 04881 M01S04602.libedit +++| RDA SPACE 4 04882 M01S04603.libedit +++|** RDA - READ DATA. 04883 M01S04604.libedit +++|* 04884 M01S04605.libedit +++|* PROCESSES CALLS TO READ WORDS (RDW=). 04885 M01S04606.libedit +++|* DEBLOCKS DATA IF CONTROL WORD READS. 04886 M01S04607.libedit +++|* 04887 M01S04608.libedit +++|* ENTRY (X2) = FET ADDRESS. 04888 M01S04609.libedit +++|* (B6) = FWA OF WORKING STORAGE BUFFER. 04889 M01S04610.libedit +++|* (B7) = LENGTH OF TRANSFER REQUESTED. 04890 M01S04611.libedit +++|* 04891 M01S04612.libedit +++|* EXIT (X1) = STATUS RETURNED FROM RDW=. 04892 M01S04613.libedit +++|* (X2-LWP) = LWA+1 OF DATA TRANSFERED. 04893 M01S04614.libedit +++|* (B6) = LWA+1 OF DATA TRANSFERED. 04894 M01S04615.libedit +++|* 04895 M01S04616.libedit +++|* USES A - 1, 3, 6, 7. 04896 M01S04617.libedit +++|* X - 1, 3, 4, 6, 7. 04897 M01S04618.libedit +++|* B - 5, 6, 7. 04898 M01S04619.libedit +++|* 04899 M01S04620.libedit +++|* CALLS RDW=. 04900 M01S04621.libedit +++| 04901 M01S04622.libedit +++|
| Line S04623 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04902 M02S04623.libed6 ---| NAME RDA,RDAL 04903 M01S04624.libedit +++| RDA5 SX6 B5-B7 UPDATE WORDS REMAINING 04904 M01S04625.libedit +++| SA6 A1 04905 M01S04626.libedit +++| 04906 M01S04627.libedit +++| RDA6 RJ RDW= READ WORDS 04907 M01S04628.libedit +++| 04908 M01S04629.libedit +++| RDA7 SX6 B6 LWA+1 OF DATA TRANSFERED 04909 M01S04630.libedit +++| SA6 X2-LWP 04910 M01S04631.libedit +++| 04911 M01S04632.libedit +++| RDA SUBR ENTRY/EXIT 04912 M01S04633.libedit +++| SA1 CW CHECK IF CONTROL WORDS LEGAL 04913 M01S04634.libedit +++| ZR X1,RDA6 IF CONTROL WORD READS NOT LEGAL 04914 M01S04635.libedit +++| RDA1 SA1 X2-WRB GET NUMBER OF WORDS BEFORE CONTROL WORD 04915 M01S04636.libedit +++| SB5 X1+ 04916 M01S04637.libedit +++| PL X1,RDA2 IF NOT FIRST READ 04917 M01S04638.libedit +++| SX7 B7+ SET WORDS NEEDED 04918 M01S04639.libedit +++| SA7 RDAA 04919 M01S04640.libedit +++| JP RDA4 04920 M01S04641.libedit +++| 04921 M01S04642.libedit +++| RDA2 GE B5,B7,RDA5 IF ENOUGH DATA TO FILL BUFFER 04922 M01S04643.libedit +++| SA3 X2-ERF CHECK EOR FLAG 04923 M01S04644.libedit +++| PL X3,RDA3 IF NOT EOR ON FILE 04924 M01S04645.libedit +++| MX6 1 SET NEW READ FLAG 04925 M01S04646.libedit +++| SB7 B5+B1 SET WORDS TO READ 04926 M01S04647.libedit +++| SA6 A3 04927 M01S04648.libedit +++| SA6 A1 04928 M01S04649.libedit +++| RJ RDW= READ WORDS 04929 M01S04650.libedit +++| SX1 B6-B1 SET EOR INDICATION 04930 M01S04651.libedit +++| SB6 B6-B1 BACK UP LWA TO ALLOW FOR CONTROL WORD 04931 M01S04652.libedit +++| JP RDA7 RETURN 04932 M01S04653.libedit +++| 04933 M01S04654.libedit +++| RDA3 SX6 B7-B5 SAVE ADDITIONAL WORDS NEEDED 04934 M01S04655.libedit +++| SA6 RDAA 04935 M01S04656.libedit +++| SB7 B5+B1 SET WORDS TO TRANSFER 04936 M01S04657.libedit +++| RJ RDW= READ WORDS 04937 M01S04658.libedit +++| SB6 B6-1 BACK UP OVER LAST CONTROL WORD 04938 M01S04659.libedit +++| RDA4 SB7 B1 READ CONTROL WORD 04939 M01S04660.libedit +++| RJ RDW= 04940 M01S04661.libedit +++| NG X1,RDA7 IF EOF/EOI 04941 M01S04662.libedit +++| SB6 B6-B1 BACK UP WORKING BUFFER 04942 M01S04663.libedit +++| SA1 B6 CONTROL WORD 04943 M01S04664.libedit +++| SX7 5 04944 M01S04665.libedit +++| SX4 X1+4 ROUND UP 04945 M01S04666.libedit +++| AX1 36 EXTRACT BLOCK SIZE 04946 M01S04667.libedit +++| SX3 X1 04947 M01S04668.libedit +++| IX7 X4/X7 WORDS IN BLOCK 04948 M01S04669.libedit +++| IX6 X7-X3 SAVE EOR FLAG 04949 M01S04670.libedit +++| SA7 X2-WRB WORD COUNT 04950 M01S04671.libedit +++| SA6 X2-ERF EOR FLAG 04951 M01S04672.libedit +++| SA1 RDAA RESET WORDS NEEDED 04952 M01S04673.libedit +++| SB7 X1 04953 M01S04674.libedit +++| JP RDA1 LOOP 04954 M01S04675.libedit +++| 04955 M01S04676.libedit +++| 04956 M01S04677.libedit +++| RDAA CON 0
| Line S04678 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04957 M02S04678.libed6 ---| RDAL BSS 0 04958 M01S04679.libedit +++| WDA SPACE 4 04959 M01S04680.libedit +++|** WDA - WRITE DATA WITH CONTROL WORDS. 04960 M01S04681.libedit +++|* 04961 M01S04682.libedit +++|* ENTRY (B6) = FWA OF WORKING STORAGE. 04962 M01S04683.libedit +++|* (B7) = WORD COUNT. 04963 M01S04684.libedit +++|* (X2) = FET ADDRESS. 04964 M01S04685.libedit +++|* 04965 M01S04686.libedit +++|* EXIT (B7) = 0 IF FULL PRU WRITTEN. 04966 M01S04687.libedit +++|* 04967 M01S04688.libedit +++|* USES A - 1, 3, 4, 5, 6, 7. 04968 M01S04689.libedit +++|* B - 4, 6, 7. 04969 M01S04690.libedit +++|* X - 1, 3, 4, 5, 6, 7. 04970 M01S04691.libedit +++|* 04971 M01S04692.libedit +++|* MACROS WRITER, WRITEW. 04972 M01S04693.libedit +++| 04973 M01S04694.libedit +++|
| Line S04695 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04974 M02S04695.libed6 ---| NAME WDA,WDAL 04975 M01S04696.libedit +++| WDA3 SA3 SC 04976 M01S04697.libedit +++| SA1 X2-1 04977 M01S04698.libedit +++| SX7 B1+ UPDATE SECTOR COUNT 04978 M01S04699.libedit +++| IX7 X3+X7 04979 M01S04700.libedit +++| SB4 X1 04980 M01S04701.libedit +++| SA7 A3 STORE RANDOM ADDRESS 04981 M01S04702.libedit +++| BX6 X1 04982 M01S04703.libedit +++| ZR B7,WDA2 IF ZERO LENGTH RECORD 04983 M01S04704.libedit +++| SX3 5 04984 M01S04705.libedit +++| SX7 B7-B4 04985 M01S04706.libedit +++| PL X7,WDA4 IF \ ONE PRU 04986 M01S04707.libedit +++| SX1 B7 04987 M01S04708.libedit +++| WDA4 IX4 X1*X3 FORM PRU BYTE COUNT 04988 M01S04709.libedit +++| SA7 WDAA 04989 M01S04710.libedit +++| LX6 36 POSITION BLOCK SIZE 04990 M01S04711.libedit +++| SA5 X1+B6 04991 M01S04712.libedit +++| BX6 X6+X4 FORM HEADER CONTROL WORD 04992 M01S04713.libedit +++| SX7 B0 04993 M01S04714.libedit +++| SA6 B6-B1 04994 M01S04715.libedit +++| SA7 A5 STORE TRAILER CONTROL WORD 04995 M01S04716.libedit +++| WRITEW X2,A6,X1+2 04996 M01S04717.libedit +++| SB6 A5 SET ADDRESS OF NEXT BLOCK 04997 M01S04718.libedit +++| SA3 WDAA 04998 M01S04719.libedit +++| BX6 X5 RESTORE CELL DESTROYED BY CONTROL WORD 04999 M01S04720.libedit +++| SB7 X3 05000 M01S04721.libedit +++| SA6 A5 05001 M01S04722.libedit +++| GE B7,B1,WDA3 IF AT LEAST ONE MORE WORD IN BUFFER 05002 M01S04723.libedit +++| 05003 M01S04724.libedit +++| WDA SUBR ENTRY/EXIT 05004 M01S04725.libedit +++| SA4 X2-2 05005 M01S04726.libedit +++| NG X4,WDA3 IF CONTROL WORD WRITE ENABLED 05006 M01S04727.libedit +++| ZR B7,WDA1 IF ZERO LENGTH RECORD 05007 M01S04728.libedit +++| WRITEW X2,B6,B7 05008 M01S04729.libedit +++| SB7 B0+ 05009 M01S04730.libedit +++| JP WDA 05010 M01S04731.libedit +++| 05011 M01S04732.libedit +++| WDA1 WRITER X2,R FLUSH BUFFER 05012 M01S04733.libedit +++| SB7 1 05013 M01S04734.libedit +++| JP WDA 05014 M01S04735.libedit +++| 05015 M01S04736.libedit +++| WDA2 LX6 36 POSITION BLOCK SIZE 05016 M01S04737.libedit +++| SA6 WDAA 05017 M01S04738.libedit +++| WRITEW X2,A6,2 WRITE ZERO LENGTH RECORD 05018 M01S04739.libedit +++| SB7 1 05019 M01S04740.libedit +++| JP WDA 05020 M01S04741.libedit +++| 05021 M01S04742.libedit +++| 05022 M01S04743.libedit +++| WDAA CON 0 05023 M01S04744.libedit +++| CON 0
| Line S04745 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05024 M02S04745.libed6 ---| WDAL BSS 0 05025 M01S04746.libedit +++| RCW SPACE 4 05026 M01S04747.libedit +++|** RCW - RESTORE CONTROL WORD WRITE. 05027 M01S04748.libedit +++|* 05028 M01S04749.libedit +++|* ENTRY NONE. 05029 M01S04750.libedit +++|* 05030 M01S04751.libedit +++|* EXIT NONE. 05031 M01S04752.libedit +++|* 05032 M01S04753.libedit +++|* USES A - 1, 6, 7. 05033 M01S04754.libedit +++|* B - NONE. 05034 M01S04755.libedit +++|* X - 1, 6, 7. 05035 M01S04756.libedit +++|* 05036 M01S04757.libedit +++|* MACROS RECALL, WRITECW, WRITER. 05037 M01S04758.libedit +++| 05038 M01S04759.libedit +++|
| Line S04760 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05039 M02S04760.libed6 ---| NAME RCW RCWL 05040 M01S04761.libedit +++| RCW SUBR ENTRY/EXIT 05041 M01S04762.libedit +++| RECALL N 05042 M01S04763.libedit +++| SA1 N+2 CHECK BUFFER EMPTY 05043 M01S04764.libedit +++| SA3 A1+B1 05044 M01S04765.libedit +++| IX3 X3-X1 05045 M01S04766.libedit +++| ZR X3,RCW1 IF BUFFER EMPTY 05046 M01S04767.libedit +++| WRITER X2,R FLUSH BUFFER 05047 M01S04768.libedit +++| RCW1 WRITECW X2,* SET FILE STATUS 05048 M01S04769.libedit +++| SA1 N+6 05049 M01S04770.libedit +++| MX7 60 05050 M01S04771.libedit +++| AX1 30 05051 M01S04772.libedit +++| SA7 N-2 ENABLE CONTROL WORD WRITE 05052 M01S04773.libedit +++| BX6 X1 05053 M01S04774.libedit +++| SA6 SC RESET SECTOR COUNT 05054 M01S04775.libedit +++| EQ RCWX RETURN
| Line S04776 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05055 M02S04776.libed6 ---|
| Line S04777 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05056 M02S04777.libed6 ---| RCWL BSS 0 05057 M01S04778.libedit +++| CVD SPACE 4 05058 M01S04779.libedit +++|** CVD - CHECK DEVICE TYPE. 05059 M01S04780.libedit +++|* 05060 M01S04781.libedit +++|* ENTRY (X1) = (FET+1). 05061 M01S04782.libedit +++|*
| Line S04783 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05062 M02S04783.libed11 ---|* EXIT (X7)= 0 IF CONTROL WORD READ/WRITE NOT SUPPORTED ON
| Line S04784 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05063 M02S04784.libed11 ---|* DEVICE. 05064 M01S00001.libed11 +++|* EXIT (X7) = 0 IF CONTROL WORD READ/WRITE NOT SUPPORTED ON 05065 M01S00002.libed11 +++|* DEVICE. 05066 M01S04785.libedit +++|*
| Line S04786 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05067 M02S04786.libed11 ---|* USES B - NONE. 05068 M01S00003.libed11 +++|* USES X - 0,1,2,6,7. 05069 M01S04787.libedit +++|* A - 2.
| Line S04788 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05070 M02S04788.libed11 ---|* X - 0,1,2,6,7. 05071 M01S00004.libed11 +++|* B - NONE. 05072 M01S04789.libedit +++|* 05073 M01S04790.libedit +++|* CALLS NONE. 05074 M01S04791.libedit +++| 05075 M01S04792.libedit +++|
| Line S04793 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05076 M02S04793.libed6 ---| NAME CVD CVDL 05077 M01S04794.libedit +++| CVD2 LX1 12 CHECK *TT* 05078 M01S04795.libedit +++| BX6 -X0*X1 05079 M01S04796.libedit +++| SX7 X6-2RTT 05080 M01S04797.libedit +++| 05081 M01S04798.libedit +++| CVD SUBR ENTRY/EXIT 05082 M01S04799.libedit +++| MX0 -12 05083 M01S04800.libedit +++| PL X1,CVD2 IF ALLOCATABLE 05084 M01S04801.libedit +++| LX1 12 05085 M01S04802.libedit +++| SA2 CVDA SEARCH DEVICE TABLE 05086 M01S04803.libedit +++| SX7 0 ASSUME NO FIND
| Line S04804 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05087 M02S04804.libed11 ---| CVD1 ZR X2,CVD RETURN - IF NOT FOUND 05088 M01S00005.libed11 +++| CVD1 ZR X2,CVDX IF NOT FOUND 05089 M01S04805.libedit +++| BX6 X1-X2 05090 M01S04806.libedit +++| AX2 12 05091 M01S04807.libedit +++| BX6 X2*X6 05092 M01S04808.libedit +++| SA2 A2+B1 05093 M01S04809.libedit +++| NZ X6,CVD1 IF NOT MATCH 05094 M01S04810.libedit +++| SX7 1 INDICATE CONTROL WORD POSSIBLE 05095 M01S04811.libedit +++| EQ CVDX RETURN 05096 M01S04812.libedit +++| 05097 M01S04813.libedit +++| 05098 M01S04814.libedit +++| CVDA VFD 36/,12/7703B,12/4002B 05099 M01S04815.libedit +++| VFD 36/,12/7703B,12/4102B 05100 M01S04816.libedit +++| VFD 36/,12/7777B,12/2RMT+4000B 05101 M01S04817.libedit +++| VFD 36/,12/7777B,12/2RNT+4000B 05102 M01S00006.libed11 +++| VFD 36/,12/7777B,12/2RCT+4000B 05103 M01S00007.libed11 +++| VFD 36/,12/7777B,12/2RAT+4000B 05104 M01S04818.libedit +++| CON 0
| Line S04819 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05105 M02S04819.libed6 ---| CVDL BSS 0 05106 M01S00022.libed6 +++| SPACE 4,10 05107 M01S00023.libed6 +++|** COMMON DECKS. 05108 M01S04820.libedit +++| 05109 M01S04821.libedit +++| 05110 M01S00035.libed8 +++|*CALL COMCCDD 05111 M01S04822.libedit +++| WRIF$ EQU 1 SELECT *REISSUE CURRENT WRITE*
| Line S04823 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05112 M02S04823.libed6 ---| SPACE 4
| Line S04824 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05113 M02S04824.libed6 ---|** COMMON DECKS.
| Line S04825 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05114 M02S04825.libed6 ---| 05115 M01S04826.libedit +++|*CALL COMCCIO 05116 M01S04827.libedit +++|*CALL COMCCPM 05117 M01S04828.libedit +++|*CALL COMCCPT 05118 M01S04829.libedit +++|*CALL COMCDXB 05119 M01S00019.libed10 +++|*CALL COMCLFM 05120 M01S04830.libedit +++|*CALL COMCOVL 05121 M01S04831.libedit +++|*CALL COMCRDH 05122 M01S04832.libedit +++|*CALL COMCRDW 05123 M01S04833.libedit +++|*CALL COMCSFN 05124 M01S04834.libedit +++|*CALL COMCSRT 05125 M01S04835.libedit +++|*CALL COMCSYS 05126 M01S04836.libedit +++|*CALL COMCWTC 05127 M01S04837.libedit +++|*CALL COMCWTH 05128 M01S04838.libedit +++|*CALL COMCWTW 05129 M01S04839.libedit +++| BUFFERS SPACE 4,10 05130 M01S04840.libedit +++|** BUFFERS. 05131 M01S04841.libedit +++| 05132 M01S04842.libedit +++| 05133 M01S04843.libedit +++| USE BUFFERS 05134 M01S04844.libedit +++| 05135 M01S04845.libedit +++| OUTPUTB BSS 0 OUTPUT WORKING BUFFER
| Line S04846 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05136 M02S04846.v23l617 ---| DCB EQU OUTPUTB+1 DIRECTIVE CARD BUFFER 05137 M01S00037.v23l617 +++| DCB EQU OUTPUTB+1 DIRECTIVE COMMAND BUFFER 05138 M01S04847.libedit +++| DSB EQU DCB+DCBL DIRECTIVE STRING BUFFER 05139 M01S04848.libedit +++| WSA EQU DSB+10*DCBL+2 WORKING STORAGE (OLD)
| Line S04849 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05140 M02S04849.274l797 ---| WSAL EQU 1000B 05141 M01S00020.274l797 +++| WSAL EQU 4000B 05142 M01S04850.libedit +++| WSB EQU WSA+WSAL+1 WORKING STORAGE (LGO/NEW)
| Line S04851 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05143 M02S04851.274l797 ---| WSBL EQU 1000B 05144 M01S00021.274l797 +++| WSBL EQU 4000B 05145 M01S04852.libedit +++| INPB EQU WSB+WSBL INPUT BUFFER 05146 M01S04853.libedit +++| OUTB EQU INPB+INPL OUTPUT BUFFER 05147 M01S04854.libedit +++| TTYB EQU OUTB+OUTL 05148 M01S04855.libedit +++| OLDB EQU TTYB+TTYL OLD BUFFER 05149 M01S04856.libedit +++| NEWB EQU OLDB+OLDL NEW BUFFER 05150 M01S04857.libedit +++| LGOB EQU NEWB+NEWL LGO BUFFER 05151 M01S04858.libedit +++| SBUF EQU LGOB+LGOL SCRATCH BUFFER 05152 M01S04859.libedit +++| BUF EQU SBUF+SBUFL START OF MANAGED TABLES 05153 M01S04860.libedit +++| MFL= EQU 200000B+BUF+BUFL+5 MINIMUM FIELD LENGTH
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/libedit.002.txt · Last modified: by 127.0.0.1