cdc:nos2.source:opl.opl871:deck:vej
Deck VEJ
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.vej +++| IDENT VEJ,VEJ 00002 M00S00002.vej +++| PERIPH 00003 M00S00003.vej +++| BASE MIXED 00004 M00S00004.vej +++| SST 00005 M00S00005.vej +++| IOQ$ EQU 1 DEFINE TABLE FOR *SFA* MACRO 00006 M00S00006.vej +++|*COMMENT VEJ - VERIFY JOB FILE INFORMATION.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1976.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M00S00008.vej +++| TITLE VEJ - VERIFY JOB FILE INFORMATION. 00010 M00S00009.vej +++| SPACE 4 00011 M00S00010.vej +++|*** VEJ - VERIFY JOB FILE. 00012 M00S00011.vej +++|* R. A. JAPS. 76/01/13. 00013 M00S00012.vej +++|* M. J. CARIDDI. 81/07/17. 00014 M00S00013.vej +++| SPACE 4 00015 M00S00014.vej +++|*** *VEJ* IS CALLED TO VERIFY BASIC JOB COMMAND AND OTHER 00016 M00S00015.vej +++|* REQUIRED ACCOUNTING TYPE COMMANDS (CURRENTLY, ONLY THE 00017 M00S00016.vej +++|* USER COMMAND) FOR A NEW JOB (INPUT) FILE. *VEJ* WILL 00018 M00S00017.vej +++|* VERIFY THE INFORMATION, CREATE A SYSTEM NAME FOR THE 00019 M00S00018.vej +++|* NEW JOB AND ASSIGN THE FILE TO THE APPROPRIATE DEVICE. 00020 M00S00019.vej +++|* 00021 M00S00020.vej +++|* *VEJ* MUST BE CALLED BY A SUBSYSTEM. 00022 M00S00021.vej +++| SPACE 4 00023 M00S00022.vej +++|*** CALL. 00024 M00S00023.vej +++|* 00025 M00S00024.vej +++|*T 18/ *VEJ*, 2/1, 22/ 0, 18/ FET ADDRESS
Figure
00026 M00S00025.vej +++|* 00027 M00S00026.vej +++|* FORMAT OF FET. 00028 M00S00027.vej +++|* 00029 M00S00028.vej +++|*T,FET 42/ , 6/ , 11/ , 1/0
Figure FET
00030 M00S00029.vej +++|*T,FET+1 20/ , 1/ SP, 15/ , 24/ TID
Figure FET+1
00031 M00S00030.vej +++|*T,FET+2 42/ , 18/ LWA (IN)
Figure FET+2
00032 M00S00031.vej +++|*T,FET+3 42/ , 18/ FWA (OUT)
Figure FET+3
00033 M00S00032.vej +++|*T,FET+4 21/ , 3/ AL, 36/
Figure FET+4
00034 M00S00033.vej +++|* 00035 M00S00034.vej +++|* SP = SECURITY PROCESSING BIT. 00036 M00S00035.vej +++|* INDICATES THAT *AL* FIELD HAS BEEN SPECIFIED. 00037 M00S00036.vej +++|* TID = TERMINAL ID. 00038 M00S00037.vej +++|* IF THE UPPER SIX BITS ARE EQUAL TO 77B, THE 00039 M00S00038.vej +++|* LOWER EIGHTEEN BITS CONTAIN THE COMPLEMENT 00040 M00S00039.vej +++|* OF A CM ADDRESS OF A TWO WORD FAMILY NAME - USER 00041 M00S00040.vej +++|* NUMBER AREA. 00042 M00S00041.vej +++|* TAG+0 42/ FAMILY NAME , 18/ 0 00043 M00S00042.vej +++|* TAG+1 42/ USER NAME , 18/ 0 00044 M00S00043.vej +++|* IF THE UPPER SIX BITS ARE NOT EQUAL TO 77B, THE 00045 M00S00044.vej +++|* LOWER TWENTYONE BITS CONTAIN THE TID. 00046 M00S00045.vej +++|* LWA = LAST WORD ADDRESS OF BUFFER CONTAINING JOB/USER 00047 M00S00046.vej +++|* COMMANDS. 00048 M00S00047.vej +++|* FWA = FIRST WORD ADDRESS OF BUFFER. 00049 M00S00048.vej +++|* AL = ACCESS LEVEL LIMIT FOR COMMUNICATIONS LINE. 00050 M00S00049.vej +++|* ON A SECURED SYSTEM, THE UPPER ACCESS LEVEL LIMIT 00051 M00S00050.vej +++|* FOR THE JOB MUST BE .LE. THIS VALUE (IF SPECIFIED). 00052 M00S00051.vej +++| SPACE 4 00053 M00S00052.vej +++|*** RETURN. 00054 M00S00053.vej +++|* 00055 M00S00054.vej +++|*T,FET 42/ JOBNAME , 6/ EC, 11/ , 1/1
Figure FET
00056 M00S00055.vej +++|*T,FET+1 36/ , 24/ TID
Figure FET+1
00057 M00S00056.vej +++|*T,FET+2 42/ , 18/ LWA
Figure FET+2
00058 M00S00057.vej +++|*T,FET+3 42/ , 18/ FWA
Figure FET+3
00059 M00S00058.vej +++|*T,FET+4 12/ FNT OFF , 48/
Figure FET+4
00060 M00S00059.vej +++|* 00061 M00S00060.vej +++|* EC = ERROR CODES. 00062 M00S00061.vej +++|* 0 = NO ERROR ENCOUNTERED. 00063 M00S00062.vej +++|* 1 = JOB COMMAND ERROR. 00064 M00S00063.vej +++|* 2 = BUFFER ARGUMENT ERROR. (FATAL) 00065 M00S00064.vej +++|* 3 = ACCOUNT COMMAND ERROR. 00066 M00S00065.vej +++|* 4 = FNT/DEVICE FULL. 00067 M00S00066.vej +++|* 5 = INCORRECT TID. 00068 M00S00067.vej +++|* 6 = INCORRECT REQUEST. (FATAL) 00069 M00S00068.vej +++|* 7 = DEVICE UNAVAILABLE. 00070 M00S00069.vej +++|* 00071 M00S00070.vej +++|* FNT OFF = OFFSET OF FNT ENTRY IN NFL. 00072 M00S00071.vej +++| SPACE 4 00073 M00S00072.vej +++|** DAYFILE MESSAGES. 00074 M00S00073.vej +++|* 00075 M00S00074.vej +++|* 00076 M00S00075.vej +++|* * VEJ - BUFFER ARGUMENT ERROR.* 00077 M00S00076.vej +++|* FET BUFFER POINTERS ARE INCORRECT. 00078 M00S00077.vej +++|* (FWA .LT. LWA .LE. FL) 00079 M00S00078.vej +++|* 00080 M00S00079.vej +++|* * VEJ - INCORRECT REQUEST.* 00081 M00S00080.vej +++|* CAN INDICATE ONE OF THE FOLLOWING CONDITIONS - 00082 M00S00081.vej +++|* 1. *VEJ* NOT CALLED BY A SUBSYSTEM. 00083 M00S00082.vej +++|* 2. FET ADDRESS OUT OF RANGE. 00084 M00S00083.vej +++|* 3. A JOB WITHOUT SSJ= PRIVILEGES ATTEMPTED TO SPECIFY 00085 M00S00084.vej +++|* A SYSTEM SECTOR ADDRESS IN THE SYSTEM REQUEST. 00086 M00S00085.vej +++|* 4. SYSTEM SECTOR BUFFER NOT WITHIN FL. 00087 M00S00086.vej +++|* 5. CALLER WAS NOT SYSTEM ORIGIN OR DID NOT HAVE 00088 M00S00087.vej +++|* SYSTEM ORIGIN PRIVILEGES. 00089 M00S00088.vej +++| SPACE 4 00090 M00S00089.vej +++|** ROUTINES CALLED. 00091 M00S00090.vej +++|* 00092 M00S00091.vej +++|* 0AV - ACCOUNT VALIDATION. 00093 M00S00092.vej +++|* 0BF - BEGIN FILE. 00094 M00S00093.vej +++|* 0DF - DROP FILE. 00095 M00S00094.vej +++|* 0DQ - DROP QFT ENTRY. 00096 M00S00095.vej +++|* 0VJ - VERIFY JOB AND USER COMMAND. 00097 M00S00096.vej +++| SPACE 4 00098 M00S00097.vej +++|* COMMON DECKS. 00099 M00S00098.vej +++| 00100 M00S00099.vej +++|*CALL COMPMAC 00101 M00S00100.vej +++|*CALL COMSCPS 00102 M00S00101.vej +++|*CALL COMSDSP 00103 M00S00102.vej +++|*CALL COMSEVT 00104 M00S00103.vej +++|*CALL COMSMSP 00105 M00S00104.vej +++|*CALL COMSSCD 00106 M00S00105.vej +++|*CALL COMSSSD 00107 M00S00106.vej +++|*CALL COMSSSE 00108 M00S00107.vej +++|*CALL COMSSSJ 00109 M00S00108.vej +++|*CALL COMSWEI 00110 M00S00109.vej +++|*CALL COMSZOL 00111 M00S00110.vej +++| SPACE 4 00112 M00S00111.vej +++|**** DIRECT LOCATION ASSIGNMENTS. 00113 M00S00112.vej +++| 00114 M00S00113.vej +++| 00115 M00S00114.vej +++| FS EQU 20 - 24 FST (5 LOCATIONS) 00116 M00S00115.vej +++| QA EQU 26 ORDINAL OF QFT ENTRY 00117 M00S00116.vej +++| FT EQU 27 TABLE FWA 00118 M00S00117.vej +++| CN EQU 30 - 34 CM BUFFER (5 LOCATIONS) 00119 M00S00118.vej +++| SC EQU 35 SCRATCH 00120 M00S00119.vej +++| FN EQU 40 - 44 FILE NAME (5 LOCATIONS) 00121 M00S00120.vej +++| OT EQU 46 ORIGIN TYPE 00122 M00S00121.vej +++| ER EQU 47 ERROR STATUS 00123 M00S00122.vej +++| FA EQU 57 NFL FNT ENTRY OFFSET 00124 M00S00123.vej +++| 00125 M00S00124.vej +++|**** 00126 M00S00125.vej +++| TITLE MACRO DEFINITIONS. 00127 M00S00126.vej +++|** ERROR - ERROR PROCESSING. 00128 M00S00127.vej +++|* 00129 M00S00128.vej +++|* ERROR ER 00130 M00S00129.vej +++| 00131 M00S00130.vej +++| 00132 M00S00131.vej +++| PURGMAC ERROR 00133 M00S00132.vej +++| 00134 M00S00133.vej +++| ERROR MACRO E 00135 M00S00134.vej +++| MACREF ERROR 00136 M00S00135.vej +++| LDN E 00137 M00S00136.vej +++| STD ER 00138 M00S00137.vej +++| LJM VEJ5 SET ERROR CODE 00139 M00S00138.vej +++| ENDM 00140 M00S00139.vej +++| SPACE 4 00141 M00S00140.vej +++|** ABORT - ABORT CONTROL POINT. 00142 M00S00141.vej +++|* 00143 M00S00142.vej +++|* ABORT ER 00144 M00S00143.vej +++|* 00145 M00S00144.vej +++|* ER = ERROR CODE. 00146 M00S00145.vej +++| 00147 M00S00146.vej +++| 00148 M00S00147.vej +++| PURGMAC ABORT 00149 M00S00148.vej +++| 00150 M00S00149.vej +++| ABORT MACRO E 00151 M00S00150.vej +++| MACREF ABORT 00152 M00S00151.vej +++| LDN E 00153 M00S00152.vej +++| RJM ABT 00154 M00S00153.vej +++| ENDM 00155 M00S00154.vej +++| EJECT 00156 M00S00155.vej +++| TITLE MAIN PROGRAM. 00157 M00S00156.vej +++| ORG PPFW 00158 M00S00157.vej +++| SPACE 4 00159 M00S00158.vej +++|** MAIN PROGRAM. 00160 M00S00159.vej +++| 00161 M00S00160.vej +++| 00162 M00S00161.vej +++| VEJ BSS 0 ENTRY 00163 M00S00162.vej +++| RJM PRS PRESET 00164 M00S00163.vej +++| LDN ZERL CLEAR DLID / SET LOWER ACCESS LEVEL LIMIT 00165 M00S00164.vej +++| CRD CN 00166 M00S00165.vej +++| LDC STMT SET FIRST WORD OF PP BUFFER 00167 M00S00166.vej +++| STD CN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00168 M01S00001.ns2420c +++| LDC 400 SET *DO NOT DELETE PASSWORD* FLAG 00169 M01S00002.ns2420c +++| RAD CN+2 00170 M00S00167.vej +++| LDN 0 00171 M00S00168.vej +++| STM IOSS+INSQ*5+1 CLEAR DLID IN QFT / SYSTEM SECTOR 00172 M00S00169.vej +++| LDM IOSS+INSQ*5+2 00173 M00S00170.vej +++| LPN 77 00174 M00S00171.vej +++| STM IOSS+INSQ*5+2 00175 M00S00172.vej +++| LDM OAST,OT SET ORIGIN AND SERVICE CLASS 00176 M00S00173.vej +++| STM IOSS+SCLQ*5+0 00177 M00S00174.vej +++| EXECUTE 0VJ,OVL0 VERIFY JOB AND USER COMMAND 00178 M00S00175.vej +++| PJN VEJ1 IF VERIFICATION COMPLETE 00179 M00S00176.vej +++| ERROR ERUA * DEVICE UNAVAILABLE.* 00180 M00S00177.vej +++| 00181 M00S00178.vej +++| VEJ1 LDM SLSS CLEAR SLID IN SYSTEM SECTOR 00182 M00S00179.vej +++| SCN 77 00183 M00S00180.vej +++| STM SLSS 00184 M00S00181.vej +++| LDN 0 00185 M00S00182.vej +++| STM SLSS+1 00186 M00S00183.vej +++| LDD ER 00187 M00S00184.vej +++| LMN ERAC
| Line S00185 Modification History | |
|---|---|
M01 (Removed by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00188 M01S00185.ns2420c ---| ZJN VEJ3 IF *USER COMMAND ERROR*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00189 M01S00003.ns2420c +++| ZJN VEJ2 IF *USER COMMAND ERROR* 00190 M00S00186.vej +++| VEJA LDN 0 00191 M00S00187.vej +++|* LDN 1 (*SP* BIT SPECIFIED) 00192 M00S00188.vej +++| ZJN VEJ4 IF *SP* NOT SPECIFIED OR UNSECURED SYSTEM 00193 M00S00189.vej +++| LDM IOSS+5*INSQ+3 CHECK UPPER ACCESS LEVEL LIMIT 00194 M00S00190.vej +++| LPN 7 00195 M00S00191.vej +++| VEJB SBN 1 00196 M00S00192.vej +++|* SBN AL+1 (SPECIFIED ACCESS LEVEL + 1) 00197 M00S00193.vej +++| MJN VEJ4 IF JOB MAY BE CREATED 00198 M00S00194.vej +++| LDN ERJC SET *JOB COMMAND ERROR* STATUS 00199 M00S00195.vej +++| STD ER
| Line S00196 Modification History | |
|---|---|
M01 (Removed by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00200 M01S00196.ns2420c ---| LCN UNIE-JCIE 00201 M01S00197.ns2420c ---| VEJ3 ADN UNIE SET JOB ABORT CODE IN SYSTEM SECTOR 00202 M01S00198.ns2420c ---| STM JASS
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00203 M01S00004.ns2420c +++| LDN JCIE 00204 M01S00005.ns2420c +++| STM VEJC 00205 M01S00006.ns2420c +++| UJN VEJ3 DO NOT CREATE JOB 00206 M01S00007.ns2420c +++| 00207 M01S00008.ns2420c +++|* CHECK IF JOB SHOULD BE CREATED DESPITE USER COMMAND ERROR. 00208 M01S00009.ns2420c +++| 00209 M01S00010.ns2420c +++| VEJ2 LDD CN CHECK DESTINATION LID ATTRIBUTES 00210 M01S00011.ns2420c +++| ZJN VEJ3 IF NO DESTINATION LID 00211 M01S00012.ns2420c +++| SHN 21-13 00212 M01S00013.ns2420c +++| MJN VEJ3 IF DESTINED FOR LOCAL HOST LID 00213 M01S00014.ns2420c +++| SHN 21-11-21+13 00214 M01S00015.ns2420c +++| MJN VEJ3 IF VALIDATION REQUIRED FOR THIS LID 00215 M01S00016.ns2420c +++| LDN 0 CLEAR ERROR CODE 00216 M01S00017.ns2420c +++| STD ER 00217 M01S00018.ns2420c +++| STM JASS CLEAR JOB ABORT CODE 00218 M01S00019.ns2420c +++| UJN VEJ4 CREATE JOB 00219 M01S00020.ns2420c +++| 00220 M01S00021.ns2420c +++| VEJ3 LDC UNIE SET *USER NAME / PASSWORD NOT VALID* 00221 M01S00022.ns2420c +++|* LDC JCIE (*JOB COMMAND ERROR*) 00222 M01S00023.ns2420c +++| VEJC EQU *-1 00223 M01S00024.ns2420c +++| STM JASS SET JOB ABORT CODE IN SYSTEM SECTOR 00224 M00S00199.vej +++| 00225 M00S00200.vej +++|* RETURN HERE FROM *WIF* IF MASS STORAGE ERROR. 00226 M00S00201.vej +++|
| Line S00202 Modification History | |
|---|---|
M01 (Removed by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00227 M01S00202.ns2420c ---| VEJ4 RJM AIF ASSIGN INPUT FILE
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00228 M01S00025.ns2420c +++| VEJ4 LDN ZERL CLEAR ENCRYPTED PASSWORD 00229 M01S00026.ns2420c +++| CRM EPSS,ON 00230 M01S00027.ns2420c +++| RJM AIF ASSIGN INPUT FILE 00231 M00S00203.vej +++| RJM WIF WRITE INPUT FILE 00232 M00S00204.vej +++| 00233 M00S00205.vej +++|* ENTER HERE FROM *ERROR* MACRO CALLS. 00234 M00S00206.vej +++| 00235 M00S00207.vej +++| VEJ5 LDD FN+3 SET ERROR CODE 00236 M00S00208.vej +++| SCN 77 00237 M00S00209.vej +++| LMD ER 00238 M00S00210.vej +++| STD FN+3 00239 M00S00211.vej +++| LDN 1 SET FET COMPLETE 00240 M00S00212.vej +++| STD FN+4 00241 M00S00213.vej +++| RJM GFA SET FNT OFFSET 00242 M00S00214.vej +++| ADN 4 00243 M00S00215.vej +++| CRD CM 00244 M00S00216.vej +++| LDD FA 00245 M00S00217.vej +++| STD CM 00246 M00S00218.vej +++| RJM GFA WRITE FET INFORMATION 00247 M00S00219.vej +++| ADN 4 00248 M00S00220.vej +++| CWD CM 00249 M00S00221.vej +++| SBN 4 00250 M00S00222.vej +++| CWD FN 00251 M00S00223.vej +++| 00252 M00S00224.vej +++| DPP MONITOR DPPM DROP PPU 00253 M00S00225.vej +++| LJM PPR 00254 M00S00226.vej +++| OAST SPACE 4,10 00255 M00S00227.vej +++|** OAST - ORIGIN TYPE AND SERVICE CLASS TABLE. 00256 M00S00228.vej +++|* 00257 M00S00229.vej +++|*T 6/ SC, 6/ OT
Figure
00258 M00S00230.vej +++|* SC = SERVICE CLASS. 00259 M00S00231.vej +++|* OT = ORIGIN TYPE. 00260 M00S00232.vej +++| 00261 M00S00233.vej +++| 00262 M00S00234.vej +++| OAST BSS 0 00263 M00S00235.vej +++| VFD 6/SYSC,6/SYOT 00264 M00S00236.vej +++| VFD 6/BCSC,6/BCOT 00265 M00S00237.vej +++| VFD 6/RBSC,6/RBOT 00266 M00S00238.vej +++| VFD 6/TSSC,6/IAOT 00267 M00S00239.vej +++| TITLE ERROR PROCESSING ROUTINES. 00268 M00S00240.vej +++| ABT SPACE 4,10 00269 M00S00241.vej +++|** ABT - ABORT CONTROL POINT. 00270 M00S00242.vej +++|* 00271 M00S00243.vej +++|* ENTRY (A) = ERROR CODE. 00272 M00S00244.vej +++|* 00273 M00S00245.vej +++|* EXIT TO *PPR*. 00274 M00S00246.vej +++|* 00275 M00S00247.vej +++|* USES T1. 00276 M00S00248.vej +++|* 00277 M00S00249.vej +++|* CALLS DFM. 00278 M00S00250.vej +++|* 00279 M00S00251.vej +++|* MACROS MONITOR. 00280 M00S00252.vej +++| 00281 M00S00253.vej +++| 00282 M00S00254.vej +++| ABT SUBR ENTRY 00283 M00S00255.vej +++| STD T1 00284 M00S00256.vej +++| LDM TDFM,T1 GET FWA OF DAYFILE MESSAGE 00285 M00S00257.vej +++| ZJN ABT1 IF NO ADDRESS 00286 M00S00258.vej +++| ADC CPON 00287 M00S00259.vej +++| RJM DFM 00288 M00S00260.vej +++| ABT1 MONITOR ABTM ABORT CONTROL POINT 00289 M00S00261.vej +++| LJM PPR 00290 M00S00262.vej +++| TERC SPACE 4,5 00291 M00S00263.vej +++|** TERL - TABLE OF ERROR CODES. 00292 M00S00264.vej +++|* THE ORDER OF *TERC* IS DEPENDENT ON *TDFM*. 00293 M00S00265.vej +++| 00294 M00S00266.vej +++| 00295 M00S00267.vej +++| TERC BSS 0 00296 M00S00268.vej +++| LOC 1 00297 M00S00269.vej +++| ERJC BSS 1 JOB COMMAND ERROR 00298 M00S00270.vej +++| ERBA BSS 1 BUFFER ARGUMENT ERROR 00299 M00S00271.vej +++| ERAC BSS 1 USER COMMAND ERROR 00300 M00S00272.vej +++| ERFD BSS 1 FNT/DEVICE FULL 00301 M00S00273.vej +++| ERTD BSS 1 INCORRECT TID 00302 M00S00274.vej +++| ERIR BSS 1 INCORRECT REQUEST 00303 M00S00275.vej +++| ERUA BSS 1 DEVICE UNAVAILABLE 00304 M00S00276.vej +++| LOC *O 00305 M00S00277.vej +++| ORG TERC 00306 M00S00278.vej +++| TDFM SPACE 4 00307 M00S00279.vej +++|** TDFM - TABLE OF DAYFILE MESSAGE ADDRESSES. 00308 M00S00280.vej +++|* THE ORDER OF *TDFM* IS DEPENDENT ON *TERC*. 00309 M00S00281.vej +++| 00310 M00S00282.vej +++| 00311 M00S00283.vej +++| TDFM BSS 0 00312 M00S00284.vej +++| LOC 0 00313 M00S00285.vej +++| CON 0 00314 M00S00286.vej +++| CON 0 JOB COMMAND ERROR 00315 M00S00287.vej +++| CON DMBA BUFFER ARGUMENT ERROR 00316 M00S00288.vej +++| CON 0 ACCOUNT COMMAND ERROR (PROCESSED BY *0VJ*) 00317 M00S00289.vej +++| CON 0 FNT/DEVICE FULL 00318 M00S00290.vej +++| CON 0 INCORRECT TID 00319 M00S00291.vej +++| CON DMIR INCORRECT REQUEST 00320 M00S00292.vej +++| CON 0 DEVICE UNAVAILABLE 00321 M00S00293.vej +++| LOC *O 00322 M00S00294.vej +++| 00323 M00S00295.vej +++| 00324 M00S00296.vej +++|* DAYFILE MESSAGES. 00325 M00S00297.vej +++| 00326 M00S00298.vej +++| 00327 M00S00299.vej +++| DMBA DATA C* VEJ - BUFFER ARGUMENT ERROR.* 00328 M00S00300.vej +++| DMIR DATA C* VEJ - INCORRECT REQUEST.* 00329 M00S00301.vej +++| AIF TITLE SUBROUTINES. 00330 M00S00302.vej +++|** AIF - ASSIGN INPUT FILE. 00331 M00S00303.vej +++|* 00332 M00S00304.vej +++|* EXIT (FA) = RELATIVE FNT ADDRESS IN NFL. 00333 M00S00305.vej +++|* (QA) = QFT ORDINAL. 00334 M00S00306.vej +++|* (T5) = EQUIPMENT. 00335 M00S00307.vej +++|* (T6) = FIRST TRACK. 00336 M00S00308.vej +++|* (FN - FN+4) = FNT ENTRY. 00337 M00S00309.vej +++|* (FS - FS+4) = FST INFORMATION. 00338 M00S00310.vej +++|* 00339 M00S00311.vej +++|* ERROR TO ERROR PROCESSOR IF DEVICE FULL OR ERROR FROM *0DF*. 00340 M00S00312.vej +++|* 00341 M00S00313.vej +++|* USES T5, T6, CM - CM+7, FN - FN+4, FS - FS+2, 00342 M00S00314.vej +++|* FS+4, QA. 00343 M00S00315.vej +++|* 00344 M00S00316.vej +++|* CALLS CTE, DRF, GFO, *0BF*, *0DF*. 00345 M00S00317.vej +++|* 00346 M00S00318.vej +++|* MACROS ERROR, EXECUTE, MONITOR, SFA. 00347 M00S00319.vej +++| 00348 M00S00320.vej +++| 00349 M00S00321.vej +++| AIF SUBR ENTRY/EXIT 00350 M00S00322.vej +++| 00351 M00S00323.vej +++|* ASSIGN QFT ENTRY. 00352 M00S00324.vej +++| 00353 M00S00325.vej +++| LDN ZERL 00354 M00S00326.vej +++| CRD CM+3 00355 M00S00327.vej +++| LDN 7 SET CREATION, EJT AND INTERLOCK BITS 00356 M00S00328.vej +++| STD CM+7 00357 M00S00329.vej +++| LDN PQFT 00358 M00S00330.vej +++| RJM CTE CREATE TABLE ENTRY 00359 M00S00331.vej +++| ZJP AIF6 IF QFT ENTRY NOT ASSIGNED 00360 M00S00332.vej +++| CRD FN 00361 M00S00333.vej +++| CRM IOSS,ON 00362 M00S00334.vej +++| SBN 1 00363 M00S00335.vej +++| CRM OJSS,ON 00364 M00S00336.vej +++| LDD CM+1 PRESERVE QFT ORDINAL 00365 M00S00337.vej +++| STD QA 00366 M00S00338.vej +++| LDN 0 ZERO FILE FILE NAME 00367 M00S00339.vej +++| STD FN+2 00368 M00S00340.vej +++| STD FN+3 00369 M00S00341.vej +++| STD FN+4 00370 M00S00342.vej +++| 00371 M00S00343.vej +++|* ASSIGN FNT/FST AND MASS STORAGE TO FILE. 00372 M00S00344.vej +++| 00373 M00S00345.vej +++| AIF1 LDN NEEQ SELECT NO MASS STORAGE ASSIGNMENT 00374 M00S00346.vej +++| STD FS 00375 M00S00347.vej +++| LDM IOSS+5*INSQ+3 GET LOWER ACCESS LEVEL LIMIT OF JOB 00376 M00S00348.vej +++| LPN 70 00377 M00S00349.vej +++| SHN 3 00378 M00S00350.vej +++| LMD TH SET ACCESS LEVEL ON *0BF* CALL 00379 M00S00351.vej +++| ADN 5 RETURN ON NFL INCREASE, LOCAL FILE LIMIT 00380 M00S00352.vej +++| STM OVL0-1 00381 M00S00353.vej +++| EXECUTE 0BF,OVL0 BEGIN FILE 00382 M00S00354.vej +++| UJN AIF2 CHECK RETURN STATUS 00383 M00S00355.vej +++| 00384 M00S00356.vej +++|* PROCESS ADVANCE EXIT FROM *0BF* IF FILE ALREADY EXISTS. 00385 M00S00357.vej +++| 00386 M00S00358.vej +++| NFA FA,R READ FNT ENTRY 00387 M00S00359.vej +++| CRD FS 00388 M00S00360.vej +++| RJM SFB SET FILE BUSY 00389 M00S00361.vej +++| NJN AIF3 IF FILE BUSY REJECT 00390 M00S00362.vej +++| LDN 1 DROP DUPLICATE FILE 00391 M00S00363.vej +++| STM OVL0-1 00392 M00S00364.vej +++| EXECUTE 0DF,OVL0 00393 M00S00365.vej +++| PJN AIF4 IF FILE UNLOADED 00394 M00S00366.vej +++| AOD FS+4 00395 M00S00367.vej +++| NFA FA,R CLEAR FILE BUSY 00396 M00S00368.vej +++| CWD FS 00397 M00S00369.vej +++| ERROR ERUA * DEVICE UNAVAILABLE.* 00398 M00S00370.vej +++| 00399 M00S00371.vej +++|* PROCESS LOCAL FILE LIMIT OR WAIT FOR NFL INCREASE. 00400 M00S00372.vej +++| 00401 M00S00373.vej +++| AIF2 ZJN AIF5 IF FNT ENTRY CREATED 00402 M00S00374.vej +++| LMN 4 00403 M00S00375.vej +++| ZJP AIF6 IF LOCAL FILE LIMIT 00404 M00S00376.vej +++| AIF3 PAUSE NE 00405 M00S00377.vej +++| DELAY 00406 M00S00378.vej +++| AIF4 LJM AIF1 RETRY FILE CREATION 00407 M00S00379.vej +++| 00408 M00S00380.vej +++|* ASSIGN MASS STORAGE. 00409 M00S00381.vej +++| 00410 M00S00382.vej +++| AIF5 LDN ZERL REQUEST MASS STORAGE SPACE 00411 M00S00383.vej +++| CRD CM 00412 M00S00384.vej +++| LDN 2 00413 M00S00385.vej +++| STD CM+4 00414 M00S00386.vej +++| LDN INPS 00415 M00S00387.vej +++| STD CM+2 00416 M00S00388.vej +++| LDM IOSS+5*INSQ+3 GET LOWER ACCESS LEVEL LIMIT OF JOB 00417 M00S00389.vej +++| LPN 70 00418 M00S00390.vej +++| SHN 3 00419 M00S00391.vej +++| LMC 4000 SET ACCESS LEVEL SELECTION ON *RTCM* 00420 M00S00392.vej +++| STD CM+3 00421 M00S00393.vej +++| MONITOR RTCM REQUEST TRACK CHAIN 00422 M00S00394.vej +++| LDD CM+4 00423 M00S00395.vej +++| NJN AIF7 IF DISK SPACE ASSIGNED 00424 M00S00396.vej +++| 00425 M00S00397.vej +++|* PROCESS DEVICE FULL. 00426 M00S00398.vej +++| 00427 M00S00399.vej +++| LDD CP CONSOLE MESSAGE = *TRACK LIMIT.* 00428 M00S00400.vej +++| ADN MS2W 00429 M00S00401.vej +++| CWM AIFE,TR 00430 M00S00402.vej +++| LDN ZERL CLEAR PARAMETERS 00431 M00S00403.vej +++| CRD CM 00432 M00S00404.vej +++| LDN TKLE SET TRACK LIMIT EVENT 00433 M00S00405.vej +++| STD CM+4 00434 M00S00406.vej +++|* LDN 0 SET SYSTEM EVENT 00435 M00S00407.vej +++|* STD CM+3 00436 M00S00408.vej +++| MONITOR EATM 00437 M00S00409.vej +++| AIF6 RJM DRF DROP FILE 00438 M00S00410.vej +++| ERROR ERFD *FNT/DEVICE FULL.* 00439 M00S00411.vej +++| 00440 M00S00412.vej +++|* SET INFORMATION IN FNT/FST AND SYSTEM SECTOR. 00441 M00S00413.vej +++| 00442 M00S00414.vej +++| AIF7 STD T6 SET FIRST TRACK 00443 M00S00415.vej +++| STD FS+1 00444 M00S00416.vej +++| STM IOSS+ENTQ*5+1 00445 M00S00417.vej +++| STD FS+2 SET CURRENT TRACK 00446 M00S00418.vej +++| LDD CM+1 SET EQUIPMENT 00447 M00S00419.vej +++| STD FS 00448 M00S00420.vej +++| STM IOSS+ENTQ*5+0 00449 M00S00421.vej +++| STD T5 00450 M00S00422.vej +++| LDC QFFT*100 00451 M00S00423.vej +++| STD FN+4 00452 M00S00424.vej +++| LDD MA SET FNT IN SYSTEM SECTOR 00453 M00S00425.vej +++| CWD FN 00454 M00S00426.vej +++| CRM FNSS,ON 00455 M00S00427.vej +++| LDN 15 SET FILE NOT BUSY 00456 M00S00428.vej +++| STD FS+4 00457 M00S00429.vej +++| LDN 2 SET INITIAL FILE LENGTH 00458 M00S00430.vej +++| STM FLSS+1 00459 M00S00431.vej +++| LDC FLSS GET ADDRESS OF SYSTEM SECTOR FILE LENGTH 00460 M00S00432.vej +++| RJM RFI SET FILE SIZE INDEX IN QFT ENTRY 00461 M00S00433.vej +++| LDC 2RIN SET DISPOSITION CODE FIELD 00462 M00S00434.vej +++| STM DCSS 00463 M00S00435.vej +++| LDN 1 SET FILE PLACED IN QUEUE FLAG 00464 M00S00436.vej +++| STM FGSS 00465 M00S00437.vej +++| LDD CP ASSIGN QFT TO EJT 00466 M00S00438.vej +++| ADN TFSW 00467 M00S00439.vej +++| CRD CM 00468 M00S00440.vej +++| LDD CM 00469 M00S00441.vej +++| STM IOSS+ENTQ*5+4 00470 M00S00442.vej +++| SFA EJT SET CREATION JSN 00471 M00S00443.vej +++| ADK JSNE 00472 M00S00444.vej +++| CRD CM 00473 M00S00445.vej +++| LDD CM 00474 M00S00446.vej +++| STM CJSS 00475 M00S00447.vej +++| LDD CM+1 00476 M00S00448.vej +++| STM CJSS+1 00477 M00S00449.vej +++| LDC MMFL SET RESIDENT MACHINE ID 00478 M00S00450.vej +++| CRD CM 00479 M00S00451.vej +++| LDD CM 00480 M00S00452.vej +++| STM RMSS 00481 M00S00453.vej +++| STM CMSS 00482 M00S00454.vej +++| LDN PDTL SET QUEUED DATE/TIME 00483 M00S00455.vej +++| CRD CM 00484 M00S00456.vej +++| LDD CM+2 00485 M00S00457.vej +++| STM CDSS+2 00486 M00S00458.vej +++| LDD CM+3 00487 M00S00459.vej +++| STM CDSS+3 00488 M00S00460.vej +++| LDD CM+4 00489 M00S00461.vej +++| STM CDSS+4 00490 M00S00462.vej +++| LDM ACSS+3 GET CREATION USER INDEX 00491 M00S00463.vej +++| LPN 77 00492 M00S00464.vej +++| STM IOSS+JSNQ*5+2 00493 M00S00465.vej +++| LDM ACSS+4 00494 M00S00466.vej +++| STM IOSS+JSNQ*5+3 00495 M00S00467.vej +++| 00496 M00S00468.vej +++|* GET CREATION FAMILY ORDINAL. 00497 M00S00469.vej +++| 00498 M00S00470.vej +++| LDD MA 00499 M00S00471.vej +++| CWM FMSS,ON 00500 M00S00472.vej +++| SBN 1 00501 M00S00473.vej +++| CRD FN READ FAMILY NAME 00502 M00S00474.vej +++| LDN 1 00503 M00S00475.vej +++| RJM GFO 00504 M00S00476.vej +++| LDD FN+4 00505 M00S00477.vej +++| NJN AIF8 IF ORDINAL FOUND 00506 M00S00478.vej +++| STM IOSS+JSNQ*5+2 SET NO CREATION USER 00507 M00S00479.vej +++| STM IOSS+JSNQ*5+3 00508 M00S00480.vej +++| UJN AIF9 MOVE FILE NAME TO FNT WORD 00509 M00S00481.vej +++| 00510 M00S00482.vej +++| AIF8 SHN 6 00511 M00S00483.vej +++| RAM IOSS+5*JSNQ+2 00512 M00S00484.vej +++| AIF9 LDD MA MOVE FILE NAME TO FNT WORD 00513 M00S00485.vej +++| CWM FNSS,ON 00514 M00S00486.vej +++| SBN 1 00515 M00S00487.vej +++| CRD FN 00516 M00S00488.vej +++| LJM AIFX RETURN 00517 M00S00489.vej +++| 00518 M00S00490.vej +++| AIFE DATA C* TRACK LIMIT.* 00519 M00S00491.vej +++| CUT SPACE 4,10 00520 M00S00492.vej +++|** CUT - CONVERT USER NAME TO TID. 00521 M00S00493.vej +++|* 00522 M00S00494.vej +++|* ENTRY (T1+3 - T1+4) = TID FROM FET. 00523 M00S00495.vej +++|* (OT) = ORIGIN TYPE. 00524 M00S00496.vej +++|* 00525 M00S00497.vej +++|* EXIT ROUTING INFORMATION SET IN SYSTEM SECTOR. 00526 M00S00498.vej +++|* 00527 M00S00499.vej +++|* USES T1, T2, CN - CN+4, FN - FN+4. 00528 M00S00500.vej +++|* 00529 M00S00501.vej +++|* CALLS GFO, VCA, *0AV*. 00530 M00S00502.vej +++|* 00531 M00S00503.vej +++|* MACROS ABORT, ERROR, EXECUTE. 00532 M00S00504.vej +++| 00533 M00S00505.vej +++| 00534 M00S00506.vej +++| CUT4.1 LDD T1 CHECK USER INDEX 00535 M00S00507.vej +++| SHN 14 00536 M00S00508.vej +++| ADD T2 00537 M00S00509.vej +++| ZJN CUT4.4 IF NO USER INDEX PRESENT 00538 M00S00510.vej +++| STM DASS+4 SET DESTINATION TID (USER INDEX) 00539 M00S00511.vej +++| STM IOSS+SCLQ*5+2 00540 M00S00512.vej +++| SHN -14 00541 M00S00513.vej +++| STM IOSS+SCLQ*5+1 00542 M00S00514.vej +++| LDM DASS+3 COMBINE UI WITH 7TH CHARACTER OF UN 00543 M00S00515.vej +++| SCN 77 00544 M00S00516.vej +++| LMD T1 00545 M00S00517.vej +++| STM DASS+3 00546 M00S00518.vej +++| LDD MA GET FAMILY ORDINAL 00547 M00S00519.vej +++| CWM FDSS,ON 00548 M00S00520.vej +++| SBN 1 00549 M00S00521.vej +++| CRD FN 00550 M00S00522.vej +++|* LDN (NONZERO) DO NOT ADD FAMILY 00551 M00S00523.vej +++| RJM GFO GET FAMILY ORDINAL 00552 M00S00524.vej +++| LDD FN+4 00553 M00S00525.vej +++| ZJN CUT4.4 IF FAMILY NOT FOUND 00554 M00S00526.vej +++| SHN 6 00555 M00S00527.vej +++| RAM IOSS+SCLQ*5+1 00556 M00S00528.vej +++| UJN CUTX RETURN 00557 M00S00529.vej +++| 00558 M00S00530.vej +++| CUT4.4 ERROR ERTD *INCORRECT TID* 00559 M00S00531.vej +++| 00560 M00S00532.vej +++| CUT5 LDN 0 SET BATCH ID 00561 M00S00533.vej +++| STM IOSS+SCLQ*5+1 00562 M00S00534.vej +++| LDD T5 00563 M00S00535.vej +++| STM IOSS+SCLQ*5+2 00564 M00S00536.vej +++| SBN IDLM CHECK FOR INCORRECT ID 00565 M00S00537.vej +++| PJN CUT4.4 IF INCORRECT TID 00566 M00S00538.vej +++| 00567 M00S00539.vej +++| CUT SUBR ENTRY/EXIT 00568 M00S00540.vej +++| LDD OT 00569 M00S00541.vej +++| LMN EIOT 00570 M00S00542.vej +++| NJN CUT5 IF NOT REMOTE BATCH 00571 M00S00543.vej +++| LDD T1+3 00572 M00S00544.vej +++| SHN -6 00573 M00S00545.vej +++| LMN 77 00574 M00S00546.vej +++| NJN CUT4.4 IF NOT COMPLEMENT OF ADDRESS 00575 M00S00547.vej +++| LDD T1+3 00576 M00S00548.vej +++| SHN 14 00577 M00S00549.vej +++| LMN 77 00578 M00S00550.vej +++| LMD T1+4 00579 M00S00551.vej +++| LMC 777777 00580 M00S00552.vej +++| RJM VCA VALIDATE CENTRAL ADDRESS 00581 M00S00553.vej +++| ZJN CUT1 IF INCORRECT ADDRESS 00582 M00S00554.vej +++| ADN 1 00583 M00S00555.vej +++| RJM VCA VALIDATE CENTRAL ADDRESS 00584 M00S00556.vej +++| NJN CUT2 IF VALID ADDRESS 00585 M00S00557.vej +++| CUT1 ABORT ERBA * BUFFER ARGUMENT ERROR.* 00586 M00S00558.vej +++| 00587 M00S00559.vej +++| CUT2 SHN 14 READ USER NAME 00588 M00S00560.vej +++| ADD RA 00589 M00S00561.vej +++| SHN 6 00590 M00S00562.vej +++| CRD FN 00591 M00S00563.vej +++| CRM DASS,ON 00592 M00S00564.vej +++| SBN 2 00593 M00S00565.vej +++| CRD CN 00594 M00S00566.vej +++| CRM FDSS,ON 00595 M00S00567.vej +++| LDD CN 00596 M00S00568.vej +++| NJN CUT3 IF FAMILY NAME PRESENT 00597 M00S00569.vej +++| LDC FOTP SET DEFAULT FAMILY NAME 00598 M00S00570.vej +++| CRD CN 00599 M00S00571.vej +++| LDD CN 00600 M00S00572.vej +++| SHN 14 00601 M00S00573.vej +++| LMD CN+1 00602 M00S00574.vej +++| ADN 1 00603 M00S00575.vej +++| CRD CN 00604 M00S00576.vej +++| CRM FDSS,ON 00605 M00S00577.vej +++| CUT3 LDD FN+3 00606 M00S00578.vej +++| LPN 37 00607 M00S00579.vej +++| STD T1 00608 M00S00580.vej +++| SHN 14 00609 M00S00581.vej +++| LMD FN+4 00610 M00S00582.vej +++| STD T2 00611 M00S00583.vej +++| NJN CUT4 IF USER INDEX PRESENT 00612 M00S00584.vej +++| EXECUTE 0AV,OVL0 VALIDATE USER NAME 00613 M00S00585.vej +++| PJN CUT4 IF NO ERROR 00614 M00S00586.vej +++| ERROR ERUA * DEVICE UNAVAILABLE.* 00615 M00S00587.vej +++| 00616 M00S00588.vej +++| CUT4 LJM CUT4.1 CHECK USER INDEX 00617 M00S00589.vej +++| DRF SPACE 4,10 00618 M00S00590.vej +++|** DRF - DROP FILE AND QFT ENTRY. 00619 M00S00591.vej +++|* 00620 M00S00592.vej +++|* ENTRY (FA) = FNT ADDRESS. 00621 M00S00593.vej +++|* (QA) = ORDINAL OF QFT ENTRY. 00622 M00S00594.vej +++|* 00623 M00S00595.vej +++|* EXIT (A) = (QA) = 0. 00624 M00S00596.vej +++|* 00625 M00S00597.vej +++|* CALLS *0DF*, *0DQ*. 00626 M00S00598.vej +++|* 00627 M00S00599.vej +++|* MACROS EXECUTE. 00628 M00S00600.vej +++| 00629 M00S00601.vej +++| 00630 M00S00602.vej +++| DRF SUBR ENTRY/EXIT 00631 M00S00603.vej +++| LDN 1 00632 M00S00604.vej +++| STM OVL0-1 SELECT UNLOAD OPTION FOR *0DF* 00633 M00S00605.vej +++| LDD FA 00634 M00S00606.vej +++| ZJN DRF1 IF NO FILE 00635 M00S00607.vej +++| EXECUTE 0DF,OVL0 DROP LOCAL FILE 00636 M00S00608.vej +++| DRF1 LDD QA 00637 M00S00609.vej +++| ZJN DRFX IF NO QFT ENTRY 00638 M00S00610.vej +++|* LDN 1 00639 M00S00611.vej +++|* STM OVL0-1 SELECT NO DROP OF DISK SPACE 00640 M00S00612.vej +++| EXECUTE 0DQ,OVL0 00641 M00S00613.vej +++| LDN 0 CLEAR QFT ORDINAL 00642 M00S00614.vej +++| STD QA 00643 M00S00615.vej +++| UJN DRFX RETURN 00644 M00S00616.vej +++| GFA SPACE 4,5 00645 M00S00617.vej +++|** GFA - GET FET ADDRESS. 00646 M00S00618.vej +++|* 00647 M00S00619.vej +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00648 M00S00620.vej +++|* 00649 M00S00621.vej +++|* EXIT (A) = FET ADDRESS. 00650 M00S00622.vej +++| 00651 M00S00623.vej +++| 00652 M00S00624.vej +++| GFA SUBR ENTRY/EXIT 00653 M00S00625.vej +++| LDD IR+3 00654 M00S00626.vej +++| LPN 37 00655 M00S00627.vej +++| SHN 6 00656 M00S00628.vej +++| ADD RA 00657 M00S00629.vej +++| SHN 6 00658 M00S00630.vej +++| ADD IR+4 00659 M00S00631.vej +++| UJN GFAX RETURN 00660 M00S00632.vej +++| WIF SPACE 4,25 00661 M00S00633.vej +++|** WIF - WRITE INPUT FILE. 00662 M00S00634.vej +++|* 00663 M00S00635.vej +++|* ENTRY (T5) = EQUIPMENT. 00664 M00S00636.vej +++|* (T6) = FIRST TRACK. 00665 M00S00637.vej +++|* (FA) = NFL FNT ENTRY OFFSET. 00666 M00S00638.vej +++|* (FN - FN+4) = FNT ENTRY. 00667 M00S00639.vej +++|* (FS - FS+4) = FST ENTRY. 00668 M00S00640.vej +++|* (QA) = ORDINAL OF QFT ENTRY. 00669 M00S00641.vej +++|* *BFMS* CONTAINS SYSTEM SECTOR BUFFER. 00670 M00S00642.vej +++|* 00671 M00S00643.vej +++|* EXIT (FA) = RELATIVE FNT ADDRESS IN NFL. 00672 M00S00644.vej +++|* 00673 M00S00645.vej +++|* ERROR TO *VEJ4*. 00674 M00S00646.vej +++|* 00675 M00S00647.vej +++|* USES FA, SC, T5, CM - CM+4, FN - FN+4, FS - FS+4. 00676 M00S00648.vej +++|* 00677 M00S00649.vej +++|* CALLS DRF, WEI, WSS. 00678 M00S00650.vej +++|* 00679 M00S00651.vej +++|* MACROS ENDMS, NFA, SETMS, SFA. 00680 M00S00652.vej +++| 00681 M00S00653.vej +++| 00682 M00S00654.vej +++| WIF SUBR ENTRY/EXIT 00683 M00S00655.vej +++| 00684 M00S00656.vej +++|* WRITE SYSTEM SECTOR AND EOI. 00685 M00S00657.vej +++| 00686 M00S00658.vej +++| LDD FA 00687 M00S00659.vej +++| ZJN WIFX IF NO FILE 00688 M00S00660.vej +++| STM FASS SET FST ADDRESS IN SYSTEM SECTOR 00689 M00S00661.vej +++| STD SC SAVE FNT OFFSET 00690 M00S00662.vej +++| LDN FSMS 00691 M00S00663.vej +++| STD FS+3 00692 M00S00664.vej +++| NFA FA,R UPDATE FNT / FST IN NFL 00693 M00S00665.vej +++| CWD FN 00694 M00S00666.vej +++| ADN FSTL 00695 M00S00667.vej +++| CWD FS 00696 M00S00668.vej +++| LDD QA 00697 M00S00669.vej +++| STM GQSS 00698 M00S00670.vej +++| LDN 0 CLEAR FST ADDRESS 00699 M00S00671.vej +++| STD FA 00700 M00S00672.vej +++| SETMS IO,,WDSB 00701 M00S00673.vej +++| RJM WSS WRITE SYSTEM SECTOR 00702 M00S00674.vej +++| MJN WIF1 IF ERROR 00703 M00S00675.vej +++| RJM WEI WRITE EOI SECTOR 00704 M00S00676.vej +++| PJN WIF2 IF NO ERROR 00705 M00S00677.vej +++| WIF1 LDD SC 00706 M00S00678.vej +++| STD FA 00707 M00S00679.vej +++| RJM DRF DROP FILE 00708 M00S00680.vej +++| LJM VEJ4 RETRY ASSIGNING INPUT FILE 00709 M00S00681.vej +++| 00710 M00S00682.vej +++| WIF2 ENDMS 00711 M00S00683.vej +++| LDD SC UPDATE FNT/FST IN NFL 00712 M00S00684.vej +++| STD FA 00713 M00S00685.vej +++| LDN 2 UPDATE QFT ENTRY 00714 M00S00686.vej +++| STM IOSS+JSNQ*5+4
| Line S00687 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00715 M01S00687.ns2663 ---| LDN QFTE SET QFT LENGTH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00716 M01S00001.ns2663 +++| LDN QFTE-1 00717 M00S00688.vej +++| STD T5
| Line S00689 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00718 M01S00689.ns2663 ---| SFA QFT,QA 00719 M01S00690.ns2663 ---| CWM IOSS,T5
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00720 M01S00002.ns2663 +++| SFA QFT,QA SET QFT ADDRESS 00721 M01S00003.ns2663 +++| ADN 1 WRITE QFT DATA 00722 M01S00004.ns2663 +++| CWM IOSS+5,T5 00723 M01S00005.ns2663 +++| SBN QFTE-JSNQ WRITE INTERLOCK WORD 00724 M01S00006.ns2663 +++| CWM IOSS,ON 00725 M00S00691.vej +++| LJM WIFX RETURN 00726 M00S00692.vej +++| VCA SPACE 4,10 00727 M00S00693.vej +++|** VCA - VALIDATE CENTRAL ADDRESS. 00728 M00S00694.vej +++|* 00729 M00S00695.vej +++|* ENTRY (A) = CENTRAL ADDRESS TO VALIDATE. 00730 M00S00696.vej +++|* 00731 M00S00697.vej +++|* EXIT (A) = 0, IF ADDR .LE. 1, OR .GE. FL. 00732 M00S00698.vej +++|* (A) = CENTRAL ADDRESS IF VALID. 00733 M00S00699.vej +++|* (T1 - T2) = CENTRAL ADDRESS. 00734 M00S00700.vej +++| 00735 M00S00701.vej +++| 00736 M00S00702.vej +++| VCA1 STD T1 CLEAR UPPER PART OF ADDRESS 00737 M00S00703.vej +++| VCA2 LDN 0 SET BAD ADDRESS 00738 M00S00704.vej +++| 00739 M00S00705.vej +++| VCA SUBR ENTRY/EXIT 00740 M00S00706.vej +++| STD T2 00741 M00S00707.vej +++| SCN 1 00742 M00S00708.vej +++| ZJN VCA1 IF ADDRESS .LE. 1 00743 M00S00709.vej +++| SCN 77 00744 M00S00710.vej +++| SHN 6 00745 M00S00711.vej +++| STD T1 00746 M00S00712.vej +++| SHN 6 00747 M00S00713.vej +++| SBD FL 00748 M00S00714.vej +++| PJN VCA2 IF ADDRESS .GE. FL 00749 M00S00715.vej +++| LDD T1 00750 M00S00716.vej +++| SHN 14 00751 M00S00717.vej +++| LMD T2 00752 M00S00718.vej +++| UJN VCAX RETURN 00753 M00S00719.vej +++| SPACE 4 00754 M00S00720.vej +++|* COMMON DECKS. 00755 M00S00721.vej +++| 00756 M00S00722.vej +++| 00757 M00S00723.vej +++| SSJ$ EQU 1 ALLOW NON-SYSTEM ORIGIN SSJ= JOBS 00758 M00S00724.vej +++|*CALL COMPCUA 00759 M00S00725.vej +++|*CALL COMPCTE 00760 M00S00726.vej +++| IFP$ SET 1 SELECT *COMPGFP* REMOTE INITIALIZATION 00761 M00S00727.vej +++| QFT$ SET 1 SELECT *COMPGFP* QFT ADDRESSING 00762 M00S00728.vej +++| EJT$ SET 1 SELECT *COMPGFP* EJT ADDRESSING 00763 M00S00729.vej +++|*CALL COMPGFP 00764 M00S00730.vej +++|*CALL COMPRFI 00765 M00S00731.vej +++|*CALL COMPSFB 00766 M00S00732.vej +++| GFO$ SET 1 SELECT *COMPUFT* GET FAMILY ORDINAL 00767 M00S00733.vej +++|*CALL COMPUFT 00768 M00S00734.vej +++|*CALL COMPWEI 00769 M00S00735.vej +++| WCS$ EQU 1 CONSECUTIVE SECTOR AFTER SYSTEM SECTOR 00770 M00S00736.vej +++|*CALL COMPWSS 00771 M00S00737.vej +++| PRS TITLE PRESET. 00772 M00S00738.vej +++|** PRS - PRESET ROUTINE. 00773 M00S00739.vej +++|* 00774 M00S00740.vej +++|* EXIT (OT) = JOB ORIGIN TYPE. 00775 M00S00741.vej +++|* 00776 M00S00742.vej +++|* USES FA, QA, CM - CM+4, T1 - T5. 00777 M00S00743.vej +++|* 00778 M00S00744.vej +++|* CALLS CUT, DOT, GFA, IFP, VCA. 00779 M00S00745.vej +++|* 00780 M00S00746.vej +++|* MACROS ABORT. 00781 M00S00747.vej +++| 00782 M00S00748.vej +++| 00783 M00S00749.vej +++| PRS SUBR ENTRY/EXIT 00784 M00S00750.vej +++| LDN 0 00785 M00S00751.vej +++| STD FA CLEAR FST ADDRESS 00786 M00S00752.vej +++| STD QA CLEAR QFT ORDINAL 00787 M00S00753.vej +++| RJM IFP INITIALIZE *COMPGFP* ROUTINES 00788 M00S00754.vej +++| RJM DOT DETERMINE ORIGIN TYPE 00789 M00S00755.vej +++| MJN PRS1 IF NOT SUBSYSTEM 00790 M00S00756.vej +++| LDD IR+3 CHECK FET ADDRESS 00791 M00S00757.vej +++| LPN 37 00792 M00S00758.vej +++| SHN 14 00793 M00S00759.vej +++| LMD IR+4 00794 M00S00760.vej +++| RJM VCA VALIDATE CENTRAL ADDRESS 00795 M00S00761.vej +++| ZJN PRS1 IF INCORRECT ADDRESS 00796 M00S00762.vej +++| ADN 4 00797 M00S00763.vej +++| RJM VCA VALIDATE CENTRAL ADDRESS 00798 M00S00764.vej +++| NJN PRS2 IF VALID ADDRESS 00799 M00S00765.vej +++| PRS1 ABORT ERIR * VEJ - INCORRECT REQUEST.* 00800 M00S00766.vej +++| 00801 M00S00767.vej +++|* SET FET PARAMETERS. 00802 M00S00768.vej +++| 00803 M00S00769.vej +++| PRS2 RJM GFA GET FET ADDRESS 00804 M00S00770.vej +++| ADN 2 00805 M00S00771.vej +++| CRD T1 READ LWA 00806 M00S00772.vej +++| ADN 1 00807 M00S00773.vej +++| CRD CM READ FWA 00808 M00S00774.vej +++| LDD T1+3 00809 M00S00775.vej +++| LPN 37 00810 M00S00776.vej +++| STD T1+3 00811 M00S00777.vej +++| SHN 14 00812 M00S00778.vej +++| LMD T1+4 00813 M00S00779.vej +++| SBN 1 00814 M00S00780.vej +++| SHN -6 00815 M00S00781.vej +++| SBD FL 00816 M00S00782.vej +++| PJN PRS3 IF LWA .GE. FL 00817 M00S00783.vej +++| LDD CM+3 00818 M00S00784.vej +++| LPN 37 00819 M00S00785.vej +++| STD CM+3 00820 M00S00786.vej +++| LDD T1+3 00821 M00S00787.vej +++| SBD CM+3 00822 M00S00788.vej +++| SHN 14 00823 M00S00789.vej +++| ADD T1+4 00824 M00S00790.vej +++| SBD CM+4 00825 M00S00791.vej +++| ZJN PRS3 IF ZERO WORD COUNT 00826 M00S00792.vej +++| PJN PRS4 IF FWA .LE. LWA 00827 M00S00793.vej +++| PRS3 ABORT ERBA * VEJ - BUFFER ARGUMENT ERROR.* 00828 M00S00794.vej +++| 00829 M00S00795.vej +++| PRS4 STD T1 00830 M00S00796.vej +++| SBN BUFL 00831 M00S00797.vej +++| MJN PRS5 IF BUFFER LENGTH .LT. 18 CM WORDS 00832 M00S00798.vej +++| LDN BUFL SET MAXIMUM BUFFER SIZE 00833 M00S00799.vej +++| STD T1 00834 M00S00800.vej +++| PRS5 LDD CM+3 READ JOB/USER COMMANDS FROM CM BUFFER 00835 M00S00801.vej +++| SHN 6 00836 M00S00802.vej +++| ADD RA 00837 M00S00803.vej +++| SHN 6 00838 M00S00804.vej +++| ADD CM+4 00839 M00S00805.vej +++| CRM STMT,T1 00840 M00S00806.vej +++| 00841 M00S00807.vej +++|* PROCESS TID. 00842 M00S00808.vej +++| 00843 M00S00809.vej +++| RJM GFA READ TID 00844 M00S00810.vej +++| ADN 1 00845 M00S00811.vej +++| CRD T1 00846 M00S00812.vej +++| LDC 501 CLEAR SYSTEM SECTOR 00847 M00S00813.vej +++| STD T3 00848 M00S00814.vej +++| PRS6 LDN 0 00849 M00S00815.vej +++| STM BFMS,T3 00850 M00S00816.vej +++| SOD T3 00851 M00S00817.vej +++| PJN PRS6 IF NOT END OF BUFFER 00852 M00S00818.vej +++| RJM CUT CONVERT USER NAME TO TID 00853 M00S00819.vej +++| 00854 M00S00820.vej +++|* PROCESS ACCESS LEVEL. 00855 M00S00821.vej +++| 00856 M00S00822.vej +++| LDK SSML CHECK OPERATING SYSTEM SECURITY MODE 00857 M00S00823.vej +++| CRD CM 00858 M00S00824.vej +++| LDD CM 00859 M00S00825.vej +++| LPN 7 00860 M00S00826.vej +++| ZJN PRS7 IF SYSTEM IN UNSECURED MODE 00861 M00S00827.vej +++| RJM GFA READ *SP* BIT AND ACCESS LEVEL 00862 M00S00828.vej +++| ADN 1 00863 M00S00829.vej +++| CRD T1 00864 M00S00830.vej +++| ADN 4-1 00865 M00S00831.vej +++| CRD CM 00866 M00S00832.vej +++| LDD T1+1 00867 M00S00833.vej +++| LPN 10 00868 M00S00834.vej +++| ZJN PRS7 IF *SP* BIT NOT SET 00869 M00S00835.vej +++| AOM VEJA SET *ACCESS LEVEL SPECIFIED* FLAG 00870 M00S00836.vej +++| LDD CM+1 00871 M00S00837.vej +++| LPN 7 00872 M00S00838.vej +++| RAM VEJB SET ACCESS LEVEL 00873 M00S00839.vej +++| PRS7 LJM PRSX RETURN 00874 M00S00840.vej +++| SPACE 4 00875 M00S00841.vej +++|* BUFFERS AND OVERLAY ADDRESSES. 00876 M00S00842.vej +++| 00877 M00S00843.vej +++| 00878 M00S00844.vej +++| STMT EQU * JOB AND USER COMMAND BUFFER 00879 M00S00845.vej +++| 00880 M00S00846.vej +++| BUFL EQU 9D*2 COMMAND BUFFER LENGTH 00881 M00S00847.vej +++| OVL0 EQU STMT+BUFL*5+10 OVERLAY LOAD ADDRESS 00882 M00S00848.vej +++| WDSB EQU OVL0 WRITE ERROR PROCESSING BUFFER 00883 M00S00849.vej +++| ERRNG BFMS-OVL0-ZAVL 00884 M00S00850.vej +++| ERRNG EPFW-OVL0-ZBFL 00885 M00S00851.vej +++| ERRNG BFMS-OVL0-ZDFL 00886 M00S00852.vej +++| ERRNG BFMS-OVL0-ZDQL 00887 M00S00853.vej +++| ERRNG BFMS-OVL0-ZVJL 00888 M00S00854.vej +++| DOT SPACE 4,10 00889 M00S00855.vej +++|** DOT - DETERMINE ORIGIN TYPE OF CONTROL POINT. 00890 M00S00856.vej +++|* 00891 M00S00857.vej +++|* ENTRY NONE. 00892 M00S00858.vej +++|* 00893 M00S00859.vej +++|* EXIT (OT) = ORIGIN TYPE. 00894 M00S00860.vej +++|* (A) .GE. 0, IF JOB IS VALID CALLER. 00895 M00S00861.vej +++|* 00896 M00S00862.vej +++|* USES T1, CM - CM+4, CN - CN+4. 00897 M00S00863.vej +++|* 00898 M00S00864.vej +++|* MACROS SFA. 00899 M00S00865.vej +++| 00900 M00S00866.vej +++| 00901 M00S00867.vej +++| DOT3 LDD CP READ EJT ORDINAL FROM CP AREA 00902 M00S00868.vej +++| ADN TFSW 00903 M00S00869.vej +++| CRD CN 00904 M00S00870.vej +++| SFA EJT,CN GET EJT ADDRESS 00905 M00S00871.vej +++| ADN SCLE 00906 M00S00872.vej +++| CRD CN 00907 M00S00873.vej +++| LDD CN SET ORIGIN TYPE 00908 M00S00874.vej +++| LPN 17 00909 M00S00875.vej +++| STD OT 00910 M00S00876.vej +++| LDD CM+2 00911 M00S00877.vej +++| NJN DOTX IF VALID CALL 00912 M00S00878.vej +++| LCN 0 FLAG INCORRECT CALL 00913 M00S00879.vej +++| 00914 M00S00880.vej +++| DOT SUBR ENTRY/EXIT 00915 M00S00881.vej +++| LDD CP READ SUBSYSTEM ID 00916 M00S00882.vej +++| ADN JCIW 00917 M00S00883.vej +++| CRD CM 00918 M00S00884.vej +++| LDN 0 00919 M00S00885.vej +++| STD T1 00920 M00S00886.vej +++| DOT1 LDM TQPR,T1 00921 M00S00887.vej +++| ZJN DOT3 IF END OF TABLE 00922 M00S00888.vej +++| LMD CM+2 00923 M00S00889.vej +++| ZJN DOT2 IF MATCH 00924 M00S00890.vej +++| LDN TQPRE ADVANCE INDEX 00925 M00S00891.vej +++| RAD T1 00926 M00S00892.vej +++| UJN DOT1 00927 M00S00893.vej +++| 00928 M00S00894.vej +++| DOT2 LDM TQPR+1,T1 SET ORIGIN TYPE 00929 M00S00895.vej +++| STD OT 00930 M00S00896.vej +++| UJN DOTX RETURN 00931 M00S00897.vej +++| 00932 M00S00898.vej +++| 00933 M00S00899.vej +++|* TQPR - TABLE OF SUBSYSTEM ID-S. 00934 M00S00900.vej +++|* 00935 M00S00901.vej +++|*T 12/ SI, 12/ OT
Figure
00936 M00S00902.vej +++|* SI = SUBSYSTEM ID. 00937 M00S00903.vej +++|* OT = ORIGIN TYPE. 00938 M00S00904.vej +++| 00939 M00S00905.vej +++| 00940 M00S00906.vej +++| TQPR BSS 0 00941 M00S00907.vej +++| CON RBSI,EIOT RBF 00942 M00S00908.vej +++| TQPRE EQU *-TQPR LENGTH OF AN ENTRY 00943 M00S00909.vej +++| CON BISI,BCOT BATCHIO 00944 M00S00910.vej +++| CON 0,0 END OF TABLE 00945 M00S00911.vej +++| SPACE 4 00946 M00S00912.vej +++|* COMMON DECKS. 00947 M00S00913.vej +++| 00948 M00S00914.vej +++| 00949 M00S00915.vej +++|*CALL COMPCRS 00950 M00S00916.vej +++| SPACE 4,10 00951 M00S00917.vej +++| IFP HERE 00952 M00S00918.vej +++| SPACE 4,10 00953 M00S00919.vej +++| END
cdc/nos2.source/opl.opl871/deck/vej.txt · Last modified: (external edit)