cdc:nos2.source:opl.opl871:deck:libedit.002
Deck LIBEDIT Part 002
20 Modifications
Listing Sections
- Deck LIBEDIT Start
- Deck LIBEDIT Part 1 (Line 1706)
- Deck LIBEDIT Part 2 (Line 3573)
- Deck LIBEDIT Part 3 (Line 5308)
Source
Seq # *Modification Id* Act ----------------------------+ 03573 M00S03382.libedit +++| SB6 OUTPUTB 03574 M00S03383.libedit +++| SB7 OUTPUTB+DCBL+1 03575 M00S03384.libedit +++| SA1 B6 03576 M00S03385.libedit +++| MX0 54 03577 M00S03386.libedit +++| LOL2 BX6 X1 03578 M00S03387.libedit +++| SA6 A1 03579 M00S03388.libedit +++| EQ B6,B7,LOL4 IF END-OF-LINE 03580 M00S03389.libedit +++| SA1 B6 03581 M00S03390.libedit +++| SB6 B6+B1 03582 M00S03391.libedit +++| SB5 10 03583 M00S03392.libedit +++| LOL3 ZR B5,LOL2 IF END-OF-WORD 03584 M00S03393.libedit +++| LX0 6 03585 M00S03394.libedit +++| LX2 6 03586 M00S03395.libedit +++| BX6 -X0*X1 03587 M00S03396.libedit +++| SB5 B5-B1 03588 M00S03397.libedit +++| NZ X6,LOL3 IF CHARACTER .NE. 00 03589 M00S03398.libedit +++| BX1 X1+X2 03590 M00S03399.libedit +++| EQ LOL3 LOOP 03591 M00S03400.libedit +++| 03592 M00S03401.libedit +++| LOL4 WRITEH OUTPUT,OUTPUTB,DCBL+1 03593 M00S03402.libedit +++| EQ LOLX RETURN 03594 M00S03403.libedit +++| 03595 M00S03404.libedit +++| 03596 M00S03405.libedit +++| LOLA VFD 60/ PAGE NUMBER (DISPLAY CODE)
| Line S03406 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03597 M01S03406.libed6 ---| LOLL BSS 0 03598 M00S03407.libedit +++| MSG SPACE 4,10 03599 M00S03408.libedit +++|** MSG - SEND DAYFILE MESSAGE. 03600 M00S03409.libedit +++|* 03601 M00S03410.libedit +++|* ENTRY (B2) = ADDRESS OF PROGRAM NAME. 03602 M00S03411.libedit +++|* (B3) = ADDRESS OF MESSAGE. 03603 M00S03412.libedit +++|* 03604 M00S03413.libedit +++|* USES A - 1, 2, 6. 03605 M00S03414.libedit +++|* X - 0, 1, 2, 3, 4, 6. 03606 M00S03415.libedit +++|* 03607 M00S03416.libedit +++|* MACROS MESSAGE. 03608 M00S03417.libedit +++| 03609 M00S03418.libedit +++|
| Line S03419 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03610 M01S03419.libed6 ---| NAME MSG,MSGL 03611 M00S03420.libedit +++| MSG SUBR ENTRY/EXIT 03612 M00S03421.libedit +++| MX0 42 03613 M00S03422.libedit +++| SA1 B3 03614 M00S03423.libedit +++| SA2 B2 03615 M00S03424.libedit +++| BX3 X0*X2 03616 M00S03425.libedit +++| BX1 -X0*X1 03617 M00S03426.libedit +++| BX6 X3+X1 03618 M00S03427.libedit +++| MX0 6 03619 M00S03428.libedit +++| SA6 B3 03620 M00S03429.libedit +++| SX4 1R 03621 M00S03430.libedit +++| LX0 24 03622 M00S03431.libedit +++| LX4 18 03623 M00S03432.libedit +++| BX1 X0*X6 03624 M00S03433.libedit +++| NZ X1,MSG2 IF NO BLANKS 03625 M00S03434.libedit +++| MSG1 IX6 X6+X4 BLANK FILL FILE NAME 03626 M00S03435.libedit +++| LX0 6 03627 M00S03436.libedit +++| LX4 6 03628 M00S03437.libedit +++| BX1 X0*X6 03629 M00S03438.libedit +++| ZR X1,MSG1 03630 M00S03439.libedit +++| SA6 B3 03631 M00S03440.libedit +++| MSG2 MESSAGE B3,,R SEND MESSAGE TO DAYFILE 03632 M00S03441.libedit +++| EQ MSGX RETURN 03633 M00S03442.libedit +++|
| Line S03443 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03634 M01S03443.libed6 ---| MSGL BSS 0 03635 M00S03444.libedit +++| IDT SPACE 4
| Line S03445 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03636 M01S03445.v23l617 ---|** IDT - ISSUE ILLEGAL DEVICE MESSAGE.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03637 M01S00030.v23l617 +++|** IDT - ISSUE INCORRECT DEVICE MESSAGE. 03638 M00S03446.libedit +++|* 03639 M00S03447.libedit +++|* ENTRY (A1) = FET ADDRESS + 1. 03640 M00S03448.libedit +++|* (X7) = 0. 03641 M00S03449.libedit +++|* 03642 M00S03450.libedit +++|* EXIT TO ABT. 03643 M00S03451.libedit +++|* 03644 M00S03452.libedit +++|* USES A - 1, 7. 03645 M00S03453.libedit +++|* B - 4. 03646 M00S03454.libedit +++|* X - 0, 1, 2, 3, 4, 6, 7. 03647 M00S03455.libedit +++|* 03648 M00S03456.libedit +++|* CALLS MSG=. 03649 M00S03457.libedit +++| 03650 M00S03458.libedit +++| 03651 M00S03459.libedit +++| IDT MX0 42 03652 M00S03460.libedit +++| SA1 A1-B1 READ FILE NAME 03653 M00S03461.libedit +++| MX3 26+10 03654 M00S03462.libedit +++| BX6 X0*X1 03655 M00S03463.libedit +++| MX2 6 03656 M00S03464.libedit +++| LX3 59 POSITION LEGAL CHARACTER MASK 03657 M00S03465.libedit +++| BX1 X1-X1 03658 M00S03466.libedit +++| MX0 -6 03659 M00S03467.libedit +++| IDT1 LX7 6 03660 M00S03468.libedit +++| BX7 X7+X1 ASSEMBLE FILE NAME 03661 M00S03469.libedit +++| LX6 6 03662 M00S03470.libedit +++| BX1 -X0*X6 03663 M00S03471.libedit +++| SB4 X1 FIND END OF FILE NAME 03664 M00S03472.libedit +++| LX4 B4,X3 03665 M00S03473.libedit +++| NG X4,IDT1 IF NOT END OF NAME 03666 M00S03474.libedit +++| LX7 6 03667 M00S03475.libedit +++| SX1 1R. ADD *.* TO FILE NAME 03668 M00S03476.libedit +++| BX7 X7+X1 03669 M00S03477.libedit +++| + LX7 6 LEFT JUSTIFY ASSEMBLY 03670 M00S03478.libedit +++| BX6 X2*X7 03671 M00S03479.libedit +++| ZR X6,* IF NOT LEFT JUSTIFIED 03672 M00S03480.libedit +++| SA7 IDTB 03673 M00S03481.libedit +++| MESSAGE IDTA 03674 M00S03482.libedit +++| CALL ABT 03675 M00S03483.libedit +++| 03676 M00S03484.libedit +++|
| Line S03485 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03677 M01S03485.v23l617 ---| IDTA DATA 30H ILLEGAL DEVICE TYPE -- LFN =
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03678 M01S00031.v23l617 +++| IDTA DATA 30H UNKNOWN DEVICE TYPE -- LFN = 03679 M00S03486.libedit +++| IDTB CON 0 03680 M00S03487.libedit +++| SPACE 4
| Line S03488 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03681 M01S03488.v23l617 ---|** OCC - OUTPUT COMMENT CARD.
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03682 M01S00032.v23l617 +++|** OCC - OUTPUT COMMENT DIRECTIVE. 03683 M00S03489.libedit +++|* 03684 M00S03490.libedit +++|* ENTRY (B2) = INDEX IN COMMENT/DATE TABLE. 03685 M00S03491.libedit +++|* USES A - 1, 5, 6. 03686 M00S03492.libedit +++|* X - 0, 1, 5, 6, 7. 03687 M00S03493.libedit +++|* B - 4, 6, 7. 03688 M00S03494.libedit +++|* 03689 M00S03495.libedit +++|* CALLS CFN, OSB. 03690 M00S03496.libedit +++|* 03691 M00S03497.libedit +++|* MACROS CALL. 03692 M00S03498.libedit +++| 03693 M00S03499.libedit +++|
| Line S03500 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03694 M01S03500.libed6 ---| NAME OCC,OCCL 03695 M00S03501.libedit +++| OCC SUBR ENTRY/EXIT 03696 M00S03502.libedit +++| SA1 P.CDT 03697 M00S03503.libedit +++| SX6 X1+B2 03698 M00S03504.libedit +++| SA6 OCCA 03699 M00S03505.libedit +++| SA2 =1H 03700 M00S03506.libedit +++| BX6 X2 03701 M00S03507.libedit +++| SA6 OUTPUTB 03702 M00S03508.libedit +++| SA1 X1+B2 SET *DATE OR *COMMENT 03703 M00S03509.libedit +++| LX1 60-17 03704 M00S03510.libedit +++| SX7 B1 03705 M00S03511.libedit +++| BX6 X7*X1 03706 M00S03512.libedit +++| SA2 OCCB+X6 03707 M00S03513.libedit +++| BX6 X2 03708 M00S03514.libedit +++| SA6 A6+B1 03709 M00S03515.libedit +++| AX1 -17+60 OUTPUT LIBRARY NAME 03710 M00S03516.libedit +++| CALL CFN,(X1+OICD) 03711 M00S03517.libedit +++| SA1 OCCA OUTPUT PROGRAM NAME 03712 M00S03518.libedit +++| CALL CFN,X1 03713 M00S03519.libedit +++| CALL CFN,(=1L ) OUTPUT BLANK 03714 M00S03520.libedit +++| SA1 OCCA OUTPUT COMMENT 03715 M00S03521.libedit +++| SB6 X1 03716 M00S03522.libedit +++| MX0 54 03717 M00S03523.libedit +++| SB7 B6+8 03718 M00S03524.libedit +++| SA1 SBP SET STRING BUFFER POINTER 03719 M00S03525.libedit +++| SB4 X1 03720 M00S03526.libedit +++| OCC1 SB6 B6+B1 DISASSEMBLE COMMENT INTO STRING BUFFER 03721 M00S03527.libedit +++| EQ B6,B7,OCC3 IF END OF COMMENT 03722 M00S03528.libedit +++| SA5 B6 03723 M00S03529.libedit +++| SB5 B4+10 03724 M00S03530.libedit +++| OCC2 EQ B4,B5,OCC1 IF END OF WORD 03725 M00S03531.libedit +++| LX5 6 03726 M00S03532.libedit +++| BX6 -X0*X5 03727 M00S03533.libedit +++| SA6 B4 03728 M00S03534.libedit +++| SB4 B4+B1 03729 M00S03535.libedit +++| NZ X6,OCC2 IF NOT END OF COMMENT 03730 M00S03536.libedit +++| OCC3 SX6 B0 SET END OF BUFFER 03731 M00S03537.libedit +++| SA6 B4 03732 M00S03538.libedit +++| SX7 B4 03733 M00S03539.libedit +++| SA7 A1 03734 M00S03540.libedit +++| CALL OSB OUTPUT STRING BUFFER 03735 M00S03541.libedit +++| EQ OCCX RETURN 03736 M00S03542.libedit +++| 03737 M00S03543.libedit +++| 03738 M00S03544.libedit +++| OCCA VFD 60/ COMMENT ADDRESS 03739 M00S03545.libedit +++| OCCB DATA 10H*COMMENT 03740 M00S03546.libedit +++| DATA 10H*DATE
| Line S03547 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03741 M01S03547.libed6 ---| OCCL BSS 0 03742 M00S03548.libedit +++| SPACE 4 03743 M00S03549.libedit +++|** ODP - OUTPUT DELETED PROGRAM. 03744 M00S03550.libedit +++|* 03745 M00S03551.libedit +++|* ENTRY (B2) = ADDRESS OF PROGRAM NAME. 03746 M00S03552.libedit +++|* 03747 M00S03553.libedit +++|* USES A - 1, 2, 6, 7. 03748 M00S03554.libedit +++|* X - 0, 1, 2, 3, 6, 7. 03749 M00S03555.libedit +++|* B - 2. 03750 M00S03556.libedit +++|* 03751 M00S03557.libedit +++|* CALLS COB, ORW. 03752 M00S03558.libedit +++|* 03753 M00S03559.libedit +++|* MACROS CALL. 03754 M00S03560.libedit +++| 03755 M00S03561.libedit +++|
| Line S03562 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03756 M01S03562.libed6 ---| NAME ODP,ODPL 03757 M00S03563.libedit +++| ODP SUBR ENTRY/EXIT 03758 M00S03564.libedit +++| CALL COB CLEAR OUTPUT BUFFER 03759 M00S03565.libedit +++| MX0 42 03760 M00S03566.libedit +++| SA1 B2 SET PROGRAM NAME 03761 M00S03567.libedit +++| SA2 X1+NAMA 03762 M00S03568.libedit +++| BX1 X0*X1 03763 M00S03569.libedit +++| SX3 1R) ADD *)* AT END OF NAME 03764 M00S03570.libedit +++| MX0 54 03765 M00S03571.libedit +++| + LX3 54 03766 M00S03572.libedit +++| LX0 54 03767 M00S03573.libedit +++| BX7 -X0*X1 03768 M00S03574.libedit +++| BX6 X1+X3 03769 M00S03575.libedit +++| NZ X7,*-1 LOOP FOR END OF NAME 03770 M00S03576.libedit +++| SA6 OUTPUTB+1 03771 M00S03577.libedit +++| LX7 X2 03772 M00S03578.libedit +++| SA7 A6+B1 03773 M00S03579.libedit +++| SB2 =9HDELETED-( 03774 M00S03580.libedit +++| CALL ORW,B2,OLD 03775 M00S03581.libedit +++| EQ ODPX RETURN
| Line S03582 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03776 M01S03582.libed6 ---|
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03777 M01S00020.libed6 +++| OIC SPACE 4,15 03778 M00S03583.libedit +++| ODPL BSS 0 03779 M00S03584.libedit +++| SPACE 4
| Line S03585 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03780 M01S03585.v23l617 ---|** OIC - OUTPUT INSERT CARD. 03781 M01S03586.v23l617 ---|* 03782 M01S03587.v23l617 ---|* OUTPUT AN INSERT CARD THAT CAN NOT BE FOLLOWED.
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03588.libedit +++|* ENTRY (B2) = ADDRESS OF INSERT PROGRAM TABLE INDEX. 03788 M00S03589.libedit +++|* 03789 M00S03590.libedit +++|* USES A - 1, 2, 3, 4, 5, 6, 7. 03790 M00S03591.libedit +++|* X - ALL. 03791 M00S03592.libedit +++|* B - 2, 5, 6, 7. 03792 M00S03593.libedit +++|* 03793 M00S03594.libedit +++|* CALLS CFN, LOL. 03794 M00S03595.libedit +++|* 03795 M00S03596.libedit +++|* MACROS CALL. 03796 M00S03597.libedit +++| 03797 M00S03598.libedit +++|
| Line S03599 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03798 M01S03599.libed6 ---| NAME OIC,OICL 03799 M00S03600.libedit +++| OIC SUBR ENTRY/EXIT 03800 M00S03601.libedit +++| SA2 B2 03801 M00S03602.libedit +++| SA1 P.IPT 03802 M00S03603.libedit +++| SB6 X1 03803 M00S03604.libedit +++| SA4 B6+X2 03804 M00S03605.libedit +++| SA5 A4+B1 03805 M00S03606.libedit +++| BX6 X4 03806 M00S03607.libedit +++| LX7 X5 03807 M00S03608.libedit +++| SA6 OICA 03808 M00S03609.libedit +++| SA7 A6+B1 03809 M00S03610.libedit +++| SA4 A5+B1 03810 M00S03611.libedit +++| SA5 A4+B1 03811 M00S03612.libedit +++| BX6 X4 03812 M00S03613.libedit +++| LX7 X5 03813 M00S03614.libedit +++| SA6 A7+B1 03814 M00S03615.libedit +++| SB6 OICB *DIRECTIVE CAN NOT BE PERFORMED.* 03815 M00S03616.libedit +++| SB7 OICB+OICBL 03816 M00S03617.libedit +++| SB5 OUTPUTB 03817 M00S03618.libedit +++| SA7 A6+B1 03818 M00S03619.libedit +++| SB5 B6-B5 03819 M00S03620.libedit +++| + SA1 B6 03820 M00S03621.libedit +++| BX6 X1 03821 M00S03622.libedit +++| SA6 B6-B5 03822 M00S03623.libedit +++| SB6 B6+B1 03823 M00S03624.libedit +++| NE B6,B7,*-1 03824 M00S03625.libedit +++| CALL LOL LIST ONE LINE 03825 M00S03626.libedit +++| SA1 =10H 03826 M00S03627.libedit +++| BX6 X1 03827 M00S03628.libedit +++| SA6 OUTPUTB 03828 M00S03629.libedit +++| SA1 =10H*FILE 03829 M00S03630.libedit +++| BX6 X1 03830 M00S03631.libedit +++| SA6 A6+B1 03831 M00S03632.libedit +++| SB2 OICA+1 CONVERT FILE NAME 03832 M00S03633.libedit +++| CALL CFN,B2 03833 M00S03634.libedit +++| CALL OSB OUTPUT STRING BUFFER 03834 M00S03635.libedit +++| SA1 OICA CHECK FOR *REPLACE* *INSERT* OR *BEFORE* 03835 M00S03636.libedit +++| SA3 OICA+2 03836 M00S03637.libedit +++| BX7 X1-X3 03837 M00S03638.libedit +++| SA2 =10H*REPLACE 03838 M00S03639.libedit +++| SX6 B1 03839 M00S03640.libedit +++| BX3 X1 03840 M00S03641.libedit +++| LX1 60-17 03841 M00S03642.libedit +++| ZR X7,OIC1 IF *REPLACE* 03842 M00S03643.libedit +++| BX6 X6*X1 03843 M00S03644.libedit +++| SA2 OICC+X6 03844 M00S03645.libedit +++| MX0 6 03845 M00S03646.libedit +++| BX6 X0*X3 03846 M00S03647.libedit +++| NZ X6,OIC1 IF *INSERT* OR *BEFORE* 03847 M00S03648.libedit +++| SA2 =10H*ADD 03848 M00S03649.libedit +++| BX6 X2 03849 M00S03650.libedit +++| SA6 OUTPUTB+1
| Line S03651 Modification History | |
|---|---|
M01 (Removed by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 03850 M01S03651.libed8 ---| AX3 48 OUTPUT LIBRARY NAME 03851 M01S03652.libed8 ---| CALL CFN,(X3+ADPB-1)
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03653.libedit +++| EQ OIC2
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 03863 M01S00032.libed8 +++| 03864 M00S03654.libedit +++| OIC1 BX6 X2 03865 M00S03655.libedit +++| SA6 OUTPUTB+1 03866 M00S03656.libedit +++| AX1 -17+60 OUTPUT LIBRARY NAME 03867 M00S03657.libedit +++| CALL CFN,(X1+OICD) 03868 M00S03658.libedit +++| CALL CFN,OICA OUTPUT PROGRAM NAME 03869 M00S03659.libedit +++| OIC2 CALL CFN,(=1L,) 03870 M00S03660.libedit +++| SA1 OICA+2 OUTPUT FIRST PROGRAM NAME 03871 M00S03661.libedit +++| CALL CFN,(X1+OICD) 03872 M00S03662.libedit +++| CALL CFN,(OICA+2) 03873 M00S03663.libedit +++| SA1 OICA+2 OUTPUT LAST PROGRAM NAME 03874 M00S03664.libedit +++| SA2 A1+B1 03875 M00S03665.libedit +++| BX6 X1-X2 03876 M00S03666.libedit +++| ZR X6,OIC3 IF FIRST PROGRAM = LAST PROGRAM 03877 M00S03667.libedit +++| CALL CFN,(=1L-) 03878 M00S03668.libedit +++| SA2 OICA+3 03879 M00S03669.libedit +++| CALL CFN,(X2+OICD) 03880 M00S03670.libedit +++| CALL CFN,(OICA+3) 03881 M00S03671.libedit +++| OIC3 CALL OSB OUTPUT STRING BUFFER 03882 M00S03672.libedit +++| EQ OICX RETURN 03883 M00S03673.libedit +++| 03884 M00S03674.libedit +++| 03885 M00S03675.libedit +++| OICA VFD 42/,1/,17/ IPT ENTRY - 42/PROG1,1/BEFORE,17/LIB1 03886 M00S03676.libedit +++| VFD 42/,18/ 42/FILE,18/0 03887 M00S03677.libedit +++| VFD 42/,18/ 42/PROG2,18/LIB2 03888 M00S03678.libedit +++| VFD 42/,18/ 42/PROG3,18/LIB3 03889 M00S03679.libedit +++| 03890 M00S03680.libedit +++| OICB DATA H/ *ERROR* - *DIRECTIVE CAN NOT BE PERFORMED./ 03891 M00S03681.libedit +++| OICBL EQU *-OICB 03892 M00S03682.libedit +++| 03893 M00S03683.libedit +++| OICC DATA 0H*INSERT 03894 M00S03684.libedit +++| DATA 0H*BEFORE 03895 M00S03685.libedit +++|
| Line S03686 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 03896 M01S03686.251l664 ---| OICD DATA 0LTEXT/ 03897 M01S03687.251l664 ---| DATA 0LPP/ 03898 M01S03688.251l664 ---| DATA 0 (UNDEFINED RECORD TYPE) 03899 M01S03689.251l664 ---| DATA 0LREL/ 03900 M01S03690.251l664 ---| DATA 0LOVL/ 03901 M01S03691.251l664 ---| DATA 0LULIB/ 03902 M01S03692.251l664 ---| DATA 0LOPL/ 03903 M01S03693.251l664 ---| DATA 0LOPLC/ 03904 M01S03694.251l664 ---| DATA 0LOPLD/ 03905 M01S03695.251l664 ---| DATA 0LABS/ 03906 M01S03696.251l664 ---| DATA 0LPPU/ 03907 M01S03697.251l664 ---| DATA 0 (UNDEFINED RECORD TYPE) 03908 M01S03698.251l664 ---| DATA 0 (UNDEFINED RECORD TYPE) 03909 M01S03699.251l664 ---| DATA 0 (UNDEFINED RECORD TYPE) 03910 M01S03700.251l664 ---| DATA 0LCAP/ 03911 M01S03701.251l664 ---| DATA 0 (UNDEFINED RECORD TYPE) 03912 M01S03702.251l664 ---| DATA 0LPROC/
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
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
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 03921 M01S00033.libed8 +++| 03922 M01S00034.libed8 +++|OICE BSS 1
| Line S03703 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03923 M01S03703.libed6 ---| OICL BSS 0 03924 M00S03704.libedit +++| SPACE 4 03925 M00S03705.libedit +++|** ORW - OUTPUT RECORDS WRITTEN ON FILE *NEW*. 03926 M00S03706.libedit +++|* 03927 M00S03707.libedit +++|* ENTRY (B2) = ADDRESS OF *INSERT*, *DELETED*, *REPLACED*, 03928 M00S03708.libedit +++|* OR * *. 03929 M00S03709.libedit +++|* (B3) = ADDRESS OF FILE NAME. 03930 M00S03710.libedit +++|* 03931 M00S03711.libedit +++|* USES A - 1, 2, 3, 6, 7. 03932 M00S03712.libedit +++|* X - 0, 1, 2, 3, 6, 7. 03933 M00S03713.libedit +++|* B - 2. 03934 M00S03714.libedit +++|* 03935 M00S03715.libedit +++|* CALLS LOL. 03936 M00S03716.libedit +++| 03937 M00S03717.libedit +++|
| Line S03718 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03938 M01S03718.libed6 ---| NAME ORW,ORWL 03939 M00S03719.libedit +++| ORW SUBR ENTRY/EXIT 03940 M00S03720.libedit +++| SA1 LIST 03941 M00S03721.libedit +++| SX2 10B+2B 03942 M00S03722.libedit +++| BX1 X2*X1 03943 M00S03723.libedit +++| ZR X1,ORWX IF LIST OPTION IS OFF 03944 M00S03724.libedit +++| SA2 B2 SET STATUS AND FILE NAME 03945 M00S03725.libedit +++| SX6 10B 03946 M00S03726.libedit +++| BX1 X6*X1 03947 M00S03727.libedit +++| NZ X1,ORW1 IF FULL LIST OPTION ON 03948 M00S03728.libedit +++| SA3 =1H 03949 M00S03729.libedit +++| BX6 X2-X3 03950 M00S03730.libedit +++| NZ X6,ORW1 IF COMMENT MESSAGE 03951 M00S03731.libedit +++| SA3 OUTPUTB+1 CHECK FOR RENAME 03952 M00S03732.libedit +++| MX0 60-12 03953 M00S03733.libedit +++| BX6 -X0*X3 03954 M00S03734.libedit +++| SX7 X6-2R* 03955 M00S03735.libedit +++| NZ X7,ORWX IF NO RENAME 03956 M00S03736.libedit +++| ORW1 SA3 B3 03957 M00S03737.libedit +++| BX6 X2 03958 M00S03738.libedit +++| MX0 42 03959 M00S03739.libedit +++| LX6 54 03960 M00S03740.libedit +++| BX7 X0*X3 03961 M00S03741.libedit +++| SA6 OUTPUTB 03962 M00S03742.libedit +++| SA7 OUTPUTB+3 03963 M00S03743.libedit +++| SA1 TTYO 03964 M00S03744.libedit +++| NZ X1,ORW3 IF NOT TTY OUTPUT 03965 M00S03745.libedit +++| BX6 X6-X6 03966 M00S03746.libedit +++| SB2 DCBL-5 03967 M00S03747.libedit +++| SA6 OUTPUTB+5 03968 M00S03748.libedit +++| ORW2 SA6 A6+B1 CLEAR COMMENT FIELD 03969 M00S03749.libedit +++| SB2 B2-B1 03970 M00S03750.libedit +++| NZ B2,ORW2 IF NOT END OF BUFFER 03971 M00S03751.libedit +++| ORW3 RJ LOL LIST ONE LINE 03972 M00S03752.libedit +++| EQ ORWX RETURN
| Line S03753 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03973 M01S03753.libed6 ---| 03974 M01S03754.libed6 ---| ORWL BSS 0 03975 M00S03755.libedit +++| SPACE 4 03976 M00S03756.libedit +++|** OSB - OUTPUT STRING BUFFER. 03977 M00S03757.libedit +++|* 03978 M00S03758.libedit +++|* ENTRY (OUTPUTB) = STRING BUFFER. 03979 M00S03759.libedit +++|* 03980 M00S03760.libedit +++|* USES X - 1, 6. 03981 M00S03761.libedit +++|* A - 1, 6. 03982 M00S03762.libedit +++|* B - 4, 5, 6, 7. 03983 M00S03763.libedit +++|* 03984 M00S03764.libedit +++|* CALLS LOL. 03985 M00S03765.libedit +++|* 03986 M00S03766.libedit +++|* MACROS CALL. 03987 M00S03767.libedit +++| 03988 M00S03768.libedit +++|
| Line S03769 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 03989 M01S03769.libed6 ---| NAME OSB,OSBL 03990 M00S03770.libedit +++| OSB SUBR ENTRY/EXIT 03991 M00S03771.libedit +++| SX6 DSB RESET STRING BUFFER POINTER 03992 M00S03772.libedit +++| SA6 SBP 03993 M00S03773.libedit +++| SB6 OUTPUTB+2 03994 M00S03774.libedit +++| SB7 OUTPUTB+DCBL 03995 M00S03775.libedit +++| SA1 DSB 03996 M00S03776.libedit +++| SB4 10 03997 M00S03777.libedit +++| SX6 B0 03998 M00S03778.libedit +++| SB5 B4 03999 M00S03779.libedit +++| EQ OSB2 04000 M00S03780.libedit +++| 04001 M00S03781.libedit +++| OSB1 SA6 B6 STORE WORD 04002 M00S03782.libedit +++| SB6 B6+B1 04003 M00S03783.libedit +++| SB5 B4 04004 M00S03784.libedit +++| SX6 B0 04005 M00S03785.libedit +++| OSB2 ZR B5,OSB1 IF END OF WORD 04006 M00S03786.libedit +++| LX6 6 04007 M00S03787.libedit +++| BX6 X6+X1 04008 M00S03788.libedit +++| SA1 A1+B1 04009 M00S03789.libedit +++| SB5 B5-B1 04010 M00S03790.libedit +++| NZ X1,OSB2 IF NOT END OF STRING BUFFER 04011 M00S03791.libedit +++| SA1 A1-B1 04012 M00S03792.libedit +++| SX1 1R 04013 M00S03793.libedit +++| NZ B5,OSB2 IF NOT END OF WORD 04014 M00S03794.libedit +++| SA1 =10H 04015 M00S03795.libedit +++| SA6 B6 04016 M00S03796.libedit +++| BX6 X1 04017 M00S03797.libedit +++| OSB3 SB6 B6+B1 BLANK FILL WORKING STORAGE 04018 M00S03798.libedit +++| SA6 B6 04019 M00S03799.libedit +++| NE B6,B7,OSB3 04020 M00S03800.libedit +++| CALL LOL 04021 M00S03801.libedit +++| EQ OSBX RETURN
| Line S03802 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04022 M01S03802.libed6 ---| 04023 M01S03803.libed6 ---| OSBL BSS 0 04024 M01S03804.libed6 ---| SPACE 4
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04025 M01S00021.libed6 +++| OZR SPACE 4,15 04026 M00S03805.libedit +++|** OZR - OUTPUT ZERO LENGTH RECORD. 04027 M00S03806.libedit +++|* 04028 M00S03807.libedit +++|* ENTRY (B2) = ADDRESS OF STATUS. 04029 M00S03808.libedit +++|* (B3) = ADDRESS OF FILE NAME. 04030 M00S03809.libedit +++|* (B4) = ADDRESS OF PROGRAM NAME. 04031 M00S03810.libedit +++|* 04032 M00S03811.libedit +++|* USES A - 1, 6. 04033 M00S03812.libedit +++|* X - 1, 2, 6. 04034 M00S03813.libedit +++|* 04035 M00S03814.libedit +++|* CALLS COB, LOL, ORW. 04036 M00S03815.libedit +++|* 04037 M00S03816.libedit +++|* MACROS CALL. 04038 M00S03817.libedit +++| 04039 M00S03818.libedit +++|
| Line S03819 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04040 M01S03819.libed6 ---| NAME OZR,OZRL 04041 M00S03820.libedit +++| OZR SUBR ENTRY/EXIT 04042 M00S03821.libedit +++| CALL COB CLEAR OUTPUT BUFFER 04043 M00S03822.libedit +++| SA1 B4 04044 M00S03823.libedit +++| BX6 X1 SET PROGRAM NAME 04045 M00S03824.libedit +++| SA6 OUTPUTB+1 04046 M00S03825.libedit +++| CALL ORW,B2,B3 OUTPUT RECORD WRITTEN 04047 M00S03826.libedit +++| CALL COB CLEAR OUTPUT BUFFER 04048 M00S03827.libedit +++| SA1 LIST CHECK LIST OPTION 04049 M00S03828.libedit +++| SX2 10B 04050 M00S03829.libedit +++| BX1 X2*X1 04051 M00S03830.libedit +++| ZR X1,OZR IF FULL LIST OPTION OFF 04052 M00S03831.libedit +++| CALL LOL LIST ONE LINE 04053 M00S03832.libedit +++| EQ OZRX RETURN
| Line S03833 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04054 M01S03833.libed6 ---| OZRL BSS 0 04055 M01S03834.libed6 ---| 04056 M00S03835.libedit +++| SPACE 4 04057 M00S03836.libedit +++|** RCF - READ ALL CORRECTION FILES. 04058 M00S03837.libedit +++|* 04059 M00S03838.libedit +++|* READ CORRECTION FILES, IGNORING RECORDS IN THE IGNORE TABLE. 04060 M00S03839.libedit +++|* MAKE ENTRYS IN THE PROGRAM NAME TABLE. 04061 M00S03840.libedit +++|* 04062 M00S03841.libedit +++|* USES A - 1, 2, 3, 4, 6, 7. 04063 M00S03842.libedit +++|* X - 0, 1, 2, 3, 4, 6, 7. 04064 M00S03843.libedit +++|* B - 2, 3, 6, 7. 04065 M00S03844.libedit +++|* 04066 M00S03845.libedit +++|* CALLS CIT, CVD, DIS, SRT. 04067 M00S03846.libedit +++|* 04068 M00S03847.libedit +++|* MACROS ADDWRD, BKSP, CALL, OPEN, READCW, READW, REWIND, WRCW, 04069 M00S03848.libedit +++|* WRITECW. 04070 M00S03849.libedit +++| 04071 M00S03850.libedit +++|
| Line S03851 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04072 M01S03851.libed6 ---| NAME RCF,RCFL 04073 M00S03852.libedit +++| RCF11 WRITECW S,R FLUSH BUFFER 04074 M00S03853.libedit +++| REWIND X2,R 04075 M00S03854.libedit +++| SX7 1 INITIALIZE SECTOR COUNT 04076 M00S03855.libedit +++| SA7 SC 04077 M00S03856.libedit +++| 04078 M00S03857.libedit +++| RCF SUBR ENTRY/EXIT 04079 M00S03858.libedit +++| OPEN S,WRITE,R 04080 M00S03859.libedit +++| WRITECW S,* SET FILE STATUS 04081 M00S03860.libedit +++| SA3 S+4 04082 M00S03861.libedit +++| BX6 X6-X6 04083 M00S03862.libedit +++| AX3 18 EXTRACT PRU SIZE 04084 M00S03863.libedit +++| SA6 RCFA 04085 M00S03864.libedit +++| SX7 X3+ 04086 M00S03865.libedit +++| SA7 S-1 04087 M00S03866.libedit +++| RCF1 SX6 B0 CLEAR PROGRAM TYPE 04088 M00S03867.libedit +++| SA6 RCFE 04089 M00S03868.libedit +++| SA1 P.FNT DO LOOP TO READ CORRECTION FILE 04090 M00S03869.libedit +++| SA2 L.FNT 04091 M00S03870.libedit +++| SA3 RCFA 04092 M00S03871.libedit +++| SB2 X2 04093 M00S03872.libedit +++| SB3 X3 04094 M00S03873.libedit +++| EQ B2,B3,RCF11 IF END OF TABLE 04095 M00S03874.libedit +++| SA4 X1+B3 READ FILE NAME 04096 M00S03875.libedit +++| MX0 42 04097 M00S03876.libedit +++| BX6 X4 04098 M00S03877.libedit +++| SA6 RCFC+1 04099 M00S03878.libedit +++| BX6 X0*X4 04100 M00S03879.libedit +++| SX7 17B SET NAME IN FET 04101 M00S03880.libedit +++| BX7 X6+X7 04102 M00S03881.libedit +++| SA6 RCFB 04103 M00S03882.libedit +++| SA7 LGO 04104 M00S03883.libedit +++| OPEN A7,READ,R 04105 M00S03884.libedit +++| SA1 LGO+1 CHECK VALID DEVICE 04106 M00S03885.libedit +++| RJ CVD 04107 M00S03886.libedit +++| ZR X7,IDT IF CONTROL WORD I/O NOT SUPPORTED 04108 M00S03887.libedit +++| READCW LGO,17B 04109 M00S03888.libedit +++| RCF2 SA1 SC 04110 M00S03889.libedit +++| BX7 X1 STORE RANDOM ADDRESS 04111 M00S03890.libedit +++| SA7 RCFC+2 04112 M00S03891.libedit +++| READW LGO,WSB,WSBL READ 1 SECTOR 04113 M00S03892.libedit +++| PL X1,RCF4 IF NOT EOF 04114 M00S03893.libedit +++| RCF3 BKSP LGO,R 04115 M00S03894.libedit +++| SA1 RCFA INCREMENT FILE INDEX 04116 M00S03895.libedit +++| SX6 X1+B1 04117 M00S03896.libedit +++| SA6 A1 04118 M00S03897.libedit +++| EQ RCF1 LOOP TO READ NEXT FILE 04119 M00S03898.libedit +++| 04120 M00S03899.libedit +++| RCF4 BX6 X1 SET EOR INDICATOR 04121 M00S03900.libedit +++| SA6 RCFD 04122 M00S03901.libedit +++| SB7 X1 04123 M00S03902.libedit +++| SB6 WSB 04124 M00S03903.libedit +++| EQ B6,B7,RCF2 IF 0-LENGTH RECORD 04125 M00S03904.libedit +++| 04126 M00S03905.libedit +++|* CHECK PROGRAM TYPE, CHECK IGNORE TABLE, AND MAKE 04127 M00S03906.libedit +++|* ENTRY INTO THE PROGRAM NAME TABLE. 04128 M00S03907.libedit +++| 04129 M00S03908.libedit +++| SA1 X2-LWP LWA+1 OF DATA TRANSFERED 04130 M00S03909.libedit +++| SX2 WSB FWA OF BUFFER 04131 M00S03910.libedit +++| RJ SRT SET RECORD TYPE 04132 M00S03911.libedit +++| SA6 RCFC 04133 M00S03912.libedit +++| CALL DIS,RCFC,(=H*READING *) 04134 M00S03913.libedit +++| 04135 M00S03914.libedit +++|* COPY REST OF RECORD. 04136 M00S03915.libedit +++| 04137 M00S03916.libedit +++| SA1 RCFD 04138 M00S03917.libedit +++| NZ X1,RCF6 IF EOR READ 04139 M00S03918.libedit +++| RCF5 WRCW S,WSB,WSBL 04140 M00S03919.libedit +++| READW LGO,WSB,WSBL 04141 M00S03920.libedit +++| ZR X1,RCF5 IF NOT EOR READ 04142 M00S03921.libedit +++| SA1 LGO-LWP LWA + 1 OF DATA TRANSFERED 04143 M00S03922.libedit +++| RCF6 WRCW S,WSB,X1-WSB,R 04144 M00S03923.libedit +++| CALL CIT,RCFB,RCFC 04145 M00S03924.libedit +++| SA1 RCFC GET RECORD TYPE 04146 M00S03925.libedit +++| NZ X6,RCF7 IF NOT IGNORED
| Line S03926 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04147 M01S03926.251l664 ---| SB7 X1-5
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04148 M01S00045.251l664 +++| SB7 X1-ULRT 04149 M00S03927.libedit +++| ZR B7,RCF8 IF TYPE *ULIB* 04150 M00S03928.libedit +++| JP RCF2 READ NEXT RECORD 04151 M00S03929.libedit +++|
| Line S03930 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04152 M01S03930.251l664 ---| RCF7 SX6 X1-8
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04153 M01S00046.251l664 +++| RCF7 SX6 X1-ODRT 04154 M00S03931.libedit +++| ZR X6,RCF2 IF RECORD IS *OPLD* 04155 M00S03932.libedit +++| SA2 CULB 04156 M00S03933.libedit +++| ZR X2,RCF7.1 IF NOT *ULIB* MODE
| Line S03934 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04157 M01S03934.251l664 ---| SX6 X1-5
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04158 M01S00047.251l664 +++| SX6 X1-ULRT 04159 M00S03935.libedit +++| ZR X6,RCF2 IF *ULIB* SKIP RECORD 04160 M00S03936.libedit +++| RCF7.1 ADDWRD PNT,RCFC 04161 M00S03937.libedit +++| SA1 RCFC CHECK PROGRAM TYPE
| Line S03938 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04162 M01S03938.251l664 ---| SB7 X1-5
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04163 M01S00048.251l664 +++| SB7 X1-ULRT 04164 M00S03939.libedit +++| NZ B7,RCF2 IF NOT TYPE *ULIB* 04165 M00S03940.libedit +++| 04166 M00S03941.libedit +++|* COPY USER LIBRARY. 04167 M00S03942.libedit +++| 04168 M00S03943.libedit +++| RCF8 READW LGO,WSB,WSBL 04169 M00S03944.libedit +++| NG X1,RCF3 IF EOF 04170 M00S03945.libedit +++| SB6 WSB 04171 M00S03946.libedit +++| SB7 X1 04172 M00S03947.libedit +++| EQ B6,B7,RCF10 IF 0-LENGTH RECORD 04173 M00S03948.libedit +++| BX6 X1 SET EOR INDICATOR 04174 M00S03949.libedit +++| SA6 RCFD 04175 M00S03950.libedit +++| SA1 X2-LWP LWA+1 OF DATA TRANSFERED 04176 M00S03951.libedit +++| SX2 WSB 04177 M00S03952.libedit +++| RJ SRT SET RECORD TYPE 04178 M00S03953.libedit +++| SA6 RCFE 04179 M00S03954.libedit +++| SA1 RCFD 04180 M00S03955.libedit +++| NZ X1,RCF10 IF EOR 04181 M00S03956.libedit +++| RCF9 WRCW S,WSB,WSBL 04182 M00S03957.libedit +++| READW LGO,WSB,WSBL 04183 M00S03958.libedit +++| ZR X1,RCF9 IF NOT EOR 04184 M00S03959.libedit +++| RCF10 WRCW S,WSB,X1-WSB,R 04185 M00S03960.libedit +++| SA2 RCFE
| Line S03961 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04186 M01S03961.251l664 ---| SX6 X2-8
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04187 M01S00049.251l664 +++| SX6 X2-ODRT 04188 M00S03962.libedit +++| NZ X6,RCF8 IF NOT OPLD 04189 M00S03963.libedit +++| EQ RCF2 READ NEXT RECORD 04190 M00S03964.libedit +++| 04191 M00S03965.libedit +++| 04192 M00S03966.libedit +++| RCFA DATA 0 INDEX IN FNT 04193 M00S03967.libedit +++| RCFB VFD 42/,18/ CURRENT FILE NAME 04194 M00S03968.libedit +++| 04195 M00S03969.libedit +++| RCFC VFD 42/,18/ 42/PROGRAM,18/TYPE 04196 M00S03970.libedit +++| VFD 42/,18/ 42/FILE,18/ADDRESS 04197 M00S03971.libedit +++| VFD 60/ 60/POSITION 04198 M00S03972.libedit +++| 04199 M00S03973.libedit +++| RCFD DATA 0 EOR INDICATOR 04200 M00S03974.libedit +++| RCFE DATA 0 USER LIBRARY RECORD NAME
| Line S03975 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04201 M01S03975.libed6 ---| RCFL BSS 0 04202 M00S03976.libedit +++| RFN SPACE 4,10 04203 M00S03977.libedit +++|** RFN - REPLACE FILE NAME. 04204 M00S03978.libedit +++|* 04205 M00S03979.libedit +++|* ENTRY (A1) = ADDRESS OF ENTRY IN LIST OF FILES. 04206 M00S03980.libedit +++|* (X1) = CONTENTS OF ENTRY IN LIST OF FILES. 04207 M00S03981.libedit +++|* (X6) = NEW FILE NAME. 04208 M00S03982.libedit +++|* 04209 M00S03983.libedit +++|* EXIT FILE NAME CHANGED. 04210 M00S03984.libedit +++|* 04211 M00S03985.libedit +++|* USES A - 3, 6. 04212 M00S03986.libedit +++|* X - 0, 1, 2, 3, 6. 04213 M00S03987.libedit +++| 04214 M00S03988.libedit +++|
| Line S03989 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04215 M01S03989.libed6 ---| NAME RFN,RFNL 04216 M00S03990.libedit +++| RFN SUBR ENTRY/EXIT 04217 M00S03991.libedit +++| MX0 -18 04218 M00S03992.libedit +++| BX1 -X0*X1 EXTRACT ADDRESS OF FET 04219 M00S03993.libedit +++| SA3 X1 READ FET+0 04220 M00S03994.libedit +++| BX2 X0*X6 04221 M00S03995.libedit +++| SX6 1R0 04222 M00S03996.libedit +++| LX6 -6 04223 M00S03997.libedit +++| BX6 X6-X2 04224 M00S03998.libedit +++| ZR X6,RFN1 IF FILE NAME = *0* 04225 M00S03999.libedit +++| BX6 X2 04226 M00S04000.libedit +++| ZR X6,RFN1 IF NO NEW FILE NAME 04227 M00S04001.libedit +++| BX3 -X0*X3 04228 M00S04002.libedit +++| BX6 X3+X6 04229 M00S04003.libedit +++| RFN1 SA6 A3 04230 M00S04004.libedit +++| BX6 X0*X6 04231 M00S04005.libedit +++| BX6 X6+X1 04232 M00S04006.libedit +++| SA6 A1 04233 M00S04007.libedit +++| EQ RFNX RETURN
| Line S04008 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04234 M01S04008.libed6 ---| 04235 M01S04009.libed6 ---| RFNL BSS 0 04236 M00S04010.libedit +++| RNP SPACE 4,10 04237 M00S04011.libedit +++|** RNP - RENAME PROGRAM. 04238 M00S04012.libedit +++|* ENTRY (B2) = ADDRESS OF PROGRAM NAME. 04239 M00S04013.libedit +++|* EXIT (X6) = NEW PROGRAM NAME AND TYPE. 04240 M00S04014.libedit +++|* 04241 M00S04015.libedit +++|* USES A - 1, 2, 3, 6. 04242 M00S04016.libedit +++|* X - 0, 1, 2, 3, 6. 04243 M00S04017.libedit +++|* B - 2, 3, 4. 04244 M00S04018.libedit +++|* 04245 M00S04019.libedit +++|* MACROS MESSAGE, SEARCH. 04246 M00S04020.libedit +++| 04247 M00S04021.libedit +++|
| Line S04022 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04248 M01S04022.libed6 ---| NAME RNP,RNPL 04249 M00S04023.libedit +++| RNP SUBR ENTRY/EXIT 04250 M00S04024.libedit +++| SX6 B2 SAVE PROGRAM NAME ADDRESS 04251 M00S04025.libedit +++| MX0 42 04252 M00S04026.libedit +++| SA6 RNPA 04253 M00S04027.libedit +++| SEARCH RNT,X6 04254 M00S04028.libedit +++| SA1 RNPA 04255 M00S04029.libedit +++| SB2 X6 04256 M00S04030.libedit +++| SA2 X1 04257 M00S04031.libedit +++| BX6 X2 04258 M00S04032.libedit +++| ZR B2,RNPX IF NO RENAME 04259 M00S04033.libedit +++| SA2 RNPA CHECK RECORD TYPE 04260 M00S04034.libedit +++| SA3 X2 04261 M00S04035.libedit +++| SB3 X3
| Line S04036 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04262 M01S04036.251l664 ---| SB4 B3-20B CHECK FOR TYPE *PROC*
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04263 M01S00050.251l664 +++| ERRNZ TXRT CODE ASSUMES VALUE 04264 M01S00051.251l664 +++| SB4 B3+TXRT-PRRT CHECK FOR TYPE *PROC*
| Line S04037 Modification History | |
|---|---|
M01 (Removed by) | libed2 |
Seq # *Modification Id* Act ----------------------------+ 04265 M01S04037.libed2 ---| NZ B4,RNP1 IF NOT TYPE *PROC* 04266 M01S04038.libed2 ---| MESSAGE (=C* RENAME OF PROC TYPE NOT ALLOWED.*)
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | libed2 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04039.libedit +++| EQ RNPX RETURN 04271 M00S04040.libedit +++|
| Line S04041 Modification History | |
|---|---|
M01 (Removed by) | libed2 |
Seq # *Modification Id* Act ----------------------------+ 04272 M01S04041.libed2 ---| RNP1 SA2 B2+B1
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | libed2 |
Seq # *Modification Id* Act ----------------------------+ 04273 M01S00007.libed2 +++| RNP2 SA2 B2+B1 04274 M00S04042.libedit +++| BX6 X0*X2 04275 M00S04043.libedit +++| SX3 2R* 04276 M00S04044.libedit +++| BX6 X6+X3 04277 M00S04045.libedit +++| SA6 OUTPUTB+1 04278 M00S04046.libedit +++| BX6 X2 04279 M00S04047.libedit +++| SA6 X1 04280 M00S04048.libedit +++| EQ RNPX RETURN 04281 M00S04049.libedit +++| 04282 M00S04050.libedit +++| 04283 M00S04051.libedit +++| RNPA DATA 0 ADDRESS OF PROGRAM NAME
| Line S04052 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04284 M01S04052.libed6 ---| RNPL BSS 0 04285 M00S04053.libedit +++| SPACE 4 04286 M00S04054.libedit +++|** RWF - REWIND ALL FILES. 04287 M00S04055.libedit +++|* 04288 M00S04056.libedit +++|* REWIND ALL RANDOM FILES ALONG WITH THE FILES IN THE RFT. 04289 M00S04057.libedit +++|* 04290 M00S04058.libedit +++|* USES X - 0, 1, 2, 3, 6. 04291 M00S04059.libedit +++|* A - 1, 2, 3, 6. 04292 M00S04060.libedit +++|* B - 6, 7. 04293 M00S04061.libedit +++|* 04294 M00S04062.libedit +++|* MACROS EVICT, REWIND. 04295 M00S04063.libedit +++| 04296 M00S04064.libedit +++|
| Line S04065 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04297 M01S04065.libed6 ---| NAME RWF,RWFL 04298 M00S04066.libedit +++| RWF SUBR ENTRY/EXIT 04299 M00S04067.libedit +++| EVICT S,R 04300 M00S04068.libedit +++| SA1 P.FNT 04301 M00S04069.libedit +++| SA2 L.FNT 04302 M00S04070.libedit +++| SB6 X1 04303 M00S04071.libedit +++| SB7 X2+B6 04304 M00S04072.libedit +++| RWF1 EQ B6,B7,RWF2 IF END OF TABLE 04305 M00S04073.libedit +++| SA1 B6 CHECK IF FILE IS RANDOM 04306 M00S04074.libedit +++| MX0 42 04307 M00S04075.libedit +++| SX6 3 04308 M00S04076.libedit +++| BX2 -X0*X1 04309 M00S04077.libedit +++| BX1 X0*X1 04310 M00S04078.libedit +++| SB6 B6+B1 04311 M00S04079.libedit +++| BX6 X6+X1 04312 M00S04080.libedit +++| NZ X2,RWF1 LOOP IF FILE IS NON-RANDOM 04313 M00S04081.libedit +++| SA6 LGO 04314 M00S04082.libedit +++| REWIND A6,R 04315 M00S04083.libedit +++| EQ RWF1 04316 M00S04084.libedit +++| 04317 M00S04085.libedit +++| RWF2 SA1 P.RFT REWIND FILES IN THE REWIND FILE TABLE 04318 M00S04086.libedit +++| SA2 L.RFT 04319 M00S04087.libedit +++| SB6 X1 04320 M00S04088.libedit +++| SB7 X2+B6 04321 M00S04089.libedit +++| RWF3 EQ B6,B7,RWF4 IF END OF TABLE 04322 M00S04090.libedit +++| SA1 B6 04323 M00S04091.libedit +++| SX6 3 04324 M00S04092.libedit +++| SB6 B6+B1 04325 M00S04093.libedit +++| BX6 X6+X1 04326 M00S04094.libedit +++| SA6 LGO 04327 M00S04095.libedit +++| REWIND A6,R 04328 M00S04096.libedit +++| EQ RWF3 LOOP 04329 M00S04097.libedit +++| 04330 M00S04098.libedit +++| RWF4 SA1 CREW CHECK FOR NO REWIND OPTION 04331 M00S04099.libedit +++| ZR X1,RWF5 IF NO REWIND 04332 M00S04100.libedit +++| 04333 M00S04101.libedit +++| SX1 B1 04334 M00S04102.libedit +++| RWF5 SX6 B1 04335 M00S04103.libedit +++| BX6 X6-X1 04336 M00S04104.libedit +++| SA2 CVFY 04337 M00S04105.libedit +++| SA3 CCPY 04338 M00S04106.libedit +++| BX6 X6+X2 04339 M00S04107.libedit +++| BX6 X6+X3 04340 M00S04108.libedit +++| ZR X6,RWFX IF V AND C NOT SET AND R SET 04341 M00S04109.libedit +++| REWIND OLD,R 04342 M00S04110.libedit +++| REWIND NEW,R 04343 M00S04111.libedit +++| EQ RWFX RETURN
| Line S04112 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04344 M01S04112.libed6 ---| 04345 M01S04113.libed6 ---| RWFL BSS 0 04346 M00S04114.libedit +++| SPACE 4 04347 M00S04115.libedit +++|** RWS - REWIND SEQUENTIAL FILES. 04348 M00S04116.libedit +++|* 04349 M00S04117.libedit +++|* REWIND SEQUENTIAL CORRECTION FILES THAT HAVE REWIND SELECTED. 04350 M00S04118.libedit +++|* 04351 M00S04119.libedit +++|* USES X - 0, 1, 2, 3, 6, 7. 04352 M00S04120.libedit +++|* A - 1, 2, 3, 6. 04353 M00S04121.libedit +++|* B - 6, 7. 04354 M00S04122.libedit +++|* 04355 M00S04123.libedit +++|* MACROS REWIND, SEARCH. 04356 M00S04124.libedit +++| 04357 M00S04125.libedit +++|
| Line S04126 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04358 M01S04126.libed6 ---| NAME RWS,RWSL 04359 M00S04127.libedit +++| RWS SUBR ENTRY/EXIT 04360 M00S04128.libedit +++| SX6 B0 04361 M00S04129.libedit +++| SA6 RWSA 04362 M00S04130.libedit +++| RWS1 SA1 P.FNT 04363 M00S04131.libedit +++| SA2 L.FNT 04364 M00S04132.libedit +++| SA3 RWSA 04365 M00S04133.libedit +++| SB6 X1 04366 M00S04134.libedit +++| SB7 B6+X2 04367 M00S04135.libedit +++| SB6 B6+X3 04368 M00S04136.libedit +++| SX6 X3+B1 04369 M00S04137.libedit +++| EQ B6,B7,RWSX IF END OF FNT 04370 M00S04138.libedit +++| SA6 A3 04371 M00S04139.libedit +++| SA1 B6 READ FILE NAME 04372 M00S04140.libedit +++| MX0 42 04373 M00S04141.libedit +++| BX6 -X0*X1 04374 M00S04142.libedit +++| ZR X6,RWS1 IF FILE IS RANDOM 04375 M00S04143.libedit +++| SEARCH RFT,B6,(=77777777777777000000B) 04376 M00S04144.libedit +++| ZR X6,RWS1 IF FILE IS NOT IN RFT 04377 M00S04145.libedit +++| SA1 P.FNT REWIND FILE 04378 M00S04146.libedit +++| SA3 RWSA 04379 M00S04147.libedit +++| IX2 X1+X3 04380 M00S04148.libedit +++| MX0 42 04381 M00S04149.libedit +++| SA2 X2-1 04382 M00S04150.libedit +++| BX6 X0*X2 04383 M00S04151.libedit +++| SX7 B1 04384 M00S04152.libedit +++| IX6 X6+X7 04385 M00S04153.libedit +++| SA6 A2 04386 M00S04154.libedit +++| SA6 LGO 04387 M00S04155.libedit +++| REWIND A6,R 04388 M00S04156.libedit +++| EQ RWS1 04389 M00S04157.libedit +++| 04390 M00S04158.libedit +++| 04391 M00S04159.libedit +++| RWSA DATA 0 FNT INDEX
| Line S04160 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04392 M01S04160.libed6 ---| RWSL BSS 0 04393 M00S04161.libedit +++| SPACE 4 04394 M00S04162.libedit +++|** SMT - SEARCH MANAGED TABLE. 04395 M00S04163.libedit +++|* 04396 M00S04164.libedit +++|* ENTRY (B2) = ADDRESS OF TABLE POINTER. 04397 M00S04165.libedit +++|* (B3) = ADDRESS OF ENTRY. 04398 M00S04166.libedit +++|* (B4) = ADDRESS OF MASK. 04399 M00S04167.libedit +++|* (B5) = INDEX INTO TABLE. 04400 M00S04168.libedit +++|* EXIT (B6) = ADDRESS OF ADDRESS OF ENTRY IF FOUND. 04401 M00S04169.libedit +++|* (B6) = ADDRESS OF 0 IF NOT FOUND. 04402 M00S04170.libedit +++|* (X6) = ADDRESS OF ENTRY IF FOUND 04403 M00S04171.libedit +++|* (X6) = 0 IF NOT FOUND 04404 M00S04172.libedit +++|* 04405 M00S04173.libedit +++|* USES A - 1, 2, 3, 4, 5, 6. 04406 M00S04174.libedit +++|* X - 1, 2, 3, 4, 5, 6. 04407 M00S04175.libedit +++|* B - 2, 3, 7. 04408 M00S04176.libedit +++| 04409 M00S04177.libedit +++|
| Line S04178 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04410 M01S04178.libed6 ---| NAME SMT,SMTL 04411 M00S04179.libedit +++| SMT SUBR ENTRY/EXIT 04412 M00S04180.libedit +++| SA1 B2 SET TABLE POINTER 04413 M00S04181.libedit +++| SA2 A1+B1 SET TABLE LENGTH 04414 M00S04182.libedit +++| SA3 A2+B1 SET NUMBER OF WORDS/ENTRY 04415 M00S04183.libedit +++| SA4 B3 (X4) = ENTRY 04416 M00S04184.libedit +++| SB2 X1 (B2) = FWA TABLE 04417 M00S04185.libedit +++| SB7 X2+B2 (B7) = LWA TABLE 04418 M00S04186.libedit +++| SB3 X3 (B3) = WORDS/ENTRY 04419 M00S04187.libedit +++| SA5 B4 (X5) = MASK 04420 M00S04188.libedit +++| SMT1 EQ B2,B7,SMT2 IF END OF TABLE 04421 M00S04189.libedit +++| SA1 B2+B5 04422 M00S04190.libedit +++| BX6 X4-X1 04423 M00S04191.libedit +++| BX6 X5*X6 04424 M00S04192.libedit +++| SB2 B2+B3 04425 M00S04193.libedit +++| NZ X6,SMT1 IF NOT FOUND 04426 M00S04194.libedit +++| SX6 B2-B3 SET ENTRY ADDRESS 04427 M00S04195.libedit +++| SA6 B6 04428 M00S04196.libedit +++| EQ SMTX RETURN 04429 M00S04197.libedit +++| 04430 M00S04198.libedit +++| SMT2 SX6 B0 SET NOT FOUND 04431 M00S04199.libedit +++| SA6 B6 04432 M00S04200.libedit +++| EQ SMTX RETURN 04433 M00S04201.libedit +++| 04434 M00S04202.libedit +++| 04435 M00S04203.libedit +++| SMTA VFD 60/0
| Line S04204 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04436 M01S04204.libed6 ---| SMTL BSS 0 04437 M00S04205.libedit +++| SPACE 4 04438 M00S04206.libedit +++|** STB - SET TITLE BUFFER. 04439 M00S04207.libedit +++|* 04440 M00S04208.libedit +++|* ENTRY (B2) = ADDRESS OF TITLE. 04441 M00S04209.libedit +++|* (B6) = 0 IF TITLE. 04442 M00S04210.libedit +++|* = 1 IF SUBTITLE. 04443 M00S04211.libedit +++|* 04444 M00S04212.libedit +++|* USES A - 1, 2, 6. 04445 M00S04213.libedit +++|* X - 0, 1, 2, 6. 04446 M00S04214.libedit +++|* B - 2, 6, 7. 04447 M00S04215.libedit +++| 04448 M00S04216.libedit +++|
| Line S04217 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04449 M01S04217.libed6 ---| NAME STB,STBL 04450 M00S04218.libedit +++| STB SUBR ENTRY/EXIT 04451 M00S04219.libedit +++| NZ B6,STB0 IF SUBTITLE 04452 M00S04220.libedit +++| SB6 TITA 04453 M00S04221.libedit +++| SB7 TITB 04454 M00S04222.libedit +++| EQ STB1 SET TITLE BUFFER 04455 M00S04223.libedit +++| 04456 M00S04224.libedit +++| STB0 SB6 TITE 04457 M00S04225.libedit +++| SB7 TITF 04458 M00S04226.libedit +++| STB1 SX1 1R 04459 M00S04227.libedit +++| MX0 54
| Line S04228 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04460 M01S04228.ns22000 ---| SX6 LNCNT RESET LINE COUNT
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04461 M01S00018.ns22000 +++| SX6 99999 FORCE PAGE EJECT 04462 M00S04229.libedit +++| SA6 LINE 04463 M00S04230.libedit +++| SA2 B2 COPY TITLE OR SUBTITLE 04464 M00S04231.libedit +++| BX6 X2 04465 M00S04232.libedit +++| BX7 -X0*X2 04466 M00S04233.libedit +++| SB2 B2+B1 04467 M00S04234.libedit +++| ZR X7,STB2 IF END OF TITLE 04468 M00S04235.libedit +++| SA6 B6 04469 M00S04236.libedit +++| SB6 B6+B1 04470 M00S04237.libedit +++| NE B6,B7,STB1 IF NOT END OF TITLE BUFFER 04471 M00S04238.libedit +++| EQ STBX RETURN 04472 M00S04239.libedit +++| 04473 M00S04240.libedit +++|* ADD TRAILING BLANKS. 04474 M00S04241.libedit +++| 04475 M00S04242.libedit +++| STB2 BX6 X6+X1 04476 M00S04243.libedit +++| LX1 6 04477 M00S04244.libedit +++| LX0 6 04478 M00S04245.libedit +++| BX7 -X0*X2 04479 M00S04246.libedit +++| ZR X7,STB2 LOOP 04480 M00S04247.libedit +++| SA6 B6 04481 M00S04248.libedit +++| SA1 =1H BLANK FILL REMAINING WORDS 04482 M00S04249.libedit +++| BX6 X1 04483 M00S04250.libedit +++| SB6 B6+B1 04484 M00S04251.libedit +++| STB3 EQ B6,B7,STBX IF END OF BUFFER 04485 M00S04252.libedit +++| SA6 B6 04486 M00S04253.libedit +++| SB6 B6+B1 04487 M00S04254.libedit +++| EQ STB3
| Line S04255 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04488 M01S04255.libed6 ---| 04489 M01S04256.libed6 ---| STBL BSS 0 04490 M00S04257.libedit +++| SPACE 4 04491 M00S04258.libedit +++|** SUL - SKIP USER LIBRARY. 04492 M00S04259.libedit +++|* 04493 M00S04260.libedit +++|* ENTRY (B2) = ADDRESS OF CURRENT PROGRAM TYPE. 04494 M00S04261.libedit +++|* (B3) = ADDRESS TO RETURN EOR INDICATOR. 04495 M00S04262.libedit +++|* 04496 M00S04263.libedit +++|* USES A - 1, 2, 6, 7. 04497 M00S04264.libedit +++|* X - 1, 2, 5, 6, 7. 04498 M00S04265.libedit +++|* B - 6, 7. 04499 M00S04266.libedit +++|* 04500 M00S04267.libedit +++|* CALLS SRT. 04501 M00S04268.libedit +++|* 04502 M00S04269.libedit +++|* MACROS READW. 04503 M00S04270.libedit +++| 04504 M00S04271.libedit +++|
| Line S04272 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04505 M01S04272.libed6 ---| NAME SUL,SULL 04506 M00S04273.libedit +++| SUL SUBR ENTRY/EXIT 04507 M00S04274.libedit +++| SA1 B2 CHECK IF USER LIBRARY 04508 M00S04275.libedit +++| SX7 B3
| Line S04276 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04509 M01S04276.251l664 ---| SX6 X1-5
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04510 M01S00052.251l664 +++| SX6 X1-ULRT 04511 M00S04277.libedit +++| SA7 SULA 04512 M00S04278.libedit +++| NZ X6,SUL4 IF NOT USER LIBRARY 04513 M00S04279.libedit +++| SUL1 READW P,WSA,WSAL 04514 M00S04280.libedit +++| NG X1,SUL5 IF EOF 04515 M00S04281.libedit +++| SB6 WSA 04516 M00S04282.libedit +++| SB7 X1 04517 M00S04283.libedit +++| EQ B6,B7,SUL1 IF 0-LENGTH RECORD 04518 M00S04284.libedit +++| BX5 X1 04519 M00S04285.libedit +++| SA1 X2-LWP LWA+1 OF DATA TRANSFERED 04520 M00S04286.libedit +++| SX2 WSA 04521 M00S04287.libedit +++| RJ SRT SET RECORD TYPE 04522 M00S04288.libedit +++| SA6 SULB 04523 M00S04289.libedit +++| SA1 SULA 04524 M00S04290.libedit +++| BX7 X5 STORE EOR INDICATOR 04525 M00S04291.libedit +++| SA7 X1 04526 M00S04292.libedit +++| NZ X5,SUL3 IF EOR ON PREVIOUS READ 04527 M00S04293.libedit +++| SUL2 READW OLD,WSA,WSAL 04528 M00S04294.libedit +++| SUL3 ZR X1,SUL2 IF NOT EOR 04529 M00S04295.libedit +++| SA2 SULB
| Line S04296 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04530 M01S04296.251l664 ---| SB7 X2-8
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04531 M01S00053.251l664 +++| SB7 X2-ODRT 04532 M00S04297.libedit +++| NZ B7,SUL1 LOOP TO END OF USER LIBRARY 04533 M00S04298.libedit +++| SUL4 READW P,WSA,WSAL 04534 M00S04299.libedit +++| SUL5 SA2 SULA STORE EOR INDICATOR 04535 M00S04300.libedit +++| BX6 X1 04536 M00S04301.libedit +++| SA6 X2 04537 M00S04302.libedit +++| EQ SULX RETURN 04538 M00S04303.libedit +++| 04539 M00S04304.libedit +++| 04540 M00S04305.libedit +++| SULA DATA 0 ADDRESS TO RETURN EOR INDICATOR 04541 M00S04306.libedit +++| SULB DATA 0 PROGRAM NAME
| Line S04307 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04542 M01S04307.libed6 ---| SULL BSS 0 04543 M00S04308.libedit +++| SUM SPACE 4,10 04544 M00S04309.libedit +++|** SUM - SET *ULIB* MODE. 04545 M00S04310.libedit +++|* 04546 M00S04311.libedit +++|* ENTRY (CULB) = *ULIB* MODE FLAG. 04547 M00S04312.libedit +++|* 04548 M00S04313.libedit +++|* EXIT ROUTINE PRESET FOR CALLING *LIBGEN*. 04549 M00S04314.libedit +++|* 04550 M00S04315.libedit +++|* USES A - 1, 2, 3, 4, 6, 7. 04551 M00S04316.libedit +++|* X - 0, 1, 2, 3, 4, 6, 7. 04552 M00S04317.libedit +++| 04553 M00S04318.libedit +++|
| Line S04319 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04554 M01S04319.libed6 ---| NAME SUM,SUML 04555 M00S04320.libedit +++| SUM SUBR ENTRY/EXIT 04556 M00S04321.libedit +++| SA4 CULB 04557 M00S04322.libedit +++| ZR X4,SUMX IF *U* NOT SPECIFIED 04558 M00S04323.libedit +++| MX0 42 04559 M00S04324.libedit +++| SA1 CCPY 04560 M00S04325.libedit +++| ZR X1,SUM1 IF NO RECOPY 04561 M00S04326.libedit +++| SA2 NEW 04562 M00S04327.libedit +++| BX6 X0*X2 04563 M00S04328.libedit +++| SA6 GULD SET F=NEW 04564 M00S04329.libedit +++| SA2 OLD 04565 M00S04330.libedit +++| BX6 X0*X2 04566 M00S04331.libedit +++| SA6 GULF SET P=OLD 04567 M00S04332.libedit +++| EQ SUM2 SET N=CULB 04568 M00S04333.libedit +++| 04569 M00S04334.libedit +++| SUM1 SA2 SUMA 04570 M00S04335.libedit +++| SA3 NEW 04571 M00S04336.libedit +++| BX6 X2*X0 04572 M00S04337.libedit +++| BX7 X0*X3 04573 M00S04338.libedit +++| BX3 -X0*X3 04574 M00S04339.libedit +++| BX6 X6+X3 04575 M00S04340.libedit +++| SA6 A3+ SET NEW FILE NAME 04576 M00S04341.libedit +++| SA7 GULF SET P=NEW 04577 M00S04342.libedit +++| SUM2 BX6 X4*X0 04578 M00S04343.libedit +++| SA6 GULH SET N=CULB 04579 M00S04344.libedit +++| EQ SUMX RETURN 04580 M00S04345.libedit +++| 04581 M00S04346.libedit +++| 04582 M00S04347.libedit +++| SUMA VFD 42/7LZZZZZG2,18/0
| Line S04348 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04583 M01S04348.libed6 ---| SUML BSS 0 04584 M00S04349.libedit +++| SUM SPACE 4,10 04585 M00S04350.libedit +++|** VFY - CALL VFYLIB TO VERIFY *OLD* AND *NEW*. 04586 M00S04351.libedit +++|* 04587 M00S04352.libedit +++|* ENTRY (CVFY) = 1 VERIFY REQUESTED. 04588 M00S04353.libedit +++|* 04589 M00S04354.libedit +++|* EXIT TO *VFYLIB*. 04590 M00S04355.libedit +++|* 04591 M00S04356.libedit +++|* MACROS MESSAGE, OVERLAY, RECALL, SETLOF. 04592 M00S04357.libedit +++| 04593 M00S04358.libedit +++|
| Line S04359 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04594 M01S04359.libed6 ---| NAME VFY,VFYL 04595 M00S04360.libedit +++| VFY SUBR ENTRY/EXIT 04596 M00S04361.libedit +++| SA1 CVFY 04597 M00S04362.libedit +++| ZR X1,VFY IF NO VERIFY 04598 M00S04363.libedit +++| RECALL OUTPUT WAIT FOR END OF OUTPUT 04599 M00S04364.libedit +++| MESSAGE (=C* VFYLIB*),1 04600 M00S04365.libedit +++| RECALL S 04601 M00S04366.libedit +++| RECALL OLD 04602 M00S04367.libedit +++| RECALL NEW 04603 M00S04368.libedit +++| SA1 OLD SET *VFYLIB* PARAMETERS 04604 M00S04369.libedit +++| MX0 42 04605 M00S04370.libedit +++| BX6 X0*X1 04606 M00S04371.libedit +++| SA6 2 04607 M00S04372.libedit +++| SA1 NEW 04608 M00S04373.libedit +++| BX6 X0*X1 04609 M00S04374.libedit +++| SA6 A6+B1 04610 M00S04375.libedit +++| SA1 OUTPUT 04611 M00S04376.libedit +++| BX6 X0*X1 04612 M00S04377.libedit +++| SA6 A6+B1 04613 M00S04378.libedit +++| SX6 3 SET PARAMETER COUNT 04614 M00S04379.libedit +++| SA6 ACTR 04615 M00S04380.libedit +++| SA2 FL 04616 M00S04381.libedit +++| LX2 30 04617 M00S04382.libedit +++| SA0 X2 SET (A0) = FL FOR *VFYLIB* 04618 M00S04383.libedit +++| SETLOF =0 CLEAR LIST OF FILES POINTER 04619 M00S04384.libedit +++| OVERLAY VFYA,,SYSTEM 04620 M00S04385.libedit +++| PS 0 04621 M00S04386.libedit +++| 04622 M00S04387.libedit +++| 04623 M00S04388.libedit +++| VFYA CON 0LVFYLIB
| Line S04389 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04624 M01S04389.libed6 ---| VFYL BSS 0
| Line S04390 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04625 M01S04390.251l664 ---| SPACE 4
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04626 M01S00054.251l664 +++| SPACE 4,15 04627 M00S04391.libedit +++|** WPD - WRITE PROGRAM DIRECTORY. 04628 M00S04392.libedit +++|*
| Line S04393 Modification History | |
|---|---|
M01 (Removed by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04629 M01S04393.libed10 ---|* ENTRY (B2) = ADDRESS OF OPL DIRECTORY NAME.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04630 M01S00001.libed10 +++|* ENTRY (X1) = OLD FILE EOI STATUS INDICATOR. 04631 M01S00002.libed10 +++|* (B2) = ADDRESS OF OPL DIRECTORY NAME. 04632 M00S04394.libedit +++|* 04633 M00S04395.libedit +++|* USES A - 1, 2, 5, 6, 7. 04634 M00S04396.libedit +++|* X - 0, 1, 2, 5, 6, 7. 04635 M00S04397.libedit +++|* B - 2, 6, 7. 04636 M00S04398.libedit +++|*
| Line S04399 Modification History | |
|---|---|
M01 (Removed by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04637 M01S04399.libed10 ---|* CALLS CCM, ORW.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04638 M01S00003.libed10 +++|* CALLS CCM, EPN, ORW, OZR. 04639 M00S04400.libedit +++|*
| Line S04401 Modification History | |
|---|---|
M01 (Removed by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04640 M01S04401.libed10 ---|* MACROS ADDWRD, CALL, WRCW, WRITE, WRITEF, WRITER, WRITEW.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04641 M01S00004.libed10 +++|* MACROS ADDWRD, CALL, FILINFO, WRCW, WRITE, 04642 M01S00005.libed10 +++|* WRITECW, WRITEF, WRITER, WRITEW. 04643 M00S04402.libedit +++| 04644 M00S04403.libedit +++|
| Line S04404 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04645 M01S04404.libed6 ---| NAME WPD,WPDL 04646 M00S04405.libedit +++| WPD SUBR ENTRY/EXIT 04647 M00S04406.libedit +++| SA5 NPLN 04648 M00S04407.libedit +++| NZ X5,WPD1 IF BUILD
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04408.libedit +++| SA5 B2
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04658 M01S00014.libed10 +++| LX2 59-24 04659 M01S00015.libed10 +++| NG X2,WPD0 IF NEW FILE IS ON MAGNETIC TAPE
| Line S04409 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04660 M01S04409.251l664 ---| SX6 X5-8
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04661 M01S00055.251l664 +++| SX6 X5-ODRT
| Line S04410 Modification History | |
|---|---|
M01 (Removed by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04662 M01S04410.libed10 ---| SB7 B0 04663 M00S04411.libedit +++| ZR X6,WPD1 IF LAST RECORD TYPE *OPLD*
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04664 M01S00016.libed10 +++| WPD0 SB7 B0 04665 M00S04412.libedit +++| SX6 X1+2 CHECK FOR EOI ON OLD FILE 04666 M00S04413.libedit +++| MX7 4 04667 M00S04414.libedit +++| BX5 X5-X5 CLEAR DIRECTORY TEXT 04668 M00S04415.libedit +++| ZR X6,WPD1 IF EOI ON OLD FILE 04669 M00S04416.libedit +++| LX7 4+48 04670 M00S04417.libedit +++| SA7 WDAA+1 SET LEVEL 17 EOR 04671 M00S04418.libedit +++| WRCW N,B0,B7 04672 M00S04419.libedit +++| SX7 0 04673 M00S04420.libedit +++| SA7 WDAA+1 RESET CONTROL WORD 04674 M00S04421.libedit +++| CALL OZR,(=1H ),OLD,(=7H**EOF**) 04675 M00S04422.libedit +++| WPD1 WRITECW N,R 04676 M00S04423.libedit +++| ZR X5,WPD IF NO DIRECTORY 04677 M00S04424.libedit +++| MX0 42 04678 M00S04425.libedit +++| BX6 X0*X5 STORE NAME IN 7700 TABLE 04679 M00S04426.libedit +++| SA6 WPDA+1
| Line S04427 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04680 M01S04427.251l664 ---| SX7 8
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04681 M01S00056.251l664 +++| SX7 ODRT 04682 M00S04428.libedit +++| BX7 X6+X7 04683 M00S04429.libedit +++| SB2 WPDC 04684 M00S04430.libedit +++| SA7 B2 04685 M00S04431.libedit +++| SA1 DATE. 04686 M00S04432.libedit +++| BX6 X1 04687 M00S04433.libedit +++| SA6 A6+B1 04688 M00S04434.libedit +++| CALL EPN,B2 04689 M00S04435.libedit +++| ADDWRD NPT,NIND 04690 M00S04436.libedit +++| SA1 L.NPT SET 7000 TABLE LENGTH 04691 M00S04437.libedit +++| MX6 3 04692 M00S04438.libedit +++| BX6 X6+X1 04693 M00S04439.libedit +++| SA6 WPDB 04694 M00S04440.libedit +++| WRITE N,* 04695 M00S04441.libedit +++| CALL CCM,WPDA,WPDC 04696 M00S04442.libedit +++| SB6 X6 WRITE 7000 TABLE 04697 M00S04443.libedit +++| SB7 WPDB+1 04698 M00S04444.libedit +++| WRITEW NEW,B6,B7-B6 04699 M00S04445.libedit +++| SA1 P.NPT 04700 M00S04446.libedit +++| SA2 L.NPT 04701 M00S04447.libedit +++| WRITEW NEW,X1,X2 04702 M00S04448.libedit +++| WRITER NEW 04703 M00S04449.libedit +++| WRITEF X2 04704 M00S04450.libedit +++| CALL ORW,(=5HADDED),(=5H*****) 04705 M00S04451.libedit +++| CALL OZR,(=1H ),OLD,(=7H**EOF**) 04706 M00S04452.libedit +++| EQ WPDX RETURN 04707 M00S04453.libedit +++| 04708 M00S04454.libedit +++| 04709 M00S04455.libedit +++| WPDA DATA 77000016000000000000B 04710 M00S04456.libedit +++| BSSZ 16B 04711 M00S04457.libedit +++| WPDB DATA 70000000000000000000B 04712 M00S04458.libedit +++| 04713 M00S04459.libedit +++| WPDC VFD 42/,18/ 42/PROGRAM,18/TYPE 04714 M00S04460.libedit +++| BSS 1
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 04715 M01S00017.libed10 +++| 04716 M01S00018.libed10 +++| WPDD BSS 5 *FILINFO* PARAMETER BLOCK
| Line S04461 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04717 M01S04461.libed6 ---| WPDL BSS 0 04718 M00S04462.libedit +++| SPACE 4 04719 M00S04463.libedit +++| TITLE BUFFERS. 04720 M00S04464.libedit +++|** DATA AND FILE ENVIRONMENT TABLES. 04721 M00S04465.libedit +++| 04722 M00S04466.libedit +++|* INDEX TAGS FOR WORDS PRECEEDING EACH FET. 04723 M00S04467.libedit +++| 04724 M00S04468.libedit +++| LWP EQU 3 LWA+1 OF DATA TRANSFERED. 04725 M00S04469.libedit +++| WRB EQU 2 WORDS REMAINING IN BLOCK. 04726 M00S04470.libedit +++| ERF EQU 1 EOR FLAG. 04727 M00S04471.libedit +++| 04728 M00S04472.libedit +++|
| Line S04473 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04729 M01S04473.libed6 ---| NAME FET,FETL 04730 M00S04474.libedit +++| CW CON 1 CONTROL WORD READ FLAG 04731 M00S04475.libedit +++| SC CON 1 SECTOR COUNT 04732 M00S04476.libedit +++| 04733 M00S04477.libedit +++| CON 0 LWA+1 OF DATA TRANSFERED 04734 M00S04478.libedit +++| CON -0 WORDS REMAINING IN BLOCK (OLD) 04735 M00S04479.libedit +++| CON 0 EOR FLAG 04736 M00S04480.libedit +++| P BSS 0
| Line S04481 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04737 M01S04481.274l797 ---| OLD FILEB OLDB,OLDL,(WSA=WSA,WSAL)
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04482.libedit +++| 04743 M00S04483.libedit +++| CON 0 LWA+1 OF DATA TRANSFERED 04744 M00S04484.libedit +++| CON -0 WORDS REMAINING IN BLOCK (NEW) 04745 M00S04485.libedit +++| CON 0 EOR FLAG 04746 M00S04486.libedit +++| N BSS 0
| Line S04487 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04747 M01S04487.274l797 ---| NEW RFILEB NEWB,NEWL
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04488.libedit +++| 04753 M00S04489.libedit +++| CON 0 LWA+1 OF DATA TRANSFERED 04754 M00S04490.libedit +++| CON -0 04755 M00S04491.libedit +++| CON 0 04756 M00S04492.libedit +++| S BSS 0 04757 M00S04493.libedit +++| ZZZZZG1 RFILEB SBUF,SBUFL 04758 M00S04494.libedit +++| 04759 M00S04495.libedit +++| CON 0 LWA+1 OF DATA TRANSFERED 04760 M00S04496.libedit +++| CON -0 04761 M00S04497.libedit +++| CON 0 04762 M00S04498.libedit +++| LGO RFILEB LGOB,LGOL,(WSA=WSB,WSBL) 04763 M00S04499.libedit +++| 04764 M00S04500.libedit +++| O BSS 0 04765 M00S04501.libedit +++| OUTPUT FILEC OUTB,OUTL,(WSA=OUTPUTB,DCBL+1),(FET=10) 04766 M00S04502.libedit +++| 04767 M00S04503.libedit +++| I BSS 0 04768 M00S04504.libedit +++| INPUT FILEC INPB,INPL,(WSA=DCB,DCBL),(FET=10) 04769 M00S04505.libedit +++| 04770 M00S04506.libedit +++| TTYOUT BSS 0 04771 M00S04507.libedit +++| ZZZZZG0 FILEC TTYB,TTYL,(FET=10) 04772 M00S04508.libedit +++|
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04509.libedit +++|* FILE LIST. 04779 M00S04510.libedit +++| 04780 M00S04511.libedit +++| FLST CON FLSTL 04781 M00S04512.libedit +++| 04782 M00S04513.libedit +++| LOC 1 04783 M00S04514.libedit +++| QUAL FLST 04784 M00S04515.libedit +++|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2371a |
Seq # *Modification Id* Act ----------------------------+ 04785 M01S00003.ns2371a +++| TTYOUT VFD 42/0LZZZZZG0,18///TTYOUT 04786 M01S00004.ns2371a +++| INPUT VFD 42/0LINPUT,18///INPUT
| Line S04516 Modification History | |
|---|---|
M01 (Removed by) | ns2371 |
Seq # *Modification Id* Act ----------------------------+ 04787 M01S04516.ns2371 ---| TTYOUT VFD 42/0LZZZZZG0,18///TTYOUT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2371 |
Seq # *Modification Id* Act ----------------------------+ 04788 M01S00001.ns2371 +++| OUTPUT VFD 42/0LOUTPUT,18///OUTPUT
| Line S04517 Modification History | |
|---|---|
M01 (Removed by) | ns2371a |
Seq # *Modification Id* Act ----------------------------+ 04789 M01S04517.ns2371a ---| INPUT VFD 42/0LINPUT,18///INPUT
| Line S04518 Modification History | |
|---|---|
M01 (Removed by) | ns2371 |
Seq # *Modification Id* Act ----------------------------+ 04790 M01S04518.ns2371 ---| OUTPUT VFD 42/0LOUTPUT,18///OUTPUT 04791 M00S04519.libedit +++| OLD VFD 42/0LOLD,18///OLD 04792 M00S04520.libedit +++| NEW VFD 42/0LNEW,18///NEW 04793 M00S04521.libedit +++| LGO VFD 42/0LLGO,18///LGO
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2371 |
M02 (Removed by) | ns2371a |
Seq # *Modification Id* Act ----------------------------+ 04794 M02S00002.ns2371a ---| TTYOUT VFD 42/0LZZZZZG0,18///TTYOUT 04795 M00S04522.libedit +++| 04796 M00S04523.libedit +++| QUAL * 04797 M00S04524.libedit +++| LOC *O 04798 M00S04525.libedit +++| CON 0 04799 M00S04526.libedit +++| FLSTL EQU *-FLST 04800 M00S04527.libedit +++| 04801 M00S04528.libedit +++| DATE. DATA 0 CURRENT DATE 04802 M00S04529.libedit +++| 04803 M00S04530.libedit +++| LGO. DATA 0LLGO CORRECTION FILE NAME 04804 M00S04531.libedit +++| 04805 M00S04532.libedit +++| LIST VFD 56/0 LIST OPTIONS 04806 M00S04533.libedit +++| VFD 1/1 FULL LIST 04807 M00S04534.libedit +++| VFD 1/1 LIST DIRECTIVES 04808 M00S04535.libedit +++| VFD 1/1 LIST MODIFICATIONS MADE 04809 M00S04536.libedit +++| VFD 1/1 LIST ERRORS 04810 M00S04537.libedit +++| 04811 M00S04538.libedit +++| BRFM DATA 0 BRIEF MODE FLAG 04812 M00S04539.libedit +++| 04813 M00S04540.libedit +++| CADD DATA 0 NO INSERT AT EOF FLAG 04814 M00S04541.libedit +++| 04815 M00S04542.libedit +++| CREW DATA 0 NO REWIND FLAG 04816 M00S04543.libedit +++| 04817 M00S04544.libedit +++| CVFY DATA 0 VERIFY FLAG 04818 M00S04545.libedit +++| 04819 M00S04546.libedit +++| CCPY DATA 0 COPY FLAG 04820 M00S04547.libedit +++| 04821 M00S04548.libedit +++| CDOP DATA 0 IGNORE ERROR FLAG 04822 M00S04549.libedit +++| 04823 M00S04550.libedit +++| CZOP DATA 0 *Z* OPTION FLAG 04824 M00S04551.libedit +++| 04825 M00S04552.libedit +++| CULB DATA 0 USER LIBRARY OPTION 04826 M00S04553.libedit +++| 04827 M00S04554.libedit +++| FL DATA 0 FIELD LENGTH 04828 M00S04555.libedit +++| 04829 M00S04556.libedit +++| TTYI DATA 1 NON-TTY INPUT FLAG 04830 M00S04557.libedit +++| 04831 M00S04558.libedit +++| TTYO DATA 1 NON-TTY OUTPUT FLAG 04832 M00S04559.libedit +++| 04833 M00S04560.libedit +++| SBP VFD 60/DSB STRING BUFFER POINTER 04834 M00S04561.libedit +++|
| Line S04562 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04835 M01S04562.ns22000 ---| LINE VFD 60/LNCNT LINE NUMBER COUNT
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04563.libedit +++| 04843 M00S04564.libedit +++| PAGE DATA 0 PAGE NUMBER COUNT 04844 M00S04565.libedit +++| 04845 M00S04566.libedit +++| NIND VFD 42/,18/ 42/PROGRAM,18/TYPE 04846 M00S04567.libedit +++| CON 0 RANDOM ADDRESS 04847 M00S04568.libedit +++| 04848 M00S04569.libedit +++| NPLN DATA 0 NEW PROGRAM LIBRARY NAME 04849 M00S04570.libedit +++| 04850 M00S04571.libedit +++| TITA DATA H* LIBEDIT DIRECTIVES. * 04851 M00S04572.libedit +++| DATA H* * 04852 M00S04573.libedit +++| TITAL EQU *-TITA 04853 M00S04574.libedit +++| TITB DATA H* 01/20/69.* 04854 M00S04575.libedit +++| TITC DATA H* 00.00.00.* 04855 M00S04576.libedit +++| DATA H* * 04856 M00S04577.libedit +++| TITD DATA H*PAGE * 04857 M00S04578.libedit +++| 04858 M00S04579.libedit +++| TITE DATA H* * 04859 M00S04580.libedit +++| DATA H* * 04860 M00S04581.libedit +++| DATA H* * 04861 M00S04582.libedit +++| TITEL EQU *-TITE 04862 M00S04583.libedit +++| TITF BSS 0
| Line S04584 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04863 M01S04584.libed6 ---| FETL BSS 0 04864 M00S04585.libedit +++| SPACE 4 04865 M00S04586.libedit +++|** TABLE POINTERS. 04866 M00S04587.libedit +++| 04867 M00S04588.libedit +++| 04868 M00S04589.libedit +++| TABLE BSS 0 04869 M00S04590.libedit +++| TABLE CDT,8 COMMENT/DATE TABLE 04870 M00S04591.libedit +++| TABLE DPT,2 DELETE PROGRAM TABLE 04871 M00S04592.libedit +++| TABLE FNT FILE NAME TABLE 04872 M00S04593.libedit +++| TABLE IDT,2 IMPLIED DELETE TABLE 04873 M00S04594.libedit +++| TABLE IPT,4 INSERT PROGRAM TABLE 04874 M00S04595.libedit +++| TABLE NPT,2,40B NEW PROGRAM TABLE 04875 M00S04596.libedit +++| TABLE NRT NO REPLACE TABLE 04876 M00S04597.libedit +++| TABLE PIT,3 PROGRAM IGNORE TABLE 04877 M00S04598.libedit +++| TABLE PNT,3,40B PROGRAM NAME TABLE 04878 M00S04599.libedit +++| TABLE RFT REWIND FILE TABLE 04879 M00S04600.libedit +++| TABLE RNT,2 RENAME TABLE 04880 M00S04601.libedit +++| TABLE BUF UNUSED STORAGE TABLE 04881 M00S04602.libedit +++| RDA SPACE 4 04882 M00S04603.libedit +++|** RDA - READ DATA. 04883 M00S04604.libedit +++|* 04884 M00S04605.libedit +++|* PROCESSES CALLS TO READ WORDS (RDW=). 04885 M00S04606.libedit +++|* DEBLOCKS DATA IF CONTROL WORD READS. 04886 M00S04607.libedit +++|* 04887 M00S04608.libedit +++|* ENTRY (X2) = FET ADDRESS. 04888 M00S04609.libedit +++|* (B6) = FWA OF WORKING STORAGE BUFFER. 04889 M00S04610.libedit +++|* (B7) = LENGTH OF TRANSFER REQUESTED. 04890 M00S04611.libedit +++|* 04891 M00S04612.libedit +++|* EXIT (X1) = STATUS RETURNED FROM RDW=. 04892 M00S04613.libedit +++|* (X2-LWP) = LWA+1 OF DATA TRANSFERED. 04893 M00S04614.libedit +++|* (B6) = LWA+1 OF DATA TRANSFERED. 04894 M00S04615.libedit +++|* 04895 M00S04616.libedit +++|* USES A - 1, 3, 6, 7. 04896 M00S04617.libedit +++|* X - 1, 3, 4, 6, 7. 04897 M00S04618.libedit +++|* B - 5, 6, 7. 04898 M00S04619.libedit +++|* 04899 M00S04620.libedit +++|* CALLS RDW=. 04900 M00S04621.libedit +++| 04901 M00S04622.libedit +++|
| Line S04623 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04902 M01S04623.libed6 ---| NAME RDA,RDAL 04903 M00S04624.libedit +++| RDA5 SX6 B5-B7 UPDATE WORDS REMAINING 04904 M00S04625.libedit +++| SA6 A1 04905 M00S04626.libedit +++| 04906 M00S04627.libedit +++| RDA6 RJ RDW= READ WORDS 04907 M00S04628.libedit +++| 04908 M00S04629.libedit +++| RDA7 SX6 B6 LWA+1 OF DATA TRANSFERED 04909 M00S04630.libedit +++| SA6 X2-LWP 04910 M00S04631.libedit +++| 04911 M00S04632.libedit +++| RDA SUBR ENTRY/EXIT 04912 M00S04633.libedit +++| SA1 CW CHECK IF CONTROL WORDS LEGAL 04913 M00S04634.libedit +++| ZR X1,RDA6 IF CONTROL WORD READS NOT LEGAL 04914 M00S04635.libedit +++| RDA1 SA1 X2-WRB GET NUMBER OF WORDS BEFORE CONTROL WORD 04915 M00S04636.libedit +++| SB5 X1+ 04916 M00S04637.libedit +++| PL X1,RDA2 IF NOT FIRST READ 04917 M00S04638.libedit +++| SX7 B7+ SET WORDS NEEDED 04918 M00S04639.libedit +++| SA7 RDAA 04919 M00S04640.libedit +++| JP RDA4 04920 M00S04641.libedit +++| 04921 M00S04642.libedit +++| RDA2 GE B5,B7,RDA5 IF ENOUGH DATA TO FILL BUFFER 04922 M00S04643.libedit +++| SA3 X2-ERF CHECK EOR FLAG 04923 M00S04644.libedit +++| PL X3,RDA3 IF NOT EOR ON FILE 04924 M00S04645.libedit +++| MX6 1 SET NEW READ FLAG 04925 M00S04646.libedit +++| SB7 B5+B1 SET WORDS TO READ 04926 M00S04647.libedit +++| SA6 A3 04927 M00S04648.libedit +++| SA6 A1 04928 M00S04649.libedit +++| RJ RDW= READ WORDS 04929 M00S04650.libedit +++| SX1 B6-B1 SET EOR INDICATION 04930 M00S04651.libedit +++| SB6 B6-B1 BACK UP LWA TO ALLOW FOR CONTROL WORD 04931 M00S04652.libedit +++| JP RDA7 RETURN 04932 M00S04653.libedit +++| 04933 M00S04654.libedit +++| RDA3 SX6 B7-B5 SAVE ADDITIONAL WORDS NEEDED 04934 M00S04655.libedit +++| SA6 RDAA 04935 M00S04656.libedit +++| SB7 B5+B1 SET WORDS TO TRANSFER 04936 M00S04657.libedit +++| RJ RDW= READ WORDS 04937 M00S04658.libedit +++| SB6 B6-1 BACK UP OVER LAST CONTROL WORD 04938 M00S04659.libedit +++| RDA4 SB7 B1 READ CONTROL WORD 04939 M00S04660.libedit +++| RJ RDW= 04940 M00S04661.libedit +++| NG X1,RDA7 IF EOF/EOI 04941 M00S04662.libedit +++| SB6 B6-B1 BACK UP WORKING BUFFER 04942 M00S04663.libedit +++| SA1 B6 CONTROL WORD 04943 M00S04664.libedit +++| SX7 5 04944 M00S04665.libedit +++| SX4 X1+4 ROUND UP 04945 M00S04666.libedit +++| AX1 36 EXTRACT BLOCK SIZE 04946 M00S04667.libedit +++| SX3 X1 04947 M00S04668.libedit +++| IX7 X4/X7 WORDS IN BLOCK 04948 M00S04669.libedit +++| IX6 X7-X3 SAVE EOR FLAG 04949 M00S04670.libedit +++| SA7 X2-WRB WORD COUNT 04950 M00S04671.libedit +++| SA6 X2-ERF EOR FLAG 04951 M00S04672.libedit +++| SA1 RDAA RESET WORDS NEEDED 04952 M00S04673.libedit +++| SB7 X1 04953 M00S04674.libedit +++| JP RDA1 LOOP 04954 M00S04675.libedit +++| 04955 M00S04676.libedit +++| 04956 M00S04677.libedit +++| RDAA CON 0
| Line S04678 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04957 M01S04678.libed6 ---| RDAL BSS 0 04958 M00S04679.libedit +++| WDA SPACE 4 04959 M00S04680.libedit +++|** WDA - WRITE DATA WITH CONTROL WORDS. 04960 M00S04681.libedit +++|* 04961 M00S04682.libedit +++|* ENTRY (B6) = FWA OF WORKING STORAGE. 04962 M00S04683.libedit +++|* (B7) = WORD COUNT. 04963 M00S04684.libedit +++|* (X2) = FET ADDRESS. 04964 M00S04685.libedit +++|* 04965 M00S04686.libedit +++|* EXIT (B7) = 0 IF FULL PRU WRITTEN. 04966 M00S04687.libedit +++|* 04967 M00S04688.libedit +++|* USES A - 1, 3, 4, 5, 6, 7. 04968 M00S04689.libedit +++|* B - 4, 6, 7. 04969 M00S04690.libedit +++|* X - 1, 3, 4, 5, 6, 7. 04970 M00S04691.libedit +++|* 04971 M00S04692.libedit +++|* MACROS WRITER, WRITEW. 04972 M00S04693.libedit +++| 04973 M00S04694.libedit +++|
| Line S04695 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 04974 M01S04695.libed6 ---| NAME WDA,WDAL 04975 M00S04696.libedit +++| WDA3 SA3 SC 04976 M00S04697.libedit +++| SA1 X2-1 04977 M00S04698.libedit +++| SX7 B1+ UPDATE SECTOR COUNT 04978 M00S04699.libedit +++| IX7 X3+X7 04979 M00S04700.libedit +++| SB4 X1 04980 M00S04701.libedit +++| SA7 A3 STORE RANDOM ADDRESS 04981 M00S04702.libedit +++| BX6 X1 04982 M00S04703.libedit +++| ZR B7,WDA2 IF ZERO LENGTH RECORD 04983 M00S04704.libedit +++| SX3 5 04984 M00S04705.libedit +++| SX7 B7-B4 04985 M00S04706.libedit +++| PL X7,WDA4 IF \ ONE PRU 04986 M00S04707.libedit +++| SX1 B7 04987 M00S04708.libedit +++| WDA4 IX4 X1*X3 FORM PRU BYTE COUNT 04988 M00S04709.libedit +++| SA7 WDAA 04989 M00S04710.libedit +++| LX6 36 POSITION BLOCK SIZE 04990 M00S04711.libedit +++| SA5 X1+B6 04991 M00S04712.libedit +++| BX6 X6+X4 FORM HEADER CONTROL WORD 04992 M00S04713.libedit +++| SX7 B0 04993 M00S04714.libedit +++| SA6 B6-B1 04994 M00S04715.libedit +++| SA7 A5 STORE TRAILER CONTROL WORD 04995 M00S04716.libedit +++| WRITEW X2,A6,X1+2 04996 M00S04717.libedit +++| SB6 A5 SET ADDRESS OF NEXT BLOCK 04997 M00S04718.libedit +++| SA3 WDAA 04998 M00S04719.libedit +++| BX6 X5 RESTORE CELL DESTROYED BY CONTROL WORD 04999 M00S04720.libedit +++| SB7 X3 05000 M00S04721.libedit +++| SA6 A5 05001 M00S04722.libedit +++| GE B7,B1,WDA3 IF AT LEAST ONE MORE WORD IN BUFFER 05002 M00S04723.libedit +++| 05003 M00S04724.libedit +++| WDA SUBR ENTRY/EXIT 05004 M00S04725.libedit +++| SA4 X2-2 05005 M00S04726.libedit +++| NG X4,WDA3 IF CONTROL WORD WRITE ENABLED 05006 M00S04727.libedit +++| ZR B7,WDA1 IF ZERO LENGTH RECORD 05007 M00S04728.libedit +++| WRITEW X2,B6,B7 05008 M00S04729.libedit +++| SB7 B0+ 05009 M00S04730.libedit +++| JP WDA 05010 M00S04731.libedit +++| 05011 M00S04732.libedit +++| WDA1 WRITER X2,R FLUSH BUFFER 05012 M00S04733.libedit +++| SB7 1 05013 M00S04734.libedit +++| JP WDA 05014 M00S04735.libedit +++| 05015 M00S04736.libedit +++| WDA2 LX6 36 POSITION BLOCK SIZE 05016 M00S04737.libedit +++| SA6 WDAA 05017 M00S04738.libedit +++| WRITEW X2,A6,2 WRITE ZERO LENGTH RECORD 05018 M00S04739.libedit +++| SB7 1 05019 M00S04740.libedit +++| JP WDA 05020 M00S04741.libedit +++| 05021 M00S04742.libedit +++| 05022 M00S04743.libedit +++| WDAA CON 0 05023 M00S04744.libedit +++| CON 0
| Line S04745 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05024 M01S04745.libed6 ---| WDAL BSS 0 05025 M00S04746.libedit +++| RCW SPACE 4 05026 M00S04747.libedit +++|** RCW - RESTORE CONTROL WORD WRITE. 05027 M00S04748.libedit +++|* 05028 M00S04749.libedit +++|* ENTRY NONE. 05029 M00S04750.libedit +++|* 05030 M00S04751.libedit +++|* EXIT NONE. 05031 M00S04752.libedit +++|* 05032 M00S04753.libedit +++|* USES A - 1, 6, 7. 05033 M00S04754.libedit +++|* B - NONE. 05034 M00S04755.libedit +++|* X - 1, 6, 7. 05035 M00S04756.libedit +++|* 05036 M00S04757.libedit +++|* MACROS RECALL, WRITECW, WRITER. 05037 M00S04758.libedit +++| 05038 M00S04759.libedit +++|
| Line S04760 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05039 M01S04760.libed6 ---| NAME RCW RCWL 05040 M00S04761.libedit +++| RCW SUBR ENTRY/EXIT 05041 M00S04762.libedit +++| RECALL N 05042 M00S04763.libedit +++| SA1 N+2 CHECK BUFFER EMPTY 05043 M00S04764.libedit +++| SA3 A1+B1 05044 M00S04765.libedit +++| IX3 X3-X1 05045 M00S04766.libedit +++| ZR X3,RCW1 IF BUFFER EMPTY 05046 M00S04767.libedit +++| WRITER X2,R FLUSH BUFFER 05047 M00S04768.libedit +++| RCW1 WRITECW X2,* SET FILE STATUS 05048 M00S04769.libedit +++| SA1 N+6 05049 M00S04770.libedit +++| MX7 60 05050 M00S04771.libedit +++| AX1 30 05051 M00S04772.libedit +++| SA7 N-2 ENABLE CONTROL WORD WRITE 05052 M00S04773.libedit +++| BX6 X1 05053 M00S04774.libedit +++| SA6 SC RESET SECTOR COUNT 05054 M00S04775.libedit +++| EQ RCWX RETURN
| Line S04776 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05055 M01S04776.libed6 ---| 05056 M01S04777.libed6 ---| RCWL BSS 0 05057 M00S04778.libedit +++| CVD SPACE 4 05058 M00S04779.libedit +++|** CVD - CHECK DEVICE TYPE. 05059 M00S04780.libedit +++|* 05060 M00S04781.libedit +++|* ENTRY (X1) = (FET+1). 05061 M00S04782.libedit +++|*
| Line S04783 Modification History | |
|---|---|
M01 (Removed by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05062 M01S04783.libed11 ---|* EXIT (X7)= 0 IF CONTROL WORD READ/WRITE NOT SUPPORTED ON 05063 M01S04784.libed11 ---|* DEVICE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05064 M01S00001.libed11 +++|* EXIT (X7) = 0 IF CONTROL WORD READ/WRITE NOT SUPPORTED ON 05065 M01S00002.libed11 +++|* DEVICE. 05066 M00S04785.libedit +++|*
| Line S04786 Modification History | |
|---|---|
M01 (Removed by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05067 M01S04786.libed11 ---|* USES B - NONE.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05068 M01S00003.libed11 +++|* USES X - 0,1,2,6,7. 05069 M00S04787.libedit +++|* A - 2.
| Line S04788 Modification History | |
|---|---|
M01 (Removed by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05070 M01S04788.libed11 ---|* X - 0,1,2,6,7.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05071 M01S00004.libed11 +++|* B - NONE. 05072 M00S04789.libedit +++|* 05073 M00S04790.libedit +++|* CALLS NONE. 05074 M00S04791.libedit +++| 05075 M00S04792.libedit +++|
| Line S04793 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05076 M01S04793.libed6 ---| NAME CVD CVDL 05077 M00S04794.libedit +++| CVD2 LX1 12 CHECK *TT* 05078 M00S04795.libedit +++| BX6 -X0*X1 05079 M00S04796.libedit +++| SX7 X6-2RTT 05080 M00S04797.libedit +++| 05081 M00S04798.libedit +++| CVD SUBR ENTRY/EXIT 05082 M00S04799.libedit +++| MX0 -12 05083 M00S04800.libedit +++| PL X1,CVD2 IF ALLOCATABLE 05084 M00S04801.libedit +++| LX1 12 05085 M00S04802.libedit +++| SA2 CVDA SEARCH DEVICE TABLE 05086 M00S04803.libedit +++| SX7 0 ASSUME NO FIND
| Line S04804 Modification History | |
|---|---|
M01 (Removed by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05087 M01S04804.libed11 ---| CVD1 ZR X2,CVD RETURN - IF NOT FOUND
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05088 M01S00005.libed11 +++| CVD1 ZR X2,CVDX IF NOT FOUND 05089 M00S04805.libedit +++| BX6 X1-X2 05090 M00S04806.libedit +++| AX2 12 05091 M00S04807.libedit +++| BX6 X2*X6 05092 M00S04808.libedit +++| SA2 A2+B1 05093 M00S04809.libedit +++| NZ X6,CVD1 IF NOT MATCH 05094 M00S04810.libedit +++| SX7 1 INDICATE CONTROL WORD POSSIBLE 05095 M00S04811.libedit +++| EQ CVDX RETURN 05096 M00S04812.libedit +++| 05097 M00S04813.libedit +++| 05098 M00S04814.libedit +++| CVDA VFD 36/,12/7703B,12/4002B 05099 M00S04815.libedit +++| VFD 36/,12/7703B,12/4102B 05100 M00S04816.libedit +++| VFD 36/,12/7777B,12/2RMT+4000B 05101 M00S04817.libedit +++| VFD 36/,12/7777B,12/2RNT+4000B
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | libed11 |
Seq # *Modification Id* Act ----------------------------+ 05102 M01S00006.libed11 +++| VFD 36/,12/7777B,12/2RCT+4000B 05103 M01S00007.libed11 +++| VFD 36/,12/7777B,12/2RAT+4000B 05104 M00S04818.libedit +++| CON 0
| Line S04819 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05105 M01S04819.libed6 ---| CVDL BSS 0
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05106 M01S00022.libed6 +++| SPACE 4,10 05107 M01S00023.libed6 +++|** COMMON DECKS. 05108 M00S04820.libedit +++| 05109 M00S04821.libedit +++|
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 05110 M01S00035.libed8 +++|*CALL COMCCDD 05111 M00S04822.libedit +++| WRIF$ EQU 1 SELECT *REISSUE CURRENT WRITE*
| Line S04823 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05112 M01S04823.libed6 ---| SPACE 4 05113 M01S04824.libed6 ---|** COMMON DECKS. 05114 M01S04825.libed6 ---| 05115 M00S04826.libedit +++|*CALL COMCCIO 05116 M00S04827.libedit +++|*CALL COMCCPM 05117 M00S04828.libedit +++|*CALL COMCCPT 05118 M00S04829.libedit +++|*CALL COMCDXB
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | libed10 |
Seq # *Modification Id* Act ----------------------------+ 05119 M01S00019.libed10 +++|*CALL COMCLFM 05120 M00S04830.libedit +++|*CALL COMCOVL 05121 M00S04831.libedit +++|*CALL COMCRDH 05122 M00S04832.libedit +++|*CALL COMCRDW 05123 M00S04833.libedit +++|*CALL COMCSFN 05124 M00S04834.libedit +++|*CALL COMCSRT 05125 M00S04835.libedit +++|*CALL COMCSYS 05126 M00S04836.libedit +++|*CALL COMCWTC 05127 M00S04837.libedit +++|*CALL COMCWTH 05128 M00S04838.libedit +++|*CALL COMCWTW 05129 M00S04839.libedit +++| BUFFERS SPACE 4,10 05130 M00S04840.libedit +++|** BUFFERS. 05131 M00S04841.libedit +++| 05132 M00S04842.libedit +++| 05133 M00S04843.libedit +++| USE BUFFERS 05134 M00S04844.libedit +++| 05135 M00S04845.libedit +++| OUTPUTB BSS 0 OUTPUT WORKING BUFFER
| Line S04846 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05136 M01S04846.v23l617 ---| DCB EQU OUTPUTB+1 DIRECTIVE CARD BUFFER
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05137 M01S00037.v23l617 +++| DCB EQU OUTPUTB+1 DIRECTIVE COMMAND BUFFER 05138 M00S04847.libedit +++| DSB EQU DCB+DCBL DIRECTIVE STRING BUFFER 05139 M00S04848.libedit +++| WSA EQU DSB+10*DCBL+2 WORKING STORAGE (OLD)
| Line S04849 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05140 M01S04849.274l797 ---| WSAL EQU 1000B
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05141 M01S00020.274l797 +++| WSAL EQU 4000B 05142 M00S04850.libedit +++| WSB EQU WSA+WSAL+1 WORKING STORAGE (LGO/NEW)
| Line S04851 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05143 M01S04851.274l797 ---| WSBL EQU 1000B
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05144 M01S00021.274l797 +++| WSBL EQU 4000B 05145 M00S04852.libedit +++| INPB EQU WSB+WSBL INPUT BUFFER 05146 M00S04853.libedit +++| OUTB EQU INPB+INPL OUTPUT BUFFER 05147 M00S04854.libedit +++| TTYB EQU OUTB+OUTL 05148 M00S04855.libedit +++| OLDB EQU TTYB+TTYL OLD BUFFER 05149 M00S04856.libedit +++| NEWB EQU OLDB+OLDL NEW BUFFER 05150 M00S04857.libedit +++| LGOB EQU NEWB+NEWL LGO BUFFER 05151 M00S04858.libedit +++| SBUF EQU LGOB+LGOL SCRATCH BUFFER 05152 M00S04859.libedit +++| BUF EQU SBUF+SBUFL START OF MANAGED TABLES 05153 M00S04860.libedit +++| MFL= EQU 200000B+BUF+BUFL+5 MINIMUM FIELD LENGTH 05154 M00S04861.libedit +++| PRS TITLE LIBEDIT - PRESET.
| Line S04862 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05155 M01S04862.libed6 ---|* PRS - PRESET PROGRAM.
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05156 M01S00024.libed6 +++|*** PRS - PRESET PROGRAM. 05157 M00S04863.libedit +++|* 05158 M00S04864.libedit +++|* ENTRY (A0) = FIELD LENGTH. 05159 M00S04865.libedit +++|* (ARGR) = ARGUMENT LIST. 05160 M00S04866.libedit +++|* (ACTR) = ARGUMENT COUNT. 05161 M00S04867.libedit +++|* 05162 M00S04868.libedit +++|* EXIT (FL) = A0. 05163 M00S04869.libedit +++|* (DATE.) = CURRENT DATE. 05164 M00S04870.libedit +++|* (TITC) = CURRENT TIME. 05165 M00S04871.libedit +++|* (FLST) = UPDATED FILE LIST.
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 05166 M01S00025.ns22000 +++|* (LL) = LINE LIMIT. 05167 M01S00026.ns22000 +++|* (PD) = PRINT DENSITY.
| Line S04872 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05168 M01S04872.v23l617 ---|* ALL CONTROL STATEMENT PARAMETERS PROCESSED.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05169 M01S00038.v23l617 +++|* ALL COMMAND PARAMETERS PROCESSED. 05170 M00S04873.libedit +++| 05171 M00S04874.libedit +++|
| Line S04875 Modification History | |
|---|---|
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05172 M01S04875.libed6 ---| NAME PRS,PRSL 05173 M01S04876.libed6 ---| LIBEDIT SB1 1 (B1) = CONSTANT ONE
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 05174 M01S00025.libed6 +++| PRS SUBR ENTRY/EXIT 05175 M00S04877.libedit +++| DATE DATE. SET CURRENT DATE 05176 M00S04878.libedit +++| SB5 6 05177 M00S04879.libedit +++| SA3 DATE. 05178 M00S04880.libedit +++| LX6 B5,X3 05179 M00S04881.libedit +++| SA6 TITB 05180 M00S04882.libedit +++| SA6 A3 05181 M00S04883.libedit +++| CLOCK TITC GET CURRENT TIME 05182 M00S04884.libedit +++| SA3 TITC 05183 M00S04885.libedit +++| LX6 B5,X3 05184 M00S04886.libedit +++| SA6 A3 05185 M00S04887.libedit +++| MEMORY CM,FL,R SET AVAILABLE TABLE SPACE 05186 M00S04888.libedit +++| SA1 FL 05187 M00S04889.libedit +++| LX1 30 05188 M00S04890.libedit +++| SX6 X1-BUF 05189 M00S04891.libedit +++| SA6 L.BUF 05190 M00S04892.libedit +++|
| Line S04893 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05191 M01S04893.v23l617 ---|* PROCESS CONTROL STATEMENT PARAMETERS.
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05192 M01S00039.v23l617 +++|* PROCESS COMMAND PARAMETERS. 05193 M00S04894.libedit +++| 05194 M00S04895.libedit +++| SA1 ACTR ARGUMENT COUNT 05195 M00S04896.libedit +++| SB5 ARGA ARGUMENT TABLE 05196 M00S04897.libedit +++| SA4 ARGR FIRST ARGUMENT 05197 M00S04898.libedit +++| SB4 X1+
| Line S04899 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05198 M01S04899.v23l617 ---| RJ ARG PROCESS CONTROL STATEMENT PARAMETERS
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05199 M01S00040.v23l617 +++| RJ ARG PROCESS COMMAND PARAMETERS 05200 M00S04900.libedit +++| SX7 =C* LIBEDIT ARGUMENT ERROR(S).* 05201 M00S04901.libedit +++| NZ X1,PRS13 IF ERROR IN PARAMETERS 05202 M00S04902.libedit +++| 05203 M00S04903.libedit +++|* SET FILE NAMES IN LIST AND FET-S. 05204 M00S04904.libedit +++| 05205 M00S04905.libedit +++| SB5 B0+ 05206 M00S04906.libedit +++| SB6 FLSTL-2 05207 M00S04907.libedit +++| PRS1 SA1 PAR+B5 05208 M00S04908.libedit +++| ZR X1,PRS2 IF NOT SPECIFIED 05209 M00S04909.libedit +++| BX6 X1
| Line S04910 Modification History | |
|---|---|
M01 (Removed by) | ns2371 |
Seq # *Modification Id* Act ----------------------------+ 05210 M01S04910.ns2371 ---| SA1 FLST+/FLST/INPUT+B5
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2371 |
M02 (Removed by) | ns2371a |
Seq # *Modification Id* Act ----------------------------+ 05211 M02S00003.ns2371a ---| SA1 FLST+/FLST/OUTPUT+B5
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2371a |
Seq # *Modification Id* Act ----------------------------+ 05212 M01S00005.ns2371a +++| SA1 FLST+/FLST/INPUT+B5 05213 M00S04911.libedit +++| RJ RFN REPLACE FILE NAME 05214 M00S04912.libedit +++| PRS2 SB5 B5+B1 05215 M00S04913.libedit +++| LT B5,B6,PRS1 IF NOT FINISHED 05216 M00S04914.libedit +++| 05217 M00S04915.libedit +++|* CHECK FILE NAME CONFLICT. 05218 M00S04916.libedit +++| 05219 M00S04917.libedit +++| SA1 FLST+/FLST/TTYOUT 05220 M00S04918.libedit +++| MX0 42 05221 M00S04919.libedit +++| BX3 X1*X0 05222 M00S04920.libedit +++| ZR X3,PRS5 IF NO FILE NAME 05223 M00S04921.libedit +++| SA2 A1+1 05224 M00S04922.libedit +++| SX7 =C* FILE NAME CONFLICT.* 05225 M00S04923.libedit +++| PRS3 ZR X2,PRS5 IF END OF LIST 05226 M00S04924.libedit +++| BX4 X2*X0 05227 M00S04925.libedit +++| ZR X4,PRS4 IF NO FILE NAME 05228 M00S04926.libedit +++| BX5 X4-X3 05229 M00S04927.libedit +++| ZR X5,PRS13 IF FILE NAME CONFLICT 05230 M00S04928.libedit +++| PRS4 SA2 A2+B1 NEXT FILE NAME 05231 M00S04929.libedit +++| EQ PRS3 LOOP FOR ALL FILES 05232 M00S04930.libedit +++| 05233 M00S04931.libedit +++| PRS5 SA1 A1+1 05234 M00S04932.libedit +++| NZ X1,PRS3 IF NOT YET END OF LIST 05235 M00S04933.libedit +++| 05236 M00S04934.libedit +++|* PROCESS REQUIRED FILES. 05237 M00S04935.libedit +++| 05238 M00S04936.libedit +++| SETLOF PRSB SET LIST OF FILES 05239 M00S04937.libedit +++| SA1 FLST+/FLST/NEW 05240 M00S04938.libedit +++| BX6 X0*X1 05241 M00S04939.libedit +++| SX7 =C* NO NEW FILE.* 05242 M00S04940.libedit +++| ZR X6,PRS13 IF NO NEW FILE 05243 M00S04941.libedit +++| SA6 GULF SET INPUT FILE FOR *LIBGEN* 05244 M00S04942.libedit +++| 05245 M00S04943.libedit +++|* DETERMINE ASSIGNMENT OF INPUT AND OUTPUT. 05246 M00S04944.libedit +++| 05247 M00S04945.libedit +++| SX2 I CHECK FOR TERMINAL INPUT FILE 05248 M00S04946.libedit +++| RJ STF 05249 M00S04947.libedit +++| SA6 TTYI 05250 M00S04948.libedit +++| NZ X6,PRS6 IF NOT TTY INPUT 05251 M00S04949.libedit +++| RETURN TTYOUT,R ASSIGN *TTYOUT* TO TERMINAL 05252 M00S04950.libedit +++| SA1 =2LTT 05253 M00S04951.libedit +++| MX7 -12 05254 M00S04952.libedit +++| SA2 TTYOUT+1 05255 M00S04953.libedit +++| BX6 -X7*X2 05256 M00S04954.libedit +++| BX6 X6+X1 05257 M00S04955.libedit +++| SA6 A2+ 05258 M00S04956.libedit +++| REQUEST TTYOUT,U 05259 M00S04957.libedit +++| WRITE TTYOUT,* 05260 M00S04958.libedit +++| PRS6 SX2 O CHECK FOR TTY OUTPUT FILE 05261 M00S04959.libedit +++| RJ STF 05262 M00S04960.libedit +++| SA6 TTYO 05263 M00S04961.libedit +++| 05264 M00S04962.libedit +++|* PROCESS *LO* AND SET LIST OPTIONS. 05265 M00S04963.libedit +++| 05266 M00S04964.libedit +++| SA1 FLST+/FLST/OUTPUT 05267 M00S04965.libedit +++| BX4 X0*X1 05268 M00S04966.libedit +++| NZ X4,PRS7 IF LIST FILE DEFINED 05269 M00S04967.libedit +++| BX7 X7-X7 CLEAR LIST OPTIONS 05270 M00S04968.libedit +++| SA7 LIST 05271 M00S04969.libedit +++| PRS7 NZ X6,PRS8 IF NOT TTY OUTPUT 05272 M00S04970.libedit +++| 05273 M00S04971.libedit +++|* CHECK TERMINAL TABLE FOR *BRIEF* MODE. 05274 M00S04972.libedit +++| 05275 M00S04973.libedit +++| TSTATUS PRSA 05276 M00S04974.libedit +++| SA1 PRSA+1 05277 M00S04975.libedit +++| SX6 40B 05278 M00S04976.libedit +++| BX6 X6*X1 05279 M00S04977.libedit +++| SA6 BRFM 05280 M00S04978.libedit +++| 05281 M00S04979.libedit +++|* CHECK LIST OPTIONS. 05282 M00S04980.libedit +++| 05283 M00S04981.libedit +++| PRS8 SA1 LIST 05284 M00S04982.libedit +++| BX1 X0*X1 05285 M00S04983.libedit +++| ZR X1,PRS9 IF NO LIST OPTIONS SPECIFIED 05286 M00S04984.libedit +++| RJ ILO INTERPRET LIST OPTIONS 05287 M00S04985.libedit +++| SX7 =C* LIST OPTION ERROR.* 05288 M00S04986.libedit +++| NZ X1,PRS13 IF LIST OPTION ERROR 05289 M00S04987.libedit +++| EQ PRS10 PROCESS *Z* 05290 M00S04988.libedit +++| 05291 M00S04989.libedit +++| PRS9 SA1 TTYO 05292 M00S04990.libedit +++| NZ X1,PRS10 IF NOT TTY OUTPUT 05293 M00S04991.libedit +++| SX7 3 SET TTY *LO* DEFAULT OPTIONS 05294 M00S04992.libedit +++| SA7 LIST 05295 M00S04993.libedit +++| PRS10 SA1 CZOP 05296 M00S04994.libedit +++| ZR X1,PRS11 IF *Z* PARAMETER NOT SELECTED 05297 M00S04995.libedit +++| BX6 X1 05298 M00S04996.libedit +++| SA6 TTYI 05299 M00S04997.libedit +++| SX2 INPUT INPUT FILE FET 05300 M00S04998.libedit +++| RJ ZAP *Z* ARGUMENT PROCESSOR 05301 M00S04999.libedit +++| PRS11 SA1 LGO SET CORRECTION FILE NAME 05302 M00S05000.libedit +++| MX0 42 05303 M00S05001.libedit +++| BX6 X0*X1 05304 M00S05002.libedit +++| SA6 LGO. 05305 M00S05003.libedit +++| ZR X6,PRS12 IF NO CORRECTION FILE 05306 M00S05004.libedit +++| ADDWRD FNT,A6
| Line S05005 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05307 M01S05005.274l797 ---| PRS12 REWIND NEW,R INITIALIZE *NEW* FILE
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/libedit.002.txt · Last modified: by 127.0.0.1