User Tools

Site Tools


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

Deck PFM Part 006

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
07199  M01S00683.242l642 +++|          RAM    AIPF+1
07200  M01S05244.pfm     +++|          RJM    IRA         INITIALIZE RANDOM PROCESSORS
07201  M01S05245.pfm     +++|
07202  M01S05246.pfm     +++|*         SET SEARCH POINTERS.
07203  M01S05247.pfm     +++|
07204  M01S05248.pfm     +++|          LDN    0           SET STARTING CATALOG TRACK SECTOR
07205  M01S05249.pfm     +++|          STD    T7
07206  M01S05250.pfm     +++|          LDN    ZERL        CONTIGUOUS STORAGE INITIALIZATION
07207  M01S05251.pfm     +++|          CRD    P0          TEMPORARY CATALOG SEARCH BUFFER POINTERS
07208  M01S05252.pfm     +++|          LDC    BUF1        SET PRIMARY BUFFER POINTER
07209  M01S05253.pfm     +++|*         LDC    BFMS        (*UREPLAC*/*DROPIDS*)
07210  M01S05254.pfm     +++| ISPC     EQU    *-1
07211  M01S05255.pfm     +++|          STD    P2
07212  M01S05256.pfm     +++|          LDC    BUF2        SET SECONDARY BUFFER POINTER
07213  M01S05257.pfm     +++| ISPA     EQU    *-1
07214  M01S05258.pfm     +++|*         LDC    BFMS        (*DEFINE* REQUEST)
07215  M01S05259.pfm     +++|          STD    P3
Line S05260 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07216  M02S05260.242l642 ---|          SETMS  READ
Line S05261 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07217  M02S05261.242l642 ---|          LJM    ISPX        RETURN
Line S00684 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
07218  M02S00684.ns2645  ---|          SETMS  IO
07219  M01S00003.ns2645  +++|          SETMS  READSTR
07220  M01S00685.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
07221  M01S00686.242l642 +++|          UJP    ISPX        RETURN
07222  M01S05262.pfm     +++| PCE      SPACE  4,10
07223  M01S05263.pfm     +++|**        PCE - PROCESS CATALOG READ ERROR.
07224  M01S00687.242l642 +++|*
07225  M01S00688.242l642 +++|*         ENTRY  READ ERROR DETECTED BY *COMPRNS*.
07226  M01S05264.pfm     +++|
07227  M01S05265.pfm     +++|
Line S05266 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07228  M02S05266.242l642 ---| PCE      BSS    0           ENTRY
07229  M01S00689.242l642 +++| PCE      SUBR               ENTRY
07230  M01S00690.242l642 +++|          RJM    PES         PROCESS ERROR STATUS
07231  M01S05267.pfm     +++|          ERROR  MSE,,,T5    *EQXXX,DNYY, MASS STORAGE ERROR.*
07232  M01S05268.pfm     +++| SCH      SPACE  4,50
07233  M01S05269.pfm     +++|**        SCH - SEARCH CATALOGS.
07234  M01S05270.pfm     +++|*
07235  M01S05271.pfm     +++|*         THIS ROUTINE WILL SEARCH FOR A FILE AND FOR A HOLE
07236  M01S05272.pfm     +++|*         (IF REQUESTED) BY READING INTO *BUF1* UNTIL A HOLE IS FOUND
07237  M01S05273.pfm     +++|*         AND THEN CONTINUING IN *BUF2*.  IF A LARGER HOLE IS
07238  M01S05274.pfm     +++|*         FOUND (*BUF2*) THEN READ WILL REVERT BACK TO *BUF1* UNTIL
07239  M01S05275.pfm     +++|*         LARGEST HOLE AND FILE ARE IN *BUF1* AND *BUF2*.  *SCH*
07240  M01S05276.pfm     +++|*         ALWAYS EXITS WHEN THE FILE IS FOUND.
07241  M01S05277.pfm     +++|*
07242  M01S05278.pfm     +++|*         ON A *UREPLAC* OR *DROPIDS* REQUEST, *SCH* IS CALLED JUST TO
07243  M01S05279.pfm     +++|*         SEARCH FOR A HOLE.  READING WILL START WITH *BFMS* AND WILL
07244  M01S05280.pfm     +++|*         SWITCH BACK AND FORTH BETWEEN *BFMS* AND *BUF2* UNTIL THE END
07245  M01S05281.pfm     +++|*         OF CATALOGS, OR UNTIL AN EXACT FIT IS FOUND.
07246  M01S05282.pfm     +++|*
07247  M01S05283.pfm     +++|*         UPON REENTRY (ON A *REPLACE* OR *APPEND* REQUEST IN WHICH
07248  M01S05284.pfm     +++|*         NO EXACT FIT HOLE WAS FOUND IN THE FIRST SEARCH) IT IS
07249  M01S05285.pfm     +++|*         NECESSARY TO KEEP ONE OF THE TWO BUFFERS (THE ONE WITH THE
07250  M01S05286.pfm     +++|*         FILE CATALOG ENTRY IN IT) AND TO CONTINUE TO SEARCH FOR A
07251  M01S05287.pfm     +++|*         LARGER HOLE BY READING INTO THE REMAINING BUFFER AND *BFMS*.
07252  M01S05288.pfm     +++|*         READING WILL START IN THE REMAINING *BUF1*/*BUF2* BUFFER -
07253  M01S05289.pfm     +++|*         RATHER THAN IN *BFMS* - UNLESS THERE IS ALREADY A HOLE IN
07254  M01S05290.pfm     +++|*         THE *BUF1*/*BUF2* BUFFER.
07255  M01S05291.pfm     +++|*
07256  M01S05292.pfm     +++|*         IF NO HOLE SEARCH IS REQUIRED ALL SECTORS ARE READ
07257  M01S05293.pfm     +++|*         INTO BUF1 (*GET*, *OLD* AND *ATTACH* REQUESTS).
07258  M01S05294.pfm     +++|*
07259  M01S05295.pfm     +++|*         SEE *CPI* FOR BUFFERS USED TO READ PERMITS.
07260  M01S05296.pfm     +++|*
07261  M01S05297.pfm     +++|*         ENTRY  (FN - FN+3) = FILE NAME.
07262  M01S05298.pfm     +++|*                (UI - UI+1) = USER INDEX.
07263  M01S05299.pfm     +++|*                (LF - LF+1) = LENGTH OF FILE IF HOLE SEARCH DESIRED.
07264  M01S05300.pfm     +++|*                (SCHA) INCREMENTED IF REENTRANT CALL.
07265  M01S05301.pfm     +++|*                (SCHB) PRESET FOR REENTRY IF CURRENT ENTRY (FILE
07266  M01S05302.pfm     +++|*                       FOUND) IS TO BE INCLUDED IN HOLE SEARCH.
07267  M01S05303.pfm     +++|*                (SCHF) PRESET IF HOLE SEARCH ENABLED (SEARCH FOR
07268  M01S05304.pfm     +++|*                       LARGEST HOLE OR ONE THAT FILE EXACTLY FITS IN).
07269  M01S05305.pfm     +++|*                (SCHH) PRESET IF SEARCH FOR DAPF HOLE.
07270  M01S05306.pfm     +++|*                (SCHI) PRESET IF SEARCH FOR LARGEST HOLE ENABLED.
07271  M01S05307.pfm     +++|*
07272  M01S05308.pfm     +++|*         EXIT   (A) = 0 IF FILE FOUND.
07273  M01S05309.pfm     +++|*                (CI) = CATALOG POINTER.
07274  M01S05310.pfm     +++|*                (CB) = CATALOG BUFFER.
07275  M01S05311.pfm     +++|*                (HP) = HOLE POINTER.
07276  M01S05312.pfm     +++|*                (HB) = HOLE BUFFER.
07277  M01S05313.pfm     +++|*                (EP) = END POINTER.
07278  M01S05314.pfm     +++|*                (EB) = END BUFFER.
07279  M01S05315.pfm     +++|*                (HL) = SIZE OF HOLE FOUND.
07280  M01S05316.pfm     +++|*                (NF - NF+1) = NUMBER OF FILES IN CATALOG.
07281  M01S05317.pfm     +++|*                (CS - CS+1) = CUMULATIVE SIZE OF INDIRECT FILES.
07282  M01S00004.pfm40   +++|*                (DAHP - DAHP+2) = DIRECT ACCESS HOLE POINTERS IF
07283  M01S00005.pfm40   +++|*                            DA HOLE FOUND AND NOT DAPF SEARCH.
07284  M01S05318.pfm     +++|*                (SDAB - SDAC) = ADDRESS OF FILE IF FOUND.
07285  M01S05319.pfm     +++|*
07286  M01S05320.pfm     +++|*         USES   P0 - P3, T3 - T7.
07287  M01S05321.pfm     +++|*
07288  M01S05322.pfm     +++|*         CALLS  CCD, ISP, RNS.
07289  M01S05323.pfm     +++|*
07290  M01S05324.pfm     +++|*         MACROS ERROR.
07291  M01S05325.pfm     +++|
07292  M01S05326.pfm     +++|
07293  M01S05327.pfm     +++|*         FILE FOUND.
07294  M01S05328.pfm     +++|
07295  M01S05329.pfm     +++| SCH18    LDD    T3          SET CATALOG ENTRY POINTERS
07296  M01S05330.pfm     +++|          STD    CI
07297  M01S05331.pfm     +++|          LDM    P2,P1
07298  M01S05332.pfm     +++|          STD    CB
07299  M01S05333.pfm     +++|          LDM    FCBT,CI     SET ADDRESS OF FILE FOUND
07300  M01S05334.pfm     +++|          STM    SDAB
07301  M01S05335.pfm     +++|          LDM    FCBS,CI
07302  M01S05336.pfm     +++|          STM    SDAC
07303  M01S05337.pfm     +++|          LDN    0
07304  M01S05338.pfm     +++|
07305  M01S05339.pfm     +++| SCH      SUBR               ENTRY/EXIT
07306  M01S05340.pfm     +++| SCHA     LDN    0
07307  M01S05341.pfm     +++|*         LDN    1           PRESET BY CATALOG SEARCH INITIALIZATION
07308  M01S05342.pfm     +++|          NJN    SCH1        IF NOT INITIAL CALL
07309  M01S05343.pfm     +++|          AOM    SCHA        CLEAR INITIAL CALL STATUS
07310  M01S05344.pfm     +++|          RJM    ISP         INITIALIZE FOR SEARCH
07311  M01S05345.pfm     +++|          LJM    SCH7        READ FIRST SECTOR
07312  M01S05346.pfm     +++|
07313  M01S05347.pfm     +++|*         SECONDARY CALL TO CONTINUE SEARCH FOR BEST HOLE.
07314  M01S05348.pfm     +++|
07315  M01S05349.pfm     +++| SCH1     LDK    PSNI        USE NEW BUFFER FOR REMAINDER OF SEARCH
07316  M01S05350.pfm     +++|          STM    SCHD
07317  M01S05351.pfm     +++|          LDD    HP
07318  M01S05352.pfm     +++|          ZJN    SCH1.1      IF NO HOLE FOUND YET
07319  M01S05353.pfm     +++|          LDD    HB
07320  M01S05354.pfm     +++|          LMM    P2,P1
07321  M01S05355.pfm     +++|          NJN    SCH1.2      IF HOLE NOT IN CURRENT BUFFER
07322  M01S05356.pfm     +++| SCH1.1   AOM    SCHC        SET BUFFER TOGGLE (DO NOT USE *BFMS* NEXT)
07323  M01S05357.pfm     +++| SCH1.2   LJM    SCH10       CONTINUE SEARCH, BYPASSING CURRENT FILE
07324  M01S05358.pfm     +++|*         LJM    SCH11       (INCLUDE CURRENT FILE IN SEARCH)
07325  M01S05359.pfm     +++| SCHB     EQU    *-1
07326  M01S05360.pfm     +++|
07327  M01S05361.pfm     +++|*         END OF SECTOR PROCESSING.
07328  M01S05362.pfm     +++|
07329  M01S05363.pfm     +++| SCH2     LDC    *           PARTIAL SECTOR WORD COUNT
07330  M01S05364.pfm     +++| SCHE     EQU    *-1
07331  M01S05365.pfm     +++|          LPN    77
07332  M01S05366.pfm     +++|          ZJN    SCH4        IF NOT EOR
07333  M01S05367.pfm     +++|
07334  M01S05368.pfm     +++|*         END OF RECORD ENCOUNTERED.
07335  M01S05369.pfm     +++|
07336  M01S05370.pfm     +++|          LDD    T3          SET END SECTOR POINTERS
07337  M01S05371.pfm     +++|          STD    EP
07338  M01S05372.pfm     +++|
07339  M01S05373.pfm     +++|*         END OF INFORMATION ENCOUNTERED (NO SHORT SECTOR).
07340  M01S05374.pfm     +++|
07341  M01S05375.pfm     +++| SCH3     LDM    P2,P1       SET END BUFFER
07342  M01S05376.pfm     +++|          STD    EB
07343  M01S05377.pfm     +++|          LJM    SCHX        RETURN
07344  M01S05378.pfm     +++|
07345  M01S05379.pfm     +++|*         SELECT BUFFER FOR NEXT SECTOR.
07346  M01S05380.pfm     +++|
07347  M01S05381.pfm     +++| SCH4     UJN    SCH5        TOGGLE BUFFER IF NECESSARY
07348  M01S05382.pfm     +++|*         PSN                (NEW BUFFER REQUIRED)
07349  M01S05383.pfm     +++| SCHD     EQU    *-1
07350  M01S05384.pfm     +++|          LDC    BFMS        SET *BFMS* IN PLACE OF CURRENT BUFFER
07351  M01S05385.pfm     +++|          STM    P2,P1
07352  M01S05386.pfm     +++|          ISTORE SCHD,(UJN SCH5)  RESET TO BYPASS THIS SECTION
07353  M01S05387.pfm     +++| SCH5     LDN    0
07354  M01S05388.pfm     +++|*         LDN    1           (BUFFER TOGGLE REQUIRED)
07355  M01S05389.pfm     +++| SCHC     EQU    *-1
07356  M01S05390.pfm     +++|          ZJN    SCH7        IF SAME BUFFER TO BE USED
07357  M01S05391.pfm     +++|          ISTORE SCHC,(LDN 0)  CLEAR BUFFER TOGGLE
07358  M01S05392.pfm     +++|          LDD    P1          TOGGLE BUFFER
07359  M01S05393.pfm     +++|          LMN    1
07360  M01S05394.pfm     +++|          STD    P1
07361  M01S05395.pfm     +++|
07362  M01S05396.pfm     +++|*         READ NEXT SECTOR.
07363  M01S05397.pfm     +++|
07364  M01S05398.pfm     +++| SCH7     LDM    P2,P1       SET BUFFER ADDRESS
07365  M01S05399.pfm     +++|          STD    T3
07366  M01S05400.pfm     +++|          LDD    T6          SAVE POSITION OF SECTOR
07367  M01S05401.pfm     +++|          STM    -2,T3
07368  M01S05402.pfm     +++|          STM    ERRC
07369  M01S05403.pfm     +++|          LDD    T7
07370  M01S05404.pfm     +++|          STM    -1,T3
07371  M01S05405.pfm     +++|          STM    ERRD
07372  M01S05406.pfm     +++|          LDD    T3          READ SECTOR
07373  M01S05407.pfm     +++|          RJM    RNS
Line S05408 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07374  M02S05408.242l642 ---| .MSE1    BSS    0           *COMPRNS* RETURN ADDRESS
07375  M01S05409.pfm     +++|          NJN    SCH8        IF NOT EOF/EOI OR ZERO LENGTH RECORD
07376  M01S05410.pfm     +++|          LJM    SCH3        PROCESS EOI
07377  M01S05411.pfm     +++|
07378  M01S05412.pfm     +++| SCH8     STD    P0          SAVE WORD COUNT
07379  M01S05413.pfm     +++|          STM    SCHE
07380  M01S05414.pfm     +++|          LPN    NWCE-1
07381  M01S05415.pfm     +++|          ZJN    SCH9        IF INTEGRAL NUMBER OF CATALOG ENTRIES
Line S05416 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
07382  M02S05416.ns2415  ---|          ERROR  BCS,,,T5    *EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.*
07383  M01S00062.ns2415  +++|          ERROR  BCS,,,T5,,EI  *EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.*
07384  M01S05417.pfm     +++|
07385  M01S05418.pfm     +++| SCH9     LDN    2           SKIP CONTROL BYTES
07386  M01S05419.pfm     +++|          RAD    T3
07387  M01S05420.pfm     +++|          UJN    SCH11       CHECK FIRST CATALOG ENTRY
07388  M01S05421.pfm     +++|
07389  M01S05422.pfm     +++|*         ADVANCE TO NEXT CATALOG ENTRY.
07390  M01S05423.pfm     +++|
07391  M01S05424.pfm     +++| SCH10    LDC    NWCE*5      ADVANCE TO NEXT CATALOG ENTRY
07392  M01S05425.pfm     +++|          RAD    T3
07393  M01S05426.pfm     +++|          LCN    NWCE        ADVANCE SECTOR WORD COUNT
07394  M01S05427.pfm     +++|          RAD    P0
07395  M01S05428.pfm     +++|          ZJP    SCH2        IF END OF BUFFER
07396  M01S05429.pfm     +++|
07397  M01S05430.pfm     +++|*         CHECK NEXT CATALOG ENTRY.
07398  M01S05431.pfm     +++|
07399  M01S05432.pfm     +++| SCH11    LDM    FCUI,T3
07400  M01S05433.pfm     +++|          LPN    37
07401  M01S05434.pfm     +++|          SHN    14
07402  M01S05435.pfm     +++|          LMM    FCUI+1,T3
07403  M01S05436.pfm     +++| SCHF     PSN    0
07404  M01S05437.pfm     +++|*         ZJN    SCH12       (HOLE SEARCH ENABLED - IF HOLE)
07405  M01S05438.pfm     +++|          ZJN    SCH10       IF EMPTY CATALOG ENTRY
07406  M01S05439.pfm     +++|          LMD    UI+1
07407  M01S05440.pfm     +++|          SHN    6
07408  M01S05441.pfm     +++|          LMD    UI
07409  M01S05442.pfm     +++| SCHG     NJN    SCH10       IF NOT SAME USER INDEX
07410  M01S05443.pfm     +++|*         PSN                (PRIVATE DEVICE ACCESS)
07411  M01S05444.pfm     +++|*         UJN    SCH10       (*UREPLAC*/*DROPIDS*, HOLE SEARCH ONLY)
07412  M01S05445.pfm     +++|          RJM    CCD         CHECK CATALOG DATA
07413  M01S05446.pfm     +++|          NJN    SCH10       IF NOT SAME FILE
07414  M01S05447.pfm     +++|          LJM    SCH18       TERMINATE SEARCH
07415  M01S05448.pfm     +++|
07416  M01S00006.pfm40   +++|*         SAVE ADDRESS OF DIRECT ACCESS HOLE FOR POSSIBLE FUTURE USE.
07417  M01S00007.pfm40   +++|
07418  M01S00008.pfm40   +++| SCH11.1  LDM    DAHP
07419  M01S00009.pfm40   +++| SCH11.2  NJN    SCH10       IF DIRECT ACCESS HOLE ALREADY FOUND
07420  M01S00010.pfm40   +++|          LDM    P2,P1       GET START OF BUFFER
07421  M01S00011.pfm40   +++|          STD    T0
07422  M01S00012.pfm40   +++|          LDD    T3          SAVE OFFSET WITHIN BUFFER
07423  M01S00013.pfm40   +++|          SBD    T0
07424  M01S00014.pfm40   +++|          STM    DAHP+2
07425  M01S00015.pfm40   +++|          SOD    T0
07426  M01S00016.pfm40   +++|          LDI    T0          SAVE DIRECT ACCESS HOLE SECTOR
07427  M01S00017.pfm40   +++|          STM    DAHP+1
07428  M01S00018.pfm40   +++|          SOD    T0
07429  M01S00019.pfm40   +++|          LDI    T0          SAVE DIRECT ACCESS HOLE TRACK
07430  M01S00020.pfm40   +++|          STM    DAHP
07431  M01S00021.pfm40   +++|          UJN    SCH11.2     ADVANCE TO NEXT CATALOG ENTRY
07432  M01S00022.pfm40   +++|
07433  M01S05449.pfm     +++|*         CHECK HOLE FOR POSSIBILITY OF PLUG.
07434  M01S05450.pfm     +++|
07435  M01S05451.pfm     +++| SCH12    LDM    FCBS,T3
07436  M01S05452.pfm     +++|          SHN    6
07437  M01S05453.pfm     +++|
Line S05454 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
07438  M02S05454.pfm40   ---| SCHH     MJN    SCH10       IF NOT IAPF HOLE
07439  M01S00023.pfm40   +++| SCHH     MJN    SCH11.1     IF NOT IAPF HOLE
07440  M01S05455.pfm     +++|*         UJN    SCH16       (DAPF FILE SEARCH)
07441  M01S05456.pfm     +++|          LDM    FCLF+1,T3
07442  M01S05457.pfm     +++|          STD    T0
07443  M01S05458.pfm     +++|          SBD    LF+1
07444  M01S05459.pfm     +++| SCHI     ZJN    SCH17       IF EXACT FIT
07445  M01S05460.pfm     +++|*         UJN    SCH13       (*APPEND* - SEARCH FOR LARGEST HOLE)
Line S05461 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2273
Seq #  *Modification Id* Act 
----------------------------+
07446  M02S05461.ns2273  ---|          SBN    MNHS
07447  M01S00001.ns2273  +++|          SBK    MNHS
07448  M01S05462.pfm     +++|          MJN    SCH15       IF NOT LARGE ENOUGH FOR FILE AND NEW HOLE
07449  M01S05463.pfm     +++| SCH13    LDD    HL
07450  M01S05464.pfm     +++|          SBD    T0
07451  M01S05465.pfm     +++|          PJN    SCH15       IF NOT LARGER THAN PREVIOUS HOLE
07452  M01S05466.pfm     +++|          LDD    T0          SET THIS AS MAXIMUM HOLE
07453  M01S05467.pfm     +++|          STD    HL
07454  M01S05468.pfm     +++|
07455  M01S05469.pfm     +++|*         SET POINTER TO HOLE.
07456  M01S05470.pfm     +++|
07457  M01S05471.pfm     +++| SCH14    AOM    SCHC        SET TO TOGGLE BUFFER
07458  M01S05472.pfm     +++|          LDD    T3          SAVE HOLE ADDRESS
07459  M01S05473.pfm     +++|          STD    HP
07460  M01S05474.pfm     +++|          LDM    P2,P1       SET HOLE BUFFER ADDRESS
07461  M01S05475.pfm     +++|          STD    HB
07462  M01S05476.pfm     +++| SCH15    LJM    SCH10       ADVANCE TO NEXT CATALOG ENTRY
07463  M01S05477.pfm     +++|*         LJM    SCHX        (*UREPLAC*/*DROPIDS*, EXACT FIT FOUND)
07464  M01S05478.pfm     +++| SCHJ     EQU    *-1
07465  M01S05479.pfm     +++|
07466  M01S05480.pfm     +++|*         CHECK FOR DIRECT ACCESS PURGED ENTRY.
07467  M01S05481.pfm     +++|
07468  M01S05482.pfm     +++| SCH16    PJN    SCH15       IF NOT DIRECT ACCESS FILE
07469  M01S05483.pfm     +++|
07470  M01S05484.pfm     +++|*         EXACT FIT.   BYPASS REMAINDER OF HOLES.
07471  M01S05485.pfm     +++|
07472  M01S05486.pfm     +++| SCH17    ISTORE SCHF,(PSN)  BYPASS HOLE SEARCH
07473  M01S05487.pfm     +++|          LDD    T0          SET LENGTH OF HOLE
07474  M01S05488.pfm     +++|          STD    HL
07475  M01S05489.pfm     +++| SCHK     UJN    SCH14       SET POINTER TO HOLE
07476  M01S05490.pfm     +++|*         PSN                (*UREPLAC*/*DROPIDS*)
07477  M01S05491.pfm     +++|          LDC    SCHX
07478  M01S05492.pfm     +++|          STM    SCHJ        SET HOLE SEARCH ONLY EXIT
07479  M01S05493.pfm     +++|          UJN    SCH14       SET POINTER TO HOLE
07480  M01S05494.pfm     +++| SHL      SPACE  4,30
07481  M01S05495.pfm     +++|**        SHL - SEARCH CATALOG FOR HOLE.
07482  M01S05496.pfm     +++|*
07483  M01S05497.pfm     +++|*         THIS SUBROUTINE PRESETS *SCH* TO SEARCH FOR A HOLE ENTRY
07484  M01S05498.pfm     +++|*         FOR A *UREPLAC* OR *DROPIDS* REQUEST.
07485  M01S05499.pfm     +++|*
07486  M01S05500.pfm     +++|*         IT IS POSSIBLE THAT AT THE COMPLETION OF THE SEARCH, THE
07487  M01S05501.pfm     +++|*         HOLE ENTRY AND/OR THE END OF CATALOGS WILL BE IN SAME SECTOR
07488  M01S05502.pfm     +++|*         AS THE FILE CATALOG ENTRY.  IF THIS SITUATION OCCURS, THE
07489  M01S05503.pfm     +++|*         HOLE AND/OR END POINTERS WILL BE ADJUSTED TO POINT TO THE
07490  M01S05504.pfm     +++|*         FILE ENTRY-S BUFFER (*BUF1*).
07491  M01S05505.pfm     +++|*
07492  M01S05506.pfm     +++|*         ENTRY  (CCIA) = CATALOG TRACK ADDRESS.
07493  M01S05507.pfm     +++|*                (CB) = CATALOG BUFFER.
07494  M01S05508.pfm     +++|*                (CI) = CATALOG POINTER.
07495  M01S05509.pfm     +++|*                (LF - LF+1) = LENGTH OF FILE.
07496  M01S05510.pfm     +++|*                (SDAA) = MASTER DEVICE EST ORDINAL.
07497  M01S05511.pfm     +++|*
07498  M01S05512.pfm     +++|*         EXIT   (A)  = 0, IF HOLE NOT FOUND.
07499  M01S05513.pfm     +++|*                (EB) = END BUFFER, IF END ENCOUNTERED.
07500  M01S05514.pfm     +++|*                (EP) = END POINTER, IF END ENCOUNTERED.
07501  M01S05515.pfm     +++|*                (HB) = HOLE BUFFER.
07502  M01S05516.pfm     +++|*                (HL) = SIZE OF HOLE FOUND.
07503  M01S05517.pfm     +++|*                (HP) = HOLE POINTER.
07504  M01S05518.pfm     +++|*
07505  M01S05519.pfm     +++|*         CALLS  SCH.
07506  M01S05520.pfm     +++|*
07507  M01S05521.pfm     +++|*         USES   EB, EP, HB, HP.
07508  M01S05522.pfm     +++|*
07509  M01S05523.pfm     +++|*         MACROS ISTORE.
07510  M01S05524.pfm     +++|
07511  M01S05525.pfm     +++|
07512  M01S05526.pfm     +++| SHL      SUBR               ENTRY/EXIT
07513  M01S05527.pfm     +++|          ISTORE ISPB,(UJN ISP1)   BYPASS CATALOG TRACK INTERLOCK
07514  M01S00025.ns2414  +++|          ISTORE SCHA,(LDN 0)  FORCE *ISP* CALL
07515  M01S05528.pfm     +++|          LDC    BFMS        SET PRIMARY BUFFER POINTER
07516  M01S05529.pfm     +++|          STM    ISPC
07517  M01S05530.pfm     +++|          ISTORE SCHF,(ZJN SCH12)  ENABLE HOLE SEARCH
07518  M01S05531.pfm     +++|          ISTORE SCHG,(UJN SCH10)  SEARCH FOR HOLES ONLY
07519  M01S05532.pfm     +++|          ISTORE SCHK,(PSN)        ENABLE EXIT FOR HOLE ONLY SEARCH
07520  M01S05533.pfm     +++|          RJM    SCH         SEARCH FOR HOLE
07521  M01S05534.pfm     +++|
07522  M01S05535.pfm     +++|*         CHECK IF HOLE IS IN THE SAME TRACK/SECTOR AS FILE ENTRY.
07523  M01S05536.pfm     +++|
07524  M01S05537.pfm     +++|          LDD    HP
07525  M01S05538.pfm     +++|          ZJN    SHL1        IF HOLE NOT FOUND
07526  M01S05539.pfm     +++|          LDM   -1,CB
07527  M01S05540.pfm     +++|          LMM   -1,HB
07528  M01S05541.pfm     +++|          NJN    SHL1        IF SECTOR NOT THE SAME FOR HOLE AND FILE
07529  M01S05542.pfm     +++|          LDM   -2,CB
07530  M01S05543.pfm     +++|          LMM   -2,HB
07531  M01S05544.pfm     +++|          NJN    SHL1        IF TRACK NOT THE SAME FOR HOLE AND FILE
Line S05545 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
07532  M02S05545.pfm40   ---|          LDD    HP          ADJUST HOLE POINTERS TO FILE ENTRY BUFFER
07533  M01S00024.pfm40   +++|          LDD    CB          ADJUST HOLE POINTERS TO FILE ENTRY BUFFER
07534  M01S05546.pfm     +++|          SBD    HB
Line S05547 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
07535  M02S05547.pfm40   ---|          ADD    CB
Line S05548 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
07536  M02S05548.pfm40   ---|          STD    HP
07537  M01S00025.pfm40   +++|          RAD    HP
07538  M01S05549.pfm     +++|          LDD    CB
07539  M01S05550.pfm     +++|          STD    HB
07540  M01S05551.pfm     +++|
07541  M01S05552.pfm     +++|*         CHECK IF END IS IN SAME TRACK/SECTOR AS FILE ENTRY.
07542  M01S05553.pfm     +++|
07543  M01S05554.pfm     +++| SHL1     LDD    EB
07544  M01S05555.pfm     +++|          ZJN    SHL3        IF END NOT REACHED (EXACT FIT HOLE FOUND)
07545  M01S05556.pfm     +++|          LDM   -1,CB
07546  M01S05557.pfm     +++|          LMM   -1,EB
07547  M01S05558.pfm     +++|          NJN    SHL3        IF SECTOR NOT THE SAME FOR END AND FILE
07548  M01S05559.pfm     +++|          LDM   -2,CB
07549  M01S05560.pfm     +++|          LMM   -2,EB
07550  M01S05561.pfm     +++|          NJN    SHL3        IF TRACK NOT THE SAME FOR END AND FILE
07551  M01S05562.pfm     +++|          LDD    EP          ADJUST END POINTERS
07552  M01S05563.pfm     +++|          ZJN    SHL2        IF NO END POINTER (EOI)
07553  M01S05564.pfm     +++|          SBD    EB          ADJUST END POINTER TO FILE ENTRY BUFFER
07554  M01S05565.pfm     +++|          ADD    CB
07555  M01S05566.pfm     +++|          STD    EP
07556  M01S05567.pfm     +++| SHL2     LDD    CB          ADJUST END BUFFER TO FILE ENTRY BUFFER
07557  M01S05568.pfm     +++|          STD    EB
07558  M01S05569.pfm     +++|
07559  M01S05570.pfm     +++|*         RETURN HOLE POINTER.
07560  M01S05571.pfm     +++|
07561  M01S05572.pfm     +++| SHL3     LDD    HP          HOLE POINTER (IF FOUND)
07562  M01S05573.pfm     +++|          LJM    SHLX        RETURN
07563  M01S05574.pfm     +++|          TITLE  SPECIAL REQUEST BLOCK CATALOG ACCESS ROUTINES.
07564  M01S05575.pfm     +++| ACE      SPACE  4,30
07565  M01S05576.pfm     +++|**        ACE - ACCESS CATALOG ENTRY.
07566  M01S05577.pfm     +++|*
07567  M01S05578.pfm     +++|*         READ A CATALOG ENTRY AND CHECK THE FOLLOWING INFORMATION -
07568  M01S05579.pfm     +++|*            COMPARE THE USER INDEX WITH (PFFM+3 - PFFM+4).
07569  M01S05580.pfm     +++|*            COMPARE THE CREATION DATE AND TIME WITH (PFCD - PFCD+2).
07570  M01S05581.pfm     +++|*
Line S05582 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
07571  M02S05582.pfm19   ---|*         ENTRY  (CCIA) = BASE TRACK FOR INTERLOCK
07572  M01S00039.pfm19   +++|*         ENTRY  (EQ) = MASTER DEVICE EST ORDINAL.
07573  M01S00040.pfm19   +++|*                (CCIA) = CATALOG TRACK TO INTERLOCK.
07574  M01S00008.pfm31   +++|*                (CCIB) UPDATED IF CATALOG TRACK INTERLOCK ALREADY SET.
07575  M01S05583.pfm     +++|*                (PFAS) = 36/ ALTERNATE STORAGE ADDRESS.
07576  M01S05584.pfm     +++|*                (PFCD) = 36/ CREATION DATE AND TIME.
07577  M01S05585.pfm     +++|*                (PFFM) = 42/FAMILY,18/USER INDEX.
07578  M01S05586.pfm     +++|*                (PFID) = 4/,2/PEO,6/DN,12/TRACK,12/SECTOR.
Line S05587 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
07579  M02S05587.pfm19   ---|*                (SDAA) = MASTER DEVICE EST ORDINAL.
07580  M01S05588.pfm     +++|*
07581  M01S05589.pfm     +++|*         EXIT   CATALOG SECTOR READ.
07582  M01S05590.pfm     +++|*                CATALOG TRACK INTERLOCKED.
07583  M01S05591.pfm     +++|*                (CB) = BUFFER ADDRESS OF CATALOG SECTOR.
07584  M01S05592.pfm     +++|*                (CI) = POINTER TO CATALOG ENTRY.
07585  M01S05593.pfm     +++|*                (T5) = MASTER DEVICE EST ORDINAL.
07586  M01S05594.pfm     +++|*                (T6) = CATALOG TRACK.
07587  M01S05595.pfm     +++|*                (T7) = CATALOG SECTOR.
07588  M01S05596.pfm     +++|*
Line S05597 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07589  M02S05597.242l642 ---|*         CALLS  ITC, RDS.
Line S00691 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
07590  M02S00691.pfm36   ---|*         CALLS  IRA, ITC, PDV, PES, RDS.
07591  M01S00029.pfm36   +++|*         CALLS  ICT, IRA, PDV, PES, RDS.
07592  M01S05598.pfm     +++|*
07593  M01S05599.pfm     +++|*         USES   CB, CI, T1, T5, T6, T7.
07594  M01S05600.pfm     +++|*
07595  M01S05601.pfm     +++|*         MACROS COMPARE, ERROR, EXIT, SETMS.
07596  M01S05602.pfm     +++|
07597  M01S05603.pfm     +++|
07598  M01S05604.pfm     +++| ACE      SUBR               ENTRY/EXIT
Line S05605 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
07599  M02S05605.ns2414  ---|          LDC    BUF1        SET CATALOG BUFFER ADDRESS
Line S00026 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07600  M02S00026.253l688 ---|          LDM    SSJS
Line S00027 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07601  M02S00027.253l688 ---|          NJN    ACE0        IF CALLER IS *SSJ=*
Line S00028 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07602  M02S00028.253l688 ---|          ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST. *
Line S00029 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07603  M02S00029.253l688 ---|
Line S00030 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07604  M02S00030.253l688 ---| ACE0     LDC    BUF1        SET CATALOG BUFFER ADDRESS
07605  M01S00123.253l688 +++|          LDC    BUF1        SET CATALOG BUFFER ADDRESS
07606  M01S05606.pfm     +++|          STD    CB
07607  M01S05607.pfm     +++|          ADN    2           INITIALIZE *PFC* ENTRY POINTER
07608  M01S05608.pfm     +++|          STD    CI
Line S05609 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
07609  M02S05609.pfm19   ---|          LDM    PFPN+4      ESTABLISH CATALOG EST ORDINAL
07610  M01S00041.pfm19   +++|          LDD    EQ          SET MASTER DEVICE EST ORDINAL
07611  M01S05610.pfm     +++|          STD    T5
07612  M01S05611.pfm     +++|          LDM    CCIA        BASE TRACK ADDRESS
07613  M01S05612.pfm     +++|          STD    T6
Line S05613 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07614  M02S05613.242l642 ---|          SETMS  READ
07615  M01S00692.242l642 +++|          SETMS  IO
07616  M01S00693.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
Line S05614 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm31
Seq #  *Modification Id* Act 
----------------------------+
07617  M02S05614.pfm31   ---|          LDD    CC
Line S05615 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm31
Seq #  *Modification Id* Act 
----------------------------+
07618  M02S05615.pfm31   ---|          LMN    CCDP
Line S05616 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm31
Seq #  *Modification Id* Act 
----------------------------+
07619  M02S05616.pfm31   ---|          ZJN    ACE1        IF *DELPFC* (CATALOG ALREADY INTERLOCKED)
07620  M01S00009.pfm31   +++|          LDM    CCIB        CHECK CATALOG INTERLOCK FLAG
07621  M01S00010.pfm31   +++|          LPN    77
07622  M01S00011.pfm31   +++|          NJN    ACE1        IF CATALOG ALREADY INTERLOCKED
07623  M01S00124.253l688 +++|          LDD    CC
07624  M01S00125.253l688 +++|          LMN    CCSP
07625  M01S00126.253l688 +++|          ZJN    ACE1        IF *STAGEPF* REQUEST
Line S05617 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
07626  M02S05617.pfm36   ---|          LDD    T6
Line S05618 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
07627  M02S05618.pfm36   ---|          RJM    ITC         SET CATALOG TRACK INTERLOCK
07628  M01S00030.pfm36   +++|          RJM    ICT         INTERLOCK CATALOG TRACK
07629  M01S05619.pfm     +++|          AOM    CCIB        SET CATALOG TRACK INTERLOCK FLAG
07630  M01S05620.pfm     +++| ACE1     RJM    IRA         INITIALIZE RANDOM PROCESSORS
07631  M01S05621.pfm     +++|          LDM    PFID+1      SET TRACK ADDRESS FOR READ
07632  M01S05622.pfm     +++|          STM    -2,CB
07633  M01S05623.pfm     +++|          STD    T6
07634  M01S05624.pfm     +++|          STM    ERRC
07635  M01S05625.pfm     +++|          LDM    PFID+2      SET SECTOR ADDRESS FOR READ
07636  M01S05626.pfm     +++|          STM    -1,CB
07637  M01S05627.pfm     +++|          STD    T7
07638  M01S05628.pfm     +++|          STM    ERRD
07639  M01S05629.pfm     +++|          LDD    CB          READ THE CATALOG SECTOR
07640  M01S05630.pfm     +++|          RJM    RDS
07641  M01S05631.pfm     +++|          PJN    ACE3        IF NO READ ERROR
07642  M01S00694.242l642 +++|          RJM    PES         PROCESS ERROR STATUS
07643  M01S05632.pfm     +++| ACE2     ERROR  MSE,,,T5    *EQXXX,DNYY, MASS STORAGE ERROR.*
07644  M01S05633.pfm     +++|
07645  M01S05634.pfm     +++|*         SETUP *PFC* ENTRY POINTER BASED ON THE *PEO* VALUE.
07646  M01S05635.pfm     +++|
07647  M01S05636.pfm     +++| ACE3     LDM    1,CB        CHECK SECTOR LENGTH
07648  M01S05637.pfm     +++|          LPN    NWCE-1
07649  M01S05638.pfm     +++|          ZJN    ACE4        IF LEGAL SECTOR LENGTH
Line S05639 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
07650  M02S05639.ns2415  ---|          ERROR  BCS,,,T5    *EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.*
07651  M01S00063.ns2415  +++|          ERROR  BCS,,,T5,,EI  *EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.*
07652  M01S05640.pfm     +++|
07653  M01S05641.pfm     +++| ACE4     LDM    PFID        ISOLATE *PEO* VALUE
07654  M01S05642.pfm     +++|          SHN    -6
07655  M01S05643.pfm     +++|          LPN    1S"NWCEM"-1
07656  M01S05644.pfm     +++|          SHN    NWCES       FORM *PFC* BIAS
07657  M01S05645.pfm     +++|          STD    T1
07658  M01S05646.pfm     +++|          SHN    2
07659  M01S05647.pfm     +++|          ADD    T1
07660  M01S05648.pfm     +++|          RAD    CI
07661  M01S05649.pfm     +++|          LDD    T1          CHECK *PEO* OFFSET
07662  M01S05650.pfm     +++|          SBM    1,CB
07663  M01S05651.pfm     +++|          PJN    ACE5        IF INVALID *PEO* VALUE
07664  M01S05652.pfm     +++|
07665  M01S05653.pfm     +++|*         VERIFY *PFC* ENTRY INFORMATION.
07666  M01S05654.pfm     +++|
07667  M01S05655.pfm     +++|          LDM    FCUI+1,CI   COMPARE LSB OF USER INDEX
07668  M01S05656.pfm     +++|          LMM    PFFM+4
07669  M01S05657.pfm     +++|          ZJN    ACE6        IF MATCH
07670  M01S05658.pfm     +++| ACE5     ERROR  PVE         *PFC VERIFICATION ERROR.*
07671  M01S05659.pfm     +++|
07672  M01S05660.pfm     +++| ACE6     LDM    FCUI,CI     COMPARE MSB OF USER INDEX
07673  M01S05661.pfm     +++|          LMM    PFFM+3
07674  M01S05662.pfm     +++|          LPN    77
07675  M01S05663.pfm     +++|          NJN    ACE5        IF USER INDEX DOES NOT MATCH
07676  M01S05664.pfm     +++|          COMPARE  PFCD,FCCD CREATION DATE/TIME
07677  M01S05665.pfm     +++|          NJN    ACE5        IF CREATION DATE/TIME DOES NOT MATCH
07678  M01S05666.pfm     +++|          LJM    ACEX        EXIT
07679  M01S05667.pfm     +++| COF      SPACE  4,15
07680  M01S05668.pfm     +++|**        COF - COMPARE FIELD OF 36 BITS.
07681  M01S05669.pfm     +++|*
07682  M01S05670.pfm     +++|*         ENTRY  (A) = PFC ENTRY OFFSET TO OBJECT FIELD.
07683  M01S05671.pfm     +++|*                (CI) = PFC ENTRY ADDRESS.
07684  M01S05672.pfm     +++|*                (T1) = SECONDARY FIELD FOR COMPARE.
07685  M01S05673.pfm     +++|*
07686  M01S05674.pfm     +++|*         EXIT   (A) = 0 IF FIELDS ARE THE SAME.
07687  M01S05675.pfm     +++|*
07688  M01S05676.pfm     +++|*         USES   T1, T2, T3.
07689  M01S05677.pfm     +++|
07690  M01S05678.pfm     +++|
07691  M01S05679.pfm     +++| COF      SUBR               ENTRY/EXIT
07692  M01S05680.pfm     +++|          ADD    CI          SET PRIMARY COMPARE FIELD ADDRESS
07693  M01S05681.pfm     +++|          STD    T2
07694  M01S05682.pfm     +++|          LDN    3           SET NUMBER OF WORDS TO COMPARE
07695  M01S05683.pfm     +++|          STD    T3
07696  M01S05684.pfm     +++|
07697  M01S05685.pfm     +++|*         LOOP COMPARING THE TWO FIELDS.
07698  M01S05686.pfm     +++|
07699  M01S05687.pfm     +++| COF1     LDI    T1          SECONDARY FIELD
07700  M01S05688.pfm     +++|          LMI    T2          PRIMARY FIELD
07701  M01S05689.pfm     +++|          NJN    COFX        IF FIELDS DO NOT MATCH
07702  M01S05690.pfm     +++|          AOD    T1          ADVANCE SECONDARY FIELD POINTER
07703  M01S05691.pfm     +++|          AOD    T2          ADVANCE PRIMARY FIELD POINTER
07704  M01S05692.pfm     +++|          SOD    T3
07705  M01S05693.pfm     +++|          ZJN    COFX        IF ALL FIELDS COMPARE
07706  M01S05694.pfm     +++|          UJN    COF1        CONTINUE FIELD COMPARE
07707  M01S00031.ns2414  +++|RSC       SPACE  4,10
Line S00032 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07708  M02S00032.253l688 ---|**        RSC - READ CATALOG ENTRY, SEARCH CATALOG IF NEEDED.
07709  M01S00127.253l688 +++|**        RSC - READ CATALOG ENTRY, SEARCH CATALOG IF NECESSARY.
07710  M01S00033.ns2414  +++|*
Line S00034 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07711  M02S00034.253l688 ---|*         CALLS  RVC, SCH.
07712  M01S00128.253l688 +++|*         CALLS  ACE, SCH.
07713  M01S00035.ns2414  +++|*
07714  M01S00036.ns2414  +++|*         MACROS ERROR.
07715  M01S00037.ns2414  +++|
07716  M01S00038.ns2414  +++|
Line S00039 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07717  M02S00039.253l688 ---|RSC       SUBR               ENTRY/EXIT
07718  M01S00129.253l688 +++| RSC      SUBR               ENTRY/EXIT
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 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07727  M02S00048.253l688 ---| RSC1     RJM    RVC         READ AND VERIFY CATALOG ENTRY
07728  M01S00130.253l688 +++| RSC1     RJM    ACE         ACCESS CATALOG ENTRY
07729  M01S00049.ns2414  +++|          UJN    RSCX        RETURN
07730  M01S05695.pfm     +++| RVC      SPACE  4,10
07731  M01S05696.pfm     +++|**        RVC -  READ AND VERIFY CATALOG ENTRY.
07732  M01S05697.pfm     +++|*
07733  M01S05698.pfm     +++|*         EXIT   (CB) = CATALOG BUFFER.
07734  M01S05699.pfm     +++|*                (CI) = CATALOG POINTER.
07735  M01S05700.pfm     +++|*
07736  M01S05701.pfm     +++|*         CALLS  ACE.
07737  M01S05702.pfm     +++|*
07738  M01S05703.pfm     +++|*         MACROS COMPARE, ERROR.
07739  M01S05704.pfm     +++|
07740  M01S05705.pfm     +++|
07741  M01S05706.pfm     +++| RVC      SUBR               ENTRY/EXIT
07742  M01S05707.pfm     +++|          RJM    ACE         ACCESS CATALOG ENTRY
Line S05708 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07743  M02S05708.253l688 ---|          COMPARE  PFAA,FCAA VERIFY ALTERNATE STORAGE ADDRESSES
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  M01S05709.pfm     +++|          NJN    RVC1        IF NO MATCH ON ALTERNATE STORAGE ADDRESS
07752  M01S05710.pfm     +++|          LDM    PFAT        VERIFY ALTERNATE STORAGE TYPE
07753  M01S05711.pfm     +++|          LMM    FCAT,CI
07754  M01S05712.pfm     +++|          LPN    77
07755  M01S05713.pfm     +++|          ZJN    RVCX        IF ALTERNATE STORAGE TYPES MATCH
07756  M01S05714.pfm     +++| RVC1     ERROR  PVE         * PFC VERIFICATION ERROR.*
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 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07767  M02S05715.pfm63   ---|          TITLE  INITIAL REQUEST PROCESSING.
Line S05716 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07768  M02S05716.pfm63   ---| IRP      SPACE  4,10
Line S05717 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07769  M02S05717.pfm63   ---|***       INITIAL REQUEST PROCESSING.
Line S05718 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07770  M02S05718.pfm63   ---|*
Line S05719 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07771  M02S05719.pfm63   ---|*         CALL REQUEST PREPROCESSOR TO PERFORM CATALOG AND
Line S05720 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07772  M02S05720.pfm63   ---|*         PERMIT SEARCH, BEFORE CALLING COMMAND OVERLAY.
Line S05721 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07773  M02S05721.pfm63   ---|*
Line S05722 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07774  M02S05722.pfm63   ---|*         ENTRY  (CC) = COMMAND CODE.
Line S05723 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07775  M02S05723.pfm63   ---|*                (DVLW - DVLW+4) = DEVICE LAYOUT WORD OF MST.
Line S05724 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07776  M02S05724.pfm63   ---|*                (MSTA) = MST ADDRESS/10B.
Line S05725 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07777  M02S05725.pfm63   ---|*                (PFOU) = OPTIONAL USER NAME
Line S05726 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07778  M02S05726.pfm63   ---|*                (PFPN) = OPTIONAL PACK NAME.
Line S05727 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07779  M02S05727.pfm63   ---|*
Line S05728 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07780  M02S05728.pfm63   ---|*         EXIT   TO COMMAND PROCESSOR AS SPECIFIED BY (CC).
Line S05729 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07781  M02S05729.pfm63   ---|*                (CCDA) = CHANGED IF PASSWORD CHECKING IS NOT NEEDED.
Line S05730 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07782  M02S05730.pfm63   ---|*                (CCDB) = *PSN* SET IF ACCUMULATION REQUIRED.
Line S05731 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07783  M02S05731.pfm63   ---|*                (CCDC) = CHANGED IF SECURITY ACCESS VIOLATION.
Line S05732 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07784  M02S05732.pfm63   ---|*                (DVLW) = DEVICE LAYOUT WORD OF MASTER DEVICE FROM MST.
Line S05733 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07785  M02S05733.pfm63   ---|*                (LCOA) = COMMAND OVERLAY PROCESSOR ADDRESS.
Line S05734 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07786  M02S05734.pfm63   ---|*                (LCOB) = COMMAND OVERLAY NAME.
Line S05735 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07787  M02S05735.pfm63   ---|*                (SCHG) = BYPASS SET IF USER INDEX CHECK IS NOT NEEDED.
Line S05736 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07788  M02S05736.pfm63   ---|*                THE FOLLOWING SEARCH POINTERS ARE INITIALIZED.
Line S05737 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07789  M02S05737.pfm63   ---|*                (HL, PB, PP, CS, CS+1, HB, HP, CB, CI, EP)
Line S05738 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07790  M02S05738.pfm63   ---|*
Line S05739 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07791  M02S05739.pfm63   ---|*         USES   T1, CM - CM+4.
Line S05740 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07792  M02S05740.pfm63   ---|*
Line S05741 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07793  M02S05741.pfm63   ---|*         CALLS  RMD.
Line S05742 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07794  M02S05742.pfm63   ---|
Line S05743 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07795  M02S05743.pfm63   ---|
Line S05744 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07796  M02S05744.pfm63   ---| IRP      BSS    0           ENTRY
Line S05745 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07797  M02S05745.pfm63   ---|
Line S05746 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07798  M02S05746.pfm63   ---|*         INITIALIZE CATALOG SEARCH ROUTINES.
Line S05747 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07799  M02S05747.pfm63   ---|
Line S05748 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07800  M02S05748.pfm63   ---|          LDM    PFOU
Line S05749 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07801  M02S05749.pfm63   ---|          NJN    IRP1        IF ALTERNATE USER NAME SPECIFIED
Line S05750 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07802  M02S05750.pfm63   ---|          ISTORE CCDA,(UJN CCD4)  SET BYPASS OF PASSWORD CHECK
Line S05751 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm37
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07803  M03S05751.pfm63   ---|          ISTORE CCDC,(NJN CCD8)  SET SECURITY VIOLATION PROCESSING
Line S00012 Modification History
M01 (Added by) pfm37
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07804  M02S00012.pfm63   ---|          ISTORE CCDC,(NJN CCD9)  SET SECURITY VIOLATION PROCESSING
Line S05752 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07805  M02S05752.pfm63   ---| IRP1     LDM    STAT        CHECK FOR SEARCH STATISTICS REQUIRED
Line S05753 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07806  M02S05753.pfm63   ---|          LPK    STAC
Line S05754 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07807  M02S05754.pfm63   ---|          ZJN    IRP2        IF ACCUMULATION NOT REQUIRED
Line S05755 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07808  M02S05755.pfm63   ---|          ISTORE CCDB,(PSN)  SET ACCUMULATION REQUIRED
Line S05756 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07809  M02S05756.pfm63   ---|
Line S05757 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07810  M02S05757.pfm63   ---|*         INITIALIZE FOR DEVICE ACCESS.
Line S05758 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07811  M02S05758.pfm63   ---|
Line S05759 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07812  M02S05759.pfm63   ---| IRP2     RJM    RMD         SET DRIVER FOR MASTER DEVICE
Line S05760 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07813  M02S05760.pfm63   ---|          LDM    MSTA        READ MST DEVICE LAYOUT WORD
Line S05761 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07814  M02S05761.pfm63   ---|          SHN    3
Line S05762 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07815  M02S05762.pfm63   ---|          ADN    ALGL
Line S05763 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07816  M02S05763.pfm63   ---|          CRM    DVLW,ON
Line S05764 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07817  M02S05764.pfm63   ---|          LDM    STAT        CHECK FOR PRIVATE DEVICE
Line S05765 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07818  M02S05765.pfm63   ---|          LPK    STPD
Line S05766 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07819  M02S05766.pfm63   ---|          ZJN    IRP3        IF NOT PRIVATE DEVICE
Line S05767 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07820  M02S05767.pfm63   ---|          ISTORE SCHG,(PSN)  SET BYPASS OF USER INDEX CHECK
Line S05768 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07821  M02S05768.pfm63   ---|
Line S05769 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07822  M02S05769.pfm63   ---|*         INITIALIZE SEARCH POINTERS.
Line S05770 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07823  M02S05770.pfm63   ---|
Line S05771 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07824  M02S05771.pfm63   ---| IRP3     LDN    0           CLEAR DIRECT CELLS
Line S05772 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07825  M02S05772.pfm63   ---|          STD    HL          LENGTH OF HOLE
Line S05773 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07826  M02S05773.pfm63   ---|          STD    PB          POINTER TO PERMIT BUFFER
Line S05774 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07827  M02S05774.pfm63   ---|          STD    PP          INDEX TO PERMIT BUFFER
Line S05775 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07828  M02S05775.pfm63   ---|          STD    CS          CUMULATIVE SIZE OF FILES IN CATALOG
Line S05776 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07829  M02S05776.pfm63   ---|          STD    CS+1
Line S05777 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07830  M02S05777.pfm63   ---|          LDN    ZERL        CLEAR CONTIGUOUS STORAGE
Line S05778 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07831  M02S05778.pfm63   ---|          CRD    HB
Line S05779 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07832  M02S05779.pfm63   ---|          ERRNZ  HP-HB-1     DIRECT CELLS NOT CONTIGUOUS
Line S05780 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07833  M02S05780.pfm63   ---|          ERRNZ  CB-HP-1     DIRECT CELLS NOT CONTIGUOUS
Line S05781 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07834  M02S05781.pfm63   ---|          ERRNZ  CI-CB-1     DIRECT CELLS NOT CONTIGUOUS
Line S05782 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07835  M02S05782.pfm63   ---|          ERRNZ  EP-CI-1     DIRECT CELLS NOT CONTIGUOUS
Line S05783 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07836  M02S05783.pfm63   ---|
Line S05784 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07837  M02S05784.pfm63   ---|*         EXIT TO REQUEST PREPROCESSOR.
Line S05785 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07838  M02S05785.pfm63   ---|
Line S05786 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07839  M02S05786.pfm63   ---|          LDD    CC          INDEX INTO *TCMD* TABLE
Line S05787 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07840  M02S05787.pfm63   ---|          SHN    1
Line S05788 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07841  M02S05788.pfm63   ---|          ADD    CC
Line S05789 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07842  M02S05789.pfm63   ---|          STD    T1
Line S05790 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07843  M02S05790.pfm63   ---|          LDM    TCMD+2,T1   SET REQUEST PROCESSOR ENTRY ADDRESS
Line S05791 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07844  M02S05791.pfm63   ---|          STM    LCOA
Line S05792 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07845  M02S05792.pfm63   ---|          LDM    TCMD+1,T1   SET OVERLAY NAME INTO *EXECUTE* MACRO
Line S05793 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07846  M02S05793.pfm63   ---|          STM    LCOB
Line S05794 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07847  M02S05794.pfm63   ---|          LDM    TCMD,T1     SET REQUEST PREPROCESSOR ADDRESS
Line S05795 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07848  M02S05795.pfm63   ---|          STD    T1
Line S05796 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07849  M02S05796.pfm63   ---|          LJM    0,T1        EXIT TO REQUEST PREPROCESSOR
Line S05797 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07850  M02S05797.pfm63   ---| TCMD     SPACE  4,25
Line S05798 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07851  M02S05798.pfm63   ---|**        TCMD - TABLE OF COMMAND PROCESSOR ADDRESSES.
Line S05799 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07852  M02S05799.pfm63   ---|*
Line S05800 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07853  M02S05800.pfm63   ---|*         FIRST BYTE IS PREPROCESSOR ADDRESS IN *3PC*.
Line S05801 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07854  M02S05801.pfm63   ---|*         SECOND BYTE IS SUFFIX FOR COMMAND OVERLAY NAME.
Line S05802 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07855  M02S05802.pfm63   ---|*         THIRD BYTE IS PROCESSOR ADDRESS IN COMMAND OVERLAY.
Line S05803 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07856  M02S05803.pfm63   ---|
Line S05804 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07857  M02S05804.pfm63   ---| TCMD     EQU    *-3         COMMAND CODE ADDRESS TABLE
Line S05805 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07858  M02S05805.pfm63   ---|          LOC    3
Line S05806 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07859  M02S05806.pfm63   ---|
Line S05807 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07860  M03S05807.pfm63   ---|          CON    SAV,2RPF,/3PF/SAV  *SAVE*
Line S05808 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07861  M03S05808.pfm63   ---|          CON    GET,2RPE,/3PE/GET  *GET*
Line S05809 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07862  M03S05809.pfm63   ---|          CON    PUR,2RPK,/3PK/PUR  *PURGE*
Line S00695 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07863  M02S00695.pfm63   ---|          CON    SAV,2RPG,/3PG/SAV  *SAVE*
Line S00696 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07864  M02S00696.pfm63   ---|          CON    GET,2RPF,/3PF/GET  *GET*
Line S00697 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07865  M02S00697.pfm63   ---|          CON    PUR,2RPL,/3PL/PUR  *PURGE*
Line S05810 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07866  M02S05810.pfm63   ---|          CON    0,0,0              *CATLIST*
Line S05811 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07867  M03S05811.pfm63   ---|          CON    PER,2RPK,/3PK/PER  *PERMIT*
Line S05812 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07868  M03S05812.pfm63   ---|          CON    REP,2RPF,/3PF/REP  *REPLACE*
Line S05813 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07869  M03S05813.pfm63   ---|          CON    APP,2RPG,/3PG/APP  *APPEND*
Line S05814 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07870  M03S05814.pfm63   ---|          CON    DEF,2RPJ,/3PJ/DEF  *DEFINE*
Line S05815 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07871  M03S05815.pfm63   ---|          CON    ATT,2RPH,/3PH/ATT  *ATTACH*
Line S05816 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07872  M03S05816.pfm63   ---|          CON    CHG,2RPL,/3PL/CHG  *CHANGE*
Line S05817 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07873  M03S05817.pfm63   ---|          CON    UAT,2RPH,/3PH/UAT  *UATTACH*
Line S05818 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07874  M03S05818.pfm63   ---|          CON    SAA,2RPM,/3PM/SAA  *SETASA*
Line S05819 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07875  M03S05819.pfm63   ---|          CON    SAF,2RPM,/3PM/SAF  *SETAF*
Line S05820 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07876  M03S05820.pfm63   ---|          CON    SDA,2RPJ,/3PJ/SDA  *SETDA*
Line S05821 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07877  M03S05821.pfm63   ---|          CON    DDS,2RPK,/3PK/DDS  *DROPDS*
Line S00698 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07878  M03S00698.pfm63   ---|          CON    PER,2RPL,/3PL/PER  *PERMIT*
Line S00050 Modification History
M01 (Added by) ns2414
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07879  M02S00050.pfm63   ---|          CON    PER,2RPM,/3PM/PER  *PERMIT*
Line S00699 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07880  M02S00699.pfm63   ---|          CON    REP,2RPG,/3PG/REP  *REPLACE*
Line S00700 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07881  M02S00700.pfm63   ---|          CON    APP,2RPH,/3PH/APP  *APPEND*
Line S00701 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07882  M02S00701.pfm63   ---|          CON    DEF,2RPK,/3PK/DEF  *DEFINE*
Line S00702 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07883  M02S00702.pfm63   ---|          CON    ATT,2RPI,/3PI/ATT  *ATTACH*
Line S00703 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07884  M03S00703.pfm63   ---|          CON    CHG,2RPM,/3PM/CHG  *CHANGE*
Line S00051 Modification History
M01 (Added by) ns2414
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07885  M02S00051.pfm63   ---|          CON    CHG,2RPN,/3PN/CHG  *CHANGE*
Line S00704 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07886  M02S00704.pfm63   ---|          CON    UAT,2RPI,/3PI/UAT  *UATTACH*
Line S00705 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07887  M03S00705.pfm63   ---|          CON    SAA,2RPN,/3PN/SAA  *SETASA*
Line S00706 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07888  M03S00706.pfm63   ---|          CON    SAF,2RPN,/3PN/SAF  *SETAF*
Line S00052 Modification History
M01 (Added by) ns2414
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07889  M02S00052.pfm63   ---|          CON    SAA,2RPO,/3PO/SAA  *SETASA*
Line S00053 Modification History
M01 (Added by) ns2414
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07890  M02S00053.pfm63   ---|          CON    SAF,2RPO,/3PO/SAF  *SETAF*
Line S00707 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07891  M02S00707.pfm63   ---|          CON    SDA,2RPK,/3PK/SDA  *SETDA*
Line S00708 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07892  M02S00708.pfm63   ---|          CON    DDS,2RPL,/3PL/DDS  *DROPDS*
Line S05822 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07893  M02S05822.pfm63   ---|          CON    0,0,0              *ASSIGNPF*
Line S05823 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07894  M03S05823.pfm63   ---|          CON    OLD,2RPE,/3PE/OLD  *OLD*
Line S05824 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07895  M03S05824.pfm63   ---|          CON    SAC,2RPL,/3PL/CHG  *SETPFAC*
Line S05825 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07896  M03S05825.pfm63   ---|          CON    SAL,2RPL,/3PL/CHG  *SETPFAL*
Line S05826 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07897  M03S05826.pfm63   ---|          CON    UGT,2RPE,/3PE/UGT  *UGET*
Line S05827 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07898  M03S05827.pfm63   ---|          CON    URE,2RPF,/3PF/URE  *UREPLAC*
Line S05828 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07899  M03S05828.pfm63   ---|          CON    DIS,2RPK,/3PK/DIS  *DROPIDS*
Line S05829 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07900  M03S05829.pfm63   ---|          CON    DPF,2RPK,/3PK/DPF  *DELPFC*
Line S00709 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07901  M02S00709.pfm63   ---|          CON    OLD,2RPF,/3PF/OLD  *OLD*
Line S00710 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07902  M03S00710.pfm63   ---|          CON    SAC,2RPM,/3PM/CHG  *SETPFAC*
Line S00711 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07903  M03S00711.pfm63   ---|          CON    SAL,2RPM,/3PM/CHG  *SETPFAL*
Line S00054 Modification History
M01 (Added by) ns2414
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07904  M02S00054.pfm63   ---|          CON    SAC,2RPN,/3PN/CHG  *SETPFAC*
Line S00055 Modification History
M01 (Added by) ns2414
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07905  M02S00055.pfm63   ---|          CON    SAL,2RPN,/3PN/CHG  *SETPFAL*
Line S00712 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07906  M02S00712.pfm63   ---|          CON    UGT,2RPF,/3PF/UGT  *UGET*
Line S00713 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07907  M02S00713.pfm63   ---|          CON    URE,2RPG,/3PG/URE  *UREPLAC*
Line S00714 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07908  M03S00714.pfm63   ---|          CON    DIS,2RPL,/3PL/DIS  *DROPIDS*
Line S00715 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
M03 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07909  M03S00715.pfm63   ---|          CON    DPF,2RPL,/3PL/DPF  *DELPFC*
Line S00056 Modification History
M01 (Added by) ns2414
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07910  M02S00056.pfm63   ---|          CON    DIS,2RPM,/3PM/DIS  *DROPIDS*
Line S00057 Modification History
M01 (Added by) ns2414
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07911  M02S00057.pfm63   ---|          CON    DPF,2RPM,/3PM/DPF  *DELPFC*
Line S05830 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07912  M02S05830.pfm63   ---|          CON    0,0,0              *RPFSTAT*
Line S00148 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07913  M02S00148.pfm63   ---|          CON    SPF,2RPR,/3PR/SPF  *STAGEPF*
Line S05831 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07914  M02S05831.pfm63   ---|
Line S05832 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
07915  M02S05832.pfm63   ---|          LOC    *O
07916  M01S05833.pfm     +++|          SPACE  4,10
07917  M01S05834.pfm     +++|*         CHECK FOR ZERO-LEVEL OVERLAY OVERFLOW.
07918  M01S05835.pfm     +++|
07919  M01S05836.pfm     +++|
07920  M01S05837.pfm     +++|          ERRNG  *-OVL0-ZBFL *0BF* OVERFLOW
07921  M01S05838.pfm     +++|          ERRNG  *-OVL0-ZDFL *0DF* OVERFLOW
07922  M01S05839.pfm     +++|          TITLE  REQUEST PREPROCESSORS.
07923  M01S05840.pfm     +++| APP      SPACE  4,10
07924  M01S05841.pfm     +++|***       APP - *APPEND* REQUEST.
07925  M01S05842.pfm     +++|
07926  M01S05843.pfm     +++|
07927  M01S05844.pfm     +++| APP      BSS    0           ENTRY
07928  M01S05845.pfm     +++|
07929  M01S05846.pfm     +++|*         INITIALIZE FOR CATALOG SEARCH.
07930  M01S05847.pfm     +++|
07931  M01S05848.pfm     +++|          LDD    LF          CHECK FILE SIZE
07932  M01S05849.pfm     +++|          NJN    APP1        IF FILE TOO LARGE FOR HOLE
07933  M01S05850.pfm     +++|          ISTORE SCHI,(UJN SCH13)  SET FOR LARGEST HOLE SEARCH
07934  M01S05851.pfm     +++|          ISTORE SCHF,(ZJN SCH12)  SET FOR HOLE SEARCH
07935  M01S05852.pfm     +++| APP1     RJM    SCH         SEARCH CATALOG
07936  M01S05853.pfm     +++|          ZJN    APP2        IF FILE FOUND
07937  M01S05854.pfm     +++|          ERROR  FNF         *(FILE NAME) NOT FOUND.*
07938  M01S05855.pfm     +++|
07939  M01S05856.pfm     +++|*         COMPUTE LENGTH OF NEW FILE.
07940  M01S05857.pfm     +++|
07941  M01S05858.pfm     +++| APP2     LDD    LF          SAVE LENGTH OF APPENDAGE
07942  M01S05859.pfm     +++|          STM    APLF
07943  M01S05860.pfm     +++|          LDD    LF+1
07944  M01S05861.pfm     +++|          STM    APLF+1
07945  M01S05862.pfm     +++|          LDM    FCLF+1,CI   CALCULATE TOTAL LENGTH OF NEW FILE
07946  M01S05863.pfm     +++|          RAD    LF+1
07947  M01S05864.pfm     +++|          SHN    -14
07948  M01S05865.pfm     +++|          ADM    FCLF,CI
07949  M01S05866.pfm     +++|          RAD    LF
07950  M01S05867.pfm     +++|          SHN    -5
07951  M01S05868.pfm     +++|          NJN    APP3        IF FILE LENGTH .GE. 131072D SECTORS
07952  M01S05869.pfm     +++|          LDD    LF          CHECK FOR .GT. 131069D SECTORS
07953  M01S05870.pfm     +++|          SHN    14
07954  M01S05871.pfm     +++|          ADD    LF+1
07955  M01S05872.pfm     +++|          ADN    2           ADD SYSTEM AND EOI SECTORS
07956  M01S05873.pfm     +++|          MJN    APP3        IF FILE .GT. 131069D SECTORS
07957  M01S05874.pfm     +++|          LDM    MXFS
07958  M01S05875.pfm     +++|          ZJN    APP4        IF NO LIMIT ON FILE SIZE
07959  M01S05876.pfm     +++|          LDD    LF
07960  M01S05877.pfm     +++|          SHN    -3
07961  M01S05878.pfm     +++|          NJN    APP3        IF FILE SIZE .GT. MAXIMUM FILE SIZE LIMIT
07962  M01S05879.pfm     +++|          LDD    LF
07963  M01S05880.pfm     +++|          SHN    14
07964  M01S05881.pfm     +++|          ADD    LF+1
07965  M01S05882.pfm     +++|          ADN    7
07966  M01S05883.pfm     +++|          SHN    -3
07967  M01S05884.pfm     +++|          SBM    MXFS
07968  M01S05885.pfm     +++|          MJN    APP4        IF FILE NOT TOO LARGE
07969  M01S05886.pfm     +++|          ZJN    APP4        IF FILE NOT TOO LARGE
07970  M01S05887.pfm     +++| APP3     LDN    STAB        SET TO ABORT AFTER PERMISSION CHECK
07971  M01S05888.pfm     +++|          RAM    STAT
07972  M01S05889.pfm     +++| APP4     LDM    FCBT,CI     SAVE ADDRESS OF OLD FILE
07973  M01S05890.pfm     +++|          STM    APTK
07974  M01S05891.pfm     +++|          LDM    FCBS,CI
07975  M01S05892.pfm     +++|          STM    APSC
07976  M01S05893.pfm     +++|          LDD    LF
07977  M01S05894.pfm     +++|          ZJN    APP6        IF NEW FILE SHORT ENOUGH TO PLUG HOLE
07978  M01S05895.pfm     +++|          ISTORE SCHF,(PSN)  TURN OFF HOLE SEARCH
07979  M01S05896.pfm     +++|          UJN    APP7        CLEAR HOLE POINTERS
07980  M01S05897.pfm     +++|
07981  M01S05898.pfm     +++| APP6     LDD    HL          CHECK SIZE OF HOLE FOUND
07982  M01S05899.pfm     +++|          ZJN    APP8        IF NO HOLE FOUND
07983  M01S05900.pfm     +++|          SBD    LF+1
07984  M01S05901.pfm     +++|          ZJN    APP9        IF EXACT FIT, BYPASS HOLE SEARCH
Line S05902 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2273
Seq #  *Modification Id* Act 
----------------------------+
07985  M02S05902.ns2273  ---|          SBN    MNHS
07986  M01S00002.ns2273  +++|          SBK    MNHS
07987  M01S05903.pfm     +++|          PJN    APP8        IF HOLE LONG ENOUGH FOR FILE AND NEW HOLE
07988  M01S05904.pfm     +++| APP7     LDN    0           CLEAR HOLE POINTERS
07989  M01S05905.pfm     +++|          STD    HP
07990  M01S05906.pfm     +++|          STD    HB
07991  M01S05907.pfm     +++|          STD    HL
07992  M01S05908.pfm     +++| APP8     ISTORE SCHI,(ZJN SCH17)  TURN ON SEARCH FOR EXACT FIT
07993  M01S05909.pfm     +++|          RJM    SCH         CONTINUE SEARCH FOR BEST HOLE
07994  M01S05910.pfm     +++|          NJN    APP9        IF DUPLICATE FILE NOT FOUND
07995  M01S05911.pfm     +++|          ERROR  RPE,,,EQ    *EQXXX,DNYY, REPLACE ERROR.*
07996  M01S05912.pfm     +++|
07997  M01S05913.pfm     +++|*         SEARCH PERMITS.
07998  M01S05914.pfm     +++|
07999  M01S05915.pfm     +++| APP9     RJM    CCT         CHECK FOR CPU TRANSFER
08000  M01S05916.pfm     +++|          RJM    SDB         SWAP DISK BUFFERS (IF NECESSARY)
08001  M01S05917.pfm     +++|          RJM    SSP         SET STATISTICAL PARAMETERS
08002  M01S05918.pfm     +++|          LDN    0           CLEAR PERMIT POINTERS
08003  M01S05919.pfm     +++|          STD    PB
08004  M01S05920.pfm     +++|          STD    PP
08005  M01S05921.pfm     +++|
08006  M01S05922.pfm     +++|*         READ PERMITS.
08007  M01S05923.pfm     +++|
08008  M01S05924.pfm     +++|          LDN    PTAP        CHECK FOR APPEND PERMISSION
08009  M01S05925.pfm     +++|          RJM    CPI
08010  M01S00001.pfm62   +++|          RJM    VFI         VERIFY THAT FILE IS INDIRECT ACCESS
08011  M01S05926.pfm     +++|          RJM    DSR         DETERMINE IF FILE STAGING REQUIRED
08012  M01S05927.pfm     +++|          LJM    LCO         CALL OVERLAY
08013  M01S05928.pfm     +++| ATT      SPACE  4,10
08014  M01S05929.pfm     +++|***       ATT - *ATTACH* REQUEST.
08015  M01S05930.pfm     +++|
08016  M01S05931.pfm     +++|
08017  M01S05932.pfm     +++| ATT      BSS    0           ENTRY
08018  M01S05933.pfm     +++|          RJM    SCH         SEARCH CATALOG
08019  M01S05934.pfm     +++|          ZJN    ATT2        IF FILE FOUND
08020  M01S05935.pfm     +++|          ERROR  FNF         *(FILE NAME) NOT FOUND.*
08021  M01S05936.pfm     +++|
08022  M01S05937.pfm     +++|*         VERIFY PERMISSIONS FOR ACCESS.
08023  M01S05938.pfm     +++|
08024  M01S05939.pfm     +++| ATT2     LDM    MODE
08025  M01S05940.pfm     +++|          RJM    CPI
08026  M01S05941.pfm     +++|          LDM    FCBS,CI     CHECK FILE TYPE
08027  M01S05942.pfm     +++|          SHN    21-13
08028  M01S05943.pfm     +++|          MJN    ATT3        IF DIRECT ACCESS FILE
Line S05944 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08029  M02S05944.242l642 ---|          ERROR  FIA,CH      *(FILE NAME) IS INDIRECT ACCESS.*
08030  M01S00716.242l642 +++|          ERROR  FIA         *(FILE NAME) IS INDIRECT ACCESS.*
08031  M01S05945.pfm     +++|
08032  M01S05946.pfm     +++| ATT3     RJM    DSR         DETERMINE IF FILE STAGING IS REQUIRED
08033  M01S05947.pfm     +++|          LJM    LCO         CALL OVERLAY
08034  M01S05948.pfm     +++| CHG      SPACE  4,10
08035  M01S05949.pfm     +++|***       CHG - *CHANGE* REQUEST.
08036  M01S05950.pfm     +++|
08037  M01S05951.pfm     +++|
08038  M01S05952.pfm     +++| CHG      BSS    0           ENTRY
08039  M01S05953.pfm     +++|          LJM    LCO         CALL OVERLAY
08040  M01S05954.pfm     +++| DDS      SPACE  4,10
08041  M01S05955.pfm     +++|***       DDS - *DROPDS* REQUEST.
08042  M01S05956.pfm     +++|
08043  M01S05957.pfm     +++|
08044  M01S05958.pfm     +++| DDS      BSS    0           ENTRY
Line S05959 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08045  M02S05959.ns2414  ---|          RJM    RVC         READ AND VERIFY CATALOG ENTRY
Line S00058 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08046  M02S00058.253l688 ---|          RJM    RSC         READ CATALOG ENTRY, SEARCH IF NEEDED
Line S05960 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08047  M02S05960.253l688 ---|          LJM    LCO         LOAD OVERLAY
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 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08059  M02S00160.pfm63   ---|          SHN    1
Line S00161 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08060  M02S00161.pfm63   ---|          ADD    CC
Line S00162 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08061  M02S00162.pfm63   ---|          STD    T1
Line S00163 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08062  M02S00163.pfm63   ---|          LDM    TCMD+2,T1   SET REQUEST PROCESSOR ADDRESS
08063  M01S00001.pfm63   +++|          LDC    PRDI        SET REQUEST PROCESSOR ADDRESS
08064  M01S00164.253l688 +++|          STM    LCOA
Line S00165 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08065  M02S00165.pfm63   ---|          LDM    TCMD+1,T1   SET OVERLAY INTO *EXECUTE* MACRO
08066  M01S00002.pfm63   +++|          LDC    OVDI        SET OVERLAY INTO *EXECUTE* MACRO
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  M01S05961.pfm     +++| DIS      SPACE  4,10
08072  M01S05962.pfm     +++|***       DIS - *DROPIDS* REQUEST.
08073  M01S05963.pfm     +++|
08074  M01S05964.pfm     +++|
08075  M01S05965.pfm     +++| DIS      BSS    0           ENTRY
Line S05966 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08076  M02S05966.ns2414  ---|          RJM    RVC         READ AND VERIFY CATALOG ENTRY
Line S05967 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08077  M02S05967.ns2414  ---|          LDD    CI          SET CURRENT PFN FOR NEW PFC ENTRY
Line S05968 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08078  M02S05968.ns2414  ---|          ADN    FCFN
Line S05969 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08079  M02S05969.ns2414  ---|          RJM    SFN
Line S05970 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08080  M02S05970.ns2414  ---|          LDM    FCBS,CI
Line S05971 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08081  M02S05971.ns2414  ---|          SHN    21-13
Line S05972 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08082  M02S05972.ns2414  ---|          PJN    DIS1        IF INDIRECT ACCESS FILE
Line S05973 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08083  M02S05973.ns2414  ---|          ERROR  FDA         * (FILE NAME) IS DIRECT ACCESS.*
Line S05974 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08084  M02S05974.ns2414  ---|
Line S05975 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08085  M02S05975.ns2414  ---| DIS1     LDM    FCAA,CI
Line S05976 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08086  M02S05976.ns2414  ---|          ADM    FCAA+1,CI
Line S05977 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08087  M02S05977.ns2414  ---|          ADM    FCAA+2,CI
Line S05978 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08088  M02S05978.ns2414  ---|          NJN    DIS2        IF ALTERNATE STORAGE COPY OF FILE PRESENT
Line S05979 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08089  M02S05979.ns2414  ---|          ERROR  AIO         *ALTERNATE IMAGE OBSOLETE.*
Line S05980 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08090  M02S05980.ns2414  ---|
Line S05981 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08091  M02S05981.ns2414  ---| DIS2     LDM    FCAF,CI
Line S05982 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08092  M02S05982.ns2414  ---|          LPN    AFPDEM+AFPSEM
Line S05983 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08093  M02S05983.ns2414  ---|          ZJN    DIS3        IF NO ALTERNATE STORAGE ERRORS
Line S05984 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08094  M02S05984.ns2414  ---|          ERROR  ASE         * ALTERNATE STORAGE ERROR.*
Line S05985 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08095  M02S05985.ns2414  ---|
Line S05986 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08096  M02S05986.ns2414  ---| DIS3     LDM    FCBT,CI
Line S05987 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08097  M02S05987.ns2414  ---|          NJN    DIS4        IF FILE DISK RESIDENT
Line S05988 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08098  M02S05988.ns2414  ---|          ERROR  FND         * FILE NOT DISK RESIDENT.*
Line S05989 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08099  M02S05989.ns2414  ---|
Line S05990 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08100  M02S05990.ns2414  ---| DIS4     ISTORE SCHH,(UJN SCH16)  SEARCH ONLY DAPF HOLES
Line S00059 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08101  M02S00059.253l688 ---|          RJM    RSC         READ CATALOG ENTRY, SEARCH IF NEEDED
Line S00060 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08102  M02S00060.253l688 ---|          ISTORE SCHH,(UJN SCH16)  SEARCH ONLY DAPF HOLES
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 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08114  M02S00181.pfm63   ---|          SHN    1
Line S00182 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08115  M02S00182.pfm63   ---|          ADD    CC
Line S00183 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08116  M02S00183.pfm63   ---|          STD    T1
Line S00184 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08117  M02S00184.pfm63   ---|          LDM    TCMD+2,T1   SET REQUEST PROCESSOR ADDRESS
08118  M01S00003.pfm63   +++|          LDC    PRDD        SET REQUEST PROCESSOR ADDRESS
08119  M01S00185.253l688 +++|          STM    LCOA
Line S00186 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm63
Seq #  *Modification Id* Act 
----------------------------+
08120  M02S00186.pfm63   ---|          LDM    TCMD+1,T1   SET OVERLAY INTO *EXECUTE* MACRO
08121  M01S00004.pfm63   +++|          LDC    OVDD        SET OVERLAY INTO *EXECUTE* MACRO
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  M01S05991.pfm     +++|          RJM    SHL         SEARCH CATALOG FOR DAPF HOLE
Line S05992 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08127  M02S05992.ns2414  ---|          ZJN    DIS5        IF DELETED DAPF HOLE NOT FOUND
Line S00061 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08128  M02S00061.253l688 ---|          ZJN    DIS1        IF DELETED DAPF HOLE NOT FOUND
08129  M01S00191.253l688 +++|          ZJN    DIS3        IF DELETED DAPF HOLE NOT FOUND
08130  M01S05993.pfm     +++|          LDN    0           CLEAR DAPF HOLE INDICATOR
08131  M01S05994.pfm     +++|          STM    FCBS,HP
08132  M01S05995.pfm     +++|          STM    FCBT,HP     CLEAR TRACK
Line S05996 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08133  M02S05996.ns2414  ---|
Line S05997 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08134  M02S05997.ns2414  ---|*         SETUP FOR FORMATION OF NEW CATALOG ENTRY.
Line S05998 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08135  M02S05998.ns2414  ---|
Line S05999 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08136  M02S05999.ns2414  ---| DIS5     STM    FCUI,CI     MARK OLD ENTRY AS HOLE (CLEAR UI)
Line S06000 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08137  M02S06000.ns2414  ---|          STM    FCUI+1,CI
Line S06001 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08138  M02S06001.ns2414  ---|          STM    SDAB        SET DISK ADDRESS ZERO FOR NEW ENTRY
Line S06002 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08139  M02S06002.ns2414  ---|          STM    SDAC
Line S06003 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08140  M02S06003.ns2414  ---|          LDM    FCLF,CI     SET FILE LENGTH IN (LF - LF+1)
Line S06004 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08141  M02S06004.ns2414  ---|          STD    LF
Line S06005 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08142  M02S06005.ns2414  ---|          LDM    FCLF+1,CI
Line S06006 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08143  M02S06006.ns2414  ---|          STD    LF+1
Line S06007 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08144  M02S06007.ns2414  ---|          STD    HL          SIMULATE EXACT FIT HOLE, IF HOLE FOUND
Line S06008 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
08145  M02S06008.ns2414  ---|          LJM    LCO         CALL OVERLAY
Line S00062 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08146  M02S00062.253l688 ---| DIS1     LJM    LCO         CALL OVERLAY
08147  M01S00192.253l688 +++| DIS3     LJM    LCO         CALL OVERLAY
08148  M01S06009.pfm     +++| DEF      SPACE  4,10
08149  M01S06010.pfm     +++|***       DEF - *DEFINE* REQUEST.
08150  M01S06011.pfm     +++|
08151  M01S06012.pfm     +++|
08152  M01S06013.pfm     +++| DEF      BSS    0           ENTRY
08153  M01S06014.pfm     +++|          ISTORE SCHF,(ZJN SCH12)  SET TO SEARCH FOR HOLES
08154  M01S06015.pfm     +++|          ISTORE SCHH,(UJN SCH16)  SEARCH FOR DIRECT ACCESS HOLES ONLY
08155  M01S06016.pfm     +++|          LDC    BFMS        SET ADDRESS OF CATALOG SEARCH BUFFER
08156  M01S06017.pfm     +++|          STM    ISPA
08157  M01S06018.pfm     +++| DEF1     LDD    FS          SET EST ORDINAL
08158  M01S06019.pfm     +++|          STD    T5
08159  M01S06020.pfm     +++|          RJM    IRA         INITIALIZE RANDOM ACCESS PROCESSORS
08160  M01S06021.pfm     +++|          LDM    SDAB        SET FIRST SECTOR
08161  M01S06022.pfm     +++|          STD    T6
08162  M01S06023.pfm     +++|          RJM    SEI         DETERMINE FILE SECTOR SIZE
08163  M01S06024.pfm     +++|          LDD    T2          PRESERVE SECTOR SIZE
08164  M01S06025.pfm     +++|          STD    LF
08165  M01S06026.pfm     +++|          LDD    T3
08166  M01S06027.pfm     +++|          STD    LF+1
08167  M01S06028.pfm     +++|          LDD    CC
08168  M01S06029.pfm     +++|          LMN    CCSD
08169  M01S06030.pfm     +++|          ZJN    DEF2        IF *SETDA* REQUEST
08170  M01S06031.pfm     +++|          RJM    SCH         SEARCH CATALOG
08171  M01S06032.pfm     +++|          NJN    DEF3        IF NO FILE FOUND
08172  M01S06033.pfm     +++|          ERROR  FAP         *(FILE NAME) ALREADY PERMANENT.*
08173  M01S06034.pfm     +++|
08174  M01S06035.pfm     +++|*         PROCESS *SETDA* REQUEST.
08175  M01S06036.pfm     +++|
08176  M01S06037.pfm     +++| DEF2     RJM    RVC         READ AND VERIFY CATALOG ENTRY
08177  M01S06038.pfm     +++| DEF3     LJM    LCO         CALL OVERLAY
08178  M01S06039.pfm     +++| DPF      SPACE  4,10
Proceed to Part 7
cdc/nos2.source/opl.opl871/deck/pfm.006.txt ยท Last modified: by 127.0.0.1