4 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
00923  M02S00217.286l859 ---|*         USES   X - 1, 2, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
00924  M02S00218.286l859 ---|*                A - 1, 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
00925  M02S00219.286l859 ---|*                B - 2, 5.

Seq #  *Modification Id* Act 
----------------------------+
00926  M02S00220.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00927  M02S00221.286l859 ---|*         CALLS  SNM, ZTB.

Seq #  *Modification Id* Act 
----------------------------+
00928  M02S00222.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00929  M02S00223.286l859 ---|*         MACROS EDATE, ETIME, MOVE.

Seq #  *Modification Id* Act 
----------------------------+
00930  M02S00224.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00931  M02S00225.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00932  M02S00226.286l859 ---| SPT      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00227.286l859 ---|          SA1    /COMSPFS/UTLC

Seq #  *Modification Id* Act 
----------------------------+
00934  M02S00228.286l859 ---|          SX5    X1-1        SET INDEX TO CATALOG PROCESSING TITLE

Seq #  *Modification Id* Act 
----------------------------+
00935  M02S00229.286l859 ---|          SX2    SPTCL

Seq #  *Modification Id* Act 
----------------------------+
00936  M02S00230.286l859 ---|          ERRNZ  SPTDL-SPTCL TABLE ENTRY LENGTHS MUST MATCH

Seq #  *Modification Id* Act 
----------------------------+
00937  M02S00231.286l859 ---|          IX5    X5*X2

Seq #  *Modification Id* Act 
----------------------------+
00938  M02S00232.286l859 ---|          SX2    X5+SPTC

Seq #  *Modification Id* Act 
----------------------------+
00939  M02S00233.286l859 ---|          MOVE   SPTCL,X2,CPTX  SET CATALOG PROCESSING TITLE

Seq #  *Modification Id* Act 
----------------------------+
00940  M02S00234.286l859 ---|          SX2    X5+SPTD

Seq #  *Modification Id* Act 
----------------------------+
00941  M02S00235.286l859 ---|          MOVE   SPTDL,X2,CITX  SET CATALOG IMAGE RECORD TITLE

Seq #  *Modification Id* Act 
----------------------------+
00942  M02S00236.286l859 ---|          SA1    CPAR+/COMSPFS/CPFN

Seq #  *Modification Id* Act 
----------------------------+
00943  M02S00237.286l859 ---|          SB2    1R?         SET SEARCH CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
00944  M02S00238.286l859 ---|          MX6    42

Seq #  *Modification Id* Act 
----------------------------+
00945  M02S00239.286l859 ---|          BX1    X6*X1

Seq #  *Modification Id* Act 
----------------------------+
00946  M02S00240.286l859 ---|          ZR     X1,SPT1     IF NO FAMILY NAME

Seq #  *Modification Id* Act 
----------------------------+
00947  M02S00241.286l859 ---|          SB5    SPTA        SET FAMILY MESSAGE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00948  M02S00242.286l859 ---|          EQ     SPT2        SET FAMILY NAME

Seq #  *Modification Id* Act 
----------------------------+
00949  M02S00243.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00950  M02S00244.286l859 ---| SPT1     SA1    CPAR+/COMSPFS/CPPN

Seq #  *Modification Id* Act 
----------------------------+
00951  M02S00245.286l859 ---|          BX1    X6*X1

Seq #  *Modification Id* Act 
----------------------------+
00952  M02S00246.286l859 ---|          ZR     X1,SPT3     IF NO PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
00953  M02S00247.286l859 ---|          SB5    SPTB        SET PACK NAME MESSAGE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00954  M02S00248.286l859 ---| SPT2     RJ     SNM         SET FAMILY OR PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
00955  M02S00249.286l859 ---|          SA1    B5

Seq #  *Modification Id* Act 
----------------------------+
00956  M02S00250.286l859 ---|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
00957  M02S00251.286l859 ---|          SA6    PGFM

Seq #  *Modification Id* Act 
----------------------------+
00958  M02S00252.286l859 ---|          SA1    B5+B1

Seq #  *Modification Id* Act 
----------------------------+
00959  M02S00253.286l859 ---|          RJ     ZTB         BLANK FILL ZEROES

Seq #  *Modification Id* Act 
----------------------------+
00960  M02S00254.286l859 ---|          SA6    PGFM+1

Seq #  *Modification Id* Act 
----------------------------+
00961  M02S00255.286l859 ---| SPT3     SA1    /COMSPFS/STDT

Seq #  *Modification Id* Act 
----------------------------+
00962  M02S00256.286l859 ---|          BX5    X1

Seq #  *Modification Id* Act 
----------------------------+
00963  M02S00257.286l859 ---|          AX1    18

Seq #  *Modification Id* Act 
----------------------------+
00964  M02S00258.286l859 ---|          EDATE  X1

Seq #  *Modification Id* Act 
----------------------------+
00965  M02S00259.286l859 ---|          SA6    PGSD        SET START DATE

Seq #  *Modification Id* Act 
----------------------------+
00966  M02S00260.286l859 ---|          MX1    -18

Seq #  *Modification Id* Act 
----------------------------+
00967  M02S00261.286l859 ---|          BX1    -X1*X5

Seq #  *Modification Id* Act 
----------------------------+
00968  M02S00262.286l859 ---|          ETIME  X1

Seq #  *Modification Id* Act 
----------------------------+
00969  M02S00263.286l859 ---|          SA6    PGST        SET START TIME

Seq #  *Modification Id* Act 
----------------------------+
00970  M02S00264.286l859 ---|          EQ     SPTX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00971  M02S00265.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00972  M02S00266.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00973  M02S00267.286l859 ---| SPTA     DATA   C*FAMILY = ???????.*

Seq #  *Modification Id* Act 
----------------------------+
00974  M02S00268.286l859 ---| SPTB     DATA   C*PACK NAME = ???????.*

Seq #  *Modification Id* Act 
----------------------------+
00975  M02S00269.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00976  M02S00270.286l859 ---|*         TABLE OF CATALOG PROCESSING TITLE TEXT.  THIS TABLE MUST BE

Seq #  *Modification Id* Act 
----------------------------+
00977  M02S00271.286l859 ---|*         MAINTAINED IN THE ORDER OF THE UTILITY CODES DEFINED IN

Seq #  *Modification Id* Act 
----------------------------+
00978  M02S00272.286l859 ---|*         *COMSPFS* AND EACH ENTRY MUST BE *SPTCL* (5) WORDS IN LENGTH.

Seq #  *Modification Id* Act 
----------------------------+
00979  M02S00273.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00980  M02S00274.286l859 ---| SPTC     BSS    0           START OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
00981  M02S00275.286l859 ---|          DATA   50H1 PFLOAD. FILES LOADED FROM ARCHIVE FILE.

Seq #  *Modification Id* Act 
----------------------------+
00982  M02S00276.286l859 ---| SPTCL    EQU    *-SPTC      LENGTH OF ONE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
00983  M02S00277.286l859 ---|          DATA   50H1 PFDUMP. FILES DUMPED TO ARCHIVE FILE.

Seq #  *Modification Id* Act 
----------------------------+
00984  M02S00278.286l859 ---|          DATA   50H1 PFCAT.  FILES ON ACTIVE DEVICES.

Seq #  *Modification Id* Act 
----------------------------+
00985  M02S00279.286l859 ---|          DATA   50H1 PFATC.  FILES ON ARCHIVE FILE.

Seq #  *Modification Id* Act 
----------------------------+
00986  M02S00280.286l859 ---|          DATA   50H1 PFCOPY. FILES COPIED FROM ARCHIVE FILE.

Seq #  *Modification Id* Act 
----------------------------+
00987  M02S00281.286l859 ---|          DATA   50H1 PFREL.  FILES SELECTED FOR RELEASE.

Seq #  *Modification Id* Act 
----------------------------+
00988  M02S00282.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00989  M02S00283.286l859 ---|*         TABLE OF CATALOG IMAGE RECORD TITLE TEXT.  THIS TABLE MUST BE

Seq #  *Modification Id* Act 
----------------------------+
00990  M02S00284.286l859 ---|*         MAINTAINED IN THE ORDER OF THE UTILITY CODES DEFINED IN

Seq #  *Modification Id* Act 
----------------------------+
00991  M02S00285.286l859 ---|*         *COMSPFS* AND EACH ENTRY MUST BE *SPTDL* (5) WORDS IN LENGTH.

Seq #  *Modification Id* Act 
----------------------------+
00992  M02S00286.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00993  M02S00287.286l859 ---| SPTD     BSS    0           START OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
00994  M02S00288.286l859 ---|          DATA   50H1 PFLOAD. FILES ON CATALOG IMAGE RECORD.

Seq #  *Modification Id* Act 
----------------------------+
00995  M02S00289.286l859 ---| SPTDL    EQU    *-SPTD      LENGTH OF ONE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
00996  M02S00290.286l859 ---|          DATA   50H1 PFDUMP. FILES ON CATALOG IMAGE RECORD.

