4 Modifications

Seq #  *Modification Id* Act 
----------------------------+
01610  M01S00803.286l859 +++|          SA6    A7+B1
01611  M01S00804.286l859 +++|          SETPFP X1          SET PARAMETERS
01612  M01S00805.286l859 +++|
01613  M01S00806.286l859 +++|*         SET PARAMETERS FOR CATALOG ACCESS.
01614  M01S00807.286l859 +++|
01615  M01S00808.286l859 +++|          SA1    MSTT
01616  M01S00809.286l859 +++|          SA2    CPAR+/COMSPFS/CPPN
01617  M01S00810.286l859 +++|          MX6    -9
01618  M01S00811.286l859 +++|          MX3    42          SET PACKNAME FOR AUXILIARY DEVICE
01619  M01S00812.286l859 +++|          LX1    -6
01620  M01S00813.286l859 +++|          BX6    -X6*X1      SET EST ORDINAL FOR FAMILY DEVICE
01621  M01S00814.286l859 +++|          ZR     X2,SFP2     IF NOT PROCESSING AUXILIARY DEVICE
01622  M01S00815.286l859 +++|          BX6    X3*X2
01623  M01S00816.286l859 +++| SFP2     SA6    PDWD        SET PF DESCRIPTION FOR *CATS* FILE
01624  M01S00817.286l859 +++|
01625  M01S00818.286l859 +++|*         SET FAMILY OR PACK NAME FOR *PFM* PROCESSING AND MESSAGES.
01626  M01S00819.286l859 +++|
01627  M01S00820.286l859 +++|          SA1    CPAR+/COMSPFS/CPFN
01628  M01S00821.286l859 +++|          BX6    X3*X2
01629  M01S00822.286l859 +++|          BX7    X3*X1
01630  M01S00823.286l859 +++|          BX7    X6+X7
01631  M01S00824.286l859 +++|          SA7    FMPN        SET FAMILY NAME OR PACK NAME
01632  M01S00825.286l859 +++|          EQ     SFPX        RETURN
01633  M01S00826.286l859 +++| SMK      SPACE  4,15
01634  M01S00827.286l859 +++|**        SMK - SET FILE SELECTION MASK.
01635  M01S00828.286l859 +++|*
01636  M01S00829.286l859 +++|*         EXIT   (MASK) = FILE SELECTION MASK.
01637  M01S00830.286l859 +++|*                (SXUF) .NE. 0 IF *SYSTEMX* FILES ARE THE ONLY FILES TO
01638  M01S00831.286l859 +++|*                  PROCESS ON SUBFAMILY 7.
01639  M01S00832.286l859 +++|*                TO *ABT* IF *DN* OR *TD* DEVICE NOT FOUND OR IF NO
01640  M01S00833.286l859 +++|*                  FILES SELECTED.
01641  M01S00834.286l859 +++|*
01642  M01S00835.286l859 +++|*         USES   X - 0, 1, 2, 3, 4, 6, 5, 7.
01643  M01S00836.286l859 +++|*                A - 1, 2, 3, 6, 7.
01644  M01S00837.286l859 +++|*                B - 2, 3, 4, 5, 6, 7.
01645  M01S00838.286l859 +++|*
01646  M01S00839.286l859 +++|*         CALLS  SUM.
01647  M01S00840.286l859 +++|
01648  M01S00841.286l859 +++|
01649  M01S00842.286l859 +++| SMK      SUBR               ENTRY/EXIT
01650  M01S00843.286l859 +++|
01651  M01S00844.286l859 +++|*         INITIALIZE *PFLOAD* FLAG.
01652  M01S00845.286l859 +++|
01653  M01S00846.286l859 +++|          SA5    /COMSPFS/UTLC
01654  M01S00847.286l859 +++|          SX5    X5-/COMSPFS/LDUT
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.

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 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01824  M01S00785.286l859 ---|*         EXIT   (PCLA) AND (PCUA) CHANGED TO THE *LA* AND *UA*
01825  M01S00786.286l859 ---|*                VALUES, IF SPECIFIED.

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 +++|*

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.

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

Seq #  *Modification Id* Act 
----------------------------+
01840  M01S00797.286l859 ---|          MX0    -5

