95 Modifications

Seq #  *Modification Id* Act 
----------------------------+
06095  M01S00536.242l642 +++|
06096  M01S00537.242l642 +++| PDS      SUBR               ENTRY/EXIT
06097  M01S00538.242l642 +++|          STD    T0          SAVE DEVICE STATUS
06098  M01S00539.242l642 +++|          SBN    2
06099  M01S00540.242l642 +++|          MJN    PDS4        IF DEVICE CAN BE ACCESSED, RETURN
06100  M01S00541.242l642 +++|          NJN    PDS1        IF PF UTILITY NOT ACTIVE
06101  M01S00542.242l642 +++|          LDN    PFUE        SET ROLLOUT EVENT
06102  M01S00543.242l642 +++|          STM    ERRC
06103  M01S00544.242l642 +++|          LDK    UIRT        SET ROLLOUT TIME
06104  M01S00545.242l642 +++|          STM    ERRD
06105  M01S00546.242l642 +++|          ERROR  PFA,CH,IW,,EC2  * PF UTILITY ACTIVE.*
06106  M01S00547.242l642 +++|
06107  M01S00548.242l642 +++| PDS1     LDM    FERT
06108  M01S00549.242l642 +++|          NJN    PDS2        IF REAL-TIME PROCESSING SET
06109  M01S00550.242l642 +++|          LDM    SSYS
06110  M01S00551.242l642 +++|          NJN    PDS3        IF A SUBSYSTEM
06111  M01S00552.242l642 +++|
06112  M01S00553.242l642 +++|*         SUSPEND THE JOB OR RETURN STATUS INDICATING DELAY TO CALLER.
06113  M01S00554.242l642 +++|
06114  M01S00555.242l642 +++| PDS2     LDD    T0
06115  M01S00556.242l642 +++|          SBN    4
06116  M01S00557.242l642 +++|          ZJN    PDS3        IF *ERROR IDLE* IS SET
06117  M01S00558.242l642 +++|          ERROR  WID,CH,IW,FS,EC6  * WAITING - INACCESSIBLE DEVICE.*
06118  M01S00559.242l642 +++|
06119  M01S00560.242l642 +++|*         TERMINATE THE REQUEST.
06120  M01S00561.242l642 +++|
06121  M01S00562.242l642 +++| PDS3     ERROR  PFN,CH,IW   * DEVICE UNAVAILABLE.*
06122  M01S04399.pfm     +++| SFT      SPACE  4,20
06123  M01S04400.pfm     +++|**        SFT - SET FNT/FST INFORMATION.
06124  M01S04401.pfm     +++|*
06125  M01S04402.pfm     +++|*         ENTRY  (FNTA) = FNT ADDRESS IN NFL.
06126  M01S04403.pfm     +++|*                (LFAL) = LOCAL FILE ACCESS LEVEL.
06127  M01S04404.pfm     +++|*                (FN - FN+4) = LOCAL FILE NAME.
06128  M01S04405.pfm     +++|*                (FS) = FILE EST ORDINAL.
06129  M01S04406.pfm     +++|*
06130  M01S04407.pfm     +++|*         EXIT   (FA) = FNT ADDRESS.
06131  M01S04408.pfm     +++|*                (FS - FS+4) = FST ENTRY.
06132  M01S04409.pfm     +++|*                (FN - FN+4) = FNT ENTRY.
06133  M01S04410.pfm     +++|*                (RTKE) = RESERVED TRACK EST ORDINAL.
06134  M01S04411.pfm     +++|*                (RTKT) = RESERVED TRACK.
06135  M01S04412.pfm     +++|*                FNT/FST REWRITTEN TO CENTRAL MEMORY.
06136  M01S04413.pfm     +++|*
06137  M01S04414.pfm     +++|*         USES   FA, CM - CM+4, FN - FN+4, FS - FS+4.
06138  M01S04415.pfm     +++|*
06139  M01S04416.pfm     +++|*         MACROS MONITOR, NFA.
06140  M01S04417.pfm     +++|
06141  M01S04418.pfm     +++|
06142  M01S04419.pfm     +++| SFT      SUBR               ENTRY/EXIT
06143  M01S04420.pfm     +++|          LDC    LOFT*100    SET FILE TYPE
06144  M01S04421.pfm     +++|*         LDC    PMFT*100    (*ASSIGNPF* WITH *SRSY* SPECIAL REQUEST)
06145  M01S04422.pfm     +++| SFTA     EQU    *-1
06146  M01S04423.pfm     +++|          RAD    FN+4
06147  M01S04424.pfm     +++|          LDM    FNTA        SET FST ADDRESS
06148  M01S04425.pfm     +++|          STD    FA
06149  M01S04426.pfm     +++|          NFA    FA,R        SET FILE ACCESS LEVEL
06150  M01S04427.pfm     +++|          ADN    FUTL
06151  M01S04428.pfm     +++|          CRD    CM
06152  M01S04429.pfm     +++|          LDM    LFAL
06153  M01S04430.pfm     +++|          STD    CM+2
06154  M01S04431.pfm     +++|          NFA    FA,R        UPDATE FNT INFORMATION
06155  M01S04432.pfm     +++|          ADK    FNTL
06156  M01S04433.pfm     +++|          CWD    FN
06157  M01S04434.pfm     +++|          ADN    FUTL-FNTL
06158  M01S04435.pfm     +++|          CWD    CM
06159  M01S04436.pfm     +++|          LDN    ZERL        REQUEST TRACK FOR FILE
06160  M01S04437.pfm     +++|          CRD    CM
06161  M01S04438.pfm     +++|          LDD    FS          SET EST ORDINAL
06162  M01S04439.pfm     +++|          STD    CM+1
06163  M01S04440.pfm     +++|          STM    RTKE        SET RESERVED TRACK EST ORDINAL
06164  M01S04441.pfm     +++|          MONITOR RTCM
06165  M01S04442.pfm     +++|          LDD    CM+4        SET FST
06166  M01S04443.pfm     +++|          STM    RTKT        SET RESERVED TRACK
06167  M01S04444.pfm     +++|          STD    FS+1
06168  M01S04445.pfm     +++|          STD    FS+2
06169  M01S04446.pfm     +++|          LDN    FSMS
06170  M01S04447.pfm     +++|          STD    FS+3
06171  M01S04448.pfm     +++|          LDN    4
06172  M01S04449.pfm     +++|          STD    FS+4
06173  M01S04450.pfm     +++|          NFA    FA,R        REWRITE FNT/FST
06174  M01S04451.pfm     +++|          ADK    FNTL
06175  M01S04452.pfm     +++|          CWD    FN
06176  M01S04453.pfm     +++|          ADN    FSTL-FNTL
06177  M01S04454.pfm     +++|          CWD    FS
06178  M01S04455.pfm     +++|          LJM    SFTX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
06179  M02S04456.242l642 ---| WSE      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
06180  M02S04457.242l642 ---|**        WSE - WRITE ERROR PROCESSOR.

Seq #  *Modification Id* Act 
----------------------------+
06181  M02S04458.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06182  M02S04459.242l642 ---|*         WSE IS CALLED TO PROCESS MASS STORAGE ERRORS.

Seq #  *Modification Id* Act 
----------------------------+
06183  M02S04460.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06184  M02S04461.242l642 ---|*         MACROS ERROR.

Seq #  *Modification Id* Act 
----------------------------+
06185  M02S04462.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
06186  M02S04463.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
06187  M02S04464.242l642 ---| WSE      ERROR  MSE,,IW,FS  *EQXXX,DNYY, MASS STORAGE ERROR.*
06188  M01S04465.pfm     +++|          SPACE  4,10
06189  M01S04466.pfm     +++| WCS$     EQU    0           SELECT CONSECUTIVE SECTOR WRITE
06190  M01S04467.pfm     +++|          SPACE  4,10
06191  M01S04468.pfm     +++|*         COMMON DECKS.
06192  M01S04469.pfm     +++|
06193  M01S04470.pfm     +++|
06194  M01S04471.pfm     +++|*CALL     COMPWEI
06195  M01S04472.pfm     +++|*CALL     COMPWSS
06196  M01S04473.pfm     +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
06197  M02S04474.242l642 ---| LOCF     EQU    *+5         OVERLAY ADDRESS FOR *0DF*.

Seq #  *Modification Id* Act 
----------------------------+
06198  M02S04475.242l642 ---|          SPACE  4,10
06199  M01S04476.pfm     +++|*         CHECK FOR OVERFLOW.
06200  M01S04477.pfm     +++|
06201  M01S04478.pfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
06202  M02S04479.242l642 ---|          ERRNG  BFMS-LOCF-ZDFL  CHECK LENGTH OF *0DF*

Seq #  *Modification Id* Act 
----------------------------+
06203  M02S04480.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
06204  M02S04481.242l642 ---|
06205  M01S04482.pfm     +++|          OVERFLOW  OVLD,EPFW  OVERFLOW INTO ERROR PROCESSING AREA
06206  M01S04483.pfm     +++|          OVERLAY  (CATALOG/PERMIT SEARCH AND RESIDENT.),OVLA
06207  M01S04484.pfm     +++|          SPACE  4,25
06208  M01S04485.pfm     +++|**        THIS OVERLAY CONTAINS PRELIMINARY PROCESSING FOR
06209  M01S04486.pfm     +++|*         MOST REQUESTS, INCLUDING CATALOG AND PERMIT SEARCH.
06210  M01S04487.pfm     +++|*         IT ALSO CONTAINS RESIDENT SUBROUTINES.
06211  M01S04488.pfm     +++|*
06212  M01S04489.pfm     +++|*         ENTRY  (CC) = COMMAND CODE.
06213  M01S04490.pfm     +++|
06214  M01S04491.pfm     +++|
06215  M01S04492.pfm     +++| OVL      BSS    0           ENTRY
06216  M01S04493.pfm     +++|          LJM    IRP         INITIAL REQUEST PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
06217  M02S04494.253l688 ---| EOI      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
06218  M02S04495.253l688 ---|**        EOI - EOI SECTOR BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
06219  M02S04496.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
06220  M02S04497.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
06221  M02S04498.253l688 ---| EOIA     CON    0,0         END OF INFORMATION DISK ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
06222  M02S04499.253l688 ---| EOIB     CON    0,0         END OF INFORMATION CONTROL BYTES

Seq #  *Modification Id* Act 
----------------------------+
06223  M02S00037.pfm54   ---| HNG      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
06224  M02S00038.pfm54   ---|**        HNG - HANG PP.

Seq #  *Modification Id* Act 
----------------------------+
06225  M02S00039.pfm54   ---|

Seq #  *Modification Id* Act 
----------------------------+
06226  M02S00040.pfm54   ---|

Seq #  *Modification Id* Act 
----------------------------+
06227  M02S00041.pfm54   ---| HNG      CON    0           ENTRY (RETURN ADDRESS)

Seq #  *Modification Id* Act 
----------------------------+
06228  M02S00042.pfm54   ---| HNG1     MONITOR  HNGM      HANG

Seq #  *Modification Id* Act 
----------------------------+
06229  M02S00043.pfm54   ---|          UJN    HNG1        CONTINUE TO HANG
06230  M01S04500.pfm     +++| MSR      SPACE  4,10
06231  M01S04501.pfm     +++|**        MSR - *COMPRNS* MASS STORAGE READ ERROR PROCESSOR.
06232  M01S04502.pfm     +++|*
06233  M01S04503.pfm     +++|*         ENTRY  FROM *RNS*.
06234  M01S00563.242l642 +++|*                (MSRA) = ADDRESS OF ERROR PROCESSOR IN CALLER
06235  M01S00564.242l642 +++|*                         OF *RNS*.
06236  M01S04504.pfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
06237  M02S04505.242l642 ---|*         EXIT   TO ADDRESS SPECIFIED IN *TMSE*.

Seq #  *Modification Id* Act 
----------------------------+
06238  M02S04506.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06239  M02S04507.242l642 ---|*         USES   T2.
06240  M01S00565.242l642 +++|*         CALLS  PCC, PCE, PTE.
06241  M01S04508.pfm     +++|
06242  M01S04509.pfm     +++|
06243  M01S04510.pfm     +++| MSR      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
06244  M02S04511.242l642 ---|          LDN    0