Seq #  *Modification Id* Act 
----------------------------+
00997  M02S00291.286l859 ---|          DATA   50H

Seq #  *Modification Id* Act 
----------------------------+
00998  M02S00292.286l859 ---|          DATA   50H1 PFATC.  FILES ON CATALOG IMAGE RECORD.

Seq #  *Modification Id* Act 
----------------------------+
00999  M02S00293.286l859 ---|          DATA   50H

Seq #  *Modification Id* Act 
----------------------------+
01000  M02S00294.286l859 ---|          DATA   50H

Seq #  *Modification Id* Act 
----------------------------+
01001  M02S00295.286l859 ---| SUN      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
01002  M02S00296.286l859 ---|**        SUN - SET UTILITY NAME IN MESSAGES.

Seq #  *Modification Id* Act 
----------------------------+
01003  M02S00297.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01004  M02S00298.286l859 ---|*         ENTRY  (A0) = ADDRESS OF MESSAGE LIST.

Seq #  *Modification Id* Act 
----------------------------+
01005  M02S00299.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01006  M02S00300.286l859 ---|*         EXIT   UTILITY NAME SET IN MESSAGES.

Seq #  *Modification Id* Act 
----------------------------+
01007  M02S00301.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01008  M02S00302.286l859 ---|*         USES   X - 1, 2.

Seq #  *Modification Id* Act 
----------------------------+
01009  M02S00303.286l859 ---|*                A - 0, 1, 2.

Seq #  *Modification Id* Act 
----------------------------+
01010  M02S00304.286l859 ---|*                B - 2, 5.

Seq #  *Modification Id* Act 
----------------------------+
01011  M02S00305.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01012  M02S00306.286l859 ---|*         CALLS  SNM.

Seq #  *Modification Id* Act 
----------------------------+
01013  M02S00307.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01014  M02S00308.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01015  M02S00309.286l859 ---| SUN      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01016  M02S00310.286l859 ---|          SB2    1R?         SET SEARCH CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
01017  M02S00311.286l859 ---| SUN1     SA2    A0+         READ NEXT MESSAGE POINTER

Seq #  *Modification Id* Act 
----------------------------+
01018  M02S00312.286l859 ---|          SA1    /COMSPFS/UTLN  SET UTILITY NAME

Seq #  *Modification Id* Act 
----------------------------+
01019  M02S00313.286l859 ---|          ZR     X2,SUNX     IF END OF MESSAGES

Seq #  *Modification Id* Act 
----------------------------+
01020  M02S00314.286l859 ---|          SB5    X2+         SET MESSAGE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01021  M02S00315.286l859 ---|          RJ     SNM         SET UTILITY NAME IN MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01022  M02S00316.286l859 ---|          SA0    A0+B1       ADVANCE TO NEXT MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01023  M02S00317.286l859 ---|          EQ     SUN1        PROCESS NEXT MESSAGE
01024  M01S00675.286l859 +++| ZZZZZGB  FILEB  0,0,FET=10
01025  M01S00318.comcpfp +++| VES      SPACE  4,20
01026  M01S00319.comcpfp +++|**        VES - VERIFY EQUIPMENT SECURITY.
01027  M01S00320.comcpfp +++|*
01028  M01S00321.comcpfp +++|*         ENTRY  FILE ASSIGNED.
01029  M01S00322.comcpfp +++|*                (A5) = FET ADDRESS.
01030  M01S00323.comcpfp +++|*                (SYSS) = SYSTEM SECURITY MODE.
01031  M01S00324.comcpfp +++|*                (PCLA) = LOWER ACCESS LEVEL TO PROCESS.
01032  M01S00325.comcpfp +++|*                (PCUA) = UPPER ACCESS LEVEL TO PROCESS.
01033  M01S00326.comcpfp +++|*
01034  M01S00327.comcpfp +++|*         EXIT   (EQAL) = *GETEAL* STATUS WORD.
01035  M01S00328.comcpfp +++|*                TO *ABT* IF RANGE OF ACCESS LEVELS TO BE PROCESSED
01036  M01S00329.comcpfp +++|*                  IS NOT ALLOWED ON ASSIGNED EQUIPMENT.
01037  M01S00330.comcpfp +++|*

Seq #  *Modification Id* Act 
----------------------------+
01038  M02S00331.286l859 ---|*         USES   X - 0, 1, 2, 6, 7.
01039  M01S00676.286l859 +++|*         USES   X - 0, 1, 2, 6, 7.
01040  M01S00332.comcpfp +++|*                A - 1, 2, 6, 7.
01041  M01S00677.286l859 +++|*                B - 2.
01042  M01S00333.comcpfp +++|*
01043  M01S00334.comcpfp +++|*         MACROS GETEAL, STATUS.
01044  M01S00335.comcpfp +++|
01045  M01S00336.comcpfp +++|
01046  M01S00337.comcpfp +++| VES      SUBR               ENTRY/EXIT
01047  M01S00338.comcpfp +++|          STATUS A5,P
01048  M01S00339.comcpfp +++|          SA1    A5+6        GET EST ORDINAL
01049  M01S00340.comcpfp +++|          MX0    -12
01050  M01S00341.comcpfp +++|          LX1    12
01051  M01S00342.comcpfp +++|          BX6    -X0*X1
01052  M01S00343.comcpfp +++|          SA6    EQAL
01053  M01S00344.comcpfp +++|          BX6    X6-X6       CLEAR FET+6
01054  M01S00345.comcpfp +++|          SA6    A1
01055  M01S00346.comcpfp +++|          SA6    A6-B1       CLEAR FET+5
01056  M01S00347.comcpfp +++|          SA1    SYSS
01057  M01S00348.comcpfp +++|          ZR     X1,VESX     IF NOT SECURED SYSTEM
01058  M01S00349.comcpfp +++|          GETEAL EQAL        GET EQUIPMENT/DEVICE ACCESS LEVEL LIMITS
01059  M01S00350.comcpfp +++|          SA1    EQAL
01060  M01S00351.comcpfp +++|          LX1    -12
01061  M01S00352.comcpfp +++|          BX2    -X0*X1
01062  M01S00353.comcpfp +++|          MX0    -3
01063  M01S00354.comcpfp +++|          BX6    -X0*X2      EQUIPMENT UPPER LIMIT
01064  M01S00355.comcpfp +++|          LX2    -3
01065  M01S00356.comcpfp +++|          BX7    -X0*X2      EQUIPMENT LOWER LIMIT
01066  M01S00357.comcpfp +++|          SA1    PCUA
01067  M01S00358.comcpfp +++|          SA2    PCLA
01068  M01S00359.comcpfp +++|          IX6    X6-X1
01069  M01S00360.comcpfp +++|          NG     X6,VES1     IF UPPER LEVEL NOT ALLOWED
01070  M01S00361.comcpfp +++|          IX7    X2-X7
01071  M01S00362.comcpfp +++|          PL     X7,VESX     IF LOWER LEVEL ALLOWED

Seq #  *Modification Id* Act 
----------------------------+
01072  M02S00363.286l859 ---| VES1     SX1    MELN        * PFUUUUU - ACCESS LEVEL NOT ALLOWED.*
01073  M01S00678.286l859 +++| VES1     SB2    ERAL        * ACCESS LEVELS NOT ALLOWED ON ...*
01074  M01S00364.comcpfp +++|          EQ     ABT         ABORT

Seq #  *Modification Id* Act 
----------------------------+
01075  M02S00365.286l859 ---| WIC      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01076  M02S00366.286l859 ---|**        WIC - WRITE INITIAL BLOCKS TO SUMMARY FILE.

Seq #  *Modification Id* Act 
----------------------------+
01077  M02S00367.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01078  M02S00368.286l859 ---|*         EXIT   PREFIX TABLE AND SYSTEM BLOCK WRITTEN TO FILE.

Seq #  *Modification Id* Act 
----------------------------+
01079  M02S00369.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01080  M02S00370.286l859 ---|*         USES   X - 0, 1, 2, 3, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
01081  M02S00371.286l859 ---|*                A - 0, 1, 2, 3, 6.

Seq #  *Modification Id* Act 
----------------------------+
01082  M02S00372.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01083  M02S00373.286l859 ---|*         CALLS  FAB, MWA, ZTB.

Seq #  *Modification Id* Act 
----------------------------+
01084  M02S00374.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01085  M02S00375.286l859 ---|*         MACROS EDATE, ETIME, SYSTEM, WRITEO, WRITEW.

Seq #  *Modification Id* Act 
----------------------------+
01086  M02S00376.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01087  M02S00377.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01088  M02S00378.286l859 ---| WIC      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01089  M02S00379.286l859 ---|          WRITEW SU,WICA,1   WRITE PREFIX TABLE IDENTIFIER

