cdc:nos2.source:opl.opl871:deck:libedit.001
Deck LIBEDIT Part 001
20 Modifications
Listing Sections
- Deck LIBEDIT Start
- Deck LIBEDIT Part 1 (Line 1706)
- Deck LIBEDIT Part 2 (Line 3573)
- Deck LIBEDIT Part 3 (Line 5308)
Source
Seq # *Modification Id* Act ----------------------------+ 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
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/libedit.001.txt · Last modified: (external edit)