Seq #  *Modification Id* Act 
----------------------------+
06245  M02S04512.242l642 ---|          STD    T2

Seq #  *Modification Id* Act 
----------------------------+
06246  M02S04513.242l642 ---| MSR1     LDM    TMSE,T2

Seq #  *Modification Id* Act 
----------------------------+
06247  M02S04514.242l642 ---|          ZJN    *           IF END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
06248  M02S04515.242l642 ---|          LMM    RNS

Seq #  *Modification Id* Act 
----------------------------+
06249  M02S04516.242l642 ---|          ZJN    MSR3        IF CALLING ROUTINE

Seq #  *Modification Id* Act 
----------------------------+
06250  M02S04517.242l642 ---| MSR2     LDN    2

Seq #  *Modification Id* Act 
----------------------------+
06251  M02S04518.242l642 ---|          RAD    T2

Seq #  *Modification Id* Act 
----------------------------+
06252  M02S04519.242l642 ---|          UJN    MSR1        CHECK NEXT TABLE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06253  M02S04520.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
06254  M02S04521.242l642 ---| MSR3     LDM    TMSE+1,T2   ERROR PROCESSOR ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
06255  M02S04522.242l642 ---|          STD    T2

Seq #  *Modification Id* Act 
----------------------------+
06256  M02S04523.242l642 ---|          LJM    0,T2        EXIT TO ERROR PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
06257  M02S04524.242l642 ---| TMSE     SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
06258  M02S04525.242l642 ---|**        TABLE OF *RNS* MASS STORAGE READ ERROR PROCESSORS.

Seq #  *Modification Id* Act 
----------------------------+
06259  M02S04526.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06260  M02S04527.242l642 ---|*         WORD 0 = *RNS* RETURN ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
06261  M02S04528.242l642 ---|*         WORD 1 = ERROR PROCESSING ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
06262  M02S04529.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
06263  M02S04530.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
06264  M02S04531.242l642 ---| TMSE     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
06265  M02S04532.242l642 ---|          CON    .MSE1,PCE   CATALOG READ

Seq #  *Modification Id* Act 
----------------------------+
06266  M02S04533.242l642 ---|          CON    .MSE2,PCC   CATALOG READ FOR CHANGE

Seq #  *Modification Id* Act 
----------------------------+
06267  M02S04534.242l642 ---|          CON    .MSE3,PTE   DEVICE TO DEVICE TRANSFER

Seq #  *Modification Id* Act 
----------------------------+
06268  M02S04535.242l642 ---|          CON    .MSE4,PAE   APPEND DEVICE TRANSFER

Seq #  *Modification Id* Act 
----------------------------+
06269  M02S04536.242l642 ---|          CON    0
06270  M01S00566.242l642 +++|          RJM    PCE         PROCESS CATALOG READ ERROR
06271  M01S00567.242l642 +++|*         RJM    PCC         (CATALOG READ ERROR FOR *CHANGE* REQUEST)
06272  M01S00568.242l642 +++|*         RJM    PTE         (READ ERROR FOR DEVICE TO DEVICE TRANSFER)
06273  M01S00569.242l642 +++| MSRA     EQU    *-1         ERROR PROCESSOR ADDRESS
06274  M01S00570.242l642 +++|          UJN    MSRX        RETURN
06275  M01S04537.pfm     +++|          SPACE  4,10
06276  M01S04538.pfm     +++|*         RESIDENT COMMON DECKS.
06277  M01S04539.pfm     +++|
06278  M01S04540.pfm     +++|
06279  M01S04541.pfm     +++|*CALL     COMPSNT
06280  M01S04542.pfm     +++|*CALL     COMPRNS
06281  M01S04543.pfm     +++|          SPACE  4,10
06282  M01S04544.pfm     +++| LOCG     EQU    *+5         LOAD ADDRESS FOR DEVICE/DEVICE TRANSFER

Seq #  *Modification Id* Act 
----------------------------+
06283  M02S04545.242l642 ---| LCO      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
06284  M02S04546.242l642 ---|**        LCO - LOAD COMMAND OVERLAY.

Seq #  *Modification Id* Act 
----------------------------+
06285  M02S04547.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06286  M02S04548.242l642 ---|*         EXIT   TO COMMAND OVERLAY.

Seq #  *Modification Id* Act 
----------------------------+
06287  M02S04549.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06288  M02S04550.242l642 ---|*         MACROS ENDMS, EXECUTE.

Seq #  *Modification Id* Act 
----------------------------+
06289  M02S04551.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
06290  M02S04552.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
06291  M02S04553.242l642 ---| LCO      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06292  M02S04554.242l642 ---|          ENDMS              RELEASE MASTER DEVICE CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
06293  M02S04555.242l642 ---|          EXECUTE  3PD       LOAD CATALOG/PERMIT UPDATE ROUTINES

Seq #  *Modification Id* Act 
----------------------------+
06294  M02S04556.242l642 ---|          LDC    *           SET COMMAND PROCESSING ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
06295  M02S04557.242l642 ---| LCOA     EQU    *-1         (PROCESSING ADDRESS WITHIN OVERLAY)

Seq #  *Modification Id* Act 
----------------------------+
06296  M02S04558.242l642 ---|          STD    P0

Seq #  *Modification Id* Act 
----------------------------+
06297  M02S04559.242l642 ---| LCOB     EQU    *+1         (LAST TWO CHARACTERS OF OVERLAY NAME)

Seq #  *Modification Id* Act 
----------------------------+
06298  M02S04560.242l642 ---|          EXECUTE  3PE       *GET*/*OLD*/*UGET*

Seq #  *Modification Id* Act 
----------------------------+
06299  M02S04561.242l642 ---|          EXECUTE  3PF,=     *SAVE*/*REPLACE*/*UREPLAC*

Seq #  *Modification Id* Act 
----------------------------+
06300  M02S04562.242l642 ---|          EXECUTE  3PG,=     *APPEND*

Seq #  *Modification Id* Act 
----------------------------+
06301  M02S04563.242l642 ---|          EXECUTE  3PH,=     *ATTACH*/*UATTACH*

Seq #  *Modification Id* Act 
----------------------------+
06302  M02S04564.242l642 ---|          EXECUTE  3PJ,=     *DEFINE*/*SETDA*

Seq #  *Modification Id* Act 
----------------------------+
06303  M02S04565.242l642 ---|          EXECUTE  3PK,=    *PERMIT*/*PURGE*/*DROPDS*/*DROPIDS*/*DELPFC*

Seq #  *Modification Id* Act 
----------------------------+
06304  M02S04566.242l642 ---|          EXECUTE  3PL,=     *CHANGE*/*SETPFAC*/*SETPFAL*