Seq #  *Modification Id* Act 
----------------------------+
01090  M02S00380.286l859 ---|          SA1    CPAR+/COMSPFS/CPSR

Seq #  *Modification Id* Act 
----------------------------+
01091  M02S00381.286l859 ---|          RJ     ZTB         BLANK FILL RECORD NAME

Seq #  *Modification Id* Act 
----------------------------+
01092  M02S00382.286l859 ---|          WRITEO SU          WRITE RECORD NAME

Seq #  *Modification Id* Act 
----------------------------+
01093  M02S00383.286l859 ---|          SA1    /COMSPFS/STDT

Seq #  *Modification Id* Act 
----------------------------+
01094  M02S00384.286l859 ---|          BX5    X1

Seq #  *Modification Id* Act 
----------------------------+
01095  M02S00385.286l859 ---|          AX1    18

Seq #  *Modification Id* Act 
----------------------------+
01096  M02S00386.286l859 ---|          EDATE  X1          CONVERT DATE

Seq #  *Modification Id* Act 
----------------------------+
01097  M02S00387.286l859 ---|          SA6    WICG        SAVE DATE

Seq #  *Modification Id* Act 
----------------------------+
01098  M02S00388.286l859 ---|          WRITEO SU          WRITE DATE TO PREFIX TABLE

Seq #  *Modification Id* Act 
----------------------------+
01099  M02S00389.286l859 ---|          MX1    -18

Seq #  *Modification Id* Act 
----------------------------+
01100  M02S00390.286l859 ---|          BX1    -X1*X5

Seq #  *Modification Id* Act 
----------------------------+
01101  M02S00391.286l859 ---|          ETIME  X1          CONVERT TIME

Seq #  *Modification Id* Act 
----------------------------+
01102  M02S00392.286l859 ---|          SA6    WICH        SAVE TIME

Seq #  *Modification Id* Act 
----------------------------+
01103  M02S00393.286l859 ---|          WRITEO SU          WRITE TIME TO PREFIX TABLE

Seq #  *Modification Id* Act 
----------------------------+
01104  M02S00394.286l859 ---|          WRITEW SU,WICE,4   WRITE ZERO WORDS

Seq #  *Modification Id* Act 
----------------------------+
01105  M02S00395.286l859 ---|          SA1    /COMSPFS/UTLN

Seq #  *Modification Id* Act 
----------------------------+
01106  M02S00396.286l859 ---|          SA2    CPAR+/COMSPFS/CPFN

Seq #  *Modification Id* Act 
----------------------------+
01107  M02S00397.286l859 ---|          SA3    CPAR+/COMSPFS/CPPN

Seq #  *Modification Id* Act 
----------------------------+
01108  M02S00398.286l859 ---|          SX6    2RFM

Seq #  *Modification Id* Act 
----------------------------+
01109  M02S00399.286l859 ---|          NZ     X2,WIC1     IF FAMILY NAME PRESENT

Seq #  *Modification Id* Act 
----------------------------+
01110  M02S00400.286l859 ---|          SX6    2RPN

Seq #  *Modification Id* Act 
----------------------------+
01111  M02S00401.286l859 ---|          NZ     X3,WIC1     IF PACK NAME PRESENT

Seq #  *Modification Id* Act 
----------------------------+
01112  M02S00402.286l859 ---|          SX6    0           CLEAR FAMILY/PACK NAME MNEMONIC

Seq #  *Modification Id* Act 
----------------------------+
01113  M02S00403.286l859 ---| WIC1     BX1    X1+X6

Seq #  *Modification Id* Act 
----------------------------+
01114  M02S00404.286l859 ---|          RJ     ZTB         BLANK FILL UTILITY NAME AND MNEMONIC

Seq #  *Modification Id* Act 
----------------------------+
01115  M02S00405.286l859 ---|          SA6    WICB

Seq #  *Modification Id* Act 
----------------------------+
01116  M02S00406.286l859 ---|          SA1    CPAR+/COMSPFS/CPFN

Seq #  *Modification Id* Act 
----------------------------+
01117  M02S00407.286l859 ---|          SA2    CPAR+/COMSPFS/CPPN

Seq #  *Modification Id* Act 
----------------------------+
01118  M02S00408.286l859 ---|          MX6    42

Seq #  *Modification Id* Act 
----------------------------+
01119  M02S00409.286l859 ---|          BX1    X6*X1

Seq #  *Modification Id* Act 
----------------------------+
01120  M02S00410.286l859 ---|          BX2    X6*X2

Seq #  *Modification Id* Act 
----------------------------+
01121  M02S00411.286l859 ---|          BX1    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
01122  M02S00412.286l859 ---|          ZR     X1,WIC2     IF NEITHER FAMILY NOR PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
01123  M02S00413.286l859 ---|          SX2    1R=

Seq #  *Modification Id* Act 
----------------------------+
01124  M02S00414.286l859 ---|          BX1    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
01125  M02S00415.286l859 ---|          LX1    -6

Seq #  *Modification Id* Act 
----------------------------+
01126  M02S00416.286l859 ---| WIC2     RJ     ZTB         BLANK FILL NAME

Seq #  *Modification Id* Act 
----------------------------+
01127  M02S00417.286l859 ---|          SA6    WICB+1      SET FAMILY OR PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
01128  M02S00418.286l859 ---|          WRITEW SU,WICB,2   WRITE UTILITY NAME AND FAMILY/PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
01129  M02S00419.286l859 ---|          SYSTEM RSB,R,WICC  READ SYSTEM TITLE

Seq #  *Modification Id* Act 
----------------------------+
01130  M02S00420.286l859 ---|          SA0    WICD        SET SYSTEM TITLE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01131  M02S00421.286l859 ---| WIC3     SA1    A0          READ NEXT WORD

Seq #  *Modification Id* Act 
----------------------------+
01132  M02S00422.286l859 ---|          RJ     ZTB         BLANK FILL NAME

Seq #  *Modification Id* Act 
----------------------------+
01133  M02S00423.286l859 ---|          WRITEO SU          WRITE WORD

Seq #  *Modification Id* Act 
----------------------------+
01134  M02S00424.286l859 ---|          SA0    A0+B1

Seq #  *Modification Id* Act 
----------------------------+
01135  M02S00425.286l859 ---|          SX1    A0-WICD-4

Seq #  *Modification Id* Act 
----------------------------+
01136  M02S00426.286l859 ---|          NZ     X1,WIC3     IF NOT END OF SYSTEM TITLE

Seq #  *Modification Id* Act 
----------------------------+
01137  M02S00427.286l859 ---|          SA1    =10H

Seq #  *Modification Id* Act 
----------------------------+
01138  M02S00428.286l859 ---|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
01139  M02S00429.286l859 ---|          WRITEO SU          WRITE FINAL COMMENT WORD

Seq #  *Modification Id* Act 
----------------------------+
01140  M02S00430.286l859 ---|          SA1    /COMSPFS/UTLN

Seq #  *Modification Id* Act 
----------------------------+
01141  M02S00431.286l859 ---|          SX6    SABFL       MAXIMUM BLOCK LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01142  M02S00432.286l859 ---|          BX6    X1+X6

Seq #  *Modification Id* Act 
----------------------------+
01143  M02S00433.286l859 ---|          SA6    WICF

Seq #  *Modification Id* Act 
----------------------------+
01144  M02S00434.286l859 ---|          SX0    12          ALLOCATE 12 WORDS

Seq #  *Modification Id* Act 
----------------------------+
01145  M02S00435.286l859 ---|          SX1    3           SET WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
01146  M02S00436.286l859 ---|          SX2    WICF

Seq #  *Modification Id* Act 
----------------------------+
01147  M02S00437.286l859 ---|          RJ     MWA         MOVE WORDS TO ASSEMBLY BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01148  M02S00438.286l859 ---|          SX0    B0          SET CONTINUATION

Seq #  *Modification Id* Act 
----------------------------+
01149  M02S00439.286l859 ---|          SX1    6           SET WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
01150  M02S00440.286l859 ---|          SX2    WICD

Seq #  *Modification Id* Act 
----------------------------+
01151  M02S00441.286l859 ---|          RJ     MWA         MOVE SYSTEM TITLE AND VERSION TO BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01152  M02S00442.286l859 ---|          SX1    B1

Seq #  *Modification Id* Act 
----------------------------+
01153  M02S00443.286l859 ---|          SX2    /COMSPFS/STDT

Seq #  *Modification Id* Act 
----------------------------+
01154  M02S00444.286l859 ---|          RJ     MWA         MOVE PACKED DATE AND TIME TO BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01155  M02S00445.286l859 ---|          SX1    B1

Seq #  *Modification Id* Act 
----------------------------+
01156  M02S00446.286l859 ---|          SX2    WICI

