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 
----------------------------+
Line S03600 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04233  M02S03600.242l642 ---|          LDC    MESA        ISSUE TRACK FLAW MESSAGE
Line S03601 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04234  M02S03601.242l642 ---|          RJM    DFM
Line S03602 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04235  M02S03602.242l642 ---| DFT1     LJM    DFTX        RETURN
04236  M01S00141.242l642 +++|          UJN    DFTX        RETURN
04237  M01S03603.pfu     +++| DNT      SPACE  4,20
04238  M01S03604.pfu     +++|**        DNT - DETERMINE NEXT TRACK.
04239  M01S03605.pfu     +++|*
04240  M01S03606.pfu     +++|*         ENTRY  (TF) = TYPE OF FILE.
04241  M01S03607.pfu     +++|*                (CM - CM+4) = CURRENT CONTROL WORD.
04242  M01S03608.pfu     +++|*
Line S03609 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04243  M02S03609.242l642 ---|*         EXIT   (A) = 0 IF TRACK NOT AVAILABLE.
04244  M01S00142.242l642 +++|*         EXIT   (A) = 0 IF TRACK NOT AVAILABLE OR WRITE ERROR
04245  M01S00143.242l642 +++|*                        OCCURRED.
04246  M01S03610.pfu     +++|*                (SC) = NEXT TRACK IF AVAILABLE.
04247  M01S03611.pfu     +++|*                WRITE ERROR PROCESSOR CALLED IF TRACK NOT AVAILABLE.
04248  M01S03612.pfu     +++|*                ABSOLUTE ADDRESSES SET IF STORAGE MOVED AND TRACK
04249  M01S03613.pfu     +++|*                AVAILABLE.
04250  M01S03614.pfu     +++|*
04251  M01S03615.pfu     +++|*         USES   SC.
04252  M01S03616.pfu     +++|*
Line S03617 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04253  M02S03617.242l642 ---|*         CALLS  AVT, RTK, SAW, SNT, WEI.
04254  M01S00144.242l642 +++|*         CALLS  AVT, RTK, SAW, SNT, SWE, WEI.
04255  M01S03618.pfu     +++|*
04256  M01S03619.pfu     +++|*         MACROS CMSTF, ENDMS, SETMS, SMSTF.
04257  M01S03620.pfu     +++|
04258  M01S03621.pfu     +++|
04259  M01S03622.pfu     +++|*         DETERMINE NEXT DATA TRACK.
04260  M01S03623.pfu     +++|
04261  M01S03624.pfu     +++| DNT5     RJM    SNT         SET NEXT TRACK
04262  M01S03625.pfu     +++|          STD    SC
04263  M01S03626.pfu     +++|          SHN    21-13
04264  M01S03627.pfu     +++|          MJN    DNTX        IF TRACK AVAILABLE
04265  M01S03628.pfu     +++|          RJM    WEI         WRITE EOI SECTOR
Line S03629 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04266  M02S03629.242l642 ---|          ENDMS
04267  M01S00145.242l642 +++|          PJN    DNT5.1      IF NO ERROR
04268  M01S00146.242l642 +++|          RJM    SWE         SET WRITE ERROR STATUS
04269  M01S00147.242l642 +++|          UJN    DNTX        RETURN WITH (A) = 0
04270  M01S00148.242l642 +++|
04271  M01S00149.242l642 +++| DNT5.1   ENDMS
04272  M01S03630.pfu     +++|          LDD    T6          REQUEST LINKED TRACKS
04273  M01S03631.pfu     +++|          RJM    RTK
04274  M01S03632.pfu     +++|          ZJN    DNTX        IF TRACK NOT ASSIGNED
04275  M01S03633.pfu     +++|          STD    SC          SAVE NEW TRACK
Line S03634 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04276  M02S03634.242l642 ---| DNT6     SETMS  WRITE,,WEBA
04277  M01S00150.242l642 +++| DNT6     SETMS  IO,,WEBA
04278  M01S03635.pfu     +++|          LDD    PR          CHECK IF STORAGE MOVED
04279  M01S03636.pfu     +++|          LMD    RA
04280  M01S03637.pfu     +++|          ZJN    DNT7        IF NOT STORAGE MOVED
04281  M01S03638.pfu     +++|          RJM    SAW         SET ABSOLUTE WRITE BUFFER ADDRESSES
04282  M01S03639.pfu     +++| DNT7     LDN    1           SET TRACK AVAILABLE STATUS
04283  M01S03640.pfu     +++|
04284  M01S03641.pfu     +++| DNT      SUBR               ENTRY/EXIT
04285  M01S03642.pfu     +++|          LDD    TF          CHECK FILE TYPE
Line S03643 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04286  M02S03643.242l642 ---|          ZJN    DNT5        IF DATA FILE TYPE
04287  M01S00151.242l642 +++|          ZJP    DNT5        IF DATA FILE TYPE
04288  M01S03644.pfu     +++|          LMN    1
04289  M01S03645.pfu     +++|          ZJN    DNT1        IF CATALOG FILE TYPE
04290  M01S03646.pfu     +++|
04291  M01S03647.pfu     +++|*         ALLOCATE NEXT PERMIT TRACK.
04292  M01S03648.pfu     +++|
04293  M01S03649.pfu     +++|          RJM    AVT         ALLOCATE AND VERIFY PERMIT TRACK
Line S03650 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04294  M02S03650.ns2332  ---|          ZJN    DNTX        IF TRACK NOT ALLOCATED
04295  M01S00009.ns2332  +++| DNT0     ZJN    DNTX        RETURN
04296  M01S03651.pfu     +++|          STD    SC          SAVE NEW PERMIT TRACK
Line S03652 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04297  M02S03652.ns2332  ---|          UJN    DNT6        POSITION MASS STORAGE DEVICE
04298  M01S00010.ns2332  +++| DNT0.1   UJN    DNT6        POSITION MASS STORAGE DEVICE
04299  M01S03653.pfu     +++|
04300  M01S03654.pfu     +++|*         DETERMINE NEXT CATALOG TRACK.
04301  M01S03655.pfu     +++|
04302  M01S03656.pfu     +++| DNT1     LDD    CM+1
04303  M01S03657.pfu     +++|          ZJN    DNT2        IF NOT RANDOM REQUEST
04304  M01S03658.pfu     +++|          LDD    CM+3        SAVE LINK TRACK
04305  M01S03659.pfu     +++|          STD    SC
04306  M01S03660.pfu     +++|          NJN    DNTX        IF LINK TRACK PRESENT
04307  M01S03661.pfu     +++|
04308  M01S03662.pfu     +++|*         SET OVERFLOW BIT IN MST.  NOTE - THE OVERFLOW BIT MUST BE
04309  M01S03663.pfu     +++|*         SET BEFORE THE TRACK IS REQUESTED TO PREVENT THE *VMSM*
04310  M01S03664.pfu     +++|*         FUNCTION FROM GETTING FALSE ERRORS.
04311  M01S03665.pfu     +++|
04312  M01S03666.pfu     +++| DNT2     ENDMS
04313  M01S03667.pfu     +++|          SMSTF  GCTO        SET CATALOG TRACK OVERFLOW FLAG
04314  M01S03668.pfu     +++|          LDD    CM+1        SAVE STATUS
04315  M01S03669.pfu     +++|          RAM    DNTA
04316  M01S03670.pfu     +++|
04317  M01S03671.pfu     +++|*         ALLOCATE OVERFLOW CATALOG TRACK.
04318  M01S03672.pfu     +++|
04319  M01S03673.pfu     +++|          RJM    AVT         ALLOCATE AND VERIFY TRACK
04320  M01S03674.pfu     +++|          ZJN    DNT3        IF TRACK NOT ALLOCATED
Line S03675 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04321  M02S03675.ns2332  ---|          LJM    DNT6        POSITION MASS STORAGE DEVICE
04322  M01S00011.ns2332  +++|          UJN    DNT0.1      POSITION MASS STORAGE DEVICE
04323  M01S03676.pfu     +++|
04324  M01S03677.pfu     +++| DNT3     LDN    0
04325  M01S03678.pfu     +++| DNTA     EQU    *-1
04326  M01S03679.pfu     +++|*         LDN    1           (OVERFLOW NOT ORIGINALLY SET)
04327  M01S03680.pfu     +++|          NJN    DNT4        IF OVERFLOW BIT WAS ORIGINALLY SET
04328  M01S03681.pfu     +++|
Line S03682 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04329  M02S03682.ns22000 ---|*         CLEAR CATALOG TRACK OVERFLOW BIT IN *MST*.
04330  M01S00147.ns22000 +++|*         CLEAR CATALOG TRACK OVERFLOW BIT IN MST.
04331  M01S03683.pfu     +++|
04332  M01S03684.pfu     +++|          CMSTF  GCTO        CLEAR CATALOG TRACK OVERFLOW
04333  M01S03685.pfu     +++| DNT4     LDN    0           SET TRACK NOT AVAILABLE STATUS
Line S03686 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04334  M02S03686.ns2332  ---|          LJM    DNTX        RETURN
04335  M01S00012.ns2332  +++|          UJN    DNT0        RETURN
04336  M01S03687.pfu     +++| EDF      SPACE  4,15
04337  M01S03688.pfu     +++|**        EDF - END DIRECT ACCESS FILE.
04338  M01S03689.pfu     +++|*
04339  M01S03690.pfu     +++|*         ENTRY  (T4 - T7) = MASS STORAGE PARAMETERS FOR DAPF.
04340  M01S03691.pfu     +++|*                (FS - FS+3) = FILE PARAMETERS FOR DAPF.
04341  M01S03692.pfu     +++|*                (DLSA - DLSA+4) = MASS STORAGE PARAMETERS FOR IAPF
04342  M01S03693.pfu     +++|*                                  CHAIN.
04343  M01S03694.pfu     +++|*
04344  M01S03695.pfu     +++|*         EXIT   (T4 - T7) = MASS STORAGE PARAMETERS FOR IAPF CHAIN.
04345  M01S03696.pfu     +++|*                (FS - FS+3) = FILE PARAMETERS FOR IAPF CHAIN.
04346  M01S03697.pfu     +++|*                (DN) = DEVICE NUMBER FOR IAPF CHAIN.
04347  M01S03698.pfu     +++|*                (DA) = 0.
04348  M01S03699.pfu     +++|*
04349  M01S03700.pfu     +++|*         USES   DA, DN, FS - FS+3, T5 - T7.
04350  M01S03701.pfu     +++|*
04351  M01S03702.pfu     +++|*         CALLS  IRA.
04352  M01S03703.pfu     +++|
04353  M01S03704.pfu     +++|
04354  M01S03705.pfu     +++| EDF      SUBR               ENTRY/EXIT
04355  M01S03706.pfu     +++|          LDM    DLSA+1      CHECK FOR DAPF ON MASTER DEVICE
04356  M01S03707.pfu     +++|          SBD    T5
04357  M01S03708.pfu     +++|          ZJN    EDF1        IF DAPF ON MASTER DEVICE
Line S03709 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04358  M02S03709.ns22000 ---|          RAD    FS          RESTORE MASTER EQUIPMENT
04359  M01S00148.ns22000 +++|          RAD    FS          RESTORE MASTER DEVICE EST ORDINAL
Line S03710 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04360  M02S03710.ns22000 ---|          LPN    77
04361  M01S03711.pfu     +++|          STD    T5
04362  M01S03712.pfu     +++|          LDM    DLSA        RESTORE MASTER DEVICE NUMBER
04363  M01S03713.pfu     +++|          STD    DN
04364  M01S03714.pfu     +++|          RJM    IRA         INITIALIZE RANDOM ADDRESS PROCESSORS
04365  M01S03715.pfu     +++| EDF1     LDM    DLSA+2      RESTORE IAPF FIRST TRACK
04366  M01S03716.pfu     +++|          STD    FS+1
04367  M01S03717.pfu     +++|          LDM    DLSA+3      RESTORE IAPF CURRENT TRACK
04368  M01S03718.pfu     +++|          STD    T6
04369  M01S03719.pfu     +++|          STD    FS+2
04370  M01S03720.pfu     +++|          LDM    DLSA+4      RESTORE IAPF CURRENT SECTOR
04371  M01S03721.pfu     +++|          STD    T7
04372  M01S03722.pfu     +++|          STD    FS+3
04373  M01S03723.pfu     +++|          LDN    0           CLEAR DAPF FLAG
04374  M01S03724.pfu     +++|          STD    DA
04375  M01S03725.pfu     +++|          UJN    EDFX        RETURN
04376  M01S03726.pfu     +++| EMB      SPACE  4,20
04377  M01S03727.pfu     +++|**        EMB - EMPTY THE BUFFER.
04378  M01S03728.pfu     +++|*
04379  M01S03729.pfu     +++|*         ENTRY  (T4 - T7) = MASS STORAGE PARAMETERS.
04380  M01S03730.pfu     +++|*                (FT - FT+1) = FIRST.
04381  M01S03731.pfu     +++|*                (IN - IN+1) = IN.
04382  M01S03732.pfu     +++|*                (OT - OT+1) = OUT.
04383  M01S03733.pfu     +++|*                (LM - LM+1) = LIMIT.
04384  M01S03734.pfu     +++|*                (FS - FS+4) = FST ENTRY.
04385  M01S03735.pfu     +++|*                (P2) = SECTOR COUNT TO WRITE.
04386  M01S03736.pfu     +++|*                SUB-ROUTINE *SRW* EXECUTED PRIOR TO THE FIRST
04387  M01S03737.pfu     +++|*                ENTRY OR ANY ENTRY SUBSEQUENT TO A PAUSE.
04388  M01S03738.pfu     +++|*
04389  M01S03739.pfu     +++|*         EXIT   (A) = 0 IF BUFFER EMPTY OR IF ERROR DETECTED.
04390  M01S03740.pfu     +++|*                    = .GT. 0 IF BUFFER IS NOT EMPTY BUT EOI WAS
04391  M01S03741.pfu     +++|*                      WRITTEN.
04392  M01S03742.pfu     +++|*                DATA COPIED FROM CM BUFFER TO MASS STORAGE.
04393  M01S03743.pfu     +++|*                WRITE ERROR PROCESSOR CALLED IF ERROR DETECTED.
04394  M01S03744.pfu     +++|*
04395  M01S03745.pfu     +++|*         USES   P1, SC, T6, T7, CM - CM+4, FN - FN+4.
04396  M01S03746.pfu     +++|*
Line S03747 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04397  M02S03747.242l642 ---|*         CALLS  DNT, PWE, RCB, SAW, SSC, UOP, WDS, WEI.
04398  M01S00152.242l642 +++|*         CALLS  DNT, RCB, SAW, SSC, SWE, UOP, WDS, WEI.
04399  M01S03748.pfu     +++|*
04400  M01S03749.pfu     +++|*         MACROS ERROR, SETMS.
04401  M01S03750.pfu     +++|
04402  M01S03751.pfu     +++|
04403  M01S03752.pfu     +++| EMB      SUBR               ENTRY/EXIT
04404  M01S03753.pfu     +++|
04405  M01S03754.pfu     +++|*         PRESET EMPTY BUFFER LOOP.
04406  M01S03755.pfu     +++|
Line S03756 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04407  M02S03756.242l642 ---|          SETMS  WRITE,,WEBA
04408  M01S00153.242l642 +++|          SETMS  IO,,WEBA
04409  M01S03757.pfu     +++|          LDN    ZERL
04410  M01S03758.pfu     +++|          CRD    FN
04411  M01S03759.pfu     +++|          LDN    0           CLEAR EOI FLAG
04412  M01S03760.pfu     +++|          STM    BEGF,TF
04413  M01S03761.pfu     +++|          RJM    SAW         SET ABSOLUTE WRITE BUFFER ADDRESSES
04414  M01S03762.pfu     +++|
Line S03763 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04415  M02S03763.ns2332  ---|*         PROCESS CENTRAL BUFFER
04416  M01S00013.ns2332  +++|*         PROCESS CENTRAL BUFFER.
04417  M01S03764.pfu     +++|
04418  M01S03765.pfu     +++| EMB1     LDD    OT          READ CONTROL WORD
04419  M01S03766.pfu     +++|          SHN    14
04420  M01S03767.pfu     +++|          ADD    OT+1
04421  M01S03768.pfu     +++|          ADC    *
04422  M01S03769.pfu     +++| EMBA     EQU    *-2         (RA)
04423  M01S03770.pfu     +++|          CRD    CM
04424  M01S03771.pfu     +++|          LDD    HN
04425  M01S03772.pfu     +++|          SBD    CM+4
04426  M01S03773.pfu     +++|          PJN    EMB2        IF LEGAL WORD COUNT
04427  M01S03774.pfu     +++|          FETA               READ FILE NAME
04428  M01S03775.pfu     +++|          CRD    FN
04429  M01S03776.pfu     +++|          ERROR  ECBCW       PROCESS BUFFER CONTROL WORD ERROR
04430  M01S03777.pfu     +++|
04431  M01S03778.pfu     +++| EMB2     AOD    CM+4
04432  M01S03779.pfu     +++|          STD    P1
04433  M01S03780.pfu     +++|
04434  M01S03781.pfu     +++|*         DETERMINE NEXT SECTOR.
04435  M01S03782.pfu     +++|
04436  M01S03783.pfu     +++|          LDD    T7          SET NEXT SECTOR
04437  M01S03784.pfu     +++|          ADN    1
04438  M01S03785.pfu     +++|          STD    SC
04439  M01S03786.pfu     +++|          LMM    SLM
04440  M01S03787.pfu     +++|          NJN    EMB3        IF NOT END OF TRACK
04441  M01S03788.pfu     +++|          LDD    CM          CHECK FOR EOI SECTOR
04442  M01S03789.pfu     +++|          SHN    -6
04443  M01S03790.pfu     +++|          SBN    2
04444  M01S03791.pfu     +++|          PJN    EMB3        IF EOI SECTOR
04445  M01S03792.pfu     +++|          RJM    DNT         DETERMINE NEXT TRACK
04446  M01S03793.pfu     +++|          NJN    EMB3        IF NO ERROR
Line S03794 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04447  M02S03794.ns22000 ---|          LJM    EMBX        RETURN
04448  M01S00149.ns22000 +++| EMB2.1   LJM    EMBX        RETURN
04449  M01S03795.pfu     +++|
04450  M01S03796.pfu     +++|*         READ SECTOR FROM CENTRAL BUFFER.
04451  M01S03797.pfu     +++|
Line S03798 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04452  M02S03798.pfu7    ---| EMB3     LDD    RA          CHECK FOR STORAGE MOVE
Line S03799 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04453  M02S03799.pfu7    ---|          LMD    PR
Line S03800 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04454  M02S03800.pfu7    ---|          ZJN    EMB4        IF NO STORAGE MOVE
Line S03801 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04455  M02S03801.pfu7    ---|          RJM    SAW         SET ABSOLUTE WRITE BUFFER ADDRESSES
Line S03802 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04456  M02S03802.pfu7    ---| EMB4     RJM    RCB         READ CENTRAL BUFFER
04457  M01S00001.pfu7    +++| EMB3     RJM    RCB         READ CENTRAL BUFFER
04458  M01S03803.pfu     +++|
04459  M01S03804.pfu     +++|*         SET LINKAGE BYTES.
04460  M01S03805.pfu     +++|
04461  M01S03806.pfu     +++|          LDM    CWBA
04462  M01S03807.pfu     +++|          SHN    -6
04463  M01S03808.pfu     +++|          ZJN    EMB7        IF NOT EOF OR EOI
04464  M01S03809.pfu     +++|          LMN    1
04465  M01S03810.pfu     +++|          ZJN    EMB6        IF EOF
04466  M01S03811.pfu     +++|          RJM    WEI         WRITE EOI SECTOR
04467  M01S03812.pfu     +++|          PJN    EMB8        IF NO MASS STORAGE ERROR
Line S03813 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04468  M02S03813.242l642 ---| EMB5     LDN    FEWE        SET MASS STORAGE WRITE ERROR
Line S03814 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04469  M02S03814.242l642 ---|          RJM    PWE         PROCESS WRITE ERROR
Line S03815 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04470  M02S03815.242l642 ---|          LDN    0           SET ERROR STATUS
Line S03816 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
M03 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04471  M03S03816.242l642 ---|          LJM    EMBX        RETURN
Line S00150 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04472  M02S00150.242l642 ---|          UJN    EMB2.1      RETURN
04473  M01S00154.242l642 +++| EMB5     RJM    SWE         SET WRITE ERROR STATUS
04474  M01S00155.242l642 +++|          UJN    EMB2.1      RETURN WITH (A) = 0
04475  M01S03817.pfu     +++|
04476  M01S03818.pfu     +++| EMB6     LDD    SC          SET SECOND LINKAGE BYTE
04477  M01S03819.pfu     +++|          STM    BFMS+1
04478  M01S03820.pfu     +++| EMB7     LMD    SC          SET FIRST LINKAGE BYTE
04479  M01S03821.pfu     +++|          STM    BFMS
04480  M01S03822.pfu     +++|
04481  M01S03823.pfu     +++|*         WRITE SECTOR.
04482  M01S03824.pfu     +++|
04483  M01S03825.pfu     +++|          LDC    BFMS+WCSF   WRITE SECTOR
04484  M01S03826.pfu     +++|          RJM    WDS
04485  M01S03827.pfu     +++|          MJN    EMB5        IF MASS STORAGE ERROR
04486  M01S03828.pfu     +++| EMB8     LDD    RA          CHECK FOR STORAGE MOVE
04487  M01S03829.pfu     +++|          LMD    PR
04488  M01S03830.pfu     +++|          ZJN    EMB9        IF NOT STORAGE MOVED
04489  M01S03831.pfu     +++|          RJM    SAW         SET ABSOLUTE WRITE BUFFER ADDRESSES
04490  M01S03832.pfu     +++|
04491  M01S03833.pfu     +++|*         ADVANCE SECTOR.
04492  M01S03834.pfu     +++|
04493  M01S03835.pfu     +++| EMB9     LDM    BFMS
04494  M01S03836.pfu     +++|          NJN    EMB10       IF TRACK OR SECTOR PRESENT
04495  M01S03837.pfu     +++|          LDM    BFMS+1
04496  M01S03838.pfu     +++|          NJN    EMB10       IF TRACK OR SECTOR PRESENT
04497  M01S03839.pfu     +++|          LDN    1           SET BEGINNING OF FILE FLAG
04498  M01S03840.pfu     +++|          STM    BEGF,TF
04499  M01S03841.pfu     +++|          UJN    EMB11       UPDATE OUT POINTER
04500  M01S03842.pfu     +++|
04501  M01S03843.pfu     +++| EMB10    STD    T7          SET NEXT SECTOR
04502  M01S03844.pfu     +++|          SHN    21-13
04503  M01S03845.pfu     +++|          PJN    EMB11       IF NOT TRACK
04504  M01S03846.pfu     +++|          SHN    -6
04505  M01S03847.pfu     +++|          STD    T6
04506  M01S03848.pfu     +++|          LDN    0           SET SECTOR
04507  M01S03849.pfu     +++|          STD    T7
04508  M01S03850.pfu     +++|
04509  M01S03851.pfu     +++|*         UPDATE OUT POINTER.
04510  M01S03852.pfu     +++|
Line S03853 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04511  M02S03853.pfu7    ---| EMB11    LDD    RA          CHECK FOR STORAGE MOVE
Line S03854 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04512  M02S03854.pfu7    ---|          LMD    PR
Line S03855 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04513  M02S03855.pfu7    ---|          ZJN    EMB12       IF NO STORAGE MOVE
Line S03856 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04514  M02S03856.pfu7    ---|          RJM    SAW         SET ABSOLUTE WRITE BUFFER ADDRESSES
Line S03857 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
04515  M02S03857.pfu7    ---| EMB12    RJM    UOP         UPDATE OUT POINTER IN FET
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  M01S03858.pfu     +++|
04524  M01S03859.pfu     +++|*         DETERMINE WHETHER TO EXIT.
04525  M01S03860.pfu     +++|
04526  M01S03861.pfu     +++|          SOD    P2          DECREMENT SECTOR COUNT
04527  M01S03862.pfu     +++|          NJN    EMB14       IF SECTORS LEFT IN BUFFER
04528  M01S03863.pfu     +++|          RJM    SSC         SET SECTOR COUNT
04529  M01S03864.pfu     +++|          LDD    P2
04530  M01S03865.pfu     +++|          NJN    EMB14       IF SECTORS LEFT IN BUFFER
04531  M01S03866.pfu     +++| EMB13    LJM    EMBX        RETURN
04532  M01S03867.pfu     +++|
04533  M01S03868.pfu     +++| EMB14    LDM    BEGF,TF     CHECK FOR EOI
04534  M01S03869.pfu     +++|          NJN    EMB13       IF EOI
04535  M01S03870.pfu     +++|          LJM    EMB1        LOOP FOR MORE SECTORS
04536  M01S03871.pfu     +++| PBF      SPACE  4,50
04537  M01S03872.pfu     +++|**        PBF - PROCESS BEGINNING OF FILE.
04538  M01S03873.pfu     +++|*
04539  M01S03874.pfu     +++|*         ENTRY  (T4 - T7) = DATA FILE MASS STORAGE PARAMETERS FOR
04540  M01S03875.pfu     +++|*                            INDIRECT FILE CHAIN.
04541  M01S03876.pfu     +++|*                (FS - FS+4) = DATA FILE PARAMETERS FOR INDIRECT ACCESS
04542  M01S03877.pfu     +++|*                              FILE CHAIN.
04543  M01S03878.pfu     +++|*                (CWBA - CWBA+4) = BUFFER CONTROL WORD.
04544  M01S03879.pfu     +++|*                (DN) = MASTER DEVICE NUMBER.
04545  M01S03880.pfu     +++|*                (BEGF+(TF)) = BEGINNING OF FILE FLAG.
04546  M01S03881.pfu     +++|*                (P2) = COUNT OF SECTORS IN CENTRAL BUFFER.
04547  M01S03882.pfu     +++|*
04548  M01S03883.pfu     +++|*         EXIT   (A) = 0, IF NO ERROR DETECTED.
04549  M01S03884.pfu     +++|*                    = NON-ZERO, IF ERROR DETECTED.
04550  M01S03885.pfu     +++|*                (BEGF+(TF)) = 0.
04551  M01S03886.pfu     +++|*                (P2) = UPDATED COUNT OF SECTORS IN CENTRAL BUFFER.
04552  M01S03887.pfu     +++|*                SYSTEM SECTOR WRITTEN.
04553  M01S03888.pfu     +++|*                TRACK AND SECTOR OF CM CATALOG ENTRY UPDATED TO
04554  M01S03889.pfu     +++|*                NEW BEGINNING ADDRESS OF FILE.
04555  M01S03890.pfu     +++|*                WRITE ERROR PROCESSOR CALLED, IF ERROR DETECTED.
04556  M01S03891.pfu     +++|*
04557  M01S03892.pfu     +++|*                IF INDIRECT ACCESS FILE --
04558  M01S03893.pfu     +++|*                (T4 - T7) = DATA FILE MASS STORAGE PARAMETERS FOR
04559  M01S03894.pfu     +++|*                            FIRST DATA SECTOR OF FILE WITHIN
04560  M01S03895.pfu     +++|*                            THE INDIRECT FILE CHAIN.
04561  M01S03896.pfu     +++|*
04562  M01S03897.pfu     +++|*                IF DIRECT ACCESS FILE --
04563  M01S03898.pfu     +++|*                (T4 - T7) = DATA FILE MASS STORAGE PARAMETERS FOR
04564  M01S03899.pfu     +++|*                            FIRST DATA SECTOR OF DIRECT ACCESS FILE.
04565  M01S03900.pfu     +++|*                (FS - FS+4) = DATA FILE PARAMETERS FOR DIRECT ACCESS
04566  M01S03901.pfu     +++|*                              FILE.
04567  M01S03902.pfu     +++|*                (DA) = DIRECT ACCESS FILE FLAG SET.
04568  M01S03903.pfu     +++|*                (DN) = RESIDENT DEVICE NUMBER OF DIRECT ACCESS FILE.
04569  M01S03904.pfu     +++|*                INDIRECT ACCESS FILE CHAIN PARAMETERS SAVED --
04570  M01S03905.pfu     +++|*                (DLSA)   = MASTER DEVICE NUMBER.
Line S03906 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04571  M02S03906.ns22000 ---|*                (DLSA+1) = MASTER EQUIPMENT NUMBER.
04572  M01S00151.ns22000 +++|*                (DLSA+1) = MASTER DEVICE EST ORDINAL.
04573  M01S03907.pfu     +++|*                (DLSA+2) = IAPF CHAIN FIRST TRACK.
04574  M01S03908.pfu     +++|*                (DLSA+3) = IAPF CHAIN CURRENT TRACK.
04575  M01S03909.pfu     +++|*                (DLSA+4) = IAPF CHAIN CURRENT SECTOR.
04576  M01S03910.pfu     +++|*                FST ENTRY WRITTEN TO CENTRAL MEMORY.
04577  M01S03911.pfu     +++|*
04578  M01S03912.pfu     +++|*         USES   BEGF+(TF), /COMSWSS/FA, P1, P2, T1, T4, T5, T6, T7,
04579  M01S03913.pfu     +++|*                CM+1 - CM+3, DLSA - DLSA+4, FS - FS+4.
04580  M01S03914.pfu     +++|*
Line S03915 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04581  M02S03915.242l642 ---|*         CALLS  PDA, RBA, RCB, RTK, SAW, SNT, UOP, WSS.
04582  M01S00156.242l642 +++|*         CALLS  PDA, PWE, RBA, RCB, RTK, SAW, SNT, UOP, WSS.
04583  M01S03916.pfu     +++|*
04584  M01S03917.pfu     +++|*         MACROS ERROR, MONITOR, NFA, SETMS.
04585  M01S03918.pfu     +++|
04586  M01S03919.pfu     +++|
04587  M01S03920.pfu     +++| PBF      SUBR               ENTRY/EXIT
04588  M01S03921.pfu     +++|          LDM    BEGF,TF
04589  M01S03922.pfu     +++|          ZJN    PBFX        IF NOT BEGINNING OF FILE
04590  M01S03923.pfu     +++|          RJM    SAW         SET ABSOLUTE WRITE BUFFER ADDRESSES
04591  M01S03924.pfu     +++|
04592  M01S03925.pfu     +++|*         READ OLD SYSTEM SECTOR, IF AVAILABLE.
04593  M01S03926.pfu     +++|
04594  M01S03927.pfu     +++|          LDM    CWBA        CHECK TYPE OF FIRST SECTOR
04595  M01S03928.pfu     +++|          SHN    -6
04596  M01S03929.pfu     +++|          LMN    4
04597  M01S03930.pfu     +++|          NJN    PBF3        IF NOT SYSTEM SECTOR
04598  M01S03931.pfu     +++|          LDM    CWBA+4      CHECK SYSTEM SECTOR LENGTH
04599  M01S03932.pfu     +++|          ZJN    PBF1        IF ZERO LENGTH
04600  M01S03933.pfu     +++|          LDD    HN
04601  M01S03934.pfu     +++|          SBM    CWBA+4
04602  M01S03935.pfu     +++|          PJN    PBF2        IF LEGAL LENGTH
04603  M01S03936.pfu     +++| PBF1     ERROR  ECBCW       PROCESS BUFFER CONTROL WORD ERROR
04604  M01S03937.pfu     +++|
04605  M01S03938.pfu     +++| PBF2     LDM    CWBA+4      SET LENGTH
04606  M01S03939.pfu     +++|          ADD    ON
04607  M01S03940.pfu     +++|          STD    P1
04608  M01S03941.pfu     +++|          RJM    RCB         READ SYSTEM SECTOR FROM CM BUFFER
04609  M01S03942.pfu     +++|          SOD    P2          DECREMENT SECTOR COUNT
04610  M01S03943.pfu     +++|          UJN    PBF5        UPDATE SYSTEM SECTOR
04611  M01S03944.pfu     +++|
04612  M01S03945.pfu     +++|*         CLEAR SYSTEM SECTOR BUFFER IF BUILDING NEW SYSTEM SECTOR.
04613  M01S03946.pfu     +++|
04614  M01S03947.pfu     +++| PBF3     LDC    FNSS-5      INITIALIZE LOOP CONTROLS
04615  M01S03948.pfu     +++|          STM    PBFA
04616  M01S03949.pfu     +++| PBF4     LDN    5           INCREMENT
04617  M01S03950.pfu     +++|          RAM    PBFA
04618  M01S03951.pfu     +++|          LDN    ZERL
04619  M01S03952.pfu     +++|          CRM    FNSS,ON     ZERO OUT 5 BUFFER WORDS
04620  M01S03953.pfu     +++| PBFA     EQU    *-1
04621  M01S03954.pfu     +++|          LDM    PBFA
Line S03955 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04622  M02S03955.ns2332  ---|          SBM    PBFB
04623  M01S00014.ns2332  +++|          SBK    FNSS+5*77
04624  M01S03956.pfu     +++|          MJN    PBF4        IF MORE WORDS TO ZERO OUT
04625  M01S03957.pfu     +++|
04626  M01S03958.pfu     +++|*         UPDATE SYSTEM SECTOR FILE NAME AND CATALOG ENTRY IMAGE.
04627  M01S03959.pfu     +++|
04628  M01S03960.pfu     +++| PBF5     LDN    NWCE        SET LENGTH OF CATALOG ENTRY
04629  M01S03961.pfu     +++|          STD    T1
04630  M01S03962.pfu     +++|          LDM    CWBA        SET CM ADDRESS OF CATALOG ENTRY
04631  M01S03963.pfu     +++|          LPN    77
04632  M01S03964.pfu     +++|          SHN    6
04633  M01S03965.pfu     +++|          ADD    RA
04634  M01S03966.pfu     +++|          SHN    6
04635  M01S03967.pfu     +++|          ADM    CWBA+1
04636  M01S03968.pfu     +++|          CRM    FNSS,ON     READ FILE NAME
04637  M01S03969.pfu     +++|          SBN    1
04638  M01S03970.pfu     +++|          CRM    CTSS,T1     READ CATALOG ENTRY
04639  M01S03971.pfu     +++|
04640  M01S03972.pfu     +++|*         DETERMINE FILE TYPE.
04641  M01S03973.pfu     +++|
04642  M01S03974.pfu     +++|          LDM    CWBA+3
04643  M01S03975.pfu     +++|          NJN    PBF6        IF DIRECT ACCESS FILE
04644  M01S03976.pfu     +++|          LJM    PBF9        PROCESS INDIRECT ACCESS FILE
04645  M01S03977.pfu     +++|
04646  M01S03978.pfu     +++|*         SAVE INDIRECT ACCESS FILE CHAIN PARAMETERS.
04647  M01S03979.pfu     +++|
Line S03980 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04648  M02S03980.ns22000 ---| PBF6     LDD    T5          SAVE MASTER EQUIPMENT
04649  M01S00152.ns22000 +++| PBF6     LDD    T5          SAVE MASTER DEVICE EST ORDINAL
04650  M01S03981.pfu     +++|          STM    DLSA+1
04651  M01S03982.pfu     +++|          LDD    FS+1        SAVE IAPF CHAIN FIRST TRACK
04652  M01S03983.pfu     +++|          STM    DLSA+2
04653  M01S03984.pfu     +++|          LDD    T6          SAVE IAPF CHAIN CURRENT TRACK
04654  M01S03985.pfu     +++|          STM    DLSA+3
04655  M01S03986.pfu     +++|          LDD    T7          SAVE IAPF CHAIN CURRENT SECTOR
04656  M01S03987.pfu     +++|          STM    DLSA+4
04657  M01S03988.pfu     +++|
04658  M01S03989.pfu     +++|*         DETERMINE WHERE TO LOAD DIRECT ACCESS FILE.
04659  M01S03990.pfu     +++|
Line S03991 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04660  M02S03991.ns22000 ---|          LDM    CTSS+FCEO   CHECK DEVICE RESIDENCY
04661  M01S00153.ns22000 +++|          LDM    CTSS+FCDN   CHECK DEVICE RESIDENCY
04662  M01S03992.pfu     +++|          LPN    77
04663  M01S03993.pfu     +++|          NJN    PBF7        IF NOT RESIDENT ON MASTER DEVICE
04664  M01S03994.pfu     +++|          LDD    DN          SET MASTER DEVICE NUMBER
04665  M01S03995.pfu     +++| PBF7     RJM    PDA         PROCESS DIRECT ACCESS FILE
Line S03996 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04666  M02S03996.ns22000 ---|          LDD    FS          SET EQUIPMENT IN FST
Line S03997 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04667  M02S03997.ns22000 ---|          SCN    77
Line S03998 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04668  M02S03998.ns22000 ---|          LMD    T5
Line S03999 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04669  M02S03999.ns22000 ---|          STD    FS
Line S04000 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04670  M02S04000.ns22000 ---|          LDM    CTSS+FCEO   SET CATALOG ENTRY IMAGE EQUIPMENT = 0
Line S04001 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04671  M02S04001.ns22000 ---|          SCN    77
Line S04002 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04672  M02S04002.ns22000 ---|          STM    CTSS+FCEO
Line S04003 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04673  M02S04003.ns22000 ---|          LDD    DN
Line S04004 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04674  M02S04004.ns22000 ---|          LMD    T5
Line S04005 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04675  M02S04005.ns22000 ---|          ZJN    PBF8        IF RESIDENT DEVICE = MASTER DEVICE
Line S04006 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04676  M02S04006.ns22000 ---|          LDM    CTSS+FCEO   SET EQUIPMENT = RESIDENT DEVICE
Line S04007 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04677  M02S04007.ns22000 ---|          LMD    T5
Line S04008 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04678  M02S04008.ns22000 ---|          STM    CTSS+FCEO
Line S04009 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04679  M02S04009.ns22000 ---| PBF8     LDN    0           SET RMS SECTOR POSITIONING DIRECT CELL
04680  M01S00154.ns22000 +++|          LDD    T5          SET EST ORDINAL IN FST
04681  M01S00155.ns22000 +++|          STD    FS
04682  M01S00156.ns22000 +++|          LDN    0
04683  M01S04010.pfu     +++|          STD    T7
04684  M01S04011.pfu     +++|          LDC    400000
04685  M01S04012.pfu     +++|          RJM    RTK         REQUEST SINGLE NON-LINKED TRACK
04686  M01S04013.pfu     +++|          NJN    PBF13       IF TRACK AVAILABLE
04687  M01S04014.pfu     +++|          LDN    1           SET ERROR STATUS
Line S04015 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04688  M02S04015.ns2332  ---|          LJM    PBFX        RETURN
04689  M01S00015.ns2332  +++| PBF8     LJM    PBFX        RETURN
04690  M01S04016.pfu     +++|
04691  M01S04017.pfu     +++|*         DETERMINE WHERE TO LOAD INDIRECT ACCESS FILE.
04692  M01S04018.pfu     +++|
04693  M01S04019.pfu     +++| PBF9     AOD    T7          ADVANCE IAPF CHAIN TO NEXT SECTOR
04694  M01S04020.pfu     +++|          LMM    SLM
04695  M01S04021.pfu     +++|          ZJN    PBF10       IF END OF TRACK
04696  M01S04022.pfu     +++|          LDD    T6          USE CURRENT IAPF CHAIN TRACK
04697  M01S04023.pfu     +++|          UJN    PBF14       SET FIRST TRACK
04698  M01S04024.pfu     +++|
04699  M01S04025.pfu     +++| PBF10    STD    T7          SET TO FIRST SECTOR OF NEXT TRACK
04700  M01S04026.pfu     +++| PBF11    RJM    SNT         SET NEXT TRACK
04701  M01S04027.pfu     +++|          SHN    21-13
04702  M01S04028.pfu     +++|          PJN    PBF12       IF TRACK NOT AVAILABLE
04703  M01S04029.pfu     +++|          SHN    13-21
04704  M01S04030.pfu     +++|          UJN    PBF14       SET FIRST TRACK
04705  M01S04031.pfu     +++|
04706  M01S04032.pfu     +++| PBF12    LDD    T6
04707  M01S04033.pfu     +++|          RJM    RTK         REQUEST MULTIPLE LINKED TRACKS
04708  M01S04034.pfu     +++|          NJN    PBF11       IF NO ERROR
04709  M01S04035.pfu     +++|          LDN    1           SET ERROR STATUS
Line S04036 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04710  M02S04036.ns2332  ---|          LJM    PBFX        RETURN
04711  M01S00016.ns2332  +++|          UJN    PBF8        RETURN
04712  M01S04037.pfu     +++|
04713  M01S04038.pfu     +++|*         SET FIRST TRACK.
04714  M01S04039.pfu     +++|
04715  M01S04040.pfu     +++| PBF13    STD    FS+1        IN FST ENTRY
04716  M01S04041.pfu     +++|          STD    CM+2        IN *SET PRESERVED FILE STATUS* FUNCTION
04717  M01S04042.pfu     +++| PBF14    STD    T6          IN RMS TRACK POSITIONING DIRECT CELL
04718  M01S04043.pfu     +++|          STM    FTSS        IN SYSTEM SECTOR FST IMAGE
04719  M01S04044.pfu     +++|          STM    CTSS+FCBT   IN SYSTEM SECTOR CATALOG ENTRY IMAGE
04720  M01S04045.pfu     +++|          LDM    CWBA+3
04721  M01S04046.pfu     +++|          NJN    PBF15       IF DIRECT ACCESS FILE
04722  M01S04047.pfu     +++|          LJM    PBF16       PROCESS INDIRECT ACCESS FILE
04723  M01S04048.pfu     +++|
04724  M01S04049.pfu     +++|*         SET PRESERVED FILE STATUS.
04725  M01S04050.pfu     +++|
04726  M01S04051.pfu     +++| PBF15    LDN    SPFS        SET SUB-FUNCTION CODE
04727  M01S04052.pfu     +++|          STD    CM+3
Line S04053 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04728  M02S04053.ns22000 ---|          LDD    T5          SET EQUIPMENT NUMBER
04729  M01S00157.ns22000 +++|          LDD    T5          SET EST ORDINAL
04730  M01S04054.pfu     +++|          STD    CM+1
04731  M01S04055.pfu     +++|          MONITOR  STBM      SET PRESERVED FILE STATUS TRACK BIT
04732  M01S04056.pfu     +++|
04733  M01S04057.pfu     +++|*         CLEAR DIRECT ACCESS FILE MODE/USAGE FIELDS.
04734  M01S04058.pfu     +++|
04735  M01S04059.pfu     +++|          LDM    FNSS+3      FILE ATTACH MODE BITS
04736  M01S04060.pfu     +++|          SCN    77
04737  M01S04061.pfu     +++|          STM    FNSS+3
04738  M01S04062.pfu     +++|          LDN    ZERL
04739  M01S04063.pfu     +++|          CRM    CASS+FISS*,ON  ACCESS MODE BITS / FAST ATTACH FLAGS
04740  M01S04064.pfu     +++|          LDN    ZERL
04741  M01S04065.pfu     +++|          CRM    UCSS,ON     USER COUNTS
04742  M01S04066.pfu     +++|          LDN    ZERL
04743  M01S04067.pfu     +++|          CRM    UCSS+1*5,ON
04744  M01S04068.pfu     +++|          LDN    ZERL
04745  M01S04069.pfu     +++|          CRM    UCSS+2*5,ON
04746  M01S04070.pfu     +++|          LDN    ZERL
04747  M01S04071.pfu     +++|          CRM    UCSS+3*5,ON
04748  M01S04072.pfu     +++|          LDN    ZERL
04749  M01S04073.pfu     +++|          CRM    UCSS+4*5,ON
04750  M01S04074.pfu     +++|
04751  M01S04075.pfu     +++|*         SET FILE TYPE AND FIRST SECTOR FOR DIRECT ACCESS FILE.
04752  M01S04076.pfu     +++|
04753  M01S04077.pfu     +++|          LDC    PMFT*100    SET FILE TYPE
04754  M01S04078.pfu     +++|          STM    FNSS+4
04755  M01S04079.pfu     +++|          LCN    0           SET FIRST SECTOR = DAPF IDENTIFIER
04756  M01S04080.pfu     +++|          STM    CTSS+FCBS
04757  M01S04081.pfu     +++|          UJN    PBF18       UPDATE CM CATALOG ENTRY
04758  M01S04082.pfu     +++|
04759  M01S04083.pfu     +++|*         SET FILE TYPE AND FIRST SECTOR FOR INDIRECT ACCESS FILE.
04760  M01S04084.pfu     +++|
04761  M01S04085.pfu     +++| PBF16    LDC    PMFT*100    SET FILE TYPE
04762  M01S04086.pfu     +++|          STM    FNSS+4
04763  M01S04087.pfu     +++|          LDD    T7          SET FIRST SECTOR
04764  M01S04088.pfu     +++|          STM    CTSS+FCBS
04765  M01S04089.pfu     +++|          ADN    1
04766  M01S04090.pfu     +++|          LMM    SLM
04767  M01S04091.pfu     +++|          NJN    PBF18       IF NEXT SECTOR WITHIN SECTOR LIMIT
04768  M01S04092.pfu     +++| PBF17    RJM    SNT         FIND NEXT TRACK
04769  M01S04093.pfu     +++|          SHN    21-13
04770  M01S04094.pfu     +++|          MJN    PBF18       IF NEXT TRACK AVAILABLE
04771  M01S04095.pfu     +++|
04772  M01S04096.pfu     +++|          LDD    T6
04773  M01S04097.pfu     +++|          RJM    RTK         REQUEST MULTIPLE LINKED TRACKS
04774  M01S04098.pfu     +++|          NJN    PBF17       IF NO ERROR
04775  M01S04099.pfu     +++|          LDN    1           SET ERROR STATUS
Line S04100 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04776  M02S04100.ns2332  ---|          LJM    PBFX        RETURN
Line S00017 Modification History
M01 (Added by) ns2332
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04777  M02S00017.242l642 ---|          UJN    PBF21       RETURN
04778  M01S00157.242l642 +++|          LJM    PBFX        RETURN
04779  M01S04101.pfu     +++|
04780  M01S04102.pfu     +++|*         UPDATE TRACK AND SECTOR OF CM CATALOG ENTRY.
04781  M01S04103.pfu     +++|
04782  M01S04104.pfu     +++| PBF18    RJM    RBA         RETURN BEGINNING ADDRESS OF FILE TO CM
04783  M01S04105.pfu     +++|
04784  M01S04106.pfu     +++|*         WRITE SYSTEM SECTOR.
04785  M01S04107.pfu     +++|
04786  M01S04108.pfu     +++|          LDN    0           DESELECT FNT PROCESSING BY *WSS*
04787  M01S04109.pfu     +++|          STD    /COMPWSS/FA
Line S04110 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04788  M02S04110.242l642 ---|          SETMS  WRITE,,WEBA
04789  M01S00158.242l642 +++|          SETMS  IO,,WEBA
04790  M01S04111.pfu     +++|          RJM    WSS         WRITE SYSTEM SECTOR
04791  M01S00159.242l642 +++|          SHN    0-21
04792  M01S00160.242l642 +++|          STD    T1          SAVE REPLY STATUS
04793  M01S04112.pfu     +++|          LDM    CWBA+3
Line S04113 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04794  M02S04113.242l642 ---|          ZJN    PBF19       IF INDIRECT ACCESS FILE
04795  M01S00161.242l642 +++|          ZJN    PBF18.1     IF INDIRECT ACCESS FILE
04796  M01S04114.pfu     +++|
04797  M01S04115.pfu     +++|*         WRITE FST ENTRY TO CENTRAL MEMORY.
04798  M01S04116.pfu     +++|
04799  M01S04117.pfu     +++|          NFA    FA,R
04800  M01S04118.pfu     +++|          ADN    FSTL
04801  M01S04119.pfu     +++|          CWD    FS          WRITE FST
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  M01S04120.pfu     +++|
04812  M01S04121.pfu     +++|*         UPDATE OUT POINTER IN FET.
04813  M01S04122.pfu     +++|
04814  M01S04123.pfu     +++| PBF19    LDD    RA          CHECK FOR STORAGE MOVE
04815  M01S04124.pfu     +++|          LMD    PR
04816  M01S04125.pfu     +++|          ZJN    PBF20       IF NO STORAGE MOVE
04817  M01S04126.pfu     +++|          RJM    SAW         SET ABSOLUTE WRITE BUFFER ADDRESSES
04818  M01S04127.pfu     +++| PBF20    RJM    UOP         UPDATE OUT POINTER IN FET
04819  M01S04128.pfu     +++|          LDN    0           CLEAR BEGINNING OF FILE FLAG
04820  M01S04129.pfu     +++|          STM    BEGF,TF
Line S04130 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04821  M02S04130.ns2332  ---|          LJM    PBFX        RETURN
Line S04131 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04822  M02S04131.ns2332  ---|
Line S04132 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
04823  M02S04132.ns2332  ---| PBFB     VFD    12/FNSS+5*77  LOOP TERMINATION VALUE
04824  M01S00018.ns2332  +++| PBF21    LJM    PBFX        RETURN
04825  M01S04133.pfu     +++| PCA      SPACE  4,10
04826  M01S04134.pfu     +++|**        PCA - PROCESS *CATS* ADDRESSING.
04827  M01S04135.pfu     +++|*
04828  M01S04136.pfu     +++|*         ENTRY  (CWBA+1 - CWBA+2) = MASS STORAGE ADDRESS.
04829  M01S04137.pfu     +++|*
04830  M01S04138.pfu     +++|*         EXIT   (T6 - T7) = MASS STORAGE ADDRESS (IF PRESENT).
04831  M01S04139.pfu     +++|*                (FS+2 - FS+3) = MASS STORAGE ADDRESS (IF PRESENT).
04832  M01S04140.pfu     +++|*
04833  M01S04141.pfu     +++|*         USES   FS+2, FS+3, T6, T7.
04834  M01S04142.pfu     +++|
04835  M01S04143.pfu     +++|
04836  M01S04144.pfu     +++| PCA      SUBR               ENTRY/EXIT
04837  M01S04145.pfu     +++|          LDM    CWBA+1
04838  M01S04146.pfu     +++|          ZJN    PCAX        RETURN IF TRACK NOT PRESENT
04839  M01S04147.pfu     +++|
04840  M01S04148.pfu     +++|*         SET UP DIRECT CELLS.
04841  M01S04149.pfu     +++|
04842  M01S04150.pfu     +++|          STD    T6          SET TRACK
04843  M01S04151.pfu     +++|          STD    FS+2
04844  M01S04152.pfu     +++|          LDM    CWBA+2
04845  M01S04153.pfu     +++|          STD    T7
04846  M01S04154.pfu     +++|          STD    FS+3
04847  M01S04155.pfu     +++|          UJN    PCAX        RETURN
04848  M01S04156.pfu     +++| PCF      SPACE  4,15
04849  M01S04157.pfu     +++|**        PCF - POSITION CATALOG FILE.
04850  M01S04158.pfu     +++|*
04851  M01S04159.pfu     +++|*         ENTRY  (IR+3 - IR+4) = CATALOG FILE FET ADDRESS.
04852  M01S04160.pfu     +++|*                (FET+FTCA) = 24/,18/PFD,18/AUI.
04853  M01S04161.pfu     +++|*                             PFD = ADDRESS OF PF DESCRIPTION WORD.
04854  M01S04162.pfu     +++|*                             AUI = ADDRESS OF USER INDEX.
04855  M01S00158.ns22000 +++|*T PFD    42/ NAME, 6/, 12/ EST ORDINAL
Figure PFD

