User Tools

Site Tools


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

Deck PFU

22 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.pfu     +++|          IDENT  PFU,PFU
00002  M01S00002.pfu     +++|          PERIPH
00003  M01S00003.pfu     +++|          BASE   MIXED
00004  M01S00004.pfu     +++|          SST
00005  M01S00005.pfu     +++|          TITLE  PFU - PF UTILITY PROCESSOR.
00006  M01S00006.pfu     +++|          SPACE  4,10
00007  M01S00007.pfu     +++|*COMMENT  PFU - PERMANENT FILE UTILITY PROCESSOR.
Line S00008 Modification History
M01 (Added by) pfu
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00008.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M01S00009.pfu     +++|          SPACE  4,10
00011  M01S00010.pfu     +++|***       PF UTILITY PROCESSOR.
00012  M01S00011.pfu     +++|*         S. T. WORSTELL.    72/10/15.
00013  M01S00012.pfu     +++|*         R. J. THIELEN.     75/08/12. MODIFIED.
00014  M01S00013.pfu     +++|          SPACE  4,10
00015  M01S00014.pfu     +++|***       PFU IS THE PERMANENT FILE UTILITY ROUTINE WHICH PERFORMS
00016  M01S00015.pfu     +++|*         VARIOUS UTILITY FUNCTIONS FOR THE PERMANENT FILE UTILITY
00017  M01S00016.pfu     +++|*         PROGRAMS.  *CATS*, *PETS* AND *DATA* ARE THE FILES THE
00018  M01S00017.pfu     +++|*         UTILITY PROGRAMS USE IN PROCESSING A PERMANENT FILE
00019  M01S00018.pfu     +++|*         DEVICE.  THEY CORRESPOND TO THE CATALOGS, PERMITS AND
00020  M01S00019.pfu     +++|*         DATA ON A DEVICE.  THE PFU FUNCTIONS MANAGE THESE FILES
00021  M01S00020.pfu     +++|*         AND DATA TRANSFER BETWEEN THE PERMANENT FILE DEVICE AND
00022  M01S00021.pfu     +++|*         THE UTILITY PROGRAMS.
00023  M01S00022.pfu     +++|          SPACE  4,10
00024  M01S00023.pfu     +++|***       CALL.
00025  M01S00024.pfu     +++|*
00026  M01S00025.pfu     +++|*T        18/*PFU*,6/ RCL,12/ FUNCTION,24/ ADDR
Figure

0232429 ADDR FUNCTION303536414259 FUNCTION RCL*PFU*

00027  M01S00026.pfu     +++|*
00028  M01S00027.pfu     +++|*         WHERE  ADDR = ADDRESS OF FET OR PARAMETER BLOCK.
00029  M01S00028.pfu     +++|          SPACE  4,10
00030  M01S00029.pfu     +++|***       DAYFILE MESSAGES.
00031  M01S00030.pfu     +++|*
00032  M01S00031.pfu     +++|*         * PFU - ALTERNATE DEVICE NOT FOUND.* = ALTERNATE DEVICE FOR
00033  M01S00032.pfu     +++|*         A DIRECT ACCESS FILE COULD NOT BE FOUND.
00034  M01S00033.pfu     +++|*
00035  M01S00034.pfu     +++|*         * PFU - BUFFER ARGUMENT ERROR ON FILENAM AT XXXXXX.* = THE
00036  M01S00035.pfu     +++|*         CIRCULAR BUFFER POINTERS FOR FILE *FILENAM* DID NOT SATISFY
00037  M01S00036.pfu     +++|*         THE FOLLOWING CONDITIONS.  *XXXXXX* IS THE FET ADDRESS.
00038  M01S00037.pfu     +++|*                FIRST .LE. IN .LT. LIMIT.
00039  M01S00038.pfu     +++|*                FIRST .LE. OUT .LT. LIMIT.
00040  M01S00039.pfu     +++|*                LIMIT .LE. FL.
00041  M01S00040.pfu     +++|*
00042  M01S00041.pfu     +++|*         * PFU - BUFFER CONTROL WORD ERROR ON FILENAM AT XXXXXX.* =
00043  M01S00042.pfu     +++|*         THE WORD COUNT OF A SECTOR TO BE READ FROM THE CIRCULAR
00044  M01S00043.pfu     +++|*         BUFFER FOR FILE *FILENAM* EXCEEDED THE WORD COUNT LIMIT OF A
00045  M01S00044.pfu     +++|*         SECTOR (100B).  *XXXXXX* IS THE FET ADDRESS.
00046  M01S00045.pfu     +++|*
00047  M01S00046.pfu     +++|*         * PFU - CATALOG TRACK NOT FOUND.* = A CATALOG TRACK COULD NOT
00048  M01S00047.pfu     +++|*         BE FOUND FOR SOME USER INDEX.
00049  M01S00048.pfu     +++|*
00050  M01S00049.pfu     +++|*         * PFU - CONTROL POINT ERROR FLAG DETECTED FFFF.* = FFFF IS
00051  M01S00050.pfu     +++|*         THE CONTENTS OF THE ERROR FLAG FIELD OF WORD *STSW* OF THE
00052  M01S00051.pfu     +++|*         CONTROL POINT.
00053  M01S00052.pfu     +++|*
00054  M01S00053.pfu     +++|*         * PFU - DUPLICATE FILE, FILENAM AT XXXXXX.* = FILE *FILENAM*
00055  M01S00054.pfu     +++|*         WAS ALREADY PRESENT AT THE CONTROL POINT.  *XXXXXX* IS THE
00056  M01S00055.pfu     +++|*         FET ADDRESS.
00057  M01S00056.pfu     +++|*
00058  M01S00057.pfu     +++|*         * PFU - FILE NOT FOUND, FILENAM AT XXXXXX.* = NO FNT ENTRY
00059  M01S00058.pfu     +++|*         COULD BE FOUND FOR FILE *FILENAM*.  *XXXXXX* IS THE FET
00060  M01S00059.pfu     +++|*         ADDRESS.
00061  M01S00060.pfu     +++|*
00062  M01S00061.pfu     +++|*         * PFU - I/O SEQUENCE ERROR ON FILENAM AT XXXXXX.* = *PFU*
00063  M01S00062.pfu     +++|*         FOUND FILE *FILENAM* BUSY WHEN ATTEMPTING AN OPERATION ON IT.
00064  M01S00063.pfu     +++|*         *XXXXXX* IS THE FET ADDRESS.
00065  M01S00064.pfu     +++|*
00066  M01S00065.pfu     +++|*         * PFU - NO DEVICE SPECIFIED.* = NO FAMILY DEVICE WAS
00067  M01S00066.pfu     +++|*         SPECIFIED WITH THE READ LIST FUNCTION.
00068  M01S00067.pfu     +++|*
00069  M01S00068.pfu     +++|*         * PFU - NOT SPECIAL SYSTEM JOB.* = THE PROGRAM THAT CALLED
00070  M01S00069.pfu     +++|*         *PFU* DID NOT HAVE AN *SSJ=* SPECIAL ENTRY POINT DEFINED.
00071  M01S00070.pfu     +++|*
00072  M01S00071.pfu     +++|*         * PFU - PARAMETER ERROR.* = A PARAMETER IN THE *PFU* CALL WAS
00073  M01S00072.pfu     +++|*         IN ERROR.
00074  M01S00073.pfu     +++|*
Line S00074 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00074.ns22000 ---|*         * PFU - TRACK FLAWED,EQAA,TBBBB.* = TRACK *BBBB* FOR
Line S00075 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00075.ns22000 ---|*         EQUIPMENT *AA* WAS FLAWED.
Line S00001 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00077  M02S00001.242l642 ---|*         * PFU - TRACK FLAWED, EQXXX, TKYYYY.* = TRACK YYYY ON EST
Line S00002 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00002.242l642 ---|*         ORDINAL XXX WAS FLAWED.
Line S00076 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00076.242l642 ---|*
00080  M01S00077.pfu     +++|*         * PFU - TRACK INTERLOCK ALREADY CLEAR ON FILENAM AT XXXXXX.*
00081  M01S00078.pfu     +++|*         = WHEN CALLED TO CLEAR THE TRACK INTERLOCK ON FILE *FILENAM*,
00082  M01S00079.pfu     +++|*         *PFU* FOUND THAT THE FST FOR THE FILE INDICATED THAT THE
00083  M01S00080.pfu     +++|*         INTERLOCK WAS ALREADY CLEAR.  *XXXXXX* IS THE FET ADDRESS.
00084  M01S00081.pfu     +++|*
00085  M01S00082.pfu     +++|*         * PFU - TRACK INTERLOCK ALREADY SET ON FILENAM AT XXXXXX.* =
00086  M01S00083.pfu     +++|*         WHEN CALLED TO SET THE TRACK INTERLOCK ON FILE *FILENAM*,
00087  M01S00084.pfu     +++|*         *PFU* FOUND THAT THE FST FOR THE FILE INDICATED THAT THE
00088  M01S00085.pfu     +++|*         INTERLOCK WAS ALREADY SET.  *XXXXXX* IS THE FET ADDRESS.
00089  M01S00086.pfu     +++|          SPACE  4,10
00090  M01S00087.pfu     +++|***       OPERATOR MESSAGES.
00091  M01S00088.pfu     +++|*
Line S00089 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00089.ns22000 ---|*         * EQ XX TRACK LIMIT.* = NO TRACKS ARE AVAILABLE ON EQUIPMENT
Line S00090 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00090.ns22000 ---|*         *XX*.  *PFU* WAITS UNTIL TRACKS BECOME AVAILABLE.
00094  M01S00003.ns22000 +++|*         *EQXXX, TRACK LIMIT.* - NO TRACKS ARE AVAILABLE ON EST
00095  M01S00004.ns22000 +++|*         ORDINAL XXX.  *PFU* WILL WAIT FOR TRACKS TO BECOME AVAILABLE.
00096  M01S00091.pfu     +++|          TITLE  COMMON DECKS.
00097  M01S00092.pfu     +++|*         COMMON DECKS.
00098  M01S00093.pfu     +++|
00099  M01S00094.pfu     +++|
00100  M01S00095.pfu     +++|*CALL     COMPMAC
00101  M01S00096.pfu     +++|*CALL     COMSCPS
00102  M01S00097.pfu     +++|*CALL     COMSEVT
00103  M01S00098.pfu     +++|*CALL     COMSLSD
00104  M01S00099.pfu     +++|          QUAL   MSP
00105  M01S00100.pfu     +++|*CALL     COMSMSP
00106  M01S00101.pfu     +++|          QUAL   *
00107  M01S00001.242l642 +++| EPNR     EQU    /MSP/EPNR
00108  M01S00102.pfu     +++| EPRW     EQU    /MSP/EPRW
00109  M01S00002.242l642 +++| PARE     EQU    /MSP/PARE
00110  M01S00103.pfu     +++| RDCT     EQU    /MSP/RDCT
00111  M01S00104.pfu     +++| UERR     EQU    /MSP/UERR
00112  M01S00105.pfu     +++|*CALL     COMSMST
00113  M01S00106.pfu     +++|*CALL     COMSPFM
00114  M01S00107.pfu     +++|*CALL     COMSPIM
00115  M01S00108.pfu     +++|*CALL     COMSSSD
00116  M01S00109.pfu     +++|*CALL     COMSSSJ
00117  M01S00110.pfu     +++|*CALL     COMSWEI
00118  M01S00111.pfu     +++|          QUAL   ZOL
00119  M01S00112.pfu     +++|*CALL     COMSZOL
00120  M01S00113.pfu     +++|          QUAL   *
00121  M01S00114.pfu     +++|          LIST   X
00122  M01S00115.pfu     +++|*CALL     COMSPFU
00123  M01S00116.pfu     +++|          LIST   -X
00124  M01S00117.pfu     +++|          TITLE  MACROS.
00125  M01S00118.pfu     +++|*         MACROS.
00126  M01S00119.pfu     +++| ERROR    SPACE  4,10
00127  M01S00120.pfu     +++|**        ERROR - PROCESS ERROR.
00128  M01S00121.pfu     +++|*
00129  M01S00122.pfu     +++|*         ERROR  E
00130  M01S00123.pfu     +++|*
00131  M01S00124.pfu     +++|*         ENTRY  *E* = ERROR CODE.
00132  M01S00125.pfu     +++|*
00133  M01S00126.pfu     +++|*         EXIT   TO *ERR*.
00134  M01S00127.pfu     +++|*
00135  M01S00128.pfu     +++|*         CALLS  ERR.
00136  M01S00129.pfu     +++|
00137  M01S00130.pfu     +++|
00138  M01S00131.pfu     +++|          PURGMAC  ERROR
00139  M01S00132.pfu     +++|
00140  M01S00133.pfu     +++| ERROR    MACRO  E
00141  M01S00134.pfu     +++|          MACREF ERROR
00142  M01S00135.pfu     +++|          LDN    E
00143  M01S00136.pfu     +++|          RJM    ERR
00144  M01S00137.pfu     +++| ERROR    ENDM
00145  M01S00138.pfu     +++| FETA     SPACE  4,10
00146  M01S00139.pfu     +++|**        FETA - COMPUTE FET ADDRESS.
00147  M01S00140.pfu     +++|*
00148  M01S00141.pfu     +++|*         FETA   W
00149  M01S00142.pfu     +++|*
00150  M01S00143.pfu     +++|*         ENTRY  *W* = FET WORD NUMBER.
00151  M01S00144.pfu     +++|*
00152  M01S00145.pfu     +++|*         COMPUTES ABSOLUTE FET ADDRESS USING (IR+3 - IR+4).
00153  M01S00146.pfu     +++|*
00154  M01S00147.pfu     +++|*         CALLS  CFA.
00155  M01S00148.pfu     +++|
00156  M01S00149.pfu     +++|
00157  M01S00150.pfu     +++|          PURGMAC  FETA
00158  M01S00151.pfu     +++|
00159  M01S00152.pfu     +++| FETA     MACRO  W
00160  M01S00153.pfu     +++|          MACREF FETA
00161  M01S00154.pfu     +++|          RJM    CFA         COMPUTE FET ADDRESS
00162  M01S00155.pfu     +++|          IFNE   W,0,1       IF NOT FIRST WORD
00163  M01S00156.pfu     +++|          ADN    W
00164  M01S00157.pfu     +++| FETA     ENDM
00165  M01S00158.pfu     +++| FNCT     SPACE  4,10
00166  M01S00159.pfu     +++|**        FNCT - DEFINE FUNCTION PROCESSOR.
00167  M01S00160.pfu     +++|*
00168  M01S00161.pfu     +++|*TAG      FNCT   FC,FP
00169  M01S00162.pfu     +++|*
00170  M01S00163.pfu     +++|*         ENTRY  *TAG* = SET TO FWA OF TABLE IF FIRST ENTRY FOR TABLE
00171  M01S00164.pfu     +++|*                        AND TO THE LENGTH OF THE TABLE IF THE LAST
00172  M01S00165.pfu     +++|*                        ENTRY.
00173  M01S00166.pfu     +++|*
00174  M01S00167.pfu     +++|*                *FC* = FUNCTION CODE * 100B (ACTS AS INDEX INTO TABLE)
00175  M01S00168.pfu     +++|*                *FP* = FUNCTION PROCESSOR SYMBOL = ENTRY ADDRESS FOR
00176  M01S00169.pfu     +++|*                       RESIDENT PROCESSORS OR THE LAST CHARACTER OF
00177  M01S00170.pfu     +++|*                       THE OVERLAY NAME FOR OVERLAY PROCESSORS.
00178  M01S00171.pfu     +++|*
00179  M01S00172.pfu     +++|*         EXIT   TABLE ENTRY INDEXED BY THE FUNCTION CODE SET TO *FP*.
00180  M01S00173.pfu     +++|
00181  M01S00174.pfu     +++|
00182  M01S00175.pfu     +++|          NOREF  .B,.M
00183  M01S00176.pfu     +++| .B       SET    0
00184  M01S00177.pfu     +++| .M       SET    -2
00185  M01S00178.pfu     +++|          PURGMAC  FNCT
00186  M01S00179.pfu     +++|          MACRO  FNCT,TAG,FC,FP
00187  M01S00180.pfu     +++| .TAGP    IFC    NE,$TAG$$
00188  M01S00181.pfu     +++| .MP      IFLT   .M,-1
00189  M01S00182.pfu     +++|          LOC    *O
00190  M01S00183.pfu     +++| .M       SET    -1
00191  M01S00184.pfu     +++| .B       SET    *
00192  M01S00185.pfu     +++| TAG      BSS    0
00193  M01S00186.pfu     +++| .MP      ELSE
00194  M01S00187.pfu     +++|          LOC    .M+1
00195  M01S00188.pfu     +++| .M       SET    -2
00196  M01S00189.pfu     +++| TAG      BSS    0
00197  M01S00190.pfu     +++|          ORG    .B+*
00198  M01S00191.pfu     +++| .MP      ENDIF
00199  M01S00192.pfu     +++| .TAGP    ELSE
00200  M01S00193.pfu     +++|          ORG    .B+FC/100
00201  M01S00194.pfu     +++|          LOC    FC/100
00202  M01S00195.pfu     +++|          CON    FP
00203  M01S00196.pfu     +++| .M       MAX    .M,FC/100
00204  M01S00197.pfu     +++| .TAGP    ENDIF
00205  M01S00198.pfu     +++| FNCT     ENDM
00206  M01S00199.pfu     +++|          SPACE  4,10
00207  M01S00200.pfu     +++|*         OVERLAY CONTROL.
00208  M01S00201.pfu     +++|
00209  M01S00202.pfu     +++|
00210  M01S00203.pfu     +++| .N       SET    0
00211  M01S00204.pfu     +++| OVLB     MICRO  1,, 3F      BASE OVERLAY NAME
00212  M01S00205.pfu     +++| OVERLAY  SPACE  4,10
00213  M01S00206.pfu     +++|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00214  M01S00207.pfu     +++|*
00215  M01S00208.pfu     +++|*ENTR     OVERLAY (TEXT),ORGA
00216  M01S00209.pfu     +++|*
00217  M01S00210.pfu     +++|*         ENTRY  *ENTR* = ENTRY POINT TAG FOR OVERLAY.
00218  M01S00211.pfu     +++|*                *ORGA* = ORIGIN ADDRESS OF OVERLAY.
00219  M01S00212.pfu     +++|*
00220  M01S00213.pfu     +++|*
00221  M01S00214.pfu     +++|*         EXIT   *ENTR* = UNQUALIFIED ENTRY POINT SYMBOL = 18/ON.
00222  M01S00215.pfu     +++|*                       ON = LAST CHARACTER OF OVERLAY NAME.
00223  M01S00216.pfu     +++|*                SYMBOL QUALIFIER SET TO OVERLAY NAME.
00224  M01S00217.pfu     +++|*                ENTRY/EXIT POINT SET WITH *SUBR* MACRO.
00225  M01S00218.pfu     +++|
00226  M01S00219.pfu     +++|
00227  M01S00220.pfu     +++|          PURGMAC  OVERLAY
00228  M01S00221.pfu     +++|
00229  M01S00222.pfu     +++|          MACRO  OVERLAY,ENTR,TEXT,ORGA
00230  M01S00223.pfu     +++|          QUAL
00231  M01S00224.pfu     +++|          NOREF  .N
00232  M01S00225.pfu     +++| .N       SET    .N+1
00233  M01S00226.pfu     +++| .M       MICRO  .N,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ
00234  M01S00227.pfu     +++| .O       MICRO  1,3, "OVLB"".M"
00235  M01S00228.pfu     +++|          TTL    PFU/".O" - TEXT
00236  M01S00229.pfu     +++| ENTR     TITLE
00237  M01S00230.pfu     +++|          IDENT  ".O",ORGA   TEXT
00238  M01S00231.pfu     +++|*COMMENT  PFU - TEXT
Line S00232 Modification History
M01 (Added by) pfu
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00239  M02S00232.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
00240  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00241  M01S00233.pfu     +++|          ORG    ORGA
00242  M01S00234.pfu     +++| ENTR     EQU    1R".M"
00243  M01S00235.pfu     +++|          QUAL   ".O"
00244  M01S00236.pfu     +++| ENTR     SUBR
00245  M01S00237.pfu     +++| OVERLAY  ENDM
00246  M01S00238.pfu     +++| VADDR    SPACE  4,10
00247  M01S00239.pfu     +++|**        VADDR - VALIDATE ADDRESS.
00248  M01S00240.pfu     +++|*
00249  M01S00241.pfu     +++|*         VADDR  LOC,JST
00250  M01S00242.pfu     +++|*
00251  M01S00243.pfu     +++|*         ENTRY  *LOC* = PP MEMORY LOCATION OF HIGH ORDER BYTE OF
00252  M01S00244.pfu     +++|*                        ADDRESS.
00253  M01S00245.pfu     +++|*                *JST* = NULL FOR A RIGHT JUSTIFIED ADDRESS.
00254  M01S00246.pfu     +++|*                      = NON-NULL FOR A LEFT JUSTIFIED ADDRESS.
00255  M01S00247.pfu     +++|*
00256  M01S00248.pfu     +++|*         EXIT   (A) = (T1 - T2) = VALIDATED CENTRAL ADDRESS.
00257  M01S00249.pfu     +++|*                EXIT TO *ERR* WITH * PFU - PARAMETER ERROR.* IF
00258  M01S00250.pfu     +++|*                ADDRESS NOT VALID.
00259  M01S00251.pfu     +++|*
00260  M01S00252.pfu     +++|*         CALLS  CCA.
00261  M01S00253.pfu     +++|
00262  M01S00254.pfu     +++|
00263  M01S00255.pfu     +++|          PURGMAC  VADDR
00264  M01S00256.pfu     +++|
00265  M01S00257.pfu     +++| VADDR    MACRO  LOC,JST
00266  M01S00258.pfu     +++|          MACREF VADDR
00267  M01S00259.pfu     +++| .1       SET    LOC
00268  M01S00260.pfu     +++| .1       SET    .1*2
00269  M01S00261.pfu     +++|          IFC    EQ,$JST$$,1
00270  M01S00262.pfu     +++| .1       SET    .1+1
00271  M01S00263.pfu     +++| .SIZE    IFGE   .1,100
00272  M01S00264.pfu     +++|          LDC    .1
00273  M01S00265.pfu     +++| .SIZE    ELSE
00274  M01S00266.pfu     +++|          LDN    .1
00275  M01S00267.pfu     +++| .SIZE    ENDIF
00276  M01S00268.pfu     +++|          RJM    CCA         CHECK CENTRAL ADDRESS
00277  M01S00269.pfu     +++| VADDR    ENDM
00278  M01S00270.pfu     +++|          TITLE  DIRECT CELL DEFINITIONS.
00279  M01S00271.pfu     +++|*         DIRECT LOCATIONS.
00280  M01S00272.pfu     +++|
00281  M01S00273.pfu     +++|
00282  M01S00274.pfu     +++| PR       EQU    16          PREVIOUS RA
00283  M01S00275.pfu     +++| DA       EQU    17          DIRECT ACCESS FILE FLAG
00284  M01S00276.pfu     +++| FS       EQU    20 - 24     FST ENTRY
00285  M01S00277.pfu     +++| DF       EQU    25 - 26     *DATA* FET ADDRESS
00286  M01S00278.pfu     +++| LL       EQU    25 - 26     LENGTH LEFT
00287  M01S00279.pfu     +++| PF       EQU    27 - 30     *PETS* FET ADDRESS
00288  M01S00280.pfu     +++| LF       EQU    27 - 30     LENGTH OF FILE
00289  M01S00281.pfu     +++| CA       EQU    31 - 32     *CATS* FET ADDRESS
00290  M01S00282.pfu     +++| UI       EQU    33 - 34     USER INDEX
00291  M01S00283.pfu     +++| RI       EQU    33 - 34     RANDOM INDEX
00292  M01S00284.pfu     +++| P1       EQU    33          TEMPORARY LOCATION
00293  M01S00285.pfu     +++| P2       EQU    34          TEMPORARY LOCATION
00294  M01S00286.pfu     +++| P3       EQU    35          TEMPORARY LOCATION
00295  M01S00287.pfu     +++| P4       EQU    36          TEMPORARY LOCATION
00296  M01S00288.pfu     +++| P5       EQU    37          TEMPORARY LOCATION
00297  M01S00289.pfu     +++| FN       EQU    40 - 44     FNT ENTRY
00298  M01S00290.pfu     +++| CN       EQU    40 - 44     CENTRAL MEMORY BUFFER
00299  M01S00291.pfu     +++| TF       EQU    45          TYPE FILE
00300  M01S00292.pfu     +++| SC       EQU    46          SECTOR COUNT TO WRITE
00301  M01S00293.pfu     +++| DN       EQU    47          DEVICE NUMBER
00302  M01S00294.pfu     +++| FA       EQU    57          FNT ADDRESS
00303  M01S00295.pfu     +++| FT       EQU    60 - 61     FIRST
00304  M01S00296.pfu     +++| IN       EQU    62 - 63     IN
00305  M01S00297.pfu     +++| OT       EQU    64 - 65     OUT
00306  M01S00298.pfu     +++| LM       EQU    66 - 67     LIMIT
00307  M01S00299.pfu     +++|          SPACE  4,10
00308  M01S00300.pfu     +++|*         ASSEMBLY CONSTANTS.
00309  M01S00301.pfu     +++|
00310  M01S00302.pfu     +++|
00311  M01S00001.ns21000 +++| FADL     EQU    4000D       DELAY CYCLES WAITING FOR FAST ATTACH FILE
00312  M01S00303.pfu     +++| FMRD     EQU    1           READ MODE FOR FILE
Line S00304 Modification History
M01 (Added by) pfu
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00313  M02S00304.ns21000 ---| FMRM     EQU    31          READ AND ALLOW MODIFY MODE FOR FILE
00314  M01S00002.ns21000 +++| FMRU     EQU    11          READ/ALLOW UPDATE MODE FOR FILE
00315  M01S00305.pfu     +++| MSEO     EQU    3           MASS STORAGE ERROR OPTION
00316  M01S00306.pfu     +++| PFIDL    EQU    5           *PFID* LIST LENGTH
Line S00307 Modification History
M01 (Added by) pfu
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00317  M02S00307.ns21000 ---| TDGE     EQU    2           *TDAM* GET INTERLOCK FILE FUNCTION CODE
00318  M01S00003.ns21000 +++| TDGE     EQU    2           *TDAM* GET MSS INTERLOCK FUNCTION CODE
00319  M01S00308.pfu     +++| TDNA     EQU    4           *TDAM* SUBSYSTEM INACTIVE RESPONSE CODE
Line S00309 Modification History
M01 (Added by) pfu
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00320  M02S00309.ns21000 ---| TDRE     EQU    3           *TDAM* *MSS* EXECUTIVE RESUME FUNCTION CODE
00321  M01S00310.pfu     +++| TDRT     EQU    10B         *TDAM* RETRY LIMIT
00322  M01S00311.pfu     +++| TDSR     EQU    1           *TDAM* FILE STAGING REQUEST FUNCTION CODE
00323  M01S00312.pfu     +++| TDWT     EQU    1           *TDAM* WRITE CODE
00324  M01S00313.pfu     +++| UUPL     EQU    3           *UCDT* UPDATE PARAMETER LIST LENGTH
00325  M01S00314.pfu     +++| UURE     EQU    1           *UCDT* UPDATE READ ERROR RESPONSE CODE
00326  M01S00315.pfu     +++| UUVE     EQU    2           *UCDT* UPDATE VERIFY ERROR RESPONSE CODE
00327  M01S00316.pfu     +++| UUWE     EQU    3           *UCDT* UPDATE WRITE ERROR RESPONSE CODE
00328  M01S00003.242l642 +++|*                                   (DATA TRANSFERRED TO DEVICE)
00329  M01S00004.242l642 +++| UUWN     EQU    4           *UCDT* UPDATE WRITE ERROR RESPONSE CODE
00330  M01S00005.242l642 +++|*                                   (NO DATA TRANSFERRED TO DEVICE)
00331  M01S00317.pfu     +++|          SPACE  4,10
00332  M01S00318.pfu     +++|*         BUFFERS.
00333  M01S00319.pfu     +++|
00334  M01S00320.pfu     +++|
00335  M01S00321.pfu     +++| CWBA     EQU    BFMS-3      CONTROL WORD BUFFER ADDRESS
00336  M01S00322.pfu     +++| WEBA     EQU    CWBA-502    WRITE ERROR BUFFER ADDRESS
00337  M01S00323.pfu     +++|          TITLE  MAIN LOOP.
00338  M01S00324.pfu     +++|*         MAIN LOOP.
00339  M01S00325.pfu     +++|          SPACE  4,10
00340  M01S00326.pfu     +++|          ORG    PPFW
00341  M01S00327.pfu     +++|
00342  M01S00328.pfu     +++| PFU      RJM    PRS         PRESET PROGRAM
00343  M01S00329.pfu     +++|          RJM    0,T1        CALL FUNCTION PROCESSOR
00344  M01S00330.pfu     +++|          RJM    SFC         SET FILE COMPLETE
00345  M01S00331.pfu     +++|          RJM    CFS         COMPLETE FET STATUS
00346  M01S00332.pfu     +++|          MONITOR  DPPM      DROP PP
00347  M01S00333.pfu     +++|          LJM    PPR         EXIT TO PP RESIDENT
00348  M01S00006.242l642 +++|          SPACE  4,10
00349  M01S00007.242l642 +++|*         GLOBAL MEMORY DEFINITIONS.
00350  M01S00008.242l642 +++|
00351  M01S00009.242l642 +++|
00352  M01S00010.242l642 +++| PFAF     BSSZ   2           *PFU* ACTIVE FLAG ADDRESS
00353  M01S00334.pfu     +++| ERR      SPACE  4,25
00354  M01S00335.pfu     +++|**        ERR - *PFU* ERROR EXIT PROCESSOR.
00355  M01S00336.pfu     +++|*
00356  M01S00337.pfu     +++|*         ENTRY  (A) = ERROR CODE.
00357  M01S00338.pfu     +++|*                (FA) = FNT ADDRESS, IF FILE SET BUSY.
00358  M01S00339.pfu     +++|*                     = 0 IF NO FILE SET BUSY.
00359  M01S00340.pfu     +++|*                (FS - FS+4) = FST ENTRY.
00360  M01S00341.pfu     +++|*                (FN - FN+3) = FILE NAME.
00361  M01S00342.pfu     +++|*                (IR+3 - IR+4) = FET ADDRESS.
00362  M01S00343.pfu     +++|*                (PFAF - PFAF+1) = *PFU* ACTIVE FLAG ADDRESS.
00363  M01S00344.pfu     +++|*
00364  M01S00345.pfu     +++|*         EXIT   CHANNEL DROPPED IF ASSIGNED.
00365  M01S00346.pfu     +++|*                ERROR MESSAGE PUT IN DAYFILE.
00366  M01S00347.pfu     +++|*                FILE SET COMPLETE.
00367  M01S00348.pfu     +++|*                FET SET COMPLETE.
00368  M01S00349.pfu     +++|*                *PFU* ACTIVE FLAG CLEARED IN CENTRAL PROGRAM IF SET.
00369  M01S00350.pfu     +++|*                PP DROPPED.
00370  M01S00351.pfu     +++|*                EXIT TO PP RESIDENT.
00371  M01S00352.pfu     +++|*
00372  M01S00353.pfu     +++|*         CALLS  ERP, EXR.
00373  M01S00354.pfu     +++|*
00374  M01S00355.pfu     +++|*         MACROS ENDMS, MONITOR.
00375  M01S00356.pfu     +++|
00376  M01S00357.pfu     +++|
00377  M01S00358.pfu     +++| ERR      SUBR               ENTRY
Line S00359 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00378  M02S00359.ns22000 ---|          STM    ERRA        SAVE ERROR CODE
00379  M01S00005.ns22000 +++|          STD    P1          SAVE ERROR CODE FOR ERROR OVERLAY
00380  M01S00360.pfu     +++|          ENDMS
00381  M01S00361.pfu     +++|          LDC    2L"OVLB"+ERP  EXECUTE ERROR PROCESSOR
00382  M01S00362.pfu     +++|          RJM    EXR
Line S00363 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00363.ns22000 ---|          MONITOR  DPPM      DROP PP
Line S00364 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00364.ns22000 ---|          LJM    PPR         EXIT TO PP RESIDENT
Line S00365 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00385  M02S00365.ns22000 ---|
Line S00366 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00386  M02S00366.ns22000 ---| ERRA     BSS    1           ERROR CODE
00387  M01S00006.ns22000 +++|*         MONITOR  DPPM      (PERFORMED IN ERROR OVERLAY)
00388  M01S00007.ns22000 +++|*         LJM    PPR         EXIT TO PP RESIDENT
00389  M01S00367.pfu     +++|          TITLE  COMMON SUBROUTINES.
00390  M01S00368.pfu     +++| CAU      SPACE  4,15
00391  M01S00369.pfu     +++|**        CAU - CLEAR *PFU* ACTIVE FLAG.
00392  M01S00370.pfu     +++|*
00393  M01S00371.pfu     +++|*         ENTRY  (PFAF) = ADDRESS IN CPU PROGRAM OF *PFU* ACTIVE FLAG.
00394  M01S00372.pfu     +++|*                       = 0 IF *PFU* ACTIVE FLAG NOT SET.
00395  M01S00373.pfu     +++|*
00396  M01S00374.pfu     +++|*         EXIT   (PFAF) = 0.
00397  M01S00375.pfu     +++|*                *PFU* ACTIVE FLAG IN CPU PROGRAM CLEARED IF (PFAF)
00398  M01S00376.pfu     +++|*                NON-ZERO AND A VALID ADDRESS.
00399  M01S00377.pfu     +++|*
00400  M01S00378.pfu     +++|*         USES   CM - CM+4.
00401  M01S00379.pfu     +++|*
00402  M01S00380.pfu     +++|*         CALLS  VCA.
00403  M01S00381.pfu     +++|
00404  M01S00382.pfu     +++|
00405  M01S00383.pfu     +++| CAU      SUBR               ENTRY/EXIT
00406  M01S00384.pfu     +++|          LDN    ZERL        READ ZERO WORD
00407  M01S00385.pfu     +++|          CRD    CM
00408  M01S00386.pfu     +++|          LDM    PFAF        VALIDATE FLAG ADDRESS
00409  M01S00387.pfu     +++|          SHN    14
00410  M01S00388.pfu     +++|          LMM    PFAF+1
00411  M01S00389.pfu     +++|          RJM    VCA
00412  M01S00390.pfu     +++|          ZJN    CAUX        IF CLEAR OR INVALID
00413  M01S00391.pfu     +++|          SHN    14          FORM ABSOLUTE ADDRESS
00414  M01S00392.pfu     +++|          ADD    RA
00415  M01S00393.pfu     +++|          SHN    6
00416  M01S00394.pfu     +++|          CWD    CM          CLEAR *PFU* ACTIVE FLAG
00417  M01S00395.pfu     +++|          LDN    0           CLEAR FLAG ADDRESS
00418  M01S00396.pfu     +++|          STM    PFAF
00419  M01S00397.pfu     +++|          STM    PFAF+1
00420  M01S00398.pfu     +++|          UJN    CAUX        RETURN
00421  M01S00399.pfu     +++| CCA      SPACE  4,15
00422  M01S00400.pfu     +++|**        CCA - CHECK CENTRAL ADDRESS.
00423  M01S00401.pfu     +++|*
00424  M01S00402.pfu     +++|*         ENTRY  (A) = 12/LH,1/JS.
00425  M01S00403.pfu     +++|*                      LH = PP LOCATION OF HIGH ORDER BYTE OF ADDRESS.
00426  M01S00404.pfu     +++|*                      JS = JUSTIFICATION FLAG.
00427  M01S00405.pfu     +++|*                           0 = LEFT JUSTIFIED.
00428  M01S00406.pfu     +++|*                           1 = RIGHT JUSTIFIED.
00429  M01S00407.pfu     +++|*
00430  M01S00408.pfu     +++|*         EXIT   (A) = (T1 - T2) = VALIDATED CENTRAL ADDRESS.
00431  M01S00409.pfu     +++|*                ERROR EXIT TAKEN IF ADDRESS IS INVALID.
00432  M01S00410.pfu     +++|*
00433  M01S00411.pfu     +++|*         USES   T1.
00434  M01S00412.pfu     +++|*
00435  M01S00413.pfu     +++|*         CALLS  VCA.
00436  M01S00414.pfu     +++|
00437  M01S00415.pfu     +++|
00438  M01S00416.pfu     +++| CCA      SUBR               ENTRY/EXIT
00439  M01S00417.pfu     +++|          SHN    21          SAVE LOCATION OF HIGH ORDER BYTE
00440  M01S00418.pfu     +++|          STD    T1
00441  M01S00419.pfu     +++|          MJN    CCA2        IF ADDRESS RIGHT JUSTIFIED
00442  M01S00420.pfu     +++|
00443  M01S00421.pfu     +++|*         GET LEFT JUSTIFIED ADDRESS.
00444  M01S00422.pfu     +++|
00445  M01S00423.pfu     +++|          LDM    1,T1        GET LEFT JUSTIFIED ADDRESS
00446  M01S00424.pfu     +++|          SCN    77
00447  M01S00425.pfu     +++|          SHN    6
00448  M01S00426.pfu     +++|          LMI    T1
00449  M01S00427.pfu     +++|          SHN    6
00450  M01S00428.pfu     +++|
00451  M01S00429.pfu     +++|*         CHECK ADDRESS.
00452  M01S00430.pfu     +++|
00453  M01S00431.pfu     +++| CCA1     RJM    VCA         VALIDATE CENTRAL ADDRESS
00454  M01S00432.pfu     +++|          NJN    CCAX        IF A VALID ADDRESS
00455  M01S00433.pfu     +++|          ERROR  ECPAR       PROCESS PARAMETER ERROR
00456  M01S00434.pfu     +++|
00457  M01S00435.pfu     +++|*         GET RIGHT JUSTIFIED ADDRESS.
00458  M01S00436.pfu     +++|
00459  M01S00437.pfu     +++| CCA2     LDI    T1          GET RIGHT JUSTIFIED ADDRESS
00460  M01S00438.pfu     +++|          LPN    77
00461  M01S00439.pfu     +++|          SHN    14
00462  M01S00440.pfu     +++|          LMM    1,T1
00463  M01S00441.pfu     +++|          UJN    CCA1        CHECK ADDRESS
00464  M01S00442.pfu     +++| CFA      SPACE  4,10
00465  M01S00443.pfu     +++|**        CFA - COMPUTE FET ADDRESS.
00466  M01S00444.pfu     +++|*
00467  M01S00445.pfu     +++|*         ENTRY  (IR+3 - IR+4) = RELATIVE FET ADDRESS.
00468  M01S00446.pfu     +++|*                                (NO VALIDITY CHECK IS MADE.)
00469  M01S00447.pfu     +++|*
00470  M01S00448.pfu     +++|*         EXIT   (A) = ABSOLUTE FET ADDRESS.
00471  M01S00449.pfu     +++|
00472  M01S00450.pfu     +++|
00473  M01S00451.pfu     +++| CFA      SUBR               ENTRY/EXIT
00474  M01S00452.pfu     +++|          LDD    IR+3        FORM ABSOLUTE FET ADDRESS
00475  M01S00453.pfu     +++|          SHN    6
00476  M01S00454.pfu     +++|          ADD    RA
00477  M01S00455.pfu     +++|          SHN    6
00478  M01S00456.pfu     +++|          ADD    IR+4
00479  M01S00457.pfu     +++|          UJN    CFAX        RETURN
00480  M01S00458.pfu     +++| CFS      SPACE  4,10
00481  M01S00459.pfu     +++|**        CFS - COMPLETE FET STATUS.
00482  M01S00460.pfu     +++|*
00483  M01S00461.pfu     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
00484  M01S00462.pfu     +++|*
00485  M01S00463.pfu     +++|*         EXIT   FET STATUS SET COMPLETE IF FET ADDRESS VALID.
00486  M01S00464.pfu     +++|*                (IR+3 - IR+4) = 0 IF FET STATUS SET COMPLETE.
00487  M01S00465.pfu     +++|*
00488  M01S00466.pfu     +++|*         USES   CM - CM+4.
00489  M01S00467.pfu     +++|*
00490  M01S00468.pfu     +++|*         CALLS  VCA.
00491  M01S00469.pfu     +++|
00492  M01S00470.pfu     +++|
00493  M01S00471.pfu     +++| CFS      SUBR               ENTRY/EXIT
00494  M01S00472.pfu     +++|          LDD    IR+3        GET FET ADDRESS
00495  M01S00473.pfu     +++|          SHN    6
00496  M01S00474.pfu     +++|          ADD    IR+4
00497  M01S00475.pfu     +++|          RJM    VCA         VALIDATE FET ADDRESS
00498  M01S00476.pfu     +++|          ZJN    CFSX        IF BAD FET ADDRESS
00499  M01S00477.pfu     +++|          FETA               SET FET STATUS COMPLETE
00500  M01S00478.pfu     +++|          CRD    CM
00501  M01S00479.pfu     +++|          AOD    CM+4
00502  M01S00480.pfu     +++|          FETA
00503  M01S00481.pfu     +++|          CWD    CM
00504  M01S00482.pfu     +++|          LDN    0           CLEAR FET ADDRESS
00505  M01S00483.pfu     +++|          STD    IR+3
00506  M01S00484.pfu     +++|          STD    IR+4
00507  M01S00485.pfu     +++|          UJN    CFSX        RETURN
Line S00486 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00486.242l642 ---| FAR      SPACE  4,10
Line S00487 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00487.242l642 ---|**        FAR - FORCE AUTO RECALL.
Line S00488 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00488.242l642 ---|*
Line S00489 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00489.242l642 ---|*         EXIT   ERROR EXIT TAKEN IF NOT CALLED WITH AUTO RECALL.
Line S00490 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00490.242l642 ---|*
Line S00491 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00491.242l642 ---|*         CALLS  CRS.
Line S00492 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00514  M02S00492.242l642 ---|
Line S00493 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00515  M02S00493.242l642 ---|
Line S00494 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00516  M02S00494.242l642 ---| FAR      SUBR               ENTRY/EXIT
Line S00495 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00495.242l642 ---|          RJM    CRS         CHECK AUTO RECALL STATUS
Line S00496 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00518  M02S00496.242l642 ---|          NJN    FARX        IF CALLED WITH AUTO RECALL
Line S00497 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00519  M02S00497.242l642 ---|          ERROR  ECPAR       PROCESS PARAMETER ERROR
00520  M01S00498.pfu     +++| FFE      SPACE  4,20
00521  M01S00499.pfu     +++|**        FFE - FIND FNT ENTRY.
00522  M01S00500.pfu     +++|*
00523  M01S00501.pfu     +++|*         ENTRY  (A) = 16/,1/L,1/F.
00524  M01S00502.pfu     +++|*                      L = 0 TO MAKE LIBRARY TYPE CHECK.
00525  M01S00503.pfu     +++|*                          1 TO SUPPRESS LIBRARY TYPE CHECK.
00526  M01S00504.pfu     +++|*                      F = 0 TO ABORT IF FILE NOT FOUND.
00527  M01S00505.pfu     +++|*                          1 TO ADVANCE EXIT IF FILE NOT FOUND.
00528  M01S00506.pfu     +++|*                (IR+3 - IR+4) = VALIDATED FET ADDRESS.
00529  M01S00507.pfu     +++|*
00530  M01S00508.pfu     +++|*         EXIT   (FA) = FNT ADDRESS (0, IF NO FILE FOUND).
00531  M01S00509.pfu     +++|*                (FN - FN+4) = FNT ENTRY.
00532  M01S00510.pfu     +++|*                (FS - FS+4) = FST ENTRY.
00533  M01S00511.pfu     +++|*                FILE SET BUSY.
00534  M01S00512.pfu     +++|*                ERROR EXIT TAKEN IF I/O SEQUENCE ERROR OR IF FILE NOT
00535  M01S00513.pfu     +++|*                FOUND AND ABORT OPTION IS SELECTED.
00536  M01S00514.pfu     +++|*
00537  M01S00515.pfu     +++|*         USES   CM - CM+4, FA, FN - FN+4, FS - FS+4, T1.
00538  M01S00516.pfu     +++|*
00539  M01S00517.pfu     +++|*         MACROS ERROR, FETA, NFA.
00540  M01S00518.pfu     +++|
00541  M01S00519.pfu     +++|
00542  M01S00520.pfu     +++| FFE      SUBR               ENTRY/EXIT
00543  M01S00521.pfu     +++|          STD    T1          SAVE PROCESSING OPTIONS
00544  M01S00522.pfu     +++|          FETA               READ FILE NAME
00545  M01S00523.pfu     +++|          CRD    FN
00546  M01S00524.pfu     +++|
00547  M01S00525.pfu     +++|*         CHECK FNT ADDRESS IN FET.
00548  M01S00526.pfu     +++|
00549  M01S00527.pfu     +++|          ADN    FTLM        READ FNT ADDRESS
00550  M01S00528.pfu     +++|          CRD    CM
00551  M01S00529.pfu     +++|          LDD    CP          READ FL CONTROL WORD
00552  M01S00530.pfu     +++|          ADN    FLSW
00553  M01S00531.pfu     +++|          CRD    FS
00554  M01S00532.pfu     +++|          LDD    FS          SET NFL SIZE
00555  M01S00533.pfu     +++|          SHN    6
00556  M01S00534.pfu     +++|          ADN    1
00557  M01S00535.pfu     +++|          STD    FS+1
00558  M01S00536.pfu     +++|          LDC    FNTN
00559  M01S00537.pfu     +++|          STD    FS
00560  M01S00538.pfu     +++|          STD    FS+2
00561  M01S00539.pfu     +++|          SBD    CM          CHECK FNT ADDRESS IN FET
00562  M01S00540.pfu     +++|          PJN    FFE2        IF BELOW FNT
00563  M01S00541.pfu     +++|          LDD    CM
00564  M01S00542.pfu     +++|          SBD    FS+1
00565  M01S00543.pfu     +++|          PJN    FFE2        IF ABOVE FNT
00566  M01S00544.pfu     +++|          LDD    CM          SAVE FNT ADDRESS
00567  M01S00545.pfu     +++|          STD    FA
00568  M01S00546.pfu     +++|          NFA    FA,R
00569  M01S00547.pfu     +++|          CRD    CM          READ FNT ENTRY
00570  M01S00548.pfu     +++|
00571  M01S00549.pfu     +++|*         COMPARE FILE NAMES.
00572  M01S00550.pfu     +++|
00573  M01S00551.pfu     +++| FFE1     LDD    CM          CHECK CHARACTERS 1 AND 2
00574  M01S00552.pfu     +++|          ZJN    FFE2        IF NULL
00575  M01S00553.pfu     +++|          LMD    FN
00576  M01S00554.pfu     +++|          NJN    FFE2        IF NO MATCH
00577  M01S00555.pfu     +++|          LDD    CM+1        CHECK CHARACTERS 3 AND 4
00578  M01S00556.pfu     +++|          LMD    FN+1
00579  M01S00557.pfu     +++|          NJN    FFE2        IF NO MATCH
00580  M01S00558.pfu     +++|          LDD    CM+2        CHECK CHARACTERS 5 AND 6
00581  M01S00559.pfu     +++|          LMD    FN+2
00582  M01S00560.pfu     +++|          NJN    FFE2        IF NO MATCH
00583  M01S00561.pfu     +++|          LDD    CM+3        CHECK CHARACTER 7
00584  M01S00562.pfu     +++|          LMD    FN+3
00585  M01S00563.pfu     +++|          SCN    77
00586  M01S00564.pfu     +++|          ZJN    FFE5        IF A MATCH
00587  M01S00565.pfu     +++|
00588  M01S00566.pfu     +++|*         ADVANCE TO NEXT FNT ENTRY.
00589  M01S00567.pfu     +++|
00590  M01S00568.pfu     +++| FFE2     LDN    LENF        ADVANCE FNT ADDRESS
00591  M01S00569.pfu     +++|          RAD    FS
00592  M01S00570.pfu     +++|          SBD    FS+1
00593  M01S00571.pfu     +++|          PJN    FFE3        IF END OF FNT
00594  M01S00572.pfu     +++|          NFA    FS,R
00595  M01S00573.pfu     +++|          CRD    CM
00596  M01S00574.pfu     +++|          UJN    FFE1        LOOP ON SEARCH
00597  M01S00575.pfu     +++|
00598  M01S00576.pfu     +++|
00599  M01S00577.pfu     +++|*         PROCESS FILE NOT FOUND.
00600  M01S00578.pfu     +++|
00601  M01S00579.pfu     +++| FFE3     LDN    0           CLEAR BUSY FILE INDICATION
00602  M01S00580.pfu     +++|          STD    FA
00603  M01S00581.pfu     +++|          LDD    T1          CHECK FILE NOT FOUND PROCESSING
00604  M01S00582.pfu     +++|          SHN    21-0
00605  M01S00583.pfu     +++|          MJN    FFE4        IF RETURN CONTROL REQUESTED
00606  M01S00584.pfu     +++|          ERROR  ECFNF       PROCESS FILE NOT FOUND ERROR
00607  M01S00585.pfu     +++|
00608  M01S00586.pfu     +++| FFE4     AOM    FFE         ADVANCE EXIT ADDRESS
Line S00587 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00609  M02S00587.ns22000 ---|          LJM    FFEX        RETURN
Line S00008 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
00610  M02S00008.ns2332  ---|          UJP    FFEX        RETURN
00611  M01S00001.ns2332  +++|          UJN    FFE7.1      RETURN
00612  M01S00588.pfu     +++|
00613  M01S00589.pfu     +++|*         PERFORM LIBRARY TYPE CHECK.
00614  M01S00590.pfu     +++|
00615  M01S00591.pfu     +++| FFE5     LDD    T1          SEE IF CHECK FOR LIBRARY TYPE
00616  M01S00592.pfu     +++|          SHN    21-1
00617  M01S00593.pfu     +++|          MJN    FFE6        IF LIBRARY TYPE CHECK SUPPRESSED
00618  M01S00594.pfu     +++|          LDD    CM+4        CHECK FOR LIBRARY TYPE
00619  M01S00595.pfu     +++|          SHN    -6
00620  M01S00596.pfu     +++|          LMN    LIFT
00621  M01S00597.pfu     +++|          NJN    FFE3        IF NOT LIBRARY TYPE
00622  M01S00598.pfu     +++|
00623  M01S00599.pfu     +++|*         SET FNT ADDRESS IN FET.
00624  M01S00600.pfu     +++|
00625  M01S00601.pfu     +++| FFE6     FETA   FTLM        SET FNT ADDRESS IN LIMIT WORD OF FET
00626  M01S00602.pfu     +++|          CRD    CM
00627  M01S00603.pfu     +++|          LDD    FS
00628  M01S00604.pfu     +++|          LMD    FS+2
00629  M01S00605.pfu     +++|          ZJN    FFE7        IF FET FNT ADDRESS CORRECT
00630  M01S00606.pfu     +++|          LDD    FS          SET CORRECT FNT ADDRESS
00631  M01S00607.pfu     +++|          STD    FA
00632  M01S00608.pfu     +++| FFE7     LDD    FA          FNT ADDRESS
00633  M01S00609.pfu     +++|          STD    CM
00634  M01S00610.pfu     +++|          NFA    FA,R        FETCH FNT ENTRY
00635  M01S00611.pfu     +++|          CRD    FS
00636  M01S00612.pfu     +++|          CRD    FN          READ FNT ENTRY
00637  M01S00613.pfu     +++|          FETA   FTLM        WRITE FNT POINTER TO FET
00638  M01S00614.pfu     +++|          CWD    CM
00639  M01S00615.pfu     +++|          RJM    SFB         SET FILE BUSY
00640  M01S00616.pfu     +++|          NJN    FFE8        IF FILE NOT SET BUSY
Line S00617 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00617.ns22000 ---|          LJM    FFEX        RETURN
Line S00009 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
00642  M02S00009.ns2332  ---|          UJP    FFEX        RETURN
00643  M01S00002.ns2332  +++| FFE7.1   LJM    FFEX        RETURN
00644  M01S00618.pfu     +++|
00645  M01S00619.pfu     +++|*         PROCESS I/O SEQUENCE ERROR.
00646  M01S00620.pfu     +++|
00647  M01S00621.pfu     +++| FFE8     LDN    0           CLEAR BUSY FILE INDICATION
00648  M01S00622.pfu     +++|          STD    FA
00649  M01S00623.pfu     +++|          ERROR  ECIOS       PROCESS I/O SEQUENCE ERROR
00650  M01S00624.pfu     +++| LDB      SPACE  4,35
00651  M01S00625.pfu     +++|**        LDB - LOAD BUFFER.
00652  M01S00626.pfu     +++|*
00653  M01S00627.pfu     +++|*         ENTRY  (T4) = CHANNEL.
Line S00628 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00654  M02S00628.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
00655  M01S00010.ns22000 +++|*                (T5) = EST ORDINAL.
00656  M01S00629.pfu     +++|*                (T6) = TRACK.
00657  M01S00630.pfu     +++|*                (T7) = SECTOR.
00658  M01S00631.pfu     +++|*                (LF) = FILE LENGTH
00659  M01S00632.pfu     +++|*                (SSPF) = SYSTEM SECTOR PROCESS FLAG.
00660  M01S00633.pfu     +++|*                       = 0, IF NO SYSTEM SECTOR PROCESSING REQUIRED.
00661  M01S00634.pfu     +++|*                       = 1, IF SYSTEM SECTOR PROCESSING REQUIRED.
00662  M01S00635.pfu     +++|*
00663  M01S00636.pfu     +++|*         EXIT   (T6) = UPDATED TRACK.
00664  M01S00637.pfu     +++|*                (T7) = UPDATED SECTOR.
00665  M01S00638.pfu     +++|*                (IN - IN+1) = UPDATED BUFFER IN POINTER.
00666  M01S00639.pfu     +++|*                (EOIF) = 0 IF EOI NOT WRITTEN TO BUFFER.
00667  M01S00640.pfu     +++|*                       = NON-ZERO IF EOI WRITTEN TO BUFFER.
00668  M01S00641.pfu     +++|*                (SSPE) = SYSTEM SECTOR ERROR STATUS, IF PROCESSED.
00669  M01S00642.pfu     +++|*                       = 0, IF SYSTEM SECTOR PROCESSED WITHOUT ERROR.
00670  M01S00643.pfu     +++|*                       = NON-ZERO, IF SYSTEM SECTOR ERROR OCCURRED.
00671  M01S00644.pfu     +++|*                (SSPF) CLEARED WHEN SYSTEM SECTOR PROCESSING OCCURS.
00672  M01S00645.pfu     +++|*
00673  M01S00646.pfu     +++|*         NOTE - *SSPF* MUST NOT BE SET WHEN THIS ROUTINE IS CALLED
00674  M01S00647.pfu     +++|*                FROM ANY OF THE OVERLAYS.  IT IS THE SETTING OF
00675  M01S00648.pfu     +++|*                *SSPF* WHICH DETERMINES WHETHER THE SUB-ROUTINE
00676  M01S00649.pfu     +++|*                *CSS* IS CALLED TO CHECK A FILE-S SYSTEM SECTOR.
00677  M01S00650.pfu     +++|*                THIS SUB-ROUTINE RESIDES IN THE OVERLAY AREA AND,
00678  M01S00651.pfu     +++|*                THEREFORE, IS NOT AVAILABLE FOR CALLS WHEN AN
00679  M01S00652.pfu     +++|*                OVERLAY IS RESIDENT.
00680  M01S00653.pfu     +++|*
00681  M01S00654.pfu     +++|*
00682  M01S00655.pfu     +++|*         USES   P5, CM - CM+4, FS+2 - FS+3, IN - IN+1, LF - LF+1,
00683  M01S00656.pfu     +++|*                OT - OT+1, T1 - T3, T6 - T7.
00684  M01S00657.pfu     +++|*
00685  M01S00658.pfu     +++|*         CALLS  CSS, RDS, SAR.
00686  M01S00659.pfu     +++|*
00687  M01S00660.pfu     +++|*         MACROS ERROR.
00688  M01S00661.pfu     +++|
00689  M01S00662.pfu     +++|
00690  M01S00663.pfu     +++| LDB      SUBR               ENTRY/EXIT
00691  M01S00664.pfu     +++|          RJM    SAR         SET ABSOLUTE READ BUFFER ADDRESSES
00692  M01S00665.pfu     +++|          LDN    0
00693  M01S00666.pfu     +++|          STD    P5
00694  M01S00667.pfu     +++|          STM    EOIF        CLEAR EOI FLAG
00695  M01S00668.pfu     +++|
Line S00669 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
00696  M02S00669.ns2332  ---|*         CHECK SIZE OF BUFFER
00697  M01S00003.ns2332  +++|*         CHECK SIZE OF BUFFER.
00698  M01S00670.pfu     +++|
00699  M01S00671.pfu     +++| LDB1     STM    CWBA        CLEAR SECTOR ERROR FLAGS
00700  M01S00672.pfu     +++|          LDD    OT          LENGTH = OUT - IN+1
00701  M01S00673.pfu     +++|          SBD    IN
00702  M01S00674.pfu     +++|          SHN    14
00703  M01S00675.pfu     +++|          ADD    OT+1
00704  M01S00676.pfu     +++|          SBD    IN+1
00705  M01S00677.pfu     +++|          SBN    1
00706  M01S00678.pfu     +++|          PJN    LDB2        IF IN+1 .LT. OUT
00707  M01S00679.pfu     +++|          ADC    *           ADD BUFFER LENGTH
00708  M01S00680.pfu     +++| LDBA     EQU    *-2         (LIMIT-FIRST)
00709  M01S00681.pfu     +++| LDB2     ADC    -101
00710  M01S00682.pfu     +++|          MJN    LDBX        IF 101B WORDS NOT AVAILABLE
00711  M01S00683.pfu     +++|
00712  M01S00684.pfu     +++|*         DETERMINE IF SYSTEM SECTOR PROCESSED.
00713  M01S00685.pfu     +++|
00714  M01S00686.pfu     +++|          STM    LDBN+1      SAVE AVAILABLE CM BUFFER SPACE
00715  M01S00687.pfu     +++|          SHN    -14
00716  M01S00688.pfu     +++|          STM    LDBN
00717  M01S00689.pfu     +++|          LDM    SSPF
00718  M01S00690.pfu     +++|          ZJN    LDB5        IF SYSTEM SECTOR ALREADY PROCESSED
00719  M01S00691.pfu     +++|
00720  M01S00692.pfu     +++|*         PROCESS SYSTEM SECTOR.
00721  M01S00693.pfu     +++|
00722  M01S00694.pfu     +++|          LDM    LDBN        CHECK AVAILABLE CM BUFFER SPACE
00723  M01S00695.pfu     +++|          SHN    14
00724  M01S00696.pfu     +++|          ADM    LDBN+1
00725  M01S00697.pfu     +++|          NJN    LDB3        IF SPACE FOR FILE CONTROL WORD
Line S00698 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
00726  M02S00698.ns2332  ---|          LJM    LDBX        RETURN
00727  M01S00004.ns2332  +++| LDB2.1   LJM    LDBX        RETURN
00728  M01S00699.pfu     +++|
00729  M01S00700.pfu     +++| LDB3     LDN    0           CLEAR SYSTEM SECTOR PROCESS FLAG
00730  M01S00701.pfu     +++|          STM    SSPF
00731  M01S00702.pfu     +++|          RJM    CSS         READ AND CHECK SYSTEM SECTOR
00732  M01S00703.pfu     +++|          ZJN    LDB4        IF NO STATUS ERROR
00733  M01S00704.pfu     +++|          STM    SSPE        SAVE STATUS ERROR
Line S00705 Modification History
M01 (Added by) pfu
M02 (Updated by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
00734  M02S00705.ns2332  ---|          LJM    LDBX        RETURN
00735  M01S00005.ns2332  +++|          UJN    LDB2.1      RETURN
00736  M01S00706.pfu     +++|
00737  M01S00707.pfu     +++| LDB4     AOM    BFMS+1      ADJUST HEADER BYTE TO TRUE WORD COUNT
00738  M01S00708.pfu     +++|          LJM    LDB12       WRITE SYSTEM SECTOR TO CM BUFFER
00739  M01S00709.pfu     +++|
00740  M01S00710.pfu     +++|*         READ NEXT SECTOR.
00741  M01S00711.pfu     +++|
00742  M01S00712.pfu     +++| LDB5     LDC    BFMS
00743  M01S00713.pfu     +++|          RJM    RDS         READ SECTOR
00744  M01S00714.pfu     +++|          PJN    LDB6        IF NO MASS STORAGE ERROR
Line S00715 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00745  M02S00715.242l642 ---|          LDM    RDCT        SET FATAL ERROR STATUS
00746  M01S00716.pfu     +++|          SHN    0-13
00747  M01S00011.242l642 +++|          LPN    1
00748  M01S00717.pfu     +++|          LMN    2           SET MASS STORAGE ERROR CODE
00749  M01S00718.pfu     +++|          STM    CWBA
00750  M01S00719.pfu     +++|          LMN    3
00751  M01S00720.pfu     +++|          NJN    LDB6        IF NOT FATAL ERROR
00752  M01S00721.pfu     +++|          STM    BFMS        FORCE EOI SECTOR
00753  M01S00722.pfu     +++|          STM    BFMS+1
00754  M01S00723.pfu     +++| LDB6     LDD    RA          CHECK FOR STORAGE MOVE
00755  M01S00724.pfu     +++|          LMD    PR
00756  M01S00725.pfu     +++|          ZJN    LDB7        IF NOT STORAGE MOVED
00757  M01S00726.pfu     +++|          RJM    SAR         SET ABSOLUTE READ BUFFER ADDRESSES
00758  M01S00727.pfu     +++|
00759  M01S00728.pfu     +++|*         CHECK IF NEW TRACK.
00760  M01S00729.pfu     +++|
00761  M01S00730.pfu     +++| LDB7     LDD    T6          SET CURRENT TRACK IN CONTROL WORD
00762  M01S00731.pfu     +++|          STM    CWBA+1
00763  M01S00732.pfu     +++|          LDD    T7          SET CURRENT SECTOR IN CONTROL WORD
00764  M01S00733.pfu     +++|          STM    CWBA+2
00765  M01S00734.pfu     +++|          LDM    BFMS        CHECK FIRST CONTROL BYTE
00766  M01S00735.pfu     +++|          NJN    LDB8        IF NOT EOF OR EOI
00767  M01S00736.pfu     +++|          LDM    BFMS+1
00768  M01S00737.pfu     +++|          NJN    LDB8        IF EOF
00769  M01S00738.pfu     +++|          LDN    1           SET EOI FLAG
00770  M01S00739.pfu     +++|          STM    EOIF
00771  M01S00740.pfu     +++|          LDN    0
00772  M01S00741.pfu     +++|          LJM    LDB13       WRITE SECTOR TO CM BUFFER
00773  M01S00742.pfu     +++|
00774  M01S00743.pfu     +++| LDB8     STD    T7          SET NEXT TRACK
00775  M01S00744.pfu     +++|          STD    FS+3
00776  M01S00745.pfu     +++|          SHN    6
00777  M01S00746.pfu     +++|          PJN    LDB9        IF NOT NEW TRACK
00778  M01S00747.pfu     +++|          SHN    -6
00779  M01S00748.pfu     +++|          STD    T6          SET NEW TRACK
00780  M01S00749.pfu     +++|          STD    FS+2
00781  M01S00750.pfu     +++|          LDN    0
00782  M01S00751.pfu     +++|          STD    T7          CLEAR SECTOR
00783  M01S00752.pfu     +++|          STD    FS+3
00784  M01S00753.pfu     +++|
00785  M01S00754.pfu     +++|*         CHECK LENGTH FOR DUMP FILES.
00786  M01S00755.pfu     +++|
00787  M01S00756.pfu     +++| LDB9     UJN    *+1         PERFORM LENGTH CHECK
00788  M01S00757.pfu     +++|*         UJN    LDB12       (LENGTH CHECK SUPPRESSED)
00789  M01S00758.pfu     +++| LDBC     EQU    *-1
00790  M01S00759.pfu     +++|          SOD    LF+1        DECREMENT FILE LENGTH
00791  M01S00760.pfu     +++|          PJN    LDB10       IF NO BORROW
00792  M01S00761.pfu     +++|          SOD    LF
00793  M01S00762.pfu     +++|          AOD    LF+1        CANCEL END AROUND BORROW
00794  M01S00763.pfu     +++| LDB10    ADD    LF
00795  M01S00764.pfu     +++|          NJN    LDB12       IF NOT END OF FILE
00796  M01S00765.pfu     +++|          LDD    LL          CHECK IF LENGTH LEFT
00797  M01S00766.pfu     +++|          ADD    LL+1
00798  M01S00767.pfu     +++|          ZJN    LDB11       IF NO MORE LENGTH LEFT
00799  M01S00768.pfu     +++|          AOD    P5          SET RECALL EXIT FLAG
00800  M01S00769.pfu     +++|          UJN    LDB12       WRITE SECTOR TO CM BUFFER
00801  M01S00770.pfu     +++|
00802  M01S00771.pfu     +++| LDB11    STM    BFMS        CLEAR LINKAGE BYTES
00803  M01S00772.pfu     +++|          STM    BFMS+1
00804  M01S00773.pfu     +++|          AOM    CWBA        SET LENGTH ERROR FLAG
00805  M01S00774.pfu     +++|          STM    EOIF        SET EOI FLAG
00806  M01S00775.pfu     +++| LDB12    LDM    BFMS        CHECK FOR EOF OR EOI
00807  M01S00776.pfu     +++|          ZJN    LDB13       IF EOF OR EOI
00808  M01S00777.pfu     +++|          LDM    BFMS+1      GET WORD COUNT
00809  M01S00778.pfu     +++| LDB13    ADN    1           ADD 1 FOR CONTROL WORD
00810  M01S00779.pfu     +++|          STD    T1
00811  M01S00780.pfu     +++|
00812  M01S00781.pfu     +++|*         CHECK FOR LIMIT REACHED IN THIS SECTOR.
00813  M01S00782.pfu     +++|
00814  M01S00783.pfu     +++|          LDD    IN          CHECK IN + WORD COUNT
00815  M01S00784.pfu     +++|          SHN    14
00816  M01S00785.pfu     +++|          ADD    IN+1
00817  M01S00786.pfu     +++|          ADD    T1
00818  M01S00787.pfu     +++|          ADC    *           SET SECOND PART WORD COUNT
00819  M01S00788.pfu     +++| LDBD     EQU    *-2         (-LIMIT)
00820  M01S00789.pfu     +++|          STD    T2
00821  M01S00790.pfu     +++|          PJN    LDB14       IF WRAP AROUND SECTOR
00822  M01S00791.pfu     +++|
00823  M01S00792.pfu     +++|*         PROCESS NORMAL SECTOR.
00824  M01S00793.pfu     +++|
00825  M01S00794.pfu     +++|          LDD    IN          STORE BUFFER
00826  M01S00795.pfu     +++|          SHN    14
00827  M01S00796.pfu     +++|          ADD    IN+1
00828  M01S00797.pfu     +++|          ADC    *           READ SECTOR
00829  M01S00798.pfu     +++| LDBE     EQU    *-2         (RA)
00830  M01S00799.pfu     +++|          CWM    CWBA,T1
00831  M01S00800.pfu     +++|
00832  M01S00801.pfu     +++|*         ADVANCE IN POINTER.
00833  M01S00802.pfu     +++|
00834  M01S00803.pfu     +++|          LDD    T1          ADVANCE IN
00835  M01S00804.pfu     +++|          RAD    IN+1
00836  M01S00805.pfu     +++|          SHN    -14
00837  M01S00806.pfu     +++|          RAD    IN
00838  M01S00807.pfu     +++|          UJN    LDB17       CHECK OUT POINTER
00839  M01S00808.pfu     +++|
00840  M01S00809.pfu     +++|*         PROCESS WRAP AROUND SECTOR.
00841  M01S00810.pfu     +++|
00842  M01S00811.pfu     +++| LDB14    LDD    T1          SET FIRST PART WORD COUNT
00843  M01S00812.pfu     +++|          SBD    T2
00844  M01S00813.pfu     +++|          STD    T3
00845  M01S00814.pfu     +++|          ZJN    LDB15       IF NO FIRST PART
00846  M01S00815.pfu     +++|          LDD    IN          STORE FIRST PART
00847  M01S00816.pfu     +++|          SHN    14
00848  M01S00817.pfu     +++|          ADD    IN+1
00849  M01S00818.pfu     +++|          ADC    *           WRITE SECOND PART OF SECTOR
00850  M01S00819.pfu     +++| LDBF     EQU    *-2         (RA)
00851  M01S00820.pfu     +++|          CWM    CWBA,T3
00852  M01S00821.pfu     +++| LDB15    LDD    T2          CHECK SECOND PART LENGTH
00853  M01S00822.pfu     +++|          ZJN    LDB16       IF NO SECOND PART
00854  M01S00823.pfu     +++|          LDD    T3          SET PP BUFFER ADDRESS
00855  M01S00824.pfu     +++|          SHN    2
00856  M01S00825.pfu     +++|          ADD    T3
00857  M01S00826.pfu     +++|          ADC    CWBA
00858  M01S00827.pfu     +++|          STM    LDBH
00859  M01S00828.pfu     +++|          LDC    *           WRITE SECOND PART OF SECTOR
00860  M01S00829.pfu     +++| LDBG     EQU    *-2         (RA+FIRST)
00861  M01S00830.pfu     +++|          CWM    CWBA,T2
00862  M01S00831.pfu     +++| LDBH     EQU    *-1         (PP BUFFER ADDRESS)
00863  M01S00832.pfu     +++| LDB16    LDD    T2          SET NEW IN POINTER
00864  M01S00833.pfu     +++|          ADC    *
00865  M01S00834.pfu     +++| LDBI     EQU    *-2         (FIRST)
00866  M01S00835.pfu     +++|          STD    IN+1
00867  M01S00836.pfu     +++|          SHN    -14
00868  M01S00837.pfu     +++|          STD    IN
00869  M01S00838.pfu     +++|
00870  M01S00839.pfu     +++|*         CHECK FET OUT POINTER.
00871  M01S00840.pfu     +++|
00872  M01S00841.pfu     +++| LDB17    LDC    *           UPDATE OUT POINTER
00873  M01S00842.pfu     +++| LDBJ     EQU    *-2         (RA + FET ADDRESS OF OUT POINTER)
00874  M01S00843.pfu     +++|          CRD    CM
00875  M01S00844.pfu     +++|          LDD    CM+3
00876  M01S00845.pfu     +++|          STD    OT
00877  M01S00846.pfu     +++|          SHN    14
00878  M01S00847.pfu     +++|          LMD    CM+4
00879  M01S00848.pfu     +++|          STD    OT+1
00880  M01S00849.pfu     +++|          ADC    *           VALIDATE OUT POINTER
00881  M01S00850.pfu     +++| LDBK     EQU    *-2         (-LIMIT)
00882  M01S00851.pfu     +++|          MJN    LDB18       IF OUT .LT. LIMIT
00883  M01S00852.pfu     +++|          ERROR  ECBAE       PROCESS BUFFER ARGUMENT ERROR
00884  M01S00853.pfu     +++|
00885  M01S00854.pfu     +++|*         WRITE UPDATED IN POINTER.
00886  M01S00855.pfu     +++|
00887  M01S00856.pfu     +++| LDB18    LDD    IN          SET IN POINTER
00888  M01S00857.pfu     +++|          STD    CM+3
00889  M01S00858.pfu     +++|          LDD    IN+1
00890  M01S00859.pfu     +++|          STD    CM+4
00891  M01S00860.pfu     +++|          LDC    *           WRITE IN POINTER TO FET
00892  M01S00861.pfu     +++| LDBL     EQU    *-2         (RA + FET ADDRESS OF IN POINTER)
00893  M01S00862.pfu     +++|          CWD    CM
00894  M01S00863.pfu     +++|
00895  M01S00864.pfu     +++|*         CHECK TERMINATIONS.
00896  M01S00865.pfu     +++|
00897  M01S00866.pfu     +++|          LDM    EOIF        CHECK EOI FLAG
00898  M01S00867.pfu     +++|          ZJN    LDB20       IF NOT EOI
00899  M01S00868.pfu     +++| LDB19    LJM    LDBX        RETURN
00900  M01S00869.pfu     +++|
00901  M01S00870.pfu     +++| LDB20    LDD    P5          CHECK IF RECALL FLAG SET
00902  M01S00871.pfu     +++|          NJN    LDB19       IF RECALL FLAG SET
00903  M01S00872.pfu     +++|          LJM    LDB1        LOOP FOR ANOTHER SECTOR
00904  M01S00873.pfu     +++|
00905  M01S00874.pfu     +++|
00906  M01S00875.pfu     +++| EOIF     BSSZ   1           EOI FLAG
00907  M01S00876.pfu     +++|
00908  M01S00877.pfu     +++| LDBM     BSS    0           CODE TO DISABLE FILE LENGTH CHECK
00909  M01S00878.pfu     +++|          LOC    LDBC
00910  M01S00879.pfu     +++|          UJN    LDB12       SKIP FILE LENGTH CHECK
00911  M01S00880.pfu     +++|          LOC    *O
00912  M01S00881.pfu     +++|
00913  M01S00882.pfu     +++| LDBN     BSSZ   2           AVAILABLE CM BUFFER
Line S00883 Modification History
M01 (Added by) pfu
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00914  M02S00883.286l859 ---| CFMT     CON    0           CATALOG ENTRY FORMAT CODE
00915  M01S00884.pfu     +++| SSPF     CON    0           SYSTEM SECTOR PROCESS FLAG
00916  M01S00885.pfu     +++| SSPE     CON    0           SYSTEM SECTOR ERROR STATUS
00917  M01S00886.pfu     +++| DLSA     BSS    5           MASTER DEVICE STATUS
00918  M01S00887.pfu     +++| BEGF     BSS    3           BEGINNING FILE FLAGS
00919  M01S00888.pfu     +++| PDA      SPACE  4,15
00920  M01S00889.pfu     +++|**        PDA - PROCESS DIRECT ACCESS FILE.
00921  M01S00890.pfu     +++|*
00922  M01S00891.pfu     +++|*         ENTRY  (A) = RESIDENCY DEVICE NUMBER.
00923  M01S00892.pfu     +++|*                (DN) = MASTER DEVICE NUMBER.
00924  M01S00893.pfu     +++|*                (FS+2) = FIRST TRACK OF FILE.
00925  M01S00894.pfu     +++|*
00926  M01S00895.pfu     +++|*         EXIT   (T4 - T7) = MASS STORAGE PARAMETERS FOR FILE.
00927  M01S00896.pfu     +++|*                (DN) = RESIDENCY DEVICE NUMBER.
00928  M01S00897.pfu     +++|*                (DA) = NON-ZERO.
00929  M01S00898.pfu     +++|*                (DLSA) = MASTER DEVICE NUMBER.
00930  M01S00899.pfu     +++|*                ERROR EXIT TAKEN IF RESIDENCY DEVICE NOT FOUND.
00931  M01S00900.pfu     +++|*
00932  M01S00901.pfu     +++|*         USES   CM, DA, DN, P1, T6.
00933  M01S00902.pfu     +++|*
00934  M01S00903.pfu     +++|*         CALLS  IRA, SDN.
00935  M01S00904.pfu     +++|*
00936  M01S00905.pfu     +++|*         MACROS ENDMS, ERROR.
00937  M01S00906.pfu     +++|
00938  M01S00907.pfu     +++|
00939  M01S00908.pfu     +++| PDA      SUBR               ENTRY/EXIT
00940  M01S00909.pfu     +++|          STD    P1
00941  M01S00910.pfu     +++|          LDD    DN          GET DEVICE NUMBER
00942  M01S00911.pfu     +++|          STM    DLSA
00943  M01S00912.pfu     +++|          LMD    P1
00944  M01S00913.pfu     +++|          ZJN    PDA2        IF FILE RESIDES ON MASTER DEVICE
00945  M01S00914.pfu     +++|
00946  M01S00915.pfu     +++|*         PROCESS ALTERNATE DEVICE.
00947  M01S00916.pfu     +++|
00948  M01S00917.pfu     +++|          ENDMS
00949  M01S00918.pfu     +++|          LDD    P1          SET UP DAF ORDINAL
00950  M01S00919.pfu     +++|          STD    DN
00951  M01S00920.pfu     +++|          STD    CM
00952  M01S00921.pfu     +++|          LDC    **
Line S00922 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00953  M02S00922.ns22000 ---| PDAA     EQU    *-1         (FAMILY EQUIPMENT)
00954  M01S00011.ns22000 +++| PDAA     EQU    *-1         (FAMILY EST ORDINAL)
00955  M01S00923.pfu     +++|          RJM    SDN         SEARCH FOR DEVICE NUMBER
00956  M01S00924.pfu     +++|          PJN    PDA1        IF DEVICE FOUND
00957  M01S00925.pfu     +++|          ERROR  ECDNF       PROCESS *DEVICE NOT FOUND* ERROR
00958  M01S00926.pfu     +++|
00959  M01S00927.pfu     +++| PDA1     RJM    IRA         INITIALIZE RANDOM ADDRESS PROCESSORS
00960  M01S00928.pfu     +++|          LDD    FS+2        RESET TRACK
00961  M01S00929.pfu     +++|          STD    T6
00962  M01S00930.pfu     +++|
00963  M01S00931.pfu     +++| PDA2     LDN    1           SET DIRECT ACCESS FILE FLAG
00964  M01S00932.pfu     +++|          STD    DA
Line S00933 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00965  M02S00933.ns22000 ---|          LJM    PDAX        RETURN
00966  M01S00012.ns22000 +++|          UJN    PDAX        RETURN
Line S00934 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00967  M02S00934.242l642 ---| RPP      SPACE  4,20
Line S00935 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00968  M02S00935.242l642 ---|**        RPP - RECALL PP.
Line S00936 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00969  M02S00936.242l642 ---|*
Line S00937 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00970  M02S00937.242l642 ---|*         ENTRY  (IR - IR+4) = INPUT REGISTER.
Line S00938 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00971  M02S00938.242l642 ---|*                THIS ROUTINE IS ENTERED BY A JUMP RATHER THAN A RETURN
Line S00939 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00972  M02S00939.242l642 ---|*                JUMP AND EXITS TO PP RESIDENT.
Line S00940 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00973  M02S00940.242l642 ---|*                PP MUST HAVE BEEN CALLED WITH AUTO RECALL.
Line S00941 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00974  M02S00941.242l642 ---|*
Line S00942 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00975  M02S00942.242l642 ---|*         EXIT   TIMED RECALL REQUEST SET IN RECALL STACK.
Line S00943 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00976  M02S00943.242l642 ---|*
Line S00944 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00977  M02S00944.242l642 ---|*         USES   IR+1, CM - CM+4.
Line S00945 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00978  M02S00945.242l642 ---|*
Line S00946 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00979  M02S00946.242l642 ---|*         MACROS MONITOR.
Line S00947 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00980  M02S00947.242l642 ---|
Line S00948 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00981  M02S00948.242l642 ---|
Line S00949 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00982  M02S00949.242l642 ---| RPP      LDD    IR+1        SET AUTO RECALL FLAG
Line S00950 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00983  M02S00950.242l642 ---|          SCN    77
Line S00951 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00984  M02S00951.242l642 ---|          STD    IR+1
Line S00952 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00985  M02S00952.242l642 ---|          LDN    ZERL
Line S00953 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00986  M02S00953.242l642 ---|          CRD    CM
Line S00954 Modification History
M01 (Added by) pfu
M02 (Updated by) pfu4
M03 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00987  M03S00954.242l642 ---|          LDN    PTRF        SET TIMED RECALL
Line S00001 Modification History
M01 (Added by) pfu4
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00988  M02S00001.242l642 ---|          LDN    PTMF        SET TIMED RECALL
Line S00955 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00989  M02S00955.242l642 ---|          STD    CM+1
Line S00956 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00990  M02S00956.242l642 ---|          LDC    4*1000D     SET TIME TO 4 SECONDS
Line S00957 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00991  M02S00957.242l642 ---|          STD    CM+4
Line S00958 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00992  M02S00958.242l642 ---|          LDD    MA
Line S00959 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00993  M02S00959.242l642 ---|          CWD    IR
Line S00960 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00994  M02S00960.242l642 ---|          MONITOR  RECM      RECALL PP REQUEST
Line S00961 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00995  M02S00961.242l642 ---|          LJM    PPR         EXIT TO PP RESIDENT
00996  M01S00962.pfu     +++| SAR      SPACE  4,10
00997  M01S00963.pfu     +++|**        SAR - SET ABSOLUTE READ BUFFER ADDRESSES.
00998  M01S00964.pfu     +++|*
00999  M01S00965.pfu     +++|*         ENTRY  (RA) = CURRENT REFERENCE ADDRESS.
01000  M01S00966.pfu     +++|*                (FT - FT+1) = BUFFER FIRST.
01001  M01S00967.pfu     +++|*                (IR+3 - IR+4) = FET ADDRESS.
01002  M01S00968.pfu     +++|*
01003  M01S00969.pfu     +++|*         EXIT   (PR) = CURRENT REFERENCE ADDRESS.
01004  M01S00970.pfu     +++|*                ABSOLUTE READ BUFFER ADDRESSES SET.
01005  M01S00971.pfu     +++|*
01006  M01S00972.pfu     +++|*         USES   PR.
01007  M01S00973.pfu     +++|*
01008  M01S00974.pfu     +++|*         MACROS FETA.
01009  M01S00975.pfu     +++|
01010  M01S00976.pfu     +++|
01011  M01S00977.pfu     +++| SAR      SUBR               ENTRY/EXIT
01012  M01S00978.pfu     +++|          LDD    RA          SAVE CURRENT RA
01013  M01S00979.pfu     +++|          STD    PR
01014  M01S00980.pfu     +++|          SHN    6           SET RA
01015  M01S00981.pfu     +++|          STM    LDBE+1
01016  M01S00982.pfu     +++|          STM    LDBF+1
01017  M01S00983.pfu     +++|          SHN    -14
01018  M01S00984.pfu     +++|          LMC    ADCI
01019  M01S00985.pfu     +++|          STM    LDBE
01020  M01S00986.pfu     +++|          STM    LDBF
01021  M01S00987.pfu     +++|          LDD    FT          SET RA+FIRST
01022  M01S00988.pfu     +++|          SHN    6
01023  M01S00989.pfu     +++|          ADD    RA
01024  M01S00990.pfu     +++|          SHN    6
01025  M01S00991.pfu     +++|          ADD    FT+1
01026  M01S00992.pfu     +++|          STM    LDBG+1
01027  M01S00993.pfu     +++|          SHN    -14
01028  M01S00994.pfu     +++|          LMC    LDCI
01029  M01S00995.pfu     +++|          STM    LDBG
01030  M01S00996.pfu     +++|          FETA   FTIN        SET RA+FET ADDRESS OF IN POINTER
01031  M01S00997.pfu     +++|          STM    LDBL+1
01032  M01S00998.pfu     +++|          SHN    -14
01033  M01S00999.pfu     +++|          LMC    LDCI
01034  M01S01000.pfu     +++|          STM    LDBL
01035  M01S01001.pfu     +++|          FETA   FTOT        SET RA+FET ADDRESS OF OUT POINTER
01036  M01S01002.pfu     +++|          STM    LDBJ+1
01037  M01S01003.pfu     +++|          SHN    -14
01038  M01S01004.pfu     +++|          LMC    LDCI
01039  M01S01005.pfu     +++|          STM    LDBJ
01040  M01S01006.pfu     +++|          LJM    SARX        RETURN
Line S01007 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01041  M02S01007.242l642 ---| SAU      SPACE  4,15
Line S01008 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01042  M02S01008.242l642 ---|**        SAU - SET *PFU* ACTIVE FLAG.
Line S01009 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01043  M02S01009.242l642 ---|*
Line S01010 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01044  M02S01010.242l642 ---|*         ENTRY  (P4 - P5) = *PFU* ACTIVE FLAG ADDRESS.
Line S01011 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01045  M02S01011.242l642 ---|*
Line S01012 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01046  M02S01012.242l642 ---|*         EXIT   (PFAF - PFAF+1) = *PFU* ACTIVE FLAG ADDRESS.
Line S01013 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01047  M02S01013.242l642 ---|*                *PFU* ACTIVE FLAG ADDRESS VALIDATED.
Line S01014 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01048  M02S01014.242l642 ---|*                *PFU* ACTIVE FLAG IN CENTRAL PROGRAM SET = 1.
Line S01015 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01049  M02S01015.242l642 ---|*
Line S01016 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01050  M02S01016.242l642 ---|*         USES   CM - CM+4.
Line S01017 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01051  M02S01017.242l642 ---|*
Line S01018 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01052  M02S01018.242l642 ---|*         MACROS VADDR.
Line S01019 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01053  M02S01019.242l642 ---|
Line S01020 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01054  M02S01020.242l642 ---|
Line S01021 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01055  M02S01021.242l642 ---| SAU      SUBR               ENTRY/EXIT
Line S01022 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01056  M02S01022.242l642 ---|          LDN    ZERL        SET FLAG WORD = 1
Line S01023 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01057  M02S01023.242l642 ---|          CRD    CM
Line S01024 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01058  M02S01024.242l642 ---|          AOD    CM+4
Line S01025 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01059  M02S01025.242l642 ---|          VADDR  P4          VALIDATE FLAG ADDRESS
Line S01026 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01060  M02S01026.242l642 ---|          STM    PFAF+1      SAVE FLAG ADDRESS
Line S01027 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01061  M02S01027.242l642 ---|          SHN    -14
Line S01028 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01062  M02S01028.242l642 ---|          STM    PFAF
Line S01029 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01063  M02S01029.242l642 ---|          SHN    6           FORM ABSOLUTE ADDRESS
Line S01030 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01064  M02S01030.242l642 ---|          ADD    RA
Line S01031 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01065  M02S01031.242l642 ---|          SHN    6
Line S01032 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01066  M02S01032.242l642 ---|          ADD    P5
Line S01033 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01067  M02S01033.242l642 ---|          CWD    CM          SET *PFU* ACTIVE FLAG
Line S01034 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01068  M02S01034.242l642 ---|          UJN    SAUX        RETURN
Line S01035 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01069  M02S01035.242l642 ---|
Line S01036 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01070  M02S01036.242l642 ---| PFAF     BSSZ   2           *PFU* ACTIVE FLAG ADDRESS
01071  M01S01037.pfu     +++| SBA      SPACE  4,20
01072  M01S01038.pfu     +++|**        SBA - SET BUFFER ARGUMENTS.
01073  M01S01039.pfu     +++|*
01074  M01S01040.pfu     +++|*         READ BUFFER POINTERS INTO DIRECT CELLS.
01075  M01S01041.pfu     +++|*
01076  M01S01042.pfu     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
01077  M01S01043.pfu     +++|*
01078  M01S01044.pfu     +++|*         EXIT   (FT - FT+1) = FIRST.
01079  M01S01045.pfu     +++|*                (IN - IN+1) = IN.
01080  M01S01046.pfu     +++|*                (OT - OT+1) = OUT.
01081  M01S01047.pfu     +++|*                (LM - LM+1) = LIMIT.
01082  M01S01048.pfu     +++|*
01083  M01S01049.pfu     +++|*         USES   CM - CM+4, FT - FT+1, IN - IN+1, LM - LM+1, OT - OT+1.
01084  M01S01050.pfu     +++|*
01085  M01S01051.pfu     +++|*         MACROS FETA.
01086  M01S01052.pfu     +++|
01087  M01S01053.pfu     +++|
01088  M01S01054.pfu     +++| SBA      SUBR               ENTRY/EXIT
01089  M01S01055.pfu     +++|          FETA   FTLM        READ LIMIT
01090  M01S01056.pfu     +++|          CRD    LM-3
01091  M01S01057.pfu     +++|          SBN    1           READ OUT
01092  M01S01058.pfu     +++|          CRD    OT-3
01093  M01S01059.pfu     +++|          SBN    1           READ IN
01094  M01S01060.pfu     +++|          CRD    CM
01095  M01S01061.pfu     +++|          LDD    CM+3
01096  M01S01062.pfu     +++|          STD    IN
01097  M01S01063.pfu     +++|          LDD    CM+4
01098  M01S01064.pfu     +++|          STD    IN+1
01099  M01S01065.pfu     +++|          FETA   FTFT        READ FIRST
01100  M01S01066.pfu     +++|          CRD    CM
01101  M01S01067.pfu     +++|          LDD    CM+3
01102  M01S01068.pfu     +++|          LPN    77
01103  M01S01069.pfu     +++|          STD    FT
01104  M01S01070.pfu     +++|          LDD    CM+4
01105  M01S01071.pfu     +++|          STD    FT+1
01106  M01S01072.pfu     +++|          UJN    SBAX        RETURN
01107  M01S01073.pfu     +++| SCT      SPACE  4,20
01108  M01S01074.pfu     +++|**        SCT - SET CATALOG TRACK.
01109  M01S01075.pfu     +++|*
01110  M01S01076.pfu     +++|*         ENTRY  (P1 - P5) = 24/,18/PFD,18/AUI.
01111  M01S01077.pfu     +++|*                            PFD = ADDRESS OF PF DESCRIPTION WORD.
01112  M01S01078.pfu     +++|*                            AUI = ADDRESS OF USER INDEX.
01113  M01S01079.pfu     +++|*
Line S01080 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01114  M02S01080.ns22000 ---|*         EXIT   (T5) = EQUIPMENT.
01115  M01S00013.ns22000 +++|*         EXIT   (T5) = EST ORDINAL.
01116  M01S01081.pfu     +++|*                (T6) = TRACK.
01117  M01S01082.pfu     +++|*                (UI - UI+1) = USER INDEX.
01118  M01S01083.pfu     +++|*                ERROR EXIT TAKEN IF CATALOG TRACK NOT FOUND.
01119  M01S01084.pfu     +++|*
01120  M01S01085.pfu     +++|*         USES   CM - CM+4, UI - UI+1.
01121  M01S01086.pfu     +++|*
01122  M01S01087.pfu     +++|*         CALLS  SCA.
01123  M01S01088.pfu     +++|*
01124  M01S01089.pfu     +++|*         MACROS ERROR, VADDR.
01125  M01S01090.pfu     +++|
01126  M01S01091.pfu     +++|
01127  M01S01092.pfu     +++| SCT      SUBR               ENTRY/EXIT
01128  M01S01093.pfu     +++|          VADDR  P3,LEFT     GET ADDRESS OF PF DESCRIPTION
01129  M01S01094.pfu     +++|          SHN    14          FORM ABSOLUTE ADDRESS
01130  M01S01095.pfu     +++|          ADD    RA
01131  M01S01096.pfu     +++|          SHN    6
01132  M01S01097.pfu     +++|          CRM    SCTA,ON     READ PF DESCRIPTION
01133  M01S01098.pfu     +++|          VADDR  P4          GET ADDRESS OF USER INDEX
01134  M01S01099.pfu     +++|          SHN    14          FORM ABSOLUTE ADDRESS
01135  M01S01100.pfu     +++|          ADD    RA
01136  M01S01101.pfu     +++|          SHN    6
01137  M01S01102.pfu     +++|          CRD    CM          READ USER INDEX
01138  M01S01103.pfu     +++|          LDD    CM+3
01139  M01S01104.pfu     +++|          LPN    77
01140  M01S01105.pfu     +++|          STD    UI
01141  M01S01106.pfu     +++|          LDD    CM+4
01142  M01S01107.pfu     +++|          STD    UI+1
01143  M01S01108.pfu     +++|          LDC    SCTA        SET CATALOG ADDRESS
01144  M01S01109.pfu     +++|          RJM    SCA
01145  M01S01110.pfu     +++|          PJN    SCTX        IF CATALOG TRACK FOUND
01146  M01S01111.pfu     +++|          ERROR  ECCNF       PROCESS CATALOG NOT FOUND ERROR
01147  M01S01112.pfu     +++|
01148  M01S01113.pfu     +++| SCTA     BSSZ   5           PF DESCRIPTION WORD STORAGE
01149  M01S01114.pfu     +++| SFC      SPACE  4,15
01150  M01S01115.pfu     +++|**        SFC - SET FILE COMPLETE.
01151  M01S01116.pfu     +++|*
01152  M01S01117.pfu     +++|*         ENTRY  (FS - FS+4) = FILE STATUS.
01153  M01S01118.pfu     +++|*                (FA) = FNT ADDRESS (0, IF FILE NOT SET BUSY).
01154  M01S01119.pfu     +++|*
01155  M01S01120.pfu     +++|*         EXIT   (FA) = 0.
01156  M01S01121.pfu     +++|*                (FS - FS+4) = COMPLETED FST ENTRY.
01157  M01S01122.pfu     +++|*                FILE STATUS SET COMPLETE AND WRITTEN TO CENTRAL.
01158  M01S01123.pfu     +++|*
01159  M01S01124.pfu     +++|*         USES   FA, FS+4.
01160  M01S01125.pfu     +++|*
01161  M01S01126.pfu     +++|*         MACROS NFA.
01162  M01S01127.pfu     +++|
01163  M01S01128.pfu     +++|
01164  M01S01129.pfu     +++| SFC      SUBR               ENTRY/EXIT
01165  M01S01130.pfu     +++|          AOD    FS+4        SET STATUS COMPLETE
01166  M01S01131.pfu     +++|          LDD    FA
01167  M01S01132.pfu     +++|          ZJN    SFCX        IF NO FST ADDRESS
01168  M01S01133.pfu     +++|          NFA    FA,R        WRITE FST
01169  M01S01134.pfu     +++|          ADN    FSTL
01170  M01S01135.pfu     +++|          CWD    FS
01171  M01S01136.pfu     +++|          LDN    0           CLEAR BUSY FILE INDICATION
01172  M01S01137.pfu     +++|          STD    FA
01173  M01S01138.pfu     +++|          UJN    SFCX        RETURN
01174  M01S01139.pfu     +++| SRR      SPACE  4,10
01175  M01S01140.pfu     +++|**        SRR - SET RELATIVE READ BUFFER ADDRESSES.
01176  M01S01141.pfu     +++|*
01177  M01S01142.pfu     +++|*         ENTRY  (FT - FT+1) = BUFFER FIRST POINTER.
01178  M01S01143.pfu     +++|*                (LM - LM+1) = BUFFER LIMIT POINTER.
01179  M01S01144.pfu     +++|*
01180  M01S01145.pfu     +++|*         EXIT   RELATIVE READ BUFFER ADDRESSES SET.
01181  M01S01146.pfu     +++|
01182  M01S01147.pfu     +++|
01183  M01S01148.pfu     +++| SRR      SUBR               ENTRY/EXIT
01184  M01S01149.pfu     +++|          LDD    LM          SET LIMIT-FIRST
01185  M01S01150.pfu     +++|          SBD    FT
01186  M01S01151.pfu     +++|          SHN    14
01187  M01S01152.pfu     +++|          ADD    LM+1
01188  M01S01153.pfu     +++|          SBD    FT+1
01189  M01S01154.pfu     +++|          STM    LDBA+1
01190  M01S01155.pfu     +++|          SHN    -14
01191  M01S01156.pfu     +++|          LMC    ADCI
01192  M01S01157.pfu     +++|          STM    LDBA
01193  M01S01158.pfu     +++|          LDC    ADCI+77     SET -LIMIT
01194  M01S01159.pfu     +++|          LMD    LM
01195  M01S01160.pfu     +++|          STM    LDBD
01196  M01S01161.pfu     +++|          STM    LDBK
01197  M01S01162.pfu     +++|          LCN    0
01198  M01S01163.pfu     +++|          LMD    LM+1
01199  M01S01164.pfu     +++|          STM    LDBD+1
01200  M01S01165.pfu     +++|          STM    LDBK+1
01201  M01S01166.pfu     +++|          LDD    FT+1        SET FIRST
01202  M01S01167.pfu     +++|          STM    LDBI+1
01203  M01S01168.pfu     +++|          LDD    FT
01204  M01S01169.pfu     +++|          LMC    ADCI
01205  M01S01170.pfu     +++|          STM    LDBI
01206  M01S01171.pfu     +++|          LJM    SRRX        RETURN
01207  M01S01172.pfu     +++| VCA      SPACE  4,10
01208  M01S01173.pfu     +++|**        VCA - VALIDATE CENTRAL ADDRESS.
01209  M01S01174.pfu     +++|*
01210  M01S01175.pfu     +++|*         ENTRY  (A) = CENTRAL ADDRESS TO VALIDATE.
01211  M01S01176.pfu     +++|*
01212  M01S01177.pfu     +++|*         EXIT   (A) = 0 IF ADDR .LE. 1 OR ADDR .GE. FL (BAD ADDRESS).
01213  M01S01178.pfu     +++|*                (A) = CENTRAL ADDRESS IF VALID.
01214  M01S01179.pfu     +++|*                (T1 - T2) = CENTRAL ADDRESS (RIGHT JUSTIFIED).
01215  M01S01180.pfu     +++|*
01216  M01S01181.pfu     +++|*         USES   T1 - T2.
01217  M01S01182.pfu     +++|
01218  M01S01183.pfu     +++|
01219  M01S01184.pfu     +++| VCA1     STD    T1          CLEAR UPPER PART OF ADDRESS
01220  M01S01185.pfu     +++| VCA2     LDN    0           SET BAD ADDRESS FLAG
01221  M01S01186.pfu     +++|
01222  M01S01187.pfu     +++| VCA      SUBR               ENTRY/EXIT
01223  M01S01188.pfu     +++|          STD    T2          SAVE LOWER PART OF ADDRESS
01224  M01S01189.pfu     +++|          SCN    1           TEST FOR ADDRESS .LE. 1
01225  M01S01190.pfu     +++|          ZJN    VCA1        IF ADDRESS .LE. 1
01226  M01S01191.pfu     +++|          SCN    77          SAVE UPPER PART OF ADDRESS
01227  M01S01192.pfu     +++|          SHN    6
01228  M01S01193.pfu     +++|          STD    T1
01229  M01S01194.pfu     +++|          SHN    6           TEST FOR ADDRESS .GE. FL
01230  M01S01195.pfu     +++|          SBD    FL
01231  M01S01196.pfu     +++|          PJN    VCA2        IF ADDRESS .GE. FL
01232  M01S01197.pfu     +++|          LDD    T1          RESTORE VALID ADDRESS
01233  M01S01198.pfu     +++|          SHN    14
01234  M01S01199.pfu     +++|          LMD    T2
01235  M01S01200.pfu     +++|          UJN    VCAX        RETURN
01236  M01S01201.pfu     +++| VME      SPACE  4,15
Line S01202 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01237  M02S01202.ns22000 ---|**        VME - VALIDATE MASS STORAGE EQUIPMENT.
01238  M01S00014.ns22000 +++|**        VME - VALIDATE MASS STORAGE EST ORDINAL.
01239  M01S01203.pfu     +++|*
Line S01204 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01240  M02S01204.ns22000 ---|*         ENTRY  (A) = ADDRESS OF WORD CONTAINING EQUIPMENT NUMBER
Line S01205 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01241  M02S01205.ns22000 ---|*                      (6/,6/EQ).
01242  M01S00015.ns22000 +++|*         ENTRY  (A) = ADDRESS OF WORD CONTAINING EST ORDINAL.
01243  M01S01206.pfu     +++|*
Line S01207 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01244  M02S01207.ns22000 ---|*         EXIT   (T5) = EQUIPMENT NUMBER.
01245  M01S00016.ns22000 +++|*         EXIT   (T5) = EST ORDINAL.
Line S01208 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01246  M02S01208.ns22000 ---|*                (CM - CM+4) = EST ENTRY FOR EQUIPMENT.
Line S00017 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01247  M02S00017.242l642 ---|*                (CM - CM+4) = EST ENTRY FOR EST ORDINAL.
Line S01209 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01248  M02S01209.ns22000 ---|*                ERROR EXIT TAKEN IF EQUIPMENT NOT MASS STORAGE.
01249  M01S00018.ns22000 +++|*                ERROR EXIT TAKEN IF NOT MASS STORAGE.
01250  M01S01210.pfu     +++|*
01251  M01S01211.pfu     +++|*         USES   CM - CM+4, T1, T5.
01252  M01S01212.pfu     +++|*
01253  M01S01213.pfu     +++|*         CALLS  IRA.
01254  M01S01214.pfu     +++|*
Line S01215 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01255  M02S01215.ns22000 ---|*         MACROS ERROR.
Line S00019 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01256  M02S00019.242l642 ---|*         MACROS ERROR, SFA.
01257  M01S00012.242l642 +++|*         MACROS ERROR.
01258  M01S01216.pfu     +++|
01259  M01S01217.pfu     +++|
01260  M01S01218.pfu     +++| VME1     RJM    IRA         INITIALIZE RANDOM ADDRESS PROCESSORS
Line S00020 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01261  M02S00020.242l642 ---|          SFA    EST,T5      READ EST ENTRY
Line S00021 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01262  M02S00021.242l642 ---|          ADK    EQDE
Line S00022 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01263  M02S00022.242l642 ---|          CRD    CM
01264  M01S01219.pfu     +++|
01265  M01S01220.pfu     +++| VME      SUBR               ENTRY/EXIT
Line S01221 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01266  M02S01221.ns22000 ---|          STD    T1          GET EQUIPMENT NUMBER
01267  M01S00023.ns22000 +++|          STD    T1          GET EST ORDINAL
01268  M01S01222.pfu     +++|          LDI    T1
01269  M01S00024.ns22000 +++|          LPC    777
Line S01223 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01270  M02S01223.ns22000 ---|          LPN    77
01271  M01S01224.pfu     +++|          STD    T5
Line S01225 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01272  M02S01225.ns22000 ---|          ADM    ESTS        READ EST ENTRY
01273  M01S00025.ns22000 +++|          SFA    EST         READ EST ENTRY
01274  M01S00026.ns22000 +++|          ADK    EQDE
01275  M01S01226.pfu     +++|          CRD    CM
Line S01227 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01276  M02S01227.ns22000 ---|          LDD    CM          CHECK IF MASS STORAGE EQUIPMENT
01277  M01S00027.ns22000 +++|          LDD    CM          CHECK IF MASS STORAGE
01278  M01S01228.pfu     +++|          SHN    21-13
01279  M01S01229.pfu     +++|          MJN    VME1        IF MASS STORAGE DEVICE
01280  M01S01230.pfu     +++|          ERROR  ECPAR       PROCESS PARAMETER ERROR
Line S01231 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01281  M02S01231.242l642 ---| WIF      SPACE  4,10
Line S01232 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01282  M02S01232.242l642 ---|**        WIF - WRITE INTERLOCK FLAG.
Line S01233 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01283  M02S01233.242l642 ---|*
Line S01234 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01284  M02S01234.242l642 ---|*         ENTRY  (A) = 0 TO CLEAR INTERLOCK FLAG IN CENTRAL.
Line S01235 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01285  M02S01235.242l642 ---|*                      1 TO SET INTERLOCK FLAG IN CENTRAL.
Line S01236 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01286  M02S01236.242l642 ---|*                (P4 - P5) = 6/,18/INTF
Line S01237 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01287  M02S01237.242l642 ---|*                            INTF = INTERLOCK FLAG ADDRESS.
Line S01238 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01288  M02S01238.242l642 ---|*
Line S01239 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01289  M02S01239.242l642 ---|*         EXIT   INTERLOCK FLAG WRITTEN AT *INTF*.
Line S01240 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01290  M02S01240.242l642 ---|*
Line S01241 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01291  M02S01241.242l642 ---|*         USES   T1, CM - CM+4.
Line S01242 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01292  M02S01242.242l642 ---|
Line S01243 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01293  M02S01243.242l642 ---|
Line S01244 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01294  M02S01244.242l642 ---| WIF      SUBR               ENTRY/EXIT
Line S01245 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01295  M02S01245.242l642 ---|          STD    T1          FORM FLAG WORD
Line S01246 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01296  M02S01246.242l642 ---|          LDN    ZERL
Line S01247 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01297  M02S01247.242l642 ---|          CRD    CM
Line S01248 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01298  M02S01248.242l642 ---|          LDD    T1
Line S01249 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01299  M02S01249.242l642 ---|          STD    CM+4
Line S01250 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01300  M02S01250.242l642 ---|          LDD    P4          FORM ABSOLUTE INTERLOCK FLAG ADDRESS
Line S01251 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01301  M02S01251.242l642 ---|          LPN    77
Line S01252 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01302  M02S01252.242l642 ---|          SHN    6
Line S01253 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01303  M02S01253.242l642 ---|          ADD    RA
Line S01254 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01304  M02S01254.242l642 ---|          SHN    6
Line S01255 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01305  M02S01255.242l642 ---|          ADD    P5
Line S01256 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01306  M02S01256.242l642 ---|          CWD    CM          WRITE FLAG TO CENTRAL
Line S01257 Modification History
M01 (Added by) pfu
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01307  M02S01257.242l642 ---|          UJN    WIFX        RETURN
01308  M01S01258.pfu     +++|          TITLE  COMMON DECKS.
01309  M01S01259.pfu     +++|*         COMMON DECKS.
01310  M01S01260.pfu     +++|
01311  M01S01261.pfu     +++|
01312  M01S01262.pfu     +++| IRA$     EQU    1           SELECT INITIALIZATION BY *COMPIRA*
01313  M01S01263.pfu     +++|*CALL     COMPCRA
01314  M01S01264.pfu     +++|*CALL     COMPSCA
01315  M01S01265.pfu     +++|*CALL     COMPSDN
01316  M01S01266.pfu     +++| SEI$     EQU    1           SELECT *TRT* UPDATE CODE
01317  M01S01267.pfu     +++|*CALL     COMPSEI
01318  M01S01268.pfu     +++|*CALL     COMPSFB
01319  M01S01269.pfu     +++|*CALL     COMPSES
01320  M01S01270.pfu     +++|*CALL     COMPSNT
01321  M01S01271.pfu     +++|*CALL     COMPSRA
01322  M01S01272.pfu     +++|*CALL     COMPTGB
01323  M01S01273.pfu     +++|
01324  M01S01274.pfu     +++|*         *COMPIRA* MUST FOLLOW ALL RANDOM PROCESSORS IT IS TO
01325  M01S01275.pfu     +++|*         INITIALIZE.
01326  M01S01276.pfu     +++|
01327  M01S01277.pfu     +++|*CALL     COMPIRA
01328  M01S01278.pfu     +++|          SPACE  4,10
01329  M01S01279.pfu     +++|          USE    LITERALS
01330  M01S01280.pfu     +++|          SPACE  4,10
01331  M01S01281.pfu     +++|*         OVERLAY ORIGIN ADDRESS.
01332  M01S01282.pfu     +++|
01333  M01S01283.pfu     +++|
01334  M01S01284.pfu     +++| OVLA     EQU    *+5         OVERLAY ORIGIN ADDRESS
01335  M01S01285.pfu     +++|          SPACE  4,10
01336  M01S01286.pfu     +++|*         COMMON DECKS FOR FUNCTION PROCESSORS.
01337  M01S01287.pfu     +++|
01338  M01S01288.pfu     +++|
01339  M01S01289.pfu     +++|*CALL     COMPCRS
01340  M01S01290.pfu     +++|*CALL     COMPCTI
01341  M01S01291.pfu     +++|*CALL     COMPCUT
Line S01292 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01342  M02S01292.ns22000 ---| FNT$     EQU    1           ENABLE GLOBAL FNT PROCESSING
01343  M01S01293.pfu     +++| EJT$     EQU    1           ENABLE EJT PROCESSING
01344  M01S00028.ns22000 +++| FNT$     EQU    1           ENABLE SYSTEM FNT PROCESSING
01345  M01S01294.pfu     +++| IFP$     EQU    1           INITIALIZE FNT PROCESS
01346  M01S01295.pfu     +++|*CALL     COMPGFP
01347  M01S01296.pfu     +++| RIS$     SET    0           PROVIDE FOR IAPF SYSTEM SECTOR PROCESSING
01348  M01S01297.pfu     +++|*CALL     COMPRSS
01349  M01S01298.pfu     +++|*CALL     COMPSTI
01350  M01S01299.pfu     +++|*CALL     COMPSUT
01351  M01S01300.pfu     +++| OPN      TITLE  FUNCTION PROCESSORS (EXCEPT LOAD).
01352  M01S01301.pfu     +++|***       OPN - OPEN FILE.
01353  M01S01302.pfu     +++|*         FUNCTION 00 - CTOP - NO WRITE LOCKOUT.
01354  M01S01303.pfu     +++|*         FUNCTION 01 - CTOL - WITH WRITE LOCKOUT.
01355  M01S01304.pfu     +++|*
01356  M01S01305.pfu     +++|*         ENTRY  (IR+2) = 0 FOR NO WRITE LOCKOUT.
01357  M01S01306.pfu     +++|*                       = 1 FOR WRITE LOCKOUT.
01358  M01S01307.pfu     +++|*                (IR+3 - IR+4) = VALIDATED FET ADDRESS.
01359  M01S01308.pfu     +++|*
01360  M01S01309.pfu     +++|*T FET       42/  FILE NAME,18/
Figure FET

0171829 FILE NAME3059 FILE NAME

01361  M01S01310.pfu     +++|*T FET+FTPM  60/  FST
Figure FET+FTP

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "  FST", "bits": M  60, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

01362  M01S01311.pfu     +++|*
01363  M01S01312.pfu     +++|*         FST = FST FOR FILE.
01364  M01S01313.pfu     +++|*
01365  M01S01314.pfu     +++|*         EXIT   (FS - FS+4) = FST ENTRY FOR FILE.
01366  M01S01315.pfu     +++|*                (FA) = FNT ADDRESS OF FILE.
01367  M01S01316.pfu     +++|*                FNT/FST ENTRY CREATED FOR FILE.
01368  M01S01317.pfu     +++|*                ERROR EXIT TAKEN IF FILE ALREADY EXISTS.
01369  M01S01318.pfu     +++|*
01370  M01S01319.pfu     +++|*T FET+1     12/  EN,48/  UNCHANGED
Figure FET+1

029 UNCHANGED30474859 UNCHANGED EN

01371  M01S01320.pfu     +++|*T FET+FTLM  12/  FA,48/  UNCHANGED
Figure FET+FTL

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "  UNCHANGED", "bits": 48, "type": 2 },
{ "name": "  FA", "bits": M  12, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

01372  M01S01321.pfu     +++|*
Line S01322 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01373  M02S01322.ns22000 ---|*         EN = EQUIPMENT MNEMONIC.
01374  M01S00029.ns22000 +++|*         EN = DEVICE MNEMONIC.
01375  M01S01323.pfu     +++|*         FA = FNT ADDRESS OF FILE.
01376  M01S01324.pfu     +++|*
01377  M01S01325.pfu     +++|*         USES   FA, T5, CM - CM+4, FN - FN+4, FS - FS+4.
01378  M01S01326.pfu     +++|*
01379  M01S01327.pfu     +++|*         CALLS  *0BF*.
01380  M01S01328.pfu     +++|*
Line S01329 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01381  M02S01329.ns22000 ---|*         MACROS ERROR, EXECUTE, FETA, MONITOR, NFA.
01382  M01S00030.ns22000 +++|*         MACROS ERROR, EXECUTE, FETA, MONITOR, NFA, SFA.
01383  M01S01330.pfu     +++|
01384  M01S01331.pfu     +++|
01385  M01S01332.pfu     +++| OPN      SUBR               ENTRY/EXIT
01386  M01S01333.pfu     +++|          FETA               READ FILE NAME
01387  M01S01334.pfu     +++|          CRD    FN
01388  M01S01335.pfu     +++|          LDD    FN+3
01389  M01S01336.pfu     +++|          SCN    77
01390  M01S01337.pfu     +++|          ADD    IR+2
01391  M01S01338.pfu     +++|          STD    FN+3
Line S01339 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01392  M02S01339.ns22000 ---|          LDN    NEEQ        ASSIGN NULL EQUIPMENT
01393  M01S00031.ns22000 +++|          LDN    NEEQ        ASSIGN FILE TO NULL EQUIPMENT
01394  M01S01340.pfu     +++|          STD    FS
01395  M01S01341.pfu     +++|          LDN    4           SELECT RETURN ON LOCAL FILE LIMIT
01396  M01S01342.pfu     +++|          STM    OVL-1
01397  M01S01343.pfu     +++|          EXECUTE  0BF,OVL
01398  M01S01344.pfu     +++|          UJN    OPN1        CHECK RETURN STATUS
01399  M01S01345.pfu     +++|
01400  M01S01346.pfu     +++|          LDN    0           CLEAR BUSY FILE INDICATION
01401  M01S01347.pfu     +++|          STD    FA
01402  M01S01348.pfu     +++|          ERROR  ECDFN       PROCESS *DUPLICATE FILE NAME* ERROR
01403  M01S01349.pfu     +++|
01404  M01S01350.pfu     +++| OPN1     ZJN    OPN2        IF FNT ENTRY CREATED
01405  M01S01351.pfu     +++|          LDN    FLET        SET LOCAL FILE LIMIT ERROR FLAG
01406  M01S01352.pfu     +++|          STD    CM+1
01407  M01S01353.pfu     +++|          MONITOR  CEFM
01408  M01S01354.pfu     +++|          LJM    OPNX        RETURN
01409  M01S01355.pfu     +++|
01410  M01S01356.pfu     +++|*         SET LIBRARY FILE TYPE.
01411  M01S01357.pfu     +++|
01412  M01S01358.pfu     +++| OPN2     LDD    FN+4        SET LIBRARY FILE TYPE
01413  M01S01359.pfu     +++|          LPN    77
Line S01360 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01414  M02S01360.ns22000 ---|          LMC    LIFT*100
01415  M01S00032.ns22000 +++|          ERRNZ  LIFT-10     CANNOT USE DIRECT CELL *TH*
01416  M01S00033.ns22000 +++|          LMD    TH
01417  M01S01361.pfu     +++|          STD    FN+4        STORE FILE TYPE
01418  M01S01362.pfu     +++|
01419  M01S01363.pfu     +++|*         GET FST ENTRY.
01420  M01S01364.pfu     +++|
01421  M01S01365.pfu     +++|          FETA   FTPM        GET FST ENTRY
01422  M01S01366.pfu     +++|          CRD    FS
01423  M01S01367.pfu     +++|          LDD    FS+4        FORCE STATUS BUSY
01424  M01S01368.pfu     +++|          SCN    1
01425  M01S01369.pfu     +++|          STD    FS+4
Line S01370 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01426  M02S01370.ns22000 ---|          LDD    FS          SET EQUIPMENT
01427  M01S00034.ns22000 +++|          LDD    FS          SET EST ORDINAL
Line S01371 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01428  M02S01371.ns22000 ---|          LPN    77
01429  M01S01372.pfu     +++|          STD    T5
01430  M01S01373.pfu     +++|
01431  M01S01374.pfu     +++|*         WRITE FNT ENTRY.
01432  M01S01375.pfu     +++|
01433  M01S01376.pfu     +++|          FETA   FTLM        SET FNT POINTER IN FET
01434  M01S01377.pfu     +++|          CRD    CM
01435  M01S01378.pfu     +++|          LDD    FA
01436  M01S01379.pfu     +++|          STD    CM
01437  M01S01380.pfu     +++|          NFA    FA,R
01438  M01S01381.pfu     +++|          CWD    FN          WRITE FNT ENTRY
01439  M01S01382.pfu     +++|          FETA   FTLM
01440  M01S01383.pfu     +++|          CWD    CM
01441  M01S01384.pfu     +++|
Line S01385 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01442  M02S01385.ns22000 ---|*         SET EQUIPMENT TYPE.
01443  M01S00035.ns22000 +++|*         SET DEVICE TYPE.
01444  M01S01386.pfu     +++|
Line S01387 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01445  M02S01387.ns22000 ---|          FETA   1           SET EQUIPMENT TYPE IN FET
01446  M01S00036.ns22000 +++|          FETA   1           SET DEVICE TYPE IN FET
01447  M01S01388.pfu     +++|          CRD    FN
Line S01389 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01448  M02S01389.ns22000 ---|          LDM    ESTS
Line S01390 Modification History
M01 (Added by) pfu
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01449  M02S01390.ns22000 ---|          ADD    T5
01450  M01S00037.ns22000 +++|          SFA    EST,T5
01451  M01S00038.ns22000 +++|          ADK    EQDE
01452  M01S01391.pfu     +++|          CRD    CM
01453  M01S01392.pfu     +++|          LDD    CM+3
Line S01393 Modification History
M01 (Added by) pfu
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01454  M02S01393.252l678 ---|          LPC    3777
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/pfu.txt ยท Last modified: by 127.0.0.1