User Tools

Site Tools


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

Deck PFU Part 004

22 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
05708  M01S04909.pfu     +++|**        TSP - TRACK AND SECTOR POSITION.
05709  M01S04910.pfu     +++|*
05710  M01S04911.pfu     +++|*         ENTRY  (FS+1) = FIRST TRACK OF FILE.
05711  M01S04912.pfu     +++|*                (P4) = RANDOM TRACK NUMBER.
05712  M01S04913.pfu     +++|*                (P5) = RANDOM SECTOR NUMBER.
05713  M01S04914.pfu     +++|*
05714  M01S04915.pfu     +++|*         EXIT   (A) = .GE. 0 IF ADDRESS ON FILE.
05715  M01S04916.pfu     +++|*                    = .LT. 0 IF ADDRESS NOT ON FILE.
05716  M01S04917.pfu     +++|*                (T6) = NEW TRACK.
05717  M01S04918.pfu     +++|*                (T7) = NEW SECTOR.
05718  M01S04919.pfu     +++|*                THE NEW POSITION PARAMETERS (T6 AND T7) ARE SET FOR
05719  M01S04920.pfu     +++|*                THE PRU PRECEDING THE SPECIFIED TRACK AND SECTOR.
05720  M01S04921.pfu     +++|*
05721  M01S04922.pfu     +++|*         USES   T6, T7, RI - RI+1.
05722  M01S04923.pfu     +++|*
05723  M01S04924.pfu     +++|*         CALLS  CRA, SRA.
05724  M01S04925.pfu     +++|
05725  M01S04926.pfu     +++|
05726  M01S04927.pfu     +++| TSP1     SOD    RI+1        BACKSPACE PRU
05727  M01S04928.pfu     +++|          PJN    TSP2        IF NOT BEFORE BOI
05728  M01S04929.pfu     +++|          AOD    RI+1
05729  M01S04930.pfu     +++|          SOD    RI
05730  M01S04931.pfu     +++|          MJN    TSPX        IF BEFORE BOI
05731  M01S04932.pfu     +++| TSP2     LDD    FS+1        SET FIRST TRACK
05732  M01S04933.pfu     +++|          STD    T6
05733  M01S04934.pfu     +++|          RJM    CRA         CONVERT RANDOM PRU TO TRACK AND SECTOR
05734  M01S04935.pfu     +++|
05735  M01S04936.pfu     +++| TSP      SUBR               ENTRY/EXIT
05736  M01S04937.pfu     +++|          LDD    P4          SET RANDOM TRACK
05737  M01S04938.pfu     +++|          STD    T6
05738  M01S04939.pfu     +++|          LDD    P5          SET RANDOM SECTOR
05739  M01S04940.pfu     +++|          STD    T7
05740  M01S04941.pfu     +++|          LDD    FS+1        SET FIRST TRACK
05741  M01S04942.pfu     +++|          RJM    SRA         CONVERT TRACK AND SECTOR TO RANDOM PRU
05742  M01S04943.pfu     +++|          ZJN    TSP1        IF TRACK AND SECTOR ON FILE
05743  M01S04944.pfu     +++|          LCN    1           SET BAD ADDRESS FLAG
05744  M01S04945.pfu     +++|          UJN    TSPX        RETURN
05745  M01S04946.pfu     +++| UOP      SPACE  4,10
05746  M01S04947.pfu     +++|**        UOP - UPDATE OUT POINTER IN FET.
05747  M01S04948.pfu     +++|*
05748  M01S04949.pfu     +++|*         ENTRY  (OT - OT+1) = OUT POINTER TO BE WRITTEN INTO FET.
05749  M01S04950.pfu     +++|*                SUB-ROUTINE *SAW* EXECUTED PRIOR TO THE FIRST
05750  M01S04951.pfu     +++|*                ENTRY OR ANY ENTRY SUBSEQUENT TO A PAUSE.
05751  M01S04952.pfu     +++|*
05752  M01S04953.pfu     +++|*         EXIT   OUT POINTER IN FET UPDATED.
05753  M01S04954.pfu     +++|*
05754  M01S04955.pfu     +++|*         USES   FN - FN+4.
05755  M01S04956.pfu     +++|
05756  M01S04957.pfu     +++|
05757  M01S04958.pfu     +++| UOP      SUBR               ENTRY/EXIT
05758  M01S04959.pfu     +++|          LDN    ZERL
05759  M01S04960.pfu     +++|          CRD    FN
05760  M01S04961.pfu     +++|          LDD    OT          POSITION OUT POINTER FOR CM WRITE
05761  M01S04962.pfu     +++|          STD    FN+3
05762  M01S04963.pfu     +++|          LDD    OT+1
05763  M01S04964.pfu     +++|          STD    FN+4
05764  M01S04965.pfu     +++|          LDC    *
05765  M01S04966.pfu     +++| UOPA     EQU    *-2         (RA + FET ADDRESS OF OUT POINTER)
05766  M01S04967.pfu     +++|          CWD    FN          WRITE OUT POINTER INTO FET
05767  M01S04968.pfu     +++|          UJN    UOPX        RETURN
05768  M01S04969.pfu     +++|          SPACE  4,10
05769  M01S04970.pfu     +++|*         COMMON DECKS.
05770  M01S04971.pfu     +++|
05771  M01S04972.pfu     +++|
05772  M01S04973.pfu     +++|*CALL     COMPC2D
05773  M01S04974.pfu     +++|*CALL     COMPWEI
05774  M01S04975.pfu     +++|          QUAL   COMPWSS     DEFINE SCRATCH *FST* ADDRESS FOR *COMPWSS*
05775  M01S04976.pfu     +++| FA       EQU    P1
05776  M01S04977.pfu     +++| WCS$     SET    0           PROVIDE FOR CONSECUTIVE SECTOR WRITING
05777  M01S04978.pfu     +++| WIS$     SET    0           PROVIDE FOR IAPF SYSTEM SECTOR PROCESSING
05778  M01S04979.pfu     +++|          QUAL   *
05779  M01S04980.pfu     +++|*CALL     COMPWSS
05780  M01S04981.pfu     +++|*CALL     COMPWVE
Line S04982 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05781  M02S04982.242l642 ---|          SPACE  4,10
Line S04983 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05782  M02S04983.242l642 ---|*         LOAD PROCESSOR MESSAGE CONSTANTS.
Line S04984 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05783  M02S04984.242l642 ---|
Line S04985 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05784  M02S04985.242l642 ---|
Line S04986 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
M03 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05785  M03S04986.242l642 ---| MESA     DATA   C* PFU - TRACK FLAWED,EQ00,T0000.*
Line S00184 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05786  M02S00184.242l642 ---| MESA     DATA   C* PFU - TRACK FLAWED, EQXXX, TKYYYY.*
05787  M01S04987.pfu     +++|          SPACE  4,10
05788  M01S04988.pfu     +++|          USE    PRS
05789  M01S04989.pfu     +++|          SPACE  4,10
05790  M01S04990.pfu     +++|          ERRNG  WEBA-*      OVERFLOW INTO WRITE ERROR BUFFER
05791  M01S04991.pfu     +++|          TITLE  LOAD PRESET SUBROUTINES.
05792  M01S04992.pfu     +++|**        PLL - PRESET LOAD LOOP.
05793  M01S04993.pfu     +++|*
05794  M01S04994.pfu     +++|*         ENTRY  (IR+3 - IR+4) = *CATS* FET ADDRESS.
05795  M01S04995.pfu     +++|*
05796  M01S04996.pfu     +++|*T FET+FTPM  6/  DN,6/,18/  DATA,18/  PETS,18/  PAFL
Figure FET+FTP

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


 is invalid.

