Deck PFLOAD Part 002

34 Modifications

Seq #  *Modification Id* Act 
----------------------------+
01745  M01S00251.286l859 +++|**        APR - ABORT PROCESSOR.
01746  M00S00999.pfload  +++|*
01747  M00S01000.pfload  +++|*         EXIT   ANY INCOMPLETE PERMANENT FILE DELETED.
01748  M00S01001.pfload  +++|*                COMPLETE PERMANENT FILES FLUSHED TO MASS STORAGE.
01749  M00S01002.pfload  +++|*                UTILITY PROCESSOR DROPPED.
01750  M00S01003.pfload  +++|*                UTILITY INTERLOCK CLEAR.
01751  M00S01004.pfload  +++|*                PERMANENT FILE PARAMETERS RESTORED.
01752  M00S01005.pfload  +++|*                *PFLOAD* SYSTEM FILES RETURNED.

Seq #  *Modification Id* Act 
----------------------------+
01753  M02S00032.286l859 ---|*                OUTPUT FILES FLUSHED.

Seq #  *Modification Id* Act 
----------------------------+
01754  M01S01006.286l859 ---|*                CPU ABORT SET.
01755  M00S01007.pfload  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01756  M01S01008.286l859 ---|*         USES   X - 0, 1, 5, 6.
01757  M01S01009.286l859 ---|*                A - 1, 6.

Seq #  *Modification Id* Act 
----------------------------+
01758  M01S00252.286l859 +++|*         CALLS  CIN, DUP, FPF.
01759  M00S01010.pfload  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01760  M01S01011.ns22000 ---|*         CALLS  CIN, DUP, FPF, SEM.

Seq #  *Modification Id* Act 
----------------------------+
01761  M02S00321.253l688 ---|*         CALLS  CIN, DUP, FCM, FPF, SEM.

Seq #  *Modification Id* Act 
----------------------------+
01762  M02S00033.286l859 ---|*         CALLS  CIN, DUP, FCM, FPF, SEM, TOF.

Seq #  *Modification Id* Act 
----------------------------+
01763  M01S01012.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01764  M02S01013.286l859 ---|*         MACROS ABORT, COMPFET, REPRIEVE, RETURN, SETPFP, WRITER.

Seq #  *Modification Id* Act 
----------------------------+
01765  M02S00034.286l859 ---|*         MACROS ABORT, COMPFET, REPRIEVE, RETURN, SETPFP.

Seq #  *Modification Id* Act 
----------------------------+
01766  M01S00253.286l859 +++|*         MACROS RETURN, SETPFP.
01767  M00S01014.pfload  +++|
01768  M00S01015.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
01769  M01S01016.286l859 ---|*         ENTER HERE ON ERROR EXIT TO COMPLETE FETS.
01770  M01S01017.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01771  M02S01018.286l859 ---| ABTE     COMPFET  (CATS,PETS,DATA,CIRF,TAPE,UIFT,S1,OUTPUT)

Seq #  *Modification Id* Act 
----------------------------+
01772  M02S00035.286l859 ---| ABT2     BSS    0           ENTRY
01773  M02S00036.286l859 ---|          COMPFET  (CATS,PETS,DATA,CIRF,TAPE,UIFT,S1,OUTPUT,SU)

Seq #  *Modification Id* Act 
----------------------------+
01774  M01S01019.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01775  M02S01020.286l859 ---|*         ENTER HERE ON INTERNALLY DETECTED ERROR.
01776  M02S01021.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01777  M03S01022.286l859 ---| ABT      SX5    MSGM        SEND ABORT MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01778  M03S00322.286l859 ---| ABT      SX5    MSGM        * PFLOAD ABORTED.*

Seq #  *Modification Id* Act 
----------------------------+
01779  M02S00037.286l859 ---| ABT      BSS    0           ENTRY
01780  M02S00038.286l859 ---|          SX5    MSGM        * PFLOAD ABORTED.*

Seq #  *Modification Id* Act 
----------------------------+
01781  M01S01023.286l859 ---|          RJ     SEM

Seq #  *Modification Id* Act 
----------------------------+
01782  M01S00254.286l859 +++| APR      SUBR               ENTRY/EXIT
01783  M00S01024.pfload  +++|          RJ     FPF         FLUSH PERMANENT FILES
01784  M00S01025.pfload  +++|          RJ     DUP         DROP UTILITY PROCESSOR
01785  M00S01026.pfload  +++|          RJ     CIN         CLEAR UTILITY INTERLOCK
01786  M00S01027.pfload  +++|          SETPFP GPAR        RESTORE PERMANENT FILE PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
01787  M01S01028.253l688 ---|          WRITER OUTPUT      FLUSH OUTPUT BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01788  M02S00039.286l859 ---|          RJ     TOF         TERMINATE OUTPUT FILES
01789  M00S01029.pfload  +++|          RETURN CATS        RETURN *PFLOAD* SYSTEM FILES
01790  M00S01030.pfload  +++|          RETURN PETS
01791  M00S01031.pfload  +++|          RETURN DATA
01792  M00S01032.pfload  +++|          RETURN CIRF

Seq #  *Modification Id* Act 
----------------------------+
01793  M01S01033.286l859 ---|          RETURN S1

Seq #  *Modification Id* Act 
----------------------------+
01794  M02S00323.286l859 ---|          RJ     FCM         ISSUE FILE COUNTS

Seq #  *Modification Id* Act 
----------------------------+
01795  M02S01034.286l859 ---|          SA1    ABTB+7      CHECK ERROR FLAGS

Seq #  *Modification Id* Act 
----------------------------+
01796  M02S00040.286l859 ---|          SA1    ABTA+7      CHECK ERROR FLAGS

Seq #  *Modification Id* Act 
----------------------------+
01797  M01S01035.286l859 ---|          MX0    -12
01798  M01S01036.286l859 ---|          BX1    -X0*X1
01799  M01S01037.286l859 ---|          ZR     X1,ABT1     IF NO ERRORS TO RESET
01800  M01S01038.286l859 ---|          SX1    X1-TIET
01801  M01S01039.286l859 ---|          ZR     X1,ABT1     IF TERMINAL INTERRUPT

Seq #  *Modification Id* Act 
----------------------------+
01802  M02S01040.286l859 ---|          BX6    X6-X6       CLEAR REPRIEVED RA+1 REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01803  M02S00010.286l859 ---|          BX6    X6-X6       CLEAR REPRIEVED SYSTEM REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01804  M02S01041.286l859 ---|          SA6    ABTB+5
01805  M02S01042.286l859 ---|          REPRIEVE  ABTB,RESET,0  RESET ERROR FLAGS

Seq #  *Modification Id* Act 
----------------------------+
01806  M02S00041.286l859 ---|          SA6    ABTA+5
01807  M02S00042.286l859 ---|          REPRIEVE  ABTA,RESET,0  RESET ERROR FLAGS

Seq #  *Modification Id* Act 
----------------------------+
01808  M01S01043.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01809  M02S01044.286l859 ---| ABT1     REPRIEVE  ABTB,SET,0  DISABLE REPRIEVE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
01810  M02S00043.286l859 ---| ABT1     REPRIEVE  ABTA,SET,0  DISABLE REPRIEVE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
01811  M01S01045.286l859 ---|          ABORT
01812  M01S01046.286l859 ---|
01813  M01S01047.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01814  M02S01048.286l859 ---|**        ABTB - ABORT PROCESSOR - REPRIEVE PARAMETER BLOCK.
01815  M02S01049.286l859 ---|*
01816  M02S01050.286l859 ---|*T ABTB+0 36/,12/ LENGTH,2/,9/ FUNC,1/C

Figure ABTB+0

01817  M02S01051.286l859 ---|*T,ABTB+1 30/ CHECKSUM LWA,30/ TRANSFER ADDRESS

Figure ABTB+1

01818  M02S01052.286l859 ---|*T,ABTB+2 60/ CHECKSUM VALUE

Figure ABTB+2

01819  M02S01053.286l859 ---|*T,ABTB+3 24/ MASK,24/ ERROR CLASS,12/ ERROR CODE

Figure ABTB+3

01820  M02S01054.286l859 ---|*T,ABTB+4 60/ PENDING INTERRUPTS

Figure ABTB+4

Seq #  *Modification Id* Act 
----------------------------+
01821  M03S01055.286l859 ---|*T,ABTB+5 60/ PENDING RA+1 REQUEST

Figure ABTB+5

Seq #  *Modification Id* Act 
----------------------------+
01822  M03S00011.286l859 ---|*T,ABTB+5 60/ PENDING SYSTEM REQUEST

Figure ABTB+5

Seq #  *Modification Id* Act 
----------------------------+
01823  M02S01056.286l859 ---|*T,ABTB+6 60/ INTERRUPTED TERMINAL I/O

Figure ABTB+6

01824  M02S01057.286l859 ---|*T,ABTB+7 48/,12/ ERROR FLAG

Figure ABTB+7

01825  M02S01058.286l859 ---|*T,ABTB+8 60/

Figure ABTB+8

01826  M02S01059.286l859 ---|*T,ABTB+9 60/ EXCHANGE PACKAGE (WORD 1)

Figure ABTB+9

01827  M02S01060.286l859 ---|*T,  *    60/

Figure *

01828  M02S01061.286l859 ---|*T,ABTB+24 60/ EXCHANGE PACKAGE (WORD 16)

Figure ABTB+24

01829  M02S01062.286l859 ---|*
01830  M02S01063.286l859 ---|*         LENGTH = LENGTH OF REPRIEVE PARAMETER BLOCK.
01831  M02S01064.286l859 ---|*         FUNC = REPRIEVE FUNCTION CODE.
01832  M02S01065.286l859 ---|*         C = COMPLETION BIT.
01833  M02S01066.286l859 ---|
01834  M02S01067.286l859 ---| ABTB     VFD    36/0,12/ABTBL,12/0
01835  M02S01068.286l859 ---|          VFD    30/0,30/ABTE
01836  M02S01069.286l859 ---|          BSSZ   7
01837  M02S01070.286l859 ---|          BSSZ   16          EXCHANGE PACKAGE
01838  M02S01071.286l859 ---|
01839  M02S01072.286l859 ---| ABTBL    EQU    *-ABTB      LENGTH OF REPRIEVE PARAMETER BLOCK

Seq #  *Modification Id* Act 
----------------------------+
01840  M02S00044.286l859 ---| ABTA     RPVBLK ABT2        REPRIEVE BLOCK

Seq #  *Modification Id* Act 
----------------------------+
01841  M01S00255.286l859 +++|          RETURN FO
01842  M01S00256.286l859 +++|          EQ     APRX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01843  M01S00014.ns2697  +++| ADF      SPACE  4,20
01844  M01S00015.ns2697  +++|**        ADF - ASSIGN DIRECT ACCESS FILE DEVICE.
01845  M01S00016.ns2697  +++|*
01846  M01S00017.ns2697  +++|*         ENTRY PFC ENTRY IN *TCBF*.
01847  M01S00018.ns2697  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01848  M02S00019.286l859 ---|*         EXIT   (X5) = 0 IF DEVICE ASSIGNED.
01849  M02S00020.286l859 ---|*                (X5) = ERROR MESSAGE ADDRESS IF NO DEVICE ASSIGNED.
01850  M02S00021.286l859 ---|*                (B2) = *MSTT* ADDRESS OF DEVICE IF DEVICE ASSIGNED.
01851  M02S00022.286l859 ---|*                (B2) = *MSTT* ADDRESS OF DEVICE IF NO SPACE FOR FILE

Seq #  *Modification Id* Act 
----------------------------+
01852  M01S00257.286l859 +++|*         EXIT   (B2) = 0 IF DEVICE ASSIGNED.
01853  M01S00258.286l859 +++|*                (B2) = ERROR MESSAGE ADDRESS IF NO DEVICE ASSIGNED.
01854  M01S00259.286l859 +++|*                (X7) = *MSTT* ADDRESS OF DEVICE IF DEVICE ASSIGNED.
01855  M01S00260.286l859 +++|*                (X7) = *MSTT* ADDRESS OF DEVICE IF NO SPACE FOR FILE

