cdc:nos2.source:opl.opl871:deck:mpf
Deck MPF
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.mpf +++| IDENT MPF,MPF 00002 M01S00002.mpf +++| PERIPH 00003 M01S00003.mpf +++| BASE MIXED 00004 M01S00004.mpf +++| SST 00005 M01S00005.mpf +++| TITLE MPF - *PACKER* UTILITY HELPER. 00006 M01S00006.mpf +++| SPACE 4,10 00007 M01S00007.mpf +++|*COMMENT MPF - *PACKER* UTILITY HELPER.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | mpf |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M02S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1988. 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M01S00009.mpf +++| SPACE 4,10 00011 M01S00010.mpf +++|*** MPF - *PACKER* UTILITY PP HELPER ROUTINE. 00012 M01S00011.mpf +++|* 00013 M01S00012.mpf +++|* W. J. STURGIS. 78/02/14. 00014 M01S00013.mpf +++|* K. A. GILLIAM. 80/08/11. 00015 M01S00014.mpf +++|* D. G. BEAUSANG. 80/08/26. 00016 M01S00015.mpf +++|* A. J. NATHANSON. 83/10/25. 00017 M01S00016.mpf +++|* K. R. DELAY. 84/03/26. 00018 M01S00017.mpf +++|* P. C. SMITH. 87/12/01. 00019 M01S00018.mpf +++| SPACE 4,10 00020 M01S00019.mpf +++|*** MPF IS A PP HELPER PROGRAM FOR THE UTILITY *PACKER*. 00021 M01S00020.mpf +++| SPACE 4,10 00022 M01S00021.mpf +++|*** CALL - 00023 M01S00022.mpf +++|* 00024 M01S00023.mpf +++|*T 18/ *MPF*,6/ R,12/ FN,6/ ,18/ ADDR
Figure
00025 M01S00024.mpf +++|* 00026 M01S00025.mpf +++|* FN = FUNCTION CODE. 00027 M01S00026.mpf +++|* ADDR = ADDRESS OF FET OR PARAMETER BLOCK. 00028 M01S00027.mpf +++|* 00029 M01S00028.mpf +++|* SEE INDIVIDUAL FUNCTIONS FOR MORE DETAILS. 00030 M01S00029.mpf +++|* 00031 M01S00030.mpf +++|* FN = 0, DROP TRACKS ON IAPF CHAIN. 00032 M01S00031.mpf +++|* FN = 1, REWRITE EOI. 00033 M01S00032.mpf +++|* FN = 2, DELINK TRACKS FROM IAPF CHAIN. 00034 M01S00033.mpf +++|* FN = 3, (RESERVED). 00035 M01S00034.mpf +++|* FN = 4, READ SYSTEM SECTOR. 00036 M01S00035.mpf +++|* FN = 5, WRITE SYSTEM SECTOR. 00037 M01S00036.mpf +++|* FN = 6, RETURN FST FOR CATALOG OVERFLOW TRACK. 00038 M01S00037.mpf +++|* FN = 7, REWRITE CATALOG SECTOR. 00039 M01S00038.mpf +++| SPACE 4,10 00040 M01S00039.mpf +++|*** DAYFILE MESSAGES. 00041 M01S00040.mpf +++|* 00042 M01S00041.mpf +++|* THESE MESSAGES ARE ISSUED TO THE SYSTEM AND LOCAL 00043 M01S00042.mpf +++|* DAYFILES, AND THE CALLING JOB IS ABORTED. 00044 M01S00043.mpf +++|* 00045 M01S00044.mpf +++|* * MPF - ADDRESS OUT OF RANGE.* 00046 M01S00045.mpf +++|* THE SPECIFIED ADDRESS WAS .LE. 1 OR .GE. FL. 00047 M01S00046.mpf +++|* 00048 M01S00047.mpf +++|* * MPF - BUFFER ARGUMENT ERROR.* 00049 M01S00048.mpf +++|* BUFFER ARGUMENTS (FIRST/IN/OUT/LIMIT) ARE INCORRECT. 00050 M01S00049.mpf +++|* 00051 M01S00050.mpf +++|* * MPF - CATALOG REWRITE LINK BYTE ERROR.* 00052 M01S00051.mpf +++|* AN INCORRECT LINK BYTE WAS READ FROM THE 00053 M01S00052.mpf +++|* CATALOG TRACK. 00054 M01S00053.mpf +++|* 00055 M01S00054.mpf +++|* * MPF - DEVICE ERROR IDLE SET.* 00056 M01S00055.mpf +++|* A DEVICE ERROR IDLE WAS SET AS THE RESULT OF AN 00057 M01S00056.mpf +++|* INCORRECT CATALOG SECTOR WRITE. 00058 M01S00057.mpf +++|* 00059 M01S00058.mpf +++|* * MPF - EQXX TKYYYY SCZZZZ.* 00060 M01S00059.mpf +++|* THE EST ORDINAL, TRACK AND SECTOR LOCATION OF THE 00061 M01S00060.mpf +++|* INCORRECT SECTOR WRITE. 00062 M01S00061.mpf +++|* 00063 M01S00062.mpf +++|* * MPF - FET COMPLETE BIT SET.* 00064 M01S00063.mpf +++|* THE FET COMPLETE BIT WAS SET ON ENTRY FOR FN=7. 00065 M01S00064.mpf +++|* 00066 M01S00065.mpf +++|* * MPF - FET TOO SHORT.* 00067 M01S00066.mpf +++|* THE FET WAS TOO SHORT FOR FN=7. 00068 M01S00067.mpf +++|* 00069 M01S00068.mpf +++|* * MPF - FILE NOT FOUND.* 00070 M01S00069.mpf +++|* THE LOCAL FILE SPECIFIED IN THE FET WAS NOT FOUND. 00071 M01S00070.mpf +++|* 00072 M01S00071.mpf +++|* * MPF - FM DN FFFFFFF NN.* 00073 M01S00072.mpf +++|* THE FAMILY NAME (FFFFFFF) AND DEVICE NUMBER (NN) 00074 M01S00073.mpf +++|* OF THE DEVICE ON WHICH ERROR IDLE WAS SET. 00075 M01S00074.mpf +++|* 00076 M01S00075.mpf +++|* * MPF - INACCESSIBLE DEVICE.* 00077 M01S00076.mpf +++|* THE DEVICE STATUS RETURNED BY THE *SETMS* MACRO 00078 M01S00077.mpf +++|* INDICATES THAT THE DEVICE IS NOT ACCESSIBLE. 00079 M01S00078.mpf +++|* 00080 M01S00079.mpf +++|* * MPF - INCORRECT CALL.* 00081 M01S00080.mpf +++|* CALLER WAS NOT *SSJ=* PROGRAM, OR *MPF* WAS 00082 M01S00081.mpf +++|* NOT CALLED WITH AUTO RECALL. 00083 M01S00082.mpf +++|* 00084 M01S00083.mpf +++|* * MPF - INCORRECT CATALOG REWRITE REQUEST.* 00085 M01S00084.mpf +++|* INCORRECT SECTOR LENGTH, INCORRECT RANDOM ADDRESS, 00086 M01S00085.mpf +++|* INCORRECT EST ORDINAL, ET CETERA. 00087 M01S00086.mpf +++|* 00088 M01S00087.mpf +++|* * MPF - INCORRECT CIO CODE IN CATALOG REWRITE.* 00089 M01S00088.mpf +++|* THE CIO CODE FOR *REWRITE* MUST BE SET IN THE FET 00090 M01S00089.mpf +++|* FOR A SECTOR REWRITE WITH 100B WORDS; THE CIO CODE 00091 M01S00090.mpf +++|* FOR *REWRITER* MUST BE SET IN THE FET FOR A SECTOR 00092 M01S00091.mpf +++|* WITH LESS THAN 100B WORDS. 00093 M01S00092.mpf +++|* 00094 M01S00093.mpf +++|* * MPF - INCORRECT FUNCTION.* 00095 M01S00094.mpf +++|* FUNCTION NUMBER NOT RECOGNIZED. 00096 M01S00095.mpf +++|* 00097 M01S00096.mpf +++|* * MPF - INCORRECT LINK BYTE IN CATALOG SCAN.* 00098 M01S00097.mpf +++|* THE CONTROL BYTES IN THE SECTOR AT END OF A TRACK 00099 M01S00098.mpf +++|* WERE NOT LINK BYTES, THE LINK BYTE POINTED TO AN 00100 M01S00099.mpf +++|* UNRESERVED TRACK, OR THE LINK BYTE POINTED TO A 00101 M01S00100.mpf +++|* TRACK WHICH WAS NOT ON THE TRACK CHAIN WHICH STARTED 00102 M01S00101.mpf +++|* WITH THE LABEL TRACK. 00103 M01S00102.mpf +++|* 00104 M01S00103.mpf +++|* * MPF - INCORRECT OVERFLOW FST REQUEST.* 00105 M01S00104.mpf +++|* THE PARAMETER BLOCK FOR FN=6 WAS INCORRECT. 00106 M01S00105.mpf +++|* 00107 M01S00106.mpf +++|* * MPF - INCORRECT SECTOR READ IN CATALOG REWRITE.* 00108 M01S00107.mpf +++|* AN UNRECOVERED MASS STORAGE ERROR WAS ENCOUNTERED 00109 M01S00108.mpf +++|* ON A SECTOR READ. 00110 M01S00109.mpf +++|* 00111 M01S00110.mpf +++|* * MPF - INCORRECT SECTOR READ IN CATALOG SCAN.* 00112 M01S00111.mpf +++|* AN UNRECOVERED MASS STORAGE ERROR WAS ENCOUNTERED 00113 M01S00112.mpf +++|* ON A CATALOG TRACK. 00114 M01S00113.mpf +++|* 00115 M01S00114.mpf +++|* * MPF - INCORRECT SYSTEM SECTOR.* 00116 M01S00115.mpf +++|* THE LINKAGE BYTES IN THE BUFFER WERE NOT CORRECT 00117 M01S00116.mpf +++|* FOR THE WRITE SYSTEM SECTOR FUNCTION. 00118 M01S00117.mpf +++|* 00119 M01S00118.mpf +++|* * MPF - INCORRECT WORD COUNT IN CATALOG REWRITE.* 00120 M01S00119.mpf +++|* THE WORD COUNT IN THE CIO BUFFER IS .GE. THAN 100B. 00121 M01S00120.mpf +++|* 00122 M01S00121.mpf +++|* * MPF - INCORRECT WRITE IN CATALOG REWRITE.* 00123 M01S00122.mpf +++|* AN UNRECOVERED MASS STORAGE ERROR WAS ENCOUNTERED 00124 M01S00123.mpf +++|* ON A SECTOR WRITE. THIS ERROR WILL SET ERROR IDLE 00125 M01S00124.mpf +++|* ON THE DEVICE. 00126 M01S00125.mpf +++|* 00127 M01S00126.mpf +++|* * MPF - I/O SEQUENCE ERROR.* 00128 M01S00127.mpf +++|* FST ENTRY FOR REWRITE EOI WAS BUSY. 00129 M01S00128.mpf +++|* 00130 M01S00129.mpf +++|* * MPF - RANDOM ADDRESS NOT ON IAPF CHAIN.* 00131 M01S00130.mpf +++|* THE SPECIFIED RANDOM ADDRESS WAS NOT FOUND ON 00132 M01S00131.mpf +++|* THE IAPF CHAIN. 00133 M01S00132.mpf +++|* 00134 M01S00133.mpf +++|* * MPF - SYSTEM SECTOR ERROR.* 00135 M01S00134.mpf +++|* A MASS STORAGE ERROR WAS ENCOUNTERED WHEN READING 00136 M01S00135.mpf +++|* OR WRITING A SYSTEM SECTOR. 00137 M01S00136.mpf +++|* 00138 M01S00137.mpf +++|* * MPF - WRITE LOCK-OUT ON CATALOG FILE.* 00139 M01S00138.mpf +++|* THE CATALOG FILE WAS NOT IN WRITE MODE. 00140 M01S00139.mpf +++| TITLE COMMON DECKS. 00141 M01S00140.mpf +++| SPACE 4,10 00142 M01S00141.mpf +++|* COMMON DECKS. 00143 M01S00142.mpf +++| SPACE 4,10 00144 M01S00143.mpf +++|*CALL COMPMAC 00145 M01S00144.mpf +++|*CALL COMSCPS 00146 M01S00145.mpf +++|*CALL COMSLSD 00147 M01S00146.mpf +++|*CALL COMSMSP 00148 M01S00147.mpf +++|*CALL COMSMST 00149 M01S00148.mpf +++|*CALL COMSPIM 00150 M01S00149.mpf +++|*CALL COMSWEI 00151 M01S00150.mpf +++| TITLE MACRO DEFINITIONS. 00152 M01S00151.mpf +++| SPACE 4,10 00153 M01S00152.mpf +++|* MACRO DEFINITIONS. 00154 M01S00153.mpf +++| ERROR SPACE 4,10 00155 M01S00154.mpf +++|** ERROR - ISSUE ERROR MESSAGE AND ABORT. 00156 M01S00155.mpf +++|* 00157 M01S00156.mpf +++|* ERROR MSG 00158 M01S00157.mpf +++|* 00159 M01S00158.mpf +++|* MSG = ADDRESS OF ERROR MESSAGE. 00160 M01S00159.mpf +++|* 00161 M01S00160.mpf +++|* CALLS ERR. 00162 M01S00161.mpf +++| 00163 M01S00162.mpf +++| 00164 M01S00163.mpf +++| PURGMAC ERROR 00165 M01S00164.mpf +++| 00166 M01S00165.mpf +++| ERROR MACRO M 00167 M01S00166.mpf +++| MACREF ERROR 00168 M01S00167.mpf +++| LDC M 00169 M01S00168.mpf +++| RJM ERR 00170 M01S00169.mpf +++| ERROR ENDM 00171 M01S00170.mpf +++| LDCA SPACE 4,10 00172 M01S00171.mpf +++|** LDCA - LOAD AND CHECK CENTRAL ADDRESS. 00173 M01S00172.mpf +++|* 00174 M01S00173.mpf +++|* LDCA ADDR,OFFSET 00175 M01S00174.mpf +++|* 00176 M01S00175.mpf +++|* (ADDR - ADDR+1) = RELATIVE ADDRESS. 00177 M01S00176.mpf +++|* OFFSET = ADDED TO ADDRESS. 00178 M01S00177.mpf +++|* 00179 M01S00178.mpf +++|* CALLS VCA. 00180 M01S00179.mpf +++|* 00181 M01S00180.mpf +++|* USES T1, T2. 00182 M01S00181.mpf +++| 00183 M01S00182.mpf +++| 00184 M01S00183.mpf +++| PURGMAC LDCA 00185 M01S00184.mpf +++| 00186 M01S00185.mpf +++| LDCA MACRO A,N 00187 M01S00186.mpf +++| MACREF LDCA 00188 M01S00187.mpf +++| LDD A 00189 M01S00188.mpf +++| LPN 37 00190 M01S00189.mpf +++| SHN 14 00191 M01S00190.mpf +++| ADD A+1 00192 M01S00191.mpf +++| IFC NE,$N$$,1 00193 M01S00192.mpf +++| ADK N 00194 M01S00193.mpf +++| RJM VCA 00195 M01S00194.mpf +++| LDCA ENDM 00196 M01S00195.mpf +++| TITLE DIRECT CELL DEFINITIONS. 00197 M01S00196.mpf +++| SPACE 4,10 00198 M01S00197.mpf +++|* DIRECT CELL DEFINITIONS. 00199 M01S00198.mpf +++| 00200 M01S00199.mpf +++| 00201 M01S00200.mpf +++| FS EQU 20 - 24 FST ENTRY 00202 M01S00201.mpf +++| RI EQU 25 - 26 RANDOM INDEX 00203 M01S00202.mpf +++| CT EQU 35 OVERFLOW TRACK NUMBER 00204 M01S00203.mpf +++| TK EQU 36 LABEL TRACK 00205 M01S00204.mpf +++| FN EQU 40 - 44 FNT ENTRY 00206 M01S00205.mpf +++| FA EQU 57 FNT ADDRESS 00207 M01S00206.mpf +++| FT EQU 60 - 61 FIRST 00208 M01S00207.mpf +++| IN EQU 62 - 63 IN 00209 M01S00208.mpf +++| OT EQU 64 - 65 OUT 00210 M01S00209.mpf +++| LM EQU 66 - 67 LIMIT 00211 M01S00210.mpf +++| TITLE MAIN PROGRAM. 00212 M01S00211.mpf +++| SPACE 4,10 00213 M01S00212.mpf +++| ORG PPFW 00214 M01S00213.mpf +++| MPF SPACE 4,10 00215 M01S00214.mpf +++|** MPF - MAIN PROGRAM. 00216 M01S00215.mpf +++| 00217 M01S00216.mpf +++| 00218 M01S00217.mpf +++| MPF BSS 0 ENTRY 00219 M01S00218.mpf +++| RJM PRS PRESET 00220 M01S00219.mpf +++| RJM 0,T1 EXECUTE FUNCTION 00221 M01S00220.mpf +++| MONITOR DPPM DROP PP 00222 M01S00221.mpf +++| LJM PPR EXIT TO PP RESIDENT 00223 M01S00222.mpf +++| TITLE ERROR PROCESSING. 00224 M01S00223.mpf +++| ERR SPACE 4,10 00225 M01S00224.mpf +++|** ERR - ERROR PROCESSOR. 00226 M01S00225.mpf +++|* 00227 M01S00226.mpf +++|* ENTRY (A) = ADDRESS OF ERROR MESSAGE TEXT. 00228 M01S00227.mpf +++|* 00229 M01S00228.mpf +++|* EXIT TO *PPR*. 00230 M01S00229.mpf +++|* PP HUNG IF *SYSTEM DEBUG* ENABLED. 00231 M01S00230.mpf +++|* 00232 M01S00231.mpf +++|* CALLS DFM, SFC. 00233 M01S00232.mpf +++|* 00234 M01S00233.mpf +++|* MACROS MONITOR. 00235 M01S00234.mpf +++| 00236 M01S00235.mpf +++| 00237 M01S00236.mpf +++| ERR SUBR ENTRY 00238 M01S00237.mpf +++| RJM DFM ISSUE DAYFILE MESSAGE 00239 M01S00238.mpf +++| RJM SFC SET FST COMPLETE 00240 M01S00239.mpf +++| LDK ZERL 00241 M01S00240.mpf +++| CRD CM 00242 M01S00241.mpf +++| LDM ERR SET ADDRESS OF CALLER 00243 M01S00242.mpf +++| STD CM+1 00244 M01S00243.mpf +++| MONITOR CHGM CONDITIONALLY HANG PP 00245 M01S00244.mpf +++| MONITOR ABTM ABORT CONTROL POINT 00246 M01S00245.mpf +++| LJM PPR EXIT TO PP RESIDENT 00247 M01S00246.mpf +++| ERRMSG SPACE 4,10 00248 M01S00247.mpf +++|* ERROR MESSAGES. 00249 M01S00248.mpf +++| 00250 M01S00249.mpf +++| 00251 M01S00250.mpf +++| ERAR DATA C* MPF - ADDRESS OUT OF RANGE.* 00252 M01S00251.mpf +++| ERBA DATA C* MPF - BUFFER ARGUMENT ERROR.* 00253 M01S00252.mpf +++| ERCC DATA C* MPF - INCORRECT CIO CODE IN CATALOG REWRITE.* 00254 M01S00253.mpf +++| ERCR DATA C* MPF - INCORRECT CATALOG REWRITE REQUEST.* 00255 M01S00254.mpf +++| EREI DATA C* MPF - DEVICE ERROR IDLE SET.* 00256 M01S00255.mpf +++| ERFC DATA C* MPF - FET COMPLETE BIT SET.* 00257 M01S00256.mpf +++| ERFS DATA C* MPF - FET TOO SHORT.* 00258 M01S00257.mpf +++| ERIC DATA C* MPF - INCORRECT CALL.* 00259 M01S00258.mpf +++| ERID DATA C* MPF - INACCESSIBLE DEVICE.* 00260 M01S00259.mpf +++| ERIF DATA C* MPF - INCORRECT FUNCTION.* 00261 M01S00260.mpf +++| ERIO DATA C* MPF - I/O SEQUENCE ERROR.* 00262 M01S00261.mpf +++| ERIS DATA C* MPF - INCORRECT SYSTEM SECTOR.* 00263 M01S00262.mpf +++| ERLR DATA C* MPF - CATALOG REWRITE LINK BYTE ERROR.* 00264 M01S00263.mpf +++| ERLS DATA C* MPF - INCORRECT LINK BYTE IN CATALOG SCAN.* 00265 M01S00264.mpf +++| ERNF DATA C* MPF - FILE NOT FOUND.* 00266 M01S00265.mpf +++| EROF DATA C* MPF - INCORRECT OVERFLOW FST REQUEST.* 00267 M01S00266.mpf +++| ERRA DATA C* MPF - RANDOM ADDRESS NOT ON IAPF CHAIN.* 00268 M01S00267.mpf +++| ERRR DATA C* MPF - INCORRECT SECTOR READ IN CATALOG REWRITE.* 00269 M01S00268.mpf +++| ERSR DATA C* MPF - INCORRECT SECTOR READ IN CATALOG SCAN.* 00270 M01S00269.mpf +++| ERSS DATA C* MPF - SYSTEM SECTOR ERROR.* 00271 M01S00270.mpf +++| ERWL DATA C* MPF - WRITE LOCK-OUT ON CATALOG FILE.* 00272 M01S00271.mpf +++| ERWR DATA C* MPF - INCORRECT WORD COUNT IN CATALOG REWRITE.* 00273 M01S00272.mpf +++| ERWW DATA C* MPF - INCORRECT WRITE IN CATALOG REWRITE.* 00274 M01S00273.mpf +++| TITLE FUNCTION PROCESSORS. 00275 M01S00274.mpf +++| DTK SPACE 4,10 00276 M01S00275.mpf +++|*** DTK (0) - DROP TRACKS ON IAPF CHAIN. 00277 M01S00276.mpf +++|* 00278 M01S00277.mpf +++|* ENTRY (IR+3 - IR+4) = PARAMETER ADDRESS. 00279 M01S00278.mpf +++|* 00280 M01S00279.mpf +++|*T ADDR 12/ EQ,24/ ,24/ EOI
Figure ADDR
00281 M01S00280.mpf +++|* 00282 M01S00281.mpf +++|* EQ = EST ORDINAL. 00283 M01S00282.mpf +++|* EOI = RANDOM ADDRESS OF NEW EOI. 00284 M01S00283.mpf +++|* 00285 M01S00284.mpf +++|* EXIT TRT UPDATED. 00286 M01S00285.mpf +++|* DEVICE CHECKPOINT REQUESTED. 00287 M01S00286.mpf +++| 00288 M01S00287.mpf +++| 00289 M01S00288.mpf +++| DTK SUBR 00290 M01S00289.mpf +++| LDCA IR+3 SET EST ORDINAL 00291 M01S00290.mpf +++| CRD CM 00292 M01S00291.mpf +++| LDD CM 00293 M01S00292.mpf +++| LPC 3777 00294 M01S00293.mpf +++| STD T5 00295 M01S00294.mpf +++| LDCA IR+3 00296 M01S00295.mpf +++| RJM CDA COMPUTE DISK ADDRESS 00297 M01S00296.mpf +++| LDD T5 00298 M01S00297.mpf +++| ADC 4000 DEVICE CHECKPOINT FLAG 00299 M01S00298.mpf +++| STD CM+1 00300 M01S00299.mpf +++| LDD T6 SET EOI TRACK 00301 M01S00300.mpf +++| LPC 3777 CLEAR LINK BIT 00302 M01S00301.mpf +++| STD CM+2 00303 M01S00302.mpf +++| LDD T7 SET EOI SECTOR 00304 M01S00303.mpf +++| STD CM+3 00305 M01S00304.mpf +++| MONITOR DTKM 00306 M01S00305.mpf +++| LJM DTKX RETURN 00307 M01S00306.mpf +++| RWE SPACE 4,10 00308 M01S00307.mpf +++|*** RWE (1) - REWRITE EOI. 00309 M01S00308.mpf +++|* 00310 M01S00309.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00311 M01S00310.mpf +++|* LOCAL FILE POSITIONED TO CORRECT SECTOR FOR EOI WRITE. 00312 M01S00311.mpf +++|* 00313 M01S00312.mpf +++|* EXIT EOI WRITTEN. 00314 M01S00313.mpf +++| 00315 M01S00314.mpf +++| 00316 M01S00315.mpf +++| RWE SUBR 00317 M01S00316.mpf +++| RJM SFP SET FILE PARAMETERS 00318 M01S00317.mpf +++| SETMS IO,RW 00319 M01S00318.mpf +++| RJM PDS PROCESS DEVICE STATUS 00320 M01S00319.mpf +++| RJM WEI WRITE EOI SECTOR 00321 M01S00320.mpf +++| ENDMS 00322 M01S00321.mpf +++| RJM SFC SET FST COMPLETE 00323 M01S00322.mpf +++| UJN RWEX RETURN 00324 M01S00323.mpf +++| DLK SPACE 4,15 00325 M01S00324.mpf +++|*** DLK (2) - DELINK TRACKS FROM IAPF CHAIN. 00326 M01S00325.mpf +++|* 00327 M01S00326.mpf +++|* ENTRY (IR+3 - IR+4) = PARAMETER ADDRESS. 00328 M01S00327.mpf +++|* 00329 M01S00328.mpf +++|*T ADDR 12/ ,12/ EQ,12/ FT,12/ NT,12/ LT
Figure ADDR
00330 M01S00329.mpf +++|* 00331 M01S00330.mpf +++|* EQ = EST ORDINAL. 00332 M01S00331.mpf +++|* FT = FIRST TRACK. 00333 M01S00332.mpf +++|* NT = NEXT TRACK. 00334 M01S00333.mpf +++|* LT = LAST TRACK. 00335 M01S00334.mpf +++|* 00336 M01S00335.mpf +++|* EXIT TRACKS DELINKED FROM IAPF CHAIN. 00337 M01S00336.mpf +++|* DEVICE CHECKPOINT REQUESTED. 00338 M01S00337.mpf +++| 00339 M01S00338.mpf +++| 00340 M01S00339.mpf +++| DLK SUBR 00341 M01S00340.mpf +++| LDCA IR+3 00342 M01S00341.mpf +++| CRD CM READ PARAMETER 00343 M01S00342.mpf +++| LDD CM+1 00344 M01S00343.mpf +++| LPC 3777 00345 M01S00344.mpf +++| LMC 4000 DEVICE CHECKPOINT FLAG 00346 M01S00345.mpf +++| STD CM+1 00347 M01S00346.mpf +++| LDD CM+2 ENSURE LINK BIT CLEAR 00348 M01S00347.mpf +++| LPC 3777 00349 M01S00348.mpf +++| STD CM+2 00350 M01S00349.mpf +++| MONITOR DLKM 00351 M01S00350.mpf +++| UJN DLKX RETURN 00352 M01S00351.mpf +++| RSC SPACE 4,10 00353 M01S00352.mpf +++|*** RSC (4) - READ SYSTEM SECTOR. 00354 M01S00353.mpf +++|* 00355 M01S00354.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00356 M01S00355.mpf +++|* RANDOM ADDRESS OF SYSTEM SECTOR IN FET+6. 00357 M01S00356.mpf +++|* 00358 M01S00357.mpf +++|* EXIT SYSTEM SECTOR RETURNED TO BUFFER STARTING AT *FIRST*. 00359 M01S00358.mpf +++|* RANDOM ADDRESS IN FET+6 UPDATED. 00360 M01S00359.mpf +++| 00361 M01S00360.mpf +++| 00362 M01S00361.mpf +++| RSC SUBR ENTRY/EXIT 00363 M01S00362.mpf +++| RJM SFP SET FILE PARAMETERS 00364 M01S00363.mpf +++| LDCA IR+3,6 GET RANDOM ADDRESS 00365 M01S00364.mpf +++| RJM CDA COMPUTE DISK ADDRESS 00366 M01S00365.mpf +++| SETMS IO 00367 M01S00366.mpf +++| RJM PDS PROCESS DEVICE STATUS 00368 M01S00367.mpf +++| LDN 0 DO NOT COMPARE FILE NAME 00369 M01S00368.mpf +++| RJM RSS READ SYSTEM SECTOR 00370 M01S00369.mpf +++| ZJN RSC2 IF SYSTEM SECTOR VALID 00371 M01S00370.mpf +++| RSC1 ERROR ERSS * SYSTEM SECTOR ERROR.* 00372 M01S00371.mpf +++| 00373 M01S00372.mpf +++| RSC2 ENDMS 00374 M01S00373.mpf +++| LDCA IR+3,6 00375 M01S00374.mpf +++| CRD CM 00376 M01S00375.mpf +++| AOD CM+4 UPDATE RANDOM ADDRESS IN FET+6 00377 M01S00376.mpf +++| SHN -14 00378 M01S00377.mpf +++| RAD CM+3 00379 M01S00378.mpf +++| LDCA IR+3,6 00380 M01S00379.mpf +++| CWD CM 00381 M01S00380.mpf +++| SBN 5 FIRST 00382 M01S00381.mpf +++| CRD CM 00383 M01S00382.mpf +++| LDCA CM+3,101 ENSURE THAT SYSTEM SECTOR FITS IN CM FL 00384 M01S00383.mpf +++| LDCA CM+3 00385 M01S00384.mpf +++| CWM BFMS,ON WRITE CONTROL BYTES TO CM BUFFER 00386 M01S00385.mpf +++| CWM BFMS+2,HN WRITE SYSTEM SECTOR TO CM BUFFER 00387 M01S00386.mpf +++| RJM SFC SET FST COMPLETE 00388 M01S00387.mpf +++| LJM RSCX RETURN 00389 M01S00388.mpf +++| WSC SPACE 4,10 00390 M01S00389.mpf +++|*** WSC (5) - WRITE SYSTEM SECTOR. 00391 M01S00390.mpf +++|* 00392 M01S00391.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00393 M01S00392.mpf +++|* SYSTEM SECTOR IN BUFFER STARTING AT *FIRST*. 00394 M01S00393.mpf +++|* RANDOM ADDRESS OF SYSTEM SECTOR IN FET+6. 00395 M01S00394.mpf +++|* 00396 M01S00395.mpf +++|* EXIT SYSTEM SECTOR WRITTEN. 00397 M01S00396.mpf +++|* RANDOM ADDRESS IN FET+6 UPDATED. 00398 M01S00397.mpf +++| 00399 M01S00398.mpf +++| 00400 M01S00399.mpf +++| WSC SUBR ENTRY/EXIT 00401 M01S00400.mpf +++| RJM SFP SET FILE PARAMETERS 00402 M01S00401.mpf +++| LDCA IR+3,6 RANDOM ADDRESS 00403 M01S00402.mpf +++| RJM CDA COMPUTE DISK ADDRESS 00404 M01S00403.mpf +++| LDCA IR+3,1 FIRST 00405 M01S00404.mpf +++| CRD CM 00406 M01S00405.mpf +++| LDCA CM+3,101 ENSURE SYSTEM SECTOR IS WITHIN CM FL 00407 M01S00406.mpf +++| LDCA CM+3 00408 M01S00407.mpf +++| CRM BFMS,ON READ CONTROL BYTES FROM CM BUFFER 00409 M01S00408.mpf +++| CRM BFMS+2,HN READ SYSTEM SECTOR FROM CM BUFFER 00410 M01S00409.mpf +++| LDM BFMS 00411 M01S00410.mpf +++| LMC 3777 CHECK CONTROL BYTES 00412 M01S00411.mpf +++| LMM BFMS+1 00413 M01S00412.mpf +++| LMN 77 00414 M01S00413.mpf +++| ZJN WSC1 IF CONTROL BYTES VALID 00415 M01S00414.mpf +++| ERROR ERIS * INCORRECT SYSTEM SECTOR.* 00416 M01S00415.mpf +++| 00417 M01S00416.mpf +++| WSC1 LDD T6 00418 M01S00417.mpf +++| STM FTSS SET FIRST TRACK 00419 M01S00418.mpf +++| LDD T7 00420 M01S00419.mpf +++| ADN FSMS 00421 M01S00420.mpf +++| STM NSSS NEXT SECTOR 00422 M01S00421.mpf +++| LMM SLM 00423 M01S00422.mpf +++| NJN WSC2 IF NOT END OF TRACK 00424 M01S00423.mpf +++| RJM SNT 00425 M01S00424.mpf +++| STM NSSS 00426 M01S00425.mpf +++| WSC2 SETMS IO,RW 00427 M01S00426.mpf +++| RJM PDS PROCESS DEVICE STATUS 00428 M01S00427.mpf +++| LDC BFMS+WLSF 00429 M01S00428.mpf +++| RJM WDS WRITE SYSTEM SECTOR 00430 M01S00429.mpf +++| PJN WSC3 IF NO DISK ERROR 00431 M01S00430.mpf +++| ERROR ERSS * SYSTEM SECTOR ERROR.* 00432 M01S00431.mpf +++| 00433 M01S00432.mpf +++| WSC3 ENDMS 00434 M01S00433.mpf +++| RJM SFC SET FST COMPLETE 00435 M01S00434.mpf +++| LDCA IR+3,6 00436 M01S00435.mpf +++| CRD CM 00437 M01S00436.mpf +++| AOD CM+4 UPDATE RANDOM ADDRESS IN FET+6 00438 M01S00437.mpf +++| SHN -14 00439 M01S00438.mpf +++| RAD CM+3 00440 M01S00439.mpf +++| LDCA IR+3,6 00441 M01S00440.mpf +++| CWD CM 00442 M01S00441.mpf +++| LJM WSCX RETURN 00443 M01S00442.mpf +++| RTF SPACE 4,25 00444 M01S00443.mpf +++|*** RTF (6) - RETURN FST FOR CATALOG OVERFLOW TRACK. 00445 M01S00444.mpf +++|* 00446 M01S00445.mpf +++|* ENTRY (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS. 00447 M01S00446.mpf +++|* 00448 M01S00447.mpf +++|*T ADDR 12/ EQ,12/ FT,12/ CT,12/ CS,12/ ST
Figure ADDR
00449 M01S00448.mpf +++|*T,ADDR+1 48/ ,12/ OT
Figure ADDR+1
00450 M01S00449.mpf +++|*T,ADDR+2 60/
Figure ADDR+2
00451 M01S00450.mpf +++|* 00452 M01S00451.mpf +++|* EQ = EST ORDINAL. 00453 M01S00452.mpf +++|* FT = FIRST TRACK. 00454 M01S00453.mpf +++|* CT = CURRENT TRACK (IGNORED). 00455 M01S00454.mpf +++|* CS = CURRENT SECTOR (IGNORED). 00456 M01S00455.mpf +++|* ST = STATUS (IGNORED). 00457 M01S00456.mpf +++|* OT = OVERFLOW TRACK INDEX. 00458 M01S00457.mpf +++|* 00459 M01S00458.mpf +++|* EXIT (ADDR+2) = FST ENTRY FOR THE *OT*-TH OVERFLOW TRACK. 00460 M01S00459.mpf +++|* 00461 M01S00460.mpf +++|*T ADDR+2 12/ EQ,12/ FT,12/ CT,12/ CS,12/ ST
Figure ADDR+2
00462 M01S00461.mpf +++|* 00463 M01S00462.mpf +++|* EQ = EST ORDINAL. 00464 M01S00463.mpf +++|* FT = FIRST TRACK. 00465 M01S00464.mpf +++|* CT = FIRST TRACK. 00466 M01S00465.mpf +++|* CS = 0. 00467 M01S00466.mpf +++|* ST = 5. 00468 M01S00467.mpf +++| 00469 M01S00468.mpf +++| 00470 M01S00469.mpf +++| RTF6 LDCA IR+3,2 RETURN LOCATION IN PARAMETER BLOCK 00471 M01S00470.mpf +++| CWD FS WRITE REPLY 00472 M01S00471.mpf +++| 00473 M01S00472.mpf +++| RTF SUBR ENTRY/EXIT 00474 M01S00473.mpf +++| LDCA IR+3 READ PARAMETER BLOCK 00475 M01S00474.mpf +++| CRD FS 00476 M01S00475.mpf +++| LDCA IR+3,1 00477 M01S00476.mpf +++| CRD CM 00478 M01S00477.mpf +++| LDD CM+4 00479 M01S00478.mpf +++| ZJN RTF1 IF NO OVERFLOW TRACK INDEX 00480 M01S00479.mpf +++| STD CT 00481 M01S00480.mpf +++| AOD CT INCREMENT FOR ENTRY INTO LOOP 00482 M01S00481.mpf +++| LDD FS EST ORDINAL 00483 M01S00482.mpf +++| LPC 3777 00484 M01S00483.mpf +++| STD T5 00485 M01S00484.mpf +++| LDD FS+1 TRACK 00486 M01S00485.mpf +++| LPC 3777 00487 M01S00486.mpf +++| LMC 4000 00488 M01S00487.mpf +++| STD T6 00489 M01S00488.mpf +++| LDN 0 SET FST FIELDS FOR RETURN 00490 M01S00489.mpf +++| STD FS+3 00491 M01S00490.mpf +++| LDN 5 00492 M01S00491.mpf +++| STD FS+4 00493 M01S00492.mpf +++| RJM CMS CHECK MASS STORAGE 00494 M01S00493.mpf +++| NJN RTF1 IF ERROR 00495 M01S00494.mpf +++| LDD FS+1 STARTING TRACK 00496 M01S00495.mpf +++| LPC 3777 00497 M01S00496.mpf +++| ADC 4000 00498 M01S00497.mpf +++| RJM VTB VALIDATE TRACK BYTE 00499 M01S00498.mpf +++| ZJN RTF2 IF TRACK BYTE VALID 00500 M01S00499.mpf +++| RTF1 ERROR EROF * INCORRECT OVERFLOW FST REQUEST.* 00501 M01S00500.mpf +++| 00502 M01S00501.mpf +++| RTF2 SOD CT DECREMENT COUNTER 00503 M01S00502.mpf +++| ZJP RTF6 IF DONE 00504 M01S00503.mpf +++| LDD FS+1 TRACK 00505 M01S00504.mpf +++| STD T6 00506 M01S00505.mpf +++| SETMS IO 00507 M01S00506.mpf +++| RJM PDS PROCESS DEVICE STATUS 00508 M01S00507.mpf +++| LDM SLM SECTOR LIMIT 00509 M01S00508.mpf +++| SBN 1 LAST SECTOR ON TRACK 00510 M01S00509.mpf +++| STD T7 00511 M01S00510.mpf +++| LDC BFMS 00512 M01S00511.mpf +++| RJM RDS READ SECTOR 00513 M01S00512.mpf +++| PJN RTF3 IF NO ERROR 00514 M01S00513.mpf +++| ERROR ERSR * INCORRECT SECTOR READ IN CATALOG SCAN.* 00515 M01S00514.mpf +++| 00516 M01S00515.mpf +++| RTF3 ENDMS 00517 M01S00516.mpf +++| LDM BFMS GET LINK BYTE 00518 M01S00517.mpf +++| NJN RFT4 IF NOT EOF/EOI 00519 M01S00518.mpf +++| LDM BFMS+1 GET SECOND LINK BYTE 00520 M01S00519.mpf +++| RFT4 SHN 21-13 00521 M01S00520.mpf +++| PJN RTF5 IF NOT LINK BYTE 00522 M01S00521.mpf +++| SHN -6 00523 M01S00522.mpf +++| STD FS+1 00524 M01S00523.mpf +++| STD FS+2 00525 M01S00524.mpf +++| RJM VTB VALIDATE TRACK LINK BYTE 00526 M01S00525.mpf +++| ZJP RTF2 IF NO ERROR 00527 M01S00526.mpf +++| RTF5 ERROR ERLS * INCORRECT LINK BYTE IN CATALOG SCAN.* 00528 M01S00527.mpf +++| RWC SPACE 4,25 00529 M01S00528.mpf +++|*** RWC (7) - REWRITE CATALOG SECTOR. 00530 M01S00529.mpf +++|* 00531 M01S00530.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00532 M01S00531.mpf +++|* RANDOM ADDRESS FOR REWRITE IN FET+6. 00533 M01S00532.mpf +++|* SECTOR DATA IN CM BUFFER. 00534 M01S00533.mpf +++|* 00535 M01S00534.mpf +++|* EXIT SECTOR REWRITTEN, FET UPDATED AND SET COMPLETE. 00536 M01S00535.mpf +++|* CRI NOT UPDATED, RR NOT CLEARED, FST POSITION 00537 M01S00536.mpf +++|* IS THE TRACK AND SECTOR JUST WRITTEN. 00538 M01S00537.mpf +++|* 00539 M01S00538.mpf +++|* TO *ERR* IF ERROR; ERROR IDLE SET ON DEVICE 00540 M01S00539.mpf +++|* IF UNRECOVERABLE MS ERROR RETURNED ON REWRITE 00541 M01S00540.mpf +++|* OF CATALOG SECTOR. 00542 M01S00541.mpf +++| 00543 M01S00542.mpf +++| 00544 M01S00543.mpf +++| RWC SUBR ENTRY/EXIT 00545 M01S00544.mpf +++| LDN 5+2 MINIMUM FET LENGTH REQUIRED 00546 M01S00545.mpf +++| RJM IFQ INITIAL FET QUERY 00547 M01S00546.mpf +++| RJM PIO PRESET I/O 00548 M01S00547.mpf +++| RJM CMS CHECK MASS STORAGE 00549 M01S00548.mpf +++| NJN RWC1 IF ERROR 00550 M01S00549.mpf +++| LDD FS+1 FIRST TRACK 00551 M01S00550.mpf +++| RJM VTB VALIDATE THAT TRACK IS ON LABEL TRT CHAIN 00552 M01S00551.mpf +++| ZJN RWC2 IF NO ERROR 00553 M01S00552.mpf +++| RWC1 ERROR ERCR * INCORRECT CATALOG REWRITE REQUEST.* 00554 M01S00553.mpf +++| 00555 M01S00554.mpf +++| RWC2 NFA FA,R READ FNT 00556 M01S00555.mpf +++| CRD CM 00557 M01S00556.mpf +++| LDD CM+3 00558 M01S00557.mpf +++| LPN 1 00559 M01S00558.mpf +++| ZJN RWC3 IF FILE IN WRITE MODE 00560 M01S00559.mpf +++| ERROR ERWL * WRITE LOCK-OUT ON CATALOG FILE.* 00561 M01S00560.mpf +++| 00562 M01S00561.mpf +++| RWC3 LDD FS+1 FIRST TRACK 00563 M01S00562.mpf +++| STD T6 00564 M01S00563.mpf +++| LDCA IR+3,6 RANDOM ADDRESS FROM FET (RR) 00565 M01S00564.mpf +++| CRD CM 00566 M01S00565.mpf +++| LDD CM+4 00567 M01S00566.mpf +++| STD RI+1 RANDOM INDEX 00568 M01S00567.mpf +++| LDD CM+3 00569 M01S00568.mpf +++| STD RI 00570 M01S00569.mpf +++| LDN 0 ENSURE CURRENT TRT 00571 M01S00570.mpf +++| RJM CRA CONVERT RANDOM ADDRESS 00572 M01S00571.mpf +++| MJP RWC1 IF ADDRESS NOT VALID 00573 M01S00572.mpf +++| LDD T6 00574 M01S00573.mpf +++| LMD FS+1 00575 M01S00574.mpf +++| NJP RWC1 IF TRACK IS NOT THE SAME AS FIRST TRACK 00576 M01S00575.mpf +++| LDD T7 CHECK TRACK AT SECTOR LIMIT 00577 M01S00576.mpf +++| ADN 1 00578 M01S00577.mpf +++| STM BFMS NEXT SECTOR 00579 M01S00578.mpf +++| LMM SLM 00580 M01S00579.mpf +++| ZJN RWC4 IF AT LAST SECTOR IN TRACK 00581 M01S00580.mpf +++| RJM COB CHECK OUTPUT BUFFER (GET WORDS IN BUFFER) 00582 M01S00581.mpf +++| MJP RWC11 IF BUFFER ARGUMENT ERROR 00583 M01S00582.mpf +++| STM BFMS+1 WORDS IN SECTOR 00584 M01S00583.mpf +++| SBD HN 00585 M01S00584.mpf +++| ZJN RWC5 IF FULL SECTOR 00586 M01S00585.mpf +++| MJN RWC6 IF SHORT SECTOR 00587 M01S00586.mpf +++| ERROR ERWR * INCORRECT WORD COUNT IN CAT REWRITE.* 00588 M01S00587.mpf +++| 00589 M01S00588.mpf +++| RWC4 SETMS IO READ TO OBTAIN LINK BYTES 00590 M01S00589.mpf +++| RJM PDS PROCESS DEVICE STATUS 00591 M01S00590.mpf +++| LDC BFMS 00592 M01S00591.mpf +++| RJM RDS 00593 M01S00592.mpf +++| PJN RWC8 IF NO ERROR 00594 M01S00593.mpf +++| ERROR ERRR * INCORRECT SECTOR READ IN CAT REWRITE.* 00595 M01S00594.mpf +++| 00596 M01S00595.mpf +++| RWC5 LDC 214 *REWRITE* CODE 00597 M01S00596.mpf +++| UJN RWC7 SET *CIO* FUNCTION CODE 00598 M01S00597.mpf +++| 00599 M01S00598.mpf +++| RWC6 LDC 224 *REWRITER* CODE 00600 M01S00599.mpf +++| RWC7 STD T3 SET *CIO* FUNCTION CODE 00601 M01S00600.mpf +++| LDCA IR+3 GET *CIO* FUNCTION CODE FROM FET+0 00602 M01S00601.mpf +++| CRD CM 00603 M01S00602.mpf +++| LDD CM+4 00604 M01S00603.mpf +++| LPC 1774 CODE FIELD 00605 M01S00604.mpf +++| LMD T3 00606 M01S00605.mpf +++| ZJN RWC12 IF *CIO* FUNCTION CODE MATCHES 00607 M01S00606.mpf +++| ERROR ERCC * INCORRECT CIO CODE IN CAT REWRITE.* 00608 M01S00607.mpf +++| 00609 M01S00608.mpf +++| RWC8 LDM BFMS CHECK LINKAGE BYTES 00610 M01S00609.mpf +++| ZJN RWC9 IF EOF OR EOI 00611 M01S00610.mpf +++| LMC 3777 00612 M01S00611.mpf +++| ZJN RWC9 IF SYSTEM SECTOR 00613 M01S00612.mpf +++| RJM COB CHECK OUTPUT BUFFER (GET WORDS IN BUFFER) 00614 M01S00613.mpf +++| MJN RWC10 IF BUFFER ARGUMENT ERROR 00615 M01S00614.mpf +++| LMM BFMS+1 00616 M01S00615.mpf +++| ZJN RWC12 IF SECTOR LENGTH DID NOT CHANGE 00617 M01S00616.mpf +++| RWC9 ENDMS 00618 M01S00617.mpf +++| ERROR ERLR * CATALOG REWRITE LINK BYTE ERROR.* 00619 M01S00618.mpf +++| 00620 M01S00619.mpf +++| RWC10 ENDMS 00621 M01S00620.mpf +++| RWC11 ERROR ERBA * BUFFER ARGUMENT ERROR.* 00622 M01S00621.mpf +++| 00623 M01S00622.mpf +++| RWC12 LDM BFMS+1 NUMBER OF WORDS IN SECTOR 00624 M01S00623.mpf +++| STM T3 NUMBER OF WORDS TO READ 00625 M01S00624.mpf +++| LDC BFMS+2 PP BUFFER ADDRESS 00626 M01S00625.mpf +++| RJM RBB READ BINARY BUFFER 00627 M01S00626.mpf +++| SETMS IO,RW,EBMS 00628 M01S00627.mpf +++| RJM PDS PROCESS DEVICE STATUS 00629 M01S00628.mpf +++| LDC BFMS+WLSF 00630 M01S00629.mpf +++| RJM WDS 00631 M01S00630.mpf +++| PJN RWC13 IF NO ERROR 00632 M01S00631.mpf +++| LDC ERWW * MPF - INCORRECT WRITE IN CAT REWRITE.* 00633 M01S00632.mpf +++| RJM DFM 00634 M01S00633.mpf +++| RJM LTD LOG LOCATION TO DAYFILE 00635 M01S00634.mpf +++| RJM FDD LOG FAMILY NAME, DEVICE NUMBER TO DAYFILE 00636 M01S00635.mpf +++| LDN STEI SET ERROR IDLE STATUS 00637 M01S00636.mpf +++| RJM SES 00638 M01S00637.mpf +++| SMSTF GDEI 00639 M01S00638.mpf +++| ERROR EREI * DEVICE ERROR IDLE SET.* 00640 M01S00639.mpf +++| 00641 M01S00640.mpf +++| RWC13 ENDMS 00642 M01S00641.mpf +++| LDN ZERL UPDATE OUT POINTER IN FET 00643 M01S00642.mpf +++| CRD CM 00644 M01S00643.mpf +++| LDD OT+1 00645 M01S00644.mpf +++| STD CM+4 00646 M01S00645.mpf +++| LDD OT 00647 M01S00646.mpf +++| STD CM+3 00648 M01S00647.mpf +++| LDCA IR+3,3 00649 M01S00648.mpf +++| CWD CM 00650 M01S00649.mpf +++| 00651 M01S00650.mpf +++|* T6 AND T7 (CURRENT TRACK AND CURRENT SECTOR) ARE NOT 00652 M01S00651.mpf +++|* UPDATED TO REFLECT THE NEXT SECTOR TO AVOID THE NON- 00653 M01S00652.mpf +++|* STANDARD NEXT TRACK LINKAGE PROBLEM. THUS, THE FST 00654 M01S00653.mpf +++|* CURRENT POSITION WILL POINT AT THE SECTOR WRITTEN. 00655 M01S00654.mpf +++| 00656 M01S00655.mpf +++| RJM CIO COMPLETE I/O 00657 M01S00656.mpf +++| LJM RWCX RETURN 00658 M01S00657.mpf +++| TITLE SUBROUTINES. 00659 M01S00658.mpf +++| CDA SPACE 4,15 00660 M01S00659.mpf +++|** CDA - COMPUTE DISK ADDRESS. 00661 M01S00660.mpf +++|* 00662 M01S00661.mpf +++|* ENTRY (A) = CM ADDRESS OF RANDOM ADDRESS. 00663 M01S00662.mpf +++|* (T5) = EST ORDINAL. 00664 M01S00663.mpf +++|* 00665 M01S00664.mpf +++|* EXIT (T6) = TRACK. 00666 M01S00665.mpf +++|* (T7) = SECTOR. 00667 M01S00666.mpf +++|* (RI - RI+1) = RANDOM ADDRESS. 00668 M01S00667.mpf +++|* 00669 M01S00668.mpf +++|* USES T6, CM - CM+4, RI - RI+1. 00670 M01S00669.mpf +++|* 00671 M01S00670.mpf +++|* CALLS CRA. 00672 M01S00671.mpf +++|* 00673 M01S00672.mpf +++|* MACROS ERROR, SFA. 00674 M01S00673.mpf +++| 00675 M01S00674.mpf +++| 00676 M01S00675.mpf +++| CDA SUBR ENTRY/EXIT 00677 M01S00676.mpf +++| CRD CM 00678 M01S00677.mpf +++| LDD CM+3 00679 M01S00678.mpf +++| STD RI 00680 M01S00679.mpf +++| LDD CM+4 00681 M01S00680.mpf +++| STD RI+1 00682 M01S00681.mpf +++| SFA EST,T5 00683 M01S00682.mpf +++| ADK EQDE 00684 M01S00683.mpf +++| CRD CM READ EST ENTRY 00685 M01S00684.mpf +++| LDD CM+4 00686 M01S00685.mpf +++| SHN 3 MST ADDRESS 00687 M01S00686.mpf +++| ADN ALGL 00688 M01S00687.mpf +++| CRD CM 00689 M01S00688.mpf +++| LDD CM FIRST TRACK OF IAPF CHAIN 00690 M01S00689.mpf +++| STD T6 00691 M01S00690.mpf +++| LDN 0 ENSURE CURRENT TRT 00692 M01S00691.mpf +++| RJM CRA COMPUTE RANDOM ADDRESS 00693 M01S00692.mpf +++| PJN CDAX IF ADDRESS IS IN TRACK CHAIN 00694 M01S00693.mpf +++| ERROR ERRA * RANDOM ADDRESS NOT ON IAPF CHAIN.* 00695 M01S00694.mpf +++| CFS SPACE 4,10 00696 M01S00695.mpf +++|** CFS - COMPLETE FET STATUS. 00697 M01S00696.mpf +++|* 00698 M01S00697.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00699 M01S00698.mpf +++|* 00700 M01S00699.mpf +++|* EXIT FET STATUS SET COMPLETE (IF FET ADDRESS VALID). 00701 M01S00700.mpf +++|* (IR+3 - IR+4) = 0 (IF FET STATUS SET COMPLETE). 00702 M01S00701.mpf +++|* 00703 M01S00702.mpf +++|* USES CM - CM+4, IR+3 - IR+4. 00704 M01S00703.mpf +++|* 00705 M01S00704.mpf +++|* MACROS LDCA. 00706 M01S00705.mpf +++| 00707 M01S00706.mpf +++| 00708 M01S00707.mpf +++| CFS SUBR ENTRY/EXIT 00709 M01S00708.mpf +++| LDCA IR+3 FET ADDRESS 00710 M01S00709.mpf +++| CRD CM 00711 M01S00710.mpf +++| AOD CM+4 00712 M01S00711.mpf +++| LDCA IR+3 00713 M01S00712.mpf +++| CWD CM 00714 M01S00713.mpf +++| LDN 0 CLEAR FET ADDRESS 00715 M01S00714.mpf +++| STD IR+3 00716 M01S00715.mpf +++| STD IR+4 00717 M01S00716.mpf +++| UJN CFSX RETURN 00718 M01S00717.mpf +++| CIO SPACE 4,20 00719 M01S00718.mpf +++|** CIO - COMPLETE I/O. 00720 M01S00719.mpf +++|* 00721 M01S00720.mpf +++|* COMPLETE FST WRITE AND SET FET STATUS COMPLETE. 00722 M01S00721.mpf +++|* 00723 M01S00722.mpf +++|* ENTRY OPERATION COMPLETED ON FILE. 00724 M01S00723.mpf +++|* (T5) = EST ORDINAL. 00725 M01S00724.mpf +++|* (T6) = TRACK. 00726 M01S00725.mpf +++|* (T7) = SECTOR. 00727 M01S00726.mpf +++|* 00728 M01S00727.mpf +++|* EXIT FET STATUS SET COMPLETE. 00729 M01S00728.mpf +++|* FST WRITTEN. 00730 M01S00729.mpf +++|* 00731 M01S00730.mpf +++|* USES FS - FS+4. 00732 M01S00731.mpf +++|* 00733 M01S00732.mpf +++|* CALLS CFS, SFC. 00734 M01S00733.mpf +++| 00735 M01S00734.mpf +++| 00736 M01S00735.mpf +++| CIO SUBR ENTRY/EXIT 00737 M01S00736.mpf +++| 00738 M01S00737.mpf +++|* UPDATE FST ENTRY AND WRITE. 00739 M01S00738.mpf +++| 00740 M01S00739.mpf +++| LDD FS+4 SET FILE STATUS 00741 M01S00740.mpf +++| SCN 16 00742 M01S00741.mpf +++| LMN 4 00743 M01S00742.mpf +++| STD FS+4 00744 M01S00743.mpf +++| LDD T6 SET TRACK 00745 M01S00744.mpf +++| STD FS+2 00746 M01S00745.mpf +++| LDD T7 SET SECTOR 00747 M01S00746.mpf +++| STD FS+3 00748 M01S00747.mpf +++| LDD T5 SET EST ORDINAL 00749 M01S00748.mpf +++| STD FS 00750 M01S00749.mpf +++| RJM SFC SET FST COMPLETE 00751 M01S00750.mpf +++| RJM CFS COMPLETE FET STATUS 00752 M01S00751.mpf +++| UJP CIOX RETURN 00753 M01S00752.mpf +++| CMS SPACE 4,15 00754 M01S00753.mpf +++|** CMS - CHECK MASS STORAGE. 00755 M01S00754.mpf +++|* 00756 M01S00755.mpf +++|* ENTRY (T5) = EST ORDINAL. 00757 M01S00756.mpf +++|* (T6) = TRACK. 00758 M01S00757.mpf +++|* 00759 M01S00758.mpf +++|* EXIT (A) = 0 IF NO ERROR. 00760 M01S00759.mpf +++|* (TK) = LABEL TRACK. 00761 M01S00760.mpf +++|* 00762 M01S00761.mpf +++|* USES T1, CM - CM+4. 00763 M01S00762.mpf +++|* 00764 M01S00763.mpf +++|* MACROS SFA. 00765 M01S00764.mpf +++| 00766 M01S00765.mpf +++| 00767 M01S00766.mpf +++| CMS1 LDN 1 INDICATE ERROR 00768 M01S00767.mpf +++| 00769 M01S00768.mpf +++| CMS SUBR ENTRY/EXIT 00770 M01S00769.mpf +++| SFA EST,T5 READ EST ENTRY 00771 M01S00770.mpf +++| ADK EQDE 00772 M01S00771.mpf +++| CRD CM 00773 M01S00772.mpf +++| LDD CM 00774 M01S00773.mpf +++| SHN 21-13 00775 M01S00774.mpf +++| PJN CMS1 IF NOT MASS STORAGE 00776 M01S00775.mpf +++| LDD CM+4 MST/10 00777 M01S00776.mpf +++| STD T1 00778 M01S00777.mpf +++| SHN 3 00779 M01S00778.mpf +++| ADK TDGL 00780 M01S00779.mpf +++| CRD CM 00781 M01S00780.mpf +++| LDD CM+2 LENGTH OF TRT 00782 M01S00781.mpf +++| ADD TH 4000/4 00783 M01S00782.mpf +++| SHN 2 00784 M01S00783.mpf +++| SBD T6 REQUESTED TRACK 00785 M01S00784.mpf +++| MJN CMS1 IF INCORRECT TRACK 00786 M01S00785.mpf +++| LDD T1 00787 M01S00786.mpf +++| SHN 3 00788 M01S00787.mpf +++| ADN ALGL 00789 M01S00788.mpf +++| CRD CM 00790 M01S00789.mpf +++| LDD CM+1 LABEL TRACK 00791 M01S00790.mpf +++| LPC 3777 00792 M01S00791.mpf +++| ADC 4000 00793 M01S00792.mpf +++| STD TK 00794 M01S00793.mpf +++| LDD CM+3 00795 M01S00794.mpf +++| ZJP CMS1 IF NO CATALOG TRACKS 00796 M01S00795.mpf +++| LDN 0 INDICATE NO ERROR 00797 M01S00796.mpf +++| UJP CMSX RETURN 00798 M01S00797.mpf +++| FDD SPACE 4,15 00799 M01S00798.mpf +++|** FDD - LOG FAMILY NAME AND DEVICE NUMBER TO DAYFILE. 00800 M01S00799.mpf +++|* 00801 M01S00800.mpf +++|* ENTRY (T5) = EST ORDINAL. 00802 M01S00801.mpf +++|* 00803 M01S00802.mpf +++|* EXIT MESSAGE ISSUED. 00804 M01S00803.mpf +++|* 00805 M01S00804.mpf +++|* USES CM - CM+4. 00806 M01S00805.mpf +++|* 00807 M01S00806.mpf +++|* CALLS C2D, DFM. 00808 M01S00807.mpf +++|* 00809 M01S00808.mpf +++|* MACROS SFA. 00810 M01S00809.mpf +++| 00811 M01S00810.mpf +++| 00812 M01S00811.mpf +++| FDD SUBR ENTRY/EXIT 00813 M01S00812.mpf +++| SFA EST,T5 READ EST ENTRY 00814 M01S00813.mpf +++| ADK EQDE 00815 M01S00814.mpf +++| CRD CM 00816 M01S00815.mpf +++| LDD CM+4 GET MST ADDRESS 00817 M01S00816.mpf +++| SHN 3 00818 M01S00817.mpf +++| ADK PFGL READ FAMILY NAME / DEVICE NUMBER 00819 M01S00818.mpf +++| CRM FDDA+6,ON MERGE INTO MESSAGE 00820 M01S00819.mpf +++| LDM FDDA+11 CONVERT DEVICE NUMBER 00821 M01S00820.mpf +++| RJM C2D 00822 M01S00821.mpf +++| STM FDDA+12 SET DEVICE NUMBER INTO MESSAGE 00823 M01S00822.mpf +++| LDM FDDA+11 BLANK FILL FAMILY NAME 00824 M01S00823.mpf +++| SCN 77 CLEAR BINARY DEVICE NUMBER 00825 M01S00824.mpf +++| ZJN FDD1 IF TWO OR MORE BLANKS NEEDED 00826 M01S00825.mpf +++| LMN 1R MERGE SINGLE BLANK INTO MESSAGE 00827 M01S00826.mpf +++| STM FDDA+11 00828 M01S00827.mpf +++| UJN FDD4 ISSUE MESSAGE 00829 M01S00828.mpf +++| 00830 M01S00829.mpf +++| FDD1 LDC 2R SET TWO BLANKS INTO MESSAGE 00831 M01S00830.mpf +++| STM FDDA+11 00832 M01S00831.mpf +++| LDN 3 NUMBER OF BYTES MAY NEED TO BLANK FILL 00833 M01S00832.mpf +++| STD CM 00834 M01S00833.mpf +++| FDD2 LDM FDDA+5,CM 00835 M01S00834.mpf +++| NJN FDD3 IF END OF FAMILY NAME FOUND 00836 M01S00835.mpf +++| LDC 2R SET TWO MORE BLANKS INTO MESSAGE 00837 M01S00836.mpf +++| STM FDDA+5,CM 00838 M01S00837.mpf +++| SOD CM DECREMENT COUNTER 00839 M01S00838.mpf +++| NJN FDD2 IF NOT DONE 00840 M01S00839.mpf +++| UJN FDD4 ISSUE MESSAGE 00841 M01S00840.mpf +++| 00842 M01S00841.mpf +++| FDD3 LPN 77 CHECK IF SINGLE BLANK NEEDED 00843 M01S00842.mpf +++| NJN FDD4 IF NO BLANK NEEDED 00844 M01S00843.mpf +++| LDM FDDA+5,CM 00845 M01S00844.mpf +++| LMN 1R SINGLE BLANK 00846 M01S00845.mpf +++| STM FDDA+5,CM 00847 M01S00846.mpf +++| FDD4 LDC FDDA 00848 M01S00847.mpf +++| RJM DFM ISSUE DAYFILE MESSAGE 00849 M01S00848.mpf +++| LJM FDDX RETURN 00850 M01S00849.mpf +++| 00851 M01S00850.mpf +++| 00852 M01S00851.mpf +++| FDDA DATA C*MPF - FM DN FFFFFFF NN.* 00853 M01S00852.mpf +++| IFQ SPACE 4,15 00854 M01S00853.mpf +++|** IFQ - INITIAL FET QUERY. 00855 M01S00854.mpf +++|* 00856 M01S00855.mpf +++|* VALIDATE THAT THE FET IS LONG ENOUGH, IS WITHIN FL, 00857 M01S00856.mpf +++|* AND DOES NOT HAVE COMPLETE BIT SET. 00858 M01S00857.mpf +++|* 00859 M01S00858.mpf +++|* ENTRY (A) = MINIMUM FET LENGTH REQUIRED. 00860 M01S00859.mpf +++|* (IR+3 - IR+4) = FET ADDRESS. 00861 M01S00860.mpf +++|* 00862 M01S00861.mpf +++|* EXIT TO *ERR* IF FET IS NOT VALID. 00863 M01S00862.mpf +++|* 00864 M01S00863.mpf +++|* USES T2, T3, CM - CM+4. 00865 M01S00864.mpf +++|* 00866 M01S00865.mpf +++|* CALLS VCA. 00867 M01S00866.mpf +++|* 00868 M01S00867.mpf +++|* MACROS LDCA. 00869 M01S00868.mpf +++| 00870 M01S00869.mpf +++| 00871 M01S00870.mpf +++| IFQ SUBR ENTRY/EXIT 00872 M01S00871.mpf +++| STD T3 REQUIRED FET LENGTH 00873 M01S00872.mpf +++| LDCA IR+3 VALIDATE FET+0 ADDRESS 00874 M01S00873.mpf +++| CRD CM CHECK COMPLETE BIT CLEAR 00875 M01S00874.mpf +++| LDD CM+4 00876 M01S00875.mpf +++| LPN 1 00877 M01S00876.mpf +++| ZJN IFQ1 IF COMPLETE BIT IS CLEAR 00878 M01S00877.mpf +++| ERROR ERFC * FET COMPLETE BIT SET.* 00879 M01S00878.mpf +++| 00880 M01S00879.mpf +++| IFQ1 LDCA IR+3,1 GET FET LENGTH 00881 M01S00880.mpf +++| CRD CM 00882 M01S00881.mpf +++| LDD CM+3 00883 M01S00882.mpf +++| SHN -6 00884 M01S00883.mpf +++| ADN 5 00885 M01S00884.mpf +++| STD T2 CHECK FET LENGTH 00886 M01S00885.mpf +++| SBD T3 00887 M01S00886.mpf +++| PJN IFQ2 IF FET IS LONG ENOUGH 00888 M01S00887.mpf +++| ERROR ERFS * FET TOO SHORT.* 00889 M01S00888.mpf +++| 00890 M01S00889.mpf +++| IFQ2 LDD IR+3 CHECK IF LAST WORD OF FET IS WITHIN FL 00891 M01S00890.mpf +++| SHN 14 00892 M01S00891.mpf +++| LMD IR+4 00893 M01S00892.mpf +++| ADD T2 00894 M01S00893.mpf +++| SBN 1 00895 M01S00894.mpf +++| RJM VCA VALIDATE CENTRAL ADDRESS 00896 M01S00895.mpf +++| UJP IFQX RETURN 00897 M01S00896.mpf +++| LTD SPACE 4,10 00898 M01S00897.mpf +++|** LTD - LOG LOCATION TO DAYFILE. 00899 M01S00898.mpf +++|* 00900 M01S00899.mpf +++|* ENTRY (T5) = EST ORDINAL. 00901 M01S00900.mpf +++|* (T6) = TRACK. 00902 M01S00901.mpf +++|* (T7) = SECTOR. 00903 M01S00902.mpf +++|* 00904 M01S00903.mpf +++|* EXIT MESSAGE ISSUED TO DAYFILE. 00905 M01S00904.mpf +++|* 00906 M01S00905.mpf +++|* CALLS C2D, DFM. 00907 M01S00906.mpf +++| 00908 M01S00907.mpf +++| 00909 M01S00908.mpf +++| LTD SUBR ENTRY/EXIT 00910 M01S00909.mpf +++| LDD T5 CONVERT EST ORDINAL 00911 M01S00910.mpf +++| RJM C2D 00912 M01S00911.mpf +++| STM LTDA+5 00913 M01S00912.mpf +++| LDD T5 00914 M01S00913.mpf +++| SHN -6 00915 M01S00914.mpf +++| RJM C2D 00916 M01S00915.mpf +++| STM LTDA+4 00917 M01S00916.mpf +++| LDD T6 CONVERT TRACK 00918 M01S00917.mpf +++| RJM C2D 00919 M01S00918.mpf +++| STM LTDA+11 00920 M01S00919.mpf +++| LDD T6 00921 M01S00920.mpf +++| SHN -6 00922 M01S00921.mpf +++| RJM C2D 00923 M01S00922.mpf +++| STM LTDA+10 00924 M01S00923.mpf +++| LDD T7 CONVERT SECTOR 00925 M01S00924.mpf +++| RJM C2D 00926 M01S00925.mpf +++| STM LTDA+15 00927 M01S00926.mpf +++| LDD T7 00928 M01S00927.mpf +++| SHN -6 00929 M01S00928.mpf +++| RJM C2D 00930 M01S00929.mpf +++| STM LTDA+14 00931 M01S00930.mpf +++| LDC LTDA ISSUE MESSAGE 00932 M01S00931.mpf +++| RJM DFM 00933 M01S00932.mpf +++| UJP LTDX RETURN 00934 M01S00933.mpf +++| 00935 M01S00934.mpf +++| 00936 M01S00935.mpf +++| LTDA DATA C*MPF - EQXXXX TKYYYY SCZZZZ.* 00937 M01S00936.mpf +++| PDS SPACE 4,10 00938 M01S00937.mpf +++|** PDS - PROCESS DEVICE STATUS. 00939 M01S00938.mpf +++|*
| Line S00939 Modification History | |
|---|---|
M01 (Added by) | mpf |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00940 M02S00939.ns2776 ---|* ENTRY (A) .NE. 0 IF DEVICE INACCESSIBLE. 00941 M01S00001.ns2776 +++|* ENTRY (MSD) = DEVICE STATUS UPON EXIT FROM *SETMS*. 00942 M01S00940.mpf +++|* (T5) = EST ORDINAL OF THE DEVICE. 00943 M01S00941.mpf +++|* DRIVER SOFTWARE IS LOADED. 00944 M01S00942.mpf +++|* 00945 M01S00943.mpf +++|* EXIT TO *ERR* IF DEVICE IS INACCESSIBLE. 00946 M01S00944.mpf +++|* 00947 M01S00945.mpf +++|* MACROS ENDMS, ERROR. 00948 M01S00946.mpf +++| 00949 M01S00947.mpf +++| 00950 M01S00948.mpf +++| PDS SUBR ENTRY/EXIT
| Line S00949 Modification History | |
|---|---|
M01 (Added by) | mpf |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00951 M02S00949.ns2776 ---| ZJN PDSX IF DEVICE IS AVAILABLE, RETURN 00952 M01S00002.ns2776 +++| LDM MSD 00953 M01S00003.ns2776 +++| SHN 21-6 00954 M01S00004.ns2776 +++| PJN PDSX IF DEVICE IS AVAILABLE, RETURN 00955 M01S00950.mpf +++| ENDMS 00956 M01S00951.mpf +++| ERROR ERID * INACCESSIBLE DEVICE.* 00957 M01S00952.mpf +++| PIO SPACE 4,20 00958 M01S00953.mpf +++|** PIO - PRESET I/O. 00959 M01S00954.mpf +++|* 00960 M01S00955.mpf +++|* SET DIRECT CELLS FOR I/O OPERATION. 00961 M01S00956.mpf +++|* 00962 M01S00957.mpf +++|* ENTRY (IR+3 - IR+4) = VALIDATED FET ADDRESS. 00963 M01S00958.mpf +++|* 00964 M01S00959.mpf +++|* EXIT (FA) = FST ADDRESS OF FILE. 00965 M01S00960.mpf +++|* (FS - FS+4) = FST ENTRY FOR FILE. 00966 M01S00961.mpf +++|* (T5) = EST ORDINAL. 00967 M01S00962.mpf +++|* (T6) = TRACK. 00968 M01S00963.mpf +++|* (T7) = SECTOR. 00969 M01S00964.mpf +++|* (FT - FT+1) = FIRST. 00970 M01S00965.mpf +++|* (IN - IN+1) = IN. 00971 M01S00966.mpf +++|* (OT - OT+1) = OUT. 00972 M01S00967.mpf +++|* (LM - LM+1) = LIMIT. 00973 M01S00968.mpf +++|* 00974 M01S00969.mpf +++|* CALLS SBA, SFP, VBA. 00975 M01S00970.mpf +++| 00976 M01S00971.mpf +++| 00977 M01S00972.mpf +++| PIO SUBR ENTRY/EXIT 00978 M01S00973.mpf +++| RJM SFP SET FILE PARAMETERS 00979 M01S00974.mpf +++| RJM SBA SET BUFFER ADDRESSES 00980 M01S00975.mpf +++| RJM VBA VALIDATE BUFFER ADDRESSES 00981 M01S00976.mpf +++| UJN PIOX RETURN 00982 M01S00977.mpf +++| SBA SPACE 4,15 00983 M01S00978.mpf +++|** SBA - SET BUFFER ARGUMENTS. 00984 M01S00979.mpf +++|* 00985 M01S00980.mpf +++|* READ BUFFER POINTERS INTO DIRECT CELLS. 00986 M01S00981.mpf +++|* 00987 M01S00982.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00988 M01S00983.mpf +++|* 00989 M01S00984.mpf +++|* EXIT (FT - FT+1) = FIRST. 00990 M01S00985.mpf +++|* (IN - IN+1) = IN. 00991 M01S00986.mpf +++|* (OT - OT+1) = OUT. 00992 M01S00987.mpf +++|* (LM - LM+1) = LIMIT. 00993 M01S00988.mpf +++|* 00994 M01S00989.mpf +++|* USES CM - CM+4, FT - FT+1, IN - IN+1, LM - LM+1, OT - OT+1. 00995 M01S00990.mpf +++| 00996 M01S00991.mpf +++| 00997 M01S00992.mpf +++| SBA SUBR ENTRY/EXIT 00998 M01S00993.mpf +++| LDCA IR+3,4 READ LIMIT 00999 M01S00994.mpf +++| CRD LM-3 01000 M01S00995.mpf +++| SBN 1 READ OUT 01001 M01S00996.mpf +++| CRD OT-3 01002 M01S00997.mpf +++| SBN 1 READ IN 01003 M01S00998.mpf +++| CRD CM 01004 M01S00999.mpf +++| LDD CM+3 01005 M01S01000.mpf +++| STD IN 01006 M01S01001.mpf +++| LDD CM+4 01007 M01S01002.mpf +++| STD IN+1 01008 M01S01003.mpf +++| LDCA IR+3,1 READ FIRST 01009 M01S01004.mpf +++| CRD CM 01010 M01S01005.mpf +++| LDD CM+3 01011 M01S01006.mpf +++| LPN 77 01012 M01S01007.mpf +++| STD FT 01013 M01S01008.mpf +++| LDD CM+4 01014 M01S01009.mpf +++| STD FT+1 01015 M01S01010.mpf +++| UJP SBAX RETURN 01016 M01S01011.mpf +++| SFC SPACE 4,15 01017 M01S01012.mpf +++|** SFC - SET FST COMPLETE. 01018 M01S01013.mpf +++|* 01019 M01S01014.mpf +++|* ENTRY (FS - FS+4) = FST. 01020 M01S01015.mpf +++|* (FA) = FNT ADDRESS. 01021 M01S01016.mpf +++|* (FA) = 0, IF NO FILE CURRENTLY SET BUSY. 01022 M01S01017.mpf +++|* 01023 M01S01018.mpf +++|* EXIT FST SET COMPLETE AND WRITTEN TO CENTRAL. 01024 M01S01019.mpf +++|* (FA) = 0. 01025 M01S01020.mpf +++|* 01026 M01S01021.mpf +++|* USES FA, FS+4. 01027 M01S01022.mpf +++|* 01028 M01S01023.mpf +++|* MACROS NFA. 01029 M01S01024.mpf +++| 01030 M01S01025.mpf +++| 01031 M01S01026.mpf +++| SFC SUBR ENTRY/EXIT 01032 M01S01027.mpf +++| AOD FS+4 SET STATUS COMPLETE 01033 M01S01028.mpf +++| LDD FA 01034 M01S01029.mpf +++| ZJN SFCX IF NO FST ADDRESS 01035 M01S01030.mpf +++| NFA FA,R WRITE FST 01036 M01S01031.mpf +++| ADK FSTL 01037 M01S01032.mpf +++| CWD FS 01038 M01S01033.mpf +++| LDN 0 CLEAR FNT ADDRESS 01039 M01S01034.mpf +++| STD FA 01040 M01S01035.mpf +++| UJN SFCX RETURN 01041 M01S01036.mpf +++| SFP SPACE 4,10 01042 M01S01037.mpf +++|** SFP - SET FILE PARAMETERS. 01043 M01S01038.mpf +++|* 01044 M01S01039.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 01045 M01S01040.mpf +++|* 01046 M01S01041.mpf +++|* EXIT (FA) = FNT ADDRESS. 01047 M01S01042.mpf +++|* (FS - FS+4) = FST ENTRY. 01048 M01S01043.mpf +++|* (T5) = EST ORDINAL. 01049 M01S01044.mpf +++|* (T6) = TRACK. 01050 M01S01045.mpf +++|* (T7) = SECTOR. 01051 M01S01046.mpf +++|* FST SET BUSY. 01052 M01S01047.mpf +++|* 01053 M01S01048.mpf +++|* USES FA, T5, T6, T7, FN - FN+4, FS - FS+4. 01054 M01S01049.mpf +++|* 01055 M01S01050.mpf +++|* CALLS SAF, SFB. 01056 M01S01051.mpf +++|* 01057 M01S01052.mpf +++|* MACROS ERROR, LDCA. 01058 M01S01053.mpf +++| 01059 M01S01054.mpf +++| 01060 M01S01055.mpf +++| SFP SUBR ENTRY/EXIT 01061 M01S01056.mpf +++| LDCA IR+3 READ FILE NAME 01062 M01S01057.mpf +++| CRD FN 01063 M01S01058.mpf +++| LDCA IR+3,4 READ FNT ADDRESS 01064 M01S01059.mpf +++| CRD FS 01065 M01S01060.mpf +++| LDD FS 01066 M01S01061.mpf +++| RJM SAF SEARCH FOR ASSIGNED FILE 01067 M01S01062.mpf +++| NJN SFP1 IF FILE FOUND 01068 M01S01063.mpf +++| ERROR ERNF * FILE NOT FOUND.* 01069 M01S01064.mpf +++| 01070 M01S01065.mpf +++| SFP1 RJM SFB SET FILE BUSY 01071 M01S01066.mpf +++| ZJN SFP2 IF FILE SET BUSY 01072 M01S01067.mpf +++| LDN 0 CLEAR FNT ADDRESS 01073 M01S01068.mpf +++| STD FA 01074 M01S01069.mpf +++| ERROR ERIO * I/O SEQUENCE ERROR.* 01075 M01S01070.mpf +++| 01076 M01S01071.mpf +++| SFP2 LDD FS 01077 M01S01072.mpf +++| LPC 3777 01078 M01S01073.mpf +++| STD T5 EST ORDINAL 01079 M01S01074.mpf +++| LDD FS+2 01080 M01S01075.mpf +++| STD T6 TRACK 01081 M01S01076.mpf +++| LDD FS+3 01082 M01S01077.mpf +++| STD T7 SECTOR 01083 M01S01078.mpf +++| UJP SFPX RETURN 01084 M01S01079.mpf +++| VBA SPACE 4,10 01085 M01S01080.mpf +++|** VBA - VALIDATE BUFFER ADDRESSES. 01086 M01S01081.mpf +++|* 01087 M01S01082.mpf +++|* ENTRY (FT - FT+1) = FIRST. 01088 M01S01083.mpf +++|* (IN - IN+1) = IN. 01089 M01S01084.mpf +++|* (OT - OT+1) = OUT. 01090 M01S01085.mpf +++|* (LM - LM+1) = LIMIT. 01091 M01S01086.mpf +++|* 01092 M01S01087.mpf +++|* EXIT TO *ERR* IF BUFFER ARGUMENT ERROR. 01093 M01S01088.mpf +++|* 01094 M01S01089.mpf +++|* MACROS ERROR. 01095 M01S01090.mpf +++| 01096 M01S01091.mpf +++| 01097 M01S01092.mpf +++| VBA SUBR ENTRY/EXIT 01098 M01S01093.mpf +++| LDD LM CHECK LIMIT 01099 M01S01094.mpf +++| SHN 14 01100 M01S01095.mpf +++| LMD LM+1 01101 M01S01096.mpf +++| SBN 1 01102 M01S01097.mpf +++| SHN -6 01103 M01S01098.mpf +++| SBD FL 01104 M01S01099.mpf +++| PJN VBA1 IF LIMIT .GT. FL 01105 M01S01100.mpf +++| LDD OT CHECK OUT 01106 M01S01101.mpf +++| SBD LM 01107 M01S01102.mpf +++| SHN 14 01108 M01S01103.mpf +++| ADD OT+1 01109 M01S01104.mpf +++| SBD LM+1 01110 M01S01105.mpf +++| PJN VBA1 IF OUT .GE. LIMIT 01111 M01S01106.mpf +++| LDD OT 01112 M01S01107.mpf +++| SBD FT 01113 M01S01108.mpf +++| SHN 14 01114 M01S01109.mpf +++| ADD OT+1 01115 M01S01110.mpf +++| SBD FT+1 01116 M01S01111.mpf +++| MJN VBA1 IF OUT .LT. FIRST 01117 M01S01112.mpf +++| LDD IN CHECK IN 01118 M01S01113.mpf +++| SBD LM 01119 M01S01114.mpf +++| SHN 14 01120 M01S01115.mpf +++| ADD IN+1 01121 M01S01116.mpf +++| SBD LM+1 01122 M01S01117.mpf +++| PJN VBA1 IF IN .GE. LIMIT 01123 M01S01118.mpf +++| LDD IN 01124 M01S01119.mpf +++| SBD FT 01125 M01S01120.mpf +++| SHN 14 01126 M01S01121.mpf +++| ADD IN+1 01127 M01S01122.mpf +++| SBD FT+1 01128 M01S01123.mpf +++| MJN VBA1 IF IN .LT. FIRST 01129 M01S01124.mpf +++| UJP VBAX RETURN 01130 M01S01125.mpf +++| 01131 M01S01126.mpf +++| VBA1 ERROR ERBA * BUFFER ARGUMENT ERROR.* 01132 M01S01127.mpf +++| VCA SPACE 4,10 01133 M01S01128.mpf +++|** VCA - VALIDATE CENTRAL ADDRESS. 01134 M01S01129.mpf +++|* 01135 M01S01130.mpf +++|* ENTRY (A) = RELATIVE ADDRESS. 01136 M01S01131.mpf +++|* 01137 M01S01132.mpf +++|* EXIT (A) = ABSOLUTE ADDRESS IF ADDRESS VALID. 01138 M01S01133.mpf +++|* 01139 M01S01134.mpf +++|* USES T1, T2. 01140 M01S01135.mpf +++|* 01141 M01S01136.mpf +++|* MACROS ERROR. 01142 M01S01137.mpf +++| 01143 M01S01138.mpf +++| 01144 M01S01139.mpf +++| VCA SUBR 01145 M01S01140.mpf +++| STD T2 01146 M01S01141.mpf +++| SCN 1 01147 M01S01142.mpf +++| ZJN VCA1 IF ADDRESS .LE. 1 01148 M01S01143.mpf +++| SCN 77 01149 M01S01144.mpf +++| SHN 6 01150 M01S01145.mpf +++| STD T1 01151 M01S01146.mpf +++| SHN 6 01152 M01S01147.mpf +++| SBD FL 01153 M01S01148.mpf +++| PJN VCA1 IF ADDRESS .GE. FL 01154 M01S01149.mpf +++| LDD T1 FORM ABSOLUTE ADDRESS 01155 M01S01150.mpf +++| SHN 6 01156 M01S01151.mpf +++| ADD RA 01157 M01S01152.mpf +++| SHN 6 01158 M01S01153.mpf +++| ADD T2 01159 M01S01154.mpf +++| UJP VCAX RETURN 01160 M01S01155.mpf +++| 01161 M01S01156.mpf +++| VCA1 ERROR ERAR * ADDRESS OUT OF RANGE.* 01162 M01S01157.mpf +++| VTB SPACE 4,10 01163 M01S01158.mpf +++|** VTB - VALIDATE TRACK LINK BYTE. 01164 M01S01159.mpf +++|* 01165 M01S01160.mpf +++|* ENTRY (A) = TRACK LINK BYTE TO VALIDATE. 01166 M01S01161.mpf +++|* (TK) = LABEL TRACK. 01167 M01S01162.mpf +++|* (T5) = EST ORDINAL. 01168 M01S01163.mpf +++|* 01169 M01S01164.mpf +++|* EXIT (A) = 0 IF NO ERROR. 01170 M01S01165.mpf +++|* 01171 M01S01166.mpf +++|* USES T1, T2, T6, CM - CM+4. 01172 M01S01167.mpf +++|* 01173 M01S01168.mpf +++|* CALLS SNT. 01174 M01S01169.mpf +++|* 01175 M01S01170.mpf +++|* MACROS MONITOR. 01176 M01S01171.mpf +++| 01177 M01S01172.mpf +++| 01178 M01S01173.mpf +++| VTB SUBR ENTRY/EXIT 01179 M01S01174.mpf +++| STD T2 SAVE BYTE 01180 M01S01175.mpf +++| LDD TK LABEL TRACK 01181 M01S01176.mpf +++| STD T6 01182 M01S01177.mpf +++| LDN UTRS SET SUBFUNCTION CODE 01183 M01S01178.mpf +++| STD CM+3 01184 M01S01179.mpf +++| LDD T5 SET EST ORDINAL 01185 M01S01180.mpf +++| STD CM+1 01186 M01S01181.mpf +++| MONITOR STBM GET CURRENT TRT 01187 M01S01182.mpf +++| VTB1 RJM SNT GET LINK 01188 M01S01183.mpf +++| STD T6 01189 M01S01184.mpf +++| LMD T2 01190 M01S01185.mpf +++| ZJN VTB3 IF LINKED TO REQUESTED TRACK BYTE 01191 M01S01186.mpf +++| LDD T6 01192 M01S01187.mpf +++| SHN 21-13 01193 M01S01188.mpf +++| MJN VTB1 IF LINK BYTE 01194 M01S01189.mpf +++| VTB2 LDN 1 INDICATE ERROR 01195 M01S01190.mpf +++| UJN VTBX RETURN 01196 M01S01191.mpf +++| 01197 M01S01192.mpf +++| VTB3 LDD T6 01198 M01S01193.mpf +++| SHN 21-13 01199 M01S01194.mpf +++| PJN VTB2 IF NOT A LINK BYTE 01200 M01S01195.mpf +++| RJM SNT 01201 M01S01196.mpf +++| LDD T1 01202 M01S01197.mpf +++| ADC SHNI+6+14-4 01203 M01S01198.mpf +++| STM VTBA 01204 M01S01199.mpf +++| LDD CM+4 01205 M01S01200.mpf +++| VTBA SHN ** 01206 M01S01201.mpf +++| PJN VTB2 IF NOT RESERVED 01207 M01S01202.mpf +++| LDN 0 INDICATE NO ERROR 01208 M01S01203.mpf +++| UJP VTBX RETURN 01209 M01S01204.mpf +++| TITLE BUFFER ALLOCATION. 01210 M01S01205.mpf +++| SPACE 4,10 01211 M01S01206.mpf +++|* BUFFER ALLOCATION. 01212 M01S01207.mpf +++| 01213 M01S01208.mpf +++| 01214 M01S01209.mpf +++| WEIA BSSZ WCEI*5+2 EOI SECTOR BUFFER (FOR *COMPWEI*) 01215 M01S01210.mpf +++| 01216 M01S01211.mpf +++| EBMS EQU BFMS-502 MASS STORAGE ERROR BUFFER 01217 M01S01212.mpf +++| TITLE COMMON DECKS. 01218 M01S01213.mpf +++| SPACE 4,10 01219 M01S01214.mpf +++|* COMMON DECKS. 01220 M01S01215.mpf +++| 01221 M01S01216.mpf +++| 01222 M01S01217.mpf +++|*CALL COMPCOB 01223 M01S01218.mpf +++| CRA$ EQU 0 ENSURE CURRENT TRT 01224 M01S01219.mpf +++|*CALL COMPCRA 01225 M01S01220.mpf +++|*CALL COMPCRS 01226 M01S01221.mpf +++|*CALL COMPC2D 01227 M01S01222.mpf +++|*CALL COMPRBB 01228 M01S01223.mpf +++| RIS$ EQU 1 READ IAPF SYSTEM SECTOR 01229 M01S01224.mpf +++|*CALL COMPRSS 01230 M01S01225.mpf +++| SAF$ EQU 0 SEARCH SPECIFIC ENTRY FIRST 01231 M01S01226.mpf +++|*CALL COMPSAF 01232 M01S01227.mpf +++|*CALL COMPSES 01233 M01S01228.mpf +++|*CALL COMPSFB 01234 M01S01229.mpf +++|*CALL COMPSNT 01235 M01S01230.mpf +++|*CALL COMPTGB 01236 M01S01231.mpf +++|*CALL COMPWEI 01237 M01S01232.mpf +++| SPACE 4,10 01238 M01S01233.mpf +++| ERRPL *-EBMS OVERFLOW INTO MS ERROR BUFFER 01239 M01S01234.mpf +++| ERRPL *-BFMS OVERFLOW INTO MS BUFFER 01240 M01S01235.mpf +++| TITLE PRESET. 01241 M01S01236.mpf +++| PRS SPACE 4,15 01242 M01S01237.mpf +++|** PRS - PRESET. 01243 M01S01238.mpf +++|* 01244 M01S01239.mpf +++|* ENTRY (IR+2) = FUNCTION CODE. 01245 M01S01240.mpf +++|* 01246 M01S01241.mpf +++|* EXIT (T1) = FUNCTION PROCESSOR ADDRESS. 01247 M01S01242.mpf +++|* 01248 M01S01243.mpf +++|* USES FA, T1, CM - CM+4. 01249 M01S01244.mpf +++|* 01250 M01S01245.mpf +++|* CALLS CRS. 01251 M01S01246.mpf +++|* 01252 M01S01247.mpf +++|* MACROS ERROR. 01253 M01S01248.mpf +++| 01254 M01S01249.mpf +++| 01255 M01S01250.mpf +++| PRS SUBR 01256 M01S01251.mpf +++| LDN 0 CLEAR FST ADDRESS 01257 M01S01252.mpf +++| STD FA 01258 M01S01253.mpf +++| LDD CP CHECK IF CALLER IS *SSJ=* 01259 M01S01254.mpf +++| ADK SEPW 01260 M01S01255.mpf +++| CRD CM 01261 M01S01256.mpf +++| LDD CM 01262 M01S01257.mpf +++| SHN 21-2 01263 M01S01258.mpf +++| MJN PRS2 IF CALLER IS *SSJ=* 01264 M01S01259.mpf +++| PRS1 ERROR ERIC * INCORRECT CALL.* 01265 M01S01260.mpf +++| 01266 M01S01261.mpf +++| PRS2 RJM CRS 01267 M01S01262.mpf +++| ZJN PRS1 IF NOT CALLED WITH AUTO RECALL 01268 M01S01263.mpf +++| LDD IR+2 01269 M01S01264.mpf +++| STD T1 FUNCTION CODE 01270 M01S01265.mpf +++| SBN TFCNL 01271 M01S01266.mpf +++| MJN PRS4 IF LEGAL FUNCTION 01272 M01S01267.mpf +++| PRS3 ERROR ERIF * INCORRECT FUNCTION.* 01273 M01S01268.mpf +++| 01274 M01S01269.mpf +++| PRS4 LDM TFCN,T1 FUNCION PROCESSOR ADDRESS 01275 M01S01270.mpf +++| STD T1 01276 M01S01271.mpf +++| ZJN PRS3 IF INCORRECT FUNCTION 01277 M01S01272.mpf +++| UJP PRSX RETURN 01278 M01S01273.mpf +++| SPACE 4,10 01279 M01S01274.mpf +++|* TFCN - TABLE OF FUNCTION PROCESSORS. 01280 M01S01275.mpf +++| 01281 M01S01276.mpf +++| 01282 M01S01277.mpf +++| TFCN BSS 0 01283 M01S01278.mpf +++| CON DTK DROP TRACKS 01284 M01S01279.mpf +++| CON RWE REWRITE END OF INFORMATION 01285 M01S01280.mpf +++| CON DLK DELINK TRACKS 01286 M01S01281.mpf +++| CON 0 (RESERVED) 01287 M01S01282.mpf +++| CON RSC READ SYSTEM SECTOR 01288 M01S01283.mpf +++| CON WSC WRITE SYSTEM SECTOR 01289 M01S01284.mpf +++| CON RTF RETURN FST FOR CATALOG OVERFLOW TRACK 01290 M01S01285.mpf +++| CON RWC REWRITE CATALOG SECTOR 01291 M01S01286.mpf +++| TFCNL EQU *-TFCN 01292 M01S01287.mpf +++| SPACE 4,10 01293 M01S01288.mpf +++| OVERFLOW PPFW,EPFW 01294 M01S01289.mpf +++| SPACE 4 01295 M01S01290.mpf +++| END
cdc/nos2.source/opl.opl871/deck/mpf.txt · Last modified: by 127.0.0.1