User Tools

Site Tools


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

Deck PFM Part 010

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00002 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14497  M01S00002.pfm43   +++|*                (CM - CM+3) = USER NAME FOR SEARCH.
14498  M00S10551.pfm     +++|*
14499  M00S10552.pfm     +++|*         EXIT   (A) = 0 IF PERMIT NOT FOUND.
14500  M00S10553.pfm     +++|*                (T2) = INDEX TO PERMIT ENTRY, IF FOUND.
14501  M00S10554.pfm     +++|*
Line S10555 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14502  M01S10555.pfm43   ---|*         USES   CM - CM+4, T1.
Line S00003 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14503  M01S00003.pfm43   +++|*         USES   T1, T2.
14504  M00S10556.pfm     +++|
14505  M00S10557.pfm     +++|
14506  M00S10558.pfm     +++| SPB      SUBR               ENTRY/EXIT
Line S10559 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14507  M01S10559.ns2415  ---|          LDM    BUFB+1      WORD COUNT
14508  M01S10560.ns2415  ---|          ZJN    SPBX        IF ZERO LENGTH SECTOR
14509  M01S10561.ns2415  ---|          LPN    NWPE-1
14510  M01S10562.ns2415  ---|          ZJN    SPB1        IF INTEGRAL NUMBER OF PERMIT ENTRIES
14511  M01S10563.ns2415  ---|          ERRNZ  NWPH-NWPE   HEADER SIZE MUST EQUAL ENTRY SIZE
14512  M01S10564.ns2415  ---|          ERROR  BCS,,IW,T5  *EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.*
14513  M01S10565.ns2415  ---|          LDN    0           INDICATE PERMIT NOT FOUND
14514  M01S10566.ns2415  ---|          UJN    SPBX        RETURN
14515  M01S10567.ns2415  ---|
14516  M00S10568.pfm     +++| SPB1     LDN    NWPH        ADVANCE WORD COUNT PAST HEADER
14517  M00S10569.pfm     +++|          STD    T1
14518  M00S10570.pfm     +++|          LDC    BUFB+2      SET DATA ADDRESS
14519  M00S10571.pfm     +++|          ADN    NWPH*5
14520  M00S10572.pfm     +++|          STD    T2
14521  M00S10573.pfm     +++| SPB2     LDD    CM
Line S10574 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14522  M01S10574.pfm43   ---|          ZJN    SPB4        IF NO USER NAME
Line S00004 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14523  M01S00004.pfm43   +++|          ZJN    SPBX        IF NO USER NAME
14524  M00S10575.pfm     +++|          LMM    FPAN,T2     COMPARE USER NAME
14525  M00S10576.pfm     +++|          NJN    SPB3        IF NO MATCH
14526  M00S10577.pfm     +++|          LDM    FPAN+1,T2
14527  M00S10578.pfm     +++|          LMD    CM+1
14528  M00S10579.pfm     +++|          NJN    SPB3        IF NO MATCH
14529  M00S10580.pfm     +++|          LDM    FPAN+2,T2
14530  M00S10581.pfm     +++|          LMD    CM+2
14531  M00S10582.pfm     +++|          NJN    SPB3        IF NO MATCH
14532  M00S10583.pfm     +++|          LDM    FPAN+3,T2
14533  M00S10584.pfm     +++|          LMD    CM+3
Line S10585 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14534  M01S10585.pfm43   ---|          SCN    37
Line S00005 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14535  M01S00005.pfm43   +++|          SCN    77
14536  M00S10586.pfm     +++|          ZJN    SPB5        IF USER FOUND
14537  M00S10587.pfm     +++| SPB3     LDN    NWPE*5      ADVANCE TO NEXT ENTRY
14538  M00S10588.pfm     +++|          RAD    T2
14539  M00S10589.pfm     +++|          LDN    NWPE
14540  M00S10590.pfm     +++|          RAD    T1
14541  M00S10591.pfm     +++|          LMM    BUFB+1
14542  M00S10592.pfm     +++|          NJN    SPB2        IF NOT END OF BUFFER
Line S10593 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14543  M01S10593.pfm43   ---|          LJM    SPBX        EXIT
Line S00006 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14544  M01S00006.pfm43   +++|          UJN    SPB6        EXIT
14545  M00S10594.pfm     +++|
Line S10595 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14546  M01S10595.pfm43   ---| SPB4     LDM    FPPI,T2     COMPARE USER INDEX
14547  M01S10596.pfm43   ---|          LMD    CM+3
14548  M01S10597.pfm43   ---|          LPN    37
14549  M01S10598.pfm43   ---|          NJN    SPB3        IF NO MATCH FOUND
14550  M01S10599.pfm43   ---|          LDM    FPPI+1,T2
14551  M01S10600.pfm43   ---|          LMD    CM+4
14552  M01S10601.pfm43   ---|          NJN    SPB3        IF NO MATCH FOUND
14553  M00S10602.pfm     +++| SPB5     LCN    1           SET ENTRY FOUND EXIT
Line S10603 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14554  M01S10603.pfm43   ---|          LJM    SPBX        RETURN
Line S00007 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14555  M01S00007.pfm43   +++| SPB6     LJM    SPBX        RETURN
14556  M00S10604.pfm     +++| CSA      SPACE  4,15
14557  M00S10605.pfm     +++|**        CSA - COMPUTE SECTOR ADDRESS.
14558  M00S10606.pfm     +++|*
14559  M00S10607.pfm     +++|*         ENTRY  (RI - RI+1) = RANDOM INDEX OF PERMIT SECTOR.
14560  M00S10608.pfm     +++|*                (DVLW - DVLW+4) = DEVICE LAYOUT WORD.
14561  M00S10609.pfm     +++|*                (A) = ADDRESS OF FILE NAME IF NAME NOT
14562  M00S10610.pfm     +++|*                IN FN - FN+3 OTHERWISE (A) = 0.
14563  M00S10611.pfm     +++|*
14564  M00S10612.pfm     +++|*         EXIT   (T6) = TRACK OF RANDOM SECTOR
14565  M00S10613.pfm     +++|*                (T7) = SECTOR OF RANDOM SECTOR.
14566  M00S10614.pfm     +++|*
14567  M00S10615.pfm     +++|*         USES   T6, T7, RI - RI+1.
14568  M00S10616.pfm     +++|*
Line S10617 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14569  M01S10617.242l642 ---|*         CALLS  CRA.
Line S01224 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14570  M01S01224.242l642 +++|*         CALLS  CRA, PDV.
14571  M00S10618.pfm     +++|*
14572  M00S10619.pfm     +++|*         MACROS ENDMS, ERROR, SETMS.
14573  M00S10620.pfm     +++|
14574  M00S10621.pfm     +++|
Line S10622 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14575  M01S10622.242l642 ---| CSA2     SETMS  READ
Line S01225 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14576  M01S01225.242l642 +++| CSA2     SETMS  IO
14577  M01S01226.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
14578  M00S10623.pfm     +++|
14579  M00S10624.pfm     +++| CSA      SUBR               ENTRY/EXIT
14580  M00S10625.pfm     +++|          STM    CSAA
14581  M00S10626.pfm     +++|          STM    CSAB
14582  M00S10627.pfm     +++|          LDM    DVLW+2      SET FIRST TRACK IN PERMIT CHAIN
14583  M00S10628.pfm     +++|          STD    T6
14584  M00S10629.pfm     +++|          ENDMS
14585  M00S10630.pfm     +++|          LDN    0           SET TRT UPDATE REQUESTED
14586  M00S10631.pfm     +++|          RJM    CRA         COVERT RANDOM ADDRESS
14587  M00S10632.pfm     +++|          PJN    CSA2        IF NO ERROR
14588  M00S10633.pfm     +++|
14589  M00S10634.pfm     +++|*         PROCESS ERROR IN RANDOM INDEX.
14590  M00S10635.pfm     +++|
14591  M00S10636.pfm     +++|          LDC    **
14592  M00S10637.pfm     +++| CSAA     EQU    *-1
14593  M00S10638.pfm     +++|          ZJN    CSA1        IF NO NAME TO COPY
14594  M00S10639.pfm     +++|          LDD    MA          COPY FILE NAME
14595  M00S10640.pfm     +++|          CWM    *,ON
14596  M00S10641.pfm     +++| CSAB     EQU    *-1
14597  M00S10642.pfm     +++|          SBN    1
14598  M00S10643.pfm     +++|          CRD    FN
14599  M00S10644.pfm     +++| CSA1     ERROR  RIN,,IW,EQ  *EQXXX,DNYY, RANDOM INDEX ERROR.*
14600  M00S10645.pfm     +++| PCA      SPACE  4,15
14601  M00S10646.pfm     +++|**        PCA - PROCESS CATALOG ADDRESS ACCESS MODE.
14602  M00S10647.pfm     +++|*
14603  M00S10648.pfm     +++|*         ENTRY  (IN - IN+1) = CURRENT POSITION IN FET.
14604  M00S10649.pfm     +++|*                (T1) = OUTPUT ENTRY LENGTH FOR CATALOG AND *PFID*.
14605  M00S10650.pfm     +++|*                (T2) = *PFC* ENTRY POINTER.
14606  M00S10651.pfm     +++|*                (CATA) = SEARCH MODE.
14607  M00S10652.pfm     +++|*                (CATB) = MASTER DEVICE NUMBER.
14608  M00S10653.pfm     +++|*                (WDBB) = CURRENT CATALOG TRACK.
14609  M00S10654.pfm     +++|*                (WDBC) = CURRENT CATALOG SECTOR.
14610  M00S10655.pfm     +++|*                BUFA+2 = BEGINNING OF CATALOG SECTOR BUFFER.
14611  M00S10656.pfm     +++|*
14612  M00S10657.pfm     +++|*         EXIT   (T1) = DECREMENTED BY ONE FOR *PFID*.
14613  M00S10658.pfm     +++|*                *PFID* WRITTEN TO CENTRAL USER BUFFER.
14614  M00S10659.pfm     +++|
14615  M00S10660.pfm     +++|
14616  M00S10661.pfm     +++| PCA      SUBR               ENTRY/EXIT
14617  M00S10662.pfm     +++|          LDM    CATA        CHECK SEARCH MODE
Line S10663 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14618  M01S10663.ns2756  ---|          LMN    PAST
Line S00015 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14619  M01S00015.ns2756  +++|          LMN    CTID
14620  M00S10664.pfm     +++|          NJN    PCAX        IF NOT *PFID* ACCESS
14621  M00S10665.pfm     +++|
14622  M00S10666.pfm     +++|*         SETUP *PFID* FOR OUTPUT.
14623  M00S10667.pfm     +++|
14624  M00S10668.pfm     +++|          LDM    WDBC        SET CATALOG SECTOR ADDRESS
14625  M00S10669.pfm     +++|          STM    PCAA+4
14626  M00S10670.pfm     +++|          LDM    WDBB        SET CATALOG TRACK ADDRESS
14627  M00S10671.pfm     +++|          STM    PCAA+3
14628  M00S10672.pfm     +++|          LDD    T2          SET *PEO* VALUE
14629  M00S10673.pfm     +++|          ADC    -BUFA-2
14630  M00S10674.pfm     +++|          SHN    -NWCES      CALCULATE *PEO* VALUE
14631  M00S10675.pfm     +++|          LPN    1S"NWCEM"-1
14632  M00S10676.pfm     +++|          SHN    6
14633  M00S10677.pfm     +++|          LMM    CATB        SET MASTER DEVICE NUMBER
14634  M00S10678.pfm     +++|          STM    PCAA+2
14635  M00S10679.pfm     +++|
14636  M00S10680.pfm     +++|*         WRITE *PFID* TO CENTRAL BUFFER.
14637  M00S10681.pfm     +++|
14638  M00S10682.pfm     +++|          LDD    IN          FORM DESTINATION ADDRESS
14639  M00S10683.pfm     +++|          SHN    6
14640  M00S10684.pfm     +++|          ADD    RA
14641  M00S10685.pfm     +++|          SHN    6
14642  M00S10686.pfm     +++|          ADD    IN+1
14643  M00S10687.pfm     +++|          ADN    NWCE        OFFSET FOR *PFC* ENTRY
14644  M00S10688.pfm     +++|          CWM    PCAA,ON     WRITE *PFID*
14645  M00S10689.pfm     +++|          SOD    T1          ADJUST OUTPUT LENGTH
14646  M00S10690.pfm     +++|          LJM    PCAX        RETURN
14647  M00S10691.pfm     +++|
14648  M00S10692.pfm     +++| PCAA     CON    0,0,0,0,0   *PFID* BUFFER
14649  M00S10693.pfm     +++|          SPACE  4,10
14650  M00S10694.pfm     +++|*         COMMON DECKS.
14651  M00S10695.pfm     +++|
14652  M00S10696.pfm     +++|
14653  M00S10697.pfm     +++| CRA$     SET    0           FORCE TRT UPDATE ON *CRA* CALLS
14654  M00S10698.pfm     +++|*CALL     COMPCRA
14655  M00S10699.pfm     +++|*CALL     COMPSRA
14656  M00S10700.pfm     +++| SEI$     SET    0           FORCE TRT UPDATE ON *SEI* CALLS
14657  M00S10701.pfm     +++|*CALL     COMPSEI
14658  M00S10702.pfm     +++|*CALL     COMPRNS
14659  M00S10703.pfm     +++|*CALL     COMPSDN
14660  M00S10704.pfm     +++|          SPACE  4,10
14661  M00S10705.pfm     +++|*         BUFFERS
14662  M00S10706.pfm     +++|
14663  M00S10707.pfm     +++|
14664  M00S10708.pfm     +++| BUFA     EQU    *           CATALOG BUFFER
14665  M00S10709.pfm     +++| BUFB     EQU    BUFA+502    PERMIT BUFFER
14666  M00S10710.pfm     +++|          ERRNG  EPFW-BUFB-502  BUFFER OVERFLOW
14667  M00S10711.pfm     +++|          TITLE  OVERLAYABLE SUBROUTINES.
14668  M00S10712.pfm     +++| CSU      SPACE  4,10
14669  M00S10713.pfm     +++|**        CSU - CHECK FOR SPECIAL USER.
14670  M00S10714.pfm     +++|*
14671  M00S10715.pfm     +++|*         ENTRY  USER NAME WORD (UIDW) SET.
14672  M00S10716.pfm     +++|*                (PFOU - PFOU+3) = USER NAME FROM CALL BLOCK.
14673  M00S10717.pfm     +++|*
14674  M00S10718.pfm     +++|*         EXIT   (UI - UI+1) CLEARED IF SPECIAL USER.
14675  M00S10719.pfm     +++|*
14676  M00S10720.pfm     +++|*         USES   T1, T2, CM - CM+4.
14677  M00S10721.pfm     +++|
14678  M00S10722.pfm     +++|
14679  M00S10723.pfm     +++| CSU      SUBR               ENTRY/EXIT
14680  M00S10724.pfm     +++|          LDD    CP          GET USER USER NAME
14681  M00S10725.pfm     +++|          ADN    UIDW
14682  M00S10726.pfm     +++|          CRD    CM
14683  M00S10727.pfm     +++|          LDD    CM+3        CLEAR LOWER USER NAME
14684  M00S10728.pfm     +++|          SCN    77
14685  M00S10729.pfm     +++|          STD    CM+3
14686  M00S10730.pfm     +++|          LDN    0           INITIALIZE COUNT
14687  M00S10731.pfm     +++|          STD    T1
14688  M00S10732.pfm     +++| CSU1     AOD    T1          ADVANCE BYTE
14689  M00S10733.pfm     +++|          LMN    5
14690  M00S10734.pfm     +++|          ZJN    CSU3        IF END OF USER NAME
14691  M00S10735.pfm     +++|          LDM    CM-1,T1     USER NAME BYTE
14692  M00S10736.pfm     +++|          STD    T2
14693  M00S10737.pfm     +++|          LMC    2R**
14694  M00S10738.pfm     +++|          ZJN    CSU1        IF ** SKIP COMPARE OF CHARACTERS
14695  M00S10739.pfm     +++|          SCN    77
14696  M00S10740.pfm     +++|          ZJN    CSU2        IF UPPER CHARACTER *
14697  M00S10741.pfm     +++|          LDD    T2          COMPARE UPPER CHARACTER
14698  M00S10742.pfm     +++|          LMM    PFOU-1,T1
14699  M00S10743.pfm     +++|          SCN    77
14700  M00S10744.pfm     +++|          NJN    CSUX        IF USER NAME DO NOT MATCH
14701  M00S10745.pfm     +++|          LDD    T2          CHECK LOWER CHARACTER
14702  M00S10746.pfm     +++|          LMN    1R*
14703  M00S10747.pfm     +++|          LPN    77
14704  M00S10748.pfm     +++|          ZJN    CSU1        IF LOWER CHARACTER = *
14705  M00S10749.pfm     +++| CSU2     LDD    T2          COMPARE LOWER CHARACTER
14706  M00S10750.pfm     +++|          LMM    PFOU-1,T1
14707  M00S10751.pfm     +++|          LPN    77
14708  M00S10752.pfm     +++|          ZJN    CSU1        IF LOWER CHARACTER COMPARE
14709  M00S10753.pfm     +++|          UJN    CSU4        USER NAMES DO NOT MATCH
14710  M00S10754.pfm     +++|
14711  M00S10755.pfm     +++| CSU3     STD    UI          CLEAR USER INDEX
14712  M00S10756.pfm     +++|          STD    UI+1
Line S10757 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14713  M01S10757.ns2756  ---|          LDN    NCST        SET MODE TO NORMAL CATALOG SEARCH
Line S00016 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14714  M01S00016.ns2756  +++|          LDN    CTNC        SET MODE TO NORMAL CATALOG SEARCH
14715  M00S10758.pfm     +++|          STM    CATA
14716  M00S10759.pfm     +++| CSU4     LJM    CSUX        EXIT
14717  M00S10760.pfm     +++| ISP      SPACE  4,20
14718  M00S10761.pfm     +++|**        ISP - INITIALIZE SEARCH OF PERMANENT FILES.
14719  M00S10762.pfm     +++|*
14720  M00S10763.pfm     +++|*         ENTRY  (SFAA - SFAA+1) = CALL BLOCK ADDRESS.
14721  M00S10764.pfm     +++|*                (UI - UI+1) = USER INDEX.
14722  M00S10765.pfm     +++|*
14723  M00S10766.pfm     +++|*         EXIT   (T5) = (EQ) = MASTER DEVICE EST ORDINAL.
14724  M00S10767.pfm     +++|*                (T6) = CATALOG TRACK.
14725  M00S10768.pfm     +++|*                (T7) = CATALOG SECTOR.
14726  M00S10769.pfm     +++|*                (SI) = SEARCH INDEX.
Line S10770 Modification History
M01 (Removed by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
14727  M01S10770.ns2631  ---|*                (CF) = CONTINUATION FLAG
Line S00011 Modification History
M01 (Added by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
14728  M01S00011.ns2631  +++|*                (CF) = CONTINUATION FLAG.
14729  M00S10771.pfm     +++|*                (DVLW - DVLW+4) = DEVICE LAYOUT WORD.
14730  M00S10772.pfm     +++|*                (CATB) = MASTER DEVICE NUMBER.
Line S10773 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14731  M01S10773.242l642 ---|*                *SETMS READ* PERFORMED.
Line S01227 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14732  M01S01227.242l642 +++|*                *SETMS IO* PERFORMED.
14733  M00S10774.pfm     +++|*
14734  M00S10775.pfm     +++|*         USES   T4 - T7, RI - RI+1, CM - CM+4.
14735  M00S10776.pfm     +++|*
Line S10777 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14736  M01S10777.242l642 ---|*         CALLS  CTA, CRA, SCA, SFA.
Line S01228 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14737  M01S01228.242l642 +++|*         CALLS  CRA, CTA, PDV, SCA, SFA.
14738  M00S10778.pfm     +++|*
14739  M00S10779.pfm     +++|*         MACROS ERROR, SETMS.
14740  M00S10780.pfm     +++|
14741  M00S10781.pfm     +++|
14742  M00S10782.pfm     +++| ISP      SUBR               ENTRY/EXIT
14743  M00S10783.pfm     +++|
Line S10784 Modification History
M01 (Removed by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
14744  M01S10784.ns2631  ---|*         INITIALIZE CATALOG SEARCH
Line S00012 Modification History
M01 (Added by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
14745  M01S00012.ns2631  +++|*         INITIALIZE CATALOG SEARCH.
14746  M00S10785.pfm     +++|
14747  M00S10786.pfm     +++|          LDN    0           SELECT NO INTERLOCK OF CATALOG TRACK
14748  M00S10787.pfm     +++|          STD    T1
14749  M00S10788.pfm     +++|          LDC    PFPN        SET CATALOG ADDRESS
14750  M00S10789.pfm     +++|          RJM    SCA
14751  M00S10790.pfm     +++|          PJN    ISP1        IF DEVICE AVAILABLE
14752  M00S10791.pfm     +++|          ERROR  PFN,CH,IW   *PERMANENT FILES NOT AVAILABLE.*
14753  M00S10792.pfm     +++|
14754  M00S10793.pfm     +++| ISP1     SHN    3           READ DEVICE LAYOUT WORD
14755  M00S10794.pfm     +++|          ADN    ALGL
14756  M00S10795.pfm     +++|          CRM    DVLW,ON
14757  M00S10796.pfm     +++|          ADN    PUGL-ALGL-1 READ USER NAME
14758  M00S10797.pfm     +++|          CRD    CM
14759  M00S10798.pfm     +++|          SBN    PUGL-PFGL   GET DEVICE NUMBER FOR MASTER DEVICE
14760  M00S10799.pfm     +++|          CRD    FN
14761  M00S10800.pfm     +++|          LDD    FN+3        PRESERVE DEVICE NUMBER
14762  M00S10801.pfm     +++|          LPN    77
14763  M00S10802.pfm     +++|          STM    CATB
14764  M00S10803.pfm     +++|          LDM    PFSR
14765  M00S10804.pfm     +++|          LPN    77
14766  M00S10805.pfm     +++|          ZJN    ISP3        IF NO SPECIAL REQUESTS
14767  M00S10806.pfm     +++|          SBN    SRDN
14768  M00S10807.pfm     +++|          NJN    ISP3        IF NOT DEVICE NUMBER LIST
14769  M00S10808.pfm     +++|          LDD    FN+3        CHECK DEVICE NUMBER
14770  M00S10809.pfm     +++|          LMM    CTDN
14771  M00S10810.pfm     +++|          LPN    77
14772  M00S10811.pfm     +++|          ZJN    ISP2        IF MASTER DEVICE
14773  M00S10812.pfm     +++|          LDM    CTDN
14774  M00S10813.pfm     +++|          LPN    77
14775  M00S10814.pfm     +++|          ZJN    ISP3        IF DEVICE NUMBER NOT SPECIFIED
14776  M00S10815.pfm     +++| ISP2     STD    DN
14777  M00S10816.pfm     +++|          LDN    PSNI        ENABLE DEVICE NUMBER SEARCH
14778  M00S10817.pfm     +++|          STM    SHBE
14779  M00S10818.pfm     +++| ISP3     LDM    PFPN
14780  M00S10819.pfm     +++|          ZJN    ISP4        IF NOT AUXILIARY DEVICE
14781  M00S10820.pfm     +++|          LDD    CM
14782  M00S10821.pfm     +++|          ZJN    ISP4        IF NOT PRIVATE DEVICE
14783  M00S10822.pfm     +++|          LDC    UJNI+SHB4-SHBA SET TO BYPASS USER INDEX CHECK
14784  M00S10823.pfm     +++|          STM    SHBA
14785  M00S10824.pfm     +++|
14786  M00S10825.pfm     +++| ISP4     LDN    IPCS        PF INCREMENT OF CATALOG SEARCH
Line S10826 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14787  M01S10826.242l642 ---|          RAM    DPPF
Line S01229 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14788  M01S01229.242l642 +++|          RAM    AIPF+1
14789  M00S10827.pfm     +++|          LDD    T5          SET MASTER DEVICE EST ORDINAL
14790  M00S10828.pfm     +++|          STD    EQ
Line S10829 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14791  M01S10829.242l642 ---|          SETMS  READ
Line S01230 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
14792  M02S01230.ns2645  ---|          SETMS  IO
Line S00019 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
14793  M01S00019.ns2645  +++|          SETMS  READSTR
Line S01231 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14794  M01S01231.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
14795  M00S10830.pfm     +++|          LDN    0           SET SECTOR
14796  M00S10831.pfm     +++|          STD    T7
14797  M00S10832.pfm     +++|          STD    SI          CLEAR SEARCH INDEX
14798  M00S10833.pfm     +++|          LDD    CM+4        SET FWA OF TRT
14799  M00S10834.pfm     +++|          SHN    3
14800  M00S10835.pfm     +++|          ADN    TRLL
14801  M00S10836.pfm     +++|          RJM    CTA         CALCULATE FWA OF TRT
14802  M00S10837.pfm     +++|          SBD    TH          SET *ADC  TRTS-(4000/2)*
14803  M00S10838.pfm     +++|          STM    CRAA+1      COMMON DECK -COMPCRA-
14804  M00S10839.pfm     +++|          STM    SRAA+1      COMMON DECK -COMPSRA-
14805  M00S10840.pfm     +++|          SHN    -14
14806  M00S10841.pfm     +++|          LMC    ADCI
14807  M00S10842.pfm     +++|          STM    CRAA        COMMON DECK -COMPCRA-
14808  M00S10843.pfm     +++|          STM    SRAA        COMMON DECK -COMPSRA-
14809  M00S10844.pfm     +++|          LDD    MA          SET FILE NAME IF SPECIFIED
14810  M00S10845.pfm     +++|          CWM    PFFN,ON
14811  M00S10846.pfm     +++|          SBN    1
14812  M00S10847.pfm     +++|          CRD    FN
14813  M00S10848.pfm     +++|          RJM    SFA         SET FET ADDRESS
14814  M00S10849.pfm     +++|          ADN    CFCN        CONTINUATION CATALOG DATA ADDRESS
14815  M00S10850.pfm     +++|          CRD    CM
14816  M00S10851.pfm     +++|          LDD    CM+2
14817  M00S10852.pfm     +++|          SCN    77
14818  M00S10853.pfm     +++|          ADD    CM
14819  M00S10854.pfm     +++|          ADD    CM+1
14820  M00S10855.pfm     +++|          STD    CF          SET CONTINUATION FLAG
14821  M00S10856.pfm     +++|          NJN    ISP5        IF CONTINUATION
14822  M00S10857.pfm     +++|          LJM    ISP10       CHECK FET REQUEST POINTERS
14823  M00S10858.pfm     +++|
14824  M00S10859.pfm     +++| ISP5     LDD    CM          RESTORE SEARCH INDEX
14825  M00S10860.pfm     +++|          SHN    14
14826  M00S10861.pfm     +++|          STD    SI
14827  M00S10862.pfm     +++|          SCN    77
14828  M00S10863.pfm     +++|          ADD    CM+1        SET UPPER 12 BITS OF RANDOM INDEX
14829  M00S10864.pfm     +++|          SHN    14
14830  M00S10865.pfm     +++|          STD    RI
14831  M00S10866.pfm     +++|          LMD    RI
14832  M00S10867.pfm     +++|          ADD    CM+2
14833  M00S10868.pfm     +++|          SHN    -6
14834  M00S10869.pfm     +++|          STD    RI+1
14835  M00S10870.pfm     +++|          LDM    CATA        CHECK REQUEST TYPE
Line S10871 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14836  M01S10871.ns2756  ---|          LMN    PDST
Line S00017 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14837  M01S00017.ns2756  +++|          LMN    CTPM
14838  M00S10872.pfm     +++|          NJN    ISP6        IF NOT PERMIT REQUEST
14839  M00S10873.pfm     +++|          LDN    NWPE-1      SET MASK FOR SEARCH INDEX
14840  M00S10874.pfm     +++|          STM    ISPB
14841  M00S10875.pfm     +++|          AOM    ISPC        SET PERMIT SEARCH STATUS
14842  M00S10876.pfm     +++|          AOM    ISPD
14843  M00S10877.pfm     +++|          AOM    ISPE
14844  M00S10878.pfm     +++| ISP6     LDD    SI          VALIDATE SEARCH INDEX
14845  M00S10879.pfm     +++|          LPC    NWCE-1
14846  M00S10880.pfm     +++|*         LPC    NWPE-1      (PERMIT SEARCH)
14847  M00S10881.pfm     +++| ISPB     EQU    *-1
14848  M00S10882.pfm     +++|          NJN    ISP7        IF INCORRECT SEARCH INDEX
14849  M00S10883.pfm     +++|          LDM    DVLW+1      SET LABEL TRACK
14850  M00S10884.pfm     +++|*         LDM    DVLW+2      (SET PERMIT TRACK)
14851  M00S10885.pfm     +++| ISPC     EQU    *-1
14852  M00S10886.pfm     +++|          STD    T6
14853  M00S10887.pfm     +++|          LDN    0           REQUEST TRT UPDATE
14854  M00S10888.pfm     +++|          RJM    CRA         CALCULATE RANDOM ADDRESS
14855  M00S10889.pfm     +++|          MJN    ISP7        IF ERROR IN CONVERSION
14856  M00S10890.pfm     +++|          LDD    T6          CHECK FOR INDEX INTO LABEL/PERMITS TRACK
14857  M00S10891.pfm     +++|          LMM    DVLW+1
14858  M00S10892.pfm     +++|*         LMM    DVLW+2      (PERMIT SEARCH)
14859  M00S10893.pfm     +++| ISPD     EQU    *-1
14860  M00S10894.pfm     +++|          NJN    ISP10       IF LEGAL RANDOM INDEX
14861  M00S10895.pfm     +++| ISPE     LDN    0
14862  M00S10896.pfm     +++|*         LDN    1           (PERMIT SEARCH)
14863  M00S10897.pfm     +++|          NJN    ISP9        IF PERMIT SEARCH
Line S10898 Modification History
M01 (Removed by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
14864  M01S10898.ns2631  ---| ISP7     LDD    MA          SET FILE NAME TO *CATALOG*
14865  M01S10899.ns2631  ---|          CWM    ISPA,ON
14866  M01S10900.ns2631  ---|          SBN    1
14867  M01S10901.ns2631  ---|          CRD    FN
14868  M01S10902.ns2631  ---| ISP8     ERROR  RIN,CH,IW,EQ  *EQXXX,DNYY, RANDOM INDEX ERROR.*
Line S00013 Modification History
M01 (Added by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
14869  M01S00013.ns2631  +++| ISP7     ERROR  ECD,CH,IW   * ERROR IN CATLIST CONTINUATION DATA.*
14870  M00S10903.pfm     +++|
14871  M00S10904.pfm     +++| ISP9     LDD    T7
14872  M00S10905.pfm     +++|          SBN    1
Line S10906 Modification History
M01 (Removed by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
14873  M01S10906.ns2631  ---|          MJN    ISP8        IF INCORRECT INDEX ON PERMIT SEARCH
Line S00014 Modification History
M01 (Added by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
14874  M01S00014.ns2631  +++|          MJN    ISP7        IF INCORRECT INDEX ON PERMIT SEARCH
14875  M00S10907.pfm     +++| ISP10    RJM    SFA         CHECK FET POINTERS
14876  M00S10908.pfm     +++|          ADN    4           READ LIMIT
14877  M00S10909.pfm     +++|          CRD    LM-3
14878  M00S10910.pfm     +++|          SBN    2           READ IN
14879  M00S10911.pfm     +++|          CRD    IN-3
14880  M00S10912.pfm     +++|          LDD    IN
14881  M00S10913.pfm     +++|          LPN    77
14882  M00S10914.pfm     +++|          STD    IN
14883  M00S10915.pfm     +++|          LDD    LM          CHECK BUFFER LENGTH
14884  M00S10916.pfm     +++|          LPN    77
14885  M00S10917.pfm     +++|          STD    LM
14886  M00S10918.pfm     +++|          SBD    IN
14887  M00S10919.pfm     +++|          MJN    ISP11       IF IN GREATER THAN LIMIT
14888  M00S10920.pfm     +++|          SHN    14
14889  M00S10921.pfm     +++|          ADD    LM+1
14890  M00S10922.pfm     +++|          SBD    IN+1
14891  M00S10923.pfm     +++|          SBN    1           MUST HAVE ROOM FOR 1 ENTRY
14892  M00S10924.pfm     +++|          MJN    ISP11       IF NOT LARGE ENOUGH FOR 1 ENTRY
14893  M00S10925.pfm     +++|          LDD    LM          CHECK POINTERS WITHIN FL
14894  M00S10926.pfm     +++|          SHN    14
14895  M00S10927.pfm     +++|          ADD    LM+1
14896  M00S10928.pfm     +++|          SBN    1
14897  M00S10929.pfm     +++|          SHN    -6
14898  M00S10930.pfm     +++|          SBD    FL
14899  M00S10931.pfm     +++|          PJN    ISP11       IF LIMIT PAST FL
14900  M00S10932.pfm     +++|          LJM    ISPX        RETURN
14901  M00S10933.pfm     +++|
14902  M00S10934.pfm     +++| ISP11    ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
14903  M00S10935.pfm     +++|
14904  M00S10936.pfm     +++| ISPA     DATA   C*CATALOG*
14905  M00S10937.pfm     +++|          SPACE  4,10
14906  M00S10938.pfm     +++|*CALL     COMPSCA
14907  M00S10939.pfm     +++|          SPACE  4,10
14908  M00S10940.pfm     +++|*         CHECK FOR OVERFLOW.
14909  M00S10941.pfm     +++|
14910  M00S10942.pfm     +++|
14911  M00S10943.pfm     +++|          OVERFLOW  OVLA,EPFW  OVERFLOW INTO ERROR PROCESSING AREA
14912  M00S10944.pfm     +++|          OVERLAY  (DEFINE/SETDA PROCESSING.)
14913  M00S10945.pfm     +++|          SPACE  4,10
14914  M00S10946.pfm     +++|**        THIS OVERLAY PROCESSES THE DIRECT ACCESS FILE COMMANDS
14915  M00S10947.pfm     +++|*         *DEFINE* AND *SETDA*.  THE DEVICE OF RESIDENCE HAS
14916  M00S10948.pfm     +++|*         ALREADY BEEN DETERMINED/VALIDATED BY OVERLAY *3PB*.
14917  M00S10949.pfm     +++|
14918  M00S10950.pfm     +++|
14919  M00S10951.pfm     +++| OVL      BSS    0           ENTRY
Line S10952 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14920  M01S10952.242l642 ---|          RJM    RMD         RESET TO MASTER DEVICE
14921  M00S10953.pfm     +++|          LJM    0,P0        PROCESS COMMAND
14922  M00S10954.pfm     +++|          TITLE  COMMAND PROCESSING.
14923  M00S10955.pfm     +++| SDA      SPACE  4,10
14924  M00S10956.pfm     +++|***       PROCESS *SETDA* REQUEST.
14925  M00S10957.pfm     +++|*
14926  M00S10958.pfm     +++|*         SET THE DISK ADDRESS OF *FILE NAME* INTO THE CATALOG
14927  M00S10959.pfm     +++|*         ENTRY OF THE FILE SPECIFIED BY *PFID*.
14928  M00S10960.pfm     +++|
14929  M00S10961.pfm     +++|
14930  M00S10962.pfm     +++| SDA      BSS    0           ENTRY
14931  M00S10963.pfm     +++|          LDM    FCBS,CI
14932  M00S10964.pfm     +++|          SHN    21-13
14933  M00S10965.pfm     +++|          PJN    SDA1        IF NOT DIRECT ACCESS FILE
14934  M00S10966.pfm     +++|          LDM    FCBT,CI
14935  M00S10967.pfm     +++|          ZJN    SDA2        IF NO CURRENT DISK ADDRESS IN CATALOG
14936  M00S10968.pfm     +++| SDA1     ERROR  ICU         *INCORRECT CATALOG UPDATE.*
14937  M00S10969.pfm     +++|
14938  M00S10970.pfm     +++| SDA2     LDM    PFDN        SET DEVICE NUMBER
14939  M00S10971.pfm     +++|          STM    FCDN,CI
14940  M00S10972.pfm     +++|          LDD    FS+1        SET FIRST TRACK
14941  M00S10973.pfm     +++|          STM    FCBT,CI
14942  M00S10974.pfm     +++|          LDD    LF          SET FILE LENGTH
14943  M00S10975.pfm     +++|          STM    FCLF,CI
14944  M00S10976.pfm     +++|          LDD    LF+1
14945  M00S10977.pfm     +++|          STM    FCLF+1,CI
Line S10978 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
14946  M01S10978.253l688 ---|          LDM    FCAF,CI     CLEAR AFPDR AND AFVER FLAGS
14947  M01S10979.253l688 ---|          SCN    AFPDRM+AFVERM
Line S00391 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
14948  M01S00391.253l688 +++|          LDM    STAT
14949  M01S00392.253l688 +++|          LPK    STTA
14950  M01S00393.253l688 +++|          NJN    SDA3        IF TAPE ALTERNATE STORAGE REQUEST
14951  M01S00394.253l688 +++|          LDM    FCAF,CI     CLEAR *AFPDR*, *AFTMP* AND *AFVER* FLAGS
14952  M01S00395.253l688 +++|          SCN    AFPDRM+AFTMPM+AFVERM
14953  M00S10980.pfm     +++|          STM    FCAF,CI
Line S00396 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
14954  M01S00396.253l688 +++|          UJN    SDA4        UPDATE SYSTEM SECTOR
Line S10981 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14955  M01S10981.242l642 ---|          LDD    CB          REWRITE CATALOG
14956  M01S10982.242l642 ---|          RJM    WBI
14957  M00S10983.pfm     +++|
Line S00397 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
14958  M01S00397.253l688 +++| SDA3     LDM    FCTF,CI     CLEAR *TFVER* FLAG
14959  M01S00398.253l688 +++|          SCN    TFVERM
14960  M01S00399.253l688 +++|          STM    FCTF,CI
14961  M01S00400.253l688 +++|
14962  M00S10984.pfm     +++|*         ENTER *DEFINE* PROCESSING TO UPDATE SYSTEM SECTOR.
14963  M00S10985.pfm     +++|
Line S10986 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
14964  M01S10986.253l688 ---|          LCN    EP-CI       SET ADDRESS OF CATALOG ENTRY POINTER
Line S00401 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
14965  M01S00401.253l688 +++| SDA4     LCN    EP-CI       SET ADDRESS OF CATALOG ENTRY POINTER
14966  M00S10987.pfm     +++|          RAM    DEFA
Line S10988 Modification History
M01 (Removed by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
14967  M01S10988.pfm61   ---|          LDC    MMPF*5+2*5-1 CLEAR ONLY PART OF SYSTEM SECTOR
Line S00001 Modification History
M01 (Added by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
14968  M01S00001.pfm61   +++|          LDC    MMPF*5+2*5-1  CLEAR ONLY PART OF SYSTEM SECTOR
14969  M00S10989.pfm     +++|          STM    DEFB
14970  M00S10990.pfm     +++|          LDC    CASS
14971  M00S10991.pfm     +++|          STM    DEFC
Line S10992 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14972  M01S10992.242l642 ---|          UJN    DEF2        PROCESS SYSTEM SECTOR
Line S01232 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14973  M01S01232.242l642 +++|          LJM    DEF2        PROCESS SYSTEM SECTOR
Line S10993 Modification History
M01 (Removed by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
14974  M01S10993.pfm61   ---|
14975  M01S10994.pfm61   ---|*         RETURN LOCAL FILE AND TERMINATE.
14976  M01S10995.pfm61   ---|
14977  M01S10996.pfm61   ---| SDA5     LDN    0           RETURN FILE
14978  M01S10997.pfm61   ---|          STM    LOCF-1
14979  M01S10998.pfm61   ---|          EXECUTE  0DF,LOCF
Line S10999 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
14980  M02S10999.pfm61   ---|          LJM    TRP         TERMINATE PROGRAM
Line S01233 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
M03 (Removed by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
14981  M03S01233.pfm61   ---|          EXECUTE  3PT       TERMINATE PROGRAM
Line S00117 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
14982  M02S00117.pfm61   ---|          EXECUTE  3PU       TERMINATE PROGRAM
Line S11000 Modification History
M01 (Removed by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
14983  M01S11000.pfm61   ---| LOCF     SPACE  4,10
14984  M01S11001.pfm61   ---| LOCF     EQU    *+5         *0DF* LOAD ADDRESS
14985  M01S11002.pfm61   ---|          ERRNG  BFMS-LOCF-ZDFL        CHECK LENGTH OF *0DF*
14986  M00S11003.pfm     +++| DEF      SPACE  4,10
14987  M00S11004.pfm     +++|***       PROCESS *DEFINE* REQUEST.
14988  M00S11005.pfm     +++|*
14989  M00S11006.pfm     +++|*         MAKE THE FILE *FILE NAME* A DIRECT ACCESS PERMANENT FILE
14990  M00S11007.pfm     +++|*         WITH NAME *PF NAME*.
14991  M00S11008.pfm     +++|
14992  M00S11009.pfm     +++|
14993  M00S11010.pfm     +++| DEF      BSS    0           ENTRY
Line S01234 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14994  M01S01234.242l642 +++|          EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
14995  M00S11011.pfm     +++|          LDN    PSNI        BYPASS ALLOCATION OF IDLE SPACE
14996  M00S11012.pfm     +++|          STM    CCSB
14997  M00S11013.pfm     +++|          STM    CCSB+1
14998  M00S11014.pfm     +++|          STM    CCSC        FORCE CATALOG ENTRY FORMATION
Line S01235 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14999  M01S01235.242l642 +++|          STM    CCSF        BYPASS WRITING CATALOG ENTRY TO DISK
15000  M01S01236.242l642 +++|          STM    CCSF+1
15001  M01S01237.242l642 +++|          STM    CCSG        BYPASS WRITING CATALOG ENTRY TO DISK
15002  M01S01238.242l642 +++|          STM    CCSG+1
15003  M00S11015.pfm     +++|          RJM    CUC         CHECK USER CONTROLS
15004  M00S11016.pfm     +++|          LDM    PFDN        SET DEVICE NUMBER IN CATALOG ENTRY
15005  M00S11017.pfm     +++|          STM    FCEE
15006  M00S11018.pfm     +++|          LDN    0           CLEAR FILE LENGTH
15007  M00S11019.pfm     +++|          STD    LF
15008  M00S11020.pfm     +++|          STD    LF+1
15009  M00S11021.pfm     +++|          RJM    CCS         CREATE CATALOG SECTOR
Line S01239 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15010  M01S01239.242l642 +++|          ENDMS
15011  M00S11022.pfm     +++|
15012  M00S11023.pfm     +++|*         PROCESS SYSTEM SECTOR.
15013  M00S11024.pfm     +++|
Line S11025 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15014  M01S11025.242l642 ---| DEF2     ENDMS
15015  M01S11026.242l642 ---|          LDD    FS
Line S01240 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15016  M01S01240.242l642 +++| DEF2     LDD    FS
15017  M00S11027.pfm     +++|          STD    T5
Line S11028 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15018  M01S11028.242l642 ---|          SETMS  READ
Line S01241 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15019  M01S01241.242l642 +++|          SETMS  IO
15020  M01S01242.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
15021  M00S11029.pfm     +++|          LDD    CM+4        PRESET *COMPSEI*
15022  M00S11030.pfm     +++|          SHN    3
15023  M00S11031.pfm     +++|          ADN    TRLL
15024  M00S11032.pfm     +++|          RJM    CTA         CALCULATE FWA OF TRT
15025  M00S11033.pfm     +++|          SBD    TH
15026  M00S11034.pfm     +++|          STM    SEIA+1
15027  M00S11035.pfm     +++|          SHN    -14
15028  M00S11036.pfm     +++|          LMC    ADCI
15029  M00S11037.pfm     +++|          STM    SEIA
15030  M00S11038.pfm     +++|          LDD    FS+1        SET FIRST TRACK
15031  M00S11039.pfm     +++|          STD    T6
15032  M00S11040.pfm     +++|          LDM    LFEF
15033  M00S11041.pfm     +++|          ZJN    DEF3        IF NOT EMPTY FILE
15034  M00S11042.pfm     +++|          LJM    DEF7        PROCESS EMPTY FILE
15035  M00S11043.pfm     +++|
15036  M00S11044.pfm     +++|*         CHECK ENHANCED EOI DATA.
15037  M00S11045.pfm     +++|
15038  M00S11046.pfm     +++| DEF3     LDN    SSTL        CHECK FILE VALIDATION ENABLED
15039  M00S11047.pfm     +++|          CRD    CM
15040  M00S11048.pfm     +++|          LDD    CM
15041  M00S11049.pfm     +++|          SHN    21-4
15042  M00S11050.pfm     +++|          MJN    DEF4        IF VALIDATION NOT ENABLED
15043  M00S11051.pfm     +++|          RJM    SEI         READ EOI SECTOR
Line S11052 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15044  M01S11052.242l642 ---|          SETMS  READ
Line S01243 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15045  M01S01243.242l642 +++|          SETMS  IO
15046  M01S01244.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
15047  M00S11053.pfm     +++|          LDC    BFMS
15048  M00S11054.pfm     +++|          RJM    RDS
Line S11055 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15049  M01S11055.242l642 ---|          MJN    DEF6        IF READ ERROR
Line S01245 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15050  M01S01245.242l642 +++|          MJN    DEF5        IF READ ERROR
15051  M00S11056.pfm     +++|          LDD    FS+1        RESET FIRST TRACK
15052  M00S11057.pfm     +++|          STD    T6
Line S11058 Modification History
M01 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15053  M01S11058.ns2460  ---|          LMM    BFMS+FTEI   GET FIRST TRACK POINTER
Line S11059 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15054  M02S11059.ns2460  ---|          NJN    DEF5        IF BOI DOES NOT MATCH
Line S01246 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15055  M02S01246.ns2460  ---|          ZJN    DEF4        IF BOI MATCHES
Line S00005 Modification History
M01 (Added by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15056  M01S00005.ns2460  +++|          LMM    BFMS+FTEI   CHECK FIRST TRACK POINTER
15057  M01S00006.ns2460  +++|          ADM    BFMS        CHECK LINKAGE BYTES
15058  M01S00007.ns2460  +++|          ADM    BFMS+1
15059  M01S00008.ns2460  +++|          ZJN    DEF4        IF EOI SECTOR AND IF BOI POINTER MATCHES
Line S01247 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15060  M02S01247.ns2415  ---|          ERROR  FSE,,,FS    * FILE BOI/EOI/UI MISMATCH.*
Line S00135 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15061  M01S00135.ns2415  +++|          ERROR  FSE,,,FS    *EQXXX,DNYY, FILE BOI/EOI/UI MISMATCH.*
Line S01248 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15062  M01S01248.242l642 +++|
15063  M00S11060.pfm     +++| DEF4     LDN    0           IGNORE FILE NAME
15064  M00S11061.pfm     +++|          RJM    RSS         READ SYSTEM SECTOR
15065  M00S11062.pfm     +++|          ZJN    DEF7        IF LEGAL SYSTEM SECTOR
Line S11063 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15066  M01S11063.242l642 ---|          UJN    DEF6        *DIRECT ACCESS FILE ERROR.*
15067  M01S11064.242l642 ---|
15068  M01S11065.242l642 ---| DEF5     LDC    /ERRMSG/FSE*4  *FILE BOI/EOI/UI MISMATCH.*
15069  M01S11066.242l642 ---|          STM    DEFE
15070  M01S11067.242l642 ---| DEF6     RJM    PFE         PROCESS FILE ERROR
15071  M01S11068.242l642 ---| DEFE     EQU    *+3
Line S01249 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15072  M01S01249.242l642 +++|          MJN    DEF5        IF READ ERROR
15073  M00S11069.pfm     +++|          ERROR  DAF,,,FS    *EQXXX,DNYY, DIRECT ACCESS FILE ERROR.*
Line S01250 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15074  M01S01250.242l642 +++|
15075  M01S01251.242l642 +++| DEF5     RJM    PES         PROCESS ERROR STATUS
15076  M01S01252.242l642 +++|          ERROR  MSE,CH,,FS  *EQXXX,DNYY, MASS STORAGE ERROR.*
15077  M00S11070.pfm     +++|
15078  M00S11071.pfm     +++|*         CLEAR SYSTEM SECTOR BUFFER.
15079  M00S11072.pfm     +++|
15080  M00S11073.pfm     +++| DEF7     ENDMS
15081  M00S11074.pfm     +++|          LDC    77*5-1      CLEAR ENTIRE SYSTEM SECTOR
15082  M00S11075.pfm     +++|*         LDC    MMPF*5+2*5-1  (*SETDA* - CLEAR ONLY PART OF SECTOR)
15083  M00S11076.pfm     +++| DEFB     EQU    *-1
15084  M00S11077.pfm     +++|          STD    T1
15085  M00S11078.pfm     +++| DEF8     LDN    0
15086  M00S11079.pfm     +++|          STM    BFMS+2,T1
15087  M00S11080.pfm     +++|*         STM    CASS,T1     (*SETDA*)
15088  M00S11081.pfm     +++| DEFC     EQU    *-1
15089  M00S11082.pfm     +++|          SOD    T1
15090  M00S11083.pfm     +++|          PJN    DEF8        IF NOT END OF BUFFER
15091  M00S11084.pfm     +++|
15092  M00S11085.pfm     +++|*         ENTER CATALOG ENTRY INTO SYSTEM SECTOR.
15093  M00S11086.pfm     +++|
15094  M00S11087.pfm     +++| DEFA     LDD    EP          ADDRESS OF CATALOG ENTRY
15095  M00S11088.pfm     +++|*         LDD    CI          (IF *SETDA* REQUEST)
15096  M00S11089.pfm     +++|          STD    T1
15097  M00S11090.pfm     +++|          LDC    CTSS        ADDRESS IN SYSTEM SECTOR
15098  M00S11091.pfm     +++|          STD    T2
15099  M00S11092.pfm     +++|          LDC    NWCE*5
15100  M00S11093.pfm     +++|          STD    T3
15101  M00S11094.pfm     +++| DEF9     LDI    T1          TRANSFER ENTRY
15102  M00S11095.pfm     +++|          STI    T2
15103  M00S11096.pfm     +++|          AOD    T1
15104  M00S11097.pfm     +++|          AOD    T2
15105  M00S11098.pfm     +++|          SOD    T3          DECREMENT BYTE COUNT
15106  M00S11099.pfm     +++|          NJN    DEF9        IF MORE STATUS IN SYSTEM SECTOR
15107  M00S11100.pfm     +++|
15108  M00S11101.pfm     +++|*         INITIALIZE SYSTEM SECTOR FIELDS.
15109  M00S11102.pfm     +++|
15110  M00S11103.pfm     +++|          LDN    32          SET CURRENT ACCESS TO WRITE
15111  M00S11104.pfm     +++|          STM    CASS
15112  M00S11105.pfm     +++|          RJM    SUC         SET USER COUNTS IN SYSTEM SECTOR
15113  M00S11106.pfm     +++|          ENDMS
15114  M00S11107.pfm     +++|          LDN    PDTL        SET CURRENT DATE AND TIME
15115  M00S11108.pfm     +++|          CRM    WDSS,ON
15116  M00S11109.pfm     +++|          LDK    MMFL        GET MAINFRAME ID
15117  M00S11110.pfm     +++|          CRD    CM
15118  M00S11111.pfm     +++|          LDD    CM          SET MAINFRAME ID
15119  M00S11112.pfm     +++|          STM    WDSS
15120  M00S11113.pfm     +++|          LDD    CP          GET EJT ORDINAL
15121  M00S11114.pfm     +++|          ADN    TFSW
15122  M00S11115.pfm     +++|          CRD    CM
15123  M00S11116.pfm     +++|          SFA    EJT,CM      SET *JSNE* WORD OF EJT
15124  M00S11117.pfm     +++|          ADK    JSNE
15125  M00S11118.pfm     +++|          CRM    WJSS,ON
15126  M00S11119.pfm     +++|          LDD    FA          SET FNT ENTRY IN SYSTEM SECTOR
15127  M00S11120.pfm     +++|          STM    DEFD
15128  M00S11121.pfm     +++|          NFA    FA,R
15129  M00S11122.pfm     +++|          ADK    FNTL
15130  M00S11123.pfm     +++|          CRM    FNSS,ON
15131  M00S11124.pfm     +++|          LDN    0           CLEAR FST POINTER
15132  M00S11125.pfm     +++|          STD    FA
15133  M00S11126.pfm     +++|          LDM    FNSS+4      CHECK FILE TYPE
15134  M00S11127.pfm     +++|          SHN    -6
15135  M00S11128.pfm     +++|          LMN    PMFT
15136  M00S11129.pfm     +++|          ZJN    DEF10       IF FILE CREATED BY *ASSIGNPF*
15137  M00S11130.pfm     +++|          LDC    PMFT*100    SET PMFT
15138  M00S11131.pfm     +++|          STM    FNSS+4
Line S00002 Modification History
M01 (Added by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
15139  M01S00002.pfm61   +++|          AOM    DEFE        FORCE INCREMENT OF FILE COUNT
Line S11132 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15140  M01S11132.242l642 ---|          LDD    T5          UPDATE FILE COUNT
15141  M01S11133.242l642 ---|          STD    CM+1
15142  M01S11134.242l642 ---|          LDN    IUCS
15143  M01S11135.242l642 ---|          STD    CM+3
15144  M01S11136.242l642 ---|          MONITOR  STBM
15145  M00S11137.pfm     +++|
15146  M00S11138.pfm     +++|*         WRITE SYSTEM SECTOR.
15147  M00S11139.pfm     +++|
Line S11140 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15148  M01S11140.242l642 ---| DEF10    SETMS  WRITE,RW,BFMS
Line S01253 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15149  M01S01253.242l642 +++| DEF10    SETMS  IO,RW,BFMS
15150  M01S01254.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
15151  M00S11141.pfm     +++|          LDM    LFEF
15152  M00S11142.pfm     +++|          ZJN    DEF11       IF NOT EMPTY FILE
Line S11143 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15153  M01S11143.242l642 ---|          SETMS  WRITE,,BFMS
Line S01255 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15154  M01S01255.242l642 +++|          SETMS  IO,,BFMS
15155  M01S01256.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
15156  M00S11144.pfm     +++|          LDN    WCSF/10000&WLSF/10000  WRITE CONSECUTIVE SECTORS
15157  M00S11145.pfm     +++| DEF11    LMC    LDCI+WLSF/10000
15158  M00S11146.pfm     +++|          STM    WSSA
15159  M00S11147.pfm     +++|          RJM    WSS         WRITE SYSTEM SECTOR
Line S01257 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15160  M01S01257.242l642 +++|          MJN    DEF11.1     IF WRITE ERROR
15161  M00S11148.pfm     +++|          LDM    LFEF
15162  M00S11149.pfm     +++|          ZJN    DEF13       IF NOT EMPTY FILE
15163  M00S11150.pfm     +++|          RJM    WEI         WRITE EOI SECTOR
15164  M00S11151.pfm     +++|          PJN    DEF12       IF NO MASS STORAGE ERRORS
Line S11152 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15165  M01S11152.242l642 ---|          LJM    WSE         ISSUE ERROR MESSAGE
Line S01258 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15166  M01S01258.242l642 +++| DEF11.1  LJM    WSE         PROCESS WRITE ERROR
15167  M00S11153.pfm     +++|
Line S11154 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15168  M01S11154.242l642 ---| DEF12    LDD    FS+1        SET FILE STATUS REWOUND
Line S01259 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15169  M01S01259.242l642 +++| DEF12    ENDMS
15170  M01S01260.242l642 +++|          LDD    FS+1        SET FILE STATUS REWOUND
15171  M00S11155.pfm     +++|          STD    FS+2
15172  M00S11156.pfm     +++|          LDN    FSMS
15173  M00S11157.pfm     +++|          STD    FS+3
15174  M00S11158.pfm     +++|          LDN    4           SET OPERATION COMPLETE - FILE BUSY
15175  M00S11159.pfm     +++|          STD    FS+4
Line S01261 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15176  M01S01261.242l642 +++|          LDN    FSMS        SET LAST SECTOR WRITTEN
15177  M01S01262.242l642 +++|          RJM    DTK
15178  M00S11160.pfm     +++| DEF13    ENDMS
15179  M00S11161.pfm     +++|          LDN    SPFS        SET PRESERVED STATUS FOR DA FILE
15180  M00S11162.pfm     +++|          STD    CM+3
15181  M00S11163.pfm     +++|          LDD    T5
15182  M00S11164.pfm     +++|          LMC    4000        SET CHECKPOINT
15183  M00S11165.pfm     +++|          STD    CM+1
15184  M00S11166.pfm     +++|          LDD    T6
15185  M00S11167.pfm     +++|          STD    CM+2
15186  M00S11168.pfm     +++|          MONITOR STBM
Line S11169 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15187  M01S11169.242l642 ---|          LDM    LFEF
15188  M01S11170.242l642 ---|          ZJN    DEF14       IF NOT EMPTY FILE
15189  M01S11171.242l642 ---|          LDN    FSMS        SET LAST SECTOR WRITTEN
15190  M01S11172.242l642 ---|          RJM    DTK
15191  M01S11173.242l642 ---| DEF14    RJM    CCI         CLEAR CATALOG INTERLOCK
Line S01263 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15192  M01S01263.242l642 +++|          LDD    FS+1        SAVE PRESERVED TRACK
15193  M01S01264.242l642 +++|          STM    PTKT
15194  M01S01265.242l642 +++|
15195  M01S01266.242l642 +++|*         WRITE CATALOG ENTRY TO DISK.
15196  M01S01267.242l642 +++|
15197  M01S01268.242l642 +++|          LDD    EQ          SET MASTER EST ORDINAL
15198  M01S01269.242l642 +++|          STD    T5
15199  M01S01270.242l642 +++|          LDD    CC
15200  M01S01271.242l642 +++|          LMN    CCDF
15201  M01S01272.242l642 +++|          ZJN    DEF14       IF *DEFINE* REQUEST
15202  M01S01273.242l642 +++|          LDD    CB
15203  M01S01274.242l642 +++|          UJN    DEF15       WRITE CATALOG ENTRY TO DISK
15204  M01S01275.242l642 +++|
15205  M01S01276.242l642 +++| DEF14    LDD    EB
15206  M01S01277.242l642 +++| DEF15    RJM    WBI         WRITE CATALOG ENTRY TO DISK
15207  M01S01278.242l642 +++|          ENDMS
15208  M01S01279.242l642 +++|*         LDN    0           CLEAR PRESERVED TRACK
15209  M01S01280.242l642 +++|          STM    PTKT
15210  M01S01281.242l642 +++|          RJM    CCI         CLEAR CATALOG INTERLOCK
15211  M00S11174.pfm     +++|
Line S11175 Modification History
M01 (Removed by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
15212  M01S11175.pfm61   ---|*         SET FILE TYPE TO *PMFT*.
Line S00003 Modification History
M01 (Added by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
15213  M01S00003.pfm61   +++|*         UPDATE FNT ENTRY.
15214  M00S11176.pfm     +++|
15215  M00S11177.pfm     +++|          LDC    *           READ FNT
15216  M00S11178.pfm     +++| DEFD     EQU    *-1
15217  M00S11179.pfm     +++|          STD    FA
15218  M00S11180.pfm     +++|          NFA    FA,R
15219  M00S11181.pfm     +++|          ADK    FNTL
15220  M00S11182.pfm     +++|          CRD    FN
15221  M00S11183.pfm     +++|          ADN    FUTL-FNTL
15222  M00S11184.pfm     +++|          CRD    CM
15223  M00S11185.pfm     +++|          LDD    FN+4        SET *PMFT* FILE TYPE
15224  M00S11186.pfm     +++|          LPN    77
15225  M00S11187.pfm     +++|          ADC    PMFT*100
15226  M00S11188.pfm     +++|          STD    FN+4
15227  M00S11189.pfm     +++|          LDD    FN+3        CLEAR MODE BITS
15228  M00S11190.pfm     +++|          SCN    77
15229  M00S11191.pfm     +++|          STD    FN+3
15230  M00S11192.pfm     +++|          LDM    PFUC        SET *FS* INDEX IN *FUTL* WORD
15231  M00S11193.pfm     +++|          SHN    -11
15232  M00S11194.pfm     +++|          SHN    6
15233  M00S11195.pfm     +++|          ADM    LFAL        SET FILE ACCESS LEVEL
15234  M00S11196.pfm     +++|          STD    CM+2
15235  M00S11197.pfm     +++|          NFA    FA,R
15236  M00S11198.pfm     +++|          ADK    FNTL
15237  M00S11199.pfm     +++|          CWD    FN
15238  M00S11200.pfm     +++|          ADN    FSTL-FNTL
15239  M00S11201.pfm     +++|          CWD    FS
15240  M00S11202.pfm     +++|          ADN    FUTL-FSTL
15241  M00S11203.pfm     +++|          CWD    CM
Line S11204 Modification History
M01 (Removed by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
15242  M01S11204.pfm61   ---|          LDD    CC
15243  M01S11205.pfm61   ---|          LMN    CCDF
Line S11206 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
15244  M02S11206.pfm61   ---|          ZJN    DEF15       IF *DEFINE* REQUEST
Line S01282 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
15245  M02S01282.pfm61   ---|          ZJN    DEF16       IF *DEFINE* REQUEST
Line S11207 Modification History
M01 (Removed by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
15246  M01S11207.pfm61   ---|          LJM    SDA5        TERMINATE *SETDA* REQUEST
15247  M00S11208.pfm     +++|
Line S11209 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15248  M01S11209.242l642 ---| DEF15    LJM    TRP         TERMINATE PROGRAM
Line S01283 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
15249  M02S01283.pfm61   ---| DEF16    LDD    FS          INCREMENT FILE COUNT
Line S00004 Modification History
M01 (Added by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
15250  M01S00004.pfm61   +++|*         INCREMENT FILE COUNT (IF REQUIRED).
15251  M01S00005.pfm61   +++|
15252  M01S00006.pfm61   +++| DEFE     LDN    0
15253  M01S00007.pfm61   +++|*         LDN    1           (FILE COUNT INCREMENT REQUIRED)
15254  M01S00008.pfm61   +++|          ZJN    DEF16       IF FILE COUNT ALREADY INCREMENTED
15255  M01S00009.pfm61   +++|          LDD    FS          INCREMENT FILE COUNT
Line S01284 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15256  M01S01284.242l642 +++|          STD    CM+1
15257  M01S01285.242l642 +++|          LDN    IUCS
15258  M01S01286.242l642 +++|          STD    CM+3
Line S01287 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15259  M02S01287.253l688 ---|          MONITOR  STBM
Line S00402 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15260  M01S00402.253l688 +++|          MONITOR  SMDM
Line S01288 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15261  M02S01288.ns2414  ---|          EXECUTE  3PT       TERMINATE PROGRAM
Line S00118 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
15262  M02S00118.pfm61   ---|          EXECUTE  3PU       TERMINATE PROGRAM
Line S00010 Modification History
M01 (Added by) pfm61
Seq #  *Modification Id* Act 
----------------------------+
15263  M01S00010.pfm61   +++| DEF16    LDD    CC
15264  M01S00011.pfm61   +++|          LMN    CCDF
15265  M01S00012.pfm61   +++|          ZJN    DEF17       IF *DEFINE* REQUEST
15266  M01S00013.pfm61   +++|
15267  M01S00014.pfm61   +++|*         RETURN LOCAL FILE (*SETDA*).
15268  M01S00015.pfm61   +++|
15269  M01S00016.pfm61   +++|          LDN    0           RETURN FILE
15270  M01S00017.pfm61   +++|          STM    LOCF-1
15271  M01S00018.pfm61   +++|          EXECUTE  0DF,LOCF
15272  M01S00019.pfm61   +++| DEF17    EXECUTE  3PU       TERMINATE PROGRAM
15273  M01S00020.pfm61   +++| LOCF     SPACE  4,10
15274  M01S00021.pfm61   +++| LOCF     EQU    *+5         *0DF* LOAD ADDRESS
15275  M01S00022.pfm61   +++|          ERRNG  BFMS-LOCF-ZDFL        CHECK LENGTH OF *0DF*
15276  M00S11210.pfm     +++|          TITLE  SUBROUTINES.
15277  M00S11211.pfm     +++| CUC      SPACE  4,15
15278  M00S11212.pfm     +++|**        CUC - CHECK USER CONTROLS.
15279  M00S11213.pfm     +++|*
15280  M00S11214.pfm     +++|*         ENTRY  (MXNF) = NUMBER OF FILES ALLOWED.
15281  M00S11215.pfm     +++|*                (ACNF - ACNF+1) NUMBER OF FILES ACCUMULATED.
15282  M00S11216.pfm     +++|*                (MXDS - MXDS+1) MAXIMUM DIRECT ACCESS FILE SIZE.
15283  M00S11217.pfm     +++|*
15284  M00S11218.pfm     +++|*         MACROS ERROR.
15285  M00S11219.pfm     +++|
15286  M00S11220.pfm     +++|
15287  M00S11221.pfm     +++| CUC      SUBR               ENTRY/EXIT
15288  M00S11222.pfm     +++|          LDM    MXDS        CHECK FILE SIZE LIMIT
15289  M00S11223.pfm     +++|          ADM    MXDS+1
15290  M00S11224.pfm     +++|          ZJN    CUC2        IF UNLIMITED ACCESS
15291  M00S11225.pfm     +++|          LDM    MXDS        CHECK SIZE LIMITS
15292  M00S11226.pfm     +++|          SBD    LF
15293  M00S11227.pfm     +++|          MJN    CUC1        IF LIMIT EXCEEDED
15294  M00S11228.pfm     +++|          NJN    CUC2        IF LIMIT NOT EXCEEDED
15295  M00S11229.pfm     +++|          LDM    MXDS+1
15296  M00S11230.pfm     +++|          SBD    LF+1
15297  M00S11231.pfm     +++|          PJN    CUC2        IF LIMIT NOT EXCEEDED
15298  M00S11232.pfm     +++| CUC1     ERROR  FTL         * FILE TOO LONG.*
15299  M00S11233.pfm     +++|
15300  M00S11234.pfm     +++| CUC2     LDM    MXNF        CHECK FILE NUMBER LIMIT
15301  M00S11235.pfm     +++|          ZJN    CUCX        IF NO LIMIT SET
15302  M00S11236.pfm     +++|          LDD    NF
15303  M00S11237.pfm     +++|          SHN    14
15304  M00S11238.pfm     +++|          ADD    NF+1
15305  M00S11239.pfm     +++|          ADN    10          ROUND UP
15306  M00S11240.pfm     +++|          SHN    -3
15307  M00S11241.pfm     +++|          SBM    MXNF
15308  M00S11242.pfm     +++|          MJN    CUCX        IF LIMIT NOT EXCEEDED
15309  M00S11243.pfm     +++|          ZJN    CUCX        IF LIMIT NOT EXCEEDED
15310  M00S11244.pfm     +++|          ERROR  COF         * TOO MANY PERMANENT FILES.*
Line S11245 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15311  M01S11245.242l642 ---| PFE      SPACE  4,20
15312  M01S11246.242l642 ---|**        PFE - PROCESS FILE ERROR.
15313  M01S11247.242l642 ---|*
15314  M01S11248.242l642 ---|*         ENTRY  (T5) = EST ORDINAL FOR FILE.
15315  M01S11249.242l642 ---|*                (EQ) = EST ORDINAL FOR CATALOG.
15316  M01S11250.242l642 ---|*                (EB) = CATALOG BUFFER ADDRESS (*DEFINE*).
15317  M01S11251.242l642 ---|*                (EP) = CATALOG ENTRY ADDRESS (*DEFINE*).
15318  M01S11252.242l642 ---|*                (CB) = CATALOG BUFFER ADDRESS (*SETDA*).
15319  M01S11253.242l642 ---|*                (CI) = CATALOG ENTRY ADDRESS (*SETDA*).
15320  M01S11254.242l642 ---|*
15321  M01S11255.242l642 ---|*         EXIT   CATALOG ENTRY CLEARED (*DEFINE*).
15322  M01S11256.242l642 ---|*                DISK ADDRESS CLEARED / CATALOG REWRITTEN (*SETDA*).
15323  M01S11257.242l642 ---|*
15324  M01S11258.242l642 ---|*         USES   T5.
15325  M01S11259.242l642 ---|*
15326  M01S11260.242l642 ---|*         CALLS  WBI.
15327  M01S11261.242l642 ---|*
15328  M01S11262.242l642 ---|*         MACROS ENDMS, SETMS.
15329  M01S11263.242l642 ---|
15330  M01S11264.242l642 ---|
15331  M01S11265.242l642 ---| PFE      SUBR               ENTRY/EXIT
15332  M01S11266.242l642 ---|          ENDMS
15333  M01S11267.242l642 ---|          LDD    EQ          CHECK FOR FILE ON MASTER DEVICE
15334  M01S11268.242l642 ---|          STD    T5
15335  M01S11269.242l642 ---|          LDD    CC
15336  M01S11270.242l642 ---|          LMN    CCDF
15337  M01S11271.242l642 ---|          NJN    PFE1        IF NOT *DEFINE* REQUEST
15338  M01S11272.242l642 ---|*         LDN    0           CLEAR FILE LENGTH / USER INDEX
15339  M01S11273.242l642 ---|          STM    FCLF,EP
15340  M01S11274.242l642 ---|          STM    FCLF+1,EP
15341  M01S11275.242l642 ---|          STM    FCUI,EP
15342  M01S11276.242l642 ---|          STM    FCUI+1,EP
15343  M01S11277.242l642 ---|          LDD    EB
15344  M01S11278.242l642 ---|          UJN    PFE2        REWRITE CATALOG ENTRY
15345  M01S11279.242l642 ---|
15346  M01S11280.242l642 ---| PFE1     LDN    0           CLEAR DISK ADDRESS (*SETDA*)
15347  M01S11281.242l642 ---|          STM    FCBT,CI
15348  M01S11282.242l642 ---|          LDD    CB          REWRITE CATALOG ENTRY
15349  M01S11283.242l642 ---| PFE2     RJM    WBI
15350  M01S11284.242l642 ---|          UJN    PFEX        RETURN
15351  M00S11285.pfm     +++| SUC      SPACE  4,10
15352  M00S11286.pfm     +++|**        SUC - SET USER COUNTS IN SYSTEM SECTOR.
15353  M00S11287.pfm     +++|*
15354  M00S11288.pfm     +++|*         ENTRY  (BFMS - BFMS+500) - SYSTEM SECTOR.
15355  M00S11289.pfm     +++|*                (T5) = EST ORDINAL.
15356  M00S11290.pfm     +++|*
15357  M00S11291.pfm     +++|*         EXIT   LOCAL WRITE FLAG SET.
15358  M00S11292.pfm     +++|*
15359  M00S11293.pfm     +++|*         USES   T7.
15360  M00S11294.pfm     +++|*
15361  M00S11295.pfm     +++|*         CALLS  SMI.
15362  M00S11296.pfm     +++|
15363  M00S11297.pfm     +++|
15364  M00S11298.pfm     +++| SUC      SUBR               ENTRY/EXIT
15365  M00S11299.pfm     +++|          RJM    SMI         COMPUTE LOCAL USER COUNT BASE ADDRESS
15366  M00S11300.pfm     +++|          STD    T0
15367  M00S11301.pfm     +++|          SHN    2
15368  M00S11302.pfm     +++|          ADD    T0
15369  M00S11303.pfm     +++|          ADC    UCSS
15370  M00S11304.pfm     +++|          STD    T7
15371  M00S11305.pfm     +++|          AOI    T7
15372  M00S11306.pfm     +++|          UJN    SUCX        RETURN
Line S01289 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15373  M01S01289.242l642 +++| WSE      SPACE  4,20
15374  M01S01290.242l642 +++|**        WSE - WRITE MASS STORAGE ERROR PROCESSOR.
15375  M01S01291.242l642 +++|*
15376  M01S01292.242l642 +++|*         ENTRY  (FS - FS+4) = LOCAL FILE FST.
15377  M01S01293.242l642 +++|*                (LFEF) = 0 IF LOCAL FILE WRITTEN PREVIOUSLY.
15378  M01S01294.242l642 +++|*                (PWRF) = *PFM* RESTART FLAGS FOR RECALL.
15379  M01S01295.242l642 +++|*                (RDCT) = DRIVER STATUS.
15380  M01S01296.242l642 +++|*
15381  M01S01297.242l642 +++|*         EXIT   (PWRF) = *RFRR* FLAG SET IF REQUEST TO BE RETRIED
15382  M01S01298.242l642 +++|*                         DUE TO UNRECOVERABLE WRITE ERROR.
15383  M01S01299.242l642 +++|*                (RTKT) = RESERVED TRACK TO BE RELEASED IF REQUEST
15384  M01S01300.242l642 +++|*                         TO BE RETRIED.
15385  M01S01301.242l642 +++|*                TO *ERR* TO RETRY REQUEST OR ISSUE ERROR MESSAGE.
15386  M01S01302.242l642 +++|*
15387  M01S01303.242l642 +++|*         CALLS  PES.
15388  M01S01304.242l642 +++|*
15389  M01S01305.242l642 +++|*         MACROS ERROR.
15390  M01S01306.242l642 +++|
15391  M01S01307.242l642 +++|
15392  M01S01308.242l642 +++| WSE      BSS    0           ENTRY
15393  M01S01309.242l642 +++|          LDM    LFEF
15394  M01S01310.242l642 +++|          ZJN    WSE2        IF FILE WRITTEN PREVIOUSLY
15395  M01S01311.242l642 +++|          LDM    RDCT        DRIVER STATUS
15396  M01S01312.242l642 +++|          SHN    21-12
15397  M01S01313.242l642 +++|          PJN    WSE1        IF RECOVERABLE ERROR
15398  M01S01314.242l642 +++|          LDM    PWRF        CHECK RESTART FLAGS
15399  M01S01315.242l642 +++|          LPK    RFRR
15400  M01S01316.242l642 +++|          NJN    WSE3        IF REQUEST ALREADY RETRIED
15401  M01S01317.242l642 +++|          LDK    RFRR        SET RETRY REQUEST FLAG
15402  M01S01318.242l642 +++|          RAM    PWRF
15403  M01S01319.242l642 +++| WSE1     LDD    FS+1        SET RESERVED TRACK TO BE RELEASED
15404  M01S01320.242l642 +++|          STM    RTKT
15405  M01S01321.242l642 +++|          ERROR  RTR,CH      RETRY REQUEST
15406  M01S01322.242l642 +++|
15407  M01S01323.242l642 +++| WSE2     RJM    PES         PROCESS ERROR STATUS
15408  M01S01324.242l642 +++| WSE3     ERROR  MSE,CH,,FS  *EQXXX,DNYY, MASS STORAGE ERROR.*
15409  M00S11307.pfm     +++|          SPACE  4,10
15410  M00S11308.pfm     +++|*         COMMON DECKS.
15411  M00S11309.pfm     +++|
15412  M00S11310.pfm     +++|
15413  M00S11311.pfm     +++| EJT$     SET    0           DEFINE EJT ACCESS
15414  M00S11312.pfm     +++|*CALL     COMPGFP
15415  M00S11313.pfm     +++|*CALL     COMPRSS
15416  M00S11314.pfm     +++|*CALL     COMPSMI
15417  M00S11315.pfm     +++|*CALL     COMPWEI
15418  M00S11316.pfm     +++|*CALL     COMPWSS
Line S11317 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15419  M01S11317.242l642 ---| WSE      SPACE  4,10
15420  M01S11318.242l642 ---|**        WSE - WRITE SYSTEM SECTOR ERROR PROCESSING.
15421  M01S11319.242l642 ---|
15422  M01S11320.242l642 ---|
15423  M01S11321.242l642 ---| WSE      ERROR  MSE,,,FS    *EQXXX,DNYY, MASS STORAGE ERROR.*
15424  M00S11322.pfm     +++|          SPACE  4,10
15425  M00S11323.pfm     +++|*         CHECK OVERFLOW.
15426  M00S11324.pfm     +++|
15427  M00S11325.pfm     +++|
15428  M00S11326.pfm     +++|          OVERFLOW  OVLC,BUF1-2  OVERFLOW INTO CATALOG BUFFER
Line S11327 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15429  M01S11327.ns2414  ---|          OVERLAY  (DROPDS/DROPIDS/DELPFC/PERMIT/PURGE PROCESSING.)
Line S00119 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15430  M01S00119.ns2414  +++|          OVERLAY  (DROPDS/PURGE PROCESSING.)
15431  M00S11328.pfm     +++|          SPACE  4,10
Line S11329 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15432  M01S11329.ns2414  ---|**        THIS OVERLAY PROCESSES THE COMMANDS *DROPDS*, *DROPIDS*,
15433  M01S11330.ns2414  ---|*         *DELPFC*, *PERMIT* AND *PURGE*.
Line S00120 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15434  M01S00120.ns2414  +++|**        THIS OVERLAY PROCESSES THE COMMANDS *DROPDS* AND *PURGE*.
15435  M00S11331.pfm     +++|
15436  M00S11332.pfm     +++|
15437  M00S11333.pfm     +++| OVL      BSS    0           ENTRY
Line S11334 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15438  M01S11334.242l642 ---|          RJM    RMD         RESET TO MASTER DEVICE
Line S01325 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15439  M01S01325.242l642 +++|          LDD    EQ          RESET MASTER DEVICE EST ORDINAL
15440  M01S01326.242l642 +++|          STD    T5
15441  M00S11335.pfm     +++|          LJM    0,P0        PROCESS COMMAND
15442  M00S11336.pfm     +++|          TITLE  COMMAND PROCESSING.
15443  M00S11337.pfm     +++| DDS      SPACE  4,10
15444  M00S11338.pfm     +++|***       PROCESS *DROPDS* REQUEST.
15445  M00S11339.pfm     +++|*
15446  M00S11340.pfm     +++|*         DROP DISK SPACE FOR DIRECT ACCESS FILE.
15447  M00S11341.pfm     +++|
15448  M00S11342.pfm     +++|
Line S11343 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15449  M01S11343.ns2414  ---| DDS3     ERROR  FNF         *FILE NOT FOUND.*
Line S00121 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15450  M02S00121.253l688 ---| DDS3     ERROR  FIA         *FILE IS INDIRECT ACCESS.*
Line S00403 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15451  M01S00403.253l688 +++| DDS      BSS    0           ENTRY
15452  M00S11344.pfm     +++|
Line S11345 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15453  M01S11345.253l688 ---| DDS      BSS    0           ENTRY
15454  M01S11346.253l688 ---|          LDM    FCBS,CI
15455  M01S11347.253l688 ---|          SHN    21-13
15456  M01S11348.253l688 ---|          PJN    DDS3        IF NOT DIRECT ACCESS FILE
Line S00404 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15457  M01S00404.253l688 +++|*         CHECK FOR CARTRIDGE ALTERNATE STORAGE COPY OF FILE.
15458  M01S00405.253l688 +++|
15459  M00S11349.pfm     +++|          LDM    FCAA,CI
15460  M00S11350.pfm     +++|          ADM    FCAA+1,CI
15461  M00S11351.pfm     +++|          ADM    FCAA+2,CI
Line S11352 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15462  M01S11352.253l688 ---|          ZJN    DDS1        IF NO ALTERNATE STORAGE COPY OF FILE
Line S00406 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15463  M01S00406.253l688 +++|          ZJN    DDS1        IF NO CARTRIDGE ALTERNATE STORAGE COPY
15464  M00S11353.pfm     +++|          LDM    FCAF,CI
15465  M00S11354.pfm     +++|          LPN    AFOBSM
Line S11355 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15466  M01S11355.253l688 ---|          NJN    DDS1        IF ALTERNATE STORAGE COPY OBSOLETE
Line S00407 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15467  M01S00407.253l688 +++|          NJN    DDS1        IF COPY OBSOLETE
15468  M00S11356.pfm     +++|          LDM    FCAF,CI
15469  M00S11357.pfm     +++|          LPN    AFPDEM+AFPSEM
Line S11358 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15470  M01S11358.253l688 ---|          NJN    DDS2        IF ALTERNATE STORAGE ERROR FLAGS SET
15471  M01S11359.253l688 ---|          RJM    SCP         SAVE CATALOG PARAMETERS
Line S00408 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15472  M01S00408.253l688 +++|          ZJN    DDS2        IF NO ERROR FLAGS SET
15473  M01S00409.253l688 +++|          AOM    DDSA        SET *ERROR FLAG DETECTED* FLAG
15474  M01S00410.253l688 +++|
15475  M01S00411.253l688 +++|*         CHECK FOR TAPE ALTERNATE STORAGE COPY OF FILE.
15476  M01S00412.253l688 +++|
15477  M01S00413.253l688 +++| DDS1     LDM    FCTV,CI
15478  M01S00414.253l688 +++|          ADM    FCTV+1,CI
Line S00415 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
15479  M02S00415.ns2776  ---|          ZJP    DDS4        IF NO TAPE ALTERNATE STORAGE COPY OF FILE
Line S00076 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
15480  M01S00076.ns2776  +++|          ZJN    DDS1.2      IF NO TAPE ALTERNATE STORAGE COPY OF FILE
Line S00416 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15481  M01S00416.253l688 +++|          LDM    FCTF,CI     CHECK FOR ERRORS ON PRIMARY VSN
15482  M01S00417.253l688 +++|          LPK    TFPVNM+TFEPVM
15483  M01S00418.253l688 +++|          ZJN    DDS2        IF NO ERRORS ON PRIMARY VSN
15484  M01S00419.253l688 +++|          AOM    DDSA        SET *ERROR FLAG DETECTED* FLAG
15485  M01S00420.253l688 +++|          LDM    FCTF,CI
15486  M01S00421.253l688 +++|          LPK    TFSVSM
Line S00422 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
15487  M02S00422.ns2776  ---|          ZJP    DDS4        IF NO SECONDARY VSN COPY OF FILE
Line S00077 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
15488  M01S00077.ns2776  +++|          ZJN    DDS1.2      IF NO SECONDARY VSN COPY OF FILE
Line S00423 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15489  M01S00423.253l688 +++|          LDM    FCTF,CI
15490  M01S00424.253l688 +++|          LPK    TFSVNM+TFESVM
Line S00425 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
15491  M02S00425.ns2776  ---|          NJP    DDS5        IF ERRORS ON SECONDARY VSN
Line S00078 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
15492  M01S00078.ns2776  +++|          ZJN    DDS2        IF NO ERRORS ON SECONDARY VSN
15493  M01S00079.ns2776  +++|
15494  M01S00080.ns2776  +++| DDS1.1   ERROR  ASE         * ALTERNATE STORAGE ERROR.*
15495  M01S00081.ns2776  +++|
15496  M01S00082.ns2776  +++| DDS1.2   LDN    0           CHECK FOR ERRORS
15497  M01S00083.ns2776  +++|*         LDN    1           (ALTERNATE STORAGE ERROR DETECTED)
15498  M01S00084.ns2776  +++| DDSA     EQU    *-1
15499  M01S00085.ns2776  +++|          NJN    DDS1.1      IF ALTERNATE STORAGE ERRORS DETECTED
15500  M01S00086.ns2776  +++|          ERROR  AIO         * NO ALTERNATE STORAGE COPY OF FILE.*
Line S00426 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15501  M01S00426.253l688 +++|
15502  M01S00427.253l688 +++|*         RELEASE DISK SPACE FOR FILE.
15503  M01S00428.253l688 +++|
15504  M01S00429.253l688 +++| DDS2     RJM    SCP         SAVE CATALOG PARAMETERS
15505  M00S11360.pfm     +++|          LDN    0           CLEAR DISK ADDRESS
15506  M00S11361.pfm     +++|          STM    FCBT,CI
Line S11362 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15507  M01S11362.253l688 ---|          LDM    FCEC,CI     CLEAR DISK-RELATED ERROR FIELD
15508  M01S11363.253l688 ---|          LPN    77
Line S00430 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15509  M01S00430.253l688 +++|          LDM    FCDN,CI     SAVE DEVICE NUMBER
15510  M01S00431.253l688 +++|          STM    SDDA+1
15511  M01S00432.253l688 +++|          LDC    LDCI
15512  M01S00433.253l688 +++|          STM    SDDA
15513  M01S00434.253l688 +++|          LDN    0           CLEAR DN AND DISK-RELATED ERRORS
15514  M00S11364.pfm     +++|          STM    FCEC,CI
Line S11365 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15515  M01S11365.242l642 ---|          LDD    CB          REWRITE CATALOG ENTRY
15516  M01S11366.242l642 ---|          RJM    WBI
15517  M01S11367.242l642 ---|          ENDMS
Line S11368 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15518  M01S11368.253l688 ---|          RJM    DDF         DELETE DIRECT ACCESS FILE
Line S00435 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15519  M01S00435.253l688 +++|          ERRNZ  FCDN-FCEC   CODE DEPENDS ON VALUE
15520  M01S00436.253l688 +++|          LDM    FCLF,CI     CHECK IF LENGTH IS SET IN PFC
15521  M01S00437.253l688 +++|          ADM    FCLF+1,CI
15522  M01S00438.253l688 +++|          NJN    DDS3        IF LENGTH PRESENT
15523  M01S00439.253l688 +++|          AOM    DDFA        FORCE LENGTH CALCULATION
15524  M01S00440.253l688 +++|          AOM    DDFD
15525  M01S00441.253l688 +++| DDS3     RJM    DDF         DELETE DIRECT ACCESS FILE
15526  M00S11369.pfm     +++|          LJM    TRP         TERMINATE PROGRAM
Line S11370 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
15527  M01S11370.ns2776  ---|
Line S11371 Modification History
M01 (Removed by) 253l688
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
15528  M02S11371.ns2776  ---| DDS1     ERROR  AIO         *ALTERNATE IMAGE OBSOLETE.*
Line S00442 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
15529  M02S00442.ns2776  ---| DDS4     LDN    0           CHECK FOR ERRORS
15530  M02S00443.ns2776  ---|*         LDN    1           (ALTERNATE STORAGE ERROR DETECTED)
15531  M02S00444.ns2776  ---| DDSA     EQU    *-1
15532  M02S00445.ns2776  ---|          NJN    DDS5        IF ALTERNATE STORAGE ERRORS DETECTED
15533  M02S00446.ns2776  ---|          ERROR  AIO         * NO ALTERNATE STORAGE COPY OF FILE.*
Line S11372 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
15534  M01S11372.ns2776  ---|
Line S11373 Modification History
M01 (Removed by) 253l688
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
15535  M02S11373.ns2776  ---| DDS2     ERROR  ASE         *ALTERNATE STORAGE ERROR.*
Line S00447 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
15536  M02S00447.ns2776  ---| DDS5     ERROR  ASE         * ALTERNATE STORAGE ERROR.*
Line S11374 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15537  M01S11374.ns2414  ---| DIS      SPACE  4,10
15538  M01S11375.ns2414  ---|***       PROCESS *DROPIDS* REQUEST.
15539  M01S11376.ns2414  ---|*
15540  M01S11377.ns2414  ---|*         DROP INDIRECT ACCESS FILE DISK SPACE.
15541  M01S11378.ns2414  ---|
15542  M01S11379.ns2414  ---|
15543  M01S11380.ns2414  ---| DIS      BSS    0           ENTRY
Line S01327 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15544  M02S01327.ns2414  ---|          EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
Line S11381 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15545  M01S11381.ns2414  ---|          LDN    PSNI        BYPASS SPACE ALLOCATION IN *CCS*
15546  M01S11382.ns2414  ---|          STM    CCSB
15547  M01S11383.ns2414  ---|          STM    CCSB+1
15548  M01S11384.ns2414  ---|          ISTORE FCEL,(UJN FCE7.1) BYPASS DATE/TIME UPDATES IN *FCE*
15549  M01S11385.ns2414  ---|          RJM    CCS         CREATE NEW CATALOG ENTRY FOR FILE
15550  M01S11386.ns2414  ---|          RJM    DCE         RELEASE IAPF FILE SPACE
Line S11387 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15551  M02S11387.ns2414  ---|          NJN    DIS1        IF FILE DELINKED OR AT END OF CHAIN
Line S01328 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15552  M02S01328.ns2414  ---|          NJN    DIS3        IF FILE DELINKED OR AT END OF CHAIN
Line S11388 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15553  M01S11388.ns2414  ---|          LDD    EB
15554  M01S11389.ns2414  ---|          LMD    HB
15555  M01S11390.ns2414  ---|          ZJN    DIS1        IF END BUFFER SAME AS HOLE BUFFER OR
15556  M01S11391.ns2414  ---|*                            IF END BUFFER NOT REWRITTEN
15557  M01S11392.ns2414  ---|          LDD    EB
15558  M01S11393.ns2414  ---|          LMD    CB
15559  M01S11394.ns2414  ---|          ZJN    DIS2        IF CATALOG ENTRY IN SAME BUFFER AS END
15560  M01S11395.ns2414  ---| DIS1     LDD    CB
15561  M01S11396.ns2414  ---|          RJM    WBI         WRITE CATALOG ENTRY
15562  M01S11397.ns2414  ---| DIS2     ENDMS
Line S11398 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15563  M02S11398.ns2414  ---|          LJM    TRPX        EXIT
Line S01329 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15564  M02S01329.ns2414  ---| DIS3     LJM    TRP         TERMINATE PROGRAM
Line S11399 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15565  M01S11399.ns2414  ---| DPF      SPACE  4,10
15566  M01S11400.ns2414  ---|***       PROCESS *DELPFC* REQUEST.
15567  M01S11401.ns2414  ---|*
15568  M01S11402.ns2414  ---|*         DELETE INDIRECT ACCESS FILE PFC ENTRY, AND DROP ASSOCIATED
15569  M01S11403.ns2414  ---|*         DISK SPACE.  THIS REQUEST IS MADE ONLY TO DELETE THE ORIGINAL
15570  M01S11404.ns2414  ---|*         PFC LEFT OVER FROM AN *APPEND*, AFTER A CPU TRANSFER HAS BEEN
15571  M01S11405.ns2414  ---|*         PERFORMED ON THAT MACHINE.
15572  M01S11406.ns2414  ---|
15573  M01S11407.ns2414  ---|
15574  M01S11408.ns2414  ---| DPF      BSS    0           ENTRY
Line S01330 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15575  M02S01330.ns2414  ---|          EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
Line S11409 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15576  M01S11409.ns2414  ---|          RJM    DCE         DELETE CATALOG ENTRY
Line S01331 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15577  M02S01331.ns2414  ---|          NJN    DPF1        IF FILE DELINKED OR AT END OF CHAIN
Line S11410 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15578  M01S11410.ns2414  ---|          LDD    CB          REWRITE CATALOG ENTRY
15579  M01S11411.ns2414  ---|          RJM    WBI
15580  M01S11412.ns2414  ---|          ENDMS
Line S11413 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15581  M02S11413.ns2414  ---|          LJM    TRPX        EXIT (CLEAR CATALOG TRACK INTERLOCK)
Line S01332 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15582  M02S01332.ns2414  ---| DPF1     LJM    TRP         TERMINATE PROGRAM
Line S11414 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15583  M01S11414.ns2414  ---| PER      SPACE  4,10
15584  M01S11415.ns2414  ---|***       PROCESS *PERMIT* REQUEST.
15585  M01S11416.ns2414  ---|*
15586  M01S11417.ns2414  ---|*         CREATE PERMISSION *M* FOR USER *OUAN* TO ACCESS FILE
15587  M01S11418.ns2414  ---|*         *PF NAME*.
15588  M01S11419.ns2414  ---|
15589  M01S11420.ns2414  ---|
15590  M01S11421.ns2414  ---| PER      BSS    0           ENTRY
15591  M01S11422.ns2414  ---|          LDD    RI
15592  M01S11423.ns2414  ---|          ADD    RI+1
15593  M01S11424.ns2414  ---|          ZJN    PER1        IF NO PERMIT RANDOM INDEX
15594  M01S11425.ns2414  ---|          LDD    PP
15595  M01S11426.ns2414  ---|          ZJN    PER1        IF PERMIT NOT FOUND
15596  M01S11427.ns2414  ---|          RJM    UEP         UPDATE EXISTING PERMIT
15597  M01S11428.ns2414  ---|          UJN    PER2        UPDATE CATALOG ENTRY
15598  M01S11429.ns2414  ---|
15599  M01S11430.ns2414  ---|*         CREATE PERMIT ENTRY.
15600  M01S11431.ns2414  ---|
15601  M01S11432.ns2414  ---| PER1     LDM    EXPC        GET EXPLICIT PERMIT COUNT
15602  M01S11433.ns2414  ---|          SBK    PMLM
15603  M01S11434.ns2414  ---|          PJN    PER3        IF PERMIT LIMIT EXCEEDED
15604  M01S11435.ns2414  ---|          LDN    0           SET EXPLICIT PERMIT OPTION
15605  M01S11436.ns2414  ---|          STM    SAPF
15606  M01S11437.ns2414  ---|          STM    IACP
Line S01333 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15607  M02S01333.ns2414  ---|          EXECUTE  3PE       LOAD PERMIT UPDATE ROUTINES
Line S11438 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15608  M01S11438.ns2414  ---|          RJM    CPE         CREATE PERMIT ENTRY
15609  M01S11439.ns2414  ---| PER2     RJM    WCE         REWRITE CATALOG ENTRY
Line S11440 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15610  M02S11440.ns2414  ---|          LJM    TRPX        TERMINATE REQUEST
Line S01334 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15611  M02S01334.ns2414  ---|          LJM    TRP         TERMINATE PROGRAM
Line S11441 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15612  M01S11441.ns2414  ---|
15613  M01S11442.ns2414  ---|*         PROCESS PERMIT LIMIT.
15614  M01S11443.ns2414  ---|
15615  M01S11444.ns2414  ---| PER3     ERROR  PLE         * PERMIT LIMIT EXCEEDED.*
15616  M00S11445.pfm     +++| PUR      SPACE  4,10
15617  M00S11446.pfm     +++|***       PROCESS *PURGE* REQUEST.
15618  M00S11447.pfm     +++|*
15619  M00S11448.pfm     +++|*         REMOVE PERMANENT FILE *PF NAME* FROM PERMANENT FILE SYSTEM.
15620  M00S11449.pfm     +++|*
15621  M00S11450.pfm     +++|*         AN INDIRECT ACCESS FILE WHICH DOES NOT HAVE A DISK RESIDENT
15622  M00S11451.pfm     +++|*         COPY IS TREATED THE SAME AS A DIRECT ACCESS FILE WHICH
15623  M00S11452.pfm     +++|*         DOES NOT HAVE A DISK IMAGE.
15624  M00S11453.pfm     +++|
15625  M00S11454.pfm     +++|
15626  M00S11455.pfm     +++| PUR      BSS    0           ENTRY
15627  M00S11456.pfm     +++|          LDM    FCBS,CI
15628  M00S11457.pfm     +++|          SHN    6
Line S11458 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
15629  M01S11458.pfm54   ---|          MJN    PUR2        IF DIRECT ACCESS FILE
Line S00162 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
15630  M01S00162.pfm54   +++|          MJP    PUR2        IF DIRECT ACCESS FILE
15631  M00S11459.pfm     +++|          LDM    FCBT,CI     CHECK IF DISK RESIDENT
15632  M00S11460.pfm     +++|          NJN    PUR1        IF DISK RESIDENT INDIRECT ACCESS FILE
15633  M00S11461.pfm     +++|          LDC    4000        MARK ENTRY AS DAPF HOLE
15634  M00S11462.pfm     +++|          STM    FCBS,CI
15635  M00S11463.pfm     +++|          UJN    PUR2        PROCESS AS IF DIRECT ACCESS FILE
15636  M00S11464.pfm     +++|
Line S11465 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15637  M01S11465.242l642 ---| PUR1     RJM    DCE         RELEASE IAPF FILE SPACE
Line S01335 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15638  M01S01335.242l642 +++| PUR1     EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
Line S00163 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
15639  M01S00163.pfm54   +++|          RJM    IIA         INTERLOCK INDIRECT ALLOCATION
15640  M01S00164.pfm54   +++|          LDK    STNS        SET *NO JOB SUSPENSION* AFTER THIS POINT
15641  M01S00165.pfm54   +++|          RAM    STAT
Line S01336 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15642  M01S01336.242l642 +++|          RJM    DCE         RELEASE IAPF FILE SPACE
Line S01337 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
15643  M02S01337.pfm54   ---|          NJN    PUR1.1      IF FILE DELINKED OR AT END OF CHAIN
Line S00166 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
15644  M01S00166.pfm54   +++|          ZJN    PUR1.1      IF FILE WITHIN CHAIN AND NO DELINK
15645  M01S00167.pfm54   +++|          RJM    CIA         CLEAR INDIRECT ALLOCATION INTERLOCK
15646  M01S00168.pfm54   +++|          UJN    TRP         TERMINATE PROGRAM
15647  M01S00169.pfm54   +++|
15648  M01S00170.pfm54   +++| PUR1.1   RJM    CIA         CLEAR INDIRECT ALLOCATION INTERLOCK
15649  M00S11466.pfm     +++|          LDD    CB          REWRITE CATALOG ENTRY
15650  M00S11467.pfm     +++|          RJM    WBI
15651  M00S11468.pfm     +++|          ENDMS
Line S11469 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15652  M01S11469.242l642 ---|          LJM    TRPX        EXIT
Line S01338 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
15653  M02S01338.pfm54   ---| PUR1.1   UJN    TRP         TERMINATE PROGRAM
Line S00171 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
15654  M01S00171.pfm54   +++|          UJN    TRP         TERMINATE PROGRAM
15655  M00S11470.pfm     +++|
15656  M00S11471.pfm     +++| PUR2     RJM    SCP         SAVE CATALOG PARAMETERS
15657  M00S11472.pfm     +++|          LDN    0           CLEAR FILE LENGTH
15658  M00S11473.pfm     +++|          STM    FCLF,CI
15659  M00S11474.pfm     +++|          STM    FCLF+1,CI
15660  M00S11475.pfm     +++|          STM    FCUI+1,CI   CLEAR USER INDEX
15661  M00S11476.pfm     +++|          LDM    FCUI,CI
15662  M00S11477.pfm     +++|          SCN    77
15663  M00S11478.pfm     +++|          STM    FCUI,CI
Line S11479 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15664  M01S11479.242l642 ---|          RJM    WCE         REWRITE CATALOG ENTRY
15665  M01S11480.242l642 ---|          RJM    DDF         DELETE DIRECT ACCESS FILE
15666  M01S11481.242l642 ---|          LJM    TRP
Line S01339 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15667  M01S01339.242l642 +++|          RJM    DDF         DELETE DIRECT ACCESS FILE
15668  M01S01340.242l642 +++|          UJN    TRP         TERMINATE PROGRAM
15669  M01S01341.242l642 +++|          SPACE  4,10
15670  M01S01342.242l642 +++|**        TRP - TERMINATE PROGRAM.
15671  M01S01343.242l642 +++|
15672  M01S01344.242l642 +++|
Line S01345 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15673  M02S01345.ns2414  ---| TRP      EXECUTE  3PT       TERMINATE PROGRAM
Line S00122 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
15674  M01S00122.ns2414  +++| TRP      EXECUTE  3PU       TERMINATE PROGRAM
15675  M00S11482.pfm     +++|          TITLE  SUBROUTINES.
15676  M00S11483.pfm     +++| DDF      SPACE  4,10
15677  M00S11484.pfm     +++|**        DDF - DELETE DIRECT ACCESS FILE.
15678  M00S11485.pfm     +++|*
15679  M00S11486.pfm     +++|*         READ SYSTEM SECTOR AND EITHER PURGE FILE OR SET PURGE
15680  M00S11487.pfm     +++|*         STATUS IN SYSTEM SECTOR (IF FILE CURRENTLY ACTIVE).
Line S01346 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15681  M01S01346.242l642 +++|*         RELEASE THE CATALOG ENTRY FOR THE FILE.
15682  M00S11488.pfm     +++|*
Line S11489 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15683  M01S11489.242l642 ---|*         CALLS  CCI, CTA, CTI, ITF, RDS, RSS, SDN, WSS.
Line S01347 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15684  M01S01347.242l642 +++|*         CALLS  CTA, CTI, ITC, PDV, RDS, RSS, SDD, SEI, WCB, WSS.
15685  M00S11490.pfm     +++|*
15686  M00S11491.pfm     +++|*         MACROS ENDMS, ERROR, SETMS, SFA.
15687  M00S11492.pfm     +++|
15688  M00S11493.pfm     +++|
15689  M00S11494.pfm     +++| DDF      SUBR               ENTRY/EXIT
Line S11495 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15690  M01S11495.242l642 ---|          RJM    CCI         CLEAR CATALOG INTERLOCK
15691  M01S11496.242l642 ---|          LDM    FCDN,CI     CHECK DEVICE NUMBER
15692  M01S11497.242l642 ---|          ZJN    DDF1        IF MASTER DEVICE
15693  M01S11498.242l642 ---|
15694  M01S11499.242l642 ---|*         PROCESS FILE ON ALTERNATE DEVICE.
15695  M01S11500.242l642 ---|
15696  M01S11501.242l642 ---|          STD    CM
15697  M01S11502.242l642 ---|          LDM    PFPN+4      SET FAMILY EST ORDINAL
15698  M01S11503.242l642 ---|          RJM    SDN         SEARCH FOR DEVICE NUMBER
15699  M01S11504.242l642 ---|          PJN    DDF1        IF DEVICE FOUND
15700  M01S11505.242l642 ---|          ERROR  DAD,CH,IW   *DIRECT ACCESS DEVICE ERROR.*
Line S01348 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15701  M01S01348.242l642 +++|          RJM    SDD         SEARCH FOR DIRECT ACCESS DEVICE
15702  M01S01349.242l642 +++|          ZJN    DDF1        IF DEVICE FOUND
15703  M01S01350.242l642 +++|          RJM    WCB         REWRITE CATALOG BUFFER
15704  M01S01351.242l642 +++|          ERROR  DAD,CH,IW   * DIRECT ACCESS DEVICE ERROR.*
15705  M00S11506.pfm     +++|
15706  M00S11507.pfm     +++|*         PERFORM BOI/EOI VALIDATION.
15707  M00S11508.pfm     +++|
Line S11509 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15708  M01S11509.242l642 ---| DDF1     LDC    *           SET FILE INTERLOCK
15709  M01S11510.242l642 ---| DDFA     EQU    *-1         (FIRST TRACK FOR FILE)
15710  M01S11511.242l642 ---|          ZJN    DDFX        IF FILE NOT DISK RESIDENT
15711  M01S11512.242l642 ---|          RJM    ITF         INTERLOCK TRACK CHAIN FOR FILE
15712  M01S11513.242l642 ---|          SETMS  READ
Line S01352 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15713  M01S01352.242l642 +++| DDF1     LDM    PFFT        FIRST TRACK
Line S01353 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15714  M02S01353.ns2415  ---|          NJN    DDF1.1      IF FILE DISK RESIDENT
Line S00136 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15715  M01S00136.ns2415  +++|          NJN    DDF2        IF FILE DISK RESIDENT
Line S01354 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15716  M01S01354.242l642 +++|          RJM    WCB         REWRITE CATALOG BUFFER
15717  M01S01355.242l642 +++|          UJN    DDFX        RETURN
15718  M01S01356.242l642 +++|
Line S01357 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15719  M02S01357.ns2415  ---| DDF1.1   RJM    ITC         INTERLOCK TRACK CHAIN FOR FILE
15720  M02S01358.ns2415  ---|          AOM    DAIF        SET INTERLOCK FLAG
Line S00137 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15721  M01S00137.ns2415  +++| DDF2     RJM    ITC         INTERLOCK TRACK CHAIN FOR FILE
15722  M01S00138.ns2415  +++|          ZJN    DDF3        IF INTERLOCK SUCCESSFUL
15723  M01S00139.ns2415  +++|          RJM    WCB         REWRITE CATALOG BUFFER
15724  M01S00140.ns2415  +++|          EXIT   TNR,CH,IW,T5,EC7  *EQXXX,DNYY, TRACK NOT RESERVED.*
15725  M01S00141.ns2415  +++|
15726  M01S00142.ns2415  +++| DDF3     AOM    DAIF        SET INTERLOCK FLAG
Line S01359 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15727  M01S01359.242l642 +++|          SETMS  IO
15728  M01S01360.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
15729  M00S11514.pfm     +++|          LDN    SSTL        CHECK FILE VALIDATION ENABLED
15730  M00S11515.pfm     +++|          CRD    CM
15731  M00S11516.pfm     +++|          LDD    CM
15732  M00S11517.pfm     +++|          LPN    20
15733  M00S11518.pfm     +++|          LMN    20
Line S11519 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15734  M01S11519.ns2415  ---|          ZJP    DDF2        IF VALIDATION NOT ENABLED
Line S00143 Modification History
M01 (Added by) ns2415
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15735  M02S00143.253l688 ---|          ZJP    DDF4        IF VALIDATION NOT ENABLED
Line S11520 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15736  M01S11520.253l688 ---|          SFA    EST,T5      GET EST ENTRY
Line S00448 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15737  M01S00448.253l688 +++|          STM    DDFE+1      SAVE VALIDATION VALUE
15738  M01S00449.253l688 +++|          NJN    DDF3.1      IF VALIDATION ENABLED
15739  M01S00450.253l688 +++| DDFA     LDN    0
15740  M01S00451.253l688 +++|*         LDN    1           (LENGTH UPDATE REQUIRED)
15741  M01S00452.253l688 +++|          NJN    DDF3.1      IF LENGTH UPDATE REQUIRED
15742  M01S00453.253l688 +++|          LJM    DDF4        SKIP VALIDATION
15743  M01S00454.253l688 +++|
15744  M01S00455.253l688 +++| DDF3.1   SFA    EST,T5      GET EST ENTRY
15745  M00S11521.pfm     +++|          ADK    EQDE
15746  M00S11522.pfm     +++|          CRD    CM
15747  M00S11523.pfm     +++|          LDD    CM+4        SETUP *COMPSEI*
15748  M00S11524.pfm     +++|          SHN    3
15749  M00S11525.pfm     +++|          ADN    TRLL
15750  M00S11526.pfm     +++|          RJM    CTA         CALCULATE FWA OF TRT
15751  M00S11527.pfm     +++|          SBD    TH
15752  M00S11528.pfm     +++|          STM    SEIA+1
15753  M00S11529.pfm     +++|          SHN    -14
15754  M00S11530.pfm     +++|          LMC    ADCI
15755  M00S11531.pfm     +++|          STM    SEIA
Line S11532 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15756  M01S11532.253l688 ---|          RJM    SEI         READ EOI SECTOR
Line S11533 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15757  M02S11533.253l688 ---|          SETMS  READ
Line S01361 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15758  M02S01361.253l688 ---|          SETMS  IO
Line S00456 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15759  M01S00456.253l688 +++|          RJM    SEI         POSITION TO EOI SECTOR
15760  M01S00457.253l688 +++| DDFD     LDN    0
15761  M01S00458.253l688 +++|*         LDN    1           (LENGTH UPDATE REQUIRED)
15762  M01S00459.253l688 +++|          ZJN    DDF3.2      IF LENGTH UPDATE NOT REQUIRED
15763  M01S00460.253l688 +++|          LDD    T2          SET LENGTH IN PFC
15764  M01S00461.253l688 +++|          STM    FCLF,CI
15765  M01S00462.253l688 +++|          LDD    T3
15766  M01S00463.253l688 +++|          STM    FCLF+1,CI
15767  M01S00464.253l688 +++| DDFE     LDC    0
15768  M01S00465.253l688 +++|*         LDC    20          (VALIDATION REQUIRED)
15769  M01S00466.253l688 +++|          ZJN    DDF4        IF VALIDATION NOT REQUIRED
15770  M01S00467.253l688 +++|
15771  M01S00468.253l688 +++| DDF3.2   SETMS  IO
Line S01362 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15772  M01S01362.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
15773  M00S11534.pfm     +++|          LDC    BFMS
15774  M00S11535.pfm     +++|          RJM    RDS
Line S11536 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15775  M01S11536.ns2415  ---|          MJN    DDF4        IF READ ERROR
Line S00144 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15776  M01S00144.ns2415  +++|          MJN    DDF6        IF READ ERROR
Line S11537 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15777  M01S11537.242l642 ---|          LDM    DDFA        RESET FIRST TRACK
Line S01363 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15778  M01S01363.242l642 +++|          LDM    PFFT        RESET FIRST TRACK
15779  M00S11538.pfm     +++|          STD    T6
15780  M00S11539.pfm     +++|          LMM    BFMS+FTEI   CHECK FIRST TRACK POINTER
Line S11540 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15781  M01S11540.ns2415  ---| DDF2     ZJN    DDF3        IF BOI MATCHES
15782  M01S11541.ns2415  ---|          AOM    DDFD        FLAG FILE ERROR
Line S00145 Modification History
M01 (Added by) ns2415
M02 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15783  M02S00145.ns2460  ---| DDF4     ZJN    DDF5        IF BOI MATCHES
Line S00009 Modification History
M01 (Added by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15784  M01S00009.ns2460  +++|          ADM    BFMS        CHECK LINKAGE BYTES
15785  M01S00010.ns2460  +++|          ADM    BFMS+1
15786  M01S00011.ns2460  +++| DDF4     ZJN    DDF5        IF EOI SECTOR AND IF BOI POINTER MATCHES
Line S00146 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15787  M01S00146.ns2415  +++|          LJM    DDF10       PROCESS BOI/EOI ERROR
15788  M00S11542.pfm     +++|
15789  M00S11543.pfm     +++|*         READ SYSTEM SECTOR.
15790  M00S11544.pfm     +++|
Line S11545 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15791  M01S11545.ns2415  ---| DDF3     LDN    0           IGNORE FILE NAME
Line S00147 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15792  M01S00147.ns2415  +++| DDF5     LDN    0           IGNORE FILE NAME
15793  M00S11546.pfm     +++|          RJM    RSS
Line S11547 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15794  M01S11547.ns2415  ---|          ZJN    DDF5        IF LEGAL SYSTEM SECTOR
Line S11548 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15795  M02S11548.ns2415  ---| DDF4     LDM    DDFA        RELEASE FILE INTERLOCK
15796  M02S11549.ns2415  ---|          RJM    CTI
15797  M02S11550.ns2415  ---|          ERROR  DAF,,IW,EQ  *EQXXX,DNYY, DIRECT ACCESS FILE ERROR.*
Line S01364 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15798  M02S01364.ns2415  ---|          MJN    DDF4        IF READ ERROR
Line S00148 Modification History
M01 (Added by) ns2415
M02 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15799  M02S00148.ns2460  ---|          ZJN    DDF7        IF LEGAL SYSTEM SECTOR
Line S00012 Modification History
M01 (Added by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15800  M01S00012.ns2460  +++|          ZJN    DDF8        IF LEGAL SYSTEM SECTOR
Line S00149 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15801  M01S00149.ns2415  +++|          MJN    DDF6        IF READ ERROR
Line S01365 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15802  M01S01365.242l642 +++|          RJM    WCB         REWRITE CATALOG BUFFER
Proceed to Part 11
cdc/nos2.source/opl.opl871/deck/pfm.010.txt ยท Last modified: by 127.0.0.1