Seq #  *Modification Id* Act 
----------------------------+
01856  M01S00023.ns2697  +++|*                       ERROR AND FILE MUST RESIDE ON ON THAT DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
01857  M02S00024.286l859 ---|*                (B2) = 0 IF NO SPACE FOR FILE ERROR AND DEVICE

Seq #  *Modification Id* Act 
----------------------------+
01858  M01S00261.286l859 +++|*                (X7) = 0 IF NO SPACE FOR FILE ERROR AND DEVICE

Seq #  *Modification Id* Act 
----------------------------+
01859  M01S00025.ns2697  +++|*                       SELECTION BY LOAD LEVELING.
01860  M01S00026.ns2697  +++|*
01861  M01S00027.ns2697  +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
01862  M01S00028.ns2697  +++|*                A - 1, 2, 3, 4, 5.
01863  M01S00029.ns2697  +++|*                B - 2, 6.
01864  M01S00030.ns2697  +++|*
01865  M01S00031.ns2697  +++|*         CALLS  CAL, RAS, SFD, SRD.
01866  M01S00032.ns2697  +++|
01867  M01S00033.ns2697  +++|

Seq #  *Modification Id* Act 
----------------------------+
01868  M02S00034.286l859 ---| ADF9     SX5    B0+         SET NO ERROR

Seq #  *Modification Id* Act 
----------------------------+
01869  M01S00262.286l859 +++| ADF9     SB2    B0+         SET NO ERROR

Seq #  *Modification Id* Act 
----------------------------+
01870  M01S00035.ns2697  +++|
01871  M01S00036.ns2697  +++| ADF      SUBR               ENTRY/EXIT
01872  M01S00037.ns2697  +++|
01873  M01S00038.ns2697  +++|*         CHECK AUXILIARY DEVICE LOAD.
01874  M01S00039.ns2697  +++|
01875  M01S00040.ns2697  +++|          SA2    CPAR+/COMSPFS/CPPN
01876  M01S00041.ns2697  +++|          SA4    TCBF+FCUI   GET USER INDEX
01877  M01S00042.ns2697  +++|          SA1    CPAR+/COMSPFS/CPOP  GET UTILITY OPTIONS
01878  M01S00043.ns2697  +++|          ZR     X2,ADF1     IF NOT AUXILIARY DEVICE LOAD
01879  M01S00044.ns2697  +++|          SA5    MSTT+1      GET DEVICE PARAMETERS
01880  M01S00045.ns2697  +++|          EQ     ADF4        CHECK ACCESS LEVEL AND SPACE AVAILABLE
01881  M01S00046.ns2697  +++|
01882  M01S00047.ns2697  +++|*         CHECK LOAD LEVELING OPTION AND SUBFAMILY USER INDEX.
01883  M01S00048.ns2697  +++|
01884  M01S00049.ns2697  +++| ADF1     SA3    TCBF+FCDN   GET DEVICE NUMBER FROM CATALOG
01885  M01S00050.ns2697  +++|          MX6    -3
01886  M01S00051.ns2697  +++|          BX6    -X6*X4      LAST DIGIT OF USER INDEX
01887  M01S00052.ns2697  +++|          BX4    X4-X6
01888  M01S00053.ns2697  +++|          SB6    X6+8-59     SET DAPF MASK SHIFT COUNT
01889  M01S00054.ns2697  +++|          SX4    X4-SBUI
01890  M01S00055.ns2697  +++|          SX2    B0+         SET MASTER DEVICE
01891  M01S00056.ns2697  +++|          ZR     X4,ADF2     IF SUBFAMILY USER INDEX
01892  M01S00057.ns2697  +++|          LX3    -36
01893  M01S00058.ns2697  +++|          LX1    59-54
01894  M01S00059.ns2697  +++|          MX6    -6
01895  M01S00060.ns2697  +++|          NG     X1,ADF5     IF *OP=L* SPECIFIED
01896  M01S00061.ns2697  +++|          BX2    -X6*X3      DEVICE NUMBER FROM PFC
01897  M01S00062.ns2697  +++|
01898  M01S00063.ns2697  +++|*         SEARCH FOR DEVICE IN CURRENT SYSTEM.
01899  M01S00064.ns2697  +++|
01900  M01S00065.ns2697  +++| ADF2     RJ     SFD         SEARCH FOR DEVICE
01901  M01S00066.ns2697  +++|          ZR     X1,ADF3     IF DEVICE NOT FOUND
01902  M01S00067.ns2697  +++|          SA5    A1+B1       GET DEVICE PARAMETERS
01903  M01S00068.ns2697  +++|          AX6    X5,B6
01904  M01S00069.ns2697  +++|          ZR     X4,ADF4     IF SUBFAMILY USER INDEX, IGNORE DAPF MASK
01905  M01S00070.ns2697  +++|          NG     X6,ADF4     IF USER INDEX ALLOWED ON DEVICE
01906  M01S00071.ns2697  +++|
01907  M01S00072.ns2697  +++|*         CHECK DESTINATION DEVICE IF DEVICE FROM PFC NOT FOUND.
01908  M01S00073.ns2697  +++|

Seq #  *Modification Id* Act 
----------------------------+
01909  M02S00074.286l859 ---| ADF3     SA1    CPAR+/COMSPFS/CPDD  DESTINATION DEVICE

Seq #  *Modification Id* Act 
----------------------------+
01910  M01S00263.286l859 +++| ADF3     SA1    DDMA        GET DESTINATION DEVICE *MSTT* ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01911  M01S00075.ns2697  +++|          ZR     X1,ADF7     IF DESTINATION DEVICE NOT SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
01912  M02S00076.286l859 ---|          LX1    -6          *MSTT* ADDRESS OF *DD*
01913  M02S00077.286l859 ---|          SA5    X1+1        GET DEVICE PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
01914  M01S00264.286l859 +++|          SA5    X1+B1       GET DEVICE PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
01915  M01S00078.ns2697  +++|          AX6    X5,B6
01916  M01S00079.ns2697  +++|          PL     X6,ADF7     IF USER INDEX NOT ALLOWED ON DEVICE
01917  M01S00080.ns2697  +++|
01918  M01S00081.ns2697  +++|*         CHECK ACCESS LEVELS AND SPACE ON DEVICE.
01919  M01S00082.ns2697  +++|
01920  M01S00083.ns2697  +++| ADF4     RJ     CAL         CHECK ACCESS LEVELS
01921  M01S00084.ns2697  +++|          NG     X6,ADF8     IF ACCESS LEVEL ERROR

Seq #  *Modification Id* Act 
----------------------------+
01922  M02S00085.286l859 ---|          SB2    A5-B1       SET DEVICE POINTER

Seq #  *Modification Id* Act 
----------------------------+
01923  M01S00086.ns2697  +++|          SX3    B0          SET NO SPACE INCREMENT
01924  M01S00087.ns2697  +++|          RJ     RAS         RETURN AVAILABLE SPACE

Seq #  *Modification Id* Act 
----------------------------+
01925  M01S00265.286l859 +++|          SX7    A5-B1       SET DEVICE POINTER

Seq #  *Modification Id* Act 
----------------------------+
01926  M01S00088.ns2697  +++|          NZ     X1,ADF9     IF SPACE FOR FILE ON DEVICE
01927  M01S00089.ns2697  +++|          EQ     ADF6        PROCESS NO SPACE FOR FILE
01928  M01S00090.ns2697  +++|
01929  M01S00091.ns2697  +++|*         PROCESS LOAD LEVELING OPTION.
01930  M01S00092.ns2697  +++|
01931  M01S00093.ns2697  +++| ADF5     RJ     SRD         SELECT RESIDENCY DEVICE

Seq #  *Modification Id* Act 
----------------------------+
01932  M01S00266.286l859 +++|          SX7    B2          SET DEVICE POINTER

Seq #  *Modification Id* Act 
----------------------------+
01933  M01S00094.ns2697  +++|          GT     B2,B1,ADF9  IF DEVICE FOUND

Seq #  *Modification Id* Act 
----------------------------+
01934  M01S00267.286l859 +++|          SX7    B0          CLEAR DEVICE POINTER FOR NO SPACE ERROR

Seq #  *Modification Id* Act 
----------------------------+
01935  M01S00095.ns2697  +++|          NG     B2,ADF7     IF NO DEVICE FOR USER INDEX
01936  M01S00096.ns2697  +++|          ZR     B2,ADF8     IF NO DEVICE FOR ACCESS LEVEL

Seq #  *Modification Id* Act 
----------------------------+
01937  M02S00097.286l859 ---|          SB2    B0+         CLEAR DEVICE POINTER FOR NO SPACE ERROR

Seq #  *Modification Id* Act 
----------------------------+
01938  M01S00098.ns2697  +++|
01939  M01S00099.ns2697  +++|*         PROCESS FILE ASSIGNMENT ERRORS.
01940  M01S00100.ns2697  +++|

Seq #  *Modification Id* Act 
----------------------------+
01941  M02S00101.286l859 ---| ADF6     SX5    MES13       * PFLOAD - NO SPACE FOR FILE*

Seq #  *Modification Id* Act 
----------------------------+
01942  M01S00268.286l859 +++| ADF6     SB2    ERNS        * NO SPACE FOR FILE ...*

Seq #  *Modification Id* Act 
----------------------------+
01943  M01S00102.ns2697  +++|          EQ     ADFX        RETURN
01944  M01S00103.ns2697  +++|

Seq #  *Modification Id* Act 
----------------------------+
01945  M02S00104.286l859 ---| ADF7     SX5    MES12       *PFLOAD - ALTERNATE DEVICE NOT FOUND*

Seq #  *Modification Id* Act 
----------------------------+
01946  M01S00269.286l859 +++| ADF7     SB2    ERAN        * ALTERNATE DEVICE NOT FOUND ...*

Seq #  *Modification Id* Act 
----------------------------+
01947  M01S00105.ns2697  +++|          EQ     ADFX        RETURN
01948  M01S00106.ns2697  +++|

Seq #  *Modification Id* Act 
----------------------------+
01949  M02S00107.286l859 ---| ADF8     SX5    MES14       * PFLOAD - NO DEVICE FOUND FOR FILE*

Seq #  *Modification Id* Act 
----------------------------+
01950  M01S00270.286l859 +++| ADF8     SB2    ERND        * NO DEVICE FOR FILE ...*