Seq #  *Modification Id* Act 
----------------------------+
01157  M02S00447.286l859 ---|          RJ     MWA         MOVE SYSTEM LEVEL TO BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01158  M02S00448.286l859 ---|          RJ     FAB         FLUSH ASSEMBLY BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01159  M02S00449.286l859 ---|          EQ     WICX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01160  M02S00450.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01161  M02S00451.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01162  M02S00452.286l859 ---| WICA     VFD    12/7700B,12/0016B,36/0  PREFIX TABLE IDENTIFIER

Seq #  *Modification Id* Act 
----------------------------+
01163  M02S00453.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01164  M02S00454.286l859 ---| WICB     DATA   10HPFUUUUU FM  FIRST TWO WORDS OF COMMENT

Seq #  *Modification Id* Act 
----------------------------+
01165  M02S00455.286l859 ---|          DATA   10H=FFFFFF

Seq #  *Modification Id* Act 
----------------------------+
01166  M02S00456.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01167  M02S00457.286l859 ---| WICC     VFD    12/0,12/6,18/SYTL,18/WICD  *RSB* CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
01168  M02S00458.286l859 ---| WICD     VFD    1/1,23/0,18/1,18/0  *RSB* BUFFER FOR *SYTL* AND *SVNL*

Seq #  *Modification Id* Act 
----------------------------+
01169  M02S00459.286l859 ---| WICE     BSSZ   6

Seq #  *Modification Id* Act 
----------------------------+
01170  M02S00460.286l859 ---|          ERRNZ  SVNL-SYTL-4 *SYTL* AND *SVNL* READ AS BLOCK

Seq #  *Modification Id* Act 
----------------------------+
01171  M02S00461.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01172  M02S00462.286l859 ---| WICF     VFD    42/7LPFUUUUU  UTILITY NAME

Seq #  *Modification Id* Act 
----------------------------+
01173  M02S00463.286l859 ---|          VFD    18/SABFL    MAXIMUM BLOCK LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01174  M02S00464.286l859 ---| WICG     CON    0           DATE YY/MM/DD.

Seq #  *Modification Id* Act 
----------------------------+
01175  M02S00465.286l859 ---| WICH     CON    0           TIME HH.MM.SS.

Seq #  *Modification Id* Act 
----------------------------+
01176  M02S00466.286l859 ---| WICI     CON    0           SYSTEM LEVEL
01177  M01S00467.comcpfp +++|          SPACE  4,10
01178  M01S00468.comcpfp +++|*         COMMON PRESET MESSAGES
01179  M01S00469.comcpfp +++|
01180  M01S00470.comcpfp +++|

Seq #  *Modification Id* Act 
----------------------------+
01181  M02S00471.286l859 ---| MELN     DATA   C* ??????? - ACCESS LEVELS NOT ALLOWED ON ARCHIVE FILE

Seq #  *Modification Id* Act 
----------------------------+
01182  M02S00472.286l859 ---|,EQUIPMENT.*

Seq #  *Modification Id* Act 
----------------------------+
01183  M02S00473.286l859 ---| TPMP     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01184  M02S00474.286l859 ---|*         TPMP - TABLE OF PRESET MESSAGE POINTERS.

Seq #  *Modification Id* Act 
----------------------------+
01185  M02S00475.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01186  M02S00476.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01187  M02S00477.286l859 ---| TPMP     BSS    0           START OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
01188  M02S00478.286l859 ---|          CON    MELN        * ACCESS LEVEL LIMITS NOT ALLOWED ON...*

Seq #  *Modification Id* Act 
----------------------------+
01189  M02S00479.286l859 ---|          CON    0           END OF TABLE
01190  M01S00679.286l859 +++| ERAL     DATA   C* ACCESS LEVELS NOT ALLOWED ON ARCHIVE FILE EQUIPMENT.
01191  M01S00680.286l859 +++|,*
01192  M01S00480.comcpfp +++|          SPACE  4,10
01193  M01S00481.comcpfp +++|*         RESERVED LOCATIONS.
01194  M01S00482.comcpfp +++|
01195  M01S00483.comcpfp +++|
01196  M01S00681.286l859 +++| OFFN     CON    0           OUTPUT FILE FAMILY NAME
01197  M01S00682.286l859 +++| OFPN     CON    0           OUTPUT FILE PACK NAME
01198  M01S00683.286l859 +++| OFUC     CON    0           OUTPUT FILE UTILITY NAME
01199  M01S00684.286l859 +++| OFUN     CON    0           OUTPUT FILE USER NAME FOR AUILIARY DEVICE
01200  M01S00484.comcpfp +++| PCLA     CON    8           LOWER ACCESS LEVEL TO PROCESS
01201  M01S00485.comcpfp +++| PCUA     CON    -1          UPPER ACCESS LEVEL TO PROCESS
01202  M01S00486.comcpfp +++| EQAL     CON    0           EQUIPMENT ACCESS LEVELS (*GETEAL* STATUS)
01203  M01S00487.comcpfp +++| SYLA     CON    0           SYSTEM LOWER ACCESS LEVEL LIMIT
01204  M01S00488.comcpfp +++| SYUA     CON    0           SYSTEM UPPER ACCESS LEVEL LIMIT

Seq #  *Modification Id* Act 
----------------------------+
01205  M02S00489.286l859 ---| COM$     ENDIF
01206  M01S00490.comcpfp +++| PFA$     IF     DEF,PFA$
01207  M01S00491.comcpfp +++|          TITLE  COMCPFP - PFLOAD/PFAM PRESET ROUTINES.
01208  M01S00492.comcpfp +++| SSS      SPACE  4,10
01209  M01S00493.comcpfp +++|**        SSS - SET SECURED SYSTEM STATUS.
01210  M01S00494.comcpfp +++|*
01211  M01S00495.comcpfp +++|*         EXIT   (PCLA) = LOWER ACCESS LEVEL TO PROCESS.
01212  M01S00496.comcpfp +++|*                (PCUA) = UPPER ACCESS LEVEL TO PROCESS.
01213  M01S00497.comcpfp +++|*                (SYSS) .NE. 0 IF SECURED SYSTEM.
01214  M01S00498.comcpfp +++|*
01215  M01S00499.comcpfp +++|*         USES   X - 1, 2, 6, 7.
01216  M01S00500.comcpfp +++|*                A - 1, 2, 6, 7.
01217  M01S00501.comcpfp +++|*
01218  M01S00502.comcpfp +++|*         CALLS  DSS.
01219  M01S00503.comcpfp +++|
01220  M01S00504.comcpfp +++|
01221  M01S00505.comcpfp +++| SSS      SUBR               ENTRY/EXIT
01222  M01S00506.comcpfp +++|          RJ     DSS         SET SECURED SYSTEM STATUS
01223  M01S00507.comcpfp +++|          SA1    SYSS
01224  M01S00508.comcpfp +++|          ZR     X1,SSSX     IF NOT SECURED SYSTEM
01225  M01S00509.comcpfp +++|          SA1    CPAR+/COMSPFS/CPLA
01226  M01S00510.comcpfp +++|          SA2    CPAR+/COMSPFS/CPUA
01227  M01S00511.comcpfp +++|          NZ     X1,SSS1     IF ACCESS LEVELS SPECIFIED
01228  M01S00512.comcpfp +++|          SA1    SYLA        USE SYSTEM LIMITS
01229  M01S00513.comcpfp +++|          SA2    SYUA
01230  M01S00514.comcpfp +++| SSS1     BX6    X1
01231  M01S00515.comcpfp +++|          BX7    X2
01232  M01S00516.comcpfp +++|          SA6    PCLA        SET LOWER LEVEL TO PROCESS
01233  M01S00517.comcpfp +++|          SA7    PCUA        SET UPPER LEVLL TO PROCESS
01234  M01S00518.comcpfp +++|          EQ     SSSX        RETURN
01235  M01S00519.comcpfp +++| PFA$     ENDIF

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

Seq #  *Modification Id* Act 
----------------------------+
01237  M02S00521.286l859 ---| PFD$     IF     DEF,PFD$

Seq #  *Modification Id* Act 
----------------------------+
01238  M02S00522.286l859 ---|          TITLE  COMCPFP - PFDUMP/PFDM PRESET ROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
01239  M02S00523.286l859 ---| BMT      SPACE  4,25

Seq #  *Modification Id* Act 
----------------------------+
01240  M02S00524.286l859 ---|**        BMT - BUILD MASS STORAGE TABLE.
01241  M01S00685.286l859 +++| DVA$     IF     DEF,DVA$
01242  M01S00686.286l859 +++|          TITLE  COMCPFP - PERMANENT FILE DEVICE ACCESS ROUTINES.
01243  M01S00687.286l859 +++| BMT      SPACE  4,20
01244  M01S00688.286l859 +++|**        BMT - BUILD MASS STORAGE TABLE AND MASTER DEVICE TABLE.
01245  M01S00525.comcpfp +++|*
01246  M01S00526.comcpfp +++|*         ENTRY  (CPAR) = CRACKED PARAMETER ARRAY.
01247  M01S00527.comcpfp +++|*