Seq #  *Modification Id* Act 
----------------------------+
06305  M02S04567.242l642 ---|          EXECUTE  3PM,=     *SETASA*/*SETAF*

Seq #  *Modification Id* Act 
----------------------------+
06306  M02S04568.242l642 ---|          EXECUTE  3PP,=     STAGE FILE FROM ALTERNATE STORAGE
06307  M01S04569.pfm     +++|          TITLE  RESIDENT SUBROUTINES.
06308  M01S04570.pfm     +++| CAI      SPACE  4,15
06309  M01S04571.pfm     +++|**        CAI - CLEAR ALLOCATION INTERLOCK.
06310  M01S04572.pfm     +++|*
06311  M01S04573.pfm     +++|*         ENTRY  (T5)= PERMANENT FILE EST ORDINAL.
06312  M01S04574.pfm     +++|*                (AILK) = TRACK FOR ALLOCATION INTERLOCK.
06313  M01S04575.pfm     +++|*
06314  M01S04576.pfm     +++|*         EXIT   ALLOCATION INTERLOCK CLEARED.
06315  M01S04577.pfm     +++|*
06316  M01S04578.pfm     +++|*         USES   T5.
06317  M01S04579.pfm     +++|*
06318  M01S04580.pfm     +++|*         CALLS  CTI.
06319  M01S04581.pfm     +++|
06320  M01S04582.pfm     +++|
06321  M01S04583.pfm     +++| CAI      SUBR               ENTRY/EXIT
06322  M01S04584.pfm     +++|          LDC    4000        SET CHECKPOINT VIA *STBM*
06323  M01S04585.pfm     +++|          RAD    T5
06324  M01S04586.pfm     +++|          LDM    AILK
06325  M01S04587.pfm     +++|          RJM    CTI         CLEAR TRACK INTERLOCK
06326  M01S04588.pfm     +++|          LDD    T5          RESTORE EST ORDINAL
06327  M01S04589.pfm     +++|          LPC    777
06328  M01S04590.pfm     +++|          STD    T5
06329  M01S04591.pfm     +++|          LDN    0           CLEAR INTERLOCK FLAG
06330  M01S04592.pfm     +++|          STM    AILK
06331  M01S04593.pfm     +++|          UJN    CAIX        RETURN
06332  M01S04594.pfm     +++| CSA      SPACE  4,15
06333  M01S04595.pfm     +++|**        CSA - COMPUTE SECTOR ADDRESS.
06334  M01S04596.pfm     +++|*
06335  M01S04597.pfm     +++|*         ENTRY  (RI - RI+1) = RANDOM INDEX OF PERMIT SECTOR.
06336  M01S04598.pfm     +++|*                (DVLW - DVLW+4) = DEVICE LAYOUT WORD OF MST.
06337  M01S04599.pfm     +++|*                PROPER DRIVER LOADED.
06338  M01S04600.pfm     +++|*
06339  M01S04601.pfm     +++|*         EXIT   (T6) = TRACK OF RANDOM SECTOR.
06340  M01S04602.pfm     +++|*                (T7) = SECTOR OF RANDOM SECTOR.
06341  M01S04603.pfm     +++|*
06342  M01S04604.pfm     +++|*         USES   T6 - T7, RI - RI+1.
06343  M01S04605.pfm     +++|*
06344  M01S04606.pfm     +++|*         CALLS  CRA.
06345  M01S04607.pfm     +++|*
06346  M01S04608.pfm     +++|*         MACROS ERROR.
06347  M01S04609.pfm     +++|
06348  M01S04610.pfm     +++|
06349  M01S04611.pfm     +++| CSA      SUBR               ENTRY/EXIT
06350  M01S04612.pfm     +++|          LDM    DVLW+2      SET FIRST TRACK
06351  M01S04613.pfm     +++|          STD    T6
06352  M01S04614.pfm     +++|          RJM    CRA         CONVERT RANDOM ADDRESS
06353  M01S04615.pfm     +++|          PJN    CSAX        IF RANDOM ADDRESS OK
06354  M01S04616.pfm     +++|          ERROR  RIN,,,EQ    *EQXXX,DNYY, RANDOM INDEX ERROR.*
06355  M01S04617.pfm     +++| DPR      SPACE  4,15
06356  M01S04618.pfm     +++|**        DPR - DELAY PRIOR TO RETRY.
06357  M01S04619.pfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
06358  M02S04620.pfm36   ---|*         DELAY 1/4 SECOND.
06359  M01S00001.pfm36   +++|*         DELAY 100 MILLISECONDS.
06360  M01S04621.pfm     +++|*
06361  M01S04622.pfm     +++|*         EXIT   TO *ERR* IF *ORET* SET.
06362  M01S04623.pfm     +++|*
06363  M01S04624.pfm     +++|*         USES   T0.
06364  M01S04625.pfm     +++|*
06365  M01S04626.pfm     +++|*         MACROS DELAY, ERROR, PAUSE.
06366  M01S04627.pfm     +++|
06367  M01S04628.pfm     +++|
06368  M01S04629.pfm     +++| DPR      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
06369  M02S04630.pfm36   ---|          LDC    3000
06370  M01S00002.pfm36   +++|          LDC    1400
06371  M01S04631.pfm     +++|          STD    T0
06372  M01S04632.pfm     +++| DPR1     DELAY
06373  M01S04633.pfm     +++|          PAUSE
06374  M01S04634.pfm     +++|          LDD    CM+1
06375  M01S04635.pfm     +++|          LMN    ORET
06376  M01S04636.pfm     +++|          ZJN    DPR2        IF *ORET* SET
06377  M01S04637.pfm     +++|          SOD    T0
06378  M01S04638.pfm     +++|          PJN    DPR1        IF MORE DELAY REQUIRED
06379  M01S04639.pfm     +++|          UJN    DPRX        RETURN
06380  M01S04640.pfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
06381  M02S04641.ns2415  ---| DPR2     ERROR  ABT         * PFM ABORTED.*
06382  M01S00044.ns2415  +++| DPR2     ERROR  ABT,,,T5    *EQXXX,DNYY, PFM ABORTED.*
06383  M01S04642.pfm     +++| DTK      SPACE  4,15
06384  M01S04643.pfm     +++|**        DTK - DROP TRACKS.
06385  M01S04644.pfm     +++|*
06386  M01S04645.pfm     +++|*         ENTRY  (A) = LAST SECTOR WRITTEN.
06387  M01S04646.pfm     +++|*                (T6) = ADDRESS OF LAST TRACK (NOT RELEASED).
06388  M01S04647.pfm     +++|*                (T5) = EST ORDINAL.
06389  M01S04648.pfm     +++|*
06390  M01S04649.pfm     +++|*         EXIT   LAST SECTOR WRITTEN UPDATED IN TRT.
06391  M01S04650.pfm     +++|*
06392  M01S04651.pfm     +++|*         USES   CM - CM+4.
06393  M01S04652.pfm     +++|
06394  M01S04653.pfm     +++|
06395  M01S04654.pfm     +++| DTK      SUBR               ENTRY/EXIT
06396  M01S04655.pfm     +++|          STD    CM+3
06397  M01S04656.pfm     +++|          LDD    T6
06398  M01S04657.pfm     +++|          LPC    3777
06399  M01S04658.pfm     +++|          STD    CM+2
06400  M01S04659.pfm     +++|          LDD    T5
06401  M01S04660.pfm     +++|          STD    CM+1
06402  M01S04661.pfm     +++|          MONITOR DTKM
06403  M01S04662.pfm     +++|          UJN    DTKX        RETURN
06404  M01S04663.pfm     +++| ITC      SPACE  4,15
06405  M01S04664.pfm     +++|**        ITC - INTERLOCK TRACK CHAIN.
06406  M01S04665.pfm     +++|*
06407  M01S04666.pfm     +++|*         ENTRY  (A) = TRACK CHAIN TO BE INTERLOCKED.
06408  M01S04667.pfm     +++|*                (T5) = EST ORDINAL.
06409  M01S04668.pfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
06410  M02S04669.ns2415  ---|*         EXIT   (T6) = TRACK INTERLOCKED.
06411  M01S00045.ns2415  +++|*         EXIT   (A) = 0 IF TRACK INTERLOCKED.
06412  M01S00046.ns2415  +++|*                (A) = 2 IF TRACK NOT RESERVED.
06413  M01S00047.ns2415  +++|*                (T6) = TRACK.

Seq #  *Modification Id* Act 
----------------------------+
06414  M02S04670.pfm36   ---|*                RECALL *PFM* IF INTERLOCK NOT AVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
06415  M02S04671.pfm36   ---|*                 AFTER TWO TRIES.
06416  M01S04672.pfm     +++|*
06417  M01S04673.pfm     +++|*         CALLS  DPR, STI.
06418  M01S04674.pfm     +++|
06419  M01S04675.pfm     +++|
06420  M01S00048.ns2415  +++| ITC2     LMN    1           RETURN STATUS VALUE
06421  M01S00049.ns2415  +++|
06422  M01S04676.pfm     +++| ITC      SUBR               ENTRY/EXIT
06423  M01S04677.pfm     +++|          STD    T6

Seq #  *Modification Id* Act 
----------------------------+
06424  M02S04678.pfm36   ---|          RJM    STI         TRY TO INTERLOCK TRACK

Seq #  *Modification Id* Act 
----------------------------+
06425  M02S04679.pfm36   ---|          ZJN    ITCX        IF TRACK INTERLOCKED
06426  M01S00003.pfm36   +++| ITC1     RJM    STI         TRY TO INTERLOCK TRACK

Seq #  *Modification Id* Act 
----------------------------+
06427  M02S00004.ns2415  ---|          ZJN    ITCX        IF INTERLOCK SUCCESSFUL
06428  M01S00050.ns2415  +++|          LMN    1
06429  M01S00051.ns2415  +++|          NJN    ITC2        IF INTERLOCK WORKED OR TRACK NOT RESERVED
06430  M01S04680.pfm     +++|          RJM    DPR         DELAY PRIOR TO RETRY

Seq #  *Modification Id* Act 
----------------------------+
06431  M02S04681.pfm36   ---|          RJM    STI         TRY TO INTERLOCK TRACK

Seq #  *Modification Id* Act 
----------------------------+
06432  M02S04682.pfm36   ---|          ZJN    ITCX        IF TRACK INTERLOCKED

Seq #  *Modification Id* Act 
----------------------------+
06433  M02S04683.pfm36   ---|          EXIT   INA,CH,,,EC4 * INTERLOCK NOT AVAILABLE.*
06434  M01S00005.pfm36   +++|          UJN    ITC1        TRY AGAIN

Seq #  *Modification Id* Act 
----------------------------+
06435  M02S04684.242l642 ---| ITF      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
06436  M02S04685.242l642 ---|**        ITF - INTERLOCK FILE.

Seq #  *Modification Id* Act 
----------------------------+
06437  M02S04686.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06438  M02S04687.242l642 ---|*         ENTRY  (A) = TRACK CHAIN TO BE INTERLOCKED.

Seq #  *Modification Id* Act 
----------------------------+
06439  M02S04688.242l642 ---|*                (T5) = EST ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
06440  M02S04689.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06441  M02S04690.242l642 ---|*         EXIT   (T6) = TRACK.

Seq #  *Modification Id* Act 
----------------------------+
06442  M02S04691.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06443  M02S04692.242l642 ---|*         USES   T6.

Seq #  *Modification Id* Act 
----------------------------+
06444  M02S04693.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06445  M02S04694.242l642 ---|*         CALLS  DPR, STI.

Seq #  *Modification Id* Act 
----------------------------+
06446  M02S04695.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
06447  M02S04696.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
06448  M02S04697.242l642 ---| ITF      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
06449  M02S04698.242l642 ---|          STD    T6

Seq #  *Modification Id* Act 
----------------------------+
06450  M02S04699.242l642 ---| ITF1     RJM    STI         TRY TO INTERLOCK TRACK

Seq #  *Modification Id* Act 
----------------------------+
06451  M02S04700.242l642 ---|          ZJN    ITFX        IF TRACK INTERLOCKED

Seq #  *Modification Id* Act 
----------------------------+
06452  M02S04701.242l642 ---|          RJM    DPR         DELAY PRIOR TO RETRY

Seq #  *Modification Id* Act 
----------------------------+
06453  M02S04702.242l642 ---|          UJN    ITF1        RETRY

Seq #  *Modification Id* Act 
----------------------------+
06454  M02S04703.242l642 ---| RMD      SPACE  4,10
06455  M01S00571.242l642 +++| RMD      SPACE  4,15
06456  M01S04704.pfm     +++|**        RMD - RESET TO MASTER DEVICE.
06457  M01S04705.pfm     +++|*
06458  M01S04706.pfm     +++|*         ENTRY  (EQ) = MASTER DEVICE EST ORDINAL.
06459  M01S04707.pfm     +++|*
06460  M01S04708.pfm     +++|*         EXIT   (T5) = MASTER DEVICE EST ORDINAL.
06461  M01S04709.pfm     +++|*
06462  M01S04710.pfm     +++|*         USES   T5.
06463  M01S00572.242l642 +++|*
06464  M01S00573.242l642 +++|*         CALLS  PDV.
06465  M01S04711.pfm     +++|*
06466  M01S04712.pfm     +++|*         MACROS SETMS.
06467  M01S04713.pfm     +++|
06468  M01S04714.pfm     +++|
06469  M01S04715.pfm     +++| RMD      SUBR               ENTRY/EXIT
06470  M01S04716.pfm     +++|          LDD    EQ
06471  M01S04717.pfm     +++|          STD    T5

Seq #  *Modification Id* Act 
----------------------------+
06472  M02S04718.242l642 ---|          SETMS  READ

Seq #  *Modification Id* Act 
----------------------------+
06473  M02S00574.ns2645  ---|          SETMS  IO
06474  M01S00001.ns2645  +++|          SETMS  IO,NS
06475  M01S00575.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
06476  M01S04719.pfm     +++|          UJN    RMDX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
06477  M02S04720.253l688 ---| RTK      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
06478  M02S04721.253l688 ---|**        RTK - REQUEST LINKED TRACK.

Seq #  *Modification Id* Act 
----------------------------+
06479  M02S04722.253l688 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06480  M02S04723.253l688 ---|*         ENTRY  (T6) = ADDRESS OF LAST TRACK IN CHAIN.

Seq #  *Modification Id* Act 
----------------------------+
06481  M02S04724.253l688 ---|*                (T5) = MASTER DEVICE EST ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
06482  M02S04725.253l688 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06483  M02S04726.253l688 ---|*         EXIT   (A) = 0 IF NO TRACK AVAILABLE.

Seq #  *Modification Id* Act 
----------------------------+
06484  M02S04727.253l688 ---|*                (A) = TRACK IF AVAILABLE.

Seq #  *Modification Id* Act 
----------------------------+
06485  M02S04728.253l688 ---|*                NEW TRACK PREWRITTEN WITH EOI-S.

Seq #  *Modification Id* Act 
----------------------------+
06486  M02S04729.253l688 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06487  M02S04730.253l688 ---|*         USES   T6, T7, CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
06488  M02S04731.253l688 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06489  M03S04732.253l688 ---|*         CALLS  WDS.

Seq #  *Modification Id* Act 
----------------------------+
06490  M02S00576.253l688 ---|*         CALLS  PDV, WDS.

Seq #  *Modification Id* Act 
----------------------------+
06491  M02S04733.253l688 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06492  M02S04734.253l688 ---|*         MACROS ENDMS, MONITOR, SETMS.

Seq #  *Modification Id* Act 
----------------------------+
06493  M02S04735.253l688 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06494  M02S04736.253l688 ---|*         NOTES  THE DRIVER AUTOMATICALLY WRITES THE LAST SECTOR

Seq #  *Modification Id* Act 
----------------------------+
06495  M02S04737.253l688 ---|*                OF A TRACK WITH *WLSF*, EVEN IF *WCSF* IS SPECIFIED.

Seq #  *Modification Id* Act 
----------------------------+
06496  M02S04738.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
06497  M02S04739.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
06498  M02S04740.253l688 ---| RTK      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
06499  M02S04741.253l688 ---|          LDN    ZERL

Seq #  *Modification Id* Act 
----------------------------+
06500  M02S04742.253l688 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
06501  M02S04743.253l688 ---|          LDD    T5          SET EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
06502  M02S04744.253l688 ---|          STD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
06503  M02S04745.253l688 ---|          LDD    T6          SET PRESENT LAST TRACK ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
06504  M02S04746.253l688 ---|          STD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
06505  M02S04747.253l688 ---|          MONITOR RTCM

Seq #  *Modification Id* Act 
----------------------------+
06506  M02S04748.253l688 ---|          LDD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
06507  M02S04749.253l688 ---|          ZJN    RTKX        IF NO TRACK ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
06508  M02S04750.253l688 ---|          STD    T6          PREWRITE NEW TRACK

Seq #  *Modification Id* Act 
----------------------------+
06509  M02S04751.253l688 ---|          LDN    0

Seq #  *Modification Id* Act 
----------------------------+
06510  M02S04752.253l688 ---|          STD    T7

Seq #  *Modification Id* Act 
----------------------------+
06511  M03S04753.253l688 ---|          SETMS  WRITE

Seq #  *Modification Id* Act 
----------------------------+
06512  M02S00577.253l688 ---|          SETMS  IO

Seq #  *Modification Id* Act 
----------------------------+
06513  M02S00578.253l688 ---|          RJM    PDV         PROCESS DEVICE STATUS

Seq #  *Modification Id* Act 
----------------------------+
06514  M02S04754.253l688 ---| RTK1     LDC    EOIB+WCSF

Seq #  *Modification Id* Act 
----------------------------+
06515  M02S04755.253l688 ---|          RJM    WDS

Seq #  *Modification Id* Act 
----------------------------+
06516  M02S04756.253l688 ---|          AOD    T7

Seq #  *Modification Id* Act 
----------------------------+
06517  M02S04757.253l688 ---|          LMM    SLM

Seq #  *Modification Id* Act 
----------------------------+
06518  M02S04758.253l688 ---|          NJN    RTK1        IF NOT LAST SECTOR

Seq #  *Modification Id* Act 
----------------------------+
06519  M02S04759.253l688 ---|          ENDMS

Seq #  *Modification Id* Act 
----------------------------+
06520  M02S04760.253l688 ---|          LDD    T6

Seq #  *Modification Id* Act 
----------------------------+
06521  M03S04761.253l688 ---|          LJM    RTKX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
06522  M03S04762.253l688 ---| WBI      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
06523  M02S00579.253l688 ---|          UJP    RTKX        RETURN
06524  M01S00580.242l642 +++| UCE      SPACE  4,20
06525  M01S00581.242l642 +++|**        UCE - UPDATE CATALOG ENTRY.
06526  M01S00582.242l642 +++|*
06527  M01S00583.242l642 +++|*         ENTRY  (CB) = POINTER TO BUFFER LOCATION.
06528  M01S00584.242l642 +++|*                (CI) = POINTER TO CATALOG ENTRY IN BUFFER.
06529  M01S00585.242l642 +++|*                MASTER DEVICE CHANNEL RESERVED.
06530  M01S00586.242l642 +++|*                (PWRF) = *PFM* RESTART FLAGS FOR RECALL.
06531  M01S00587.242l642 +++|*                (UCEA) SET WITH *STMI+CI* IF FCMD, FCUD
06532  M01S00588.242l642 +++|*                       ARE TO BE UPDATED.
06533  M01S00589.242l642 +++|*
06534  M01S00590.242l642 +++|*         EXIT   (PWRF) = FLAGS SET FOR ACCESS AND PERMIT COUNTS
06535  M01S00591.242l642 +++|*                         UPDATED.
06536  M01S00592.242l642 +++|*                FCAC, FCAD, FCMD, FCUD UPDATED.
06537  M01S00593.242l642 +++|*                CATALOG ENTRY REWRITTEN.
06538  M01S00594.242l642 +++|*
06539  M01S00595.242l642 +++|*         USES   CM - CM+4.
06540  M01S00596.242l642 +++|*
06541  M01S00597.242l642 +++|*         CALLS  WBI.
06542  M01S00598.242l642 +++|
06543  M01S00599.242l642 +++|
06544  M01S00600.242l642 +++| UCE      SUBR               ENTRY/EXIT
06545  M01S00601.242l642 +++|
06546  M01S00602.242l642 +++|*         UPDATE DATES.
06547  M01S00603.242l642 +++|
06548  M01S00604.242l642 +++|          LDN    PDTL        READ PACKED DATE AND TIME
06549  M01S00605.242l642 +++|          CRD    CM
06550  M01S00606.242l642 +++|          LDN    3
06551  M01S00607.242l642 +++|          STD    CM
06552  M01S00608.242l642 +++|          RAD    CI
06553  M01S00609.242l642 +++| UCE1     LDM    CM+2-1,CM
06554  M01S00610.242l642 +++| UCEA     UJN    UCE2        READ ACCESS - BYPASS FCMD, FCUD UPDATES
06555  M01S00611.242l642 +++|*         UJN    UCE3        (*UATTACH*/M=R - BYPASS DATE/TIME UPDATE)
06556  M01S00612.242l642 +++|*         STM    FCUD-1,CI   (UPDATE UTILITY CONTROL DATE/TIME)
06557  M01S00613.242l642 +++|          CON    FCUD-1
06558  M01S00614.242l642 +++| UCEB     STM    FCMD-1,CI   UPDATE MODIFICATION DATE
06559  M01S00615.242l642 +++|*         UJN    UCE3        (*UATTACH* - BYPASS FCMD, FCAD UPDATE)
06560  M01S00616.242l642 +++| UCE2     STM    FCAD-1,CI   UPDATE ACCESS DATE
06561  M01S00617.242l642 +++| UCE3     SOD    CI
06562  M01S00618.242l642 +++|          SOD    CM
06563  M01S00619.242l642 +++|          NJN    UCE1        IF UPDATE NOT COMPLETE
06564  M01S00620.242l642 +++|
06565  M01S00621.242l642 +++|*         UPDATE ACCESS COUNT.
06566  M01S00622.242l642 +++|
06567  M01S00623.242l642 +++|          LDM    PWRF        RESTART FLAGS
06568  M01S00624.242l642 +++|          LPK    RFAC
06569  M01S00625.242l642 +++|          NJN    UCE4        IF ACCESS COUNT UPDATED
06570  M01S00626.242l642 +++| UCEC     AOM    FCAC+1,CI   ADVANCE ACCESS COUNT
06571  M01S00627.242l642 +++|*         UJN    UCE4        (*UATTACH* - BYPASS ACCESS COUNT UPDATE)
06572  M01S00628.242l642 +++|          SHN    -14
06573  M01S00629.242l642 +++|          RAM    FCAC,CI
06574  M01S00630.242l642 +++|
06575  M01S00631.242l642 +++|*         REWRITE CATALOG ENTRY.
06576  M01S00632.242l642 +++|
06577  M01S00633.242l642 +++| UCE4     LDD    CB          REWRITE CATALOG
06578  M01S00634.242l642 +++|          RJM    WBI
06579  M01S00635.242l642 +++|          LDM    PWRF        RESTART FLAGS
06580  M01S00636.242l642 +++|          SCN    RFAC+RFPC
06581  M01S00637.242l642 +++|          ADK    RFAC+RFPC   SET ACCESS AND PERMIT COUNTS UPDATED
06582  M01S00638.242l642 +++|          STM    PWRF
06583  M01S00639.242l642 +++|          UJP    UCEX        RETURN
06584  M01S00640.242l642 +++|
06585  M01S00641.242l642 +++|*         CHECK RANGE ON GENERATED JUMPS.
06586  M01S00642.242l642 +++|
06587  M01S00643.242l642 +++|          ERRNG  37-UCE3+UCEB
06588  M01S00644.242l642 +++|          ERRNG  37-UCE4+UCEC
06589  M01S00645.242l642 +++| WBI      SPACE  4,20
06590  M01S04763.pfm     +++|**        WBI - WRITE BUFFER IN PLACE.
06591  M01S04764.pfm     +++|*
06592  M01S04765.pfm     +++|*         ENTRY  (A) = BUFFER LOCATION.
06593  M01S04766.pfm     +++|*                (T5) = MASTER DEVICE EST ORDINAL.
06594  M01S00646.242l642 +++|*                (STAT) = *STNS* BIT SET IF NO JOB SUSPENSION ALLOWED.
06595  M01S04767.pfm     +++|*                ADDRESS SET IN 2 LOCATIONS PRECEEDING BUFFER.
06596  M01S04768.pfm     +++|*                LINKAGE SET IN BUFFER.
06597  M01S04769.pfm     +++|*
06598  M01S04770.pfm     +++|*         EXIT   SECTOR WRITTEN.
06599  M01S00647.242l642 +++|*                TO *ERR* TO PROCESS MASS STORAGE ERROR.
06600  M01S04771.pfm     +++|*
06601  M01S04772.pfm     +++|*         USES   T3, T6, T7.
06602  M01S04773.pfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
06603  M02S04774.242l642 ---|*         CALLS  WDS.
06604  M01S00648.242l642 +++|*         CALLS  PDV, PES, WDS.
06605  M01S04775.pfm     +++|*
06606  M01S04776.pfm     +++|*         MACROS ERROR, SETMS.
06607  M01S04777.pfm     +++|
06608  M01S04778.pfm     +++|
06609  M01S04779.pfm     +++| WBI      SUBR               ENTRY/EXIT
06610  M01S04780.pfm     +++|          STD    T3          SAVE BUFFER ADRRESS
06611  M01S04781.pfm     +++|          LDM    -2,T3
06612  M01S04782.pfm     +++|          STD    T6
06613  M01S04783.pfm     +++|          LDM    -1,T3
06614  M01S04784.pfm     +++|          STD    T7

