cdc:nos2.source:opl.opl871:deck:1ma
Deck 1MA
Library Member Format: MODIFY
Listing Sections
- Deck 1MA Start
- Deck 1MA Part 1 (Line 2109)
- Deck 1MA Part 2 (Line 3874)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.1ma +++| IDENT 1MA,MTA 00002 M00S00002.1ma +++| PERIPH 00003 M00S00003.1ma +++| BASE MIXED 00004 M00S00004.1ma +++| SST 00005 M00S00005.1ma +++|*COMMENT 1MA - MONITOR AUXILIARY PROCESSOR.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.1ma +++| TITLE 1MA - MONITOR AUXILIARY PROCESSOR. 00009 M00S00008.1ma +++| SPACE 4,10 00010 M00S00009.1ma +++|***** 1MA - MONITOR AUXILIARY PROCESSOR. 00011 M00S00010.1ma +++|* G. R. MANSFIELD. 70/08/04. 00012 M00S00011.1ma +++|* A. J. KOMOR. 76/03/15. 00013 M00S00012.1ma +++| SPACE 4,10 00014 M00S00013.1ma +++|*** *1MA* IS CALLED BY THE SYSTEM MONITOR TO PERFORM 00015 M00S00014.1ma +++|* FUNCTIONS WHICH CAN NOT BE PROCESSED IMMEDIATELY BY THE 00016 M00S00015.1ma +++|* MONITOR. 00017 M00S00016.1ma +++| SPACE 4,10 00018 M00S00017.1ma +++|*** CALL. 00019 M00S00018.1ma +++|* 00020 M00S00019.1ma +++|* 00021 M00S00020.1ma +++|*T IR 18/ *1MA*,1/,5/ CP,12/ CODE,24/ ARG
Figure IR
00022 M00S00021.1ma +++|* CP CONTROL POINT NUMBER 00023 M00S00022.1ma +++|* CODE FUNCTION CODE 00024 M00S00023.1ma +++|* 0 = REQUEST STORAGE 00025 M00S00024.1ma +++|* 1 = DAYFILE MESSAGE 00026 M00S00025.1ma +++|* 2 = SCP FUNCTION ON UCP 00027 M00S00026.1ma +++|* 3 = FILE SWITCHING FUNCTION. 00028 M00S00027.1ma +++|* 4 = EXIT FROM SCP STATUS 00029 M00S00028.1ma +++|* 5 = EJT SYSTEM REQUEST 00030 M00S00029.1ma +++|* 6 = PROCESS CLOCK UPDATE. 00031 M00S00030.1ma +++|* 7 = LOG SOFTWARE ERROR. 00032 M00S00031.1ma +++|* 10 = LOAD CPP RESIDENT 00033 M00S00032.1ma +++|* 11 = LOAD OVERLAY FOR CPP. 00034 M00S00033.1ma +++|* 12 = IDLE CPP 00035 M00S00034.1ma +++|* ARG ARGUMENT(S) 00036 M00S00035.1ma +++| SPACE 4,10 00037 M00S00036.1ma +++|*** DAYFILE MESSAGES. 00038 M00S00037.1ma +++|* 00039 M00S00038.1ma +++|* 00040 M00S00039.1ma +++|* * FL REQUEST BEYOND MFL (CM).* = CM FL REQUEST EXCEEDS MFL. 00041 M00S00040.1ma +++|* 00042 M00S00041.1ma +++|* * FL REQUEST BEYOND MFL (EXTENDED MEMORY).* = EXTENDED MEMORY 00043 M00S00042.1ma +++|* FL REQUEST EXCEEDS MFL. 00044 M00S00043.1ma +++|* 00045 M00S00044.1ma +++|* * MFL LESS THAN EXTENDED MEMORY MINIMUM CM FL.* = A REQUEST 00046 M00S00045.1ma +++|* FOR EXTENDED MEMORY HAS BEEN MADE WHILE AN MFL OF LESS THAN 00047 M00S00046.1ma +++|* *MCMX* IS IN EFFECT. 00048 M00S00047.1ma +++|* 00049 M00S00048.1ma +++|* * INCORRECT COMMON MEMORY MANAGER REQUEST.* = A NON CMM TYPE 00050 M00S00049.1ma +++|* MEMORY REQUEST WAS MADE WHILE THE JOB STEP WAS IN CMM MODE. 00051 M00S00050.1ma +++|* 00052 M00S00051.1ma +++|* * INCORRECT REQUEST.* = PARAMETER ADDRESS OUTSIDE JOB FL. 00053 M00S00052.1ma +++|* 00054 M00S00053.1ma +++|* * USER ACCESS NOT VALID.* = UCP NOT QUALIFIED TO ACCESS SCP. 00055 M00S00054.1ma +++| SPACE 4,10 00056 M00S00055.1ma +++|*** ACCOUNT DAYFILE MESSAGES. 00057 M00S00056.1ma +++|* 00058 M00S00057.1ma +++|* 00059 M00S00058.1ma +++|* *ARUN, USERNAME, FAMILYNAME, TERMINALNAME.* = RECOVERY OF 00060 M00S00059.1ma +++|* AN INTERACTIVE JOB WITH A USER NAME OF USERNAME, A FAMILY 00061 M00S00060.1ma +++|* OF FAMILYNAME, AND A TERMINAL NAME OF TERMINALNAME. 00062 M00S00061.1ma +++|* 00063 M00S00062.1ma +++|* *ASTD, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER 00064 M00S00063.1ma +++|* NAME USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO A 00065 M00S00064.1ma +++|* USER DETACH. 00066 M00S00065.1ma +++|* 00067 M00S00066.1ma +++|* *ASTH, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER 00068 M00S00067.1ma +++|* NAME USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO A 00069 M00S00068.1ma +++|* LINE DISCONNECT. 00070 M00S00069.1ma +++|* 00071 M00S00070.1ma +++|* *ASTP, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER 00072 M00S00071.1ma +++|* NAME USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO A 00073 M00S00072.1ma +++|* PROGRAM REQUEST. 00074 M00S00073.1ma +++|* 00075 M00S00074.1ma +++|* *ASTR, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER 00076 M00S00075.1ma +++|* NAME USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO THE 00077 M00S00076.1ma +++|* RECOVERY OF THE INTERACTIVE SUBSYSTEM. 00078 M00S00077.1ma +++|* 00079 M00S00078.1ma +++|* *ASTT, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER 00080 M00S00079.1ma +++|* USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO A 00081 M00S00080.1ma +++|* SESSION TIMEOUT. 00082 M00S00081.1ma +++| SPACE 4,10 00083 M00S00082.1ma +++|*** OPERATOR MESSAGES. 00084 M00S00083.1ma +++|* 00085 M00S00084.1ma +++|* 00086 M00S00085.1ma +++|* *WAITING FOR STORAGE (CM).* = JOB IS WAITING FOR ADDITIONAL 00087 M00S00086.1ma +++|* CENTRAL MEMORY TO BE MADE AVAILABLE. 00088 M00S00087.1ma +++|* 00089 M00S00088.1ma +++|* *WAITING FOR STORAGE (EM).* = JOB IS WAITING FOR 00090 M00S00089.1ma +++|* ADDITIONAL EXTENDED CORE STORAGE TO BE MADE AVAILABLE. 00091 M00S00090.1ma +++|* 00092 M00S00091.1ma +++|* * CPP NOT RESPONDING* = A CPP HAS NOT BEGUN TO INPUT *PPR* 00093 M00S00092.1ma +++|* FROM CHANNEL 15 DURING A DEADSTART OPERATION. 00094 M00S00093.1ma +++|* 00095 M00S00094.1ma +++|* * LAST BYTE NOT TAKEN BY CPP* = THE LAST BYTE OF *PPR* HAS 00096 M00S00095.1ma +++|* BEEN INPUTTED BY THE CPP BEING DEADSTARTED. 00097 M00S00096.1ma +++|* 00098 M00S00097.1ma +++|* * CHANNEL 15 PARITY ERROR* = DURING CPP DEADSTART, A PARITY 00099 M00S00098.1ma +++|* ERROR WAS ENCOUNTERED ON CHANNEL 15. 00100 M00S00099.1ma +++|* 00101 M00S00100.1ma +++|* * PPR PRESET TIMEOUT* = AFTER BEING LOADED INTO A DEADSTARTED 00102 M00S00101.1ma +++|* CPP, *PPR* HUNG IN ITS PRESET CODE. 00103 M00S00102.1ma +++| SPACE 4,10 00104 M00S00103.1ma +++|*** ERROR LOG MESSAGE. 00105 M00S00104.1ma +++|* 00106 M00S00105.1ma +++|* * PPN P1234 SYSTEM ERROR.* = A PP WITH THE NAME OF PPN 00107 M00S00106.1ma +++|* DETECTED A SYSTEM ERROR AT ADDRESS 1234 WITHIN THE PP. 00108 M00S00107.1ma +++|* THE ADDRESS IS NOT VALID IF IT IS ZERO. 00109 M00S00108.1ma +++| SPACE 4,10 00110 M00S00109.1ma +++|*** HANG CONDITIONS. 00111 M00S00110.1ma +++|* 00112 M00S00111.1ma +++|* 00113 M00S00112.1ma +++|* 1. *1MA* IS CALLED WITH AN INCORRECT FUNCTION CODE. 00114 M00S00113.1ma +++|* 2. EJT REQUEST MADE WITH INCORRECT FUNCTION CODE. 00115 M00S00114.1ma +++| SPACE 4,10 00116 M00S00115.1ma +++|** DIRECT LOCATION ASSIGNMENTS. 00117 M00S00116.1ma +++| 00118 M00S00117.1ma +++| 00119 M00S00118.1ma +++| FN EQU 20 - 24 FNT ENTRY 00120 M00S00119.1ma +++| FS EQU 25 - 31 FST ENTRY 00121 M00S00120.1ma +++| SP EQU 32 - 36 SUBSYSTEM PARAMETER WORD 1 00122 M00S00121.1ma +++| SQ EQU 37 - 43 JOB IDENTIFIER 00123 M00S00122.1ma +++| SF EQU 44 SUBFUNCTION CODE FOR FUNCTION 0 00124 M00S00123.1ma +++| RC EQU 44 REPLY CODE FOR FUNCTION 3 00125 M00S00124.1ma +++| OT EQU 44 ORIGIN TYPE 00126 M00S00125.1ma +++| EF EQU 46 ERROR FLAG 00127 M00S00126.1ma +++| FA EQU 57 FNT ORDINAL 00128 M00S00127.1ma +++| CN EQU 60 - 64 SCRATCH 00129 M00S00128.1ma +++| SC EQU 67 SCP CONNECTION ACTIVITY, SERVICE CLASS 00130 M00S00129.1ma +++| W3 EQU 15 - 21 PARAMETER BLOCK 00131 M00S00130.1ma +++| W4 EQU 22 - 26 00132 M00S00131.1ma +++| W5 EQU W4 00133 M00S00132.1ma +++| TN EQU W5+1 TERMINAL NUMBER 00134 M00S00133.1ma +++| W0 EQU 27 - 33 00135 M00S00134.1ma +++| W1 EQU 34 - 40 00136 M00S00135.1ma +++| W2 EQU 41 - 45 00137 M00S00136.1ma +++| EJ EQU 46 - 47 EJT ENTRY ADDRESS 00138 M00S00137.1ma +++| TT EQU EJ TERMINAL TABLE ADDRESS 00139 M00S00138.1ma +++| TA EQU 57 INTERACTIVE SUBSYSTEM *RA* 00140 M00S00139.1ma +++| JS EQU 57 JOB STATUS 00141 M00S00140.1ma +++| EL EQU 57 ENTRY LENGTH 00142 M00S00141.1ma +++| SPACE 4,10 00143 M00S00142.1ma +++|** CONSTANTS. 00144 M00S00143.1ma +++| 00145 M00S00144.1ma +++| 00146 M00S00145.1ma +++| DETI EQU 1 DETACH ALLOWED IF INVOLUNTARY 00147 M00S00146.1ma +++| EJWD MAX JSNE,SCHE,SCLE HIGHEST WORD NEEDED FROM EJT 00148 M00S00147.1ma +++| SPACE 4,10 00149 M00S00148.1ma +++|** COMMON DECKS. 00150 M00S00149.1ma +++| 00151 M00S00150.1ma +++| 00152 M00S00151.1ma +++|*CALL COMPMAC 00153 M00S00152.1ma +++|*CALL COMSACC 00154 M00S00153.1ma +++|*CALL COMSDFS 00155 M00S00154.1ma +++|*CALL COMSEVT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 00156 M01S00001.ns2738 +++| QUAL DFT 00157 M00S00155.1ma +++|*CALL COMSDFT
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 00158 M01S00002.ns2738 +++| QUAL * 00159 M00S00156.1ma +++|*CALL COMSDST 00160 M00S00157.1ma +++| 00161 M00S00158.1ma +++| QUAL IOU 00162 M00S00159.1ma +++|*CALL COMSIOU 00163 M00S00160.1ma +++| QUAL * 00164 M00S00161.1ma +++| 00165 M00S00162.1ma +++|* UNQUALIFIED *COMSIOU* SYMBOLS. 00166 M00S00163.1ma +++| 00167 M00S00164.1ma +++| MR EQU /IOU/MR 00168 M00S00165.1ma +++| MX EQU /IOU/MX 00169 M00S00166.1ma +++| MXDM EQU /IOU/MXDM 00170 M00S00167.1ma +++| MXPT EQU /IOU/MXPT 00171 M00S00168.1ma +++| 00172 M00S00169.1ma +++|*CALL COMSEJT 00173 M00S00170.1ma +++|*CALL COMSJCE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00174 M01S00001.273l780 +++|*CALL COMSMSC
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00175 M01S00001.271l750 +++|*CALL COMSMTR 00176 M00S00171.1ma +++|*CALL COMSREM 00177 M00S00172.1ma +++|*CALL COMSSSJ 00178 M00S00173.1ma +++|*CALL COMSMSP 00179 M00S00174.1ma +++|*CALL COMSJRO 00180 M00S00175.1ma +++|*CALL COMSPIM 00181 M00S00176.1ma +++|*CALL COMSSSE 00182 M00S00177.1ma +++|*CALL COMSCPS 00183 M00S00178.1ma +++|*CALL COMSSCP 00184 M00S00179.1ma +++|*CALL COMSSRU 00185 M00S00180.1ma +++|*CALL COMSSSD 00186 M00S00181.1ma +++|*CALL COMSZOL 00187 M00S00182.1ma +++| SPACE 4,10 00188 M00S00183.1ma +++| TITLE MACRO DEFINITIONS. 00189 M00S00184.1ma +++| ABORT SPACE 4,10 00190 M00S00185.1ma +++|** ABORT - ERROR PROCESSING MACRO. 00191 M00S00186.1ma +++|* 00192 M00S00187.1ma +++|* ABORT ADDR 00193 M00S00188.1ma +++|* 00194 M00S00189.1ma +++|* ADDR = FWA OF ERROR MESSAGE FOR DAYFILE. 00195 M00S00190.1ma +++|* 00196 M00S00191.1ma +++|* CALLS ERR. 00197 M00S00192.1ma +++| 00198 M00S00193.1ma +++| 00199 M00S00194.1ma +++| PURGMAC ABORT 00200 M00S00195.1ma +++| 00201 M00S00196.1ma +++| ABORT MACRO A 00202 M00S00197.1ma +++| MACREF ABORT 00203 M00S00198.1ma +++| LDC A 00204 M00S00199.1ma +++| LJM ERR PROCESS ERROR 00205 M00S00200.1ma +++| ABORT ENDM 00206 M00S00201.1ma +++| SPACE 4,10 00207 M00S00202.1ma +++|** OVERLAY CONTROL. 00208 M00S00203.1ma +++|* 00209 M00S00204.1ma +++|* THIS FEATURE IS INCLUDED FOR FUTURE MODULARITY. 00210 M00S00205.1ma +++| 00211 M00S00206.1ma +++| .N SET 0 00212 M00S00207.1ma +++| OVLB MICRO 1,, 2M BASE OVERLAY NAME 00213 M00S00208.1ma +++| OVERLAY SPACE 4,10 00214 M00S00209.1ma +++|** OVERLAY - GENERATE OVERLAY CONSTANTS. 00215 M00S00210.1ma +++|* 00216 M00S00211.1ma +++|* OVERLAY (TEXT),LADDR. 00217 M00S00212.1ma +++|* 00218 M00S00213.1ma +++|* ENTRY *TEXT* = TEXT OF SUBTITLES. 00219 M00S00214.1ma +++|* *LADDR* = LOAD ADDRESS FOR OVERLAY, DEFAULT E1MA. 00220 M00S00215.1ma +++| 00221 M00S00216.1ma +++| 00222 M00S00217.1ma +++| PURGMAC OVERLAY 00223 M00S00218.1ma +++| 00224 M00S00219.1ma +++| OVERLAY MACRO TEXT,E1MA 00225 M00S00220.1ma +++| MACREF OVERLAY 00226 M00S00221.1ma +++| QUAL 00227 M00S00222.1ma +++| .N SET .N+1 00228 M00S00223.1ma +++| .M MICRO .N,1, ABCDFGHIJKLM 00229 M00S00224.1ma +++| .O MICRO 1,3, "OVLB"".M" 00230 M00S00225.1ma +++| QUAL ".O" 00231 M00S00226.1ma +++| TTL 1MA/".O" - TEXT 00232 M00S00227.1ma +++| TITLE 00233 M00S00228.1ma +++| IDENT ".O",E1MA TEXT 00234 M00S00229.1ma +++|*COMMENT 1MA - TEXT
| Line S00230 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00235 M01S00230.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00236 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00237 M00S00231.1ma +++| ORG E1MA 00238 M00S00232.1ma +++| ENDM 00239 M00S00233.1ma +++| SCLASS SPACE 4,15 00240 M00S00234.1ma +++|** SCLASS - DEFINE SERVICE CLASS TABLE. 00241 M00S00235.1ma +++|* 00242 M00S00236.1ma +++|* SCLASS NM,MN,DF,ST,TX 00243 M00S00237.1ma +++|* 00244 M00S00238.1ma +++|* ENTRY *NM* = SERVICE CLASS NAME. 00245 M00S00239.1ma +++|* *MN* = TWO CHARACTER MNEMONIC. 00246 M00S00240.1ma +++|* *DF* = DAYFILE MESSAGE CHARACTER. 00247 M00S00241.1ma +++|* *ST* = SHORT TEXT FOR *QFTLIST*. 00248 M00S00242.1ma +++|* *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE. 00249 M00S00243.1ma +++|* 00250 M00S00244.1ma +++|* NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF 00251 M00S00245.1ma +++|* THIS MACRO. 00252 M00S00246.1ma +++| 00253 M00S00247.1ma +++| 00254 M00S00248.1ma +++| PURGMAC SCLASS 00255 M00S00249.1ma +++| 00256 M00S00250.1ma +++| SCLASS MACRO NM,MN,DF,ST,TX 00257 M00S00251.1ma +++| .A IFC NE,$NM$SSSC$ 00258 M00S00252.1ma +++| .SCLVSP RMT 00259 M00S00253.1ma +++| INDEX NM,MN_MK TX 00260 M00S00254.1ma +++| .SCLVSP RMT 00261 M00S00255.1ma +++| .A ENDIF 00262 M00S00256.1ma +++| SCLASS ENDM 00263 M00S00257.1ma +++| 00264 M00S00258.1ma +++| 00265 M00S00259.1ma +++| SCL$ EQU 0 ONLY PROCESS CLASSES WITH JCB-S 00266 M00S00260.1ma +++|*CALL COMSSCD 00267 M00S00261.1ma +++| TABLE SPACE 4,10 00268 M00S00262.1ma +++|** TABLE - GENERATE OVERLAY TABLE. 00269 M00S00263.1ma +++|* 00270 M00S00264.1ma +++|* GENERATES 2-BYTE TABLE ENTRIES IN THE FORMAT 00271 M00S00265.1ma +++|* 00272 M00S00266.1ma +++|*T 12/ OVL,12/ ADDR
Figure
00273 M00S00267.1ma +++|* 00274 M00S00268.1ma +++|* OVL = LAST CHARACTER OF OVERLAY TO BE LOADED. 00275 M00S00269.1ma +++|* ADDR = ADDRESS OF FUNCTION PROCESSOR IN THE OVERLAY. 00276 M00S00270.1ma +++| 00277 M00S00271.1ma +++| 00278 M00S00272.1ma +++| PURGMAC TABLE 00279 M00S00273.1ma +++| 00280 M00S00274.1ma +++| MACRO TABLE,NAME,OFFSET,ADDR 00281 M00S00275.1ma +++| LOCAL MC,TAG1,TAG2,TAG3 00282 M00S00276.1ma +++| TAG1 IFC NE,$NAME$$ SET *NAME* TO BEGINNING OF TABLE 00283 M00S00277.1ma +++| NAME BSS 0 00284 M00S00278.1ma +++| .2 SET NAME 00285 M00S00279.1ma +++| TAG1 ELSE 00286 M00S00280.1ma +++| ORG .2+OFFSET*2-2 00287 M00S00281.1ma +++| TAG2 IFC NE,$ADDR$$ IF ACTUAL TABLE ENTRY 00288 M00S00282.1ma +++| MC MICRO 1,1, ADDR 00289 M00S00283.1ma +++| IFC NE,$"MC"$/$,1 00290 M00S00284.1ma +++| ERR TABLE ADDRESSES MUST BE QUALIFIED. 00291 M00S00285.1ma +++| MC MICRO 1,2, ADDR 00292 M00S00286.1ma +++| TAG3 IFC EQ,$"MC"$//$ IF NO OVERLAY TO LOAD 00293 M00S00287.1ma +++| CON 0,ADDR 00294 M00S00288.1ma +++| TAG3 ELSE STORE LAST CHARACTER OF OVERLAY NAME 00295 M00S00289.1ma +++| MC MICRO 4,1, ADDR 00296 M00S00290.1ma +++| CON 1R_"MC",ADDR 00297 M00S00291.1ma +++| TAG3 ENDIF 00298 M00S00292.1ma +++| TAG2 ENDIF 00299 M00S00293.1ma +++| TAG1 ENDIF 00300 M00S00294.1ma +++| ENDM 00301 M00S00295.1ma +++| TITLE MTA - MAIN PROGRAM. 00302 M00S00296.1ma +++| MTA SPACE 4,10 00303 M00S00297.1ma +++|** MTA - MAIN PROGRAM. 00304 M00S00298.1ma +++| 00305 M00S00299.1ma +++| 00306 M00S00300.1ma +++| ORG PPFW 00307 M00S00301.1ma +++| MTA LDD IR+2 CHECK FUNCTION 00308 M00S00302.1ma +++| SBN TFCNL 00309 M00S00303.1ma +++| MJN MTA1 IF LEGAL REQUEST 00310 M00S00304.1ma +++| LDN 0 00311 M00S00305.1ma +++| RJM CHG CONDITIONALLY HANG PP 00312 M00S00306.1ma +++| LJM DPP DROP PP 00313 M00S00307.1ma +++| 00314 M00S00308.1ma +++| MTA1 RJM IFP 00315 M00S00309.1ma +++| LDD IR+3 00316 M00S00310.1ma +++| LPN 37 00317 M00S00311.1ma +++| SHN 14 00318 M00S00312.1ma +++| LMD IR+4 00319 M00S00313.1ma +++| STM SRAB+1 00320 M00S00314.1ma +++| SHN -6 00321 M00S00315.1ma +++| STM SRAA+1 00322 M00S00316.1ma +++| SHN -6 00323 M00S00317.1ma +++| RAM SRAB 00324 M00S00318.1ma +++| LDM TFCN,IR+2 SET PROCESSOR 00325 M00S00319.1ma +++| STD T1 00326 M00S00320.1ma +++| LMC 4000 00327 M00S00321.1ma +++| ZJN MTA2 IF OVERLAY LOAD REQUIRED 00328 M00S00322.1ma +++| LJM 0,T1 ENTER PROCESSOR 00329 M00S00323.1ma +++| 00330 M00S00324.1ma +++| MTA2 LDN MESL READ MESSAGE DATA FROM MESSAGE BUFFER 00331 M00S00325.1ma +++| STD T1 00332 M00S00326.1ma +++| LDD MP+3 ASSEMBLE BUFFER ADDRESS 00333 M00S00327.1ma +++| SHN 14 00334 M00S00328.1ma +++| LMD MP+4 00335 M00S00329.1ma +++| ADN 1 00336 M00S00330.1ma +++| CRD SP 00337 M00S00331.1ma +++| ADN 1 READ JOB IDENTIFIER 00338 M00S00332.1ma +++| CRD SQ 00339 M00S00333.1ma +++| CRM BUF,T1 READ REST OF MESSAGE BUFFER 00340 M00S00334.1ma +++| LDN ZERL CLEAR BUFFER INTERLOCK 00341 M00S00335.1ma +++| CRD CN 00342 M00S00336.1ma +++| LDD MP+3 ASSEMBLE BUFFER ADDRESS 00343 M00S00337.1ma +++| SHN 14 00344 M00S00338.1ma +++| LMD MP+4 00345 M00S00339.1ma +++| CWD CN 00346 M00S00340.1ma +++| EXECUTE 2MA 00347 M00S00341.1ma +++| LDN 0 00348 M00S00342.1ma +++| RJM CHG CONDITIONALLY HANG PP 00349 M00S00343.1ma +++| LJM DPP DROP PP 00350 M00S00344.1ma +++| CHG SPACE 4,10 00351 M00S00345.1ma +++|** CHG - CONDITIONALLY HANG PP. 00352 M00S00346.1ma +++|* 00353 M00S00347.1ma +++|* ENTRY (A) = ERROR FLAG TO SET. 00354 M00S00348.1ma +++|* 00355 M00S00349.1ma +++|* USES CM - CM+4. 00356 M00S00350.1ma +++|* 00357 M00S00351.1ma +++|* MACROS MONITOR. 00358 M00S00352.1ma +++| 00359 M00S00353.1ma +++| 00360 M00S00354.1ma +++| CHG SUBR ENTRY/EXIT 00361 M00S00355.1ma +++| STD CM+2 SET ERROR FLAG 00362 M00S00356.1ma +++| LDM CHG P-ADDRESS 00363 M00S00357.1ma +++| STD CM+1 00364 M00S00358.1ma +++| MONITOR CHGM CONDITIONALLY HANG PP 00365 M00S00359.1ma +++| UJN CHGX RETURN 00366 M00S00360.1ma +++| ERR SPACE 4,10 00367 M00S00361.1ma +++|** ERR - ERROR PROCESSOR. 00368 M00S00362.1ma +++|* 00369 M00S00363.1ma +++|* ENTRY (A) = FWA OF ERROR MESSAGE FOR DAYFILE. 00370 M00S00364.1ma +++|* 00371 M00S00365.1ma +++|* EXIT DAYFILE MESSAGE ISSUED. 00372 M00S00366.1ma +++|* CONTROL POINT ABORTED. 00373 M00S00367.1ma +++|* 00374 M00S00368.1ma +++|* CALLS DFM. 00375 M00S00369.1ma +++|* 00376 M00S00370.1ma +++|* MACROS MONITOR. 00377 M00S00371.1ma +++| 00378 M00S00372.1ma +++| 00379 M00S00373.1ma +++| ERR RJM DFM 00380 M00S00374.1ma +++| MONITOR ABTM ABORT JOB 00381 M00S00375.1ma +++| ERR1 LJM PPR EXIT TO PP RESIDENT 00382 M00S00376.1ma +++| TITLE SUBROUTINES. 00383 M00S00377.1ma +++| CAA SPACE 4,10 00384 M00S00378.1ma +++|** CAA - CALCULATE ABSOLUTE ADDRESS. 00385 M00S00379.1ma +++|* 00386 M00S00380.1ma +++|* ENTRY (IR+3 - IR+4) = RELATIVE ADDRESS. 00387 M00S00381.1ma +++|* 00388 M00S00382.1ma +++|* EXIT (A) = ABSOLUTE ADDRESS. 00389 M00S00383.1ma +++| 00390 M00S00384.1ma +++| 00391 M00S00385.1ma +++| CAA SUBR ENTRY/EXIT 00392 M00S00386.1ma +++| LDD IR+3 CALCULATE ABSOLUTE ADDRESS 00393 M00S00387.1ma +++| LPN 37 00394 M00S00388.1ma +++| SHN 6 00395 M00S00389.1ma +++| ADD RA 00396 M00S00390.1ma +++| SHN 6 00397 M00S00391.1ma +++| ADD IR+4 00398 M00S00392.1ma +++| UJN CAAX RETURN 00399 M00S00393.1ma +++| RCL SPACE 4,10 00400 M00S00394.1ma +++|** RCL - ENTER PP RECALL. 00401 M00S00395.1ma +++|* ENTRY SET TO RECALL FOR 250 MILLISECONDS. 00402 M00S00396.1ma +++|* 00403 M00S00397.1ma +++|* ENTRY (IR - IR+4) = RECALL PARAMETERS. 00404 M00S00398.1ma +++|* (SF) = SUBFUNCTION. 00405 M00S00399.1ma +++|* (A) = RECALL STACK REASON CODE. 00406 M00S00400.1ma +++|*
| Line S00401 Modification History | |
|---|---|
M01 (Removed by) | 1ma27 |
Seq # *Modification Id* Act ----------------------------+ 00407 M01S00401.1ma27 ---|* USES CM - CM+4.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1ma27 |
Seq # *Modification Id* Act ----------------------------+ 00408 M01S00001.1ma27 +++|* USES CM - CM+4, CN - CN+4. 00409 M00S00402.1ma +++|* 00410 M00S00403.1ma +++|* MACROS MONITOR. 00411 M00S00404.1ma +++| 00412 M00S00405.1ma +++| 00413 M00S00406.1ma +++| RCL SHN 6 SAVE RECALL STACK REASON CODE 00414 M00S00407.1ma +++| STD CM 00415 M00S00408.1ma +++| LDN ZERL 00416 M00S00409.1ma +++| CRD CM+1
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1ma27 |
Seq # *Modification Id* Act ----------------------------+ 00417 M01S00002.1ma27 +++| LDD CP CHECK FOR *ORET* 00418 M01S00003.1ma27 +++| ADK STSW 00419 M01S00004.1ma27 +++| CRD CN 00420 M01S00005.1ma27 +++| LDD CN+1 00421 M01S00006.1ma27 +++| LMN ORET 00422 M01S00007.1ma27 +++| ZJN DPP IF SET, DROP PP 00423 M00S00410.1ma +++| LDD SF 00424 M00S00411.1ma +++| ZJN RCL1 IF RFL REQUEST 00425 M00S00412.1ma +++| LDD HN RESTORE SUBFUNCTION 00426 M00S00413.1ma +++| RAD IR+3 00427 M00S00414.1ma +++| RCL1 LDD MA STORE PP CALL IN MESSAGE BUFFER 00428 M00S00415.1ma +++| CWD IR 00429 M00S00416.1ma +++| ADN 1 WRITE RECALL STACK REASON CODE 00430 M00S00417.1ma +++| CWD CM 00431 M00S00418.1ma +++| LDN PTMF REQUEST TIMED RECALL 00432 M00S00419.1ma +++| STD CM+1 00433 M00S00420.1ma +++| LDC 250D SET RECALL TIME 00434 M00S00421.1ma +++| STD CM+4 00435 M00S00422.1ma +++| MONITOR RECM ENTER DEFAULT TIMED RECALL 00436 M00S00423.1ma +++| UJN DPP1 EXIT 00437 M00S00424.1ma +++| SRA SPACE 4,10 00438 M00S00425.1ma +++|** SRA - SET REQUEST ADDRESS. 00439 M00S00426.1ma +++|* 00440 M00S00427.1ma +++|* EXIT (A) = ABSOLUTE ADDRESS OF REQUEST WORD. 00441 M00S00428.1ma +++|* (A) = 0 IF ADDRESS OUTSIDE USER-S FL. 00442 M00S00429.1ma +++| 00443 M00S00430.1ma +++| 00444 M00S00431.1ma +++| SRA1 LDN 0 INDICATE INCORRECT ADDRESS 00445 M00S00432.1ma +++| 00446 M00S00433.1ma +++| SRA SUBR ENTRY/EXIT 00447 M00S00434.1ma +++| SRAA LDC * (REQUEST ADDRESS/100) 00448 M00S00435.1ma +++| SBD FL 00449 M00S00436.1ma +++| PJN SRA1 IF ADDRESS OUTSIDE FL 00450 M00S00437.1ma +++| LDD RA 00451 M00S00438.1ma +++| SHN 6 00452 M00S00439.1ma +++| SRAB ADC * (REQUEST ADDRESS) 00453 M00S00440.1ma +++| UJN SRAX RETURN 00454 M00S00441.1ma +++| DPP SPACE 4,10 00455 M00S00442.1ma +++|** DPP - DROP PP. 00456 M00S00443.1ma +++|* 00457 M00S00444.1ma +++|* USES CM+1 - CM+2. 00458 M00S00445.1ma +++|* 00459 M00S00446.1ma +++|* MACROS MONITOR. 00460 M00S00447.1ma +++| 00461 M00S00448.1ma +++| 00462 M00S00449.1ma +++| DPP MONITOR DPPM DROP PPU 00463 M00S00450.1ma +++| DPP1 LJM PPR ENTER PP RESIDENT 00464 M00S00451.1ma +++| 00465 M00S00452.1ma +++| DPP2 LDN 2 DECREMENT DAYFILE MESSAGE LIMIT 00466 M00S00453.1ma +++| STD CM+1 00467 M00S00454.1ma +++| LDN 0 00468 M00S00455.1ma +++| STD CM+2 00469 M00S00456.1ma +++| LDD MA 00470 M00S00457.1ma +++| CWM DPPA,CM+1 00471 M00S00458.1ma +++| MONITOR UADM UPDATE ACCOUNTING 00472 M00S00459.1ma +++| UJN DPP1 UPDATE ACCOUNTING AND DROP PPU 00473 M00S00460.1ma +++| 00474 M00S00461.1ma +++|* MESSAGE BUFFER STRUCTURE FOR UADM FORMAT. 00475 M00S00462.1ma +++| 00476 M00S00463.1ma +++| DPPA CON CDOS 00477 M00S00464.1ma +++| CON ACLW 00478 M00S00465.1ma +++| CON 36D*100+12D 00479 M00S00466.1ma +++| CON 0,0 00480 M00S00467.1ma +++| 00481 M00S00468.1ma +++| CON AISS SUBFUNCTION 00482 M00S00469.1ma +++| CON IOAW CP AREA WORD TO UPDATE 00483 M00S00470.1ma +++| CON 40D*100+20D MS ACCUMULATOR FIELD 00484 M00S00471.1ma +++| VFD 6/,18/IMMS INCREMENT VALUE 00485 M00S00472.1ma +++| TFCN SPACE 4,10 00486 M00S00473.1ma +++|** TFCN - FUNCTION CODE TABLE. 00487 M00S00474.1ma +++|* 00488 M00S00475.1ma +++|* ENTRY = 1 WORD. 00489 M00S00476.1ma +++|* INDEXED BY FUNCTION CODE. 00490 M00S00477.1ma +++|* 00491 M00S00478.1ma +++|*T, 12/ ADDR
Figure
00492 M00S00479.1ma +++|* ADDR ADDRESS OF FUNCTION PROCESSOR 00493 M00S00480.1ma +++| 00494 M00S00481.1ma +++| 00495 M00S00482.1ma +++| TFCN BSS 0 00496 M00S00483.1ma +++| LOC 0 00497 M00S00484.1ma +++| CON RFL 0 = REQUEST STORAGE 00498 M00S00485.1ma +++| CON DMS 1 = DAYFILE MESSAGE 00499 M00S00486.1ma +++| CON 4000 2 = SCP FUNCTION ON UCP 00500 M00S00487.1ma +++| CON 4000 3 = FILE SWITCHING FUNCTION 00501 M00S00488.1ma +++| CON 4000 4 = EXIT FROM SCP STATUS 00502 M00S00489.1ma +++| CON PER 5 = PROCESS EJT REQUEST 00503 M00S00490.1ma +++| CON PCU 6 = PROCESS CLOCK UPDATE 00504 M00S00491.1ma +++| CON LCE 7 = LOG SOFTWARE ERROR 00505 M00S00492.1ma +++| CON CPP 10 = LOAD CPP RESIDENT 00506 M00S00493.1ma +++| CON CPP 11 = LOAD OVERLAY FOR CPP 00507 M00S00494.1ma +++| CON CPP 12 = IDLE CPP 00508 M00S00495.1ma +++| TFCNL BSS 0 TABLE LENGTH 00509 M00S00496.1ma +++| LOC *O 00510 M00S00497.1ma +++| TITLE FUNCTION PROCESSORS. 00511 M00S00498.1ma +++| PER SPACE 4,50 00512 M00S00499.1ma +++|** FUNCTION 5. 00513 M00S00500.1ma +++|* PROCESS EJT REQUEST. 00514 M00S00501.1ma +++|* 00515 M00S00502.1ma +++|* ENTRY 00516 M00S00503.1ma +++|*T IR 18/ *1MA*,6/ AR,12/ CP,6/ 0,18/ ADDR
Figure IR
00517 M00S00504.1ma +++|* AR = AUTO RECALL FLAG. 00518 M00S00505.1ma +++|* CP = CONTROL POINT NUMBER. 00519 M00S00506.1ma +++|* ADDR ADDRESS OF PARAMETER BLOCK. 00520 M00S00507.1ma +++|* 00521 M00S00508.1ma +++|*ADDR 24/ JSN,12/ FLAGS,6/ PPI,8/ ERR,9/ FCN,1/C 00522 M00S00509.1ma +++|* 42/ NAME,6/ ERF,12/ EJTO 00523 M00S00510.1ma +++|* 3/RES,3/JAL,6/ OT,6/ RC,18/ MSG BUF,24/ RES 00524 M00S00511.1ma +++|* 60/ REC WD 1 00525 M00S00512.1ma +++|* 60/ REC WD 2 00526 M00S00513.1ma +++|* 12/ INST,12/ TN,36/ CDC RES 00527 M00S00514.1ma +++|* 42/ TNAME, 18/ RESERVED 00528 M00S00515.1ma +++|* 00529 M00S00516.1ma +++|* JSN = JOB SEQUENCE NUMBER. 00530 M00S00517.1ma +++|* FLAGS = ENEJ, BIT 0 = SELECT EJT ENTRIES BY ORIGIN TYPE. 00531 M00S00518.1ma +++|* RTEJ - BIT 0 = SELECT EJT ENTRIES BY ORIGIN TYPE. 00532 M00S00519.1ma +++|* BIT 1 = DEFAULT TIMEOUT (CLEAR = 0 TIMEOUT). 00533 M00S00520.1ma +++|* PPI = PREPROCESSOR INDEX. 00534 M00S00521.1ma +++|* ERR = ERROR RETURN (0 ON CALL). 00535 M00S00522.1ma +++|* FCN = FUNCTION CODE. 00536 M00S00523.1ma +++|* C = COMPLETE BIT (0 ON CALL). 00537 M00S00524.1ma +++|* NAME = ENEJ - ENTRY POINT NAME. 00538 M00S00525.1ma +++|* DTEJ, RCEJ, RSEJ - USER NAME. 00539 M00S00526.1ma +++|* ERF = ERROR FLAG TO SET. 00540 M00S00527.1ma +++|* EJTO = EXECUTING JOB TABLE ORDINAL. 00541 M00S00528.1ma +++|* RES = RESERVED FOR CDC. 00542 M00S00529.1ma +++|* JAL = JOB ACCESS LEVEL LIMIT (RETURNED ON *DTEJ*; 0 ON CALL). 00543 M00S00530.1ma +++|* OT = ORIGIN TYPE. 00544 M00S00531.1ma +++|* RC = REASON CODE. 00545 M00S00532.1ma +++|* MSG BUF = RELATIVE ADDRESS OF BUFFER TO RETURN *MS1W*. 00546 M00S00533.1ma +++|* REC WD 1 = RECOVERY WORD 1 (NFL WORD RC1N - SEE *PPCOM*). 00547 M00S00534.1ma +++|* REC WD 2 = RECOVERY WORD 2 (NFL WORD RC2N - SEE *PPCOM*). 00548 M00S00535.1ma +++|* INST = RESERVED FOR INSTALLATIONS. 00549 M00S00536.1ma +++|* TN = TERMINAL NUMBER. 00550 M00S00537.1ma +++|* CDC RES = RESERVED FOR CDC. 00551 M00S00538.1ma +++|* TNAME = TERMINAL NAME (RETURNED BY *DTEJ* AND *TJEJ*; 00552 M00S00539.1ma +++|* SPECIFIED ON CALL FOR *RCEJ*). 00553 M00S00540.1ma +++|* 00554 M00S00541.1ma +++|* NOTE - ANY CHANGES TO THIS PARAMETER BLOCK SHOULD ALSO 00555 M00S00542.1ma +++|* BE DOCUMENTED IN *CPUMTR* AND *IAFEX*. 00556 M00S00543.1ma +++|* 00557 M00S00544.1ma +++|* CALLS CHG, DPP, EXR, SFI, FUNCTION PROCESSORS. 00558 M00S00545.1ma +++|* 00559 M00S00546.1ma +++|* MACROS EXECUTE. 00560 M00S00547.1ma +++| 00561 M00S00548.1ma +++| 00562 M00S00549.1ma +++| PER BSS 0 ENTRY 00563 M00S00550.1ma +++| LDD MP+3 ASSEMBLE BUFFER ADDRESS 00564 M00S00551.1ma +++| SHN 14 00565 M00S00552.1ma +++| LMD MP+4 00566 M00S00553.1ma +++| ADN 1 00567 M00S00554.1ma +++| CRM W0,TR 00568 M00S00555.1ma +++| LDN ZERL CLEAR BUFFER INTERLOCK 00569 M00S00556.1ma +++| CRD CN 00570 M00S00557.1ma +++| LDD MP+3 ASSEMBLE BUFFER ADDRESS 00571 M00S00558.1ma +++| SHN 14 00572 M00S00559.1ma +++| LMD MP+4 00573 M00S00560.1ma +++| CWD CN 00574 M00S00561.1ma +++| LDK EJWD+1 00575 M00S00562.1ma +++| STD EL 00576 M00S00563.1ma +++| LDD W0+4 00577 M00S00564.1ma +++| LPN 76 00578 M00S00565.1ma +++| STD CN 00579 M00S00566.1ma +++| ZJN PER2 IF NO FUNCTION CODE 00580 M00S00567.1ma +++| SBN MXEJ*2 00581 M00S00568.1ma +++| PJN PER2 IF INCORRECT FUNCTION CODE 00582 M00S00569.1ma +++| LDM TEJT-1,CN SET LOAD ADDRESS 00583 M00S00570.1ma +++| STM PERA 00584 M00S00571.1ma +++| ZJN PER2 IF NO PROCESSOR ADDRESS 00585 M00S00572.1ma +++| LDM TEJT-2,CN SET OVERLAY TO LOAD 00586 M00S00573.1ma +++| ZJN PER1 IF NO OVERLAY TO LOAD 00587 M00S00574.1ma +++| LMC 2L2M 00588 M00S00575.1ma +++| RJM EXR LOAD OVERLAY 00589 M00S00576.1ma +++| PER1 LJM * PROCESS EJT SYSTEM REQUEST 00590 M00S00577.1ma +++| PERA EQU *-1 00591 M00S00578.1ma +++| 00592 M00S00579.1ma +++|* PROCESS INCORRECT FUNCTION CODE. 00593 M00S00580.1ma +++| 00594 M00S00581.1ma +++| PER2 LDN 0 00595 M00S00582.1ma +++| RJM CHG CONDITIONALLY HANG PP 00596 M00S00583.1ma +++| LDN SSER SYSTEM SOFTWARE ERROR 00597 M00S00584.1ma +++|* UJN PERX RETURN 00598 M00S00585.1ma +++| 00599 M00S00586.1ma +++|* EXIT FOR FUNCTION PROCESSORS. 00600 M00S00587.1ma +++|* (A) = ERROR CODE TO PUT INTO RETURN BLOCK. 00601 M00S00588.1ma +++| 00602 M00S00589.1ma +++| PERX BSS 0 ENTRY 00603 M00S00590.1ma +++| SHN 12 POSITION ERROR CODE 00604 M00S00591.1ma +++| RAD W0+4 00605 M00S00592.1ma +++| SHN -14 00606 M00S00593.1ma +++| RAD W0+3 00607 M00S00594.1ma +++| AOD W0+4 SET COMPLETE BIT 00608 M00S00595.1ma +++| RJM CAA CALCULATE ABSOLUTE ADDRESS 00609 M00S00596.1ma +++| CWM W0,TR WRITE PARAMETER BLOCK 00610 M00S00597.1ma +++| LDN CEIN 00611 M00S00598.1ma +++| STD T1 00612 M00S00599.1ma +++| LDC 0 CHECK EJTO 00613 M00S00600.1ma +++| PERB EQU *-1 EJT ORDINAL 00614 M00S00601.1ma +++| ZJN PER3 IF NO INTERLOCK TO CLEAR 00615 M00S00602.1ma +++| SFA EJT 00616 M00S00603.1ma +++| RJM SFI CLEAR INTERLOCK 00617 M00S00604.1ma +++| PER3 LJM DPP DROP PP 00618 M00S00605.1ma +++| TEJT SPACE 4,20 00619 M00S00606.1ma +++|** TEJT - TABLE OF EJT REQUEST PROCESSORS. 00620 M00S00607.1ma +++|* 00621 M00S00608.1ma +++|*T 12/ OVL,12/ ADDR
Figure
00622 M00S00609.1ma +++|* 00623 M00S00610.1ma +++|* OVL = LAST LETTER OF OVERLAY TO LOAD. 00624 M00S00611.1ma +++|* ADDR = ADDRESS OF FUNCTION PROCESSOR. 00625 M00S00612.1ma +++| 00626 M00S00613.1ma +++| 00627 M00S00614.1ma +++| TEJT TABLE 00628 M00S00615.1ma +++| TABLE DTEJ,/2MC/DTC DTEJ - DETACH JOB 00629 M00S00616.1ma +++| TABLE ENEJ,//PER2 ENEJ - (PROCESSED BY CPUMTR) 00630 M00S00617.1ma +++| TABLE FJEJ,/2MD/FTJ FJEJ - FREEZE JOB 00631 M00S00618.1ma +++| TABLE RCEJ,/2MC/REC RCEJ - RECOVER JOB 00632 M00S00619.1ma +++| TABLE RSEJ,/2MC/RRJ RSEJ - RESTART RECOVERED JOB 00633 M00S00620.1ma +++| TABLE RTEJ,/2MC/RST RTEJ - RESET TIMEOUT 00634 M00S00621.1ma +++| TABLE SAEJ,/2MD/SUB SAEJ - SET USER BREAK ERROR FLAG 00635 M00S00622.1ma +++| TABLE TJEJ,/2MC/TRM TJEJ - TERMINATE JOB 00636 M00S00623.1ma +++| TABLE MXEJ MAXIMUM EJT REQUEST +1 00637 M00S00624.1ma +++| TITLE FUNCTION PROCESSORS. 00638 M00S00625.1ma +++| RFL SPACE 4,25 00639 M00S00626.1ma +++|*** FUNCTION 0. 00640 M00S00627.1ma +++|* REQUEST STORAGE. 00641 M00S00628.1ma +++|* 00642 M00S00629.1ma +++|* ENTRY 00643 M00S00630.1ma +++|*T ARG 6/SUB,18/FL
Figure ARG
00644 M00S00631.1ma +++|* 00645 M00S00632.1ma +++|* SUB = 0 RFL REQUEST (NO STATUS WORD). 00646 M00S00633.1ma +++|* = 1 IF CM, ABORT IF NOT AVAILABLE. 00647 M00S00634.1ma +++|* = 2 IF EXTENDED MEMORY, ABORT IF NOT AVAILABLE. 00648 M00S00635.1ma +++|* = 3 IF CM, NO ABORT IF NOT AVAILABLE. 00649 M00S00636.1ma +++|* = 4 IF EXTENDED MEMORY, NO ABORT IF NOT AVAILABLE. 00650 M00S00637.1ma +++|* 00651 M00S00638.1ma +++|* FL = STORAGE REQUESTED IF SUBFUNCTION 0. 00652 M00S00639.1ma +++|* = ADDRESS OF STATUS WORD IF NOT SUBFUNCTION 0. 00653 M00S00640.1ma +++|* 00654 M00S00641.1ma +++|* IF SUBFUNCTION AND FL ARE BOTH ZERO, A CMM ERROR IS BEING 00655 M00S00642.1ma +++|* REQUESTED. 00656 M00S00643.1ma +++|* 00657 M00S00644.1ma +++|* USES SC, CM - CM+4, T3 - T7. 00658 M00S00645.1ma +++|* 00659 M00S00646.1ma +++|* CALLS CKE, CLM, RSI, SRA. 00660 M00S00647.1ma +++|* 00661 M00S00648.1ma +++|* MACROS EXECUTE, MONITOR. 00662 M00S00649.1ma +++| 00663 M00S00650.1ma +++| 00664 M00S00651.1ma +++| RFL LDD IR+3 SAVE SUBFUNCTION CODE 00665 M00S00652.1ma +++| SHN -6 00666 M00S00653.1ma +++| STD SF 00667 M00S00654.1ma +++| ZJN RFL3 IF RFL REQUEST 00668 M00S00655.1ma +++| LDC -100 00669 M00S00656.1ma +++| RAD IR+3 00670 M00S00657.1ma +++| RJM SRA SET REQUEST WORD ADDRESS 00671 M00S00658.1ma +++| ZJN RFL2 IF INCORRECT ADDRESS 00672 M00S00659.1ma +++| CRD FN 00673 M00S00660.1ma +++| LDD IR+3 00674 M00S00661.1ma +++| SHN 21-6 00675 M00S00662.1ma +++| MJN RFL6 IF EXTENDED MEMORY REQUEST 00676 M00S00663.1ma +++| LDD FN+2 00677 M00S00664.1ma +++| SCN 77 00678 M00S00665.1ma +++| SHN 6 00679 M00S00666.1ma +++| LMD FN+1 00680 M00S00667.1ma +++| SHN 6 00681 M00S00668.1ma +++| UJN RFL4 ROUND MEMORY REQUEST 00682 M00S00669.1ma +++| 00683 M00S00670.1ma +++| RFL1 LDC =C* INCORRECT COMMON MEMORY MANAGER REQUEST.* 00684 M00S00671.1ma +++| LJM ERR PROCESS ERROR 00685 M00S00672.1ma +++| 00686 M00S00673.1ma +++| RFL2 LDC =C* INCORRECT REQUEST.* 00687 M00S00674.1ma +++| LJM ERR PROCESS ERROR 00688 M00S00675.1ma +++| 00689 M00S00676.1ma +++| RFL3 LDD IR+3 00690 M00S00677.1ma +++| SHN 14 00691 M00S00678.1ma +++| LMD IR+4 00692 M00S00679.1ma +++| ZJN RFL1 IF CMM CONFLICT 00693 M00S00680.1ma +++| RFL4 LPC 377777 MASK OUT NO REDUCE OVERRIDE 00694 M00S00681.1ma +++| ADN 77 ROUND UP MEMORY REQUEST 00695 M00S00682.1ma +++| MJN RFL5 IF TOO MUCH MEMORY REQUESTED 00696 M00S00683.1ma +++| SHN -6 00697 M00S00684.1ma +++| STD T3 SET NEW FL 00698 M00S00685.1ma +++| RJM CKE CHECK FOR EXTENDED MEMORY ASSIGNED 00699 M00S00686.1ma +++| LJM RFL16 CHECK FL .LE. MFL 00700 M00S00687.1ma +++| 00701 M00S00688.1ma +++| RFL5 LJM RFL17 PROCESS ERROR 00702 M00S00689.1ma +++| 00703 M00S00690.1ma +++|* PROCESS EXTENDED MEMORY. 00704 M00S00691.1ma +++| 00705 M00S00692.1ma +++| RFL6 LDC -200+100 CHANGE CMM BIT TO CLEAR 00706 M00S00693.1ma +++| RAM RFLB 00707 M00S00694.1ma +++| LDK MEFL PRESET SHIFT INSTRUCTION 00708 M00S00695.1ma +++| CRD CM 00709 M00S00696.1ma +++| LDD CM+2 00710 M00S00697.1ma +++| SHN -11 00711 M00S00698.1ma +++| ADC SHNI+3 00712 M00S00699.1ma +++| STM RFLA 00713 M00S00700.1ma +++| LDD FN 00714 M00S00701.1ma +++| ADD FN+1 00715 M00S00702.1ma +++| ZJN RFL10 IF POSSIBLE EXTENDED MEMORY STATUS 00716 M00S00703.1ma +++| RFL7 ADC -2*7777 00717 M00S00704.1ma +++| NJN RFL8 IF NOT EXTENDED MEMORY MFL REQUEST 00718 M00S00705.1ma +++| LDD FN+2 00719 M00S00706.1ma +++| SHN -6 00720 M00S00707.1ma +++| LMN 76 00721 M00S00708.1ma +++| ZJN RFL9 IF EXTENDED MEMORY MFL REQUEST 00722 M00S00709.1ma +++| LMN 77&76 00723 M00S00710.1ma +++| NJN RFL8 IF NOT SET EXTENDED MEMORY FL TO ZERO 00724 M00S00711.1ma +++| LDN ZERL 00725 M00S00712.1ma +++| CRD FN-2 00726 M00S00713.1ma +++| RFL8 LJM RFL12 PROCESS EXTENDED MEMORY STORAGE REQUEST 00727 M00S00714.1ma +++| 00728 M00S00715.1ma +++| RFL9 LDN SSTL CHECK EXTENDED MEMORY CONTROL 00729 M00S00716.1ma +++| CRD FS 00730 M00S00717.1ma +++| LDN ZERL 00731 M00S00718.1ma +++| CRD CM PRESET EXTENDED MEMORY MFL = 0 00732 M00S00719.1ma +++| LDD FS 00733 M00S00720.1ma +++| SHN 21-5 00734 M00S00721.1ma +++| MJN RFL13 IF USER EXTENDED MEMORY NOT AVAILABLE 00735 M00S00722.1ma +++| LDD CP 00736 M00S00723.1ma +++| ADN ELCW 00737 M00S00724.1ma +++| CRD FS 00738 M00S00725.1ma +++| LDD FS 00739 M00S00726.1ma +++| UJN RFL11 SET MFL(EC) IN REPLY WORD 00740 M00S00727.1ma +++| 00741 M00S00728.1ma +++| RFL10 LDD FN+2 00742 M00S00729.1ma +++| SHN -6 00743 M00S00730.1ma +++| NJN RFL12 IF NOT EXTENDED MEMORY STATUS REQUEST 00744 M00S00731.1ma +++| LDN ZERL 00745 M00S00732.1ma +++| CRD CM 00746 M00S00733.1ma +++| LDD CP RETURN EXTENDED MEMORY FL 00747 M00S00734.1ma +++| ADN ECSW 00748 M00S00735.1ma +++| CRD FS 00749 M00S00736.1ma +++| LDD FS+4 00750 M00S00737.1ma +++| RFL11 SHN 3 00751 M00S00738.1ma +++|* SHN 3+UESC (ADJUST FOR BLOCKING FACTOR) 00752 M00S00739.1ma +++| RFLA EQU *-1 00753 M00S00740.1ma +++| STD CM+1 00754 M00S00741.1ma +++| SHN -14 00755 M00S00742.1ma +++| STD CM 00756 M00S00743.1ma +++| UJN RFL13 PROCESS COMPLETION STATUS 00757 M00S00744.1ma +++| 00758 M00S00745.1ma +++| RFL12 EXECUTE 2MB PROCESS EXTENDED MEMORY STORAGE REQUEST 00759 M00S00746.1ma +++| 00760 M00S00747.1ma +++|* RETURN COMPLETION STATUS. 00761 M00S00748.1ma +++| 00762 M00S00749.1ma +++| RFL13 LDD SF 00763 M00S00750.1ma +++| ZJN RFL15 IF NO COMPETION INFORMATION REQUESTED 00764 M00S00751.1ma +++| LDN 1 SET COMPLETION FLAG 00765 M00S00752.1ma +++| STD CM+4 00766 M00S00753.1ma +++| RJM SRA SET REQUEST ADDRESS 00767 M00S00754.1ma +++| ZJN RFL14 IF INCORRECT ADDRESS 00768 M00S00755.1ma +++| CWD CM 00769 M00S00756.1ma +++| RFL14 LDD FN+4 00770 M00S00757.1ma +++| LPN 14 00771 M00S00758.1ma +++| LMN 14 00772 M00S00759.1ma +++| NJN RFL15 IF NOT CLEAR CMM JOB STEP STATUS 00773 M00S00760.1ma +++| LDD CP CLEAR CMM JOB STEP STATUS 00774 M00S00761.1ma +++| ADC DBAW 00775 M00S00762.1ma +++| CRD CM 00776 M00S00763.1ma +++| STD T1 00777 M00S00764.1ma +++| LDD CM 00778 M00S00765.1ma +++| LPC 7677 (CM) 00779 M00S00766.1ma +++|* LPC 7577 (EXTENDED MEMORY) 00780 M00S00767.1ma +++| RFLB EQU *-1 00781 M00S00768.1ma +++| STD CM 00782 M00S00769.1ma +++| LDD T1 00783 M00S00770.1ma +++| CWD CM 00784 M00S00771.1ma +++| RFL15 LJM DPP DROP PPU 00785 M00S00772.1ma +++| 00786 M00S00773.1ma +++|* CHECK IF FL .LE. MFL. 00787 M00S00774.1ma +++| 00788 M00S00775.1ma +++| RFL16 LDD CP 00789 M00S00776.1ma +++| ADN FLCW 00790 M00S00777.1ma +++| CRD T7 00791 M00S00778.1ma +++| LDN ZERL 00792 M00S00779.1ma +++| CRD CM 00793 M00S00780.1ma +++| LDD FL 00794 M00S00781.1ma +++| STD CM+1 00795 M00S00782.1ma +++| LDD T7 00796 M00S00783.1ma +++| SBD T3 00797 M00S00784.1ma +++| PJN RFL18 IF FL .LE. MFL 00798 M00S00785.1ma +++| LDD IR+3 00799 M00S00786.1ma +++| SHN 21-7 00800 M00S00787.1ma +++| PJN RFL17 IF NOT *NO ABORT* 00801 M00S00788.1ma +++| LJM RFL13 RETURN STATUS ON NO ABORT REQUESTS 00802 M00S00789.1ma +++| 00803 M00S00790.1ma +++| RFL17 LDC =C* FL REQUEST BEYOND MFL (CM).* 00804 M00S00791.1ma +++| LJM ERR PROCESS ERROR ABORT 00805 M00S00792.1ma +++| 00806 M00S00793.1ma +++|* REQUEST STORAGE. 00807 M00S00794.1ma +++| 00808 M00S00795.1ma +++| RFL18 LDD FL SAVE CURRENT FL 00809 M00S00796.1ma +++| STD T4 00810 M00S00797.1ma +++| ZJN RFL19 IF NO FL CURRENTLY ASSIGNED 00811 M00S00798.1ma +++| LDD T3 REQUESTED FL 00812 M00S00799.1ma +++| RJM RSI REQUEST STORAGE INCREASE 00813 M00S00800.1ma +++| NJN RFL20 IF FL NOT ASSIGNED 00814 M00S00801.1ma +++| RJM CLM CLEAR ADDITIONAL MEMORY 00815 M00S00802.1ma +++| LJM RFL13 COMPLETE PROCESSING 00816 M00S00803.1ma +++| 00817 M00S00804.1ma +++| RFL19 LJM RFL2 * INCORRECT REQUEST.* 00818 M00S00805.1ma +++| 00819 M00S00806.1ma +++|* STORAGE NOT AVAILABLE. 00820 M00S00807.1ma +++| 00821 M00S00808.1ma +++| RFL20 PJN RFL21 IF WAITING FOR REPLY FROM *1SJ* 00822 M00S00809.1ma +++| LDD CP CHECK IF JOB ROLLABLE 00823 M00S00810.1ma +++| ADN JCIW 00824 M00S00811.1ma +++| CRD CM 00825 M00S00812.1ma +++| ADK TFSW-JCIW 00826 M00S00813.1ma +++| CRD FN 00827 M00S00814.1ma +++| LDD CM+3 CHECK FOR *DIS* JOB 00828 M00S00815.1ma +++| LPC 1000 00829 M00S00816.1ma +++| ADD CM+2 CHECK FOR NON-ROLLABLE JOB 00830 M00S00817.1ma +++| NJN RFL21 IF JOB NOT ROLLABLE 00831 M00S00818.1ma +++| SFA EJT,FN READ *SCLE* EJT WORD 00832 M00S00819.1ma +++| ADK SCLE 00833 M00S00820.1ma +++| CRD FN 00834 M00S00821.1ma +++| LDD FN 00835 M00S00822.1ma +++| LPN 20 00836 M00S00823.1ma +++| NJN RFL21 IF FORCED ROLLIN, JOB NOT ROLLABLE 00837 M00S00824.1ma +++| STD CM+1 ROLLOUT CONTROL POINT 00838 M00S00825.1ma +++| MONITOR ROCM 00839 M00S00826.1ma +++| UJN RFL22 ENTER PP RECALL 00840 M00S00827.1ma +++| 00841 M00S00828.1ma +++|* STORAGE AVAILABLE BUT NOT ASSIGNED. 00842 M00S00829.1ma +++| 00843 M00S00830.1ma +++| RFL21 LDD CP SET WAITING FOR STORAGE INCREASE 00844 M00S00831.1ma +++| ADN MS2W 00845 M00S00832.1ma +++| CWM =C*WAITING FOR STORAGE (CM). *,TR 00846 M00S00833.1ma +++| RFL22 LDN CFIR SET CM FL INCREASE PENDING REASON CODE 00847 M00S00834.1ma +++| LJM RCL ENTER PP RECALL STACK 00848 M00S00835.1ma +++| DMS SPACE 4,15 00849 M00S00836.1ma +++|*** FUNCTION 1. 00850 M00S00837.1ma +++|* ENTER DAYFILE MESSAGE. 00851 M00S00838.1ma +++|* 00852 M00S00839.1ma +++|* ENTRY 00853 M00S00840.1ma +++|*T ARG 6/ 0,18/ MSG
Figure ARG
00854 M00S00841.1ma +++|* MSG ADDRESS OF MESSAGE. 00855 M00S00842.1ma +++|* 00856 M00S00843.1ma +++|* USES CM - CM+4, T2. 00857 M00S00844.1ma +++|* 00858 M00S00845.1ma +++|* CALLS DFM, SRA. 00859 M00S00846.1ma +++|* 00860 M00S00847.1ma +++|* NOTE THIS FUNCTION SHOULD BE USED ONLY BY SUBSYSTEMS THAT 00861 M00S00848.1ma +++|* CANNOT GIVE UP THE CPU DURING NORMAL *MSG* PROCESSING. 00862 M00S00849.1ma +++| 00863 M00S00850.1ma +++| 00864 M00S00851.1ma +++| DMS LDN 5 SET WORD COUNT 00865 M00S00852.1ma +++| STD T2 00866 M00S00853.1ma +++| RJM SRA SET REQUEST ADDRESS 00867 M00S00854.1ma +++| ZJN DMS1 IF INCORRECT ADDRESS 00868 M00S00855.1ma +++| CRM BUF,T2 00869 M00S00856.1ma +++| SBN 1 00870 M00S00857.1ma +++| SHN -6 00871 M00S00858.1ma +++| SBD RA 00872 M00S00859.1ma +++| SBD FL 00873 M00S00860.1ma +++| PJN DMS1 IF INCORRECT ADDRESS 00874 M00S00861.1ma +++| LDN 0 TERMINATE MESSAGE 00875 M00S00862.1ma +++| STM BUF+5*5 00876 M00S00863.1ma +++| LDC BUF 00877 M00S00864.1ma +++| RJM DFM ISSUE DAYFILE MESSAGE 00878 M00S00865.1ma +++| LJM DPP DROP PPU 00879 M00S00866.1ma +++| 00880 M00S00867.1ma +++| DMS1 LDC =C* INCORRECT REQUEST.* 00881 M00S00868.1ma +++| LJM ERR PROCESS ERROR 00882 M00S00869.1ma +++| CPP SPACE 4,10 00883 M00S00870.1ma +++|** FUNCTIONS 10, 11, 12. 00884 M00S00871.1ma +++|* CPP PROCESSOR. 00885 M00S00872.1ma +++| 00886 M00S00873.1ma +++| 00887 M00S00874.1ma +++| CPP LDD MA SAVE OVERLAY LOAD PARAMETERS 00888 M00S00875.1ma +++| CRD CN 00889 M00S00876.1ma +++| EXECUTE 2MH PROCESS CPP REQUEST 00890 M00S00877.1ma +++| LJM DPP DROP PP 00891 M00S00878.1ma +++| PCU SPACE 4,10 00892 M00S00879.1ma +++|** FUNCTION 6. 00893 M00S00880.1ma +++|* PROCESS CLOCK UPDATE. 00894 M00S00881.1ma +++| 00895 M00S00882.1ma +++| 00896 M00S00883.1ma +++| PCU EXECUTE 2MF PROCESS CLOCK UPDATE 00897 M00S00884.1ma +++| LJM DPP DROP PP 00898 M00S00885.1ma +++| LCE SPACE 4,10 00899 M00S00886.1ma +++|** FUNCTION 7. 00900 M00S00887.1ma +++|* LOG SOFTWARE ERROR. 00901 M00S00888.1ma +++| 00902 M00S00889.1ma +++| 00903 M00S00890.1ma +++| LCE EXECUTE 2MG LOG SOFTWARE ERROR 00904 M00S00891.1ma +++| LJM DPP DROP PP 00905 M00S00892.1ma +++| CKE SPACE 4,10 00906 M00S00893.1ma +++|** CKE - CHECK FOR EXTENDED MEMORY ASSIGNED. 00907 M00S00894.1ma +++|* 00908 M00S00895.1ma +++|* ENTRY (T3) = NEW FL/100B REQUESTED. 00909 M00S00896.1ma +++|* 00910 M00S00897.1ma +++|* EXIT (T3) ADJUSTED IF EXTENDED MEMORY IS ASSIGNED AND 00911 M00S00898.1ma +++|* (T3) IS .LT. MCMX. 00912 M00S00899.1ma +++|* 00913 M00S00900.1ma +++|* USES T3, CM - CM+4. 00914 M00S00901.1ma +++| 00915 M00S00902.1ma +++| 00916 M00S00903.1ma +++| CKE SUBR ENTRY/EXIT 00917 M00S00904.1ma +++| LDD CP CHECK FOR EXTENDED MEMORY ASSIGNED 00918 M00S00905.1ma +++| ADN ECSW 00919 M00S00906.1ma +++| CRD CM 00920 M00S00907.1ma +++| LDD CM+4 00921 M00S00908.1ma +++| ZJN CKEX IF NO EXTENDED MEMORY ASSIGNED 00922 M00S00909.1ma +++| LDD T3 00923 M00S00910.1ma +++| ADC -MCMX/100 00924 M00S00911.1ma +++| PJN CKEX IF FL .GE. MCMX 00925 M00S00912.1ma +++| LDC MCMX/100 SET TO MINIMUM FL 00926 M00S00913.1ma +++| STD T3 00927 M00S00914.1ma +++| UJN CKEX RETURN 00928 M00S00915.1ma +++| MRER SPACE 4,10 00929 M00S00916.1ma +++|** MRER - MAINTENANCE REGISTER ERROR HANDLER. 00930 M00S00917.1ma +++|* 00931 M00S00918.1ma +++|* ENTRY FATAL MAINTENANCE REGISTER ERROR. 00932 M00S00919.1ma +++|* 00933 M00S00920.1ma +++|* EXIT TO *ERR* VIA *ABORT* MACRO. 00934 M00S00921.1ma +++|* 00935 M00S00922.1ma +++|* MACROS ABORT. 00936 M00S00923.1ma +++| 00937 M00S00924.1ma +++| 00938 M00S00925.1ma +++| MRER ABORT ERMR * 1MA - FATAL MAINTENANCE REGISTER ERROR.* 00939 M00S00926.1ma +++| 00940 M00S00927.1ma +++| 00941 M00S00928.1ma +++| CHFL CON 0 CHANNEL RESERVED FLAG 00942 M00S00929.1ma +++| ERMR DATA C* 1MA - FATAL MAINTENANCE REGISTER ERROR.* 00943 M00S00930.1ma +++| CLM SPACE 4,15 00944 M00S00931.1ma +++|** CLM - CLEAR MEMORY (CM). 00945 M00S00932.1ma +++|* 00946 M00S00933.1ma +++|* ENTRY (T4) = OLD FL. 00947 M00S00934.1ma +++|* 00948 M00S00935.1ma +++|* EXIT ADDITIONAL CM CLEARED. 00949 M00S00936.1ma +++|* CONSOLE MESSAGE CLEARED. 00950 M00S00937.1ma +++|* (CM+1) = CURRENT FL. 00951 M00S00938.1ma +++|* 00952 M00S00939.1ma +++|* USES CM - CM+4. 00953 M00S00940.1ma +++|* 00954 M00S00941.1ma +++|* MACROS MONITOR. 00955 M00S00942.1ma +++| 00956 M00S00943.1ma +++| 00957 M00S00944.1ma +++| CLM SUBR ENTRY/EXIT 00958 M00S00945.1ma +++| LDK SSTL 00959 M00S00946.1ma +++| CRD CM 00960 M00S00947.1ma +++| LDD CM 00961 M00S00948.1ma +++| SHN 21-12 00962 M00S00949.1ma +++| PJN CLM0 IF MEMORY CLEARING ENABLED 00963 M00S00950.1ma +++| LDD CP READ SEPW WORD FROM CP AREA 00964 M00S00951.1ma +++| ADC SEPW 00965 M00S00952.1ma +++| CRD CM 00966 M00S00953.1ma +++| LDD CM CHECK ENTRY POINTS 00967 M00S00954.1ma +++| LPN 1 00968 M00S00955.1ma +++| NJN CLM1 IF SSM= ENTRY POINT PRESENT 00969 M00S00956.1ma +++| CLM0 LDD FL CHECK FL CHANGE 00970 M00S00957.1ma +++| SBD T4 00971 M00S00958.1ma +++| MJN CLM1 IF DECREASE 00972 M00S00959.1ma +++| ZJN CLM1 IF NO CHANGE 00973 M00S00960.1ma +++| SHN 6 00974 M00S00961.1ma +++| STD CM+2 00975 M00S00962.1ma +++| SHN -14 00976 M00S00963.1ma +++| STD CM+1 00977 M00S00964.1ma +++| LDD HN SET RELATIVE ADDRESS OPTION 00978 M00S00965.1ma +++| RAD CM+1 00979 M00S00966.1ma +++| LDD T4 SET ADDRESS FOR CLEAR 00980 M00S00967.1ma +++| SHN 6 00981 M00S00968.1ma +++| STD CM+4 00982 M00S00969.1ma +++| SHN -14 00983 M00S00970.1ma +++| STD CM+3 00984 M00S00971.1ma +++| MONITOR CSTM CLEAR ADDED FL 00985 M00S00972.1ma +++| CLM1 LDN 0 00986 M00S00973.1ma +++| STD CM CLEAR CONSOLE MESSAGE 00987 M00S00974.1ma +++| STD CM+1 00988 M00S00975.1ma +++| LDD CP 00989 M00S00976.1ma +++| ADN MS2W 00990 M00S00977.1ma +++| CWD CM 00991 M00S00978.1ma +++| LDN ZERL RETURN STATUS 00992 M00S00979.1ma +++| CRD CM 00993 M00S00980.1ma +++| LDD FL 00994 M00S00981.1ma +++| STD CM+1 00995 M00S00982.1ma +++| LJM CLMX RETURN 00996 M00S00983.1ma +++| SPACE 4,10 00997 M00S00984.1ma +++|** COMMON DECKS. 00998 M00S00985.1ma +++| 00999 M00S00986.1ma +++| 01000 M00S00987.1ma +++| EJT$ EQU 1 SELECT EJT PROCESSOR 01001 M00S00988.1ma +++| IFP$ EQU 1 01002 M00S00989.1ma +++| QFT$ EQU 1 SELECT QFT PROCESSOR 01003 M00S00990.1ma +++|*CALL COMPGFP 01004 M00S00991.1ma +++|*CALL COMPRSI 01005 M00S00992.1ma +++| SFI$ EQU 1 SELECT IMMEDIATE RETURN FROM *SFI* 01006 M00S00993.1ma +++|*CALL COMPSFI 01007 M00S00994.1ma +++| SPACE 4,10 01008 M00S00995.1ma +++|** BUFFER. 01009 M00S00996.1ma +++| 01010 M00S00997.1ma +++| 01011 M00S00998.1ma +++| USE BUFFER 01012 M00S00999.1ma +++| BUF BSS 0 01013 M00S01000.1ma +++| SPACE 4,10 01014 M00S01001.1ma +++|** OVERLAY ORIGIN. 01015 M00S01002.1ma +++| 01016 M00S01003.1ma +++| 01017 M00S01004.1ma +++| E1MA EQU BUF+MESL*5+5 01018 M00S01005.1ma +++| ERRNG BFMS-* 01019 M00S01006.1ma +++| IFP HERE 01020 M00S01007.1ma +++| OVERFLOW 01021 M00S01008.1ma +++| TTL 1MA/2MA - SYSTEM CP FACILITY PROCESSOR. 01022 M00S01009.1ma +++| TITLE 01023 M00S01010.1ma +++| OVERLAY (SYSTEM CP FACILITY FUNCTION.),E1MA 01024 M00S01011.1ma +++| SPACE 4,10 01025 M00S01012.1ma +++|***** 2MA - FUNCTION PROCESSOR FOR SYSTEM CP FACILITY. 01026 M00S01013.1ma +++|* 01027 M00S01014.1ma +++|* *2MA* PERFORMS VARIOUS TIME CONSUMING FUNCTIONS USED 01028 M00S01015.1ma +++|* IN THE SYSTEM CP (SCP) FACILITY. 01029 M00S01016.1ma +++| SCP SPACE 4,30 01030 M00S01017.1ma +++|*** SYSTEM CONTROL POINT FUNCTIONS. (SEE *CPUMTR*). 01031 M00S01018.1ma +++|* 01032 M00S01019.1ma +++|* ENTRY 01033 M00S01020.1ma +++|*T ARG 6/INDX ,18/ ADDR
Figure ARG
01034 M00S01021.1ma +++|* INDX SUBSYSTEM INDEX OF CALLER, OR *TERM* TABLE 01035 M00S01022.1ma +++|* MESSAGE INDEX/2 IF *CPUMTR* REQUESTING ABORT. 01036 M00S01023.1ma +++|* ADDR ADDRESS OF FUNCTION PARAMETERS. 01037 M00S01024.1ma +++|* ADDR = 0, IF *CPUMTR* REQUESTING ABORT. 01038 M00S01025.1ma +++|* 01039 M00S01026.1ma +++|* FOR *1MA* FUNCTION 2 (SCP FUNCTION ON UCP), ADDITIONAL 01040 M00S01027.1ma +++|* INFORMATION IS TRANSFERRED FROM THE MESSAGE BUFFER. 01041 M00S01028.1ma +++|* (SP - SP+4) = 6/ RC,12/ FP, 18/ UCPA, 18/SCPA,6/ FC 01042 M00S01029.1ma +++|* (SQ - SQ+4) = 24/ JSEQ,24/,12/ JEJT (SF.SWPO) 01043 M00S01030.1ma +++|* = MESSAGE (SF.REGR) 01044 M00S01031.1ma +++|* (BUF - BUF+MESL-1) = MESSAGE (SF.REGR) 01045 M00S01032.1ma +++|* FC FUNCTION CODES VALID FOR 1MA ARE - 01046 M00S01033.1ma +++|* 02 SEND DAYFILE MESSAGE AND/OR ABORT USER. 01047 M00S01034.1ma +++|* 24 SWAP OUT USER JOB. 01048 M00S01035.1ma +++|* FP A PARAMETER MEANINGFUL TO A PARTICULAR FUNCTION. 01049 M00S01036.1ma +++|* JEJT JOB EJT ORDINAL. 01050 M00S01037.1ma +++|* JSEQ JOB SEQUENCE NUMBER. 01051 M00S01038.1ma +++|* RC SYSTEM REPLY CODE - (SEE *COMSSCP*). 01052 M00S01039.1ma +++|* SCPA A DATA ADDRESS WITHIN THE SUBSYSTEM MEMORY. 01053 M00S01040.1ma +++|* UCPA A DATA ADDRESS WITHIN A USER JOB MEMORY. 01054 M00S01041.1ma +++|* 01055 M00S01042.1ma +++|* CALLS CHG, DFM, SDM, SWO, SWP, SWT, SXT. 01056 M00S01043.1ma +++|* 01057 M00S01044.1ma +++|* MACROS MONITOR. 01058 M00S01045.1ma +++| 01059 M00S01046.1ma +++| 01060 M00S01047.1ma +++| SCP SUBR ENTRY 01061 M00S01048.1ma +++| LDD IR+3 CHECK ABORT REQUESTED 01062 M00S01049.1ma +++| LPN 77 01063 M00S01050.1ma +++| ADD IR+4 01064 M00S01051.1ma +++| ZJN SCP4 IF ABORT REQUESTED FROM CPUMTR 01065 M00S01052.1ma +++| LDD IR+2 01066 M00S01053.1ma +++| SBN 3 01067 M00S01054.1ma +++| MJN SCP2 IF SCP FUNCTION ON UCP 01068 M00S01055.1ma +++| ZJN SCP1 IF FILE SWITCHING FUNCTION 01069 M00S01056.1ma +++| RJM SXT PROCESS SF.EXIT 01070 M00S01057.1ma +++| UJN SCP3 DROP PP 01071 M00S01058.1ma +++| 01072 M00S01059.1ma +++| SCP1 LJM SWT PROCESS FILE SWITCHING FUNCTION 01073 M00S01060.1ma +++| 01074 M00S01061.1ma +++| SCP2 LDD SP+4 GET SCP FUNCTION ON UCP 01075 M00S01062.1ma +++| LPN 37 01076 M00S01063.1ma +++| LMN REGR 01077 M00S01064.1ma +++| NJN SCP6 IF NOT ISSUE DAYFILE MESSAGE 01078 M00S01065.1ma +++| RJM SDM SEND DAYFILE MESSAGE AND/OR ABORT USER 01079 M00S01066.1ma +++| SCP3 LJM DPP EXIT 01080 M00S01067.1ma +++| 01081 M00S01068.1ma +++| SCP4 LDD IR+3 GET MESSAGE INDEX/2 01082 M00S01069.1ma +++| SHN -6+1 01083 M00S01070.1ma +++| SCN 1 01084 M00S01071.1ma +++| STD T4 01085 M00S01072.1ma +++| SBN TERML 01086 M00S01073.1ma +++| PJN SCP7 IF NOT LEGAL MESSAGE INDEX 01087 M00S01074.1ma +++| LDM TERM,T4 GET DAYFILE MESSAGE ADDRESS 01088 M00S01075.1ma +++| ZJN SCP5 IF NO DAYFILE MESSAGE 01089 M00S01076.1ma +++| RJM DFM ISSUE MESSAGE TO DAYFILE 01090 M00S01077.1ma +++| SCP5 LDM TERM+1,T4 GET ERROR FLAG 01091 M00S01078.1ma +++| STD CM+1 01092 M00S01079.1ma +++| MONITOR CEFM SET ERROR FLAG 01093 M00S01080.1ma +++| UJN SCP3 EXIT 01094 M00S01081.1ma +++| 01095 M00S01082.1ma +++| SCP6 LMN SWPO®R 01096 M00S01083.1ma +++| NJN SCP9 IF NOT VALID SUBFUNCTION CODE 01097 M00S01084.1ma +++| RJM SWO SWAP OUT USER JOB 01098 M00S01085.1ma +++| UJN SCP3 EXIT 01099 M00S01086.1ma +++| 01100 M00S01087.1ma +++| SCP7 LDK FSET SET FORCED ERROR 01101 M00S01088.1ma +++| SCP8 RJM CHG CONDITIONALLY HANG PP 01102 M00S01089.1ma +++| UJN SCP3 DROP PP 01103 M00S01090.1ma +++| 01104 M00S01091.1ma +++| SCP9 LDN 0 01105 M00S01092.1ma +++| UJN SCP8 CONDITIONALLY HANG 01106 M00S01093.1ma +++| TERM SPACE 4,10 01107 M00S01094.1ma +++|** TERM - TABLE OF ERROR FLAGS AND MESSAGES. 01108 M00S01095.1ma +++|* 01109 M00S01096.1ma +++|*T 12/ ERMA, 12/ ERFL
Figure
01110 M00S01097.1ma +++|* ERMA ERROR MESSAGE ADDRESS 01111 M00S01098.1ma +++|* ERFL ERROR FLAG 01112 M00S01099.1ma +++| 01113 M00S01100.1ma +++| 01114 M00S01101.1ma +++| TERM BSS 0 01115 M00S01102.1ma +++| LOC 0 01116 M00S01103.1ma +++| CON 0,ITET SCP *SSCR* PARAMETERS INCORRECT 01117 M00S01104.1ma +++| CON =C* USER ACCESS NOT VALID.*,SYET 01118 M00S01105.1ma +++| TERML EQU * 01119 M00S01106.1ma +++| LOC *O 01120 M00S01107.1ma +++| TITLE SCP FUNCTION PROCESSORS. 01121 M00S01108.1ma +++| SDM SPACE 4,10 01122 M00S01109.1ma +++|** SDM - SEND DAYFILE MESSAGE AND/OR ABORT JOB. (SF.REGR) 01123 M00S01110.1ma +++|* 01124 M00S01111.1ma +++|* ENTRY (BUF - BUF+MESL-1) = MESSAGE BUFFER DATA. 01125 M00S01112.1ma +++|* 01126 M00S01113.1ma +++|* USES CM - CM+4, T0 - T6, BUF - BUF+5*5. 01127 M00S01114.1ma +++|* 01128 M00S01115.1ma +++|* CALLS DFM, SCB. 01129 M00S01116.1ma +++|* 01130 M00S01117.1ma +++|* MACROS MONITOR. 01131 M00S01118.1ma +++| 01132 M00S01119.1ma +++| 01133 M00S01120.1ma +++| SDM SUBR ENTRY/EXIT 01134 M00S01121.1ma +++| 01135 M00S01122.1ma +++|* SEND MESSAGE TO SPECIFIED DAYFILE. 01136 M00S01123.1ma +++| 01137 M00S01124.1ma +++| LDD SP+4 CHECK MESSAGE DESIRED 01138 M00S01125.1ma +++| SCN 77 01139 M00S01126.1ma +++| ADD SP+3 01140 M00S01127.1ma +++| ZJN SDM3 IF NO MESSAGE SPECIFIED 01141 M00S01128.1ma +++| LDD SP CHECK SPECIFIED DAYFILE OPTION 01142 M00S01129.1ma +++| LPN 77 01143 M00S01130.1ma +++| SHN 14 01144 M00S01131.1ma +++| ADD SP+1 01145 M00S01132.1ma +++| SHN -6 01146 M00S01133.1ma +++| SBN MXDF 01147 M00S01134.1ma +++| MJN SDM2 IF VALID DAYFILE OPTION 01148 M00S01135.1ma +++| LDN RC66 * INCORRECT DAYFILE PROCESSING FLAG.* 01149 M00S01136.1ma +++| SDM1 RJM SCB SET COMPLETION BIT, REPLY CODE 01150 M00S01137.1ma +++| UJN SDMX RETURN 01151 M00S01138.1ma +++| 01152 M00S01139.1ma +++| SDM2 RAM SDMA SET DAYFILE OPTION 01153 M00S01140.1ma +++| LDN MESL EXTRACT MESSAGE TO BE ISSUED 01154 M00S01141.1ma +++| STD T2 01155 M00S01142.1ma +++| LDN 0 TERMINATE MESSAGE 01156 M00S01143.1ma +++| STM BUF+MESL*5 01157 M00S01144.1ma +++| LDC BUF+MXDF*10000 01158 M00S01145.1ma +++| SDMA EQU *-2 (DAYFILE OPTION) 01159 M00S01146.1ma +++| RJM DFM 01160 M00S01147.1ma +++| 01161 M00S01148.1ma +++|* SET ERROR FLAG ON USER JOB IF DESIRED. 01162 M00S01149.1ma +++| 01163 M00S01150.1ma +++| SDM3 LDD SP+1 CHECK USER ABORT DESIRED 01164 M00S01151.1ma +++| LPN 77 01165 M00S01152.1ma +++| SHN 14 01166 M00S01153.1ma +++| ADD SP+2 01167 M00S01154.1ma +++| ZJN SDM1 IF NO ABORT SPECIFIED 01168 M00S01155.1ma +++| SBN 1 01169 M00S01156.1ma +++| STD T1 01170 M00S01157.1ma +++| SBN TEFGL 01171 M00S01158.1ma +++| MJN SDM5 IF VALID ERROR FLAG SPECIFIED 01172 M00S01159.1ma +++| LDN RC65 * ATTEMPT TO SET INCORRECT ERROR FLAG.* 01173 M00S01160.1ma +++| SDM4 UJN SDM1 SET COMPLETION BIT, REPLY CODE 01174 M00S01161.1ma +++| 01175 M00S01162.1ma +++| SDM5 LDM TEFG,T1 SET ERROR FLAG 01176 M00S01163.1ma +++| STD CM+1 01177 M00S01164.1ma +++| MONITOR CEFM 01178 M00S01165.1ma +++| LDN 0 01179 M00S01166.1ma +++| UJN SDM4 SET COMPLETION BIT 01180 M00S01167.1ma +++| SPACE 4,10 01181 M00S01168.1ma +++|** TEFG - TABLE OF ERROR FLAGS. 01182 M00S01169.1ma +++|* 01183 M00S01170.1ma +++|* INDEXED BY VALUE SPECIFIED IN *FP* FIELD OF SF.REGR REQUEST. 01184 M00S01171.1ma +++| 01185 M00S01172.1ma +++| 01186 M00S01173.1ma +++| TEFG BSS 0 01187 M00S01174.1ma +++| LOC 0 01188 M00S01175.1ma +++| 01189 M00S01176.1ma +++| CON PPET GENERAL SUBSYSTEM ERROR 01190 M00S01177.1ma +++| CON SYET HOSTILE USER ERROR 01191 M00S01178.1ma +++| 01192 M00S01179.1ma +++| TEFGL BSS 0 01193 M00S01180.1ma +++| LOC *O 01194 M00S01181.1ma +++| SWO SPACE 4,10 01195 M00S01182.1ma +++|** SWO - SWAP OUT USER CONTROL POINT. (SF.SWPO) 01196 M00S01183.1ma +++|* 01197 M00S01184.1ma +++|* USES CM - CM+4. 01198 M00S01185.1ma +++|* 01199 M00S01186.1ma +++|* CALL CHG, SCB. 01200 M00S01187.1ma +++|* 01201 M00S01188.1ma +++|* MACROS MONITOR. 01202 M00S01189.1ma +++| 01203 M00S01190.1ma +++| 01204 M00S01191.1ma +++| SWO SUBR ENTRY/EXIT 01205 M00S01192.1ma +++| LDD CP CHECK IF JOB ROLLABLE 01206 M00S01193.1ma +++| ADN JCIW 01207 M00S01194.1ma +++| CRD CM 01208 M00S01195.1ma +++| LDD CM+3 CHECK FOR *DIS* JOB 01209 M00S01196.1ma +++| LPC 1000 01210 M00S01197.1ma +++| ADD CM+2 CHECK FOR NON-ROLLABLE JOB 01211 M00S01198.1ma +++| NJN SWO2 IF JOB NOT ROLLABLE 01212 M00S01199.1ma +++| STD CM+1 ROLLOUT CONTROL POINT 01213 M00S01200.1ma +++| MONITOR ROCM 01214 M00S01201.1ma +++| SWO1 LDN 0 INDICATE NO ERRORS 01215 M00S01202.1ma +++| RJM SCB SET COMPLETION BIT, NO ERRORS 01216 M00S01203.1ma +++| UJN SWOX RETURN 01217 M00S01204.1ma +++| 01218 M00S01205.1ma +++| SWO2 LDD MA CLEAR SCP ROLLOUT REQUESTED FLAG 01219 M00S01206.1ma +++| CWM SWOA,ON 01220 M00S01207.1ma +++| LDN 1 01221 M00S01208.1ma +++| STD CM+1 01222 M00S01209.1ma +++| STD CM+2 01223 M00S01210.1ma +++| MONITOR UADM 01224 M00S01211.1ma +++| LDD CM+1 01225 M00S01212.1ma +++| ZJN SWO1 IF BIT SUCCESSFULLY CLEARED 01226 M00S01213.1ma +++| LDN 0 01227 M00S01214.1ma +++| RJM CHG CONDITIONALLY HANG PP 01228 M00S01215.1ma +++| UJN SWO1 SET COMPLETION BIT AND RETURN 01229 M00S01216.1ma +++| 01230 M00S01217.1ma +++| 01231 M00S01218.1ma +++| SWOA VFD 12/CDOS,12/STSW,6/29D,6/1 01232 M00S01219.1ma +++| SXT SPACE 4,10 01233 M00S01220.1ma +++|** SXT - PROCESS EXIT FROM SCP STATUS. (SF.EXIT) 01234 M00S01221.1ma +++|* 01235 M00S01222.1ma +++|* USES EF, SC. 01236 M00S01223.1ma +++|* 01237 M00S01224.1ma +++|* CALLS SCB, *0ST*. 01238 M00S01225.1ma +++|* 01239 M00S01226.1ma +++|* MACROS EXECUTE. 01240 M00S01227.1ma +++| 01241 M00S01228.1ma +++| 01242 M00S01229.1ma +++| SXT SUBR ENTRY/EXIT 01243 M00S01230.1ma +++| LDN 0 INDICATE NO ERROR FLAG 01244 M00S01231.1ma +++| STD EF 01245 M00S01232.1ma +++| LDN 6 INDICATE CONNECTED UCP-S FOR SF.EXIT 01246 M00S01233.1ma +++| STD SC 01247 M00S01234.1ma +++| EXECUTE 0ST,OSTL 01248 M00S01235.1ma +++| RJM CAA GET *SF.EXIT* PARAMETER WORD 01249 M00S01236.1ma +++| CRD CM 01250 M00S01237.1ma +++| AOD CM+4 SET COMPLETE BIT 01251 M00S01238.1ma +++| LDD CM CLEAR REPLY CODE (NO ERROR) 01252 M00S01239.1ma +++| LPN 77 01253 M00S01240.1ma +++| STD CM 01254 M00S01241.1ma +++| RJM CAA 01255 M00S01242.1ma +++| CWD CM 01256 M00S01243.1ma +++| UJN SXTX RETURN 01257 M00S01244.1ma +++| TITLE SUBROUTINES. 01258 M00S01245.1ma +++| DLY SPACE 4,10 01259 M00S01246.1ma +++|** DLY - DELAY. 01260 M00S01247.1ma +++|* 01261 M00S01248.1ma +++|* EXIT (A) = 0 IF OPERATOR INTERVENTION. 01262 M00S01249.1ma +++|* 01263 M00S01250.1ma +++|* MACROS DELAY, PAUSE. 01264 M00S01251.1ma +++| 01265 M00S01252.1ma +++| 01266 M00S01253.1ma +++| DLY SUBR ENTRY/EXIT 01267 M00S01254.1ma +++| PAUSE 01268 M00S01255.1ma +++| DELAY 01269 M00S01256.1ma +++| LDD CM+1 CHECK FOR OPERATOR OVERRIDE 01270 M00S01257.1ma +++| LMN ORET 01271 M00S01258.1ma +++| UJN DLYX RETURN 01272 M00S01259.1ma +++| SCB SPACE 4,15 01273 M00S01260.1ma +++|** SCB - SET COMPLETION BIT. 01274 M00S01261.1ma +++|* 01275 M00S01262.1ma +++|* SCB SETS SETS THE COMPLETION BIT FOR A PARTICULAR 01276 M00S01263.1ma +++|* SF.XXXX FUNCTION ALONG WITH THE REPLY CODE. 01277 M00S01264.1ma +++|* 01278 M00S01265.1ma +++|* ENTRY (A) = REPLY CODE. 01279 M00S01266.1ma +++|* 01280 M00S01267.1ma +++|* EXIT (T7) = REPLY CODE. 01281 M00S01268.1ma +++|* 01282 M00S01269.1ma +++|* USES T1, CM - CM+4. 01283 M00S01270.1ma +++|* 01284 M00S01271.1ma +++|* CALLS DLY. 01285 M00S01272.1ma +++|* 01286 M00S01273.1ma +++|* MACROS MONITOR. 01287 M00S01274.1ma +++| 01288 M00S01275.1ma +++| 01289 M00S01276.1ma +++| SCB SUBR ENTRY/EXIT 01290 M00S01277.1ma +++| STD T7 SAVE ERROR STATUS 01291 M00S01278.1ma +++| LDD IR+4 ADDRESS OF FUNCTION PARAMETER WORD 01292 M00S01279.1ma +++| STM SCBA 01293 M00S01280.1ma +++| LDD IR+3 01294 M00S01281.1ma +++| LPN 77 01295 M00S01282.1ma +++| SHN 14 01296 M00S01283.1ma +++| ADD T7 SET ERROR STATUS IN CALL 01297 M00S01284.1ma +++| SHN 6 01298 M00S01285.1ma +++| STM SCBB 01299 M00S01286.1ma +++| LDD IR+3 EXTRACT SUBSYSTEM INDEX 01300 M00S01287.1ma +++| SHN -6 01301 M00S01288.1ma +++| ADC LSSI 01302 M00S01289.1ma +++| STM SCBC SUBSYSTEM QUEUE PRIORITY 01303 M00S01290.1ma +++| SCB1 LDC * 01304 M00S01291.1ma +++| SCBA EQU *-1 (ADDRESS OF FUNCTION REQUEST) 01305 M00S01292.1ma +++| STD CM+4 01306 M00S01293.1ma +++| LDC * 01307 M00S01294.1ma +++| SCBB EQU *-1 01308 M00S01295.1ma +++| STD CM+3 ADDRESS OF PARAMETER AND ERROR STATUS 01309 M00S01296.1ma +++| LDC * 01310 M00S01297.1ma +++| SCBC EQU *-1 01311 M00S01298.1ma +++| STD CM+2 SUBSYSTEM QUEUE PRIORITY 01312 M00S01299.1ma +++| LDN 2 FUNCTION CODE 01313 M00S01300.1ma +++| STD CM+1 01314 M00S01301.1ma +++| MONITOR TDAM SET REPLY CODE, COMPLETION BIT 01315 M00S01302.1ma +++| LDD CM+1 01316 M00S01303.1ma +++| ZJN SCB2 RETURN IF ACCEPTED 01317 M00S01304.1ma +++| SBN 4 01318 M00S01305.1ma +++| ZJN SCB2 RETURN IF SUBSYSTEM INACTIVE 01319 M00S01306.1ma +++| PJN SCB3 IF INCORRECT COMPLETION ADDRESS 01320 M00S01307.1ma +++| RJM DLY DELAY 01321 M00S01308.1ma +++| NJN SCB1 IF NOT OPERATOR OVERRIDE 01322 M00S01309.1ma +++| SCB2 LJM SCBX RETURN 01323 M00S01310.1ma +++| 01324 M00S01311.1ma +++| SCB3 LDD MA SAVE SCP ORDINAL AND JOB SEQUENCE NUMBER 01325 M00S01312.1ma +++| CWD CM 01326 M00S01313.1ma +++| SCB4 LDD MA GET SCP ORDINAL AND JOB SEQUENCE NUMBER 01327 M00S01314.1ma +++| CRD CM 01328 M00S01315.1ma +++| LDC 4000+ITET SCP INCORRECT TRANSFER ADDRESS 01329 M00S01316.1ma +++| STD CM+1 01330 M00S01317.1ma +++| MONITOR CEFM SET ERROR ON SCP 01331 M00S01318.1ma +++| LDD CM+1 01332 M00S01319.1ma +++| LMN 1 CHECK FOR SCP MOVING STATUS 01333 M00S01320.1ma +++| NJN SCB2 IF OPERATION COMPLETE OR SCP NOT FOUND 01334 M00S01321.1ma +++| RJM DLY DELAY 01335 M00S01322.1ma +++| ZJN SCB2 IF OPERATOR INTERVENTION 01336 M00S01323.1ma +++| LDD T1 RESET SCP CONTROL POINT NUMBER 01337 M00S01324.1ma +++| STD CM+2 01338 M00S01325.1ma +++| UJN SCB4 REISSUE REQUEST 01339 M00S01326.1ma +++| SWT TITLE FILE SWITCHING FUNCTION PROCESSOR. 01340 M00S01327.1ma +++| SWT SPACE 4,40 01341 M00S01328.1ma +++|*** FUNCTION 3. 01342 M00S01329.1ma +++|* FILE SWITCHING PROCESSOR. 01343 M00S01330.1ma +++|* 01344 M00S01331.1ma +++|* THIS PROCESSOR IS CALLED BY *CPUMTR* TO PROCESS AN *SST* 01345 M00S01332.1ma +++|* SYSTEM REQUEST AFTER ALL PARAMETERS HAVE BEEN VALIDATED. 01346 M00S01333.1ma +++|* 01347 M00S01334.1ma +++|* ENTRY 01348 M00S01335.1ma +++|* 01349 M00S01336.1ma +++|*T,ARG 6/0,18/ ADDR
Figure ARG
01350 M00S01337.1ma +++|* ADDR RELATIVE ADDRESS OF FUNCTION PARAMETERS. 01351 M00S01338.1ma +++|* 01352 M00S01339.1ma +++|* (SP - SP+4) = 12/ FNTR,12/ FNTS,18/ RSV,6/ FCN,11/ ST,1/ C 01353 M00S01340.1ma +++|* (SQ - SQ+4) = 24/ JSN,24/0,12/ JEJT 01354 M00S01341.1ma +++|* C COMPLETION BIT. 01355 M00S01342.1ma +++|* FCN SUBFUNCTION CODE - 01356 M00S01343.1ma +++|* CUSU = 1 CALLER UCP - SCP TO UCP SWITCH. 01357 M00S01344.1ma +++|* CUUS = 2 CALLER UCP - UCP TO SCP SWITCH. 01358 M00S01345.1ma +++|* CSUS = 3 CALLER SCP - UCP TO SCP SWITCH. 01359 M00S01346.1ma +++|* CSSU = 4 CALLER SCP - SCP TO UCP SWITCH. 01360 M00S01347.1ma +++|* FNTR FNT ORDINAL IN RECEIVER-S FNT (RETURNED PARAMETER). 01361 M00S01348.1ma +++|* (SET TO PARTNER-S CPA BY *CPUMTR* FOR *1MA*.) 01362 M00S01349.1ma +++|* FNTS FNT ORDINAL IN SOURCE-S FNT. 01363 M00S01350.1ma +++|* JEJT PARTNER JOB EJT ORDINAL (FCN = 3 OR 4). 01364 M00S01351.1ma +++|* (SET BY *CPUMTR* FOR *1MA* FOR FCN = 1 OR 2.) 01365 M00S01352.1ma +++|* JSN JOB SEQUENCE NUMBER FOR PARTNER (FCN = 3 OR 4). 01366 M00S01353.1ma +++|* RSV RESERVED FOR CDC. 01367 M00S01354.1ma +++|* ST RETURN STATUS CODE - 01368 M00S01355.1ma +++|* 00 SWITCH COMPLETED NORMALLY. 01369 M00S01356.1ma +++|* 01 FILE BUSY. 01370 M00S01357.1ma +++|* 02 PARTNER ROLLED OUT. 01371 M00S01358.1ma +++|* 03 INCORRECT FILE TYPE. 01372 M00S01359.1ma +++|* 04 PARTNER-S IDENTIFICATION NOT KNOWN. 01373 M00S01360.1ma +++|* 05 NO SPACE IN RECEIVER-S NFL. 01374 M00S01361.1ma +++|* 06 FILE LIMIT. 01375 M00S01362.1ma +++|* 07 FILE *FNTS* NOT FOUND. 01376 M00S01363.1ma +++| 01377 M00S01364.1ma +++| 01378 M00S01365.1ma +++| SWT BSS 0 ENTRY 01379 M00S01366.1ma +++| LDN 0 INITIALIZE 01380 M00S01367.1ma +++| STD FA 01381 M00S01368.1ma +++| STD RC 01382 M00S01369.1ma +++| LDN SFIN SET JOB INTERLOCK 01383 M00S01370.1ma +++| RJM PJI 01384 M00S01371.1ma +++| ZJN SWT1 IF INTERLOCK SET 01385 M00S01372.1ma +++| LDN RC02 * JOB ROLLED OUT.* 01386 M00S01373.1ma +++| STD RC 01387 M00S01374.1ma +++| NFA SP+1,R SET UP FOR EXIT 01388 M00S01375.1ma +++| CRD FN 01389 M00S01376.1ma +++| ADN FSTL 01390 M00S01377.1ma +++| CRM FS,ON 01391 M00S01378.1ma +++| CRM FBUF,ON 01392 M00S01379.1ma +++| LDD SP+3 01393 M00S01380.1ma +++| LPN 1 01394 M00S01381.1ma +++| ZJP SFP3.1 IF SF = 2 OR 4 01395 M00S01382.1ma +++| LJM SRC SET REPLY CODE 01396 M00S01383.1ma +++| 01397 M00S01384.1ma +++| SWT1 LDD SP+3 GET SUB FUNCTION 01398 M00S01385.1ma +++| ZJN SWT2 IF ZERO 01399 M00S01386.1ma +++| SBN 5 01400 M00S01387.1ma +++| PJN SWT2 IF OUT OF RANGE 01401 M00S01388.1ma +++| LDD SP+3 01402 M00S01389.1ma +++| LPN 1 01403 M00S01390.1ma +++| ZJN SFP IF SF = 2 OR 4 (SEND FILE TO PARTNER) 01404 M00S01391.1ma +++| LJM GFP SF = 1 OR 3 (GET FILE FROM PARTNER) 01405 M00S01392.1ma +++| 01406 M00S01393.1ma +++| SWT2 LDN 0 01407 M00S01394.1ma +++| RJM CHG CONDITIONALLY HANG PP 01408 M00S01395.1ma +++| LDK RC10 * INCORRECT SUBFUNCTION.* 01409 M00S01396.1ma +++| STD RC 01410 M00S01397.1ma +++| LJM SFP3 CLEAR JOB INTERLOCK 01411 M00S01398.1ma +++| SFP SPACE 4,15 01412 M00S01399.1ma +++|** SFP - SEND FILE TO PARTNER. 01413 M00S01400.1ma +++|* 01414 M00S01401.1ma +++|* ENTRY (SP+1) = SOURCE FNT ORDINAL. 01415 M00S01402.1ma +++|* 01416 M00S01403.1ma +++|* EXIT (FA) = NEW ADDRESS OF FNT. 01417 M00S01404.1ma +++|* (RC) = REPLY CODE. 01418 M00S01405.1ma +++|* 01419 M00S01406.1ma +++|* USES T1, CM - CM+4. 01420 M00S01407.1ma +++|* 01421 M00S01408.1ma +++|* CALLS CCP, CLF, PJI, RTC, UIE. 01422 M00S01409.1ma +++|* 01423 M00S01410.1ma +++|* MACROS NFA. 01424 M00S01411.1ma +++| 01425 M00S01412.1ma +++| 01426 M00S01413.1ma +++| SFP BSS 0 ENTRY 01427 M00S01414.1ma +++| NFA SP+1,R GET FNT/FST 01428 M00S01415.1ma +++| CRD FN 01429 M00S01416.1ma +++| CRD CM 01430 M00S01417.1ma +++| ADN FSTL 01431 M00S01418.1ma +++| CRM FS,ON 01432 M00S01419.1ma +++| CRM FBUF,ON 01433 M00S01420.1ma +++| 01434 M00S01421.1ma +++|* CHANGE FILE TYPE. 01435 M00S01422.1ma +++| 01436 M00S01423.1ma +++| LDD CM+4 01437 M00S01424.1ma +++| LPN 77 01438 M00S01425.1ma +++| ADC LIFT*100 SET *LIBRARY* FILE TYPE 01439 M00S01426.1ma +++| STD CM+4 01440 M00S01427.1ma +++| NFA SP+1,R 01441 M00S01428.1ma +++| CWD CM 01442 M00S01429.1ma +++| 01443 M00S01430.1ma +++|* CHANGE TO RECEIVER-S CP. 01444 M00S01431.1ma +++| 01445 M00S01432.1ma +++| LDD SP SET PARTNER CP 01446 M00S01433.1ma +++| STM CCPA 01447 M00S01434.1ma +++| LDN 0 CHANGE TO PARTNER 01448 M00S01435.1ma +++| RJM CCP 01449 M00S01436.1ma +++| ZJN SFP1 IF SUCCESSFUL 01450 M00S01437.1ma +++| STD T1 SAVE REPLY 01451 M00S01438.1ma +++| LDN RC02 * JOB ROLLED OUT.* 01452 M00S01439.1ma +++| STD RC 01453 M00S01440.1ma +++| LDD T1 GET REPLY 01454 M00S01441.1ma +++| SBN 1 01455 M00S01442.1ma +++| NJN SFP2 IF WRONG JOB 01456 M00S01443.1ma +++| UJN SFP3 CLEAR JOB INTERLOCK 01457 M00S01444.1ma +++| 01458 M00S01445.1ma +++|* CREATE LOCAL FNT IN RECEIVER-S NFL. 01459 M00S01446.1ma +++| 01460 M00S01447.1ma +++| SFP1 RJM CLF CREATE LOCAL FNT 01461 M00S01448.1ma +++| NJN SFP2 IF FILE NOT CREATED 01462 M00S01449.1ma +++| 01463 M00S01450.1ma +++|* WRITE FNT/FST INTO RECEIVER-S NFL. 01464 M00S01451.1ma +++| 01465 M00S01452.1ma +++| LDM CCPB GET EJT ORDINAL OF CALLER 01466 M00S01453.1ma +++| RJM UIE UPDATE QFT ENTRY 01467 M00S01454.1ma +++| LDD FS+4 SET FST NOT BUSY 01468 M00S01455.1ma +++| SCN 1 01469 M00S01456.1ma +++| ADN 1 01470 M00S01457.1ma +++| STD FS+4 01471 M00S01458.1ma +++| NFA FA,R COMPUTE NFL ADDRESS 01472 M00S01459.1ma +++| CWD FN WRITE FNT 01473 M00S01460.1ma +++| ADN FSTL 01474 M00S01461.1ma +++| CWM FS,ON WRITE FST 01475 M00S01462.1ma +++| CWM FBUF,ON WRITE UTILITY WORD OF FST 01476 M00S01463.1ma +++| 01477 M00S01464.1ma +++|* RETURN TO CALLING JOB. 01478 M00S01465.1ma +++| 01479 M00S01466.1ma +++| SFP2 RJM RTC RETURN TO CALLER 01480 M00S01467.1ma +++| 01481 M00S01468.1ma +++|* CLEAR JOB INTERLOCK. 01482 M00S01469.1ma +++| 01483 M00S01470.1ma +++| SFP3 LDN CFIN CLEAR JOB INTERLOCK 01484 M00S01471.1ma +++| RJM PJI 01485 M00S01472.1ma +++| 01486 M00S01473.1ma +++|* TERMINATION PROCESSING - CHECK FOR ERROR. 01487 M00S01474.1ma +++| 01488 M00S01475.1ma +++| LDD RC 01489 M00S01476.1ma +++| ZJN SFP4 IF NO ERROR 01490 M00S01477.1ma +++| 01491 M00S01478.1ma +++|* CLEAR *LIBRARY* FILE TYPE IN FNT (FILE NOT SWITCHED). 01492 M00S01479.1ma +++| 01493 M00S01480.1ma +++| SFP3.1 LDD FS+4 SET FILE NOT BUSY 01494 M00S01481.1ma +++| SCN 1 01495 M00S01482.1ma +++| ADN 1 01496 M00S01483.1ma +++| STD FS+4 01497 M00S01484.1ma +++| NFA SP+1,R UPDATE FNT 01498 M00S01485.1ma +++| CWD FN 01499 M00S01486.1ma +++| ADN FSTL UPDATE FST 01500 M00S01487.1ma +++| CWD FS 01501 M00S01488.1ma +++| UJN SRC SET REPLY CODE 01502 M00S01489.1ma +++| 01503 M00S01490.1ma +++| SFP4 LDD SP+1 FNT ORDINAL OF SOURCE FNT 01504 M00S01491.1ma +++|* LJM DLF DELETE LOCAL FNT 01505 M00S01492.1ma +++| DLF SPACE 4,10 01506 M00S01493.1ma +++|** DLF - DELETE LOCAL FNT. 01507 M00S01494.1ma +++|* 01508 M00S01495.1ma +++|* ENTRY (A) = FNT ORDINAL. 01509 M00S01496.1ma +++|* 01510 M00S01497.1ma +++|* USES CM - CM+4. 01511 M00S01498.1ma +++|* 01512 M00S01499.1ma +++|* EXIT TO *SRC*. 01513 M00S01500.1ma +++|* 01514 M00S01501.1ma +++|* MACROS MONITOR. 01515 M00S01502.1ma +++| 01516 M00S01503.1ma +++| 01517 M00S01504.1ma +++| DLF BSS 0 ENTRY 01518 M00S01505.1ma +++| STD CM+4 SET FNT ORDINAL 01519 M00S01506.1ma +++| LDN DLFS DELETE FNT 01520 M00S01507.1ma +++| STD CM+1 01521 M00S01508.1ma +++| MONITOR PLFM 01522 M00S01509.1ma +++|* LJM SRC SET REPLY CODE 01523 M00S01510.1ma +++| SRC SPACE 4,10 01524 M00S01511.1ma +++|** SRC - SET REPLY CODE. 01525 M00S01512.1ma +++|* 01526 M00S01513.1ma +++|* ENTRY (IR+3 - IR+4) = RELATIVE ADDRESS OF PARAMETER BLOCK. 01527 M00S01514.1ma +++|* (FA) = FNT ORDINAL. 01528 M00S01515.1ma +++|* (RC) = REPLY CODE. 01529 M00S01516.1ma +++|* 01530 M00S01517.1ma +++|* EXIT TO *DPP*. 01531 M00S01518.1ma +++|* TO *ERR* IF INCORRECT REQUEST ADDRESS. 01532 M00S01519.1ma +++|* 01533 M00S01520.1ma +++|* CALLS SRA. 01534 M00S01521.1ma +++| 01535 M00S01522.1ma +++| 01536 M00S01523.1ma +++| SRC LDD FA GET FNT ORDINAL 01537 M00S01524.1ma +++| STD SP 01538 M00S01525.1ma +++| LDD RC GET REPLY CODE 01539 M00S01526.1ma +++| SHN 1 01540 M00S01527.1ma +++| ADN 1 SET COMPLETION BIT 01541 M00S01528.1ma +++| STD SP+4 01542 M00S01529.1ma +++| RJM SRA SET REQUEST ADDRESS 01543 M00S01530.1ma +++| ZJN SRC1 IF INCORRECT ADDRESS 01544 M00S01531.1ma +++| CWD SP UPDATE *ADDR* 01545 M00S01532.1ma +++| LJM DPP DROP PP 01546 M00S01533.1ma +++| 01547 M00S01534.1ma +++| SRC1 LDC =C* INCORRECT REQUEST.* 01548 M00S01535.1ma +++| LJM ERR PROCESS ERROR 01549 M00S01536.1ma +++| GFP SPACE 4,15 01550 M00S01537.1ma +++|** GFP - GET FILE FROM PARTNER. 01551 M00S01538.1ma +++|* 01552 M00S01539.1ma +++|* ENTRY (SP+1) = FNT ORDINAL OF FILE TO BE SWITCHED. 01553 M00S01540.1ma +++|* 01554 M00S01541.1ma +++|* EXIT (FA) = NEW ADDRESS OF FNT. 01555 M00S01542.1ma +++|* (RC) = REPLY CODE. 01556 M00S01543.1ma +++|* 01557 M00S01544.1ma +++|* USES T1, CM - CM+4. 01558 M00S01545.1ma +++|* 01559 M00S01546.1ma +++|* CALLS CCP, CLF, PJI, RTC, UIE. 01560 M00S01547.1ma +++|* 01561 M00S01548.1ma +++|* MACROS MONITOR, NFA. 01562 M00S01549.1ma +++| 01563 M00S01550.1ma +++| 01564 M00S01551.1ma +++| GFP BSS 0 ENTRY 01565 M00S01552.1ma +++| 01566 M00S01553.1ma +++|* CREATE LOCAL FNT IN CALLER-S NFL. 01567 M00S01554.1ma +++| 01568 M00S01555.1ma +++| RJM CLF CREATE LOCAL FNT 01569 M00S01556.1ma +++| NJN GFP1 IF FILE NOT CREATED 01570 M00S01557.1ma +++| 01571 M00S01558.1ma +++|* CHANGE TO PARTNER CP. 01572 M00S01559.1ma +++| 01573 M00S01560.1ma +++| LDD SP SET CP ADDRESS 01574 M00S01561.1ma +++| STM CCPA 01575 M00S01562.1ma +++| LDN 0 CHANGE TO PARTNER 01576 M00S01563.1ma +++| RJM CCP 01577 M00S01564.1ma +++| ZJN GFP2 IF SUCCESSFUL 01578 M00S01565.1ma +++| STD T1 SAVE REPLY CODE 01579 M00S01566.1ma +++| LDN RC02 * JOB ROLLED OUT.* 01580 M00S01567.1ma +++| STD RC SET ERROR CODE 01581 M00S01568.1ma +++| LDD T1 REPLY CODE 01582 M00S01569.1ma +++| SBN 1 01583 M00S01570.1ma +++| NJN GFP3 IF WRONG JOB 01584 M00S01571.1ma +++| GFP1 LJM GFP6 CLEAR JOB INTERLOCK 01585 M00S01572.1ma +++| 01586 M00S01573.1ma +++|* SET FILE BUSY. 01587 M00S01574.1ma +++| 01588 M00S01575.1ma +++| GFP2 NFA SP+1,R COMPUTE NFL ADDRESS 01589 M00S01576.1ma +++| CRD FN READ FNT 01590 M00S01577.1ma +++| LDN ZERL 01591 M00S01578.1ma +++| CRD CM 01592 M00S01579.1ma +++| LDD SP+1 FNT ORDINAL 01593 M00S01580.1ma +++| STD CM+4 01594 M00S01581.1ma +++| LDD MA FILE NAME 01595 M00S01582.1ma +++| CWD FN 01596 M00S01583.1ma +++| MONITOR SFBM 01597 M00S01584.1ma +++| LDD CM+1 01598 M00S01585.1ma +++| ZJN GFP4 IF FILE NOT BUSY 01599 M00S01586.1ma +++| LDN RC01 * FILE BUSY.* 01600 M00S01587.1ma +++| STD RC SET ERROR CODE 01601 M00S01588.1ma +++| GFP3 UJN GFP5 RETURN TO CALLER 01602 M00S01589.1ma +++| 01603 M00S01590.1ma +++|* GET FNT/FST OF FILE TO BE SWITCHED. 01604 M00S01591.1ma +++| 01605 M00S01592.1ma +++| GFP4 NFA SP+1,R COMPUTE NFL ADDRESS 01606 M00S01593.1ma +++| CRD FN READ FNT 01607 M00S01594.1ma +++| ADN FSTL 01608 M00S01595.1ma +++| CRM FS,ON 01609 M00S01596.1ma +++| CRM FBUF,ON 01610 M00S01597.1ma +++| 01611 M00S01598.1ma +++|* DELETE OLD FNT. 01612 M00S01599.1ma +++| 01613 M00S01600.1ma +++| LDD SP+1 FNT ORDINAL 01614 M00S01601.1ma +++| STD CM+4 01615 M00S01602.1ma +++| LDN DLFS DELETE FNT 01616 M00S01603.1ma +++| STD CM+1 01617 M00S01604.1ma +++| MONITOR PLFM 01618 M00S01605.1ma +++| 01619 M00S01606.1ma +++|* CHANGE BACK TO CALLING CP. 01620 M00S01607.1ma +++| 01621 M00S01608.1ma +++| GFP5 RJM RTC RETURN TO CALLER 01622 M00S01609.1ma +++| 01623 M00S01610.1ma +++|* CLEAR JOB INTERLOCK. 01624 M00S01611.1ma +++| 01625 M00S01612.1ma +++| GFP6 LDN CFIN CLEAR JOB INTERLOCK 01626 M00S01613.1ma +++| RJM PJI 01627 M00S01614.1ma +++| 01628 M00S01615.1ma +++|* TERMINATION PROCESSING - CHECK FOR ERROR CODE. 01629 M00S01616.1ma +++| 01630 M00S01617.1ma +++| LDD RC 01631 M00S01618.1ma +++| ZJN GFP7 IF NO ERROR 01632 M00S01619.1ma +++| LDD FA 01633 M00S01620.1ma +++| ZJN GFP8 IF NO NEW FNT CREATED 01634 M00S01621.1ma +++| STD T1 SAVE ORDINAL 01635 M00S01622.1ma +++| LDN 0 CLEAR FNT ORDINAL 01636 M00S01623.1ma +++| STD FA 01637 M00S01624.1ma +++| LDD T1 01638 M00S01625.1ma +++| LJM DLF DELETE LOCAL FNT 01639 M00S01626.1ma +++| 01640 M00S01627.1ma +++|* WRITE FNT INTO RECEIVER-S NFL. 01641 M00S01628.1ma +++| 01642 M00S01629.1ma +++| GFP7 LDD SQ+4 GET EJT ORDINAL OF PARTNER 01643 M00S01630.1ma +++| RJM UIE UPDATE QFT ENTRY 01644 M00S01631.1ma +++| LDD FS+4 SET FST NOT BUSY 01645 M00S01632.1ma +++| SCN 1 01646 M00S01633.1ma +++| ADN 1 01647 M00S01634.1ma +++| STD FS+4 01648 M00S01635.1ma +++| NFA FA,R COMPUTE NFL ADDRESS 01649 M00S01636.1ma +++| CWD FN WRITE FNT 01650 M00S01637.1ma +++| ADN FSTL 01651 M00S01638.1ma +++| CWM FS,ON WRITE FST 01652 M00S01639.1ma +++| CWM FBUF,ON WRITE UTILITY WORD OF FST 01653 M00S01640.1ma +++| GFP8 LJM SRC SET REPLY CODE 01654 M00S01641.1ma +++| CCP SPACE 4,20 01655 M00S01642.1ma +++|** CCP - CHANGE CONTROL POINT. 01656 M00S01643.1ma +++|* 01657 M00S01644.1ma +++|* *CCP* CHANGES TO THE SPECIFIED CONTROL POINT, TRYING 5 TIMES 01658 M00S01645.1ma +++|* BEFORE GIVING UP. IF CHANGE IS MADE, THE EJT ORDINAL IS 01659 M00S01646.1ma +++|* VERIFIED TO ENSURE THE JOB IS THE CORRECT ONE. 01660 M00S01647.1ma +++|* 01661 M00S01648.1ma +++|* ENTRY (A) = 0 CHANGE TO PARTNER CP. 01662 M00S01649.1ma +++|* (A) .NE. 0 CHANGE BACK TO CALLER CP. 01663 M00S01650.1ma +++|* (CCPA) = NEW CP ADDRESS IF A=0. 01664 M00S01651.1ma +++|* 01665 M00S01652.1ma +++|* EXIT (A) = 0 IF CHANGE MADE SUCCESSFULLY. 01666 M00S01653.1ma +++|* (A) = 1 IF CHANGE NOT POSSIBLE. 01667 M00S01654.1ma +++|* (A) = 2 IF CHANGE MADE, BUT WRONG EJT ORDINAL. 01668 M00S01655.1ma +++|* 01669 M00S01656.1ma +++|* USES T1, CM - CM+4. 01670 M00S01657.1ma +++|* 01671 M00S01658.1ma +++|* CALLS DLY. 01672 M00S01659.1ma +++|* 01673 M00S01660.1ma +++|* MACROS MONITOR. 01674 M00S01661.1ma +++| 01675 M00S01662.1ma +++| 01676 M00S01663.1ma +++| CCP SUBR ENTRY/EXIT 01677 M00S01664.1ma +++| NJN CCP1 IF CHANGING BACK TO CALLER 01678 M00S01665.1ma +++| 01679 M00S01666.1ma +++|* PRESET FOR CHANGE TO PARTNER. 01680 M00S01667.1ma +++| 01681 M00S01668.1ma +++| LDD CP GET CALLER EJT ORDINAL 01682 M00S01669.1ma +++| ADN TFSW 01683 M00S01670.1ma +++| CRD CM 01684 M00S01671.1ma +++| LDD CM 01685 M00S01672.1ma +++| STM CCPB 01686 M00S01673.1ma +++| LDD SQ+4 SET EJT ORDINAL FOR VERIFY 01687 M00S01674.1ma +++| UJN CCP2 PROCESS CALL 01688 M00S01675.1ma +++| 01689 M00S01676.1ma +++|* PRESET FOR CHANGE BACK TO CALLER. 01690 M00S01677.1ma +++| 01691 M00S01678.1ma +++| CCP1 LDM CCPC GET CALLING CP ADDRESS 01692 M00S01679.1ma +++| STM CCPA NEW CPA 01693 M00S01680.1ma +++| LDM CCPB SET EJT ORDINAL FOR VERIFY 01694 M00S01681.1ma +++| CCP2 STD T1 01695 M00S01682.1ma +++| LDD CP SAVE OLD CP 01696 M00S01683.1ma +++| STM CCPC 01697 M00S01684.1ma +++| 01698 M00S01685.1ma +++|* CHANGE TO NEW CP, TRYING 5 TIMES. 01699 M00S01686.1ma +++| 01700 M00S01687.1ma +++| LDN 5 INITIALIZE RETRY COUNT 01701 M00S01688.1ma +++| STM CCPD 01702 M00S01689.1ma +++| CCP3 LDC ** 01703 M00S01690.1ma +++| CCPA EQU *-1 NEW CPA
| Line S01691 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01704 M01S01691.273l780 ---| STD CP 01705 M00S01692.1ma +++| SHN -7 01706 M00S01693.1ma +++| STD CM+1 01707 M00S01694.1ma +++| MONITOR CCAM CHANGE CP 01708 M00S01695.1ma +++| LDD CM+1 01709 M00S01696.1ma +++| ZJN CCP6 IF CHANGE MADE 01710 M00S01697.1ma +++| SOM CCPD DECREMENT RETRY COUNT 01711 M00S01698.1ma +++| ZJN CCP4 IF 5 TIMES 01712 M00S01699.1ma +++| RJM DLY DELAY 01713 M00S01700.1ma +++| UJN CCP3 TRY AGAIN 01714 M00S01701.1ma +++| 01715 M00S01702.1ma +++|* CHANGE REJECTED, RETURN ERROR. 01716 M00S01703.1ma +++| 01717 M00S01704.1ma +++| CCP4 LDM CCPC RESET TO OLD CP 01718 M00S01705.1ma +++| STD CP 01719 M00S01706.1ma +++| LDN 1 CHANGE NOT POSSIBLE 01720 M00S01707.1ma +++| CCP5 LJM CCPX RETURN 01721 M00S01708.1ma +++| 01722 M00S01709.1ma +++|* CHANGE MADE, VERIFY JOB EJT ORDINAL. 01723 M00S01710.1ma +++| 01724 M00S01711.1ma +++| CCP6 LDD CP 01725 M00S01712.1ma +++| ADN TFSW GET JOB EJT ORDINAL 01726 M00S01713.1ma +++| CRD CM 01727 M00S01714.1ma +++| LDD T1 VERIFY JOB EJT ORDINAL 01728 M00S01715.1ma +++| LMD CM 01729 M00S01716.1ma +++| ZJN CCP5 IF EJT ORDINAL MATCHES 01730 M00S01717.1ma +++| LDN 2 WRONG JOB 01731 M00S01718.1ma +++| UJN CCP5 RETURN 01732 M00S01719.1ma +++| 01733 M00S01720.1ma +++| 01734 M00S01721.1ma +++| CCPB BSS 1 CALLER EJT ORDINAL 01735 M00S01722.1ma +++| CCPC BSS 1 CALLER CPA 01736 M00S01723.1ma +++| CCPD CON 5 RETRY COUNT 01737 M00S01724.1ma +++| CLF SPACE 4,15 01738 M00S01725.1ma +++|** CLF - CREATE LOCAL FNT ENTRY. 01739 M00S01726.1ma +++|* 01740 M00S01727.1ma +++|* *CLF* CREATES A LOCAL FNT ENTRY FOR THE JOB TO WHICH THE 01741 M00S01728.1ma +++|* PP IS ASSIGNED. 01742 M00S01729.1ma +++|* 01743 M00S01730.1ma +++|* EXIT (A) = 0 IF FILE CREATED. 01744 M00S01731.1ma +++|* (A) = (RC) = *RC05*, IF NO NFL AVAILABLE. 01745 M00S01732.1ma +++|* (A) = (RC) = *RC06*, IF LOCAL FILE LIMIT. 01746 M00S01733.1ma +++|* (FA) = FNT ORDINAL IF A=0. 01747 M00S01734.1ma +++|* 01748 M00S01735.1ma +++|* USES CM - CM+4. 01749 M00S01736.1ma +++|* 01750 M00S01737.1ma +++|* CALLS NFL. 01751 M00S01738.1ma +++|* 01752 M00S01739.1ma +++|* MACROS MONITOR. 01753 M00S01740.1ma +++| 01754 M00S01741.1ma +++| 01755 M00S01742.1ma +++| CLF3 LDD CP REQUEST ADDITIONAL 100B WORDS OF NFL 01756 M00S01743.1ma +++| ADN FLSW 01757 M00S01744.1ma +++| CRD CM 01758 M00S01745.1ma +++| AOD CM 01759 M00S01746.1ma +++| RJM NFL 01760 M00S01747.1ma +++| ZJN CLF1 IF NFL ASSIGNED 01761 M00S01748.1ma +++| LDN RC05 * NOT ENOUGH NFL.* 01762 M00S01749.1ma +++| CLF4 STD RC 01763 M00S01750.1ma +++| 01764 M00S01751.1ma +++| CLF SUBR ENTRY/EXIT 01765 M00S01752.1ma +++| 01766 M00S01753.1ma +++|* CREATE FNT IN RECEIVER-S NFL. 01767 M00S01754.1ma +++| 01768 M00S01755.1ma +++| CLF1 LDD MA SET FILE NAME IN MB 01769 M00S01756.1ma +++| CWM CLFA,ON 01770 M00S01757.1ma +++| LDN CRFS CREATE LOCAL FNT ENTRY 01771 M00S01758.1ma +++| STD CM+1 01772 M00S01759.1ma +++| MONITOR PLFM 01773 M00S01760.1ma +++| LDD CM+1 SAVE FNT ORDINAL 01774 M00S01761.1ma +++| STD FA 01775 M00S01762.1ma +++| LDD CM+4 01776 M00S01763.1ma +++| ZJN CLFX IF FILE CREATED, RETURN 01777 M00S01764.1ma +++| 01778 M00S01765.1ma +++|* FNT NOT CREATED, PROCESS REJECT. 01779 M00S01766.1ma +++| 01780 M00S01767.1ma +++| SHN 21-1 01781 M00S01768.1ma +++| MJN CLF2 IF LOCAL FILE LIMIT 01782 M00S01769.1ma +++| SHN 21-2-21+1+22 01783 M00S01770.1ma +++| MJN CLF3 IF MORE NFL NEEDED 01784 M00S01771.1ma +++| 01785 M00S01772.1ma +++|* DUPLICATE FILE NAME, CHANGE NAME AND TRY AGAIN. 01786 M00S01773.1ma +++| 01787 M00S01774.1ma +++| LDD HN CHANGE FILE NAME 01788 M00S01775.1ma +++| RAM CLFA+3 01789 M00S01776.1ma +++| SHN -6 01790 M00S01777.1ma +++| SBN 1R+ 01791 M00S01778.1ma +++| MJN CLF1 IF FILE NAME STILL VALID 01792 M00S01779.1ma +++| CLF2 LDN RC06 * LOCAL FILE LIMIT.* 01793 M00S01780.1ma +++| UJN CLF4 SET ERROR CODE 01794 M00S01781.1ma +++| 01795 M00S01782.1ma +++| 01796 M00S01783.1ma +++| CLFA VFD 42/0LZZZZZGA,18/0 SCRATCH FILE NAME 01797 M00S01784.1ma +++| PJI SPACE 4,20 01798 M00S01785.1ma +++|** PJI - PROCESS JOB INTERLOCK. 01799 M00S01786.1ma +++|* 01800 M00S01787.1ma +++|* *PJI* CLEARS OR SETS THE JOB INTERLOCK ON THE JOB 01801 M00S01788.1ma +++|* TO WHICH THE PP IS CURRENTLY ASSIGNED. 01802 M00S01789.1ma +++|* 01803 M00S01790.1ma +++|* ENTRY (A) = CFIN CLEAR INTERLOCK. 01804 M00S01791.1ma +++|* (A) = SFIN SET INTERLOCK. 01805 M00S01792.1ma +++|* 01806 M00S01793.1ma +++|* EXIT (A) = 0 INTERLOCK SET/CLEAR. 01807 M00S01794.1ma +++|* (A) = 1 INTERLOCK ALREADY SET (*SFIN* OPTION). 01808 M00S01795.1ma +++|* 01809 M00S01796.1ma +++|* USES T1, CM - CM+4. 01810 M00S01797.1ma +++|* 01811 M00S01798.1ma +++|* CALLS SFI. 01812 M00S01799.1ma +++|* 01813 M00S01800.1ma +++|* MACROS SFA. 01814 M00S01801.1ma +++| 01815 M00S01802.1ma +++| 01816 M00S01803.1ma +++| PJI SUBR ENTRY/EXIT 01817 M00S01804.1ma +++| STD T1 SAVE SET/CLEAR OPTION 01818 M00S01805.1ma +++| LDD CP GET JOB FNT ORDINAL 01819 M00S01806.1ma +++| ADN TFSW 01820 M00S01807.1ma +++| CRD CM 01821 M00S01808.1ma +++| SFA EJT,CM CALCULATE ABSOLUTE ADDRESS OF EJT ENTRY 01822 M00S01809.1ma +++| RJM SFI SET/CLEAR JOB INTERLOCK 01823 M00S01810.1ma +++| UJN PJIX RETURN 01824 M00S01811.1ma +++| RTC SPACE 4,15 01825 M00S01812.1ma +++|** RTC - RETURN TO CALLER. 01826 M00S01813.1ma +++|* 01827 M00S01814.1ma +++|* *RTC* CHANGES CONTROL POINTS BACK TO THE CALLER JOB. 01828 M00S01815.1ma +++|* 01829 M00S01816.1ma +++|* ENTRY JOB AT PARTNER CP. 01830 M00S01817.1ma +++|* *CCP* ALREADY CALLED WITH A=0. 01831 M00S01818.1ma +++|* 01832 M00S01819.1ma +++|* EXIT JOB AT CALLER CP. 01833 M00S01820.1ma +++|* 01834 M00S01821.1ma +++|* CALLS CCP, CHG. 01835 M00S01822.1ma +++| 01836 M00S01823.1ma +++| 01837 M00S01824.1ma +++| RTC SUBR ENTRY/EXIT 01838 M00S01825.1ma +++| RTC1 LDN 1 CHANGE BACK TO CALLER CONTROL POINT 01839 M00S01826.1ma +++| RJM CCP 01840 M00S01827.1ma +++| ZJN RTCX IF CHANGE SUCCESSFUL 01841 M00S01828.1ma +++| LDN 0 01842 M00S01829.1ma +++| RJM CHG CONDITIONALLY HANG PP 01843 M00S01830.1ma +++| LDD CP CHECK ERROR FLAG 01844 M00S01831.1ma +++| ADK STSW 01845 M00S01832.1ma +++| CRD CM 01846 M00S01833.1ma +++| LDD CM+1 01847 M00S01834.1ma +++| SBK ORET 01848 M00S01835.1ma +++| PJN RTC2 IF *ORET* OR HIGHER ERROR 01849 M00S01836.1ma +++| UJN RTC1 RETRY REQUEST 01850 M00S01837.1ma +++| 01851 M00S01838.1ma +++| RTC2 LJM DPP DROP PP 01852 M00S01839.1ma +++| UIE SPACE 4,15 01853 M00S01840.1ma +++|* UIE - UPDATE QFT ENTRY. 01854 M00S01841.1ma +++|* 01855 M00S01842.1ma +++|* *UIE* CHANGES THE JOB EJT ORDINAL ASSIGNMENT IN THE 01856 M00S01843.1ma +++|* QFT ENTRY IF THE LOCAL FILE TYPE IS *QFFT*. 01857 M00S01844.1ma +++|* 01858 M00S01845.1ma +++|* ENTRY (A) = EJT ORDINAL OF JOB WITH QFT ENTRY ASSIGNED. 01859 M00S01846.1ma +++|* (FN - FN+4) = LOCAL FNT ENTRY. 01860 M00S01847.1ma +++|* (FS - FS+4) = LOCAL FST ENTRY. 01861 M00S01848.1ma +++|* 01862 M00S01849.1ma +++|* USES T1, T2, T3, CM - CM+4, CN - CN+4. 01863 M00S01850.1ma +++|* 01864 M00S01851.1ma +++|* CALLS SFI. 01865 M00S01852.1ma +++|* 01866 M00S01853.1ma +++|* MACROS MONITOR, SFA. 01867 M00S01854.1ma +++| 01868 M00S01855.1ma +++| 01869 M00S01856.1ma +++| UIE SUBR ENTRY/EXIT 01870 M00S01857.1ma +++| STM UIEB SAVE OLD JOB EJT ORDINAL 01871 M00S01858.1ma +++| LDD FN+4 CHECK LOCAL FILE TYPE 01872 M00S01859.1ma +++| SHN -6 01873 M00S01860.1ma +++| LMN QFFT 01874 M00S01861.1ma +++| NJN UIEX IF NOT QUEUED INPUT/OUTPUT FILE 01875 M00S01862.1ma +++| LDD CP GET NEW JOB EJT ORDINAL 01876 M00S01863.1ma +++| ADN TFSW 01877 M00S01864.1ma +++| CRD CM 01878 M00S01865.1ma +++| LDD CM 01879 M00S01866.1ma +++| STM UIEC 01880 M00S01867.1ma +++| LDN 0 INITIALIZE QFT ORDINAL 01881 M00S01868.1ma +++| STD T3 01882 M00S01869.1ma +++| LDK QFTP GET MAXIMUM ENTRIES IN QFT 01883 M00S01870.1ma +++| CRD CM 01884 M00S01871.1ma +++| LDD CM+2 01885 M00S01872.1ma +++| STD T2 01886 M00S01873.1ma +++| UIE1 AOD T3 INCREMENT TO NEXT QFT ENTRY 01887 M00S01874.1ma +++| SBD T2 01888 M00S01875.1ma +++| PJN UIE2 IF END OF QFT 01889 M00S01876.1ma +++| SFA QFT,T3 GET QFT ENTRY 01890 M00S01877.1ma +++| CRD CM 01891 M00S01878.1ma +++| ADN ENTQ-JSNQ 01892 M00S01879.1ma +++| CRD CN 01893 M00S01880.1ma +++| LDD CN CHECK FOR SAME EQUIPMENT 01894 M00S01881.1ma +++| LMD FS 01895 M00S01882.1ma +++| LPC 777 01896 M00S01883.1ma +++| NJN UIE1 IF NOT CORRECT ENTRY 01897 M00S01884.1ma +++| LDD CN+1 CHECK FOR SAME FIRST TRACK 01898 M00S01885.1ma +++| LMD FS+1 01899 M00S01886.1ma +++| NJN UIE1 IF NOT CORRECT ENTRY 01900 M00S01887.1ma +++| LDN 3 SET NUMBER OF REQUESTS FOR *UADM* 01901 M00S01888.1ma +++| STD T1 01902 M00S01889.1ma +++| LDD MA WRITE *UADM* REQUESTS TO MESSAGE BUFFER 01903 M00S01890.1ma +++| CWM UIEA,T1 01904 M00S01891.1ma +++| SFA QFT,T3 CALCULATE ABSOLUTE ADDRESS OF QFT ENTRY 01905 M00S01892.1ma +++| RJM SFI ISSUE *UTEM* TO CHANGE JOB EJT ORDINAL 01906 M00S01893.1ma +++| NJN UIE2 IF EJT ORDINAL VERIFY FAILED 01907 M00S01894.1ma +++| LJM UIEX RETURN 01908 M00S01895.1ma +++| 01909 M00S01896.1ma +++| UIE2 MONITOR HNGM HANG PP 01910 M00S01897.1ma +++| UJN UIE2 UNCONDITIONALLY HANG 01911 M00S01898.1ma +++| 01912 M00S01899.1ma +++| 01913 M00S01900.1ma +++| UIEA VFD 1/1,5/JSNQ,6/1,6/1,42/1 CHECK FILE ASSIGNED 01914 M00S01901.1ma +++| VFD 1/1,5/ENTQ,6/12D,6/0,42/0 VERIFY OLD EJT ORDINAL 01915 M00S01902.1ma +++| UIEB EQU *-1 01916 M00S01903.1ma +++| VFD 1/0,5/ENTQ,6/12D,6/0,42/0 SET NEW EJT ORDINAL 01917 M00S01904.1ma +++| UIEC EQU *-1 01918 M00S01905.1ma +++| SPACE 4,10 01919 M00S01906.1ma +++|** COMMON DECKS. 01920 M00S01907.1ma +++| 01921 M00S01908.1ma +++| 01922 M00S01909.1ma +++|*CALL COMPNFL 01923 M00S01910.1ma +++| SPACE 4,10 01924 M00S01911.1ma +++|** BUFFER FOR UTILITY FNT WORD. 01925 M00S01912.1ma +++| 01926 M00S01913.1ma +++| 01927 M00S01914.1ma +++| FBUF BSS LENF*5-2*5 REMAINDER OF FNT 01928 M00S01915.1ma +++| ERRNZ LENF-3 CHANGE BUFFER SIZE AND ALL *FBUF* ACCESS 01929 M00S01916.1ma +++| SPACE 4,10 01930 M00S01917.1ma +++| USE OVERLAY 01931 M00S01918.1ma +++| 01932 M00S01919.1ma +++| OSTL EQU *+5 *0ST* LOAD ADDRESS 01933 M00S01920.1ma +++| 01934 M00S01921.1ma +++| ERRNG BFMS-OSTL-ZSTL CHECK *0ST* LENGTH 01935 M00S01922.1ma +++| OVERFLOW E1MA 01936 M00S01923.1ma +++| TTL 1MA/2MB - EXTENDED MEMORY STORAGE REQUEST PROCESSING. 01937 M00S01924.1ma +++| TITLE 01938 M00S01925.1ma +++| OVERLAY (EXTENDED MEMORY STORAGE REQUEST.),E1MA 01939 M00S01926.1ma +++| SPACE 4,10 01940 M00S01927.1ma +++|***** 2MB - EXTENDED MEMORY STORAGE REQUEST PROCESSING. 01941 M00S01928.1ma +++|* 01942 M00S01929.1ma +++|* *2MB* PERFORMS ALL ECS RELATED STORAGE REQUESTS FOR 01943 M00S01930.1ma +++|* THE SYSTEM MONITOR. *2MB* WILL INSURE THAT AT LEAST 01944 M00S01931.1ma +++|* *MCMX* WORDS OF CM IS ASSIGNED TO THE CONTROL POINT 01945 M00S01932.1ma +++|* BEFORE REQUESTING EXTENDED MEMORY FOR THE CONTROL POINT. 01946 M00S01933.1ma +++|* IF THE CONTROL POINT HAS AN *MFL* OF LESS THAN *MCMX* AT THE 01947 M00S01934.1ma +++|* TIME EXTENDED MEMORY IS REQUESTED, THE JOB WILL BE ABORTED. 01948 M00S01935.1ma +++| RFE SPACE 4,25 01949 M00S01936.1ma +++|*** FUNCTION 0 (SUBFUNCTIONS 2 AND 4). 01950 M00S01937.1ma +++|* REQUEST EXTENDED CORE STORAGE. 01951 M00S01938.1ma +++|* 01952 M00S01939.1ma +++|* ENTRY 01953 M00S01940.1ma +++|*T ARG 6/SUB,18/FL
Figure ARG
01954 M00S01941.1ma +++|* 01955 M00S01942.1ma +++|* SUB = 2 EXTENDED MEMORY REQUEST, ABORT IF NOT AVAILABLE. 01956 M00S01943.1ma +++|* = 4 EXTENDED MEMORY REQUEST, NO ABORT IF NOT AVAILABLE. 01957 M00S01944.1ma +++|* 01958 M00S01945.1ma +++|*T FL 30/VAL,24/,1/R,1/C,1/,3/0
Figure FL
01959 M00S01946.1ma +++|* 01960 M00S01947.1ma +++|* VAL POSITIVE NON-ZERO VALUE INDICATING THE AMOUNT OF 01961 M00S01948.1ma +++|* EXTENDED MEMORY BEING REQUESTED. 01962 M00S01949.1ma +++|* R CLEAR *CMM* STATUS. 01963 M00S01950.1ma +++|* C THIS IS A *CMM* TYPE REQUEST. 01964 M00S01951.1ma +++|* 01965 M00S01952.1ma +++|* EXIT TO *ERR* IF ERRORS ENCOUNTERED. 01966 M00S01953.1ma +++|* TO *RCL* TO ENTER PP RECALL. 01967 M00S01954.1ma +++|* 01968 M00S01955.1ma +++|* USES T3 - T5, T7, CM - CM+4, FS - FS+4, SP - SP+4. 01969 M00S01956.1ma +++|* 01970 M00S01957.1ma +++|* CALLS CLM, REI, RSI. 01971 M00S01958.1ma +++|* 01972 M00S01959.1ma +++|* MACROS MONITOR. 01973 M00S01960.1ma +++| 01974 M00S01961.1ma +++| 01975 M00S01962.1ma +++| RFE SUBR ENTRY/EXIT 01976 M00S01963.1ma +++| LDK MEFL GET USER EM SHIFT COUNT (UESC) 01977 M00S01964.1ma +++| CRD CM 01978 M00S01965.1ma +++| LDD CM+2 01979 M00S01966.1ma +++| SHN -11 01980 M00S01967.1ma +++| STD CM+2 01981 M00S01968.1ma +++| SBN 4 01982 M00S01969.1ma +++| LPN 77 01983 M00S01970.1ma +++| ADD TH 01984 M00S01971.1ma +++| ERRNZ SHNI-1000 01985 M00S01972.1ma +++| STM RFEA 01986 M00S01973.1ma +++| LDC SHNI+77 01987 M00S01974.1ma +++| SBD CM+2 01988 M00S01975.1ma +++| STM RFEB 01989 M00S01976.1ma +++| LDC SHNI+3 01990 M00S01977.1ma +++| ADD CM+2 01991 M00S01978.1ma +++| STM RFEC 01992 M00S01979.1ma +++| STM RFEE 01993 M00S01980.1ma +++| LDD IR+3 RESTORE DIRECT CELL HIT DURING LOADING 01994 M00S01981.1ma +++| SHN -6 01995 M00S01982.1ma +++| ADN 1 01996 M00S01983.1ma +++| STD T5 01997 M00S01984.1ma +++| LDD FN+2 FETCH REQUEST 01998 M00S01985.1ma +++| ADC 7700 ROUND UP 01999 M00S01986.1ma +++| SHN -14 02000 M00S01987.1ma +++| ADD FN+1 02001 M00S01988.1ma +++| ADN 7 02002 M00S01989.1ma +++| SCN 7 02003 M00S01990.1ma +++| SHN 6 02004 M00S01991.1ma +++| ADD FN 02005 M00S01992.1ma +++| SHN 11 02006 M00S01993.1ma +++| STD T3 SET NEW FLE 02007 M00S01994.1ma +++| SHN -14 02008 M00S01995.1ma +++| STD T0 02009 M00S01996.1ma +++| LDN 17 ROUND VALUE TO BLOCKING SIZE 02010 M00S01997.1ma +++| RFEA SHN -4 02011 M00S01998.1ma +++|* SHN UESC-4 02012 M00S01999.1ma +++| RAD T3 02013 M00S02000.1ma +++| SHN -14 02014 M00S02001.1ma +++| ADD T0 02015 M00S02002.1ma +++| SHN 14 02016 M00S02003.1ma +++| LMD T3 02017 M00S02004.1ma +++| RFEB SHN 0 02018 M00S02005.1ma +++|* SHN -UESC 02019 M00S02006.1ma +++| STD T3 02020 M00S02007.1ma +++| SHN -14 02021 M00S02008.1ma +++| ZJN RFE1 IF REQUEST .LE. 7777B *UEBS* BLOCKS 02022 M00S02009.1ma +++| LDN PSNI 02023 M00S02010.1ma +++| STM RFED 02024 M00S02011.1ma +++| 02025 M00S02012.1ma +++|* RE-ENTER AT *RFE1* FOLLOWING CLEAR OF CM WHEN 02026 M00S02013.1ma +++|* CM INCREASE REQUIRED PRIOR TO EXTENDED MEMORY REQUEST. 02027 M00S02014.1ma +++| 02028 M00S02015.1ma +++| RFE1 LDD CP FETCH STATUS AND CONTROL WORDS 02029 M00S02016.1ma +++| ADN ECSW 02030 M00S02017.1ma +++| CRD FS 02031 M00S02018.1ma +++| ADN ELCW-ECSW 02032 M00S02019.1ma +++| CRD T7 02033 M00S02020.1ma +++| LDN ZERL 02034 M00S02021.1ma +++| CRD CM 02035 M00S02022.1ma +++| LDD FS+4 02036 M00S02023.1ma +++| RFEC SHN 3 02037 M00S02024.1ma +++|* SHN 3+UESC 02038 M00S02025.1ma +++| STD CM+1 02039 M00S02026.1ma +++| SHN -14 02040 M00S02027.1ma +++| STD CM 02041 M00S02028.1ma +++| LDD T7 02042 M00S02029.1ma +++| SBD T3 02043 M00S02030.1ma +++| RFED PJN RFE3 IF FLE .LE. MFL (EXTENDED MEMORY) 02044 M00S02031.1ma +++|* PSN (IF FLE .GT. 12 BITS) 02045 M00S02032.1ma +++| LDD IR+3 02046 M00S02033.1ma +++| SHN 21-7 02047 M00S02034.1ma +++| PJN RFE2 IF NOT *NO ABORT* 02048 M00S02035.1ma +++| LJM RFEX COMPLETE PROCESSING 02049 M00S02036.1ma +++| 02050 M00S02037.1ma +++| RFE2 LDC =C* FL REQUEST BEYOND MFL (EXTENDED MEMORY).* 02051 M00S02038.1ma +++| LJM ERR PROCESS ERROR ABORT 02052 M00S02039.1ma +++| 02053 M00S02040.1ma +++|* CHECK FOR AT LEAST MINIMUM CM FL AVAILABLE. 02054 M00S02041.1ma +++| 02055 M00S02042.1ma +++| RFE3 LDD FL CHECK CM FL 02056 M00S02043.1ma +++| ADC -MCMX/100 02057 M00S02044.1ma +++| PJN RFE4 IF FL .GE. MINIMUM FL WITH EXTENDED MEMORY 02058 M00S02045.1ma +++| LJM RFE12 GET ENOUGH CM BEFORE REQUESTING ECS 02059 M00S02046.1ma +++| 02060 M00S02047.1ma +++|* REQUEST EXTENDED MEMORY. 02061 M00S02048.1ma +++| 02062 M00S02049.1ma +++| RFE4 LDD CP CHECK IF JOB ROLLABLE 02063 M00S02050.1ma +++| ADN JCIW 02064 M00S02051.1ma +++| CRD CM 02065 M00S02052.1ma +++| LDD CM+3 CHECK FOR *DIS* JOB 02066 M00S02053.1ma +++| LPC 1000 02067 M00S02054.1ma +++| ADD CM+2 CHECK FOR NON-ROLLABLE JOB 02068 M00S02055.1ma +++| NJN RFE5 IF JOB NOT ROLLABLE 02069 M00S02056.1ma +++| LDN SSTL CHECK EXTENDED MEMORY CONTROL 02070 M00S02057.1ma +++| CRD CM 02071 M00S02058.1ma +++| LDD CM 02072 M00S02059.1ma +++| SHN 21-5 02073 M00S02060.1ma +++| MJN RFE6 IF USER EXTENDED MEMORY DISABLED 02074 M00S02061.1ma +++| RFE5 LDD FS+4 SAVE CURRENT FLE 02075 M00S02062.1ma +++| STD T4 02076 M00S02063.1ma +++| LDD T3 02077 M00S02064.1ma +++| RJM REI REQUEST EXTENDED MEMORY INCREASE 02078 M00S02065.1ma +++| ZJN RFE7 IF ASSIGNED 02079 M00S02066.1ma +++| RFE6 LJM RFE9 IF REQUEST PENDING 02080 M00S02067.1ma +++| 02081 M00S02068.1ma +++|* EXTENDED MEMORY ASSIGNED. 02082 M00S02069.1ma +++| 02083 M00S02070.1ma +++| RFE7 LDD CP READ ECSW AND SEPW WORDS 02084 M00S02071.1ma +++| ADN ECSW 02085 M00S02072.1ma +++| CRD FS 02086 M00S02073.1ma +++| ADN SEPW-ECSW 02087 M00S02074.1ma +++| CRD CM 02088 M00S02075.1ma +++| LDD CM CHECK ENTRY POINTS 02089 M00S02076.1ma +++| LPN 1 02090 M00S02077.1ma +++| NJN RFE8 IF SSM= ENTRY POINT PRESENT 02091 M00S02078.1ma +++| STD CM+1 02092 M00S02079.1ma +++| STD CM+3 02093 M00S02080.1ma +++| LDD FS+4 02094 M00S02081.1ma +++| SBD T4 02095 M00S02082.1ma +++| MJN RFE8 IF DECREASE 02096 M00S02083.1ma +++| ZJN RFE8 IF NO CHANGE 02097 M00S02084.1ma +++| STD CM+2 02098 M00S02085.1ma +++| LDC 300 SET ECS RELATIVE ADDRESS OPTION 02099 M00S02086.1ma +++| RAD CM+1 02100 M00S02087.1ma +++| LDD T4 SET ADDRESS FOR CLEAR 02101 M00S02088.1ma +++| STD CM+4 02102 M00S02089.1ma +++| MONITOR CSTM CLEAR ADDED STORAGE 02103 M00S02090.1ma +++| RFE8 LDN 0 02104 M00S02091.1ma +++| STD CM 02105 M00S02092.1ma +++| LDD CP 02106 M00S02093.1ma +++| ADN MS2W 02107 M00S02094.1ma +++| CWD CM CLEAR CONSOLE MESSAGE 02108 M00S02095.1ma +++| LDN ZERL RETURN STATUS
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ma.txt · Last modified: by 127.0.0.1