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