Seq #  *Modification Id* Act 
----------------------------+
06615  M02S04785.242l642 ---|          SETMS  WRITE,RW

Seq #  *Modification Id* Act 
----------------------------+
06616  M02S00649.ns2645  ---|          SETMS  IO,RW
06617  M01S00002.ns2645  +++|          SETMS  IO,(RW,NS)
06618  M01S00650.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
06619  M01S04786.pfm     +++|          LDD    T3
06620  M01S04787.pfm     +++|          LMK    WLSF        WRITE LAST SECTOR
06621  M01S04788.pfm     +++|          RJM    WDS
06622  M01S04789.pfm     +++|          PJN    WBIX        IF NO ERRORS
06623  M01S00651.242l642 +++|          RJM    PES         PROCESS ERROR STATUS
06624  M01S00652.242l642 +++|          LDM    STAT
06625  M01S00653.242l642 +++|          LPK    STNS
06626  M01S00654.242l642 +++|          NJN    WBI1        IF JOB SUSPENSION INHIBITED
06627  M01S00655.242l642 +++|          LDM    RDCT        DRIVER STATUS
06628  M01S00656.242l642 +++|          SHN    21-13
06629  M01S00657.242l642 +++|          PJN    WBI1        IF DATA TRANSFERRED
06630  M01S04790.pfm     +++|          ERROR  MSE,CH,,T5  *EQXXX,DNYY, MASS STORAGE ERROR.*
06631  M01S00658.242l642 +++|
06632  M01S00659.242l642 +++|*         REQUEST ERROR IDLE BE SET WHEN CATALOG OR PERMIT FILE
06633  M01S00660.242l642 +++|*         IS NOT INTACT.
06634  M01S00661.242l642 +++|
06635  M01S00662.242l642 +++| WBI1     ERROR  MSE,CH,,T5,,EI  *EQXXX,DNYY, MASS STORAGE ERROR.*
06636  M01S04791.pfm     +++|          SPACE  4,10
06637  M01S04792.pfm     +++|*         RESIDENT COMMON DECKS.
06638  M01S04793.pfm     +++|
06639  M01S04794.pfm     +++|
06640  M01S04795.pfm     +++|*CALL     COMPCRA
06641  M01S04796.pfm     +++|*CALL     COMPCTI
06642  M01S04797.pfm     +++|*CALL     COMPIRA
06643  M01S04798.pfm     +++| STI$     SET    0           RETURN CONTROL ON TRACK INTERLOCK REJECT
06644  M01S00052.ns2415  +++| TNR$     SET    0           DO NOT HANG ON *TRACK NOT RESERVED*
06645  M01S04799.pfm     +++|*CALL     COMPSTI
06646  M01S04800.pfm     +++|          SPACE  4,10
06647  M01S04801.pfm     +++| OVLU     EQU    *+5         CATALOG/PERMIT UPDATE OVERLAY LOAD ADDRESS
06648  M01S00663.242l642 +++|          SPACE  4,10
06649  M01S00664.242l642 +++|*         DEFINE THE MAXIMUM LENGTH OF OVERLAYS *3PD*
06650  M01S00665.242l642 +++|*         (CATALOG UPDATE ROUTINES) AND *3PE* (PERMIT
06651  M01S00666.242l642 +++|*         UPDATE ROUTINES) IN SECTORS.
06652  M01S00667.242l642 +++|
06653  M01S00668.242l642 +++|
06654  M01S00669.242l642 +++| OVLL     EQU    3*500B      OVERLAY LENGTH IN SECTORS
06655  M01S00670.242l642 +++|          SPACE  4,10
06656  M01S00671.242l642 +++|*         DEFINE THE LOAD ADDRESS FOR THE COMMAND OVERLAYS.
06657  M01S00672.242l642 +++|
06658  M01S00673.242l642 +++|
06659  M01S00674.242l642 +++| OVLC     EQU    OVLU+OVLL-5 COMMAND CODE LOAD ADDRESS
06660  M01S04802.pfm     +++|          TITLE  PERMIT SEARCH ROUTINES.
06661  M01S04803.pfm     +++| CPI      SPACE  4,25
06662  M01S04804.pfm     +++|**        CPI - CHECK PERMISSION INFORMATION.
06663  M01S04805.pfm     +++|*
06664  M01S04806.pfm     +++|*         *BFMS* IS USED TO READ PERMITS.
06665  M01S04807.pfm     +++|*
06666  M01S04808.pfm     +++|*         ENTRY  (A) = PERMISSION MODE REQUIRED FOR COMMAND.
06667  M01S04809.pfm     +++|*                (CI) = INDEX TO CATALOG ENTRY.
06668  M01S04810.pfm     +++|*                MASTER DEVICE CHANNEL RESERVED.
06669  M01S04811.pfm     +++|*                (PP) = 0.
06670  M01S04812.pfm     +++|*                (PB) = 0.
06671  M01S04813.pfm     +++|*
06672  M01S04814.pfm     +++|*         EXIT   (A) = ACCESS MODE ALLOWED.
06673  M01S04815.pfm     +++|*                TO ERR IF NOT PERMITTED ACCESS.
06674  M01S04816.pfm     +++|*                BUFFER LOADED WITH PERMITS.
06675  M01S04817.pfm     +++|*                (PP) = POINTER TO PERMIT ENTRY.
06676  M01S04818.pfm     +++|*                (PP) = 0 IF PERMIT ENTRY NOT AVAILABLE.
06677  M01S04819.pfm     +++|*                (PB) = ADDRESS OF PERMIT BUFFER.
06678  M01S04820.pfm     +++|*                (PB) = 0 IF NO PERMIT SEARCH POSSIBLE.
06679  M01S04821.pfm     +++|*
06680  M01S04822.pfm     +++|*         USES   P1, PB, PP, T0, T1, RI - RI+1.
06681  M01S04823.pfm     +++|*
06682  M01S04824.pfm     +++|*         CALLS  SPI.
06683  M01S04825.pfm     +++|*
06684  M01S04826.pfm     +++|*         MACROS MONITOR.
06685  M01S04827.pfm     +++|
06686  M01S04828.pfm     +++|
06687  M01S04829.pfm     +++| CPI      SUBR               ENTRY/EXIT
06688  M01S04830.pfm     +++|          LPN    37          SET MODE REQUIRED
06689  M01S04831.pfm     +++|          STD    T1
06690  M01S04832.pfm     +++|          STM    CPIC
06691  M01S04833.pfm     +++|          LDC    SHNI+21     SET SHIFT COUNT FOR MODE REQUIRED
06692  M01S04834.pfm     +++|          SBD    T1
06693  M01S04835.pfm     +++|          STM    CPID
06694  M01S04836.pfm     +++|          LDD    PI
06695  M01S04837.pfm     +++|          ADD    PI+1
06696  M01S04838.pfm     +++|          ZJN    CPIX        IF NOT ALTERNATE CATALOG ACCESS

