User Tools

Site Tools


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

Deck PFM Part 007

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
10151  M00S07363.pfm     +++|          STD    T7
10152  M00S07364.pfm     +++|          LDD    LF+1        LENGTH OF NEW FILE
10153  M00S07365.pfm     +++|          STD    T3
10154  M00S07366.pfm     +++|          LDM    FCBT,HP
10155  M00S07367.pfm     +++| FHE1     STD    T6
10156  M00S07368.pfm     +++|          LDD    T7
10157  M00S07369.pfm     +++|          ADD    T3
10158  M00S07370.pfm     +++|          SBM    SLM
10159  M00S07371.pfm     +++|          MJN    FHE2        IF PAST END OF NEW FILE
10160  M00S07372.pfm     +++|          STD    T3          REMAINDER OF NEW FILE
10161  M00S07373.pfm     +++|          LDN    0
10162  M00S07374.pfm     +++|          STD    T7
10163  M00S07375.pfm     +++|          RJM    SNT         SET NEXT TRACK
10164  M00S07376.pfm     +++|          UJN    FHE1
10165  M00S07377.pfm     +++|
10166  M00S07378.pfm     +++| FHE2     ADM    SLM         SET ADDRESS OF NEW FILE
10167  M00S07379.pfm     +++|          STD    T7
10168  M00S07380.pfm     +++|          LDC    NWCE*5      CLEAR NEXT CATALOG ENTRY
10169  M00S07381.pfm     +++|          STD    T1
10170  M00S07382.pfm     +++|          LDD    EP
10171  M00S07383.pfm     +++|          STD    T2
10172  M00S07384.pfm     +++| FHE3     LDN    0
10173  M00S07385.pfm     +++|          STI    T2
10174  M00S07386.pfm     +++|          AOD    T2
10175  M00S07387.pfm     +++|          SOD    T1
10176  M00S07388.pfm     +++|          NJN    FHE3        IF MORE CATALOG TO CLEAR
10177  M00S07389.pfm     +++|
10178  M00S07390.pfm     +++|*         FORM HOLE ENTRY
10179  M00S07391.pfm     +++|
10180  M00S07392.pfm     +++|          LDD    T7
10181  M00S07393.pfm     +++|          STM    FCBS,EP
10182  M00S07394.pfm     +++|          LDD    T6
10183  M00S07395.pfm     +++|          STM    FCBT,EP
10184  M00S07396.pfm     +++|          LDD    HL
10185  M00S07397.pfm     +++|          STM    FCLF+1,EP
10186  M00S07398.pfm     +++|          LDD    EP          SET CONTROL MODIFICATION DATE IN HOLE
10187  M00S07399.pfm     +++|          RAM    FHEA
10188  M00S07400.pfm     +++|          LDN    PDTL
10189  M00S07401.pfm     +++|          CRM    FCKD-2,ON
10190  M00S07402.pfm     +++| FHEA     EQU    *-1         (ADDRESS OF DATE WITHIN BUFFER)
10191  M00S07403.pfm     +++|          LJM    FHEX        RETURN
Line S00093 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
10192  M01S00093.pfm54   +++| IIA      SPACE  4,20
10193  M01S00094.pfm54   +++|**        IIA - INTERLOCK INDIRECT ALLOCATION.
10194  M01S00095.pfm54   +++|*
10195  M01S00096.pfm54   +++|*         ENTRY  (EQ) = MASTER DEVICE EST ORDINAL.
10196  M01S00097.pfm54   +++|*                (DVLW) = FIRST TRACK OF INDIRECT CHAIN.
10197  M01S00098.pfm54   +++|*
10198  M01S00099.pfm54   +++|*         EXIT   INDIRECT ALLOCATION INTERLOCK SET.
10199  M01S00100.pfm54   +++|*                (IAIF) NONZERO.
10200  M01S00101.pfm54   +++|*
10201  M01S00102.pfm54   +++|*         ERROR  TO *ERR* IF INTERLOCK NOT OBTAINED BY FOURTH TRY.
10202  M01S00103.pfm54   +++|*                TO *HNG* IF TRACK NOT RESERVED.
10203  M01S00104.pfm54   +++|*
10204  M01S00105.pfm54   +++|*         USES   T1, T5, T6.
10205  M01S00106.pfm54   +++|*
10206  M01S00107.pfm54   +++|*         CALLS  DPR, STI.
10207  M01S00108.pfm54   +++|*
10208  M01S00109.pfm54   +++|*         MACROS ENDMS.
10209  M01S00110.pfm54   +++|
10210  M01S00111.pfm54   +++|
10211  M01S00112.pfm54   +++| IIA4     AOM    IAIF        SET INDIRECT ALLOCATION INTERLOCK FLAG
10212  M01S00113.pfm54   +++|
10213  M01S00114.pfm54   +++|
10214  M01S00115.pfm54   +++| IIA      SUBR               ENTRY/EXIT
10215  M01S00116.pfm54   +++|          ENDMS
10216  M01S00117.pfm54   +++|          LDD    EQ
10217  M01S00118.pfm54   +++|          STD    T5
10218  M01S00119.pfm54   +++|          LDM    DVLW
10219  M01S00120.pfm54   +++|          STD    T6
10220  M01S00121.pfm54   +++|          LDN    4
10221  M01S00122.pfm54   +++|          STD    T1
10222  M01S00123.pfm54   +++| IIA1     RJM    STI
10223  M01S00124.pfm54   +++|          ZJN    IIA4        IF INTERLOCK OBTAINED
10224  M01S00125.pfm54   +++|          LMN    2
10225  M01S00126.pfm54   +++|          ZJN    IIA2        IF TRACK NOT RESERVED
10226  M01S00127.pfm54   +++|          SOD    T1
10227  M01S00128.pfm54   +++|          ZJN    IIA3        IF RETRY COUNT EXHAUSTED
10228  M01S00129.pfm54   +++|          RJM    DPR         DELAY PRIOR TO RETRY
10229  M01S00130.pfm54   +++|          UJN    IIA1        TRY AGAIN
10230  M01S00131.pfm54   +++|
10231  M01S00132.pfm54   +++| IIA2     RJM    HNG         HANG IF TRACK NOT RESERVED
10232  M01S00133.pfm54   +++|
10233  M01S00134.pfm54   +++| IIA3     EXIT   INA,CH,,,EC4   * INTERLOCK NOT AVAILABLE.*
10234  M00S07404.pfm     +++| REB      SPACE  4,15
10235  M00S07405.pfm     +++|**        REB - REREAD END BUFFER.
10236  M00S07406.pfm     +++|*
10237  M00S07407.pfm     +++|*         REREAD THE BUFFER CONTAINING THE END OF THE CATALOGS,
10238  M00S07408.pfm     +++|*         IF THAT BUFFER WAS IN *BFMS*, AND IF *BFMS* WAS REUSED.
Line S00016 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
10239  M01S00016.pfm59   +++|*         IF (DAHP) IS NONZERO, READ THE SECTOR CONTAINING THE DAPF
10240  M01S00017.pfm59   +++|*         HOLE INTO *BFMS*, AND RESET (EB) AND (EP) TO POINT TO IT.
10241  M00S07409.pfm     +++|*
10242  M00S07410.pfm     +++|*         ENTRY  (EBSC) = SECTOR FOR END BUFFER.
10243  M00S07411.pfm     +++|*                (EBTK) = TRACK FOR END BUFFER.
Line S00067 Modification History
M01 (Added by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
10244  M01S00067.pfm40   +++|*                (DAHP) = DIRECT ACCESS HOLE POINTER.
10245  M00S07412.pfm     +++|*
10246  M00S07413.pfm     +++|*         EXIT   END BUFFER REREAD.
10247  M00S07414.pfm     +++|*
10248  M00S07415.pfm     +++|*         USES   T6, T7.
10249  M00S07416.pfm     +++|*
Line S07417 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10250  M01S07417.242l642 ---|*         CALLS  RDS.
Line S00815 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
10251  M02S00815.pfm40   ---|*         CALLS  PDV, PES, RDS.
Line S00068 Modification History
M01 (Added by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
10252  M01S00068.pfm40   +++|*         CALLS  CDA, PDV, PES, RDS.
10253  M00S07418.pfm     +++|*
10254  M00S07419.pfm     +++|*         MACROS ERROR, SETMS.
10255  M00S07420.pfm     +++|
10256  M00S07421.pfm     +++|
Line S07422 Modification History
M01 (Removed by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
10257  M01S07422.pfm40   ---| REB      SUBR               ENTRY/EXIT
10258  M01S07423.pfm40   ---|          LDM    STAT
Line S00069 Modification History
M01 (Added by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
10259  M01S00069.pfm40   +++| REB3     LDM    STAT
10260  M00S07424.pfm     +++|          LPN    STBR
10261  M00S07425.pfm     +++|          ZJN    REBX        IF *BFMS* (END BUFFER) HAS NOT BEEN REUSED
Line S07426 Modification History
M01 (Removed by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
10262  M01S07426.pfm40   ---|          LDM    EBTK        RESET TRACK
Line S00070 Modification History
M01 (Added by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
10263  M01S00070.pfm40   +++| REB4     LDM    EBTK        RESET TRACK
10264  M00S07427.pfm     +++|          STD    T6
10265  M00S07428.pfm     +++|          STM    -2,EB
10266  M00S07429.pfm     +++|          LDM    EBSC        RESET SECTOR
10267  M00S07430.pfm     +++|          STD    T7
10268  M00S07431.pfm     +++|          STM    -1,EB
Line S07432 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10269  M01S07432.242l642 ---|          SETMS  READ
Line S00816 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10270  M02S00816.ns2645  ---|          SETMS  IO
Line S00004 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10271  M01S00004.ns2645  +++|          SETMS  IO,NS
Line S00817 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10272  M01S00817.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
10273  M00S07433.pfm     +++|          LDD    EB          REREAD END SECTOR
10274  M00S07434.pfm     +++|          RJM    RDS
10275  M00S07435.pfm     +++|          PJN    REBX        IF NO ERROR
Line S00818 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10276  M01S00818.242l642 +++|          RJM    PES         PROCESS ERROR STATUS
Line S07436 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10277  M01S07436.ns2415  ---|          ERROR  MSE,CH,,T5  *EQXXX,DNXX,MASS STORAGE ERROR.*
Line S00071 Modification History
M01 (Added by) pfm40
Seq #  *Modification Id* Act 
----------------------------+
10278  M01S00071.pfm40   +++|
10279  M01S00072.pfm40   +++| REB      SUBR               ENTRY/EXIT
10280  M01S00073.pfm40   +++|          LDM    DAHP
10281  M01S00074.pfm40   +++| REB1     ZJP    REB3        IF NO DIRECT ACCESS HOLES FOUND
10282  M01S00075.pfm40   +++|          LDD    CB
10283  M01S00076.pfm40   +++|          RJM    CDA         COMPARE DISK ADDRESSES (CATALOG BUFFER)
10284  M01S00077.pfm40   +++|          ZJN    REBX        IF DIRECT ACCESS HOLE IN CATALOG BUFFER
10285  M01S00078.pfm40   +++|          LDD    HP
10286  M01S00079.pfm40   +++|          ZJN    REB2        IF NO HOLE BUFFER
10287  M01S00080.pfm40   +++|          LDD    HB
10288  M01S00081.pfm40   +++|          RJM    CDA         COMPARE DISK ADDRESSES (HOLE BUFFER)
10289  M01S00082.pfm40   +++|          ZJN    REBX        IF DIRECT ACCESS HOLE IN HOLE BUFFER
10290  M01S00083.pfm40   +++| REB2     LDD    EB
10291  M01S00084.pfm40   +++|          RJM    CDA         COMPARE DISK ADDRESSES (END BUFFER)
10292  M01S00085.pfm40   +++|          ZJN    REB1        IF DIRECT ACCESS HOLE IN END BUFFER
10293  M01S00086.pfm40   +++|          LDC    BFMS        FORCE END BUFFER TO BFMS
10294  M01S00087.pfm40   +++|          STD    EB
10295  M01S00088.pfm40   +++|          LDM    DAHP        FORCE END BUFFER TO DIRECT ACCESS HOLE
10296  M01S00089.pfm40   +++|          STM    EBTK
10297  M01S00090.pfm40   +++|          LDM    DAHP+1
10298  M01S00091.pfm40   +++|          STM    EBSC
10299  M01S00092.pfm40   +++|          LDM    DAHP+2
10300  M01S00093.pfm40   +++|          ADD    EB
10301  M01S00094.pfm40   +++|          STD    EP
10302  M01S00095.pfm40   +++|          UJP    REB4        READ DIRECT ACCESS HOLE
Line S00105 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10303  M01S00105.ns2415  +++|          ERROR  MSE,CH,,T5  *EQXXX,DNYY,MASS STORAGE ERROR.*
Line S07437 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10304  M01S07437.242l642 ---| UCE      SPACE  4,15
10305  M01S07438.242l642 ---|**        UCE - UPDATE CATALOG ENTRY.
10306  M01S07439.242l642 ---|*
10307  M01S07440.242l642 ---|*         ENTRY  (CB) = POINTER TO BUFFER LOCATION.
10308  M01S07441.242l642 ---|*                (CI) = POINTER TO CATALOG ENTRY IN BUFFER.
10309  M01S07442.242l642 ---|*                MASTER DEVICE CHANNEL RESERVED.
10310  M01S07443.242l642 ---|*                (UCEA) SET WITH *STMI+CI* IF FCMD, FCUD
10311  M01S07444.242l642 ---|*                       ARE TO BE UPDATED.
10312  M01S07445.242l642 ---|*
10313  M01S07446.242l642 ---|*         EXIT   FCAC, FCAD, FCMD, FCUD UPDATED.
10314  M01S07447.242l642 ---|*                CATALOG ENTRY REWRITTEN.
10315  M01S07448.242l642 ---|*
10316  M01S07449.242l642 ---|*         USES   CM - CM+4.
10317  M01S07450.242l642 ---|*
10318  M01S07451.242l642 ---|*         CALLS  WBI.
10319  M01S07452.242l642 ---|
10320  M01S07453.242l642 ---|
10321  M01S07454.242l642 ---| UCE      SUBR               ENTRY/EXIT
10322  M01S07455.242l642 ---|
10323  M01S07456.242l642 ---|*         UPDATE DATES.
10324  M01S07457.242l642 ---|
10325  M01S07458.242l642 ---|          LDN    PDTL        READ PACKED DATE AND TIME
10326  M01S07459.242l642 ---|          CRD    CM
10327  M01S07460.242l642 ---|          LDN    3
10328  M01S07461.242l642 ---|          STD    CM
10329  M01S07462.242l642 ---|          RAD    CI
10330  M01S07463.242l642 ---| UCE1     LDM    CM+2-1,CM
Line S07464 Modification History
M01 (Removed by) pfm26
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10331  M02S07464.242l642 ---| UCEA     UJN    UCE2        BYPASS FCMD, FCUD UPDATE
Line S00001 Modification History
M01 (Added by) pfm26
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10332  M02S00001.242l642 ---| UCEA     UJN    UCE2        READ ACCESS - BYPASS FCMD, FCUD UPDATES
10333  M02S00002.242l642 ---|*         UJN    UCE3        (*UATTACH*/M=R - BYPASS DATE/TIME UPDATES)
10334  M02S00003.242l642 ---|*         STM    FCUD-1,CI   (UPDATE UTILITY CONTROL DATE/TIME)
Line S07465 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10335  M01S07465.242l642 ---|          CON    FCUD-1
Line S07466 Modification History
M01 (Removed by) pfm26
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10336  M02S07466.242l642 ---|*         STM    FCUD-1,CI   (UPDATE UTILITY CONTROL DATE)
Line S07467 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10337  M01S07467.242l642 ---| UCEB     STM    FCMD-1,CI   UPDATE MODIFICATION DATE
10338  M01S07468.242l642 ---|*         UJN    UCE3        (*UATTACH* - BYPASS FCMD, FCAD UPDATE)
10339  M01S07469.242l642 ---| UCE2     STM    FCAD-1,CI   UPDATE ACCESS DATE
10340  M01S07470.242l642 ---| UCE3     SOD    CI
10341  M01S07471.242l642 ---|          SOD    CM
10342  M01S07472.242l642 ---|          NJN    UCE1        IF UPDATE NOT COMPLETE
10343  M01S07473.242l642 ---|
10344  M01S07474.242l642 ---|*         UPDATE ACCESS COUNT.
10345  M01S07475.242l642 ---|
10346  M01S07476.242l642 ---| UCEC     AOM    FCAC+1,CI   ADVANCE ACCESS COUNT
10347  M01S07477.242l642 ---|*         UJN    UCE4        (*UATTACH* - BYPASS ACCESS COUNT UPDATE)
10348  M01S07478.242l642 ---|          SHN    -14
10349  M01S07479.242l642 ---|          RAM    FCAC,CI
10350  M01S07480.242l642 ---|
10351  M01S07481.242l642 ---|*         REWRITE CATALOG ENTRY.
10352  M01S07482.242l642 ---|
10353  M01S07483.242l642 ---| UCE4     LDD    CB          REWRITE CATALOG
10354  M01S07484.242l642 ---|          RJM    WBI
10355  M01S07485.242l642 ---|          LJM    UCEX        RETURN
10356  M01S07486.242l642 ---|
10357  M01S07487.242l642 ---|*         CHECK RANGE ON GENERATED JUMPS.
10358  M01S07488.242l642 ---|
10359  M01S07489.242l642 ---|          ERRNG  37-UCE3+UCEB
10360  M01S07490.242l642 ---|          ERRNG  37-UCE4+UCEC
Line S00819 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10361  M02S00819.253l688 ---|          TITLE  OVERLAYABLE SUBROUTINES.
10362  M02S00820.253l688 ---| IUR      SPACE  4,10
10363  M02S00821.253l688 ---|**        IUR - INITIALIZE UPDATE ROUTINES.
Line S00245 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10364  M01S00245.253l688 +++| RTK      SPACE  4,20
10365  M01S00246.253l688 +++|**        RTK - REQUEST LINKED TRACK.
Line S00822 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10366  M01S00822.242l642 +++|*
Line S00823 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10367  M02S00823.253l688 ---|*         ENTRY  (PFPW) = PERMANENT FILE PASSWORD.
Line S00824 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2426
M03 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10368  M03S00824.253l688 ---|*                (PUCW) = USER CONTROL WORD.
Line S00083 Modification History
M01 (Added by) ns2426
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10369  M02S00083.253l688 ---|*                (PUCN) = USER CONTROL WORD.
Line S00247 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10370  M01S00247.253l688 +++|*         ENTRY  (T6) = ADDRESS OF LAST TRACK IN CHAIN.
10371  M01S00248.253l688 +++|*                (T5) = MASTER DEVICE EST ORDINAL.
Line S00825 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10372  M01S00825.242l642 +++|*
Line S00826 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10373  M02S00826.253l688 ---|*         EXIT   (FCEG) = PRESET TO UPDATE USER CONTROL WORD IN
10374  M02S00827.253l688 ---|*                         CATALOG ENTRY.
10375  M02S00828.253l688 ---|*                (FCEH) = PRESET TO UPDATE PASSWORD IN CATALOG ENTRY.
Line S00249 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10376  M01S00249.253l688 +++|*         EXIT   (A) = 0 IF NO TRACK AVAILABLE.
10377  M01S00250.253l688 +++|*                (A) = TRACK IF AVAILABLE.
10378  M01S00251.253l688 +++|*                NEW TRACK PREWRITTEN WITH EOI-S.
10379  M01S00252.253l688 +++|*
10380  M01S00253.253l688 +++|*         USES   T6, T7, CM - CM+4.
10381  M01S00254.253l688 +++|*
10382  M01S00255.253l688 +++|*         CALLS  PDV, WDS.
10383  M01S00256.253l688 +++|*
10384  M01S00257.253l688 +++|*         MACROS ENDMS, MONITOR, SETMS.
10385  M01S00258.253l688 +++|*
10386  M01S00259.253l688 +++|*         NOTES  THE DRIVER AUTOMATICALLY WRITES THE LAST SECTOR
10387  M01S00260.253l688 +++|*                OF A TRACK WITH *WLSF*, EVEN IF *WCSF* IS SPECIFIED.
Line S00829 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10388  M01S00829.242l642 +++|
10389  M01S00830.242l642 +++|
Line S00831 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10390  M02S00831.253l688 ---| IUR      SUBR               ENTRY/EXIT
Line S00832 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2426
M03 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10391  M03S00832.253l688 ---|          LDM    PUCW
Line S00084 Modification History
M01 (Added by) ns2426
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10392  M02S00084.253l688 ---|          LDM    PUCN
Line S00833 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10393  M02S00833.253l688 ---|          SHN    21-13
10394  M02S00834.253l688 ---|          PJN    IUR1        IF NO USER CONTROL WORD SPECIFIED
10395  M02S00835.253l688 ---|          LDN    PSNI        FORCE UPDATE OF USER CONTROL WORD
10396  M02S00836.253l688 ---|          STM    FCEG
10397  M02S00837.253l688 ---| IUR1     LDM    PFPW
10398  M02S00838.253l688 ---|          ZJN    IUR2        IF PASSWORD NOT SPECIFIED
10399  M02S00839.253l688 ---|          LDN    PSNI        FORCE UPDATE OF PASSWORD
10400  M02S00840.253l688 ---|          STM    FCEH
10401  M02S00841.253l688 ---| IUR2     UJN    IURX        RETURN
Line S00261 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10402  M01S00261.253l688 +++| RTK      SUBR               ENTRY/EXIT
10403  M01S00262.253l688 +++|          LDN    ZERL
10404  M01S00263.253l688 +++|          CRD    CM
10405  M01S00264.253l688 +++|          LDD    T5          SET EST ORDINAL
10406  M01S00265.253l688 +++|          STD    CM+1
10407  M01S00266.253l688 +++|          LDD    T6          SET PRESENT LAST TRACK ADDRESS
10408  M01S00267.253l688 +++|          STD    CM+2
10409  M01S00268.253l688 +++|          MONITOR  RTCM
10410  M01S00269.253l688 +++|          LDD    CM+4
10411  M01S00270.253l688 +++|          ZJN    RTKX        IF NO TRACK ASSIGNED
10412  M01S00271.253l688 +++|          STD    T6          PREWRITE NEW TRACK
10413  M01S00272.253l688 +++|          STM    EOIFS+2     SET TRACK NUMBER IN EOI BUFFER
10414  M01S00273.253l688 +++|          LDN    0
10415  M01S00274.253l688 +++|          STD    T7
Line S00275 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10416  M02S00275.ns2645  ---|          SETMS  IO
Line S00005 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10417  M01S00005.ns2645  +++|          SETMS  IO,NS
Line S00276 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10418  M01S00276.253l688 +++|          RJM    PDV         PROCESS DEVICE STATUS
10419  M01S00277.253l688 +++| RTK1     LDD    T7          SET SECTOR NUMBER IN EOI BUFFER
10420  M01S00278.253l688 +++|          STM    EOIFS+3
10421  M01S00279.253l688 +++|          LDC    EOIB+WCSF   WRITE SECTOR
10422  M01S00280.253l688 +++|          RJM    WDS
10423  M01S00281.253l688 +++|          AOD    T7
10424  M01S00282.253l688 +++|          LMM    SLM
10425  M01S00283.253l688 +++|          NJN    RTK1        IF NOT LAST SECTOR
10426  M01S00284.253l688 +++|          ENDMS
10427  M01S00285.253l688 +++|          LDD    T6
10428  M01S00286.253l688 +++|          UJP    RTKX        RETURN
10429  M01S00287.253l688 +++| EOI      SPACE  4,10
10430  M01S00288.253l688 +++|**        EOI - EOI SECTOR BUFFER.
10431  M01S00289.253l688 +++|
10432  M01S00290.253l688 +++|
10433  M01S00291.253l688 +++| EOIA     CON    0,0         END OF INFORMATION DISK ADDRESS
10434  M01S00292.253l688 +++| EOIB     CON    0,0         END OF INFORMATION CONTROL BYTES
10435  M01S00293.253l688 +++|          VFD    60/3LPFM    FNT WORD
10436  M01S00294.253l688 +++| EOIFS    BSSZ   5           FST WORD
10437  M01S00295.253l688 +++| EOIDT    BSSZ   5           DATE/TIME WORD
Line S00842 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10438  M01S00842.242l642 +++|          SPACE  4,10
10439  M01S00843.242l642 +++|*         CHECK FOR OVERFLOW.
10440  M01S00844.242l642 +++|
10441  M01S00845.242l642 +++|
10442  M01S00846.242l642 +++|          OVERFLOW  OVLU,OVLC    OVERFLOW INTO COMMAND OVERLAY AREA
10443  M01S00847.242l642 +++|          SPACE  4,10
10444  M01S00848.242l642 +++|          OVERFLOW  OVLU,BUF2-2  OVERFLOW INTO CATALOG BUFFER
10445  M01S00849.242l642 +++|          EJECT
10446  M01S00850.242l642 +++|*         EQUIVALENCE EXTERNALLY REFERENCED TAGS.
10447  M01S00851.242l642 +++|
10448  M01S00852.242l642 +++|
10449  M01S00853.242l642 +++|          QUAL   *
10450  M01S00854.242l642 +++|
10451  M01S00855.242l642 +++| AFS      EQU    /".O"/AFS
10452  M01S00856.242l642 +++| AFSB     EQU    /".O"/AFSB
10453  M01S00857.242l642 +++| CCS      EQU    /".O"/CCS
10454  M01S00858.242l642 +++| CCS5.1   EQU    /".O"/CCS5.1
10455  M01S00859.242l642 +++| CCSB     EQU    /".O"/CCSB
10456  M01S00860.242l642 +++| CCSC     EQU    /".O"/CCSC
10457  M01S00861.242l642 +++| CCSE     EQU    /".O"/CCSE
10458  M01S00862.242l642 +++| CCSF     EQU    /".O"/CCSF
10459  M01S00863.242l642 +++| CCSG     EQU    /".O"/CCSG
Line S00135 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
10460  M01S00135.pfm54   +++| CIA      EQU    /".O"/CIA
Line S00864 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10461  M01S00864.242l642 +++| DCE      EQU    /".O"/DCE
10462  M01S00865.242l642 +++| DCEC     EQU    /".O"/DCEC
10463  M01S00866.242l642 +++| DCED     EQU    /".O"/DCED
10464  M01S00867.242l642 +++| DCEE     EQU    /".O"/DCEE
10465  M01S00868.242l642 +++| FCE7.1   EQU    /".O"/FCE7.1
10466  M01S00869.242l642 +++| FCEE     EQU    /".O"/FCEE
10467  M01S00870.242l642 +++| FCEL     EQU    /".O"/FCEL
Line S00136 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
10468  M01S00136.pfm54   +++| IIA      EQU    /".O"/IIA
Line S00871 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10469  M01S00871.242l642 +++|          OVERLAY  (PERMIT UPDATE ROUTINES.),OVLU
10470  M01S00872.242l642 +++| OVL      SPACE  4,10
10471  M01S00873.242l642 +++|***       THIS OVERLAY CONTAINS SUBROUTINES USED BY THE COMMAND
10472  M01S00874.242l642 +++|*         OVERLAYS TO UPDATE THE PERMIT FILE.
10473  M01S00875.242l642 +++|
10474  M01S00876.242l642 +++|
10475  M01S00877.242l642 +++| OVL      BSS    0           ENTRY
10476  M01S00878.242l642 +++|          RJM    RMD         RESET TO MASTER DEVICE
Line S00296 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10477  M01S00296.253l688 +++|          LDM    DVLW+2      PRESET FIRST TRACK IN EOI BUFFER
10478  M01S00297.253l688 +++|          STM    EOIFS+1
10479  M01S00298.253l688 +++|          LDN    PDTL        PRESET DATE/TIME IN EOI BUFFER
10480  M01S00299.253l688 +++|          CRM    EOIDT,ON
Line S00879 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10481  M01S00879.242l642 +++|          UJN    ".Q"X       RETURN AFTER LOAD
10482  M01S00880.242l642 +++|          TITLE  ALLOCATION ROUTINES.
10483  M01S00881.242l642 +++| APS      SPACE  4,20
10484  M01S00882.242l642 +++|**        APS - ALLOCATE PERMIT SPACE.
10485  M01S00883.242l642 +++|*
10486  M01S00884.242l642 +++|*         ENTRY  (T5) = MASTER DEVICE EST ORDINAL.
10487  M01S00885.242l642 +++|*                (PB) = ADDRESS OF PERMIT BUFFER.
10488  M01S00886.242l642 +++|*                (DVLW - DVLW+4) = DEVICE LAYOUT WORD OF MST.
10489  M01S00887.242l642 +++|*
10490  M01S00888.242l642 +++|*         EXIT   (RI - RI+1) = RANDOM ADDRESS OF NEW PERMIT SECTOR.
10491  M01S00889.242l642 +++|*                (EOIA) SET WITH ADDRESS OF NEW EOI.
10492  M01S00890.242l642 +++|*                (WNPB) = LINKAGE TO NEW EOI.
10493  M01S00891.242l642 +++|*                PERMIT ALLOCATION INTERLOCK SET.
Line S00106 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10494  M01S00106.ns2415  +++|*                TO *HNG* IF PERMIT CHAIN NOT RESERVED.
Line S00892 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10495  M01S00892.242l642 +++|*
10496  M01S00893.242l642 +++|*         USES   T6, T7, RI - RI+1.
10497  M01S00894.242l642 +++|*
10498  M01S00895.242l642 +++|*         CALLS  DTK, ITC, RTK, SEI.
10499  M01S00896.242l642 +++|*
Line S00897 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10500  M02S00897.ns2415  ---|*         MACROS ENDMS, ERROR.
Line S00107 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10501  M01S00107.ns2415  +++|*         MACROS ENDMS, ERROR, MONITOR.
Line S00898 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10502  M01S00898.242l642 +++|
10503  M01S00899.242l642 +++|
10504  M01S00900.242l642 +++| APS4     LDD    T6          SAVE ADDRESS OF NEW EOI
10505  M01S00901.242l642 +++|          STM    EOIA
Line S00300 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10506  M01S00300.253l688 +++|          STM    EOIFS+2
Line S00902 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10507  M01S00902.242l642 +++|          LDD    T7
10508  M01S00903.242l642 +++|          STM    EOIA+1
Line S00301 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10509  M01S00301.253l688 +++|          STM    EOIFS+3
Line S00904 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10510  M01S00904.242l642 +++|
10511  M01S00905.242l642 +++| APS      SUBR               ENTRY/EXIT
10512  M01S00906.242l642 +++|          ENDMS              RELEASE CHANNEL
10513  M01S00907.242l642 +++|          LDM    DVLW+2      INTERLOCK PERMIT ALLOCATION
10514  M01S00908.242l642 +++|          RJM    ITC
Line S00909 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10515  M02S00909.ns2415  ---|          LDD    T6          SET ALLOCATION INTERLOCKED FLAG
Line S00108 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10516  M01S00108.ns2415  +++|          ZJN    APS0        IF INTERLOCK SUCCESSFUL
10517  M01S00109.ns2415  +++|          RJM    HNG         HANG IF PERMIT CHAIN NOT RESERVED
10518  M01S00110.ns2415  +++|
10519  M01S00111.ns2415  +++| APS0     LDD    T6          SET ALLOCATION INTERLOCKED FLAG
Line S00910 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10520  M01S00910.242l642 +++|          STM    AILK
10521  M01S00911.242l642 +++|          RJM    SEI         SEARCH FOR END OF PERMIT FILE
10522  M01S00912.242l642 +++|          LDD    T2          SAVE RANDOM ADDRESS OF NEW PERMIT SECTOR
10523  M01S00913.242l642 +++|          STD    RI
10524  M01S00914.242l642 +++|          LDD    T3
10525  M01S00915.242l642 +++|          STD    RI+1
10526  M01S00916.242l642 +++|          AOD    T7          CHECK FOR END OF TRACK
10527  M01S00917.242l642 +++|          LMM    SLM
10528  M01S00918.242l642 +++|          ZJN    APS2        IF AT END OF TRACK
10529  M01S00919.242l642 +++|          LDD    T7          SAVE LINKAGE TO NEW EOI
10530  M01S00920.242l642 +++|          STM    WNPB
10531  M01S00921.242l642 +++|          RJM    DTK         SET EOI IN TRT
10532  M01S00922.242l642 +++| APS1     UJP    APS4        SAVE ADDRESS OF NEW EOI
10533  M01S00923.242l642 +++|
10534  M01S00924.242l642 +++| APS2     RJM    RTK         REQUEST NEW TRACK
10535  M01S00925.242l642 +++|          ZJN    APS3        IF TRACK LIMIT ON ALLOCATION FILE
10536  M01S00926.242l642 +++|          STD    T6          SET ADDRESS OF NEW EOI
10537  M01S00927.242l642 +++|          STM    WNPB        SAVE LINKAGE TO NEW EOI
10538  M01S00928.242l642 +++|          LDN    0
10539  M01S00929.242l642 +++|          STD    T7
10540  M01S00930.242l642 +++|          UJN    APS1        SAVE ADDRESS OF NEW EOI
10541  M01S00931.242l642 +++|
10542  M01S00932.242l642 +++| APS3     ERROR  TKL,,,T5    *EQXXX,DNYY, TRACK LIMIT.*
10543  M00S07491.pfm     +++|          TITLE  PERMIT UPDATE ROUTINES.
Line S07492 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10544  M01S07492.242l642 ---| CPE      SPACE  4,10
Line S00933 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10545  M01S00933.242l642 +++| CPE      SPACE  4,15
10546  M00S07493.pfm     +++|**        CPE - CREATE PERMIT ENTRY.
10547  M00S07494.pfm     +++|*
Line S07495 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10548  M01S07495.242l642 ---|*         EXIT   NEW PERMIT ENTRY WRITTEN.
Line S00934 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10549  M01S00934.242l642 +++|*         EXIT   (PWRF) = *RFPC* FLAG SET IF NEW PERMIT ENTRY WRITTEN
10550  M01S00935.242l642 +++|*                         TO EXISTING PERMIT SECTOR.
10551  M01S00936.242l642 +++|*                NEW PERMIT ENTRY WRITTEN.
10552  M00S07496.pfm     +++|*                RANDOM ADDRESS SET IN CATALOG ENTRY IF
10553  M00S07497.pfm     +++|*                NEW PERMIT SECTOR CREATED.
10554  M00S07498.pfm     +++|*
10555  M00S07499.pfm     +++|*         USES   T5, RI - RI+1.
10556  M00S07500.pfm     +++|*
10557  M00S07501.pfm     +++|*         CALLS  APS, FPE, WBI, WNP.
10558  M00S07502.pfm     +++|*
10559  M00S07503.pfm     +++|*         MACROS ERROR, SETMS.
10560  M00S07504.pfm     +++|
10561  M00S07505.pfm     +++|
10562  M00S07506.pfm     +++| CPE      SUBR               ENTRY/EXIT
10563  M00S07507.pfm     +++|          LDM    SDAA        SET EST ORDINAL
10564  M00S07508.pfm     +++|          STD    T5
Line S07509 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10565  M01S07509.242l642 ---|          SETMS
Line S00937 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10566  M02S00937.ns2645  ---|          SETMS  STATUS
Line S00006 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10567  M01S00006.ns2645  +++|          SETMS  STATUS,NS
10568  M00S07510.pfm     +++|          LDM    FCRI,CI     GET PERMIT RANDOM INDEX
10569  M00S07511.pfm     +++|          STD    RI
10570  M00S07512.pfm     +++|          LDM    FCRI+1,CI
10571  M00S07513.pfm     +++|          STD    RI+1
10572  M00S07514.pfm     +++|          ADD    RI
10573  M00S07515.pfm     +++|          NJN    CPE2        IF PERMIT DATA AVAILABLE
10574  M00S07516.pfm     +++|
10575  M00S07517.pfm     +++|*         ALLOCATE PERMITS FOR FILE WITH NO EXISTING PERMIT DATA.
10576  M00S07518.pfm     +++|
10577  M00S07519.pfm     +++|          RJM    APS         ALLOCATE PERMIT SPACE
10578  M00S07520.pfm     +++|          LDD    RI          SET RANDOM INDEX INTO CATALOG
10579  M00S07521.pfm     +++|          STM    FCRI,CI
10580  M00S07522.pfm     +++|          LDD    RI+1
10581  M00S07523.pfm     +++|          STM    FCRI+1,CI
Line S07524 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10582  M01S07524.242l642 ---| CPE0     RJM    WNP         WRITE NEW PERMIT SECTOR
Line S00938 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10583  M01S00938.242l642 +++|          RJM    WNP         WRITE NEW PERMIT BUFFER
10584  M00S07525.pfm     +++| CPE1     UJN    CPEX        RETURN
10585  M00S07526.pfm     +++|
10586  M00S07527.pfm     +++|*         PROCESS FILE WITH EXISTING PERMIT DATA.
10587  M00S07528.pfm     +++|
10588  M00S07529.pfm     +++| CPE2     LDM    1,PB        CHECK FOR FULL SECTOR OF PERMITS
10589  M00S07530.pfm     +++|          LPN    77
Line S07531 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10590  M01S07531.242l642 ---|          ZJN    CPE3        IF FULL SECTOR OF PERMITS
Line S00939 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10591  M01S00939.242l642 +++|          ZJN    CPE4        IF FULL SECTOR OF PERMITS
10592  M00S07532.pfm     +++|          LDM    NPHA        SET HOLE ADDRESS
10593  M00S07533.pfm     +++|          RJM    FPE         FORM PERMIT ENTRY
10594  M00S07534.pfm     +++|          LDD    PB          REWRITE PERMIT SECTOR
10595  M00S07535.pfm     +++|          RJM    WBI
Line S00940 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10596  M01S00940.242l642 +++| CPE3     LDK    RFPC        SET PERMIT COUNT UPDATED
10597  M01S00941.242l642 +++|          RAM    PWRF
10598  M00S07536.pfm     +++|          UJN    CPE1        RETURN
10599  M00S07537.pfm     +++|
10600  M00S07538.pfm     +++|*         REWRITE FULL SECTOR OF PERMITS WITH LINK TO NEW SECTOR.
10601  M00S07539.pfm     +++|
Line S07540 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10602  M01S07540.242l642 ---| CPE3     RJM    APS         ALLOCATE PERMIT SPACE
Line S00942 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10603  M01S00942.242l642 +++| CPE4     RJM    APS         ALLOCATE PERMIT SPACE
10604  M00S07541.pfm     +++|          LDD    RI          SET RANDOM ADDRESS OF NEW PERMIT SECTOR
10605  M00S07542.pfm     +++|          STM    FPRI,PB
10606  M00S07543.pfm     +++|          LDD    RI+1
10607  M00S07544.pfm     +++|          STM    FPRI+1,PB
10608  M00S07545.pfm     +++|          LDD    PB          REWRITE EXISTING PERMIT SECTOR
10609  M00S07546.pfm     +++|          RJM    WBI
Line S07547 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10610  M01S07547.242l642 ---|          UJN    CPE0        WRITE NEW PERMIT SECTOR
Line S00943 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10611  M01S00943.242l642 +++|          LDK    STNS        SET *NO JOB SUSPENSION* FLAG
10612  M01S00944.242l642 +++|          RAM    STAT
10613  M01S00945.242l642 +++|          RJM    WNP         WRITE NEW PERMIT SECTOR
10614  M01S00946.242l642 +++|          LDK    -STNS       CLEAR *NO JOB SUSPENSION* FLAG
10615  M01S00947.242l642 +++|          RAM    STAT
10616  M01S00948.242l642 +++|          UJN    CPE3        RETURN
10617  M00S07548.pfm     +++| FPE      SPACE  4,15
10618  M00S07549.pfm     +++|**        FPE - FORM PERMIT ENTRY IN BUFFER.
10619  M00S07550.pfm     +++|*
10620  M00S07551.pfm     +++|*         ENTRY  (A) = BUFFER LOCATION WHERE ENTRY IS TO BE FORMED.
10621  M00S07552.pfm     +++|*                (PP) = IF NEW ENTRY TO BE FORMED.
10622  M00S07553.pfm     +++|*                (PB) = ADDRESS OF PERMIT BUFFER.
10623  M00S07554.pfm     +++|*                (PI - PI+1) =  PERMITTED INDEX.
10624  M00S07555.pfm     +++|*                (MODE) = PERMITTED MODE.
10625  M00S07556.pfm     +++|*                (PFOU - PFOU+3) = OPTIONAL USER NAME.
10626  M00S07557.pfm     +++|*                (PFXT - PFXT+1) = EXPIRATION DATE.
10627  M00S07558.pfm     +++|*
10628  M00S07559.pfm     +++|*         EXIT   ENTRY FORMED IN PERMIT BUFFER.
10629  M00S07560.pfm     +++|*                ACCESS COUNT SET TO 1 IF IMPLICIT PERMIT ENTRY.
10630  M00S07561.pfm     +++|*
10631  M00S07562.pfm     +++|*         USES   T1, CM - CM+4.
10632  M00S07563.pfm     +++|
10633  M00S07564.pfm     +++|
10634  M00S07565.pfm     +++| FPE      SUBR               ENTRY/EXIT
10635  M00S07566.pfm     +++|          STD    T1          SAVE ADDRESS OF BUFFER
10636  M00S07567.pfm     +++|          STM    FPEA
10637  M00S07568.pfm     +++|          ADN    FPAC        SET ACCESS COUNT WORD ADDRESS
10638  M00S07569.pfm     +++|          STM    FPEC
10639  M00S07570.pfm     +++|          LDD    MA          SET USER NAME IN PERMIT ENTRY
10640  M00S07571.pfm     +++|          CWM    PFOU,ON
10641  M00S07572.pfm     +++|          SBN    1
10642  M00S07573.pfm     +++|          CRM    *,ON
10643  M00S07574.pfm     +++| FPEA     EQU    *-1
10644  M00S07575.pfm     +++|          LDD    PB          SET ADDRESS OF PERMIT HEADER
10645  M00S07576.pfm     +++|          ADN    FPUD
10646  M00S07577.pfm     +++|          STM    FPEB
10647  M00S07578.pfm     +++|          LDN    PDTL
10648  M00S07579.pfm     +++|          CRM    *,ON        SET DATE/TIME IN PERMIT ENTRY
10649  M00S07580.pfm     +++| FPEB     EQU    *-1
10650  M00S07581.pfm     +++|          SBN    1
10651  M00S07582.pfm     +++|          CRM    *,ON        SET DATE/TIME IN PERMIT HEADER
10652  M00S07583.pfm     +++| FPEC     EQU    *-1
10653  M00S07584.pfm     +++|          LDM    MODE        SET MODE/ACCESS COUNT
10654  M00S07585.pfm     +++|          LPN    17
10655  M00S07586.pfm     +++|          LMM    SAPF        SET IMPLICIT PERMIT FLAG, IF APPROPRIATE
10656  M00S07587.pfm     +++|          ADM    IACP        INCREMENT ACCESS COUNT, IF APPROPRIATE
10657  M00S07588.pfm     +++|          STM    FPAC+1,T1
10658  M00S07589.pfm     +++|          LDM    FPXD,T1     SET EXPIRATION DATE
10659  M00S07590.pfm     +++|          SCN    77
10660  M00S07591.pfm     +++|          LMM    PXDT
10661  M00S07592.pfm     +++|          STM    FPXD,T1
10662  M00S07593.pfm     +++|          LDM    PXDT+1
10663  M00S07594.pfm     +++|          STM    FPXD+1,T1
10664  M00S07595.pfm     +++|          LDM    SAPF
10665  M00S07596.pfm     +++|          NJN    FPE1        IF ACCOUNTING PERMIT
10666  M00S07597.pfm     +++|          LDN    40          INDICATE EXPIRATION DATE IS PRESENT
10667  M00S07598.pfm     +++|          RAM    FPAC+1,T1
10668  M00S07599.pfm     +++| FPE1     LDN    NWPE        ADVANCE WORD COUNT
10669  M00S07600.pfm     +++|          RAM    1,PB
10670  M00S07601.pfm     +++|          LJM    FPEX        EXIT
Line S00302 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10671  M01S00302.253l688 +++| RTK      SPACE  4,20
10672  M01S00303.253l688 +++|**        RTK - REQUEST LINKED TRACK.
10673  M01S00304.253l688 +++|*
10674  M01S00305.253l688 +++|*         ENTRY  (T6) = ADDRESS OF LAST TRACK IN CHAIN.
10675  M01S00306.253l688 +++|*                (T5) = MASTER DEVICE EST ORDINAL.
10676  M01S00307.253l688 +++|*
10677  M01S00308.253l688 +++|*         EXIT   (A) = 0 IF NO TRACK AVAILABLE.
10678  M01S00309.253l688 +++|*                (A) = TRACK IF AVAILABLE.
10679  M01S00310.253l688 +++|*                NEW TRACK PREWRITTEN WITH EOI-S.
10680  M01S00311.253l688 +++|*
10681  M01S00312.253l688 +++|*         USES   T6, T7, CM - CM+4.
10682  M01S00313.253l688 +++|*
10683  M01S00314.253l688 +++|*         CALLS  PDV, WDS.
10684  M01S00315.253l688 +++|*
10685  M01S00316.253l688 +++|*         MACROS ENDMS, MONITOR, SETMS.
10686  M01S00317.253l688 +++|*
10687  M01S00318.253l688 +++|*         NOTES  THE DRIVER AUTOMATICALLY WRITES THE LAST SECTOR
10688  M01S00319.253l688 +++|*                OF A TRACK WITH *WLSF*, EVEN IF *WCSF* IS SPECIFIED.
10689  M01S00320.253l688 +++|
10690  M01S00321.253l688 +++|
10691  M01S00322.253l688 +++| RTK      SUBR               ENTRY/EXIT
10692  M01S00323.253l688 +++|          LDN    ZERL
10693  M01S00324.253l688 +++|          CRD    CM
10694  M01S00325.253l688 +++|          LDD    T5          SET EST ORDINAL
10695  M01S00326.253l688 +++|          STD    CM+1
10696  M01S00327.253l688 +++|          LDD    T6          SET PRESENT LAST TRACK ADDRESS
10697  M01S00328.253l688 +++|          STD    CM+2
10698  M01S00329.253l688 +++|          MONITOR  RTCM
10699  M01S00330.253l688 +++|          LDD    CM+4
10700  M01S00331.253l688 +++|          ZJN    RTKX        IF NO TRACK ASSIGNED
10701  M01S00332.253l688 +++|          STD    T6          PREWRITE NEW TRACK
10702  M01S00333.253l688 +++|          STM    EOIFS+2     SET TRACK NUMBER IN EOI BUFFER
10703  M01S00334.253l688 +++|          LDN    0
10704  M01S00335.253l688 +++|          STD    T7
Line S00336 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10705  M02S00336.ns2645  ---|          SETMS  IO
Line S00007 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10706  M01S00007.ns2645  +++|          SETMS  IO,NS
Line S00337 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10707  M01S00337.253l688 +++|          RJM    PDV         PROCESS DEVICE STATUS
10708  M01S00338.253l688 +++| RTK1     LDD    T7          SET SECTOR NUMBER IN EOI BUFFER
10709  M01S00339.253l688 +++|          STM    EOIFS+3
10710  M01S00340.253l688 +++|          LDC    EOIB+WCSF   WRITE SECTOR
10711  M01S00341.253l688 +++|          RJM    WDS
10712  M01S00342.253l688 +++|          AOD    T7
10713  M01S00343.253l688 +++|          LMM    SLM
10714  M01S00344.253l688 +++|          NJN    RTK1        IF NOT LAST SECTOR
10715  M01S00345.253l688 +++|          ENDMS
10716  M01S00346.253l688 +++|          LDD    T6
10717  M01S00347.253l688 +++|          UJP    RTKX        RETURN
10718  M00S07602.pfm     +++| UPI      SPACE  4,20
10719  M00S07603.pfm     +++|**        UPI - UPDATE PERMIT INFORMATION.
10720  M00S07604.pfm     +++|*
10721  M00S07605.pfm     +++|*         ENTRY  (PP) = POINTER TO PERMIT ENTRY.
10722  M00S07606.pfm     +++|*                (PP) = 0 IF NO PERMIT ENTRY PRESENT.
10723  M00S07607.pfm     +++|*                (PB) = ADDRESS OF PERMIT BUFFER.
10724  M00S07608.pfm     +++|*                (PB) = 0 IF NO PERMISSION UPDATE REQUIRED.
10725  M00S07609.pfm     +++|*                (CI) = POINTER TO CATALOG ENTRY.
Line S00949 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10726  M01S00949.242l642 +++|*                (PWRF) = *PFM* RESTART FLAGS.
10727  M00S07610.pfm     +++|*                PERMIT BUFFER LOADED IF PERMIT EXISTS.
10728  M00S07611.pfm     +++|*
Line S07612 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10729  M01S07612.242l642 ---|*         EXIT   PERMIT ENTRY UPDATED.
Line S00950 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10730  M01S00950.242l642 +++|*         EXIT   (PWRF) = *RFPC* FLAG SET IF PERMIT COUNT UPDATED.
10731  M01S00951.242l642 +++|*                PERMIT ENTRY UPDATED.
10732  M00S07613.pfm     +++|*                PERMIT ENTRY CREATED IF SEMIPRIVATE ACCESS.
10733  M00S07614.pfm     +++|*                (FCKD) UPDATED IF PERMIT DATA CHANGED.
10734  M00S07615.pfm     +++|*
10735  M00S07616.pfm     +++|*         USES   T5, T6, T7, CM - CM+4.
10736  M00S07617.pfm     +++|*
Line S07618 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10737  M01S07618.242l642 ---|*         CALLS  CPE, RDS, WBI.
Line S00952 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10738  M01S00952.242l642 +++|*         CALLS  CPE, PDV, PES, RDS, WBI.
10739  M00S07619.pfm     +++|*
10740  M00S07620.pfm     +++|*         MACROS ERROR, SETMS.
10741  M00S07621.pfm     +++|
10742  M00S07622.pfm     +++|
10743  M00S07623.pfm     +++| UPI      SUBR               ENTRY/EXIT
10744  M00S07624.pfm     +++|          LDD    PB
10745  M00S07625.pfm     +++|          ZJN    UPIX        IF NO PERMIT BUFFER
10746  M00S07626.pfm     +++|          LDM    STAT
10747  M00S07627.pfm     +++|          LPN    STPR
10748  M00S07628.pfm     +++|          ZJN    UPI1        IF PERMITS HAVE NOT BEEN READ
10749  M00S07629.pfm     +++| UPIB     LDN    0
10750  M00S07630.pfm     +++|*         LDN    1           (*BFMS* REUSED FOR SYSTEM SECTOR ACCESS)
10751  M00S07631.pfm     +++|          ZJN    UPI1        IF *BFMS* HAS NOT BEEN REUSED
10752  M00S07632.pfm     +++|          LDM    BFMS-2      RESET PERMIT BUFFER TRACK AND SECTOR
10753  M00S07633.pfm     +++|          STD    T6
10754  M00S07634.pfm     +++|          LDM    BFMS-1
10755  M00S07635.pfm     +++|          STD    T7
Line S07636 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10756  M01S07636.242l642 ---|          SETMS  READ
Line S00953 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10757  M02S00953.ns2645  ---|          SETMS  IO
Line S00008 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10758  M01S00008.ns2645  +++|          SETMS  IO,NS
Line S00954 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10759  M01S00954.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
10760  M00S07637.pfm     +++|          LDC    BFMS        REREAD PERMIT BUFFER
10761  M00S07638.pfm     +++|          RJM    RDS
10762  M00S07639.pfm     +++|          PJN    UPI1        IF NO ERROR
Line S00955 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10763  M01S00955.242l642 +++|          RJM    PES         PROCESS ERROR STATUS
Line S07640 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10764  M01S07640.ns2415  ---|          ERROR  MSE,CH,,EQ  *EQXXX,DNXX,MASS STORAGE ERROR.*
Line S00112 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10765  M01S00112.ns2415  +++|          ERROR  MSE,CH,,EQ  *EQXXX,DNYY, MASS STORAGE ERROR.*
10766  M00S07641.pfm     +++|
10767  M00S07642.pfm     +++| UPI1     LDM    FCCT,CI     CHECK FILE TYPE
10768  M00S07643.pfm     +++|          SHN    -6
Line S07644 Modification History
M01 (Removed by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
10769  M01S07644.pfm67   ---|          LMN    FCPB
10770  M01S07645.pfm67   ---|          ZJN    UPI2        IF PUBLIC FILE
10771  M01S07646.pfm67   ---|          LMN    FCSP&FCPB
Line S00010 Modification History
M01 (Added by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
10772  M01S00010.pfm67   +++|          LMN    FCSP
10773  M00S07647.pfm     +++|          ZJN    UPI3        IF SEMI-PRIVATE FILE
10774  M00S07648.pfm     +++|          LDD    PP
Line S07649 Modification History
M01 (Removed by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
10775  M01S07649.pfm67   ---|          NJN    UPI4        IF PERMIT FOUND (PRIVATE FILE)
Line S00011 Modification History
M01 (Added by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
10776  M01S00011.pfm67   +++|          NJN    UPI4        IF PERMIT FOUND (PRIVATE OR PUBLIC FILE)
10777  M00S07650.pfm     +++| UPI2     UJP    UPIX        RETURN
10778  M00S07651.pfm     +++|
10779  M00S07652.pfm     +++| UPI3     LDD    PP
Line S07653 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10780  M01S07653.242l642 ---|          ZJN    UPI5        IF NO PERMIT DATA AND SEMIPRIVATE FILE
Line S00956 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10781  M01S00956.242l642 +++|          ZJP    UPI5        IF NO PERMIT DATA AND SEMIPRIVATE FILE
10782  M00S07654.pfm     +++|
10783  M00S07655.pfm     +++|*         UPDATE EXISTING PERMIT ENTRY.
10784  M00S07656.pfm     +++|
10785  M00S07657.pfm     +++| UPI4     LDN    PDTL        READ PACKED DATE AND TIME
10786  M00S07658.pfm     +++|          CRD    CM
Line S00957 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10787  M01S00957.242l642 +++|          LDM    PWRF
10788  M01S00958.242l642 +++|          LPK    RFPC
10789  M01S00959.242l642 +++|          NJN    UPI4.1      IF PERMIT COUNT UPDATED
10790  M00S07659.pfm     +++|          LDD    HN          INCREMENT ACCESS COUNT
10791  M00S07660.pfm     +++|          RAM    FPAC+1,PP
10792  M00S07661.pfm     +++|          SHN    -14
10793  M00S07662.pfm     +++|          RAM    FPAC,PP
Line S07663 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10794  M01S07663.242l642 ---|          LDD    CM+2        UPDATE LAST ACCESS DATE AND TIME
Line S00960 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10795  M01S00960.242l642 +++| UPI4.1   LDD    CM+2        UPDATE LAST ACCESS DATE AND TIME
10796  M00S07664.pfm     +++|          STM    FPAD,PP
10797  M00S07665.pfm     +++|          LDD    CM+3
10798  M00S07666.pfm     +++|          STM    FPAD+1,PP
10799  M00S07667.pfm     +++|          LDD    CM+4
10800  M00S07668.pfm     +++|          STM    FPAD+2,PP
10801  M00S07669.pfm     +++|          LDD    PB          REWRITE PERMIT SECTOR
10802  M00S07670.pfm     +++|          RJM    WBI
Line S00961 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10803  M01S00961.242l642 +++|          LDM    PWRF        SET PERMIT COUNT UPDATED FLAG
10804  M01S00962.242l642 +++|          SCN    RFPC
10805  M01S00963.242l642 +++|          ADK    RFPC
10806  M01S00964.242l642 +++|          STM    PWRF
10807  M00S07671.pfm     +++|          LJM    UPI7        UPDATE CATALOG ENTRY
10808  M00S07672.pfm     +++|
10809  M00S07673.pfm     +++|*         CREATE NEW PERMIT ENTRY FOR SEMI-PRIVATE FILE.
10810  M00S07674.pfm     +++|
10811  M00S07675.pfm     +++| UPI5     LDM    EBTK
10812  M00S07676.pfm     +++|          ZJN    UPI6        IF *BFMS* WAS NOT USED FOR *END* BUFFER
10813  M00S07677.pfm     +++|          LDM    STAT        INDICATE THAT *BFMS* HAS BEEN REUSED
10814  M00S07678.pfm     +++|          SCN    STBR
10815  M00S07679.pfm     +++|          LMN    STBR
10816  M00S07680.pfm     +++|          STM    STAT
10817  M00S07681.pfm     +++| UPI6     LDD    MA          SET USER NAME
10818  M00S07682.pfm     +++|          CWM    PFAC,ON
10819  M00S07683.pfm     +++|          SBN    1
10820  M00S07684.pfm     +++|          CRM    PFOU,ON
10821  M00S07685.pfm     +++|          LDM    MODE        SAVE REQUESTED MODE
10822  M00S07686.pfm     +++|          STM    UPIA
10823  M00S07687.pfm     +++|          LDM    FCAM,CI     SET FILE MODE FOR PERMIT ENTRY
10824  M00S07688.pfm     +++|          LPN    77
10825  M00S07689.pfm     +++|          STM    MODE
10826  M00S07690.pfm     +++|          LDN    0           CLEAR EXPIRATION DATE
10827  M00S07691.pfm     +++|          STM    PXDT
10828  M00S07692.pfm     +++|          STM    PXDT+1
10829  M00S07693.pfm     +++|          RJM    CPE         CREATE PERMIT ENTRY
10830  M00S07694.pfm     +++|          LDC    *           RESET ORIGINAL VALUE OF *MODE*
10831  M00S07695.pfm     +++| UPIA     EQU    *-1
10832  M00S07696.pfm     +++|          STM    MODE
10833  M00S07697.pfm     +++|
10834  M00S07698.pfm     +++|*         UPDATE CONTROL MODIFICATION DATE IN CATALOG ENTRY.
10835  M00S07699.pfm     +++|
10836  M00S07700.pfm     +++| UPI7     LDN    PDTL
10837  M00S07701.pfm     +++|          CRD    CM
10838  M00S07702.pfm     +++|          LDD    CM+2
10839  M00S07703.pfm     +++|          STM    FCKD,CI
10840  M00S07704.pfm     +++|          LDD    CM+3
10841  M00S07705.pfm     +++|          STM    FCKD+1,CI
10842  M00S07706.pfm     +++|          LDD    CM+4
10843  M00S07707.pfm     +++|          STM    FCKD+2,CI
10844  M00S07708.pfm     +++|          UJP    UPIX        RETURN
10845  M00S07709.pfm     +++| WNP      SPACE  4,20
10846  M00S07710.pfm     +++|**        WNP - WRITE NEW PERMIT BUFFER.
10847  M00S07711.pfm     +++|*
10848  M00S07712.pfm     +++|*         ENTRY  (PB) = ADDRESS OF PERMIT BUFFER.
10849  M00S07713.pfm     +++|*                (RI - RI+1) = RANDOM ADDRESS OF NEW PERMIT SECTOR.
10850  M00S07714.pfm     +++|*                (UI - UI+1) = USER INDEX OF PERMITTED FILE.
10851  M00S07715.pfm     +++|*                (PI - PI+1) = USER INDEX OF PERMITTED USER.
10852  M00S07716.pfm     +++|*                (EIOA) SET WITH ADDRESS OF NEW EOI SECTOR.
10853  M00S07717.pfm     +++|*                (WNPB) = LINKAGE TO NEW EOI SECTOR.
10854  M00S07718.pfm     +++|*                PERMIT ALLOCATION INTERLOCK SET.
10855  M00S07719.pfm     +++|*
10856  M00S07720.pfm     +++|*         EXIT   NEW PERMIT SECTOR FORMED AND WRITTEN.
10857  M00S07721.pfm     +++|*                NEW EOI WRITTEN.
10858  M00S07722.pfm     +++|*                PERMIT ALLOCATION INTERLOCK CLEARED.
10859  M00S07723.pfm     +++|*
10860  M00S07724.pfm     +++|*         CALLS  CAI, CSA, FPE, WBI.
10861  M00S07725.pfm     +++|*
10862  M00S07726.pfm     +++|*         MACROS ENDMS.
10863  M00S07727.pfm     +++|
10864  M00S07728.pfm     +++|
10865  M00S07729.pfm     +++| WNP      SUBR               ENTRY/EXIT
10866  M00S07730.pfm     +++|          LDD    PB          SET BUFFER ADDRESS
10867  M00S07731.pfm     +++|          ADN    1
10868  M00S07732.pfm     +++|          STM    WNPA
10869  M00S07733.pfm     +++|          LDC    500
10870  M00S07734.pfm     +++|          STD    T1
10871  M00S07735.pfm     +++| WNP1     LDN    0           CLEAR PERMIT BUFFER
10872  M00S07736.pfm     +++|          STM    *,T1
10873  M00S07737.pfm     +++| WNPA     EQU    *-1         (ADDRESS OF BUFFER + 1)
10874  M00S07738.pfm     +++|          SOD    T1
10875  M00S07739.pfm     +++|          PJN    WNP1        IF MORE BYTES TO CLEAR
10876  M00S07740.pfm     +++|          LDC    *           SET LINKAGE TO EOI
10877  M00S07741.pfm     +++| WNPB     EQU    *-1
10878  M00S07742.pfm     +++|          STI    PB
10879  M00S07743.pfm     +++|          LDN    NWPH        SET WORD COUNT FOR HEADER
10880  M00S07744.pfm     +++|          STM    1,PB
10881  M00S07745.pfm     +++|          RJM    CSA         COMPUTE ADDRESS OF NEW PERMIT SECTOR
10882  M00S07746.pfm     +++|          LDD    T6          SET CURRENT TRACK AND SECTOR
10883  M00S07747.pfm     +++|          STM    -2,PB
10884  M00S07748.pfm     +++|          LDD    T7
10885  M00S07749.pfm     +++|          STM    -1,PB
10886  M00S07750.pfm     +++|          LDD    UI          SET USER INDEX
10887  M00S07751.pfm     +++|          STM    FPUI,PB
10888  M00S07752.pfm     +++|          LDD    UI+1
10889  M00S07753.pfm     +++|          STM    FPUI+1,PB
10890  M00S07754.pfm     +++|          LDD    PB          SET INDEX FOR FIRST PERMIT ENTRY
10891  M00S07755.pfm     +++|          ADN    NWPH*5+2    SKIP HEADER AND CONTROL BYTES
10892  M00S07756.pfm     +++|          RJM    FPE         FORM PERMIT ENTRY
10893  M00S07757.pfm     +++|          LDD    PB          WRITE NEW PERMIT SECTOR
10894  M00S07758.pfm     +++|          RJM    WBI
10895  M00S07759.pfm     +++|          LDC    EOIB        WRITE NEW EOI
10896  M00S07760.pfm     +++|          RJM    WBI
10897  M00S07761.pfm     +++|          ENDMS
10898  M00S07762.pfm     +++|          RJM    CAI         CLEAR ALLOCATION INTERLOCK
10899  M00S07763.pfm     +++|          LJM    WNPX        RETURN
Line S00348 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10900  M01S00348.253l688 +++| EOI      SPACE  4,10
10901  M01S00349.253l688 +++|**        EOI - EOI SECTOR BUFFER.
10902  M01S00350.253l688 +++|
10903  M01S00351.253l688 +++|
10904  M01S00352.253l688 +++| EOIA     CON    0,0         END OF INFORMATION DISK ADDRESS
10905  M01S00353.253l688 +++| EOIB     CON    0,0         END OF INFORMATION CONTROL BYTES
10906  M01S00354.253l688 +++|          VFD    60/3LPFM    FNT WORD
10907  M01S00355.253l688 +++| EOIFS    BSSZ   5           FST WORD
10908  M01S00356.253l688 +++| EOIDT    BSSZ   5           DATE/TIME WORD
Line S07764 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10909  M01S07764.242l642 ---|          SPACE  4,10
10910  M01S07765.242l642 ---| OVLC     EQU    *+5         COMMAND CODE LOAD ADDRESS
Line S00024 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10911  M02S00024.242l642 ---| IUR      SPACE  4,10
10912  M02S00025.242l642 ---|**        IUR - INITIALIZE UPDATE ROUTINES.
10913  M02S00026.242l642 ---|
10914  M02S00027.242l642 ---|
10915  M02S00028.242l642 ---| IUR      BSS    0           ENTRY
10916  M02S00029.242l642 ---|          LDM    PUCW
10917  M02S00030.242l642 ---|          SHN    21-13
10918  M02S00031.242l642 ---|          PJN    IUR1        IF NO USER CONTROL WORD SPECIFIED
10919  M02S00032.242l642 ---|          LDN    PSNI        FORCE UPDATE OF USER CONTROL WORD
10920  M02S00033.242l642 ---|          STM    FCEG
10921  M02S00034.242l642 ---| IUR1     LDM    PFPW
10922  M02S00035.242l642 ---|          ZJN    IUR2        IF PASSWORD NOT SPECIFIED
10923  M02S00036.242l642 ---|          LDN    PSNI        FORCE UPDATE OF PASSWORD
10924  M02S00037.242l642 ---|          STM    FCEH
10925  M02S00038.242l642 ---| IUR2     LJM    ".Q"X       RETURN AFTER LOAD
10926  M00S07766.pfm     +++|          SPACE  4,10
10927  M00S07767.pfm     +++|*         CHECK FOR OVERFLOW.
10928  M00S07768.pfm     +++|
10929  M00S07769.pfm     +++|
Line S00965 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10930  M01S00965.242l642 +++|          OVERFLOW  OVLU,OVLC    OVERFLOW INTO COMMAND OVERLAY AREA
Line S07770 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10931  M01S07770.ns2415  ---|          OVERFLOW   OVLU,BUF2-2  OVERFLOW INTO CATALOG BUFFER
Line S00113 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10932  M01S00113.ns2415  +++|          SPACE  4,10
10933  M01S00114.ns2415  +++|          OVERFLOW  OVLU,BUF2-2  OVERFLOW INTO CATALOG BUFFER
10934  M00S07771.pfm     +++|          EJECT
10935  M00S07772.pfm     +++|*         EQUIVALENCE EXTERNALLY REFERENCED TAGS.
10936  M00S07773.pfm     +++|
10937  M00S07774.pfm     +++|
10938  M00S07775.pfm     +++|          QUAL   *
10939  M00S07776.pfm     +++|
Line S07777 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10940  M01S07777.242l642 ---| AFS      EQU    /".O"/AFS
10941  M01S07778.242l642 ---| AFSB     EQU    /".O"/AFSB
10942  M01S07779.242l642 ---| CCS      EQU    /".O"/CCS
10943  M01S07780.242l642 ---| CCS5.1   EQU    /".O"/CCS5.1
10944  M01S07781.242l642 ---| CCSB     EQU    /".O"/CCSB
10945  M01S07782.242l642 ---| CCSC     EQU    /".O"/CCSC
10946  M01S07783.242l642 ---| CCSE     EQU    /".O"/CCSE
10947  M00S07784.pfm     +++| CPE      EQU    /".O"/CPE
Line S07785 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10948  M01S07785.242l642 ---| DCE      EQU    /".O"/DCE
10949  M01S07786.242l642 ---| DCEC     EQU    /".O"/DCEC
10950  M01S07787.242l642 ---| DCED     EQU    /".O"/DCED
10951  M01S07788.242l642 ---| DCEE     EQU    /".O"/DCEE
10952  M01S07789.242l642 ---| FCE7.1   EQU    /".O"/FCE7.1
10953  M01S07790.242l642 ---| FCEE     EQU    /".O"/FCEE
10954  M01S07791.242l642 ---| FCEL     EQU    /".O"/FCEL
10955  M01S07792.242l642 ---| UCE      EQU    /".O"/UCE
10956  M01S07793.242l642 ---| UCE3     EQU    /".O"/UCE3
10957  M01S07794.242l642 ---| UCE4     EQU    /".O"/UCE4
10958  M01S07795.242l642 ---| UCEA     EQU    /".O"/UCEA
10959  M01S07796.242l642 ---| UCEB     EQU    /".O"/UCEB
10960  M01S07797.242l642 ---| UCEC     EQU    /".O"/UCEC
10961  M00S07798.pfm     +++| UPI      EQU    /".O"/UPI
10962  M00S07799.pfm     +++| UPIB     EQU    /".O"/UPIB
Line S07800 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10963  M01S07800.242l642 ---|
10964  M01S07801.242l642 ---| OVLC     EQU    /".O"/OVLC
10965  M00S07802.pfm     +++|          OVERLAY  (GET/OLD/UGET PROCESSING.)
10966  M00S07803.pfm     +++|          SPACE  4,10
10967  M00S07804.pfm     +++|**        THIS OVERLAY PROCESSES *GET*, *OLD*, AND *UGET* REQUESTS.
10968  M00S07805.pfm     +++|*
10969  M00S07806.pfm     +++|*         ENTRY  (P0) = PROCESSING ADDRESS.
10970  M00S07807.pfm     +++|
10971  M00S07808.pfm     +++|
10972  M00S07809.pfm     +++| OVL      BSS    0           ENTRY
Line S07810 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10973  M01S07810.242l642 ---|          RJM    RMD         RESET TO MASTER DEVICE
Line S00966 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10974  M01S00966.242l642 +++|          LDD    EQ          RESET MASTER DEVICE EST ORDINAL
10975  M01S00967.242l642 +++|          STD    T5
10976  M00S07811.pfm     +++|          LJM    0,P0        PROCESS REQUEST
10977  M00S07812.pfm     +++|          TITLE  COMMAND PROCESSING.
10978  M00S07813.pfm     +++| GET      SPACE  4,10
10979  M00S07814.pfm     +++|***       PROCESS *GET* REQUEST.
10980  M00S07815.pfm     +++|*
10981  M00S07816.pfm     +++|*         GENERATE WORKING COPY OF INDIRECT ACCESS FILE *PF NAME*.
10982  M00S07817.pfm     +++|*         THIS COPY WILL NOT BE PERMANENT UNTIL *SAVE* *REPLACE*
10983  M00S07818.pfm     +++|*         OR *DEFINE* REQUEST FOR LOCAL FILE IS ISSUED.
10984  M00S07819.pfm     +++|
10985  M00S07820.pfm     +++|
10986  M00S07821.pfm     +++| GET      BSS    0           ENTRY
10987  M00S07822.pfm     +++|          LDN    0           CLEAR REWRITE ON FILE COPY
10988  M00S07823.pfm     +++|          STM    DTMD
10989  M00S07824.pfm     +++|          LDM    ACCM        ACTUAL ACCESS MODE
10990  M00S07825.pfm     +++|          LMN    PTEX
10991  M00S07826.pfm     +++|          NJN    GET1        IF MORE THAN EXECUTE PERMISSION
10992  M00S07827.pfm     +++|          LDN    4           RESTRICT LOCAL FILE TO EXECUTE-ONLY
10993  M00S07828.pfm     +++|          RAM    GETG
Line S07829 Modification History
M01 (Removed by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
10994  M01S07829.pfm62   ---| GET1     LDM    FCBS,CI     CHECK FOR INDIRECT FILE
10995  M01S07830.pfm62   ---|          SHN    21-13
10996  M01S07831.pfm62   ---|          PJN    GET2        IF INDIRECT FILE
10997  M01S07832.pfm62   ---|          ERROR  FDA         *(FILENAME) IS DIRECT ACCESS.*
10998  M01S07833.pfm62   ---|
10999  M01S07834.pfm62   ---| GET2     LDM    FCEC,CI     CHECK CATALOG ERROR STATUS
Line S00018 Modification History
M01 (Added by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
11000  M01S00018.pfm62   +++| GET1     LDM    FCEC,CI     CHECK CATALOG ERROR STATUS
11001  M00S07835.pfm     +++|          SHN    -4
11002  M00S07836.pfm     +++|          LPN    34
11003  M00S07837.pfm     +++|          ZJN    GET3        IF NO ERRORS
11004  M00S07838.pfm     +++|          SBN    4
11005  M00S07839.pfm     +++|          RAM    GETL        MODIFY ERROR CODE
11006  M00S07840.pfm     +++| GETL     EQU    *+2
11007  M00S07841.pfm     +++|          ERROR  EDA         * ERROR IN FILE DATA.*
11008  M00S07842.pfm     +++|*         ERROR  EPT         * ERROR IN PERMIT DATA.*
11009  M00S07843.pfm     +++|*         ERROR  EDP         * DATA/PERMIT ERRORS.*
11010  M00S07844.pfm     +++|
11011  M00S07845.pfm     +++|          ERRNZ  /ERRMSG/EPT-/ERRMSG/EDA-1  ERRORS MUST BE CONTIGUOUS
11012  M00S07846.pfm     +++|          ERRNZ  /ERRMSG/EDP-/ERRMSG/EPT-1  ERRORS MUST BE CONTIGUOUS
11013  M00S07847.pfm     +++|
11014  M00S07848.pfm     +++| GET3     RJM    CML         CHECK MASS STORAGE LIMITS
Line S00968 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11015  M01S00968.242l642 +++|          LDD    PB
11016  M01S00969.242l642 +++|          ZJN    GET3.1      IF NO PERMIT BUFFER
11017  M01S00970.242l642 +++|          EXECUTE  3PE       LOAD PERMIT UPDATE ROUTINES
11018  M00S07849.pfm     +++|          RJM    UPI         UPDATE PERMISION INFORMATION
Line S07850 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11019  M01S07850.242l642 ---|          RJM    UCE         UPDATE CATALOG ENTRY
Line S00971 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11020  M01S00971.242l642 +++| GET3.1   RJM    UCE         UPDATE CATALOG ENTRY
11021  M00S07851.pfm     +++|          ENDMS
11022  M00S07852.pfm     +++|          LDD    CI          SET CONTROL WORD POINTER FOR CATALOG
11023  M00S07853.pfm     +++|          RAM    GETE
11024  M00S07854.pfm     +++|          LDM    FCFS,CI     PROCESS SUBSYSTEM INDEX
11025  M00S07855.pfm     +++|          LPN    77
11026  M00S07856.pfm     +++|          STM    PFSS
11027  M00S07857.pfm     +++|          ZJN    GET4        IF NO SUBSYSTEM INDEX
11028  M00S07858.pfm     +++|          LDD    CC
11029  M00S07859.pfm     +++|          LMN    CCOD
11030  M00S07860.pfm     +++|          NJN    GET4        IF NOT *OLD* REQUEST
11031  M00S07861.pfm     +++|          LDM    PFSS
11032  M00S07862.pfm     +++|          RJM    SSF         SET SUBSYSTEM FLAG IN CP AREA
11033  M00S07863.pfm     +++|
11034  M00S07864.pfm     +++|*         RETURN FIELDS TO FET.
11035  M00S07865.pfm     +++|*         ENTER HERE FOR *UGET* REQUEST.
11036  M00S07866.pfm     +++|
Line S07867 Modification History
M01 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
11037  M01S07867.ns2645  ---| GET4     LDM    PFSP        CHECK FOR SECURITY PROCESSING BIT
Line S00009 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
11038  M01S00009.ns2645  +++| GET4     LDK    STNS        INHIBIT JOB SUSPENSION AFTER THIS POINT
11039  M01S00010.ns2645  +++|          RAM    STAT
11040  M01S00011.ns2645  +++|          LDM    PFSP        CHECK FOR SECURITY PROCESSING BIT
11041  M00S07868.pfm     +++|          ZJN    GET5        IF SECURITY PROCESSING BIT NOT SPECIFIED
11042  M00S07869.pfm     +++|          RJM    SFA         RETURN ACCESS LEVEL TO FET
11043  M00S07870.pfm     +++|          ADN    CFAL
11044  M00S07871.pfm     +++|          CRD    CM
11045  M00S07872.pfm     +++|          LDD    CM+1
11046  M00S07873.pfm     +++|          SCN    7
11047  M00S07874.pfm     +++|          LMM    FCAL,CI
11048  M00S07875.pfm     +++|          STD    CM+1
11049  M00S07876.pfm     +++|          RJM    SFA
11050  M00S07877.pfm     +++|          ADN    CFAL
11051  M00S07878.pfm     +++|          CWD    CM
11052  M00S07879.pfm     +++| GET5     LDM    MODE        RETURN ACCESS MODE TO FET
11053  M00S07880.pfm     +++|          SCN    77
11054  M00S07881.pfm     +++|          LMM    ACCM        ACTUAL MODE FILE ACCESSED IN
11055  M00S07882.pfm     +++|          STM    MODE
11056  M00S07883.pfm     +++|          LDN    CFMD
11057  M00S07884.pfm     +++|          SBM    FETL
11058  M00S07885.pfm     +++|          PJN    GET6        IF FET NOT LONG ENOUGH FOR MODE
11059  M00S07886.pfm     +++|          RJM    SFA         RETURN ACCESS MODE TO FET
11060  M00S07887.pfm     +++|          ADN    CFMD
11061  M00S07888.pfm     +++|          CWM    MODE-4,ON
11062  M00S07889.pfm     +++|          LDN    CFUC
11063  M00S07890.pfm     +++|          SBM    FETL
11064  M00S07891.pfm     +++|          PJN    GET6        IF FET NOT LONG ENOUGH FOR UCW
11065  M00S07892.pfm     +++|          RJM    SFA         RETURN USER CONTROL WORD TO FET
11066  M00S07893.pfm     +++|          ADN    CFUC
11067  M00S07894.pfm     +++|          CWM    FCCW,ON
11068  M00S07895.pfm     +++| GETE     EQU    *-1         (ADDRESS OF *UCW* FROM *PFC*)
11069  M00S07896.pfm     +++|          LDN    CFSS
11070  M00S07897.pfm     +++|          SBM    FETL
11071  M00S07898.pfm     +++|          PJN    GET6        IF FET NOT LONG ENOUGH FOR SUBSYSTEM
11072  M00S07899.pfm     +++|          RJM    SFA         RETURN SUBSYSTEM TO FET
11073  M00S07900.pfm     +++|          ADN    CFSS
11074  M00S07901.pfm     +++|          CWM    PFSS,ON
11075  M00S07902.pfm     +++|
11076  M00S07903.pfm     +++|*         UPDATE FNT/FST.
11077  M00S07904.pfm     +++|
11078  M00S07905.pfm     +++| GET6     LDC    PFSN        SET SYSTEM FILE NAME
11079  M00S07906.pfm     +++|          RJM    SFN
11080  M00S07907.pfm     +++| GETG     LDN    0           SET FILE ACCESS INFORMATION
11081  M00S07908.pfm     +++|*         LDN    4           (EXECUTE-ONLY FILE)
11082  M00S07909.pfm     +++|          RAD    FN+3
11083  M00S07910.pfm     +++| GETH     LDN    LOFT        SET FILE TYPE
11084  M00S07911.pfm     +++|*         LDN    PTFT        (*OLD* PROCESSING)
11085  M00S07912.pfm     +++|          SHN    6
11086  M00S07913.pfm     +++|          RAD    FN+4
11087  M00S07914.pfm     +++|          LDM    FNTA        SET FST INFORMATION
11088  M00S07915.pfm     +++|          STD    FA
11089  M00S07916.pfm     +++|          NFA    FA,R
11090  M00S07917.pfm     +++|          ADK    FNTL
11091  M00S07918.pfm     +++|          CWD    FN
11092  M00S07919.pfm     +++|          ADN    FSTL-FNTL
11093  M00S07920.pfm     +++|          CRD    FS
11094  M00S07921.pfm     +++|
11095  M00S07922.pfm     +++|*         ALLOCATE MASS STORAGE SPACE ON LOCAL FILE DEVICE.
11096  M00S07923.pfm     +++|
11097  M00S07924.pfm     +++|          LDN    0
11098  M00S07925.pfm     +++|          STD    CM+1
11099  M00S07926.pfm     +++|          LDD    LF+1        ADJUST LENGTH FOR SYSTEM SECTOR AND EOI
11100  M00S07927.pfm     +++|          ADN    2
11101  M00S07928.pfm     +++|          STD    CM+4
11102  M00S07929.pfm     +++|          SHN    -14
11103  M00S07930.pfm     +++|          ADD    LF
11104  M00S07931.pfm     +++|          STD    CM+3
11105  M00S07932.pfm     +++|          LDM    FCAL,CI     SET ACCESS LEVEL IN REQUEST
11106  M00S07933.pfm     +++|          ADN    40          SELECT ON ACCESS LEVEL
11107  M00S07934.pfm     +++|          SHN    6
11108  M00S07935.pfm     +++|          RAD    CM+3
11109  M00S07936.pfm     +++| GETI     LDN    0           SET TYPE OF FILE SPACE NEEDED
11110  M00S07937.pfm     +++|*         LDN    PRIS        (*OLD* - REQUEST PRIMARY FILE SPACE)
11111  M00S07938.pfm     +++|          STD    CM+2
11112  M00S07939.pfm     +++|          MONITOR  RTCM      ASSIGN MASS STORAGE SPACE
11113  M00S07940.pfm     +++|          LDN    ZERL
11114  M00S07941.pfm     +++|          CRD    FS
11115  M00S07942.pfm     +++|          LDD    CM+1        SET EST ORDINAL
11116  M00S07943.pfm     +++|          STM    RTKE
11117  M00S07944.pfm     +++|          STD    FS
11118  M00S07945.pfm     +++|          LDD    CM+4
11119  M00S07946.pfm     +++|          NJN    GET8        IF TRACKS ASSIGNED
11120  M00S07947.pfm     +++|          LDD    CM+3
11121  M00S07948.pfm     +++|          SBN    2
11122  M00S07949.pfm     +++|          ZJN    GET7        IF NO TEMP DEVICE VALID FOR ACCESS LEVEL
11123  M00S07950.pfm     +++|          ERROR  TKL,CH,,FS  *EQXXX,DNYY, TRACK LIMIT.*
11124  M00S07951.pfm     +++|
11125  M00S07952.pfm     +++| GET7     ERROR  NTD,CH      *(FILE NAME) - NO TEMP DEVICE FOUND.*
11126  M00S07953.pfm     +++|
11127  M00S07954.pfm     +++| GET8     STM    RTKT        SET FIRST TRACK
11128  M00S07955.pfm     +++|          STD    FS+1
11129  M00S07956.pfm     +++|          LDM    CPTF
11130  M00S07957.pfm     +++|          NJN    GET9        IF FILE TO BE TRANSFERRED VIA CPU
11131  M00S07958.pfm     +++|          LDD    FS+1
11132  M00S07959.pfm     +++|          STD    FS+2
11133  M00S07960.pfm     +++|          LDN    FSMS
11134  M00S07961.pfm     +++|          STD    FS+3
11135  M00S07962.pfm     +++| GET9     LDN    4           SET STATUS
11136  M00S07963.pfm     +++|          STD    FS+4
11137  M00S07964.pfm     +++|          NFA    FA,R        WRITE FST
11138  M00S07965.pfm     +++|          ADN    FSTL
11139  M00S07966.pfm     +++|          CWD    FS
11140  M00S07967.pfm     +++|          ADN    FUTL-FSTL
11141  M00S07968.pfm     +++|          CRD    CM
11142  M00S07969.pfm     +++|          LDM    FCAL,CI     SET ACCESS LEVEL IN FNT
11143  M00S07970.pfm     +++|          LMD    CM+2
11144  M00S07971.pfm     +++|          LPN    7
11145  M00S07972.pfm     +++|          LMD    CM+2
11146  M00S07973.pfm     +++|          STD    CM+2
11147  M00S07974.pfm     +++|          NFA    FA,R
11148  M00S07975.pfm     +++|          ADN    FUTL
11149  M00S07976.pfm     +++|          CWD    CM
Line S00001 Modification History
M01 (Added by) pfm58
Seq #  *Modification Id* Act 
----------------------------+
11150  M01S00001.pfm58   +++|          RJM    SFA         SET FNT POINTER IN FET
11151  M01S00002.pfm58   +++|          ADN    4
11152  M01S00003.pfm58   +++|          CRD    CM
11153  M01S00004.pfm58   +++|          LDD    FA
11154  M01S00005.pfm58   +++|          STD    CM
11155  M01S00006.pfm58   +++|          RJM    SFA
11156  M01S00007.pfm58   +++|          ADN    4
11157  M01S00008.pfm58   +++|          CWD    CM
11158  M00S07977.pfm     +++|
11159  M00S07978.pfm     +++|*         UPDATE PRIMARY FILE FST POINTER IN CONTROL POINT AREA.
11160  M00S07979.pfm     +++|
11161  M00S07980.pfm     +++|          LDD    CC
11162  M00S07981.pfm     +++|          LMN    CCOD
11163  M00S07982.pfm     +++|          NJN    GET10       IF NOT *OLD* REQUEST
11164  M00S07983.pfm     +++|          RJM    POF         PROCESS OLD PRIMARY FILE
11165  M00S07984.pfm     +++|          LDD    CP          SET NEW PRIMARY FILE FST POINTER
11166  M00S07985.pfm     +++|          ADN    TFSW
11167  M00S07986.pfm     +++|          CRD    CM
11168  M00S07987.pfm     +++|          LDM    FNTA        RESTORE FST AND FST ADDRESS
11169  M00S07988.pfm     +++|          STD    FA
11170  M00S07989.pfm     +++|          STD    CM+1
11171  M00S07990.pfm     +++|          NFA    FA,R
11172  M00S07991.pfm     +++|          ADN    FSTL
11173  M00S07992.pfm     +++|          CRD    FS
11174  M00S07993.pfm     +++|          LDD    CP
11175  M00S07994.pfm     +++|          ADN    TFSW
11176  M00S07995.pfm     +++|          CWD    CM
11177  M00S07996.pfm     +++|
11178  M00S07997.pfm     +++|*         UPDATE PRIMARY FILE POINTERS IN EJT ENTRY.
11179  M00S07998.pfm     +++|
Line S07999 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
11180  M01S07999.ns2358  ---|          LDD    FS          SET NEW EST ORDINAL
11181  M01S08000.ns2358  ---|          STM    OVL0-3
11182  M01S08001.ns2358  ---|          LDD    FS+1        SET NEW FIRST TRACK
11183  M01S08002.ns2358  ---|          STM    OVL0-2
11184  M00S08003.pfm     +++|          EXECUTE 0PT,OVL0   CALL *0PT* TO UPDATE EJT POINTERS
11185  M00S08004.pfm     +++|
11186  M00S08005.pfm     +++| GET10    LDD    FS          RESTORE EST ORDINAL
11187  M00S08006.pfm     +++|          STD    T5
Line S08007 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11188  M01S08007.242l642 ---|          SETMS
Line S00972 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
11189  M02S00972.ns2645  ---|          SETMS  STATUS
Line S00012 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
11190  M01S00012.ns2645  +++|          SETMS  STATUS,NS
11191  M00S08008.pfm     +++|          LDD    CM+4        SET TRT ADDRESS
11192  M00S08009.pfm     +++|          SHN    3
11193  M00S08010.pfm     +++|          ADN    TRLL
11194  M00S08011.pfm     +++|          RJM    CTA         CALCULATE FWA OF TRT
11195  M00S08012.pfm     +++|          SBD    TH
11196  M00S08013.pfm     +++|          STM    SNTA+1
11197  M00S08014.pfm     +++|          STM    SEIA+1
11198  M00S08015.pfm     +++|          SHN    -14
11199  M00S08016.pfm     +++|          LMC    ADCI
11200  M00S08017.pfm     +++|          STM    SNTA
11201  M00S08018.pfm     +++|          STM    SEIA
11202  M00S08019.pfm     +++|          LDM    SLM         INCREMENT PRU COUNT FOR FIRST TRACK
Line S08020 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11203  M01S08020.242l642 ---|          RAM    DPPD+1
Line S00973 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11204  M01S00973.242l642 +++|          RAM    AIPR+1
11205  M00S08021.pfm     +++|          SHN    -14
Line S08022 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11206  M01S08022.242l642 ---|          RAM    DPPD
Line S00974 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11207  M01S00974.242l642 +++|          RAM    AIPR
11208  M00S08023.pfm     +++|
11209  M00S08024.pfm     +++|*         DETERMINE WHETHER TO USE CPU TO TRANSFER FILE.
11210  M00S08025.pfm     +++|
11211  M00S08026.pfm     +++|          LDM    CPTF
11212  M00S08027.pfm     +++|          ZJN    GET11       IF FILE NOT TO BE TRANSFERRED VIA CPU
Line S00001 Modification History
M01 (Added by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11213  M01S00001.pfm55   +++|          LDD    EQ          SET SYSTEM SECTOR EST/TRACK/SECTOR
11214  M01S00002.pfm55   +++|          STD    T5
11215  M01S00003.pfm55   +++|          LDM    SDAB
11216  M01S00004.pfm55   +++|          STD    T6
11217  M01S00005.pfm55   +++|          LDM    SDAC
11218  M01S00006.pfm55   +++|          STD    T7
11219  M01S00007.pfm55   +++|          RJM    VSS         VERIFY SYSTEM SECTOR
11220  M01S00008.pfm55   +++|          ENDMS
Line S08028 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11221  M01S08028.242l642 ---| GETA     BSS    0           (OVERFLOW POINT FOR *3PQ* LOAD)
11222  M01S08029.242l642 ---|          EXECUTE  3PQ       TRANSFER FILE VIA CPU
Line S00975 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11223  M02S00975.ns2414  ---| GETA     BSS    0           (OVERFLOW POINT FOR *3PR* LOAD)
11224  M02S00976.ns2414  ---|          EXECUTE  3PR       TRANSFER FILE VIA CPU
Line S00079 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11225  M01S00079.ns2414  +++| GETA     BSS    0           (OVERFLOW POINT FOR *3PS* LOAD)
11226  M01S00080.ns2414  +++|          EXECUTE  3PS       TRANSFER FILE VIA CPU
11227  M00S08030.pfm     +++|
11228  M00S08031.pfm     +++|*         SET UP SYSTEM SECTOR.
11229  M00S08032.pfm     +++|
11230  M00S08033.pfm     +++|          ERRNG  *-BUF-502   SYSTEM SECTOR BUFFER OVERFLOWS CODE
11231  M00S08034.pfm     +++|
Line S08035 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11232  M01S08035.242l642 ---| GET11    EXECUTE  3PN       LOAD DEVICE TO DEVICE TRANSFER
Line S00977 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11233  M02S00977.ns2414  ---| GET11    EXECUTE  3PO       LOAD DEVICE TO DEVICE TRANSFER OVERLAY
Line S00081 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11234  M01S00081.ns2414  +++| GET11    EXECUTE  3PP       LOAD DEVICE TO DEVICE TRANSFER OVERLAY
11235  M00S08036.pfm     +++|          AOD    LF+1        ADJUST LENGTH FOR SYSTEM SECTOR
11236  M00S08037.pfm     +++|          SHN    -14
11237  M00S08038.pfm     +++|          RAD    LF
Line S08039 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11238  M01S08039.242l642 ---|          AOM    /3PN/SNSA   TURN ON PRU ACCUMULATION
Line S00978 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11239  M02S00978.ns2414  ---|          AOM    /3PO/SNSA   TURN ON PRU ACCUMULATION
Line S00082 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11240  M01S00082.ns2414  +++|          AOM    /3PP/SNSA   TURN ON PRU ACCUMULATION
11241  M00S08040.pfm     +++|          LDC    3777        SET SYSTEM SECTOR CONTROL BYTE
11242  M00S08041.pfm     +++|          STM    BUF
11243  M00S08042.pfm     +++|          LDN    77          SET WORD COUNT BYTE
11244  M00S08043.pfm     +++|          STM    BUF+1
11245  M00S08044.pfm     +++|          LDD    FA
11246  M00S08045.pfm     +++|          STM    FASS+BUF-BFMS
11247  M00S08046.pfm     +++|          NFA    FA,R        READ FILE NAME
11248  M00S08047.pfm     +++|          ADK    FNTL
11249  M00S08048.pfm     +++|          CRM    BUF+FNSS-BFMS,ON
11250  M00S08049.pfm     +++|          LDC    LOFT*100    SET LOCAL FILE TYPE IN SYSTEM SECTOR
11251  M00S08050.pfm     +++|          STM    FNSS+4+BUF-BFMS
11252  M00S08051.pfm     +++|          STM    PFSN+4
11253  M00S08052.pfm     +++|          LDD    FS          SET EST ORDINAL
11254  M00S08053.pfm     +++|          STM    EQSS+BUF-BFMS
11255  M00S08054.pfm     +++|          STD    T5
11256  M00S08055.pfm     +++|          LDD    FS+1        SET FIRST TRACK
11257  M00S08056.pfm     +++|          STM    FTSS+BUF-BFMS
11258  M00S08057.pfm     +++|          STD    T6
11259  M00S08058.pfm     +++|          LDN    PDTL        ENTER PACKED DATE
11260  M00S08059.pfm     +++|          CRM    DTSS+BUF-BFMS,ON
11261  M00S08060.pfm     +++|          AOM    DTSS+BUF-BFMS  SET ENHANCED EOI FLAG
11262  M00S08061.pfm     +++|          LDN    0           SET SECTOR
11263  M00S08062.pfm     +++|          STD    T7
11264  M00S08063.pfm     +++|          RJM    SDP         SWAP DISK PARAMETERS
Line S08064 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11265  M01S08064.242l642 ---|          SETMS  READ
Line S00979 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11266  M02S00979.pfm55   ---|          SETMS  IO
11267  M02S00980.pfm55   ---|          RJM    PDV         PROCESS DEVICE STATUS
11268  M00S08065.pfm     +++|          RJM    IBA         INCREMENT BUFFER ADDRESS
Line S08066 Modification History
M01 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11269  M01S08066.pfm55   ---|          LDN    0           DO NOT VERIFY NAME
11270  M01S08067.pfm55   ---|          RJM    RSS         READ SYSTEM SECTOR
Line S00981 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11271  M02S00981.pfm55   ---|          MJN    GET13       IF READ ERROR
Line S08068 Modification History
M01 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11272  M01S08068.pfm55   ---|          NJN    GET12       IF BAD SYSTEM SECTOR
Line S00009 Modification History
M01 (Added by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11273  M01S00009.pfm55   +++|          RJM    VSS         VERIFY SYSTEM SECTOR
11274  M00S08069.pfm     +++|          LJM    DTD         ENTER DEVICE TO DEVICE TRANSFER LOOP
Line S08070 Modification History
M01 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11275  M01S08070.pfm55   ---|
Line S08071 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11276  M02S08071.pfm55   ---| GET12    ERROR  SSE,CH,,T5  *EQXXX,DNYY, SYSTEM SECTOR ERROR.*
Line S00982 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11277  M02S00982.pfm55   ---| GET12    ERROR  SSE,,,T5    *EQXXX,DNYY, SYSTEM SECTOR ERROR.*
11278  M02S00983.pfm55   ---|
11279  M02S00984.pfm55   ---| GET13    RJM    PES         PROCESS ERROR STATUS
11280  M02S00985.pfm55   ---|          ERROR  MSE,CH,,T5  *EQXXX,DNYY, MASS STORAGE ERROR.*
Line S00010 Modification History
M01 (Added by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11281  M01S00010.pfm55   +++|          TITLE  SUBROUTINES.
11282  M01S00011.pfm55   +++| VSS      SPACE  4,10
11283  M01S00012.pfm55   +++|**        VSS - VERIFY SYSTEM SECTOR.
11284  M01S00013.pfm55   +++|*
11285  M01S00014.pfm55   +++|*         ENTRY  (T5 - T7) = SYSTEM SECTOR DISK ADDRESS.
11286  M01S00015.pfm55   +++|*
11287  M01S00016.pfm55   +++|*         EXIT   SYSTEM SECTOR READ.
11288  M01S00017.pfm55   +++|*                TO *ERR* IF BAD SYSTEM SECTOR OR READ ERROR.
11289  M01S00018.pfm55   +++|*                ERROR IDLE SET IF BAD SYSTEM SECTOR.
11290  M01S00019.pfm55   +++|*
11291  M01S00020.pfm55   +++|*         CALLS  PDV, PES, RSS.
11292  M01S00021.pfm55   +++|*
11293  M01S00022.pfm55   +++|*         MACROS ERROR, SETMS.
11294  M01S00023.pfm55   +++|
11295  M01S00024.pfm55   +++|
11296  M01S00025.pfm55   +++| VSS      SUBR               ENTRY/EXIT
Line S00026 Modification History
M01 (Added by) pfm55
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
11297  M02S00026.ns2645  ---|          SETMS  IO
Line S00013 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
11298  M01S00013.ns2645  +++|          SETMS  READSTR,NS
Line S00027 Modification History
M01 (Added by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11299  M01S00027.pfm55   +++|          RJM    PDV         PROCESS DEVICE STATUS
11300  M01S00028.pfm55   +++|          LDN    0           DO NOT VALIDATE FILE NAME
11301  M01S00029.pfm55   +++|          RJM    RSS         READ SYSTEM SECTOR
11302  M01S00030.pfm55   +++|          MJN    VSS1        IF READ ERROR
11303  M01S00031.pfm55   +++|          ZJN    VSSX        IF VALID SYSTEM SECTOR
11304  M01S00032.pfm55   +++|          ERROR  SSE,CH,,T5,,EI  *EQXXX,DNYY, SYSTEM SECTOR ERROR.*
11305  M01S00033.pfm55   +++|
11306  M01S00034.pfm55   +++| VSS1     RJM    PES         PROCESS ERROR STATUS
11307  M01S00035.pfm55   +++|          ERROR  MSE,CH,,T5  *EQXXX,DNYY, MASS STORAGE ERROR.*
11308  M00S08072.pfm     +++|          SPACE  4,10
11309  M00S08073.pfm     +++|*         COMMON DECKS.
11310  M00S08074.pfm     +++|
11311  M00S08075.pfm     +++| RIS$     SET    1           READ IAPF SYSTEM SECTOR
11312  M00S08076.pfm     +++|*CALL     COMPRSS
11313  M00S08077.pfm     +++|          SPACE  4,10
11314  M00S08078.pfm     +++|          USE    OVERLAY
Line S08079 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
11315  M01S08079.ns2358  ---| OVL0     EQU    *+5         LOAD ADDRESS FOR *0PT*
Line S00011 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
11316  M01S00011.ns2358  +++| OVL0     EQU    *+1         LOAD ADDRESS FOR *0PT*
11317  M00S08080.pfm     +++|          ERRNG  BUF1-OVL0-ZPTL  *0PT* OVERFLOW INTO *BUF1*
11318  M00S08081.pfm     +++|          TITLE  COMMAND PROCESSING (OVERLAYABLE).
11319  M00S08082.pfm     +++| OLD      SPACE  4,10
11320  M00S08083.pfm     +++|***       PROCESS *OLD* REQUEST.
11321  M00S08084.pfm     +++|*
11322  M00S08085.pfm     +++|*         GENERATE PRIMARY-TERMINAL FILE (*PTFT*) COPY OF INDIRECT
11323  M00S08086.pfm     +++|*         ACCESS FILE *PF NAME*.  THIS COPY WILL NOT BE PERMANENT
11324  M00S08087.pfm     +++|*         UNTIL *SAVE* OR *REPLACE* REQUEST FOR LOCAL FILE
11325  M00S08088.pfm     +++|*         IS ISSUED.
11326  M00S08089.pfm     +++|
11327  M00S08090.pfm     +++|
11328  M00S08091.pfm     +++| OLD      BSS    0           ENTRY
11329  M00S08092.pfm     +++|          LCN    -PTFT+LOFT  FORCE PRIMARY-FILE PROCESSING
11330  M00S08093.pfm     +++|          RAM    GETH
11331  M00S08094.pfm     +++|          LDN    PRIS
11332  M00S08095.pfm     +++|          RAM    GETI
11333  M00S08096.pfm     +++|          LJM    GET         PROCESS REQUEST
11334  M00S08097.pfm     +++| UGT      SPACE  4,15
11335  M00S08098.pfm     +++|***       PROCESS *UGET* REQUEST.
11336  M00S08099.pfm     +++|*
11337  M00S08100.pfm     +++|*         THE *UGET* REQUEST OBTAINS A LOCAL FILE COPY OF AN INDIRECT
11338  M00S08101.pfm     +++|*         ACCESS FILE WITHOUT CHANGING ANY DATES IN THE CATALOG ENTRY.
11339  M00S08102.pfm     +++|*         A COPY OF THE CATALOG ENTRY IS RETURNED TO *FIRST*.  THE
11340  M00S08103.pfm     +++|*         *AFLOK* FLAG IS SET IN THE CATALOG ENTRY TO INDICATE THAT
11341  M00S08104.pfm     +++|*         THE FILE IS ABOUT TO BE DESTAGED (ANY SUBSEQUENT *REPLACE*
11342  M00S08105.pfm     +++|*         OR *APPEND* WILL CLEAR THIS FLAG, WHICH WILL THEN INDICATE
11343  M00S08106.pfm     +++|*         THAT ANOTHER *UGET* MUST BE PERFORMED IF THE FILE IS STILL
11344  M00S08107.pfm     +++|*         TO BE DESTAGED).
11345  M00S08108.pfm     +++|
11346  M00S08109.pfm     +++|
11347  M00S08110.pfm     +++| UGT      BSS    0           ENTRY
Line S00137 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11348  M01S00137.pfm54   +++|          LDN    0           CLEAR REWRITE ON FILE COPY
11349  M01S00138.pfm54   +++|          STM    DTMD
Line S00083 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11350  M01S00083.ns2414  +++|
11351  M01S00084.ns2414  +++|*         CHECK THE FILE RESIDENCE.
11352  M01S00085.ns2414  +++|
11353  M01S00086.ns2414  +++|          LDM    FCBS,CI
11354  M01S00087.ns2414  +++|          STM    SDAC        SET SECTOR ADDRESS
11355  M01S00088.ns2414  +++|          SHN    21-13
11356  M01S00089.ns2414  +++|          PJN    UGT1        IF INDIRECT ACCESS FILE
11357  M01S00090.ns2414  +++|          ERROR  FDA         *FILE IS DIRECT ACCESS.*
11358  M01S00091.ns2414  +++|
11359  M01S00092.ns2414  +++| UGT1     LDM    FCBT,CI
11360  M01S00093.ns2414  +++|          STM    SDAB        SET TRACK ADDRESS OF FILE
11361  M01S00094.ns2414  +++|          NJN    UGT2        IF FILE DISK RESIDENT
11362  M01S00095.ns2414  +++|          ERROR  FND         *FILE NOT DISK RESIDENT.*
11363  M01S00096.ns2414  +++|
11364  M01S00097.ns2414  +++| UGT2     LDM    FCLF,CI     SET FILE LENGTH
11365  M01S00098.ns2414  +++|          STD    LF
11366  M01S00099.ns2414  +++|          LDM    FCLF+1,CI
11367  M01S00100.ns2414  +++|          STD    LF+1
11368  M01S00101.ns2414  +++|
11369  M01S00102.ns2414  +++|*         UPDATE CATALOG ENTRY.
11370  M01S00103.ns2414  +++|
11371  M00S08111.pfm     +++|          LDM    FCAF,CI     SET *AFLOK* FLAG
11372  M00S08112.pfm     +++|          LPC    -AFLOKM
11373  M00S08113.pfm     +++|          LMC    AFLOKM
11374  M00S08114.pfm     +++|          STM    FCAF,CI
11375  M00S08115.pfm     +++|          LDD    CB          REWRITE CATALOG ENTRY
11376  M00S08116.pfm     +++|          RJM    WBI
11377  M00S08117.pfm     +++|          ENDMS
11378  M00S08118.pfm     +++|
11379  M00S08119.pfm     +++|*         RETURN COPY OF THE *PFC* ENTRY TO THE BUFFER.
11380  M00S08120.pfm     +++|
11381  M00S08121.pfm     +++|          RJM    SFA         READ *FIRST* POINTER
11382  M00S08122.pfm     +++|          ADN    1
11383  M00S08123.pfm     +++|          CRD    CM
11384  M00S08124.pfm     +++|          LDD    CM+3        VERIFY *FIRST* POINTER
11385  M00S08125.pfm     +++|          LPN    77
11386  M00S08126.pfm     +++|          SHN    6
11387  M00S08127.pfm     +++|          ADD    RA
11388  M00S08128.pfm     +++|          SHN    6
11389  M00S08129.pfm     +++|          ADD    CM+4
11390  M00S08130.pfm     +++|          ADN    NWCE
11391  M00S08131.pfm     +++|          SBN    1
11392  M00S08132.pfm     +++|          SHN    -6
11393  M00S08133.pfm     +++|          SBD    RA
11394  M00S08134.pfm     +++|          SBD    FL
Line S08135 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11395  M01S08135.ns2414  ---|          MJN    UGT1        IF BUFFER WITHIN JOB FL
Line S00104 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11396  M01S00104.ns2414  +++|          MJN    UGT3        IF BUFFER WITHIN JOB FL
11397  M00S08136.pfm     +++|          ERROR  ILR,CH,,,EC3  * PFM INCORRECT REQUEST.*
11398  M00S08137.pfm     +++|
Line S08138 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11399  M01S08138.ns2414  ---| UGT1     LDD    CI          COPY CATALOG ENTRY TO BUFFER
Line S00105 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11400  M01S00105.ns2414  +++| UGT3     LDD    CI          COPY CATALOG ENTRY TO BUFFER
11401  M00S08139.pfm     +++|          STM    UGTA
11402  M00S08140.pfm     +++|          RAM    GETE        SET CONTROL WORD POINTER FOR CATALOG
11403  M00S08141.pfm     +++|          LDN    NWCE        NUMBER OF PFC WORDS
11404  M00S08142.pfm     +++|          STD    T1
11405  M00S08143.pfm     +++|          LDD    CM+3        FORM *CM* ADDRESS
11406  M00S08144.pfm     +++|          LPN    77
11407  M00S08145.pfm     +++|          SHN    6
11408  M00S08146.pfm     +++|          ADD    RA
11409  M00S08147.pfm     +++|          SHN    6
11410  M00S08148.pfm     +++|          ADD    CM+4
11411  M00S08149.pfm     +++|          CWM    **,T1
11412  M00S08150.pfm     +++| UGTA     EQU    *-1         (CATALOG ENTRY ADDRESS)
11413  M00S08151.pfm     +++|          LJM    GET4        PROCESS FILE TRANSFER
11414  M00S08152.pfm     +++|          TITLE  SUBROUTINES (OVERLAYABLE).
11415  M00S08153.pfm     +++| CML      SPACE  4,15
11416  M00S08154.pfm     +++|**        CML - CHECK MASS STORAGE LIMIT.
11417  M00S08155.pfm     +++|*
11418  M00S08156.pfm     +++|*         ENTRY  (LF - LF+1) = VALUE OF DECREMENT.
11419  M00S08157.pfm     +++|*                (CMLA) = UPPER 6 (OF 18 BITS) MASS STORAGE LIMIT.
11420  M00S08158.pfm     +++|*                (CMLB) = LOWER 12 BITS OF MASS STORAGE LIMIT.
11421  M00S08159.pfm     +++|*
11422  M00S08160.pfm     +++|*         EXIT   TO *ERR* IF ERROR IN PRU LIMITS.
11423  M00S08161.pfm     +++|*
11424  M00S08162.pfm     +++|*         USES   T0, CM - CM+4.
11425  M00S08163.pfm     +++|
11426  M00S08164.pfm     +++|
11427  M00S08165.pfm     +++| CML      SUBR
11428  M00S08166.pfm     +++|          LDD    CP          READ MASS STORAGE LIMIT
11429  M00S08167.pfm     +++|          ADK    ACLW
11430  M00S08168.pfm     +++|          CRD    CM
11431  M00S08169.pfm     +++|          LDD    LF
11432  M00S08170.pfm     +++|          LPN    77
11433  M00S08171.pfm     +++|          STD    T0
11434  M00S08172.pfm     +++|          LDD    CM+3
11435  M00S08173.pfm     +++|          LPN    77
11436  M00S08174.pfm     +++|          SBD    T0
11437  M00S08175.pfm     +++|          MJN    CML1        IF LIMIT EXCEEDED
11438  M00S08176.pfm     +++|          NJN    CMLX        IF LIMIT NOT EXCEEDED
11439  M00S08177.pfm     +++|          LDD    CM+4
11440  M00S08178.pfm     +++|          SBD    LF+1
11441  M00S08179.pfm     +++|          PJN    CMLX        IF LIMIT NOT EXCEEDED
11442  M00S08180.pfm     +++| CML1     ERROR  PRL         *PRU LIMIT.*
11443  M00S08181.pfm     +++| POF      SPACE  4,15
11444  M00S08182.pfm     +++|**        POF - PROCESS OLD PRIMARY FILE.
11445  M00S08183.pfm     +++|*
11446  M00S08184.pfm     +++|*         ENTRY  FNT ADDRESS OF CURRENT PRIMARY FILE IN *TFSW*.
11447  M00S08185.pfm     +++|*
11448  M00S08186.pfm     +++|*         EXIT   OLD PRIMARY FILE CHANGED TO *LOFT*.
11449  M00S08187.pfm     +++|*
11450  M00S08188.pfm     +++|*         USES   FA, CM - CM+4, FS - FS+4.
11451  M00S08189.pfm     +++|*
11452  M00S08190.pfm     +++|*         CALLS  SFB.
11453  M00S08191.pfm     +++|*
11454  M00S08192.pfm     +++|*         MACROS ERROR.
11455  M00S08193.pfm     +++|
11456  M00S08194.pfm     +++|
11457  M00S08195.pfm     +++| POF      SUBR               ENTRY/EXIT
11458  M00S08196.pfm     +++|          LDD    CP          GET FNT ADDRESS OF OLD PRIMARY FILE
11459  M00S08197.pfm     +++|          ADK    TFSW
11460  M00S08198.pfm     +++|          CRD    CM
11461  M00S08199.pfm     +++|          LDD    CM+1
11462  M00S08200.pfm     +++|          ZJN    POFX        IF NO OLD PRIMARY FILE
11463  M00S08201.pfm     +++|
11464  M00S08202.pfm     +++|*         CHANGE OLD PRIMARY FILE TO TYPE *LOFT*.
11465  M00S08203.pfm     +++|
11466  M00S08204.pfm     +++|          STD    FA          SET FILE BUSY
11467  M00S08205.pfm     +++|          NFA    FA,R
11468  M00S08206.pfm     +++|          ADK    FNTL
11469  M00S08207.pfm     +++|          CRD    FS
11470  M00S08208.pfm     +++|          RJM    SFB
11471  M00S08209.pfm     +++|          NJN    POF1        IF FILE NOT INTERLOCKED
11472  M00S08210.pfm     +++|          LDC    LOFT*100-PTFT*100  CHANGE FILE TYPE
11473  M00S08211.pfm     +++|          RAD    CM+4
11474  M00S08212.pfm     +++|          AOD    FS+4        SET FST COMPLETE
11475  M00S08213.pfm     +++|          NFA    FA,R
11476  M00S08214.pfm     +++|          ADK    FNTL
11477  M00S08215.pfm     +++|          CWD    CM
11478  M00S08216.pfm     +++|          ADN    FSTL-FNTL
11479  M00S08217.pfm     +++|          CWD    FS
11480  M00S08218.pfm     +++|          UJN    POFX        RETURN
11481  M00S08219.pfm     +++|
11482  M00S08220.pfm     +++|*         PROCESS *I/O SEQUENCE ERROR* ON OLD PRIMARY FILE.  CHANGE THE
11483  M00S08221.pfm     +++|*         NEW LOCAL FILE FROM *PTFT* TO *LOFT*, SO THAT *0DF* WILL NOT
11484  M00S08222.pfm     +++|*         CLEAR THE PRIMARY FILE POINTER IN THE CPA AND THE EJT WHEN
11485  M00S08223.pfm     +++|*         THE NEW LOCAL FILE IS RETURNED.
11486  M00S08224.pfm     +++|
11487  M00S08225.pfm     +++| POF1     LDM    FNTA        RESET FST AND FST POINTER
11488  M00S08226.pfm     +++|          STD    FA
11489  M00S08227.pfm     +++|          NFA    FA,R
11490  M00S08228.pfm     +++|          ADK    FNTL
11491  M00S08229.pfm     +++|          CRD    FN
11492  M00S08230.pfm     +++|          LDD    FN+4
11493  M00S08231.pfm     +++|          LPN    77
11494  M00S08232.pfm     +++|          LMC    LOFT*100
11495  M00S08233.pfm     +++|          STD    FN+4
11496  M00S08234.pfm     +++|          NFA    FA,R
11497  M00S08235.pfm     +++|          ADK    FNTL
11498  M00S08236.pfm     +++|          CWD    FN
11499  M00S08237.pfm     +++|          ERROR  IOE         * I/O SEQUENCE ERROR.*
11500  M00S08238.pfm     +++|          SPACE  4,10
11501  M00S08239.pfm     +++|*         OVERLAYABLE COMMON DECKS.
11502  M00S08240.pfm     +++|
11503  M00S08241.pfm     +++|*CALL     COMPSFB
11504  M00S08242.pfm     +++|*CALL     COMPSSF
11505  M00S08243.pfm     +++|          SPACE  4,10
11506  M00S08244.pfm     +++|          OVERFLOW  OVLC,BUF1-2  OVERFLOW INTO CATALOG BUFFER
11507  M00S08245.pfm     +++|          SPACE  4,10
11508  M00S08246.pfm     +++|*         EQUIVALENCE EXTERNALLY REFERENCED TAGS.
11509  M00S08247.pfm     +++|
11510  M00S08248.pfm     +++|
11511  M00S08249.pfm     +++|          QUAL   *
11512  M00S08250.pfm     +++|
11513  M00S08251.pfm     +++| GETA     EQU    /".O"/GETA
11514  M00S08252.pfm     +++|          OVERLAY  (SAVE/REPLACE/UREPLAC PROCESSING.)
11515  M00S08253.pfm     +++|          SPACE  4,10
11516  M00S08254.pfm     +++|**        THIS OVERLAY PROCESSES *SAVE*/*REPLACE*/*UREPLAC* REQUESTS.
11517  M00S08255.pfm     +++|*
11518  M00S08256.pfm     +++|*         ENTRY  (P0) = PROCESSING ADDRESS.
11519  M00S08257.pfm     +++|
11520  M00S08258.pfm     +++|
11521  M00S08259.pfm     +++| OVL      BSS    0           ENTRY
Line S08260 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11522  M01S08260.242l642 ---|          RJM    RMD         RESET TO MASTER DEVICE
11523  M00S08261.pfm     +++|          LJM    0,P0        PROCESS REQUEST
11524  M00S08262.pfm     +++|          TITLE  COMMAND PROCESSING.
11525  M00S08263.pfm     +++| REP      SPACE  4,10
11526  M00S08264.pfm     +++|***       PROCESS *REPLACE* REQUEST.
11527  M00S08265.pfm     +++|*
11528  M00S08266.pfm     +++|*         PURGE EXISTING PERMANENT FILE *PF NAME* AND GENERATE COPY
11529  M00S08267.pfm     +++|*         OF FILE *FILE NAME* AS INDIRECT ACCESS FILE *PF NAME*.
11530  M00S08268.pfm     +++|
11531  M00S08269.pfm     +++|
11532  M00S08270.pfm     +++| REP      BSS    0           ENTRY
11533  M00S08271.pfm     +++|          LDM    FCBS,CI
11534  M00S08272.pfm     +++|          SHN    21-13
11535  M00S08273.pfm     +++|          PJN    REP1        IF NOT DIRECT ACCESS FILE
11536  M00S08274.pfm     +++|          ERROR  FDA         * FILE IS DIRECT ACCESS.*
11537  M00S08275.pfm     +++|
11538  M00S08276.pfm     +++|*         CHECK LOCAL FILE ACCESS LEVEL AGAINST *PFC*.
11539  M00S08277.pfm     +++|
11540  M00S08278.pfm     +++| REP1     LDM    SSOM        CHECK SYSTEM SECURITY MODE
11541  M00S08279.pfm     +++|          ZJN    REP2        IF SYSTEM OPERATING IN UNSECURED MODE
11542  M00S08280.pfm     +++|          LDM    FCAL,CI     ALLOW SAVING DATA AT HIGHER LEVEL
11543  M00S08281.pfm     +++|          SBM    LFAL
11544  M00S08282.pfm     +++|          PJN    REP2        IF ACCESS LEVEL OKAY
11545  M00S08283.pfm     +++|          LDM    SVAL
11546  M00S08284.pfm     +++|          LPN    40
11547  M00S08285.pfm     +++|          NJN    REP2        IF WRITE-DOWN PERMITTED
11548  M00S08286.pfm     +++|          LDM    SSID        CHECK SUBSYSTEM ID
11549  M00S08287.pfm     +++|          SBK    LSSI+1
11550  M00S08288.pfm     +++|          PJN    REP2        IF SUBSYSTEM
11551  M00S08289.pfm     +++|          ERROR  WDP,,,,SVE  * WRITE-DOWN OF DATA PROHIBITED.*
11552  M00S08290.pfm     +++|
Line S00018 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11553  M01S00018.pfm59   +++|*         UPDATE PERMITS.
11554  M01S00019.pfm59   +++|
11555  M00S08291.pfm     +++| REP2     RJM    CUC         CHECK USER CONTROLS
Line S00986 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11556  M01S00986.242l642 +++|          LDD    PB
11557  M01S00987.242l642 +++|          ZJN    REP2.1      IF NO PERMIT BUFFER
11558  M01S00988.242l642 +++|          EXECUTE  3PE       LOAD PERMIT UPDATE ROUTINES
11559  M00S08292.pfm     +++|          RJM    UPI         UPDATE PERMISSION INFORMATION
Line S00989 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11560  M01S00989.242l642 +++|          ENDMS
Line S00020 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11561  M01S00020.pfm59   +++|
11562  M01S00021.pfm59   +++|*         UPDATE CATALOG.
11563  M01S00022.pfm59   +++|
Line S08293 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11564  M01S08293.242l642 ---|          LDD    CI          CLEAR ALTERNATE STORAGE INFORMATION IN PFC
Line S00990 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11565  M01S00990.242l642 +++| REP2.1   LDD    CI          CLEAR ALTERNATE STORAGE INFORMATION IN PFC
Line S08294 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11566  M01S08294.253l688 ---|          RAM    REPA
Line S00357 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11567  M01S00357.253l688 +++|          RAM    REPA+1
11568  M00S08295.pfm     +++|          LDN    ZERL
Line S08296 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11569  M01S08296.253l688 ---|          CRM    FCAF,ON
11570  M01S08297.253l688 ---| REPA     EQU    *-1
Line S00358 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11571  M01S00358.253l688 +++| REPA     CRM    FCAF,ON
11572  M01S00359.253l688 +++|          LDD    CI          CLEAR TAPE ALTERNATE STORAGE INFORMATION
11573  M01S00360.253l688 +++|          RAM    REPC+1
11574  M01S00361.253l688 +++|          LDN    ZERL
11575  M01S00362.253l688 +++| REPC     CRM    FCTF,ON
Line S08298 Modification History
M01 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11576  M01S08298.pfm59   ---|
11577  M01S08299.pfm59   ---|*         DETERMINE FILE RESIDENCE.
11578  M01S08300.pfm59   ---|
11579  M01S08301.pfm59   ---|          LDM    FCBT,CI     FIRST TRACK OF FILE
11580  M01S08302.pfm59   ---|          NJN    REP3        IF FILE IS DISK RESIDENT
11581  M01S08303.pfm59   ---|          LDC    4000
11582  M01S08304.pfm59   ---|          STM    FCBS,CI     MARK ENTRY AS DAPF HOLE
11583  M01S08305.pfm59   ---|          AOM    REPB        SET TO SKIP RELEASE OF IAPF SPACE
11584  M00S08306.pfm     +++| REP3     AOM    FCAC+1,CI   INCREMENT ACCESS COUNT
11585  M00S08307.pfm     +++|          SHN    -14
11586  M00S08308.pfm     +++|          RAM    FCAC,CI
Line S00139 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11587  M01S00139.pfm54   +++|          EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
11588  M01S00140.pfm54   +++|          RJM    IIA         INTERLOCK INDIRECT ALLOCATION
Line S00991 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11589  M01S00991.242l642 +++|          LDK    STNS        SET *NO JOB SUSPENSION* AFTER THIS POINT
11590  M01S00992.242l642 +++|          RAM    STAT
Line S00993 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11591  M02S00993.pfm54   ---|          EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
11592  M00S08309.pfm     +++|          RJM    CCS         CREATE NEW CATALOG SECTOR
11593  M00S08310.pfm     +++|          LDD    HP
11594  M00S08311.pfm     +++|          LMD    CI
11595  M00S08312.pfm     +++|          ZJN    REP4        IF HOLE IS FILE BEING REPLACED
Line S08313 Modification History
M01 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11596  M01S08313.pfm59   ---| REPB     LDN    0
11597  M01S08314.pfm59   ---|*         LDN    1           (FILE NOT DISK RESIDENT)
11598  M01S08315.pfm59   ---|          NJN    REP4        IF NO IAPF SPACE TO RELEASE
11599  M00S08316.pfm     +++|          RJM    DCE         DELETE CATALOG ENTRY
Line S08317 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11600  M01S08317.242l642 ---|          NJN    REP5        IF FILE DELINKED OR AT END OF CHAIN
Line S00994 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11601  M02S00994.pfm54   ---|          NJN    REP7        IF FILE DELINKED OR AT END OF CHAIN
Line S00141 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11602  M01S00141.pfm54   +++|          ZJN    REP4        IF FILE WITHIN CHAIN AND NO DELINK
11603  M01S00142.pfm54   +++|          RJM    CIA         CLEAR INDIRECT ALLOCATION INTERLOCK
11604  M01S00143.pfm54   +++|          UJN    REP6        TRANSFER FILE
11605  M00S08318.pfm     +++|
Line S08319 Modification History
M01 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11606  M01S08319.pfm59   ---|*         DETERMINE IF OLD FILES CATALOG SECTOR HAS BEEN REWRITTEN.
Line S00023 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11607  M01S00023.pfm59   +++|*         REWRITE OLD FILE-S CATALOG ENTRY.
11608  M00S08320.pfm     +++|*         ENTER HERE ON *UREPLAC* REQUEST.
11609  M00S08321.pfm     +++|
Line S08322 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11610  M01S08322.pfm54   ---| REP4     LDD    CB
Line S00144 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11611  M01S00144.pfm54   +++| REP4     RJM    CIA         CLEAR INDIRECT ALLOCATION INTERLOCK
Line S00145 Modification History
M01 (Added by) pfm54
M02 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11612  M02S00145.pfm59   ---|          LDD    CB
Proceed to Part 8
cdc/nos2.source/opl.opl871/deck/pfm.007.txt ยท Last modified: by 127.0.0.1