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