Seq #  *Modification Id* Act 
----------------------------+
01248  M02S00528.286l859 ---|*         EXIT   MASS STORAGE TABLE BUILT ACCORDING TO SELECTION

Seq #  *Modification Id* Act 
----------------------------+
01249  M02S00529.286l859 ---|*                PARAMETERS CONTAINED IN (CPAR).  SEE DOCUMENTATION OF

Seq #  *Modification Id* Act 
----------------------------+
01250  M02S00530.286l859 ---|*                *MSTT* FOR FORMAT.

Seq #  *Modification Id* Act 
----------------------------+
01251  M02S00531.286l859 ---|*                DEVICES THAT ARE UNAVAILABLE, LOCALLY UNLOADED OR HAVE

Seq #  *Modification Id* Act 
----------------------------+
01252  M02S00532.286l859 ---|*                FULL OR PERMANENT FILE INITIALIZATIONS PENDING ARE

Seq #  *Modification Id* Act 
----------------------------+
01253  M02S00533.286l859 ---|*                IGNORED.
01254  M01S00689.286l859 +++|*         EXIT   *MSTT* INITIALIZED.
01255  M01S00690.286l859 +++|*                *TMDA* INITIALIZED.
01256  M01S00691.286l859 +++|*                SUMMARY FILE DEVICE STATUS BUFFER INITIALIZED.
01257  M01S00534.comcpfp +++|*                (MSSF) = 0, IF NO *MSS* TYPE EQUIPMENT FOUND IN EST.
01258  M01S00535.comcpfp +++|*                       = 1, IF *MSS* TYPE EQUIPMENT FOUND IN EST.
01259  M01S00536.comcpfp +++|*                (ASFF) = 0, IF NO *MSE* EQUIPMENT FOUND IN EST.
01260  M01S00537.comcpfp +++|*                       = 1, IF *MSE* EQUIPMENT FOUND IN EST.

Seq #  *Modification Id* Act 
----------------------------+
01261  M02S00538.286l859 ---|*                IF SECURE SYSTEM, AND NO ACCESS LEVELS SPECIFIED,

Seq #  *Modification Id* Act 
----------------------------+
01262  M02S00539.286l859 ---|*                (PCLA) = LOWEST ACCESS LEVEL TO PROCESS.

Seq #  *Modification Id* Act 
----------------------------+
01263  M02S00540.286l859 ---|*                (PCUA) = HIGHEST ACCESS LEVEL TO PROCESS.
01264  M01S00541.comcpfp +++|*
01265  M01S00542.comcpfp +++|*         USES   X - 0, 1, 2, 3, 6, 7.
01266  M01S00543.comcpfp +++|*                A - 1, 2, 3, 6, 7.
01267  M01S00544.comcpfp +++|*                B - 2, 3, 4.
01268  M01S00545.comcpfp +++|*
01269  M01S00692.286l859 +++|*         CALLS  RSB=.
01270  M01S00693.286l859 +++|*
01271  M01S00546.comcpfp +++|*         MACROS SYSTEM.
01272  M01S00547.comcpfp +++|
01273  M01S00548.comcpfp +++|

Seq #  *Modification Id* Act 
----------------------------+
01274  M02S00549.286l859 ---|*         TERMINATE MASS STORAGE TABLE.

Seq #  *Modification Id* Act 
----------------------------+
01275  M02S00550.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01276  M02S00551.286l859 ---| BMT10    BX6    X6-X6       TERMINATE MASS STORAGE TABLE

Seq #  *Modification Id* Act 
----------------------------+
01277  M02S00552.286l859 ---|          SA6    MSTT+B4

Seq #  *Modification Id* Act 
----------------------------+
01278  M02S00553.286l859 ---|          SA6    DSTBUF+B4   TERMINATE DEVICE STATUS BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01279  M02S00554.286l859 ---|          SA6    A6+B1

Seq #  *Modification Id* Act 
----------------------------+
01280  M02S00555.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01281  M02S00556.286l859 ---|
01282  M01S00557.comcpfp +++| BMT      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01283  M02S00558.286l859 ---|          SA1    SYSS        DETERMINE IF RANGE NEEDED

Seq #  *Modification Id* Act 
----------------------------+
01284  M02S00559.286l859 ---|          SX5    B0+

Seq #  *Modification Id* Act 
----------------------------+
01285  M02S00560.286l859 ---|          ZR     X1,BMT1     IF NOT SECURE SYSTEM

Seq #  *Modification Id* Act 
----------------------------+
01286  M02S00561.286l859 ---|          SA2    CPAR+/COMSPFS/CPLA

Seq #  *Modification Id* Act 
----------------------------+
01287  M02S00562.286l859 ---|          NZ     X2,BMT1     IF ACCESS LEVELS SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
01288  M02S00563.286l859 ---|          SX5    B1+
01289  M01S00564.comcpfp +++|
01290  M01S00565.comcpfp +++|*         READ EST ENTRIES.
01291  M01S00566.comcpfp +++|

Seq #  *Modification Id* Act 
----------------------------+
01292  M02S00567.286l859 ---| BMT1     SA1    BMTA        READ EST POINTER
01293  M01S00694.286l859 +++|          SA1    BMTA        READ EST POINTER
01294  M01S00568.comcpfp +++|          MX7    1
01295  M01S00569.comcpfp +++|          BX6    X1
01296  M01S00570.comcpfp +++|          SA7    ESTBUF
01297  M01S00571.comcpfp +++|          SA6    ESTADD
01298  M01S00572.comcpfp +++|          SYSTEM RSB,R,A6
01299  M01S00573.comcpfp +++|          SA2    ESTBUF      SET *COMCRSB* ENTRY CONDITIONS
01300  M01S00574.comcpfp +++|          MX3    -12
01301  M01S00575.comcpfp +++|          SX1    A2          SET ADDRESS TO TRANSFER TO
01302  M01S00576.comcpfp +++|          AX2    24
01303  M01S00577.comcpfp +++|          BX3    -X3*X2
01304  M01S00578.comcpfp +++|          SX7    X3
01305  M01S00579.comcpfp +++|          AX2    12          SET ADDRESS TO TRANSFER FROM
01306  M01S00580.comcpfp +++|          R=     X6,ESTE
01307  M01S00581.comcpfp +++|          IX3    X3*X6       SET WORD COUNT
01308  M01S00582.comcpfp +++|          SX4    B0          SET SUBSYSTEM (= *CMR*)
01309  M01S00583.comcpfp +++|          MX6    1
01310  M01S00584.comcpfp +++|          SA6    X1
01311  M01S00585.comcpfp +++|          SA7    BMTB        SAVE EST SIZE TO SEARCH
01312  M01S00586.comcpfp +++|          RJ     RSB=        READ EST
01313  M01S00587.comcpfp +++|          SB2    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
01314  M01S00588.comcpfp +++|          SA1    BMTB        SET NUMBER OF EST ENTRIES
01315  M01S00589.comcpfp +++|          SB3    X1
01316  M01S00590.comcpfp +++|          SB4    B0          SET INITIAL MASS STORAGE TABLE INDEX
01317  M01S00591.comcpfp +++|
01318  M01S00592.comcpfp +++|*         READ NEXT MST ENTRY.
01319  M01S00593.comcpfp +++|
01320  M01S00594.comcpfp +++| BMT2     SB2    B2+B1       ADVANCE EST ORDINAL
01321  M01S00595.comcpfp +++|          EQ     B2,B3,BMT10 IF END OF EST
01322  M01S00596.comcpfp +++|          SX2    B2
01323  M01S00597.comcpfp +++|          R=     X6,ESTE
01324  M01S00598.comcpfp +++|          IX7    X2*X6
01325  M01S00599.comcpfp +++|          SA1    ESTBUF+X7+EQDE  READ EST ENTRY
01326  M01S00600.comcpfp +++|          PL     X1,BMT7     IF NOT MASS STORAGE EQUIPMENT
01327  M01S00601.comcpfp +++|          MX2    -12         SET MST ADDRESS
01328  M01S00602.comcpfp +++|          BX6    -X2*X1
01329  M01S00603.comcpfp +++|          LX1    59-54
01330  M01S00604.comcpfp +++|          LX6    18+3
01331  M01S00605.comcpfp +++|          NG     X1,BMT2     IF DEVICE UNAVAILABLE
01332  M01S00606.comcpfp +++|          SX2    MSTL        SET MST LENGTH
01333  M01S00607.comcpfp +++|          SX7    MSTBUF      SET MST BUFFER ADDRESS
01334  M01S00608.comcpfp +++|          LX2    36
01335  M01S00609.comcpfp +++|          BX1    X6+X7
01336  M01S00610.comcpfp +++|          MX7    1           SET ABSOLUTE MEMORY FLAG
01337  M01S00611.comcpfp +++|          BX6    X1+X2
01338  M01S00612.comcpfp +++|          SA7    MSTBUF
01339  M01S00613.comcpfp +++|          SA6    MSTADD
01340  M01S00614.comcpfp +++|          SYSTEM RSB,R,A6    READ MST ENTRY
01341  M01S00615.comcpfp +++|
01342  M01S00616.comcpfp +++|*         CHECK FOR USABLE MST ENTRY.
01343  M01S00617.comcpfp +++|
01344  M01S00618.comcpfp +++|          SA1    MSTBUF+STLL CHECK DEVICE STATUS
01345  M01S00619.comcpfp +++|          SA2    BMTC
01346  M01S00620.comcpfp +++|          BX6    X2*X1
01347  M01S00621.comcpfp +++|          NZ     X6,BMT2     IF UNLOADED, PF OR FULL INITIALIZATION
01348  M01S00622.comcpfp +++|          SA1    MSTBUF+PUGL COMPARE USER NAMES
01349  M01S00623.comcpfp +++|          SA2    CPAR+/COMSPFS/CPUN
01350  M01S00624.comcpfp +++|          MX0    42
01351  M01S00625.comcpfp +++|          BX6    X0*X1
01352  M01S00626.comcpfp +++|          ZR     X6,BMT3     IF PUBLIC PACK
01353  M01S00627.comcpfp +++|          BX6    X6-X2
01354  M01S00628.comcpfp +++| BMT3     SA3    MSTBUF+PFGL GET FAMILY/PACK NAME
01355  M01S00629.comcpfp +++|          SA1    CPAR+/COMSPFS/CPPN  GET PACK NAME PARAMETER
01356  M01S00630.comcpfp +++|          SA2    MSTBUF+MDGL GET AUXILIARY DEVICE FLAG
01357  M01S00631.comcpfp +++|          BX7    X0*X6

