User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:pfm.005

Deck PFM Part 005

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
07505  M00S05519.pfm     +++|*         CALLS  SCH.
07506  M00S05520.pfm     +++|*
07507  M00S05521.pfm     +++|*         USES   EB, EP, HB, HP.
07508  M00S05522.pfm     +++|*
07509  M00S05523.pfm     +++|*         MACROS ISTORE.
07510  M00S05524.pfm     +++|
07511  M00S05525.pfm     +++|
07512  M00S05526.pfm     +++| SHL      SUBR               ENTRY/EXIT
07513  M00S05527.pfm     +++|          ISTORE ISPB,(UJN ISP1)   BYPASS CATALOG TRACK INTERLOCK
Line S00025 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
07514  M01S00025.ns2414  +++|          ISTORE SCHA,(LDN 0)  FORCE *ISP* CALL
07515  M00S05528.pfm     +++|          LDC    BFMS        SET PRIMARY BUFFER POINTER
07516  M00S05529.pfm     +++|          STM    ISPC
07517  M00S05530.pfm     +++|          ISTORE SCHF,(ZJN SCH12)  ENABLE HOLE SEARCH
07518  M00S05531.pfm     +++|          ISTORE SCHG,(UJN SCH10)  SEARCH FOR HOLES ONLY
07519  M00S05532.pfm     +++|          ISTORE SCHK,(PSN)        ENABLE EXIT FOR HOLE ONLY SEARCH
07520  M00S05533.pfm     +++|          RJM    SCH         SEARCH FOR HOLE
07521  M00S05534.pfm     +++|
07522  M00S05535.pfm     +++|*         CHECK IF HOLE IS IN THE SAME TRACK/SECTOR AS FILE ENTRY.
07523  M00S05536.pfm     +++|
07524  M00S05537.pfm     +++|          LDD    HP
07525  M00S05538.pfm     +++|          ZJN    SHL1        IF HOLE NOT FOUND
07526  M00S05539.pfm     +++|          LDM   -1,CB
07527  M00S05540.pfm     +++|          LMM   -1,HB
07528  M00S05541.pfm     +++|          NJN    SHL1        IF SECTOR NOT THE SAME FOR HOLE AND FILE
07529  M00S05542.pfm     +++|          LDM   -2,CB
07530  M00S05543.pfm     +++|          LMM   -2,HB
07531  M00S05544.pfm     +++|          NJN    SHL1        IF TRACK NOT THE SAME FOR HOLE AND FILE
Line S05545 Modification History
M01 (Removed by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
07532  M01S05545.pfm40   ---|          LDD    HP          ADJUST HOLE POINTERS TO FILE ENTRY BUFFER
Line S00024 Modification History
M01 (Added by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
07533  M01S00024.pfm40   +++|          LDD    CB          ADJUST HOLE POINTERS TO FILE ENTRY BUFFER
07534  M00S05546.pfm     +++|          SBD    HB
Line S05547 Modification History
M01 (Removed by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
07535  M01S05547.pfm40   ---|          ADD    CB
07536  M01S05548.pfm40   ---|          STD    HP
Line S00025 Modification History
M01 (Added by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
07537  M01S00025.pfm40   +++|          RAD    HP
07538  M00S05549.pfm     +++|          LDD    CB
07539  M00S05550.pfm     +++|          STD    HB
07540  M00S05551.pfm     +++|
07541  M00S05552.pfm     +++|*         CHECK IF END IS IN SAME TRACK/SECTOR AS FILE ENTRY.
07542  M00S05553.pfm     +++|
07543  M00S05554.pfm     +++| SHL1     LDD    EB
07544  M00S05555.pfm     +++|          ZJN    SHL3        IF END NOT REACHED (EXACT FIT HOLE FOUND)
07545  M00S05556.pfm     +++|          LDM   -1,CB
07546  M00S05557.pfm     +++|          LMM   -1,EB
07547  M00S05558.pfm     +++|          NJN    SHL3        IF SECTOR NOT THE SAME FOR END AND FILE
07548  M00S05559.pfm     +++|          LDM   -2,CB
07549  M00S05560.pfm     +++|          LMM   -2,EB
07550  M00S05561.pfm     +++|          NJN    SHL3        IF TRACK NOT THE SAME FOR END AND FILE
07551  M00S05562.pfm     +++|          LDD    EP          ADJUST END POINTERS
07552  M00S05563.pfm     +++|          ZJN    SHL2        IF NO END POINTER (EOI)
07553  M00S05564.pfm     +++|          SBD    EB          ADJUST END POINTER TO FILE ENTRY BUFFER
07554  M00S05565.pfm     +++|          ADD    CB
07555  M00S05566.pfm     +++|          STD    EP
07556  M00S05567.pfm     +++| SHL2     LDD    CB          ADJUST END BUFFER TO FILE ENTRY BUFFER
07557  M00S05568.pfm     +++|          STD    EB
07558  M00S05569.pfm     +++|
07559  M00S05570.pfm     +++|*         RETURN HOLE POINTER.
07560  M00S05571.pfm     +++|
07561  M00S05572.pfm     +++| SHL3     LDD    HP          HOLE POINTER (IF FOUND)
07562  M00S05573.pfm     +++|          LJM    SHLX        RETURN
07563  M00S05574.pfm     +++|          TITLE  SPECIAL REQUEST BLOCK CATALOG ACCESS ROUTINES.
07564  M00S05575.pfm     +++| ACE      SPACE  4,30
07565  M00S05576.pfm     +++|**        ACE - ACCESS CATALOG ENTRY.
07566  M00S05577.pfm     +++|*
07567  M00S05578.pfm     +++|*         READ A CATALOG ENTRY AND CHECK THE FOLLOWING INFORMATION -
07568  M00S05579.pfm     +++|*            COMPARE THE USER INDEX WITH (PFFM+3 - PFFM+4).
07569  M00S05580.pfm     +++|*            COMPARE THE CREATION DATE AND TIME WITH (PFCD - PFCD+2).
07570  M00S05581.pfm     +++|*
Line S05582 Modification History
M01 (Removed by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
07571  M01S05582.pfm19   ---|*         ENTRY  (CCIA) = BASE TRACK FOR INTERLOCK
Line S00039 Modification History
M01 (Added by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
07572  M01S00039.pfm19   +++|*         ENTRY  (EQ) = MASTER DEVICE EST ORDINAL.
07573  M01S00040.pfm19   +++|*                (CCIA) = CATALOG TRACK TO INTERLOCK.
Line S00008 Modification History
M01 (Added by) pfm31
Seq #  *Modification Id* Act 
----------------------------+
07574  M01S00008.pfm31   +++|*                (CCIB) UPDATED IF CATALOG TRACK INTERLOCK ALREADY SET.
07575  M00S05583.pfm     +++|*                (PFAS) = 36/ ALTERNATE STORAGE ADDRESS.
07576  M00S05584.pfm     +++|*                (PFCD) = 36/ CREATION DATE AND TIME.
07577  M00S05585.pfm     +++|*                (PFFM) = 42/FAMILY,18/USER INDEX.
07578  M00S05586.pfm     +++|*                (PFID) = 4/,2/PEO,6/DN,12/TRACK,12/SECTOR.
Line S05587 Modification History
M01 (Removed by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
07579  M01S05587.pfm19   ---|*                (SDAA) = MASTER DEVICE EST ORDINAL.
07580  M00S05588.pfm     +++|*
07581  M00S05589.pfm     +++|*         EXIT   CATALOG SECTOR READ.
07582  M00S05590.pfm     +++|*                CATALOG TRACK INTERLOCKED.
07583  M00S05591.pfm     +++|*                (CB) = BUFFER ADDRESS OF CATALOG SECTOR.
07584  M00S05592.pfm     +++|*                (CI) = POINTER TO CATALOG ENTRY.
07585  M00S05593.pfm     +++|*                (T5) = MASTER DEVICE EST ORDINAL.
07586  M00S05594.pfm     +++|*                (T6) = CATALOG TRACK.
07587  M00S05595.pfm     +++|*                (T7) = CATALOG SECTOR.
07588  M00S05596.pfm     +++|*
Line S05597 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07589  M01S05597.242l642 ---|*         CALLS  ITC, RDS.
Line S00691 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
07590  M02S00691.pfm36   ---|*         CALLS  IRA, ITC, PDV, PES, RDS.
Line S00029 Modification History
M01 (Added by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
07591  M01S00029.pfm36   +++|*         CALLS  ICT, IRA, PDV, PES, RDS.
07592  M00S05598.pfm     +++|*
07593  M00S05599.pfm     +++|*         USES   CB, CI, T1, T5, T6, T7.
07594  M00S05600.pfm     +++|*
07595  M00S05601.pfm     +++|*         MACROS COMPARE, ERROR, EXIT, SETMS.
07596  M00S05602.pfm     +++|
07597  M00S05603.pfm     +++|
07598  M00S05604.pfm     +++| ACE      SUBR               ENTRY/EXIT
Line S05605 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
07599  M01S05605.ns2414  ---|          LDC    BUF1        SET CATALOG BUFFER ADDRESS
Line S00026 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07600  M02S00026.253l688 ---|          LDM    SSJS
07601  M02S00027.253l688 ---|          NJN    ACE0        IF CALLER IS *SSJ=*
07602  M02S00028.253l688 ---|          ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST. *
07603  M02S00029.253l688 ---|
07604  M02S00030.253l688 ---| ACE0     LDC    BUF1        SET CATALOG BUFFER ADDRESS
Line S00123 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07605  M01S00123.253l688 +++|          LDC    BUF1        SET CATALOG BUFFER ADDRESS
07606  M00S05606.pfm     +++|          STD    CB
07607  M00S05607.pfm     +++|          ADN    2           INITIALIZE *PFC* ENTRY POINTER
07608  M00S05608.pfm     +++|          STD    CI
Line S05609 Modification History
M01 (Removed by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
07609  M01S05609.pfm19   ---|          LDM    PFPN+4      ESTABLISH CATALOG EST ORDINAL
Line S00041 Modification History
M01 (Added by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
07610  M01S00041.pfm19   +++|          LDD    EQ          SET MASTER DEVICE EST ORDINAL
07611  M00S05610.pfm     +++|          STD    T5
07612  M00S05611.pfm     +++|          LDM    CCIA        BASE TRACK ADDRESS
07613  M00S05612.pfm     +++|          STD    T6
Line S05613 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07614  M01S05613.242l642 ---|          SETMS  READ
Line S00692 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07615  M01S00692.242l642 +++|          SETMS  IO
07616  M01S00693.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
Line S05614 Modification History
M01 (Removed by) pfm31
Seq #  *Modification Id* Act 
----------------------------+
07617  M01S05614.pfm31   ---|          LDD    CC
07618  M01S05615.pfm31   ---|          LMN    CCDP
07619  M01S05616.pfm31   ---|          ZJN    ACE1        IF *DELPFC* (CATALOG ALREADY INTERLOCKED)
Line S00009 Modification History
M01 (Added by) pfm31
Seq #  *Modification Id* Act 
----------------------------+
07620  M01S00009.pfm31   +++|          LDM    CCIB        CHECK CATALOG INTERLOCK FLAG
07621  M01S00010.pfm31   +++|          LPN    77
07622  M01S00011.pfm31   +++|          NJN    ACE1        IF CATALOG ALREADY INTERLOCKED
Line S00124 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07623  M01S00124.253l688 +++|          LDD    CC
07624  M01S00125.253l688 +++|          LMN    CCSP
07625  M01S00126.253l688 +++|          ZJN    ACE1        IF *STAGEPF* REQUEST
Line S05617 Modification History
M01 (Removed by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
07626  M01S05617.pfm36   ---|          LDD    T6
07627  M01S05618.pfm36   ---|          RJM    ITC         SET CATALOG TRACK INTERLOCK
Line S00030 Modification History
M01 (Added by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
07628  M01S00030.pfm36   +++|          RJM    ICT         INTERLOCK CATALOG TRACK
07629  M00S05619.pfm     +++|          AOM    CCIB        SET CATALOG TRACK INTERLOCK FLAG
07630  M00S05620.pfm     +++| ACE1     RJM    IRA         INITIALIZE RANDOM PROCESSORS
07631  M00S05621.pfm     +++|          LDM    PFID+1      SET TRACK ADDRESS FOR READ
07632  M00S05622.pfm     +++|          STM    -2,CB
07633  M00S05623.pfm     +++|          STD    T6
07634  M00S05624.pfm     +++|          STM    ERRC
07635  M00S05625.pfm     +++|          LDM    PFID+2      SET SECTOR ADDRESS FOR READ
07636  M00S05626.pfm     +++|          STM    -1,CB
07637  M00S05627.pfm     +++|          STD    T7
07638  M00S05628.pfm     +++|          STM    ERRD
07639  M00S05629.pfm     +++|          LDD    CB          READ THE CATALOG SECTOR
07640  M00S05630.pfm     +++|          RJM    RDS
07641  M00S05631.pfm     +++|          PJN    ACE3        IF NO READ ERROR
Line S00694 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07642  M01S00694.242l642 +++|          RJM    PES         PROCESS ERROR STATUS
07643  M00S05632.pfm     +++| ACE2     ERROR  MSE,,,T5    *EQXXX,DNYY, MASS STORAGE ERROR.*
07644  M00S05633.pfm     +++|
07645  M00S05634.pfm     +++|*         SETUP *PFC* ENTRY POINTER BASED ON THE *PEO* VALUE.
07646  M00S05635.pfm     +++|
07647  M00S05636.pfm     +++| ACE3     LDM    1,CB        CHECK SECTOR LENGTH
07648  M00S05637.pfm     +++|          LPN    NWCE-1
07649  M00S05638.pfm     +++|          ZJN    ACE4        IF LEGAL SECTOR LENGTH
Line S05639 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
07650  M01S05639.ns2415  ---|          ERROR  BCS,,,T5    *EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.*
Line S00063 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
07651  M01S00063.ns2415  +++|          ERROR  BCS,,,T5,,EI  *EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.*
07652  M00S05640.pfm     +++|
07653  M00S05641.pfm     +++| ACE4     LDM    PFID        ISOLATE *PEO* VALUE
07654  M00S05642.pfm     +++|          SHN    -6
07655  M00S05643.pfm     +++|          LPN    1S"NWCEM"-1
07656  M00S05644.pfm     +++|          SHN    NWCES       FORM *PFC* BIAS
07657  M00S05645.pfm     +++|          STD    T1
07658  M00S05646.pfm     +++|          SHN    2
07659  M00S05647.pfm     +++|          ADD    T1
07660  M00S05648.pfm     +++|          RAD    CI
07661  M00S05649.pfm     +++|          LDD    T1          CHECK *PEO* OFFSET
07662  M00S05650.pfm     +++|          SBM    1,CB
07663  M00S05651.pfm     +++|          PJN    ACE5        IF INVALID *PEO* VALUE
07664  M00S05652.pfm     +++|
07665  M00S05653.pfm     +++|*         VERIFY *PFC* ENTRY INFORMATION.
07666  M00S05654.pfm     +++|
07667  M00S05655.pfm     +++|          LDM    FCUI+1,CI   COMPARE LSB OF USER INDEX
07668  M00S05656.pfm     +++|          LMM    PFFM+4
07669  M00S05657.pfm     +++|          ZJN    ACE6        IF MATCH
07670  M00S05658.pfm     +++| ACE5     ERROR  PVE         *PFC VERIFICATION ERROR.*
07671  M00S05659.pfm     +++|
07672  M00S05660.pfm     +++| ACE6     LDM    FCUI,CI     COMPARE MSB OF USER INDEX
07673  M00S05661.pfm     +++|          LMM    PFFM+3
07674  M00S05662.pfm     +++|          LPN    77
07675  M00S05663.pfm     +++|          NJN    ACE5        IF USER INDEX DOES NOT MATCH
07676  M00S05664.pfm     +++|          COMPARE  PFCD,FCCD CREATION DATE/TIME
07677  M00S05665.pfm     +++|          NJN    ACE5        IF CREATION DATE/TIME DOES NOT MATCH
07678  M00S05666.pfm     +++|          LJM    ACEX        EXIT
07679  M00S05667.pfm     +++| COF      SPACE  4,15
07680  M00S05668.pfm     +++|**        COF - COMPARE FIELD OF 36 BITS.
07681  M00S05669.pfm     +++|*
07682  M00S05670.pfm     +++|*         ENTRY  (A) = PFC ENTRY OFFSET TO OBJECT FIELD.
07683  M00S05671.pfm     +++|*                (CI) = PFC ENTRY ADDRESS.
07684  M00S05672.pfm     +++|*                (T1) = SECONDARY FIELD FOR COMPARE.
07685  M00S05673.pfm     +++|*
07686  M00S05674.pfm     +++|*         EXIT   (A) = 0 IF FIELDS ARE THE SAME.
07687  M00S05675.pfm     +++|*
07688  M00S05676.pfm     +++|*         USES   T1, T2, T3.
07689  M00S05677.pfm     +++|
07690  M00S05678.pfm     +++|
07691  M00S05679.pfm     +++| COF      SUBR               ENTRY/EXIT
07692  M00S05680.pfm     +++|          ADD    CI          SET PRIMARY COMPARE FIELD ADDRESS
07693  M00S05681.pfm     +++|          STD    T2
07694  M00S05682.pfm     +++|          LDN    3           SET NUMBER OF WORDS TO COMPARE
07695  M00S05683.pfm     +++|          STD    T3
07696  M00S05684.pfm     +++|
07697  M00S05685.pfm     +++|*         LOOP COMPARING THE TWO FIELDS.
07698  M00S05686.pfm     +++|
07699  M00S05687.pfm     +++| COF1     LDI    T1          SECONDARY FIELD
07700  M00S05688.pfm     +++|          LMI    T2          PRIMARY FIELD
07701  M00S05689.pfm     +++|          NJN    COFX        IF FIELDS DO NOT MATCH
07702  M00S05690.pfm     +++|          AOD    T1          ADVANCE SECONDARY FIELD POINTER
07703  M00S05691.pfm     +++|          AOD    T2          ADVANCE PRIMARY FIELD POINTER
07704  M00S05692.pfm     +++|          SOD    T3
07705  M00S05693.pfm     +++|          ZJN    COFX        IF ALL FIELDS COMPARE
07706  M00S05694.pfm     +++|          UJN    COF1        CONTINUE FIELD COMPARE
Line S00031 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
07707  M01S00031.ns2414  +++|RSC       SPACE  4,10
Line S00032 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07708  M02S00032.253l688 ---|**        RSC - READ CATALOG ENTRY, SEARCH CATALOG IF NEEDED.
Line S00127 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07709  M01S00127.253l688 +++|**        RSC - READ CATALOG ENTRY, SEARCH CATALOG IF NECESSARY.
Line S00033 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
07710  M01S00033.ns2414  +++|*
Line S00034 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07711  M02S00034.253l688 ---|*         CALLS  RVC, SCH.
Line S00128 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07712  M01S00128.253l688 +++|*         CALLS  ACE, SCH.
Line S00035 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
07713  M01S00035.ns2414  +++|*
07714  M01S00036.ns2414  +++|*         MACROS ERROR.
07715  M01S00037.ns2414  +++|
07716  M01S00038.ns2414  +++|
Line S00039 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07717  M02S00039.253l688 ---|RSC       SUBR               ENTRY/EXIT
Line S00129 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07718  M01S00129.253l688 +++| RSC      SUBR               ENTRY/EXIT
Line S00040 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
07719  M01S00040.ns2414  +++|          LDM    PFRB
07720  M01S00041.ns2414  +++|          LPN    37
07721  M01S00042.ns2414  +++|          ADM    PFRB+1
07722  M01S00043.ns2414  +++|          NJN    RSC1        IF SPECIAL REQUEST BLOCK SPECIFIED
07723  M01S00044.ns2414  +++|          RJM    SCH         SEARCH CATALOG
07724  M01S00045.ns2414  +++|          ZJN    RSCX        IF FILE FOUND
07725  M01S00046.ns2414  +++|          ERROR  FNF         * (FILENAME) NOT FOUND. *
07726  M01S00047.ns2414  +++|
Line S00048 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07727  M02S00048.253l688 ---| RSC1     RJM    RVC         READ AND VERIFY CATALOG ENTRY
Line S00130 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07728  M01S00130.253l688 +++| RSC1     RJM    ACE         ACCESS CATALOG ENTRY
Line S00049 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
07729  M01S00049.ns2414  +++|          UJN    RSCX        RETURN
07730  M00S05695.pfm     +++| RVC      SPACE  4,10
07731  M00S05696.pfm     +++|**        RVC -  READ AND VERIFY CATALOG ENTRY.
07732  M00S05697.pfm     +++|*
07733  M00S05698.pfm     +++|*         EXIT   (CB) = CATALOG BUFFER.
07734  M00S05699.pfm     +++|*                (CI) = CATALOG POINTER.
07735  M00S05700.pfm     +++|*
07736  M00S05701.pfm     +++|*         CALLS  ACE.
07737  M00S05702.pfm     +++|*
07738  M00S05703.pfm     +++|*         MACROS COMPARE, ERROR.
07739  M00S05704.pfm     +++|
07740  M00S05705.pfm     +++|
07741  M00S05706.pfm     +++| RVC      SUBR               ENTRY/EXIT
07742  M00S05707.pfm     +++|          RJM    ACE         ACCESS CATALOG ENTRY
Line S05708 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07743  M01S05708.253l688 ---|          COMPARE  PFAA,FCAA VERIFY ALTERNATE STORAGE ADDRESSES
Line S00131 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07744  M01S00131.253l688 +++|          LDM    STAT
07745  M01S00132.253l688 +++|          LPK    STTA
07746  M01S00133.253l688 +++|          NJN    RVC2        IF TAPE ALTERNATE STORAGE REQUEST
07747  M01S00134.253l688 +++|
07748  M01S00135.253l688 +++|*         VERIFY CARTRIDGE ALTERNATE STORAGE ADDRESS.
07749  M01S00136.253l688 +++|
07750  M01S00137.253l688 +++|          COMPARE  PFAA,FCAA VERIFY ALTERNATE STORAGE ADDRESS
07751  M00S05709.pfm     +++|          NJN    RVC1        IF NO MATCH ON ALTERNATE STORAGE ADDRESS
07752  M00S05710.pfm     +++|          LDM    PFAT        VERIFY ALTERNATE STORAGE TYPE
07753  M00S05711.pfm     +++|          LMM    FCAT,CI
07754  M00S05712.pfm     +++|          LPN    77
07755  M00S05713.pfm     +++|          ZJN    RVCX        IF ALTERNATE STORAGE TYPES MATCH
07756  M00S05714.pfm     +++| RVC1     ERROR  PVE         * PFC VERIFICATION ERROR.*
Line S00138 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07757  M01S00138.253l688 +++|
07758  M01S00139.253l688 +++|*         VERIFY TAPE ALTERNATE STORAGE ADDRESS.
07759  M01S00140.253l688 +++|
07760  M01S00141.253l688 +++| RVC2     COMPARE  PFTS+1,FCTS+1  VERIFY TAPE SEQUENCE NUMBER AND VSN
07761  M01S00142.253l688 +++|          NJN    RVC1        IF NO MATCH
07762  M01S00143.253l688 +++|          LDM    PFTS        VERIFY TAPE SEQUENCE NUMBER
07763  M01S00144.253l688 +++|          LMM    FCTS,CI
07764  M01S00145.253l688 +++|          LPN    77
07765  M01S00146.253l688 +++|          NJN    RVC1        IF TAPE SEQUENCE NUMBER DOES NOT MATCH
07766  M01S00147.253l688 +++|          UJP    RVCX        RETURN
Line S05715 Modification History
M01 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07767  M01S05715.pfm63   ---|          TITLE  INITIAL REQUEST PROCESSING.
07768  M01S05716.pfm63   ---| IRP      SPACE  4,10
07769  M01S05717.pfm63   ---|***       INITIAL REQUEST PROCESSING.
07770  M01S05718.pfm63   ---|*
07771  M01S05719.pfm63   ---|*         CALL REQUEST PREPROCESSOR TO PERFORM CATALOG AND
07772  M01S05720.pfm63   ---|*         PERMIT SEARCH, BEFORE CALLING COMMAND OVERLAY.
07773  M01S05721.pfm63   ---|*
07774  M01S05722.pfm63   ---|*         ENTRY  (CC) = COMMAND CODE.
07775  M01S05723.pfm63   ---|*                (DVLW - DVLW+4) = DEVICE LAYOUT WORD OF MST.
07776  M01S05724.pfm63   ---|*                (MSTA) = MST ADDRESS/10B.
07777  M01S05725.pfm63   ---|*                (PFOU) = OPTIONAL USER NAME
07778  M01S05726.pfm63   ---|*                (PFPN) = OPTIONAL PACK NAME.
07779  M01S05727.pfm63   ---|*
07780  M01S05728.pfm63   ---|*         EXIT   TO COMMAND PROCESSOR AS SPECIFIED BY (CC).
07781  M01S05729.pfm63   ---|*                (CCDA) = CHANGED IF PASSWORD CHECKING IS NOT NEEDED.
07782  M01S05730.pfm63   ---|*                (CCDB) = *PSN* SET IF ACCUMULATION REQUIRED.
07783  M01S05731.pfm63   ---|*                (CCDC) = CHANGED IF SECURITY ACCESS VIOLATION.
07784  M01S05732.pfm63   ---|*                (DVLW) = DEVICE LAYOUT WORD OF MASTER DEVICE FROM MST.
07785  M01S05733.pfm63   ---|*                (LCOA) = COMMAND OVERLAY PROCESSOR ADDRESS.
07786  M01S05734.pfm63   ---|*                (LCOB) = COMMAND OVERLAY NAME.
07787  M01S05735.pfm63   ---|*                (SCHG) = BYPASS SET IF USER INDEX CHECK IS NOT NEEDED.
07788  M01S05736.pfm63   ---|*                THE FOLLOWING SEARCH POINTERS ARE INITIALIZED.
07789  M01S05737.pfm63   ---|*                (HL, PB, PP, CS, CS+1, HB, HP, CB, CI, EP)
07790  M01S05738.pfm63   ---|*
07791  M01S05739.pfm63   ---|*         USES   T1, CM - CM+4.
07792  M01S05740.pfm63   ---|*
07793  M01S05741.pfm63   ---|*         CALLS  RMD.
07794  M01S05742.pfm63   ---|
07795  M01S05743.pfm63   ---|
07796  M01S05744.pfm63   ---| IRP      BSS    0           ENTRY
07797  M01S05745.pfm63   ---|
07798  M01S05746.pfm63   ---|*         INITIALIZE CATALOG SEARCH ROUTINES.
07799  M01S05747.pfm63   ---|
07800  M01S05748.pfm63   ---|          LDM    PFOU
07801  M01S05749.pfm63   ---|          NJN    IRP1        IF ALTERNATE USER NAME SPECIFIED
07802  M01S05750.pfm63   ---|          ISTORE CCDA,(UJN CCD4)  SET BYPASS OF PASSWORD CHECK
Line S05751 Modification History
M01 (Removed by) pfm37
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07803  M02S05751.pfm63   ---|          ISTORE CCDC,(NJN CCD8)  SET SECURITY VIOLATION PROCESSING
Line S00012 Modification History
M01 (Added by) pfm37
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07804  M02S00012.pfm63   ---|          ISTORE CCDC,(NJN CCD9)  SET SECURITY VIOLATION PROCESSING
Line S05752 Modification History
M01 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07805  M01S05752.pfm63   ---| IRP1     LDM    STAT        CHECK FOR SEARCH STATISTICS REQUIRED
07806  M01S05753.pfm63   ---|          LPK    STAC
07807  M01S05754.pfm63   ---|          ZJN    IRP2        IF ACCUMULATION NOT REQUIRED
07808  M01S05755.pfm63   ---|          ISTORE CCDB,(PSN)  SET ACCUMULATION REQUIRED
07809  M01S05756.pfm63   ---|
07810  M01S05757.pfm63   ---|*         INITIALIZE FOR DEVICE ACCESS.
07811  M01S05758.pfm63   ---|
07812  M01S05759.pfm63   ---| IRP2     RJM    RMD         SET DRIVER FOR MASTER DEVICE
07813  M01S05760.pfm63   ---|          LDM    MSTA        READ MST DEVICE LAYOUT WORD
07814  M01S05761.pfm63   ---|          SHN    3
07815  M01S05762.pfm63   ---|          ADN    ALGL
07816  M01S05763.pfm63   ---|          CRM    DVLW,ON
07817  M01S05764.pfm63   ---|          LDM    STAT        CHECK FOR PRIVATE DEVICE
07818  M01S05765.pfm63   ---|          LPK    STPD
07819  M01S05766.pfm63   ---|          ZJN    IRP3        IF NOT PRIVATE DEVICE
07820  M01S05767.pfm63   ---|          ISTORE SCHG,(PSN)  SET BYPASS OF USER INDEX CHECK
07821  M01S05768.pfm63   ---|
07822  M01S05769.pfm63   ---|*         INITIALIZE SEARCH POINTERS.
07823  M01S05770.pfm63   ---|
07824  M01S05771.pfm63   ---| IRP3     LDN    0           CLEAR DIRECT CELLS
07825  M01S05772.pfm63   ---|          STD    HL          LENGTH OF HOLE
07826  M01S05773.pfm63   ---|          STD    PB          POINTER TO PERMIT BUFFER
07827  M01S05774.pfm63   ---|          STD    PP          INDEX TO PERMIT BUFFER
07828  M01S05775.pfm63   ---|          STD    CS          CUMULATIVE SIZE OF FILES IN CATALOG
07829  M01S05776.pfm63   ---|          STD    CS+1
07830  M01S05777.pfm63   ---|          LDN    ZERL        CLEAR CONTIGUOUS STORAGE
07831  M01S05778.pfm63   ---|          CRD    HB
07832  M01S05779.pfm63   ---|          ERRNZ  HP-HB-1     DIRECT CELLS NOT CONTIGUOUS
07833  M01S05780.pfm63   ---|          ERRNZ  CB-HP-1     DIRECT CELLS NOT CONTIGUOUS
07834  M01S05781.pfm63   ---|          ERRNZ  CI-CB-1     DIRECT CELLS NOT CONTIGUOUS
07835  M01S05782.pfm63   ---|          ERRNZ  EP-CI-1     DIRECT CELLS NOT CONTIGUOUS
07836  M01S05783.pfm63   ---|
07837  M01S05784.pfm63   ---|*         EXIT TO REQUEST PREPROCESSOR.
07838  M01S05785.pfm63   ---|
07839  M01S05786.pfm63   ---|          LDD    CC          INDEX INTO *TCMD* TABLE
07840  M01S05787.pfm63   ---|          SHN    1
07841  M01S05788.pfm63   ---|          ADD    CC
07842  M01S05789.pfm63   ---|          STD    T1
07843  M01S05790.pfm63   ---|          LDM    TCMD+2,T1   SET REQUEST PROCESSOR ENTRY ADDRESS
07844  M01S05791.pfm63   ---|          STM    LCOA
07845  M01S05792.pfm63   ---|          LDM    TCMD+1,T1   SET OVERLAY NAME INTO *EXECUTE* MACRO
07846  M01S05793.pfm63   ---|          STM    LCOB
07847  M01S05794.pfm63   ---|          LDM    TCMD,T1     SET REQUEST PREPROCESSOR ADDRESS
07848  M01S05795.pfm63   ---|          STD    T1
07849  M01S05796.pfm63   ---|          LJM    0,T1        EXIT TO REQUEST PREPROCESSOR
07850  M01S05797.pfm63   ---| TCMD     SPACE  4,25
07851  M01S05798.pfm63   ---|**        TCMD - TABLE OF COMMAND PROCESSOR ADDRESSES.
07852  M01S05799.pfm63   ---|*
07853  M01S05800.pfm63   ---|*         FIRST BYTE IS PREPROCESSOR ADDRESS IN *3PC*.
07854  M01S05801.pfm63   ---|*         SECOND BYTE IS SUFFIX FOR COMMAND OVERLAY NAME.
07855  M01S05802.pfm63   ---|*         THIRD BYTE IS PROCESSOR ADDRESS IN COMMAND OVERLAY.
07856  M01S05803.pfm63   ---|
07857  M01S05804.pfm63   ---| TCMD     EQU    *-3         COMMAND CODE ADDRESS TABLE
07858  M01S05805.pfm63   ---|          LOC    3
07859  M01S05806.pfm63   ---|
Line S05807 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07860  M02S05807.pfm63   ---|          CON    SAV,2RPF,/3PF/SAV  *SAVE*
07861  M02S05808.pfm63   ---|          CON    GET,2RPE,/3PE/GET  *GET*
07862  M02S05809.pfm63   ---|          CON    PUR,2RPK,/3PK/PUR  *PURGE*
Line S00695 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07863  M02S00695.pfm63   ---|          CON    SAV,2RPG,/3PG/SAV  *SAVE*
07864  M02S00696.pfm63   ---|          CON    GET,2RPF,/3PF/GET  *GET*
07865  M02S00697.pfm63   ---|          CON    PUR,2RPL,/3PL/PUR  *PURGE*
Line S05810 Modification History
M01 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07866  M01S05810.pfm63   ---|          CON    0,0,0              *CATLIST*
Line S05811 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07867  M02S05811.pfm63   ---|          CON    PER,2RPK,/3PK/PER  *PERMIT*
07868  M02S05812.pfm63   ---|          CON    REP,2RPF,/3PF/REP  *REPLACE*
07869  M02S05813.pfm63   ---|          CON    APP,2RPG,/3PG/APP  *APPEND*
07870  M02S05814.pfm63   ---|          CON    DEF,2RPJ,/3PJ/DEF  *DEFINE*
07871  M02S05815.pfm63   ---|          CON    ATT,2RPH,/3PH/ATT  *ATTACH*
07872  M02S05816.pfm63   ---|          CON    CHG,2RPL,/3PL/CHG  *CHANGE*
07873  M02S05817.pfm63   ---|          CON    UAT,2RPH,/3PH/UAT  *UATTACH*
07874  M02S05818.pfm63   ---|          CON    SAA,2RPM,/3PM/SAA  *SETASA*
07875  M02S05819.pfm63   ---|          CON    SAF,2RPM,/3PM/SAF  *SETAF*
07876  M02S05820.pfm63   ---|          CON    SDA,2RPJ,/3PJ/SDA  *SETDA*
07877  M02S05821.pfm63   ---|          CON    DDS,2RPK,/3PK/DDS  *DROPDS*
Line S00698 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
M03 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07878  M03S00698.pfm63   ---|          CON    PER,2RPL,/3PL/PER  *PERMIT*
Line S00050 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07879  M02S00050.pfm63   ---|          CON    PER,2RPM,/3PM/PER  *PERMIT*
Line S00699 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07880  M02S00699.pfm63   ---|          CON    REP,2RPG,/3PG/REP  *REPLACE*
07881  M02S00700.pfm63   ---|          CON    APP,2RPH,/3PH/APP  *APPEND*
07882  M02S00701.pfm63   ---|          CON    DEF,2RPK,/3PK/DEF  *DEFINE*
07883  M02S00702.pfm63   ---|          CON    ATT,2RPI,/3PI/ATT  *ATTACH*
Line S00703 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
M03 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07884  M03S00703.pfm63   ---|          CON    CHG,2RPM,/3PM/CHG  *CHANGE*
Line S00051 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07885  M02S00051.pfm63   ---|          CON    CHG,2RPN,/3PN/CHG  *CHANGE*
Line S00704 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07886  M02S00704.pfm63   ---|          CON    UAT,2RPI,/3PI/UAT  *UATTACH*
Line S00705 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
M03 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07887  M03S00705.pfm63   ---|          CON    SAA,2RPN,/3PN/SAA  *SETASA*
07888  M03S00706.pfm63   ---|          CON    SAF,2RPN,/3PN/SAF  *SETAF*
Line S00052 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07889  M02S00052.pfm63   ---|          CON    SAA,2RPO,/3PO/SAA  *SETASA*
07890  M02S00053.pfm63   ---|          CON    SAF,2RPO,/3PO/SAF  *SETAF*
Line S00707 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07891  M02S00707.pfm63   ---|          CON    SDA,2RPK,/3PK/SDA  *SETDA*
07892  M02S00708.pfm63   ---|          CON    DDS,2RPL,/3PL/DDS  *DROPDS*
Line S05822 Modification History
M01 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07893  M01S05822.pfm63   ---|          CON    0,0,0              *ASSIGNPF*
Line S05823 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07894  M02S05823.pfm63   ---|          CON    OLD,2RPE,/3PE/OLD  *OLD*
07895  M02S05824.pfm63   ---|          CON    SAC,2RPL,/3PL/CHG  *SETPFAC*
07896  M02S05825.pfm63   ---|          CON    SAL,2RPL,/3PL/CHG  *SETPFAL*
07897  M02S05826.pfm63   ---|          CON    UGT,2RPE,/3PE/UGT  *UGET*
07898  M02S05827.pfm63   ---|          CON    URE,2RPF,/3PF/URE  *UREPLAC*
07899  M02S05828.pfm63   ---|          CON    DIS,2RPK,/3PK/DIS  *DROPIDS*
07900  M02S05829.pfm63   ---|          CON    DPF,2RPK,/3PK/DPF  *DELPFC*
Line S00709 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07901  M02S00709.pfm63   ---|          CON    OLD,2RPF,/3PF/OLD  *OLD*
Line S00710 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
M03 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07902  M03S00710.pfm63   ---|          CON    SAC,2RPM,/3PM/CHG  *SETPFAC*
07903  M03S00711.pfm63   ---|          CON    SAL,2RPM,/3PM/CHG  *SETPFAL*
Line S00054 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07904  M02S00054.pfm63   ---|          CON    SAC,2RPN,/3PN/CHG  *SETPFAC*
07905  M02S00055.pfm63   ---|          CON    SAL,2RPN,/3PN/CHG  *SETPFAL*
Line S00712 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07906  M02S00712.pfm63   ---|          CON    UGT,2RPF,/3PF/UGT  *UGET*
07907  M02S00713.pfm63   ---|          CON    URE,2RPG,/3PG/URE  *UREPLAC*
Line S00714 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
M03 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07908  M03S00714.pfm63   ---|          CON    DIS,2RPL,/3PL/DIS  *DROPIDS*
07909  M03S00715.pfm63   ---|          CON    DPF,2RPL,/3PL/DPF  *DELPFC*
Line S00056 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07910  M02S00056.pfm63   ---|          CON    DIS,2RPM,/3PM/DIS  *DROPIDS*
07911  M02S00057.pfm63   ---|          CON    DPF,2RPM,/3PM/DPF  *DELPFC*
Line S05830 Modification History
M01 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07912  M01S05830.pfm63   ---|          CON    0,0,0              *RPFSTAT*
Line S00148 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07913  M02S00148.pfm63   ---|          CON    SPF,2RPR,/3PR/SPF  *STAGEPF*
Line S05831 Modification History
M01 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07914  M01S05831.pfm63   ---|
07915  M01S05832.pfm63   ---|          LOC    *O
07916  M00S05833.pfm     +++|          SPACE  4,10
07917  M00S05834.pfm     +++|*         CHECK FOR ZERO-LEVEL OVERLAY OVERFLOW.
07918  M00S05835.pfm     +++|
07919  M00S05836.pfm     +++|
07920  M00S05837.pfm     +++|          ERRNG  *-OVL0-ZBFL *0BF* OVERFLOW
07921  M00S05838.pfm     +++|          ERRNG  *-OVL0-ZDFL *0DF* OVERFLOW
07922  M00S05839.pfm     +++|          TITLE  REQUEST PREPROCESSORS.
07923  M00S05840.pfm     +++| APP      SPACE  4,10
07924  M00S05841.pfm     +++|***       APP - *APPEND* REQUEST.
07925  M00S05842.pfm     +++|
07926  M00S05843.pfm     +++|
07927  M00S05844.pfm     +++| APP      BSS    0           ENTRY
07928  M00S05845.pfm     +++|
07929  M00S05846.pfm     +++|*         INITIALIZE FOR CATALOG SEARCH.
07930  M00S05847.pfm     +++|
07931  M00S05848.pfm     +++|          LDD    LF          CHECK FILE SIZE
07932  M00S05849.pfm     +++|          NJN    APP1        IF FILE TOO LARGE FOR HOLE
07933  M00S05850.pfm     +++|          ISTORE SCHI,(UJN SCH13)  SET FOR LARGEST HOLE SEARCH
07934  M00S05851.pfm     +++|          ISTORE SCHF,(ZJN SCH12)  SET FOR HOLE SEARCH
07935  M00S05852.pfm     +++| APP1     RJM    SCH         SEARCH CATALOG
07936  M00S05853.pfm     +++|          ZJN    APP2        IF FILE FOUND
07937  M00S05854.pfm     +++|          ERROR  FNF         *(FILE NAME) NOT FOUND.*
07938  M00S05855.pfm     +++|
07939  M00S05856.pfm     +++|*         COMPUTE LENGTH OF NEW FILE.
07940  M00S05857.pfm     +++|
07941  M00S05858.pfm     +++| APP2     LDD    LF          SAVE LENGTH OF APPENDAGE
07942  M00S05859.pfm     +++|          STM    APLF
07943  M00S05860.pfm     +++|          LDD    LF+1
07944  M00S05861.pfm     +++|          STM    APLF+1
07945  M00S05862.pfm     +++|          LDM    FCLF+1,CI   CALCULATE TOTAL LENGTH OF NEW FILE
07946  M00S05863.pfm     +++|          RAD    LF+1
07947  M00S05864.pfm     +++|          SHN    -14
07948  M00S05865.pfm     +++|          ADM    FCLF,CI
07949  M00S05866.pfm     +++|          RAD    LF
07950  M00S05867.pfm     +++|          SHN    -5
07951  M00S05868.pfm     +++|          NJN    APP3        IF FILE LENGTH .GE. 131072D SECTORS
07952  M00S05869.pfm     +++|          LDD    LF          CHECK FOR .GT. 131069D SECTORS
07953  M00S05870.pfm     +++|          SHN    14
07954  M00S05871.pfm     +++|          ADD    LF+1
07955  M00S05872.pfm     +++|          ADN    2           ADD SYSTEM AND EOI SECTORS
07956  M00S05873.pfm     +++|          MJN    APP3        IF FILE .GT. 131069D SECTORS
07957  M00S05874.pfm     +++|          LDM    MXFS
07958  M00S05875.pfm     +++|          ZJN    APP4        IF NO LIMIT ON FILE SIZE
07959  M00S05876.pfm     +++|          LDD    LF
07960  M00S05877.pfm     +++|          SHN    -3
07961  M00S05878.pfm     +++|          NJN    APP3        IF FILE SIZE .GT. MAXIMUM FILE SIZE LIMIT
07962  M00S05879.pfm     +++|          LDD    LF
07963  M00S05880.pfm     +++|          SHN    14
07964  M00S05881.pfm     +++|          ADD    LF+1
07965  M00S05882.pfm     +++|          ADN    7
07966  M00S05883.pfm     +++|          SHN    -3
07967  M00S05884.pfm     +++|          SBM    MXFS
07968  M00S05885.pfm     +++|          MJN    APP4        IF FILE NOT TOO LARGE
07969  M00S05886.pfm     +++|          ZJN    APP4        IF FILE NOT TOO LARGE
07970  M00S05887.pfm     +++| APP3     LDN    STAB        SET TO ABORT AFTER PERMISSION CHECK
07971  M00S05888.pfm     +++|          RAM    STAT
07972  M00S05889.pfm     +++| APP4     LDM    FCBT,CI     SAVE ADDRESS OF OLD FILE
07973  M00S05890.pfm     +++|          STM    APTK
07974  M00S05891.pfm     +++|          LDM    FCBS,CI
07975  M00S05892.pfm     +++|          STM    APSC
07976  M00S05893.pfm     +++|          LDD    LF
07977  M00S05894.pfm     +++|          ZJN    APP6        IF NEW FILE SHORT ENOUGH TO PLUG HOLE
07978  M00S05895.pfm     +++|          ISTORE SCHF,(PSN)  TURN OFF HOLE SEARCH
07979  M00S05896.pfm     +++|          UJN    APP7        CLEAR HOLE POINTERS
07980  M00S05897.pfm     +++|
07981  M00S05898.pfm     +++| APP6     LDD    HL          CHECK SIZE OF HOLE FOUND
07982  M00S05899.pfm     +++|          ZJN    APP8        IF NO HOLE FOUND
07983  M00S05900.pfm     +++|          SBD    LF+1
07984  M00S05901.pfm     +++|          ZJN    APP9        IF EXACT FIT, BYPASS HOLE SEARCH
Line S05902 Modification History
M01 (Removed by) ns2273
Seq #  *Modification Id* Act 
----------------------------+
07985  M01S05902.ns2273  ---|          SBN    MNHS
Line S00002 Modification History
M01 (Added by) ns2273
Seq #  *Modification Id* Act 
----------------------------+
07986  M01S00002.ns2273  +++|          SBK    MNHS
07987  M00S05903.pfm     +++|          PJN    APP8        IF HOLE LONG ENOUGH FOR FILE AND NEW HOLE
07988  M00S05904.pfm     +++| APP7     LDN    0           CLEAR HOLE POINTERS
07989  M00S05905.pfm     +++|          STD    HP
07990  M00S05906.pfm     +++|          STD    HB
07991  M00S05907.pfm     +++|          STD    HL
07992  M00S05908.pfm     +++| APP8     ISTORE SCHI,(ZJN SCH17)  TURN ON SEARCH FOR EXACT FIT
07993  M00S05909.pfm     +++|          RJM    SCH         CONTINUE SEARCH FOR BEST HOLE
07994  M00S05910.pfm     +++|          NJN    APP9        IF DUPLICATE FILE NOT FOUND
07995  M00S05911.pfm     +++|          ERROR  RPE,,,EQ    *EQXXX,DNYY, REPLACE ERROR.*
07996  M00S05912.pfm     +++|
07997  M00S05913.pfm     +++|*         SEARCH PERMITS.
07998  M00S05914.pfm     +++|
07999  M00S05915.pfm     +++| APP9     RJM    CCT         CHECK FOR CPU TRANSFER
08000  M00S05916.pfm     +++|          RJM    SDB         SWAP DISK BUFFERS (IF NECESSARY)
08001  M00S05917.pfm     +++|          RJM    SSP         SET STATISTICAL PARAMETERS
08002  M00S05918.pfm     +++|          LDN    0           CLEAR PERMIT POINTERS
08003  M00S05919.pfm     +++|          STD    PB
08004  M00S05920.pfm     +++|          STD    PP
08005  M00S05921.pfm     +++|
08006  M00S05922.pfm     +++|*         READ PERMITS.
08007  M00S05923.pfm     +++|
08008  M00S05924.pfm     +++|          LDN    PTAP        CHECK FOR APPEND PERMISSION
08009  M00S05925.pfm     +++|          RJM    CPI
Line S00001 Modification History
M01 (Added by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
08010  M01S00001.pfm62   +++|          RJM    VFI         VERIFY THAT FILE IS INDIRECT ACCESS
08011  M00S05926.pfm     +++|          RJM    DSR         DETERMINE IF FILE STAGING REQUIRED
08012  M00S05927.pfm     +++|          LJM    LCO         CALL OVERLAY
08013  M00S05928.pfm     +++| ATT      SPACE  4,10
08014  M00S05929.pfm     +++|***       ATT - *ATTACH* REQUEST.
08015  M00S05930.pfm     +++|
08016  M00S05931.pfm     +++|
08017  M00S05932.pfm     +++| ATT      BSS    0           ENTRY
08018  M00S05933.pfm     +++|          RJM    SCH         SEARCH CATALOG
08019  M00S05934.pfm     +++|          ZJN    ATT2        IF FILE FOUND
08020  M00S05935.pfm     +++|          ERROR  FNF         *(FILE NAME) NOT FOUND.*
08021  M00S05936.pfm     +++|
08022  M00S05937.pfm     +++|*         VERIFY PERMISSIONS FOR ACCESS.
08023  M00S05938.pfm     +++|
08024  M00S05939.pfm     +++| ATT2     LDM    MODE
08025  M00S05940.pfm     +++|          RJM    CPI
08026  M00S05941.pfm     +++|          LDM    FCBS,CI     CHECK FILE TYPE
08027  M00S05942.pfm     +++|          SHN    21-13
08028  M00S05943.pfm     +++|          MJN    ATT3        IF DIRECT ACCESS FILE
Line S05944 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08029  M01S05944.242l642 ---|          ERROR  FIA,CH      *(FILE NAME) IS INDIRECT ACCESS.*
Line S00716 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08030  M01S00716.242l642 +++|          ERROR  FIA         *(FILE NAME) IS INDIRECT ACCESS.*
08031  M00S05945.pfm     +++|
08032  M00S05946.pfm     +++| ATT3     RJM    DSR         DETERMINE IF FILE STAGING IS REQUIRED
08033  M00S05947.pfm     +++|          LJM    LCO         CALL OVERLAY
08034  M00S05948.pfm     +++| CHG      SPACE  4,10
08035  M00S05949.pfm     +++|***       CHG - *CHANGE* REQUEST.
08036  M00S05950.pfm     +++|
08037  M00S05951.pfm     +++|
08038  M00S05952.pfm     +++| CHG      BSS    0           ENTRY
08039  M00S05953.pfm     +++|          LJM    LCO         CALL OVERLAY
08040  M00S05954.pfm     +++| DDS      SPACE  4,10
08041  M00S05955.pfm     +++|***       DDS - *DROPDS* REQUEST.
08042  M00S05956.pfm     +++|
08043  M00S05957.pfm     +++|
08044  M00S05958.pfm     +++| DDS      BSS    0           ENTRY
Line S05959 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08045  M01S05959.ns2414  ---|          RJM    RVC         READ AND VERIFY CATALOG ENTRY
Line S00058 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08046  M02S00058.253l688 ---|          RJM    RSC         READ CATALOG ENTRY, SEARCH IF NEEDED
Line S05960 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08047  M01S05960.253l688 ---|          LJM    LCO         LOAD OVERLAY
Line S00149 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08048  M01S00149.253l688 +++|          RJM    RSC         READ CATALOG ENTRY, SEARCH IF NECESSARY
08049  M01S00150.253l688 +++|          LDM    FCBT,CI
08050  M01S00151.253l688 +++|          NJN    DDS1        IF FILE DISK RESIDENT
08051  M01S00152.253l688 +++|          ENDMS
08052  M01S00153.253l688 +++|          EXECUTE  3PU       TERMINATE *PFM*
08053  M01S00154.253l688 +++|
08054  M01S00155.253l688 +++| DDS1     LDM    FCBS,CI
08055  M01S00156.253l688 +++|          SHN    21-13
08056  M01S00157.253l688 +++|          MJN    DDS2        IF DIRECT ACCESS FILE
08057  M01S00158.253l688 +++|          LDN    CCDI        PROCESS AS *DROPIDS* REQUEST
08058  M01S00159.253l688 +++|          STD    CC
Line S00160 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08059  M02S00160.pfm63   ---|          SHN    1
08060  M02S00161.pfm63   ---|          ADD    CC
08061  M02S00162.pfm63   ---|          STD    T1
08062  M02S00163.pfm63   ---|          LDM    TCMD+2,T1   SET REQUEST PROCESSOR ADDRESS
Line S00001 Modification History
M01 (Added by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08063  M01S00001.pfm63   +++|          LDC    PRDI        SET REQUEST PROCESSOR ADDRESS
Line S00164 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08064  M01S00164.253l688 +++|          STM    LCOA
Line S00165 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08065  M02S00165.pfm63   ---|          LDM    TCMD+1,T1   SET OVERLAY INTO *EXECUTE* MACRO
Line S00002 Modification History
M01 (Added by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08066  M01S00002.pfm63   +++|          LDC    OVDI        SET OVERLAY INTO *EXECUTE* MACRO
Line S00166 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08067  M01S00166.253l688 +++|          STM    LCOB
08068  M01S00167.253l688 +++|          LJM    DIS2        PROCESS AS *DROPIDS* REQUEST
08069  M01S00168.253l688 +++|
08070  M01S00169.253l688 +++| DDS2     LJM    LCO         LOAD OVERLAY
08071  M00S05961.pfm     +++| DIS      SPACE  4,10
08072  M00S05962.pfm     +++|***       DIS - *DROPIDS* REQUEST.
08073  M00S05963.pfm     +++|
08074  M00S05964.pfm     +++|
08075  M00S05965.pfm     +++| DIS      BSS    0           ENTRY
Line S05966 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08076  M01S05966.ns2414  ---|          RJM    RVC         READ AND VERIFY CATALOG ENTRY
08077  M01S05967.ns2414  ---|          LDD    CI          SET CURRENT PFN FOR NEW PFC ENTRY
08078  M01S05968.ns2414  ---|          ADN    FCFN
08079  M01S05969.ns2414  ---|          RJM    SFN
08080  M01S05970.ns2414  ---|          LDM    FCBS,CI
08081  M01S05971.ns2414  ---|          SHN    21-13
08082  M01S05972.ns2414  ---|          PJN    DIS1        IF INDIRECT ACCESS FILE
08083  M01S05973.ns2414  ---|          ERROR  FDA         * (FILE NAME) IS DIRECT ACCESS.*
08084  M01S05974.ns2414  ---|
08085  M01S05975.ns2414  ---| DIS1     LDM    FCAA,CI
08086  M01S05976.ns2414  ---|          ADM    FCAA+1,CI
08087  M01S05977.ns2414  ---|          ADM    FCAA+2,CI
08088  M01S05978.ns2414  ---|          NJN    DIS2        IF ALTERNATE STORAGE COPY OF FILE PRESENT
08089  M01S05979.ns2414  ---|          ERROR  AIO         *ALTERNATE IMAGE OBSOLETE.*
08090  M01S05980.ns2414  ---|
08091  M01S05981.ns2414  ---| DIS2     LDM    FCAF,CI
08092  M01S05982.ns2414  ---|          LPN    AFPDEM+AFPSEM
08093  M01S05983.ns2414  ---|          ZJN    DIS3        IF NO ALTERNATE STORAGE ERRORS
08094  M01S05984.ns2414  ---|          ERROR  ASE         * ALTERNATE STORAGE ERROR.*
08095  M01S05985.ns2414  ---|
08096  M01S05986.ns2414  ---| DIS3     LDM    FCBT,CI
08097  M01S05987.ns2414  ---|          NJN    DIS4        IF FILE DISK RESIDENT
08098  M01S05988.ns2414  ---|          ERROR  FND         * FILE NOT DISK RESIDENT.*
08099  M01S05989.ns2414  ---|
08100  M01S05990.ns2414  ---| DIS4     ISTORE SCHH,(UJN SCH16)  SEARCH ONLY DAPF HOLES
Line S00059 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08101  M02S00059.253l688 ---|          RJM    RSC         READ CATALOG ENTRY, SEARCH IF NEEDED
08102  M02S00060.253l688 ---|          ISTORE SCHH,(UJN SCH16)  SEARCH ONLY DAPF HOLES
Line S00170 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08103  M01S00170.253l688 +++|          RJM    RSC         READ CATALOG ENTRY, SEARCH IF NECESSARY
08104  M01S00171.253l688 +++|          LDM    FCBT,CI
08105  M01S00172.253l688 +++|          NJN    DIS1        IF FILE DISK RESIDENT
08106  M01S00173.253l688 +++|          ENDMS
08107  M01S00174.253l688 +++|          EXECUTE  3PU       TERMINATE *PFM*
08108  M01S00175.253l688 +++|
08109  M01S00176.253l688 +++| DIS1     LDM    FCBS,CI
08110  M01S00177.253l688 +++|          SHN    21-13
08111  M01S00178.253l688 +++|          PJN    DIS2        IF INDIRECT ACCESS FILE
08112  M01S00179.253l688 +++|          LDN    CCDD        PROCESS AS *DROPDS* REQUEST
08113  M01S00180.253l688 +++|          STD    CC
Line S00181 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08114  M02S00181.pfm63   ---|          SHN    1
08115  M02S00182.pfm63   ---|          ADD    CC
08116  M02S00183.pfm63   ---|          STD    T1
08117  M02S00184.pfm63   ---|          LDM    TCMD+2,T1   SET REQUEST PROCESSOR ADDRESS
Line S00003 Modification History
M01 (Added by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08118  M01S00003.pfm63   +++|          LDC    PRDD        SET REQUEST PROCESSOR ADDRESS
Line S00185 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08119  M01S00185.253l688 +++|          STM    LCOA
Line S00186 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08120  M02S00186.pfm63   ---|          LDM    TCMD+1,T1   SET OVERLAY INTO *EXECUTE* MACRO
Line S00004 Modification History
M01 (Added by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08121  M01S00004.pfm63   +++|          LDC    OVDD        SET OVERLAY INTO *EXECUTE* MACRO
Line S00187 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08122  M01S00187.253l688 +++|          STM    LCOB
08123  M01S00188.253l688 +++|          UJN    DDS2        PROCESS AS *DROPDS* REQUEST
08124  M01S00189.253l688 +++|
08125  M01S00190.253l688 +++| DIS2     ISTORE SCHH,(UJN SCH16)  SEARCH ONLY DAPF HOLES
08126  M00S05991.pfm     +++|          RJM    SHL         SEARCH CATALOG FOR DAPF HOLE
Line S05992 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08127  M01S05992.ns2414  ---|          ZJN    DIS5        IF DELETED DAPF HOLE NOT FOUND
Line S00061 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08128  M02S00061.253l688 ---|          ZJN    DIS1        IF DELETED DAPF HOLE NOT FOUND
Line S00191 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08129  M01S00191.253l688 +++|          ZJN    DIS3        IF DELETED DAPF HOLE NOT FOUND
08130  M00S05993.pfm     +++|          LDN    0           CLEAR DAPF HOLE INDICATOR
08131  M00S05994.pfm     +++|          STM    FCBS,HP
08132  M00S05995.pfm     +++|          STM    FCBT,HP     CLEAR TRACK
Line S05996 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08133  M01S05996.ns2414  ---|
08134  M01S05997.ns2414  ---|*         SETUP FOR FORMATION OF NEW CATALOG ENTRY.
08135  M01S05998.ns2414  ---|
08136  M01S05999.ns2414  ---| DIS5     STM    FCUI,CI     MARK OLD ENTRY AS HOLE (CLEAR UI)
08137  M01S06000.ns2414  ---|          STM    FCUI+1,CI
08138  M01S06001.ns2414  ---|          STM    SDAB        SET DISK ADDRESS ZERO FOR NEW ENTRY
08139  M01S06002.ns2414  ---|          STM    SDAC
08140  M01S06003.ns2414  ---|          LDM    FCLF,CI     SET FILE LENGTH IN (LF - LF+1)
08141  M01S06004.ns2414  ---|          STD    LF
08142  M01S06005.ns2414  ---|          LDM    FCLF+1,CI
08143  M01S06006.ns2414  ---|          STD    LF+1
08144  M01S06007.ns2414  ---|          STD    HL          SIMULATE EXACT FIT HOLE, IF HOLE FOUND
08145  M01S06008.ns2414  ---|          LJM    LCO         CALL OVERLAY
Line S00062 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08146  M02S00062.253l688 ---| DIS1     LJM    LCO         CALL OVERLAY
Line S00192 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08147  M01S00192.253l688 +++| DIS3     LJM    LCO         CALL OVERLAY
08148  M00S06009.pfm     +++| DEF      SPACE  4,10
08149  M00S06010.pfm     +++|***       DEF - *DEFINE* REQUEST.
08150  M00S06011.pfm     +++|
08151  M00S06012.pfm     +++|
08152  M00S06013.pfm     +++| DEF      BSS    0           ENTRY
08153  M00S06014.pfm     +++|          ISTORE SCHF,(ZJN SCH12)  SET TO SEARCH FOR HOLES
08154  M00S06015.pfm     +++|          ISTORE SCHH,(UJN SCH16)  SEARCH FOR DIRECT ACCESS HOLES ONLY
08155  M00S06016.pfm     +++|          LDC    BFMS        SET ADDRESS OF CATALOG SEARCH BUFFER
08156  M00S06017.pfm     +++|          STM    ISPA
08157  M00S06018.pfm     +++| DEF1     LDD    FS          SET EST ORDINAL
08158  M00S06019.pfm     +++|          STD    T5
08159  M00S06020.pfm     +++|          RJM    IRA         INITIALIZE RANDOM ACCESS PROCESSORS
08160  M00S06021.pfm     +++|          LDM    SDAB        SET FIRST SECTOR
08161  M00S06022.pfm     +++|          STD    T6
08162  M00S06023.pfm     +++|          RJM    SEI         DETERMINE FILE SECTOR SIZE
08163  M00S06024.pfm     +++|          LDD    T2          PRESERVE SECTOR SIZE
08164  M00S06025.pfm     +++|          STD    LF
08165  M00S06026.pfm     +++|          LDD    T3
08166  M00S06027.pfm     +++|          STD    LF+1
08167  M00S06028.pfm     +++|          LDD    CC
08168  M00S06029.pfm     +++|          LMN    CCSD
08169  M00S06030.pfm     +++|          ZJN    DEF2        IF *SETDA* REQUEST
08170  M00S06031.pfm     +++|          RJM    SCH         SEARCH CATALOG
08171  M00S06032.pfm     +++|          NJN    DEF3        IF NO FILE FOUND
08172  M00S06033.pfm     +++|          ERROR  FAP         *(FILE NAME) ALREADY PERMANENT.*
08173  M00S06034.pfm     +++|
08174  M00S06035.pfm     +++|*         PROCESS *SETDA* REQUEST.
08175  M00S06036.pfm     +++|
08176  M00S06037.pfm     +++| DEF2     RJM    RVC         READ AND VERIFY CATALOG ENTRY
08177  M00S06038.pfm     +++| DEF3     LJM    LCO         CALL OVERLAY
08178  M00S06039.pfm     +++| DPF      SPACE  4,10
08179  M00S06040.pfm     +++|***       DPF - *DELPFC* REQUEST.
08180  M00S06041.pfm     +++|
08181  M00S06042.pfm     +++|
08182  M00S06043.pfm     +++| DPF      BSS    0           ENTRY
08183  M00S06044.pfm     +++|          LDC    IFUI        SET *IFUI* USER INDEX INTO SRB
08184  M00S06045.pfm     +++|          STM    PFFM+4
08185  M00S06046.pfm     +++|          LDM    PFFM+3
08186  M00S06047.pfm     +++|          SCN    77
08187  M00S06048.pfm     +++|          LMN    IFUI/10000B
08188  M00S06049.pfm     +++|          STM    PFFM+3
08189  M00S06050.pfm     +++|          RJM    ACE         ACCESS CATALOG ENTRY
08190  M00S06051.pfm     +++|          LJM    LCO         LOAD COMMAND OVERLAY
08191  M00S06052.pfm     +++| GET      SPACE  4,10
08192  M00S06053.pfm     +++|***       GET - *GET* REQUEST.
08193  M00S06054.pfm     +++|
08194  M00S06055.pfm     +++|
08195  M00S06056.pfm     +++| GET      BSS    0           ENTRY
08196  M00S06057.pfm     +++|          RJM    SCH         SEARCH CATALOG
08197  M00S06058.pfm     +++|          ZJN    GET1        IF FILE FOUND
08198  M00S06059.pfm     +++|          ERROR  FNF         *(FILENAME) NOT FOUND.*
08199  M00S06060.pfm     +++|
08200  M00S06061.pfm     +++| GET1     LDM    FCLF,CI     SET FILE LENGTH
08201  M00S06062.pfm     +++|          STD    LF
08202  M00S06063.pfm     +++|          LDM    FCLF+1,CI
08203  M00S06064.pfm     +++|          STD    LF+1
08204  M00S06065.pfm     +++|          RJM    CCT         CHECK FOR CPU TRANSFER
08205  M00S06066.pfm     +++|          LDN    PTEX        EXECUTE MODE REQUIRED FOR *GET*
08206  M00S06067.pfm     +++|          RJM    CPI         CHECK PERMISSION INFORMATION
08207  M00S06068.pfm     +++|          STM    ACCM        SAVE ACTUAL ACCESS MODE
Line S00002 Modification History
M01 (Added by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
08208  M01S00002.pfm62   +++|          RJM    VFI         VERIFY THAT FILE IS INDIRECT ACCESS
08209  M00S06069.pfm     +++|          RJM    DSR         DETERMINE IF FILE STAGING REQUIRED
08210  M00S06070.pfm     +++|          LJM    LCO         CALL OVERLAY
08211  M00S06071.pfm     +++| OLD      SPACE  4,10
08212  M00S06072.pfm     +++|***       OLD - *OLD* REQUEST.
08213  M00S06073.pfm     +++|
08214  M00S06074.pfm     +++|
08215  M00S06075.pfm     +++| OLD      EQU    GET         USE *GET* PRESET FOR *OLD* REQUEST
08216  M00S06076.pfm     +++| PER      SPACE  4,10
08217  M00S06077.pfm     +++|***       PER - *PERMIT* REQUEST.
08218  M00S06078.pfm     +++|
08219  M00S06079.pfm     +++|
08220  M00S06080.pfm     +++| PER      BSS    0           ENTRY
08221  M00S06081.pfm     +++|          ISTORE CCDA,(UJN CCD4)  SET BYPASS OF PASSWORD CHECK
08222  M00S06082.pfm     +++|          RJM    SCH         SEARCH CATALOG
Line S06083 Modification History
M01 (Removed by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
08223  M01S06083.pfm67   ---|          ZJN    PER1        IF FILE FOUND
Line S00009 Modification History
M01 (Added by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
08224  M01S00009.pfm67   +++|          ZJN    PER2        IF FILE FOUND
08225  M00S06084.pfm     +++|          ERROR  FNF         * (FILENAME) NOT FOUND.*
Line S06085 Modification History
M01 (Removed by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
08226  M01S06085.pfm67   ---|
08227  M01S06086.pfm67   ---| PER1     LDM    FCCT,CI     CHECK CATALOG TYPE
08228  M01S06087.pfm67   ---|          SHN    -6
08229  M01S06088.pfm67   ---|          LMN    FCPB
08230  M01S06089.pfm67   ---|          NJN    PER2        IF NOT PUBLIC FILE
08231  M01S06090.pfm67   ---|          ERROR  ILR         * PFM INCORRECT REQUEST.*
08232  M00S06091.pfm     +++|
Line S06092 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
08233  M01S06092.pfm28   ---| PER2     LDD    MA          SET USER NAME
Line S00001 Modification History
M01 (Added by) pfm28
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08234  M02S00001.253l688 ---|*         *PERMIT* IS NOT ALLOWED ON A FILE WITH AN ACCESS LEVEL
08235  M02S00002.253l688 ---|*         LOWER THAN THAT OF THE JOB UNLESS THE CALLER IS VALIDATED
08236  M02S00003.253l688 ---|*         FOR WRITE-DOWN PRIVILEGES OR IS A SUBSYSTEM.
08237  M02S00004.253l688 ---|
08238  M02S00005.253l688 ---| PER2     LDM    SSOM
08239  M02S00006.253l688 ---|          ZJN    PER3        IF UNSECURED SYSTEM
08240  M02S00007.253l688 ---|          LDM    FCAL,CI
08241  M02S00008.253l688 ---|          LPN    7
08242  M02S00009.253l688 ---|          SBM    PFAL
08243  M02S00010.253l688 ---|          PJN    PER3        IF FILE NOT LOWER THAN JOB
08244  M02S00011.253l688 ---|          LDM    SVAL
08245  M02S00012.253l688 ---|          LPN    40
08246  M02S00013.253l688 ---|          NJN    PER3        IF USER VALIDATED FOR WRITE-DOWN
08247  M02S00014.253l688 ---|          LDM    SSID
08248  M02S00015.253l688 ---|          SBK    LSSI+1
08249  M02S00016.253l688 ---|          PJN    PER3        IF SUBSYSTEM
08250  M02S00017.253l688 ---|          ERROR  WDP,,,,SVE  * WRITE-DOWN OF DATA PROHIBITED.*
08251  M02S00018.253l688 ---|
08252  M02S00019.253l688 ---| PER3     LDD    MA          SET USER NAME
Line S00193 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08253  M01S00193.253l688 +++| PER2     LDD    MA          SET USER NAME
08254  M00S06093.pfm     +++|          CWM    PFOU,ON
08255  M00S06094.pfm     +++|          SBN    1
08256  M00S06095.pfm     +++|          CRM    PFAC,ON
08257  M00S06096.pfm     +++|          LDN    0           CLEAR PERMIT POINTER
08258  M00S06097.pfm     +++|          STD    PP
08259  M00S06098.pfm     +++|          LDC    BFMS        SET PERMIT BUFFER ADDRESS
08260  M00S06099.pfm     +++|          STD    PB
08261  M00S06100.pfm     +++|          LDM    FCRI,CI     SET PERMIT RANDOM INDEX
08262  M00S06101.pfm     +++|          STD    RI
08263  M00S06102.pfm     +++|          LDM    FCRI+1,CI
08264  M00S06103.pfm     +++|          STD    RI+1
08265  M00S06104.pfm     +++|          ADD    RI
Line S06105 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
08266  M01S06105.pfm28   ---|          ZJN    PER3        IF NO PERMIT DATA AVAILABLE
Line S00020 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
08267  M01S00020.pfm28   +++|          ZJN    PER4        IF NO PERMIT DATA AVAILABLE
08268  M00S06106.pfm     +++|          RJM    SPI         SEARCH PERMIT INFORMATION
Line S06107 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
08269  M01S06107.pfm28   ---| PER3     LJM    LCO         CALL OVERLAY
Line S00021 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
08270  M01S00021.pfm28   +++| PER4     LJM    LCO         CALL OVERLAY
08271  M00S06108.pfm     +++| PUR      SPACE  4,10
08272  M00S06109.pfm     +++|***       PUR - *PURGE* REQUEST.
08273  M00S06110.pfm     +++|
08274  M00S06111.pfm     +++|
08275  M00S06112.pfm     +++| PUR      BSS    0           ENTRY
Line S06113 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08276  M01S06113.253l688 ---|          RJM    SCH         SEARCH CATALOG
08277  M01S06114.253l688 ---|          ZJN    PUR1        IF FILE FOUND
08278  M01S06115.253l688 ---|          ERROR  FNF         *FILE NOT FOUND.*
08279  M01S06116.253l688 ---|
08280  M01S06117.253l688 ---| PUR1     LDN    PTWR        WRITE PERMISSON NEEDED FOR PURGE
Line S00194 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08281  M01S00194.253l688 +++|          RJM    RSC         READ CATALOG ENTRY, SEARCH IF NECESSARY
08282  M01S00195.253l688 +++|          LDM    PFRB
08283  M01S00196.253l688 +++|          LPN    37
08284  M01S00197.253l688 +++|          ADM    PFRB+1
08285  M01S00198.253l688 +++|          NJN    PUR1        IF SPECIAL REQUEST BLOCK SPECIFIED
08286  M01S00199.253l688 +++|          LDN    PTWR        WRITE PERMISSON NEEDED FOR PURGE
08287  M00S06118.pfm     +++|          RJM    CPI         CHECK PERMISSION INFORMATION
Line S06119 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08288  M01S06119.253l688 ---|          LJM    LCO         CALL OVERLAY
Line S00200 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08289  M01S00200.253l688 +++| PUR1     LJM    LCO         CALL OVERLAY
08290  M00S06120.pfm     +++| REP      SPACE  4,10
08291  M00S06121.pfm     +++|***       REP - *REPLACE* REQUEST.
08292  M00S06122.pfm     +++|
08293  M00S06123.pfm     +++|
08294  M00S06124.pfm     +++| REP      BSS    0           ENTRY
08295  M00S06125.pfm     +++|          LDD    LF
Line S06126 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08296  M01S06126.pfm46   ---|          NJN    REP0        IF FILE LARGER THAN HOLES
Line S00001 Modification History
M01 (Added by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08297  M01S00001.pfm46   +++|          NJN    REP1        IF FILE LARGER THAN HOLES
08298  M00S06127.pfm     +++|          ISTORE SCHF,(ZJN SCH12)  SET TO SEARCH FOR HOLES
Line S06128 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08299  M01S06128.pfm46   ---| REP0     LDK    CCSV*3      SAVE ADDRESS/OVERLAY OF *SAVE* PROCESSOR
Line S00002 Modification History
M01 (Added by) pfm46
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08300  M02S00002.pfm63   ---| REP1     LDK    CCSV*3      SAVE ADDRESS/OVERLAY OF *SAVE* PROCESSOR
Line S06129 Modification History
M01 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08301  M01S06129.pfm63   ---|          STD    T1
08302  M01S06130.pfm63   ---|          LDM    TCMD+2,T1
08303  M01S06131.pfm63   ---|          STM    REPA
08304  M01S06132.pfm63   ---|          LDM    TCMD+1,T1
08305  M01S06133.pfm63   ---|          STM    REPB
08306  M01S06134.pfm63   ---|          RJM    SCH         SEARCH FOR CATALOG ENTRY
Line S00005 Modification History
M01 (Added by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08307  M01S00005.pfm63   +++| REP1     RJM    SCH         SEARCH FOR CATALOG ENTRY
Line S06135 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08308  M01S06135.pfm46   ---|          ZJN    REP2        IF FILE IS FOUND
Line S00003 Modification History
M01 (Added by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08309  M01S00003.pfm46   +++|          ZJP    REP5        IF FILE IS FOUND
08310  M00S06136.pfm     +++|          LDD    CP          CHECK USER VALIDATION
08311  M00S06137.pfm     +++|          ADK    AACW
08312  M00S06138.pfm     +++|          CRD    CM
08313  M00S06139.pfm     +++|          LDD    CM+4
08314  M00S06140.pfm     +++|          SHN    21-3
Line S06141 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08315  M01S06141.pfm46   ---|          MJN    REP0.1      IF USER CAN CREATE INDIRECT FILES
08316  M01S06142.pfm46   ---|          ERROR  IUA         *USER ACCESS NOT VALID.*
Line S00004 Modification History
M01 (Added by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08317  M01S00004.pfm46   +++|          PJN    REP2        IF USER MAY NOT CREATE INDIRECT FILES
08318  M01S00005.pfm46   +++|          SHN    21-10-21+3+22
08319  M01S00006.pfm46   +++|          MJN    REP3        IF USER MAY ACCESS AUXILIARY DEVICE
08320  M01S00007.pfm46   +++|          LDM    PFPN
08321  M01S00008.pfm46   +++|          ZJN    REP3        IF AUXILIARY DEVICE NOT SPECIFIED
08322  M01S00009.pfm46   +++| REP2     ERROR  IUA         *USER ACCESS NOT VALID.*
08323  M00S06143.pfm     +++|
Line S06144 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08324  M01S06144.pfm46   ---| REP0.1   LDD    PI          CHECK FOR ALTERNATE CATALOG ACCESS
Line S00010 Modification History
M01 (Added by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08325  M01S00010.pfm46   +++| REP3     LDD    PI          CHECK FOR ALTERNATE CATALOG ACCESS
08326  M00S06145.pfm     +++|          ADD    PI+1
Line S06146 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08327  M01S06146.pfm46   ---|          ZJN    REP1        IF NOT ALTERNATE CATALOG ACCESS
Line S00011 Modification History
M01 (Added by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08328  M01S00011.pfm46   +++|          ZJN    REP4        IF NOT ALTERNATE CATALOG ACCESS
08329  M00S06147.pfm     +++|          ERROR  FNF         *(FILE NAME) NOT FOUND.*
08330  M00S06148.pfm     +++|
Line S06149 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08331  M01S06149.pfm46   ---| REP1     LDC    *           PROCESS AS *SAVE* REQUEST
Line S00012 Modification History
M01 (Added by) pfm46
M02 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08332  M02S00012.pfm63   ---| REP4     LDC    *           PROCESS AS *SAVE* REQUEST
Line S06150 Modification History
M01 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08333  M01S06150.pfm63   ---| REPA     EQU    *-1         (PROCESSOR ADDRESS FOR *SAVE*)
Line S00006 Modification History
M01 (Added by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08334  M01S00006.pfm63   +++| REP4     LDC    PRSV        PROCESS AS *SAVE* REQUEST
08335  M00S06151.pfm     +++|          STM    LCOA        SET PROCESSOR ADDRESS
Line S06152 Modification History
M01 (Removed by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08336  M01S06152.pfm63   ---|          LDC    *
08337  M01S06153.pfm63   ---| REPB     EQU    *-1         (COMMAND OVERLAY NAME FOR *SAVE*)
Line S00007 Modification History
M01 (Added by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08338  M01S00007.pfm63   +++|          LDC    OVSV
08339  M00S06154.pfm     +++|          STM    LCOB        SET OVERLAY NAME FOR *SAVE* REQUEST
08340  M00S06155.pfm     +++|          LJM    SAV2        PROCESS REQUEST AS *SAVE*
08341  M00S06156.pfm     +++|
Line S06157 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08342  M01S06157.pfm46   ---| REP2     LDN    0           SET ENTRY AS HOLE
Line S00013 Modification History
M01 (Added by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08343  M01S00013.pfm46   +++| REP5     LDN    0           SET ENTRY AS HOLE
08344  M00S06158.pfm     +++|          STM    FCUI,CI
08345  M00S06159.pfm     +++|          STM    FCUI+1,CI
08346  M00S06160.pfm     +++|          LDM    FCBT,CI     FIRST TRACK OF FILE
Line S06161 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08347  M01S06161.pfm46   ---|          ZJN    REP5        IF FILE NOT DISK RESIDENT
Line S00014 Modification History
M01 (Added by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08348  M01S00014.pfm46   +++|          ZJN    REP7        IF FILE NOT DISK RESIDENT
08349  M00S06162.pfm     +++|
08350  M00S06163.pfm     +++|*         CHECK SIZE OF HOLE CREATED BY REPLACE.
08351  M00S06164.pfm     +++|
08352  M00S06165.pfm     +++|          LDM    FCLF,CI
08353  M00S06166.pfm     +++|          SBD    LF
08354  M00S06167.pfm     +++|          SHN    14
08355  M00S06168.pfm     +++|          ADM    FCLF+1,CI
08356  M00S06169.pfm     +++|          SBD    LF+1
Line S06170 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08357  M01S06170.pfm46   ---|          NJN    REP3        IF NOT EXACT FIT
Line S00015 Modification History
M01 (Added by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08358  M01S00015.pfm46   +++|          NJN    REP6        IF NOT EXACT FIT
08359  M00S06171.pfm     +++|          LDD    CI          SET THIS ENTRY AS HOLE FOUND
08360  M00S06172.pfm     +++|          STD    HP
08361  M00S06173.pfm     +++|          LDD    CB
08362  M00S06174.pfm     +++|          STD    HB
08363  M00S06175.pfm     +++|          LDD    LF+1
08364  M00S06176.pfm     +++|          STD    HL
Line S06177 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08365  M01S06177.pfm46   ---|          UJN    REP6        BYPASS HOLE SEARCH
Line S00016 Modification History
M01 (Added by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08366  M01S00016.pfm46   +++|          UJN    REP8        BYPASS HOLE SEARCH
08367  M00S06178.pfm     +++|
Line S06179 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08368  M01S06179.pfm46   ---| REP3     LDM    FCLF,CI     CHECK LENGTH OF FILE BEING REPLACED
08369  M01S06180.pfm46   ---|          NJN    REP5        IF FILE TOO LONG TO BE USED AS HOLE
Line S00017 Modification History
M01 (Added by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08370  M01S00017.pfm46   +++| REP6     LDM    FCLF,CI     CHECK LENGTH OF FILE BEING REPLACED
08371  M01S00018.pfm46   +++|          NJN    REP7        IF FILE TOO LONG TO BE USED AS HOLE
08372  M00S06181.pfm     +++|          LDC    SCH11       INCLUDE THIS FILE IN HOLE SEARCH
08373  M00S06182.pfm     +++|          STM    SCHB
Line S06183 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08374  M01S06183.pfm46   ---| REP5     RJM    SCH         CONTINUE SEARCH FOR BEST HOLE
08375  M01S06184.pfm46   ---|          NJN    REP6        IF DUPLICATE FILE NOT FOUND
Line S00019 Modification History
M01 (Added by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08376  M01S00019.pfm46   +++| REP7     RJM    SCH         CONTINUE SEARCH FOR BEST HOLE
08377  M01S00020.pfm46   +++|          NJN    REP8        IF DUPLICATE FILE NOT FOUND
08378  M00S06185.pfm     +++|          ERROR  RPE,,,EQ    *EQXXX,DNYY, REPLACE ERROR.*
08379  M00S06186.pfm     +++|
08380  M00S06187.pfm     +++|*         SEARCH PERMITS.
08381  M00S06188.pfm     +++|
Line S06189 Modification History
M01 (Removed by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08382  M01S06189.pfm46   ---| REP6     RJM    CCT         CHECK FOR CPU TRANSFER
Line S00021 Modification History
M01 (Added by) pfm46
Seq #  *Modification Id* Act 
----------------------------+
08383  M01S00021.pfm46   +++| REP8     RJM    CCT         CHECK FOR CPU TRANSFER
08384  M00S06190.pfm     +++|          RJM    SDB         SWAP DISK BUFFERS (IF NECESSARY)
08385  M00S06191.pfm     +++|          RJM    SSP         SET STATISTICAL PARAMETERS
08386  M00S06192.pfm     +++|          LDN    0           CLEAR PERMIT POINTERS
08387  M00S06193.pfm     +++|          STD    PB
08388  M00S06194.pfm     +++|          STD    PP
08389  M00S06195.pfm     +++|          LDN    PTWR        CHECK FOR WRITE PERMISSION
08390  M00S06196.pfm     +++|          RJM    CPI         CHECK PERMISSION INFORMATION
08391  M00S06197.pfm     +++|          LJM    LCO         CALL OVERLAY
08392  M00S06198.pfm     +++| SAA      SPACE  4,10
08393  M00S06199.pfm     +++|***       SAA - *SETASA* REQUEST.
08394  M00S06200.pfm     +++|
08395  M00S06201.pfm     +++|
08396  M00S06202.pfm     +++| SAA      BSS    0           ENTRY
08397  M00S06203.pfm     +++|          RJM    ACE         ACCESS CATALOG ENTRY
08398  M00S06204.pfm     +++|          LJM    LCO         CALL OVERLAY
08399  M00S06205.pfm     +++| SAC      SPACE  4,10
08400  M00S06206.pfm     +++|***       SAC - *SETPFAC* REQUEST.
08401  M00S06207.pfm     +++|
08402  M00S06208.pfm     +++|
08403  M00S06209.pfm     +++| SAC      EQU    CHG         USE *CHANGE* PRESET FOR *SETPFAC* REQUEST
08404  M00S06210.pfm     +++| SAF      SPACE  4,10
08405  M00S06211.pfm     +++|***       SAF - *SETAF* REQUEST.
08406  M00S06212.pfm     +++|
08407  M00S06213.pfm     +++|
08408  M00S06214.pfm     +++| SAF      BSS    0           ENTRY
08409  M00S06215.pfm     +++|          RJM    RVC         READ AND VERIFY CATALOG ENTRY
08410  M00S06216.pfm     +++|          LJM    LCO         CALL OVERLAY
08411  M00S06217.pfm     +++| SAL      SPACE  4,10
08412  M00S06218.pfm     +++|***       SAL - *SETPFAL* REQUEST.
08413  M00S06219.pfm     +++|
08414  M00S06220.pfm     +++|
08415  M00S06221.pfm     +++| SAL      EQU    CHG         USE *CHANGE* PRESET FOR *SETPFAL* REQUEST
08416  M00S06222.pfm     +++| SAV      SPACE  4,10
08417  M00S06223.pfm     +++|***       SAV - *SAVE* REQUEST.
08418  M00S06224.pfm     +++|
08419  M00S06225.pfm     +++|
08420  M00S06226.pfm     +++| SAV      BSS    0           ENTRY
08421  M00S06227.pfm     +++|          LDD    LF
08422  M00S06228.pfm     +++|          NJN    SAV1        IF FILE LARGER THAN HOLES
08423  M00S06229.pfm     +++|          ISTORE SCHF,(ZJN SCH12)  SET TO SEARCH FOR HOLES
08424  M00S06230.pfm     +++| SAV1     RJM    SCH         SEARCH FOR CATALOG ENTRY
08425  M00S06231.pfm     +++|          NJN    SAV2        IF FILE NOT FOUND
08426  M00S06232.pfm     +++|          ERROR  FAP         *FILE ALREADY PERMANENT.*
08427  M00S06233.pfm     +++|
08428  M00S06234.pfm     +++| SAV2     AOD    NF+1        ADVANCE FILE COUNT FOR NEW FILE
08429  M00S06235.pfm     +++|          SHN    -14
08430  M00S06236.pfm     +++|          RAD    NF
08431  M00S06237.pfm     +++|          RJM    SSP         SET STATISTICAL PARAMETERS
08432  M00S06238.pfm     +++| SAV3     RJM    CCT         CHECK FOR CPU TRANSFER
08433  M00S06239.pfm     +++|          LJM    LCO         CALL OVERLAY
08434  M00S06240.pfm     +++| SDA      SPACE  4,10
08435  M00S06241.pfm     +++|***       SDA - *SETDA* REQUEST.
08436  M00S06242.pfm     +++|
08437  M00S06243.pfm     +++|
08438  M00S06244.pfm     +++| SDA      EQU    DEF1        USE *DEFINE* PRESET FOR *SETDA* REQUEST
Line S00201 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08439  M01S00201.253l688 +++| SPF      SPACE  4,10
08440  M01S00202.253l688 +++|***       SPF - *STAGEPF* REQUEST.
08441  M01S00203.253l688 +++|
08442  M01S00204.253l688 +++|
08443  M01S00205.253l688 +++| SPF      BSS    0           ENTRY
08444  M01S00206.253l688 +++|          RJM    ACE         ACCESS CATALOG ENTRY
08445  M01S00207.253l688 +++|          LDM    FCBT,CI
08446  M01S00208.253l688 +++|          NJN    SPF1        IF FILE ALREADY DISK RESIDENT
08447  M01S00209.253l688 +++|          LJM    LCO         LOAD COMMAND OVERLAY
08448  M01S00210.253l688 +++|
08449  M01S00211.253l688 +++| SPF1     ENDMS
08450  M01S00212.253l688 +++|          EXECUTE  3PU       TERMINATE *PFM*
08451  M00S06245.pfm     +++| UAT      SPACE  4,10
08452  M00S06246.pfm     +++|***       UAT - *UATTACH* REQUEST.
08453  M00S06247.pfm     +++|
08454  M00S06248.pfm     +++|
08455  M00S06249.pfm     +++| UAT      BSS    0           ENTRY
Line S06250 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08456  M01S06250.253l688 ---|          LDM    PFRB
08457  M01S06251.253l688 ---|          LPN    37
08458  M01S06252.253l688 ---|          ADM    PFRB+1
08459  M01S06253.253l688 ---|          NJP    UAT1        IF SPECIAL REQUEST BLOCK SPECIFIED
08460  M01S06254.253l688 ---|          LDN    CCAT*3      PROCESS AS NORMAL *ATTACH*
08461  M01S06255.253l688 ---|          STD    T1
08462  M01S06256.253l688 ---|          LDM    TCMD+2,T1   SET PROCESSOR ADDRESS FOR *ATTACH* REQUEST
08463  M01S06257.253l688 ---|          STM    LCOA
08464  M01S06258.253l688 ---|          LDM    TCMD+1,T1   SET OVERLAY NAME FOR *ATTACH* REQUEST
08465  M01S06259.253l688 ---|          STM    LCOB
08466  M01S06260.253l688 ---|          LJM    ATT         SEARCH CATALOG
08467  M01S06261.253l688 ---|
08468  M01S06262.253l688 ---|*         PROCESS SPECIAL-REQUEST BLOCK *UATTACH*.
08469  M01S06263.253l688 ---|
08470  M01S06264.253l688 ---| UAT1     RJM    ACE         ACCESS CATALOG ENTRY
08471  M01S06265.253l688 ---|
08472  M01S06266.253l688 ---|*         CHECK FILE RESIDENCE.
08473  M01S06267.253l688 ---|
Line S00213 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08474  M01S00213.253l688 +++|          RJM    RSC         READ CATALOG ENTRY, SEARCH IF NECESSARY
08475  M00S06268.pfm     +++|          LDM    FCBS,CI
08476  M00S06269.pfm     +++|          SHN    21-13
08477  M00S06270.pfm     +++|          MJN    UAT2        IF DIRECT ACCESS FILE
Line S06271 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08478  M01S06271.242l642 ---|          ERROR  FIA,CH      *FILE IS INDIRECT ACCESS.*
Line S00717 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08479  M01S00717.242l642 +++|          ERROR  FIA         *FILE IS INDIRECT ACCESS.*
08480  M00S06272.pfm     +++|
08481  M00S06273.pfm     +++| UAT2     LDM    FCBT,CI
08482  M00S06274.pfm     +++|          NJP    LCO         IF FILE DISK RESIDENT
Line S06275 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08483  M01S06275.242l642 ---|          EXIT   FND,CH      *FILE NOT DISK RESIDENT.*
Line S00718 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08484  M01S00718.242l642 +++|          ERROR  FND         *FILE NOT DISK RESIDENT.*
08485  M00S06276.pfm     +++| UGT      SPACE  4,10
08486  M00S06277.pfm     +++|***       UGT - *UGET* REQUEST.
08487  M00S06278.pfm     +++|
08488  M00S06279.pfm     +++|
08489  M00S06280.pfm     +++| UGT      BSS    0           ENTRY
Line S06281 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08490  M01S06281.253l688 ---|          LDM    PFRB
08491  M01S06282.253l688 ---|          LPN    37
08492  M01S06283.253l688 ---|          ADM    PFRB+1
08493  M01S06284.253l688 ---|          NJN    UGT1        IF SPECIAL REQUEST BLOCK SPECIFIED
08494  M01S06285.253l688 ---|          RJM    SCH         SEARCH CATALOG
08495  M01S06286.253l688 ---|          ZJN    UGT2        IF FILE FOUND
08496  M01S06287.253l688 ---|          ERROR  FNF         *(FILENAME) NOT FOUND.*
08497  M01S06288.253l688 ---|
08498  M01S06289.253l688 ---| UGT1     RJM    ACE         ACCESS CATALOG ENTRY
Line S06290 Modification History
M01 (Removed by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08499  M02S06290.253l688 ---|
08500  M02S06291.253l688 ---|*         CHECK THE FILE RESIDENCE.
08501  M02S06292.253l688 ---|
08502  M02S06293.253l688 ---| UGT2     LDM    FCBS,CI
08503  M02S06294.253l688 ---|          STM    SDAC        SET SECTOR ADDRESS
08504  M02S06295.253l688 ---|          SHN    21-13
08505  M02S06296.253l688 ---|          PJN    UGT3        IF INDIRECT ACCESS FILE
08506  M02S06297.253l688 ---|          ERROR  FDA         *FILE IS DIRECT ACCESS.*
08507  M02S06298.253l688 ---|
08508  M02S06299.253l688 ---| UGT3     LDM    FCBT,CI
08509  M02S06300.253l688 ---|          STM    SDAB        SET TRACK ADDRESS OF FILE
08510  M02S06301.253l688 ---|          NJN    UGT4        IF FILE DISK RESIDENT
08511  M02S06302.253l688 ---|          ERROR  FND         *FILE NOT DISK RESIDENT.*
08512  M02S06303.253l688 ---|
08513  M02S06304.253l688 ---| UGT4     LDM    FCLF,CI     SET FILE LENGTH
08514  M02S06305.253l688 ---|          STD    LF
08515  M02S06306.253l688 ---|          LDM    FCLF+1,CI
08516  M02S06307.253l688 ---|          STD    LF+1
Line S06308 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2414
M03 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08517  M03S06308.253l688 ---|          LJM    LCO         CALL OVERLAY
Line S00719 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
M03 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08518  M03S00719.253l688 ---|          UJN    LCO         CALL OVERLAY
Line S00063 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08519  M02S00063.253l688 ---| UGT2     UJN    LCO         CALL OVERLAY
Line S00214 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08520  M01S00214.253l688 +++|          RJM    RSC         READ CATALOG ENTRY, SEARCH IF NECESSARY
08521  M01S00215.253l688 +++|          UJN    LCO         CALL OVERLAY
08522  M00S06309.pfm     +++| URE      SPACE  4,10
08523  M00S06310.pfm     +++|***       URE - *UREPLAC* REQUEST.
08524  M00S06311.pfm     +++|
08525  M00S06312.pfm     +++|
08526  M00S06313.pfm     +++| URE      BSS    0           ENTRY
08527  M00S06314.pfm     +++|          RJM    RVC         READ AND VERIFY CATALOG ENTRY
Line S06315 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08528  M01S06315.ns2414  ---|          LDD    CI          SET CURRENT PFN FOR NEW PFC ENTRY
08529  M01S06316.ns2414  ---|          ADN    FCFN
Line S00064 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08530  M01S00064.ns2414  +++|          LDD    CI          SAVE PFC ADDRESS
08531  M01S00065.ns2414  +++|          STM    PFCA
08532  M01S00066.ns2414  +++|          ADN    FCFN        SET FILE NAME TO CURRENT PFN
08533  M00S06317.pfm     +++|          RJM    SFN
Line S06318 Modification History
M01 (Removed by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
08534  M01S06318.pfm62   ---|          LDM    FCBS,CI
08535  M01S06319.pfm62   ---|          SHN    21-13
08536  M01S06320.pfm62   ---|          PJN    URE1        IF INDIRECT ACCESS FILE
08537  M01S06321.pfm62   ---|          ERROR  FDA         * (FILE NAME) IS DIRECT ACCESS.*
08538  M01S06322.pfm62   ---|
08539  M01S06323.pfm62   ---| URE1     LDM    FCBT,CI
Line S00003 Modification History
M01 (Added by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
08540  M01S00003.pfm62   +++|          RJM    VFI         VERIFY THAT FILE IS INDIRECT ACCESS
08541  M01S00004.pfm62   +++|          LDM    FCBT,CI
08542  M00S06324.pfm     +++|          ZJN    URE2        IF NOT DISK RESIDENT
08543  M00S06325.pfm     +++|          ERROR  ICU         * INVALID CATALOG UPDATE.*
08544  M00S06326.pfm     +++|
08545  M00S06327.pfm     +++| URE2     LDD    LF
08546  M00S06328.pfm     +++|          NJN    URE3        IF FILE LONGER THAN LARGEST HOLE
08547  M00S06329.pfm     +++|          RJM    SHL         SEARCH CATALOG FOR HOLE
Line S00001 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
08548  M01S00001.pfm59   +++|          RJM    SDB         SWAP DISK BUFFERS
Line S06330 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08549  M01S06330.242l642 ---| URE3     LJM    LCO         CALL OVERLAY
Line S00720 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08550  M01S00720.242l642 +++| URE3     UJN    LCO         CALL OVERLAY
08551  M01S00721.242l642 +++|          TITLE  LOAD OVERLAY PROCESSOR.
08552  M01S00722.242l642 +++| LCO      SPACE  4,10
08553  M01S00723.242l642 +++|**        LCO - LOAD COMMAND OVERLAY.
08554  M01S00724.242l642 +++|*
08555  M01S00725.242l642 +++|*         EXIT   TO COMMAND OVERLAY.
08556  M01S00726.242l642 +++|*
08557  M01S00727.242l642 +++|*         MACROS ENDMS, EXECUTE.
08558  M01S00728.242l642 +++|
08559  M01S00729.242l642 +++|
08560  M01S00730.242l642 +++| LCO      BSS    0           ENTRY
08561  M01S00731.242l642 +++|          ENDMS              RELEASE MASTER DEVICE CHANNEL
08562  M01S00732.242l642 +++|          LDC    *           SET COMMAND PROCESSING ADDRESS
08563  M01S00733.242l642 +++| LCOA     EQU    *-1         (PROCESSING ADDRESS WITHIN OVERLAY)
08564  M01S00734.242l642 +++|          STD    P0
08565  M01S00735.242l642 +++| LCOB     EQU    *+1         (LAST TWO CHARACTERS OF OVERLAY NAME)
08566  M01S00736.242l642 +++|          EXECUTE  3PF       *GET*/*OLD*/*UGET*
08567  M01S00737.242l642 +++|          EXECUTE  3PG,=     *SAVE*/*REPLACE*/*UREPLAC*
08568  M01S00738.242l642 +++|          EXECUTE  3PH,=     *APPEND*
08569  M01S00739.242l642 +++|          EXECUTE  3PI,=     *ATTACH*/*UATTACH*
08570  M01S00740.242l642 +++|          EXECUTE  3PK,=     *DEFINE*/*SETDA*
Line S00741 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08571  M02S00741.ns2414  ---|          EXECUTE  3PL,=     *PERMIT*/*PURGE*/*DROPDS*/*DROPIDS*/
08572  M02S00742.ns2414  ---|*                            *DELPFC*
08573  M02S00743.ns2414  ---|          EXECUTE  3PM,=     *CHANGE*/*SETPFAC*/*SETPFAL*
08574  M02S00744.ns2414  ---|          EXECUTE  3PN,=     *SETASA*/*SETAF*
08575  M02S00745.ns2414  ---|          EXECUTE  3PQ,=     STAGE FILE FROM ALTERNATE STORAGE
Line S00067 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08576  M01S00067.ns2414  +++|          EXECUTE  3PL,=     *DROPDS*/*PURGE*
08577  M01S00068.ns2414  +++|          EXECUTE  3PM,=     *DELPFC*/*DROPIDS*/*PERMIT*
08578  M01S00069.ns2414  +++|          EXECUTE  3PN,=     *CHANGE*/*SETPFAC*/*SETPFAL*
08579  M01S00070.ns2414  +++|          EXECUTE  3PO,=     *SETASA*/*SETAF*
08580  M01S00071.ns2414  +++|          EXECUTE  3PR,=     STAGE FILE FROM ALTERNATE STORAGE
08581  M00S06331.pfm     +++|          TITLE  INITIALIZATION SUBROUTINES.
08582  M00S06332.pfm     +++| CCT      SPACE  4,15
08583  M00S06333.pfm     +++|**        CCT - CHECK FOR CPU TRANSFER.
08584  M00S06334.pfm     +++|*
08585  M00S06335.pfm     +++|*         ENTRY  (LF - LF+1) = FILE LENGTH + 1.
08586  M00S06336.pfm     +++|*
08587  M00S06337.pfm     +++|*         EXIT   (CPTF) = NONZERO IF CPU SHOULD BE USED FOR TRANSFER.
08588  M00S06338.pfm     +++|*                (FA) = FNT ADDRESS FOR LOCAL FILE.
08589  M00S06339.pfm     +++|*                (FN - FN+4) = PERMANENT FILE NAME.
08590  M00S06340.pfm     +++|*                (FS - FS+4) = FST ENTRY FOR LOCAL FILE.
08591  M00S06341.pfm     +++|*
08592  M00S06342.pfm     +++|*         USES   FA, CM - CM+4, FS - FS+4.
08593  M00S06343.pfm     +++|*
08594  M00S06344.pfm     +++|*         CALLS  CLF, RMD, SFN.
08595  M00S06345.pfm     +++|*
08596  M00S06346.pfm     +++|*         MACROS ENDMS.
08597  M00S06347.pfm     +++|
08598  M00S06348.pfm     +++|
08599  M00S06349.pfm     +++| CCT      SUBR               ENTRY/EXIT
08600  M00S06350.pfm     +++|
Line S06351 Modification History
M01 (Removed by) pfm47
Seq #  *Modification Id* Act 
----------------------------+
08601  M01S06351.pfm47   ---|*         CHECK IF CALLER IS *DMP=* OR SUBSYSTEM.
Line S00001 Modification History
M01 (Added by) pfm47
Seq #  *Modification Id* Act 
----------------------------+
08602  M01S00001.pfm47   +++|*         CHECK IF CALLER IS *DMP=*, SUBSYSTEM OR UCP.
08603  M00S06352.pfm     +++|
08604  M00S06353.pfm     +++|          LDD    CP
08605  M00S06354.pfm     +++|          ADK    SPCW
08606  M00S06355.pfm     +++|          CRD    CM
08607  M00S06356.pfm     +++|          LDD    CM+1
08608  M00S06357.pfm     +++|          SCN    77
08609  M00S06358.pfm     +++|          ADD    CM
08610  M00S06359.pfm     +++|          NJN    CCTX        IF *DMP=* PROGRAM IN PROGRESS
08611  M00S06360.pfm     +++|          LDD    CP
08612  M00S06361.pfm     +++|          ADK    JCIW
08613  M00S06362.pfm     +++|          CRD    CM
08614  M00S06363.pfm     +++|          LDD    CM+2
08615  M00S06364.pfm     +++|          SBK    LSSI
08616  M00S06365.pfm     +++|          PJN    CCTX        IF CALLER IS A SUBSYSTEM
Line S00002 Modification History
M01 (Added by) pfm47
Seq #  *Modification Id* Act 
----------------------------+
08617  M01S00002.pfm47   +++|          LDD    CP
08618  M01S00003.pfm47   +++|          ADK    SSCW
08619  M01S00004.pfm47   +++|          CRD    CM
08620  M01S00005.pfm47   +++|          LDD    CM
08621  M01S00006.pfm47   +++|          ADD    CM+1
08622  M01S00007.pfm47   +++|          ADD    CM+2
08623  M01S00008.pfm47   +++|          ADD    CM+3
08624  M01S00009.pfm47   +++|          ADD    CM+4
08625  M01S00010.pfm47   +++|          NJN    CCTX        IF CALLER IS A UCP
08626  M00S06366.pfm     +++|
08627  M00S06367.pfm     +++|*         CHECK IF FILE SIZE .GE. THRESHOLD.
08628  M00S06368.pfm     +++|
Line S06369 Modification History
M01 (Removed by) ns2300
Seq #  *Modification Id* Act 
----------------------------+
08629  M01S06369.ns2300  ---|          LDK    CPTT
Line S00001 Modification History
M01 (Added by) ns2300
Seq #  *Modification Id* Act 
----------------------------+
08630  M01S00001.ns2300  +++|          LDK    PFNL        CHECK CPU TRANSFER THRESHOLD
08631  M01S00002.ns2300  +++|          CRD    CM
08632  M01S00003.ns2300  +++|          LDD    CM+4
08633  M00S06370.pfm     +++|          ZJN    CCTX        IF CPU TRANSFER DISABLED
08634  M00S06371.pfm     +++|          SBD    LF+1
08635  M00S06372.pfm     +++|          SBN    1
08636  M00S06373.pfm     +++|          MJN    CCT1        IF FILE LONG ENOUGH
08637  M00S06374.pfm     +++|          LDD    LF
Line S06375 Modification History
M01 (Removed by) pfm47
Seq #  *Modification Id* Act 
----------------------------+
08638  M01S06375.pfm47   ---|          ZJN    CCTX        IF FILE NOT LONG ENOUGH
Line S00011 Modification History
M01 (Added by) pfm47
Seq #  *Modification Id* Act 
----------------------------+
08639  M01S00011.pfm47   +++|          ZJP    CCTX        IF FILE NOT LONG ENOUGH
08640  M00S06376.pfm     +++|
08641  M00S06377.pfm     +++|*         SET UP FOR CPU TRANSFER.
08642  M00S06378.pfm     +++|
08643  M00S06379.pfm     +++| CCT1     ENDMS              RELEASE CHANNEL
08644  M00S06380.pfm     +++|          AOM    CPTF        SET *CPU TRANSFER* FLAG
08645  M00S06381.pfm     +++|          LDC    CCTA        CREATE LOCAL FILE /PFM*PFN/
08646  M00S06382.pfm     +++|          RJM    CLF
08647  M00S06383.pfm     +++|          STM    FNTB        SAVE FNT ADDRESS
08648  M00S06384.pfm     +++|          LDC    CCTB        CREATE LOCAL FILE /PFM*ILK/
08649  M00S06385.pfm     +++|          RJM    CLF
08650  M00S06386.pfm     +++|          STM    FNTC        SAVE FNT ADDRESS
08651  M00S06387.pfm     +++|          LDD    CC
08652  M00S06388.pfm     +++|          LMN    CCAP
08653  M00S06389.pfm     +++|          NJN    CCT2        IF NOT *APPEND* REQUEST
08654  M00S06390.pfm     +++|          LDC    CCTC        CREATE LOCAL FILE /PFM*APF/
08655  M00S06391.pfm     +++|          RJM    CLF
08656  M00S06392.pfm     +++|          STM    FNTD        SAVE FNT ADDRESS
08657  M00S06393.pfm     +++|
08658  M00S06394.pfm     +++|*         RESET LOCAL FILE PARAMETERS AND MASTER DEVICE DRIVER.
08659  M00S06395.pfm     +++|
08660  M00S06396.pfm     +++| CCT2     LDM    FNTA        RESET FNT ADDRESS
08661  M00S06397.pfm     +++|          STD    FA
08662  M00S06398.pfm     +++|          NFA    FA,R        REREAD FST
08663  M00S06399.pfm     +++|          ADN    FSTL
08664  M00S06400.pfm     +++|          CRD    FS
08665  M00S06401.pfm     +++|          LDM    PFFN        RESET PERMANENT FILE NAME
08666  M00S06402.pfm     +++|          ZJN    CCT3        IF PFN NOT SPECIFIED, USE LFN
08667  M00S06403.pfm     +++|          LDN    PFFN-PFSN
08668  M00S06404.pfm     +++| CCT3     ADC    PFSN
08669  M00S06405.pfm     +++|          RJM    SFN         SET FILE NAME
08670  M00S06406.pfm     +++|          RJM    RMD         RESET TO MASTER DEVICE
08671  M00S06407.pfm     +++|          UJP    CCTX        RETURN
08672  M00S06408.pfm     +++|
08673  M00S06409.pfm     +++|
08674  M00S06410.pfm     +++| CCTA     VFD    60/7L"PFN"
08675  M00S06411.pfm     +++| CCTB     VFD    60/7L"ILK"
08676  M00S06412.pfm     +++| CCTC     VFD    60/7L"APF"
08677  M00S06413.pfm     +++| CLF      SPACE  4,20
08678  M00S06414.pfm     +++|**        CLF - CREATE LOCAL FILE.
08679  M00S06415.pfm     +++|*
08680  M00S06416.pfm     +++|*         CREATE AN FNT ENTRY FOR THE SPECIFIED LOCAL FILE,
08681  M00S06417.pfm     +++|*         USING ONE OF THE SPECIAL RESERVED FNT ENTRIES.
08682  M00S06418.pfm     +++|*         IF THE SPECIFIED LOCAL FILE IS ALREADY ASSIGNED TO
08683  M00S06419.pfm     +++|*         THE JOB, RETURN THE FILE AND THEN CREATE A NEW FILE.
08684  M00S06420.pfm     +++|*         IF A RESERVED FNT ENTRY WAS NOT FOUND, HANG.
08685  M00S06421.pfm     +++|*
08686  M00S06422.pfm     +++|*         ENTRY  (A) = ADDRESS OF FILE NAME.
08687  M00S06423.pfm     +++|*
08688  M00S06424.pfm     +++|*         EXIT   (A) = (FA) = FNT ADDRESS OF FILE.
Line S00064 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
08689  M01S00064.ns2415  +++|*                TO *HNG* IF RESERVED FNT ENTRY NOT FOUND.
08690  M00S06425.pfm     +++|*
08691  M00S06426.pfm     +++|*         USES   FS, FN - FN+4.
08692  M00S06427.pfm     +++|*
08693  M00S06428.pfm     +++|*         CALLS  *0BF*, *0DF*.
08694  M00S06429.pfm     +++|*
08695  M00S06430.pfm     +++|*         MACROS EXECUTE, MONITOR.
08696  M00S06431.pfm     +++|
08697  M00S06432.pfm     +++|
08698  M00S06433.pfm     +++| CLF      SUBR               ENTRY/EXIT
08699  M00S06434.pfm     +++|          STM    CLFA        SET FILE NAME ADDRESS
08700  M00S06435.pfm     +++| CLF1     LDD    MA
08701  M00S06436.pfm     +++|          CWM    *,ON
08702  M00S06437.pfm     +++| CLFA     EQU    *-1
08703  M00S06438.pfm     +++|          SBN    1
08704  M00S06439.pfm     +++|          CRD    FN          SET FILE NAME
08705  M00S06440.pfm     +++|          LDN    45          USE RESERVED FNT, RETURN ON FILE NOT MADE
08706  M00S06441.pfm     +++|          STM    OVL0-1
08707  M00S06442.pfm     +++|          LDK    NEEQ
08708  M00S06443.pfm     +++|          STD    FS
08709  M00S06444.pfm     +++|          EXECUTE  0BF,OVL0  CREATE FILE
08710  M00S06445.pfm     +++|          UJN    CLF2        IF FILE NOT ALREADY ASSIGNED
08711  M00S06446.pfm     +++|
08712  M00S06447.pfm     +++|*         IF FILE ALREADY ASSIGNED, RETURN FILE.
08713  M00S06448.pfm     +++|
08714  M00S06449.pfm     +++|          LDN    1           *UNLOAD* EXISTING FILE
08715  M00S06450.pfm     +++|          STM    OVL0-1
08716  M00S06451.pfm     +++|          EXECUTE  0DF,OVL0
08717  M00S06452.pfm     +++|          UJN    CLF1        CREATE NEW FILE
08718  M00S06453.pfm     +++|
08719  M00S06454.pfm     +++|*         CHECK FOR SUCCESSFUL FILE CREATION.
08720  M00S06455.pfm     +++|
08721  M00S06456.pfm     +++| CLF2     NJN    CLF3        IF FILE NOT CREATED
08722  M00S06457.pfm     +++|          LDD    FA
08723  M00S06458.pfm     +++|          LJM    CLFX        RETURN
08724  M00S06459.pfm     +++|
08725  M00S06460.pfm     +++|*         HANG IF RESERVED FNT ENTRY NOT FOUND.
08726  M00S06461.pfm     +++|
Line S06462 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
08727  M01S06462.ns2415  ---| CLF3     MONITOR  HNGM      HANG
08728  M01S06463.ns2415  ---|          UJN    CLF3        CONTINUE TO HANG
Line S00065 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
08729  M01S00065.ns2415  +++| CLF3     RJM    HNG         HANG
Line S06464 Modification History
M01 (Removed by) pfm77
Seq #  *Modification Id* Act 
----------------------------+
08730  M01S06464.pfm77   ---| DSR      SPACE  4,10
Line S00001 Modification History
M01 (Added by) pfm77
Seq #  *Modification Id* Act 
----------------------------+
08731  M01S00001.pfm77   +++| DSR      SPACE  4,15
08732  M00S06465.pfm     +++|**        DSR -  DETERMINE IF FILE STAGING REQUIRED.
08733  M00S06466.pfm     +++|*
Line S06467 Modification History
M01 (Removed by) pfm77
Seq #  *Modification Id* Act 
----------------------------+
08734  M01S06467.pfm77   ---|*         ENTRY  (CI) = CATALOG POINTER.
Line S00002 Modification History
M01 (Added by) pfm77
Seq #  *Modification Id* Act 
----------------------------+
08735  M01S00002.pfm77   +++|*         ENTRY  (CB) = CATALOG BUFFER ADDRESS.
08736  M01S00003.pfm77   +++|*                (CI) = CATALOG ENTRY POINTER.
Line S06468 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08737  M01S06468.253l688 ---|*                (STAT) = BIT *STSD* SET IF STAGING DISABLED.
08738  M00S06469.pfm     +++|*
Line S06470 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08739  M01S06470.242l642 ---|*         EXIT   (LCOB) = *3PP* IF STAGING REQUIRED.
Line S00746 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08740  M02S00746.ns2414  ---|*         EXIT   (LCOB) = *3PQ* IF STAGING REQUIRED.
Line S00072 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08741  M02S00072.253l688 ---|*         EXIT   (LCOB) = *3PR* IF STAGING REQUIRED.
Line S00216 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08742  M01S00216.253l688 +++|*         EXIT   (LCOB) = *3PR*, IF STAGING REQUIRED.
08743  M01S00217.253l688 +++|*
08744  M01S00218.253l688 +++|*         USES   CM - CM+4.
Line S00004 Modification History
M01 (Added by) pfm77
Seq #  *Modification Id* Act 
----------------------------+
08745  M01S00004.pfm77   +++|*
08746  M01S00005.pfm77   +++|*         CALLS  MCB.
08747  M00S06471.pfm     +++|*
08748  M00S06472.pfm     +++|*         MACROS EXECUTE.
08749  M00S06473.pfm     +++|
08750  M00S06474.pfm     +++|
08751  M00S06475.pfm     +++| DSR      SUBR               ENTRY/EXIT
Line S06476 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08752  M01S06476.253l688 ---|          LDM    STAT
08753  M01S06477.253l688 ---|          LPK    STSD
08754  M01S06478.253l688 ---|          NJN    DSR1        IF FILE STAGING DISABLED
Line S00219 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08755  M01S00219.253l688 +++|          LDK    SSTL        GET FILE STAGING DISABLED STATUS
08756  M01S00220.253l688 +++|          CRD    CM
08757  M01S00221.253l688 +++|          LDD    CM
08758  M01S00222.253l688 +++|          SHN    21-3
08759  M01S00223.253l688 +++|          MJN    DSR1        IF CARTRIDGE PF STAGING DISABLED
08760  M00S06479.pfm     +++|          LDM    FCAF,CI     CHECK PSEUDO RELEASE FLAG
08761  M00S06480.pfm     +++|          SHN    21-3
08762  M00S06481.pfm     +++|          PJN    DSR1        IF PSEUDO RELEASE NOT SET
08763  M00S06482.pfm     +++|          SHN    21-0-21+3
Line S06483 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08764  M01S06483.253l688 ---|          MJN    DSRX        IF ALTERNATE STORAGE COPY OBSOLETE
08765  M01S06484.253l688 ---|          UJN    DSR2        REQUEST FILE STAGING
08766  M01S06485.253l688 ---|
Line S00224 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08767  M01S00224.253l688 +++|          PJN    DSR2        IF CARTRIDGE COPY NOT OBSOLETE
08768  M00S06486.pfm     +++| DSR1     LDM    FCBT,CI     FIRST TRACK OF FILE
08769  M00S06487.pfm     +++|          NJN    DSRX        IF FILE DISK RESIDENT
Line S06488 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08770  M01S06488.242l642 ---| DSR2     EXECUTE  3PP,*     SET OVERLAY TO BE CALLED
Line S00747 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08771  M02S00747.ns2414  ---| DSR2     EXECUTE  3PQ,*     SET OVERLAY TO BE CALLED
Line S00073 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08772  M02S00073.253l688 ---| DSR2     EXECUTE  3PR,*     SET OVERLAY TO BE CALLED
Line S00225 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08773  M01S00225.253l688 +++| DSR2     EXECUTE  3PR,*     STAGE FILE FROM TAPE OR CARTRIDGE
08774  M00S06489.pfm     +++|          STM    LCOB
Line S00006 Modification History
M01 (Added by) pfm77
Seq #  *Modification Id* Act 
----------------------------+
08775  M01S00006.pfm77   +++|          RJM    MCB         MOVE CATALOG BUFFER (IF NECESSARY)
08776  M00S06490.pfm     +++|          UJN    DSRX        RETURN
Line S00007 Modification History
M01 (Added by) pfm77
Seq #  *Modification Id* Act 
----------------------------+
08777  M01S00007.pfm77   +++| MCB      SPACE  4,15
08778  M01S00008.pfm77   +++|**        MCB - MOVE CATALOG BUFFER.
08779  M01S00009.pfm77   +++|*
08780  M01S00010.pfm77   +++|*         MOVE THE CATALOG BUFFER INTO *BUF1*, IF THE CATALOG BUFFER
08781  M01S00011.pfm77   +++|*         IS CURRENTLY IN *BUF2*.  THIS IS DONE TO ALLOW MORE SPACE
08782  M01S00012.pfm77   +++|*         FOR OVERLAY *3PR*.  SINCE THE FILE MUST BE STAGED, NO OTHER
08783  M01S00013.pfm77   +++|*         BUFFERS ARE REQUIRED FOR THE CURRENT INVOCATION OF *PFM*.
08784  M01S00014.pfm77   +++|*
08785  M01S00015.pfm77   +++|*         ENTRY  (CB) = CATALOG BUFFER ADDRESS.
08786  M01S00016.pfm77   +++|*                (CI) = CATALOG ENTRY POINTER.
08787  M01S00017.pfm77   +++|*
08788  M01S00018.pfm77   +++|*         EXIT   CATALOG BUFFER COPIED INTO *BUF1*, IF NECESSARY.
08789  M01S00019.pfm77   +++|*                (CB), (CI) UPDATED.
08790  M01S00020.pfm77   +++|*
08791  M01S00021.pfm77   +++|*         USES   CB, CI, T1.
08792  M01S00022.pfm77   +++|
08793  M01S00023.pfm77   +++|
08794  M01S00024.pfm77   +++| MCB      SUBR               ENTRY/EXIT
08795  M01S00025.pfm77   +++|          LDD    CB          CHECK CATALOG BUFFER ADDRESS
08796  M01S00026.pfm77   +++|          LMC    BUF2
08797  M01S00027.pfm77   +++|          NJN    MCBX        IF CATALOG BUFFER IS NOT IN *BUF2*
08798  M01S00028.pfm77   +++|          LDC    501         SET BYTE COUNT
08799  M01S00029.pfm77   +++|          STD    T1
08800  M01S00030.pfm77   +++| MCB1     LDM    BUF2-2,T1   MOVE NEXT BYTE
08801  M01S00031.pfm77   +++|          STM    BUF1-2,T1
08802  M01S00032.pfm77   +++|          SOD    T1
08803  M01S00033.pfm77   +++|          PJN    MCB1        IF MORE BYTES TO MOVE
08804  M01S00034.pfm77   +++|          LDC    BUF1-BUF2   ADJUST CATALOG ENTRY POINTER
08805  M01S00035.pfm77   +++|          RAD    CI
08806  M01S00036.pfm77   +++|          LDC    BUF1        RESET CATALOG BUFFER POINTER
08807  M01S00037.pfm77   +++|          STD    CB
08808  M01S00038.pfm77   +++|          UJN    MCBX        RETURN
08809  M00S06491.pfm     +++| SDB      SPACE  4,20
08810  M00S06492.pfm     +++|**        SDB - SWAP DISK BUFFERS.
08811  M00S06493.pfm     +++|*
08812  M00S06494.pfm     +++|*         SWAP THE *END* BUFFER WITH THE *BFMS* BUFFER, IF THE HOLE
08813  M00S06495.pfm     +++|*         BUFFER IS IN *BFMS*.  THIS IS DONE SO THAT *BFMS* CAN BE
Line S06496 Modification History
M01 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
08814  M01S06496.pfm59   ---|*         REUSED FOR PERMITS (IF NECESSARY), AND LATER REREAD IF
08815  M01S06497.pfm59   ---|*         THE END BUFFER IS NEEDED.  THE VARIOUS POINTERS AND DISK
08816  M01S06498.pfm59   ---|*         ADDRESSES ASSOCIATED WITH THE BUFFERS ARE ALSO SWAPPED.
Line S00002 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
08817  M01S00002.pfm59   +++|*         REUSED FOR PERMITS (IF NECESSARY), AND LATER REREAD IF THE
08818  M01S00003.pfm59   +++|*         END BUFFER IS NEEDED.  THIS ALSO ALLOWS *REB* TO LATER READ
08819  M01S00004.pfm59   +++|*         THE DAPF HOLE ENTRY (IF PRESENT) INTO *BFMS*, AND TO THEN
08820  M01S00005.pfm59   +++|*         DESIGNATE *BFMS* AS THE END BUFFER.  THE VARIOUS POINTERS
08821  M01S00006.pfm59   +++|*         AND DISK ADDRESSES ASSOCIATED WITH THE BUFFERS ARE ALSO
08822  M01S00007.pfm59   +++|*         SWAPPED.
08823  M00S06499.pfm     +++|*
08824  M00S06500.pfm     +++|*         ENTRY  (CB) = ADDRESS OF CATALOG BUFFER.
08825  M00S06501.pfm     +++|*                (EB) = ADDRESS OF BUFFER CONTAINING END OF CATALOGS.
08826  M00S06502.pfm     +++|*                (EP) = POINTER TO NEXT PFC SLOT AVAILABLE FOR USE.
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/pfm.005.txt ยท Last modified: by 127.0.0.1