Seq # *Modification Id* Act
----------------------------+
01706 M00S01578.libedit +++| ADDWRD RFT,RDCD
01707 M00S01579.libedit +++| EQ RET
01708 M00S01580.libedit +++| VFYLIB SPACE 4,10
01709 M00S01581.libedit +++|** *VFYLIB
01710 M00S01582.libedit +++|*
01711 M00S01583.libedit +++|* CALL *VFYLIB* AFTER EDITING.
01712 M00S01584.libedit +++|
01713 M00S01585.libedit +++|
01714 M00S01586.libedit +++| VFYLIB SX6 B1+ SET *VFYLIB* FLAG
01715 M00S01587.libedit +++| SA6 CVFY
01716 M00S01588.libedit +++| EQ LST LIST DIRECTIVE
| Line S01589 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
01717 M01S01589.libed6 ---| SPACE 4
01718 M01S01590.libed6 ---| RDCL BSS 0
01719 M00S01591.libedit +++| TITLE SUBROUTINES.
01720 M00S01592.libedit +++|** ABT - ABORT JOB.
01721 M00S01593.libedit +++|
01722 M00S01594.libedit +++|
| Line S01595 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
01723 M01S01595.libed6 ---| NAME ABT,ABTL
01724 M00S01596.libedit +++| ABT SUBR ENTRY/EXIT
01725 M00S01597.libedit +++| SA1 OUTPUT+2 CLOSE OUT FILE *OUTPUT*
01726 M00S01598.libedit +++| SA2 A1+B1
01727 M00S01599.libedit +++| BX6 X1-X2
01728 M00S01600.libedit +++| ZR X6,ABT1 IF NO OUTPUT
| Line S01601 Modification History |
M01 (Removed by) | ns2371a |
Seq # *Modification Id* Act
----------------------------+
01729 M01S01601.ns2371a ---| WRITER OUTPUT
| Line S00002 Modification History |
M01 (Added by) | ns2371a |
Seq # *Modification Id* Act
----------------------------+
01730 M01S00002.ns2371a +++| WRITER OUTPUT,R
01731 M00S01602.libedit +++| ABT1 ABORT
| Line S01603 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
01732 M01S01603.libed6 ---|
01733 M01S01604.libed6 ---| ABTL BSS 0
01734 M00S01605.libedit +++| SPACE 4
01735 M00S01606.libedit +++|** ADD - ADD WORD(S) TO MANAGED TABLE.
01736 M00S01607.libedit +++|*
01737 M00S01608.libedit +++|* ENTRY (B2) = ADDRESS OF TABLE POINTER.
01738 M00S01609.libedit +++|* (B3) = FWA OF ENTRY.
01739 M00S01610.libedit +++|
01740 M00S01611.libedit +++|
| Line S01612 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
01741 M01S01612.libed6 ---| NAME ADD,ADDL
01742 M00S01613.libedit +++| ADD SUBR ENTRY/EXIT
01743 M00S01614.libedit +++| ADD1 SA1 B2 SET TABLE ADDRESS
01744 M00S01615.libedit +++| SA2 B2+B1
01745 M00S01616.libedit +++| SA3 A2+B1
01746 M00S01617.libedit +++| SA4 A3+B1
01747 M00S01618.libedit +++| SA5 A4+B1
01748 M00S01619.libedit +++| IX7 X2-X5
01749 M00S01620.libedit +++| SB6 X1
01750 M00S01621.libedit +++| SX6 B6+X7
01751 M00S01622.libedit +++| SB7 X4 (B7) = NUMBER OF WORDS TO MOVE
01752 M00S01623.libedit +++| ZR X6,ADD3 IF NO ROOM FOR ENTRY
01753 M00S01624.libedit +++| SA1 B3 STORE ENTRY
01754 M00S01625.libedit +++| ADD2 BX7 X1
01755 M00S01626.libedit +++| SA7 B6+X2
01756 M00S01627.libedit +++| SX2 X2+B1
01757 M00S01628.libedit +++| SA1 A1+B1
01758 M00S01629.libedit +++| SX3 X3-1
01759 M00S01630.libedit +++| NZ X3,ADD2 LOOP FOR ENTIRE ENTRY
01760 M00S01631.libedit +++| BX7 X2
01761 M00S01632.libedit +++| SA7 A2
01762 M00S01633.libedit +++| EQ ADDX RETURN
01763 M00S01634.libedit +++|
01764 M00S01635.libedit +++|* NO ROOM FOR ENTRY. MOVE OTHER TABLES UP TO MAKE ROOM FOR
01765 M00S01636.libedit +++|* ENTRY.
01766 M00S01637.libedit +++|
01767 M00S01638.libedit +++| ADD3 SA1 P.BUF
01768 M00S01639.libedit +++| SA2 L.BUF
01769 M00S01640.libedit +++| IX6 X2-X4
01770 M00S01641.libedit +++| PL X6,ADD4 IF ENOUGH FL
01771 M00S01642.libedit +++| SX6 B0 CLEAR STATUS WORD
01772 M00S01643.libedit +++| SA6 ADDA
01773 M00S01644.libedit +++| MX6 29
01774 M00S01645.libedit +++| SA6 A6+B1
01775 M00S01646.libedit +++| MEMORY CM,ADDA,R
01776 M00S01647.libedit +++| MEMORY CM,ADDB,R
01777 M00S01648.libedit +++| SA1 ADDA GET PRESENT FL
01778 M00S01649.libedit +++| AX1 30
01779 M00S01650.libedit +++| SA2 A1+B1 GET MAXIMUM FL
01780 M00S01651.libedit +++| AX2 30
01781 M00S01652.libedit +++| SX6 X1+1000B ADD INCREMENT
01782 M00S01653.libedit +++| IX2 X2-X6
01783 M00S01654.libedit +++| PL X2,ADD3.1 IF NOT BEYOND MAXIMUM FL
01784 M00S01655.libedit +++| MESSAGE (=C* REQUIRED FL EXCEEDS VALIDATED LIMIT.*)
01785 M00S01656.libedit +++| CALL ABT ABORT JOB
01786 M00S01657.libedit +++|
01787 M00S01658.libedit +++| ADD3.1 LX6 30 BUILD STATUS WORD
01788 M00S01659.libedit +++| SA6 FL
01789 M00S01660.libedit +++| MEMORY CM,FL,R REQUEST ADDITIONAL FL
01790 M00S01661.libedit +++| SA2 L.BUF UPDATE SPARE BUFFER LENGTH
01791 M00S01662.libedit +++| SX6 X2+1000B
01792 M00S01663.libedit +++| SA6 A2
01793 M00S01664.libedit +++| EQ ADD3 TRY AGAIN
01794 M00S01665.libedit +++|
01795 M00S01666.libedit +++| ADD4 SB5 X1 (B5) = LWA OF MOVE
01796 M00S01667.libedit +++| SB6 X5 (B6) = FWA OF MOVE
01797 M00S01668.libedit +++| SA6 A2
01798 M00S01669.libedit +++| SB4 A1
01799 M00S01670.libedit +++| ADD5 SA1 B4 INCREMENT TABLE POINTERS
01800 M00S01671.libedit +++| SB4 B4-4
01801 M00S01672.libedit +++| IX7 X1+X4
01802 M00S01673.libedit +++| SA7 A1
01803 M00S01674.libedit +++| NE B4,B2,ADD5 LOOP
01804 M00S01675.libedit +++| SA2 B5
01805 M00S01676.libedit +++| EQ B5,B6,ADD1 JUMP IF NO DATA TO MOVE
01806 M00S01677.libedit +++| + SA1 A2-B1 MOVE TABLES
01807 M00S01678.libedit +++| SA2 A1-B1
01808 M00S01679.libedit +++| SB5 B5-2
01809 M00S01680.libedit +++| BX6 X1
01810 M00S01681.libedit +++| LX7 X2
01811 M00S01682.libedit +++| SA6 A1+B7
01812 M00S01683.libedit +++| SA7 A2+B7
01813 M00S01684.libedit +++| NE B5,B6,*-2
01814 M00S01685.libedit +++| SX7 B0 CLEAR NEW AREA
01815 M00S01686.libedit +++| SB7 B6+B7
01816 M00S01687.libedit +++| + SA7 B6
01817 M00S01688.libedit +++| SB6 B6+B1
01818 M00S01689.libedit +++| NE B6,B7,*
01819 M00S01690.libedit +++| EQ ADD1 MAKE ENTRY
01820 M00S01691.libedit +++|
01821 M00S01692.libedit +++|
01822 M00S01693.libedit +++| ADDA CON 0
01823 M00S01694.libedit +++| ADDB VFD 30/-1,30/0
01824 M00S01695.libedit +++| ERRNZ ADDB-ADDA-1
| Line S01696 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
01825 M01S01696.libed6 ---| ADDL BSS 0
01826 M01S01697.libed6 ---| SPACE 4
| Line S00009 Modification History |
M01 (Added by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
01827 M01S00009.libed6 +++| AFN SPACE 4,14
01828 M00S01698.libedit +++|** AFN - ASSEMBLE FILE NAME.
01829 M00S01699.libedit +++|*
01830 M00S01700.libedit +++|* CHARACTER MASK:
01831 M00S01701.libedit +++|* EOL = 2000 0000 0000 0000 0000
01832 M00S01702.libedit +++|* *-* = 0000 0000 0000 0400 0000
01833 M00S01703.libedit +++|* */* = 0000 0000 0000 0100 0000
01834 M00S01704.libedit +++|* * * = 0000 0000 0000 0002 0000
01835 M00S01705.libedit +++|* *,* = 0000 0000 0000 0001 0000
01836 M00S01706.libedit +++|* ENTRY (B2) = ADDRESS OF STRING BUFFER POINTER.
01837 M00S01707.libedit +++|* (B3) = ADDRESS TO STORE FILE NAME.
01838 M00S01708.libedit +++|* EXIT (B2) = ADDRESS OF UPDATED STRING BUFFER POINTER.
01839 M00S01709.libedit +++|*
01840 M00S01710.libedit +++|* USES A - 1, 2, 6.
01841 M00S01711.libedit +++|* X - 0, 1, 2, 6, 7.
01842 M00S01712.libedit +++|* B - 4, 5, 7.
01843 M00S01713.libedit +++|
01844 M00S01714.libedit +++|
| Line S01715 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
01845 M01S01715.libed6 ---| NAME AFN,AFNL
01846 M00S01716.libedit +++| AFN SUBR ENTRY/EXIT
01847 M00S01717.libedit +++| SA1 B2
01848 M00S01718.libedit +++| SB4 X1+B1
01849 M00S01719.libedit +++| SB7 60
01850 M00S01720.libedit +++| SX6 B0
01851 M00S01721.libedit +++| AFN1 SA1 B4 READ CHARACTER
01852 M00S01722.libedit +++| SB5 X1+B1
01853 M00S01723.libedit +++| SA2 =20000000000005030000B
01854 M00S01724.libedit +++| LX2 X2,B5
01855 M00S01725.libedit +++| NG X2,AFN2 IF CHARACTER = EOL */* *,* *-*
01856 M00S01726.libedit +++| LX6 6
01857 M00S01727.libedit +++| BX6 X6+X1
01858 M00S01728.libedit +++| SB4 B4+B1
01859 M00S01729.libedit +++| SB7 B7-6
01860 M00S01730.libedit +++| EQ AFN1 LOOP FOR NEXT CHARACTER
01861 M00S01731.libedit +++|
01862 M00S01732.libedit +++| AFN2 LX2 X6,B7 STORE FILE NAME
01863 M00S01733.libedit +++| MX0 42
01864 M00S01734.libedit +++| BX6 X0*X2
01865 M00S01735.libedit +++| BX2 -X0*X2
01866 M00S01736.libedit +++| SX7 =C* FILE NAME TOO LONG.*
01867 M00S01737.libedit +++| NZ X2,ERR IF FILE NAME, DIRECTIVE .GT. 7 CHARACTERS
01868 M00S01738.libedit +++| SA6 B3
01869 M00S01739.libedit +++| AX6 42 CHECK FOR FILE NAME (*)
01870 M00S01740.libedit +++| SX6 X6-1L*
01871 M00S01741.libedit +++| NZ X6,AFN3 IF NOT MAIN CORRECTION FILE
01872 M00S01742.libedit +++| SA1 LGO
01873 M00S01743.libedit +++| BX6 X0*X1
01874 M00S01744.libedit +++| SA6 A6
01875 M00S01745.libedit +++| AFN3 SX6 B4 STORE STRING POINTER
01876 M00S01746.libedit +++| SA6 B2
01877 M00S01747.libedit +++| EQ AFNX RETURN
| Line S01748 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
01878 M01S01748.libed6 ---|
01879 M01S01749.libed6 ---| AFNL BSS 0
01880 M01S01750.libed6 ---| SPACE 4
| Line S00010 Modification History |
M01 (Added by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
01881 M01S00010.libed6 +++| APN SPACE 4,10
01882 M00S01751.libedit +++|** APN - ASSEMBLE PROGRAM NAME.
01883 M00S01752.libedit +++|*
01884 M00S01753.libedit +++|* ASSEMBLE ENTRY OF TYPE *LIB/PN,*
01885 M00S01754.libedit +++|* ENTRY (B2) = ADDRESS OF STRING BUFFER POINTER.
01886 M00S01755.libedit +++|* (B3) = ADDRESS TO RETURN ENTRY.
01887 M00S01756.libedit +++|* EXIT (X2) = SEPARATOR CHARACTER
01888 M00S01757.libedit +++|*
01889 M00S01758.libedit +++|* USES A - 1, 2, 6, 7.
01890 M00S01759.libedit +++|* X - 0, 1, 2, 6, 7.
01891 M00S01760.libedit +++|* B - 4, 5, 7.
01892 M00S01761.libedit +++|
01893 M00S01762.libedit +++|
| Line S01763 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
01894 M01S01763.libed6 ---| NAME APN,APNL
01895 M00S01764.libedit +++| APN SUBR ENTRY/EXIT
01896 M00S01765.libedit +++| SA1 B2
01897 M00S01766.libedit +++| SB4 X1+B1 (B4) = STRING BUFFER POINTER
01898 M00S01767.libedit +++| SA1 RDCE SET DEFAULT LIBRARY
01899 M00S01768.libedit +++| BX7 X1
01900 M00S01769.libedit +++| SA7 APNA
01901 M00S01770.libedit +++| SX6 B0
01902 M00S01771.libedit +++| SB7 60
01903 M00S01772.libedit +++|
01904 M00S01773.libedit +++|* ASSEMBLE FIRST ENTRY.
01905 M00S01774.libedit +++|
01906 M00S01775.libedit +++| APN1 SA2 B4
01907 M00S01776.libedit +++| SB5 X2-1R/
01908 M00S01777.libedit +++| ZR B5,APN2 IF CHARACTER = */*
01909 M00S01778.libedit +++| SA1 =20000000000004030000B
01910 M00S01779.libedit +++| SB5 X2+B1
01911 M00S01780.libedit +++| LX1 X1,B5
01912 M00S01781.libedit +++| NG X1,APN4 IF CHARACTER = EOL *-* * * *,*
01913 M00S01782.libedit +++| LX6 6
01914 M00S01783.libedit +++| SB7 B7-6
01915 M00S01784.libedit +++| IX6 X6+X2
01916 M00S01785.libedit +++| SB4 B4+B1
01917 M00S01786.libedit +++| EQ APN1 LOOP
01918 M00S01787.libedit +++|
01919 M00S01788.libedit +++|* CHARACTER = */* SET LIBRARY NAME. ASSEMBLE PROGRAM NAME.
01920 M00S01789.libedit +++|
01921 M00S01790.libedit +++| APN2 LX6 X6,B7
01922 M00S01791.libedit +++| SA6 APNA
01923 M00S01792.libedit +++| SX6 B0
01924 M00S01793.libedit +++| SB7 60
01925 M00S01794.libedit +++| SB4 B4+B1
01926 M00S01795.libedit +++| APN3 SA2 B4
01927 M00S01796.libedit +++| SB5 X2-1R/
01928 M00S01797.libedit +++| ZR B5,ERR9 IF CHARACTER = */*
01929 M00S01798.libedit +++| SA1 =20000000000004030000B
01930 M00S01799.libedit +++| SB5 X2+B1
01931 M00S01800.libedit +++| LX1 X1,B5
01932 M00S01801.libedit +++| NG X1,APN4 IF CHARACTER = EOL *-* * * *,*
01933 M00S01802.libedit +++| LX6 6
01934 M00S01803.libedit +++| IX6 X6+X2
01935 M00S01804.libedit +++| SB7 B7-6
01936 M00S01805.libedit +++| SB4 B4+B1
01937 M00S01806.libedit +++| EQ APN3 LOOP
01938 M00S01807.libedit +++|
01939 M00S01808.libedit +++|* CHARACTER = EOL *-* * * *,*. STORE PROGRAM NAME.
01940 M00S01809.libedit +++|
01941 M00S01810.libedit +++| APN4 SA1 APNA CHECK LIBRARY TYPE
01942 M00S01811.libedit +++| SA2 NAMA
| Line S01812 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01943 M01S01812.v23l617 ---| APN5 ZR X2,NAM2 IF ILLEGAL LIBRARY
| Line S00024 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01944 M01S00024.v23l617 +++| APN5 ZR X2,NAM2 IF INCORRECT LIBRARY
01945 M00S01813.libedit +++| BX7 X1-X2
01946 M00S01814.libedit +++| SA2 A2+B1
01947 M00S01815.libedit +++| NZ X7,APN5 IF NOT FOUND
01948 M00S01816.libedit +++| BX7 X1 SET DEFAULT TYPE
01949 M00S01817.libedit +++| SA7 RDCE
01950 M00S01818.libedit +++| MX0 42 SET PROGRAM AND LIBRARY NAMES
01951 M00S01819.libedit +++| LX2 X6,B7
01952 M00S01820.libedit +++| BX6 X0*X2
01953 M00S01821.libedit +++| BX2 -X0*X2
01954 M00S01822.libedit +++| SX7 =C* FILE NAME TOO LONG.*
01955 M00S01823.libedit +++| NZ X2,ERR IF FILE NAME .GT. 7 CHARACTERS
01956 M00S01824.libedit +++| SX7 A2-NAMA-1
01957 M00S01825.libedit +++| BX7 X6+X7
01958 M00S01826.libedit +++| SA7 B3
01959 M00S01827.libedit +++| SA2 B4
01960 M00S01828.libedit +++| SX6 B4
01961 M00S01829.libedit +++| SA6 B2
01962 M00S01830.libedit +++| SX6 X2
01963 M00S01831.libedit +++| EQ APNX RETURN
01964 M00S01832.libedit +++|
01965 M00S01833.libedit +++|
01966 M00S01834.libedit +++| APNA DATA 0 LIBRARY NAME
| Line S01835 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
01967 M01S01835.libed6 ---| APNL BSS 0
01968 M00S01836.libedit +++| SPACE 4
01969 M00S01837.libedit +++|** BID - BUILD IMPLIED DELETE TABLE.
01970 M00S01838.libedit +++|*
01971 M00S01839.libedit +++|* THE INSERT PROGRAM TABLE IS SCANNED TO DETERMINE WHICH
01972 M00S01840.libedit +++|* PROGRAMS ARE TO BE INSERTED. EACH PROGRAM TO BE INSERTED
01973 M00S01841.libedit +++|* IS ADDED TO THE IMPLIED DELETE TABLE.
01974 M00S01842.libedit +++|
01975 M00S01843.libedit +++|
| Line S01844 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
01976 M01S01844.libed6 ---| NAME BID,BIDL
01977 M00S01845.libedit +++| BID SUBR ENTRY/EXIT
01978 M00S01846.libedit +++| CALL LIT LIST IGNORE TABLE
01979 M00S01847.libedit +++| SA6 BIDE SET ERROR COUNT
01980 M00S01848.libedit +++| SX6 B0 SET IPT INDEX
01981 M00S01849.libedit +++| SA6 BIDA
01982 M00S01850.libedit +++| BID1 SA1 P.IPT
01983 M00S01851.libedit +++| SA2 L.IPT
01984 M00S01852.libedit +++| SA3 BIDA
01985 M00S01853.libedit +++| BX6 X2-X3
01986 M00S01854.libedit +++| ZR X6,BID8 IF END OF INSERT PROGRAM TABLE
01987 M00S01855.libedit +++| SB6 X1
01988 M00S01856.libedit +++| SB6 B6+X3 (B6) = IPT ADDRESS
01989 M00S01857.libedit +++| SA4 B6+B1 SET IPT ENTRY
01990 M00S01858.libedit +++| SA5 A4+B1
01991 M00S01859.libedit +++| BX6 X4
01992 M00S01860.libedit +++| LX7 X5
01993 M00S01861.libedit +++| SA6 BIDB
01994 M00S01862.libedit +++| SA7 A6+B1
01995 M00S01863.libedit +++| AX7 42
01996 M00S01864.libedit +++| SX7 X7-1L0
01997 M00S01865.libedit +++| ZR X7,BID6 IF ZERO-LENGTH RECORD INSERT
01998 M00S01866.libedit +++| SA4 A5+B1
01999 M00S01867.libedit +++| BX6 X4
02000 M00S01868.libedit +++| SA6 A7+B1
02001 M00S01869.libedit +++| SB7 B0 SEARCH PNT FOR START OF INSERT
02002 M00S01870.libedit +++| SA1 P.PNT
02003 M00S01871.libedit +++| SA2 L.PNT
02004 M00S01872.libedit +++| SB5 X1
02005 M00S01873.libedit +++| SB6 X2
02006 M00S01874.libedit +++| SA5 BIDB
02007 M00S01875.libedit +++| MX0 42
02008 M00S01876.libedit +++| BID2 EQ B6,B7,BID5 IF END OF PNT
02009 M00S01877.libedit +++| SB7 B7+B1
02010 M00S01878.libedit +++| SA1 B5+B7 CHECK FILE NAME
02011 M00S01879.libedit +++| SB7 B7+2
02012 M00S01880.libedit +++| BX6 X1-X5
02013 M00S01881.libedit +++| BX6 X0*X6
02014 M00S01882.libedit +++| NZ X6,BID2 IF FILE NAME NOT FOUND
02015 M00S01883.libedit +++| SA4 BIDB+1 CHECK PROGRAM NAME
02016 M00S01884.libedit +++| BX6 X4
02017 M00S01885.libedit +++| AX6 42
02018 M00S01886.libedit +++| SX1 X6-1L*
02019 M00S01887.libedit +++| SB7 B7-3
02020 M00S01888.libedit +++| ZR X1,BID7 IF ENTIRE FILE INSERT
02021 M00S01889.libedit +++| BID3 EQ B6,B7,BID5 IF END OF PNT
02022 M00S01890.libedit +++| SA1 B5+B7
02023 M00S01891.libedit +++| SA2 A1+B1
02024 M00S01892.libedit +++| BX6 X2-X5
02025 M00S01893.libedit +++| BX6 X0*X6
02026 M00S01894.libedit +++| NZ X6,BID5 IF END OF FILE
02027 M00S01895.libedit +++| SB7 B7+3
02028 M00S01896.libedit +++| BX6 X1-X4
02029 M00S01897.libedit +++| NZ X6,BID3 IF FIRST PROGRAM NOT FOUND
02030 M00S01898.libedit +++|
02031 M00S01899.libedit +++|* FIRST PROGRAM FOUND, MAKE ENTRIES IN IMPLIED DELETE TABLE.
02032 M00S01900.libedit +++|
02033 M00S01901.libedit +++| SX6 B7-3
02034 M00S01902.libedit +++| BID4 SA6 BIDC
02035 M00S01903.libedit +++| SA1 P.PNT
02036 M00S01904.libedit +++| SB5 X1
02037 M00S01905.libedit +++| SA2 B5+X6
02038 M00S01906.libedit +++| SA3 A2+B1
02039 M00S01907.libedit +++| BX6 X2
02040 M00S01908.libedit +++| LX7 X3
02041 M00S01909.libedit +++| SA6 BIDD
02042 M00S01910.libedit +++| SA7 A6+B1
02043 M00S01911.libedit +++| ADDWRD IDT,A6
02044 M00S01912.libedit +++| SA1 P.PNT
02045 M00S01913.libedit +++| SA2 L.PNT
02046 M00S01914.libedit +++| SA3 BIDC
02047 M00S01915.libedit +++| SB5 X1
02048 M00S01916.libedit +++| SB6 X2
02049 M00S01917.libedit +++| SB7 X3
02050 M00S01918.libedit +++| SA5 BIDB CHECK FILE
02051 M00S01919.libedit +++| SA4 BIDB+2 CHECK FOR LAST PROGRAM
02052 M00S01920.libedit +++| MX0 42
02053 M00S01921.libedit +++| SA1 B5+B7
02054 M00S01922.libedit +++| BX6 X1-X4
02055 M00S01923.libedit +++| ZR X6,BID6 IF LAST PROGRAM FOUND
02056 M00S01924.libedit +++| SB7 B7+3
02057 M00S01925.libedit +++| BX6 X4
02058 M00S01926.libedit +++| AX6 42
02059 M00S01927.libedit +++| SX1 X6-1L*
02060 M00S01928.libedit +++| ZR X1,BID7 IF ADD FULL FILE
02061 M00S01929.libedit +++| SB4 B5+B7 CHECK FILE OF NEXT ENTRY IN THE PNT
02062 M00S01930.libedit +++| SA1 B4+B1
02063 M00S01931.libedit +++| EQ B6,B7,BID5 IF END OF PNT
02064 M00S01932.libedit +++| BX6 X1-X5
02065 M00S01933.libedit +++| BX7 X0*X6
02066 M00S01934.libedit +++| SX6 B7
02067 M00S01935.libedit +++| ZR X7,BID4 IF FILE CONTINUES
02068 M00S01936.libedit +++|
| Line S01937 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02069 M01S01937.v23l617 ---|* AN ERROR HAS BEEN DETECTED. OUTPUT ILLEGAL CARD.
| Line S00025 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02070 M01S00025.v23l617 +++|* AN ERROR HAS BEEN DETECTED. OUTPUT INCORRECT DIRECTIVE.
02071 M00S01938.libedit +++|
02072 M00S01939.libedit +++| BID5 CALL OIC,BIDA
02073 M00S01940.libedit +++| SA1 BIDE INCREMENT ERROR COUNT
02074 M00S01941.libedit +++| SX6 X1+B1
02075 M00S01942.libedit +++| SA6 A1
02076 M00S01943.libedit +++|
02077 M00S01944.libedit +++|* END OF INSERT SCAN. LOOP FOR NEXT INSERT CARD.
02078 M00S01945.libedit +++|
02079 M00S01946.libedit +++| BID6 SA1 BIDA
02080 M00S01947.libedit +++| SX6 X1+4
02081 M00S01948.libedit +++| SA6 A1
02082 M00S01949.libedit +++| EQ BID1 LOOP
02083 M00S01950.libedit +++|
02084 M00S01951.libedit +++|* ADD ENTIRE FILE TO IDT.
02085 M00S01952.libedit +++|
02086 M00S01953.libedit +++| BID7 EQ B6,B7,BID6 IF END OF PNT
02087 M00S01954.libedit +++| SA1 B5+B7 SET IDT ENTRY
02088 M00S01955.libedit +++| SA2 A1+B1
02089 M00S01956.libedit +++| SA5 BIDB
02090 M00S01957.libedit +++| SA4 A5+B1
02091 M00S01958.libedit +++| BX6 X1
02092 M00S01959.libedit +++| LX7 X2
02093 M00S01960.libedit +++| SA6 BIDD
02094 M00S01961.libedit +++| SA7 A6+B1
02095 M00S01962.libedit +++| MX0 42
02096 M00S01963.libedit +++| BX6 X5-X2
02097 M00S01964.libedit +++| BX6 X0*X6
02098 M00S01965.libedit +++| NZ X6,BID6 IF END OF FILE
02099 M00S01966.libedit +++| BX6 X4-X1
02100 M00S01967.libedit +++| BX6 -X0*X6
02101 M00S01968.libedit +++| SB7 B7+3
02102 M00S01969.libedit +++| NZ X6,BID7 IF NOT CORRECT PROGRAM TYPE
02103 M00S01970.libedit +++| SX7 B7
02104 M00S01971.libedit +++| SA7 BIDC
02105 M00S01972.libedit +++| ADDWRD IDT,A6 ADD ENTRY TO IDT
02106 M00S01973.libedit +++| SA1 P.PNT
02107 M00S01974.libedit +++| SA2 L.PNT
02108 M00S01975.libedit +++| SA3 BIDC
02109 M00S01976.libedit +++| SB5 X1
02110 M00S01977.libedit +++| SB6 X2
02111 M00S01978.libedit +++| SB7 X3
02112 M00S01979.libedit +++| EQ BID7 LOOP
02113 M00S01980.libedit +++|
02114 M00S01981.libedit +++|* CHECK ERROR COUNT.
02115 M00S01982.libedit +++|
02116 M00S01983.libedit +++| BID8 SA1 BIDE
02117 M00S01984.libedit +++| ZR X1,BIDX IF NO ERRORS
02118 M00S01985.libedit +++| SA1 TTYI
02119 M00S01986.libedit +++| ZR X1,BIDX IF TTY INPUT
02120 M00S01987.libedit +++| CALL C6S,BIDE,BIDF
02121 M00S01988.libedit +++| CALL MSG,BIDF,(=C* DIRECTIVE ERROR(S).*)
02122 M00S01989.libedit +++| SA1 CDOP CHECK *NA* OPTION
02123 M00S01990.libedit +++| NZ X1,BIDX IF NO ABORT
02124 M00S01991.libedit +++| CALL ABT ABORT JOB
02125 M00S01992.libedit +++|*
02126 M00S01993.libedit +++|
02127 M00S01994.libedit +++| BIDA DATA 0 INSERT PROGRAM TABLE INDEX
02128 M00S01995.libedit +++|
02129 M00S01996.libedit +++| BIDB VFD 42/,18/ IPT ENTRY - 42/FILE,18/0
02130 M00S01997.libedit +++| VFD 42/,18/ 42/PROG1,18/LIB1
02131 M00S01998.libedit +++| VFD 42/,18/ 42/PROG2,18/LIB2
02132 M00S01999.libedit +++|
02133 M00S02000.libedit +++| BIDC DATA 0 PROGRAM NAME TABLE INDEX
02134 M00S02001.libedit +++|
02135 M00S02002.libedit +++| BIDD VFD 42/,18/ IDT ENTRY - 42/PROG,18/LIB
02136 M00S02003.libedit +++| VFD 42/,18/ 42/FILE,18/POSITION
02137 M00S02004.libedit +++|
02138 M00S02005.libedit +++| BIDE DATA 0 ERROR COUNT
02139 M00S02006.libedit +++| BIDF DATA 0 ERROR COUNT (DISPLAY CODE)
| Line S02007 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02140 M01S02007.libed6 ---| BIDL BSS 0
02141 M00S02008.libedit +++| CAP SPACE 4,10
02142 M00S02009.libedit +++|** CAP - COPY ADDED PROGRAMS.
02143 M00S02010.libedit +++|*
02144 M00S02011.libedit +++|* COPY NEW RECORDS (THOSE NOT ON FILE *OLD*) ONTO
02145 M00S02012.libedit +++|* THE END OF FILE *NEW* (JUST BEFORE EOF).
02146 M00S02013.libedit +++|*
02147 M00S02014.libedit +++|* ENTRY (CADD) = 0 IF RECORDS TO BE INSERTED AT EOF.
02148 M00S02015.libedit +++|*
02149 M00S02016.libedit +++|* EXIT RECORDS WRITTEN TO FILE *NEW*.
02150 M00S02017.libedit +++|*
02151 M00S02018.libedit +++|* USES A - 1, 2, 3, 4, 6.
02152 M00S02019.libedit +++|* X - 1, 2, 3, 4, 6.
02153 M00S02020.libedit +++|* B - 2, 3, 6, 7.
02154 M00S02021.libedit +++|*
02155 M00S02022.libedit +++|* CALLS CPY, DIS, ORW.
02156 M00S02023.libedit +++|*
02157 M00S02024.libedit +++|* MACROS SEARCH.
02158 M00S02025.libedit +++|
02159 M00S02026.libedit +++|
| Line S02027 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02160 M01S02027.libed6 ---| NAME CAP,CAPL
02161 M00S02028.libedit +++| CAP SUBR ENTRY/EXIT
02162 M00S02029.libedit +++| SA1 CADD
02163 M00S02030.libedit +++| NZ X1,CAPX IF NO INSERT AT EOF
02164 M00S02031.libedit +++| SX6 B0+
02165 M00S02032.libedit +++| SA6 CAPA
02166 M00S02033.libedit +++| CAP1 SA1 P.PNT
02167 M00S02034.libedit +++| SA2 L.PNT
02168 M00S02035.libedit +++| SA3 CAPA
02169 M00S02036.libedit +++| SB6 X2
02170 M00S02037.libedit +++| SB7 X3
02171 M00S02038.libedit +++| CAP2 EQ B6,B7,CAPX IF END OF ADD
02172 M00S02039.libedit +++| SA4 X1+B7 CHECK PNT ENTRY
02173 M00S02040.libedit +++| SB7 B7+3
02174 M00S02041.libedit +++| ZR X4,CAP2 IF RECORD REPLACED
02175 M00S02042.libedit +++| SX6 B7
02176 M00S02043.libedit +++| SA6 A3
02177 M00S02044.libedit +++| BX6 X4
02178 M00S02045.libedit +++| SA1 A4+B1
02179 M00S02046.libedit +++| SA6 CAPB
02180 M00S02047.libedit +++| BX6 X1
02181 M00S02048.libedit +++| SA6 A6+B1
02182 M00S02049.libedit +++| SEARCH NRT,(A4+B1),(=77777777777777000000B)
02183 M00S02050.libedit +++| NZ X6,CAP1 IF FILE A NO REPLACE FILE
02184 M00S02051.libedit +++| SB2 CAPB
02185 M00S02052.libedit +++| SB3 =H* ADDING*
02186 M00S02053.libedit +++| RJ DIS
02187 M00S02054.libedit +++| SA1 CAPA
02188 M00S02055.libedit +++| SB2 X1-3
02189 M00S02056.libedit +++| RJ CPY COPY NEW RECORD
02190 M00S02057.libedit +++| SB2 =5HADDED
02191 M00S02058.libedit +++| SB3 CAPB+1
02192 M00S02059.libedit +++| RJ ORW
02193 M00S02060.libedit +++| EQ CAP1 GET NEXT RECORD
02194 M00S02061.libedit +++|
02195 M00S02062.libedit +++|
02196 M00S02063.libedit +++| CAPA BSS 1 PNT INDEX
02197 M00S02064.libedit +++| CAPB BSS 2 PNT ENTRY
| Line S02065 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02198 M01S02065.libed6 ---| CAPL BSS 0
02199 M00S02066.libedit +++| SPACE 4
02200 M00S02067.libedit +++|** CCM - COPY COMMENT ONTO FILE *NEW*.
02201 M00S02068.libedit +++|*
02202 M00S02069.libedit +++|* ENTRY (B2) = ADDRESS OF WORKING STORAGE.
02203 M00S02070.libedit +++|* (B3) = ADDRESS OF PROGRAM NAME.
02204 M00S02071.libedit +++|*
02205 M00S02072.libedit +++|* EXIT (X6) = ADDRESS OF TEXT FWA.
02206 M00S02073.libedit +++|*
02207 M00S02074.libedit +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
02208 M00S02075.libedit +++|* A - 1, 2, 3, 5, 6, 7.
02209 M00S02076.libedit +++|* B - 2, 3, 4, 5, 6, 7.
02210 M00S02077.libedit +++|*
02211 M00S02078.libedit +++|* CALLS COB, CPT, EPN, RNP.
02212 M00S02079.libedit +++|*
02213 M00S02080.libedit +++|* MACROS CALL, SEARCH, WRITE, WRITECW.
02214 M00S02081.libedit +++|
02215 M00S02082.libedit +++|
| Line S02083 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02216 M01S02083.libed6 ---| NAME CCM,CCML
02217 M00S02084.libedit +++| CCM SUBR ENTRY/EXIT
02218 M00S02085.libedit +++| SX6 B2 SAVE WORKING STORAGE ADDRESS
02219 M00S02086.libedit +++| SA6 CCMA
02220 M00S02087.libedit +++| SA1 B3 SET PROGRAM NAME
02221 M00S02088.libedit +++| BX6 X1
02222 M00S02089.libedit +++| SA6 CCMC
02223 M00S02090.libedit +++| CALL COB CLEAR OUTPUT BUFFER
02224 M00S02091.libedit +++| SA1 CCMC
02225 M00S02092.libedit +++| MX0 42
02226 M00S02093.libedit +++| BX6 X0*X1
02227 M00S02094.libedit +++| SA6 OUTPUTB+1
02228 M00S02095.libedit +++| SA2 X1+NAMA
02229 M00S02096.libedit +++| BX6 X2
02230 M00S02097.libedit +++| SA6 A6+B1
02231 M00S02098.libedit +++| SX6 B0 CLEAR COMMENT/DATE BUFFER
02232 M00S02099.libedit +++| SA6 OUTPUTB+4
02233 M00S02100.libedit +++| SB7 7
02234 M00S02101.libedit +++| CCM1 SA6 A6+B1
02235 M00S02102.libedit +++| SB7 B7-B1
02236 M00S02103.libedit +++| NZ B7,CCM1 IF NOT END OF BUFFER
02237 M00S02104.libedit +++| SEARCH CDT,B3,(=77777777777777377777B)
02238 M00S02105.libedit +++| SA1 CCMA
02239 M00S02106.libedit +++| ZR X6,CCM14 IF NO COMMENT OR DATE
| Line S00011 Modification History |
M01 (Added by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02240 M01S00011.libed6 +++| SA2 CCMC CHECK RECORD TYPE
02241 M01S00012.libed6 +++| SB3 X2
| Line S00013 Modification History |
M01 (Added by) | libed6 |
M02 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02242 M02S00013.251l664 ---| SB2 X2-20B CHECK FOR TYPE *PROC*
| Line S00024 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02243 M01S00024.251l664 +++| ERRNZ TXRT CODE ASSUMES VALUE
02244 M01S00025.251l664 +++| SB2 X2-PRRT+TXRT CHECK FOR TYPE *PROC*
| Line S00014 Modification History |
M01 (Added by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02245 M01S00014.libed6 +++| ZR B3,CCM14 IF TYPE *TEXT*
02246 M01S00015.libed6 +++| ZR B2,CCM14 IF TYPE *PROC*
02247 M00S02107.libedit +++| SB6 X1
02248 M00S02108.libedit +++| SB5 X6
02249 M00S02109.libedit +++| SB3 5 COPY WORDS 3 - 7 OF 7700 TABLE
02250 M00S02110.libedit +++| SB2 2
02251 M00S02111.libedit +++| CCM2 SB2 B2+B1
02252 M00S02112.libedit +++| SA1 B6+B2
02253 M00S02113.libedit +++| BX6 X1
02254 M00S02114.libedit +++| SA6 CCMB+B2
02255 M00S02115.libedit +++| SB3 B3-B1
02256 M00S02116.libedit +++| NZ B3,CCM2 IF MORE WORDS TO COPY
02257 M00S02117.libedit +++| SA1 B5+B1 COPY COMMENT
02258 M00S02118.libedit +++| SX2 -7
02259 M00S02119.libedit +++| CCM3 BX6 X1
02260 M00S02120.libedit +++| SA6 A6+B1
02261 M00S02121.libedit +++| MX7 -12
02262 M00S02122.libedit +++| BX7 -X7*X1
02263 M00S02123.libedit +++| ZR X7,CCM4 IF END OF DATA
02264 M00S02124.libedit +++| SA1 A1+B1
02265 M00S02125.libedit +++| SX2 X2+B1
02266 M00S02126.libedit +++| NZ X2,CCM3 IF NOT END OF TABLE
02267 M00S02127.libedit +++| CCM4 BX6 X6-X6 SET TO CLEAR COMMENT FIELD
02268 M00S02128.libedit +++| SB3 CCMB+CCMBL-1 LWA OF COMMENT FIELD
02269 M00S02129.libedit +++| CCM5 SB2 A6 CHECK FOR END OF COMMENT FIELD
02270 M00S02130.libedit +++| GE B2,B3,CCM6 IF AT END OF COMMENT FIELD
02271 M00S02131.libedit +++| SA6 A6+B1
02272 M00S02132.libedit +++| EQ CCM5 LOOP TO END OF PREFIX TABLE
02273 M00S02133.libedit +++|
02274 M00S02134.libedit +++| CCM6 SA1 DATE. COPY DATE
02275 M00S02135.libedit +++| BX6 X1
02276 M00S02136.libedit +++| SA6 CCMB+2
02277 M00S02137.libedit +++| SA1 B6 CHECK FOR 7700 TABLE
02278 M00S02138.libedit +++| MX0 6
02279 M00S02139.libedit +++| BX1 X1-X0
02280 M00S02140.libedit +++| AX1 36
02281 M00S02141.libedit +++| SB3 X1+B1 SET 7700 TABLE LENGTH
02282 M00S02142.libedit +++| SB4 X1
02283 M00S02143.libedit +++| AX1 12
02284 M00S02144.libedit +++| NZ X1,CCM7 IF NO 7700 TABLE
02285 M00S02145.libedit +++| SB6 B6+B3 SET TEXT ADDRESS
02286 M00S02146.libedit +++| SA2 A1+B1 SET PROGRAM NAME
02287 M00S02147.libedit +++| SA1 B5
02288 M00S02148.libedit +++| LX1 42
02289 M00S02149.libedit +++| NG X1,CCM7 IF DATE FLAG SET
02290 M00S02150.libedit +++| SA1 A2+B1 SET OLD DATE
02291 M00S02151.libedit +++| SX6 B0
02292 M00S02152.libedit +++| SA6 CCMB+2
02293 M00S02153.libedit +++| BX6 X1
02294 M00S02154.libedit +++| LE B4,B1,CCM7 IF 1 WORD 7700 TABLE
02295 M00S02155.libedit +++| SA6 A6+
02296 M00S02156.libedit +++| CCM7 SX6 B6+ SAVE TEXT FWA
02297 M00S02157.libedit +++| SA6 CCMA
| Line S02158 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02298 M01S02158.251l664 ---| SB7 X4-6 CHECK FOR OPL/OPLC RECORD TYPE
| Line S00026 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02299 M01S00026.251l664 +++| SB7 X4-OPRT CHECK FOR OPL/OPLC RECORD TYPE
02300 M00S02159.libedit +++| ZR B7,CCM8 IF OPL
02301 M00S02160.libedit +++| NE B7,B1,CCM9 IF NOT OPLC
| Line S00027 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02302 M01S00027.251l664 +++| ERRNZ OPRT+1-OCRT CODE ASSUMES VALUE
02303 M00S02161.libedit +++| CCM8 SA1 B6-B1
02304 M00S02162.libedit +++| BX6 X1
02305 M00S02163.libedit +++| SA6 CCMB+16B
02306 M00S02164.libedit +++| CCM9 SX6 B0
02307 M00S02165.libedit +++| SX6 B0 CLEAR COMMENT
02308 M00S02166.libedit +++| SA6 B5
02309 M00S02167.libedit +++| SB7 7
02310 M00S02168.libedit +++| CCM10 SA6 A6+B1
02311 M00S02169.libedit +++| SB7 B7-B1
02312 M00S02170.libedit +++| NZ B7,CCM10 IF NOT END OF COMMENT FIELD
02313 M00S02171.libedit +++| CALL RNP,CCMC,(CCMB+1)
02314 M00S02172.libedit +++| MX0 42 SET NAME IN 7700 TABLE
02315 M00S02173.libedit +++| BX6 X0*X6
02316 M00S02174.libedit +++| SA6 CCMB+1
02317 M00S02175.libedit +++| CALL EPN,CCMC ENTER PROGRAM NAME
02318 M00S02176.libedit +++| WRITECW N,R
02319 M00S02177.libedit +++| WRITE X2,*
02320 M00S02178.libedit +++| SA1 SC
02321 M00S02179.libedit +++| BX6 X6-X6
02322 M00S02180.libedit +++| LX1 30
02323 M00S02181.libedit +++| SA6 N-2 DISABLE CONTROL WORD WRITE
02324 M00S02182.libedit +++| BX7 X1
02325 M00S02183.libedit +++| SA7 N+6 STORE SECTOR COUNT
02326 M00S02184.libedit +++| WRITEW NEW,CCMB,CCMBL WRITE 17-WORD 7700 TABLE
02327 M00S02185.libedit +++| SB6 CCMB+10B COPY COMMENT TO OUTPUT
02328 M00S02186.libedit +++| SA1 CCMB+2 COPY DATE FIRST
02329 M00S02187.libedit +++| MX2 -12
02330 M00S02188.libedit +++| SB7 CCMB+16B
02331 M00S02189.libedit +++| SB5 OUTPUTB+4
02332 M00S02190.libedit +++| CCM11 BX6 X1
02333 M00S02191.libedit +++| SA1 B6
02334 M00S02192.libedit +++| SB6 B6+B1
02335 M00S02193.libedit +++| SA6 B5
02336 M00S02194.libedit +++| BX3 -X2*X6
02337 M00S02195.libedit +++| ZR X3,CCM12 IF END OF DATA
02338 M00S02196.libedit +++| SB5 B5+B1
02339 M00S02197.libedit +++| NE B6,B7,CCM11 IF NOT END OF DATA
02340 M00S02198.libedit +++| CCM12 EQ B6,B7,CCM13 IF END OF BUFFER
02341 M00S02199.libedit +++| SX6 B0
02342 M00S02200.libedit +++| SB5 B5+B1
02343 M00S02201.libedit +++| SA6 B5
02344 M00S02202.libedit +++| SB6 B6+B1
02345 M00S02203.libedit +++| EQ CCM12 CONTINUE TO END OF BUFFER
02346 M00S02204.libedit +++|
02347 M00S02205.libedit +++| CCM13 SA1 CCMA
02348 M00S02206.libedit +++| SX6 X1
02349 M00S02207.libedit +++| EQ CCMX RETURN
02350 M00S02208.libedit +++|
02351 M00S02209.libedit +++| CCM14 SA1 CCMA
02352 M00S02210.libedit +++| SA2 X1 CHECK FOR 7700 TABLE
02353 M00S02211.libedit +++| MX0 6
02354 M00S02212.libedit +++| BX2 X2-X0
02355 M00S02213.libedit +++| AX2 48
02356 M00S02214.libedit +++| NZ X2,CCM15 IF NO 7700 TABLE
02357 M00S02215.libedit +++| CALL RNP,CCMC CHECK FOR RENAME
02358 M00S02216.libedit +++| SA5 CCMA
02359 M00S02217.libedit +++| SB2 CCMC
02360 M00S02218.libedit +++| BX6 X0*X6 STORE NAME IN PREFIX TABLE
02361 M00S02219.libedit +++| SA6 X5+B1
02362 M00S02220.libedit +++| RJ EPN ENTER PROGRAM NAME
02363 M00S02221.libedit +++| SA3 OUTPUTB+3
02364 M00S02222.libedit +++| BX6 X3 SET (A6) FOR *CPT* CALL
02365 M00S02223.libedit +++| SA1 X5
02366 M00S02224.libedit +++| SA6 A3
02367 M00S02225.libedit +++| RJ CPT COPY PREFIX TABLE
02368 M00S02226.libedit +++| BX6 X5
02369 M00S02227.libedit +++| EQ CCMX RETURN
02370 M00S02228.libedit +++|
02371 M00S02229.libedit +++| CCM15 SB2 CCMC
02372 M00S02230.libedit +++| RJ RNP CHECK FOR RENAME
02373 M00S02231.libedit +++| SA2 CCMC
02374 M00S02232.libedit +++| SA5 CCMA
02375 M00S02233.libedit +++| SB2 X2
| Line S00028 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02376 M01S00028.251l664 +++| ERRNZ TXRT CODE ASSUMES VALUE
02377 M00S02234.libedit +++| NE B2,B1,CCM16 IF NOT TYPE *PP*
| Line S00029 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02378 M01S00029.251l664 +++| ERRNZ TXRT+1-PPRT CODE ASSUMES VALUE
02379 M00S02235.libedit +++| MX0 18
| Line S02236 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02380 M01S02236.251l664 ---| CCM16 SB4 B2-20B CHECK FOR TYPE *PROC*
| Line S00030 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02381 M01S00030.251l664 +++| CCM16 SB4 B2+TXRT-PRRT CHECK FOR TYPE *PROC*
| Line S00003 Modification History |
M01 (Added by) | libed2 |
Seq # *Modification Id* Act
----------------------------+
02382 M01S00003.libed2 +++| ZR B2,CCM17 IF TYPE *TEXT*
02383 M00S02237.libedit +++| ZR B4,CCM17 IF TYPE *PROC*
02384 M00S02238.libedit +++| SA3 X5
02385 M00S02239.libedit +++| BX6 X0*X6
02386 M00S02240.libedit +++| BX3 -X0*X3
02387 M00S02241.libedit +++| BX6 X3+X6
02388 M00S02242.libedit +++| SA6 X5
02389 M00S02243.libedit +++| CCM17 SB2 A2
02390 M00S02244.libedit +++| RJ EPN ENTER PROGRAM NAME
02391 M00S02245.libedit +++| BX6 X5
02392 M00S02246.libedit +++| EQ CCMX RETURN
02393 M00S02247.libedit +++|
02394 M00S02248.libedit +++|
02395 M00S02249.libedit +++| CCMA DATA 0 ADDRESS OF WORKING STORAGE
02396 M00S02250.libedit +++|
02397 M00S02251.libedit +++| CCMB DATA 77000016000000000000B
02398 M00S02252.libedit +++| BSSZ 16B
02399 M00S02253.libedit +++| CCMBL EQU *-CCMB
02400 M00S02254.libedit +++|
02401 M00S02255.libedit +++| CCMC DATA 0 PROGRAM NAME AND TYPE
| Line S02256 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02402 M01S02256.libed6 ---| CCML BSS 0
02403 M00S02257.libedit +++| CFN SPACE 4,10
02404 M00S02258.libedit +++|** CFN - CONVERT FILE NAME.
02405 M00S02259.libedit +++|*
02406 M00S02260.libedit +++|* CONVERT LEFT JUSTIFIED FILE NAME INTO A STRING IN
02407 M00S02261.libedit +++|* THE STRING BUFFER.
02408 M00S02262.libedit +++|* ENTRY (B2) = ADDRESS OF FILE NAME.
02409 M00S02263.libedit +++|*
02410 M00S02264.libedit +++|* USES A - 1, 2, 6.
02411 M00S02265.libedit +++|* X - 0, 1, 2, 5, 6.
02412 M00S02266.libedit +++|* B - 6.
02413 M00S02267.libedit +++|
02414 M00S02268.libedit +++|
| Line S02269 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02415 M01S02269.libed6 ---| NAME CFN,CFNL
02416 M00S02270.libedit +++| CFN SUBR ENTRY/EXIT
02417 M00S02271.libedit +++| SA1 B2
02418 M00S02272.libedit +++| MX0 42
02419 M00S02273.libedit +++| SA2 SBP
02420 M00S02274.libedit +++| BX5 X0*X1
02421 M00S02275.libedit +++| NZ X5,CFN1 IF NOT ZERO FILE NAME
02422 M00S02276.libedit +++| SX5 3R(0)
02423 M00S02277.libedit +++| BX5 -X0*X5
02424 M00S02278.libedit +++| LX5 -18
02425 M00S02279.libedit +++| CFN1 SB6 X2
02426 M00S02280.libedit +++| MX0 54
02427 M00S02281.libedit +++| + LX5 6
02428 M00S02282.libedit +++| BX6 -X0*X5
02429 M00S02283.libedit +++| SA6 B6
02430 M00S02284.libedit +++| SB6 B6+B1
02431 M00S02285.libedit +++| NZ X6,*-1
02432 M00S02286.libedit +++| SX6 B6-B1
02433 M00S02287.libedit +++| SA6 A2
02434 M00S02288.libedit +++| EQ CFNX RETURN
| Line S02289 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02435 M01S02289.libed6 ---|
02436 M01S02290.libed6 ---| CFNL BSS 0
02437 M01S02291.libed6 ---| SPACE 4
| Line S00016 Modification History |
M01 (Added by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02438 M01S00016.libed6 +++| CIT SPACE 4,15
02439 M00S02292.libedit +++|** CIT - CHECK IGNORE TABLE.
02440 M00S02293.libedit +++|*
02441 M00S02294.libedit +++|* SEARCH THE PROGRAM IGNORE TABLE FOR CURRENT FILE.
02442 M00S02295.libedit +++|* CHECK FOR IGNORING, START OF IGNORE, OR END OF IGNORE.
02443 M00S02296.libedit +++|* DELETE ENTRY IN IGNORE TABLE ON END OF IGNORE.
02444 M00S02297.libedit +++|* ENTRY (B2) = ADDRESS OF FILE NAME.
02445 M00S02298.libedit +++|* (B3) = ADDRESS OF PROGRAM NAME.
02446 M00S02299.libedit +++|* EXIT (X6) = 0 IF PROGRAM IS IGNORED.
02447 M00S02300.libedit +++|*
02448 M00S02301.libedit +++|* USES A - 1, 2, 3, 4, 5.
02449 M00S02302.libedit +++|* X - 1, 2, 3, 4, 5, 6, 7.
02450 M00S02303.libedit +++|* B - 6, 7.
02451 M00S02304.libedit +++|
02452 M00S02305.libedit +++|
| Line S02306 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02453 M01S02306.libed6 ---| NAME CIT,CITL
02454 M00S02307.libedit +++| CIT SUBR ENTRY/EXIT
02455 M00S02308.libedit +++| SX6 B1 CLEAR IGNORE PROGRAM FLAG
02456 M00S02309.libedit +++| SA1 P.PIT CHECK FILE NAME IN IGNORE TABLE
02457 M00S02310.libedit +++| SA2 L.PIT
02458 M00S02311.libedit +++| SB6 X1
02459 M00S02312.libedit +++| SB7 X2+B6
02460 M00S02313.libedit +++| SA4 B2 (X4) = FILE NAME
02461 M00S02314.libedit +++| SA5 B3 (X5) = PROGRAM NAME
02462 M00S02315.libedit +++| CIT1 EQ B6,B7,CITX IF END OF IGNORE TABLE
02463 M00S02316.libedit +++| SA1 B6
02464 M00S02317.libedit +++| BX7 X1-X4
02465 M00S02318.libedit +++| SB6 B6+3
02466 M00S02319.libedit +++| NZ X7,CIT1 LOOP IF FILE IS NOT CURRENT FILE
02467 M00S02320.libedit +++| SA2 A1+B1 CHECK PROGRAM NAME
02468 M00S02321.libedit +++| SA3 A2+B1
02469 M00S02322.libedit +++| SX1 1R* BUILD TYPE/*
02470 M00S02323.libedit +++| SX7 X5 PROPOGATE TYPE
02471 M00S02324.libedit +++| LX1 54
02472 M00S02325.libedit +++| BX1 X7+X1
02473 M00S02326.libedit +++| ZR X2,CIT3 IF IGNORE-ALL IN PROGRESS
02474 M00S02327.libedit +++| BX7 X5-X2
02475 M00S02328.libedit +++| BX1 X2-X1
02476 M00S02329.libedit +++| ZR X7,CIT4 IF TYPE/NAME MATCHES TABLE
02477 M00S02330.libedit +++| ZR X1,CIT2 IF TABLE ENTRY IS THIS TYPE/*
02478 M00S02331.libedit +++| AX1 18
02479 M00S02332.libedit +++| NZ X1,CIT1 IF TABLE ENTRY NOT ANOTHER TYPE/*
02480 M00S02333.libedit +++| BX7 X5-X3 CHECK END OF IGNORE GROUP
02481 M00S02334.libedit +++| NZ X7,CIT1 IF NOT END
02482 M00S02335.libedit +++| CIT2 SX6 B0 SET IGNORE PROGRAM FLAG
02483 M00S02336.libedit +++| BX7 X5-X3
02484 M00S02337.libedit +++| NZ X7,CIT1 IF NOT END OF IGNORE
02485 M00S02338.libedit +++| SA7 A1 CLEAR IGNORE ENTRY
02486 M00S02339.libedit +++| SA7 A7+1
02487 M00S02340.libedit +++| SA7 A3
02488 M00S02341.libedit +++| EQ CIT1 LOOP
02489 M00S02342.libedit +++|
02490 M00S02343.libedit +++|* CHECK FOR IGNORING ALL RECORDS OF ANOTHER TYPE.
02491 M00S02344.libedit +++|
02492 M00S02345.libedit +++| CIT3 BX7 X1-X3
02493 M00S02346.libedit +++| ZR X7,CIT2 IF IGNORING ALL OF THIS TYPE
02494 M00S02347.libedit +++| AX7 18
02495 M00S02348.libedit +++| NZ X7,CIT2 IF NOT IGNORING ALL OF DIFFERENT TYPE
02496 M00S02349.libedit +++| JP CIT1 LOOP
02497 M00S02350.libedit +++|
02498 M00S02351.libedit +++|* SET IGNORE-ALL FLAG.
02499 M00S02352.libedit +++|
02500 M00S02353.libedit +++| CIT4 SA7 A2
02501 M00S02354.libedit +++| JP CIT2 GO IGNORE THIS RECORD
| Line S02355 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02502 M01S02355.libed6 ---| CITL BSS 0
02503 M00S02356.libedit +++| SPACE 4
02504 M00S02357.libedit +++|** COB - CLEAR OUTPUT BUFFER.
02505 M00S02358.libedit +++|*
02506 M00S02359.libedit +++|* USES X - 1, 6.
02507 M00S02360.libedit +++|* A - 1, 6.
02508 M00S02361.libedit +++|* B - 6, 7.
02509 M00S02362.libedit +++|
02510 M00S02363.libedit +++|
| Line S02364 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02511 M01S02364.libed6 ---| NAME COB,COBL
02512 M00S02365.libedit +++| COB SUBR ENTRY/EXIT
02513 M00S02366.libedit +++| SA1 =1H
02514 M00S02367.libedit +++| SB6 OUTPUTB
02515 M00S02368.libedit +++| SB7 OUTPUTB+DCBL+1
02516 M00S02369.libedit +++| BX6 X1
02517 M00S02370.libedit +++| COB1 SA6 B6
02518 M00S02371.libedit +++| SB6 B6+B1
02519 M00S02372.libedit +++| NE B6,B7,COB1 LOOP TO END OF BUFFER
02520 M00S02373.libedit +++| EQ COBX RETURN
| Line S02374 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02521 M01S02374.libed6 ---|
02522 M01S02375.libed6 ---| COBL BSS 0
02523 M00S02376.libedit +++| CNO SPACE 4,15
02524 M00S02377.libedit +++|** CNO - COPY *NEW* TO *OLD*.
02525 M00S02378.libedit +++|*
02526 M00S02379.libedit +++|* PERFORMS *C* OR *COPY OPTION.
02527 M00S02380.libedit +++|*
02528 M00S02381.libedit +++|* USES X - 1, 2, 3, 6, 7.
02529 M00S02382.libedit +++|* A - 1, 3, 6, 7.
02530 M00S02383.libedit +++|* B - 6, 7.
02531 M00S02384.libedit +++|*
02532 M00S02385.libedit +++|* CALLS DIS, SRT.
02533 M00S02386.libedit +++|*
02534 M00S02387.libedit +++|* MACROS READCW, READW, REWIND, WRCW, WRITECW.
02535 M00S02388.libedit +++|
02536 M00S02389.libedit +++|
| Line S02390 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02537 M01S02390.libed6 ---| NAME CNO,CNOL
02538 M00S02391.libedit +++| CNO SUBR ENTRY/EXIT
02539 M00S02392.libedit +++| SA1 CCPY CHECK COPY FLAG
02540 M00S02393.libedit +++| ZR X1,CNO IF NO COPY
02541 M00S02394.libedit +++| READCW N,17B
02542 M00S02395.libedit +++| SA3 P+4
02543 M00S02396.libedit +++| MX7 60
02544 M00S02397.libedit +++| AX3 18
02545 M00S02398.libedit +++| SA7 N-2 SET FIRST READ FLAG
02546 M00S02399.libedit +++| SA7 P-2
02547 M00S02400.libedit +++| SX6 X3 STORE PRU SIZE
02548 M00S02401.libedit +++| SA6 A7+B1
02549 M00S02402.libedit +++| WRITECW A6+B1,* SET FILE STATUS
02550 M00S02403.libedit +++| CNO1 READW NEW,WSB,WSBL
02551 M00S02404.libedit +++| NG X1,CNO4 IF EOF
02552 M00S02405.libedit +++| SB6 WSB
02553 M00S02406.libedit +++| SB7 X1
02554 M00S02407.libedit +++| EQ B6,B7,CNO3 IF NO DATA
02555 M00S02408.libedit +++| BX6 X1
02556 M00S02409.libedit +++| SA6 CNOA
02557 M00S02410.libedit +++| SA1 X2-LWP LWA+1 OF DATA TRANSFERED
02558 M00S02411.libedit +++| SX2 WSB
02559 M00S02412.libedit +++| RJ SRT SET RECORD TYPE
02560 M00S02413.libedit +++| SA6 CNOB
02561 M00S02414.libedit +++| CALL DIS,CNOB,(=H*RECOPYING *)
02562 M00S02415.libedit +++| SA1 CNOA
02563 M00S02416.libedit +++| NZ X1,CNO3 IF EOR
02564 M00S02417.libedit +++| CN02 WRCW P,WSB,WSBL
02565 M00S02418.libedit +++| READW NEW,WSB,WSBL
02566 M00S02419.libedit +++| ZR X1,CN02 IF NOT EOR
02567 M00S02420.libedit +++| NG X1,CNO4 IF EOF
02568 M00S02421.libedit +++| CNO3 WRCW P,WSB,X1-WSB,R
02569 M00S02422.libedit +++| EQ CNO1 LOOP TO EOF
02570 M00S02423.libedit +++|
| Line S02424 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02571 M01S02424.ns22000 ---| CNO4 MX7 4
| Line S00001 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02572 M01S00001.ns22000 +++| CNO4 SX6 X1+2
02573 M01S00002.ns22000 +++| ZR X6,CNO5 IF *EOI*
02574 M01S00003.ns22000 +++| MX7 4
02575 M00S02425.libedit +++| LX7 4+48
02576 M00S02426.libedit +++| SA7 WDAA+1 SET LEVEL 17 EOR
02577 M00S02427.libedit +++| WRCW P,0,0
| Line S02428 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02578 M01S02428.ns22000 ---| WRITECW P,R FLUSH BUFFER
| Line S00004 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02579 M01S00004.ns22000 +++| CNO5 WRITECW P,R FLUSH BUFFER
02580 M00S02429.libedit +++| REWIND OLD
02581 M00S02430.libedit +++| REWIND NEW
02582 M00S02431.libedit +++| EQ CNOX RETURN
02583 M00S02432.libedit +++|
02584 M00S02433.libedit +++|
02585 M00S02434.libedit +++| CNOA DATA 0 EOR INDICATOR
02586 M00S02435.libedit +++| CNOB DATA 0 PROGRAM NAME
| Line S02436 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02587 M01S02436.libed6 ---| CNOL BSS 0
02588 M00S02437.libedit +++| SPACE 4
02589 M00S02438.libedit +++|** CNR - CHECK NO REPLACE TABLE.
02590 M00S02439.libedit +++|*
02591 M00S02440.libedit +++|* ENTRY (B2) = PROGRAM NAME TABLE INDEX.
02592 M00S02441.libedit +++|* EXIT (X6) " 0 IF PROGRAM IS IN A NO REPLACE FILE.
02593 M00S02442.libedit +++|* (X6) = 0 IF PROGRAM IS NOT IN A NO REPLACE FILE.
02594 M00S02443.libedit +++|*
02595 M00S02444.libedit +++|* USES A - 1, 2, 6, 7.
02596 M00S02445.libedit +++|* X - 1, 2, 6, 7.
02597 M00S02446.libedit +++|* B - 4, 6.
02598 M00S02447.libedit +++|
02599 M00S02448.libedit +++|
| Line S02449 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02600 M01S02449.libed6 ---| NAME CNR,CNRL
02601 M00S02450.libedit +++| CNR SUBR ENTRY/EXIT
02602 M00S02451.libedit +++| SA1 P.PNT
02603 M00S02452.libedit +++| SB4 B2+X1
02604 M00S02453.libedit +++| SX6 B2
02605 M00S02454.libedit +++| SA6 CNRA
02606 M00S02455.libedit +++| SEARCH NRT,(B4+B1),(=77777777777777000000B)
02607 M00S02456.libedit +++| ZR X6,CNRX IF NOT IN NO REPLACE TABLE
02608 M00S02457.libedit +++| SA1 P.PNT DELETE PROGRAM FROM PNT
02609 M00S02458.libedit +++| SA2 CNRA
02610 M00S02459.libedit +++| SB6 X1
02611 M00S02460.libedit +++| SX7 B0
02612 M00S02461.libedit +++| SA7 B6+X2
02613 M00S02462.libedit +++| EQ CNRX RETURN
02614 M00S02463.libedit +++|
02615 M00S02464.libedit +++|
02616 M00S02465.libedit +++| CNRA DATA 0 PROGRAM NAME TABLE INDEX
| Line S02466 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02617 M01S02466.libed6 ---| CNRL BSS 0
| Line S02467 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02618 M01S02467.251l664 ---| SPACE 4
| Line S00031 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02619 M01S00031.251l664 +++| SPACE 4,15
02620 M00S02468.libedit +++|** CPL - COPY USER LIBRARY.
02621 M00S02469.libedit +++|*
02622 M00S02470.libedit +++|* ENTRY (B2) = ADDRESS OF PROGRAM TYPE.
02623 M00S02471.libedit +++|* (B3) = ADDRESS TO RETURN STATUS OF NEXT READ.
02624 M00S02472.libedit +++|* USES A - 1, 2, 6.
02625 M00S02473.libedit +++|* X - 1, 2, 5, 6, 7.
02626 M00S02474.libedit +++|* B - 6, 7.
02627 M00S02475.libedit +++|*
02628 M00S02476.libedit +++|* CALLS SRT.
02629 M00S02477.libedit +++|*
02630 M00S02478.libedit +++|* MACROS READW,WRCW.
02631 M00S02479.libedit +++|
02632 M00S02480.libedit +++|
| Line S02481 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02633 M01S02481.libed6 ---| NAME CPL,CPLL
02634 M00S02482.libedit +++| CPL4 READW P,WSA,WSAL
02635 M00S02483.libedit +++| CPL5 SA2 CPLA
02636 M00S02484.libedit +++| BX6 X1 RETURN RECORD STATUS
02637 M00S02485.libedit +++| SA6 X2
02638 M00S02486.libedit +++|
02639 M00S02487.libedit +++| CPL SUBR ENTRY/EXIT
02640 M00S02488.libedit +++| SA1 B2
02641 M00S02489.libedit +++| SX6 B3
| Line S02490 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02642 M01S02490.251l664 ---| SX7 X1-5
| Line S00032 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02643 M01S00032.251l664 +++| SX7 X1-ULRT
02644 M00S02491.libedit +++| SA6 CPLA
02645 M00S02492.libedit +++| NZ X7,CPL4 IF NOT *ULIB*
02646 M00S02493.libedit +++| SX6 0
02647 M00S02494.libedit +++| SA6 CPLB
02648 M00S02495.libedit +++| CPL1 READW P,WSA,WSAL
02649 M00S02496.libedit +++| NG X1,CPL5 IF EOF
02650 M00S02497.libedit +++| SB6 WSA
02651 M00S02498.libedit +++| SB7 X1
02652 M00S02499.libedit +++| EQ B6,B7,CPL3 IF ZERO LENGTH RECORD
02653 M00S02500.libedit +++| BX5 X1
02654 M00S02501.libedit +++| SA1 X2-LWP LWA+1 OF DATA TRANSFERED
02655 M00S02502.libedit +++| SX2 WSA
02656 M00S02503.libedit +++| RJ SRT SET RECORD TYPE
02657 M00S02504.libedit +++| SA6 CPLB
02658 M00S02505.libedit +++|
02659 M00S02506.libedit +++|* COPY FROM *OLD* TO *NEW*.
02660 M00S02507.libedit +++|
02661 M00S02508.libedit +++| BX7 X5
02662 M00S02509.libedit +++| SA2 A6-B1
02663 M00S02510.libedit +++| BX1 X5
02664 M00S02511.libedit +++| SA7 X2
02665 M00S02512.libedit +++| NZ X5,CPL3 IF EOR ON PREVIOUS READ
02666 M00S02513.libedit +++| CPL2 WRCW N,WSA,WSAL
02667 M00S02514.libedit +++| READW OLD,WSA,WSAL
02668 M00S02515.libedit +++| ZR X1,CPL2 IF NOT EOR
02669 M00S02516.libedit +++| CPL3 WRCW N,WSA,X1-WSA,R
02670 M00S02517.libedit +++| SA2 CPLB
| Line S02518 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02671 M01S02518.251l664 ---| SB7 X2-8
| Line S00033 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02672 M01S00033.251l664 +++| SB7 X2-ODRT
02673 M00S02519.libedit +++| NZ B7,CPL1 LOOP TO END OF USER LIBRARY
02674 M00S02520.libedit +++| EQ CPL4
02675 M00S02521.libedit +++|
02676 M00S02522.libedit +++|
02677 M00S02523.libedit +++| CPLA BSSZ 2
02678 M00S02524.libedit +++| CPLB EQU CPLA+1
| Line S02525 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02679 M01S02525.libed6 ---| CPLL BSS 0
02680 M00S02526.libedit +++| SPACE 4
02681 M00S02527.libedit +++|** CPP - COPY SPECIFIED PROGRAM(S).
02682 M00S02528.libedit +++|*
02683 M00S02529.libedit +++|* COPY RECORDS FROM FILE TO *NEW*.
02684 M00S02530.libedit +++|* ENTRY (B2) = IPT INDEX.
02685 M00S02531.libedit +++|*
02686 M00S02532.libedit +++|* USES A - 1, 2, 3, 4, 5, 6, 7.
02687 M00S02533.libedit +++|* X - ALL.
02688 M00S02534.libedit +++|* B - 2, 3, 4, 5, 6, 7.
02689 M00S02535.libedit +++|*
02690 M00S02536.libedit +++|* CALLS CPY, DIS, OIC, ORW.
02691 M00S02537.libedit +++|*
02692 M00S02538.libedit +++|* MACROS CALL, MESSAGE, WRCW.
02693 M00S02539.libedit +++|
02694 M00S02540.libedit +++|
| Line S02541 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02695 M01S02541.libed6 ---| NAME CPP,CPPL
02696 M00S02542.libedit +++| CPP SUBR ENTRY/EXIT
02697 M00S02543.libedit +++| SA1 P.IPT
02698 M00S02544.libedit +++| SX6 B2
02699 M00S02545.libedit +++| SA6 CPPA
02700 M00S02546.libedit +++| SX5 B2+X1
02701 M00S02547.libedit +++| SA5 X5+B1 SET FILE NAME
02702 M00S02548.libedit +++| SA2 A5+B1 SET FIRST PROGRAM
02703 M00S02549.libedit +++| SA3 A2+B1 SET LAST PROGRAM
02704 M00S02550.libedit +++| BX6 X5
02705 M00S02551.libedit +++| LX7 X2
02706 M00S02552.libedit +++| SA6 CPPB
02707 M00S02553.libedit +++| SA7 A6+B1
02708 M00S02554.libedit +++| BX6 X3
02709 M00S02555.libedit +++| SA6 A7+B1
02710 M00S02556.libedit +++|
02711 M00S02557.libedit +++|* CHECK FOR 0-LENGTH RECORD INSERT.
02712 M00S02558.libedit +++|
02713 M00S02559.libedit +++| AX2 42
02714 M00S02560.libedit +++| SX2 X2-1L0
02715 M00S02561.libedit +++| ZR X2,CPP4 IF 0-LENGTH RECORD
02716 M00S02562.libedit +++|
02717 M00S02563.libedit +++|* SEARCH PNT FOR START OF INSERT
02718 M00S02564.libedit +++|
02719 M00S02565.libedit +++| SB7 B0
02720 M00S02566.libedit +++| SA1 P.PNT
02721 M00S02567.libedit +++| SA2 L.PNT
02722 M00S02568.libedit +++| SB5 X1
| Line S00001 Modification History |
M01 (Added by) | libed5 |
Seq # *Modification Id* Act
----------------------------+
02723 M01S00001.libed5 +++| ZR X2,CPP2 IF EMPTY PNT
02724 M00S02569.libedit +++| SB6 X2
02725 M00S02570.libedit +++| MX0 42
02726 M00S02571.libedit +++| SB4 3
02727 M00S02572.libedit +++| SB3 B5+B7
02728 M00S02573.libedit +++| SA1 B3+B1 CHECK FILE NAME
02729 M00S02574.libedit +++| + EQ B6,B7,CPP2 IF END OF PNT
02730 M00S02575.libedit +++| BX6 X1-X5
02731 M00S02576.libedit +++| SB7 B7+B4
02732 M00S02577.libedit +++| BX6 X0*X6
02733 M00S02578.libedit +++| SA1 A1+B4
02734 M00S02579.libedit +++| NZ X6,*-1 IF FILE NAME NOT FOUND
02735 M00S02580.libedit +++| SB7 B7-B4
02736 M00S02581.libedit +++| SA4 A5+B1 CHECK PROGRAM NAME
02737 M00S02582.libedit +++| BX6 X4
02738 M00S02583.libedit +++| AX6 42
02739 M00S02584.libedit +++| SX1 X6-1L*
02740 M00S02585.libedit +++| ZR X1,CPP3 IF ENTIRE FILE INSERT
02741 M00S02586.libedit +++| + EQ B6,B7,CPP2 IF END OF PNT
02742 M00S02587.libedit +++| SA1 B5+B7
02743 M00S02588.libedit +++| SA2 A1+B1
02744 M00S02589.libedit +++| BX6 X2-X5
02745 M00S02590.libedit +++| BX6 X0*X6
02746 M00S02591.libedit +++| NZ X6,CPP2 IF END OF FILE
02747 M00S02592.libedit +++| SB7 B7+B4
02748 M00S02593.libedit +++| BX6 X1-X4
02749 M00S02594.libedit +++| NZ X6,*-2 LOOP FOR FIRST PROGRAM
02750 M00S02595.libedit +++| SX6 B7-B4 SET PNT INDEX
02751 M00S02596.libedit +++| SA6 CPPC
02752 M00S02597.libedit +++|
02753 M00S02598.libedit +++|* FIRST PROGRAM FOUND, START COPY.
02754 M00S02599.libedit +++|
02755 M00S02600.libedit +++| CPP1 SA1 CPPC
02756 M00S02601.libedit +++| SA2 P.PNT
02757 M00S02602.libedit +++| IX3 X1+X2
02758 M00S02603.libedit +++| CALL DIS,X3,(=H*INSERTING *)
02759 M00S02604.libedit +++| SA1 CPPC
02760 M00S02605.libedit +++| CALL CPY,X1
02761 M00S02606.libedit +++| CALL ORW,(=8HINSERTED),CPPB
02762 M00S02607.libedit +++| SA1 P.PNT CHECK FOR END OF COPY
02763 M00S02608.libedit +++| SA2 L.PNT
02764 M00S02609.libedit +++| SA3 CPPC
02765 M00S02610.libedit +++| SB5 X1
02766 M00S02611.libedit +++| SB6 X2
02767 M00S02612.libedit +++| SB4 3
02768 M00S02613.libedit +++| SA5 CPPB CHECK FILE
02769 M00S02614.libedit +++| SA1 A5+B1 CHECK PROGRAM NAME
02770 M00S02615.libedit +++| SA4 A1+B1
02771 M00S02616.libedit +++| MX0 42
02772 M00S02617.libedit +++| SB7 X3+B4
02773 M00S02618.libedit +++| BX6 X1-X4
02774 M00S02619.libedit +++| ZR X6,CPP5 IF LAST PROGRAM FOUND RETURN
02775 M00S02620.libedit +++| BX6 X4
02776 M00S02621.libedit +++| AX6 42
02777 M00S02622.libedit +++| SX1 X6-1L*
02778 M00S02623.libedit +++| ZR X1,CPP3 IF ADD FULL FILE
02779 M00S02624.libedit +++| SB2 B5+B7 CHECK FILE OF NEXT ENTRY IN THE PNT
02780 M00S02625.libedit +++| SA1 B2+B1
02781 M00S02626.libedit +++| EQ B6,B7,CPP2 IF END OF PNT
02782 M00S02627.libedit +++| BX6 X1-X5
02783 M00S02628.libedit +++| SX7 B7
02784 M00S02629.libedit +++| SA7 CPPC
02785 M00S02630.libedit +++| SA1 B2 SET CURRENT PROGRAM NAME
02786 M00S02631.libedit +++| BX7 X1
02787 M00S02632.libedit +++| SA7 A5+B1
02788 M00S02633.libedit +++| BX6 X0*X6
02789 M00S02634.libedit +++| ZR X6,CPP1 IF FILE CONTINUES
02790 M00S02635.libedit +++|
02791 M00S02636.libedit +++|* AN ERROR HAS BEEN DETECTED. SEND MESSAGE AND ABORT.
02792 M00S02637.libedit +++|
| Line S02638 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02793 M01S02638.v23l617 ---| CPP2 CALL OIC,CPPA OUTPUT INSERT CARD
| Line S00026 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02794 M01S00026.v23l617 +++| CPP2 CALL OIC,CPPA OUTPUT INSERT DIRECTIVE
02795 M00S02639.libedit +++| SA1 TTYI
02796 M00S02640.libedit +++| ZR X1,CPP5 IF TERMINAL INPUT
02797 M00S02641.libedit +++| MESSAGE (=C*OVERLAPPING INSERT OR DELETE.*)
02798 M00S02642.libedit +++| SA1 CDOP CHECK *NA* OPTION
02799 M00S02643.libedit +++| NZ X1,CPP5 RETURN IF NO ABORT
02800 M00S02644.libedit +++| CALL ABT ABORT JOB
02801 M00S02645.libedit +++|
02802 M00S02646.libedit +++|* ADD ENTIRE FILE TO FILE NEW.
02803 M00S02647.libedit +++|
02804 M00S02648.libedit +++| CPP3 EQ B6,B7,CPP5 RETURN IF END OF PNT
02805 M00S02649.libedit +++| SX6 B7
02806 M00S02650.libedit +++| SA2 B5+B7 CHECK PROGRAM TYPE
02807 M00S02651.libedit +++| SA6 CPPC
02808 M00S02652.libedit +++| SA5 CPPB CHECK FILE NAME
02809 M00S02653.libedit +++| SA4 A5+B1
02810 M00S02654.libedit +++| SA1 A2+B1
02811 M00S02655.libedit +++| BX7 X1-X5
02812 M00S02656.libedit +++| BX7 X0*X7
02813 M00S02657.libedit +++| NZ X7,CPP5 RETURN IF END OF FILE
02814 M00S02658.libedit +++| BX7 X2-X4
02815 M00S02659.libedit +++| BX7 -X0*X7
02816 M00S02660.libedit +++| SB7 B7+B4
02817 M00S02661.libedit +++| NZ X7,CPP3 IF NOT CORRECT PROGRAM TYPE
02818 M00S02662.libedit +++| ZR X2,CPP3 IF PROGRAM ALREADY INSERTED
02819 M00S02663.libedit +++| SA1 P.PNT
02820 M00S02664.libedit +++| IX3 X6+X1
02821 M00S02665.libedit +++| CALL DIS,X3,(=H*INSERTING *)
02822 M00S02666.libedit +++| SA1 CPPC
02823 M00S02667.libedit +++| CALL CPY,X1 COPY RECORD
02824 M00S02668.libedit +++| CALL ORW,(=8HINSERTED),CPPB
02825 M00S02669.libedit +++| SA1 P.PNT
02826 M00S02670.libedit +++| SA2 L.PNT
02827 M00S02671.libedit +++| SA3 CPPC
02828 M00S02672.libedit +++| SB5 X1
02829 M00S02673.libedit +++| SB6 X2
02830 M00S02674.libedit +++| SB4 3
02831 M00S02675.libedit +++| MX0 42
02832 M00S02676.libedit +++| SB7 X3+B4
02833 M00S02677.libedit +++| EQ CPP3 LOOP
02834 M00S02678.libedit +++|
02835 M00S02679.libedit +++|* WRITE 0-LENGTH RECORD.
02836 M00S02680.libedit +++|
| Line S02681 Modification History |
M01 (Removed by) | ns2037a |
Seq # *Modification Id* Act
----------------------------+
02837 M01S02681.ns2037a ---| CPP4 WRCW N,B0,B0
| Line S00001 Modification History |
M01 (Added by) | ns2037a |
Seq # *Modification Id* Act
----------------------------+
02838 M01S00001.ns2037a +++| CPP4 SB2 =0 ENTER ZERO LENGTH RECORD
02839 M01S00002.ns2037a +++| RJ EPN
02840 M01S00003.ns2037a +++| ADDWRD NPT,NIND
02841 M01S00004.ns2037a +++| WRCW N,B0,B0 WRITE ZERO LENGTH RECORD
02842 M00S02682.libedit +++| CALL OZR,(=8HINSERTED),(=1H ),(=2H00)
02843 M00S02683.libedit +++|
02844 M00S02684.libedit +++|* CLEAR IPT ENTRY.
02845 M00S02685.libedit +++|
02846 M00S02686.libedit +++| CPP5 SA1 P.IPT
02847 M00S02687.libedit +++| SA2 CPPA
02848 M00S02688.libedit +++| SB5 X1
02849 M00S02689.libedit +++| SX6 B0
02850 M00S02690.libedit +++| SA6 B5+X2
02851 M00S02691.libedit +++| SA6 A6+B1
02852 M00S02692.libedit +++| SA6 A6+B1
02853 M00S02693.libedit +++| SA6 A6+B1
02854 M00S02694.libedit +++| EQ CPPX RETURN
02855 M00S02695.libedit +++|
02856 M00S02696.libedit +++|
02857 M00S02697.libedit +++| CPPA DATA 0 INSERT PROGRAM TABLE INDEX
02858 M00S02698.libedit +++|
02859 M00S02699.libedit +++| CPPB VFD 42/,18/ FILE NAME
02860 M00S02700.libedit +++| VFD 42/,18/ FIRST PROGRAM
02861 M00S02701.libedit +++| VFD 42/,18/ LAST PROGRAM
02862 M00S02702.libedit +++|
02863 M00S02703.libedit +++| CPPC DATA 0 PROGRAM NAME TABLE INDEX
| Line S02704 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02864 M01S02704.libed6 ---| CPPL BSS 0
02865 M00S02705.libedit +++| SPACE 4
02866 M00S02706.libedit +++|** CPY - COPY RECORD TO FILE NEW.
02867 M00S02707.libedit +++|*
02868 M00S02708.libedit +++|* ENTRY (B2) = PNT INDEX.
02869 M00S02709.libedit +++|*
02870 M00S02710.libedit +++|* USES A - 1, 2, 3, 4, 5, 6, 7.
02871 M00S02711.libedit +++|* X - 1, 2, 3, 4, 5, 6, 7.
02872 M00S02712.libedit +++|* B - 2, 4, 5, 6.
02873 M00S02713.libedit +++|*
02874 M00S02714.libedit +++|* CALLS ABT, CCM, COB, MSG, RCW, SFN.
02875 M00S02715.libedit +++|*
02876 M00S02716.libedit +++|* MACROS BKSP, CALL, READ, READCW, READW, RECALL, WRCW.
02877 M00S02717.libedit +++|
02878 M00S02718.libedit +++|
| Line S02719 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
02879 M01S02719.libed6 ---| NAME CPY,CPYL
02880 M00S02720.libedit +++| CPY SUBR ENTRY/EXIT
02881 M00S02721.libedit +++| CALL COB CLEAR OUTPUT BUFFER
02882 M00S02722.libedit +++| SX6 B2
02883 M00S02723.libedit +++| SA1 P.PNT SET PROGRAM NAME
02884 M00S02724.libedit +++| SA4 B2+X1
02885 M00S02725.libedit +++| ZR X4,CPY IF PROGRAM ALREADY REPLACED
02886 M00S02726.libedit +++| SA6 CPYA
02887 M00S02727.libedit +++| SA5 A4+B1
02888 M00S02728.libedit +++| BX6 X4
02889 M00S02729.libedit +++| LX7 X5
02890 M00S02730.libedit +++| SA6 CPYB
02891 M00S02731.libedit +++| SA7 LGO
02892 M00S02732.libedit +++| SA7 A6+B1
02893 M00S02733.libedit +++| SA4 A5+B1 SET RANDOM ADDRESS
02894 M00S02734.libedit +++| BX6 X4
02895 M00S02735.libedit +++| SX7 B0
02896 M00S02736.libedit +++| SA6 S+6
02897 M00S02737.libedit +++| SA7 CW
02898 M00S02738.libedit +++|
02899 M00S02739.libedit +++|* COPY RECORD.
02900 M00S02740.libedit +++|
02901 M00S02741.libedit +++| READ S READ FILE *S*
02902 M00S02742.libedit +++| READW S,WSB,WSBL
02903 M00S02743.libedit +++| NG X1,CPY11 IF END OF FILE
02904 M00S02744.libedit +++| SX6 X1
02905 M00S02745.libedit +++| SA6 CPYD
02906 M00S02746.libedit +++| CALL CCM,WSB,CPYB
02907 M00S02747.libedit +++| SA1 CPYB
02908 M00S02748.libedit +++| SB2 X1
| Line S00034 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02909 M01S00034.251l664 +++| ERRNZ TXRT CODE ASSUMES VALUE
02910 M00S02749.libedit +++| NZ B2,CPY1 IF NOT TEXT
02911 M00S02750.libedit +++| SA3 WSB CHECK FIRST WORD OF TEXT RECORD
02912 M00S02751.libedit +++| MX7 6
02913 M00S02752.libedit +++| BX7 X3-X7
02914 M00S02753.libedit +++| AX7 48
02915 M00S02754.libedit +++| ZR X7,CPY1 IF 7700 TABLE PRESENT
02916 M00S02755.libedit +++| SA1 X6 REMOVE BLANKS FROM RECORD NAME
02917 M00S02756.libedit +++| RJ SFN GENERATE MASK OF BLANKS
02918 M00S02757.libedit +++| BX7 X7*X1 REMOVE BLANKS
02919 M00S02758.libedit +++| SX6 A1 RESTORE X6
02920 M00S02759.libedit +++| SA7 A1
02921 M00S02760.libedit +++| CPY1 SA3 SC
02922 M00S02761.libedit +++| SA1 CPYD
02923 M00S02762.libedit +++| BX7 X3 SET RANDOM ADDRESS
02924 M00S02763.libedit +++| SB6 X6
02925 M00S02764.libedit +++| SA7 NIND+1
02926 M00S02765.libedit +++| NZ X1,CPY3 IF EOR SENSED
02927 M00S02766.libedit +++| SB7 WSB+WSBL
02928 M00S02767.libedit +++| WRCW N,B6,B7-B6
02929 M00S02768.libedit +++| CPY2 READW S,WSB,WSBL
02930 M00S02769.libedit +++| SB6 WSB
02931 M00S02770.libedit +++| NZ X1,CPY3 IF EOR SENSED
02932 M00S02771.libedit +++| WRCW N,B6,WSBL
02933 M00S02772.libedit +++| EQ CPY2 CONTINUE READ
02934 M00S02773.libedit +++| CPY3 SB7 X1
02935 M00S02774.libedit +++| WRCW N,B6,B7-B6,R
02936 M00S02775.libedit +++| SA1 CPYB CHECK PROGRAM TYPE
| Line S02776 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02937 M01S02776.251l664 ---| SB4 X1-5
| Line S00035 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02938 M01S00035.251l664 +++| SB4 X1-ULRT
02939 M00S02777.libedit +++| NZ B4,CPY9 IF NOT USER LIBRARY
02940 M00S02778.libedit +++|
02941 M00S02779.libedit +++|* COPY USER LIBRARY.
02942 M00S02780.libedit +++|
02943 M00S02781.libedit +++| SX6 1
02944 M00S02782.libedit +++| SA6 CW SET CONTROL WORD READ FLAG
02945 M00S02783.libedit +++| READCW S,17B
02946 M00S02784.libedit +++| CPY4 READW S,WSB,WSBL
02947 M00S02785.libedit +++| PL X1,CPY5 IF NOT EOF
02948 M00S02786.libedit +++| BKSP S,R
02949 M00S02787.libedit +++| EQ CPY9 CLEAR PROGRAM NAME
02950 M00S02788.libedit +++| CPY5 SB6 WSB
02951 M00S02789.libedit +++| SB7 X1
02952 M00S02790.libedit +++| EQ B6,B7,CPY8 IF 0-LENGTH RECORD
02953 M00S02791.libedit +++| SX6 X1
02954 M00S02792.libedit +++| SA6 CPYD
02955 M00S02793.libedit +++| SA1 X2-LWP LWA+1 OF DATA TRANSFERED
02956 M00S02794.libedit +++| SX2 WSB
02957 M00S02795.libedit +++| RJ SRT SET RECORD TYPE
02958 M00S02796.libedit +++| SA6 CPYB
02959 M00S02797.libedit +++| SA1 CPYD
02960 M00S02798.libedit +++| EQ CPY7 CHECK FOR EOR
02961 M00S02799.libedit +++|
02962 M00S02800.libedit +++| CPY6 WRCW N,WSB,WSBL
02963 M00S02801.libedit +++| READW S,WSB,WSBL
02964 M00S02802.libedit +++| CPY7 ZR X1,CPY6 IF NOT EOR
02965 M00S02803.libedit +++| CPY8 WRCW N,WSB,X1-WSB,R
02966 M00S02804.libedit +++| SA2 CPYB
| Line S02805 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02967 M01S02805.251l664 ---| SX6 X2-8
| Line S00036 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
02968 M01S00036.251l664 +++| SX6 X2-ODRT
02969 M00S02806.libedit +++| NZ X6,CPY4 IF NOT END OF USER LIBRARY
02970 M00S02807.libedit +++| RECALL S
02971 M00S02808.libedit +++| SA3 S+2
02972 M00S02809.libedit +++| BX7 X3 SET BUFFER EMPTY
02973 M00S02810.libedit +++| SA7 A3+B1
02974 M00S02811.libedit +++|
02975 M00S02812.libedit +++|* CLEAR PROGRAM NAME.
02976 M00S02813.libedit +++|
02977 M00S02814.libedit +++| CPY9 SA1 N-2
02978 M00S02815.libedit +++| NG X1,CPY10 IF CONTROL WORD WRITE ENABLED
02979 M00S02816.libedit +++| RJ RCW
02980 M00S02817.libedit +++|
02981 M00S02818.libedit +++| CPY10 ADDWRD NPT,NIND WRITE NEW INDEX
02982 M00S02819.libedit +++| SA1 P.PNT CLEAR PROGRAM NAME
02983 M00S02820.libedit +++| SA2 CPYA
02984 M00S02821.libedit +++| SB5 X1
02985 M00S02822.libedit +++| SX6 B0
02986 M00S02823.libedit +++| SA6 B5+X2
02987 M00S02824.libedit +++| SX7 B1
02988 M00S02825.libedit +++| SA7 CW
02989 M00S02826.libedit +++| EQ CPYX RETURN
02990 M00S02827.libedit +++|
02991 M00S02828.libedit +++|* END OF FILE DETECTED. ABORT JOB.
02992 M00S02829.libedit +++|
02993 M00S02830.libedit +++| CPY11 CALL MSG,(CPYB+1),(=C* NOT DECLARED NRANDOM.*)
02994 M00S02831.libedit +++| SA1 CDOP CHECK *NA* OPTION
02995 M00S02832.libedit +++| NZ X1,CPY9 IF NO ABORT
02996 M00S02833.libedit +++| CALL ABT
02997 M00S02834.libedit +++|
02998 M00S02835.libedit +++|
02999 M00S02836.libedit +++| CPYA DATA 0 PNT INDEX
03000 M00S02837.libedit +++|
03001 M00S02838.libedit +++| CPYB VFD 42/,18/ PROGRAM NAME
03002 M00S02839.libedit +++| VFD 42/,18/ FILE AND POSITION
03003 M00S02840.libedit +++|
03004 M00S02841.libedit +++| CPYD DATA 0 EOR INDICATION
| Line S02842 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03005 M01S02842.libed6 ---| CPYL BSS 0
03006 M01S02843.libed6 ---| SPACE 4
| Line S00017 Modification History |
M01 (Added by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03007 M01S00017.libed6 +++| CRR SPACE 4,10
03008 M00S02844.libedit +++|** CRR - CHECK RECORDS REPLACED.
03009 M00S02845.libedit +++|*
03010 M00S02846.libedit +++|* USES A - ALL.
03011 M00S02847.libedit +++|* X - ALL.
03012 M00S02848.libedit +++|* B - 2, 3, 6, 7.
03013 M00S02849.libedit +++|*
03014 M00S02850.libedit +++|* CALLS ABT, CFN, COB, C6S, MST, LOL, OCC, OIC, OSB, STB.
03015 M00S02851.libedit +++|*
03016 M00S02852.libedit +++|* MACROS CALL, SEARCH.
03017 M00S02853.libedit +++|
03018 M00S02854.libedit +++|
| Line S02855 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03019 M01S02855.libed6 ---| NAME CRR,CRRL
03020 M00S02856.libedit +++| CRR SUBR ENTRY/EXIT
03021 M00S02857.libedit +++| CALL STB,CRRC SET TITLE BUFFER
03022 M00S02858.libedit +++| SB6 B0+
03023 M00S02859.libedit +++| CALL STB,CRRD
03024 M00S02860.libedit +++| SB6 B1
03025 M00S02861.libedit +++| SX6 B0
03026 M00S02862.libedit +++| SA6 CRRA
03027 M00S02863.libedit +++| CRR1 SA1 P.PNT CHECK PROGRAM NAME TABLE
03028 M00S02864.libedit +++| SA2 L.PNT
03029 M00S02865.libedit +++| SA3 CRRA
03030 M00S02866.libedit +++| SB6 X2
03031 M00S02867.libedit +++| SB7 X3
03032 M00S02868.libedit +++| CRR2 EQ B6,B7,CRR3 IF END OF PNT
03033 M00S02869.libedit +++| SA4 X1+B7 CHECK PNT ENTRY
03034 M00S02870.libedit +++| SB7 B7+3
03035 M00S02871.libedit +++| ZR X4,CRR2 IF PROGRAM REPLACED
03036 M00S02872.libedit +++| SX6 B7
03037 M00S02873.libedit +++| SA6 A3
03038 M00S02874.libedit +++| SEARCH NRT,(A4+B1),(=77777777777777000000B)
03039 M00S02875.libedit +++| NZ X6,CRR1 IF FILE IN NO REPLACE TABLE
03040 M00S02876.libedit +++| SA1 CRRB INCREMENT ERROR COUNT
03041 M00S02877.libedit +++| SX6 X1+B1
03042 M00S02878.libedit +++| SA6 A1
03043 M00S02879.libedit +++| CALL COB CLEAR OUTPUT BUFFER
03044 M00S02880.libedit +++| SA1 CRRA OUTPUT RECORD, TYPE, AND FILE
03045 M00S02881.libedit +++| SA2 P.PNT
03046 M00S02882.libedit +++| SB6 X1-3
03047 M00S02883.libedit +++| SA1 B6+X2
03048 M00S02884.libedit +++| SA2 A1+B1
03049 M00S02885.libedit +++| MX0 42
03050 M00S02886.libedit +++| BX6 X0*X1
03051 M00S02887.libedit +++| BX7 X0*X2
03052 M00S02888.libedit +++| SA6 OUTPUTB+1
03053 M00S02889.libedit +++| SA3 X1+NAMA
03054 M00S02890.libedit +++| BX6 X3
03055 M00S02891.libedit +++| SA6 A6+B1
03056 M00S02892.libedit +++| SA7 A6+B1
03057 M00S02893.libedit +++| CALL LOL LIST ONE LINE
03058 M00S02894.libedit +++| EQ CRR1 LOOP TO END OF PNT
03059 M00S02895.libedit +++|
03060 M00S02896.libedit +++|* CHECK DELETE PROGRAM TABLE.
03061 M00S02897.libedit +++|
03062 M00S02898.libedit +++| CRR3 SB6 B0+ SET TITLE
03063 M00S02899.libedit +++| CALL STB,CRRF
03064 M00S02900.libedit +++| SB6 B1+
03065 M00S02901.libedit +++| CALL STB,CRRG
03066 M00S02902.libedit +++| SX6 B0
03067 M00S02903.libedit +++| SA6 CRRA
03068 M00S02904.libedit +++|
03069 M00S02905.libedit +++|* OUTPUT ERROR MESSAGE.
03070 M00S02906.libedit +++|
03071 M00S02907.libedit +++| SA1 CRRB
03072 M00S02908.libedit +++| BX6 X1
03073 M00S02909.libedit +++| SA6 CRRB+2
03074 M00S02910.libedit +++| ZR X1,CRR4 IF NO ERRORS
03075 M00S02911.libedit +++| CALL C6S,CRRB,CRRA
03076 M00S02912.libedit +++| CALL MSG,CRRA,(=C* RECORD(S) NOT REPLACED.*)
03077 M00S02913.libedit +++| SX6 B0
03078 M00S02914.libedit +++| SA6 CRRA
03079 M00S02915.libedit +++| SA6 CRRB
03080 M00S02916.libedit +++| CRR4 CALL COB CLEAR OUTPUT BUFFER
03081 M00S02917.libedit +++| SA1 P.DPT
03082 M00S02918.libedit +++| SA2 L.DPT
03083 M00S02919.libedit +++| SA3 CRRA
03084 M00S02920.libedit +++| SB6 X2
03085 M00S02921.libedit +++| SB7 X3
| Line S00013 Modification History |
M01 (Added by) | libed1 |
Seq # *Modification Id* Act
----------------------------+
03086 M01S00013.libed1 +++| SX0 7777B DELETE FLAG
03087 M00S02922.libedit +++| CRR5 EQ B6,B7,CRR7 IF END OF DPT
03088 M00S02923.libedit +++| SA4 X1+B7
| Line S00014 Modification History |
M01 (Added by) | libed1 |
Seq # *Modification Id* Act
----------------------------+
03089 M01S00014.libed1 +++| BX5 X0-X4 COMPARE WITH DELETE FLAG
03090 M00S02924.libedit +++| SB7 B7+2
| Line S02925 Modification History |
M01 (Removed by) | libed1 |
Seq # *Modification Id* Act
----------------------------+
03091 M01S02925.libed1 ---| ZR X4,CRR5 IF PROGRAM DELETED
| Line S00015 Modification History |
M01 (Added by) | libed1 |
Seq # *Modification Id* Act
----------------------------+
03092 M01S00015.libed1 +++| ZR X5,CRR5 IF PROGRAM DELETED
03093 M01S00016.libed1 +++| MX5 -12 CHECK FOR -TYPE/*-
03094 M01S00017.libed1 +++| LX4 12
03095 M01S00018.libed1 +++| BX5 -X5*X4
03096 M01S00019.libed1 +++| LX4 -12
03097 M01S00020.libed1 +++| SX5 X5-1R**100B
03098 M01S00021.libed1 +++| ZR X5,CRR5 IF -TYPE/*- ENTRY
03099 M00S02926.libedit +++| SA1 CRRB INCREMENT ERROR COUNT
03100 M00S02927.libedit +++| SX6 X1+B1
03101 M00S02928.libedit +++| SA6 A1
03102 M00S02929.libedit +++| SA5 A4+B1 SET DELETE ENTRY
03103 M00S02930.libedit +++| SA1 LIBP ISOLATE RECORD NAME
03104 M00S02931.libedit +++| BX6 -X1*X4
03105 M00S02932.libedit +++| MX0 -12 ISOLATE RECORD TYPE
03106 M00S02933.libedit +++| BX4 -X0*X4
03107 M00S02934.libedit +++| LX7 X5
03108 M00S02935.libedit +++| SA6 CRRE
03109 M00S02936.libedit +++| SA7 A6+B1
03110 M00S02937.libedit +++| SX6 B7
03111 M00S02938.libedit +++| SA6 A3
03112 M00S02939.libedit +++| SA1 =10H*DELETE
03113 M00S02940.libedit +++| BX7 X1
03114 M00S02941.libedit +++| SA7 OUTPUTB+1
03115 M00S02942.libedit +++| CALL CFN,(X4+OICD)
03116 M00S02943.libedit +++| CALL CFN,CRRE OUTPUT PROGRAM NAME
03117 M00S02944.libedit +++| SA1 CRRE CHECK FOR END OF DELETE
03118 M00S02945.libedit +++| SA2 A1+B1
03119 M00S02946.libedit +++| BX6 X1-X2
03120 M00S02947.libedit +++| ZR X6,CRR6 IF FIRST PROGRAM = LAST PROGRAM
03121 M00S02948.libedit +++| CALL CFN,(=1L-)
03122 M00S02949.libedit +++| SA2 CRRE+1 OUTPUT LIBRARY NAME
03123 M00S02950.libedit +++| CALL CFN,(X2+OICD)
03124 M00S02951.libedit +++| CALL CFN,(CRRE+1)
03125 M00S02952.libedit +++| CRR6 CALL OSB OUTPUT STRING BUFFER
03126 M00S02953.libedit +++| EQ CRR4 LOOP TO END OF DPT
03127 M00S02954.libedit +++|
03128 M00S02955.libedit +++|** CHECK INSERT PROGRAM TABLE.
03129 M00S02956.libedit +++|
03130 M00S02957.libedit +++| CRR7 SA1 CRRB SAVE ERROR COUNT
03131 M00S02958.libedit +++| SA2 A1+B1
03132 M00S02959.libedit +++| IX6 X1+X2
03133 M00S02960.libedit +++| SA6 A2
03134 M00S02961.libedit +++| SX6 B0
03135 M00S02962.libedit +++| SA6 A1
03136 M00S02963.libedit +++| SA6 CRRA
03137 M00S02964.libedit +++| CRR8 SA1 P.IPT
03138 M00S02965.libedit +++| SA2 L.IPT
03139 M00S02966.libedit +++| SA3 CRRA
03140 M00S02967.libedit +++| SB6 X2
03141 M00S02968.libedit +++| SB7 X3
03142 M00S02969.libedit +++| CRR9 EQ B6,B7,CRR10 IF END OF INSERT PROGRAM TABLE
03143 M00S02970.libedit +++| SA4 X1+B7
03144 M00S02971.libedit +++| SB7 B7+4
03145 M00S02972.libedit +++| ZR X4,CRR9 IF PROGRAMS INSERTED
03146 M00S02973.libedit +++| SX6 B7
03147 M00S02974.libedit +++| SA6 A3
03148 M00S02975.libedit +++| SX6 X6-4
03149 M00S02976.libedit +++| SA6 CRRH
| Line S02977 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03150 M01S02977.v23l617 ---| CALL OIC,A6 OUTPUT INSERT CARD
| Line S00027 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03151 M01S00027.v23l617 +++| CALL OIC,A6 OUTPUT INSERT DIRECIVE
03152 M00S02978.libedit +++| SA2 CRRB INCREMENT ERROR COUNT
03153 M00S02979.libedit +++| SX6 X2+B1
03154 M00S02980.libedit +++| SA6 A2
03155 M00S02981.libedit +++| EQ CRR8 LOOP TO END OF IPT
03156 M00S02982.libedit +++|
03157 M00S02983.libedit +++|** CHECK COMMENT/DATE TABLE.
03158 M00S02984.libedit +++|
03159 M00S02985.libedit +++| CRR10 SA1 CRRB SAVE ERROR COUNT
03160 M00S02986.libedit +++| SA2 A1+B1
03161 M00S02987.libedit +++| IX6 X1+X2
03162 M00S02988.libedit +++| SA6 A2
03163 M00S02989.libedit +++| SX6 B0
03164 M00S02990.libedit +++| SA6 A1
03165 M00S02991.libedit +++| SA6 CRRA
03166 M00S02992.libedit +++| CRR11 SA1 P.CDT
03167 M00S02993.libedit +++| SA2 L.CDT
03168 M00S02994.libedit +++| SA3 CRRA
03169 M00S02995.libedit +++| SB6 X2
03170 M00S02996.libedit +++| SB7 X3
03171 M00S02997.libedit +++| CRR12 EQ B6,B7,CRR13 IF END OF COMMENT/DATE TABLE
03172 M00S02998.libedit +++| SA4 X1+B7 CHECK ENTRY
03173 M00S02999.libedit +++| SB7 B7+8
03174 M00S03000.libedit +++| ZR X4,CRR12 IF COMMENT PROCESSED
03175 M00S03001.libedit +++| SX6 B7
03176 M00S03002.libedit +++| SA6 A3
| Line S03003 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03177 M01S03003.v23l617 ---| CALL OCC,(B7-8) OUTPUT COMMENT CARD
| Line S00028 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03178 M01S00028.v23l617 +++| CALL OCC,(B7-8) OUTPUT COMMENT DIRECTIVE
03179 M00S03004.libedit +++| SA2 CRRB
03180 M00S03005.libedit +++| SX6 X2+B1
03181 M00S03006.libedit +++| SA6 A2
| Line S03007 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03182 M01S03007.libed6 ---| EQ CRR11 LOOP TO ENDOF CDT
| Line S00018 Modification History |
M01 (Added by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03183 M01S00018.libed6 +++| EQ CRR11 LOOP TO END OF CDT
03184 M00S03008.libedit +++|
03185 M00S03009.libedit +++|** OUTPUT ERROR MESSAGE.
03186 M00S03010.libedit +++|
03187 M00S03011.libedit +++| CRR13 SA1 CRRB
03188 M00S03012.libedit +++| SA2 A1+B1
03189 M00S03013.libedit +++| IX6 X1+X2
03190 M00S03014.libedit +++| SA6 A1
03191 M00S03015.libedit +++| SA3 A2+B1
03192 M00S03016.libedit +++| IX3 X6+X3
03193 M00S03017.libedit +++| ZR X3,CRRX IF NO ERRORS
| Line S03018 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03194 M01S03018.v23l617 ---| ZR X6,CRR14 IF NO CARDS NOT PROCESSED
| Line S00029 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03195 M01S00029.v23l617 +++| ZR X6,CRR14 IF ALL DIRECTIVES PROCESSED
03196 M00S03019.libedit +++| SA1 TTYI
03197 M00S03020.libedit +++| ZR X1,CRRX IF TTY INPUT
03198 M00S03021.libedit +++| CALL C6S,CRRB,CRRA
03199 M00S03022.libedit +++| CALL MSG,CRRA,(=C* DIRECTIVE ERROR(S).*)
03200 M00S03023.libedit +++| CRR14 SA1 CDOP CHECK D OPTION
03201 M00S03024.libedit +++| NZ X1,CRRX IF NO ABORT
03202 M00S03025.libedit +++| CALL ABT ABORT JOB
03203 M00S03026.libedit +++|
03204 M00S03027.libedit +++|
03205 M00S03028.libedit +++| CRRA DATA 0 TABLE INDEX
03206 M00S03029.libedit +++|
03207 M00S03030.libedit +++| CRRB DATA 0 ERROR COUNT
03208 M00S03031.libedit +++| DATA 0
03209 M00S03032.libedit +++| DATA 0
03210 M00S03033.libedit +++|
03211 M00S03034.libedit +++| CRRC DATA C* ERROR DIRECTORY - RECORDS NOT REPLACED.*
03212 M00S03035.libedit +++| CRRD DATA C* RECORD TYPE FILE*
03213 M00S03036.libedit +++|
03214 M00S03037.libedit +++| CRRE VFD 42/,18/ DPT ENTRY - 42/PROG1,18/LIB1
03215 M00S03038.libedit +++| VFD 42/,18/ 42/PROG2,18/LIB2
03216 M00S03039.libedit +++|
03217 M00S03040.libedit +++| CRRF DATA C* ERROR DIRECTORY - DIRECTIVES NOT PERFORMED.*
03218 M00S03041.libedit +++| CRRG DATA C* *
03219 M00S03042.libedit +++| CRRH DATA 0 INSERT PROGRAM TABLE INDEX
| Line S03043 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03220 M01S03043.libed6 ---| CRRL BSS 0
03221 M00S03044.libedit +++| SPACE 4
03222 M00S03045.libedit +++|** C6S - CONVERT 6 DIGITS WITH LEADING ZERO SUPPRESSION.
03223 M00S03046.libedit +++|*
03224 M00S03047.libedit +++|* ENTRY (B2) = ADDRESS OF RIGHT JUSTIFIED NUMBER.
03225 M00S03048.libedit +++|* (B3) = ADDRESS TO STORE RESULT.
03226 M00S03049.libedit +++|*
03227 M00S03050.libedit +++|* USES X - 0, 1, 2, 3, 4, 5, 6.
03228 M00S03051.libedit +++|* A - 1, 2, 3, 6.
03229 M00S03052.libedit +++|* B - 2, 7.
03230 M00S03053.libedit +++|
03231 M00S03054.libedit +++|
| Line S03055 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03232 M01S03055.libed6 ---| NAME C6S,C6SL
03233 M00S03056.libedit +++| C6S SUBR ENTRY/EXIT
03234 M00S03057.libedit +++| SA2 =0.1000000001P48
03235 M00S03058.libedit +++| SA3 =10.0P0
03236 M00S03059.libedit +++| SA4 =1H
03237 M00S03060.libedit +++| SB6 6
03238 M00S03061.libedit +++| SB5 1R0-1R
03239 M00S03062.libedit +++| SA1 B2
03240 M00S03063.libedit +++| SB2 18
03241 M00S03064.libedit +++| PX1 X1
03242 M00S03065.libedit +++| BX6 X4
03243 M00S03066.libedit +++| C6S1 DX4 X1*X2
03244 M00S03067.libedit +++| FX1 X1*X2
03245 M00S03068.libedit +++| SB7 X1
03246 M00S03069.libedit +++| LX6 54
03247 M00S03070.libedit +++| SB2 B2+B6
03248 M00S03071.libedit +++| FX5 X4*X3 CALCULATE REMAINDER DIGIT
03249 M00S03072.libedit +++| SX0 X5+B5
03250 M00S03073.libedit +++| IX6 X0+X6
03251 M00S03074.libedit +++| NZ B7,C6S1 IF NOT ENTIRE NUMBER
03252 M00S03075.libedit +++| LX6 X6,B2 POSITION NUMBER
03253 M00S03076.libedit +++| SA6 B3
03254 M00S03077.libedit +++| EQ C6SX RETURN
| Line S03078 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03255 M01S03078.libed6 ---|
03256 M01S03079.libed6 ---| C6SL BSS 0
03257 M00S03080.libedit +++| SPACE 4
03258 M00S03081.libedit +++|** DIS - DISPLAY MESSAGE.
| Line S03082 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03259 M01S03082.libed6 ---|
| Line S00019 Modification History |
M01 (Added by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03260 M01S00019.libed6 +++|*
03261 M00S03083.libedit +++|* ENTRY (B2) = ADDRESS OF PROGRAM NAME.
03262 M00S03084.libedit +++|* (B3) = ADDRESS OF MESSAGE.
03263 M00S03085.libedit +++|*
03264 M00S03086.libedit +++|* USES A - 1, 2, 6, 7.
03265 M00S03087.libedit +++|* X - 0, 1, 2, 6, 7.
03266 M00S03088.libedit +++|
03267 M00S03089.libedit +++|
| Line S03090 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03268 M01S03090.libed6 ---| NAME DIS,DISL
03269 M00S03091.libedit +++| DIS SUBR ENTRY/EXIT
03270 M00S03092.libedit +++| SA1 B2
03271 M00S03093.libedit +++| SA2 B3
03272 M00S03094.libedit +++| MX0 42
03273 M00S03095.libedit +++| BX6 X2
03274 M00S03096.libedit +++| BX7 X0*X1
03275 M00S03097.libedit +++| SA6 DISA
03276 M00S03098.libedit +++| SA7 A6+B1
03277 M00S03099.libedit +++| MESSAGE A6,1
03278 M00S03100.libedit +++| EQ DISX RETURN
03279 M00S03101.libedit +++|
03280 M00S03102.libedit +++|
03281 M00S03103.libedit +++| DISA BSS 2
| Line S03104 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03282 M01S03104.libed6 ---| DISL BSS 0
03283 M00S03105.libedit +++| SPACE 4
03284 M00S03106.libedit +++|** EPN - ENTER PROGRAM NAME IN NEW PROGRAM TABLE.
03285 M00S03107.libedit +++|*
03286 M00S03108.libedit +++|* ENTRY (B2) = ADDRESS OF PROGRAM NAME AND TYPE.
03287 M00S03109.libedit +++|*
03288 M00S03110.libedit +++|* USES A - 1, 6, 7.
03289 M00S03111.libedit +++|* X - 1, 6, 7.
03290 M00S03112.libedit +++|
03291 M00S03113.libedit +++|
| Line S03114 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03292 M01S03114.libed6 ---| NAME EPN,EPNL
03293 M00S03115.libedit +++| EPN SUBR ENTRY/EXIT
03294 M00S03116.libedit +++| SA1 B2
03295 M00S03117.libedit +++| BX6 X1
03296 M00S03118.libedit +++| SA6 NIND
03297 M00S03119.libedit +++| SA1 SC
03298 M00S03120.libedit +++| LX7 X1 SET RELATIVE SECTOR ADDRESS
03299 M00S03121.libedit +++| SA7 A6+B1
03300 M00S03122.libedit +++| EQ EPNX RETURN
| Line S03123 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03301 M01S03123.libed6 ---|
03302 M01S03124.libed6 ---| EPNL BSS 0
03303 M00S03125.libedit +++| GUL SPACE 4,15
03304 M00S03126.libedit +++|** GUL - GENERATE USER LIBRARY (*LIBGEN* CALL).
03305 M00S03127.libedit +++|*
03306 M00S03128.libedit +++|* SET UP CALLING PARAMETERS AND CALL *LIBGEN*
03307 M00S03129.libedit +++|* PROGRAM (OVERLAYING PRESENT *LIBEDIT* ROUTINE)
03308 M00S03130.libedit +++|* TO GENERATE USER LIBRARY.
03309 M00S03131.libedit +++|*
03310 M00S03132.libedit +++|* ENTRY (GULC) THRU (GULJ) SET UP FOR CALL.
03311 M00S03133.libedit +++|*
03312 M00S03134.libedit +++|* EXIT TO *LIBGEN*.
03313 M00S03135.libedit +++|*
03314 M00S03136.libedit +++|* MACROS MESSAGE, OVERLAY, RECALL, SETLOF.
03315 M00S03137.libedit +++|
03316 M00S03138.libedit +++|
| Line S03139 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03317 M01S03139.libed6 ---| NAME GUL,GULL
03318 M00S03140.libedit +++| GUL SUBR ENTRY/EXIT
03319 M00S03141.libedit +++| SA1 CULB
03320 M00S03142.libedit +++| ZR X1,GULX IF NO *U* OPTION
03321 M00S03143.libedit +++| RECALL OUTPUT
03322 M00S03144.libedit +++| MESSAGE (=C* LIBGEN*),1
03323 M00S03145.libedit +++| RECALL S
03324 M00S03146.libedit +++| RECALL OLD
03325 M00S03147.libedit +++| RECALL NEW
03326 M00S03148.libedit +++| SA1 GULC MOVE PARAMETERS TO ARGR
03327 M00S03149.libedit +++| BX6 X1
03328 M00S03150.libedit +++| SA6 ARGR
03329 M00S03151.libedit +++| GUL2 ZR X6,GUL3 IF END OF MOVE
03330 M00S03152.libedit +++| SA1 A1+B1
03331 M00S03153.libedit +++| BX6 X1
03332 M00S03154.libedit +++| SA6 A6+1
03333 M00S03155.libedit +++| EQ GUL2 MOVE NEXT ARGUMENT
03334 M00S03156.libedit +++|
03335 M00S03157.libedit +++| GUL3 SX7 A6-ARGR
03336 M00S03158.libedit +++| SA2 FL
03337 M00S03159.libedit +++| SA7 ACTR SET NUMBER OF PARAMETERS
03338 M00S03160.libedit +++| LX2 30
03339 M00S03161.libedit +++| SA0 X2+
03340 M00S03162.libedit +++| SETLOF =0 CLEAR LIST OF FILES POINTER
03341 M00S03163.libedit +++| OVERLAY GULA,,SYSTEM
03342 M00S03164.libedit +++| PS
03343 M00S03165.libedit +++|
03344 M00S03166.libedit +++|
03345 M00S03167.libedit +++| GULA VFD 36/6LLIBGEN,24/0
03346 M00S03168.libedit +++|
03347 M00S03169.libedit +++| GULC VFD 42/0LF,18/1R=
03348 M00S03170.libedit +++| GULD VFD 42/0LZZZZZG2,18/0
03349 M00S03171.libedit +++| VFD 42/0LP,18/1R=
03350 M00S03172.libedit +++| GULF VFD 42/0LNEW,18/0
03351 M00S03173.libedit +++| VFD 42/0LN,18/1R=
03352 M00S03174.libedit +++| GULH VFD 42/0LULIB,18/0
03353 M00S03175.libedit +++| VFD 42/0LNX,18/1R=
03354 M00S03176.libedit +++| GULJ VFD 42/0L0,18/0
03355 M00S03177.libedit +++| CON 0 END OF ARGUMENTS FOR *LIBGEN*
| Line S03178 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03356 M01S03178.libed6 ---| GULL BSS 0
03357 M00S03179.libedit +++| ILO SPACE 4,10
03358 M00S03180.libedit +++|** ILO - INTERPRET LIST OPTIONS.
03359 M00S03181.libedit +++|*
03360 M00S03182.libedit +++|* ENTRY (A1) = ADDRESS OF OPTION WORD.
03361 M00S03183.libedit +++|* (X1) = LIST OPTIONS.
03362 M00S03184.libedit +++|*
03363 M00S03185.libedit +++|* EXIT ((A1)) = INTERPRETTED LIST OPTIONS.
03364 M00S03186.libedit +++|* (X1) = 0 IF NO ERROR.
03365 M00S03187.libedit +++|*
03366 M00S03188.libedit +++|* USES X - 0, 1, 2, 3, 4, 6.
03367 M00S03189.libedit +++|* A - 2, 6.
03368 M00S03190.libedit +++|
03369 M00S03191.libedit +++|
| Line S03192 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03370 M01S03192.libed6 ---| NAME ILO,ILOL
03371 M00S03193.libedit +++| ILO4 SA6 A1+ SET LIST OPTIONS
03372 M00S03194.libedit +++|
03373 M00S03195.libedit +++| ILO SUBR ENTRY/EXIT
03374 M00S03196.libedit +++| SX6 B0+ INITIALIZE INTERPRETTED LIST OPTIONS
03375 M00S03197.libedit +++| MX0 6
03376 M00S03198.libedit +++| ILO1 SA2 ILOA-1
03377 M00S03199.libedit +++| BX4 X0*X1
03378 M00S03200.libedit +++| ILO2 SA2 A2+B1
03379 M00S03201.libedit +++| ZR X2,ILO3 IF END OF OPTIONS
03380 M00S03202.libedit +++| BX2 X4-X2
03381 M00S03203.libedit +++| BX3 X0*X2
03382 M00S03204.libedit +++| NZ X3,ILO2 IF NO MATCH
03383 M00S03205.libedit +++| SX3 X2
03384 M00S03206.libedit +++| BX6 X3+X6
03385 M00S03207.libedit +++| BX1 -X0*X1
03386 M00S03208.libedit +++| ZR X1,ILO4 IF ALL OPTIONS PROCESSED
03387 M00S03209.libedit +++| LX1 6
03388 M00S03210.libedit +++| EQ ILO1 PROCESS NEXT OPTION
03389 M00S03211.libedit +++|
03390 M00S03212.libedit +++| ILO3 SX1 B1+ SET ERROR
03391 M00S03213.libedit +++| EQ ILOX RETURN
03392 M00S03214.libedit +++|
03393 M00S03215.libedit +++|
03394 M00S03216.libedit +++| ILOA CON 1LF+17B FULL
03395 M00S03217.libedit +++| CON 1LC+4B DIRECTIVES
03396 M00S03218.libedit +++| CON 1LM+2B SHORT
03397 M00S03219.libedit +++| CON 1LE+1B ERRORS
03398 M00S03220.libedit +++| CON 1LN+10B RECORDS WRITTEN
03399 M00S03221.libedit +++| CON 0
| Line S03222 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03400 M01S03222.libed6 ---| ILOL BSS 0
03401 M00S03223.libedit +++| LIT SPACE 4,15
03402 M00S03224.libedit +++|** LIT - LIST IGNORE TABLE.
03403 M00S03225.libedit +++|*
03404 M00S03226.libedit +++|* EXIT (X6) = ERROR COUNT.
03405 M00S03227.libedit +++|*
03406 M00S03228.libedit +++|* USES A - 1, 2, 3, 6, 7.
03407 M00S03229.libedit +++|* X - 1, 2, 3, 6, 7.
03408 M00S03230.libedit +++|* B - 2.
03409 M00S03231.libedit +++|*
03410 M00S03232.libedit +++|* CALLS CFN, COB, LOL, OSB.
03411 M00S03233.libedit +++|*
03412 M00S03234.libedit +++|* MACROS CALL, WRITEC.
03413 M00S03235.libedit +++|
03414 M00S03236.libedit +++|
| Line S03237 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03415 M01S03237.libed6 ---| NAME LIT,LITL
03416 M00S03238.libedit +++| LIT SUBR ENTRY/EXIT
03417 M00S03239.libedit +++| LIT1 SA1 P.PIT
03418 M00S03240.libedit +++| SA2 L.PIT
03419 M00S03241.libedit +++| SA3 LITA PIT INDEX
03420 M00S03242.libedit +++| BX6 X2-X3
03421 M00S03243.libedit +++| NZ X6,LIT2 IF NOT END OF TABLE
03422 M00S03244.libedit +++| SA1 LITB ERROR COUNT
03423 M00S03245.libedit +++| BX6 X1
03424 M00S03246.libedit +++| EQ LITX RETURN
03425 M00S03247.libedit +++|
03426 M00S03248.libedit +++| LIT2 IX1 X1+X3
03427 M00S03249.libedit +++| SA2 X1
03428 M00S03250.libedit +++| NZ X2,LIT4 IF ENTRY NOT PROCESSED
03429 M00S03251.libedit +++| LIT3 SA3 LITA ADVANCE PIT INDEX
03430 M00S03252.libedit +++| SX6 X3+3
03431 M00S03253.libedit +++| SA6 LITA
03432 M00S03254.libedit +++| EQ LIT1 LOOP
03433 M00S03255.libedit +++|
03434 M00S03256.libedit +++|* LIST UNPROCESSED ENTRY.
03435 M00S03257.libedit +++|
03436 M00S03258.libedit +++| LIT4 BX6 X2 COPY IPT ENTRY
03437 M00S03259.libedit +++| SA1 A2+B1
03438 M00S03260.libedit +++| SA6 LITC
03439 M00S03261.libedit +++| BX7 X1
03440 M00S03262.libedit +++| SA2 A1+B1
03441 M00S03263.libedit +++| SA7 A6+B1
03442 M00S03264.libedit +++| BX6 X2
03443 M00S03265.libedit +++| SA6 A7+B1
03444 M00S03266.libedit +++| SX1 1R*
03445 M00S03267.libedit +++| LX1 54
03446 M00S03268.libedit +++| ZR X7,LIT5 IF START OF IGNORE FOUND
03447 M00S03269.libedit +++| BX6 X6-X1
03448 M00S03270.libedit +++| AX6 18
03449 M00S03271.libedit +++| NZ X6,LIT6 IF NOT IGNORE ALL OF TYPE
03450 M00S03272.libedit +++| LIT5 BX7 X7-X1
03451 M00S03273.libedit +++| AX7 18
03452 M00S03274.libedit +++| ZR X7,LIT3 IF IGNORE TO END OF FILE
03453 M00S03275.libedit +++| LIT6 CALL COB CLEAR OUTPUT BUFFER
03454 M00S03276.libedit +++| WRITEC OUTPUT,(=C* *)
03455 M00S03277.libedit +++| SA1 =H/ *ERROR* DIRECTIVE CANNOT BE PERFORMED./
03456 M00S03278.libedit +++| SB2 4
03457 M00S03279.libedit +++| BX6 X1
03458 M00S03280.libedit +++| SA6 OUTPUTB
03459 M00S03281.libedit +++| LIT7 SA1 A1+B1
03460 M00S03282.libedit +++| SB2 B2-B1
03461 M00S03283.libedit +++| BX6 X1
03462 M00S03284.libedit +++| SA6 A6+B1
03463 M00S03285.libedit +++| NZ B2,LIT7 IF NOT 4 WORDS
03464 M00S03286.libedit +++| CALL LOL LIST ONE LINE
03465 M00S03287.libedit +++| CALL COB CLEAR OUTPUT BUFFER
03466 M00S03288.libedit +++| SA2 =5H*FILE LIST FILE NAME
03467 M00S03289.libedit +++| BX6 X2
03468 M00S03290.libedit +++| SA6 OUTPUTB+1
03469 M00S03291.libedit +++| CALL CFN,LITC OUTPUT FILE NAME
03470 M00S03292.libedit +++| CALL OSB OUTPUT STRING BUFFER
03471 M00S03293.libedit +++| SA2 =7H*IGNORE OUTPUT IGNORE CARD
03472 M00S03294.libedit +++| SA1 LITC+1
03473 M00S03295.libedit +++| BX6 X2
03474 M00S03296.libedit +++| SA6 OUTPUTB+1
03475 M00S03297.libedit +++| NZ X1,LIT8 IF IGNORE NOT STARTED
03476 M00S03298.libedit +++| CALL CFN,(=6LTEXT/,)
03477 M00S03299.libedit +++| EQ LIT9 OUTPUT PROGRAM NAME
03478 M00S03300.libedit +++| LIT8 CALL CFN,X1+OICD
03479 M00S03301.libedit +++| CALL CFN,LITC+1 OUTPUT PROGRAM NAME
03480 M00S03302.libedit +++| SA1 LITC+1 CHECK SINGLE IGNORE
03481 M00S03303.libedit +++| SA2 A1+B1
03482 M00S03304.libedit +++| BX6 X1-X2
03483 M00S03305.libedit +++| ZR X6,LIT10 IF FIRST PROGRAM = LAST PROGRAM
03484 M00S03306.libedit +++| LIT9 CALL CFN,(=1L-)
03485 M00S03307.libedit +++| SA2 LITC+2 OUTPUT LIBRARY NAME
03486 M00S03308.libedit +++| CALL CFN,X2+OICD
03487 M00S03309.libedit +++| CALL CFN,LITC+2
03488 M00S03310.libedit +++| LIT10 CALL OSB OUTPUT STRING BUFFER
03489 M00S03311.libedit +++| SA1 LITB ADVANCE ERROR COUNT
03490 M00S03312.libedit +++| SX6 X1+B1
03491 M00S03313.libedit +++| SA6 A1
03492 M00S03314.libedit +++| EQ LIT3 LOOP
03493 M00S03315.libedit +++|
03494 M00S03316.libedit +++|
03495 M00S03317.libedit +++| LITA CON 0 PIT INDEX
03496 M00S03318.libedit +++| LITB CON 0 ERROR COUNT
03497 M00S03319.libedit +++|
03498 M00S03320.libedit +++| LITC VFD 42/,18/ PIT ETRY - 42/FILE,18/
03499 M00S03321.libedit +++| VFD 42/,18/ 42/PROG1,18/LIB1
03500 M00S03322.libedit +++| VFD 42/,18/ 42/PROG2,18/LIB2
| Line S03323 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03501 M01S03323.libed6 ---| LITL BSS 0
03502 M00S03324.libedit +++| LOL SPACE 4,20
03503 M00S03325.libedit +++|** LOL - LIST ONE LINE.
03504 M00S03326.libedit +++|*
03505 M00S03327.libedit +++|* ENTRY (OUTPUTB) = LINE TO BE WRITTEN.
03506 M00S03328.libedit +++|* (LINE) = LINE NUMBER.
03507 M00S03329.libedit +++|* (BRFM) = 1 IF BRIEF MODE SET (NO TITLE).
03508 M00S03330.libedit +++|* (PAGE) = PAGE NUMBER.
| Line S00005 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03509 M01S00005.ns22000 +++|* (LL) = PAGE LINE LIMIT.
03510 M01S00006.ns22000 +++|* (PD) = PRINT DENSITY FORMAT CONTROL.
03511 M01S00007.ns22000 +++|* (PDFLG) = 1 IF FORMAT CONTROL NOT WRITTEN.
03512 M00S03331.libedit +++|*
03513 M00S03332.libedit +++|* EXIT LINE AND PAGE NUMBER UPDATED.
03514 M00S03333.libedit +++|*
03515 M00S03334.libedit +++|* USES A - 1, 2, 3, 6.
03516 M00S03335.libedit +++|* X - 0, 1, 2, 3, 6.
03517 M00S03336.libedit +++|* B - 2, 5, 6, 7.
03518 M00S03337.libedit +++|*
03519 M00S03338.libedit +++|* CALLS C6S.
03520 M00S03339.libedit +++|*
03521 M00S03340.libedit +++|* MACROS CALL, WRITEC, WRITEH.
03522 M00S03341.libedit +++|
03523 M00S03342.libedit +++|
| Line S03343 Modification History |
M01 (Removed by) | libed6 |
Seq # *Modification Id* Act
----------------------------+
03524 M01S03343.libed6 ---| NAME LOL,LOLL
03525 M00S03344.libedit +++| LOL SUBR ENTRY/EXIT
03526 M00S03345.libedit +++| SA1 LINE CHECK LINE NUMBER
03527 M00S03346.libedit +++| SX6 X1+B1
03528 M00S03347.libedit +++| SA6 A1
| Line S03348 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03529 M01S03348.ns22000 ---| SX6 X6-LNCNT
| Line S00008 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03530 M01S00008.ns22000 +++| SA3 A1+B1 GET LINE LIMIT
03531 M01S00009.ns22000 +++| ERRNZ LL-LINE-1 CODE DEPENDS ON CONSECUTIVE LOCATIONS
03532 M01S00010.ns22000 +++| IX6 X6-X3
03533 M00S03349.libedit +++| NG X6,LOL1 IF NOT END OF PAGE
03534 M00S03350.libedit +++| SX6 B0 RESET LINE COUNT
03535 M00S03351.libedit +++| SA6 A1
03536 M00S03352.libedit +++| SA3 TTYO
03537 M00S03353.libedit +++| NZ X3,LOL0 IF NOT TTY OUTPUT
03538 M00S03354.libedit +++| SA1 BRFM
03539 M00S03355.libedit +++| NZ X1,LOL1 IF BRIEF MODE SET
03540 M00S03356.libedit +++| WRITEH OUTPUT,TITA,TITAL TITLE LINE
03541 M00S03357.libedit +++| WRITEH OUTPUT,TITE,TITEL SUBTITLE
03542 M00S03358.libedit +++| WRITEC OUTPUT,(=C* *)
03543 M00S03359.libedit +++| EQ LOL1 CONTINUE
03544 M00S03360.libedit +++|
03545 M00S03361.libedit +++| LOL0 SA2 PAGE
03546 M00S03362.libedit +++| SX6 X2+B1
03547 M00S03363.libedit +++| SA6 A2
03548 M00S03364.libedit +++| CALL C6S,PAGE,LOLA
03549 M00S03365.libedit +++| SA1 TITD INSERT PAGE NUMBER
03550 M00S03366.libedit +++| LX6 36
03551 M00S03367.libedit +++| MX0 24
03552 M00S03368.libedit +++| BX1 X0*X1
03553 M00S03369.libedit +++| BX6 -X0*X6
03554 M00S03370.libedit +++| BX6 X6+X1
03555 M00S03371.libedit +++| SA6 A1
| Line S00011 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03556 M01S00011.ns22000 +++| SA3 PDFLG FLAG THAT FORMAT CONTROL WAS WRITTEN
03557 M01S00012.ns22000 +++| BX7 X7-X7
03558 M01S00013.ns22000 +++| SA7 A3
03559 M01S00014.ns22000 +++| WRITEW O,A3-B1,X3 CONDITIONALLY WRITE FORMAT EFFECTOR
03560 M01S00015.ns22000 +++| ERRNZ PDFLG-PD-1 CODE DEPENDS ON CONSECUTIVE LOCATIONS
03561 M00S03372.libedit +++| WRITEC OUTPUT,(=C*1*)
03562 M00S03373.libedit +++| WRITEH OUTPUT,TITA,TITE-TITA WRITE TITLE LINE
03563 M00S03374.libedit +++| WRITEC OUTPUT,(=C* *)
03564 M00S03375.libedit +++| WRITEH OUTPUT,TITE,TITF-TITE WRITE SUBTITLE LINE
03565 M00S03376.libedit +++| WRITEC OUTPUT,(=C* *)
| Line S03377 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03566 M01S03377.ns22000 ---| SA2 LINE INCREMENT LINE NUMBER
03567 M01S03378.ns22000 ---| SB2 5
03568 M01S03379.ns22000 ---| SX6 X2+B2
03569 M01S03380.ns22000 ---| SA6 A2
| Line S00016 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03570 M01S00016.ns22000 +++| SX6 5 RESET LINE COUNT
03571 M01S00017.ns22000 +++| SA6 LINE
03572 M00S03381.libedit +++| LOL1 SX2 1R BLANK FILL LINE