cdc:nos2.source:opl.opl871:deck:cpm
Deck CPM
Library Member Format: MODIFY
Listing Sections
- Deck CPM Start
- Deck CPM Part 1 (Line 1855)
- Deck CPM Part 2 (Line 3681)
- Deck CPM Part 3 (Line 5482)
- Deck CPM Part 4 (Line 7312)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.cpm +++| IDENT CPM,CPM 00002 M00S00002.cpm +++| PERIPH 00003 M00S00003.cpm +++| BASE MIXED 00004 M00S00004.cpm +++| SST 00005 M00S00005.cpm +++| SYSCOM 00006 M00S00006.cpm +++|*COMMENT CPM - CONTROL POINT MANAGER.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M00S00008.cpm +++| TITLE CPM - CONTROL POINT MANAGER. 00010 M00S00009.cpm +++| SPACE 4,10 00011 M00S00010.cpm +++|*** CPM - CONTROL POINT MANAGER. 00012 M00S00011.cpm +++|* G. R. MANSFIELD. 70/10/20. 00013 M00S00012.cpm +++|* M. E. MADDEN. 73/04/24. 00014 M00S00013.cpm +++|* R. A. JAPS. 76/12/03. (RESEQUENCED) 00015 M00S00014.cpm +++| SPACE 4,10 00016 M00S00015.cpm +++|*** *CPM* IS A GENERAL PP PROGRAM TO BE USED BY CPU 00017 M00S00016.cpm +++|* PROGRAMS TO REFERENCE OR ALTER JOB CONTROL INFORMATION IN 00018 M00S00017.cpm +++|* THE CONTROL POINT AREA. 00019 M00S00018.cpm +++| SPACE 4,10 00020 M00S00019.cpm +++|*** CALL. 00021 M00S00020.cpm +++|* 00022 M00S00021.cpm +++|* 00023 M00S00022.cpm +++|*T 18/ *CPM*,6/ AR,12/ CODE,24/ PARAM
Figure
00024 M00S00023.cpm +++|* AR AUTO RECALL 00025 M00S00024.cpm +++|* CODE FUNCTION CODE 00026 M00S00025.cpm +++|* PARAM PARAMETER FOR FUNCTION 00027 M00S00026.cpm +++|* 00028 M00S00027.cpm +++|* NOTE - *CPUMTR* WILL PROCESS THE FOLLOWING *CPM* FUNCTIONS- 00029 M00S00028.cpm +++|* 16, 24, 25, 32, 33, 37, 43, 45, 50, 55, 61 - 72. 00030 M00S00029.cpm +++| SPACE 4,10 00031 M00S00030.cpm +++|*** DAYFILE MESSAGES. 00032 M00S00031.cpm +++|* 00033 M00S00032.cpm +++|* 00034 M00S00033.cpm +++|* * CM NOT VALIDATED.* = AN ATTEMPT WAS MADE TO CHANGE THE JOB 00035 M00S00034.cpm +++|* CM LIMIT OUTSIDE OF THE USER-S LEGAL BOUNDS. 00036 M00S00035.cpm +++|* 00037 M00S00036.cpm +++|* 00038 M00S00037.cpm +++|* * CM RANGE EXIT MODE NOT DESELECTABLE.* = USER 00039 M00S00038.cpm +++|* SELECTION/DESELECTION OF *CM RANGE* MODE ERRORS IS NOT 00040 M00S00039.cpm +++|* POSSIBLE ON THE CYBER 176. 00041 M00S00040.cpm +++|* 00042 M00S00041.cpm +++|* 00043 M00S00042.cpm +++|* * CPM - ACCESS LEVEL NOT VALID FOR JOB.* 00044 M00S00043.cpm +++|* A USER ATTEMPTED TO CHANGE THE JOB ACCESS LEVEL TO A VALUE 00045 M00S00044.cpm +++|* FOR WHICH THE JOB IS NOT VALIDATED. 00046 M00S00045.cpm +++|* 00047 M00S00046.cpm +++|* 00048 M00S00047.cpm +++|* * CPM - ARGUMENT ERROR.* 00049 M00S00048.cpm +++|* CAN INDICATE ONE OF THE FOLLOWING CONDITIONS - 00050 M00S00049.cpm +++|* 1. ADDRESS OUT OF RANGE. 00051 M00S00050.cpm +++|* 2. INCORRECT EXIT MODE SPECIFIED. (FUNCTION 2). 00052 M00S00051.cpm +++|* 3. EVENT DESCRIPTOR SPECIFIED HAS EST ORDINAL GREATER THAN 00053 M00S00052.cpm +++|* 777B, OR A MULTIPLIER GREATER THAN 77B. (FUNCTION 6). 00054 M00S00053.cpm +++|* 4. USER INDEX IS OUT OF RANGE. (FUNCTION 21). 00055 M00S00054.cpm +++|* 5. INCORRECT SUBSYSTEM SPECIFIED. (FUNCTION 26). 00056 M00S00055.cpm +++|* 6. INCORRECT CPU SELECTION. (FUNCTION 31). 00057 M00S00056.cpm +++|* 7. INCORRECT BYTE COUNT, INCORRECT BYTE POSITION OR INCORRECT 00058 M00S00057.cpm +++|* BUFFER ADDRESS TO RECEIVE VERSION NAME. (FUNCTION 44). 00059 M00S00058.cpm +++|* 8. CM REQUESTED WAS MORE THAN 377700B WORDS. 00060 M00S00059.cpm +++|* (FUNCTIONS 23 AND 52). 00061 M00S00060.cpm +++|* 9. USER JOB NAME, OUTPUT DISPOSITION OPTION, OR 00062 M00S00061.cpm +++|* END OF JOB OPTION INCORRECT. 00063 M00S00062.cpm +++|* 10. INCORRECT SUBFUNCTION SPECIFIED. (FUNCTION 107) 00064 M00S00063.cpm +++|* 00065 M00S00064.cpm +++|* 00066 M00S00065.cpm +++|* * CPM - INCORRECT PACKNAME.* 00067 M00S00066.cpm +++|* 1. AN INCORRECT PACKNAM HAS BEEN SPECIFIED. 00068 M00S00067.cpm +++|* 2. AN INCORRECT DEVICE TYPE HAS BEEN ENTERED ON A *PACKNAM*. 00069 M00S00068.cpm +++|* 00070 M00S00069.cpm +++|* 00071 M00S00070.cpm +++|* * CPM - INCORRECT REQUEST.* 00072 M00S00071.cpm +++|* CAN INDICATE ONE OF THE FOLLOWING CONDITIONS - 00073 M00S00072.cpm +++|* 1. INCORRECT SUBFUNCTION. (FUNCTION 3). 00074 M00S00073.cpm +++|* AN *SSM=* JOB ATTEMPTED TO CLEAR THE SECURE 00075 M00S00074.cpm +++|* SYSTEM MEMORY FLAG. 00076 M00S00075.cpm +++|* 00077 M00S00076.cpm +++|* 00078 M00S00077.cpm +++|* * CPM - INCORRECT *SHELL* FILE.* 00079 M00S00078.cpm +++|* 1. *SHELL* FILE NOT ON MASS STORAGE. 00080 M00S00079.cpm +++|* 2. *SHELL* FILE NOT FOUND IN THE LOCAL FNT AND THE LOCAL 00081 M00S00080.cpm +++|* FILE LOAD OPTION WAS SELECTED. 00082 M00S00081.cpm +++|* 00083 M00S00082.cpm +++|* 00084 M00S00083.cpm +++|* * CPM - USER ACCESS NOT VALID.* 00085 M00S00084.cpm +++|* CAN INDICATE ONE OF THE FOLLOWING CONDITIONS - 00086 M00S00085.cpm +++|* 1. USER NOT VALIDATED FOR SPECIFIED SUBSYSTEM (FUNCTION 26). 00087 M00S00086.cpm +++|* 2. USER NOT VALIDATED TO PROTECT EXTENDED MEMORY 00088 M00S00087.cpm +++|* (FUNCTION 75). 00089 M00S00088.cpm +++|* 3. USER NOT VALIDATED TO SET PAUSE BIT (FUNCTION 100). 00090 M00S00089.cpm +++|* 4. USER DOES NOT HAVE SYSTEM ORIGIN PRIVILEGES - NO STATUS 00091 M00S00090.cpm +++|* REQUESTED (FUNCTION 101). 00092 M00S00091.cpm +++|* 5. THE *L* DISPLAY JSN FIELD IS NOT INTERLOCKED 00093 M00S00092.cpm +++|* (FUNCTIONS 102 AND 103). 00094 M00S00093.cpm +++|* 00095 M00S00094.cpm +++|* 00096 M00S00095.cpm +++|* * CPM - LIBRARY NOT FOUND = LNAME.* 00097 M00S00096.cpm +++|* THE INDICATED LIBRARY *LNAME* WAS NOT FOUND IN THE 00098 M00S00097.cpm +++|* SYSTEM DIRECTORY OR IN THE LOCAL FNT OF THE CALLER. 00099 M00S00098.cpm +++|* 00100 M00S00099.cpm +++|* 00101 M00S00100.cpm +++|* * CPM - MASS STORAGE ERROR.* 00102 M00S00101.cpm +++|* A MASS STORAGE ERROR WAS ENCOUNTERED WHEN PERFORMING I/O 00103 M00S00102.cpm +++|* ON A DEVICE. 00104 M00S00103.cpm +++|* 00105 M00S00104.cpm +++|* 00106 M00S00105.cpm +++|* * CPM - MISSING *SHELL* LOAD OPTION.* 00107 M00S00106.cpm +++|* WHEN SETTING THE *SHELL* CONTROL FIELD IN NFL AT LEAST 00108 M00S00107.cpm +++|* ONE LOAD OPTION FLAG MUST BE SET. 00109 M00S00108.cpm +++|* 00110 M00S00109.cpm +++|* 00111 M00S00110.cpm +++|* * CPM - EPILOGUE AND SHELL CONFLICT.* 00112 M00S00111.cpm +++|* AN EPILOGUE WAS PENDING AT THE TIME AN ATTEMPT WAS MADE TO 00113 M00S00112.cpm +++|* ACTIVATE A *SHELL* PROGRAM WITH THE NO-ABORT OPTION SET. 00114 M00S00113.cpm +++|* 00115 M00S00114.cpm +++|* 00116 M00S00115.cpm +++|* * CPM - SYSTEM ERROR.* 00117 M00S00116.cpm +++|* 1. *CPM* WAS UNABLE TO READ THE JOB INPUT FILE. 00118 M00S00117.cpm +++|* (FUNCTION 106 - SET JOB CHARACTERISTICS). 00119 M00S00118.cpm +++|* 2. *CPM* ENCOUNTERED A PROBLEM (OTHER THAN A READ) WITH THE 00120 M00S00119.cpm +++|* SYSTEM SECTOR. 00121 M00S00120.cpm +++|* 00122 M00S00121.cpm +++|* 00123 M00S00122.cpm +++|* * EC NOT VALIDATED.* = AN ATTEMPT WAS MADE TO CHANGE THE JOB 00124 M00S00123.cpm +++|* EC LIMIT OUTSIDE OF THE USER-S LEGAL BOUNDS. 00125 M00S00124.cpm +++|* 00126 M00S00125.cpm +++|* 00127 M00S00126.cpm +++|* * ERROR ON FILE - PROFILX.* = ONE OF THE FOLLOWING OCCURRED- 00128 M00S00127.cpm +++|* 1) BAD PROFILE FILE LEVEL-3 BLOCK RANDOM ADDRESS. 00129 M00S00128.cpm +++|* 2) PROFILE FILE NOT FOUND. 00130 M00S00129.cpm +++|* (THIS MESSAGE ALSO ISSUED TO ERROR LOG). 00131 M00S00130.cpm +++|* 00132 M00S00131.cpm +++|* 00133 M00S00132.cpm +++|* * INCORRECT APPLICATION ACCOUNTING REQUEST.* 00134 M00S00133.cpm +++|* CAN INDICATE ONE OF THE FOLLOWING CONDITIONS, ALL 00135 M00S00134.cpm +++|* ARE FROM FUNCTION 77 - 00136 M00S00135.cpm +++|* 1. NOT CALLED FROM VALID PROGRAM. 00137 M00S00136.cpm +++|* 2. INCORRECT PARAMETER WORD. 00138 M00S00137.cpm +++|* 00139 M00S00138.cpm +++|* 00140 M00S00139.cpm +++|* * INCORRECT USER COMMAND.* 00141 M00S00140.cpm +++|* AN ATTEMPT WAS MADE TO ENTER A SECONDARY USER COMMAND 00142 M00S00141.cpm +++|* TO A DIFFERENT FAMILY WHEN SUCH COMMANDS WERE DISABLED, 00143 M00S00142.cpm +++|* OR AN INCORRECT OR EXPIRED PASSWORD WAS ENTERED. 00144 M00S00143.cpm +++|* 00145 M00S00144.cpm +++|* 00146 M00S00145.cpm +++|* * INCORRECT END OF JOB OPTION SPECIFIED.* 00147 M00S00146.cpm +++|* A BATCH JOB ENTERED A *SETJOB,OP=SU.*. OP=SU 00148 M00S00147.cpm +++|* IS INCORRECT FOR NON-INTERACTIVE JOBS. THIS IS A 00149 M00S00148.cpm +++|* NON-FATAL ERROR. NO CHANGES ARE MADE TO ANY 00150 M00S00149.cpm +++|* ARGUMENTS (UJN, DC, OP). 00151 M00S00150.cpm +++|* 00152 M00S00151.cpm +++|*
| Line S00152 Modification History | |
|---|---|
M01 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00153 M01S00152.ns2516a ---|* * JOB STEP EXCEEDS ACCOUNT BLOCK.* = USER HAS EITHER 00154 M01S00153.ns2516a ---|* ATTEMPTED TO SET THE JOB STEP LIMIT TO A VALUE GREATER THAN 00155 M01S00154.ns2516a ---|* THE ACCOUNT BLOCK LIMIT OR ATTEMPTED TO SET THE ACCOUNT 00156 M01S00155.ns2516a ---|* BLOCK LIMIT TO A VALUE LESS THAN THE JOB STEP LIMIT. 00157 M01S00156.ns2516a ---|* 00158 M01S00157.ns2516a ---|* 00159 M00S00158.cpm +++|* * MFL REQUEST TOO SMALL, MINIMUM USED.* 00160 M00S00159.cpm +++|* AN ATTEMPT WAS MADE TO *SETMFL* TO A FIELD LENGTH SMALLER 00161 M00S00160.cpm +++|* THAN *CTFL*, THE FIELD LENGTH OF *CONTROL*. *CTFL* WAS USED 00162 M00S00161.cpm +++|* INSTEAD. 00163 M00S00162.cpm +++|* 00164 M00S00163.cpm +++|* 00165 M00S00164.cpm +++|* * RFL BEYOND MFL.* = RFL REQUEST EXCEEDS MFL. 00166 M00S00165.cpm +++|* 00167 M00S00166.cpm +++|* 00168 M00S00167.cpm +++|* * STACK PURGING NOT DESELECTABLE.* 00169 M00S00168.cpm +++|* STACK PURGING IS SELECTABLE/DESELECTABLE ONLY ON CYBER 00170 M00S00169.cpm +++|* 170-8X5 MAINFRAMES. 00171 M00S00170.cpm +++|* 00172 M00S00171.cpm +++|* 00173 M00S00172.cpm +++|* * TL NOT VALIDATED.* = AN ATTEMPT WAS MADE TO CHANGE THE JOB 00174 M00S00173.cpm +++|* TIME LIMIT OUTSIDE OF THE USER-S LEGAL BOUNDS. 00175 M00S00174.cpm +++|* 00176 M00S00175.cpm +++|* 00177 M00S00176.cpm +++|* * USER SECURITY COUNT EXHAUSTED.* 00178 M00S00177.cpm +++|* THE USER HAS EXCEEDED THE SECURITY COUNT. THE USER MUST 00179 M00S00178.cpm +++|* CONTACT SITE PERSONNEL TO HAVE THE SECURITY COUNT RESET. 00180 M00S00179.cpm +++|* THE USER WILL NOT BE ALLOWED ACCESS TO THE SYSTEM UNTIL 00181 M00S00180.cpm +++|* THE SECURITY COUNT IS RESET. 00182 M00S00181.cpm +++| SPACE 4,10 00183 M00S00182.cpm +++|*** ACCOUNT FILE MESSAGES - 00184 M00S00183.cpm +++|* 00185 M00S00184.cpm +++|*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2753 |
Seq # *Modification Id* Act ----------------------------+ 00186 M01S00001.ns2753 +++|* *UDOD, 000000.000KUNS.* = OPTICAL DISK ACTIVITY (KILO-UNITS). 00187 M01S00002.ns2753 +++|* 00188 M00S00185.cpm +++|* *UDAC, 000000.000UNTS.* = APPLICATION UNIT CHARGE (UNITS). 00189 M00S00186.cpm +++|* 00190 M00S00187.cpm +++|* *UDMP, 000000.000KUNS.* = MAP III ACTIVITY (KILO-UNITS). 00191 M00S00188.cpm +++|* 00192 M00S00189.cpm +++|* *UDCO, 000000.000KCHS.* = TERMINAL CHARACTERS OUTPUT. 00193 M00S00190.cpm +++|* 00194 M00S00191.cpm +++|* *UDCI, 000000.000KCHS.* = TERMINAL CHARACTERS INPUT. 00195 M00S00192.cpm +++|* 00196 M00S00193.cpm +++|* *UDCT, 000000.000KCHS.* = TOTAL TERMINAL CHARACTERS. 00197 M00S00194.cpm +++|* 00198 M00S00195.cpm +++|* *UDAD, 000000.000KUNS.* = APPLICATION UNITS (KILO-UNITS). 00199 M00S00196.cpm +++|* 00200 M00S00197.cpm +++|* *UDPF, 000000.000KUNS.* = PERMANENT FILE ACTIVITY(KILO-UNITS) 00201 M00S00198.cpm +++|* 00202 M00S00199.cpm +++|* *UDMT, 000000.000KUNS.* = MAGNETIC TAPE ACTIVITY (KILO-UNITS). 00203 M00S00200.cpm +++|* 00204 M00S00201.cpm +++|* *UDMS, 000000.000KUNS.* = MASS STORAGE ACTIVITY (KILO-UNITS). 00205 M00S00202.cpm +++|* 00206 M00S00203.cpm +++|* *UDCP, 000000.000SECS.* = ACCUMULATED CP TIME (SECONDS). 00207 M00S00204.cpm +++|* 00208 M00S00205.cpm +++|* *ACSR, 000000.000UNTS.* = ACCUMULATED SRUS (UNITS). 00209 M00S00206.cpm +++|* 00210 M00S00207.cpm +++|* NOTE - THE PRECEDING MESSAGES ARE ISSUED IN THE ABOVE ORDER. 00211 M00S00208.cpm +++|* 00212 M00S00209.cpm +++|* 00213 M00S00210.cpm +++|* *ABCN, CHARGENUMBER, PROJECTNUMBER.* = BEGINNING OF A 00214 M00S00211.cpm +++|* CHARGE SEQUENCE. 00215 M00S00212.cpm +++|* 00216 M00S00213.cpm +++|* *ACCN, CHARGENUMBER, PROJECTNUMBER.* = CHANGE OF CHARGE. 00217 M00S00214.cpm +++|* 00218 M00S00215.cpm +++|* *ACSC, SC, NEWJSN, SRUUNITS.* = SERVICE CLASS CHANGE. 00219 M00S00216.cpm +++|* NEWJSN IS PRESENT IF CHANGING FROM SUBSYSTEM SERVICE CLASS. 00220 M00S00217.cpm +++|* 00221 M00S00218.cpm +++|* *APPN, PACKNAM.* = DEFAULT PACK NAME ENTERED. 00222 M00S00219.cpm +++|* 00223 M00S00220.cpm +++|* *APPN.* = DEFAULT PACK NAME CLEARED. 00224 M00S00221.cpm +++|* 00225 M00S00222.cpm +++|* *AUSR, 000000.000UNTS.* = ACCUMULATED SRU-S (UNITS) NOT 00226 M00S00223.cpm +++|* UPDATED INTO PROJECT PROFILE FILE. 00227 M00S00224.cpm +++|* 00228 M00S00225.cpm +++|* *MJJI, OLDLEVEL, NEWLEVEL.* = DENOTES AN INCORRECT ATTEMPT 00229 M00S00226.cpm +++|* BY THE USER TO CHANGE THE JOB ACCESS LEVEL FROM LEVEL 00230 M00S00227.cpm +++|* *OLDLEVEL* TO LEVEL *NEWLEVEL*. 00231 M00S00228.cpm +++|* 00232 M00S00229.cpm +++|* *SIUN, USERNUM.* = AN ATTEMPT WAS MADE TO ENTER A 00233 M00S00230.cpm +++|* SECONDARY USER COMMAND WHEN DISALLOWED, OR THE 00234 M00S00231.cpm +++|* ACCOUNT/PASSWORD WAS INCORRECT. 00235 M00S00232.cpm +++|* 00236 M00S00233.cpm +++|* *UBAU, XXXX.* = BEGIN APPLICATION ACCOUNTING FOR 00237 M00S00234.cpm +++|* APPLICATION XXXX. 00238 M00S00235.cpm +++| SPACE 4,10 00239 M00S00236.cpm +++|*** ERROR LOG MESSAGES. 00240 M00S00237.cpm +++|* 00241 M00S00238.cpm +++|* *MAINTENANCE ACCESS BY UN = XXXXXXX.* = A USER HAS LOGGED IN 00242 M00S00239.cpm +++|* WITH MAINTENANCE PRIVILEGES. 00243 M00S00240.cpm +++| SPACE 4,10 00244 M00S00241.cpm +++|*** OPERATOR MESSAGES. 00245 M00S00242.cpm +++|* 00246 M00S00243.cpm +++|* 00247 M00S00244.cpm +++|* +REQUEST *K* DISPLAY.+ = B-DISPLAY MESSAGE INDICATING 00248 M00S00245.cpm +++|* THAT CONTROL POINT IS REQUESTING OPERATOR TO ASSIGN THE 00249 M00S00246.cpm +++|* K-DISPLAY TO THE CONTROL POINT. 00250 M00S00247.cpm +++| SPACE 4,10 00251 M00S00248.cpm +++|** ROUTINES CALLED. 00252 M00S00249.cpm +++|* 00253 M00S00250.cpm +++|* 00254 M00S00251.cpm +++|* 0AU - ACCOUNTING UPDATE. 00255 M00S00252.cpm +++|* 0AV - ACCOUNT VALIDATION. 00256 M00S00253.cpm +++| SPACE 4,10 00257 M00S00254.cpm +++|** COMMON DECKS. 00258 M00S00255.cpm +++| 00259 M00S00256.cpm +++| 00260 M00S00257.cpm +++|*CALL COMPMAC 00261 M00S00258.cpm +++|*CALL COMSACC 00262 M00S00259.cpm +++| QUAL BIO 00263 M00S00260.cpm +++|*CALL COMSBIO 00264 M00S00261.cpm +++| QUAL * 00265 M00S00262.cpm +++|*CALL COMSCPS 00266 M00S00263.cpm +++|*CALL COMSEJT 00267 M00S00264.cpm +++| QUAL EVENT 00268 M00S00265.cpm +++|*CALL COMSEVT 00269 M00S00266.cpm +++| QUAL * 00270 M00S00267.cpm +++|*CALL COMSJCE 00271 M00S00268.cpm +++|*CALL COMSMLS 00272 M00S00269.cpm +++|*CALL COMSMSC 00273 M00S00270.cpm +++|*CALL COMSMSP 00274 M00S00271.cpm +++|*CALL COMSLFD 00275 M00S00272.cpm +++|*CALL COMSPIM 00276 M00S00273.cpm +++|*CALL COMSPRD 00277 M00S00274.cpm +++|*CALL COMSPRO 00278 M00S00275.cpm +++|*CALL COMSREM
| Line S00276 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00279 M01S00276.271l750 ---|*CALL COMSSSD 00280 M00S00277.cpm +++|*CALL COMSSSE 00281 M00S00278.cpm +++|*CALL COMSSSJ 00282 M00S00279.cpm +++|*CALL COMSVER 00283 M00S00280.cpm +++|*CALL COMSZOL 00284 M00S00281.cpm +++| SPACE 4,10 00285 M00S00282.cpm +++|**** DIRECT LOCATION ASSIGNMENTS. 00286 M00S00283.cpm +++| 00287 M00S00284.cpm +++| 00288 M00S00285.cpm +++| PA EQU T1 POT ADDRESS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | cpm35 |
Seq # *Modification Id* Act ----------------------------+ 00289 M01S00001.cpm35 +++| T8 EQU 16 SCRATCH 00290 M01S00002.cpm35 +++| T9 EQU 17 SCRATCH 00291 M00S00286.cpm +++| CN EQU 20 - 24 CM WORD BUFFER (5 LOCATIONS) 00292 M00S00287.cpm +++| OT EQU 25 JOB ORIGIN TYPE 00293 M00S00288.cpm +++| SM EQU 26 SYSTEM SECURITY MODE 00294 M00S00289.cpm +++| FN EQU 30 - 34 FAMILY NAME (5 LOCATIONS) 00295 M00S00290.cpm +++| PP EQU FN+3 POT POINTER 00296 M00S00291.cpm +++| TN EQU FN+4 TERMINAL NUMBER 00297 M00S00292.cpm +++| TT EQU 35 TERMINAL TABLE ADDRESS (FOR STA) 00298 M00S00293.cpm +++| TA EQU 36 IAF RA (FOR STA) 00299 M00S00294.cpm +++| UN EQU 40 - 44 USER NAME (5 LOCATIONS) 00300 M00S00295.cpm +++| EP EQU 57 ENTRY POINTS 00301 M00S00296.cpm +++| BA EQU 60 - 64 SCRATCH 00302 M00S00297.cpm +++| RC EQU 65 RECALL COUNT 00303 M00S00298.cpm +++| FA EQU RC LOCAL FNT POINTER 00304 M00S00299.cpm +++| RI EQU 66 - 67 PROFILE FILE RANDOM ADDRESS 00305 M00S00300.cpm +++| 00306 M00S00301.cpm +++| 00307 M00S00302.cpm +++|** ASSEMBLY CONSTANTS. 00308 M00S00303.cpm +++| 00309 M00S00304.cpm +++| 00310 M00S00305.cpm +++| MRCL EQU 5 MAXIMUM RECALL COUNT (MUST BE .LT. 100B) 00311 M00S00306.cpm +++|**** 00312 M00S00307.cpm +++| TITLE MACRO DEFINITIONS. 00313 M00S00308.cpm +++| ABORT SPACE 4,10 00314 M00S00309.cpm +++|** ABORT - ERROR PROCESSING MACRO. 00315 M00S00310.cpm +++|* 00316 M00S00311.cpm +++|* ABORT PARAM 00317 M00S00312.cpm +++|* 00318 M00S00313.cpm +++|* ENTRY PARAM = 6/DFOP, 12/ADDR. 00319 M00S00314.cpm +++|* DFOP = 0 FOR MESSAGE TO USER AND SYSTEM 00320 M00S00315.cpm +++|* DAYFILE. 00321 M00S00316.cpm +++|* = *ERLN* FOR MESSAGE TO ERROR LOG, 00322 M00S00317.cpm +++|* USER, AND SYSTEM DAYFILE. 00323 M00S00318.cpm +++|* ADDR = DAYFILE MESSAGE ADDRESS. 00324 M00S00319.cpm +++| 00325 M00S00320.cpm +++| 00326 M00S00321.cpm +++| PURGMAC ABORT 00327 M00S00322.cpm +++| 00328 M00S00323.cpm +++| ABORT MACRO A 00329 M00S00324.cpm +++| MACREF ABORT 00330 M00S00325.cpm +++| LDC A 00331 M00S00326.cpm +++| LJM ERR 00332 M00S00327.cpm +++| ENDM 00333 M00S00328.cpm +++| ENTRY SPACE 4,10 00334 M00S00329.cpm +++|** ENTRY - DEFINE OVERLAY ENTRY POINT. 00335 M00S00330.cpm +++|* 00336 M00S00331.cpm +++|* 00337 M00S00332.cpm +++|* ENTRY NAME 00338 M00S00333.cpm +++|* ENTRY *NAME* = NAME OF ENTRY ADDRESS. 00339 M00S00334.cpm +++| 00340 M00S00335.cpm +++| 00341 M00S00336.cpm +++| PURGMAC ENTRY 00342 M00S00337.cpm +++| 00343 M00S00338.cpm +++| MACRO ENTRY,NAME 00344 M00S00339.cpm +++| MACREF ENTRY 00345 M00S00340.cpm +++| IF -MIC,.M 00346 M00S00341.cpm +++| NAME EQU * 00347 M00S00342.cpm +++| ELSE 00348 M00S00343.cpm +++| QUAL 00349 M00S00344.cpm +++| NAME EQU *+1R".M"*10000 00350 M00S00345.cpm +++| QUAL ".O" 00351 M00S00346.cpm +++| ENDIF 00352 M00S00347.cpm +++| ENDM 00353 M00S00348.cpm +++| FCN SPACE 4,10 00354 M00S00349.cpm +++|** FCN - DEFINE FUNCTION PROCESSOR. 00355 M00S00350.cpm +++|* 00356 M00S00351.cpm +++|* 00357 M00S00352.cpm +++|* CODE FCN NAME,(JOB CODES),SSJ 00358 M00S00353.cpm +++|* ENTRY *CODE* = OPTIONAL FUNCTION CODE SYMBOL TO BE DEFINED. 00359 M00S00354.cpm +++|* *NAME* = NAME OF FUNCTION PROCESSOR. 00360 M00S00355.cpm +++|* *JOB CODES* IF USED, FUNCTION IS ALLOWED BY ONLY 00361 M00S00356.cpm +++|* THOSE JOB TYPES. 00362 M00S00357.cpm +++|* *SSJ* IF USED, FUNCTION IS ALLOWED BY ONLY THOSE 00363 M00S00358.cpm +++|* JOBS WITH *SSJ=* ENTRY POINTS OR 00364 M00S00359.cpm +++|* SUBSYSTEM ID-S. 00365 M00S00360.cpm +++| 00366 M00S00361.cpm +++| 00367 M00S00362.cpm +++| .3 SET 0 00368 M00S00363.cpm +++| MACRO FCN,F,A,B,C 00369 M00S00364.cpm +++| LOC .3/3 00370 M00S00365.cpm +++| F CON A/10000B,A-A/10000B*10000B 00371 M00S00366.cpm +++| .1 SET 0 00372 M00S00367.cpm +++| IFC NE,$B$$,1 00373 M00S00368.cpm +++| .1 BITSET (B) 00374 M00S00369.cpm +++| IFC NE,$C$$,1 00375 M00S00370.cpm +++| .1 SET .1+4000 00376 M00S00371.cpm +++| CON .1 00377 M00S00372.cpm +++| .3 SET .3+3 00378 M00S00373.cpm +++| ENDM 00379 M00S00374.cpm +++| OVERLAY SPACE 4,10 00380 M00S00375.cpm +++|** OVERLAY - GENERATE OVERLAY CONSTANTS. 00381 M00S00376.cpm +++|* 00382 M00S00377.cpm +++|* 00383 M00S00378.cpm +++|* OVERLAY (TEXT) 00384 M00S00379.cpm +++|* ENTRY *TEXT* = TEXT OF SUBTITLE. 00385 M00S00380.cpm +++| 00386 M00S00381.cpm +++| 00387 M00S00382.cpm +++| .N SET 0 00388 M00S00383.cpm +++| OVLB MICRO 1,, 3C BASE OVERLAY NAME 00389 M00S00384.cpm +++| 00390 M00S00385.cpm +++| 00391 M00S00386.cpm +++| PURGMAC OVERLAY 00392 M00S00387.cpm +++| 00393 M00S00388.cpm +++| OVERLAY MACRO TEXT 00394 M00S00389.cpm +++| QUAL 00395 M00S00390.cpm +++| .N SET .N+1 00396 M00S00391.cpm +++| .M MICRO .N,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 00397 M00S00392.cpm +++| .O MICRO 1,3, "OVLB"".M" 00398 M00S00393.cpm +++| QUAL ".O" 00399 M00S00394.cpm +++| TTL CPM/".O" - TEXT 00400 M00S00395.cpm +++| TITLE 00401 M00S00396.cpm +++| IDENT ".O",OVL TEXT 00402 M00S00397.cpm +++|*COMMENT CPM - TEXT
| Line S00398 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00403 M01S00398.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1977.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00404 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00405 M00S00399.cpm +++| ORG OVL 00406 M00S00400.cpm +++| LJM * 00407 M00S00401.cpm +++| UJN *-2 00408 M00S00402.cpm +++| ENDM 00409 M00S00403.cpm +++| SCLASS SPACE 4,15 00410 M00S00404.cpm +++|** SCLASS - DEFINE SERVICE CLASS TABLE. 00411 M00S00405.cpm +++|* 00412 M00S00406.cpm +++|* SCLASS NM,MN,DF,ST,TX 00413 M00S00407.cpm +++|* 00414 M00S00408.cpm +++|* ENTRY *NM* = SERVICE CLASS NAME. 00415 M00S00409.cpm +++|* *MN* = TWO CHARACTER MNEMONIC. 00416 M00S00410.cpm +++|* *DF* = DAYFILE MESSAGE CHARACTER. 00417 M00S00411.cpm +++|* *ST* = SHORT TEXT FOR *QFTLIST*. 00418 M00S00412.cpm +++|* *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE. 00419 M00S00413.cpm +++|* 00420 M00S00414.cpm +++|* NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF 00421 M00S00415.cpm +++|* THIS MACRO. 00422 M00S00416.cpm +++| 00423 M00S00417.cpm +++| 00424 M00S00418.cpm +++| PURGMAC SCLASS 00425 M00S00419.cpm +++| 00426 M00S00420.cpm +++| SCLASS MACRO NM,MN,DF,ST,TX 00427 M00S00421.cpm +++| .SCL RMT 00428 M00S00422.cpm +++| INDEX NM,2R_MN TX 00429 M00S00423.cpm +++| .SCL RMT 00430 M00S00424.cpm +++| .A IFC NE,$NM$SSSC$ 00431 M00S00425.cpm +++| .SCLVSP RMT 00432 M00S00426.cpm +++| INDEX NM,MN_MK TX 00433 M00S00427.cpm +++| .SCLVSP RMT 00434 M00S00428.cpm +++| .A ENDIF 00435 M00S00429.cpm +++| SCLASS ENDM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00430.cpm +++| 00441 M00S00431.cpm +++|
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00432.cpm +++| SCL$ EQU 0 ONLY PROCESS CLASSES WITH JCB-S 00458 M00S00433.cpm +++|*CALL COMSSCD
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00459 M01S00020.271l750 +++| SUB$ EQU 1 ASSEMBLE *SUBSYST* MACRO CALLS 00460 M01S00021.271l750 +++|*CALL COMSSSD 00461 M00S00434.cpm +++| TITLE MAIN PROGRAM. 00462 M00S00435.cpm +++| CPM SPACE 4,10 00463 M00S00436.cpm +++|** CPM - MAIN PROGRAM. 00464 M00S00437.cpm +++| 00465 M00S00438.cpm +++| 00466 M00S00439.cpm +++| ORG PPFW 00467 M00S00440.cpm +++| 00468 M00S00441.cpm +++| 00469 M00S00442.cpm +++| CPM RJM PRS PRESET CONTROL POINT MANAGER 00470 M00S00443.cpm +++| LDC 0 00471 M00S00444.cpm +++| CPMA EQU *-1 (OVERLAY NAME) 00472 M00S00445.cpm +++| ZJN CPM1 IF NO OVERLAY NAME 00473 M00S00446.cpm +++| LMC 2L"OVLB" LOAD OVERLAY 00474 M00S00447.cpm +++| RJM EXR 00475 M00S00448.cpm +++| CPM1 LDN 0 CLEAR ADDRESS WORD COUNT 00476 M00S00449.cpm +++| STD T1 00477 M00S00450.cpm +++| LJM * 00478 M00S00451.cpm +++| CPMB EQU *-1 (ENTRY ADDRESS FOR FUNCTION) 00479 M00S00452.cpm +++| 00480 M00S00453.cpm +++| CPMX MONITOR DPPM DROP PP 00481 M00S00454.cpm +++| LJM PPR EXIT TO PP RESIDENT 00482 M00S00455.cpm +++| SPACE 4,10 00483 M00S00456.cpm +++|** PROGRAMMING NOTE. 00484 M00S00457.cpm +++|* 00485 M00S00458.cpm +++|* (T1) = 0, ON ENTRY TO ALL FUNCTION PROCESSORS TO ASSURE 00486 M00S00459.cpm +++|* THE ROUTINE *CKA* WILL CHECK THE PROPER CM ADDRESSES. 00487 M00S00460.cpm +++| TITLE ERROR PROCESSOR. 00488 M00S00461.cpm +++| ERR SPACE 4,10 00489 M00S00462.cpm +++|** ERR - ERROR PROCESSOR. 00490 M00S00463.cpm +++|* 00491 M00S00464.cpm +++|* ENTRY (A) = 6/ DFOP, 12/ ADDR 00492 M00S00465.cpm +++|* 00493 M00S00466.cpm +++|* DFOP = DAYFILE OPTION. 00494 M00S00467.cpm +++|* = 0 FOR MESSAGE TO USER AND SYSTEM DAYFILE. 00495 M00S00468.cpm +++|* = *ERLN* FOR MESSAGE TO ERROR LOG, USER, AND 00496 M00S00469.cpm +++|* SYSTEM DAYFILES. 00497 M00S00470.cpm +++|* 00498 M00S00471.cpm +++|* ADDR = ADDRESS OF MESSAGE. 00499 M00S00472.cpm +++|* 00500 M00S00473.cpm +++|* (ERRA) = RESOURCE TYPE FOR *ERNV* MESSAGE. 00501 M00S00474.cpm +++|* 00502 M00S00475.cpm +++|* EXIT ERROR PROCESSOR OVERLAY EXECUTED. 00503 M00S00476.cpm +++|* (CN) = ERROR MESSAGE ADDRESS. 00504 M00S00477.cpm +++|* 00505 M00S00478.cpm +++|* USES CN. 00506 M00S00479.cpm +++| 00507 M00S00480.cpm +++| 00508 M00S00481.cpm +++| ERR BSS 0 ENTRY 00509 M00S00482.cpm +++| STD CN SET ERROR MESSAGE ADDRESS 00510 M00S00483.cpm +++| SHN -14 SET DAYFILE OPTION 00511 M00S00484.cpm +++| STD CN+1 00512 M00S00485.cpm +++| LDC 0 SET RESOURCE TYPE 00513 M00S00486.cpm +++| ERRA EQU *-1 (RESOURCE TYPE) 00514 M00S00487.cpm +++| STD CN+2 00515 M00S00488.cpm +++| EXECUTE 3CA 00516 M00S00489.cpm +++| LJM /3CA/ERR PROCESS ERROR 00517 M00S00490.cpm +++| TITLE RESIDENT ROUTINES. 00518 M00S00491.cpm +++| CFN SPACE 4,10 00519 M00S00492.cpm +++|** CFN - COMPARE NAMES. 00520 M00S00493.cpm +++|* 00521 M00S00494.cpm +++|* ENTRY (FN - FN+4) = REQUESTED NAME. 00522 M00S00495.cpm +++|* (CN - CN+4) = LEGAL NAME. 00523 M00S00496.cpm +++|* 00524 M00S00497.cpm +++|* EXIT (A) = 0 IF MATCH. 00525 M00S00498.cpm +++| 00526 M00S00499.cpm +++| 00527 M00S00500.cpm +++| CFN SUBR ENTRY/EXIT 00528 M00S00501.cpm +++| LDD FN 00529 M00S00502.cpm +++| LMD CN 00530 M00S00503.cpm +++| NJN CFNX IF NO MATCH 00531 M00S00504.cpm +++| LDD FN+1 00532 M00S00505.cpm +++| LMD CN+1 00533 M00S00506.cpm +++| NJN CFNX IF NO MATCH 00534 M00S00507.cpm +++| LDD FN+2 00535 M00S00508.cpm +++| LMD CN+2 00536 M00S00509.cpm +++| NJN CFNX IF NO MATCH 00537 M00S00510.cpm +++| LDD FN+3 00538 M00S00511.cpm +++| LMD CN+3 00539 M00S00512.cpm +++| SCN 77 00540 M00S00513.cpm +++| UJN CFNX RETURN 00541 M00S00514.cpm +++| CJR SPACE 4,20 00542 M00S00515.cpm +++|** CJR - CHECK IF THE JOB IS ROLLABLE. 00543 M00S00516.cpm +++|* 00544 M00S00517.cpm +++|* AN I/O ERROR WAS ENCOUNTERED ON A MASS STORAGE DEVICE. THE 00545 M00S00518.cpm +++|* JOB IS ROLLABLE IS IT IS NOT A SUBSYSTEM, THE I/O ERROR IS 00546 M00S00519.cpm +++|* RECOVERABLE, AND THERE IS NOT AN ERROR FLAG IN THE CONTROL 00547 M00S00520.cpm +++|* POINT AREA. 00548 M00S00521.cpm +++|* 00549 M00S00522.cpm +++|* ENTRY (T5) = EST ORDINAL. 00550 M00S00523.cpm +++|* (RDCT) = RECOVERABLE ERROR STATUS (BIT 2**10 CLEAR IF 00551 M00S00524.cpm +++|* RECOVERABLE ERROR). 00552 M00S00525.cpm +++|* 00553 M00S00526.cpm +++|* EXIT TO *1RJ* IF THE JOB IS ROLLABLE. 00554 M00S00527.cpm +++|* TO *CPMX* IF ERROR FLAG SET. 00555 M00S00528.cpm +++|* OTHERWISE, TO CALLER. 00556 M00S00529.cpm +++|* 00557 M00S00530.cpm +++|* USES IR+4, CM - CM+4. 00558 M00S00531.cpm +++|* 00559 M00S00532.cpm +++|* MACROS EXECUTE, PAUSE. 00560 M00S00533.cpm +++| 00561 M00S00534.cpm +++| 00562 M00S00535.cpm +++| CJR SUBR ENTRY/EXIT 00563 M00S00536.cpm +++| LDD CP CHECK IF SUBSYSTEM CALLER 00564 M00S00537.cpm +++| ADK JCIW 00565 M00S00538.cpm +++| CRD CM 00566 M00S00539.cpm +++| LDD CM+2 00567 M00S00540.cpm +++| SBK LSSI+1 00568 M00S00541.cpm +++| PJN CJRX IF SUBSYSTEM 00569 M00S00542.cpm +++| LDM RDCT 00570 M00S00543.cpm +++| SHN 21-12 00571 M00S00544.cpm +++| MJN CJRX IF ERROR NOT RECOVERABLE 00572 M00S00545.cpm +++| PAUSE 00573 M00S00546.cpm +++| LDD CM+1 00574 M00S00547.cpm +++| NJP CPMX IF ERROR FLAG SET 00575 M00S00548.cpm +++| LDD T5 SET EST ORDINAL 00576 M00S00549.cpm +++| STD IR+4 00577 M00S00550.cpm +++| EXECUTE 1RJ RECALL JOB 00578 M00S00551.cpm +++| CKA SPACE 4,10 00579 M00S00552.cpm +++|** CKA - CHECK ADDRESS. 00580 M00S00553.cpm +++|* 00581 M00S00554.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS. 00582 M00S00555.cpm +++|* (T1) = WORD COUNT MINUS ONE. 00583 M00S00556.cpm +++|* 00584 M00S00557.cpm +++|* EXIT (A) = ABSOLUTE ADDRESS. 00585 M00S00558.cpm +++| 00586 M00S00559.cpm +++| 00587 M00S00560.cpm +++| CKA2 LDD IR+3 LOAD ABSOLUTE ADDRESS 00588 M00S00561.cpm +++| SHN 6 00589 M00S00562.cpm +++| ADD RA 00590 M00S00563.cpm +++| SHN 6 00591 M00S00564.cpm +++| ADD IR+4 00592 M00S00565.cpm +++| 00593 M00S00566.cpm +++| CKA SUBR ENTRY/EXIT 00594 M00S00567.cpm +++| LDD IR+3 00595 M00S00568.cpm +++| SCN 37 00596 M00S00569.cpm +++| NJN CKA1 IF OUT OF RANGE 00597 M00S00570.cpm +++| LDD IR+3 00598 M00S00571.cpm +++| SHN 14 00599 M00S00572.cpm +++| LMD IR+4 00600 M00S00573.cpm +++| ADD T1 00601 M00S00574.cpm +++| SHN -6 00602 M00S00575.cpm +++| SBD FL 00603 M00S00576.cpm +++| MJN CKA2 IF < FL - WORD COUNT 00604 M00S00577.cpm +++| CKA1 ABORT ERAE * CPM - ARGUMENT ERROR.* 00605 M00S00578.cpm +++| RCL SPACE 4,10 00606 M00S00579.cpm +++|** RCL - RECALL *CPM*. 00607 M00S00580.cpm +++|* 00608 M00S00581.cpm +++|* ENTRY (IR - IR+4) = *CPM* REQUEST. 00609 M00S00582.cpm +++|* 00610 M00S00583.cpm +++|* USES CM - CM+4. 00611 M00S00584.cpm +++|* 00612 M00S00585.cpm +++|* MACROS MONITOR. 00613 M00S00586.cpm +++| 00614 M00S00587.cpm +++| 00615 M00S00588.cpm +++| RCL BSS 0 00616 M00S00589.cpm +++| LDN ZERL RECALL REQUEST 00617 M00S00590.cpm +++| CRD CM 00618 M00S00591.cpm +++| LDD MA 00619 M00S00592.cpm +++| CWM IR,ON 00620 M00S00593.cpm +++| CWD CM 00621 M00S00594.cpm +++| MONITOR RECM 00622 M00S00595.cpm +++| LJM PPR EXIT 00623 M00S00596.cpm +++| UFC SPACE 4,10 00624 M00S00597.cpm +++|** UFC - UPDATE FAMILY ACTIVITY COUNTS. 00625 M00S00598.cpm +++|* 00626 M00S00599.cpm +++|* ENTRY (CN+3) = CURRENT FAMILY EST ORDINAL. 00627 M00S00600.cpm +++|* (T2) = NEW FAMILY EST ORDINAL. 00628 M00S00601.cpm +++|* 00629 M00S00602.cpm +++|* EXIT CURRENT FAMILY ACTIVITY COUNT DECREMENTED. 00630 M00S00603.cpm +++|* NEW FAMILY ACTIVITY COUNT INCREMENTED.
| Line S00604 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00631 M01S00604.271l750 ---|* *PUCW* CLEARED IF FAMILY CHANGED.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00632 M01S00022.271l750 +++|* *PUCN* CLEARED IF FAMILY CHANGED. 00633 M00S00605.cpm +++|* 00634 M00S00606.cpm +++|* USES CM - CM+4. 00635 M00S00607.cpm +++| 00636 M00S00608.cpm +++| 00637 M00S00609.cpm +++| UFC SUBR ENTRY/EXIT 00638 M00S00610.cpm +++| LDD CN+3 CHECK OLD = NEW 00639 M00S00611.cpm +++| LMD T2 00640 M00S00612.cpm +++| ZJN UFCX IF OLD = NEW 00641 M00S00613.cpm +++| LDD CN+3 DECREMENT OLD FAMILY ACTIVITY COUNT 00642 M00S00614.cpm +++| STD CM+1 00643 M00S00615.cpm +++| LMN NEEQ CHECK FOR NULL FAMILY 00644 M00S00616.cpm +++| ZJN UFC1 IF NULL FAMILY 00645 M00S00617.cpm +++| LDN DFCS 00646 M00S00618.cpm +++| STD CM+3 00647 M00S00619.cpm +++| MONITOR SMDM 00648 M00S00620.cpm +++| UFC1 LDD T2 INCREMENT NEW FAMILY ACTIVITY COUNT 00649 M00S00621.cpm +++| STD CM+1 00650 M00S00622.cpm +++| LDN IFCS 00651 M00S00623.cpm +++| STD CM+3 00652 M00S00624.cpm +++| MONITOR SMDM
| Line S00625 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00653 M01S00625.271l750 ---| LDN ZERL CLEAR *PUCW*
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00654 M01S00023.271l750 +++| LDN ZERL CLEAR *PUCN* 00655 M00S00626.cpm +++| CRD CM
| Line S00627 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00656 M01S00627.271l750 ---| LDD CP 00657 M01S00628.271l750 ---| ADK PUCW
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00658 M01S00024.271l750 +++| NFA PUCN 00659 M00S00629.cpm +++| CWD CM 00660 M00S00630.cpm +++| UJN UFCX RETURN 00661 M00S00631.cpm +++| SPACE 4,10 00662 M00S00632.cpm +++|** COMMON DECKS NOT TO BE OVERLAID. 00663 M00S00633.cpm +++| 00664 M00S00634.cpm +++| 00665 M00S00635.cpm +++| TLI$ SET 1 SELECT TIME LIMIT INDEX CONVERSION 00666 M00S00636.cpm +++| CLI$ SET 1 SELECT CONVERSION FROM INDEX TO COUNT 00667 M00S00637.cpm +++| SLI$ SET 1 SELECT SRU LIMIT CONVERSION 00668 M00S00638.cpm +++|*CALL COMPCVI 00669 M00S00639.cpm +++| EJT$ EQU 1 DEFINE EJT PROCESSOR 00670 M00S00640.cpm +++| FNT$ EQU 1 DEFINE SYSTEM FNT PROCESSOR 00671 M00S00641.cpm +++| IFP$ EQU 1 DEFINE REMOTE INITIALIZATION CODE
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00672 M01S00025.271l750 +++| JCB$ EQU 1 DEFINE JCB PROCESSOR 00673 M00S00642.cpm +++|*CALL COMPGFP 00674 M00S00643.cpm +++|*CALL COMPRJC 00675 M00S00644.cpm +++|*CALL COMPRSS 00676 M00S00645.cpm +++|*CALL COMPVFN 00677 M00S00646.cpm +++| SPACE 4,10 00678 M00S00647.cpm +++|** OVERLAY DEFINITIONS. 00679 M00S00648.cpm +++| 00680 M00S00649.cpm +++| 00681 M00S00650.cpm +++| OVL EQU *+5 OVERLAY LOAD ADDRESS 00682 M00S00651.cpm +++| L0AV EQU BFMS-ZAVL LOAD ADDRESS FOR *0AV* 00683 M00S00652.cpm +++| TITLE FUNCTION PROCESSORS. 00684 M00S00653.cpm +++| SPR SPACE 4,10 00685 M00S00654.cpm +++|*** FUNCTION 1. 00686 M00S00655.cpm +++|* SET CPU PRIORITY = PARAMETER. 00687 M00S00656.cpm +++|*
| Line S00657 Modification History | |
|---|---|
M01 (Removed by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00688 M01S00657.cpm34 ---|* ENTRY (CN - CN+4) = *JCIW*.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Removed by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00689 M02S00001.ns2731 ---|* ENTRY (IR+4) = REQUESTED CPU PRIORITY.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00658.cpm +++| 00693 M00S00659.cpm +++| 00694 M00S00660.cpm +++| SPR ENTRY
| Line S00661 Modification History | |
|---|---|
M01 (Removed by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00695 M01S00661.cpm34 ---| LDD IR+4 00696 M01S00662.cpm34 ---| ZJN SPR2 IF ZERO PRIORITY REQUESTED 00697 M01S00663.cpm34 ---| SBD CN 00698 M01S00664.cpm34 ---| MJN SPR3 IF PRIORITY DECREASE REQUESTED 00699 M01S00665.cpm34 ---| ZJN SPR5 IF NO PRIORITY CHANGE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00700 M02S00002.271l750 ---| 00701 M02S00003.271l750 ---|* DO NOT CHANGE THE PRIORITY IF THE SERVICE CLASS IS .GE. MXJC 00702 M02S00004.271l750 ---|* TO PREVENT *CPUMTR* FROM ATTEMPTING TO ADJUST THE CPU 00703 M02S00005.271l750 ---|* PRIORITY FROM A NON-EXISTENT JCB. 00704 M02S00006.271l750 ---| 00705 M02S00007.271l750 ---| LDD CP GET JOB EJT ORDINAL 00706 M02S00008.271l750 ---| ADN TFSW 00707 M02S00009.271l750 ---| CRD CM 00708 M02S00010.271l750 ---| SFA EJT,CM GET SERVICE CLASS 00709 M02S00011.271l750 ---| ADN SCLE 00710 M02S00012.271l750 ---| CRD CM 00711 M02S00013.271l750 ---| LDD CM 00712 M02S00014.271l750 ---| SHN -6 00713 M02S00015.271l750 ---| SBN MXJC 00714 M02S00016.271l750 ---| PJN SPR4 IF NO JCB FOR SERVICE CLASS 00715 M00S00666.cpm +++| LDD OT CHECK ORIGIN TYPE 00716 M00S00667.cpm +++| LMK SYOT 00717 M00S00668.cpm +++| ZJN SPR1 IF SYSTEM ORIGIN JOB 00718 M00S00669.cpm +++| LDD EP CHECK FOR SSJ= JOB 00719 M00S00670.cpm +++| SHN 21-2
| Line S00671 Modification History | |
|---|---|
M01 (Removed by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00720 M01S00671.cpm34 ---| PJN SPR5 IF NOT SSJ=
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00721 M01S00017.cpm34 +++| PJN SPR4 IF NOT SSJ=
| Line S00672 Modification History | |
|---|---|
M01 (Removed by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00722 M01S00672.ns2731 ---| SPR1 LDN LSCS VALIDATE RANGE 00723 M01S00673.ns2731 ---| SBD IR+4
| Line S00674 Modification History | |
|---|---|
M01 (Removed by) | cpm34 |
M02 (Removed by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00724 M02S00674.ns2731 ---| PJN SPR3 IF BELOW MAXIMUM
| Line S00675 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
M02 (Removed by) | cpm34 |
M03 (Removed by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00725 M03S00675.ns2731 ---| LDN LSCS&1 00726 M03S00676.ns2731 ---| SPR2 LMN 1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | cpm34 |
M03 (Removed by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00727 M03S00001.ns2731 ---| LDK LFCS&LJCS 00728 M03S00002.ns2731 ---| SPR2 LMK LJCS SET MINIMUM USER JOB CPU PRIORITY
| Line S00677 Modification History | |
|---|---|
M01 (Removed by) | cpm34 |
M02 (Removed by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00729 M02S00677.ns2731 ---| UJN SPR4
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Removed by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00730 M02S00018.ns2731 ---| PJN SPR2 IF BELOW SUBSYSTEM PRIORITIES
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
M02 (Removed by) | 271l750 |
M03 (Removed by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00731 M03S00019.ns2731 ---| LDN LSCS SET HIGHEST FIXED PRIORITY
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Removed by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00732 M02S00026.ns2731 ---| LDN LSCS SET HIGHEST FORCED PRIORITY
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00743 M01S00020.cpm34 +++| UJN SPR3 SET PRIORITY 00744 M00S00678.cpm +++|
| Line S00679 Modification History | |
|---|---|
M01 (Removed by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00745 M01S00679.cpm34 ---| SPR3 LDD IR+4 SET PRIORITY 00746 M01S00680.cpm34 ---| SPR4 STD CM+4
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00747 M01S00021.cpm34 +++| SPR2 LDD IR+4 SET PRIORITY 00748 M01S00022.cpm34 +++| SPR3 STD CM+4 00749 M00S00681.cpm +++| LDN CPRS SELECT CPU PRIORITY 00750 M00S00682.cpm +++| STD CM+1 00751 M00S00683.cpm +++| MONITOR SJCM
| Line S00684 Modification History | |
|---|---|
M01 (Removed by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00752 M01S00684.cpm34 ---| SPR5 LJM CPMX RETURN
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | cpm34 |
Seq # *Modification Id* Act ----------------------------+ 00753 M01S00023.cpm34 +++| SPR4 LJM CPMX RETURN 00754 M00S00685.cpm +++| SEM SPACE 4,20 00755 M00S00686.cpm +++|*** FUNCTION 2. 00756 M00S00687.cpm +++|* SET EXIT MODE. 00757 M00S00688.cpm +++|* 00758 M00S00689.cpm +++|* ENTRY (IR+3) = 12/ MASK. 00759 M00S00690.cpm +++|* (IR+4) = 12/ MODE. 00760 M00S00691.cpm +++|* WHERE - MASK DEFINES BIT POSITIONS TO BE CHANGED 00761 M00S00692.cpm +++|* IN WORD 3 OF THE EXCHANGE PACKAGE. 00762 M00S00693.cpm +++|* - MODE DEFINES THE NEW VALUES. 00763 M00S00694.cpm +++|* 00764 M00S00695.cpm +++|* EXIT EXIT MODE CHANGED. 00765 M00S00696.cpm +++|* 00766 M00S00697.cpm +++|* USES CM - CM+4. 00767 M00S00698.cpm +++|* 00768 M00S00699.cpm +++|* CALLS DFM. 00769 M00S00700.cpm +++|* 00770 M00S00701.cpm +++|* MACROS ABORT. 00771 M00S00702.cpm +++| 00772 M00S00703.cpm +++| 00773 M00S00704.cpm +++| SEM ENTRY 00774 M00S00705.cpm +++| LDK MABL CHECK MAINFRAME TYPE 00775 M00S00706.cpm +++| CRD CM 00776 M00S00707.cpm +++| LDD CM+1 00777 M00S00708.cpm +++| SHN -11 00778 M00S00709.cpm +++| LMN 7 00779 M00S00710.cpm +++| ZJN SEM1 IF CYBER 176 MAINFRAME 00780 M00S00711.cpm +++| LDD IR+3 CLEAR UNDERFLOW MASK 00781 M00S00712.cpm +++| SCN 10 00782 M00S00713.cpm +++| UJN SEM3 PROCESS NON C176 00783 M00S00714.cpm +++| 00784 M00S00715.cpm +++| SEM1 LDD IR+3 00785 M00S00716.cpm +++| LPN 1 00786 M00S00717.cpm +++| ZJN SEM2 IF CM RANGE MASK NOT SET 00787 M00S00718.cpm +++| LDD IR+4 00788 M00S00719.cpm +++| LPN 1 00789 M00S00720.cpm +++| NJN SEM2 IF CM RANGE NOT DESELECTED 00790 M00S00721.cpm +++| LDC =C* CM RANGE EXIT MODE NOT DESELECTABLE.* 00791 M00S00722.cpm +++| RJM DFM 00792 M00S00723.cpm +++| SEM2 LDD IR+4 REPOSITION UNDERFLOW BIT 00793 M00S00724.cpm +++| LPN 10 00794 M00S00725.cpm +++| SHN -3 00795 M00S00726.cpm +++| STD T1 00796 M00S00727.cpm +++| LDD IR+4 00797 M00S00728.cpm +++| SCN 11 00798 M00S00729.cpm +++| LMD T1 00799 M00S00730.cpm +++| STD IR+4 00800 M00S00731.cpm +++| LDD IR+3 REPOSITION UNDERFLOW MASK BIT 00801 M00S00732.cpm +++| LPN 10 00802 M00S00733.cpm +++| SHN -3 00803 M00S00734.cpm +++| STD T1 00804 M00S00735.cpm +++| LDD IR+3 00805 M00S00736.cpm +++| SCN 11 00806 M00S00737.cpm +++| LMD T1 00807 M00S00738.cpm +++| SEM3 STD IR+3 00808 M00S00739.cpm +++| LPN 20 00809 M00S00740.cpm +++| ZJN SEM5 IF NOT CHANGING THE PURGING BIT 00810 M00S00741.cpm +++| LDK MABL 00811 M00S00742.cpm +++| CRD CM 00812 M00S00743.cpm +++| LDD CM+1 00813 M00S00744.cpm +++| SHN 21-13 00814 M00S00745.cpm +++| PJN SEM5 IF CYBER 170-8X5 MAINFRAME 00815 M00S00746.cpm +++| LDC =C* STACK PURGING NOT DESELECTABLE.* 00816 M00S00747.cpm +++| RJM DFM PROCESS DAYFILE MESSAGE 00817 M00S00748.cpm +++| LDD IR+3 CLEAR STACK PURGING MASK 00818 M00S00749.cpm +++| SCN 20 00819 M00S00750.cpm +++| UJN SEM6 PROCESS EXIT MODE BITS 00820 M00S00751.cpm +++| 00821 M00S00752.cpm +++| SEM4 ABORT ERAE * CPM - ARGUMENT ERROR.* 00822 M00S00753.cpm +++| 00823 M00S00754.cpm +++| SEM5 LDD IR+3 MASK OF BITS TO BE CHANGED 00824 M00S00755.cpm +++| NJN SEM6 IF EXIT MODE MASK SPECIFIED 00825 M00S00756.cpm +++| LDN 7 DEFAULT MASK 00826 M00S00757.cpm +++| SEM6 LPN 27 00827 M00S00758.cpm +++| RAM SEMB 00828 M00S00759.cpm +++| LPN 27 RETRIEVE MASK 00829 M00S00760.cpm +++| RAM SEMA 00830 M00S00761.cpm +++| LDD IR+3 ORIGINAL MASK 00831 M00S00762.cpm +++| LPC 750 00832 M00S00763.cpm +++| NJN SEM4 IF NOT CHANGING LEGAL EXIT MODE BITS 00833 M00S00764.cpm +++| LDD CP GET CURRENT EXIT MODE 00834 M00S00765.cpm +++| ADN 3 READ MODE 00835 M00S00766.cpm +++| CRD CM 00836 M00S00767.cpm +++| LDD CM CURRENT MODE 00837 M00S00768.cpm +++| SEMA SCN 0 CLEAR THOSE BITS CHANGING 00838 M00S00769.cpm +++| STD CM 00839 M00S00770.cpm +++| LDD IR+4 NEW VALUE FOR THOSE BITS CHANGING 00840 M00S00771.cpm +++| SEMB LPN 0 EXTRACT THOSE BITS CHANGING 00841 M00S00772.cpm +++| ADD CM FORM NEW EXIT MODE 00842 M00S00773.cpm +++| LPC 0777 CLEAR HARDWARE MODE BITS 00843 M00S00774.cpm +++| LMC 7000 FORCE HARDWARE MODE BITS ON 00844 M00S00775.cpm +++| STD CM 00845 M00S00776.cpm +++| LDN 0 CLEAR UNPROCESSED *PSD* ERRORS 00846 M00S00777.cpm +++| STD CM+1 00847 M00S00778.cpm +++| LDD CP 00848 M00S00779.cpm +++| ADN 3 00849 M00S00780.cpm +++| CWD CM WRITE NEW EXIT MODE 00850 M00S00781.cpm +++| LJM CPMX EXIT
| Line S00782 Modification History | |
|---|---|
M01 (Removed by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00851 M01S00782.ns2726 ---| SDA SPACE 4,10
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00852 M01S00001.ns2726 +++| SDA SPACE 4,20 00853 M00S00783.cpm +++|*** FUNCTION 5.
| Line S00784 Modification History | |
|---|---|
M01 (Removed by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00854 M01S00784.ns2726 ---|* SET CONSOLE DISPLAY REGISTER TO (PARAMETER). 00855 M01S00785.ns2726 ---|* DISPLAY REGISTER FORMAT.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00856 M01S00002.ns2726 +++|* SET *K* DISPLAY CONTROLS. 00857 M00S00786.cpm +++|*
| Line S00787 Modification History | |
|---|---|
M01 (Removed by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00858 M01S00787.ns2726 ---|*T, 1/0,1/U,1/0,1/S,2/0,18/ KB,18/ LS,18/ RS
Figure
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00788.cpm +++|*
| Line S00789 Modification History | |
|---|---|
M01 (Removed by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00863 M01S00789.ns2726 ---|* U = 1, IF UPDATE OF STATUS WORD IS NOT REQUIRED.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00790.cpm +++|* S = 1, IF K-DISPLAY INPUT TO BE SUPPRESSED FROM DAYFILE 00868 M00S00791.cpm +++|* KB KEYBOARD BUFFER ADDRESS
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00869 M01S00009.ns2726 +++|* RS RIGHT SCREEN BUFFER ADDRESS 00870 M00S00792.cpm +++|* LS LEFT SCREEN BUFFER ADDRESS
| Line S00793 Modification History | |
|---|---|
M01 (Removed by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00871 M01S00793.ns2726 ---|* RS RIGHT SCREEN BUFFER ADDRESS
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 00872 M01S00010.ns2726 +++|* 00873 M01S00011.ns2726 +++|* EXIT *K* DISPLAY CONTROLS UPDATED. 00874 M00S00794.cpm +++| 00875 M00S00795.cpm +++| 00876 M00S00796.cpm +++| SDA ENTRY 00877 M00S00797.cpm +++| LDD IR+3 CHECK PARAMETER 00878 M00S00798.cpm +++| LPN 37 00879 M00S00799.cpm +++| SHN 14 00880 M00S00800.cpm +++| LMD IR+4 00881 M00S00801.cpm +++| NJN SDA1 IF AN ADDRESS WAS SPECIFIED 00882 M00S00802.cpm +++| LDK ZERL 00883 M00S00803.cpm +++| LJM SDA6 CLEAR DISPLAY REGISTER (DBAW) 00884 M00S00804.cpm +++| 00885 M00S00805.cpm +++| SDA1 LDK PPCP CHECK IF K-DISPLAY IS ACTIVE 00886 M00S00806.cpm +++| CRD CN 00887 M00S00807.cpm +++| LDD CN+4 00888 M00S00808.cpm +++| ADN 10 00889 M00S00809.cpm +++| CRD CN READ *DSD*-S INPUT REGISTER 00890 M00S00810.cpm +++| LDD CN+2 00891 M00S00811.cpm +++| SHN -6 00892 M00S00812.cpm +++| LMN 1RK 00893 M00S00813.cpm +++| ZJN SDA2 IF K-DISPLAY IS UP ON THE LEFT SCREEN 00894 M00S00814.cpm +++| LDD CN+2 00895 M00S00815.cpm +++| LPN 77 00896 M00S00816.cpm +++| LMN 1RK 00897 M00S00817.cpm +++| NJN SDA3 IF K-DISPLAY IS NOT UP 00898 M00S00818.cpm +++| LDN 1 00899 M00S00819.cpm +++| SDA2 STD T2 GET EJTO FROM *DSD*-S INPUT REGISTER 00900 M00S00820.cpm +++| LDM CN+3,T2 00901 M00S00821.cpm +++| ZJN SDA3 IF DISPLAY IS NOT ASSIGNED TO A JOB 00902 M00S00822.cpm +++| STD T2 00903 M00S00823.cpm +++| LDD CP READ THE CALLER-S EJTO 00904 M00S00824.cpm +++| ADK TFSW 00905 M00S00825.cpm +++| CRD CN 00906 M00S00826.cpm +++| LDD CN 00907 M00S00827.cpm +++| LMD T2 00908 M00S00828.cpm +++| ZJN SDA5 IF K-DISPLAY IS ASSIGNED TO THIS JOB 00909 M00S00829.cpm +++| SDA3 LDD OT CHECK ORIGIN TYPE 00910 M00S00830.cpm +++| LMK SYOT 00911 M00S00831.cpm +++| NJN SDA4 IF NOT SYSTEM ORIGIN 00912 M00S00832.cpm +++| LDC SDAB FLASH *REQUEST *K* DISPLAY.* MESSAGE 00913 M00S00833.cpm +++| STM SDAC 00914 M00S00834.cpm +++| SDA4 LDD CP CONSOLE MESSAGE = * REQUEST *K* DISPLAY.* 00915 M00S00835.cpm +++| ADN MS2W 00916 M00S00836.cpm +++| CWM SDAA,TR 00917 M00S00837.cpm +++| SDAC EQU *-1 00918 M00S00838.cpm +++| SDA5 RJM CKA CHECK ADDRESS 00919 M00S00839.cpm +++| SDA6 CRD CN READ DISPLAY REGISTER 00920 M00S00840.cpm +++| LDD CP STORE DISPLAY REGISTER 00921 M00S00841.cpm +++| ADC DBAW 00922 M00S00842.cpm +++| STD T1 00923 M00S00843.cpm +++| CRD CM PRESERVE SSM STATUS 00924 M00S00844.cpm +++| LDD CN 00925 M00S00845.cpm +++| LMD CM 00926 M00S00846.cpm +++| LPC 2477 00927 M00S00847.cpm +++| LMD CM 00928 M00S00848.cpm +++| STD CN 00929 M00S00849.cpm +++| LDD T1 UPDATE DBAW 00930 M00S00850.cpm +++| CWD CN 00931 M00S00851.cpm +++| LJM CPMX EXIT 00932 M00S00852.cpm +++| 00933 M00S00853.cpm +++| SDAA DATA C+REQUEST *K* DISPLAY.+ 00934 M00S00854.cpm +++| SDAB DATA C+$REQUEST *K* DISPLAY.+ 00935 M00S00855.cpm +++| ROC SPACE 4,20 00936 M00S00856.cpm +++|*** FUNCTION 6. 00937 M00S00857.cpm +++|* ROLLOUT JOB. 00938 M00S00858.cpm +++|* IF PARAMETER .NE 0 PERFORM TIMED/EVENT ROLLOUT WITH 00939 M00S00859.cpm +++|* (RA + PARAMETER) OF FOLLOWING FORMAT - 00940 M00S00860.cpm +++|* 00941 M00S00861.cpm +++|*T 27/ 0,21/ EVENT DESCRIPTOR,12/ TIME
Figure
00942 M00S00862.cpm +++|* 00943 M00S00863.cpm +++|* EVENT DESCRIPTOR FORMAT - 00944 M00S00864.cpm +++|* 00945 M00S00865.cpm +++|* 9/ *EQ* DESCRIPTOR. 00946 M00S00866.cpm +++|* 12/ *EVD* (EVENT CODE) DESCRIPTOR. 00947 M00S00867.cpm +++|* 00948 M00S00868.cpm +++|* IF THE USER ENTERS AN EVENT DESCRIPTOR, THE EVENT TIME 00949 M00S00869.cpm +++|* MUST ALSO BE ENTERED OR A SYSTEM DEFAULT WILL BE USED. 00950 M00S00870.cpm +++|* 00951 M00S00871.cpm +++|* ERROR TO *ERR*. 00952 M00S00872.cpm +++|* 00953 M00S00873.cpm +++|* CALLS CKA. 00954 M00S00874.cpm +++|* 00955 M00S00875.cpm +++|* MACROS MONITOR. 00956 M00S00876.cpm +++| 00957 M00S00877.cpm +++| 00958 M00S00878.cpm +++| ROC ENTRY 00959 M00S00879.cpm +++| LDD IR+3 CHECK IF USER PARAMETERS SPECIFIED 00960 M00S00880.cpm +++| LPN 77 00961 M00S00881.cpm +++| ADD IR+4 00962 M00S00882.cpm +++| ZJN ROC1 IF NO USER PARAMETERS SPECIFIED 00963 M00S00883.cpm +++| 00964 M00S00884.cpm +++|* CHECK USER ROLLOUT PARAMETER WORD. 00965 M00S00885.cpm +++| 00966 M00S00886.cpm +++| RJM CKA SET PARAMETER WORD ADDRESS 00967 M00S00887.cpm +++| CRD CM READ PARAMETER WORD 00968 M00S00888.cpm +++| LDD CP READ TIMED/EVENT CONTROL WORD *TERW* 00969 M00S00889.cpm +++| ADK TERW 00970 M00S00890.cpm +++| CRD CN 00971 M00S00891.cpm +++| LDD CM+2 CHECK USER *EQ* DESCRIPTOR 00972 M00S00892.cpm +++| LPC 777 00973 M00S00893.cpm +++| NJN ROC4 IF NON-SYSTEM EVENT 00974 M00S00894.cpm +++| LDD CM+3 CHECK *EVD* DESCRIPTOR 00975 M00S00895.cpm +++| NJN ROC4 IF SYSTEM EVENT 00976 M00S00896.cpm +++| LDD CM+4 CHECK IF TIME SPECIFIED 00977 M00S00897.cpm +++| NJN ROC5 IF TIMED ROLLOUT 00978 M00S00898.cpm +++| 00979 M00S00899.cpm +++|* PROCESS ZERO PARAMETER WORD ROLLOUT. 00980 M00S00900.cpm +++| 00981 M00S00901.cpm +++| LDD CN+2 CHECK FOR EVENT IN *TERW* 00982 M00S00902.cpm +++| LPN 77 00983 M00S00903.cpm +++| ADD CN+3 00984 M00S00904.cpm +++| ADD CN+4 00985 M00S00905.cpm +++| ZJN ROC1 IF NO EVENT WAITING IN *TERW* 00986 M00S00906.cpm +++| LJM ROC12 ISSUE TIMED/EVENT ROLLOUT 00987 M00S00907.cpm +++| 00988 M00S00908.cpm +++|* ROLLOUT JOB TO JOB SCHEDULER QUEUE. 00989 M00S00909.cpm +++|
| Line S00910 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00990 M01S00910.271l716 ---| ROC1 LDK ROSR SELECT JOB SCHEDULER ROLLOUT 00991 M01S00911.271l716 ---| LJM ROC13 ISSUE ROLLOUT REQUEST
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00912.cpm +++| 00996 M00S00913.cpm +++|* PROCESS ARGUMENT ERROR. 00997 M00S00914.cpm +++| 00998 M00S00915.cpm +++| ROC3 LDC ERAE * CPM - ARGUMENT ERROR.* 00999 M00S00916.cpm +++| LJM ERR PROCESS ERROR 01000 M00S00917.cpm +++| 01001 M00S00918.cpm +++|* PROCESS EVENT ROLLOUT. 01002 M00S00919.cpm +++| 01003 M00S00920.cpm +++| ROC4 LDD CM+2 CHECK *EQ* DESCRIPTOR 01004 M00S00921.cpm +++| SBK /EVENT/EXTM/10000 01005 M00S00922.cpm +++| ZJN ROC6 IF EXTENDED TIME ROLLOUT 01006 M00S00923.cpm +++| LDN ESTP CHECK FOR INCORRECT EST ORDINAL 01007 M00S00924.cpm +++| CRD T0 01008 M00S00925.cpm +++| LDD CM+2 01009 M00S00926.cpm +++| SBD T0+2 01010 M00S00927.cpm +++| PJN ROC3 IF INCORRECT *EQ* DESCRIPTOR 01011 M00S00928.cpm +++| ROC5 UJN ROC7 SET ROLLOUT TIME 01012 M00S00929.cpm +++| 01013 M00S00930.cpm +++|* PROCESS EXTENDED TIME ROLLOUT. 01014 M00S00931.cpm +++| 01015 M00S00932.cpm +++| ROC6 LDD CM+4 SAVE ADD-ON TIME 01016 M00S00933.cpm +++| STD T0 01017 M00S00934.cpm +++| ADD CM+3 01018 M00S00935.cpm +++| ZJN ROC1 IF NO TIMES SPECIFIED 01019 M00S00936.cpm +++| LDD CM+3 SET CYCLE MULTIPLIER 01020 M00S00937.cpm +++| STD CM+4 01021 M00S00938.cpm +++| SHN 0-6 CHECK VALUE 01022 M00S00939.cpm +++| NJN ROC3 IF MULTIPLIER .GT. 77 01023 M00S00940.cpm +++| LDD T0 SET ADD-ON TIME 01024 M00S00941.cpm +++| STD CM+3 01025 M00S00942.cpm +++| NJN ROC9 IF NONZERO 01026 M00S00943.cpm +++| LCN 0 ADJUST ADD-ON TIME FOR *1SJ* 01027 M00S00944.cpm +++| STD CM+3 01028 M00S00945.cpm +++| SOD CM+4 ADJUST CYCLE MULTIPLIER FOR *1SJ* 01029 M00S00946.cpm +++| UJN ROC10 SET TIME AND EVENT 01030 M00S00947.cpm +++| 01031 M00S00948.cpm +++|* SELECT, VALIDATE, AND ADJUST ROLLOUT TIME VALUE. 01032 M00S00949.cpm +++| 01033 M00S00950.cpm +++| ROC7 LDD CM+4 CHECK TIME SPECIFIED 01034 M00S00951.cpm +++| NJN ROC8 IF NONZERO 01035 M00S00952.cpm +++| LDD CN+2 CHECK FOR TIME IN *TERW* 01036 M00S00953.cpm +++| SHN 21-5 01037 M00S00954.cpm +++| SCN 77 01038 M00S00955.cpm +++| LMD CN+3 01039 M00S00956.cpm +++| SHN 0-11 01040 M00S00957.cpm +++| NJN ROC11 IF TIME IN *TERW* 01041 M00S00958.cpm +++| LDK CRT SELECT DEFAULT TIME 01042 M00S00959.cpm +++| UJN ROC10 SET TIME AND EVENT 01043 M00S00960.cpm +++| 01044 M00S00961.cpm +++| ROC8 SHN 0-11 VALIDATE TIME SPECIFIED 01045 M00S00962.cpm +++| ZJN ROC9 IF .LE. 777 01046 M00S00963.cpm +++| LDC 777 SELECT MAXIMUM ROLLOUT TIME 01047 M00S00964.cpm +++| UJN ROC10 SET TIME AND EVENT 01048 M00S00965.cpm +++| 01049 M00S00966.cpm +++| ROC9 LDD CM+4 SELECT TIME SPECIFIED 01050 M00S00967.cpm +++|* UJN ROC10 SET TIME AND EVENT 01051 M00S00968.cpm +++| 01052 M00S00969.cpm +++|* SET ROLLOUT TIME IN *TERW* IMAGE. 01053 M00S00970.cpm +++|* 01054 M00S00971.cpm +++|* (A) = ROLLOUT TIME. 01055 M00S00972.cpm +++| 01056 M00S00973.cpm +++| ROC10 SHN 21-10 INSERT LOWER 3 BITS OF TIME 01057 M00S00974.cpm +++| LMD CN+3 MERGE WITH EVENT DESCRIPTOR 01058 M00S00975.cpm +++| LPC 777000 01059 M00S00976.cpm +++| LMD CN+3 01060 M00S00977.cpm +++| STD CN+3 01061 M00S00978.cpm +++| SHN 5-21 INSERT UPPER 6 BITS OF TIME 01062 M00S00979.cpm +++| LMD CN+2 01063 M00S00980.cpm +++| LPN 77 01064 M00S00981.cpm +++| LMD CN+2 01065 M00S00982.cpm +++| STD CN+2 01066 M00S00983.cpm +++| LDD CM+2 CHECK FOR A NEW EVENT DESCRIPTOR 01067 M00S00984.cpm +++| ADD CM+3
| Line S00985 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01068 M01S00985.271l716 ---| ZJN ROC11.1 IF NO EVENT SPECIFIED
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01069 M01S00006.271l716 +++| ZJN ROC12 IF NO EVENT SPECIFIED 01070 M00S00986.cpm +++|
| Line S00987 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01071 M01S00987.271l716 ---|* SET ROLLOUT EVENT IN *TERW*.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01072 M01S00007.271l716 +++|* SET ROLLOUT EVENT. 01073 M00S00988.cpm +++| 01074 M00S00989.cpm +++| ROC11 LDD CN+3 SET *EQ* DESCRIPTOR 01075 M00S00990.cpm +++| LPC 7000 01076 M00S00991.cpm +++| LMD CM+2 01077 M00S00992.cpm +++| STD CN+3 01078 M00S00993.cpm +++| LDD CM+3 SET *EVD* DESCRIPTOR 01079 M00S00994.cpm +++| STD CN+4
| Line S00995 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01080 M01S00995.271l716 ---| ROC11.1 LDD CP REWRITE *TERW* 01081 M01S00996.271l716 ---| ADK TERW 01082 M01S00997.271l716 ---| CWD CN
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00998.cpm +++| 01095 M00S00999.cpm +++|* ROLLOUT JOB TO TIMED/EVENT QUEUE. 01096 M00S01000.cpm +++|
| Line S01001 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01097 M01S01001.271l716 ---| ROC12 LDN ROTE SELECT TIMED/EVENT ROLLOUT 01098 M01S01002.271l716 ---|* UJN ROC13 ISSUE ROLLOUT REQUEST
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01099 M01S00019.271l716 +++| LDK ROTE SELECT TIMED/EVENT ROLLOUT OPTION 01100 M00S01003.cpm +++| 01101 M00S01004.cpm +++|* ISSUE MONITOR REQUEST TO ROLLOUT JOB. 01102 M00S01005.cpm +++|* 01103 M00S01006.cpm +++|* (A) = ROLLOUT OPTION. 01104 M00S01007.cpm +++| 01105 M00S01008.cpm +++| ROC13 STD CM+1 SET REQUEST OPTION 01106 M00S01009.cpm +++| MONITOR ROCM ISSUE MONITOR REQUEST 01107 M00S01010.cpm +++| LJM CPMX EXIT 01108 M00S01011.cpm +++| NEX SPACE 4,10 01109 M00S01012.cpm +++|*** FUNCTION 7. 01110 M00S01013.cpm +++|* NOEXIT. 01111 M00S01014.cpm +++|* SUPPRESS PROCESSING OF *EXIT* COMMAND IF JOB ABORTS. 01112 M00S01015.cpm +++|* ONEXIT. 01113 M00S01016.cpm +++|* RESET PROCESSING OF *EXIT* COMMAND. 01114 M00S01017.cpm +++| 01115 M00S01018.cpm +++| 01116 M00S01019.cpm +++| NEX ENTRY 01117 M00S01020.cpm +++| LDD CP READ ENTRY/EXIT CONTROL 01118 M00S01021.cpm +++| ADN EECW 01119 M00S01022.cpm +++| CRD CM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | cpm31 |
Seq # *Modification Id* Act ----------------------------+ 01120 M01S00001.cpm31 +++| LDD CM ENSURE *NOEXIT* FLAG CLEAR 01121 M01S00002.cpm31 +++| LPC 3777 01122 M01S00003.cpm31 +++| STD CM 01123 M00S01023.cpm +++| LDD IR+4 CHECK INPUT PARAMETER 01124 M00S01024.cpm +++| ZJN NEX1 IF ONEXIT
| Line S01025 Modification History | |
|---|---|
M01 (Removed by) | cpm31 |
Seq # *Modification Id* Act ----------------------------+ 01125 M01S01025.cpm31 ---| LDC 4000 SET -NOEXIT- FLAG 01126 M01S01026.cpm31 ---| NEX1 STD CM
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | cpm31 |
Seq # *Modification Id* Act ----------------------------+ 01127 M01S00004.cpm31 +++| LDC 4000 SET *NOEXIT* FLAG 01128 M01S00005.cpm31 +++| NEX1 RAD CM 01129 M00S01027.cpm +++| LDD CP STORE ENTRY/EXIT CONTROL 01130 M00S01028.cpm +++| ADN EECW 01131 M00S01029.cpm +++| CWD CM 01132 M00S01030.cpm +++| LJM CPMX EXIT 01133 M00S01031.cpm +++| SSM SPACE 4,10 01134 M00S01032.cpm +++|*** FUNCTION 10. 01135 M00S01033.cpm +++|* SET/CLEAR SECURE SYSTEM MEMORY FLAG. 01136 M00S01034.cpm +++| 01137 M00S01035.cpm +++| 01138 M00S01036.cpm +++| SSM ENTRY 01139 M00S01037.cpm +++| LDD CP READ CP AREA WORD *DBAW* 01140 M00S01038.cpm +++| ADC DBAW 01141 M00S01039.cpm +++| STD T2 01142 M00S01040.cpm +++| CRD CN 01143 M00S01041.cpm +++| LDD IR+4 CHECK OPTION 01144 M00S01042.cpm +++| NJN SSM1 IF SET REQUEST 01145 M00S01043.cpm +++| STM SSMA 01146 M00S01044.cpm +++| LDD EP 01147 M00S01045.cpm +++| LPN 1 01148 M00S01046.cpm +++| ZJN SSM1 IF NOT SSM= 01149 M00S01047.cpm +++| ABORT ERIR * CPM - INCORRECT REQUEST.* 01150 M00S01048.cpm +++| 01151 M00S01049.cpm +++| SSM1 LDD CN SET/CLEAR SECURE SYSTEM MEMORY BIT 01152 M00S01050.cpm +++| LPC 3777 01153 M00S01051.cpm +++| LMC 4000 01154 M00S01052.cpm +++|* LMC 0 01155 M00S01053.cpm +++| SSMA EQU *-1 01156 M00S01054.cpm +++| STD CN WRITE *DBAW* 01157 M00S01055.cpm +++| LDD T2 01158 M00S01056.cpm +++| CWD CN 01159 M00S01057.cpm +++| LJM CPMX EXIT 01160 M00S01058.cpm +++| ONS SPACE 4,10 01161 M00S01059.cpm +++|*** FUNCTION 11. 01162 M00S01060.cpm +++|* TURN ON SENSE SWITCHES FOR BITS 0 - 5 IN PARAMETER. 01163 M00S01061.cpm +++| 01164 M00S01062.cpm +++| 01165 M00S01063.cpm +++| ONS ENTRY 01166 M00S01064.cpm +++| LDD IR+4 SET SWITCH BITS 01167 M00S01065.cpm +++| SHN 6 01168 M00S01066.cpm +++| STD T1 01169 M00S01067.cpm +++| ONS1 LDD IR+4 FORM SWITCH MASK 01170 M00S01068.cpm +++| LPN 77 01171 M00S01069.cpm +++| SHN 6 01172 M00S01070.cpm +++| LMC -0 01173 M00S01071.cpm +++| STM ONSA 01174 M00S01072.cpm +++| LDD CP READ SWITCH WORD 01175 M00S01073.cpm +++| ADN SNSW 01176 M00S01074.cpm +++| CRD CM 01177 M00S01075.cpm +++| LDD CM+4 CLEAR/SET SENSE SWITCHES 01178 M00S01076.cpm +++| LPC * 01179 M00S01077.cpm +++| ONSA EQU *-1 01180 M00S01078.cpm +++| LMD T1 01181 M00S01079.cpm +++| STD CM+4 01182 M00S01080.cpm +++| LDD CP STORE SWITCH WORD 01183 M00S01081.cpm +++| ADN SNSW 01184 M00S01082.cpm +++| CWD CM 01185 M00S01083.cpm +++| LDD RA STORE SWITCHES IN (RA) 01186 M00S01084.cpm +++| SHN 6 01187 M00S01085.cpm +++| CRD CN READ (RA) 01188 M00S01086.cpm +++| LDD CN+4 SET NEW SENSE SWITCHES 01189 M00S01087.cpm +++| LMD CM+4 01190 M00S01088.cpm +++| LPN 77 01191 M00S01089.cpm +++| LMD CM+4 01192 M00S01090.cpm +++| STD CN+4 01193 M00S01091.cpm +++| LDD RA STORE (RA) 01194 M00S01092.cpm +++| SHN 6 01195 M00S01093.cpm +++| CWD CN 01196 M00S01094.cpm +++| LJM CPMX EXIT 01197 M00S01095.cpm +++| OFS SPACE 4,10 01198 M00S01096.cpm +++|*** FUNCTION 12. 01199 M00S01097.cpm +++|* TURN OFF SENSE SWITCHES FOR BITS 0 - 5 IN PARAMETER. 01200 M00S01098.cpm +++| 01201 M00S01099.cpm +++| 01202 M00S01100.cpm +++| OFS ENTRY 01203 M00S01101.cpm +++| LDN 0 CLEAR SWITCH BITS 01204 M00S01102.cpm +++| STD T1 01205 M00S01103.cpm +++| LJM ONS1 01206 M00S01104.cpm +++| RJN SPACE 4,10 01207 M00S01105.cpm +++|*** FUNCTION 13. 01208 M00S01106.cpm +++|* READ JSN TO (PARAMETER). 01209 M00S01107.cpm +++|* 01210 M00S01108.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS OF PARAMETER WORD. 01211 M00S01109.cpm +++|* 01212 M00S01110.cpm +++|* EXIT JOB SEQUENCE NUMBER RETURNED IN FORMAT - 01213 M00S01111.cpm +++|*T ADDR 24/ JSN, 36/ 0
Figure ADDR
01214 M00S01112.cpm +++| 01215 M00S01113.cpm +++| 01216 M00S01114.cpm +++| RJN ENTRY 01217 M00S01115.cpm +++| LDD CP GET JOB EJT ORDINAL 01218 M00S01116.cpm +++| ADN TFSW 01219 M00S01117.cpm +++| CRD CM 01220 M00S01118.cpm +++| SFA EJT,CM GET JSN 01221 M00S01119.cpm +++| ERRNZ JSNE CHECK IF WORD 0 IF EJT ENTRY 01222 M00S01120.cpm +++| CRD CM 01223 M00S01121.cpm +++| LDN ZERL 01224 M00S01122.cpm +++| CRD CM+2 01225 M00S01123.cpm +++| UJN RPR1 RETURN JSN 01226 M00S01124.cpm +++| RPR SPACE 4,10 01227 M00S01125.cpm +++|*** FUNCTION 15. 01228 M00S01126.cpm +++|* READ CPU PRIORITY TO (PARAMETER).
| Line S01127 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01229 M01S01127.271l750 ---|* 01230 M01S01128.271l750 ---|* ENTRY (CN - CN+4) = *JCIW*. 01231 M00S01129.cpm +++| 01232 M00S01130.cpm +++| 01233 M00S01131.cpm +++| RPR ENTRY 01234 M00S01132.cpm +++| LDN ZERL 01235 M00S01133.cpm +++| CRD CM
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01236 M01S00027.271l750 +++| LDD CP 01237 M01S00028.271l750 +++| ADN CWQW GET CPU PRIORITY 01238 M01S00029.271l750 +++| CRD CN 01239 M00S01134.cpm +++| LDD CN GET JOB CPU PRIORITY
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01240 M01S00030.271l750 +++| SHN -3 01241 M01S00031.271l750 +++| LPC 177 01242 M00S01135.cpm +++| STD CM+4 01243 M00S01136.cpm +++| RPR1 RJM CKA CHECK PARAMETER ADDRESS 01244 M00S01137.cpm +++| CWD CM STORE RESPONSE 01245 M00S01138.cpm +++| LJM CPMX EXIT 01246 M00S01139.cpm +++| EDI SPACE 4,10 01247 M00S01140.cpm +++|*** FUNCTION 20. 01248 M00S01141.cpm +++|* ENTER DEMAND FILE RANDOM INDEX. 01249 M00S01142.cpm +++|* 01250 M00S01143.cpm +++|* ENTRY (IR+3 - IR+4) = DEMAND FILE RANDOM INDEX. 01251 M00S01144.cpm +++|* 01252 M00S01145.cpm +++|* CALLER MUST HAVE SSJ= ENTRY POINT SET. 01253 M00S01146.cpm +++| 01254 M00S01147.cpm +++| 01255 M00S01148.cpm +++| EDI ENTRY 01256 M00S01149.cpm +++| LDD CP READ DEMAND FILE INDEX WORD 01257 M00S01150.cpm +++| ADN RFCW 01258 M00S01151.cpm +++| CRD CN 01259 M00S01152.cpm +++| LDD IR+3 01260 M00S01153.cpm +++| LMD CN+3 01261 M00S01154.cpm +++| LPN 77 01262 M00S01155.cpm +++| LMD CN+3 01263 M00S01156.cpm +++| STD CN+3 01264 M00S01157.cpm +++| LDD IR+4 01265 M00S01158.cpm +++| STD CN+4 01266 M00S01159.cpm +++| LDD CP UPDATE DEMAND FILE INDEX WORD 01267 M00S01160.cpm +++| ADN RFCW 01268 M00S01161.cpm +++| CWD CN 01269 M00S01162.cpm +++| LJM CPMX RETURN 01270 M00S01163.cpm +++| SLC SPACE 4,10 01271 M00S01164.cpm +++|*** FUNCTION 22. 01272 M00S01165.cpm +++|* SET LOADER CONTROL WORD. 01273 M00S01166.cpm +++| 01274 M00S01167.cpm +++| 01275 M00S01168.cpm +++| SLC ENTRY 01276 M00S01169.cpm +++| RJM CKA CHECK ADDRESS 01277 M00S01170.cpm +++| CRD CM READ CONTROL WORD 01278 M00S01171.cpm +++| LDD CP STORE CONTROL WORD 01279 M00S01172.cpm +++| ADC LB1W 01280 M00S01173.cpm +++| CWD CM 01281 M00S01174.cpm +++| LJM CPMX EXIT 01282 M00S01175.cpm +++| RFL SPACE 4,10 01283 M00S01176.cpm +++|*** FUNCTION 23. 01284 M00S01177.cpm +++|* SET LAST RFL = PARAMETER. 01285 M00S01178.cpm +++|* 01286 M00S01179.cpm +++|* ENTRY (IR+3, IR+4) = RFL REQUEST. 01287 M00S01180.cpm +++|* BIT 2**11 IN IR+3 IS SET FOR EXTENDED MEMORY REQUEST 01288 M00S01181.cpm +++|* AND ZERO FOR CM REQUEST. EXTENDED MEMORY REQUESTS 01289 M00S01182.cpm +++|* ARE MULTIPLES OF 1000B. 01290 M00S01183.cpm +++| 01291 M00S01184.cpm +++| 01292 M00S01185.cpm +++| RFL ENTRY 01293 M00S01186.cpm +++| RJM PMP PROCESS ARGUMENT 01294 M00S01187.cpm +++| STD CM+1 SET NFL 01295 M00S01188.cpm +++| LDD CM 01296 M00S01189.cpm +++| SBD CM+1 01297 M00S01190.cpm +++| MJN RFL1 IF NFL .GT. MFL 01298 M00S01191.cpm +++| LDD T7 WRITE FL CONTROL WORD 01299 M00S01192.cpm +++| CWD CM 01300 M00S01193.cpm +++| LJM CPMX EXIT 01301 M00S01194.cpm +++| 01302 M00S01195.cpm +++| RFL1 ABORT ERFL * RFL BEYOND MFL.* 01303 M00S01196.cpm +++| SSB SPACE 4,10 01304 M00S01197.cpm +++|*** FUNCTION 26. 01305 M00S01198.cpm +++|* SET SUBSYSTEM FLAG = PARAMETER. 01306 M00S01199.cpm +++| 01307 M00S01200.cpm +++| 01308 M00S01201.cpm +++| SSB ENTRY 01309 M00S01202.cpm +++| LDD IR+3 CHECK SUBSYSTEM INDEX 01310 M00S01203.cpm +++| NJN SSB1 IF INCORRECT PARAMETER 01311 M00S01204.cpm +++| LDD IR+4 01312 M00S01205.cpm +++| SBN MSYS 01313 M00S01206.cpm +++| PJN SSB1 IF INCORRECT SUBSYSTEM 01314 M00S01207.cpm +++| ADN MSYS 01315 M00S01208.cpm +++| RJM SSF SET SUBSYSTEM FLAG 01316 M00S01209.cpm +++| MJN SSB2 IF NOT VALIDATED 01317 M00S01210.cpm +++| LJM CPMX RETURN 01318 M00S01211.cpm +++| 01319 M00S01212.cpm +++| SSB1 ABORT ERAE * CPM ARGUMENT ERROR.* 01320 M00S01213.cpm +++| 01321 M00S01214.cpm +++| SSB2 ABORT ERIU * CPM - USER ACCESS NOT VALID.* 01322 M00S01215.cpm +++| ROT SPACE 4,10 01323 M00S01216.cpm +++|*** FUNCTION 27. 01324 M00S01217.cpm +++|* READ ORIGIN TYPE TO (PARAMETER). 01325 M00S01218.cpm +++|* 01326 M00S01219.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS OF PARAMETER WORD. 01327 M00S01220.cpm +++|* 01328 M00S01221.cpm +++|* EXIT JOB ORIGIN TYPE (OT) RETURNED IN FORMAT - 01329 M00S01222.cpm +++|*T ADDR 54/0, 6/OT
Figure ADDR
01330 M00S01223.cpm +++| 01331 M00S01224.cpm +++| 01332 M00S01225.cpm +++| ROT ENTRY 01333 M00S01226.cpm +++| ROT1 LDD CP GET JOB EJT ORDINAL 01334 M00S01227.cpm +++| ADN TFSW 01335 M00S01228.cpm +++| CRD CM 01336 M00S01229.cpm +++| SFA EJT,CM SET ORIGIN TYPE 01337 M00S01230.cpm +++| ADN SCLE 01338 M00S01231.cpm +++| CRD CM 01339 M00S01232.cpm +++| LDD CM 01340 M00S01233.cpm +++| LPN 17 MASK ORIGIN TYPE 01341 M00S01234.cpm +++|* SCN 60 USED BY FUNCTION 111 01342 M00S01235.cpm +++| ROTA EQU *-1 01343 M00S01236.cpm +++| STD CM+4 01344 M00S01237.cpm +++| LDN ZERL 01345 M00S01238.cpm +++| CRD CM-1 01346 M00S01239.cpm +++| RJM CKA CHECK ADDRESS 01347 M00S01240.cpm +++| CWD CM STORE ORIGIN TYPE 01348 M00S01241.cpm +++| LJM CPMX EXIT 01349 M00S01242.cpm +++| SCP SPACE 4,10 01350 M00S01243.cpm +++|*** FUNCTION 31. 01351 M00S01244.cpm +++|* SELECT CPU(S) ALLOWABLE FOR JOB TO USE. 01352 M00S01245.cpm +++|* PARAM = 0, RUN JOB IN ANY CPU. 01353 M00S01246.cpm +++|* PARAM = 1,RUN JOB IN CPU - 0 ONLY. (6600 CPU ON 6700) 01354 M00S01247.cpm +++|* PARAM = 2, RUN JOB IN CPU - 1 ONLY. 01355 M00S01248.cpm +++|* IF THE CPU SELECTED IS NOT AVAILABLE, THEN NO SELECTION 01356 M00S01249.cpm +++|* IS PERFORMED, AND THE JOB IS ALLOWED TO CONTINUE.
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01250.cpm +++| 01362 M00S01251.cpm +++| 01363 M00S01252.cpm +++| SCP ENTRY
| Line S01253 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01364 M01S01253.271l750 ---| LDN CPUS SELECT CPU(S) ALLOWABLE FOR JOB EXECUTION
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01254.cpm +++| STD CM+1 01381 M00S01255.cpm +++| LDD IR+4 CHECK LEGAL CPU SELECTION 01382 M00S01256.cpm +++| STD CM+4 01383 M00S01257.cpm +++| SBN 3
| Line S01258 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01384 M01S01258.271l750 ---| PJN SCP1 IF INCORRECT REQUEST
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01385 M01S00051.271l750 +++| PJN SCP3 IF INCORRECT REQUEST 01386 M00S01259.cpm +++| MONITOR SJCM
| Line S01260 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01387 M01S01260.271l750 ---| LJM CPMX EXIT
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01388 M01S00052.271l750 +++| SCP2 LJM CPMX EXIT 01389 M00S01261.cpm +++|
| Line S01262 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01390 M01S01262.271l750 ---| SCP1 ABORT ERAE * CPM - ARGUMENT ERROR.*
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01263.cpm +++| EET SPACE 4,10 01398 M00S01264.cpm +++|*** FUNCTION 34. 01399 M00S01265.cpm +++|* ENTER EVENT IN SYSTEM EVENT TABLE. 01400 M00S01266.cpm +++| 01401 M00S01267.cpm +++| 01402 M00S01268.cpm +++| EET ENTRY 01403 M00S01269.cpm +++| LDN 0 01404 M00S01270.cpm +++| STD CM+1 01405 M00S01271.cpm +++| LDD IR+3 01406 M00S01272.cpm +++| STD CM+3 01407 M00S01273.cpm +++| LDD IR+4 01408 M00S01274.cpm +++| STD CM+4 01409 M00S01275.cpm +++| MONITOR EATM ENTER EVENT 01410 M00S01276.cpm +++| LDD CM+1 01411 M00S01277.cpm +++| NJP RCL IF EVENT TABLE IS FULL 01412 M00S01278.cpm +++| LJM CPMX RETURN 01413 M00S01279.cpm +++| SPN SPACE 4,10 01414 M00S01280.cpm +++|*** FUNCTION 35. 01415 M00S01281.cpm +++|* SET PACKNAME AND PACK TYPE. 01416 M00S01282.cpm +++|* 01417 M00S01283.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS OF PACKNAME PARAMETER WORD. 01418 M00S01284.cpm +++|* 01419 M00S01285.cpm +++|*T ADDR 42/NAME,18/TYPE
Figure ADDR
01420 M00S01286.cpm +++|* WHERE *NAME* IS A LEFT-JUSTIFIED PACKNAME WITH ZERO FILL, 01421 M00S01287.cpm +++|* AND *TYPE* IS A DISPLAY CODE PACK TYPE (E.G. *DI3*). 01422 M00S01288.cpm +++| 01423 M00S01289.cpm +++| 01424 M00S01290.cpm +++| SPN ENTRY 01425 M00S01291.cpm +++| RJM CKA CHECK ADDRESS 01426 M00S01292.cpm +++| CRD FN READ UP PACK NAME 01427 M00S01293.cpm +++| LDD FN+3 01428 M00S01294.cpm +++| SCN 77 01429 M00S01295.cpm +++| ADD FN+2 01430 M00S01296.cpm +++| ADD FN+1 01431 M00S01297.cpm +++| ADD FN 01432 M00S01298.cpm +++| ZJN SPN2 IF NO PACK NAME 01433 M00S01299.cpm +++| RJM VFN VERIFY PACK NAME 01434 M00S01300.cpm +++| NJN SPN3 IF LEGAL PACK NAME 01435 M00S01301.cpm +++| SPN1 ABORT ERPN * CPM - INCORRECT PACK NAME.* 01436 M00S01302.cpm +++| 01437 M00S01303.cpm +++| SPN2 LDN ZERL CLEAR PACK TYPE 01438 M00S01304.cpm +++| CRD FN 01439 M00S01305.cpm +++| SPN3 LDD FN+3 VERIFY PACK TYPE 01440 M00S01306.cpm +++| LPN 77 01441 M00S01307.cpm +++| SHN 14 01442 M00S01308.cpm +++| ADD FN+4 01443 M00S01309.cpm +++| ZJN SPN4 IF PACK TYPE NOT SPECIFIED 01444 M00S01310.cpm +++| LPN 77 CHECK NUMBER OF SPINDLES 01445 M00S01311.cpm +++| SBN 1R0 01446 M00S01312.cpm +++| MJN SPN1 IF LAST CHARACTER NOT NUMERIC 01447 M00S01313.cpm +++| SBN 1R9-1R0+1 01448 M00S01314.cpm +++| PJN SPN1 IF LAST CHARACTER NOT NUMERIC 01449 M00S01315.cpm +++| LDD FN+4 01450 M00S01316.cpm +++| SHN -6 01451 M00S01317.cpm +++| ZJN SPN1 IF SECOND CHARACTER MISSING 01452 M00S01318.cpm +++| SBN 1R0 01453 M00S01319.cpm +++| PJN SPN1 IF SECOND CHARACTER NOT ALPHABETIC 01454 M00S01320.cpm +++| LDD FN+3 01455 M00S01321.cpm +++| LPN 77 01456 M00S01322.cpm +++| ZJN SPN1 IF FIRST CHARACTER MISSING 01457 M00S01323.cpm +++| SBN 1R0 01458 M00S01324.cpm +++| PJN SPN1 IF FIRST CHARACTER NOT ALPHABETIC 01459 M00S01325.cpm +++| 01460 M00S01326.cpm +++|* ENTER PACK NAME AND TYPE INTO CONTROL POINT AREA. 01461 M00S01327.cpm +++| 01462 M00S01328.cpm +++| SPN4 LDD CP 01463 M00S01329.cpm +++| ADC PKNW 01464 M00S01330.cpm +++| CWD FN 01465 M00S01331.cpm +++| 01466 M00S01332.cpm +++|* ISSUE ACCOUNT FILE MESSAGE. 01467 M00S01333.cpm +++| 01468 M00S01334.cpm +++| LDC SPNA+2 01469 M00S01335.cpm +++| STD T1 01470 M00S01336.cpm +++| LDD FN 01471 M00S01337.cpm +++| ZJN SPN5 IF PACKNAME NOT SPECIFIED 01472 M00S01338.cpm +++| LDN 0 SET EOL ON PACKNAME 01473 M00S01339.cpm +++| STD FN+4 01474 M00S01340.cpm +++| LDD FN+3 01475 M00S01341.cpm +++| SCN 77 01476 M00S01342.cpm +++| STD FN+3 01477 M00S01343.cpm +++| LDC =C*, * ADD COMMA TO MESSAGE 01478 M00S01344.cpm +++| RJM ACS 01479 M00S01345.cpm +++| LDN FN SET PACKNAME IN MESSAGE 01480 M00S01346.cpm +++| RJM ACS 01481 M00S01347.cpm +++| SPN5 LDC =C*.* TERMINATE MESSAGE 01482 M00S01348.cpm +++| RJM ACS 01483 M00S01349.cpm +++| LDC SPNA+ACFN 01484 M00S01350.cpm +++| RJM DFM ISSUE MESSAGE TO ACCOUNT FILE 01485 M00S01351.cpm +++| LJM CPMX EXIT 01486 M00S01352.cpm +++| 01487 M00S01353.cpm +++| 01488 M00S01354.cpm +++| SPNA DATA C*APPN* 01489 M00S01355.cpm +++| BSSZ 6 01490 M00S01356.cpm +++| RPN SPACE 4,10 01491 M00S01357.cpm +++|*** FUNCTION 36. 01492 M00S01358.cpm +++|* RETURN PACKNAME AND PACK TYPE. 01493 M00S01359.cpm +++|* 01494 M00S01360.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS TO RETURN PACKNAME TO. 01495 M00S01361.cpm +++|* 01496 M00S01362.cpm +++|* EXIT CURRENT CONTROL POINT VALUE RETURNED IN FORMAT - 01497 M00S01363.cpm +++|* 01498 M00S01364.cpm +++|*T ADDR 42/ PACK NAME,18/ PACK TYPE
Figure ADDR
01499 M00S01365.cpm +++| 01500 M00S01366.cpm +++| 01501 M00S01367.cpm +++| 01502 M00S01368.cpm +++| RPN ENTRY 01503 M00S01369.cpm +++| LDD CP RETURN PACKNAME AND PACK TYPE 01504 M00S01370.cpm +++| ADC PKNW 01505 M00S01371.cpm +++| CRD CM 01506 M00S01372.cpm +++| RJM CKA CHECK ADDRESS 01507 M00S01373.cpm +++| CWD CM 01508 M00S01374.cpm +++| LJM CPMX EXIT 01509 M00S01375.cpm +++| RVN SPACE 4,15 01510 M00S01376.cpm +++|*** FUNCTION 44. 01511 M00S01377.cpm +++|* RETURN VERSION NAME. 01512 M00S01378.cpm +++|* 01513 M00S01379.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS OF PARAMETER WORD. 01514 M00S01380.cpm +++|* 01515 M00S01381.cpm +++|*T ADDR 1/ F, 11/ BC, 12/ SB, 12/ BP, 6/ 0, 18/ WADDR
Figure ADDR
01516 M00S01382.cpm +++|* 01517 M00S01383.cpm +++|* F = 0, TO RETURN VERSION NAME (*SVNL*) FROM SOURCE FIELD. 01518 M00S01384.cpm +++|* = 1, TO RETURN VERSION NAME(*SVNL*) AND SYSTEM TITLE LINE 01519 M00S01385.cpm +++|* (*SYTL*) FROM SOURCE FIELD. 01520 M00S01386.cpm +++|* 01521 M00S01387.cpm +++|* BC = NUMBER OF BYTES TO RETURN FROM SOURCE FIELD. 01522 M00S01388.cpm +++|* IF F=0, 1 - 10D BYTES. 01523 M00S01389.cpm +++|* IF F=1, 1 - 30D BYTES. 01524 M00S01390.cpm +++|* 01525 M00S01391.cpm +++|* SB = BYTE IN SOURCE FIELD AT WHICH TO BEGIN TRANSFER. 01526 M00S01392.cpm +++|* IF F=0, BYTE 0 - 9D. (BC + SB .LT. 11D) 01527 M00S01393.cpm +++|* IF F=1, BYTE 0 - 29D. (BC + SB .LT. 31D) 01528 M00S01394.cpm +++|* 01529 M00S01395.cpm +++|* BP = BYTE POSITION WITHIN RECEIVING FIELD (WADDR) AT 01530 M00S01396.cpm +++|* WHICH TO BEGIN TRANSFER. (BYTE 0 - 4) 01531 M00S01397.cpm +++|* 01532 M00S01398.cpm +++|* WADDR = BEGINNING ADDRESS OF BLOCK TO RECEIVE DATA. 01533 M00S01399.cpm +++|* 01534 M00S01400.cpm +++|* EXIT IF F=0, VERSION NAME IS TRANSFERRED FROM CMR TO 01535 M00S01401.cpm +++|* SPECIFIED ADDRESS. 01536 M00S01402.cpm +++|* IF F=1, SYSTEM TITLE LINE AND VERSION NAME ARE BOTH 01537 M00S01403.cpm +++|* TRANSFERRED FROM CMR TO SPECIFIED ADDRESS. 01538 M00S01404.cpm +++| 01539 M00S01405.cpm +++| 01540 M00S01406.cpm +++| RVN ENTRY 01541 M00S01407.cpm +++| RJM CKA READ PARAMETER WORD 01542 M00S01408.cpm +++| CRD CM 01543 M00S01409.cpm +++| LDN 2 01544 M00S01410.cpm +++| STD T1 SAVE WORD COUNT 01545 M00S01411.cpm +++| LDD CM 01546 M00S01412.cpm +++| SHN 21-13 01547 M00S01413.cpm +++| PJN RVN1 IF FLAG NOT SET 01548 M00S01414.cpm +++| LDN 6 01549 M00S01415.cpm +++| STD T1 SAVE WORD COUNT 01550 M00S01416.cpm +++| RVN1 LDD CM+3 VALIDATE RETURN ADDRESS 01551 M00S01417.cpm +++| LPN 77 01552 M00S01418.cpm +++| STD CM+3 01553 M00S01419.cpm +++| SHN 14 01554 M00S01420.cpm +++| LMD CM+4 01555 M00S01421.cpm +++| MJN RVN2 IF ADDRESS OUT OF RANGE 01556 M00S01422.cpm +++| ADD T1 ADD WORD COUNT 01557 M00S01423.cpm +++| SHN -6 01558 M00S01424.cpm +++| SBD FL 01559 M00S01425.cpm +++| MJN RVN3 IF .LT. FL - WORD COUNT 01560 M00S01426.cpm +++| RVN2 ABORT ERAE * CPM - ARGUMENT ERROR.* 01561 M00S01427.cpm +++| 01562 M00S01428.cpm +++| RVN3 LDD CM+2 VALIDATE BYTE POSITION 01563 M00S01429.cpm +++| SBN 5 01564 M00S01430.cpm +++| PJN RVN2 IF INCORRECT BYTE POSITION 01565 M00S01431.cpm +++| LDD CM VALIDATE BYTE COUNT 01566 M00S01432.cpm +++| SHN 21-13 01567 M00S01433.cpm +++| MJN RVN4 IF FLAG SET 01568 M00S01434.cpm +++| SHN 13-21 01569 M00S01435.cpm +++| ZJN RVN2 IF INCORRECT BYTE COUNT 01570 M00S01436.cpm +++| SBN 11D 01571 M00S01437.cpm +++| PJN RVN2 IF INCORRECT BYTE COUNT 01572 M00S01438.cpm +++| LDD CM 01573 M00S01439.cpm +++| ADD CM+1 01574 M00S01440.cpm +++| SBN 11D 01575 M00S01441.cpm +++| PJN RVN2 IF INCORRECT COMBINATION 01576 M00S01442.cpm +++| LDN SVNL 01577 M00S01443.cpm +++| UJN RVN5 READ VERSION NAME 01578 M00S01444.cpm +++| 01579 M00S01445.cpm +++| RVN4 SHN 13-21 01580 M00S01446.cpm +++| LPC 3777 CLEAR FLAG 01581 M00S01447.cpm +++| STD CM 01582 M00S01448.cpm +++| ZJN RVN2 IF INCORRECT BYTE COUNT 01583 M00S01449.cpm +++| SBN 31D 01584 M00S01450.cpm +++| PJN RVN2 IF INCORRECT BYTE COUNT 01585 M00S01451.cpm +++| LDD CM 01586 M00S01452.cpm +++| ADD CM+1 01587 M00S01453.cpm +++| SBN 31D 01588 M00S01454.cpm +++| PJP RVN2 IF INCORRECT COMBINATION 01589 M00S01455.cpm +++| LDN SYTL READ SYSTEM TITLE AND VERSION NAME 01590 M00S01456.cpm +++| RVN5 CRM RVNA,T1 01591 M00S01457.cpm +++| AOD T1 01592 M00S01458.cpm +++| LDD CM+3 READ RETURN FIELD 01593 M00S01459.cpm +++| SHN 6 01594 M00S01460.cpm +++| ADD RA 01595 M00S01461.cpm +++| SHN 6 01596 M00S01462.cpm +++| ADD CM+4 01597 M00S01463.cpm +++| CRM RVNB,T1 01598 M00S01464.cpm +++| 01599 M00S01465.cpm +++|* MERGE VERSION NAME WITH RETURN FIELD. 01600 M00S01466.cpm +++| 01601 M00S01467.cpm +++| RVN6 SOD CM DECREMENT BYTE COUNT 01602 M00S01468.cpm +++| MJN RVN10 IF MERGE COMPLETE 01603 M00S01469.cpm +++| LDM RVNA,CM+1 CHECK FOR ZERO CHARACTERS 01604 M00S01470.cpm +++| STM RVNB,CM+2 01605 M00S01471.cpm +++| ZJN RVN7 IF ZERO BYTE 01606 M00S01472.cpm +++| LPN 77 01607 M00S01473.cpm +++| NJN RVN9 IF NO ZERO CHARACTER 01608 M00S01474.cpm +++| LDM RVNA,CM+1 BLANK FILL ZERO CHARACTERS 01609 M00S01475.cpm +++| LMN 1R 01610 M00S01476.cpm +++| UJN RVN8 CONTINUE 01611 M00S01477.cpm +++| 01612 M00S01478.cpm +++| RVN7 LDC 2R BLANK FILL ZERO CHARACTERS 01613 M00S01479.cpm +++| RVN8 STM RVNB,CM+2 01614 M00S01480.cpm +++| RVN9 AOD CM+1 INCREMENT INDICES 01615 M00S01481.cpm +++| AOD CM+2 01616 M00S01482.cpm +++| UJN RVN6 CHECK NEXT BYTE 01617 M00S01483.cpm +++| 01618 M00S01484.cpm +++|* REWRITE MERGED RETURN FIELD. 01619 M00S01485.cpm +++| 01620 M00S01486.cpm +++| RVN10 LDD CM+3 01621 M00S01487.cpm +++| SHN 6 01622 M00S01488.cpm +++| ADD RA 01623 M00S01489.cpm +++| SHN 6 01624 M00S01490.cpm +++| ADD CM+4 01625 M00S01491.cpm +++| CWM RVNB,T1 01626 M00S01492.cpm +++| LJM CPMX RETURN 01627 M00S01493.cpm +++| RAC SPACE 4,30 01628 M00S01494.cpm +++|*** FUNCTION 51. 01629 M00S01495.cpm +++|* RETURN JOB ACTIVITY INFORMATION. 01630 M00S01496.cpm +++|* 01631 M00S01497.cpm +++|* ENTRY (IR+3 - IR+4) = ADDRESS FOR RETURN OF A ONE WORD 01632 M00S01498.cpm +++|* REPLY BLOCK. 01633 M00S01499.cpm +++|* 01634 M00S01500.cpm +++|* EXIT PARAMETER BLOCK RETURNED IN THE FOLLOWING FORMAT. 01635 M00S01501.cpm +++|* 01636 M00S01502.cpm +++|*T ADDR 12/SHORT , 1/L , 23/0 , 12/INS , 12/0
Figure ADDR
01637 M00S01503.cpm +++|* 01638 M00S01504.cpm +++|* SHORT SHORT TERM ACTIVITY COUNTS. INCREMENTED BY ONE 01639 M00S01505.cpm +++|* FOR EACH OF THE FOLLOWING. 01640 M00S01506.cpm +++|* PPU ACTIVITY, NOT INCLUDING *DIS* FLAG. 01641 M00S01507.cpm +++|* *RECW* REQUESTS (INCLUDES PPU IN RECALL AND TAPE 01642 M00S01508.cpm +++|* ACTIVITY). 01643 M00S01509.cpm +++|* ROLLOUT REQUESTED. 01644 M00S01510.cpm +++|* SCP WAIT RESPONSE INDICATORS. 01645 M00S01511.cpm +++|* TERMINAL OUTPUT FET ADDRESS PRESENT. 01646 M00S01512.cpm +++|* TERMINAL INPUT FET ADDRESS PRESENT. 01647 M00S01513.cpm +++|* L LONG TERM ACTIVITY COUNTS. FIELD IS ONE IF ANY OF 01648 M00S01514.cpm +++|* THE FOLLOWING CONDITIONS ARE MET. 01649 M00S01515.cpm +++|* *K* OR *L* DISPLAY INTERFACE ACTIVE. 01650 M00S01516.cpm +++|* *CFO* ENTRY ENABLED. 01651 M00S01517.cpm +++|* SCP LONG TERM CONNECTION ESTABLISHED. 01652 M00S01518.cpm +++|* *DIS* PACKAGE ENABLED. 01653 M00S01519.cpm +++|* INS RESERVED FOR INSTALLATIONS. 01654 M00S01520.cpm +++|* 01655 M00S01521.cpm +++|* USES T1, T3 - T7, BA - BA+4, CM - CM+4, 01656 M00S01522.cpm +++|* CN - CN+4, FN - FN+4, UN - UN+4. 01657 M00S01523.cpm +++|* 01658 M00S01524.cpm +++|* CALLS CKA. 01659 M00S01525.cpm +++| 01660 M00S01526.cpm +++| 01661 M00S01527.cpm +++| RAC ENTRY 01662 M00S01528.cpm +++| LDN ZERL PRESET REPLY WORD 01663 M00S01529.cpm +++| CRD CN 01664 M00S01530.cpm +++| 01665 M00S01531.cpm +++|* COMPUTE SHORT TERM ACTIVITIES. 01666 M00S01532.cpm +++| 01667 M00S01533.cpm +++| LDD CP READ CONTROL POINT AREA WORDS 01668 M00S01534.cpm +++| ADN STSW READ PPU AND TAPE ACTIVITY 01669 M00S01535.cpm +++| CRD CM 01670 M00S01536.cpm +++| ADN JCIW-STSW READ JOB CONTROL INFORMATION 01671 M00S01537.cpm +++| CRD T3 01672 M00S01538.cpm +++| ADN TIOW-JCIW READ TERMINAL OUTPUT FET ADDRESS 01673 M00S01539.cpm +++| CRD UN 01674 M00S01540.cpm +++| ADN TINW-TIOW READ TERMINAL INPUT FET ADDRESS 01675 M00S01541.cpm +++| CRD FN 01676 M00S01542.cpm +++| ADN SSCW-TINW READ WAIT RESPONSE INDICATORS 01677 M00S01543.cpm +++| CRD BA 01678 M00S01544.cpm +++| LDD T3+3 CHECK *DIS* FLAG 01679 M00S01545.cpm +++| SHN -11 RIGHT JUSTIFY *DIS* BIT 01680 M00S01546.cpm +++| LPN 1 01681 M00S01547.cpm +++| STD T3 01682 M00S01548.cpm +++| LDD CM CHECK PPU ACTIVITY 01683 M00S01549.cpm +++| LPN 37 01684 M00S01550.cpm +++| SBD T3 SUBTRACT OFF *DIS* ACTIVITY 01685 M00S01551.cpm +++| SBN 1 COMPENSATE FOR THIS PPU 01686 M00S01552.cpm +++| ZJN RAC1 IF NO PPU ACTIVITY 01687 M00S01553.cpm +++| AOD CN INCREMENT SHORT TERM ACTIVITY COUNT 01688 M00S01554.cpm +++| RAC1 LDD CM+4 CHECK FOR *RECW* REQUESTS 01689 M00S01555.cpm +++| SHN -4 01690 M00S01556.cpm +++| LPN 17 01691 M00S01557.cpm +++| ZJN RAC2 IF NO RECALL/TAPE ACTIVITY 01692 M00S01558.cpm +++| AOD CN INCREMENT SHORT TERM ACTIVITY COUNT 01693 M00S01559.cpm +++| RAC2 LDD CM+2 READ ROLLOUT FLAG 01694 M00S01560.cpm +++| LPN 1 INCREMENT SHORT TERM ACTIVITY IF SET 01695 M00S01561.cpm +++| RAD CN 01696 M00S01562.cpm +++| LDN 5 CHECK WAIT RESPONSE INDICATORS 01697 M00S01563.cpm +++| STD T1 01698 M00S01564.cpm +++| RAC3 SOD T1 01699 M00S01565.cpm +++| MJN RAC4 IF CHECK COMPLETE 01700 M00S01566.cpm +++| LDM BA,T1 01701 M00S01567.cpm +++| LPN 7 CHECK WAIT RESPONSE INDICATOR 01702 M00S01568.cpm +++| ZJN RAC3 IF NO WAIT RESPONSE SET 01703 M00S01569.cpm +++| AOD CN INCREMENT SHORT TERM ACTIVITY COUNT 01704 M00S01570.cpm +++| RAC4 LDD UN+3 CHECK TERMINAL OUTPUT FET ADDRESS 01705 M00S01571.cpm +++| LPN 37 01706 M00S01572.cpm +++| ADD UN+4 01707 M00S01573.cpm +++| ZJN RAC5 IF NO TERMINAL OUTPUT 01708 M00S01574.cpm +++| AOD CN INCREMENT SHORT TERM ACTIVITY COUNT 01709 M00S01575.cpm +++| RAC5 LDD FN+3 CHECK TERMINAL INPUT FET ADDRESS 01710 M00S01576.cpm +++| SCN 77 01711 M00S01577.cpm +++| SHN 6 01712 M00S01578.cpm +++| LMD FN+2 01713 M00S01579.cpm +++| ZJN RAC6 IF NO TERMINAL INPUT 01714 M00S01580.cpm +++| AOD CN INCREMENT SHORT TERM ACTIVITY COUNT 01715 M00S01581.cpm +++| 01716 M00S01582.cpm +++|* COMPUTE LONG TERM ACTIVITIES. 01717 M00S01583.cpm +++| 01718 M00S01584.cpm +++| RAC6 LDD T3 CHECK *DIS* FLAG 01719 M00S01585.cpm +++| NJP RAC9 IF *DIS* PACKAGE ENABLED 01720 M00S01586.cpm +++| LDD CP READ CONTROL POINT AREA WORDS 01721 M00S01587.cpm +++| ADC DBAW READ *K* DISPLAY INTERFACE WORD 01722 M00S01588.cpm +++| CRD CM 01723 M00S01589.cpm +++| LDD CM CHECK FOR *K* DISPLAY ACTIVITY 01724 M00S01590.cpm +++| LPN 77 01725 M00S01591.cpm +++| ADD CM+1 01726 M00S01592.cpm +++| ADD CM+2 01727 M00S01593.cpm +++| ADD CM+3 01728 M00S01594.cpm +++| ADD CM+4 01729 M00S01595.cpm +++| NJN RAC8 IF *K* DISPLAY ACTIVITY 01730 M00S01596.cpm +++| LDN 4 CHECK LONG TERM CONNECTION SET 01731 M00S01597.cpm +++| STD T1 01732 M00S01598.cpm +++| LDC LDSP GET FWA *L* DISPLAY BUFFER 01733 M00S01599.cpm +++| CRD CM 01734 M00S01600.cpm +++| LDD CM+2 GET *L* DISPLAY JOB INTERLOCK 01735 M00S01601.cpm +++| SHN 14 01736 M00S01602.cpm +++| ADD CM+3 01737 M00S01603.cpm +++| CRD CM 01738 M00S01604.cpm +++| LDD CM 01739 M00S01605.cpm +++| ZJN RAC7 IF NO JOB ASSIGNED TO *L* DISPLAY 01740 M00S01606.cpm +++| LDD CP GET JOB EJT ORDINAL 01741 M00S01607.cpm +++| ADN TFSW 01742 M00S01608.cpm +++| CRD FN 01743 M00S01609.cpm +++| SFA EJT,FN GET JOB SEQUENCE NUMBER 01744 M00S01610.cpm +++| ERRNZ JSNE CODE DEPENDS ON VALUE 01745 M00S01611.cpm +++| CRD FN 01746 M00S01612.cpm +++| LDD CM COMPARE JOB SEQUENCE NUMBERS 01747 M00S01613.cpm +++| LMD FN 01748 M00S01614.cpm +++| NJN RAC7 IF THIS JOB NOT ASSIGNED TO *L* DISPLAY 01749 M00S01615.cpm +++| LDD CM+1 01750 M00S01616.cpm +++| LMD FN+1 01751 M00S01617.cpm +++| ZJN RAC9 IF THIS JOB IS ASSIGNED TO *L* DISPLAY 01752 M00S01618.cpm +++| RAC7 LDM BA,T1 01753 M00S01619.cpm +++| LPC 4210 01754 M00S01620.cpm +++| RAC8 NJN RAC9 IF LONG TERM CONNECTION SET 01755 M00S01621.cpm +++| SOD T1 01756 M00S01622.cpm +++| NJN RAC7 IF CHECK NOT COMPLETE 01757 M00S01623.cpm +++| LDD RA CHECK *CFO* ENABLED 01758 M00S01624.cpm +++| SHN 6 01759 M00S01625.cpm +++|* ADN 0 READ RA+0 01760 M00S01626.cpm +++| CRD CM 01761 M00S01627.cpm +++| LDD CM+3 01762 M00S01628.cpm +++| SHN 21-2 01763 M00S01629.cpm +++| PJN RAC10 IF *CFO* ENTRY NOT ENABLED 01764 M00S01630.cpm +++| RAC9 LDC 4000 SET LONG TERM ACTIVITY INDICATION 01765 M00S01631.cpm +++| STD CN+1 01766 M00S01632.cpm +++| 01767 M00S01633.cpm +++|* RETURN RESPONSE TO CALLER. 01768 M00S01634.cpm +++| 01769 M00S01635.cpm +++| RAC10 LDN 0 WORD COUNT - 1 01770 M00S01636.cpm +++| STD T1 01771 M00S01637.cpm +++| RJM CKA CHECK FOR VALID PARAMETER ADDRESS 01772 M00S01638.cpm +++| CWD CN RETURN ACTIVITY INFORMATION TO CALLER 01773 M00S01639.cpm +++| LJM CPMX EXIT 01774 M00S01640.cpm +++| MFL SPACE 4,10 01775 M00S01641.cpm +++|*** FUNCTION 52. 01776 M00S01642.cpm +++|* SET MFL = PARAMETER. 01777 M00S01643.cpm +++|* 01778 M00S01644.cpm +++|* ENTRY (IR+3, IR+4) = RFL REQUEST. 01779 M00S01645.cpm +++|* BIT 2**11 IN IR+3 IS SET FOR EXTENDED MEMORY REQUEST 01780 M00S01646.cpm +++|* AND ZERO FOR CM REQUEST. EXTENDED MEMORY REQUESTS 01781 M00S01647.cpm +++|* ARE MULTIPLES OF 1000B. 01782 M00S01648.cpm +++| 01783 M00S01649.cpm +++| 01784 M00S01650.cpm +++| MFL ENTRY 01785 M00S01651.cpm +++| LDC NJNI-UJNI SET ZERO CM PARAMETER CHECK 01786 M00S01652.cpm +++| RAM PMPA 01787 M00S01653.cpm +++| RJM PMP PROCESS ARGUMENT 01788 M00S01654.cpm +++| NJN MFL1 IF MFL ARGUMENT NON-ZERO 01789 M00S01655.cpm +++| LDD CM+2 SET MFL TO MAX FL 01790 M00S01656.cpm +++| MFL1 STD CM SET MFL 01791 M00S01657.cpm +++| LDD CM+2 01792 M00S01658.cpm +++| SBD CM 01793 M00S01659.cpm +++| MJN MFL4 IF MFL .GT. MAX FL 01794 M00S01660.cpm +++| LDD IR+3 01795 M00S01661.cpm +++| SHN 21-13 01796 M00S01662.cpm +++| MJN MFL2 IF PROCESSING EXTENDED MEMORY MFL 01797 M00S01663.cpm +++| LDD CM 01798 M00S01664.cpm +++| SBN CTFL 01799 M00S01665.cpm +++| PJN MFL2 IF MFL VALID 01800 M00S01666.cpm +++| LDN CTFL 01801 M00S01667.cpm +++| STD CM 01802 M00S01668.cpm +++| AOM MFLA SET *ISSUE MESSAGE* FLAG 01803 M00S01669.cpm +++| MFL2 LDN 0 CLEAR *RFL* VALUE 01804 M00S01670.cpm +++| STD CM+1 01805 M00S01671.cpm +++| LDD T7 WRITE FL CONTROL WORD 01806 M00S01672.cpm +++| CWD CM 01807 M00S01673.cpm +++| LDN 0 01808 M00S01674.cpm +++|* LDN 1 (MFL .LT. *CTFL* REQUESTED) 01809 M00S01675.cpm +++| MFLA EQU *-1 01810 M00S01676.cpm +++| ZJN MFL3 IF NO MESSAGE TO BE ISSUED 01811 M00S01677.cpm +++| LDC =C* MFL REQUEST TOO SMALL, MINIMUM USED.* 01812 M00S01678.cpm +++| RJM DFM ISSUE DAYFILE MESSAGE 01813 M00S01679.cpm +++| MFL3 LJM CPMX EXIT 01814 M00S01680.cpm +++| 01815 M00S01681.cpm +++| MFL4 ABORT ERNV * XX NOT VALIDATED.* 01816 M00S01682.cpm +++| CSC SPACE 4,10 01817 M00S01683.cpm +++|*** FUNCTION 53. 01818 M00S01684.cpm +++|* ENABLE/DISABLE SRU CALCULATION. 01819 M00S01685.cpm +++|* 01820 M00S01686.cpm +++|* ENTRY (IR+3 - IR+4) = 12/FLAG,12/PARAM 01821 M00S01687.cpm +++|* 01822 M00S01688.cpm +++|* FLAG = 0 IF DISABLE REQUESTED. 01823 M00S01689.cpm +++|* .NE. 0 IF ENABLE REQUESTED. 01824 M00S01690.cpm +++|* 01825 M00S01691.cpm +++|* PARAM = UNIT CHARGE. 01826 M00S01692.cpm +++| 01827 M00S01693.cpm +++| 01828 M00S01694.cpm +++| CSC ENTRY 01829 M00S01695.cpm +++| LDD CP CLEAR DISABLE SRU CALCULATION 01830 M00S01696.cpm +++| ADN MP3W 01831 M00S01697.cpm +++| CRD CN 01832 M00S01698.cpm +++| STD T1 01833 M00S01699.cpm +++| LDD CN CLEAR DISABLE FLAG 01834 M00S01700.cpm +++| LPC 3777 01835 M00S01701.cpm +++| STD CN 01836 M00S01702.cpm +++| LDD T1 01837 M00S01703.cpm +++| CWD CN 01838 M00S01704.cpm +++| LDD IR+4 CHECK INCREMENT 01839 M00S01705.cpm +++| ZJN CSC1 IF NO INCREMENT REQUESTED 01840 M00S01706.cpm +++| STM CSCA+4 STORE INCREMENT 01841 M00S01707.cpm +++| LDD MA 01842 M00S01708.cpm +++| CWM CSCA,ON 01843 M00S01709.cpm +++| LDN 1 01844 M00S01710.cpm +++| STD CM+1 01845 M00S01711.cpm +++| STD CM+2 01846 M00S01712.cpm +++| MONITOR UADM 01847 M00S01713.cpm +++| CSC1 LDD IR+3 01848 M00S01714.cpm +++| NJN CSC2 IF ENABLE REQUESTED 01849 M00S01715.cpm +++| LDC 4000 SET DISABLE 01850 M00S01716.cpm +++| RAD CN 01851 M00S01717.cpm +++| LDD T1 01852 M00S01718.cpm +++| CWD CN 01853 M00S01719.cpm +++| CSC2 LJM CPMX EXIT 01854 M00S01720.cpm +++|
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/cpm.txt · Last modified: (external edit)