Seq #  *Modification Id* Act 
----------------------------+
06697  M02S04839.pfm67   ---|          LDM    FCCT,CI     CHECK FILE CATEGORY

Seq #  *Modification Id* Act 
----------------------------+
06698  M02S04840.pfm67   ---|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
06699  M02S04841.pfm67   ---|          LMN    FCPB

Seq #  *Modification Id* Act 
----------------------------+
06700  M02S04842.pfm67   ---|          ZJN    CPI1        IF PUBLIC FILE
06701  M01S04843.pfm     +++|
06702  M01S04844.pfm     +++|*         READ PERMISSION INFORMATION.
06703  M01S04845.pfm     +++|
06704  M01S04846.pfm     +++|          LDC    BFMS        SET PERMIT BUFFER
06705  M01S04847.pfm     +++|          STD    PB
06706  M01S04848.pfm     +++|          LDM    FCRI,CI     SET PERMIT ADDRESS
06707  M01S04849.pfm     +++|          STD    RI
06708  M01S04850.pfm     +++|          LDM    FCRI+1,CI
06709  M01S04851.pfm     +++|          STD    RI+1
06710  M01S04852.pfm     +++|          ADD    RI
06711  M01S04853.pfm     +++|          ZJN    CPI1        IF NO PERMISSION INFORMATION AVAILABLE
06712  M01S04854.pfm     +++|          LDN    IPPA        PF INCREMENT OF PERMIT FILE ACCESS

Seq #  *Modification Id* Act 
----------------------------+
06713  M02S04855.242l642 ---|          RAM    DPPF
06714  M01S00675.242l642 +++|          RAM    AIPF+1
06715  M01S04856.pfm     +++|          RJM    SPI         SEARCH PERMISSION INFORMATION

Seq #  *Modification Id* Act 
----------------------------+
06716  M02S04857.242l642 ---| .PPE1    BSS    0
06717  M01S04858.pfm     +++|
06718  M01S04859.pfm     +++|*         CHECK FILE CATEGORY.
06719  M01S04860.pfm     +++|
06720  M01S04861.pfm     +++| CPI1     LDM    FCAM,CI     SET ACCESS MODE FOR FILE
06721  M01S04862.pfm     +++|          LPN    77
06722  M01S04863.pfm     +++|          STD    P1
06723  M01S04864.pfm     +++|          LDM    FCCT,CI
06724  M01S04865.pfm     +++|          SHN    -6
06725  M01S04866.pfm     +++|          LMK    FCPR
06726  M01S04867.pfm     +++|          NJN    CPI3        IF NOT PRIVATE FILE
06727  M01S04868.pfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
06728  M02S04869.pfm67   ---|*         PRIVATE FILES.
06729  M01S00001.pfm67   +++|*         PRIVATE FILE.
06730  M01S04870.pfm     +++|
06731  M01S04871.pfm     +++|          LDD    PP
06732  M01S04872.pfm     +++|          NJN    CPI5        IF PERMIT FOUND
06733  M01S04873.pfm     +++| CPI2     LDN    PTNU        PROHIBIT ACCESS TO FILE
06734  M01S04874.pfm     +++|          STD    P1
06735  M01S04875.pfm     +++|          UJN    CPI8        PROCESS PERMIT NOT FOUND
06736  M01S04876.pfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
06737  M02S04877.pfm67   ---|*         NON-PRIVATE FILE.
06738  M01S00002.pfm67   +++|*         SEMI-PRIVATE OR PUBLIC FILE.
06739  M01S04878.pfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
06740  M02S04879.pfm67   ---| CPI3     LMN    FCPB&FCPR

Seq #  *Modification Id* Act 
----------------------------+
06741  M02S04880.pfm67   ---|          ZJN    CPI6        IF PUBLIC FILE
06742  M01S00003.pfm67   +++| CPI3     LDM    PFAC
06743  M01S00004.pfm67   +++|          NJN    CPI4        IF CALLER HAS USER NAME IN CPA
06744  M01S00005.pfm67   +++|          STD    PB          PREVENT UPDATE OF PERMIT ENTRY
06745  M01S00006.pfm67   +++|          UJN    CPI6        TREAT AS NONPERMITTED PUBLIC FILE
06746  M01S04881.pfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
06747  M02S04882.pfm67   ---|*         SEMI-PRIVATE FILES.

Seq #  *Modification Id* Act 
----------------------------+
06748  M02S04883.pfm67   ---|

Seq #  *Modification Id* Act 
----------------------------+
06749  M02S04884.pfm67   ---|          LDM    PFAC

Seq #  *Modification Id* Act 
----------------------------+
06750  M02S04885.pfm67   ---|          NJN    CPI4        IF CALLER HAS USER NAME IN CPA

Seq #  *Modification Id* Act 
----------------------------+
06751  M02S04886.pfm67   ---|          STD    PB          PREVENT UPDATE OF PERMIT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06752  M02S04887.pfm67   ---|          UJN    CPI6        TREAT AS PUBLIC FILE

Seq #  *Modification Id* Act 
----------------------------+
06753  M02S04888.pfm67   ---|

Seq #  *Modification Id* Act 
----------------------------+
06754  M02S04889.pfm67   ---| CPI4     LDC    MJNI+CPI6-CPIB  SET SEMI-PRIVATE FILE
06755  M01S00007.pfm67   +++| CPI4     LDC    MJNI+CPI6-CPIB  SET SEMI-PRIVATE OR PUBLIC FILE
06756  M01S04890.pfm     +++|          STM    CPIB
06757  M01S04891.pfm     +++|          LDD    PP          CHECK PERMIT INDEX
06758  M01S04892.pfm     +++|          ZJN    CPI6        IF NO PERMIT FOUND
06759  M01S04893.pfm     +++|
06760  M01S04894.pfm     +++|*         CHECK PERMIT TYPE.
06761  M01S04895.pfm     +++|
06762  M01S04896.pfm     +++| CPI5     LDM    FPMD,PP     CHECK PERMIT TYPE
06763  M01S04897.pfm     +++|          SHN    21-4
06764  M01S04898.pfm     +++| CPIB     MJN    CPI2        IF ACCOUNTING PERMIT

