User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:pfu.003

Deck PFU Part 003

22 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
04370  M00S03720.pfu     +++|          LDM    DLSA+4      RESTORE IAPF CURRENT SECTOR
04371  M00S03721.pfu     +++|          STD    T7
04372  M00S03722.pfu     +++|          STD    FS+3
04373  M00S03723.pfu     +++|          LDN    0           CLEAR DAPF FLAG
04374  M00S03724.pfu     +++|          STD    DA
04375  M00S03725.pfu     +++|          UJN    EDFX        RETURN
04376  M00S03726.pfu     +++| EMB      SPACE  4,20
04377  M00S03727.pfu     +++|**        EMB - EMPTY THE BUFFER.
04378  M00S03728.pfu     +++|*
04379  M00S03729.pfu     +++|*         ENTRY  (T4 - T7) = MASS STORAGE PARAMETERS.
04380  M00S03730.pfu     +++|*                (FT - FT+1) = FIRST.
04381  M00S03731.pfu     +++|*                (IN - IN+1) = IN.
04382  M00S03732.pfu     +++|*                (OT - OT+1) = OUT.
04383  M00S03733.pfu     +++|*                (LM - LM+1) = LIMIT.
04384  M00S03734.pfu     +++|*                (FS - FS+4) = FST ENTRY.
04385  M00S03735.pfu     +++|*                (P2) = SECTOR COUNT TO WRITE.
04386  M00S03736.pfu     +++|*                SUB-ROUTINE *SRW* EXECUTED PRIOR TO THE FIRST
04387  M00S03737.pfu     +++|*                ENTRY OR ANY ENTRY SUBSEQUENT TO A PAUSE.
04388  M00S03738.pfu     +++|*
04389  M00S03739.pfu     +++|*         EXIT   (A) = 0 IF BUFFER EMPTY OR IF ERROR DETECTED.
04390  M00S03740.pfu     +++|*                    = .GT. 0 IF BUFFER IS NOT EMPTY BUT EOI WAS
04391  M00S03741.pfu     +++|*                      WRITTEN.
04392  M00S03742.pfu     +++|*                DATA COPIED FROM CM BUFFER TO MASS STORAGE.
04393  M00S03743.pfu     +++|*                WRITE ERROR PROCESSOR CALLED IF ERROR DETECTED.
04394  M00S03744.pfu     +++|*
04395  M00S03745.pfu     +++|*         USES   P1, SC, T6, T7, CM - CM+4, FN - FN+4.
04396  M00S03746.pfu     +++|*
Line S03747 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04397  M01S03747.242l642 ---|*         CALLS  DNT, PWE, RCB, SAW, SSC, UOP, WDS, WEI.
Line S00152 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04398  M01S00152.242l642 +++|*         CALLS  DNT, RCB, SAW, SSC, SWE, UOP, WDS, WEI.
04399  M00S03748.pfu     +++|*
04400  M00S03749.pfu     +++|*         MACROS ERROR, SETMS.
04401  M00S03750.pfu     +++|
04402  M00S03751.pfu     +++|
04403  M00S03752.pfu     +++| EMB      SUBR               ENTRY/EXIT
04404  M00S03753.pfu     +++|
04405  M00S03754.pfu     +++|*         PRESET EMPTY BUFFER LOOP.
04406  M00S03755.pfu     +++|
Line S03756 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04407  M01S03756.242l642 ---|          SETMS  WRITE,,WEBA
Line S00153 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04408  M01S00153.242l642 +++|          SETMS  IO,,WEBA
04409  M00S03757.pfu     +++|          LDN    ZERL
04410  M00S03758.pfu     +++|          CRD    FN
04411  M00S03759.pfu     +++|          LDN    0           CLEAR EOI FLAG
04412  M00S03760.pfu     +++|          STM    BEGF,TF
04413  M00S03761.pfu     +++|          RJM    SAW         SET ABSOLUTE WRITE BUFFER ADDRESSES
04414  M00S03762.pfu     +++|
Line S03763 Modification History
M01 (Removed by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04415  M01S03763.ns2332  ---|*         PROCESS CENTRAL BUFFER
Line S00013 Modification History
M01 (Added by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04416  M01S00013.ns2332  +++|*         PROCESS CENTRAL BUFFER.
04417  M00S03764.pfu     +++|
04418  M00S03765.pfu     +++| EMB1     LDD    OT          READ CONTROL WORD
04419  M00S03766.pfu     +++|          SHN    14
04420  M00S03767.pfu     +++|          ADD    OT+1
04421  M00S03768.pfu     +++|          ADC    *
04422  M00S03769.pfu     +++| EMBA     EQU    *-2         (RA)
04423  M00S03770.pfu     +++|          CRD    CM
04424  M00S03771.pfu     +++|          LDD    HN
04425  M00S03772.pfu     +++|          SBD    CM+4
04426  M00S03773.pfu     +++|          PJN    EMB2        IF LEGAL WORD COUNT
04427  M00S03774.pfu     +++|          FETA               READ FILE NAME
04428  M00S03775.pfu     +++|          CRD    FN
04429  M00S03776.pfu     +++|          ERROR  ECBCW       PROCESS BUFFER CONTROL WORD ERROR
04430  M00S03777.pfu     +++|
04431  M00S03778.pfu     +++| EMB2     AOD    CM+4
04432  M00S03779.pfu     +++|          STD    P1
04433  M00S03780.pfu     +++|
04434  M00S03781.pfu     +++|*         DETERMINE NEXT SECTOR.
04435  M00S03782.pfu     +++|
04436  M00S03783.pfu     +++|          LDD    T7          SET NEXT SECTOR
04437  M00S03784.pfu     +++|          ADN    1
04438  M00S03785.pfu     +++|          STD    SC
04439  M00S03786.pfu     +++|          LMM    SLM
04440  M00S03787.pfu     +++|          NJN    EMB3        IF NOT END OF TRACK
04441  M00S03788.pfu     +++|          LDD    CM          CHECK FOR EOI SECTOR
04442  M00S03789.pfu     +++|          SHN    -6
04443  M00S03790.pfu     +++|          SBN    2
04444  M00S03791.pfu     +++|          PJN    EMB3        IF EOI SECTOR
04445  M00S03792.pfu     +++|          RJM    DNT         DETERMINE NEXT TRACK
04446  M00S03793.pfu     +++|          NJN    EMB3        IF NO ERROR
Line S03794 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04447  M01S03794.ns22000 ---|          LJM    EMBX        RETURN
Line S00149 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04448  M01S00149.ns22000 +++| EMB2.1   LJM    EMBX        RETURN
04449  M00S03795.pfu     +++|
04450  M00S03796.pfu     +++|*         READ SECTOR FROM CENTRAL BUFFER.
04451  M00S03797.pfu     +++|
Line S03798 Modification History
M01 (Removed by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04452  M01S03798.pfu7    ---| EMB3     LDD    RA          CHECK FOR STORAGE MOVE
04453  M01S03799.pfu7    ---|          LMD    PR
04454  M01S03800.pfu7    ---|          ZJN    EMB4        IF NO STORAGE MOVE
04455  M01S03801.pfu7    ---|          RJM    SAW         SET ABSOLUTE WRITE BUFFER ADDRESSES
04456  M01S03802.pfu7    ---| EMB4     RJM    RCB         READ CENTRAL BUFFER
Line S00001 Modification History
M01 (Added by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04457  M01S00001.pfu7    +++| EMB3     RJM    RCB         READ CENTRAL BUFFER
04458  M00S03803.pfu     +++|
04459  M00S03804.pfu     +++|*         SET LINKAGE BYTES.
04460  M00S03805.pfu     +++|
04461  M00S03806.pfu     +++|          LDM    CWBA
04462  M00S03807.pfu     +++|          SHN    -6
04463  M00S03808.pfu     +++|          ZJN    EMB7        IF NOT EOF OR EOI
04464  M00S03809.pfu     +++|          LMN    1
04465  M00S03810.pfu     +++|          ZJN    EMB6        IF EOF
04466  M00S03811.pfu     +++|          RJM    WEI         WRITE EOI SECTOR
04467  M00S03812.pfu     +++|          PJN    EMB8        IF NO MASS STORAGE ERROR
Line S03813 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04468  M01S03813.242l642 ---| EMB5     LDN    FEWE        SET MASS STORAGE WRITE ERROR
04469  M01S03814.242l642 ---|          RJM    PWE         PROCESS WRITE ERROR
04470  M01S03815.242l642 ---|          LDN    0           SET ERROR STATUS
Line S03816 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04471  M02S03816.242l642 ---|          LJM    EMBX        RETURN
Line S00150 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04472  M02S00150.242l642 ---|          UJN    EMB2.1      RETURN
Line S00154 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04473  M01S00154.242l642 +++| EMB5     RJM    SWE         SET WRITE ERROR STATUS
04474  M01S00155.242l642 +++|          UJN    EMB2.1      RETURN WITH (A) = 0
04475  M00S03817.pfu     +++|
04476  M00S03818.pfu     +++| EMB6     LDD    SC          SET SECOND LINKAGE BYTE
04477  M00S03819.pfu     +++|          STM    BFMS+1
04478  M00S03820.pfu     +++| EMB7     LMD    SC          SET FIRST LINKAGE BYTE
04479  M00S03821.pfu     +++|          STM    BFMS
04480  M00S03822.pfu     +++|
04481  M00S03823.pfu     +++|*         WRITE SECTOR.
04482  M00S03824.pfu     +++|
04483  M00S03825.pfu     +++|          LDC    BFMS+WCSF   WRITE SECTOR
04484  M00S03826.pfu     +++|          RJM    WDS
04485  M00S03827.pfu     +++|          MJN    EMB5        IF MASS STORAGE ERROR
04486  M00S03828.pfu     +++| EMB8     LDD    RA          CHECK FOR STORAGE MOVE
04487  M00S03829.pfu     +++|          LMD    PR
04488  M00S03830.pfu     +++|          ZJN    EMB9        IF NOT STORAGE MOVED
04489  M00S03831.pfu     +++|          RJM    SAW         SET ABSOLUTE WRITE BUFFER ADDRESSES
04490  M00S03832.pfu     +++|
04491  M00S03833.pfu     +++|*         ADVANCE SECTOR.
04492  M00S03834.pfu     +++|
04493  M00S03835.pfu     +++| EMB9     LDM    BFMS
04494  M00S03836.pfu     +++|          NJN    EMB10       IF TRACK OR SECTOR PRESENT
04495  M00S03837.pfu     +++|          LDM    BFMS+1
04496  M00S03838.pfu     +++|          NJN    EMB10       IF TRACK OR SECTOR PRESENT
04497  M00S03839.pfu     +++|          LDN    1           SET BEGINNING OF FILE FLAG
04498  M00S03840.pfu     +++|          STM    BEGF,TF
04499  M00S03841.pfu     +++|          UJN    EMB11       UPDATE OUT POINTER
04500  M00S03842.pfu     +++|
04501  M00S03843.pfu     +++| EMB10    STD    T7          SET NEXT SECTOR
04502  M00S03844.pfu     +++|          SHN    21-13
04503  M00S03845.pfu     +++|          PJN    EMB11       IF NOT TRACK
04504  M00S03846.pfu     +++|          SHN    -6
04505  M00S03847.pfu     +++|          STD    T6
04506  M00S03848.pfu     +++|          LDN    0           SET SECTOR
04507  M00S03849.pfu     +++|          STD    T7
04508  M00S03850.pfu     +++|
04509  M00S03851.pfu     +++|*         UPDATE OUT POINTER.
04510  M00S03852.pfu     +++|
Line S03853 Modification History
M01 (Removed by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04511  M01S03853.pfu7    ---| EMB11    LDD    RA          CHECK FOR STORAGE MOVE
04512  M01S03854.pfu7    ---|          LMD    PR
04513  M01S03855.pfu7    ---|          ZJN    EMB12       IF NO STORAGE MOVE
04514  M01S03856.pfu7    ---|          RJM    SAW         SET ABSOLUTE WRITE BUFFER ADDRESSES
04515  M01S03857.pfu7    ---| EMB12    RJM    UOP         UPDATE OUT POINTER IN FET
Line S00002 Modification History
M01 (Added by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04516  M01S00002.pfu7    +++| EMB11    LDD    OT          POSITION OUT POINTER FOR CM WRITE
04517  M01S00003.pfu7    +++|          STD    FN+3
04518  M01S00004.pfu7    +++|          LDD    OT+1
04519  M01S00005.pfu7    +++|          STD    FN+4
04520  M01S00006.pfu7    +++|          LDC    **
04521  M01S00007.pfu7    +++| EMBB     EQU    *-2         (RA + FET ADDRESS OF OUT POINTER)
04522  M01S00008.pfu7    +++|          CWD    FN          WRITE OUT POINTER INTO FET
04523  M00S03858.pfu     +++|
04524  M00S03859.pfu     +++|*         DETERMINE WHETHER TO EXIT.
04525  M00S03860.pfu     +++|
04526  M00S03861.pfu     +++|          SOD    P2          DECREMENT SECTOR COUNT
04527  M00S03862.pfu     +++|          NJN    EMB14       IF SECTORS LEFT IN BUFFER
04528  M00S03863.pfu     +++|          RJM    SSC         SET SECTOR COUNT
04529  M00S03864.pfu     +++|          LDD    P2
04530  M00S03865.pfu     +++|          NJN    EMB14       IF SECTORS LEFT IN BUFFER
04531  M00S03866.pfu     +++| EMB13    LJM    EMBX        RETURN
04532  M00S03867.pfu     +++|
04533  M00S03868.pfu     +++| EMB14    LDM    BEGF,TF     CHECK FOR EOI
04534  M00S03869.pfu     +++|          NJN    EMB13       IF EOI
04535  M00S03870.pfu     +++|          LJM    EMB1        LOOP FOR MORE SECTORS
04536  M00S03871.pfu     +++| PBF      SPACE  4,50
04537  M00S03872.pfu     +++|**        PBF - PROCESS BEGINNING OF FILE.
04538  M00S03873.pfu     +++|*
04539  M00S03874.pfu     +++|*         ENTRY  (T4 - T7) = DATA FILE MASS STORAGE PARAMETERS FOR
04540  M00S03875.pfu     +++|*                            INDIRECT FILE CHAIN.
04541  M00S03876.pfu     +++|*                (FS - FS+4) = DATA FILE PARAMETERS FOR INDIRECT ACCESS
04542  M00S03877.pfu     +++|*                              FILE CHAIN.
04543  M00S03878.pfu     +++|*                (CWBA - CWBA+4) = BUFFER CONTROL WORD.
04544  M00S03879.pfu     +++|*                (DN) = MASTER DEVICE NUMBER.
04545  M00S03880.pfu     +++|*                (BEGF+(TF)) = BEGINNING OF FILE FLAG.
04546  M00S03881.pfu     +++|*                (P2) = COUNT OF SECTORS IN CENTRAL BUFFER.
04547  M00S03882.pfu     +++|*
04548  M00S03883.pfu     +++|*         EXIT   (A) = 0, IF NO ERROR DETECTED.
04549  M00S03884.pfu     +++|*                    = NON-ZERO, IF ERROR DETECTED.
04550  M00S03885.pfu     +++|*                (BEGF+(TF)) = 0.
04551  M00S03886.pfu     +++|*                (P2) = UPDATED COUNT OF SECTORS IN CENTRAL BUFFER.
04552  M00S03887.pfu     +++|*                SYSTEM SECTOR WRITTEN.
04553  M00S03888.pfu     +++|*                TRACK AND SECTOR OF CM CATALOG ENTRY UPDATED TO
04554  M00S03889.pfu     +++|*                NEW BEGINNING ADDRESS OF FILE.
04555  M00S03890.pfu     +++|*                WRITE ERROR PROCESSOR CALLED, IF ERROR DETECTED.
04556  M00S03891.pfu     +++|*
04557  M00S03892.pfu     +++|*                IF INDIRECT ACCESS FILE --
04558  M00S03893.pfu     +++|*                (T4 - T7) = DATA FILE MASS STORAGE PARAMETERS FOR
04559  M00S03894.pfu     +++|*                            FIRST DATA SECTOR OF FILE WITHIN
04560  M00S03895.pfu     +++|*                            THE INDIRECT FILE CHAIN.
04561  M00S03896.pfu     +++|*
04562  M00S03897.pfu     +++|*                IF DIRECT ACCESS FILE --
04563  M00S03898.pfu     +++|*                (T4 - T7) = DATA FILE MASS STORAGE PARAMETERS FOR
04564  M00S03899.pfu     +++|*                            FIRST DATA SECTOR OF DIRECT ACCESS FILE.
04565  M00S03900.pfu     +++|*                (FS - FS+4) = DATA FILE PARAMETERS FOR DIRECT ACCESS
04566  M00S03901.pfu     +++|*                              FILE.
04567  M00S03902.pfu     +++|*                (DA) = DIRECT ACCESS FILE FLAG SET.
04568  M00S03903.pfu     +++|*                (DN) = RESIDENT DEVICE NUMBER OF DIRECT ACCESS FILE.
04569  M00S03904.pfu     +++|*                INDIRECT ACCESS FILE CHAIN PARAMETERS SAVED --
04570  M00S03905.pfu     +++|*                (DLSA)   = MASTER DEVICE NUMBER.
Line S03906 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04571  M01S03906.ns22000 ---|*                (DLSA+1) = MASTER EQUIPMENT NUMBER.
Line S00151 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04572  M01S00151.ns22000 +++|*                (DLSA+1) = MASTER DEVICE EST ORDINAL.
04573  M00S03907.pfu     +++|*                (DLSA+2) = IAPF CHAIN FIRST TRACK.
04574  M00S03908.pfu     +++|*                (DLSA+3) = IAPF CHAIN CURRENT TRACK.
04575  M00S03909.pfu     +++|*                (DLSA+4) = IAPF CHAIN CURRENT SECTOR.
04576  M00S03910.pfu     +++|*                FST ENTRY WRITTEN TO CENTRAL MEMORY.
04577  M00S03911.pfu     +++|*
04578  M00S03912.pfu     +++|*         USES   BEGF+(TF), /COMSWSS/FA, P1, P2, T1, T4, T5, T6, T7,
04579  M00S03913.pfu     +++|*                CM+1 - CM+3, DLSA - DLSA+4, FS - FS+4.
04580  M00S03914.pfu     +++|*
Line S03915 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04581  M01S03915.242l642 ---|*         CALLS  PDA, RBA, RCB, RTK, SAW, SNT, UOP, WSS.
Line S00156 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04582  M01S00156.242l642 +++|*         CALLS  PDA, PWE, RBA, RCB, RTK, SAW, SNT, UOP, WSS.
04583  M00S03916.pfu     +++|*
04584  M00S03917.pfu     +++|*         MACROS ERROR, MONITOR, NFA, SETMS.
04585  M00S03918.pfu     +++|
04586  M00S03919.pfu     +++|
04587  M00S03920.pfu     +++| PBF      SUBR               ENTRY/EXIT
04588  M00S03921.pfu     +++|          LDM    BEGF,TF
04589  M00S03922.pfu     +++|          ZJN    PBFX        IF NOT BEGINNING OF FILE
04590  M00S03923.pfu     +++|          RJM    SAW         SET ABSOLUTE WRITE BUFFER ADDRESSES
04591  M00S03924.pfu     +++|
04592  M00S03925.pfu     +++|*         READ OLD SYSTEM SECTOR, IF AVAILABLE.
04593  M00S03926.pfu     +++|
04594  M00S03927.pfu     +++|          LDM    CWBA        CHECK TYPE OF FIRST SECTOR
04595  M00S03928.pfu     +++|          SHN    -6
04596  M00S03929.pfu     +++|          LMN    4
04597  M00S03930.pfu     +++|          NJN    PBF3        IF NOT SYSTEM SECTOR
04598  M00S03931.pfu     +++|          LDM    CWBA+4      CHECK SYSTEM SECTOR LENGTH
04599  M00S03932.pfu     +++|          ZJN    PBF1        IF ZERO LENGTH
04600  M00S03933.pfu     +++|          LDD    HN
04601  M00S03934.pfu     +++|          SBM    CWBA+4
04602  M00S03935.pfu     +++|          PJN    PBF2        IF LEGAL LENGTH
04603  M00S03936.pfu     +++| PBF1     ERROR  ECBCW       PROCESS BUFFER CONTROL WORD ERROR
04604  M00S03937.pfu     +++|
04605  M00S03938.pfu     +++| PBF2     LDM    CWBA+4      SET LENGTH
04606  M00S03939.pfu     +++|          ADD    ON
04607  M00S03940.pfu     +++|          STD    P1
04608  M00S03941.pfu     +++|          RJM    RCB         READ SYSTEM SECTOR FROM CM BUFFER
04609  M00S03942.pfu     +++|          SOD    P2          DECREMENT SECTOR COUNT
04610  M00S03943.pfu     +++|          UJN    PBF5        UPDATE SYSTEM SECTOR
04611  M00S03944.pfu     +++|
04612  M00S03945.pfu     +++|*         CLEAR SYSTEM SECTOR BUFFER IF BUILDING NEW SYSTEM SECTOR.
04613  M00S03946.pfu     +++|
04614  M00S03947.pfu     +++| PBF3     LDC    FNSS-5      INITIALIZE LOOP CONTROLS
04615  M00S03948.pfu     +++|          STM    PBFA
04616  M00S03949.pfu     +++| PBF4     LDN    5           INCREMENT
04617  M00S03950.pfu     +++|          RAM    PBFA
04618  M00S03951.pfu     +++|          LDN    ZERL
04619  M00S03952.pfu     +++|          CRM    FNSS,ON     ZERO OUT 5 BUFFER WORDS
04620  M00S03953.pfu     +++| PBFA     EQU    *-1
04621  M00S03954.pfu     +++|          LDM    PBFA
Line S03955 Modification History
M01 (Removed by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04622  M01S03955.ns2332  ---|          SBM    PBFB
Line S00014 Modification History
M01 (Added by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04623  M01S00014.ns2332  +++|          SBK    FNSS+5*77
04624  M00S03956.pfu     +++|          MJN    PBF4        IF MORE WORDS TO ZERO OUT
04625  M00S03957.pfu     +++|
04626  M00S03958.pfu     +++|*         UPDATE SYSTEM SECTOR FILE NAME AND CATALOG ENTRY IMAGE.
04627  M00S03959.pfu     +++|
04628  M00S03960.pfu     +++| PBF5     LDN    NWCE        SET LENGTH OF CATALOG ENTRY
04629  M00S03961.pfu     +++|          STD    T1
04630  M00S03962.pfu     +++|          LDM    CWBA        SET CM ADDRESS OF CATALOG ENTRY
04631  M00S03963.pfu     +++|          LPN    77
04632  M00S03964.pfu     +++|          SHN    6
04633  M00S03965.pfu     +++|          ADD    RA
04634  M00S03966.pfu     +++|          SHN    6
04635  M00S03967.pfu     +++|          ADM    CWBA+1
04636  M00S03968.pfu     +++|          CRM    FNSS,ON     READ FILE NAME
04637  M00S03969.pfu     +++|          SBN    1
04638  M00S03970.pfu     +++|          CRM    CTSS,T1     READ CATALOG ENTRY
04639  M00S03971.pfu     +++|
04640  M00S03972.pfu     +++|*         DETERMINE FILE TYPE.
04641  M00S03973.pfu     +++|
04642  M00S03974.pfu     +++|          LDM    CWBA+3
04643  M00S03975.pfu     +++|          NJN    PBF6        IF DIRECT ACCESS FILE
04644  M00S03976.pfu     +++|          LJM    PBF9        PROCESS INDIRECT ACCESS FILE
04645  M00S03977.pfu     +++|
04646  M00S03978.pfu     +++|*         SAVE INDIRECT ACCESS FILE CHAIN PARAMETERS.
04647  M00S03979.pfu     +++|
Line S03980 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04648  M01S03980.ns22000 ---| PBF6     LDD    T5          SAVE MASTER EQUIPMENT
Line S00152 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04649  M01S00152.ns22000 +++| PBF6     LDD    T5          SAVE MASTER DEVICE EST ORDINAL
04650  M00S03981.pfu     +++|          STM    DLSA+1
04651  M00S03982.pfu     +++|          LDD    FS+1        SAVE IAPF CHAIN FIRST TRACK
04652  M00S03983.pfu     +++|          STM    DLSA+2
04653  M00S03984.pfu     +++|          LDD    T6          SAVE IAPF CHAIN CURRENT TRACK
04654  M00S03985.pfu     +++|          STM    DLSA+3
04655  M00S03986.pfu     +++|          LDD    T7          SAVE IAPF CHAIN CURRENT SECTOR
04656  M00S03987.pfu     +++|          STM    DLSA+4
04657  M00S03988.pfu     +++|
04658  M00S03989.pfu     +++|*         DETERMINE WHERE TO LOAD DIRECT ACCESS FILE.
04659  M00S03990.pfu     +++|
Line S03991 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04660  M01S03991.ns22000 ---|          LDM    CTSS+FCEO   CHECK DEVICE RESIDENCY
Line S00153 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04661  M01S00153.ns22000 +++|          LDM    CTSS+FCDN   CHECK DEVICE RESIDENCY
04662  M00S03992.pfu     +++|          LPN    77
04663  M00S03993.pfu     +++|          NJN    PBF7        IF NOT RESIDENT ON MASTER DEVICE
04664  M00S03994.pfu     +++|          LDD    DN          SET MASTER DEVICE NUMBER
04665  M00S03995.pfu     +++| PBF7     RJM    PDA         PROCESS DIRECT ACCESS FILE
Line S03996 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04666  M01S03996.ns22000 ---|          LDD    FS          SET EQUIPMENT IN FST
04667  M01S03997.ns22000 ---|          SCN    77
04668  M01S03998.ns22000 ---|          LMD    T5
04669  M01S03999.ns22000 ---|          STD    FS
04670  M01S04000.ns22000 ---|          LDM    CTSS+FCEO   SET CATALOG ENTRY IMAGE EQUIPMENT = 0
04671  M01S04001.ns22000 ---|          SCN    77
04672  M01S04002.ns22000 ---|          STM    CTSS+FCEO
04673  M01S04003.ns22000 ---|          LDD    DN
04674  M01S04004.ns22000 ---|          LMD    T5
04675  M01S04005.ns22000 ---|          ZJN    PBF8        IF RESIDENT DEVICE = MASTER DEVICE
04676  M01S04006.ns22000 ---|          LDM    CTSS+FCEO   SET EQUIPMENT = RESIDENT DEVICE
04677  M01S04007.ns22000 ---|          LMD    T5
04678  M01S04008.ns22000 ---|          STM    CTSS+FCEO
04679  M01S04009.ns22000 ---| PBF8     LDN    0           SET RMS SECTOR POSITIONING DIRECT CELL
Line S00154 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04680  M01S00154.ns22000 +++|          LDD    T5          SET EST ORDINAL IN FST
04681  M01S00155.ns22000 +++|          STD    FS
04682  M01S00156.ns22000 +++|          LDN    0
04683  M00S04010.pfu     +++|          STD    T7
04684  M00S04011.pfu     +++|          LDC    400000
04685  M00S04012.pfu     +++|          RJM    RTK         REQUEST SINGLE NON-LINKED TRACK
04686  M00S04013.pfu     +++|          NJN    PBF13       IF TRACK AVAILABLE
04687  M00S04014.pfu     +++|          LDN    1           SET ERROR STATUS
Line S04015 Modification History
M01 (Removed by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04688  M01S04015.ns2332  ---|          LJM    PBFX        RETURN
Line S00015 Modification History
M01 (Added by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04689  M01S00015.ns2332  +++| PBF8     LJM    PBFX        RETURN
04690  M00S04016.pfu     +++|
04691  M00S04017.pfu     +++|*         DETERMINE WHERE TO LOAD INDIRECT ACCESS FILE.
04692  M00S04018.pfu     +++|
04693  M00S04019.pfu     +++| PBF9     AOD    T7          ADVANCE IAPF CHAIN TO NEXT SECTOR
04694  M00S04020.pfu     +++|          LMM    SLM
04695  M00S04021.pfu     +++|          ZJN    PBF10       IF END OF TRACK
04696  M00S04022.pfu     +++|          LDD    T6          USE CURRENT IAPF CHAIN TRACK
04697  M00S04023.pfu     +++|          UJN    PBF14       SET FIRST TRACK
04698  M00S04024.pfu     +++|
04699  M00S04025.pfu     +++| PBF10    STD    T7          SET TO FIRST SECTOR OF NEXT TRACK
04700  M00S04026.pfu     +++| PBF11    RJM    SNT         SET NEXT TRACK
04701  M00S04027.pfu     +++|          SHN    21-13
04702  M00S04028.pfu     +++|          PJN    PBF12       IF TRACK NOT AVAILABLE
04703  M00S04029.pfu     +++|          SHN    13-21
04704  M00S04030.pfu     +++|          UJN    PBF14       SET FIRST TRACK
04705  M00S04031.pfu     +++|
04706  M00S04032.pfu     +++| PBF12    LDD    T6
04707  M00S04033.pfu     +++|          RJM    RTK         REQUEST MULTIPLE LINKED TRACKS
04708  M00S04034.pfu     +++|          NJN    PBF11       IF NO ERROR
04709  M00S04035.pfu     +++|          LDN    1           SET ERROR STATUS
Line S04036 Modification History
M01 (Removed by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04710  M01S04036.ns2332  ---|          LJM    PBFX        RETURN
Line S00016 Modification History
M01 (Added by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04711  M01S00016.ns2332  +++|          UJN    PBF8        RETURN
04712  M00S04037.pfu     +++|
04713  M00S04038.pfu     +++|*         SET FIRST TRACK.
04714  M00S04039.pfu     +++|
04715  M00S04040.pfu     +++| PBF13    STD    FS+1        IN FST ENTRY
04716  M00S04041.pfu     +++|          STD    CM+2        IN *SET PRESERVED FILE STATUS* FUNCTION
04717  M00S04042.pfu     +++| PBF14    STD    T6          IN RMS TRACK POSITIONING DIRECT CELL
04718  M00S04043.pfu     +++|          STM    FTSS        IN SYSTEM SECTOR FST IMAGE
04719  M00S04044.pfu     +++|          STM    CTSS+FCBT   IN SYSTEM SECTOR CATALOG ENTRY IMAGE
04720  M00S04045.pfu     +++|          LDM    CWBA+3
04721  M00S04046.pfu     +++|          NJN    PBF15       IF DIRECT ACCESS FILE
04722  M00S04047.pfu     +++|          LJM    PBF16       PROCESS INDIRECT ACCESS FILE
04723  M00S04048.pfu     +++|
04724  M00S04049.pfu     +++|*         SET PRESERVED FILE STATUS.
04725  M00S04050.pfu     +++|
04726  M00S04051.pfu     +++| PBF15    LDN    SPFS        SET SUB-FUNCTION CODE
04727  M00S04052.pfu     +++|          STD    CM+3
Line S04053 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04728  M01S04053.ns22000 ---|          LDD    T5          SET EQUIPMENT NUMBER
Line S00157 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04729  M01S00157.ns22000 +++|          LDD    T5          SET EST ORDINAL
04730  M00S04054.pfu     +++|          STD    CM+1
04731  M00S04055.pfu     +++|          MONITOR  STBM      SET PRESERVED FILE STATUS TRACK BIT
04732  M00S04056.pfu     +++|
04733  M00S04057.pfu     +++|*         CLEAR DIRECT ACCESS FILE MODE/USAGE FIELDS.
04734  M00S04058.pfu     +++|
04735  M00S04059.pfu     +++|          LDM    FNSS+3      FILE ATTACH MODE BITS
04736  M00S04060.pfu     +++|          SCN    77
04737  M00S04061.pfu     +++|          STM    FNSS+3
04738  M00S04062.pfu     +++|          LDN    ZERL
04739  M00S04063.pfu     +++|          CRM    CASS+FISS*,ON  ACCESS MODE BITS / FAST ATTACH FLAGS
04740  M00S04064.pfu     +++|          LDN    ZERL
04741  M00S04065.pfu     +++|          CRM    UCSS,ON     USER COUNTS
04742  M00S04066.pfu     +++|          LDN    ZERL
04743  M00S04067.pfu     +++|          CRM    UCSS+1*5,ON
04744  M00S04068.pfu     +++|          LDN    ZERL
04745  M00S04069.pfu     +++|          CRM    UCSS+2*5,ON
04746  M00S04070.pfu     +++|          LDN    ZERL
04747  M00S04071.pfu     +++|          CRM    UCSS+3*5,ON
04748  M00S04072.pfu     +++|          LDN    ZERL
04749  M00S04073.pfu     +++|          CRM    UCSS+4*5,ON
04750  M00S04074.pfu     +++|
04751  M00S04075.pfu     +++|*         SET FILE TYPE AND FIRST SECTOR FOR DIRECT ACCESS FILE.
04752  M00S04076.pfu     +++|
04753  M00S04077.pfu     +++|          LDC    PMFT*100    SET FILE TYPE
04754  M00S04078.pfu     +++|          STM    FNSS+4
04755  M00S04079.pfu     +++|          LCN    0           SET FIRST SECTOR = DAPF IDENTIFIER
04756  M00S04080.pfu     +++|          STM    CTSS+FCBS
04757  M00S04081.pfu     +++|          UJN    PBF18       UPDATE CM CATALOG ENTRY
04758  M00S04082.pfu     +++|
04759  M00S04083.pfu     +++|*         SET FILE TYPE AND FIRST SECTOR FOR INDIRECT ACCESS FILE.
04760  M00S04084.pfu     +++|
04761  M00S04085.pfu     +++| PBF16    LDC    PMFT*100    SET FILE TYPE
04762  M00S04086.pfu     +++|          STM    FNSS+4
04763  M00S04087.pfu     +++|          LDD    T7          SET FIRST SECTOR
04764  M00S04088.pfu     +++|          STM    CTSS+FCBS
04765  M00S04089.pfu     +++|          ADN    1
04766  M00S04090.pfu     +++|          LMM    SLM
04767  M00S04091.pfu     +++|          NJN    PBF18       IF NEXT SECTOR WITHIN SECTOR LIMIT
04768  M00S04092.pfu     +++| PBF17    RJM    SNT         FIND NEXT TRACK
04769  M00S04093.pfu     +++|          SHN    21-13
04770  M00S04094.pfu     +++|          MJN    PBF18       IF NEXT TRACK AVAILABLE
04771  M00S04095.pfu     +++|
04772  M00S04096.pfu     +++|          LDD    T6
04773  M00S04097.pfu     +++|          RJM    RTK         REQUEST MULTIPLE LINKED TRACKS
04774  M00S04098.pfu     +++|          NJN    PBF17       IF NO ERROR
04775  M00S04099.pfu     +++|          LDN    1           SET ERROR STATUS
Line S04100 Modification History
M01 (Removed by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04776  M01S04100.ns2332  ---|          LJM    PBFX        RETURN
Line S00017 Modification History
M01 (Added by) ns2332
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04777  M02S00017.242l642 ---|          UJN    PBF21       RETURN
Line S00157 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04778  M01S00157.242l642 +++|          LJM    PBFX        RETURN
04779  M00S04101.pfu     +++|
04780  M00S04102.pfu     +++|*         UPDATE TRACK AND SECTOR OF CM CATALOG ENTRY.
04781  M00S04103.pfu     +++|
04782  M00S04104.pfu     +++| PBF18    RJM    RBA         RETURN BEGINNING ADDRESS OF FILE TO CM
04783  M00S04105.pfu     +++|
04784  M00S04106.pfu     +++|*         WRITE SYSTEM SECTOR.
04785  M00S04107.pfu     +++|
04786  M00S04108.pfu     +++|          LDN    0           DESELECT FNT PROCESSING BY *WSS*
04787  M00S04109.pfu     +++|          STD    /COMPWSS/FA
Line S04110 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04788  M01S04110.242l642 ---|          SETMS  WRITE,,WEBA
Line S00158 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04789  M01S00158.242l642 +++|          SETMS  IO,,WEBA
04790  M00S04111.pfu     +++|          RJM    WSS         WRITE SYSTEM SECTOR
Line S00159 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04791  M01S00159.242l642 +++|          SHN    0-21
04792  M01S00160.242l642 +++|          STD    T1          SAVE REPLY STATUS
04793  M00S04112.pfu     +++|          LDM    CWBA+3
Line S04113 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04794  M01S04113.242l642 ---|          ZJN    PBF19       IF INDIRECT ACCESS FILE
Line S00161 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04795  M01S00161.242l642 +++|          ZJN    PBF18.1     IF INDIRECT ACCESS FILE
04796  M00S04114.pfu     +++|
04797  M00S04115.pfu     +++|*         WRITE FST ENTRY TO CENTRAL MEMORY.
04798  M00S04116.pfu     +++|
04799  M00S04117.pfu     +++|          NFA    FA,R
04800  M00S04118.pfu     +++|          ADN    FSTL
04801  M00S04119.pfu     +++|          CWD    FS          WRITE FST
Line S00162 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04802  M01S00162.242l642 +++|
04803  M01S00163.242l642 +++|*         CHECK FOR WRITE ERROR ON SYSTEM SECTOR.
04804  M01S00164.242l642 +++|
04805  M01S00165.242l642 +++| PBF18.1  LDD    T1          CHECK REPLY STATUS FROM *WSS*
04806  M01S00166.242l642 +++|          ZJN    PBF19       IF NO ERROR
04807  M01S00167.242l642 +++|          ERRNZ  FEWE-1      CODE ASSUMES *FEWE* = 1
04808  M01S00168.242l642 +++|          RJM    PWE         PROCESS WRITE ERROR
04809  M01S00169.242l642 +++|          LDN    1
04810  M01S00170.242l642 +++|          UJN    PBF21       RETURN WITH (A) .NE. 0
04811  M00S04120.pfu     +++|
04812  M00S04121.pfu     +++|*         UPDATE OUT POINTER IN FET.
04813  M00S04122.pfu     +++|
04814  M00S04123.pfu     +++| PBF19    LDD    RA          CHECK FOR STORAGE MOVE
04815  M00S04124.pfu     +++|          LMD    PR
04816  M00S04125.pfu     +++|          ZJN    PBF20       IF NO STORAGE MOVE
04817  M00S04126.pfu     +++|          RJM    SAW         SET ABSOLUTE WRITE BUFFER ADDRESSES
04818  M00S04127.pfu     +++| PBF20    RJM    UOP         UPDATE OUT POINTER IN FET
04819  M00S04128.pfu     +++|          LDN    0           CLEAR BEGINNING OF FILE FLAG
04820  M00S04129.pfu     +++|          STM    BEGF,TF
Line S04130 Modification History
M01 (Removed by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04821  M01S04130.ns2332  ---|          LJM    PBFX        RETURN
04822  M01S04131.ns2332  ---|
04823  M01S04132.ns2332  ---| PBFB     VFD    12/FNSS+5*77  LOOP TERMINATION VALUE
Line S00018 Modification History
M01 (Added by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04824  M01S00018.ns2332  +++| PBF21    LJM    PBFX        RETURN
04825  M00S04133.pfu     +++| PCA      SPACE  4,10
04826  M00S04134.pfu     +++|**        PCA - PROCESS *CATS* ADDRESSING.
04827  M00S04135.pfu     +++|*
04828  M00S04136.pfu     +++|*         ENTRY  (CWBA+1 - CWBA+2) = MASS STORAGE ADDRESS.
04829  M00S04137.pfu     +++|*
04830  M00S04138.pfu     +++|*         EXIT   (T6 - T7) = MASS STORAGE ADDRESS (IF PRESENT).
04831  M00S04139.pfu     +++|*                (FS+2 - FS+3) = MASS STORAGE ADDRESS (IF PRESENT).
04832  M00S04140.pfu     +++|*
04833  M00S04141.pfu     +++|*         USES   FS+2, FS+3, T6, T7.
04834  M00S04142.pfu     +++|
04835  M00S04143.pfu     +++|
04836  M00S04144.pfu     +++| PCA      SUBR               ENTRY/EXIT
04837  M00S04145.pfu     +++|          LDM    CWBA+1
04838  M00S04146.pfu     +++|          ZJN    PCAX        RETURN IF TRACK NOT PRESENT
04839  M00S04147.pfu     +++|
04840  M00S04148.pfu     +++|*         SET UP DIRECT CELLS.
04841  M00S04149.pfu     +++|
04842  M00S04150.pfu     +++|          STD    T6          SET TRACK
04843  M00S04151.pfu     +++|          STD    FS+2
04844  M00S04152.pfu     +++|          LDM    CWBA+2
04845  M00S04153.pfu     +++|          STD    T7
04846  M00S04154.pfu     +++|          STD    FS+3
04847  M00S04155.pfu     +++|          UJN    PCAX        RETURN
04848  M00S04156.pfu     +++| PCF      SPACE  4,15
04849  M00S04157.pfu     +++|**        PCF - POSITION CATALOG FILE.
04850  M00S04158.pfu     +++|*
04851  M00S04159.pfu     +++|*         ENTRY  (IR+3 - IR+4) = CATALOG FILE FET ADDRESS.
04852  M00S04160.pfu     +++|*                (FET+FTCA) = 24/,18/PFD,18/AUI.
04853  M00S04161.pfu     +++|*                             PFD = ADDRESS OF PF DESCRIPTION WORD.
04854  M00S04162.pfu     +++|*                             AUI = ADDRESS OF USER INDEX.
Line S00158 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04855  M01S00158.ns22000 +++|*T PFD    42/ NAME, 6/, 12/ EST ORDINAL
Figure PFD

01112171829 EST ORDINAL NAME3059 NAME

04856  M00S04163.pfu     +++|*
04857  M00S04164.pfu     +++|*         EXIT   CATALOG FILE POSITIONED FOR THE SPECIFIED USER INDEX.
04858  M00S04165.pfu     +++|*
04859  M00S04166.pfu     +++|*         USES   T7, P1 - P5.
04860  M00S04167.pfu     +++|*
04861  M00S04168.pfu     +++|*         CALLS  CIO, PIO, SCT.
04862  M00S04169.pfu     +++|*
04863  M00S04170.pfu     +++|*         MACROS FETA.
04864  M00S04171.pfu     +++|
04865  M00S04172.pfu     +++|
04866  M00S04173.pfu     +++| PCF      SUBR               ENTRY/EXIT
04867  M00S04174.pfu     +++|          RJM    PIO         PRESET I/O
04868  M00S04175.pfu     +++|          FETA   FTCA        READ PARAMETER WORD
04869  M00S04176.pfu     +++|          CRD    P1
04870  M00S04177.pfu     +++|          RJM    SCT         SET CATALOG TRACK
04871  M00S04178.pfu     +++|          LDN    0           SET FIRST SECTOR
04872  M00S04179.pfu     +++|          STD    T7
04873  M00S04180.pfu     +++|          STM    SSCC+1      CLEAR SECTOR COUNTER
04874  M00S04181.pfu     +++|          RJM    CIO         COMPLETE I/O
04875  M00S04182.pfu     +++|          UJN    PCFX        RETURN
04876  M00S04183.pfu     +++| PCR      SPACE  4,10
04877  M00S04184.pfu     +++|**        PCR - PROCESS CATALOG READ.
04878  M00S04185.pfu     +++|*
04879  M00S04186.pfu     +++|*         EXIT   CATALOGS READ TO CENTRAL.
04880  M00S04187.pfu     +++|*
04881  M00S04188.pfu     +++|*         CALLS  LDB, SRR.
04882  M00S04189.pfu     +++|*
04883  M00S04190.pfu     +++|*         MACROS ENDMS, SETMS.
04884  M00S04191.pfu     +++|
04885  M00S04192.pfu     +++|
04886  M00S04193.pfu     +++| PCR      SUBR               ENTRY/EXIT
04887  M00S04194.pfu     +++|          LDM    LDBM        BYPASS FILE LENGTH CHECKING
04888  M00S04195.pfu     +++|          STM    LDBC
04889  M00S04196.pfu     +++|
04890  M00S04197.pfu     +++|*         READ CATALOGS.
04891  M00S04198.pfu     +++|
04892  M00S04199.pfu     +++|          RJM    SRR         SET RELATIVE READ BUFFER ADDRESSES
Line S04200 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04893  M01S04200.242l642 ---|          SETMS  READ
Line S00171 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfu10
Seq #  *Modification Id* Act 
----------------------------+
04894  M02S00171.pfu10   ---|          SETMS  IO
Line S00003 Modification History
M01 (Added by) pfu10
Seq #  *Modification Id* Act 
----------------------------+
04895  M01S00003.pfu10   +++|          SETMS  READSTR
04896  M00S04201.pfu     +++|          RJM    LDB         LOAD BUFFER
04897  M00S04202.pfu     +++|          ENDMS
04898  M00S04203.pfu     +++|          UJN    PCRX        RETURN
04899  M00S04204.pfu     +++| PCW      SPACE  4,10
04900  M00S04205.pfu     +++|**        PCW - PROCESS CATALOG WRITE.
04901  M00S04206.pfu     +++|*
04902  M00S04207.pfu     +++|*         ENTRY  (T4 - T7) = CATALOG FILE MASS STORAGE PARAMETERS.
04903  M00S04208.pfu     +++|*
04904  M00S04209.pfu     +++|*         EXIT   (T4 - T7) = UPDATED CATALOG FILE MASS STORAGE
04905  M00S04210.pfu     +++|*                            PARAMETERS.
04906  M00S04211.pfu     +++|*                CATALOG DATA WRITTEN TO MASS STORAGE.
04907  M00S04212.pfu     +++|*
Line S04213 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04908  M01S04213.242l642 ---|*         CALLS  EMB, PCA, RCW, SSC, WEI.
Line S00172 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04909  M01S00172.242l642 +++|*         CALLS  EMB, PCA, RCW, SSC, SWE, WEI.
04910  M00S04214.pfu     +++|*
04911  M00S04215.pfu     +++|*         MACROS ENDMS.
04912  M00S04216.pfu     +++|
04913  M00S04217.pfu     +++|
04914  M00S04218.pfu     +++| PCW2     ENDMS
04915  M00S04219.pfu     +++| PCW3     LDN    0           CLEAR SECTOR COUNTER
04916  M00S04220.pfu     +++|          STM    SSCC,TF
04917  M00S04221.pfu     +++|
04918  M00S04222.pfu     +++| PCW      SUBR               ENTRY/EXIT
04919  M00S04223.pfu     +++|          RJM    SSC         SET SECTOR COUNT
04920  M00S04224.pfu     +++|          LDD    P2
04921  M00S04225.pfu     +++|          ZJN    PCW3        IF NO SECTORS
04922  M00S04226.pfu     +++|
04923  M00S04227.pfu     +++|*         WRITE CATALOG SECTORS.
04924  M00S04228.pfu     +++|
04925  M00S04229.pfu     +++| PCW1     RJM    RCW         READ BUFFER CONTROL WORD
04926  M00S04230.pfu     +++|          RJM    PCA         PROCESS CATALOG ADDRESSING
04927  M00S04231.pfu     +++|          RJM    EMB         EMPTY BUFFER
04928  M00S04232.pfu     +++|          NJN    PCW1        IF DATA LEFT IN BUFFER
04929  M00S04233.pfu     +++|          LDM    BEGF,TF
04930  M00S04234.pfu     +++|          NJN    PCW2        IF EOI ALREADY WRITTEN
04931  M00S04235.pfu     +++|          LDM    CWBA        CHECK FOR REWRITE REQUEST
04932  M00S04236.pfu     +++|          SHN    21-5
04933  M00S04237.pfu     +++|          MJN    PCW2        IF REWRITE REQUEST
04934  M00S04238.pfu     +++|          RJM    WEI         WRITE EOI
Line S04239 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04935  M01S04239.242l642 ---|          UJN    PCW2        DROP CHANNEL
Line S00173 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04936  M01S00173.242l642 +++|          PJN    PCW2        IF NO ERROR
04937  M01S00174.242l642 +++|          RJM    SWE         SET WRITE ERROR STATUS
04938  M01S00175.242l642 +++|          UJN    PCW3        CLEAR SECTOR COUNTER
04939  M00S04240.pfu     +++| PDF      SPACE  4,30
04940  M00S04241.pfu     +++|**        PDF - POSITION DATA FILE.
04941  M00S04242.pfu     +++|*
04942  M00S04243.pfu     +++|*         ENTRY  (IR+3 - IR+4) = DATA FILE FET ADDRESS.
Line S04244 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04943  M01S04244.242l642 ---|*                (FET+FTPM) = 24/,12/TF,12/TK,1/F,11/PM.
Line S00176 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04944  M01S00176.242l642 +++|*                (FET+FTPM) = 36/,12/TK,1/F,11/PM.
04945  M00S04245.pfu     +++|*                     F = 0 IF *TRACK AND SECTOR POSITION* REQUEST.
Line S04246 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04946  M01S04246.242l642 ---|*                         TF = IGNORED.
04947  M00S04247.pfu     +++|*                         TK = TRACK NUMBER.
04948  M00S04248.pfu     +++|*                         PM = SECTOR NUMBER.
04949  M00S04249.pfu     +++|*                         FILE IS POSITIONED TO THE PRU PRECEDING THE
04950  M00S04250.pfu     +++|*                         SPECIFIED TRACK AND SECTOR.
Line S04251 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04951  M01S04251.242l642 ---|*                     F = 1 IF *DROP AND FLAW TRACKS* REQUEST.
04952  M01S04252.242l642 ---|*                         TF = 0 IF NO TRACK TO FLAW.
04953  M01S04253.242l642 ---|*                            = TRACK TO FLAW, OTHERWISE.
Line S00177 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04954  M01S00177.242l642 +++|*                     F = 1 IF *DROP TRACKS* REQUEST.
04955  M00S04254.pfu     +++|*                         TK = FIRST TRACK TO BE DROPPED.
Line S04255 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04956  M01S04255.ns22000 ---|*                         PM = 5/,6/EQUIPMENT.
Line S00159 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04957  M01S00159.ns22000 +++|*                         PM = EST ORDINAL.
Line S04256 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04958  M01S04256.242l642 ---|*                         THE SPECIFIED TRACK CHAIN IS DROPPED AND A
04959  M01S04257.242l642 ---|*                         TRACK IS OPTIONALLY FLAWED.
Line S00178 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04960  M01S00178.242l642 +++|*                         THE SPECIFIED TRACK CHAIN IS DROPPED.
04961  M00S04258.pfu     +++|*
04962  M00S04259.pfu     +++|*                (DA) = 0 IF DATA FILE SET FOR IAPF.
04963  M00S04260.pfu     +++|*                     = NON-ZERO IF DATA FILE SET FOR DAPF.
04964  M00S04261.pfu     +++|*
04965  M00S04262.pfu     +++|*         EXIT   (DA) = 0.
04966  M00S04263.pfu     +++|*                (BEGF) = 1.
04967  M00S04264.pfu     +++|*                DATA FILE SET FOR IAPF.
04968  M00S04265.pfu     +++|*                ERROR EXIT TAKEN IF RANDOM ADDRESS NOT ON FILE.
04969  M00S04266.pfu     +++|*
Line S04267 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04970  M01S04267.242l642 ---|*         USES   P1 - P5, T5 - T6.
Line S00179 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04971  M01S00179.242l642 +++|*         USES   P1 - P5, T5 - T7.
04972  M00S04268.pfu     +++|*
04973  M00S04269.pfu     +++|*         CALLS  CIO, DFT, EDF, PIO, SDS, STE, TSP, VME.
04974  M00S04270.pfu     +++|*
04975  M00S04271.pfu     +++|*         MACROS ERROR, FETA.
04976  M00S04272.pfu     +++|
04977  M00S04273.pfu     +++|
04978  M00S04274.pfu     +++| PDF2     ERROR  ECPAR       PROCESS PARAMETER ERROR
04979  M00S04275.pfu     +++|
04980  M00S04276.pfu     +++| PDF3     RJM    TSP         PROCESS *TRACK AND SECTOR POSITION*
04981  M00S04277.pfu     +++|          MJN    PDF2        IF ADDRESS NOT ON FILE
04982  M00S04278.pfu     +++|          RJM    STE         SET EOI IN TRT
04983  M00S04279.pfu     +++| PDF4     RJM    SDS         SAVE DATA FILE STATE
04984  M00S04280.pfu     +++|          RJM    CIO         COMPLETE I/O
04985  M00S04281.pfu     +++|
04986  M00S04282.pfu     +++| PDF      SUBR               ENTRY/EXIT
04987  M00S04283.pfu     +++|          RJM    PIO         PRESET I/O
04988  M00S04284.pfu     +++|          LDD    DA
04989  M00S04285.pfu     +++|          ZJN    PDF1        IF NOT DIRECT ACCESS FILE
04990  M00S04286.pfu     +++|          RJM    EDF         END DIRECT ACCESS FILE
04991  M00S04287.pfu     +++| PDF1     LDN    1           SET BEGINNING OF FILE FLAG
04992  M00S04288.pfu     +++|          STM    BEGF
04993  M00S04289.pfu     +++|          FETA   FTPM        READ PARAMETER WORD
04994  M00S04290.pfu     +++|          CRD    P1
04995  M00S04291.pfu     +++|          LDD    P5          CHECK REQUEST TYPE
04996  M00S04292.pfu     +++|          SHN    21-13
04997  M00S04293.pfu     +++|          PJN    PDF3        IF *TRACK AND SECTOR POSITION* REQUEST
Line S04294 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04998  M01S04294.ns22000 ---|          LDN    P5          VALIDATE EQUIPMENT NUMBER
Line S00160 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04999  M01S00160.ns22000 +++|          LDN    P5          VALIDATE EST ORDINAL
05000  M00S04295.pfu     +++|          RJM    VME
Line S04296 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05001  M01S04296.242l642 ---|          LDD    P3          SET TRACK TO FLAW
05002  M01S04297.242l642 ---|          STD    T6
05003  M00S04298.pfu     +++|          LDD    P4          SET FIRST TRACK TO DROP
Line S04299 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05004  M01S04299.242l642 ---|          RJM    DFT         DROP AND FLAW TRACKS
Line S00180 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05005  M01S00180.242l642 +++|          RJM    DFT         DROP TRACKS
Line S04300 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05006  M01S04300.ns22000 ---|          LDD    FS          RESTORE IAPF EQUIPMENT
05007  M01S04301.ns22000 ---|          LPN    77
Line S00161 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05008  M01S00161.ns22000 +++|          LDD    FS          RESTORE IAPF EST ORDINAL
05009  M00S04302.pfu     +++|          STD    T5
05010  M00S04303.pfu     +++|          LDD    FS+2        RESTORE IAPF CURRENT TRACK
05011  M00S04304.pfu     +++|          STD    T6
Line S00181 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05012  M01S00181.242l642 +++|          LDD    FS+3        RESTORE IAPF CURRENT SECTOR
05013  M01S00182.242l642 +++|          STD    T7
05014  M00S04305.pfu     +++|          LJM    PDF4        SAVE DATA FILE STATE
05015  M00S04306.pfu     +++| PDW      SPACE  4,20
05016  M00S04307.pfu     +++|**        PDW - PROCESS DATA WRITE.
05017  M00S04308.pfu     +++|*
05018  M00S04309.pfu     +++|*         ENTRY  (T4 - T7) = MASS STORAGE PARAMETERS FOR FILE BEING
05019  M00S04310.pfu     +++|*                            PROCESSED.
05020  M00S04311.pfu     +++|*                (BEGF+(TF)) = 0 IF NOT START OF FILE.
05021  M00S04312.pfu     +++|*                            = NON-ZERO IF START OF FILE.
05022  M00S04313.pfu     +++|*                (DA) = 0 IF START OF FILE OR MIDDLE OF IAPF.
05023  M00S04314.pfu     +++|*                     = NON-ZERO IF MIDDLE OF DAPF.
05024  M00S04315.pfu     +++|*
05025  M00S04316.pfu     +++|*         EXIT   (T4 - T7) = UPDATED MASS STORAGE PARAMETERS.
05026  M00S04317.pfu     +++|*                (BEGF+(TF)) = 0 IF AT END OF PERMANENT FILE.
05027  M00S04318.pfu     +++|*                            = NON-ZERO IF IN MIDDLE OF PERMANENT FILE.
05028  M00S04319.pfu     +++|*                (DA) = 0 IF END OF PERMANENT FILE OR MIDDLE OF IAPF.
05029  M00S04320.pfu     +++|*                     = NON-ZERO IF IN MIDDLE OF DAPF.
05030  M00S04321.pfu     +++|*                DATA IN BUFFER WRITTEN TO MASS STORAGE.
05031  M00S04322.pfu     +++|*
Line S04323 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05032  M01S04323.242l642 ---|*         CALLS  EMB, PBF, PEF, RCW, SSC, STE, WEI.
Line S00183 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05033  M01S00183.242l642 +++|*         CALLS  EMB, PBF, PEF, RCW, SSC, STE, SWE, WEI.
05034  M00S04324.pfu     +++|*
05035  M00S04325.pfu     +++|*         MACROS ENDMS.
05036  M00S04326.pfu     +++|
05037  M00S04327.pfu     +++|
05038  M00S04328.pfu     +++|*         PROCESS END OF PERMANENT FILE.
05039  M00S04329.pfu     +++|
05040  M00S04330.pfu     +++| PDW4     LDM    BEGF,TF
05041  M00S04331.pfu     +++|          ZJN    PDW5        IF EOI NOT WRITTEN
Line S04332 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05042  M01S04332.242l642 ---|          ENDMS
Line S00184 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05043  M01S00184.242l642 +++| PDW4.1   ENDMS
05044  M00S04333.pfu     +++|          LDN    1           SELECT IAPF PROCESSING
05045  M00S04334.pfu     +++|          RJM    PEF         PROCESS END OF FILE
05046  M00S04335.pfu     +++|          UJN    PDWX        RETURN
05047  M00S04336.pfu     +++|
05048  M00S04337.pfu     +++|*         PROCESS EMPTY BUFFER.
05049  M00S04338.pfu     +++|
05050  M00S04339.pfu     +++| PDW5     RJM    WEI         FORCE EOI SECTOR
Line S04340 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05051  M01S04340.242l642 ---|          ENDMS
Line S00185 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05052  M01S00185.242l642 +++|          PJN    PDW5.1      IF NO ERROR
05053  M01S00186.242l642 +++|          RJM    SWE         SET WRITE ERROR STATUS
05054  M01S00187.242l642 +++|          UJN    PDW4.1      PROCESS END OF PERMANENT FILE
05055  M01S00188.242l642 +++|
05056  M01S00189.242l642 +++| PDW5.1   ENDMS
05057  M00S04341.pfu     +++|          RJM    STE         SET EOI IN TRT
05058  M00S04342.pfu     +++|
05059  M00S04343.pfu     +++| PDW      SUBR               ENTRY/EXIT
05060  M00S04344.pfu     +++|          RJM    SSC         SET SECTOR COUNT
05061  M00S04345.pfu     +++|          LDD    P2
05062  M00S04346.pfu     +++|          ZJN    PDWX        IF NO DATA IN BUFFER
05063  M00S04347.pfu     +++|          RJM    RCW         READ BUFFER CONTROL WORD
05064  M00S04348.pfu     +++| PDW1     RJM    PBF         PROCESS BEGINNING OF FILE
05065  M00S04349.pfu     +++|          NJN    PDW4        IF ERROR
05066  M00S04350.pfu     +++|          LDD    P2
05067  M00S04351.pfu     +++|          NJN    PDW2        IF DATA IN BUFFER
05068  M00S04352.pfu     +++|          RJM    SSC         SET SECTOR COUNT
05069  M00S04353.pfu     +++|          LDD    P2
05070  M00S04354.pfu     +++|          ZJN    PDW5        IF NO DATA IN BUFFER
05071  M00S04355.pfu     +++| PDW2     RJM    EMB         EMPTY BUFFER
05072  M00S04356.pfu     +++|          NJN    PDW3        IF BUFFER NOT EMPTY
05073  M00S04357.pfu     +++|          LJM    PDW4        PROCESS END OF PERMANENT FILE
05074  M00S04358.pfu     +++|
05075  M00S04359.pfu     +++| PDW3     ENDMS
05076  M00S04360.pfu     +++|          RJM    RCW         READ BUFFER CONTROL WORD
05077  M00S04361.pfu     +++|          LDM    CWBA+3
05078  M00S04362.pfu     +++|          RJM    PEF         PROCESS END OF FILE
05079  M00S04363.pfu     +++|          UJN    PDW1        PROCESS NEXT FILE
05080  M00S04364.pfu     +++| PEF      SPACE  4,30
05081  M00S04365.pfu     +++|**        PEF - PROCESS END OF PERMANENT FILE.
05082  M00S04366.pfu     +++|*
05083  M00S04367.pfu     +++|*         ENTRY  (A) = 0 IF NO IAPF PROCESSING DESIRED.
05084  M00S04368.pfu     +++|*                    = NON-ZERO IF IAPF PROCESSING DESIRED.
05085  M00S04369.pfu     +++|*                (DA) = 0 IF PROCESSING IAPF.
05086  M00S04370.pfu     +++|*                     = NON-ZERO IF PROCESSING DAPF.
05087  M00S04371.pfu     +++|*                (T4 - T7) = MASS STORAGE PARAMETERS FOR FILE BEING
05088  M00S04372.pfu     +++|*                            PROCESSED.
05089  M00S04373.pfu     +++|*                (FS - FS+3) = FILE PARAMETERS.
05090  M00S04374.pfu     +++|*                (DLSA - DLSA+4) = MASS STORAGE PARAMETERS FOR IAPF
05091  M00S04375.pfu     +++|*                                  CHAIN.
05092  M00S04376.pfu     +++|*                (DN) = RESIDENCY DEVICE OF FILE BEING PROCESSED.
05093  M00S04377.pfu     +++|*
05094  M00S04378.pfu     +++|*         EXIT   (DA) = 0.
05095  M00S04379.pfu     +++|*                (T4 - T7) = MASS STORAGE PARAMETERS FOR IAPF CHAIN.
05096  M00S04380.pfu     +++|*                (FS - FS+3) = FILE PARAMETERS FOR IAPF CHAIN.
05097  M00S04381.pfu     +++|*                (DN) = DEVICE NUMBER FOR IAPF CHAIN.
05098  M00S04382.pfu     +++|*                EOI SET IN TRT FOR DAPF AND FOR IAPF IF IAPF
05099  M00S04383.pfu     +++|*                PROCESSING WAS SELECTED.
05100  M00S04384.pfu     +++|*
05101  M00S04385.pfu     +++|*         CALLS  EDF, STE.
05102  M00S04386.pfu     +++|
05103  M00S04387.pfu     +++|
05104  M00S04388.pfu     +++| PEF      SUBR               ENTRY/EXIT
05105  M00S04389.pfu     +++|          ADD    DA
05106  M00S04390.pfu     +++|          ZJN    PEFX        IF IAPF BUT NO IAPF PROCESSING WANTED
05107  M00S04391.pfu     +++|          RJM    STE         SET EOI IN TRT
05108  M00S04392.pfu     +++|          LDD    DA
05109  M00S04393.pfu     +++|          ZJN    PEFX        IF PROCESSING IAPF
05110  M00S04394.pfu     +++|          RJM    EDF         END DIRECT ACCESS FILE
05111  M00S04395.pfu     +++|          UJN    PEFX        RETURN
05112  M00S04396.pfu     +++| PIO      SPACE  4,15
05113  M00S04397.pfu     +++|**        PIO - PRESET I/O.
05114  M00S04398.pfu     +++|*
05115  M00S04399.pfu     +++|*         SET SECTOR COUNT AND DIRECT CELLS FOR READ OR WRITE.
05116  M00S04400.pfu     +++|*
05117  M00S04401.pfu     +++|*         ENTRY  (IR+3 - IR+4) = VALIDATED FET ADDRESS.
05118  M00S04402.pfu     +++|*
05119  M00S04403.pfu     +++|*         EXIT   (FA) = FNT ADDRESS OF FILE.
05120  M00S04404.pfu     +++|*                (FS - FS+4) = FST ENTRY FOR FILE.
Line S04405 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05121  M01S04405.ns22000 ---|*                (T5) = EQUIPMENT.
Line S00162 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05122  M01S00162.ns22000 +++|*                (T5) = EST ORDINAL.
05123  M00S04406.pfu     +++|*                (T6) = CURRENT TRACK.
05124  M00S04407.pfu     +++|*                (T7) = CURRENT SECTOR.
05125  M00S04408.pfu     +++|*
05126  M00S04409.pfu     +++|*         USES   T6 - T7.
05127  M00S04410.pfu     +++|*
05128  M00S04411.pfu     +++|*         CALLS  FFE, SBA, SRW, VME.
05129  M00S04412.pfu     +++|
05130  M00S04413.pfu     +++|
05131  M00S04414.pfu     +++| PIO      SUBR               ENTRY/EXIT
05132  M00S04415.pfu     +++|          LDN    0           SELECT NORMAL PROCESSING
05133  M00S04416.pfu     +++|          RJM    FFE         FIND FNT ENTRY
Line S04417 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05134  M01S04417.ns22000 ---|          LDN    FS          ADDRESS OF EQUIPMENT NUMBER
Line S00163 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05135  M01S00163.ns22000 +++|          LDN    FS          ADDRESS OF EST ORDINAL
Line S04418 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05136  M01S04418.ns22000 ---|          RJM    VME         VALIDATE THAT MASS STORAGE EQUIPMENT
Line S00164 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05137  M01S00164.ns22000 +++|          RJM    VME         VALIDATE MASS STORAGE EST ORDINAL
05138  M00S04419.pfu     +++|          LDD    FS+2        SET TRACK
05139  M00S04420.pfu     +++|          STD    T6
05140  M00S04421.pfu     +++|          LDD    FS+3        SET SECTOR
05141  M00S04422.pfu     +++|          STD    T7
05142  M00S04423.pfu     +++|          RJM    SBA         SET BUFFER ADDRESSES
05143  M00S04424.pfu     +++|          RJM    SRW         SET RELATIVE WRITE BUFFER ADDRESSES
Line S04425 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05144  M01S04425.ns22000 ---|          LJM    PIOX        RETURN
Line S00165 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05145  M01S00165.ns22000 +++|          UJN    PIOX        RETURN
05146  M00S04426.pfu     +++| PPF      SPACE  4,20
05147  M00S04427.pfu     +++|**        PPF - POSITION PERMIT FILE.
05148  M00S04428.pfu     +++|*
05149  M00S04429.pfu     +++|*         ENTRY  (IR+3 - IR+4) = PERMIT FILE FET ADDRESS.
05150  M00S04430.pfu     +++|*                (FET+FTPM) = 36/,24/RANDOM PRU NUMBER.
05151  M00S04431.pfu     +++|*
05152  M00S04432.pfu     +++|*         EXIT   PERMIT FILE POSITIONED TO THE SPECIFIED PRU NUMBER.
05153  M00S04433.pfu     +++|*                ERROR EXIT TAKEN IF RANDOM ADDRESS NOT ON FILE.
05154  M00S04434.pfu     +++|*
05155  M00S04435.pfu     +++|*         USES   T6, P1 - P5, RI - RI+1.
05156  M00S04436.pfu     +++|*
05157  M00S04437.pfu     +++|*         CALLS  CIO, CRA, PIO.
05158  M00S04438.pfu     +++|*
05159  M00S04439.pfu     +++|*         MACROS ERROR, FETA.
05160  M00S04440.pfu     +++|
05161  M00S04441.pfu     +++|
05162  M00S04442.pfu     +++| PPF1     RJM    CIO         COMPLETE I/O
05163  M00S04443.pfu     +++|
05164  M00S04444.pfu     +++| PPF      SUBR               ENTRY/EXIT
05165  M00S04445.pfu     +++|          RJM    PIO         PRESET I/O
05166  M00S04446.pfu     +++|          FETA   FTPM        READ PARAMETER WORD
05167  M00S04447.pfu     +++|          CRD    P1
05168  M00S04448.pfu     +++|          LDD    P4          SET RANDOM PRU NUMBER
05169  M00S04449.pfu     +++|          STD    RI
05170  M00S04450.pfu     +++|          LDD    P5
05171  M00S04451.pfu     +++|          STD    RI+1
05172  M00S04452.pfu     +++|          LDD    FS+1        SET FIRST TRACK
05173  M00S04453.pfu     +++|          STD    T6
05174  M00S04454.pfu     +++|          RJM    CRA         CONVERT RANDOM PRU TO TRACK AND SECTOR
05175  M00S04455.pfu     +++|          PJN    PPF1        IF ADDRESS ON FILE
05176  M00S04456.pfu     +++|          ERROR  ECPAR       PROCESS PARAMETER ERROR
05177  M00S04457.pfu     +++| PPW      SPACE  4,15
05178  M00S04458.pfu     +++|**        PPW - PROCESS PERMIT WRITE.
05179  M00S04459.pfu     +++|*
05180  M00S04460.pfu     +++|*         ENTRY  (T4 - T7) = PERMIT FILE MASS STORAGE PARAMETERS.
05181  M00S04461.pfu     +++|*
05182  M00S04462.pfu     +++|*         EXIT   (T4 - T7) = UPDATED PERMIT FILE MASS STORAGE
05183  M00S04463.pfu     +++|*                            PARAMETERS.
05184  M00S04464.pfu     +++|*                DATA IN BUFFER WRITTEN TO MASS STORAGE.
05185  M00S04465.pfu     +++|*
Line S04466 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05186  M01S04466.242l642 ---|*         CALLS  EMB, SSC, STE, WEI.
Line S00190 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05187  M01S00190.242l642 +++|*         CALLS  EMB, SSC, STE, SWE, WEI.
05188  M00S04467.pfu     +++|*
05189  M00S04468.pfu     +++|*         MACROS ENDMS.
05190  M00S04469.pfu     +++|
05191  M00S04470.pfu     +++|
05192  M00S04471.pfu     +++| PPW      SUBR               ENTRY/EXIT
05193  M00S04472.pfu     +++|          RJM    SSC         SET SECTOR COUNT
05194  M00S04473.pfu     +++|          LDD    P2
05195  M00S04474.pfu     +++|          ZJN    PPWX        IF NO DATA IN BUFFER
05196  M00S04475.pfu     +++| PPW1     RJM    EMB         EMPTY BUFFER
05197  M00S04476.pfu     +++|          NJN    PPW1        IF BUFFER NOT EMPTY
05198  M00S04477.pfu     +++|          LDM    BEGF,TF
05199  M00S04478.pfu     +++|          NJN    PPW2        IF EOI ALREADY WRITTEN
05200  M00S04479.pfu     +++|          RJM    WEI         FORCE EOI
Line S00191 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05201  M01S00191.242l642 +++|          PJN    PPW2        IF NO ERROR
05202  M01S00192.242l642 +++|          RJM    SWE         SET WRITE ERROR STATUS
05203  M00S04480.pfu     +++| PPW2     ENDMS
05204  M00S04481.pfu     +++|          RJM    STE         SET EOI IN TRT
05205  M00S04482.pfu     +++|          UJN    PPWX        RETURN
05206  M00S04483.pfu     +++| PWE      SPACE  4,20
05207  M00S04484.pfu     +++|**        PWE - PROCESS WRITE ERROR.
05208  M00S04485.pfu     +++|*
05209  M00S04486.pfu     +++|*         ENTRY  (A) = ERROR CODE.
05210  M00S04487.pfu     +++|*                (P2) = SECTOR COUNT.
05211  M00S04488.pfu     +++|*                (TF) = TYPE OF FILE.
05212  M00S04489.pfu     +++|*                (FS - FS+4) = FST ENTRY.
05213  M00S04490.pfu     +++|*                (T6 - T7) = CURRENT MASS STORAGE POSITION.
Line S00193 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05214  M01S00193.242l642 +++|*                (RDCT) = DRIVER STATUS IF WRITE MASS STORAGE ERROR
05215  M01S00194.242l642 +++|*                         OCCURRED.
05216  M00S04491.pfu     +++|*
05217  M00S04492.pfu     +++|*         EXIT   (BEGF+(TF)) = 1.
05218  M00S04493.pfu     +++|*                (FS - FS+4) = UPDATED FST ENTRY.
05219  M00S04494.pfu     +++|*                (FET+FTPM) = UPDATED FST ENTRY.
05220  M00S04495.pfu     +++|*                (SSC+(TF)) = SET TO REFLECT AMOUNT OF DATA IN BUFFER.
05221  M00S04496.pfu     +++|*                WRITE ERROR CODE SET IN FET.
05222  M00S04497.pfu     +++|*
05223  M00S04498.pfu     +++|*         USES   FS+2, FS+3, T1, CM - CM+4.
05224  M00S04499.pfu     +++|*
05225  M00S04500.pfu     +++|*         MACROS FETA.
05226  M00S04501.pfu     +++|
05227  M00S04502.pfu     +++|
05228  M00S04503.pfu     +++| PWE      SUBR               ENTRY/EXIT
05229  M00S04504.pfu     +++|          STD    T1          SAVE ERROR CODE
Line S04505 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05230  M01S04505.242l642 ---|          LDM    SSCC,TF     RESET SECTOR COUNTER
Line S00195 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05231  M01S00195.242l642 +++|          LMN    FEWE
05232  M01S00196.242l642 +++|          NJN    PWE0        IF NOT WRITE MASS STORAGE ERROR
05233  M01S00197.242l642 +++|          LDM    RDCT        CHECK DRIVER STATUS
05234  M01S00198.242l642 +++|          SHN    21-13
05235  M01S00199.242l642 +++|          PJN    PWE0        IF DATA TRANSFERRED
05236  M01S00200.242l642 +++|          LDN    FEWN        SET WRITE ERROR WITH NO DATA TRANSFERRED
05237  M01S00201.242l642 +++|          STD    T1
05238  M01S00202.242l642 +++| PWE0     LDM    SSCC,TF     RESET SECTOR COUNTER
05239  M00S04506.pfu     +++|          SBD    P2
05240  M00S04507.pfu     +++|          PJN    PWE1        IF THRESHOLD WAS NOT REACHED
05241  M00S04508.pfu     +++|          ADC    4000        ADD THRESHOLD
05242  M00S04509.pfu     +++| PWE1     STM    SSCC,TF
05243  M00S04510.pfu     +++|          FETA               SET ERROR CODE IN FET
05244  M00S04511.pfu     +++|          CRD    CM
05245  M00S04512.pfu     +++|          LDD    CM+3
05246  M00S04513.pfu     +++|          SCN    77
05247  M00S04514.pfu     +++|          LMD    T1
05248  M00S04515.pfu     +++|          STD    CM+3
05249  M00S04516.pfu     +++|          FETA
05250  M00S04517.pfu     +++|          CWD    CM
05251  M00S04518.pfu     +++|          LDN    1           SET EOI FLAG
05252  M00S04519.pfu     +++|          STM    BEGF,TF
05253  M00S04520.pfu     +++|          LDD    T6          SET CURRENT TRACK
05254  M00S04521.pfu     +++|          STD    FS+2
05255  M00S04522.pfu     +++|          LDD    T7          SET CURRENT SECTOR
05256  M00S04523.pfu     +++|          STD    FS+3
05257  M00S04524.pfu     +++|          FETA   FTPM        WRITE FST ENTRY TO FET
05258  M00S04525.pfu     +++|          CWD    FS
05259  M00S04526.pfu     +++|          LJM    PWEX        RETURN
05260  M00S04527.pfu     +++| RBA      SPACE  4,20
05261  M00S04528.pfu     +++|**        RBA - RETURN BEGINNING ADDRESS.
05262  M00S04529.pfu     +++|*
05263  M00S04530.pfu     +++|*         SET FILE BEGINNING TRACK AND SECTOR IN CATALOG ENTRY.
05264  M00S04531.pfu     +++|*
05265  M00S04532.pfu     +++|*         ENTRY  (CWBA - CWBA+1) = ADDRESS OF CATALOG ENTRY.
05266  M00S04533.pfu     +++|*                (DA) = DIRECT ACCESS FILE FLAG.
05267  M00S04534.pfu     +++|*
05268  M00S04535.pfu     +++|*         EXIT   ADDRESS WRITTEN TO CATALOG ENTRY IN CENTRAL.
05269  M00S04536.pfu     +++|*
05270  M00S04537.pfu     +++|*         USES   CM - CM+4, T0 - T1.
05271  M00S04538.pfu     +++|
05272  M00S04539.pfu     +++|
05273  M00S04540.pfu     +++| RBA      SUBR               ENTRY/EXIT
05274  M00S04541.pfu     +++|
05275  M00S04542.pfu     +++|*         READ SECOND WORD OF CATALOG.
05276  M00S04543.pfu     +++|
05277  M00S04544.pfu     +++|          LDM    CWBA
05278  M00S04545.pfu     +++|          LPN    37
05279  M00S04546.pfu     +++|          SHN    6
05280  M00S04547.pfu     +++|          ADD    RA
05281  M00S04548.pfu     +++|          SHN    6
05282  M00S04549.pfu     +++|          ADM    CWBA+1
05283  M00S04550.pfu     +++|          ADN    1
05284  M00S04551.pfu     +++|          CRD    CM
05285  M00S04552.pfu     +++|          STD    T1          SAVE CENTRAL ADDRESS
05286  M00S04553.pfu     +++|          SHN    -14
05287  M00S04554.pfu     +++|          STD    T0
05288  M00S04555.pfu     +++|
05289  M00S04556.pfu     +++|*         UPDATE TRACK AND SECTOR.
05290  M00S04557.pfu     +++|
05291  M00S04558.pfu     +++|          LDD    T6          SET TRACK AND SECTOR
05292  M00S04559.pfu     +++|          STD    CM+3
05293  M00S04560.pfu     +++|          LDD    DA
05294  M00S04561.pfu     +++|          NJN    RBA1        IF DAPF
05295  M00S04562.pfu     +++|          LDD    T7
05296  M00S04563.pfu     +++|          STD    CM+4
05297  M00S04564.pfu     +++|
05298  M00S04565.pfu     +++|*         WRITE UPDATED CATALOG BACK TO CENTRAL.
05299  M00S04566.pfu     +++|
05300  M00S04567.pfu     +++| RBA1     LDD    T0          WRITE TO CENTRAL
05301  M00S04568.pfu     +++|          SHN    14
05302  M00S04569.pfu     +++|          ADD    T1
05303  M00S04570.pfu     +++|          CWD    CM
Line S04571 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05304  M01S04571.ns22000 ---|          LJM    RBAX        RETURN
Line S00166 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05305  M01S00166.ns22000 +++|          UJN    RBAX        RETURN
05306  M00S04572.pfu     +++| RCB      SPACE  4,20
05307  M00S04573.pfu     +++|**        RCB - READ CENTRAL MEMORY BUFFER.
05308  M00S04574.pfu     +++|*
05309  M00S04575.pfu     +++|*         ENTRY  (P1) = SECTOR LENGTH IN CM WORDS.
05310  M00S04576.pfu     +++|*                (OT - OT+1) = OUT POINTER.
05311  M00S04577.pfu     +++|*                SUB-ROUTINES *SAW* AND *SRW* EXECUTED PRIOR TO THE
05312  M00S04578.pfu     +++|*                FIRST ENTRY OR ANY ENTRY SUBSEQUENT TO A PAUSE.
05313  M00S04579.pfu     +++|*
05314  M00S04580.pfu     +++|*         EXIT   (OT - OT+1) = UPDATED OUT POINTER.
05315  M00S04581.pfu     +++|*                (CWBA - BFMS+5*(P1)-3) = SECTOR PRECEEDED BY ITS
05316  M00S04582.pfu     +++|*                                         CONTROL WORD.
05317  M00S04583.pfu     +++|*
05318  M00S04584.pfu     +++|*         USES   T1, T2, OT - OT+1.
Line S04585 Modification History
M01 (Removed by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05319  M01S04585.pfu7    ---|*
Line S00009 Modification History
M01 (Added by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05320  M01S00009.pfu7    +++|
05321  M00S04586.pfu     +++|
Line S00010 Modification History
M01 (Added by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05322  M01S00010.pfu7    +++|*         PROCESS NORMAL SECTOR.
05323  M01S00011.pfu7    +++|
05324  M01S00012.pfu7    +++| RCB4     LDD    OT          READ BUFFER
05325  M01S00013.pfu7    +++|          SHN    14
05326  M01S00014.pfu7    +++|          ADD    OT+1
05327  M01S00015.pfu7    +++|          ADC    **
05328  M01S00016.pfu7    +++| RCBB     EQU    *-2         (RA)
05329  M01S00017.pfu7    +++|          CRM    CWBA,P1
05330  M01S00018.pfu7    +++|          LDD    P1          UPDATE OUT POINTER
05331  M01S00019.pfu7    +++|          RAD    OT+1
05332  M01S00020.pfu7    +++|          SHN    -14
05333  M01S00021.pfu7    +++|          ZJN    RCBX        IF NOT CROSSING 10K WORD BOUNDARY
05334  M01S00022.pfu7    +++|          RAD    OT
05335  M01S00023.pfu7    +++|
05336  M00S04587.pfu     +++| RCB      SUBR               ENTRY/EXIT
05337  M00S04588.pfu     +++|
05338  M00S04589.pfu     +++|*         CHECK FOR BUFFER WRAP.
05339  M00S04590.pfu     +++|
05340  M00S04591.pfu     +++|          LDD    OT          CHECK FOR BUFFER WRAP
05341  M00S04592.pfu     +++|          SHN    14
05342  M00S04593.pfu     +++|          ADD    OT+1
05343  M00S04594.pfu     +++|          ADD    P1
05344  M00S04595.pfu     +++|          ADC    -*
05345  M00S04596.pfu     +++| RCBA     EQU    *-2         (COMPLEMENT OF LIMIT)
Line S00024 Modification History
M01 (Added by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05346  M01S00024.pfu7    +++|          MJN    RCB4        IF BUFFER NOT WRAPPED
05347  M00S04597.pfu     +++|          STD    T2          SET SECOND PART WORD COUNT
Line S04598 Modification History
M01 (Removed by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05348  M01S04598.pfu7    ---|          PJN    RCB1        IF BUFFER WRAPPED
05349  M01S04599.pfu7    ---|
05350  M01S04600.pfu7    ---|*         PROCESS NORMAL SECTOR.
05351  M01S04601.pfu7    ---|
05352  M01S04602.pfu7    ---|          LDD    OT          READ BUFFER
05353  M01S04603.pfu7    ---|          SHN    14
05354  M01S04604.pfu7    ---|          ADD    OT+1
05355  M01S04605.pfu7    ---|          ADC    *
05356  M01S04606.pfu7    ---| RCBB     EQU    *-2         (RA)
05357  M01S04607.pfu7    ---|          CRM    CWBA,P1
05358  M01S04608.pfu7    ---|          LDD    P1          UPDATE OUT POINTER
05359  M01S04609.pfu7    ---|          RAD    OT+1
05360  M01S04610.pfu7    ---|          SHN    -14
05361  M01S04611.pfu7    ---|          RAD    OT
Line S04612 Modification History
M01 (Removed by) ns22000
M02 (Removed by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05362  M02S04612.pfu7    ---|          UJN    RCBX        RETURN
Line S00167 Modification History
M01 (Added by) ns22000
M02 (Removed by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05363  M02S00167.pfu7    ---|          UJP    RCBX        RETURN
05364  M00S04613.pfu     +++|
05365  M00S04614.pfu     +++|*         PROCESS WRAP AROUND SECTOR.
05366  M00S04615.pfu     +++|
Line S04616 Modification History
M01 (Removed by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05367  M01S04616.pfu7    ---| RCB1     LDD    P1          SET FIRST PART WORD COUNT
Line S00025 Modification History
M01 (Added by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05368  M01S00025.pfu7    +++|          LDD    P1          SET FIRST PART WORD COUNT
05369  M00S04617.pfu     +++|          SBD    T2
05370  M00S04618.pfu     +++|          STD    T1
Line S04619 Modification History
M01 (Removed by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05371  M01S04619.pfu7    ---|          ZJN    RCB2        IF NO FIRST PART
Line S00026 Modification History
M01 (Added by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05372  M01S00026.pfu7    +++|          SHN    2
05373  M01S00027.pfu7    +++|          ADD    T1
05374  M01S00028.pfu7    +++|          ADC    CWBA
05375  M01S00029.pfu7    +++|          STM    RCBE        SET PP BUFFER ADDRESS TO THIS POINT
05376  M00S04620.pfu     +++|          LDD    OT          READ FIRST PART OF SECTOR
05377  M00S04621.pfu     +++|          SHN    14
05378  M00S04622.pfu     +++|          ADD    OT+1
05379  M00S04623.pfu     +++|          ADC    *
05380  M00S04624.pfu     +++| RCBC     EQU    *-2         (RA)
05381  M00S04625.pfu     +++|          CRM    CWBA,T1
Line S04626 Modification History
M01 (Removed by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05382  M01S04626.pfu7    ---| RCB2     LDD    T2          CHECK SECOND PART LENGTH
Line S00030 Modification History
M01 (Added by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05383  M01S00030.pfu7    +++|          LDD    T2          CHECK SECOND PART LENGTH
05384  M00S04627.pfu     +++|          ZJN    RCB3        IF NO SECOND PART
Line S04628 Modification History
M01 (Removed by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05385  M01S04628.pfu7    ---|
05386  M01S04629.pfu7    ---|*         CALCULATE STARTING POINT FOR SECOND PART OF SECTOR
05387  M01S04630.pfu7    ---|*         WITHIN PP BUFFER.
05388  M01S04631.pfu7    ---|
05389  M01S04632.pfu7    ---|          LDD    T1
05390  M01S04633.pfu7    ---|          SHN    2
05391  M01S04634.pfu7    ---|          ADD    T1
05392  M01S04635.pfu7    ---|          ADC    CWBA
05393  M01S04636.pfu7    ---|          STM    RCBE        SET PP BUFFER ADDRESS TO THIS POINT
05394  M00S04637.pfu     +++|          LDC    *           READ SECOND PARD OF SECTOR
05395  M00S04638.pfu     +++| RCBD     EQU    *-2         (RA + FIRST)
05396  M00S04639.pfu     +++|          CRM    CWBA,T2
05397  M00S04640.pfu     +++| RCBE     EQU    *-1         (PP BUFFER ADDRESS)
Line S04641 Modification History
M01 (Removed by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05398  M01S04641.pfu7    ---| RCB3     LDD    T2          UPDATE OUT POINTER
05399  M01S04642.pfu7    ---|          ADC    *
Line S00031 Modification History
M01 (Added by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05400  M01S00031.pfu7    +++|          LDD    T2          UPDATE OUT POINTER
05401  M01S00032.pfu7    +++| RCB3     ADC    **
05402  M00S04643.pfu     +++| RCBF     EQU    *-2         (FIRST)
05403  M00S04644.pfu     +++|          STD    OT+1
05404  M00S04645.pfu     +++|          SHN    -14
05405  M00S04646.pfu     +++|          STD    OT
Line S04647 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05406  M01S04647.ns22000 ---|          LJM    RCBX        RETURN
Line S00168 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05407  M01S00168.ns22000 +++|          UJP    RCBX        RETURN
05408  M00S04648.pfu     +++| RCW      SPACE  4,10
05409  M00S04649.pfu     +++|**        RCW - READ BUFFER CONTROL WORD.
05410  M00S04650.pfu     +++|*
05411  M00S04651.pfu     +++|*         ENTRY  (OT - OT+1) = ADDRESS OF BUFFER CONTROL WORD.
05412  M00S04652.pfu     +++|*
05413  M00S04653.pfu     +++|*         EXIT   (CWBA - CWBA+4) = BUFFER CONTROL WORD.
05414  M00S04654.pfu     +++|
05415  M00S04655.pfu     +++|
05416  M00S04656.pfu     +++| RCW      SUBR               ENTRY/EXIT
05417  M00S04657.pfu     +++|          LDD    OT          SET BUFFER CONTROL WORD ADDRESS
05418  M00S04658.pfu     +++|          SHN    6
05419  M00S04659.pfu     +++|          ADD    RA
05420  M00S04660.pfu     +++|          SHN    6
05421  M00S04661.pfu     +++|          ADD    OT+1
05422  M00S04662.pfu     +++|          CRM    CWBA,ON     READ BUFFER CONTROL WORD
05423  M00S04663.pfu     +++|          UJN    RCWX        RETURN
05424  M00S04664.pfu     +++| RTK      SPACE  4,20
05425  M00S04665.pfu     +++|**        RTK - REQUEST TRACKS.
05426  M00S04666.pfu     +++|*
05427  M00S04667.pfu     +++|*         ENTRY  (A) = 1/S,5/,12/LT.
05428  M00S04668.pfu     +++|*                      S = SINGLE TRACK REQUEST FLAG.
05429  M00S04669.pfu     +++|*                        = 0 FOR MULTIPLE TRACK REQUEST.
05430  M00S04670.pfu     +++|*                        = 1 FOR SINGLE TRACK REQUEST.
05431  M00S04671.pfu     +++|*                      LT = LINK TRACK.
05432  M00S04672.pfu     +++|*                         = 0 IF TRACKS NOT TO BE LINKED.
05433  M00S04673.pfu     +++|*                         = TRACK NUMBER THAT NEW TRACKS
05434  M00S04674.pfu     +++|*                           ARE TO BE LINKED TO.
Line S04675 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05435  M01S04675.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
Line S00169 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05436  M01S00169.ns22000 +++|*                (T5) = EST ORDINAL.
05437  M00S04676.pfu     +++|*
05438  M00S04677.pfu     +++|*         EXIT   (A) = FIRST TRACK ASSIGNED.
05439  M00S04678.pfu     +++|*                    = 0 IF TRACK NOT ASSIGNED.
05440  M00S04679.pfu     +++|*                (T3) = FIRST TRACK ASSIGNED.
05441  M00S04680.pfu     +++|*                PAUSE FOR STORAGE MOVE HAS OCCURRED.
05442  M00S04681.pfu     +++|*                WRITE ERROR PROCESSOR CALLED IF TRACK NOT ASSIGNED.
05443  M00S04682.pfu     +++|*
05444  M00S04683.pfu     +++|*         USES   CM+1 - CM+4, T1 - T3.
05445  M00S04684.pfu     +++|*
05446  M00S04685.pfu     +++|*         CALLS  CLS, C2D, PWE.
05447  M00S04686.pfu     +++|*
05448  M00S04687.pfu     +++|*         MACROS DELAY, MONITOR, PAUSE.
05449  M00S04688.pfu     +++|
05450  M00S04689.pfu     +++|
Line S00010 Modification History
M01 (Added by) pfu5
Seq #  *Modification Id* Act 
----------------------------+
05451  M01S00010.pfu5    +++|*         PROCESS FATAL TRACK LIMIT CONDITION.
05452  M01S00011.pfu5    +++|
05453  M01S00012.pfu5    +++| RTK6     RJM    PWE         PROCESS WRITE ERROR
05454  M01S00013.pfu5    +++|          LDN    0           CLEAR EVENT FLAG
05455  M01S00014.pfu5    +++|          STM    RTKA
05456  M01S00015.pfu5    +++|
05457  M00S04690.pfu     +++| RTK      SUBR               ENTRY/EXIT
05458  M00S04691.pfu     +++|          STD    T2          SAVE LINK TRACK
05459  M00S04692.pfu     +++|          SHN    -21
05460  M00S04693.pfu     +++| RTK1     STD    T1          SAVE SINGLE TRACK FLAG
05461  M00S04694.pfu     +++|          NJN    RTK2        IF SINGLE TRACK REQUEST
05462  M00S04695.pfu     +++|          LDM    SLM         SET 8 TRACK SECTOR COUNT
05463  M00S04696.pfu     +++|          SHN    3
05464  M00S04697.pfu     +++| RTK2     STD    CM+4        SET SECTOR COUNT
05465  M00S04698.pfu     +++|          SHN    -14
05466  M00S04699.pfu     +++|          STD    CM+3
Line S04700 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05467  M01S04700.ns22000 ---|          LDD    T5          SET EQUIPMENT
Line S00170 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05468  M01S00170.ns22000 +++|          LDD    T5          SET EST ORDINAL
05469  M00S04701.pfu     +++|          STD    CM+1
05470  M00S04702.pfu     +++|          LDD    T2          SET TRACK LINK
05471  M00S04703.pfu     +++|          STD    CM+2
05472  M00S04704.pfu     +++|          MONITOR  RTCM      REQUEST TRACK CHAIN
05473  M00S04705.pfu     +++|          LDD    CM+4        SAVE FIRST TRACK ASSIGNED
05474  M00S04706.pfu     +++|          STD    T3
05475  M00S04707.pfu     +++|          PAUSE              PAUSE FOR STORAGE MOVE
05476  M00S04708.pfu     +++|          LDD    T3
05477  M00S04709.pfu     +++|          ZJN    RTK3        IF TRACK NOT ASSIGNED
05478  M00S04710.pfu     +++|          LDN    0           CLEAR EVENT FLAG
05479  M00S04711.pfu     +++|          STM    RTKA
05480  M00S04712.pfu     +++|          LDD    T3          ASSIGNED TRACK
05481  M00S04713.pfu     +++|          LJM    RTKX        RETURN
05482  M00S04714.pfu     +++|
05483  M00S04715.pfu     +++|*         PROCESS TRACK LIMIT.
05484  M00S04716.pfu     +++|
05485  M00S04717.pfu     +++| RTK3     LDD    T1
Line S04718 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05486  M01S04718.ns22000 ---|          ZJN    RTK5        IF NOT SINGLE TRACK REQUEST
Line S00171 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05487  M01S00171.ns22000 +++|          ZJP    RTK5        IF NOT SINGLE TRACK REQUEST
05488  M00S04719.pfu     +++|          RJM    CLS         CHECK TRACK LIMIT STATUS
Line S04720 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05489  M01S04720.ns22000 ---|          NJN    RTK6        IF FATAL CONDITION
05490  M01S04721.ns22000 ---|          LDD    T5          SET EQUIPMENT NUMBER IN MESSAGE
Line S00172 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05491  M01S00172.ns22000 +++|          NJP    RTK6        IF FATAL CONDITION
05492  M01S00173.ns22000 +++|          LDD    T5          CONVERT UPPER TWO DIGITS OF EST ORDINAL
05493  M01S00174.ns22000 +++|          SHN    -3
05494  M00S04722.pfu     +++|          RJM    C2D
Line S04723 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05495  M01S04723.ns22000 ---|          STM    RTKB+2
Line S00175 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05496  M01S00175.ns22000 +++|          STM    RTKB+1
05497  M01S00176.ns22000 +++|          LDD    T5          CONVERT LOWER DIGIT OF EST ORDINAL
05498  M01S00177.ns22000 +++|          LPN    7
05499  M01S00178.ns22000 +++|          SHN    6
05500  M01S00179.ns22000 +++|          ADC    2R0,
05501  M01S00180.ns22000 +++|          STM    RTKB+2
05502  M00S04724.pfu     +++|          LDD    CP          DISPLAY MESSAGE AT CONTROL POINT
05503  M00S04725.pfu     +++|          ADN    MS2W
05504  M00S04726.pfu     +++|          CWM    RTKB,TR
05505  M00S04727.pfu     +++|          LDC    0           EVENT NOT ISSUED
05506  M00S04728.pfu     +++|*         LDC    1           (EVENT ALREADY ISSUED)
05507  M00S04729.pfu     +++| RTKA     EQU    *-1
05508  M00S04730.pfu     +++|          NJN    RTK4        IF EVENT ALREADY ISSUED
05509  M00S04731.pfu     +++|          LDN    ZERL        ISSUE TRACK LIMIT EVENT
05510  M00S04732.pfu     +++|          CRD    CM
05511  M00S04733.pfu     +++|          LDN    TKLE        TRACK LIMIT
05512  M00S04734.pfu     +++|          STD    CM+4
05513  M00S04735.pfu     +++|          MONITOR  EATM
05514  M00S04736.pfu     +++| RTK4     DELAY              DELAY 130 MICROSECONDS
05515  M00S04737.pfu     +++| RTK5     LDN    1           SET SINGLE TRACK REQUEST
05516  M00S04738.pfu     +++|          STM    RTKA        SET EVENT FLAG
05517  M00S04739.pfu     +++|          LJM    RTK1        REQUEST SINGLE TRACK
Line S04740 Modification History
M01 (Removed by) pfu5
Seq #  *Modification Id* Act 
----------------------------+
05518  M01S04740.pfu5    ---|
05519  M01S04741.pfu5    ---|*         PROCESS FATAL TRACK LIMIT CONDITION.
05520  M01S04742.pfu5    ---|
05521  M01S04743.pfu5    ---| RTK6     RJM    PWE         PROCESS WRITE ERROR
05522  M01S04744.pfu5    ---|          LDN    0           SET ERROR STATUS
05523  M01S04745.pfu5    ---|          STM    RTKA        CLEAR EVENT FLAG
05524  M01S04746.pfu5    ---|          LJM    RTKX        RETURN
05525  M00S04747.pfu     +++|
Line S04748 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05526  M01S04748.ns22000 ---| RTKB     DATA   C* EQ XX TRACK LIMIT.*
Line S00181 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05527  M01S00181.ns22000 +++| RTKB     DATA   C*EQXXX, TRACK LIMIT.*
05528  M00S04749.pfu     +++| SAW      SPACE  4,10
05529  M00S04750.pfu     +++|**        SAW - SET ABSOLUTE WRITE BUFFER ADDRESSES.
05530  M00S04751.pfu     +++|*
05531  M00S04752.pfu     +++|*         ENTRY  (RA) = CURRENT RA.
05532  M00S04753.pfu     +++|*                (FT - FT+1) = BUFFER FIRST ADDRESS.
05533  M00S04754.pfu     +++|*                (IR+3 - IR+4) = FET ADDRESS.
05534  M00S04755.pfu     +++|*
05535  M00S04756.pfu     +++|*         EXIT   (PR) = CURRENT RA.
05536  M00S04757.pfu     +++|*                ABSOLUTE WRITE BUFFER ADDRESSES SET.
05537  M00S04758.pfu     +++|*
05538  M00S04759.pfu     +++|*         USES   PR.
05539  M00S04760.pfu     +++|*
05540  M00S04761.pfu     +++|*         MACROS FETA.
05541  M00S04762.pfu     +++|
05542  M00S04763.pfu     +++|
05543  M00S04764.pfu     +++| SAW      SUBR               ENTRY/EXIT
05544  M00S04765.pfu     +++|          LDD    RA          SAVE CURRENT RA
05545  M00S04766.pfu     +++|          STD    PR
05546  M00S04767.pfu     +++|          SHN    6           SET RA
05547  M00S04768.pfu     +++|          STM    EMBA+1
05548  M00S04769.pfu     +++|          STM    RCBB+1
05549  M00S04770.pfu     +++|          STM    RCBC+1
05550  M00S04771.pfu     +++|          SHN    -14
05551  M00S04772.pfu     +++|          LMC    ADCI
05552  M00S04773.pfu     +++|          STM    EMBA
05553  M00S04774.pfu     +++|          STM    RCBB
05554  M00S04775.pfu     +++|          STM    RCBC
05555  M00S04776.pfu     +++|          LDD    FT          SET RA+FIRST
05556  M00S04777.pfu     +++|          SHN    6
05557  M00S04778.pfu     +++|          ADD    RA
05558  M00S04779.pfu     +++|          SHN    6
05559  M00S04780.pfu     +++|          ADD    FT+1
05560  M00S04781.pfu     +++|          STM    RCBD+1
05561  M00S04782.pfu     +++|          SHN    -14
05562  M00S04783.pfu     +++|          LMC    LDCI
05563  M00S04784.pfu     +++|          STM    RCBD
05564  M00S04785.pfu     +++|          FETA   FTOT        SET RA+FET ADDRESS OF OUT POINTER
05565  M00S04786.pfu     +++|          STM    UOPA+1
Line S00033 Modification History
M01 (Added by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05566  M01S00033.pfu7    +++|          STM    EMBB+1
05567  M00S04787.pfu     +++|          SHN    -14
05568  M00S04788.pfu     +++|          LMC    LDCI
05569  M00S04789.pfu     +++|          STM    UOPA
Line S00034 Modification History
M01 (Added by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05570  M01S00034.pfu7    +++|          STM    EMBB
05571  M00S04790.pfu     +++|          LJM    SAWX        RETURN
05572  M00S04791.pfu     +++| SDS      SPACE  4,20
05573  M00S04792.pfu     +++|**        SDS - SAVE DATA FILE STATE.
05574  M00S04793.pfu     +++|*
05575  M00S04794.pfu     +++|*         ENTRY  (BEGF) = BEGINNING OF FILE FLAG FOR DATA FILE.
05576  M00S04795.pfu     +++|*                (DA) = DIRECT ACCESS FILE FLAG.
05577  M00S04796.pfu     +++|*                (DLSA+1 - DLSA+4) = MASS STORAGE PARAMETERS FOR IAPF
05578  M00S04797.pfu     +++|*                                    CHAIN IF PROCESSING A DAPF.
05579  M00S04798.pfu     +++|*                (IR+3 - IR+4) = DATA FILE FET ADDRESS.
05580  M00S04799.pfu     +++|*
05581  M00S04800.pfu     +++|*         EXIT   (FET+FTDL) = 12/ST,48/MP.
05582  M00S04801.pfu     +++|*                             ST = 0 IF BEGINNING OF FILE.
05583  M00S04802.pfu     +++|*                                = 1 IF MIDDLE OF IAPF.
05584  M00S04803.pfu     +++|*                                = 3 IF MIDDLE OF DAPF.
05585  M00S04804.pfu     +++|*                             MP = MASS STORAGE PARAMETERS FOR IAPF
05586  M00S04805.pfu     +++|*                                  CHAIN IF MIDDLE OF DAPF.
05587  M00S04806.pfu     +++|*
05588  M00S04807.pfu     +++|*         USES   CM - CM+4.
05589  M00S04808.pfu     +++|*
05590  M00S04809.pfu     +++|*         MACROS FETA.
05591  M00S04810.pfu     +++|
05592  M00S04811.pfu     +++|
05593  M00S04812.pfu     +++| SDS      SUBR               ENTRY/EXIT
05594  M00S04813.pfu     +++|          LDN    ZERL        CLEAR STATE INFORMATION
05595  M00S04814.pfu     +++|          CRD    CM
05596  M00S04815.pfu     +++|          LDM    BEGF
05597  M00S04816.pfu     +++|          NJN    SDS2        IF BEGINNING OF FILE
05598  M00S04817.pfu     +++|          LDD    DA
05599  M00S04818.pfu     +++|          ZJN    SDS1        IF PROCESSING IAPF
05600  M00S04819.pfu     +++|          LDD    MA          MOVE IAPF PARAMETERS
05601  M00S04820.pfu     +++|          CWM    DLSA,ON
05602  M00S04821.pfu     +++|          SBN    1
05603  M00S04822.pfu     +++|          CRD    CM
05604  M00S04823.pfu     +++|          LDN    2           SET MIDDLE OF DAPF FLAG
05605  M00S04824.pfu     +++| SDS1     LMN    1           SET MIDDLE OF FILE FLAG
05606  M00S04825.pfu     +++|          STD    CM
05607  M00S04826.pfu     +++| SDS2     FETA   FTDL        WRITE STATE INFORMATION TO FET
05608  M00S04827.pfu     +++|          CWD    CM
05609  M00S04828.pfu     +++|          UJN    SDSX        RETURN
05610  M00S04829.pfu     +++| SRW      SPACE  4,10
05611  M00S04830.pfu     +++|**        SRW - SET RELATIVE WRITE BUFFER ADDRESSES.
05612  M00S04831.pfu     +++|*
05613  M00S04832.pfu     +++|*         ENTRY  (FT - FT+1) = BUFFER FIRST POINTER.
05614  M00S04833.pfu     +++|*                (LM - LM+1) = BUFFER LIMIT POINTER.
05615  M00S04834.pfu     +++|*
05616  M00S04835.pfu     +++|*         EXIT   RELATIVE WRITE BUFFER ADDRESSES SET.
05617  M00S04836.pfu     +++|
05618  M00S04837.pfu     +++|
05619  M00S04838.pfu     +++| SRW      SUBR               ENTRY/EXIT
05620  M00S04839.pfu     +++|          LDC    ADCI+77     SET -LIMIT
05621  M00S04840.pfu     +++|          LMD    LM
05622  M00S04841.pfu     +++|          STM    RCBA
05623  M00S04842.pfu     +++|          LCN    0
05624  M00S04843.pfu     +++|          LMD    LM+1
05625  M00S04844.pfu     +++|          STM    RCBA+1
05626  M00S04845.pfu     +++|          LDD    FT+1        SET FIRST
05627  M00S04846.pfu     +++|          STM    RCBF+1
05628  M00S04847.pfu     +++|          LDD    FT
05629  M00S04848.pfu     +++|          LMC    ADCI
05630  M00S04849.pfu     +++|          STM    RCBF
05631  M00S04850.pfu     +++|          UJN    SRWX        RETURN
05632  M00S04851.pfu     +++| SSC      SPACE  4,15
05633  M00S04852.pfu     +++|**        SSC - SET SECTOR COUNT.
05634  M00S04853.pfu     +++|*
05635  M00S04854.pfu     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
05636  M00S04855.pfu     +++|*                (SSCC+(TF)) = PREVIOUS SECTOR COUNT.
05637  M00S04856.pfu     +++|*                (TF) = 0, IF DATA FILE TYPE.
05638  M00S04857.pfu     +++|*                     = 1, IF CATALOG FILE TYPE.
05639  M00S04858.pfu     +++|*                     = 2, IF PERMIT FILE TYPE.
05640  M00S04859.pfu     +++|*
05641  M00S04860.pfu     +++|*T FET+FTSC  42/,18/ SECTOR COUNT
Figure FET+FTS

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": " SECTOR COUNT", "bits": 18, "type": 2 },
{ "name": "", "bits": C  42, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

05642  M00S04861.pfu     +++|*
05643  M00S04862.pfu     +++|*         EXIT   (P2) = SECTOR COUNT IN BUFFER.
05644  M00S04863.pfu     +++|*
05645  M00S04864.pfu     +++|*         USES   P2, CM - CM+4.
05646  M00S04865.pfu     +++|*
05647  M00S04866.pfu     +++|*         MACROS FETA.
05648  M00S04867.pfu     +++|
05649  M00S04868.pfu     +++|
05650  M00S04869.pfu     +++| SSC      SUBR               ENTRY/EXIT
05651  M00S04870.pfu     +++|          FETA   FTSC        READ SECTOR COUNTER
05652  M00S04871.pfu     +++|          CRD    CM
05653  M00S04872.pfu     +++|          LDD    CM+4
05654  M00S04873.pfu     +++|          SBM    SSCC,TF     SET SECTOR COUNT (CURRENT - PREVIOUS)
05655  M00S04874.pfu     +++|          PJN    SSC1        IF SECTOR COUNTER DID NOT ROLL OVER
05656  M00S04875.pfu     +++|          ADC    4000
05657  M00S04876.pfu     +++| SSC1     STD    P2
05658  M00S04877.pfu     +++|          LDD    CM+4
05659  M00S04878.pfu     +++|          STM    SSCC,TF
05660  M00S04879.pfu     +++|          UJN    SSCX        RETURN
05661  M00S04880.pfu     +++|
05662  M00S04881.pfu     +++|
05663  M00S04882.pfu     +++| SSCC     BSSZ   3           TABLE OF SECTOR COUNTERS
05664  M00S04883.pfu     +++| STE      SPACE  4,15
05665  M00S04884.pfu     +++|**        STE - SET TRT EOI.
05666  M00S04885.pfu     +++|*
Line S04886 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05667  M01S04886.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
Line S00182 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05668  M01S00182.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
05669  M00S04887.pfu     +++|*                (T6) = CURRENT TRACK.
05670  M00S04888.pfu     +++|*                (T7) = CURRENT SECTOR.
05671  M00S04889.pfu     +++|*
05672  M00S04890.pfu     +++|*         EXIT   EOI SET IN TRT AT CURRENT POSITION.
05673  M00S04891.pfu     +++|*
05674  M00S04892.pfu     +++|*         USES   CM+1 - CM+3.
05675  M00S04893.pfu     +++|*
05676  M00S04894.pfu     +++|*         MACROS MONITOR.
05677  M00S04895.pfu     +++|
05678  M00S04896.pfu     +++|
05679  M00S04897.pfu     +++| STE      SUBR               ENTRY/EXIT
Line S04898 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05680  M01S04898.ns22000 ---|          LDD    T5          SET EQUIPMENT
Line S00183 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05681  M01S00183.ns22000 +++|          LDD    T5          SET EST ORDINAL
05682  M00S04899.pfu     +++|          LMC    4000        SET CHECKPOINT BIT
05683  M00S04900.pfu     +++|          STD    CM+1
05684  M00S04901.pfu     +++|          LDD    T6          SET TRACK
05685  M00S04902.pfu     +++|          LPC    3777        SELECT EOI MODE
05686  M00S04903.pfu     +++|          STD    CM+2
05687  M00S04904.pfu     +++|          LDD    T7          SET SECTOR
05688  M00S04905.pfu     +++|          STD    CM+3
05689  M00S04906.pfu     +++|          MONITOR  DTKM      DROP TRACKS AND SET EOI
05690  M00S04907.pfu     +++|          UJN    STEX        RETURN
Line S00203 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05691  M01S00203.242l642 +++| SWE      SPACE  4,10
05692  M01S00204.242l642 +++|**        SWE - SET WRITE ERROR STATUS.
05693  M01S00205.242l642 +++|*
05694  M01S00206.242l642 +++|*         ENTRY  (RDCT) = DRIVER STATUS.
05695  M01S00207.242l642 +++|*                MASS STORAGE WRITE ERROR OCCURRED.
05696  M01S00208.242l642 +++|*
05697  M01S00209.242l642 +++|*         EXIT   (A) = 0.
05698  M01S00210.242l642 +++|*
05699  M01S00211.242l642 +++|*         CALLS  PWE.
05700  M01S00212.242l642 +++|
05701  M01S00213.242l642 +++|
05702  M01S00214.242l642 +++| SWE      SUBR               ENTRY/EXIT
05703  M01S00215.242l642 +++|          LDN    FEWE        SET MASS STORAGE WRITE ERROR
05704  M01S00216.242l642 +++|          RJM    PWE         PROCESS WRITE ERROR
05705  M01S00217.242l642 +++|          LDN    0
05706  M01S00218.242l642 +++|          UJN    SWEX        RETURN WITH (A) = 0
05707  M00S04908.pfu     +++| TSP      SPACE  4,20
05708  M00S04909.pfu     +++|**        TSP - TRACK AND SECTOR POSITION.
05709  M00S04910.pfu     +++|*
05710  M00S04911.pfu     +++|*         ENTRY  (FS+1) = FIRST TRACK OF FILE.
05711  M00S04912.pfu     +++|*                (P4) = RANDOM TRACK NUMBER.
05712  M00S04913.pfu     +++|*                (P5) = RANDOM SECTOR NUMBER.
05713  M00S04914.pfu     +++|*
05714  M00S04915.pfu     +++|*         EXIT   (A) = .GE. 0 IF ADDRESS ON FILE.
05715  M00S04916.pfu     +++|*                    = .LT. 0 IF ADDRESS NOT ON FILE.
05716  M00S04917.pfu     +++|*                (T6) = NEW TRACK.
05717  M00S04918.pfu     +++|*                (T7) = NEW SECTOR.
05718  M00S04919.pfu     +++|*                THE NEW POSITION PARAMETERS (T6 AND T7) ARE SET FOR
05719  M00S04920.pfu     +++|*                THE PRU PRECEDING THE SPECIFIED TRACK AND SECTOR.
05720  M00S04921.pfu     +++|*
05721  M00S04922.pfu     +++|*         USES   T6, T7, RI - RI+1.
05722  M00S04923.pfu     +++|*
05723  M00S04924.pfu     +++|*         CALLS  CRA, SRA.
05724  M00S04925.pfu     +++|
05725  M00S04926.pfu     +++|
05726  M00S04927.pfu     +++| TSP1     SOD    RI+1        BACKSPACE PRU
05727  M00S04928.pfu     +++|          PJN    TSP2        IF NOT BEFORE BOI
05728  M00S04929.pfu     +++|          AOD    RI+1
05729  M00S04930.pfu     +++|          SOD    RI
05730  M00S04931.pfu     +++|          MJN    TSPX        IF BEFORE BOI
05731  M00S04932.pfu     +++| TSP2     LDD    FS+1        SET FIRST TRACK
05732  M00S04933.pfu     +++|          STD    T6
05733  M00S04934.pfu     +++|          RJM    CRA         CONVERT RANDOM PRU TO TRACK AND SECTOR
05734  M00S04935.pfu     +++|
05735  M00S04936.pfu     +++| TSP      SUBR               ENTRY/EXIT
05736  M00S04937.pfu     +++|          LDD    P4          SET RANDOM TRACK
05737  M00S04938.pfu     +++|          STD    T6
05738  M00S04939.pfu     +++|          LDD    P5          SET RANDOM SECTOR
05739  M00S04940.pfu     +++|          STD    T7
05740  M00S04941.pfu     +++|          LDD    FS+1        SET FIRST TRACK
05741  M00S04942.pfu     +++|          RJM    SRA         CONVERT TRACK AND SECTOR TO RANDOM PRU
05742  M00S04943.pfu     +++|          ZJN    TSP1        IF TRACK AND SECTOR ON FILE
05743  M00S04944.pfu     +++|          LCN    1           SET BAD ADDRESS FLAG
05744  M00S04945.pfu     +++|          UJN    TSPX        RETURN
05745  M00S04946.pfu     +++| UOP      SPACE  4,10
05746  M00S04947.pfu     +++|**        UOP - UPDATE OUT POINTER IN FET.
05747  M00S04948.pfu     +++|*
05748  M00S04949.pfu     +++|*         ENTRY  (OT - OT+1) = OUT POINTER TO BE WRITTEN INTO FET.
05749  M00S04950.pfu     +++|*                SUB-ROUTINE *SAW* EXECUTED PRIOR TO THE FIRST
05750  M00S04951.pfu     +++|*                ENTRY OR ANY ENTRY SUBSEQUENT TO A PAUSE.
05751  M00S04952.pfu     +++|*
05752  M00S04953.pfu     +++|*         EXIT   OUT POINTER IN FET UPDATED.
05753  M00S04954.pfu     +++|*
05754  M00S04955.pfu     +++|*         USES   FN - FN+4.
05755  M00S04956.pfu     +++|
05756  M00S04957.pfu     +++|
05757  M00S04958.pfu     +++| UOP      SUBR               ENTRY/EXIT
05758  M00S04959.pfu     +++|          LDN    ZERL
05759  M00S04960.pfu     +++|          CRD    FN
05760  M00S04961.pfu     +++|          LDD    OT          POSITION OUT POINTER FOR CM WRITE
05761  M00S04962.pfu     +++|          STD    FN+3
05762  M00S04963.pfu     +++|          LDD    OT+1
05763  M00S04964.pfu     +++|          STD    FN+4
05764  M00S04965.pfu     +++|          LDC    *
05765  M00S04966.pfu     +++| UOPA     EQU    *-2         (RA + FET ADDRESS OF OUT POINTER)
05766  M00S04967.pfu     +++|          CWD    FN          WRITE OUT POINTER INTO FET
05767  M00S04968.pfu     +++|          UJN    UOPX        RETURN
05768  M00S04969.pfu     +++|          SPACE  4,10
05769  M00S04970.pfu     +++|*         COMMON DECKS.
05770  M00S04971.pfu     +++|
05771  M00S04972.pfu     +++|
05772  M00S04973.pfu     +++|*CALL     COMPC2D
05773  M00S04974.pfu     +++|*CALL     COMPWEI
05774  M00S04975.pfu     +++|          QUAL   COMPWSS     DEFINE SCRATCH *FST* ADDRESS FOR *COMPWSS*
05775  M00S04976.pfu     +++| FA       EQU    P1
05776  M00S04977.pfu     +++| WCS$     SET    0           PROVIDE FOR CONSECUTIVE SECTOR WRITING
05777  M00S04978.pfu     +++| WIS$     SET    0           PROVIDE FOR IAPF SYSTEM SECTOR PROCESSING
05778  M00S04979.pfu     +++|          QUAL   *
05779  M00S04980.pfu     +++|*CALL     COMPWSS
05780  M00S04981.pfu     +++|*CALL     COMPWVE
Line S04982 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05781  M01S04982.242l642 ---|          SPACE  4,10
05782  M01S04983.242l642 ---|*         LOAD PROCESSOR MESSAGE CONSTANTS.
05783  M01S04984.242l642 ---|
05784  M01S04985.242l642 ---|
Line S04986 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05785  M02S04986.242l642 ---| MESA     DATA   C* PFU - TRACK FLAWED,EQ00,T0000.*
Line S00184 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05786  M02S00184.242l642 ---| MESA     DATA   C* PFU - TRACK FLAWED, EQXXX, TKYYYY.*
05787  M00S04987.pfu     +++|          SPACE  4,10
05788  M00S04988.pfu     +++|          USE    PRS
05789  M00S04989.pfu     +++|          SPACE  4,10
05790  M00S04990.pfu     +++|          ERRNG  WEBA-*      OVERFLOW INTO WRITE ERROR BUFFER
05791  M00S04991.pfu     +++|          TITLE  LOAD PRESET SUBROUTINES.
05792  M00S04992.pfu     +++|**        PLL - PRESET LOAD LOOP.
05793  M00S04993.pfu     +++|*
05794  M00S04994.pfu     +++|*         ENTRY  (IR+3 - IR+4) = *CATS* FET ADDRESS.
05795  M00S04995.pfu     +++|*
05796  M00S04996.pfu     +++|*T FET+FTPM  6/  DN,6/,18/  DATA,18/  PETS,18/  PAFL
Figure FET+FTP

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "  PAFL", "bits": 18, "type": 5 },
{ "name": "  PETS", "bits": 18, "type": 4 },
{ "name": "  DATA", "bits": 18, "type": 3 },
{ "name": "", "bits": 6, "type": 2 },
{ "name": "  DN", "bits": M  6, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

05797  M00S04997.pfu     +++|*
05798  M00S04998.pfu     +++|*         DN = MASTER DEVICE NUMBER.
05799  M00S04999.pfu     +++|*         DATA = ADDRESS OF DATA FILE FET.
05800  M00S05000.pfu     +++|*              = 0 IF NO DATA FET.
05801  M00S05001.pfu     +++|*         PETS = ADDRESS OF PERMITS FILE FET.
05802  M00S05002.pfu     +++|*              = 0 IF NO PERMITS FET.
05803  M00S05003.pfu     +++|*         PAFL = *PFU* ACTIVE FLAG ADDRESS.  THIS WORD IS SET TO ONE
05804  M00S05004.pfu     +++|*                WHEN THE *PFU* LOAD PROCESSOR IS ACTIVATED AND SET TO
05805  M00S05005.pfu     +++|*                ZERO WHEN THE *PFU* LOAD PROCESSOR COMPLETES OR
05806  M00S05006.pfu     +++|*                ABORTS.
05807  M00S05007.pfu     +++|*
05808  M00S05008.pfu     +++|*         EXIT   (CA - CA+1) = *CATS* ADDRESS.
05809  M00S05009.pfu     +++|*                (DF - DF+1) = *DATA* ADDRESS.
05810  M00S05010.pfu     +++|*                (PF - PF+1) = *PETS* ADDRESS.
05811  M00S05011.pfu     +++|*                (DN) = DEVICE NUMBER.
05812  M00S05012.pfu     +++|*                (IR+3 - IR+4) = *DATA* ADDRESS IF SPECIFIED, OTHERWISE
05813  M00S05013.pfu     +++|*                                *CATS* ADDRESS.
05814  M00S05014.pfu     +++|*                (PAFL - PAFL+1) = *PFU* ACTIVE FLAG ADDRESS.
05815  M00S05015.pfu     +++|*
05816  M00S05016.pfu     +++|*         USES   DN, CA - CA+1, CM - CM+4, DF - DF+1, IR+3 - IR+4,
05817  M00S05017.pfu     +++|*                PF - PF+1, P1 - P5.
05818  M00S05018.pfu     +++|*
05819  M00S05019.pfu     +++|*         CALLS  CFS, POF, SAU.
05820  M00S05020.pfu     +++|*
05821  M00S05021.pfu     +++|*         MACROS FETA, VADDR.
05822  M00S05022.pfu     +++|
05823  M00S05023.pfu     +++|
05824  M00S05024.pfu     +++|*         SAVE FET ADDRESSES.
05825  M00S05025.pfu     +++|
05826  M00S05026.pfu     +++| PLL      SUBR               ENTRY/EXIT
05827  M00S05027.pfu     +++|          FETA   FTPM        READ PARAMETER WORD
05828  M00S05028.pfu     +++|          CRD    P1
05829  M00S05029.pfu     +++|          LDD    P1          SAVE MASTER DEVICE NUMBER
05830  M00S05030.pfu     +++|          SHN    -6
05831  M00S05031.pfu     +++|          STD    DN
05832  M00S05032.pfu     +++|          LDD    IR+3        SAVE *CATS* FET ADDRESS
05833  M00S05033.pfu     +++|          STD    CA
05834  M00S05034.pfu     +++|          LDD    IR+4
05835  M00S05035.pfu     +++|          STD    CA+1
05836  M00S05036.pfu     +++|          RJM    SAU         SET *PFU* ACTIVE FLAG
05837  M00S05037.pfu     +++|          RJM    CFS         SET *CATS* FET COMPLETE
05838  M00S05038.pfu     +++|          LDD    P4          CHECK *PETS* ADDRESS
05839  M00S05039.pfu     +++|          SCN    77
05840  M00S05040.pfu     +++|          ADD    P3
05841  M00S05041.pfu     +++|          ZJN    PLL1        IF *PETS* ADDRESS NOT SPECIFIED
05842  M00S05042.pfu     +++|          VADDR  P3,LEFT     VALIDATE *PETS* ADDRESS
05843  M00S05043.pfu     +++| PLL1     STD    PF+1        SAVE *PETS* ADDRESS
05844  M00S05044.pfu     +++|          SHN    -14
05845  M00S05045.pfu     +++|          STD    PF
05846  M00S05046.pfu     +++|          LDD    P1          CHECK *DATA* ADDRESS
05847  M00S05047.pfu     +++|          LPN    77
05848  M00S05048.pfu     +++|          ADD    P2
05849  M00S05049.pfu     +++|          NJN    PLL2        IF *DATA* ADDRESS SPECIFIED
05850  M00S05050.pfu     +++|          STD    DF          CLEAR *DATA* ADDRESS
05851  M00S05051.pfu     +++|          STD    DF+1
05852  M00S05052.pfu     +++|          LJM    PLLX        RETURN
05853  M00S05053.pfu     +++|
05854  M00S05054.pfu     +++|*         INITIALIZE *DATA* FILE PARAMETERS.
05855  M00S05055.pfu     +++|
05856  M00S05056.pfu     +++| PLL2     VADDR  P1          VALIDATE *DATA* ADDRESS
05857  M00S05057.pfu     +++|          STD    DF+1        SAVE *DATA* ADDRESS
05858  M00S05058.pfu     +++|          STD    IR+4
05859  M00S05059.pfu     +++|          SHN    -14
05860  M00S05060.pfu     +++|          STD    DF
05861  M00S05061.pfu     +++|          STD    IR+3
05862  M00S05062.pfu     +++|          RJM    POF         POSITION FILES
05863  M00S05063.pfu     +++|          RJM    CFS         SET *DATA* FET COMPLETE
05864  M00S05064.pfu     +++|          LJM    PLLX        RETURN
05865  M00S05065.pfu     +++| POF      SPACE  4,50
05866  M00S05066.pfu     +++|**        POF - POSITION FILES.
05867  M00S05067.pfu     +++|*
05868  M00S05068.pfu     +++|*         ENTRY  (IR+3 - IR+4) = VALIDATED DATA FET ADDRESS.
05869  M00S05069.pfu     +++|*                (DN) = MASTER DEVICE NUMBER.
05870  M00S05070.pfu     +++|*
05871  M00S05071.pfu     +++|*T FET+FTDW  42/,6/  FE,12/
Figure FET+FTD

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "", "bits": 12, "type": 3 },
{ "name": "  FE", "bits": 6, "type": 2 },
{ "name": "", "bits": W  42, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

05872  M00S05072.pfu     +++|*T FET+FTDL  12/  ST,12/  EQ,12/  FT,12/  TK,12/  SC
Figure FET+FTD

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "  SC", "bits": 12, "type": 5 },
{ "name": "  TK", "bits": 12, "type": 4 },
{ "name": "  FT", "bits": 12, "type": 3 },
{ "name": "  EQ", "bits": 12, "type": 2 },
{ "name": "  ST", "bits": L  12, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

05873  M00S05073.pfu     +++|*
Line S05074 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05874  M01S05074.ns22000 ---|*         FE = EQUIPMENT NUMBER OF A FAMILY DEVICE.
Line S00185 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05875  M01S00185.ns22000 +++|*         FE = EST ORDINAL OF A FAMILY DEVICE.
05876  M00S05075.pfu     +++|*         ST = 0 IF BEGINNING OF FILE.
05877  M00S05076.pfu     +++|*            = 1 IF MIDDLE OF IAPF.
05878  M00S05077.pfu     +++|*            = 3 IF MIDDLE OF DAPF.
Line S05078 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05879  M01S05078.ns22000 ---|*         EQ = MASTER EQUIPMENT NUMBER IF MIDDLE OF DAPF.
Line S00186 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05880  M01S00186.ns22000 +++|*         EQ = MASTER DEVICE EST ORDINAL IF MIDDLE OF DAPF.
05881  M00S05079.pfu     +++|*         FT = FIRST TRACK OF IAPF CHAIN IF MIDDLE OF DAPF.
05882  M00S05080.pfu     +++|*         TK = CURRENT TRACK OF IAPF CHAIN IF MIDDLE OF DAPF.
05883  M00S05081.pfu     +++|*         SC = CURRENT SECTOR OF IAPF CHAIN IF MIDDLE OF DAPF.
05884  M00S05082.pfu     +++|*
05885  M00S05083.pfu     +++|*         EXIT   (IR+3 - IR+4) = DATA FET ADDRESS RESTORED FROM
05886  M00S05084.pfu     +++|*                                (DF - DF+1).
Line S05085 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05887  M01S05085.ns22000 ---|*                (PDAA) = EQUIPMENT NUMBER OF A FAMILY DEVICE.
Line S00187 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05888  M01S00187.ns22000 +++|*                (PDAA) = EST ORDINAL OF A FAMILY DEVICE.
05889  M00S05086.pfu     +++|*                (DLSA) = MASTER DEVICE NUMBER.
05890  M00S05087.pfu     +++|*                (DLSA+1 - DLSA+4) = IAPF CHAIN PARAMETERS IF MIDDLE OF
05891  M00S05088.pfu     +++|*                                    DAPF.
05892  M00S05089.pfu     +++|*                (BEGF) = BEGINNING OF FILE FLAG SET FOR DATA FILE.
05893  M00S05090.pfu     +++|*                (DA) = DIRECT ACCESS FILE FLAG.
05894  M00S05091.pfu     +++|*                DATA FILE FST SET TO EOI.
05895  M00S05092.pfu     +++|*                IF *PETS* FET ADDRESS SPECIFIED, *PETS* FILE FST SET
05896  M00S05093.pfu     +++|*                TO EOI AND *PETS* FILE SECTOR COUNT RETURNED TO THE
05897  M00S05094.pfu     +++|*                FET AS FOLLOWS -
05898  M00S05095.pfu     +++|*
05899  M00S05096.pfu     +++|*T FET+FTSC  24/  SECTOR COUNT,48/  UNCHANGED
Figure FET+FTS

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "  UNCHANGED", "bits": 48, "type": 2 },
{ "name": "  SECTOR COUNT", "bits": C  24, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

05900  M00S05097.pfu     +++|*
05901  M00S05098.pfu     +++|*         USES   CM - CM+4, DA, FS+2, FS+3, IR+3, IR+4, T6.
05902  M00S05099.pfu     +++|*
05903  M00S05100.pfu     +++|*         CALLS  CFS, FFE, SEI, SFC, VME.
05904  M00S05101.pfu     +++|*
05905  M00S05102.pfu     +++|*         MACROS FETA.
05906  M00S05103.pfu     +++|
05907  M00S05104.pfu     +++|
05908  M00S05105.pfu     +++| POF      SUBR               ENTRY/EXIT
05909  M00S05106.pfu     +++|
05910  M00S05107.pfu     +++|*         SET UP MASTER DEVICE.
05911  M00S05108.pfu     +++|
05912  M00S05109.pfu     +++|          LDN    0           SELECT NORMAL PROCESSING
05913  M00S05110.pfu     +++|          RJM    FFE         FIND FNT ENTRY
Line S05111 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05914  M01S05111.ns22000 ---|          LDN    FS          ADDRESS OF EQUIPMENT NUMBER
Line S00188 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05915  M01S00188.ns22000 +++|          LDN    FS          ADDRESS OF EST ORDINAL
Line S05112 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05916  M01S05112.ns22000 ---|          RJM    VME         VALIDATE THAT MASS STORAGE EQUIPMENT
Line S00189 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05917  M01S00189.ns22000 +++|          RJM    VME         VALIDATE MASS STORAGE EST ORDINAL
05918  M00S05113.pfu     +++|          LDD    FS+1        RETRIEVE *DATA* FIRST TRACK
05919  M00S05114.pfu     +++|          STD    T6
05920  M00S05115.pfu     +++|          LDN    0           SELECT EOI SEARCH WITH TRT UPDATE
05921  M00S05116.pfu     +++|          RJM    SEI         SEARCH FOR EOI
05922  M00S05117.pfu     +++|          FETA   FTDW
05923  M00S05118.pfu     +++|          CRD    CM
Line S05119 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05924  M01S05119.ns22000 ---|          LDD    CM+3        SET FAMILY EQUIPMENT
05925  M01S05120.ns22000 ---|          LPN    77
Line S00190 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05926  M01S00190.ns22000 +++|          LDD    CM+3        SET FAMILY EST ORDINAL
05927  M00S05121.pfu     +++|          STM    PDAA
05928  M00S05122.pfu     +++|          FETA   FTDL        GET *DATA* FILE STATE INFORMATION
05929  M00S05123.pfu     +++|          CRM    DLSA,ON
05930  M00S05124.pfu     +++|          LDM    DLSA
05931  M00S05125.pfu     +++|          NJN    POF1        IF NOT BEGINNING OF FILE
05932  M00S05126.pfu     +++|          LDN    1           SET BEGINNING OF FILE FLAG
05933  M00S05127.pfu     +++|          STM    BEGF
05934  M00S05128.pfu     +++| POF1     SHN    -1          DETERMINE DAPF FLAG
05935  M00S05129.pfu     +++|          LPN    1
05936  M00S05130.pfu     +++|          STD    DA
05937  M00S05131.pfu     +++|
05938  M00S05132.pfu     +++|*         SET DATA LAST TRACK AND SECTOR.
05939  M00S05133.pfu     +++|
05940  M00S05134.pfu     +++|          LDD    DN          SET MASTER DEVICE NUMBER
05941  M00S05135.pfu     +++|          STM    DLSA
05942  M00S05136.pfu     +++|          LDD    T6          SET LAST TRACK
05943  M00S05137.pfu     +++|          STD    FS+2
05944  M00S05138.pfu     +++|          LDD    T7          SET LAST SECTOR
05945  M00S05139.pfu     +++|          STD    FS+3
05946  M00S05140.pfu     +++|          RJM    SFC         WRITE UPDATED FILE STATUS
05947  M00S05141.pfu     +++|
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/pfu.003.txt ยท Last modified: (external edit)