Seq #  *Modification Id* Act 
----------------------------+
01951  M01S00108.ns2697  +++|          EQ     ADFX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01952  M02S00324.286l859 ---| AEC      SPACE  4,10
01953  M02S00325.286l859 ---|**        AEC -  ADVANCE ERROR COUNT.
01954  M02S00326.286l859 ---|*
01955  M02S00327.286l859 ---|*         ENTRY  (FERC) = CURRENT FILE ERROR COUNT.
01956  M02S00328.286l859 ---|*
01957  M02S00329.286l859 ---|*         EXIT   (FERC) = UPDATED FILE ERROR COUNT.
01958  M02S00330.286l859 ---|*
01959  M02S00331.286l859 ---|*         USES   X - 4, 6.
01960  M02S00332.286l859 ---|*                A - 4, 6.
01961  M02S00333.286l859 ---|
01962  M02S00334.286l859 ---|
01963  M02S00335.286l859 ---| AEC      SUBR               ENTRY/EXIT
01964  M02S00336.286l859 ---|          SA4    FERC
01965  M02S00337.286l859 ---|          SX6    X4+B1       ADVANCE ERROR COUNT
01966  M02S00338.286l859 ---|          SA6    A4
01967  M02S00339.286l859 ---|          EQ     AECX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01968  M01S00340.ns22000 +++| AUP      SPACE  4,20
01969  M01S00341.ns22000 +++|**        AUP - ACTIVATE UTILITY PROCESSOR.
01970  M01S00342.ns22000 +++|*
01971  M01S00343.ns22000 +++|*                (PAFL) = 0 IF *PFU* NOT ACTIVE.
01972  M01S00344.ns22000 +++|*                       = 1 IF *PFU* ALREADY ACTIVE.
01973  M01S00345.ns22000 +++|*                (MAEQ) = MASTER EQUIPMENT.
01974  M01S00346.ns22000 +++|*                (CPDN) = DEVICE NUMBER.
01975  M01S00347.ns22000 +++|*                (TCBF+FCUI) = USER INDEX TO ACTIVATE *PFU* ON.
01976  M01S00348.ns22000 +++|*
01977  M01S00349.ns22000 +++|*         EXIT   (PAFL) = 1.
01978  M01S00350.ns22000 +++|*                (RICT) = RANDOM INDEX OF *PETS* EOI.
01979  M01S00351.ns22000 +++|*                *PFU* ACTIVATED IF NOT ALREADY ACTIVE.
01980  M01S00352.ns22000 +++|*                *CATS* AND *PETS* FILES SET UP FOR PROCESSING.
01981  M01S00353.ns22000 +++|*
01982  M01S00354.ns22000 +++|*         USES   X - 1, 2, 3, 6, 7.
01983  M01S00355.ns22000 +++|*                A - 1, 2, 3, 6, 7.
01984  M01S00356.ns22000 +++|*
01985  M01S00357.ns22000 +++|*         CALLS  RCT.
01986  M01S00358.ns22000 +++|*
01987  M01S00359.ns22000 +++|*         MACROS CALLPFU, RECALL.
01988  M01S00360.ns22000 +++|
01989  M01S00361.ns22000 +++|
01990  M01S00362.ns22000 +++| AUP      SUBR               ENTRY/EXIT
01991  M01S00363.ns22000 +++|          SA2    PAFL        *PFU* ACTIVITY FLAG
01992  M01S00364.ns22000 +++|          SA3    MAEQ
01993  M01S00365.ns22000 +++|          NZ     X2,AUPX     IF *PFU* ALREADY ACTIVE
01994  M01S00366.ns22000 +++|          SA2    CPAR+/COMSPFS/CPDN
01995  M01S00367.ns22000 +++|          LX3    23-11       SET MASTER EQUIPMENT
01996  M01S00368.ns22000 +++|          BX6    X3
01997  M01S00369.ns22000 +++|          SA1    FAPM        SET FET ADDRESS PARAMETER
01998  M01S00370.ns22000 +++|          SA6    DATA+FTDW
01999  M01S00371.ns22000 +++|          LX2    54          SET DEVICE NUMBER
02000  M01S00372.ns22000 +++|          BX7    X2+X1
02001  M01S00373.ns22000 +++|          SA7    CATS+FTPM
02002  M01S00374.ns22000 +++|          SA1    CATS        CLEAR FET STATUS FIELDS
02003  M01S00375.ns22000 +++|          SA2    PETS
02004  M01S00376.ns22000 +++|          MX3    42
02005  M01S00377.ns22000 +++|          BX6    X3*X1
02006  M01S00378.ns22000 +++|          SX1    B1          SET *CATS* FET COMPLETE
02007  M01S00379.ns22000 +++|          BX7    X6+X1
02008  M01S00380.ns22000 +++|          SA7    A1
02009  M01S00381.ns22000 +++|          BX6    X3*X2
02010  M01S00382.ns22000 +++|          SA1    DATA
02011  M01S00383.ns22000 +++|          SA6    A2
02012  M01S00384.ns22000 +++|          BX7    X3*X1
02013  M01S00385.ns22000 +++|          SA7    A1
02014  M01S00386.ns22000 +++|          BX6    X6-X6       CLEAR SECTOR COUNTS
02015  M01S00387.ns22000 +++|          SA6    CATS+FTSC
02016  M01S00388.ns22000 +++|          SA6    PETS+FTSC
02017  M01S00389.ns22000 +++|          SA6    DATA+FTSC
02018  M01S00390.ns22000 +++|          SA6    DATA+FTDL   CLEAR DATA FILE STATE WORD

Seq #  *Modification Id* Act 
----------------------------+
02019  M02S00391.253l688 ---|          CALLPFU CATS,CTLM  ACTIVATE *PFU* LOAD PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
02020  M01S00045.253l688 +++|          CALLPFU  CATS,CTLM ACTIVATE *PFU* LOAD PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
02021  M01S00392.ns22000 +++|          RECALL DATA        WAIT FOR *PFU* TO INITIALIZE
02022  M01S00393.ns22000 +++|          RJ     RCT         READ CATALOG TRACK
02023  M01S00394.ns22000 +++|          SA1    PETS+FTSC   SET PETS RANDOM INDEX
02024  M01S00395.ns22000 +++|          MX2    24
02025  M01S00396.ns22000 +++|          BX6    X2*X1
02026  M01S00397.ns22000 +++|          LX6    -36
02027  M01S00398.ns22000 +++|          SA6    RICT
02028  M01S00399.ns22000 +++|          EQ     AUPX        RETURN
02029  M01S00400.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
02030  M01S00046.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
02031  M01S00401.ns22000 +++| FAPM     VFD    6/0,18/DATA,18/PETS,18/PAFL  FET ADDRESS PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
02032  M01S01073.253l688 ---| BEL      SPACE  4,15
02033  M01S01074.253l688 ---|**        BEL - BUILD ERRLOG MESSAGE.
02034  M01S01075.253l688 ---|*
02035  M01S01076.253l688 ---|*         ENTRY  (X5) = DAYFILE MESSAGE ADDRESS.
02036  M01S01077.253l688 ---|*                (MPDN) = DEVICE NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
02037  M02S01078.253l688 ---|*                (MPEQ) = EQUIPMENT NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
02038  M02S00402.253l688 ---|*                (MPEQ) = EST ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
02039  M01S01079.253l688 ---|*
02040  M01S01080.253l688 ---|*         EXIT   (X5) = ERRLOG MESSAGE ADDRESS.
02041  M01S01081.253l688 ---|*
02042  M01S01082.253l688 ---|*         USES   X - ALL.
02043  M01S01083.253l688 ---|*                A - 1, 2, 3, 6.
02044  M01S01084.253l688 ---|*                B - 2, 3, 4.
02045  M01S01085.253l688 ---|*
02046  M01S01086.253l688 ---|*         CALLS  COD.
02047  M01S01087.253l688 ---|
02048  M01S01088.253l688 ---|
02049  M01S01089.253l688 ---| BEL      SUBR               ENTRY/EXIT
02050  M01S01090.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
02051  M02S01091.253l688 ---|*         SETUP ERRLOG MESSAGE PREFIX.

Seq #  *Modification Id* Act 
----------------------------+
02052  M02S00403.253l688 ---|*         SET UP ERRLOG MESSAGE PREFIX.

Seq #  *Modification Id* Act 
----------------------------+
02053  M01S01092.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
02054  M02S01093.253l688 ---|          SA1    MPEQ        SET EQUIPMENT NUMBER
02055  M02S01094.253l688 ---|          SX1    X1+100B     INSURE LEADING ZERO

Seq #  *Modification Id* Act 
----------------------------+
02056  M02S00404.253l688 ---|          SA1    MPEQ        SET EST ORDINAL
02057  M02S00405.253l688 ---|          SX1    X1+1000B    ENSURE LEADING ZEROES

Seq #  *Modification Id* Act 
----------------------------+
02058  M01S01095.253l688 ---|          RJ     COD         CONVERT OCTAL TO DISPLAY CODE
02059  M01S01096.253l688 ---|          SA1    BELA

Seq #  *Modification Id* Act 
----------------------------+
02060  M02S01097.253l688 ---|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
02061  M02S00406.253l688 ---|          MX0    -18

Seq #  *Modification Id* Act 
----------------------------+
02062  M01S01098.253l688 ---|          BX6    -X0*X6

Seq #  *Modification Id* Act 
----------------------------+
02063  M02S01099.253l688 ---|          LX0    47-11
02064  M02S01100.253l688 ---|          LX6    47-11

Seq #  *Modification Id* Act 
----------------------------+
02065  M02S00407.253l688 ---|          LX0    47-17
02066  M02S00408.253l688 ---|          LX6    47-17

Seq #  *Modification Id* Act 
----------------------------+
02067  M01S01101.253l688 ---|          BX1    X0*X1
02068  M01S01102.253l688 ---|          BX6    X1+X6
02069  M01S01103.253l688 ---|          SA6    A1+
02070  M01S01104.253l688 ---|          SA1    MPDN        SET DEVICE NUMBER
02071  M01S01105.253l688 ---|          SX1    X1+100B     INSURE LEADING ZERO
02072  M01S01106.253l688 ---|          RJ     COD         CONVERT OCTAL TO DISPLAY CODE
02073  M01S01107.253l688 ---|          SA1    BELA
02074  M01S01108.253l688 ---|          MX0    -12
02075  M01S01109.253l688 ---|          BX6    -X0*X6

Seq #  *Modification Id* Act 
----------------------------+
02076  M02S01110.253l688 ---|          LX0    17-11
02077  M02S01111.253l688 ---|          LX6    17-11

Seq #  *Modification Id* Act 
----------------------------+
02078  M01S01112.253l688 ---|          BX1    X0*X1
02079  M01S01113.253l688 ---|          BX6    X1+X6
02080  M01S01114.253l688 ---|          SA6    A1
02081  M01S01115.253l688 ---|
02082  M01S01116.253l688 ---|*         MOVE DAYFILE MESSAGE DESCRIPTIVE STRING TO ERRLOG MESSAGE.
02083  M01S01117.253l688 ---|
02084  M01S01118.253l688 ---|          SB2    B0          INITIALIZE WORD INDEX
02085  M01S01119.253l688 ---|          SB4    10D
02086  M01S01120.253l688 ---| BEL1     SB3    B0          INITIALIZE CHARACTER INDEX
02087  M01S01121.253l688 ---|          SA2    =1L,        SET SEARCH CHARACTER
02088  M01S01122.253l688 ---|          MX0    6           SET SEARCH MASK
02089  M01S01123.253l688 ---|          SA3    BELB+B2     GET ERRLOG MESSAGE WORD
02090  M01S01124.253l688 ---|          SA1    X5+B2       GET DAYFILE MESSAGE WORD
02091  M01S01125.253l688 ---|          BX6    X3
02092  M01S01126.253l688 ---| BEL2     BX4    X0*X1       GET DAYFILE MESSAGE CHARACTER
02093  M01S01127.253l688 ---|          BX7    X2-X4
02094  M01S01128.253l688 ---|          ZR     X7,BEL3     IF SEARCH CHARACTER FOUND
02095  M01S01129.253l688 ---|          BX6    -X0*X6      INSERT DAYFILE CHARACTER
02096  M01S01130.253l688 ---|          BX6    X4+X6
02097  M01S01131.253l688 ---|          LX0    -6          SETUP FOR NEXT CHARACTER
02098  M01S01132.253l688 ---|          LX2    -6
02099  M01S01133.253l688 ---|          SB3    B3+B1       INCREMENT CHARACTER INDEX
02100  M01S01134.253l688 ---|          LT     B3,B4,BEL2  IF MORE CHARACTERS
02101  M01S01135.253l688 ---|          SA6    A3          SAVE NEW ERRLOG MESSAGE WORD
02102  M01S01136.253l688 ---|          SB2    B2+B1       INCREMENT WORD INDEX
02103  M01S01137.253l688 ---|          SX1    B2-7
02104  M01S01138.253l688 ---|          NG     X1,BEL1     IF MORE WORDS
02105  M01S01139.253l688 ---|          EQ     BEL4        ADD LINE TERMINATOR
02106  M01S01140.253l688 ---|
02107  M01S01141.253l688 ---|*         TERMINATE DESCRIPTIVE STRING WITH A PERIOD.
02108  M01S01142.253l688 ---|
02109  M01S01143.253l688 ---| BEL3     SX2    B3
02110  M01S01144.253l688 ---|          LX2    2
02111  M01S01145.253l688 ---|          SX3    B3
02112  M01S01146.253l688 ---|          LX3    1
02113  M01S01147.253l688 ---|          IX2    X2+X3
02114  M01S01148.253l688 ---|          SB4    60D
02115  M01S01149.253l688 ---|          SB3    X2          6*CHARACTER INDEX (0-9)
02116  M01S01150.253l688 ---|          SB3    B4-B3
02117  M01S01151.253l688 ---|          SA2    =1L.        REPLACE COMMA WITH PERIOD
02118  M01S01152.253l688 ---|          LX2    B3,X2
02119  M01S01153.253l688 ---|          BX6    -X0*X6
02120  M01S01154.253l688 ---|          BX6    X2+X6
02121  M01S01155.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
02122  M02S01156.253l688 ---|*         SUPPLY ERRLOG MESSAGE LINE TERMINATOR.

