cdc:nos2.source:opl.opl871:deck:cpm
Deck CPM
23 Modifications
Listing Sections
- Deck CPM Start
- Deck CPM Part 1 (Line 1786)
- Deck CPM Part 2 (Line 3627)
- Deck CPM Part 3 (Line 5132)
- Deck CPM Part 4 (Line 6934)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.cpm +++| IDENT CPM,CPM 00002 M01S00002.cpm +++| PERIPH 00003 M01S00003.cpm +++| BASE MIXED 00004 M01S00004.cpm +++| SST 00005 M01S00005.cpm +++| SYSCOM 00006 M01S00006.cpm +++|*COMMENT CPM - CONTROL POINT MANAGER.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.cpm +++| TITLE CPM - CONTROL POINT MANAGER. 00010 M01S00009.cpm +++| SPACE 4,10 00011 M01S00010.cpm +++|*** CPM - CONTROL POINT MANAGER. 00012 M01S00011.cpm +++|* G. R. MANSFIELD. 70/10/20. 00013 M01S00012.cpm +++|* M. E. MADDEN. 73/04/24. 00014 M01S00013.cpm +++|* R. A. JAPS. 76/12/03. (RESEQUENCED) 00015 M01S00014.cpm +++| SPACE 4,10 00016 M01S00015.cpm +++|*** *CPM* IS A GENERAL PP PROGRAM TO BE USED BY CPU 00017 M01S00016.cpm +++|* PROGRAMS TO REFERENCE OR ALTER JOB CONTROL INFORMATION IN 00018 M01S00017.cpm +++|* THE CONTROL POINT AREA. 00019 M01S00018.cpm +++| SPACE 4,10 00020 M01S00019.cpm +++|*** CALL. 00021 M01S00020.cpm +++|* 00022 M01S00021.cpm +++|* 00023 M01S00022.cpm +++|*T 18/ *CPM*,6/ AR,12/ CODE,24/ PARAM
Figure
00024 M01S00023.cpm +++|* AR AUTO RECALL 00025 M01S00024.cpm +++|* CODE FUNCTION CODE 00026 M01S00025.cpm +++|* PARAM PARAMETER FOR FUNCTION 00027 M01S00026.cpm +++|* 00028 M01S00027.cpm +++|* NOTE - *CPUMTR* WILL PROCESS THE FOLLOWING *CPM* FUNCTIONS- 00029 M01S00028.cpm +++|* 16, 24, 25, 32, 33, 37, 43, 45, 50, 55, 61 - 72. 00030 M01S00029.cpm +++| SPACE 4,10 00031 M01S00030.cpm +++|*** DAYFILE MESSAGES. 00032 M01S00031.cpm +++|* 00033 M01S00032.cpm +++|* 00034 M01S00033.cpm +++|* * CM NOT VALIDATED.* = AN ATTEMPT WAS MADE TO CHANGE THE JOB 00035 M01S00034.cpm +++|* CM LIMIT OUTSIDE OF THE USER-S LEGAL BOUNDS. 00036 M01S00035.cpm +++|* 00037 M01S00036.cpm +++|* 00038 M01S00037.cpm +++|* * CM RANGE EXIT MODE NOT DESELECTABLE.* = USER 00039 M01S00038.cpm +++|* SELECTION/DESELECTION OF *CM RANGE* MODE ERRORS IS NOT 00040 M01S00039.cpm +++|* POSSIBLE ON THE CYBER 176. 00041 M01S00040.cpm +++|* 00042 M01S00041.cpm +++|* 00043 M01S00042.cpm +++|* * CPM - ACCESS LEVEL NOT VALID FOR JOB.* 00044 M01S00043.cpm +++|* A USER ATTEMPTED TO CHANGE THE JOB ACCESS LEVEL TO A VALUE 00045 M01S00044.cpm +++|* FOR WHICH THE JOB IS NOT VALIDATED. 00046 M01S00045.cpm +++|* 00047 M01S00046.cpm +++|* 00048 M01S00047.cpm +++|* * CPM - ARGUMENT ERROR.* 00049 M01S00048.cpm +++|* CAN INDICATE ONE OF THE FOLLOWING CONDITIONS - 00050 M01S00049.cpm +++|* 1. ADDRESS OUT OF RANGE. 00051 M01S00050.cpm +++|* 2. INCORRECT EXIT MODE SPECIFIED. (FUNCTION 2). 00052 M01S00051.cpm +++|* 3. EVENT DESCRIPTOR SPECIFIED HAS EST ORDINAL GREATER THAN 00053 M01S00052.cpm +++|* 777B, OR A MULTIPLIER GREATER THAN 77B. (FUNCTION 6). 00054 M01S00053.cpm +++|* 4. USER INDEX IS OUT OF RANGE. (FUNCTION 21). 00055 M01S00054.cpm +++|* 5. INCORRECT SUBSYSTEM SPECIFIED. (FUNCTION 26). 00056 M01S00055.cpm +++|* 6. INCORRECT CPU SELECTION. (FUNCTION 31). 00057 M01S00056.cpm +++|* 7. INCORRECT BYTE COUNT, INCORRECT BYTE POSITION OR INCORRECT 00058 M01S00057.cpm +++|* BUFFER ADDRESS TO RECEIVE VERSION NAME. (FUNCTION 44). 00059 M01S00058.cpm +++|* 8. CM REQUESTED WAS MORE THAN 377700B WORDS. 00060 M01S00059.cpm +++|* (FUNCTIONS 23 AND 52). 00061 M01S00060.cpm +++|* 9. USER JOB NAME, OUTPUT DISPOSITION OPTION, OR 00062 M01S00061.cpm +++|* END OF JOB OPTION INCORRECT. 00063 M01S00062.cpm +++|* 10. INCORRECT SUBFUNCTION SPECIFIED. (FUNCTION 107) 00064 M01S00063.cpm +++|* 00065 M01S00064.cpm +++|* 00066 M01S00065.cpm +++|* * CPM - INCORRECT PACKNAME.* 00067 M01S00066.cpm +++|* 1. AN INCORRECT PACKNAM HAS BEEN SPECIFIED. 00068 M01S00067.cpm +++|* 2. AN INCORRECT DEVICE TYPE HAS BEEN ENTERED ON A *PACKNAM*. 00069 M01S00068.cpm +++|* 00070 M01S00069.cpm +++|* 00071 M01S00070.cpm +++|* * CPM - INCORRECT REQUEST.* 00072 M01S00071.cpm +++|* CAN INDICATE ONE OF THE FOLLOWING CONDITIONS - 00073 M01S00072.cpm +++|* 1. INCORRECT SUBFUNCTION. (FUNCTION 3). 00074 M01S00073.cpm +++|* AN *SSM=* JOB ATTEMPTED TO CLEAR THE SECURE 00075 M01S00074.cpm +++|* SYSTEM MEMORY FLAG. 00076 M01S00075.cpm +++|* 00077 M01S00076.cpm +++|* 00078 M01S00077.cpm +++|* * CPM - INCORRECT *SHELL* FILE.* 00079 M01S00078.cpm +++|* 1. *SHELL* FILE NOT ON MASS STORAGE. 00080 M01S00079.cpm +++|* 2. *SHELL* FILE NOT FOUND IN THE LOCAL FNT AND THE LOCAL 00081 M01S00080.cpm +++|* FILE LOAD OPTION WAS SELECTED. 00082 M01S00081.cpm +++|* 00083 M01S00082.cpm +++|* 00084 M01S00083.cpm +++|* * CPM - USER ACCESS NOT VALID.* 00085 M01S00084.cpm +++|* CAN INDICATE ONE OF THE FOLLOWING CONDITIONS - 00086 M01S00085.cpm +++|* 1. USER NOT VALIDATED FOR SPECIFIED SUBSYSTEM (FUNCTION 26). 00087 M01S00086.cpm +++|* 2. USER NOT VALIDATED TO PROTECT EXTENDED MEMORY 00088 M01S00087.cpm +++|* (FUNCTION 75). 00089 M01S00088.cpm +++|* 3. USER NOT VALIDATED TO SET PAUSE BIT (FUNCTION 100). 00090 M01S00089.cpm +++|* 4. USER DOES NOT HAVE SYSTEM ORIGIN PRIVILEGES - NO STATUS 00091 M01S00090.cpm +++|* REQUESTED (FUNCTION 101). 00092 M01S00091.cpm +++|* 5. THE *L* DISPLAY JSN FIELD IS NOT INTERLOCKED 00093 M01S00092.cpm +++|* (FUNCTIONS 102 AND 103). 00094 M01S00093.cpm +++|* 00095 M01S00094.cpm +++|* 00096 M01S00095.cpm +++|* * CPM - LIBRARY NOT FOUND = LNAME.* 00097 M01S00096.cpm +++|* THE INDICATED LIBRARY *LNAME* WAS NOT FOUND IN THE 00098 M01S00097.cpm +++|* SYSTEM DIRECTORY OR IN THE LOCAL FNT OF THE CALLER. 00099 M01S00098.cpm +++|* 00100 M01S00099.cpm +++|* 00101 M01S00100.cpm +++|* * CPM - MASS STORAGE ERROR.* 00102 M01S00101.cpm +++|* A MASS STORAGE ERROR WAS ENCOUNTERED WHEN PERFORMING I/O 00103 M01S00102.cpm +++|* ON A DEVICE. 00104 M01S00103.cpm +++|* 00105 M01S00104.cpm +++|* 00106 M01S00105.cpm +++|* * CPM - MISSING *SHELL* LOAD OPTION.* 00107 M01S00106.cpm +++|* WHEN SETTING THE *SHELL* CONTROL FIELD IN NFL AT LEAST 00108 M01S00107.cpm +++|* ONE LOAD OPTION FLAG MUST BE SET. 00109 M01S00108.cpm +++|* 00110 M01S00109.cpm +++|* 00111 M01S00110.cpm +++|* * CPM - EPILOGUE AND SHELL CONFLICT.* 00112 M01S00111.cpm +++|* AN EPILOGUE WAS PENDING AT THE TIME AN ATTEMPT WAS MADE TO 00113 M01S00112.cpm +++|* ACTIVATE A *SHELL* PROGRAM WITH THE NO-ABORT OPTION SET. 00114 M01S00113.cpm +++|* 00115 M01S00114.cpm +++|* 00116 M01S00115.cpm +++|* * CPM - SYSTEM ERROR.* 00117 M01S00116.cpm +++|* 1. *CPM* WAS UNABLE TO READ THE JOB INPUT FILE. 00118 M01S00117.cpm +++|* (FUNCTION 106 - SET JOB CHARACTERISTICS). 00119 M01S00118.cpm +++|* 2. *CPM* ENCOUNTERED A PROBLEM (OTHER THAN A READ) WITH THE 00120 M01S00119.cpm +++|* SYSTEM SECTOR. 00121 M01S00120.cpm +++|* 00122 M01S00121.cpm +++|* 00123 M01S00122.cpm +++|* * EC NOT VALIDATED.* = AN ATTEMPT WAS MADE TO CHANGE THE JOB 00124 M01S00123.cpm +++|* EC LIMIT OUTSIDE OF THE USER-S LEGAL BOUNDS. 00125 M01S00124.cpm +++|* 00126 M01S00125.cpm +++|* 00127 M01S00126.cpm +++|* * ERROR ON FILE - PROFILX.* = ONE OF THE FOLLOWING OCCURRED- 00128 M01S00127.cpm +++|* 1) BAD PROFILE FILE LEVEL-3 BLOCK RANDOM ADDRESS. 00129 M01S00128.cpm +++|* 2) PROFILE FILE NOT FOUND. 00130 M01S00129.cpm +++|* (THIS MESSAGE ALSO ISSUED TO ERROR LOG). 00131 M01S00130.cpm +++|* 00132 M01S00131.cpm +++|* 00133 M01S00132.cpm +++|* * INCORRECT APPLICATION ACCOUNTING REQUEST.* 00134 M01S00133.cpm +++|* CAN INDICATE ONE OF THE FOLLOWING CONDITIONS, ALL 00135 M01S00134.cpm +++|* ARE FROM FUNCTION 77 - 00136 M01S00135.cpm +++|* 1. NOT CALLED FROM VALID PROGRAM. 00137 M01S00136.cpm +++|* 2. INCORRECT PARAMETER WORD. 00138 M01S00137.cpm +++|* 00139 M01S00138.cpm +++|* 00140 M01S00139.cpm +++|* * INCORRECT USER COMMAND.* 00141 M01S00140.cpm +++|* AN ATTEMPT WAS MADE TO ENTER A SECONDARY USER COMMAND 00142 M01S00141.cpm +++|* TO A DIFFERENT FAMILY WHEN SUCH COMMANDS WERE DISABLED, 00143 M01S00142.cpm +++|* OR AN INCORRECT OR EXPIRED PASSWORD WAS ENTERED. 00144 M01S00143.cpm +++|* 00145 M01S00144.cpm +++|* 00146 M01S00145.cpm +++|* * INCORRECT END OF JOB OPTION SPECIFIED.* 00147 M01S00146.cpm +++|* A BATCH JOB ENTERED A *SETJOB,OP=SU.*. OP=SU 00148 M01S00147.cpm +++|* IS INCORRECT FOR NON-INTERACTIVE JOBS. THIS IS A 00149 M01S00148.cpm +++|* NON-FATAL ERROR. NO CHANGES ARE MADE TO ANY 00150 M01S00149.cpm +++|* ARGUMENTS (UJN, DC, OP). 00151 M01S00150.cpm +++|* 00152 M01S00151.cpm +++|*
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00153 M02S00152.ns2516a ---|* * JOB STEP EXCEEDS ACCOUNT BLOCK.* = USER HAS EITHER
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00154 M02S00153.ns2516a ---|* ATTEMPTED TO SET THE JOB STEP LIMIT TO A VALUE GREATER THAN
| Line S00154 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00155 M02S00154.ns2516a ---|* THE ACCOUNT BLOCK LIMIT OR ATTEMPTED TO SET THE ACCOUNT
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00156 M02S00155.ns2516a ---|* BLOCK LIMIT TO A VALUE LESS THAN THE JOB STEP LIMIT.
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00157 M02S00156.ns2516a ---|*
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00158 M02S00157.ns2516a ---|* 00159 M01S00158.cpm +++|* * MFL REQUEST TOO SMALL, MINIMUM USED.* 00160 M01S00159.cpm +++|* AN ATTEMPT WAS MADE TO *SETMFL* TO A FIELD LENGTH SMALLER 00161 M01S00160.cpm +++|* THAN *CTFL*, THE FIELD LENGTH OF *CONTROL*. *CTFL* WAS USED 00162 M01S00161.cpm +++|* INSTEAD. 00163 M01S00162.cpm +++|* 00164 M01S00163.cpm +++|* 00165 M01S00164.cpm +++|* * RFL BEYOND MFL.* = RFL REQUEST EXCEEDS MFL. 00166 M01S00165.cpm +++|* 00167 M01S00166.cpm +++|* 00168 M01S00167.cpm +++|* * STACK PURGING NOT DESELECTABLE.* 00169 M01S00168.cpm +++|* STACK PURGING IS SELECTABLE/DESELECTABLE ONLY ON CYBER 00170 M01S00169.cpm +++|* 170-8X5 MAINFRAMES. 00171 M01S00170.cpm +++|* 00172 M01S00171.cpm +++|* 00173 M01S00172.cpm +++|* * TL NOT VALIDATED.* = AN ATTEMPT WAS MADE TO CHANGE THE JOB 00174 M01S00173.cpm +++|* TIME LIMIT OUTSIDE OF THE USER-S LEGAL BOUNDS. 00175 M01S00174.cpm +++|* 00176 M01S00175.cpm +++|* 00177 M01S00176.cpm +++|* * USER SECURITY COUNT EXHAUSTED.* 00178 M01S00177.cpm +++|* THE USER HAS EXCEEDED THE SECURITY COUNT. THE USER MUST 00179 M01S00178.cpm +++|* CONTACT SITE PERSONNEL TO HAVE THE SECURITY COUNT RESET. 00180 M01S00179.cpm +++|* THE USER WILL NOT BE ALLOWED ACCESS TO THE SYSTEM UNTIL 00181 M01S00180.cpm +++|* THE SECURITY COUNT IS RESET. 00182 M01S00181.cpm +++| SPACE 4,10 00183 M01S00182.cpm +++|*** ACCOUNT FILE MESSAGES - 00184 M01S00183.cpm +++|* 00185 M01S00184.cpm +++|* 00186 M01S00001.ns2753 +++|* *UDOD, 000000.000KUNS.* = OPTICAL DISK ACTIVITY (KILO-UNITS). 00187 M01S00002.ns2753 +++|* 00188 M01S00185.cpm +++|* *UDAC, 000000.000UNTS.* = APPLICATION UNIT CHARGE (UNITS). 00189 M01S00186.cpm +++|* 00190 M01S00187.cpm +++|* *UDMP, 000000.000KUNS.* = MAP III ACTIVITY (KILO-UNITS). 00191 M01S00188.cpm +++|* 00192 M01S00189.cpm +++|* *UDCO, 000000.000KCHS.* = TERMINAL CHARACTERS OUTPUT. 00193 M01S00190.cpm +++|* 00194 M01S00191.cpm +++|* *UDCI, 000000.000KCHS.* = TERMINAL CHARACTERS INPUT. 00195 M01S00192.cpm +++|* 00196 M01S00193.cpm +++|* *UDCT, 000000.000KCHS.* = TOTAL TERMINAL CHARACTERS. 00197 M01S00194.cpm +++|* 00198 M01S00195.cpm +++|* *UDAD, 000000.000KUNS.* = APPLICATION UNITS (KILO-UNITS). 00199 M01S00196.cpm +++|* 00200 M01S00197.cpm +++|* *UDPF, 000000.000KUNS.* = PERMANENT FILE ACTIVITY(KILO-UNITS) 00201 M01S00198.cpm +++|* 00202 M01S00199.cpm +++|* *UDMT, 000000.000KUNS.* = MAGNETIC TAPE ACTIVITY (KILO-UNITS). 00203 M01S00200.cpm +++|* 00204 M01S00201.cpm +++|* *UDMS, 000000.000KUNS.* = MASS STORAGE ACTIVITY (KILO-UNITS). 00205 M01S00202.cpm +++|* 00206 M01S00203.cpm +++|* *UDCP, 000000.000SECS.* = ACCUMULATED CP TIME (SECONDS). 00207 M01S00204.cpm +++|* 00208 M01S00205.cpm +++|* *ACSR, 000000.000UNTS.* = ACCUMULATED SRUS (UNITS). 00209 M01S00206.cpm +++|* 00210 M01S00207.cpm +++|* NOTE - THE PRECEDING MESSAGES ARE ISSUED IN THE ABOVE ORDER. 00211 M01S00208.cpm +++|* 00212 M01S00209.cpm +++|* 00213 M01S00210.cpm +++|* *ABCN, CHARGENUMBER, PROJECTNUMBER.* = BEGINNING OF A 00214 M01S00211.cpm +++|* CHARGE SEQUENCE. 00215 M01S00212.cpm +++|* 00216 M01S00213.cpm +++|* *ACCN, CHARGENUMBER, PROJECTNUMBER.* = CHANGE OF CHARGE. 00217 M01S00214.cpm +++|* 00218 M01S00215.cpm +++|* *ACSC, SC, NEWJSN, SRUUNITS.* = SERVICE CLASS CHANGE. 00219 M01S00216.cpm +++|* NEWJSN IS PRESENT IF CHANGING FROM SUBSYSTEM SERVICE CLASS. 00220 M01S00217.cpm +++|* 00221 M01S00218.cpm +++|* *APPN, PACKNAM.* = DEFAULT PACK NAME ENTERED. 00222 M01S00219.cpm +++|* 00223 M01S00220.cpm +++|* *APPN.* = DEFAULT PACK NAME CLEARED. 00224 M01S00221.cpm +++|* 00225 M01S00222.cpm +++|* *AUSR, 000000.000UNTS.* = ACCUMULATED SRU-S (UNITS) NOT 00226 M01S00223.cpm +++|* UPDATED INTO PROJECT PROFILE FILE. 00227 M01S00224.cpm +++|* 00228 M01S00225.cpm +++|* *MJJI, OLDLEVEL, NEWLEVEL.* = DENOTES AN INCORRECT ATTEMPT 00229 M01S00226.cpm +++|* BY THE USER TO CHANGE THE JOB ACCESS LEVEL FROM LEVEL 00230 M01S00227.cpm +++|* *OLDLEVEL* TO LEVEL *NEWLEVEL*. 00231 M01S00228.cpm +++|* 00232 M01S00229.cpm +++|* *SIUN, USERNUM.* = AN ATTEMPT WAS MADE TO ENTER A 00233 M01S00230.cpm +++|* SECONDARY USER COMMAND WHEN DISALLOWED, OR THE 00234 M01S00231.cpm +++|* ACCOUNT/PASSWORD WAS INCORRECT. 00235 M01S00232.cpm +++|* 00236 M01S00233.cpm +++|* *UBAU, XXXX.* = BEGIN APPLICATION ACCOUNTING FOR 00237 M01S00234.cpm +++|* APPLICATION XXXX. 00238 M01S00235.cpm +++| SPACE 4,10 00239 M01S00236.cpm +++|*** ERROR LOG MESSAGES. 00240 M01S00237.cpm +++|* 00241 M01S00238.cpm +++|* *MAINTENANCE ACCESS BY UN = XXXXXXX.* = A USER HAS LOGGED IN 00242 M01S00239.cpm +++|* WITH MAINTENANCE PRIVILEGES. 00243 M01S00240.cpm +++| SPACE 4,10 00244 M01S00241.cpm +++|*** OPERATOR MESSAGES. 00245 M01S00242.cpm +++|* 00246 M01S00243.cpm +++|* 00247 M01S00244.cpm +++|* +REQUEST *K* DISPLAY.+ = B-DISPLAY MESSAGE INDICATING 00248 M01S00245.cpm +++|* THAT CONTROL POINT IS REQUESTING OPERATOR TO ASSIGN THE 00249 M01S00246.cpm +++|* K-DISPLAY TO THE CONTROL POINT. 00250 M01S00247.cpm +++| SPACE 4,10 00251 M01S00248.cpm +++|** ROUTINES CALLED. 00252 M01S00249.cpm +++|* 00253 M01S00250.cpm +++|* 00254 M01S00251.cpm +++|* 0AU - ACCOUNTING UPDATE. 00255 M01S00252.cpm +++|* 0AV - ACCOUNT VALIDATION. 00256 M01S00253.cpm +++| SPACE 4,10 00257 M01S00254.cpm +++|** COMMON DECKS. 00258 M01S00255.cpm +++| 00259 M01S00256.cpm +++| 00260 M01S00257.cpm +++|*CALL COMPMAC 00261 M01S00258.cpm +++|*CALL COMSACC 00262 M01S00259.cpm +++| QUAL BIO 00263 M01S00260.cpm +++|*CALL COMSBIO 00264 M01S00261.cpm +++| QUAL * 00265 M01S00262.cpm +++|*CALL COMSCPS 00266 M01S00263.cpm +++|*CALL COMSEJT 00267 M01S00264.cpm +++| QUAL EVENT 00268 M01S00265.cpm +++|*CALL COMSEVT 00269 M01S00266.cpm +++| QUAL * 00270 M01S00267.cpm +++|*CALL COMSJCE 00271 M01S00268.cpm +++|*CALL COMSMLS 00272 M01S00269.cpm +++|*CALL COMSMSC 00273 M01S00270.cpm +++|*CALL COMSMSP 00274 M01S00271.cpm +++|*CALL COMSLFD 00275 M01S00272.cpm +++|*CALL COMSPIM 00276 M01S00273.cpm +++|*CALL COMSPRD 00277 M01S00274.cpm +++|*CALL COMSPRO 00278 M01S00275.cpm +++|*CALL COMSREM
| Line S00276 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00279 M02S00276.271l750 ---|*CALL COMSSSD 00280 M01S00277.cpm +++|*CALL COMSSSE 00281 M01S00278.cpm +++|*CALL COMSSSJ 00282 M01S00279.cpm +++|*CALL COMSVER 00283 M01S00280.cpm +++|*CALL COMSZOL 00284 M01S00281.cpm +++| SPACE 4,10 00285 M01S00282.cpm +++|**** DIRECT LOCATION ASSIGNMENTS. 00286 M01S00283.cpm +++| 00287 M01S00284.cpm +++| 00288 M01S00285.cpm +++| PA EQU T1 POT ADDRESS 00289 M01S00001.cpm35 +++| T8 EQU 16 SCRATCH 00290 M01S00002.cpm35 +++| T9 EQU 17 SCRATCH 00291 M01S00286.cpm +++| CN EQU 20 - 24 CM WORD BUFFER (5 LOCATIONS) 00292 M01S00287.cpm +++| OT EQU 25 JOB ORIGIN TYPE 00293 M01S00288.cpm +++| SM EQU 26 SYSTEM SECURITY MODE 00294 M01S00289.cpm +++| FN EQU 30 - 34 FAMILY NAME (5 LOCATIONS) 00295 M01S00290.cpm +++| PP EQU FN+3 POT POINTER 00296 M01S00291.cpm +++| TN EQU FN+4 TERMINAL NUMBER 00297 M01S00292.cpm +++| TT EQU 35 TERMINAL TABLE ADDRESS (FOR STA) 00298 M01S00293.cpm +++| TA EQU 36 IAF RA (FOR STA) 00299 M01S00294.cpm +++| UN EQU 40 - 44 USER NAME (5 LOCATIONS) 00300 M01S00295.cpm +++| EP EQU 57 ENTRY POINTS 00301 M01S00296.cpm +++| BA EQU 60 - 64 SCRATCH 00302 M01S00297.cpm +++| RC EQU 65 RECALL COUNT 00303 M01S00298.cpm +++| FA EQU RC LOCAL FNT POINTER 00304 M01S00299.cpm +++| RI EQU 66 - 67 PROFILE FILE RANDOM ADDRESS 00305 M01S00300.cpm +++| 00306 M01S00301.cpm +++| 00307 M01S00302.cpm +++|** ASSEMBLY CONSTANTS. 00308 M01S00303.cpm +++| 00309 M01S00304.cpm +++| 00310 M01S00305.cpm +++| MRCL EQU 5 MAXIMUM RECALL COUNT (MUST BE .LT. 100B) 00311 M01S00306.cpm +++|**** 00312 M01S00307.cpm +++| TITLE MACRO DEFINITIONS. 00313 M01S00308.cpm +++| ABORT SPACE 4,10 00314 M01S00309.cpm +++|** ABORT - ERROR PROCESSING MACRO. 00315 M01S00310.cpm +++|* 00316 M01S00311.cpm +++|* ABORT PARAM 00317 M01S00312.cpm +++|* 00318 M01S00313.cpm +++|* ENTRY PARAM = 6/DFOP, 12/ADDR. 00319 M01S00314.cpm +++|* DFOP = 0 FOR MESSAGE TO USER AND SYSTEM 00320 M01S00315.cpm +++|* DAYFILE. 00321 M01S00316.cpm +++|* = *ERLN* FOR MESSAGE TO ERROR LOG, 00322 M01S00317.cpm +++|* USER, AND SYSTEM DAYFILE. 00323 M01S00318.cpm +++|* ADDR = DAYFILE MESSAGE ADDRESS. 00324 M01S00319.cpm +++| 00325 M01S00320.cpm +++| 00326 M01S00321.cpm +++| PURGMAC ABORT 00327 M01S00322.cpm +++| 00328 M01S00323.cpm +++| ABORT MACRO A 00329 M01S00324.cpm +++| MACREF ABORT 00330 M01S00325.cpm +++| LDC A 00331 M01S00326.cpm +++| LJM ERR 00332 M01S00327.cpm +++| ENDM 00333 M01S00328.cpm +++| ENTRY SPACE 4,10 00334 M01S00329.cpm +++|** ENTRY - DEFINE OVERLAY ENTRY POINT. 00335 M01S00330.cpm +++|* 00336 M01S00331.cpm +++|* 00337 M01S00332.cpm +++|* ENTRY NAME 00338 M01S00333.cpm +++|* ENTRY *NAME* = NAME OF ENTRY ADDRESS. 00339 M01S00334.cpm +++| 00340 M01S00335.cpm +++| 00341 M01S00336.cpm +++| PURGMAC ENTRY 00342 M01S00337.cpm +++| 00343 M01S00338.cpm +++| MACRO ENTRY,NAME 00344 M01S00339.cpm +++| MACREF ENTRY 00345 M01S00340.cpm +++| IF -MIC,.M 00346 M01S00341.cpm +++| NAME EQU * 00347 M01S00342.cpm +++| ELSE 00348 M01S00343.cpm +++| QUAL 00349 M01S00344.cpm +++| NAME EQU *+1R".M"*10000 00350 M01S00345.cpm +++| QUAL ".O" 00351 M01S00346.cpm +++| ENDIF 00352 M01S00347.cpm +++| ENDM 00353 M01S00348.cpm +++| FCN SPACE 4,10 00354 M01S00349.cpm +++|** FCN - DEFINE FUNCTION PROCESSOR. 00355 M01S00350.cpm +++|* 00356 M01S00351.cpm +++|* 00357 M01S00352.cpm +++|* CODE FCN NAME,(JOB CODES),SSJ 00358 M01S00353.cpm +++|* ENTRY *CODE* = OPTIONAL FUNCTION CODE SYMBOL TO BE DEFINED. 00359 M01S00354.cpm +++|* *NAME* = NAME OF FUNCTION PROCESSOR. 00360 M01S00355.cpm +++|* *JOB CODES* IF USED, FUNCTION IS ALLOWED BY ONLY 00361 M01S00356.cpm +++|* THOSE JOB TYPES. 00362 M01S00357.cpm +++|* *SSJ* IF USED, FUNCTION IS ALLOWED BY ONLY THOSE 00363 M01S00358.cpm +++|* JOBS WITH *SSJ=* ENTRY POINTS OR 00364 M01S00359.cpm +++|* SUBSYSTEM ID-S. 00365 M01S00360.cpm +++| 00366 M01S00361.cpm +++| 00367 M01S00362.cpm +++| .3 SET 0 00368 M01S00363.cpm +++| MACRO FCN,F,A,B,C 00369 M01S00364.cpm +++| LOC .3/3 00370 M01S00365.cpm +++| F CON A/10000B,A-A/10000B*10000B 00371 M01S00366.cpm +++| .1 SET 0 00372 M01S00367.cpm +++| IFC NE,$B$$,1 00373 M01S00368.cpm +++| .1 BITSET (B) 00374 M01S00369.cpm +++| IFC NE,$C$$,1 00375 M01S00370.cpm +++| .1 SET .1+4000 00376 M01S00371.cpm +++| CON .1 00377 M01S00372.cpm +++| .3 SET .3+3 00378 M01S00373.cpm +++| ENDM 00379 M01S00374.cpm +++| OVERLAY SPACE 4,10 00380 M01S00375.cpm +++|** OVERLAY - GENERATE OVERLAY CONSTANTS. 00381 M01S00376.cpm +++|* 00382 M01S00377.cpm +++|* 00383 M01S00378.cpm +++|* OVERLAY (TEXT) 00384 M01S00379.cpm +++|* ENTRY *TEXT* = TEXT OF SUBTITLE. 00385 M01S00380.cpm +++| 00386 M01S00381.cpm +++| 00387 M01S00382.cpm +++| .N SET 0 00388 M01S00383.cpm +++| OVLB MICRO 1,, 3C BASE OVERLAY NAME 00389 M01S00384.cpm +++| 00390 M01S00385.cpm +++| 00391 M01S00386.cpm +++| PURGMAC OVERLAY 00392 M01S00387.cpm +++| 00393 M01S00388.cpm +++| OVERLAY MACRO TEXT 00394 M01S00389.cpm +++| QUAL 00395 M01S00390.cpm +++| .N SET .N+1 00396 M01S00391.cpm +++| .M MICRO .N,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 00397 M01S00392.cpm +++| .O MICRO 1,3, "OVLB"".M" 00398 M01S00393.cpm +++| QUAL ".O" 00399 M01S00394.cpm +++| TTL CPM/".O" - TEXT 00400 M01S00395.cpm +++| TITLE 00401 M01S00396.cpm +++| IDENT ".O",OVL TEXT 00402 M01S00397.cpm +++|*COMMENT CPM - TEXT
| Line S00398 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00403 M02S00398.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1977. 00404 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00405 M01S00399.cpm +++| ORG OVL 00406 M01S00400.cpm +++| LJM * 00407 M01S00401.cpm +++| UJN *-2 00408 M01S00402.cpm +++| ENDM 00409 M01S00403.cpm +++| SCLASS SPACE 4,15 00410 M01S00404.cpm +++|** SCLASS - DEFINE SERVICE CLASS TABLE. 00411 M01S00405.cpm +++|* 00412 M01S00406.cpm +++|* SCLASS NM,MN,DF,ST,TX 00413 M01S00407.cpm +++|* 00414 M01S00408.cpm +++|* ENTRY *NM* = SERVICE CLASS NAME. 00415 M01S00409.cpm +++|* *MN* = TWO CHARACTER MNEMONIC. 00416 M01S00410.cpm +++|* *DF* = DAYFILE MESSAGE CHARACTER. 00417 M01S00411.cpm +++|* *ST* = SHORT TEXT FOR *QFTLIST*. 00418 M01S00412.cpm +++|* *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE. 00419 M01S00413.cpm +++|* 00420 M01S00414.cpm +++|* NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF 00421 M01S00415.cpm +++|* THIS MACRO. 00422 M01S00416.cpm +++| 00423 M01S00417.cpm +++| 00424 M01S00418.cpm +++| PURGMAC SCLASS 00425 M01S00419.cpm +++| 00426 M01S00420.cpm +++| SCLASS MACRO NM,MN,DF,ST,TX 00427 M01S00421.cpm +++| .SCL RMT 00428 M01S00422.cpm +++| INDEX NM,2R_MN TX 00429 M01S00423.cpm +++| .SCL RMT 00430 M01S00424.cpm +++| .A IFC NE,$NM$SSSC$ 00431 M01S00425.cpm +++| .SCLVSP RMT 00432 M01S00426.cpm +++| INDEX NM,MN_MK TX 00433 M01S00427.cpm +++| .SCLVSP RMT 00434 M01S00428.cpm +++| .A ENDIF 00435 M01S00429.cpm +++| SCLASS ENDM 00436 M01S00001.271l750 +++| SUBSYST SPACE 4,10 00437 M01S00002.271l750 +++|** SUBSYST - GENERATE SUBSYSTEM TABLE. 00438 M01S00003.271l750 +++|* 00439 M01S00004.271l750 +++|* SUBSYST NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT,CPU 00440 M01S00430.cpm +++| 00441 M01S00431.cpm +++| 00442 M01S00005.271l750 +++| PURGMAC SUBSYST 00443 M01S00006.271l750 +++| 00444 M01S00007.271l750 +++| SUBSYST MACRO NM,ID,PT,PP,AU,DF,DC,CP,PR,AB,CPU 00445 M01S00008.271l750 +++| LOCAL C 00446 M01S00009.271l750 +++| .SUB RMT 00447 M01S00010.271l750 +++| C SET 0 00448 M01S00011.271l750 +++| IFC NE,$CPU$$,1 00449 M01S00012.271l750 +++| C SET 1 00450 M01S00013.271l750 +++| INDEX (ID-LSSI),(C) 00451 M01S00014.271l750 +++| .SUB RMT 00452 M01S00015.271l750 +++| SUBSYST ENDM 00453 M01S00016.271l750 +++| SPACE 4,10 00454 M01S00017.271l750 +++|* COMMON DECKS. 00455 M01S00018.271l750 +++| 00456 M01S00019.271l750 +++| 00457 M01S00432.cpm +++| SCL$ EQU 0 ONLY PROCESS CLASSES WITH JCB-S 00458 M01S00433.cpm +++|*CALL COMSSCD 00459 M01S00020.271l750 +++| SUB$ EQU 1 ASSEMBLE *SUBSYST* MACRO CALLS 00460 M01S00021.271l750 +++|*CALL COMSSSD 00461 M01S00434.cpm +++| TITLE MAIN PROGRAM. 00462 M01S00435.cpm +++| CPM SPACE 4,10 00463 M01S00436.cpm +++|** CPM - MAIN PROGRAM. 00464 M01S00437.cpm +++| 00465 M01S00438.cpm +++| 00466 M01S00439.cpm +++| ORG PPFW 00467 M01S00440.cpm +++| 00468 M01S00441.cpm +++| 00469 M01S00442.cpm +++| CPM RJM PRS PRESET CONTROL POINT MANAGER 00470 M01S00443.cpm +++| LDC 0 00471 M01S00444.cpm +++| CPMA EQU *-1 (OVERLAY NAME) 00472 M01S00445.cpm +++| ZJN CPM1 IF NO OVERLAY NAME 00473 M01S00446.cpm +++| LMC 2L"OVLB" LOAD OVERLAY 00474 M01S00447.cpm +++| RJM EXR 00475 M01S00448.cpm +++| CPM1 LDN 0 CLEAR ADDRESS WORD COUNT 00476 M01S00449.cpm +++| STD T1 00477 M01S00450.cpm +++| LJM * 00478 M01S00451.cpm +++| CPMB EQU *-1 (ENTRY ADDRESS FOR FUNCTION) 00479 M01S00452.cpm +++| 00480 M01S00453.cpm +++| CPMX MONITOR DPPM DROP PP 00481 M01S00454.cpm +++| LJM PPR EXIT TO PP RESIDENT 00482 M01S00455.cpm +++| SPACE 4,10 00483 M01S00456.cpm +++|** PROGRAMMING NOTE. 00484 M01S00457.cpm +++|* 00485 M01S00458.cpm +++|* (T1) = 0, ON ENTRY TO ALL FUNCTION PROCESSORS TO ASSURE 00486 M01S00459.cpm +++|* THE ROUTINE *CKA* WILL CHECK THE PROPER CM ADDRESSES. 00487 M01S00460.cpm +++| TITLE ERROR PROCESSOR. 00488 M01S00461.cpm +++| ERR SPACE 4,10 00489 M01S00462.cpm +++|** ERR - ERROR PROCESSOR. 00490 M01S00463.cpm +++|* 00491 M01S00464.cpm +++|* ENTRY (A) = 6/ DFOP, 12/ ADDR 00492 M01S00465.cpm +++|* 00493 M01S00466.cpm +++|* DFOP = DAYFILE OPTION. 00494 M01S00467.cpm +++|* = 0 FOR MESSAGE TO USER AND SYSTEM DAYFILE. 00495 M01S00468.cpm +++|* = *ERLN* FOR MESSAGE TO ERROR LOG, USER, AND 00496 M01S00469.cpm +++|* SYSTEM DAYFILES. 00497 M01S00470.cpm +++|* 00498 M01S00471.cpm +++|* ADDR = ADDRESS OF MESSAGE. 00499 M01S00472.cpm +++|* 00500 M01S00473.cpm +++|* (ERRA) = RESOURCE TYPE FOR *ERNV* MESSAGE. 00501 M01S00474.cpm +++|* 00502 M01S00475.cpm +++|* EXIT ERROR PROCESSOR OVERLAY EXECUTED. 00503 M01S00476.cpm +++|* (CN) = ERROR MESSAGE ADDRESS. 00504 M01S00477.cpm +++|* 00505 M01S00478.cpm +++|* USES CN. 00506 M01S00479.cpm +++| 00507 M01S00480.cpm +++| 00508 M01S00481.cpm +++| ERR BSS 0 ENTRY 00509 M01S00482.cpm +++| STD CN SET ERROR MESSAGE ADDRESS 00510 M01S00483.cpm +++| SHN -14 SET DAYFILE OPTION 00511 M01S00484.cpm +++| STD CN+1 00512 M01S00485.cpm +++| LDC 0 SET RESOURCE TYPE 00513 M01S00486.cpm +++| ERRA EQU *-1 (RESOURCE TYPE) 00514 M01S00487.cpm +++| STD CN+2 00515 M01S00488.cpm +++| EXECUTE 3CA 00516 M01S00489.cpm +++| LJM /3CA/ERR PROCESS ERROR 00517 M01S00490.cpm +++| TITLE RESIDENT ROUTINES. 00518 M01S00491.cpm +++| CFN SPACE 4,10 00519 M01S00492.cpm +++|** CFN - COMPARE NAMES. 00520 M01S00493.cpm +++|* 00521 M01S00494.cpm +++|* ENTRY (FN - FN+4) = REQUESTED NAME. 00522 M01S00495.cpm +++|* (CN - CN+4) = LEGAL NAME. 00523 M01S00496.cpm +++|* 00524 M01S00497.cpm +++|* EXIT (A) = 0 IF MATCH. 00525 M01S00498.cpm +++| 00526 M01S00499.cpm +++| 00527 M01S00500.cpm +++| CFN SUBR ENTRY/EXIT 00528 M01S00501.cpm +++| LDD FN 00529 M01S00502.cpm +++| LMD CN 00530 M01S00503.cpm +++| NJN CFNX IF NO MATCH 00531 M01S00504.cpm +++| LDD FN+1 00532 M01S00505.cpm +++| LMD CN+1 00533 M01S00506.cpm +++| NJN CFNX IF NO MATCH 00534 M01S00507.cpm +++| LDD FN+2 00535 M01S00508.cpm +++| LMD CN+2 00536 M01S00509.cpm +++| NJN CFNX IF NO MATCH 00537 M01S00510.cpm +++| LDD FN+3 00538 M01S00511.cpm +++| LMD CN+3 00539 M01S00512.cpm +++| SCN 77 00540 M01S00513.cpm +++| UJN CFNX RETURN 00541 M01S00514.cpm +++| CJR SPACE 4,20 00542 M01S00515.cpm +++|** CJR - CHECK IF THE JOB IS ROLLABLE. 00543 M01S00516.cpm +++|* 00544 M01S00517.cpm +++|* AN I/O ERROR WAS ENCOUNTERED ON A MASS STORAGE DEVICE. THE 00545 M01S00518.cpm +++|* JOB IS ROLLABLE IS IT IS NOT A SUBSYSTEM, THE I/O ERROR IS 00546 M01S00519.cpm +++|* RECOVERABLE, AND THERE IS NOT AN ERROR FLAG IN THE CONTROL 00547 M01S00520.cpm +++|* POINT AREA. 00548 M01S00521.cpm +++|* 00549 M01S00522.cpm +++|* ENTRY (T5) = EST ORDINAL. 00550 M01S00523.cpm +++|* (RDCT) = RECOVERABLE ERROR STATUS (BIT 2**10 CLEAR IF 00551 M01S00524.cpm +++|* RECOVERABLE ERROR). 00552 M01S00525.cpm +++|* 00553 M01S00526.cpm +++|* EXIT TO *1RJ* IF THE JOB IS ROLLABLE. 00554 M01S00527.cpm +++|* TO *CPMX* IF ERROR FLAG SET. 00555 M01S00528.cpm +++|* OTHERWISE, TO CALLER. 00556 M01S00529.cpm +++|* 00557 M01S00530.cpm +++|* USES IR+4, CM - CM+4. 00558 M01S00531.cpm +++|* 00559 M01S00532.cpm +++|* MACROS EXECUTE, PAUSE. 00560 M01S00533.cpm +++| 00561 M01S00534.cpm +++| 00562 M01S00535.cpm +++| CJR SUBR ENTRY/EXIT 00563 M01S00536.cpm +++| LDD CP CHECK IF SUBSYSTEM CALLER 00564 M01S00537.cpm +++| ADK JCIW 00565 M01S00538.cpm +++| CRD CM 00566 M01S00539.cpm +++| LDD CM+2 00567 M01S00540.cpm +++| SBK LSSI+1 00568 M01S00541.cpm +++| PJN CJRX IF SUBSYSTEM 00569 M01S00542.cpm +++| LDM RDCT 00570 M01S00543.cpm +++| SHN 21-12 00571 M01S00544.cpm +++| MJN CJRX IF ERROR NOT RECOVERABLE 00572 M01S00545.cpm +++| PAUSE 00573 M01S00546.cpm +++| LDD CM+1 00574 M01S00547.cpm +++| NJP CPMX IF ERROR FLAG SET 00575 M01S00548.cpm +++| LDD T5 SET EST ORDINAL 00576 M01S00549.cpm +++| STD IR+4 00577 M01S00550.cpm +++| EXECUTE 1RJ RECALL JOB 00578 M01S00551.cpm +++| CKA SPACE 4,10 00579 M01S00552.cpm +++|** CKA - CHECK ADDRESS. 00580 M01S00553.cpm +++|* 00581 M01S00554.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS. 00582 M01S00555.cpm +++|* (T1) = WORD COUNT MINUS ONE. 00583 M01S00556.cpm +++|* 00584 M01S00557.cpm +++|* EXIT (A) = ABSOLUTE ADDRESS. 00585 M01S00558.cpm +++| 00586 M01S00559.cpm +++| 00587 M01S00560.cpm +++| CKA2 LDD IR+3 LOAD ABSOLUTE ADDRESS 00588 M01S00561.cpm +++| SHN 6 00589 M01S00562.cpm +++| ADD RA 00590 M01S00563.cpm +++| SHN 6 00591 M01S00564.cpm +++| ADD IR+4 00592 M01S00565.cpm +++| 00593 M01S00566.cpm +++| CKA SUBR ENTRY/EXIT 00594 M01S00567.cpm +++| LDD IR+3 00595 M01S00568.cpm +++| SCN 37 00596 M01S00569.cpm +++| NJN CKA1 IF OUT OF RANGE 00597 M01S00570.cpm +++| LDD IR+3 00598 M01S00571.cpm +++| SHN 14 00599 M01S00572.cpm +++| LMD IR+4 00600 M01S00573.cpm +++| ADD T1 00601 M01S00574.cpm +++| SHN -6 00602 M01S00575.cpm +++| SBD FL 00603 M01S00576.cpm +++| MJN CKA2 IF < FL - WORD COUNT 00604 M01S00577.cpm +++| CKA1 ABORT ERAE * CPM - ARGUMENT ERROR.* 00605 M01S00578.cpm +++| RCL SPACE 4,10 00606 M01S00579.cpm +++|** RCL - RECALL *CPM*. 00607 M01S00580.cpm +++|* 00608 M01S00581.cpm +++|* ENTRY (IR - IR+4) = *CPM* REQUEST. 00609 M01S00582.cpm +++|* 00610 M01S00583.cpm +++|* USES CM - CM+4. 00611 M01S00584.cpm +++|* 00612 M01S00585.cpm +++|* MACROS MONITOR. 00613 M01S00586.cpm +++| 00614 M01S00587.cpm +++| 00615 M01S00588.cpm +++| RCL BSS 0 00616 M01S00589.cpm +++| LDN ZERL RECALL REQUEST 00617 M01S00590.cpm +++| CRD CM 00618 M01S00591.cpm +++| LDD MA 00619 M01S00592.cpm +++| CWM IR,ON 00620 M01S00593.cpm +++| CWD CM 00621 M01S00594.cpm +++| MONITOR RECM 00622 M01S00595.cpm +++| LJM PPR EXIT 00623 M01S00596.cpm +++| UFC SPACE 4,10 00624 M01S00597.cpm +++|** UFC - UPDATE FAMILY ACTIVITY COUNTS. 00625 M01S00598.cpm +++|* 00626 M01S00599.cpm +++|* ENTRY (CN+3) = CURRENT FAMILY EST ORDINAL. 00627 M01S00600.cpm +++|* (T2) = NEW FAMILY EST ORDINAL. 00628 M01S00601.cpm +++|* 00629 M01S00602.cpm +++|* EXIT CURRENT FAMILY ACTIVITY COUNT DECREMENTED. 00630 M01S00603.cpm +++|* NEW FAMILY ACTIVITY COUNT INCREMENTED.
| Line S00604 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00631 M02S00604.271l750 ---|* *PUCW* CLEARED IF FAMILY CHANGED. 00632 M01S00022.271l750 +++|* *PUCN* CLEARED IF FAMILY CHANGED. 00633 M01S00605.cpm +++|* 00634 M01S00606.cpm +++|* USES CM - CM+4. 00635 M01S00607.cpm +++| 00636 M01S00608.cpm +++| 00637 M01S00609.cpm +++| UFC SUBR ENTRY/EXIT 00638 M01S00610.cpm +++| LDD CN+3 CHECK OLD = NEW 00639 M01S00611.cpm +++| LMD T2 00640 M01S00612.cpm +++| ZJN UFCX IF OLD = NEW 00641 M01S00613.cpm +++| LDD CN+3 DECREMENT OLD FAMILY ACTIVITY COUNT 00642 M01S00614.cpm +++| STD CM+1 00643 M01S00615.cpm +++| LMN NEEQ CHECK FOR NULL FAMILY 00644 M01S00616.cpm +++| ZJN UFC1 IF NULL FAMILY 00645 M01S00617.cpm +++| LDN DFCS 00646 M01S00618.cpm +++| STD CM+3 00647 M01S00619.cpm +++| MONITOR SMDM 00648 M01S00620.cpm +++| UFC1 LDD T2 INCREMENT NEW FAMILY ACTIVITY COUNT 00649 M01S00621.cpm +++| STD CM+1 00650 M01S00622.cpm +++| LDN IFCS 00651 M01S00623.cpm +++| STD CM+3 00652 M01S00624.cpm +++| MONITOR SMDM
| Line S00625 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00653 M02S00625.271l750 ---| LDN ZERL CLEAR *PUCW* 00654 M01S00023.271l750 +++| LDN ZERL CLEAR *PUCN* 00655 M01S00626.cpm +++| CRD CM
| Line S00627 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00656 M02S00627.271l750 ---| LDD CP
| Line S00628 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00657 M02S00628.271l750 ---| ADK PUCW 00658 M01S00024.271l750 +++| NFA PUCN 00659 M01S00629.cpm +++| CWD CM 00660 M01S00630.cpm +++| UJN UFCX RETURN 00661 M01S00631.cpm +++| SPACE 4,10 00662 M01S00632.cpm +++|** COMMON DECKS NOT TO BE OVERLAID. 00663 M01S00633.cpm +++| 00664 M01S00634.cpm +++| 00665 M01S00635.cpm +++| TLI$ SET 1 SELECT TIME LIMIT INDEX CONVERSION 00666 M01S00636.cpm +++| CLI$ SET 1 SELECT CONVERSION FROM INDEX TO COUNT 00667 M01S00637.cpm +++| SLI$ SET 1 SELECT SRU LIMIT CONVERSION 00668 M01S00638.cpm +++|*CALL COMPCVI 00669 M01S00639.cpm +++| EJT$ EQU 1 DEFINE EJT PROCESSOR 00670 M01S00640.cpm +++| FNT$ EQU 1 DEFINE SYSTEM FNT PROCESSOR 00671 M01S00641.cpm +++| IFP$ EQU 1 DEFINE REMOTE INITIALIZATION CODE 00672 M01S00025.271l750 +++| JCB$ EQU 1 DEFINE JCB PROCESSOR 00673 M01S00642.cpm +++|*CALL COMPGFP 00674 M01S00643.cpm +++|*CALL COMPRJC 00675 M01S00644.cpm +++|*CALL COMPRSS 00676 M01S00645.cpm +++|*CALL COMPVFN 00677 M01S00646.cpm +++| SPACE 4,10 00678 M01S00647.cpm +++|** OVERLAY DEFINITIONS. 00679 M01S00648.cpm +++| 00680 M01S00649.cpm +++| 00681 M01S00650.cpm +++| OVL EQU *+5 OVERLAY LOAD ADDRESS 00682 M01S00651.cpm +++| L0AV EQU BFMS-ZAVL LOAD ADDRESS FOR *0AV* 00683 M01S00652.cpm +++| TITLE FUNCTION PROCESSORS. 00684 M01S00653.cpm +++| SPR SPACE 4,10 00685 M01S00654.cpm +++|*** FUNCTION 1. 00686 M01S00655.cpm +++|* SET CPU PRIORITY = PARAMETER. 00687 M01S00656.cpm +++|*
| Line S00657 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00688 M02S00657.cpm34 ---|* ENTRY (CN - CN+4) = *JCIW*.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00689 M02S00001.ns2731 ---|* ENTRY (IR+4) = REQUESTED CPU PRIORITY. 00690 M01S00001.ns2731 +++|* ENTRY (IR+4) = REQUESTED CPU PRIORITY IF .NE. 0. 00691 M01S00002.ns2731 +++|* (IR+4) = 0 TO SET CPU PRIORITY TO SERVICE CLASS VALUE. 00692 M01S00658.cpm +++| 00693 M01S00659.cpm +++| 00694 M01S00660.cpm +++| SPR ENTRY
| Line S00661 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00695 M02S00661.cpm34 ---| LDD IR+4
| Line S00662 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00696 M02S00662.cpm34 ---| ZJN SPR2 IF ZERO PRIORITY REQUESTED
| Line S00663 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00697 M02S00663.cpm34 ---| SBD CN
| Line S00664 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00698 M02S00664.cpm34 ---| MJN SPR3 IF PRIORITY DECREASE REQUESTED
| Line S00665 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00699 M02S00665.cpm34 ---| ZJN SPR5 IF NO PRIORITY CHANGE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00700 M02S00002.271l750 ---|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00701 M02S00003.271l750 ---|* DO NOT CHANGE THE PRIORITY IF THE SERVICE CLASS IS .GE. MXJC
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00702 M02S00004.271l750 ---|* TO PREVENT *CPUMTR* FROM ATTEMPTING TO ADJUST THE CPU
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00703 M02S00005.271l750 ---|* PRIORITY FROM A NON-EXISTENT JCB.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00704 M02S00006.271l750 ---|
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00705 M02S00007.271l750 ---| LDD CP GET JOB EJT ORDINAL
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00706 M02S00008.271l750 ---| ADN TFSW
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00707 M02S00009.271l750 ---| CRD CM
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00708 M02S00010.271l750 ---| SFA EJT,CM GET SERVICE CLASS
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00709 M02S00011.271l750 ---| ADN SCLE
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00710 M02S00012.271l750 ---| CRD CM
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00711 M02S00013.271l750 ---| LDD CM
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00712 M02S00014.271l750 ---| SHN -6
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00713 M02S00015.271l750 ---| SBN MXJC
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00714 M02S00016.271l750 ---| PJN SPR4 IF NO JCB FOR SERVICE CLASS 00715 M01S00666.cpm +++| LDD OT CHECK ORIGIN TYPE 00716 M01S00667.cpm +++| LMK SYOT 00717 M01S00668.cpm +++| ZJN SPR1 IF SYSTEM ORIGIN JOB 00718 M01S00669.cpm +++| LDD EP CHECK FOR SSJ= JOB 00719 M01S00670.cpm +++| SHN 21-2
| Line S00671 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00720 M02S00671.cpm34 ---| PJN SPR5 IF NOT SSJ= 00721 M01S00017.cpm34 +++| PJN SPR4 IF NOT SSJ=
| Line S00672 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00722 M02S00672.ns2731 ---| SPR1 LDN LSCS VALIDATE RANGE
| Line S00673 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00723 M02S00673.ns2731 ---| SBD IR+4
| Line S00674 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm34 |
M03 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00724 M03S00674.ns2731 ---| PJN SPR3 IF BELOW MAXIMUM
| Line S00675 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l716 |
M03 (Updated by) | cpm34 |
M04 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00725 M04S00675.ns2731 ---| LDN LSCS&1
| Line S00676 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l716 |
M03 (Updated by) | cpm34 |
M04 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00726 M04S00676.ns2731 ---| SPR2 LMN 1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Updated by) | cpm34 |
M03 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00727 M03S00001.ns2731 ---| LDK LFCS&LJCS
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Updated by) | cpm34 |
M03 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00728 M03S00002.ns2731 ---| SPR2 LMK LJCS SET MINIMUM USER JOB CPU PRIORITY
| Line S00677 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm34 |
M03 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00729 M03S00677.ns2731 ---| UJN SPR4
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00730 M02S00018.ns2731 ---| PJN SPR2 IF BELOW SUBSYSTEM PRIORITIES
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Updated by) | 271l750 |
M03 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00731 M03S00019.ns2731 ---| LDN LSCS SET HIGHEST FIXED PRIORITY
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00732 M02S00026.ns2731 ---| LDN LSCS SET HIGHEST FORCED PRIORITY 00733 M01S00003.ns2731 +++| SPR1 LDD IR+4 00734 M01S00004.ns2731 +++| ZJN SPR3 IF SET PRIORITY TO SERVICE CLASS VALUE 00735 M01S00005.ns2731 +++| SBK LJCS 00736 M01S00006.ns2731 +++| PJN SPR1.1 IF REQUESTED PRIORITY NOT TOO LOW 00737 M01S00007.ns2731 +++| LDN LJCS SET LOWEST JOB PRIORITY 00738 M01S00008.ns2731 +++| UJN SPR3 SET PRIORITY 00739 M01S00009.ns2731 +++| 00740 M01S00010.ns2731 +++| SPR1.1 SBK LSCS-LJCS 00741 M01S00011.ns2731 +++| MJN SPR2 IF REQUESTED PRIORITY NOT TOO HIGH 00742 M01S00012.ns2731 +++| LDN LSCS-1 SET HIGHEST USER JOB PRIORITY 00743 M01S00020.cpm34 +++| UJN SPR3 SET PRIORITY 00744 M01S00678.cpm +++|
| Line S00679 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00745 M02S00679.cpm34 ---| SPR3 LDD IR+4 SET PRIORITY
| Line S00680 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00746 M02S00680.cpm34 ---| SPR4 STD CM+4 00747 M01S00021.cpm34 +++| SPR2 LDD IR+4 SET PRIORITY 00748 M01S00022.cpm34 +++| SPR3 STD CM+4 00749 M01S00681.cpm +++| LDN CPRS SELECT CPU PRIORITY 00750 M01S00682.cpm +++| STD CM+1 00751 M01S00683.cpm +++| MONITOR SJCM
| Line S00684 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00752 M02S00684.cpm34 ---| SPR5 LJM CPMX RETURN 00753 M01S00023.cpm34 +++| SPR4 LJM CPMX RETURN 00754 M01S00685.cpm +++| SEM SPACE 4,20 00755 M01S00686.cpm +++|*** FUNCTION 2. 00756 M01S00687.cpm +++|* SET EXIT MODE. 00757 M01S00688.cpm +++|* 00758 M01S00689.cpm +++|* ENTRY (IR+3) = 12/ MASK. 00759 M01S00690.cpm +++|* (IR+4) = 12/ MODE. 00760 M01S00691.cpm +++|* WHERE - MASK DEFINES BIT POSITIONS TO BE CHANGED 00761 M01S00692.cpm +++|* IN WORD 3 OF THE EXCHANGE PACKAGE. 00762 M01S00693.cpm +++|* - MODE DEFINES THE NEW VALUES. 00763 M01S00694.cpm +++|* 00764 M01S00695.cpm +++|* EXIT EXIT MODE CHANGED. 00765 M01S00696.cpm +++|* 00766 M01S00697.cpm +++|* USES CM - CM+4. 00767 M01S00698.cpm +++|* 00768 M01S00699.cpm +++|* CALLS DFM. 00769 M01S00700.cpm +++|* 00770 M01S00701.cpm +++|* MACROS ABORT. 00771 M01S00702.cpm +++| 00772 M01S00703.cpm +++| 00773 M01S00704.cpm +++| SEM ENTRY 00774 M01S00705.cpm +++| LDK MABL CHECK MAINFRAME TYPE 00775 M01S00706.cpm +++| CRD CM 00776 M01S00707.cpm +++| LDD CM+1 00777 M01S00708.cpm +++| SHN -11 00778 M01S00709.cpm +++| LMN 7 00779 M01S00710.cpm +++| ZJN SEM1 IF CYBER 176 MAINFRAME 00780 M01S00711.cpm +++| LDD IR+3 CLEAR UNDERFLOW MASK 00781 M01S00712.cpm +++| SCN 10 00782 M01S00713.cpm +++| UJN SEM3 PROCESS NON C176 00783 M01S00714.cpm +++| 00784 M01S00715.cpm +++| SEM1 LDD IR+3 00785 M01S00716.cpm +++| LPN 1 00786 M01S00717.cpm +++| ZJN SEM2 IF CM RANGE MASK NOT SET 00787 M01S00718.cpm +++| LDD IR+4 00788 M01S00719.cpm +++| LPN 1 00789 M01S00720.cpm +++| NJN SEM2 IF CM RANGE NOT DESELECTED 00790 M01S00721.cpm +++| LDC =C* CM RANGE EXIT MODE NOT DESELECTABLE.* 00791 M01S00722.cpm +++| RJM DFM 00792 M01S00723.cpm +++| SEM2 LDD IR+4 REPOSITION UNDERFLOW BIT 00793 M01S00724.cpm +++| LPN 10 00794 M01S00725.cpm +++| SHN -3 00795 M01S00726.cpm +++| STD T1 00796 M01S00727.cpm +++| LDD IR+4 00797 M01S00728.cpm +++| SCN 11 00798 M01S00729.cpm +++| LMD T1 00799 M01S00730.cpm +++| STD IR+4 00800 M01S00731.cpm +++| LDD IR+3 REPOSITION UNDERFLOW MASK BIT 00801 M01S00732.cpm +++| LPN 10 00802 M01S00733.cpm +++| SHN -3 00803 M01S00734.cpm +++| STD T1 00804 M01S00735.cpm +++| LDD IR+3 00805 M01S00736.cpm +++| SCN 11 00806 M01S00737.cpm +++| LMD T1 00807 M01S00738.cpm +++| SEM3 STD IR+3 00808 M01S00739.cpm +++| LPN 20 00809 M01S00740.cpm +++| ZJN SEM5 IF NOT CHANGING THE PURGING BIT 00810 M01S00741.cpm +++| LDK MABL 00811 M01S00742.cpm +++| CRD CM 00812 M01S00743.cpm +++| LDD CM+1 00813 M01S00744.cpm +++| SHN 21-13 00814 M01S00745.cpm +++| PJN SEM5 IF CYBER 170-8X5 MAINFRAME 00815 M01S00746.cpm +++| LDC =C* STACK PURGING NOT DESELECTABLE.* 00816 M01S00747.cpm +++| RJM DFM PROCESS DAYFILE MESSAGE 00817 M01S00748.cpm +++| LDD IR+3 CLEAR STACK PURGING MASK 00818 M01S00749.cpm +++| SCN 20 00819 M01S00750.cpm +++| UJN SEM6 PROCESS EXIT MODE BITS 00820 M01S00751.cpm +++| 00821 M01S00752.cpm +++| SEM4 ABORT ERAE * CPM - ARGUMENT ERROR.* 00822 M01S00753.cpm +++| 00823 M01S00754.cpm +++| SEM5 LDD IR+3 MASK OF BITS TO BE CHANGED 00824 M01S00755.cpm +++| NJN SEM6 IF EXIT MODE MASK SPECIFIED 00825 M01S00756.cpm +++| LDN 7 DEFAULT MASK 00826 M01S00757.cpm +++| SEM6 LPN 27 00827 M01S00758.cpm +++| RAM SEMB 00828 M01S00759.cpm +++| LPN 27 RETRIEVE MASK 00829 M01S00760.cpm +++| RAM SEMA 00830 M01S00761.cpm +++| LDD IR+3 ORIGINAL MASK 00831 M01S00762.cpm +++| LPC 750 00832 M01S00763.cpm +++| NJN SEM4 IF NOT CHANGING LEGAL EXIT MODE BITS 00833 M01S00764.cpm +++| LDD CP GET CURRENT EXIT MODE 00834 M01S00765.cpm +++| ADN 3 READ MODE 00835 M01S00766.cpm +++| CRD CM 00836 M01S00767.cpm +++| LDD CM CURRENT MODE 00837 M01S00768.cpm +++| SEMA SCN 0 CLEAR THOSE BITS CHANGING 00838 M01S00769.cpm +++| STD CM 00839 M01S00770.cpm +++| LDD IR+4 NEW VALUE FOR THOSE BITS CHANGING 00840 M01S00771.cpm +++| SEMB LPN 0 EXTRACT THOSE BITS CHANGING 00841 M01S00772.cpm +++| ADD CM FORM NEW EXIT MODE 00842 M01S00773.cpm +++| LPC 0777 CLEAR HARDWARE MODE BITS 00843 M01S00774.cpm +++| LMC 7000 FORCE HARDWARE MODE BITS ON 00844 M01S00775.cpm +++| STD CM 00845 M01S00776.cpm +++| LDN 0 CLEAR UNPROCESSED *PSD* ERRORS 00846 M01S00777.cpm +++| STD CM+1 00847 M01S00778.cpm +++| LDD CP 00848 M01S00779.cpm +++| ADN 3 00849 M01S00780.cpm +++| CWD CM WRITE NEW EXIT MODE 00850 M01S00781.cpm +++| LJM CPMX EXIT
| Line S00782 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00851 M02S00782.ns2726 ---| SDA SPACE 4,10 00852 M01S00001.ns2726 +++| SDA SPACE 4,20 00853 M01S00783.cpm +++|*** FUNCTION 5.
| Line S00784 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00854 M02S00784.ns2726 ---|* SET CONSOLE DISPLAY REGISTER TO (PARAMETER).
| Line S00785 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00855 M02S00785.ns2726 ---|* DISPLAY REGISTER FORMAT. 00856 M01S00002.ns2726 +++|* SET *K* DISPLAY CONTROLS. 00857 M01S00786.cpm +++|*
| Line S00787 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00858 M02S00787.ns2726 ---|*T, 1/0,1/U,1/0,1/S,2/0,18/ KB,18/ LS,18/ RS
Figure
00859 M01S00003.ns2726 +++|* ENTRY (IR+3 - IR+4) = ADDRESS OF PARAMETER WORD IF TO 00860 M01S00004.ns2726 +++|* ACTIVATE *K* DISPLAY. 00861 M01S00005.ns2726 +++|* = 0 IF TO DEACTIVATE *K* DISPLAY. 00862 M01S00788.cpm +++|*
| Line S00789 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00863 M02S00789.ns2726 ---|* U = 1, IF UPDATE OF STATUS WORD IS NOT REQUIRED. 00864 M01S00006.ns2726 +++|*T,ADDR 1/0,1/U,1/0,1/S,2/0,18/ KB,18/ RS,18/ LS
Figure ADDR
00865 M01S00007.ns2726 +++|* 00866 M01S00008.ns2726 +++|* U = 1, IF UPDATE OF STATUS WORD IS NOT REQUIRED 00867 M01S00790.cpm +++|* S = 1, IF K-DISPLAY INPUT TO BE SUPPRESSED FROM DAYFILE 00868 M01S00791.cpm +++|* KB KEYBOARD BUFFER ADDRESS 00869 M01S00009.ns2726 +++|* RS RIGHT SCREEN BUFFER ADDRESS 00870 M01S00792.cpm +++|* LS LEFT SCREEN BUFFER ADDRESS
| Line S00793 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00871 M02S00793.ns2726 ---|* RS RIGHT SCREEN BUFFER ADDRESS 00872 M01S00010.ns2726 +++|* 00873 M01S00011.ns2726 +++|* EXIT *K* DISPLAY CONTROLS UPDATED. 00874 M01S00794.cpm +++| 00875 M01S00795.cpm +++| 00876 M01S00796.cpm +++| SDA ENTRY 00877 M01S00797.cpm +++| LDD IR+3 CHECK PARAMETER 00878 M01S00798.cpm +++| LPN 37 00879 M01S00799.cpm +++| SHN 14 00880 M01S00800.cpm +++| LMD IR+4 00881 M01S00801.cpm +++| NJN SDA1 IF AN ADDRESS WAS SPECIFIED 00882 M01S00802.cpm +++| LDK ZERL 00883 M01S00803.cpm +++| LJM SDA6 CLEAR DISPLAY REGISTER (DBAW) 00884 M01S00804.cpm +++| 00885 M01S00805.cpm +++| SDA1 LDK PPCP CHECK IF K-DISPLAY IS ACTIVE 00886 M01S00806.cpm +++| CRD CN 00887 M01S00807.cpm +++| LDD CN+4 00888 M01S00808.cpm +++| ADN 10 00889 M01S00809.cpm +++| CRD CN READ *DSD*-S INPUT REGISTER 00890 M01S00810.cpm +++| LDD CN+2 00891 M01S00811.cpm +++| SHN -6 00892 M01S00812.cpm +++| LMN 1RK 00893 M01S00813.cpm +++| ZJN SDA2 IF K-DISPLAY IS UP ON THE LEFT SCREEN 00894 M01S00814.cpm +++| LDD CN+2 00895 M01S00815.cpm +++| LPN 77 00896 M01S00816.cpm +++| LMN 1RK 00897 M01S00817.cpm +++| NJN SDA3 IF K-DISPLAY IS NOT UP 00898 M01S00818.cpm +++| LDN 1 00899 M01S00819.cpm +++| SDA2 STD T2 GET EJTO FROM *DSD*-S INPUT REGISTER 00900 M01S00820.cpm +++| LDM CN+3,T2 00901 M01S00821.cpm +++| ZJN SDA3 IF DISPLAY IS NOT ASSIGNED TO A JOB 00902 M01S00822.cpm +++| STD T2 00903 M01S00823.cpm +++| LDD CP READ THE CALLER-S EJTO 00904 M01S00824.cpm +++| ADK TFSW 00905 M01S00825.cpm +++| CRD CN 00906 M01S00826.cpm +++| LDD CN 00907 M01S00827.cpm +++| LMD T2 00908 M01S00828.cpm +++| ZJN SDA5 IF K-DISPLAY IS ASSIGNED TO THIS JOB 00909 M01S00829.cpm +++| SDA3 LDD OT CHECK ORIGIN TYPE 00910 M01S00830.cpm +++| LMK SYOT 00911 M01S00831.cpm +++| NJN SDA4 IF NOT SYSTEM ORIGIN 00912 M01S00832.cpm +++| LDC SDAB FLASH *REQUEST *K* DISPLAY.* MESSAGE 00913 M01S00833.cpm +++| STM SDAC 00914 M01S00834.cpm +++| SDA4 LDD CP CONSOLE MESSAGE = * REQUEST *K* DISPLAY.* 00915 M01S00835.cpm +++| ADN MS2W 00916 M01S00836.cpm +++| CWM SDAA,TR 00917 M01S00837.cpm +++| SDAC EQU *-1 00918 M01S00838.cpm +++| SDA5 RJM CKA CHECK ADDRESS 00919 M01S00839.cpm +++| SDA6 CRD CN READ DISPLAY REGISTER 00920 M01S00840.cpm +++| LDD CP STORE DISPLAY REGISTER 00921 M01S00841.cpm +++| ADC DBAW 00922 M01S00842.cpm +++| STD T1 00923 M01S00843.cpm +++| CRD CM PRESERVE SSM STATUS 00924 M01S00844.cpm +++| LDD CN 00925 M01S00845.cpm +++| LMD CM 00926 M01S00846.cpm +++| LPC 2477 00927 M01S00847.cpm +++| LMD CM 00928 M01S00848.cpm +++| STD CN 00929 M01S00849.cpm +++| LDD T1 UPDATE DBAW 00930 M01S00850.cpm +++| CWD CN 00931 M01S00851.cpm +++| LJM CPMX EXIT 00932 M01S00852.cpm +++| 00933 M01S00853.cpm +++| SDAA DATA C+REQUEST *K* DISPLAY.+ 00934 M01S00854.cpm +++| SDAB DATA C+$REQUEST *K* DISPLAY.+ 00935 M01S00855.cpm +++| ROC SPACE 4,20 00936 M01S00856.cpm +++|*** FUNCTION 6. 00937 M01S00857.cpm +++|* ROLLOUT JOB. 00938 M01S00858.cpm +++|* IF PARAMETER .NE 0 PERFORM TIMED/EVENT ROLLOUT WITH 00939 M01S00859.cpm +++|* (RA + PARAMETER) OF FOLLOWING FORMAT - 00940 M01S00860.cpm +++|* 00941 M01S00861.cpm +++|*T 27/ 0,21/ EVENT DESCRIPTOR,12/ TIME
Figure
00942 M01S00862.cpm +++|* 00943 M01S00863.cpm +++|* EVENT DESCRIPTOR FORMAT - 00944 M01S00864.cpm +++|* 00945 M01S00865.cpm +++|* 9/ *EQ* DESCRIPTOR. 00946 M01S00866.cpm +++|* 12/ *EVD* (EVENT CODE) DESCRIPTOR. 00947 M01S00867.cpm +++|* 00948 M01S00868.cpm +++|* IF THE USER ENTERS AN EVENT DESCRIPTOR, THE EVENT TIME 00949 M01S00869.cpm +++|* MUST ALSO BE ENTERED OR A SYSTEM DEFAULT WILL BE USED. 00950 M01S00870.cpm +++|* 00951 M01S00871.cpm +++|* ERROR TO *ERR*. 00952 M01S00872.cpm +++|* 00953 M01S00873.cpm +++|* CALLS CKA. 00954 M01S00874.cpm +++|* 00955 M01S00875.cpm +++|* MACROS MONITOR. 00956 M01S00876.cpm +++| 00957 M01S00877.cpm +++| 00958 M01S00878.cpm +++| ROC ENTRY 00959 M01S00879.cpm +++| LDD IR+3 CHECK IF USER PARAMETERS SPECIFIED 00960 M01S00880.cpm +++| LPN 77 00961 M01S00881.cpm +++| ADD IR+4 00962 M01S00882.cpm +++| ZJN ROC1 IF NO USER PARAMETERS SPECIFIED 00963 M01S00883.cpm +++| 00964 M01S00884.cpm +++|* CHECK USER ROLLOUT PARAMETER WORD. 00965 M01S00885.cpm +++| 00966 M01S00886.cpm +++| RJM CKA SET PARAMETER WORD ADDRESS 00967 M01S00887.cpm +++| CRD CM READ PARAMETER WORD 00968 M01S00888.cpm +++| LDD CP READ TIMED/EVENT CONTROL WORD *TERW* 00969 M01S00889.cpm +++| ADK TERW 00970 M01S00890.cpm +++| CRD CN 00971 M01S00891.cpm +++| LDD CM+2 CHECK USER *EQ* DESCRIPTOR 00972 M01S00892.cpm +++| LPC 777 00973 M01S00893.cpm +++| NJN ROC4 IF NON-SYSTEM EVENT 00974 M01S00894.cpm +++| LDD CM+3 CHECK *EVD* DESCRIPTOR 00975 M01S00895.cpm +++| NJN ROC4 IF SYSTEM EVENT 00976 M01S00896.cpm +++| LDD CM+4 CHECK IF TIME SPECIFIED 00977 M01S00897.cpm +++| NJN ROC5 IF TIMED ROLLOUT 00978 M01S00898.cpm +++| 00979 M01S00899.cpm +++|* PROCESS ZERO PARAMETER WORD ROLLOUT. 00980 M01S00900.cpm +++| 00981 M01S00901.cpm +++| LDD CN+2 CHECK FOR EVENT IN *TERW* 00982 M01S00902.cpm +++| LPN 77 00983 M01S00903.cpm +++| ADD CN+3 00984 M01S00904.cpm +++| ADD CN+4 00985 M01S00905.cpm +++| ZJN ROC1 IF NO EVENT WAITING IN *TERW* 00986 M01S00906.cpm +++| LJM ROC12 ISSUE TIMED/EVENT ROLLOUT 00987 M01S00907.cpm +++| 00988 M01S00908.cpm +++|* ROLLOUT JOB TO JOB SCHEDULER QUEUE. 00989 M01S00909.cpm +++|
| Line S00910 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00990 M02S00910.271l716 ---| ROC1 LDK ROSR SELECT JOB SCHEDULER ROLLOUT
| Line S00911 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00991 M02S00911.271l716 ---| LJM ROC13 ISSUE ROLLOUT REQUEST 00992 M01S00003.271l716 +++|* LDK ROSR SELECT JOB SCHEDULER ROLLOUT 00993 M01S00004.271l716 +++| ERRNZ ROSR CODE DEPENDS ON VALUE 00994 M01S00005.271l716 +++| ROC1 LJM ROC13 ISSUE ROLLOUT REQUEST 00995 M01S00912.cpm +++| 00996 M01S00913.cpm +++|* PROCESS ARGUMENT ERROR. 00997 M01S00914.cpm +++| 00998 M01S00915.cpm +++| ROC3 LDC ERAE * CPM - ARGUMENT ERROR.* 00999 M01S00916.cpm +++| LJM ERR PROCESS ERROR 01000 M01S00917.cpm +++| 01001 M01S00918.cpm +++|* PROCESS EVENT ROLLOUT. 01002 M01S00919.cpm +++| 01003 M01S00920.cpm +++| ROC4 LDD CM+2 CHECK *EQ* DESCRIPTOR 01004 M01S00921.cpm +++| SBK /EVENT/EXTM/10000 01005 M01S00922.cpm +++| ZJN ROC6 IF EXTENDED TIME ROLLOUT 01006 M01S00923.cpm +++| LDN ESTP CHECK FOR INCORRECT EST ORDINAL 01007 M01S00924.cpm +++| CRD T0 01008 M01S00925.cpm +++| LDD CM+2 01009 M01S00926.cpm +++| SBD T0+2 01010 M01S00927.cpm +++| PJN ROC3 IF INCORRECT *EQ* DESCRIPTOR 01011 M01S00928.cpm +++| ROC5 UJN ROC7 SET ROLLOUT TIME 01012 M01S00929.cpm +++| 01013 M01S00930.cpm +++|* PROCESS EXTENDED TIME ROLLOUT. 01014 M01S00931.cpm +++| 01015 M01S00932.cpm +++| ROC6 LDD CM+4 SAVE ADD-ON TIME 01016 M01S00933.cpm +++| STD T0 01017 M01S00934.cpm +++| ADD CM+3 01018 M01S00935.cpm +++| ZJN ROC1 IF NO TIMES SPECIFIED 01019 M01S00936.cpm +++| LDD CM+3 SET CYCLE MULTIPLIER 01020 M01S00937.cpm +++| STD CM+4 01021 M01S00938.cpm +++| SHN 0-6 CHECK VALUE 01022 M01S00939.cpm +++| NJN ROC3 IF MULTIPLIER .GT. 77 01023 M01S00940.cpm +++| LDD T0 SET ADD-ON TIME 01024 M01S00941.cpm +++| STD CM+3 01025 M01S00942.cpm +++| NJN ROC9 IF NONZERO 01026 M01S00943.cpm +++| LCN 0 ADJUST ADD-ON TIME FOR *1SJ* 01027 M01S00944.cpm +++| STD CM+3 01028 M01S00945.cpm +++| SOD CM+4 ADJUST CYCLE MULTIPLIER FOR *1SJ* 01029 M01S00946.cpm +++| UJN ROC10 SET TIME AND EVENT 01030 M01S00947.cpm +++| 01031 M01S00948.cpm +++|* SELECT, VALIDATE, AND ADJUST ROLLOUT TIME VALUE. 01032 M01S00949.cpm +++| 01033 M01S00950.cpm +++| ROC7 LDD CM+4 CHECK TIME SPECIFIED 01034 M01S00951.cpm +++| NJN ROC8 IF NONZERO 01035 M01S00952.cpm +++| LDD CN+2 CHECK FOR TIME IN *TERW* 01036 M01S00953.cpm +++| SHN 21-5 01037 M01S00954.cpm +++| SCN 77 01038 M01S00955.cpm +++| LMD CN+3 01039 M01S00956.cpm +++| SHN 0-11 01040 M01S00957.cpm +++| NJN ROC11 IF TIME IN *TERW* 01041 M01S00958.cpm +++| LDK CRT SELECT DEFAULT TIME 01042 M01S00959.cpm +++| UJN ROC10 SET TIME AND EVENT 01043 M01S00960.cpm +++| 01044 M01S00961.cpm +++| ROC8 SHN 0-11 VALIDATE TIME SPECIFIED 01045 M01S00962.cpm +++| ZJN ROC9 IF .LE. 777 01046 M01S00963.cpm +++| LDC 777 SELECT MAXIMUM ROLLOUT TIME 01047 M01S00964.cpm +++| UJN ROC10 SET TIME AND EVENT 01048 M01S00965.cpm +++| 01049 M01S00966.cpm +++| ROC9 LDD CM+4 SELECT TIME SPECIFIED 01050 M01S00967.cpm +++|* UJN ROC10 SET TIME AND EVENT 01051 M01S00968.cpm +++| 01052 M01S00969.cpm +++|* SET ROLLOUT TIME IN *TERW* IMAGE. 01053 M01S00970.cpm +++|* 01054 M01S00971.cpm +++|* (A) = ROLLOUT TIME. 01055 M01S00972.cpm +++| 01056 M01S00973.cpm +++| ROC10 SHN 21-10 INSERT LOWER 3 BITS OF TIME 01057 M01S00974.cpm +++| LMD CN+3 MERGE WITH EVENT DESCRIPTOR 01058 M01S00975.cpm +++| LPC 777000 01059 M01S00976.cpm +++| LMD CN+3 01060 M01S00977.cpm +++| STD CN+3 01061 M01S00978.cpm +++| SHN 5-21 INSERT UPPER 6 BITS OF TIME 01062 M01S00979.cpm +++| LMD CN+2 01063 M01S00980.cpm +++| LPN 77 01064 M01S00981.cpm +++| LMD CN+2 01065 M01S00982.cpm +++| STD CN+2 01066 M01S00983.cpm +++| LDD CM+2 CHECK FOR A NEW EVENT DESCRIPTOR 01067 M01S00984.cpm +++| ADD CM+3
| Line S00985 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01068 M02S00985.271l716 ---| ZJN ROC11.1 IF NO EVENT SPECIFIED 01069 M01S00006.271l716 +++| ZJN ROC12 IF NO EVENT SPECIFIED 01070 M01S00986.cpm +++|
| Line S00987 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01071 M02S00987.271l716 ---|* SET ROLLOUT EVENT IN *TERW*. 01072 M01S00007.271l716 +++|* SET ROLLOUT EVENT. 01073 M01S00988.cpm +++| 01074 M01S00989.cpm +++| ROC11 LDD CN+3 SET *EQ* DESCRIPTOR 01075 M01S00990.cpm +++| LPC 7000 01076 M01S00991.cpm +++| LMD CM+2 01077 M01S00992.cpm +++| STD CN+3 01078 M01S00993.cpm +++| LDD CM+3 SET *EVD* DESCRIPTOR 01079 M01S00994.cpm +++| STD CN+4
| Line S00995 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01080 M02S00995.271l716 ---| ROC11.1 LDD CP REWRITE *TERW*
| Line S00996 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01081 M02S00996.271l716 ---| ADK TERW
| Line S00997 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01082 M02S00997.271l716 ---| CWD CN 01083 M01S00008.271l716 +++| ROC12 LDD CN+2 SET UP *ROCM* PARAMETERS 01084 M01S00009.271l716 +++| LPN 77 01085 M01S00010.271l716 +++| SHN 14 01086 M01S00011.271l716 +++| LMD CN+3 01087 M01S00012.271l716 +++| SHN -11 01088 M01S00013.271l716 +++| STD CN+2 01089 M01S00014.271l716 +++| LDD CN+3 01090 M01S00015.271l716 +++| LPC 777 01091 M01S00016.271l716 +++| STD CN+3 01092 M01S00017.271l716 +++| LDD MA WRITE *ROCM* PARAMETER WORD TO MB 01093 M01S00018.271l716 +++| CWD CN 01094 M01S00998.cpm +++| 01095 M01S00999.cpm +++|* ROLLOUT JOB TO TIMED/EVENT QUEUE. 01096 M01S01000.cpm +++|
| Line S01001 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01097 M02S01001.271l716 ---| ROC12 LDN ROTE SELECT TIMED/EVENT ROLLOUT
| Line S01002 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01098 M02S01002.271l716 ---|* UJN ROC13 ISSUE ROLLOUT REQUEST 01099 M01S00019.271l716 +++| LDK ROTE SELECT TIMED/EVENT ROLLOUT OPTION 01100 M01S01003.cpm +++| 01101 M01S01004.cpm +++|* ISSUE MONITOR REQUEST TO ROLLOUT JOB. 01102 M01S01005.cpm +++|* 01103 M01S01006.cpm +++|* (A) = ROLLOUT OPTION. 01104 M01S01007.cpm +++| 01105 M01S01008.cpm +++| ROC13 STD CM+1 SET REQUEST OPTION 01106 M01S01009.cpm +++| MONITOR ROCM ISSUE MONITOR REQUEST 01107 M01S01010.cpm +++| LJM CPMX EXIT 01108 M01S01011.cpm +++| NEX SPACE 4,10 01109 M01S01012.cpm +++|*** FUNCTION 7. 01110 M01S01013.cpm +++|* NOEXIT. 01111 M01S01014.cpm +++|* SUPPRESS PROCESSING OF *EXIT* COMMAND IF JOB ABORTS. 01112 M01S01015.cpm +++|* ONEXIT. 01113 M01S01016.cpm +++|* RESET PROCESSING OF *EXIT* COMMAND. 01114 M01S01017.cpm +++| 01115 M01S01018.cpm +++| 01116 M01S01019.cpm +++| NEX ENTRY 01117 M01S01020.cpm +++| LDD CP READ ENTRY/EXIT CONTROL 01118 M01S01021.cpm +++| ADN EECW 01119 M01S01022.cpm +++| CRD CM 01120 M01S00001.cpm31 +++| LDD CM ENSURE *NOEXIT* FLAG CLEAR 01121 M01S00002.cpm31 +++| LPC 3777 01122 M01S00003.cpm31 +++| STD CM 01123 M01S01023.cpm +++| LDD IR+4 CHECK INPUT PARAMETER 01124 M01S01024.cpm +++| ZJN NEX1 IF ONEXIT
| Line S01025 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm31 |
Seq # *Modification Id* Act ----------------------------+ 01125 M02S01025.cpm31 ---| LDC 4000 SET -NOEXIT- FLAG
| Line S01026 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | cpm31 |
Seq # *Modification Id* Act ----------------------------+ 01126 M02S01026.cpm31 ---| NEX1 STD CM 01127 M01S00004.cpm31 +++| LDC 4000 SET *NOEXIT* FLAG 01128 M01S00005.cpm31 +++| NEX1 RAD CM 01129 M01S01027.cpm +++| LDD CP STORE ENTRY/EXIT CONTROL 01130 M01S01028.cpm +++| ADN EECW 01131 M01S01029.cpm +++| CWD CM 01132 M01S01030.cpm +++| LJM CPMX EXIT 01133 M01S01031.cpm +++| SSM SPACE 4,10 01134 M01S01032.cpm +++|*** FUNCTION 10. 01135 M01S01033.cpm +++|* SET/CLEAR SECURE SYSTEM MEMORY FLAG. 01136 M01S01034.cpm +++| 01137 M01S01035.cpm +++| 01138 M01S01036.cpm +++| SSM ENTRY 01139 M01S01037.cpm +++| LDD CP READ CP AREA WORD *DBAW* 01140 M01S01038.cpm +++| ADC DBAW 01141 M01S01039.cpm +++| STD T2 01142 M01S01040.cpm +++| CRD CN 01143 M01S01041.cpm +++| LDD IR+4 CHECK OPTION 01144 M01S01042.cpm +++| NJN SSM1 IF SET REQUEST 01145 M01S01043.cpm +++| STM SSMA 01146 M01S01044.cpm +++| LDD EP 01147 M01S01045.cpm +++| LPN 1 01148 M01S01046.cpm +++| ZJN SSM1 IF NOT SSM= 01149 M01S01047.cpm +++| ABORT ERIR * CPM - INCORRECT REQUEST.* 01150 M01S01048.cpm +++| 01151 M01S01049.cpm +++| SSM1 LDD CN SET/CLEAR SECURE SYSTEM MEMORY BIT 01152 M01S01050.cpm +++| LPC 3777 01153 M01S01051.cpm +++| LMC 4000 01154 M01S01052.cpm +++|* LMC 0 01155 M01S01053.cpm +++| SSMA EQU *-1 01156 M01S01054.cpm +++| STD CN WRITE *DBAW* 01157 M01S01055.cpm +++| LDD T2 01158 M01S01056.cpm +++| CWD CN 01159 M01S01057.cpm +++| LJM CPMX EXIT 01160 M01S01058.cpm +++| ONS SPACE 4,10 01161 M01S01059.cpm +++|*** FUNCTION 11. 01162 M01S01060.cpm +++|* TURN ON SENSE SWITCHES FOR BITS 0 - 5 IN PARAMETER. 01163 M01S01061.cpm +++| 01164 M01S01062.cpm +++| 01165 M01S01063.cpm +++| ONS ENTRY 01166 M01S01064.cpm +++| LDD IR+4 SET SWITCH BITS 01167 M01S01065.cpm +++| SHN 6 01168 M01S01066.cpm +++| STD T1 01169 M01S01067.cpm +++| ONS1 LDD IR+4 FORM SWITCH MASK 01170 M01S01068.cpm +++| LPN 77 01171 M01S01069.cpm +++| SHN 6 01172 M01S01070.cpm +++| LMC -0 01173 M01S01071.cpm +++| STM ONSA 01174 M01S01072.cpm +++| LDD CP READ SWITCH WORD 01175 M01S01073.cpm +++| ADN SNSW 01176 M01S01074.cpm +++| CRD CM 01177 M01S01075.cpm +++| LDD CM+4 CLEAR/SET SENSE SWITCHES 01178 M01S01076.cpm +++| LPC * 01179 M01S01077.cpm +++| ONSA EQU *-1 01180 M01S01078.cpm +++| LMD T1 01181 M01S01079.cpm +++| STD CM+4 01182 M01S01080.cpm +++| LDD CP STORE SWITCH WORD 01183 M01S01081.cpm +++| ADN SNSW 01184 M01S01082.cpm +++| CWD CM 01185 M01S01083.cpm +++| LDD RA STORE SWITCHES IN (RA) 01186 M01S01084.cpm +++| SHN 6 01187 M01S01085.cpm +++| CRD CN READ (RA) 01188 M01S01086.cpm +++| LDD CN+4 SET NEW SENSE SWITCHES 01189 M01S01087.cpm +++| LMD CM+4 01190 M01S01088.cpm +++| LPN 77 01191 M01S01089.cpm +++| LMD CM+4 01192 M01S01090.cpm +++| STD CN+4 01193 M01S01091.cpm +++| LDD RA STORE (RA) 01194 M01S01092.cpm +++| SHN 6 01195 M01S01093.cpm +++| CWD CN 01196 M01S01094.cpm +++| LJM CPMX EXIT 01197 M01S01095.cpm +++| OFS SPACE 4,10 01198 M01S01096.cpm +++|*** FUNCTION 12. 01199 M01S01097.cpm +++|* TURN OFF SENSE SWITCHES FOR BITS 0 - 5 IN PARAMETER. 01200 M01S01098.cpm +++| 01201 M01S01099.cpm +++| 01202 M01S01100.cpm +++| OFS ENTRY 01203 M01S01101.cpm +++| LDN 0 CLEAR SWITCH BITS 01204 M01S01102.cpm +++| STD T1 01205 M01S01103.cpm +++| LJM ONS1 01206 M01S01104.cpm +++| RJN SPACE 4,10 01207 M01S01105.cpm +++|*** FUNCTION 13. 01208 M01S01106.cpm +++|* READ JSN TO (PARAMETER). 01209 M01S01107.cpm +++|* 01210 M01S01108.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS OF PARAMETER WORD. 01211 M01S01109.cpm +++|* 01212 M01S01110.cpm +++|* EXIT JOB SEQUENCE NUMBER RETURNED IN FORMAT - 01213 M01S01111.cpm +++|*T ADDR 24/ JSN, 36/ 0
Figure ADDR
01214 M01S01112.cpm +++| 01215 M01S01113.cpm +++| 01216 M01S01114.cpm +++| RJN ENTRY 01217 M01S01115.cpm +++| LDD CP GET JOB EJT ORDINAL 01218 M01S01116.cpm +++| ADN TFSW 01219 M01S01117.cpm +++| CRD CM 01220 M01S01118.cpm +++| SFA EJT,CM GET JSN 01221 M01S01119.cpm +++| ERRNZ JSNE CHECK IF WORD 0 IF EJT ENTRY 01222 M01S01120.cpm +++| CRD CM 01223 M01S01121.cpm +++| LDN ZERL 01224 M01S01122.cpm +++| CRD CM+2 01225 M01S01123.cpm +++| UJN RPR1 RETURN JSN 01226 M01S01124.cpm +++| RPR SPACE 4,10 01227 M01S01125.cpm +++|*** FUNCTION 15. 01228 M01S01126.cpm +++|* READ CPU PRIORITY TO (PARAMETER).
| Line S01127 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01229 M02S01127.271l750 ---|*
| Line S01128 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01230 M02S01128.271l750 ---|* ENTRY (CN - CN+4) = *JCIW*. 01231 M01S01129.cpm +++| 01232 M01S01130.cpm +++| 01233 M01S01131.cpm +++| RPR ENTRY 01234 M01S01132.cpm +++| LDN ZERL 01235 M01S01133.cpm +++| CRD CM 01236 M01S00027.271l750 +++| LDD CP 01237 M01S00028.271l750 +++| ADN CWQW GET CPU PRIORITY 01238 M01S00029.271l750 +++| CRD CN 01239 M01S01134.cpm +++| LDD CN GET JOB CPU PRIORITY 01240 M01S00030.271l750 +++| SHN -3 01241 M01S00031.271l750 +++| LPC 177 01242 M01S01135.cpm +++| STD CM+4 01243 M01S01136.cpm +++| RPR1 RJM CKA CHECK PARAMETER ADDRESS 01244 M01S01137.cpm +++| CWD CM STORE RESPONSE 01245 M01S01138.cpm +++| LJM CPMX EXIT 01246 M01S01139.cpm +++| EDI SPACE 4,10 01247 M01S01140.cpm +++|*** FUNCTION 20. 01248 M01S01141.cpm +++|* ENTER DEMAND FILE RANDOM INDEX. 01249 M01S01142.cpm +++|* 01250 M01S01143.cpm +++|* ENTRY (IR+3 - IR+4) = DEMAND FILE RANDOM INDEX. 01251 M01S01144.cpm +++|* 01252 M01S01145.cpm +++|* CALLER MUST HAVE SSJ= ENTRY POINT SET. 01253 M01S01146.cpm +++| 01254 M01S01147.cpm +++| 01255 M01S01148.cpm +++| EDI ENTRY 01256 M01S01149.cpm +++| LDD CP READ DEMAND FILE INDEX WORD 01257 M01S01150.cpm +++| ADN RFCW 01258 M01S01151.cpm +++| CRD CN 01259 M01S01152.cpm +++| LDD IR+3 01260 M01S01153.cpm +++| LMD CN+3 01261 M01S01154.cpm +++| LPN 77 01262 M01S01155.cpm +++| LMD CN+3 01263 M01S01156.cpm +++| STD CN+3 01264 M01S01157.cpm +++| LDD IR+4 01265 M01S01158.cpm +++| STD CN+4 01266 M01S01159.cpm +++| LDD CP UPDATE DEMAND FILE INDEX WORD 01267 M01S01160.cpm +++| ADN RFCW 01268 M01S01161.cpm +++| CWD CN 01269 M01S01162.cpm +++| LJM CPMX RETURN 01270 M01S01163.cpm +++| SLC SPACE 4,10 01271 M01S01164.cpm +++|*** FUNCTION 22. 01272 M01S01165.cpm +++|* SET LOADER CONTROL WORD. 01273 M01S01166.cpm +++| 01274 M01S01167.cpm +++| 01275 M01S01168.cpm +++| SLC ENTRY 01276 M01S01169.cpm +++| RJM CKA CHECK ADDRESS 01277 M01S01170.cpm +++| CRD CM READ CONTROL WORD 01278 M01S01171.cpm +++| LDD CP STORE CONTROL WORD 01279 M01S01172.cpm +++| ADC LB1W 01280 M01S01173.cpm +++| CWD CM 01281 M01S01174.cpm +++| LJM CPMX EXIT 01282 M01S01175.cpm +++| RFL SPACE 4,10 01283 M01S01176.cpm +++|*** FUNCTION 23. 01284 M01S01177.cpm +++|* SET LAST RFL = PARAMETER. 01285 M01S01178.cpm +++|* 01286 M01S01179.cpm +++|* ENTRY (IR+3, IR+4) = RFL REQUEST. 01287 M01S01180.cpm +++|* BIT 2**11 IN IR+3 IS SET FOR EXTENDED MEMORY REQUEST 01288 M01S01181.cpm +++|* AND ZERO FOR CM REQUEST. EXTENDED MEMORY REQUESTS 01289 M01S01182.cpm +++|* ARE MULTIPLES OF 1000B. 01290 M01S01183.cpm +++| 01291 M01S01184.cpm +++| 01292 M01S01185.cpm +++| RFL ENTRY 01293 M01S01186.cpm +++| RJM PMP PROCESS ARGUMENT 01294 M01S01187.cpm +++| STD CM+1 SET NFL 01295 M01S01188.cpm +++| LDD CM 01296 M01S01189.cpm +++| SBD CM+1 01297 M01S01190.cpm +++| MJN RFL1 IF NFL .GT. MFL 01298 M01S01191.cpm +++| LDD T7 WRITE FL CONTROL WORD 01299 M01S01192.cpm +++| CWD CM 01300 M01S01193.cpm +++| LJM CPMX EXIT 01301 M01S01194.cpm +++| 01302 M01S01195.cpm +++| RFL1 ABORT ERFL * RFL BEYOND MFL.* 01303 M01S01196.cpm +++| SSB SPACE 4,10 01304 M01S01197.cpm +++|*** FUNCTION 26. 01305 M01S01198.cpm +++|* SET SUBSYSTEM FLAG = PARAMETER. 01306 M01S01199.cpm +++| 01307 M01S01200.cpm +++| 01308 M01S01201.cpm +++| SSB ENTRY 01309 M01S01202.cpm +++| LDD IR+3 CHECK SUBSYSTEM INDEX 01310 M01S01203.cpm +++| NJN SSB1 IF INCORRECT PARAMETER 01311 M01S01204.cpm +++| LDD IR+4 01312 M01S01205.cpm +++| SBN MSYS 01313 M01S01206.cpm +++| PJN SSB1 IF INCORRECT SUBSYSTEM 01314 M01S01207.cpm +++| ADN MSYS 01315 M01S01208.cpm +++| RJM SSF SET SUBSYSTEM FLAG 01316 M01S01209.cpm +++| MJN SSB2 IF NOT VALIDATED 01317 M01S01210.cpm +++| LJM CPMX RETURN 01318 M01S01211.cpm +++| 01319 M01S01212.cpm +++| SSB1 ABORT ERAE * CPM ARGUMENT ERROR.* 01320 M01S01213.cpm +++| 01321 M01S01214.cpm +++| SSB2 ABORT ERIU * CPM - USER ACCESS NOT VALID.* 01322 M01S01215.cpm +++| ROT SPACE 4,10 01323 M01S01216.cpm +++|*** FUNCTION 27. 01324 M01S01217.cpm +++|* READ ORIGIN TYPE TO (PARAMETER). 01325 M01S01218.cpm +++|* 01326 M01S01219.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS OF PARAMETER WORD. 01327 M01S01220.cpm +++|* 01328 M01S01221.cpm +++|* EXIT JOB ORIGIN TYPE (OT) RETURNED IN FORMAT - 01329 M01S01222.cpm +++|*T ADDR 54/0, 6/OT
Figure ADDR
01330 M01S01223.cpm +++| 01331 M01S01224.cpm +++| 01332 M01S01225.cpm +++| ROT ENTRY 01333 M01S01226.cpm +++| ROT1 LDD CP GET JOB EJT ORDINAL 01334 M01S01227.cpm +++| ADN TFSW 01335 M01S01228.cpm +++| CRD CM 01336 M01S01229.cpm +++| SFA EJT,CM SET ORIGIN TYPE 01337 M01S01230.cpm +++| ADN SCLE 01338 M01S01231.cpm +++| CRD CM 01339 M01S01232.cpm +++| LDD CM 01340 M01S01233.cpm +++| LPN 17 MASK ORIGIN TYPE 01341 M01S01234.cpm +++|* SCN 60 USED BY FUNCTION 111 01342 M01S01235.cpm +++| ROTA EQU *-1 01343 M01S01236.cpm +++| STD CM+4 01344 M01S01237.cpm +++| LDN ZERL 01345 M01S01238.cpm +++| CRD CM-1 01346 M01S01239.cpm +++| RJM CKA CHECK ADDRESS 01347 M01S01240.cpm +++| CWD CM STORE ORIGIN TYPE 01348 M01S01241.cpm +++| LJM CPMX EXIT 01349 M01S01242.cpm +++| SCP SPACE 4,10 01350 M01S01243.cpm +++|*** FUNCTION 31. 01351 M01S01244.cpm +++|* SELECT CPU(S) ALLOWABLE FOR JOB TO USE. 01352 M01S01245.cpm +++|* PARAM = 0, RUN JOB IN ANY CPU. 01353 M01S01246.cpm +++|* PARAM = 1,RUN JOB IN CPU - 0 ONLY. (6600 CPU ON 6700) 01354 M01S01247.cpm +++|* PARAM = 2, RUN JOB IN CPU - 1 ONLY. 01355 M01S01248.cpm +++|* IF THE CPU SELECTED IS NOT AVAILABLE, THEN NO SELECTION 01356 M01S01249.cpm +++|* IS PERFORMED, AND THE JOB IS ALLOWED TO CONTINUE. 01357 M01S00032.271l750 +++|* 01358 M01S00033.271l750 +++|* NOTE - ON A DUAL CPU MACHINE WITH CACHE, CERTAIN SUBSYSTEMS 01359 M01S00034.271l750 +++|* MAY ONLY RUN IN CPU 0. FOR THESE SUBSYSTEMS, THIS REQUEST 01360 M01S00035.271l750 +++|* WILL BE IGNORED. 01361 M01S01250.cpm +++| 01362 M01S01251.cpm +++| 01363 M01S01252.cpm +++| SCP ENTRY
| Line S01253 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01364 M02S01253.271l750 ---| LDN CPUS SELECT CPU(S) ALLOWABLE FOR JOB EXECUTION 01365 M01S00036.271l750 +++| LDN EIBP 01366 M01S00037.271l750 +++| CRD CM 01367 M01S00038.271l750 +++| LDD CM 01368 M01S00039.271l750 +++| SHN 21-12 01369 M01S00040.271l750 +++| PJN SCP1 IF NOT A DUAL CPU MACHINE WITH CACHE 01370 M01S00041.271l750 +++| LDD CP 01371 M01S00042.271l750 +++| ADK JCIW 01372 M01S00043.271l750 +++| CRD CM 01373 M01S00044.271l750 +++| LDD CM+2 01374 M01S00045.271l750 +++| ADK -LSSI 01375 M01S00046.271l750 +++| MJN SCP1 IF NOT A SUBSYSTEM 01376 M01S00047.271l750 +++| STD T1 01377 M01S00048.271l750 +++| LDM SCPA,T1 01378 M01S00049.271l750 +++| NJN SCP2 IF JOB MUST RUN IN CPU 0, IGNORE REQUEST 01379 M01S00050.271l750 +++| SCP1 LDN CPUS SELECT CPU(S) ALLOWABLE FOR JOB EXECUTION 01380 M01S01254.cpm +++| STD CM+1 01381 M01S01255.cpm +++| LDD IR+4 CHECK LEGAL CPU SELECTION 01382 M01S01256.cpm +++| STD CM+4 01383 M01S01257.cpm +++| SBN 3
| Line S01258 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01384 M02S01258.271l750 ---| PJN SCP1 IF INCORRECT REQUEST 01385 M01S00051.271l750 +++| PJN SCP3 IF INCORRECT REQUEST 01386 M01S01259.cpm +++| MONITOR SJCM
| Line S01260 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01387 M02S01260.271l750 ---| LJM CPMX EXIT 01388 M01S00052.271l750 +++| SCP2 LJM CPMX EXIT 01389 M01S01261.cpm +++|
| Line S01262 Modification History | |
|---|---|
M01 (Added by) | cpm |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01390 M02S01262.271l750 ---| SCP1 ABORT ERAE * CPM - ARGUMENT ERROR.* 01391 M01S00053.271l750 +++| SCP3 ABORT ERAE * CPM - ARGUMENT ERROR.* 01392 M01S00054.271l750 +++| 01393 M01S00055.271l750 +++| 01394 M01S00056.271l750 +++| SCPA INDEX TABLE OF SUBSYSTEMS FORCED INTO CPU 0 01395 M01S00057.271l750 +++| .SUB HERE 01396 M01S00058.271l750 +++| INDEX MXSI-LSSI 01397 M01S01263.cpm +++| EET SPACE 4,10 01398 M01S01264.cpm +++|*** FUNCTION 34. 01399 M01S01265.cpm +++|* ENTER EVENT IN SYSTEM EVENT TABLE. 01400 M01S01266.cpm +++| 01401 M01S01267.cpm +++| 01402 M01S01268.cpm +++| EET ENTRY 01403 M01S01269.cpm +++| LDN 0 01404 M01S01270.cpm +++| STD CM+1 01405 M01S01271.cpm +++| LDD IR+3 01406 M01S01272.cpm +++| STD CM+3 01407 M01S01273.cpm +++| LDD IR+4 01408 M01S01274.cpm +++| STD CM+4 01409 M01S01275.cpm +++| MONITOR EATM ENTER EVENT 01410 M01S01276.cpm +++| LDD CM+1 01411 M01S01277.cpm +++| NJP RCL IF EVENT TABLE IS FULL 01412 M01S01278.cpm +++| LJM CPMX RETURN 01413 M01S01279.cpm +++| SPN SPACE 4,10 01414 M01S01280.cpm +++|*** FUNCTION 35. 01415 M01S01281.cpm +++|* SET PACKNAME AND PACK TYPE. 01416 M01S01282.cpm +++|* 01417 M01S01283.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS OF PACKNAME PARAMETER WORD. 01418 M01S01284.cpm +++|* 01419 M01S01285.cpm +++|*T ADDR 42/NAME,18/TYPE
Figure ADDR
01420 M01S01286.cpm +++|* WHERE *NAME* IS A LEFT-JUSTIFIED PACKNAME WITH ZERO FILL, 01421 M01S01287.cpm +++|* AND *TYPE* IS A DISPLAY CODE PACK TYPE (E.G. *DI3*). 01422 M01S01288.cpm +++| 01423 M01S01289.cpm +++| 01424 M01S01290.cpm +++| SPN ENTRY 01425 M01S01291.cpm +++| RJM CKA CHECK ADDRESS 01426 M01S01292.cpm +++| CRD FN READ UP PACK NAME 01427 M01S01293.cpm +++| LDD FN+3 01428 M01S01294.cpm +++| SCN 77 01429 M01S01295.cpm +++| ADD FN+2 01430 M01S01296.cpm +++| ADD FN+1 01431 M01S01297.cpm +++| ADD FN 01432 M01S01298.cpm +++| ZJN SPN2 IF NO PACK NAME 01433 M01S01299.cpm +++| RJM VFN VERIFY PACK NAME 01434 M01S01300.cpm +++| NJN SPN3 IF LEGAL PACK NAME 01435 M01S01301.cpm +++| SPN1 ABORT ERPN * CPM - INCORRECT PACK NAME.* 01436 M01S01302.cpm +++| 01437 M01S01303.cpm +++| SPN2 LDN ZERL CLEAR PACK TYPE 01438 M01S01304.cpm +++| CRD FN 01439 M01S01305.cpm +++| SPN3 LDD FN+3 VERIFY PACK TYPE 01440 M01S01306.cpm +++| LPN 77 01441 M01S01307.cpm +++| SHN 14 01442 M01S01308.cpm +++| ADD FN+4 01443 M01S01309.cpm +++| ZJN SPN4 IF PACK TYPE NOT SPECIFIED 01444 M01S01310.cpm +++| LPN 77 CHECK NUMBER OF SPINDLES 01445 M01S01311.cpm +++| SBN 1R0 01446 M01S01312.cpm +++| MJN SPN1 IF LAST CHARACTER NOT NUMERIC 01447 M01S01313.cpm +++| SBN 1R9-1R0+1 01448 M01S01314.cpm +++| PJN SPN1 IF LAST CHARACTER NOT NUMERIC 01449 M01S01315.cpm +++| LDD FN+4 01450 M01S01316.cpm +++| SHN -6 01451 M01S01317.cpm +++| ZJN SPN1 IF SECOND CHARACTER MISSING 01452 M01S01318.cpm +++| SBN 1R0 01453 M01S01319.cpm +++| PJN SPN1 IF SECOND CHARACTER NOT ALPHABETIC 01454 M01S01320.cpm +++| LDD FN+3 01455 M01S01321.cpm +++| LPN 77 01456 M01S01322.cpm +++| ZJN SPN1 IF FIRST CHARACTER MISSING 01457 M01S01323.cpm +++| SBN 1R0 01458 M01S01324.cpm +++| PJN SPN1 IF FIRST CHARACTER NOT ALPHABETIC 01459 M01S01325.cpm +++| 01460 M01S01326.cpm +++|* ENTER PACK NAME AND TYPE INTO CONTROL POINT AREA. 01461 M01S01327.cpm +++| 01462 M01S01328.cpm +++| SPN4 LDD CP 01463 M01S01329.cpm +++| ADC PKNW 01464 M01S01330.cpm +++| CWD FN 01465 M01S01331.cpm +++| 01466 M01S01332.cpm +++|* ISSUE ACCOUNT FILE MESSAGE. 01467 M01S01333.cpm +++| 01468 M01S01334.cpm +++| LDC SPNA+2 01469 M01S01335.cpm +++| STD T1 01470 M01S01336.cpm +++| LDD FN 01471 M01S01337.cpm +++| ZJN SPN5 IF PACKNAME NOT SPECIFIED 01472 M01S01338.cpm +++| LDN 0 SET EOL ON PACKNAME 01473 M01S01339.cpm +++| STD FN+4 01474 M01S01340.cpm +++| LDD FN+3 01475 M01S01341.cpm +++| SCN 77 01476 M01S01342.cpm +++| STD FN+3 01477 M01S01343.cpm +++| LDC =C*, * ADD COMMA TO MESSAGE 01478 M01S01344.cpm +++| RJM ACS 01479 M01S01345.cpm +++| LDN FN SET PACKNAME IN MESSAGE 01480 M01S01346.cpm +++| RJM ACS 01481 M01S01347.cpm +++| SPN5 LDC =C*.* TERMINATE MESSAGE 01482 M01S01348.cpm +++| RJM ACS 01483 M01S01349.cpm +++| LDC SPNA+ACFN 01484 M01S01350.cpm +++| RJM DFM ISSUE MESSAGE TO ACCOUNT FILE 01485 M01S01351.cpm +++| LJM CPMX EXIT 01486 M01S01352.cpm +++| 01487 M01S01353.cpm +++| 01488 M01S01354.cpm +++| SPNA DATA C*APPN* 01489 M01S01355.cpm +++| BSSZ 6 01490 M01S01356.cpm +++| RPN SPACE 4,10 01491 M01S01357.cpm +++|*** FUNCTION 36. 01492 M01S01358.cpm +++|* RETURN PACKNAME AND PACK TYPE. 01493 M01S01359.cpm +++|* 01494 M01S01360.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS TO RETURN PACKNAME TO. 01495 M01S01361.cpm +++|* 01496 M01S01362.cpm +++|* EXIT CURRENT CONTROL POINT VALUE RETURNED IN FORMAT - 01497 M01S01363.cpm +++|* 01498 M01S01364.cpm +++|*T ADDR 42/ PACK NAME,18/ PACK TYPE
Figure ADDR
01499 M01S01365.cpm +++| 01500 M01S01366.cpm +++| 01501 M01S01367.cpm +++| 01502 M01S01368.cpm +++| RPN ENTRY 01503 M01S01369.cpm +++| LDD CP RETURN PACKNAME AND PACK TYPE 01504 M01S01370.cpm +++| ADC PKNW 01505 M01S01371.cpm +++| CRD CM 01506 M01S01372.cpm +++| RJM CKA CHECK ADDRESS 01507 M01S01373.cpm +++| CWD CM 01508 M01S01374.cpm +++| LJM CPMX EXIT 01509 M01S01375.cpm +++| RVN SPACE 4,15 01510 M01S01376.cpm +++|*** FUNCTION 44. 01511 M01S01377.cpm +++|* RETURN VERSION NAME. 01512 M01S01378.cpm +++|* 01513 M01S01379.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS OF PARAMETER WORD. 01514 M01S01380.cpm +++|* 01515 M01S01381.cpm +++|*T ADDR 1/ F, 11/ BC, 12/ SB, 12/ BP, 6/ 0, 18/ WADDR
Figure ADDR
01516 M01S01382.cpm +++|* 01517 M01S01383.cpm +++|* F = 0, TO RETURN VERSION NAME (*SVNL*) FROM SOURCE FIELD. 01518 M01S01384.cpm +++|* = 1, TO RETURN VERSION NAME(*SVNL*) AND SYSTEM TITLE LINE 01519 M01S01385.cpm +++|* (*SYTL*) FROM SOURCE FIELD. 01520 M01S01386.cpm +++|* 01521 M01S01387.cpm +++|* BC = NUMBER OF BYTES TO RETURN FROM SOURCE FIELD. 01522 M01S01388.cpm +++|* IF F=0, 1 - 10D BYTES. 01523 M01S01389.cpm +++|* IF F=1, 1 - 30D BYTES. 01524 M01S01390.cpm +++|* 01525 M01S01391.cpm +++|* SB = BYTE IN SOURCE FIELD AT WHICH TO BEGIN TRANSFER. 01526 M01S01392.cpm +++|* IF F=0, BYTE 0 - 9D. (BC + SB .LT. 11D) 01527 M01S01393.cpm +++|* IF F=1, BYTE 0 - 29D. (BC + SB .LT. 31D) 01528 M01S01394.cpm +++|* 01529 M01S01395.cpm +++|* BP = BYTE POSITION WITHIN RECEIVING FIELD (WADDR) AT 01530 M01S01396.cpm +++|* WHICH TO BEGIN TRANSFER. (BYTE 0 - 4) 01531 M01S01397.cpm +++|* 01532 M01S01398.cpm +++|* WADDR = BEGINNING ADDRESS OF BLOCK TO RECEIVE DATA. 01533 M01S01399.cpm +++|* 01534 M01S01400.cpm +++|* EXIT IF F=0, VERSION NAME IS TRANSFERRED FROM CMR TO 01535 M01S01401.cpm +++|* SPECIFIED ADDRESS. 01536 M01S01402.cpm +++|* IF F=1, SYSTEM TITLE LINE AND VERSION NAME ARE BOTH 01537 M01S01403.cpm +++|* TRANSFERRED FROM CMR TO SPECIFIED ADDRESS. 01538 M01S01404.cpm +++| 01539 M01S01405.cpm +++| 01540 M01S01406.cpm +++| RVN ENTRY 01541 M01S01407.cpm +++| RJM CKA READ PARAMETER WORD 01542 M01S01408.cpm +++| CRD CM 01543 M01S01409.cpm +++| LDN 2 01544 M01S01410.cpm +++| STD T1 SAVE WORD COUNT 01545 M01S01411.cpm +++| LDD CM 01546 M01S01412.cpm +++| SHN 21-13 01547 M01S01413.cpm +++| PJN RVN1 IF FLAG NOT SET 01548 M01S01414.cpm +++| LDN 6 01549 M01S01415.cpm +++| STD T1 SAVE WORD COUNT 01550 M01S01416.cpm +++| RVN1 LDD CM+3 VALIDATE RETURN ADDRESS 01551 M01S01417.cpm +++| LPN 77 01552 M01S01418.cpm +++| STD CM+3 01553 M01S01419.cpm +++| SHN 14 01554 M01S01420.cpm +++| LMD CM+4 01555 M01S01421.cpm +++| MJN RVN2 IF ADDRESS OUT OF RANGE 01556 M01S01422.cpm +++| ADD T1 ADD WORD COUNT 01557 M01S01423.cpm +++| SHN -6 01558 M01S01424.cpm +++| SBD FL 01559 M01S01425.cpm +++| MJN RVN3 IF .LT. FL - WORD COUNT 01560 M01S01426.cpm +++| RVN2 ABORT ERAE * CPM - ARGUMENT ERROR.* 01561 M01S01427.cpm +++| 01562 M01S01428.cpm +++| RVN3 LDD CM+2 VALIDATE BYTE POSITION 01563 M01S01429.cpm +++| SBN 5 01564 M01S01430.cpm +++| PJN RVN2 IF INCORRECT BYTE POSITION 01565 M01S01431.cpm +++| LDD CM VALIDATE BYTE COUNT 01566 M01S01432.cpm +++| SHN 21-13 01567 M01S01433.cpm +++| MJN RVN4 IF FLAG SET 01568 M01S01434.cpm +++| SHN 13-21 01569 M01S01435.cpm +++| ZJN RVN2 IF INCORRECT BYTE COUNT 01570 M01S01436.cpm +++| SBN 11D 01571 M01S01437.cpm +++| PJN RVN2 IF INCORRECT BYTE COUNT 01572 M01S01438.cpm +++| LDD CM 01573 M01S01439.cpm +++| ADD CM+1 01574 M01S01440.cpm +++| SBN 11D 01575 M01S01441.cpm +++| PJN RVN2 IF INCORRECT COMBINATION 01576 M01S01442.cpm +++| LDN SVNL 01577 M01S01443.cpm +++| UJN RVN5 READ VERSION NAME 01578 M01S01444.cpm +++| 01579 M01S01445.cpm +++| RVN4 SHN 13-21 01580 M01S01446.cpm +++| LPC 3777 CLEAR FLAG 01581 M01S01447.cpm +++| STD CM 01582 M01S01448.cpm +++| ZJN RVN2 IF INCORRECT BYTE COUNT 01583 M01S01449.cpm +++| SBN 31D 01584 M01S01450.cpm +++| PJN RVN2 IF INCORRECT BYTE COUNT 01585 M01S01451.cpm +++| LDD CM 01586 M01S01452.cpm +++| ADD CM+1 01587 M01S01453.cpm +++| SBN 31D 01588 M01S01454.cpm +++| PJP RVN2 IF INCORRECT COMBINATION 01589 M01S01455.cpm +++| LDN SYTL READ SYSTEM TITLE AND VERSION NAME 01590 M01S01456.cpm +++| RVN5 CRM RVNA,T1 01591 M01S01457.cpm +++| AOD T1 01592 M01S01458.cpm +++| LDD CM+3 READ RETURN FIELD 01593 M01S01459.cpm +++| SHN 6 01594 M01S01460.cpm +++| ADD RA 01595 M01S01461.cpm +++| SHN 6 01596 M01S01462.cpm +++| ADD CM+4 01597 M01S01463.cpm +++| CRM RVNB,T1 01598 M01S01464.cpm +++| 01599 M01S01465.cpm +++|* MERGE VERSION NAME WITH RETURN FIELD. 01600 M01S01466.cpm +++| 01601 M01S01467.cpm +++| RVN6 SOD CM DECREMENT BYTE COUNT 01602 M01S01468.cpm +++| MJN RVN10 IF MERGE COMPLETE 01603 M01S01469.cpm +++| LDM RVNA,CM+1 CHECK FOR ZERO CHARACTERS 01604 M01S01470.cpm +++| STM RVNB,CM+2 01605 M01S01471.cpm +++| ZJN RVN7 IF ZERO BYTE 01606 M01S01472.cpm +++| LPN 77 01607 M01S01473.cpm +++| NJN RVN9 IF NO ZERO CHARACTER 01608 M01S01474.cpm +++| LDM RVNA,CM+1 BLANK FILL ZERO CHARACTERS 01609 M01S01475.cpm +++| LMN 1R 01610 M01S01476.cpm +++| UJN RVN8 CONTINUE 01611 M01S01477.cpm +++| 01612 M01S01478.cpm +++| RVN7 LDC 2R BLANK FILL ZERO CHARACTERS 01613 M01S01479.cpm +++| RVN8 STM RVNB,CM+2 01614 M01S01480.cpm +++| RVN9 AOD CM+1 INCREMENT INDICES 01615 M01S01481.cpm +++| AOD CM+2 01616 M01S01482.cpm +++| UJN RVN6 CHECK NEXT BYTE 01617 M01S01483.cpm +++| 01618 M01S01484.cpm +++|* REWRITE MERGED RETURN FIELD. 01619 M01S01485.cpm +++| 01620 M01S01486.cpm +++| RVN10 LDD CM+3 01621 M01S01487.cpm +++| SHN 6 01622 M01S01488.cpm +++| ADD RA 01623 M01S01489.cpm +++| SHN 6 01624 M01S01490.cpm +++| ADD CM+4 01625 M01S01491.cpm +++| CWM RVNB,T1 01626 M01S01492.cpm +++| LJM CPMX RETURN 01627 M01S01493.cpm +++| RAC SPACE 4,30 01628 M01S01494.cpm +++|*** FUNCTION 51. 01629 M01S01495.cpm +++|* RETURN JOB ACTIVITY INFORMATION. 01630 M01S01496.cpm +++|* 01631 M01S01497.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS FOR RETURN OF A ONE WORD 01632 M01S01498.cpm +++|* REPLY BLOCK. 01633 M01S01499.cpm +++|* 01634 M01S01500.cpm +++|* EXIT PARAMETER BLOCK RETURNED IN THE FOLLOWING FORMAT. 01635 M01S01501.cpm +++|* 01636 M01S01502.cpm +++|*T ADDR 12/SHORT , 1/L , 23/0 , 12/INS , 12/0
Figure ADDR
01637 M01S01503.cpm +++|* 01638 M01S01504.cpm +++|* SHORT SHORT TERM ACTIVITY COUNTS. INCREMENTED BY ONE 01639 M01S01505.cpm +++|* FOR EACH OF THE FOLLOWING. 01640 M01S01506.cpm +++|* PPU ACTIVITY, NOT INCLUDING *DIS* FLAG. 01641 M01S01507.cpm +++|* *RECW* REQUESTS (INCLUDES PPU IN RECALL AND TAPE 01642 M01S01508.cpm +++|* ACTIVITY). 01643 M01S01509.cpm +++|* ROLLOUT REQUESTED. 01644 M01S01510.cpm +++|* SCP WAIT RESPONSE INDICATORS. 01645 M01S01511.cpm +++|* TERMINAL OUTPUT FET ADDRESS PRESENT. 01646 M01S01512.cpm +++|* TERMINAL INPUT FET ADDRESS PRESENT. 01647 M01S01513.cpm +++|* L LONG TERM ACTIVITY COUNTS. FIELD IS ONE IF ANY OF 01648 M01S01514.cpm +++|* THE FOLLOWING CONDITIONS ARE MET. 01649 M01S01515.cpm +++|* *K* OR *L* DISPLAY INTERFACE ACTIVE. 01650 M01S01516.cpm +++|* *CFO* ENTRY ENABLED. 01651 M01S01517.cpm +++|* SCP LONG TERM CONNECTION ESTABLISHED. 01652 M01S01518.cpm +++|* *DIS* PACKAGE ENABLED. 01653 M01S01519.cpm +++|* INS RESERVED FOR INSTALLATIONS. 01654 M01S01520.cpm +++|* 01655 M01S01521.cpm +++|* USES T1, T3 - T7, BA - BA+4, CM - CM+4, 01656 M01S01522.cpm +++|* CN - CN+4, FN - FN+4, UN - UN+4. 01657 M01S01523.cpm +++|* 01658 M01S01524.cpm +++|* CALLS CKA. 01659 M01S01525.cpm +++| 01660 M01S01526.cpm +++| 01661 M01S01527.cpm +++| RAC ENTRY 01662 M01S01528.cpm +++| LDN ZERL PRESET REPLY WORD 01663 M01S01529.cpm +++| CRD CN 01664 M01S01530.cpm +++| 01665 M01S01531.cpm +++|* COMPUTE SHORT TERM ACTIVITIES. 01666 M01S01532.cpm +++| 01667 M01S01533.cpm +++| LDD CP READ CONTROL POINT AREA WORDS 01668 M01S01534.cpm +++| ADN STSW READ PPU AND TAPE ACTIVITY 01669 M01S01535.cpm +++| CRD CM 01670 M01S01536.cpm +++| ADN JCIW-STSW READ JOB CONTROL INFORMATION 01671 M01S01537.cpm +++| CRD T3 01672 M01S01538.cpm +++| ADN TIOW-JCIW READ TERMINAL OUTPUT FET ADDRESS 01673 M01S01539.cpm +++| CRD UN 01674 M01S01540.cpm +++| ADN TINW-TIOW READ TERMINAL INPUT FET ADDRESS 01675 M01S01541.cpm +++| CRD FN 01676 M01S01542.cpm +++| ADN SSCW-TINW READ WAIT RESPONSE INDICATORS 01677 M01S01543.cpm +++| CRD BA 01678 M01S01544.cpm +++| LDD T3+3 CHECK *DIS* FLAG 01679 M01S01545.cpm +++| SHN -11 RIGHT JUSTIFY *DIS* BIT 01680 M01S01546.cpm +++| LPN 1 01681 M01S01547.cpm +++| STD T3 01682 M01S01548.cpm +++| LDD CM CHECK PPU ACTIVITY 01683 M01S01549.cpm +++| LPN 37 01684 M01S01550.cpm +++| SBD T3 SUBTRACT OFF *DIS* ACTIVITY 01685 M01S01551.cpm +++| SBN 1 COMPENSATE FOR THIS PPU 01686 M01S01552.cpm +++| ZJN RAC1 IF NO PPU ACTIVITY 01687 M01S01553.cpm +++| AOD CN INCREMENT SHORT TERM ACTIVITY COUNT 01688 M01S01554.cpm +++| RAC1 LDD CM+4 CHECK FOR *RECW* REQUESTS 01689 M01S01555.cpm +++| SHN -4 01690 M01S01556.cpm +++| LPN 17 01691 M01S01557.cpm +++| ZJN RAC2 IF NO RECALL/TAPE ACTIVITY 01692 M01S01558.cpm +++| AOD CN INCREMENT SHORT TERM ACTIVITY COUNT 01693 M01S01559.cpm +++| RAC2 LDD CM+2 READ ROLLOUT FLAG 01694 M01S01560.cpm +++| LPN 1 INCREMENT SHORT TERM ACTIVITY IF SET 01695 M01S01561.cpm +++| RAD CN 01696 M01S01562.cpm +++| LDN 5 CHECK WAIT RESPONSE INDICATORS 01697 M01S01563.cpm +++| STD T1 01698 M01S01564.cpm +++| RAC3 SOD T1 01699 M01S01565.cpm +++| MJN RAC4 IF CHECK COMPLETE 01700 M01S01566.cpm +++| LDM BA,T1 01701 M01S01567.cpm +++| LPN 7 CHECK WAIT RESPONSE INDICATOR 01702 M01S01568.cpm +++| ZJN RAC3 IF NO WAIT RESPONSE SET 01703 M01S01569.cpm +++| AOD CN INCREMENT SHORT TERM ACTIVITY COUNT 01704 M01S01570.cpm +++| RAC4 LDD UN+3 CHECK TERMINAL OUTPUT FET ADDRESS 01705 M01S01571.cpm +++| LPN 37 01706 M01S01572.cpm +++| ADD UN+4 01707 M01S01573.cpm +++| ZJN RAC5 IF NO TERMINAL OUTPUT 01708 M01S01574.cpm +++| AOD CN INCREMENT SHORT TERM ACTIVITY COUNT 01709 M01S01575.cpm +++| RAC5 LDD FN+3 CHECK TERMINAL INPUT FET ADDRESS 01710 M01S01576.cpm +++| SCN 77 01711 M01S01577.cpm +++| SHN 6 01712 M01S01578.cpm +++| LMD FN+2 01713 M01S01579.cpm +++| ZJN RAC6 IF NO TERMINAL INPUT 01714 M01S01580.cpm +++| AOD CN INCREMENT SHORT TERM ACTIVITY COUNT 01715 M01S01581.cpm +++| 01716 M01S01582.cpm +++|* COMPUTE LONG TERM ACTIVITIES. 01717 M01S01583.cpm +++| 01718 M01S01584.cpm +++| RAC6 LDD T3 CHECK *DIS* FLAG 01719 M01S01585.cpm +++| NJP RAC9 IF *DIS* PACKAGE ENABLED 01720 M01S01586.cpm +++| LDD CP READ CONTROL POINT AREA WORDS 01721 M01S01587.cpm +++| ADC DBAW READ *K* DISPLAY INTERFACE WORD 01722 M01S01588.cpm +++| CRD CM 01723 M01S01589.cpm +++| LDD CM CHECK FOR *K* DISPLAY ACTIVITY 01724 M01S01590.cpm +++| LPN 77 01725 M01S01591.cpm +++| ADD CM+1 01726 M01S01592.cpm +++| ADD CM+2 01727 M01S01593.cpm +++| ADD CM+3 01728 M01S01594.cpm +++| ADD CM+4 01729 M01S01595.cpm +++| NJN RAC8 IF *K* DISPLAY ACTIVITY 01730 M01S01596.cpm +++| LDN 4 CHECK LONG TERM CONNECTION SET 01731 M01S01597.cpm +++| STD T1 01732 M01S01598.cpm +++| LDC LDSP GET FWA *L* DISPLAY BUFFER 01733 M01S01599.cpm +++| CRD CM 01734 M01S01600.cpm +++| LDD CM+2 GET *L* DISPLAY JOB INTERLOCK 01735 M01S01601.cpm +++| SHN 14 01736 M01S01602.cpm +++| ADD CM+3 01737 M01S01603.cpm +++| CRD CM 01738 M01S01604.cpm +++| LDD CM 01739 M01S01605.cpm +++| ZJN RAC7 IF NO JOB ASSIGNED TO *L* DISPLAY 01740 M01S01606.cpm +++| LDD CP GET JOB EJT ORDINAL 01741 M01S01607.cpm +++| ADN TFSW 01742 M01S01608.cpm +++| CRD FN 01743 M01S01609.cpm +++| SFA EJT,FN GET JOB SEQUENCE NUMBER 01744 M01S01610.cpm +++| ERRNZ JSNE CODE DEPENDS ON VALUE 01745 M01S01611.cpm +++| CRD FN 01746 M01S01612.cpm +++| LDD CM COMPARE JOB SEQUENCE NUMBERS 01747 M01S01613.cpm +++| LMD FN 01748 M01S01614.cpm +++| NJN RAC7 IF THIS JOB NOT ASSIGNED TO *L* DISPLAY 01749 M01S01615.cpm +++| LDD CM+1 01750 M01S01616.cpm +++| LMD FN+1 01751 M01S01617.cpm +++| ZJN RAC9 IF THIS JOB IS ASSIGNED TO *L* DISPLAY 01752 M01S01618.cpm +++| RAC7 LDM BA,T1 01753 M01S01619.cpm +++| LPC 4210 01754 M01S01620.cpm +++| RAC8 NJN RAC9 IF LONG TERM CONNECTION SET 01755 M01S01621.cpm +++| SOD T1 01756 M01S01622.cpm +++| NJN RAC7 IF CHECK NOT COMPLETE 01757 M01S01623.cpm +++| LDD RA CHECK *CFO* ENABLED 01758 M01S01624.cpm +++| SHN 6 01759 M01S01625.cpm +++|* ADN 0 READ RA+0 01760 M01S01626.cpm +++| CRD CM 01761 M01S01627.cpm +++| LDD CM+3 01762 M01S01628.cpm +++| SHN 21-2 01763 M01S01629.cpm +++| PJN RAC10 IF *CFO* ENTRY NOT ENABLED 01764 M01S01630.cpm +++| RAC9 LDC 4000 SET LONG TERM ACTIVITY INDICATION 01765 M01S01631.cpm +++| STD CN+1 01766 M01S01632.cpm +++| 01767 M01S01633.cpm +++|* RETURN RESPONSE TO CALLER. 01768 M01S01634.cpm +++| 01769 M01S01635.cpm +++| RAC10 LDN 0 WORD COUNT - 1 01770 M01S01636.cpm +++| STD T1 01771 M01S01637.cpm +++| RJM CKA CHECK FOR VALID PARAMETER ADDRESS 01772 M01S01638.cpm +++| CWD CN RETURN ACTIVITY INFORMATION TO CALLER 01773 M01S01639.cpm +++| LJM CPMX EXIT 01774 M01S01640.cpm +++| MFL SPACE 4,10 01775 M01S01641.cpm +++|*** FUNCTION 52. 01776 M01S01642.cpm +++|* SET MFL = PARAMETER. 01777 M01S01643.cpm +++|* 01778 M01S01644.cpm +++|* ENTRY (IR+3, IR+4) = RFL REQUEST. 01779 M01S01645.cpm +++|* BIT 2**11 IN IR+3 IS SET FOR EXTENDED MEMORY REQUEST 01780 M01S01646.cpm +++|* AND ZERO FOR CM REQUEST. EXTENDED MEMORY REQUESTS 01781 M01S01647.cpm +++|* ARE MULTIPLES OF 1000B. 01782 M01S01648.cpm +++| 01783 M01S01649.cpm +++| 01784 M01S01650.cpm +++| MFL ENTRY 01785 M01S01651.cpm +++| LDC NJNI-UJNI SET ZERO CM PARAMETER CHECK
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/cpm.txt · Last modified: by 127.0.0.1