cdc:nos2.source:opl.opl871:deck:0vj
Deck 0VJ
Library Member Format: MODIFY
Listing Sections
- Deck 0VJ Start
- Deck 0VJ Part 1 (Line 1447)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.0vj +++| IDENT 0VJ,/REL/RVJX 00002 M00S00002.0vj +++| PERIPH J 00003 M00S00003.0vj +++| BASE MIXED 00004 M00S00004.0vj +++| SST 00005 M00S00005.0vj +++| QUAL$ EQU 1 00006 M00S00006.0vj +++|*COMMENT 0VJ - VERIFY JOB/USER COMMANDS.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1979.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M00S00008.0vj +++| TITLE 0VJ - VERIFY JOB/USER COMMANDS. 00010 M00S00009.0vj +++| SPACE 4,10 00011 M00S00010.0vj +++|*** 0VJ - VERIFY JOB AND USER COMMANDS. 00012 M00S00011.0vj +++|* R. A. JAPS. 75/06/24. 00013 M00S00012.0vj +++|* P. C. SMITH. 83/02/11. 00014 M00S00013.0vj +++| SPACE 4,10 00015 M00S00014.0vj +++|*** *0VJ* PROCESSES JOB AND USER COMMANDS FOR AN INPUT PROCESSOR. 00016 M00S00015.0vj +++|* 00017 M00S00016.0vj +++|* THE JOB COMMAND MAY HAVE TWO FORMATS. 00018 M00S00017.0vj +++|* 00019 M00S00018.0vj +++|* THE FIRST FORMAT IS ORDER DEPENDENT. IT IS - 00020 M00S00019.0vj +++|* UJN,SVC,TL,CMFL,ECFL,LID,AL. 00021 M00S00020.0vj +++|* UJN = USER JOB NAME. 00022 M00S00021.0vj +++|* SVC = SERVICE CLASS. 00023 M00S00022.0vj +++|* TL = TIME LIMIT. 00024 M00S00023.0vj +++|* CMFL = CENTRAL MEMORY FIELD LENGTH. 00025 M00S00024.0vj +++|* ECFL = EXTENDED MEMORY FIELD LENGTH. 00026 M00S00025.0vj +++|* LID = LOGICAL ID OF THE MF THE JOB IS TO RUN ON. 00027 M00S00026.0vj +++|* AL = MAXIMUM ACCESS LEVEL THAT JOB MAY RUN WITH. 00028 M00S00027.0vj +++|* 00029 M00S00028.0vj +++|* THE SECOND FORMAT IS NOT ORDER DEPENDENT EXCEPT THAT THE 00030 M00S00029.0vj +++|* JOBNAME MUST APPEAR FIRST. SERVICE CLASS IS DENOTED BY 00031 M00S00030.0vj +++|* *SC* OR *P*, TIME LIMIT BY *T*, CM FIELD LENGTH BY *CM*,
| Line S00031 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00032 M01S00031.252l678 ---|* ECS FIELD LENGTH BY *EC*, LID BY *ST*, AND ACCESS LEVEL
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00033 M01S00001.252l678 +++|* EM FIELD LENGTH BY *EC*, LID BY *ST*, AND ACCESS LEVEL 00034 M00S00032.0vj +++|* BY *AL*. THESE SYMBOLS MUST PRECEDE THE VALUE. 00035 M00S00033.0vj +++|* FOR CLARITY, IT IS RECOMMENDED THAT THE SYMBOL AND 00036 M00S00034.0vj +++|* THE VALUE BE SEPARATED BY AN EQUAL SIGN (ALTHOUGH 00037 M00S00035.0vj +++|* THIS IS NOT REQUIRED). 00038 M00S00036.0vj +++|* 00039 M00S00037.0vj +++|* THE FORMATS OF THE ARGUMENTS ARE AS FOLLOWS - 00040 M00S00038.0vj +++|* 00041 M00S00039.0vj +++|* JOB NAME - 1 TO 7 ALPHA-NUMERIC CHARACTERS, BEGINNING WITH 00042 M00S00040.0vj +++|* A LETTER. 00043 M00S00041.0vj +++|* 00044 M00S00042.0vj +++|* SERVICE CLASS - TWO ALPHANUMERIC CHARACTERS OR A PRIORITY 00045 M00S00043.0vj +++|* LEVEL NUMBER IN THE RANGE 0 - 7. SERVICE CLASS IS 00046 M00S00044.0vj +++|* DENOTED BY *SC* OR *P*. IF *SC* IS USED, THE 00047 M00S00045.0vj +++|* FOLLOWING VALUES ARE ALLOWED. 00048 M00S00046.0vj +++|* SY SYSTEM 00049 M00S00047.0vj +++|* BC BATCH 00050 M00S00048.0vj +++|* RB REMOTE BATCH 00051 M00S00049.0vj +++|* TS INTERACTIVE 00052 M00S00050.0vj +++|* DI DETACHED INTERACTIVE 00053 M00S00051.0vj +++|* NS NETWORK SUPERVISOR 00054 M00S00052.0vj +++|* MA MAINTENANCE 00055 M00S00053.0vj +++|* CT COMMUNICATION TASK 00056 M00S00054.0vj +++|* I0 INSTALLATION CLASS 0 00057 M00S00055.0vj +++|* I1 INSTALLATION CLASS 1 00058 M00S00056.0vj +++|* I2 INSTALLATION CLASS 2 00059 M00S00057.0vj +++|* I3 INSTALLATION CLASS 3 00060 M00S00058.0vj +++|* IF *P* IS SPECIFIED, THE SERVICE CLASS DEFINED FOR 00061 M00S00059.0vj +++|* THAT PRIORITY LEVEL BY THE SITE (VIA THE *PCLASS* 00062 M00S00060.0vj +++|* COMMAND OR IPRDECK ENTRY) WILL BE USED. 00063 M00S00061.0vj +++|* 00064 M00S00062.0vj +++|* TIME LIMIT - A NUMBER FROM 1 - 262143D (777777B). 00065 M00S00063.0vj +++|* VALUES FROM 32,767D TO 262,143D ARE FORCED 00066 M00S00064.0vj +++|* TO AN UNLIMITED AMOUNT. 00067 M00S00065.0vj +++|* 00068 M00S00066.0vj +++|* FIELD LENGTH - A NUMBER FROM 1 - MAXIMUM SIZE ALLOWED. 00069 M00S00067.0vj +++|* THIS VALUE DEPENDS ON THE ACTUAL SIZE OF CENTRAL
| Line S00068 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00070 M01S00068.252l678 ---|* MEMORY OR THE AMOUNT OF ECS AVAILABLE. THE VALUE OF
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00071 M01S00002.252l678 +++|* MEMORY OR THE AMOUNT OF EM AVAILABLE. THE VALUE OF 00072 M00S00069.0vj +++|* CENTRAL MEMORY WILL BE ROUNDED TO THE NEXT HIGHER
| Line S00070 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00073 M01S00070.252l678 ---|* MULTIPLE OF 100B. THE ECS MEMORY VALUE IS 4 DIGITS
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 0vj7 |
Seq # *Modification Id* Act ----------------------------+ 00074 M02S00003.0vj7 ---|* MULTIPLE OF 100B. THE EM MEMORY VALUE IS 5 DIGITS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 0vj7 |
Seq # *Modification Id* Act ----------------------------+ 00075 M01S00001.0vj7 +++|* MULTIPLE OF 100B. THE EM MEMORY VALUE IS 5 DIGITS 00076 M00S00071.0vj +++|* OR LESS AND REPRESENTS THE NUMBER OF 1000B WORD BLOCKS. 00077 M00S00072.0vj +++|* 00078 M00S00073.0vj +++|* LID - A 3 CHARACTER LID THAT IDENTIFIES WHAT MAINFRAME 00079 M00S00074.0vj +++|* THIS JOB SHOULD RUN ON. 00080 M00S00075.0vj +++|* 00081 M00S00076.0vj +++|* ACCESS LEVEL - A 1- TO 7-CHARACTER NAME (AS DEFINED IN 00082 M00S00077.0vj +++|* *COMSMLS*) FOR THE MAXIMUM ACCESS LEVEL THE JOB 00083 M00S00078.0vj +++|* WILL BE ALLOWED TO RUN AT. THE USER MUST BE 00084 M00S00079.0vj +++|* VALIDATED TO RUN AT THE SPECIFIED ACCESS LEVEL, 00085 M00S00080.0vj +++|* AND THAT LEVEL MUST BE VALID FOR THE SYSTEM 00086 M00S00081.0vj +++|* AND FOR THE JOB ORIGIN TYPE. IF NO ACCESS LEVEL 00087 M00S00082.0vj +++|* IS SPECIFIED, THE JOB WILL ONLY BE ALLOWED TO 00088 M00S00083.0vj +++|* RUN AT ONE ACCESS LEVEL, AND THAT LEVEL WILL BE 00089 M00S00084.0vj +++|* THE USER-S LOWEST VALIDATED ACCESS LEVEL THAT 00090 M00S00085.0vj +++|* IS ALSO VALID FOR THE SYSTEM AND FOR THE JOB 00091 M00S00086.0vj +++|* ORIGIN TYPE. 00092 M00S00087.0vj +++|* 00093 M00S00088.0vj +++|* THE DEFAULT BASE FOR THE TIME ARGUMENT IS DECIMAL, 00094 M00S00089.0vj +++|* FOR THE FIELD LENGTHS IT IS OCTAL. A 00095 M00S00090.0vj +++|* POST-RADIX OF *B* OR *D* MUST BE SPECIFIED TO ENTER 00096 M00S00091.0vj +++|* A NUMBER WHICH IS NOT IN THE DEFAULT BASE. PRESENCE OF AN 00097 M00S00092.0vj +++|* 8 OR 9 WILL DEFAULT TO DECIMAL. PRESENCE OF AN 8 OR 9 00098 M00S00093.0vj +++|* ALONG WITH A POST-RADIX OF *B* WILL RESULT IN AN ERROR. 00099 M00S00094.0vj +++|* ALL FIELDS MUST BE SEPARATED BY ONE OF THE FOLLOWING 00100 M00S00095.0vj +++|* CHARACTERS: 00101 M00S00096.0vj +++|* +-*/=,($ 00102 M00S00097.0vj +++|* THE JOB COMMAND TERMINATES WITH *)* OR *.* 00103 M00S00098.0vj +++|* EMBEDDED SPACES ARE ALLOWED, AND ANY CHARACTER MAY APPEAR 00104 M00S00099.0vj +++|* IN THE COMMENTS FIELD AFTER THE TERMINATOR. 00105 M00S00100.0vj +++|* 00106 M00S00101.0vj +++|* ASSEMBLY CONSTANTS ARE PROVIDED FOR DEFAULT ARGUMENTS. 00107 M00S00102.0vj +++|* THESE VALUES ARE TL=64D, CM=377700B, EC=7777000B. 00108 M00S00103.0vj +++|* THEY ARE DEFINED IN COMMON DECK *COMSJCE*. 00109 M00S00104.0vj +++|* 00110 M00S00105.0vj +++|* THE USER DEFAULT SERVICE CLASS FOR THE ORIGIN TYPE OF THE 00111 M00S00106.0vj +++|* JOB IS USED IF NO *SC* OR *P* ARGUMENT IS SELECTED. 00112 M00S00107.0vj +++| SPACE 4,10 00113 M00S00108.0vj +++|*** ENTRY CONDITIONS. 00114 M00S00109.0vj +++|* 00115 M00S00110.0vj +++|* 00116 M00S00111.0vj +++|* (CN) = FWA OF STATEMENT BUFFER. 00117 M00S00112.0vj +++|* (CN+1) = ATTRIBUTES OF DESTINATION LID. 00118 M00S00113.0vj +++|* (CN+1) = 0 IF DESTINATION LID NOT ALREADY SPECIFIED.
| Line S00114 Modification History | |
|---|---|
M01 (Removed by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00119 M01S00114.ns2420c ---|* (CN+2) = 1/N, 1/E, 1/S, 6/, 3/AL
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00120 M01S00001.ns2420c +++|* (CN+2) = 1/N, 1/E, 1/S, 1/D, 5/, 3/AL 00121 M00S00115.0vj +++|* N = NO PASSWORD VALIDATION REQUIRED. 00122 M00S00116.0vj +++|* E = VALIDATE ENCRYPTED PASSWORD (FROM *EPSS*). 00123 M00S00117.0vj +++|* S = JOB WILL BE SYSTEM ORIGIN.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00124 M01S00002.ns2420c +++|* D = DO NOT DELETE PASSWORD FROM BUFFER.
| Line S00118 Modification History | |
|---|---|
M01 (Removed by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 00125 M01S00118.ns2202 ---|* AL = LOWER ACCESS LEVEL LIMIT FOR NEW JOB.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 00126 M01S00001.ns2202 +++|* AL = ACCESS LEVEL OF LOCAL FILE TO BECOME JOB. 00127 M00S00119.0vj +++|* (OT) = ORIGIN TYPE. 00128 M00S00120.0vj +++| SPACE 4,10 00129 M00S00121.0vj +++|*** EXIT CONDITIONS. 00130 M00S00122.0vj +++|*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00131 M01S00001.242l642 +++|* 00132 M01S00002.242l642 +++|* (A) .LT. 0 IF VALIDATION FILE DEVICE INACCESSIBLE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00133 M01S00001.ns2553 +++|* (T5) = EST ORDINAL OF VALIDATION FILE DEVICE IF INACCESSIBLE. 00134 M00S00123.0vj +++|* 00135 M00S00124.0vj +++|* JOB COMMAND ARGUMENTS SET IN SYSTEM SECTOR BUFFER. 00136 M00S00125.0vj +++|* JOB COMMAND ERROR IS SET IN SYSTEM SECTOR BUFFER (JASS). 00137 M00S00126.0vj +++|* IDIE = ILLEGAL LID SPECIFIED VIA *ST*. 00138 M00S00127.0vj +++|* JCIE = JOB COMMAND ERROR. 00139 M00S00128.0vj +++|* SCIE = INVALID SERVICE CLASS. 00140 M00S00129.0vj +++|* STIE = *ST* SPECIFIED AND USER NOT VALIDATED. 00141 M00S00130.0vj +++|* UCIE = USER SECURITY COUNT EXHAUSTED. 00142 M00S00131.0vj +++|* UNIE = USER NAME/PASSWORD NOT VALID. 00143 M00S00132.0vj +++|* USIE = UNDEFINED SERVICE CLASS. 00144 M00S00133.0vj +++|* (CN) = ATTRIBUTES OF DESTINATION LID, IF SPECIFIED. 00145 M00S00134.0vj +++|* (CN+1) = USER DEFAULT SERVICE CLASS FOR ORIGIN TYPE 00146 M00S00135.0vj +++|* OF INPUT FILE. 00147 M00S00136.0vj +++|* (CN+2 - CN+4) = SERVICE CLASS VALIDATION MASK FOR USER. 00148 M00S00137.0vj +++|* USER/ACCOUNT COMMAND INFORMATION SET IN SYSTEM SECTOR. 00149 M00S00138.0vj +++|* SERVICE CLASS SET IN QFT ENTRY IN SYSTEM SECTOR. 00150 M00S00139.0vj +++|* (JF) = INITIAL JOB FIELD LENGTH.
| Line S00140 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00151 M01S00140.252l678 ---|* (JE) = INITIAL ECS JOB FIELD LENGTH.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00152 M01S00004.252l678 +++|* (JE) = INITIAL EM JOB FIELD LENGTH/*UEBS*. 00153 M00S00141.0vj +++|* (ER) = ERROR STATUS. 00154 M00S00142.0vj +++|* 0 = NO ERROR ENCOUNTERED. 00155 M00S00143.0vj +++|* 1 = JOB COMMAND ERROR. 00156 M00S00144.0vj +++|* 3 = USER COMMAND ERROR. 00157 M00S00145.0vj +++|* 00158 M00S00146.0vj +++|* NOTES *JOB COMMAND ERROR* STATUS WILL NEVER BE RETURNED 00159 M00S00147.0vj +++|* IF THE JOB IS DESTINED FOR A NON-HOST LID.
| Line S00148 Modification History | |
|---|---|
M01 (Removed by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00160 M01S00148.ns2420c ---|* 00161 M01S00149.ns2420c ---|* *USER COMMAND ERROR* STATUS WILL NEVER BE RETURNED IF 00162 M01S00150.ns2420c ---|* THE JOB IS DESTINED FOR A LID THAT DOES NOT 00163 M01S00151.ns2420c ---|* REQUIRE PRE-VALIDATION.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2168 |
Seq # *Modification Id* Act ----------------------------+ 00164 M01S00001.ns2168 +++|* 00165 M01S00002.ns2168 +++|* IF BOTH A USER COMMAND ERROR AND A JOB COMMAND ERROR 00166 M01S00003.ns2168 +++|* ARE ENCOUNTERED, *USER COMMAND ERROR* STATUS WILL BE 00167 M01S00004.ns2168 +++|* RETURNED UNLESS THE JOB COMMAND ERROR CODE IS 00168 M01S00005.ns2168 +++|* *INVALID LID*.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00169 M01S00003.ns2420c +++|* 00170 M01S00004.ns2420c +++|* WHEN VALIDATING THE USER COMMAND, THE PASSWORD ON THE 00171 M01S00005.ns2420c +++|* USER COMMAND WILL BE VALIDATED EXCEPT IN THE FOLLOWING 00172 M01S00006.ns2420c +++|* CASES - 00173 M01S00007.ns2420c +++|* 00174 M01S00008.ns2420c +++|* 1) IF THE *DO NOT VALIDATE PASSWORD* BIT IS SET, THE 00175 M01S00009.ns2420c +++|* PASSWORD WILL NOT BE VALIDATED. 00176 M01S00010.ns2420c +++|* 00177 M01S00011.ns2420c +++|* 2) IF THE *VALIDATE ENCRYPTED PASSWORD* BIT IS SET, 00178 M01S00012.ns2420c +++|* THE PASSWORD ON THE USER COMMAND WILL BE VALIDATED 00179 M01S00013.ns2420c +++|* IF IT EXISTS; OTHERWISE THE ENCRYPTED PASSWORD 00180 M01S00014.ns2420c +++|* WILL BE VALIDATED. 00181 M00S00152.0vj +++| SPACE 4,10 00182 M00S00153.0vj +++|** CALLS. 00183 M00S00154.0vj +++|* 00184 M00S00155.0vj +++|* 0AV - ACCOUNT VALIDATION.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | tl0vj1 |
Seq # *Modification Id* Act ----------------------------+ 00185 M01S00001.tl0vj1 +++|* 0IJ - PROCESS *IBM* JOB CARD. 00186 M00S00156.0vj +++|* 0VU - VALIDATE USER AND JOB. 00187 M00S00157.0vj +++| TITLE MACRO DEFINITIONS. 00188 M00S00158.0vj +++| JCARG SPACE 4,15 00189 M00S00159.0vj +++|** JCARG - JOB COMMAND ARGUMENT TABLE ENTRY MACRO. 00190 M00S00160.0vj +++|* 00191 M00S00161.0vj +++|* JCARG A,B,C,D,E 00192 M00S00162.0vj +++|* 00193 M00S00163.0vj +++|* ENTRY A = JOB COMMAND ARGUMENT. 00194 M00S00164.0vj +++|* B = PROCESSOR ADDRESS. 00195 M00S00165.0vj +++|* C = MAXIMUM NUMBER OF DIGITS PLUS ONE. 00196 M00S00166.0vj +++|* D = MAXIMUM DECIMAL VALUE ALLOWED. 00197 M00S00167.0vj +++|* E = DEFAULT BASE. 00198 M00S00168.0vj +++|* *DECIMAL* = DECIMAL BASE. 00199 M00S00169.0vj +++|* OTHER = OCTAL BASE. 00200 M00S00170.0vj +++| 00201 M00S00171.0vj +++| 00202 M00S00172.0vj +++| PURGMAC JCARG 00203 M00S00173.0vj +++| JCARG MACRO A,B,C,D,E 00204 M00S00174.0vj +++| .1 MICRO 1,2,$A$ 00205 M00S00175.0vj +++| .2 MICCNT .1 00206 M00S00176.0vj +++| .3 DECMIC .2,1 00207 M00S00177.0vj +++| CON ".3"_R_A 00208 M00S00178.0vj +++| CON B 00209 M00S00179.0vj +++| CON C 00210 M00S00180.0vj +++| VFD 24/D 00211 M00S00181.0vj +++| .A IFC EQ,$E$DECIMAL$ 00212 M00S00182.0vj +++| CON 1 00213 M00S00183.0vj +++| .A ELSE 00214 M00S00184.0vj +++| CON 0 00215 M00S00185.0vj +++| .A ENDIF
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 0vj5 |
Seq # *Modification Id* Act ----------------------------+ 00216 M01S00001.0vj5 +++| .A IFEQ .2,2 00217 M01S00002.0vj5 +++| .1 MICRO 1,1,$A$ 00218 M01S00003.0vj5 +++| .3 MICRO 2,1,$A$ 00219 M01S00004.0vj5 +++| .1 MICRO 1,2,$".3"".1"$ 00220 M01S00005.0vj5 +++| .2 MICCNT NMSC 00221 M01S00006.0vj5 +++| DUP .2/2 00222 M01S00007.0vj5 +++| .2 SET .2-2 00223 M01S00008.0vj5 +++| .3 MICRO .2+1,2,$"NMSC"$ 00224 M01S00009.0vj5 +++| .B IFC EQ,$".1"$".3"$ 00225 M01S00010.0vj5 +++| ERR JOB COMMAND KEYWORD/SERVICE CLASS CONFLICT (*".1"*). 00226 M01S00011.0vj5 +++| STOPDUP 00227 M01S00012.0vj5 +++| .B ENDIF 00228 M01S00013.0vj5 +++| ENDD 00229 M01S00014.0vj5 +++| .A ENDIF 00230 M00S00186.0vj +++| ENDM 00231 M00S00187.0vj +++| PARAM SPACE 4,10 00232 M00S00188.0vj +++|** PARAM - DEFINE *0VJ*/*0VU* INTERFACE PARAMETER. 00233 M00S00189.0vj +++|* 00234 M00S00190.0vj +++|* TAG PARAM NUM,VAL 00235 M00S00191.0vj +++|* 00236 M00S00192.0vj +++|* ENTRY TAG = SYMBOLIC NAME FOR LOCATION(S). 00237 M00S00193.0vj +++|* NUM = NUMBER OF LOCATIONS TO RESERVE. 00238 M00S00194.0vj +++|* (IF NUM = *FIRST*, INITIALIZE BLOCK; 00239 M00S00195.0vj +++|* IF NUM = *LAST*, TERMINATE BLOCK.) 00240 M00S00196.0vj +++|* VAL = VALUE TO PRESET LOCATION(S) WITH. 00241 M00S00197.0vj +++| 00242 M00S00198.0vj +++| 00243 M00S00199.0vj +++| PURGMAC PARAM 00244 M00S00200.0vj +++| 00245 M00S00201.0vj +++| MACRO PARAM,TAG,NUM,VAL 00246 M00S00202.0vj +++| .A IFC EQ,$VAL$$ 00247 M00S00203.0vj +++| .B IFC EQ,$NUM$FIRST$ 00248 M00S00204.0vj +++| TAG BSS 0 00249 M00S00205.0vj +++| .1 SET * 00250 M00S00206.0vj +++| .B ELSE 00251 M00S00207.0vj +++| .C IFC EQ,$NUM$LAST$ 00252 M00S00208.0vj +++| TAG BSS 0
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00253 M01S00001.0vj2 +++| ERRNZ OVL0-5-* PARAMETER BLOCK LOCATION ERROR 00254 M00S00209.0vj +++| ERRNZ .1+ZVPL-* PARAMETER BLOCK LENGTH ERROR 00255 M00S00210.0vj +++| .C ELSE 00256 M00S00211.0vj +++| ERR MISSING PARAMETER 00257 M00S00212.0vj +++| .C ENDIF 00258 M00S00213.0vj +++| .B ENDIF 00259 M00S00214.0vj +++| .A ELSE 00260 M00S00215.0vj +++| TAG BSS 0 00261 M00S00216.0vj +++| .D DUP NUM 00262 M00S00217.0vj +++| CON VAL 00263 M00S00218.0vj +++| .D ENDD 00264 M00S00219.0vj +++| .A ENDIF 00265 M00S00220.0vj +++| ENDM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00266 M01S00001.ns2217 +++| SCLASS SPACE 4,15 00267 M01S00002.ns2217 +++|** SCLASS - DEFINE SERVICE CLASS TABLE. 00268 M01S00003.ns2217 +++|* 00269 M01S00004.ns2217 +++|* SCLASS NM,MN,DF,ST,TX 00270 M01S00005.ns2217 +++|* 00271 M01S00006.ns2217 +++|* ENTRY *NM* = SERVICE CLASS NAME. 00272 M01S00007.ns2217 +++|* *MN* = TWO CHARACTER MNEMONIC. 00273 M01S00008.ns2217 +++|* *DF* = DAYFILE MESSAGE CHARACTER. 00274 M01S00009.ns2217 +++|* *ST* = SHORT TEXT FOR *QFTLIST*. 00275 M01S00010.ns2217 +++|* *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE. 00276 M01S00011.ns2217 +++|* 00277 M01S00012.ns2217 +++|* NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF 00278 M01S00013.ns2217 +++|* THIS MACRO. 00279 M01S00014.ns2217 +++| 00280 M01S00015.ns2217 +++| 00281 M01S00016.ns2217 +++| PURGMAC SCLASS 00282 M01S00017.ns2217 +++| 00283 M01S00018.ns2217 +++| SCLASS MACRO NM,MN,DF,ST,TX 00284 M01S00019.ns2217 +++| .A IFC NE,$NM$SSSC$ 00285 M01S00020.ns2217 +++| .SCL RMT 00286 M01S00021.ns2217 +++| INDEX NM,2R_MN TX 00287 M01S00022.ns2217 +++| .SCL RMT 00288 M01S00023.ns2217 +++| .A ENDIF 00289 M01S00024.ns2217 +++| SCLASS ENDM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00290 M01S00001.261l700 +++| UCARG SPACE 4,10 00291 M01S00002.261l700 +++|** UCARG - USER COMMAND ARGUMENT TABLE ENTRY MACRO. 00292 M01S00003.261l700 +++|* 00293 M01S00004.261l700 +++|* UCARG A,B,C. 00294 M01S00005.261l700 +++|* 00295 M01S00006.261l700 +++|* ENTRY A = ARGUMENT KEYWORD. 00296 M01S00007.261l700 +++|* B = ADDRESS TO ASSEMBLE ARGUMENT. 00297 M01S00008.261l700 +++|* C = * IF ASTERISK ALLOWED IN ARGUMENT. 00298 M01S00009.261l700 +++| 00299 M01S00010.261l700 +++| 00300 M01S00011.261l700 +++| PURGMAC UCARG 00301 M01S00012.261l700 +++| UCARG MACRO A,B,C 00302 M01S00013.261l700 +++| LOCAL D 00303 M01S00014.261l700 +++| VFD 12/0L_A 00304 M01S00015.261l700 +++| CON B 00305 M01S00016.261l700 +++| D SET 0 00306 M01S00017.261l700 +++| IFC EQ,$C$*$,1 00307 M01S00018.261l700 +++| D SET 1R* 00308 M01S00019.261l700 +++| VFD 12/D 00309 M01S00020.261l700 +++| UCARG ENDM 00310 M00S00221.0vj +++| SPACE 4,10 00311 M00S00222.0vj +++|* COMMON DECKS. 00312 M00S00223.0vj +++| 00313 M00S00224.0vj +++| 00314 M00S00225.0vj +++|*CALL COMPMAC 00315 M00S00226.0vj +++|*CALL COMPRLI 00316 M00S00227.0vj +++|*CALL COMSACC 00317 M00S00228.0vj +++|*CALL COMSCPS 00318 M00S00229.0vj +++|*CALL COMSDSP 00319 M00S00230.0vj +++|*CALL COMSJCE 00320 M00S00231.0vj +++|*CALL COMSMLS 00321 M00S00232.0vj +++|*CALL COMSPIM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2169 |
Seq # *Modification Id* Act ----------------------------+ 00322 M01S00001.ns2169 +++| QUAL REM 00323 M00S00233.0vj +++|*CALL COMSREM
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2169 |
Seq # *Modification Id* Act ----------------------------+ 00324 M01S00002.ns2169 +++| QUAL *
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00325 M01S00025.ns2217 +++| SCL$ EQU 0 ONLY PROCESS CLASSES WITH JCB-S 00326 M00S00234.0vj +++|*CALL COMSSCD 00327 M00S00235.0vj +++|*CALL COMSSSD 00328 M00S00236.0vj +++|*CALL COMSSSE 00329 M00S00237.0vj +++|*CALL COMSZOL 00330 M00S00238.0vj +++| SPACE 4,20
| Line S00239 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00331 M01S00239.0vj2 ---|**** DIRECT ASSIGNMENT LOCATIONS.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00332 M01S00002.0vj2 +++|**** DIRECT LOCATION ASSIGNMENTS. 00333 M00S00240.0vj +++|
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00334 M01S00001.v23l617 +++| T8 EQU 16 TEMPORARY STORAGE
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00335 M01S00003.0vj2 +++| T9 EQU 17 TEMPORARY / ARGUMENT TABLE INDEX 00336 M00S00241.0vj +++| CA EQU 25 CHARACTER ADDRESS 00337 M00S00242.0vj +++| CN EQU 30 - 34 ASSEMBLE BUFFER (5 LOCATIONS) 00338 M00S00243.0vj +++| JF EQU 35 JOB FIELD LENGTH
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00339 M01S00002.v23l617 +++| CB EQU 37 ADDRESS OF NEXT COMMAND IN BUFFER 00340 M00S00244.0vj +++| UN EQU 40 - 44 USER NUMBER (USED BY 0AV)
| Line S00245 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00341 M01S00245.252l678 ---| JE EQU 45 JOB ECS FIELD LENGTH
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00342 M01S00005.252l678 +++| JE EQU 45 JOB EM FIELD LENGTH/*UEBS* 00343 M00S00246.0vj +++| OT EQU 46 ORIGIN TYPE 00344 M00S00247.0vj +++| ER EQU 47 ERROR STATUS 00345 M00S00248.0vj +++| 00346 M00S00249.0vj +++|**** 00347 M00S00250.0vj +++| TITLE MAIN ROUTINE. 00348 M00S00251.0vj +++| RVJ SPACE 4,10 00349 M00S00252.0vj +++|** RVJ - MAIN ROUTINE. 00350 M00S00253.0vj +++| 00351 M00S00254.0vj +++| ORG 5B 00352 M00S00255.0vj +++| 00353 M00S00256.0vj +++| RVJ SUBR ENTRY/EXIT 00354 M00S00257.0vj +++| LJM PRS PRESET
| Line S00258 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00355 M01S00258.261l700 ---| VUJ SPACE 4,10 00356 M01S00259.261l700 ---|** VUJ - VALIDATE USER AND JOB.
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00357 M01S00021.261l700 +++| VUN SPACE 4,15 00358 M01S00022.261l700 +++|** VUN - VALIDATE USER NAME. 00359 M00S00260.0vj +++|* 00360 M00S00261.0vj +++|* ENTRY (UN - UN+4) = USER NAME. 00361 M00S00262.0vj +++|* (CN - CN+4) = FAMILY NAME.
| Line S00263 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00362 M01S00263.261l700 ---|* (UCNV) .NE. 0 IF USER COMMAND NOT VALID.
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00363 M01S00023.261l700 +++|* 00364 M01S00024.261l700 +++|* EXIT TO *EVU* IF VALIDATION FILE ACCESSIBLE. 00365 M01S00025.261l700 +++|* TO *RVJX* IF VALIDATION FILE INACCESSIBLE. 00366 M01S00026.261l700 +++|* 00367 M01S00027.261l700 +++|* USES LA, T6, UN+4. 00368 M01S00028.261l700 +++|* 00369 M01S00029.261l700 +++|* CALLS EVU. 00370 M01S00030.261l700 +++|* 00371 M01S00031.261l700 +++|* MACROS EXECUTE. 00372 M00S00264.0vj +++| 00373 M00S00265.0vj +++|
| Line S00266 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00374 M01S00266.261l700 ---| VUJ BSS 0 ENTRY 00375 M01S00267.261l700 ---| LDM UCNV
| Line S00268 Modification History | |
|---|---|
M01 (Removed by) | ns2243 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00376 M02S00268.261l700 ---| NJP VUJ2 IF USER COMMAND NOT VALID
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2243 |
M02 (Removed by) | ns2420 |
M03 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00377 M03S00001.261l700 ---| NJP VUJ2 IF NO VALIDATION REQUIRED/*USER* NOT VALID
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00378 M02S00001.261l700 ---| NJP VUJ2 IF *USER* NOT VALID
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00379 M01S00032.261l700 +++| VUN BSS 0 ENTRY 00380 M00S00269.0vj +++| 00381 M00S00270.0vj +++|* GET USER ACCOUNT BLOCK FOR SPECIFIED USER/FAMILY. 00382 M00S00271.0vj +++|
| Line S00272 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00383 M01S00272.261l700 ---|* LDN 0 VALIDATE USER NAME
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00384 M01S00033.261l700 +++| LDN 0 VALIDATE USER NAME 00385 M00S00273.0vj +++| STD UN+4 00386 M00S00274.0vj +++| LDC OVL0 SET LOAD ADDRESS 00387 M00S00275.0vj +++| RAD LA 00388 M00S00276.0vj +++| EXECUTE 0AV,* 00389 M00S00277.0vj +++| RJM. EXR
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00390 M01S00003.242l642 +++| MJN RVJX IF VALIDATION FILE INACCESSIBLE
| Line S00278 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00391 M01S00278.261l700 ---| LDC * RESET LOAD ADDRESS 00392 M01S00279.261l700 ---| VUJA EQU *-1 (SET IN *PRS*) 00393 M01S00280.261l700 ---| STD LA 00394 M00S00281.0vj +++| LDD T1 SET *0VU* PARAMETERS
| Line S00282 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00395 M01S00282.261l700 ---| STM UIDX
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00396 M01S00034.261l700 +++| STM UIDX-OVL0 00397 M00S00283.0vj +++| LDD T2
| Line S00284 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00398 M01S00284.261l700 ---| STM UIDX+1
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00399 M01S00035.261l700 +++| STM UIDX+1-OVL0 00400 M00S00285.0vj +++| LDD T4
| Line S00286 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00401 M01S00286.261l700 ---| STM SPUI
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00402 M01S00036.261l700 +++| STM SPUI-OVL0 00403 M00S00287.0vj +++| LDD T6
| Line S00288 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00404 M01S00288.261l700 ---| STM USCT
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00405 M01S00037.261l700 +++| STM USCT-OVL0 00406 M00S00289.0vj +++| LDD T3 SET USER BLOCK ADDRESS
| Line S00290 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00407 M01S00290.261l700 ---| STM VUJB
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00408 M01S00038.261l700 +++| STM VUNA-OVL0 00409 M00S00291.0vj +++| LDC 5*ARBS-1 COPY USER BLOCK TO BUFFER 00410 M00S00292.0vj +++| STD T6
| Line S00293 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00411 M01S00293.261l700 ---| VUJ1 LDM. *,T6 00412 M01S00294.261l700 ---| VUJB EQU *-1
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00413 M01S00039.261l700 +++| VUN1 LDM. *,T6 00414 M01S00040.261l700 +++| VUNA EQU *-1 00415 M00S00295.0vj +++| STM UBUF,T6 00416 M00S00296.0vj +++| SOD T6
| Line S00297 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00417 M01S00297.261l700 ---| PJN VUJ1 IF MORE BYTES TO MOVE
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00418 M01S00041.261l700 +++| PJN VUN1 IF MORE BYTES TO MOVE 00419 M01S00042.261l700 +++|* UJN EVU EXIT TO *0VU* 00420 M01S00043.261l700 +++| EVU SPACE 4,10 00421 M01S00044.261l700 +++|** EVU - EXECUTE *0VU*. 00422 M01S00045.261l700 +++|* 00423 M01S00046.261l700 +++|* EXIT TO *0VU*. 00424 M00S00298.0vj +++|
| Line S00299 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00425 M01S00299.261l700 ---|* VALIDATE USER AND JOB. 00426 M00S00300.0vj +++|
| Line S00301 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00427 M01S00301.261l700 ---| VUJ2 LDC OVL0 SET LOAD ADDRESS 00428 M01S00302.261l700 ---| RAD LA
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00429 M01S00047.261l700 +++| EVU BSS 0 ENTRY 00430 M00S00303.0vj +++| EXECUTE 0VU,* VALIDATE USER AND JOB 00431 M00S00304.0vj +++| RJM. EXR 00432 M00S00305.0vj +++|* LJM RVJX RETURN TO CALLER DIRECTLY FROM *0VU* 00433 M00S00306.0vj +++| SPACE 4,10 00434 M00S00307.0vj +++| LIST X 00435 M00S00308.0vj +++|*CALL COMS0VU 00436 M00S00309.0vj +++| LIST * 00437 M00S00310.0vj +++| SPACE 4,10
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00438 M01S00001.ns2601 +++|* OVERLAY/BUFFER ADDRESS ALLOCATION. 00439 M01S00002.ns2601 +++| 00440 M01S00003.ns2601 +++| 00441 M00S00311.0vj +++| OVL0 EQU *+5 *0AV*/*0VU* LOAD ADDRESS
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00442 M01S00004.ns2601 +++| UBUF EQU ZVJL-ARBS*5 USER BLOCK BUFFER FOR *0AV*/*0VU* 00443 M00S00312.0vj +++|
| Line S00313 Modification History | |
|---|---|
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00444 M01S00313.ns2601 ---| ERRNG ZVJL-OVL0-ZAVL *0AV* OVERFLOWS *0VJ* 00445 M01S00314.ns2601 ---| 00446 M01S00315.ns2601 ---| UBUF EQU OVL0+ZAVL USER BLOCK BUFFER 00447 M01S00316.ns2601 ---| 00448 M01S00317.ns2601 ---| ERRNG ZVJL-UBUF-ARBS*5 *UBUF* OVERFLOWS *0VJ*
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00449 M01S00005.ns2601 +++| ERRNG UBUF-OVL0-ZAVL *0AV* OVERFLOWS INTO *UBUF* 00450 M00S00318.0vj +++| ERRNG UBUF-OVL0-ZVUL *0VU* OVERFLOWS INTO *UBUF*
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00451 M01S00006.ns2601 +++| TITLE VALIDATE JOB COMMAND. 00452 M00S00319.0vj +++| VJC SPACE 4,10 00453 M00S00320.0vj +++|** VJC - VALIDATE JOB COMMAND.
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00454 M01S00048.261l700 +++|* 00455 M01S00049.261l700 +++|* EXIT TO *VUN* IF NO ERROR IN *USER* COMMAND. 00456 M01S00050.261l700 +++|* TO *EVU* IF ERROR IN *USER* COMMAND. 00457 M01S00051.261l700 +++|* 00458 M01S00052.261l700 +++|* USES CB. 00459 M01S00053.261l700 +++|* 00460 M01S00054.261l700 +++|* CALLS DPW, EVU, ISS, JCP, UCP, UCS, VUN. 00461 M00S00321.0vj +++| 00462 M00S00322.0vj +++| 00463 M00S00323.0vj +++| VJC BSS 0 ENTRY
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | tl0vj1 |
Seq # *Modification Id* Act ----------------------------+ 00464 M01S00002.tl0vj1 +++| LDI CN CHECK *IBM* JOB 00465 M01S00003.tl0vj1 +++| LMC 2R// 00466 M01S00004.tl0vj1 +++| NJN VJC0.1 IF NOT *IBM* JOB CARD 00467 M01S00005.tl0vj1 +++| 00468 M01S00006.tl0vj1 +++|* PROCESS *IBM* JOB CARD. 00469 M01S00007.tl0vj1 +++| 00470 M01S00008.tl0vj1 +++| LDC OIJ0 SET LOAD ADDRESS 00471 M01S00009.tl0vj1 +++| RAD LA 00472 M01S00010.tl0vj1 +++| EXECUTE 0IJ,* LOAD AND EXECUTE *0IJ* 00473 M01S00011.tl0vj1 +++| RJM. EXR 00474 M01S00012.tl0vj1 +++| LDC * RESTORE LOAD ADDRESS 00475 M01S00013.tl0vj1 +++| VJCA EQU *-1 (SET IN *PRS*) 00476 M01S00014.tl0vj1 +++| STD LA 00477 M01S00015.tl0vj1 +++| RJM ISS INITIALIZE SYSTEM SECTOR 00478 M01S00016.tl0vj1 +++| LJM RVJX RETURN 00479 M00S00324.0vj +++| 00480 M00S00325.0vj +++|* UNPACK JOB COMMAND. 00481 M00S00326.0vj +++|
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | tl0vj1 |
Seq # *Modification Id* Act ----------------------------+ 00482 M01S00017.tl0vj1 +++| VJC0.1 BSS 0 00483 M01S00018.tl0vj1 +++|*/I,355 00484 M00S00327.0vj +++| LDD CN
| Line S00328 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00485 M01S00328.v23l617 ---| STD T6
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00486 M01S00003.v23l617 +++| STD CB 00487 M00S00329.0vj +++| RJM UCS UNPACK JOB COMMAND 00488 M00S00330.0vj +++| NJN VJC1 IF NO ERROR 00489 M00S00331.0vj +++| AOM JCEF FLAG ERROR 00490 M00S00332.0vj +++| 00491 M00S00333.0vj +++|* PROCESS JOB COMMAND. 00492 M00S00334.0vj +++| 00493 M00S00335.0vj +++| VJC1 RJM JCP PROCESS JOB COMMAND ARGUMENTS 00494 M00S00336.0vj +++| 00495 M00S00337.0vj +++|* INITIALIZE SYSTEM SECTOR. 00496 M00S00338.0vj +++| 00497 M00S00339.0vj +++| RJM ISS INITIALIZE SYSTEM SECTOR 00498 M00S00340.0vj +++| 00499 M00S00341.0vj +++|* UNPACK AND CRACK USER COMMAND. 00500 M00S00342.0vj +++|
| Line S00343 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00501 M01S00343.ns2420 ---| LDM DLAT CHECK DLID ATTRIBUTES 00502 M01S00344.ns2420 ---| ZJN VJC2 IF NO DLID
| Line S00345 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00503 M02S00345.ns2420 ---| SHN 21-10
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00504 M02S00004.ns2420 ---| SHN 21-11
| Line S00346 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00505 M01S00346.ns2420 ---| PJN VJC4 IF VALIDATION NOT REQUIRED 00506 M01S00347.ns2420 ---| VJC2 RJM UCS UNPACK USER COMMAND
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00507 M01S00002.ns2420 +++| RJM UCS UNPACK USER COMMAND 00508 M00S00348.0vj +++| ZJN VJC4 IF ERROR IN USER COMMAND 00509 M00S00349.0vj +++| RJM UCP PROCESS USER COMMAND 00510 M00S00350.0vj +++| ZJN VJC4 IF ERROR 00511 M00S00351.0vj +++| RJM DPW DELETE PASSWORD FROM INPUT FILE
| Line S00352 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00512 M01S00352.261l700 ---| VJC3 LJM VUJ VALIDATE USER AND JOB
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00513 M01S00055.261l700 +++| VJC3 LJM VUN VALIDATE USER NAME 00514 M00S00353.0vj +++|
| Line S00354 Modification History | |
|---|---|
M01 (Removed by) | ns2243 |
Seq # *Modification Id* Act ----------------------------+ 00515 M01S00354.ns2243 ---| VJC4 AOM UCNV FLAG INVALID USER/FAMILY
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2243 |
M02 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00516 M02S00002.ns2420 ---| VJC4 AOM UCNV NO VALIDATION REQUIRED/*USER* NOT VALID
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00517 M02S00003.261l700 ---| VJC4 AOM UCNV *USER* NOT VALID
| Line S00355 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00518 M01S00355.261l700 ---| UJN VJC3 VALIDATE USER AND JOB
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00519 M01S00056.261l700 +++|* PROCESS ERROR IN *USER* COMMAND. 00520 M01S00057.261l700 +++| 00521 M01S00058.261l700 +++| VJC4 AOM UCNV SET *USER* NOT VALID 00522 M01S00059.261l700 +++| LDC OVL0 SET *0VU* LOAD ADDRESS 00523 M01S00060.261l700 +++| RAD LA 00524 M01S00061.261l700 +++| LJM EVU-OVL0 EXIT TO CALL *0VU*
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | tl0vj1 |
Seq # *Modification Id* Act ----------------------------+ 00525 M01S00019.tl0vj1 +++| OIJ0 SPACE 4,10 00526 M01S00020.tl0vj1 +++| OIJ0 EQU *+5 *0IJ* LOAD ADDRESS 00527 M00S00356.0vj +++| TITLE JOB COMMAND PROCESSOR. 00528 M00S00357.0vj +++| JCP SPACE 4,20 00529 M00S00358.0vj +++|** JCP - JOB COMMAND PROCESSOR. 00530 M00S00359.0vj +++|* 00531 M00S00360.0vj +++|* ENTRY (CA) = FWA OF CHARACTER STRING. 00532 M00S00361.0vj +++|* (JF) = JOB FIELD LENGTH.
| Line S00362 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00533 M01S00362.252l678 ---|* (JE) = JOB ECS FIELD LENGTH.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00534 M01S00006.252l678 +++|* (JE) = JOB EM FIELD LENGTH. 00535 M00S00363.0vj +++|* 00536 M00S00364.0vj +++|* EXIT (JF) = JOB FIELD LENGTH
| Line S00365 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00537 M01S00365.252l678 ---|* (JE) = JOB ECS FIELD LENGTH.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00538 M01S00007.252l678 +++|* (JE) = JOB EM FIELD LENGTH. 00539 M00S00366.0vj +++|*
| Line S00367 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00540 M01S00367.0vj2 ---|* USES LA, T7, CM - CM+4.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00541 M01S00004.0vj2 +++|* USES LA, T9, CM - CM+4. 00542 M00S00368.0vj +++|* 00543 M00S00369.0vj +++|* CALLS AEF, AFL, AJN, AST, ASV, ATL, CTS, CVS, ERR, GNC. 00544 M00S00370.0vj +++| 00545 M00S00371.0vj +++| 00546 M00S00372.0vj +++| JCP SUBR ENTRY/EXIT 00547 M00S00373.0vj +++| LDN ZERL CLEAR JOBNAME BUFFER 00548 M00S00374.0vj +++| CRM. JNSS,ON 00549 M00S00375.0vj +++| RJM AJN ASSEMBLE JOB NAME 00550 M00S00376.0vj +++| RJM CTS CHECK FOR TERMINATOR 00551 M00S00377.0vj +++| MJN JCPX IF TERMINATOR 00552 M00S00378.0vj +++| LDN 0 PRESET TABLE INDEX
| Line S00379 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00553 M01S00379.0vj2 ---| STD T7
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00554 M01S00005.0vj2 +++| STD T9 00555 M00S00380.0vj +++| RJM GNC GET FIRST ARGUMENT CHARACTER 00556 M00S00381.0vj +++| MJN JCPX IF TERMINATOR 00557 M00S00382.0vj +++| ZJN JCP5 IF SEPARATOR 00558 M00S00383.0vj +++| SBN 1R0 00559 M00S00384.0vj +++| PJN JCP5 IF NUMBER (ORDER DEPENDENT JOB COMMAND) 00560 M00S00385.0vj +++| LDD CA SAVE ARGUMENT FWA 00561 M00S00386.0vj +++| STD CM+4 00562 M00S00387.0vj +++| LDI CA CHECK FOR POSSIBLE SERVICE CLASS 00563 M00S00388.0vj +++| SHN 6 00564 M00S00389.0vj +++| STD CM 00565 M00S00390.0vj +++| RJM GNC GET NEXT CHARACTER 00566 M00S00391.0vj +++| MJN JCP2 IF TERMINATOR (NOT SERVICE CLASS) 00567 M00S00392.0vj +++| ZJN JCP2 IF SEPARATOR (NOT SERVICE CLASS) 00568 M00S00393.0vj +++| RAD CM 00569 M00S00394.0vj +++| RJM GNC GET NEXT CHARACTER 00570 M00S00395.0vj +++| MJN JCP1 IF TERMINATOR (POSSIBLE SERVICE CLASS) 00571 M00S00396.0vj +++| NJN JCP2 IF NOT SEPARATOR (NOT SERVICE CLASS) 00572 M00S00397.0vj +++| JCP1 RJM CVS CHECK FOR VALID SERVICE CLASS 00573 M00S00398.0vj +++| ZJN JCP4 IF ORDER DEPENDENT (VALID SERVICE CLASS) 00574 M00S00399.0vj +++| JCP2 LDD CM+4 RESET ARGUMENT ADDRESS 00575 M00S00400.0vj +++| STD CA 00576 M00S00401.0vj +++| LJM JCP9 PROCESS ORDER INDEPENDENT 00577 M00S00402.0vj +++| 00578 M00S00403.0vj +++|* PROCESS ORDER DEPENDENT ARGUMENTS. 00579 M00S00404.0vj +++| 00580 M00S00405.0vj +++| JCP3 RJM ERR SET ERROR STATUS 00581 M00S00406.0vj +++| UJP JCPX RETURN 00582 M00S00407.0vj +++| 00583 M00S00408.0vj +++| JCP4 LDD CM+4 RESET ARGUMENT ADDRESS 00584 M00S00409.0vj +++| STD CA
| Line S00410 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00585 M01S00410.0vj2 ---| JCP5 LDM TJCP+1,T7
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00586 M01S00006.0vj2 +++| JCP5 LDM TJCP+1,T9 00587 M00S00411.0vj +++| ZJN JCP3 IF END OF TABLE (TOO MANY ARGUMENTS) 00588 M00S00412.0vj +++| STM JCPB SET PROCESSOR ADDRESS 00589 M00S00413.0vj +++| RJM CTS CHECK FOR SEPARATOR 00590 M00S00414.0vj +++| ZJN JCP6 IF SEPARATOR (NULL ARGUMENT) 00591 M00S00415.0vj +++| LDC. TJCP+2 SET LIMITS
| Line S00416 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00592 M01S00416.0vj2 ---| ADD T7
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00593 M01S00007.0vj2 +++| ADD T9 00594 M00S00417.0vj +++| STM JCPA 00595 M00S00418.0vj +++| LDD MA 00596 M00S00419.0vj +++| CWM TJCP+2,ON 00597 M00S00420.0vj +++| JCPA EQU *-1 00598 M00S00421.0vj +++| SBN 1 00599 M00S00422.0vj +++| CRD CM 00600 M00S00423.0vj +++| RJM * PROCESS ARGUMENT 00601 M00S00424.0vj +++| JCPB EQU *-1 00602 M00S00425.0vj +++| RJM CTS CHECK FOR TERMINATOR 00603 M00S00426.0vj +++| MJP JCPX IF TERMINATOR 00604 M00S00427.0vj +++| JCP6 RJM GNC SKIP SEPARATOR 00605 M00S00428.0vj +++| LDN TJCPE INCREMENT INDEX
| Line S00429 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00606 M01S00429.0vj2 ---| RAD T7
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00607 M01S00008.0vj2 +++| RAD T9 00608 M00S00430.0vj +++| UJN JCP5 PROCESS NEXT ARGUMENT 00609 M00S00431.0vj +++| 00610 M00S00432.0vj +++|* PROCESS ORDER INDEPENDENT ARGUMENTS. 00611 M00S00433.0vj +++| 00612 M00S00434.0vj +++| JCP7 RJM ERR SET ERROR / SKIP TO END OF ARGUMENT 00613 M00S00435.0vj +++| JCP8 LDN 0 PROCESS NEXT ARGUMENT
| Line S00436 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00614 M01S00436.0vj2 ---| STD T7
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00615 M01S00009.0vj2 +++| STD T9 00616 M00S00437.0vj +++| RJM CTS CHECK FOR TERMINATOR 00617 M00S00438.0vj +++| MJP JCPX IF TERMINATOR 00618 M00S00439.0vj +++| RJM GNC SKIP SEPARATOR 00619 M00S00440.0vj +++| JCP9 LDI CA ASSEMBLE ARGUMENT MNEMONIC 00620 M00S00441.0vj +++| STD CM 00621 M00S00442.0vj +++| RJM GNC 00622 M00S00443.0vj +++| MJN JCP7 IF TERMINATOR 00623 M00S00444.0vj +++| SHN 6 00624 M00S00445.0vj +++| RAD CM
| Line S00446 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00625 M01S00446.0vj2 ---| JCP10 LDM TJCP,T7
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00626 M01S00010.0vj2 +++| JCP10 LDM TJCP,T9 00627 M00S00447.0vj +++| ZJN JCP12 IF ARGUMENT NOT FOUND IN TABLE 00628 M00S00448.0vj +++| LMD CM 00629 M00S00449.0vj +++| ZJN JCP13 IF TWO-CHARACTER ARGUMENT FOUND 00630 M00S00450.0vj +++| LDD CM 00631 M00S00451.0vj +++| LPN 77
| Line S00452 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00632 M01S00452.0vj2 ---| LMM TJCP,T7
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00633 M01S00011.0vj2 +++| LMM TJCP,T9 00634 M00S00453.0vj +++| ZJN JCP14 IF ONE-CHARACTER ARGUMENT FOUND 00635 M00S00454.0vj +++| LDN TJCPE INCREMENT INDEX
| Line S00455 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00636 M01S00455.0vj2 ---| RAD T7
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00637 M01S00012.0vj2 +++| RAD T9 00638 M00S00456.0vj +++| UJN JCP10 CHECK NEXT ARGUMENT IN TABLE 00639 M00S00457.0vj +++| 00640 M00S00458.0vj +++| JCP11 UJP JCP7 PROCESS ERROR 00641 M00S00459.0vj +++| 00642 M00S00460.0vj +++| JCP12 LDC 2RCS CHECK FOR *SC* IF UNKNOWN ARGUMENT FOUND 00643 M00S00461.0vj +++| LMD CM 00644 M00S00462.0vj +++| NJN JCP11 IF UNKNOWN ARGUMENT NOT *SC*
| Line S00463 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00645 M01S00463.0vj2 ---| STD T7 SET TABLE INDEX FOR *P* ARGUMENT 00646 M01S00464.0vj2 ---| LDM TJCP,T7
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00647 M01S00013.0vj2 +++| STD T9 SET TABLE INDEX FOR *P* ARGUMENT 00648 M01S00014.0vj2 +++| LDM TJCP,T9 00649 M00S00465.0vj +++| LMC 7777 00650 M00S00466.0vj +++| ZJN JCP11 IF *P* OR *SC* ALREADY SPECIFIED 00651 M00S00467.0vj +++| JCP13 RJM GNC GET FIRST CHARACTER OF ARGUMENT VALUE 00652 M00S00468.0vj +++| JCP14 RJM CTS CHECK FOR EQUIVALENCED ARGUMENT 00653 M00S00469.0vj +++| MJN JCP11 IF TERMINATOR 00654 M00S00470.0vj +++| NJN JCP15 IF NOT SEPARATOR 00655 M00S00471.0vj +++| LDI CA 00656 M00S00472.0vj +++| LMN 1R= 00657 M00S00473.0vj +++| NJN JCP11 IF SEPARATOR OTHER THAN EQUAL SIGN 00658 M00S00474.0vj +++| RJM GNC SKIP EQUAL SIGN
| Line S00475 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00659 M01S00475.0vj2 ---| JCP15 LDM TJCP+1,T7
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00660 M01S00015.0vj2 +++| JCP15 LDM TJCP+1,T9 00661 M00S00476.0vj +++| STM JCPD 00662 M00S00477.0vj +++| LDC. TJCP+2 SET LIMITS
| Line S00478 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00663 M01S00478.0vj2 ---| ADD T7
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00664 M01S00016.0vj2 +++| ADD T9 00665 M00S00479.0vj +++| STM JCPC 00666 M00S00480.0vj +++| LDD MA 00667 M00S00481.0vj +++| CWM TJCP+2,ON 00668 M00S00482.0vj +++| JCPC EQU *-1 00669 M00S00483.0vj +++| SBN 1 00670 M00S00484.0vj +++| CRD CM 00671 M00S00485.0vj +++| LCN 0 SET ARGUMENT PROCESSED
| Line S00486 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00672 M01S00486.0vj2 ---| STM TJCP,T7
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00673 M01S00017.0vj2 +++| STM TJCP,T9 00674 M00S00487.0vj +++| RJM * PROCESS ARGUMENT 00675 M00S00488.0vj +++| JCPD EQU *-1 00676 M00S00489.0vj +++| LJM JCP8 PROCESS NEXT ARGUMENT 00677 M00S00490.0vj +++| TJCP SPACE 4,30 00678 M00S00491.0vj +++|** TJCP - TABLE OF JOB COMMAND ARGUMENT PROCESSORS. 00679 M00S00492.0vj +++|* 00680 M00S00493.0vj +++|*T 12/MN
Figure
00681 M00S00494.0vj +++|*T, 12/ADDR
Figure
00682 M00S00495.0vj +++|*T, 12/DIGITS
Figure
00683 M00S00496.0vj +++|*T, 24/VALUE
Figure
00684 M00S00497.0vj +++|*T, 12/BASE
Figure
00685 M00S00498.0vj +++|* 00686 M00S00499.0vj +++|* MN = MNEMONIC. 00687 M00S00500.0vj +++|* ADDR = ADDRESS. 00688 M00S00501.0vj +++|* DIGITS = MAXIMUM NUMBER OF DIGITS PLUS ONE. 00689 M00S00502.0vj +++|* VALUE = MAXIMUM DECIMAL VALUE. 00690 M00S00503.0vj +++|* BASE = BASE FOR CONVERSION. 00691 M00S00504.0vj +++|* 0 = OCTAL. 00692 M00S00505.0vj +++|* 1 = DECIMAL. 00693 M00S00506.0vj +++| 00694 M00S00507.0vj +++| 00695 M00S00508.0vj +++| TJCP BSS 0 00696 M00S00509.0vj +++| JCARG P,ASV,3,7 SERVICE CLASS 00697 M00S00510.0vj +++| TJCPE EQU *-TJCP LENGTH OF ENTRY 00698 M00S00511.0vj +++| JCARG T,ATL,6,32760D,DECIMAL JOB TIME LIMIT PROCESSOR 00699 M00S00512.0vj +++| JCARG MC,AFL,7,131008D JOB FL PROCESSOR
| Line S00513 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00700 M01S00513.252l678 ---| JCARG CE,AEF,5,2047D JOB ECS FL PROCESSOR
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00701 M01S00008.252l678 +++| JCARG CE,AEF,6,32760D JOB EM FL PROCESSOR 00702 M00S00514.0vj +++| JCARG TS,AST,4,0 LID PROCESSOR 00703 M00S00515.0vj +++| JCARG LA,AAL,10B,0 ACCESS LEVEL PROCESSOR 00704 M00S00516.0vj +++| CON 0,0 END OF TABLE 00705 M00S00517.0vj +++| TITLE JOB COMMAND ARGUMENT PROCESSORS. 00706 M00S00518.0vj +++| AAL SPACE 4,15 00707 M00S00519.0vj +++|** AAL - ASSEMBLE ACCESS LEVEL. 00708 M00S00520.0vj +++|* 00709 M00S00521.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS. 00710 M00S00522.0vj +++|*
| Line S00523 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00711 M01S00523.v23l617 ---|* EXIT (JCAL) = (UALL) = SPECIFIED ACCESS LEVEL.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00712 M01S00005.v23l617 +++|* EXIT (SCAL - SCAL+4) = ACCESS LEVEL STRING. VALIDATION 00713 M01S00006.v23l617 +++|* WILL BE DONE IN *0VU*. 00714 M00S00524.0vj +++|* 00715 M00S00525.0vj +++|* USES T1, CM - CM+4. 00716 M00S00526.0vj +++|*
| Line S00527 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00717 M01S00527.v23l617 ---|* CALLS ERR, PAC, VAL.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00718 M01S00007.v23l617 +++|* CALLS ERR, PAC. 00719 M00S00528.0vj +++| 00720 M00S00529.0vj +++|
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00721 M01S00008.v23l617 +++| AAL1 RJM ERR SET ERROR STATUS 00722 M01S00009.v23l617 +++| 00723 M00S00530.0vj +++| AAL SUBR ENTRY/EXIT 00724 M00S00531.0vj +++| LDN 1R* ALLOW ASTERISK IN ACCESS LEVEL 00725 M00S00532.0vj +++| STD T1 00726 M00S00533.0vj +++| LDN ZERL CLEAR BUFFER 00727 M00S00534.0vj +++| CRD CM 00728 M00S00535.0vj +++| LDN CM GET ACCESS LEVEL STRING 00729 M00S00536.0vj +++| RJM PAC 00730 M00S00537.0vj +++| ZJN AAL1 IF INCORRECT ACCESS LEVEL STRING
| Line S00538 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00731 M01S00538.v23l617 ---| LDN CM VALIDATE ACCESS LEVEL 00732 M01S00539.v23l617 ---| RJM VAL 00733 M01S00540.v23l617 ---| MJN AAL1 IF INCORRECT ACCESS LEVEL 00734 M01S00541.v23l617 ---| STM UALL SAVE ACCESS LEVEL 00735 M01S00542.v23l617 ---| STM JCAL
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00736 M01S00010.v23l617 +++| LDD MA SAVE ACCESS LEVEL 00737 M01S00011.v23l617 +++| CWD CM 00738 M01S00012.v23l617 +++| CRM SCAL,ON 00739 M00S00543.0vj +++| UJN AALX RETURN
| Line S00544 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00740 M01S00544.v23l617 ---| 00741 M01S00545.v23l617 ---| AAL1 RJM ERR SET ERROR STATUS 00742 M01S00546.v23l617 ---| UJN AALX RETURN 00743 M00S00547.0vj +++| AEF SPACE 4,20
| Line S00548 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00744 M01S00548.252l678 ---|** AEF - ASSEMBLE ECS FIELD LENGTH.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00745 M01S00009.252l678 +++|** AEF - ASSEMBLE EXTENDED MEMORY FIELD LENGTH. 00746 M00S00549.0vj +++|* 00747 M00S00550.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS. 00748 M00S00551.0vj +++|* (CM) = MAXIMUM NUMBER OF DIGITS PLUS ONE. 00749 M00S00552.0vj +++|* (CM+1 - CM+2) = MAXIMUM DECIMAL VALUE. 00750 M00S00553.0vj +++|* (CM+3) = BASE FOR CONVERSION.
| Line S00554 Modification History | |
|---|---|
M01 (Removed by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00751 M01S00554.ns2184 ---|* (AEFA) = MAXIMUM ECS FL / 1000B.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2184 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00752 M02S00001.252l678 ---|* (AEFA) = MAXIMUM ECS FL / *UEBS*.
| Line S00555 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00753 M01S00555.252l678 ---|* 00754 M01S00556.252l678 ---|* EXIT (JE) = ECS FIELD LENGTH IN 1000 WORD BLOCKS.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00755 M01S00010.252l678 +++|* (AEFC) = MAXIMUM EM FL/*UEBS*. 00756 M01S00011.252l678 +++|* 00757 M01S00012.252l678 +++|* EXIT (JE) = EM FIELD LENGTH/*UEBS*. 00758 M00S00557.0vj +++|* 00759 M00S00558.0vj +++|* USES JE. 00760 M00S00559.0vj +++|* 00761 M00S00560.0vj +++|* CALLS ASD, ERR. 00762 M00S00561.0vj +++| 00763 M00S00562.0vj +++| 00764 M00S00563.0vj +++| AEF SUBR ENTRY/EXIT 00765 M00S00564.0vj +++| RJM ASD ASSEMBLE DIGITS 00766 M00S00565.0vj +++| MJN AEFX IF ERROR IN ASSEMBLY
| Line S00566 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00767 M01S00566.252l678 ---| STD JE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2184 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00768 M02S00002.252l678 ---| LDN 3 ROUND BY BLOCKING FACTOR 00769 M02S00003.252l678 ---| SHN UESF-2 00770 M02S00004.252l678 ---| ADD JE 00771 M02S00005.252l678 ---| SHN -UESF
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00772 M01S00013.252l678 +++| AEFA ADN 0 00773 M01S00014.252l678 +++|* ADN 17 (ROUND UP TO BLOCKING FACTOR) 00774 M01S00015.252l678 +++| AEFB SHN 0 00775 M01S00016.252l678 +++|* SHN -UESC
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00776 M01S00006.ns2184 +++| STD JE
| Line S00567 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00777 M01S00567.252l678 ---| LDC * GET MAXIMUM ECS FIELD LENGTH 00778 M01S00568.252l678 ---| AEFA EQU *-1 (MAXIMUM ECS FL)
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00779 M01S00017.252l678 +++| LDC * GET MAXIMUM EM FIELD LENGTH 00780 M01S00018.252l678 +++| AEFC EQU *-1 (MAXIMUM EM FL) 00781 M00S00569.0vj +++| SBD JE 00782 M00S00570.0vj +++| MJN AEF1 IF INSUFFICIENT ROOM 00783 M00S00571.0vj +++| LDC 3777 00784 M00S00572.0vj +++| SBD JE
| Line S00573 Modification History | |
|---|---|
M01 (Removed by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00785 M01S00573.ns2184 ---| PJN AEFX IF FLX .LT. 3777000
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00786 M01S00007.ns2184 +++| PJN AEFX IF FLE .LT. 3777B *UEBS* BLOCKS 00787 M00S00574.0vj +++| AEF1 RJM ERR SET ERROR STATUS 00788 M00S00575.0vj +++| UJN AEFX RETURN 00789 M00S00576.0vj +++| AFL SPACE 4,15 00790 M00S00577.0vj +++|** AFL - ASSEMBLE CM FIELD LENGTH. 00791 M00S00578.0vj +++|* 00792 M00S00579.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS. 00793 M00S00580.0vj +++|* (CM) = MAXIMUM NUMBER OF DIGITS PLUS ONE. 00794 M00S00581.0vj +++|* (CM+1 - CM+2) = MAXIMUM DECIMAL VALUE. 00795 M00S00582.0vj +++|* (CM+3) = BASE FOR CONVERSION. 00796 M00S00583.0vj +++|* (AFLA) = MAXIMUM CM FL / 100B. 00797 M00S00584.0vj +++|* 00798 M00S00585.0vj +++|* EXIT (JF) = FIELD LENGTH ROUNDED UP TO NEXT MULTIPLE OF 100. 00799 M00S00586.0vj +++|* (CA) = CHARACTER ADDRESS. 00800 M00S00587.0vj +++|*
| Line S00588 Modification History | |
|---|---|
M01 (Removed by) | 0vj6 |
Seq # *Modification Id* Act ----------------------------+ 00801 M01S00588.0vj6 ---|* USES JF, T1.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 0vj6 |
Seq # *Modification Id* Act ----------------------------+ 00802 M01S00001.0vj6 +++|* USES JF. 00803 M00S00589.0vj +++|* 00804 M00S00590.0vj +++|* CALLS ASD, ERR. 00805 M00S00591.0vj +++| 00806 M00S00592.0vj +++| 00807 M00S00593.0vj +++| AFL SUBR ENTRY/EXIT 00808 M00S00594.0vj +++| RJM ASD ASSEMBLE DIGITS 00809 M00S00595.0vj +++| MJN AFLX IF ERROR IN ASSEMBLY 00810 M00S00596.0vj +++| ZJN AFL1 IF ZERO 00811 M00S00597.0vj +++| ADN 77 ROUND TO NEXT 100 00812 M00S00598.0vj +++| SHN -6 SET FIELD LENGTH
| Line S00599 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00813 M01S00599.0vj2 ---| ADN DNFL 00814 M00S00600.0vj +++| STD JF
| Line S00601 Modification History | |
|---|---|
M01 (Removed by) | 0vj6 |
Seq # *Modification Id* Act ----------------------------+ 00815 M01S00601.0vj6 ---| LDD OT SET ORIGIN TYPE 00816 M01S00602.0vj6 ---| STD T1 00817 M00S00603.0vj +++| LDC * GET MAXIMUM FIELD LENGTH 00818 M00S00604.0vj +++| AFLA EQU *-1 (MAXIMUM CM FL)
| Line S00605 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00819 M01S00605.0vj2 ---| ADN DNFL 00820 M00S00606.0vj +++| SBD JF 00821 M00S00607.0vj +++| MJN AFL1 IF INSUFFICIENT ROOM
| Line S00608 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00822 M01S00608.0vj2 ---| LDC 3777+DNFL-MNFL
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 00823 M01S00018.0vj2 +++| LDC 3777-MNFL 00824 M00S00609.0vj +++| SBD JF 00825 M00S00610.0vj +++| PJN AFLX IF FL .LT. 377700 00826 M00S00611.0vj +++| AFL1 RJM ERR SET ERROR STATUS 00827 M00S00612.0vj +++| UJN AFLX RETURN 00828 M00S00613.0vj +++| AJN SPACE 4,10 00829 M00S00614.0vj +++|** AJN - ASSEMBLE JOB NAME. 00830 M00S00615.0vj +++|* 00831 M00S00616.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS. 00832 M00S00617.0vj +++|* 00833 M00S00618.0vj +++|* EXIT (JNSS - JNSS+3) = JOB COMMAND NAME (USER JOB NAME). 00834 M00S00619.0vj +++|* (CA) = CHARACTER ADDRESS. 00835 M00S00620.0vj +++|* 00836 M00S00621.0vj +++|* CALLS ERR, PAC. 00837 M00S00622.0vj +++| 00838 M00S00623.0vj +++|
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00839 M01S00013.v23l617 +++|* PROCESS BAD UJN. 00840 M01S00014.v23l617 +++| 00841 M01S00015.v23l617 +++| AJN3 LDN ZERL SET SPECIAL UJN 00842 M01S00016.v23l617 +++| CRM. JNSS,ON 00843 M01S00017.v23l617 +++| LDC 2RXX 00844 M01S00018.v23l617 +++| STM. JNSS 00845 M01S00019.v23l617 +++| STM. JNSS+1 00846 M01S00020.v23l617 +++| RJM ERR SET ERROR STATUS 00847 M01S00021.v23l617 +++| 00848 M00S00624.0vj +++| AJN SUBR ENTRY/EXIT 00849 M00S00625.0vj +++| LDN 0 00850 M00S00626.0vj +++| STD T1 00851 M00S00627.0vj +++| LDC JNSS ASSEMBLE JOB COMMAND NAME 00852 M00S00628.0vj +++| RJM PAC 00853 M00S00629.0vj +++| ZJN AJN3 IF TOO MANY CHARACTERS 00854 M00S00630.0vj +++| AJN2 LDM. JNSS CHECK FIRST CHARACTER 00855 M00S00631.0vj +++| SHN -6 00856 M00S00632.0vj +++| ZJN AJN3 IF NO CHARACTER
| Line S00633 Modification History | |
|---|---|
M01 (Removed by) | 0vj3 |
Seq # *Modification Id* Act ----------------------------+ 00857 M01S00633.0vj3 ---| SBN 1R0 00858 M01S00634.0vj3 ---| MJN AJNX IF ALPHA
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 0vj3 |
Seq # *Modification Id* Act ----------------------------+ 00859 M01S00001.0vj3 +++| SBN 1R+ 00860 M01S00002.0vj3 +++| MJN AJNX IF ALPHANUMERIC
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00861 M01S00022.v23l617 +++| UJN AJN3 PROCESS BAD UJN
| Line S00635 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00862 M01S00635.v23l617 ---| 00863 M01S00636.v23l617 ---|* PROCESS BAD UJN. 00864 M01S00637.v23l617 ---| 00865 M01S00638.v23l617 ---| AJN3 LDN ZERL SET SPECIAL UJN 00866 M01S00639.v23l617 ---| CRM. JNSS,ON 00867 M01S00640.v23l617 ---| LDC 2R** 00868 M01S00641.v23l617 ---| STM. JNSS 00869 M01S00642.v23l617 ---| STM. JNSS+1 00870 M01S00643.v23l617 ---| RJM ERR SET ERROR STATUS 00871 M01S00644.v23l617 ---| UJN AJNX RETURN 00872 M00S00645.0vj +++| AST SPACE 4,15 00873 M00S00646.0vj +++|** AST - ASSEMBLE ST (DESTINATION LID). 00874 M00S00647.0vj +++|* 00875 M00S00648.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS. 00876 M00S00649.0vj +++|* 00877 M00S00650.0vj +++|* EXIT (DLID - DLID+1) = LID.
| Line S00651 Modification History | |
|---|---|
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00878 M01S00651.ns2601 ---|* (DLAT) = LID ATTRIBUTES. 00879 M00S00652.0vj +++|* 00880 M00S00653.0vj +++|* USES T1, CM - CM+4. 00881 M00S00654.0vj +++|* 00882 M00S00655.0vj +++|* CALLS ERR, PAC. 00883 M00S00656.0vj +++| 00884 M00S00657.0vj +++| 00885 M00S00658.0vj +++| AST2 LDN 10-3 LID MUST BE 3 CHARACTERS LONG 00886 M00S00659.0vj +++| SBD T3 00887 M00S00660.0vj +++| NJN AST1 IF ILLEGAL LENGTH
| Line S00661 Modification History | |
|---|---|
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00888 M01S00661.ns2601 ---| LDD CM+1 VALIDATE LID
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00889 M01S00007.ns2601 +++| LDD CM+1 STORE LID 00890 M00S00662.0vj +++| SCN 77 00891 M00S00663.0vj +++| STM DLID+1
| Line S00664 Modification History | |
|---|---|
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00892 M01S00664.ns2601 ---| SHN 6 00893 M01S00665.ns2601 ---| LMD CM
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00894 M01S00008.ns2601 +++| LDD CM 00895 M00S00666.0vj +++| STM DLID
| Line S00667 Modification History | |
|---|---|
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00896 M01S00667.ns2601 ---| SHN 6 00897 M01S00668.ns2601 ---| RJM VID VALIDATE LID 00898 M01S00669.ns2601 ---| ZJN AST1 IF NOT VALID LID 00899 M01S00670.ns2601 ---| ASTA STM DLAT SAVE DLID ATTRIBUTES 00900 M01S00671.ns2601 ---|* PSN (IF DLID SPECIFIED ON ENTRY) 00901 M00S00672.0vj +++| 00902 M00S00673.0vj +++| AST SUBR 00903 M00S00674.0vj +++| LDN 0 DO NOT ALLOW ASTERISK IN LID 00904 M00S00675.0vj +++| STD T1 00905 M00S00676.0vj +++| LDN ZERL CLEAR BUFFER 00906 M00S00677.0vj +++| CRD CM 00907 M00S00678.0vj +++| LDN CM 00908 M00S00679.0vj +++| RJM PAC PACK LOGICAL ID 00909 M00S00680.0vj +++| NJN AST2 IF OK
| Line S00681 Modification History | |
|---|---|
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00910 M01S00681.ns2601 ---| AST1 LDN 0 CLEAR DLID 00911 M01S00682.ns2601 ---| STM DLID 00912 M01S00683.ns2601 ---| STM DLID+1 00913 M01S00684.ns2601 ---| LDN IDIE SET *ILLEGAL LID* ERROR CODE
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00914 M01S00009.ns2601 +++| AST1 LDN IDIE SET *ILLEGAL LID* ERROR CODE 00915 M00S00685.0vj +++| STM JCEC 00916 M00S00686.0vj +++| RJM ERR SET ERROR STATUS 00917 M00S00687.0vj +++| UJN ASTX RETURN 00918 M00S00688.0vj +++| ASV SPACE 4,15 00919 M00S00689.0vj +++|** ASV - ASSEMBLE SERVICE CLASS. 00920 M00S00690.0vj +++|* 00921 M00S00691.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS. 00922 M00S00692.0vj +++|* 00923 M00S00693.0vj +++|* EXIT (JCSC) = SERVICE CLASS SELECTED ON JOB COMMAND. 00924 M00S00694.0vj +++|* (JCSC) = 0, IF NO SERVICE CLASS SPECIFIED. 00925 M00S00695.0vj +++|* 00926 M00S00696.0vj +++|* USES T1, T2, CM - CM+4. 00927 M00S00697.0vj +++|* 00928 M00S00698.0vj +++|* CALLS CVS, ERR, PAC. 00929 M00S00699.0vj +++| 00930 M00S00700.0vj +++| 00931 M00S00701.0vj +++| ASV4 RJM ERR SET ERROR STATUS 00932 M00S00702.0vj +++| LDK USIE SET UNDEFINED SERVICE CLASS ERROR CODE 00933 M00S00703.0vj +++| STM JCEC 00934 M00S00704.0vj +++| 00935 M00S00705.0vj +++| ASV SUBR ENTRY/EXIT 00936 M00S00706.0vj +++| LDN ZERL CLEAR BUFFER 00937 M00S00707.0vj +++| CRD CM 00938 M00S00708.0vj +++| LDN 0 DO NOT ALLOW ASTERISK IN SERVICE CLASS 00939 M00S00709.0vj +++| STD T1 00940 M00S00710.0vj +++| LDN CM 00941 M00S00711.0vj +++| RJM PAC PACK CHARACTER STRING 00942 M00S00712.0vj +++| ZJN ASV4 IF ERROR 00943 M00S00713.0vj +++| LDN 10-2 00944 M00S00714.0vj +++| SBD T3 00945 M00S00715.0vj +++| ZJN ASV3 IF SERVICE CLASS SPECIFIED 00946 M00S00716.0vj +++| ADN 1 00947 M00S00717.0vj +++| NJN ASV4 IF NOT PRIORITY LEVEL SERVICE CLASS 00948 M00S00718.0vj +++| LDD CM 00949 M00S00719.0vj +++| SHN -6 00950 M00S00720.0vj +++| SBN 1R0 00951 M00S00721.0vj +++| ASV1 MJN ASV4 IF ALPHABETIC CHARACTER 00952 M00S00722.0vj +++| STD T1 00953 M00S00723.0vj +++| SBN 10 00954 M00S00724.0vj +++| PJN ASV4 IF INVALID PRIORITY LEVEL 00955 M00S00725.0vj +++| LDN 2 00956 M00S00726.0vj +++| STD T2 00957 M00S00727.0vj +++| LDK JBCP GET ADDRESS OF *SCT* 00958 M00S00728.0vj +++| CRD CM 00959 M00S00729.0vj +++| LDD CM GET PRIORITY LEVEL SERVICE CLASS 00960 M00S00730.0vj +++| SHN 14 00961 M00S00731.0vj +++| ADD CM+1 00962 M00S00732.0vj +++| ADN PLSC 00963 M00S00733.0vj +++| CRM SBUF,T2 00964 M00S00734.0vj +++| LDM SBUF,T1 00965 M00S00735.0vj +++| STD CM 00966 M00S00736.0vj +++| NJN ASV3 IF SERVICE CLASS SPECIFIED 00967 M00S00737.0vj +++| ASV2 STM JCSC SELECT USER DEFAULT 00968 M00S00738.0vj +++| UJP ASVX RETURN 00969 M00S00739.0vj +++| 00970 M00S00740.0vj +++| ASV3 RJM CVS CHECK FOR VALID SERVICE CLASS 00971 M00S00741.0vj +++| MJN ASV1 IF NOT VALID 00972 M00S00742.0vj +++| LDD T2 SET SERVICE CLASS 00973 M00S00743.0vj +++| UJN ASV2 SET SERVICE CLASS 00974 M00S00744.0vj +++| ATL SPACE 4,10 00975 M00S00745.0vj +++|** ATL - ASSEMBLE TIME LIMIT. 00976 M00S00746.0vj +++|* 00977 M00S00747.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS. 00978 M00S00748.0vj +++|* (CM) = MAXIMUM NUMBER OF DIGITS PLUS ONE. 00979 M00S00749.0vj +++|* (CM+1 - CM+2) = MAXIMUM DECIMAL VALUE. 00980 M00S00750.0vj +++|* (CM+3) = BASE FOR CONVERSION. 00981 M00S00751.0vj +++|* 00982 M00S00752.0vj +++|* EXIT (JTSS - JTSS+1) = JOB STEP TIME LIMIT. 00983 M00S00753.0vj +++|* 00984 M00S00754.0vj +++|* CALLS ASD, ERR. 00985 M00S00755.0vj +++| 00986 M00S00756.0vj +++| 00987 M00S00757.0vj +++| ATL1 RJM ERR SET ERROR STATUS 00988 M00S00758.0vj +++| 00989 M00S00759.0vj +++| ATL SUBR ENTRY/EXIT 00990 M00S00760.0vj +++| RJM ASD ASSEMBLE DIGITS 00991 M00S00761.0vj +++| MJN ATLX IF ERROR IN ASSEMBLY 00992 M00S00762.0vj +++| ZJN ATL1 IF ZERO TIME LIMIT SPECIFIED 00993 M00S00763.0vj +++| STM. JTSS+1 SET JOB STEP TIME LIMIT 00994 M00S00764.0vj +++| SHN -14 00995 M00S00765.0vj +++| STM. JTSS 00996 M00S00766.0vj +++| UJN ATLX RETURN 00997 M00S00767.0vj +++| TITLE USER COMMAND PROCESSOR. 00998 M00S00768.0vj +++| UCP SPACE 4,20 00999 M00S00769.0vj +++|** UCP - USER COMMAND PROCESSOR. 01000 M00S00770.0vj +++|* 01001 M00S00771.0vj +++|* ENTRY USER COMMAND IN STRING BUFFER. 01002 M00S00772.0vj +++|* (CA) = FWA OF STRING BUFFER. 01003 M00S00773.0vj +++|* 01004 M00S00774.0vj +++|* EXIT (A) = 0, IF ERROR IN USER COMMAND. 01005 M00S00775.0vj +++|* (CN - CN+4) = FAMILY NAME. 01006 M00S00776.0vj +++|* (UN - UN+4) = USER NAME. 01007 M00S00777.0vj +++|* (PSWD - PSWD+3) = PASSWORD. 01008 M00S00778.0vj +++|* (FWPW) = FWA OF PASSWORD IN STRING BUFFER. 01009 M00S00779.0vj +++|* (LWPW) = LWA+1 OF PASSWORD IN STRING BUFFER. 01010 M00S00780.0vj +++|* FAMILY NAME AND USER NAME SET IN SYSTEM SECTOR. 01011 M00S00781.0vj +++|*
| Line S00782 Modification History | |
|---|---|
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 01012 M01S00782.0vj2 ---|* USES CA, T1, T3, T7, CN - CN+4, UN - UN+4.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act ----------------------------+ 01013 M01S00019.0vj2 +++|* USES CA, T1, T3, CN - CN+4, UN - UN+4. 01014 M00S00783.0vj +++|* 01015 M00S00784.0vj +++|* CALLS CCS, CTS, GNC, PAC. 01016 M00S00785.0vj +++| 01017 M00S00786.0vj +++|
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01018 M01S00062.261l700 +++| UCP10 LDN 0 SET ERROR STATUS 01019 M01S00063.261l700 +++| 01020 M00S00787.0vj +++| UCP SUBR ENTRY/EXIT 01021 M00S00788.0vj +++| LDN ZERL CLEAR ASSEMBLY BUFFERS
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01022 M01S00064.261l700 +++| CRD CM 01023 M00S00789.0vj +++| CRD UN 01024 M00S00790.0vj +++| CRD CN 01025 M00S00791.0vj +++| CRM PSWD,ON 01026 M00S00792.0vj +++| 01027 M00S00793.0vj +++|* VALIDATE KEYWORD. 01028 M00S00794.0vj +++| 01029 M00S00795.0vj +++| LDI CA 01030 M00S00796.0vj +++| LMN 1R$ 01031 M00S00797.0vj +++| ZJN UCP1 IF $ PRESENT 01032 M00S00798.0vj +++| LMN 1R$&1R/ 01033 M00S00799.0vj +++| NJN UCP2 IF / NOT PRESENT
| Line S00800 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01034 M01S00800.261l700 ---| UCP1 RJM GNC SKIP $ OR / 01035 M01S00801.261l700 ---| UCP2 LDD CA SAVE BASE ADDRESS OF COMMAND 01036 M01S00802.261l700 ---| STD T3 01037 M01S00803.261l700 ---| LDC. UCPA COMPARE FOR *ACCOUNT* COMMAND 01038 M01S00804.261l700 ---| RJM CCS 01039 M01S00805.261l700 ---| ZJN UCP5 IF VALID *ACCOUNT* COMMAND 01040 M01S00806.261l700 ---| LDD T3 RESET BASE ADDRESS OF COMMAND 01041 M01S00807.261l700 ---| STD CA 01042 M01S00808.261l700 ---| LDC. UCPB COMPARE FOR *USER* COMMAND 01043 M01S00809.261l700 ---| RJM CCS 01044 M01S00810.261l700 ---| ZJN UCP5 IF VALID *USER* COMMAND 01045 M01S00811.261l700 ---| UCP3 LDN 0 FLAG ERROR
| Line S00812 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01046 M02S00812.261l700 ---| UCP4 LJM UCPX RETURN
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01047 M02S00023.261l700 ---| UCP4 UJN UCPX RETURN
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01048 M01S00065.261l700 +++| UCP1 AOD CA SKIP $ OR / 01049 M01S00066.261l700 +++| UCP2 LDN 0 01050 M01S00067.261l700 +++| STD T1 01051 M01S00068.261l700 +++| LDN CM ASSEMBLE COMMAND KEYWORD 01052 M01S00069.261l700 +++| RJM PAC 01053 M01S00070.261l700 +++| UCP3 ZJN UCPX IF KEYWORD TOO LONG 01054 M01S00071.261l700 +++| MJN UCP10 IF TERMINATOR 01055 M01S00072.261l700 +++| LDD CM CHECK KEYWORD 01056 M01S00073.261l700 +++| LMC 2RUS 01057 M01S00074.261l700 +++| NJN UCP5 IF NOT *USER* 01058 M01S00075.261l700 +++| LDD CM+1 01059 M01S00076.261l700 +++| LMC 2RER 01060 M01S00077.261l700 +++| UCP4 NJN UCP10 IF NOT *USER* 01061 M01S00078.261l700 +++| LDD CM+2 01062 M01S00079.261l700 +++| ZJN UCP6 IF *USER* 01063 M01S00080.261l700 +++| UJN UCP4 PROCESS KEYWORD ERROR 01064 M00S00813.0vj +++|
| Line S00814 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01065 M01S00814.261l700 ---| UCP5 RJM CTS CHECK FOR TERMINATOR 01066 M01S00815.261l700 ---| MJN UCP3 IF TERMINATOR 01067 M01S00816.261l700 ---| RJM GNC SKIP SEPARATOR
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01068 M01S00081.261l700 +++| UCP5 LMC 2RAC&2RUS 01069 M01S00082.261l700 +++| NJN UCP4 IF NOT *ACCOUNT* 01070 M01S00083.261l700 +++| LDD CM+1 01071 M01S00084.261l700 +++| LMC 2RCO 01072 M01S00085.261l700 +++| NJN UCP4 IF NOT *ACCOUNT* 01073 M01S00086.261l700 +++| LDD CM+2 01074 M01S00087.261l700 +++| LMC 2RUN 01075 M01S00088.261l700 +++| NJN UCP4 IF NOT *ACCOUNT* 01076 M01S00089.261l700 +++| LDD CM+3 01077 M01S00090.261l700 +++| LMC 1RT*100 01078 M01S00091.261l700 +++| NJN UCP4 IF NOT *ACCOUNT* 01079 M01S00092.261l700 +++| UCP6 RJM AUA ASSEMBLE USER COMMAND ARGUMENTS 01080 M01S00093.261l700 +++| UCP7 ZJN UCP3 IF ERROR IN ARGUMENTS 01081 M00S00817.0vj +++|
| Line S00818 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01082 M01S00818.261l700 ---|* SET USER NAME.
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01083 M01S00094.261l700 +++|* PROCESS USER AND FAMILY NAME. 01084 M00S00819.0vj +++|
| Line S00820 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01085 M01S00820.261l700 ---| LDN 1R* ALLOW * IN USER NAME 01086 M01S00821.261l700 ---| STD T1 01087 M01S00822.261l700 ---| LDN UN PACK USER NAME 01088 M01S00823.261l700 ---| RJM PAC 01089 M01S00824.261l700 ---| ZJN UCP3 IF TOO MANY CHARACTERS 01090 M01S00825.261l700 ---| MJN UCP7 IF TERMINATOR 01091 M01S00826.261l700 ---| RJM GNC SKIP SEPARATOR
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01092 M01S00095.261l700 +++| LDD UN 01093 M01S00096.261l700 +++| ZJN UCP7 IF NO USER NAME 01094 M01S00097.261l700 +++| LDD MA SET USER NAME IN SYSTEM SECTOR 01095 M01S00098.261l700 +++| CWD UN 01096 M01S00099.261l700 +++| CRM. ACSS,ON 01097 M01S00100.261l700 +++| LDD CN 01098 M01S00101.261l700 +++| ZJN UCP8 IF NO FAMILY NAME 01099 M01S00102.261l700 +++| LMC 1R0*100 01100 M01S00103.261l700 +++| ZJN UCP8 IF DEFAULT FAMILY PARAMETER 01101 M01S00104.261l700 +++| LDD MA SET FAMILY NAME IN SYSTEM SECTOR 01102 M01S00105.261l700 +++| CWD CN 01103 M01S00106.261l700 +++| CRM. FMSS,ON 01104 M01S00107.261l700 +++| UJN UCP9 EXIT 01105 M00S00827.0vj +++|
| Line S00828 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01106 M01S00828.261l700 ---|* SET PASSWORD. 01107 M01S00829.261l700 ---| 01108 M01S00830.261l700 ---| LDD CA SAVE PASSWORD FWA 01109 M01S00831.261l700 ---| STM FWPW 01110 M01S00832.261l700 ---| LDN 0 01111 M01S00833.261l700 ---| STD T1 01112 M01S00834.261l700 ---| LDC. PSWD SET PASSWORD 01113 M01S00835.261l700 ---| RJM PAC 01114 M01S00836.261l700 ---| ZJN UCP3 IF TOO MANY CHARACTERS 01115 M01S00837.261l700 ---| LDD CA SAVE PASSWORD LWA+1 01116 M01S00838.261l700 ---| STM LWPW 01117 M01S00839.261l700 ---| RJM CTS CHECK FOR TERMINATOR 01118 M01S00840.261l700 ---| MJN UCP7 IF TERMINATOR 01119 M01S00841.261l700 ---| 01120 M01S00842.261l700 ---|* SET FAMILY NAME. 01121 M01S00843.261l700 ---| 01122 M01S00844.261l700 ---| RJM GNC SKIP SEPARATOR 01123 M01S00845.261l700 ---| LDN CN PICK UP FAMILY NAME 01124 M01S00846.261l700 ---| RJM PAC 01125 M01S00847.261l700 ---| PJP UCP3 IF NO TERMINATOR 01126 M01S00848.261l700 ---| LDD CN CHECK FOR FAMILY SPECIFIED 01127 M01S00849.261l700 ---| NJN UCP8 IF FAMILY SPECIFIED 01128 M01S00850.261l700 ---| UCP7 LDD MA SET DEFAULT FAMILY NAME
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01129 M01S00108.261l700 +++| UCP8 LDD MA SET DEFAULT FAMILY NAME 01130 M00S00851.0vj +++| CWM. FMSS,ON 01131 M00S00852.0vj +++| SBN 1 01132 M00S00853.0vj +++| CRD CN
| Line S00854 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01133 M01S00854.261l700 ---| UJN UCP9 SET USER NAME IN SYSTEM SECTOR
| Line S00109 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01134 M01S00109.261l700 +++| UCP9 LJM UCPX EXIT WITH NO ERROR 01135 M01S00110.261l700 +++| TUCP SPACE 4,25 01136 M01S00111.261l700 +++|** TUCP - TABLE OF USER COMMAND PARAMETERS. 01137 M01S00112.261l700 +++|* 01138 M01S00113.261l700 +++|* FORMAT BEFORE PARAMETER PROCESSING - 01139 M01S00114.261l700 +++|* 01140 M01S00115.261l700 +++|*T 12/ KW
Figure
01141 M01S00116.261l700 +++|*T, 12/ ADDR
Figure
01142 M01S00117.261l700 +++|*T, 12/ AST
Figure
01143 M01S00118.261l700 +++|* 01144 M01S00119.261l700 +++|* KW = PARAMETER KEYWORD IF EQUIVALENCED. 01145 M01S00120.261l700 +++|* ADDR = ASSEMBLY ADDRESS. 01146 M01S00121.261l700 +++|* AST = * IF ASTERISK ALLOWED IN PARAMETER. 01147 M01S00122.261l700 +++|* SECURE = *S* IF PARAMETER TO BE REMOVED FROM COMMAND. 01148 M01S00123.261l700 +++|* 01149 M01S00124.261l700 +++|* FORMAT AFTER PARAMETER PROCESSING - 01150 M01S00125.261l700 +++|* 01151 M01S00126.261l700 +++|*T 12/0
Figure
01152 M01S00127.261l700 +++|*T, 12/FWA
Figure
01153 M01S00128.261l700 +++|*T, 12/LWA+1
Figure
01154 M01S00129.261l700 +++|* 01155 M01S00130.261l700 +++|* FWA = FWA OF PARAMETER IN STRING BUFFER. 01156 M01S00131.261l700 +++|* LWA+1 = LWA+1 OF PARAMETER IN STRING BUFFER. 01157 M00S00855.0vj +++|
| Line S00856 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01158 M01S00856.261l700 ---| UCP8 SHN -6 01159 M01S00857.261l700 ---| LMN 1R0 01160 M01S00858.261l700 ---| ZJN UCP7 IF DEFAULT FAMILY SELECTED 01161 M01S00859.261l700 ---| LDD MA SET FAMILY IN SYSTEM SECTOR 01162 M01S00860.261l700 ---| CWD CN 01163 M01S00861.261l700 ---| CRM. FMSS,ON 01164 M01S00862.261l700 ---| UCP9 LDD MA SET USER NAME 01165 M01S00863.261l700 ---| CWD UN 01166 M01S00864.261l700 ---| CRM. ACSS,ON 01167 M01S00865.261l700 ---| LDN 1 01168 M01S00866.261l700 ---| LJM UCPX RETURN 01169 M00S00867.0vj +++|
| Line S00868 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01170 M01S00868.261l700 ---| UCPA CON 1RA *ACCOUNT* STRING 01171 M01S00869.261l700 ---| CON 1RC 01172 M01S00870.261l700 ---| CON 1RC 01173 M01S00871.261l700 ---| CON 1RO 01174 M01S00872.261l700 ---| CON 1RU 01175 M01S00873.261l700 ---| CON 1RN 01176 M01S00874.261l700 ---| CON 1RT 01177 M01S00875.261l700 ---| CON 0
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01178 M01S00132.261l700 +++| TUCP BSS 0 01179 M01S00133.261l700 +++| UCARG UN,UN,* USER NAME 01180 M01S00134.261l700 +++| TUCPE EQU *-TUCP LENGTH OF ENTRY 01181 M01S00135.261l700 +++| TUCPA UCARG PW,PSWD PASSWORD 01182 M01S00136.261l700 +++| UCARG FM,CN FAMILY NAME 01183 M01S00137.261l700 +++| TUCPL EQU *-TUCP LENGTH OF TABLE 01184 M01S00138.261l700 +++| TITLE SUBROUTINES. 01185 M01S00139.261l700 +++| AUA SPACE 4,10 01186 M01S00140.261l700 +++|** AUA - ASSEMBLE *USER* COMMAND ARGUMENTS. 01187 M01S00141.261l700 +++|* 01188 M01S00142.261l700 +++|* EXIT (A) = 0 IF ERROR IN *USER* COMMAND. 01189 M01S00143.261l700 +++|* 01190 M01S00144.261l700 +++|* USES CA, T1, T4, T5, T6, CM - CM+4. 01191 M01S00145.261l700 +++|* 01192 M01S00146.261l700 +++|* CALLS CTS, PAC. 01193 M00S00876.0vj +++|
| Line S00877 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01194 M01S00877.261l700 ---| UCPB CON 1RU *USER* STRING 01195 M01S00878.261l700 ---| CON 1RS 01196 M01S00879.261l700 ---| CON 1RE 01197 M01S00880.261l700 ---| CON 1RR 01198 M01S00881.261l700 ---| CON 0 01199 M01S00882.261l700 ---| TITLE SUBROUTINES.
| Line S00147 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01200 M01S00147.261l700 +++| 01201 M01S00148.261l700 +++| AUA7 LDN 0 SET *USER* COMMAND ERROR 01202 M01S00149.261l700 +++| 01203 M01S00150.261l700 +++| AUA SUBR ENTRY/EXIT 01204 M01S00151.261l700 +++| LDN 0 INITIALIZE PARAMETER INDEX 01205 M01S00152.261l700 +++| STD T4 01206 M01S00153.261l700 +++| AUA1 AOD CA SKIP SEPARATOR 01207 M01S00154.261l700 +++| STD T5 SAVE PARAMETER ADDRESS 01208 M01S00155.261l700 +++| LDN 1R* ALLOW ASTERISK 01209 M01S00156.261l700 +++| STD T1 01210 M01S00157.261l700 +++| LDN ZERL CLEAR ASSEMBLY 01211 M01S00158.261l700 +++| CRD CM 01212 M01S00159.261l700 +++| LDN CM ASSEMBLE PARAMETER OR KEYWORD 01213 M01S00160.261l700 +++| RJM PAC 01214 M01S00161.261l700 +++| ZJN AUAX IF PARAMETER TOO LONG 01215 M01S00162.261l700 +++| LDI CA 01216 M01S00163.261l700 +++| LMN 1R= 01217 M01S00164.261l700 +++| ZJN AUA3 IF KEYWORD OF EQUIVALENCED PARAMETER 01218 M01S00165.261l700 +++| 01219 M01S00166.261l700 +++|* PROCESS POSITIONAL PARAMETER. 01220 M01S00167.261l700 +++| 01221 M01S00168.261l700 +++| LDD T4 SET PARAMETER INDEX 01222 M01S00169.261l700 +++| STD T6 01223 M01S00170.261l700 +++| LDD T5 RESET CHARACTER ADDRESS 01224 M01S00171.261l700 +++| STD CA 01225 M01S00172.261l700 +++| LDM TUCP,T6 01226 M01S00173.261l700 +++| AUA2 ZJN AUAX IF PARAMETER ALREADY ENTERED 01227 M01S00174.261l700 +++| LDN 0 01228 M01S00175.261l700 +++| UJN AUA5 SET PARAMETER ENTERED 01229 M01S00176.261l700 +++| 01230 M01S00177.261l700 +++|* PROCESS EQUIVALENCED PARAMETER. 01231 M01S00178.261l700 +++| 01232 M01S00179.261l700 +++| AUA3 LDD CM+1 01233 M01S00180.261l700 +++| NJP AUA7 IF NOT 2 CHARACTER KEYWORD 01234 M01S00181.261l700 +++| STD T6 INITIALIZE PARAMETER INDEX 01235 M01S00182.261l700 +++| AOD CA SKIP SEPARATOR 01236 M01S00183.261l700 +++| STD T5 SAVE PARAMETER ADDRESS 01237 M01S00184.261l700 +++| AUA4 LDM TUCP,T6 CHECK NEXT KEYWORD ENTRY 01238 M01S00185.261l700 +++| LMD CM 01239 M01S00186.261l700 +++| ZJN AUA5 IF MATCH 01240 M01S00187.261l700 +++| LDN TUCPE ADVANCE TABLE INDEX 01241 M01S00188.261l700 +++| RAD T6 01242 M01S00189.261l700 +++| LMN TUCPL 01243 M01S00190.261l700 +++| ZJN AUA2 IF END OF TABLE 01244 M01S00191.261l700 +++| UJN AUA4 CHECK NEXT ENTRY 01245 M01S00192.261l700 +++| 01246 M01S00193.261l700 +++|* ASSEMBLE PARAMETER. 01247 M01S00194.261l700 +++| 01248 M01S00195.261l700 +++| AUA5 STM TUCP,T6 SET PARAMETER ENTERED 01249 M01S00196.261l700 +++| LDM TUCP+2,T6 SET ASTERISK ALLOWED STATUS 01250 M01S00197.261l700 +++| LPN 77 01251 M01S00198.261l700 +++| STD T1 01252 M01S00199.261l700 +++| LDM TUCP+1,T6 SET ASSEMBLY ADDRESS 01253 M01S00200.261l700 +++| RJM PAC ASSEMBLE PARAMETER 01254 M01S00201.261l700 +++| ZJN AUA2 IF PARAMETER TOO LONG 01255 M01S00202.261l700 +++| LDI CA 01256 M01S00203.261l700 +++| LMN 1R= 01257 M01S00204.261l700 +++| AUA6 ZJN AUA2 IF SEPARATOR IS *=* 01258 M01S00205.261l700 +++| LDD T5 SET PARAMETER FWA 01259 M01S00206.261l700 +++| STM TUCP+1,T6 01260 M01S00207.261l700 +++| LDD CA SET PARAMETER LWA+1 01261 M01S00208.261l700 +++| STM TUCP+2,T6 01262 M01S00209.261l700 +++| RJM CTS 01263 M01S00210.261l700 +++| MJP AUAX IF TERMINATOR 01264 M01S00211.261l700 +++| LDN TUCPE ADVANCE PARAMETER INDEX 01265 M01S00212.261l700 +++| RAD T4 01266 M01S00213.261l700 +++| LMN TUCPL 01267 M01S00214.261l700 +++| ZJN AUA6 IF MAXIMUM PARAMETERS ALREADY ENTERED 01268 M01S00215.261l700 +++| LJM AUA1 PROCESS NEXT PARAMETER 01269 M00S00883.0vj +++| ASD SPACE 4,25 01270 M00S00884.0vj +++|** ASD - ASSEMBLE DIGITS. 01271 M00S00885.0vj +++|* 01272 M00S00886.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS. 01273 M00S00887.0vj +++|* (CM) = MAXIMUM NUMBER OF DIGITS PLUS ONE. 01274 M00S00888.0vj +++|* (CM+1 - CM+2) = MAXIMUM DECIMAL VALUE. 01275 M00S00889.0vj +++|* (CM+3) = 0, IF DEFAULT BASE IS OCTAL. 01276 M00S00890.0vj +++|* = 1, IF DEFAULT BASE IS DECIMAL. 01277 M00S00891.0vj +++|* 01278 M00S00892.0vj +++|* EXIT (A) = ASSEMBLED DIGITS. 01279 M00S00893.0vj +++|* (A) .LT. 0 IF ERROR IN ASSEMBLY. 01280 M00S00894.0vj +++|* (CA) = UPDATED CHARACTER ADDRESS. 01281 M00S00895.0vj +++|* 01282 M00S00896.0vj +++|* USES CM, T1 - T5. 01283 M00S00897.0vj +++|* 01284 M00S00898.0vj +++|* CALLS CTS, ERR, GNC. 01285 M00S00899.0vj +++|* 01286 M00S00900.0vj +++|* NOTE *ASD* CONVERTS DISPLAY CODE DIGITS TO OCTAL 01287 M00S00901.0vj +++|* AND DECIMAL VALUES. 01288 M00S00902.0vj +++|* THE BASE IS DETERMINED AS FOLLOWS - 01289 M00S00903.0vj +++|* 1) POST RADIX SPECIFICATION (B=OCTAL, D=DECIMAL). 01290 M00S00904.0vj +++|* 2) IF AN 8 OR 9 IS DETECTED THEN DECIMAL IS ASSUMED. 01291 M00S00905.0vj +++|* 3) DEFAULT AS SPECIFIED BY CALLING ROUTINE. 01292 M00S00906.0vj +++| 01293 M00S00907.0vj +++| 01294 M00S00908.0vj +++| ASD SUBR ENTRY/EXIT 01295 M00S00909.0vj +++| LDN 0 PRESET TO NO 8/9 ENCOUNTERED 01296 M00S00910.0vj +++| STM ASDA 01297 M00S00911.0vj +++| LDN ZERL CLEAR ASSEMBLY REGISTERS 01298 M00S00912.0vj +++| CRD T1 01299 M00S00913.0vj +++| ASD1 RJM CTS CHECK FOR TERMINATOR/SEPARATOR 01300 M00S00914.0vj +++| MJN ASD2 IF TERMINATOR 01301 M00S00915.0vj +++| NJN ASD8 IF NOT TERMINATOR OR SEPARATOR 01302 M00S00916.0vj +++| 01303 M00S00917.0vj +++|* PROCESS END OF ARGUMENT. 01304 M00S00918.0vj +++| 01305 M00S00919.0vj +++| ASD2 LDD CM+3 01306 M00S00920.0vj +++| NJN ASD4 IF BASE IS DECIMAL 01307 M00S00921.0vj +++| ASD3 LDD T2 RETURN OCTAL DIGITS 01308 M00S00922.0vj +++| SHN 14 01309 M00S00923.0vj +++| LMD T3 01310 M00S00924.0vj +++| UJN ASD6 EXIT 01311 M00S00925.0vj +++| 01312 M00S00926.0vj +++| ASD4 LDD CM+1 CHECK FOR DECIMAL MAXIMUM 01313 M00S00927.0vj +++| SBD T4 01314 M00S00928.0vj +++| MJN ASD7 IF OVER MAXIMUM 01315 M00S00929.0vj +++| NJN ASD5 IF UNDER MAXIMUM 01316 M00S00930.0vj +++| LDD CM+2 01317 M00S00931.0vj +++| SBD T5 01318 M00S00932.0vj +++| MJN ASD7 IF OVER MAXIMUM 01319 M00S00933.0vj +++| ASD5 LDD T4 RETURN DECIMAL DIGITS 01320 M00S00934.0vj +++| SHN 14 01321 M00S00935.0vj +++| LMD T5 01322 M00S00936.0vj +++| ASD6 MJN ASD9 IF NEGATIVE VALUE 01323 M00S00937.0vj +++| UJN ASDX RETURN 01324 M00S00938.0vj +++| 01325 M00S00939.0vj +++| ASD7 LDD CM+1 SET MAXIMUM VALUE 01326 M00S00940.0vj +++| SHN 14 01327 M00S00941.0vj +++| LMD CM+2 01328 M00S00942.0vj +++| UJN ASD6 EXIT 01329 M00S00943.0vj +++| 01330 M00S00944.0vj +++|* PROCESS NEXT CHARACTER. 01331 M00S00945.0vj +++| 01332 M00S00946.0vj +++| ASD8 LDI CA CHECK FOR POST RADIX 01333 M00S00947.0vj +++| SBN 1R0 01334 M00S00948.0vj +++| PJN ASD12 IF NOT ALPHA 01335 M00S00949.0vj +++| ADN 1R0-1RD CHECK FOR *D* 01336 M00S00950.0vj +++| NJN ASD10 IF NOT *D* 01337 M00S00951.0vj +++| RJM GNC ADVANCE CHARACTER 01338 M00S00952.0vj +++| MJN ASD4 IF TERMINATOR 01339 M00S00953.0vj +++| ZJN ASD4 IF SEPARATOR 01340 M00S00954.0vj +++| ASD9 LJM ASD14 PROCESS ERROR 01341 M00S00955.0vj +++| 01342 M00S00956.0vj +++| ASD10 ADN 1RD-1RB CHECK FOR *B* 01343 M00S00957.0vj +++| NJN ASD9 IF ALPHA OTHER THAN *B* OR *D* 01344 M00S00958.0vj +++| LDC ** (DECIMAL/OCTAL CONVERSION FLAG) 01345 M00S00959.0vj +++| ASDA EQU *-1 01346 M00S00960.0vj +++|* LDC 1 (8 OR 9 HAS BEEN ENCOUNTERED) 01347 M00S00961.0vj +++|* LDC 0 (NO 8 OR 9 ENCOUNTERED) 01348 M00S00962.0vj +++| NJN ASD9 IF 8 OR 9 AND *B* PRESENT 01349 M00S00963.0vj +++| RJM GNC ADVANCE CHARACTER 01350 M00S00964.0vj +++| MJN ASD11 IF TERMINATOR 01351 M00S00965.0vj +++| NJN ASD9 IF NOT TERMINATOR OR SEPARATOR 01352 M00S00966.0vj +++| ASD11 LJM ASD3 RETURN OCTAL DIGITS 01353 M00S00967.0vj +++| 01354 M00S00968.0vj +++|* SET FLAG IF 8 0R 9 FOUND 01355 M00S00969.0vj +++| 01356 M00S00970.0vj +++| ASD12 STD T1 SAVE DIGIT 01357 M00S00971.0vj +++| SBN 1R8-1R0 01358 M00S00972.0vj +++| MJN ASD13 IF NOT 8 OR 9 01359 M00S00973.0vj +++| LDN 1 SET FLAG FOR DECIMAL 01360 M00S00974.0vj +++| STM ASDA 01361 M00S00975.0vj +++| STD CM+3 01362 M00S00976.0vj +++| 01363 M00S00977.0vj +++|* ASSEMBLE OCTAL DIGITS. 01364 M00S00978.0vj +++| 01365 M00S00979.0vj +++| ASD13 LDD T2 01366 M00S00980.0vj +++| SHN 14 01367 M00S00981.0vj +++| ADD T3 01368 M00S00982.0vj +++| SHN 3 01369 M00S00983.0vj +++| ADD T1 ADD NEW DIGIT 01370 M00S00984.0vj +++| STD T3 01371 M00S00985.0vj +++| SHN -14 01372 M00S00986.0vj +++| STD T2 01373 M00S00987.0vj +++| 01374 M00S00988.0vj +++|* ASSEMBLE DECIMAL DIGITS. 01375 M00S00989.0vj +++| 01376 M00S00990.0vj +++| LDD T4 01377 M00S00991.0vj +++| SHN 14 01378 M00S00992.0vj +++| ADD T5 01379 M00S00993.0vj +++| SHN 2+6 (*4) 01380 M00S00994.0vj +++| ADD T4 01381 M00S00995.0vj +++| SHN 14 01382 M00S00996.0vj +++| ADD T5 (*4+1) 01383 M00S00997.0vj +++| SHN 1 (*4+1)*2 01384 M00S00998.0vj +++| STD T5 ADD NEW DIGIT 01385 M00S00999.0vj +++| SHN -14 01386 M00S01000.0vj +++| STD T4 01387 M00S01001.0vj +++| LDD T1 01388 M00S01002.0vj +++| RAD T5 01389 M00S01003.0vj +++| SHN -14 01390 M00S01004.0vj +++| RAD T4 ADD CARRY 01391 M00S01005.0vj +++| RJM GNC GET NEXT CHARACTER 01392 M00S01006.0vj +++| SOD CM 01393 M00S01007.0vj +++| ZJN ASD14 IF TOO MANY DIGITS 01394 M00S01008.0vj +++| LJM ASD1 LOOP 01395 M00S01009.0vj +++| 01396 M00S01010.0vj +++|* PROCESS ERROR IN ASSEMBLY. 01397 M00S01011.0vj +++| 01398 M00S01012.0vj +++| ASD14 RJM ERR SET ERROR STATUS 01399 M00S01013.0vj +++| LCN 1 01400 M00S01014.0vj +++| LJM ASDX RETURN
| Line S01015 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01401 M01S01015.261l700 ---| CCS SPACE 4,15 01402 M01S01016.261l700 ---|** CCS - COMPARE CHARACTER STRINGS. 01403 M01S01017.261l700 ---|* 01404 M01S01018.261l700 ---|* ENTRY (A) = FWA OF OBJECT STRING. 01405 M01S01019.261l700 ---|* (CA) = FWA OF SUBJECT STRING. 01406 M01S01020.261l700 ---|* 01407 M01S01021.261l700 ---|* EXIT (A) = 0 IF STRINGS ARE EQUAL. 01408 M01S01022.261l700 ---|* (A) .NE. 0 IF STRING ARE NOT EQUAL. 01409 M01S01023.261l700 ---|* (CA) = CHARACTER ADDRESS. 01410 M01S01024.261l700 ---|* 01411 M01S01025.261l700 ---|* USES CA, T2. 01412 M01S01026.261l700 ---|* 01413 M01S01027.261l700 ---|* CALLS CTS, GNC. 01414 M01S01028.261l700 ---| 01415 M01S01029.261l700 ---| 01416 M01S01030.261l700 ---| CCS2 RJM CTS CHECK FOR TERMINATOR/SEPARATOR 01417 M01S01031.261l700 ---| PJN CCSX IF SEPARATOR OR NORMAL CHARACTER 01418 M01S01032.261l700 ---| LDN 0 SET RETURN STATUS FOR TERMINATOR 01419 M01S01033.261l700 ---| 01420 M01S01034.261l700 ---| CCS SUBR 01421 M01S01035.261l700 ---| SBN 1 SET INDEX ADDRESS 01422 M01S01036.261l700 ---| STD T2 01423 M01S01037.261l700 ---| SOD CA 01424 M01S01038.261l700 ---| CCS1 RJM GNC GET NEXT CHARACTER 01425 M01S01039.261l700 ---| AOD T2 01426 M01S01040.261l700 ---| LDI T2 CHECK FOR END OF OBJECT STRING 01427 M01S01041.261l700 ---| ZJN CCS2 IF END OF OBJECT STRING 01428 M01S01042.261l700 ---| LMI CA CHECK AGAINST SUBJECT STRING 01429 M01S01043.261l700 ---| ZJN CCS1 IF CHARACTERS MATCH 01430 M01S01044.261l700 ---| UJN CCSX IF CHARACTERS DO NOT MATCH 01431 M00S01045.0vj +++| CTS SPACE 4,15 01432 M00S01046.0vj +++|** CTS - CHECK FOR TERMINATOR OR SEPARATOR. 01433 M00S01047.0vj +++|* 01434 M00S01048.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS. 01435 M00S01049.0vj +++|* (LWUC) = LWA+1 OF UNPACKED COMMAND. 01436 M00S01050.0vj +++|* 01437 M00S01051.0vj +++|* EXIT (A) = 0 IF SEPARATOR (INCLUDES COLON). 01438 M00S01052.0vj +++|* (A) .LT. 0 IF TERMINATOR OR END OF LINE. 01439 M00S01053.0vj +++|* (A) = CHARACTER (FOR ALL OTHER CHARACTERS). 01440 M00S01054.0vj +++| 01441 M00S01055.0vj +++| 01442 M00S01056.0vj +++| CTS2 LDI CA SET NORMAL CHARACTER STATUS 01443 M00S01057.0vj +++| 01444 M00S01058.0vj +++| CTS SUBR ENTRY/EXIT 01445 M00S01059.0vj +++| LDD CA 01446 M00S01060.0vj +++| SBM LWUC
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/0vj.txt · Last modified: by 127.0.0.1