cdc:nos2.source:opl.opl871:deck:1mr
Deck 1MR
Library Member Format: MODIFY
Listing Sections
- Deck 1MR Start
- Deck 1MR Part 1 (Line 2038)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.1mr +++| IDENT 1MR,/MRP/MRP 00002 M00S00002.1mr +++| PERIPH 00003 M00S00003.1mr +++| BASE MIXED 00004 M00S00004.1mr +++| SST 00005 M00S00005.1mr +++|*COMMENT 1MR - MACHINE RECOVERY PROCESSOR.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.1mr +++| TITLE 1MR - MACHINE RECOVERY PROCESSOR. 00009 M00S00008.1mr +++| SPACE 4 00010 M00S00009.1mr +++|*** 1MR - MACHINE RECOVERY PROCESSOR. 00011 M00S00010.1mr +++|* R. J. PRIEVE 75/02/14. 00012 M00S00011.1mr +++|* P. D. HAAS. 87/04/10. 00013 M00S00012.1mr +++| SPACE 4 00014 M00S00013.1mr +++|*** 1MR PROCESSES FUNCTION REQUESTS FROM *MREC*, THE 00015 M00S00014.1mr +++|* MACHINE RECOVERY UTILITY. 00016 M00S00015.1mr +++|* 00017 M00S00016.1mr +++|* FUNCTIONS PROCESSED ARE THE FOLLOWING. 00018 M00S00017.1mr +++|* 00019 M00S00018.1mr +++|* FUNCTION 0 - RETRIEVE DISPLAY INFORMATION. 00020 M00S00019.1mr +++|* FUNCTION 1 - PROCESS DAT, FAT, MRT,S, SYSTEM SECTORS, 00021 M00S00020.1mr +++|* AND UNIT AND/OR CONTROLLER RESERVE SITUATIONS. 00022 M00S00021.1mr +++|* FUNCTION 2 - UPDATE MST ENTRIES IN CM FOR INDEPENDENT 00023 M00S00022.1mr +++|* SHARED DEVICES.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00024 M01S00001.283l840 +++|* FUNCTION 3 - CLEAR DEVICE INTERLOCKS. 00025 M00S00023.1mr +++| SPACE 4 00026 M00S00024.1mr +++|*** ENTRY CONDITIONS. 00027 M00S00025.1mr +++|* 00028 M00S00026.1mr +++|*T, IR 18/1MR,18/0,6/FN,18/PARM
Figure IR
00029 M00S00027.1mr +++|* 00030 M00S00028.1mr +++|* FN FUNCTION NUMBER. 00031 M00S00029.1mr +++|* PARM PARAMETER. 00032 M00S00030.1mr +++|* 00033 M00S00031.1mr +++|* PARAMETERS ARE DOCUMENTED IN HEADER INFORMATION 00034 M00S00032.1mr +++|* OF EACH FUNCTION PROCESSOR. 00035 M00S00033.1mr +++| SPACE 4 00036 M00S00034.1mr +++|*** DAYFILE MESSAGES. 00037 M00S00035.1mr +++|* 00038 M00S00036.1mr +++|* * INCORRECT 1MR FUNCTION.* 00039 M00S00037.1mr +++|* 00040 M00S00038.1mr +++|* * 1MR ERROR FLAG TERMINATION.* - ERROR FLAG WAS SET AT 00041 M00S00039.1mr +++|* MREC,S CONTROL POINT. 00042 M00S00040.1mr +++|* 00043 M00S00041.1mr +++|* * SSER, EQXXX, TKYYYY.* - UNRECOVERED ERROR OCCURRED WHEN 00044 M00S00042.1mr +++|* ATTEMPTING TO READ OR WRITE THE SYSTEM SECTOR ON EQXXX, 00045 M00S00043.1mr +++|* TRACK YYYY. THE SECTOR IS NOT PROCESSED. PROCESSING 00046 M00S00044.1mr +++|* CONTINUES. THIS MESSAGE IS ALSO ISSUED TO THE ERRLOG. 00047 M00S00045.1mr +++|* 00048 M00S00046.1mr +++|* * EQXXX, MRT PROCESSED BUT NOT REWRITTEN.* - UNRECOVERED 00049 M00S00047.1mr +++|* WRITE ERROR OCCURRED WHEN ATTEMPTING TO ZERO OUT THE MRT 00050 M00S00048.1mr +++|* FOR EQXXX. PROCESSING CONTINUES. 00051 M00S00049.1mr +++|* 00052 M00S00050.1mr +++|* * EQXXX, TKYYYY, INCORRECT LOCAL FILE.* - MRT BIT WAS FOUND 00053 M00S00051.1mr +++|* SET FOR TRACK YYYY ON EQXXX, BUT THE TRACK WAS NOT THE FIRST 00054 M00S00052.1mr +++|* TRACK OF A LOCAL FILE. THE MRT BIT WAS CLEARED BUT THE 00055 M00S00053.1mr +++|* TRACK WAS NOT DROPPED. 00056 M00S00054.1mr +++|* 00057 M00S00055.1mr +++|* * EQXXX, DAF INTERLOCKS NOT CLEARED.* - INTERLOCKS IN THE 00058 M00S00056.1mr +++|* SYSTEM SECTORS OF DIRECT ACCESS FILES ON EQXXX WERE NOT 00059 M00S00057.1mr +++|* CLEARED, EITHER BECAUSE OF MASS STORAGE ERRORS OR 00060 M00S00058.1mr +++|* BECAUSE A PF CATALOG SIZE ERROR WAS DETECTED. 00061 M00S00059.1mr +++|* 00062 M00S00060.1mr +++|* * RECOVERING PF.EQXXX, TRK YYYY.* - INFORMATIVE MESSAGE ISSUED 00063 M00S00061.1mr +++|* AT CONTROL POINT WHEN PRESERVED FILES ARE BEING PROCESSED 00064 M00S00062.1mr +++|* ON EQXXX. 00065 M00S00063.1mr +++|* 00066 M00S00064.1mr +++|* * EQXXX, UNYY, CHECKING RESERVE.* - INFORMATIVE MESSAGE 00067 M00S00065.1mr +++|* ISSUED TO B-DISPLAY WHILE CONTROLLER AND UNIT RESERVES 00068 M00S00066.1mr +++|* ARE BEING PROCESSED. IN THE CASE OF MULTI-UNIT 00069 M00S00067.1mr +++|* DEVICES, YY IS THE PHYSICAL UNIT NUMBER. 00070 M00S00068.1mr +++|* 00071 M00S00069.1mr +++|* * EQXXX, CLEARING LABEL SECTOR INTERLOCKS.* - INFORMATIVE 00072 M00S00070.1mr +++|* MESSAGE ISSUED TO B-DISPLAY WHILE THE RMS COPY OF THE 00073 M00S00071.1mr +++|* MST IS BEING PROCESSED (SHARED RMS SYSTEM ONLY). 00074 M00S00072.1mr +++|* 00075 M00S00073.1mr +++|* * EQXXX, CHYY, CONTROLLER RESERVED.* - INFORMATIVE MESSAGE 00076 M00S00074.1mr +++|* ISSUED TO B-DISPLAY INDICATING THAT THE HARDWARE CONTROLLER 00077 M00S00075.1mr +++|* RESERVE IS HELD BY THE DOWN MAINFRAME FOR THE SPECIFIED 00078 M00S00076.1mr +++|* CHANNEL/DEVICE. TO CLEAR THE RESERVE, THE OPERATOR SHOULD 00079 M00S00077.1mr +++|* HIT THE DEADSTART BUTTON. IF THE CONTROLLER IS TO BE 00080 M00S00078.1mr +++|* IGNORED BY THIS MAINFRAME, JUST ENTER THE *GO,JSN* COMMAND. 00081 M00S00079.1mr +++|* 00082 M00S00080.1mr +++|* * EQXXX, UNYY, UNIT RESERVED.* - INFORMATIVE MESSAGE ISSUED 00083 M00S00081.1mr +++|* TO B-DISPLAY INDICATING THAT THE HARDWARE UNIT RESERVE IS 00084 M00S00082.1mr +++|* HELD BY THE DOWN MAINFRAME FOR THE SPECIFIED UNIT. IF THIS 00085 M00S00083.1mr +++|* DEVICE IS TO BE IGNORED BY THIS MAINFRAME, THE OPERATOR 00086 M00S00084.1mr +++|* SHOULD JUST ENTER *GO,JSN*. OTHERWISE, THE OPERATOR SHOULD 00087 M00S00085.1mr +++|* CLEAR THE UNIT RESERVE (SEE DOCUMENTATION IN *MREC*) ON 00088 M00S00086.1mr +++|* THE UNIT TO CONTINUE PROCESSING. 00089 M00S00087.1mr +++|* 00090 M00S00088.1mr +++|* * INTERLOCKING IQFT, EQXXX.* - INDICATES *1MR* IS WAITING 00091 M00S00089.1mr +++|* FOR THE INTERLOCK ON THE *IQFT* TRACK. 00092 M00S00090.1mr +++| SPACE 4 00093 M00S00091.1mr +++|*CALL COMPMAC 00094 M00S00092.1mr +++|*CALL COMSCPS 00095 M00S00093.1mr +++|*CALL COMSIOQ 00096 M00S00094.1mr +++|*CALL COMSJIO
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00097 M01S00002.283l840 +++| QUAL LSD 00098 M01S00003.283l840 +++|*CALL COMSLSD 00099 M01S00004.283l840 +++| QUAL * 00100 M01S00005.283l840 +++| N4SS EQU /LSD/N4SS 00101 M01S00006.283l840 +++| DISS EQU /LSD/DISS 00102 M01S00007.283l840 +++| CKSS EQU /LSD/CKSS 00103 M01S00008.283l840 +++| DKSS EQU /LSD/DKSS 00104 M00S00095.1mr +++| QUAL MMF
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00105 M01S00009.283l840 +++| LIST X 00106 M00S00096.1mr +++|*CALL COMSMMF
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00107 M01S00010.283l840 +++| LIST * 00108 M00S00097.1mr +++| QUAL *
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2547 |
Seq # *Modification Id* Act ----------------------------+ 00109 M01S00001.ns2547 +++| MISD EQU /MMF/MISD
| Line S00098 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00110 M01S00098.283l840 ---|*CALL COMSPIM
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00111 M01S00011.283l840 +++| MMPF EQU /MMF/MMPF 00112 M01S00012.283l840 +++| MXMF EQU /MMF/MXMF 00113 M01S00013.283l840 +++| QUAL MRT 00114 M01S00014.283l840 +++| LIST X 00115 M01S00015.283l840 +++|*CALL COMSMRT 00116 M01S00016.283l840 +++| LIST * 00117 M01S00017.283l840 +++| QUAL * 00118 M01S00018.283l840 +++|*CALL COMSMSP 00119 M01S00019.283l840 +++|*CALL COMSMST 00120 M01S00020.283l840 +++|*CALL COMSPFM 00121 M01S00021.283l840 +++|*CALL COMSPIM 00122 M00S00099.1mr +++|*CALL COMSSSD 00123 M00S00100.1mr +++|*CALL COMSSSE 00124 M00S00101.1mr +++|*CALL COMSWEI
| Line S00102 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00125 M01S00102.283l840 ---| MMPF EQU /MMF/MMPF DEFINE TAG FOR *COMSMRT* 00126 M01S00103.283l840 ---| MXMF EQU /MMF/MXMF 00127 M01S00104.283l840 ---| QUAL MRT 00128 M01S00105.283l840 ---| LIST X 00129 M01S00106.283l840 ---|*CALL COMSMRT 00130 M01S00107.283l840 ---| LIST * 00131 M01S00108.283l840 ---| QUAL * 00132 M01S00109.283l840 ---|*CALL COMSMSP 00133 M01S00110.283l840 ---| QUAL LSD 00134 M01S00111.283l840 ---|*CALL COMSLSD 00135 M01S00112.283l840 ---| QUAL * 00136 M01S00113.283l840 ---| N4SS EQU /LSD/N4SS 00137 M01S00114.283l840 ---| DISS EQU /LSD/DISS 00138 M01S00115.283l840 ---| CKSS EQU /LSD/CKSS
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2547 |
M02 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00139 M02S00002.283l840 ---| DKSS EQU /LSD/DKSS
| Line S00116 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00140 M01S00116.283l840 ---|*CALL COMSMST 00141 M01S00117.283l840 ---|*CALL COMSPFM 00142 M00S00118.1mr +++| SPACE 4,10 00143 M00S00119.1mr +++|** ASSEMBLY CONSTANTS. 00144 M00S00120.1mr +++| 00145 M00S00121.1mr +++| 00146 M00S00122.1mr +++| BUFS EQU BFMS-502 SCRATCH BUFFER 00147 M00S00123.1mr +++| QBUF EQU BUFS-502 *IQFT* BUFFER 00148 M00S00124.1mr +++| BUFD EQU QBUF-5*2 *DAT* BUFFER 00149 M00S00125.1mr +++| SPACE 4 00150 M00S00126.1mr +++|**** DIRECT LOCATION ASSIGNMENTS. 00151 M00S00127.1mr +++| 00152 M00S00128.1mr +++| 00153 M00S00129.1mr +++| ORG 16 00154 M00S00130.1mr +++| EF BSS 1 ERROR FLAG 00155 M00S00131.1mr +++| SC BSS 1 SCRATCH 00156 M00S00132.1mr +++| CN BSS 5 CM BUFFER 00157 M00S00133.1mr +++| DA BSS 2 DAT TRACK ADDRESS 00158 M00S00134.1mr +++| DF BSS 1 DIRECT ACCESS FILE COUNT 00159 M00S00135.1mr +++| DT BSS 1 DAT/FAT TRACK 00160 M00S00136.1mr +++| ET BSS 2 ENVIRONMENT TABLE ADDRESS 00161 M00S00137.1mr +++| EQ BSS 1 EQUIPMENT BEING PROCESSED 00162 M00S00138.1mr +++| ID BSS 1 MACHINE ID OF THIS MACHINE 00163 M00S00139.1mr +++| LK BSS 1 LINK DEVICE EST ORDINAL 00164 M00S00140.1mr +++| MD BSS 1 MACHINE INDEX OF DOWNED MACHINE 00165 M00S00141.1mr +++| MI BSS 1 MID OF DOWNED MACHINE 00166 M00S00142.1mr +++| MK BSS 1 MACHINE MASK OF DOWNED MACHINE 00167 M00S00143.1mr +++| NT BSS 1 NUMBER OF TRACKS ON CURRENT DEVICE 00168 M00S00144.1mr +++| FT BSS 1 FILE TYPE 00169 M00S00145.1mr +++| PF BSS 1 PRESERVED FILE TRACK INTERLOCK STATUS 00170 M00S00146.1mr +++| TC BSS 1 TRACK COUNT 00171 M00S00147.1mr +++| BY BSS 1 BYTE COUNT 00172 M00S00148.1mr +++| WB EQU NT - BY WORD BUFFER (5 LOCATIONS) 00173 M00S00149.1mr +++| BI BSS 1 BIT COUNT 00174 M00S00150.1mr +++| AD BSS 1 ADDRESS OF CURRENT MRT BYTE 00175 M00S00151.1mr +++| 00176 M00S00152.1mr +++| ORG 57 00177 M00S00153.1mr +++| 00178 M00S00154.1mr +++| SD BSS 1 TYPE OF SHARED DEVICE (FUNCTION 2) 00179 M00S00155.1mr +++|* 0 = EXTENDED MEMORY MMF DEVICE. 00180 M00S00156.1mr +++|* 1 = INDEPENDENT SHARED DEVICE (ISD). 00181 M00S00157.1mr +++| TW BSS 1 CONSTANT 2 00182 M00S00158.1mr +++| SX BSS 1 CONSTANT 6 00183 M00S00159.1mr +++| RE BSS 1 READ EXTENDED MEMORY SUBFUNCTION * 1000 00184 M00S00160.1mr +++| WE BSS 1 WRITE EXTENDED MEMORY SUBFUNCTION * 1000 00185 M00S00161.1mr +++| CT BSS 1 CURRENT TRACK 00186 M00S00162.1mr +++| QF BSS 1 FIRST TRACK OF *IQFT* 00187 M00S00163.1mr +++| QT BSS 1 CURRENT TRACK OF *IQFT* 00188 M00S00164.1mr +++| QS BSS 1 CURRENT SECTOR OF *IQFT* 00189 M00S00165.1mr +++|**** 00190 M00S00166.1mr +++| TITLE MAIN ROUTINE. 00191 M00S00167.1mr +++| 00192 M00S00168.1mr +++| 00193 M00S00169.1mr +++|** MAIN ROUTINE. 00194 M00S00170.1mr +++| 00195 M00S00171.1mr +++| 00196 M00S00172.1mr +++| QUAL MRP 00197 M00S00173.1mr +++| ORG PPFW 00198 M00S00174.1mr +++| 00199 M00S00175.1mr +++| MRP RJM PRS PRESET 00200 M00S00176.1mr +++| MRPA EQU *-1 00201 M00S00177.1mr +++| 00202 M00S00178.1mr +++| DROP RJM CFI CLEAR FLAG REGISTER INTERLOCKS 00203 M00S00179.1mr +++| MRP1 LDN 1 SET COMPLETE FLAG FOR *MREC* 00204 M00S00180.1mr +++| STD CN+4 00205 M00S00181.1mr +++| LDD RA 00206 M00S00182.1mr +++| SHN 6 00207 M00S00183.1mr +++| ADC /MRT/RCLW 00208 M00S00184.1mr +++| CWD CN 00209 M00S00185.1mr +++| MRP2 MONITOR DPPM DROP PP 00210 M00S00186.1mr +++| UJN ABT1 EXIT TO PP RESIDENT 00211 M00S00187.1mr +++| 00212 M00S00188.1mr +++| ERR LDC =C* 1MR ERROR FLAG TERMINATION.* 00213 M00S00189.1mr +++| RJM DFM 00214 M00S00190.1mr +++| LDC WDSX RESET ERROR RETURN FROM *WDS* 00215 M00S00191.1mr +++| STM WDSA 00216 M00S00192.1mr +++| RJM TQF TERMINATE *IQFT* 00217 M00S00193.1mr +++| RJM CFI CLEAR FLAG REGISTER INTERLOCKS 00218 M00S00194.1mr +++| UJN MRP2 DROP PP 00219 M00S00195.1mr +++| SPACE 4 00220 M00S00196.1mr +++|** ABT - ISSUE MESSAGE AND ABORT. 00221 M00S00197.1mr +++|* 00222 M00S00198.1mr +++|* ENTRY (A) = MESSAGE ADDRESS. 00223 M00S00199.1mr +++| 00224 M00S00200.1mr +++| 00225 M00S00201.1mr +++| ABT RJM DFM ISSUE MESSAGE 00226 M00S00202.1mr +++| RJM CFI CLEAR FLAG REGISTER INTERLOCKS 00227 M00S00203.1mr +++| MONITOR ABTM 00228 M00S00204.1mr +++| ABT1 LJM PPR EXIT TO PP RESIDENT 00229 M00S00205.1mr +++| SPACE 4 00230 M00S00206.1mr +++|** COMMON DECKS. 00231 M00S00207.1mr +++| 00232 M00S00208.1mr +++| 00233 M00S00209.1mr +++| QUAL 00234 M00S00210.1mr +++|*CALL COMPC2D 00235 M00S00211.1mr +++|*CALL COMPCEA 00236 M00S00212.1mr +++|*CALL COMPCKP 00237 M00S00213.1mr +++|*CALL COMPRSS 00238 M00S00214.1mr +++|*CALL COMPSSE 00239 M00S00215.1mr +++| 00240 M00S00216.1mr +++| QUAL MRP 00241 M00S00217.1mr +++|*CALL COMPWEI 00242 M00S00218.1mr +++|*CALL COMPWSS 00243 M00S00219.1mr +++| WDS SPACE 4,10 00244 M00S00220.1mr +++|** WDS - WRITE MASS STORAGE. 00245 M00S00221.1mr +++|* 00246 M00S00222.1mr +++|* ENTRY (A) = SAME AS ENTRY TO DRIVER. 00247 M00S00223.1mr +++|* (T5 - T7) = MASS STORAGE PARAMETERS. 00248 M00S00224.1mr +++|* 00249 M00S00225.1mr +++|* EXIT (A) = 0 IF NO WRITE ERRORS. 00250 M00S00226.1mr +++|* 00251 M00S00227.1mr +++|* CALLS WDS. 00252 M00S00228.1mr +++| 00253 M00S00229.1mr +++| 00254 M00S00230.1mr +++| WDS1 LDN 0 INDICATE SUCCESSFUL WRITE 00255 M00S00231.1mr +++| 00256 M00S00232.1mr +++| WDS SUBR ENTRY/EXIT 00257 M00S00233.1mr +++| RJM //WDS 00258 M00S00234.1mr +++| PJN WDS1 IF WRITE COMPLETED 00259 M00S00235.1mr +++| SHN 21-12 00260 M00S00236.1mr +++| SHN 0-21 00261 M00S00237.1mr +++| NJN WDSX IF NON-RECOVERABLE ERROR 00262 M00S00238.1mr +++| LCN 10 00263 M00S00239.1mr +++| LJM WDSX ERROR RETURN 00264 M00S00240.1mr +++| WDSA EQU *-1 00265 M00S00241.1mr +++| TITLE FUNCTION 1 - PROCESS DAT, FAT, MRT-S. 00266 M00S00242.1mr +++| PMT SPACE 4 00267 M00S00243.1mr +++|** PMT - PROCESS DAT, FAT, MRT,S. (FUNCTION 1) 00268 M00S00244.1mr +++|* 00269 M00S00245.1mr +++|* ENTRY (IR+3 - IR+4) = ADDR. 00270 M00S00246.1mr +++|* 00271 M00S00247.1mr +++|* ADDR ADDRESS OF TABLE OF DEVICES TO RECOVER. 00272 M00S00248.1mr +++|*
| Line S00249 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00273 M01S00249.283l840 ---|* CALLS CAA, CLU, C2D, DAT, DFM, ECS, MRT, PDT, 00274 M01S00250.283l840 ---|* PFB, RMI, SDM, SDP, SFR.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00275 M01S00022.283l840 +++|* CALLS CAA, CLU, C2D, DAT, DFM, MRT, PDT, PFB, RMI, SDM, 00276 M01S00023.283l840 +++|* SDP, SFR, *2MS*. 00277 M00S00251.1mr +++|* 00278 M00S00252.1mr +++|* MACROS EXECUTE, PAUSE. 00279 M00S00253.1mr +++| 00280 M00S00254.1mr +++| 00281 M00S00255.1mr +++| PMT SUBR ENTRY/EXIT
| Line S00256 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00282 M01S00256.283l840 ---| 00283 M01S00257.283l840 ---|* PROCESS CONTROLLER AND UNIT RESERVES. 00284 M01S00258.283l840 ---| 00285 M01S00259.283l840 ---| EXECUTE 2MS RELEASE HARDWARE RESERVES
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00286 M01S00024.283l840 +++| EXECUTE 2MS LOAD HARDWARE RESERVE ROUTINES 00287 M00S00260.1mr +++| LDD LK 00288 M00S00261.1mr +++| ZJN PMT1 IF NOT EXTENDED MEMORY MMF 00289 M00S00262.1mr +++| LDN /MMF/DATI 00290 M00S00263.1mr +++| RJM SFR SET DAT INTERLOCK
| Line S00264 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00291 M01S00264.283l840 ---| 00292 M01S00265.283l840 ---|* DISABLE LEVEL 3 RECOVERY OF DOWNED MACHINE. 00293 M01S00266.283l840 ---| 00294 M01S00267.283l840 ---| LDN ZERL BUILD MMFL WORD FOR DOWNED MACHINE 00295 M01S00268.283l840 ---| CRD CM 00296 M01S00269.283l840 ---| LDD MI SET MID OF DOWNED MACHINE 00297 M01S00270.283l840 ---| STD CM 00298 M01S00271.283l840 ---| LDD MD SET MACHINE INDEX OF DOWNED MACHINE 00299 M01S00272.283l840 ---| STD CM+4 00300 M01S00273.283l840 ---| LDD MA SET CM BUFFER ADDRESS 00301 M01S00274.283l840 ---| CWD CM 00302 M01S00275.283l840 ---| LDD ET+1 SET EXTENDED MEMORY ADDRESS 00303 M01S00276.283l840 ---| ADD MD ADD INDEX INTO CORRECT ENTRY 00304 M01S00277.283l840 ---| SBN 1 00305 M01S00278.283l840 ---| STD CM+4 00306 M01S00279.283l840 ---| SHN -14 00307 M01S00280.283l840 ---| ADD ET 00308 M01S00281.283l840 ---| ADD WE 00309 M01S00282.283l840 ---| STD CM+3 00310 M01S00283.283l840 ---| LDN 1-1 WRITE EXTENDED MEMORY 00311 M01S00284.283l840 ---| RJM ECS 00312 M00S00285.1mr +++| RJM CLU CLEAR UTILITY / DEVICE INTERLOCKS 00313 M00S00286.1mr +++| 00314 M00S00287.1mr +++|* PROCESS DAT, MRT-S, SYSTEM SECTORS. 00315 M00S00288.1mr +++| 00316 M00S00289.1mr +++| PMT1 LCN 0 PRESET TABLE INDEX 00317 M00S00290.1mr +++| STD SC 00318 M00S00291.1mr +++| PMT2 PAUSE NE 00319 M00S00292.1mr +++| AOD SC READ TABLE ENTRY 00320 M00S00293.1mr +++| RJM CAA 00321 M00S00294.1mr +++| ADD SC 00322 M00S00295.1mr +++| CRD CM 00323 M00S00296.1mr +++| LDD CM+4 SET EST ORDINAL 00324 M00S00297.1mr +++| STD EQ 00325 M00S00298.1mr +++| STD T5 00326 M00S00299.1mr +++| NJN PMT3 IF NOT END OF DEVICES TO RECOVER 00327 M00S00300.1mr +++| LJM PMTX RETURN 00328 M00S00301.1mr +++| 00329 M00S00302.1mr +++| PMT3 LDD CM SET POSSIBLE IGNORE DEVICE 00330 M00S00303.1mr +++| STM PMTA 00331 M00S00304.1mr +++| LDD CM+3 SET TYPE OF SHARED DEVICE 00332 M00S00305.1mr +++| STD SD 00333 M00S00306.1mr +++| ZJN PMT4 IF NOT ISD 00334 M00S00307.1mr +++| LDD T5 00335 M00S00308.1mr +++| STD LK 00336 M00S00309.1mr +++| RJM SDM CHECK IF DEVICE SHARED TO DOWN MF 00337 M00S00310.1mr +++| NJN PMT2 IF NOT SHARED TO DOWN MF 00338 M00S00311.1mr +++| RJM RMI RELEASE MST INTERLOCKS 00339 M00S00312.1mr +++| UJN PMT5 PROCESS MRT 00340 M00S00313.1mr +++|
| Line S00314 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00341 M01S00314.283l840 ---| PMT4 RJM PDT PROCESS DAT FOR DEVICE
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00342 M01S00025.283l840 +++| PMT4 RJM PDT PROCESS DAT FOR DEVICE 00343 M00S00315.1mr +++| ZJN PMT7 IF NO PROCESSING FOR DEVICE 00344 M00S00316.1mr +++| PMT5 RJM SDP SET DEVICE PARAMETERS 00345 M00S00317.1mr +++| STM PMTB 00346 M00S00318.1mr +++| RJM MRT PROCESS MRT FOR DEVICE 00347 M00S00319.1mr +++| LDC 0 00348 M00S00320.1mr +++| PMTA EQU *-1 00349 M00S00321.1mr +++| LMN /MRT/IGN 00350 M00S00322.1mr +++| ZJN PMT6 IF IGNORE DEVICE 00351 M00S00323.1mr +++| LDC ** CHECK PFC SIZE 00352 M00S00324.1mr +++| PMTB EQU *-1 00353 M00S00325.1mr +++| ZJN PMT8 IF 8-WORD PF CATALOGS 00354 M00S00326.1mr +++| LDD DF 00355 M00S00327.1mr +++| ZJN PMT6 IF NO DAF-S 00356 M00S00328.1mr +++| RJM PFB PROCESS DAF SYSTEM SECTORS 00357 M00S00329.1mr +++| NJN PMT8 IF ALL FILES NOT PROCESSED 00358 M00S00330.1mr +++| PMT6 LDD SD 00359 M00S00331.1mr +++| NJN PMT7 IF ISD 00360 M00S00332.1mr +++| LDD WE WRITE DAT ENTRY WITH ACCESS CLEARED 00361 M00S00333.1mr +++| STD T3 00362 M00S00334.1mr +++| LDD MA 00363 M00S00335.1mr +++| CWM BUFD,TW STORE DAT ENTRY IN MESSAGE BUFFER 00364 M00S00336.1mr +++| LDD EQ SET EQUIPMENT 00365 M00S00337.1mr +++| RJM DAT WRITE DAT ENTRY 00366 M00S00338.1mr +++| PMT7 LJM PMT2 LOOP FOR NEXT DEVICE 00367 M00S00339.1mr +++| 00368 M00S00340.1mr +++| PMT8 LDD EQ CONVERT UPPER DIGIT OF EST ORDINAL 00369 M00S00341.1mr +++| SHN -6 00370 M00S00342.1mr +++| ADC 2RQ0 00371 M00S00343.1mr +++| STM PMTC+1 00372 M00S00344.1mr +++| LDD EQ CONVERT LOWER TWO DIGITS OF EST ORDINAL 00373 M00S00345.1mr +++| RJM C2D 00374 M00S00346.1mr +++| STM PMTC+2 00375 M00S00347.1mr +++| LDC PMTC * EQXXX, DAF INTERLOCKS NOT CLEARED.* 00376 M00S00348.1mr +++| RJM DFM 00377 M00S00349.1mr +++| UJN PMT7 LOOP FOR NEXT DEVICE 00378 M00S00350.1mr +++| 00379 M00S00351.1mr +++| 00380 M00S00352.1mr +++| PMTC DATA C* EQXXX, DAF INTERLOCKS NOT CLEARED.*
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00381 M01S00026.283l840 +++| TITLE FUNCTION 4 - PROCESS RESERVES AND BAT-S. 00382 M01S00027.283l840 +++| PRB SPACE 4,10 00383 M01S00028.283l840 +++|** PRB - PROCESS RESERVES AND BAT-S. (FUNCTION 4) 00384 M01S00029.283l840 +++|* 00385 M01S00030.283l840 +++|* ENTRY (IR+3 - IR+4) = ADDR. 00386 M01S00031.283l840 +++|* 00387 M01S00032.283l840 +++|* ADDR ADDRESS OF TABLE OF DEVICES TO RECOVER. 00388 M01S00033.283l840 +++|* 00389 M01S00034.283l840 +++|* CALLS ECS, RES, *2MS*. 00390 M01S00035.283l840 +++|* 00391 M01S00036.283l840 +++|* MACROS EXECUTE. 00392 M01S00037.283l840 +++| 00393 M01S00038.283l840 +++| 00394 M01S00039.283l840 +++| PRB SUBR ENTRY/EXIT 00395 M01S00040.283l840 +++| LDD LK 00396 M01S00041.283l840 +++| ZJN PRB1 IF NOT EXTENDED MEMORY MMF 00397 M01S00042.283l840 +++| 00398 M01S00043.283l840 +++|* DISABLE LEVEL 3 RECOVERY OF DOWNED MACHINE. 00399 M01S00044.283l840 +++| 00400 M01S00045.283l840 +++| LDN ZERL BUILD MMFL WORD FOR DOWNED MACHINE 00401 M01S00046.283l840 +++| CRD CM 00402 M01S00047.283l840 +++| LDD MI SET MID OF DOWNED MACHINE 00403 M01S00048.283l840 +++| STD CM 00404 M01S00049.283l840 +++| LDD MD SET MACHINE INDEX OF DOWNED MACHINE 00405 M01S00050.283l840 +++| STD CM+4 00406 M01S00051.283l840 +++| LDD MA SET CM BUFFER ADDRESS 00407 M01S00052.283l840 +++| CWD CM 00408 M01S00053.283l840 +++| LDD ET+1 SET EXTENDED MEMORY ADDRESS 00409 M01S00054.283l840 +++| ADD MD ADD INDEX INTO CORRECT ENTRY 00410 M01S00055.283l840 +++| SBN 1 00411 M01S00056.283l840 +++| STD CM+4 00412 M01S00057.283l840 +++| SHN -14 00413 M01S00058.283l840 +++| ADD ET 00414 M01S00059.283l840 +++| ADD WE 00415 M01S00060.283l840 +++| STD CM+3 00416 M01S00061.283l840 +++| LDN 1-1 WRITE EXTENDED MEMORY 00417 M01S00062.283l840 +++| RJM ECS 00418 M01S00063.283l840 +++| 00419 M01S00064.283l840 +++|* PROCESS CONTROLLER AND UNIT RESERVES. 00420 M01S00065.283l840 +++| 00421 M01S00066.283l840 +++| PRB1 EXECUTE 2MS LOAD HARDWARE RESERVE ROUTINES 00422 M01S00067.283l840 +++| RJM RES PROCESS BAT-S AND HARDWARE RESERVES 00423 M01S00068.283l840 +++| UJP PRBX RETURN 00424 M00S00353.1mr +++| TITLE SUBROUTINES. 00425 M00S00354.1mr +++| CAA SPACE 4 00426 M00S00355.1mr +++|** CAA - CALCULATE ABSOLUTE ADDRESS. 00427 M00S00356.1mr +++|* 00428 M00S00357.1mr +++|* ENTRY (IR+3 - IR+4) = RELATIVE ADDRESS. 00429 M00S00358.1mr +++|* 00430 M00S00359.1mr +++|* EXIT (A) = ABSOLUTE ADDRESS. 00431 M00S00360.1mr +++| 00432 M00S00361.1mr +++| 00433 M00S00362.1mr +++| CAA SUBR ENTRY/EXIT 00434 M00S00363.1mr +++| LDD IR+3 00435 M00S00364.1mr +++| LPN 77 00436 M00S00365.1mr +++| SHN 6 00437 M00S00366.1mr +++| ADD RA 00438 M00S00367.1mr +++| SHN 6 00439 M00S00368.1mr +++| ADD IR+4 00440 M00S00369.1mr +++| UJN CAAX RETURN 00441 M00S00370.1mr +++| CAT SPACE 4,10 00442 M00S00371.1mr +++|** CAT - CALCULATE ADDRESS OF TRT. 00443 M00S00372.1mr +++|* 00444 M00S00373.1mr +++|* ENTRY (A) = ADDRESS OF WORD *TRLL* IN MST. 00445 M00S00374.1mr +++|* 00446 M00S00375.1mr +++|* EXIT (A) = FWA OF TRT. 00447 M00S00376.1mr +++|* 00448 M00S00377.1mr +++|* USES CM - CM+4. 00449 M00S00378.1mr +++| 00450 M00S00379.1mr +++| 00451 M00S00380.1mr +++| CAT SUBR ENTRY/EXIT 00452 M00S00381.1mr +++| CRD CM GET FWA OF TRT 00453 M00S00382.1mr +++| LDD CM+3 00454 M00S00383.1mr +++| LPN 77 00455 M00S00384.1mr +++| SHN 14 00456 M00S00385.1mr +++| LMD CM+4 00457 M00S00386.1mr +++| UJN CATX RETURN 00458 M00S00387.1mr +++| CAM SPACE 4 00459 M00S00388.1mr +++|** CAM - CHECK ACCESS MODES FOR DIRECT ACCESS FILE. 00460 M00S00389.1mr +++|* 00461 M00S00390.1mr +++|* ENTRY (T5) = EST ORDINAL. 00462 M00S00391.1mr +++|* (T6) = FIRST TRACK. 00463 M00S00392.1mr +++|* (BFMS) = SYSTEM SECTOR. 00464 M00S00393.1mr +++|* 00465 M00S00394.1mr +++|* EXIT (A) = (PF) = 0 IF FILE PURGED. 00466 M00S00395.1mr +++|* 00467 M00S00396.1mr +++|* USES CM - CM+4. 00468 M00S00397.1mr +++|* 00469 M00S00398.1mr +++|* CALLS RRS. 00470 M00S00399.1mr +++|* 00471 M00S00400.1mr +++|* MACROS ENDMS, MONITOR. 00472 M00S00401.1mr +++| 00473 M00S00402.1mr +++| 00474 M00S00403.1mr +++| CAM1 LDN 1 SET FILE NOT PURGED 00475 M00S00404.1mr +++| 00476 M00S00405.1mr +++| CAM SUBR ENTRY/EXIT 00477 M00S00406.1mr +++| LDM CASS CHECK PURGE BIT 00478 M00S00407.1mr +++| SHN 21-5 00479 M00S00408.1mr +++| PJN CAM1 IF PURGE BIT NOT SET 00480 M00S00409.1mr +++| SHN -21+5+22 CHECK IF ACTIVE USERS 00481 M00S00410.1mr +++| LPN 32 00482 M00S00411.1mr +++| ADM UCSS+1 00483 M00S00412.1mr +++| ADM UCSS+2 00484 M00S00413.1mr +++| ADM UCSS+3 00485 M00S00414.1mr +++| ADM UCSS+4 00486 M00S00415.1mr +++| NJN CAMX IF ACTIVE USERS 00487 M00S00416.1mr +++| RJM RRS 00488 M00S00417.1mr +++| ENDMS 00489 M00S00418.1mr +++| LDD T6 RELEASE FILE SPACE 00490 M00S00419.1mr +++| STD CM+2 00491 M00S00420.1mr +++| LDD T5 00492 M00S00421.1mr +++| STD CM+1 00493 M00S00422.1mr +++| MONITOR DTKM 00494 M00S00423.1mr +++|* LDN 0 CLEAR TRACK INTERLOCK STATUS 00495 M00S00424.1mr +++| STD PF 00496 M00S00425.1mr +++| UJN CAMX RETURN
| Line S00426 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00497 M01S00426.283l840 ---| CFI SPACE 4
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 00498 M01S00069.283l840 +++| CFI SPACE 4,10 00499 M00S00427.1mr +++|** CFI - CLEAR FLAG REGISTER INTERLOCKS HELD BY *1MR*. 00500 M00S00428.1mr +++|* 00501 M00S00429.1mr +++|* ENTRY (CFIA) = LINK DEVICE EST ORDINAL, IF ECS MMF. 00502 M00S00430.1mr +++|* = 0, IF ISD MMF. 00503 M00S00431.1mr +++|* 00504 M00S00432.1mr +++|* USES T2. 00505 M00S00433.1mr +++|* 00506 M00S00434.1mr +++|* CALLS CFR, SCI. 00507 M00S00435.1mr +++| 00508 M00S00436.1mr +++| 00509 M00S00437.1mr +++| CFI SUBR ENTRY/EXIT 00510 M00S00438.1mr +++| RJM SCI CLEAR *CMS* INTERLOCK 00511 M00S00439.1mr +++| LDC ** CHECK TYPE OF MMF OPERATION 00512 M00S00440.1mr +++| CFIA EQU *-1 (LINK DEVICE EST ORDINAL, IF ECS MMF) 00513 M00S00441.1mr +++| ZJN CFIX IF NOT EXTENDED MEMORY MMF 00514 M00S00442.1mr +++| LDC TFRB-3 CLEAR FLAG REGISTER INTERLOCKS 00515 M00S00443.1mr +++| STD T2 00516 M00S00444.1mr +++| CFI1 LDN 3 00517 M00S00445.1mr +++| RAD T2 00518 M00S00446.1mr +++| LDI T2 00519 M00S00447.1mr +++| ZJN CFIX IF END OF FLAG BITS 00520 M00S00448.1mr +++| LPN 40 00521 M00S00449.1mr +++| ZJN CFI1 IF NOT SET 00522 M00S00450.1mr +++| LMI T2 00523 M00S00451.1mr +++| RJM CFR 00524 M00S00452.1mr +++| UJN CFI1 00525 M00S00453.1mr +++| 00526 M00S00454.1mr +++| CQF SPACE 4,15 00527 M00S00455.1mr +++|** CQF - CHECK QUEUE FILE. 00528 M00S00456.1mr +++|* 00529 M00S00457.1mr +++|* ENTRY (MI) = ID OF DOWN MACHINE. 00530 M00S00458.1mr +++|* (QF) = FIRST TRACK OF *IQFT* IF INITIALIZED. 00531 M00S00459.1mr +++|* (T4) = CHANNEL (RESERVED). 00532 M00S00460.1mr +++|* (T5) = EST ORDINAL. 00533 M00S00461.1mr +++|* (CT) = (T6) = FIRST TRACK OF PRESERVED FILE. 00534 M00S00462.1mr +++|* (BFMS) = PRESERVED FILE SYSTEM SECTOR. 00535 M00S00463.1mr +++|* 00536 M00S00464.1mr +++|* EXIT (A) = 0 IF NOT QUEUE FILE. 00537 M00S00465.1mr +++|* (FT) = FILE TYPE. 00538 M00S00466.1mr +++|* 00539 M00S00467.1mr +++|* USES T1, T2, T3. 00540 M00S00468.1mr +++|* 00541 M00S00469.1mr +++|* CALLS IQF, WQF, WSS. 00542 M00S00470.1mr +++|* 00543 M00S00471.1mr +++|* MACROS ENDMS, FILEREC, SETMS. 00544 M00S00472.1mr +++| 00545 M00S00473.1mr +++| 00546 M00S00474.1mr +++| CQF6 LDN 0 INDICATE NON-QUEUE FILE 00547 M00S00475.1mr +++| 00548 M00S00476.1mr +++| CQF SUBR ENTRY/EXIT 00549 M00S00477.1mr +++| LDM FNSS+4 EXTRACT FILE TYPE 00550 M00S00478.1mr +++| SHN -6 00551 M00S00479.1mr +++| STD FT 00552 M00S00480.1mr +++| LDN RDATL SET LENGTH OF QUEUE FILE TABLE 00553 M00S00481.1mr +++| STD T3 00554 M00S00482.1mr +++| CQF1 SOD T3 DECREMENT INDEX 00555 M00S00483.1mr +++| MJN CQF6 IF END OF TABLE 00556 M00S00484.1mr +++| LDM RDAT,T3 00557 M00S00485.1mr +++| LMD FT 00558 M00S00486.1mr +++| NJN CQF1 IF NOT MATCHING FILE TYPE 00559 M00S00487.1mr +++| LDM FGSS 00560 M00S00488.1mr +++| LPN 2 00561 M00S00489.1mr +++| ZJN CQF2 IF INACTIVE QUEUE FILE 00562 M00S00490.1mr +++| LDM RMSS 00563 M00S00491.1mr +++| LMD MI 00564 M00S00492.1mr +++| NJN CQF6 IF NOT ACTIVE QUEUE FILE ON DOWN MACHINE 00565 M00S00493.1mr +++| LCN 2 SET QUEUE FILE INACTIVE 00566 M00S00494.1mr +++| RAM FGSS 00567 M00S00495.1mr +++| RJM WSS REWRITE SYSTEM SECTOR 00568 M00S00496.1mr +++| CQF2 LDD QF 00569 M00S00497.1mr +++| NJN CQF3 IF QUEUE FILE PROCESSING INITIATED 00570 M00S00498.1mr +++| ENDMS 00571 M00S00499.1mr +++| RJM IQF INITIALIZE *IQFT* 00572 M00S00500.1mr +++| CQF3 LDM RMSS SET MACHINE ID 00573 M00S00501.1mr +++| STM FMSS+4 00574 M00S00502.1mr +++| LDM FLSS SET FILE LENGTH 00575 M00S00503.1mr +++| STM CDSS 00576 M00S00504.1mr +++| LDM FLSS+1 00577 M00S00505.1mr +++| STM CDSS+1 00578 M00S00506.1mr +++| LDC IOSS SYSTEM SECTOR ADDRESS OF QFT ENTRY 00579 M00S00507.1mr +++| STD T1 00580 M00S00508.1mr +++| LDC QBUF+2 SET BUFFER ADDRESS 00581 M00S00509.1mr +++| CQFC EQU *-1 00582 M00S00510.1mr +++| STD T2 00583 M00S00511.1mr +++| ADN 5*QFTE END OF QFT ENTRY 00584 M00S00512.1mr +++| STD T3 00585 M00S00513.1mr +++| ADN 5*10-5*QFTE END OF MAXIMUM SIZE QFT ENTRY 00586 M00S00514.1mr +++| STM CQFD 00587 M00S00515.1mr +++| 00588 M00S00516.1mr +++|* MOVE IQFT ENTRY TO BUFFER. 00589 M00S00517.1mr +++| 00590 M00S00518.1mr +++| CQF4 LDI T1 MOVE QFT ENTRY 00591 M00S00519.1mr +++| STI T2 00592 M00S00520.1mr +++| AOD T1 ADVANCE BUFFER ADDRESSES 00593 M00S00521.1mr +++| AOD T2 00594 M00S00522.1mr +++| LMD T3 00595 M00S00523.1mr +++| NJN CQF4 IF NOT END OF QFT ENTRY 00596 M00S00524.1mr +++| LDN 5 00597 M00S00525.1mr +++| STD T1 00598 M00S00526.1mr +++| LDD MA MOVE REMAINDER OF IQFT ENTRY 00599 M00S00527.1mr +++| CWM CDSS,ON 00600 M00S00528.1mr +++| CWM FMSS,ON 00601 M00S00529.1mr +++| CWM FDSS,ON 00602 M00S00530.1mr +++| CWM ACSS,ON 00603 M00S00531.1mr +++| CWM FOSS,ON 00604 M00S00532.1mr +++| SBN 5 00605 M00S00533.1mr +++| CRM QBUF+2+5*10,T1 00606 M00S00534.1mr +++| CQFD EQU *-1 00607 M00S00535.1mr +++| LDC 5*QFEWL ADVANCE BUFFER ADDRESS 00608 M00S00536.1mr +++| RAM CQFC 00609 M00S00537.1mr +++| LDN QFEWL ADVANCE SECTOR LENGTH 00610 M00S00538.1mr +++| RAM QBUF+1 00611 M00S00539.1mr +++| SHN -6 00612 M00S00540.1mr +++| ZJN CQF5 IF NOT FULL SECTOR 00613 M00S00541.1mr +++| RJM WQF WRITE *IQFT* SECTOR 00614 M00S00542.1mr +++| ZJN CQF5 IF SECTOR WRITTEN 00615 M00S00543.1mr +++| LJM IQF2 END OF SPACE ON *IQFT* 00616 M00S00544.1mr +++| 00617 M00S00545.1mr +++| CQF5 LDD CT RESET CURRENT TRACK 00618 M00S00546.1mr +++| STD T6 00619 M00S00547.1mr +++| LJM CQFX RETURN 00620 M00S00548.1mr +++| 00621 M00S00549.1mr +++| 00622 M00S00550.1mr +++| FILEREC 00623 M00S00551.1mr +++| DAP SPACE 4,10 00624 M00S00552.1mr +++|** DAP - DELAY AND PAUSE. 00625 M00S00553.1mr +++|* 00626 M00S00554.1mr +++|* EXIT (A) = 0 IF *ODET* OR ERROR .GE. *SPET* SET. 00627 M00S00555.1mr +++| 00628 M00S00556.1mr +++| 00629 M00S00557.1mr +++| DAP SUBR ENTRY/EXIT 00630 M00S00558.1mr +++| DELAY 00631 M00S00559.1mr +++| PAUSE 00632 M00S00560.1mr +++| LDD CM+1 00633 M00S00561.1mr +++| SBN ODET 00634 M00S00562.1mr +++| ZJN DAPX IF OPERATOR DROP 00635 M00S00563.1mr +++| SBN SPET-ODET 00636 M00S00564.1mr +++| SHN -21 (A) = 1 IF NO ERROR *SPET* OR ABOVE 00637 M00S00565.1mr +++| UJN DAPX RETURN 00638 M00S00566.1mr +++| DPS SPACE 4 00639 M00S00567.1mr +++|** DPS - DETERMINE IF PRESERVED FILE AND RESERVATION BIT 00640 M00S00568.1mr +++|* IS SET FOR TRACK SPECIFIED. 00641 M00S00569.1mr +++|* 00642 M00S00570.1mr +++|* ENTRY (T6) = TRACK. 00643 M00S00571.1mr +++|* 00644 M00S00572.1mr +++|* EXIT (A, BIT 21) = RESERVATION BIT. 00645 M00S00573.1mr +++|* (A, BIT 7) = PRESERVED FILE BIT. 00646 M00S00574.1mr +++|* (A, BIT 3) = TRACK INTERLOCK BIT. 00647 M00S00575.1mr +++|* 00648 M00S00576.1mr +++|* USES CM - CM+4. 00649 M00S00577.1mr +++| 00650 M00S00578.1mr +++| 00651 M00S00579.1mr +++| DPS SUBR ENTRY/EXIT 00652 M00S00580.1mr +++| LDD T6 READ TRT WORD 00653 M00S00581.1mr +++| SHN -2 00654 M00S00582.1mr +++| DPSA ADC TRTS 00655 M00S00583.1mr +++| CRD CM 00656 M00S00584.1mr +++| LDD T6 SET SHIFT COUNT 00657 M00S00585.1mr +++| LPN 3 00658 M00S00586.1mr +++| ADC SHNI+16 00659 M00S00587.1mr +++| STM DPSB 00660 M00S00588.1mr +++| LDD CM+4 00661 M00S00589.1mr +++| DPSB SHN 16 00662 M00S00590.1mr +++| UJN DPSX RETURN 00663 M00S00591.1mr +++| IQF SPACE 4,15 00664 M00S00592.1mr +++|** IQF - INITIALIZE *IQFT*. 00665 M00S00593.1mr +++|* 00666 M00S00594.1mr +++|* ENTRY (T5) = EST ORDINAL. 00667 M00S00595.1mr +++|* 00668 M00S00596.1mr +++|* EXIT (QF) = (QT) = FIRST TRACK OF *IQFT*. 00669 M00S00597.1mr +++|* (QS) = FIRST SECTOR OF *IQFT*. 00670 M00S00598.1mr +++|* 00671 M00S00599.1mr +++|* USES T3, T6. 00672 M00S00600.1mr +++|* 00673 M00S00601.1mr +++|* CALLS RSS, WSS. 00674 M00S00602.1mr +++|* 00675 M00S00603.1mr +++|* MACROS SETMS. 00676 M00S00604.1mr +++| 00677 M00S00605.1mr +++| 00678 M00S00606.1mr +++| IQF SUBR ENTRY/EXIT 00679 M00S00607.1mr +++| IQF2 LDM PFBA 00680 M00S00608.1mr +++| STD T6 SET *IQFT* TRACK 00681 M00S00609.1mr +++| STD QF 00682 M00S00610.1mr +++| STD QT 00683 M00S00611.1mr +++| LDC 500 00684 M00S00612.1mr +++| STD T3 00685 M00S00613.1mr +++| IQF4 LDN 0 CLEAR SYSTEM SECTOR BUFFER 00686 M00S00614.1mr +++| STM BFMS+1,T3 00687 M00S00615.1mr +++| STM QBUF+1,T3 CLEAR IQFT BUFFER 00688 M00S00616.1mr +++| SOD T3 00689 M00S00617.1mr +++| NJN IQF4 LOOP TO START OF BUFFER 00690 M00S00618.1mr +++| STM QBUF+1 CLEAR SECTOR WORD COUNT 00691 M00S00619.1mr +++| LDD MA MOVE FILE NAME TO BUFFER 00692 M00S00620.1mr +++| CWM IQFA,ON 00693 M00S00621.1mr +++| SBN 1 00694 M00S00622.1mr +++| CRM FNSS,ON 00695 M00S00623.1mr +++| SETMS POSITION 00696 M00S00624.1mr +++| RJM WSS WRITE *IQFT* SYSTEM SECTOR 00697 M00S00625.1mr +++| LDN FSMS SET FIRST *IQF* SECTOR 00698 M00S00626.1mr +++| STD QS 00699 M00S00627.1mr +++| LDD CT RESTORE CURRENT TRACK 00700 M00S00628.1mr +++| STD T6 00701 M00S00629.1mr +++| SETMS POSITION 00702 M00S00630.1mr +++|* LDN 0 REREAD QUEUE FILE SYSTEM SECTOR 00703 M00S00631.1mr +++| RJM RSS 00704 M00S00632.1mr +++| LJM IQFX RETURN 00705 M00S00633.1mr +++| 00706 M00S00634.1mr +++| 00707 M00S00635.1mr +++| IQFA VFD 42/0LQUEUES,6/1,6/SYFT,6/0 00708 M00S00636.1mr +++| MRM SPACE 4 00709 M00S00637.1mr +++|** MRM - ISSUE MRT ERROR MESSAGE. 00710 M00S00638.1mr +++|* 00711 M00S00639.1mr +++|* ENTRY (A) = ADDRESS OF MESSAGE. 00712 M00S00640.1mr +++|* (T6) = TRACK. 00713 M00S00641.1mr +++|* (EQ) = EST ORDINAL TO BE INSERTED IN MESSAGE. 00714 M00S00642.1mr +++|* 00715 M00S00643.1mr +++|* USES T1. 00716 M00S00644.1mr +++|* 00717 M00S00645.1mr +++|* CALLS C2D, DFM. 00718 M00S00646.1mr +++| 00719 M00S00647.1mr +++| 00720 M00S00648.1mr +++| MRM SUBR ENTRY/EXIT 00721 M00S00649.1mr +++| STD T1 SAVE MESSAGE ADDRESS 00722 M00S00650.1mr +++| STM MRMA 00723 M00S00651.1mr +++| LDD EQ CONVERT UPPER DIGIT OF EST ORDINAL 00724 M00S00652.1mr +++| SHN -6 00725 M00S00653.1mr +++| ADC 2RQ0 00726 M00S00654.1mr +++| STM 1,T1 00727 M00S00655.1mr +++| LDD EQ CONVERT LOWER TWO DIGITS OF EST ORDINAL 00728 M00S00656.1mr +++| RJM C2D 00729 M00S00657.1mr +++| STM 2,T1 00730 M00S00658.1mr +++| LDD T1 00731 M00S00659.1mr +++| LMC MRTC 00732 M00S00660.1mr +++| ZJN MRM1 IF NO TRACK IN MESSAGE 00733 M00S00661.1mr +++| LDD T6 CONVERT TRACK MESSAGE 00734 M00S00662.1mr +++| RJM C2D 00735 M00S00663.1mr +++| STM 6,T1 00736 M00S00664.1mr +++| LDD T6 00737 M00S00665.1mr +++| SHN -6 00738 M00S00666.1mr +++| RJM C2D 00739 M00S00667.1mr +++| STM 5,T1 00740 M00S00668.1mr +++| LDD T1 ISSUE MESSAGE TO ERRLOG 00741 M00S00669.1mr +++| LMC ERLN 00742 M00S00670.1mr +++| RJM DFM 00743 M00S00671.1mr +++| MRM1 LDC * ISSUE MESSAGE TO DAYFILE 00744 M00S00672.1mr +++| MRMA EQU *-1 00745 M00S00673.1mr +++| RJM DFM 00746 M00S00674.1mr +++| LJM MRMX RETURN 00747 M00S00675.1mr +++| MRT SPACE 4 00748 M00S00676.1mr +++|** MRT - PROCESS MRT. 00749 M00S00677.1mr +++|* 00750 M00S00678.1mr +++|* ENTRY (T6) = MRT TRACK NUMBER. 00751 M00S00679.1mr +++|* (NT) = NUMBER OF TRACKS ON DEVICE BEING RECOVERED. 00752 M00S00680.1mr +++|* (EQ) = EST ORDINAL BEING PROCESSED. 00753 M00S00681.1mr +++|* 00754 M00S00682.1mr +++|* EXIT TO *MSR* IF LINK DEVICE ERROR. 00755 M00S00683.1mr +++|* 00756 M00S00684.1mr +++|* USES AD, BY, TC, T5, T6, CM - CM+4. 00757 M00S00685.1mr +++|* 00758 M00S00686.1mr +++|* CALLS MRM, PTR, RSC, WDS. 00759 M00S00687.1mr +++|* 00760 M00S00688.1mr +++|* MACROS ENDMS, MONITOR, SETMS. 00761 M00S00689.1mr +++| 00762 M00S00690.1mr +++| 00763 M00S00691.1mr +++| MRT8 LDD MA RESET MRT TRACK AND SECTOR 00764 M00S00692.1mr +++| CWM MRTB,ON 00765 M00S00693.1mr +++| SBN 1 00766 M00S00694.1mr +++| CRD T3
| Line S00695 Modification History | |
|---|---|
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 00767 M01S00695.ns2579 ---| SETMS IO,RW
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 00768 M01S00001.ns2579 +++| SETMS IO,(NS,RW) 00769 M00S00696.1mr +++| LDC BUFS SET BUFFER ADDRESS 00770 M00S00697.1mr +++| RJM WDS WRITE SECTOR 00771 M00S00698.1mr +++| MJN MRT9 IF ERROR 00772 M00S00699.1mr +++| ENDMS 00773 M00S00700.1mr +++| UJN MRTX RETURN 00774 M00S00701.1mr +++| 00775 M00S00702.1mr +++| MRT9 LDC MRTC SET MESSAGE ADDRESS 00776 M00S00703.1mr +++| RJM MRM ISSUE ERROR MESSAGE 00777 M00S00704.1mr +++| 00778 M00S00705.1mr +++| MRT SUBR ENTRY/EXIT 00779 M00S00706.1mr +++| LDD EQ UPDATE TRT FOR DEVICE 00780 M00S00707.1mr +++| STD CM+1 00781 M00S00708.1mr +++| LDN UTRS 00782 M00S00709.1mr +++| STD CM+3 00783 M00S00710.1mr +++| MONITOR STBM 00784 M00S00711.1mr +++|* LDN 0 SET FIRST TRACK 00785 M00S00712.1mr +++| STD TC 00786 M00S00713.1mr +++| STD BY 00787 M00S00714.1mr +++| LDD LK READ MRT SECTOR FROM LINK DEVICE 00788 M00S00715.1mr +++| STD T5 00789 M00S00716.1mr +++| LDD SD 00790 M00S00717.1mr +++| ZJN MRT1 IF NOT ISD 00791 M00S00718.1mr +++| LDN /MMF/MRTL-/MMF/MRST 00792 M00S00719.1mr +++| MRT1 ADN /MMF/MRST-1 SET MRT SECTOR 00793 M00S00720.1mr +++| ADD MD 00794 M00S00721.1mr +++| STD T7
| Line S00722 Modification History | |
|---|---|
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 00795 M01S00722.ns2579 ---| SETMS IO
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 00796 M01S00002.ns2579 +++| SETMS IO,NS 00797 M00S00723.1mr +++| LDC BUFS+2+4 SET FIRST MRT BYTE TO PROCESS 00798 M00S00724.1mr +++| STD AD 00799 M00S00725.1mr +++| SBN 2+4 READ MRT SECTOR 00800 M00S00726.1mr +++| RJM RSC 00801 M00S00727.1mr +++| LDD MA SAVE MRT TRACK AND SECTOR 00802 M00S00728.1mr +++| CWD T3 00803 M00S00729.1mr +++| CRM MRTB,ON 00804 M00S00730.1mr +++| ENDMS 00805 M00S00731.1mr +++| LDD EQ SET EST ORDINAL 00806 M00S00732.1mr +++| STD T5
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mr8 |
Seq # *Modification Id* Act ----------------------------+ 00807 M01S00001.1mr8 +++| SETMS IO,RW 00808 M00S00733.1mr +++| MRT2 LDI AD 00809 M00S00734.1mr +++| NJN MRT4 IF BITS SET IN BYTE 00810 M00S00735.1mr +++| MRT3 SOD AD 00811 M00S00736.1mr +++| LDN 14 INCREMENT TRACKS 00812 M00S00737.1mr +++| RAD TC 00813 M00S00738.1mr +++| AOD BY INCREMENT BYTE WITHIN WORD 00814 M00S00739.1mr +++| LMN 3 00815 M00S00740.1mr +++| NJN MRT2 IF NOT DONE WITH CM WORD 00816 M00S00741.1mr +++|* LDN 0 00817 M00S00742.1mr +++| STD BY RESET BYTE COUNTER 00818 M00S00743.1mr +++| LDN 10 00819 M00S00744.1mr +++| RAD AD 00820 M00S00745.1mr +++| LCN 4 ADJUST TRACK COUNT 00821 M00S00746.1mr +++| RAD TC 00822 M00S00747.1mr +++| SBD NT 00823 M00S00748.1mr +++| MJN MRT2 IF MORE TRACKS TO CHECK 00824 M00S00749.1mr +++| LJM MRT8 00825 M00S00750.1mr +++| 00826 M00S00751.1mr +++| MRT4 LDN 1 INITIALIZE MASK 00827 M00S00752.1mr +++| STM MRTA 00828 M00S00753.1mr +++| SHN 13-0 SET TRACK 00829 M00S00754.1mr +++| ADD TC 00830 M00S00755.1mr +++| STD T6 00831 M00S00756.1mr +++| MRT5 LDI AD 00832 M00S00757.1mr +++| ZJN MRT3 IF NO MORE TRACK BITS IN MRT BYTE 00833 M00S00758.1mr +++| LPC 0 00834 M00S00759.1mr +++| MRTA EQU *-1 00835 M00S00760.1mr +++| ZJN MRT6 IF TRACK BIT NOT SET 00836 M00S00761.1mr +++| LMI AD CLEAR TRACK BIT 00837 M00S00762.1mr +++| STI AD 00838 M00S00763.1mr +++| RJM PTR PROCESS TRACK RESERVATION 00839 M00S00764.1mr +++| MJN MRT6 IF VALID TRACK ASSIGNMENT 00840 M00S00765.1mr +++| LDC MRTD ISSUE ERROR MESSAGE 00841 M00S00766.1mr +++| RJM MRM 00842 M00S00767.1mr +++| MRT6 AOD T6 ADVANCE TRACK 00843 M00S00768.1mr +++| LDM MRTA 00844 M00S00769.1mr +++| RAM MRTA ADJUST MASK FOR NEXT MRT BIT 00845 M00S00770.1mr +++| SHN -14 00846 M00S00771.1mr +++| ZJN MRT5 IF NOT ZERO MASK 00847 M00S00772.1mr +++| LJM MRT3 SET NEXT MRT BYTE 00848 M00S00773.1mr +++| 00849 M00S00774.1mr +++| 00850 M00S00775.1mr +++| MRTB BSS 5 TEMPORARY STORAGE 00851 M00S00776.1mr +++| MRTC DATA C* EQXXX, MRT PROCESSED BUT NOT REWRITTEN.* 00852 M00S00777.1mr +++| MRTD DATA C* EQXXX, TKYYYY, INCORRECT LOCAL FILE.* 00853 M00S00778.1mr +++| MSR SPACE 4 00854 M00S00779.1mr +++|** MSR - RETURN ERROR TO *MREC*. 00855 M00S00780.1mr +++|* 00856 M00S00781.1mr +++|* ENTRY (A) = ERROR CODE. 00857 M00S00782.1mr +++|* 00858 M00S00783.1mr +++|* EXIT ERROR RETURN WORD RETURNED TO *MREC*. 00859 M00S00784.1mr +++|* 00860 M00S00785.1mr +++|* CALLS CFR. 00861 M00S00786.1mr +++| 00862 M00S00787.1mr +++| 00863 M00S00788.1mr +++| MSR STD T5 SAVE ERROR CODE 00864 M00S00789.1mr +++| LDN ZERL 00865 M00S00790.1mr +++| CRD T0 00866 M00S00791.1mr +++| LDD RA RETURN ERROR WORD TO *MREC* 00867 M00S00792.1mr +++| SHN 6 00868 M00S00793.1mr +++| ADC /MRT/ERRW 00869 M00S00794.1mr +++| CWD T1 00870 M00S00795.1mr +++| MSR1 LJM DROP DROP PP 00871 M00S00796.1mr +++| PFB SPACE 4 00872 M00S00797.1mr +++|** PFB - CLEAN UP DIRECT ACCESS FILE SYSTEM SECTORS. 00873 M00S00798.1mr +++|* 00874 M00S00799.1mr +++|* ENTRY (EQ) = EST ORDINAL TO PROCESS. 00875 M00S00800.1mr +++|* (NT) = NUMBER OF TRACKS ON DEVICE. 00876 M00S00801.1mr +++|* 00877 M00S00802.1mr +++|* EXIT (A) = 0 IF DEVICE CLEANUP COMPLETED. 00878 M00S00803.1mr +++|* 00879 M00S00804.1mr +++|* USES BY, CT, NT, PF, TC, T2, T5, T6, T7, CM - CM+4. 00880 M00S00805.1mr +++|* 00881 M00S00806.1mr +++|* CALLS CAM, CQF, C2D, DPS, FAT, PFA, RRS, RSS, SSE, STB, 00882 M00S00807.1mr +++|* STI, TQF, USC, WDS. 00883 M00S00808.1mr +++|* 00884 M00S00809.1mr +++|* MACROS ENDMS, PAUSE, SETMS. 00885 M00S00810.1mr +++| 00886 M00S00811.1mr +++| 00887 M00S00812.1mr +++| PFB SUBR ENTRY/EXIT 00888 M00S00813.1mr +++| LDD EQ SET EST ORDINAL 00889 M00S00814.1mr +++| STD T5 00890 M00S00815.1mr +++| SHN -6 CONVERT UPPER DIGIT OF EST ORDINAL 00891 M00S00816.1mr +++| ADC 2RQ0 00892 M00S00817.1mr +++| STM PFBB+10 00893 M00S00818.1mr +++| STM PFBC+13 00894 M00S00819.1mr +++| LDD EQ CONVERT LOWER TWO DIGITS OF EST ORDINAL 00895 M00S00820.1mr +++| RJM C2D 00896 M00S00821.1mr +++| STM PFBB+11 00897 M00S00822.1mr +++| STM PFBC+14
| Line S00823 Modification History | |
|---|---|
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 00898 M01S00823.ns2579 ---| SETMS IO,RW
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 00899 M01S00003.ns2579 +++| SETMS IO,(NS,RW) 00900 M00S00824.1mr +++| LDN 0 00901 M00S00825.1mr +++| STD BY PRESET FILES PROCESSED COUNT 00902 M00S00826.1mr +++| STD EF 00903 M00S00827.1mr +++| LDD CM+4 GET *IQFT* POINTER FROM MST 00904 M00S00828.1mr +++| STM PFBD 00905 M00S00829.1mr +++| PFB0 SHN 3 00906 M00S00830.1mr +++| ADN ACGL 00907 M00S00831.1mr +++| CRD CM 00908 M00S00832.1mr +++| LDD CM+3 SET *IQFT* TRACK 00909 M00S00833.1mr +++| STM PFBA 00910 M00S00834.1mr +++| STD T6 INTERLOCK *IQFT* 00911 M00S00835.1mr +++| RJM STI 00912 M00S00836.1mr +++| ZJN PFB1 IF TRACK INTERLOCKED 00913 M00S00837.1mr +++| LDD CP 00914 M00S00838.1mr +++| ADN MS2W STORE WAITING MESSAGE 00915 M00S00839.1mr +++| CWM PFBC,TR 00916 M00S00840.1mr +++| DELAY 10*100D DELAY 100 MS 00917 M00S00841.1mr +++| PAUSE NE 00918 M00S00842.1mr +++| LDC ** LOAD MST ADDRESS 00919 M00S00843.1mr +++| PFBD EQU *-1 00920 M00S00844.1mr +++| UJN PFB0 LOOP ON INTERLOCK 00921 M00S00845.1mr +++| 00922 M00S00846.1mr +++| PFB1 STD PF 00923 M00S00847.1mr +++| LDC PFB18 SET WRITE ERROR PROCESSING RETURN 00924 M00S00848.1mr +++| STM WDSA 00925 M00S00849.1mr +++| LDD MD SET MACHINE INDEX*5 00926 M00S00850.1mr +++| STD TC 00927 M00S00851.1mr +++| SHN 2 00928 M00S00852.1mr +++| RAD TC 00929 M00S00853.1mr +++| ADC UCSS SET BEGINNING OF DOWNED MACHINE ENTRY 00930 M00S00854.1mr +++| STM USCA 00931 M00S00855.1mr +++| LDC 4000-1 SET INITIAL TRACK 00932 M00S00856.1mr +++| STD CT 00933 M00S00857.1mr +++| ADN 1 SET LAST TRACK + 1 00934 M00S00858.1mr +++| RAD NT 00935 M00S00859.1mr +++| PFB2 AOD CT ADVANCE TRACK NUMBER 00936 M00S00860.1mr +++| LMD NT 00937 M00S00861.1mr +++| NJN PFB3 IF NOT END OF TRT 00938 M00S00862.1mr +++| STD CM 00939 M00S00863.1mr +++| LDC WDSX RESET ERROR RETURN 00940 M00S00864.1mr +++| STM WDSA 00941 M00S00865.1mr +++| LDD CP CLEAR CONTROL POINT MESSAGE 00942 M00S00866.1mr +++| ADN MS2W 00943 M00S00867.1mr +++| CWD CM 00944 M00S00868.1mr +++| RJM TQF TERMINATE *IQFT* 00945 M00S00869.1mr +++| LDD EF 00946 M00S00870.1mr +++| LJM PFBX RETURN 00947 M00S00871.1mr +++| 00948 M00S00872.1mr +++| PFB3 LDD CT SET NEXT TRACK 00949 M00S00873.1mr +++| STD T6 00950 M00S00874.1mr +++| LMC 0 00951 M00S00875.1mr +++| PFBA EQU *-1 00952 M00S00876.1mr +++| ZJN PFB2 IF *IQFT* TRACK 00953 M00S00877.1mr +++| RJM DPS DETERMINE TRACK STATUS 00954 M00S00878.1mr +++| SHN 21-7 00955 M00S00879.1mr +++| PJN PFB2 IF NOT FIRST TRACK OF PRESERVED FILE 00956 M00S00880.1mr +++| 00957 M00S00881.1mr +++|* READ AND VERIFY SYSTEM SECTOR. 00958 M00S00882.1mr +++| 00959 M00S00883.1mr +++| AOD BY INCREMENT SYSTEM SECTORS PROCESSED 00960 M00S00884.1mr +++| LMN NFTP 00961 M00S00885.1mr +++| NJN PFB4 IF NOT TIME TO PAUSE 00962 M00S00886.1mr +++| STD BY RESET COUNTER 00963 M00S00887.1mr +++| PAUSE NE 00964 M00S00888.1mr +++| PFB4 LDD T6 SET TRACK NUMBER IN MESSAGE 00965 M00S00889.1mr +++| RJM C2D 00966 M00S00890.1mr +++| STM PFBB+16 00967 M00S00891.1mr +++| LDD T6 00968 M00S00892.1mr +++| SHN -6 00969 M00S00893.1mr +++| RJM C2D 00970 M00S00894.1mr +++| STM PFBB+15 00971 M00S00895.1mr +++| LDD CP ISSUE MESSAGE 00972 M00S00896.1mr +++| ADN MS2W 00973 M00S00897.1mr +++| CWM PFBB,TR 00974 M00S00898.1mr +++| SETMS POSITION 00975 M00S00899.1mr +++|* LDN 0 00976 M00S00900.1mr +++| RJM RSS 00977 M00S00901.1mr +++| ZJN PFB7 IF VALID SYSTEM SECTOR 00978 M00S00902.1mr +++| PFB5 ENDMS 00979 M00S00903.1mr +++| LDD PF 00980 M00S00904.1mr +++| ZJN PFB6 IF TRACK NOT INTERLOCKED 00981 M00S00905.1mr +++| LDN CTIS 00982 M00S00906.1mr +++| RJM STB CLEAR TRACK INTERLOCK 00983 M00S00907.1mr +++|* LDN 0 00984 M00S00908.1mr +++| STD PF 00985 M00S00909.1mr +++| PFB6 LJM PFB2 LOOP FOR NEXT PRESERVED FILE 00986 M00S00910.1mr +++| 00987 M00S00911.1mr +++| PFB7 RJM CQF CHECK FOR QUEUE FILE 00988 M00S00912.1mr +++| NJN PFB5 IF QUEUE FILE PROCESSED 00989 M00S00913.1mr +++| LDD FT CHECK FILE TYPE 00990 M00S00914.1mr +++| LMN PMFT 00991 M00S00915.1mr +++| ZJN PFB10 IF DIRECT ACCESS FILE 00992 M00S00916.1mr +++| LMN FAFT&PMFT 00993 M00S00917.1mr +++| NJN PFB5 IF NOT FAST ATTACH FILE 00994 M00S00918.1mr +++| RJM RRS 00995 M00S00919.1mr +++| LDD SD 00996 M00S00920.1mr +++| NJN PFB9 IF ISD 00997 M00S00921.1mr +++| LDM FISS 00998 M00S00922.1mr +++| LPC 3777 00999 M00S00923.1mr +++| ZJN PFB10 IF NOT GLOBAL ATTACH FILE 01000 M00S00924.1mr +++| RJM FAT PROCESS FAST ATTACH FILE 01001 M00S00925.1mr +++| PFB8 NJN PFB5 IF FILE STILL IN FAST ATTACH STATUS 01002 M00S00926.1mr +++| LJM PFB14 REWRITE SECTOR 01003 M00S00927.1mr +++| 01004 M00S00928.1mr +++| PFB9 RJM PFA PROCESS FAST ATTACH FILE ON ISD 01005 M00S00929.1mr +++| NJN PFB8 IF SYSTEM SECTOR UPDATE NOT REQUIRED 01006 M00S00930.1mr +++| UJN PFB14 REWRITE SYSTEM SECTOR 01007 M00S00931.1mr +++| 01008 M00S00932.1mr +++|* UPDATE USER COUNTS IN SYSTEM SECTOR. 01009 M00S00933.1mr +++| 01010 M00S00934.1mr +++| PFB10 LDM UCSS,TC CHECK IF ALL COUNTS ZERO 01011 M00S00935.1mr +++| LPN 1 01012 M00S00936.1mr +++| STD T2 01013 M00S00937.1mr +++| ADM UCSS+1,TC 01014 M00S00938.1mr +++| ADM UCSS+2,TC 01015 M00S00939.1mr +++| ADM UCSS+3,TC 01016 M00S00940.1mr +++| ADM UCSS+4,TC 01017 M00S00941.1mr +++| NJN PFB12 IF NECESSARY TO UPDATE SECTOR 01018 M00S00942.1mr +++| RJM CAM CHECK ACCESS MODE BITS 01019 M00S00943.1mr +++| NJN PFB8 IF FILE NOT PURGED 01020 M00S00944.1mr +++| PFB11 LJM PFB2 LOOP FOR NEXT PRESERVED FILE 01021 M00S00945.1mr +++| 01022 M00S00946.1mr +++| PFB12 RJM RRS REREAD SYSTEM SECTOR WITH INTERLOCK 01023 M00S00947.1mr +++| LDN 0 01024 M00S00948.1mr +++| STM FISS 01025 M00S00949.1mr +++| RJM USC UPDATE SYSTEM SECTOR COUNTS 01026 M00S00950.1mr +++| LDC PMFT*100 01027 M00S00951.1mr +++| STM FNSS+4 01028 M00S00952.1mr +++| PFB14 RJM CAM CHECK ACCESS MODE BITS 01029 M00S00953.1mr +++| ZJN PFB11 IF FILE PURGED 01030 M00S00954.1mr +++| 01031 M00S00955.1mr +++|* WRITE SECTOR BACK TO DEVICE. 01032 M00S00956.1mr +++| 01033 M00S00957.1mr +++| LDN 0 RESET SECTOR 01034 M00S00958.1mr +++| STD T7 01035 M00S00959.1mr +++| LDC BFMS WRITE SECTOR 01036 M00S00960.1mr +++| RJM WDS 01037 M00S00961.1mr +++| ZJN PFB16 IF NO ERRORS 01038 M00S00962.1mr +++| ENDMS 01039 M00S00963.1mr +++| RJM SSE 01040 M00S00964.1mr +++| PFB16 LJM PFB5 CLEAR TRACK INTERLOCK 01041 M00S00965.1mr +++| 01042 M00S00966.1mr +++| PFB18 AOD EF SET ERROR FLAG 01043 M00S00967.1mr +++| LDD NT 01044 M00S00968.1mr +++| SBN 1 ENABLE IMMEDIATE RETURN 01045 M00S00969.1mr +++| STD CT 01046 M00S00970.1mr +++| UJN PFB16 COMPLETE OPERATIONS ON DEVICE 01047 M00S00971.1mr +++| 01048 M00S00972.1mr +++| 01049 M00S00973.1mr +++| PFBB DATA C* RECOVERING PF.EQXXX, TRK YYYY.* 01050 M00S00974.1mr +++| PFBC DATA C*$INTERLOCKING IQFT, EQXXX.* 01051 M00S00975.1mr +++| PTR SPACE 4,15 01052 M00S00976.1mr +++|** PTR - PROCESS TRACK RESERVATION. 01053 M00S00977.1mr +++|* 01054 M00S00978.1mr +++|* ENTRY (T5) = EST ORDINAL. 01055 M00S00979.1mr +++|* (T6) = CURRENT TRACK. 01056 M00S00980.1mr +++|* (SD) = INDEPENDENT SHARED DEVICE STATUS. 01057 M00S00981.1mr +++|* 01058 M00S00982.1mr +++|* EXIT (A) .GE. 0 IF INCORRECT LOCAL FILE. 01059 M00S00983.1mr +++|* 01060 M00S00984.1mr +++|* USES CM - CM+4. 01061 M00S00985.1mr +++|* 01062 M00S00986.1mr +++|* CALLS DPS, RSS, STB. 01063 M00S00987.1mr +++|* 01064 M00S00988.1mr +++|* MACROS ENDMS, MONITOR. 01065 M00S00989.1mr +++| 01066 M00S00990.1mr +++| 01067 M00S00991.1mr +++| PTR1 LDN CTIS CLEAR INTERLOCK 01068 M00S00992.1mr +++| RJM STB 01069 M00S00993.1mr +++| PTR3 LCN 0 SET EXIT CONDITION 01070 M00S00994.1mr +++| 01071 M00S00995.1mr +++| PTR SUBR ENTRY/EXIT 01072 M00S00996.1mr +++| RJM DPS DETERMINE TRACK STATUS 01073 M00S00997.1mr +++| SHN 21-3 01074 M00S00998.1mr +++| MJN PTR1 IF TRACK INTERLOCKED 01075 M00S00999.1mr +++| SHN 3-21+22 01076 M00S01000.1mr +++| PJN PTRX IF TRACK NOT RESERVED 01077 M00S01001.1mr +++| SHN 21-7 01078 M00S01002.1mr +++| MJN PTRX IF FILE PRESERVED 01079 M00S01003.1mr +++| LDN 0 READ SYSTEM SECTOR 01080 M00S01004.1mr +++| RJM RSS 01081 M00S01005.1mr +++| LPC 7777 01082 M00S01006.1mr +++| NJN PTRX IF SYSTEM SECTOR ERROR 01083 M00S01007.1mr +++| ENDMS 01084 M00S01008.1mr +++| LDD T6 RELEASE LOCAL FILE DISK SPACE 01085 M00S01009.1mr +++| STD CM+2 01086 M00S01010.1mr +++| LDD T5 01087 M00S01011.1mr +++| LMC 2000 SET TRACK DROP FOR ANOTHER MACHINE 01088 M00S01012.1mr +++| STD CM+1 01089 M00S01013.1mr +++| MONITOR DTKM 01090 M00S01014.1mr +++| UJN PTR3 RETURN 01091 M00S01015.1mr +++| RRS SPACE 4,15 01092 M00S01016.1mr +++|** RRS - REREAD SYSTEM SECTOR IF TRACK INTERLOCK NOT SET. 01093 M00S01017.1mr +++|* 01094 M00S01018.1mr +++|* ENTRY (PF) = TRACK INTERLOCK STATUS. 01095 M00S01019.1mr +++|* 01096 M00S01020.1mr +++|* EXIT TO CALLER IF TRACK INTERLOCKED ON ENTRY. 01097 M00S01021.1mr +++|* 01098 M00S01022.1mr +++|* EXIT (A) = (T6) IF TRACK NO LONGER RESERVED. 01099 M00S01023.1mr +++|* = RESPONSE FROM *RSS*. 01100 M00S01024.1mr +++|* TO PREVIOUS *RSS* CALLER IF TRACK NOT ALREADY 01101 M00S01025.1mr +++|* INTERLOCKED. 01102 M00S01026.1mr +++|* 01103 M00S01027.1mr +++|* CALLS RSS, STI. 01104 M00S01028.1mr +++|* 01105 M00S01029.1mr +++|* MACROS ENDMS. 01106 M00S01030.1mr +++| 01107 M00S01031.1mr +++| 01108 M00S01032.1mr +++| RRS SUBR ENTRY/EXIT 01109 M00S01033.1mr +++| LDD PF 01110 M00S01034.1mr +++| NJN RRSX IF FIRST TRACK INTERLOCKED 01111 M00S01035.1mr +++| ENDMS 01112 M00S01036.1mr +++| LDM RSS CHANGE RETURN TO LAST *RSS* CALLER 01113 M00S01037.1mr +++| STM RRS 01114 M00S01038.1mr +++| RJM STI SET TRACK INTERLOCK 01115 M00S01039.1mr +++| NJN RRSX IF TRACK NO LONGER RESERVED 01116 M00S01040.1mr +++|* LDN 0 REREAD SYSTEM SECTOR 01117 M00S01041.1mr +++| RJM RSS 01118 M00S01042.1mr +++| UJN RRSX RETURN 01119 M00S01043.1mr +++| RSC SPACE 4,10 01120 M00S01044.1mr +++|** RSC - READ SECTOR AND CHECK FOR ERRORS. 01121 M00S01045.1mr +++|* 01122 M00S01046.1mr +++|* ENTRY (A) = BUFFER ADDRESS. 01123 M00S01047.1mr +++|* (T5 - T7) = DRIVER PARAMETERS. 01124 M00S01048.1mr +++|* 01125 M00S01049.1mr +++|* ERROR TO *MSR* IF READ ERROR. 01126 M00S01050.1mr +++|* 01127 M00S01051.1mr +++|* CALLS RDS. 01128 M00S01052.1mr +++|* 01129 M00S01053.1mr +++|* MACROS ENDMS. 01130 M00S01054.1mr +++| 01131 M00S01055.1mr +++| 01132 M00S01056.1mr +++| RSC SUBR ENTRY/EXIT 01133 M00S01057.1mr +++| RJM RDS READ SECTOR 01134 M00S01058.1mr +++| PJN RSCX IF NO ERROR 01135 M00S01059.1mr +++| RSC1 ENDMS 01136 M00S01060.1mr +++| LDN /MRT/RER SET READ ERROR 01137 M00S01061.1mr +++| LJM MSR PROCESS ERROR 01138 M00S01062.1mr +++| SCI SPACE 4,15 01139 M00S01063.1mr +++|** SCI - INCREMENT/DECREMENT *MREC* ACTIVITY COUNT. 01140 M00S01064.1mr +++|* 01141 M00S01065.1mr +++|* *CMS* WILL WAIT ON THE ACTIVITY COUNT IN *INWL* BEFORE AN 01142 M00S01066.1mr +++|* UNLOAD WILL BE PROCESSED. 01143 M00S01067.1mr +++|* 01144 M00S01068.1mr +++|* EXIT (A) = 0. 01145 M00S01069.1mr +++|* 01146 M00S01070.1mr +++|* USES CM - CM+4. 01147 M00S01071.1mr +++|* 01148 M00S01072.1mr +++|* MACROS MONITOR. 01149 M00S01073.1mr +++| 01150 M00S01074.1mr +++| 01151 M00S01075.1mr +++| SCI SUBR ENTRY/EXIT
| Line S01076 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01152 M01S01076.283l840 ---| LDD MA INCREMENT/DECREMENT *MREC* COUNT 01153 M01S01077.283l840 ---| CWM SCIA,TW
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01154 M01S00070.283l840 +++| SCIA LDD MA INCREMENT/DECREMENT *MREC* COUNT 01155 M01S00071.283l840 +++|* UJN SCIX (NOT *PMT* OR *UMT* FUNCTION) 01156 M01S00072.283l840 +++| CWM SCIB,TW 01157 M00S01078.1mr +++| SBN 1 01158 M00S01079.1mr +++| CRD CM 01159 M00S01080.1mr +++| MONITOR UADM 01160 M00S01081.1mr +++| LDD CM+1 01161 M00S01082.1mr +++| ZJN SCIX IF NO OVERFLOW/UNDERFLOW 01162 M00S01083.1mr +++| SCI1 MONITOR HNGM 01163 M00S01084.1mr +++| UJN SCI1 HANG 01164 M00S01085.1mr +++| 01165 M00S01086.1mr +++|
| Line S01087 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01166 M01S01087.283l840 ---| SCIA VFD 12/LIOS,12/INWL,6/18D,6/6,24/0
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01167 M01S00073.283l840 +++| SCIB VFD 12/LIOS,12/INWL,6/18D,6/6,24/0 INCREMENT ACTIVITY 01168 M01S00074.283l840 +++|*SCIB VFD 12/LDOS,12/INWL,6/18D,6/6,24/0 (DECREMENT ACTIVITY) 01169 M00S01088.1mr +++| VFD 12/0,12/1,12/1,24/0 01170 M00S01089.1mr +++| SDP SPACE 4,15 01171 M00S01090.1mr +++|** SDP - SET DEVICE PARAMETERS. 01172 M00S01091.1mr +++|* 01173 M00S01092.1mr +++|* ENTRY (EQ) = EQUIPMENT. 01174 M00S01093.1mr +++|* 01175 M00S01094.1mr +++|* EXIT (A) = PF CATALOG SIZE. 01176 M00S01095.1mr +++|* = 0, 8 WORD CATALOGS. 01177 M00S01096.1mr +++|* = 1000, 16 WORD CATALOGS. 01178 M00S01097.1mr +++|* (DF) = DAF COUNT. 01179 M00S01098.1mr +++|* (NT) = NUMBER OF TRACKS ON DEVICE. 01180 M00S01099.1mr +++|* (DPSA - DPSA+1) = TRT ADDRESS. 01181 M00S01100.1mr +++|* 01182 M00S01101.1mr +++|* USES T0 - T6, CN - CN+4. 01183 M00S01102.1mr +++|* 01184 M00S01103.1mr +++|* MACROS SFA. 01185 M00S01104.1mr +++|* 01186 M00S01105.1mr +++|* CALLS CAT. 01187 M00S01106.1mr +++| 01188 M00S01107.1mr +++| 01189 M00S01108.1mr +++| SDP SUBR ENTRY/EXIT 01190 M00S01109.1mr +++| SFA EST,EQ SET DEVICE PARAMETERS 01191 M00S01110.1mr +++| ADK EQDE 01192 M00S01111.1mr +++| CRD CN 01193 M00S01112.1mr +++| LDD CN+4 01194 M00S01113.1mr +++| SHN 3 01195 M00S01114.1mr +++| ADN MDGL 01196 M00S01115.1mr +++| CRD T0 01197 M00S01116.1mr +++| SBN MDGL-TDGL 01198 M00S01117.1mr +++| CRD T1 01199 M00S01118.1mr +++| ADN ACGL-TDGL 01200 M00S01119.1mr +++| CRD CN SET DAF COUNT 01201 M00S01120.1mr +++| ADN TRLL-ACGL 01202 M00S01121.1mr +++| RJM CAT CALCULATE FWA OF TRT 01203 M00S01122.1mr +++| SBD TH 01204 M00S01123.1mr +++| STM DPSA+1 01205 M00S01124.1mr +++| SHN -14 01206 M00S01125.1mr +++| LMC ADCI 01207 M00S01126.1mr +++| STM DPSA 01208 M00S01127.1mr +++| LDD T1+2 01209 M00S01128.1mr +++| SHN 2 01210 M00S01129.1mr +++| STD NT NUMBER OF TRACKS
| Line S01130 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01211 M01S01130.283l840 ---| LDD CN+2
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01212 M01S00075.283l840 +++| SHN 21-13 01213 M01S00076.283l840 +++| PJN SDP1 IF NOT FULL-LENGTH TRT 01214 M01S00077.283l840 +++| SOD NT SET (NT) = 3777 01215 M01S00078.283l840 +++| SDP1 LDD CN+2 01216 M00S01131.1mr +++| STD DF DAF COUNT 01217 M00S01132.1mr +++| LDD T0 GET PFC SIZE 01218 M00S01133.1mr +++| LPC 1000 01219 M00S01134.1mr +++| LJM SDPX RETURN 01220 M00S01135.1mr +++| STB SPACE 4,15 01221 M00S01136.1mr +++|** STB - SET TRACK BIT. 01222 M00S01137.1mr +++|* 01223 M00S01138.1mr +++|* ENTRY (A) = *STBM* SUBFUNCTION CODE. 01224 M00S01139.1mr +++|* (T5) = EST ORDINAL. 01225 M00S01140.1mr +++|* (T6) = TRACK NUMBER. 01226 M00S01141.1mr +++|* 01227 M00S01142.1mr +++|* EXIT (A) = MONITOR RESPONSE. 01228 M00S01143.1mr +++|* 01229 M00S01144.1mr +++|* USES CM - CM+4. 01230 M00S01145.1mr +++|* 01231 M00S01146.1mr +++|* MACROS MONITOR. 01232 M00S01147.1mr +++| 01233 M00S01148.1mr +++| 01234 M00S01149.1mr +++| STB SUBR ENTRY/EXIT 01235 M00S01150.1mr +++| STD CM+3 SET SUBFUNCTION CODE 01236 M00S01151.1mr +++| LDD T6 SET TRACK 01237 M00S01152.1mr +++| STD CM+2 01238 M00S01153.1mr +++| LDD T5 SET EST ORDINAL 01239 M00S01154.1mr +++| LMC 1S10 01240 M00S01155.1mr +++| STD CM+1 01241 M00S01156.1mr +++| MONITOR STBM ISSUE REQUEST 01242 M00S01157.1mr +++| LDD CM+1 01243 M00S01158.1mr +++| UJN STBX RETURN 01244 M00S01159.1mr +++| STI SPACE 4,15 01245 M00S01160.1mr +++|** STI - SET TRACK INTERLOCK. 01246 M00S01161.1mr +++|* 01247 M00S01162.1mr +++|* ENTRY (T5) = EST ORDINAL. 01248 M00S01163.1mr +++|* (T6) = TRACK. 01249 M00S01164.1mr +++|* 01250 M00S01165.1mr +++|* EXIT (A) = 0 IF TRACK INTERLOCKED. 01251 M00S01166.1mr +++|* = (T6) IF TRACK NOT RESERVED. 01252 M00S01167.1mr +++|* (PF) = (T6) IF TRACK INTERLOCKED. 01253 M00S01168.1mr +++|* 01254 M00S01169.1mr +++|* ERROR TO *ERR* IF *ORET* ERROR FLAG DETECTED. 01255 M00S01170.1mr +++|* 01256 M00S01171.1mr +++|* CALLS STB. 01257 M00S01172.1mr +++|* 01258 M00S01173.1mr +++|* MACROS DELAY, PAUSE. 01259 M00S01174.1mr +++| 01260 M00S01175.1mr +++| 01261 M00S01176.1mr +++| STI2 LDD T6 FLAG TRACK INTERLOCKED 01262 M00S01177.1mr +++| STD PF 01263 M00S01178.1mr +++| STI3 LMD T6 RETURN INTERLOCK STATUS 01264 M00S01179.1mr +++| 01265 M00S01180.1mr +++| STI SUBR ENTRY/EXIT 01266 M00S01181.1mr +++| STI1 LDN STIS ATTEMPT TRACK INTERLOCK 01267 M00S01182.1mr +++| RJM STB 01268 M00S01183.1mr +++| ZJN STI2 IF INTERLOCK SET 01269 M00S01184.1mr +++| LMN 2 01270 M00S01185.1mr +++| ZJN STI3 IF TRACK NOT RESERVED 01271 M00S01186.1mr +++| DELAY 250D*10 01272 M00S01187.1mr +++| PAUSE 01273 M00S01188.1mr +++| LDD CM+1 CHECK ERROR FLAG 01274 M00S01189.1mr +++| LMN ORET 01275 M00S01190.1mr +++| NJN STI1 IF NOT OPERATOR OVERRIDE 01276 M00S01191.1mr +++| LJM ERR PROCESS ERROR FLAG TERMINATION 01277 M00S01192.1mr +++| TQF SPACE 4,15 01278 M00S01193.1mr +++|** TQF - TERMINATE *IQFT*. 01279 M00S01194.1mr +++|* 01280 M00S01195.1mr +++|* ENTRY (T5) = EST ORDINAL. 01281 M00S01196.1mr +++|* (QF) = FIRST TRACK OF *IQFT*. 01282 M00S01197.1mr +++|* (QT) = CURRENT *IQFT* TRACK. 01283 M00S01198.1mr +++|* (QS) = CURRENT *IQFT* SECTOR. 01284 M00S01199.1mr +++|* 01285 M00S01200.1mr +++|* EXIT (QF) = 0. 01286 M00S01201.1mr +++|* 01287 M00S01202.1mr +++|* USES T1, T6, T7. 01288 M00S01203.1mr +++|* 01289 M00S01204.1mr +++|* CALLS STB, WEI, WQF. 01290 M00S01205.1mr +++|* 01291 M00S01206.1mr +++|* MACROS ENDMS, MONITOR, SETMS. 01292 M00S01207.1mr +++| 01293 M00S01208.1mr +++| 01294 M00S01209.1mr +++| TQF2 LDM PFBA 01295 M00S01210.1mr +++| ZJN TQFX IF *IQFT* NOT INTERLOCKED 01296 M00S01211.1mr +++| STD T6 01297 M00S01212.1mr +++| LDN CTIS CLEAR TRACK INTERLOCK 01298 M00S01213.1mr +++| RJM STB 01299 M00S01214.1mr +++|* LDN 0 CLEAR *IQFT* PROCESSING INITIATED 01300 M00S01215.1mr +++| STD QF 01301 M00S01216.1mr +++| STM PFBA CLEAR TRACK INTERLOCKED FLAG 01302 M00S01217.1mr +++| 01303 M00S01218.1mr +++| TQF SUBR ENTRY/EXIT 01304 M00S01219.1mr +++| LDD QF 01305 M00S01220.1mr +++| ZJN TQF2 IF NO QUEUE FILE PROCESSING 01306 M00S01221.1mr +++| LDC 500 01307 M00S01222.1mr +++| STD T1 01308 M00S01223.1mr +++| TQF1 LDN 0 CLEAR EOI SECTOR BUFFER 01309 M00S01224.1mr +++| STM BFMS+1,T1 01310 M00S01225.1mr +++| SOD T1 01311 M00S01226.1mr +++| NJN TQF1 LOOP TO START OF BUFFER 01312 M00S01227.1mr +++| RJM WQF WRITE LAST *IQFT* SECTOR 01313 M00S01228.1mr +++| LDD MA MOVE FILE NAME TO BUFFER 01314 M00S01229.1mr +++| CWM IQFA,ON 01315 M00S01230.1mr +++| SBN 1 01316 M00S01231.1mr +++| CRM BFMS+FNEI,ON 01317 M00S01232.1mr +++| LDD T5 SETUP EOI SECTOR BUFFER 01318 M00S01233.1mr +++| STM BFMS+FSEI 01319 M00S01234.1mr +++| LDD QF 01320 M00S01235.1mr +++| STM BFMS+FTEI 01321 M00S01236.1mr +++| LDD QT SET CURRENT *IQFT* TRACK AND SECTOR 01322 M00S01237.1mr +++| STD T6 01323 M00S01238.1mr +++| LDD QS 01324 M00S01239.1mr +++| STD T7 01325 M00S01240.1mr +++| SETMS POSITION 01326 M00S01241.1mr +++| RJM WEI WRITE EOI SECTOR 01327 M00S01242.1mr +++| ENDMS 01328 M00S01243.1mr +++| LDD T5 SET EOI IN TRT 01329 M00S01244.1mr +++| LMC 1S11 01330 M00S01245.1mr +++| STD CM+1 01331 M00S01246.1mr +++| LDD QT 01332 M00S01247.1mr +++| LPC 3777 01333 M00S01248.1mr +++| STD CM+2 01334 M00S01249.1mr +++| LDD QS 01335 M00S01250.1mr +++| STD CM+3 01336 M00S01251.1mr +++| MONITOR DTKM 01337 M00S01252.1mr +++| LJM TQF2 CLEAR TRACK INTERLOCK 01338 M00S01253.1mr +++| USC SPACE 4,10 01339 M00S01254.1mr +++|* USC - UPDATE SYSTEM SECTOR COUNTS. 01340 M00S01255.1mr +++|* 01341 M00S01256.1mr +++|* ENTRY (T2) = WRITE MODE FLAG FROM UCSS OF DOWN MACHINE. 01342 M00S01257.1mr +++|* (TC) = MACHINE INDEX*5. 01343 M00S01258.1mr +++|* (MI) = MACHINE INDEX. 01344 M00S01259.1mr +++|* (UCSA) = ADDRESS IN BUFFER OF DOWN MACHINE PF COUNTS. 01345 M00S01260.1mr +++|* (BFMS) = SYSTEM SECTOR. 01346 M00S01261.1mr +++|* 01347 M00S01262.1mr +++|* EXIT COUNTS UPDATED AND ENTRY CLEARED FOR DOWN MACHINE. 01348 M00S01263.1mr +++| 01349 M00S01264.1mr +++| 01350 M00S01265.1mr +++| USC SUBR ENTRY/EXIT 01351 M00S01266.1mr +++| LDN 0 SUBTRACT DOWN MACHINE COUNTS FROM TOTAL 01352 M00S01267.1mr +++| SBM UCSS+1,TC 01353 M00S01268.1mr +++| RAM UCSS+1 01354 M00S01269.1mr +++| LDN 0 01355 M00S01270.1mr +++| SBM UCSS+2,TC 01356 M00S01271.1mr +++| RAM UCSS+2 01357 M00S01272.1mr +++| LDN 0 01358 M00S01273.1mr +++| SBM UCSS+3,TC 01359 M00S01274.1mr +++| RAM UCSS+3 01360 M00S01275.1mr +++| LDN 0 01361 M00S01276.1mr +++| SBM UCSS+4,TC 01362 M00S01277.1mr +++| RAM UCSS+4 01363 M00S01278.1mr +++| LDM UCSS,TC 01364 M00S01279.1mr +++| LPN 2 01365 M00S01280.1mr +++| ZJN USC1 IF LOCAL UTILITY ATTACH FLAG NOT SET 01366 M00S01281.1mr +++| LDM CASS CLEAR GLOBAL UTILITY ATTACH FLAG 01367 M00S01282.1mr +++| LPC 7677 01368 M00S01283.1mr +++| STM CASS 01369 M00S01284.1mr +++| USC1 LDN ZERL CLEAR ENTRY FOR DOWNED MACHINE 01370 M00S01285.1mr +++| CRM *,ON 01371 M00S01286.1mr +++| USCA EQU *-1 01372 M00S01287.1mr +++| LDD T2 01373 M00S01288.1mr +++| ZJN USC2 IF WRITE MODE NOT SET 01374 M00S01289.1mr +++| LDM CASS CLEAR WRITE MODE BITS IN ACCESS WORD 01375 M00S01290.1mr +++| LPC 7541 01376 M00S01291.1mr +++| STM CASS 01377 M00S01292.1mr +++| USC2 LJM USCX RETURN 01378 M00S01293.1mr +++| WQF SPACE 4,15 01379 M00S01294.1mr +++|** WQF - WRITE *IQFT* SECTOR. 01380 M00S01295.1mr +++|* 01381 M00S01296.1mr +++|* ENTRY (T5) = EST ORDINAL. 01382 M00S01297.1mr +++|* (QT) = CURRENT *IQFT* TRACK. 01383 M00S01298.1mr +++|* (QS) = CURRENT *IQFT* SECTOR. 01384 M00S01299.1mr +++|* 01385 M00S01300.1mr +++|* EXIT (A) = 0 IF SECTOR WRITTEN. 01386 M00S01301.1mr +++|* 01387 M00S01302.1mr +++|* USES T6, T7, CM - CM+4. 01388 M00S01303.1mr +++|* 01389 M00S01304.1mr +++|* CALLS WDS. 01390 M00S01305.1mr +++|* 01391 M00S01306.1mr +++|* MACROS ENDMS, MONITOR. 01392 M00S01307.1mr +++| 01393 M00S01308.1mr +++| 01394 M00S01309.1mr +++| WQF SUBR ENTRY/EXIT 01395 M00S01310.1mr +++| LDD QT SET CURRENT *IQFT* TRACK 01396 M00S01311.1mr +++| STD T6 01397 M00S01312.1mr +++| LDC QBUF+2 RESET BUFFER POINTER 01398 M00S01313.1mr +++| STM CQFC 01399 M00S01314.1mr +++| LDD QS SET *IQFT* SECTOR 01400 M00S01315.1mr +++| STD T7 01401 M00S01316.1mr +++| ADN 1 SET SECTOR LINKAGE 01402 M00S01317.1mr +++| STM QBUF 01403 M00S01318.1mr +++| STD QS SET NEXT *IQFT* SECTOR 01404 M00S01319.1mr +++| LMM SLM 01405 M00S01320.1mr +++| NJN WQF1 IF NOT SECTOR LIMIT 01406 M00S01321.1mr +++| ENDMS 01407 M00S01322.1mr +++|* LDN 0 01408 M00S01323.1mr +++| STD CM+3 01409 M00S01324.1mr +++| STD CM+4 01410 M00S01325.1mr +++| STD QS 01411 M00S01326.1mr +++| LDD T5 REQUEST NEXT *IQFT* TRACK 01412 M00S01327.1mr +++| STD CM+1 01413 M00S01328.1mr +++| LDD T6 01414 M00S01329.1mr +++| STD CM+2 01415 M00S01330.1mr +++| MONITOR RTCM 01416 M00S01331.1mr +++| LDD CM+4 SET NEXT TRACK IN SECTOR LINKAGE 01417 M00S01332.1mr +++| STM QBUF 01418 M00S01333.1mr +++| ZJN WQF3 IF NO TRACK AVAILABLE 01419 M00S01334.1mr +++| STD QT 01420 M00S01335.1mr +++| WQF1 SETMS POSITION 01421 M00S01336.1mr +++| LDC QBUF+WLSF WRITE *IQFT* SECTOR 01422 M00S01337.1mr +++| RJM WDS 01423 M00S01338.1mr +++| ENDMS 01424 M00S01339.1mr +++|* LDN 0 01425 M00S01340.1mr +++| STM QBUF+1 01426 M00S01341.1mr +++| WQF2 LJM WQFX RETURN 01427 M00S01342.1mr +++| 01428 M00S01343.1mr +++| WQF3 LDD T7 SAVE LAST SECTOR FOR EOI 01429 M00S01344.1mr +++| STD QS 01430 M00S01345.1mr +++| UJN WQF2 RETURN 01431 M00S01346.1mr +++| TITLE EXTENDED MEMORY MMF SUBROUTINES. 01432 M00S01347.1mr +++| SPACE 4,10 01433 M00S01348.1mr +++|*** EXTENDED MEMORY MMF SUBROUTINES. 01434 M00S01349.1mr +++|* 01435 M00S01350.1mr +++|* THE FOLLOWING CODE IS USED ONLY FOR ECS MMF ENVIRONMENTS. 01436 M00S01351.1mr +++|* IT IS OVERLAID BY ISD MMF CODE IF RUNNING IN AN ISD SYSTEM. 01437 M00S01352.1mr +++| 01438 M00S01353.1mr +++| 01439 M00S01354.1mr +++| USE OVERLAY 01440 M00S01355.1mr +++| OVLA EQU *+5 *2MR* LOAD ADDRESS 01441 M00S01356.1mr +++| CFR SPACE 4,10 01442 M00S01357.1mr +++|** CFR - CLEAR FLAG REGISTER BIT. 01443 M00S01358.1mr +++|* 01444 M00S01359.1mr +++|* ENTRY (A) = BIT NUMBER TO CLEAR. 01445 M00S01360.1mr +++|* 01446 M00S01361.1mr +++|* USES CM - CM+4. 01447 M00S01362.1mr +++|* 01448 M00S01363.1mr +++|* CALLS TFR. 01449 M00S01364.1mr +++|* 01450 M00S01365.1mr +++|* MACROS MONITOR. 01451 M00S01366.1mr +++| 01452 M00S01367.1mr +++| 01453 M00S01368.1mr +++| CFR SUBR ENTRY/EXIT 01454 M00S01369.1mr +++| RJM TFR TOGGLE FLAG REGISTER BIT 01455 M00S01370.1mr +++| LDD T1 BIT NUMBER 01456 M00S01371.1mr +++| SHN 6 01457 M00S01372.1mr +++| STD CM+1 01458 M00S01373.1mr +++| LDN CFRS SET TO CLEAR FLAG REGISTER BIT 01459 M00S01374.1mr +++| SHN 11 01460 M00S01375.1mr +++| STD CM+3 01461 M00S01376.1mr +++| MONITOR ECSM 01462 M00S01377.1mr +++| UJN CFRX RETURN 01463 M00S01378.1mr +++| DAT SPACE 4,10 01464 M00S01379.1mr +++|** DAT - READ(WRITE) DAT ENTRY (2 WORDS). 01465 M00S01380.1mr +++|* 01466 M00S01381.1mr +++|* ENTRY (A) = EST ORDINAL OF EQUIPMENT. 01467 M00S01382.1mr +++|* (T3) = RECS*1000 IF READ, WECS*1000 IF WRITE. 01468 M00S01383.1mr +++|* DAT IN CM BUFFER (MA - MA+1) IF WRITE. 01469 M00S01384.1mr +++|* 01470 M00S01385.1mr +++|* EXIT (BUFD) = 2 WORD DAT ENTRY. (READ ONLY) 01471 M00S01386.1mr +++|* 01472 M00S01387.1mr +++|* CALLS ECS. 01473 M00S01388.1mr +++|* 01474 M00S01389.1mr +++|* USES CM - CM+4, T1. 01475 M00S01390.1mr +++|* 01476 M00S01391.1mr +++|* MACROS SFA. 01477 M00S01392.1mr +++| 01478 M00S01393.1mr +++| 01479 M00S01394.1mr +++| DAT SUBR ENTRY/EXIT 01480 M00S01395.1mr +++| SFA EST READ EST ENTRY 01481 M00S01396.1mr +++| ADK EQDE 01482 M00S01397.1mr +++| CRD CM 01483 M00S01398.1mr +++| LDD CM+4 READ MST FOR DAT INDEX 01484 M00S01399.1mr +++| SHN 3 01485 M00S01400.1mr +++| ADN MDGL 01486 M00S01401.1mr +++| CRD CM 01487 M00S01402.1mr +++| LDD CM SET DAT INDEX 01488 M00S01403.1mr +++| LPC 377 01489 M00S01404.1mr +++| SHN 1 01490 M00S01405.1mr +++| ADD DA+1 01491 M00S01406.1mr +++| STD CM+4 01492 M00S01407.1mr +++| SHN -14 01493 M00S01408.1mr +++| ADD T3 SET TO READ/WRITE EXTENDED MEMORY 01494 M00S01409.1mr +++| ADD DA 01495 M00S01410.1mr +++| STD CM+3 01496 M00S01411.1mr +++| LDN 2-1 READ TWO WORDS 01497 M00S01412.1mr +++| RJM ECS READ(WRITE) EXTENDED MEMORY 01498 M00S01413.1mr +++| LDD T3 01499 M00S01414.1mr +++| LMD WE 01500 M00S01415.1mr +++| ZJN DATX IF WRITE 01501 M00S01416.1mr +++| LDD MA 01502 M00S01417.1mr +++| CRM BUFD,TW 01503 M00S01418.1mr +++| UJN DATX RETURN 01504 M00S01419.1mr +++| ECS SPACE 4,10 01505 M00S01420.1mr +++|** ECS - READ/WRITE EXTENDED MEMORY. 01506 M00S01421.1mr +++|* 01507 M00S01422.1mr +++|* ENTRY (A) = WORD COUNT - 1. 01508 M00S01423.1mr +++|* (CM+3 - CM+4) = PARAMETERS FOR *ECSM* FUNCTION. 01509 M00S01424.1mr +++|* 01510 M00S01425.1mr +++|* EXIT (A) = 0. 01511 M00S01426.1mr +++|* 01512 M00S01427.1mr +++|* ERROR TO *MSR* IF TRANSFER ERROR. 01513 M00S01428.1mr +++| 01514 M00S01429.1mr +++| 01515 M00S01430.1mr +++| ECS SUBR ENTRY/EXIT 01516 M00S01431.1mr +++| SHN 6 01517 M00S01432.1mr +++| STD CM+1 SET WORD COUNT 01518 M00S01433.1mr +++| LDD MA 01519 M00S01434.1mr +++| STD CM+2 SET BUFFER ADDRESS 01520 M00S01435.1mr +++| MONITOR ECSM 01521 M00S01436.1mr +++| LDD CM+1 01522 M00S01437.1mr +++| ZJN ECSX IF NO ERRORS 01523 M00S01438.1mr +++| LDN /MRT/RER SET READ ERROR 01524 M00S01439.1mr +++| LJM MSR PROCESS ERROR 01525 M00S01440.1mr +++| FAT SPACE 4,10 01526 M00S01441.1mr +++|** FAT - PROCESS FAST ATTACH PERMANENT FILES. 01527 M00S01442.1mr +++|* 01528 M00S01443.1mr +++|* ENTRY (A) = INDEX OF FAT ENTRY IN EXTENDED MEMORY. 01529 M00S01444.1mr +++|* SYSTEM SECTOR IN BFMS. 01530 M00S01445.1mr +++|* 01531 M00S01446.1mr +++|* EXIT (A) = 0 IF REMOVE FILE FROM FAST ATTACH STATUS. 01532 M00S01447.1mr +++|* 01533 M00S01448.1mr +++|* USES T2, T3, T7, CM - CM+4. 01534 M00S01449.1mr +++|* 01535 M00S01450.1mr +++|* CALLS CFR, ECS, SFR, WFW. 01536 M00S01451.1mr +++|* 01537 M00S01452.1mr +++|* MACROS ENDMS. 01538 M00S01453.1mr +++| 01539 M00S01454.1mr +++| 01540 M00S01455.1mr +++| FAT SUBR ENTRY/EXIT 01541 M00S01456.1mr +++| STD T3 01542 M00S01457.1mr +++| LDK MMFL 01543 M00S01458.1mr +++| CRD CM 01544 M00S01459.1mr +++| LDD CM+1 01545 M00S01460.1mr +++| SHN 21-12 01546 M00S01461.1mr +++| PJN FAT1 IF NOT LSPMMF 01547 M00S01462.1mr +++| SHN 12-21 01548 M00S01463.1mr +++| LPC 777 01549 M00S01464.1mr +++| LMD T5 01550 M00S01465.1mr +++| NJN FAT1 IF FILE DOES NOT RESIDE ON LINK DEVICE 01551 M00S01466.1mr +++| ENDMS 01552 M00S01467.1mr +++| FAT1 LDN /MMF/FATI OBTAIN *FATI* INTERLOCK 01553 M00S01468.1mr +++| RJM SFR 01554 M00S01469.1mr +++| LDN 0 SET FAT WORD TO READ 01555 M00S01470.1mr +++| STD T2 01556 M00S01471.1mr +++| FAT2 LDD T3 SET FAST ATTACH TRACK ADDRESS 01557 M00S01472.1mr +++| SHN /MMF/FATS 01558 M00S01473.1mr +++| ADD T2 01559 M00S01474.1mr +++| ADD DA+1 01560 M00S01475.1mr +++| ADC /MMF/FAST*100 01561 M00S01476.1mr +++| STD CM+4 01562 M00S01477.1mr +++| SHN -14 01563 M00S01478.1mr +++| ADD DA 01564 M00S01479.1mr +++| ADD RE READ EXTENDED MEMORY 01565 M00S01480.1mr +++| STD CM+3 01566 M00S01481.1mr +++| LDN 1-1 SET WORD COUNT 01567 M00S01482.1mr +++| RJM ECS READ FAT WORD 01568 M00S01483.1mr +++| LDD T2 READ FAT ENTRY INTO BUFFER 01569 M00S01484.1mr +++| SHN 2 01570 M00S01485.1mr +++| ADD T2 01571 M00S01486.1mr +++| ADC BUFS 01572 M00S01487.1mr +++| STM FATA 01573 M00S01488.1mr +++| LDD MA 01574 M00S01489.1mr +++| CRM BUFS,ON 01575 M00S01490.1mr +++| FATA EQU *-1 01576 M00S01491.1mr +++| AOD T2 01577 M00S01492.1mr +++| LMN /MMF/MXMF+2 01578 M00S01493.1mr +++| NJN FAT2 IF NOT END OF WORDS TO READ 01579 M00S01494.1mr +++| LDD MD SET INDEX INTO ENTRY FOR DOWNED MACHINE 01580 M00S01495.1mr +++| SHN 2 01581 M00S01496.1mr +++| ADD MD 01582 M00S01497.1mr +++| STD T2 01583 M00S01498.1mr +++| STD T7 PRESET EXIT CONDITION 01584 M00S01499.1mr +++| LDN 0 ADJUST COUNTS 01585 M00S01500.1mr +++| SBM BUFS+5+2,T2 01586 M00S01501.1mr +++| RAM BUFS+5+2 01587 M00S01502.1mr +++| LDN 0 01588 M00S01503.1mr +++| SBM BUFS+5+3,T2 01589 M00S01504.1mr +++| RAM BUFS+5+3 01590 M00S01505.1mr +++| LDN 0 01591 M00S01506.1mr +++| SBM BUFS+5+4,T2 01592 M00S01507.1mr +++| RAM BUFS+5+4 01593 M00S01508.1mr +++| LDD MA WRITE GLOBAL COUNTS TO EXTENDED MEMORY 01594 M00S01509.1mr +++| CWM BUFS+5,ON 01595 M00S01510.1mr +++| LDN 1 01596 M00S01511.1mr +++| RJM WFW WRITE FAT WORD 01597 M00S01512.1mr +++| LDN ZERL 01598 M00S01513.1mr +++| CRD CM 01599 M00S01514.1mr +++| LDD MA 01600 M00S01515.1mr +++| CWD CM 01601 M00S01516.1mr +++| LDD MD 01602 M00S01517.1mr +++| ADN 1 01603 M00S01518.1mr +++| RJM WFW WRITE FAT WORD 01604 M00S01519.1mr +++| LDN 0 01605 M00S01520.1mr +++| STM BUFS+5,T2 ZERO SLOT FOR THIS MACHINE 01606 M00S01521.1mr +++| STD T2 01607 M00S01522.1mr +++| FAT3 LDM BUFS+2*5,T2 01608 M00S01523.1mr +++| NJN FAT4 IF FILE STILL ATTACHED 01609 M00S01524.1mr +++| LDN 5 01610 M00S01525.1mr +++| RAD T2 01611 M00S01526.1mr +++| LMK 5*/MMF/MXMF 01612 M00S01527.1mr +++| NJN FAT3 IF NOT END OF MACHINES TO CHECK 01613 M00S01528.1mr +++| STM FISS CLEAR FAST ATTACH STATUS 01614 M00S01529.1mr +++| STD T7 SET EXIT CONDITION 01615 M00S01530.1mr +++| LDN ZERL CLEAR ENTRY IN EXTENDED MEMORY 01616 M00S01531.1mr +++| CRD CM 01617 M00S01532.1mr +++| LDD MA 01618 M00S01533.1mr +++| CWD CM 01619 M00S01534.1mr +++| LDN 0 01620 M00S01535.1mr +++| RJM WFW WRITE WORD 0 OF FAT 01621 M00S01536.1mr +++| LDC PMFT*100 RESET FILE TYPE 01622 M00S01537.1mr +++| STM FNSS+4 01623 M00S01538.1mr +++| LDM CASS CLEAR WRITE MODE BITS IN ACCESS WORD 01624 M00S01539.1mr +++| LPC 7541 01625 M00S01540.1mr +++| STM CASS 01626 M00S01541.1mr +++| FAT4 LDN /MMF/FATI CLEAR *FATI* INTERLOCK 01627 M00S01542.1mr +++| RJM CFR 01628 M00S01543.1mr +++| LDD T7 01629 M00S01544.1mr +++| LJM FATX RETURN 01630 M00S01545.1mr +++| PDT SPACE 4,10 01631 M00S01546.1mr +++|** PDT - CLEAR DEVICE ACCESSED BIT IN DAT FOR DOWNED MACHINE. 01632 M00S01547.1mr +++|* 01633 M00S01548.1mr +++|* ENTRY (EQ) = EST ORDINAL. 01634 M00S01549.1mr +++|* 01635 M00S01550.1mr +++|* EXIT (A) = 0 IF NOT PROCESSING DEVICE. 01636 M00S01551.1mr +++|* (T6) = MST TRACK IF PROCESSING DEVICE. 01637 M00S01552.1mr +++|* 01638 M00S01553.1mr +++|* USES T3, T6. 01639 M00S01554.1mr +++|* 01640 M00S01555.1mr +++|* CALLS CKP, DAT. 01641 M00S01556.1mr +++| 01642 M00S01557.1mr +++| 01643 M00S01558.1mr +++| PDT SUBR ENTRY/EXIT 01644 M00S01559.1mr +++| LDD MK 01645 M00S01560.1mr +++| STM PDTA SET DOWNED MACHINE MASK 01646 M00S01561.1mr +++| LDD RE 01647 M00S01562.1mr +++| STD T3 SET READ OF DAT 01648 M00S01563.1mr +++| LDD EQ 01649 M00S01564.1mr +++| RJM DAT 01650 M00S01565.1mr +++| LDM BUFD+5+4 CHECK IF DOWNED MACHINE ACCESSING DEVICE 01651 M00S01566.1mr +++| LPC * 01652 M00S01567.1mr +++| PDTA EQU *-1 01653 M00S01568.1mr +++| ZJN PDTX IF DEVICE ACCESS NOT SET 01654 M00S01569.1mr +++| LMM BUFD+5+4 01655 M00S01570.1mr +++| STM BUFD+5+4 01656 M00S01571.1mr +++| LDM BUFD+4 SET MST TRACK FOR DEVICE 01657 M00S01572.1mr +++| STD T6 01658 M00S01573.1mr +++| RJM CKP SET CHECKPOINT BIT 01659 M00S01574.1mr +++| LDN 1 01660 M00S01575.1mr +++| UJN PDTX RETURN 01661 M00S01576.1mr +++| SFR SPACE 4,10 01662 M00S01577.1mr +++|** SFR - SET FLAG REGISTER BIT. 01663 M00S01578.1mr +++|* 01664 M00S01579.1mr +++|* ENTRY (A) = BIT NUMBER TO SET. 01665 M00S01580.1mr +++|* 01666 M00S01581.1mr +++|* ERROR TO *ERR* IF ERROR FLAG SET. 01667 M00S01582.1mr +++|* 01668 M00S01583.1mr +++|* USES T1, CM - CM+4. 01669 M00S01584.1mr +++|* 01670 M00S01585.1mr +++|* CALLS DAP, TFR. 01671 M00S01586.1mr +++|* 01672 M00S01587.1mr +++|* MACROS MONITOR. 01673 M00S01588.1mr +++| 01674 M00S01589.1mr +++| 01675 M00S01590.1mr +++| SFR2 LDD CP CLEAR MESSAGE 01676 M00S01591.1mr +++| ADN MS2W 01677 M00S01592.1mr +++| CWD CM 01678 M00S01593.1mr +++| 01679 M00S01594.1mr +++| SFR SUBR ENTRY/EXIT 01680 M00S01595.1mr +++| RJM TFR TOGGLE FLAG REGISTER BIT 01681 M00S01596.1mr +++| SFR1 LDD T1 SET BIT NUMBER 01682 M00S01597.1mr +++| SHN 6 01683 M00S01598.1mr +++| STD CM+1 01684 M00S01599.1mr +++| LDC SFRS*1000 01685 M00S01600.1mr +++| STD CM+3 01686 M00S01601.1mr +++| MONITOR ECSM 01687 M00S01602.1mr +++| LDD CM+1 01688 M00S01603.1mr +++| ZJN SFR2 IF BIT SET 01689 M00S01604.1mr +++| LDD CP 01690 M00S01605.1mr +++| ADN MS2W 01691 M00S01606.1mr +++| CWM SFRA,TR 01692 M00S01607.1mr +++| RJM DAP DELAY AND PAUSE 01693 M00S01608.1mr +++| NJN SFR1 IF NO OPERATOR DROP 01694 M00S01609.1mr +++| LDD T1 RESET BIT INTERLOCKED FLAG 01695 M00S01610.1mr +++| RJM TFR TOGGLE FLAG REGISTER BIT 01696 M00S01611.1mr +++| LJM ERR ERROR FLAG TERMINATION 01697 M00S01612.1mr +++| 01698 M00S01613.1mr +++| 01699 M00S01614.1mr +++| SFRA DATA C*WAITING FOR XXXI INTERLOCK.* 01700 M00S01615.1mr +++| TFRB SPACE 4,10 01701 M00S01616.1mr +++|** TFRB - TABLE OF FLAG REGISTER BIT INTERLOCKS. 01702 M00S01617.1mr +++|* 01703 M00S01618.1mr +++|* ENTRY = 3 WORDS. 01704 M00S01619.1mr +++|*T, TFRB 6/,1/I ,5/N ,24/FLAG BIT MNEMONIC
Figure TFRB
01705 M00S01620.1mr +++|* I FLAG BIT INTERLOCKED FLAG 01706 M00S01621.1mr +++|* N BIT NUMBER 01707 M00S01622.1mr +++| 01708 M00S01623.1mr +++| 01709 M00S01624.1mr +++| TFRB BSS 0 TABLE OF FLAG REGISTER BIT INTERLOCKS 01710 M00S01625.1mr +++| VFD 12//MMF/DATI,24/0LDATI DAT INTERLOCK 01711 M00S01626.1mr +++| VFD 12//MMF/FATI,24/0LFATI FAST ATTACH TRACK INTERLOCK
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01712 M01S00079.283l840 +++| VFD 12//MMF/BDTI,24/0LBDTI BDT INTERLOCK 01713 M00S01627.1mr +++| 01714 M00S01628.1mr +++| CON 0 TERMINATOR 01715 M00S01629.1mr +++| TFR SPACE 4,10 01716 M00S01630.1mr +++|** TFR - TOGGLE FLAG REGISTER BIT. 01717 M00S01631.1mr +++|* 01718 M00S01632.1mr +++|* ENTRY (A) = FLAG BIT NUMBER. 01719 M00S01633.1mr +++|* 01720 M00S01634.1mr +++|* USES T1, CM+2. 01721 M00S01635.1mr +++| 01722 M00S01636.1mr +++| 01723 M00S01637.1mr +++| TFR SUBR ENTRY/EXIT 01724 M00S01638.1mr +++| STD T1 01725 M00S01639.1mr +++| LDC TFRB-3 INITIALIZE BIT SEARCH 01726 M00S01640.1mr +++| STD CM+2 01727 M00S01641.1mr +++| TFR1 LDN 3 SEARCH FOR FLAG BIT 01728 M00S01642.1mr +++| RAD CM+2 01729 M00S01643.1mr +++| LDI CM+2 01730 M00S01644.1mr +++| ZJN * IF BIT NOT FOUND 01731 M00S01645.1mr +++| LMD T1 01732 M00S01646.1mr +++| LPN 37 01733 M00S01647.1mr +++| NJN TFR1 IF NOT FOUND 01734 M00S01648.1mr +++| LDI CM+2 TOGGLE BIT 01735 M00S01649.1mr +++| LMN 40 01736 M00S01650.1mr +++| STI CM+2 01737 M00S01651.1mr +++| LDM 1,CM+2 SET BIT MNEMONIC IN MESSAGE 01738 M00S01652.1mr +++| STM SFRA+6 01739 M00S01653.1mr +++| LDM 2,CM+2 01740 M00S01654.1mr +++| STM SFRA+7 01741 M00S01655.1mr +++| UJN TFRX RETURN 01742 M00S01656.1mr +++| WFW SPACE 4,10 01743 M00S01657.1mr +++|** WFW - WRITE FAT WORD. 01744 M00S01658.1mr +++|* 01745 M00S01659.1mr +++|* ENTRY (A) = RELATIVE FAT WORD TO WRITE. 01746 M00S01660.1mr +++|* (T3) = FAT INDEX. 01747 M00S01661.1mr +++|* MESSAGE BUFFER CONTAINS WORD TO WRITE. 01748 M00S01662.1mr +++|* 01749 M00S01663.1mr +++|* USES CM+3, CM+4. 01750 M00S01664.1mr +++|* 01751 M00S01665.1mr +++|* CALLS ECS. 01752 M00S01666.1mr +++| 01753 M00S01667.1mr +++| 01754 M00S01668.1mr +++| WFW SUBR ENTRY/EXIT 01755 M00S01669.1mr +++| SHN 22-/MMF/FATS 01756 M00S01670.1mr +++| ADD T3 01757 M00S01671.1mr +++| SHN /MMF/FATS 01758 M00S01672.1mr +++| ADD DA+1 SET FAST ATTACH TRACK ADDRESS 01759 M00S01673.1mr +++| ADC /MMF/FAST*100 01760 M00S01674.1mr +++| STD CM+4 01761 M00S01675.1mr +++| SHN -14 01762 M00S01676.1mr +++| ADD DA 01763 M00S01677.1mr +++| ADD WE 01764 M00S01678.1mr +++| STD CM+3 01765 M00S01679.1mr +++| LDN 1-1 WORD COUNT 01766 M00S01680.1mr +++| RJM ECS WRITE EXTENDED MEMORY 01767 M00S01681.1mr +++| UJN WFWX RETURN 01768 M00S01682.1mr +++| SPACE 4,5 01769 M00S01683.1mr +++| E1MR BSS 0 END OF ECS MMF CODE 01770 M00S01684.1mr +++| TITLE FUNCTION 0 - RETRIEVE DISPLAY INFORMATION. 01771 M00S01685.1mr +++| RDI SPACE 4,10 01772 M00S01686.1mr +++|** RDI - RETRIEVE DISPLAY INFORMATION. (FUNCTION 0) 01773 M00S01687.1mr +++|* 01774 M00S01688.1mr +++|* ENTRY (IR+3 - IR+4) = ADDR. 01775 M00S01689.1mr +++|* 01776 M00S01690.1mr +++|* ADDR ADDRESS OF TABLE OF SHARED DEVICES FOR THIS MACHINE. 01777 M00S01691.1mr +++|* 01778 M00S01692.1mr +++|* CALLS CAA, DAT. 01779 M00S01693.1mr +++|* 01780 M00S01694.1mr +++|* MACROS SFA. 01781 M00S01695.1mr +++| 01782 M00S01696.1mr +++| 01783 M00S01697.1mr +++| RDI SUBR ENTRY/EXIT 01784 M00S01698.1mr +++| LDK EFRL READ MACHINE STATE TABLE 01785 M00S01699.1mr +++| CRD CM 01786 M00S01700.1mr +++| LDN /MMF/MXMF SET MAXIMUM NUMBER OF MAINFRAMES 01787 M00S01701.1mr +++| STD T1 01788 M00S01702.1mr +++| LDD CM 01789 M00S01703.1mr +++| SHN 14 01790 M00S01704.1mr +++| LMD CM+1 01791 M00S01705.1mr +++| CRM BFMS,T1 01792 M00S01706.1mr +++| LDD RA WRITE STATE TABLE TO CM TABLE 01793 M00S01707.1mr +++| SHN 6 01794 M00S01708.1mr +++| ADK /MRT/TMID 01795 M00S01709.1mr +++| CWM BFMS,T1 01796 M00S01710.1mr +++| 01797 M00S01711.1mr +++|* RETURN MASKS OF MACHINES SHARING DEVICES WITH THIS MACHINE. 01798 M00S01712.1mr +++| 01799 M00S01713.1mr +++| LCN 0 SET TABLE INDEX 01800 M00S01714.1mr +++| STD SC 01801 M00S01715.1mr +++| RDI1 AOD SC INCREMENT TABLE INDEX 01802 M00S01716.1mr +++| RJM CAA 01803 M00S01717.1mr +++| ADD SC 01804 M00S01718.1mr +++| CRD CN READ TABLE ENTRY 01805 M00S01719.1mr +++| LDD CN+4 01806 M00S01720.1mr +++| ZJN RDIX IF END OF TABLE 01807 M00S01721.1mr +++| SFA EST 01808 M00S01722.1mr +++| ADK EQDE READ EST ENTRY 01809 M00S01723.1mr +++| CRD CM 01810 M00S01724.1mr +++| LDD CM 01811 M00S01725.1mr +++| SHN 21-6 01812 M00S01726.1mr +++| MJN RDI1 IF DEVICE UNAVAILABLE 01813 M00S01727.1mr +++| LDD RE 01814 M00S01728.1mr +++| STD T3 SET READ OPERATION 01815 M00S01729.1mr +++| LDD CN+4 01816 M00S01730.1mr +++| RJM DAT READ DAT ENTRY 01817 M00S01731.1mr +++| LDM BUFD+5+4 01818 M00S01732.1mr +++| LMC 0 CLEAR MASK OF THIS MACHINE 01819 M00S01733.1mr +++| RDIA EQU *-1 01820 M00S01734.1mr +++| STD CN SET MACHINE MASK 01821 M00S01735.1mr +++| RJM CAA 01822 M00S01736.1mr +++| ADD SC WRITE ENTRY BACK TO *MREC* 01823 M00S01737.1mr +++| CWD CN 01824 M00S01738.1mr +++| UJP RDI1 LOOP FOR NEXT DEVICE 01825 M00S01739.1mr +++| 01826 M00S01740.1mr +++| 01827 M00S01741.1mr +++| ERRNG BUFD-* CODE OVERFLOWS BUFFER 01828 M00S01742.1mr +++| TITLE FUNCTION 3 - CLEAR DEVICE INTERLOCKS. 01829 M00S01743.1mr +++| CDV SPACE 4,10 01830 M00S01744.1mr +++|** CDV - CLEAR DEVICE INTERLOCKS. (FUNCTION 3) 01831 M00S01745.1mr +++|* 01832 M00S01746.1mr +++|* ENTRY (IR+4) = MACHINE INDEX FOR WHICH TO CLEAR INTERLOCKS. 01833 M00S01747.1mr +++|* 01834 M00S01748.1mr +++|* EXIT TO *MRP2*. 01835 M00S01749.1mr +++|* 01836 M00S01750.1mr +++|* MACROS MONITOR. 01837 M00S01751.1mr +++| 01838 M00S01752.1mr +++| 01839 M00S01753.1mr +++| CDV8 MONITOR HNGM
| Line S01754 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01840 M01S01754.283l840 ---| CDV9 LDK EFRL CHANGE STATE OF DOWN MACHINE
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01841 M01S00080.283l840 +++| CDV9 LDK EFRL CHANGE STATE OF DOWN MACHINE 01842 M00S01755.1mr +++| CRD CM 01843 M00S01756.1mr +++| LDD CM 01844 M00S01757.1mr +++| SHN 14 01845 M00S01758.1mr +++| LMD CM+1 01846 M00S01759.1mr +++| ADD IR+4 01847 M00S01760.1mr +++| ADK /MMF/MFST-1 01848 M00S01761.1mr +++| CRD CN 01849 M00S01762.1mr +++| LDD CN+4 01850 M00S01763.1mr +++| LMN /MMF/MFMR 01851 M00S01764.1mr +++| NJN CDV8 IF NOT IN PROPER STATE 01852 M00S01765.1mr +++|* LDN /MMF/MFDN SET *1MR* DONE STATE 01853 M00S01766.1mr +++| ERRNZ /MMF/MFDN CODE DEPENDS ON VALUE OF TAG 01854 M00S01767.1mr +++| STD CN+4 01855 M00S01768.1mr +++| LDD CM WRITE STATE WORD 01856 M00S01769.1mr +++| SHN 14 01857 M00S01770.1mr +++| LMD CM+1 01858 M00S01771.1mr +++| ADD IR+4 01859 M00S01772.1mr +++| ADK /MMF/MFST-1 01860 M00S01773.1mr +++| CWD CN 01861 M00S01774.1mr +++| LJM MRP2 EXIT TO DROP PP ONLY 01862 M00S01775.1mr +++| 01863 M00S01776.1mr +++| CDV SUBR ENTRY/EXIT 01864 M00S01777.1mr +++| LDK ESTP PRESET EQUIPMENT SEARCH 01865 M00S01778.1mr +++| CRD CM 01866 M00S01779.1mr +++| LDD CM+3 01867 M00S01780.1mr +++| STD EQ 01868 M00S01781.1mr +++| CDV1 SOD EQ 01869 M00S01782.1mr +++| ZJN CDV9 IF END OF EQUIPMENTS
| Line S01783 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01870 M01S01783.283l840 ---| STD CM+1 01871 M00S01784.1mr +++| SFA EST
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01872 M01S00081.283l840 +++| ADK EQDE 01873 M00S01785.1mr +++| CRD CN 01874 M00S01786.1mr +++| LDD CN 01875 M00S01787.1mr +++| LPC 5020 01876 M00S01788.1mr +++| LMC 5000 01877 M00S01789.1mr +++| NJN CDV1 IF NOT MMF SHARED DEVICE 01878 M00S01790.1mr +++| 01879 M00S01791.1mr +++|* OBTAIN DEVICE INTERLOCK WHILE PROCESSING TRACK INTERLOCKS. 01880 M00S01792.1mr +++|
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01881 M01S00082.283l840 +++| RJM CBI CLEAR SHARED BUFFERED DEVICE INTERLOCKS 01882 M01S00083.283l840 +++| LDD EQ SET EST ORDINAL 01883 M01S00084.283l840 +++| STD CM+1 01884 M00S01793.1mr +++| LDN SDIS INTERLOCK DEVICE 01885 M00S01794.1mr +++| STD CM+3 01886 M00S01795.1mr +++| MONITOR STBM 01887 M00S01796.1mr +++| LDD CN+4 GET TRT ADDRESS 01888 M00S01797.1mr +++| SHN 3 01889 M00S01798.1mr +++| ADK TDGL 01890 M00S01799.1mr +++| CRD T1 01891 M00S01800.1mr +++| ADK SDGL-TDGL 01892 M00S01801.1mr +++| CRD T6 (T6 - T6+1) = EM ADDRESS OF MST 01893 M00S01802.1mr +++| ADK TRLL-SDGL 01894 M00S01803.1mr +++| CRD CN+3-4 (CN+2 - CN+3) = TRT ADDRESS 01895 M00S01804.1mr +++| LDD T1+2 SET TRT LENGTH 01896 M00S01805.1mr +++| STD TC 01897 M00S01806.1mr +++| LDN 0 SET CURRENT TRT WORD 01898 M00S01807.1mr +++| STD CN 01899 M00S01808.1mr +++| UJN CDV3 ENTER LOOP 01900 M00S01809.1mr +++| 01901 M00S01810.1mr +++|* LOOP THROUGH TRT WORDS CHECKING FOR INTERLOCKED TRACKS. 01902 M00S01811.1mr +++| 01903 M00S01812.1mr +++| CDV2 AOD CN ADVANCE TRT WORD 01904 M00S01813.1mr +++| SBD TC 01905 M00S01814.1mr +++| PJP CDV4 IF END OF TRT 01906 M00S01815.1mr +++| CDV3 LDD CN+2 READ TRT WORD 01907 M00S01816.1mr +++| SHN 14 01908 M00S01817.1mr +++| LMD CN+3 01909 M00S01818.1mr +++| ADD CN 01910 M00S01819.1mr +++| CRD T1 01911 M00S01820.1mr +++| LDD T1+4 01912 M00S01821.1mr +++| SHN -4 01913 M00S01822.1mr +++| LPN 17 01914 M00S01823.1mr +++| ZJN CDV2 IF NO TRACK INTERLOCK BITS SET 01915 M00S01824.1mr +++| 01916 M00S01825.1mr +++|* INTERLOCKED TRACK(S) FOUND, CHECK IF HELD BY DOWN MACHINE. 01917 M00S01826.1mr +++| 01918 M00S01827.1mr +++| ADC TCDVB GET INTERLOCK BITS IN MRT ORDER 01919 M00S01828.1mr +++| STD T0 01920 M00S01829.1mr +++| LDI T0 01921 M00S01830.1mr +++| STM CDVB (CDVB) = TRACK INTERLOCK BITS (MRT ORDER) 01922 M00S01831.1mr +++| LDD IR+4 COMPUTE EXTENDED MEMORY MRT ADDRESS 01923 M00S01832.1mr +++| SHN 6+3 01924 M00S01833.1mr +++| ADD CN 01925 M00S01834.1mr +++| SHN -3 01926 M00S01835.1mr +++| ADC /MMF/MRST*100-100 01927 M00S01836.1mr +++| STD SC ADDRESS OF MRT WORD IN TRACK 01928 M00S01837.1mr +++| ADD T6+1 01929 M00S01838.1mr +++| STD CM+4 01930 M00S01839.1mr +++| SHN -14 01931 M00S01840.1mr +++| ADD T6 01932 M00S01841.1mr +++| ADD RE 01933 M00S01842.1mr +++| STD CM+3 01934 M00S01843.1mr +++| LDD MA SET CM ADDRESS 01935 M00S01844.1mr +++| STD CM+2 01936 M00S01845.1mr +++| LDN 0 SET WORD COUNT TO 1 01937 M00S01846.1mr +++| STD CM+1 01938 M00S01847.1mr +++| MONITOR ECSM 01939 M00S01848.1mr +++| LDD MA READ MRT WORD 01940 M00S01849.1mr +++| CRD CM 01941 M00S01850.1mr +++| 01942 M00S01851.1mr +++|* CHECK MRT WORD OF DOWN MACHINE TO SEE IF IT HAS INTERLOCKS. 01943 M00S01852.1mr +++| 01944 M00S01853.1mr +++| LDD CN COMPUTE MRT BYTE 01945 M00S01854.1mr +++| LPN 7 01946 M00S01855.1mr +++| STD BI 01947 M00S01856.1mr +++| LDM TCDV,BI SET BYTE FROM TABLE 01948 M00S01857.1mr +++| STD BY 01949 M00S01858.1mr +++| LDM TCDVA,BI SET MRT SHIFTS 01950 M00S01859.1mr +++| STM CDVA 01951 M00S01860.1mr +++| LMN 77 01952 M00S01861.1mr +++| STM CDVC 01953 M00S01862.1mr +++| LDI BY 01954 M00S01863.1mr +++| CDVA SHN ** SHIFT MRT BITS TO BITS 4 - 7 01955 M00S01864.1mr +++| LPC ** 01956 M00S01865.1mr +++| CDVB EQU *-1 01957 M00S01866.1mr +++| ZJP CDV2 IF NO INTERLOCKS HELD BY THIS MACHINE 01958 M00S01867.1mr +++| STD T0 SAVE INTERLOCKS CLEARED 01959 M00S01868.1mr +++| CDVC SHN ** SHIFT BACK 01960 M00S01869.1mr +++| LMI BY 01961 M00S01870.1mr +++| STI BY 01962 M00S01871.1mr +++| 01963 M00S01872.1mr +++|* CLEAR TRACK INTERLOCK BITS IN TRT WORD. 01964 M00S01873.1mr +++| 01965 M00S01874.1mr +++| LDD T0 GET INTERLOCK BITS CLEARED IN TRT ORDER 01966 M00S01875.1mr +++| SHN -4 01967 M00S01876.1mr +++| ADC TCDVB 01968 M00S01877.1mr +++| STD T0 01969 M00S01878.1mr +++| LDI T0 01970 M00S01879.1mr +++| LMD T1+4 01971 M00S01880.1mr +++| STD T1+4 01972 M00S01881.1mr +++| LDD CN+2 WRITE TRT WORD 01973 M00S01882.1mr +++| SHN 14 01974 M00S01883.1mr +++| ADD CN+3 01975 M00S01884.1mr +++| ADD CN 01976 M00S01885.1mr +++| CWD T1 01977 M00S01886.1mr +++| 01978 M00S01887.1mr +++|* REWRITE MRT WORD TO EXTENDED MEMORY. 01979 M00S01888.1mr +++| 01980 M00S01889.1mr +++| LDD MA SET CM ADDRESS 01981 M00S01890.1mr +++| CWD CM WRITE MRT WORD TO MB 01982 M00S01891.1mr +++| STD CM+2 01983 M00S01892.1mr +++| LDD SC SET ADDRESS OF MRT WORD 01984 M00S01893.1mr +++| ADD T6+1 01985 M00S01894.1mr +++| STD CM+4 01986 M00S01895.1mr +++| SHN -14 01987 M00S01896.1mr +++| ADD T6 01988 M00S01897.1mr +++| ADD WE 01989 M00S01898.1mr +++| STD CM+3 01990 M00S01899.1mr +++| LDN 0 SET WORD COUNT TO 1 01991 M00S01900.1mr +++| STD CM+1 01992 M00S01901.1mr +++| MONITOR ECSM 01993 M00S01902.1mr +++| LJM CDV2 PROCESS NEXT TRT WORD 01994 M00S01903.1mr +++| 01995 M00S01904.1mr +++|* ADJUST *PFM* ACTIVITY COUNTS. 01996 M00S01905.1mr +++| 01997 M00S01906.1mr +++| CDV4 LDN GLGL-LLLL COMPUTE EM ADDRESS OF LOCAL MST 01998 M00S01907.1mr +++| STD SC 01999 M00S01908.1mr +++| LDN 0 02000 M00S01909.1mr +++| STD T0 02001 M00S01910.1mr +++| CDV5 LDN LLLL 02002 M00S01911.1mr +++| RAD SC 02003 M00S01912.1mr +++| AOD T0 02004 M00S01913.1mr +++| LMD IR+4 02005 M00S01914.1mr +++| NJN CDV5 IF NOT END OF COMPUTATION 02006 M00S01915.1mr +++| ERRNG 6-LLLL LOCAL MST EXCEEDS MESSAGE BUFFER 02007 M00S01916.1mr +++| LDD SC SET EXTENDED MEMORY ADDRESS FOR *ECSM* 02008 M00S01917.1mr +++| ADD T6+1 02009 M00S01918.1mr +++| STD CM+4 02010 M00S01919.1mr +++| SHN -14 02011 M00S01920.1mr +++| ADD T6 02012 M00S01921.1mr +++| ADD RE 02013 M00S01922.1mr +++| STD CM+3 02014 M00S01923.1mr +++| LDD MA SET CM ADDRESS 02015 M00S01924.1mr +++| STD CM+2 02016 M00S01925.1mr +++| LDC LLLL*100-100 02017 M00S01926.1mr +++| STD CM+1 02018 M00S01927.1mr +++| MONITOR ECSM 02019 M00S01928.1mr +++| LDD MA READ LOCAL AREA 02020 M00S01929.1mr +++| CRM MBUF,SX 02021 M00S01930.1mr +++| 02022 M00S01931.1mr +++|* SUBTRACT LOCAL PF COUNTS FROM GLOBAL. 02023 M00S01932.1mr +++| 02024 M00S01933.1mr +++| LDD CN+4 READ GLOBAL COUNT WORD FROM CM MST 02025 M00S01934.1mr +++| SHN 3 02026 M00S01935.1mr +++| ADK TDGL 02027 M00S01936.1mr +++| CRD CM 02028 M00S01937.1mr +++| LDD CM+1 02029 M00S01938.1mr +++| ZJN CDV7 IF NO COUNTS SET 02030 M00S01939.1mr +++| SBM MBUF+DULL*5-GLGL*5+1 02031 M00S01940.1mr +++| MJN CDV6 IF COUNTER UNDERFLOW 02032 M00S01941.1mr +++| STD CM+1 02033 M00S01942.1mr +++| CDV6 LDN 0 02034 M00S01943.1mr +++| STM MBUF+DULL*5-GLGL*5+1 02035 M00S01944.1mr +++| LDD CN+4 02036 M00S01945.1mr +++| SHN 3 02037 M00S01946.1mr +++| ADK TDGL
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1mr.txt · Last modified: by 127.0.0.1