User Tools

Site Tools


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

Deck PFM Part 009

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S07459 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10326  M02S07459.242l642 ---|          CRD    CM
Line S07460 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10327  M02S07460.242l642 ---|          LDN    3
Line S07461 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10328  M02S07461.242l642 ---|          STD    CM
Line S07462 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10329  M02S07462.242l642 ---|          RAD    CI
Line S07463 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10330  M02S07463.242l642 ---| UCE1     LDM    CM+2-1,CM
Line S07464 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm26
M03 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10331  M03S07464.242l642 ---| UCEA     UJN    UCE2        BYPASS FCMD, FCUD UPDATE
Line S00001 Modification History
M01 (Added by) pfm26
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10332  M02S00001.242l642 ---| UCEA     UJN    UCE2        READ ACCESS - BYPASS FCMD, FCUD UPDATES
Line S00002 Modification History
M01 (Added by) pfm26
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10333  M02S00002.242l642 ---|*         UJN    UCE3        (*UATTACH*/M=R - BYPASS DATE/TIME UPDATES)
Line S00003 Modification History
M01 (Added by) pfm26
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10334  M02S00003.242l642 ---|*         STM    FCUD-1,CI   (UPDATE UTILITY CONTROL DATE/TIME)
Line S07465 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10335  M02S07465.242l642 ---|          CON    FCUD-1
Line S07466 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm26
M03 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10336  M03S07466.242l642 ---|*         STM    FCUD-1,CI   (UPDATE UTILITY CONTROL DATE)
Line S07467 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10337  M02S07467.242l642 ---| UCEB     STM    FCMD-1,CI   UPDATE MODIFICATION DATE
Line S07468 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10338  M02S07468.242l642 ---|*         UJN    UCE3        (*UATTACH* - BYPASS FCMD, FCAD UPDATE)
Line S07469 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10339  M02S07469.242l642 ---| UCE2     STM    FCAD-1,CI   UPDATE ACCESS DATE
Line S07470 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10340  M02S07470.242l642 ---| UCE3     SOD    CI
Line S07471 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10341  M02S07471.242l642 ---|          SOD    CM
Line S07472 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10342  M02S07472.242l642 ---|          NJN    UCE1        IF UPDATE NOT COMPLETE
Line S07473 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10343  M02S07473.242l642 ---|
Line S07474 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10344  M02S07474.242l642 ---|*         UPDATE ACCESS COUNT.
Line S07475 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10345  M02S07475.242l642 ---|
Line S07476 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10346  M02S07476.242l642 ---| UCEC     AOM    FCAC+1,CI   ADVANCE ACCESS COUNT
Line S07477 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10347  M02S07477.242l642 ---|*         UJN    UCE4        (*UATTACH* - BYPASS ACCESS COUNT UPDATE)
Line S07478 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10348  M02S07478.242l642 ---|          SHN    -14
Line S07479 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10349  M02S07479.242l642 ---|          RAM    FCAC,CI
Line S07480 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10350  M02S07480.242l642 ---|
Line S07481 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10351  M02S07481.242l642 ---|*         REWRITE CATALOG ENTRY.
Line S07482 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10352  M02S07482.242l642 ---|
Line S07483 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10353  M02S07483.242l642 ---| UCE4     LDD    CB          REWRITE CATALOG
Line S07484 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10354  M02S07484.242l642 ---|          RJM    WBI
Line S07485 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10355  M02S07485.242l642 ---|          LJM    UCEX        RETURN
Line S07486 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10356  M02S07486.242l642 ---|
Line S07487 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10357  M02S07487.242l642 ---|*         CHECK RANGE ON GENERATED JUMPS.
Line S07488 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10358  M02S07488.242l642 ---|
Line S07489 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10359  M02S07489.242l642 ---|          ERRNG  37-UCE3+UCEB
Line S07490 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10360  M02S07490.242l642 ---|          ERRNG  37-UCE4+UCEC
Line S00819 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10361  M02S00819.253l688 ---|          TITLE  OVERLAYABLE SUBROUTINES.
Line S00820 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10362  M02S00820.253l688 ---| IUR      SPACE  4,10
Line S00821 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10363  M02S00821.253l688 ---|**        IUR - INITIALIZE UPDATE ROUTINES.
10364  M01S00245.253l688 +++| RTK      SPACE  4,20
10365  M01S00246.253l688 +++|**        RTK - REQUEST LINKED TRACK.
10366  M01S00822.242l642 +++|*
Line S00823 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10367  M02S00823.253l688 ---|*         ENTRY  (PFPW) = PERMANENT FILE PASSWORD.
Line S00824 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2426
M03 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10368  M03S00824.253l688 ---|*                (PUCW) = USER CONTROL WORD.
Line S00083 Modification History
M01 (Added by) ns2426
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10369  M02S00083.253l688 ---|*                (PUCN) = USER CONTROL WORD.
10370  M01S00247.253l688 +++|*         ENTRY  (T6) = ADDRESS OF LAST TRACK IN CHAIN.
10371  M01S00248.253l688 +++|*                (T5) = MASTER DEVICE EST ORDINAL.
10372  M01S00825.242l642 +++|*
Line S00826 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10373  M02S00826.253l688 ---|*         EXIT   (FCEG) = PRESET TO UPDATE USER CONTROL WORD IN
Line S00827 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10374  M02S00827.253l688 ---|*                         CATALOG ENTRY.
Line S00828 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10375  M02S00828.253l688 ---|*                (FCEH) = PRESET TO UPDATE PASSWORD IN CATALOG ENTRY.
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.
10388  M01S00829.242l642 +++|
10389  M01S00830.242l642 +++|
Line S00831 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10390  M02S00831.253l688 ---| IUR      SUBR               ENTRY/EXIT
Line S00832 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2426
M03 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10391  M03S00832.253l688 ---|          LDM    PUCW
Line S00084 Modification History
M01 (Added by) ns2426
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10392  M02S00084.253l688 ---|          LDM    PUCN
Line S00833 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10393  M02S00833.253l688 ---|          SHN    21-13
Line S00834 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10394  M02S00834.253l688 ---|          PJN    IUR1        IF NO USER CONTROL WORD SPECIFIED
Line S00835 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10395  M02S00835.253l688 ---|          LDN    PSNI        FORCE UPDATE OF USER CONTROL WORD
Line S00836 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10396  M02S00836.253l688 ---|          STM    FCEG
Line S00837 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10397  M02S00837.253l688 ---| IUR1     LDM    PFPW
Line S00838 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10398  M02S00838.253l688 ---|          ZJN    IUR2        IF PASSWORD NOT SPECIFIED
Line S00839 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10399  M02S00839.253l688 ---|          LDN    PSNI        FORCE UPDATE OF PASSWORD
Line S00840 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10400  M02S00840.253l688 ---|          STM    FCEH
Line S00841 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10401  M02S00841.253l688 ---| IUR2     UJN    IURX        RETURN
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 (Updated by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10416  M02S00275.ns2645  ---|          SETMS  IO
10417  M01S00005.ns2645  +++|          SETMS  IO,NS
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
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
10460  M01S00135.pfm54   +++| CIA      EQU    /".O"/CIA
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
10468  M01S00136.pfm54   +++| IIA      EQU    /".O"/IIA
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
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
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.
10494  M01S00106.ns2415  +++|*                TO *HNG* IF PERMIT CHAIN NOT RESERVED.
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 (Updated by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10500  M02S00897.ns2415  ---|*         MACROS ENDMS, ERROR.
10501  M01S00107.ns2415  +++|*         MACROS ENDMS, ERROR, MONITOR.
10502  M01S00898.242l642 +++|
10503  M01S00899.242l642 +++|
10504  M01S00900.242l642 +++| APS4     LDD    T6          SAVE ADDRESS OF NEW EOI
10505  M01S00901.242l642 +++|          STM    EOIA
10506  M01S00300.253l688 +++|          STM    EOIFS+2
10507  M01S00902.242l642 +++|          LDD    T7
10508  M01S00903.242l642 +++|          STM    EOIA+1
10509  M01S00301.253l688 +++|          STM    EOIFS+3
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 (Updated by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10515  M02S00909.ns2415  ---|          LDD    T6          SET ALLOCATION INTERLOCKED FLAG
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
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  M01S07491.pfm     +++|          TITLE  PERMIT UPDATE ROUTINES.
Line S07492 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10544  M02S07492.242l642 ---| CPE      SPACE  4,10
10545  M01S00933.242l642 +++| CPE      SPACE  4,15
10546  M01S07493.pfm     +++|**        CPE - CREATE PERMIT ENTRY.
10547  M01S07494.pfm     +++|*
Line S07495 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10548  M02S07495.242l642 ---|*         EXIT   NEW PERMIT ENTRY WRITTEN.
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  M01S07496.pfm     +++|*                RANDOM ADDRESS SET IN CATALOG ENTRY IF
10553  M01S07497.pfm     +++|*                NEW PERMIT SECTOR CREATED.
10554  M01S07498.pfm     +++|*
10555  M01S07499.pfm     +++|*         USES   T5, RI - RI+1.
10556  M01S07500.pfm     +++|*
10557  M01S07501.pfm     +++|*         CALLS  APS, FPE, WBI, WNP.
10558  M01S07502.pfm     +++|*
10559  M01S07503.pfm     +++|*         MACROS ERROR, SETMS.
10560  M01S07504.pfm     +++|
10561  M01S07505.pfm     +++|
10562  M01S07506.pfm     +++| CPE      SUBR               ENTRY/EXIT
10563  M01S07507.pfm     +++|          LDM    SDAA        SET EST ORDINAL
10564  M01S07508.pfm     +++|          STD    T5
Line S07509 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10565  M02S07509.242l642 ---|          SETMS
Line S00937 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10566  M02S00937.ns2645  ---|          SETMS  STATUS
10567  M01S00006.ns2645  +++|          SETMS  STATUS,NS
10568  M01S07510.pfm     +++|          LDM    FCRI,CI     GET PERMIT RANDOM INDEX
10569  M01S07511.pfm     +++|          STD    RI
10570  M01S07512.pfm     +++|          LDM    FCRI+1,CI
10571  M01S07513.pfm     +++|          STD    RI+1
10572  M01S07514.pfm     +++|          ADD    RI
10573  M01S07515.pfm     +++|          NJN    CPE2        IF PERMIT DATA AVAILABLE
10574  M01S07516.pfm     +++|
10575  M01S07517.pfm     +++|*         ALLOCATE PERMITS FOR FILE WITH NO EXISTING PERMIT DATA.
10576  M01S07518.pfm     +++|
10577  M01S07519.pfm     +++|          RJM    APS         ALLOCATE PERMIT SPACE
10578  M01S07520.pfm     +++|          LDD    RI          SET RANDOM INDEX INTO CATALOG
10579  M01S07521.pfm     +++|          STM    FCRI,CI
10580  M01S07522.pfm     +++|          LDD    RI+1
10581  M01S07523.pfm     +++|          STM    FCRI+1,CI
Line S07524 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10582  M02S07524.242l642 ---| CPE0     RJM    WNP         WRITE NEW PERMIT SECTOR
10583  M01S00938.242l642 +++|          RJM    WNP         WRITE NEW PERMIT BUFFER
10584  M01S07525.pfm     +++| CPE1     UJN    CPEX        RETURN
10585  M01S07526.pfm     +++|
10586  M01S07527.pfm     +++|*         PROCESS FILE WITH EXISTING PERMIT DATA.
10587  M01S07528.pfm     +++|
10588  M01S07529.pfm     +++| CPE2     LDM    1,PB        CHECK FOR FULL SECTOR OF PERMITS
10589  M01S07530.pfm     +++|          LPN    77
Line S07531 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10590  M02S07531.242l642 ---|          ZJN    CPE3        IF FULL SECTOR OF PERMITS
10591  M01S00939.242l642 +++|          ZJN    CPE4        IF FULL SECTOR OF PERMITS
10592  M01S07532.pfm     +++|          LDM    NPHA        SET HOLE ADDRESS
10593  M01S07533.pfm     +++|          RJM    FPE         FORM PERMIT ENTRY
10594  M01S07534.pfm     +++|          LDD    PB          REWRITE PERMIT SECTOR
10595  M01S07535.pfm     +++|          RJM    WBI
10596  M01S00940.242l642 +++| CPE3     LDK    RFPC        SET PERMIT COUNT UPDATED
10597  M01S00941.242l642 +++|          RAM    PWRF
10598  M01S07536.pfm     +++|          UJN    CPE1        RETURN
10599  M01S07537.pfm     +++|
10600  M01S07538.pfm     +++|*         REWRITE FULL SECTOR OF PERMITS WITH LINK TO NEW SECTOR.
10601  M01S07539.pfm     +++|
Line S07540 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10602  M02S07540.242l642 ---| CPE3     RJM    APS         ALLOCATE PERMIT SPACE
10603  M01S00942.242l642 +++| CPE4     RJM    APS         ALLOCATE PERMIT SPACE
10604  M01S07541.pfm     +++|          LDD    RI          SET RANDOM ADDRESS OF NEW PERMIT SECTOR
10605  M01S07542.pfm     +++|          STM    FPRI,PB
10606  M01S07543.pfm     +++|          LDD    RI+1
10607  M01S07544.pfm     +++|          STM    FPRI+1,PB
10608  M01S07545.pfm     +++|          LDD    PB          REWRITE EXISTING PERMIT SECTOR
10609  M01S07546.pfm     +++|          RJM    WBI
Line S07547 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10610  M02S07547.242l642 ---|          UJN    CPE0        WRITE NEW PERMIT SECTOR
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  M01S07548.pfm     +++| FPE      SPACE  4,15
10618  M01S07549.pfm     +++|**        FPE - FORM PERMIT ENTRY IN BUFFER.
10619  M01S07550.pfm     +++|*
10620  M01S07551.pfm     +++|*         ENTRY  (A) = BUFFER LOCATION WHERE ENTRY IS TO BE FORMED.
10621  M01S07552.pfm     +++|*                (PP) = IF NEW ENTRY TO BE FORMED.
10622  M01S07553.pfm     +++|*                (PB) = ADDRESS OF PERMIT BUFFER.
10623  M01S07554.pfm     +++|*                (PI - PI+1) =  PERMITTED INDEX.
10624  M01S07555.pfm     +++|*                (MODE) = PERMITTED MODE.
10625  M01S07556.pfm     +++|*                (PFOU - PFOU+3) = OPTIONAL USER NAME.
10626  M01S07557.pfm     +++|*                (PFXT - PFXT+1) = EXPIRATION DATE.
10627  M01S07558.pfm     +++|*
10628  M01S07559.pfm     +++|*         EXIT   ENTRY FORMED IN PERMIT BUFFER.
10629  M01S07560.pfm     +++|*                ACCESS COUNT SET TO 1 IF IMPLICIT PERMIT ENTRY.
10630  M01S07561.pfm     +++|*
10631  M01S07562.pfm     +++|*         USES   T1, CM - CM+4.
10632  M01S07563.pfm     +++|
10633  M01S07564.pfm     +++|
10634  M01S07565.pfm     +++| FPE      SUBR               ENTRY/EXIT
10635  M01S07566.pfm     +++|          STD    T1          SAVE ADDRESS OF BUFFER
10636  M01S07567.pfm     +++|          STM    FPEA
10637  M01S07568.pfm     +++|          ADN    FPAC        SET ACCESS COUNT WORD ADDRESS
10638  M01S07569.pfm     +++|          STM    FPEC
10639  M01S07570.pfm     +++|          LDD    MA          SET USER NAME IN PERMIT ENTRY
10640  M01S07571.pfm     +++|          CWM    PFOU,ON
10641  M01S07572.pfm     +++|          SBN    1
10642  M01S07573.pfm     +++|          CRM    *,ON
10643  M01S07574.pfm     +++| FPEA     EQU    *-1
10644  M01S07575.pfm     +++|          LDD    PB          SET ADDRESS OF PERMIT HEADER
10645  M01S07576.pfm     +++|          ADN    FPUD
10646  M01S07577.pfm     +++|          STM    FPEB
10647  M01S07578.pfm     +++|          LDN    PDTL
10648  M01S07579.pfm     +++|          CRM    *,ON        SET DATE/TIME IN PERMIT ENTRY
10649  M01S07580.pfm     +++| FPEB     EQU    *-1
10650  M01S07581.pfm     +++|          SBN    1
10651  M01S07582.pfm     +++|          CRM    *,ON        SET DATE/TIME IN PERMIT HEADER
10652  M01S07583.pfm     +++| FPEC     EQU    *-1
10653  M01S07584.pfm     +++|          LDM    MODE        SET MODE/ACCESS COUNT
10654  M01S07585.pfm     +++|          LPN    17
10655  M01S07586.pfm     +++|          LMM    SAPF        SET IMPLICIT PERMIT FLAG, IF APPROPRIATE
10656  M01S07587.pfm     +++|          ADM    IACP        INCREMENT ACCESS COUNT, IF APPROPRIATE
10657  M01S07588.pfm     +++|          STM    FPAC+1,T1
10658  M01S07589.pfm     +++|          LDM    FPXD,T1     SET EXPIRATION DATE
10659  M01S07590.pfm     +++|          SCN    77
10660  M01S07591.pfm     +++|          LMM    PXDT
10661  M01S07592.pfm     +++|          STM    FPXD,T1
10662  M01S07593.pfm     +++|          LDM    PXDT+1
10663  M01S07594.pfm     +++|          STM    FPXD+1,T1
10664  M01S07595.pfm     +++|          LDM    SAPF
10665  M01S07596.pfm     +++|          NJN    FPE1        IF ACCOUNTING PERMIT
10666  M01S07597.pfm     +++|          LDN    40          INDICATE EXPIRATION DATE IS PRESENT
10667  M01S07598.pfm     +++|          RAM    FPAC+1,T1
10668  M01S07599.pfm     +++| FPE1     LDN    NWPE        ADVANCE WORD COUNT
10669  M01S07600.pfm     +++|          RAM    1,PB
10670  M01S07601.pfm     +++|          LJM    FPEX        EXIT
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 (Updated by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10705  M02S00336.ns2645  ---|          SETMS  IO
10706  M01S00007.ns2645  +++|          SETMS  IO,NS
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  M01S07602.pfm     +++| UPI      SPACE  4,20
10719  M01S07603.pfm     +++|**        UPI - UPDATE PERMIT INFORMATION.
10720  M01S07604.pfm     +++|*
10721  M01S07605.pfm     +++|*         ENTRY  (PP) = POINTER TO PERMIT ENTRY.
10722  M01S07606.pfm     +++|*                (PP) = 0 IF NO PERMIT ENTRY PRESENT.
10723  M01S07607.pfm     +++|*                (PB) = ADDRESS OF PERMIT BUFFER.
10724  M01S07608.pfm     +++|*                (PB) = 0 IF NO PERMISSION UPDATE REQUIRED.
10725  M01S07609.pfm     +++|*                (CI) = POINTER TO CATALOG ENTRY.
10726  M01S00949.242l642 +++|*                (PWRF) = *PFM* RESTART FLAGS.
10727  M01S07610.pfm     +++|*                PERMIT BUFFER LOADED IF PERMIT EXISTS.
10728  M01S07611.pfm     +++|*
Line S07612 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10729  M02S07612.242l642 ---|*         EXIT   PERMIT ENTRY UPDATED.
10730  M01S00950.242l642 +++|*         EXIT   (PWRF) = *RFPC* FLAG SET IF PERMIT COUNT UPDATED.
10731  M01S00951.242l642 +++|*                PERMIT ENTRY UPDATED.
10732  M01S07613.pfm     +++|*                PERMIT ENTRY CREATED IF SEMIPRIVATE ACCESS.
10733  M01S07614.pfm     +++|*                (FCKD) UPDATED IF PERMIT DATA CHANGED.
10734  M01S07615.pfm     +++|*
10735  M01S07616.pfm     +++|*         USES   T5, T6, T7, CM - CM+4.
10736  M01S07617.pfm     +++|*
Line S07618 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10737  M02S07618.242l642 ---|*         CALLS  CPE, RDS, WBI.
10738  M01S00952.242l642 +++|*         CALLS  CPE, PDV, PES, RDS, WBI.
10739  M01S07619.pfm     +++|*
10740  M01S07620.pfm     +++|*         MACROS ERROR, SETMS.
10741  M01S07621.pfm     +++|
10742  M01S07622.pfm     +++|
10743  M01S07623.pfm     +++| UPI      SUBR               ENTRY/EXIT
10744  M01S07624.pfm     +++|          LDD    PB
10745  M01S07625.pfm     +++|          ZJN    UPIX        IF NO PERMIT BUFFER
10746  M01S07626.pfm     +++|          LDM    STAT
10747  M01S07627.pfm     +++|          LPN    STPR
10748  M01S07628.pfm     +++|          ZJN    UPI1        IF PERMITS HAVE NOT BEEN READ
10749  M01S07629.pfm     +++| UPIB     LDN    0
10750  M01S07630.pfm     +++|*         LDN    1           (*BFMS* REUSED FOR SYSTEM SECTOR ACCESS)
10751  M01S07631.pfm     +++|          ZJN    UPI1        IF *BFMS* HAS NOT BEEN REUSED
10752  M01S07632.pfm     +++|          LDM    BFMS-2      RESET PERMIT BUFFER TRACK AND SECTOR
10753  M01S07633.pfm     +++|          STD    T6
10754  M01S07634.pfm     +++|          LDM    BFMS-1
10755  M01S07635.pfm     +++|          STD    T7
Line S07636 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10756  M02S07636.242l642 ---|          SETMS  READ
Line S00953 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
10757  M02S00953.ns2645  ---|          SETMS  IO
10758  M01S00008.ns2645  +++|          SETMS  IO,NS
10759  M01S00954.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
10760  M01S07637.pfm     +++|          LDC    BFMS        REREAD PERMIT BUFFER
10761  M01S07638.pfm     +++|          RJM    RDS
10762  M01S07639.pfm     +++|          PJN    UPI1        IF NO ERROR
10763  M01S00955.242l642 +++|          RJM    PES         PROCESS ERROR STATUS
Line S07640 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10764  M02S07640.ns2415  ---|          ERROR  MSE,CH,,EQ  *EQXXX,DNXX,MASS STORAGE ERROR.*
10765  M01S00112.ns2415  +++|          ERROR  MSE,CH,,EQ  *EQXXX,DNYY, MASS STORAGE ERROR.*
10766  M01S07641.pfm     +++|
10767  M01S07642.pfm     +++| UPI1     LDM    FCCT,CI     CHECK FILE TYPE
10768  M01S07643.pfm     +++|          SHN    -6
Line S07644 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
10769  M02S07644.pfm67   ---|          LMN    FCPB
Line S07645 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
10770  M02S07645.pfm67   ---|          ZJN    UPI2        IF PUBLIC FILE
Line S07646 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
10771  M02S07646.pfm67   ---|          LMN    FCSP&FCPB
10772  M01S00010.pfm67   +++|          LMN    FCSP
10773  M01S07647.pfm     +++|          ZJN    UPI3        IF SEMI-PRIVATE FILE
10774  M01S07648.pfm     +++|          LDD    PP
Line S07649 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
10775  M02S07649.pfm67   ---|          NJN    UPI4        IF PERMIT FOUND (PRIVATE FILE)
10776  M01S00011.pfm67   +++|          NJN    UPI4        IF PERMIT FOUND (PRIVATE OR PUBLIC FILE)
10777  M01S07650.pfm     +++| UPI2     UJP    UPIX        RETURN
10778  M01S07651.pfm     +++|
10779  M01S07652.pfm     +++| UPI3     LDD    PP
Line S07653 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10780  M02S07653.242l642 ---|          ZJN    UPI5        IF NO PERMIT DATA AND SEMIPRIVATE FILE
10781  M01S00956.242l642 +++|          ZJP    UPI5        IF NO PERMIT DATA AND SEMIPRIVATE FILE
10782  M01S07654.pfm     +++|
10783  M01S07655.pfm     +++|*         UPDATE EXISTING PERMIT ENTRY.
10784  M01S07656.pfm     +++|
10785  M01S07657.pfm     +++| UPI4     LDN    PDTL        READ PACKED DATE AND TIME
10786  M01S07658.pfm     +++|          CRD    CM
10787  M01S00957.242l642 +++|          LDM    PWRF
10788  M01S00958.242l642 +++|          LPK    RFPC
10789  M01S00959.242l642 +++|          NJN    UPI4.1      IF PERMIT COUNT UPDATED
10790  M01S07659.pfm     +++|          LDD    HN          INCREMENT ACCESS COUNT
10791  M01S07660.pfm     +++|          RAM    FPAC+1,PP
10792  M01S07661.pfm     +++|          SHN    -14
10793  M01S07662.pfm     +++|          RAM    FPAC,PP
Line S07663 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10794  M02S07663.242l642 ---|          LDD    CM+2        UPDATE LAST ACCESS DATE AND TIME
10795  M01S00960.242l642 +++| UPI4.1   LDD    CM+2        UPDATE LAST ACCESS DATE AND TIME
10796  M01S07664.pfm     +++|          STM    FPAD,PP
10797  M01S07665.pfm     +++|          LDD    CM+3
10798  M01S07666.pfm     +++|          STM    FPAD+1,PP
10799  M01S07667.pfm     +++|          LDD    CM+4
10800  M01S07668.pfm     +++|          STM    FPAD+2,PP
10801  M01S07669.pfm     +++|          LDD    PB          REWRITE PERMIT SECTOR
10802  M01S07670.pfm     +++|          RJM    WBI
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  M01S07671.pfm     +++|          LJM    UPI7        UPDATE CATALOG ENTRY
10808  M01S07672.pfm     +++|
10809  M01S07673.pfm     +++|*         CREATE NEW PERMIT ENTRY FOR SEMI-PRIVATE FILE.
10810  M01S07674.pfm     +++|
10811  M01S07675.pfm     +++| UPI5     LDM    EBTK
10812  M01S07676.pfm     +++|          ZJN    UPI6        IF *BFMS* WAS NOT USED FOR *END* BUFFER
10813  M01S07677.pfm     +++|          LDM    STAT        INDICATE THAT *BFMS* HAS BEEN REUSED
10814  M01S07678.pfm     +++|          SCN    STBR
10815  M01S07679.pfm     +++|          LMN    STBR
10816  M01S07680.pfm     +++|          STM    STAT
10817  M01S07681.pfm     +++| UPI6     LDD    MA          SET USER NAME
10818  M01S07682.pfm     +++|          CWM    PFAC,ON
10819  M01S07683.pfm     +++|          SBN    1
10820  M01S07684.pfm     +++|          CRM    PFOU,ON
10821  M01S07685.pfm     +++|          LDM    MODE        SAVE REQUESTED MODE
10822  M01S07686.pfm     +++|          STM    UPIA
10823  M01S07687.pfm     +++|          LDM    FCAM,CI     SET FILE MODE FOR PERMIT ENTRY
10824  M01S07688.pfm     +++|          LPN    77
10825  M01S07689.pfm     +++|          STM    MODE
10826  M01S07690.pfm     +++|          LDN    0           CLEAR EXPIRATION DATE
10827  M01S07691.pfm     +++|          STM    PXDT
10828  M01S07692.pfm     +++|          STM    PXDT+1
10829  M01S07693.pfm     +++|          RJM    CPE         CREATE PERMIT ENTRY
10830  M01S07694.pfm     +++|          LDC    *           RESET ORIGINAL VALUE OF *MODE*
10831  M01S07695.pfm     +++| UPIA     EQU    *-1
10832  M01S07696.pfm     +++|          STM    MODE
10833  M01S07697.pfm     +++|
10834  M01S07698.pfm     +++|*         UPDATE CONTROL MODIFICATION DATE IN CATALOG ENTRY.
10835  M01S07699.pfm     +++|
10836  M01S07700.pfm     +++| UPI7     LDN    PDTL
10837  M01S07701.pfm     +++|          CRD    CM
10838  M01S07702.pfm     +++|          LDD    CM+2
10839  M01S07703.pfm     +++|          STM    FCKD,CI
10840  M01S07704.pfm     +++|          LDD    CM+3
10841  M01S07705.pfm     +++|          STM    FCKD+1,CI
10842  M01S07706.pfm     +++|          LDD    CM+4
10843  M01S07707.pfm     +++|          STM    FCKD+2,CI
10844  M01S07708.pfm     +++|          UJP    UPIX        RETURN
10845  M01S07709.pfm     +++| WNP      SPACE  4,20
10846  M01S07710.pfm     +++|**        WNP - WRITE NEW PERMIT BUFFER.
10847  M01S07711.pfm     +++|*
10848  M01S07712.pfm     +++|*         ENTRY  (PB) = ADDRESS OF PERMIT BUFFER.
10849  M01S07713.pfm     +++|*                (RI - RI+1) = RANDOM ADDRESS OF NEW PERMIT SECTOR.
10850  M01S07714.pfm     +++|*                (UI - UI+1) = USER INDEX OF PERMITTED FILE.
10851  M01S07715.pfm     +++|*                (PI - PI+1) = USER INDEX OF PERMITTED USER.
10852  M01S07716.pfm     +++|*                (EIOA) SET WITH ADDRESS OF NEW EOI SECTOR.
10853  M01S07717.pfm     +++|*                (WNPB) = LINKAGE TO NEW EOI SECTOR.
10854  M01S07718.pfm     +++|*                PERMIT ALLOCATION INTERLOCK SET.
10855  M01S07719.pfm     +++|*
10856  M01S07720.pfm     +++|*         EXIT   NEW PERMIT SECTOR FORMED AND WRITTEN.
10857  M01S07721.pfm     +++|*                NEW EOI WRITTEN.
10858  M01S07722.pfm     +++|*                PERMIT ALLOCATION INTERLOCK CLEARED.
10859  M01S07723.pfm     +++|*
10860  M01S07724.pfm     +++|*         CALLS  CAI, CSA, FPE, WBI.
10861  M01S07725.pfm     +++|*
10862  M01S07726.pfm     +++|*         MACROS ENDMS.
10863  M01S07727.pfm     +++|
10864  M01S07728.pfm     +++|
10865  M01S07729.pfm     +++| WNP      SUBR               ENTRY/EXIT
10866  M01S07730.pfm     +++|          LDD    PB          SET BUFFER ADDRESS
10867  M01S07731.pfm     +++|          ADN    1
10868  M01S07732.pfm     +++|          STM    WNPA
10869  M01S07733.pfm     +++|          LDC    500
10870  M01S07734.pfm     +++|          STD    T1
10871  M01S07735.pfm     +++| WNP1     LDN    0           CLEAR PERMIT BUFFER
10872  M01S07736.pfm     +++|          STM    *,T1
10873  M01S07737.pfm     +++| WNPA     EQU    *-1         (ADDRESS OF BUFFER + 1)
10874  M01S07738.pfm     +++|          SOD    T1
10875  M01S07739.pfm     +++|          PJN    WNP1        IF MORE BYTES TO CLEAR
10876  M01S07740.pfm     +++|          LDC    *           SET LINKAGE TO EOI
10877  M01S07741.pfm     +++| WNPB     EQU    *-1
10878  M01S07742.pfm     +++|          STI    PB
10879  M01S07743.pfm     +++|          LDN    NWPH        SET WORD COUNT FOR HEADER
10880  M01S07744.pfm     +++|          STM    1,PB
10881  M01S07745.pfm     +++|          RJM    CSA         COMPUTE ADDRESS OF NEW PERMIT SECTOR
10882  M01S07746.pfm     +++|          LDD    T6          SET CURRENT TRACK AND SECTOR
10883  M01S07747.pfm     +++|          STM    -2,PB
10884  M01S07748.pfm     +++|          LDD    T7
10885  M01S07749.pfm     +++|          STM    -1,PB
10886  M01S07750.pfm     +++|          LDD    UI          SET USER INDEX
10887  M01S07751.pfm     +++|          STM    FPUI,PB
10888  M01S07752.pfm     +++|          LDD    UI+1
10889  M01S07753.pfm     +++|          STM    FPUI+1,PB
10890  M01S07754.pfm     +++|          LDD    PB          SET INDEX FOR FIRST PERMIT ENTRY
10891  M01S07755.pfm     +++|          ADN    NWPH*5+2    SKIP HEADER AND CONTROL BYTES
10892  M01S07756.pfm     +++|          RJM    FPE         FORM PERMIT ENTRY
10893  M01S07757.pfm     +++|          LDD    PB          WRITE NEW PERMIT SECTOR
10894  M01S07758.pfm     +++|          RJM    WBI
10895  M01S07759.pfm     +++|          LDC    EOIB        WRITE NEW EOI
10896  M01S07760.pfm     +++|          RJM    WBI
10897  M01S07761.pfm     +++|          ENDMS
10898  M01S07762.pfm     +++|          RJM    CAI         CLEAR ALLOCATION INTERLOCK
10899  M01S07763.pfm     +++|          LJM    WNPX        RETURN
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 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10909  M02S07764.242l642 ---|          SPACE  4,10
Line S07765 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10910  M02S07765.242l642 ---| OVLC     EQU    *+5         COMMAND CODE LOAD ADDRESS
Line S00024 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10911  M02S00024.242l642 ---| IUR      SPACE  4,10
Line S00025 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10912  M02S00025.242l642 ---|**        IUR - INITIALIZE UPDATE ROUTINES.
Line S00026 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10913  M02S00026.242l642 ---|
Line S00027 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10914  M02S00027.242l642 ---|
Line S00028 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10915  M02S00028.242l642 ---| IUR      BSS    0           ENTRY
Line S00029 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10916  M02S00029.242l642 ---|          LDM    PUCW
Line S00030 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10917  M02S00030.242l642 ---|          SHN    21-13
Line S00031 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10918  M02S00031.242l642 ---|          PJN    IUR1        IF NO USER CONTROL WORD SPECIFIED
Line S00032 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10919  M02S00032.242l642 ---|          LDN    PSNI        FORCE UPDATE OF USER CONTROL WORD
Line S00033 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10920  M02S00033.242l642 ---|          STM    FCEG
Line S00034 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10921  M02S00034.242l642 ---| IUR1     LDM    PFPW
Line S00035 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10922  M02S00035.242l642 ---|          ZJN    IUR2        IF PASSWORD NOT SPECIFIED
Line S00036 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10923  M02S00036.242l642 ---|          LDN    PSNI        FORCE UPDATE OF PASSWORD
Line S00037 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10924  M02S00037.242l642 ---|          STM    FCEH
Line S00038 Modification History
M01 (Added by) 241l630
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10925  M02S00038.242l642 ---| IUR2     LJM    ".Q"X       RETURN AFTER LOAD
10926  M01S07766.pfm     +++|          SPACE  4,10
10927  M01S07767.pfm     +++|*         CHECK FOR OVERFLOW.
10928  M01S07768.pfm     +++|
10929  M01S07769.pfm     +++|
10930  M01S00965.242l642 +++|          OVERFLOW  OVLU,OVLC    OVERFLOW INTO COMMAND OVERLAY AREA
Line S07770 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
10931  M02S07770.ns2415  ---|          OVERFLOW   OVLU,BUF2-2  OVERFLOW INTO CATALOG BUFFER
10932  M01S00113.ns2415  +++|          SPACE  4,10
10933  M01S00114.ns2415  +++|          OVERFLOW  OVLU,BUF2-2  OVERFLOW INTO CATALOG BUFFER
10934  M01S07771.pfm     +++|          EJECT
10935  M01S07772.pfm     +++|*         EQUIVALENCE EXTERNALLY REFERENCED TAGS.
10936  M01S07773.pfm     +++|
10937  M01S07774.pfm     +++|
10938  M01S07775.pfm     +++|          QUAL   *
10939  M01S07776.pfm     +++|
Line S07777 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10940  M02S07777.242l642 ---| AFS      EQU    /".O"/AFS
Line S07778 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10941  M02S07778.242l642 ---| AFSB     EQU    /".O"/AFSB
Line S07779 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10942  M02S07779.242l642 ---| CCS      EQU    /".O"/CCS
Line S07780 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10943  M02S07780.242l642 ---| CCS5.1   EQU    /".O"/CCS5.1
Line S07781 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10944  M02S07781.242l642 ---| CCSB     EQU    /".O"/CCSB
Line S07782 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10945  M02S07782.242l642 ---| CCSC     EQU    /".O"/CCSC
Line S07783 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10946  M02S07783.242l642 ---| CCSE     EQU    /".O"/CCSE
10947  M01S07784.pfm     +++| CPE      EQU    /".O"/CPE
Line S07785 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10948  M02S07785.242l642 ---| DCE      EQU    /".O"/DCE
Line S07786 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10949  M02S07786.242l642 ---| DCEC     EQU    /".O"/DCEC
Line S07787 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10950  M02S07787.242l642 ---| DCED     EQU    /".O"/DCED
Line S07788 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10951  M02S07788.242l642 ---| DCEE     EQU    /".O"/DCEE
Line S07789 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10952  M02S07789.242l642 ---| FCE7.1   EQU    /".O"/FCE7.1
Line S07790 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10953  M02S07790.242l642 ---| FCEE     EQU    /".O"/FCEE
Line S07791 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10954  M02S07791.242l642 ---| FCEL     EQU    /".O"/FCEL
Line S07792 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10955  M02S07792.242l642 ---| UCE      EQU    /".O"/UCE
Line S07793 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10956  M02S07793.242l642 ---| UCE3     EQU    /".O"/UCE3
Line S07794 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10957  M02S07794.242l642 ---| UCE4     EQU    /".O"/UCE4
Line S07795 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10958  M02S07795.242l642 ---| UCEA     EQU    /".O"/UCEA
Line S07796 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10959  M02S07796.242l642 ---| UCEB     EQU    /".O"/UCEB
Line S07797 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10960  M02S07797.242l642 ---| UCEC     EQU    /".O"/UCEC
10961  M01S07798.pfm     +++| UPI      EQU    /".O"/UPI
10962  M01S07799.pfm     +++| UPIB     EQU    /".O"/UPIB
Line S07800 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10963  M02S07800.242l642 ---|
Line S07801 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10964  M02S07801.242l642 ---| OVLC     EQU    /".O"/OVLC
10965  M01S07802.pfm     +++|          OVERLAY  (GET/OLD/UGET PROCESSING.)
10966  M01S07803.pfm     +++|          SPACE  4,10
10967  M01S07804.pfm     +++|**        THIS OVERLAY PROCESSES *GET*, *OLD*, AND *UGET* REQUESTS.
10968  M01S07805.pfm     +++|*
10969  M01S07806.pfm     +++|*         ENTRY  (P0) = PROCESSING ADDRESS.
10970  M01S07807.pfm     +++|
10971  M01S07808.pfm     +++|
10972  M01S07809.pfm     +++| OVL      BSS    0           ENTRY
Line S07810 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
10973  M02S07810.242l642 ---|          RJM    RMD         RESET TO MASTER DEVICE
10974  M01S00966.242l642 +++|          LDD    EQ          RESET MASTER DEVICE EST ORDINAL
10975  M01S00967.242l642 +++|          STD    T5
10976  M01S07811.pfm     +++|          LJM    0,P0        PROCESS REQUEST
10977  M01S07812.pfm     +++|          TITLE  COMMAND PROCESSING.
10978  M01S07813.pfm     +++| GET      SPACE  4,10
10979  M01S07814.pfm     +++|***       PROCESS *GET* REQUEST.
10980  M01S07815.pfm     +++|*
10981  M01S07816.pfm     +++|*         GENERATE WORKING COPY OF INDIRECT ACCESS FILE *PF NAME*.
10982  M01S07817.pfm     +++|*         THIS COPY WILL NOT BE PERMANENT UNTIL *SAVE* *REPLACE*
10983  M01S07818.pfm     +++|*         OR *DEFINE* REQUEST FOR LOCAL FILE IS ISSUED.
10984  M01S07819.pfm     +++|
10985  M01S07820.pfm     +++|
10986  M01S07821.pfm     +++| GET      BSS    0           ENTRY
10987  M01S07822.pfm     +++|          LDN    0           CLEAR REWRITE ON FILE COPY
10988  M01S07823.pfm     +++|          STM    DTMD
10989  M01S07824.pfm     +++|          LDM    ACCM        ACTUAL ACCESS MODE
10990  M01S07825.pfm     +++|          LMN    PTEX
10991  M01S07826.pfm     +++|          NJN    GET1        IF MORE THAN EXECUTE PERMISSION
10992  M01S07827.pfm     +++|          LDN    4           RESTRICT LOCAL FILE TO EXECUTE-ONLY
10993  M01S07828.pfm     +++|          RAM    GETG
Line S07829 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
10994  M02S07829.pfm62   ---| GET1     LDM    FCBS,CI     CHECK FOR INDIRECT FILE
Line S07830 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
10995  M02S07830.pfm62   ---|          SHN    21-13
Line S07831 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
10996  M02S07831.pfm62   ---|          PJN    GET2        IF INDIRECT FILE
Line S07832 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
10997  M02S07832.pfm62   ---|          ERROR  FDA         *(FILENAME) IS DIRECT ACCESS.*
Line S07833 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
10998  M02S07833.pfm62   ---|
Line S07834 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
10999  M02S07834.pfm62   ---| GET2     LDM    FCEC,CI     CHECK CATALOG ERROR STATUS
11000  M01S00018.pfm62   +++| GET1     LDM    FCEC,CI     CHECK CATALOG ERROR STATUS
11001  M01S07835.pfm     +++|          SHN    -4
11002  M01S07836.pfm     +++|          LPN    34
11003  M01S07837.pfm     +++|          ZJN    GET3        IF NO ERRORS
11004  M01S07838.pfm     +++|          SBN    4
11005  M01S07839.pfm     +++|          RAM    GETL        MODIFY ERROR CODE
11006  M01S07840.pfm     +++| GETL     EQU    *+2
11007  M01S07841.pfm     +++|          ERROR  EDA         * ERROR IN FILE DATA.*
11008  M01S07842.pfm     +++|*         ERROR  EPT         * ERROR IN PERMIT DATA.*
11009  M01S07843.pfm     +++|*         ERROR  EDP         * DATA/PERMIT ERRORS.*
11010  M01S07844.pfm     +++|
11011  M01S07845.pfm     +++|          ERRNZ  /ERRMSG/EPT-/ERRMSG/EDA-1  ERRORS MUST BE CONTIGUOUS
11012  M01S07846.pfm     +++|          ERRNZ  /ERRMSG/EDP-/ERRMSG/EPT-1  ERRORS MUST BE CONTIGUOUS
11013  M01S07847.pfm     +++|
11014  M01S07848.pfm     +++| GET3     RJM    CML         CHECK MASS STORAGE LIMITS
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  M01S07849.pfm     +++|          RJM    UPI         UPDATE PERMISION INFORMATION
Line S07850 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11019  M02S07850.242l642 ---|          RJM    UCE         UPDATE CATALOG ENTRY
11020  M01S00971.242l642 +++| GET3.1   RJM    UCE         UPDATE CATALOG ENTRY
11021  M01S07851.pfm     +++|          ENDMS
11022  M01S07852.pfm     +++|          LDD    CI          SET CONTROL WORD POINTER FOR CATALOG
11023  M01S07853.pfm     +++|          RAM    GETE
11024  M01S07854.pfm     +++|          LDM    FCFS,CI     PROCESS SUBSYSTEM INDEX
11025  M01S07855.pfm     +++|          LPN    77
11026  M01S07856.pfm     +++|          STM    PFSS
11027  M01S07857.pfm     +++|          ZJN    GET4        IF NO SUBSYSTEM INDEX
11028  M01S07858.pfm     +++|          LDD    CC
11029  M01S07859.pfm     +++|          LMN    CCOD
11030  M01S07860.pfm     +++|          NJN    GET4        IF NOT *OLD* REQUEST
11031  M01S07861.pfm     +++|          LDM    PFSS
11032  M01S07862.pfm     +++|          RJM    SSF         SET SUBSYSTEM FLAG IN CP AREA
11033  M01S07863.pfm     +++|
11034  M01S07864.pfm     +++|*         RETURN FIELDS TO FET.
11035  M01S07865.pfm     +++|*         ENTER HERE FOR *UGET* REQUEST.
11036  M01S07866.pfm     +++|
Line S07867 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
11037  M02S07867.ns2645  ---| GET4     LDM    PFSP        CHECK FOR SECURITY PROCESSING BIT
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  M01S07868.pfm     +++|          ZJN    GET5        IF SECURITY PROCESSING BIT NOT SPECIFIED
11042  M01S07869.pfm     +++|          RJM    SFA         RETURN ACCESS LEVEL TO FET
11043  M01S07870.pfm     +++|          ADN    CFAL
11044  M01S07871.pfm     +++|          CRD    CM
11045  M01S07872.pfm     +++|          LDD    CM+1
11046  M01S07873.pfm     +++|          SCN    7
11047  M01S07874.pfm     +++|          LMM    FCAL,CI
11048  M01S07875.pfm     +++|          STD    CM+1
11049  M01S07876.pfm     +++|          RJM    SFA
11050  M01S07877.pfm     +++|          ADN    CFAL
11051  M01S07878.pfm     +++|          CWD    CM
11052  M01S07879.pfm     +++| GET5     LDM    MODE        RETURN ACCESS MODE TO FET
11053  M01S07880.pfm     +++|          SCN    77
11054  M01S07881.pfm     +++|          LMM    ACCM        ACTUAL MODE FILE ACCESSED IN
11055  M01S07882.pfm     +++|          STM    MODE
11056  M01S07883.pfm     +++|          LDN    CFMD
11057  M01S07884.pfm     +++|          SBM    FETL
11058  M01S07885.pfm     +++|          PJN    GET6        IF FET NOT LONG ENOUGH FOR MODE
11059  M01S07886.pfm     +++|          RJM    SFA         RETURN ACCESS MODE TO FET
11060  M01S07887.pfm     +++|          ADN    CFMD
11061  M01S07888.pfm     +++|          CWM    MODE-4,ON
11062  M01S07889.pfm     +++|          LDN    CFUC
11063  M01S07890.pfm     +++|          SBM    FETL
11064  M01S07891.pfm     +++|          PJN    GET6        IF FET NOT LONG ENOUGH FOR UCW
11065  M01S07892.pfm     +++|          RJM    SFA         RETURN USER CONTROL WORD TO FET
11066  M01S07893.pfm     +++|          ADN    CFUC
11067  M01S07894.pfm     +++|          CWM    FCCW,ON
11068  M01S07895.pfm     +++| GETE     EQU    *-1         (ADDRESS OF *UCW* FROM *PFC*)
11069  M01S07896.pfm     +++|          LDN    CFSS
11070  M01S07897.pfm     +++|          SBM    FETL
11071  M01S07898.pfm     +++|          PJN    GET6        IF FET NOT LONG ENOUGH FOR SUBSYSTEM
11072  M01S07899.pfm     +++|          RJM    SFA         RETURN SUBSYSTEM TO FET
11073  M01S07900.pfm     +++|          ADN    CFSS
11074  M01S07901.pfm     +++|          CWM    PFSS,ON
11075  M01S07902.pfm     +++|
11076  M01S07903.pfm     +++|*         UPDATE FNT/FST.
11077  M01S07904.pfm     +++|
11078  M01S07905.pfm     +++| GET6     LDC    PFSN        SET SYSTEM FILE NAME
11079  M01S07906.pfm     +++|          RJM    SFN
11080  M01S07907.pfm     +++| GETG     LDN    0           SET FILE ACCESS INFORMATION
11081  M01S07908.pfm     +++|*         LDN    4           (EXECUTE-ONLY FILE)
11082  M01S07909.pfm     +++|          RAD    FN+3
11083  M01S07910.pfm     +++| GETH     LDN    LOFT        SET FILE TYPE
11084  M01S07911.pfm     +++|*         LDN    PTFT        (*OLD* PROCESSING)
11085  M01S07912.pfm     +++|          SHN    6
11086  M01S07913.pfm     +++|          RAD    FN+4
11087  M01S07914.pfm     +++|          LDM    FNTA        SET FST INFORMATION
11088  M01S07915.pfm     +++|          STD    FA
11089  M01S07916.pfm     +++|          NFA    FA,R
11090  M01S07917.pfm     +++|          ADK    FNTL
11091  M01S07918.pfm     +++|          CWD    FN
11092  M01S07919.pfm     +++|          ADN    FSTL-FNTL
11093  M01S07920.pfm     +++|          CRD    FS
11094  M01S07921.pfm     +++|
11095  M01S07922.pfm     +++|*         ALLOCATE MASS STORAGE SPACE ON LOCAL FILE DEVICE.
11096  M01S07923.pfm     +++|
11097  M01S07924.pfm     +++|          LDN    0
11098  M01S07925.pfm     +++|          STD    CM+1
11099  M01S07926.pfm     +++|          LDD    LF+1        ADJUST LENGTH FOR SYSTEM SECTOR AND EOI
11100  M01S07927.pfm     +++|          ADN    2
11101  M01S07928.pfm     +++|          STD    CM+4
11102  M01S07929.pfm     +++|          SHN    -14
11103  M01S07930.pfm     +++|          ADD    LF
11104  M01S07931.pfm     +++|          STD    CM+3
11105  M01S07932.pfm     +++|          LDM    FCAL,CI     SET ACCESS LEVEL IN REQUEST
11106  M01S07933.pfm     +++|          ADN    40          SELECT ON ACCESS LEVEL
11107  M01S07934.pfm     +++|          SHN    6
11108  M01S07935.pfm     +++|          RAD    CM+3
11109  M01S07936.pfm     +++| GETI     LDN    0           SET TYPE OF FILE SPACE NEEDED
11110  M01S07937.pfm     +++|*         LDN    PRIS        (*OLD* - REQUEST PRIMARY FILE SPACE)
11111  M01S07938.pfm     +++|          STD    CM+2
11112  M01S07939.pfm     +++|          MONITOR  RTCM      ASSIGN MASS STORAGE SPACE
11113  M01S07940.pfm     +++|          LDN    ZERL
11114  M01S07941.pfm     +++|          CRD    FS
11115  M01S07942.pfm     +++|          LDD    CM+1        SET EST ORDINAL
11116  M01S07943.pfm     +++|          STM    RTKE
11117  M01S07944.pfm     +++|          STD    FS
11118  M01S07945.pfm     +++|          LDD    CM+4
11119  M01S07946.pfm     +++|          NJN    GET8        IF TRACKS ASSIGNED
11120  M01S07947.pfm     +++|          LDD    CM+3
11121  M01S07948.pfm     +++|          SBN    2
11122  M01S07949.pfm     +++|          ZJN    GET7        IF NO TEMP DEVICE VALID FOR ACCESS LEVEL
11123  M01S07950.pfm     +++|          ERROR  TKL,CH,,FS  *EQXXX,DNYY, TRACK LIMIT.*
11124  M01S07951.pfm     +++|
11125  M01S07952.pfm     +++| GET7     ERROR  NTD,CH      *(FILE NAME) - NO TEMP DEVICE FOUND.*
11126  M01S07953.pfm     +++|
11127  M01S07954.pfm     +++| GET8     STM    RTKT        SET FIRST TRACK
11128  M01S07955.pfm     +++|          STD    FS+1
11129  M01S07956.pfm     +++|          LDM    CPTF
11130  M01S07957.pfm     +++|          NJN    GET9        IF FILE TO BE TRANSFERRED VIA CPU
11131  M01S07958.pfm     +++|          LDD    FS+1
11132  M01S07959.pfm     +++|          STD    FS+2
11133  M01S07960.pfm     +++|          LDN    FSMS
11134  M01S07961.pfm     +++|          STD    FS+3
11135  M01S07962.pfm     +++| GET9     LDN    4           SET STATUS
11136  M01S07963.pfm     +++|          STD    FS+4
11137  M01S07964.pfm     +++|          NFA    FA,R        WRITE FST
11138  M01S07965.pfm     +++|          ADN    FSTL
11139  M01S07966.pfm     +++|          CWD    FS
11140  M01S07967.pfm     +++|          ADN    FUTL-FSTL
11141  M01S07968.pfm     +++|          CRD    CM
11142  M01S07969.pfm     +++|          LDM    FCAL,CI     SET ACCESS LEVEL IN FNT
11143  M01S07970.pfm     +++|          LMD    CM+2
11144  M01S07971.pfm     +++|          LPN    7
11145  M01S07972.pfm     +++|          LMD    CM+2
11146  M01S07973.pfm     +++|          STD    CM+2
11147  M01S07974.pfm     +++|          NFA    FA,R
11148  M01S07975.pfm     +++|          ADN    FUTL
11149  M01S07976.pfm     +++|          CWD    CM
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  M01S07977.pfm     +++|
11159  M01S07978.pfm     +++|*         UPDATE PRIMARY FILE FST POINTER IN CONTROL POINT AREA.
11160  M01S07979.pfm     +++|
11161  M01S07980.pfm     +++|          LDD    CC
11162  M01S07981.pfm     +++|          LMN    CCOD
11163  M01S07982.pfm     +++|          NJN    GET10       IF NOT *OLD* REQUEST
11164  M01S07983.pfm     +++|          RJM    POF         PROCESS OLD PRIMARY FILE
11165  M01S07984.pfm     +++|          LDD    CP          SET NEW PRIMARY FILE FST POINTER
11166  M01S07985.pfm     +++|          ADN    TFSW
11167  M01S07986.pfm     +++|          CRD    CM
11168  M01S07987.pfm     +++|          LDM    FNTA        RESTORE FST AND FST ADDRESS
11169  M01S07988.pfm     +++|          STD    FA
11170  M01S07989.pfm     +++|          STD    CM+1
11171  M01S07990.pfm     +++|          NFA    FA,R
11172  M01S07991.pfm     +++|          ADN    FSTL
11173  M01S07992.pfm     +++|          CRD    FS
11174  M01S07993.pfm     +++|          LDD    CP
11175  M01S07994.pfm     +++|          ADN    TFSW
11176  M01S07995.pfm     +++|          CWD    CM
11177  M01S07996.pfm     +++|
11178  M01S07997.pfm     +++|*         UPDATE PRIMARY FILE POINTERS IN EJT ENTRY.
11179  M01S07998.pfm     +++|
Line S07999 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
11180  M02S07999.ns2358  ---|          LDD    FS          SET NEW EST ORDINAL
Line S08000 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
11181  M02S08000.ns2358  ---|          STM    OVL0-3
Line S08001 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
11182  M02S08001.ns2358  ---|          LDD    FS+1        SET NEW FIRST TRACK
Line S08002 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
11183  M02S08002.ns2358  ---|          STM    OVL0-2
11184  M01S08003.pfm     +++|          EXECUTE 0PT,OVL0   CALL *0PT* TO UPDATE EJT POINTERS
11185  M01S08004.pfm     +++|
11186  M01S08005.pfm     +++| GET10    LDD    FS          RESTORE EST ORDINAL
11187  M01S08006.pfm     +++|          STD    T5
Line S08007 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11188  M02S08007.242l642 ---|          SETMS
Line S00972 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
11189  M02S00972.ns2645  ---|          SETMS  STATUS
11190  M01S00012.ns2645  +++|          SETMS  STATUS,NS
11191  M01S08008.pfm     +++|          LDD    CM+4        SET TRT ADDRESS
11192  M01S08009.pfm     +++|          SHN    3
11193  M01S08010.pfm     +++|          ADN    TRLL
11194  M01S08011.pfm     +++|          RJM    CTA         CALCULATE FWA OF TRT
11195  M01S08012.pfm     +++|          SBD    TH
11196  M01S08013.pfm     +++|          STM    SNTA+1
11197  M01S08014.pfm     +++|          STM    SEIA+1
11198  M01S08015.pfm     +++|          SHN    -14
11199  M01S08016.pfm     +++|          LMC    ADCI
11200  M01S08017.pfm     +++|          STM    SNTA
11201  M01S08018.pfm     +++|          STM    SEIA
11202  M01S08019.pfm     +++|          LDM    SLM         INCREMENT PRU COUNT FOR FIRST TRACK
Line S08020 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11203  M02S08020.242l642 ---|          RAM    DPPD+1
11204  M01S00973.242l642 +++|          RAM    AIPR+1
11205  M01S08021.pfm     +++|          SHN    -14
Line S08022 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11206  M02S08022.242l642 ---|          RAM    DPPD
11207  M01S00974.242l642 +++|          RAM    AIPR
11208  M01S08023.pfm     +++|
11209  M01S08024.pfm     +++|*         DETERMINE WHETHER TO USE CPU TO TRANSFER FILE.
11210  M01S08025.pfm     +++|
11211  M01S08026.pfm     +++|          LDM    CPTF
11212  M01S08027.pfm     +++|          ZJN    GET11       IF FILE NOT TO BE TRANSFERRED VIA CPU
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 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11221  M02S08028.242l642 ---| GETA     BSS    0           (OVERFLOW POINT FOR *3PQ* LOAD)
Line S08029 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11222  M02S08029.242l642 ---|          EXECUTE  3PQ       TRANSFER FILE VIA CPU
Line S00975 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11223  M02S00975.ns2414  ---| GETA     BSS    0           (OVERFLOW POINT FOR *3PR* LOAD)
Line S00976 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11224  M02S00976.ns2414  ---|          EXECUTE  3PR       TRANSFER FILE VIA CPU
11225  M01S00079.ns2414  +++| GETA     BSS    0           (OVERFLOW POINT FOR *3PS* LOAD)
11226  M01S00080.ns2414  +++|          EXECUTE  3PS       TRANSFER FILE VIA CPU
11227  M01S08030.pfm     +++|
11228  M01S08031.pfm     +++|*         SET UP SYSTEM SECTOR.
11229  M01S08032.pfm     +++|
11230  M01S08033.pfm     +++|          ERRNG  *-BUF-502   SYSTEM SECTOR BUFFER OVERFLOWS CODE
11231  M01S08034.pfm     +++|
Line S08035 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11232  M02S08035.242l642 ---| GET11    EXECUTE  3PN       LOAD DEVICE TO DEVICE TRANSFER
Line S00977 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11233  M02S00977.ns2414  ---| GET11    EXECUTE  3PO       LOAD DEVICE TO DEVICE TRANSFER OVERLAY
11234  M01S00081.ns2414  +++| GET11    EXECUTE  3PP       LOAD DEVICE TO DEVICE TRANSFER OVERLAY
11235  M01S08036.pfm     +++|          AOD    LF+1        ADJUST LENGTH FOR SYSTEM SECTOR
11236  M01S08037.pfm     +++|          SHN    -14
11237  M01S08038.pfm     +++|          RAD    LF
Line S08039 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11238  M02S08039.242l642 ---|          AOM    /3PN/SNSA   TURN ON PRU ACCUMULATION
Line S00978 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11239  M02S00978.ns2414  ---|          AOM    /3PO/SNSA   TURN ON PRU ACCUMULATION
11240  M01S00082.ns2414  +++|          AOM    /3PP/SNSA   TURN ON PRU ACCUMULATION
11241  M01S08040.pfm     +++|          LDC    3777        SET SYSTEM SECTOR CONTROL BYTE
11242  M01S08041.pfm     +++|          STM    BUF
11243  M01S08042.pfm     +++|          LDN    77          SET WORD COUNT BYTE
11244  M01S08043.pfm     +++|          STM    BUF+1
11245  M01S08044.pfm     +++|          LDD    FA
11246  M01S08045.pfm     +++|          STM    FASS+BUF-BFMS
11247  M01S08046.pfm     +++|          NFA    FA,R        READ FILE NAME
11248  M01S08047.pfm     +++|          ADK    FNTL
11249  M01S08048.pfm     +++|          CRM    BUF+FNSS-BFMS,ON
11250  M01S08049.pfm     +++|          LDC    LOFT*100    SET LOCAL FILE TYPE IN SYSTEM SECTOR
11251  M01S08050.pfm     +++|          STM    FNSS+4+BUF-BFMS
11252  M01S08051.pfm     +++|          STM    PFSN+4
11253  M01S08052.pfm     +++|          LDD    FS          SET EST ORDINAL
11254  M01S08053.pfm     +++|          STM    EQSS+BUF-BFMS
11255  M01S08054.pfm     +++|          STD    T5
11256  M01S08055.pfm     +++|          LDD    FS+1        SET FIRST TRACK
11257  M01S08056.pfm     +++|          STM    FTSS+BUF-BFMS
11258  M01S08057.pfm     +++|          STD    T6
11259  M01S08058.pfm     +++|          LDN    PDTL        ENTER PACKED DATE
11260  M01S08059.pfm     +++|          CRM    DTSS+BUF-BFMS,ON
11261  M01S08060.pfm     +++|          AOM    DTSS+BUF-BFMS  SET ENHANCED EOI FLAG
11262  M01S08061.pfm     +++|          LDN    0           SET SECTOR
11263  M01S08062.pfm     +++|          STD    T7
11264  M01S08063.pfm     +++|          RJM    SDP         SWAP DISK PARAMETERS
Line S08064 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11265  M02S08064.242l642 ---|          SETMS  READ
Line S00979 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11266  M02S00979.pfm55   ---|          SETMS  IO
Line S00980 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11267  M02S00980.pfm55   ---|          RJM    PDV         PROCESS DEVICE STATUS
11268  M01S08065.pfm     +++|          RJM    IBA         INCREMENT BUFFER ADDRESS
Line S08066 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11269  M02S08066.pfm55   ---|          LDN    0           DO NOT VERIFY NAME
Line S08067 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11270  M02S08067.pfm55   ---|          RJM    RSS         READ SYSTEM SECTOR
Line S00981 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11271  M02S00981.pfm55   ---|          MJN    GET13       IF READ ERROR
Line S08068 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11272  M02S08068.pfm55   ---|          NJN    GET12       IF BAD SYSTEM SECTOR
11273  M01S00009.pfm55   +++|          RJM    VSS         VERIFY SYSTEM SECTOR
11274  M01S08069.pfm     +++|          LJM    DTD         ENTER DEVICE TO DEVICE TRANSFER LOOP
Line S08070 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11275  M02S08070.pfm55   ---|
Line S08071 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11276  M03S08071.pfm55   ---| GET12    ERROR  SSE,CH,,T5  *EQXXX,DNYY, SYSTEM SECTOR ERROR.*
Line S00982 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11277  M02S00982.pfm55   ---| GET12    ERROR  SSE,,,T5    *EQXXX,DNYY, SYSTEM SECTOR ERROR.*
Line S00983 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11278  M02S00983.pfm55   ---|
Line S00984 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11279  M02S00984.pfm55   ---| GET13    RJM    PES         PROCESS ERROR STATUS
Line S00985 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
11280  M02S00985.pfm55   ---|          ERROR  MSE,CH,,T5  *EQXXX,DNYY, MASS STORAGE ERROR.*
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 (Updated by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
11297  M02S00026.ns2645  ---|          SETMS  IO
11298  M01S00013.ns2645  +++|          SETMS  READSTR,NS
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  M01S08072.pfm     +++|          SPACE  4,10
11309  M01S08073.pfm     +++|*         COMMON DECKS.
11310  M01S08074.pfm     +++|
11311  M01S08075.pfm     +++| RIS$     SET    1           READ IAPF SYSTEM SECTOR
11312  M01S08076.pfm     +++|*CALL     COMPRSS
11313  M01S08077.pfm     +++|          SPACE  4,10
11314  M01S08078.pfm     +++|          USE    OVERLAY
Line S08079 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
11315  M02S08079.ns2358  ---| OVL0     EQU    *+5         LOAD ADDRESS FOR *0PT*
11316  M01S00011.ns2358  +++| OVL0     EQU    *+1         LOAD ADDRESS FOR *0PT*
11317  M01S08080.pfm     +++|          ERRNG  BUF1-OVL0-ZPTL  *0PT* OVERFLOW INTO *BUF1*
11318  M01S08081.pfm     +++|          TITLE  COMMAND PROCESSING (OVERLAYABLE).
11319  M01S08082.pfm     +++| OLD      SPACE  4,10
11320  M01S08083.pfm     +++|***       PROCESS *OLD* REQUEST.
11321  M01S08084.pfm     +++|*
11322  M01S08085.pfm     +++|*         GENERATE PRIMARY-TERMINAL FILE (*PTFT*) COPY OF INDIRECT
11323  M01S08086.pfm     +++|*         ACCESS FILE *PF NAME*.  THIS COPY WILL NOT BE PERMANENT
11324  M01S08087.pfm     +++|*         UNTIL *SAVE* OR *REPLACE* REQUEST FOR LOCAL FILE
11325  M01S08088.pfm     +++|*         IS ISSUED.
11326  M01S08089.pfm     +++|
11327  M01S08090.pfm     +++|
11328  M01S08091.pfm     +++| OLD      BSS    0           ENTRY
11329  M01S08092.pfm     +++|          LCN    -PTFT+LOFT  FORCE PRIMARY-FILE PROCESSING
11330  M01S08093.pfm     +++|          RAM    GETH
11331  M01S08094.pfm     +++|          LDN    PRIS
11332  M01S08095.pfm     +++|          RAM    GETI
11333  M01S08096.pfm     +++|          LJM    GET         PROCESS REQUEST
11334  M01S08097.pfm     +++| UGT      SPACE  4,15
11335  M01S08098.pfm     +++|***       PROCESS *UGET* REQUEST.
11336  M01S08099.pfm     +++|*
11337  M01S08100.pfm     +++|*         THE *UGET* REQUEST OBTAINS A LOCAL FILE COPY OF AN INDIRECT
11338  M01S08101.pfm     +++|*         ACCESS FILE WITHOUT CHANGING ANY DATES IN THE CATALOG ENTRY.
11339  M01S08102.pfm     +++|*         A COPY OF THE CATALOG ENTRY IS RETURNED TO *FIRST*.  THE
11340  M01S08103.pfm     +++|*         *AFLOK* FLAG IS SET IN THE CATALOG ENTRY TO INDICATE THAT
11341  M01S08104.pfm     +++|*         THE FILE IS ABOUT TO BE DESTAGED (ANY SUBSEQUENT *REPLACE*
11342  M01S08105.pfm     +++|*         OR *APPEND* WILL CLEAR THIS FLAG, WHICH WILL THEN INDICATE
11343  M01S08106.pfm     +++|*         THAT ANOTHER *UGET* MUST BE PERFORMED IF THE FILE IS STILL
11344  M01S08107.pfm     +++|*         TO BE DESTAGED).
11345  M01S08108.pfm     +++|
11346  M01S08109.pfm     +++|
11347  M01S08110.pfm     +++| UGT      BSS    0           ENTRY
11348  M01S00137.pfm54   +++|          LDN    0           CLEAR REWRITE ON FILE COPY
11349  M01S00138.pfm54   +++|          STM    DTMD
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  M01S08111.pfm     +++|          LDM    FCAF,CI     SET *AFLOK* FLAG
11372  M01S08112.pfm     +++|          LPC    -AFLOKM
11373  M01S08113.pfm     +++|          LMC    AFLOKM
11374  M01S08114.pfm     +++|          STM    FCAF,CI
11375  M01S08115.pfm     +++|          LDD    CB          REWRITE CATALOG ENTRY
11376  M01S08116.pfm     +++|          RJM    WBI
11377  M01S08117.pfm     +++|          ENDMS
11378  M01S08118.pfm     +++|
11379  M01S08119.pfm     +++|*         RETURN COPY OF THE *PFC* ENTRY TO THE BUFFER.
11380  M01S08120.pfm     +++|
11381  M01S08121.pfm     +++|          RJM    SFA         READ *FIRST* POINTER
11382  M01S08122.pfm     +++|          ADN    1
11383  M01S08123.pfm     +++|          CRD    CM
11384  M01S08124.pfm     +++|          LDD    CM+3        VERIFY *FIRST* POINTER
11385  M01S08125.pfm     +++|          LPN    77
11386  M01S08126.pfm     +++|          SHN    6
11387  M01S08127.pfm     +++|          ADD    RA
11388  M01S08128.pfm     +++|          SHN    6
11389  M01S08129.pfm     +++|          ADD    CM+4
11390  M01S08130.pfm     +++|          ADN    NWCE
11391  M01S08131.pfm     +++|          SBN    1
11392  M01S08132.pfm     +++|          SHN    -6
11393  M01S08133.pfm     +++|          SBD    RA
11394  M01S08134.pfm     +++|          SBD    FL
Line S08135 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11395  M02S08135.ns2414  ---|          MJN    UGT1        IF BUFFER WITHIN JOB FL
11396  M01S00104.ns2414  +++|          MJN    UGT3        IF BUFFER WITHIN JOB FL
11397  M01S08136.pfm     +++|          ERROR  ILR,CH,,,EC3  * PFM INCORRECT REQUEST.*
11398  M01S08137.pfm     +++|
Line S08138 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11399  M02S08138.ns2414  ---| UGT1     LDD    CI          COPY CATALOG ENTRY TO BUFFER
11400  M01S00105.ns2414  +++| UGT3     LDD    CI          COPY CATALOG ENTRY TO BUFFER
11401  M01S08139.pfm     +++|          STM    UGTA
11402  M01S08140.pfm     +++|          RAM    GETE        SET CONTROL WORD POINTER FOR CATALOG
11403  M01S08141.pfm     +++|          LDN    NWCE        NUMBER OF PFC WORDS
11404  M01S08142.pfm     +++|          STD    T1
11405  M01S08143.pfm     +++|          LDD    CM+3        FORM *CM* ADDRESS
11406  M01S08144.pfm     +++|          LPN    77
11407  M01S08145.pfm     +++|          SHN    6
11408  M01S08146.pfm     +++|          ADD    RA
11409  M01S08147.pfm     +++|          SHN    6
11410  M01S08148.pfm     +++|          ADD    CM+4
11411  M01S08149.pfm     +++|          CWM    **,T1
11412  M01S08150.pfm     +++| UGTA     EQU    *-1         (CATALOG ENTRY ADDRESS)
11413  M01S08151.pfm     +++|          LJM    GET4        PROCESS FILE TRANSFER
11414  M01S08152.pfm     +++|          TITLE  SUBROUTINES (OVERLAYABLE).
11415  M01S08153.pfm     +++| CML      SPACE  4,15
11416  M01S08154.pfm     +++|**        CML - CHECK MASS STORAGE LIMIT.
11417  M01S08155.pfm     +++|*
11418  M01S08156.pfm     +++|*         ENTRY  (LF - LF+1) = VALUE OF DECREMENT.
11419  M01S08157.pfm     +++|*                (CMLA) = UPPER 6 (OF 18 BITS) MASS STORAGE LIMIT.
11420  M01S08158.pfm     +++|*                (CMLB) = LOWER 12 BITS OF MASS STORAGE LIMIT.
11421  M01S08159.pfm     +++|*
11422  M01S08160.pfm     +++|*         EXIT   TO *ERR* IF ERROR IN PRU LIMITS.
11423  M01S08161.pfm     +++|*
11424  M01S08162.pfm     +++|*         USES   T0, CM - CM+4.
11425  M01S08163.pfm     +++|
11426  M01S08164.pfm     +++|
11427  M01S08165.pfm     +++| CML      SUBR
11428  M01S08166.pfm     +++|          LDD    CP          READ MASS STORAGE LIMIT
11429  M01S08167.pfm     +++|          ADK    ACLW
11430  M01S08168.pfm     +++|          CRD    CM
11431  M01S08169.pfm     +++|          LDD    LF
11432  M01S08170.pfm     +++|          LPN    77
11433  M01S08171.pfm     +++|          STD    T0
11434  M01S08172.pfm     +++|          LDD    CM+3
11435  M01S08173.pfm     +++|          LPN    77
11436  M01S08174.pfm     +++|          SBD    T0
11437  M01S08175.pfm     +++|          MJN    CML1        IF LIMIT EXCEEDED
11438  M01S08176.pfm     +++|          NJN    CMLX        IF LIMIT NOT EXCEEDED
11439  M01S08177.pfm     +++|          LDD    CM+4
11440  M01S08178.pfm     +++|          SBD    LF+1
11441  M01S08179.pfm     +++|          PJN    CMLX        IF LIMIT NOT EXCEEDED
11442  M01S08180.pfm     +++| CML1     ERROR  PRL         *PRU LIMIT.*
11443  M01S08181.pfm     +++| POF      SPACE  4,15
11444  M01S08182.pfm     +++|**        POF - PROCESS OLD PRIMARY FILE.
11445  M01S08183.pfm     +++|*
11446  M01S08184.pfm     +++|*         ENTRY  FNT ADDRESS OF CURRENT PRIMARY FILE IN *TFSW*.
11447  M01S08185.pfm     +++|*
11448  M01S08186.pfm     +++|*         EXIT   OLD PRIMARY FILE CHANGED TO *LOFT*.
11449  M01S08187.pfm     +++|*
11450  M01S08188.pfm     +++|*         USES   FA, CM - CM+4, FS - FS+4.
11451  M01S08189.pfm     +++|*
11452  M01S08190.pfm     +++|*         CALLS  SFB.
11453  M01S08191.pfm     +++|*
11454  M01S08192.pfm     +++|*         MACROS ERROR.
11455  M01S08193.pfm     +++|
11456  M01S08194.pfm     +++|
11457  M01S08195.pfm     +++| POF      SUBR               ENTRY/EXIT
11458  M01S08196.pfm     +++|          LDD    CP          GET FNT ADDRESS OF OLD PRIMARY FILE
11459  M01S08197.pfm     +++|          ADK    TFSW
11460  M01S08198.pfm     +++|          CRD    CM
11461  M01S08199.pfm     +++|          LDD    CM+1
11462  M01S08200.pfm     +++|          ZJN    POFX        IF NO OLD PRIMARY FILE
11463  M01S08201.pfm     +++|
11464  M01S08202.pfm     +++|*         CHANGE OLD PRIMARY FILE TO TYPE *LOFT*.
11465  M01S08203.pfm     +++|
11466  M01S08204.pfm     +++|          STD    FA          SET FILE BUSY
11467  M01S08205.pfm     +++|          NFA    FA,R
11468  M01S08206.pfm     +++|          ADK    FNTL
11469  M01S08207.pfm     +++|          CRD    FS
11470  M01S08208.pfm     +++|          RJM    SFB
11471  M01S08209.pfm     +++|          NJN    POF1        IF FILE NOT INTERLOCKED
11472  M01S08210.pfm     +++|          LDC    LOFT*100-PTFT*100  CHANGE FILE TYPE
11473  M01S08211.pfm     +++|          RAD    CM+4
11474  M01S08212.pfm     +++|          AOD    FS+4        SET FST COMPLETE
11475  M01S08213.pfm     +++|          NFA    FA,R
11476  M01S08214.pfm     +++|          ADK    FNTL
11477  M01S08215.pfm     +++|          CWD    CM
11478  M01S08216.pfm     +++|          ADN    FSTL-FNTL
11479  M01S08217.pfm     +++|          CWD    FS
11480  M01S08218.pfm     +++|          UJN    POFX        RETURN
11481  M01S08219.pfm     +++|
11482  M01S08220.pfm     +++|*         PROCESS *I/O SEQUENCE ERROR* ON OLD PRIMARY FILE.  CHANGE THE
11483  M01S08221.pfm     +++|*         NEW LOCAL FILE FROM *PTFT* TO *LOFT*, SO THAT *0DF* WILL NOT
11484  M01S08222.pfm     +++|*         CLEAR THE PRIMARY FILE POINTER IN THE CPA AND THE EJT WHEN
11485  M01S08223.pfm     +++|*         THE NEW LOCAL FILE IS RETURNED.
11486  M01S08224.pfm     +++|
11487  M01S08225.pfm     +++| POF1     LDM    FNTA        RESET FST AND FST POINTER
11488  M01S08226.pfm     +++|          STD    FA
11489  M01S08227.pfm     +++|          NFA    FA,R
11490  M01S08228.pfm     +++|          ADK    FNTL
11491  M01S08229.pfm     +++|          CRD    FN
11492  M01S08230.pfm     +++|          LDD    FN+4
11493  M01S08231.pfm     +++|          LPN    77
11494  M01S08232.pfm     +++|          LMC    LOFT*100
11495  M01S08233.pfm     +++|          STD    FN+4
11496  M01S08234.pfm     +++|          NFA    FA,R
11497  M01S08235.pfm     +++|          ADK    FNTL
11498  M01S08236.pfm     +++|          CWD    FN
11499  M01S08237.pfm     +++|          ERROR  IOE         * I/O SEQUENCE ERROR.*
11500  M01S08238.pfm     +++|          SPACE  4,10
11501  M01S08239.pfm     +++|*         OVERLAYABLE COMMON DECKS.
11502  M01S08240.pfm     +++|
11503  M01S08241.pfm     +++|*CALL     COMPSFB
11504  M01S08242.pfm     +++|*CALL     COMPSSF
11505  M01S08243.pfm     +++|          SPACE  4,10
11506  M01S08244.pfm     +++|          OVERFLOW  OVLC,BUF1-2  OVERFLOW INTO CATALOG BUFFER
11507  M01S08245.pfm     +++|          SPACE  4,10
11508  M01S08246.pfm     +++|*         EQUIVALENCE EXTERNALLY REFERENCED TAGS.
11509  M01S08247.pfm     +++|
11510  M01S08248.pfm     +++|
11511  M01S08249.pfm     +++|          QUAL   *
11512  M01S08250.pfm     +++|
11513  M01S08251.pfm     +++| GETA     EQU    /".O"/GETA
11514  M01S08252.pfm     +++|          OVERLAY  (SAVE/REPLACE/UREPLAC PROCESSING.)
11515  M01S08253.pfm     +++|          SPACE  4,10
11516  M01S08254.pfm     +++|**        THIS OVERLAY PROCESSES *SAVE*/*REPLACE*/*UREPLAC* REQUESTS.
11517  M01S08255.pfm     +++|*
11518  M01S08256.pfm     +++|*         ENTRY  (P0) = PROCESSING ADDRESS.
11519  M01S08257.pfm     +++|
11520  M01S08258.pfm     +++|
11521  M01S08259.pfm     +++| OVL      BSS    0           ENTRY
Line S08260 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11522  M02S08260.242l642 ---|          RJM    RMD         RESET TO MASTER DEVICE
11523  M01S08261.pfm     +++|          LJM    0,P0        PROCESS REQUEST
11524  M01S08262.pfm     +++|          TITLE  COMMAND PROCESSING.
11525  M01S08263.pfm     +++| REP      SPACE  4,10
11526  M01S08264.pfm     +++|***       PROCESS *REPLACE* REQUEST.
11527  M01S08265.pfm     +++|*
11528  M01S08266.pfm     +++|*         PURGE EXISTING PERMANENT FILE *PF NAME* AND GENERATE COPY
11529  M01S08267.pfm     +++|*         OF FILE *FILE NAME* AS INDIRECT ACCESS FILE *PF NAME*.
11530  M01S08268.pfm     +++|
11531  M01S08269.pfm     +++|
11532  M01S08270.pfm     +++| REP      BSS    0           ENTRY
11533  M01S08271.pfm     +++|          LDM    FCBS,CI
11534  M01S08272.pfm     +++|          SHN    21-13
11535  M01S08273.pfm     +++|          PJN    REP1        IF NOT DIRECT ACCESS FILE
11536  M01S08274.pfm     +++|          ERROR  FDA         * FILE IS DIRECT ACCESS.*
11537  M01S08275.pfm     +++|
11538  M01S08276.pfm     +++|*         CHECK LOCAL FILE ACCESS LEVEL AGAINST *PFC*.
11539  M01S08277.pfm     +++|
11540  M01S08278.pfm     +++| REP1     LDM    SSOM        CHECK SYSTEM SECURITY MODE
11541  M01S08279.pfm     +++|          ZJN    REP2        IF SYSTEM OPERATING IN UNSECURED MODE
11542  M01S08280.pfm     +++|          LDM    FCAL,CI     ALLOW SAVING DATA AT HIGHER LEVEL
11543  M01S08281.pfm     +++|          SBM    LFAL
11544  M01S08282.pfm     +++|          PJN    REP2        IF ACCESS LEVEL OKAY
11545  M01S08283.pfm     +++|          LDM    SVAL
11546  M01S08284.pfm     +++|          LPN    40
11547  M01S08285.pfm     +++|          NJN    REP2        IF WRITE-DOWN PERMITTED
11548  M01S08286.pfm     +++|          LDM    SSID        CHECK SUBSYSTEM ID
11549  M01S08287.pfm     +++|          SBK    LSSI+1
11550  M01S08288.pfm     +++|          PJN    REP2        IF SUBSYSTEM
11551  M01S08289.pfm     +++|          ERROR  WDP,,,,SVE  * WRITE-DOWN OF DATA PROHIBITED.*
11552  M01S08290.pfm     +++|
11553  M01S00018.pfm59   +++|*         UPDATE PERMITS.
11554  M01S00019.pfm59   +++|
11555  M01S08291.pfm     +++| REP2     RJM    CUC         CHECK USER CONTROLS
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  M01S08292.pfm     +++|          RJM    UPI         UPDATE PERMISSION INFORMATION
11560  M01S00989.242l642 +++|          ENDMS
11561  M01S00020.pfm59   +++|
11562  M01S00021.pfm59   +++|*         UPDATE CATALOG.
11563  M01S00022.pfm59   +++|
Line S08293 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11564  M02S08293.242l642 ---|          LDD    CI          CLEAR ALTERNATE STORAGE INFORMATION IN PFC
11565  M01S00990.242l642 +++| REP2.1   LDD    CI          CLEAR ALTERNATE STORAGE INFORMATION IN PFC
Line S08294 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11566  M02S08294.253l688 ---|          RAM    REPA
11567  M01S00357.253l688 +++|          RAM    REPA+1
11568  M01S08295.pfm     +++|          LDN    ZERL
Line S08296 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11569  M02S08296.253l688 ---|          CRM    FCAF,ON
Line S08297 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11570  M02S08297.253l688 ---| REPA     EQU    *-1
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 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11576  M02S08298.pfm59   ---|
Line S08299 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11577  M02S08299.pfm59   ---|*         DETERMINE FILE RESIDENCE.
Line S08300 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11578  M02S08300.pfm59   ---|
Line S08301 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11579  M02S08301.pfm59   ---|          LDM    FCBT,CI     FIRST TRACK OF FILE
Line S08302 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11580  M02S08302.pfm59   ---|          NJN    REP3        IF FILE IS DISK RESIDENT
Line S08303 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11581  M02S08303.pfm59   ---|          LDC    4000
Line S08304 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11582  M02S08304.pfm59   ---|          STM    FCBS,CI     MARK ENTRY AS DAPF HOLE
Line S08305 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11583  M02S08305.pfm59   ---|          AOM    REPB        SET TO SKIP RELEASE OF IAPF SPACE
11584  M01S08306.pfm     +++| REP3     AOM    FCAC+1,CI   INCREMENT ACCESS COUNT
11585  M01S08307.pfm     +++|          SHN    -14
11586  M01S08308.pfm     +++|          RAM    FCAC,CI
11587  M01S00139.pfm54   +++|          EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
11588  M01S00140.pfm54   +++|          RJM    IIA         INTERLOCK INDIRECT ALLOCATION
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 (Updated by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11591  M02S00993.pfm54   ---|          EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
11592  M01S08309.pfm     +++|          RJM    CCS         CREATE NEW CATALOG SECTOR
11593  M01S08310.pfm     +++|          LDD    HP
11594  M01S08311.pfm     +++|          LMD    CI
11595  M01S08312.pfm     +++|          ZJN    REP4        IF HOLE IS FILE BEING REPLACED
Line S08313 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11596  M02S08313.pfm59   ---| REPB     LDN    0
Line S08314 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11597  M02S08314.pfm59   ---|*         LDN    1           (FILE NOT DISK RESIDENT)
Line S08315 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11598  M02S08315.pfm59   ---|          NJN    REP4        IF NO IAPF SPACE TO RELEASE
11599  M01S08316.pfm     +++|          RJM    DCE         DELETE CATALOG ENTRY
Line S08317 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11600  M02S08317.242l642 ---|          NJN    REP5        IF FILE DELINKED OR AT END OF CHAIN
Line S00994 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11601  M02S00994.pfm54   ---|          NJN    REP7        IF FILE DELINKED OR AT END OF CHAIN
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  M01S08318.pfm     +++|
Line S08319 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11606  M02S08319.pfm59   ---|*         DETERMINE IF OLD FILES CATALOG SECTOR HAS BEEN REWRITTEN.
11607  M01S00023.pfm59   +++|*         REWRITE OLD FILE-S CATALOG ENTRY.
11608  M01S08320.pfm     +++|*         ENTER HERE ON *UREPLAC* REQUEST.
11609  M01S08321.pfm     +++|
Line S08322 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11610  M02S08322.pfm54   ---| REP4     LDD    CB
11611  M01S00144.pfm54   +++| REP4     RJM    CIA         CLEAR INDIRECT ALLOCATION INTERLOCK
Line S00145 Modification History
M01 (Added by) pfm54
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11612  M02S00145.pfm59   ---|          LDD    CB
Line S08323 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11613  M02S08323.pfm59   ---|          LMD    HB
Line S08324 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11614  M02S08324.pfm59   ---|          ZJN    REP6        IF CATALOG ENTRY IN SAME BUFFER AS HOLE
Line S08325 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11615  M02S08325.pfm59   ---|          LDD    EB
Proceed to Part 10
cdc/nos2.source/opl.opl871/deck/pfm.009.txt ยท Last modified: by 127.0.0.1