Seq # *Modification Id* Act
----------------------------+
01655 M01S00848.286l859 +++|
01656 M01S00849.286l859 +++|* PRESET DEVICE SEARCH PARAMETERS.
01657 M01S00850.286l859 +++|
01658 M01S00851.286l859 +++| SA1 CPAR+/COMSPFS/CPDN
01659 M01S00852.286l859 +++| SA2 CPAR+/COMSPFS/CPTD
01660 M01S00853.286l859 +++| IX1 X1+X2
01661 M01S00854.286l859 +++| SB4 X1 SET *DN* OR *TD* DEVICE NUMBER
01662 M01S00855.286l859 +++| SB2 MSTT
01663 M01S00856.286l859 +++| SX3 B0 INITIALIZE CUMULATIVE MASTER DEVICE MASK
01664 M01S00857.286l859 +++| SB5 B0 INITIALIZE *DN* OR *TD* DEVICE FOUND FLAG
01665 M01S00858.286l859 +++| SB6 B0 INITIALIZE *DA* DEVICE COUNT
01666 M01S00859.286l859 +++| SB7 B0 INITIALIZE *DA* DEVICES FOUND
01667 M01S00860.286l859 +++| ZR X5,SMK1 IF *PFLOAD*, DO NOT CHECK *DA* SELECTIONS
01668 M01S00861.286l859 +++| SA1 CPAR+/COMSPFS/CPDA
01669 M01S00862.286l859 +++| SX2 X1
01670 M01S00863.286l859 +++| NZ X2,SMK1 IF *DA=R* OR *DA=N* SPECIFIED
01671 M01S00864.286l859 +++| SA2 A1+B1
01672 M01S00865.286l859 +++| CX1 X1
01673 M01S00866.286l859 +++| CX2 X2
01674 M01S00867.286l859 +++| IX1 X1+X2 SET NUMBER OF *DA* DEVICE SELECTIONS
01675 M01S00868.286l859 +++| SB6 X1
01676 M01S00869.286l859 +++|
01677 M01S00870.286l859 +++|* ACCUMULATE DEVICE MASKS.
01678 M01S00871.286l859 +++|
01679 M01S00872.286l859 +++| SMK1 SA1 B2 GET DEVICE NUMBER
01680 M01S00873.286l859 +++| SA2 B2+B1 GET DEVICE MASKS
01681 M01S00874.286l859 +++| SB2 B2+2 ADVANCE DEVICE INDEX
01682 M01S00875.286l859 +++| ZR X1,SMK3 IF END OF DEVICES
01683 M01S00876.286l859 +++| MX0 -6
01684 M01S00877.286l859 +++| BX1 -X0*X1 DEVICE NUMBER
01685 M01S00878.286l859 +++| MX0 -8
01686 M01S00879.286l859 +++| SB3 X1
01687 M01S00880.286l859 +++| BX6 -X0*X2 DEVICE MASK
01688 M01S00881.286l859 +++| AX2 8
01689 M01S00882.286l859 +++| BX3 X3+X6 ACCUMULATE IAPF MASTER DEVICE MASK
01690 M01S00883.286l859 +++| BX7 -X0*X2 DIRECT ACCESS MASK
01691 M01S00884.286l859 +++| BX4 X3 ACCUMULATE DAPF MASTER DEVICE MASK
01692 M01S00885.286l859 +++| SB3 B3-B4
01693 M01S00886.286l859 +++| NZ B3,SMK2 IF NOT *DN* OR *TD* DEVICE
01694 M01S00887.286l859 +++| SB5 B1+ FLAG *DN* OR *TD* DEVICE FOUND
01695 M01S00888.286l859 +++| SA6 SMKA SAVE DEVICE MASK
01696 M01S00889.286l859 +++| SA7 SMKA+1 SAVE DIRECT ACCESS MASK
01697 M01S00890.286l859 +++| SMK2 ZR B6,SMK1 IF NOT CHECKING *DA* DEVICE SELECTIONS
01698 M01S00891.286l859 +++| MX0 -5
01699 M01S00892.286l859 +++| BX0 -X0*X1
01700 M01S00893.286l859 +++| AX1 5
01701 M01S00894.286l859 +++| SB3 X0
01702 M01S00895.286l859 +++| SA1 CPAR+/COMSPFS/CPDA+X1
01703 M01S00896.286l859 +++| LX1 B3
01704 M01S00897.286l859 +++| PL X1,SMK1 IF NOT *DA* SELECTED DEVICE
01705 M01S00898.286l859 +++| SA1 SMKB
01706 M01S00899.286l859 +++| SA2 A1+B1
01707 M01S00900.286l859 +++| SB7 B7+B1 COUNT *DA* DEVICE FOUND
01708 M01S00901.286l859 +++| BX6 X1+X6 ACCUMULATE *DA* DEVICES MASK
01709 M01S00902.286l859 +++| BX7 X2+X7 ACCUMULATE *DA* DEVICES DIRECT MASK
01710 M01S00903.286l859 +++| SA6 A1
01711 M01S00904.286l859 +++| SA7 A2
01712 M01S00905.286l859 +++| EQ SMK1 PROCESS NEXT DEVICE
01713 M01S00906.286l859 +++|
01714 M01S00907.286l859 +++|* CHECK *DN* OR *TD* DEVICE FOUND AND APPLY *DN* OR *TD* DEVICE
01715 M01S00908.286l859 +++|* MASK CONSTRAINTS.
01716 M01S00909.286l859 +++|
01717 M01S00910.286l859 +++| SMK3 ZR B4,SMK6 IF NO *DN* OR *TD* DEVICE
01718 M01S00911.286l859 +++| NZ B5,SMK4 IF DEVICE FOUND
01719 M01S00912.286l859 +++| SB2 ERMN * SELECTED MASTER OR TRUE DEVICE NOT ...*
01720 M01S00913.286l859 +++| EQ ABT ABORT
01721 M01S00914.286l859 +++|
01722 M01S00915.286l859 +++| SMK4 SA1 CPAR+/COMSPFS/CPDN
01723 M01S00916.286l859 +++| NZ X1,SMK5 IF *DN* SPECIFIED
01724 M01S00917.286l859 +++| ZR X5,SMK5 IF *PFLOAD*, SKIP *TD* RESIDENCY CHECK
01725 M01S00918.286l859 +++| SA3 SMKA SET IAPF MASK
01726 M01S00919.286l859 +++| SA2 SMKA+1
01727 M01S00920.286l859 +++| EQ SMK7 PROCESS *TD* DEVICE DAPF RESIDENCY
01728 M01S00921.286l859 +++|
01729 M01S00922.286l859 +++| SMK5 SA3 SMKA SET IAPF MASK FOR FILES CATALOGED ON *DN*
01730 M01S00923.286l859 +++| SX4 X3+ SET DAPF MASK FOR FILES CATALOGED ON *DN*
01731 M01S00924.286l859 +++|
01732 M01S00925.286l859 +++|* PROCESS *DA* DEVICE SELECTIONS. IF NOT ALL SELECTED *DA*
01733 M01S00926.286l859 +++|* DEVICES WERE FOUND, THE DIRECT ACCESS FILE CONSTRAINT IS NOT
01734 M01S00927.286l859 +++|* APPLIED BECAUSE THE DIRECT ACCESS MASKS OF THE MISSING
01735 M01S00928.286l859 +++|* DEVICES ARE NOT KNOWN.
01736 M01S00929.286l859 +++|
01737 M01S00930.286l859 +++| SMK6 ZR B6,SMK8 IF NOT PROCESSING *DA* DEVICE SELECTIONS
01738 M01S00931.286l859 +++| SA1 SMKB
01739 M01S00932.286l859 +++| SA2 A1+B1
01740 M01S00933.286l859 +++| BX3 X3*X1 EXCLUDE IAPF-S NOT ON *DA* DEVICES
01741 M01S00934.286l859 +++| NE B6,B7,SMK8 IF NOT ALL *DA* DEVICES FOUND
01742 M01S00935.286l859 +++|
01743 M01S00936.286l859 +++|* PROCESS *TD* OR *DA* DIRECT ACCESS FILE RESIDENCY CONSTRAINT.
01744 M01S00937.286l859 +++|* DIRECT ACCESS FILES CATALOGED ON THE SUBFAMILY USER INDICES
01745 M01S00938.286l859 +++|* CAN RESIDE ON THE MASTER DEVICE EVEN IF NOT PERMITTED BY THE
01746 M01S00939.286l859 +++|* DIRECT ACCESS DEVICE MASK. *SYSTEMX* FILES SUCH AS
01747 M01S00940.286l859 +++|* TERMINATED DAYFILES CAN RESIDE ON ANY DEVICE. THE *SXUF*
01748 M01S00941.286l859 +++|* FLAG IS SET IF *SYSTEMX* DIRECT ACCESS FILES IN VIOLATION OF
01749 M01S00942.286l859 +++|* THE MASKS OF THE SELECTED RESIDENCY DEVICES ARE THE ONLY
01750 M01S00943.286l859 +++|* SUBFAMILY 7 DIRECT ACCESS FILES TO BE PROCESSED.
01751 M01S00944.286l859 +++|
01752 M01S00945.286l859 +++| SMK7 BX2 X3+X2 INCLUDE FORCED MASTER RESIDENT DAPF-S
01753 M01S00946.286l859 +++| SX6 X2+
01754 M01S00947.286l859 +++| SX1 200B
01755 M01S00948.286l859 +++| BX2 X2+X1 INCLUDE *SYSTEMX* DAPF-S
01756 M01S00949.286l859 +++| BX4 X4*X2 EXCLUDE DAPF-S NOT ON SELECTED DEVICES
01757 M01S00950.286l859 +++| BX6 X2-X6
01758 M01S00951.286l859 +++| SA6 SXUF PRESET *SYSTEMX* ONLY UI STATUS
01759 M01S00952.286l859 +++|
01760 M01S00953.286l859 +++|* APPLY INDIRECT OR DIRECT ACCESS ONLY CONSTRAINT.
01761 M01S00954.286l859 +++|
01762 M01S00955.286l859 +++| SMK8 SA1 CPAR+/COMSPFS/CPOP
01763 M01S00956.286l859 +++| BX6 X3+X4 FORM COMBINED DIRECT/INDIRECT MASK
01764 M01S00957.286l859 +++| LX1 59-55
01765 M01S00958.286l859 +++| PL X1,SMK9 IF NOT DIRECT ONLY SELECTION
01766 M01S00959.286l859 +++| SX6 X4+ SELECT DIRECTS ONLY
01767 M01S00960.286l859 +++| SMK9 LX1 59-56-59+55
01768 M01S00961.286l859 +++| PL X1,SMK10 IF NOT INDIRECT ONLY SELECTION
01769 M01S00962.286l859 +++| BX6 X3 SELECT INDIRECTS ONLY
01770 M01S00963.286l859 +++|
01771 M01S00964.286l859 +++|* APPLY USER INDEX SELECTIONS CONSTRAINT.
01772 M01S00965.286l859 +++|
01773 M01S00966.286l859 +++| SMK10 SA2 CPAR+/COMSPFS/CPDI
01774 M01S00967.286l859 +++| SA1 /COMSPFS/FISP
01775 M01S00968.286l859 +++| ZR X2,SMK11 IF NO *PFLOAD* DESTINATION USER INDEX
01776 M01S00969.286l859 +++| BX7 X2
01777 M01S00970.286l859 +++| SX1 SMKC SET LIST ADDRESS
01778 M01S00971.286l859 +++| SA7 SMKC SET ENTRY IN LIST
01779 M01S00972.286l859 +++| SMK11 ZR X1,SMK12 IF NO USER INDEX SELECTIONS
01780 M01S00973.286l859 +++| RJ SUM SET COMPOSITE USER INDEX MASK
01781 M01S00974.286l859 +++| BX6 X6*X4 INCLUDE SELECTED USER INDICES
01782 M01S00975.286l859 +++| SMK12 ZR X6,SMK13 IF NO FILES SELECTED
01783 M01S00976.286l859 +++| SA6 MASK SET FILE SELECTION MASK
01784 M01S00977.286l859 +++| SA1 SXUF
01785 M01S00978.286l859 +++| BX6 X6*X1 CLEAR FLAG IF NO *SYSTEMX* FILES SELECTED
01786 M01S00979.286l859 +++| SA6 A1
01787 M01S00980.286l859 +++| EQ SMKX RETURN
01788 M01S00981.286l859 +++|
01789 M01S00982.286l859 +++|* PROCESS NO FILES SELECTED.
01790 M01S00983.286l859 +++|
01791 M01S00984.286l859 +++| SMK13 SB2 ERNF * NO FILES SELECTED.*
01792 M01S00985.286l859 +++| EQ ABT ABORT
01793 M01S00986.286l859 +++|
01794 M01S00987.286l859 +++|
01795 M01S00988.286l859 +++| SMKA CON 0 *DN* OR *TD* DEVICE MASK
01796 M01S00989.286l859 +++| CON 0 *DN* OR *TD* DEVICE DAPF MASK
01797 M01S00990.286l859 +++|
01798 M01S00991.286l859 +++| SMKB CON 0 *DA* DEVICES COMPOSITE MASK
01799 M01S00992.286l859 +++| CON 0 *DA* DEVICES COMPOSITE DAPF MASK
01800 M01S00993.286l859 +++|
01801 M01S00994.286l859 +++| SMKC CON 0 DESTINATION USER INDEX
01802 M01S00995.286l859 +++| CON 0 LIST TERMINATOR
01803 M01S00996.286l859 +++| SPACE 4,10
01804 M01S00997.286l859 +++|* DEVICE ACCESS ERROR MESSAGES.
01805 M01S00998.286l859 +++|
01806 M01S00999.286l859 +++|
01807 M01S01000.286l859 +++| ERMN DATA C* SELECTED MASTER OR TRUE DEVICE NOT FOUND.*
01808 M01S01001.286l859 +++| ERNF DATA C* NO FILES SELECTED.*
01809 M01S01002.286l859 +++|
01810 M01S01003.286l859 +++|
01811 M01S01004.286l859 +++| DVA$ ENDIF
01812 M01S01005.286l859 +++| SPACE 4,10
01813 M01S01006.286l859 +++| PFD$ IF DEF,PFD$
01814 M01S01007.286l859 +++| TITLE COMCPFP - PFDUMP/PFDM PRESET ROUTINES.
01815 M00S00776.comcpfp +++| CAL SPACE 4,15
01816 M00S00777.comcpfp +++|** CAL - CHECK ACCESS LEVELS.
01817 M00S00778.comcpfp +++|*
01818 M00S00779.comcpfp +++|* ENTRY (SYSS) = SYSTEM SECURITY MODE.
| Line S00780 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01819 M01S00780.286l859 ---|* (PCLA) = LOWER ACCESS LEVEL TO PROCESS.
01820 M01S00781.286l859 ---|* (PCUA) = UPPER ACCESS LEVEL TO PROCESS.
01821 M00S00782.comcpfp ---|* (SYLA) = SYSTEM LOWER ACCESS LEVEL LIMIT.
01822 M00S00783.comcpfp ---|* (SYUA) = SYSTEM UPPER ACCESS LEVEL LIMIT.
01823 M00S00784.comcpfp ---|*
01824 M01S00785.286l859 ---|* EXIT (PCLA) AND (PCUA) CHANGED TO THE *LA* AND *UA*
01825 M01S00786.286l859 ---|* VALUES, IF SPECIFIED.
| Line S01008 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01826 M01S01008.286l859 +++|* EXIT (PCLA) = LOWER ACCESS LEVEL TO PROCESS IF NO ERROR.
01827 M01S01009.286l859 +++|* (PCUA) = UPPER ACCESS LEVEL TO PROCESS IF NO ERROR.
01828 M00S00787.comcpfp +++|* (X2) .GE. 0 IF RANGE WITHIN SYSTEM ACCESS LIMITS.
01829 M00S00788.comcpfp +++|* (X2) .LT. 0 IF RANGE NOT WITHIN SYSTEM ACCESS LIMITS.
01830 M00S00789.comcpfp +++|*
| Line S00790 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01831 M01S00790.286l859 ---|* USES X - 0, 1, 2, 3, 4, 6, 7.
01832 M01S00791.286l859 ---|* A - 1, 2, 3, 4, 6, 7.
| Line S01010 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01833 M01S01010.286l859 +++|* USES X - 0, 1, 2, 3, 6, 7.
01834 M01S01011.286l859 +++|* A - 1, 2, 6, 7.
01835 M00S00792.comcpfp +++|
01836 M00S00793.comcpfp +++|
01837 M00S00794.comcpfp +++| CAL SUBR ENTRY/EXIT
01838 M00S00795.comcpfp +++| SA1 CPAR+/COMSPFS/CPLA
01839 M00S00796.comcpfp +++| SA2 CPAR+/COMSPFS/CPUA
| Line S00797 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01840 M01S00797.286l859 ---| MX0 -5
| Line S01012 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01841 M01S01012.286l859 +++| MX0 -3
01842 M00S00798.comcpfp +++| BX6 -X0*X1
01843 M00S00799.comcpfp +++| BX7 -X0*X2
| Line S00800 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01844 M01S00800.286l859 ---| ZR X2,CAL1 IF NO ACCESS LEVELS SPECIFIED
01845 M01S00801.286l859 ---| SA6 PCLA SET RANGE
| Line S01013 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01846 M01S01013.286l859 +++| NZ X2,CAL4 IF ACCESS LEVELS SPECIFIED
01847 M01S01014.286l859 +++| SA2 SYSS
01848 M01S01015.286l859 +++| ZR X2,CALX IF NOT SECURE SYSTEM
01849 M01S01016.286l859 +++|
01850 M01S01017.286l859 +++|* DETERMINE LOWER AND UPPER ACCESS LEVEL LIMITS OF DEVICES.
01851 M01S01018.286l859 +++|
01852 M01S01019.286l859 +++| SA1 MSTT+1
01853 M01S01020.286l859 +++| SX6 7 INITIALIZE LOWER ACCESS LEVEL
01854 M01S01021.286l859 +++| SX7 B0+ INITIALIZE UPPER ACCESS LEVEL
01855 M01S01022.286l859 +++| CAL1 LX1 -30
01856 M01S01023.286l859 +++| BX2 -X0*X1 DEVICE UPPER ACCESS LEVEL LIMIT
01857 M01S01024.286l859 +++| LX1 -3
01858 M01S01025.286l859 +++| BX1 -X0*X1 DEVICE LOWER ACCESS LEVEL LIMIT
01859 M01S01026.286l859 +++| IX3 X7-X2
01860 M01S01027.286l859 +++| PL X3,CAL2 IF PREVIOUS UPPER .GE. CURRENT
01861 M01S01028.286l859 +++| BX7 X2 SET NEW UPPER LIMIT
01862 M01S01029.286l859 +++| CAL2 IX3 X1-X6
01863 M01S01030.286l859 +++| PL X3,CAL3 IF PREVIOUS LOWER .LE. CURRENT
01864 M01S01031.286l859 +++| BX6 X1 SET NEW LOWER LIMIT
01865 M01S01032.286l859 +++| CAL3 SA1 A1+2
01866 M01S01033.286l859 +++| NZ X1,CAL1 IF MORE DEVICES TO PROCESS
01867 M01S01034.286l859 +++|
01868 M01S01035.286l859 +++|* COMPARE DEVICE LIMITS WITH SYSTEM LIMITS.
01869 M01S01036.286l859 +++|
01870 M01S01037.286l859 +++| SA1 SYLA
01871 M01S01038.286l859 +++| SA2 SYUA
01872 M01S01039.286l859 +++| IX2 X2-X7
01873 M01S01040.286l859 +++| NG X2,CALX IF UPPER LIMIT OUT OF RANGE
01874 M01S01041.286l859 +++| IX2 X6-X1
01875 M01S01042.286l859 +++| NG X2,CALX IF LOWER LIMIT OUT OF RANGE
01876 M01S01043.286l859 +++|
01877 M01S01044.286l859 +++|* SET LOWER AND UPPER ACCESS LEVELS TO PROCESS.
01878 M01S01045.286l859 +++|
01879 M01S01046.286l859 +++| CAL4 SA6 PCLA SET RANGE
01880 M00S00802.comcpfp +++| SA7 PCUA
01881 M00S00803.comcpfp +++| EQ CALX RETURN
| Line S00804 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01882 M01S00804.286l859 ---|
01883 M01S00805.286l859 ---| CAL1 SA2 SYSS
01884 M01S00806.286l859 ---| ZR X2,CALX IF NOT SECURE SYSTEM
01885 M01S00807.286l859 ---| SA1 PCLA CHECK RANGE WITHIN SYSTEM LIMITS
01886 M01S00808.286l859 ---| SA2 PCUA
01887 M01S00809.286l859 ---| SA3 SYLA
01888 M01S00810.286l859 ---| SA4 SYUA
01889 M01S00811.286l859 ---| IX2 X4-X2
01890 M01S00812.286l859 ---| NG X2,CALX IF UPPER LEVEL OUT OF RANGE
01891 M01S00813.286l859 ---| IX2 X1-X3 (X2) .LT. 0 IF LOWER LEVEL OUT OF RANGE
01892 M01S00814.286l859 ---| EQ CALX RETURN
01893 M01S00815.286l859 ---| EBE SPACE 4,15
01894 M01S00816.286l859 ---|** EBE - EVALUATE BOOLEAN EXPRESSION.
01895 M01S00817.286l859 ---|*
01896 M01S00818.286l859 ---|* ENTRY (X2) = BOOLEAN VARIABLES.
01897 M01S00819.286l859 ---|* (X1) = FIRST WORD OF BOOLEAN EXPRESSION.
01898 M01S00820.286l859 ---|* (A1) = ADDRESS OF FIRST WORD OF BOOLEAN EXPRESSION.
01899 M01S00821.286l859 ---|*
01900 M01S00822.286l859 ---|* EXIT (X2) = BOOLEAN VARIABLES.
01901 M01S00823.286l859 ---|* (X6) = 0 IF EXPRESSION IS FALSE.
01902 M01S00824.286l859 ---|* = NON-ZERO IF EXPRESSION IS TRUE.
01903 M01S00825.286l859 ---|*
01904 M01S00826.286l859 ---|* USES X - 1, 3, 6.
01905 M01S00827.286l859 ---|* A - 1, 3.
01906 M01S00828.286l859 ---|
01907 M01S00829.286l859 ---|
01908 M01S00830.286l859 ---| EBE2 SX6 B0+ SET STATUS FOR FALSE EXPRESSION
01909 M01S00831.286l859 ---|
01910 M01S00832.286l859 ---| EBE SUBR ENTRY/EXIT
01911 M01S00833.286l859 ---| EBE1 ZR X1,EBE2 IF END OF BOOLEAN EXPRESSION
01912 M01S00834.286l859 ---| SA3 A1+B1 GET VARIABLE COMPLEMENT FLAGS
01913 M01S00835.286l859 ---| BX1 X1*X2
01914 M01S00836.286l859 ---| BX6 X1-X3
01915 M01S00837.286l859 ---| SA1 A3+B1 GET NEXT VARIABLE MASK
01916 M01S00838.286l859 ---| NZ X6,EBE1 IF TERM NOT TRUE
01917 M01S00839.286l859 ---| SX6 B1 SET STATUS FOR TRUE EXPRESSION
01918 M01S00840.286l859 ---| EQ EBEX RETURN
01919 M01S00841.286l859 ---| LDN SPACE 4,15
01920 M01S00842.286l859 ---|** LDN - LOCATE DEVICE NUMBER.
01921 M01S00843.286l859 ---|*
01922 M01S00844.286l859 ---|* ENTRY (X1) = DEVICE NUMBER TO SEARCH FOR.
01923 M01S00845.286l859 ---|*
01924 M01S00846.286l859 ---|* EXIT (X1) = UNCHANGED.
01925 M01S00847.286l859 ---|* (X2) = 0 IF DEVICE NOT FOUND.
01926 M01S00848.286l859 ---|* = FIRST WORD OF MASS STORAGE TABLE INFORMATION IF
01927 M01S00849.286l859 ---|* DEVICE FOUND.
01928 M01S00850.286l859 ---|* (B2) = ADDRESS OF FIRST WORD OF MASS STORAGE TABLE
01929 M01S00851.286l859 ---|* INFORMATION FOR DEVICE IF FOUND.
01930 M01S00852.286l859 ---|*
01931 M01S00853.286l859 ---|* USES X - 2, 3, 6, 7.
01932 M01S00854.286l859 ---|* A - 2.
01933 M01S00855.286l859 ---|* B - 2, 3.
01934 M01S00856.286l859 ---|
01935 M01S00857.286l859 ---|
01936 M01S00858.286l859 ---| LDN SUBR ENTRY/EXIT
01937 M01S00859.286l859 ---| SB2 MSTT SET ADDRESS OF MASS STORAGE TABLE
01938 M01S00860.286l859 ---| MX3 -6
01939 M01S00861.286l859 ---| SB3 B1+B1
01940 M01S00862.286l859 ---| LDN1 SA2 B2
01941 M01S00863.286l859 ---| ZR X2,LDNX IF END OF MASS STORAGE TABLE
01942 M01S00864.286l859 ---| BX6 -X3*X2
01943 M01S00865.286l859 ---| IX7 X1-X6
01944 M01S00866.286l859 ---| ZR X7,LDNX IF CORRECT DEVICE
01945 M01S00867.286l859 ---| SB2 B2+B3
01946 M01S00868.286l859 ---| EQ LDN1 CHECK NEXT DEVICE
01947 M01S00869.286l859 ---| LUI SPACE 4,20
01948 M01S00870.286l859 ---|** LUI - LOCATE USER INDEX.
01949 M01S00871.286l859 ---|*
01950 M01S00872.286l859 ---|* ENTRY (X1) = USER INDEX TO FIND MASTER DEVICE FOR.
01951 M01S00873.286l859 ---|*
01952 M01S00874.286l859 ---|* EXIT (X1) = UNCHANGED.
01953 M01S00875.286l859 ---|* (X2) = 0 IF MASTER DEVICE NOT FOUND FOR USER INDEX.
01954 M01S00876.286l859 ---|* = FIRST WORD OF MASS STORAGE TABLE INFORMATION IF
01955 M01S00877.286l859 ---|* USER INDEX FOUND.
01956 M01S00878.286l859 ---|* (X3) = SECOND WORD OF MASS STORAGE TABLE INFORMATION
01957 M01S00879.286l859 ---|* IF USER INDEX FOUND.
01958 M01S00880.286l859 ---|* (B2) = ADDRESS OF FIRST WORD OF MASS STORAGE TABLE
01959 M01S00881.286l859 ---|* INFORMATION FOR DEVICE IF FOUND.
01960 M01S00882.286l859 ---|*
01961 M01S00883.286l859 ---|* USES X - 2, 3, 6.
01962 M01S00884.286l859 ---|* A - 2, 3.
01963 M01S00885.286l859 ---|* B - 2, 3.
01964 M01S00886.286l859 ---|
01965 M01S00887.286l859 ---|
01966 M01S00888.286l859 ---| LUI SUBR ENTRY/EXIT
01967 M01S00889.286l859 ---| SB2 MSTT SET ADDRESS OF MASS STORAGE TABLE
01968 M01S00890.286l859 ---| MX2 -3 SET MASK BIT SHIFT COUNT
01969 M01S00891.286l859 ---| BX6 -X2*X1
01970 M01S00892.286l859 ---| SB3 X6-59
01971 M01S00893.286l859 ---| LUI1 SA2 B2
01972 M01S00894.286l859 ---| SA3 B2+B1
01973 M01S00895.286l859 ---| ZR X2,LUIX IF END OF MASS STORAGE TABLE
01974 M01S00896.286l859 ---| AX6 X3,B3 POSITION MASK BIT
01975 M01S00897.286l859 ---| NG X6,LUIX IF CORRECT DEVICE
01976 M01S00898.286l859 ---| SB2 A3+B1
01977 M01S00899.286l859 ---| EQ LUI1 CHECK NEXT DEVICE
01978 M00S00900.comcpfp ---| OSP SPACE 4,15
01979 M00S00901.comcpfp ---|** OSP - OUTPUT SELECTION PARAMETERS.
01980 M00S00902.comcpfp ---|*
01981 M00S00903.comcpfp ---|* ENTRY CPAR = CRACKED PARAMETER ARRAY ADDRESS.
01982 M00S00904.comcpfp ---|*
01983 M00S00905.comcpfp ---|* EXIT SELECTION PARAMETERS WRITTEN TO OUTPUT FILE.
01984 M00S00906.comcpfp ---|*
01985 M00S00907.comcpfp ---|* USES X - 0, 1, 2, 5, 6.
01986 M00S00908.comcpfp ---|* A - 0, 1, 2, 5, 6.
01987 M00S00909.comcpfp ---|*
01988 M00S00910.comcpfp ---|* CALLS COD, ZTB.
01989 M00S00911.comcpfp ---|*
01990 M00S00912.comcpfp ---|* MACROS EDATE, ETIME, WRITEH.
01991 M00S00913.comcpfp ---|
01992 M00S00914.comcpfp ---|
01993 M00S00915.comcpfp ---| OSP SUBR ENTRY/EXIT
01994 M00S00916.comcpfp ---| SA1 CPAR+/COMSPFS/CPLB
01995 M00S00917.comcpfp ---| ZR X1,OSPX IF OUTPUT FILE NOT SELECTED
01996 M01S00918.286l859 ---| WRITEH OUTPUT,OSPO,1
| Line S01047 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
01997 M01S01047.286l859 +++| WRITEH O,OSPO,1
01998 M01S01048.286l859 +++| SA1 MASK SET FILE SELECTION MASK
01999 M01S01049.286l859 +++| RJ COD
02000 M01S01050.286l859 +++| SA6 OSPA+2
02001 M00S00919.comcpfp +++| SA1 /COMSPFS/UTLN SET UTILITY NAME
02002 M00S00920.comcpfp +++| SX6 1R*
02003 M00S00921.comcpfp +++| LX6 54
02004 M00S00922.comcpfp +++| LX1 -6
02005 M00S00923.comcpfp +++| BX1 X1+X6
02006 M00S00924.comcpfp +++| RJ ZTB BLANK FILL NAME
02007 M00S00925.comcpfp +++| SA6 OSPB
02008 M00S00926.comcpfp +++| SA5 /COMSPFS/STDT
02009 M00S00927.comcpfp +++| BX1 X5
02010 M00S00928.comcpfp +++| AX1 18
02011 M00S00929.comcpfp +++| EDATE X1 SET DATE
02012 M00S00930.comcpfp +++| SA6 OSPB+1
02013 M00S00931.comcpfp +++| MX1 -18
02014 M00S00932.comcpfp +++| BX1 -X1*X5
02015 M00S00933.comcpfp +++| ETIME X1 SET TIME
02016 M00S00934.comcpfp +++| SA6 OSPB+2
| Line S00935 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02017 M01S00935.286l859 ---| WRITEH OUTPUT,OSPB,3
| Line S01051 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02018 M01S01051.286l859 +++| WRITEH O,OSPB,3
02019 M00S00936.comcpfp +++| SA1 /COMSPFS/UTLC
| Line S00937 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02020 M01S00937.286l859 ---| SX1 X1-/COMSPFS/DUUT
02021 M01S00938.286l859 ---| NZ X1,OSP1 IF NOT *PFDUMP*
02022 M00S00939.comcpfp ---| WRITEH X2,OSPA,4
02023 M01S00940.286l859 ---| OSP1 SA1 CPAR+/COMSPFS/CPIP
| Line S01052 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02024 M01S01052.286l859 +++| SA1 CPAR+/COMSPFS/CPIP
02025 M00S00941.comcpfp +++| ZR X1,OSP2 IF PROCESSING NOT INHIBITED
02026 M00S00942.comcpfp +++| WRITEH X2,OSPD,3
02027 M00S00943.comcpfp +++| OSP2 SA1 CPAR+/COMSPFS/CPDT
02028 M00S00944.comcpfp +++| ZR X1,OSP3 IF NOT DESTAGE DUMP
02029 M00S00945.comcpfp +++| WRITEH X2,OSPG,3
02030 M00S00946.comcpfp +++| OSP3 SA1 CPAR+/COMSPFS/CPSD
02031 M00S00947.comcpfp +++| ZR X1,OSP4 IF INHIBIT DATES NOT TO BE RESET
02032 M00S00948.comcpfp +++| WRITEH X2,OSPS,4
02033 M00S00949.comcpfp +++| OSP4 SA5 CPAR+/COMSPFS/CPOP
02034 M00S00950.comcpfp +++| MX0 1
02035 M00S00951.comcpfp +++| LX0 47-59
02036 M00S00952.comcpfp +++| BX1 X0*X5
02037 M00S00953.comcpfp +++| ZR X1,OSP5 IF FILE STAGING NOT SUPPRESSED
02038 M00S00954.comcpfp +++| WRITEH X2,OSPR,3
02039 M00S00955.comcpfp +++| OSP5 MX0 2
02040 M00S00956.comcpfp +++| LX5 3
02041 M00S00957.comcpfp +++| BX5 X0*X5
02042 M00S00958.comcpfp +++| ZR X5,OSP7 IF NOT INDIRECT OR DIRECT ONLY
02043 M00S00959.comcpfp +++| PL X5,OSP6 IF DIRECT ONLY
| Line S00960 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02044 M01S00960.286l859 ---| WRITEH OUTPUT,OSPL,3
| Line S01053 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02045 M01S01053.286l859 +++| WRITEH O,OSPL,3
02046 M00S00961.comcpfp +++| EQ OSP7 CHECK ACCESS LEVEL OPTIONS
02047 M00S00962.comcpfp +++|
| Line S00963 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02048 M01S00963.286l859 ---| OSP6 WRITEH OUTPUT,OSPM,3
| Line S01054 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02049 M01S01054.286l859 +++| OSP6 WRITEH O,OSPM,3
02050 M00S00964.comcpfp +++| OSP7 SA1 CPAR+/COMSPFS/CPLA
02051 M00S00965.comcpfp +++| ZR X1,OSP8 IF NO ACCESS LEVELS SPECIFIED
02052 M00S00966.comcpfp +++| SA1 PCLA
02053 M00S00967.comcpfp +++| SA2 TALV+X1 GET ACCESS LEVEL NAME
02054 M00S00968.comcpfp +++| MX0 42
02055 M00S00969.comcpfp +++| BX1 X0*X2
02056 M00S00970.comcpfp +++| RJ ZTB
02057 M00S00971.comcpfp +++| SA6 OSPT+2 ADD LEVEL TO MESSAGE
02058 M00S00972.comcpfp +++| SA1 PCUA
02059 M00S00973.comcpfp +++| SA2 TALV+X1 GET ACCESS LEVEL NAME
02060 M00S00974.comcpfp +++| BX1 X0*X2
02061 M00S00975.comcpfp +++| MX0 -42
02062 M00S00976.comcpfp +++| RJ ZTB
02063 M00S00977.comcpfp +++| LX6 -18 ADD LEVEL TO MESSAGE
02064 M00S00978.comcpfp +++| BX6 -X0*X6
02065 M00S00979.comcpfp +++| SA1 OSPT+3
02066 M00S00980.comcpfp +++| BX1 X0*X1
02067 M00S00981.comcpfp +++| BX6 X1+X6
02068 M00S00982.comcpfp +++| SA6 A1
| Line S00983 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02069 M01S00983.286l859 ---| WRITEH OUTPUT,OSPT,4
| Line S01055 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02070 M01S01055.286l859 +++| WRITEH O,OSPT,4
02071 M00S00984.comcpfp +++| OSP8 SA5 CPAR+/COMSPFS/CPOP
02072 M00S00985.comcpfp +++| MX0 3
02073 M00S00986.comcpfp +++| BX5 X0*X5
02074 M00S00987.comcpfp +++| ZR X5,OSP11 IF NO DATE OPTION SPECIFIED
02075 M00S00988.comcpfp +++| LX5 1-59 SET *CREATED*, *ACCESSED* OR *MODIFIED*
02076 M00S00989.comcpfp +++| SA1 OSPH+X5
02077 M00S00990.comcpfp +++| BX6 X1
02078 M00S00991.comcpfp +++| SA6 OSPB
02079 M00S00992.comcpfp +++| SA5 CPAR+/COMSPFS/CPAD
02080 M00S00993.comcpfp +++| ZR X5,OSP9 IF *AD=YYMMDD* NOT SPECIFIED
02081 M00S00994.comcpfp +++| SA1 OSPI SET *AFTER* IN MESSAGE
02082 M00S00995.comcpfp +++| BX6 X1
02083 M00S00996.comcpfp +++| SA6 A6+B1
02084 M00S00997.comcpfp +++| BX1 X5 SET AFTER DATE IN MESSAGE
02085 M00S00998.comcpfp +++| AX1 18-0
02086 M00S00999.comcpfp +++| EDATE X1
02087 M00S01000.comcpfp +++| SA6 OSPB+2
02088 M00S01001.comcpfp +++| MX0 -18 SET AFTER TIME IN MESSAGE
02089 M00S01002.comcpfp +++| BX1 -X0*X5
02090 M00S01003.comcpfp +++| ETIME X1
02091 M00S01004.comcpfp +++| SA6 OSPB+3
02092 M00S01005.comcpfp +++| OSP9 SA5 CPAR+/COMSPFS/CPBD
02093 M00S01006.comcpfp +++| ZR X5,OSP10 IF *BD=YYMMDD* NOT SPECIFIED
02094 M00S01007.comcpfp +++| SA1 OSPJ SET *BEFORE* IN MESSAGE
02095 M00S01008.comcpfp +++| BX6 X1
02096 M00S01009.comcpfp +++| SA6 A6+B1
02097 M00S01010.comcpfp +++| BX1 X5 SET BEFORE DATE IN MESSAGE
02098 M00S01011.comcpfp +++| AX1 18-0
02099 M00S01012.comcpfp +++| SA0 A6+1
02100 M00S01013.comcpfp +++| EDATE X1
02101 M00S01014.comcpfp +++| SA6 A0
02102 M00S01015.comcpfp +++| MX0 -18 SET BEFORE TIME IN MESSAGE
02103 M00S01016.comcpfp +++| BX1 -X0*X5
02104 M00S01017.comcpfp +++| SA0 A6+B1
02105 M00S01018.comcpfp +++| ETIME X1
02106 M00S01019.comcpfp +++| SA6 A0+
| Line S01020 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02107 M01S01020.286l859 ---| OSP10 WRITEH OUTPUT,OSPB,A6-OSPB+1 WRITE DATE SELECTION MESSAGE
| Line S01056 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02108 M01S01056.286l859 +++| OSP10 WRITEH O,OSPB,A6-OSPB+1 WRITE DATE SELECTION MESSAGE
02109 M00S01021.comcpfp +++|
02110 M00S01022.comcpfp +++| OSP11 SA2 /COMSPFS/FISP
02111 M00S01023.comcpfp +++| SA1 CPAR+/COMSPFS/CPUI
02112 M00S01024.comcpfp +++| ZR X2,OSP13 IF NO FILE SELECTIONS
02113 M00S01025.comcpfp +++| ZR X1,OSP12 IF SELECTIONS FOR MULTIPLE USER INDICES
02114 M00S01026.comcpfp +++| RJ COD CONVERT USER INDEX
02115 M00S01027.comcpfp +++| SA6 OSPF+3
| Line S01028 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02116 M01S01028.286l859 ---| WRITEH OUTPUT,OSPF,4
| Line S01057 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02117 M01S01057.286l859 +++| WRITEH O,OSPF,4
02118 M00S01029.comcpfp +++| EQ OSP13 WRITE FINAL OUTPUT LINE
02119 M00S01030.comcpfp +++|
| Line S01031 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02120 M01S01031.286l859 ---| OSP12 WRITEH OUTPUT,OSPE,5
02121 M01S01032.286l859 ---| OSP13 WRITEH OUTPUT,OSPO,1
| Line S01058 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02122 M01S01058.286l859 +++| OSP12 WRITEH O,OSPE,5
02123 M01S01059.286l859 +++| OSP13 WRITEH O,OSPO,1
02124 M00S01033.comcpfp +++| EQ OSPX RETURN
02125 M00S01034.comcpfp +++|
02126 M00S01035.comcpfp +++|
| Line S01036 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02127 M01S01036.286l859 ---| OSPA DATA 30C PFDUMP DEVICE MASK
| Line S01060 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02128 M01S01060.286l859 +++| OSPA DATA 30C FILE SELECTION MASK
02129 M00S01037.comcpfp +++| OSPB DATA 80C
02130 M00S01038.comcpfp +++| OSPC DATA 30C *PFUUUUU
02131 M00S01039.comcpfp +++| OSPD DATA 30H PROCESSING INHIBITED
02132 M00S01040.comcpfp +++| OSPE DATA 50H SELECTED FILES FOR MULTIPLE USER INDICES
02133 M00S01041.comcpfp +++| OSPF DATA 40H SELECTED FILES FOR USER INDEX
02134 M00S01042.comcpfp +++| OSPG DATA 30H DESTAGE FILES TO TAPE
02135 M00S01043.comcpfp +++| OSPH DATA 10H MODIFIED
02136 M00S01044.comcpfp +++| DATA 10H ACCESSED
02137 M00S01045.comcpfp +++| DATA 10H CREATED
02138 M00S01046.comcpfp +++| OSPI DATA 10H AFTER
02139 M00S01047.comcpfp +++| OSPJ DATA 10H BEFORE
02140 M00S01048.comcpfp +++| OSPL DATA 30H INDIRECT ACCESS FILES ONLY
02141 M00S01049.comcpfp +++| OSPM DATA 30H DIRECT ACCESS FILES ONLY
02142 M00S01050.comcpfp +++| OSPO DATA 10H1
02143 M00S01051.comcpfp +++| OSPR DATA 30H FILE STAGING SUPPRESSED
02144 M00S01052.comcpfp +++| OSPS DATA 40H RESET DISK SPACE RELEASE INHIBIT DATES
02145 M00S01053.comcpfp +++| OSPT DATA 40H ACCESS LEVELS FROM TO
| Line S01054 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02146 M01S01054.286l859 ---| SBS SPACE 4,20
02147 M01S01055.286l859 ---|** SBS - SET BOOLEAN SELECTION PARAMETERS.
02148 M01S01056.286l859 ---|*
02149 M01S01057.286l859 ---|* ENTRY (CPAR) = CRACKED PARAMETER ARRAY.
02150 M01S01058.286l859 ---|* (MSTT) = MASS STORAGE TABLE.
02151 M01S01059.286l859 ---|*
02152 M01S01060.286l859 ---|* EXIT (BFSP) = BOOLEAN FILE SELECTION PARAMETERS. SEE
02153 M01S01061.286l859 ---|* DOCUMENTATION OF BOOLEAN FILE SELECTION
02154 M01S01062.286l859 ---|* VARIABLES.
02155 M01S01063.286l859 ---|* (CPAR+/COMSPFS/CPDD) = 36/0,18/*MSTT* ADDRESS,6/DD IF
02156 M01S01064.286l859 ---|* *DD* PARAMETER WAS SPECIFIED.
02157 M01S01065.286l859 ---|* EXIT TO *ABT* IF A SPECIFIED DEVICE NUMBER WAS NOT
02158 M01S01066.286l859 ---|* FOUND IN *MSTT*.
02159 M01S01067.286l859 ---|*
02160 M01S01068.286l859 ---|* USES X - 1, 2, 4, 6, 7.
02161 M01S01069.286l859 ---|* A - 1, 2, 6.
02162 M01S01070.286l859 ---|*
02163 M01S01071.286l859 ---|* CALLS LDN, LUI.
02164 M01S01072.286l859 ---|*
02165 M01S01073.286l859 ---|* MACROS EDITS.
02166 M01S01074.286l859 ---|
02167 M01S01075.286l859 ---|
02168 M01S01076.286l859 ---|* PROCESS NO DEVICE FOR USER INDEX ERROR.
02169 M01S01077.286l859 ---|
02170 M01S01078.286l859 ---| SBS8 SX2 B1 SET NO FILES SELECTED STATUS
02171 M01S01079.286l859 ---| LX2 FNFS
02172 M01S01080.286l859 ---| BX4 X4+X2
02173 M01S01081.286l859 ---|
02174 M01S01082.286l859 ---|* SAVE BOOLEAN FILE SELECTION PARAMETERS.
02175 M01S01083.286l859 ---|
02176 M01S01084.286l859 ---| SBS9 BX6 X4 SAVE BOOLEAN FILE SELECTION PARAMETERS
02177 M01S01085.286l859 ---| SA6 BFSP
02178 M01S01086.286l859 ---|
02179 M01S01087.286l859 ---| SBS SUBR ENTRY/EXIT
02180 M01S01088.286l859 ---| SA1 CPAR+/COMSPFS/CPOP EVALUATE DAPF ONLY BIT
02181 M01S01089.286l859 ---| MX2 -1
02182 M01S01090.286l859 ---| LX1 0-55
02183 M01S01091.286l859 ---| BX4 -X2*X1
02184 M01S01092.286l859 ---| LX4 DAFO
02185 M01S01093.286l859 ---| LX1 0-56-0+55 EVALUATE IAPF ONLY BIT
02186 M01S01094.286l859 ---| BX2 -X2*X1
02187 M01S01095.286l859 ---| LX2 IAFO
02188 M01S01096.286l859 ---| BX4 X4+X2
02189 M01S01097.286l859 ---| SA1 CPAR+/COMSPFS/CPDN
02190 M01S01098.286l859 ---| ZR X1,SBS1 IF *DN* PARAMETER NOT SPECIFIED
02191 M01S01099.286l859 ---| SX2 B1 SET *DN* SPECIFIED STATUS
02192 M01S01100.286l859 ---| LX2 DNSP
02193 M01S01101.286l859 ---| BX4 X4+X2
02194 M01S01102.286l859 ---| RJ LDN LOCATE DEVICE NUMBER
02195 M01S01103.286l859 ---| ZR X2,SBS7 IF DEVICE NOT FOUND
02196 M01S01104.286l859 ---| SA1 B2+B1 GET DEVICE MASK
02197 M01S01105.286l859 ---| MX2 -8
02198 M01S01106.286l859 ---| BX6 -X2*X1
02199 M01S01107.286l859 ---| ZR X6,SBS1 IF *DN* NOT A MASTER DEVICE
02200 M01S01108.286l859 ---| SX2 B1 SET *DN* MASTER DEVICE STATUS
02201 M01S01109.286l859 ---| LX2 DNMD
02202 M01S01110.286l859 ---| BX4 X4+X2
02203 M01S01111.286l859 ---| SBS1 SA1 CPAR+/COMSPFS/CPTD
02204 M01S01112.286l859 ---| ZR X1,SBS2 IF *TD* PARAMETER NOT SPECIFIED
02205 M01S01113.286l859 ---| SX2 B1 SET *TD* SPECIFIED STATUS
02206 M01S01114.286l859 ---| LX2 TDSP
02207 M01S01115.286l859 ---| BX4 X4+X2
02208 M01S01116.286l859 ---| RJ LDN LOCATE TRUE DEVICE NUMBER
02209 M01S01117.286l859 ---| ZR X2,SBS7 IF DEVICE NOT FOUND
02210 M01S01118.286l859 ---| SA1 B2+B1 GET DEVICE MASK
02211 M01S01119.286l859 ---| MX2 -8
02212 M01S01120.286l859 ---| BX6 -X2*X1
02213 M01S01121.286l859 ---| ZR X6,SBS2 IF *TD* NOT A MASTER DEVICE
02214 M01S01122.286l859 ---| SX2 B1 SET *TD* MASTER DEVICE STATUS
02215 M01S01123.286l859 ---| LX2 TDMD
02216 M01S01124.286l859 ---| BX4 X4+X2
02217 M01S01125.286l859 ---| SBS2 SA1 CPAR+/COMSPFS/CPDN
02218 M01S01126.286l859 ---| SA2 CPAR+/COMSPFS/CPTD
02219 M01S01127.286l859 ---| BX6 X1-X2
02220 M01S01128.286l859 ---| NZ X6,SBS3 IF *DN* AND *TD* NOT EQUAL
02221 M01S01129.286l859 ---| SX2 B1 SET MATCHING *DN*/*TD* STATUS
02222 M01S01130.286l859 ---| LX2 DNTD
02223 M01S01131.286l859 ---| BX4 X4+X2
02224 M01S01132.286l859 ---| SBS3 SA1 CPAR+/COMSPFS/CPDI
02225 M01S01133.286l859 ---| NZ X1,SBS4 IF *DI* PARAMETER SPECIFIED
02226 M01S01134.286l859 ---| SA1 CPAR+/COMSPFS/CPUI
02227 M01S01135.286l859 ---| ZR X1,SBS6 IF *UI* PARAMETER NOT SPECIFIED
02228 M01S01136.286l859 ---| SX6 X1+ SET *DI* = *UI*
02229 M01S01137.286l859 ---| SA6 CPAR+/COMSPFS/CPDI
02230 M01S01138.286l859 ---| SBS4 SX2 B1 SET *DI* SPECIFIED STATUS
02231 M01S01139.286l859 ---| LX2 DISP
02232 M01S01140.286l859 ---| BX4 X4+X2
02233 M01S01141.286l859 ---| RJ LUI LOCATE USER INDEX
02234 M01S01142.286l859 ---| ZR X2,SBS8 IF NO DEVICE FOUND FOR *DI*
02235 M01S01143.286l859 ---| SA1 CPAR+/COMSPFS/CPDN CHECK IF *DI* CATALOGED ON *DN*
02236 M01S01144.286l859 ---| MX6 -6 GET DEVICE FOR *DI*
02237 M01S01145.286l859 ---| BX7 -X6*X2
02238 M01S01146.286l859 ---| IX1 X1-X7
02239 M01S01147.286l859 ---| SX2 B1
02240 M01S01148.286l859 ---| NZ X1,SBS5 IF *DI* NOT CATALOGED ON *DN*
02241 M01S01149.286l859 ---| LX2 DIDN SET *DI* CATALOGED ON *DN* STATUS
02242 M01S01150.286l859 ---| BX4 X4+X2
02243 M01S01151.286l859 ---| SBS5 SA1 CPAR+/COMSPFS/CPTD CHECK IF *DI* CATALOGED ON *TD*
02244 M01S01152.286l859 ---| IX6 X1-X7
02245 M01S01153.286l859 ---| NZ X6,SBS6 IF *DI* NOT CATALOGED ON *TD*
02246 M01S01154.286l859 ---| SX2 B1 SET *DI* CATALOGED ON *TD* STATUS
02247 M01S01155.286l859 ---| LX2 DITD
02248 M01S01156.286l859 ---| BX4 X4+X2
02249 M01S01157.286l859 ---| SBS6 SA1 CPAR+/COMSPFS/CPDD
02250 M01S01158.286l859 ---| ZR X1,SBS9 IF *DD* NOT SPECIFIED
02251 M01S01159.286l859 ---| RJ LDN LOCATE DESTINATION DEVICE
02252 M01S01160.286l859 ---| ZR X2,SBS7 IF DEVICE NOT FOUND
02253 M01S01161.286l859 ---| SX2 B2 ADD *MSTT* ADDRESS TO *DD* PARAMETER
02254 M01S01162.286l859 ---| LX2 6
02255 M01S01163.286l859 ---| BX6 X2+X1
02256 M01S01164.286l859 ---| SA6 A1
02257 M01S01165.286l859 ---| EQ SBS9 SAVE FILE SELECTION PARAMETERS
02258 M01S01166.286l859 ---|
02259 M01S01167.286l859 ---|* PROCESS DEVICE NOT FOUND ERROR.
02260 M01S01168.286l859 ---|
02261 M01S01169.286l859 ---| SBS7 BX6 X1 SAVE DEVICE NUMBER
02262 M01S01170.286l859 ---| SA6 MPDN
02263 M01S01171.286l859 ---| EDITS MEDN BUILD DEVICE NOT FOUND MESSAGE
02264 M01S01172.286l859 ---| SX1 X5 SET MESSAGE ADDRESS
02265 M01S01173.286l859 ---| EQ ABT ABORT
02266 M01S01174.286l859 ---| SPACE 4,20
02267 M01S01175.286l859 ---|** BOOLEAN FILE SELECTION VARIABLES.
02268 M01S01176.286l859 ---|*
02269 M01S01177.286l859 ---|* A SET OF BOOLEAN VARIABLES DESCRIBING VARIOUS FILE
02270 M01S01178.286l859 ---|* SELECTION CONDITIONS IS DEFINED BELOW. EACH VARIABLE IS
02271 M01S01179.286l859 ---|* GIVEN A SYMBOLIC NAME WHICH IS MNEMONIC OF THE FILE SELECTION
02272 M01S01180.286l859 ---|* CRITERIA THAT IT REPRESENTS. FOR EXAMPLE, THE CONDITION
02273 M01S01181.286l859 ---|* *DEVICE NUMBER PARAMETER WAS SPECIFIED* IS GIVEN THE SYMBOLIC
02274 M01S01182.286l859 ---|* NAME *DNSP*. THE SET OF BOOLEAN FILE SELECTION VARIABLES IS
02275 M01S01183.286l859 ---|* STORED IN A 60 BIT WORD (*BFSP*) WITH EACH VARIABLE BEING
02276 M01S01184.286l859 ---|* REPRESENTED BY A UNIQUE BIT POSITION WITHIN THE WORD. THE
02277 M01S01185.286l859 ---|* BIT NUMBER THAT REPRESENTS A GIVEN BOOLEAN VARIABLE IS
02278 M01S01186.286l859 ---|* DETERMINED BY THE VALUE ASSIGNED TO THE SYMBOLIC NAME FOR
02279 M01S01187.286l859 ---|* THAT VARIABLE. THE BIT WILL BE SET IF THE VARIABLE IS TRUE
02280 M01S01188.286l859 ---|* AND CLEAR IF THE VARIABLE IS FALSE.
02281 M01S01189.286l859 ---|*
02282 M01S01190.286l859 ---|* THE DETERMINATION OF THE VALUE (TRUE OR FALSE) OF EACH
02283 M01S01191.286l859 ---|* BOOLEAN VARIABLE IS DONE BY SUBROUTINE *SBS* (SET BOOLEAN
02284 M01S01192.286l859 ---|* SELECTION PARAMETERS) BASED ON SELECTION PARAMETERS CONTAINED
02285 M01S01193.286l859 ---|* IN *CPAR* AND MASS STORAGE TABLE INFORMATION CONTAINED IN
02286 M01S01194.286l859 ---|* *MSTT*.
02287 M01S01195.286l859 ---|
02288 M01S01196.286l859 ---|
02289 M01S01197.286l859 ---| LOC 0 SET BIT POSITION OF FIRST BOOLEAN VARIABLE
02290 M01S01198.286l859 ---| DAFO BSS 1 DIRECT ACCESS FILES ONLY
02291 M01S01199.286l859 ---| DIDN BSS 1 *DI* CATALOGED ON DEVICE NUMBER
02292 M01S01200.286l859 ---| DISP BSS 1 *DI* SPECIFIED
02293 M01S01201.286l859 ---| DITD BSS 1 *DI* CATALOGED ON TRUE DEVICE NUMBER
02294 M01S01202.286l859 ---| DNMD BSS 1 DEVICE NUMBER SPECIFIES MASTER DEVICE
02295 M01S01203.286l859 ---| DNSP BSS 1 DEVICE NUMBER SPECIFIED
02296 M01S01204.286l859 ---| DNTD BSS 1 DEVICE NUMBER SAME AS TRUE DEVICE NUMBER
02297 M01S01205.286l859 ---| FNFS BSS 1 FORCE NO FILES SELECTED
02298 M01S01206.286l859 ---| IAFO BSS 1 INDIRECT ACCESS FILES ONLY
02299 M01S01207.286l859 ---| TDMD BSS 1 TRUE DEVICE NUMBER SPECIFIES MASTER DEVICE
02300 M01S01208.286l859 ---| TDSP BSS 1 TRUE DEVICE NUMBER SPECIFIED
02301 M01S01209.286l859 ---| ORG *O-*
02302 M01S01210.286l859 ---| SPACE 4,30
02303 M01S01211.286l859 ---|** FILE SELECTION BOOLEAN EXPRESSIONS.
02304 M01S01212.286l859 ---|*
02305 M01S01213.286l859 ---|* A SET OF FILE SELECTION BOOLEAN EXPRESSIONS IS DEFINED
02306 M01S01214.286l859 ---|* BELOW. EACH EXPRESSION IS GIVEN A SYMBOLIC NAME THAT IS
02307 M01S01215.286l859 ---|* MNEMONIC OF THE SELECTION CONDITION THAT IT DEFINES. FOR
02308 M01S01216.286l859 ---|* EXAMPLE, THE BOOLEAN EXPRESSION FOR DETERMINING THE STATUS OF
02309 M01S01217.286l859 ---|* THE SINGLE DEVICE FLAG IS GIVEN THE SYMBOLIC NAME *SDFL*.
02310 M01S01218.286l859 ---|*
02311 M01S01219.286l859 ---|* EACH EXPRESSION IS A FUNCTION OF THE BOOLEAN FILE
02312 M01S01220.286l859 ---|* SELECTION VARIABLES DEFINED ABOVE AND STORED IN WORD *BFSP*.
02313 M01S01221.286l859 ---|* THE SYMBOLIC NAME GIVEN AN EXPRESSION IS EQUAL TO THE MEMORY
02314 M01S01222.286l859 ---|* ADDRESS OF THE INTERNAL CODE FOR THE EXPRESSION. THIS
02315 M01S01223.286l859 ---|* ADDRESS CAN BE PASSED TO *EBE* (EVALUATE BOOLEAN EXPRESSION)
02316 M01S01224.286l859 ---|* ALONG WITH THE VALUES OF THE FILE SELECTION VARIABLES FROM
02317 M01S01225.286l859 ---|* *BFSP* TO DETERMINE THE VALUE OF AN EXPRESSION. THE BOOLEAN
02318 M01S01226.286l859 ---|* VALUE RESULTING FROM EVALUATING AN EXPRESSION CAN THEN BE
02319 M01S01227.286l859 ---|* USED TO DETERMINE IF A GIVEN ACTION SHOULD BE TAKEN. FOR
02320 M01S01228.286l859 ---|* EXAMPLE, IF THE BOOLEAN EXPRESSION *SDFL* MENTIONED ABOVE
02321 M01S01229.286l859 ---|* EVALUATES AS TRUE, THE SINGLE DEVICE FLAG WOULD BE SET. IF
02322 M01S01230.286l859 ---|* IT EVALUATES AS FALSE, THE SINGLE DEVICE FLAG WOULD BE
02323 M01S01231.286l859 ---|* CLEARED.
02324 M01S01232.286l859 ---|
02325 M01S01233.286l859 ---|
02326 M01S01234.286l859 ---| SDFL BOOL (DISP,DNMD,(DNSP,TDMD,-DNTD),(TDSP,-DISP,-DNSP,IAFO))
02327 M01S01235.286l859 ---| NMDN BOOL ((DNSP,-DNMD))
02328 M01S01236.286l859 ---| NMTD BOOL ((TDSP,DISP,-DITD),(TDSP,DNSP,-DNTD),(TDSP,-TDMD))
02329 M01S01237.286l859 ---| TDSL BOOL ((-DISP,-DNSP,TDSP))
02330 M01S01238.286l859 ---| FMDN BOOL (DNMD)
02331 M01S01239.286l859 ---| FMTD BOOL ((TDMD,-DISP,-DNMD))
02332 M01S01240.286l859 ---| FMDI BOOL (DISP)
02333 M01S01241.286l859 ---| NFSL BOOL ((DISP,DNMD,-DIDN),(DNSP,-DNMD,TDSP,-TDMD,-DNTD),(IAFO,
02334 M01S01242.286l859 ---|,DNSP,-DNMD),(IAFO,TDSP,-TDMD),(IAFO,TDSP,DISP,-DITD),(IAFO,TDSP,DNSP,-D
02335 M01S01243.286l859 ---|,NTD),(TDMD,DISP,-DITD,DNSP,-DNMD),FNFS)
02336 M01S01244.286l859 ---| SFP SPACE 4,15
02337 M01S01245.286l859 ---|** SFP - SET PERMANENT FILE PARAMETERS.
02338 M01S01246.286l859 ---|*
02339 M01S01247.286l859 ---|* ENTRY (CPAR) = CRACKED PARAMETER ARRAY.
02340 M01S01248.286l859 ---|*
02341 M01S01249.286l859 ---|* EXIT (GPAR - GPAR+2) = ORIGINAL USER PARAMETER VALUES.
02342 M01S01250.286l859 ---|* PERMANENT FILE PARAMETERS SET IN CONTROL POINT AREA.
02343 M01S01251.286l859 ---|*
02344 M01S01252.286l859 ---|* USES X - 1, 2, 3, 6, 7.
02345 M01S01253.286l859 ---|* A - 1, 2, 6, 7.
02346 M01S01254.286l859 ---|*
02347 M01S01255.286l859 ---|* MACROS GETPFP, SETPFP.
02348 M01S01256.286l859 ---|
02349 M01S01257.286l859 ---|
02350 M01S01258.286l859 ---| SFP SUBR ENTRY/EXIT
02351 M01S01259.286l859 ---| GETPFP GPAR GET CURRENT PARAMETERS
02352 M01S01260.286l859 ---| SA1 GPAR SET PARAMETER FLAGS IN BLOCK
02353 M01S01261.286l859 ---| SX6 FMPR+PKPR+UNPR+UIPR
02354 M01S01262.286l859 ---| BX7 X1+X6
02355 M01S01263.286l859 ---| SA2 CPAR+/COMSPFS/CPFN SET FAMILY NAME IN BLOCK
02356 M01S01264.286l859 ---| SA7 A1
02357 M01S01265.286l859 ---| SA1 CPAR+/COMSPFS/CPPN SET PACK NAME IN BLOCK
02358 M01S01266.286l859 ---| MX3 42
02359 M01S01267.286l859 ---| BX7 X3*X2
02360 M01S01268.286l859 ---| ZR X1,SFP1 IF PACK NAME NOT SPECIFIED
02361 M01S01269.286l859 ---| SX6 PKPR+UNPR+UIPR
02362 M01S01270.286l859 ---| SFP1 SA2 CPAR+/COMSPFS/CPUN SET USER NAME IN BLOCK
02363 M01S01271.286l859 ---| BX6 X7+X6
02364 M01S01272.286l859 ---| BX7 X3*X1
02365 M01S01273.286l859 ---| SA6 SPAR
02366 M01S01274.286l859 ---| SA7 A6+B1
02367 M01S01275.286l859 ---| BX6 X3*X2
02368 M01S01276.286l859 ---| SX1 A6 SET PARAMETER BLOCK ADDRESS
02369 M01S01277.286l859 ---| SA6 A7+B1
02370 M01S01278.286l859 ---| SETPFP X1 SET PARAMETERS
02371 M01S01279.286l859 ---| EQ SFPX RETURN
02372 M01S01280.286l859 ---| SSP SPACE 4,20
02373 M01S01281.286l859 ---|** SSP - SET FILE SELECTION PARAMETERS.
02374 M01S01282.286l859 ---|*
02375 M01S01283.286l859 ---|* ENTRY (BFSP) = BINARY FILE SELECTION PARAMETERS.
02376 M01S01284.286l859 ---|*
02377 M01S01285.286l859 ---|* EXIT (FSSD) = SINGLE DEVICE STATUS.
02378 M01S01286.286l859 ---|* (FSNM) = NON-MASTER DEVICE FILE SELECTION PARAMETER.
02379 M01S01287.286l859 ---|* (FSTD) = TRUE DEVICE FILE SELECTION PARAMETER.
02380 M01S01288.286l859 ---|* FIRST DEVICE IN *MSTT* IS FIRST DEVICE TO BE
02381 M01S01289.286l859 ---|* PROCESSED.
02382 M01S01290.286l859 ---|* TO *ABT* IF NO FILES SELECTED.
02383 M01S01291.286l859 ---|*
02384 M01S01292.286l859 ---|* USES X - 1, 2, 6, 7.
02385 M01S01293.286l859 ---|* A - 1, 2, 6, 7.
02386 M01S01294.286l859 ---|*
02387 M01S01295.286l859 ---|* CALLS EBE, LDN, LUI.
02388 M01S01296.286l859 ---|
02389 M01S01297.286l859 ---|
02390 M01S01298.286l859 ---|* EXCHANGE DEVICE WITH FIRST ENTRY IN *MSTT*.
02391 M01S01299.286l859 ---|
02392 M01S01300.286l859 ---| SSP5 RJ LDN LOCATE DEVICE IN MASS STORAGE TABLE
02393 M01S01301.286l859 ---| SSP6 SA1 B2+B1 EXCHANGE DEVICE WITH FIRST *MSTT* ENTRY
02394 M01S01302.286l859 ---| BX6 X2
02395 M01S01303.286l859 ---| SA2 MSTT
02396 M01S01304.286l859 ---| BX7 X1
02397 M01S01305.286l859 ---| SA1 A2+B1
02398 M01S01306.286l859 ---| SA6 A2
02399 M01S01307.286l859 ---| SA7 A2+B1
02400 M01S01308.286l859 ---| BX6 X2
02401 M01S01309.286l859 ---| LX7 X1
02402 M01S01310.286l859 ---| SA6 B2
02403 M01S01311.286l859 ---| SA7 B2+B1
02404 M01S01312.286l859 ---|
02405 M01S01313.286l859 ---| SSP SUBR ENTRY/EXIT
02406 M01S01314.286l859 ---|
02407 M01S01315.286l859 ---|* CHECK FOR NO FILES SELECTED.
02408 M01S01316.286l859 ---|
02409 M01S01317.286l859 ---| SA2 BFSP GET BOOLEAN SELECTION PARAMETERS
02410 M01S01318.286l859 ---| SA1 NFSL CHECK FOR NO FILES SELECTED
02411 M01S01319.286l859 ---| RJ EBE
02412 M01S01320.286l859 ---| ZR X6,SSP1 IF FILES SELECTED
02413 M01S01321.286l859 ---| SX1 MENF SET NO FILES SELECTED MESSAGE
02414 M01S01322.286l859 ---| EQ ABT ABORT
02415 M01S01323.286l859 ---|
02416 M01S01324.286l859 ---|* CHECK FOR SINGLE DEVICE SELECTED.
02417 M01S01325.286l859 ---|
02418 M01S01326.286l859 ---| SSP1 SA1 SDFL CHECK FOR SINGLE DEVICE SELECTED
02419 M01S01327.286l859 ---| RJ EBE
02420 M01S01328.286l859 ---| SA6 FSSD SAVE SINGLE DEVICE STATUS
02421 M01S01329.286l859 ---|
02422 M01S01330.286l859 ---|* PROCESS NON-MASTER FILE RESIDENCE DEVICE SELECTION.
02423 M01S01331.286l859 ---|
02424 M01S01332.286l859 ---| SA1 NMDN
02425 M01S01333.286l859 ---| RJ EBE EVALUATE BOOLEAN EXPRESSION
02426 M01S01334.286l859 ---| ZR X6,SSP2 IF *DN* NOT NON-MASTER RESIDENCE DEVICE
02427 M01S01335.286l859 ---| SA1 CPAR+/COMSPFS/CPDN SET NON-MASTER DEVICE TO *DN*
02428 M01S01336.286l859 ---| BX6 X1
02429 M01S01337.286l859 ---| SA6 FSNM
02430 M01S01338.286l859 ---| SSP2 SA1 NMTD
02431 M01S01339.286l859 ---| RJ EBE EVALUATE BOOLEAN EXPRESSION
02432 M01S01340.286l859 ---| ZR X6,SSP3 IF *TD* NOT NON-MASTER RESIDENCE DEVICE
02433 M01S01341.286l859 ---| SA1 CPAR+/COMSPFS/CPTD SET NON-MASTER DEVICE TO *TD*
02434 M01S01342.286l859 ---| BX6 X1
02435 M01S01343.286l859 ---| SA6 FSNM
02436 M01S01344.286l859 ---|
02437 M01S01345.286l859 ---|* PROCESS TRUE DEVICE FILE SELECTION.
02438 M01S01346.286l859 ---|
02439 M01S01347.286l859 ---| SSP3 SA1 TDSL
02440 M01S01348.286l859 ---| RJ EBE EVALUATE BOOLEAN EXPRESSION
02441 M01S01349.286l859 ---| ZR X6,SSP4 IF NOT TRUE DEVICE FILE SELECTION
02442 M01S01350.286l859 ---| SA1 CPAR+/COMSPFS/CPTD SET TRUE DEVICE FILE SELECTION
02443 M01S01351.286l859 ---| BX6 X1
02444 M01S01352.286l859 ---| SA6 FSTD
02445 M01S01353.286l859 ---|
02446 M01S01354.286l859 ---|* PROCESS FIRST MASTER DEVICE SELECTION.
02447 M01S01355.286l859 ---|
02448 M01S01356.286l859 ---| SSP4 SA1 FMDN CHECK IF *DN* IS FIRST MASTER DEVICE
02449 M01S01357.286l859 ---| RJ EBE
02450 M01S01358.286l859 ---| SA1 CPAR+/COMSPFS/CPDN
02451 M01S01359.286l859 ---| NZ X6,SSP5 IF *DN* IS FIRST MASTER DEVICE
02452 M01S01360.286l859 ---| SA1 FMTD CHECK IF *TD* IS FIRST MASTER DEVICE
02453 M01S01361.286l859 ---| RJ EBE
02454 M01S01362.286l859 ---| SA1 CPAR+/COMSPFS/CPTD
02455 M01S01363.286l859 ---| NZ X6,SSP5 IF *TD* IS FIRST MASTER DEVICE
02456 M01S01364.286l859 ---| SA1 FMDI CHECK IF *DI* IS FIRST MASTER DEVICE
02457 M01S01365.286l859 ---| RJ EBE
02458 M01S01366.286l859 ---| ZR X6,SSPX IF *DI* NOT FIRST MASTER DEVICE
02459 M01S01367.286l859 ---| SA1 CPAR+/COMSPFS/CPDI LOCATE MASTER DEVICE FOR *DI*
02460 M01S01368.286l859 ---| RJ LUI
02461 M01S01369.286l859 ---| EQ SSP6 MOVE DEVICE TO START OF TABLE
02462 M01S01370.286l859 ---| WDV SPACE 4,10
02463 M01S01371.286l859 ---|** WDV - WRITE DEVICE STATUS BLOCK TO SUMMARY FILE.
02464 M01S01372.286l859 ---|*
02465 M01S01373.286l859 ---|* EXIT DEVICE STATUS BLOCK WRITTEN.
02466 M01S01374.286l859 ---|*
02467 M01S01375.286l859 ---|* USES X - 0, 1, 2, 3, 4, 6, 7.
02468 M01S01376.286l859 ---|* A - 0, 1, 2, 3, 4, 6, 7.
02469 M01S01377.286l859 ---|*
02470 M01S01378.286l859 ---|* CALLS FAB, MWA.
02471 M01S01379.286l859 ---|
02472 M01S01380.286l859 ---|
02473 M01S01381.286l859 ---| WDV SUBR ENTRY/EXIT
02474 M01S01382.286l859 ---| SA1 DSID SET DEVICE STATUS BLOCK IDENTIFIER
02475 M01S01383.286l859 ---| SA2 CPAR+/COMSPFS/CPFN
02476 M01S01384.286l859 ---| SA3 CPAR+/COMSPFS/CPPN
02477 M01S01385.286l859 ---| SA4 CPAR+/COMSPFS/CPUN
02478 M01S01386.286l859 ---| MX7 42
02479 M01S01387.286l859 ---| BX6 X1
02480 M01S01388.286l859 ---| BX2 X7*X2
02481 M01S01389.286l859 ---| BX3 X7*X3
02482 M01S01390.286l859 ---| SA6 CFBI SET BLOCK IDENTIFIER
02483 M01S01391.286l859 ---| BX4 X7*X4
02484 M01S01392.286l859 ---| BX7 X2+X3 SET FAMILY NAME OR PACK NAME
02485 M01S01393.286l859 ---| SA7 WDVA
02486 M01S01394.286l859 ---| ZR X3,WDV1 IF NOT AUXILIARY DEVICE
02487 M01S01395.286l859 ---| BX6 X4 SET USER NAME
02488 M01S01396.286l859 ---| SA6 WDVB
02489 M01S01397.286l859 ---| WDV1 SX0 B1+B1 ALLOCATE TWO WORDS
02490 M01S01398.286l859 ---| SX1 B1+B1 SET WORD COUNT
02491 M01S01399.286l859 ---| SX2 WDVA
02492 M01S01400.286l859 ---| RJ MWA MOVE PARAMETERS TO ASSEMBLY BUFFER
02493 M01S01401.286l859 ---| SA0 DSTBUF SET DEVICE STATUS BUFFER ADDRESS
02494 M01S01402.286l859 ---| WDV2 SA1 A0 READ NEXT DEVICE INFORMATION
02495 M01S01403.286l859 ---| ZR X1,WDV3 IF END OF DEVICES
02496 M01S01404.286l859 ---| SX0 B1+B1 ALLOCATE TWO WORDS
02497 M01S01405.286l859 ---| SX1 B1+B1 SET WORD COUNT
02498 M01S01406.286l859 ---| SX2 A0 SET ENTRY ADDRESS
02499 M01S01407.286l859 ---| RJ MWA MOVE ENTRY TO ASSEMBLY BUFFER
02500 M01S01408.286l859 ---| SA0 A0+2 ADVANCE TO NEXT ENTRY
02501 M01S01409.286l859 ---| EQ WDV2 PROCESS NEXT DEVICE
02502 M01S01410.286l859 ---|
02503 M01S01411.286l859 ---| WDV3 RJ FAB FLUSH ASSEMBLY BUFFER
02504 M01S01412.286l859 ---| EQ WDVX RETURN
02505 M01S01413.286l859 ---|
02506 M01S01414.286l859 ---|
02507 M01S01415.286l859 ---| WDVA CON 0 FAMILY NAME OR PACK NAME
02508 M01S01416.286l859 ---| WDVB CON 0 USER NAME OF PRIVATE PACK
02509 M01S01417.286l859 ---| SPACE 4,10
02510 M01S01418.286l859 ---|* COMMON *PFDUMP*/*PFDM* PRESET MESSAGES.
02511 M01S01419.286l859 ---|
02512 M01S01420.286l859 ---|
02513 M01S01421.286l859 ---| MEDN DATA C* ??????? - DEVICE $021 NOT FOUND.*
02514 M01S01422.286l859 ---| MENF DATA C* ??????? - NO FILES SELECTED.*
02515 M01S01423.286l859 ---| TDPM SPACE 4,10
02516 M01S01424.286l859 ---|* TDPM - TABLE OF PRESET MESSAGE POINTERS.
02517 M01S01425.286l859 ---|
02518 M01S01426.286l859 ---|
02519 M01S01427.286l859 ---| TDPM BSS 0 START OF TABLE
02520 M01S01428.286l859 ---| CON MEDN * DEVICE NN NOT FOUND.*
02521 M01S01429.286l859 ---| CON MENF * NO FILES SELECTED.*
02522 M01S01430.286l859 ---| CON 0 END OF TABLE
| Line S01061 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02523 M01S01061.286l859 +++| SPACE 4
02524 M00S01431.comcpfp +++| PFD$ ENDIF
| Line S01432 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02525 M01S01432.286l859 ---| SPACE 4,10
| Line S01062 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02526 M01S01062.286l859 +++| SPACE 4
02527 M00S01433.comcpfp +++| BASE *
02528 M00S01434.comcpfp +++| QUAL$ IF -DEF,QUAL$
02529 M00S01435.comcpfp +++| QUAL *
02530 M01S01063.286l859 +++| DSS EQU /COMCPFP/DSS
02531 M01S01064.286l859 +++| IOF EQU /COMCPFP/IOF
02532 M01S01065.286l859 +++| ODV EQU /COMCPFP/ODV
02533 M01S01066.286l859 +++| PFO EQU /COMCPFP/PFO
02534 M00S01436.comcpfp +++| RPS EQU /COMCPFP/RPS
| Line S01437 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02535 M01S01437.286l859 ---| COM$ IF DEF,COM$
02536 M01S01438.286l859 ---| DSS EQU /COMCPFP/DSS
02537 M01S01439.286l859 ---| IOF EQU /COMCPFP/IOF
02538 M01S01440.286l859 ---| PFO EQU /COMCPFP/PFO
02539 M01S01441.286l859 ---| SUN EQU /COMCPFP/SUN
| Line S01067 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02540 M01S01067.286l859 +++| SPT EQU /COMCPFP/SPT
02541 M00S01442.comcpfp +++| EQAL EQU /COMCPFP/EQAL
02542 M01S01068.286l859 +++| OFFN EQU /COMCPFP/OFFN
02543 M01S01069.286l859 +++| OFPN EQU /COMCPFP/OFPN
02544 M01S01070.286l859 +++| OFUN EQU /COMCPFP/OFUN
02545 M01S01071.286l859 +++| OFUC EQU /COMCPFP/OFUC
02546 M00S01443.comcpfp +++| PCLA EQU /COMCPFP/PCLA
02547 M00S01444.comcpfp +++| PCUA EQU /COMCPFP/PCUA
02548 M00S01445.comcpfp +++| SYLA EQU /COMCPFP/SYLA
02549 M00S01446.comcpfp +++| SYUA EQU /COMCPFP/SYUA
| Line S01447 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02550 M01S01447.286l859 ---| TPMP EQU /COMCPFP/TPMP
02551 M01S01448.286l859 ---| COM$ ENDIF
02552 M00S01449.comcpfp ---| PFA$ IF DEF,PFA$
02553 M00S01450.comcpfp ---| SSS EQU /COMCPFP/SSS
02554 M00S01451.comcpfp ---| PFA$ ENDIF
| Line S01072 Modification History |
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02555 M01S01072.286l859 +++| DVA$ IF DEF,DVA$
02556 M01S01073.286l859 +++| BMT EQU /COMCPFP/BMT
02557 M01S01074.286l859 +++| SFP EQU /COMCPFP/SFP
02558 M01S01075.286l859 +++| SMK EQU /COMCPFP/SMK
02559 M01S01076.286l859 +++| DVA$ ENDIF
02560 M00S01452.comcpfp +++| PFD$ IF DEF,PFD$
| Line S01453 Modification History |
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act
----------------------------+
02561 M01S01453.286l859 ---| BMT EQU /COMCPFP/BMT
02562 M00S01454.comcpfp ---| CAL EQU /COMCPFP/CAL
02563 M00S01455.comcpfp ---| OSP EQU /COMCPFP/OSP
02564 M00S01456.comcpfp ---| OSPA EQU /COMCPFP/OSPA
02565 M01S01457.286l859 ---| SBS EQU /COMCPFP/SBS
02566 M01S01458.286l859 ---| SFP EQU /COMCPFP/SFP
02567 M01S01459.286l859 ---| SSP EQU /COMCPFP/SSP
02568 M01S01460.286l859 ---| WDV EQU /COMCPFP/WDV
02569 M01S01461.286l859 ---| TDPM EQU /COMCPFP/TDPM
02570 M00S01462.comcpfp ---| PFD$ ENDIF
02571 M00S01463.comcpfp ---| QUAL$ ENDIF
02572 M00S01464.comcpfp ---| ENDX