Please check your syntax and try again.

05797  M01S04997.pfu     +++|*
05798  M01S04998.pfu     +++|*         DN = MASTER DEVICE NUMBER.
05799  M01S04999.pfu     +++|*         DATA = ADDRESS OF DATA FILE FET.
05800  M01S05000.pfu     +++|*              = 0 IF NO DATA FET.
05801  M01S05001.pfu     +++|*         PETS = ADDRESS OF PERMITS FILE FET.
05802  M01S05002.pfu     +++|*              = 0 IF NO PERMITS FET.
05803  M01S05003.pfu     +++|*         PAFL = *PFU* ACTIVE FLAG ADDRESS.  THIS WORD IS SET TO ONE
05804  M01S05004.pfu     +++|*                WHEN THE *PFU* LOAD PROCESSOR IS ACTIVATED AND SET TO
05805  M01S05005.pfu     +++|*                ZERO WHEN THE *PFU* LOAD PROCESSOR COMPLETES OR
05806  M01S05006.pfu     +++|*                ABORTS.
05807  M01S05007.pfu     +++|*
05808  M01S05008.pfu     +++|*         EXIT   (CA - CA+1) = *CATS* ADDRESS.
05809  M01S05009.pfu     +++|*                (DF - DF+1) = *DATA* ADDRESS.
05810  M01S05010.pfu     +++|*                (PF - PF+1) = *PETS* ADDRESS.
05811  M01S05011.pfu     +++|*                (DN) = DEVICE NUMBER.
05812  M01S05012.pfu     +++|*                (IR+3 - IR+4) = *DATA* ADDRESS IF SPECIFIED, OTHERWISE
05813  M01S05013.pfu     +++|*                                *CATS* ADDRESS.
05814  M01S05014.pfu     +++|*                (PAFL - PAFL+1) = *PFU* ACTIVE FLAG ADDRESS.
05815  M01S05015.pfu     +++|*
05816  M01S05016.pfu     +++|*         USES   DN, CA - CA+1, CM - CM+4, DF - DF+1, IR+3 - IR+4,
05817  M01S05017.pfu     +++|*                PF - PF+1, P1 - P5.
05818  M01S05018.pfu     +++|*
05819  M01S05019.pfu     +++|*         CALLS  CFS, POF, SAU.
05820  M01S05020.pfu     +++|*
05821  M01S05021.pfu     +++|*         MACROS FETA, VADDR.
05822  M01S05022.pfu     +++|
05823  M01S05023.pfu     +++|
05824  M01S05024.pfu     +++|*         SAVE FET ADDRESSES.
05825  M01S05025.pfu     +++|
05826  M01S05026.pfu     +++| PLL      SUBR               ENTRY/EXIT
05827  M01S05027.pfu     +++|          FETA   FTPM        READ PARAMETER WORD
05828  M01S05028.pfu     +++|          CRD    P1
05829  M01S05029.pfu     +++|          LDD    P1          SAVE MASTER DEVICE NUMBER
05830  M01S05030.pfu     +++|          SHN    -6
05831  M01S05031.pfu     +++|          STD    DN
05832  M01S05032.pfu     +++|          LDD    IR+3        SAVE *CATS* FET ADDRESS
05833  M01S05033.pfu     +++|          STD    CA
05834  M01S05034.pfu     +++|          LDD    IR+4
05835  M01S05035.pfu     +++|          STD    CA+1
05836  M01S05036.pfu     +++|          RJM    SAU         SET *PFU* ACTIVE FLAG
05837  M01S05037.pfu     +++|          RJM    CFS         SET *CATS* FET COMPLETE
05838  M01S05038.pfu     +++|          LDD    P4          CHECK *PETS* ADDRESS
05839  M01S05039.pfu     +++|          SCN    77
05840  M01S05040.pfu     +++|          ADD    P3
05841  M01S05041.pfu     +++|          ZJN    PLL1        IF *PETS* ADDRESS NOT SPECIFIED
05842  M01S05042.pfu     +++|          VADDR  P3,LEFT     VALIDATE *PETS* ADDRESS
05843  M01S05043.pfu     +++| PLL1     STD    PF+1        SAVE *PETS* ADDRESS
05844  M01S05044.pfu     +++|          SHN    -14
05845  M01S05045.pfu     +++|          STD    PF
05846  M01S05046.pfu     +++|          LDD    P1          CHECK *DATA* ADDRESS
05847  M01S05047.pfu     +++|          LPN    77
05848  M01S05048.pfu     +++|          ADD    P2
05849  M01S05049.pfu     +++|          NJN    PLL2        IF *DATA* ADDRESS SPECIFIED
05850  M01S05050.pfu     +++|          STD    DF          CLEAR *DATA* ADDRESS
05851  M01S05051.pfu     +++|          STD    DF+1
05852  M01S05052.pfu     +++|          LJM    PLLX        RETURN
05853  M01S05053.pfu     +++|
05854  M01S05054.pfu     +++|*         INITIALIZE *DATA* FILE PARAMETERS.
05855  M01S05055.pfu     +++|
05856  M01S05056.pfu     +++| PLL2     VADDR  P1          VALIDATE *DATA* ADDRESS
05857  M01S05057.pfu     +++|          STD    DF+1        SAVE *DATA* ADDRESS
05858  M01S05058.pfu     +++|          STD    IR+4
05859  M01S05059.pfu     +++|          SHN    -14
05860  M01S05060.pfu     +++|          STD    DF
05861  M01S05061.pfu     +++|          STD    IR+3
05862  M01S05062.pfu     +++|          RJM    POF         POSITION FILES
05863  M01S05063.pfu     +++|          RJM    CFS         SET *DATA* FET COMPLETE
05864  M01S05064.pfu     +++|          LJM    PLLX        RETURN
05865  M01S05065.pfu     +++| POF      SPACE  4,50
05866  M01S05066.pfu     +++|**        POF - POSITION FILES.
05867  M01S05067.pfu     +++|*
05868  M01S05068.pfu     +++|*         ENTRY  (IR+3 - IR+4) = VALIDATED DATA FET ADDRESS.
05869  M01S05069.pfu     +++|*                (DN) = MASTER DEVICE NUMBER.
05870  M01S05070.pfu     +++|*
05871  M01S05071.pfu     +++|*T FET+FTDW  42/,6/  FE,12/
Figure FET+FTD

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


 is invalid.