Seq #  *Modification Id* Act 
----------------------------+
01358  M02S00632.286l859 ---|          LX2    59-58
01359  M01S00695.286l859 +++|          LX2    59-57
01360  M01S00696.286l859 +++|          PL     X2,BMT2     IF DEVICE HAS 8 WORD CATALOG FORMAT
01361  M01S00697.286l859 +++|          LX2    59-58-59+57
01362  M01S00633.comcpfp +++|          NZ     X1,BMT4     IF PACK NAME SPECIFIED
01363  M01S00634.comcpfp +++|          SA1    CPAR+/COMSPFS/CPFN  GET FAMILY NAME PARAMETER
01364  M01S00635.comcpfp +++|          BX2    -X2         TOGGLE AUXILIARY DEVICE FLAG
01365  M01S00636.comcpfp +++|          SX7    B0          CLEAR USER NAME COMPARISON
01366  M01S00637.comcpfp +++| BMT4     PL     X2,BMT2     IF NOT CORRECT TYPE OF DEVICE
01367  M01S00638.comcpfp +++|          BX6    X1-X3
01368  M01S00639.comcpfp +++|          BX2    X0*X6
01369  M01S00640.comcpfp +++|          NZ     X7,BMT2     IF NOT CORRECT USER NAME
01370  M01S00641.comcpfp +++|          NZ     X2,BMT2     IF NOT CORRECT FAMILY/PACK NAME
01371  M01S00642.comcpfp +++|
01372  M01S00643.comcpfp +++|*         BUILD FIRST WORD OF MASS STORAGE TABLE INFORMATION.
01373  M01S00644.comcpfp +++|

Seq #  *Modification Id* Act 
----------------------------+
01374  M02S00645.286l859 ---|          SA1    MSTBUF+ALGL SET FIRST TRACKS
01375  M01S00698.286l859 +++|          SA1    MSTBUF+ALGL GET FIRST TRACKS AND CATALOG TRACK COUNT
01376  M01S00646.comcpfp +++|          MX3    36

Seq #  *Modification Id* Act 
----------------------------+
01377  M02S00647.286l859 ---|          BX6    X3*X1

Seq #  *Modification Id* Act 
----------------------------+
01378  M02S00648.286l859 ---|          AX1    12          POSITION CATALOG TRACKS
01379  M01S00699.286l859 +++|          BX6    X3*X1       SET IAPF, CATALOG, AND PERMIT TRACKS
01380  M01S00700.286l859 +++|          AX1    12
01381  M01S00649.comcpfp +++|          MX3    -9

Seq #  *Modification Id* Act 
----------------------------+
01382  M02S00650.286l859 ---|          BX3    -X3*X1
01383  M01S00701.286l859 +++|          BX3    -X3*X1      NUMBER OF CATALOG TRACKS
01384  M01S00651.comcpfp +++|          LX3    9+6

Seq #  *Modification Id* Act 
----------------------------+
01385  M02S00652.286l859 ---|          BX6    X6+X3       MERGE TRACKS AND CATALOGS DATA

Seq #  *Modification Id* Act 
----------------------------+
01386  M02S00653.286l859 ---|          SA2    MSTBUF+PFGL SET DEVICE NUMBER
01387  M01S00702.286l859 +++|          BX6    X6+X3       MERGE NUMBER OF CATALOG TRACKS
01388  M01S00703.286l859 +++|          SA2    MSTBUF+PFGL GET DEVICE NUMBER AND ACCESS LEVELS
01389  M01S00654.comcpfp +++|          MX3    -6
01390  M01S00655.comcpfp +++|          LX2    -6
01391  M01S00656.comcpfp +++|          BX0    -X3*X2      DEVICE ACCESS LEVEL LIMITS
01392  M01S00657.comcpfp +++|          LX2    -6

Seq #  *Modification Id* Act 
----------------------------+
01393  M02S00658.286l859 ---|          BX7    -X3*X2

Seq #  *Modification Id* Act 
----------------------------+
01394  M02S00659.286l859 ---|          BX6    X6+X7

Seq #  *Modification Id* Act 
----------------------------+
01395  M02S00660.286l859 ---|          SX1    B2          SET EST ORDINAL
01396  M01S00704.286l859 +++|          BX7    -X3*X2      DEVICE NUMBER
01397  M01S00705.286l859 +++|          BX6    X6+X7       MERGE DEVICE NUMBER
01398  M01S00706.286l859 +++|          SX1    B2          EST ORDINAL
01399  M01S00661.comcpfp +++|          LX1    6

Seq #  *Modification Id* Act 
----------------------------+
01400  M02S00662.286l859 ---|          BX6    X6+X1
01401  M01S00707.286l859 +++|          BX6    X6+X1       MERGE EST ORDINAL
01402  M01S00663.comcpfp +++|          SA6    MSTT+B4     PUT FIRST WORD IN TABLE
01403  M01S00664.comcpfp +++|
01404  M01S00665.comcpfp +++|*         BUILD SECOND WORD OF MASS STORAGE TABLE INFORMATION.
01405  M01S00666.comcpfp +++|
01406  M01S00667.comcpfp +++|          MX3    -16

Seq #  *Modification Id* Act 
----------------------------+
01407  M02S00668.286l859 ---|          SA1    MSTBUF+PUGL SET DEVICE MASKS

Seq #  *Modification Id* Act 
----------------------------+
01408  M02S00669.286l859 ---|          BX6    -X3*X1

Seq #  *Modification Id* Act 
----------------------------+
01409  M02S00670.286l859 ---|          MX3    -1          SET CATALOG ENTRY FORMAT CODE

Seq #  *Modification Id* Act 
----------------------------+
01410  M02S00671.286l859 ---|          SA1    MSTBUF+MDGL

Seq #  *Modification Id* Act 
----------------------------+
01411  M02S00672.286l859 ---|          LX3    57

Seq #  *Modification Id* Act 
----------------------------+
01412  M02S00673.286l859 ---|          BX7    -X3*X1

Seq #  *Modification Id* Act 
----------------------------+
01413  M02S00674.286l859 ---|          LX7    17-57

Seq #  *Modification Id* Act 
----------------------------+
01414  M02S00675.286l859 ---|          BX6    X7+X6
01415  M01S00708.286l859 +++|          SA1    MSTBUF+PUGL GET DEVICE MASKS
01416  M01S00709.286l859 +++|          BX6    -X3*X1      SET DEVICE MASKS
01417  M01S00676.comcpfp +++|          MX3    -12

Seq #  *Modification Id* Act 
----------------------------+
01418  M02S00677.286l859 ---|          SX7    B2

Seq #  *Modification Id* Act 
----------------------------+
01419  M02S00678.286l859 ---|          R=     X1,ESTE

Seq #  *Modification Id* Act 
----------------------------+
01420  M02S00679.286l859 ---|          IX7    X7*X1