Seq #  *Modification Id* Act 
----------------------------+
02123  M02S00409.253l688 ---|*         INSERT COMMA AFTER DEVICE NUMBER, ADD END OF LINE.

Seq #  *Modification Id* Act 
----------------------------+
02124  M01S01157.253l688 ---|
02125  M01S01158.253l688 ---|          SB2    -B3         CONSTRUCT MASK TO ZERO FILL WORD
02126  M01S01159.253l688 ---|          MX0    1
02127  M01S01160.253l688 ---|          SB3    59+6+B2
02128  M01S01161.253l688 ---|          AX0    B3
02129  M01S01162.253l688 ---|          BX6    X0*X6
02130  M01S01163.253l688 ---|          SA6    A3+         SAVE LAST ERRLOG MESSAGE WORD
02131  M01S01164.253l688 ---| BEL4     BX6    X6-X6
02132  M01S01165.253l688 ---|          SA6    A3+B1       ADD LINE TERMINATOR

Seq #  *Modification Id* Act 
----------------------------+
02133  M02S00410.253l688 ---|          SX6    1R,&1R      INSERT COMMA AFTER DEVICE NUMBER
02134  M02S00411.253l688 ---|          SA3    BELA+1
02135  M02S00412.253l688 ---|          LX6    54
02136  M02S00413.253l688 ---|          BX6    X3-X6
02137  M02S00414.253l688 ---|          SA6    A3+

Seq #  *Modification Id* Act 
----------------------------+
02138  M01S01166.253l688 ---|          SX5    BELA        SET ERRLOG MESSAGE ADDRESS
02139  M01S01167.253l688 ---|          EQ     BELX        RETURN
02140  M01S01168.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
02141  M02S01169.253l688 ---| BELA     DATA   10HEQXX,DNXX,  ERRLOG MESSAGE BUILD AREA

Seq #  *Modification Id* Act 
----------------------------+
02142  M02S00415.253l688 ---| BELA     DATA   10HEQXXX,DNXX  ERRLOG MESSAGE PREFIX

Seq #  *Modification Id* Act 
----------------------------+
02143  M01S01170.253l688 ---| BELB     BSSZ   8
02144  M00S01171.pfload  +++| BFL      SPACE  4,30
02145  M00S01172.pfload  +++|**        BFL - BUILD FILE LIST.
02146  M00S01173.pfload  +++|*
02147  M00S01174.pfload  +++|*         ENTRY  (A0) = ADDRESS OF CATALOG SECTOR.
02148  M00S01175.pfload  +++|*                (X0) = WORD COUNT OF CATALOG SECTOR.
02149  M00S01176.pfload  +++|*                (CSWC) = WORD COUNT OF CATALOG SECTOR.
02150  M00S01177.pfload  +++|*                (FLOF) = 0 IF NO FILE LIST OVERFLOW.
02151  M00S01178.pfload  +++|*                       = 1 IF FILE LIST OVERFLOWED TO MASS STORAGE.
02152  M00S01179.pfload  +++|*                (FLPT) = NEXT AVAILABLE LOCATION IN FILE LIST BUFFER.
02153  M00S01180.pfload  +++|*                (FLBF) = MEMORY RESIDENT PORTION OF FILE LIST.
02154  M00S01181.pfload  +++|*
02155  M00S01182.pfload  +++|*         EXIT   (A0) = LWA+1 OF CATALOG SECTOR.
02156  M00S01183.pfload  +++|*                (FLOF) = 0 IF NO FILE LIST OVERFLOW.
02157  M00S01184.pfload  +++|*                       = 1 IF FILE LIST OVERFLOWED TO MASS STORAGE.
02158  M00S01185.pfload  +++|*                (FLPT) = NEXT AVAILABLE LOCATION IN FILE LIST BUFFER.
02159  M00S01186.pfload  +++|*                (FLBF) = MEMORY RESIDENT PORTION OF FILE LIST.
02160  M00S01187.pfload  +++|*                FILE NAME AND USER INDEX FOR EACH CATALOG ENTRY IS

Seq #  *Modification Id* Act 
----------------------------+
02161  M01S01188.ns2697  ---|*                ADDED TO THE FILE LIST.

Seq #  *Modification Id* Act 
----------------------------+
02162  M01S00109.ns2697  +++|*                  ADDED TO THE FILE LIST.
02163  M00S01189.pfload  +++|*                OVERFLOW PORTIONS OF THE FILE LIST ARE WRITTEN TO A

Seq #  *Modification Id* Act 
----------------------------+
02164  M01S01190.ns2697  ---|*                SCRATCH FILE.

Seq #  *Modification Id* Act 
----------------------------+
02165  M01S00110.ns2697  +++|*                  SCRATCH FILE.
02166  M00S01191.pfload  +++|*                SCRATCH FILE BUFFER IS FLUSHED IF FILE LIST OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
02167  M01S01192.ns2697  ---|*                HAS OCCURRED AND THE CATALOG SECTOR IS SHORT.

Seq #  *Modification Id* Act 
----------------------------+
02168  M01S00111.ns2697  +++|*                  HAS OCCURRED AND THE CATALOG SECTOR IS SHORT.
02169  M00S01193.pfload  +++|*

Seq #  *Modification Id* Act 
----------------------------+
02170  M01S01194.ns2697  ---|*         USES   X - 0, 1, 2, 6, 7.
02171  M01S01195.ns2697  ---|*                A - 0, 1, 2, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
02172  M01S00112.ns2697  +++|*         USES   X - 0, 1, 2, 5, 6, 7.
02173  M01S00113.ns2697  +++|*                A - 0, 1, 5, 6, 7.
02174  M00S01196.pfload  +++|*
02175  M00S01197.pfload  +++|*         MACROS WRITE, WRITEW.
02176  M00S01198.pfload  +++|
02177  M00S01199.pfload  +++|
02178  M00S01200.pfload  +++| BFL      SUBR               ENTRY/EXIT
02179  M00S01201.pfload  +++| BFL1     SX0    X0-NWCE
02180  M00S01202.pfload  +++|          NG     X0,BFL3     IF NO MORE CATALOG ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
02181  M01S00114.ns2697  +++|          SA5    A0+FCFN+FCUI*0  GET FILE NAME AND USER INDEX
02182  M00S01203.pfload  +++|          SA1    FLPT

Seq #  *Modification Id* Act 
----------------------------+
02183  M01S00115.ns2697  +++|          MX6    -18
02184  M01S00116.ns2697  +++|          BX6    -X6*X5      CHECK USER INDEX
02185  M01S00117.ns2697  +++|          ZR     X6,BFL2.2   IF CATALOG HOLE
02186  M01S00118.ns2697  +++|          SX6    X6-IFUI
02187  M00S01204.pfload  +++|          SX2    X1-FLBF-FLBFL

Seq #  *Modification Id* Act 
----------------------------+
02188  M01S00119.ns2697  +++|          ZR     X6,BFL2.2   IF INDIRECT ACCESS FLAW
02189  M00S01205.pfload  +++|          NG     X2,BFL2     IF FILE LIST NOT FULL
02190  M00S01206.pfload  +++|          SX6    B1+         SET FILE LIST OVERFLOW
02191  M00S01207.pfload  +++|          SA6    FLOF

Seq #  *Modification Id* Act 
----------------------------+
02192  M01S01208.286l859 ---|          WRITEW S1,FLBF+FLBFL-100B,100B  WRITE LAST SECTOR OF BUFFER

Seq #  *Modification Id* Act 
----------------------------+
02193  M01S00271.286l859 +++|          WRITEW FO,FLBF+FLBFL-100B,100B  WRITE LAST SECTOR OF BUFFER
02194  M00S01209.pfload  +++|          SA1    FLPT        BACK BUFFER POINTER UP ONE SECTOR
02195  M00S01210.pfload  +++|          SX1    X1-100B
02196  M00S01211.pfload  +++| BFL2     SX6    X1+B1       ADVANCE BUFFER POINTER

Seq #  *Modification Id* Act 
----------------------------+
02197  M01S01212.ns2697  ---|          SA6    A1
02198  M01S01213.ns2697  ---|          SA2    A0          PUT FILE NAME AND USER INDEX IN LIST
02199  M01S01214.ns2697  ---|          BX7    X2
02200  M01S01215.ns2697  ---|          SA7    X1+
02201  M01S01216.ns2697  ---|          SA0    A0+NWCE     ADVANCE CATALOG SECTOR ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
02202  M01S00120.ns2697  +++|          BX7    X5
02203  M01S00121.ns2697  +++|          SA6    A1          UPDATE BUFFER POINTER
02204  M01S00122.ns2697  +++|          SA7    X1          ENTER FILE IN LIST
02205  M01S00123.ns2697  +++| BFL2.2   SA0    A0+NWCE     ADVANCE CATALOG SECTOR ADDRESS
02206  M00S01217.pfload  +++|          EQ     BFL1        PROCESS NEXT CATALOG ENTRY
02207  M00S01218.pfload  +++|
02208  M00S01219.pfload  +++| BFL3     SX2    A0+NWCE     SET POINTER TO END OF SECTOR
02209  M00S01220.pfload  +++|          IX0    X0+X2
02210  M00S01221.pfload  +++|          SA0    X0
02211  M00S01222.pfload  +++|          SA1    CSWC
02212  M00S01223.pfload  +++|          SX2    X1-100B
02213  M00S01224.pfload  +++|          ZR     X2,BFLX     IF NOT SHORT SECTOR
02214  M00S01225.pfload  +++|          SA1    FLOF
02215  M00S01226.pfload  +++|          ZR     X1,BFLX     IF NO FILE LIST OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
02216  M01S01227.286l859 ---|          WRITE  S1          FLUSH SCRATCH FILE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
02217  M01S00272.286l859 +++|          WRITE  FO          FLUSH SCRATCH FILE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
02218  M01S01228.ns22000 ---|          EQ     BFLX        EXIT

Seq #  *Modification Id* Act 
----------------------------+
02219  M01S00416.ns22000 +++|          EQ     BFLX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
02220  M02S00417.253l688 ---| CAL      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
02221  M01S00047.253l688 +++| CAL      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
02222  M01S00418.ns22000 +++|**        CAL - CHECK ACCESS LEVELS.
02223  M01S00419.ns22000 +++|*
02224  M01S00420.ns22000 +++|*         ENTRY  (TCBF) = CATALOG ENTRY OF FILE.

Seq #  *Modification Id* Act 
----------------------------+
02225  M02S00421.ns2697  ---|*                (A5) = ADDRESS OF SECOND WORD OF *MSTT* TABLE ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
02226  M01S00124.ns2697  +++|*                (X5) = SECOND WORD OF *MSTT* ENTRY.
02227  M01S00125.ns2697  +++|*                (A5) = ADDRESS OF SECOND WORD OF *MSTT* ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
02228  M01S00422.ns22000 +++|*
02229  M01S00423.ns22000 +++|*         EXIT   (X6) .LT. 0 IF THE ACCESS LEVEL OF THE FILE IS NOT
02230  M01S00424.ns22000 +++|*                     WITHIN THE DEVICE ACCESS LEVEL LIMITS OF THE