01112171829 EST ORDINAL NAME3059 NAME

04856  M01S04163.pfu     +++|*
04857  M01S04164.pfu     +++|*         EXIT   CATALOG FILE POSITIONED FOR THE SPECIFIED USER INDEX.
04858  M01S04165.pfu     +++|*
04859  M01S04166.pfu     +++|*         USES   T7, P1 - P5.
04860  M01S04167.pfu     +++|*
04861  M01S04168.pfu     +++|*         CALLS  CIO, PIO, SCT.
04862  M01S04169.pfu     +++|*
04863  M01S04170.pfu     +++|*         MACROS FETA.
04864  M01S04171.pfu     +++|
04865  M01S04172.pfu     +++|
04866  M01S04173.pfu     +++| PCF      SUBR               ENTRY/EXIT
04867  M01S04174.pfu     +++|          RJM    PIO         PRESET I/O
04868  M01S04175.pfu     +++|          FETA   FTCA        READ PARAMETER WORD
04869  M01S04176.pfu     +++|          CRD    P1
04870  M01S04177.pfu     +++|          RJM    SCT         SET CATALOG TRACK
04871  M01S04178.pfu     +++|          LDN    0           SET FIRST SECTOR
04872  M01S04179.pfu     +++|          STD    T7
04873  M01S04180.pfu     +++|          STM    SSCC+1      CLEAR SECTOR COUNTER
04874  M01S04181.pfu     +++|          RJM    CIO         COMPLETE I/O
04875  M01S04182.pfu     +++|          UJN    PCFX        RETURN
04876  M01S04183.pfu     +++| PCR      SPACE  4,10
04877  M01S04184.pfu     +++|**        PCR - PROCESS CATALOG READ.
04878  M01S04185.pfu     +++|*
04879  M01S04186.pfu     +++|*         EXIT   CATALOGS READ TO CENTRAL.
04880  M01S04187.pfu     +++|*
04881  M01S04188.pfu     +++|*         CALLS  LDB, SRR.
04882  M01S04189.pfu     +++|*
04883  M01S04190.pfu     +++|*         MACROS ENDMS, SETMS.
04884  M01S04191.pfu     +++|
04885  M01S04192.pfu     +++|
04886  M01S04193.pfu     +++| PCR      SUBR               ENTRY/EXIT
04887  M01S04194.pfu     +++|          LDM    LDBM        BYPASS FILE LENGTH CHECKING
04888  M01S04195.pfu     +++|          STM    LDBC
04889  M01S04196.pfu     +++|
04890  M01S04197.pfu     +++|*         READ CATALOGS.
04891  M01S04198.pfu     +++|
04892  M01S04199.pfu     +++|          RJM    SRR         SET RELATIVE READ BUFFER ADDRESSES
Line S04200 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04893  M02S04200.242l642 ---|          SETMS  READ
Line S00171 Modification History
M01 (Added by) 242l642
M02 (Updated by) pfu10
Seq #  *Modification Id* Act 
----------------------------+
04894  M02S00171.pfu10   ---|          SETMS  IO
04895  M01S00003.pfu10   +++|          SETMS  READSTR
04896  M01S04201.pfu     +++|          RJM    LDB         LOAD BUFFER
04897  M01S04202.pfu     +++|          ENDMS
04898  M01S04203.pfu     +++|          UJN    PCRX        RETURN
04899  M01S04204.pfu     +++| PCW      SPACE  4,10
04900  M01S04205.pfu     +++|**        PCW - PROCESS CATALOG WRITE.
04901  M01S04206.pfu     +++|*
04902  M01S04207.pfu     +++|*         ENTRY  (T4 - T7) = CATALOG FILE MASS STORAGE PARAMETERS.
04903  M01S04208.pfu     +++|*
04904  M01S04209.pfu     +++|*         EXIT   (T4 - T7) = UPDATED CATALOG FILE MASS STORAGE
04905  M01S04210.pfu     +++|*                            PARAMETERS.
04906  M01S04211.pfu     +++|*                CATALOG DATA WRITTEN TO MASS STORAGE.
04907  M01S04212.pfu     +++|*
Line S04213 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04908  M02S04213.242l642 ---|*         CALLS  EMB, PCA, RCW, SSC, WEI.
04909  M01S00172.242l642 +++|*         CALLS  EMB, PCA, RCW, SSC, SWE, WEI.
04910  M01S04214.pfu     +++|*
04911  M01S04215.pfu     +++|*         MACROS ENDMS.
04912  M01S04216.pfu     +++|
04913  M01S04217.pfu     +++|
04914  M01S04218.pfu     +++| PCW2     ENDMS
04915  M01S04219.pfu     +++| PCW3     LDN    0           CLEAR SECTOR COUNTER
04916  M01S04220.pfu     +++|          STM    SSCC,TF
04917  M01S04221.pfu     +++|
04918  M01S04222.pfu     +++| PCW      SUBR               ENTRY/EXIT
04919  M01S04223.pfu     +++|          RJM    SSC         SET SECTOR COUNT
04920  M01S04224.pfu     +++|          LDD    P2
04921  M01S04225.pfu     +++|          ZJN    PCW3        IF NO SECTORS
04922  M01S04226.pfu     +++|
04923  M01S04227.pfu     +++|*         WRITE CATALOG SECTORS.
04924  M01S04228.pfu     +++|
04925  M01S04229.pfu     +++| PCW1     RJM    RCW         READ BUFFER CONTROL WORD
04926  M01S04230.pfu     +++|          RJM    PCA         PROCESS CATALOG ADDRESSING
04927  M01S04231.pfu     +++|          RJM    EMB         EMPTY BUFFER
04928  M01S04232.pfu     +++|          NJN    PCW1        IF DATA LEFT IN BUFFER
04929  M01S04233.pfu     +++|          LDM    BEGF,TF
04930  M01S04234.pfu     +++|          NJN    PCW2        IF EOI ALREADY WRITTEN
04931  M01S04235.pfu     +++|          LDM    CWBA        CHECK FOR REWRITE REQUEST
04932  M01S04236.pfu     +++|          SHN    21-5
04933  M01S04237.pfu     +++|          MJN    PCW2        IF REWRITE REQUEST
04934  M01S04238.pfu     +++|          RJM    WEI         WRITE EOI
Line S04239 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04935  M02S04239.242l642 ---|          UJN    PCW2        DROP CHANNEL
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  M01S04240.pfu     +++| PDF      SPACE  4,30
04940  M01S04241.pfu     +++|**        PDF - POSITION DATA FILE.
04941  M01S04242.pfu     +++|*
04942  M01S04243.pfu     +++|*         ENTRY  (IR+3 - IR+4) = DATA FILE FET ADDRESS.
Line S04244 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04943  M02S04244.242l642 ---|*                (FET+FTPM) = 24/,12/TF,12/TK,1/F,11/PM.
04944  M01S00176.242l642 +++|*                (FET+FTPM) = 36/,12/TK,1/F,11/PM.
04945  M01S04245.pfu     +++|*                     F = 0 IF *TRACK AND SECTOR POSITION* REQUEST.
Line S04246 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04946  M02S04246.242l642 ---|*                         TF = IGNORED.
04947  M01S04247.pfu     +++|*                         TK = TRACK NUMBER.
04948  M01S04248.pfu     +++|*                         PM = SECTOR NUMBER.
04949  M01S04249.pfu     +++|*                         FILE IS POSITIONED TO THE PRU PRECEDING THE
04950  M01S04250.pfu     +++|*                         SPECIFIED TRACK AND SECTOR.
Line S04251 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04951  M02S04251.242l642 ---|*                     F = 1 IF *DROP AND FLAW TRACKS* REQUEST.
Line S04252 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04952  M02S04252.242l642 ---|*                         TF = 0 IF NO TRACK TO FLAW.
Line S04253 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04953  M02S04253.242l642 ---|*                            = TRACK TO FLAW, OTHERWISE.
04954  M01S00177.242l642 +++|*                     F = 1 IF *DROP TRACKS* REQUEST.
04955  M01S04254.pfu     +++|*                         TK = FIRST TRACK TO BE DROPPED.
Line S04255 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04956  M02S04255.ns22000 ---|*                         PM = 5/,6/EQUIPMENT.
04957  M01S00159.ns22000 +++|*                         PM = EST ORDINAL.
Line S04256 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04958  M02S04256.242l642 ---|*                         THE SPECIFIED TRACK CHAIN IS DROPPED AND A
Line S04257 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04959  M02S04257.242l642 ---|*                         TRACK IS OPTIONALLY FLAWED.
04960  M01S00178.242l642 +++|*                         THE SPECIFIED TRACK CHAIN IS DROPPED.
04961  M01S04258.pfu     +++|*
04962  M01S04259.pfu     +++|*                (DA) = 0 IF DATA FILE SET FOR IAPF.
04963  M01S04260.pfu     +++|*                     = NON-ZERO IF DATA FILE SET FOR DAPF.
04964  M01S04261.pfu     +++|*
04965  M01S04262.pfu     +++|*         EXIT   (DA) = 0.
04966  M01S04263.pfu     +++|*                (BEGF) = 1.
04967  M01S04264.pfu     +++|*                DATA FILE SET FOR IAPF.
04968  M01S04265.pfu     +++|*                ERROR EXIT TAKEN IF RANDOM ADDRESS NOT ON FILE.
04969  M01S04266.pfu     +++|*
Line S04267 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04970  M02S04267.242l642 ---|*         USES   P1 - P5, T5 - T6.
04971  M01S00179.242l642 +++|*         USES   P1 - P5, T5 - T7.
04972  M01S04268.pfu     +++|*
04973  M01S04269.pfu     +++|*         CALLS  CIO, DFT, EDF, PIO, SDS, STE, TSP, VME.
04974  M01S04270.pfu     +++|*
04975  M01S04271.pfu     +++|*         MACROS ERROR, FETA.
04976  M01S04272.pfu     +++|
04977  M01S04273.pfu     +++|
04978  M01S04274.pfu     +++| PDF2     ERROR  ECPAR       PROCESS PARAMETER ERROR
04979  M01S04275.pfu     +++|
04980  M01S04276.pfu     +++| PDF3     RJM    TSP         PROCESS *TRACK AND SECTOR POSITION*
04981  M01S04277.pfu     +++|          MJN    PDF2        IF ADDRESS NOT ON FILE
04982  M01S04278.pfu     +++|          RJM    STE         SET EOI IN TRT
04983  M01S04279.pfu     +++| PDF4     RJM    SDS         SAVE DATA FILE STATE
04984  M01S04280.pfu     +++|          RJM    CIO         COMPLETE I/O
04985  M01S04281.pfu     +++|
04986  M01S04282.pfu     +++| PDF      SUBR               ENTRY/EXIT
04987  M01S04283.pfu     +++|          RJM    PIO         PRESET I/O
04988  M01S04284.pfu     +++|          LDD    DA
04989  M01S04285.pfu     +++|          ZJN    PDF1        IF NOT DIRECT ACCESS FILE
04990  M01S04286.pfu     +++|          RJM    EDF         END DIRECT ACCESS FILE
04991  M01S04287.pfu     +++| PDF1     LDN    1           SET BEGINNING OF FILE FLAG
04992  M01S04288.pfu     +++|          STM    BEGF
04993  M01S04289.pfu     +++|          FETA   FTPM        READ PARAMETER WORD
04994  M01S04290.pfu     +++|          CRD    P1
04995  M01S04291.pfu     +++|          LDD    P5          CHECK REQUEST TYPE
04996  M01S04292.pfu     +++|          SHN    21-13
04997  M01S04293.pfu     +++|          PJN    PDF3        IF *TRACK AND SECTOR POSITION* REQUEST
Line S04294 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04998  M02S04294.ns22000 ---|          LDN    P5          VALIDATE EQUIPMENT NUMBER
04999  M01S00160.ns22000 +++|          LDN    P5          VALIDATE EST ORDINAL
05000  M01S04295.pfu     +++|          RJM    VME
Line S04296 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05001  M02S04296.242l642 ---|          LDD    P3          SET TRACK TO FLAW
Line S04297 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05002  M02S04297.242l642 ---|          STD    T6
05003  M01S04298.pfu     +++|          LDD    P4          SET FIRST TRACK TO DROP
Line S04299 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05004  M02S04299.242l642 ---|          RJM    DFT         DROP AND FLAW TRACKS
05005  M01S00180.242l642 +++|          RJM    DFT         DROP TRACKS
Line S04300 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05006  M02S04300.ns22000 ---|          LDD    FS          RESTORE IAPF EQUIPMENT
Line S04301 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05007  M02S04301.ns22000 ---|          LPN    77
05008  M01S00161.ns22000 +++|          LDD    FS          RESTORE IAPF EST ORDINAL
05009  M01S04302.pfu     +++|          STD    T5
05010  M01S04303.pfu     +++|          LDD    FS+2        RESTORE IAPF CURRENT TRACK
05011  M01S04304.pfu     +++|          STD    T6
05012  M01S00181.242l642 +++|          LDD    FS+3        RESTORE IAPF CURRENT SECTOR
05013  M01S00182.242l642 +++|          STD    T7
05014  M01S04305.pfu     +++|          LJM    PDF4        SAVE DATA FILE STATE
05015  M01S04306.pfu     +++| PDW      SPACE  4,20
05016  M01S04307.pfu     +++|**        PDW - PROCESS DATA WRITE.
05017  M01S04308.pfu     +++|*
05018  M01S04309.pfu     +++|*         ENTRY  (T4 - T7) = MASS STORAGE PARAMETERS FOR FILE BEING
05019  M01S04310.pfu     +++|*                            PROCESSED.
05020  M01S04311.pfu     +++|*                (BEGF+(TF)) = 0 IF NOT START OF FILE.
05021  M01S04312.pfu     +++|*                            = NON-ZERO IF START OF FILE.
05022  M01S04313.pfu     +++|*                (DA) = 0 IF START OF FILE OR MIDDLE OF IAPF.
05023  M01S04314.pfu     +++|*                     = NON-ZERO IF MIDDLE OF DAPF.
05024  M01S04315.pfu     +++|*
05025  M01S04316.pfu     +++|*         EXIT   (T4 - T7) = UPDATED MASS STORAGE PARAMETERS.
05026  M01S04317.pfu     +++|*                (BEGF+(TF)) = 0 IF AT END OF PERMANENT FILE.
05027  M01S04318.pfu     +++|*                            = NON-ZERO IF IN MIDDLE OF PERMANENT FILE.
05028  M01S04319.pfu     +++|*                (DA) = 0 IF END OF PERMANENT FILE OR MIDDLE OF IAPF.
05029  M01S04320.pfu     +++|*                     = NON-ZERO IF IN MIDDLE OF DAPF.
05030  M01S04321.pfu     +++|*                DATA IN BUFFER WRITTEN TO MASS STORAGE.
05031  M01S04322.pfu     +++|*
Line S04323 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05032  M02S04323.242l642 ---|*         CALLS  EMB, PBF, PEF, RCW, SSC, STE, WEI.
05033  M01S00183.242l642 +++|*         CALLS  EMB, PBF, PEF, RCW, SSC, STE, SWE, WEI.
05034  M01S04324.pfu     +++|*
05035  M01S04325.pfu     +++|*         MACROS ENDMS.
05036  M01S04326.pfu     +++|
05037  M01S04327.pfu     +++|
05038  M01S04328.pfu     +++|*         PROCESS END OF PERMANENT FILE.
05039  M01S04329.pfu     +++|
05040  M01S04330.pfu     +++| PDW4     LDM    BEGF,TF
05041  M01S04331.pfu     +++|          ZJN    PDW5        IF EOI NOT WRITTEN
Line S04332 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05042  M02S04332.242l642 ---|          ENDMS
05043  M01S00184.242l642 +++| PDW4.1   ENDMS
05044  M01S04333.pfu     +++|          LDN    1           SELECT IAPF PROCESSING
05045  M01S04334.pfu     +++|          RJM    PEF         PROCESS END OF FILE
05046  M01S04335.pfu     +++|          UJN    PDWX        RETURN
05047  M01S04336.pfu     +++|
05048  M01S04337.pfu     +++|*         PROCESS EMPTY BUFFER.
05049  M01S04338.pfu     +++|
05050  M01S04339.pfu     +++| PDW5     RJM    WEI         FORCE EOI SECTOR
Line S04340 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05051  M02S04340.242l642 ---|          ENDMS
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  M01S04341.pfu     +++|          RJM    STE         SET EOI IN TRT
05058  M01S04342.pfu     +++|
05059  M01S04343.pfu     +++| PDW      SUBR               ENTRY/EXIT
05060  M01S04344.pfu     +++|          RJM    SSC         SET SECTOR COUNT
05061  M01S04345.pfu     +++|          LDD    P2
05062  M01S04346.pfu     +++|          ZJN    PDWX        IF NO DATA IN BUFFER
05063  M01S04347.pfu     +++|          RJM    RCW         READ BUFFER CONTROL WORD
05064  M01S04348.pfu     +++| PDW1     RJM    PBF         PROCESS BEGINNING OF FILE
05065  M01S04349.pfu     +++|          NJN    PDW4        IF ERROR
05066  M01S04350.pfu     +++|          LDD    P2
05067  M01S04351.pfu     +++|          NJN    PDW2        IF DATA IN BUFFER
05068  M01S04352.pfu     +++|          RJM    SSC         SET SECTOR COUNT
05069  M01S04353.pfu     +++|          LDD    P2
05070  M01S04354.pfu     +++|          ZJN    PDW5        IF NO DATA IN BUFFER
05071  M01S04355.pfu     +++| PDW2     RJM    EMB         EMPTY BUFFER
05072  M01S04356.pfu     +++|          NJN    PDW3        IF BUFFER NOT EMPTY
05073  M01S04357.pfu     +++|          LJM    PDW4        PROCESS END OF PERMANENT FILE
05074  M01S04358.pfu     +++|
05075  M01S04359.pfu     +++| PDW3     ENDMS
05076  M01S04360.pfu     +++|          RJM    RCW         READ BUFFER CONTROL WORD
05077  M01S04361.pfu     +++|          LDM    CWBA+3
05078  M01S04362.pfu     +++|          RJM    PEF         PROCESS END OF FILE
05079  M01S04363.pfu     +++|          UJN    PDW1        PROCESS NEXT FILE
05080  M01S04364.pfu     +++| PEF      SPACE  4,30
05081  M01S04365.pfu     +++|**        PEF - PROCESS END OF PERMANENT FILE.
05082  M01S04366.pfu     +++|*
05083  M01S04367.pfu     +++|*         ENTRY  (A) = 0 IF NO IAPF PROCESSING DESIRED.
05084  M01S04368.pfu     +++|*                    = NON-ZERO IF IAPF PROCESSING DESIRED.
05085  M01S04369.pfu     +++|*                (DA) = 0 IF PROCESSING IAPF.
05086  M01S04370.pfu     +++|*                     = NON-ZERO IF PROCESSING DAPF.
05087  M01S04371.pfu     +++|*                (T4 - T7) = MASS STORAGE PARAMETERS FOR FILE BEING
05088  M01S04372.pfu     +++|*                            PROCESSED.
05089  M01S04373.pfu     +++|*                (FS - FS+3) = FILE PARAMETERS.
05090  M01S04374.pfu     +++|*                (DLSA - DLSA+4) = MASS STORAGE PARAMETERS FOR IAPF
05091  M01S04375.pfu     +++|*                                  CHAIN.
05092  M01S04376.pfu     +++|*                (DN) = RESIDENCY DEVICE OF FILE BEING PROCESSED.
05093  M01S04377.pfu     +++|*
05094  M01S04378.pfu     +++|*         EXIT   (DA) = 0.
05095  M01S04379.pfu     +++|*                (T4 - T7) = MASS STORAGE PARAMETERS FOR IAPF CHAIN.
05096  M01S04380.pfu     +++|*                (FS - FS+3) = FILE PARAMETERS FOR IAPF CHAIN.
05097  M01S04381.pfu     +++|*                (DN) = DEVICE NUMBER FOR IAPF CHAIN.
05098  M01S04382.pfu     +++|*                EOI SET IN TRT FOR DAPF AND FOR IAPF IF IAPF
05099  M01S04383.pfu     +++|*                PROCESSING WAS SELECTED.
05100  M01S04384.pfu     +++|*
05101  M01S04385.pfu     +++|*         CALLS  EDF, STE.
05102  M01S04386.pfu     +++|
05103  M01S04387.pfu     +++|
05104  M01S04388.pfu     +++| PEF      SUBR               ENTRY/EXIT
05105  M01S04389.pfu     +++|          ADD    DA
05106  M01S04390.pfu     +++|          ZJN    PEFX        IF IAPF BUT NO IAPF PROCESSING WANTED
05107  M01S04391.pfu     +++|          RJM    STE         SET EOI IN TRT
05108  M01S04392.pfu     +++|          LDD    DA
05109  M01S04393.pfu     +++|          ZJN    PEFX        IF PROCESSING IAPF
05110  M01S04394.pfu     +++|          RJM    EDF         END DIRECT ACCESS FILE
05111  M01S04395.pfu     +++|          UJN    PEFX        RETURN
05112  M01S04396.pfu     +++| PIO      SPACE  4,15
05113  M01S04397.pfu     +++|**        PIO - PRESET I/O.
05114  M01S04398.pfu     +++|*
05115  M01S04399.pfu     +++|*         SET SECTOR COUNT AND DIRECT CELLS FOR READ OR WRITE.
05116  M01S04400.pfu     +++|*
05117  M01S04401.pfu     +++|*         ENTRY  (IR+3 - IR+4) = VALIDATED FET ADDRESS.
05118  M01S04402.pfu     +++|*
05119  M01S04403.pfu     +++|*         EXIT   (FA) = FNT ADDRESS OF FILE.
05120  M01S04404.pfu     +++|*                (FS - FS+4) = FST ENTRY FOR FILE.
Line S04405 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05121  M02S04405.ns22000 ---|*                (T5) = EQUIPMENT.
05122  M01S00162.ns22000 +++|*                (T5) = EST ORDINAL.
05123  M01S04406.pfu     +++|*                (T6) = CURRENT TRACK.
05124  M01S04407.pfu     +++|*                (T7) = CURRENT SECTOR.
05125  M01S04408.pfu     +++|*
05126  M01S04409.pfu     +++|*         USES   T6 - T7.
05127  M01S04410.pfu     +++|*
05128  M01S04411.pfu     +++|*         CALLS  FFE, SBA, SRW, VME.
05129  M01S04412.pfu     +++|
05130  M01S04413.pfu     +++|
05131  M01S04414.pfu     +++| PIO      SUBR               ENTRY/EXIT
05132  M01S04415.pfu     +++|          LDN    0           SELECT NORMAL PROCESSING
05133  M01S04416.pfu     +++|          RJM    FFE         FIND FNT ENTRY
Line S04417 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05134  M02S04417.ns22000 ---|          LDN    FS          ADDRESS OF EQUIPMENT NUMBER
05135  M01S00163.ns22000 +++|          LDN    FS          ADDRESS OF EST ORDINAL
Line S04418 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05136  M02S04418.ns22000 ---|          RJM    VME         VALIDATE THAT MASS STORAGE EQUIPMENT
05137  M01S00164.ns22000 +++|          RJM    VME         VALIDATE MASS STORAGE EST ORDINAL
05138  M01S04419.pfu     +++|          LDD    FS+2        SET TRACK
05139  M01S04420.pfu     +++|          STD    T6
05140  M01S04421.pfu     +++|          LDD    FS+3        SET SECTOR
05141  M01S04422.pfu     +++|          STD    T7
05142  M01S04423.pfu     +++|          RJM    SBA         SET BUFFER ADDRESSES
05143  M01S04424.pfu     +++|          RJM    SRW         SET RELATIVE WRITE BUFFER ADDRESSES
Line S04425 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05144  M02S04425.ns22000 ---|          LJM    PIOX        RETURN
05145  M01S00165.ns22000 +++|          UJN    PIOX        RETURN
05146  M01S04426.pfu     +++| PPF      SPACE  4,20
05147  M01S04427.pfu     +++|**        PPF - POSITION PERMIT FILE.
05148  M01S04428.pfu     +++|*
05149  M01S04429.pfu     +++|*         ENTRY  (IR+3 - IR+4) = PERMIT FILE FET ADDRESS.
05150  M01S04430.pfu     +++|*                (FET+FTPM) = 36/,24/RANDOM PRU NUMBER.
05151  M01S04431.pfu     +++|*
05152  M01S04432.pfu     +++|*         EXIT   PERMIT FILE POSITIONED TO THE SPECIFIED PRU NUMBER.
05153  M01S04433.pfu     +++|*                ERROR EXIT TAKEN IF RANDOM ADDRESS NOT ON FILE.
05154  M01S04434.pfu     +++|*
05155  M01S04435.pfu     +++|*         USES   T6, P1 - P5, RI - RI+1.
05156  M01S04436.pfu     +++|*
05157  M01S04437.pfu     +++|*         CALLS  CIO, CRA, PIO.
05158  M01S04438.pfu     +++|*
05159  M01S04439.pfu     +++|*         MACROS ERROR, FETA.
05160  M01S04440.pfu     +++|
05161  M01S04441.pfu     +++|
05162  M01S04442.pfu     +++| PPF1     RJM    CIO         COMPLETE I/O
05163  M01S04443.pfu     +++|
05164  M01S04444.pfu     +++| PPF      SUBR               ENTRY/EXIT
05165  M01S04445.pfu     +++|          RJM    PIO         PRESET I/O
05166  M01S04446.pfu     +++|          FETA   FTPM        READ PARAMETER WORD
05167  M01S04447.pfu     +++|          CRD    P1
05168  M01S04448.pfu     +++|          LDD    P4          SET RANDOM PRU NUMBER
05169  M01S04449.pfu     +++|          STD    RI
05170  M01S04450.pfu     +++|          LDD    P5
05171  M01S04451.pfu     +++|          STD    RI+1
05172  M01S04452.pfu     +++|          LDD    FS+1        SET FIRST TRACK
05173  M01S04453.pfu     +++|          STD    T6
05174  M01S04454.pfu     +++|          RJM    CRA         CONVERT RANDOM PRU TO TRACK AND SECTOR
05175  M01S04455.pfu     +++|          PJN    PPF1        IF ADDRESS ON FILE
05176  M01S04456.pfu     +++|          ERROR  ECPAR       PROCESS PARAMETER ERROR
05177  M01S04457.pfu     +++| PPW      SPACE  4,15
05178  M01S04458.pfu     +++|**        PPW - PROCESS PERMIT WRITE.
05179  M01S04459.pfu     +++|*
05180  M01S04460.pfu     +++|*         ENTRY  (T4 - T7) = PERMIT FILE MASS STORAGE PARAMETERS.
05181  M01S04461.pfu     +++|*
05182  M01S04462.pfu     +++|*         EXIT   (T4 - T7) = UPDATED PERMIT FILE MASS STORAGE
05183  M01S04463.pfu     +++|*                            PARAMETERS.
05184  M01S04464.pfu     +++|*                DATA IN BUFFER WRITTEN TO MASS STORAGE.
05185  M01S04465.pfu     +++|*
Line S04466 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05186  M02S04466.242l642 ---|*         CALLS  EMB, SSC, STE, WEI.
05187  M01S00190.242l642 +++|*         CALLS  EMB, SSC, STE, SWE, WEI.
05188  M01S04467.pfu     +++|*
05189  M01S04468.pfu     +++|*         MACROS ENDMS.
05190  M01S04469.pfu     +++|
05191  M01S04470.pfu     +++|
05192  M01S04471.pfu     +++| PPW      SUBR               ENTRY/EXIT
05193  M01S04472.pfu     +++|          RJM    SSC         SET SECTOR COUNT
05194  M01S04473.pfu     +++|          LDD    P2
05195  M01S04474.pfu     +++|          ZJN    PPWX        IF NO DATA IN BUFFER
05196  M01S04475.pfu     +++| PPW1     RJM    EMB         EMPTY BUFFER
05197  M01S04476.pfu     +++|          NJN    PPW1        IF BUFFER NOT EMPTY
05198  M01S04477.pfu     +++|          LDM    BEGF,TF
05199  M01S04478.pfu     +++|          NJN    PPW2        IF EOI ALREADY WRITTEN
05200  M01S04479.pfu     +++|          RJM    WEI         FORCE EOI
05201  M01S00191.242l642 +++|          PJN    PPW2        IF NO ERROR
05202  M01S00192.242l642 +++|          RJM    SWE         SET WRITE ERROR STATUS
05203  M01S04480.pfu     +++| PPW2     ENDMS
05204  M01S04481.pfu     +++|          RJM    STE         SET EOI IN TRT
05205  M01S04482.pfu     +++|          UJN    PPWX        RETURN
05206  M01S04483.pfu     +++| PWE      SPACE  4,20
05207  M01S04484.pfu     +++|**        PWE - PROCESS WRITE ERROR.
05208  M01S04485.pfu     +++|*
05209  M01S04486.pfu     +++|*         ENTRY  (A) = ERROR CODE.
05210  M01S04487.pfu     +++|*                (P2) = SECTOR COUNT.
05211  M01S04488.pfu     +++|*                (TF) = TYPE OF FILE.
05212  M01S04489.pfu     +++|*                (FS - FS+4) = FST ENTRY.
05213  M01S04490.pfu     +++|*                (T6 - T7) = CURRENT MASS STORAGE POSITION.
05214  M01S00193.242l642 +++|*                (RDCT) = DRIVER STATUS IF WRITE MASS STORAGE ERROR
05215  M01S00194.242l642 +++|*                         OCCURRED.
05216  M01S04491.pfu     +++|*
05217  M01S04492.pfu     +++|*         EXIT   (BEGF+(TF)) = 1.
05218  M01S04493.pfu     +++|*                (FS - FS+4) = UPDATED FST ENTRY.
05219  M01S04494.pfu     +++|*                (FET+FTPM) = UPDATED FST ENTRY.
05220  M01S04495.pfu     +++|*                (SSC+(TF)) = SET TO REFLECT AMOUNT OF DATA IN BUFFER.
05221  M01S04496.pfu     +++|*                WRITE ERROR CODE SET IN FET.
05222  M01S04497.pfu     +++|*
05223  M01S04498.pfu     +++|*         USES   FS+2, FS+3, T1, CM - CM+4.
05224  M01S04499.pfu     +++|*
05225  M01S04500.pfu     +++|*         MACROS FETA.
05226  M01S04501.pfu     +++|
05227  M01S04502.pfu     +++|
05228  M01S04503.pfu     +++| PWE      SUBR               ENTRY/EXIT
05229  M01S04504.pfu     +++|          STD    T1          SAVE ERROR CODE
Line S04505 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05230  M02S04505.242l642 ---|          LDM    SSCC,TF     RESET SECTOR COUNTER
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  M01S04506.pfu     +++|          SBD    P2
05240  M01S04507.pfu     +++|          PJN    PWE1        IF THRESHOLD WAS NOT REACHED
05241  M01S04508.pfu     +++|          ADC    4000        ADD THRESHOLD
05242  M01S04509.pfu     +++| PWE1     STM    SSCC,TF
05243  M01S04510.pfu     +++|          FETA               SET ERROR CODE IN FET
05244  M01S04511.pfu     +++|          CRD    CM
05245  M01S04512.pfu     +++|          LDD    CM+3
05246  M01S04513.pfu     +++|          SCN    77
05247  M01S04514.pfu     +++|          LMD    T1
05248  M01S04515.pfu     +++|          STD    CM+3
05249  M01S04516.pfu     +++|          FETA
05250  M01S04517.pfu     +++|          CWD    CM
05251  M01S04518.pfu     +++|          LDN    1           SET EOI FLAG
05252  M01S04519.pfu     +++|          STM    BEGF,TF
05253  M01S04520.pfu     +++|          LDD    T6          SET CURRENT TRACK
05254  M01S04521.pfu     +++|          STD    FS+2
05255  M01S04522.pfu     +++|          LDD    T7          SET CURRENT SECTOR
05256  M01S04523.pfu     +++|          STD    FS+3
05257  M01S04524.pfu     +++|          FETA   FTPM        WRITE FST ENTRY TO FET
05258  M01S04525.pfu     +++|          CWD    FS
05259  M01S04526.pfu     +++|          LJM    PWEX        RETURN
05260  M01S04527.pfu     +++| RBA      SPACE  4,20
05261  M01S04528.pfu     +++|**        RBA - RETURN BEGINNING ADDRESS.
05262  M01S04529.pfu     +++|*
05263  M01S04530.pfu     +++|*         SET FILE BEGINNING TRACK AND SECTOR IN CATALOG ENTRY.
05264  M01S04531.pfu     +++|*
05265  M01S04532.pfu     +++|*         ENTRY  (CWBA - CWBA+1) = ADDRESS OF CATALOG ENTRY.
05266  M01S04533.pfu     +++|*                (DA) = DIRECT ACCESS FILE FLAG.
05267  M01S04534.pfu     +++|*
05268  M01S04535.pfu     +++|*         EXIT   ADDRESS WRITTEN TO CATALOG ENTRY IN CENTRAL.
05269  M01S04536.pfu     +++|*
05270  M01S04537.pfu     +++|*         USES   CM - CM+4, T0 - T1.
05271  M01S04538.pfu     +++|
05272  M01S04539.pfu     +++|
05273  M01S04540.pfu     +++| RBA      SUBR               ENTRY/EXIT
05274  M01S04541.pfu     +++|
05275  M01S04542.pfu     +++|*         READ SECOND WORD OF CATALOG.
05276  M01S04543.pfu     +++|
05277  M01S04544.pfu     +++|          LDM    CWBA
05278  M01S04545.pfu     +++|          LPN    37
05279  M01S04546.pfu     +++|          SHN    6
05280  M01S04547.pfu     +++|          ADD    RA
05281  M01S04548.pfu     +++|          SHN    6
05282  M01S04549.pfu     +++|          ADM    CWBA+1
05283  M01S04550.pfu     +++|          ADN    1
05284  M01S04551.pfu     +++|          CRD    CM
05285  M01S04552.pfu     +++|          STD    T1          SAVE CENTRAL ADDRESS
05286  M01S04553.pfu     +++|          SHN    -14
05287  M01S04554.pfu     +++|          STD    T0
05288  M01S04555.pfu     +++|
05289  M01S04556.pfu     +++|*         UPDATE TRACK AND SECTOR.
05290  M01S04557.pfu     +++|
05291  M01S04558.pfu     +++|          LDD    T6          SET TRACK AND SECTOR
05292  M01S04559.pfu     +++|          STD    CM+3
05293  M01S04560.pfu     +++|          LDD    DA
05294  M01S04561.pfu     +++|          NJN    RBA1        IF DAPF
05295  M01S04562.pfu     +++|          LDD    T7
05296  M01S04563.pfu     +++|          STD    CM+4
05297  M01S04564.pfu     +++|
05298  M01S04565.pfu     +++|*         WRITE UPDATED CATALOG BACK TO CENTRAL.
05299  M01S04566.pfu     +++|
05300  M01S04567.pfu     +++| RBA1     LDD    T0          WRITE TO CENTRAL
05301  M01S04568.pfu     +++|          SHN    14
05302  M01S04569.pfu     +++|          ADD    T1
05303  M01S04570.pfu     +++|          CWD    CM
Line S04571 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05304  M02S04571.ns22000 ---|          LJM    RBAX        RETURN
05305  M01S00166.ns22000 +++|          UJN    RBAX        RETURN
05306  M01S04572.pfu     +++| RCB      SPACE  4,20
05307  M01S04573.pfu     +++|**        RCB - READ CENTRAL MEMORY BUFFER.
05308  M01S04574.pfu     +++|*
05309  M01S04575.pfu     +++|*         ENTRY  (P1) = SECTOR LENGTH IN CM WORDS.
05310  M01S04576.pfu     +++|*                (OT - OT+1) = OUT POINTER.
05311  M01S04577.pfu     +++|*                SUB-ROUTINES *SAW* AND *SRW* EXECUTED PRIOR TO THE
05312  M01S04578.pfu     +++|*                FIRST ENTRY OR ANY ENTRY SUBSEQUENT TO A PAUSE.
05313  M01S04579.pfu     +++|*
05314  M01S04580.pfu     +++|*         EXIT   (OT - OT+1) = UPDATED OUT POINTER.
05315  M01S04581.pfu     +++|*                (CWBA - BFMS+5*(P1)-3) = SECTOR PRECEEDED BY ITS
05316  M01S04582.pfu     +++|*                                         CONTROL WORD.
05317  M01S04583.pfu     +++|*
05318  M01S04584.pfu     +++|*         USES   T1, T2, OT - OT+1.
Line S04585 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05319  M02S04585.pfu7    ---|*
05320  M01S00009.pfu7    +++|
05321  M01S04586.pfu     +++|
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  M01S04587.pfu     +++| RCB      SUBR               ENTRY/EXIT
05337  M01S04588.pfu     +++|
05338  M01S04589.pfu     +++|*         CHECK FOR BUFFER WRAP.
05339  M01S04590.pfu     +++|
05340  M01S04591.pfu     +++|          LDD    OT          CHECK FOR BUFFER WRAP
05341  M01S04592.pfu     +++|          SHN    14
05342  M01S04593.pfu     +++|          ADD    OT+1
05343  M01S04594.pfu     +++|          ADD    P1
05344  M01S04595.pfu     +++|          ADC    -*
05345  M01S04596.pfu     +++| RCBA     EQU    *-2         (COMPLEMENT OF LIMIT)
05346  M01S00024.pfu7    +++|          MJN    RCB4        IF BUFFER NOT WRAPPED
05347  M01S04597.pfu     +++|          STD    T2          SET SECOND PART WORD COUNT
Line S04598 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05348  M02S04598.pfu7    ---|          PJN    RCB1        IF BUFFER WRAPPED
Line S04599 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05349  M02S04599.pfu7    ---|
Line S04600 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05350  M02S04600.pfu7    ---|*         PROCESS NORMAL SECTOR.
Line S04601 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05351  M02S04601.pfu7    ---|
Line S04602 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05352  M02S04602.pfu7    ---|          LDD    OT          READ BUFFER
Line S04603 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05353  M02S04603.pfu7    ---|          SHN    14
Line S04604 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05354  M02S04604.pfu7    ---|          ADD    OT+1
Line S04605 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05355  M02S04605.pfu7    ---|          ADC    *
Line S04606 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05356  M02S04606.pfu7    ---| RCBB     EQU    *-2         (RA)
Line S04607 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05357  M02S04607.pfu7    ---|          CRM    CWBA,P1
Line S04608 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05358  M02S04608.pfu7    ---|          LDD    P1          UPDATE OUT POINTER
Line S04609 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05359  M02S04609.pfu7    ---|          RAD    OT+1
Line S04610 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05360  M02S04610.pfu7    ---|          SHN    -14
Line S04611 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05361  M02S04611.pfu7    ---|          RAD    OT
Line S04612 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
M03 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05362  M03S04612.pfu7    ---|          UJN    RCBX        RETURN
Line S00167 Modification History
M01 (Added by) ns22000
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05363  M02S00167.pfu7    ---|          UJP    RCBX        RETURN
05364  M01S04613.pfu     +++|
05365  M01S04614.pfu     +++|*         PROCESS WRAP AROUND SECTOR.
05366  M01S04615.pfu     +++|
Line S04616 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05367  M02S04616.pfu7    ---| RCB1     LDD    P1          SET FIRST PART WORD COUNT
05368  M01S00025.pfu7    +++|          LDD    P1          SET FIRST PART WORD COUNT
05369  M01S04617.pfu     +++|          SBD    T2
05370  M01S04618.pfu     +++|          STD    T1
Line S04619 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05371  M02S04619.pfu7    ---|          ZJN    RCB2        IF NO FIRST PART
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  M01S04620.pfu     +++|          LDD    OT          READ FIRST PART OF SECTOR
05377  M01S04621.pfu     +++|          SHN    14
05378  M01S04622.pfu     +++|          ADD    OT+1
05379  M01S04623.pfu     +++|          ADC    *
05380  M01S04624.pfu     +++| RCBC     EQU    *-2         (RA)
05381  M01S04625.pfu     +++|          CRM    CWBA,T1
Line S04626 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05382  M02S04626.pfu7    ---| RCB2     LDD    T2          CHECK SECOND PART LENGTH
05383  M01S00030.pfu7    +++|          LDD    T2          CHECK SECOND PART LENGTH
05384  M01S04627.pfu     +++|          ZJN    RCB3        IF NO SECOND PART
Line S04628 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05385  M02S04628.pfu7    ---|
Line S04629 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05386  M02S04629.pfu7    ---|*         CALCULATE STARTING POINT FOR SECOND PART OF SECTOR
Line S04630 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05387  M02S04630.pfu7    ---|*         WITHIN PP BUFFER.
Line S04631 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05388  M02S04631.pfu7    ---|
Line S04632 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05389  M02S04632.pfu7    ---|          LDD    T1
Line S04633 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05390  M02S04633.pfu7    ---|          SHN    2
Line S04634 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05391  M02S04634.pfu7    ---|          ADD    T1
Line S04635 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05392  M02S04635.pfu7    ---|          ADC    CWBA
Line S04636 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05393  M02S04636.pfu7    ---|          STM    RCBE        SET PP BUFFER ADDRESS TO THIS POINT
05394  M01S04637.pfu     +++|          LDC    *           READ SECOND PARD OF SECTOR
05395  M01S04638.pfu     +++| RCBD     EQU    *-2         (RA + FIRST)
05396  M01S04639.pfu     +++|          CRM    CWBA,T2
05397  M01S04640.pfu     +++| RCBE     EQU    *-1         (PP BUFFER ADDRESS)
Line S04641 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05398  M02S04641.pfu7    ---| RCB3     LDD    T2          UPDATE OUT POINTER
Line S04642 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu7
Seq #  *Modification Id* Act 
----------------------------+
05399  M02S04642.pfu7    ---|          ADC    *
05400  M01S00031.pfu7    +++|          LDD    T2          UPDATE OUT POINTER
05401  M01S00032.pfu7    +++| RCB3     ADC    **
05402  M01S04643.pfu     +++| RCBF     EQU    *-2         (FIRST)
05403  M01S04644.pfu     +++|          STD    OT+1
05404  M01S04645.pfu     +++|          SHN    -14
05405  M01S04646.pfu     +++|          STD    OT
Line S04647 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05406  M02S04647.ns22000 ---|          LJM    RCBX        RETURN
05407  M01S00168.ns22000 +++|          UJP    RCBX        RETURN
05408  M01S04648.pfu     +++| RCW      SPACE  4,10
05409  M01S04649.pfu     +++|**        RCW - READ BUFFER CONTROL WORD.
05410  M01S04650.pfu     +++|*
05411  M01S04651.pfu     +++|*         ENTRY  (OT - OT+1) = ADDRESS OF BUFFER CONTROL WORD.
05412  M01S04652.pfu     +++|*
05413  M01S04653.pfu     +++|*         EXIT   (CWBA - CWBA+4) = BUFFER CONTROL WORD.
05414  M01S04654.pfu     +++|
05415  M01S04655.pfu     +++|
05416  M01S04656.pfu     +++| RCW      SUBR               ENTRY/EXIT
05417  M01S04657.pfu     +++|          LDD    OT          SET BUFFER CONTROL WORD ADDRESS
05418  M01S04658.pfu     +++|          SHN    6
05419  M01S04659.pfu     +++|          ADD    RA
05420  M01S04660.pfu     +++|          SHN    6
05421  M01S04661.pfu     +++|          ADD    OT+1
05422  M01S04662.pfu     +++|          CRM    CWBA,ON     READ BUFFER CONTROL WORD
05423  M01S04663.pfu     +++|          UJN    RCWX        RETURN
05424  M01S04664.pfu     +++| RTK      SPACE  4,20
05425  M01S04665.pfu     +++|**        RTK - REQUEST TRACKS.
05426  M01S04666.pfu     +++|*
05427  M01S04667.pfu     +++|*         ENTRY  (A) = 1/S,5/,12/LT.
05428  M01S04668.pfu     +++|*                      S = SINGLE TRACK REQUEST FLAG.
05429  M01S04669.pfu     +++|*                        = 0 FOR MULTIPLE TRACK REQUEST.
05430  M01S04670.pfu     +++|*                        = 1 FOR SINGLE TRACK REQUEST.
05431  M01S04671.pfu     +++|*                      LT = LINK TRACK.
05432  M01S04672.pfu     +++|*                         = 0 IF TRACKS NOT TO BE LINKED.
05433  M01S04673.pfu     +++|*                         = TRACK NUMBER THAT NEW TRACKS
05434  M01S04674.pfu     +++|*                           ARE TO BE LINKED TO.
Line S04675 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05435  M02S04675.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
05436  M01S00169.ns22000 +++|*                (T5) = EST ORDINAL.
05437  M01S04676.pfu     +++|*
05438  M01S04677.pfu     +++|*         EXIT   (A) = FIRST TRACK ASSIGNED.
05439  M01S04678.pfu     +++|*                    = 0 IF TRACK NOT ASSIGNED.
05440  M01S04679.pfu     +++|*                (T3) = FIRST TRACK ASSIGNED.
05441  M01S04680.pfu     +++|*                PAUSE FOR STORAGE MOVE HAS OCCURRED.
05442  M01S04681.pfu     +++|*                WRITE ERROR PROCESSOR CALLED IF TRACK NOT ASSIGNED.
05443  M01S04682.pfu     +++|*
05444  M01S04683.pfu     +++|*         USES   CM+1 - CM+4, T1 - T3.
05445  M01S04684.pfu     +++|*
05446  M01S04685.pfu     +++|*         CALLS  CLS, C2D, PWE.
05447  M01S04686.pfu     +++|*
05448  M01S04687.pfu     +++|*         MACROS DELAY, MONITOR, PAUSE.
05449  M01S04688.pfu     +++|
05450  M01S04689.pfu     +++|
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  M01S04690.pfu     +++| RTK      SUBR               ENTRY/EXIT
05458  M01S04691.pfu     +++|          STD    T2          SAVE LINK TRACK
05459  M01S04692.pfu     +++|          SHN    -21
05460  M01S04693.pfu     +++| RTK1     STD    T1          SAVE SINGLE TRACK FLAG
05461  M01S04694.pfu     +++|          NJN    RTK2        IF SINGLE TRACK REQUEST
05462  M01S04695.pfu     +++|          LDM    SLM         SET 8 TRACK SECTOR COUNT
05463  M01S04696.pfu     +++|          SHN    3
05464  M01S04697.pfu     +++| RTK2     STD    CM+4        SET SECTOR COUNT
05465  M01S04698.pfu     +++|          SHN    -14
05466  M01S04699.pfu     +++|          STD    CM+3
Line S04700 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05467  M02S04700.ns22000 ---|          LDD    T5          SET EQUIPMENT
05468  M01S00170.ns22000 +++|          LDD    T5          SET EST ORDINAL
05469  M01S04701.pfu     +++|          STD    CM+1
05470  M01S04702.pfu     +++|          LDD    T2          SET TRACK LINK
05471  M01S04703.pfu     +++|          STD    CM+2
05472  M01S04704.pfu     +++|          MONITOR  RTCM      REQUEST TRACK CHAIN
05473  M01S04705.pfu     +++|          LDD    CM+4        SAVE FIRST TRACK ASSIGNED
05474  M01S04706.pfu     +++|          STD    T3
05475  M01S04707.pfu     +++|          PAUSE              PAUSE FOR STORAGE MOVE
05476  M01S04708.pfu     +++|          LDD    T3
05477  M01S04709.pfu     +++|          ZJN    RTK3        IF TRACK NOT ASSIGNED
05478  M01S04710.pfu     +++|          LDN    0           CLEAR EVENT FLAG
05479  M01S04711.pfu     +++|          STM    RTKA
05480  M01S04712.pfu     +++|          LDD    T3          ASSIGNED TRACK
05481  M01S04713.pfu     +++|          LJM    RTKX        RETURN
05482  M01S04714.pfu     +++|
05483  M01S04715.pfu     +++|*         PROCESS TRACK LIMIT.
05484  M01S04716.pfu     +++|
05485  M01S04717.pfu     +++| RTK3     LDD    T1
Line S04718 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05486  M02S04718.ns22000 ---|          ZJN    RTK5        IF NOT SINGLE TRACK REQUEST
05487  M01S00171.ns22000 +++|          ZJP    RTK5        IF NOT SINGLE TRACK REQUEST
05488  M01S04719.pfu     +++|          RJM    CLS         CHECK TRACK LIMIT STATUS
Line S04720 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05489  M02S04720.ns22000 ---|          NJN    RTK6        IF FATAL CONDITION
Line S04721 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05490  M02S04721.ns22000 ---|          LDD    T5          SET EQUIPMENT NUMBER IN MESSAGE
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  M01S04722.pfu     +++|          RJM    C2D
Line S04723 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05495  M02S04723.ns22000 ---|          STM    RTKB+2
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  M01S04724.pfu     +++|          LDD    CP          DISPLAY MESSAGE AT CONTROL POINT
05503  M01S04725.pfu     +++|          ADN    MS2W
05504  M01S04726.pfu     +++|          CWM    RTKB,TR
05505  M01S04727.pfu     +++|          LDC    0           EVENT NOT ISSUED
05506  M01S04728.pfu     +++|*         LDC    1           (EVENT ALREADY ISSUED)
05507  M01S04729.pfu     +++| RTKA     EQU    *-1
05508  M01S04730.pfu     +++|          NJN    RTK4        IF EVENT ALREADY ISSUED
05509  M01S04731.pfu     +++|          LDN    ZERL        ISSUE TRACK LIMIT EVENT
05510  M01S04732.pfu     +++|          CRD    CM
05511  M01S04733.pfu     +++|          LDN    TKLE        TRACK LIMIT
05512  M01S04734.pfu     +++|          STD    CM+4
05513  M01S04735.pfu     +++|          MONITOR  EATM
05514  M01S04736.pfu     +++| RTK4     DELAY              DELAY 130 MICROSECONDS
05515  M01S04737.pfu     +++| RTK5     LDN    1           SET SINGLE TRACK REQUEST
05516  M01S04738.pfu     +++|          STM    RTKA        SET EVENT FLAG
05517  M01S04739.pfu     +++|          LJM    RTK1        REQUEST SINGLE TRACK
Line S04740 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu5
Seq #  *Modification Id* Act 
----------------------------+
05518  M02S04740.pfu5    ---|
Line S04741 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu5
Seq #  *Modification Id* Act 
----------------------------+
05519  M02S04741.pfu5    ---|*         PROCESS FATAL TRACK LIMIT CONDITION.
Line S04742 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu5
Seq #  *Modification Id* Act 
----------------------------+
05520  M02S04742.pfu5    ---|
Line S04743 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu5
Seq #  *Modification Id* Act 
----------------------------+
05521  M02S04743.pfu5    ---| RTK6     RJM    PWE         PROCESS WRITE ERROR
Line S04744 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu5
Seq #  *Modification Id* Act 
----------------------------+
05522  M02S04744.pfu5    ---|          LDN    0           SET ERROR STATUS
Line S04745 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu5
Seq #  *Modification Id* Act 
----------------------------+
05523  M02S04745.pfu5    ---|          STM    RTKA        CLEAR EVENT FLAG
Line S04746 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu5
Seq #  *Modification Id* Act 
----------------------------+
05524  M02S04746.pfu5    ---|          LJM    RTKX        RETURN
05525  M01S04747.pfu     +++|
Line S04748 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05526  M02S04748.ns22000 ---| RTKB     DATA   C* EQ XX TRACK LIMIT.*
05527  M01S00181.ns22000 +++| RTKB     DATA   C*EQXXX, TRACK LIMIT.*
05528  M01S04749.pfu     +++| SAW      SPACE  4,10
05529  M01S04750.pfu     +++|**        SAW - SET ABSOLUTE WRITE BUFFER ADDRESSES.
05530  M01S04751.pfu     +++|*
05531  M01S04752.pfu     +++|*         ENTRY  (RA) = CURRENT RA.
05532  M01S04753.pfu     +++|*                (FT - FT+1) = BUFFER FIRST ADDRESS.
05533  M01S04754.pfu     +++|*                (IR+3 - IR+4) = FET ADDRESS.
05534  M01S04755.pfu     +++|*
05535  M01S04756.pfu     +++|*         EXIT   (PR) = CURRENT RA.
05536  M01S04757.pfu     +++|*                ABSOLUTE WRITE BUFFER ADDRESSES SET.
05537  M01S04758.pfu     +++|*
05538  M01S04759.pfu     +++|*         USES   PR.
05539  M01S04760.pfu     +++|*
05540  M01S04761.pfu     +++|*         MACROS FETA.
05541  M01S04762.pfu     +++|
05542  M01S04763.pfu     +++|
05543  M01S04764.pfu     +++| SAW      SUBR               ENTRY/EXIT
05544  M01S04765.pfu     +++|          LDD    RA          SAVE CURRENT RA
05545  M01S04766.pfu     +++|          STD    PR
05546  M01S04767.pfu     +++|          SHN    6           SET RA
05547  M01S04768.pfu     +++|          STM    EMBA+1
05548  M01S04769.pfu     +++|          STM    RCBB+1
05549  M01S04770.pfu     +++|          STM    RCBC+1
05550  M01S04771.pfu     +++|          SHN    -14
05551  M01S04772.pfu     +++|          LMC    ADCI
05552  M01S04773.pfu     +++|          STM    EMBA
05553  M01S04774.pfu     +++|          STM    RCBB
05554  M01S04775.pfu     +++|          STM    RCBC
05555  M01S04776.pfu     +++|          LDD    FT          SET RA+FIRST
05556  M01S04777.pfu     +++|          SHN    6
05557  M01S04778.pfu     +++|          ADD    RA
05558  M01S04779.pfu     +++|          SHN    6
05559  M01S04780.pfu     +++|          ADD    FT+1
05560  M01S04781.pfu     +++|          STM    RCBD+1
05561  M01S04782.pfu     +++|          SHN    -14
05562  M01S04783.pfu     +++|          LMC    LDCI
05563  M01S04784.pfu     +++|          STM    RCBD
05564  M01S04785.pfu     +++|          FETA   FTOT        SET RA+FET ADDRESS OF OUT POINTER
05565  M01S04786.pfu     +++|          STM    UOPA+1
05566  M01S00033.pfu7    +++|          STM    EMBB+1
05567  M01S04787.pfu     +++|          SHN    -14
05568  M01S04788.pfu     +++|          LMC    LDCI
05569  M01S04789.pfu     +++|          STM    UOPA
05570  M01S00034.pfu7    +++|          STM    EMBB
05571  M01S04790.pfu     +++|          LJM    SAWX        RETURN
05572  M01S04791.pfu     +++| SDS      SPACE  4,20
05573  M01S04792.pfu     +++|**        SDS - SAVE DATA FILE STATE.
05574  M01S04793.pfu     +++|*
05575  M01S04794.pfu     +++|*         ENTRY  (BEGF) = BEGINNING OF FILE FLAG FOR DATA FILE.
05576  M01S04795.pfu     +++|*                (DA) = DIRECT ACCESS FILE FLAG.
05577  M01S04796.pfu     +++|*                (DLSA+1 - DLSA+4) = MASS STORAGE PARAMETERS FOR IAPF
05578  M01S04797.pfu     +++|*                                    CHAIN IF PROCESSING A DAPF.
05579  M01S04798.pfu     +++|*                (IR+3 - IR+4) = DATA FILE FET ADDRESS.
05580  M01S04799.pfu     +++|*
05581  M01S04800.pfu     +++|*         EXIT   (FET+FTDL) = 12/ST,48/MP.
05582  M01S04801.pfu     +++|*                             ST = 0 IF BEGINNING OF FILE.
05583  M01S04802.pfu     +++|*                                = 1 IF MIDDLE OF IAPF.
05584  M01S04803.pfu     +++|*                                = 3 IF MIDDLE OF DAPF.
05585  M01S04804.pfu     +++|*                             MP = MASS STORAGE PARAMETERS FOR IAPF
05586  M01S04805.pfu     +++|*                                  CHAIN IF MIDDLE OF DAPF.
05587  M01S04806.pfu     +++|*
05588  M01S04807.pfu     +++|*         USES   CM - CM+4.
05589  M01S04808.pfu     +++|*
05590  M01S04809.pfu     +++|*         MACROS FETA.
05591  M01S04810.pfu     +++|
05592  M01S04811.pfu     +++|
05593  M01S04812.pfu     +++| SDS      SUBR               ENTRY/EXIT
05594  M01S04813.pfu     +++|          LDN    ZERL        CLEAR STATE INFORMATION
05595  M01S04814.pfu     +++|          CRD    CM
05596  M01S04815.pfu     +++|          LDM    BEGF
05597  M01S04816.pfu     +++|          NJN    SDS2        IF BEGINNING OF FILE
05598  M01S04817.pfu     +++|          LDD    DA
05599  M01S04818.pfu     +++|          ZJN    SDS1        IF PROCESSING IAPF
05600  M01S04819.pfu     +++|          LDD    MA          MOVE IAPF PARAMETERS
05601  M01S04820.pfu     +++|          CWM    DLSA,ON
05602  M01S04821.pfu     +++|          SBN    1
05603  M01S04822.pfu     +++|          CRD    CM
05604  M01S04823.pfu     +++|          LDN    2           SET MIDDLE OF DAPF FLAG
05605  M01S04824.pfu     +++| SDS1     LMN    1           SET MIDDLE OF FILE FLAG
05606  M01S04825.pfu     +++|          STD    CM
05607  M01S04826.pfu     +++| SDS2     FETA   FTDL        WRITE STATE INFORMATION TO FET
05608  M01S04827.pfu     +++|          CWD    CM
05609  M01S04828.pfu     +++|          UJN    SDSX        RETURN
05610  M01S04829.pfu     +++| SRW      SPACE  4,10
05611  M01S04830.pfu     +++|**        SRW - SET RELATIVE WRITE BUFFER ADDRESSES.
05612  M01S04831.pfu     +++|*
05613  M01S04832.pfu     +++|*         ENTRY  (FT - FT+1) = BUFFER FIRST POINTER.
05614  M01S04833.pfu     +++|*                (LM - LM+1) = BUFFER LIMIT POINTER.
05615  M01S04834.pfu     +++|*
05616  M01S04835.pfu     +++|*         EXIT   RELATIVE WRITE BUFFER ADDRESSES SET.
05617  M01S04836.pfu     +++|
05618  M01S04837.pfu     +++|
05619  M01S04838.pfu     +++| SRW      SUBR               ENTRY/EXIT
05620  M01S04839.pfu     +++|          LDC    ADCI+77     SET -LIMIT
05621  M01S04840.pfu     +++|          LMD    LM
05622  M01S04841.pfu     +++|          STM    RCBA
05623  M01S04842.pfu     +++|          LCN    0
05624  M01S04843.pfu     +++|          LMD    LM+1
05625  M01S04844.pfu     +++|          STM    RCBA+1
05626  M01S04845.pfu     +++|          LDD    FT+1        SET FIRST
05627  M01S04846.pfu     +++|          STM    RCBF+1
05628  M01S04847.pfu     +++|          LDD    FT
05629  M01S04848.pfu     +++|          LMC    ADCI
05630  M01S04849.pfu     +++|          STM    RCBF
05631  M01S04850.pfu     +++|          UJN    SRWX        RETURN
05632  M01S04851.pfu     +++| SSC      SPACE  4,15
05633  M01S04852.pfu     +++|**        SSC - SET SECTOR COUNT.
05634  M01S04853.pfu     +++|*
05635  M01S04854.pfu     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
05636  M01S04855.pfu     +++|*                (SSCC+(TF)) = PREVIOUS SECTOR COUNT.
05637  M01S04856.pfu     +++|*                (TF) = 0, IF DATA FILE TYPE.
05638  M01S04857.pfu     +++|*                     = 1, IF CATALOG FILE TYPE.
05639  M01S04858.pfu     +++|*                     = 2, IF PERMIT FILE TYPE.
05640  M01S04859.pfu     +++|*
05641  M01S04860.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  M01S04861.pfu     +++|*
05643  M01S04862.pfu     +++|*         EXIT   (P2) = SECTOR COUNT IN BUFFER.
05644  M01S04863.pfu     +++|*
05645  M01S04864.pfu     +++|*         USES   P2, CM - CM+4.
05646  M01S04865.pfu     +++|*
05647  M01S04866.pfu     +++|*         MACROS FETA.
05648  M01S04867.pfu     +++|
05649  M01S04868.pfu     +++|
05650  M01S04869.pfu     +++| SSC      SUBR               ENTRY/EXIT
05651  M01S04870.pfu     +++|          FETA   FTSC        READ SECTOR COUNTER
05652  M01S04871.pfu     +++|          CRD    CM
05653  M01S04872.pfu     +++|          LDD    CM+4
05654  M01S04873.pfu     +++|          SBM    SSCC,TF     SET SECTOR COUNT (CURRENT - PREVIOUS)
05655  M01S04874.pfu     +++|          PJN    SSC1        IF SECTOR COUNTER DID NOT ROLL OVER
05656  M01S04875.pfu     +++|          ADC    4000
05657  M01S04876.pfu     +++| SSC1     STD    P2
05658  M01S04877.pfu     +++|          LDD    CM+4
05659  M01S04878.pfu     +++|          STM    SSCC,TF
05660  M01S04879.pfu     +++|          UJN    SSCX        RETURN
05661  M01S04880.pfu     +++|
05662  M01S04881.pfu     +++|
05663  M01S04882.pfu     +++| SSCC     BSSZ   3           TABLE OF SECTOR COUNTERS
05664  M01S04883.pfu     +++| STE      SPACE  4,15
05665  M01S04884.pfu     +++|**        STE - SET TRT EOI.
05666  M01S04885.pfu     +++|*
Line S04886 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05667  M02S04886.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
05668  M01S00182.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
05669  M01S04887.pfu     +++|*                (T6) = CURRENT TRACK.
05670  M01S04888.pfu     +++|*                (T7) = CURRENT SECTOR.
05671  M01S04889.pfu     +++|*
05672  M01S04890.pfu     +++|*         EXIT   EOI SET IN TRT AT CURRENT POSITION.
05673  M01S04891.pfu     +++|*
05674  M01S04892.pfu     +++|*         USES   CM+1 - CM+3.
05675  M01S04893.pfu     +++|*
05676  M01S04894.pfu     +++|*         MACROS MONITOR.
05677  M01S04895.pfu     +++|
05678  M01S04896.pfu     +++|
05679  M01S04897.pfu     +++| STE      SUBR               ENTRY/EXIT
Line S04898 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05680  M02S04898.ns22000 ---|          LDD    T5          SET EQUIPMENT
05681  M01S00183.ns22000 +++|          LDD    T5          SET EST ORDINAL
05682  M01S04899.pfu     +++|          LMC    4000        SET CHECKPOINT BIT
05683  M01S04900.pfu     +++|          STD    CM+1
05684  M01S04901.pfu     +++|          LDD    T6          SET TRACK
05685  M01S04902.pfu     +++|          LPC    3777        SELECT EOI MODE
05686  M01S04903.pfu     +++|          STD    CM+2
05687  M01S04904.pfu     +++|          LDD    T7          SET SECTOR
05688  M01S04905.pfu     +++|          STD    CM+3
05689  M01S04906.pfu     +++|          MONITOR  DTKM      DROP TRACKS AND SET EOI
05690  M01S04907.pfu     +++|          UJN    STEX        RETURN
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  M01S04908.pfu     +++| TSP      SPACE  4,20
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/pfu.003.txt · Last modified: by 127.0.0.1