Seq #  *Modification Id* Act 
----------------------------+
01421  M02S00680.286l859 ---|          SA1    ESTBUF+X7+EQDE  SET EQUIPMENT MNEMONIC
01422  M01S00710.286l859 +++|          SX1    B2
01423  M01S00711.286l859 +++|          R=     X7,ESTE
01424  M01S00712.286l859 +++|          IX1    X1*X7       EST ENTRY RELATIVE ADDRESS
01425  M01S00713.286l859 +++|          SA1    ESTBUF+X1+EQDE  GET MST ADDRESS AND EQUIPMENT MNEMONIC
01426  M01S00714.286l859 +++|          BX2    -X3*X1      MST ADDRESS
01427  M01S00715.286l859 +++|          LX2    -12
01428  M01S00681.comcpfp +++|          LX1    -12

Seq #  *Modification Id* Act 
----------------------------+
01429  M02S00682.286l859 ---|          BX7    -X3*X1
01430  M01S00716.286l859 +++|          BX7    -X3*X1      EQUIPMENT MNEMONIC
01431  M01S00683.comcpfp +++|          LX7    18

Seq #  *Modification Id* Act 
----------------------------+
01432  M02S00684.286l859 ---|          BX6    X7+X6

Seq #  *Modification Id* Act 
----------------------------+
01433  M02S00685.286l859 ---|          SA1    MSTBUF+DDLL SET UNIT COUNT - 1

Seq #  *Modification Id* Act 
----------------------------+
01434  M02S00686.286l859 ---|          MX3    -3

Seq #  *Modification Id* Act 
----------------------------+
01435  M02S00687.286l859 ---|          LX1    -48

Seq #  *Modification Id* Act 
----------------------------+
01436  M02S00688.286l859 ---|          BX7    -X3*X1

Seq #  *Modification Id* Act 
----------------------------+
01437  M02S00689.286l859 ---|          LX7    30

Seq #  *Modification Id* Act 
----------------------------+
01438  M02S00690.286l859 ---|          BX6    X7+X6
01439  M01S00717.286l859 +++|          BX6    X7+X6       MERGE EQUIPMENT MNEMONIC
01440  M01S00718.286l859 +++|          LX0    30
01441  M01S00719.286l859 +++|          BX6    X0+X6       MERGE ACCESS LEVEL LIMITS
01442  M01S00720.286l859 +++|          BX6    X2+X6       MERGE MST ADDRESS
01443  M01S00721.286l859 +++|          SA1    MSTBUF+MDGL GET SECTOR LIMIT
01444  M01S00722.286l859 +++|          BX7    -X3*X1      SECTOR LIMIT
01445  M01S00723.286l859 +++|          LX7    36
01446  M01S00724.286l859 +++|          BX6    X6+X7       MERGE SECTOR LIMIT
01447  M01S00691.comcpfp +++|          SA6    A6+B1       PUT SECOND WORD IN TABLE
01448  M01S00692.comcpfp +++|
01449  M01S00693.comcpfp +++|*         BUILD DEVICE STATUS ENTRY FOR SUMMARY FILE.
01450  M01S00694.comcpfp +++|
01451  M01S00695.comcpfp +++|          SA1    MSTT+B4     READ FIRST WORD OF *MSTT* ENTRY
01452  M01S00696.comcpfp +++|          MX3    -16
01453  M01S00697.comcpfp +++|          MX7    -9
01454  M01S00698.comcpfp +++|          BX3    -X3*X6      DEVICE MASKS
01455  M01S00699.comcpfp +++|          LX1    -15
01456  M01S00700.comcpfp +++|          BX7    -X7*X1      NUMBER OF CATALOG TRACKS
01457  M01S00701.comcpfp +++|          LX1    15
01458  M01S00702.comcpfp +++|          LX7    24
01459  M01S00703.comcpfp +++|          BX7    X7+X3       MERGE NUMBER OF CATALOG TRACKS AND MASKS
01460  M01S00704.comcpfp +++|          SA7    DSTBUF+1+B4  WRITE SECOND WORD OF STATUS ENTRY
01461  M01S00725.286l859 +++|          MX2    12
01462  M01S00726.286l859 +++|          LX2    -12
01463  M01S00727.286l859 +++|          BX7    X2*X6       SECTOR LIMIT
01464  M01S00728.286l859 +++|          MX2    12
01465  M01S00705.comcpfp +++|          LX6    30

Seq #  *Modification Id* Act 
----------------------------+
01466  M02S00706.286l859 ---|          MX7    12
01467  M01S00729.286l859 +++|          BX6    X2*X6       EQUIPMENT MNEMONIC
01468  M01S00707.comcpfp +++|          MX2    -6

Seq #  *Modification Id* Act 
----------------------------+
01469  M02S00708.286l859 ---|          BX7    X7*X6       EQUIPMENT MNEMONIC
01470  M01S00730.286l859 +++|          BX7    X7+X6       MERGE EQUIPMENT MNEMONIC
01471  M01S00709.comcpfp +++|          BX1    -X2*X1      DEVICE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01472  M02S00710.286l859 ---|          BX6    -X2*X6      UNIT COUNT
01473  M01S00711.comcpfp +++|          BX7    X7+X1       MERGE DEVICE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01474  M02S00712.286l859 ---|          LX6    6

Seq #  *Modification Id* Act 
----------------------------+
01475  M02S00713.286l859 ---|          BX7    X7+X6       MERGE UNIT COUNT
01476  M01S00714.comcpfp +++|          SA1    MSTBUF+TDGL

Seq #  *Modification Id* Act 
----------------------------+
01477  M02S00715.286l859 ---|          SA2    MSTBUF+MDGL
01478  M01S00716.comcpfp +++|          MX6    -24

Seq #  *Modification Id* Act 
----------------------------+
01479  M02S00717.286l859 ---|          MX3    -12
01480  M01S00718.comcpfp +++|          LX1    12

Seq #  *Modification Id* Act 
----------------------------+
01481  M02S00719.286l859 ---|          BX2    -X3*X2      SECTOR LIMIT
01482  M01S00720.comcpfp +++|          BX1    -X6*X1      TRACKS AVAILABLE AND TOTAL TRACKS

Seq #  *Modification Id* Act 
----------------------------+
01483  M02S00721.286l859 ---|          LX2    36
01484  M01S00722.comcpfp +++|          LX1    12

Seq #  *Modification Id* Act 
----------------------------+
01485  M02S00723.286l859 ---|          BX7    X7+X2       MERGE SECTOR LIMIT
01486  M01S00724.comcpfp +++|          BX7    X7+X1       MERGE TRACK COUNTS
01487  M01S00731.286l859 +++|          SA1    MSTBUF+DDLL SET UNIT COUNT - 1
01488  M01S00732.286l859 +++|          MX3    -3
01489  M01S00733.286l859 +++|          LX1    -48
01490  M01S00734.286l859 +++|          BX3    -X3*X1
01491  M01S00735.286l859 +++|          LX3    6
01492  M01S00736.286l859 +++|          BX7    X7+X3
01493  M01S00725.comcpfp +++|          SA7    DSTBUF+B4   WRITE FIRST WORD OF STATUS ENTRY
01494  M01S00726.comcpfp +++|          SB4    B4+2        ADVANCE TABLE INDEX

Seq #  *Modification Id* Act 
----------------------------+
01495  M02S00727.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01496  M02S00728.286l859 ---|*         UPDATE MAXIMUM ACCESS LEVEL RANGE.

Seq #  *Modification Id* Act 
----------------------------+
01497  M02S00729.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01498  M02S00730.286l859 ---|          ZR     X5,BMT2     IF RANGE NOT NEEDED

Seq #  *Modification Id* Act 
----------------------------+
01499  M02S00731.286l859 ---|          MX2    -3

Seq #  *Modification Id* Act 
----------------------------+
01500  M02S00732.286l859 ---|          BX6    -X2*X0      DEVICE UPPER LIMIT

Seq #  *Modification Id* Act 
----------------------------+
01501  M02S00733.286l859 ---|          LX0    -3

Seq #  *Modification Id* Act 
----------------------------+
01502  M02S00734.286l859 ---|          BX7    -X2*X0      DEVICE LOWER LIMIT

Seq #  *Modification Id* Act 
----------------------------+
01503  M02S00735.286l859 ---|          SA1    PCLA

Seq #  *Modification Id* Act 
----------------------------+
01504  M02S00736.286l859 ---|          SA2    PCUA

Seq #  *Modification Id* Act 
----------------------------+
01505  M02S00737.286l859 ---|          IX1    X7-X1

Seq #  *Modification Id* Act 
----------------------------+
01506  M02S00738.286l859 ---|          IX2    X2-X6

Seq #  *Modification Id* Act 
----------------------------+
01507  M02S00739.286l859 ---|          NG     X1,BMT5     IF NEW LEVEL IS LOWER

Seq #  *Modification Id* Act 
----------------------------+
01508  M02S00740.286l859 ---|          EQ     BMT6        CHECK UPPER LEVEL

Seq #  *Modification Id* Act 
----------------------------+
01509  M02S00741.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01510  M02S00742.286l859 ---| BMT5     SA7    A1+         SET NEW LOWER LEVEL