Seq #  *Modification Id* Act 
----------------------------+
02231  M02S00425.ns2697  ---|*                     SELECTED DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
02232  M01S00126.ns2697  +++|*                     DEVICE.
02233  M01S00127.ns2697  +++|*                (X5) = SECOND WORD OF *MSTT* TABLE ENTRY.
02234  M01S00128.ns2697  +++|*                (A5) = ADDRESS OF SECOND WORD OF *MSTT* ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
02235  M01S00426.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
02236  M02S00427.ns2697  ---|*         USES   X - 0, 1, 2, 5, 6, 7.
02237  M02S00428.ns2697  ---|*                A - 1, 2, 5.

Seq #  *Modification Id* Act 
----------------------------+
02238  M01S00129.ns2697  +++|*         USES   X - 0, 1, 5, 6, 7.
02239  M01S00130.ns2697  +++|*                A - 1.

Seq #  *Modification Id* Act 
----------------------------+
02240  M01S00429.ns22000 +++|
02241  M01S00430.ns22000 +++|
02242  M01S00431.ns22000 +++| CAL      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
02243  M02S00432.253l688 ---|          SA1    SYSM        CHECK SECURITY MODE

Seq #  *Modification Id* Act 
----------------------------+
02244  M01S00048.253l688 +++|          SA1    SYSS        CHECK SECURITY MODE

Seq #  *Modification Id* Act 
----------------------------+
02245  M01S00433.ns22000 +++|          SX6    B0+         SET NO ERROR
02246  M01S00434.ns22000 +++|          ZR     X1,CALX     IF NOT SECURE SYSTEM

Seq #  *Modification Id* Act 
----------------------------+
02247  M02S00435.ns2697  ---|          SA2    TCBF+FCAL   GET ACCESS LEVEL OF FILE
02248  M02S00436.ns2697  ---|          LX2    -36

Seq #  *Modification Id* Act 
----------------------------+
02249  M01S00131.ns2697  +++|          SA1    TCBF+FCAL   GET ACCESS LEVEL OF FILE

Seq #  *Modification Id* Act 
----------------------------+
02250  M01S00437.ns22000 +++|          MX0    -3

Seq #  *Modification Id* Act 
----------------------------+
02251  M02S00438.ns2697  ---|          BX1    -X0*X2
02252  M02S00439.ns2697  ---|          SA5    A5          GET DEVICE ACCESS LIMITS

Seq #  *Modification Id* Act 
----------------------------+
02253  M01S00440.ns22000 +++|          LX5    -30

Seq #  *Modification Id* Act 
----------------------------+
02254  M02S00441.ns2697  ---|          BX7    -X0*X5      UPPER LIMIT
02255  M02S00442.ns2697  ---|          IX6    X7-X1

Seq #  *Modification Id* Act 
----------------------------+
02256  M01S00132.ns2697  +++|          BX6    -X0*X5      DEVICE ACCESS LEVEL UPPER LIMIT
02257  M01S00133.ns2697  +++|          LX5    -3
02258  M01S00134.ns2697  +++|          LX1    -36
02259  M01S00135.ns2697  +++|          BX7    -X0*X5      DEVICE ACCESS LEVEL LOWER LIMIT
02260  M01S00136.ns2697  +++|          BX1    -X0*X1      FILE ACCESS LEVEL
02261  M01S00137.ns2697  +++|          LX5    33          RESTORE *MSTT* WORD
02262  M01S00138.ns2697  +++|          IX6    X6-X1

Seq #  *Modification Id* Act 
----------------------------+
02263  M01S00443.ns22000 +++|          NG     X6,CALX     IF ACCESS LEVEL TOO HIGH FOR DEVICE

Seq #  *Modification Id* Act 
----------------------------+
02264  M02S00444.ns2697  ---|          LX5    -3
02265  M02S00445.ns2697  ---|          BX7    -X0*X5      LOWER LIMIT
02266  M02S00446.ns2697  ---|          IX6    X1-X7

Seq #  *Modification Id* Act 
----------------------------+
02267  M01S00139.ns2697  +++|          IX6    X1-X7       ERROR IF ACCESS LEVEL TOO LOW FOR DEVICE

Seq #  *Modification Id* Act 
----------------------------+
02268  M01S00447.ns22000 +++|          EQ     CALX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
02269  M01S00140.ns2697  +++| CDE      SPACE  4,20
02270  M01S00141.ns2697  +++|**        CDE - CHECK DEVICE ENVIRONMENT.
02271  M01S00142.ns2697  +++|*
02272  M01S00143.ns2697  +++|*         ENTRY  PFC ENTRY IN *TCBF*.
02273  M01S00144.ns2697  +++|*

Seq #  *Modification Id* Act 
----------------------------+
02274  M02S00145.286l859 ---|*         EXIT   (X5) = 0 IF NO ERROR.
02275  M02S00146.286l859 ---|*                (X5) = ERROR MESSAGE ADDRESS IF FILE CANNOT BE LOADED.

Seq #  *Modification Id* Act 
----------------------------+
02276  M01S00273.286l859 +++|*         EXIT   (B2) = 0 IF NO ERROR.
02277  M01S00274.286l859 +++|*                (B2) = ERROR MESSAGE ADDRESS IF FILE CANNOT BE LOADED.

Seq #  *Modification Id* Act 
----------------------------+
02278  M01S00147.ns2697  +++|*                (X7) = PFC ENTRY *FCDN* WORD SET WITH DEVICE NUMBER IF
02279  M01S00148.ns2697  +++|*                       NO ERROR.

Seq #  *Modification Id* Act 
----------------------------+
02280  M02S00149.286l859 ---|*                (B2) = *MSTT* ADDRESS OF REQUIRED DEVICE IF NO SPACE

Seq #  *Modification Id* Act 
----------------------------+
02281  M01S00275.286l859 +++|*                (X7) = *MSTT* ADDRESS OF REQUIRED DEVICE IF NO SPACE

Seq #  *Modification Id* Act 
----------------------------+
02282  M01S00150.ns2697  +++|*                       FOR FILE ERROR AND LOAD LEVELING NOT USED.

Seq #  *Modification Id* Act 
----------------------------+
02283  M02S00151.286l859 ---|*                (B2) = 0 IF NO SPACE FOR FILE ERROR AND LOAD LEVELING

Seq #  *Modification Id* Act 
----------------------------+
02284  M01S00276.286l859 +++|*                (X7) = 0 IF NO SPACE FOR FILE ERROR AND LOAD LEVELING

Seq #  *Modification Id* Act 
----------------------------+
02285  M01S00152.ns2697  +++|*                       USED IN DEVICE SELECTION.

Seq #  *Modification Id* Act 
----------------------------+
02286  M02S00153.286l859 ---|*                (TYPE) = FILE TYPE FLAG IF NO ERROR.

Seq #  *Modification Id* Act 
----------------------------+
02287  M01S00154.ns2697  +++|*
02288  M01S00155.ns2697  +++|*         USES   X - 1, 2, 5, 6, 7.
02289  M01S00156.ns2697  +++|*                A - 1, 2, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
02290  M01S00277.286l859 +++|*                B - 2.

Seq #  *Modification Id* Act 
----------------------------+
02291  M01S00157.ns2697  +++|*
02292  M01S00158.ns2697  +++|*         CALLS  ADF, CAL, SFD.
02293  M01S00159.ns2697  +++|
02294  M01S00160.ns2697  +++|
02295  M01S00161.ns2697  +++| CDE      SUBR               ENTRY/EXIT
02296  M01S00162.ns2697  +++|
02297  M01S00163.ns2697  +++|*         CHECK MASTER DEVICE ACCESS LEVELS.
02298  M01S00164.ns2697  +++|
02299  M01S00165.ns2697  +++|          SX2    B0          SET MASTER DEVICE SEARCH
02300  M01S00166.ns2697  +++|          RJ     SFD         SEARCH FOR DEVICE
02301  M01S00167.ns2697  +++|          SA5    A1+B1
02302  M01S00168.ns2697  +++|          RJ     CAL         CHECK ACCESS LEVEL

Seq #  *Modification Id* Act 
----------------------------+
02303  M02S00169.286l859 ---|          SX5    MES14       * PFLOAD - NO DEVICE FOUND.*

Seq #  *Modification Id* Act 
----------------------------+
02304  M01S00278.286l859 +++|          SB2    ERND        * NO DEVICE FOR FILE ...*

Seq #  *Modification Id* Act 
----------------------------+
02305  M01S00170.ns2697  +++|          NG     X6,CDEX     IF MASTER DEVICE ACCESS LEVEL CONFLICT
02306  M01S00171.ns2697  +++|          SA1    TCBF+FCBS   CHECK FILE TYPE
02307  M01S00172.ns2697  +++|          SA2    PFCO
02308  M01S00173.ns2697  +++|          LX1    59-11

Seq #  *Modification Id* Act 
----------------------------+
02309  M02S00174.286l859 ---|          BX6    X1
02310  M02S00175.286l859 ---|          SA6    TYPE
02311  M02S00176.286l859 ---|          SX6    B0+         SET TO CLEAR DEVICE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
02312  M01S00279.286l859 +++|          SX6    B0          SET TO CLEAR DEVICE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
02313  M01S00177.ns2697  +++|          PL     X1,CDE1     IF INDIRECT ACCESS FILE
02314  M01S00178.ns2697  +++|          ZR     X2,CDE1     IF *PFC ONLY* FILE
02315  M01S00179.ns2697  +++|          RJ     ADF         ASSIGN DIRECT ACCESS FILE DEVICE

Seq #  *Modification Id* Act 
----------------------------+
02316  M02S00180.286l859 ---|          NZ     X5,CDEX     IF ERROR IN DEVICE ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
02317  M01S00280.286l859 +++|          NZ     B2,CDEX     IF ERROR IN DEVICE ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
02318  M01S00181.ns2697  +++|
02319  M01S00182.ns2697  +++|*         CHECK MASTER DEVICE ASSIGNMENT.
02320  M01S00183.ns2697  +++|

Seq #  *Modification Id* Act 
----------------------------+
02321  M02S00184.286l859 ---|          SA1    B2+         GET DEVICE NUMBER FROM *MSTT*

Seq #  *Modification Id* Act 
----------------------------+
02322  M01S00281.286l859 +++|          SA1    X7+         GET DEVICE NUMBER FROM *MSTT*

Seq #  *Modification Id* Act 
----------------------------+
02323  M01S00185.ns2697  +++|          SA2    CPAR+/COMSPFS/CPDN  MASTER DEVICE NUMBER
02324  M01S00186.ns2697  +++|          MX6    -6
02325  M01S00187.ns2697  +++|          BX6    -X6*X1      DEVICE NUMBER
02326  M01S00188.ns2697  +++|          BX2    X6-X2
02327  M01S00189.ns2697  +++|          NZ     X2,CDE1     IF SELECTED DEVICE IS NOT MASTER
02328  M01S00190.ns2697  +++|          SX6    B0          CLEAR DEVICE NUMBER
02329  M01S00191.ns2697  +++|
02330  M01S00192.ns2697  +++|*         SET DEVICE NUMBER IN *FCDN* WORD.
02331  M01S00193.ns2697  +++|
02332  M01S00194.ns2697  +++| CDE1     SA1    TCBF+FCDN
02333  M01S00195.ns2697  +++|          MX7    -6
02334  M01S00196.ns2697  +++|          LX7    36
02335  M01S00197.ns2697  +++|          LX6    36
02336  M01S00198.ns2697  +++|          BX7    X7*X1

Seq #  *Modification Id* Act 
----------------------------+
02337  M02S00199.286l859 ---|          SX5    B0          SET NO ERROR

Seq #  *Modification Id* Act 
----------------------------+
02338  M01S00282.286l859 +++|          SB2    B0          SET NO ERROR