Please check your syntax and try again.

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

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


 is invalid.

Please check your syntax and try again.

05873  M01S05073.pfu     +++|*
Line S05074 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05874  M02S05074.ns22000 ---|*         FE = EQUIPMENT NUMBER OF A FAMILY DEVICE.
05875  M01S00185.ns22000 +++|*         FE = EST ORDINAL OF A FAMILY DEVICE.
05876  M01S05075.pfu     +++|*         ST = 0 IF BEGINNING OF FILE.
05877  M01S05076.pfu     +++|*            = 1 IF MIDDLE OF IAPF.
05878  M01S05077.pfu     +++|*            = 3 IF MIDDLE OF DAPF.
Line S05078 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05879  M02S05078.ns22000 ---|*         EQ = MASTER EQUIPMENT NUMBER IF MIDDLE OF DAPF.
05880  M01S00186.ns22000 +++|*         EQ = MASTER DEVICE EST ORDINAL IF MIDDLE OF DAPF.
05881  M01S05079.pfu     +++|*         FT = FIRST TRACK OF IAPF CHAIN IF MIDDLE OF DAPF.
05882  M01S05080.pfu     +++|*         TK = CURRENT TRACK OF IAPF CHAIN IF MIDDLE OF DAPF.
05883  M01S05081.pfu     +++|*         SC = CURRENT SECTOR OF IAPF CHAIN IF MIDDLE OF DAPF.
05884  M01S05082.pfu     +++|*
05885  M01S05083.pfu     +++|*         EXIT   (IR+3 - IR+4) = DATA FET ADDRESS RESTORED FROM
05886  M01S05084.pfu     +++|*                                (DF - DF+1).
Line S05085 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05887  M02S05085.ns22000 ---|*                (PDAA) = EQUIPMENT NUMBER OF A FAMILY DEVICE.
05888  M01S00187.ns22000 +++|*                (PDAA) = EST ORDINAL OF A FAMILY DEVICE.
05889  M01S05086.pfu     +++|*                (DLSA) = MASTER DEVICE NUMBER.
05890  M01S05087.pfu     +++|*                (DLSA+1 - DLSA+4) = IAPF CHAIN PARAMETERS IF MIDDLE OF
05891  M01S05088.pfu     +++|*                                    DAPF.
05892  M01S05089.pfu     +++|*                (BEGF) = BEGINNING OF FILE FLAG SET FOR DATA FILE.
05893  M01S05090.pfu     +++|*                (DA) = DIRECT ACCESS FILE FLAG.
05894  M01S05091.pfu     +++|*                DATA FILE FST SET TO EOI.
05895  M01S05092.pfu     +++|*                IF *PETS* FET ADDRESS SPECIFIED, *PETS* FILE FST SET
05896  M01S05093.pfu     +++|*                TO EOI AND *PETS* FILE SECTOR COUNT RETURNED TO THE
05897  M01S05094.pfu     +++|*                FET AS FOLLOWS -
05898  M01S05095.pfu     +++|*
05899  M01S05096.pfu     +++|*T FET+FTSC  24/  SECTOR COUNT,48/  UNCHANGED
Figure FET+FTS

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


 is invalid.