Seq #  *Modification Id* Act 
----------------------------+
01511  M02S00743.286l859 ---| BMT6     PL     X2,BMT2     IF NEW LEVEL NOT HIGHER

Seq #  *Modification Id* Act 
----------------------------+
01512  M02S00744.286l859 ---|          SA6    A2+         SET NEW UPPER LEVEL
01513  M01S00745.comcpfp +++|          EQ     BMT2        PROCESS NEXT EQUIPMENT
01514  M01S00746.comcpfp +++|
01515  M01S00747.comcpfp +++|*         CHECK FOR *MSS*/*MSE* EQUIPMENT TYPE.
01516  M01S00748.comcpfp +++|
01517  M01S00749.comcpfp +++| BMT7     LX1    10-22
01518  M01S00750.comcpfp +++|          MX0    -11
01519  M01S00751.comcpfp +++|          BX1    -X0*X1      EXTRACT EQUIPMENT TYPE CODE FOR EST ENTRY
01520  M01S00752.comcpfp +++|          SX6    B1
01521  M01S00753.comcpfp +++|          SX2    X1-2RCS
01522  M01S00754.comcpfp +++|          ZR     X2,BMT8     IF *MSS* SELECTOR
01523  M01S00755.comcpfp +++|          SX2    X1-2RCT
01524  M01S00756.comcpfp +++|          NZ     X2,BMT9     IF NOT *MSS* TRANSPORT
01525  M01S00757.comcpfp +++| BMT8     SA6    MSSF        SET *MSS* ENVIRONMENT FLAG
01526  M01S00758.comcpfp +++| BMT9     SX2    X1-2RSS
01527  M01S00759.comcpfp +++|          NZ     X2,BMT2     IF NOT *MSE* TYPE EQUIPMENT
01528  M01S00760.comcpfp +++|          SA6    ASFF        SET *MSE* ENVIRONMENT FLAG
01529  M01S00761.comcpfp +++|          EQ     BMT2        READ NEXT EST ENTRY
01530  M01S00762.comcpfp +++|
01531  M01S00737.286l859 +++|*         TERMINATE MASS STORAGE TABLE.
01532  M01S00738.286l859 +++|
01533  M01S00739.286l859 +++| BMT10    BX6    X6-X6       TERMINATE MASS STORAGE TABLE
01534  M01S00740.286l859 +++|          SA6    MSTT+B4
01535  M01S00741.286l859 +++|          SA6    A6+B1
01536  M01S00742.286l859 +++|          SA6    DSTBUF+B4   TERMINATE DEVICE STATUS BUFFER
01537  M01S00743.286l859 +++|          SA6    A6+1
01538  M01S00744.286l859 +++|
01539  M01S00745.286l859 +++|*         BUILD MASTER DEVICE TABLE.
01540  M01S00746.286l859 +++|
01541  M01S00747.286l859 +++|          SA1    MSTT-2
01542  M01S00748.286l859 +++|          SX0    377B
01543  M01S00749.286l859 +++| BMT11    SA1    A1+2        CHECK NEXT *MSTT* ENTRY
01544  M01S00750.286l859 +++|          SA2    A1+1
01545  M01S00751.286l859 +++|          SB2    -B1         INITIALIZE SUBFAMILY INDEX
01546  M01S00752.286l859 +++|          ZR     X1,BMTX     IF END OF ENTRIES
01547  M01S00753.286l859 +++|          BX2    X0*X2       SET DEVICE MASK
01548  M01S00754.286l859 +++| BMT12    ZR     X2,BMT11    IF NO MASK BITS TO CHECK
01549  M01S00755.286l859 +++|          LX2    -1          CHECK NEXT MASK BIT
01550  M01S00756.286l859 +++|          SB2    B2+B1       ADVANCE SUBFAMILY INDEX
01551  M01S00757.286l859 +++|          BX3    X2
01552  M01S00758.286l859 +++|          SX2    X2
01553  M01S00759.286l859 +++|          PL     X3,BMT12    IF MASK BIT NOT SET
01554  M01S00760.286l859 +++|          SX6    A1+         SET *MSTT* ADDRESS
01555  M01S00761.286l859 +++|          SA6    TMDA+B2
01556  M01S00762.286l859 +++|          EQ     BMT12       CHECK NEXT BIT IN MASK
01557  M01S00763.286l859 +++|
01558  M01S00763.comcpfp +++|
01559  M01S00764.comcpfp +++| BMTA     VFD    24/1,18/ESTP,18/ESTBUF  EST POINTER PARAMETER
01560  M01S00765.comcpfp +++| BMTB     BSSZ   1           NUMBER OF EST ENTRIES
01561  M01S00766.comcpfp +++|
01562  M01S00767.comcpfp +++| LFPR     DECMIC LFPR        DEFINE MASK FOR INITIALIZE/UNLOAD
01563  M01S00768.comcpfp +++| LIAL     DECMIC LIAL
01564  M01S00769.comcpfp +++| LIHD     DECMIC LIHD
01565  M01S00770.comcpfp +++| LIFD     DECMIC LIFD
01566  M01S00771.comcpfp +++| LIPF     DECMIC LIPF
01567  M01S00772.comcpfp +++| LUNL     DECMIC LUNL
01568  M01S00773.comcpfp +++| LDUL     DECMIC LDUL
01569  M01S00774.comcpfp +++| BMTC     CON    1S"LFPR"+1S"LIAL"+1S"LIHD"+1S"LIFD"+1S"LIPF"+1S"LUNL"+1
01570  M01S00775.comcpfp +++|,S"LDUL"
01571  M01S00764.286l859 +++| SFP      SPACE  4,15
01572  M01S00765.286l859 +++|**        SFP - SET PERMANENT FILE PARAMETERS.
01573  M01S00766.286l859 +++|*
01574  M01S00767.286l859 +++|*         ENTRY  (CPAR) = CRACKED PARAMETER ARRAY.
01575  M01S00768.286l859 +++|*
01576  M01S00769.286l859 +++|*         EXIT   (GPAR - GPAR+2) = ORIGINAL USER PARAMETER VALUES.
01577  M01S00770.286l859 +++|*                PERMANENT FILE PARAMETERS SET IN CONTROL POINT AREA.
01578  M01S00771.286l859 +++|*                *PDWD* SET FOR ACCESS TO FAMILY OR AUXILLIARY DEVICE
01579  M01S00772.286l859 +++|*                  CATALOGS.
01580  M01S00773.286l859 +++|*                (FMPN) = FAMILY NAME OR PACK NAME.
01581  M01S00774.286l859 +++|*
01582  M01S00775.286l859 +++|*         USES   X - 1, 2, 3, 6, 7.
01583  M01S00776.286l859 +++|*                A - 1, 2, 6, 7.
01584  M01S00777.286l859 +++|*
01585  M01S00778.286l859 +++|*         MACROS GETPFP, SETPFP.
01586  M01S00779.286l859 +++|
01587  M01S00780.286l859 +++|
01588  M01S00781.286l859 +++| SFP      SUBR               ENTRY/EXIT
01589  M01S00782.286l859 +++|
01590  M01S00783.286l859 +++|*         SET CONTROL POINT AREA PARAMETERS.
01591  M01S00784.286l859 +++|
01592  M01S00785.286l859 +++|          GETPFP GPAR        GET CURRENT PARAMETERS
01593  M01S00786.286l859 +++|          SA1    GPAR        SET PARAMETER FLAGS IN BLOCK
01594  M01S00787.286l859 +++|          SX6    FMPR+PKPR+UNPR+UIPR
01595  M01S00788.286l859 +++|          BX7    X1+X6
01596  M01S00789.286l859 +++|          SA2    CPAR+/COMSPFS/CPFN  SET FAMILY NAME IN BLOCK
01597  M01S00790.286l859 +++|          SA7    A1
01598  M01S00791.286l859 +++|          SA1    CPAR+/COMSPFS/CPPN  SET PACK NAME IN BLOCK
01599  M01S00792.286l859 +++|          MX3    42
01600  M01S00793.286l859 +++|          BX7    X3*X2
01601  M01S00794.286l859 +++|          ZR     X1,SFP1     IF PACK NAME NOT SPECIFIED
01602  M01S00795.286l859 +++|          SX6    PKPR+UNPR+UIPR
01603  M01S00796.286l859 +++| SFP1     SA2    CPAR+/COMSPFS/CPUN  SET USER NAME IN BLOCK
01604  M01S00797.286l859 +++|          BX6    X7+X6
01605  M01S00798.286l859 +++|          BX7    X3*X1
01606  M01S00799.286l859 +++|          SA6    SPAR
01607  M01S00800.286l859 +++|          SA7    A6+B1
01608  M01S00801.286l859 +++|          BX6    X3*X2
01609  M01S00802.286l859 +++|          SX1    A6          SET PARAMETER BLOCK ADDRESS
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

Proceed to Part 2