User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:pfam.002

Deck PFAM Part 002

12 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S01630 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02215  M02S01630.286l859 ---|*                (MPFN) = FILE NAME IF FILE BEING PROCESSED.
Line S01631 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02216  M02S01631.286l859 ---|*                (MPUI) = USER INDEX IF FILE BEING PROCESSED.
02217  M01S01632.pfam    +++|*                (STRA) = ADDRESS OF STAGE REQUEST, IF STAGING FILE.
02218  M01S01633.pfam    +++|*
02219  M01S01634.pfam    +++|*         EXIT   (X6) = NON-ZERO, IF PARITY ERROR.
02220  M01S01635.pfam    +++|*
Line S01636 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02221  M02S01636.ns2673  ---|*         USES   X - 3, 6.
Line S01637 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02222  M02S01637.ns2673  ---|*                A - 3.
Line S00045 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02223  M02S00045.286l859 ---|*         USES   X - 1, 3, 6.
Line S00046 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02224  M02S00046.286l859 ---|*                A - 1, 3, 6.
02225  M01S00476.286l859 +++|*         USES   X - 1, 3, 5, 6.
02226  M01S00477.286l859 +++|*                A - 1, 3, 5, 6.
02227  M01S01638.pfam    +++|*
Line S01639 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02228  M02S01639.286l859 ---|*         CALLS  SEM, STE.
Line S01640 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02229  M02S01640.286l859 ---|*
Line S01641 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02230  M02S01641.286l859 ---|*         MACROS EDITS.
02231  M01S00478.286l859 +++|*         CALLS  SFE, SRE, STE.
02232  M01S01642.pfam    +++|
02233  M01S01643.pfam    +++|
02234  M01S01644.pfam    +++| PPE      SUBR               ENTRY/EXIT
02235  M01S01645.pfam    +++|          BX6    X6-X6
02236  M01S01646.pfam    +++|          SA3    TAPE
02237  M01S01647.pfam    +++|          LX3    59-11
02238  M01S01648.pfam    +++|          PL     X3,PPEX     IF NO ERROR
Line S01649 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02239  M02S01649.286l859 ---|          SA3    MPFN        CHECK FILE BEING PROCESSED FLAG
Line S01650 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02240  M02S01650.286l859 ---|          ZR     X3,PPE2     IF NO FILE NAME
02241  M01S00479.286l859 +++|          SA1    FPRF
02242  M01S00480.286l859 +++|          ZR     X1,PPE2     IF NO FILE BEING PROCESSED
02243  M01S01651.pfam    +++|          SA1    /COMSPFS/UTLC
02244  M01S01652.pfam    +++|          SX1    X1-/COMSPFS/RSUT
Line S01653 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02245  M02S01653.286l859 ---|          NZ     X1,PPE1     IF NOT *PFRES*
Line S01654 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02246  M02S01654.286l859 ---|          SX6    B1+         FORCE ERROR LOG MESSAGE
Line S01655 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02247  M02S01655.286l859 ---|          SA6    ELFG
Line S00047 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02248  M02S00047.286l859 ---|          EDITS  MSFF,ERAP   * PFRES - PARITY ERROR FILE UI FAM.*
Line S00048 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02249  M02S00048.286l859 ---|          EQ     PPE1.1      SEND ERROR MESSAGE
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
02255  M01S00049.ns2673  +++|
Line S01656 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02256  M02S01656.286l859 ---| PPE1     EDITS  MSFN,ERAP   * PFUUUU - PARITY ERR FILE UI.*
Line S01657 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
M03 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02257  M03S01657.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
Line S00050 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02258  M02S00050.286l859 ---| PPE1.1   RJ     SEM         SEND ERROR MESSAGE
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  M01S01658.pfam    +++|          SA1    STRA
Line S01659 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02263  M02S01659.286l859 ---|          ZR     X1,PPE2     IF NOT STAGING THIS FILE (*PFRES*)
02264  M01S01660.pfam    +++|          SA1    X1+7        SET *SELECT BACKUP VSN* BIT
02265  M01S01661.pfam    +++|          SX6    B1
02266  M01S01662.pfam    +++|          LX6    39-0
02267  M01S01663.pfam    +++|          BX6    X1+X6
02268  M01S01664.pfam    +++|          SA6    A1
02269  M01S01665.pfam    +++| PPE2     RJ     STE         SKIP TAPE ERROR
02270  M01S01666.pfam    +++|          SX6    B1
02271  M01S01667.pfam    +++|          EQ     PPEX        RETURN
Line S00040 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02272  M02S00040.286l859 ---| PPF      SPACE  4,10
Line S00041 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02273  M02S00041.286l859 ---|**        PPF - PROCESS PREMATURE EOF.
02274  M01S00489.286l859 +++| RIP      SPACE  4,10
02275  M01S00490.286l859 +++|**        RIP - REPRIEVE INTERRUPT PROCESSOR.
02276  M01S00042.pfam5   +++|*
Line S00043 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02277  M02S00043.286l859 ---|*         EXIT   TO *ABT*.
02278  M01S00491.286l859 +++|*         EXIT   BUSY FETS SET COMPLETE TO ALLOW TERMINATION
02279  M01S00492.286l859 +++|*                  PROCESSING.
02280  M01S00044.pfam5   +++|*
Line S00045 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02281  M02S00045.286l859 ---|*         USES   X - 1, 5, 6.
Line S00046 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02282  M02S00046.286l859 ---|*                A - 1, 6.
Line S00047 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02283  M02S00047.286l859 ---|*
Line S00048 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02284  M02S00048.286l859 ---|*         CALLS  SEM.
02285  M01S00493.286l859 +++|*         MACROS COMPFET.
02286  M01S00049.pfam5   +++|
02287  M01S00050.pfam5   +++|
Line S00051 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02288  M02S00051.286l859 ---| PPF      BSS    0           ENTRY
02289  M01S00494.286l859 +++| RIP      SUBR               ENTRY/EXIT
02290  M01S00052.pfam5   +++|          SA1    /COMSPFS/UTLC
02291  M01S00053.pfam5   +++|          SX1    X1-/COMSPFS/RSUT
Line S00054 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02292  M02S00054.286l859 ---|          NZ     X1,PPF1     IF NOT *PFRES*
Line S00055 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02293  M02S00055.286l859 ---|          SX6    B1+         FORCE ERROR LOG MESSAGE
Line S00056 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02294  M02S00056.286l859 ---|          SA6    ELFG
Line S00057 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02295  M02S00057.286l859 ---| PPF1     SX5    ERPE        * PFUUUUU - PREMATURE EOF DETECTED.*
Line S00058 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02296  M02S00058.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
Line S00059 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02297  M02S00059.286l859 ---|          EQ     ABT         ABORT
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 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02304  M02S01668.ns2673  ---| RUR      SPACE  4,10
02305  M01S00051.ns2673  +++| RUR      SPACE  4,20
02306  M01S01669.pfam    +++|**        RUR - REQUEUE UNPROCESSED STAGE REQUESTS.
02307  M01S01670.pfam    +++|*
02308  M01S01671.pfam    +++|*         EXIT   UNPROCESSED STAGE REQUESTS REQUEUED.
02309  M01S00052.ns2673  +++|*                STAGE REQUESTS AT RETRY LIMIT ABANDONED, WITH
02310  M01S00053.ns2673  +++|*                  ACCOUNT FILE AND DAYFILE/ERRLOG MESSAGES ISSUED.
02311  M01S01672.pfam    +++|*
Line S01673 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02312  M02S01673.ns2673  ---|*         USES   X - 1, 2, 6, 7.
02313  M01S00054.ns2673  +++|*         USES   X - 1, 2, 5, 6, 7.
02314  M01S01674.pfam    +++|*                A - 1, 2, 6.
Line S01675 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02315  M02S01675.ns2673  ---|*                B - 4, 5.
02316  M01S00055.ns2673  +++|*                B - 5.
02317  M01S01676.pfam    +++|*
Line S01677 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02318  M02S01677.ns2673  ---|*         CALLS  RSR.
Line S00056 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02319  M02S00056.286l859 ---|*         CALLS  ISM, /MTX/RSR, SEM, SMP.
Line S00057 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02320  M02S00057.286l859 ---|*
Line S00058 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02321  M02S00058.286l859 ---|*         MACROS EDITS.
02322  M01S00501.286l859 +++|*         CALLS  ISM, /MTX/RSR, SEM.
02323  M01S01678.pfam    +++|
02324  M01S01679.pfam    +++|
02325  M01S01680.pfam    +++| RUR      SUBR               ENTRY/EXIT
Line S01681 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02326  M02S01681.ns2673  ---|          SA1    SRQF
Line S01682 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02327  M02S01682.ns2673  ---|          SA2    SRQL
Line S01683 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02328  M02S01683.ns2673  ---|          SB4    X1
Line S01684 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02329  M02S01684.ns2673  ---|          SB5    X2
Line S01685 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02330  M02S01685.ns2673  ---| RUR1     SB5    B5-/MTX/PFTBL  CHECK PREVIOUS ENTRY
Line S01686 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam1
M03 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02331  M03S01686.ns2673  ---|          LE     B5,B0,RURX  IF ALL ENTRIES CHECKED
Line S00001 Modification History
M01 (Added by) pfam1
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02332  M02S00001.ns2673  ---|          LT     B5,B0,RURX  IF ALL ENTRIES CHECKED
Line S01687 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02333  M02S01687.ns2673  ---|          SA1    B4+B5
Line S01688 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02334  M02S01688.ns2673  ---|          ZR     X1,RUR1     IF ENTRY PROCESSED
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  M01S01689.pfam    +++|          SA2    A1+B1       CLEAR *REQUEST SELECTED* FLAG IN ENTRY
02347  M01S01690.pfam    +++|          MX6    -59
Line S01691 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam1
Seq #  *Modification Id* Act 
----------------------------+
02348  M02S01691.pfam1   ---|          BX6    -X6*X1
02349  M01S00002.pfam1   +++|          BX6    -X6*X2
02350  M01S01692.pfam    +++|          SA6    A2
02351  M01S01693.pfam    +++|          SA2    A1+7        CHECK RETRY COUNT
02352  M01S01694.pfam    +++|          MX6    -3
02353  M01S01695.pfam    +++|          LX2    -36
02354  M01S01696.pfam    +++|          BX6    -X6*X2
Line S01697 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02355  M02S01697.ns2673  ---|          SX7    X6-7
Line S01698 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02356  M02S01698.ns2673  ---|          ZR     X7,RUR2     IF ALREADY AT MAXIMUM RETRY COUNT
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 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02360  M02S00073.286l859 ---|          SX5    A1
02361  M01S00502.286l859 +++|          SX5    A1          SET STAGE REQUEST ADDRESS
02362  M01S00074.ns2673  +++|          RJ     ISM
Line S00075 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02363  M02S00075.286l859 ---|          RJ     SMP         SET MESSAGE PARAMETERS
Line S00076 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02364  M02S00076.286l859 ---|          SX6    B1+         FORCE ERROR LOG MESSAGE
Line S00077 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02365  M02S00077.286l859 ---|          SA6    ELFG
Line S00078 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02366  M02S00078.286l859 ---|          EDITS  MSFF,ERSA   * PFRES - STAGE ABANDONED*
Line S00079 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02367  M02S00079.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
02368  M01S00503.286l859 +++|          SB2    ERSA        * STAGE ABANDONED ...*
02369  M01S00504.286l859 +++|          RJ     SRE         SEND ERROR MESSAGE
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  M01S01699.pfam    +++|          SX6    B1          INCREMENT RETRY COUNT
02375  M01S01700.pfam    +++|          IX6    X2+X6
02376  M01S01701.pfam    +++|          LX6    36
02377  M01S01702.pfam    +++|          SA6    A2
Line S01703 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02378  M02S01703.ns2673  ---| RUR2     RJ     /MTX/RSR    REQUEUE STAGE REQUEST
02379  M01S00084.ns2673  +++| RUR3     RJ     /MTX/RSR    REQUEUE STAGE REQUEST
02380  M01S01704.pfam    +++|          EQ     RUR1        CHECK NEXT QUEUE ENTRY
02381  M01S00085.ns2673  +++|
02382  M01S00086.ns2673  +++|
02383  M01S00087.ns2673  +++| RURA     CON    0           INDEX OF CURRENT ENTRY
02384  M01S01705.pfam    +++| SAF      SPACE  4,10
02385  M01S01706.pfam    +++|**        SAF - SET ACCESS LEVEL IN FET.
02386  M01S01707.pfam    +++|*
02387  M01S01708.pfam    +++|*         ENTRY  (CATH) = CATALOG ENTRY FOR FILE (FROM TAPE).
02388  M01S01709.pfam    +++|*                (STRA) = ADDRESS OF STAGE REQUEST FOR FILE (*PFRES*).
02389  M01S01710.pfam    +++|*
02390  M01S01711.pfam    +++|*         EXIT   ACCESS LEVEL SET IN FET.
02391  M01S01712.pfam    +++|*
02392  M01S01713.pfam    +++|*         USES   X - 0, 1, 2, 6.
02393  M01S01714.pfam    +++|*                A - 1, 2, 6.
02394  M01S01715.pfam    +++|
02395  M01S01716.pfam    +++|
02396  M01S01717.pfam    +++| SAF      SUBR               ENTRY/EXIT
02397  M01S01718.pfam    +++|          SA2    CATH+FCAL   GET ACCESS LEVEL FROM CATALOG ENTRY
02398  M01S01719.pfam    +++|          SA1    /COMSPFS/UTLC  CHECK UTILITY CODE
02399  M01S01720.pfam    +++|          SX1    X1-/COMSPFS/RSUT
02400  M01S01721.pfam    +++|          NZ     X1,SAF1     IF NOT *PFRES*
02401  M01S01722.pfam    +++|          SA1    STRA        GET ACCESS LEVEL FROM STAGE REQUEST
02402  M01S01723.pfam    +++|          SA2    X1
02403  M01S01724.pfam    +++|          LX2    36-51
02404  M01S01725.pfam    +++| SAF1     MX0    -3
02405  M01S01726.pfam    +++|          LX0    36
02406  M01S01727.pfam    +++|          BX2    -X0*X2      FILE ACCESS LEVEL
02407  M01S01728.pfam    +++|          SA1    F+4
02408  M01S01729.pfam    +++|          BX1    X0*X1
02409  M01S01730.pfam    +++|          BX6    X1+X2       SET ACCESS LEVEL IN FET
02410  M01S01731.pfam    +++|          SA6    A1
02411  M01S01732.pfam    +++|          EQ     SAFX        RETURN
02412  M01S01733.pfam    +++| SER      SPACE  4,10
02413  M01S01734.pfam    +++|**        SER - SKIP TO EOR.
02414  M01S01735.pfam    +++|*
02415  M01S01736.pfam    +++|*         EXIT   ARCHIVE FILE POSITIONED AT PHYSICAL EOR.
02416  M01S01737.pfam    +++|*
02417  M01S01738.pfam    +++|*         CALLS  PPE, RCW.
02418  M01S01739.pfam    +++|*
Line S01740 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02419  M02S01740.274l797 ---|*         MACROS READW.
02420  M01S00013.274l797 +++|*         MACROS SKIPW.
02421  M01S01741.pfam    +++|
02422  M01S01742.pfam    +++|
02423  M01S01743.pfam    +++| SER      SUBR               ENTRY/EXIT
02424  M01S01744.pfam    +++| SER1     RJ     RCW         READ CONTROL WORD
02425  M01S01745.pfam    +++|          NG     X3,SERX     IF EOR
02426  M01S01746.pfam    +++|          ZR     X5,SER1     IF ZERO WORD COUNT
Line S01747 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02427  M02S01747.274l797 ---|          READW  TAPE,DBUF,X5
02428  M01S00014.274l797 +++|          SKIPW  TAPE,X5     SKIP WORDS
02429  M01S01748.pfam    +++|          RJ     PPE         PROCESS PARITY ERROR
02430  M01S01749.pfam    +++|          ZR     X6,SER1     IF NO ERROR
02431  M01S01750.pfam    +++|          EQ     SERX
Line S00088 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02432  M02S00088.286l859 ---| SMP      SPACE  4,15
Line S00089 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02433  M02S00089.286l859 ---|**        SMP - SET MESSAGE PARAMETERS.
02434  M01S00505.286l859 +++| SRE      SPACE  4,15
02435  M01S00506.286l859 +++|**        SRE - SEND STAGE REQUEST ERROR MESSAGE.
02436  M01S00090.ns2673  +++|*
Line S00091 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02437  M02S00091.286l859 ---|*         ENTRY  (X5) = ADDRESS OF STAGE REQUEST.
02438  M01S00507.286l859 +++|*         ENTRY  (X5) = STAGE REQUEST ADDRESS.
02439  M01S00508.286l859 +++|*                (B2) = ERROR MESSAGE SKELETON ADDRESS.
02440  M01S00092.ns2673  +++|*
Line S00093 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02441  M02S00093.286l859 ---|*         EXIT   (MPFN) = FILE NAME.
Line S00094 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02442  M02S00094.286l859 ---|*                (MPUI) = USER INDEX.
Line S00095 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02443  M02S00095.286l859 ---|*                (MPFM) = FAMILY NAME.
Line S00096 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02444  M02S00096.286l859 ---|*                (MPEQ) = EST ORDINAL OF MASTER DEVICE.
Line S00097 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02445  M02S00097.286l859 ---|*                (MPDN) = DEVICE NUMBER OF MASTER DEVICE.
02446  M01S00509.286l859 +++|*         EXIT   MESSAGE ISSUED.
02447  M01S00098.ns2673  +++|*
Line S00099 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02448  M02S00099.286l859 ---|*         USES   X - 0, 1, 2, 6, 7.
Line S00100 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02449  M02S00100.286l859 ---|*                A - 1, 2, 6, 7.
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.
02455  M01S00101.ns2673  +++|
02456  M01S00102.ns2673  +++|
Line S00103 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02457  M02S00103.286l859 ---| SMP      SUBR               ENTRY/EXIT
02458  M01S00515.286l859 +++| SRE      SUBR               ENTRY/EXIT
02459  M01S00104.ns2673  +++|          SA1    X5+2        GET FILE NAME AND USER INDEX
Line S00105 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02460  M02S00105.286l859 ---|          SA2    X5+4        GET FAMILY NAME AND EST ORDINAL
Line S00106 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02461  M02S00106.286l859 ---|          MX0    42
Line S00107 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02462  M02S00107.286l859 ---|          BX6    X0*X1
Line S00108 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02463  M02S00108.286l859 ---|          SA6    MPFN        SET FILE NAME
Line S00109 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02464  M02S00109.286l859 ---|          BX7    X0*X2
Line S00110 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02465  M02S00110.286l859 ---|          BX6    -X0*X1
Line S00111 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02466  M02S00111.286l859 ---|          SA7    MPFM        SET FAMILY NAME
Line S00112 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02467  M02S00112.286l859 ---|          SA6    MPUI        SET USER INDEX
Line S00113 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02468  M02S00113.286l859 ---|          MX0    -9
Line S00114 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02469  M02S00114.286l859 ---|          BX7    -X0*X2
Line S00115 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02470  M02S00115.286l859 ---|          SA7    MPEQ        SET EST ORDINAL
Line S00116 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02471  M02S00116.286l859 ---|          SA1    X5          GET DEVICE NUMBER
Line S00117 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02472  M02S00117.286l859 ---|          LX1    -24
Line S00118 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02473  M02S00118.286l859 ---|          MX0    -6
Line S00119 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02474  M02S00119.286l859 ---|          BX7    -X0*X1
Line S00120 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02475  M02S00120.286l859 ---|          SA7    MPDN        SET DEVICE NUMBER
Line S00121 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02476  M02S00121.286l859 ---|          EQ     SMPX        RETURN
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  M01S01751.pfam    +++| SSR      SPACE  4,10
02488  M01S01752.pfam    +++|**        SSR - SETUP *PFM* SPECIAL REQUEST BLOCK.
02489  M01S01753.pfam    +++|*
02490  M01S01754.pfam    +++|*         ENTRY  (STRA) = ADDRESS OF STAGE REQUEST ENTRY.
02491  M01S01755.pfam    +++|*
02492  M01S01756.pfam    +++|*         EXIT   *PFM* SPECIAL REQUEST BLOCK BUILT.
02493  M01S01757.pfam    +++|*
02494  M01S01758.pfam    +++|*         USES   X - 1, 3, 6, 7.
02495  M01S01759.pfam    +++|*                A - 1, 3, 6.
02496  M01S01760.pfam    +++|
02497  M01S01761.pfam    +++|
02498  M01S01762.pfam    +++| SSR      SUBR               ENTRY/EXIT
02499  M01S01763.pfam    +++|          SA3    STRA        GET STAGE REQUEST
02500  M01S01764.pfam    +++|          SA1    X3          SET PEO, DN, TRACK AND SECTOR
02501  M01S01765.pfam    +++|          MX6    -32
02502  M01S01766.pfam    +++|          BX6    -X6*X1
02503  M01S01767.pfam    +++|          SA6    SRB+0
02504  M01S01768.pfam    +++|          SA1    A1+B1       SET ALTERNATE STORAGE INFORMATION
02505  M01S01769.pfam    +++|          MX6    -42
02506  M01S01770.pfam    +++|          SX7    B1
02507  M01S01771.pfam    +++|          BX6    -X6*X1
02508  M01S01772.pfam    +++|          LX7    42-0        SET TAPE ALTERNATE STORAGE BIT
02509  M01S01773.pfam    +++|          BX6    X6+X7
02510  M01S01774.pfam    +++|          SA6    A6+B1
02511  M01S01775.pfam    +++|          SA1    X3+5        SET CREATION DATE AND TIME
02512  M01S01776.pfam    +++|          MX6    -36
02513  M01S01777.pfam    +++|          BX6    -X6*X1
02514  M01S01778.pfam    +++|          SA6    A6+B1
02515  M01S01779.pfam    +++|          SA1    A1-B1       SET FAMILY AND USER INDEX
02516  M01S01780.pfam    +++|          MX7    42
02517  M01S01781.pfam    +++|          BX6    X7*X1
02518  M01S01782.pfam    +++|          SA1    X3+2
02519  M01S01783.pfam    +++|          BX7    -X7*X1
02520  M01S01784.pfam    +++|          BX6    X6+X7
02521  M01S01785.pfam    +++|          SA6    A6+B1
02522  M01S01786.pfam    +++|          EQ     SSRX        RETURN
02523  M01S01787.pfam    +++| STE      SPACE  4,10
02524  M01S01788.pfam    +++|**        STE - SKIP TAPE ERROR.
02525  M01S01789.pfam    +++|*
02526  M01S01790.pfam    +++|*         ENTRY  PARITY ERROR ENCOUNTERED.
02527  M01S01791.pfam    +++|*
02528  M01S01792.pfam    +++|*         EXIT   EOR DETECTED.
02529  M01S01793.pfam    +++|*                TO *EAF* IF EOF DETECTED.
Line S01794 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02530  M02S01794.286l859 ---|*                (AFER) .NE. 0.
02531  M01S01795.pfam    +++|*
02532  M01S01796.pfam    +++|*         MACROS READ, READW, RECALL.
02533  M01S01797.pfam    +++|
02534  M01S01798.pfam    +++|
02535  M01S01799.pfam    +++| STE      SUBR               ENTRY/EXIT
Line S01800 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02536  M02S01800.286l859 ---|          SX6    1           SET ARCHIVE FILE ERROR FLAG
Line S01801 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02537  M02S01801.286l859 ---|          SA6    AFER
02538  M01S01802.pfam    +++| STE1     RECALL TAPE
02539  M01S01803.pfam    +++|          READW  TAPE,DBUF,DBUFL
02540  M01S01804.pfam    +++|          NG     X1,EAF      IF EOF ENCOUNTERED
02541  M01S01805.pfam    +++|          ZR     X1,STE1     IF NOT EOR
02542  M01S01806.pfam    +++|          READ   TAPE,R
02543  M01S01807.pfam    +++|          EQ     STEX        RETURN
02544  M01S01808.pfam    +++| VCE      SPACE  4,15
02545  M01S01809.pfam    +++|**        VCE - VERIFY CATALOG ENTRY FIELDS.
02546  M01S01810.pfam    +++|*
Line S01811 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02547  M02S01811.ns2673  ---|*         ENTRY  (X6) = ADDRESS OF STAGE REQUEST ENTRY.
Line S00122 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02548  M02S00122.286l859 ---|*         ENTRY  (X5) = ADDRESS OF STAGE REQUEST ENTRY.
02549  M01S00526.286l859 +++|*         ENTRY  (STRA) = ADDRESS OF STAGE REQUEST ENTRY.
02550  M01S01812.pfam    +++|*                (CATH) = CATALOG ENTRY FROM TAPE.
02551  M01S01813.pfam    +++|*
02552  M01S01814.pfam    +++|*         EXIT   (X6) = 0, IF STAGE REQUEST MATCHES PFC ON TAPE.
02553  M01S01815.pfam    +++|*
Line S01816 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02554  M02S01816.286l859 ---|*         USES   X - 1, 2, 6.
Line S01817 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
M03 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02555  M03S01817.286l859 ---|*                A - 1, 2.
Line S00123 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02556  M02S00123.286l859 ---|*                A - 1, 2, 6.
02557  M01S00527.286l859 +++|*         USES   X - 1, 2, 5, 6.
02558  M01S00528.286l859 +++|*                A - 1, 2, 5, 6.
02559  M01S01818.pfam    +++|*
Line S01819 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02560  M02S01819.286l859 ---|*         CALLS  SEM.
Line S00124 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02561  M02S00124.286l859 ---|*
Line S00125 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02562  M02S00125.286l859 ---|*         MACROS EDITS.
02563  M01S00529.286l859 +++|*         CALLS  SRE.
02564  M01S01820.pfam    +++|
02565  M01S01821.pfam    +++|
02566  M01S01822.pfam    +++| VCE      SUBR               ENTRY/EXIT
Line S01823 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02567  M02S01823.ns2673  ---|          SA1    X6          VERIFY ACCESS LEVEL
Line S00126 Modification History
M01 (Added by) ns2673
M02 (Updated by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02568  M02S00126.pfam7   ---|          SA1    X5          VERIFY ACCESS LEVEL
Line S01824 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02569  M02S01824.pfam7   ---|          SA2    CATH+FCAL
Line S01825 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02570  M02S01825.pfam7   ---|          LX1    -51
Line S01826 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02571  M02S01826.pfam7   ---|          LX2    -36
Line S01827 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02572  M02S01827.pfam7   ---|          BX1    X1-X2
Line S01828 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02573  M02S01828.pfam7   ---|          MX2    -3
Line S01829 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
M03 (Updated by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02574  M03S01829.pfam7   ---|          BX1    -X2*X1
Line S01830 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
M03 (Updated by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02575  M03S01830.pfam7   ---|          NZ     X1,VCE1     IF NOT A MATCH
Line S01831 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
M03 (Updated by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02576  M03S01831.pfam7   ---|          SA1    X6+5        VERIFY CREATION DATE AND TIME
Line S00127 Modification History
M01 (Added by) ns2673
M02 (Updated by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02577  M02S00127.pfam7   ---|          BX6    -X2*X1
Line S00128 Modification History
M01 (Added by) ns2673
M02 (Updated by) pfam7
Seq #  *Modification Id* Act 
----------------------------+
02578  M02S00128.pfam7   ---|          NZ     X6,VCE1     IF ACCESS LEVEL DOES NOT MATCH
Line S00129 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02579  M02S00129.286l859 ---|          SA1    X5+5        VERIFY CREATION DATE AND TIME
02580  M01S00530.286l859 +++|          SA1    STRA        GET STAGE REQUEST ADDRESS
02581  M01S00531.286l859 +++|          SA1    X1+5        VERIFY CREATION DATE AND TIME
02582  M01S01832.pfam    +++|          SA2    CATH+FCCD
02583  M01S01833.pfam    +++|          BX1    X1-X2
02584  M01S01834.pfam    +++|          MX2    -36
Line S01835 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02585  M02S01835.ns2673  ---|          BX1    -X2*X1
Line S01836 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02586  M02S01836.ns2673  ---|          NZ     X1,VCE1     IF NOT A MATCH
Line S01837 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02587  M02S01837.ns2673  ---|          BX6    X6-X6       INDICATE NO ERROR
Line S01838 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02588  M02S01838.ns2673  ---|          EQ     VCEX        RETURN
Line S01839 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02589  M02S01839.ns2673  ---|
Line S01840 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02590  M02S01840.ns2673  ---| VCE1     SX6    B1+         FORCE ERROR LOG MESSAGE
Line S01841 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02591  M02S01841.ns2673  ---|          SA6    ELFG
Line S01842 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02592  M02S01842.ns2673  ---|          EDITS  MSFN,ERFV   * PFRES - FILE VERIFICATION ERROR.*
02593  M01S00130.ns2673  +++|          BX6    -X2*X1
02594  M01S00131.ns2673  +++|          ZR     X6,VCEX     IF CREATION DATE AND TIME MATCHES
Line S00132 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02595  M02S00132.286l859 ---| VCE1     SA6    ELFG        FORCE ERROR LOG MESSAGE
Line S00133 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02596  M02S00133.286l859 ---|          EDITS  MSFF,ERFV   * PFRES - FILE VERIFICATION ERROR.*
Line S01843 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02597  M02S01843.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
02598  M01S00532.286l859 +++|          SA5    STRA        SET STAGE REQUEST ADDRESS
02599  M01S00533.286l859 +++|          SB2    ERFV        * FILE VERIFICATION ERROR ...*
02600  M01S00534.286l859 +++|          RJ     SRE         SEND STAGE REQUEST ERROR MESSAGE
02601  M01S01844.pfam    +++|          SX6    B1          INDICATE ERROR
02602  M01S01845.pfam    +++|          EQ     VCEX        RETURN
02603  M01S01846.pfam    +++|          SPACE  4,10
02604  M01S01847.pfam    +++|*         COMMON DECKS.
02605  M01S01848.pfam    +++|
02606  M01S01849.pfam    +++|
02607  M01S01850.pfam    +++| FCE$     EQU    0
02608  M01S01851.pfam    +++|*CALL     COMCCCE
02609  M01S01852.pfam    +++|*CALL     COMCCDD
02610  M01S01853.pfam    +++|*CALL     COMCCIO
02611  M01S01854.pfam    +++|*CALL     COMCCOD
02612  M01S01855.pfam    +++|*CALL     COMCCPM
02613  M01S01856.pfam    +++|*CALL     COMCDXB
02614  M01S01857.pfam    +++|*CALL     COMCEDT
02615  M01S01858.pfam    +++|*CALL     COMCFCE
02616  M01S00535.286l859 +++| GMS$     EQU    1           USE SORT KEY MASK
02617  M01S00536.286l859 +++| MWK$     EQU    1           ALLOW MULTIPLE WORD SORT KEYS
02618  M01S00537.286l859 +++|*CALL     COMCGMS
02619  M01S00538.286l859 +++|*CALL     COMCJCR
02620  M01S01859.pfam    +++|*CALL     COMCLFM
02621  M01S00539.286l859 +++|*CALL     COMCMSF
02622  M01S01860.pfam    +++|*CALL     COMCMVE
02623  M01S01861.pfam    +++|*CALL     COMCPFM
02624  M01S01862.pfam    +++| COM$     EQU    1           ASSEMBLE COMMON ROUTINES
02625  M01S01863.pfam    +++| PFA$     EQU    1           ASSEMBLE ARCHIVE FILE ROUTINES
02626  M01S01864.pfam    +++|          LIST   X
02627  M01S01865.pfam    +++|*CALL     COMCPFS
02628  M01S01866.pfam    +++|          LIST   *
02629  M01S01867.pfam    +++|*CALL     COMCPFU
02630  M01S01868.pfam    +++|*CALL     COMCRDW
02631  M01S01869.pfam    +++|*CALL     COMCSCB
02632  M01S01870.pfam    +++|*CALL     COMCSFN
02633  M01S00015.274l797 +++|*CALL     COMCSKW
02634  M01S01871.pfam    +++|*CALL     COMCSNM
02635  M01S01872.pfam    +++|*CALL     COMCSYS
02636  M01S01873.pfam    +++|          LIST   X
02637  M01S01874.pfam    +++|          QUAL   MTX
02638  M01S01875.pfam    +++| QUAL$    EQU    1
02639  M01S01876.pfam    +++|*CALL     COMCSRI
02640  M01S01877.pfam    +++|          QUAL   *
02641  M01S01878.pfam    +++|          LIST   *
02642  M01S01879.pfam    +++|*CALL     COMCVDT
02643  M01S01880.pfam    +++|*CALL     COMCWTC
02644  M01S01881.pfam    +++|*CALL     COMCWTH
02645  M01S01882.pfam    +++|*CALL     COMCWTO
02646  M01S01883.pfam    +++|*CALL     COMCWTW
02647  M01S01884.pfam    +++|*CALL     COMCZTB
02648  M01S01885.pfam    +++|          TITLE  BUFFERS.
02649  M01S01886.pfam    +++|          USE    LITERALS
02650  M01S01887.pfam    +++|          SPACE  4,10
02651  M01S01888.pfam    +++|*         BUFFERS.
02652  M01S01889.pfam    +++|
02653  M01S01890.pfam    +++|
Line S01891 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02654  M02S01891.274l797 ---| TBUF     EQU    *           ARCHIVE FILE BUFFER
Line S01892 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02655  M02S01892.274l797 ---| MBUF     EQU    TBUF+TBUFL  MAIN BUFFER
02656  M01S00016.274l797 +++| MBUF     EQU    *           MAIN BUFFER
02657  M01S01893.pfam    +++| CATH     EQU    MBUF+MBUFL  CATALOG ENTRY HOLD BUFFER
02658  M01S01894.pfam    +++| DBUF     EQU    CATH+CATHL  ARCHIVE DATA BLOCK WORKING BUFFER
Line S01895 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02659  M02S01895.274l797 ---| OBUF     EQU    DBUF+DBUFL  OUTPUT BUFFER
02660  M01S00017.274l797 +++| TBUF     EQU    DBUF+DBUFL  ARCHIVE FILE BUFFER
Line S00018 Modification History
M01 (Added by) 274l797
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02661  M02S00018.286l859 ---| OBUF     EQU    TBUF+TBUFL  OUTPUT BUFFER
Line S01896 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02662  M02S01896.286l859 ---| SUMB     EQU    OBUF+OBUFL  SUMMARY FILE BUFFER
Line S01897 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02663  M02S01897.286l859 ---| EBUF     EQU    SUMB+SUMBL  END OF BUFFERS
02664  M01S00540.286l859 +++| OUTB     EQU    TBUF+TBUFL  OUTPUT FILE BUFFER
02665  M01S00541.286l859 +++| SUMB     EQU    OUTB+OUTBL  SUMMARY FILE BUFFER
02666  M01S00542.286l859 +++| PFLB     EQU    SUMB+SUMBL  PROCESSED FILES FILE BUFFER
02667  M01S00543.286l859 +++| MS1B     EQU    PFLB+PFLBL  SORT FILE 1
02668  M01S00544.286l859 +++| MS2B     EQU    MS1B+MSFBL  SORT FILE 2
02669  M01S00545.286l859 +++| MS3B     EQU    MS2B+MSFBL  SORT FILE 3
02670  M01S00546.286l859 +++| MS4B     EQU    MS3B+MSFBL  SORT FILE 4
02671  M01S00547.286l859 +++| SRTB     EQU    MS3B        SORT BUFFER (OVERLAYS *MS3B* AND *MS4B*)
02672  M01S00548.286l859 +++|          ERRNG  MSFBL*2-SRTBL  SORT BUFFER OVERFLOW
02673  M01S00549.286l859 +++| EBUF     EQU    MS4B+MSFBL+5  END OF BUFFERS
02674  M01S01898.pfam    +++|
Line S01899 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02675  M02S01899.286l859 ---|*         *PFRES* BUFFERS OVERLAY *OBUF* AND *SUMB*.
02676  M01S00550.286l859 +++|*         *PFRES* BUFFERS OVERLAY BUFFERS FROM *SUMB* TO *SRTB*.
02677  M01S01900.pfam    +++|
Line S01901 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02678  M02S01901.286l859 ---| RBUF     EQU    OBUF        STAGE REQUEST FILE BUFFER (*PFRES* PRESET)
02679  M01S00551.286l859 +++| RBUF     EQU    SUMB        STAGE REQUEST FILE BUFFER (*PFRES* PRESET)
02680  M01S01902.pfam    +++| SBUF     EQU    RBUF+RBUFL  SCRATCH FILE BUFFER (*PFRES* PRESET)
02681  M01S01903.pfam    +++| QBUF     EQU    SBUF+SBUFL  STAGE REQUEST QUEUE (*PFRES* PRESET)
02682  M01S01904.pfam    +++| EBUFP    EQU    QBUF+QBUFL  END OF BUFFERS (*PFRES* PRESET)
02683  M01S01905.pfam    +++|          TITLE  PRESET.
Line S01906 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2625
Seq #  *Modification Id* Act 
----------------------------+
02684  M02S01906.ns2625  ---| PRS      SPACE  4,15
02685  M01S00001.ns2625  +++| PRS      SPACE  4,20
02686  M01S01907.pfam    +++|**        PRS - PRESET PROGRAM.
02687  M01S00002.ns2625  +++|*
02688  M01S00003.ns2625  +++|*         ENTRY  FILES *ZZZZZG0* THROUGH *ZZZZZG8* RETURNED BY *PFS*.
02689  M01S00004.ns2625  +++|*                FILE *ZZZZZG9* RETURNED BY *PFS* IF NO FILE
02690  M01S00005.ns2625  +++|*                  SELECTIONS.
02691  M01S00006.ns2625  +++|*                FILE *ZZZZZG9* CONTAINS FILE SELECTIONS IF PRESENT.
02692  M01S01908.pfam    +++|*
02693  M01S01909.pfam    +++|*         EXIT   FILE NAMES SET IN FETS.
02694  M01S01910.pfam    +++|*                SECURITY PROCESSING BIT SET IN FET, IF NEEDED.
02695  M01S01911.pfam    +++|*                (SYSS) = SYSTEM SECURITY MODE.
02696  M01S01912.pfam    +++|*
02697  M01S01913.pfam    +++|*         USES   X - 0, 1, 2, 5, 6.
02698  M01S01914.pfam    +++|*                A - 0, 1, 2, 5, 6.
02699  M01S01915.pfam    +++|*
Line S01916 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02700  M02S01916.286l859 ---|*         CALLS  FSR, IOF, ITA, PFO, RPS, RST, SSS, SUN.
02701  M01S00552.286l859 +++|*         CALLS  FSR, IOF, ITA, PFO, RPS, RST, SSS.
02702  M01S01917.pfam    +++|*
02703  M01S01918.pfam    +++|*         MACROS MACHID, MEMORY, REPRIEVE, SETFET.
02704  M01S01919.pfam    +++|
02705  M01S01920.pfam    +++|
02706  M01S01921.pfam    +++| PRS      SUBR               ENTRY/EXIT
02707  M01S01922.pfam    +++|          SB1    1
02708  M01S01923.pfam    +++|          MEMORY CM,,R,EBUF  REQUEST REQUIRED MEMORY
Line S01924 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02709  M02S01924.286l859 ---|          REPRIEVE  ABTBLK,SETUP,237B
02710  M01S00553.286l859 +++|          REPRIEVE  RPVB,SET,277B
02711  M01S01925.pfam    +++|          RJ     SSS         SET SECURED SYSTEM STATUS
02712  M01S01926.pfam    +++|          SA1    SYSS
02713  M01S01927.pfam    +++|          ZR     X1,PRS1     IF NOT SECURED SYSTEM
02714  M01S01928.pfam    +++|          SA1    F+1         SET SECURITY PROCESSING BIT IN FET
02715  M01S01929.pfam    +++|          SX6    B1
02716  M01S01930.pfam    +++|          LX6    39-0
02717  M01S01931.pfam    +++|          BX6    X1+X6
02718  M01S01932.pfam    +++|          SA6    A1
02719  M01S01933.pfam    +++|
02720  M01S01934.pfam    +++|*         SET UTILITY NAME IN MESSAGES.
02721  M01S01935.pfam    +++|
Line S01936 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02722  M02S01936.286l859 ---| PRS1     SA0    TPMP        SET *COMCPFP* MESSAGES
Line S01937 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02723  M02S01937.286l859 ---|          RJ     SUN
Line S01938 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02724  M02S01938.286l859 ---|          SA0    TUNM        SET *PFAM* MESSAGES
Line S01939 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02725  M02S01939.286l859 ---|          RJ     SUN
Line S01940 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02726  M02S01940.286l859 ---|          SA1    /COMSPFS/UTLC  CHECK UTILITY CODE
02727  M01S00554.286l859 +++| PRS1     SA1    /COMSPFS/UTLC  CHECK UTILITY CODE
02728  M01S01941.pfam    +++|          SX1    X1-/COMSPFS/RSUT
02729  M01S01942.pfam    +++|          NZ     X1,PRS2     IF NOT *PFRES*
02730  M01S01943.pfam    +++|
02731  M01S01944.pfam    +++|*         PROCESS *PFRES*.
02732  M01S01945.pfam    +++|
02733  M01S01946.pfam    +++|          MEMORY CM,MSTAT,R,EBUFP  REQUEST ADDITIONAL MEMORY
02734  M01S01947.pfam    +++|          MACHID PRSA        GET MACHINE ID
02735  M01S01948.pfam    +++|          SA1    PRSA
02736  M01S01949.pfam    +++|          SA2    R           SET MACHINE ID INTO *STRQID* FET
02737  M01S01950.pfam    +++|          LX1    24
02738  M01S01951.pfam    +++|          BX6    X1+X2
02739  M01S01952.pfam    +++|          SA6    A2
02740  M01S01953.pfam    +++|          RJ     RST         REQUEST STAGING TAPE
02741  M01S01954.pfam    +++|          RJ     FSR         FIND STAGE REQUESTS
02742  M01S01955.pfam    +++|          RJ     ITA         ISSUE TAPE ASSIGNED MESSAGE
02743  M01S01956.pfam    +++|          EQ     PRSX        RETURN
02744  M01S01957.pfam    +++|
02745  M01S01958.pfam    +++|*         INITIALIZE OUTPUT FILE AND SUMMARY FILE.
02746  M01S01959.pfam    +++|
02747  M01S01960.pfam    +++| PRS2     RJ     IOF         INITIALIZE OUTPUT FILES
02748  M01S01961.pfam    +++|
02749  M01S01962.pfam    +++|*         INITIALIZE ARCHIVE FILE.
02750  M01S01963.pfam    +++|
02751  M01S01964.pfam    +++|          SA1    CPAR+/COMSPFS/CPTB  SET ARCHIVE FILE NAME
02752  M01S01965.pfam    +++|          SA2    TAPE
Line S01966 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02753  M02S01966.286l859 ---|          BX6    -X0*X2
02754  M01S00555.286l859 +++|          MX6    -18
02755  M01S00556.286l859 +++|          BX6    -X6*X2
02756  M01S01967.pfam    +++|          BX6    X6+X1
02757  M01S01968.pfam    +++|          SA6    A2
02758  M01S00019.274l797 +++|          SX2    TAPE        SET OPTICAL DISK EXTENSION BUFFER
02759  M01S00020.274l797 +++|          SA3    PRSB
02760  M01S00021.274l797 +++|          RJ     SOE         SET FET EXTENSION IF OPTICAL DISK FILE
02761  M01S00022.274l797 +++|          OPEN   TAPE,READNR,R
02762  M01S01969.pfam    +++|
02763  M01S01970.pfam    +++|*         INITIALIZE *PFCOPY* MASTER FILE.
02764  M01S01971.pfam    +++|
02765  M01S01972.pfam    +++|          SA1    CPAR+/COMSPFS/CPMF  CHECK IF MASTER FILE SPECIFIED
02766  M01S01973.pfam    +++|          ZR     X1,PRS3     IF MASTER FILE NOT SPECIFIED
02767  M01S01974.pfam    +++|          SA5    FILEA
02768  M01S01975.pfam    +++|          RJ     PFO         OPEN MASTER FILE
02769  M01S01976.pfam    +++|          SETFET SU,ERP=0    CLEAR USER ERROR PROCESSING
02770  M01S01977.pfam    +++|
02771  M01S01978.pfam    +++|*         READ FILE NAME AND USER INDEX SELECTIONS.
02772  M01S01979.pfam    +++|
02773  M01S01980.pfam    +++| PRS3     SX0    EBUF        SET SELECTION BUFFER ADDRESS
02774  M01S01981.pfam    +++|          RJ     RPS         READ PERMANENT FILE SELECTIONS
02775  M01S01982.pfam    +++|          EQ     PRSX        RETURN
02776  M01S01983.pfam    +++|
02777  M01S01984.pfam    +++|
02778  M01S01985.pfam    +++| PRSA     CON    0           MACHINE ID WORD
02779  M01S00023.274l797 +++| PRSB     VFD    36/,6/ODEBL,18/ODEB  POINTER TO *OD* EXT. BUFFER
02780  M01S01986.pfam    +++|          TITLE  PRESET SUBROUTINES.
02781  M01S01987.pfam    +++| FSR      SPACE  4,20
02782  M01S01988.pfam    +++|**        FSR - FIND STAGE REQUESTS.
02783  M01S01989.pfam    +++|*         READ STAGE REQUESTS FROM REQUEST FILE AND REPACK FILE.
02784  M01S01990.pfam    +++|*         READ ADDITIONAL STAGE REQUESTS FROM *MAGNET*-S FL.
02785  M01S01991.pfam    +++|*
02786  M01S01992.pfam    +++|*         ENTRY  STAGE REQUEST FILE ATTACHED (BY *RESEX*).
02787  M01S01993.pfam    +++|*
02788  M01S01994.pfam    +++|*         EXIT   STAGE REQUESTS QUEUED IN *QBUF*.
02789  M01S01995.pfam    +++|*                SELECTED REQUESTS DELETED FROM STAGE REQUEST FILE.
02790  M01S01996.pfam    +++|*                STAGE REQUEST FILE RETURNED.
02791  M01S01997.pfam    +++|*                TO *ABT* IF NO STAGE REQUESTS FOR ASSIGNED VSN.
02792  M01S01998.pfam    +++|*
Line S01999 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02793  M02S01999.286l859 ---|*         USES   X - 0, 1, 2, 5, 6.
02794  M01S00557.286l859 +++|*         USES   X - 0, 1, 2, 6.
02795  M01S02000.pfam    +++|*                A - 1, 2, 5, 6.
Line S02001 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02796  M02S02001.286l859 ---|*                B - 6.
02797  M01S00558.286l859 +++|*                B - 2, 6.
02798  M01S02002.pfam    +++|*
02799  M01S02003.pfam    +++|*         CALLS  ARQ, GSR.
02800  M01S02004.pfam    +++|*
02801  M01S02005.pfam    +++|*         MACROS MEMORY, MESSAGE, MOVE, READEI, READW, REWIND, RTIME,
02802  M01S02006.pfam    +++|*                UNLOAD, WRITE, WRITER, WRITEW.
02803  M01S02007.pfam    +++|
02804  M01S02008.pfam    +++|
02805  M01S02009.pfam    +++| FSR      SUBR               ENTRY/EXIT
02806  M01S02010.pfam    +++|          REWIND R
02807  M01S02011.pfam    +++|          READEI X2          INITIATE READ
Line S02012 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2625
Seq #  *Modification Id* Act 
----------------------------+
02808  M02S02012.ns2625  ---|          UNLOAD S,R
Line S02013 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2625
Seq #  *Modification Id* Act 
----------------------------+
02809  M02S02013.ns2625  ---|          WRITE  X2,*
02810  M01S00007.ns2625  +++|          WRITE  S,*
02811  M01S02014.pfam    +++|          SA5    PVSN        GET VSN ASSIGNED TO THIS JOB
02812  M01S02015.pfam    +++|
02813  M01S02016.pfam    +++|*         READ NEXT ENTRY FROM REQUEST FILE.
02814  M01S02017.pfam    +++|
02815  M01S02018.pfam    +++| FSR1     READW  R,FSRA,/MTX/PFTBL
02816  M01S02019.pfam    +++|          NZ     X1,FSR3     IF END OF REQUEST FILE
02817  M01S00024.274l797 +++|          SA1    FSRA        CHECK FUNCTION CODE
02818  M01S00025.274l797 +++|          AX1    54
02819  M01S00026.274l797 +++|          SX1    X1-1
02820  M01S00027.274l797 +++|          NZ     X1,FSR1.1   IF NOT TAPE STAGE REQUEST
02821  M01S02020.pfam    +++|          SA1    FSRA+1      COMPARE VSN REQUIRED
02822  M01S02021.pfam    +++|          BX2    X1-X5
02823  M01S02022.pfam    +++|          MX0    -24
02824  M01S02023.pfam    +++|          BX2    -X0*X2
02825  M01S02024.pfam    +++|          ZR     X2,FSR2     IF VSN MATCHES VSN ASSIGNED TO THIS JOB
Line S02025 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02826  M02S02025.274l797 ---|          WRITEW S,FSRA,/MTX/PFTBL  WRITE UNSELECTED REQUEST TO SCRATCH
02827  M01S00028.274l797 +++| FSR1.1   WRITEW S,FSRA,/MTX/PFTBL  WRITE UNSELECTED REQ TO SCRATCH
02828  M01S02026.pfam    +++|          EQ     FSR1        READ NEXT REQUEST
02829  M01S02027.pfam    +++|
02830  M01S02028.pfam    +++| FSR2     SB6    FSRA
02831  M01S02029.pfam    +++|          RJ     ARQ         ADD REQUEST TO QUEUE
02832  M01S02030.pfam    +++|          EQ     FSR1        READ NEXT REQUEST
02833  M01S02031.pfam    +++|
02834  M01S02032.pfam    +++|*         COPY SCRATCH FILE (UNSELECTED REQUESTS) BACK TO REQUEST FILE.
02835  M01S02033.pfam    +++|
02836  M01S02034.pfam    +++| FSR3     WRITER S           FLUSH BUFFER
02837  M01S02035.pfam    +++|          REWIND X2
02838  M01S02036.pfam    +++|          READEI X2
02839  M01S02037.pfam    +++|          REWIND R,R
02840  M01S02038.pfam    +++|          WRITE  X2,*
02841  M01S02039.pfam    +++| FSR4     READW  S,FSRA,/MTX/PFTBL
02842  M01S02040.pfam    +++|          NZ     X1,FSR5     IF END OF FILE
02843  M01S02041.pfam    +++|          WRITEW R,FSRA,/MTX/PFTBL
02844  M01S02042.pfam    +++|          EQ     FSR4        COPY NEXT REQUEST
02845  M01S02043.pfam    +++|
02846  M01S02044.pfam    +++| FSR5     WRITER R           FLUSH BUFFER
02847  M01S02045.pfam    +++|          UNLOAD X2,R        RETURN BOTH FILES
02848  M01S02046.pfam    +++|          UNLOAD S,R
02849  M01S02047.pfam    +++|          BX6    X6-X6       INDICATE STAGE REQUEST FILE RETURNED
02850  M01S02048.pfam    +++|          SA6    SRFF
02851  M01S02049.pfam    +++|
02852  M01S02050.pfam    +++|*         MOVE REQUEST QUEUE DOWN (ON TOP OF *RBUF*/*SBUF*).
02853  M01S02051.pfam    +++|
02854  M01S02052.pfam    +++|          SA5    SRQL        GET NUMBER OF WORDS IN CURRENT QUEUE
02855  M01S02053.pfam    +++|          ZR     X5,FSR6     IF NO REQUESTS
02856  M01S02054.pfam    +++|          MOVE   X5,QBUF,RBUF
02857  M01S02055.pfam    +++| FSR6     SX6    RBUF        UPDATE QUEUE POINTER
02858  M01S02056.pfam    +++|          SA6    SRQF
02859  M01S02057.pfam    +++|
02860  M01S02058.pfam    +++|*         PROCESS REQUESTS PENDING IN *MAGNET*.
02861  M01S02059.pfam    +++|
02862  M01S02060.pfam    +++| FSR7     RJ     /MTX/GSR    GET STAGE REQUEST
02863  M01S02061.pfam    +++|          LE     B6,B0,FSR8  IF NO REQUEST
02864  M01S02062.pfam    +++|          RJ     ARQ         ADD REQUEST TO QUEUE
02865  M01S02063.pfam    +++|          EQ     FSR7        GET NEXT REQUEST
02866  M01S02064.pfam    +++|
02867  M01S02065.pfam    +++| FSR8     RTIME  CARA        INITIALIZE STARTING TIME
02868  M01S02066.pfam    +++|          SA1    SRQL        CHECK IF ANY REQUESTS FOUND
02869  M01S02067.pfam    +++|          ZR     X1,FSR9     IF NO REQUESTS FOUND
02870  M01S02068.pfam    +++|          MEMORY CM,MSTAT,R,RBUF+X1+MEMI  REDUCE FIELD LENGTH
02871  M01S02069.pfam    +++|          EQ     FSRX        RETURN
02872  M01S02070.pfam    +++|
Line S02071 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02873  M02S02071.286l859 ---| FSR9     MESSAGE  ERNR      * PFRES - NO FILES TO RESTORE.*
02874  M01S00559.286l859 +++| FSR9     SB2    ERNR        * NO FILES TO RESTORE.*
02875  M01S02072.pfam    +++|          EQ     ABT         ABORT
02876  M01S02073.pfam    +++|
02877  M01S02074.pfam    +++|
02878  M01S02075.pfam    +++| FSRA     BSS    /MTX/PFTBL  STAGE REQUEST BUFFER
02879  M01S02076.pfam    +++| ITA      SPACE  4,15
02880  M01S02077.pfam    +++|**        ITA - ISSUE TAPE ASSIGNED MESSAGE.
02881  M01S02078.pfam    +++|*
02882  M01S02079.pfam    +++|*         ENTRY  (SRQF) = POINTER TO FWA OF STAGE REQUEST QUEUE.
02883  M01S02080.pfam    +++|*                (SRQN) = NUMBER OF RESTORE REQUESTS.
02884  M01S02081.pfam    +++|*                (SVSN) = STAGING TAPE VSN.
02885  M01S02082.pfam    +++|*
02886  M01S02083.pfam    +++|*         USES   X - 0, 1, 2, 6.
02887  M01S02084.pfam    +++|*                A - 1, 2.
02888  M01S02085.pfam    +++|*                B - 2, 3, 5.
02889  M01S02086.pfam    +++|*
02890  M01S02087.pfam    +++|*         CALLS  CDD, SNM.
02891  M01S02088.pfam    +++|*
02892  M01S02089.pfam    +++|*         MACROS MESSAGE.
02893  M01S02090.pfam    +++|
02894  M01S02091.pfam    +++|
02895  M01S02092.pfam    +++| ITA      SUBR               ENTRY/EXIT
02896  M01S02093.pfam    +++|          MX0    42
02897  M01S02094.pfam    +++|          SB3    ITAB
02898  M01S02095.pfam    +++|          SB5    -ITAA
02899  M01S02096.pfam    +++|          SA1    SRQF
02900  M01S02097.pfam    +++|          SA2    X1+4        GET FAMILY/PACK NAME
02901  M01S02098.pfam    +++|          BX1    X0*X2
02902  M01S02099.pfam    +++|          SB2    1R$
02903  M01S02100.pfam    +++|          RJ     SNM         SET FAMILY/PACK NAME INTO MESSAGE
02904  M01S02101.pfam    +++|          SA1    SVSN        GET VSN
02905  M01S02102.pfam    +++|          SB5    ITAB
02906  M01S02103.pfam    +++|          SB2    1R-
02907  M01S02104.pfam    +++|          RJ     SNM         SET VSN INTO MESSAGE
02908  M01S02105.pfam    +++|          SA1    SRQN        GET NUMBER OF ENTRIES IN REQUEST QUEUE
02909  M01S02106.pfam    +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
02910  M01S02107.pfam    +++|          MX0    -24         MASK TO FOUR DIGITS
02911  M01S02108.pfam    +++|          BX1    -X0*X6
02912  M01S02109.pfam    +++|          LX1    -24         LEFT JUSTIFY
02913  M01S02110.pfam    +++|          SB2    1R=
02914  M01S02111.pfam    +++|          RJ     SNM         SET NUMBER OF ENTRIES INTO MESSAGE
02915  M01S02112.pfam    +++|          MESSAGE  ITAB,5    ISSUE STAGING TAPE ASSIGNED MESSAGE
02916  M01S02113.pfam    +++|          EQ     ITAX        RETURN
02917  M01S02114.pfam    +++|
02918  M01S02115.pfam    +++|
02919  M01S02116.pfam    +++| ITAA     DATA   C*STTA, $$$$$$$, ------, ====.*
02920  M01S02117.pfam    +++|*         DATA   C*STTA, FAMPACK, VSNVSN, NNNN.*
02921  M01S02118.pfam    +++| ITAAL    EQU    *-ITAA      LENGTH OF MESSAGE
02922  M01S02119.pfam    +++| ITAB     BSS    ITAAL       MESSAGE ASSEMBLY BUFFER
02923  M01S02120.pfam    +++| RST      SPACE  4,20
02924  M01S02121.pfam    +++|**        RST - REQUEST STAGING TAPE.
02925  M01S02122.pfam    +++|*
02926  M01S02123.pfam    +++|*         EXIT   STAGING TAPE ASSIGNED.
02927  M01S02124.pfam    +++|*                (SVSN) = VSN OF STAGING TAPE.
02928  M01S02125.pfam    +++|*                (PVSN) = PACKED VSN OF STAGING TAPE.
02929  M01S02126.pfam    +++|*                STAGE REQUEST FILE ATTACHED (BY *RESEX*).
02930  M01S02127.pfam    +++|*                TO *ABT* IF IMPROPER TAPE ASSIGNED.
02931  M01S02128.pfam    +++|*
02932  M01S02129.pfam    +++|*         USES   X - 0, 1, 2, 5, 6, 7
02933  M01S02130.pfam    +++|*                A - 1, 2, 6.
02934  M01S02131.pfam    +++|*                B - 2, 5, 6, 7.
02935  M01S02132.pfam    +++|*
02936  M01S02133.pfam    +++|*         CALLS  DXB, SNM.
02937  M01S02134.pfam    +++|*
Line S02135 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02938  M02S02135.286l859 ---|*         MACROS FILINFO, LABEL, MESSAGE, MOVE, UNLOAD.
02939  M01S00560.286l859 +++|*         MACROS FILINFO, LABEL, MOVE, UNLOAD.
02940  M01S02136.pfam    +++|
02941  M01S02137.pfam    +++|
02942  M01S02138.pfam    +++| RST      SUBR               ENTRY/EXIT
02943  M01S02139.pfam    +++|          SA1    TAPE        SET FILE NAME IN *FILINFO* BLOCK
02944  M01S02140.pfam    +++|          SA2    RSTA
02945  M01S02141.pfam    +++|          MX7    42
02946  M01S02142.pfam    +++|          BX1    X7*X1
02947  M01S02143.pfam    +++|          BX2    -X7*X2
02948  M01S02144.pfam    +++|          BX6    X1+X2
02949  M01S02145.pfam    +++|          SA6    RSTA
02950  M01S02146.pfam    +++|          UNLOAD TAPE,R
02951  M01S02147.pfam    +++|          MOVE   5,TAPE,RSTB COPY FET FIELDS
02952  M01S02148.pfam    +++|          LABEL  RSTB        REQUEST STAGING TAPE
02953  M01S02149.pfam    +++|          FILINFO  RSTA
Line S02150 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02954  M02S02150.274l797 ---|          SA1    RSTA+1      GET DEVICE TYPE
Line S02151 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02955  M02S02151.274l797 ---|          MX6    -11
Line S02152 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02956  M02S02152.274l797 ---|          LX1    0-48
Line S02153 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02957  M02S02153.274l797 ---|          BX1    -X6*X1
Line S02154 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02958  M02S02154.274l797 ---|          SX2    X1-2RNT
Line S02155 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02959  M02S02155.274l797 ---|          ZR     X2,RST1     IF NINE TRACK TAPE
Line S02156 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02960  M02S02156.274l797 ---|          SX2    X1-2RMT
Line S02157 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02961  M02S02157.274l797 ---|          ZR     X2,RST1     IF SEVEN TRACK TAPE
02962  M01S00029.274l797 +++|          SA1    RSTA+1      CHECK TAPE FILE FLAG
02963  M01S00030.274l797 +++|          LX1    59-24
02964  M01S00031.274l797 +++|          NG     X1,RST1     IF TAPE FILE
Line S02158 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02965  M02S02158.286l859 ---|          MESSAGE  ERNT      * PFRES - STAGING TAPE NOT ASSIGNED.*
02966  M01S00561.286l859 +++|          SB2    ERNT        * STAGING TAPE NOT ASSIGNED.*
02967  M01S02159.pfam    +++|          EQ     ABT         ABORT
02968  M01S02160.pfam    +++|
02969  M01S02161.pfam    +++| RST1     SA1    RSTA+5      GET VSN OF TAPE
02970  M01S02162.pfam    +++|          MX0    36
02971  M01S02163.pfam    +++|          BX6    X0*X1
02972  M01S02164.pfam    +++|          SA6    SVSN        SAVE VSN
02973  M01S02165.pfam    +++|          LX0    6
02974  M01S02166.pfam    +++|          BX0    -X0*X6      VERIFY SIX CHARACTER VSN
02975  M01S02167.pfam    +++|          NZ     X0,RST3     IF SIX CHARACTER VSN
02976  M01S02168.pfam    +++| RST2     SA1    SVSN        SET VSN IN DAYFILE MESSAGE
02977  M01S02169.pfam    +++|          SB2    1R$
02978  M01S02170.pfam    +++|          SB5    ERVE
02979  M01S02171.pfam    +++|          RJ     SNM
Line S02172 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02980  M02S02172.286l859 ---|          MESSAGE  ERVE      * PFRES - STAGING TAPE VSN ERROR. VSN = $.*
02981  M01S00562.286l859 +++|          SB2    ERVE        * STAGING TAPE VSN ERROR. VSN = $.*
02982  M01S02173.pfam    +++|          EQ     ABT         ABORT
02983  M01S02174.pfam    +++|
02984  M01S02175.pfam    +++| RST3     SA1    SVSN        BUILD PACKED VSN
02985  M01S02176.pfam    +++|          MX5    24
02986  M01S02177.pfam    +++|          LX1    12
02987  M01S02178.pfam    +++|          SB7    B1          SET DECIMAL CONVERSION
02988  M01S02179.pfam    +++|          BX5    X5*X1
02989  M01S02180.pfam    +++|          RJ     DXB         CONVERT VSN SUFFIX TO BINARY
02990  M01S02181.pfam    +++|          NZ     X4,RST2     IF ERROR IN CONVERSION (NOT PROPER VSN)
02991  M01S02182.pfam    +++|          SX7    X6-5000
02992  M01S02183.pfam    +++|          NG     X7,RST5     IF NOT BACKUP VSN
02993  M01S02184.pfam    +++|          SX6    X7          USE PRIMARY VSN FOR COMPARISON PURPOSES
02994  M01S02185.pfam    +++| RST5     SA1    SVSN        GET VSN PREFIX
02995  M01S02186.pfam    +++|          MX2    12
02996  M01S02187.pfam    +++|          BX1    X2*X1
02997  M01S02188.pfam    +++|          LX1    -36
02998  M01S02189.pfam    +++|          BX6    X1+X6
02999  M01S02190.pfam    +++|          SA6    PVSN        SAVE PACKED VSN
03000  M01S02191.pfam    +++|          EQ     RSTX        RETURN
03001  M01S02192.pfam    +++|
03002  M01S02193.pfam    +++|
03003  M01S02194.pfam    +++| RSTA     VFD    42/0,6/6,12/1  *FILINFO* BLOCK
03004  M01S02195.pfam    +++|          BSSZ   4
03005  M01S02196.pfam    +++|          VFD    54/,6/4
03006  M01S02197.pfam    +++|
03007  M01S02198.pfam    +++| RSTB     FILEB  TBUF,TBUFL,FET=16B  FET FOR *LABEL*
Line S02199 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03008  M02S02199.274l797 ---|          ORG    RSTB+10B    PO=R,LB=KL,NT,NO UNLOAD
Line S02200 Modification History
M01 (Added by) pfam
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03009  M02S02200.274l797 ---|          VFD    6/24B,3/0,3/0,12/50B,6/0,6/0,24/0
03010  M01S00032.274l797 +++|          ORG    RSTB+10B    PO=R,LB=KL,NO UNLOAD
03011  M01S00033.274l797 +++|          VFD    6/20B,3/0,3/0,12/50B,6/0,6/0,24/0
03012  M01S02201.pfam    +++|          BSSZ   RSTB+16B-*
03013  M01S02202.pfam    +++|          SPACE  4,10
03014  M01S02203.pfam    +++|*         PRESET DATA LOCATIONS.
03015  M01S02204.pfam    +++|
03016  M01S02205.pfam    +++|
03017  M01S02206.pfam    +++| R        BSS    0           STAGE REQUEST FILE
03018  M01S02207.pfam    +++| STRQ     FILEB  RBUF,RBUFL,FET=6
03019  M01S02208.pfam    +++|
03020  M01S02209.pfam    +++| S        BSS    0           SCRATCH STAGE REQUEST FILE
03021  M01S02210.pfam    +++| ZZZZZG4  FILEB  SBUF,SBUFL,FET=6
03022  M01S02211.pfam    +++|
03023  M01S02212.pfam    +++|          SPACE  4,10
03024  M01S02213.pfam    +++|*         PRESET COMMON DECKS.
03025  M01S02214.pfam    +++|
03026  M01S02215.pfam    +++|
03027  M01S02216.pfam    +++|          LIST   X
03028  M01S02217.pfam    +++|*CALL     COMCPFP
03029  M01S02218.pfam    +++|          LIST   *
03030  M01S00034.274l797 +++|*CALL     COMCSOE
03031  M01S02219.pfam    +++|          SPACE  4,10
03032  M01S00035.274l797 +++|          ERRPL  *-TBUF-1    PRESET OVERFLOWS INTO BUFFERS
Line S02220 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03033  M02S02220.286l859 ---|          ERRPL  *-OBUF-1    PRESET OVERFLOWS INTO BUFFERS
Line S02221 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03034  M02S02221.286l859 ---|          ERRPL  *-RBUF-1    PRESET OVERFLOWS INTO *PFRES* BUFFERS
03035  M01S02222.pfam    +++|          SPACE  4,10
03036  M01S02223.pfam    +++|          END
cdc/nos2.source/opl.opl871/deck/pfam.002.txt ยท Last modified: by 127.0.0.1