Seq #  *Modification Id* Act 
----------------------------+
02339  M01S00200.ns2697  +++|          BX7    X7+X6       MERGE DEVICE NUMBER
02340  M01S00201.ns2697  +++|          EQ     CDEX        RETURN
02341  M00S01229.pfload  +++| CEL      SPACE  4,20
02342  M00S01230.pfload  +++|**        CEL - CHECK FOR END OF LOAD.
02343  M00S01231.pfload  +++|*
02344  M00S01232.pfload  +++|*         ENTRY  (SKER) = 0 IF SKIP TO EOR NOT REQUIRED.
02345  M00S01233.pfload  +++|*                       = NON-ZERO IF SKIP TO EOR REQUIRED.
02346  M00S01234.pfload  +++|*
02347  M00S01235.pfload  +++|*         EXIT   (X6) = 0 IF NOT END OF LOAD.
02348  M00S01236.pfload  +++|*                     = NON-ZERO IF END OF LOAD.
02349  M00S01237.pfload  +++|*                (CWBF) = CATALOG CONTROL WORD IF NOT END OF LOAD.
02350  M00S01238.pfload  +++|*                ARCHIVE FILE TRANSITIONS PERFORMED AS NECESSARY.
02351  M00S01239.pfload  +++|*                ARCHIVE LABEL PROCESSED IF PRESENT.

Seq #  *Modification Id* Act 
----------------------------+
02352  M02S00448.286l859 ---|*                ABORT, IF EXCESSIVE PARITY ERRORS.
02353  M00S01240.pfload  +++|*
02354  M00S01241.pfload  +++|*         USES   X - 1, 2, 5, 6, 7.
02355  M00S01242.pfload  +++|*                A - 1, 2, 6.
02356  M00S01243.pfload  +++|*                B - 2.
02357  M00S01244.pfload  +++|*

Seq #  *Modification Id* Act 
----------------------------+
02358  M01S01245.253l688 ---|*         CALLS  ART, CIN, DUP, PAL, RCW, SCI, SEM, SER.

Seq #  *Modification Id* Act 
----------------------------+
02359  M02S00049.pfloa19 ---|*         CALLS  ART, CIN, DUP, IFL, PAL, PLP, RCW, SCI, SEM, SER.

Seq #  *Modification Id* Act 
----------------------------+
02360  M02S00022.286l859 ---|*         CALLS  ART, CIN, DUP, IFL, PAL, RCW, SCI, SEM, SER.

Seq #  *Modification Id* Act 
----------------------------+
02361  M01S00283.286l859 +++|*         CALLS  ART, CIN, DUP, IFL, PAL, RCW, SCI, SER.
02362  M00S01246.pfload  +++|*
02363  M00S01247.pfload  +++|*         MACROS READCW, RECALL, SKIPFF.
02364  M00S01248.pfload  +++|
02365  M00S01249.pfload  +++|
02366  M00S01250.pfload  +++| CEL      SUBR               ENTRY/EXIT
02367  M00S01251.pfload  +++|
02368  M00S01252.pfload  +++|*         PROCESS FILE SKIP FLAG.
02369  M00S01253.pfload  +++|
02370  M00S01254.pfload  +++|          SA1    SKER
02371  M00S01255.pfload  +++|          ZR     X1,CEL1     IF FILE SKIP FLAG NOT SET
02372  M00S01256.pfload  +++|          BX6    X6-X6       CLEAR FILE SKIP FLAG
02373  M00S01257.pfload  +++|          SA6    A1
02374  M00S01258.pfload  +++|          RJ     DUP         DROP UTILITY PROCESSOR
02375  M00S01259.pfload  +++|          RJ     CIN         CLEAR UTILITY INTERLOCK
02376  M00S01260.pfload  +++|          RJ     SER         SKIP TO END OF RECORD
02377  M00S01261.pfload  +++|
02378  M00S01262.pfload  +++|*         CHECK IF ALL SELECTED FILES HAVE BEEN LOADED.
02379  M00S01263.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
02380  M01S01264.253l688 ---| CEL1     SA1    CPAR+/COMSPFS/CPPF

Seq #  *Modification Id* Act 
----------------------------+
02381  M02S01265.253l688 ---|          SA2    PCBA

Seq #  *Modification Id* Act 
----------------------------+
02382  M02S00449.253l688 ---|          SA2    CPAR+/COMSPFS/CPNP

Seq #  *Modification Id* Act 
----------------------------+
02383  M01S01266.253l688 ---|          ZR     X1,CEL2     IF PF NAME NOT SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
02384  M02S00050.286l859 ---| CEL1     SA1    /COMSPFS/FISP

Seq #  *Modification Id* Act 
----------------------------+
02385  M01S00284.286l859 +++| CEL1     SA1    AFDM        GET ARCHIVE FILE DEVICE MASK
02386  M01S00285.286l859 +++|          SA2    FLSM        GET REMAINING FILE SELECTIONS MASK
02387  M01S00286.286l859 +++|          SA3    CPAR+/COMSPFS/CPDI
02388  M01S00287.286l859 +++|          SA4    MASK        GET ACTIVE DEVICES MASK
02389  M01S00288.286l859 +++|          BX1    X1*X2
02390  M01S00289.286l859 +++|          NZ     X3,CEL1.1   IF DESTINATION USER INDEX SPECIFIED
02391  M01S00290.286l859 +++|          BX1    X1*X4
02392  M01S00291.286l859 +++| CEL1.1   ZR     X1,CEL10    IF LAST ARCHIVE FILE AND NO FILES SELECTED
02393  M01S00292.286l859 +++|          SA1    /COMSPFS/FISP

Seq #  *Modification Id* Act 
----------------------------+
02394  M01S00051.253l688 +++|          SA2    /COMSPFS/NFIS
02395  M01S00052.253l688 +++|          ZR     X1,CEL2     IF NO USER INDEX/FILE NAME SELECTIONS

Seq #  *Modification Id* Act 
----------------------------+
02396  M01S01267.ns22000 ---|          NZ     X2,CEL10    IF FILE LOADED

Seq #  *Modification Id* Act 
----------------------------+
02397  M01S00450.ns22000 +++|          ZR     X2,CEL10    IF ALL SPECIFIED FILES FOUND
02398  M00S01268.pfload  +++| CEL2     SA1    INCF

Seq #  *Modification Id* Act 
----------------------------+
02399  M01S01269.ns22000 ---|          ZR     X1,CEL3     IF NOT INCREMENTAL LOAD

Seq #  *Modification Id* Act 
----------------------------+
02400  M01S00451.ns22000 +++|          ZR     X1,CEL2.1   IF NOT INCREMENTAL LOAD

Seq #  *Modification Id* Act 
----------------------------+
02401  M01S01270.286l859 ---|          SA1    CIRD

Seq #  *Modification Id* Act 
----------------------------+
02402  M01S00293.286l859 +++|          SA1    CIFC
02403  M00S01271.pfload  +++|          ZR     X1,CEL10    IF END OF CATALOG IMAGE

Seq #  *Modification Id* Act 
----------------------------+
02404  M01S00452.ns22000 +++| CEL2.1   SA2    EOLF
02405  M01S00453.ns22000 +++|          ZR     X2,CEL3     IF END OF LOAD NOT REACHED
02406  M01S00454.ns22000 +++|          SA2    CPAR+/COMSPFS/CPNB
02407  M01S00455.ns22000 +++|          SB2    X2+
02408  M01S00456.ns22000 +++|          LE     B2,B1,CEL9  IF FILE COUNT ONE
02409  M01S00457.ns22000 +++| CEL2.2   RJ     SER         SKIP TO END OF RECORD

Seq #  *Modification Id* Act 
----------------------------+
02410  M02S00458.pfloa8  ---|          ZR     X1,CEL2.2   IF NOT EOF/EOI

Seq #  *Modification Id* Act 
----------------------------+
02411  M01S00001.pfloa8  +++|          PL     X1,CEL2.2   IF NOT EOF/EOI

Seq #  *Modification Id* Act 
----------------------------+
02412  M02S00459.pfloa14 ---|          EQ     CEL6        PROCESS EOF/EOI

Seq #  *Modification Id* Act 
----------------------------+
02413  M01S00001.pfloa14 +++|          EQ     CEL7        PROCESS EOF/EOI
02414  M00S01272.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
02415  M01S01273.ns22000 ---|*         PROCESS NEXT ARCHIVE FILE CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
02416  M01S00460.ns22000 +++|*         PROCESS NEXT ARCHIVE FILE CONTROL WORD.
02417  M00S01274.pfload  +++|
02418  M00S01275.pfload  +++| CEL3     RJ     RCW         READ ARCHIVE FILE CONTROL WORD
02419  M00S01276.pfload  +++|          SX6    X3-1

Seq #  *Modification Id* Act 
----------------------------+
02420  M01S01277.286l859 ---|          NZ     X7,CEL5     IF PARITY ERROR
02421  M01S01278.286l859 ---|          SA7    PECT        CLEAR PARITY ERROR COUNT

Seq #  *Modification Id* Act 
----------------------------+
02422  M01S00294.286l859 +++|          NZ     X7,CEL5     IF READ ERROR
02423  M00S01279.pfload  +++|          ZR     X6,CELX     IF CATALOG CONTROL WORD
02424  M00S01280.pfload  +++|          ZR     X3,CEL4     IF LABEL CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
02425  M01S01281.pfloa14 ---|          NG     X1,CEL6     IF EOF/EOI

Seq #  *Modification Id* Act 
----------------------------+
02426  M01S00002.pfloa14 +++|          NG     X1,CEL7     IF EOF/EOI
02427  M00S01282.pfload  +++|          NZ     X1,CEL3     IF EOR
02428  M00S01283.pfload  +++|          SA1    CWBF        CHECK FOR END OF LOAD
02429  M00S01284.pfload  +++|          SA2    ACEA
02430  M00S01285.pfload  +++|          BX6    X1-X2

Seq #  *Modification Id* Act 
----------------------------+
02431  M01S01286.pfloa14 ---|          ZR     X6,CEL11    IF END OF ARCHIVE FILE CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
02432  M01S00003.pfloa14 +++|          ZR     X6,CEL6     IF END OF ARCHIVE FILE CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
02433  M01S01287.ns22000 ---|          SX5    MSGO        SEND ARCHIVE FILE FORMAT ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
02434  M02S00461.286l859 ---|          SX5    MSGO        * PFLOAD - ARCHIVE FILE FORMAT ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
02435  M01S01288.286l859 ---|          RJ     SEM
02436  M00S01289.pfload  +++|          RJ     DUP         DROP UTILITY PROCESSOR
02437  M00S01290.pfload  +++|          RJ     CIN         CLEAR UTILITY INTERLOCK
02438  M00S01291.pfload  +++|          RJ     SER         SKIP TO END OF RECORD
02439  M00S01292.pfload  +++|          EQ     CEL3        GET NEXT CONTROL WORD
02440  M00S01293.pfload  +++|
02441  M00S01294.pfload  +++|*         PROCESS ARCHIVE FILE LABEL.
02442  M00S01295.pfload  +++|
02443  M00S01296.pfload  +++| CEL4     RJ     DUP         DROP UTILITY PROCESSOR
02444  M00S01297.pfload  +++|          RJ     CIN         CLEAR UTILITY INTERLOCK
02445  M00S01298.pfload  +++|          SX6    B1+         SET CONTROL WORD RE-USE FLAG

Seq #  *Modification Id* Act 
----------------------------+
02446  M01S01299.ns22000 ---|          SA6    RCWA

Seq #  *Modification Id* Act 
----------------------------+
02447  M01S00462.ns22000 +++|          SA6    RCWF
02448  M00S01300.pfload  +++|          RJ     PAL         PROCESS ARCHIVE LABEL
02449  M00S01301.pfload  +++|          ZR     X6,CEL8     IF NOT A BAD LABEL

Seq #  *Modification Id* Act 
----------------------------+
02450  M02S00053.pfloa19 ---|          SX0    B0+         SET NO LABEL INFORMATION
02451  M02S00054.pfloa19 ---|          RJ     PLP         PROCESS LABEL PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
02452  M01S00055.253l688 +++|          RJ     IFL         INITIALIZE OUTPUT FILE FOR FILE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
02453  M02S00023.286l859 ---|          SX5    MSGU        * ERROR IN ACHIVE FILE LABEL.*