Seq #  *Modification Id* Act 
----------------------------+
01841  M01S01012.286l859 +++|          MX0    -3
01842  M00S00798.comcpfp +++|          BX6    -X0*X1
01843  M00S00799.comcpfp +++|          BX7    -X0*X2

Seq #  *Modification Id* Act 
----------------------------+
01844  M01S00800.286l859 ---|          ZR     X2,CAL1     IF NO ACCESS LEVELS SPECIFIED
01845  M01S00801.286l859 ---|          SA6    PCLA        SET RANGE

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

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

Seq #  *Modification Id* Act 
----------------------------+
01996  M01S00918.286l859 ---|          WRITEH OUTPUT,OSPO,1

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

Seq #  *Modification Id* Act 
----------------------------+
02017  M01S00935.286l859 ---|          WRITEH OUTPUT,OSPB,3

Seq #  *Modification Id* Act 
----------------------------+
02018  M01S01051.286l859 +++|          WRITEH O,OSPB,3
02019  M00S00936.comcpfp +++|          SA1    /COMSPFS/UTLC

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

Seq #  *Modification Id* Act 
----------------------------+
02023  M01S00940.286l859 ---| OSP1     SA1    CPAR+/COMSPFS/CPIP

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

Seq #  *Modification Id* Act 
----------------------------+
02044  M01S00960.286l859 ---|          WRITEH OUTPUT,OSPL,3

Seq #  *Modification Id* Act 
----------------------------+
02045  M01S01053.286l859 +++|          WRITEH O,OSPL,3
02046  M00S00961.comcpfp +++|          EQ     OSP7        CHECK ACCESS LEVEL OPTIONS
02047  M00S00962.comcpfp +++|

Seq #  *Modification Id* Act 
----------------------------+
02048  M01S00963.286l859 ---| OSP6     WRITEH OUTPUT,OSPM,3

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

Seq #  *Modification Id* Act 
----------------------------+
02069  M01S00983.286l859 ---|          WRITEH OUTPUT,OSPT,4

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+

Seq #  *Modification Id* Act 
----------------------------+
02107  M01S01020.286l859 ---| OSP10    WRITEH OUTPUT,OSPB,A6-OSPB+1  WRITE DATE SELECTION MESSAGE

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

Seq #  *Modification Id* Act 
----------------------------+
02116  M01S01028.286l859 ---|          WRITEH OUTPUT,OSPF,4

Seq #  *Modification Id* Act 
----------------------------+
02117  M01S01057.286l859 +++|          WRITEH O,OSPF,4
02118  M00S01029.comcpfp +++|          EQ     OSP13       WRITE FINAL OUTPUT LINE
02119  M00S01030.comcpfp +++|

Seq #  *Modification Id* Act 
----------------------------+
02120  M01S01031.286l859 ---| OSP12    WRITEH OUTPUT,OSPE,5
02121  M01S01032.286l859 ---| OSP13    WRITEH OUTPUT,OSPO,1

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 +++|

Seq #  *Modification Id* Act 
----------------------------+
02127  M01S01036.286l859 ---| OSPA     DATA   30C PFDUMP DEVICE MASK

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

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

Seq #  *Modification Id* Act 
----------------------------+
02523  M01S01061.286l859 +++|          SPACE  4
02524  M00S01431.comcpfp +++| PFD$     ENDIF

Seq #  *Modification Id* Act 
----------------------------+
02525  M01S01432.286l859 ---|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
02526  M01S01062.286l859 +++|          SPACE  4
02527  M00S01433.comcpfp +++|          BASE   *
02528  M00S01434.comcpfp +++| QUAL$    IF     -DEF,QUAL$
02529  M00S01435.comcpfp +++|          QUAL   *

Seq #  *Modification Id* Act 
----------------------------+
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

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

Seq #  *Modification Id* Act 
----------------------------+
02540  M01S01067.286l859 +++| SPT      EQU    /COMCPFP/SPT
02541  M00S01442.comcpfp +++| EQAL     EQU    /COMCPFP/EQAL

Seq #  *Modification Id* Act 
----------------------------+
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

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

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$

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

Seq #  *Modification Id* Act 
----------------------------+
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