Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:1mu
Deck 1MU
Library Member Format: MODIFY
Listing Sections
- Deck 1MU Start
- Deck 1MU Part 1 (Line 2057)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.1mu +++| IDENT 1MU,IMU 00002 M00S00002.1mu +++| PERIPH 00003 M00S00003.1mu +++| BASE MIXED 00004 M00S00004.1mu +++| SST 00005 M00S00005.1mu +++|*COMMENT 1MU - MAGNET AUXILIARY PROCESSOR. 00006 M00S00006.1mu +++| COMMENT COPYRIGHT CONTROL SYSTEMS INC. 1993. 00007 M00S00007.1mu +++| TITLE 1MU - MAGNET AUXILIARY PROCESSOR. 00008 M00S00008.1mu +++| SPACE 4 00009 M00S00009.1mu +++|*** 1MU - MAGNET AUXILIARY PROCESSOR. 00010 M00S00010.1mu +++|* G. S. YODER. 93/09/23. 00011 M00S00011.1mu +++| SPACE 4 00012 M00S00012.1mu +++|*** *1MU* PERFORMS FUNCTIONS FOR MAGNET THAT DO NOT REQUIRE 00013 M00S00013.1mu +++|* HARDWARE ACCESS TO TAPE UNITS. 00014 M00S00014.1mu +++| SPACE 4 00015 M00S00015.1mu +++|*** CALL. 00016 M00S00016.1mu +++|* 00017 M00S00017.1mu +++|* 00018 M00S00018.1mu +++|*T RA+1 18/ *1MU*,1/0,5/ CP,36/ 0
Figure RA+1
00019 M00S00019.1mu +++| SPACE 4 00020 M00S00020.1mu +++|** ASSEMBLY CONSTANTS. 00021 M00S00021.1mu +++| 00022 M00S00022.1mu +++| 00023 M00S00023.1mu +++| QUAL$ EQU 1 DEFINE UNQUALIFIED COMMON DECKS 00024 M00S00024.1mu +++| SPACE 4 00025 M00S00025.1mu +++|** COMMON DECKS. 00026 M00S00026.1mu +++| 00027 M00S00027.1mu +++| 00028 M00S00028.1mu +++|*CALL COMPMAC 00029 M00S00029.1mu +++| QUAL ATF 00030 M00S00030.1mu +++|*CALL COMSATF 00031 M00S00031.1mu +++| QUAL * 00032 M00S00032.1mu +++|*CALL COMSCPS 00033 M00S00033.1mu +++| QUAL DFS 00034 M00S00034.1mu +++| QUAL$S EQU 1 DO NOT QUALIFY *COMSDFS* 00035 M00S00035.1mu +++|*CALL COMSDFS 00036 M00S00036.1mu +++| QUAL * 00037 M00S00037.1mu +++|*CALL COMSEJT 00038 M00S00038.1mu +++|*CALL COMSEVT 00039 M00S00039.1mu +++|*CALL COMSMSP 00040 M00S00040.1mu +++| LIST X 00041 M00S00041.1mu +++| QUAL MTX 00042 M00S00042.1mu +++|*CALL COMSMTX 00043 M00S00043.1mu +++| QUAL * 00044 M00S00044.1mu +++| LIST * 00045 M00S00045.1mu +++|*CALL COMSPFM 00046 M00S00046.1mu +++|*CALL COMSPIM 00047 M00S00047.1mu +++| QUAL RSX 00048 M00S00048.1mu +++|*CALL COMSRSX 00049 M00S00049.1mu +++| QUAL * 00050 M00S00050.1mu +++|*CALL COMSSSD 00051 M00S00051.1mu +++|*CALL COMSSRU 00052 M00S00052.1mu +++|*CALL COMSZOL 00053 M00S00053.1mu +++| SPACE 4 00054 M00S00054.1mu +++|** DIRECT LOCATION ASSIGNMENTS. 00055 M00S00055.1mu +++| 00056 M00S00056.1mu +++| 00057 M00S00057.1mu +++| T8 EQU 16 TEMPORARY 00058 M00S00058.1mu +++| T9 EQU 17 TEMPORARY 00059 M00S00059.1mu +++| CN EQU 20 - 24 CENTRAL MEMORY BUFFER 00060 M00S00060.1mu +++| ED EQU 25 EQUIPMENT DESCRIPTION 00061 M00S00061.1mu +++| HP EQU 26 HARDWARE PARAMETERS 00062 M00S00062.1mu +++| EO EQU 27 EST ORDINAL 00063 M00S00063.1mu +++| ES EQU 30 EXTENDED STATUS 00064 M00S00064.1mu +++| DS EQU 31 DEVICE STATUS 00065 M00S00065.1mu +++| EI EQU 32 ERROR ITERATIONS 00066 M00S00066.1mu +++| WP EQU 33 BID WINDOW POINTER (MTS/ATS) 00067 M00S00067.1mu +++| BL EQU 34 - 35 BLOCK COUNT 00068 M00S00068.1mu +++| UP EQU 36 USER OPTIONS, FLAGS 00069 M00S00069.1mu +++| LG EQU 37 - 40 LENGTH OF LAST GOOD RECORD 00070 M00S00070.1mu +++| EP EQU 41 - 42 ERROR PARAMETERS 00071 M00S00071.1mu +++| EC EQU 43 ERROR CODE 00072 M00S00072.1mu +++| LT EQU 44 LABEL TYPE, DEVICE TYPE, REQUESTED DENSITY 00073 M00S00073.1mu +++| SP EQU 45 SOFTWARE OPTIONS 00074 M00S00074.1mu +++| FM EQU 46 TAPE FORMAT AND NOISE BYTE DEFINITION 00075 M00S00075.1mu +++| WC EQU 47 CM WORDS PER PRU 00076 M00S00076.1mu +++| OV EQU 50 CHUNK COUNT - LONG BLOCKS 00077 M00S00077.1mu +++| FO EQU 51 FAST ATTACH FILE FNT ORDINAL 00078 M00S00078.1mu +++| AM EQU 52 FAST ATTACH FILE ACCESS MODE 00079 M00S00079.1mu +++| RI EQU 53 - 54 RANDOM INDEX 00080 M00S00080.1mu +++| FA EQU 57 LOCAL FNT ADDRESS 00081 M00S00081.1mu +++| RS EQU 60 RETURN STATUS 00082 M00S00082.1mu +++| FN EQU 61 FUNCTION NUMBER 00083 M00S00083.1mu +++| MD EQU 62 DRIVER MODE FUNCTION 00084 M00S00084.1mu +++| PA EQU 63 PARAMETER 00085 M00S00085.1mu +++| PB EQU 64 PARAMETER 00086 M00S00086.1mu +++| TITLE MACROS. 00087 M00S00087.1mu +++|** OVERLAY CONTROL DEFINITIONS. 00088 M00S00088.1mu +++| NOREF .I 00089 M00S00089.1mu +++| NOREF .N 00090 M00S00090.1mu +++| .I SET /MTX/MDFN*2 00091 M00S00091.1mu +++| .N SET 0 00092 M00S00092.1mu +++| OVLB MICRO 1,, 3M BASE OVERLAY NAME 00093 M00S00093.1mu +++| ENTRY SPACE 4,10 00094 M00S00094.1mu +++|** ENTRY - DEFINE OVERLAY ENTRY POINT. 00095 M00S00095.1mu +++|* 00096 M00S00096.1mu +++|* 00097 M00S00097.1mu +++|* ENTRY NAME 00098 M00S00098.1mu +++| 00099 M00S00099.1mu +++| 00100 M00S00100.1mu +++| PURGMAC ENTRY 00101 M00S00101.1mu +++| 00102 M00S00102.1mu +++| ENTRY MACRO NAME 00103 M00S00103.1mu +++| QUAL 00104 M00S00104.1mu +++| NAME EQU *+1R".M"*10000 00105 M00S00105.1mu +++| QUAL ".O" 00106 M00S00106.1mu +++| ENDM 00107 M00S00107.1mu +++| FCN SPACE 4,10 00108 M00S00108.1mu +++|** FCN - DEFINE FUNCTION PROCESSOR. 00109 M00S00109.1mu +++|* 00110 M00S00110.1mu +++|* 00111 M00S00111.1mu +++|* FCN NAME,FUN 00112 M00S00112.1mu +++|* 00113 M00S00113.1mu +++|* ENTRY *NAME* = NAME OF FUNCTION PROCESSOR. 00114 M00S00114.1mu +++|* *FUN* = *COMSMTX* FUNCTION CODE. 00115 M00S00115.1mu +++| 00116 M00S00116.1mu +++| 00117 M00S00117.1mu +++| FCN MACRO A,B 00118 M00S00118.1mu +++| LOC .I/2 00119 M00S00119.1mu +++| ERRNZ .I/2-B ERROR IN FUNCTION PROCESSOR DEFINITION 00120 M00S00120.1mu +++| CON A/10000,A-A/10000*10000 00121 M00S00121.1mu +++| .I SET .I+2 00122 M00S00122.1mu +++| ENDM 00123 M00S00123.1mu +++| OVERLAY SPACE 4 00124 M00S00124.1mu +++|** OVERLAY - GENERATE OVERLAY CONSTANTS. 00125 M00S00125.1mu +++|* 00126 M00S00126.1mu +++|* 00127 M00S00127.1mu +++|* OVERLAY (TEXT) 00128 M00S00128.1mu +++| 00129 M00S00129.1mu +++| 00130 M00S00130.1mu +++| PURGMAC OVERLAY 00131 M00S00131.1mu +++| 00132 M00S00132.1mu +++| OVERLAY MACRO TEXT 00133 M00S00133.1mu +++| QUAL 00134 M00S00134.1mu +++| .N SET .N+1 00135 M00S00135.1mu +++| .M MICRO .N,1, 56789 00136 M00S00136.1mu +++| .O MICRO 1,3, "OVLB"".M" 00137 M00S00137.1mu +++| QUAL ".O" 00138 M00S00138.1mu +++| TTL 1MU/".O" - TEXT 00139 M00S00139.1mu +++| TITLE 00140 M00S00140.1mu +++| IDENT ".O",OVL TEXT 00141 M00S00141.1mu +++|*COMMENT 1MU - TEXT 00142 M00S00142.1mu +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1993. 00143 M00S00143.1mu +++| ORG OVL 00144 M00S00144.1mu +++| LJM * 00145 M00S00145.1mu +++| UJN *-2 00146 M00S00146.1mu +++| ENDM 00147 M00S00147.1mu +++| TITLE MAIN ROUTINES. 00148 M00S00148.1mu +++|** 1MU - MAIN PROGRAM. 00149 M00S00149.1mu +++| 00150 M00S00150.1mu +++| 00151 M00S00151.1mu +++| ORG PPFW 00152 M00S00152.1mu +++| 00153 M00S00153.1mu +++| IMU RJM PRS PRESET 00154 M00S00154.1mu +++| RJM UUF UPDATE UNIT FLAGS 00155 M00S00155.1mu +++| RJM CSJ CHECK STAGING JOBS 00156 M00S00156.1mu +++| RJM UDT PROCESS UDT REQUESTS 00157 M00S00157.1mu +++| LDN ZERL 00158 M00S00158.1mu +++| CRD CM 00159 M00S00159.1mu +++| LDD RA CLEAR *1MU* ACTIVE 00160 M00S00160.1mu +++| SHN 6 00161 M00S00161.1mu +++| ADK /MTX/APS 00162 M00S00162.1mu +++| CWD CM 00163 M00S00163.1mu +++| MONITOR DPPM DROP PP 00164 M00S00164.1mu +++| LJM PPR RETURN TO PP RESIDENT 00165 M00S00165.1mu +++| UDT SPACE 4,10 00166 M00S00166.1mu +++|** UDT - PROCESS UDT REQUESTS. 00167 M00S00167.1mu +++|* 00168 M00S00168.1mu +++|* ENTRY (UDTA) = ADDRESS OF FIRST UDT ENTRY. 00169 M00S00169.1mu +++|* 00170 M00S00170.1mu +++|* EXIT (UDTA) = ADDRESS OF FIRST UDT ENTRY. 00171 M00S00171.1mu +++|* 00172 M00S00172.1mu +++|* CALLS AUA, UAD. 00173 M00S00173.1mu +++| 00174 M00S00174.1mu +++| 00175 M00S00175.1mu +++| 00176 M00S00176.1mu +++| UDT SUBR ENTRY/EXIT 00177 M00S00177.1mu +++| UJN UDT6 CHECK FIRST UNIT 00178 M00S00178.1mu +++| 00179 M00S00179.1mu +++|* NORMAL COMPLETION EXIT. 00180 M00S00180.1mu +++| 00181 M00S00181.1mu +++| UDT1 LDN /MTX/NCP SET NORMAL COMPLETION 00182 M00S00182.1mu +++| UJN UDT4 SET COMPLETION STATUS 00183 M00S00183.1mu +++| 00184 M00S00184.1mu +++|* REQUEUE ON JOB ROLLED OUT EXIT. 00185 M00S00185.1mu +++| 00186 M00S00186.1mu +++| UDT2 LDN /MTX/RJB SET REQUEUE ON JOB ROLLED OUT 00187 M00S00187.1mu +++| UJN UDT4 SET COMPLETION STATUS 00188 M00S00188.1mu +++| 00189 M00S00189.1mu +++|* ERROR RETURN EXIT. 00190 M00S00190.1mu +++| 00191 M00S00191.1mu +++| UDT3 LDN /MTX/ERR SET ERROR STATUS 00192 M00S00192.1mu +++| 00193 M00S00193.1mu +++|* SET REQUEST STATUS EXIT. 00194 M00S00194.1mu +++| 00195 M00S00195.1mu +++| UDT4 STD RS SET REQUEST STATUS 00196 M00S00196.1mu +++| 00197 M00S00197.1mu +++|* UPDATE UDT. 00198 M00S00198.1mu +++| 00199 M00S00199.1mu +++| LDN 0 DO NOT COMPLETE FET 00200 M00S00200.1mu +++| RJM RCP RETURN TO MAGNET CP 00201 M00S00201.1mu +++| RJM UAD 00202 M00S00202.1mu +++| ADK /MTX/UST2 UPDATE UDT PARAMETERS 00203 M00S00203.1mu +++| CWM EI,TR 00204 M00S00204.1mu +++| CWM DNCV,ON 00205 M00S00205.1mu +++| ADK /MTX/UXRQ-/MTX/UST5-1 SET RESPONSE STATUS 00206 M00S00206.1mu +++| CWD RS 00207 M00S00207.1mu +++| 00208 M00S00208.1mu +++|* CHECK NEXT UNIT. 00209 M00S00209.1mu +++| 00210 M00S00210.1mu +++| UDT5 RJM AUA ADVANCE UDT ADDRESS 00211 M00S00211.1mu +++| ZJN UDTX IF END OF UNITS 00212 M00S00212.1mu +++| UDT6 RJM UAD 00213 M00S00213.1mu +++| ADK /MTX/UXRQ GET REQUEST 00214 M00S00214.1mu +++| CRD RS 00215 M00S00215.1mu +++| LDD RS 00216 M00S00216.1mu +++| NJN UDT5 IF REQUEST IN PROGRESS OR COMPLETE 00217 M00S00217.1mu +++| LDD FN 00218 M00S00218.1mu +++| LPN 77 00219 M00S00219.1mu +++| SBN /MTX/MDFN 00220 M00S00220.1mu +++| MJN UDT5 IF NO REQUEST OR *1MT* REQUEST 00221 M00S00221.1mu +++| SHN 1 SET *TFCN* INDEX 00222 M00S00222.1mu +++| STD CN 00223 M00S00223.1mu +++| SBN /MTX/MFUN*2-/MTX/MDFN*2 00224 M00S00224.1mu +++| PJN UDT5 IF NOT *1MU* REQUEST 00225 M00S00225.1mu +++| 00226 M00S00226.1mu +++|* PROCESS REQUEST. 00227 M00S00227.1mu +++| 00228 M00S00228.1mu +++| LDN /MTX/RIP SET REQUEST IN PROGRESS FOR RECOVERY 00229 M00S00229.1mu +++| STD RS 00230 M00S00230.1mu +++| RJM UAD 00231 M00S00231.1mu +++| ADK /MTX/UXRQ UPDATE REQUEST STATUS 00232 M00S00232.1mu +++| CWD RS 00233 M00S00233.1mu +++| ADK /MTX/UST1-/MTX/UXRQ SET UDT CELLS 00234 M00S00234.1mu +++| CRM ED,TR 00235 M00S00235.1mu +++| CRD LT 00236 M00S00236.1mu +++| ADK /MTX/UST5-/MTX/UST4 00237 M00S00237.1mu +++| CRM DNCV,ON 00238 M00S00238.1mu +++| LDM TFCN,CN SET OVERLAY NAME 00239 M00S00239.1mu +++| ADC 2L"OVLB" 00240 M00S00240.1mu +++| RJM EXR LOAD OVERLAY 00241 M00S00241.1mu +++| LDM TFCN+1,CN SET ENTRY ADDRESS 00242 M00S00242.1mu +++| STD T1 00243 M00S00243.1mu +++| LJM 0,T1 PROCESS REQUEST 00244 M00S00244.1mu +++| 00245 M00S00245.1mu +++| 00246 M00S00246.1mu +++| TFCN BSS 0 00247 M00S00247.1mu +++| 00248 M00S00248.1mu +++| FCN CUF,/MTX/CUF COMPLETE USER FET 00249 M00S00249.1mu +++| FCN MAB,/MTX/MAB ISSUE MESSAGE AND ABORT REQUEST
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 00250 M01S00001.ns2773 +++| FCN CJE,/MTX/CJE CHECK JOB ERROR FLAG 00251 M00S00250.1mu +++| FCN PAF,/MTX/AFN AUXILIARY PROCESSOR FUNCTION 00252 M00S00251.1mu +++| 00253 M00S00252.1mu +++| LOC *O 00254 M00S00253.1mu +++| 00255 M00S00254.1mu +++| NCPX EQU UDT1 NORMAL COMPLETION EXIT 00256 M00S00255.1mu +++| RJBX EQU UDT2 REQUEUE ON JOB ROLLED OUT EXIT 00257 M00S00256.1mu +++| ERRX EQU UDT3 ERROR RETURN EXIT 00258 M00S00257.1mu +++| SRSX EQU UDT4 SET REQUEST STATUS EXIT 00259 M00S00258.1mu +++| TITLE SUBROUTINES. 00260 M00S00259.1mu +++| AUA SPACE 4,10 00261 M00S00260.1mu +++|** AUA - ADVANCE UDT ADDRESS. 00262 M00S00261.1mu +++|* 00263 M00S00262.1mu +++|* ENTRY (UDTA) = CURRENT UDT ADDRESS. 00264 M00S00263.1mu +++|* 00265 M00S00264.1mu +++|* EXIT (A) .NE. 0 IF NOT LAST UDT ON ENTRY. 00266 M00S00265.1mu +++|* (A) = 0 IF LAST UDT ON ENTRY. 00267 M00S00266.1mu +++|* (UDTA) = NEXT UDT ADDRESS IF NOT LAST UDT ON ENTRY. 00268 M00S00267.1mu +++|* (UDTA) = FIRST UDT ADDRESS IF LAST UDT ON ENTRY. 00269 M00S00268.1mu +++| 00270 M00S00269.1mu +++| 00271 M00S00270.1mu +++| AUA SUBR ENTRY/EXIT 00272 M00S00271.1mu +++| LDK /MTX/UNITL 00273 M00S00272.1mu +++| RAM UDTA 00274 M00S00273.1mu +++| LMC 0 00275 M00S00274.1mu +++| AUAA EQU *-1 (UDT LWA+1) 00276 M00S00275.1mu +++| NJN AUAX IF NOT END OF UDT 00277 M00S00276.1mu +++| LDC 0 SET TO FIRST ENTRY 00278 M00S00277.1mu +++| AUAB EQU *-1 (UDT FWA) 00279 M00S00278.1mu +++| STM UDTA 00280 M00S00279.1mu +++| LDN 0 SET END OF UDT 00281 M00S00280.1mu +++| UJN AUAX RETURN 00282 M00S00281.1mu +++| CCP SPACE 4,10 00283 M00S00282.1mu +++|** CCP - CHANGE TO USER CONTROL POINT. 00284 M00S00283.1mu +++|* 00285 M00S00284.1mu +++|* EXIT (A) = 0 IF CHANGE MADE. 00286 M00S00285.1mu +++|* (A) .NE. 0 IF CHANGE NOT MADE. 00287 M00S00286.1mu +++|* 00288 M00S00287.1mu +++|* USES CM - CM+4, CN - CN+4, T1 - T1+4. 00289 M00S00288.1mu +++|* 00290 M00S00289.1mu +++|* CALLS UAD. 00291 M00S00290.1mu +++|* 00292 M00S00291.1mu +++|* MACROS MONITOR. 00293 M00S00292.1mu +++| 00294 M00S00293.1mu +++| 00295 M00S00294.1mu +++| CCP SUBR ENTRY/EXIT 00296 M00S00295.1mu +++| RJM UAD 00297 M00S00296.1mu +++| ADK /MTX/UVRI GET EJT ORDINAL 00298 M00S00297.1mu +++| CRD CN 00299 M00S00298.1mu +++| SFA EJT,CN 00300 M00S00299.1mu +++| ADK JSNE 00301 M00S00300.1mu +++| CRD CM GET JOB STATUS 00302 M00S00301.1mu +++| ADK SCHE-JSNE 00303 M00S00302.1mu +++| CRD T1 GET CP NUMBER 00304 M00S00303.1mu +++| LDD CM+4 00305 M00S00304.1mu +++| LPC 176 00306 M00S00305.1mu +++| LMN EXJS*2 00307 M00S00306.1mu +++| NJN CCPX IF JOB ROLLED OUT OR INTERLOCKED 00308 M00S00307.1mu +++| LDD T1+3 SET CP NUMBER 00309 M00S00308.1mu +++| ADK RCMS+ALCS SET MOVE REJECT AND ALTERNATE CP 00310 M00S00309.1mu +++| STD CM+1 00311 M00S00310.1mu +++| MONITOR CCAM SET ACCESS TO USER CP 00312 M00S00311.1mu +++| LDD CM+1 00313 M00S00312.1mu +++| NJN CCPX IF CHANGE NOT MADE 00314 M00S00313.1mu +++| AOM RCPB SET USER CP FLAG 00315 M00S00314.1mu +++| LDD CP 00316 M00S00315.1mu +++| ADK TFSW VERIFY JOB EJT ORDINAL 00317 M00S00316.1mu +++| CRD CM 00318 M00S00317.1mu +++| LDD CM 00319 M00S00318.1mu +++| LMD CN 00320 M00S00319.1mu +++| ZJN CCP1 IF CORRECT JOB 00321 M00S00320.1mu +++| LDN 0 00322 M00S00321.1mu +++| RJM RCP RETURN TO MAGNET CP 00323 M00S00322.1mu +++| LDN 1 SET CHANGE NOT MADE 00324 M00S00323.1mu +++| CCP1 LJM CCPX RETURN 00325 M00S00324.1mu +++| HNG SPACE 4,10 00326 M00S00325.1mu +++|** HNG - HANG PP ON SYSTEM ERROR. 00327 M00S00326.1mu +++|* 00328 M00S00327.1mu +++|* MACROS MONITOR. 00329 M00S00328.1mu +++| 00330 M00S00329.1mu +++| 00331 M00S00330.1mu +++| HNG SUBR ENTRY 00332 M00S00331.1mu +++| HNG1 MONITOR HNGM HANG PP 00333 M00S00332.1mu +++| UJN HNG1 HANG PP 00334 M00S00333.1mu +++| RCP SPACE 4,15 00335 M00S00334.1mu +++|** RCP - UPDATE ACCOUNTING AND RETURN TO MAGNET CONTROL POINT. 00336 M00S00335.1mu +++|* 00337 M00S00336.1mu +++|* ENTRY (A) = FET COMPLETION STATUS IF .NE. 0. 00338 M00S00337.1mu +++|* (A) = 0 IF NOT TO COMPLETE FET. 00339 M00S00338.1mu +++|* (RCPA) = SRU INCREMENT. 00340 M00S00339.1mu +++|* (RCPC) = BLOCKS SKIPPED COUNT. 00341 M00S00340.1mu +++|* 00342 M00S00341.1mu +++|* EXIT (RCPA) = 0. 00343 M00S00342.1mu +++|* (RCPC) = 0. 00344 M00S00343.1mu +++|* 00345 M00S00344.1mu +++|* USES CM+1 - CM+4. 00346 M00S00345.1mu +++|* 00347 M00S00346.1mu +++|* MACROS MONITOR. 00348 M00S00347.1mu +++| 00349 M00S00348.1mu +++| 00350 M00S00349.1mu +++| RCP SUBR ENTRY/EXIT 00351 M00S00350.1mu +++| STD CM+4 SET FET COMPLETION STATUS 00352 M00S00351.1mu +++| SHN -14 00353 M00S00352.1mu +++| LMC 0 SET SRU INCREMENT 00354 M00S00353.1mu +++| RCPA EQU *-1 (SRU INCREMENT) 00355 M00S00354.1mu +++| STD CM+3 00356 M00S00355.1mu +++| RCPB LDN 0 00357 M00S00356.1mu +++|* LDN 1 (ASSIGNED TO USER CP) 00358 M00S00357.1mu +++| ZJN RCPX IF NOT AT USER CP 00359 M00S00358.1mu +++| LDM UDTA SET UDT ADDRESS 00360 M00S00359.1mu +++| STD CM+1 00361 M00S00360.1mu +++| LDC 0 SET BLOCKS SKIPPED 00362 M00S00361.1mu +++| RCPC EQU *-1 (BLOCKS SKIPPED) 00363 M00S00362.1mu +++| STD CM+2 00364 M00S00363.1mu +++| MONITOR TIOM CHANGE TO MAGNET CP 00365 M00S00364.1mu +++|* LDN 0 00366 M00S00365.1mu +++| STM RCPA CLEAR SRU INCREMENT 00367 M00S00366.1mu +++| STM RCPC CLEAR BLOCKS SKIPPED 00368 M00S00367.1mu +++| SOM RCPB CLEAR USER CP FLAG 00369 M00S00368.1mu +++| UJN RCPX RETURN 00370 M00S00369.1mu +++| UAD SPACE 4,10 00371 M00S00370.1mu +++|** UAD - SET UDT ADDRESS. 00372 M00S00371.1mu +++|* 00373 M00S00372.1mu +++|* ENTRY (UDTA) = UDT RELATIVE ADDRESS. 00374 M00S00373.1mu +++|* 00375 M00S00374.1mu +++|* EXIT (A) = UDT ABSOLUTE ADDRESS. 00376 M00S00375.1mu +++| 00377 M00S00376.1mu +++| 00378 M00S00377.1mu +++| UAD SUBR ENTRY/EXIT 00379 M00S00378.1mu +++| LDD RA 00380 M00S00379.1mu +++| SHN 6 00381 M00S00380.1mu +++| ADC 0 SET UDT ADDRESS 00382 M00S00381.1mu +++| UDTA EQU *-1 (UDT ADDRESS) 00383 M00S00382.1mu +++| UJN UADX RETURN 00384 M00S00383.1mu +++| SPACE 4,10 00385 M00S00384.1mu +++|** COMMON DECKS. 00386 M00S00385.1mu +++| 00387 M00S00386.1mu +++| 00388 M00S00387.1mu +++| EJT$ EQU 1 ASEMBLE EJT PROCESSOR 00389 M00S00388.1mu +++| FNT$ EQU 1 ASSEMBLE SYSTEM FNT PROCESSOR 00390 M00S00389.1mu +++| IFP$ EQU 1 ASSEMBLE REMOTE INITIALIZATION CODE 00391 M00S00390.1mu +++|*CALL COMPGFP 00392 M00S00391.1mu +++| SPACE 4,10 00393 M00S00392.1mu +++|** UDT DATA. 00394 M00S00393.1mu +++| 00395 M00S00394.1mu +++| 00396 M00S00395.1mu +++|* *UST5*. 00397 M00S00396.1mu +++| 00398 M00S00397.1mu +++| DNCV BSS 1 DENSITY AND CONVERSION MODE 00399 M00S00398.1mu +++| ERSC BSS 1 ERROR SUB-CODE 00400 M00S00399.1mu +++| BSS 3 RESERVED 00401 M00S00400.1mu +++| 00402 M00S00401.1mu +++| 00403 M00S00402.1mu +++| USE OVERLAY 00404 M00S00403.1mu +++| 00405 M00S00404.1mu +++| OVL EQU *+10 OVERLAY ORIGIN ADDRESS 00406 M00S00405.1mu +++| TITLE ROUTINES OVERLAID BY FUNCTION PROCESSORS. 00407 M00S00406.1mu +++| PRS SPACE 4,10 00408 M00S00407.1mu +++|** PRS - PRESET PROGRAM. 00409 M00S00408.1mu +++|* 00410 M00S00409.1mu +++|* EXIT TO *PPR* IF NOT CALLED BY MAGNET. 00411 M00S00410.1mu +++|* (UDTA) = FIRST UDT ADDRESS. 00412 M00S00411.1mu +++|* 00413 M00S00412.1mu +++|* CALLS IFP. 00414 M00S00413.1mu +++|* 00415 M00S00414.1mu +++|* MACROS MONITOR. 00416 M00S00415.1mu +++| 00417 M00S00416.1mu +++| 00418 M00S00417.1mu +++| PRS SUBR ENTRY/EXIT 00419 M00S00418.1mu +++| LDD CP 00420 M00S00419.1mu +++| ADK JCIW 00421 M00S00420.1mu +++| CRD CM 00422 M00S00421.1mu +++| LDD CM+2 00423 M00S00422.1mu +++| LMC MTSI 00424 M00S00423.1mu +++| ZJN PRS1 IF CALLED BY MAGNET 00425 M00S00424.1mu +++| LDC PRSA * 1MU INCORRECT CALL.* 00426 M00S00425.1mu +++| RJM DFM 00427 M00S00426.1mu +++| MONITOR ABTM 00428 M00S00427.1mu +++| LJM PPR EXIT TO PPR 00429 M00S00428.1mu +++| 00430 M00S00429.1mu +++| PRS1 RJM IFP INITIALIZE FILE PROCESSORS 00431 M00S00430.1mu +++| LDD RA 00432 M00S00431.1mu +++| SHN 6 00433 M00S00432.1mu +++| ADK /MTX/UBUF GET UDT POINTERS 00434 M00S00433.1mu +++| CRD CM 00435 M00S00434.1mu +++| LDD CM+4 SET UDT FWA 00436 M00S00435.1mu +++| STM AUAB 00437 M00S00436.1mu +++| STM UDTA 00438 M00S00437.1mu +++| LDD CM+2 SET UDT LWA+1 00439 M00S00438.1mu +++| STM AUAA 00440 M00S00439.1mu +++| LJM PRSX RETURN 00441 M00S00440.1mu +++| 00442 M00S00441.1mu +++| 00443 M00S00442.1mu +++| PRSA DATA C* 1MU INCORRECT CALL.* 00444 M00S00443.1mu +++| CCA SPACE 4,15 00445 M00S00444.1mu +++|** CCA - CHECK CHANNEL ACCESS. 00446 M00S00445.1mu +++|* 00447 M00S00446.1mu +++|* ENTRY (A) = CHANNEL BYTE FROM EST ENTRY. 00448 M00S00447.1mu +++|* (T8) = UNIT FLAG MASK. 00449 M00S00448.1mu +++|* (T9) = UNIT FLAG BYTE INDEX. 00450 M00S00449.1mu +++|* (CN - CN+4) = EST ENTRY *EQAE* WORD. 00451 M00S00450.1mu +++|* 00452 M00S00451.1mu +++|* EXIT UNIT FLAG SET IN *TUAC* IF UNIT ACCESSIBLE ON CHANNEL. 00453 M00S00452.1mu +++|* (CM+3) = 0 IF UNIT ACCESSIBLE ON CHANNEL. 00454 M00S00453.1mu +++|* (CN - CN+4) = EST ENTRY *EQAE* WORD. 00455 M00S00454.1mu +++|* 00456 M00S00455.1mu +++|* USES CM+3, T1. 00457 M00S00456.1mu +++| 00458 M00S00457.1mu +++| 00459 M00S00458.1mu +++| CCA SUBR ENTRY/EXIT 00460 M00S00459.1mu +++| STD T1 SAVE CHANNEL BYTE 00461 M00S00460.1mu +++| SHN -11 00462 M00S00461.1mu +++| LMN 4 00463 M00S00462.1mu +++| NJN CCAX IF NO CHANNEL ACCESS 00464 M00S00463.1mu +++| STD CM+3 INDICATE UNIT ACCESSIBLE 00465 M00S00464.1mu +++| LDD T1 SET CHANNEL NUMBER 00466 M00S00465.1mu +++| LPN 37 00467 M00S00466.1mu +++| STD T1 00468 M00S00467.1mu +++| LDM TUAA,T1 GET *TUAC* ADDRESS 00469 M00S00468.1mu +++| ADD T9 SET BYTE ADDRESS 00470 M00S00469.1mu +++| STD T1 00471 M00S00470.1mu +++| LDD T8 SET UNIT FLAG IN *TUAC* 00472 M00S00471.1mu +++| RAI T1 00473 M00S00472.1mu +++| UJN CCAX RETURN 00474 M00S00473.1mu +++| CES SPACE 4,20 00475 M00S00474.1mu +++|** CES - CHECK EQUIPMENT STATUS. 00476 M00S00475.1mu +++|* 00477 M00S00476.1mu +++|* ENTRY (T8) = UNIT FLAG MASK. 00478 M00S00477.1mu +++|* (T9) = UNIT FLAG BYTE INDEX. 00479 M00S00478.1mu +++|* (UDTA) = UDT ADDRESS. 00480 M00S00479.1mu +++|* 00481 M00S00480.1mu +++|* EXIT UNIT FLAG SET IN *TUAC* ENTRIES FOR CHANNELS WITH 00482 M00S00481.1mu +++|* ACCESS TO UNIT. 00483 M00S00482.1mu +++|* UNIT FLAG SET IN *ACCM* IF UNIT ACCESSIBLE ON CHANNEL. 00484 M00S00483.1mu +++|* UNIT FLAG SET IN *ASGM* IF UNIT AVAILABLE FOR 00485 M00S00484.1mu +++|* ASSIGNMENT. 00486 M00S00485.1mu +++|* UNIT FLAG SET IN *JBRO* IF JOB ROLLED OUT. 00487 M00S00486.1mu +++|* 00488 M00S00487.1mu +++|* USES CM - CM+4, CN - CN+4. 00489 M00S00488.1mu +++|* 00490 M00S00489.1mu +++|* CALLS CCA, UAD. 00491 M00S00490.1mu +++|* 00492 M00S00491.1mu +++|* MACROS MONITOR, SFA. 00493 M00S00492.1mu +++| 00494 M00S00493.1mu +++| 00495 M00S00494.1mu +++| CES SUBR ENTRY/EXIT 00496 M00S00495.1mu +++| 00497 M00S00496.1mu +++|* GET UDT AND EST INFORMATION. 00498 M00S00497.1mu +++| 00499 M00S00498.1mu +++| RJM UAD 00500 M00S00499.1mu +++| ADK /MTX/UXRQ GET PP REQUEST 00501 M00S00500.1mu +++| CRD RS 00502 M00S00501.1mu +++| ADK /MTX/UST1-/MTX/UXRQ GET EST ORDINAL 00503 M00S00502.1mu +++| CRD ED 00504 M00S00503.1mu +++| ADK /MTX/UVRI-/MTX/UST1 GET ASSIGNED EJT ORDINAL 00505 M00S00504.1mu +++| CRD CN 00506 M00S00505.1mu +++| SFA EST,EO 00507 M00S00506.1mu +++| ADK EQDE GET CHANNEL STATUS 00508 M00S00507.1mu +++| CRD CM 00509 M00S00508.1mu +++| 00510 M00S00509.1mu +++|* CHECK UNIT ACCESSIBILITY. 00511 M00S00510.1mu +++| 00512 M00S00511.1mu +++| LDD CM 00513 M00S00512.1mu +++| LPN 3 00514 M00S00513.1mu +++| LMN DWES 00515 M00S00514.1mu +++| ZJN CES3 IF UNIT *DOWN* 00516 M00S00515.1mu +++| LDD CM+1 00517 M00S00516.1mu +++| RJM CCA CHECK PRIMARY CHANNEL ACCESS 00518 M00S00517.1mu +++| LDD HP 00519 M00S00518.1mu +++| SHN 21-7 00520 M00S00519.1mu +++| PJN CES1 IF NOT CTS UNIT 00521 M00S00520.1mu +++| LDD CM+3 00522 M00S00521.1mu +++| ZJN CES2 IF UNIT ACCESSIBLE ON PRIMARY CHANNEL 00523 M00S00522.1mu +++| CES1 LDD CM+2 00524 M00S00523.1mu +++| RJM CCA CHECK SECONDARY CHANNEL ACCESS 00525 M00S00524.1mu +++| LDD CM+3 00526 M00S00525.1mu +++| CES2 ZJN CES5 IF UNIT ACCESSIBLE 00527 M00S00526.1mu +++| CES3 LDD RS 00528 M00S00527.1mu +++| NJN CES4 IF REQUEST IN PROGRESS OR COMPLETE 00529 M00S00528.1mu +++| LDD FN 00530 M00S00529.1mu +++| LPN 77 00531 M00S00530.1mu +++| ZJN CES4 IF NO REQUEST 00532 M00S00531.1mu +++| SBN /MTX/MDFN 00533 M00S00532.1mu +++| PJN CES4 IF NOT *1MT* REQUEST 00534 M00S00533.1mu +++| 00535 M00S00534.1mu +++|* REQUEUE *1MT* REQUEST ON INACCESSIBLE UNIT. 00536 M00S00535.1mu +++| 00537 M00S00536.1mu +++| LDM UDTA SET UDT ADDRESS 00538 M00S00537.1mu +++| STD CM+1 00539 M00S00538.1mu +++| LDN 0 DO NOT CHECK UNIT BUSY 00540 M00S00539.1mu +++| STD CM+2 00541 M00S00540.1mu +++| MONITOR TDRM SET REQUEST IN PROGRESS 00542 M00S00541.1mu +++| LDD CM+4 00543 M00S00542.1mu +++| ZJN CES6 IF REQUEST NOT INTERLOCKED 00544 M00S00543.1mu +++| RJM UAD 00545 M00S00544.1mu +++| ADK /MTX/UXRQ GET REQUEST 00546 M00S00545.1mu +++| CRD RS 00547 M00S00546.1mu +++| LDK /MTX/RAC SET REQUEUE ON INACCESSIBLE UNIT 00548 M00S00547.1mu +++| STD RS 00549 M00S00548.1mu +++| RJM UAD 00550 M00S00549.1mu +++| ADK /MTX/UXRQ REQUEUE REQUEST 00551 M00S00550.1mu +++| CWD RS 00552 M00S00551.1mu +++| CES4 UJN CES6 UPDATE JOB STATUS 00553 M00S00552.1mu +++| 00554 M00S00553.1mu +++|* SET UNIT ACCESSIBLE. 00555 M00S00554.1mu +++| 00556 M00S00555.1mu +++| CES5 LDD T8 SET UNIT ACCESSIBLE 00557 M00S00556.1mu +++| RAM ACCM,T9 00558 M00S00557.1mu +++| LDD CM 00559 M00S00558.1mu +++| LPN 3 00560 M00S00559.1mu +++| LMK ONES 00561 M00S00560.1mu +++| NJN CES6 IF UNIT NOT *ON* 00562 M00S00561.1mu +++| LDD T8 SET UNIT ASSIGNABLE 00563 M00S00562.1mu +++| RAM ASGM,T9 00564 M00S00563.1mu +++| 00565 M00S00564.1mu +++|* CHECK JOB STATUS. 00566 M00S00565.1mu +++| 00567 M00S00566.1mu +++| CES6 SFA EJT,CN GET JOB STATUS FROM EJT 00568 M00S00567.1mu +++| ADK JSNE 00569 M00S00568.1mu +++| CRD CM 00570 M00S00569.1mu +++| LDD CM+4 00571 M00S00570.1mu +++| LPN 77 00572 M00S00571.1mu +++| LMN EXJS*2 00573 M00S00572.1mu +++| ZJN CES7 IF JOB EXECUTING OR UNIT NOT ASSIGNED 00574 M00S00573.1mu +++| LDD T8 SET JOB ROLLED OUT 00575 M00S00574.1mu +++| RAM JROM,T9 00576 M00S00575.1mu +++| CES7 LJM CESX RETURN 00577 M00S00576.1mu +++| CSJ SPACE 4,15 00578 M00S00577.1mu +++|** CSJ - CHECK STAGING JOBS. 00579 M00S00578.1mu +++|* 00580 M00S00579.1mu +++|* USES CM - CM+4, CN - CN+4, T0 - T7. 00581 M00S00580.1mu +++|* 00582 M00S00581.1mu +++|* CALLS STM. 00583 M00S00582.1mu +++| 00584 M00S00583.1mu +++| 00585 M00S00584.1mu +++| CSJ SUBR ENTRY/EXIT 00586 M00S00585.1mu +++| LDD RA READ STAGE POINTER WORD 00587 M00S00586.1mu +++| SHN 6 00588 M00S00587.1mu +++| ADN /MTX/TAJP 00589 M00S00588.1mu +++| CRD T3 00590 M00S00589.1mu +++| LDD T3 CHECK FOR ENTRIES 00591 M00S00590.1mu +++| STD T5 (T5) = ENTRIES LEFT, (T6-T7) = FWA TABLE 00592 M00S00591.1mu +++| 00593 M00S00592.1mu +++|* PROCESS NEXT ACTIVE STAGE JOB TABLE ENTRY. 00594 M00S00593.1mu +++| 00595 M00S00594.1mu +++| CSJ1 SOD T5 DECREMENT COUNT 00596 M00S00595.1mu +++| MJN CSJX IF PROCESSED ALL ENTRIES 00597 M00S00596.1mu +++| LDD T6 00598 M00S00597.1mu +++| SHN 6 00599 M00S00598.1mu +++| ADD RA 00600 M00S00599.1mu +++| SHN 6 00601 M00S00600.1mu +++| ADD T7 00602 M00S00601.1mu +++| ADD T5 00603 M00S00602.1mu +++| CRD CN READ ACTIVE STAGE JOB TABLE ENTRY 00604 M00S00603.1mu +++| LDD CN 00605 M00S00604.1mu +++| ZJN CSJ1 IF NO ENTRY PRESENT 00606 M00S00605.1mu +++| 00607 M00S00606.1mu +++|* SEARCH INPUT QUEUE FOR JOB. 00608 M00S00607.1mu +++| 00609 M00S00608.1mu +++| LDK QFTP SEARCH INPUT QUEUE FOR JOB 00610 M00S00609.1mu +++| CRD T0 READ TABLE POINTER 00611 M00S00610.1mu +++| CSJ2 SOD T2 DECREMENT OFFSET 00612 M00S00611.1mu +++| MJN CSJ4 IF ALL ENTRIES CHECKED 00613 M00S00612.1mu +++| LDN QFTE ADVANCE QFT ADDRESS 00614 M00S00613.1mu +++| RAD T1 00615 M00S00614.1mu +++| SHN -14 00616 M00S00615.1mu +++| RAD T0 00617 M00S00616.1mu +++| SHN 14 00618 M00S00617.1mu +++| LMD T1 00619 M00S00618.1mu +++| ADK JSNQ 00620 M00S00619.1mu +++| CRD CM READ JSN AND QUEUE TYPE 00621 M00S00620.1mu +++| LDD CM+4 00622 M00S00621.1mu +++| SHN -11 00623 M00S00622.1mu +++| LMK INQT 00624 M00S00623.1mu +++| NJN CSJ2 IF NOT INPUT QUEUE FILE 00625 M00S00624.1mu +++| LDD CM 00626 M00S00625.1mu +++| LMD CN 00627 M00S00626.1mu +++| NJN CSJ2 IF NO MATCH 00628 M00S00627.1mu +++| LDD CM+1 00629 M00S00628.1mu +++| LMD CN+1 00630 M00S00629.1mu +++| NJN CSJ2 IF NO MATCH 00631 M00S00630.1mu +++| CSJ3 UJN CSJ1 JOB FOUND IN INPUT QUEUE 00632 M00S00631.1mu +++| 00633 M00S00632.1mu +++|* SEARCH EJT FOR JOB. 00634 M00S00633.1mu +++| 00635 M00S00634.1mu +++| CSJ4 LDK EJTP SEARCH EJT FOR JOB 00636 M00S00635.1mu +++| CRD T0 READ TABLE POINTER 00637 M00S00636.1mu +++| CSJ5 SOD T2 DECREMENT OFFSET 00638 M00S00637.1mu +++| MJN CSJ6 IF ALL ENTRIES CHECKED 00639 M00S00638.1mu +++| LDN EJTE ADVANCE EJT ADDRESS 00640 M00S00639.1mu +++| RAD T1 00641 M00S00640.1mu +++| SHN -14 00642 M00S00641.1mu +++| RAD T0 00643 M00S00642.1mu +++| SHN 14 00644 M00S00643.1mu +++| LMD T1 00645 M00S00644.1mu +++| ADK JSNE 00646 M00S00645.1mu +++| CRD CM READ JSN 00647 M00S00646.1mu +++| LDD CM 00648 M00S00647.1mu +++| LMD CN 00649 M00S00648.1mu +++| NJN CSJ5 IF NO MATCH 00650 M00S00649.1mu +++| LDD CM+1 00651 M00S00650.1mu +++| LMD CN+1 00652 M00S00651.1mu +++| NJN CSJ5 IF NO MATCH 00653 M00S00652.1mu +++| UJN CSJ3 ENTRY FOUND IN EJT 00654 M00S00653.1mu +++| 00655 M00S00654.1mu +++|* JOB MISSING, INFORM MAGNET. 00656 M00S00655.1mu +++| 00657 M00S00656.1mu +++| CSJ6 LDD CN SET JSN 00658 M00S00657.1mu +++| STD CM+1 00659 M00S00658.1mu +++| LDD CN+1 00660 M00S00659.1mu +++| STD CM+2 00661 M00S00660.1mu +++| LDN /MTX/TJE SET TERMINATE JOB TABLE ENTRY 00662 M00S00661.1mu +++| STD CM 00663 M00S00662.1mu +++| LDN 0 00664 M00S00663.1mu +++| STD CM+3 00665 M00S00664.1mu +++| LDN 1 00666 M00S00665.1mu +++| STD CM+4 00667 M00S00666.1mu +++| RJM STM SEND *TDAM* TO MAGNET 00668 M00S00667.1mu +++| LJM CSJX RETURN 00669 M00S00668.1mu +++| STM SPACE 4,15 00670 M00S00669.1mu +++|** STM - SEND *TDAM* TO *MAGNET*. 00671 M00S00670.1mu +++|* 00672 M00S00671.1mu +++|* ENTRY (CM - CM+4) = *MAGNET* REQUEST WORD. 00673 M00S00672.1mu +++|* 00674 M00S00673.1mu +++|* EXIT (A) = 0, IF REQUEST COMPLETED. 00675 M00S00674.1mu +++|* (A) .NE. 0, IF *TDAM* WRITE REJECT. 00676 M00S00675.1mu +++|* TO *PNR5* IF ERROR FLAG DETECTED. 00677 M00S00676.1mu +++|* 00678 M00S00677.1mu +++|* USES CM+1 - CM+4. 00679 M00S00678.1mu +++|* 00680 M00S00679.1mu +++|* MACROS DELAY, MONITOR, PAUSE. 00681 M00S00680.1mu +++| 00682 M00S00681.1mu +++| 00683 M00S00682.1mu +++| STM SUBR ENTRY/EXIT 00684 M00S00683.1mu +++| LDD MA WRITE REQUEST TO MESSAGE BUFFER 00685 M00S00684.1mu +++| CWD CM 00686 M00S00685.1mu +++| STM1 LDN 1 SET WRITE FUNCTION 00687 M00S00686.1mu +++| STD CM+1 00688 M00S00687.1mu +++| LDC MTSI SET *MAGNET* SUBSYSTEM IDENTIFICATION 00689 M00S00688.1mu +++| STD CM+2 00690 M00S00689.1mu +++| LDD HN SET WORD COUNT 00691 M00S00690.1mu +++| STD CM+3 00692 M00S00691.1mu +++| LDK /MTX/RCAL SET ADDRESS OF *RESEX* REQUEST BUFFER 00693 M00S00692.1mu +++| STD CM+4 00694 M00S00693.1mu +++| MONITOR TDAM 00695 M00S00694.1mu +++| LDD CM+1 00696 M00S00695.1mu +++| ZJN STMX IF NO ERROR 00697 M00S00696.1mu +++| SBN 4 00698 M00S00697.1mu +++| ZJN STMX IF *MAGNET* NOT ACTIVE (IGNORE) 00699 M00S00698.1mu +++| ADN -1+4 00700 M00S00699.1mu +++| NJN STMX IF ERROR OTHER THAN STORAGE MOVE (IGNORE) 00701 M00S00700.1mu +++| DELAY 00702 M00S00701.1mu +++| PAUSE 00703 M00S00702.1mu +++| LDD CM+1 00704 M00S00703.1mu +++| ZJN STM1 IF ERROR FLAG NOT SET 00705 M00S00704.1mu +++| LJM STMX RETURN 00706 M00S00705.1mu +++| UUF SPACE 4,15 00707 M00S00706.1mu +++|** UUF - UPDATE UNIT FLAGS. 00708 M00S00707.1mu +++|* 00709 M00S00708.1mu +++|* ENTRY (UDTA) = FIRST UDT ADDRESS. 00710 M00S00709.1mu +++|* 00711 M00S00710.1mu +++|* EXIT UNIT STATUS FLAGS RETURNED TO MAGNET. 00712 M00S00711.1mu +++|* CHECK UNIT ACTIVITY FLAG SET IF CHANGE IN UNIT STATUS. 00713 M00S00712.1mu +++|* REQUEST REQUEUED ON INACCESSIBLE UNITS WITH *1MT* 00714 M00S00713.1mu +++|* REQUESTS. 00715 M00S00714.1mu +++|* (UDTA) = FIRST UDT ADDRESS. 00716 M00S00715.1mu +++|* 00717 M00S00716.1mu +++|* USES T1, T2, T3, T8, T9, CM - CM+4. 00718 M00S00717.1mu +++|* 00719 M00S00718.1mu +++|* CALLS AUA, CES. 00720 M00S00719.1mu +++| 00721 M00S00720.1mu +++| 00722 M00S00721.1mu +++| UUF SUBR ENTRY/EXIT 00723 M00S00722.1mu +++| 00724 M00S00723.1mu +++|* INITIALIZE *TUAA* TABLE AND UNIT MASK. 00725 M00S00724.1mu +++| 00726 M00S00725.1mu +++| LDK /MTX/CST INITIALIZE CST ADDRESS 00727 M00S00726.1mu +++| STD T1 00728 M00S00727.1mu +++| LDK TUAC INITIALIZE *TUAC* ADDRESS 00729 M00S00728.1mu +++| STD T2 00730 M00S00729.1mu +++| UUF1 LDD RA SET CST ADDRESS 00731 M00S00730.1mu +++| SHN 6 00732 M00S00731.1mu +++| ADD T1 00733 M00S00732.1mu +++| ADK /MTX/CPST READ CHANNEL NUMBER 00734 M00S00733.1mu +++| CRD CM 00735 M00S00734.1mu +++| LDD CM+4 00736 M00S00735.1mu +++| ZJN UUF2 IF END OF CHANNELS 00737 M00S00736.1mu +++| LDD CM+3 SET CHANNEL NUMBER 00738 M00S00737.1mu +++| LPN 37 SET CHANNEL NUMBER 00739 M00S00738.1mu +++| STD T3 00740 M00S00739.1mu +++| LDD T2 SET *TUAC* ADDRESS 00741 M00S00740.1mu +++| STM TUAA,T3 00742 M00S00741.1mu +++| LDN /MTX/CSTE ADVANCE CST ADDRESS 00743 M00S00742.1mu +++| RAD T1 00744 M00S00743.1mu +++| LDN 5 ADVANCE *TUAC* ADDRESS 00745 M00S00744.1mu +++| RAD T2 00746 M00S00745.1mu +++| UJN UUF1 CHECK NEXT CST ENTRY 00747 M00S00746.1mu +++| 00748 M00S00747.1mu +++| UUF2 STD T9 INITIALIZE UNIT FLAG BYTE INDEX 00749 M00S00748.1mu +++| LDC 4000 INITIALIZE UNIT FLAG MASK 00750 M00S00749.1mu +++| STD T8 00751 M00S00750.1mu +++| 00752 M00S00751.1mu +++|* CHECK UNIT. 00753 M00S00752.1mu +++| 00754 M00S00753.1mu +++| UUF3 RJM CES CHECK EQUIPMENT STATUS 00755 M00S00754.1mu +++| RJM AUA ADVANCE UDT ADDRESS 00756 M00S00755.1mu +++| ZJN UUF5 IF ALL UNITS CHECKED 00757 M00S00756.1mu +++| LDD T8 ADVANCE UNIT MASK 00758 M00S00757.1mu +++| SHN -1 00759 M00S00758.1mu +++| NJN UUF4 IF NOT END OF BYTE 00760 M00S00759.1mu +++| AOD T9 ADVANCE BYTE INDEX 00761 M00S00760.1mu +++| LDC 4000 RESET MASK FOR NEW BYTE 00762 M00S00761.1mu +++| UUF4 STD T8 00763 M00S00762.1mu +++| UJN UUF3 CHECK NEXT UNIT 00764 M00S00763.1mu +++| 00765 M00S00764.1mu +++|* RETURN UNIT FLAGS TO MAGNET. 00766 M00S00765.1mu +++| 00767 M00S00766.1mu +++| UUF5 LDK /MTX/CST+/MTX/CUAC INITIALIZE *CUAC* ADDRESS 00768 M00S00767.1mu +++| STD T1 00769 M00S00768.1mu +++| UUF6 LDD RA SET *CUAC* ADDRESS 00770 M00S00769.1mu +++| SHN 6 00771 M00S00770.1mu +++| ADD T1 00772 M00S00771.1mu +++| CWM TUAC,ON UPDATE ACCESS FLAGS 00773 M00S00772.1mu +++| UUFA EQU *-1 (*TUAC* ADDRESS) 00774 M00S00773.1mu +++| LDN 5 ADVANCE *TUAC* ADDRESS 00775 M00S00774.1mu +++| RAM UUFA 00776 M00S00775.1mu +++| LDK /MTX/CSTE ADVANCE *CUAC* ADDRESS 00777 M00S00776.1mu +++| RAD T1 00778 M00S00777.1mu +++| LMC /MTX/CST+/MTX/MCHAN*/MTX/CSTE+/MTX/CUAC 00779 M00S00778.1mu +++| NJN UUF6 IF MORE CHANNELS TO PROCESS 00780 M00S00779.1mu +++| LDD RA 00781 M00S00780.1mu +++| SHN 6 00782 M00S00781.1mu +++| ADK /MTX/ACCU 00783 M00S00782.1mu +++| CRD CM GET PREVIOUS ACCESSIBLE UNITS 00784 M00S00783.1mu +++| CWM ACCM,ON UPDATE ACCESSIBLE UNITS 00785 M00S00784.1mu +++| ADK /MTX/ASGU-/MTX/ACCU-1 00786 M00S00785.1mu +++| CRD CN GET PREVIOUS ASSIGNABLE UNITS 00787 M00S00786.1mu +++| CWM ASGM,ON UPDATE ASSIGNABLE UNITS 00788 M00S00787.1mu +++| ADK /MTX/JBRO-/MTX/ASGU-1 00789 M00S00788.1mu +++| CWM JROM,ON UPDATE JOB STATUS FLAGS 00790 M00S00789.1mu +++| LDD CM 00791 M00S00790.1mu +++| LMM ACCM 00792 M00S00791.1mu +++| NJN UUF7 IF CHANGE IN UNIT STATUS 00793 M00S00792.1mu +++| LDD CM+1 00794 M00S00793.1mu +++| LMM ACCM+1 00795 M00S00794.1mu +++| NJN UUF7 IF CHANGE IN UNIT STATUS 00796 M00S00795.1mu +++| LDD CN 00797 M00S00796.1mu +++| LMM ASGM 00798 M00S00797.1mu +++| NJN UUF7 IF CHANGE IN UNIT STATUS 00799 M00S00798.1mu +++| LDD CN+1 00800 M00S00799.1mu +++| LMM ASGM+1 00801 M00S00800.1mu +++| ZJN UUF8 IF NO CHANGE IN UNIT STATUS 00802 M00S00801.1mu +++| UUF7 LDN ZERL 00803 M00S00802.1mu +++| CRD CM 00804 M00S00803.1mu +++| LDC 4000 00805 M00S00804.1mu +++| STD CM 00806 M00S00805.1mu +++| LDD RA 00807 M00S00806.1mu +++| SHN 6 00808 M00S00807.1mu +++| ADK /MTX/CUAF SET CHECK UNIT ACTIVITY FLAG 00809 M00S00808.1mu +++| CWD CM 00810 M00S00809.1mu +++| UUF8 LJM UUFX RETURN 00811 M00S00810.1mu +++| TUAA SPACE 4,10 00812 M00S00811.1mu +++|** TUAA - TABLE OF *TUAC* ADDRESSES INDEXED BY CHANNEL NUMBER. 00813 M00S00812.1mu +++|* 00814 M00S00813.1mu +++|*T, 12/ TADD
Figure
00815 M00S00814.1mu +++|* 00816 M00S00815.1mu +++|* TADD = ADDRESS OF *TUAC* ENTRY FOR CHANNEL. 00817 M00S00816.1mu +++| 00818 M00S00817.1mu +++| TUAA BSSZ 40 00819 M00S00818.1mu +++| TUAC SPACE 4,10 00820 M00S00819.1mu +++|** TUAC - *CUAC* WORDS OF *CST* IN *CST* ORDER. 00821 M00S00820.1mu +++|* 00822 M00S00821.1mu +++|*T, 16/ UNITA,44/ 0
Figure
00823 M00S00822.1mu +++|* 00824 M00S00823.1mu +++|* UNITA = MASK OF UNITS ACCESIBLE ON CHANNEL 00825 M00S00824.1mu +++| 00826 M00S00825.1mu +++| 00827 M00S00826.1mu +++| TUAC BSSZ /MTX/MCHAN*5 00828 M00S00827.1mu +++| USTB SPACE 4,10 00829 M00S00828.1mu +++|** USTB - UNIT STATUS FLAGS ASSEMBLY BUFFER. 00830 M00S00829.1mu +++|* 00831 M00S00830.1mu +++|* BUFFER FOR MAGNET CELLS *ACCU*, *ASGU*, AND *JBRO*. 00832 M00S00831.1mu +++| 00833 M00S00832.1mu +++| USTB BSSZ 3*5 00834 M00S00833.1mu +++| ACCM EQU USTB *ACCU* 00835 M00S00834.1mu +++| ASGM EQU USTB+5 *ASGU* 00836 M00S00835.1mu +++| JROM EQU USTB+2*5 *JBRO* 00837 M00S00836.1mu +++| 00838 M00S00837.1mu +++| 00839 M00S00838.1mu +++| IFP HERE CODE TO INITIALIZE SYSTEM FNT PROCESSOR 00840 M00S00839.1mu +++| OVERLAY (CIO OPERATIONS.) 00841 M00S00840.1mu +++| TITLE COMPLETE USER FET. 00842 M00S00841.1mu +++| CUF SPACE 4,10 00843 M00S00842.1mu +++|** CUF - COMPLETE USER FET. 00844 M00S00843.1mu +++|* COMPLETES THE FET AND HANDLES SPECIAL REQUIREMENTS 00845 M00S00844.1mu +++|* FOR CLOSE CODES. 00846 M00S00845.1mu +++|* 00847 M00S00846.1mu +++|*T 12/ 0,12/ CUF,18/,18/ RETURN CODE
Figure
00848 M00S00847.1mu +++|* 00849 M00S00848.1mu +++|* CALLS CCR, CUL, CUP, PRS. 00850 M00S00849.1mu +++| 00851 M00S00850.1mu +++| 00852 M00S00851.1mu +++| ENTRY CUF 00853 M00S00852.1mu +++| RJM PRS PRESET 00854 M00S00853.1mu +++| LCN 1 SEARCH FOR SPECIAL PROCESSOR 00855 M00S00854.1mu +++| STD T1 00856 M00S00855.1mu +++| CUF1 LDN 2 00857 M00S00856.1mu +++| RAD T1 00858 M00S00857.1mu +++| LDM CUFB,T1 00859 M00S00858.1mu +++| ZJN CUF2 IF END OF TABLE 00860 M00S00859.1mu +++| LMM ECIO COMPARE WITH I/O REQUEST 00861 M00S00860.1mu +++| LPC 774 00862 M00S00861.1mu +++| NJN CUF1 IF NO MATCH 00863 M00S00862.1mu +++| LDM CUFB+1,T1 EXECUTE SPECIAL PROCESSOR 00864 M00S00863.1mu +++| STM CUFA 00865 M00S00864.1mu +++| RJM * 00866 M00S00865.1mu +++| CUFA EQU *-1 00867 M00S00866.1mu +++| CUF2 LDD PA COMPLETE FET 00868 M00S00867.1mu +++| LPN 77 00869 M00S00868.1mu +++| SHN 14 00870 M00S00869.1mu +++| LMD PB 00871 M00S00870.1mu +++| SCN 3 INSURE COMPLETE BIT SET 00872 M00S00871.1mu +++| ADN 1 00873 M00S00872.1mu +++| RJM CCR COMPLETE CIO REQUEST 00874 M00S00873.1mu +++| LJM NCPX EXIT 00875 M00S00874.1mu +++| 00876 M00S00875.1mu +++| 00877 M00S00876.1mu +++| CUFB BSS 0 TABLE OF CIO CODES NEEDING SPECIAL CARE 00878 M00S00877.1mu +++| CON 170,CUL CLOSE/UNLOAD 00879 M00S00878.1mu +++| CON 174,CUL CLOSE/UNLOAD 00880 M00S00879.1mu +++| CON 330,CUP CLOSER 00881 M00S00880.1mu +++| CON 350,CUP CLOSER 00882 M00S00881.1mu +++| CON 370,CUP CLOSER/UNLOAD 00883 M00S00882.1mu +++| CON 374,CUL CLOSER/RETURN 00884 M00S00883.1mu +++| CON 0 END OF TABLE 00885 M00S00884.1mu +++| CUL SPACE 4,10 00886 M00S00885.1mu +++|** CUL - CLOSE/UNLOAD PROCESSOR. 00887 M00S00886.1mu +++|* 00888 M00S00887.1mu +++|* EXIT TO *RET1*. 00889 M00S00888.1mu +++|* 00890 M00S00889.1mu +++|* USES FA, CM - CM+4, CN - CN+4. 00891 M00S00890.1mu +++|* 00892 M00S00891.1mu +++|* CALLS CCR, FAD, HNG, *0DF*. 00893 M00S00892.1mu +++|* 00894 M00S00893.1mu +++|* MACROS EXECUTE. 00895 M00S00894.1mu +++| 00896 M00S00895.1mu +++| 00897 M00S00896.1mu +++| CUL3 RJM HNG HANG 00898 M00S00897.1mu +++| 00899 M00S00898.1mu +++| CUL SUBR ENTRY/EXIT 00900 M00S00899.1mu +++| LDM FNTA SET FNT ADDRESS 00901 M00S00900.1mu +++| STD FA 00902 M00S00901.1mu +++| NFA FA,R 00903 M00S00902.1mu +++| ADK FSTL 00904 M00S00903.1mu +++| CRD CN GET TAPE FILE FST 00905 M00S00904.1mu +++| LDD CN 00906 M00S00905.1mu +++| LMD EO 00907 M00S00906.1mu +++| NJN CUL3 IF EST ORDINAL NOT CORRECT 00908 M00S00907.1mu +++| LDM ECIO SET RETURN/UNLOAD FLAG FOR *0DF* 00909 M00S00908.1mu +++| SHN -2 00910 M00S00909.1mu +++| LPN 1 00911 M00S00910.1mu +++| LMN 1 00912 M00S00911.1mu +++| STM B0DF-1 00913 M00S00912.1mu +++| EXECUTE 0DF,B0DF DROP FILE 00914 M00S00913.1mu +++| SHN -14 00915 M00S00914.1mu +++| STD T1 SAVE *0DF* STATUS 00916 M00S00915.1mu +++| LDN 0 SET STATUS WORD 00917 M00S00916.1mu +++| RJM FAD SET FET ADDRESS 00918 M00S00917.1mu +++| ZJN CUL2 IF FET STATUS NOT IN FL 00919 M00S00918.1mu +++| CRD CM READ FET STATUS 00920 M00S00919.1mu +++| LDD PA 00921 M00S00920.1mu +++| LPN 77 00922 M00S00921.1mu +++| SHN 14 00923 M00S00922.1mu +++| LMD PB 00924 M00S00923.1mu +++| SCN 3 00925 M00S00924.1mu +++| ZJN CUL1 IF SET COMPLETE BIT ONLY 00926 M00S00925.1mu +++| LMD CM+4 SET COMPLETION STATUS 00927 M00S00926.1mu +++| SCN 2 00928 M00S00927.1mu +++| LMD CM+4 00929 M00S00928.1mu +++| STD CM+4 00930 M00S00929.1mu +++| SHN -14 00931 M00S00930.1mu +++| LMD CM+3 00932 M00S00931.1mu +++| LPN 77 00933 M00S00932.1mu +++| LMD CM+3 00934 M00S00933.1mu +++| STD CM+3 00935 M00S00934.1mu +++| CUL1 LDD CM+4 SET COMPLETE BIT 00936 M00S00935.1mu +++| SCN 1 00937 M00S00936.1mu +++| LMN 1 00938 M00S00937.1mu +++| STD CM+4 00939 M00S00938.1mu +++| LDN 0 SET STATUS WORD 00940 M00S00939.1mu +++| RJM FAD SET FET ADDRESS 00941 M00S00940.1mu +++| CWD CM UPDATE FET STATUS 00942 M00S00941.1mu +++| LDN 0 00943 M00S00942.1mu +++| CUL2 RJM CCR UPDATE BLOCK COUNT AND RETURN TO MAGNET CP 00944 M00S00943.1mu +++| LDN ZERL 00945 M00S00944.1mu +++| CRD CM 00946 M00S00945.1mu +++| LDK /MTX/RTF SET RETURN FILE REQUEST 00947 M00S00946.1mu +++| STD CM 00948 M00S00947.1mu +++| RJM UAD 00949 M00S00948.1mu +++| ADK /MTX/UFRQ 00950 M00S00949.1mu +++| CWD CM 00951 M00S00950.1mu +++| LJM NCPX EXIT 00952 M00S00951.1mu +++| CUP SPACE 4,10 00953 M00S00952.1mu +++|** CUP - CHECK USER PROCESSING ON CLOSER. 00954 M00S00953.1mu +++|* 00955 M00S00954.1mu +++|* EXIT (PA - PB) = UPDATED IF NEEDED. 00956 M00S00955.1mu +++|* 00957 M00S00956.1mu +++|* USES CM - CM+4. 00958 M00S00957.1mu +++|* 00959 M00S00958.1mu +++|* CALLS FAD. 00960 M00S00959.1mu +++| 00961 M00S00960.1mu +++| 00962 M00S00961.1mu +++| CUP SUBR ENTRY/EXIT 00963 M00S00962.1mu +++| LDM FETO 00964 M00S00963.1mu +++| SHN 21-11 00965 M00S00964.1mu +++| PJN CUP1 IF UP NOT SELECTED 00966 M00S00965.1mu +++| LDD PA CHECK ERROR CODE 00967 M00S00966.1mu +++| LPN 3 00968 M00S00967.1mu +++| SHN 14 00969 M00S00968.1mu +++| ADD PB 00970 M00S00969.1mu +++| SHN -12 00971 M00S00970.1mu +++| NJN CUPX IF ERROR 00972 M00S00971.1mu +++| LDM ECIO SET TO RETURN END OF REEL 00973 M00S00972.1mu +++| LPC 774 00974 M00S00973.1mu +++| LMC 2001 00975 M00S00974.1mu +++| STD PB 00976 M00S00975.1mu +++| UJN CUPX RETURN 00977 M00S00976.1mu +++| 00978 M00S00977.1mu +++| CUP1 LDD LT 00979 M00S00978.1mu +++| SHN 21-12 00980 M00S00979.1mu +++| PJN CUPX IF NOT LABELED 00981 M00S00980.1mu +++| LDM FETO 00982 M00S00981.1mu +++| SHN 21-5 00983 M00S00982.1mu +++| MJN CUPX IF EXTENDED LABELS 00984 M00S00983.1mu +++| LDM FETL 00985 M00S00984.1mu +++| SHN -6 FET LENGTH - 5 00986 M00S00985.1mu +++| SBN 10 00987 M00S00986.1mu +++| MJN CUPX IF FET NOT LONG ENOUGH FOR LABEL PORTION 00988 M00S00987.1mu +++| LDN 14 SET WORD TO READ 00989 M00S00988.1mu +++| RJM FAD SET FET ADDRESS 00990 M00S00989.1mu +++| ZJN CUP3 IF ADDRESS NOT IN FL 00991 M00S00990.1mu +++| CRD CM READ FET + 14 00992 M00S00991.1mu +++| AOD CM+4 00993 M00S00992.1mu +++| LPN 77 00994 M00S00993.1mu +++| LMN 1R9+1 00995 M00S00994.1mu +++| NJN CUP2 IF NO OVERFLOW 00996 M00S00995.1mu +++| LDN 100-1R9-1+1R0 00997 M00S00996.1mu +++| RAD CM+4 00998 M00S00997.1mu +++| SHN -6 00999 M00S00998.1mu +++| LMN 1R9+1 01000 M00S00999.1mu +++| NJN CUP2 IF NO OVERFLOW 01001 M00S01000.1mu +++| LDC -1R9*100-100+1R0*100 01002 M00S01001.1mu +++| RAD CM+4 01003 M00S01002.1mu +++| AOD CM+3 01004 M00S01003.1mu +++| LPN 77 01005 M00S01004.1mu +++| LMN 1R9+1 01006 M00S01005.1mu +++| NJN CUP2 IF NO OVERFLOW 01007 M00S01006.1mu +++| LDN 100-1R9-1+1R0 01008 M00S01007.1mu +++| RAD CM+3 01009 M00S01008.1mu +++| CUP2 LDN 14 SET WORD TO WRITE 01010 M00S01009.1mu +++| RJM FAD SET FET ADDRESS 01011 M00S01010.1mu +++| CWD CM UPDATE REEL NUMBER IN FET 01012 M00S01011.1mu +++| CUP3 LJM CUPX RETURN 01013 M00S01012.1mu +++| TITLE ABORT CIO REQUEST. 01014 M00S01013.1mu +++| MAB SPACE 4,25 01015 M00S01014.1mu +++|** MAB - ISSUE MESSAGE AND ABORT REQUEST. 01016 M00S01015.1mu +++|* 01017 M00S01016.1mu +++|* 01018 M00S01017.1mu +++|*T UXRQ 12/ 1,12/ MAB,12/,12/ PA,12/ PB
Figure UXRQ
01019 M00S01018.1mu +++|*
| Line S01019 Modification History | |
|---|---|
M01 (Removed by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01020 M01S01019.ns2773 ---|* PB = *COMSMTX* ERROR CODE IF .NE. 0 AND .NE. 2000B. 01021 M01S01020.ns2773 ---|* PB = 0 IF TO CHECK JOB ERROR FLAG. 01022 M01S01021.ns2773 ---|* PB = 2000B IF TO ABORT REQUEST USING ERROR CODE IN UDT.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01023 M01S00002.ns2773 +++|* PB = *COMSMTX* ERROR CODE IF .NE. 0. 01024 M01S00003.ns2773 +++|* PB = 0 IF TO USE ERROR CODE IN UDT. 01025 M00S01022.1mu +++|* PA = *COMSMTX* ERROR SUB-CODE IF *PB* IS ERROR CODE.
| Line S01023 Modification History | |
|---|---|
M01 (Removed by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01026 M01S01023.ns2773 ---|* 01027 M01S01024.ns2773 ---|* IF PB = 0, THE JOB ERROR FLAG WILL BE CHECKED FOR *ODET*, 01028 M01S01025.ns2773 ---|* *TAET*, *FSET*, OR .GT. *SPET*. IF ANY OF THESE CONDITIONS 01029 M01S01026.ns2773 ---|* IS TRUE, THE REQUEST WILL BE ABORTED WITH AN *EFT* ERROR. 01030 M00S01027.1mu +++|* 01031 M00S01028.1mu +++|*T, EXIT 12/ 2,12/ MAB,12/,12/ PA,12/ PB
Figure EXIT
01032 M00S01029.1mu +++|* 01033 M00S01030.1mu +++|* PB = *COMSMTX* ERROR CODE USED IN ABORT PROCESSING.
| Line S01031 Modification History | |
|---|---|
M01 (Removed by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01034 M01S01031.ns2773 ---|* PB = 0 IF CHECK ERROR FLAG CALL AND REQUEST NOT ABORTED. 01035 M01S01032.ns2773 ---|* PA = ERROR SUB-CODE FROM CALL OR FROM UDT IF REQUEST ABORTED.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01036 M01S00004.ns2773 +++|* PA = ERROR SUB-CODE. 01037 M00S01033.1mu +++|*
| Line S01034 Modification History | |
|---|---|
M01 (Removed by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01038 M01S01034.ns2773 ---|* CALLS CCR, CEF, C2D, DFM, FAD, HNG, MFM, NWE, OPM, PRS, STM, 01039 M01S01035.ns2773 ---|* TME, UAD, VAE.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01040 M01S00005.ns2773 +++|* CALLS CCR, C2D, DFM, FAD, HNG, MFM, NWE, OPM, PRS, STM, TME, 01041 M01S00006.ns2773 +++|* UAD, VAE. 01042 M00S01036.1mu +++|* 01043 M00S01037.1mu +++|* MACROS MONITOR. 01044 M00S01038.1mu +++| 01045 M00S01039.1mu +++| 01046 M00S01040.1mu +++| ENTRY MAB 01047 M00S01041.1mu +++| RJM PRS PRESET 01048 M00S01042.1mu +++| LDD PB
| Line S01043 Modification History | |
|---|---|
M01 (Removed by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01049 M01S01043.ns2773 ---| NJN MAB1 IF NOT CHECK ERROR FLAG 01050 M01S01044.ns2773 ---| RJM CEF CHECK ERROR FLAG 01051 M01S01045.ns2773 ---| LDD PB 01052 M01S01046.ns2773 ---| NJN MAB4 IF TO ABORT REQUEST 01053 M01S01047.ns2773 ---|* LDN 0 DO NOT COMPLETE FET 01054 M01S01048.ns2773 ---| RJM CCR UPDATE ACCOUNTING AND RETURN TO MAGNET CP 01055 M01S01049.ns2773 ---| LJM NCPX EXIT 01056 M01S01050.ns2773 ---| 01057 M01S01051.ns2773 ---| MAB1 LMC 2000 01058 M01S01052.ns2773 ---| NJN MAB2 IF ERROR CODE SPECIFIED IN CALL 01059 M01S01053.ns2773 ---| LDD EC USE UDT ERROR CODE
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01060 M01S00007.ns2773 +++| NJN MAB1 IF ERROR CODE SPECIFIED IN CALL 01061 M01S00008.ns2773 +++| LDM ERSC SET SUB-CODE 01062 M01S00009.ns2773 +++| STD PA 01063 M01S00010.ns2773 +++| LDD EC SET ERROR CODE 01064 M01S00011.ns2773 +++| ZJN MAB3 IF NO ERROR CODE 01065 M00S01054.1mu +++| STD PB
| Line S01055 Modification History | |
|---|---|
M01 (Removed by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01066 M01S01055.ns2773 ---| LDM ERSC SET SUB-CODE 01067 M01S01056.ns2773 ---| STD PA 01068 M01S01057.ns2773 ---| MAB2 LDD PB 01069 M01S01058.ns2773 ---| ZJN MAB3 IF NO ERROR CODE 01070 M01S01059.ns2773 ---| SBN /MTX/MERC
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01071 M01S00012.ns2773 +++| MAB1 SBN /MTX/MERC 01072 M00S01060.1mu +++| MJN MAB4 IF VALID ERROR CODE 01073 M00S01061.1mu +++| MAB3 RJM HNG HANG 01074 M00S01062.1mu +++| 01075 M00S01063.1mu +++| MAB4 LDN 0 SET STATUS WORD 01076 M00S01064.1mu +++| RJM FAD CHECK FET ADDRESS 01077 M00S01065.1mu +++| NJN MAB5 IF FET WITHIN FL 01078 M00S01066.1mu +++| LDN ZERL 01079 M00S01067.1mu +++| MAB5 CRD CN 01080 M00S01068.1mu +++| LDD CN+3 TERMINATE FILE NAME FOR MESSAGE ASSEMBLY 01081 M00S01069.1mu +++| SCN 77 01082 M00S01070.1mu +++| STD CN+3 01083 M00S01071.1mu +++| LDM TUEM,PB SET MESSAGE ADDRESS 01084 M00S01072.1mu +++| NJN MAB6 IF DEFINED 01085 M00S01073.1mu +++| LDD PB 01086 M00S01074.1mu +++| RJM C2D 01087 M00S01075.1mu +++| STM TERR+6 01088 M00S01076.1mu +++| LDC TERR SET HARDWARE ERROR MESSAGE 01089 M00S01077.1mu +++| MAB6 RJM IDF ISSUE MESSAGE 01090 M00S01078.1mu +++| LDM TSPC,PB 01091 M00S01079.1mu +++| ZJN MAB7 IF NO SPECIAL PROCESSOR 01092 M00S01080.1mu +++| STD T1 01093 M00S01081.1mu +++| RJM 0,T1 01094 M00S01082.1mu +++| MAB7 LDD BL 01095 M00S01083.1mu +++| NJN MAB8 IF NOT FIRST BLOCK 01096 M00S01084.1mu +++| LDD BL+1 01097 M00S01085.1mu +++| SBN 2 0 OR 1 CONSIDERED FIRST BLOCK 01098 M00S01086.1mu +++| PJN MAB8 IF NOT FIRST BLOCK 01099 M00S01087.1mu +++| LDM TAME,EC 01100 M00S01088.1mu +++| ZJN MAB8 IF NO SPECIAL MESSAGE 01101 M00S01089.1mu +++| RJM DFM 01102 M00S01090.1mu +++| MAB8 LDD PB 01103 M00S01091.1mu +++| LMN /MTX/ERM 01104 M00S01092.1mu +++| NJN MAB9 IF NOT END OF REEL MESSAGE 01105 M00S01093.1mu +++| LJM NCPX EXIT 01106 M00S01094.1mu +++| 01107 M00S01095.1mu +++| MAB9 LDN 0 CLEAR ERROR PARAMETERS 01108 M00S01096.1mu +++| STD EP 01109 M00S01097.1mu +++| STD EI 01110 M00S01098.1mu +++| LDD HP 01111 M00S01099.1mu +++| SHN 21-7 01112 M00S01100.1mu +++| MJN MAB10 IF CTS UNIT 01113 M00S01101.1mu +++| LDN 0 01114 M00S01102.1mu +++| STD EP+1 01115 M00S01103.1mu +++| MAB10 LDD PB 01116 M00S01104.1mu +++| SBN /MTX/MFAT 01117 M00S01105.1mu +++| MJN MAB11 IF FATAL USER ERROR 01118 M00S01106.1mu +++| SBN /MTX/EFT-/MTX/MFAT 01119 M00S01107.1mu +++| ZJN MAB12 IF ERROR FLAG TERMINATION 01120 M00S01108.1mu +++| LDD SP 01121 M00S01109.1mu +++| SHN 21-0 01122 M00S01110.1mu +++| MJN MAB11 IF IGNORE EP SET 01123 M00S01111.1mu +++| LDM FETO 01124 M00S01112.1mu +++| SHN 21-10 01125 M00S01113.1mu +++| MJN MAB12 IF ERROR PROCESSING SET 01126 M00S01114.1mu +++| LDD SP 01127 M00S01115.1mu +++| SHN 21-1 01128 M00S01116.1mu +++| PJN MAB11 IF NOT ACCEPT DATA WITHOUT EP SET 01129 M00S01117.1mu +++| LDN 1 SET TO NOT RETURN ERROR CODE 01130 M00S01118.1mu +++| STM MABA 01131 M00S01119.1mu +++| UJN MAB12 DO NOT SET ERROR FLAG 01132 M00S01120.1mu +++| 01133 M00S01121.1mu +++| MAB11 LDN PPET SET ERROR FLAG 01134 M00S01122.1mu +++| STD CM+1 01135 M00S01123.1mu +++| MONITOR CEFM 01136 M00S01124.1mu +++| MAB12 LDM ECIO CHECK EXTERNAL CIO CODE 01137 M00S01125.1mu +++| LPC 774 01138 M00S01126.1mu +++| LMC 200 01139 M00S01127.1mu +++| NJN MAB13 IF NOT CONTROL WORD READ 01140 M00S01128.1mu +++| LDM MABA 01141 M00S01129.1mu +++| LMN 1 01142 M00S01130.1mu +++| ZJN MAB13 IF NOT RETURN ERROR CODE 01143 M00S01131.1mu +++| LDM LVLN PRESERVE LEVEL NUMBER 01144 M00S01132.1mu +++| SHN -6 01145 M00S01133.1mu +++| LPN 74 01146 M00S01134.1mu +++| RAM MABA-1 01147 M00S01135.1mu +++| MAB13 LDM ECIO GET EXTERNAL CIO CODE 01148 M00S01136.1mu +++| LPC 774 01149 M00S01137.1mu +++| LMC 4001 01150 M00S01138.1mu +++| MABA EQU *-1 (FET COMPLETION STATUS) 01151 M00S01139.1mu +++| RJM CCR SET FET COMPLETE AND RETURN TO MAGNET CP 01152 M00S01140.1mu +++| 01153 M00S01141.1mu +++|* CHECK FOR ERROR DURING *POSMF* REQUEST OR REEL SWAP. 01154 M00S01142.1mu +++| 01155 M00S01143.1mu +++| LDM ECIO 01156 M00S01144.1mu +++| LPC 774 01157 M00S01145.1mu +++| LMC 110 01158 M00S01146.1mu +++| NJN MAB14 IF NOT *POSMF* REQUEST 01159 M00S01147.1mu +++| LDD UP SET END OF SET STATUS 01160 M00S01148.1mu +++| LPC 7677 01161 M00S01149.1mu +++| LMD HN 01162 M00S01150.1mu +++| STD UP 01163 M00S01151.1mu +++| MAB14 RJM UAD 01164 M00S01152.1mu +++| ADK /MTX/UVRI 01165 M00S01153.1mu +++| CRD CN 01166 M00S01154.1mu +++| ADK /MTX/UFSN-/MTX/UVRI 01167 M00S01155.1mu +++| CRD CM 01168 M00S01156.1mu +++| LDD CN+4 01169 M00S01157.1mu +++| LPN 26 01170 M00S01158.1mu +++| LMN 20 01171 M00S01159.1mu +++| ZJN MAB15 IF REEL ASSIGNED AND NOT END OF REEL 01172 M00S01160.1mu +++| LDD UP 01173 M00S01161.1mu +++| SCN 40 01174 M00S01162.1mu +++| LMN 40 SET FILE POSITION INDETERMINATE 01175 M00S01163.1mu +++| STD UP 01176 M00S01164.1mu +++| MAB15 LDD CN+4 01177 M00S01165.1mu +++| LPN 6 01178 M00S01166.1mu +++| ZJN MAB17 IF NOT END OF REEL PROCESSING 01179 M00S01167.1mu +++| SHN 21-1 01180 M00S01168.1mu +++| MJN MAB16 IF NEXT VSN RETURNED 01181 M00S01169.1mu +++| SOD CN+3 DECREMENT REEL NUMBER 01182 M00S01170.1mu +++| UJN MAB17 CLEAR FLAGS 01183 M00S01171.1mu +++| 01184 M00S01172.1mu +++| MAB16 AOD CM+4 INCREMENT SECTION NUMBER 01185 M00S01173.1mu +++| SHN -14 01186 M00S01174.1mu +++| RAD CM+3 01187 M00S01175.1mu +++| MAB17 LDD CN+4 01188 M00S01176.1mu +++| SCN 17 CLEAR DISPLAY AND END OF REEL FLAGS 01189 M00S01177.1mu +++| STD CN+4 01190 M00S01178.1mu +++| RJM UAD 01191 M00S01179.1mu +++| ADK /MTX/UVRI 01192 M00S01180.1mu +++| CWD CN 01193 M00S01181.1mu +++| ADK /MTX/UFSN-/MTX/UVRI 01194 M00S01182.1mu +++| CWD CM 01195 M00S01183.1mu +++| LJM NCPX EXIT
| Line S01184 Modification History | |
|---|---|
M01 (Removed by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01196 M01S01184.ns2773 ---| CEF SPACE 4,10 01197 M01S01185.ns2773 ---|** CEF - CHECK ERROR FLAG. 01198 M01S01186.ns2773 ---|* 01199 M01S01187.ns2773 ---|* EXIT (PB) = 0 IF NOT TO ABORT REQUEST. 01200 M01S01188.ns2773 ---|* (PB) = *EFT* IF TO ABORT REQUEST. 01201 M01S01189.ns2773 ---|* 01202 M01S01190.ns2773 ---|* USES CM - CM+4. 01203 M01S01191.ns2773 ---| 01204 M01S01192.ns2773 ---| 01205 M01S01193.ns2773 ---| CEF SUBR ENTRY/EXIT 01206 M01S01194.ns2773 ---| LDD CP READ ERROR FLAG 01207 M01S01195.ns2773 ---| ADN STSW 01208 M01S01196.ns2773 ---| CRD CM 01209 M01S01197.ns2773 ---| LDD CM+1 PRESET ERROR FLAG 01210 M01S01198.ns2773 ---| STD PA 01211 M01S01199.ns2773 ---| LMN ODET 01212 M01S01200.ns2773 ---| ZJN CEF1 IF OPERATOR DROP 01213 M01S01201.ns2773 ---| LMN TAET&ODET 01214 M01S01202.ns2773 ---| ZJN CEF1 IF USER BREAK TWO 01215 M01S01203.ns2773 ---| LMN FSET&TAET 01216 M01S01204.ns2773 ---| ZJN CEF1 IF FORCED ERROR 01217 M01S01205.ns2773 ---| LMN FSET 01218 M01S01206.ns2773 ---| SBN SPET 01219 M01S01207.ns2773 ---| MJN CEFX IF NOT SPECIAL PROCESSING ERROR 01220 M01S01208.ns2773 ---| CEF1 LDN /MTX/EFT SET ERROR FLAG TERMINATION 01221 M01S01209.ns2773 ---| STD PB 01222 M01S01210.ns2773 ---| UJN CEFX RETURN 01223 M00S01211.1mu +++| IDF SPACE 4,10 01224 M00S01212.1mu +++|** IDF - ISSUE DAYFILE MESSAGE WITH FILE NAME AND FET ADDRESS. 01225 M00S01213.1mu +++|* 01226 M00S01214.1mu +++|* ENTRY (A) = ADDRESS OF MESSAGE. 01227 M00S01215.1mu +++|* (CN - CN+3) = FILE NAME. 01228 M00S01216.1mu +++|* 01229 M00S01217.1mu +++|* EXIT MESSAGE ISSUED TO DAYFILE. 01230 M00S01218.1mu +++|* 01231 M00S01219.1mu +++|* USES T1, T2. 01232 M00S01220.1mu +++|* 01233 M00S01221.1mu +++|* CALLS ACS, ANS, DFM. 01234 M00S01222.1mu +++| 01235 M00S01223.1mu +++| 01236 M00S01224.1mu +++| IDF SUBR ENTRY/EXIT 01237 M00S01225.1mu +++| STD T2 SAVE MESSAGE ADDRESS 01238 M00S01226.1mu +++| LDC BFMS SET ASSEMBLY ADDRESS 01239 M00S01227.1mu +++| STD T1 01240 M00S01228.1mu +++| LDN 0 INITIALIZE MESSAGE ASSEMBLY 01241 M00S01229.1mu +++| STI T1 01242 M00S01230.1mu +++| LDD T2 01243 M00S01231.1mu +++| RJM ACS ASSEMBLE MESSAGE TEXT 01244 M00S01232.1mu +++| LDN CN 01245 M00S01233.1mu +++| RJM ACS ASSEMBLE FILE NAME 01246 M00S01234.1mu +++| LDC =Z* AT * 01247 M00S01235.1mu +++| RJM ACS ASSEMBLE * AT * 01248 M00S01236.1mu +++| LDM FETA SET FET ADDRESS 01249 M00S01237.1mu +++| SHN 6 01250 M00S01238.1mu +++| ADM FETA+1 01251 M00S01239.1mu +++| RJM ANS ASSEMBLE FET ADDRESS 01252 M00S01240.1mu +++| LDC =Z*.* 01253 M00S01241.1mu +++| RJM ACS ASSEMBLE MESSAGE TERMINATOR 01254 M00S01242.1mu +++| LDC BFMS ISSUE MESSAGE TO DAYFILE 01255 M00S01243.1mu +++| RJM DFM 01256 M00S01244.1mu +++| LJM IDFX RETURN 01257 M00S01245.1mu +++| MFM SPACE 4,10 01258 M00S01246.1mu +++|** MFM - MULTI-FILE MISSING MESSAGE. 01259 M00S01247.1mu +++|* 01260 M00S01248.1mu +++|* ENTRY (LG) = REQUESTED FILE SECTION NUMBER. 01261 M00S01249.1mu +++|* (LG+1) = HIGHEST EXISTING FILE SECTION NUMBER. 01262 M00S01250.1mu +++|* 01263 M00S01251.1mu +++|* EXIT (LG - LG+1) = 0. 01264 M00S01252.1mu +++|* 01265 M00S01253.1mu +++|* USES CM - CM+4. 01266 M00S01254.1mu +++|* 01267 M00S01255.1mu +++|* CALLS C2D, DFM. 01268 M00S01256.1mu +++| 01269 M00S01257.1mu +++| 01270 M00S01258.1mu +++| MFM1 LDC MFMD SET FILE IDENTIFIER NOT FOUND 01271 M00S01259.1mu +++| STM MFMA 01272 M00S01260.1mu +++| MFM2 LDC MFMC * FOUND SECTION NNNN.* 01273 M00S01261.1mu +++|* LDC MFMD * FILE IDENTIFIER NOT FOUND.* 01274 M00S01262.1mu +++| MFMA EQU *-1 01275 M00S01263.1mu +++| RJM DFM 01276 M00S01264.1mu +++| MFM3 LDN 2 SET END OF SET ERROR STATUS 01277 M00S01265.1mu +++| RAM MABA-1 01278 M00S01266.1mu +++| LDC 1001 01279 M00S01267.1mu +++| STM MABA 01280 M00S01268.1mu +++| 01281 M00S01269.1mu +++| MFM SUBR ENTRY/EXIT 01282 M00S01270.1mu +++| LDD PB CHECK ERROR MESSAGE 01283 M00S01271.1mu +++| LMN /MTX/IOS 01284 M00S01272.1mu +++| ZJN MFM3 IF INCORRECT OPERATION AT END OF SET 01285 M00S01273.1mu +++| LDD LG 01286 M00S01274.1mu +++| ADD LG+1 01287 M00S01275.1mu +++| ZJP MFM1 IF FILE IDENTIFIER NOT FOUND 01288 M00S01276.1mu +++| LDD LG CONVERT REQUESTED FILE SECTION NUMBER 01289 M00S01277.1mu +++| SHN -6 01290 M00S01278.1mu +++| RJM C2D 01291 M00S01279.1mu +++| STM MFMB+12 01292 M00S01280.1mu +++| LDD LG 01293 M00S01281.1mu +++| RJM C2D 01294 M00S01282.1mu +++| STM MFMB+13 01295 M00S01283.1mu +++| LDD LG+1 CONVERT FOUND FILE SECTION NUMBER 01296 M00S01284.1mu +++| SHN -6 01297 M00S01285.1mu +++| RJM C2D 01298 M00S01286.1mu +++| STM MFMC+10 01299 M00S01287.1mu +++| LDD LG+1 01300 M00S01288.1mu +++| RJM C2D 01301 M00S01289.1mu +++| STM MFMC+11 01302 M00S01290.1mu +++| LDC MFMB * REQUESTED SECTION NNNN.* 01303 M00S01291.1mu +++| RJM DFM 01304 M00S01292.1mu +++| LDN 0 CLEAR PARAMETERS 01305 M00S01293.1mu +++| STD LG 01306 M00S01294.1mu +++| STD LG+1 01307 M00S01295.1mu +++| LJM MFM2 ISSUE NEXT MESSAGE 01308 M00S01296.1mu +++| 01309 M00S01297.1mu +++| 01310 M00S01298.1mu +++| MFMB DATA C* REQUESTED SECTION 0000.* 01311 M00S01299.1mu +++| MFMC DATA C* FOUND SECTION 0000.* 01312 M00S01300.1mu +++| MFMD DATA C* FILE IDENTIFIER NOT FOUND.* 01313 M00S01301.1mu +++| NWE SPACE 4,10 01314 M00S01302.1mu +++|** NWE - NO WRITE ENABLE. 01315 M00S01303.1mu +++|* 01316 M00S01304.1mu +++|* CALLS DFM, HNG. 01317 M00S01305.1mu +++| 01318 M00S01306.1mu +++| 01319 M00S01307.1mu +++| NWE1 RJM HNG HANG 01320 M00S01308.1mu +++| 01321 M00S01309.1mu +++| NWE SUBR ENTRY/EXIT 01322 M00S01310.1mu +++| LDD PA 01323 M00S01311.1mu +++| ZJN NWE1 IF NO SUB-CODE 01324 M00S01312.1mu +++| SBN /MTX/MWSC 01325 M00S01313.1mu +++| PJN NWE1 IF NOT VALID SUB-CODE 01326 M00S01314.1mu +++| LDM TNWE,PA 01327 M00S01315.1mu +++| ZJN NWEX IF NO ADDITIONAL MESSAGE 01328 M00S01316.1mu +++| RJM DFM 01329 M00S01317.1mu +++| UJN NWEX 01330 M00S01318.1mu +++| OPM SPACE 4,10 01331 M00S01319.1mu +++|** OPM - OUTPUT MESSAGE ON OPEN PARAMETER ERROR. 01332 M00S01320.1mu +++|* 01333 M00S01321.1mu +++|* ENTRY (EP) = CHARACTER POSITION OF FIELD IN ERROR. 01334 M00S01322.1mu +++|* 01335 M00S01323.1mu +++|* USES CM - CM+4. 01336 M00S01324.1mu +++|* 01337 M00S01325.1mu +++|* CALLS DFM. 01338 M00S01326.1mu +++|* 01339 M00S01327.1mu +++|* MACROS MONITOR. 01340 M00S01328.1mu +++| 01341 M00S01329.1mu +++| 01342 M00S01330.1mu +++| OPM SUBR ENTRY/EXIT 01343 M00S01331.1mu +++| LDN ZERL CONVERT DATA 01344 M00S01332.1mu +++| CRD CM 01345 M00S01333.1mu +++| LDD EP 01346 M00S01334.1mu +++| STD CM+4 01347 M00S01335.1mu +++| LDD MA 01348 M00S01336.1mu +++| CWD CM 01349 M00S01337.1mu +++| MONITOR RDCM 01350 M00S01338.1mu +++| LDD MA 01351 M00S01339.1mu +++| CRD CM 01352 M00S01340.1mu +++| LDD CM+4 01353 M00S01341.1mu +++| STM OPMA+12 01354 M00S01342.1mu +++| LDC OPMA * FIELD BEGINNING AT NN NO COMPARE.* 01355 M00S01343.1mu +++| RJM DFM 01356 M00S01344.1mu +++| UJN OPMX RETURN 01357 M00S01345.1mu +++| 01358 M00S01346.1mu +++| 01359 M00S01347.1mu +++| OPMA DATA C* FIELD BEGINNING AT 00 NO COMPARE.* 01360 M00S01348.1mu +++| STM SPACE 4,30 01361 M00S01349.1mu +++|** STM - MTS/ATS STATUS ERROR DEFINTION. 01362 M00S01350.1mu +++|* GIVES ADDITIONAL DESCRIPTION OF STATUS ERROR MESSAGE. 01363 M00S01351.1mu +++|* 01364 M00S01352.1mu +++|* ISSUES ONE OF THE FOLLOWING MESSAGES FOR MTS. 01365 M00S01353.1mu +++|* 01366 M00S01354.1mu +++|* UNIT HAS MOTION PROBLEMS. (SEVERE START ERROR) 01367 M00S01355.1mu +++|* SINGLE FRAME ERROR(S). 01368 M00S01356.1mu +++|* LRC ERROR(S). 01369 M00S01357.1mu +++|* CRC ERROR(S). 01370 M00S01358.1mu +++|* POSTAMBLE ERROR. 01371 M00S01359.1mu +++|* MULTI-TRACK PHASE ERROR. 01372 M00S01360.1mu +++|* INCORRECT CHARACTER. 01373 M00S01361.1mu +++|* PARITY ERROR. 01374 M00S01362.1mu +++|* 01375 M00S01363.1mu +++|* ISSUES ONE OF THE FOLLOWING MESSAGES FOR ATS. 01376 M00S01364.1mu +++|* 01377 M00S01365.1mu +++|* UNIT PROBLEMS. (UNIT CHECK) 01378 M00S01366.1mu +++|* SINGLE FRAME ERROR. 01379 M00S01367.1mu +++|* CRC ERROR. 01380 M00S01368.1mu +++|* INCORRECT CHARACTER. 01381 M00S01369.1mu +++|* PARITY ERROR. 01382 M00S01370.1mu +++|* 01383 M00S01371.1mu +++|* USES T1, T3. 01384 M00S01372.1mu +++|* 01385 M00S01373.1mu +++|* CALLS DFM. 01386 M00S01374.1mu +++| 01387 M00S01375.1mu +++| 01388 M00S01376.1mu +++| STM SUBR ENTRY/EXIT 01389 M00S01377.1mu +++| LDD HP 01390 M00S01378.1mu +++| SHN 21-7 01391 M00S01379.1mu +++| MJN STMX IF CTS
| Line S01380 Modification History | |
|---|---|
M01 (Removed by) | ns2764 |
Seq # *Modification Id* Act ----------------------------+ 01392 M01S01380.ns2764 ---| SHN 21-4-21+7 01393 M01S01381.ns2764 ---| PJN STM1 IF MTS CONTROLLER
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2764 |
Seq # *Modification Id* Act ----------------------------+ 01394 M01S00001.ns2764 +++| SHN 7-21 01395 M01S00002.ns2764 +++| LPN 20 01396 M01S00003.ns2764 +++| ZJN STM1 IF MTS CONTROLLER 01397 M00S01382.1mu +++| LDN ATSM-MTSM 01398 M00S01383.1mu +++| STM1 ADC MTSM-2 SET ADDRESS OF MESSAGE TABLE 01399 M00S01384.1mu +++| STD T3 01400 M00S01385.1mu +++| STM2 LDN 2 INCREMENT TO NEXT ENTRY 01401 M00S01386.1mu +++| RAD T3 01402 M00S01387.1mu +++| LDI T3 01403 M00S01388.1mu +++| ZJN STM3 IF END OF TABLE 01404 M00S01389.1mu +++| SHN 14 POSITION INDEX INTO DETAILED STATUS 01405 M00S01390.1mu +++| STD T1 01406 M00S01391.1mu +++| SHN 6 SET CORRECT SHIFT 01407 M00S01392.1mu +++| LPN 77 01408 M00S01393.1mu +++| LMC SHNI 01409 M00S01394.1mu +++| STM STMA 01410 M00S01395.1mu +++| LDM DSTS,T1 CHECK BIT 01411 M00S01396.1mu +++| STMA SHN 0 01412 M00S01397.1mu +++| PJN STM2 IF BIT NOT SET IN STATUS BYTE 01413 M00S01398.1mu +++| STM3 AOD T3 GET MESSAGE ADDRESS 01414 M00S01399.1mu +++| LDI T3 01415 M00S01400.1mu +++| RJM DFM ISSUE MESSAGE 01416 M00S01401.1mu +++| LJM STMX RETURN 01417 M00S01402.1mu +++| TME SPACE 4,10 01418 M00S01403.1mu +++|** TME - TAPE MANAGER ERROR. 01419 M00S01404.1mu +++|* 01420 M00S01405.1mu +++|* EXIT END OF SET STATUS SET. 01421 M00S01406.1mu +++|* *TFM* ERROR MESSAGE ISSUED. 01422 M00S01407.1mu +++|* 01423 M00S01408.1mu +++|* CALLS DFM. 01424 M00S01409.1mu +++| 01425 M00S01410.1mu +++| 01426 M00S01411.1mu +++| TME SUBR ENTRY/EXIT 01427 M00S01412.1mu +++| LDD UP SET END OF SET FLAG 01428 M00S01413.1mu +++| LPC 7677 01429 M00S01414.1mu +++| LMD HN 01430 M00S01415.1mu +++| STD UP 01431 M00S01416.1mu +++| LDC TMMS 01432 M00S01417.1mu +++| RJM DFM ISSUE MESSAGE 01433 M00S01418.1mu +++| UJN TMEX RETURN 01434 M00S01419.1mu +++| VAE SPACE 4,10 01435 M00S01420.1mu +++|** VAE - ISSUE VSN ASSIGNMENT ERROR MESSAGE. 01436 M00S01421.1mu +++|* 01437 M00S01422.1mu +++|* USES T1, T3. 01438 M00S01423.1mu +++|* 01439 M00S01424.1mu +++|* CALLS ACS, DFM. 01440 M00S01425.1mu +++| 01441 M00S01426.1mu +++| 01442 M00S01427.1mu +++| VAE SUBR ENTRY/EXIT 01443 M00S01428.1mu +++| LDD PB 01444 M00S01429.1mu +++| LMN /MTX/AME 01445 M00S01430.1mu +++| ZJN VAE1 IF ACS MOUNT ERROR 01446 M00S01431.1mu +++| LDC TRRJ&TACM 01447 M00S01432.1mu +++| VAE1 LMC TACM SET MESSAGE TEXT ADDRESS 01448 M00S01433.1mu +++| ADD PA 01449 M00S01434.1mu +++| STD T3 01450 M00S01435.1mu +++| LDI T3 01451 M00S01436.1mu +++| ZJN VAEX IF NO MESSAGE 01452 M00S01437.1mu +++| LDC BFMS SET ASSEMBLY ADDRESS 01453 M00S01438.1mu +++| STD T1 01454 M00S01439.1mu +++| LDN 0 INITIALIZE ASSEMBLY BUFFER 01455 M00S01440.1mu +++| STI T1 01456 M00S01441.1mu +++| LDC =Z* VSN * 01457 M00S01442.1mu +++| RJM ACS ASSEMBLE PREFIX 01458 M00S01443.1mu +++| LDC EVSN 01459 M00S01444.1mu +++| RJM ACS ASSEMBLE VSN 01460 M00S01445.1mu +++| LDI T3 SET MESSAGE TEXT ADDRESS 01461 M00S01446.1mu +++| RJM ACS ASSEMBLE MESSAGE TEXT 01462 M00S01447.1mu +++| LDC BFMS 01463 M00S01448.1mu +++| RJM DFM ISSUE MESSAGE 01464 M00S01449.1mu +++| LJM VAEX RETURN 01465 M00S01450.1mu +++| PROC SPACE 4,10 01466 M00S01451.1mu +++|** PROC - DEFINE MESSAGE PROCESSOR FOR MTS/ATS. 01467 M00S01452.1mu +++|* 01468 M00S01453.1mu +++|* PROC INDEX,BIT,ADDR 01469 M00S01454.1mu +++|* 01470 M00S01455.1mu +++|* *INDEX* = INDEX INTO MTS/ATS DETAILED STATUS. 01471 M00S01456.1mu +++|* *BIT* = BIT TO CHECK IN STATUS BYTE. 01472 M00S01457.1mu +++|* *ADDR* = ADDRESS OF MESSAGE TO ISSUE IF BIT SET. 01473 M00S01458.1mu +++| 01474 M00S01459.1mu +++| 01475 M00S01460.1mu +++| PROC MACRO IN,BIT,AD 01476 M00S01461.1mu +++| CON IN*100+21-BIT,AD 01477 M00S01462.1mu +++| ENDM 01478 M00S01463.1mu +++| MTSM SPACE 4,10 01479 M00S01464.1mu +++|** MTSM - MTS MESSAGE PROCESSOR TABLE. 01480 M00S01465.1mu +++|* ENTRY = 2 WORDS. 01481 M00S01466.1mu +++|* 01482 M00S01467.1mu +++|*T, 6/INDEX,6/SHIFT,12/ADDR
Figure
01483 M00S01468.1mu +++|* 01484 M00S01469.1mu +++|* INDEX INDEX INTO MTS/ATS DETAILED STATUS. 01485 M00S01470.1mu +++|* SHIFT CORRECT SHIFT TO TEST DESIRED BIT. 01486 M00S01471.1mu +++|* ADDR ADDRESS OF MESSAGE TO ISSUE IF BIT SET. 01487 M00S01472.1mu +++| 01488 M00S01473.1mu +++| 01489 M00S01474.1mu +++| MTSM BSS 0 01490 M00S01475.1mu +++| LOC 0 01491 M00S01476.1mu +++| PROC 1,13,(=C* UNIT HAS MOTION PROBLEMS.*) 01492 M00S01477.1mu +++| PROC 1,10,(=C* SINGLE FRAME ERROR.*) 01493 M00S01478.1mu +++| PROC 1,7,(=C* LRC ERROR.*) 01494 M00S01479.1mu +++| PROC 1,4,(=C* CRC ERROR.*) 01495 M00S01480.1mu +++| PROC 1,0,(=C* POSTAMBLE ERROR.*) 01496 M00S01481.1mu +++| PROC 3,11,(=C* MULTI-TRACK PHASE ERROR.*) 01497 M00S01482.1mu +++| PROC 0,11,(=C* PARITY ERROR.*) 01498 M00S01483.1mu +++| PROC 2,5,(=C* INCORRECT CHARACTER.*) 01499 M00S01484.1mu +++| CON 0,=C* PARITY ERROR.* END OF TABLE 01500 M00S01485.1mu +++| LOC *O 01501 M00S01486.1mu +++| ATSM SPACE 4,10 01502 M00S01487.1mu +++|** ATSM - ATS MESSAGE PROCESSOR TABLE. 01503 M00S01488.1mu +++|* ENTRY = 2 WORDS. 01504 M00S01489.1mu +++|* 01505 M00S01490.1mu +++|*T, 6/INDEX,6/SHIFT,12/ADDR
Figure
01506 M00S01491.1mu +++|* 01507 M00S01492.1mu +++|* INDEX INDEX INTO MTS/ATS DETAILED STATUS. 01508 M00S01493.1mu +++|* SHIFT CORRECT SHIFT TO TEST DESIRED BIT. 01509 M00S01494.1mu +++|* ADDR ADDRESS OF MESSAGE TO ISSUE IF BIT SET. 01510 M00S01495.1mu +++| 01511 M00S01496.1mu +++| 01512 M00S01497.1mu +++| ATSM BSS 0 01513 M00S01498.1mu +++| LOC 0 01514 M00S01499.1mu +++| PROC 0,12,(=C* UNIT PROBLEMS.*) 01515 M00S01500.1mu +++| PROC 2,7,(=C* CRC ERROR.*) 01516 M00S01501.1mu +++| PROC 2,10,(=C* CRC ERROR.*) 01517 M00S01502.1mu +++| PROC 2,11,(=C* CRC ERROR.*) 01518 M00S01503.1mu +++| PROC 2,6,(=C* SINGLE FRAME ERROR.*) 01519 M00S01504.1mu +++| PROC 2,2,(=C* INCORRECT CHARACTER.*) 01520 M00S01505.1mu +++| PROC 0,11,(=C* PARITY ERROR.*) 01521 M00S01506.1mu +++| CON 0,=C* PARITY ERROR.* END OF TABLE 01522 M00S01507.1mu +++| LOC *O 01523 M00S01508.1mu +++| TACM SPACE 4,10 01524 M00S01509.1mu +++|** TACM - TABLE OF ACF RESPONSE MESSAGES FOR *AME* ERROR. 01525 M00S01510.1mu +++|* 01526 M00S01511.1mu +++|* INDEXED BY *COMSATF* RESPONSE CODE. 01527 M00S01512.1mu +++| 01528 M00S01513.1mu +++| 01529 M00S01514.1mu +++| TACM INDEX 01530 M00S01515.1mu +++| INDEX /ATF/NSA,(=Z* NOT IN REQUESTED ACS.*) 01531 M00S01516.1mu +++| INDEX /ATF/URL,(=Z* UNREADABLE OPTICAL LABEL.*) 01532 M00S01517.1mu +++| INDEX /ATF/VNL,(=Z* NOT IN ACS LIBRARY.*) 01533 M00S01518.1mu +++| INDEX /ATF/MXFE 01534 M00S01519.1mu +++| TNWE SPACE 4,10 01535 M00S01520.1mu +++|** TNWE - TABLE OF MESSAGES FOR *NWE* ERROR. 01536 M00S01521.1mu +++|* 01537 M00S01522.1mu +++|* INDEXED BY *NWE* SUB ERROR CODE. 01538 M00S01523.1mu +++| 01539 M00S01524.1mu +++| 01540 M00S01525.1mu +++| TNWE INDEX 01541 M00S01526.1mu +++| INDEX /MTX/WTB,(=C* 200 BPI WRITE INCORRECT.*) 01542 M00S01527.1mu +++| INDEX /MTX/LNE,(=C* LABEL NOT EXPIRED.*) 01543 M00S01528.1mu +++| INDEX /MTX/MWSC 01544 M00S01529.1mu +++| TRRJ SPACE 4,10 01545 M00S01530.1mu +++|** TRRJ - TABLE OF MESSAGES FOR *RRJ* ERROR. 01546 M00S01531.1mu +++|* 01547 M00S01532.1mu +++|* INDEXED BY *RRJ* SUB ERROR CODE. 01548 M00S01533.1mu +++| 01549 M00S01534.1mu +++| 01550 M00S01535.1mu +++| TRRJ INDEX 01551 M00S01536.1mu +++| INDEX /MTX/WRD,(=Z* NOT WRITE ENABLED.*) 01552 M00S01537.1mu +++| INDEX /MTX/NLB,(=Z* NOT LABELED.*) 01553 M00S01538.1mu +++| INDEX /MTX/CAD,(=Z* CANNOT ACCESS FILE DATA.*) 01554 M00S01539.1mu +++| INDEX /MTX/WVS,(=Z* INTERNAL VSN MISMATCH.*) 01555 M00S01540.1mu +++| INDEX /MTX/MRSC 01556 M00S01541.1mu +++| TUEM SPACE 4,10 01557 M00S01542.1mu +++|**** TUEM - TABLE OF USER ERROR MESSAGES. 01558 M00S01543.1mu +++|* ALL USER ERRORS ARE FATAL UNLESS THEY ARE ALSO CONTAINED 01559 M00S01544.1mu +++|* IN THE FOLLOWING TABLE. 01560 M00S01545.1mu +++| 01561 M00S01546.1mu +++| 01562 M00S01547.1mu +++| TUEM INDEX 01563 M00S01548.1mu +++| INDEX /MTX/BEI,(=Z* BOT/EOT ENCOUNTERED, *) 01564 M00S01549.1mu +++| INDEX /MTX/ERM,(=Z* END OF TAPE, *) 01565 M00S01550.1mu +++| INDEX /MTX/BTA,(=Z* BLANK TAPE, *) 01566 M00S01551.1mu +++| INDEX /MTX/NWE,(=Z* NO WRITE ENABLE, *) 01567 M00S01552.1mu +++| INDEX /MTX/BCW,(=Z* BUFFER CONTROL WORD ERROR, *) 01568 M00S01553.1mu +++| INDEX /MTX/RAF,(=Z* READ AFTER WRITE, *) 01569 M00S01554.1mu +++| INDEX /MTX/IOS,(=Z* END OF SET INCORRECT REQUEST, *) 01570 M00S01555.1mu +++| INDEX /MTX/BAE,(=Z* BUFFER ARGUMENT ERROR, *) 01571 M00S01556.1mu +++| INDEX /MTX/SCI,(=Z* CODED I/O NOT SUPPORTED, *) 01572 M00S01557.1mu +++| INDEX /MTX/TPE,(=Z* JOB ABORTED BY TAPE MANAGER, *) 01573 M00S01558.1mu +++| INDEX /MTX/AME,(=Z* ACS MOUNT ERROR, *) 01574 M00S01559.1mu +++| INDEX /MTX/RRJ,(=Z* REEL ASSIGNMENT REJECTED, *) 01575 M00S01560.1mu +++| INDEX /MTX/LAM,(=Z* LABEL MISSING, *) 01576 M00S01561.1mu +++| INDEX /MTX/LCE,(=Z* LABEL CONTENT ERROR, *) 01577 M00S01562.1mu +++| INDEX /MTX/LBE,(=Z* TRAILER BLOCK COUNT ERROR, *) 01578 M00S01563.1mu +++| INDEX /MTX/LPE,(=Z* LABEL PARAMETER ERROR ON OPEN, *) 01579 M00S01564.1mu +++| INDEX /MTX/LIT,(=Z* INCORRECT LABEL TYPE, *) 01580 M00S01565.1mu +++| INDEX /MTX/IXL,(=Z* XL BUFFER/FET PARAMETER ERROR, *) 01581 M00S01566.1mu +++| INDEX /MTX/MFM,(=Z* MULTI-FILE NOT FOUND, *) 01582 M00S01567.1mu +++| INDEX /MTX/EFT,(=Z* ERROR FLAG TERMINATION, *) 01583 M00S01568.1mu +++| INDEX /MTX/SYE,(=Z* SYSTEM ERROR, *) 01584 M00S01569.1mu +++| INDEX /MTX/FPI,(=Z* FILE POSITION INDETERMINATE, *) 01585 M00S01570.1mu +++| INDEX /MTX/OPA,(=Z* WRONG PARITY, *) 01586 M00S01571.1mu +++| INDEX /MTX/BTL,(=Z* BLOCK TOO LARGE, *) 01587 M00S01572.1mu +++| INDEX /MTX/BNE,(=Z* BLOCK SEQUENCE ERROR, *) 01588 M00S01573.1mu +++| INDEX /MTX/STE,(=Z* STATUS ERROR, *) 01589 M00S01574.1mu +++| INDEX /MTX/CMF,(=Z* CHANNEL MALFUNCTION, *) 01590 M00S01575.1mu +++| INDEX /MTX/RDR,(=Z* READY DROP, *) 01591 M00S01576.1mu +++| INDEX /MTX/FRJ,(=Z* FUNCTION REJECT, *) 01592 M00S01577.1mu +++| INDEX /MTX/WEO,(=Z* UNIT HUNG UP ON EOP OR BUSY, *) 01593 M00S01578.1mu +++| INDEX /MTX/CRJ,(=Z* CONNECT REJECT, *) 01594 M00S01579.1mu +++| INDEX /MTX/ERA,(=Z* ERASE LIMIT, *) 01595 M00S01580.1mu +++| INDEX /MTX/PLO,(=Z* POSITION LOST, *) 01596 M00S01581.1mu +++| INDEX /MTX/RCE,(=Z* REPOSITION CORRECTED ERROR, *) 01597 M00S01582.1mu +++| INDEX /MTX/MWT,(=Z* MARGINALLY WRITTEN TAPE, *) 01598 M00S01583.1mu +++| INDEX /MTX/WVF,(=Z* WRITE VERIFY FAILURE, *) 01599 M00S01584.1mu +++| INDEX /MTX/TME,(=Z* WRITE TAPE MARK FAILURE, *) 01600 M00S01585.1mu +++| INDEX /MTX/TCF,(=Z* TAPE CLEANER FAULT, *) 01601 M00S01586.1mu +++| INDEX /MTX/BFR,(=Z* READ ID BURST FAILURE, *) 01602 M00S01587.1mu +++| INDEX /MTX/BFW,(=Z* WRITE ID BURST FAILURE, *) 01603 M00S01588.1mu +++| INDEX /MTX/MERC 01604 M00S01589.1mu +++| 01605 M00S01590.1mu +++| TERR DATA Z* ERROR CODE 00,* 01606 M00S01591.1mu +++| 01607 M00S01592.1mu +++|* TAME - TABLE OF ADDITIONAL MESSAGES TO BE ISSUED IF ERROR 01608 M00S01593.1mu +++|* OCCURS ON THE FIRST BLOCK OF THE TAPE. 01609 M00S01594.1mu +++| 01610 M00S01595.1mu +++| TAME INDEX 01611 M00S01596.1mu +++| INDEX /MTX/BTL,(=C* TAPE FORMAT PROBABLY WRONG.*) 01612 M00S01597.1mu +++| INDEX /MTX/BNE,(=C* TAPE FORMAT PROBABLY WRONG.*) 01613 M00S01598.1mu +++| INDEX /MTX/MERC 01614 M00S01599.1mu +++| TSPC SPACE 4,10 01615 M00S01600.1mu +++|** TSPC - TABLE OF SPECIAL PROCESSORS. 01616 M00S01601.1mu +++| 01617 M00S01602.1mu +++| TSPC INDEX 01618 M00S01603.1mu +++| INDEX /MTX/NWE,NWE 01619 M00S01604.1mu +++| INDEX /MTX/IOS,MFM 01620 M00S01605.1mu +++| INDEX /MTX/TPE,TME 01621 M00S01606.1mu +++| INDEX /MTX/AME,VAE 01622 M00S01607.1mu +++| INDEX /MTX/RRJ,VAE 01623 M00S01608.1mu +++| INDEX /MTX/LPE,OPM 01624 M00S01609.1mu +++| INDEX /MTX/MFM,MFM 01625 M00S01610.1mu +++| INDEX /MTX/STE,STM 01626 M00S01611.1mu +++| INDEX /MTX/MERC
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01627 M01S00013.ns2773 +++| TITLE CHECK JOB ERROR FLAG. 01628 M01S00014.ns2773 +++| CJE SPACE 4,15 01629 M01S00015.ns2773 +++|** CJE - CHECK JOB ERROR FLAG. 01630 M01S00016.ns2773 +++|* 01631 M01S00017.ns2773 +++|* 01632 M01S00018.ns2773 +++|*T UXRQ 12/ 1,12/ CJE,12/,12/ PA,12/ PB
Figure UXRQ
01633 M01S00019.ns2773 +++|* 01634 M01S00020.ns2773 +++|* PA = 0. 01635 M01S00021.ns2773 +++|* PB = 0. 01636 M01S00022.ns2773 +++|* 01637 M01S00023.ns2773 +++|*T, EXIT 12/ 2,12/ CJE,12/,12/ PA,12/ PB
Figure EXIT
01638 M01S00024.ns2773 +++|* 01639 M01S00025.ns2773 +++|* PA = 0. 01640 M01S00026.ns2773 +++|* PB = 0 IF NOT TO ABORT *CIO* REQUEST. 01641 M01S00027.ns2773 +++|* PB .NE. 0 IF TO ABORT *CIO* REQUEST. 01642 M01S00028.ns2773 +++|* 01643 M01S00029.ns2773 +++|* CALLS CCR, PRS. 01644 M01S00030.ns2773 +++| 01645 M01S00031.ns2773 +++| 01646 M01S00032.ns2773 +++| ENTRY CJE 01647 M01S00033.ns2773 +++| RJM PRS PRESET 01648 M01S00034.ns2773 +++| LDD CP READ ERROR FLAG 01649 M01S00035.ns2773 +++| ADN STSW 01650 M01S00036.ns2773 +++| CRD CM 01651 M01S00037.ns2773 +++| LDD CM+1 01652 M01S00038.ns2773 +++| LMN ODET 01653 M01S00039.ns2773 +++| ZJN CJE1 IF OPERATOR DROP 01654 M01S00040.ns2773 +++| LMN TAET&ODET 01655 M01S00041.ns2773 +++| ZJN CJE1 IF USER BREAK TWO 01656 M01S00042.ns2773 +++| LMN FSET&TAET 01657 M01S00043.ns2773 +++| ZJN CJE1 IF FORCED ERROR 01658 M01S00044.ns2773 +++| LMN FSET 01659 M01S00045.ns2773 +++| SBN SPET 01660 M01S00046.ns2773 +++| MJN CJE2 IF NOT SPECIAL PROCESSING ERROR 01661 M01S00047.ns2773 +++| CJE1 AOD PB SET TO ABORT REQUEST 01662 M01S00048.ns2773 +++| CJE2 LDN 0 DO NOT COMPLETE FET 01663 M01S00049.ns2773 +++| RJM CCR COMPLETE REQUEST 01664 M01S00050.ns2773 +++| LJM NCPX EXIT 01665 M01S00051.ns2773 +++| TITLE COMMON DATA AREA. 01666 M00S01612.1mu +++| SPACE 4,10 01667 M00S01613.1mu +++|** UDT DATA. 01668 M00S01614.1mu +++| 01669 M00S01615.1mu +++| 01670 M00S01616.1mu +++|* *UFRQ*. 01671 M00S01617.1mu +++| 01672 M00S01618.1mu +++| FREQ BSS 1 FILE REQUEST 01673 M00S01619.1mu +++| FRST BSS 1 FILE REQUEST STATUS 01674 M00S01620.1mu +++| BSS 2 RESERVED 01675 M00S01621.1mu +++| FNTA BSS 1 LOCAL FNT ADDRESS 01676 M00S01622.1mu +++| 01677 M00S01623.1mu +++|* *UCIA*. 01678 M00S01624.1mu +++| 01679 M00S01625.1mu +++| ICIO BSS 1 INTERNAL CIO CODE 01680 M00S01626.1mu +++| FETL BSS 1 FET LENGTH - 5 AND SKIP COUNT 01681 M00S01627.1mu +++| SKPC BSS 1 SKIP COUNT 01682 M00S01628.1mu +++| FETA BSS 2 FET ADDRESS 01683 M00S01629.1mu +++| 01684 M00S01630.1mu +++|* *UCIB*. 01685 M00S01631.1mu +++| 01686 M00S01632.1mu +++| ECIO BSS 1 EXTERNAL *CIO* CODE 01687 M00S01633.1mu +++| FETO BSS 1 FET OPTIONS 01688 M00S01634.1mu +++| LVLN BSS 1 LEVEL NUMBER / MLRS 01689 M00S01635.1mu +++| MLRS BSS 2 MLRS 01690 M00S01636.1mu +++| 01691 M00S01637.1mu +++|* *UDS1* - *UDS3*. 01692 M00S01638.1mu +++| 01693 M00S01639.1mu +++| DSTS BSS 3*5 DETAILED STATUS 01694 M00S01640.1mu +++| 01695 M00S01641.1mu +++|* *UESN*. 01696 M00S01642.1mu +++| 01697 M00S01643.1mu +++| EVSN BSS 5 EXTERNAL VSN, FLAGS 01698 M00S01644.1mu +++| 01699 M00S01645.1mu +++|* *UMSG* AND MESAGE TERMINATOR. 01700 M00S01646.1mu +++| 01701 M00S01647.1mu +++| TMMS BSSZ 4*5 TAPE MANAGER MESSAGE 01702 M00S01648.1mu +++| BSSZ 1 TERMINATOR 01703 M00S01649.1mu +++| SPACE 4,10 01704 M00S01650.1mu +++| TITLE SUBROUTINES. 01705 M00S01651.1mu +++| CCR SPACE 4,15 01706 M00S01652.1mu +++|** CCR - COMPLETE CIO REQUEST. 01707 M00S01653.1mu +++|* 01708 M00S01654.1mu +++|* ENTRY (A) = FET COMPLETION CODE IF .NE. 0. 01709 M00S01655.1mu +++|* (A) = 0 IF NOT TO COMPLETE FET. 01710 M00S01656.1mu +++|* 01711 M00S01657.1mu +++|* EXIT PP ASSIGNED TO MAGNET CONTROL POINT. 01712 M00S01658.1mu +++|* BLOCKS SKIPPED COUNT CLEARED IN UDT. 01713 M00S01659.1mu +++|* 01714 M00S01660.1mu +++|* USES CM - CM+4. 01715 M00S01661.1mu +++|* 01716 M00S01662.1mu +++|* CALLS RCP, UAD. 01717 M00S01663.1mu +++| 01718 M00S01664.1mu +++| 01719 M00S01665.1mu +++| CCR SUBR ENTRY/EXIT 01720 M00S01666.1mu +++| RJM RCP COMPLETE FET AND RETURN TO MAGNET CP 01721 M00S01667.1mu +++| RJM UAD 01722 M00S01668.1mu +++| ADK /MTX/UBLC GET BLOCKS SKIPPED 01723 M00S01669.1mu +++| CRD CM 01724 M00S01670.1mu +++| LDN 0 CLEAR BLOCKS SKIPPED 01725 M00S01671.1mu +++| STD CM+4 01726 M00S01672.1mu +++| RJM UAD 01727 M00S01673.1mu +++| ADK /MTX/UBLC UPDATE UDT 01728 M00S01674.1mu +++| CWD CM 01729 M00S01675.1mu +++| UJN CCRX RETURN 01730 M00S01676.1mu +++| FAD SPACE 4,10 01731 M00S01677.1mu +++|** FAD - SET FET ADDRESS. 01732 M00S01678.1mu +++|* 01733 M00S01679.1mu +++|* ENTRY (A) = OFFSET OF WORD IN FET. 01734 M00S01680.1mu +++|* 01735 M00S01681.1mu +++|* EXIT (A) = ADDRESS + RA IF FET ADDRESS IN FL. 01736 M00S01682.1mu +++|* (A) = 0 IF FET ADDRESS NOT IN FL. 01737 M00S01683.1mu +++| 01738 M00S01684.1mu +++| 01739 M00S01685.1mu +++| FAD1 LDN 0 SET ADDRESS ERROR 01740 M00S01686.1mu +++| 01741 M00S01687.1mu +++| FAD SUBR ENTRY/EXIT 01742 M00S01688.1mu +++| STD T0 SAVE WORD OFFSET 01743 M00S01689.1mu +++| LDM FETA 01744 M00S01690.1mu +++| SHN 14 01745 M00S01691.1mu +++| ADM FETA+1 01746 M00S01692.1mu +++| ADD T0 01747 M00S01693.1mu +++| SHN 14 01748 M00S01694.1mu +++| SBD FL 01749 M00S01695.1mu +++| SHN 6 01750 M00S01696.1mu +++| PJN FAD1 IF ADDRESS NOT IN FL 01751 M00S01697.1mu +++| SHN 14 01752 M00S01698.1mu +++| ADD FL 01753 M00S01699.1mu +++| ADD RA 01754 M00S01700.1mu +++| SHN 6 01755 M00S01701.1mu +++| UJN FADX RETURN 01756 M00S01702.1mu +++| SPACE 4,10 01757 M00S01703.1mu +++|** COMMON DECKS. 01758 M00S01704.1mu +++| 01759 M00S01705.1mu +++| 01760 M00S01706.1mu +++|*CALL COMPACS 01761 M00S01707.1mu +++|*CALL COMPANS 01762 M00S01708.1mu +++|*CALL COMPC2D 01763 M00S01709.1mu +++| SPACE 4,10 01764 M00S01710.1mu +++|** *0DF* BUFFER. 01765 M00S01711.1mu +++| 01766 M00S01712.1mu +++| 01767 M00S01713.1mu +++| B0DF EQU *+1 *0DF* OVERLAY BUFFER 01768 M00S01714.1mu +++| ERRNG BFMS-B0DF-ZDFL CHECK LENGTH OF *0DF* 01769 M00S01715.1mu +++| TITLE OVERLAID SUBROUTINES. 01770 M00S01716.1mu +++| PRS SPACE 4,10
| Line S01717 Modification History | |
|---|---|
M01 (Removed by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01771 M01S01717.ns2773 ---|** PRS - PRESET *CUF* AND *MAB* FUNCTIONS.
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01772 M01S00052.ns2773 +++|** PRS - PRESET *CUF*, *MAB*, AND *CJE* FUNCTIONS. 01773 M00S01718.1mu +++|* 01774 M00S01719.1mu +++|* EXIT PP ASSIGNED TO USER CONTROL POINT. 01775 M00S01720.1mu +++|* 01776 M00S01721.1mu +++|* CALLS CCP, UAD. 01777 M00S01722.1mu +++| 01778 M00S01723.1mu +++| 01779 M00S01724.1mu +++| PRS SUBR ENTRY/EXIT 01780 M00S01725.1mu +++| RJM UAD 01781 M00S01726.1mu +++| ADK /MTX/UFRQ GET CIO PARAMETERS 01782 M00S01727.1mu +++| CRM FREQ,TR 01783 M00S01728.1mu +++| ADK /MTX/UDS1-/MTX/UFRQ-3 GET DETAILED STATUS 01784 M00S01729.1mu +++| CRM DSTS,TR 01785 M00S01730.1mu +++| ADK /MTX/UBLC-/MTX/UDS1-3 GET BLOCK ACCUMULATOR 01786 M00S01731.1mu +++| CRD CM 01787 M00S01732.1mu +++| ADK /MTX/UMSG-/MTX/UBLC GET TAPE MANAGER MESSAGE 01788 M00S01733.1mu +++| CRM TMMS,TR 01789 M00S01734.1mu +++| CRM TMMS+5*3,ON 01790 M00S01735.1mu +++| ADK /MTX/UESN-/MTX/UMSG-4 GET EXTERNAL VSN 01791 M00S01736.1mu +++| CRM EVSN,ON 01792 M00S01737.1mu +++| LDN 0 TERMINATE VSN FOR MESSAGE ASSEMBLY 01793 M00S01738.1mu +++| STM EVSN+3 01794 M00S01739.1mu +++| LDD CM+4 SAVE BLOCKS SKIPPED 01795 M00S01740.1mu +++| STD T8 01796 M00S01741.1mu +++| RJM CCP CHANGE TO USER CP 01797 M00S01742.1mu +++| ZJN PRS2 IF CHANGE MADE 01798 M00S01743.1mu +++| LDD FN
| Line S01744 Modification History | |
|---|---|
M01 (Removed by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01799 M01S01744.ns2773 ---| LMN /MTX/MAB 01800 M01S01745.ns2773 ---| NJN PRS1 IF NOT CHECK ERROR FLAG 01801 M01S01746.ns2773 ---| LDD PB 01802 M01S01747.ns2773 ---| NJN PRS1 IF NOT CHECK ERROR FLAG
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 01803 M01S00053.ns2773 +++| LMN /MTX/CJE 01804 M01S00054.ns2773 +++| NJN PRS1 IF NOT CHECK JOB ABORT 01805 M00S01748.1mu +++| LJM NCPX RETURN NORMAL COMPLETION STATUS 01806 M00S01749.1mu +++| 01807 M00S01750.1mu +++| PRS1 LJM RJBX SET RECALL ON JOB ROLLED OUT 01808 M00S01751.1mu +++| 01809 M00S01752.1mu +++| PRS2 LDD T8 01810 M00S01753.1mu +++| ZJN PRS3 IF NO BLOCKS SKIPPED 01811 M00S01754.1mu +++| STM RCPC SET BLOCKS SKIPPED 01812 M00S01755.1mu +++| LDC ITPO*100 SET SRU INCREMENT 01813 M00S01756.1mu +++| STM RCPA 01814 M00S01757.1mu +++| PRS3 LJM PRSX RETURN 01815 M00S01758.1mu +++| OVERLAY (PROCESS AUXILIARY FUNCTION.) 01816 M00S01759.1mu +++| PAF SPACE 4,10 01817 M00S01760.1mu +++|** PAF - PROCESS AUXILIARY FUNCTION REQUEST. 01818 M00S01761.1mu +++|* 01819 M00S01762.1mu +++|* REQUEST FORMAT - 01820 M00S01763.1mu +++|* 01821 M00S01764.1mu +++|* 12/ 0,12/ *AFN*,12/ 0,12/ PM,12/ FC 01822 M00S01765.1mu +++|* 01823 M00S01766.1mu +++|* PM OPTIONAL PARAMETER. 01824 M00S01767.1mu +++|* FC FUNCTION CODE. 01825 M00S01768.1mu +++|* 01826 M00S01769.1mu +++|* CALLS CJA, HNG, IAM, IRM, LGA, RVS, USP, VME, VSE. 01827 M00S01770.1mu +++| 01828 M00S01771.1mu +++| 01829 M00S01772.1mu +++| ENTRY PAF ENTRY 01830 M00S01773.1mu +++| LDD PB 01831 M00S01774.1mu +++| SBN /MTX/AFMX 01832 M00S01775.1mu +++| MJN PAF1 IF VALID FUNCTION CODE 01833 M00S01776.1mu +++| RJM HNG HANG PP 01834 M00S01777.1mu +++| PAF1 LDM TAFN,PB 01835 M00S01778.1mu +++| STD T1 01836 M00S01779.1mu +++| LJM 0,T1 PROCESS FUNCTION 01837 M00S01780.1mu +++| TAFN SPACE 4,10 01838 M00S01781.1mu +++|** TAFN - TABLE OF *AFN* REQUEST FUNCTION CODES. 01839 M00S01782.1mu +++| 01840 M00S01783.1mu +++| 01841 M00S01784.1mu +++| TAFN INDEX 01842 M00S01785.1mu +++| INDEX /MTX/AFRA,IAM ISSUE REEL ASSIGNMENT MESSAGES 01843 M00S01786.1mu +++| INDEX /MTX/AFRR,IRM ISSUE REEL RETURN MESSAGES 01844 M00S01787.1mu +++| INDEX /MTX/AFLA,LGA LOG STATISTICAL ACCUMULATORS 01845 M00S01788.1mu +++| INDEX /MTX/AFNV,RVS RETURN NEXT VSN 01846 M00S01789.1mu +++| INDEX /MTX/AFUS,USP INITIATE UNIT SWAP 01847 M00S01790.1mu +++| INDEX /MTX/AFCJ,CJA CLEAR JOB ASSIGNMENT 01848 M00S01791.1mu +++| INDEX /MTX/AFVE,VSE ISSUE VSN MOUNTED EVENT 01849 M00S01792.1mu +++| INDEX /MTX/AFME,VME ISSUE VSN EVENT AFTER ACS MOUNT ERROR 01850 M00S01793.1mu +++| INDEX /MTX/AFMX TERMINATE TABLE 01851 M00S01794.1mu +++| IAM SPACE 4,10 01852 M00S01795.1mu +++|** IAM - ISSUE REEL ASSIGNMENT MESSAGES. 01853 M00S01796.1mu +++|* 01854 M00S01797.1mu +++|* CALLS IRA, IVM. 01855 M00S01798.1mu +++| 01856 M00S01799.1mu +++| 01857 M00S01800.1mu +++| IAM BSS 0 ENTRY
| Line S01801 Modification History | |
|---|---|
M01 (Removed by) | ns2770 |
Seq # *Modification Id* Act ----------------------------+ 01858 M01S01801.ns2770 ---| LDD UP 01859 M01S01802.ns2770 ---| SHN 21-12 01860 M01S01803.ns2770 ---| PJN IAM1 IF INITIAL REEL ASSIGNMENT 01861 M00S01804.1mu +++| RJM IVM ISSUE NEXT VSN ASSIGNED MESSAGE
| Line S01805 Modification History | |
|---|---|
M01 (Removed by) | ns2770 |
Seq # *Modification Id* Act ----------------------------+ 01862 M01S01805.ns2770 ---| IAM1 RJM IRA ISSUE REEL ASSIGNED MESSAGE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2770 |
Seq # *Modification Id* Act ----------------------------+ 01863 M01S00001.ns2770 +++| RJM IRA ISSUE REEL ASSIGNED MESSAGE 01864 M00S01806.1mu +++| LJM NCPX EXIT 01865 M00S01807.1mu +++| IRM SPACE 4,10 01866 M00S01808.1mu +++|** IRM - ISSUE REEL RETURN MESSAGES. 01867 M00S01809.1mu +++|*
| Line S01810 Modification History | |
|---|---|
M01 (Removed by) | ns2774 |
Seq # *Modification Id* Act ----------------------------+ 01868 M01S01810.ns2774 ---|* CALLS IRR, LCE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2774 |
Seq # *Modification Id* Act ----------------------------+ 01869 M01S00001.ns2774 +++|* CALLS IPT, IRR, LCE. 01870 M00S01811.1mu +++| 01871 M00S01812.1mu +++| 01872 M00S01813.1mu +++| IRM BSS 0 ENTRY
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2774 |
Seq # *Modification Id* Act ----------------------------+ 01873 M01S00002.ns2774 +++| RJM LCE LOG CORRECTED ERRORS 01874 M01S00003.ns2774 +++| RJM IPT ISSUE PRU-S TRANSFERRED MESSAGE 01875 M00S01814.1mu +++| RJM IRR ISSUE REEL RETURNED MESSAGE
| Line S01815 Modification History | |
|---|---|
M01 (Removed by) | ns2774 |
Seq # *Modification Id* Act ----------------------------+ 01876 M01S01815.ns2774 ---| RJM LCE LOG CORRECTED ERRORS 01877 M00S01816.1mu +++| LJM NCPX EXIT 01878 M00S01817.1mu +++| LGA SPACE 4,10 01879 M00S01818.1mu +++|** LGA - LOG STATISTICAL ACCUMULATORS. 01880 M00S01819.1mu +++|* 01881 M00S01820.1mu +++|* CALLS IPT, LCE, UAD. 01882 M00S01821.1mu +++| 01883 M00S01822.1mu +++| 01884 M00S01823.1mu +++| LGA BSS 0 ENTRY 01885 M00S01824.1mu +++| RJM UAD 01886 M00S01825.1mu +++| ADK /MTX/UERC GET CORRECTED ERROR ACCUMULATORS 01887 M00S01826.1mu +++| CRD CM 01888 M00S01827.1mu +++| LDD CM 01889 M00S01828.1mu +++| SHN -3 01890 M00S01829.1mu +++| NJN LGA1 IF THRESHOLD REACHED 01891 M00S01830.1mu +++| LDD CM+1 01892 M00S01831.1mu +++| LPN 77 01893 M00S01832.1mu +++| NJN LGA1 IF THRESHOLD REACHED 01894 M00S01833.1mu +++| LDD CM+2 01895 M00S01834.1mu +++| SHN -11 01896 M00S01835.1mu +++| NJN LGA1 IF THRESHOLD REACHED 01897 M00S01836.1mu +++| LDD CM+3 01898 M00S01837.1mu +++| NJN LGA1 IF THRESHOLD REACHED 01899 M00S01838.1mu +++| LDD CM+4 01900 M00S01839.1mu +++| SHN -11 01901 M00S01840.1mu +++| ZJN LGA2 IF THRESHOLD NOT REACHED 01902 M00S01841.1mu +++| LGA1 RJM LCE LOG CORRECTED ERRORS 01903 M00S01842.1mu +++| RJM UAD 01904 M00S01843.1mu +++| ADK /MTX/UBLC GET BLOCKS TRANSFERRED ACCUMULATORS 01905 M00S01844.1mu +++| CRD CM 01906 M00S01845.1mu +++| LDD CM 01907 M00S01846.1mu +++| NJN LGA2 IF THRESHOLD REACHED 01908 M00S01847.1mu +++| LDD CM+2 01909 M00S01848.1mu +++| ZJN LGA3 IF THRESHOLD NOT REACHED 01910 M00S01849.1mu +++| LGA2 RJM IPT ISSUE PRU-S TRANSFERRED MESSAGES 01911 M00S01850.1mu +++| LGA3 LJM NCPX EXIT 01912 M00S01851.1mu +++| RVS SPACE 4,10 01913 M00S01852.1mu +++|** RVS - RETURN NEXT VSN. 01914 M00S01853.1mu +++|* 01915 M00S01854.1mu +++|* CALLS AFA, IFA, RRS, UAD. 01916 M00S01855.1mu +++|* 01917 M00S01856.1mu +++|* MACROS ENDMS. 01918 M00S01857.1mu +++| 01919 M00S01858.1mu +++| 01920 M00S01859.1mu +++| RVS BSS 0 ENTRY 01921 M00S01860.1mu +++| 01922 M00S01861.1mu +++|* SET VSN FILE ACCESS AND READ ENTRY. 01923 M00S01862.1mu +++| 01924 M00S01863.1mu +++| RJM UAD 01925 M00S01864.1mu +++| ADK /MTX/UVRI 01926 M00S01865.1mu +++| CRD CN 01927 M00S01866.1mu +++| LDD CN+1 SET VSN FILE RANDOM ADDRESS 01928 M00S01867.1mu +++| LPN 77 01929 M00S01868.1mu +++| STD RI 01930 M00S01869.1mu +++| LDD CN+2 01931 M00S01870.1mu +++| STD RI+1 01932 M00S01871.1mu +++| ADD RI 01933 M00S01872.1mu +++| ZJN RVS4 IF NO RANDOM ADDRESS PRESENT 01934 M00S01873.1mu +++| LDN RVFO SET VSN FILE ORDINAL 01935 M00S01874.1mu +++| STD FO 01936 M00S01875.1mu +++| LDN 2 PRESET ERROR STATUS 01937 M00S01876.1mu +++| STD T9 01938 M00S01877.1mu +++| LDN PTRM SET READ READ ALLOW MODIFY ACCESS 01939 M00S01878.1mu +++| STD AM 01940 M00S01879.1mu +++| RJM IFA INITIALIZE VSN FILE ACCESS 01941 M00S01880.1mu +++| NJN RVS3 IF ERROR 01942 M00S01881.1mu +++| RJM RRS READ VSN FILE SECTOR 01943 M00S01882.1mu +++| ZJN RVS1 IF RANDOM ADDRESS ERROR OR NOT FULL SECTOR 01944 M00S01883.1mu +++| SHN -21 01945 M00S01884.1mu +++| STD T9 SET READ ERROR STATUS 01946 M00S01885.1mu +++| NJN RVS2 IF READ ERROR 01947 M00S01886.1mu +++| RVS1 ENDMS 01948 M00S01887.1mu +++| RVS2 LDN RFAS RETURN VSN FILE 01949 M00S01888.1mu +++| RJM AFA 01950 M00S01889.1mu +++| RVS3 SOD T9 01951 M00S01890.1mu +++| MJN RVS5 IF NO ERROR 01952 M00S01891.1mu +++| NJN RVS4 IF NOT READ ERROR 01953 M00S01892.1mu +++| LDM RDCT 01954 M00S01893.1mu +++| SHN 21-12 01955 M00S01894.1mu +++| MJN RVS4 IF NOT RECOVERABLE ERROR 01956 M00S01895.1mu +++| LDN /MTX/RDL REQUEUE ON TIME DELAY 01957 M00S01896.1mu +++| LJM SRSX SET REQUEST STATUS 01958 M00S01897.1mu +++| 01959 M00S01898.1mu +++|* RETURN SYSTEM ERROR. 01960 M00S01899.1mu +++| 01961 M00S01900.1mu +++| RVS4 LDK /MTX/SYE SET SYSTEM ERROR 01962 M00S01901.1mu +++| STD EC 01963 M00S01902.1mu +++| LJM ERRX RETURN ERROR 01964 M00S01903.1mu +++| 01965 M00S01904.1mu +++|* SET ENTRY OFFSET. 01966 M00S01905.1mu +++| 01967 M00S01906.1mu +++| RVS5 RJM UAD GET VSN REQUEST 01968 M00S01907.1mu +++| ADK /MTX/UESN 01969 M00S01908.1mu +++| CRD CM 01970 M00S01909.1mu +++| ADK /MTX/UISN-/MTX/UESN 01971 M00S01910.1mu +++| CRD T1 01972 M00S01911.1mu +++| LDD CN VERIFY JOB EJT ORDINAL 01973 M00S01912.1mu +++| LMM BFMS+2+5*/RSX/VDFI 01974 M00S01913.1mu +++| NJN RVS4 IF INCORRECT EJT ORDINAL 01975 M00S01914.1mu +++| LDD CN+3 SET ENTRY ORDINAL 01976 M00S01915.1mu +++| STD T6 01977 M00S01916.1mu +++| LDM BFMS+2+5*/RSX/VRLC+4 01978 M00S01917.1mu +++| LPN 77 REEL COUNT 01979 M00S01918.1mu +++| SBN 1 01980 M00S01919.1mu +++| SBD T6 01981 M00S01920.1mu +++| MJP RVS7 IF NO ENTRY FOR REEL 01982 M00S01921.1mu +++| LDM BFMS+2+5*/RSX/VRLC+4 01983 M00S01922.1mu +++| LPC 100 01984 M00S01923.1mu +++| ZJN RVS6 IF NOT EQUIVALENCED VSN-S 01985 M00S01924.1mu +++| LDD T6 ADJUST ORDINAL FOR EQUIVALENCED VSN-S 01986 M00S01925.1mu +++| RVS6 RAD T6 01987 M00S01926.1mu +++| SHN 2 SET VSN BUFFER OFFSET 01988 M00S01927.1mu +++| RAD T6 01989 M00S01928.1mu +++| 01990 M00S01929.1mu +++|* SET VSN-S FROM VSN FILE. 01991 M00S01930.1mu +++| 01992 M00S01931.1mu +++| LDM BFMS+2+5*/RSX/VVSN,T6 SET EXTERNAL AND INTERNAL VSN 01993 M00S01932.1mu +++| STD CM 01994 M00S01933.1mu +++| STD T1 01995 M00S01934.1mu +++| LDM BFMS+2+5*/RSX/VVSN+1,T6 01996 M00S01935.1mu +++| STD CM+1 01997 M00S01936.1mu +++| STD T1+1 01998 M00S01937.1mu +++| LDM BFMS+2+5*/RSX/VVSN+2,T6 01999 M00S01938.1mu +++| STD CM+2 02000 M00S01939.1mu +++| STD T1+2 02001 M00S01940.1mu +++| LDM BFMS+2+5*/RSX/VRLC+4 02002 M00S01941.1mu +++| SHN 21-6 02003 M00S01942.1mu +++| PJN RVS9 IF NOT EQUIVALENCED VSN-S 02004 M00S01943.1mu +++| LDM BFMS+2+5*/RSX/VVSN+5,T6 SET INTERNAL VSN 02005 M00S01944.1mu +++| STD T1 02006 M00S01945.1mu +++| LDM BFMS+2+5*/RSX/VVSN+6,T6 02007 M00S01946.1mu +++| STD T1+1 02008 M00S01947.1mu +++| LDM BFMS+2+5*/RSX/VVSN+7,T6 02009 M00S01948.1mu +++| STD T1+2 02010 M00S01949.1mu +++| UJN RVS9 UPDATE UDT 02011 M00S01950.1mu +++| 02012 M00S01951.1mu +++|* CHECK VSN RETURNED FROM *EOV2* LABEL. 02013 M00S01952.1mu +++| 02014 M00S01953.1mu +++| RVS7 LDD CN+4 02015 M00S01954.1mu +++| LPN 10 02016 M00S01955.1mu +++| NJN RVS8 IF VSN RETURNED FROM *EOV2* LABEL 02017 M00S01956.1mu +++| STD T1 CLEAR INTERNAL VSN 02018 M00S01957.1mu +++| STD T1+1 02019 M00S01958.1mu +++| STD T1+2 02020 M00S01959.1mu +++| RVS8 LDD T1 SET EXTERNAL VSN TO INTERNAL VSN 02021 M00S01960.1mu +++| STD CM 02022 M00S01961.1mu +++| LDD T1+1 02023 M00S01962.1mu +++| STD CM+1 02024 M00S01963.1mu +++| LDD T1+2 02025 M00S01964.1mu +++| STD CM+2 02026 M00S01965.1mu +++| 02027 M00S01966.1mu +++|* UPDATE UDT. 02028 M00S01967.1mu +++| 02029 M00S01968.1mu +++| RVS9 LDD CM+4 CLEAR SCRATCH VSN FLAG 02030 M00S01969.1mu +++| SCN 40 02031 M00S01970.1mu +++| STD CM+4 02032 M00S01971.1mu +++| LDD CM CHECK FOR SCRATCH VSN 02033 M00S01972.1mu +++| LMC 2R 02034 M00S01973.1mu +++| NJN RVS10 IF NOT SCRATCH VSN 02035 M00S01974.1mu +++| LMD CM 02036 M00S01975.1mu +++| LMD CM+1 02037 M00S01976.1mu +++| NJN RVS10 IF NOT SCRATCH VSN 02038 M00S01977.1mu +++| LMD CM+1 02039 M00S01978.1mu +++| LMD CM+2 02040 M00S01979.1mu +++| NJN RVS10 IF NOT SCRATCH VSN 02041 M00S01980.1mu +++| LDN 40 SET SCRATCH VSN 02042 M00S01981.1mu +++| RAD CM+4 02043 M00S01982.1mu +++| RVS10 RJM UAD 02044 M00S01983.1mu +++| ADK /MTX/UVRI WRITE VSN FLAGS 02045 M00S01984.1mu +++| CWD CN 02046 M00S01985.1mu +++| ADK /MTX/UESN-/MTX/UVRI WRITE EXTERNAL VSN 02047 M00S01986.1mu +++| CWD CM 02048 M00S01987.1mu +++| ADK /MTX/UISN-/MTX/UESN WRITE INTERNAL VSN 02049 M00S01988.1mu +++| CWD T1 02050 M00S01989.1mu +++| LJM NCPX EXIT 02051 M00S01990.1mu +++| USP SPACE 4,10 02052 M00S01991.1mu +++|** USP - INITIATE UNIT SWAP. 02053 M00S01992.1mu +++|* 02054 M00S01993.1mu +++|* ENTRY (PA) = NEW UDT ADDRESS. 02055 M00S01994.1mu +++|* 02056 M00S01995.1mu +++|* EXIT (PA) = NEW UDT ADDRESS.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1mu.txt · Last modified: (external edit)