Seq #  *Modification Id* Act 
----------------------------+
06765  M02S04899.pfm67   ---|*         MJN    CPI6        IF ACCOUNTING PERMIT (SEMI-PRIVATE FILE)
06766  M01S00008.pfm67   +++|*         MJN    CPI6        IF ACCOUNTING PERMIT (SEMI-PRIVATE/PUBLIC)
06767  M01S04900.pfm     +++|          SHN    -21+4       SET PERMIT MODE
06768  M01S04901.pfm     +++|          STD    P1
06769  M01S04902.pfm     +++|
06770  M01S04903.pfm     +++|*         CHECK ACCESS MODE.
06771  M01S04904.pfm     +++|
06772  M01S04905.pfm     +++| CPI6     LDD    P1          PERMITTED MODE
06773  M01S04906.pfm     +++|          SBN    PTLM
06774  M01S04907.pfm     +++|          MJN    CPI8        IF LEGAL MODE
06775  M01S04908.pfm     +++| CPI7     ERROR  FNF         *(FILENAME) NOT FOUND.*
06776  M01S04909.pfm     +++|
06777  M01S04910.pfm     +++|*         CHECK FOR MULTI-LEVEL USER NAME ACCESS.
06778  M01S04911.pfm     +++|
06779  M01S04912.pfm     +++| CPI8     LDM    PFPT
06780  M01S04913.pfm     +++|          NJN    CPI10       IF NOT MULTI-LEVEL USER
06781  M01S04914.pfm     +++|          LDC    *           (REQUESTED MODE)
06782  M01S04915.pfm     +++| CPIC     EQU    *-1
06783  M01S04916.pfm     +++|          LMN    PTRD
06784  M01S04917.pfm     +++|          ZJN    CPI9        IF READ MODE REQUESTED
06785  M01S04918.pfm     +++|          LMN    PTEX&PTRD
06786  M01S04919.pfm     +++|          NJN    CPI10       IF MODE OTHER THAN EXECUTE REQUESTED
06787  M01S04920.pfm     +++| CPI9     LDN    PTRD        ALLOW READ MODE ACCESS
06788  M01S04921.pfm     +++|          LJM    CPIX        RETURN
06789  M01S04922.pfm     +++|
06790  M01S04923.pfm     +++|*         CHECK EXPIRATION DATE.
06791  M01S04924.pfm     +++|
06792  M01S04925.pfm     +++| CPI10    LDD    PP
06793  M01S04926.pfm     +++|          ZJN    CPI12       IF NO PERMIT ENTRY
06794  M01S04927.pfm     +++|          LDM    FPMD,PP
06795  M01S04928.pfm     +++|          SHN    21-5
06796  M01S04929.pfm     +++|          PJN    CPI12       IF EXPIRATION DATE NOT PRESENT
06797  M01S04930.pfm     +++|          LDM    FPXD,PP
06798  M01S04931.pfm     +++|          LPN    77
06799  M01S04932.pfm     +++|          STD    CM+3
06800  M01S04933.pfm     +++|          SHN    14
06801  M01S04934.pfm     +++|          LMM    FPXD+1,PP
06802  M01S04935.pfm     +++|          ZJN    CPI12       IF NONEXPIRING PERMIT
06803  M01S04936.pfm     +++|          STD    CM+4
06804  M01S04937.pfm     +++|          LDN    VEDS        VALIDATE EXPIRATION DATE
06805  M01S04938.pfm     +++|          STD    CM+1
06806  M01S04939.pfm     +++|          MONITOR  VSAM
06807  M01S04940.pfm     +++|          LDD    CM+1
06808  M01S04941.pfm     +++|          ZJN    CPI12       IF PERMIT NOT EXPIRED
06809  M01S04942.pfm     +++| CPI11    LJM    CPI7        *(FILENAME) NOT FOUND.*
06810  M01S04943.pfm     +++|
06811  M01S04944.pfm     +++|*         CHECK IF ACCESS MODE PERMITTED.
06812  M01S04945.pfm     +++|
06813  M01S04946.pfm     +++| CPI12    LDM    TMPE,P1
06814  M01S04947.pfm     +++| CPID     SHN    **          (21 - REQUESTED MODE)
06815  M01S04948.pfm     +++|          PJN    CPI11       IF REQUESTED MODE NOT ALLOWED
06816  M01S04949.pfm     +++|          LDD    P1          ALLOW PERMITTED MODE
06817  M01S04950.pfm     +++|          LJM    CPIX        RETURN
06818  M01S04951.pfm     +++|
06819  M01S04952.pfm     +++|*         TEST RANGE OF GENERATED RELATIVE JUMPS.
06820  M01S04953.pfm     +++|
06821  M01S04954.pfm     +++|          ERRNG  37+CPIB-CPI6
06822  M01S04955.pfm     +++|
06823  M01S04956.pfm     +++|
06824  M01S04957.pfm     +++| TMPE     BSS    0           TABLE OF MODE PERMISSION EQUIVALENCES.
06825  M01S04958.pfm     +++|          LOC    0
06826  M01S04959.pfm     +++|
06827  M01S04960.pfm     +++|          CON    MDWR        WRITE
06828  M01S04961.pfm     +++|          CON    MDRD        READ
06829  M01S04962.pfm     +++|          CON    MDAP        APPEND
06830  M01S04963.pfm     +++|          CON    MDEX        EXECUTE
06831  M01S04964.pfm     +++|          CON    MDNU        NEGATE
06832  M01S04965.pfm     +++|          CON    MDMD        MODIFY
06833  M01S04966.pfm     +++|          CON    MDRM        READ/ALLOW MODIFY
06834  M01S04967.pfm     +++|          CON    MDRA        READ/ALLOW EXTEND
06835  M01S04968.pfm     +++|          CON    MDUP        UPDATE
06836  M01S04969.pfm     +++|          CON    MDRU        READ/ALLOW UPDATE
06837  M01S04970.pfm     +++|
06838  M01S04971.pfm     +++|          LOC    *O

Seq #  *Modification Id* Act 
----------------------------+
06839  M02S04972.242l642 ---| PPE      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
06840  M02S04973.242l642 ---|**        PPE - PROCESS PERMIT READ ERROR.

Seq #  *Modification Id* Act 
----------------------------+
06841  M02S04974.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06842  M02S04975.242l642 ---|*         ENTRY  FROM SPI.

Seq #  *Modification Id* Act 
----------------------------+
06843  M02S04976.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06844  M02S04977.242l642 ---|*         EXIT   *FILE NOT FOUND.* ISSUED IF CALLED FROM *CPI*.

Seq #  *Modification Id* Act 
----------------------------+
06845  M02S04978.242l642 ---|*                *MASS STORAGE ERROR.* ISSUED IF CALLED FROM *PERMIT*.

Seq #  *Modification Id* Act 
----------------------------+
06846  M02S04979.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
06847  M02S04980.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
06848  M02S04981.242l642 ---| PPE      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06849  M02S04982.242l642 ---|          LDM    SPI

Seq #  *Modification Id* Act 
----------------------------+
06850  M02S04983.242l642 ---|          LMC    .PPE1

Seq #  *Modification Id* Act 
----------------------------+
06851  M02S04984.242l642 ---|          NJN    PPE1        IF NOT CALLED FROM *CPI*

Seq #  *Modification Id* Act 
----------------------------+
06852  M02S04985.242l642 ---|          ERROR  FNF         *(FILE NAME) NOT FOUND.*

Seq #  *Modification Id* Act 
----------------------------+
06853  M02S04986.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
06854  M02S04987.242l642 ---| PPE1     ERROR  MSE,,,EQ    *EQXXX,DNYY, MASS STORAGE ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
06855  M02S04988.242l642 ---| SPI      SPACE  4,20
06856  M01S00676.242l642 +++| SPI      SPACE  4,25
06857  M01S04989.pfm     +++|**        SPI - SEARCH PERMISSION INFORMATION.
06858  M01S04990.pfm     +++|*
06859  M01S04991.pfm     +++|*         ENTRY  (PB) = BUFFER TO BE SEARCHED.
06860  M01S04992.pfm     +++|*                (PP) = 0.
06861  M01S04993.pfm     +++|*                (EBTK) = END BUFFER TRACK, IF BUFFER IS IN *BFMS*.
06862  M01S04994.pfm     +++|*
06863  M01S04995.pfm     +++|*         EXIT   (PP) = INDEX TO PERMIT ENTRY IF FOUND.
06864  M01S04996.pfm     +++|*                (PP) = 0 IF PERMIT ENTRY NOT FOUND.
06865  M01S04997.pfm     +++|*                (T1) = NEXT AVAILABLE ENTRY IF NOT FOUND AND SHORT PRU.
06866  M01S04998.pfm     +++|*                (EXPC) = NUMBER OF EXPLICIT PERMIT ENTRIES (IF PERMIT
06867  M01S04999.pfm     +++|*                         NOT FOUND).
06868  M01S05000.pfm     +++|*                (RI - RI+1) = RANDOM INDEX OF PERMIT SECTOR.
06869  M01S05001.pfm     +++|*                            (ADVANCED IF SECTOR OVERFLOW)
06870  M01S05002.pfm     +++|*                (STAT) FLAG SET IF *BFMS* REUSED.
06871  M01S05003.pfm     +++|*                BUFFER LOADED WITH PERMITS.
06872  M01S05004.pfm     +++|*
06873  M01S05005.pfm     +++|*         USES   T1, T2, PI - PI+1, RI - RI+1.
06874  M01S05006.pfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
06875  M02S05007.242l642 ---|*         CALLS  CSA, RDS, PPE.
06876  M01S00677.242l642 +++|*         CALLS  CSA, PDV, PES, RDS.
06877  M01S05008.pfm     +++|*
06878  M01S05009.pfm     +++|*         MACROS ERROR, SETMS.
06879  M01S05010.pfm     +++|
06880  M01S05011.pfm     +++|
06881  M01S05012.pfm     +++| SPI      SUBR               ENTRY/EXIT
06882  M01S05013.pfm     +++|          LDN    STPR        INDICATE THAT PERMITS WERE READ
06883  M01S05014.pfm     +++|          RAM    STAT
06884  M01S05015.pfm     +++|          LDM    EBTK        CHECK IF END BUFFER IS IN *BFMS*
06885  M01S05016.pfm     +++|          ZJN    SPI1        IF *BFMS* IS NOT IN USE
06886  M01S05017.pfm     +++|          LDN    STBR        INDICATE THAT *BFMS* HAS BEEN REUSED
06887  M01S05018.pfm     +++|          RAM    STAT
06888  M01S05019.pfm     +++|
06889  M01S05020.pfm     +++|*         READ NEXT SECTOR OF PERMITS.
06890  M01S05021.pfm     +++|
06891  M01S05022.pfm     +++| SPI1     RJM    CSA         COMPUTE RANDOM ADDRESS
06892  M01S05023.pfm     +++|          LDD    T6          SET CURRENT SECTOR POINTERS
06893  M01S05024.pfm     +++|          STM    -2,PB
06894  M01S05025.pfm     +++|          STM    ERRC
06895  M01S05026.pfm     +++|          LDD    T7
06896  M01S05027.pfm     +++|          STM    -1,PB
06897  M01S05028.pfm     +++|          STM    ERRD

Seq #  *Modification Id* Act 
----------------------------+
06898  M02S05029.242l642 ---|          SETMS  READ
06899  M01S00678.242l642 +++|          SETMS  IO
06900  M01S00679.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
06901  M01S05030.pfm     +++|          LDD    PB
06902  M01S05031.pfm     +++|          RJM    RDS         READ SECTOR
06903  M01S05032.pfm     +++|          PJN    SPI2        IF NO READ ERROR

Seq #  *Modification Id* Act 
----------------------------+
06904  M02S05033.242l642 ---|          LJM    PPE         PROCESS PERMIT READ ERROR
06905  M01S00680.242l642 +++|          RJM    PES         PROCESS ERROR STATUS
06906  M01S00681.242l642 +++|          ERROR  MSE,CH,,EQ  *EQXXX,DNYY, MASS STORAGE ERROR.*
06907  M01S05034.pfm     +++|
06908  M01S05035.pfm     +++| SPI2     LDM    1,PB        WORD COUNT IN PERMIT SECTOR

Seq #  *Modification Id* Act 
----------------------------+
06909  M02S05036.ns2649  ---|          ZJN    SPI3        IF ZERO LENGTH SECTOR
06910  M01S00001.ns2649  +++|          SBN    NWPE+NWPH
06911  M01S00002.ns2649  +++|          MJN    SPI3        IF INCORRECT SECTOR LENGTH
06912  M01S05037.pfm     +++|          LPN    NWPE-1
06913  M01S05038.pfm     +++|          ZJN    SPI4        IF INTEGRAL NUMBER OF PERMIT ENTRIES
06914  M01S05039.pfm     +++|          ERRNZ  NWPH-NWPE   HEADER SIZE MUST EQUAL ENTRY SIZE

