cdc:nos2.source:opl.opl871:deck:mpf
Deck MPF
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.mpf +++| IDENT MPF,MPF 00002 M00S00002.mpf +++| PERIPH 00003 M00S00003.mpf +++| BASE MIXED 00004 M00S00004.mpf +++| SST 00005 M00S00005.mpf +++| TITLE MPF - *PACKER* UTILITY HELPER. 00006 M00S00006.mpf +++| SPACE 4,10 00007 M00S00007.mpf +++|*COMMENT MPF - *PACKER* UTILITY HELPER.
Line S00008 Modification History | |
---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1988.
Line S00001 Modification History | |
---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M00S00009.mpf +++| SPACE 4,10 00011 M00S00010.mpf +++|*** MPF - *PACKER* UTILITY PP HELPER ROUTINE. 00012 M00S00011.mpf +++|* 00013 M00S00012.mpf +++|* W. J. STURGIS. 78/02/14. 00014 M00S00013.mpf +++|* K. A. GILLIAM. 80/08/11. 00015 M00S00014.mpf +++|* D. G. BEAUSANG. 80/08/26. 00016 M00S00015.mpf +++|* A. J. NATHANSON. 83/10/25. 00017 M00S00016.mpf +++|* K. R. DELAY. 84/03/26. 00018 M00S00017.mpf +++|* P. C. SMITH. 87/12/01. 00019 M00S00018.mpf +++| SPACE 4,10 00020 M00S00019.mpf +++|*** MPF IS A PP HELPER PROGRAM FOR THE UTILITY *PACKER*. 00021 M00S00020.mpf +++| SPACE 4,10 00022 M00S00021.mpf +++|*** CALL - 00023 M00S00022.mpf +++|* 00024 M00S00023.mpf +++|*T 18/ *MPF*,6/ R,12/ FN,6/ ,18/ ADDR
Figure
00025 M00S00024.mpf +++|* 00026 M00S00025.mpf +++|* FN = FUNCTION CODE. 00027 M00S00026.mpf +++|* ADDR = ADDRESS OF FET OR PARAMETER BLOCK. 00028 M00S00027.mpf +++|* 00029 M00S00028.mpf +++|* SEE INDIVIDUAL FUNCTIONS FOR MORE DETAILS. 00030 M00S00029.mpf +++|* 00031 M00S00030.mpf +++|* FN = 0, DROP TRACKS ON IAPF CHAIN. 00032 M00S00031.mpf +++|* FN = 1, REWRITE EOI. 00033 M00S00032.mpf +++|* FN = 2, DELINK TRACKS FROM IAPF CHAIN. 00034 M00S00033.mpf +++|* FN = 3, (RESERVED). 00035 M00S00034.mpf +++|* FN = 4, READ SYSTEM SECTOR. 00036 M00S00035.mpf +++|* FN = 5, WRITE SYSTEM SECTOR. 00037 M00S00036.mpf +++|* FN = 6, RETURN FST FOR CATALOG OVERFLOW TRACK. 00038 M00S00037.mpf +++|* FN = 7, REWRITE CATALOG SECTOR. 00039 M00S00038.mpf +++| SPACE 4,10 00040 M00S00039.mpf +++|*** DAYFILE MESSAGES. 00041 M00S00040.mpf +++|* 00042 M00S00041.mpf +++|* THESE MESSAGES ARE ISSUED TO THE SYSTEM AND LOCAL 00043 M00S00042.mpf +++|* DAYFILES, AND THE CALLING JOB IS ABORTED. 00044 M00S00043.mpf +++|* 00045 M00S00044.mpf +++|* * MPF - ADDRESS OUT OF RANGE.* 00046 M00S00045.mpf +++|* THE SPECIFIED ADDRESS WAS .LE. 1 OR .GE. FL. 00047 M00S00046.mpf +++|* 00048 M00S00047.mpf +++|* * MPF - BUFFER ARGUMENT ERROR.* 00049 M00S00048.mpf +++|* BUFFER ARGUMENTS (FIRST/IN/OUT/LIMIT) ARE INCORRECT. 00050 M00S00049.mpf +++|* 00051 M00S00050.mpf +++|* * MPF - CATALOG REWRITE LINK BYTE ERROR.* 00052 M00S00051.mpf +++|* AN INCORRECT LINK BYTE WAS READ FROM THE 00053 M00S00052.mpf +++|* CATALOG TRACK. 00054 M00S00053.mpf +++|* 00055 M00S00054.mpf +++|* * MPF - DEVICE ERROR IDLE SET.* 00056 M00S00055.mpf +++|* A DEVICE ERROR IDLE WAS SET AS THE RESULT OF AN 00057 M00S00056.mpf +++|* INCORRECT CATALOG SECTOR WRITE. 00058 M00S00057.mpf +++|* 00059 M00S00058.mpf +++|* * MPF - EQXX TKYYYY SCZZZZ.* 00060 M00S00059.mpf +++|* THE EST ORDINAL, TRACK AND SECTOR LOCATION OF THE 00061 M00S00060.mpf +++|* INCORRECT SECTOR WRITE. 00062 M00S00061.mpf +++|* 00063 M00S00062.mpf +++|* * MPF - FET COMPLETE BIT SET.* 00064 M00S00063.mpf +++|* THE FET COMPLETE BIT WAS SET ON ENTRY FOR FN=7. 00065 M00S00064.mpf +++|* 00066 M00S00065.mpf +++|* * MPF - FET TOO SHORT.* 00067 M00S00066.mpf +++|* THE FET WAS TOO SHORT FOR FN=7. 00068 M00S00067.mpf +++|* 00069 M00S00068.mpf +++|* * MPF - FILE NOT FOUND.* 00070 M00S00069.mpf +++|* THE LOCAL FILE SPECIFIED IN THE FET WAS NOT FOUND. 00071 M00S00070.mpf +++|* 00072 M00S00071.mpf +++|* * MPF - FM DN FFFFFFF NN.* 00073 M00S00072.mpf +++|* THE FAMILY NAME (FFFFFFF) AND DEVICE NUMBER (NN) 00074 M00S00073.mpf +++|* OF THE DEVICE ON WHICH ERROR IDLE WAS SET. 00075 M00S00074.mpf +++|* 00076 M00S00075.mpf +++|* * MPF - INACCESSIBLE DEVICE.* 00077 M00S00076.mpf +++|* THE DEVICE STATUS RETURNED BY THE *SETMS* MACRO 00078 M00S00077.mpf +++|* INDICATES THAT THE DEVICE IS NOT ACCESSIBLE. 00079 M00S00078.mpf +++|* 00080 M00S00079.mpf +++|* * MPF - INCORRECT CALL.* 00081 M00S00080.mpf +++|* CALLER WAS NOT *SSJ=* PROGRAM, OR *MPF* WAS 00082 M00S00081.mpf +++|* NOT CALLED WITH AUTO RECALL. 00083 M00S00082.mpf +++|* 00084 M00S00083.mpf +++|* * MPF - INCORRECT CATALOG REWRITE REQUEST.* 00085 M00S00084.mpf +++|* INCORRECT SECTOR LENGTH, INCORRECT RANDOM ADDRESS, 00086 M00S00085.mpf +++|* INCORRECT EST ORDINAL, ET CETERA. 00087 M00S00086.mpf +++|* 00088 M00S00087.mpf +++|* * MPF - INCORRECT CIO CODE IN CATALOG REWRITE.* 00089 M00S00088.mpf +++|* THE CIO CODE FOR *REWRITE* MUST BE SET IN THE FET 00090 M00S00089.mpf +++|* FOR A SECTOR REWRITE WITH 100B WORDS; THE CIO CODE 00091 M00S00090.mpf +++|* FOR *REWRITER* MUST BE SET IN THE FET FOR A SECTOR 00092 M00S00091.mpf +++|* WITH LESS THAN 100B WORDS. 00093 M00S00092.mpf +++|* 00094 M00S00093.mpf +++|* * MPF - INCORRECT FUNCTION.* 00095 M00S00094.mpf +++|* FUNCTION NUMBER NOT RECOGNIZED. 00096 M00S00095.mpf +++|* 00097 M00S00096.mpf +++|* * MPF - INCORRECT LINK BYTE IN CATALOG SCAN.* 00098 M00S00097.mpf +++|* THE CONTROL BYTES IN THE SECTOR AT END OF A TRACK 00099 M00S00098.mpf +++|* WERE NOT LINK BYTES, THE LINK BYTE POINTED TO AN 00100 M00S00099.mpf +++|* UNRESERVED TRACK, OR THE LINK BYTE POINTED TO A 00101 M00S00100.mpf +++|* TRACK WHICH WAS NOT ON THE TRACK CHAIN WHICH STARTED 00102 M00S00101.mpf +++|* WITH THE LABEL TRACK. 00103 M00S00102.mpf +++|* 00104 M00S00103.mpf +++|* * MPF - INCORRECT OVERFLOW FST REQUEST.* 00105 M00S00104.mpf +++|* THE PARAMETER BLOCK FOR FN=6 WAS INCORRECT. 00106 M00S00105.mpf +++|* 00107 M00S00106.mpf +++|* * MPF - INCORRECT SECTOR READ IN CATALOG REWRITE.* 00108 M00S00107.mpf +++|* AN UNRECOVERED MASS STORAGE ERROR WAS ENCOUNTERED 00109 M00S00108.mpf +++|* ON A SECTOR READ. 00110 M00S00109.mpf +++|* 00111 M00S00110.mpf +++|* * MPF - INCORRECT SECTOR READ IN CATALOG SCAN.* 00112 M00S00111.mpf +++|* AN UNRECOVERED MASS STORAGE ERROR WAS ENCOUNTERED 00113 M00S00112.mpf +++|* ON A CATALOG TRACK. 00114 M00S00113.mpf +++|* 00115 M00S00114.mpf +++|* * MPF - INCORRECT SYSTEM SECTOR.* 00116 M00S00115.mpf +++|* THE LINKAGE BYTES IN THE BUFFER WERE NOT CORRECT 00117 M00S00116.mpf +++|* FOR THE WRITE SYSTEM SECTOR FUNCTION. 00118 M00S00117.mpf +++|* 00119 M00S00118.mpf +++|* * MPF - INCORRECT WORD COUNT IN CATALOG REWRITE.* 00120 M00S00119.mpf +++|* THE WORD COUNT IN THE CIO BUFFER IS .GE. THAN 100B. 00121 M00S00120.mpf +++|* 00122 M00S00121.mpf +++|* * MPF - INCORRECT WRITE IN CATALOG REWRITE.* 00123 M00S00122.mpf +++|* AN UNRECOVERED MASS STORAGE ERROR WAS ENCOUNTERED 00124 M00S00123.mpf +++|* ON A SECTOR WRITE. THIS ERROR WILL SET ERROR IDLE 00125 M00S00124.mpf +++|* ON THE DEVICE. 00126 M00S00125.mpf +++|* 00127 M00S00126.mpf +++|* * MPF - I/O SEQUENCE ERROR.* 00128 M00S00127.mpf +++|* FST ENTRY FOR REWRITE EOI WAS BUSY. 00129 M00S00128.mpf +++|* 00130 M00S00129.mpf +++|* * MPF - RANDOM ADDRESS NOT ON IAPF CHAIN.* 00131 M00S00130.mpf +++|* THE SPECIFIED RANDOM ADDRESS WAS NOT FOUND ON 00132 M00S00131.mpf +++|* THE IAPF CHAIN. 00133 M00S00132.mpf +++|* 00134 M00S00133.mpf +++|* * MPF - SYSTEM SECTOR ERROR.* 00135 M00S00134.mpf +++|* A MASS STORAGE ERROR WAS ENCOUNTERED WHEN READING 00136 M00S00135.mpf +++|* OR WRITING A SYSTEM SECTOR. 00137 M00S00136.mpf +++|* 00138 M00S00137.mpf +++|* * MPF - WRITE LOCK-OUT ON CATALOG FILE.* 00139 M00S00138.mpf +++|* THE CATALOG FILE WAS NOT IN WRITE MODE. 00140 M00S00139.mpf +++| TITLE COMMON DECKS. 00141 M00S00140.mpf +++| SPACE 4,10 00142 M00S00141.mpf +++|* COMMON DECKS. 00143 M00S00142.mpf +++| SPACE 4,10 00144 M00S00143.mpf +++|*CALL COMPMAC 00145 M00S00144.mpf +++|*CALL COMSCPS 00146 M00S00145.mpf +++|*CALL COMSLSD 00147 M00S00146.mpf +++|*CALL COMSMSP 00148 M00S00147.mpf +++|*CALL COMSMST 00149 M00S00148.mpf +++|*CALL COMSPIM 00150 M00S00149.mpf +++|*CALL COMSWEI 00151 M00S00150.mpf +++| TITLE MACRO DEFINITIONS. 00152 M00S00151.mpf +++| SPACE 4,10 00153 M00S00152.mpf +++|* MACRO DEFINITIONS. 00154 M00S00153.mpf +++| ERROR SPACE 4,10 00155 M00S00154.mpf +++|** ERROR - ISSUE ERROR MESSAGE AND ABORT. 00156 M00S00155.mpf +++|* 00157 M00S00156.mpf +++|* ERROR MSG 00158 M00S00157.mpf +++|* 00159 M00S00158.mpf +++|* MSG = ADDRESS OF ERROR MESSAGE. 00160 M00S00159.mpf +++|* 00161 M00S00160.mpf +++|* CALLS ERR. 00162 M00S00161.mpf +++| 00163 M00S00162.mpf +++| 00164 M00S00163.mpf +++| PURGMAC ERROR 00165 M00S00164.mpf +++| 00166 M00S00165.mpf +++| ERROR MACRO M 00167 M00S00166.mpf +++| MACREF ERROR 00168 M00S00167.mpf +++| LDC M 00169 M00S00168.mpf +++| RJM ERR 00170 M00S00169.mpf +++| ERROR ENDM 00171 M00S00170.mpf +++| LDCA SPACE 4,10 00172 M00S00171.mpf +++|** LDCA - LOAD AND CHECK CENTRAL ADDRESS. 00173 M00S00172.mpf +++|* 00174 M00S00173.mpf +++|* LDCA ADDR,OFFSET 00175 M00S00174.mpf +++|* 00176 M00S00175.mpf +++|* (ADDR - ADDR+1) = RELATIVE ADDRESS. 00177 M00S00176.mpf +++|* OFFSET = ADDED TO ADDRESS. 00178 M00S00177.mpf +++|* 00179 M00S00178.mpf +++|* CALLS VCA. 00180 M00S00179.mpf +++|* 00181 M00S00180.mpf +++|* USES T1, T2. 00182 M00S00181.mpf +++| 00183 M00S00182.mpf +++| 00184 M00S00183.mpf +++| PURGMAC LDCA 00185 M00S00184.mpf +++| 00186 M00S00185.mpf +++| LDCA MACRO A,N 00187 M00S00186.mpf +++| MACREF LDCA 00188 M00S00187.mpf +++| LDD A 00189 M00S00188.mpf +++| LPN 37 00190 M00S00189.mpf +++| SHN 14 00191 M00S00190.mpf +++| ADD A+1 00192 M00S00191.mpf +++| IFC NE,$N$$,1 00193 M00S00192.mpf +++| ADK N 00194 M00S00193.mpf +++| RJM VCA 00195 M00S00194.mpf +++| LDCA ENDM 00196 M00S00195.mpf +++| TITLE DIRECT CELL DEFINITIONS. 00197 M00S00196.mpf +++| SPACE 4,10 00198 M00S00197.mpf +++|* DIRECT CELL DEFINITIONS. 00199 M00S00198.mpf +++| 00200 M00S00199.mpf +++| 00201 M00S00200.mpf +++| FS EQU 20 - 24 FST ENTRY 00202 M00S00201.mpf +++| RI EQU 25 - 26 RANDOM INDEX 00203 M00S00202.mpf +++| CT EQU 35 OVERFLOW TRACK NUMBER 00204 M00S00203.mpf +++| TK EQU 36 LABEL TRACK 00205 M00S00204.mpf +++| FN EQU 40 - 44 FNT ENTRY 00206 M00S00205.mpf +++| FA EQU 57 FNT ADDRESS 00207 M00S00206.mpf +++| FT EQU 60 - 61 FIRST 00208 M00S00207.mpf +++| IN EQU 62 - 63 IN 00209 M00S00208.mpf +++| OT EQU 64 - 65 OUT 00210 M00S00209.mpf +++| LM EQU 66 - 67 LIMIT 00211 M00S00210.mpf +++| TITLE MAIN PROGRAM. 00212 M00S00211.mpf +++| SPACE 4,10 00213 M00S00212.mpf +++| ORG PPFW 00214 M00S00213.mpf +++| MPF SPACE 4,10 00215 M00S00214.mpf +++|** MPF - MAIN PROGRAM. 00216 M00S00215.mpf +++| 00217 M00S00216.mpf +++| 00218 M00S00217.mpf +++| MPF BSS 0 ENTRY 00219 M00S00218.mpf +++| RJM PRS PRESET 00220 M00S00219.mpf +++| RJM 0,T1 EXECUTE FUNCTION 00221 M00S00220.mpf +++| MONITOR DPPM DROP PP 00222 M00S00221.mpf +++| LJM PPR EXIT TO PP RESIDENT 00223 M00S00222.mpf +++| TITLE ERROR PROCESSING. 00224 M00S00223.mpf +++| ERR SPACE 4,10 00225 M00S00224.mpf +++|** ERR - ERROR PROCESSOR. 00226 M00S00225.mpf +++|* 00227 M00S00226.mpf +++|* ENTRY (A) = ADDRESS OF ERROR MESSAGE TEXT. 00228 M00S00227.mpf +++|* 00229 M00S00228.mpf +++|* EXIT TO *PPR*. 00230 M00S00229.mpf +++|* PP HUNG IF *SYSTEM DEBUG* ENABLED. 00231 M00S00230.mpf +++|* 00232 M00S00231.mpf +++|* CALLS DFM, SFC. 00233 M00S00232.mpf +++|* 00234 M00S00233.mpf +++|* MACROS MONITOR. 00235 M00S00234.mpf +++| 00236 M00S00235.mpf +++| 00237 M00S00236.mpf +++| ERR SUBR ENTRY 00238 M00S00237.mpf +++| RJM DFM ISSUE DAYFILE MESSAGE 00239 M00S00238.mpf +++| RJM SFC SET FST COMPLETE 00240 M00S00239.mpf +++| LDK ZERL 00241 M00S00240.mpf +++| CRD CM 00242 M00S00241.mpf +++| LDM ERR SET ADDRESS OF CALLER 00243 M00S00242.mpf +++| STD CM+1 00244 M00S00243.mpf +++| MONITOR CHGM CONDITIONALLY HANG PP 00245 M00S00244.mpf +++| MONITOR ABTM ABORT CONTROL POINT 00246 M00S00245.mpf +++| LJM PPR EXIT TO PP RESIDENT 00247 M00S00246.mpf +++| ERRMSG SPACE 4,10 00248 M00S00247.mpf +++|* ERROR MESSAGES. 00249 M00S00248.mpf +++| 00250 M00S00249.mpf +++| 00251 M00S00250.mpf +++| ERAR DATA C* MPF - ADDRESS OUT OF RANGE.* 00252 M00S00251.mpf +++| ERBA DATA C* MPF - BUFFER ARGUMENT ERROR.* 00253 M00S00252.mpf +++| ERCC DATA C* MPF - INCORRECT CIO CODE IN CATALOG REWRITE.* 00254 M00S00253.mpf +++| ERCR DATA C* MPF - INCORRECT CATALOG REWRITE REQUEST.* 00255 M00S00254.mpf +++| EREI DATA C* MPF - DEVICE ERROR IDLE SET.* 00256 M00S00255.mpf +++| ERFC DATA C* MPF - FET COMPLETE BIT SET.* 00257 M00S00256.mpf +++| ERFS DATA C* MPF - FET TOO SHORT.* 00258 M00S00257.mpf +++| ERIC DATA C* MPF - INCORRECT CALL.* 00259 M00S00258.mpf +++| ERID DATA C* MPF - INACCESSIBLE DEVICE.* 00260 M00S00259.mpf +++| ERIF DATA C* MPF - INCORRECT FUNCTION.* 00261 M00S00260.mpf +++| ERIO DATA C* MPF - I/O SEQUENCE ERROR.* 00262 M00S00261.mpf +++| ERIS DATA C* MPF - INCORRECT SYSTEM SECTOR.* 00263 M00S00262.mpf +++| ERLR DATA C* MPF - CATALOG REWRITE LINK BYTE ERROR.* 00264 M00S00263.mpf +++| ERLS DATA C* MPF - INCORRECT LINK BYTE IN CATALOG SCAN.* 00265 M00S00264.mpf +++| ERNF DATA C* MPF - FILE NOT FOUND.* 00266 M00S00265.mpf +++| EROF DATA C* MPF - INCORRECT OVERFLOW FST REQUEST.* 00267 M00S00266.mpf +++| ERRA DATA C* MPF - RANDOM ADDRESS NOT ON IAPF CHAIN.* 00268 M00S00267.mpf +++| ERRR DATA C* MPF - INCORRECT SECTOR READ IN CATALOG REWRITE.* 00269 M00S00268.mpf +++| ERSR DATA C* MPF - INCORRECT SECTOR READ IN CATALOG SCAN.* 00270 M00S00269.mpf +++| ERSS DATA C* MPF - SYSTEM SECTOR ERROR.* 00271 M00S00270.mpf +++| ERWL DATA C* MPF - WRITE LOCK-OUT ON CATALOG FILE.* 00272 M00S00271.mpf +++| ERWR DATA C* MPF - INCORRECT WORD COUNT IN CATALOG REWRITE.* 00273 M00S00272.mpf +++| ERWW DATA C* MPF - INCORRECT WRITE IN CATALOG REWRITE.* 00274 M00S00273.mpf +++| TITLE FUNCTION PROCESSORS. 00275 M00S00274.mpf +++| DTK SPACE 4,10 00276 M00S00275.mpf +++|*** DTK (0) - DROP TRACKS ON IAPF CHAIN. 00277 M00S00276.mpf +++|* 00278 M00S00277.mpf +++|* ENTRY (IR+3 - IR+4) = PARAMETER ADDRESS. 00279 M00S00278.mpf +++|* 00280 M00S00279.mpf +++|*T ADDR 12/ EQ,24/ ,24/ EOI
Figure ADDR
00281 M00S00280.mpf +++|* 00282 M00S00281.mpf +++|* EQ = EST ORDINAL. 00283 M00S00282.mpf +++|* EOI = RANDOM ADDRESS OF NEW EOI. 00284 M00S00283.mpf +++|* 00285 M00S00284.mpf +++|* EXIT TRT UPDATED. 00286 M00S00285.mpf +++|* DEVICE CHECKPOINT REQUESTED. 00287 M00S00286.mpf +++| 00288 M00S00287.mpf +++| 00289 M00S00288.mpf +++| DTK SUBR 00290 M00S00289.mpf +++| LDCA IR+3 SET EST ORDINAL 00291 M00S00290.mpf +++| CRD CM 00292 M00S00291.mpf +++| LDD CM 00293 M00S00292.mpf +++| LPC 3777 00294 M00S00293.mpf +++| STD T5 00295 M00S00294.mpf +++| LDCA IR+3 00296 M00S00295.mpf +++| RJM CDA COMPUTE DISK ADDRESS 00297 M00S00296.mpf +++| LDD T5 00298 M00S00297.mpf +++| ADC 4000 DEVICE CHECKPOINT FLAG 00299 M00S00298.mpf +++| STD CM+1 00300 M00S00299.mpf +++| LDD T6 SET EOI TRACK 00301 M00S00300.mpf +++| LPC 3777 CLEAR LINK BIT 00302 M00S00301.mpf +++| STD CM+2 00303 M00S00302.mpf +++| LDD T7 SET EOI SECTOR 00304 M00S00303.mpf +++| STD CM+3 00305 M00S00304.mpf +++| MONITOR DTKM 00306 M00S00305.mpf +++| LJM DTKX RETURN 00307 M00S00306.mpf +++| RWE SPACE 4,10 00308 M00S00307.mpf +++|*** RWE (1) - REWRITE EOI. 00309 M00S00308.mpf +++|* 00310 M00S00309.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00311 M00S00310.mpf +++|* LOCAL FILE POSITIONED TO CORRECT SECTOR FOR EOI WRITE. 00312 M00S00311.mpf +++|* 00313 M00S00312.mpf +++|* EXIT EOI WRITTEN. 00314 M00S00313.mpf +++| 00315 M00S00314.mpf +++| 00316 M00S00315.mpf +++| RWE SUBR 00317 M00S00316.mpf +++| RJM SFP SET FILE PARAMETERS 00318 M00S00317.mpf +++| SETMS IO,RW 00319 M00S00318.mpf +++| RJM PDS PROCESS DEVICE STATUS 00320 M00S00319.mpf +++| RJM WEI WRITE EOI SECTOR 00321 M00S00320.mpf +++| ENDMS 00322 M00S00321.mpf +++| RJM SFC SET FST COMPLETE 00323 M00S00322.mpf +++| UJN RWEX RETURN 00324 M00S00323.mpf +++| DLK SPACE 4,15 00325 M00S00324.mpf +++|*** DLK (2) - DELINK TRACKS FROM IAPF CHAIN. 00326 M00S00325.mpf +++|* 00327 M00S00326.mpf +++|* ENTRY (IR+3 - IR+4) = PARAMETER ADDRESS. 00328 M00S00327.mpf +++|* 00329 M00S00328.mpf +++|*T ADDR 12/ ,12/ EQ,12/ FT,12/ NT,12/ LT
Figure ADDR
00330 M00S00329.mpf +++|* 00331 M00S00330.mpf +++|* EQ = EST ORDINAL. 00332 M00S00331.mpf +++|* FT = FIRST TRACK. 00333 M00S00332.mpf +++|* NT = NEXT TRACK. 00334 M00S00333.mpf +++|* LT = LAST TRACK. 00335 M00S00334.mpf +++|* 00336 M00S00335.mpf +++|* EXIT TRACKS DELINKED FROM IAPF CHAIN. 00337 M00S00336.mpf +++|* DEVICE CHECKPOINT REQUESTED. 00338 M00S00337.mpf +++| 00339 M00S00338.mpf +++| 00340 M00S00339.mpf +++| DLK SUBR 00341 M00S00340.mpf +++| LDCA IR+3 00342 M00S00341.mpf +++| CRD CM READ PARAMETER 00343 M00S00342.mpf +++| LDD CM+1 00344 M00S00343.mpf +++| LPC 3777 00345 M00S00344.mpf +++| LMC 4000 DEVICE CHECKPOINT FLAG 00346 M00S00345.mpf +++| STD CM+1 00347 M00S00346.mpf +++| LDD CM+2 ENSURE LINK BIT CLEAR 00348 M00S00347.mpf +++| LPC 3777 00349 M00S00348.mpf +++| STD CM+2 00350 M00S00349.mpf +++| MONITOR DLKM 00351 M00S00350.mpf +++| UJN DLKX RETURN 00352 M00S00351.mpf +++| RSC SPACE 4,10 00353 M00S00352.mpf +++|*** RSC (4) - READ SYSTEM SECTOR. 00354 M00S00353.mpf +++|* 00355 M00S00354.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00356 M00S00355.mpf +++|* RANDOM ADDRESS OF SYSTEM SECTOR IN FET+6. 00357 M00S00356.mpf +++|* 00358 M00S00357.mpf +++|* EXIT SYSTEM SECTOR RETURNED TO BUFFER STARTING AT *FIRST*. 00359 M00S00358.mpf +++|* RANDOM ADDRESS IN FET+6 UPDATED. 00360 M00S00359.mpf +++| 00361 M00S00360.mpf +++| 00362 M00S00361.mpf +++| RSC SUBR ENTRY/EXIT 00363 M00S00362.mpf +++| RJM SFP SET FILE PARAMETERS 00364 M00S00363.mpf +++| LDCA IR+3,6 GET RANDOM ADDRESS 00365 M00S00364.mpf +++| RJM CDA COMPUTE DISK ADDRESS 00366 M00S00365.mpf +++| SETMS IO 00367 M00S00366.mpf +++| RJM PDS PROCESS DEVICE STATUS 00368 M00S00367.mpf +++| LDN 0 DO NOT COMPARE FILE NAME 00369 M00S00368.mpf +++| RJM RSS READ SYSTEM SECTOR 00370 M00S00369.mpf +++| ZJN RSC2 IF SYSTEM SECTOR VALID 00371 M00S00370.mpf +++| RSC1 ERROR ERSS * SYSTEM SECTOR ERROR.* 00372 M00S00371.mpf +++| 00373 M00S00372.mpf +++| RSC2 ENDMS 00374 M00S00373.mpf +++| LDCA IR+3,6 00375 M00S00374.mpf +++| CRD CM 00376 M00S00375.mpf +++| AOD CM+4 UPDATE RANDOM ADDRESS IN FET+6 00377 M00S00376.mpf +++| SHN -14 00378 M00S00377.mpf +++| RAD CM+3 00379 M00S00378.mpf +++| LDCA IR+3,6 00380 M00S00379.mpf +++| CWD CM 00381 M00S00380.mpf +++| SBN 5 FIRST 00382 M00S00381.mpf +++| CRD CM 00383 M00S00382.mpf +++| LDCA CM+3,101 ENSURE THAT SYSTEM SECTOR FITS IN CM FL 00384 M00S00383.mpf +++| LDCA CM+3 00385 M00S00384.mpf +++| CWM BFMS,ON WRITE CONTROL BYTES TO CM BUFFER 00386 M00S00385.mpf +++| CWM BFMS+2,HN WRITE SYSTEM SECTOR TO CM BUFFER 00387 M00S00386.mpf +++| RJM SFC SET FST COMPLETE 00388 M00S00387.mpf +++| LJM RSCX RETURN 00389 M00S00388.mpf +++| WSC SPACE 4,10 00390 M00S00389.mpf +++|*** WSC (5) - WRITE SYSTEM SECTOR. 00391 M00S00390.mpf +++|* 00392 M00S00391.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00393 M00S00392.mpf +++|* SYSTEM SECTOR IN BUFFER STARTING AT *FIRST*. 00394 M00S00393.mpf +++|* RANDOM ADDRESS OF SYSTEM SECTOR IN FET+6. 00395 M00S00394.mpf +++|* 00396 M00S00395.mpf +++|* EXIT SYSTEM SECTOR WRITTEN. 00397 M00S00396.mpf +++|* RANDOM ADDRESS IN FET+6 UPDATED. 00398 M00S00397.mpf +++| 00399 M00S00398.mpf +++| 00400 M00S00399.mpf +++| WSC SUBR ENTRY/EXIT 00401 M00S00400.mpf +++| RJM SFP SET FILE PARAMETERS 00402 M00S00401.mpf +++| LDCA IR+3,6 RANDOM ADDRESS 00403 M00S00402.mpf +++| RJM CDA COMPUTE DISK ADDRESS 00404 M00S00403.mpf +++| LDCA IR+3,1 FIRST 00405 M00S00404.mpf +++| CRD CM 00406 M00S00405.mpf +++| LDCA CM+3,101 ENSURE SYSTEM SECTOR IS WITHIN CM FL 00407 M00S00406.mpf +++| LDCA CM+3 00408 M00S00407.mpf +++| CRM BFMS,ON READ CONTROL BYTES FROM CM BUFFER 00409 M00S00408.mpf +++| CRM BFMS+2,HN READ SYSTEM SECTOR FROM CM BUFFER 00410 M00S00409.mpf +++| LDM BFMS 00411 M00S00410.mpf +++| LMC 3777 CHECK CONTROL BYTES 00412 M00S00411.mpf +++| LMM BFMS+1 00413 M00S00412.mpf +++| LMN 77 00414 M00S00413.mpf +++| ZJN WSC1 IF CONTROL BYTES VALID 00415 M00S00414.mpf +++| ERROR ERIS * INCORRECT SYSTEM SECTOR.* 00416 M00S00415.mpf +++| 00417 M00S00416.mpf +++| WSC1 LDD T6 00418 M00S00417.mpf +++| STM FTSS SET FIRST TRACK 00419 M00S00418.mpf +++| LDD T7 00420 M00S00419.mpf +++| ADN FSMS 00421 M00S00420.mpf +++| STM NSSS NEXT SECTOR 00422 M00S00421.mpf +++| LMM SLM 00423 M00S00422.mpf +++| NJN WSC2 IF NOT END OF TRACK 00424 M00S00423.mpf +++| RJM SNT 00425 M00S00424.mpf +++| STM NSSS 00426 M00S00425.mpf +++| WSC2 SETMS IO,RW 00427 M00S00426.mpf +++| RJM PDS PROCESS DEVICE STATUS 00428 M00S00427.mpf +++| LDC BFMS+WLSF 00429 M00S00428.mpf +++| RJM WDS WRITE SYSTEM SECTOR 00430 M00S00429.mpf +++| PJN WSC3 IF NO DISK ERROR 00431 M00S00430.mpf +++| ERROR ERSS * SYSTEM SECTOR ERROR.* 00432 M00S00431.mpf +++| 00433 M00S00432.mpf +++| WSC3 ENDMS 00434 M00S00433.mpf +++| RJM SFC SET FST COMPLETE 00435 M00S00434.mpf +++| LDCA IR+3,6 00436 M00S00435.mpf +++| CRD CM 00437 M00S00436.mpf +++| AOD CM+4 UPDATE RANDOM ADDRESS IN FET+6 00438 M00S00437.mpf +++| SHN -14 00439 M00S00438.mpf +++| RAD CM+3 00440 M00S00439.mpf +++| LDCA IR+3,6 00441 M00S00440.mpf +++| CWD CM 00442 M00S00441.mpf +++| LJM WSCX RETURN 00443 M00S00442.mpf +++| RTF SPACE 4,25 00444 M00S00443.mpf +++|*** RTF (6) - RETURN FST FOR CATALOG OVERFLOW TRACK. 00445 M00S00444.mpf +++|* 00446 M00S00445.mpf +++|* ENTRY (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS. 00447 M00S00446.mpf +++|* 00448 M00S00447.mpf +++|*T ADDR 12/ EQ,12/ FT,12/ CT,12/ CS,12/ ST
Figure ADDR
00449 M00S00448.mpf +++|*T,ADDR+1 48/ ,12/ OT
Figure ADDR+1
00450 M00S00449.mpf +++|*T,ADDR+2 60/
Figure ADDR+2
00451 M00S00450.mpf +++|* 00452 M00S00451.mpf +++|* EQ = EST ORDINAL. 00453 M00S00452.mpf +++|* FT = FIRST TRACK. 00454 M00S00453.mpf +++|* CT = CURRENT TRACK (IGNORED). 00455 M00S00454.mpf +++|* CS = CURRENT SECTOR (IGNORED). 00456 M00S00455.mpf +++|* ST = STATUS (IGNORED). 00457 M00S00456.mpf +++|* OT = OVERFLOW TRACK INDEX. 00458 M00S00457.mpf +++|* 00459 M00S00458.mpf +++|* EXIT (ADDR+2) = FST ENTRY FOR THE *OT*-TH OVERFLOW TRACK. 00460 M00S00459.mpf +++|* 00461 M00S00460.mpf +++|*T ADDR+2 12/ EQ,12/ FT,12/ CT,12/ CS,12/ ST
Figure ADDR+2
00462 M00S00461.mpf +++|* 00463 M00S00462.mpf +++|* EQ = EST ORDINAL. 00464 M00S00463.mpf +++|* FT = FIRST TRACK. 00465 M00S00464.mpf +++|* CT = FIRST TRACK. 00466 M00S00465.mpf +++|* CS = 0. 00467 M00S00466.mpf +++|* ST = 5. 00468 M00S00467.mpf +++| 00469 M00S00468.mpf +++| 00470 M00S00469.mpf +++| RTF6 LDCA IR+3,2 RETURN LOCATION IN PARAMETER BLOCK 00471 M00S00470.mpf +++| CWD FS WRITE REPLY 00472 M00S00471.mpf +++| 00473 M00S00472.mpf +++| RTF SUBR ENTRY/EXIT 00474 M00S00473.mpf +++| LDCA IR+3 READ PARAMETER BLOCK 00475 M00S00474.mpf +++| CRD FS 00476 M00S00475.mpf +++| LDCA IR+3,1 00477 M00S00476.mpf +++| CRD CM 00478 M00S00477.mpf +++| LDD CM+4 00479 M00S00478.mpf +++| ZJN RTF1 IF NO OVERFLOW TRACK INDEX 00480 M00S00479.mpf +++| STD CT 00481 M00S00480.mpf +++| AOD CT INCREMENT FOR ENTRY INTO LOOP 00482 M00S00481.mpf +++| LDD FS EST ORDINAL 00483 M00S00482.mpf +++| LPC 3777 00484 M00S00483.mpf +++| STD T5 00485 M00S00484.mpf +++| LDD FS+1 TRACK 00486 M00S00485.mpf +++| LPC 3777 00487 M00S00486.mpf +++| LMC 4000 00488 M00S00487.mpf +++| STD T6 00489 M00S00488.mpf +++| LDN 0 SET FST FIELDS FOR RETURN 00490 M00S00489.mpf +++| STD FS+3 00491 M00S00490.mpf +++| LDN 5 00492 M00S00491.mpf +++| STD FS+4 00493 M00S00492.mpf +++| RJM CMS CHECK MASS STORAGE 00494 M00S00493.mpf +++| NJN RTF1 IF ERROR 00495 M00S00494.mpf +++| LDD FS+1 STARTING TRACK 00496 M00S00495.mpf +++| LPC 3777 00497 M00S00496.mpf +++| ADC 4000 00498 M00S00497.mpf +++| RJM VTB VALIDATE TRACK BYTE 00499 M00S00498.mpf +++| ZJN RTF2 IF TRACK BYTE VALID 00500 M00S00499.mpf +++| RTF1 ERROR EROF * INCORRECT OVERFLOW FST REQUEST.* 00501 M00S00500.mpf +++| 00502 M00S00501.mpf +++| RTF2 SOD CT DECREMENT COUNTER 00503 M00S00502.mpf +++| ZJP RTF6 IF DONE 00504 M00S00503.mpf +++| LDD FS+1 TRACK 00505 M00S00504.mpf +++| STD T6 00506 M00S00505.mpf +++| SETMS IO 00507 M00S00506.mpf +++| RJM PDS PROCESS DEVICE STATUS 00508 M00S00507.mpf +++| LDM SLM SECTOR LIMIT 00509 M00S00508.mpf +++| SBN 1 LAST SECTOR ON TRACK 00510 M00S00509.mpf +++| STD T7 00511 M00S00510.mpf +++| LDC BFMS 00512 M00S00511.mpf +++| RJM RDS READ SECTOR 00513 M00S00512.mpf +++| PJN RTF3 IF NO ERROR 00514 M00S00513.mpf +++| ERROR ERSR * INCORRECT SECTOR READ IN CATALOG SCAN.* 00515 M00S00514.mpf +++| 00516 M00S00515.mpf +++| RTF3 ENDMS 00517 M00S00516.mpf +++| LDM BFMS GET LINK BYTE 00518 M00S00517.mpf +++| NJN RFT4 IF NOT EOF/EOI 00519 M00S00518.mpf +++| LDM BFMS+1 GET SECOND LINK BYTE 00520 M00S00519.mpf +++| RFT4 SHN 21-13 00521 M00S00520.mpf +++| PJN RTF5 IF NOT LINK BYTE 00522 M00S00521.mpf +++| SHN -6 00523 M00S00522.mpf +++| STD FS+1 00524 M00S00523.mpf +++| STD FS+2 00525 M00S00524.mpf +++| RJM VTB VALIDATE TRACK LINK BYTE 00526 M00S00525.mpf +++| ZJP RTF2 IF NO ERROR 00527 M00S00526.mpf +++| RTF5 ERROR ERLS * INCORRECT LINK BYTE IN CATALOG SCAN.* 00528 M00S00527.mpf +++| RWC SPACE 4,25 00529 M00S00528.mpf +++|*** RWC (7) - REWRITE CATALOG SECTOR. 00530 M00S00529.mpf +++|* 00531 M00S00530.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00532 M00S00531.mpf +++|* RANDOM ADDRESS FOR REWRITE IN FET+6. 00533 M00S00532.mpf +++|* SECTOR DATA IN CM BUFFER. 00534 M00S00533.mpf +++|* 00535 M00S00534.mpf +++|* EXIT SECTOR REWRITTEN, FET UPDATED AND SET COMPLETE. 00536 M00S00535.mpf +++|* CRI NOT UPDATED, RR NOT CLEARED, FST POSITION 00537 M00S00536.mpf +++|* IS THE TRACK AND SECTOR JUST WRITTEN. 00538 M00S00537.mpf +++|* 00539 M00S00538.mpf +++|* TO *ERR* IF ERROR; ERROR IDLE SET ON DEVICE 00540 M00S00539.mpf +++|* IF UNRECOVERABLE MS ERROR RETURNED ON REWRITE 00541 M00S00540.mpf +++|* OF CATALOG SECTOR. 00542 M00S00541.mpf +++| 00543 M00S00542.mpf +++| 00544 M00S00543.mpf +++| RWC SUBR ENTRY/EXIT 00545 M00S00544.mpf +++| LDN 5+2 MINIMUM FET LENGTH REQUIRED 00546 M00S00545.mpf +++| RJM IFQ INITIAL FET QUERY 00547 M00S00546.mpf +++| RJM PIO PRESET I/O 00548 M00S00547.mpf +++| RJM CMS CHECK MASS STORAGE 00549 M00S00548.mpf +++| NJN RWC1 IF ERROR 00550 M00S00549.mpf +++| LDD FS+1 FIRST TRACK 00551 M00S00550.mpf +++| RJM VTB VALIDATE THAT TRACK IS ON LABEL TRT CHAIN 00552 M00S00551.mpf +++| ZJN RWC2 IF NO ERROR 00553 M00S00552.mpf +++| RWC1 ERROR ERCR * INCORRECT CATALOG REWRITE REQUEST.* 00554 M00S00553.mpf +++| 00555 M00S00554.mpf +++| RWC2 NFA FA,R READ FNT 00556 M00S00555.mpf +++| CRD CM 00557 M00S00556.mpf +++| LDD CM+3 00558 M00S00557.mpf +++| LPN 1 00559 M00S00558.mpf +++| ZJN RWC3 IF FILE IN WRITE MODE 00560 M00S00559.mpf +++| ERROR ERWL * WRITE LOCK-OUT ON CATALOG FILE.* 00561 M00S00560.mpf +++| 00562 M00S00561.mpf +++| RWC3 LDD FS+1 FIRST TRACK 00563 M00S00562.mpf +++| STD T6 00564 M00S00563.mpf +++| LDCA IR+3,6 RANDOM ADDRESS FROM FET (RR) 00565 M00S00564.mpf +++| CRD CM 00566 M00S00565.mpf +++| LDD CM+4 00567 M00S00566.mpf +++| STD RI+1 RANDOM INDEX 00568 M00S00567.mpf +++| LDD CM+3 00569 M00S00568.mpf +++| STD RI 00570 M00S00569.mpf +++| LDN 0 ENSURE CURRENT TRT 00571 M00S00570.mpf +++| RJM CRA CONVERT RANDOM ADDRESS 00572 M00S00571.mpf +++| MJP RWC1 IF ADDRESS NOT VALID 00573 M00S00572.mpf +++| LDD T6 00574 M00S00573.mpf +++| LMD FS+1 00575 M00S00574.mpf +++| NJP RWC1 IF TRACK IS NOT THE SAME AS FIRST TRACK 00576 M00S00575.mpf +++| LDD T7 CHECK TRACK AT SECTOR LIMIT 00577 M00S00576.mpf +++| ADN 1 00578 M00S00577.mpf +++| STM BFMS NEXT SECTOR 00579 M00S00578.mpf +++| LMM SLM 00580 M00S00579.mpf +++| ZJN RWC4 IF AT LAST SECTOR IN TRACK 00581 M00S00580.mpf +++| RJM COB CHECK OUTPUT BUFFER (GET WORDS IN BUFFER) 00582 M00S00581.mpf +++| MJP RWC11 IF BUFFER ARGUMENT ERROR 00583 M00S00582.mpf +++| STM BFMS+1 WORDS IN SECTOR 00584 M00S00583.mpf +++| SBD HN 00585 M00S00584.mpf +++| ZJN RWC5 IF FULL SECTOR 00586 M00S00585.mpf +++| MJN RWC6 IF SHORT SECTOR 00587 M00S00586.mpf +++| ERROR ERWR * INCORRECT WORD COUNT IN CAT REWRITE.* 00588 M00S00587.mpf +++| 00589 M00S00588.mpf +++| RWC4 SETMS IO READ TO OBTAIN LINK BYTES 00590 M00S00589.mpf +++| RJM PDS PROCESS DEVICE STATUS 00591 M00S00590.mpf +++| LDC BFMS 00592 M00S00591.mpf +++| RJM RDS 00593 M00S00592.mpf +++| PJN RWC8 IF NO ERROR 00594 M00S00593.mpf +++| ERROR ERRR * INCORRECT SECTOR READ IN CAT REWRITE.* 00595 M00S00594.mpf +++| 00596 M00S00595.mpf +++| RWC5 LDC 214 *REWRITE* CODE 00597 M00S00596.mpf +++| UJN RWC7 SET *CIO* FUNCTION CODE 00598 M00S00597.mpf +++| 00599 M00S00598.mpf +++| RWC6 LDC 224 *REWRITER* CODE 00600 M00S00599.mpf +++| RWC7 STD T3 SET *CIO* FUNCTION CODE 00601 M00S00600.mpf +++| LDCA IR+3 GET *CIO* FUNCTION CODE FROM FET+0 00602 M00S00601.mpf +++| CRD CM 00603 M00S00602.mpf +++| LDD CM+4 00604 M00S00603.mpf +++| LPC 1774 CODE FIELD 00605 M00S00604.mpf +++| LMD T3 00606 M00S00605.mpf +++| ZJN RWC12 IF *CIO* FUNCTION CODE MATCHES 00607 M00S00606.mpf +++| ERROR ERCC * INCORRECT CIO CODE IN CAT REWRITE.* 00608 M00S00607.mpf +++| 00609 M00S00608.mpf +++| RWC8 LDM BFMS CHECK LINKAGE BYTES 00610 M00S00609.mpf +++| ZJN RWC9 IF EOF OR EOI 00611 M00S00610.mpf +++| LMC 3777 00612 M00S00611.mpf +++| ZJN RWC9 IF SYSTEM SECTOR 00613 M00S00612.mpf +++| RJM COB CHECK OUTPUT BUFFER (GET WORDS IN BUFFER) 00614 M00S00613.mpf +++| MJN RWC10 IF BUFFER ARGUMENT ERROR 00615 M00S00614.mpf +++| LMM BFMS+1 00616 M00S00615.mpf +++| ZJN RWC12 IF SECTOR LENGTH DID NOT CHANGE 00617 M00S00616.mpf +++| RWC9 ENDMS 00618 M00S00617.mpf +++| ERROR ERLR * CATALOG REWRITE LINK BYTE ERROR.* 00619 M00S00618.mpf +++| 00620 M00S00619.mpf +++| RWC10 ENDMS 00621 M00S00620.mpf +++| RWC11 ERROR ERBA * BUFFER ARGUMENT ERROR.* 00622 M00S00621.mpf +++| 00623 M00S00622.mpf +++| RWC12 LDM BFMS+1 NUMBER OF WORDS IN SECTOR 00624 M00S00623.mpf +++| STM T3 NUMBER OF WORDS TO READ 00625 M00S00624.mpf +++| LDC BFMS+2 PP BUFFER ADDRESS 00626 M00S00625.mpf +++| RJM RBB READ BINARY BUFFER 00627 M00S00626.mpf +++| SETMS IO,RW,EBMS 00628 M00S00627.mpf +++| RJM PDS PROCESS DEVICE STATUS 00629 M00S00628.mpf +++| LDC BFMS+WLSF 00630 M00S00629.mpf +++| RJM WDS 00631 M00S00630.mpf +++| PJN RWC13 IF NO ERROR 00632 M00S00631.mpf +++| LDC ERWW * MPF - INCORRECT WRITE IN CAT REWRITE.* 00633 M00S00632.mpf +++| RJM DFM 00634 M00S00633.mpf +++| RJM LTD LOG LOCATION TO DAYFILE 00635 M00S00634.mpf +++| RJM FDD LOG FAMILY NAME, DEVICE NUMBER TO DAYFILE 00636 M00S00635.mpf +++| LDN STEI SET ERROR IDLE STATUS 00637 M00S00636.mpf +++| RJM SES 00638 M00S00637.mpf +++| SMSTF GDEI 00639 M00S00638.mpf +++| ERROR EREI * DEVICE ERROR IDLE SET.* 00640 M00S00639.mpf +++| 00641 M00S00640.mpf +++| RWC13 ENDMS 00642 M00S00641.mpf +++| LDN ZERL UPDATE OUT POINTER IN FET 00643 M00S00642.mpf +++| CRD CM 00644 M00S00643.mpf +++| LDD OT+1 00645 M00S00644.mpf +++| STD CM+4 00646 M00S00645.mpf +++| LDD OT 00647 M00S00646.mpf +++| STD CM+3 00648 M00S00647.mpf +++| LDCA IR+3,3 00649 M00S00648.mpf +++| CWD CM 00650 M00S00649.mpf +++| 00651 M00S00650.mpf +++|* T6 AND T7 (CURRENT TRACK AND CURRENT SECTOR) ARE NOT 00652 M00S00651.mpf +++|* UPDATED TO REFLECT THE NEXT SECTOR TO AVOID THE NON- 00653 M00S00652.mpf +++|* STANDARD NEXT TRACK LINKAGE PROBLEM. THUS, THE FST 00654 M00S00653.mpf +++|* CURRENT POSITION WILL POINT AT THE SECTOR WRITTEN. 00655 M00S00654.mpf +++| 00656 M00S00655.mpf +++| RJM CIO COMPLETE I/O 00657 M00S00656.mpf +++| LJM RWCX RETURN 00658 M00S00657.mpf +++| TITLE SUBROUTINES. 00659 M00S00658.mpf +++| CDA SPACE 4,15 00660 M00S00659.mpf +++|** CDA - COMPUTE DISK ADDRESS. 00661 M00S00660.mpf +++|* 00662 M00S00661.mpf +++|* ENTRY (A) = CM ADDRESS OF RANDOM ADDRESS. 00663 M00S00662.mpf +++|* (T5) = EST ORDINAL. 00664 M00S00663.mpf +++|* 00665 M00S00664.mpf +++|* EXIT (T6) = TRACK. 00666 M00S00665.mpf +++|* (T7) = SECTOR. 00667 M00S00666.mpf +++|* (RI - RI+1) = RANDOM ADDRESS. 00668 M00S00667.mpf +++|* 00669 M00S00668.mpf +++|* USES T6, CM - CM+4, RI - RI+1. 00670 M00S00669.mpf +++|* 00671 M00S00670.mpf +++|* CALLS CRA. 00672 M00S00671.mpf +++|* 00673 M00S00672.mpf +++|* MACROS ERROR, SFA. 00674 M00S00673.mpf +++| 00675 M00S00674.mpf +++| 00676 M00S00675.mpf +++| CDA SUBR ENTRY/EXIT 00677 M00S00676.mpf +++| CRD CM 00678 M00S00677.mpf +++| LDD CM+3 00679 M00S00678.mpf +++| STD RI 00680 M00S00679.mpf +++| LDD CM+4 00681 M00S00680.mpf +++| STD RI+1 00682 M00S00681.mpf +++| SFA EST,T5 00683 M00S00682.mpf +++| ADK EQDE 00684 M00S00683.mpf +++| CRD CM READ EST ENTRY 00685 M00S00684.mpf +++| LDD CM+4 00686 M00S00685.mpf +++| SHN 3 MST ADDRESS 00687 M00S00686.mpf +++| ADN ALGL 00688 M00S00687.mpf +++| CRD CM 00689 M00S00688.mpf +++| LDD CM FIRST TRACK OF IAPF CHAIN 00690 M00S00689.mpf +++| STD T6 00691 M00S00690.mpf +++| LDN 0 ENSURE CURRENT TRT 00692 M00S00691.mpf +++| RJM CRA COMPUTE RANDOM ADDRESS 00693 M00S00692.mpf +++| PJN CDAX IF ADDRESS IS IN TRACK CHAIN 00694 M00S00693.mpf +++| ERROR ERRA * RANDOM ADDRESS NOT ON IAPF CHAIN.* 00695 M00S00694.mpf +++| CFS SPACE 4,10 00696 M00S00695.mpf +++|** CFS - COMPLETE FET STATUS. 00697 M00S00696.mpf +++|* 00698 M00S00697.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00699 M00S00698.mpf +++|* 00700 M00S00699.mpf +++|* EXIT FET STATUS SET COMPLETE (IF FET ADDRESS VALID). 00701 M00S00700.mpf +++|* (IR+3 - IR+4) = 0 (IF FET STATUS SET COMPLETE). 00702 M00S00701.mpf +++|* 00703 M00S00702.mpf +++|* USES CM - CM+4, IR+3 - IR+4. 00704 M00S00703.mpf +++|* 00705 M00S00704.mpf +++|* MACROS LDCA. 00706 M00S00705.mpf +++| 00707 M00S00706.mpf +++| 00708 M00S00707.mpf +++| CFS SUBR ENTRY/EXIT 00709 M00S00708.mpf +++| LDCA IR+3 FET ADDRESS 00710 M00S00709.mpf +++| CRD CM 00711 M00S00710.mpf +++| AOD CM+4 00712 M00S00711.mpf +++| LDCA IR+3 00713 M00S00712.mpf +++| CWD CM 00714 M00S00713.mpf +++| LDN 0 CLEAR FET ADDRESS 00715 M00S00714.mpf +++| STD IR+3 00716 M00S00715.mpf +++| STD IR+4 00717 M00S00716.mpf +++| UJN CFSX RETURN 00718 M00S00717.mpf +++| CIO SPACE 4,20 00719 M00S00718.mpf +++|** CIO - COMPLETE I/O. 00720 M00S00719.mpf +++|* 00721 M00S00720.mpf +++|* COMPLETE FST WRITE AND SET FET STATUS COMPLETE. 00722 M00S00721.mpf +++|* 00723 M00S00722.mpf +++|* ENTRY OPERATION COMPLETED ON FILE. 00724 M00S00723.mpf +++|* (T5) = EST ORDINAL. 00725 M00S00724.mpf +++|* (T6) = TRACK. 00726 M00S00725.mpf +++|* (T7) = SECTOR. 00727 M00S00726.mpf +++|* 00728 M00S00727.mpf +++|* EXIT FET STATUS SET COMPLETE. 00729 M00S00728.mpf +++|* FST WRITTEN. 00730 M00S00729.mpf +++|* 00731 M00S00730.mpf +++|* USES FS - FS+4. 00732 M00S00731.mpf +++|* 00733 M00S00732.mpf +++|* CALLS CFS, SFC. 00734 M00S00733.mpf +++| 00735 M00S00734.mpf +++| 00736 M00S00735.mpf +++| CIO SUBR ENTRY/EXIT 00737 M00S00736.mpf +++| 00738 M00S00737.mpf +++|* UPDATE FST ENTRY AND WRITE. 00739 M00S00738.mpf +++| 00740 M00S00739.mpf +++| LDD FS+4 SET FILE STATUS 00741 M00S00740.mpf +++| SCN 16 00742 M00S00741.mpf +++| LMN 4 00743 M00S00742.mpf +++| STD FS+4 00744 M00S00743.mpf +++| LDD T6 SET TRACK 00745 M00S00744.mpf +++| STD FS+2 00746 M00S00745.mpf +++| LDD T7 SET SECTOR 00747 M00S00746.mpf +++| STD FS+3 00748 M00S00747.mpf +++| LDD T5 SET EST ORDINAL 00749 M00S00748.mpf +++| STD FS 00750 M00S00749.mpf +++| RJM SFC SET FST COMPLETE 00751 M00S00750.mpf +++| RJM CFS COMPLETE FET STATUS 00752 M00S00751.mpf +++| UJP CIOX RETURN 00753 M00S00752.mpf +++| CMS SPACE 4,15 00754 M00S00753.mpf +++|** CMS - CHECK MASS STORAGE. 00755 M00S00754.mpf +++|* 00756 M00S00755.mpf +++|* ENTRY (T5) = EST ORDINAL. 00757 M00S00756.mpf +++|* (T6) = TRACK. 00758 M00S00757.mpf +++|* 00759 M00S00758.mpf +++|* EXIT (A) = 0 IF NO ERROR. 00760 M00S00759.mpf +++|* (TK) = LABEL TRACK. 00761 M00S00760.mpf +++|* 00762 M00S00761.mpf +++|* USES T1, CM - CM+4. 00763 M00S00762.mpf +++|* 00764 M00S00763.mpf +++|* MACROS SFA. 00765 M00S00764.mpf +++| 00766 M00S00765.mpf +++| 00767 M00S00766.mpf +++| CMS1 LDN 1 INDICATE ERROR 00768 M00S00767.mpf +++| 00769 M00S00768.mpf +++| CMS SUBR ENTRY/EXIT 00770 M00S00769.mpf +++| SFA EST,T5 READ EST ENTRY 00771 M00S00770.mpf +++| ADK EQDE 00772 M00S00771.mpf +++| CRD CM 00773 M00S00772.mpf +++| LDD CM 00774 M00S00773.mpf +++| SHN 21-13 00775 M00S00774.mpf +++| PJN CMS1 IF NOT MASS STORAGE 00776 M00S00775.mpf +++| LDD CM+4 MST/10 00777 M00S00776.mpf +++| STD T1 00778 M00S00777.mpf +++| SHN 3 00779 M00S00778.mpf +++| ADK TDGL 00780 M00S00779.mpf +++| CRD CM 00781 M00S00780.mpf +++| LDD CM+2 LENGTH OF TRT 00782 M00S00781.mpf +++| ADD TH 4000/4 00783 M00S00782.mpf +++| SHN 2 00784 M00S00783.mpf +++| SBD T6 REQUESTED TRACK 00785 M00S00784.mpf +++| MJN CMS1 IF INCORRECT TRACK 00786 M00S00785.mpf +++| LDD T1 00787 M00S00786.mpf +++| SHN 3 00788 M00S00787.mpf +++| ADN ALGL 00789 M00S00788.mpf +++| CRD CM 00790 M00S00789.mpf +++| LDD CM+1 LABEL TRACK 00791 M00S00790.mpf +++| LPC 3777 00792 M00S00791.mpf +++| ADC 4000 00793 M00S00792.mpf +++| STD TK 00794 M00S00793.mpf +++| LDD CM+3 00795 M00S00794.mpf +++| ZJP CMS1 IF NO CATALOG TRACKS 00796 M00S00795.mpf +++| LDN 0 INDICATE NO ERROR 00797 M00S00796.mpf +++| UJP CMSX RETURN 00798 M00S00797.mpf +++| FDD SPACE 4,15 00799 M00S00798.mpf +++|** FDD - LOG FAMILY NAME AND DEVICE NUMBER TO DAYFILE. 00800 M00S00799.mpf +++|* 00801 M00S00800.mpf +++|* ENTRY (T5) = EST ORDINAL. 00802 M00S00801.mpf +++|* 00803 M00S00802.mpf +++|* EXIT MESSAGE ISSUED. 00804 M00S00803.mpf +++|* 00805 M00S00804.mpf +++|* USES CM - CM+4. 00806 M00S00805.mpf +++|* 00807 M00S00806.mpf +++|* CALLS C2D, DFM. 00808 M00S00807.mpf +++|* 00809 M00S00808.mpf +++|* MACROS SFA. 00810 M00S00809.mpf +++| 00811 M00S00810.mpf +++| 00812 M00S00811.mpf +++| FDD SUBR ENTRY/EXIT 00813 M00S00812.mpf +++| SFA EST,T5 READ EST ENTRY 00814 M00S00813.mpf +++| ADK EQDE 00815 M00S00814.mpf +++| CRD CM 00816 M00S00815.mpf +++| LDD CM+4 GET MST ADDRESS 00817 M00S00816.mpf +++| SHN 3 00818 M00S00817.mpf +++| ADK PFGL READ FAMILY NAME / DEVICE NUMBER 00819 M00S00818.mpf +++| CRM FDDA+6,ON MERGE INTO MESSAGE 00820 M00S00819.mpf +++| LDM FDDA+11 CONVERT DEVICE NUMBER 00821 M00S00820.mpf +++| RJM C2D 00822 M00S00821.mpf +++| STM FDDA+12 SET DEVICE NUMBER INTO MESSAGE 00823 M00S00822.mpf +++| LDM FDDA+11 BLANK FILL FAMILY NAME 00824 M00S00823.mpf +++| SCN 77 CLEAR BINARY DEVICE NUMBER 00825 M00S00824.mpf +++| ZJN FDD1 IF TWO OR MORE BLANKS NEEDED 00826 M00S00825.mpf +++| LMN 1R MERGE SINGLE BLANK INTO MESSAGE 00827 M00S00826.mpf +++| STM FDDA+11 00828 M00S00827.mpf +++| UJN FDD4 ISSUE MESSAGE 00829 M00S00828.mpf +++| 00830 M00S00829.mpf +++| FDD1 LDC 2R SET TWO BLANKS INTO MESSAGE 00831 M00S00830.mpf +++| STM FDDA+11 00832 M00S00831.mpf +++| LDN 3 NUMBER OF BYTES MAY NEED TO BLANK FILL 00833 M00S00832.mpf +++| STD CM 00834 M00S00833.mpf +++| FDD2 LDM FDDA+5,CM 00835 M00S00834.mpf +++| NJN FDD3 IF END OF FAMILY NAME FOUND 00836 M00S00835.mpf +++| LDC 2R SET TWO MORE BLANKS INTO MESSAGE 00837 M00S00836.mpf +++| STM FDDA+5,CM 00838 M00S00837.mpf +++| SOD CM DECREMENT COUNTER 00839 M00S00838.mpf +++| NJN FDD2 IF NOT DONE 00840 M00S00839.mpf +++| UJN FDD4 ISSUE MESSAGE 00841 M00S00840.mpf +++| 00842 M00S00841.mpf +++| FDD3 LPN 77 CHECK IF SINGLE BLANK NEEDED 00843 M00S00842.mpf +++| NJN FDD4 IF NO BLANK NEEDED 00844 M00S00843.mpf +++| LDM FDDA+5,CM 00845 M00S00844.mpf +++| LMN 1R SINGLE BLANK 00846 M00S00845.mpf +++| STM FDDA+5,CM 00847 M00S00846.mpf +++| FDD4 LDC FDDA 00848 M00S00847.mpf +++| RJM DFM ISSUE DAYFILE MESSAGE 00849 M00S00848.mpf +++| LJM FDDX RETURN 00850 M00S00849.mpf +++| 00851 M00S00850.mpf +++| 00852 M00S00851.mpf +++| FDDA DATA C*MPF - FM DN FFFFFFF NN.* 00853 M00S00852.mpf +++| IFQ SPACE 4,15 00854 M00S00853.mpf +++|** IFQ - INITIAL FET QUERY. 00855 M00S00854.mpf +++|* 00856 M00S00855.mpf +++|* VALIDATE THAT THE FET IS LONG ENOUGH, IS WITHIN FL, 00857 M00S00856.mpf +++|* AND DOES NOT HAVE COMPLETE BIT SET. 00858 M00S00857.mpf +++|* 00859 M00S00858.mpf +++|* ENTRY (A) = MINIMUM FET LENGTH REQUIRED. 00860 M00S00859.mpf +++|* (IR+3 - IR+4) = FET ADDRESS. 00861 M00S00860.mpf +++|* 00862 M00S00861.mpf +++|* EXIT TO *ERR* IF FET IS NOT VALID. 00863 M00S00862.mpf +++|* 00864 M00S00863.mpf +++|* USES T2, T3, CM - CM+4. 00865 M00S00864.mpf +++|* 00866 M00S00865.mpf +++|* CALLS VCA. 00867 M00S00866.mpf +++|* 00868 M00S00867.mpf +++|* MACROS LDCA. 00869 M00S00868.mpf +++| 00870 M00S00869.mpf +++| 00871 M00S00870.mpf +++| IFQ SUBR ENTRY/EXIT 00872 M00S00871.mpf +++| STD T3 REQUIRED FET LENGTH 00873 M00S00872.mpf +++| LDCA IR+3 VALIDATE FET+0 ADDRESS 00874 M00S00873.mpf +++| CRD CM CHECK COMPLETE BIT CLEAR 00875 M00S00874.mpf +++| LDD CM+4 00876 M00S00875.mpf +++| LPN 1 00877 M00S00876.mpf +++| ZJN IFQ1 IF COMPLETE BIT IS CLEAR 00878 M00S00877.mpf +++| ERROR ERFC * FET COMPLETE BIT SET.* 00879 M00S00878.mpf +++| 00880 M00S00879.mpf +++| IFQ1 LDCA IR+3,1 GET FET LENGTH 00881 M00S00880.mpf +++| CRD CM 00882 M00S00881.mpf +++| LDD CM+3 00883 M00S00882.mpf +++| SHN -6 00884 M00S00883.mpf +++| ADN 5 00885 M00S00884.mpf +++| STD T2 CHECK FET LENGTH 00886 M00S00885.mpf +++| SBD T3 00887 M00S00886.mpf +++| PJN IFQ2 IF FET IS LONG ENOUGH 00888 M00S00887.mpf +++| ERROR ERFS * FET TOO SHORT.* 00889 M00S00888.mpf +++| 00890 M00S00889.mpf +++| IFQ2 LDD IR+3 CHECK IF LAST WORD OF FET IS WITHIN FL 00891 M00S00890.mpf +++| SHN 14 00892 M00S00891.mpf +++| LMD IR+4 00893 M00S00892.mpf +++| ADD T2 00894 M00S00893.mpf +++| SBN 1 00895 M00S00894.mpf +++| RJM VCA VALIDATE CENTRAL ADDRESS 00896 M00S00895.mpf +++| UJP IFQX RETURN 00897 M00S00896.mpf +++| LTD SPACE 4,10 00898 M00S00897.mpf +++|** LTD - LOG LOCATION TO DAYFILE. 00899 M00S00898.mpf +++|* 00900 M00S00899.mpf +++|* ENTRY (T5) = EST ORDINAL. 00901 M00S00900.mpf +++|* (T6) = TRACK. 00902 M00S00901.mpf +++|* (T7) = SECTOR. 00903 M00S00902.mpf +++|* 00904 M00S00903.mpf +++|* EXIT MESSAGE ISSUED TO DAYFILE. 00905 M00S00904.mpf +++|* 00906 M00S00905.mpf +++|* CALLS C2D, DFM. 00907 M00S00906.mpf +++| 00908 M00S00907.mpf +++| 00909 M00S00908.mpf +++| LTD SUBR ENTRY/EXIT 00910 M00S00909.mpf +++| LDD T5 CONVERT EST ORDINAL 00911 M00S00910.mpf +++| RJM C2D 00912 M00S00911.mpf +++| STM LTDA+5 00913 M00S00912.mpf +++| LDD T5 00914 M00S00913.mpf +++| SHN -6 00915 M00S00914.mpf +++| RJM C2D 00916 M00S00915.mpf +++| STM LTDA+4 00917 M00S00916.mpf +++| LDD T6 CONVERT TRACK 00918 M00S00917.mpf +++| RJM C2D 00919 M00S00918.mpf +++| STM LTDA+11 00920 M00S00919.mpf +++| LDD T6 00921 M00S00920.mpf +++| SHN -6 00922 M00S00921.mpf +++| RJM C2D 00923 M00S00922.mpf +++| STM LTDA+10 00924 M00S00923.mpf +++| LDD T7 CONVERT SECTOR 00925 M00S00924.mpf +++| RJM C2D 00926 M00S00925.mpf +++| STM LTDA+15 00927 M00S00926.mpf +++| LDD T7 00928 M00S00927.mpf +++| SHN -6 00929 M00S00928.mpf +++| RJM C2D 00930 M00S00929.mpf +++| STM LTDA+14 00931 M00S00930.mpf +++| LDC LTDA ISSUE MESSAGE 00932 M00S00931.mpf +++| RJM DFM 00933 M00S00932.mpf +++| UJP LTDX RETURN 00934 M00S00933.mpf +++| 00935 M00S00934.mpf +++| 00936 M00S00935.mpf +++| LTDA DATA C*MPF - EQXXXX TKYYYY SCZZZZ.* 00937 M00S00936.mpf +++| PDS SPACE 4,10 00938 M00S00937.mpf +++|** PDS - PROCESS DEVICE STATUS. 00939 M00S00938.mpf +++|*
Line S00939 Modification History | |
---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00940 M01S00939.ns2776 ---|* ENTRY (A) .NE. 0 IF DEVICE INACCESSIBLE.
Line S00001 Modification History | |
---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00941 M01S00001.ns2776 +++|* ENTRY (MSD) = DEVICE STATUS UPON EXIT FROM *SETMS*. 00942 M00S00940.mpf +++|* (T5) = EST ORDINAL OF THE DEVICE. 00943 M00S00941.mpf +++|* DRIVER SOFTWARE IS LOADED. 00944 M00S00942.mpf +++|* 00945 M00S00943.mpf +++|* EXIT TO *ERR* IF DEVICE IS INACCESSIBLE. 00946 M00S00944.mpf +++|* 00947 M00S00945.mpf +++|* MACROS ENDMS, ERROR. 00948 M00S00946.mpf +++| 00949 M00S00947.mpf +++| 00950 M00S00948.mpf +++| PDS SUBR ENTRY/EXIT
Line S00949 Modification History | |
---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00951 M01S00949.ns2776 ---| ZJN PDSX IF DEVICE IS AVAILABLE, RETURN
Line S00002 Modification History | |
---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00952 M01S00002.ns2776 +++| LDM MSD 00953 M01S00003.ns2776 +++| SHN 21-6 00954 M01S00004.ns2776 +++| PJN PDSX IF DEVICE IS AVAILABLE, RETURN 00955 M00S00950.mpf +++| ENDMS 00956 M00S00951.mpf +++| ERROR ERID * INACCESSIBLE DEVICE.* 00957 M00S00952.mpf +++| PIO SPACE 4,20 00958 M00S00953.mpf +++|** PIO - PRESET I/O. 00959 M00S00954.mpf +++|* 00960 M00S00955.mpf +++|* SET DIRECT CELLS FOR I/O OPERATION. 00961 M00S00956.mpf +++|* 00962 M00S00957.mpf +++|* ENTRY (IR+3 - IR+4) = VALIDATED FET ADDRESS. 00963 M00S00958.mpf +++|* 00964 M00S00959.mpf +++|* EXIT (FA) = FST ADDRESS OF FILE. 00965 M00S00960.mpf +++|* (FS - FS+4) = FST ENTRY FOR FILE. 00966 M00S00961.mpf +++|* (T5) = EST ORDINAL. 00967 M00S00962.mpf +++|* (T6) = TRACK. 00968 M00S00963.mpf +++|* (T7) = SECTOR. 00969 M00S00964.mpf +++|* (FT - FT+1) = FIRST. 00970 M00S00965.mpf +++|* (IN - IN+1) = IN. 00971 M00S00966.mpf +++|* (OT - OT+1) = OUT. 00972 M00S00967.mpf +++|* (LM - LM+1) = LIMIT. 00973 M00S00968.mpf +++|* 00974 M00S00969.mpf +++|* CALLS SBA, SFP, VBA. 00975 M00S00970.mpf +++| 00976 M00S00971.mpf +++| 00977 M00S00972.mpf +++| PIO SUBR ENTRY/EXIT 00978 M00S00973.mpf +++| RJM SFP SET FILE PARAMETERS 00979 M00S00974.mpf +++| RJM SBA SET BUFFER ADDRESSES 00980 M00S00975.mpf +++| RJM VBA VALIDATE BUFFER ADDRESSES 00981 M00S00976.mpf +++| UJN PIOX RETURN 00982 M00S00977.mpf +++| SBA SPACE 4,15 00983 M00S00978.mpf +++|** SBA - SET BUFFER ARGUMENTS. 00984 M00S00979.mpf +++|* 00985 M00S00980.mpf +++|* READ BUFFER POINTERS INTO DIRECT CELLS. 00986 M00S00981.mpf +++|* 00987 M00S00982.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00988 M00S00983.mpf +++|* 00989 M00S00984.mpf +++|* EXIT (FT - FT+1) = FIRST. 00990 M00S00985.mpf +++|* (IN - IN+1) = IN. 00991 M00S00986.mpf +++|* (OT - OT+1) = OUT. 00992 M00S00987.mpf +++|* (LM - LM+1) = LIMIT. 00993 M00S00988.mpf +++|* 00994 M00S00989.mpf +++|* USES CM - CM+4, FT - FT+1, IN - IN+1, LM - LM+1, OT - OT+1. 00995 M00S00990.mpf +++| 00996 M00S00991.mpf +++| 00997 M00S00992.mpf +++| SBA SUBR ENTRY/EXIT 00998 M00S00993.mpf +++| LDCA IR+3,4 READ LIMIT 00999 M00S00994.mpf +++| CRD LM-3 01000 M00S00995.mpf +++| SBN 1 READ OUT 01001 M00S00996.mpf +++| CRD OT-3 01002 M00S00997.mpf +++| SBN 1 READ IN 01003 M00S00998.mpf +++| CRD CM 01004 M00S00999.mpf +++| LDD CM+3 01005 M00S01000.mpf +++| STD IN 01006 M00S01001.mpf +++| LDD CM+4 01007 M00S01002.mpf +++| STD IN+1 01008 M00S01003.mpf +++| LDCA IR+3,1 READ FIRST 01009 M00S01004.mpf +++| CRD CM 01010 M00S01005.mpf +++| LDD CM+3 01011 M00S01006.mpf +++| LPN 77 01012 M00S01007.mpf +++| STD FT 01013 M00S01008.mpf +++| LDD CM+4 01014 M00S01009.mpf +++| STD FT+1 01015 M00S01010.mpf +++| UJP SBAX RETURN 01016 M00S01011.mpf +++| SFC SPACE 4,15 01017 M00S01012.mpf +++|** SFC - SET FST COMPLETE. 01018 M00S01013.mpf +++|* 01019 M00S01014.mpf +++|* ENTRY (FS - FS+4) = FST. 01020 M00S01015.mpf +++|* (FA) = FNT ADDRESS. 01021 M00S01016.mpf +++|* (FA) = 0, IF NO FILE CURRENTLY SET BUSY. 01022 M00S01017.mpf +++|* 01023 M00S01018.mpf +++|* EXIT FST SET COMPLETE AND WRITTEN TO CENTRAL. 01024 M00S01019.mpf +++|* (FA) = 0. 01025 M00S01020.mpf +++|* 01026 M00S01021.mpf +++|* USES FA, FS+4. 01027 M00S01022.mpf +++|* 01028 M00S01023.mpf +++|* MACROS NFA. 01029 M00S01024.mpf +++| 01030 M00S01025.mpf +++| 01031 M00S01026.mpf +++| SFC SUBR ENTRY/EXIT 01032 M00S01027.mpf +++| AOD FS+4 SET STATUS COMPLETE 01033 M00S01028.mpf +++| LDD FA 01034 M00S01029.mpf +++| ZJN SFCX IF NO FST ADDRESS 01035 M00S01030.mpf +++| NFA FA,R WRITE FST 01036 M00S01031.mpf +++| ADK FSTL 01037 M00S01032.mpf +++| CWD FS 01038 M00S01033.mpf +++| LDN 0 CLEAR FNT ADDRESS 01039 M00S01034.mpf +++| STD FA 01040 M00S01035.mpf +++| UJN SFCX RETURN 01041 M00S01036.mpf +++| SFP SPACE 4,10 01042 M00S01037.mpf +++|** SFP - SET FILE PARAMETERS. 01043 M00S01038.mpf +++|* 01044 M00S01039.mpf +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 01045 M00S01040.mpf +++|* 01046 M00S01041.mpf +++|* EXIT (FA) = FNT ADDRESS. 01047 M00S01042.mpf +++|* (FS - FS+4) = FST ENTRY. 01048 M00S01043.mpf +++|* (T5) = EST ORDINAL. 01049 M00S01044.mpf +++|* (T6) = TRACK. 01050 M00S01045.mpf +++|* (T7) = SECTOR. 01051 M00S01046.mpf +++|* FST SET BUSY. 01052 M00S01047.mpf +++|* 01053 M00S01048.mpf +++|* USES FA, T5, T6, T7, FN - FN+4, FS - FS+4. 01054 M00S01049.mpf +++|* 01055 M00S01050.mpf +++|* CALLS SAF, SFB. 01056 M00S01051.mpf +++|* 01057 M00S01052.mpf +++|* MACROS ERROR, LDCA. 01058 M00S01053.mpf +++| 01059 M00S01054.mpf +++| 01060 M00S01055.mpf +++| SFP SUBR ENTRY/EXIT 01061 M00S01056.mpf +++| LDCA IR+3 READ FILE NAME 01062 M00S01057.mpf +++| CRD FN 01063 M00S01058.mpf +++| LDCA IR+3,4 READ FNT ADDRESS 01064 M00S01059.mpf +++| CRD FS 01065 M00S01060.mpf +++| LDD FS 01066 M00S01061.mpf +++| RJM SAF SEARCH FOR ASSIGNED FILE 01067 M00S01062.mpf +++| NJN SFP1 IF FILE FOUND 01068 M00S01063.mpf +++| ERROR ERNF * FILE NOT FOUND.* 01069 M00S01064.mpf +++| 01070 M00S01065.mpf +++| SFP1 RJM SFB SET FILE BUSY 01071 M00S01066.mpf +++| ZJN SFP2 IF FILE SET BUSY 01072 M00S01067.mpf +++| LDN 0 CLEAR FNT ADDRESS 01073 M00S01068.mpf +++| STD FA 01074 M00S01069.mpf +++| ERROR ERIO * I/O SEQUENCE ERROR.* 01075 M00S01070.mpf +++| 01076 M00S01071.mpf +++| SFP2 LDD FS 01077 M00S01072.mpf +++| LPC 3777 01078 M00S01073.mpf +++| STD T5 EST ORDINAL 01079 M00S01074.mpf +++| LDD FS+2 01080 M00S01075.mpf +++| STD T6 TRACK 01081 M00S01076.mpf +++| LDD FS+3 01082 M00S01077.mpf +++| STD T7 SECTOR 01083 M00S01078.mpf +++| UJP SFPX RETURN 01084 M00S01079.mpf +++| VBA SPACE 4,10 01085 M00S01080.mpf +++|** VBA - VALIDATE BUFFER ADDRESSES. 01086 M00S01081.mpf +++|* 01087 M00S01082.mpf +++|* ENTRY (FT - FT+1) = FIRST. 01088 M00S01083.mpf +++|* (IN - IN+1) = IN. 01089 M00S01084.mpf +++|* (OT - OT+1) = OUT. 01090 M00S01085.mpf +++|* (LM - LM+1) = LIMIT. 01091 M00S01086.mpf +++|* 01092 M00S01087.mpf +++|* EXIT TO *ERR* IF BUFFER ARGUMENT ERROR. 01093 M00S01088.mpf +++|* 01094 M00S01089.mpf +++|* MACROS ERROR. 01095 M00S01090.mpf +++| 01096 M00S01091.mpf +++| 01097 M00S01092.mpf +++| VBA SUBR ENTRY/EXIT 01098 M00S01093.mpf +++| LDD LM CHECK LIMIT 01099 M00S01094.mpf +++| SHN 14 01100 M00S01095.mpf +++| LMD LM+1 01101 M00S01096.mpf +++| SBN 1 01102 M00S01097.mpf +++| SHN -6 01103 M00S01098.mpf +++| SBD FL 01104 M00S01099.mpf +++| PJN VBA1 IF LIMIT .GT. FL 01105 M00S01100.mpf +++| LDD OT CHECK OUT 01106 M00S01101.mpf +++| SBD LM 01107 M00S01102.mpf +++| SHN 14 01108 M00S01103.mpf +++| ADD OT+1 01109 M00S01104.mpf +++| SBD LM+1 01110 M00S01105.mpf +++| PJN VBA1 IF OUT .GE. LIMIT 01111 M00S01106.mpf +++| LDD OT 01112 M00S01107.mpf +++| SBD FT 01113 M00S01108.mpf +++| SHN 14 01114 M00S01109.mpf +++| ADD OT+1 01115 M00S01110.mpf +++| SBD FT+1 01116 M00S01111.mpf +++| MJN VBA1 IF OUT .LT. FIRST 01117 M00S01112.mpf +++| LDD IN CHECK IN 01118 M00S01113.mpf +++| SBD LM 01119 M00S01114.mpf +++| SHN 14 01120 M00S01115.mpf +++| ADD IN+1 01121 M00S01116.mpf +++| SBD LM+1 01122 M00S01117.mpf +++| PJN VBA1 IF IN .GE. LIMIT 01123 M00S01118.mpf +++| LDD IN 01124 M00S01119.mpf +++| SBD FT 01125 M00S01120.mpf +++| SHN 14 01126 M00S01121.mpf +++| ADD IN+1 01127 M00S01122.mpf +++| SBD FT+1 01128 M00S01123.mpf +++| MJN VBA1 IF IN .LT. FIRST 01129 M00S01124.mpf +++| UJP VBAX RETURN 01130 M00S01125.mpf +++| 01131 M00S01126.mpf +++| VBA1 ERROR ERBA * BUFFER ARGUMENT ERROR.* 01132 M00S01127.mpf +++| VCA SPACE 4,10 01133 M00S01128.mpf +++|** VCA - VALIDATE CENTRAL ADDRESS. 01134 M00S01129.mpf +++|* 01135 M00S01130.mpf +++|* ENTRY (A) = RELATIVE ADDRESS. 01136 M00S01131.mpf +++|* 01137 M00S01132.mpf +++|* EXIT (A) = ABSOLUTE ADDRESS IF ADDRESS VALID. 01138 M00S01133.mpf +++|* 01139 M00S01134.mpf +++|* USES T1, T2. 01140 M00S01135.mpf +++|* 01141 M00S01136.mpf +++|* MACROS ERROR. 01142 M00S01137.mpf +++| 01143 M00S01138.mpf +++| 01144 M00S01139.mpf +++| VCA SUBR 01145 M00S01140.mpf +++| STD T2 01146 M00S01141.mpf +++| SCN 1 01147 M00S01142.mpf +++| ZJN VCA1 IF ADDRESS .LE. 1 01148 M00S01143.mpf +++| SCN 77 01149 M00S01144.mpf +++| SHN 6 01150 M00S01145.mpf +++| STD T1 01151 M00S01146.mpf +++| SHN 6 01152 M00S01147.mpf +++| SBD FL 01153 M00S01148.mpf +++| PJN VCA1 IF ADDRESS .GE. FL 01154 M00S01149.mpf +++| LDD T1 FORM ABSOLUTE ADDRESS 01155 M00S01150.mpf +++| SHN 6 01156 M00S01151.mpf +++| ADD RA 01157 M00S01152.mpf +++| SHN 6 01158 M00S01153.mpf +++| ADD T2 01159 M00S01154.mpf +++| UJP VCAX RETURN 01160 M00S01155.mpf +++| 01161 M00S01156.mpf +++| VCA1 ERROR ERAR * ADDRESS OUT OF RANGE.* 01162 M00S01157.mpf +++| VTB SPACE 4,10 01163 M00S01158.mpf +++|** VTB - VALIDATE TRACK LINK BYTE. 01164 M00S01159.mpf +++|* 01165 M00S01160.mpf +++|* ENTRY (A) = TRACK LINK BYTE TO VALIDATE. 01166 M00S01161.mpf +++|* (TK) = LABEL TRACK. 01167 M00S01162.mpf +++|* (T5) = EST ORDINAL. 01168 M00S01163.mpf +++|* 01169 M00S01164.mpf +++|* EXIT (A) = 0 IF NO ERROR. 01170 M00S01165.mpf +++|* 01171 M00S01166.mpf +++|* USES T1, T2, T6, CM - CM+4. 01172 M00S01167.mpf +++|* 01173 M00S01168.mpf +++|* CALLS SNT. 01174 M00S01169.mpf +++|* 01175 M00S01170.mpf +++|* MACROS MONITOR. 01176 M00S01171.mpf +++| 01177 M00S01172.mpf +++| 01178 M00S01173.mpf +++| VTB SUBR ENTRY/EXIT 01179 M00S01174.mpf +++| STD T2 SAVE BYTE 01180 M00S01175.mpf +++| LDD TK LABEL TRACK 01181 M00S01176.mpf +++| STD T6 01182 M00S01177.mpf +++| LDN UTRS SET SUBFUNCTION CODE 01183 M00S01178.mpf +++| STD CM+3 01184 M00S01179.mpf +++| LDD T5 SET EST ORDINAL 01185 M00S01180.mpf +++| STD CM+1 01186 M00S01181.mpf +++| MONITOR STBM GET CURRENT TRT 01187 M00S01182.mpf +++| VTB1 RJM SNT GET LINK 01188 M00S01183.mpf +++| STD T6 01189 M00S01184.mpf +++| LMD T2 01190 M00S01185.mpf +++| ZJN VTB3 IF LINKED TO REQUESTED TRACK BYTE 01191 M00S01186.mpf +++| LDD T6 01192 M00S01187.mpf +++| SHN 21-13 01193 M00S01188.mpf +++| MJN VTB1 IF LINK BYTE 01194 M00S01189.mpf +++| VTB2 LDN 1 INDICATE ERROR 01195 M00S01190.mpf +++| UJN VTBX RETURN 01196 M00S01191.mpf +++| 01197 M00S01192.mpf +++| VTB3 LDD T6 01198 M00S01193.mpf +++| SHN 21-13 01199 M00S01194.mpf +++| PJN VTB2 IF NOT A LINK BYTE 01200 M00S01195.mpf +++| RJM SNT 01201 M00S01196.mpf +++| LDD T1 01202 M00S01197.mpf +++| ADC SHNI+6+14-4 01203 M00S01198.mpf +++| STM VTBA 01204 M00S01199.mpf +++| LDD CM+4 01205 M00S01200.mpf +++| VTBA SHN ** 01206 M00S01201.mpf +++| PJN VTB2 IF NOT RESERVED 01207 M00S01202.mpf +++| LDN 0 INDICATE NO ERROR 01208 M00S01203.mpf +++| UJP VTBX RETURN 01209 M00S01204.mpf +++| TITLE BUFFER ALLOCATION. 01210 M00S01205.mpf +++| SPACE 4,10 01211 M00S01206.mpf +++|* BUFFER ALLOCATION. 01212 M00S01207.mpf +++| 01213 M00S01208.mpf +++| 01214 M00S01209.mpf +++| WEIA BSSZ WCEI*5+2 EOI SECTOR BUFFER (FOR *COMPWEI*) 01215 M00S01210.mpf +++| 01216 M00S01211.mpf +++| EBMS EQU BFMS-502 MASS STORAGE ERROR BUFFER 01217 M00S01212.mpf +++| TITLE COMMON DECKS. 01218 M00S01213.mpf +++| SPACE 4,10 01219 M00S01214.mpf +++|* COMMON DECKS. 01220 M00S01215.mpf +++| 01221 M00S01216.mpf +++| 01222 M00S01217.mpf +++|*CALL COMPCOB 01223 M00S01218.mpf +++| CRA$ EQU 0 ENSURE CURRENT TRT 01224 M00S01219.mpf +++|*CALL COMPCRA 01225 M00S01220.mpf +++|*CALL COMPCRS 01226 M00S01221.mpf +++|*CALL COMPC2D 01227 M00S01222.mpf +++|*CALL COMPRBB 01228 M00S01223.mpf +++| RIS$ EQU 1 READ IAPF SYSTEM SECTOR 01229 M00S01224.mpf +++|*CALL COMPRSS 01230 M00S01225.mpf +++| SAF$ EQU 0 SEARCH SPECIFIC ENTRY FIRST 01231 M00S01226.mpf +++|*CALL COMPSAF 01232 M00S01227.mpf +++|*CALL COMPSES 01233 M00S01228.mpf +++|*CALL COMPSFB 01234 M00S01229.mpf +++|*CALL COMPSNT 01235 M00S01230.mpf +++|*CALL COMPTGB 01236 M00S01231.mpf +++|*CALL COMPWEI 01237 M00S01232.mpf +++| SPACE 4,10 01238 M00S01233.mpf +++| ERRPL *-EBMS OVERFLOW INTO MS ERROR BUFFER 01239 M00S01234.mpf +++| ERRPL *-BFMS OVERFLOW INTO MS BUFFER 01240 M00S01235.mpf +++| TITLE PRESET. 01241 M00S01236.mpf +++| PRS SPACE 4,15 01242 M00S01237.mpf +++|** PRS - PRESET. 01243 M00S01238.mpf +++|* 01244 M00S01239.mpf +++|* ENTRY (IR+2) = FUNCTION CODE. 01245 M00S01240.mpf +++|* 01246 M00S01241.mpf +++|* EXIT (T1) = FUNCTION PROCESSOR ADDRESS. 01247 M00S01242.mpf +++|* 01248 M00S01243.mpf +++|* USES FA, T1, CM - CM+4. 01249 M00S01244.mpf +++|* 01250 M00S01245.mpf +++|* CALLS CRS. 01251 M00S01246.mpf +++|* 01252 M00S01247.mpf +++|* MACROS ERROR. 01253 M00S01248.mpf +++| 01254 M00S01249.mpf +++| 01255 M00S01250.mpf +++| PRS SUBR 01256 M00S01251.mpf +++| LDN 0 CLEAR FST ADDRESS 01257 M00S01252.mpf +++| STD FA 01258 M00S01253.mpf +++| LDD CP CHECK IF CALLER IS *SSJ=* 01259 M00S01254.mpf +++| ADK SEPW 01260 M00S01255.mpf +++| CRD CM 01261 M00S01256.mpf +++| LDD CM 01262 M00S01257.mpf +++| SHN 21-2 01263 M00S01258.mpf +++| MJN PRS2 IF CALLER IS *SSJ=* 01264 M00S01259.mpf +++| PRS1 ERROR ERIC * INCORRECT CALL.* 01265 M00S01260.mpf +++| 01266 M00S01261.mpf +++| PRS2 RJM CRS 01267 M00S01262.mpf +++| ZJN PRS1 IF NOT CALLED WITH AUTO RECALL 01268 M00S01263.mpf +++| LDD IR+2 01269 M00S01264.mpf +++| STD T1 FUNCTION CODE 01270 M00S01265.mpf +++| SBN TFCNL 01271 M00S01266.mpf +++| MJN PRS4 IF LEGAL FUNCTION 01272 M00S01267.mpf +++| PRS3 ERROR ERIF * INCORRECT FUNCTION.* 01273 M00S01268.mpf +++| 01274 M00S01269.mpf +++| PRS4 LDM TFCN,T1 FUNCION PROCESSOR ADDRESS 01275 M00S01270.mpf +++| STD T1 01276 M00S01271.mpf +++| ZJN PRS3 IF INCORRECT FUNCTION 01277 M00S01272.mpf +++| UJP PRSX RETURN 01278 M00S01273.mpf +++| SPACE 4,10 01279 M00S01274.mpf +++|* TFCN - TABLE OF FUNCTION PROCESSORS. 01280 M00S01275.mpf +++| 01281 M00S01276.mpf +++| 01282 M00S01277.mpf +++| TFCN BSS 0 01283 M00S01278.mpf +++| CON DTK DROP TRACKS 01284 M00S01279.mpf +++| CON RWE REWRITE END OF INFORMATION 01285 M00S01280.mpf +++| CON DLK DELINK TRACKS 01286 M00S01281.mpf +++| CON 0 (RESERVED) 01287 M00S01282.mpf +++| CON RSC READ SYSTEM SECTOR 01288 M00S01283.mpf +++| CON WSC WRITE SYSTEM SECTOR 01289 M00S01284.mpf +++| CON RTF RETURN FST FOR CATALOG OVERFLOW TRACK 01290 M00S01285.mpf +++| CON RWC REWRITE CATALOG SECTOR 01291 M00S01286.mpf +++| TFCNL EQU *-TFCN 01292 M00S01287.mpf +++| SPACE 4,10 01293 M00S01288.mpf +++| OVERFLOW PPFW,EPFW 01294 M00S01289.mpf +++| SPACE 4 01295 M00S01290.mpf +++| END
cdc/nos2.source/opl.opl871/deck/mpf.txt ยท Last modified: (external edit)