Seq #  *Modification Id* Act 
----------------------------+
02454  M01S00295.286l859 +++|          SB2    ERAL        * ERROR IN ACHIVE FILE LABEL.*

Seq #  *Modification Id* Act 
----------------------------+
02455  M01S00024.pfloa19 +++|          RJ     SEM

Seq #  *Modification Id* Act 
----------------------------+
02456  M01S01302.ns22000 ---|          SX5    MSGO        SEND ARCHIVE FILE FORMAT ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
02457  M02S00463.286l859 ---|          SX5    MSGO        * PFLOAD - ARCHIVE FILE FORMAT ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
02458  M01S01303.286l859 ---|          RJ     SEM
02459  M00S01304.pfload  +++|          EQ     CEL3        GET NEXT CONTROL WORD
02460  M00S01305.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
02461  M01S01306.286l859 ---|*         PROCESS ARCHIVE FILE PARITY ERROR.

Seq #  *Modification Id* Act 
----------------------------+
02462  M01S00296.286l859 +++|*         PROCESS ARCHIVE FILE READ ERROR.
02463  M00S01307.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
02464  M01S01308.ns22000 ---| CEL5     SX5    MSGN        SEND TAPE PARITY ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
02465  M02S00464.286l859 ---| CEL5     SX5    MSGN        * PFLOAD - TAPE PARITY ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
02466  M01S01309.286l859 ---|          RJ     SEM
02467  M01S01310.286l859 ---|          RJ     DUP         DROP UTILITY PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
02468  M01S00297.286l859 +++| CEL5     RJ     DUP         DROP UTILITY PROCESSOR
02469  M00S01311.pfload  +++|          RJ     CIN         CLEAR UTILITY INTERLOCK
02470  M00S01312.pfload  +++|          RJ     SER         SKIP TO END OF RECORD

Seq #  *Modification Id* Act 
----------------------------+
02471  M01S01313.286l859 ---|          SA1    PECT        INCREMENT PARITY ERROR COUNT
02472  M01S01314.286l859 ---|          SX7    X1+1
02473  M01S01315.286l859 ---|          SX1    X1-PELM
02474  M01S01316.286l859 ---|          SA7    A1+
02475  M01S01317.286l859 ---|          NG     X1,CEL3     IF PARITY ERROR LIMIT NOT REACHED
02476  M01S01318.286l859 ---|          SX5    MSGR        * PFLOAD - EXCESSIVE PARITY ERRORS.*
02477  M01S01319.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
02478  M01S01320.286l859 ---|          EQ     ABT         ABORT

Seq #  *Modification Id* Act 
----------------------------+
02479  M01S00298.286l859 +++|          EQ     CEL3        GET NEXT CONTROL WORD
02480  M00S01321.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
02481  M01S00004.pfloa14 +++|*         PROCESS END OF ARCHIVE FILE CONTROL WORD.
02482  M01S00005.pfloa14 +++|
02483  M01S00006.pfloa14 +++| CEL6     RECALL TAPE
02484  M01S00007.pfloa14 +++|          SA1    X2+B1       REWIND BUFFER
02485  M01S00008.pfloa14 +++|          SX6    X1
02486  M01S00009.pfloa14 +++|          SA6    A1+B1
02487  M01S00010.pfloa14 +++|          SA6    A6+B1
02488  M01S00011.pfloa14 +++|          SX6    30B         CHECK FOR EOF/EOI ON ARCHIVE FILE
02489  M01S00012.pfloa14 +++|          SA1    X2
02490  M01S00013.pfloa14 +++|          BX7    X6*X1
02491  M01S00014.pfloa14 +++|          BX6    X7-X6
02492  M01S00015.pfloa14 +++|          ZR     X6,CEL7     IF ARCHIVE FILE AT EOF/EOI
02493  M01S00016.pfloa14 +++|          SKIPFF X2,B1,R     SKIP TO EOF
02494  M01S00017.pfloa14 +++|
02495  M00S01322.pfload  +++|*         PROCESS MULTIPLE FILE ARCHIVE OPTION.
02496  M00S01323.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
02497  M01S01324.pfloa14 ---| CEL6     SX6    X1+2
02498  M01S01325.pfloa14 ---|          ZR     X6,CEL9     IF AT EOI
02499  M01S01326.pfloa14 ---| CEL7     SA1    CPAR+/COMSPFS/CPNB  CHECK FILE COUNT

Seq #  *Modification Id* Act 
----------------------------+
02500  M01S00018.pfloa14 +++| CEL7     SA1    TAPE
02501  M01S00019.pfloa14 +++|          LX1    59-9
02502  M01S00020.pfloa14 +++|          NG     X1,CEL9     IF ARCHIVE FILE AT EOI
02503  M01S00021.pfloa14 +++|          SA1    CPAR+/COMSPFS/CPNB  CHECK FILE COUNT
02504  M00S01327.pfload  +++|          SB2    X1
02505  M00S01328.pfload  +++|          SX6    B2-B1
02506  M00S01329.pfload  +++|          LE     B2,B1,CEL9  IF NO MORE FILES TO PROCESS
02507  M00S01330.pfload  +++|          SA6    A1+         SET NEW FILE COUNT
02508  M00S01331.pfload  +++|          RJ     DUP         DROP UTILITY PROCESSOR
02509  M00S01332.pfload  +++|          RJ     CIN         CLEAR UTILITY INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
02510  M01S00299.286l859 +++|          RJ     PSF         PROCESS SORTED FILE OUTPUT FOR LAST FILE
02511  M00S01333.pfload  +++|          READCW TAPE,17B    INITIALIZE CONTROL WORD READ
02512  M00S01334.pfload  +++|          SX6    B0+         CLEAR CONTROL WORD STATUS WORD
02513  M00S01335.pfload  +++|          SA6    TAPE+CWSW
02514  M00S01336.pfload  +++|          RJ     PAL         PROCESS ARCHIVE LABEL
02515  M00S01337.pfload  +++|          ZR     X6,CEL8     IF NOT BAD LABEL

Seq #  *Modification Id* Act 
----------------------------+
02516  M02S00056.pfloa19 ---|          SX0    B0+         SET NO LABEL INFORMATION
02517  M02S00057.pfloa19 ---|          RJ     PLP         PROCESS LABEL PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
02518  M02S00025.286l859 ---|          SX5    MSGU        * ERROR IN ACHIVE FILE LABEL.*

Seq #  *Modification Id* Act 
----------------------------+
02519  M01S00300.286l859 +++|          SB2    ERAL        * ERROR IN ACHIVE FILE LABEL.*

Seq #  *Modification Id* Act 
----------------------------+
02520  M01S00026.pfloa19 +++|          RJ     SEM

Seq #  *Modification Id* Act 
----------------------------+
02521  M01S01338.ns22000 ---|          SX5    MSGO        SEND ARCHIVE FILE FORMAT ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
02522  M02S00465.286l859 ---|          SX5    MSGO        * PFLOAD - ARCHIVE FILE FORMAT ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
02523  M01S01339.286l859 ---|          RJ     SEM
02524  M00S01340.pfload  +++|          RJ     SER         SKIP TO END OF RECORD
02525  M00S01341.pfload  +++| CEL8     RJ     SCI         SKIP CATALOG IMAGE

Seq #  *Modification Id* Act 
----------------------------+
02526  M01S00058.253l688 +++|          RJ     IFL         INITIALIZE OUTPUT FILE FOR FILE PROCESSING
02527  M00S01342.pfload  +++|          EQ     CEL3        GET NEXT CONTROL WORD
02528  M00S01343.pfload  +++|
02529  M00S01344.pfload  +++|*         CHECK INCREMENTAL LOAD STATUS.
02530  M00S01345.pfload  +++|
02531  M00S01346.pfload  +++| CEL9     SA1    INCF
02532  M00S01347.pfload  +++|          ZR     X1,CEL10    IF NOT INCREMENTAL LOAD

Seq #  *Modification Id* Act 
----------------------------+
02533  M01S01348.286l859 ---|          SA1    CIRD

Seq #  *Modification Id* Act 
----------------------------+
02534  M01S00301.286l859 +++|          SA1    CIFC
02535  M00S01349.pfload  +++|          ZR     X1,CEL10    IF END OF CATALOG IMAGE

Seq #  *Modification Id* Act 
----------------------------+
02536  M01S00302.286l859 +++|          RJ     PSF         PROCESS SORTED FILE OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
02537  M01S00466.ns22000 +++|          SX6    B0+
02538  M01S00467.ns22000 +++|          SA6    EOLF        CLEAR END OF LOAD FLAG ON INCREMENTAL LOAD

Seq #  *Modification Id* Act 
----------------------------+
02539  M02S00468.286l859 ---|          SA6    DPCT        CLEAR DEVICE POSITION AND CATALOG TRACK

Seq #  *Modification Id* Act 
----------------------------+
02540  M01S00303.286l859 +++|          SA6    MXDC        CLEAR DEVICE POSITION AND CATALOG TRACK
02541  M01S00304.286l859 +++|          SX6    377B
02542  M01S00305.286l859 +++|          SA6    AFDM        RESET ARCHIVE FILE DUMP MASK
02543  M00S01350.pfload  +++|          RJ     ART         ADVANCE INCREMENTAL LOAD
02544  M00S01351.pfload  +++|          ZR     X6,CEL8     IF NOT END OF INCREMENTAL LOAD
02545  M00S01352.pfload  +++|
02546  M00S01353.pfload  +++|*         SET END OF LOAD STATUS.
02547  M00S01354.pfload  +++|
02548  M00S01355.pfload  +++| CEL10    SX6    B1          SET END OF LOAD STATUS

Seq #  *Modification Id* Act 
----------------------------+
02549  M01S01356.ns22000 ---|          EQ     CELX        EXIT

Seq #  *Modification Id* Act 
----------------------------+
02550  M01S00469.ns22000 +++|          EQ     CELX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
02551  M01S01357.pfloa14 ---|
02552  M01S01358.pfloa14 ---|*         PROCESS END OF ARCHIVE FILE CONTROL WORD.
02553  M01S01359.pfloa14 ---|
02554  M01S01360.pfloa14 ---| CEL11    RECALL TAPE
02555  M01S01361.pfloa14 ---|          SA1    X2+B1       REWIND BUFFER
02556  M01S01362.pfloa14 ---|          SX6    X1
02557  M01S01363.pfloa14 ---|          SA6    A1+B1
02558  M01S01364.pfloa14 ---|          SA6    A6+B1
02559  M01S01365.pfloa14 ---|          SA1    CPAR+/COMSPFS/CPNB
02560  M01S01366.pfloa14 ---|          SX7    X1-2
02561  M01S01367.pfloa14 ---|          NG     X7,CEL9     IF NO MORE FILES TO PROCESS
02562  M01S01368.pfloa14 ---|          SX6    30B         CHECK FOR EOF/EOI ON ARCHIVE FILE
02563  M01S01369.pfloa14 ---|          SA1    X2
02564  M01S01370.pfloa14 ---|          BX7    X6*X1
02565  M01S01371.pfloa14 ---|          BX6    X7-X6
02566  M01S01372.pfloa14 ---|          LX1    59-10
02567  M01S01373.pfloa14 ---|          ZR     X6,CEL12    IF AT EOF/EOI
02568  M01S01374.pfloa14 ---|          SKIPFF X2,B1,R     SKIP TO EOF
02569  M01S01375.pfloa14 ---|          SA1    X2
02570  M01S01376.pfloa14 ---|          LX1    59-10
02571  M01S01377.pfloa14 ---| CEL12    PL     X1,CEL7     IF NOT EOI
02572  M01S01378.pfloa14 ---|          EQ     CEL9        CHECK INCREMENTAL LOAD STATUS

