cdc:nos2.source:opl.opl871:deck:pfu
Deck PFU
22 Modifications
Listing Sections
- Deck PFU Start
- Deck PFU Part 1 (Line 1455)
- Deck PFU Part 2 (Line 2797)
- Deck PFU Part 3 (Line 4233)
- Deck PFU Part 4 (Line 5708)
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
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
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
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