Seq #  *Modification Id* Act 
----------------------------+
06915  M02S05040.ns2415  ---| SPI3     ERROR  BCS,,,T5    * BAD CATALOG/PERMIT SECTOR.*
06916  M01S00053.ns2415  +++| SPI3     ERROR  BCS,,,T5,,EI  *EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.*
06917  M01S05041.pfm     +++|
06918  M01S05042.pfm     +++| SPI4     LDN    NWPH        ADVANCE WORD COUNT PAST HEADER
06919  M01S05043.pfm     +++|          STD    T2
06920  M01S05044.pfm     +++|          LDD    PB          RESET SEARCH INDEX
06921  M01S05045.pfm     +++|          ADN    NWPH*5+2    SKIP HEADER AND CONTROL BYTES
06922  M01S05046.pfm     +++|          STD    T1
06923  M01S05047.pfm     +++|          UJN    SPI7        CHECK FIRST ENTRY IN SECTOR
06924  M01S05048.pfm     +++|
06925  M01S05049.pfm     +++|*         ADVANCE TO NEXT PERMIT ENTRY.
06926  M01S05050.pfm     +++|
06927  M01S05051.pfm     +++| SPI5     LDM    FPMD,T1
06928  M01S05052.pfm     +++|          SHN    21-4
06929  M01S05053.pfm     +++|          MJN    SPI6        IF ACCOUNTING PERMIT
06930  M01S05054.pfm     +++|          AOM    EXPC        ADVANCE EXPLICIT PERMIT COUNT
06931  M01S05055.pfm     +++| SPI6     LDN    NWPE*5      ADVANCE BUFFER INDEX
06932  M01S05056.pfm     +++|          RAD    T1
06933  M01S05057.pfm     +++|          LDN    NWPE        INCREMENT WORD COUNT
06934  M01S05058.pfm     +++|          RAD    T2
06935  M01S05059.pfm     +++|          LMM    1,PB
06936  M01S05060.pfm     +++|          NJN    SPI7        IF NOT END OF BUFFER
06937  M01S05061.pfm     +++|          UJN    SPI10       END OF BUFFER
06938  M01S05062.pfm     +++|
06939  M01S05063.pfm     +++| SPI7     LDM    PFAC
06940  M01S05064.pfm     +++|          LMM    FPAN,T1     COMPARE USER NAME
06941  M01S05065.pfm     +++|          NJN    SPI5        IF NO MATCH
06942  M01S05066.pfm     +++|          LDM    FPAN+1,T1
06943  M01S05067.pfm     +++|          LMM    PFAC+1
06944  M01S05068.pfm     +++|          NJN    SPI5        IF NO MATCH
06945  M01S05069.pfm     +++|          LDM    FPAN+2,T1
06946  M01S05070.pfm     +++|          LMM    PFAC+2
06947  M01S05071.pfm     +++| SPI8     NJN    SPI5        IF NO MATCH
06948  M01S05072.pfm     +++|          LDM    FPAN+3,T1
06949  M01S05073.pfm     +++|          LMM    PFAC+3
06950  M01S05074.pfm     +++|          SCN    77
06951  M01S05075.pfm     +++|          NJN    SPI8        IF NO MATCH
06952  M01S05076.pfm     +++|          LDD    T1          SET POINTER TO ENTRY
06953  M01S05077.pfm     +++|          STD    PP
06954  M01S05078.pfm     +++| SPI9     LDD    T1          SET HOLE ADDRESS
06955  M01S05079.pfm     +++|          STM    NPHA
06956  M01S05080.pfm     +++|          LJM    SPIX        RETURN
06957  M01S05081.pfm     +++|
06958  M01S05082.pfm     +++| SPI10    LDD    T2          CHECK WORD COUNT OF SECTOR
06959  M01S05083.pfm     +++|          LMD    HN
06960  M01S05084.pfm     +++|          NJN    SPI9        IF END OF PERMITS
06961  M01S05085.pfm     +++|          LDM    FPRI,PB     CHECK FOR LINKED PERMIT BUFFERS
06962  M01S05086.pfm     +++|          STD    RI
06963  M01S05087.pfm     +++|          LDM    FPRI+1,PB
06964  M01S05088.pfm     +++|          STD    RI+1
06965  M01S05089.pfm     +++|          ADD    RI
06966  M01S05090.pfm     +++|          ZJN    SPI9        IF INDEX NOT SET
06967  M01S05091.pfm     +++|          LJM    SPI1        READ NEXT SECTOR
06968  M01S05092.pfm     +++|          SPACE  4,10
06969  M01S05093.pfm     +++| OVL0     EQU    *+5         ZERO-LEVEL OVERLAY LOAD ADDRESS
06970  M01S05094.pfm     +++|          TITLE  CATALOG SEARCH ROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
06971  M02S05095.253l688 ---| CCD      SPACE  4,15
06972  M01S00116.253l688 +++| CCD      SPACE  4,25
06973  M01S05096.pfm     +++|**        CCD - CHECK CATALOG DATA.
06974  M01S05097.pfm     +++|*
06975  M01S05098.pfm     +++|*         CHECK IF CATALOG ENTRY IS THAT OF DESIRED FILE.
06976  M01S05099.pfm     +++|*         IF PASSWORD PRESENT IN CATALOG ENTRY, VERIFY THAT
06977  M01S05100.pfm     +++|*         CORRECT PASSWORD WAS SPECIFIED AND THAT PASSWORD
06978  M01S05101.pfm     +++|*         HAD NOT EXPIRED (ALTERNATE USER ONLY).
06979  M01S05102.pfm     +++|*         THE ACCESS LEVEL AND ACCESS CATEGORY SET ARE ALSO
06980  M01S05103.pfm     +++|*         VALIDATED.  STATISTICS ARE ACCUMULATED FOR USER
06981  M01S05104.pfm     +++|*         CONTROL CHECKS.
06982  M01S05105.pfm     +++|*
06983  M01S05106.pfm     +++|*         ENTRY  (T3) = INDEX TO CATALOG ENTRY.
06984  M01S05107.pfm     +++|*                (FN - FN+3) = FILE NAME.
06985  M01S05108.pfm     +++|*                (PFPW - PFPW+3) = FILE PASSWORD FROM CALL BLOCK
06986  M01S05109.pfm     +++|*                (CCDA) = EXIT JUMP IF NO OPTIONAL USER.
06987  M01S05110.pfm     +++|*
06988  M01S05111.pfm     +++|*         EXIT   (A) = 0 IF FILE FOUND AND ACCESS ALLOWED.
06989  M01S05112.pfm     +++|*                (NF - NF+1) INCREMENTED.
06990  M01S05113.pfm     +++|*                (CS - CS+1) ADVANCED IF FILE IS INDIRECT.
06991  M01S05114.pfm     +++|*                TO *ERR* IF ACCESS TO FILE NOT ALLOWED.
06992  M01S05115.pfm     +++|*
06993  M01S05116.pfm     +++|*         USES   T3, FN - FN+3.
06994  M01S05117.pfm     +++|*
06995  M01S05118.pfm     +++|*         MACROS ERROR, MONITOR.
06996  M01S00117.253l688 +++|*
06997  M01S00118.253l688 +++|*         NOTES  THE USE OF THE DATA TAGS *CCDD*, *CCDF*, *CCDI*
06998  M01S00119.253l688 +++|*                AND *CCDP* SHOULD BE AVOIDED, SINCE THEY CONFLICT
06999  M01S00120.253l688 +++|*                WITH GLOBAL SYMBOL DEFINITIONS.
07000  M01S05119.pfm     +++|
07001  M01S05120.pfm     +++|
07002  M01S05121.pfm     +++| CCD      SUBR               ENTRY/EXIT
07003  M01S05122.pfm     +++| CCDB     UJN    CCD1        SET TO *PSN* IF ALLOCATION COMMAND
07004  M01S05123.pfm     +++|*                            I.E. SAVE, REPLACE, APPEND, DEFINE.
07005  M01S05124.pfm     +++|
07006  M01S05125.pfm     +++|*         ACCUMULATE STATISTICS.
07007  M01S05126.pfm     +++|
07008  M01S05127.pfm     +++|          AOD    NF+1        ADVANCE FILE COUNT
07009  M01S05128.pfm     +++|          SHN    -14
07010  M01S05129.pfm     +++|          RAD    NF
07011  M01S05130.pfm     +++|          LDM    FCBS,T3
07012  M01S05131.pfm     +++|          SHN    6
07013  M01S05132.pfm     +++|          MJN    CCD1        IF DIRECT ACCESS FILE
07014  M01S05133.pfm     +++|          LDM    FCLF+1,T3   ADD TO CUMULATIVE SIZE OF INDIRECT FILES
07015  M01S05134.pfm     +++|          RAD    CS+1
07016  M01S05135.pfm     +++|          SHN    -14
07017  M01S05136.pfm     +++|          ADM    FCLF,T3
07018  M01S05137.pfm     +++|          RAD    CS
07019  M01S05138.pfm     +++|
07020  M01S05139.pfm     +++|*         CHECK FILE FOR SEARCH.
07021  M01S05140.pfm     +++|
07022  M01S05141.pfm     +++| CCD1     LDI    T3          COMPARE FILE NAMES
07023  M01S05142.pfm     +++|          LMD    FN
07024  M01S05143.pfm     +++|          NJN    CCDX        IF NOT EQUAL
07025  M01S05144.pfm     +++|          LDM    FCFN+1,T3   COMPARE BYTE 2
07026  M01S05145.pfm     +++|          LMD    FN+1
07027  M01S05146.pfm     +++| CCD2     NJN    CCDX        IF NOT EQUAL
07028  M01S05147.pfm     +++|          LDM    FCFN+2,T3   COMPARE BYTE 3
07029  M01S05148.pfm     +++|          LMD    FN+2
07030  M01S05149.pfm     +++|          NJN    CCDX        IF NOT EQUAL
07031  M01S05150.pfm     +++|          LDM    FCFN+3,T3   COMPARE 7TH CHARACTER
07032  M01S05151.pfm     +++|          LMD    FN+3
07033  M01S05152.pfm     +++|          SHN    -6
07034  M01S05153.pfm     +++|          NJN    CCD2        IF LAST CHARACTER NOT EQUAL

Seq #  *Modification Id* Act 
----------------------------+
07035  M02S05154.pfm45   ---| CCDA     STD    T2

Seq #  *Modification Id* Act 
----------------------------+
07036  M02S05155.pfm45   ---|*         UJN    CCD4        (NOT ALTERNATE USER)

Seq #  *Modification Id* Act 
----------------------------+
07037  M02S05156.pfm45   ---|*         UJN    CCD4        (*PERMIT* REQUEST)
07038  M01S05157.pfm     +++|
07039  M01S05158.pfm     +++|*         COMPARE FILE PASSWORD.
07040  M01S05159.pfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
07041  M02S05160.pfm45   ---|          LDM    FCPW,T3     COMPARE FILE PASSWORD
07042  M01S00001.pfm45   +++| CCDA     LDM    FCPW,T3     COMPARE FILE PASSWORD
07043  M01S00002.pfm45   +++|*         UJN    CCD4        (NOT ALTERNATE USER)
07044  M01S00003.pfm45   +++|*         UJN    CCD4        (*PERMIT* REQUEST)
07045  M01S05161.pfm     +++|          LMM    PFPW
07046  M01S05162.pfm     +++|          NJN    CCD3        IF NOT EQUAL
07047  M01S05163.pfm     +++|          LDM    FCPW+1,T3   COMPARE BYTE 2
07048  M01S05164.pfm     +++|          LMM    PFPW+1
07049  M01S05165.pfm     +++|          NJN    CCD3        IF NOT EQUAL
07050  M01S05166.pfm     +++|          LDM    FCPW+2,T3   COMPARE BYTE 3
07051  M01S05167.pfm     +++|          LMM    PFPW+2
07052  M01S05168.pfm     +++|          NJN    CCD3        IF NOT EQUAL
07053  M01S05169.pfm     +++|          LDM    FCPW+3,T3   COMPARE 7TH CHARACTER
07054  M01S05170.pfm     +++|          LMM    PFPW+3
07055  M01S05171.pfm     +++|          SHN    -6
07056  M01S05172.pfm     +++| CCD3     NJN    CCD6        IF NOT EQUAL
07057  M01S05173.pfm     +++|          UJN    CCD5        CHECK FOR PASSWORD EXPIRATION
07058  M01S05174.pfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
07059  M02S05175.pfm60   ---| CCD4     UJN    CCD7        VALIDATE ACCESS TO FILE
07060  M01S00001.pfm60   +++| CCD4     LDN    0
07061  M01S00002.pfm60   +++|          UJN    CCD7        VALIDATE ACCESS TO FILE
07062  M01S05176.pfm     +++|
07063  M01S05177.pfm     +++|*         CHECK FOR PASSWORD EXPIRATION.
07064  M01S05178.pfm     +++|
07065  M01S05179.pfm     +++| CCD5     LDM    FCPW,T3
07066  M01S05180.pfm     +++|          ZJN    CCD7        IF NO PASSWORD
07067  M01S05181.pfm     +++|          LDM    FCXD,T3     CHECK EXPIRATION DATE
07068  M01S05182.pfm     +++|          LPN    77
07069  M01S05183.pfm     +++|          STD    CM+3
07070  M01S05184.pfm     +++|          SHN    14
07071  M01S05185.pfm     +++|          LMM    FCXD+1,T3
07072  M01S05186.pfm     +++|          ZJN    CCD7        IF NON-EXPIRING PASSWORD
07073  M01S05187.pfm     +++|          STD    CM+4
07074  M01S05188.pfm     +++|          LDN    VEDS        VALIDATE EXPIRATION DATE
07075  M01S05189.pfm     +++|          STD    CM+1
07076  M01S05190.pfm     +++|          MONITOR  VSAM
07077  M01S05191.pfm     +++|          LDD    CM+1
07078  M01S05192.pfm     +++|          ZJN    CCD7        IF NOT EXPIRED
07079  M01S05193.pfm     +++| CCD6     ERROR  FNF         *(FILENAME) NOT FOUND.*
07080  M01S05194.pfm     +++|
07081  M01S05195.pfm     +++|*         VALIDATE ACCESS TO FILE.
07082  M01S05196.pfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
07083  M02S05197.pfm60   ---| CCD7     LDD    T3          VALIDATE ACCESS LEVEL AND CATEGORY SET

