Deck PFAM Part 001

12 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01251  M01S00915.286l859 ---|          EQ     PDB4        SKIP TAPE ERROR
01252  M01S00916.286l859 ---|
01253  M00S00917.pfam    +++| PDB7     IX7    X1-X5
Line S00918 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01254  M01S00918.286l859 ---|          NG     X7,PDB8     IF SYSTEM SECTOR TOO LONG
Line S00268 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01255  M01S00268.286l859 +++|          NG     X7,PDB3     IF SYSTEM SECTOR TOO LONG
01256  M00S00919.pfam    +++|          SA7    A1          UPDATE REMAINING SYSTEM SECTOR LENGTH
01257  M00S00920.pfam    +++|          EQ     PDB1        BYPASS SYSTEM SECTOR
Line S00921 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01258  M01S00921.286l859 ---|
01259  M01S00922.286l859 ---| PDB8     MESSAGE  ERSL      * PFUUUUU - SYSTEM SECTOR TOO LONG.*
01260  M01S00923.286l859 ---|          EQ     PDB4        SKIP TAPE ERROR
01261  M00S00924.pfam    +++|
01262  M00S00925.pfam    +++|*         WRITE DATA.
01263  M00S00926.pfam    +++|
01264  M00S00927.pfam    +++| PDB9     WRITEW FILEA,DBUF,X5
01265  M00S00928.pfam    +++|
01266  M00S00929.pfam    +++|*         PROCESS DATA MARK.
01267  M00S00930.pfam    +++|
01268  M00S00931.pfam    +++| PDB10    ZR     X0,PDB1     IF NO DATA MARK
01269  M00S00932.pfam    +++|          SX2    X0-4
01270  M00S00933.pfam    +++|          ZR     X2,PDB1     IF SYSTEM SECTOR
01271  M00S00934.pfam    +++|          SX0    X0-1
01272  M00S00935.pfam    +++|          NZ     X0,PDB11    IF END OF FILE
01273  M00S00936.pfam    +++|          WRITER FILEA,R
01274  M00S00937.pfam    +++|          EQ     PDB1        READ NEXT CONTROL WORD
01275  M00S00938.pfam    +++|
01276  M00S00939.pfam    +++| PDB11    WRITEF FILEA,R
01277  M00S00940.pfam    +++|          SX6    B1+         SET EOF FLAG
01278  M00S00941.pfam    +++|          SA6    PDBA
01279  M00S00942.pfam    +++|          EQ     PDB1        READ NEXT CONTROL WORD
01280  M00S00943.pfam    +++|
01281  M00S00944.pfam    +++|*         PROCESS FILES WITH NO EOF.
01282  M00S00945.pfam    +++|
01283  M00S00946.pfam    +++| PDB12    SETFS  FILEA,0     CLEAR SPECIAL FILE STATUS
01284  M00S00947.pfam    +++|          SA1    PDBA        CHECK EOF FLAG
01285  M00S00948.pfam    +++|          NZ     X1,PDB13    IF EOF FLAG SET
01286  M00S00949.pfam    +++|          SA1    PDBC        CHECK LAST DATA MARK
01287  M00S00950.pfam    +++|          NZ     X1,PDB13    IF EOR, RETURN
01288  M00S00951.pfam    +++|          WRITE  FILEA,R
01289  M00S00952.pfam    +++|          SA1    FILEA+2     CHECK FOR EMPTY BUFFER
01290  M00S00953.pfam    +++|          SA2    A1+B1
01291  M00S00954.pfam    +++|          IX7    X1-X2       IN - OUT
01292  M00S00955.pfam    +++|          ZR     X7,PDB13    IF BUFFER FLUSHED, RETURN
01293  M00S00956.pfam    +++|          WRITER FILEA,R
01294  M00S00957.pfam    +++| PDB13    BX6    X6-X6       INDICATE NO ERROR
01295  M00S00958.pfam    +++|          EQ     PDBX        RETURN
01296  M00S00959.pfam    +++|
01297  M00S00960.pfam    +++|
01298  M00S00961.pfam    +++| PDBA     CON    0           EOF FLAG
01299  M00S00962.pfam    +++| PDBC     CON    0           LAST DATA MARK
01300  M00S00963.pfam    +++| PDBD     CON    0           REMAINING SYSTEM SECTOR LENGTH
01301  M00S00964.pfam    +++| PPB      SPACE  4,20
01302  M00S00965.pfam    +++|**        PPB - PROCESS PERMIT BLOCK (*PFCOPY*).
01303  M00S00966.pfam    +++|*
01304  M00S00967.pfam    +++|*         ENTRY  CATALOG BLOCK PROCESSED.
01305  M00S00968.pfam    +++|*
01306  M00S00969.pfam    +++|*         EXIT   (X6) .NE. 0, IF PARITY ERROR.
01307  M00S00970.pfam    +++|*                PERMIT BLOCK PROCESSED.
01308  M00S00971.pfam    +++|*                NON-PERMIT CONTROL WORD READ.
01309  M00S00972.pfam    +++|*                (X3) = CONTROL WORD SUB-TYPE.
01310  M00S00973.pfam    +++|*                     = -1, IF EOR WAS ENCOUNTERED.
01311  M00S00974.pfam    +++|*
01312  M00S00975.pfam    +++|*         USES   X - 0, 1, 4, 6.
01313  M00S00976.pfam    +++|*                A - 1, 6.
01314  M00S00977.pfam    +++|*
01315  M00S00978.pfam    +++|*         CALLS  PPE, RCW.
01316  M00S00979.pfam    +++|*
01317  M00S00980.pfam    +++|*         MACROS READW, RECALL, WRITER, WRITEW.
01318  M00S00981.pfam    +++|
01319  M00S00982.pfam    +++|
01320  M00S00983.pfam    +++| PPB      SUBR               ENTRY/EXIT
01321  M00S00984.pfam    +++|          RECALL F
01322  M00S00985.pfam    +++|          SX6    B0+         CLEAR PERMIT FLAG
01323  M00S00986.pfam    +++|          SA6    PPBA
01324  M00S00987.pfam    +++|
01325  M00S00988.pfam    +++|*         CHECK IF PERMIT BLOCK.
01326  M00S00989.pfam    +++|
01327  M00S00990.pfam    +++| PPB1     RJ     RCW         READ CONTROL WORD
01328  M00S00991.pfam    +++|          BX0    X3
01329  M00S00992.pfam    +++|          SX4    X2-2
01330  M00S00993.pfam    +++|          ZR     X4,PPB3     IF PERMIT BLOCK
01331  M00S00994.pfam    +++|          SA1    PPBA
01332  M00S00995.pfam    +++|          NZ     X1,PPB2     IF PERMITS EXIST
01333  M00S00996.pfam    +++|
01334  M00S00997.pfam    +++|*         WRITE ZERO LENGTH RECORD IF PREFACE RECORDS REQUESTED.
01335  M00S00998.pfam    +++|
01336  M00S00999.pfam    +++|          SA1    CPAR+/COMSPFS/CPOP
01337  M00S01000.pfam    +++|          LX1    59-50
01338  M00S01001.pfam    +++|          PL     X1,PPB2     IF NO PREFACE RECORD
01339  M00S01002.pfam    +++|          WRITER FILEA,R
01340  M00S01003.pfam    +++| PPB2     BX6    X6-X6       INDICATE NO ERROR
01341  M00S01004.pfam    +++|          EQ     PPBX        RETURN
01342  M00S01005.pfam    +++|
01343  M00S01006.pfam    +++|*         READ PERMIT INFORMATION.
01344  M00S01007.pfam    +++|
01345  M00S01008.pfam    +++| PPB3     ZR     X5,PPB1     IF ZERO WORD COUNT
01346  M00S01009.pfam    +++|          SX6    B1          SET PERMIT FLAG
01347  M00S01010.pfam    +++|          SA6    PPBA
01348  M00S01011.pfam    +++|          READW  TAPE,DBUF,X5 READ PERMIT BLOCK
01349  M00S01012.pfam    +++|          RJ     PPE         PROCESS PARITY ERROR
01350  M00S01013.pfam    +++|          NZ     X6,PPBX     IF PARITY ERROR
01351  M00S01014.pfam    +++|
01352  M00S01015.pfam    +++|*         WRITE PERMIT PREFACE RECORD.
01353  M00S01016.pfam    +++|
01354  M00S01017.pfam    +++|          SA1    CPAR+/COMSPFS/CPOP
01355  M00S01018.pfam    +++|          LX1    59-50
01356  M00S01019.pfam    +++|          PL     X1,PPB1     IF NO PREFACE RECORD REQUESTED
01357  M00S01020.pfam    +++|          WRITEW FILEA,DBUF,X5
01358  M00S01021.pfam    +++|          ZR     X0,PPB1     IF NO DATA MARK
01359  M00S01022.pfam    +++|          WRITER FILEA,R
01360  M00S01023.pfam    +++|          EQ     PPB1        READ NEXT CONTROL WORD
01361  M00S01024.pfam    +++|
01362  M00S01025.pfam    +++|
01363  M00S01026.pfam    +++| PPBA     BSSZ   1           PERMIT FLAG
01364  M00S01027.pfam    +++| RCB      SPACE  4,20
01365  M00S01028.pfam    +++|**        RCB - *PFRES* PROCESS CATALOG BLOCK.
01366  M00S01029.pfam    +++|*
01367  M00S01030.pfam    +++|*         ENTRY  (X3) = CATALOG BLOCK CONTROL WORD SUB-TYPE CODE.
01368  M00S01031.pfam    +++|*                (X5) = CATALOG BLOCK WORD COUNT.
01369  M00S01032.pfam    +++|*
01370  M00S01033.pfam    +++|*         EXIT   (X6) = 0, IF FILE IS TO BE PROCESSED.
01371  M00S01034.pfam    +++|*                (CATH) = CATALOG ENTRY FOR FILE.
01372  M00S01035.pfam    +++|*                TO *ABT* IF INCORRECT CATALOG SIZE.
01373  M00S01036.pfam    +++|*                TO *TER* IF FILE SKIPPED AND NO MORE REQUESTS.
01374  M00S01037.pfam    +++|*
Line S01038 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01375  M01S01038.ns2673  ---|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
01376  M01S01039.ns2673  ---|*                A - 1, 2, 3, 4, 6.
Line S00021 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01377  M01S00021.ns2673  +++|*         USES   X - 0, 1, 2, 5, 6.
Line S00022 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01378  M02S00022.286l859 ---|*                A - 1, 6.
Line S00269 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01379  M01S00269.286l859 +++|*                A - 1, 5, 6.
01380  M01S00270.286l859 +++|*                B - 2.
01381  M00S01040.pfam    +++|*
Line S01041 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01382  M01S01041.ns2673  ---|*         CALLS  ALD, APD, CAR, CSR, DFN, PPE, SEM, SER, SSR, VCE.
Line S00023 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01383  M02S00023.286l859 ---|*         CALLS  ALD, APD, CAR, CSR, DFN, PPE, SEM, SER, SMP, SSR, VCE.
Line S00271 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01384  M01S00271.286l859 +++|*         CALLS  ALD, APD, CAR, CSR, DFN, PPE, SEM, SRE, SSR, VCE.
01385  M00S01042.pfam    +++|*
Line S01043 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01386  M01S01043.286l859 ---|*         MACROS EDITS, MESSAGE, RECALL, RETURN, WRITER, WRITEW.
Line S00272 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01387  M01S00272.286l859 +++|*         MACROS RECALL, RETURN, WRITER, WRITEW.
01388  M00S01044.pfam    +++|
01389  M00S01045.pfam    +++|
01390  M00S01046.pfam    +++| RCB      SUBR               ENTRY/EXIT
01391  M00S01047.pfam    +++|          SX1    X5-NWCE
01392  M00S01048.pfam    +++|          ZR     X1,RCB1     IF CORRECT SIZE CATALOG ENTRY
Line S01049 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01393  M01S01049.286l859 ---|          MESSAGE  ERIC      * PFRES - INCORRECT CATALOG SIZE.*
Line S00273 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01394  M01S00273.286l859 +++|          SB2    ERIC        * INCORRECT CATALOG SIZE.*
01395  M00S01050.pfam    +++|          EQ     ABT         ABORT
01396  M00S01051.pfam    +++|
01397  M00S01052.pfam    +++| RCB1     SX0    X3          SAVE *PFC ONLY* STATUS
Line S01053 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01398  M01S01053.286l859 ---|          BX6    X6-X6       CLEAR FILE NAME FOR ERROR MESSAGES
01399  M01S01054.286l859 ---|          SA6    MPFN
01400  M00S01055.pfam    +++|          READW  TAPE,CATH,X5  READ CATALOG ENTRY
01401  M00S01056.pfam    +++|          RJ     PPE         PROCESS PARITY ERROR
01402  M00S01057.pfam    +++|          NZ     X6,RCB3     IF PARITY ERROR ON CATALOG READ
01403  M00S01058.pfam    +++|          NZ     X0,RCB4     IF NOT *PFC ONLY* FILE
01404  M00S01059.pfam    +++|
01405  M00S01060.pfam    +++|*         SKIP FILE.
01406  M00S01061.pfam    +++|
01407  M00S01062.pfam    +++| RCB2     SA1    CATH        SET FILE NAME AND USER INDEX
Line S01063 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01408  M01S01063.286l859 ---|          SX2    MSSK        * SKIPPING ...*
01409  M01S01064.286l859 ---|          RJ     DFN
Line S00274 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01410  M01S00274.286l859 +++|          SA2    MSSK        *SKIPPING ...*
01411  M01S00275.286l859 +++|          RJ     DFN         DISPLAY MESSAGE
01412  M00S01065.pfam    +++|          RJ     SER         SKIP TO EOR
01413  M00S01066.pfam    +++|          RJ     CAR         CHECK FOR ADDITIONAL STAGE REQUESTS
01414  M00S01067.pfam    +++|          ZR     X6,TER      IF NO REQUESTS REMAIN TO BE PROCESSED
01415  M00S01068.pfam    +++| RCB3     SX6    B1          INDICATE THAT FILE IS NOT TO BE PROCESSED
01416  M00S01069.pfam    +++|          EQ     RCBX        RETURN
01417  M00S01070.pfam    +++|
01418  M00S01071.pfam    +++|*         CHECK IF FILE IS TO BE STAGED.
01419  M00S01072.pfam    +++|
01420  M00S01073.pfam    +++| RCB4     RJ     CSR         CHECK FOR STAGE REQUEST FOR THIS FILE
01421  M00S01074.pfam    +++|          ZR     X6,RCB2     IF NO STAGE REQUEST FOR THIS FILE
Line S01075 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01422  M01S01075.ns2673  ---|          SA1    X6+2        SET FILE NAME AND USER INDEX FOR MESSAGES
01423  M01S01076.ns2673  ---|          MX0    42
01424  M01S01077.ns2673  ---|          BX7    X0*X1
01425  M01S01078.ns2673  ---|          SA7    MPFN
01426  M01S01079.ns2673  ---|          BX7    -X0*X1
01427  M01S01080.ns2673  ---|          SA7    MPUI
Line S00024 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01428  M02S00024.286l859 ---|          BX5    X6
01429  M02S00025.286l859 ---|          RJ     SMP         SET MESSAGE PARAMETERS
01430  M00S01081.pfam    +++|          RJ     VCE         VERIFY CATALOG ENTRY FIELDS
01431  M00S01082.pfam    +++|          NZ     X6,RCB2     IF ACTIVE PFC DOES NOT MATCH PFC ON TAPE
01432  M00S01083.pfam    +++|
01433  M00S01084.pfam    +++|*         SET UP TO STAGE FILE.
01434  M00S01085.pfam    +++|
Line S00276 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01435  M01S00276.286l859 +++|          SX6    1
01436  M01S00277.286l859 +++|          SA6    FPRF        SET FILE PROCESSING FLAG
01437  M00S01086.pfam    +++|          RJ     SSR         SETUP *PFM* SPECIAL REQUEST BLOCK
01438  M00S01087.pfam    +++|          SA1    CATH+FCBS
01439  M00S01088.pfam    +++|          LX1    59-11
01440  M00S01089.pfam    +++|          PL     X1,RCB5     IF INDIRECT ACCESS FILE
01441  M00S01090.pfam    +++|          RJ     APD         ASSIGN PERMANENT FILE DEVICE
01442  M00S01091.pfam    +++|          ZR     X6,RCB7     IF DEVICE ASSIGNED
01443  M00S01092.pfam    +++|          EQ     RCB6        PROCESS NO DEVICE FOUND
01444  M00S01093.pfam    +++|
01445  M00S01094.pfam    +++| RCB5     RJ     ALD         ASSIGN LOCAL FILE DEVICE
01446  M00S01095.pfam    +++|          ZR     X6,RCB7     IF DEVICE ASSIGNED
Line S01096 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01447  M01S01096.286l859 ---| RCB6     SX6    B1+         FORCE ERROR LOG MESSAGE
01448  M01S01097.286l859 ---|          SA6    ELFG
Line S01098 Modification History
M01 (Removed by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01449  M02S01098.286l859 ---|          EDITS  MSFN,ERND   * PFRES - NO DEVICE FOR FILE.*
Line S00026 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01450  M02S00026.286l859 ---|          EDITS  MSFF,ERND   * PFRES - NO DEVICE FOR FILE.*
Line S01099 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01451  M01S01099.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
Line S00278 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01452  M01S00278.286l859 +++| RCB6     SA5    STRA
01453  M01S00279.286l859 +++|          SB2    ERRA        * NO DEVICE FOR FILE ACCESS LEVEL ...*
01454  M01S00280.286l859 +++|          RJ     SRE         SEND ERROR MESSAGE
01455  M00S01100.pfam    +++|          EQ     RCB2        SKIP FILE
01456  M00S01101.pfam    +++|
01457  M00S01102.pfam    +++|*         SET *RESTORING FN UI* MESSAGE.
01458  M00S01103.pfam    +++|
01459  M00S01104.pfam    +++| RCB7     SA1    STRA        SET FILE NAME AND USER INDEX
01460  M00S01105.pfam    +++|          SA1    X1+2
Line S01106 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01461  M01S01106.286l859 ---|          SX2    MSRS        * RESTORING ...*
Line S00281 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01462  M01S00281.286l859 +++|          SA2    MSRS        *RESTORING ...*
01463  M00S01107.pfam    +++|          RJ     DFN         DISPLAY MESSAGE
01464  M00S01108.pfam    +++|          BX6    X6-X6       INDICATE THAT FILE IS TO BE PROCESSED
01465  M00S01109.pfam    +++|          EQ     RCBX        RETURN
01466  M00S01110.pfam    +++| RCW      SPACE  4,25
01467  M00S01111.pfam    +++|**        RCW - READ CONTROL WORD.
Line S01112 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01468  M01S01112.286l859 ---|*
01469  M01S01113.286l859 ---|*         ENTRY  (MPFN) = 0 IF NO FILE BEING PROCESSED.
01470  M01S01114.286l859 ---|*                (MPFN) = FILE NAME IF FILE BEING PROCESSED.
01471  M01S01115.286l859 ---|*                (MPUI) = USER INDEX IF FILE BEING PROCESSED.
01472  M00S01116.pfam    +++|*
01473  M00S01117.pfam    +++|*         EXIT   (X2) = CONTROL WORD TYPE.
01474  M00S01118.pfam    +++|*                (X3) = CONTROL WORD SUB-TYPE.
01475  M00S01119.pfam    +++|*                     = -1, IF EOR.
01476  M00S01120.pfam    +++|*                (DBUF) = CONTROL WORD.
01477  M00S01121.pfam    +++|*                (X5) = WORD COUNT.
Line S01122 Modification History
M01 (Removed by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01478  M01S01122.pfam5   ---|*                TO *ABT* IF PREMATURE END OF FILE DETECTED.
01479  M00S01123.pfam    +++|*                TO *EAF* IF END OF DUMP CONTROL WORD.
01480  M00S01124.pfam    +++|*                TO *CUP* IF PARITY ERROR.
Line S01125 Modification History
M01 (Removed by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01481  M01S01125.pfam5   ---|*                ABORT IF EOF DETECTED BEFORE END OF DUMP CONTROL WORD.
Line S00034 Modification History
M01 (Added by) pfam5
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01482  M02S00034.286l859 ---|*                TO *PPF* IF EOF BEFORE END OF DUMP CONTROL WORD.
Line S00282 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01483  M01S00282.286l859 +++|*                TO *ABT* IF EOF BEFORE END OF DUMP CONTROL WORD.
01484  M00S01126.pfam    +++|*
01485  M00S01127.pfam    +++|*         USES   X - 0, 1, 2, 3, 5.
01486  M00S01128.pfam    +++|*                A - 1.
Line S00283 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01487  M01S00283.286l859 +++|*                B - 2.
01488  M00S01129.pfam    +++|*
Line S01130 Modification History
M01 (Removed by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01489  M01S01130.pfam5   ---|*         CALLS  ABT, EAF, CUP, PPE, SEM.
Line S00035 Modification History
M01 (Added by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01490  M01S00035.pfam5   +++|*         CALLS  PPE.
01491  M00S01131.pfam    +++|*
01492  M00S01132.pfam    +++|*         MACROS MESSAGE, READ, READW.
01493  M00S01133.pfam    +++|
01494  M00S01134.pfam    +++|
01495  M00S01135.pfam    +++| RCW      SUBR               ENTRY/EXIT
01496  M00S01136.pfam    +++|          READW  TAPE,DBUF,B1
01497  M00S01137.pfam    +++|          RJ     PPE         PROCESS PARITY ERROR
01498  M00S01138.pfam    +++|          NZ     X6,CUP      IF PARITY ERROR
Line S01139 Modification History
M01 (Removed by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01499  M01S01139.pfam5   ---|          NG     X1,RCW2     IF EOF
Line S00036 Modification History
M01 (Added by) pfam5
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01500  M02S00036.286l859 ---|          NG     X1,PPF      IF EOF
Line S00284 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01501  M01S00284.286l859 +++|          SB2    ERPE        * PREMATURE EOF DETECTED.*
01502  M01S00285.286l859 +++|          NG     X1,ABT      IF EOF
01503  M00S01140.pfam    +++|          ZR     X1,RCW1     IF NOT EOR
01504  M00S01141.pfam    +++|
01505  M00S01142.pfam    +++|*         PROCESS END OF RECORD.
01506  M00S01143.pfam    +++|
01507  M00S01144.pfam    +++|          READ   TAPE
01508  M00S01145.pfam    +++|          RJ     PPE         PROCESS PARITY ERROR
01509  M00S01146.pfam    +++|          SX3    -1          SET EOR
01510  M00S01147.pfam    +++|          ZR     X6,RCWX     IF NO PARITY ERROR
Line S01148 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01511  M01S01148.286l859 ---|          SA1    MPFN
01512  M01S01149.286l859 ---|          NZ     X1,CUP      IF FILE BEING PROCESSED
01513  M01S01150.286l859 ---|          MESSAGE  ERAE      * PFUUUUU - ARCHIVE FILE PARITY ERROR.*
01514  M00S01151.pfam    +++|          EQ     CUP         CALL UTILITY PROCESSOR
01515  M00S01152.pfam    +++|
01516  M00S01153.pfam    +++|*         BREAK UP CONTROL WORD.
01517  M00S01154.pfam    +++|
01518  M00S01155.pfam    +++| RCW1     SA1    DBUF        BREAK APART CONTROL WORD
01519  M00S01156.pfam    +++|          MX0    -9
01520  M00S01157.pfam    +++|          BX5    -X0*X1      MASK OFF WORD COUNT
01521  M00S01158.pfam    +++|          AX0    6
01522  M00S01159.pfam    +++|          AX1    9
01523  M00S01160.pfam    +++|          BX3    -X0*X1      MASK OFF SUB-TYPE CODE
01524  M00S01161.pfam    +++|          AX1    3
01525  M00S01162.pfam    +++|          BX2    -X0*X1      MASK OFF TYPE CODE
01526  M00S01163.pfam    +++|          SX1    X2-7
Line S01164 Modification History
M01 (Removed by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01527  M01S01164.pfam5   ---|          ZR     X1,EAF      IF END OF COPY
Line S00037 Modification History
M01 (Added by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01528  M01S00037.pfam5   +++|          ZR     X1,EAF      IF END OF ARCHIVE FILE CONTROL WORD
01529  M00S01165.pfam    +++|          EQ     RCWX        RETURN
Line S00286 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01530  M01S00286.286l859 +++| VPD      SPACE  4,20
01531  M01S00287.286l859 +++|**        VPD - VERIFY PERMIT AND DATA BLOCKS.
01532  M01S00288.286l859 +++|*
01533  M01S00289.286l859 +++|*         ENTRY  CATALOG ENTRY IN *CATH*.
01534  M01S00290.286l859 +++|*
01535  M01S00291.286l859 +++|*         EXIT   PERMIT OR DATA ERROR FLAGS SET IN *FLST* IF ERROR
01536  M01S00292.286l859 +++|*                  BLOCKS PRESENT ON ARCHIVE FILE.
01537  M01S00293.286l859 +++|*                ERROR MESSAGES ISSUED IF FILE PERMITS OR DATA
01538  M01S00294.286l859 +++|*                  UNREADABLE OR LOGIGAL ERROR IN PERMIT OR DATA
01539  M01S00295.286l859 +++|*                  BLOCKS.
01540  M01S00296.286l859 +++|*
01541  M01S00297.286l859 +++|*         USES   X - 1, 2, 4, 6, 7.
01542  M01S00298.286l859 +++|*                A - 1, 2, 6, 7.
01543  M01S00299.286l859 +++|*
01544  M01S00300.286l859 +++|*         CALLS  RCW, SFE, STE.
01545  M01S00301.286l859 +++|*
01546  M01S00302.286l859 +++|*         MACROS READW.
01547  M01S00303.286l859 +++|
01548  M01S00304.286l859 +++|
01549  M01S00305.286l859 +++| VPD      SUBR               ENTRY/EXIT
01550  M01S00306.286l859 +++|
01551  M01S00307.286l859 +++|*         CHECK CONSISTENCY OF PFC AND PERMITS BLOCKS.
01552  M01S00308.286l859 +++|
01553  M01S00309.286l859 +++|          RJ     RCW         READ CONTROL WORD
01554  M01S00310.286l859 +++|          SA1    CATH+FCRI   GET PERMITS RANDOM INDEX
01555  M01S00311.286l859 +++|          SX7    X2-2        CHECK FOR PERMITS BLOCK
01556  M01S00312.286l859 +++|          MX6    -24
01557  M01S00313.286l859 +++|          LX1    24
01558  M01S00314.286l859 +++|          BX1    -X6*X1
01559  M01S00315.286l859 +++|          NZ     X1,VPD1     IF PERMITS IN CATALOG
01560  M01S00316.286l859 +++|          NG     X3,VPD4     IF EOR ON ARCHIVE FILE
01561  M01S00317.286l859 +++|          NZ     X7,VPD4     IF NOT PERMITS BLOCK
01562  M01S00318.286l859 +++|          EQ     VPD9        PROCESS ARCHIVE FILE ERROR
01563  M01S00319.286l859 +++|
01564  M01S00320.286l859 +++| VPD1     NG     X3,VPD9     IF EOR ON ARCHIVE FILE
01565  M01S00321.286l859 +++|          NZ     X7,VPD9     IF NOT PERMITS BLOCK
01566  M01S00322.286l859 +++|
01567  M01S00323.286l859 +++|*         CHECK FOR ERROR STATUS IN PERMITS BLOCKS.
01568  M01S00324.286l859 +++|
01569  M01S00325.286l859 +++| VPD2     SA1    DBUF
01570  M01S00326.286l859 +++|          MX6    -3
01571  M01S00327.286l859 +++|          LX1    -15
01572  M01S00328.286l859 +++|          BX6    -X6*X1
01573  M01S00329.286l859 +++|          ZR     X6,VPD3     IF NOT ERROR BLOCK
01574  M01S00330.286l859 +++|          SA1    FLST        SET PERMIT ERROR IN FILE STATUS
01575  M01S00331.286l859 +++|          SX6    4
01576  M01S00332.286l859 +++|          BX6    X1+X6
01577  M01S00333.286l859 +++|          SA6    A1
01578  M01S00334.286l859 +++| VPD3     READW  TAPE,DBUF,X5  READ PERMITS BLOCK
01579  M01S00335.286l859 +++|          RJ     PPE         PROCESS PARITY ERROR
01580  M01S00336.286l859 +++|          NZ     X6,VPDX     IF PARITY ERROR
01581  M01S00337.286l859 +++|          RJ     RCW         READ NEXT CONTROL WORD
01582  M01S00338.286l859 +++|          NG     X3,VPD4     IF EOR ON ARCHIVE FILE
01583  M01S00339.286l859 +++|          SX7    X2-2
01584  M01S00340.286l859 +++|          ZR     X7,VPD2     IF PERMITS BLOCK
01585  M01S00341.286l859 +++|
01586  M01S00342.286l859 +++|*         CHECK CONSISTENCY OF PFC AND DATA BLOCKS.
01587  M01S00343.286l859 +++|
01588  M01S00344.286l859 +++| VPD4     SA1    FLST        GET *PFC ONLY* FLAG
01589  M01S00345.286l859 +++|          LX1    59-0
01590  M01S00346.286l859 +++|          PL     X1,VPD5     IF NOT *PFC ONLY* FILE
01591  M01S00347.286l859 +++|          NG     X3,VPDX     IF EOR ON ARCHIVE FILE
01592  M01S00348.286l859 +++|          EQ     VPD9        PROCESS ARCHIVE FILE ERROR
01593  M01S00349.286l859 +++|
01594  M01S00350.286l859 +++| VPD5     NG     X3,VPD9     IF EOR ON ARCHIVE FILE
01595  M01S00351.286l859 +++|          SX7    X2-3
01596  M01S00352.286l859 +++|          NZ     X7,VPD9     IF NOT DATA BLOCK
01597  M01S00353.286l859 +++|
01598  M01S00354.286l859 +++|*         CHECK FOR ERROR STATUS IN DATA BLOCKS.
01599  M01S00355.286l859 +++|
01600  M01S00356.286l859 +++| VPD6     SA1    DBUF
01601  M01S00357.286l859 +++|          SA2    VPDA
01602  M01S00358.286l859 +++|          MX6    42
01603  M01S00359.286l859 +++|          MX7    -3
01604  M01S00360.286l859 +++|          BX6    X6*X1
01605  M01S00361.286l859 +++|          LX1    -15
01606  M01S00362.286l859 +++|          BX6    X6-X2
01607  M01S00363.286l859 +++|          BX7    -X7*X1      EXTRACT ERROR TYPE
01608  M01S00364.286l859 +++|          NZ     X6,VPD8     IF NOT ERROR BLOCK
01609  M01S00365.286l859 +++|          SA1    FLST
01610  M01S00366.286l859 +++|          SX6    10B         SET TRUNCATED FILE
01611  M01S00367.286l859 +++|          ZR     X7,VPD7     IF TRUNCATED FILE ERROR
01612  M01S00368.286l859 +++|          SX6    2           SET ERROR IN DATA
01613  M01S00369.286l859 +++| VPD7     BX6    X1+X6
01614  M01S00370.286l859 +++|          SA6    FLST
01615  M01S00371.286l859 +++| VPD8     READW  TAPE,DBUF,X5  READ DATA BLOCK
01616  M01S00372.286l859 +++|          RJ     PPE         PROCESS PARITY ERROR
01617  M01S00373.286l859 +++|          NZ     X6,VPDX     IF PARITY ERROR
01618  M01S00374.286l859 +++|          RJ     RCW         READ NEXT CONTROL WORD
01619  M01S00375.286l859 +++|          NG     X3,VPDX     IF EOR ON ARCHIVE FILE
01620  M01S00376.286l859 +++|          SX7    X2-3
01621  M01S00377.286l859 +++|          ZR     X7,VPD6     IF DATA BLOCK
01622  M01S00378.286l859 +++|
01623  M01S00379.286l859 +++|*         PROCESS ARCHIVE FILE ERROR.
01624  M01S00380.286l859 +++|
01625  M01S00381.286l859 +++| VPD9     BX7    X3          SAVE EOR STATUS
01626  M01S00382.286l859 +++|          SA7    VPDB
01627  M01S00383.286l859 +++|          SA1    CATH+FCUI
01628  M01S00384.286l859 +++|          SB2    ERAB        * ARCHIVE FILE BLOCK ERROR ...*
01629  M01S00385.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
01630  M01S00386.286l859 +++|          SA3    VPDB
01631  M01S00387.286l859 +++|          NG     X3,VPDX     IF EOR ON ARCHIVE FILE
01632  M01S00388.286l859 +++|          RJ     STE         SKIP TO END OF RECORD
01633  M01S00389.286l859 +++|          EQ     VPDX        RETURN
01634  M01S00390.286l859 +++|
01635  M01S00391.286l859 +++|
01636  M01S00392.286l859 +++| VPDA     VFD    42/7LERROR**,18/0
01637  M01S00393.286l859 +++| VPDB     CON    0           ARCHIVE FILE EOR STATUS
Line S01166 Modification History
M01 (Removed by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01638  M01S01166.pfam5   ---|
01639  M01S01167.pfam5   ---|*         PROCESS PREMATURE EOF.
01640  M01S01168.pfam5   ---|
01641  M01S01169.pfam5   ---| RCW2     SA1    /COMSPFS/UTLC
01642  M01S01170.pfam5   ---|          SX1    X1-/COMSPFS/RSUT
01643  M01S01171.pfam5   ---|          NZ     X1,RCW3     IF NOT *PFRES*
01644  M01S01172.pfam5   ---|          SX6    B1+         FORCE ERROR LOG MESSAGE
01645  M01S01173.pfam5   ---|          SA6    ELFG
01646  M01S01174.pfam5   ---| RCW3     SX5    ERPE        * PFUUUUU - PREMATURE EOF DETECTED.*
01647  M01S01175.pfam5   ---|          RJ     SEM         SEND ERROR MESSAGE
01648  M01S01176.pfam5   ---|          EQ     ABT         ABORT
01649  M00S01177.pfam    +++|          TITLE  GENERAL SUBROUTINES.
Line S01178 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01650  M01S01178.286l859 ---| ABT      SPACE  4,15
01651  M01S01179.286l859 ---|**        ABT - ABORT PROCESSOR.
Line S00394 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01652  M01S00394.286l859 +++| APR      SPACE  4,15
01653  M01S00395.286l859 +++|**        APR - ABORT PROCESSOR.
01654  M00S01180.pfam    +++|*
Line S01181 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01655  M01S01181.286l859 ---|*         ENTRY - CONTROL POINT OR PROGRAM FATAL ERROR DETECTED.
Line S00396 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01656  M01S00396.286l859 +++|*         ENTRY  CONTROL POINT OR PROGRAM FATAL ERROR DETECTED.
01657  M00S01182.pfam    +++|*
Line S01183 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01658  M01S01183.286l859 ---|*         EXIT   JOB ABORTED.
01659  M01S01184.286l859 ---|*                FILES RETURNED (*PFRES*).
01660  M01S01185.286l859 ---|*                UNPROCESSED STAGE REQUESTS FOR THIS VSN REQUEUED.
Line S00397 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01661  M01S00397.286l859 +++|*         EXIT   FILES RETURNED (*PFRES*).
01662  M01S00398.286l859 +++|*                UNPROCESSED STAGE REQUESTS FOR THIS VSN REQUEUED
01663  M01S00399.286l859 +++|*                  (*PFRES).
01664  M00S01186.pfam    +++|*
Line S01187 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01665  M01S01187.286l859 ---|*         USES   X - 1, 5, 6.
01666  M01S01188.286l859 ---|*                A - 1, 5, 6.
Line S00400 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01667  M01S00400.286l859 +++|*         USES   X - 1.
01668  M01S00401.286l859 +++|*                A - 1.
01669  M00S01189.pfam    +++|*
Line S01190 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01670  M01S01190.286l859 ---|*         CALLS  CAR, RUR, TCM.
Line S00402 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01671  M01S00402.286l859 +++|*         CALLS  CAR, RUR, /MTX/TCM.
01672  M00S01191.pfam    +++|*
Line S01192 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01673  M01S01192.286l859 ---|*         MACROS ABORT, MESSAGE, RETURN, WRITER.
Line S00403 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01674  M01S00403.286l859 +++|*         MACROS RETURN.
01675  M00S01193.pfam    +++|
01676  M00S01194.pfam    +++|
Line S01195 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01677  M01S01195.286l859 ---| ABT      BSS    0           ENTRY
Line S00404 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01678  M01S00404.286l859 +++| APR      SUBR   0           ENTRY/EXIT
01679  M00S01196.pfam    +++|          SA1    /COMSPFS/UTLC
01680  M00S01197.pfam    +++|          SX1    X1-/COMSPFS/RSUT
Line S01198 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01681  M01S01198.286l859 ---|          NZ     X1,ABT4     IF NOT *PFRES*
Line S00405 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01682  M01S00405.286l859 +++|          NZ     X1,APRX     IF NOT *PFRES*
01683  M00S01199.pfam    +++|
Line S01200 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01684  M01S01200.286l859 ---|*         GET ANY ADDITIONAL STAGE REQUESTS FOR THIS VSN FROM *MAGNET*,
01685  M01S01201.286l859 ---|*         THEN TERMINATE CONNECTION AND REQUEUE UNPROCESSED REQUESTS.
Line S00406 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01686  M01S00406.286l859 +++|*         PROCESS *PFRES* ABORT.  GET ANY ADDITIONAL STAGE REQUESTS FOR
01687  M01S00407.286l859 +++|*         THIS VSN FROM *MAGNET*, THEN TERMINATE CONNECTION AND REQUEUE
01688  M01S00408.286l859 +++|*         UNPROCESSED REQUESTS.
01689  M00S01202.pfam    +++|
Line S01203 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01690  M01S01203.286l859 ---|          SA1    ABTA
01691  M01S01204.286l859 ---|          SX6    X1+B1
01692  M01S01205.286l859 ---|          SA6    A1
01693  M01S01206.286l859 ---|          ZR     X1,ABT1     IF NOT FIRST ENTRY TO *ABT*
01694  M01S01207.286l859 ---|          SX1    X1-1
01695  M01S01208.286l859 ---|          ZR     X1,ABT2     IF SECOND ENTRY TO *ABT*
01696  M01S01209.286l859 ---|          EQ     ABT3        SKIP REQUEUE
01697  M01S01210.286l859 ---|
01698  M01S01211.286l859 ---| ABT1     RJ     CAR         GET ADDITIONAL REQUESTS FOR THIS VSN
01699  M01S01212.286l859 ---|          GT     B6,B0,ABT1  IF ADDITIONAL REQUEST FOUND
01700  M01S01213.286l859 ---| ABT2     RJ     /MTX/TCM    TERMINATE CONNECTION WITH *MAGNET*
Line S00409 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01701  M01S00409.286l859 +++| APR1     RJ     CAR         GET ADDITIONAL REQUESTS FOR THIS VSN
01702  M01S00410.286l859 +++|          GT     B6,B0,APR1  IF ADDITIONAL REQUEST FOUND
01703  M01S00411.286l859 +++|          RJ     /MTX/TCM    TERMINATE CONNECTION WITH *MAGNET*
01704  M00S01214.pfam    +++|          RJ     RUR         REQUEUE UNPROCESSED STAGE REQUESTS
Line S01215 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01705  M01S01215.286l859 ---| ABT3     RETURN F,R         RETURN LOCAL FILE
Line S00412 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01706  M01S00412.286l859 +++|          RETURN F,R         RETURN LOCAL FILE
01707  M00S01216.pfam    +++|          RETURN T,R         RETURN TAPE
01708  M00S01217.pfam    +++|          SA1    SRFF
Line S01218 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01709  M01S01218.286l859 ---|          ZR     X1,ABT4     IF STAGE REQUEST FILE NOT ATTACHED
Line S00413 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01710  M01S00413.286l859 +++|          ZR     X1,APRX     IF STAGE REQUEST FILE NOT ATTACHED
01711  M00S01219.pfam    +++|          RETURN R,R         RETURN STAGE REQUEST FILE
Line S01220 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01712  M01S01220.286l859 ---|
01713  M01S01221.286l859 ---|*         ISSUE TERMINATION MESSAGES AND ABORT.
01714  M01S01222.286l859 ---|
01715  M01S01223.286l859 ---| ABT4     MESSAGE  MSUA      * PFUUUUU ABORTED.*
01716  M01S01224.286l859 ---|          SA5    IDSA+/COMSPFS/ADER  DISPLAY ERROR MESSAGE
01717  M01S01225.286l859 ---|          MOVE   3,MSUA,X5
01718  M01S01226.286l859 ---|          WRITER O,R
01719  M01S01227.286l859 ---|          ABORT              ABORT
01720  M01S01228.286l859 ---|
01721  M01S01229.286l859 ---|
01722  M01S01230.286l859 ---| ABTA     CON    0           ZERO IF FIRST ENTRY, ONE IF SECOND
01723  M01S01231.286l859 ---| ABTBLK   RPVBLK ABT
Line S00414 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01724  M01S00414.286l859 +++|          EQ     APRX        RETURN
01725  M00S01232.pfam    +++| ALD      SPACE  4,15
01726  M00S01233.pfam    +++|**        ALD - ASSIGN LOCAL FILE DEVICE.
01727  M00S01234.pfam    +++|*
01728  M00S01235.pfam    +++|*         ENTRY  (CATH) = PFC ENTRY.
01729  M00S01236.pfam    +++|*                (SYSS) = SYSTEM SECURITY MODE.
01730  M00S01237.pfam    +++|*
01731  M00S01238.pfam    +++|*         EXIT   (X6) = 0, IF DEVICE FOUND FOR FILE.
01732  M00S01239.pfam    +++|*
01733  M00S01240.pfam    +++|*         USES   X - 0, 1, 6.
01734  M00S01241.pfam    +++|*                A - 1.
01735  M00S01242.pfam    +++|*
01736  M00S01243.pfam    +++|*         CALLS  SAF.
01737  M00S01244.pfam    +++|*
01738  M00S01245.pfam    +++|*         MACROS RECALL, REQUEST, SETFET.
01739  M00S01246.pfam    +++|
01740  M00S01247.pfam    +++|
01741  M00S01248.pfam    +++| ALD      SUBR               ENTRY/EXIT
01742  M00S01249.pfam    +++|          RECALL F
01743  M00S01250.pfam    +++|          SX6    B0+         SET NO ERROR
01744  M00S01251.pfam    +++|          SA1    SYSS
01745  M00S01252.pfam    +++|          ZR     X1,ALDX     IF NOT SECURED SYSTEM
01746  M00S01253.pfam    +++|          RJ     SAF         SET ACCESS LEVEL IN FET
01747  M00S01254.pfam    +++|          SETFET F,ERP=E,DTY==2RMS  SET ERROR PROCESSING, DEVICE TYPE
01748  M00S01255.pfam    +++|          REQUEST  F,U,N
01749  M00S01256.pfam    +++|          SETFET F,ERP=0     CLEAR ERROR PROCESSING
01750  M00S01257.pfam    +++|          SA1    F           RETURN ERROR STATUS
01751  M00S01258.pfam    +++|          LX1    -10
01752  M00S01259.pfam    +++|          MX0    -8
01753  M00S01260.pfam    +++|          BX6    -X0*X1
01754  M00S01261.pfam    +++|          EQ     ALDX        RETURN
01755  M00S01262.pfam    +++| APD      SPACE  4,15
01756  M00S01263.pfam    +++|**        APD - ASSIGN PERMANENT FILE DEVICE.
01757  M00S01264.pfam    +++|*
01758  M00S01265.pfam    +++|*         ENTRY  (CATH) = PFC ENTRY.
01759  M00S01266.pfam    +++|*                (SYSS) = SYSTEM SECURITY MODE.
01760  M00S01267.pfam    +++|*
01761  M00S01268.pfam    +++|*         EXIT   (X6) = 0, IF DEVICE FOUND FOR FILE.
01762  M00S01269.pfam    +++|*
01763  M00S01270.pfam    +++|*         USES   X - 0, 1, 6.
01764  M00S01271.pfam    +++|*                A - 1.
01765  M00S01272.pfam    +++|*
01766  M00S01273.pfam    +++|*         CALLS  SAF.
01767  M00S01274.pfam    +++|*
Line S01275 Modification History
M01 (Removed by) pfam2
Seq #  *Modification Id* Act 
----------------------------+
01768  M01S01275.pfam2   ---|*         MACROS ASSIGNPF, RECALL, REWIND, SETFET.
Line S00001 Modification History
M01 (Added by) pfam2
Seq #  *Modification Id* Act 
----------------------------+
01769  M01S00001.pfam2   +++|*         MACROS ASSIGNPF, RECALL, SETFET.
01770  M00S01276.pfam    +++|
01771  M00S01277.pfam    +++|
01772  M00S01278.pfam    +++| APD      SUBR               ENTRY/EXIT
01773  M00S01279.pfam    +++|          RECALL F
01774  M00S01280.pfam    +++|          SA1    SYSS
01775  M00S01281.pfam    +++|          ZR     X1,APD1     IF NOT SECURED SYSTEM
01776  M00S01282.pfam    +++|          RJ     SAF         SET ACCESS LEVEL IN FET
01777  M00S01283.pfam    +++| APD1     SETFET F,ERP=UE,DTY=0 SET ERROR PROCESSING, CLEAR DEVICE TYPE
Line S00002 Modification History
M01 (Added by) pfam2
Seq #  *Modification Id* Act 
----------------------------+
01778  M01S00002.pfam2   +++|          SX6    SRSY*10000B *SET SYSTEM SECTOR* SPECIAL REQUEST
01779  M01S00003.pfam2   +++|          SA6    F+8
01780  M00S01284.pfam    +++|          ASSIGNPF  F
01781  M00S01285.pfam    +++|          SETFET F,ERP=0     CLEAR ERROR PROCESSING
Line S00004 Modification History
M01 (Added by) pfam2
Seq #  *Modification Id* Act 
----------------------------+
01782  M01S00004.pfam2   +++|          BX6    X6-X6       CLEAR SPECIAL REQUEST
01783  M01S00005.pfam2   +++|          SA6    F+8
01784  M00S01286.pfam    +++|          SA1    F           RETURN ERROR STATUS
01785  M00S01287.pfam    +++|          LX1    -10
01786  M00S01288.pfam    +++|          MX0    -8
01787  M00S01289.pfam    +++|          BX6    -X0*X1
Line S01290 Modification History
M01 (Removed by) pfam2
Seq #  *Modification Id* Act 
----------------------------+
01788  M01S01290.pfam2   ---|          NZ     X6,APDX     IF ERROR
01789  M01S01291.pfam2   ---|          REWIND F,R         POSITION FILE TO FIRST DATA SECTOR
01790  M01S01292.pfam2   ---|          BX6    X6-X6       INDICATE NO ERROR
01791  M00S01293.pfam    +++|          EQ     APDX        RETURN
01792  M00S01294.pfam    +++| ARQ      SPACE  4,15
01793  M00S01295.pfam    +++|**        ARQ - ADD STAGE REQUEST TO QUEUE.
01794  M00S01296.pfam    +++|*
01795  M00S01297.pfam    +++|*         ENTRY  (B6) = FWA OF REQUEST TO ENTER.
01796  M00S01298.pfam    +++|*
01797  M00S01299.pfam    +++|*         EXIT   STAGE REQUEST ADDED TO QUEUE, IF NOT DUPLICATE.
01798  M00S01300.pfam    +++|*                FIELD LENGTH INCREASED IF NECESSARY.
01799  M00S01301.pfam    +++|*
01800  M00S01302.pfam    +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
01801  M00S01303.pfam    +++|*                A - 1, 2, 3, 4, 6, 7.
01802  M00S01304.pfam    +++|*                B - 5, 7.
01803  M00S01305.pfam    +++|*
01804  M00S01306.pfam    +++|*         MACROS MEMORY, MOVE.
01805  M00S01307.pfam    +++|
01806  M00S01308.pfam    +++|
01807  M00S01309.pfam    +++| ARQ      SUBR               ENTRY/EXIT
01808  M00S01310.pfam    +++|          SA3    SRQL
01809  M00S01311.pfam    +++|          SA2    SRQF
01810  M00S01312.pfam    +++|          SB7    X3+B1       VSN / SEQUENCE NUMBER WORD OF QUEUE ENTRY
01811  M00S01313.pfam    +++|          SA4    B6+B1       VSN / SEQUENCE NUMBER OF NEW REQUEST
01812  M00S01314.pfam    +++|          SB5    /MTX/PFTBL  LENGTH OF STAGE REQUEST
01813  M00S01315.pfam    +++|          MX0    -42
01814  M00S01316.pfam    +++| ARQ1     SB7    B7-B5       CHECK PREVIOUS ENTRY
01815  M00S01317.pfam    +++|          NG     B7,ARQ2     IF NO MORE ENTRIES
01816  M00S01318.pfam    +++|          SA1    X2+B7
01817  M00S01319.pfam    +++|          BX6    X1-X4
01818  M00S01320.pfam    +++|          BX6    -X0*X6
01819  M00S01321.pfam    +++|          NZ     X6,ARQ1     IF VSN / SEQUENCE NUMBER DO NOT MATCH
01820  M00S01322.pfam    +++|          EQ     ARQX        DUPLICATE REQUEST (IGNORE)
01821  M00S01323.pfam    +++|
01822  M00S01324.pfam    +++| ARQ2     IX3    X2+X3       ADD REQUEST TO QUEUE
01823  M00S01325.pfam    +++|          MOVE   B5,B6,X3
01824  M00S01326.pfam    +++|          SA1    SRQN        UPDATE NUMBER OF ENTRIES
01825  M00S01327.pfam    +++|          SX6    X1+B1
01826  M00S01328.pfam    +++|          SA6    A1
01827  M00S01329.pfam    +++|          SA1    SRQL        UPDATE LENGTH
01828  M00S01330.pfam    +++|          SX6    X1+B5
01829  M00S01331.pfam    +++|          SA6    A1
01830  M00S01332.pfam    +++|          SA1    SRQF        CHECK REMAINING AVAILABLE MEMORY
01831  M00S01333.pfam    +++|          SX6    X6+2*/MTX/PFTBL+8
Line S01334 Modification History
M01 (Removed by) pfam6
Seq #  *Modification Id* Act 
----------------------------+
01832  M01S01334.pfam6   ---|          IX6    X1+X6
Line S00001 Modification History
M01 (Added by) pfam6
Seq #  *Modification Id* Act 
----------------------------+
01833  M01S00001.pfam6   +++|          IX1    X1+X6
01834  M00S01335.pfam    +++|          SA2    MSTAT
01835  M00S01336.pfam    +++|          AX2    30
Line S01337 Modification History
M01 (Removed by) pfam6
Seq #  *Modification Id* Act 
----------------------------+
01836  M01S01337.pfam6   ---|          IX3    X2-X6
Line S00002 Modification History
M01 (Added by) pfam6
Seq #  *Modification Id* Act 
----------------------------+
01837  M01S00002.pfam6   +++|          IX3    X2-X1
01838  M00S01338.pfam    +++|          PL     X3,ARQX     IF ENOUGH MEMORY FOR TWO MORE REQUESTS
Line S01339 Modification History
M01 (Removed by) pfam6
Seq #  *Modification Id* Act 
----------------------------+
01839  M01S01339.pfam6   ---|          MEMORY CM,MSTAT,R,X6+MEMI  INCREASE FIELD LENGTH
Line S00003 Modification History
M01 (Added by) pfam6
Seq #  *Modification Id* Act 
----------------------------+
01840  M01S00003.pfam6   +++|          MEMORY CM,MSTAT,R,X1+MEMI  INCREASE FIELD LENGTH
01841  M00S01340.pfam    +++|          EQ     ARQX        RETURN
01842  M00S01341.pfam    +++| CAR      SPACE  4,15
01843  M00S01342.pfam    +++|**        CAR - CHECK FOR ADDITIONAL STAGE REQUESTS.
01844  M00S01343.pfam    +++|*
01845  M00S01344.pfam    +++|*         CALLS *GSR* IF FOUR SECONDS HAVE ELAPSED SINCE LAST CALL,
01846  M00S01345.pfam    +++|*         OR IF NO MORE REQUESTS REMAIN TO BE PROCESSED.
01847  M00S01346.pfam    +++|*
01848  M00S01347.pfam    +++|*         EXIT   (B6) .GT. 0, IF NEW REQUEST FOUND.
01849  M00S01348.pfam    +++|*                (X6) = 0, IF NO REQUESTS LEFT TO PROCESS.
01850  M00S01349.pfam    +++|*
01851  M00S01350.pfam    +++|*         USES   X - 1, 2, 3, 6.
01852  M00S01351.pfam    +++|*                A - 1, 2, 6.
01853  M00S01352.pfam    +++|*
01854  M00S01353.pfam    +++|*         CALLS  ARQ, GSR.
01855  M00S01354.pfam    +++|*
01856  M00S01355.pfam    +++|*         MACROS RTIME.
01857  M00S01356.pfam    +++|
01858  M00S01357.pfam    +++|
01859  M00S01358.pfam    +++| CAR2     SA1    NSSR        RETURN NUMBER OF REQUESTS LEFT TO PROCESS
01860  M00S01359.pfam    +++|          SA2    SRQN
01861  M00S01360.pfam    +++|          IX6    X2-X1
01862  M00S01361.pfam    +++|
01863  M00S01362.pfam    +++|
01864  M00S01363.pfam    +++| CAR      SUBR               ENTRY/EXIT
01865  M00S01364.pfam    +++|          SA1    NSSR        NUMBER OF REQUESTS SELECTED
01866  M00S01365.pfam    +++|          SA2    SRQN        NUMBER OF ENTRIES IN TABLE
01867  M00S01366.pfam    +++|          IX1    X2-X1       NUMBER OF FILES YET TO BE PROCESSED
01868  M00S01367.pfam    +++|          ZR     X1,CAR1     IF ALL FILES PROCESSED (IMMEDIATE CHECK)
01869  M00S01368.pfam    +++|          RTIME  CARA+1      GET CURRENT TIME
01870  M00S01369.pfam    +++|          SA1    CARA
01871  M00S01370.pfam    +++|          SA2    CARA+1
01872  M00S01371.pfam    +++|          IX1    X2-X1
01873  M00S01372.pfam    +++|          AX1    36
01874  M00S01373.pfam    +++|          SX3    X1-4
01875  M00S01374.pfam    +++|          BX6    X2
01876  M00S01375.pfam    +++|          NG     X3,CARX     IF NOT 4 SECONDS SINCE LAST *GSR* CALL
01877  M00S01376.pfam    +++|          SA6    A1          UPDATE TIME
01878  M00S01377.pfam    +++| CAR1     RJ     /MTX/GSR    SEE IF MORE REQUESTS
01879  M00S01378.pfam    +++|          LE     B6,B0,CAR2  IF NO REQUESTS
01880  M00S01379.pfam    +++|          RJ     ARQ         ADD REQUEST
01881  M00S01380.pfam    +++|          EQ     CAR1        GET NEXT REQUEST
01882  M00S01381.pfam    +++|
01883  M00S01382.pfam    +++|
01884  M00S01383.pfam    +++| CARA     BSSZ   2           ENTRY TIME VALUES
01885  M00S01384.pfam    +++| CFC      SPACE  4,10
01886  M00S01385.pfam    +++|**        CFC - CHECK FILES PROCESSED COUNT.
01887  M00S01386.pfam    +++|*
01888  M00S01387.pfam    +++|*         EXIT   TO CALLER IF NO FILE SELECTIONS OR ALL SELECTED FILES
01889  M00S01388.pfam    +++|*                  NOT PROCESSED.
Line S01389 Modification History
M01 (Removed by) pfam5a
Seq #  *Modification Id* Act 
----------------------------+
01890  M01S01389.pfam5a  ---|*                TO *EAF* IF ALL SELECTED FILES PROCESSED.
Line S00004 Modification History
M01 (Added by) pfam5a
Seq #  *Modification Id* Act 
----------------------------+
01891  M01S00004.pfam5a  +++|*                TO *TER* IF ALL SELECTED FILES PROCESSED.
01892  M00S01390.pfam    +++|*
01893  M00S01391.pfam    +++|*         USES   X - 1, 2.
01894  M00S01392.pfam    +++|*                A - 1, 2.
Line S01393 Modification History
M01 (Removed by) pfam5a
Seq #  *Modification Id* Act 
----------------------------+
01895  M01S01393.pfam5a  ---|*
Line S01394 Modification History
M01 (Removed by) pfam5
M02 (Removed by) pfam5a
Seq #  *Modification Id* Act 
----------------------------+
01896  M02S01394.pfam5a  ---|*         CALLS  EAF, SER.
Line S00038 Modification History
M01 (Added by) pfam5
M02 (Removed by) pfam5a
Seq #  *Modification Id* Act 
----------------------------+
01897  M02S00038.pfam5a  ---|*         CALLS  SER.
01898  M00S01395.pfam    +++|
01899  M00S01396.pfam    +++|
01900  M00S01397.pfam    +++| CFC      SUBR               ENTRY/EXIT
01901  M00S01398.pfam    +++|          SA1    /COMSPFS/FISP
01902  M00S01399.pfam    +++|          SA2    /COMSPFS/NFIS
01903  M00S01400.pfam    +++|          ZR     X1,CFCX     IF NO USER INDEX/FILE NAME SELECTIONS
01904  M00S01401.pfam    +++|          NZ     X2,CFCX     IF ALL SPECIFIED FILES NOT PROCESSED
Line S01402 Modification History
M01 (Removed by) pfam5a
Seq #  *Modification Id* Act 
----------------------------+
01905  M01S01402.pfam5a  ---|          RJ     SER         SKIP TO END OF RECORD
01906  M01S01403.pfam5a  ---|          EQ     EAF         PROCESS END OF FILE
Line S00005 Modification History
M01 (Added by) pfam5a
Seq #  *Modification Id* Act 
----------------------------+
01907  M01S00005.pfam5a  +++|          EQ     TER         TERMINATE
Line S01404 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01908  M01S01404.ns2673  ---| CLC      SPACE  4,10
Line S00027 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01909  M01S00027.ns2673  +++| CLC      SPACE  4,15
01910  M00S01405.pfam    +++|**        CLC - CONNECT LOCAL FILE TO CATALOG ENTRY.
01911  M00S01406.pfam    +++|*
01912  M00S01407.pfam    +++|*         EXIT   (X6) .NE. 0, IF ERROR.
01913  M00S01408.pfam    +++|*
Line S01409 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01914  M01S01409.286l859 ---|*         USES   X - 1, 6.
01915  M01S01410.286l859 ---|*                A - 1.
Line S00415 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01916  M01S00415.286l859 +++|*         USES   X - 1, 5, 6.
01917  M01S00416.286l859 +++|*                A - 1, 5.
01918  M00S01411.pfam    +++|*
Line S01412 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01919  M01S01412.ns2673  ---|*         MACROS RECALL, SETDA, SETFET, UREPLAC.
Line S00028 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01920  M02S00028.286l859 ---|*         CALLS  SEM.
Line S00417 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01921  M01S00417.286l859 +++|*         CALLS  SRE.
Line S00029 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01922  M01S00029.ns2673  +++|*
Line S00030 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01923  M02S00030.286l859 ---|*         MACROS EDITS, MESSAGE, RECALL, ROLLOUT, SETDA, SETFET,
01924  M02S00031.286l859 ---|*                UREPLAC.
Line S00418 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01925  M01S00418.286l859 +++|*         MACROS MESSAGE, RECALL, ROLLOUT, SETDA, SETFET, UREPLAC.
01926  M00S01413.pfam    +++|
01927  M00S01414.pfam    +++|
01928  M00S01415.pfam    +++| CLC7     SETFET F,ERP=0     CLEAR ERROR PROCESSING
01929  M00S01416.pfam    +++|          BX6    X6-X6       INDICATE NO ERROR
01930  M00S01417.pfam    +++|
01931  M00S01418.pfam    +++|
01932  M00S01419.pfam    +++| CLC      SUBR               ENTRY/EXIT
01933  M00S01420.pfam    +++|          SETFET F,ERP=UE    SET *EP* AND *UP*
01934  M00S01421.pfam    +++| CLC1     SA1    CATH+FCBS
01935  M00S01422.pfam    +++|          LX1    59-11
01936  M00S01423.pfam    +++|          PL     X1,CLC2     IF INDIRECT ACCESS FILE
01937  M00S01424.pfam    +++|          SETDA  F           SET DISK ADDRESS FOR DIRECT ACCESS FILE
01938  M00S01425.pfam    +++|          EQ     CLC3        CHECK *PFM* STATUS
01939  M00S01426.pfam    +++|
01940  M00S01427.pfam    +++| CLC2     UREPLAC  F         UTILITY-REPLACE INDIRECT ACCESS FILE
01941  M00S01428.pfam    +++|          RECALL X2
01942  M00S01429.pfam    +++| CLC3     SA1    X2          CHECK FOR *PFM* ERROR
01943  M00S01430.pfam    +++|          MX6    -8
01944  M00S01431.pfam    +++|          LX1    -10
01945  M00S01432.pfam    +++|          BX6    -X6*X1
01946  M00S01433.pfam    +++|          ZR     X6,CLC7     IF NO ERROR
01947  M00S01434.pfam    +++|
01948  M00S01435.pfam    +++|*         PFM ERROR ENCOUNTERED.  IF ERROR IS THE RESULT OF SYSTEM
01949  M00S01436.pfam    +++|*         ACTIVITY, DELAY AND RETRY.  IF ERROR COULD BE THE RESULT
01950  M00S01437.pfam    +++|*         OF THE USER MODIFYING OR DELETING THE FILE, ABANDON STAGE
01951  M00S01438.pfam    +++|*         WITH NO MESSAGE.  OTHERWISE, ISSUE ERROR MESSAGE AND
01952  M00S01439.pfam    +++|*         ABANDON STAGE.
01953  M00S01440.pfam    +++|
01954  M00S01441.pfam    +++| CLC4     SX1    X6-/ERRMSG/INA
01955  M00S01442.pfam    +++|          ZR     X1,CLC5     IF *INTERLOCK NOT AVAILABLE*
01956  M00S01443.pfam    +++|          SX1    X6-/ERRMSG/PFA
01957  M00S01444.pfam    +++|          ZR     X1,CLC6     IF *PF UTILITY ACTIVE*
01958  M00S01445.pfam    +++|          SX1    X6-/ERRMSG/FNF
01959  M00S01446.pfam    +++|          ZR     X1,CLC7     IF *FILE NOT FOUND*
01960  M00S01447.pfam    +++|          SX1    X6-/ERRMSG/ICU
01961  M00S01448.pfam    +++|          ZR     X1,CLC7     IF *INVALID CATALOG UPDATE*
Line S01449 Modification History
M01 (Removed by) pfam3
Seq #  *Modification Id* Act 
----------------------------+
01962  M01S01449.pfam3   ---|          SX1    X6-/ERRMSG/FNF
Line S00001 Modification History
M01 (Added by) pfam3
Seq #  *Modification Id* Act 
----------------------------+
01963  M01S00001.pfam3   +++|          SX1    X6-/ERRMSG/PVE
01964  M00S01450.pfam    +++|          ZR     X1,CLC7     IF *PFC VERIFICATION ERROR*
Line S01451 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01965  M01S01451.286l859 ---|          SX6    B1+         FORCE ERROR LOG MESSAGE
01966  M01S01452.286l859 ---|          SA6    ELFG
Line S01453 Modification History
M01 (Removed by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01967  M02S01453.286l859 ---|          EDITS  MSFN,ERPF   * PFRES - PFM ERROR ENCOUNTERED.*
Line S00032 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01968  M02S00032.286l859 ---|          EDITS  MSFF,ERPF   * PFRES - PFM ERROR ENCOUNTERED.*
Line S01454 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01969  M01S01454.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
Line S00419 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01970  M01S00419.286l859 +++|          SA5    STRA        SET STAGE REQUEST ADDRESS
01971  M01S00420.286l859 +++|          SB2    ERPF        * PFM ERROR ENCOUNTERED ...*
01972  M01S00421.286l859 +++|          RJ     SRE         SEND ERROR MESSAGE
01973  M00S01455.pfam    +++|          MESSAGE  EMBF,,R   SEND *PFM* ERROR MESSAGE TO SYSTEM DAYFILE
01974  M00S01456.pfam    +++|          SX6    B1          INDICATE ERROR
01975  M00S01457.pfam    +++|          EQ     CLCX        RETURN ERROR STATUS
01976  M00S01458.pfam    +++|
01977  M00S01459.pfam    +++|*         PROCESS *INTERLOCK NOT AVAILABLE.*
01978  M00S01460.pfam    +++|
01979  M00S01461.pfam    +++| CLC5     RECALL             GIVE UP CPU
01980  M00S01462.pfam    +++|          EQ     CLC1        TRY AGAIN
01981  M00S01463.pfam    +++|
01982  M00S01464.pfam    +++|*         PROCESS *PF UTILITY ACTIVE.*
01983  M00S01465.pfam    +++|
01984  M00S01466.pfam    +++| CLC6     ROLLOUT            WAIT FOR UTILITY
01985  M00S01467.pfam    +++|          RECALL
01986  M00S01468.pfam    +++|          EQ     CLC1        TRY AGAIN
Line S01469 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01987  M01S01469.286l859 ---| CSP      SPACE  4,20
Line S00422 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01988  M01S00422.286l859 +++| CSP      SPACE  4,25
01989  M00S01470.pfam    +++|**        CSP - CHECK SELECTION PARAMETERS.
01990  M00S01471.pfam    +++|*
01991  M00S01472.pfam    +++|*         ENTRY  (X3) = CATALOG BLOCK CONTROL WORD SUB-TYPE CODE.
01992  M00S01473.pfam    +++|*                (X5) = CATALOG BLOCK WORD COUNT.
01993  M00S01474.pfam    +++|*
01994  M00S01475.pfam    +++|*         EXIT   (X6) .NE. 0 IF FILE TO BE PROCESSED.
01995  M00S01476.pfam    +++|*                CATALOG ENTRY CONVERTED TO 16 WORD FORMAT IF 8 WORD
01996  M00S01477.pfam    +++|*                  FORMAT.
Line S01478 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01997  M01S01478.286l859 ---|*                (PCOF) .NE. 0 IF *PFC ONLY* FILE.
Line S00423 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01998  M01S00423.286l859 +++|*                (FLST) = 0 IF NOT *PFC* ONLY FILE
01999  M01S00424.286l859 +++|*                (FLST) = 59/0, 1/1 IF *PFC ONLY* FILE.
02000  M00S01479.pfam    +++|*                (NFIS) = UPDATED FILE SELECTION COUNT.
02001  M00S01480.pfam    +++|*                TO *CUP* IF PARITY ERROR ON CATALOG READ.
Line S00425 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02002  M01S00425.286l859 +++|*                TO *EAF* IF ALL SELECTED FILES PROCESSED.
02003  M00S01481.pfam    +++|*
02004  M00S01482.pfam    +++|*         USES   X - 1, 2, 4, 5, 6, 7.
02005  M00S01483.pfam    +++|*                A - 1, 2, 5, 6, 7.
02006  M00S01484.pfam    +++|*
Line S01485 Modification History
M01 (Removed by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
02007  M01S01485.pfam5   ---|*         CALLS  CCE, CSP, CUP.
Line S00039 Modification History
M01 (Added by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
02008  M01S00039.pfam5   +++|*         CALLS  CCE, CSC, PPE.
02009  M00S01486.pfam    +++|*
02010  M00S01487.pfam    +++|*         MACROS READW.
02011  M00S01488.pfam    +++|
02012  M00S01489.pfam    +++|
02013  M00S01490.pfam    +++| CSP      SUBR               ENTRY/EXIT
02014  M00S01491.pfam    +++|          BX6    X6-X6
02015  M00S01492.pfam    +++|          NZ     X3,CSP1     IF NOT *PFC ONLY* FILE
02016  M00S01493.pfam    +++|          SX6    B1          SET *PFC ONLY* FILE FLAG
Line S01494 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02017  M01S01494.286l859 ---| CSP1     SA6    PCOF
Line S00426 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02018  M01S00426.286l859 +++| CSP1     SA6    FLST        INITIALIZE FILE STATUS
02019  M00S01495.pfam    +++|          BX6    X5          SAVE WORD COUNT
02020  M00S01496.pfam    +++|          SA6    CSPA
Line S01497 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02021  M01S01497.286l859 ---|          SX6    B0+         CLEAR FILE NAME FOR ERROR MESSAGES
02022  M01S01498.286l859 ---|          SA6    MPFN
02023  M00S01499.pfam    +++|          READW  TAPE,CATH,X5  READ CATALOG ENTRY
02024  M00S01500.pfam    +++|          RJ     PPE         PROCESS PARITY ERROR
02025  M00S01501.pfam    +++|          NZ     X6,CUP      IF PARITY ERROR ON CATALOG READ
02026  M00S01502.pfam    +++|
02027  M00S01503.pfam    +++|*         CHECK FORMAT OF CATALOG ENTRY.
02028  M00S01504.pfam    +++|
02029  M00S01505.pfam    +++|          SA5    CSPA        RESTORE WORD COUNT
02030  M00S01506.pfam    +++|          SX1    X5-NWCE
02031  M00S01507.pfam    +++|          ZR     X1,CSP2     IF CORRECT SIZE CATALOG ENTRY
02032  M00S01508.pfam    +++|          SX4    CATH
02033  M00S01509.pfam    +++|          RJ     CCE         CONVERT CATALOG ENTRY TO 16 WORD FORMAT
02034  M00S01510.pfam    +++|
02035  M00S01511.pfam    +++|*         CHECK SELECTIVE PARAMETERS.
02036  M00S01512.pfam    +++|
Line S01513 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02037  M01S01513.286l859 ---| CSP2     SB4    CATH        SET CATALOG ADDRESS
Line S00427 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02038  M01S00427.286l859 +++| CSP2     SA5    MXDC
02039  M01S00428.286l859 +++|          SA1    CATH+FCUI
02040  M01S00429.286l859 +++|          ZR     X5,CSP3     IF NO DEVICE POSITION INFORMATON
02041  M01S00430.286l859 +++|          MX2    -3
02042  M01S00431.286l859 +++|          BX2    -X2*X1      SUBFAMILY INDEX
02043  M01S00432.286l859 +++|          SA2    SFDT+X2
02044  M01S00433.286l859 +++|          LX1    -3
02045  M01S00434.286l859 +++|          SX6    X2+         CATALOG TRACK MASK
02046  M01S00435.286l859 +++|          BX2    -X6*X2      ARCHIVE FILE DEVICE ORDINAL
02047  M01S00436.286l859 +++|          BX1    X6*X1       CATALOG TRACK
02048  M01S00437.286l859 +++|          BX6    X2+X1
02049  M01S00438.286l859 +++|          IX6    X5-X6
02050  M01S00439.286l859 +++|          NG     X6,EAF      IF BEYOND HIGHEST SELECTED USER INDEX
02051  M01S00440.286l859 +++| CSP3     SB4    CATH        SET CATALOG ADDRESS
02052  M00S01514.pfam    +++|          RJ     CSC         CHECK SELECTION CRITERIA
02053  M00S01515.pfam    +++|          ZR     X6,CSPX     IF FILE NOT TO BE PROCESSED
02054  M00S01516.pfam    +++|          ZR     B6,CSPX     IF FILE NAME NOT FOUND
02055  M00S01517.pfam    +++|          SA1    B6+         READ FILE NAME SELECTION
02056  M00S01518.pfam    +++|          SA2    /COMSPFS/NFIS
02057  M00S01519.pfam    +++|          SX7    B1
02058  M00S01520.pfam    +++|          LX7    17-0
02059  M00S01521.pfam    +++|          BX7    X1+X7       MARK FILE NAME FOUND
02060  M00S01522.pfam    +++|          SA7    A1
02061  M00S01523.pfam    +++|          SX7    X2-1        DECREMENT SELECTION COUNT
02062  M00S01524.pfam    +++|          SA7    A2+
02063  M00S01525.pfam    +++|          EQ     CSPX        RETURN
02064  M00S01526.pfam    +++|
02065  M00S01527.pfam    +++|
02066  M00S01528.pfam    +++| CSPA     BSS    1           SAVE AREA FOR WORD COUNT
02067  M00S01529.pfam    +++| CSR      SPACE  4,15
02068  M00S01530.pfam    +++|**        CSR - CHECK FOR STAGE REQUEST FOR THIS FILE.
02069  M00S01531.pfam    +++|*
02070  M00S01532.pfam    +++|*         ENTRY  (CATH) = CATALOG ENTRY FOR CURRENT FILE ON TAPE.
02071  M00S01533.pfam    +++|*
02072  M00S01534.pfam    +++|*         EXIT   (X6) = 0, IF NO STAGE REQUEST FOUND FOR THIS FILE.
02073  M00S01535.pfam    +++|*                (X6) = (STRA) = ADDRESS OF STAGE REQUEST, IF FOUND.
02074  M00S01536.pfam    +++|*                (NSSR) INCREMENTED IF STAGE REQUEST FOUND.
02075  M00S01537.pfam    +++|*
02076  M00S01538.pfam    +++|*         USES   X - 0, 1, 2, 3, 6.
02077  M00S01539.pfam    +++|*                A - 1, 2, 3, 6.
02078  M00S01540.pfam    +++|*                B - 4, 5.
02079  M00S01541.pfam    +++|
02080  M00S01542.pfam    +++|
02081  M00S01543.pfam    +++| CSR      SUBR               ENTRY/EXIT
02082  M00S01544.pfam    +++|          SA1    SRQF
02083  M00S01545.pfam    +++|          SA2    SRQL
02084  M00S01546.pfam    +++|          SA3    CATH+FCTV   VSN / SEQUENCE NUMBER OF FILE ON TAPE
02085  M00S01547.pfam    +++|          SB4    X1
02086  M00S01548.pfam    +++|          SB5    X2
02087  M00S01549.pfam    +++|          MX0    -42
02088  M00S01550.pfam    +++|          BX6    X6-X6
02089  M00S01551.pfam    +++| CSR1     SB5    B5-/MTX/PFTBL  CHECK PREVIOUS ENTRY
02090  M00S01552.pfam    +++|          NG     B5,CSRX     IF ALL ENTRIES CHECKED
02091  M00S01553.pfam    +++|          SA1    B4+B5
02092  M00S01554.pfam    +++|          ZR     X1,CSR1     IF ENTRY ALREADY PROCESSED
02093  M00S01555.pfam    +++|          SA2    A1+B1       VSN / SEQUENCE NUMBER FROM STAGE REQUEST
02094  M00S01556.pfam    +++|          NG     X2,CSR1     IF ENTRY ALREADY SELECTED
02095  M00S01557.pfam    +++|          BX7    X2-X3
02096  M00S01558.pfam    +++|          BX7    -X0*X7
02097  M00S01559.pfam    +++|          NZ     X7,CSR1     IF NOT A MATCH
02098  M00S01560.pfam    +++|          MX7    1           SET *ENTRY ALREADY SELECTED* FLAG
02099  M00S01561.pfam    +++|          BX7    X2+X7
02100  M00S01562.pfam    +++|          SA7    A2
02101  M00S01563.pfam    +++|          SA2    NSSR        INCREMENT NUMBER OF REQUESTS SELECTED
02102  M00S01564.pfam    +++|          SX7    X2+B1
02103  M00S01565.pfam    +++|          SA7    A2
02104  M00S01566.pfam    +++|          SX6    A1          SAVE ADDRESS OF STAGE REQUEST
02105  M00S01567.pfam    +++|          SA6    STRA
02106  M00S01568.pfam    +++|          EQ     CSRX        RETURN
Line S00441 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02107  M01S00441.286l859 +++| IFM      SPACE  4,10
02108  M01S00442.286l859 +++|**        IFM - ISSUE FILE COUNT MESSAGES.
02109  M01S00443.286l859 +++|*
02110  M01S00444.286l859 +++|*         EXIT   FILE COUNT MESSAGES ISSUED TO DAYFILE.
02111  M01S00445.286l859 +++|*
02112  M01S00446.286l859 +++|*         USES   X - 1, 5, 6.
02113  M01S00447.286l859 +++|*                A - 1, 5.
02114  M01S00448.286l859 +++|*
02115  M01S00449.286l859 +++|*         CALLS  IFC.
02116  M01S00450.286l859 +++|
02117  M01S00451.286l859 +++|
02118  M01S00452.286l859 +++| IFM      SUBR               ENTRY/EXIT
02119  M01S00453.286l859 +++|          SA1    /COMSPFS/UTLC
02120  M01S00454.286l859 +++|          SA5    IFMC
02121  M01S00455.286l859 +++|          SX6    X1-/COMSPFS/RSUT
02122  M01S00456.286l859 +++|          ZR     X6,IFM1     IF *PFRES*
02123  M01S00457.286l859 +++|          SA5    IFMB
02124  M01S00458.286l859 +++|          SX6    X1-/COMSPFS/COUT
02125  M01S00459.286l859 +++|          ZR     X6,IFM1     IF *PFCOPY*
02126  M01S00460.286l859 +++|          SA5    IFMA
02127  M01S00461.286l859 +++| IFM1     RJ     IFC         ISSUE FILE COUNT MESSAGES
02128  M01S00462.286l859 +++|          EQ     IFMX        RETURN
02129  M01S00463.286l859 +++|
02130  M01S00464.286l859 +++|
02131  M01S00465.286l859 +++| IFMA     BSS    0           *PFATC* MESSAGE TABLE
02132  M01S00466.286l859 +++|          VFD    1/1,1/1,22/0,18/MSFA,18/PRFC
02133  M01S00467.286l859 +++|          CON    0           END OF TABLE
02134  M01S00468.286l859 +++|
02135  M01S00469.286l859 +++| IFMB     BSS    0           *PFCOPY* MESSAGE TABLE
02136  M01S00470.286l859 +++|          VFD    1/1,1/1,22/0,18/MSFO,18/PRFC
02137  M01S00471.286l859 +++|          CON    0           END OF TABLE
02138  M01S00472.286l859 +++|
02139  M01S00473.286l859 +++| IFMC     BSS    0           *PFRES*  MESSAGE TABLE
02140  M01S00474.286l859 +++|          VFD    1/1,1/1,22/0,18/MSFR,18/PRFC
02141  M01S00475.286l859 +++|          CON    0           END OF TABLE
Line S01569 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02142  M01S01569.ns2673  ---| ISM      SPACE  4,15
Line S00033 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02143  M01S00033.ns2673  +++| ISM      SPACE  4,20
02144  M00S01570.pfam    +++|**        ISM - ISSUE STATISTICAL MESSAGE.
02145  M00S01571.pfam    +++|*
Line S01572 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02146  M01S01572.ns2673  ---|*         ENTRY  (STRA) = FWA OF STAGE REQUEST.
Line S00034 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02147  M01S00034.ns2673  +++|*         ENTRY  (X5) = FWA OF STAGE REQUEST.
02148  M01S00035.ns2673  +++|*                (B5) = NEGATIVE ADDRESS OF MESSAGE TEMPLATE.
02149  M00S01573.pfam    +++|*
Line S01574 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02150  M01S01574.ns2673  ---|*         USES   X -  0, 1, 5, 6.
02151  M01S01575.ns2673  ---|*                A -  1, 5.
02152  M01S01576.ns2673  ---|*                B -  2, 3, 5.
Line S00036 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02153  M01S00036.ns2673  +++|*         EXIT   MESSAGE ISSUED TO ACCOUNT FILE.
02154  M01S00037.ns2673  +++|*
02155  M01S00038.ns2673  +++|*         USES   X - 0, 1, 6.
02156  M01S00039.ns2673  +++|*                A - 1.
02157  M01S00040.ns2673  +++|*                B - 2, 3, 5.
02158  M00S01577.pfam    +++|*
02159  M00S01578.pfam    +++|*         CALLS  CDD, COD, SNM.
02160  M00S01579.pfam    +++|*
02161  M00S01580.pfam    +++|*         MACROS MESSAGE.
02162  M00S01581.pfam    +++|
02163  M00S01582.pfam    +++|
02164  M00S01583.pfam    +++| ISM      SUBR               ENTRY/EXIT
Line S01584 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02165  M01S01584.ns2673  ---|          SA5    STRA
02166  M00S01585.pfam    +++|          SA1    X5+2        GET PERMANENT FILE NAME
02167  M00S01586.pfam    +++|          MX0    42
02168  M00S01587.pfam    +++|          BX1    X0*X1
02169  M00S01588.pfam    +++|          SB3    ISMB
Line S01589 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02170  M01S01589.ns2673  ---|          SB5    -ISMA
02171  M00S01590.pfam    +++|          SB2    1R#
02172  M00S01591.pfam    +++|          RJ     SNM         SET PERMANENT FILE NAME INTO MESSAGE
02173  M00S01592.pfam    +++|          SA1    X5+2        GET USER INDEX
02174  M00S01593.pfam    +++|          BX1    -X0*X1
02175  M00S01594.pfam    +++|          RJ     COD         CONVERT TO OCTAL DISPLAY
02176  M00S01595.pfam    +++|          SB2    B2-B1
02177  M00S01596.pfam    +++|          MX1    1           GENERATE CHARACTER MASK
02178  M00S01597.pfam    +++|          AX1    B2
02179  M00S01598.pfam    +++|          BX1    X1*X4       REMOVE SPACES SPACES
02180  M00S01599.pfam    +++|          SB5    ISMB
02181  M00S01600.pfam    +++|          SB2    1R$
02182  M00S01601.pfam    +++|          RJ     SNM         SET USER INDEX INTO MESSAGE
02183  M00S01602.pfam    +++|          SA1    X5+4        GET FAMILY/PACK NAME
02184  M00S01603.pfam    +++|          BX1    X0*X1
02185  M00S01604.pfam    +++|          SB2    1R&
02186  M00S01605.pfam    +++|          RJ     SNM         SET FAMILY/PACK NAME INTO MESSAGE
02187  M00S01606.pfam    +++|          SA1    SVSN        GET VSN
02188  M00S01607.pfam    +++|          SB2    1R-
02189  M00S01608.pfam    +++|          RJ     SNM         SET VSN INTO MESSAGE
02190  M00S01609.pfam    +++|          SA1    X5+7        GET RETRY COUNT
02191  M00S01610.pfam    +++|          AX1    36
02192  M00S01611.pfam    +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
02193  M00S01612.pfam    +++|          MX0    -6          MASK TO ONE DIGIT
02194  M00S01613.pfam    +++|          BX1    -X0*X6
02195  M00S01614.pfam    +++|          LX1    -6          LEFT JUSTIFY
02196  M00S01615.pfam    +++|          SB2    1R=
02197  M00S01616.pfam    +++|          RJ     SNM         SET RETRY COUNT INTO MESSAGE
Line S01617 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02198  M01S01617.ns2673  ---|          MESSAGE  ISMB,5    ISSUE STATISTICAL MESSAGE TO ACCOUNT FILE
Line S00041 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02199  M01S00041.ns2673  +++|          MESSAGE  ISMB,5,R  ISSUE STATISTICAL MESSAGE TO ACCOUNT FILE
02200  M00S01618.pfam    +++|          EQ     ISMX        RETURN
02201  M00S01619.pfam    +++|
02202  M00S01620.pfam    +++|
02203  M00S01621.pfam    +++| ISMA     DATA   C*STES, #######, $$$$$$, &&&&&&&, ------, =.*
02204  M00S01622.pfam    +++|*         DATA   C*STES, FILENAM, USERIN, FAMPACK, VSNVSN, R.*
02205  M00S01623.pfam    +++| ISMAL    EQU    *-ISMA      LENGTH OF MESSAGE
02206  M00S01624.pfam    +++| ISMB     BSS    ISMAL       MESSAGE ASSEMBLY BUFFER
Line S00042 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02207  M01S00042.ns2673  +++| ISMC     DATA   C*STAS, #######, $$$$$$, &&&&&&&, ------, =.*
02208  M01S00043.ns2673  +++|*         DATA   C*STAS, FILENAM, USERIN, FAMPACK, VSNVSN, R.*
02209  M01S00044.ns2673  +++|          ERRNZ  *-ISMC-ISMAL  MESSAGE TEMPLATES MUST BE SAME LENGTH
02210  M00S01625.pfam    +++| PPE      SPACE  4,20
02211  M00S01626.pfam    +++|**        PPE - PROCESS PARITY ERROR.
02212  M00S01627.pfam    +++|*
02213  M00S01628.pfam    +++|*         ENTRY  WHENEVER INPUT FILE IS READ.
Line S01629 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02214  M01S01629.286l859 ---|*                (MPFN) = 0 IF FILE NOT BEING PROCESSED.
02215  M01S01630.286l859 ---|*                (MPFN) = FILE NAME IF FILE BEING PROCESSED.
02216  M01S01631.286l859 ---|*                (MPUI) = USER INDEX IF FILE BEING PROCESSED.
02217  M00S01632.pfam    +++|*                (STRA) = ADDRESS OF STAGE REQUEST, IF STAGING FILE.
02218  M00S01633.pfam    +++|*
02219  M00S01634.pfam    +++|*         EXIT   (X6) = NON-ZERO, IF PARITY ERROR.
02220  M00S01635.pfam    +++|*
Line S01636 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02221  M01S01636.ns2673  ---|*         USES   X - 3, 6.
02222  M01S01637.ns2673  ---|*                A - 3.
Line S00045 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02223  M02S00045.286l859 ---|*         USES   X - 1, 3, 6.
02224  M02S00046.286l859 ---|*                A - 1, 3, 6.
Line S00476 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02225  M01S00476.286l859 +++|*         USES   X - 1, 3, 5, 6.
02226  M01S00477.286l859 +++|*                A - 1, 3, 5, 6.
02227  M00S01638.pfam    +++|*
Line S01639 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02228  M01S01639.286l859 ---|*         CALLS  SEM, STE.
02229  M01S01640.286l859 ---|*
02230  M01S01641.286l859 ---|*         MACROS EDITS.
Line S00478 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02231  M01S00478.286l859 +++|*         CALLS  SFE, SRE, STE.
02232  M00S01642.pfam    +++|
02233  M00S01643.pfam    +++|
02234  M00S01644.pfam    +++| PPE      SUBR               ENTRY/EXIT
02235  M00S01645.pfam    +++|          BX6    X6-X6
02236  M00S01646.pfam    +++|          SA3    TAPE
02237  M00S01647.pfam    +++|          LX3    59-11
02238  M00S01648.pfam    +++|          PL     X3,PPEX     IF NO ERROR
Line S01649 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02239  M01S01649.286l859 ---|          SA3    MPFN        CHECK FILE BEING PROCESSED FLAG
02240  M01S01650.286l859 ---|          ZR     X3,PPE2     IF NO FILE NAME
Line S00479 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02241  M01S00479.286l859 +++|          SA1    FPRF
02242  M01S00480.286l859 +++|          ZR     X1,PPE2     IF NO FILE BEING PROCESSED
02243  M00S01651.pfam    +++|          SA1    /COMSPFS/UTLC
02244  M00S01652.pfam    +++|          SX1    X1-/COMSPFS/RSUT
Line S01653 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02245  M01S01653.286l859 ---|          NZ     X1,PPE1     IF NOT *PFRES*
02246  M01S01654.286l859 ---|          SX6    B1+         FORCE ERROR LOG MESSAGE
02247  M01S01655.286l859 ---|          SA6    ELFG
Line S00047 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02248  M02S00047.286l859 ---|          EDITS  MSFF,ERAP   * PFRES - PARITY ERROR FILE UI FAM.*
02249  M02S00048.286l859 ---|          EQ     PPE1.1      SEND ERROR MESSAGE
Line S00481 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02250  M01S00481.286l859 +++|          ZR     X1,PPE1     IF *PFRES*
02251  M01S00482.286l859 +++|          SA1    CATH+FCUI
02252  M01S00483.286l859 +++|          SB2    ERAR        * ARCHIVE FILE READ ERROR ...*
02253  M01S00484.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
02254  M01S00485.286l859 +++|          EQ     PPE2        SKIP TAPE ERROR
Line S00049 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02255  M01S00049.ns2673  +++|
Line S01656 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02256  M01S01656.286l859 ---| PPE1     EDITS  MSFN,ERAP   * PFUUUU - PARITY ERR FILE UI.*
Line S01657 Modification History
M01 (Removed by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02257  M02S01657.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
Line S00050 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02258  M02S00050.286l859 ---| PPE1.1   RJ     SEM         SEND ERROR MESSAGE
Line S00486 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02259  M01S00486.286l859 +++| PPE1     SA5    STRA        SET STAGE REQUEST ADDRESS
02260  M01S00487.286l859 +++|          SB2    ERRR        * ARCHIVE FILE READ ERROR ...*
02261  M01S00488.286l859 +++|          RJ     SRE         SEND ERROR MESSAGE
02262  M00S01658.pfam    +++|          SA1    STRA
Line S01659 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02263  M01S01659.286l859 ---|          ZR     X1,PPE2     IF NOT STAGING THIS FILE (*PFRES*)
02264  M00S01660.pfam    +++|          SA1    X1+7        SET *SELECT BACKUP VSN* BIT
02265  M00S01661.pfam    +++|          SX6    B1
02266  M00S01662.pfam    +++|          LX6    39-0
02267  M00S01663.pfam    +++|          BX6    X1+X6
02268  M00S01664.pfam    +++|          SA6    A1
02269  M00S01665.pfam    +++| PPE2     RJ     STE         SKIP TAPE ERROR
02270  M00S01666.pfam    +++|          SX6    B1
02271  M00S01667.pfam    +++|          EQ     PPEX        RETURN
Line S00040 Modification History
M01 (Added by) pfam5
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02272  M02S00040.286l859 ---| PPF      SPACE  4,10
02273  M02S00041.286l859 ---|**        PPF - PROCESS PREMATURE EOF.
Line S00489 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02274  M01S00489.286l859 +++| RIP      SPACE  4,10
02275  M01S00490.286l859 +++|**        RIP - REPRIEVE INTERRUPT PROCESSOR.
Line S00042 Modification History
M01 (Added by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
02276  M01S00042.pfam5   +++|*
Line S00043 Modification History
M01 (Added by) pfam5
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02277  M02S00043.286l859 ---|*         EXIT   TO *ABT*.
Line S00491 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02278  M01S00491.286l859 +++|*         EXIT   BUSY FETS SET COMPLETE TO ALLOW TERMINATION
02279  M01S00492.286l859 +++|*                  PROCESSING.
Line S00044 Modification History
M01 (Added by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
02280  M01S00044.pfam5   +++|*
Line S00045 Modification History
M01 (Added by) pfam5
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02281  M02S00045.286l859 ---|*         USES   X - 1, 5, 6.
02282  M02S00046.286l859 ---|*                A - 1, 6.
02283  M02S00047.286l859 ---|*
02284  M02S00048.286l859 ---|*         CALLS  SEM.
Line S00493 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02285  M01S00493.286l859 +++|*         MACROS COMPFET.
Line S00049 Modification History
M01 (Added by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
02286  M01S00049.pfam5   +++|
02287  M01S00050.pfam5   +++|
Line S00051 Modification History
M01 (Added by) pfam5
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02288  M02S00051.286l859 ---| PPF      BSS    0           ENTRY
Line S00494 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02289  M01S00494.286l859 +++| RIP      SUBR               ENTRY/EXIT
Line S00052 Modification History
M01 (Added by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
02290  M01S00052.pfam5   +++|          SA1    /COMSPFS/UTLC
02291  M01S00053.pfam5   +++|          SX1    X1-/COMSPFS/RSUT
Line S00054 Modification History
M01 (Added by) pfam5
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02292  M02S00054.286l859 ---|          NZ     X1,PPF1     IF NOT *PFRES*
02293  M02S00055.286l859 ---|          SX6    B1+         FORCE ERROR LOG MESSAGE
02294  M02S00056.286l859 ---|          SA6    ELFG
02295  M02S00057.286l859 ---| PPF1     SX5    ERPE        * PFUUUUU - PREMATURE EOF DETECTED.*
02296  M02S00058.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
02297  M02S00059.286l859 ---|          EQ     ABT         ABORT
Line S00495 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02298  M01S00495.286l859 +++|          ZR     X1,RIP1     IF *PFRES*
02299  M01S00496.286l859 +++|          COMPFET  (O,SU)
02300  M01S00497.286l859 +++|          EQ     RIPX        RETURN
02301  M01S00498.286l859 +++|
02302  M01S00499.286l859 +++| RIP1     COMPFET  (F,T,R)
02303  M01S00500.286l859 +++|          EQ     RIPX        RETURN
Line S01668 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02304  M01S01668.ns2673  ---| RUR      SPACE  4,10
Line S00051 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02305  M01S00051.ns2673  +++| RUR      SPACE  4,20
02306  M00S01669.pfam    +++|**        RUR - REQUEUE UNPROCESSED STAGE REQUESTS.
02307  M00S01670.pfam    +++|*
02308  M00S01671.pfam    +++|*         EXIT   UNPROCESSED STAGE REQUESTS REQUEUED.
Line S00052 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02309  M01S00052.ns2673  +++|*                STAGE REQUESTS AT RETRY LIMIT ABANDONED, WITH
02310  M01S00053.ns2673  +++|*                  ACCOUNT FILE AND DAYFILE/ERRLOG MESSAGES ISSUED.
02311  M00S01672.pfam    +++|*
Line S01673 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02312  M01S01673.ns2673  ---|*         USES   X - 1, 2, 6, 7.
Line S00054 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02313  M01S00054.ns2673  +++|*         USES   X - 1, 2, 5, 6, 7.
02314  M00S01674.pfam    +++|*                A - 1, 2, 6.
Line S01675 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02315  M01S01675.ns2673  ---|*                B - 4, 5.
Line S00055 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02316  M01S00055.ns2673  +++|*                B - 5.
02317  M00S01676.pfam    +++|*
Line S01677 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02318  M01S01677.ns2673  ---|*         CALLS  RSR.
Line S00056 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02319  M02S00056.286l859 ---|*         CALLS  ISM, /MTX/RSR, SEM, SMP.
02320  M02S00057.286l859 ---|*
02321  M02S00058.286l859 ---|*         MACROS EDITS.
Line S00501 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02322  M01S00501.286l859 +++|*         CALLS  ISM, /MTX/RSR, SEM.
02323  M00S01678.pfam    +++|
02324  M00S01679.pfam    +++|
02325  M00S01680.pfam    +++| RUR      SUBR               ENTRY/EXIT
Line S01681 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02326  M01S01681.ns2673  ---|          SA1    SRQF
02327  M01S01682.ns2673  ---|          SA2    SRQL
02328  M01S01683.ns2673  ---|          SB4    X1
02329  M01S01684.ns2673  ---|          SB5    X2
02330  M01S01685.ns2673  ---| RUR1     SB5    B5-/MTX/PFTBL  CHECK PREVIOUS ENTRY
Line S01686 Modification History
M01 (Removed by) pfam1
M02 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02331  M02S01686.ns2673  ---|          LE     B5,B0,RURX  IF ALL ENTRIES CHECKED
Line S00001 Modification History
M01 (Added by) pfam1
M02 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02332  M02S00001.ns2673  ---|          LT     B5,B0,RURX  IF ALL ENTRIES CHECKED
Line S01687 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02333  M01S01687.ns2673  ---|          SA1    B4+B5
02334  M01S01688.ns2673  ---|          ZR     X1,RUR1     IF ENTRY PROCESSED
Line S00059 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02335  M01S00059.ns2673  +++|          SA1    SRQL        SET UP INDEX
02336  M01S00060.ns2673  +++|          BX6    X1
02337  M01S00061.ns2673  +++|          SA6    RURA
02338  M01S00062.ns2673  +++| RUR1     SA1    RURA        CHECK PREVIOUS ENTRY
02339  M01S00063.ns2673  +++|          SX6    X1-/MTX/PFTBL
02340  M01S00064.ns2673  +++|          SA6    A1
02341  M01S00065.ns2673  +++|          NG     X6,RURX     IF NO MORE ENTRIES TO CHECK
02342  M01S00066.ns2673  +++|          SA2    SRQF
02343  M01S00067.ns2673  +++|          IX2    X2+X6
02344  M01S00068.ns2673  +++|          SA1    X2          GET ENTRY
02345  M01S00069.ns2673  +++|          ZR     X1,RUR1     IF ENTRY NOT UNPROCESSED
02346  M00S01689.pfam    +++|          SA2    A1+B1       CLEAR *REQUEST SELECTED* FLAG IN ENTRY
02347  M00S01690.pfam    +++|          MX6    -59
Line S01691 Modification History
M01 (Removed by) pfam1
Seq #  *Modification Id* Act 
----------------------------+
02348  M01S01691.pfam1   ---|          BX6    -X6*X1
Line S00002 Modification History
M01 (Added by) pfam1
Seq #  *Modification Id* Act 
----------------------------+
02349  M01S00002.pfam1   +++|          BX6    -X6*X2
02350  M00S01692.pfam    +++|          SA6    A2
02351  M00S01693.pfam    +++|          SA2    A1+7        CHECK RETRY COUNT
02352  M00S01694.pfam    +++|          MX6    -3
02353  M00S01695.pfam    +++|          LX2    -36
02354  M00S01696.pfam    +++|          BX6    -X6*X2
Line S01697 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02355  M01S01697.ns2673  ---|          SX7    X6-7
02356  M01S01698.ns2673  ---|          ZR     X7,RUR2     IF ALREADY AT MAXIMUM RETRY COUNT
Line S00070 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02357  M01S00070.ns2673  +++|          SX7    X6-/MTX/SRRM
02358  M01S00071.ns2673  +++|          NG     X7,RUR2     IF MORE RETRIES ALLOWED
02359  M01S00072.ns2673  +++|          SB5    -ISMC       ISSUE *STAS* MESSAGE TO ACCOUNT FILE
Line S00073 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02360  M02S00073.286l859 ---|          SX5    A1
Line S00502 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02361  M01S00502.286l859 +++|          SX5    A1          SET STAGE REQUEST ADDRESS
Line S00074 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02362  M01S00074.ns2673  +++|          RJ     ISM
Line S00075 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02363  M02S00075.286l859 ---|          RJ     SMP         SET MESSAGE PARAMETERS
02364  M02S00076.286l859 ---|          SX6    B1+         FORCE ERROR LOG MESSAGE
02365  M02S00077.286l859 ---|          SA6    ELFG
02366  M02S00078.286l859 ---|          EDITS  MSFF,ERSA   * PFRES - STAGE ABANDONED*
02367  M02S00079.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
Line S00503 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02368  M01S00503.286l859 +++|          SB2    ERSA        * STAGE ABANDONED ...*
02369  M01S00504.286l859 +++|          RJ     SRE         SEND ERROR MESSAGE
Line S00080 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02370  M01S00080.ns2673  +++|          EQ     RUR1        CHECK NEXT QUEUE ENTRY
02371  M01S00081.ns2673  +++|
02372  M01S00082.ns2673  +++| RUR2     SX7    X6-7
02373  M01S00083.ns2673  +++|          ZR     X7,RUR3     IF RETRY COUNT ALREADY AT MAXIMUM
02374  M00S01699.pfam    +++|          SX6    B1          INCREMENT RETRY COUNT
02375  M00S01700.pfam    +++|          IX6    X2+X6
02376  M00S01701.pfam    +++|          LX6    36
02377  M00S01702.pfam    +++|          SA6    A2
Line S01703 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02378  M01S01703.ns2673  ---| RUR2     RJ     /MTX/RSR    REQUEUE STAGE REQUEST
Line S00084 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02379  M01S00084.ns2673  +++| RUR3     RJ     /MTX/RSR    REQUEUE STAGE REQUEST
02380  M00S01704.pfam    +++|          EQ     RUR1        CHECK NEXT QUEUE ENTRY
Line S00085 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02381  M01S00085.ns2673  +++|
02382  M01S00086.ns2673  +++|
02383  M01S00087.ns2673  +++| RURA     CON    0           INDEX OF CURRENT ENTRY
02384  M00S01705.pfam    +++| SAF      SPACE  4,10
02385  M00S01706.pfam    +++|**        SAF - SET ACCESS LEVEL IN FET.
02386  M00S01707.pfam    +++|*
02387  M00S01708.pfam    +++|*         ENTRY  (CATH) = CATALOG ENTRY FOR FILE (FROM TAPE).
02388  M00S01709.pfam    +++|*                (STRA) = ADDRESS OF STAGE REQUEST FOR FILE (*PFRES*).
02389  M00S01710.pfam    +++|*
02390  M00S01711.pfam    +++|*         EXIT   ACCESS LEVEL SET IN FET.
02391  M00S01712.pfam    +++|*
02392  M00S01713.pfam    +++|*         USES   X - 0, 1, 2, 6.
02393  M00S01714.pfam    +++|*                A - 1, 2, 6.
02394  M00S01715.pfam    +++|
02395  M00S01716.pfam    +++|
02396  M00S01717.pfam    +++| SAF      SUBR               ENTRY/EXIT
02397  M00S01718.pfam    +++|          SA2    CATH+FCAL   GET ACCESS LEVEL FROM CATALOG ENTRY
02398  M00S01719.pfam    +++|          SA1    /COMSPFS/UTLC  CHECK UTILITY CODE
02399  M00S01720.pfam    +++|          SX1    X1-/COMSPFS/RSUT
02400  M00S01721.pfam    +++|          NZ     X1,SAF1     IF NOT *PFRES*
02401  M00S01722.pfam    +++|          SA1    STRA        GET ACCESS LEVEL FROM STAGE REQUEST
02402  M00S01723.pfam    +++|          SA2    X1
02403  M00S01724.pfam    +++|          LX2    36-51
02404  M00S01725.pfam    +++| SAF1     MX0    -3
02405  M00S01726.pfam    +++|          LX0    36
02406  M00S01727.pfam    +++|          BX2    -X0*X2      FILE ACCESS LEVEL
02407  M00S01728.pfam    +++|          SA1    F+4
02408  M00S01729.pfam    +++|          BX1    X0*X1
02409  M00S01730.pfam    +++|          BX6    X1+X2       SET ACCESS LEVEL IN FET
02410  M00S01731.pfam    +++|          SA6    A1
02411  M00S01732.pfam    +++|          EQ     SAFX        RETURN
02412  M00S01733.pfam    +++| SER      SPACE  4,10
02413  M00S01734.pfam    +++|**        SER - SKIP TO EOR.
02414  M00S01735.pfam    +++|*
02415  M00S01736.pfam    +++|*         EXIT   ARCHIVE FILE POSITIONED AT PHYSICAL EOR.
02416  M00S01737.pfam    +++|*
02417  M00S01738.pfam    +++|*         CALLS  PPE, RCW.
02418  M00S01739.pfam    +++|*
Line S01740 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02419  M01S01740.274l797 ---|*         MACROS READW.
Line S00013 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02420  M01S00013.274l797 +++|*         MACROS SKIPW.
02421  M00S01741.pfam    +++|
02422  M00S01742.pfam    +++|
02423  M00S01743.pfam    +++| SER      SUBR               ENTRY/EXIT
02424  M00S01744.pfam    +++| SER1     RJ     RCW         READ CONTROL WORD
02425  M00S01745.pfam    +++|          NG     X3,SERX     IF EOR
02426  M00S01746.pfam    +++|          ZR     X5,SER1     IF ZERO WORD COUNT
Line S01747 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02427  M01S01747.274l797 ---|          READW  TAPE,DBUF,X5
Line S00014 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02428  M01S00014.274l797 +++|          SKIPW  TAPE,X5     SKIP WORDS
02429  M00S01748.pfam    +++|          RJ     PPE         PROCESS PARITY ERROR
02430  M00S01749.pfam    +++|          ZR     X6,SER1     IF NO ERROR
02431  M00S01750.pfam    +++|          EQ     SERX
Line S00088 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02432  M02S00088.286l859 ---| SMP      SPACE  4,15
02433  M02S00089.286l859 ---|**        SMP - SET MESSAGE PARAMETERS.
Line S00505 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02434  M01S00505.286l859 +++| SRE      SPACE  4,15
02435  M01S00506.286l859 +++|**        SRE - SEND STAGE REQUEST ERROR MESSAGE.
Line S00090 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02436  M01S00090.ns2673  +++|*
Line S00091 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02437  M02S00091.286l859 ---|*         ENTRY  (X5) = ADDRESS OF STAGE REQUEST.
Line S00507 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02438  M01S00507.286l859 +++|*         ENTRY  (X5) = STAGE REQUEST ADDRESS.
02439  M01S00508.286l859 +++|*                (B2) = ERROR MESSAGE SKELETON ADDRESS.
Line S00092 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02440  M01S00092.ns2673  +++|*
Line S00093 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02441  M02S00093.286l859 ---|*         EXIT   (MPFN) = FILE NAME.
02442  M02S00094.286l859 ---|*                (MPUI) = USER INDEX.
02443  M02S00095.286l859 ---|*                (MPFM) = FAMILY NAME.
02444  M02S00096.286l859 ---|*                (MPEQ) = EST ORDINAL OF MASTER DEVICE.
02445  M02S00097.286l859 ---|*                (MPDN) = DEVICE NUMBER OF MASTER DEVICE.
Line S00509 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02446  M01S00509.286l859 +++|*         EXIT   MESSAGE ISSUED.
Line S00098 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02447  M01S00098.ns2673  +++|*
Line S00099 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02448  M02S00099.286l859 ---|*         USES   X - 0, 1, 2, 6, 7.
02449  M02S00100.286l859 ---|*                A - 1, 2, 6, 7.
Line S00510 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02450  M01S00510.286l859 +++|*         USES   X - 1, 6.
02451  M01S00511.286l859 +++|*                A - 1.
02452  M01S00512.286l859 +++|*                B - 2, 5.
02453  M01S00513.286l859 +++|*
02454  M01S00514.286l859 +++|*         CALLS  SEM, SFU, SNM.
Line S00101 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02455  M01S00101.ns2673  +++|
02456  M01S00102.ns2673  +++|
Line S00103 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02457  M02S00103.286l859 ---| SMP      SUBR               ENTRY/EXIT
Line S00515 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02458  M01S00515.286l859 +++| SRE      SUBR               ENTRY/EXIT
Line S00104 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02459  M01S00104.ns2673  +++|          SA1    X5+2        GET FILE NAME AND USER INDEX
Line S00105 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02460  M02S00105.286l859 ---|          SA2    X5+4        GET FAMILY NAME AND EST ORDINAL
02461  M02S00106.286l859 ---|          MX0    42
02462  M02S00107.286l859 ---|          BX6    X0*X1
02463  M02S00108.286l859 ---|          SA6    MPFN        SET FILE NAME
02464  M02S00109.286l859 ---|          BX7    X0*X2
02465  M02S00110.286l859 ---|          BX6    -X0*X1
02466  M02S00111.286l859 ---|          SA7    MPFM        SET FAMILY NAME
02467  M02S00112.286l859 ---|          SA6    MPUI        SET USER INDEX
02468  M02S00113.286l859 ---|          MX0    -9
02469  M02S00114.286l859 ---|          BX7    -X0*X2
02470  M02S00115.286l859 ---|          SA7    MPEQ        SET EST ORDINAL
02471  M02S00116.286l859 ---|          SA1    X5          GET DEVICE NUMBER
02472  M02S00117.286l859 ---|          LX1    -24
02473  M02S00118.286l859 ---|          MX0    -6
02474  M02S00119.286l859 ---|          BX7    -X0*X1
02475  M02S00120.286l859 ---|          SA7    MPDN        SET DEVICE NUMBER
02476  M02S00121.286l859 ---|          EQ     SMPX        RETURN
Line S00516 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02477  M01S00516.286l859 +++|          RJ     SFU         SET FILE NAME AND USER INDEX IN MESSAGE
02478  M01S00517.286l859 +++|          SA1    X5+4
02479  M01S00518.286l859 +++|          MX6    42
02480  M01S00519.286l859 +++|          BX1    X6*X1       FAMILY NAME
02481  M01S00520.286l859 +++|          SB2    1R+
02482  M01S00521.286l859 +++|          SB5    MSGB
02483  M01S00522.286l859 +++|          RJ     SNM         SET FAMILY NAME IN MESSAGE
02484  M01S00523.286l859 +++|          SB2    MSGB        SET MESSAGE ADDRESS
02485  M01S00524.286l859 +++|          RJ     SEM         SEND ERROR MESSAGE
02486  M01S00525.286l859 +++|          EQ     SREX        RETURN
02487  M00S01751.pfam    +++| SSR      SPACE  4,10
02488  M00S01752.pfam    +++|**        SSR - SETUP *PFM* SPECIAL REQUEST BLOCK.
02489  M00S01753.pfam    +++|*
02490  M00S01754.pfam    +++|*         ENTRY  (STRA) = ADDRESS OF STAGE REQUEST ENTRY.
02491  M00S01755.pfam    +++|*
02492  M00S01756.pfam    +++|*         EXIT   *PFM* SPECIAL REQUEST BLOCK BUILT.
02493  M00S01757.pfam    +++|*
02494  M00S01758.pfam    +++|*         USES   X - 1, 3, 6, 7.
02495  M00S01759.pfam    +++|*                A - 1, 3, 6.
02496  M00S01760.pfam    +++|
02497  M00S01761.pfam    +++|
02498  M00S01762.pfam    +++| SSR      SUBR               ENTRY/EXIT
02499  M00S01763.pfam    +++|          SA3    STRA        GET STAGE REQUEST
02500  M00S01764.pfam    +++|          SA1    X3          SET PEO, DN, TRACK AND SECTOR
02501  M00S01765.pfam    +++|          MX6    -32
02502  M00S01766.pfam    +++|          BX6    -X6*X1
02503  M00S01767.pfam    +++|          SA6    SRB+0
02504  M00S01768.pfam    +++|          SA1    A1+B1       SET ALTERNATE STORAGE INFORMATION
02505  M00S01769.pfam    +++|          MX6    -42
02506  M00S01770.pfam    +++|          SX7    B1
02507  M00S01771.pfam    +++|          BX6    -X6*X1
02508  M00S01772.pfam    +++|          LX7    42-0        SET TAPE ALTERNATE STORAGE BIT
02509  M00S01773.pfam    +++|          BX6    X6+X7
02510  M00S01774.pfam    +++|          SA6    A6+B1
02511  M00S01775.pfam    +++|          SA1    X3+5        SET CREATION DATE AND TIME
02512  M00S01776.pfam    +++|          MX6    -36
02513  M00S01777.pfam    +++|          BX6    -X6*X1
02514  M00S01778.pfam    +++|          SA6    A6+B1
02515  M00S01779.pfam    +++|          SA1    A1-B1       SET FAMILY AND USER INDEX
02516  M00S01780.pfam    +++|          MX7    42
02517  M00S01781.pfam    +++|          BX6    X7*X1
02518  M00S01782.pfam    +++|          SA1    X3+2
02519  M00S01783.pfam    +++|          BX7    -X7*X1
02520  M00S01784.pfam    +++|          BX6    X6+X7
02521  M00S01785.pfam    +++|          SA6    A6+B1
02522  M00S01786.pfam    +++|          EQ     SSRX        RETURN
02523  M00S01787.pfam    +++| STE      SPACE  4,10
02524  M00S01788.pfam    +++|**        STE - SKIP TAPE ERROR.
02525  M00S01789.pfam    +++|*
02526  M00S01790.pfam    +++|*         ENTRY  PARITY ERROR ENCOUNTERED.
02527  M00S01791.pfam    +++|*
02528  M00S01792.pfam    +++|*         EXIT   EOR DETECTED.
02529  M00S01793.pfam    +++|*                TO *EAF* IF EOF DETECTED.
Line S01794 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02530  M01S01794.286l859 ---|*                (AFER) .NE. 0.
02531  M00S01795.pfam    +++|*
02532  M00S01796.pfam    +++|*         MACROS READ, READW, RECALL.
02533  M00S01797.pfam    +++|
02534  M00S01798.pfam    +++|
02535  M00S01799.pfam    +++| STE      SUBR               ENTRY/EXIT
Line S01800 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02536  M01S01800.286l859 ---|          SX6    1           SET ARCHIVE FILE ERROR FLAG
02537  M01S01801.286l859 ---|          SA6    AFER
02538  M00S01802.pfam    +++| STE1     RECALL TAPE
02539  M00S01803.pfam    +++|          READW  TAPE,DBUF,DBUFL
02540  M00S01804.pfam    +++|          NG     X1,EAF      IF EOF ENCOUNTERED
02541  M00S01805.pfam    +++|          ZR     X1,STE1     IF NOT EOR
02542  M00S01806.pfam    +++|          READ   TAPE,R
02543  M00S01807.pfam    +++|          EQ     STEX        RETURN
02544  M00S01808.pfam    +++| VCE      SPACE  4,15
02545  M00S01809.pfam    +++|**        VCE - VERIFY CATALOG ENTRY FIELDS.
02546  M00S01810.pfam    +++|*
Line S01811 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02547  M01S01811.ns2673  ---|*         ENTRY  (X6) = ADDRESS OF STAGE REQUEST ENTRY.
Line S00122 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02548  M02S00122.286l859 ---|*         ENTRY  (X5) = ADDRESS OF STAGE REQUEST ENTRY.
Line S00526 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02549  M01S00526.286l859 +++|*         ENTRY  (STRA) = ADDRESS OF STAGE REQUEST ENTRY.
02550  M00S01812.pfam    +++|*                (CATH) = CATALOG ENTRY FROM TAPE.
02551  M00S01813.pfam    +++|*
02552  M00S01814.pfam    +++|*         EXIT   (X6) = 0, IF STAGE REQUEST MATCHES PFC ON TAPE.
02553  M00S01815.pfam    +++|*
Line S01816 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02554  M01S01816.286l859 ---|*         USES   X - 1, 2, 6.
Line S01817 Modification History
M01 (Removed by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02555  M02S01817.286l859 ---|*                A - 1, 2.
Line S00123 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02556  M02S00123.286l859 ---|*                A - 1, 2, 6.
Line S00527 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02557  M01S00527.286l859 +++|*         USES   X - 1, 2, 5, 6.
02558  M01S00528.286l859 +++|*                A - 1, 2, 5, 6.
02559  M00S01818.pfam    +++|*
Line S01819 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02560  M01S01819.286l859 ---|*         CALLS  SEM.
Line S00124 Modification History
M01 (Added by) ns2673
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02561  M02S00124.286l859 ---|*
02562  M02S00125.286l859 ---|*         MACROS EDITS.
Line S00529 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02563  M01S00529.286l859 +++|*         CALLS  SRE.
02564  M00S01820.pfam    +++|
02565  M00S01821.pfam    +++|
02566  M00S01822.pfam    +++| VCE      SUBR               ENTRY/EXIT
Line S01823 Modification History
M01 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02567  M01S01823.ns2673  ---|          SA1    X6          VERIFY ACCESS LEVEL
Line S00126 Modification History
M01 (Added by) ns2673
M02 (Removed by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02568  M02S00126.pfam7   ---|          SA1    X5          VERIFY ACCESS LEVEL
Line S01824 Modification History
M01 (Removed by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02569  M01S01824.pfam7   ---|          SA2    CATH+FCAL
02570  M01S01825.pfam7   ---|          LX1    -51
02571  M01S01826.pfam7   ---|          LX2    -36
02572  M01S01827.pfam7   ---|          BX1    X1-X2
02573  M01S01828.pfam7   ---|          MX2    -3
Line S01829 Modification History
M01 (Removed by) ns2673
M02 (Removed by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02574  M02S01829.pfam7   ---|          BX1    -X2*X1
Proceed to Part 2