Seq #  *Modification Id* Act 
----------------------------+
02573  M01S00470.ns22000 +++| CIN      SPACE  4,15
02574  M01S00471.ns22000 +++|**        CIN - CLEAR PF UTILITY INTERLOCK.
02575  M01S00472.ns22000 +++|*
02576  M01S00473.ns22000 +++|*         ENTRY  (UIFL) = 0 IF UTILITY INTERLOCK NOT SET.
02577  M01S00474.ns22000 +++|*                       = 1 IF UTILITY INTERLOCK SET.
02578  M01S00475.ns22000 +++|*                (MAEQ) = EQUIPMENT TO CLEAR INTERLOCK ON.
02579  M01S00476.ns22000 +++|*
02580  M01S00477.ns22000 +++|*         EXIT   (UIFL) = 0.
02581  M01S00478.ns22000 +++|*                *PFU* CALLED TO CLEAR UTILITY INTERLOCK IF NOT ALREADY
02582  M01S00479.ns22000 +++|*                CLEAR.
02583  M01S00480.ns22000 +++|*
02584  M01S00481.ns22000 +++|*         USES   X - 1, 2, 3, 6.
02585  M01S00482.ns22000 +++|*                A - 1, 2, 3, 6.
02586  M01S00483.ns22000 +++|*
02587  M01S00484.ns22000 +++|*         MACROS CALLPFU, MESSAGE, MOVE.
02588  M01S00485.ns22000 +++|
02589  M01S00486.ns22000 +++|
02590  M01S00487.ns22000 +++| CIN      SUBR               ENTRY/EXIT
02591  M01S00488.ns22000 +++|          SA1    UIFL        CHECK PF UTILTIY INTERLOCK FLAG
02592  M01S00489.ns22000 +++|          SA2    MAEQ        SET MASTER DEVICE EST ORDINAL
02593  M01S00490.ns22000 +++|          ZR     X1,CINX     IF UTILITY INTERLOCK ALREADY CLEAR
02594  M01S00491.ns22000 +++|          SX1    UIFL        SET INTERLOCK FLAG ADDRESS
02595  M01S00492.ns22000 +++|          LX2    48
02596  M01S00493.ns22000 +++|          BX6    X2+X1

Seq #  *Modification Id* Act 
----------------------------+
02597  M02S00494.241l630 ---|          SA3    IDSA+/COMSPFS/ADE1  K DISPLAY MESSAGE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
02598  M01S00024.241l630 +++|          SA3    IDSA+/COMSPFS/ADM2  K DISPLAY MESSAGE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
02599  M01S00495.ns22000 +++|          SA6    UIFT+FTPM
02600  M01S00496.ns22000 +++|          MOVE   3,MSGK,X3   * CLEARING UTILITY INTERLOCK.*
02601  M01S00497.ns22000 +++|          MESSAGE MSGK,2,R

Seq #  *Modification Id* Act 
----------------------------+
02602  M02S00498.253l688 ---|          CALLPFU UIFT,CTCU,R CLEAR PF UTILITY INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
02603  M01S00059.253l688 +++|          CALLPFU  UIFT,CTCU,R  CLEAR PF UTILITY INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
02604  M02S00499.241l630 ---|          SA3    IDSA+/COMSPFS/ADE1  K DISPLAY MESSAGE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
02605  M01S00025.241l630 +++|          SA3    IDSA+/COMSPFS/ADM2  K DISPLAY MESSAGE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
02606  M01S00500.ns22000 +++|          MOVE   3,BLNK,X3   CLEAR MESSAGES
02607  M01S00501.ns22000 +++|          MESSAGE (=C**),2,R
02608  M01S00502.ns22000 +++|          EQ     CINX        RETURN
02609  M01S00503.ns22000 +++| CSP      SPACE  4,20
02610  M01S00504.ns22000 +++|**        CSP - CHECK SELECTION PARAMETERS.
02611  M01S00505.ns22000 +++|*
02612  M01S00506.ns22000 +++|*         ENTRY  (CPAR) = CONVERTED PARAMETER ARRAY.
02613  M01S00507.ns22000 +++|*                (TCBF) = CATALOG ENTRY FOR CURRENT FILE.

Seq #  *Modification Id* Act 
----------------------------+
02614  M02S00508.286l859 ---|*                (FSAD) = ALTERNATE DEVICE SELECTION PARAMETER.
02615  M02S00509.286l859 ---|*                (FSSA) = SECONDARY ALTERNATE DEVICE SELECTION
02616  M02S00510.286l859 ---|*                         PARAMETER.

Seq #  *Modification Id* Act 
----------------------------+
02617  M02S00511.ns2697  ---|*                (TMDD) = TABLE OF MASTER DEVICE DESCRIPTIONS.

Seq #  *Modification Id* Act 
----------------------------+
02618  M01S00512.ns22000 +++|*
02619  M01S00513.ns22000 +++|*         EXIT   (X6) = 0 IF FILE NOT TO BE LOADED.

Seq #  *Modification Id* Act 
----------------------------+
02620  M02S00514.ns2697  ---|*                     = 1 IF FILE TO BE LOADED.

Seq #  *Modification Id* Act 
----------------------------+
02621  M01S00202.ns2697  +++|*                (X6) .NE. 0 IF FILE TO BE LOADED.
02622  M01S00203.ns2697  +++|*                DESTINATION USER INDEX SET IN *TCBF* CATALOG ENTRY IF
02623  M01S00204.ns2697  +++|*                  SPECIFIED.

Seq #  *Modification Id* Act 
----------------------------+
02624  M01S00515.ns22000 +++|*
02625  M01S00516.ns22000 +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
02626  M02S00517.ns2697  ---|*                A - 1, 2, 3, 4.

Seq #  *Modification Id* Act 
----------------------------+
02627  M01S00205.ns2697  +++|*                A - 1, 2, 3, 4, 6, 7.
02628  M01S00206.ns2697  +++|*                B - 2, 4.

Seq #  *Modification Id* Act 
----------------------------+
02629  M01S00518.ns22000 +++|*
02630  M01S00519.ns22000 +++|*         CALLS  CSC.
02631  M01S00520.ns22000 +++|
02632  M01S00521.ns22000 +++|
02633  M01S00522.ns22000 +++| CSP      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
02634  M01S00207.ns2697  +++|
02635  M01S00208.ns2697  +++|*         CHECK SELECTION CRITERIA.
02636  M01S00209.ns2697  +++|

Seq #  *Modification Id* Act 
----------------------------+
02637  M01S00523.ns22000 +++|          SB4    TCBF        SET PFC ADDRESS
02638  M01S00524.ns22000 +++|          RJ     CSC         CHECK SELECTION CRITERIA
02639  M01S00525.ns22000 +++|          ZR     X6,CSPX     IF FILE NOT TO BE LOADED

Seq #  *Modification Id* Act 
----------------------------+
02640  M02S00526.ns2697  ---|          SX7    B6+         SAVE ADDRESS OF TABLE ENTRY
02641  M02S00527.ns2697  ---|          SA7    SFNA

Seq #  *Modification Id* Act 
----------------------------+
02642  M01S00210.ns2697  +++|          ZR     B6,CSP2     IF NO FILE NAME SELECTION
02643  M01S00211.ns2697  +++|          SA1    CPAR+/COMSPFS/CPOP
02644  M01S00212.ns2697  +++|          SA2    CPAR+/COMSPFS/CPNB
02645  M01S00213.ns2697  +++|          SA3    /COMSPFS/NFIS
02646  M01S00214.ns2697  +++|          SA4    B6+         READ FILE NAME ENTRY
02647  M01S00215.ns2697  +++|          SX6    B1
02648  M01S00216.ns2697  +++|          LX1    59-52
02649  M01S00217.ns2697  +++|          SB4    X2
02650  M01S00218.ns2697  +++|          IX7    X3-X6       DECREMENT FILE SELECTION COUNT
02651  M01S00219.ns2697  +++|          PL     X1,CSP1     IF REPLACE OPTION NOT SELECTED
02652  M01S00220.ns2697  +++|          GT     B4,B1,CSP2  IF NOT LAST ARCHIVE FILE
02653  M01S00221.ns2697  +++| CSP1     LX6    17-0
02654  M01S00222.ns2697  +++|          SA7    A3          UPDATE FILE SELECTION COUNT
02655  M01S00223.ns2697  +++|          BX6    X6+X4       SET FILE FOUND FLAG
02656  M01S00224.ns2697  +++|          SA6    B6          WRITE FILE NAME ENTRY

Seq #  *Modification Id* Act 
----------------------------+
02657  M01S00528.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
02658  M02S00529.ns2697  ---|*         CHECK FOR ALTERNATE DEVICE LOAD.

Seq #  *Modification Id* Act 
----------------------------+
02659  M01S00225.ns2697  +++|*         PROCESS DESTINATION USER INDEX AND DETERMINE IF FILE-S MASTER
02660  M01S00226.ns2697  +++|*         DEVICE SELECTED FOR LOAD.

Seq #  *Modification Id* Act 
----------------------------+
02661  M01S00530.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
02662  M01S00227.ns2697  +++| CSP2     SA1    CPAR+/COMSPFS/CPDI
02663  M01S00228.ns2697  +++|          SA2    TCBF+FCUI
02664  M01S00229.ns2697  +++|          SA3    MASK
02665  M01S00230.ns2697  +++|          MX7    -3
02666  M01S00231.ns2697  +++|          MX0    -1
02667  M01S00232.ns2697  +++|          ZR     X1,CSP3     IF DESTINATION USER INDEX NOT SPECIFIED
02668  M01S00233.ns2697  +++|          MX6    42
02669  M01S00234.ns2697  +++|          BX6    X6*X2
02670  M01S00235.ns2697  +++|          BX6    X6+X1       SET DESTINATION INDEX IN CATALOG ENTRY
02671  M01S00236.ns2697  +++|          BX2    X1
02672  M01S00237.ns2697  +++|          SA6    A2+
02673  M01S00238.ns2697  +++| CSP3     BX2    -X7*X2      USER INDEX BITS 0 - 2
02674  M01S00239.ns2697  +++|          SB2    X2
02675  M01S00240.ns2697  +++|          AX6    X3,B2       SELECT MASK BIT
02676  M01S00241.ns2697  +++|          BX6    -X0*X6
02677  M01S00242.ns2697  +++|          ZR     X6,CSPX     IF USER INDEX NOT TO BE LOADED
02678  M01S00243.ns2697  +++|

Seq #  *Modification Id* Act 
----------------------------+
02679  M02S00244.286l859 ---|*         CHECK RESIDENCY DEVICE REQUIREMENTS.

Seq #  *Modification Id* Act 
----------------------------+
02680  M01S00306.286l859 +++|*         CHECK TRUE DEVICE SELECTION.

Seq #  *Modification Id* Act 
----------------------------+
02681  M01S00245.ns2697  +++|

Seq #  *Modification Id* Act 
----------------------------+
02682  M02S00531.286l859 ---|          SA1    FSAD

Seq #  *Modification Id* Act 
----------------------------+
02683  M03S00532.286l859 ---|          NZ     X1,CSP2     IF ALTERNATE DEVICE

Seq #  *Modification Id* Act 
----------------------------+
02684  M02S00246.286l859 ---|          NZ     X1,CSP4     IF ALTERNATE DEVICE

Seq #  *Modification Id* Act 
----------------------------+
02685  M02S00533.286l859 ---|          SA1    FSSA
02686  M02S00534.286l859 ---|          ZR     X1,CSPX     IF NO SECONDARY ALTERNATE DEVICE

Seq #  *Modification Id* Act 
----------------------------+
02687  M03S00535.286l859 ---|          SA2    CPAR+/COMSPFS/CPDI
02688  M03S00536.286l859 ---|          MX0    -3
02689  M03S00537.286l859 ---|          NZ     X2,CSP1     IF DESTINATION INDEX SPECIFIED
02690  M03S00538.286l859 ---|          SA2    TCBF+FCUI   GET USER INDEX OF FILE
02691  M03S00539.286l859 ---| CSP1     BX3    -X0*X2      GET MASTER DEVICE NUMBER
02692  M03S00540.286l859 ---|          SA2    TMDD+X3

Seq #  *Modification Id* Act 
----------------------------+
02693  M02S00247.286l859 ---|          SA2    TMDD+X2

Proceed to Part 3