cdc:nos2.source:opl.opl871:deck:1ma
Deck 1MA
17 Modifications
Listing Sections
- Deck 1MA Start
- Deck 1MA Part 1 (Line 2131)
- Deck 1MA Part 2 (Line 3871)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.1ma +++| IDENT 1MA,MTA 00002 M01S00002.1ma +++| PERIPH 00003 M01S00003.1ma +++| BASE MIXED 00004 M01S00004.1ma +++| SST 00005 M01S00005.1ma +++|*COMMENT 1MA - MONITOR AUXILIARY PROCESSOR.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982. 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.1ma +++| TITLE 1MA - MONITOR AUXILIARY PROCESSOR. 00009 M01S00008.1ma +++| SPACE 4,10 00010 M01S00009.1ma +++|***** 1MA - MONITOR AUXILIARY PROCESSOR. 00011 M01S00010.1ma +++|* G. R. MANSFIELD. 70/08/04. 00012 M01S00011.1ma +++|* A. J. KOMOR. 76/03/15. 00013 M01S00012.1ma +++| SPACE 4,10 00014 M01S00013.1ma +++|*** *1MA* IS CALLED BY THE SYSTEM MONITOR TO PERFORM 00015 M01S00014.1ma +++|* FUNCTIONS WHICH CAN NOT BE PROCESSED IMMEDIATELY BY THE 00016 M01S00015.1ma +++|* MONITOR. 00017 M01S00016.1ma +++| SPACE 4,10 00018 M01S00017.1ma +++|*** CALL. 00019 M01S00018.1ma +++|* 00020 M01S00019.1ma +++|* 00021 M01S00020.1ma +++|*T IR 18/ *1MA*,1/,5/ CP,12/ CODE,24/ ARG
Figure IR
00022 M01S00021.1ma +++|* CP CONTROL POINT NUMBER 00023 M01S00022.1ma +++|* CODE FUNCTION CODE 00024 M01S00023.1ma +++|* 0 = REQUEST STORAGE 00025 M01S00024.1ma +++|* 1 = DAYFILE MESSAGE 00026 M01S00025.1ma +++|* 2 = SCP FUNCTION ON UCP 00027 M01S00026.1ma +++|* 3 = FILE SWITCHING FUNCTION. 00028 M01S00027.1ma +++|* 4 = EXIT FROM SCP STATUS 00029 M01S00028.1ma +++|* 5 = EJT SYSTEM REQUEST 00030 M01S00029.1ma +++|* 6 = PROCESS CLOCK UPDATE. 00031 M01S00030.1ma +++|* 7 = LOG SOFTWARE ERROR. 00032 M01S00031.1ma +++|* 10 = LOAD CPP RESIDENT 00033 M01S00032.1ma +++|* 11 = LOAD OVERLAY FOR CPP. 00034 M01S00033.1ma +++|* 12 = IDLE CPP 00035 M01S00034.1ma +++|* ARG ARGUMENT(S) 00036 M01S00035.1ma +++| SPACE 4,10 00037 M01S00036.1ma +++|*** DAYFILE MESSAGES. 00038 M01S00037.1ma +++|* 00039 M01S00038.1ma +++|* 00040 M01S00039.1ma +++|* * FL REQUEST BEYOND MFL (CM).* = CM FL REQUEST EXCEEDS MFL. 00041 M01S00040.1ma +++|* 00042 M01S00041.1ma +++|* * FL REQUEST BEYOND MFL (EXTENDED MEMORY).* = EXTENDED MEMORY 00043 M01S00042.1ma +++|* FL REQUEST EXCEEDS MFL. 00044 M01S00043.1ma +++|* 00045 M01S00044.1ma +++|* * MFL LESS THAN EXTENDED MEMORY MINIMUM CM FL.* = A REQUEST 00046 M01S00045.1ma +++|* FOR EXTENDED MEMORY HAS BEEN MADE WHILE AN MFL OF LESS THAN 00047 M01S00046.1ma +++|* *MCMX* IS IN EFFECT. 00048 M01S00047.1ma +++|* 00049 M01S00048.1ma +++|* * INCORRECT COMMON MEMORY MANAGER REQUEST.* = A NON CMM TYPE 00050 M01S00049.1ma +++|* MEMORY REQUEST WAS MADE WHILE THE JOB STEP WAS IN CMM MODE. 00051 M01S00050.1ma +++|* 00052 M01S00051.1ma +++|* * INCORRECT REQUEST.* = PARAMETER ADDRESS OUTSIDE JOB FL. 00053 M01S00052.1ma +++|* 00054 M01S00053.1ma +++|* * USER ACCESS NOT VALID.* = UCP NOT QUALIFIED TO ACCESS SCP. 00055 M01S00054.1ma +++| SPACE 4,10 00056 M01S00055.1ma +++|*** ACCOUNT DAYFILE MESSAGES. 00057 M01S00056.1ma +++|* 00058 M01S00057.1ma +++|* 00059 M01S00058.1ma +++|* *ARUN, USERNAME, FAMILYNAME, TERMINALNAME.* = RECOVERY OF 00060 M01S00059.1ma +++|* AN INTERACTIVE JOB WITH A USER NAME OF USERNAME, A FAMILY 00061 M01S00060.1ma +++|* OF FAMILYNAME, AND A TERMINAL NAME OF TERMINALNAME. 00062 M01S00061.1ma +++|* 00063 M01S00062.1ma +++|* *ASTD, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER 00064 M01S00063.1ma +++|* NAME USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO A 00065 M01S00064.1ma +++|* USER DETACH. 00066 M01S00065.1ma +++|* 00067 M01S00066.1ma +++|* *ASTH, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER 00068 M01S00067.1ma +++|* NAME USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO A 00069 M01S00068.1ma +++|* LINE DISCONNECT. 00070 M01S00069.1ma +++|* 00071 M01S00070.1ma +++|* *ASTP, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER 00072 M01S00071.1ma +++|* NAME USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO A 00073 M01S00072.1ma +++|* PROGRAM REQUEST. 00074 M01S00073.1ma +++|* 00075 M01S00074.1ma +++|* *ASTR, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER 00076 M01S00075.1ma +++|* NAME USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO THE 00077 M01S00076.1ma +++|* RECOVERY OF THE INTERACTIVE SUBSYSTEM. 00078 M01S00077.1ma +++|* 00079 M01S00078.1ma +++|* *ASTT, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER 00080 M01S00079.1ma +++|* USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO A 00081 M01S00080.1ma +++|* SESSION TIMEOUT. 00082 M01S00081.1ma +++| SPACE 4,10 00083 M01S00082.1ma +++|*** OPERATOR MESSAGES. 00084 M01S00083.1ma +++|* 00085 M01S00084.1ma +++|* 00086 M01S00085.1ma +++|* *WAITING FOR STORAGE (CM).* = JOB IS WAITING FOR ADDITIONAL 00087 M01S00086.1ma +++|* CENTRAL MEMORY TO BE MADE AVAILABLE. 00088 M01S00087.1ma +++|* 00089 M01S00088.1ma +++|* *WAITING FOR STORAGE (EM).* = JOB IS WAITING FOR 00090 M01S00089.1ma +++|* ADDITIONAL EXTENDED CORE STORAGE TO BE MADE AVAILABLE. 00091 M01S00090.1ma +++|* 00092 M01S00091.1ma +++|* * CPP NOT RESPONDING* = A CPP HAS NOT BEGUN TO INPUT *PPR* 00093 M01S00092.1ma +++|* FROM CHANNEL 15 DURING A DEADSTART OPERATION. 00094 M01S00093.1ma +++|* 00095 M01S00094.1ma +++|* * LAST BYTE NOT TAKEN BY CPP* = THE LAST BYTE OF *PPR* HAS 00096 M01S00095.1ma +++|* BEEN INPUTTED BY THE CPP BEING DEADSTARTED. 00097 M01S00096.1ma +++|* 00098 M01S00097.1ma +++|* * CHANNEL 15 PARITY ERROR* = DURING CPP DEADSTART, A PARITY 00099 M01S00098.1ma +++|* ERROR WAS ENCOUNTERED ON CHANNEL 15. 00100 M01S00099.1ma +++|* 00101 M01S00100.1ma +++|* * PPR PRESET TIMEOUT* = AFTER BEING LOADED INTO A DEADSTARTED 00102 M01S00101.1ma +++|* CPP, *PPR* HUNG IN ITS PRESET CODE. 00103 M01S00102.1ma +++| SPACE 4,10 00104 M01S00103.1ma +++|*** ERROR LOG MESSAGE. 00105 M01S00104.1ma +++|* 00106 M01S00105.1ma +++|* * PPN P1234 SYSTEM ERROR.* = A PP WITH THE NAME OF PPN 00107 M01S00106.1ma +++|* DETECTED A SYSTEM ERROR AT ADDRESS 1234 WITHIN THE PP. 00108 M01S00107.1ma +++|* THE ADDRESS IS NOT VALID IF IT IS ZERO. 00109 M01S00108.1ma +++| SPACE 4,10 00110 M01S00109.1ma +++|*** HANG CONDITIONS. 00111 M01S00110.1ma +++|* 00112 M01S00111.1ma +++|* 00113 M01S00112.1ma +++|* 1. *1MA* IS CALLED WITH AN INCORRECT FUNCTION CODE. 00114 M01S00113.1ma +++|* 2. EJT REQUEST MADE WITH INCORRECT FUNCTION CODE. 00115 M01S00114.1ma +++| SPACE 4,10 00116 M01S00115.1ma +++|** DIRECT LOCATION ASSIGNMENTS. 00117 M01S00116.1ma +++| 00118 M01S00117.1ma +++| 00119 M01S00118.1ma +++| FN EQU 20 - 24 FNT ENTRY 00120 M01S00119.1ma +++| FS EQU 25 - 31 FST ENTRY 00121 M01S00120.1ma +++| SP EQU 32 - 36 SUBSYSTEM PARAMETER WORD 1 00122 M01S00121.1ma +++| SQ EQU 37 - 43 JOB IDENTIFIER 00123 M01S00122.1ma +++| SF EQU 44 SUBFUNCTION CODE FOR FUNCTION 0 00124 M01S00123.1ma +++| RC EQU 44 REPLY CODE FOR FUNCTION 3 00125 M01S00124.1ma +++| OT EQU 44 ORIGIN TYPE 00126 M01S00125.1ma +++| EF EQU 46 ERROR FLAG 00127 M01S00126.1ma +++| FA EQU 57 FNT ORDINAL 00128 M01S00127.1ma +++| CN EQU 60 - 64 SCRATCH 00129 M01S00128.1ma +++| SC EQU 67 SCP CONNECTION ACTIVITY, SERVICE CLASS 00130 M01S00129.1ma +++| W3 EQU 15 - 21 PARAMETER BLOCK 00131 M01S00130.1ma +++| W4 EQU 22 - 26 00132 M01S00131.1ma +++| W5 EQU W4 00133 M01S00132.1ma +++| TN EQU W5+1 TERMINAL NUMBER 00134 M01S00133.1ma +++| W0 EQU 27 - 33 00135 M01S00134.1ma +++| W1 EQU 34 - 40 00136 M01S00135.1ma +++| W2 EQU 41 - 45 00137 M01S00136.1ma +++| EJ EQU 46 - 47 EJT ENTRY ADDRESS 00138 M01S00137.1ma +++| TT EQU EJ TERMINAL TABLE ADDRESS 00139 M01S00138.1ma +++| TA EQU 57 INTERACTIVE SUBSYSTEM *RA* 00140 M01S00139.1ma +++| JS EQU 57 JOB STATUS 00141 M01S00140.1ma +++| EL EQU 57 ENTRY LENGTH 00142 M01S00141.1ma +++| SPACE 4,10 00143 M01S00142.1ma +++|** CONSTANTS. 00144 M01S00143.1ma +++| 00145 M01S00144.1ma +++| 00146 M01S00145.1ma +++| DETI EQU 1 DETACH ALLOWED IF INVOLUNTARY 00147 M01S00146.1ma +++| EJWD MAX JSNE,SCHE,SCLE HIGHEST WORD NEEDED FROM EJT 00148 M01S00147.1ma +++| SPACE 4,10 00149 M01S00148.1ma +++|** COMMON DECKS. 00150 M01S00149.1ma +++| 00151 M01S00150.1ma +++| 00152 M01S00151.1ma +++|*CALL COMPMAC 00153 M01S00152.1ma +++|*CALL COMSACC 00154 M01S00153.1ma +++|*CALL COMSDFS 00155 M01S00154.1ma +++|*CALL COMSEVT 00156 M01S00001.ns2738 +++| QUAL DFT 00157 M01S00155.1ma +++|*CALL COMSDFT 00158 M01S00002.ns2738 +++| QUAL * 00159 M01S00156.1ma +++|*CALL COMSDST 00160 M01S00157.1ma +++| 00161 M01S00158.1ma +++| QUAL IOU 00162 M01S00159.1ma +++|*CALL COMSIOU 00163 M01S00160.1ma +++| QUAL * 00164 M01S00161.1ma +++| 00165 M01S00162.1ma +++|* UNQUALIFIED *COMSIOU* SYMBOLS. 00166 M01S00163.1ma +++| 00167 M01S00164.1ma +++| MR EQU /IOU/MR 00168 M01S00165.1ma +++| MX EQU /IOU/MX 00169 M01S00166.1ma +++| MXDM EQU /IOU/MXDM 00170 M01S00167.1ma +++| MXPT EQU /IOU/MXPT 00171 M01S00168.1ma +++| 00172 M01S00169.1ma +++|*CALL COMSEJT 00173 M01S00170.1ma +++|*CALL COMSJCE 00174 M01S00001.273l780 +++|*CALL COMSMSC 00175 M01S00001.271l750 +++|*CALL COMSMTR 00176 M01S00171.1ma +++|*CALL COMSREM 00177 M01S00172.1ma +++|*CALL COMSSSJ 00178 M01S00173.1ma +++|*CALL COMSMSP 00179 M01S00174.1ma +++|*CALL COMSJRO 00180 M01S00175.1ma +++|*CALL COMSPIM 00181 M01S00176.1ma +++|*CALL COMSSSE 00182 M01S00177.1ma +++|*CALL COMSCPS 00183 M01S00178.1ma +++|*CALL COMSSCP 00184 M01S00179.1ma +++|*CALL COMSSRU 00185 M01S00180.1ma +++|*CALL COMSSSD 00186 M01S00181.1ma +++|*CALL COMSZOL 00187 M01S00182.1ma +++| SPACE 4,10 00188 M01S00183.1ma +++| TITLE MACRO DEFINITIONS. 00189 M01S00184.1ma +++| ABORT SPACE 4,10 00190 M01S00185.1ma +++|** ABORT - ERROR PROCESSING MACRO. 00191 M01S00186.1ma +++|* 00192 M01S00187.1ma +++|* ABORT ADDR 00193 M01S00188.1ma +++|* 00194 M01S00189.1ma +++|* ADDR = FWA OF ERROR MESSAGE FOR DAYFILE. 00195 M01S00190.1ma +++|* 00196 M01S00191.1ma +++|* CALLS ERR. 00197 M01S00192.1ma +++| 00198 M01S00193.1ma +++| 00199 M01S00194.1ma +++| PURGMAC ABORT 00200 M01S00195.1ma +++| 00201 M01S00196.1ma +++| ABORT MACRO A 00202 M01S00197.1ma +++| MACREF ABORT 00203 M01S00198.1ma +++| LDC A 00204 M01S00199.1ma +++| LJM ERR PROCESS ERROR 00205 M01S00200.1ma +++| ABORT ENDM 00206 M01S00201.1ma +++| SPACE 4,10 00207 M01S00202.1ma +++|** OVERLAY CONTROL. 00208 M01S00203.1ma +++|* 00209 M01S00204.1ma +++|* THIS FEATURE IS INCLUDED FOR FUTURE MODULARITY. 00210 M01S00205.1ma +++| 00211 M01S00206.1ma +++| .N SET 0 00212 M01S00207.1ma +++| OVLB MICRO 1,, 2M BASE OVERLAY NAME 00213 M01S00208.1ma +++| OVERLAY SPACE 4,10 00214 M01S00209.1ma +++|** OVERLAY - GENERATE OVERLAY CONSTANTS. 00215 M01S00210.1ma +++|* 00216 M01S00211.1ma +++|* OVERLAY (TEXT),LADDR. 00217 M01S00212.1ma +++|* 00218 M01S00213.1ma +++|* ENTRY *TEXT* = TEXT OF SUBTITLES. 00219 M01S00214.1ma +++|* *LADDR* = LOAD ADDRESS FOR OVERLAY, DEFAULT E1MA. 00220 M01S00215.1ma +++| 00221 M01S00216.1ma +++| 00222 M01S00217.1ma +++| PURGMAC OVERLAY 00223 M01S00218.1ma +++| 00224 M01S00219.1ma +++| OVERLAY MACRO TEXT,E1MA 00225 M01S00220.1ma +++| MACREF OVERLAY 00226 M01S00221.1ma +++| QUAL 00227 M01S00222.1ma +++| .N SET .N+1 00228 M01S00223.1ma +++| .M MICRO .N,1, ABCDFGHIJKLM 00229 M01S00224.1ma +++| .O MICRO 1,3, "OVLB"".M" 00230 M01S00225.1ma +++| QUAL ".O" 00231 M01S00226.1ma +++| TTL 1MA/".O" - TEXT 00232 M01S00227.1ma +++| TITLE 00233 M01S00228.1ma +++| IDENT ".O",E1MA TEXT 00234 M01S00229.1ma +++|*COMMENT 1MA - TEXT
| Line S00230 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00235 M02S00230.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982. 00236 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00237 M01S00231.1ma +++| ORG E1MA 00238 M01S00232.1ma +++| ENDM 00239 M01S00233.1ma +++| SCLASS SPACE 4,15 00240 M01S00234.1ma +++|** SCLASS - DEFINE SERVICE CLASS TABLE. 00241 M01S00235.1ma +++|* 00242 M01S00236.1ma +++|* SCLASS NM,MN,DF,ST,TX 00243 M01S00237.1ma +++|* 00244 M01S00238.1ma +++|* ENTRY *NM* = SERVICE CLASS NAME. 00245 M01S00239.1ma +++|* *MN* = TWO CHARACTER MNEMONIC. 00246 M01S00240.1ma +++|* *DF* = DAYFILE MESSAGE CHARACTER. 00247 M01S00241.1ma +++|* *ST* = SHORT TEXT FOR *QFTLIST*. 00248 M01S00242.1ma +++|* *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE. 00249 M01S00243.1ma +++|* 00250 M01S00244.1ma +++|* NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF 00251 M01S00245.1ma +++|* THIS MACRO. 00252 M01S00246.1ma +++| 00253 M01S00247.1ma +++| 00254 M01S00248.1ma +++| PURGMAC SCLASS 00255 M01S00249.1ma +++| 00256 M01S00250.1ma +++| SCLASS MACRO NM,MN,DF,ST,TX 00257 M01S00251.1ma +++| .A IFC NE,$NM$SSSC$ 00258 M01S00252.1ma +++| .SCLVSP RMT 00259 M01S00253.1ma +++| INDEX NM,MN_MK TX 00260 M01S00254.1ma +++| .SCLVSP RMT 00261 M01S00255.1ma +++| .A ENDIF 00262 M01S00256.1ma +++| SCLASS ENDM 00263 M01S00257.1ma +++| 00264 M01S00258.1ma +++| 00265 M01S00259.1ma +++| SCL$ EQU 0 ONLY PROCESS CLASSES WITH JCB-S 00266 M01S00260.1ma +++|*CALL COMSSCD 00267 M01S00261.1ma +++| TABLE SPACE 4,10 00268 M01S00262.1ma +++|** TABLE - GENERATE OVERLAY TABLE. 00269 M01S00263.1ma +++|* 00270 M01S00264.1ma +++|* GENERATES 2-BYTE TABLE ENTRIES IN THE FORMAT 00271 M01S00265.1ma +++|* 00272 M01S00266.1ma +++|*T 12/ OVL,12/ ADDR
Figure
00273 M01S00267.1ma +++|* 00274 M01S00268.1ma +++|* OVL = LAST CHARACTER OF OVERLAY TO BE LOADED. 00275 M01S00269.1ma +++|* ADDR = ADDRESS OF FUNCTION PROCESSOR IN THE OVERLAY. 00276 M01S00270.1ma +++| 00277 M01S00271.1ma +++| 00278 M01S00272.1ma +++| PURGMAC TABLE 00279 M01S00273.1ma +++| 00280 M01S00274.1ma +++| MACRO TABLE,NAME,OFFSET,ADDR 00281 M01S00275.1ma +++| LOCAL MC,TAG1,TAG2,TAG3 00282 M01S00276.1ma +++| TAG1 IFC NE,$NAME$$ SET *NAME* TO BEGINNING OF TABLE 00283 M01S00277.1ma +++| NAME BSS 0 00284 M01S00278.1ma +++| .2 SET NAME 00285 M01S00279.1ma +++| TAG1 ELSE 00286 M01S00280.1ma +++| ORG .2+OFFSET*2-2 00287 M01S00281.1ma +++| TAG2 IFC NE,$ADDR$$ IF ACTUAL TABLE ENTRY 00288 M01S00282.1ma +++| MC MICRO 1,1, ADDR 00289 M01S00283.1ma +++| IFC NE,$"MC"$/$,1 00290 M01S00284.1ma +++| ERR TABLE ADDRESSES MUST BE QUALIFIED. 00291 M01S00285.1ma +++| MC MICRO 1,2, ADDR 00292 M01S00286.1ma +++| TAG3 IFC EQ,$"MC"$//$ IF NO OVERLAY TO LOAD 00293 M01S00287.1ma +++| CON 0,ADDR 00294 M01S00288.1ma +++| TAG3 ELSE STORE LAST CHARACTER OF OVERLAY NAME 00295 M01S00289.1ma +++| MC MICRO 4,1, ADDR 00296 M01S00290.1ma +++| CON 1R_"MC",ADDR 00297 M01S00291.1ma +++| TAG3 ENDIF 00298 M01S00292.1ma +++| TAG2 ENDIF 00299 M01S00293.1ma +++| TAG1 ENDIF 00300 M01S00294.1ma +++| ENDM 00301 M01S00295.1ma +++| TITLE MTA - MAIN PROGRAM. 00302 M01S00296.1ma +++| MTA SPACE 4,10 00303 M01S00297.1ma +++|** MTA - MAIN PROGRAM. 00304 M01S00298.1ma +++| 00305 M01S00299.1ma +++| 00306 M01S00300.1ma +++| ORG PPFW 00307 M01S00301.1ma +++| MTA LDD IR+2 CHECK FUNCTION 00308 M01S00302.1ma +++| SBN TFCNL 00309 M01S00303.1ma +++| MJN MTA1 IF LEGAL REQUEST 00310 M01S00304.1ma +++| LDN 0 00311 M01S00305.1ma +++| RJM CHG CONDITIONALLY HANG PP 00312 M01S00306.1ma +++| LJM DPP DROP PP 00313 M01S00307.1ma +++| 00314 M01S00308.1ma +++| MTA1 RJM IFP 00315 M01S00309.1ma +++| LDD IR+3 00316 M01S00310.1ma +++| LPN 37 00317 M01S00311.1ma +++| SHN 14 00318 M01S00312.1ma +++| LMD IR+4 00319 M01S00313.1ma +++| STM SRAB+1 00320 M01S00314.1ma +++| SHN -6 00321 M01S00315.1ma +++| STM SRAA+1 00322 M01S00316.1ma +++| SHN -6 00323 M01S00317.1ma +++| RAM SRAB 00324 M01S00318.1ma +++| LDM TFCN,IR+2 SET PROCESSOR 00325 M01S00319.1ma +++| STD T1 00326 M01S00320.1ma +++| LMC 4000 00327 M01S00321.1ma +++| ZJN MTA2 IF OVERLAY LOAD REQUIRED 00328 M01S00322.1ma +++| LJM 0,T1 ENTER PROCESSOR 00329 M01S00323.1ma +++| 00330 M01S00324.1ma +++| MTA2 LDN MESL READ MESSAGE DATA FROM MESSAGE BUFFER 00331 M01S00325.1ma +++| STD T1 00332 M01S00326.1ma +++| LDD MP+3 ASSEMBLE BUFFER ADDRESS 00333 M01S00327.1ma +++| SHN 14 00334 M01S00328.1ma +++| LMD MP+4 00335 M01S00329.1ma +++| ADN 1 00336 M01S00330.1ma +++| CRD SP 00337 M01S00331.1ma +++| ADN 1 READ JOB IDENTIFIER 00338 M01S00332.1ma +++| CRD SQ 00339 M01S00333.1ma +++| CRM BUF,T1 READ REST OF MESSAGE BUFFER 00340 M01S00334.1ma +++| LDN ZERL CLEAR BUFFER INTERLOCK 00341 M01S00335.1ma +++| CRD CN 00342 M01S00336.1ma +++| LDD MP+3 ASSEMBLE BUFFER ADDRESS 00343 M01S00337.1ma +++| SHN 14 00344 M01S00338.1ma +++| LMD MP+4 00345 M01S00339.1ma +++| CWD CN 00346 M01S00340.1ma +++| EXECUTE 2MA 00347 M01S00341.1ma +++| LDN 0 00348 M01S00342.1ma +++| RJM CHG CONDITIONALLY HANG PP 00349 M01S00343.1ma +++| LJM DPP DROP PP 00350 M01S00344.1ma +++| CHG SPACE 4,10 00351 M01S00345.1ma +++|** CHG - CONDITIONALLY HANG PP. 00352 M01S00346.1ma +++|* 00353 M01S00347.1ma +++|* ENTRY (A) = ERROR FLAG TO SET. 00354 M01S00348.1ma +++|* 00355 M01S00349.1ma +++|* USES CM - CM+4. 00356 M01S00350.1ma +++|* 00357 M01S00351.1ma +++|* MACROS MONITOR. 00358 M01S00352.1ma +++| 00359 M01S00353.1ma +++| 00360 M01S00354.1ma +++| CHG SUBR ENTRY/EXIT 00361 M01S00355.1ma +++| STD CM+2 SET ERROR FLAG 00362 M01S00356.1ma +++| LDM CHG P-ADDRESS 00363 M01S00357.1ma +++| STD CM+1 00364 M01S00358.1ma +++| MONITOR CHGM CONDITIONALLY HANG PP 00365 M01S00359.1ma +++| UJN CHGX RETURN 00366 M01S00360.1ma +++| ERR SPACE 4,10 00367 M01S00361.1ma +++|** ERR - ERROR PROCESSOR. 00368 M01S00362.1ma +++|* 00369 M01S00363.1ma +++|* ENTRY (A) = FWA OF ERROR MESSAGE FOR DAYFILE. 00370 M01S00364.1ma +++|* 00371 M01S00365.1ma +++|* EXIT DAYFILE MESSAGE ISSUED. 00372 M01S00366.1ma +++|* CONTROL POINT ABORTED. 00373 M01S00367.1ma +++|* 00374 M01S00368.1ma +++|* CALLS DFM. 00375 M01S00369.1ma +++|* 00376 M01S00370.1ma +++|* MACROS MONITOR. 00377 M01S00371.1ma +++| 00378 M01S00372.1ma +++| 00379 M01S00373.1ma +++| ERR RJM DFM 00380 M01S00374.1ma +++| MONITOR ABTM ABORT JOB 00381 M01S00375.1ma +++| ERR1 LJM PPR EXIT TO PP RESIDENT 00382 M01S00376.1ma +++| TITLE SUBROUTINES. 00383 M01S00377.1ma +++| CAA SPACE 4,10 00384 M01S00378.1ma +++|** CAA - CALCULATE ABSOLUTE ADDRESS. 00385 M01S00379.1ma +++|* 00386 M01S00380.1ma +++|* ENTRY (IR+3 - IR+4) = RELATIVE ADDRESS. 00387 M01S00381.1ma +++|* 00388 M01S00382.1ma +++|* EXIT (A) = ABSOLUTE ADDRESS. 00389 M01S00383.1ma +++| 00390 M01S00384.1ma +++| 00391 M01S00385.1ma +++| CAA SUBR ENTRY/EXIT 00392 M01S00386.1ma +++| LDD IR+3 CALCULATE ABSOLUTE ADDRESS 00393 M01S00387.1ma +++| LPN 37 00394 M01S00388.1ma +++| SHN 6 00395 M01S00389.1ma +++| ADD RA 00396 M01S00390.1ma +++| SHN 6 00397 M01S00391.1ma +++| ADD IR+4 00398 M01S00392.1ma +++| UJN CAAX RETURN 00399 M01S00393.1ma +++| RCL SPACE 4,10 00400 M01S00394.1ma +++|** RCL - ENTER PP RECALL. 00401 M01S00395.1ma +++|* ENTRY SET TO RECALL FOR 250 MILLISECONDS. 00402 M01S00396.1ma +++|* 00403 M01S00397.1ma +++|* ENTRY (IR - IR+4) = RECALL PARAMETERS. 00404 M01S00398.1ma +++|* (SF) = SUBFUNCTION. 00405 M01S00399.1ma +++|* (A) = RECALL STACK REASON CODE. 00406 M01S00400.1ma +++|*
| Line S00401 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma27 |
Seq # *Modification Id* Act ----------------------------+ 00407 M02S00401.1ma27 ---|* USES CM - CM+4. 00408 M01S00001.1ma27 +++|* USES CM - CM+4, CN - CN+4. 00409 M01S00402.1ma +++|* 00410 M01S00403.1ma +++|* MACROS MONITOR. 00411 M01S00404.1ma +++| 00412 M01S00405.1ma +++| 00413 M01S00406.1ma +++| RCL SHN 6 SAVE RECALL STACK REASON CODE 00414 M01S00407.1ma +++| STD CM 00415 M01S00408.1ma +++| LDN ZERL 00416 M01S00409.1ma +++| CRD CM+1 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 M01S00410.1ma +++| LDD SF 00424 M01S00411.1ma +++| ZJN RCL1 IF RFL REQUEST 00425 M01S00412.1ma +++| LDD HN RESTORE SUBFUNCTION 00426 M01S00413.1ma +++| RAD IR+3 00427 M01S00414.1ma +++| RCL1 LDD MA STORE PP CALL IN MESSAGE BUFFER 00428 M01S00415.1ma +++| CWD IR 00429 M01S00416.1ma +++| ADN 1 WRITE RECALL STACK REASON CODE 00430 M01S00417.1ma +++| CWD CM 00431 M01S00418.1ma +++| LDN PTMF REQUEST TIMED RECALL 00432 M01S00419.1ma +++| STD CM+1 00433 M01S00420.1ma +++| LDC 250D SET RECALL TIME 00434 M01S00421.1ma +++| STD CM+4 00435 M01S00422.1ma +++| MONITOR RECM ENTER DEFAULT TIMED RECALL 00436 M01S00423.1ma +++| UJN DPP1 EXIT 00437 M01S00424.1ma +++| SRA SPACE 4,10 00438 M01S00425.1ma +++|** SRA - SET REQUEST ADDRESS. 00439 M01S00426.1ma +++|* 00440 M01S00427.1ma +++|* EXIT (A) = ABSOLUTE ADDRESS OF REQUEST WORD. 00441 M01S00428.1ma +++|* (A) = 0 IF ADDRESS OUTSIDE USER-S FL. 00442 M01S00429.1ma +++| 00443 M01S00430.1ma +++| 00444 M01S00431.1ma +++| SRA1 LDN 0 INDICATE INCORRECT ADDRESS 00445 M01S00432.1ma +++| 00446 M01S00433.1ma +++| SRA SUBR ENTRY/EXIT 00447 M01S00434.1ma +++| SRAA LDC * (REQUEST ADDRESS/100) 00448 M01S00435.1ma +++| SBD FL 00449 M01S00436.1ma +++| PJN SRA1 IF ADDRESS OUTSIDE FL 00450 M01S00437.1ma +++| LDD RA 00451 M01S00438.1ma +++| SHN 6 00452 M01S00439.1ma +++| SRAB ADC * (REQUEST ADDRESS) 00453 M01S00440.1ma +++| UJN SRAX RETURN 00454 M01S00441.1ma +++| DPP SPACE 4,10 00455 M01S00442.1ma +++|** DPP - DROP PP. 00456 M01S00443.1ma +++|* 00457 M01S00444.1ma +++|* USES CM+1 - CM+2. 00458 M01S00445.1ma +++|* 00459 M01S00446.1ma +++|* MACROS MONITOR. 00460 M01S00447.1ma +++| 00461 M01S00448.1ma +++| 00462 M01S00449.1ma +++| DPP MONITOR DPPM DROP PPU 00463 M01S00450.1ma +++| DPP1 LJM PPR ENTER PP RESIDENT 00464 M01S00451.1ma +++| 00465 M01S00452.1ma +++| DPP2 LDN 2 DECREMENT DAYFILE MESSAGE LIMIT 00466 M01S00453.1ma +++| STD CM+1 00467 M01S00454.1ma +++| LDN 0 00468 M01S00455.1ma +++| STD CM+2 00469 M01S00456.1ma +++| LDD MA 00470 M01S00457.1ma +++| CWM DPPA,CM+1 00471 M01S00458.1ma +++| MONITOR UADM UPDATE ACCOUNTING 00472 M01S00459.1ma +++| UJN DPP1 UPDATE ACCOUNTING AND DROP PPU 00473 M01S00460.1ma +++| 00474 M01S00461.1ma +++|* MESSAGE BUFFER STRUCTURE FOR UADM FORMAT. 00475 M01S00462.1ma +++| 00476 M01S00463.1ma +++| DPPA CON CDOS 00477 M01S00464.1ma +++| CON ACLW 00478 M01S00465.1ma +++| CON 36D*100+12D 00479 M01S00466.1ma +++| CON 0,0 00480 M01S00467.1ma +++| 00481 M01S00468.1ma +++| CON AISS SUBFUNCTION 00482 M01S00469.1ma +++| CON IOAW CP AREA WORD TO UPDATE 00483 M01S00470.1ma +++| CON 40D*100+20D MS ACCUMULATOR FIELD 00484 M01S00471.1ma +++| VFD 6/,18/IMMS INCREMENT VALUE 00485 M01S00472.1ma +++| TFCN SPACE 4,10 00486 M01S00473.1ma +++|** TFCN - FUNCTION CODE TABLE. 00487 M01S00474.1ma +++|* 00488 M01S00475.1ma +++|* ENTRY = 1 WORD. 00489 M01S00476.1ma +++|* INDEXED BY FUNCTION CODE. 00490 M01S00477.1ma +++|* 00491 M01S00478.1ma +++|*T, 12/ ADDR
Figure
00492 M01S00479.1ma +++|* ADDR ADDRESS OF FUNCTION PROCESSOR 00493 M01S00480.1ma +++| 00494 M01S00481.1ma +++| 00495 M01S00482.1ma +++| TFCN BSS 0 00496 M01S00483.1ma +++| LOC 0 00497 M01S00484.1ma +++| CON RFL 0 = REQUEST STORAGE 00498 M01S00485.1ma +++| CON DMS 1 = DAYFILE MESSAGE 00499 M01S00486.1ma +++| CON 4000 2 = SCP FUNCTION ON UCP 00500 M01S00487.1ma +++| CON 4000 3 = FILE SWITCHING FUNCTION 00501 M01S00488.1ma +++| CON 4000 4 = EXIT FROM SCP STATUS 00502 M01S00489.1ma +++| CON PER 5 = PROCESS EJT REQUEST 00503 M01S00490.1ma +++| CON PCU 6 = PROCESS CLOCK UPDATE 00504 M01S00491.1ma +++| CON LCE 7 = LOG SOFTWARE ERROR 00505 M01S00492.1ma +++| CON CPP 10 = LOAD CPP RESIDENT 00506 M01S00493.1ma +++| CON CPP 11 = LOAD OVERLAY FOR CPP 00507 M01S00494.1ma +++| CON CPP 12 = IDLE CPP 00508 M01S00495.1ma +++| TFCNL BSS 0 TABLE LENGTH 00509 M01S00496.1ma +++| LOC *O 00510 M01S00497.1ma +++| TITLE FUNCTION PROCESSORS. 00511 M01S00498.1ma +++| PER SPACE 4,50 00512 M01S00499.1ma +++|** FUNCTION 5. 00513 M01S00500.1ma +++|* PROCESS EJT REQUEST. 00514 M01S00501.1ma +++|* 00515 M01S00502.1ma +++|* ENTRY 00516 M01S00503.1ma +++|*T IR 18/ *1MA*,6/ AR,12/ CP,6/ 0,18/ ADDR
Figure IR
00517 M01S00504.1ma +++|* AR = AUTO RECALL FLAG. 00518 M01S00505.1ma +++|* CP = CONTROL POINT NUMBER. 00519 M01S00506.1ma +++|* ADDR ADDRESS OF PARAMETER BLOCK. 00520 M01S00507.1ma +++|* 00521 M01S00508.1ma +++|*ADDR 24/ JSN,12/ FLAGS,6/ PPI,8/ ERR,9/ FCN,1/C 00522 M01S00509.1ma +++|* 42/ NAME,6/ ERF,12/ EJTO 00523 M01S00510.1ma +++|* 3/RES,3/JAL,6/ OT,6/ RC,18/ MSG BUF,24/ RES 00524 M01S00511.1ma +++|* 60/ REC WD 1 00525 M01S00512.1ma +++|* 60/ REC WD 2 00526 M01S00513.1ma +++|* 12/ INST,12/ TN,36/ CDC RES 00527 M01S00514.1ma +++|* 42/ TNAME, 18/ RESERVED 00528 M01S00515.1ma +++|* 00529 M01S00516.1ma +++|* JSN = JOB SEQUENCE NUMBER. 00530 M01S00517.1ma +++|* FLAGS = ENEJ, BIT 0 = SELECT EJT ENTRIES BY ORIGIN TYPE. 00531 M01S00518.1ma +++|* RTEJ - BIT 0 = SELECT EJT ENTRIES BY ORIGIN TYPE. 00532 M01S00519.1ma +++|* BIT 1 = DEFAULT TIMEOUT (CLEAR = 0 TIMEOUT). 00533 M01S00520.1ma +++|* PPI = PREPROCESSOR INDEX. 00534 M01S00521.1ma +++|* ERR = ERROR RETURN (0 ON CALL). 00535 M01S00522.1ma +++|* FCN = FUNCTION CODE. 00536 M01S00523.1ma +++|* C = COMPLETE BIT (0 ON CALL). 00537 M01S00524.1ma +++|* NAME = ENEJ - ENTRY POINT NAME. 00538 M01S00525.1ma +++|* DTEJ, RCEJ, RSEJ - USER NAME. 00539 M01S00526.1ma +++|* ERF = ERROR FLAG TO SET. 00540 M01S00527.1ma +++|* EJTO = EXECUTING JOB TABLE ORDINAL. 00541 M01S00528.1ma +++|* RES = RESERVED FOR CDC. 00542 M01S00529.1ma +++|* JAL = JOB ACCESS LEVEL LIMIT (RETURNED ON *DTEJ*; 0 ON CALL). 00543 M01S00530.1ma +++|* OT = ORIGIN TYPE. 00544 M01S00531.1ma +++|* RC = REASON CODE. 00545 M01S00532.1ma +++|* MSG BUF = RELATIVE ADDRESS OF BUFFER TO RETURN *MS1W*. 00546 M01S00533.1ma +++|* REC WD 1 = RECOVERY WORD 1 (NFL WORD RC1N - SEE *PPCOM*). 00547 M01S00534.1ma +++|* REC WD 2 = RECOVERY WORD 2 (NFL WORD RC2N - SEE *PPCOM*). 00548 M01S00535.1ma +++|* INST = RESERVED FOR INSTALLATIONS. 00549 M01S00536.1ma +++|* TN = TERMINAL NUMBER. 00550 M01S00537.1ma +++|* CDC RES = RESERVED FOR CDC. 00551 M01S00538.1ma +++|* TNAME = TERMINAL NAME (RETURNED BY *DTEJ* AND *TJEJ*; 00552 M01S00539.1ma +++|* SPECIFIED ON CALL FOR *RCEJ*). 00553 M01S00540.1ma +++|* 00554 M01S00541.1ma +++|* NOTE - ANY CHANGES TO THIS PARAMETER BLOCK SHOULD ALSO 00555 M01S00542.1ma +++|* BE DOCUMENTED IN *CPUMTR* AND *IAFEX*. 00556 M01S00543.1ma +++|* 00557 M01S00544.1ma +++|* CALLS CHG, DPP, EXR, SFI, FUNCTION PROCESSORS. 00558 M01S00545.1ma +++|* 00559 M01S00546.1ma +++|* MACROS EXECUTE. 00560 M01S00547.1ma +++| 00561 M01S00548.1ma +++| 00562 M01S00549.1ma +++| PER BSS 0 ENTRY 00563 M01S00550.1ma +++| LDD MP+3 ASSEMBLE BUFFER ADDRESS 00564 M01S00551.1ma +++| SHN 14 00565 M01S00552.1ma +++| LMD MP+4 00566 M01S00553.1ma +++| ADN 1 00567 M01S00554.1ma +++| CRM W0,TR 00568 M01S00555.1ma +++| LDN ZERL CLEAR BUFFER INTERLOCK 00569 M01S00556.1ma +++| CRD CN 00570 M01S00557.1ma +++| LDD MP+3 ASSEMBLE BUFFER ADDRESS 00571 M01S00558.1ma +++| SHN 14 00572 M01S00559.1ma +++| LMD MP+4 00573 M01S00560.1ma +++| CWD CN 00574 M01S00561.1ma +++| LDK EJWD+1 00575 M01S00562.1ma +++| STD EL 00576 M01S00563.1ma +++| LDD W0+4 00577 M01S00564.1ma +++| LPN 76 00578 M01S00565.1ma +++| STD CN 00579 M01S00566.1ma +++| ZJN PER2 IF NO FUNCTION CODE 00580 M01S00567.1ma +++| SBN MXEJ*2 00581 M01S00568.1ma +++| PJN PER2 IF INCORRECT FUNCTION CODE 00582 M01S00569.1ma +++| LDM TEJT-1,CN SET LOAD ADDRESS 00583 M01S00570.1ma +++| STM PERA 00584 M01S00571.1ma +++| ZJN PER2 IF NO PROCESSOR ADDRESS 00585 M01S00572.1ma +++| LDM TEJT-2,CN SET OVERLAY TO LOAD 00586 M01S00573.1ma +++| ZJN PER1 IF NO OVERLAY TO LOAD 00587 M01S00574.1ma +++| LMC 2L2M 00588 M01S00575.1ma +++| RJM EXR LOAD OVERLAY 00589 M01S00576.1ma +++| PER1 LJM * PROCESS EJT SYSTEM REQUEST 00590 M01S00577.1ma +++| PERA EQU *-1 00591 M01S00578.1ma +++| 00592 M01S00579.1ma +++|* PROCESS INCORRECT FUNCTION CODE. 00593 M01S00580.1ma +++| 00594 M01S00581.1ma +++| PER2 LDN 0 00595 M01S00582.1ma +++| RJM CHG CONDITIONALLY HANG PP 00596 M01S00583.1ma +++| LDN SSER SYSTEM SOFTWARE ERROR 00597 M01S00584.1ma +++|* UJN PERX RETURN 00598 M01S00585.1ma +++| 00599 M01S00586.1ma +++|* EXIT FOR FUNCTION PROCESSORS. 00600 M01S00587.1ma +++|* (A) = ERROR CODE TO PUT INTO RETURN BLOCK. 00601 M01S00588.1ma +++| 00602 M01S00589.1ma +++| PERX BSS 0 ENTRY 00603 M01S00590.1ma +++| SHN 12 POSITION ERROR CODE 00604 M01S00591.1ma +++| RAD W0+4 00605 M01S00592.1ma +++| SHN -14 00606 M01S00593.1ma +++| RAD W0+3 00607 M01S00594.1ma +++| AOD W0+4 SET COMPLETE BIT 00608 M01S00595.1ma +++| RJM CAA CALCULATE ABSOLUTE ADDRESS 00609 M01S00596.1ma +++| CWM W0,TR WRITE PARAMETER BLOCK 00610 M01S00597.1ma +++| LDN CEIN 00611 M01S00598.1ma +++| STD T1 00612 M01S00599.1ma +++| LDC 0 CHECK EJTO 00613 M01S00600.1ma +++| PERB EQU *-1 EJT ORDINAL 00614 M01S00601.1ma +++| ZJN PER3 IF NO INTERLOCK TO CLEAR 00615 M01S00602.1ma +++| SFA EJT 00616 M01S00603.1ma +++| RJM SFI CLEAR INTERLOCK 00617 M01S00604.1ma +++| PER3 LJM DPP DROP PP 00618 M01S00605.1ma +++| TEJT SPACE 4,20 00619 M01S00606.1ma +++|** TEJT - TABLE OF EJT REQUEST PROCESSORS. 00620 M01S00607.1ma +++|* 00621 M01S00608.1ma +++|*T 12/ OVL,12/ ADDR
Figure
00622 M01S00609.1ma +++|* 00623 M01S00610.1ma +++|* OVL = LAST LETTER OF OVERLAY TO LOAD. 00624 M01S00611.1ma +++|* ADDR = ADDRESS OF FUNCTION PROCESSOR. 00625 M01S00612.1ma +++| 00626 M01S00613.1ma +++| 00627 M01S00614.1ma +++| TEJT TABLE 00628 M01S00615.1ma +++| TABLE DTEJ,/2MC/DTC DTEJ - DETACH JOB 00629 M01S00616.1ma +++| TABLE ENEJ,//PER2 ENEJ - (PROCESSED BY CPUMTR) 00630 M01S00617.1ma +++| TABLE FJEJ,/2MD/FTJ FJEJ - FREEZE JOB 00631 M01S00618.1ma +++| TABLE RCEJ,/2MC/REC RCEJ - RECOVER JOB 00632 M01S00619.1ma +++| TABLE RSEJ,/2MC/RRJ RSEJ - RESTART RECOVERED JOB 00633 M01S00620.1ma +++| TABLE RTEJ,/2MC/RST RTEJ - RESET TIMEOUT 00634 M01S00621.1ma +++| TABLE SAEJ,/2MD/SUB SAEJ - SET USER BREAK ERROR FLAG 00635 M01S00622.1ma +++| TABLE TJEJ,/2MC/TRM TJEJ - TERMINATE JOB 00636 M01S00623.1ma +++| TABLE MXEJ MAXIMUM EJT REQUEST +1 00637 M01S00624.1ma +++| TITLE FUNCTION PROCESSORS. 00638 M01S00625.1ma +++| RFL SPACE 4,25 00639 M01S00626.1ma +++|*** FUNCTION 0. 00640 M01S00627.1ma +++|* REQUEST STORAGE. 00641 M01S00628.1ma +++|* 00642 M01S00629.1ma +++|* ENTRY 00643 M01S00630.1ma +++|*T ARG 6/SUB,18/FL
Figure ARG
00644 M01S00631.1ma +++|* 00645 M01S00632.1ma +++|* SUB = 0 RFL REQUEST (NO STATUS WORD). 00646 M01S00633.1ma +++|* = 1 IF CM, ABORT IF NOT AVAILABLE. 00647 M01S00634.1ma +++|* = 2 IF EXTENDED MEMORY, ABORT IF NOT AVAILABLE. 00648 M01S00635.1ma +++|* = 3 IF CM, NO ABORT IF NOT AVAILABLE. 00649 M01S00636.1ma +++|* = 4 IF EXTENDED MEMORY, NO ABORT IF NOT AVAILABLE. 00650 M01S00637.1ma +++|* 00651 M01S00638.1ma +++|* FL = STORAGE REQUESTED IF SUBFUNCTION 0. 00652 M01S00639.1ma +++|* = ADDRESS OF STATUS WORD IF NOT SUBFUNCTION 0. 00653 M01S00640.1ma +++|* 00654 M01S00641.1ma +++|* IF SUBFUNCTION AND FL ARE BOTH ZERO, A CMM ERROR IS BEING 00655 M01S00642.1ma +++|* REQUESTED. 00656 M01S00643.1ma +++|* 00657 M01S00644.1ma +++|* USES SC, CM - CM+4, T3 - T7. 00658 M01S00645.1ma +++|* 00659 M01S00646.1ma +++|* CALLS CKE, CLM, RSI, SRA. 00660 M01S00647.1ma +++|* 00661 M01S00648.1ma +++|* MACROS EXECUTE, MONITOR. 00662 M01S00649.1ma +++| 00663 M01S00650.1ma +++| 00664 M01S00651.1ma +++| RFL LDD IR+3 SAVE SUBFUNCTION CODE 00665 M01S00652.1ma +++| SHN -6 00666 M01S00653.1ma +++| STD SF 00667 M01S00654.1ma +++| ZJN RFL3 IF RFL REQUEST 00668 M01S00655.1ma +++| LDC -100 00669 M01S00656.1ma +++| RAD IR+3 00670 M01S00657.1ma +++| RJM SRA SET REQUEST WORD ADDRESS 00671 M01S00658.1ma +++| ZJN RFL2 IF INCORRECT ADDRESS 00672 M01S00659.1ma +++| CRD FN 00673 M01S00660.1ma +++| LDD IR+3 00674 M01S00661.1ma +++| SHN 21-6 00675 M01S00662.1ma +++| MJN RFL6 IF EXTENDED MEMORY REQUEST 00676 M01S00663.1ma +++| LDD FN+2 00677 M01S00664.1ma +++| SCN 77 00678 M01S00665.1ma +++| SHN 6 00679 M01S00666.1ma +++| LMD FN+1 00680 M01S00667.1ma +++| SHN 6 00681 M01S00668.1ma +++| UJN RFL4 ROUND MEMORY REQUEST 00682 M01S00669.1ma +++| 00683 M01S00670.1ma +++| RFL1 LDC =C* INCORRECT COMMON MEMORY MANAGER REQUEST.* 00684 M01S00671.1ma +++| LJM ERR PROCESS ERROR 00685 M01S00672.1ma +++| 00686 M01S00673.1ma +++| RFL2 LDC =C* INCORRECT REQUEST.* 00687 M01S00674.1ma +++| LJM ERR PROCESS ERROR 00688 M01S00675.1ma +++| 00689 M01S00676.1ma +++| RFL3 LDD IR+3 00690 M01S00677.1ma +++| SHN 14 00691 M01S00678.1ma +++| LMD IR+4 00692 M01S00679.1ma +++| ZJN RFL1 IF CMM CONFLICT 00693 M01S00680.1ma +++| RFL4 LPC 377777 MASK OUT NO REDUCE OVERRIDE 00694 M01S00681.1ma +++| ADN 77 ROUND UP MEMORY REQUEST 00695 M01S00682.1ma +++| MJN RFL5 IF TOO MUCH MEMORY REQUESTED 00696 M01S00683.1ma +++| SHN -6 00697 M01S00684.1ma +++| STD T3 SET NEW FL 00698 M01S00685.1ma +++| RJM CKE CHECK FOR EXTENDED MEMORY ASSIGNED 00699 M01S00686.1ma +++| LJM RFL16 CHECK FL .LE. MFL 00700 M01S00687.1ma +++| 00701 M01S00688.1ma +++| RFL5 LJM RFL17 PROCESS ERROR 00702 M01S00689.1ma +++| 00703 M01S00690.1ma +++|* PROCESS EXTENDED MEMORY. 00704 M01S00691.1ma +++| 00705 M01S00692.1ma +++| RFL6 LDC -200+100 CHANGE CMM BIT TO CLEAR 00706 M01S00693.1ma +++| RAM RFLB 00707 M01S00694.1ma +++| LDK MEFL PRESET SHIFT INSTRUCTION 00708 M01S00695.1ma +++| CRD CM 00709 M01S00696.1ma +++| LDD CM+2 00710 M01S00697.1ma +++| SHN -11 00711 M01S00698.1ma +++| ADC SHNI+3 00712 M01S00699.1ma +++| STM RFLA 00713 M01S00700.1ma +++| LDD FN 00714 M01S00701.1ma +++| ADD FN+1 00715 M01S00702.1ma +++| ZJN RFL10 IF POSSIBLE EXTENDED MEMORY STATUS 00716 M01S00703.1ma +++| RFL7 ADC -2*7777 00717 M01S00704.1ma +++| NJN RFL8 IF NOT EXTENDED MEMORY MFL REQUEST 00718 M01S00705.1ma +++| LDD FN+2 00719 M01S00706.1ma +++| SHN -6 00720 M01S00707.1ma +++| LMN 76 00721 M01S00708.1ma +++| ZJN RFL9 IF EXTENDED MEMORY MFL REQUEST 00722 M01S00709.1ma +++| LMN 77&76 00723 M01S00710.1ma +++| NJN RFL8 IF NOT SET EXTENDED MEMORY FL TO ZERO 00724 M01S00711.1ma +++| LDN ZERL 00725 M01S00712.1ma +++| CRD FN-2 00726 M01S00713.1ma +++| RFL8 LJM RFL12 PROCESS EXTENDED MEMORY STORAGE REQUEST 00727 M01S00714.1ma +++| 00728 M01S00715.1ma +++| RFL9 LDN SSTL CHECK EXTENDED MEMORY CONTROL 00729 M01S00716.1ma +++| CRD FS 00730 M01S00717.1ma +++| LDN ZERL 00731 M01S00718.1ma +++| CRD CM PRESET EXTENDED MEMORY MFL = 0 00732 M01S00719.1ma +++| LDD FS 00733 M01S00720.1ma +++| SHN 21-5 00734 M01S00721.1ma +++| MJN RFL13 IF USER EXTENDED MEMORY NOT AVAILABLE 00735 M01S00722.1ma +++| LDD CP 00736 M01S00723.1ma +++| ADN ELCW 00737 M01S00724.1ma +++| CRD FS 00738 M01S00725.1ma +++| LDD FS 00739 M01S00726.1ma +++| UJN RFL11 SET MFL(EC) IN REPLY WORD 00740 M01S00727.1ma +++| 00741 M01S00728.1ma +++| RFL10 LDD FN+2 00742 M01S00729.1ma +++| SHN -6 00743 M01S00730.1ma +++| NJN RFL12 IF NOT EXTENDED MEMORY STATUS REQUEST 00744 M01S00731.1ma +++| LDN ZERL 00745 M01S00732.1ma +++| CRD CM 00746 M01S00733.1ma +++| LDD CP RETURN EXTENDED MEMORY FL 00747 M01S00734.1ma +++| ADN ECSW 00748 M01S00735.1ma +++| CRD FS 00749 M01S00736.1ma +++| LDD FS+4 00750 M01S00737.1ma +++| RFL11 SHN 3 00751 M01S00738.1ma +++|* SHN 3+UESC (ADJUST FOR BLOCKING FACTOR) 00752 M01S00739.1ma +++| RFLA EQU *-1 00753 M01S00740.1ma +++| STD CM+1 00754 M01S00741.1ma +++| SHN -14 00755 M01S00742.1ma +++| STD CM 00756 M01S00743.1ma +++| UJN RFL13 PROCESS COMPLETION STATUS 00757 M01S00744.1ma +++| 00758 M01S00745.1ma +++| RFL12 EXECUTE 2MB PROCESS EXTENDED MEMORY STORAGE REQUEST 00759 M01S00746.1ma +++| 00760 M01S00747.1ma +++|* RETURN COMPLETION STATUS. 00761 M01S00748.1ma +++| 00762 M01S00749.1ma +++| RFL13 LDD SF 00763 M01S00750.1ma +++| ZJN RFL15 IF NO COMPETION INFORMATION REQUESTED 00764 M01S00751.1ma +++| LDN 1 SET COMPLETION FLAG 00765 M01S00752.1ma +++| STD CM+4 00766 M01S00753.1ma +++| RJM SRA SET REQUEST ADDRESS 00767 M01S00754.1ma +++| ZJN RFL14 IF INCORRECT ADDRESS 00768 M01S00755.1ma +++| CWD CM 00769 M01S00756.1ma +++| RFL14 LDD FN+4 00770 M01S00757.1ma +++| LPN 14 00771 M01S00758.1ma +++| LMN 14 00772 M01S00759.1ma +++| NJN RFL15 IF NOT CLEAR CMM JOB STEP STATUS 00773 M01S00760.1ma +++| LDD CP CLEAR CMM JOB STEP STATUS 00774 M01S00761.1ma +++| ADC DBAW 00775 M01S00762.1ma +++| CRD CM 00776 M01S00763.1ma +++| STD T1 00777 M01S00764.1ma +++| LDD CM 00778 M01S00765.1ma +++| LPC 7677 (CM) 00779 M01S00766.1ma +++|* LPC 7577 (EXTENDED MEMORY) 00780 M01S00767.1ma +++| RFLB EQU *-1 00781 M01S00768.1ma +++| STD CM 00782 M01S00769.1ma +++| LDD T1 00783 M01S00770.1ma +++| CWD CM 00784 M01S00771.1ma +++| RFL15 LJM DPP DROP PPU 00785 M01S00772.1ma +++| 00786 M01S00773.1ma +++|* CHECK IF FL .LE. MFL. 00787 M01S00774.1ma +++| 00788 M01S00775.1ma +++| RFL16 LDD CP 00789 M01S00776.1ma +++| ADN FLCW 00790 M01S00777.1ma +++| CRD T7 00791 M01S00778.1ma +++| LDN ZERL 00792 M01S00779.1ma +++| CRD CM 00793 M01S00780.1ma +++| LDD FL 00794 M01S00781.1ma +++| STD CM+1 00795 M01S00782.1ma +++| LDD T7 00796 M01S00783.1ma +++| SBD T3 00797 M01S00784.1ma +++| PJN RFL18 IF FL .LE. MFL 00798 M01S00785.1ma +++| LDD IR+3 00799 M01S00786.1ma +++| SHN 21-7 00800 M01S00787.1ma +++| PJN RFL17 IF NOT *NO ABORT* 00801 M01S00788.1ma +++| LJM RFL13 RETURN STATUS ON NO ABORT REQUESTS 00802 M01S00789.1ma +++| 00803 M01S00790.1ma +++| RFL17 LDC =C* FL REQUEST BEYOND MFL (CM).* 00804 M01S00791.1ma +++| LJM ERR PROCESS ERROR ABORT 00805 M01S00792.1ma +++| 00806 M01S00793.1ma +++|* REQUEST STORAGE. 00807 M01S00794.1ma +++| 00808 M01S00795.1ma +++| RFL18 LDD FL SAVE CURRENT FL 00809 M01S00796.1ma +++| STD T4 00810 M01S00797.1ma +++| ZJN RFL19 IF NO FL CURRENTLY ASSIGNED 00811 M01S00798.1ma +++| LDD T3 REQUESTED FL 00812 M01S00799.1ma +++| RJM RSI REQUEST STORAGE INCREASE 00813 M01S00800.1ma +++| NJN RFL20 IF FL NOT ASSIGNED 00814 M01S00801.1ma +++| RJM CLM CLEAR ADDITIONAL MEMORY 00815 M01S00802.1ma +++| LJM RFL13 COMPLETE PROCESSING 00816 M01S00803.1ma +++| 00817 M01S00804.1ma +++| RFL19 LJM RFL2 * INCORRECT REQUEST.* 00818 M01S00805.1ma +++| 00819 M01S00806.1ma +++|* STORAGE NOT AVAILABLE. 00820 M01S00807.1ma +++| 00821 M01S00808.1ma +++| RFL20 PJN RFL21 IF WAITING FOR REPLY FROM *1SJ* 00822 M01S00809.1ma +++| LDD CP CHECK IF JOB ROLLABLE 00823 M01S00810.1ma +++| ADN JCIW 00824 M01S00811.1ma +++| CRD CM 00825 M01S00812.1ma +++| ADK TFSW-JCIW 00826 M01S00813.1ma +++| CRD FN 00827 M01S00814.1ma +++| LDD CM+3 CHECK FOR *DIS* JOB 00828 M01S00815.1ma +++| LPC 1000 00829 M01S00816.1ma +++| ADD CM+2 CHECK FOR NON-ROLLABLE JOB 00830 M01S00817.1ma +++| NJN RFL21 IF JOB NOT ROLLABLE 00831 M01S00818.1ma +++| SFA EJT,FN READ *SCLE* EJT WORD 00832 M01S00819.1ma +++| ADK SCLE 00833 M01S00820.1ma +++| CRD FN 00834 M01S00821.1ma +++| LDD FN 00835 M01S00822.1ma +++| LPN 20 00836 M01S00823.1ma +++| NJN RFL21 IF FORCED ROLLIN, JOB NOT ROLLABLE 00837 M01S00824.1ma +++| STD CM+1 ROLLOUT CONTROL POINT 00838 M01S00825.1ma +++| MONITOR ROCM 00839 M01S00826.1ma +++| UJN RFL22 ENTER PP RECALL 00840 M01S00827.1ma +++| 00841 M01S00828.1ma +++|* STORAGE AVAILABLE BUT NOT ASSIGNED. 00842 M01S00829.1ma +++| 00843 M01S00830.1ma +++| RFL21 LDD CP SET WAITING FOR STORAGE INCREASE 00844 M01S00831.1ma +++| ADN MS2W 00845 M01S00832.1ma +++| CWM =C*WAITING FOR STORAGE (CM). *,TR 00846 M01S00833.1ma +++| RFL22 LDN CFIR SET CM FL INCREASE PENDING REASON CODE 00847 M01S00834.1ma +++| LJM RCL ENTER PP RECALL STACK 00848 M01S00835.1ma +++| DMS SPACE 4,15 00849 M01S00836.1ma +++|*** FUNCTION 1. 00850 M01S00837.1ma +++|* ENTER DAYFILE MESSAGE. 00851 M01S00838.1ma +++|* 00852 M01S00839.1ma +++|* ENTRY 00853 M01S00840.1ma +++|*T ARG 6/ 0,18/ MSG
Figure ARG
00854 M01S00841.1ma +++|* MSG ADDRESS OF MESSAGE. 00855 M01S00842.1ma +++|* 00856 M01S00843.1ma +++|* USES CM - CM+4, T2. 00857 M01S00844.1ma +++|* 00858 M01S00845.1ma +++|* CALLS DFM, SRA. 00859 M01S00846.1ma +++|* 00860 M01S00847.1ma +++|* NOTE THIS FUNCTION SHOULD BE USED ONLY BY SUBSYSTEMS THAT 00861 M01S00848.1ma +++|* CANNOT GIVE UP THE CPU DURING NORMAL *MSG* PROCESSING. 00862 M01S00849.1ma +++| 00863 M01S00850.1ma +++| 00864 M01S00851.1ma +++| DMS LDN 5 SET WORD COUNT 00865 M01S00852.1ma +++| STD T2 00866 M01S00853.1ma +++| RJM SRA SET REQUEST ADDRESS 00867 M01S00854.1ma +++| ZJN DMS1 IF INCORRECT ADDRESS 00868 M01S00855.1ma +++| CRM BUF,T2 00869 M01S00856.1ma +++| SBN 1 00870 M01S00857.1ma +++| SHN -6 00871 M01S00858.1ma +++| SBD RA 00872 M01S00859.1ma +++| SBD FL 00873 M01S00860.1ma +++| PJN DMS1 IF INCORRECT ADDRESS 00874 M01S00861.1ma +++| LDN 0 TERMINATE MESSAGE 00875 M01S00862.1ma +++| STM BUF+5*5 00876 M01S00863.1ma +++| LDC BUF 00877 M01S00864.1ma +++| RJM DFM ISSUE DAYFILE MESSAGE 00878 M01S00865.1ma +++| LJM DPP DROP PPU 00879 M01S00866.1ma +++| 00880 M01S00867.1ma +++| DMS1 LDC =C* INCORRECT REQUEST.* 00881 M01S00868.1ma +++| LJM ERR PROCESS ERROR 00882 M01S00869.1ma +++| CPP SPACE 4,10 00883 M01S00870.1ma +++|** FUNCTIONS 10, 11, 12. 00884 M01S00871.1ma +++|* CPP PROCESSOR. 00885 M01S00872.1ma +++| 00886 M01S00873.1ma +++| 00887 M01S00874.1ma +++| CPP LDD MA SAVE OVERLAY LOAD PARAMETERS 00888 M01S00875.1ma +++| CRD CN 00889 M01S00876.1ma +++| EXECUTE 2MH PROCESS CPP REQUEST 00890 M01S00877.1ma +++| LJM DPP DROP PP 00891 M01S00878.1ma +++| PCU SPACE 4,10 00892 M01S00879.1ma +++|** FUNCTION 6. 00893 M01S00880.1ma +++|* PROCESS CLOCK UPDATE. 00894 M01S00881.1ma +++| 00895 M01S00882.1ma +++| 00896 M01S00883.1ma +++| PCU EXECUTE 2MF PROCESS CLOCK UPDATE 00897 M01S00884.1ma +++| LJM DPP DROP PP 00898 M01S00885.1ma +++| LCE SPACE 4,10 00899 M01S00886.1ma +++|** FUNCTION 7. 00900 M01S00887.1ma +++|* LOG SOFTWARE ERROR. 00901 M01S00888.1ma +++| 00902 M01S00889.1ma +++| 00903 M01S00890.1ma +++| LCE EXECUTE 2MG LOG SOFTWARE ERROR 00904 M01S00891.1ma +++| LJM DPP DROP PP 00905 M01S00892.1ma +++| CKE SPACE 4,10 00906 M01S00893.1ma +++|** CKE - CHECK FOR EXTENDED MEMORY ASSIGNED. 00907 M01S00894.1ma +++|* 00908 M01S00895.1ma +++|* ENTRY (T3) = NEW FL/100B REQUESTED. 00909 M01S00896.1ma +++|* 00910 M01S00897.1ma +++|* EXIT (T3) ADJUSTED IF EXTENDED MEMORY IS ASSIGNED AND 00911 M01S00898.1ma +++|* (T3) IS .LT. MCMX. 00912 M01S00899.1ma +++|* 00913 M01S00900.1ma +++|* USES T3, CM - CM+4. 00914 M01S00901.1ma +++| 00915 M01S00902.1ma +++| 00916 M01S00903.1ma +++| CKE SUBR ENTRY/EXIT 00917 M01S00904.1ma +++| LDD CP CHECK FOR EXTENDED MEMORY ASSIGNED 00918 M01S00905.1ma +++| ADN ECSW 00919 M01S00906.1ma +++| CRD CM 00920 M01S00907.1ma +++| LDD CM+4 00921 M01S00908.1ma +++| ZJN CKEX IF NO EXTENDED MEMORY ASSIGNED 00922 M01S00909.1ma +++| LDD T3 00923 M01S00910.1ma +++| ADC -MCMX/100 00924 M01S00911.1ma +++| PJN CKEX IF FL .GE. MCMX 00925 M01S00912.1ma +++| LDC MCMX/100 SET TO MINIMUM FL 00926 M01S00913.1ma +++| STD T3 00927 M01S00914.1ma +++| UJN CKEX RETURN 00928 M01S00915.1ma +++| MRER SPACE 4,10 00929 M01S00916.1ma +++|** MRER - MAINTENANCE REGISTER ERROR HANDLER. 00930 M01S00917.1ma +++|* 00931 M01S00918.1ma +++|* ENTRY FATAL MAINTENANCE REGISTER ERROR. 00932 M01S00919.1ma +++|* 00933 M01S00920.1ma +++|* EXIT TO *ERR* VIA *ABORT* MACRO. 00934 M01S00921.1ma +++|* 00935 M01S00922.1ma +++|* MACROS ABORT. 00936 M01S00923.1ma +++| 00937 M01S00924.1ma +++| 00938 M01S00925.1ma +++| MRER ABORT ERMR * 1MA - FATAL MAINTENANCE REGISTER ERROR.* 00939 M01S00926.1ma +++| 00940 M01S00927.1ma +++| 00941 M01S00928.1ma +++| CHFL CON 0 CHANNEL RESERVED FLAG 00942 M01S00929.1ma +++| ERMR DATA C* 1MA - FATAL MAINTENANCE REGISTER ERROR.* 00943 M01S00930.1ma +++| CLM SPACE 4,15 00944 M01S00931.1ma +++|** CLM - CLEAR MEMORY (CM). 00945 M01S00932.1ma +++|* 00946 M01S00933.1ma +++|* ENTRY (T4) = OLD FL. 00947 M01S00934.1ma +++|* 00948 M01S00935.1ma +++|* EXIT ADDITIONAL CM CLEARED. 00949 M01S00936.1ma +++|* CONSOLE MESSAGE CLEARED. 00950 M01S00937.1ma +++|* (CM+1) = CURRENT FL. 00951 M01S00938.1ma +++|* 00952 M01S00939.1ma +++|* USES CM - CM+4. 00953 M01S00940.1ma +++|* 00954 M01S00941.1ma +++|* MACROS MONITOR. 00955 M01S00942.1ma +++| 00956 M01S00943.1ma +++| 00957 M01S00944.1ma +++| CLM SUBR ENTRY/EXIT 00958 M01S00945.1ma +++| LDK SSTL 00959 M01S00946.1ma +++| CRD CM 00960 M01S00947.1ma +++| LDD CM 00961 M01S00948.1ma +++| SHN 21-12 00962 M01S00949.1ma +++| PJN CLM0 IF MEMORY CLEARING ENABLED 00963 M01S00950.1ma +++| LDD CP READ SEPW WORD FROM CP AREA 00964 M01S00951.1ma +++| ADC SEPW 00965 M01S00952.1ma +++| CRD CM 00966 M01S00953.1ma +++| LDD CM CHECK ENTRY POINTS 00967 M01S00954.1ma +++| LPN 1 00968 M01S00955.1ma +++| NJN CLM1 IF SSM= ENTRY POINT PRESENT 00969 M01S00956.1ma +++| CLM0 LDD FL CHECK FL CHANGE 00970 M01S00957.1ma +++| SBD T4 00971 M01S00958.1ma +++| MJN CLM1 IF DECREASE 00972 M01S00959.1ma +++| ZJN CLM1 IF NO CHANGE 00973 M01S00960.1ma +++| SHN 6 00974 M01S00961.1ma +++| STD CM+2 00975 M01S00962.1ma +++| SHN -14 00976 M01S00963.1ma +++| STD CM+1 00977 M01S00964.1ma +++| LDD HN SET RELATIVE ADDRESS OPTION 00978 M01S00965.1ma +++| RAD CM+1 00979 M01S00966.1ma +++| LDD T4 SET ADDRESS FOR CLEAR 00980 M01S00967.1ma +++| SHN 6 00981 M01S00968.1ma +++| STD CM+4 00982 M01S00969.1ma +++| SHN -14 00983 M01S00970.1ma +++| STD CM+3 00984 M01S00971.1ma +++| MONITOR CSTM CLEAR ADDED FL 00985 M01S00972.1ma +++| CLM1 LDN 0 00986 M01S00973.1ma +++| STD CM CLEAR CONSOLE MESSAGE 00987 M01S00974.1ma +++| STD CM+1 00988 M01S00975.1ma +++| LDD CP 00989 M01S00976.1ma +++| ADN MS2W 00990 M01S00977.1ma +++| CWD CM 00991 M01S00978.1ma +++| LDN ZERL RETURN STATUS 00992 M01S00979.1ma +++| CRD CM 00993 M01S00980.1ma +++| LDD FL 00994 M01S00981.1ma +++| STD CM+1 00995 M01S00982.1ma +++| LJM CLMX RETURN 00996 M01S00983.1ma +++| SPACE 4,10 00997 M01S00984.1ma +++|** COMMON DECKS. 00998 M01S00985.1ma +++| 00999 M01S00986.1ma +++| 01000 M01S00987.1ma +++| EJT$ EQU 1 SELECT EJT PROCESSOR 01001 M01S00988.1ma +++| IFP$ EQU 1 01002 M01S00989.1ma +++| QFT$ EQU 1 SELECT QFT PROCESSOR 01003 M01S00990.1ma +++|*CALL COMPGFP 01004 M01S00991.1ma +++|*CALL COMPRSI 01005 M01S00992.1ma +++| SFI$ EQU 1 SELECT IMMEDIATE RETURN FROM *SFI* 01006 M01S00993.1ma +++|*CALL COMPSFI 01007 M01S00994.1ma +++| SPACE 4,10 01008 M01S00995.1ma +++|** BUFFER. 01009 M01S00996.1ma +++| 01010 M01S00997.1ma +++| 01011 M01S00998.1ma +++| USE BUFFER 01012 M01S00999.1ma +++| BUF BSS 0 01013 M01S01000.1ma +++| SPACE 4,10 01014 M01S01001.1ma +++|** OVERLAY ORIGIN. 01015 M01S01002.1ma +++| 01016 M01S01003.1ma +++| 01017 M01S01004.1ma +++| E1MA EQU BUF+MESL*5+5 01018 M01S01005.1ma +++| ERRNG BFMS-* 01019 M01S01006.1ma +++| IFP HERE 01020 M01S01007.1ma +++| OVERFLOW 01021 M01S01008.1ma +++| TTL 1MA/2MA - SYSTEM CP FACILITY PROCESSOR. 01022 M01S01009.1ma +++| TITLE 01023 M01S01010.1ma +++| OVERLAY (SYSTEM CP FACILITY FUNCTION.),E1MA 01024 M01S01011.1ma +++| SPACE 4,10 01025 M01S01012.1ma +++|***** 2MA - FUNCTION PROCESSOR FOR SYSTEM CP FACILITY. 01026 M01S01013.1ma +++|* 01027 M01S01014.1ma +++|* *2MA* PERFORMS VARIOUS TIME CONSUMING FUNCTIONS USED 01028 M01S01015.1ma +++|* IN THE SYSTEM CP (SCP) FACILITY. 01029 M01S01016.1ma +++| SCP SPACE 4,30 01030 M01S01017.1ma +++|*** SYSTEM CONTROL POINT FUNCTIONS. (SEE *CPUMTR*). 01031 M01S01018.1ma +++|* 01032 M01S01019.1ma +++|* ENTRY 01033 M01S01020.1ma +++|*T ARG 6/INDX ,18/ ADDR
Figure ARG
01034 M01S01021.1ma +++|* INDX SUBSYSTEM INDEX OF CALLER, OR *TERM* TABLE 01035 M01S01022.1ma +++|* MESSAGE INDEX/2 IF *CPUMTR* REQUESTING ABORT. 01036 M01S01023.1ma +++|* ADDR ADDRESS OF FUNCTION PARAMETERS. 01037 M01S01024.1ma +++|* ADDR = 0, IF *CPUMTR* REQUESTING ABORT. 01038 M01S01025.1ma +++|* 01039 M01S01026.1ma +++|* FOR *1MA* FUNCTION 2 (SCP FUNCTION ON UCP), ADDITIONAL 01040 M01S01027.1ma +++|* INFORMATION IS TRANSFERRED FROM THE MESSAGE BUFFER. 01041 M01S01028.1ma +++|* (SP - SP+4) = 6/ RC,12/ FP, 18/ UCPA, 18/SCPA,6/ FC 01042 M01S01029.1ma +++|* (SQ - SQ+4) = 24/ JSEQ,24/,12/ JEJT (SF.SWPO) 01043 M01S01030.1ma +++|* = MESSAGE (SF.REGR) 01044 M01S01031.1ma +++|* (BUF - BUF+MESL-1) = MESSAGE (SF.REGR) 01045 M01S01032.1ma +++|* FC FUNCTION CODES VALID FOR 1MA ARE - 01046 M01S01033.1ma +++|* 02 SEND DAYFILE MESSAGE AND/OR ABORT USER. 01047 M01S01034.1ma +++|* 24 SWAP OUT USER JOB. 01048 M01S01035.1ma +++|* FP A PARAMETER MEANINGFUL TO A PARTICULAR FUNCTION. 01049 M01S01036.1ma +++|* JEJT JOB EJT ORDINAL. 01050 M01S01037.1ma +++|* JSEQ JOB SEQUENCE NUMBER. 01051 M01S01038.1ma +++|* RC SYSTEM REPLY CODE - (SEE *COMSSCP*). 01052 M01S01039.1ma +++|* SCPA A DATA ADDRESS WITHIN THE SUBSYSTEM MEMORY. 01053 M01S01040.1ma +++|* UCPA A DATA ADDRESS WITHIN A USER JOB MEMORY. 01054 M01S01041.1ma +++|* 01055 M01S01042.1ma +++|* CALLS CHG, DFM, SDM, SWO, SWP, SWT, SXT. 01056 M01S01043.1ma +++|* 01057 M01S01044.1ma +++|* MACROS MONITOR. 01058 M01S01045.1ma +++| 01059 M01S01046.1ma +++| 01060 M01S01047.1ma +++| SCP SUBR ENTRY 01061 M01S01048.1ma +++| LDD IR+3 CHECK ABORT REQUESTED 01062 M01S01049.1ma +++| LPN 77 01063 M01S01050.1ma +++| ADD IR+4 01064 M01S01051.1ma +++| ZJN SCP4 IF ABORT REQUESTED FROM CPUMTR 01065 M01S01052.1ma +++| LDD IR+2 01066 M01S01053.1ma +++| SBN 3 01067 M01S01054.1ma +++| MJN SCP2 IF SCP FUNCTION ON UCP 01068 M01S01055.1ma +++| ZJN SCP1 IF FILE SWITCHING FUNCTION 01069 M01S01056.1ma +++| RJM SXT PROCESS SF.EXIT 01070 M01S01057.1ma +++| UJN SCP3 DROP PP 01071 M01S01058.1ma +++| 01072 M01S01059.1ma +++| SCP1 LJM SWT PROCESS FILE SWITCHING FUNCTION 01073 M01S01060.1ma +++| 01074 M01S01061.1ma +++| SCP2 LDD SP+4 GET SCP FUNCTION ON UCP 01075 M01S01062.1ma +++| LPN 37 01076 M01S01063.1ma +++| LMN REGR 01077 M01S01064.1ma +++| NJN SCP6 IF NOT ISSUE DAYFILE MESSAGE 01078 M01S01065.1ma +++| RJM SDM SEND DAYFILE MESSAGE AND/OR ABORT USER 01079 M01S01066.1ma +++| SCP3 LJM DPP EXIT 01080 M01S01067.1ma +++| 01081 M01S01068.1ma +++| SCP4 LDD IR+3 GET MESSAGE INDEX/2 01082 M01S01069.1ma +++| SHN -6+1 01083 M01S01070.1ma +++| SCN 1 01084 M01S01071.1ma +++| STD T4 01085 M01S01072.1ma +++| SBN TERML 01086 M01S01073.1ma +++| PJN SCP7 IF NOT LEGAL MESSAGE INDEX 01087 M01S01074.1ma +++| LDM TERM,T4 GET DAYFILE MESSAGE ADDRESS 01088 M01S01075.1ma +++| ZJN SCP5 IF NO DAYFILE MESSAGE 01089 M01S01076.1ma +++| RJM DFM ISSUE MESSAGE TO DAYFILE 01090 M01S01077.1ma +++| SCP5 LDM TERM+1,T4 GET ERROR FLAG 01091 M01S01078.1ma +++| STD CM+1 01092 M01S01079.1ma +++| MONITOR CEFM SET ERROR FLAG 01093 M01S01080.1ma +++| UJN SCP3 EXIT 01094 M01S01081.1ma +++| 01095 M01S01082.1ma +++| SCP6 LMN SWPO®R 01096 M01S01083.1ma +++| NJN SCP9 IF NOT VALID SUBFUNCTION CODE 01097 M01S01084.1ma +++| RJM SWO SWAP OUT USER JOB 01098 M01S01085.1ma +++| UJN SCP3 EXIT 01099 M01S01086.1ma +++| 01100 M01S01087.1ma +++| SCP7 LDK FSET SET FORCED ERROR 01101 M01S01088.1ma +++| SCP8 RJM CHG CONDITIONALLY HANG PP 01102 M01S01089.1ma +++| UJN SCP3 DROP PP 01103 M01S01090.1ma +++| 01104 M01S01091.1ma +++| SCP9 LDN 0 01105 M01S01092.1ma +++| UJN SCP8 CONDITIONALLY HANG 01106 M01S01093.1ma +++| TERM SPACE 4,10 01107 M01S01094.1ma +++|** TERM - TABLE OF ERROR FLAGS AND MESSAGES. 01108 M01S01095.1ma +++|* 01109 M01S01096.1ma +++|*T 12/ ERMA, 12/ ERFL
Figure
01110 M01S01097.1ma +++|* ERMA ERROR MESSAGE ADDRESS 01111 M01S01098.1ma +++|* ERFL ERROR FLAG 01112 M01S01099.1ma +++| 01113 M01S01100.1ma +++| 01114 M01S01101.1ma +++| TERM BSS 0 01115 M01S01102.1ma +++| LOC 0 01116 M01S01103.1ma +++| CON 0,ITET SCP *SSCR* PARAMETERS INCORRECT 01117 M01S01104.1ma +++| CON =C* USER ACCESS NOT VALID.*,SYET 01118 M01S01105.1ma +++| TERML EQU * 01119 M01S01106.1ma +++| LOC *O 01120 M01S01107.1ma +++| TITLE SCP FUNCTION PROCESSORS. 01121 M01S01108.1ma +++| SDM SPACE 4,10 01122 M01S01109.1ma +++|** SDM - SEND DAYFILE MESSAGE AND/OR ABORT JOB. (SF.REGR) 01123 M01S01110.1ma +++|* 01124 M01S01111.1ma +++|* ENTRY (BUF - BUF+MESL-1) = MESSAGE BUFFER DATA. 01125 M01S01112.1ma +++|* 01126 M01S01113.1ma +++|* USES CM - CM+4, T0 - T6, BUF - BUF+5*5. 01127 M01S01114.1ma +++|* 01128 M01S01115.1ma +++|* CALLS DFM, SCB. 01129 M01S01116.1ma +++|* 01130 M01S01117.1ma +++|* MACROS MONITOR. 01131 M01S01118.1ma +++| 01132 M01S01119.1ma +++| 01133 M01S01120.1ma +++| SDM SUBR ENTRY/EXIT 01134 M01S01121.1ma +++| 01135 M01S01122.1ma +++|* SEND MESSAGE TO SPECIFIED DAYFILE. 01136 M01S01123.1ma +++| 01137 M01S01124.1ma +++| LDD SP+4 CHECK MESSAGE DESIRED 01138 M01S01125.1ma +++| SCN 77 01139 M01S01126.1ma +++| ADD SP+3 01140 M01S01127.1ma +++| ZJN SDM3 IF NO MESSAGE SPECIFIED 01141 M01S01128.1ma +++| LDD SP CHECK SPECIFIED DAYFILE OPTION 01142 M01S01129.1ma +++| LPN 77 01143 M01S01130.1ma +++| SHN 14 01144 M01S01131.1ma +++| ADD SP+1 01145 M01S01132.1ma +++| SHN -6 01146 M01S01133.1ma +++| SBN MXDF 01147 M01S01134.1ma +++| MJN SDM2 IF VALID DAYFILE OPTION 01148 M01S01135.1ma +++| LDN RC66 * INCORRECT DAYFILE PROCESSING FLAG.* 01149 M01S01136.1ma +++| SDM1 RJM SCB SET COMPLETION BIT, REPLY CODE 01150 M01S01137.1ma +++| UJN SDMX RETURN 01151 M01S01138.1ma +++| 01152 M01S01139.1ma +++| SDM2 RAM SDMA SET DAYFILE OPTION 01153 M01S01140.1ma +++| LDN MESL EXTRACT MESSAGE TO BE ISSUED 01154 M01S01141.1ma +++| STD T2 01155 M01S01142.1ma +++| LDN 0 TERMINATE MESSAGE 01156 M01S01143.1ma +++| STM BUF+MESL*5 01157 M01S01144.1ma +++| LDC BUF+MXDF*10000 01158 M01S01145.1ma +++| SDMA EQU *-2 (DAYFILE OPTION) 01159 M01S01146.1ma +++| RJM DFM 01160 M01S01147.1ma +++| 01161 M01S01148.1ma +++|* SET ERROR FLAG ON USER JOB IF DESIRED. 01162 M01S01149.1ma +++| 01163 M01S01150.1ma +++| SDM3 LDD SP+1 CHECK USER ABORT DESIRED 01164 M01S01151.1ma +++| LPN 77 01165 M01S01152.1ma +++| SHN 14 01166 M01S01153.1ma +++| ADD SP+2 01167 M01S01154.1ma +++| ZJN SDM1 IF NO ABORT SPECIFIED 01168 M01S01155.1ma +++| SBN 1 01169 M01S01156.1ma +++| STD T1 01170 M01S01157.1ma +++| SBN TEFGL 01171 M01S01158.1ma +++| MJN SDM5 IF VALID ERROR FLAG SPECIFIED 01172 M01S01159.1ma +++| LDN RC65 * ATTEMPT TO SET INCORRECT ERROR FLAG.* 01173 M01S01160.1ma +++| SDM4 UJN SDM1 SET COMPLETION BIT, REPLY CODE 01174 M01S01161.1ma +++| 01175 M01S01162.1ma +++| SDM5 LDM TEFG,T1 SET ERROR FLAG 01176 M01S01163.1ma +++| STD CM+1 01177 M01S01164.1ma +++| MONITOR CEFM 01178 M01S01165.1ma +++| LDN 0 01179 M01S01166.1ma +++| UJN SDM4 SET COMPLETION BIT 01180 M01S01167.1ma +++| SPACE 4,10 01181 M01S01168.1ma +++|** TEFG - TABLE OF ERROR FLAGS. 01182 M01S01169.1ma +++|* 01183 M01S01170.1ma +++|* INDEXED BY VALUE SPECIFIED IN *FP* FIELD OF SF.REGR REQUEST. 01184 M01S01171.1ma +++| 01185 M01S01172.1ma +++| 01186 M01S01173.1ma +++| TEFG BSS 0 01187 M01S01174.1ma +++| LOC 0 01188 M01S01175.1ma +++| 01189 M01S01176.1ma +++| CON PPET GENERAL SUBSYSTEM ERROR 01190 M01S01177.1ma +++| CON SYET HOSTILE USER ERROR 01191 M01S01178.1ma +++| 01192 M01S01179.1ma +++| TEFGL BSS 0 01193 M01S01180.1ma +++| LOC *O 01194 M01S01181.1ma +++| SWO SPACE 4,10 01195 M01S01182.1ma +++|** SWO - SWAP OUT USER CONTROL POINT. (SF.SWPO) 01196 M01S01183.1ma +++|* 01197 M01S01184.1ma +++|* USES CM - CM+4. 01198 M01S01185.1ma +++|* 01199 M01S01186.1ma +++|* CALL CHG, SCB. 01200 M01S01187.1ma +++|* 01201 M01S01188.1ma +++|* MACROS MONITOR. 01202 M01S01189.1ma +++| 01203 M01S01190.1ma +++| 01204 M01S01191.1ma +++| SWO SUBR ENTRY/EXIT 01205 M01S01192.1ma +++| LDD CP CHECK IF JOB ROLLABLE 01206 M01S01193.1ma +++| ADN JCIW 01207 M01S01194.1ma +++| CRD CM 01208 M01S01195.1ma +++| LDD CM+3 CHECK FOR *DIS* JOB 01209 M01S01196.1ma +++| LPC 1000 01210 M01S01197.1ma +++| ADD CM+2 CHECK FOR NON-ROLLABLE JOB 01211 M01S01198.1ma +++| NJN SWO2 IF JOB NOT ROLLABLE 01212 M01S01199.1ma +++| STD CM+1 ROLLOUT CONTROL POINT 01213 M01S01200.1ma +++| MONITOR ROCM 01214 M01S01201.1ma +++| SWO1 LDN 0 INDICATE NO ERRORS 01215 M01S01202.1ma +++| RJM SCB SET COMPLETION BIT, NO ERRORS 01216 M01S01203.1ma +++| UJN SWOX RETURN 01217 M01S01204.1ma +++| 01218 M01S01205.1ma +++| SWO2 LDD MA CLEAR SCP ROLLOUT REQUESTED FLAG 01219 M01S01206.1ma +++| CWM SWOA,ON 01220 M01S01207.1ma +++| LDN 1 01221 M01S01208.1ma +++| STD CM+1 01222 M01S01209.1ma +++| STD CM+2 01223 M01S01210.1ma +++| MONITOR UADM 01224 M01S01211.1ma +++| LDD CM+1 01225 M01S01212.1ma +++| ZJN SWO1 IF BIT SUCCESSFULLY CLEARED 01226 M01S01213.1ma +++| LDN 0 01227 M01S01214.1ma +++| RJM CHG CONDITIONALLY HANG PP 01228 M01S01215.1ma +++| UJN SWO1 SET COMPLETION BIT AND RETURN 01229 M01S01216.1ma +++| 01230 M01S01217.1ma +++| 01231 M01S01218.1ma +++| SWOA VFD 12/CDOS,12/STSW,6/29D,6/1 01232 M01S01219.1ma +++| SXT SPACE 4,10 01233 M01S01220.1ma +++|** SXT - PROCESS EXIT FROM SCP STATUS. (SF.EXIT) 01234 M01S01221.1ma +++|* 01235 M01S01222.1ma +++|* USES EF, SC. 01236 M01S01223.1ma +++|* 01237 M01S01224.1ma +++|* CALLS SCB, *0ST*. 01238 M01S01225.1ma +++|* 01239 M01S01226.1ma +++|* MACROS EXECUTE. 01240 M01S01227.1ma +++| 01241 M01S01228.1ma +++| 01242 M01S01229.1ma +++| SXT SUBR ENTRY/EXIT 01243 M01S01230.1ma +++| LDN 0 INDICATE NO ERROR FLAG 01244 M01S01231.1ma +++| STD EF 01245 M01S01232.1ma +++| LDN 6 INDICATE CONNECTED UCP-S FOR SF.EXIT 01246 M01S01233.1ma +++| STD SC 01247 M01S01234.1ma +++| EXECUTE 0ST,OSTL 01248 M01S01235.1ma +++| RJM CAA GET *SF.EXIT* PARAMETER WORD 01249 M01S01236.1ma +++| CRD CM 01250 M01S01237.1ma +++| AOD CM+4 SET COMPLETE BIT 01251 M01S01238.1ma +++| LDD CM CLEAR REPLY CODE (NO ERROR) 01252 M01S01239.1ma +++| LPN 77 01253 M01S01240.1ma +++| STD CM 01254 M01S01241.1ma +++| RJM CAA 01255 M01S01242.1ma +++| CWD CM 01256 M01S01243.1ma +++| UJN SXTX RETURN 01257 M01S01244.1ma +++| TITLE SUBROUTINES. 01258 M01S01245.1ma +++| DLY SPACE 4,10 01259 M01S01246.1ma +++|** DLY - DELAY. 01260 M01S01247.1ma +++|* 01261 M01S01248.1ma +++|* EXIT (A) = 0 IF OPERATOR INTERVENTION. 01262 M01S01249.1ma +++|* 01263 M01S01250.1ma +++|* MACROS DELAY, PAUSE. 01264 M01S01251.1ma +++| 01265 M01S01252.1ma +++| 01266 M01S01253.1ma +++| DLY SUBR ENTRY/EXIT 01267 M01S01254.1ma +++| PAUSE 01268 M01S01255.1ma +++| DELAY 01269 M01S01256.1ma +++| LDD CM+1 CHECK FOR OPERATOR OVERRIDE 01270 M01S01257.1ma +++| LMN ORET 01271 M01S01258.1ma +++| UJN DLYX RETURN 01272 M01S01259.1ma +++| SCB SPACE 4,15 01273 M01S01260.1ma +++|** SCB - SET COMPLETION BIT. 01274 M01S01261.1ma +++|* 01275 M01S01262.1ma +++|* SCB SETS SETS THE COMPLETION BIT FOR A PARTICULAR 01276 M01S01263.1ma +++|* SF.XXXX FUNCTION ALONG WITH THE REPLY CODE. 01277 M01S01264.1ma +++|* 01278 M01S01265.1ma +++|* ENTRY (A) = REPLY CODE. 01279 M01S01266.1ma +++|* 01280 M01S01267.1ma +++|* EXIT (T7) = REPLY CODE. 01281 M01S01268.1ma +++|* 01282 M01S01269.1ma +++|* USES T1, CM - CM+4. 01283 M01S01270.1ma +++|* 01284 M01S01271.1ma +++|* CALLS DLY. 01285 M01S01272.1ma +++|* 01286 M01S01273.1ma +++|* MACROS MONITOR. 01287 M01S01274.1ma +++| 01288 M01S01275.1ma +++| 01289 M01S01276.1ma +++| SCB SUBR ENTRY/EXIT 01290 M01S01277.1ma +++| STD T7 SAVE ERROR STATUS 01291 M01S01278.1ma +++| LDD IR+4 ADDRESS OF FUNCTION PARAMETER WORD 01292 M01S01279.1ma +++| STM SCBA 01293 M01S01280.1ma +++| LDD IR+3 01294 M01S01281.1ma +++| LPN 77 01295 M01S01282.1ma +++| SHN 14 01296 M01S01283.1ma +++| ADD T7 SET ERROR STATUS IN CALL 01297 M01S01284.1ma +++| SHN 6 01298 M01S01285.1ma +++| STM SCBB 01299 M01S01286.1ma +++| LDD IR+3 EXTRACT SUBSYSTEM INDEX 01300 M01S01287.1ma +++| SHN -6 01301 M01S01288.1ma +++| ADC LSSI 01302 M01S01289.1ma +++| STM SCBC SUBSYSTEM QUEUE PRIORITY 01303 M01S01290.1ma +++| SCB1 LDC * 01304 M01S01291.1ma +++| SCBA EQU *-1 (ADDRESS OF FUNCTION REQUEST) 01305 M01S01292.1ma +++| STD CM+4 01306 M01S01293.1ma +++| LDC * 01307 M01S01294.1ma +++| SCBB EQU *-1 01308 M01S01295.1ma +++| STD CM+3 ADDRESS OF PARAMETER AND ERROR STATUS 01309 M01S01296.1ma +++| LDC * 01310 M01S01297.1ma +++| SCBC EQU *-1 01311 M01S01298.1ma +++| STD CM+2 SUBSYSTEM QUEUE PRIORITY 01312 M01S01299.1ma +++| LDN 2 FUNCTION CODE 01313 M01S01300.1ma +++| STD CM+1 01314 M01S01301.1ma +++| MONITOR TDAM SET REPLY CODE, COMPLETION BIT 01315 M01S01302.1ma +++| LDD CM+1 01316 M01S01303.1ma +++| ZJN SCB2 RETURN IF ACCEPTED 01317 M01S01304.1ma +++| SBN 4 01318 M01S01305.1ma +++| ZJN SCB2 RETURN IF SUBSYSTEM INACTIVE 01319 M01S01306.1ma +++| PJN SCB3 IF INCORRECT COMPLETION ADDRESS 01320 M01S01307.1ma +++| RJM DLY DELAY 01321 M01S01308.1ma +++| NJN SCB1 IF NOT OPERATOR OVERRIDE 01322 M01S01309.1ma +++| SCB2 LJM SCBX RETURN 01323 M01S01310.1ma +++| 01324 M01S01311.1ma +++| SCB3 LDD MA SAVE SCP ORDINAL AND JOB SEQUENCE NUMBER 01325 M01S01312.1ma +++| CWD CM 01326 M01S01313.1ma +++| SCB4 LDD MA GET SCP ORDINAL AND JOB SEQUENCE NUMBER 01327 M01S01314.1ma +++| CRD CM 01328 M01S01315.1ma +++| LDC 4000+ITET SCP INCORRECT TRANSFER ADDRESS 01329 M01S01316.1ma +++| STD CM+1 01330 M01S01317.1ma +++| MONITOR CEFM SET ERROR ON SCP 01331 M01S01318.1ma +++| LDD CM+1 01332 M01S01319.1ma +++| LMN 1 CHECK FOR SCP MOVING STATUS 01333 M01S01320.1ma +++| NJN SCB2 IF OPERATION COMPLETE OR SCP NOT FOUND 01334 M01S01321.1ma +++| RJM DLY DELAY 01335 M01S01322.1ma +++| ZJN SCB2 IF OPERATOR INTERVENTION 01336 M01S01323.1ma +++| LDD T1 RESET SCP CONTROL POINT NUMBER 01337 M01S01324.1ma +++| STD CM+2 01338 M01S01325.1ma +++| UJN SCB4 REISSUE REQUEST 01339 M01S01326.1ma +++| SWT TITLE FILE SWITCHING FUNCTION PROCESSOR. 01340 M01S01327.1ma +++| SWT SPACE 4,40 01341 M01S01328.1ma +++|*** FUNCTION 3. 01342 M01S01329.1ma +++|* FILE SWITCHING PROCESSOR. 01343 M01S01330.1ma +++|* 01344 M01S01331.1ma +++|* THIS PROCESSOR IS CALLED BY *CPUMTR* TO PROCESS AN *SST* 01345 M01S01332.1ma +++|* SYSTEM REQUEST AFTER ALL PARAMETERS HAVE BEEN VALIDATED. 01346 M01S01333.1ma +++|* 01347 M01S01334.1ma +++|* ENTRY 01348 M01S01335.1ma +++|* 01349 M01S01336.1ma +++|*T,ARG 6/0,18/ ADDR
Figure ARG
01350 M01S01337.1ma +++|* ADDR RELATIVE ADDRESS OF FUNCTION PARAMETERS. 01351 M01S01338.1ma +++|* 01352 M01S01339.1ma +++|* (SP - SP+4) = 12/ FNTR,12/ FNTS,18/ RSV,6/ FCN,11/ ST,1/ C 01353 M01S01340.1ma +++|* (SQ - SQ+4) = 24/ JSN,24/0,12/ JEJT 01354 M01S01341.1ma +++|* C COMPLETION BIT. 01355 M01S01342.1ma +++|* FCN SUBFUNCTION CODE - 01356 M01S01343.1ma +++|* CUSU = 1 CALLER UCP - SCP TO UCP SWITCH. 01357 M01S01344.1ma +++|* CUUS = 2 CALLER UCP - UCP TO SCP SWITCH. 01358 M01S01345.1ma +++|* CSUS = 3 CALLER SCP - UCP TO SCP SWITCH. 01359 M01S01346.1ma +++|* CSSU = 4 CALLER SCP - SCP TO UCP SWITCH. 01360 M01S01347.1ma +++|* FNTR FNT ORDINAL IN RECEIVER-S FNT (RETURNED PARAMETER). 01361 M01S01348.1ma +++|* (SET TO PARTNER-S CPA BY *CPUMTR* FOR *1MA*.) 01362 M01S01349.1ma +++|* FNTS FNT ORDINAL IN SOURCE-S FNT. 01363 M01S01350.1ma +++|* JEJT PARTNER JOB EJT ORDINAL (FCN = 3 OR 4). 01364 M01S01351.1ma +++|* (SET BY *CPUMTR* FOR *1MA* FOR FCN = 1 OR 2.) 01365 M01S01352.1ma +++|* JSN JOB SEQUENCE NUMBER FOR PARTNER (FCN = 3 OR 4). 01366 M01S01353.1ma +++|* RSV RESERVED FOR CDC. 01367 M01S01354.1ma +++|* ST RETURN STATUS CODE - 01368 M01S01355.1ma +++|* 00 SWITCH COMPLETED NORMALLY. 01369 M01S01356.1ma +++|* 01 FILE BUSY. 01370 M01S01357.1ma +++|* 02 PARTNER ROLLED OUT. 01371 M01S01358.1ma +++|* 03 INCORRECT FILE TYPE. 01372 M01S01359.1ma +++|* 04 PARTNER-S IDENTIFICATION NOT KNOWN. 01373 M01S01360.1ma +++|* 05 NO SPACE IN RECEIVER-S NFL. 01374 M01S01361.1ma +++|* 06 FILE LIMIT. 01375 M01S01362.1ma +++|* 07 FILE *FNTS* NOT FOUND. 01376 M01S01363.1ma +++| 01377 M01S01364.1ma +++| 01378 M01S01365.1ma +++| SWT BSS 0 ENTRY 01379 M01S01366.1ma +++| LDN 0 INITIALIZE 01380 M01S01367.1ma +++| STD FA 01381 M01S01368.1ma +++| STD RC 01382 M01S01369.1ma +++| LDN SFIN SET JOB INTERLOCK 01383 M01S01370.1ma +++| RJM PJI 01384 M01S01371.1ma +++| ZJN SWT1 IF INTERLOCK SET 01385 M01S01372.1ma +++| LDN RC02 * JOB ROLLED OUT.* 01386 M01S01373.1ma +++| STD RC 01387 M01S01374.1ma +++| NFA SP+1,R SET UP FOR EXIT 01388 M01S01375.1ma +++| CRD FN 01389 M01S01376.1ma +++| ADN FSTL 01390 M01S01377.1ma +++| CRM FS,ON 01391 M01S01378.1ma +++| CRM FBUF,ON 01392 M01S01379.1ma +++| LDD SP+3 01393 M01S01380.1ma +++| LPN 1 01394 M01S01381.1ma +++| ZJP SFP3.1 IF SF = 2 OR 4 01395 M01S01382.1ma +++| LJM SRC SET REPLY CODE 01396 M01S01383.1ma +++| 01397 M01S01384.1ma +++| SWT1 LDD SP+3 GET SUB FUNCTION 01398 M01S01385.1ma +++| ZJN SWT2 IF ZERO 01399 M01S01386.1ma +++| SBN 5 01400 M01S01387.1ma +++| PJN SWT2 IF OUT OF RANGE 01401 M01S01388.1ma +++| LDD SP+3 01402 M01S01389.1ma +++| LPN 1 01403 M01S01390.1ma +++| ZJN SFP IF SF = 2 OR 4 (SEND FILE TO PARTNER) 01404 M01S01391.1ma +++| LJM GFP SF = 1 OR 3 (GET FILE FROM PARTNER) 01405 M01S01392.1ma +++| 01406 M01S01393.1ma +++| SWT2 LDN 0 01407 M01S01394.1ma +++| RJM CHG CONDITIONALLY HANG PP 01408 M01S01395.1ma +++| LDK RC10 * INCORRECT SUBFUNCTION.* 01409 M01S01396.1ma +++| STD RC 01410 M01S01397.1ma +++| LJM SFP3 CLEAR JOB INTERLOCK 01411 M01S01398.1ma +++| SFP SPACE 4,15 01412 M01S01399.1ma +++|** SFP - SEND FILE TO PARTNER. 01413 M01S01400.1ma +++|* 01414 M01S01401.1ma +++|* ENTRY (SP+1) = SOURCE FNT ORDINAL. 01415 M01S01402.1ma +++|* 01416 M01S01403.1ma +++|* EXIT (FA) = NEW ADDRESS OF FNT. 01417 M01S01404.1ma +++|* (RC) = REPLY CODE. 01418 M01S01405.1ma +++|* 01419 M01S01406.1ma +++|* USES T1, CM - CM+4. 01420 M01S01407.1ma +++|* 01421 M01S01408.1ma +++|* CALLS CCP, CLF, PJI, RTC, UIE. 01422 M01S01409.1ma +++|* 01423 M01S01410.1ma +++|* MACROS NFA. 01424 M01S01411.1ma +++| 01425 M01S01412.1ma +++| 01426 M01S01413.1ma +++| SFP BSS 0 ENTRY 01427 M01S01414.1ma +++| NFA SP+1,R GET FNT/FST 01428 M01S01415.1ma +++| CRD FN 01429 M01S01416.1ma +++| CRD CM 01430 M01S01417.1ma +++| ADN FSTL 01431 M01S01418.1ma +++| CRM FS,ON 01432 M01S01419.1ma +++| CRM FBUF,ON 01433 M01S01420.1ma +++| 01434 M01S01421.1ma +++|* CHANGE FILE TYPE. 01435 M01S01422.1ma +++| 01436 M01S01423.1ma +++| LDD CM+4 01437 M01S01424.1ma +++| LPN 77 01438 M01S01425.1ma +++| ADC LIFT*100 SET *LIBRARY* FILE TYPE 01439 M01S01426.1ma +++| STD CM+4 01440 M01S01427.1ma +++| NFA SP+1,R 01441 M01S01428.1ma +++| CWD CM 01442 M01S01429.1ma +++| 01443 M01S01430.1ma +++|* CHANGE TO RECEIVER-S CP. 01444 M01S01431.1ma +++| 01445 M01S01432.1ma +++| LDD SP SET PARTNER CP 01446 M01S01433.1ma +++| STM CCPA 01447 M01S01434.1ma +++| LDN 0 CHANGE TO PARTNER 01448 M01S01435.1ma +++| RJM CCP 01449 M01S01436.1ma +++| ZJN SFP1 IF SUCCESSFUL 01450 M01S01437.1ma +++| STD T1 SAVE REPLY 01451 M01S01438.1ma +++| LDN RC02 * JOB ROLLED OUT.* 01452 M01S01439.1ma +++| STD RC 01453 M01S01440.1ma +++| LDD T1 GET REPLY 01454 M01S01441.1ma +++| SBN 1 01455 M01S01442.1ma +++| NJN SFP2 IF WRONG JOB 01456 M01S01443.1ma +++| UJN SFP3 CLEAR JOB INTERLOCK 01457 M01S01444.1ma +++| 01458 M01S01445.1ma +++|* CREATE LOCAL FNT IN RECEIVER-S NFL. 01459 M01S01446.1ma +++| 01460 M01S01447.1ma +++| SFP1 RJM CLF CREATE LOCAL FNT 01461 M01S01448.1ma +++| NJN SFP2 IF FILE NOT CREATED 01462 M01S01449.1ma +++| 01463 M01S01450.1ma +++|* WRITE FNT/FST INTO RECEIVER-S NFL. 01464 M01S01451.1ma +++| 01465 M01S01452.1ma +++| LDM CCPB GET EJT ORDINAL OF CALLER 01466 M01S01453.1ma +++| RJM UIE UPDATE QFT ENTRY 01467 M01S01454.1ma +++| LDD FS+4 SET FST NOT BUSY 01468 M01S01455.1ma +++| SCN 1 01469 M01S01456.1ma +++| ADN 1 01470 M01S01457.1ma +++| STD FS+4 01471 M01S01458.1ma +++| NFA FA,R COMPUTE NFL ADDRESS 01472 M01S01459.1ma +++| CWD FN WRITE FNT 01473 M01S01460.1ma +++| ADN FSTL 01474 M01S01461.1ma +++| CWM FS,ON WRITE FST 01475 M01S01462.1ma +++| CWM FBUF,ON WRITE UTILITY WORD OF FST 01476 M01S01463.1ma +++| 01477 M01S01464.1ma +++|* RETURN TO CALLING JOB. 01478 M01S01465.1ma +++| 01479 M01S01466.1ma +++| SFP2 RJM RTC RETURN TO CALLER 01480 M01S01467.1ma +++| 01481 M01S01468.1ma +++|* CLEAR JOB INTERLOCK. 01482 M01S01469.1ma +++| 01483 M01S01470.1ma +++| SFP3 LDN CFIN CLEAR JOB INTERLOCK 01484 M01S01471.1ma +++| RJM PJI 01485 M01S01472.1ma +++| 01486 M01S01473.1ma +++|* TERMINATION PROCESSING - CHECK FOR ERROR. 01487 M01S01474.1ma +++| 01488 M01S01475.1ma +++| LDD RC 01489 M01S01476.1ma +++| ZJN SFP4 IF NO ERROR 01490 M01S01477.1ma +++| 01491 M01S01478.1ma +++|* CLEAR *LIBRARY* FILE TYPE IN FNT (FILE NOT SWITCHED). 01492 M01S01479.1ma +++| 01493 M01S01480.1ma +++| SFP3.1 LDD FS+4 SET FILE NOT BUSY 01494 M01S01481.1ma +++| SCN 1 01495 M01S01482.1ma +++| ADN 1 01496 M01S01483.1ma +++| STD FS+4 01497 M01S01484.1ma +++| NFA SP+1,R UPDATE FNT 01498 M01S01485.1ma +++| CWD FN 01499 M01S01486.1ma +++| ADN FSTL UPDATE FST 01500 M01S01487.1ma +++| CWD FS 01501 M01S01488.1ma +++| UJN SRC SET REPLY CODE 01502 M01S01489.1ma +++| 01503 M01S01490.1ma +++| SFP4 LDD SP+1 FNT ORDINAL OF SOURCE FNT 01504 M01S01491.1ma +++|* LJM DLF DELETE LOCAL FNT 01505 M01S01492.1ma +++| DLF SPACE 4,10 01506 M01S01493.1ma +++|** DLF - DELETE LOCAL FNT. 01507 M01S01494.1ma +++|* 01508 M01S01495.1ma +++|* ENTRY (A) = FNT ORDINAL. 01509 M01S01496.1ma +++|* 01510 M01S01497.1ma +++|* USES CM - CM+4. 01511 M01S01498.1ma +++|* 01512 M01S01499.1ma +++|* EXIT TO *SRC*. 01513 M01S01500.1ma +++|* 01514 M01S01501.1ma +++|* MACROS MONITOR. 01515 M01S01502.1ma +++| 01516 M01S01503.1ma +++| 01517 M01S01504.1ma +++| DLF BSS 0 ENTRY 01518 M01S01505.1ma +++| STD CM+4 SET FNT ORDINAL 01519 M01S01506.1ma +++| LDN DLFS DELETE FNT 01520 M01S01507.1ma +++| STD CM+1 01521 M01S01508.1ma +++| MONITOR PLFM 01522 M01S01509.1ma +++|* LJM SRC SET REPLY CODE 01523 M01S01510.1ma +++| SRC SPACE 4,10 01524 M01S01511.1ma +++|** SRC - SET REPLY CODE. 01525 M01S01512.1ma +++|* 01526 M01S01513.1ma +++|* ENTRY (IR+3 - IR+4) = RELATIVE ADDRESS OF PARAMETER BLOCK. 01527 M01S01514.1ma +++|* (FA) = FNT ORDINAL. 01528 M01S01515.1ma +++|* (RC) = REPLY CODE. 01529 M01S01516.1ma +++|* 01530 M01S01517.1ma +++|* EXIT TO *DPP*. 01531 M01S01518.1ma +++|* TO *ERR* IF INCORRECT REQUEST ADDRESS. 01532 M01S01519.1ma +++|* 01533 M01S01520.1ma +++|* CALLS SRA. 01534 M01S01521.1ma +++| 01535 M01S01522.1ma +++| 01536 M01S01523.1ma +++| SRC LDD FA GET FNT ORDINAL 01537 M01S01524.1ma +++| STD SP 01538 M01S01525.1ma +++| LDD RC GET REPLY CODE 01539 M01S01526.1ma +++| SHN 1 01540 M01S01527.1ma +++| ADN 1 SET COMPLETION BIT 01541 M01S01528.1ma +++| STD SP+4 01542 M01S01529.1ma +++| RJM SRA SET REQUEST ADDRESS 01543 M01S01530.1ma +++| ZJN SRC1 IF INCORRECT ADDRESS 01544 M01S01531.1ma +++| CWD SP UPDATE *ADDR* 01545 M01S01532.1ma +++| LJM DPP DROP PP 01546 M01S01533.1ma +++| 01547 M01S01534.1ma +++| SRC1 LDC =C* INCORRECT REQUEST.* 01548 M01S01535.1ma +++| LJM ERR PROCESS ERROR 01549 M01S01536.1ma +++| GFP SPACE 4,15 01550 M01S01537.1ma +++|** GFP - GET FILE FROM PARTNER. 01551 M01S01538.1ma +++|* 01552 M01S01539.1ma +++|* ENTRY (SP+1) = FNT ORDINAL OF FILE TO BE SWITCHED. 01553 M01S01540.1ma +++|* 01554 M01S01541.1ma +++|* EXIT (FA) = NEW ADDRESS OF FNT. 01555 M01S01542.1ma +++|* (RC) = REPLY CODE. 01556 M01S01543.1ma +++|* 01557 M01S01544.1ma +++|* USES T1, CM - CM+4. 01558 M01S01545.1ma +++|* 01559 M01S01546.1ma +++|* CALLS CCP, CLF, PJI, RTC, UIE. 01560 M01S01547.1ma +++|* 01561 M01S01548.1ma +++|* MACROS MONITOR, NFA. 01562 M01S01549.1ma +++| 01563 M01S01550.1ma +++| 01564 M01S01551.1ma +++| GFP BSS 0 ENTRY 01565 M01S01552.1ma +++| 01566 M01S01553.1ma +++|* CREATE LOCAL FNT IN CALLER-S NFL. 01567 M01S01554.1ma +++| 01568 M01S01555.1ma +++| RJM CLF CREATE LOCAL FNT 01569 M01S01556.1ma +++| NJN GFP1 IF FILE NOT CREATED 01570 M01S01557.1ma +++| 01571 M01S01558.1ma +++|* CHANGE TO PARTNER CP. 01572 M01S01559.1ma +++| 01573 M01S01560.1ma +++| LDD SP SET CP ADDRESS 01574 M01S01561.1ma +++| STM CCPA 01575 M01S01562.1ma +++| LDN 0 CHANGE TO PARTNER 01576 M01S01563.1ma +++| RJM CCP 01577 M01S01564.1ma +++| ZJN GFP2 IF SUCCESSFUL 01578 M01S01565.1ma +++| STD T1 SAVE REPLY CODE 01579 M01S01566.1ma +++| LDN RC02 * JOB ROLLED OUT.* 01580 M01S01567.1ma +++| STD RC SET ERROR CODE 01581 M01S01568.1ma +++| LDD T1 REPLY CODE 01582 M01S01569.1ma +++| SBN 1 01583 M01S01570.1ma +++| NJN GFP3 IF WRONG JOB 01584 M01S01571.1ma +++| GFP1 LJM GFP6 CLEAR JOB INTERLOCK 01585 M01S01572.1ma +++| 01586 M01S01573.1ma +++|* SET FILE BUSY. 01587 M01S01574.1ma +++| 01588 M01S01575.1ma +++| GFP2 NFA SP+1,R COMPUTE NFL ADDRESS 01589 M01S01576.1ma +++| CRD FN READ FNT 01590 M01S01577.1ma +++| LDN ZERL 01591 M01S01578.1ma +++| CRD CM 01592 M01S01579.1ma +++| LDD SP+1 FNT ORDINAL 01593 M01S01580.1ma +++| STD CM+4 01594 M01S01581.1ma +++| LDD MA FILE NAME 01595 M01S01582.1ma +++| CWD FN 01596 M01S01583.1ma +++| MONITOR SFBM 01597 M01S01584.1ma +++| LDD CM+1 01598 M01S01585.1ma +++| ZJN GFP4 IF FILE NOT BUSY 01599 M01S01586.1ma +++| LDN RC01 * FILE BUSY.* 01600 M01S01587.1ma +++| STD RC SET ERROR CODE 01601 M01S01588.1ma +++| GFP3 UJN GFP5 RETURN TO CALLER 01602 M01S01589.1ma +++| 01603 M01S01590.1ma +++|* GET FNT/FST OF FILE TO BE SWITCHED. 01604 M01S01591.1ma +++| 01605 M01S01592.1ma +++| GFP4 NFA SP+1,R COMPUTE NFL ADDRESS 01606 M01S01593.1ma +++| CRD FN READ FNT 01607 M01S01594.1ma +++| ADN FSTL 01608 M01S01595.1ma +++| CRM FS,ON 01609 M01S01596.1ma +++| CRM FBUF,ON 01610 M01S01597.1ma +++| 01611 M01S01598.1ma +++|* DELETE OLD FNT. 01612 M01S01599.1ma +++| 01613 M01S01600.1ma +++| LDD SP+1 FNT ORDINAL 01614 M01S01601.1ma +++| STD CM+4 01615 M01S01602.1ma +++| LDN DLFS DELETE FNT 01616 M01S01603.1ma +++| STD CM+1 01617 M01S01604.1ma +++| MONITOR PLFM 01618 M01S01605.1ma +++| 01619 M01S01606.1ma +++|* CHANGE BACK TO CALLING CP. 01620 M01S01607.1ma +++| 01621 M01S01608.1ma +++| GFP5 RJM RTC RETURN TO CALLER 01622 M01S01609.1ma +++| 01623 M01S01610.1ma +++|* CLEAR JOB INTERLOCK. 01624 M01S01611.1ma +++| 01625 M01S01612.1ma +++| GFP6 LDN CFIN CLEAR JOB INTERLOCK 01626 M01S01613.1ma +++| RJM PJI 01627 M01S01614.1ma +++| 01628 M01S01615.1ma +++|* TERMINATION PROCESSING - CHECK FOR ERROR CODE. 01629 M01S01616.1ma +++| 01630 M01S01617.1ma +++| LDD RC 01631 M01S01618.1ma +++| ZJN GFP7 IF NO ERROR 01632 M01S01619.1ma +++| LDD FA 01633 M01S01620.1ma +++| ZJN GFP8 IF NO NEW FNT CREATED 01634 M01S01621.1ma +++| STD T1 SAVE ORDINAL 01635 M01S01622.1ma +++| LDN 0 CLEAR FNT ORDINAL 01636 M01S01623.1ma +++| STD FA 01637 M01S01624.1ma +++| LDD T1 01638 M01S01625.1ma +++| LJM DLF DELETE LOCAL FNT 01639 M01S01626.1ma +++| 01640 M01S01627.1ma +++|* WRITE FNT INTO RECEIVER-S NFL. 01641 M01S01628.1ma +++| 01642 M01S01629.1ma +++| GFP7 LDD SQ+4 GET EJT ORDINAL OF PARTNER 01643 M01S01630.1ma +++| RJM UIE UPDATE QFT ENTRY 01644 M01S01631.1ma +++| LDD FS+4 SET FST NOT BUSY 01645 M01S01632.1ma +++| SCN 1 01646 M01S01633.1ma +++| ADN 1 01647 M01S01634.1ma +++| STD FS+4 01648 M01S01635.1ma +++| NFA FA,R COMPUTE NFL ADDRESS 01649 M01S01636.1ma +++| CWD FN WRITE FNT 01650 M01S01637.1ma +++| ADN FSTL 01651 M01S01638.1ma +++| CWM FS,ON WRITE FST 01652 M01S01639.1ma +++| CWM FBUF,ON WRITE UTILITY WORD OF FST 01653 M01S01640.1ma +++| GFP8 LJM SRC SET REPLY CODE 01654 M01S01641.1ma +++| CCP SPACE 4,20 01655 M01S01642.1ma +++|** CCP - CHANGE CONTROL POINT. 01656 M01S01643.1ma +++|* 01657 M01S01644.1ma +++|* *CCP* CHANGES TO THE SPECIFIED CONTROL POINT, TRYING 5 TIMES 01658 M01S01645.1ma +++|* BEFORE GIVING UP. IF CHANGE IS MADE, THE EJT ORDINAL IS 01659 M01S01646.1ma +++|* VERIFIED TO ENSURE THE JOB IS THE CORRECT ONE. 01660 M01S01647.1ma +++|* 01661 M01S01648.1ma +++|* ENTRY (A) = 0 CHANGE TO PARTNER CP. 01662 M01S01649.1ma +++|* (A) .NE. 0 CHANGE BACK TO CALLER CP. 01663 M01S01650.1ma +++|* (CCPA) = NEW CP ADDRESS IF A=0. 01664 M01S01651.1ma +++|* 01665 M01S01652.1ma +++|* EXIT (A) = 0 IF CHANGE MADE SUCCESSFULLY. 01666 M01S01653.1ma +++|* (A) = 1 IF CHANGE NOT POSSIBLE. 01667 M01S01654.1ma +++|* (A) = 2 IF CHANGE MADE, BUT WRONG EJT ORDINAL. 01668 M01S01655.1ma +++|* 01669 M01S01656.1ma +++|* USES T1, CM - CM+4. 01670 M01S01657.1ma +++|* 01671 M01S01658.1ma +++|* CALLS DLY. 01672 M01S01659.1ma +++|* 01673 M01S01660.1ma +++|* MACROS MONITOR. 01674 M01S01661.1ma +++| 01675 M01S01662.1ma +++| 01676 M01S01663.1ma +++| CCP SUBR ENTRY/EXIT 01677 M01S01664.1ma +++| NJN CCP1 IF CHANGING BACK TO CALLER 01678 M01S01665.1ma +++| 01679 M01S01666.1ma +++|* PRESET FOR CHANGE TO PARTNER. 01680 M01S01667.1ma +++| 01681 M01S01668.1ma +++| LDD CP GET CALLER EJT ORDINAL 01682 M01S01669.1ma +++| ADN TFSW 01683 M01S01670.1ma +++| CRD CM 01684 M01S01671.1ma +++| LDD CM 01685 M01S01672.1ma +++| STM CCPB 01686 M01S01673.1ma +++| LDD SQ+4 SET EJT ORDINAL FOR VERIFY 01687 M01S01674.1ma +++| UJN CCP2 PROCESS CALL 01688 M01S01675.1ma +++| 01689 M01S01676.1ma +++|* PRESET FOR CHANGE BACK TO CALLER. 01690 M01S01677.1ma +++| 01691 M01S01678.1ma +++| CCP1 LDM CCPC GET CALLING CP ADDRESS 01692 M01S01679.1ma +++| STM CCPA NEW CPA 01693 M01S01680.1ma +++| LDM CCPB SET EJT ORDINAL FOR VERIFY 01694 M01S01681.1ma +++| CCP2 STD T1 01695 M01S01682.1ma +++| LDD CP SAVE OLD CP 01696 M01S01683.1ma +++| STM CCPC 01697 M01S01684.1ma +++| 01698 M01S01685.1ma +++|* CHANGE TO NEW CP, TRYING 5 TIMES. 01699 M01S01686.1ma +++| 01700 M01S01687.1ma +++| LDN 5 INITIALIZE RETRY COUNT 01701 M01S01688.1ma +++| STM CCPD 01702 M01S01689.1ma +++| CCP3 LDC ** 01703 M01S01690.1ma +++| CCPA EQU *-1 NEW CPA
| Line S01691 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01704 M02S01691.273l780 ---| STD CP 01705 M01S01692.1ma +++| SHN -7 01706 M01S01693.1ma +++| STD CM+1 01707 M01S01694.1ma +++| MONITOR CCAM CHANGE CP 01708 M01S01695.1ma +++| LDD CM+1 01709 M01S01696.1ma +++| ZJN CCP6 IF CHANGE MADE 01710 M01S01697.1ma +++| SOM CCPD DECREMENT RETRY COUNT 01711 M01S01698.1ma +++| ZJN CCP4 IF 5 TIMES 01712 M01S01699.1ma +++| RJM DLY DELAY 01713 M01S01700.1ma +++| UJN CCP3 TRY AGAIN 01714 M01S01701.1ma +++| 01715 M01S01702.1ma +++|* CHANGE REJECTED, RETURN ERROR. 01716 M01S01703.1ma +++| 01717 M01S01704.1ma +++| CCP4 LDM CCPC RESET TO OLD CP 01718 M01S01705.1ma +++| STD CP 01719 M01S01706.1ma +++| LDN 1 CHANGE NOT POSSIBLE 01720 M01S01707.1ma +++| CCP5 LJM CCPX RETURN 01721 M01S01708.1ma +++| 01722 M01S01709.1ma +++|* CHANGE MADE, VERIFY JOB EJT ORDINAL. 01723 M01S01710.1ma +++| 01724 M01S01711.1ma +++| CCP6 LDD CP 01725 M01S01712.1ma +++| ADN TFSW GET JOB EJT ORDINAL 01726 M01S01713.1ma +++| CRD CM 01727 M01S01714.1ma +++| LDD T1 VERIFY JOB EJT ORDINAL 01728 M01S01715.1ma +++| LMD CM 01729 M01S01716.1ma +++| ZJN CCP5 IF EJT ORDINAL MATCHES 01730 M01S01717.1ma +++| LDN 2 WRONG JOB 01731 M01S01718.1ma +++| UJN CCP5 RETURN 01732 M01S01719.1ma +++| 01733 M01S01720.1ma +++| 01734 M01S01721.1ma +++| CCPB BSS 1 CALLER EJT ORDINAL 01735 M01S01722.1ma +++| CCPC BSS 1 CALLER CPA 01736 M01S01723.1ma +++| CCPD CON 5 RETRY COUNT 01737 M01S01724.1ma +++| CLF SPACE 4,15 01738 M01S01725.1ma +++|** CLF - CREATE LOCAL FNT ENTRY. 01739 M01S01726.1ma +++|* 01740 M01S01727.1ma +++|* *CLF* CREATES A LOCAL FNT ENTRY FOR THE JOB TO WHICH THE 01741 M01S01728.1ma +++|* PP IS ASSIGNED. 01742 M01S01729.1ma +++|* 01743 M01S01730.1ma +++|* EXIT (A) = 0 IF FILE CREATED. 01744 M01S01731.1ma +++|* (A) = (RC) = *RC05*, IF NO NFL AVAILABLE. 01745 M01S01732.1ma +++|* (A) = (RC) = *RC06*, IF LOCAL FILE LIMIT. 01746 M01S01733.1ma +++|* (FA) = FNT ORDINAL IF A=0. 01747 M01S01734.1ma +++|* 01748 M01S01735.1ma +++|* USES CM - CM+4. 01749 M01S01736.1ma +++|* 01750 M01S01737.1ma +++|* CALLS NFL. 01751 M01S01738.1ma +++|* 01752 M01S01739.1ma +++|* MACROS MONITOR. 01753 M01S01740.1ma +++| 01754 M01S01741.1ma +++| 01755 M01S01742.1ma +++| CLF3 LDD CP REQUEST ADDITIONAL 100B WORDS OF NFL 01756 M01S01743.1ma +++| ADN FLSW 01757 M01S01744.1ma +++| CRD CM 01758 M01S01745.1ma +++| AOD CM 01759 M01S01746.1ma +++| RJM NFL 01760 M01S01747.1ma +++| ZJN CLF1 IF NFL ASSIGNED 01761 M01S01748.1ma +++| LDN RC05 * NOT ENOUGH NFL.* 01762 M01S01749.1ma +++| CLF4 STD RC 01763 M01S01750.1ma +++| 01764 M01S01751.1ma +++| CLF SUBR ENTRY/EXIT 01765 M01S01752.1ma +++| 01766 M01S01753.1ma +++|* CREATE FNT IN RECEIVER-S NFL. 01767 M01S01754.1ma +++| 01768 M01S01755.1ma +++| CLF1 LDD MA SET FILE NAME IN MB 01769 M01S01756.1ma +++| CWM CLFA,ON 01770 M01S01757.1ma +++| LDN CRFS CREATE LOCAL FNT ENTRY 01771 M01S01758.1ma +++| STD CM+1 01772 M01S01759.1ma +++| MONITOR PLFM 01773 M01S01760.1ma +++| LDD CM+1 SAVE FNT ORDINAL 01774 M01S01761.1ma +++| STD FA 01775 M01S01762.1ma +++| LDD CM+4 01776 M01S01763.1ma +++| ZJN CLFX IF FILE CREATED, RETURN 01777 M01S01764.1ma +++| 01778 M01S01765.1ma +++|* FNT NOT CREATED, PROCESS REJECT. 01779 M01S01766.1ma +++| 01780 M01S01767.1ma +++| SHN 21-1 01781 M01S01768.1ma +++| MJN CLF2 IF LOCAL FILE LIMIT 01782 M01S01769.1ma +++| SHN 21-2-21+1+22 01783 M01S01770.1ma +++| MJN CLF3 IF MORE NFL NEEDED 01784 M01S01771.1ma +++| 01785 M01S01772.1ma +++|* DUPLICATE FILE NAME, CHANGE NAME AND TRY AGAIN. 01786 M01S01773.1ma +++| 01787 M01S01774.1ma +++| LDD HN CHANGE FILE NAME 01788 M01S01775.1ma +++| RAM CLFA+3 01789 M01S01776.1ma +++| SHN -6 01790 M01S01777.1ma +++| SBN 1R+ 01791 M01S01778.1ma +++| MJN CLF1 IF FILE NAME STILL VALID 01792 M01S01779.1ma +++| CLF2 LDN RC06 * LOCAL FILE LIMIT.* 01793 M01S01780.1ma +++| UJN CLF4 SET ERROR CODE 01794 M01S01781.1ma +++| 01795 M01S01782.1ma +++| 01796 M01S01783.1ma +++| CLFA VFD 42/0LZZZZZGA,18/0 SCRATCH FILE NAME 01797 M01S01784.1ma +++| PJI SPACE 4,20 01798 M01S01785.1ma +++|** PJI - PROCESS JOB INTERLOCK. 01799 M01S01786.1ma +++|* 01800 M01S01787.1ma +++|* *PJI* CLEARS OR SETS THE JOB INTERLOCK ON THE JOB 01801 M01S01788.1ma +++|* TO WHICH THE PP IS CURRENTLY ASSIGNED. 01802 M01S01789.1ma +++|* 01803 M01S01790.1ma +++|* ENTRY (A) = CFIN CLEAR INTERLOCK. 01804 M01S01791.1ma +++|* (A) = SFIN SET INTERLOCK. 01805 M01S01792.1ma +++|* 01806 M01S01793.1ma +++|* EXIT (A) = 0 INTERLOCK SET/CLEAR. 01807 M01S01794.1ma +++|* (A) = 1 INTERLOCK ALREADY SET (*SFIN* OPTION). 01808 M01S01795.1ma +++|* 01809 M01S01796.1ma +++|* USES T1, CM - CM+4. 01810 M01S01797.1ma +++|* 01811 M01S01798.1ma +++|* CALLS SFI. 01812 M01S01799.1ma +++|* 01813 M01S01800.1ma +++|* MACROS SFA. 01814 M01S01801.1ma +++| 01815 M01S01802.1ma +++| 01816 M01S01803.1ma +++| PJI SUBR ENTRY/EXIT 01817 M01S01804.1ma +++| STD T1 SAVE SET/CLEAR OPTION 01818 M01S01805.1ma +++| LDD CP GET JOB FNT ORDINAL 01819 M01S01806.1ma +++| ADN TFSW 01820 M01S01807.1ma +++| CRD CM 01821 M01S01808.1ma +++| SFA EJT,CM CALCULATE ABSOLUTE ADDRESS OF EJT ENTRY 01822 M01S01809.1ma +++| RJM SFI SET/CLEAR JOB INTERLOCK 01823 M01S01810.1ma +++| UJN PJIX RETURN 01824 M01S01811.1ma +++| RTC SPACE 4,15 01825 M01S01812.1ma +++|** RTC - RETURN TO CALLER. 01826 M01S01813.1ma +++|* 01827 M01S01814.1ma +++|* *RTC* CHANGES CONTROL POINTS BACK TO THE CALLER JOB. 01828 M01S01815.1ma +++|* 01829 M01S01816.1ma +++|* ENTRY JOB AT PARTNER CP. 01830 M01S01817.1ma +++|* *CCP* ALREADY CALLED WITH A=0. 01831 M01S01818.1ma +++|* 01832 M01S01819.1ma +++|* EXIT JOB AT CALLER CP. 01833 M01S01820.1ma +++|* 01834 M01S01821.1ma +++|* CALLS CCP, CHG. 01835 M01S01822.1ma +++| 01836 M01S01823.1ma +++| 01837 M01S01824.1ma +++| RTC SUBR ENTRY/EXIT 01838 M01S01825.1ma +++| RTC1 LDN 1 CHANGE BACK TO CALLER CONTROL POINT 01839 M01S01826.1ma +++| RJM CCP 01840 M01S01827.1ma +++| ZJN RTCX IF CHANGE SUCCESSFUL 01841 M01S01828.1ma +++| LDN 0 01842 M01S01829.1ma +++| RJM CHG CONDITIONALLY HANG PP 01843 M01S01830.1ma +++| LDD CP CHECK ERROR FLAG 01844 M01S01831.1ma +++| ADK STSW 01845 M01S01832.1ma +++| CRD CM 01846 M01S01833.1ma +++| LDD CM+1 01847 M01S01834.1ma +++| SBK ORET 01848 M01S01835.1ma +++| PJN RTC2 IF *ORET* OR HIGHER ERROR 01849 M01S01836.1ma +++| UJN RTC1 RETRY REQUEST 01850 M01S01837.1ma +++| 01851 M01S01838.1ma +++| RTC2 LJM DPP DROP PP 01852 M01S01839.1ma +++| UIE SPACE 4,15 01853 M01S01840.1ma +++|* UIE - UPDATE QFT ENTRY. 01854 M01S01841.1ma +++|* 01855 M01S01842.1ma +++|* *UIE* CHANGES THE JOB EJT ORDINAL ASSIGNMENT IN THE 01856 M01S01843.1ma +++|* QFT ENTRY IF THE LOCAL FILE TYPE IS *QFFT*. 01857 M01S01844.1ma +++|* 01858 M01S01845.1ma +++|* ENTRY (A) = EJT ORDINAL OF JOB WITH QFT ENTRY ASSIGNED. 01859 M01S01846.1ma +++|* (FN - FN+4) = LOCAL FNT ENTRY. 01860 M01S01847.1ma +++|* (FS - FS+4) = LOCAL FST ENTRY. 01861 M01S01848.1ma +++|* 01862 M01S01849.1ma +++|* USES T1, T2, T3, CM - CM+4, CN - CN+4. 01863 M01S01850.1ma +++|* 01864 M01S01851.1ma +++|* CALLS SFI. 01865 M01S01852.1ma +++|* 01866 M01S01853.1ma +++|* MACROS MONITOR, SFA. 01867 M01S01854.1ma +++| 01868 M01S01855.1ma +++| 01869 M01S01856.1ma +++| UIE SUBR ENTRY/EXIT 01870 M01S01857.1ma +++| STM UIEB SAVE OLD JOB EJT ORDINAL 01871 M01S01858.1ma +++| LDD FN+4 CHECK LOCAL FILE TYPE 01872 M01S01859.1ma +++| SHN -6 01873 M01S01860.1ma +++| LMN QFFT 01874 M01S01861.1ma +++| NJN UIEX IF NOT QUEUED INPUT/OUTPUT FILE 01875 M01S01862.1ma +++| LDD CP GET NEW JOB EJT ORDINAL 01876 M01S01863.1ma +++| ADN TFSW 01877 M01S01864.1ma +++| CRD CM 01878 M01S01865.1ma +++| LDD CM 01879 M01S01866.1ma +++| STM UIEC 01880 M01S01867.1ma +++| LDN 0 INITIALIZE QFT ORDINAL 01881 M01S01868.1ma +++| STD T3 01882 M01S01869.1ma +++| LDK QFTP GET MAXIMUM ENTRIES IN QFT 01883 M01S01870.1ma +++| CRD CM 01884 M01S01871.1ma +++| LDD CM+2 01885 M01S01872.1ma +++| STD T2 01886 M01S01873.1ma +++| UIE1 AOD T3 INCREMENT TO NEXT QFT ENTRY 01887 M01S01874.1ma +++| SBD T2 01888 M01S01875.1ma +++| PJN UIE2 IF END OF QFT 01889 M01S01876.1ma +++| SFA QFT,T3 GET QFT ENTRY 01890 M01S01877.1ma +++| CRD CM 01891 M01S01878.1ma +++| ADN ENTQ-JSNQ 01892 M01S01879.1ma +++| CRD CN 01893 M01S01880.1ma +++| LDD CN CHECK FOR SAME EQUIPMENT 01894 M01S01881.1ma +++| LMD FS 01895 M01S01882.1ma +++| LPC 777 01896 M01S01883.1ma +++| NJN UIE1 IF NOT CORRECT ENTRY 01897 M01S01884.1ma +++| LDD CN+1 CHECK FOR SAME FIRST TRACK 01898 M01S01885.1ma +++| LMD FS+1 01899 M01S01886.1ma +++| NJN UIE1 IF NOT CORRECT ENTRY 01900 M01S01887.1ma +++| LDN 3 SET NUMBER OF REQUESTS FOR *UADM* 01901 M01S01888.1ma +++| STD T1 01902 M01S01889.1ma +++| LDD MA WRITE *UADM* REQUESTS TO MESSAGE BUFFER 01903 M01S01890.1ma +++| CWM UIEA,T1 01904 M01S01891.1ma +++| SFA QFT,T3 CALCULATE ABSOLUTE ADDRESS OF QFT ENTRY 01905 M01S01892.1ma +++| RJM SFI ISSUE *UTEM* TO CHANGE JOB EJT ORDINAL 01906 M01S01893.1ma +++| NJN UIE2 IF EJT ORDINAL VERIFY FAILED 01907 M01S01894.1ma +++| LJM UIEX RETURN 01908 M01S01895.1ma +++| 01909 M01S01896.1ma +++| UIE2 MONITOR HNGM HANG PP 01910 M01S01897.1ma +++| UJN UIE2 UNCONDITIONALLY HANG 01911 M01S01898.1ma +++| 01912 M01S01899.1ma +++| 01913 M01S01900.1ma +++| UIEA VFD 1/1,5/JSNQ,6/1,6/1,42/1 CHECK FILE ASSIGNED 01914 M01S01901.1ma +++| VFD 1/1,5/ENTQ,6/12D,6/0,42/0 VERIFY OLD EJT ORDINAL 01915 M01S01902.1ma +++| UIEB EQU *-1 01916 M01S01903.1ma +++| VFD 1/0,5/ENTQ,6/12D,6/0,42/0 SET NEW EJT ORDINAL 01917 M01S01904.1ma +++| UIEC EQU *-1 01918 M01S01905.1ma +++| SPACE 4,10 01919 M01S01906.1ma +++|** COMMON DECKS. 01920 M01S01907.1ma +++| 01921 M01S01908.1ma +++| 01922 M01S01909.1ma +++|*CALL COMPNFL 01923 M01S01910.1ma +++| SPACE 4,10 01924 M01S01911.1ma +++|** BUFFER FOR UTILITY FNT WORD. 01925 M01S01912.1ma +++| 01926 M01S01913.1ma +++| 01927 M01S01914.1ma +++| FBUF BSS LENF*5-2*5 REMAINDER OF FNT 01928 M01S01915.1ma +++| ERRNZ LENF-3 CHANGE BUFFER SIZE AND ALL *FBUF* ACCESS 01929 M01S01916.1ma +++| SPACE 4,10 01930 M01S01917.1ma +++| USE OVERLAY 01931 M01S01918.1ma +++| 01932 M01S01919.1ma +++| OSTL EQU *+5 *0ST* LOAD ADDRESS 01933 M01S01920.1ma +++| 01934 M01S01921.1ma +++| ERRNG BFMS-OSTL-ZSTL CHECK *0ST* LENGTH 01935 M01S01922.1ma +++| OVERFLOW E1MA 01936 M01S01923.1ma +++| TTL 1MA/2MB - EXTENDED MEMORY STORAGE REQUEST PROCESSING. 01937 M01S01924.1ma +++| TITLE 01938 M01S01925.1ma +++| OVERLAY (EXTENDED MEMORY STORAGE REQUEST.),E1MA 01939 M01S01926.1ma +++| SPACE 4,10 01940 M01S01927.1ma +++|***** 2MB - EXTENDED MEMORY STORAGE REQUEST PROCESSING. 01941 M01S01928.1ma +++|* 01942 M01S01929.1ma +++|* *2MB* PERFORMS ALL ECS RELATED STORAGE REQUESTS FOR 01943 M01S01930.1ma +++|* THE SYSTEM MONITOR. *2MB* WILL INSURE THAT AT LEAST 01944 M01S01931.1ma +++|* *MCMX* WORDS OF CM IS ASSIGNED TO THE CONTROL POINT 01945 M01S01932.1ma +++|* BEFORE REQUESTING EXTENDED MEMORY FOR THE CONTROL POINT. 01946 M01S01933.1ma +++|* IF THE CONTROL POINT HAS AN *MFL* OF LESS THAN *MCMX* AT THE 01947 M01S01934.1ma +++|* TIME EXTENDED MEMORY IS REQUESTED, THE JOB WILL BE ABORTED. 01948 M01S01935.1ma +++| RFE SPACE 4,25 01949 M01S01936.1ma +++|*** FUNCTION 0 (SUBFUNCTIONS 2 AND 4). 01950 M01S01937.1ma +++|* REQUEST EXTENDED CORE STORAGE. 01951 M01S01938.1ma +++|* 01952 M01S01939.1ma +++|* ENTRY 01953 M01S01940.1ma +++|*T ARG 6/SUB,18/FL
Figure ARG
01954 M01S01941.1ma +++|* 01955 M01S01942.1ma +++|* SUB = 2 EXTENDED MEMORY REQUEST, ABORT IF NOT AVAILABLE. 01956 M01S01943.1ma +++|* = 4 EXTENDED MEMORY REQUEST, NO ABORT IF NOT AVAILABLE. 01957 M01S01944.1ma +++|* 01958 M01S01945.1ma +++|*T FL 30/VAL,24/,1/R,1/C,1/,3/0
Figure FL
01959 M01S01946.1ma +++|* 01960 M01S01947.1ma +++|* VAL POSITIVE NON-ZERO VALUE INDICATING THE AMOUNT OF 01961 M01S01948.1ma +++|* EXTENDED MEMORY BEING REQUESTED. 01962 M01S01949.1ma +++|* R CLEAR *CMM* STATUS. 01963 M01S01950.1ma +++|* C THIS IS A *CMM* TYPE REQUEST. 01964 M01S01951.1ma +++|* 01965 M01S01952.1ma +++|* EXIT TO *ERR* IF ERRORS ENCOUNTERED. 01966 M01S01953.1ma +++|* TO *RCL* TO ENTER PP RECALL. 01967 M01S01954.1ma +++|* 01968 M01S01955.1ma +++|* USES T3 - T5, T7, CM - CM+4, FS - FS+4, SP - SP+4. 01969 M01S01956.1ma +++|* 01970 M01S01957.1ma +++|* CALLS CLM, REI, RSI. 01971 M01S01958.1ma +++|* 01972 M01S01959.1ma +++|* MACROS MONITOR. 01973 M01S01960.1ma +++| 01974 M01S01961.1ma +++| 01975 M01S01962.1ma +++| RFE SUBR ENTRY/EXIT 01976 M01S01963.1ma +++| LDK MEFL GET USER EM SHIFT COUNT (UESC) 01977 M01S01964.1ma +++| CRD CM 01978 M01S01965.1ma +++| LDD CM+2 01979 M01S01966.1ma +++| SHN -11 01980 M01S01967.1ma +++| STD CM+2 01981 M01S01968.1ma +++| SBN 4 01982 M01S01969.1ma +++| LPN 77 01983 M01S01970.1ma +++| ADD TH 01984 M01S01971.1ma +++| ERRNZ SHNI-1000 01985 M01S01972.1ma +++| STM RFEA 01986 M01S01973.1ma +++| LDC SHNI+77 01987 M01S01974.1ma +++| SBD CM+2 01988 M01S01975.1ma +++| STM RFEB 01989 M01S01976.1ma +++| LDC SHNI+3 01990 M01S01977.1ma +++| ADD CM+2 01991 M01S01978.1ma +++| STM RFEC 01992 M01S01979.1ma +++| STM RFEE 01993 M01S01980.1ma +++| LDD IR+3 RESTORE DIRECT CELL HIT DURING LOADING 01994 M01S01981.1ma +++| SHN -6 01995 M01S01982.1ma +++| ADN 1 01996 M01S01983.1ma +++| STD T5 01997 M01S01984.1ma +++| LDD FN+2 FETCH REQUEST 01998 M01S01985.1ma +++| ADC 7700 ROUND UP 01999 M01S01986.1ma +++| SHN -14 02000 M01S01987.1ma +++| ADD FN+1 02001 M01S01988.1ma +++| ADN 7 02002 M01S01989.1ma +++| SCN 7 02003 M01S01990.1ma +++| SHN 6 02004 M01S01991.1ma +++| ADD FN 02005 M01S01992.1ma +++| SHN 11 02006 M01S01993.1ma +++| STD T3 SET NEW FLE 02007 M01S01994.1ma +++| SHN -14 02008 M01S01995.1ma +++| STD T0 02009 M01S01996.1ma +++| LDN 17 ROUND VALUE TO BLOCKING SIZE 02010 M01S01997.1ma +++| RFEA SHN -4 02011 M01S01998.1ma +++|* SHN UESC-4 02012 M01S01999.1ma +++| RAD T3 02013 M01S02000.1ma +++| SHN -14 02014 M01S02001.1ma +++| ADD T0 02015 M01S02002.1ma +++| SHN 14 02016 M01S02003.1ma +++| LMD T3 02017 M01S02004.1ma +++| RFEB SHN 0 02018 M01S02005.1ma +++|* SHN -UESC 02019 M01S02006.1ma +++| STD T3 02020 M01S02007.1ma +++| SHN -14 02021 M01S02008.1ma +++| ZJN RFE1 IF REQUEST .LE. 7777B *UEBS* BLOCKS 02022 M01S02009.1ma +++| LDN PSNI 02023 M01S02010.1ma +++| STM RFED 02024 M01S02011.1ma +++| 02025 M01S02012.1ma +++|* RE-ENTER AT *RFE1* FOLLOWING CLEAR OF CM WHEN 02026 M01S02013.1ma +++|* CM INCREASE REQUIRED PRIOR TO EXTENDED MEMORY REQUEST. 02027 M01S02014.1ma +++| 02028 M01S02015.1ma +++| RFE1 LDD CP FETCH STATUS AND CONTROL WORDS 02029 M01S02016.1ma +++| ADN ECSW 02030 M01S02017.1ma +++| CRD FS 02031 M01S02018.1ma +++| ADN ELCW-ECSW 02032 M01S02019.1ma +++| CRD T7 02033 M01S02020.1ma +++| LDN ZERL 02034 M01S02021.1ma +++| CRD CM 02035 M01S02022.1ma +++| LDD FS+4 02036 M01S02023.1ma +++| RFEC SHN 3 02037 M01S02024.1ma +++|* SHN 3+UESC 02038 M01S02025.1ma +++| STD CM+1 02039 M01S02026.1ma +++| SHN -14 02040 M01S02027.1ma +++| STD CM 02041 M01S02028.1ma +++| LDD T7 02042 M01S02029.1ma +++| SBD T3 02043 M01S02030.1ma +++| RFED PJN RFE3 IF FLE .LE. MFL (EXTENDED MEMORY) 02044 M01S02031.1ma +++|* PSN (IF FLE .GT. 12 BITS) 02045 M01S02032.1ma +++| LDD IR+3 02046 M01S02033.1ma +++| SHN 21-7 02047 M01S02034.1ma +++| PJN RFE2 IF NOT *NO ABORT* 02048 M01S02035.1ma +++| LJM RFEX COMPLETE PROCESSING 02049 M01S02036.1ma +++| 02050 M01S02037.1ma +++| RFE2 LDC =C* FL REQUEST BEYOND MFL (EXTENDED MEMORY).* 02051 M01S02038.1ma +++| LJM ERR PROCESS ERROR ABORT 02052 M01S02039.1ma +++| 02053 M01S02040.1ma +++|* CHECK FOR AT LEAST MINIMUM CM FL AVAILABLE. 02054 M01S02041.1ma +++| 02055 M01S02042.1ma +++| RFE3 LDD FL CHECK CM FL 02056 M01S02043.1ma +++| ADC -MCMX/100 02057 M01S02044.1ma +++| PJN RFE4 IF FL .GE. MINIMUM FL WITH EXTENDED MEMORY 02058 M01S02045.1ma +++| LJM RFE12 GET ENOUGH CM BEFORE REQUESTING ECS 02059 M01S02046.1ma +++| 02060 M01S02047.1ma +++|* REQUEST EXTENDED MEMORY. 02061 M01S02048.1ma +++| 02062 M01S02049.1ma +++| RFE4 LDD CP CHECK IF JOB ROLLABLE 02063 M01S02050.1ma +++| ADN JCIW 02064 M01S02051.1ma +++| CRD CM 02065 M01S02052.1ma +++| LDD CM+3 CHECK FOR *DIS* JOB 02066 M01S02053.1ma +++| LPC 1000 02067 M01S02054.1ma +++| ADD CM+2 CHECK FOR NON-ROLLABLE JOB 02068 M01S02055.1ma +++| NJN RFE5 IF JOB NOT ROLLABLE 02069 M01S02056.1ma +++| LDN SSTL CHECK EXTENDED MEMORY CONTROL 02070 M01S02057.1ma +++| CRD CM 02071 M01S02058.1ma +++| LDD CM 02072 M01S02059.1ma +++| SHN 21-5 02073 M01S02060.1ma +++| MJN RFE6 IF USER EXTENDED MEMORY DISABLED 02074 M01S02061.1ma +++| RFE5 LDD FS+4 SAVE CURRENT FLE 02075 M01S02062.1ma +++| STD T4 02076 M01S02063.1ma +++| LDD T3 02077 M01S02064.1ma +++| RJM REI REQUEST EXTENDED MEMORY INCREASE 02078 M01S02065.1ma +++| ZJN RFE7 IF ASSIGNED 02079 M01S02066.1ma +++| RFE6 LJM RFE9 IF REQUEST PENDING 02080 M01S02067.1ma +++| 02081 M01S02068.1ma +++|* EXTENDED MEMORY ASSIGNED. 02082 M01S02069.1ma +++| 02083 M01S02070.1ma +++| RFE7 LDD CP READ ECSW AND SEPW WORDS 02084 M01S02071.1ma +++| ADN ECSW 02085 M01S02072.1ma +++| CRD FS 02086 M01S02073.1ma +++| ADN SEPW-ECSW 02087 M01S02074.1ma +++| CRD CM 02088 M01S02075.1ma +++| LDD CM CHECK ENTRY POINTS 02089 M01S02076.1ma +++| LPN 1 02090 M01S02077.1ma +++| NJN RFE8 IF SSM= ENTRY POINT PRESENT 02091 M01S02078.1ma +++| STD CM+1 02092 M01S02079.1ma +++| STD CM+3 02093 M01S02080.1ma +++| LDD FS+4 02094 M01S02081.1ma +++| SBD T4 02095 M01S02082.1ma +++| MJN RFE8 IF DECREASE 02096 M01S02083.1ma +++| ZJN RFE8 IF NO CHANGE 02097 M01S02084.1ma +++| STD CM+2 02098 M01S02085.1ma +++| LDC 300 SET ECS RELATIVE ADDRESS OPTION 02099 M01S02086.1ma +++| RAD CM+1 02100 M01S02087.1ma +++| LDD T4 SET ADDRESS FOR CLEAR 02101 M01S02088.1ma +++| STD CM+4 02102 M01S02089.1ma +++| MONITOR CSTM CLEAR ADDED STORAGE 02103 M01S02090.1ma +++| RFE8 LDN 0 02104 M01S02091.1ma +++| STD CM 02105 M01S02092.1ma +++| LDD CP 02106 M01S02093.1ma +++| ADN MS2W 02107 M01S02094.1ma +++| CWD CM CLEAR CONSOLE MESSAGE 02108 M01S02095.1ma +++| LDN ZERL RETURN STATUS 02109 M01S02096.1ma +++| CRD CM 02110 M01S02097.1ma +++| LDD FS+4 02111 M01S02098.1ma +++| RFEE SHN 3 02112 M01S02099.1ma +++|* SHN 3+UESC 02113 M01S02100.1ma +++| STD CM+1 02114 M01S02101.1ma +++| SHN -14 02115 M01S02102.1ma +++| STD CM 02116 M01S02103.1ma +++| LJM RFEX RETURN 02117 M01S02104.1ma +++| 02118 M01S02105.1ma +++|* EXTENDED MEMORY NOT AVAILABLE. 02119 M01S02106.1ma +++| 02120 M01S02107.1ma +++| RFE9 PJN RFE10 IF STORAGE UNASSIGNED WAITING FOR *1SJ* 02121 M01S02108.1ma +++| LDD CP CHECK IF JOB ROLLABLE 02122 M01S02109.1ma +++| ADN JCIW 02123 M01S02110.1ma +++| CRD SP 02124 M01S02111.1ma +++| LDD SP+3 CHECK FOR *DIS* JOB 02125 M01S02112.1ma +++| LPC 1000 02126 M01S02113.1ma +++| ADD SP+2 CHECK FOR NON-ROLLABLE JOB 02127 M01S02114.1ma +++| NJN RFE10 IF JOB NOT ROLLABLE 02128 M01S02115.1ma +++| STD CM+1 ROLLOUT CONTROL POINT 02129 M01S02116.1ma +++| MONITOR ROCM 02130 M01S02117.1ma +++| UJN RFE11 ENTER RECALL
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ma.txt · Last modified: by 127.0.0.1