cdc:nos2.source:opl.opl871:common:comcpfs.001
Common COMCPFS Part 001
10 Modifications
Listing Sections
- Common COMCPFS Start
- Common COMCPFS Part 1 (Line 1561)
- Common COMCPFS Part 2 (Line 3008)
- Common COMCPFS Part 3 (Line 4448)
Source
Seq # *Modification Id* Act ----------------------------+ 01561 M01S00846.286l859 +++| VFD 30/COBF+7,30/DSEC DISK RESIDENT SECTORS 01562 M01S00847.286l859 +++| VFD 30/COBF+8,30/CFIL CARTRIDGE RESIDENT FILES 01563 M01S00848.286l859 +++| VFD 30/COBF+9,30/CSEC CARTRIDGE RESIDENT SECTORS 01564 M01S00849.286l859 +++| VFD 30/COBF+10,30/TFIL TAPE RESIDENT FILES 01565 M01S00850.286l859 +++| VFD 30/COBF+11,30/TSEC TAPE RESIDENT SECTORS 01566 M01S00851.286l859 +++| CON 0 END OF CONVERSIONS 01567 M01S00852.286l859 +++| PSF SPACE 4,15 01568 M01S00853.286l859 +++|** PSF - PROCESS SORTED FILE OUTPUT. 01569 M01S00854.286l859 +++|* 01570 M01S00855.286l859 +++|* ENTRY CATALOG ENTRIES ON FILE *PF* IF SORTED FILE LIST 01571 M01S00856.286l859 +++|* SELECTED. 01572 M01S00857.286l859 +++|* 01573 M01S00858.286l859 +++|* EXIT SORTED FILE LIST OUTPUT COMPLETE. 01574 M01S00859.286l859 +++|* 01575 M01S00860.286l859 +++|* USES X - 1, 2, 6, 7. 01576 M01S00861.286l859 +++|* A - 0, 1, 2, 6, 7. 01577 M01S00862.286l859 +++|*
| Line S00863 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01578 M02S00863.ns2793 ---|* CALLS OSF, OUS, OTS, SCE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01579 M01S00001.ns2793 +++|* CALLS OSF, OUS, OTS, SCE, SDT.
| Line S00864 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01580 M01S00864.286l859 +++|* 01581 M01S00865.286l859 +++|* MACROS READ, READW, REWIND, WRITER. 01582 M01S00866.286l859 +++|
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01583 M01S00002.ns2793 +++| 01584 M01S00003.ns2793 +++| PSF3 RJ SDT RESET DEFAULT PAGE TITLE
| Line S00867 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01585 M01S00867.286l859 +++| 01586 M01S00868.286l859 +++| PSF SUBR ENTRY/EXIT 01587 M01S00869.286l859 +++| 01588 M01S00870.286l859 +++|* CHECK FOR SORTED OUTPUT. 01589 M01S00871.286l859 +++| 01590 M01S00872.286l859 +++| SA1 FPSF 01591 M01S00873.286l859 +++| ZR X1,PSFX IF NO FILES PROCESSED FOR SORTED OUTPUT 01592 M01S00874.286l859 +++| WRITER PF FLUSH FILE LIST FILE 01593 M01S00875.286l859 +++| 01594 M01S00876.286l859 +++|* PROCESS SORTED FILE LIST AND USER STATISTICS. 01595 M01S00877.286l859 +++|
| Line S00878 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01596 M02S00878.ns2790 ---| SA1 CPAR+/COMSPFS/CPLO 01597 M02S00879.ns2790 ---| SX6 4100B 01598 M02S00880.ns2790 ---| LX1 59-56 01599 M02S00881.ns2790 ---| NG X1,PSF1 IF *S* LIST OPTION SELECTED 01600 M02S00882.ns2790 ---| LX1 0-48-59+56 01601 M02S00883.ns2790 ---| BX1 X6*X1 *T* AND *U* LIST OPTIONS 01602 M02S00884.ns2790 ---| IX6 X1-X6 01603 M02S00885.ns2790 ---| NZ X6,PSF2 IF SORTED FILE LIST NOT SELECTED 01604 M02S00886.ns2790 ---| PSF1 RJ SCE SORT CATALOG ENTRIES
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01605 M01S00035.ns2790 +++| RJ SCE SORT CATALOG ENTRIES BY USER AND FILE NAME
| Line S00887 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01606 M01S00887.286l859 +++| RJ OSF LIST FILES BY USER INDEX AND FILE NAME 01607 M01S00888.286l859 +++| RJ OUS OUTPUT USER STATISTICS 01608 M01S00889.286l859 +++| 01609 M01S00890.286l859 +++|* PROCESS TAPE ALTERNATE STORAGE STATISTICS. 01610 M01S00891.286l859 +++| 01611 M01S00892.286l859 +++| PSF2 SA1 CPAR+/COMSPFS/CPLO
| Line S00893 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01612 M02S00893.ns2790 ---| SX7 B1 SET KEY LENGTH
| Line S00894 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01613 M01S00894.286l859 +++| LX1 59-56
| Line S00895 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01614 M02S00895.ns2790 ---| PL X1,PSFX IF TAPE STATISTICS NOT SELECTED
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
M02 (Removed by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01615 M02S00036.ns2793 ---| PL X1,PSFX IF STATISTICS NOT SELECTED
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01616 M01S00004.ns2793 +++| PL X1,PSF3 IF STATISTICS NOT SELECTED
| Line S00896 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01617 M01S00896.286l859 +++| RJ STD SORT TAPE ALTERNATE STORAGE DATA
| Line S00897 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01618 M02S00897.ns2793 ---| ZR X1,PSFX IF NO ALTERNATE STORAGE DATA
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01619 M01S00005.ns2793 +++| ZR X1,PSF3 IF NO ALTERNATE STORAGE DATA
| Line S00898 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01620 M01S00898.286l859 +++| RJ OTS OUTPUT TAPE ALTERNATE STORAGE STATISTICS
| Line S00899 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01621 M02S00899.ns2793 ---| EQ PSFX RETURN
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01622 M01S00006.ns2793 +++| EQ PSF3 RETURN
| Line S00900 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01623 M01S00900.286l859 +++| PSI SPACE 4,15 01624 M01S00901.286l859 +++|** PSI - PROCESS SORTED CIR OUTPUT. 01625 M01S00902.286l859 +++|* 01626 M01S00903.286l859 +++|* ENTRY CIR ENTRIES ON FILE *PF* IF SORTED CIR LIST SELECTED. 01627 M01S00904.286l859 +++|* 01628 M01S00905.286l859 +++|* EXIT SORTED CIR LIST OUTPUT COMPLETE. 01629 M01S00906.286l859 +++|* 01630 M01S00907.286l859 +++|* USES X - 1, 2, 6. 01631 M01S00908.286l859 +++|* A - 1, 6. 01632 M01S00909.286l859 +++|*
| Line S00910 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01633 M02S00910.ns2793 ---|* CALLS FCI, ISF, RPP.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01634 M01S00007.ns2793 +++|* CALLS FCI, ISF, RPP, SDT.
| Line S00911 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01635 M01S00911.286l859 +++|* 01636 M01S00912.286l859 +++|* MACROS READ, READW, REWIND, WRITER. 01637 M01S00913.286l859 +++|
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01638 M01S00008.ns2793 +++| 01639 M01S00009.ns2793 +++| PSI4 RJ SDT RESET DEFAULT PAGE TITLE
| Line S00914 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01640 M01S00914.286l859 +++| 01641 M01S00915.286l859 +++| PSI SUBR ENTRY/EXIT 01642 M01S00916.286l859 +++| SA1 FPSF 01643 M01S00917.286l859 +++| ZR X1,PSIX IF NO FILES PROCESSED FOR SORTED OUTPUT 01644 M01S00918.286l859 +++| 01645 M01S00919.286l859 +++|* SORT CIR ENTRIES. 01646 M01S00920.286l859 +++| 01647 M01S00921.286l859 +++| WRITER PF FLUSH FILE LIST FILE 01648 M01S00922.286l859 +++| REWIND PF 01649 M01S00923.286l859 +++| READ PF 01650 M01S00924.286l859 +++| RJ ISF INITIALIZE SORT FILES 01651 M01S00925.286l859 +++| PSI1 READW PF,SRTB,SBCIL 01652 M01S00926.286l859 +++| SB7 B7-SBCIL 01653 M01S00927.286l859 +++| ZR B7,PSI2 IF END OF ENTRIES 01654 M01S00928.286l859 +++| MX0 60 SET SORT KEY MASK 01655 M01S00929.286l859 +++| SX1 B1 SET SORT KEY LENGTH 01656 M01S00930.286l859 +++| SB4 1 SET KEY OFFSET 01657 M01S00931.286l859 +++| SB5 NWCI SET ENTRY LENGTH 01658 M01S00932.286l859 +++| RJ WSB WRITE SORTED ENTRIES TO FILE 01659 M01S00933.286l859 +++| EQ PSI1 READ NEXT BUFFER OF ENTRIES 01660 M01S00934.286l859 +++| 01661 M01S00935.286l859 +++| PSI2 WRITER S1 01662 M01S00936.286l859 +++| WRITER S2 01663 M01S00937.286l859 +++| SX0 NWCI SET ENTRY LENGTH 01664 M01S00938.286l859 +++| SX1 SBCIC SET FULL BLOCK ENTRY COUNT 01665 M01S00939.286l859 +++| MX2 60 SET SORT KEY MASK 01666 M01S00940.286l859 +++| SB4 B0 SET KEY OFFSET 01667 M01S00941.286l859 +++| SB5 1 SET KEY LENGTH 01668 M01S00942.286l859 +++| SA0 SW1B SET WORKING BUFFER 1 ADDRESS 01669 M01S00943.286l859 +++| SA5 SW2B SET WORKING BUFFER 2 ADDRESS 01670 M01S00944.286l859 +++| RJ MSF MERGE SORT FILES 01671 M01S00945.286l859 +++| 01672 M01S00946.286l859 +++|* OUTPUT SORTED CIR ENTRIES. 01673 M01S00947.286l859 +++|
| Line S00948 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01674 M02S00948.ns2790 ---| SX2 ISTX SET CIR TITLE TEXT
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01675 M01S00037.ns2790 +++| SX2 CITX SET CIR TITLE TEXT
| Line S00949 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01676 M01S00949.286l859 +++| SX6 CIS SET CIR SUBHEADER 01677 M01S00950.286l859 +++| RJ RPP RESET PAGE PARAMETERS 01678 M01S00951.286l859 +++| SX6 O SET OUTPUT FILE FET ADDRESS 01679 M01S00952.286l859 +++| SA6 OFFA 01680 M01S00953.286l859 +++| REWIND S3 01681 M01S00954.286l859 +++| READ S3 01682 M01S00955.286l859 +++| PSI3 READW S3,SW1B,NWCI READ CIR ENTRY
| Line S00956 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01683 M02S00956.ns2793 ---| NZ X1,PSIX IF EOR ENCOUNTERED
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 01684 M01S00010.ns2793 +++| NZ X1,PSI4 IF EOR ENCOUNTERED
| Line S00957 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01685 M01S00957.286l859 +++| SA1 SW1B 01686 M01S00958.286l859 +++| LX1 18 01687 M01S00959.286l859 +++| BX6 X1 RESTORE FILE NAME AND USER INDEX 01688 M01S00960.286l859 +++| SA6 A1 01689 M01S00961.286l859 +++| SX6 A1 SET ENTRY ADDRESS 01690 M01S00962.286l859 +++| RJ FCI FORMAT AND OUTPUT CIR ENTRY 01691 M01S00963.286l859 +++| EQ PSI3 READ NEXT ENTRY 01692 M01S00964.286l859 +++| SCE SPACE 4,15 01693 M01S00965.286l859 +++|** SCE - SORT CATALOG ENTRIES. 01694 M01S00966.286l859 +++|* 01695 M01S00967.286l859 +++|* ENTRY UNSORTED CATALOG ENTRIES ON FILE *PF*. 01696 M01S00968.286l859 +++|* 01697 M01S00969.286l859 +++|* EXIT SORTED CATALOG ENTRIES ON FILE *S3*. 01698 M01S00970.286l859 +++|* 01699 M01S00971.286l859 +++|* USES X - 0, 1, 2, 3, 6. 01700 M01S00972.286l859 +++|* A - 0, 1, 2, 3, 5, 6, 7. 01701 M01S00973.286l859 +++|* B - 4, 5, 7. 01702 M01S00974.286l859 +++|* 01703 M01S00975.286l859 +++|* CALLS ISF, MSF, WSB. 01704 M01S00976.286l859 +++|* 01705 M01S00977.286l859 +++|* MACROS READ, READW, REWIND, WRITER. 01706 M01S00978.286l859 +++| 01707 M01S00979.286l859 +++| 01708 M01S00980.286l859 +++| SCE SUBR ENTRY/EXIT 01709 M01S00981.286l859 +++| REWIND PF 01710 M01S00982.286l859 +++| READ PF 01711 M01S00983.286l859 +++| RJ ISF INITIALIZE SORT FILES 01712 M01S00984.286l859 +++| SCE1 READW PF,SRTB,SBCEL 01713 M01S00985.286l859 +++| SB7 B7-SBCEL 01714 M01S00986.286l859 +++| ZR B7,SCE2 IF END OF ENTRIES 01715 M01S00987.286l859 +++| MX0 60 SET KEY MASK 01716 M01S00988.286l859 +++| SX1 B1 SET SORT KEY LENGTH 01717 M01S00989.286l859 +++| SB4 1 SET KEY OFFSET 01718 M01S00990.286l859 +++| SB5 NWCS SET ENTRY LENGTH 01719 M01S00991.286l859 +++| RJ WSB WRITE SORTED ENTRIES TO FILE 01720 M01S00992.286l859 +++| EQ SCE1 READ NEXT BUFFER OF ENTRIES 01721 M01S00993.286l859 +++| 01722 M01S00994.286l859 +++| SCE2 WRITER S1 FLUSH BUFFER 01723 M01S00995.286l859 +++| WRITER S2 FLUSH BUFFER 01724 M01S00996.286l859 +++| SX0 NWCS SET ENTRY LENGTH 01725 M01S00997.286l859 +++| SX1 SBCEC SET FULL BLOCK ENTRY COUNT 01726 M01S00998.286l859 +++| MX2 60 SET KEY MASK 01727 M01S00999.286l859 +++| SB4 B0 SET KEY OFFSET 01728 M01S01000.286l859 +++| SB5 1 SET KEY LENGTH 01729 M01S01001.286l859 +++| SA0 SW1B SET WORKING BUFFER 1 ADDRESS 01730 M01S01002.286l859 +++| SA5 SW2B SET WORKING BUFFER 2 ADDRESS 01731 M01S01003.286l859 +++| RJ MSF MERGE SORT FILES 01732 M01S01004.286l859 +++| EQ SCEX RETURN 01733 M01S01005.286l859 +++| STD SPACE 4,15 01734 M01S01006.286l859 +++|** STD - SORT TAPE ALTERNATE STORAGE DATA. 01735 M01S01007.286l859 +++|* 01736 M01S01008.286l859 +++|* ENTRY PROCESSED CATALOG ENTRIES ON FILE *PF*. 01737 M01S01009.286l859 +++|* 01738 M01S01010.286l859 +++|* EXIT (X1) = 0 IF NO TAPE ALTERNATE STORAGE DATA. 01739 M01S01011.286l859 +++|* (X1) = 1 IF ALTERNATE STORAGE DATA TO PROCESS. 01740 M01S01012.286l859 +++|* SORTED TAPE ALTERNATE STORAGE DATA ON FILE *S3*. 01741 M01S01013.286l859 +++|* 01742 M01S01014.286l859 +++|* USES X - 0, 1, 2, 3, 6. 01743 M01S01015.286l859 +++|* A - 0, 1, 2, 3, 5, 6, 7. 01744 M01S01016.286l859 +++|* B - 4, 5, 7. 01745 M01S01017.286l859 +++|* 01746 M01S01018.286l859 +++|* CALLS ISF, MSF, WSB. 01747 M01S01019.286l859 +++|* 01748 M01S01020.286l859 +++|* MACROS READ, READW, REWIND, WRITER. 01749 M01S01021.286l859 +++| 01750 M01S01022.286l859 +++| 01751 M01S01023.286l859 +++| STD SUBR ENTRY/EXIT 01752 M01S01024.286l859 +++| REWIND PF 01753 M01S01025.286l859 +++| READ PF 01754 M01S01026.286l859 +++| RJ ISF INITIALIZE SORT FILES 01755 M01S01027.286l859 +++| SX6 B0+ 01756 M01S01028.286l859 +++| SA6 STDC CLEAR DATA FLAG 01757 M01S01029.286l859 +++| 01758 M01S01030.286l859 +++|* WRITE DATA ENTRIES TO SORT FILES. 01759 M01S01031.286l859 +++| 01760 M01S01032.286l859 +++| STD1 SX6 SRTB 01761 M01S01033.286l859 +++| SA6 STDA INITIALIZE SORT BUFFER POINTER 01762 M01S01034.286l859 +++| STD2 READW PF,SW1B,NWCS READ CATALOG ENTRY AND STATUS 01763 M01S01035.286l859 +++| SA2 SW1B+FCTV 01764 M01S01036.286l859 +++| BX6 X1 01765 M01S01037.286l859 +++| SA6 STDB SAVE EOR STATUS 01766 M01S01038.286l859 +++| NZ X1,STD3 IF END OF ENTRIES 01767 M01S01039.286l859 +++| ZR X2,STD2 IF FILE NOT ON TAPE ALTERNATE STORAGE 01768 M01S01040.286l859 +++| SA3 SW1B+FCLF 01769 M01S01041.286l859 +++| SA4 STDA 01770 M01S01042.286l859 +++| MX6 36 01771 M01S01043.286l859 +++| LX6 24 01772 M01S01044.286l859 +++| BX2 X6*X2 ALTERNATE STORAGE FLAGS AND VSN IDENTIFIER 01773 M01S01045.286l859 +++| LX3 -12 01774 M01S01046.286l859 +++| BX3 -X6*X3 FILE LENGTH 01775 M01S01047.286l859 +++| BX6 X2+X3 MERGE VSN, FLAGS, AND FILE LENGTH 01776 M01S01048.286l859 +++| SA6 X4+ SET ALTERNATE STORAGE DATA IN SORT BUFFER 01777 M01S01049.286l859 +++| SX6 X4+1 ADVANCE BUFFER INDEX 01778 M01S01050.286l859 +++| SA6 STDC INDICATE DATA PRESENT 01779 M01S01051.286l859 +++| SA6 A4+ 01780 M01S01052.286l859 +++| SX1 X6-SRTB-SRTBL 01781 M01S01053.286l859 +++| NG X1,STD2 IF SORT BUFFER NOT FULL 01782 M01S01054.286l859 +++| STD3 SA4 STDA 01783 M01S01055.286l859 +++| SA2 TSKM 01784 M01S01056.286l859 +++| SX6 X4-SRTB 01785 M01S01057.286l859 +++| ZR X6,STD4 IF NO ENTRIES IN BUFFER 01786 M01S01058.286l859 +++| SX1 B1 SET SORT KEY LENGTH 01787 M01S01059.286l859 +++| SB4 B1 SET KEY OFFSET 01788 M01S01060.286l859 +++| SB5 B1 SET ENTRY LENGTH 01789 M01S01061.286l859 +++| BX0 X2 SET KEY MASK 01790 M01S01062.286l859 +++| SB6 X4 SET LWA+1 OF ENTRIES 01791 M01S01063.286l859 +++| RJ WSB WRITE SORTED ENTRIES TO FILE 01792 M01S01064.286l859 +++| SA1 STDB 01793 M01S01065.286l859 +++| ZR X1,STD1 IF NOT END OF ENTRIES 01794 M01S01066.286l859 +++| 01795 M01S01067.286l859 +++|* MERGE SORT FILES. 01796 M01S01068.286l859 +++| 01797 M01S01069.286l859 +++| STD4 SA1 STDC 01798 M01S01070.286l859 +++| ZR X1,STDX IF NO DATA PRESENT 01799 M01S01071.286l859 +++| WRITER S1 FLUSH BUFFER 01800 M01S01072.286l859 +++| WRITER S2 FLUSH BUFFER 01801 M01S01073.286l859 +++| SA2 TSKM SET KEY MASK 01802 M01S01074.286l859 +++| SX0 1 SET ENTRY LENGTH 01803 M01S01075.286l859 +++| SX1 SRTBL SET FULL BLOCK ENTRY COUNT 01804 M01S01076.286l859 +++| SB4 B0 SET KEY OFFSET 01805 M01S01077.286l859 +++| SB5 B1 SET KEY LENGTH 01806 M01S01078.286l859 +++| SA0 SW1B SET WORKING BUFFER 1 ADDRESS 01807 M01S01079.286l859 +++| SA5 SW2B SET WORKING BUFFER 2 ADDRESS 01808 M01S01080.286l859 +++| RJ MSF MERGE SORT FILES 01809 M01S01081.286l859 +++| SX1 B1 INDICATE DATA PRESENT 01810 M01S01082.286l859 +++| EQ STDX RETURN 01811 M01S01083.286l859 +++| 01812 M01S01084.286l859 +++| 01813 M01S01085.286l859 +++| STDA CON 0 SORT BUFFER INDEX 01814 M01S01086.286l859 +++| STDB CON 0 EOR STATUS 01815 M01S01087.286l859 +++| STDC CON 0 DATA PRESENT FLAG 01816 M01S01088.286l859 +++| SPACE 4,10 01817 M01S01089.286l859 +++|** GLOBAL DATA. 01818 M01S01090.286l859 +++| 01819 M01S01091.286l859 +++| 01820 M01S01092.286l859 +++| SFFA CON S1 SORT FILE FET ADDRESS 01821 M01S01093.286l859 +++| TSKM DATA 06000000000077777777B TAPE ALTERNATE STORAGE KEY MASK 01822 M01S01094.286l859 +++| TITLE COMCPFS - SORTED AND STATISTICAL OUTPUT SUBROUTINES. 01823 M01S01095.286l859 +++| AFS SPACE 4,20 01824 M01S01096.286l859 +++|** AFS - ACCUMULATE FILE STATISTICS. 01825 M01S01097.286l859 +++|* 01826 M01S01098.286l859 +++|* ENTRY CATALOG ENTRY IN *SW1B*. 01827 M01S01099.286l859 +++|* 01828 M01S01100.286l859 +++|* EXIT (NFIL+0) UPDATED IF INDIRECT ACCESS FILE. 01829 M01S01101.286l859 +++|* (NFIL+1) UPDATED IF DIRECT ACCESS FILE. 01830 M01S01102.286l859 +++|* (NSEC+0) UPDATED IF INDIRECT ACCESS FILE. 01831 M01S01103.286l859 +++|* (NSEC+1) UPDATED IF DIRECT ACCESS FILE. 01832 M01S01104.286l859 +++|* (DFIL) UPDATED IF FILE DISK RESIDENT. 01833 M01S01105.286l859 +++|* (DSEC) UPDATED IF FILE DISK RESIDENT. 01834 M01S01106.286l859 +++|* (CFIL) UPDATED IF FILE CARTRIDGE RESIDENT. 01835 M01S01107.286l859 +++|* (CSEC) UPDATED IF FILE CARTRIDGE RESIDENT. 01836 M01S01108.286l859 +++|* (TFIL) UPDATED IF FILE TAPE RESIDENT. 01837 M01S01109.286l859 +++|* (TSEC) UPDATED IF FILE TAPE RESIDENT. 01838 M01S01110.286l859 +++|* 01839 M01S01111.286l859 +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 01840 M01S01112.286l859 +++|* A - 1, 2, 3, 6, 7. 01841 M01S01113.286l859 +++| 01842 M01S01114.286l859 +++| 01843 M01S01115.286l859 +++| AFS SUBR ENTRY/EXIT 01844 M01S01116.286l859 +++| SA1 SW1B+FCLF+FCBT*0+FCBS*0 01845 M01S01117.286l859 +++| MX6 -1 01846 M01S01118.286l859 +++| LX1 0-11 01847 M01S01119.286l859 +++| BX6 -X6*X1 DIRECT/INDIRECT ACCESS FILE STATUS 01848 M01S01120.286l859 +++| LX1 0-36-0+11 01849 M01S01121.286l859 +++| SA2 NFIL+X6 GET FILE COUNT 01850 M01S01122.286l859 +++| SA3 NSEC+X6 GET SECTOR COUNT 01851 M01S01123.286l859 +++| MX5 -24 01852 M01S01124.286l859 +++| SX4 B1 01853 M01S01125.286l859 +++| BX5 -X5*X1 FILE LENGTH 01854 M01S01126.286l859 +++| LX1 59-23-0+36-60 01855 M01S01127.286l859 +++| IX6 X2+X4 ACCUMULATE INDIRECT/DIRECT FILES 01856 M01S01128.286l859 +++| IX7 X3+X5 ACCUMULATE INDIRECT/DIRECT SECTORS 01857 M01S01129.286l859 +++| SA6 A2 01858 M01S01130.286l859 +++| SA7 A3 01859 M01S01131.286l859 +++| PL X1,AFS1 IF FILE NOT DISK RESIDENT 01860 M01S01132.286l859 +++| SA2 DFIL 01861 M01S01133.286l859 +++| SA3 DSEC 01862 M01S01134.286l859 +++| IX6 X2+X4 ACCUMULATE DISK RESIDENT FILES 01863 M01S01135.286l859 +++| IX7 X3+X5 ACCUMULATE DISK RESIDENT SECTORS 01864 M01S01136.286l859 +++| SA6 A2 01865 M01S01137.286l859 +++| SA7 A3 01866 M01S01138.286l859 +++| AFS1 SA1 SW1B+FCAA 01867 M01S01139.286l859 +++| MX6 -36 01868 M01S01140.286l859 +++| BX6 -X6*X1 01869 M01S01141.286l859 +++| LX1 59-48 01870 M01S01142.286l859 +++| ZR X6,AFS2 IF FILE NOT CARTRIDGE RESIDENT 01871 M01S01143.286l859 +++| NG X1,AFS2 IF CARTRIDGE COPY OBSOLETE 01872 M01S01144.286l859 +++| SA2 CFIL 01873 M01S01145.286l859 +++| SA3 CSEC 01874 M01S01146.286l859 +++| IX6 X2+X4 ACCUMULATE CARTRIDGE RESIDENT FILES 01875 M01S01147.286l859 +++| IX7 X3+X5 ACCUMULATE CARTRIDGE RESIDENT SECTORS 01876 M01S01148.286l859 +++| SA6 A2+ 01877 M01S01149.286l859 +++| SA7 A3+ 01878 M01S01150.286l859 +++| AFS2 SA1 SW1B+FCTV 01879 M01S01151.286l859 +++| MX6 -24 01880 M01S01152.286l859 +++| BX6 -X6*X1 01881 M01S01153.286l859 +++| ZR X6,AFSX IF FILE NOT TAPE RESIDENT 01882 M01S01154.286l859 +++| SA2 TFIL 01883 M01S01155.286l859 +++| SA3 TSEC 01884 M01S01156.286l859 +++| IX6 X2+X4 ACCUMULATE TAPE RESIDENT FILES 01885 M01S01157.286l859 +++| IX7 X3+X5 ACCUMULATE TAPE RESIDENT SECTORS 01886 M01S01158.286l859 +++| SA6 A2 01887 M01S01159.286l859 +++| SA7 A3 01888 M01S01160.286l859 +++| EQ AFSX RETURN 01889 M01S01161.286l859 +++| CFS SPACE 4,15 01890 M01S01162.286l859 +++|** CFS - CONVERT FILE STATISTICS FOR OUTPUT. 01891 M01S01163.286l859 +++|* 01892 M01S01164.286l859 +++|* ENTRY (A5) = ADDRESS OF FIRST CONVERSION TABLE ENTRY. 01893 M01S01165.286l859 +++|* (X5) = FIRST CONVERSION TABLE ENTRY. 01894 M01S01166.286l859 +++|* CONVERSION TABLE ENTRY FORMAT - 01895 M01S01167.286l859 +++|* 30/ CONVERTED VALUE ADDRESS, 30/ STATISTIC ADDRESS 01896 M01S01168.286l859 +++|* CONVERSION TABLE TERMINATED WITH ZERO WORD. 01897 M01S01169.286l859 +++|* 01898 M01S01170.286l859 +++|* EXIT FILE STATISTICS CONVERTED FOR OUTPUT. 01899 M01S01171.286l859 +++|* 01900 M01S01172.286l859 +++|* USES X - 1, 5. 01901 M01S01173.286l859 +++|* A - 1, 5, 6. 01902 M01S01174.286l859 +++|* 01903 M01S01175.286l859 +++|* CALLS CDD. 01904 M01S01176.286l859 +++| 01905 M01S01177.286l859 +++| 01906 M01S01178.286l859 +++| CFS SUBR ENTRY/EXIT 01907 M01S01179.286l859 +++| CFS1 SA1 X5 01908 M01S01180.286l859 +++| RJ CDD CONVERT VALUE 01909 M01S01181.286l859 +++| AX5 30 SET CONVERTED VALUE ADDRESS 01910 M01S01182.286l859 +++| SA6 X5 STORE CONVERTED VALUE 01911 M01S01183.286l859 +++| SA5 A5+1 01912 M01S01184.286l859 +++| NZ X5,CFS1 IF MORE ENTRIES 01913 M01S01185.286l859 +++| EQ CFSX RETURN 01914 M01S01186.286l859 +++| IFS SPACE 4,10 01915 M01S01187.286l859 +++|** IFS - INITIALIZE FILE STATISTICS AREA. 01916 M01S01188.286l859 +++|* 01917 M01S01189.286l859 +++|* EXIT FILE STATISTICS CLEARED. 01918 M01S01190.286l859 +++|* 01919 M01S01191.286l859 +++|* USES X - 1, 2, 6. 01920 M01S01192.286l859 +++|* A - 1, 6. 01921 M01S01193.286l859 +++| 01922 M01S01194.286l859 +++| 01923 M01S01195.286l859 +++| IFS SUBR ENTRY/EXIT 01924 M01S01196.286l859 +++| SA1 FSTA 01925 M01S01197.286l859 +++| SX6 0 01926 M01S01198.286l859 +++| IFS1 SA6 A1 01927 M01S01199.286l859 +++| SA1 A1+B1 01928 M01S01200.286l859 +++| SX2 A1-FSTA-FSTAL 01929 M01S01201.286l859 +++| NZ X2,IFS1 IF MORE TO CLEAR 01930 M01S01202.286l859 +++| EQ IFSX RETURN 01931 M01S01203.286l859 +++| SID SPACE 4,15 01932 M01S01204.286l859 +++|** SID - SUM INDIRECT AND DIRECT ACCESS FILE COUNTS. 01933 M01S01205.286l859 +++|* 01934 M01S01206.286l859 +++|* ENTRY (NFIL+0) = INDIRECT ACCESS FILE COUNT. 01935 M01S01207.286l859 +++|* (NFIL+1) = DIRECT ACCESS FILE COUNT. 01936 M01S01208.286l859 +++|* (NSEC+0) = INDIRECT ACCESS SECTOR COUNT. 01937 M01S01209.286l859 +++|* (NSEC+1) = DIRECT ACCESS SECTOR COUNT. 01938 M01S01210.286l859 +++|* 01939 M01S01211.286l859 +++|* EXIT (NFIL+2) = TOTAL FILE COUNT. 01940 M01S01212.286l859 +++|* (NSEC=2) = TOTAL SECTOR COUNT. 01941 M01S01213.286l859 +++|* 01942 M01S01214.286l859 +++|* USES X - 1, 2, 6. 01943 M01S01215.286l859 +++|* A - 1, 2, 6. 01944 M01S01216.286l859 +++| 01945 M01S01217.286l859 +++| 01946 M01S01218.286l859 +++| SID SUBR ENTRY/EXIT 01947 M01S01219.286l859 +++| SA1 NFIL+0 01948 M01S01220.286l859 +++| SA2 NFIL+1 01949 M01S01221.286l859 +++| IX6 X1+X2 01950 M01S01222.286l859 +++| SA6 A2+B1 SET TOTAL FILE COUNT 01951 M01S01223.286l859 +++| SA1 NSEC+0 01952 M01S01224.286l859 +++| SA2 NSEC+1 01953 M01S01225.286l859 +++| IX6 X1+X2 01954 M01S01226.286l859 +++| SA6 A2+B1 SET TOTAL SECTOR COUNT 01955 M01S01227.286l859 +++| EQ SIDX RETURN 01956 M01S01228.286l859 +++| TSS SPACE 4,10 01957 M01S01229.286l859 +++|** TSS - WRITE TAPE ALTERNATE STORAGE STATISTICS SUBHEADER. 01958 M01S01230.286l859 +++|* 01959 M01S01231.286l859 +++|* ENTRY (X2) = OUTPUT FILE FET ADDRESS. 01960 M01S01232.286l859 +++|* 01961 M01S01233.286l859 +++|* EXIT TO SHR. 01962 M01S01234.286l859 +++|* (X6) = SUBHEADER LINE COUNT. 01963 M01S01235.286l859 +++|* 01964 M01S01236.286l859 +++|* USES X - 6. 01965 M01S01237.286l859 +++|* 01966 M01S01238.286l859 +++|* MACROS WRITEH. 01967 M01S01239.286l859 +++| 01968 M01S01240.286l859 +++| 01969 M01S01241.286l859 +++| TSS BSS 0 ENTRY 01970 M01S01242.286l859 +++| WRITEH X2,TSSA,4 WRITE TAPE ALTERNATE STORAGE SUBHEADER 01971 M01S01243.286l859 +++| WRITEH X2,BLAN,1 01972 M01S01244.286l859 +++| SX6 2 SET LINE COUNT 01973 M01S01245.286l859 +++| EQ SHR RETURN 01974 M01S01246.286l859 +++| USS SPACE 4,10 01975 M01S01247.286l859 +++|** USS - WRITE USER STATISTICS SUBHEADER. 01976 M01S01248.286l859 +++|* 01977 M01S01249.286l859 +++|* ENTRY (X2) = OUTPUT FILE FET ADDRESS. 01978 M01S01250.286l859 +++|* 01979 M01S01251.286l859 +++|* EXIT TO SHR. 01980 M01S01252.286l859 +++|* (X6) = SUBHEADER LINE COUNT. 01981 M01S01253.286l859 +++|* 01982 M01S01254.286l859 +++|* USES X - 6. 01983 M01S01255.286l859 +++|* 01984 M01S01256.286l859 +++|* MACROS WRITEH. 01985 M01S01257.286l859 +++| 01986 M01S01258.286l859 +++| 01987 M01S01259.286l859 +++| USS BSS 0 ENTRY 01988 M01S01260.286l859 +++| WRITEH X2,USSA,12 WRITE USER STATISTICS SUBHEADER 01989 M01S01261.286l859 +++| WRITEH X2,USSB,12 01990 M01S01262.286l859 +++| WRITEH X2,USSC,12 01991 M01S01263.286l859 +++| WRITEH X2,BLAN,1 01992 M01S01264.286l859 +++| SX6 4 SET LINE COUNT 01993 M01S01265.286l859 +++| EQ SHR RETURN 01994 M01S01266.286l859 +++| SPACE 4,10 01995 M01S01267.286l859 +++|** FILE STATISTICS AREA. 01996 M01S01268.286l859 +++| 01997 M01S01269.286l859 +++| 01998 M01S01270.286l859 +++| FSTA BSS 0 START OF FILE STATISTICS AREA 01999 M01S01271.286l859 +++| 02000 M01S01272.286l859 +++| NFIL CON 0 INDIRECT ACCESS FILES 02001 M01S01273.286l859 +++| CON 0 DIRECT ACCESS FILES 02002 M01S01274.286l859 +++| CON 0 TOTAL FILES 02003 M01S01275.286l859 +++| NSEC CON 0 INDIRECT ACCESS SECTORS 02004 M01S01276.286l859 +++| CON 0 DIRECT ACCESS SECTORS 02005 M01S01277.286l859 +++| CON 0 TOTAL SECTORS 02006 M01S01278.286l859 +++| 02007 M01S01279.286l859 +++| AVFS CON 0 AVERAGE FILE SIZE 02008 M01S01280.286l859 +++| 02009 M01S01281.286l859 +++| DFIL CON 0 DISK RESIDENT FILES 02010 M01S01282.286l859 +++| DSEC CON 0 DISK RESIDENT SECTORS 02011 M01S01283.286l859 +++| 02012 M01S01284.286l859 +++| CFIL CON 0 CARTRIDGE RESIDENT FILES 02013 M01S01285.286l859 +++| CSEC CON 0 CARTRIDGE RESIDENT SECTORS 02014 M01S01286.286l859 +++| 02015 M01S01287.286l859 +++| TFIL CON 0 TAPE RESIDENT FILES 02016 M01S01288.286l859 +++| TSEC CON 0 TAPE RESIDENT SECTORS 02017 M01S01289.286l859 +++| 02018 M01S01290.286l859 +++| FSTAL EQU *-FSTA LENGTH OF FILE STATISTICS AREA 02019 M01S01291.286l859 +++| SPACE 4,10 02020 M01S01292.286l859 +++|* TAPE ALTERNATE STORAGE STATISTICS SUBHEADER. 02021 M01S01293.286l859 +++| 02022 M01S01294.286l859 +++| TSSA DATA 50H TYPE VSN FILES SECTORS 02023 M01S01295.286l859 +++| SPACE 4,10 02024 M01S01296.286l859 +++|** USER STATISTICS PAGE SUBHEADER. 02025 M01S01297.286l859 +++| 02026 M01S01298.286l859 +++| 02027 M01S01299.286l859 +++| USSA DATA 50H USER TOTAL TOTAL AVERAGE INDIRECT 02028 M01S01300.286l859 +++| DATA 50H DIRECT DISK DISK CARTRIDGE CARTRIDGE 02029 M01S01301.286l859 +++| DATA 20H TAPE TAPE 02030 M01S01302.286l859 +++| USSB DATA 50H INDEX FILES SECTORS SECTORS ACCESS 02031 M01S01303.286l859 +++| DATA 50H ACCESS RESIDENT RESIDENT RESIDENT RESIDENT 02032 M01S01304.286l859 +++| DATA 20H RESIDENT RESIDENT 02033 M01S01305.286l859 +++| USSC DATA 50H PER FILE FILES 02034 M01S01306.286l859 +++| DATA 50H FILES FILES SECTORS FILES SECTORS 02035 M01S01307.286l859 +++| DATA 20H FILES SECTORS 02036 M01S01308.286l859 +++| TITLE COMCPFS - OUTPUT FILE GENERAL SUBROUTINES. 02037 M00S00666.comcpfs +++| SPACE 4,10 02038 M00S00667.comcpfs +++|* *COMCFCE* EQUIVALENCES. 02039 M00S00668.comcpfs +++| 02040 M00S00669.comcpfs +++| 02041 M00S00670.comcpfs +++| CHDR1 EQU /COMCFCE/CHDR1 CATALOG ENTRY SUBHEADER WORD 1 02042 M00S00671.comcpfs +++| CHDR2 EQU /COMCFCE/CHDR2 CATALOG ENTRY SUBHEADER WORD 2 02043 M00S00672.comcpfs +++| CHDR3 EQU /COMCFCE/CHDR3 CATALOG ENTRY SUBHEADER WORD 3 02044 M00S00673.comcpfs +++| CHDR4 EQU /COMCFCE/CHDR4 CATALOG ENTRY SUBHEADER WORD 4 02045 M00S00674.comcpfs +++| FCELL EQU /COMCFCE/FCELL LENGTH OF FIRST THREE LINES 02046 M00S00675.comcpfs +++| FCELB EQU /COMCFCE/FCELB LENGTH OF FOURTH LINE
| Line S01309 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02047 M01S01309.286l859 +++| ACMD EQU /COMCFCE/ACMD DIRECT/INDIRECT FILE TYPE 02048 M01S01310.286l859 +++| NMPS EQU /COMCFCE/NMPS FILE NUMBER LINE DEFINITION 02049 M01S01311.286l859 +++| FNPS EQU /COMCFCE/FNPS FILE NAME LINE DEFINITION 02050 M01S01312.286l859 +++| AMPS EQU /COMCFCE/AMPS FILE TYPE LINE DEFINITION 02051 M01S01313.286l859 +++| LEPS EQU /COMCFCE/LEPS FILE LENGTH LINE DEFINITION 02052 M01S01314.286l859 +++| CDPS EQU /COMCFCE/CDPS CREATION DATE LINE DEFINITION 02053 M01S01315.286l859 +++| CTPS EQU /COMCFCE/CTPS CREATION TIME LINE DEFINITION 02054 M00S00676.comcpfs +++| ALN SPACE 4,20 02055 M00S00677.comcpfs +++|** ALN - ALLOCATE LINES. 02056 M00S00678.comcpfs +++|* 02057 M00S00679.comcpfs +++|* ENTRY (X6) = NUMBER OF LINES REQUIRED.
| Line S00680 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02058 M01S00680.286l859 ---|* (X0) = OUTPUT FILE FET ADDRESS. 02059 M01S00681.286l859 ---|* (PSAD) = 0 IF NO PAGE SUBHEADER. 02060 M01S00682.286l859 ---|* (PSAD) = *CISA* IF PRINT CIR SUBHEADER ON NEW PAGE. 02061 M01S00683.286l859 ---|* (PSAD) = *CHDR1* IF PRINT CATALOG ENTRY SUBHEADER ON 02062 M01S00684.286l859 ---|* NEW PAGE.
| Line S01316 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02063 M01S01316.286l859 +++|* (OFFA) = OUTPUT FILE FET ADDRESS. 02064 M01S01317.286l859 +++|* (PSPA) = PAGE SUBHEADER PROCESSOR ADDRESS. 02065 M00S00685.comcpfs +++|*
| Line S00686 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02066 M01S00686.286l859 ---|* EXIT (X0) = OUTPUT FILE FET ADDRESS. 02067 M01S00687.286l859 ---|* (LNPP) = UPDATED LINE COUNT.
| Line S01318 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02068 M01S01318.286l859 +++|* EXIT (PGLC) = UPDATED LINE COUNT. 02069 M00S00688.comcpfs +++|* (PAGE) = UPDATED PAGE NUMBER IF NEW PAGE. 02070 M00S00689.comcpfs +++|*
| Line S00690 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02071 M01S00690.286l859 ---|* USES X - 1, 2, 6, 7. 02072 M01S00691.286l859 ---|* A - 1, 2, 6, 7.
| Line S01319 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02073 M01S01319.286l859 +++|* USES X - 1, 2, 3, 6, 7. 02074 M01S01320.286l859 +++|* A - 1, 2, 3, 6, 7. 02075 M01S01321.286l859 +++|* B - 2. 02076 M00S00692.comcpfs +++|*
| Line S00693 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02077 M01S00693.286l859 ---|* CALLS CDD.
| Line S01322 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02078 M01S01322.286l859 +++|* CALLS CDD, SPECIFIED PAGE SUBHEADER PROCESSOR. 02079 M00S00694.comcpfs +++|* 02080 M00S00695.comcpfs +++|* MACROS WRITEH. 02081 M00S00696.comcpfs +++| 02082 M00S00697.comcpfs +++|
| Line S00698 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02083 M01S00698.286l859 ---| ALN3 SA7 LNPP SET LINE COUNT
| Line S01323 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02084 M01S01323.286l859 +++| ALN2 SA7 PGLC SET LINE COUNT 02085 M00S00699.comcpfs +++| 02086 M00S00700.comcpfs +++| ALN SUBR ENTRY/EXIT
| Line S00701 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02087 M01S00701.286l859 ---| ALN1 SA1 LNPP 02088 M01S00702.286l859 ---| SA2 A1+B1
| Line S01324 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02089 M01S01324.286l859 +++| ALN1 SA1 PGLC 02090 M01S01325.286l859 +++| SA2 PGLL 02091 M00S00703.comcpfs +++| IX7 X1+X6 ADVANCE LINES ON PAGE 02092 M00S00704.comcpfs +++| IX2 X2-X7
| Line S00705 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02093 M01S00705.286l859 ---| PL X2,ALN3 IF ROOM ON CURRENT PAGE 02094 M01S00706.286l859 ---| SA6 A1 COUNT REQUIRED LINES 02095 M01S00707.286l859 ---| SA1 PAGE SET NEXT PAGE
| Line S01326 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02096 M01S01326.286l859 +++| PL X2,ALN2 IF ROOM ON CURRENT PAGE 02097 M01S01327.286l859 +++| SA1 PAGE 02098 M01S01328.286l859 +++| SX6 X6+3 COUNT TITLE AND REQUIRED LINES 02099 M01S01329.286l859 +++| SA6 PGLC SET LINE COUNT 02100 M00S00708.comcpfs +++| SX6 X1+B1 02101 M00S00709.comcpfs +++| SA6 A1 02102 M00S00710.comcpfs +++| RJ CDD SET PAGE NUMBER IN PAGE TITLE 02103 M00S00711.comcpfs +++| LX6 24 02104 M00S00712.comcpfs +++| SA6 PGPN+1
| Line S00713 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02105 M01S00713.286l859 ---| WRITEH X0,PGTA,PGTAL WRITE PAGE TITLE
| Line S01330 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02106 M01S01330.286l859 +++| SA2 OFFA SET FET ADDRESS 02107 M01S01331.286l859 +++| WRITEH X2,PGTA,PGTAL WRITE PAGE TITLE 02108 M00S00714.comcpfs +++| WRITEH X2,PGTB,PGTBL 02109 M00S00715.comcpfs +++| WRITEH X2,BLAN,1
| Line S00716 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02110 M01S00716.286l859 ---| SA1 PSAD 02111 M01S00717.286l859 ---| SX6 3 SET TITLE LENGTH 02112 M01S00718.286l859 ---| ZR X1,ALN1 IF NO PAGE SUBHEADER DEFINED 02113 M01S00719.286l859 ---| SX2 X1-CHDR1 02114 M01S00720.286l859 ---| ZR X2,ALN2 IF CATALOG ENTRY SUBHEADER 02115 M01S00721.286l859 ---| WRITEH X0,CISA,7 WRITE CIR SUBHEADER 02116 M01S00722.286l859 ---| WRITEH X2,CISB,7 02117 M01S00723.286l859 ---| SX6 3+3 SET TITLE PLUS SUBHEADER LENGTH
| Line S01332 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02118 M01S01332.286l859 +++| SA1 PSPA 02119 M01S01333.286l859 +++| ZR X1,ALNX IF NO SUBHEADER PROCESSOR 02120 M01S01334.286l859 +++| SB2 X1+ SET SUBHEADER PROCESSOR ENTRY ADDRESS 02121 M01S01335.286l859 +++| JP B2 EXECUTE SUBHEADER PROCESSOR 02122 M01S01336.286l859 +++| SHR BSS 0 DEFINE SUBHEADER PROCESSOR RETURN 02123 M00S00724.comcpfs +++| EQ ALN1 ADVANCE LINE COUNT
| Line S01337 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02124 M01S01337.286l859 +++| CES SPACE 4,10 02125 M01S01338.286l859 +++|** CES - WRITE CATALOG ENTRY SUBHEADER. 02126 M01S01339.286l859 +++|* 02127 M01S01340.286l859 +++|* ENTRY (X2) = OUTPUT FILE FET ADDRESS. 02128 M01S01341.286l859 +++|* 02129 M01S01342.286l859 +++|* EXIT TO SHR. 02130 M01S01343.286l859 +++|* (X6) = SUBHEADER LINE COUNT. 02131 M01S01344.286l859 +++|* 02132 M01S01345.286l859 +++|* MACROS WRITEH. 02133 M00S00725.comcpfs +++|
| Line S00726 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02134 M01S00726.286l859 ---|ALN2 WRITEH X0,CHDR1,FCELL WRITE CATALOG ENTRY SUBHEADER
| Line S01346 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02135 M01S01346.286l859 +++| 02136 M01S01347.286l859 +++| CES BSS 0 ENTRY 02137 M01S01348.286l859 +++| WRITEH X2,CHDR1,FCELL WRITE CATALOG ENTRY SUBHEADER 02138 M00S00727.comcpfs +++| WRITEH X2,CHDR2,FCELL 02139 M00S00728.comcpfs +++| WRITEH X2,CHDR3,FCELL 02140 M00S00729.comcpfs +++| WRITEH X2,CHDR4,FCELB
| Line S00730 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02141 M01S00730.286l859 ---| SX6 3+4 SET TITLE PLUS SUBHEADER LENGTH 02142 M01S00731.286l859 ---| EQ ALN1 ADVANCE LINE COUNT
| Line S01349 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02143 M01S01349.286l859 +++| SX6 4 SET LINE COUNT 02144 M01S01350.286l859 +++| EQ SHR RETURN 02145 M01S01351.286l859 +++| CIS SPACE 4,10 02146 M01S01352.286l859 +++|** CIS - WRITE CIR ENTRY SUBHEADER. 02147 M01S01353.286l859 +++|* 02148 M01S01354.286l859 +++|* ENTRY (X2) = OUTPUT FILE FET ADDRESS. 02149 M01S01355.286l859 +++|* 02150 M01S01356.286l859 +++|* EXIT TO SHR. 02151 M01S01357.286l859 +++|* (X6) = SUBHEADER LINE COUNT. 02152 M01S01358.286l859 +++|* 02153 M01S01359.286l859 +++|* MACROS WRITEH. 02154 M01S01360.286l859 +++| 02155 M01S01361.286l859 +++| 02156 M01S01362.286l859 +++| CIS BSS 0 ENTRY 02157 M01S01363.286l859 +++| WRITEH X2,CISA,7 WRITE CIR SUBHEADER 02158 M01S01364.286l859 +++| WRITEH X2,CISB,7 02159 M01S01365.286l859 +++| SX6 2 SET LINE COUNT 02160 M01S01366.286l859 +++| EQ SHR RETURN 02161 M00S00732.comcpfs +++| FAB SPACE 4,15 02162 M00S00733.comcpfs +++|** FAB - FLUSH SUMMARY FILE ASSEMBLY BUFFER. 02163 M00S00734.comcpfs +++|* 02164 M00S00735.comcpfs +++|* ENTRY (SABF) = FWA SUMMARY FILE ASSEMBLY BUFFER. 02165 M00S00736.comcpfs +++|* (SABI) = SUMMARY FILE ASSEMBLY BUFFER IN 02166 M00S00737.comcpfs +++|* POINTER. 02167 M00S00738.comcpfs +++|* (CFBI) = CONTROL WORD BLOCK INDENTIFIER. 02168 M00S00739.comcpfs +++|* 02169 M00S00740.comcpfs +++|* EXIT DATA IN ASSEMBLY BUFFER WRITTEN TO FILE. 02170 M00S00741.comcpfs +++|* 02171 M00S00742.comcpfs +++|* USES X - 1, 2, 3, 6. 02172 M00S00743.comcpfs +++|* A - 1, 3, 6. 02173 M00S00744.comcpfs +++|* B - 7. 02174 M00S00745.comcpfs +++|* 02175 M00S00746.comcpfs +++|* MACROS WRITEW. 02176 M00S00747.comcpfs +++| 02177 M00S00748.comcpfs +++| 02178 M00S00749.comcpfs +++| FAB SUBR ENTRY/EXIT 02179 M00S00750.comcpfs +++| SA3 SABI 02180 M00S00751.comcpfs +++| SA1 CFBI 02181 M00S00752.comcpfs +++| SX2 X3-SABF SET BLOCK WORD COUNT 02182 M00S00753.comcpfs +++| ZR X2,FABX IF ASSEMBLY BUFFER EMPTY 02183 M00S00754.comcpfs +++| BX6 X1+X2 BLOCK CONTROL WORD
| Line S01367 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02184 M01S01367.286l859 +++| SB7 X2+B1 SET WORD COUNT TO WRITE 02185 M00S00755.comcpfs +++| SA6 SBCW
| Line S00756 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02186 M01S00756.286l859 ---| SB7 X2+B1 SET WORD COUNT TO WRITE 02187 M00S00757.comcpfs +++| WRITEW SU,SBCW,B7 WRITE CONTROL WORD AND BLOCK 02188 M00S00758.comcpfs +++| SX6 SABF RESET IN POINTER 02189 M00S00759.comcpfs +++| SA6 SABI 02190 M00S00760.comcpfs +++| EQ FABX RETURN 02191 M00S00761.comcpfs +++| FCI SPACE 4,15 02192 M00S00762.comcpfs +++|** FCI - FORMAT CIR ENTRY FOR OUTPUT. 02193 M00S00763.comcpfs +++|* 02194 M00S00764.comcpfs +++|* ENTRY (X6) = FWA OF CIR ENTRY.
| Line S00765 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02195 M01S00765.286l859 ---|* (X0) = OUTPUT FILE FET ADDRESS.
| Line S01368 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02196 M01S01368.286l859 +++|* (OFFA) = OUTPUT FILE FET ADDRESS. 02197 M00S00766.comcpfs +++|* 02198 M00S00767.comcpfs +++|* EXIT ENTRY WRITTEN TO OUTPUT FILE.
| Line S00768 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02199 M01S00768.286l859 ---|* (X0) = OUTPUT FILE FET ADDRESS. 02200 M00S00769.comcpfs +++|* 02201 M00S00770.comcpfs +++|* USES X - 1, 2, 5, 6. 02202 M00S00771.comcpfs +++|* A - 1, 6. 02203 M00S00772.comcpfs +++|* 02204 M00S00773.comcpfs +++|* CALLS ALN, CDD, COD, SFN. 02205 M00S00774.comcpfs +++|* 02206 M00S00775.comcpfs +++|* MACROS EDATE, ETIME, WRITEH. 02207 M00S00776.comcpfs +++| 02208 M00S00777.comcpfs +++| 02209 M00S00778.comcpfs +++| FCI SUBR ENTRY/EXIT 02210 M00S00779.comcpfs +++| SA6 FCIA SAVE CIR ENTRY ADDRESS 02211 M00S00780.comcpfs +++| SA1 CENN INCREMENT CATALOG ENTRY NUMBER 02212 M00S00781.comcpfs +++| SX6 X1+B1 02213 M00S00782.comcpfs +++| SA6 A1 02214 M00S00783.comcpfs +++| SX6 2 ALLOCATE LINES FOR ENTRY 02215 M00S00784.comcpfs +++| RJ ALN 02216 M00S00785.comcpfs +++| SA1 CENN OUTPUT ENTRY NUMBER 02217 M00S00786.comcpfs +++| RJ CDD 02218 M00S00787.comcpfs +++| LX6 12 02219 M00S00788.comcpfs +++| SA6 COBF 02220 M00S00789.comcpfs +++| SA1 FCIA GET FILE NAME AND USER INDEX 02221 M00S00790.comcpfs +++| SA1 X1 02222 M00S00791.comcpfs +++| MX6 42 02223 M00S00792.comcpfs +++| BX5 -X6*X1 02224 M00S00793.comcpfs +++| BX1 X6*X1 02225 M00S00794.comcpfs +++| RJ SFN SPACE FILL FILE NAME 02226 M00S00795.comcpfs +++| SA6 COBF+B1 SET FILE NAME 02227 M00S00796.comcpfs +++| BX1 X5 02228 M00S00797.comcpfs +++| RJ COD CONVER USER INDEX 02229 M00S00798.comcpfs +++| LX6 12 02230 M00S00799.comcpfs +++| SA6 COBF+2 SET USER INDEX 02231 M00S00800.comcpfs +++| SA1 FCIA GET ACCESS COUNT AND DEVICE NUMBER 02232 M00S00801.comcpfs +++| SA1 X1+B1 02233 M00S00802.comcpfs +++| MX2 18 02234 M00S00803.comcpfs +++| BX5 X2*X1 ACCESS COUNT 02235 M00S00804.comcpfs +++| LX5 18 02236 M00S00805.comcpfs +++| LX1 18 02237 M00S00806.comcpfs +++| MX2 6 02238 M00S00807.comcpfs +++| BX1 X2*X1 DEVICE NUMBER 02239 M00S00808.comcpfs +++| LX1 6 02240 M00S00809.comcpfs +++| ZR X1,FCI2 IF DEVICE NUMBER NOT AVAILABLE 02241 M00S00810.comcpfs +++| RJ COD CONVERT DEVICE NUMBER 02242 M00S00811.comcpfs +++| LX6 24 02243 M00S00812.comcpfs +++| SA6 COBF+6 SET DEVICE NUMBER 02244 M00S00813.comcpfs +++| EQ FCI3 CONVERT ACCESS COUNT 02245 M00S00814.comcpfs +++| 02246 M00S00815.comcpfs +++| FCI2 SA1 BLAN SET BLANK DEVICE NUMBER 02247 M00S00816.comcpfs +++| BX6 X1 02248 M00S00817.comcpfs +++| SA6 COBF+6 02249 M00S00818.comcpfs +++| FCI3 BX1 X5 02250 M00S00819.comcpfs +++| RJ COD CONVERT ACCESS COUNT 02251 M00S00820.comcpfs +++| LX6 12 02252 M00S00821.comcpfs +++| SA6 COBF+3 SET ACCESS COUNT 02253 M00S00822.comcpfs +++| SA1 FCIA GET ACCESS DATE AND TIME 02254 M00S00823.comcpfs +++| SA1 X1+B1 02255 M00S00824.comcpfs +++| MX2 -18 02256 M00S00825.comcpfs +++| BX5 -X2*X1 ACCESS TIME 02257 M00S00826.comcpfs +++| AX1 18 02258 M00S00827.comcpfs +++| BX1 -X2*X1 ACCESS DATE 02259 M00S00828.comcpfs +++| EDATE X1 EDIT ACCESS DATE 02260 M00S00829.comcpfs +++| SA6 COBF+4 SET ACCESS DATE 02261 M00S00830.comcpfs +++| BX1 X5 02262 M00S00831.comcpfs +++| ETIME X1 EDIT ACCESS TIME 02263 M00S00832.comcpfs +++| SA6 COBF+5 SET ACCESS TIME
| Line S00833 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02264 M01S00833.286l859 ---| WRITEH X0,BLAN,1 WRITE CIR ENTRY INFORMATION 02265 M01S00834.286l859 ---| WRITEH X0,COBF,7
| Line S01369 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02266 M01S01369.286l859 +++| SA2 OFFA SET FET ADDRESS 02267 M01S01370.286l859 +++| WRITEH X2,BLAN,1 WRITE CIR ENTRY INFORMATION 02268 M01S01371.286l859 +++| WRITEH X2,COBF,7 02269 M00S00835.comcpfs +++| EQ FCIX RETURN 02270 M00S00836.comcpfs +++| 02271 M00S00837.comcpfs +++| 02272 M00S00838.comcpfs +++| FCIA CON 0 CIR ENTRY ADDRESS 02273 M00S00839.comcpfs +++| ICI SPACE 4,15 02274 M00S00840.comcpfs +++|** ICI - INITIALIZE CATALOG IMAGE RECORD PROCESSING PARAMETERS. 02275 M00S00841.comcpfs +++|* 02276 M00S00842.comcpfs +++|* EXIT OUTPUT FILE HEADERS SET FOR CATALOG IMAGE RECORD 02277 M00S00843.comcpfs +++|* PROCESSING.
| Line S00844 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02278 M01S00844.286l859 ---|* SUMMARY FILE SET FOR CATALOG IMAGE RECORD 02279 M01S00845.286l859 ---|* PROCESSING.
| Line S01372 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02280 M01S01372.286l859 +++|* SUMMARY FILE SET FOR CATALOG IMAGE RECORD PROCESSING. 02281 M00S00846.comcpfs +++|*
| Line S00847 Modification History | |
|---|---|
M01 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02282 M01S00847.ns2790 ---|* USES X - 1, 2, 6.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02283 M01S00038.ns2790 +++|* USES X - 1, 6. 02284 M00S00848.comcpfs +++|* A - 6. 02285 M00S00849.comcpfs +++|*
| Line S00850 Modification History | |
|---|---|
M01 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02286 M01S00850.ns2790 ---|* CALLS FAB, RPP.
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02287 M01S00039.ns2790 +++|* CALLS FAB.
| Line S01373 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02288 M01S01373.286l859 +++|* 02289 M01S01374.286l859 +++|* MACROS REWIND. 02290 M00S00851.comcpfs +++| 02291 M00S00852.comcpfs +++| 02292 M00S00853.comcpfs +++| ICI SUBR ENTRY/EXIT
| Line S00854 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02293 M01S00854.286l859 ---| SX2 CITX SET CIR TITLE TEXT 02294 M01S00855.286l859 ---| SX6 CISA SET CIR SUBHEADER
| Line S01375 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02295 M02S01375.ns2790 ---| SX2 IMTX SET CIR TITLE TEXT 02296 M02S01376.ns2790 ---| SX6 CIS SET CIR SUBHEADER PROCESSOR
| Line S00856 Modification History | |
|---|---|
M01 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02297 M01S00856.ns2790 ---| RJ RPP RESET PAGE PARAMETERS 02298 M00S00857.comcpfs +++| RJ FAB FLUSH ASSEMBLY BUFFER
| Line S00858 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02299 M01S00858.286l859 ---| SA1 CIID SET CIR BLOCK IDENTIFIER
| Line S01377 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02300 M01S01377.286l859 +++| SA1 TSBI+/COMSPFS/CISB SET CIR BLOCK TYPE 02301 M00S00859.comcpfs +++| BX6 X1 02302 M00S00860.comcpfs +++| SA6 CFBI
| Line S01378 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02303 M01S01378.286l859 +++| REWIND PF REWIND PROCESSED CIR ENTRIES FILE 02304 M01S01379.286l859 +++| SX6 B0+ 02305 M01S01380.286l859 +++| SA6 FPSF CLEAR FILES PROCESSED 02306 M00S00861.comcpfs +++| EQ ICIX RETURN
| Line S00862 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02307 M01S00862.286l859 ---| IFL SPACE 4,10
| Line S01381 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02308 M01S01381.286l859 +++| IFL SPACE 4,15 02309 M00S00863.comcpfs +++|** IFL - INITIALIZE FILE PROCESSING PARAMETERS. 02310 M00S00864.comcpfs +++|* 02311 M00S00865.comcpfs +++|* EXIT OUTPUT FILE HEADERS SET FOR FILE PROCESSING. 02312 M00S00866.comcpfs +++|* SUMMARY FILE SET FOR FILE PROCESSING. 02313 M00S00867.comcpfs +++|*
| Line S00868 Modification History | |
|---|---|
M01 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02314 M01S00868.ns2790 ---|* USES X - 1, 2, 6.
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02315 M01S00040.ns2790 +++|* USES X - 1, 6. 02316 M00S00869.comcpfs +++|* A - 6. 02317 M00S00870.comcpfs +++|*
| Line S00871 Modification History | |
|---|---|
M01 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02318 M01S00871.ns2790 ---|* CALLS FAB, RPP.
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02319 M01S00041.ns2790 +++|* CALLS FAB.
| Line S01382 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02320 M01S01382.286l859 +++|* 02321 M01S01383.286l859 +++|* MACROS REWIND. 02322 M00S00872.comcpfs +++| 02323 M00S00873.comcpfs +++| 02324 M00S00874.comcpfs +++| IFL SUBR ENTRY/EXIT
| Line S00875 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02325 M01S00875.286l859 ---| SX2 CPTX SET CATALOG ENTRY PROCESSING TITLE 02326 M01S00876.286l859 ---| SX6 CHDR1 SET CATALOG ENTRY SUBHEADER
| Line S01384 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02327 M02S01384.ns2790 ---| SX2 FMTX SET FILE PROCESSING TITLE 02328 M02S01385.ns2790 ---| SX6 CES SET CATALOG ENTRY SUBHEADER PROCESSOR
| Line S00877 Modification History | |
|---|---|
M01 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02329 M01S00877.ns2790 ---| RJ RPP RESET PAGE PARAMETERS 02330 M00S00878.comcpfs +++| RJ FAB FLUSH ASSEMBLY BUFFER
| Line S00879 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02331 M01S00879.286l859 ---| SA1 CEID SET CATALOG ENTRIES BLOCK IDENTIFIER
| Line S01386 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02332 M01S01386.286l859 +++| SA1 TSBI+/COMSPFS/CESB SET CATALOG ENTRIES BLOCK TYPE 02333 M00S00880.comcpfs +++| BX6 X1 02334 M00S00881.comcpfs +++| SA6 CFBI
| Line S01387 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02335 M01S01387.286l859 +++| REWIND PF REWIND PROCESSED CATALOG ENTRIES FILE 02336 M01S01388.286l859 +++| SX6 B0+ 02337 M01S01389.286l859 +++| SA6 FPSF CLEAR FILES PROCESSED 02338 M00S00882.comcpfs +++| EQ IFLX RETURN 02339 M00S00883.comcpfs +++| MWA SPACE 4,25 02340 M00S00884.comcpfs +++|** MWA - MOVE WORDS TO BLOCK ASSEMBLY AREA. 02341 M00S00885.comcpfs +++|* 02342 M00S00886.comcpfs +++|* ENTRY (X1) = WORD COUNT. 02343 M00S00887.comcpfs +++|* (X2) = ADDRESS OF DATA TO ENTER INTO BLOCK. 02344 M00S00888.comcpfs +++|* (X0) = WORDS TO ALLOCATE FOR NEW ENTRY. 02345 M00S00889.comcpfs +++|* (X0) = 0, IF NOT NEW ENTRY. 02346 M00S00890.comcpfs +++|* (SABF) = SUMMARY FILE ASSEMBLY BUFFER FWA. 02347 M00S00891.comcpfs +++|* (SABI) = SUMMARY FILE ASSEMBLY BUFFER IN POINTER. 02348 M00S00892.comcpfs +++|* (CFBI) = BLOCK CONTROL WORD IDENTIFIER. 02349 M00S00893.comcpfs +++|* 02350 M00S00894.comcpfs +++|* EXIT DATA ENTERED IN ASSEMBLY AREA. 02351 M00S00895.comcpfs +++|* BLOCK WRITTEN TO FILE IF NOT ROOM FOR NEW ENTRY (X0 02352 M00S00896.comcpfs +++|* .GT. WORDS REMAINING IN BLOCK). 02353 M00S00897.comcpfs +++|* 02354 M00S00898.comcpfs +++|* USES X - 1, 2, 3, 6, 7. 02355 M00S00899.comcpfs +++|* A - 1, 2, 3, 6, 7. 02356 M00S00900.comcpfs +++|* 02357 M00S00901.comcpfs +++|* CALLS FAB. 02358 M00S00902.comcpfs +++|* 02359 M00S00903.comcpfs +++|* MACROS MOVE. 02360 M00S00904.comcpfs +++| 02361 M00S00905.comcpfs +++| 02362 M00S00906.comcpfs +++| MWA SUBR ENTRY/EXIT 02363 M00S00907.comcpfs +++| SA3 SABI 02364 M00S00908.comcpfs +++| BX6 X1 SAVE WORD COUNT 02365 M00S00909.comcpfs +++| BX7 X2 SAVE DATA ADDRESS 02366 M00S00910.comcpfs +++| SA6 MWAA 02367 M00S00911.comcpfs +++| SA7 MWAB 02368 M00S00912.comcpfs +++| ZR X0,MWA1 IF NOT START OF NEW ENTRY 02369 M00S00913.comcpfs +++| IX6 X3+X0 02370 M00S00914.comcpfs +++| SX6 X6-SABF-SABFL-1 02371 M00S00915.comcpfs +++| NG X6,MWA1 IF ROOM IN CURRENT BLOCK FOR ENTRY 02372 M00S00916.comcpfs +++| RJ FAB FLUSH ASSEMBLY BUFFER 02373 M00S00917.comcpfs +++| SA1 MWAA RESTORE WORD COUNT 02374 M00S00918.comcpfs +++| SA2 MWAB RESTORE DATA ADDRESS 02375 M00S00919.comcpfs +++| SA3 SABI RESTORE IN POINTER 02376 M00S00920.comcpfs +++| MWA1 MOVE X1,X2,X3 MOVE DATA TO BLOCK ASSEMBLY AREA 02377 M00S00921.comcpfs +++| SA1 MWAA UPDATE IN POINTER 02378 M00S00922.comcpfs +++| SA3 SABI 02379 M00S00923.comcpfs +++| IX6 X1+X3 02380 M00S00924.comcpfs +++| SA6 A3 02381 M00S00925.comcpfs +++| EQ MWAX RETURN 02382 M00S00926.comcpfs +++| 02383 M00S00927.comcpfs +++| 02384 M00S00928.comcpfs +++| MWAA CON 0 WORD COUNT 02385 M00S00929.comcpfs +++| MWAB CON 0 DATA ADDRESS
| Line S00930 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02386 M01S00930.286l859 ---| OCD SPACE 4,15 02387 M01S00931.286l859 ---|** OCD - OUTPUT CATALOG DATA TO SELECTED OUTPUT FILES.
| Line S01390 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02388 M01S01390.286l859 +++| RPP SPACE 4,20 02389 M01S01391.286l859 +++|** RPP - RESET PAGE HEADER PARAMETERS. 02390 M00S00932.comcpfs +++|*
| Line S00933 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02391 M01S00933.286l859 ---|* ENTRY (X6) = CATALOG ENTRY ADDRESS. 02392 M01S00934.286l859 ---|* (PCOF) = *PFC ONLY* FILE FLAG.
| Line S01392 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02393 M01S01392.286l859 +++|* ENTRY (X2) = ADDRESS OF PAGE TITLE TEXT. 02394 M01S01393.286l859 +++|* (X6) = 0 IF NO PAGE SUBHEADER DEFINED. 02395 M01S01394.286l859 +++|* (X6) = PAGE SUBHEADER PROCESSOR ENTRY ADDRESS IF .NE. 02396 M01S01395.286l859 +++|* 0. 02397 M00S00935.comcpfs +++|*
| Line S00936 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02398 M01S00936.286l859 ---|* EXIT CATALOG DATA WRITTEN TO OUTPUT FILE AND SUMMARY FILE 02399 M01S00937.286l859 ---|* IF SELECTED.
| Line S01396 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02400 M01S01396.286l859 +++|* EXIT NEW MAIN TITLE SET. 02401 M01S01397.286l859 +++|* (PSPA) = 0 IF NO PAGE SUBHEADER DEFINED. 02402 M01S01398.286l859 +++|* (PSPA) = PAGE SUBHEADER PROCESSOR ADDRESS IF SUBHEADER 02403 M01S01399.286l859 +++|* DEFINED. 02404 M01S01400.286l859 +++|* (PGLC) = 99999 02405 M01S01401.286l859 +++|* (CENN) = 0. 02406 M00S00938.comcpfs +++|*
| Line S00939 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02407 M01S00939.286l859 ---|* USES X - 0, 1, 2, 6. 02408 M01S00940.286l859 ---|* A - 1, 2, 6.
| Line S01402 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02409 M01S01402.286l859 +++|* USES X - 6, 7. 02410 M01S01403.286l859 +++|* A - 6, 7. 02411 M00S00941.comcpfs +++|*
| Line S00942 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02412 M01S00942.286l859 ---|* CALLS ALN, MWA.
| Line S01404 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02413 M01S01404.286l859 +++|* MACROS MOVE. 02414 M01S01405.286l859 +++| 02415 M01S01406.286l859 +++| 02416 M01S01407.286l859 +++| RPP SUBR ENTRY/EXIT 02417 M01S01408.286l859 +++| SA6 PSPA SET PAGE SUBHEADER PROCESSOR ADDRESS 02418 M01S01409.286l859 +++| MOVE PGTXL,X2,PGTX SET TITLE TEXT 02419 M01S01410.286l859 +++| SX6 99999 02420 M01S01411.286l859 +++| SX7 B0+ 02421 M01S01412.286l859 +++| SA6 PGLC RESET LINES ON PAGE 02422 M01S01413.286l859 +++| SA7 CENN RESET CATALOG ENTRY NUMBER 02423 M01S01414.286l859 +++| EQ RPPX RETURN
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 02424 M01S00011.ns2793 +++| SDT SPACE 4,10 02425 M01S00012.ns2793 +++|** SDT - SET DEFAULT PAGE TITLE. 02426 M01S00013.ns2793 +++|* 02427 M01S00014.ns2793 +++|* EXIT DEFAULT PAGE TITLE SET UP. 02428 M01S00015.ns2793 +++|* 02429 M01S00016.ns2793 +++|* USES X - 2, 6. 02430 M01S00017.ns2793 +++|* 02431 M01S00018.ns2793 +++|* CALLS RPP. 02432 M01S00019.ns2793 +++| 02433 M01S00020.ns2793 +++| 02434 M01S00021.ns2793 +++| SDT SUBR ENTRY/EXIT 02435 M01S00022.ns2793 +++| SX6 B0 SET NO SUBHEADER 02436 M01S00023.ns2793 +++| SX2 DFTX SET DEFAULT TITLE 02437 M01S00024.ns2793 +++| RJ RPP RESET PAGE PARAMETERS 02438 M01S00025.ns2793 +++| EQ SDTX RETURN
| Line S01415 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02439 M01S01415.286l859 +++| WCO SPACE 4,15 02440 M01S01416.286l859 +++|** WCO - WRITE CATALOG ENTRY DATA TO OUTPUT FILE. 02441 M01S01417.286l859 +++|*
| Line S01418 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02442 M02S01418.ns2790 ---|* ENTRY (A0) = ADDRESS OF CATALOG ENTRY. 02443 M02S01419.ns2790 ---|* (FLST) = FILE STATUS WORD.
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02444 M01S00042.ns2790 +++|* ENTRY (A0) = ADDRESS OF CATALOG ENTRY AND STATUS WORDS.
| Line S01420 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02445 M01S01420.286l859 +++|* (CENN) = CATALOG ENTRY NUMBER. 02446 M01S01421.286l859 +++|* (OFFA) = FILE *O* FET ADDRESS. 02447 M01S01422.286l859 +++|* 02448 M01S01423.286l859 +++|* EXIT CATALOG DATA WRITTEN TO OUTPUT FILE. 02449 M01S01424.286l859 +++|* 02450 M01S01425.286l859 +++|* USES X - 0, 1, 2, 6, 7. 02451 M01S01426.286l859 +++|* A - 1, 2, 6, 7. 02452 M01S01427.286l859 +++|*
| Line S01428 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02453 M02S01428.ns2790 ---|* CALLS ALN.
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02454 M01S00043.ns2790 +++|* CALLS ALN, CDD. 02455 M00S00943.comcpfs +++|* 02456 M00S00944.comcpfs +++|* MACROS EDCAT, MOVE, WRITEH. 02457 M00S00945.comcpfs +++| 02458 M00S00946.comcpfs +++|
| Line S00947 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02459 M01S00947.286l859 ---| OCD SUBR ENTRY/EXIT
| Line S01429 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02460 M01S01429.286l859 +++| WCO SUBR ENTRY/EXIT 02461 M01S01430.286l859 +++| SX6 5 SET LENGTH OF CATALOG DATA 02462 M01S01431.286l859 +++| RJ ALN ALLOCATE LINES 02463 M01S01432.286l859 +++| SA1 CENN 02464 M01S01433.286l859 +++| SX7 X1+B1 ADVANCE ENTRY NUMBER 02465 M01S01434.286l859 +++| SA7 A1 02466 M01S01435.286l859 +++| EDCAT A0,COBF,X7,1,1,1 FORMAT CATALOG ENTRY FOR OUTPUT
| Line S01436 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02467 M02S01436.ns2790 ---| SA1 FLST 02468 M02S01437.ns2790 ---| MX6 -3
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02469 M01S00044.ns2790 +++| SA1 A0+NWCE+1 GET PROCESSING SEQUENCE NUMBER 02470 M01S00045.ns2790 +++| RJ CDD CONVERT SEQUENCE NUMBER 02471 M01S00046.ns2790 +++| SA1 A0+NWCE GET FILE STATUS 02472 M01S00047.ns2790 +++| LX6 12 02473 M01S00048.ns2790 +++| MX7 -2 02474 M01S00049.ns2790 +++| SA6 COBF+9 SET SEQUENCE NUMBER
| Line S01438 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02475 M01S01438.286l859 +++| LX1 59-0
| Line S01439 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02476 M02S01439.ns2790 ---| BX6 -X6*X1 GET ARCHIVE FILE ERROR FLAGS 02477 M02S01440.ns2790 ---| SA2 WCOA+X6
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02478 M01S00050.ns2790 +++| BX7 -X7*X1 ARCHIVE FILE ERROR FLAGS
| Line S01441 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02479 M01S01441.286l859 +++| PL X1,WCO1 IF NOT *PFC ONLY* FILE
| Line S01442 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02480 M02S01442.ns2790 ---| SX6 1R &1R* SET *PFC ONLY* FLAG 02481 M02S01443.ns2790 ---| LX6 48 02482 M02S01444.ns2790 ---| BX2 X6-X2 02483 M02S01445.ns2790 ---| WCO1 BX6 X2 SET APPENDED STATUS FIELDS 02484 M02S01446.ns2790 ---| SA6 COBF+9 02485 M02S01447.ns2790 ---| WRITEH O,BLAN,1
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02486 M01S00051.ns2790 +++| SA2 WCOA 02487 M01S00052.ns2790 +++| BX6 X2 02488 M01S00053.ns2790 +++| SA6 COBF+10 SET *PFC ONLY* MESSAGE 02489 M01S00054.ns2790 +++| WCO1 ZR X7,WCO2 IF NO ERRORS 02490 M01S00055.ns2790 +++| LX2 B1,X7 02491 M01S00056.ns2790 +++| IX2 X7+X2 ERROR MESSAGE OFFSET 02492 M01S00057.ns2790 +++| MOVE 3,WCOB-3+X2,COBF+FCELL+10 02493 M01S00058.ns2790 +++| WCO2 WRITEH O,BLAN,1
| Line S01448 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02494 M01S01448.286l859 +++| WRITEH X2,COBF,FCELL 02495 M01S01449.286l859 +++| WRITEH X2,COBF+FCELL,FCELL 02496 M01S01450.286l859 +++| WRITEH X2,COBF+2*FCELL,FCELL 02497 M01S01451.286l859 +++| WRITEH X2,COBF+3*FCELL,FCELB 02498 M01S01452.286l859 +++| EQ WCOX RETURN 02499 M00S00948.comcpfs +++|
| Line S00949 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02500 M01S00949.286l859 ---|* WRITE DATA TO OUTPUT FILE IF SELECTED. 02501 M00S00950.comcpfs +++|
| Line S00951 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02502 M01S00951.286l859 ---| SA1 CPAR+/COMSPFS/CPLO 02503 M01S00952.286l859 ---| SA6 OCDA SAVE CATALOG ADDRESS 02504 M01S00953.286l859 ---| PL X1,OCD3 IF OUTPUT NOT SELECTED 02505 M01S00954.286l859 ---| SA1 PCOF 02506 M01S00955.286l859 ---| SX2 =C/ / 02507 M01S00956.286l859 ---| ZR X1,OCD1 IF NOT PFC ONLY FILE 02508 M01S00957.286l859 ---| SX2 =C/* PFC ONLY/ 02509 M01S00958.286l859 ---| OCD1 SA2 X2 SET APPENDED MESSAGE 02510 M01S00959.286l859 ---| BX6 X2 02511 M01S00960.286l859 ---| SA6 COLA+FCELL 02512 M01S00961.286l859 ---| SX6 5 SET LENGTH OF CATALOG DATA 02513 M01S00962.286l859 ---| SX0 OUTPUT 02514 M01S00963.286l859 ---| RJ ALN ALLOCATE LINES 02515 M01S00964.286l859 ---| SA1 CENN 02516 M01S00965.286l859 ---| SA2 OCDA SET CATALOG ADDRESS 02517 M01S00966.286l859 ---| SX7 X1+B1 ADVANCE ENTRY NUMBER 02518 M01S00967.286l859 ---| SA7 A1 02519 M01S00968.286l859 ---| EDCAT X2,COBF,X7,1,1,1 FORMAT CATALOG ENTRY FOR OUTPUT 02520 M01S00969.286l859 ---| WRITEH OUTPUT,BLAN,1 02521 M01S00970.286l859 ---| WRITEH X2,COBF,FCELL 02522 M01S00971.286l859 ---| WRITEH X2,COBF+FCELL,FCELL 02523 M01S00972.286l859 ---| MOVE FCELL,COBF+2*FCELL,COLA 02524 M01S00973.286l859 ---| WRITEH OUTPUT,COLA,FCELL+1 02525 M01S00974.286l859 ---| WRITEH X2,COBF+3*FCELL,FCELB 02526 M01S00975.286l859 ---| 02527 M01S00976.286l859 ---|* WRITE DATA TO SUMMARY FILE IF SELECTED. 02528 M01S00977.286l859 ---| 02529 M01S00978.286l859 ---| OCD3 SA1 CPAR+/COMSPFS/CPSU 02530 M01S00979.286l859 ---| ZR X1,OCDX IF NO SUMMARY FILE 02531 M01S00980.286l859 ---| SA2 OCDA SET DATA ADDRESS 02532 M01S00981.286l859 ---| SX1 NWCE SET WORD COUNT 02533 M01S00982.286l859 ---| SX0 X1+B1 ALLOCATE ENTRY PLUS CONTROL WORD 02534 M01S00983.286l859 ---| RJ MWA MOVE CATALOG ENTRY TO ASSEMBLY BUFFER 02535 M01S00984.286l859 ---| SA1 PCOF 02536 M01S00985.286l859 ---| SX2 OCDB SET STATUS WORD ADDRESS 02537 M01S00986.286l859 ---| BX6 X6-X6 SET NOT PFC ONLY 02538 M01S00987.286l859 ---| ZR X1,OCD4 IF NOT PFC ONLY FILE 02539 M01S00988.286l859 ---| SX6 B1 SET PFC ONLY 02540 M01S00989.286l859 ---| OCD4 SA6 X2 02541 M01S00990.286l859 ---| SX1 B1 SET WORD COUNT 02542 M01S00991.286l859 ---| SX0 B0+ SET CONTINUATION STATUS 02543 M01S00992.286l859 ---| RJ MWA MOVE STATUS WORD TO ASSEMBLY BUFFER 02544 M01S00993.286l859 ---| EQ OCDX RETURN 02545 M01S00994.286l859 ---| 02546 M01S00995.286l859 ---| 02547 M01S00996.286l859 ---| OCDA CON 0 CATALOG ENTRY ADDRESS 02548 M01S00997.286l859 ---| OCDB CON 0 STATUS WORD 02549 M01S00998.286l859 ---| OCI SPACE 4,15 02550 M01S00999.286l859 ---|** OCI - OUTPUT CATALOG IMAGE ENTRIES. 02551 M01S01000.286l859 ---|* 02552 M01S01001.286l859 ---|* ENTRY (X6) = ADDRESS OF CIR ENTRIES BUFFER. 02553 M01S01002.286l859 ---|* (X7) = WORD COUNT OF CIR ENTRIES IN BUFFER. 02554 M01S01003.286l859 ---|* 02555 M01S01004.286l859 ---|* EXIT CATALOG IMAGE RECORD DATA WRITTEN TO OUTPUT FILE AND 02556 M01S01005.286l859 ---|* SUMMARY FILE IF SELECTED. 02557 M01S01006.286l859 ---|* 02558 M01S01007.286l859 ---|* USES X - 0, 1, 2, 6, 7. 02559 M01S01008.286l859 ---|* A - 1, 2, 6, 7. 02560 M01S01009.286l859 ---|* 02561 M01S01010.286l859 ---|* CALLS FCI, MWA. 02562 M01S01011.286l859 ---| 02563 M01S01012.286l859 ---| 02564 M01S01013.286l859 ---| OCI SUBR ENTRY/EXIT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | cpfs1 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02565 M02S00001.286l859 ---| ZR X7,OCIX IF NO ENTRIES
| Line S01014 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02566 M01S01014.286l859 ---| SA6 OCIA SAVE BUFFER ADDRESS 02567 M01S01015.286l859 ---| SA6 OCIB SET OUT POINTER 02568 M01S01016.286l859 ---| IX7 X6+X7 SET BUFFER LWA+1 02569 M01S01017.286l859 ---| SA7 OCIC 02570 M01S01018.286l859 ---| 02571 M01S01019.286l859 ---|* OUTPUT CATALOG IMAGE DATA TO OUTPUT FILE IF SELECTED. 02572 M01S01020.286l859 ---| 02573 M01S01021.286l859 ---| SA1 CPAR+/COMSPFS/CPLO 02574 M01S01022.286l859 ---| SX0 OUTPUT SET OUTPUT FILE FET ADDRESS 02575 M01S01023.286l859 ---| LX1 1 02576 M01S01024.286l859 ---| PL X1,OCI2 IF LO=C NOT SPECIFIED 02577 M01S01025.286l859 ---| OCI1 RJ FCI FORMAT CIR ENTRY FOR OUTPUT 02578 M01S01026.286l859 ---| SA1 OCIB GET ADDRESS OF LAST CIR ENTRY 02579 M01S01027.286l859 ---| SA2 OCIC GET END OF BUFFER POINTER 02580 M01S01028.286l859 ---| SX6 X1+2 ADVANCE ENTRY ADDRESS 02581 M01S01029.286l859 ---| IX2 X6-X2 02582 M01S01030.286l859 ---| SA6 A1+ 02583 M01S01031.286l859 ---| NZ X2,OCI1 IF ALL ENTRIES NOT PROCESSED 02584 M01S01032.286l859 ---| 02585 M01S01033.286l859 ---|* WRITE CATALOG IMAGES TO SUMMARY FILE IF SELECTED. 02586 M01S01034.286l859 ---| 02587 M01S01035.286l859 ---| OCI2 SA1 CPAR+/COMSPFS/CPSU 02588 M01S01036.286l859 ---| ZR X1,OCIX IF NO SUMMARY FILE 02589 M01S01037.286l859 ---| SA1 OCIC 02590 M01S01038.286l859 ---| SA2 OCIA SET BUFFER ADDRESS 02591 M01S01039.286l859 ---| IX1 X1-X2 SET WORD COUNT 02592 M01S01040.286l859 ---| ERRNG SABFL-1000B BUFFER SIZE LESS THAN MAXIMUM BLOCK LENGTH 02593 M01S01041.286l859 ---| BX0 X1 SET WORDS TO ALLOCATE 02594 M01S01042.286l859 ---| RJ MWA MOVE DATA TO CIR BLOCK 02595 M01S01043.286l859 ---| EQ OCIX RETURN 02596 M01S01044.286l859 ---| 02597 M01S01045.286l859 ---| 02598 M01S01046.286l859 ---| OCIA CON 0 BUFFER ADDRESS 02599 M01S01047.286l859 ---| OCIB CON 0 BUFFER OUT POINTER 02600 M01S01048.286l859 ---| OCIC CON 0 BUFFER LWA+1 02601 M01S01049.286l859 ---| RPP SPACE 4,20 02602 M01S01050.286l859 ---|** RPP - RESET PAGE HEADER PARAMETERS. 02603 M01S01051.286l859 ---|* 02604 M01S01052.286l859 ---|* ENTRY (X2) = ADDRESS OF PAGE TITLE TEXT. 02605 M01S01053.286l859 ---|* (X6) = 0 IF NO PAGE SUBHEADER DEFINED. 02606 M01S01054.286l859 ---|* (X6) = *CISA* IF SET CIR PAGE SUBHEADER. 02607 M01S01055.286l859 ---|* (X6) = *CHDR1* IF SET CATALOG ENTRY SUBHEADER. 02608 M01S01056.286l859 ---|* 02609 M01S01057.286l859 ---|* EXIT NEW MAIN TITLE SET. 02610 M01S01058.286l859 ---|* (PSAD) = 0 IF NO PAGE SUBHEADER DEFINED. 02611 M01S01059.286l859 ---|* (PSAD) = PAGE SUBHEADER ADDRESS IF SUBHEADER DEFINED. 02612 M01S01060.286l859 ---|* (LNPP) = 99999 02613 M01S01061.286l859 ---|* (CENN) = 0. 02614 M01S01062.286l859 ---|* 02615 M01S01063.286l859 ---|* USES X - 6, 7. 02616 M01S01064.286l859 ---|* A - 6, 7. 02617 M01S01065.286l859 ---|* 02618 M01S01066.286l859 ---|* MACROS MOVE. 02619 M01S01067.286l859 ---| 02620 M01S01068.286l859 ---| 02621 M01S01069.286l859 ---| RPP SUBR ENTRY/EXIT 02622 M01S01070.286l859 ---| SA6 PSAD SET PAGE SUBHEADER ADDRESS 02623 M01S01071.286l859 ---| MOVE PGTXL,X2,PGTX SET TITLE TEXT 02624 M01S01072.286l859 ---| SX6 99999 02625 M01S01073.286l859 ---| SX7 B0+ 02626 M01S01074.286l859 ---| SA6 LNPP RESET LINES ON PAGE 02627 M01S01075.286l859 ---| SA7 CENN RESET CATALOG ENTRY NUMBER 02628 M01S01076.286l859 ---| EQ RPPX RETURN 02629 M01S01077.286l859 ---| TOF SPACE 4,15 02630 M01S01078.286l859 ---|** TOF - TERMINATE OUTPUT FILES. 02631 M01S01079.286l859 ---|* 02632 M01S01080.286l859 ---|* EXIT OUTPUT FILE BUFFER FLUSHED IF OUTPUT FILE SELECTED. 02633 M01S01081.286l859 ---|* ASSEMBLY BUFFER FLUSHED AND END OF RECORD WRITTEN ON 02634 M01S01082.286l859 ---|* SUMMARY FILE IF SUMMARY FILE SELECTED. 02635 M01S01083.286l859 ---|* 02636 M01S01084.286l859 ---|* USES X - 1. 02637 M01S01085.286l859 ---|* A - 1. 02638 M01S01086.286l859 ---|* 02639 M01S01087.286l859 ---|* CALLS FAB. 02640 M01S01088.286l859 ---|* 02641 M01S01089.286l859 ---|* MACROS WRITER. 02642 M01S01090.286l859 ---| 02643 M01S01091.286l859 ---| 02644 M01S01092.286l859 ---| TOF SUBR ENTRY/EXIT 02645 M01S01093.286l859 ---| SA1 CPAR+/COMSPFS/CPLB 02646 M01S01094.286l859 ---| ZR X1,TOF1 IF OUTPUT FILE NOT SELECTED 02647 M01S01095.286l859 ---| WRITER OUTPUT,R FLUSH OUTPUT FILE BUFFER 02648 M01S01096.286l859 ---| TOF1 SA1 CPAR+/COMSPFS/CPSU 02649 M01S01097.286l859 ---| ZR X1,TOFX IF NO SUMMARY FILE 02650 M01S01098.286l859 ---| RJ FAB FLUSH ASSEMBLY BUFFER 02651 M01S01099.286l859 ---| WRITER SU WRITE END OF RECORD 02652 M01S01100.286l859 ---| EQ TOFX RETURN
| Line S01453 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02653 M02S01453.ns2790 ---| WCOA BSS 0 ARCHIVE FILE ERROR STATUSES 02654 M02S01454.ns2790 ---| DATA 10H --- NO ERRORS 02655 M02S01455.ns2790 ---| DATA 10H -D- ERROR IN DATA 02656 M02S01456.ns2790 ---| DATA 10H P-- PERMITS LOST 02657 M02S01457.ns2790 ---| DATA 10H PD- PERMITS LOST, ERROR IN DATA 02658 M02S01458.ns2790 ---| DATA 10H --T FILE TRUNCATED 02659 M02S01459.ns2790 ---| DATA 10H -DT ERROR IN DATA, FILE TRUNCATED 02660 M02S01460.ns2790 ---| DATA 10H P-T PERMITS LOST, FILE TRUNCATED 02661 M02S01461.ns2790 ---| DATA 10H PDT ALL ERRORS
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02662 M01S00059.ns2790 +++| WCOA DATA 10HPFC ONLY. 02663 M01S00060.ns2790 +++| WCOB DATA 30HPFDUMP DATA ERRORS. 02664 M01S00061.ns2790 +++| DATA 30HPFDUMP PERMIT ERRORS. 02665 M01S00062.ns2790 +++| DATA 30HPFDUMP DATA AND PERMIT ERRORS. 02666 M00S01101.comcpfs +++| SPACE 4,10 02667 M00S01102.comcpfs +++|* CATALOG OUTPUT FILE BUFFERS. 02668 M00S01103.comcpfs +++| 02669 M00S01104.comcpfs +++| COBF BSSZ 4*FCELL CATALOG OUTPUT BUFFER
| Line S01105 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02670 M01S01105.286l859 ---| COLA BSSZ FCELL+1 CATALOG OUTPUT LINE WITH APPENDED MESSAGE 02671 M00S01106.comcpfs +++| 02672 M00S01107.comcpfs +++| BLAN DATA 10H
| Line S01462 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02673 M02S01462.ns2790 ---| CASF CON 0 CATALOG ENTRIES SORT FLAG 02674 M02S01463.ns2790 ---| CISF CON 0 CIR ENTRIES SORT FLAG 02675 M00S01108.comcpfs +++| CENN CON 0 CATALOG ENTRY NUMBER
| Line S01109 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02676 M01S01109.286l859 ---| PAGE CON 1 CURRENT PAGE NUMBER 02677 M01S01110.286l859 ---| PSAD CON 0 PAGE SUBHEADER ADDRESS
| Line S01464 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02678 M01S01464.286l859 +++| FPSF CON 0 FILES PROCESSED FOR SORTED OUTPUT FLAG 02679 M01S01465.286l859 +++| OFFA CON O OUTPUT FILE FET ADDRESS 02680 M01S01466.286l859 +++| PAGE CON 1 PAGE NUMBER 02681 M01S01467.286l859 +++| PGLC CON 9999 PAGE LINE COUNT 02682 M01S01468.286l859 +++| PGLL CON 0 PAGE LINE LIMIT 02683 M01S01469.286l859 +++| PSPA CON 0 PAGE SUBHEADER PROCESSOR ADDRESS
| Line S01470 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02684 M02S01470.ns2790 ---| UCOF CON 0 UNSORTED CIR OUTPUT FLAG 02685 M02S01471.ns2790 ---| UFOF CON 0 UNSORTED FILE LIST OUTPUT FLAG 02686 M00S01111.comcpfs +++| 02687 M00S01112.comcpfs +++|
| Line S01113 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02688 M01S01113.286l859 ---|* CATALOG PROCESSING TITLE TEXT.
| Line S01472 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02689 M01S01472.286l859 +++|* ARCHIVE FILE INFORMATION BLOCK. 02690 M00S01114.comcpfs +++|
| Line S01115 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02691 M01S01115.286l859 ---| CPTX DATA 50H
| Line S01473 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02692 M01S01473.286l859 +++| AFIB BSSZ 3 ARCHIVE FILE INFORMATION BLOCK. 02693 M00S01116.comcpfs +++|
| Line S01474 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02694 M01S01474.286l859 +++|* ARCHIVE FILE SUBTITLE PARAMETERS. 02695 M00S01117.comcpfs +++|
| Line S01118 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02696 M01S01118.286l859 ---|* CATALOG IMAGE RECORD TITLE TEXT.
| Line S01475 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02697 M01S01475.286l859 +++| AFSA DATA 50H ARCHIVE FILE CREATED YY/MM/DD. HH.MM.SS. ARCHIV 02698 M01S01476.286l859 +++| AFSB DATA C*E FAMILY ???????.* 02699 M01S01477.286l859 +++| AFSC DATA C*E PACK NAME ???????.* 02700 M01S01478.286l859 +++| AFSD DATA 80H ARCHIVE FILE LABEL NOT FOUND. 02701 M00S01119.comcpfs +++|
| Line S01120 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02702 M01S01120.286l859 ---| CITX DATA 50H
| Line S01479 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02703 M01S01479.286l859 +++| AFSE CFORM 22,10 LOCATION OF DATE FIELD IN *AFSA* 02704 M01S01480.286l859 +++| AFSF CFORM 32,10 LOCATION OF TIME FIELD IN *AFSA* 02705 M00S01121.comcpfs +++| 02706 M00S01122.comcpfs +++| 02707 M00S01123.comcpfs +++|* PAGE TITLE FIRST LINE. 02708 M00S01124.comcpfs +++| 02709 M00S01125.comcpfs +++| PGTA BSS 0 02710 M00S01126.comcpfs +++| PGTX DATA 50H 02711 M00S01127.comcpfs +++| PGTXL EQU *-PGTX 02712 M00S01128.comcpfs +++| PGFM DATA 20H
| Line S01129 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02713 M01S01129.286l859 ---| DATA 20H
| Line S01481 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02714 M01S01481.286l859 +++| PGUT DATA 20H 02715 M00S01130.comcpfs +++| PGSD DATA 10H YY/MM/DD. 02716 M00S01131.comcpfs +++| PGST DATA 10H HH.MM.SS. 02717 M00S01132.comcpfs +++| PGPN DATA 20H PAGE 02718 M00S01133.comcpfs +++| PGTAL EQU *-PGTA 02719 M00S01134.comcpfs +++|
| Line S01482 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02720 M01S01482.286l859 +++|* PAGE TITLE SECOND LINE. 02721 M00S01135.comcpfs +++|
| Line S01136 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02722 M01S01136.286l859 ---|* PAGE TITLE SECOND LINE.
| Line S01483 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02723 M01S01483.286l859 +++| PGTB BSS 0 02724 M01S01484.286l859 +++| PGAC DATA 50H 02725 M01S01485.286l859 +++| PGAF DATA 40H 02726 M01S01486.286l859 +++| PGSC DATA 40H 02727 M01S01487.286l859 +++| PGTBL EQU *-PGTB 02728 M00S01137.comcpfs +++|
| Line S01138 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02729 M01S01138.286l859 ---| PGTB DATA 10H 02730 M01S01139.286l859 ---| DATA 20H 02731 M01S01140.286l859 ---| PGAD DATA 10H 02732 M01S01141.286l859 ---| PGAT DATA 10H 02733 M01S01142.286l859 ---| DATA 10H 02734 M01S01143.286l859 ---| PGAF DATA 30H 02735 M01S01144.286l859 ---| PGTBL EQU *-PGTB
| Line S01488 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02736 M01S01488.286l859 +++|* MAIN PROGRAM PAGE TITLE TEXT AREA. 02737 M00S01145.comcpfs +++|
| Line S01489 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02738 M01S01489.286l859 +++| MTTA BSS 0
| Line S01490 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02739 M02S01490.ns2790 ---| FMTX DATA 50H 02740 M02S01491.ns2790 ---| FUTX DATA 50H 02741 M02S01492.ns2790 ---| IMTX DATA 50H 02742 M02S01493.ns2790 ---| ISTX DATA 50H
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 02743 M01S00063.ns2790 +++| FLTX DATA 50H 02744 M01S00064.ns2790 +++| CITX DATA 50H
| Line S01494 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02745 M01S01494.286l859 +++| USTX DATA 50H 02746 M01S01495.286l859 +++| TSTX DATA 50H
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 02747 M01S00026.ns2793 +++| DFTX DATA 50H
| Line S01496 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02748 M01S01496.286l859 +++| MTTAL EQU *-MTTA 02749 M00S01146.comcpfs +++| 02750 M00S01147.comcpfs +++|* CATALOG IMAGE RECORD SUBHEADER. 02751 M00S01148.comcpfs +++| 02752 M00S01149.comcpfs +++| CISA DIS 5, FILE USER ACCESS LAST A 02753 M00S01150.comcpfs +++| DIS 2,CCESS DEVICE 02754 M00S01151.comcpfs +++| CISB DIS 5, NAME INDEX COUNT DATE 02755 M00S01152.comcpfs +++| DIS 2, TIME NUMBER 02756 M00S01153.comcpfs +++| SPACE 4,10 02757 M00S01154.comcpfs +++|* SUMMARY FILE DATA LOCATIONS AND ASSEMBLY BUFFER. 02758 M00S01155.comcpfs +++|
| Line S01156 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02759 M01S01156.286l859 ---| AFID DATA 0LARCFILE ARCHIVE FILE BLOCK IDENTIFIER 02760 M01S01157.286l859 ---| DSID DATA 0LDEVSTAT DEVICE STATUS BLOCK IDENTIFIER 02761 M01S01158.286l859 ---| CIID DATA 0LCIR CIR BLOCK IDENTIFIER 02762 M01S01159.286l859 ---| CEID DATA 0LCATE CATALOG ENTRIES BLOCK IDENTIFIER
| Line S01497 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02763 M01S01497.286l859 +++| TSBI IVFD TABLE OF SUMMARY FILE BLOCK IDENTIFIERS 02764 M01S01498.286l859 +++| IVFD /COMSPFS/SYSB,(60/0LSYSTEM) SYSTEM 02765 M01S01499.286l859 +++| IVFD /COMSPFS/DSSB,(60/0LDEVSTAT) DEVICE STATUS 02766 M01S01500.286l859 +++| IVFD /COMSPFS/AFSB,(60/0LARCFILE) ARCHIVE FILE 02767 M01S01501.286l859 +++| IVFD /COMSPFS/CISB,(60/0LCIR) CIR 02768 M01S01502.286l859 +++| IVFD /COMSPFS/CESB,(60/0LCATE) CATALOG ENTRIES 02769 M01S01503.286l859 +++| IVFD /COMSPFS/MXSB,(60/0) TERMINATOR WORD 02770 M01S01504.286l859 +++| IVFD /COMSPFS/MXSB+1 02771 M01S01505.286l859 +++| 02772 M00S01160.comcpfs +++| CFBI DATA 0LSYSTEM BLOCK CONTROL WORD IDENTIFIER 02773 M00S01161.comcpfs +++| 02774 M00S01162.comcpfs +++| SABI CON SABF ASSEMBLY BUFFER IN POINTER 02775 M00S01163.comcpfs +++| 02776 M00S01164.comcpfs +++| SBCW BSSZ 1 BLOCK CONTROL WORD 02777 M00S01165.comcpfs +++| 02778 M00S01166.comcpfs +++| SABF BSSZ SABFL SUMMARY FILE BLOCK ASSEMBLY BUFFER
| Line S01506 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02779 M01S01506.286l859 +++| SPACE 4,10 02780 M01S01507.286l859 +++|** OUTPUT FILE FETS. 02781 M01S01508.286l859 +++| 02782 M01S01509.286l859 +++| 02783 M01S01510.286l859 +++| O BSS 0 OUTPUT FILE 02784 M01S01511.286l859 +++| OUTPUT FILEB OUTB,OUTBL,FET=10 02785 M01S01512.286l859 +++| 02786 M01S01513.286l859 +++| SU BSS 0 SUMMARY FILE 02787 M01S01514.286l859 +++| SUMMARY FILEB SUMB,SUMBL,FET=10 02788 M01S01515.286l859 +++| 02789 M01S01516.286l859 +++| PF BSS 0 PROCESSED FILES LIST 02790 M01S01517.286l859 +++| ZZZZZGA FILEB PFLB,PFLBL,FET=10 02791 M01S01518.286l859 +++| TITLE COMCPFS - MERGE SORT INTERFACE ROUTINES. 02792 M01S01519.286l859 +++| ISF SPACE 4,10 02793 M01S01520.286l859 +++|** ISF - INITIALIZE SORT FILES. 02794 M01S01521.286l859 +++|* 02795 M01S01522.286l859 +++|* EXIT SORT FILES INITIALIZED FOR WRITE. 02796 M01S01523.286l859 +++|* 02797 M01S01524.286l859 +++|* USES X - 6. 02798 M01S01525.286l859 +++|* A - 6. 02799 M01S01526.286l859 +++|* 02800 M01S01527.286l859 +++|* MACROS WRITE. 02801 M01S01528.286l859 +++| 02802 M01S01529.286l859 +++| 02803 M01S01530.286l859 +++| ISF SUBR ENTRY/EXIT 02804 M01S01531.286l859 +++| REWIND S1 02805 M01S01532.286l859 +++| REWIND S2 02806 M01S01533.286l859 +++| WRITE S1,* 02807 M01S01534.286l859 +++| WRITE S2,* 02808 M01S01535.286l859 +++| SX6 S1 02809 M01S01536.286l859 +++| SA6 SFFA SET SORT FILE FET ADDRESS 02810 M01S01537.286l859 +++| EQ ISFX RETURN 02811 M01S01538.286l859 +++| WSB SPACE 4,20 02812 M01S01539.286l859 +++|** WSB - SORT ENTRIES AND WRITE SORT BUFFER TO FILE. 02813 M01S01540.286l859 +++|* 02814 M01S01541.286l859 +++|* ENTRY (X0) = SORT KEY MASK. 02815 M01S01542.286l859 +++|* (X1) = LENGTH OF SORT KEY. 02816 M01S01543.286l859 +++|* (B4) = FIRST WORD OF KEY (FIRST WORD OF ENTRY = 1). 02817 M01S01544.286l859 +++|* (B5) = ENTRY LENGTH. 02818 M01S01545.286l859 +++|* (B6) = LWA+1 OF ENTRIES IN *SRTB*. 02819 M01S01546.286l859 +++|* 02820 M01S01547.286l859 +++|* EXIT OUTPUT FILE FET POINTERS SWAPPED IF OUTPUT WRITTEN. 02821 M01S01548.286l859 +++|* 02822 M01S01549.286l859 +++|* USES X - 2, 5, 6. 02823 M01S01550.286l859 +++|* A - 2, 6. 02824 M01S01551.286l859 +++|* B - 2, 3, 7. 02825 M01S01552.286l859 +++|* 02826 M01S01553.286l859 +++|* CALLS GMS. 02827 M01S01554.286l859 +++|* 02828 M01S01555.286l859 +++|* MACROS WRITEW. 02829 M01S01556.286l859 +++| 02830 M01S01557.286l859 +++| 02831 M01S01558.286l859 +++| WSB SUBR ENTRY/EXIT 02832 M01S01559.286l859 +++| 02833 M01S01560.286l859 +++|* SORT ENTRIES IN BUFFER. 02834 M01S01561.286l859 +++| 02835 M01S01562.286l859 +++| SB3 SRTB 02836 M01S01563.286l859 +++| SX5 B6-B3 LENGTH OF ENTRIES IN SORT BUFFER 02837 M01S01564.286l859 +++| SX2 B5 SET ENTRY LENGTH 02838 M01S01565.286l859 +++| IX2 X5/X2 COUNT OF ENTRIES IN BUFFER 02839 M01S01566.286l859 +++| SB6 X2 SET ENTRY COUNT 02840 M01S01567.286l859 +++| SB2 B0 SET CHARACTER SORT 02841 M01S01568.286l859 +++| SB3 B0 SET ASCENDING SORT 02842 M01S01569.286l859 +++| SB7 SRTB SET BUFFER ADDRESS 02843 M01S01570.286l859 +++| RJ GMS SORT TABLE 02844 M01S01571.286l859 +++| 02845 M01S01572.286l859 +++|* TOGGLE OUTPUT FET POINTERS AND WRITE BLOCK. 02846 M01S01573.286l859 +++| 02847 M01S01574.286l859 +++| SA2 SFFA GET FET ADDRESS 02848 M01S01575.286l859 +++| SX6 S1&S2 02849 M01S01576.286l859 +++| BX6 X2-X6 SET NEXT FET ADDRESS 02850 M01S01577.286l859 +++| SA6 A2 UPDATE CURRENT SORT FILE 02851 M01S01578.286l859 +++| WRITEW X2,SRTB,X5 WRITE BLOCK TO SORT FILE 02852 M01S01579.286l859 +++| EQ WSBX RETURN 02853 M01S01580.286l859 +++| SPACE 4,10 02854 M01S01581.286l859 +++|** SORT WORKING BUFFERS. 02855 M01S01582.286l859 +++| 02856 M01S01583.286l859 +++| 02857 M01S01584.286l859 +++| SW1B BSSZ NWCS WORKING BUFFER 1 02858 M01S01585.286l859 +++| SW2B BSSZ NWCS WORKING BUFFER 2 02859 M00S01167.comcpfs +++| TITLE COMCPFS - COMMON GENERAL SUBROUTINES. 02860 M00S01168.comcpfs +++| DFN SPACE 4,15
| Line S01169 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02861 M01S01169.286l859 ---|** DFN - DISPLAY FILE NAME AND SET MESSAGE PARAMETERS.
| Line S01586 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02862 M01S01586.286l859 +++|** DFN - DISPLAY FILE NAME AND USER INDEX IN STATUS MESSAGE. 02863 M00S01170.comcpfs +++|* 02864 M00S01171.comcpfs +++|* ENTRY (X1) = FILE NAME AND USER INDEX.
| Line S01172 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02865 M01S01172.286l859 ---|* (X2) = ADDRESS OF MESSAGE DESCRIPTION STRING.
| Line S01587 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02866 M01S01587.286l859 +++|* (X2) = MESSAGE VERB LEFT JUSTIFIED WITH BLANK FILL. 02867 M00S01173.comcpfs +++|* 02868 M00S01174.comcpfs +++|* EXIT FILE NAME AND USER INDEX OF FILE BEING PROCESSED
| Line S01175 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02869 M01S01175.286l859 ---|* DISPLAYED ON THE *K* AND *B* DISPLAYS. 02870 M01S01176.286l859 ---|* (MPFN) = FILE NAME. 02871 M01S01177.286l859 ---|* (MPUI) = USER INDEX.
| Line S01588 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02872 M01S01588.286l859 +++|* DISPLAYED ON THE *B* AND *K* DISPLAYS. 02873 M00S01178.comcpfs +++|*
| Line S01179 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02874 M01S01179.286l859 ---|* USES X - 3, 6, 7. 02875 M01S01180.286l859 ---|* A - 3, 6, 7.
| Line S01589 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02876 M01S01589.286l859 +++|* USES X - 1, 2, 3, 6. 02877 M01S01590.286l859 +++|* A - 3, 6. 02878 M00S01181.comcpfs +++|*
| Line S01182 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02879 M01S01182.286l859 ---|* MACROS EDITS, MESSAGE, MOVE.
| Line S01591 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02880 M01S01591.286l859 +++|* CALLS COD, SFN. 02881 M01S01592.286l859 +++|* 02882 M01S01593.286l859 +++|* MACROS MESSAGE, MOVE. 02883 M00S01183.comcpfs +++| 02884 M00S01184.comcpfs +++| 02885 M00S01185.comcpfs +++| DFN SUBR ENTRY/EXIT
| Line S01186 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02886 M01S01186.286l859 ---| MX7 42 02887 M01S01187.286l859 ---| BX6 X7*X1 02888 M01S01188.286l859 ---| BX7 -X7*X1 02889 M01S01189.286l859 ---| SA6 MPFN SET FILE NAME 02890 M01S01190.286l859 ---| SA7 MPUI SET USER INDEX 02891 M01S01191.286l859 ---| EDITS MSDF,X2 GENERATE FILE PROCESSING MESSAGE 02892 M01S01192.286l859 ---| MESSAGE X5,1 DISPLAY MESSAGE ON *B* AND *K* DISPLAY
| Line S01594 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02893 M01S01594.286l859 +++| BX6 X2 02894 M01S01595.286l859 +++| SA6 MSGB SET MESSAGE VERB 02895 M01S01596.286l859 +++| MX6 -18 02896 M01S01597.286l859 +++| BX2 -X6*X1 USER INDEX 02897 M01S01598.286l859 +++| BX1 X6*X1 FILE NAME 02898 M01S01599.286l859 +++| RJ SFN SPACE FILL FILE NAME 02899 M01S01600.286l859 +++| LX6 -6 02900 M01S01601.286l859 +++| SA6 A6+1 SET FILE NAME 02901 M01S01602.286l859 +++| BX1 X2 02902 M01S01603.286l859 +++| RJ COD CONVERT USER INDEX 02903 M01S01604.286l859 +++| LX6 24 02904 M01S01605.286l859 +++| SA6 A6+B1 SET USER INDEX 02905 M01S01606.286l859 +++| SX6 B0 02906 M01S01607.286l859 +++| SA6 A6+B1 TERMINATE MESSAGE 02907 M01S01608.286l859 +++| MESSAGE MSGB,1 DISPLAY MESSAGE ON *B* DISPLAY 02908 M00S01193.comcpfs +++| SA3 IDSA+/COMSPFS/ADMS
| Line S01194 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02909 M01S01194.286l859 ---| MOVE 3,X5,X3
| Line S01609 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02910 M01S01609.286l859 +++| MOVE 3,MSGB,X3 SET MESSAGE IN *K* DISPLAY 02911 M00S01195.comcpfs +++| EQ DFNX RETURN 02912 M00S01196.comcpfs +++| SPACE 4,10
| Line S01197 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02913 M01S01197.286l859 ---|* GLOBAL DATA LOCATIONS.
| Line S01610 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02914 M01S01610.286l859 +++|** GLOBAL DATA LOCATIONS. 02915 M00S01198.comcpfs +++| 02916 M00S01199.comcpfs +++|
| Line S01200 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02917 M01S01200.286l859 ---| PCOF BSSZ 1 PFC ONLY FILE FLAG
| Line S01611 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02918 M01S01611.286l859 +++|* FILE COUNT ACCUMULATORS. THE ORDER OF THE LOCATIONS FROM 02919 M01S01612.286l859 +++|* *PSAC* TO *PSACL* MUST MATCH THE ORDER OF THE FLAGS IN THE 02920 M01S01613.286l859 +++|* PROCESSING STATUS JOB CONTROL REGISTER AND CANNOT BE CHANGED. 02921 M01S01614.286l859 +++| 02922 M01S01615.286l859 +++| PSAC BSS 0 START OF FILE COUNT ACCUMULATORS 02923 M01S01616.286l859 +++| PRFC CON 0 FILES PROCESSED COUNT 02924 M01S01617.286l859 +++| PEFC CON 0 PROCESSED WITH ERRORS FILE COUNT 02925 M01S01618.286l859 +++| SEFC CON 0 SKIPPED WITH ERRORS FILE COUNT 02926 M01S01619.286l859 +++| POFC CON 0 PFC ONLY FILE COUNT 02927 M01S01620.286l859 +++| STFC CON 0 COUNT OF DUMPED FILES STAGED 02928 M01S01621.286l859 +++| PPFC CON 0 FILES POST PROCESSED 02929 M01S01622.286l859 +++| NPFC CON 0 FILES NOT POST PROCESSED 02930 M01S01623.286l859 +++| PSACL EQU *-PSAC LENGTH OF ACCUMULATORS FOR STATUS FLAGS 02931 M01S01624.286l859 +++| 02932 M01S01625.286l859 +++| FLST CON 0 FILE STATUS WORD 02933 M00S01201.comcpfs +++| SYSS CON 0 SYSTEM SECURITY MODE
| Line S01202 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02934 M01S01202.286l859 ---| COM$ ENDIF 02935 M00S01203.comcpfs +++| SPACE 4,10 02936 M00S01204.comcpfs +++| PFA$ IF DEF,PFA$
| Line S01205 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02937 M01S01205.286l859 ---| PLP SPACE 4,20
| Line S01626 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02938 M01S01626.286l859 +++| TITLE COMCPFS - PFLOAD/PFAM ARCHIVE FILE ROUTINES. 02939 M01S01627.286l859 +++| BST SPACE 4,15 02940 M01S01628.286l859 +++|** BST - BUILD SUBFAMILY DEVICE TABLE. 02941 M01S01629.286l859 +++|* 02942 M01S01630.286l859 +++|* ENTRY (A0) = ADDRESS OF ARCHIVE FILE LABEL. 02943 M01S01631.286l859 +++|* 02944 M01S01632.286l859 +++|* EXIT MASTER DEVICE INDICES AND CATALOG TRACK MASKS SET IN 02945 M01S01633.286l859 +++|* *SFDT*. 02946 M01S01634.286l859 +++|* 02947 M01S01635.286l859 +++|* 02948 M01S01636.286l859 +++|* USES X - 1, 4, 6. 02949 M01S01637.286l859 +++|* A - 1, 6. 02950 M01S01638.286l859 +++|* B - 2, 3, 4. 02951 M01S01639.286l859 +++| 02952 M01S01640.286l859 +++| 02953 M01S01641.286l859 +++| BST SUBR ENTRY/EXIT 02954 M01S01642.286l859 +++| SB2 10B INITIALIZE SUBFAMILY INDEX 02955 M01S01643.286l859 +++| BST1 SB2 B2-1 DECREMENT SUBFAMILY INDEX 02956 M01S01644.286l859 +++| NG B2,BSTX IF ALL SUBFAMILIES PROCESSED 02957 M01S01645.286l859 +++| SA1 A0+/COMSPFS/D0AL-1 02958 M01S01646.286l859 +++| SX4 10000B 02959 M01S01647.286l859 +++| SB3 10B INITIALIZE DEVICE ORDINAL 02960 M01S01648.286l859 +++| LX4 X4,B2 SET SUBFAMILY MASK BIT 02961 M01S01649.286l859 +++| BST2 SA1 A1+B1 GET DEVICE DESCRIPTIONS FROM ARCHIVE LABEL 02962 M01S01650.286l859 +++| SB4 3 02963 M01S01651.286l859 +++| LX1 20 02964 M01S01652.286l859 +++| BST3 SB3 B3-B1 DECREMENT ARCHIVE FILE DEVICE ORDINAL 02965 M01S01653.286l859 +++| SB4 B4-B1 02966 M01S01654.286l859 +++| NG B3,BST1 IF ALL DEVICES CHECKED 02967 M01S01655.286l859 +++| ZR B4,BST2 IF END OF DEVICES IN WORD 02968 M01S01656.286l859 +++| LX1 -20 02969 M01S01657.286l859 +++| BX6 X4*X1 02970 M01S01658.286l859 +++| ZR X6,BST3 IF NOT MASTER DEVICE FOR SUBFAMILY 02971 M01S01659.286l859 +++| MX6 -12 02972 M01S01660.286l859 +++| BX6 -X6*X1 NUMBER OF CATALOG TRACKS 02973 M01S01661.286l859 +++| SX1 B3+ 02974 M01S01662.286l859 +++| SX6 X6-1 CATALOG TRACK MASK 02975 M01S01663.286l859 +++| LX1 24 ARCHIVE FILE DEVICE ORDINAL 02976 M01S01664.286l859 +++| BX6 X1+X6 02977 M01S01665.286l859 +++| SA6 SFDT+B2 SET DEVICE ORDINAL AND CATALOG TRACK MASK 02978 M01S01666.286l859 +++| EQ BST1 PROCESS NEXT SUBFAMILY 02979 M01S01667.286l859 +++| PLP SPACE 4,15 02980 M00S01206.comcpfs +++|** PLP - PROCESS ARCHIVE FILE LABEL PARAMETERS. 02981 M00S01207.comcpfs +++|*
| Line S01208 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02982 M01S01208.286l859 ---|* ENTRY (X0) = ADDRESS OF ARCHIVE FILE LABEL IF LABEL FOUND. 02983 M01S01209.286l859 ---|* (X0) = 0 IF ARCHIVE FILE LABEL NOT FOUND.
| Line S01668 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02984 M01S01668.286l859 +++|* ENTRY (A0) = ADDRESS OF ARCHIVE FILE LABEL IF LABEL FOUND. 02985 M01S01669.286l859 +++|* (A0) = 0 IF ARCHIVE FILE LABEL NOT FOUND. 02986 M00S01210.comcpfs +++|*
| Line S01211 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02987 M01S01211.286l859 ---|* EXIT DATE, TIME, AND FAMILY OR PACK NAME FROM ARCHIVE FILE 02988 M01S01212.286l859 ---|* LABEL SET IN OUTPUT FILE HEADER IF ARCHIVE LABEL 02989 M01S01213.286l859 ---|* FOUND. 02990 M01S01214.286l859 ---|* LABEL NOT FOUND MESSAGE SET IN OUTPUT FILE HEADER IF 02991 M01S01215.286l859 ---|* ARCHIVE FILE LABEL NOT FOUND.
| Line S01670 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02992 M01S01670.286l859 +++|* EXIT ARCHIVE FILE LABEL PARAMETERS SET IN *AFIB*. 02993 M01S01671.286l859 +++|* (AFDM) = ARCHIVE FILE DUMP MASK IF LAST ARCHIVE FILE. 02994 M01S01672.286l859 +++|* DEVICE POSITION AND CATALOG TRACK INFORMATION SET FROM 02995 M01S01673.286l859 +++|* ARCHIVE LABEL IF LAST ARCHIVE FILE AND USER INDEX 02996 M01S01674.286l859 +++|* SELECTIONS ARE PRESENT. 02997 M00S01216.comcpfs +++|*
| Line S01217 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02998 M01S01217.286l859 ---|* USES X - 0, 1, 2, 6, 7.
| Line S01675 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02999 M01S01675.286l859 +++|* USES X - 1, 2, 6, 7. 03000 M00S01218.comcpfs +++|* A - 1, 2, 6, 7.
| Line S01219 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03001 M01S01219.286l859 ---|* B - 2, 3, 5. 03002 M00S01220.comcpfs +++|*
| Line S01221 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03003 M01S01221.286l859 ---|* CALLS FAB, MWA, REC, SNM, VDT, ZTB. 03004 M01S01222.286l859 ---|* 03005 M01S01223.286l859 ---|* MACROS MOVE.
| Line S01676 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03006 M01S01676.286l859 +++|* CALLS BST, OAL, REC, SUM, VDT. 03007 M00S01224.comcpfs +++|
Proceed to Part 2
cdc/nos2.source/opl.opl871/common/comcpfs.001.txt · Last modified: (external edit)