Please check your syntax and try again.

05900  M01S05097.pfu     +++|*
05901  M01S05098.pfu     +++|*         USES   CM - CM+4, DA, FS+2, FS+3, IR+3, IR+4, T6.
05902  M01S05099.pfu     +++|*
05903  M01S05100.pfu     +++|*         CALLS  CFS, FFE, SEI, SFC, VME.
05904  M01S05101.pfu     +++|*
05905  M01S05102.pfu     +++|*         MACROS FETA.
05906  M01S05103.pfu     +++|
05907  M01S05104.pfu     +++|
05908  M01S05105.pfu     +++| POF      SUBR               ENTRY/EXIT
05909  M01S05106.pfu     +++|
05910  M01S05107.pfu     +++|*         SET UP MASTER DEVICE.
05911  M01S05108.pfu     +++|
05912  M01S05109.pfu     +++|          LDN    0           SELECT NORMAL PROCESSING
05913  M01S05110.pfu     +++|          RJM    FFE         FIND FNT ENTRY
Line S05111 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05914  M02S05111.ns22000 ---|          LDN    FS          ADDRESS OF EQUIPMENT NUMBER
05915  M01S00188.ns22000 +++|          LDN    FS          ADDRESS OF EST ORDINAL
Line S05112 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05916  M02S05112.ns22000 ---|          RJM    VME         VALIDATE THAT MASS STORAGE EQUIPMENT
05917  M01S00189.ns22000 +++|          RJM    VME         VALIDATE MASS STORAGE EST ORDINAL
05918  M01S05113.pfu     +++|          LDD    FS+1        RETRIEVE *DATA* FIRST TRACK
05919  M01S05114.pfu     +++|          STD    T6
05920  M01S05115.pfu     +++|          LDN    0           SELECT EOI SEARCH WITH TRT UPDATE
05921  M01S05116.pfu     +++|          RJM    SEI         SEARCH FOR EOI
05922  M01S05117.pfu     +++|          FETA   FTDW
05923  M01S05118.pfu     +++|          CRD    CM
Line S05119 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05924  M02S05119.ns22000 ---|          LDD    CM+3        SET FAMILY EQUIPMENT
Line S05120 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05925  M02S05120.ns22000 ---|          LPN    77
05926  M01S00190.ns22000 +++|          LDD    CM+3        SET FAMILY EST ORDINAL
05927  M01S05121.pfu     +++|          STM    PDAA
05928  M01S05122.pfu     +++|          FETA   FTDL        GET *DATA* FILE STATE INFORMATION
05929  M01S05123.pfu     +++|          CRM    DLSA,ON
05930  M01S05124.pfu     +++|          LDM    DLSA
05931  M01S05125.pfu     +++|          NJN    POF1        IF NOT BEGINNING OF FILE
05932  M01S05126.pfu     +++|          LDN    1           SET BEGINNING OF FILE FLAG
05933  M01S05127.pfu     +++|          STM    BEGF
05934  M01S05128.pfu     +++| POF1     SHN    -1          DETERMINE DAPF FLAG
05935  M01S05129.pfu     +++|          LPN    1
05936  M01S05130.pfu     +++|          STD    DA
05937  M01S05131.pfu     +++|
05938  M01S05132.pfu     +++|*         SET DATA LAST TRACK AND SECTOR.
05939  M01S05133.pfu     +++|
05940  M01S05134.pfu     +++|          LDD    DN          SET MASTER DEVICE NUMBER
05941  M01S05135.pfu     +++|          STM    DLSA
05942  M01S05136.pfu     +++|          LDD    T6          SET LAST TRACK
05943  M01S05137.pfu     +++|          STD    FS+2
05944  M01S05138.pfu     +++|          LDD    T7          SET LAST SECTOR
05945  M01S05139.pfu     +++|          STD    FS+3
05946  M01S05140.pfu     +++|          RJM    SFC         WRITE UPDATED FILE STATUS
05947  M01S05141.pfu     +++|
05948  M01S05142.pfu     +++|*         SET PERMIT LAST TRACK AND SECTOR.
05949  M01S05143.pfu     +++|
05950  M01S05144.pfu     +++|          LDD    PF          SET *PETS* FET ADDRESS
05951  M01S05145.pfu     +++|          STD    IR+3
05952  M01S05146.pfu     +++|          LDD    PF+1
05953  M01S05147.pfu     +++|          STD    IR+4
05954  M01S05148.pfu     +++|          ADD    IR+3
05955  M01S05149.pfu     +++|          NJN    POF2        IF PERMITS FET PRESENT
05956  M01S05150.pfu     +++|          LJM    POF3        SET *DATA* FET ADDRESS
05957  M01S05151.pfu     +++|
05958  M01S05152.pfu     +++| POF2     LDN    0
05959  M01S05153.pfu     +++|          RJM    FFE         FIND FNT ENTRY
Line S05154 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05960  M02S05154.ns22000 ---|          LDN    FS          ADDRESS OF EQUIPMENT NUMBER
05961  M01S00191.ns22000 +++|          LDN    FS          ADDRESS OF EST ORDINAL
05962  M01S05155.pfu     +++|          RJM    VME         VALIDATE MASS STORAGE
05963  M01S05156.pfu     +++|          LDD    FS+1        SET *PETS* FIRST TRACK
05964  M01S05157.pfu     +++|          STD    T6
05965  M01S05158.pfu     +++|          LDN    0           SELECT EOI SEARCH WITH TRT UPDATE
05966  M01S05159.pfu     +++|          RJM    SEI         SEARCH FOR EOI
05967  M01S05160.pfu     +++|          LDD    T6
05968  M01S05161.pfu     +++|          STD    FS+2
05969  M01S05162.pfu     +++|          LDD    T7
05970  M01S05163.pfu     +++|          STD    FS+3
05971  M01S05164.pfu     +++|          RJM    SFC         WRITE UPDATED FILE STATUS
05972  M01S05165.pfu     +++|
05973  M01S05166.pfu     +++|*         SEND PERMIT SECTOR COUNT TO CENTRAL.
05974  M01S05167.pfu     +++|
05975  M01S05168.pfu     +++|          FETA   FTSC        SEND *PETS* SECTOR COUNT TO CENTRAL
05976  M01S05169.pfu     +++|          CRD    CM
05977  M01S05170.pfu     +++|          LDD    T2
05978  M01S05171.pfu     +++|          STD    CM
05979  M01S05172.pfu     +++|          LDD    T3
05980  M01S05173.pfu     +++|          STD    CM+1
05981  M01S05174.pfu     +++|          FETA   FTSC
05982  M01S05175.pfu     +++|          CWD    CM
05983  M01S05176.pfu     +++|          RJM    CFS         SET *PETS* FET COMPLETE
05984  M01S05177.pfu     +++|
05985  M01S05178.pfu     +++|*         SET *DATA* FET ADDRESS IN IR+3 - IR+4.
05986  M01S05179.pfu     +++|
05987  M01S05180.pfu     +++| POF3     LDD    DF          RESET *DATA* FET ADDRESS
05988  M01S05181.pfu     +++|          STD    IR+3
05989  M01S05182.pfu     +++|          LDD    DF+1
05990  M01S05183.pfu     +++|          STD    IR+4
05991  M01S05184.pfu     +++|          LJM    POFX        RETURN
05992  M01S00219.242l642 +++| SAU      SPACE  4,15
05993  M01S00220.242l642 +++|**        SAU - SET *PFU* ACTIVE FLAG.
05994  M01S00221.242l642 +++|*
05995  M01S00222.242l642 +++|*         ENTRY  (P4 - P5) = *PFU* ACTIVE FLAG ADDRESS.
05996  M01S00223.242l642 +++|*
05997  M01S00224.242l642 +++|*         EXIT   (PFAF - PFAF+1) = *PFU* ACTIVE FLAG ADDRESS.
05998  M01S00225.242l642 +++|*                *PFU* ACTIVE FLAG ADDRESS VALIDATED.
05999  M01S00226.242l642 +++|*                *PFU* ACTIVE FLAG IN CENTRAL PROGRAM SET = 1.
06000  M01S00227.242l642 +++|*
06001  M01S00228.242l642 +++|*         USES   CM - CM+4.
06002  M01S00229.242l642 +++|*
06003  M01S00230.242l642 +++|*         MACROS VADDR.
06004  M01S00231.242l642 +++|
06005  M01S00232.242l642 +++|
06006  M01S00233.242l642 +++| SAU      SUBR               ENTRY/EXIT
06007  M01S00234.242l642 +++|          LDN    ZERL        SET FLAG WORD = 1
06008  M01S00235.242l642 +++|          CRD    CM
06009  M01S00236.242l642 +++|          AOD    CM+4
06010  M01S00237.242l642 +++|          VADDR  P4          VALIDATE FLAG ADDRESS
06011  M01S00238.242l642 +++|          STM    PFAF+1      SAVE FLAG ADDRESS
06012  M01S00239.242l642 +++|          SHN    -14
06013  M01S00240.242l642 +++|          STM    PFAF
06014  M01S00241.242l642 +++|          SHN    6           FORM ABSOLUTE ADDRESS
06015  M01S00242.242l642 +++|          ADD    RA
06016  M01S00243.242l642 +++|          SHN    6
06017  M01S00244.242l642 +++|          ADD    P5
06018  M01S00245.242l642 +++|          CWD    CM          SET *PFU* ACTIVE FLAG
06019  M01S00246.242l642 +++|          UJN    SAUX        RETURN
06020  M01S05185.pfu     +++|          SPACE  4,10
06021  M01S05186.pfu     +++|          OVERFLOW  OVLA     CHECK FOR OVERLAY OVERFLOW
06022  M01S05187.pfu     +++| ERP      OVERLAY  (ERROR PROCESSOR.),OVLA
06023  M01S05188.pfu     +++| ERP      SPACE  4,20
06024  M01S05189.pfu     +++|**        ERP - ERROR PROCESSOR.
06025  M01S05190.pfu     +++|*
Line S05191 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06026  M02S05191.ns22000 ---|*         ENTRY  (ERRA) = ERROR CODE.
06027  M01S00192.ns22000 +++|*         ENTRY  (P1) = ERROR CODE.
06028  M01S05192.pfu     +++|*                (FA) = FNT ADDRESS, (FILE SET BUSY).
06029  M01S05193.pfu     +++|*                     = 0 IF NO FILE SET BUSY.
06030  M01S05194.pfu     +++|*                (FS - FS+4) = FST ENTRY.
06031  M01S05195.pfu     +++|*                (FN - FN+3) = FILE NAME.
06032  M01S05196.pfu     +++|*                (IR+3 - IR+4) = FET ADDRESS.
06033  M01S05197.pfu     +++|*                (PFAF - PFAF+1) = *PFU* ACTIVE FLAG ADDRESS.
06034  M01S05198.pfu     +++|*
Line S05199 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06035  M02S05199.ns22000 ---|*         EXIT   ERROR MESSAGE ISSUED TO DAYFILE.
06036  M01S00193.ns22000 +++|*         EXIT   TO *PPR*, AFTER *DPPM*.
06037  M01S00194.ns22000 +++|*                ERROR MESSAGE ISSUED TO DAYFILE.
06038  M01S05200.pfu     +++|*                FILE SET COMPLETE.
06039  M01S05201.pfu     +++|*                FET SET COMPLETE.
06040  M01S05202.pfu     +++|*                *PFU* ACTIVE FLAG CLEARED IN CENTRAL PROGRAM IF SET.
06041  M01S05203.pfu     +++|*
06042  M01S05204.pfu     +++|*         USES   CM+1.
06043  M01S05205.pfu     +++|*
06044  M01S05206.pfu     +++|*         CALLS  CAU, CFS, IDM, SFC.
06045  M01S05207.pfu     +++|*
06046  M01S05208.pfu     +++|*         MACROS MONITOR.
06047  M01S05209.pfu     +++|
06048  M01S05210.pfu     +++|
06049  M01S05211.pfu     +++|*ERP      SUBR               ENTRY/EXIT
06050  M01S05212.pfu     +++|          RJM    IDM         ISSUE DAYFILE MESSAGE
Line S05213 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06051  M02S05213.ns22000 ---|          LDM    ERRA        CHECK IF ERROR FLAG DETECTED
06052  M01S00195.ns22000 +++|          LDD    P1          CHECK IF ERROR FLAG DETECTED
06053  M01S05214.pfu     +++|          LMN    ECEFD
06054  M01S05215.pfu     +++|          ZJN    ERP1        IF ERROR FLAG DETECTED
06055  M01S00001.pfu6    +++|          LMN    ECRFD&ECEFD
06056  M01S00002.pfu6    +++|          ZJN    ERP1        IF ROLLOUT FLAG DETECTED
06057  M01S05216.pfu     +++|          LDN    PPET        SET PP ABORT ERROR FLAG
06058  M01S05217.pfu     +++|          STD    CM+1
06059  M01S05218.pfu     +++|          MONITOR  CEFM
06060  M01S05219.pfu     +++| ERP1     RJM    SFC         SET FILE COMPLETE
06061  M01S05220.pfu     +++|          RJM    CFS         COMPLETE FET STATUS
06062  M01S05221.pfu     +++|          RJM    CAU         CLEAR *PFU* ACTIVE FLAG
Line S05222 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06063  M02S05222.ns22000 ---|          UJN    ERPX        RETURN
06064  M01S00196.ns22000 +++|          MONITOR  DPPM      DROP PP
06065  M01S00197.ns22000 +++|          LJM    PPR         EXIT TO PP RESIDENT
06066  M01S05223.pfu     +++|          TITLE  TABLE OF ERROR MESSAGES.
06067  M01S05224.pfu     +++| TOEM     SPACE  4,10
06068  M01S05225.pfu     +++|**        TOEM - TABLE OF ERROR MESSAGES.
06069  M01S05226.pfu     +++|*
06070  M01S05227.pfu     +++|*         ONE WORD ENTRIES INDEXED BY ERROR CODE.  ENTRY IS THE ADDRESS
06071  M01S05228.pfu     +++|*         OF THE ERROR MESSAGE IN *Z* CODE.  MESSAGES NOT TERMINATED
06072  M01S05229.pfu     +++|*         WITH A PERIOD WILL HAVE THE FILE NAME AND FET ADDRESS
06073  M01S05230.pfu     +++|*         APPENDED TO THEM.
06074  M01S05231.pfu     +++|
06075  M01S05232.pfu     +++|
06076  M01S05233.pfu     +++| TOEM     EQU    *           TABLE OF ERROR MESSAGES
06077  M01S05234.pfu     +++|          QUAL
06078  M01S05235.pfu     +++|          LOC    0
06079  M01S05236.pfu     +++| ECBAE    CON    =Z*BUFFER ARGUMENT ERROR ON *
06080  M01S05237.pfu     +++| ECBCW    CON    =Z*BUFFER CTL WORD ERROR ON *
06081  M01S05238.pfu     +++| ECCNF    CON    =Z*CATALOG TRACK NOT FOUND.*
06082  M01S05239.pfu     +++| ECDFN    CON    =Z*DUPLICATE FILE, *
06083  M01S05240.pfu     +++| ECDNF    CON    =Z*ALTERNATE DEVICE NOT FOUND.*
06084  M01S05241.pfu     +++| ECEFD    CON    =Z*CONTROL POINT ERROR FLAG DETECTED *
06085  M01S05242.pfu     +++| ECFNF    CON    =Z*FILE NOT FOUND, *
06086  M01S05243.pfu     +++| ECIAC    CON    =Z*TRACK INTERLOCK CLEAR ON *
06087  M01S05244.pfu     +++| ECIAS    CON    =Z*TRACK INTERLOCK SET ON *
06088  M01S05245.pfu     +++| ECIOS    CON    =Z*I/O SEQUENCE ERROR ON *
06089  M01S05246.pfu     +++| ECNDS    CON    =Z*NO DEVICE SPECIFIED.*
06090  M01S05247.pfu     +++| ECNSJ    CON    =Z*NOT SPECIAL SYSTEM JOB.*
06091  M01S05248.pfu     +++| ECPAR    CON    =Z*PARAMETER ERROR.*
06092  M01S00007.pfu3    +++| ECRFD    CON    =Z*ROLLOUT FLAG DETECTED.*
06093  M01S00027.274l797 +++| ECITD    CON    =Z*TDAM REQUEST ERROR.*
06094  M01S05249.pfu     +++|          LOC    *O
06095  M01S05250.pfu     +++|          QUAL   *
06096  M01S05251.pfu     +++|          TITLE  ERROR PROCESSOR SUBROUTINES.
06097  M01S05252.pfu     +++| IDM      SPACE  4,15
06098  M01S05253.pfu     +++|**        IDM - ISSUE DAYFILE MESSAGES.
06099  M01S05254.pfu     +++|*
Line S05255 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06100  M02S05255.ns22000 ---|*         ENTRY  (ERRA) = ERROR CODE.
06101  M01S00198.ns22000 +++|*         ENTRY  (P1) = ERROR CODE.
06102  M01S05256.pfu     +++|*                (FN - FN+3) = FILE NAME.
06103  M01S05257.pfu     +++|*                (IR+3 - IR+4) = FET ADDRESS.
Line S05258 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06104  M02S05258.ns22000 ---|*                (CM - CM+4) = CONTENTS OF CONTROL POINT AREA WORD
Line S05259 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06105  M02S05259.ns22000 ---|*                                *STSW*, IF ERROR CODE = *ECEFD*.
06106  M01S05260.pfu     +++|*
06107  M01S05261.pfu     +++|*         EXIT   ERROR MESSAGE ISSUED TO DAYFILE.
06108  M01S05262.pfu     +++|*
Line S05263 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06109  M02S05263.ns22000 ---|*         USES   FN+3, T1, T2.
06110  M01S00199.ns22000 +++|*         USES   FN+3, T1, CM - CM+4.
06111  M01S05264.pfu     +++|*
06112  M01S05265.pfu     +++|*         CALLS  ACS, ANS, DFM.
06113  M01S05266.pfu     +++|
06114  M01S05267.pfu     +++|
06115  M01S05268.pfu     +++| IDM      SUBR               ENTRY/EXIT
06116  M01S05269.pfu     +++|          LDC    STRB        SET STRING BUFFER ADDRESS
06117  M01S05270.pfu     +++|          STD    T1
06118  M01S05271.pfu     +++|          LDN    0           SET END OF LINE BYTE
06119  M01S05272.pfu     +++|          STI    T1
06120  M01S05273.pfu     +++|          LDC    =Z* PFU - * SET MESSAGE PREFIX
06121  M01S05274.pfu     +++|          RJM    ACS
Line S05275 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06122  M02S05275.ns22000 ---|          LDM    ERRA        APPEND ERROR MESSAGE
Line S05276 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06123  M02S05276.ns22000 ---|          STD    T2
Line S05277 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06124  M02S05277.ns22000 ---|          LDM    TOEM,T2
06125  M01S00200.ns22000 +++|          LDM    TOEM,P1     APPEND ERROR MESSAGE
06126  M01S05278.pfu     +++|          RJM    ACS
06127  M01S05279.pfu     +++|          LDI    T1          CHECK LAST BYTE
06128  M01S05280.pfu     +++|          SHN    14
06129  M01S05281.pfu     +++|          NJN    IDM1        IF NOT END OF LINE BYTE
06130  M01S05282.pfu     +++|          LDM    -1,T1
06131  M01S05283.pfu     +++| IDM1     LPN    77          CHECK TERMINATOR
06132  M01S05284.pfu     +++|          LMN    1R.
06133  M01S05285.pfu     +++|          ZJN    IDM4        IF TERMINATED WITH PERIOD
Line S05286 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06134  M02S05286.ns22000 ---|          LDM    ERRA
Line S05287 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06135  M02S05287.ns22000 ---|          LMC    ECEFD
06136  M01S00201.ns22000 +++|          LDD    P1
06137  M01S00202.ns22000 +++|          LMK    ECEFD
06138  M01S05288.pfu     +++|          NJN    IDM2        IF NOT CPA ERROR FLAG DETECTION MESSAGE
06139  M01S00203.ns22000 +++|          LDD    CP          GET ERROR FLAG
06140  M01S00204.ns22000 +++|          ADK    STSW
06141  M01S00205.ns22000 +++|          CRD    CM
06142  M01S05289.pfu     +++|          LDD    CM+1        GET CPA ERROR FLAGS FROM *STSW*
06143  M01S05290.pfu     +++|          UJN    IDM3        APPEND TO MESSAGE
06144  M01S05291.pfu     +++|
06145  M01S05292.pfu     +++| IDM2     LDD    FN+3        CLEAR EIGHTH CHARACTER OF FILE NAME
06146  M01S05293.pfu     +++|          SCN    77
06147  M01S05294.pfu     +++|          STD    FN+3
06148  M01S05295.pfu     +++|          LDN    FN          APPEND FILE NAME
06149  M01S05296.pfu     +++|          RJM    ACS
06150  M01S05297.pfu     +++|          LDC    =Z* AT *    APPEND * AT *
06151  M01S05298.pfu     +++|          RJM    ACS
06152  M01S05299.pfu     +++|          LDD    IR+3        APPEND FET ADDRESS
06153  M01S05300.pfu     +++|          SHN    14
06154  M01S05301.pfu     +++|          LMD    IR+4
06155  M01S05302.pfu     +++| IDM3     RJM    ANS
06156  M01S05303.pfu     +++|          LDC    =Z*.*       APPEND *.*
06157  M01S05304.pfu     +++|          RJM    ACS
06158  M01S05305.pfu     +++| IDM4     LDC    STRB        ISSUE ERROR MESSAGE
06159  M01S05306.pfu     +++|          RJM    DFM
06160  M01S05307.pfu     +++|          LJM    IDMX        RETURN
06161  M01S05308.pfu     +++|          SPACE  4,10
06162  M01S05309.pfu     +++|*         COMMON DECKS.
06163  M01S05310.pfu     +++|
06164  M01S05311.pfu     +++|
06165  M01S05312.pfu     +++|*CALL     COMPACS
06166  M01S05313.pfu     +++|*CALL     COMPANS
06167  M01S05314.pfu     +++|          SPACE  4,10
06168  M01S05315.pfu     +++|*         BUFFERS.
06169  M01S05316.pfu     +++|
06170  M01S05317.pfu     +++|
06171  M01S05318.pfu     +++|          USE    BUFFERS
06172  M01S05319.pfu     +++| STRB     EQU    *           STRING BUFFER
06173  M01S05320.pfu     +++| STRBL    EQU    STRB+80D/2+1  LWA+1 OF STRING BUFFER
06174  M01S05321.pfu     +++|          ERRNG  7777-STRBL  STRING BUFFER OVERFLOW
06175  M01S05322.pfu     +++|          SPACE  4,10
06176  M01S05323.pfu     +++|          OVERFLOW  OVLA     CHECK FOR OVERLAY OVERFLOW
06177  M01S05324.pfu     +++|          SPACE  4,10
06178  M01S00206.ns22000 +++|          TTL    PFU - PF UTILITY PROCESSOR.
06179  M01S05325.pfu     +++|          END
cdc/nos2.source/opl.opl871/deck/pfu.004.txt ยท Last modified: by 127.0.0.1