Seq #  *Modification Id* Act 
----------------------------+
07084  M03S05198.pfm60   ---|          RAM    CCDD

Seq #  *Modification Id* Act 
----------------------------+
07085  M02S00121.pfm60   ---|          RAM    CCDE

Seq #  *Modification Id* Act 
----------------------------+
07086  M02S05199.pfm60   ---|          LDD    MA

Seq #  *Modification Id* Act 
----------------------------+
07087  M02S05200.pfm60   ---|          CWM    FCAL-1,ON

Seq #  *Modification Id* Act 
----------------------------+
07088  M03S05201.pfm60   ---| CCDD     EQU    *-1

Seq #  *Modification Id* Act 
----------------------------+
07089  M02S00122.pfm60   ---| CCDE     EQU    *-1
07090  M01S00003.pfm60   +++| CCD7     STD    CM          VALIDATE ACCESS LEVEL AND CATEGORY SET
07091  M01S00004.pfm60   +++|          LDM    FCAL,T3     SET ACCESS LEVEL
07092  M01S00005.pfm60   +++|          LPN    7
07093  M01S00006.pfm60   +++|          STD    CM+1
07094  M01S00007.pfm60   +++|          LDM    FCFC,T3     SET ACCESS CATEGORY
07095  M01S00008.pfm60   +++|          LPC    377
07096  M01S00009.pfm60   +++|          STD    CM+2
07097  M01S00010.pfm60   +++|          LDM    FCFC+1,T3
07098  M01S00011.pfm60   +++|          STD    CM+3
07099  M01S00012.pfm60   +++|          LDM    FCFC+2,T3
07100  M01S00013.pfm60   +++|          STD    CM+4
07101  M01S00014.pfm60   +++|          LDD    MA
07102  M01S00015.pfm60   +++|          CWD    CM
07103  M01S05202.pfm     +++|          LDN    ZERL
07104  M01S05203.pfm     +++|          CRD    CM
07105  M01S05204.pfm     +++|          LDN    VAJS        CHECK AGAINST CURRENT JOB VALIDATIONS
07106  M01S05205.pfm     +++|          STD    CM+1
07107  M01S05206.pfm     +++|          ERRNZ  VAJS-3      VALIDATE ACCESS LEVEL AND CATEGORY SET
07108  M01S05207.pfm     +++|          STD    CM+4
07109  M01S05208.pfm     +++|          MONITOR  VSAM
07110  M01S05209.pfm     +++|          LDD    CM+1
07111  M01S05210.pfm     +++| CCDC     NJN    CCD6        IF NOT VALID ACCESS

Seq #  *Modification Id* Act 
----------------------------+
07112  M02S05211.pfm37   ---|*         NJN    CCD8        IF NOT VALID ACCESS (NOT ALTERNATE USER)

Seq #  *Modification Id* Act 
----------------------------+
07113  M02S05212.pfm37   ---|          LJM    CCDX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
07114  M02S05213.pfm37   ---|

Seq #  *Modification Id* Act 
----------------------------+
07115  M02S05214.pfm37   ---| CCD8     ERROR  JCA,,,,SVE  * JOB CANNOT ACCESS FILE.*
07116  M01S00001.pfm37   +++|*         NJN    CCD9        IF NOT VALID ACCESS (NOT ALTERNATE USER)
07117  M01S00002.pfm37   +++| CCD8     LJM    CCDX        RETURN
07118  M01S00003.pfm37   +++|
07119  M01S00004.pfm37   +++|*         ALLOW AN *SSJ=* JOB TO PURGE ANY FILE.
07120  M01S00005.pfm37   +++|
07121  M01S00006.pfm37   +++| CCD9     LDM    SSJS
07122  M01S00007.pfm37   +++|          ZJN    CCD10       IF NOT *SSJ=*
07123  M01S00008.pfm37   +++|          LDD    CC
07124  M01S00009.pfm37   +++|          LMN    CCPG
07125  M01S00010.pfm37   +++|          ZJN    CCD8        IF *PURGE*
07126  M01S00011.pfm37   +++| CCD10    ERROR  JCA,,,,SVE  * JOB CANNOT ACCESS FILE.*
07127  M01S00006.pfm36   +++| ICT      SPACE  4,15
07128  M01S00007.pfm36   +++|**        ICT - INTERLOCK CATALOG TRACK.
07129  M01S00008.pfm36   +++|*
07130  M01S00009.pfm36   +++|*         ENTRY  (T6) = CATALOG TRACK TO BE INTERLOCKED.
07131  M01S00010.pfm36   +++|*                (T5) = EST ORDINAL.
07132  M01S00011.pfm36   +++|*
07133  M01S00012.pfm36   +++|*         EXIT   TRACK INTERLOCKED.
07134  M01S00013.pfm36   +++|*                RECALL *PFM* IF INTERLOCK NOT AVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
07135  M02S00014.ns2415  ---|*                 AFTER TWO TRIES.

Seq #  *Modification Id* Act 
----------------------------+
07136  M02S00054.pfm52   ---|*                  AFTER TWO TRIES.
07137  M01S00034.pfm52   +++|*                  AFTER FOUR TRIES.
07138  M01S00055.ns2415  +++|*                TO *HNG* IF CATALOG TRACK NOT RESERVED.
07139  M01S00015.pfm36   +++|*
07140  M01S00016.pfm36   +++|*         CALLS  DPR, STI.
07141  M01S00017.pfm36   +++|
07142  M01S00018.pfm36   +++|
07143  M01S00019.pfm36   +++| ICT      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
07144  M02S00020.pfm52   ---|          RJM    STI         TRY TO INTERLOCK TRACK
07145  M01S00035.pfm52   +++|          LDN    3           SET RETRY COUNT
07146  M01S00036.pfm52   +++|          STD    T1
07147  M01S00037.pfm52   +++| ICT1     RJM    STI         TRY TO INTERLOCK TRACK
07148  M01S00021.pfm36   +++|          ZJN    ICTX        IF INTERLOCK SUCCESSFUL
07149  M01S00056.ns2415  +++|          LMN    2

Seq #  *Modification Id* Act 
----------------------------+
07150  M02S00057.pfm52   ---|          ZJN    ICT1        IF TRACK NOT RESERVED
07151  M01S00038.pfm52   +++|          ZJN    ICT2        IF TRACK NOT RESERVED
07152  M01S00039.pfm52   +++|          SOD    T1
07153  M01S00040.pfm52   +++|          MJN    ICT3        IF RETRY COUNT EXHAUSTED
07154  M01S00022.pfm36   +++|          RJM    DPR         DELAY PRIOR TO RETRY

Seq #  *Modification Id* Act 
----------------------------+
07155  M02S00023.pfm52   ---|          RJM    STI         TRY TO INTERLOCK TRACK

Seq #  *Modification Id* Act 
----------------------------+
07156  M02S00024.pfm52   ---|          ZJN    ICTX        IF INTERLOCK SUCCESSFUL

Seq #  *Modification Id* Act 
----------------------------+
07157  M02S00058.pfm52   ---|          LMN    2

Seq #  *Modification Id* Act 
----------------------------+
07158  M02S00059.pfm52   ---|          ZJN    ICT1        IF TRACK NOT RESERVED

Seq #  *Modification Id* Act 
----------------------------+
07159  M02S00025.pfm52   ---|          EXIT   INA,CH,,,EC4  * INTERLOCK NOT AVAILABLE.*
07160  M01S00041.pfm52   +++|          UJN    ICT1        RETRY
07161  M01S00060.ns2415  +++|

Seq #  *Modification Id* Act 
----------------------------+
07162  M02S00061.pfm52   ---| ICT1     RJM    HNG         HANG IF CATALOG TRACK NOT RESERVED
07163  M01S00042.pfm52   +++| ICT2     RJM    HNG         HANG IF CATALOG TRACK NOT RESERVED
07164  M01S00043.pfm52   +++|
07165  M01S00044.pfm52   +++| ICT3     EXIT   INA,CH,,,EC4  * INTERLOCK NOT AVAILABLE.*
07166  M01S05215.pfm     +++| ISP      SPACE  4,20
07167  M01S05216.pfm     +++|**        ISP - INITIALIZE SEARCH OF PERMANENT FILES.
07168  M01S05217.pfm     +++|*
07169  M01S05218.pfm     +++|*         ENTRY  (EQ) = MASTER DEVICE EST ORDINAL.
07170  M01S05219.pfm     +++|*                (CCIA) = CATALOG TRACK.
07171  M01S05220.pfm     +++|*
07172  M01S05221.pfm     +++|*         EXIT   (T4) = MASTER DEVICE CHANNEL.
07173  M01S05222.pfm     +++|*                (T5) = MASTER DEVICE EST ORDINAL.
07174  M01S05223.pfm     +++|*                (T6) = CATALOG TRACK.
07175  M01S05224.pfm     +++|*                (T7) = CATALOG SECTOR.
07176  M01S05225.pfm     +++|*                (DPPF) = INCREMENTED FOR CATALOG SEARCH.
07177  M01S05226.pfm     +++|*                (P0 - P4) = CATALOG SEARCH POINTERS INITIALIZED.
07178  M01S05227.pfm     +++|*                CATALOG TRACK INTERLOCK SET.
07179  M01S05228.pfm     +++|*                *SETMS READ* PERFORMED.
07180  M01S05229.pfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
07181  M02S05230.242l642 ---|*         CALLS  IRA, ITC.

Seq #  *Modification Id* Act 
----------------------------+
07182  M02S00682.pfm36   ---|*         CALLS  IRA, ITC, PDV.
07183  M01S00026.pfm36   +++|*         CALLS  ICT, IRA, PDV.
07184  M01S05231.pfm     +++|*
07185  M01S05232.pfm     +++|*         MACROS ERROR, SETMS.
07186  M01S05233.pfm     +++|
07187  M01S05234.pfm     +++|
07188  M01S05235.pfm     +++| ISP      SUBR               ENTRY/EXIT
07189  M01S05236.pfm     +++|          LDD    EQ          SET MASTER DEVICE EST ORDINAL
07190  M01S05237.pfm     +++|          STD    T5
07191  M01S05238.pfm     +++|          LDM    CCIA        SET CATALOG TRACK

Seq #  *Modification Id* Act 
----------------------------+
07192  M02S05239.pfm36   ---| ISPB     RJM    ITC         SET CATALOG TRACK INTERLOCK
07193  M01S00027.pfm36   +++|          STD    T6
07194  M01S00028.pfm36   +++| ISPB     RJM    ICT         INTERLOCK CATALOG TRACK
07195  M01S05240.pfm     +++|*         UJN    ISP1        (*UREPLAC*/*DROPIDS*- ALREADY INTERLOCKED)
07196  M01S05241.pfm     +++|          AOM    CCIB        SET CATALOG TRACK INTERLOCK FLAG
07197  M01S05242.pfm     +++| ISP1     LDN    IPCS        PF INCREMENT FOR CATALOG SEARCH

Seq #  *Modification Id* Act 
----------------------------+
07198  M02S05243.242l642 ---|          RAM    DPPF

Proceed to Part 6