cdc:nos2.source:opl.opl871:deck:vej
Deck VEJ
3 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.vej +++| IDENT VEJ,VEJ 00002 M01S00002.vej +++| PERIPH 00003 M01S00003.vej +++| BASE MIXED 00004 M01S00004.vej +++| SST 00005 M01S00005.vej +++| IOQ$ EQU 1 DEFINE TABLE FOR *SFA* MACRO 00006 M01S00006.vej +++|*COMMENT VEJ - VERIFY JOB FILE INFORMATION.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | vej |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1976. 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.vej +++| TITLE VEJ - VERIFY JOB FILE INFORMATION. 00010 M01S00009.vej +++| SPACE 4 00011 M01S00010.vej +++|*** VEJ - VERIFY JOB FILE. 00012 M01S00011.vej +++|* R. A. JAPS. 76/01/13. 00013 M01S00012.vej +++|* M. J. CARIDDI. 81/07/17. 00014 M01S00013.vej +++| SPACE 4 00015 M01S00014.vej +++|*** *VEJ* IS CALLED TO VERIFY BASIC JOB COMMAND AND OTHER 00016 M01S00015.vej +++|* REQUIRED ACCOUNTING TYPE COMMANDS (CURRENTLY, ONLY THE 00017 M01S00016.vej +++|* USER COMMAND) FOR A NEW JOB (INPUT) FILE. *VEJ* WILL 00018 M01S00017.vej +++|* VERIFY THE INFORMATION, CREATE A SYSTEM NAME FOR THE 00019 M01S00018.vej +++|* NEW JOB AND ASSIGN THE FILE TO THE APPROPRIATE DEVICE. 00020 M01S00019.vej +++|* 00021 M01S00020.vej +++|* *VEJ* MUST BE CALLED BY A SUBSYSTEM. 00022 M01S00021.vej +++| SPACE 4 00023 M01S00022.vej +++|*** CALL. 00024 M01S00023.vej +++|* 00025 M01S00024.vej +++|*T 18/ *VEJ*, 2/1, 22/ 0, 18/ FET ADDRESS
Figure
00026 M01S00025.vej +++|* 00027 M01S00026.vej +++|* FORMAT OF FET. 00028 M01S00027.vej +++|* 00029 M01S00028.vej +++|*T,FET 42/ , 6/ , 11/ , 1/0
Figure FET
00030 M01S00029.vej +++|*T,FET+1 20/ , 1/ SP, 15/ , 24/ TID
Figure FET+1
00031 M01S00030.vej +++|*T,FET+2 42/ , 18/ LWA (IN)
Figure FET+2
00032 M01S00031.vej +++|*T,FET+3 42/ , 18/ FWA (OUT)
Figure FET+3
00033 M01S00032.vej +++|*T,FET+4 21/ , 3/ AL, 36/
Figure FET+4
00034 M01S00033.vej +++|* 00035 M01S00034.vej +++|* SP = SECURITY PROCESSING BIT. 00036 M01S00035.vej +++|* INDICATES THAT *AL* FIELD HAS BEEN SPECIFIED. 00037 M01S00036.vej +++|* TID = TERMINAL ID. 00038 M01S00037.vej +++|* IF THE UPPER SIX BITS ARE EQUAL TO 77B, THE 00039 M01S00038.vej +++|* LOWER EIGHTEEN BITS CONTAIN THE COMPLEMENT 00040 M01S00039.vej +++|* OF A CM ADDRESS OF A TWO WORD FAMILY NAME - USER 00041 M01S00040.vej +++|* NUMBER AREA. 00042 M01S00041.vej +++|* TAG+0 42/ FAMILY NAME , 18/ 0 00043 M01S00042.vej +++|* TAG+1 42/ USER NAME , 18/ 0 00044 M01S00043.vej +++|* IF THE UPPER SIX BITS ARE NOT EQUAL TO 77B, THE 00045 M01S00044.vej +++|* LOWER TWENTYONE BITS CONTAIN THE TID. 00046 M01S00045.vej +++|* LWA = LAST WORD ADDRESS OF BUFFER CONTAINING JOB/USER 00047 M01S00046.vej +++|* COMMANDS. 00048 M01S00047.vej +++|* FWA = FIRST WORD ADDRESS OF BUFFER. 00049 M01S00048.vej +++|* AL = ACCESS LEVEL LIMIT FOR COMMUNICATIONS LINE. 00050 M01S00049.vej +++|* ON A SECURED SYSTEM, THE UPPER ACCESS LEVEL LIMIT 00051 M01S00050.vej +++|* FOR THE JOB MUST BE .LE. THIS VALUE (IF SPECIFIED). 00052 M01S00051.vej +++| SPACE 4 00053 M01S00052.vej +++|*** RETURN. 00054 M01S00053.vej +++|* 00055 M01S00054.vej +++|*T,FET 42/ JOBNAME , 6/ EC, 11/ , 1/1
Figure FET
00056 M01S00055.vej +++|*T,FET+1 36/ , 24/ TID
Figure FET+1
00057 M01S00056.vej +++|*T,FET+2 42/ , 18/ LWA
Figure FET+2
00058 M01S00057.vej +++|*T,FET+3 42/ , 18/ FWA
Figure FET+3
00059 M01S00058.vej +++|*T,FET+4 12/ FNT OFF , 48/
Figure FET+4
00060 M01S00059.vej +++|* 00061 M01S00060.vej +++|* EC = ERROR CODES. 00062 M01S00061.vej +++|* 0 = NO ERROR ENCOUNTERED. 00063 M01S00062.vej +++|* 1 = JOB COMMAND ERROR. 00064 M01S00063.vej +++|* 2 = BUFFER ARGUMENT ERROR. (FATAL) 00065 M01S00064.vej +++|* 3 = ACCOUNT COMMAND ERROR. 00066 M01S00065.vej +++|* 4 = FNT/DEVICE FULL. 00067 M01S00066.vej +++|* 5 = INCORRECT TID. 00068 M01S00067.vej +++|* 6 = INCORRECT REQUEST. (FATAL) 00069 M01S00068.vej +++|* 7 = DEVICE UNAVAILABLE. 00070 M01S00069.vej +++|* 00071 M01S00070.vej +++|* FNT OFF = OFFSET OF FNT ENTRY IN NFL. 00072 M01S00071.vej +++| SPACE 4 00073 M01S00072.vej +++|** DAYFILE MESSAGES. 00074 M01S00073.vej +++|* 00075 M01S00074.vej +++|* 00076 M01S00075.vej +++|* * VEJ - BUFFER ARGUMENT ERROR.* 00077 M01S00076.vej +++|* FET BUFFER POINTERS ARE INCORRECT. 00078 M01S00077.vej +++|* (FWA .LT. LWA .LE. FL) 00079 M01S00078.vej +++|* 00080 M01S00079.vej +++|* * VEJ - INCORRECT REQUEST.* 00081 M01S00080.vej +++|* CAN INDICATE ONE OF THE FOLLOWING CONDITIONS - 00082 M01S00081.vej +++|* 1. *VEJ* NOT CALLED BY A SUBSYSTEM. 00083 M01S00082.vej +++|* 2. FET ADDRESS OUT OF RANGE. 00084 M01S00083.vej +++|* 3. A JOB WITHOUT SSJ= PRIVILEGES ATTEMPTED TO SPECIFY 00085 M01S00084.vej +++|* A SYSTEM SECTOR ADDRESS IN THE SYSTEM REQUEST. 00086 M01S00085.vej +++|* 4. SYSTEM SECTOR BUFFER NOT WITHIN FL. 00087 M01S00086.vej +++|* 5. CALLER WAS NOT SYSTEM ORIGIN OR DID NOT HAVE 00088 M01S00087.vej +++|* SYSTEM ORIGIN PRIVILEGES. 00089 M01S00088.vej +++| SPACE 4 00090 M01S00089.vej +++|** ROUTINES CALLED. 00091 M01S00090.vej +++|* 00092 M01S00091.vej +++|* 0AV - ACCOUNT VALIDATION. 00093 M01S00092.vej +++|* 0BF - BEGIN FILE. 00094 M01S00093.vej +++|* 0DF - DROP FILE. 00095 M01S00094.vej +++|* 0DQ - DROP QFT ENTRY. 00096 M01S00095.vej +++|* 0VJ - VERIFY JOB AND USER COMMAND. 00097 M01S00096.vej +++| SPACE 4 00098 M01S00097.vej +++|* COMMON DECKS. 00099 M01S00098.vej +++| 00100 M01S00099.vej +++|*CALL COMPMAC 00101 M01S00100.vej +++|*CALL COMSCPS 00102 M01S00101.vej +++|*CALL COMSDSP 00103 M01S00102.vej +++|*CALL COMSEVT 00104 M01S00103.vej +++|*CALL COMSMSP 00105 M01S00104.vej +++|*CALL COMSSCD 00106 M01S00105.vej +++|*CALL COMSSSD 00107 M01S00106.vej +++|*CALL COMSSSE 00108 M01S00107.vej +++|*CALL COMSSSJ 00109 M01S00108.vej +++|*CALL COMSWEI 00110 M01S00109.vej +++|*CALL COMSZOL 00111 M01S00110.vej +++| SPACE 4 00112 M01S00111.vej +++|**** DIRECT LOCATION ASSIGNMENTS. 00113 M01S00112.vej +++| 00114 M01S00113.vej +++| 00115 M01S00114.vej +++| FS EQU 20 - 24 FST (5 LOCATIONS) 00116 M01S00115.vej +++| QA EQU 26 ORDINAL OF QFT ENTRY 00117 M01S00116.vej +++| FT EQU 27 TABLE FWA 00118 M01S00117.vej +++| CN EQU 30 - 34 CM BUFFER (5 LOCATIONS) 00119 M01S00118.vej +++| SC EQU 35 SCRATCH 00120 M01S00119.vej +++| FN EQU 40 - 44 FILE NAME (5 LOCATIONS) 00121 M01S00120.vej +++| OT EQU 46 ORIGIN TYPE 00122 M01S00121.vej +++| ER EQU 47 ERROR STATUS 00123 M01S00122.vej +++| FA EQU 57 NFL FNT ENTRY OFFSET 00124 M01S00123.vej +++| 00125 M01S00124.vej +++|**** 00126 M01S00125.vej +++| TITLE MACRO DEFINITIONS. 00127 M01S00126.vej +++|** ERROR - ERROR PROCESSING. 00128 M01S00127.vej +++|* 00129 M01S00128.vej +++|* ERROR ER 00130 M01S00129.vej +++| 00131 M01S00130.vej +++| 00132 M01S00131.vej +++| PURGMAC ERROR 00133 M01S00132.vej +++| 00134 M01S00133.vej +++| ERROR MACRO E 00135 M01S00134.vej +++| MACREF ERROR 00136 M01S00135.vej +++| LDN E 00137 M01S00136.vej +++| STD ER 00138 M01S00137.vej +++| LJM VEJ5 SET ERROR CODE 00139 M01S00138.vej +++| ENDM 00140 M01S00139.vej +++| SPACE 4 00141 M01S00140.vej +++|** ABORT - ABORT CONTROL POINT. 00142 M01S00141.vej +++|* 00143 M01S00142.vej +++|* ABORT ER 00144 M01S00143.vej +++|* 00145 M01S00144.vej +++|* ER = ERROR CODE. 00146 M01S00145.vej +++| 00147 M01S00146.vej +++| 00148 M01S00147.vej +++| PURGMAC ABORT 00149 M01S00148.vej +++| 00150 M01S00149.vej +++| ABORT MACRO E 00151 M01S00150.vej +++| MACREF ABORT 00152 M01S00151.vej +++| LDN E 00153 M01S00152.vej +++| RJM ABT 00154 M01S00153.vej +++| ENDM 00155 M01S00154.vej +++| EJECT 00156 M01S00155.vej +++| TITLE MAIN PROGRAM. 00157 M01S00156.vej +++| ORG PPFW 00158 M01S00157.vej +++| SPACE 4 00159 M01S00158.vej +++|** MAIN PROGRAM. 00160 M01S00159.vej +++| 00161 M01S00160.vej +++| 00162 M01S00161.vej +++| VEJ BSS 0 ENTRY 00163 M01S00162.vej +++| RJM PRS PRESET 00164 M01S00163.vej +++| LDN ZERL CLEAR DLID / SET LOWER ACCESS LEVEL LIMIT 00165 M01S00164.vej +++| CRD CN 00166 M01S00165.vej +++| LDC STMT SET FIRST WORD OF PP BUFFER 00167 M01S00166.vej +++| STD CN 00168 M01S00001.ns2420c +++| LDC 400 SET *DO NOT DELETE PASSWORD* FLAG 00169 M01S00002.ns2420c +++| RAD CN+2 00170 M01S00167.vej +++| LDN 0 00171 M01S00168.vej +++| STM IOSS+INSQ*5+1 CLEAR DLID IN QFT / SYSTEM SECTOR 00172 M01S00169.vej +++| LDM IOSS+INSQ*5+2 00173 M01S00170.vej +++| LPN 77 00174 M01S00171.vej +++| STM IOSS+INSQ*5+2 00175 M01S00172.vej +++| LDM OAST,OT SET ORIGIN AND SERVICE CLASS 00176 M01S00173.vej +++| STM IOSS+SCLQ*5+0 00177 M01S00174.vej +++| EXECUTE 0VJ,OVL0 VERIFY JOB AND USER COMMAND 00178 M01S00175.vej +++| PJN VEJ1 IF VERIFICATION COMPLETE 00179 M01S00176.vej +++| ERROR ERUA * DEVICE UNAVAILABLE.* 00180 M01S00177.vej +++| 00181 M01S00178.vej +++| VEJ1 LDM SLSS CLEAR SLID IN SYSTEM SECTOR 00182 M01S00179.vej +++| SCN 77 00183 M01S00180.vej +++| STM SLSS 00184 M01S00181.vej +++| LDN 0 00185 M01S00182.vej +++| STM SLSS+1 00186 M01S00183.vej +++| LDD ER 00187 M01S00184.vej +++| LMN ERAC
| Line S00185 Modification History | |
|---|---|
M01 (Added by) | vej |
M02 (Updated by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00188 M02S00185.ns2420c ---| ZJN VEJ3 IF *USER COMMAND ERROR* 00189 M01S00003.ns2420c +++| ZJN VEJ2 IF *USER COMMAND ERROR* 00190 M01S00186.vej +++| VEJA LDN 0 00191 M01S00187.vej +++|* LDN 1 (*SP* BIT SPECIFIED) 00192 M01S00188.vej +++| ZJN VEJ4 IF *SP* NOT SPECIFIED OR UNSECURED SYSTEM 00193 M01S00189.vej +++| LDM IOSS+5*INSQ+3 CHECK UPPER ACCESS LEVEL LIMIT 00194 M01S00190.vej +++| LPN 7 00195 M01S00191.vej +++| VEJB SBN 1 00196 M01S00192.vej +++|* SBN AL+1 (SPECIFIED ACCESS LEVEL + 1) 00197 M01S00193.vej +++| MJN VEJ4 IF JOB MAY BE CREATED 00198 M01S00194.vej +++| LDN ERJC SET *JOB COMMAND ERROR* STATUS 00199 M01S00195.vej +++| STD ER
| Line S00196 Modification History | |
|---|---|
M01 (Added by) | vej |
M02 (Updated by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00200 M02S00196.ns2420c ---| LCN UNIE-JCIE
| Line S00197 Modification History | |
|---|---|
M01 (Added by) | vej |
M02 (Updated by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00201 M02S00197.ns2420c ---| VEJ3 ADN UNIE SET JOB ABORT CODE IN SYSTEM SECTOR
| Line S00198 Modification History | |
|---|---|
M01 (Added by) | vej |
M02 (Updated by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00202 M02S00198.ns2420c ---| STM JASS 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 M01S00199.vej +++| 00225 M01S00200.vej +++|* RETURN HERE FROM *WIF* IF MASS STORAGE ERROR. 00226 M01S00201.vej +++|
| Line S00202 Modification History | |
|---|---|
M01 (Added by) | vej |
M02 (Updated by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00227 M02S00202.ns2420c ---| VEJ4 RJM AIF ASSIGN INPUT FILE 00228 M01S00025.ns2420c +++| VEJ4 LDN ZERL CLEAR ENCRYPTED PASSWORD 00229 M01S00026.ns2420c +++| CRM EPSS,ON 00230 M01S00027.ns2420c +++| RJM AIF ASSIGN INPUT FILE 00231 M01S00203.vej +++| RJM WIF WRITE INPUT FILE 00232 M01S00204.vej +++| 00233 M01S00205.vej +++|* ENTER HERE FROM *ERROR* MACRO CALLS. 00234 M01S00206.vej +++| 00235 M01S00207.vej +++| VEJ5 LDD FN+3 SET ERROR CODE 00236 M01S00208.vej +++| SCN 77 00237 M01S00209.vej +++| LMD ER 00238 M01S00210.vej +++| STD FN+3 00239 M01S00211.vej +++| LDN 1 SET FET COMPLETE 00240 M01S00212.vej +++| STD FN+4 00241 M01S00213.vej +++| RJM GFA SET FNT OFFSET 00242 M01S00214.vej +++| ADN 4 00243 M01S00215.vej +++| CRD CM 00244 M01S00216.vej +++| LDD FA 00245 M01S00217.vej +++| STD CM 00246 M01S00218.vej +++| RJM GFA WRITE FET INFORMATION 00247 M01S00219.vej +++| ADN 4 00248 M01S00220.vej +++| CWD CM 00249 M01S00221.vej +++| SBN 4 00250 M01S00222.vej +++| CWD FN 00251 M01S00223.vej +++| 00252 M01S00224.vej +++| DPP MONITOR DPPM DROP PPU 00253 M01S00225.vej +++| LJM PPR 00254 M01S00226.vej +++| OAST SPACE 4,10 00255 M01S00227.vej +++|** OAST - ORIGIN TYPE AND SERVICE CLASS TABLE. 00256 M01S00228.vej +++|* 00257 M01S00229.vej +++|*T 6/ SC, 6/ OT
Figure
00258 M01S00230.vej +++|* SC = SERVICE CLASS. 00259 M01S00231.vej +++|* OT = ORIGIN TYPE. 00260 M01S00232.vej +++| 00261 M01S00233.vej +++| 00262 M01S00234.vej +++| OAST BSS 0 00263 M01S00235.vej +++| VFD 6/SYSC,6/SYOT 00264 M01S00236.vej +++| VFD 6/BCSC,6/BCOT 00265 M01S00237.vej +++| VFD 6/RBSC,6/RBOT 00266 M01S00238.vej +++| VFD 6/TSSC,6/IAOT 00267 M01S00239.vej +++| TITLE ERROR PROCESSING ROUTINES. 00268 M01S00240.vej +++| ABT SPACE 4,10 00269 M01S00241.vej +++|** ABT - ABORT CONTROL POINT. 00270 M01S00242.vej +++|* 00271 M01S00243.vej +++|* ENTRY (A) = ERROR CODE. 00272 M01S00244.vej +++|* 00273 M01S00245.vej +++|* EXIT TO *PPR*. 00274 M01S00246.vej +++|* 00275 M01S00247.vej +++|* USES T1. 00276 M01S00248.vej +++|* 00277 M01S00249.vej +++|* CALLS DFM. 00278 M01S00250.vej +++|* 00279 M01S00251.vej +++|* MACROS MONITOR. 00280 M01S00252.vej +++| 00281 M01S00253.vej +++| 00282 M01S00254.vej +++| ABT SUBR ENTRY 00283 M01S00255.vej +++| STD T1 00284 M01S00256.vej +++| LDM TDFM,T1 GET FWA OF DAYFILE MESSAGE 00285 M01S00257.vej +++| ZJN ABT1 IF NO ADDRESS 00286 M01S00258.vej +++| ADC CPON 00287 M01S00259.vej +++| RJM DFM 00288 M01S00260.vej +++| ABT1 MONITOR ABTM ABORT CONTROL POINT 00289 M01S00261.vej +++| LJM PPR 00290 M01S00262.vej +++| TERC SPACE 4,5 00291 M01S00263.vej +++|** TERL - TABLE OF ERROR CODES. 00292 M01S00264.vej +++|* THE ORDER OF *TERC* IS DEPENDENT ON *TDFM*. 00293 M01S00265.vej +++| 00294 M01S00266.vej +++| 00295 M01S00267.vej +++| TERC BSS 0 00296 M01S00268.vej +++| LOC 1 00297 M01S00269.vej +++| ERJC BSS 1 JOB COMMAND ERROR 00298 M01S00270.vej +++| ERBA BSS 1 BUFFER ARGUMENT ERROR 00299 M01S00271.vej +++| ERAC BSS 1 USER COMMAND ERROR 00300 M01S00272.vej +++| ERFD BSS 1 FNT/DEVICE FULL 00301 M01S00273.vej +++| ERTD BSS 1 INCORRECT TID 00302 M01S00274.vej +++| ERIR BSS 1 INCORRECT REQUEST 00303 M01S00275.vej +++| ERUA BSS 1 DEVICE UNAVAILABLE 00304 M01S00276.vej +++| LOC *O 00305 M01S00277.vej +++| ORG TERC 00306 M01S00278.vej +++| TDFM SPACE 4 00307 M01S00279.vej +++|** TDFM - TABLE OF DAYFILE MESSAGE ADDRESSES. 00308 M01S00280.vej +++|* THE ORDER OF *TDFM* IS DEPENDENT ON *TERC*. 00309 M01S00281.vej +++| 00310 M01S00282.vej +++| 00311 M01S00283.vej +++| TDFM BSS 0 00312 M01S00284.vej +++| LOC 0 00313 M01S00285.vej +++| CON 0 00314 M01S00286.vej +++| CON 0 JOB COMMAND ERROR 00315 M01S00287.vej +++| CON DMBA BUFFER ARGUMENT ERROR 00316 M01S00288.vej +++| CON 0 ACCOUNT COMMAND ERROR (PROCESSED BY *0VJ*) 00317 M01S00289.vej +++| CON 0 FNT/DEVICE FULL 00318 M01S00290.vej +++| CON 0 INCORRECT TID 00319 M01S00291.vej +++| CON DMIR INCORRECT REQUEST 00320 M01S00292.vej +++| CON 0 DEVICE UNAVAILABLE 00321 M01S00293.vej +++| LOC *O 00322 M01S00294.vej +++| 00323 M01S00295.vej +++| 00324 M01S00296.vej +++|* DAYFILE MESSAGES. 00325 M01S00297.vej +++| 00326 M01S00298.vej +++| 00327 M01S00299.vej +++| DMBA DATA C* VEJ - BUFFER ARGUMENT ERROR.* 00328 M01S00300.vej +++| DMIR DATA C* VEJ - INCORRECT REQUEST.* 00329 M01S00301.vej +++| AIF TITLE SUBROUTINES. 00330 M01S00302.vej +++|** AIF - ASSIGN INPUT FILE. 00331 M01S00303.vej +++|* 00332 M01S00304.vej +++|* EXIT (FA) = RELATIVE FNT ADDRESS IN NFL. 00333 M01S00305.vej +++|* (QA) = QFT ORDINAL. 00334 M01S00306.vej +++|* (T5) = EQUIPMENT. 00335 M01S00307.vej +++|* (T6) = FIRST TRACK. 00336 M01S00308.vej +++|* (FN - FN+4) = FNT ENTRY. 00337 M01S00309.vej +++|* (FS - FS+4) = FST INFORMATION. 00338 M01S00310.vej +++|* 00339 M01S00311.vej +++|* ERROR TO ERROR PROCESSOR IF DEVICE FULL OR ERROR FROM *0DF*. 00340 M01S00312.vej +++|* 00341 M01S00313.vej +++|* USES T5, T6, CM - CM+7, FN - FN+4, FS - FS+2, 00342 M01S00314.vej +++|* FS+4, QA. 00343 M01S00315.vej +++|* 00344 M01S00316.vej +++|* CALLS CTE, DRF, GFO, *0BF*, *0DF*. 00345 M01S00317.vej +++|* 00346 M01S00318.vej +++|* MACROS ERROR, EXECUTE, MONITOR, SFA. 00347 M01S00319.vej +++| 00348 M01S00320.vej +++| 00349 M01S00321.vej +++| AIF SUBR ENTRY/EXIT 00350 M01S00322.vej +++| 00351 M01S00323.vej +++|* ASSIGN QFT ENTRY. 00352 M01S00324.vej +++| 00353 M01S00325.vej +++| LDN ZERL 00354 M01S00326.vej +++| CRD CM+3 00355 M01S00327.vej +++| LDN 7 SET CREATION, EJT AND INTERLOCK BITS 00356 M01S00328.vej +++| STD CM+7 00357 M01S00329.vej +++| LDN PQFT 00358 M01S00330.vej +++| RJM CTE CREATE TABLE ENTRY 00359 M01S00331.vej +++| ZJP AIF6 IF QFT ENTRY NOT ASSIGNED 00360 M01S00332.vej +++| CRD FN 00361 M01S00333.vej +++| CRM IOSS,ON 00362 M01S00334.vej +++| SBN 1 00363 M01S00335.vej +++| CRM OJSS,ON 00364 M01S00336.vej +++| LDD CM+1 PRESERVE QFT ORDINAL 00365 M01S00337.vej +++| STD QA 00366 M01S00338.vej +++| LDN 0 ZERO FILE FILE NAME 00367 M01S00339.vej +++| STD FN+2 00368 M01S00340.vej +++| STD FN+3 00369 M01S00341.vej +++| STD FN+4 00370 M01S00342.vej +++| 00371 M01S00343.vej +++|* ASSIGN FNT/FST AND MASS STORAGE TO FILE. 00372 M01S00344.vej +++| 00373 M01S00345.vej +++| AIF1 LDN NEEQ SELECT NO MASS STORAGE ASSIGNMENT 00374 M01S00346.vej +++| STD FS 00375 M01S00347.vej +++| LDM IOSS+5*INSQ+3 GET LOWER ACCESS LEVEL LIMIT OF JOB 00376 M01S00348.vej +++| LPN 70 00377 M01S00349.vej +++| SHN 3 00378 M01S00350.vej +++| LMD TH SET ACCESS LEVEL ON *0BF* CALL 00379 M01S00351.vej +++| ADN 5 RETURN ON NFL INCREASE, LOCAL FILE LIMIT 00380 M01S00352.vej +++| STM OVL0-1 00381 M01S00353.vej +++| EXECUTE 0BF,OVL0 BEGIN FILE 00382 M01S00354.vej +++| UJN AIF2 CHECK RETURN STATUS 00383 M01S00355.vej +++| 00384 M01S00356.vej +++|* PROCESS ADVANCE EXIT FROM *0BF* IF FILE ALREADY EXISTS. 00385 M01S00357.vej +++| 00386 M01S00358.vej +++| NFA FA,R READ FNT ENTRY 00387 M01S00359.vej +++| CRD FS 00388 M01S00360.vej +++| RJM SFB SET FILE BUSY 00389 M01S00361.vej +++| NJN AIF3 IF FILE BUSY REJECT 00390 M01S00362.vej +++| LDN 1 DROP DUPLICATE FILE 00391 M01S00363.vej +++| STM OVL0-1 00392 M01S00364.vej +++| EXECUTE 0DF,OVL0 00393 M01S00365.vej +++| PJN AIF4 IF FILE UNLOADED 00394 M01S00366.vej +++| AOD FS+4 00395 M01S00367.vej +++| NFA FA,R CLEAR FILE BUSY 00396 M01S00368.vej +++| CWD FS 00397 M01S00369.vej +++| ERROR ERUA * DEVICE UNAVAILABLE.* 00398 M01S00370.vej +++| 00399 M01S00371.vej +++|* PROCESS LOCAL FILE LIMIT OR WAIT FOR NFL INCREASE. 00400 M01S00372.vej +++| 00401 M01S00373.vej +++| AIF2 ZJN AIF5 IF FNT ENTRY CREATED 00402 M01S00374.vej +++| LMN 4 00403 M01S00375.vej +++| ZJP AIF6 IF LOCAL FILE LIMIT 00404 M01S00376.vej +++| AIF3 PAUSE NE 00405 M01S00377.vej +++| DELAY 00406 M01S00378.vej +++| AIF4 LJM AIF1 RETRY FILE CREATION 00407 M01S00379.vej +++| 00408 M01S00380.vej +++|* ASSIGN MASS STORAGE. 00409 M01S00381.vej +++| 00410 M01S00382.vej +++| AIF5 LDN ZERL REQUEST MASS STORAGE SPACE 00411 M01S00383.vej +++| CRD CM 00412 M01S00384.vej +++| LDN 2 00413 M01S00385.vej +++| STD CM+4 00414 M01S00386.vej +++| LDN INPS 00415 M01S00387.vej +++| STD CM+2 00416 M01S00388.vej +++| LDM IOSS+5*INSQ+3 GET LOWER ACCESS LEVEL LIMIT OF JOB 00417 M01S00389.vej +++| LPN 70 00418 M01S00390.vej +++| SHN 3 00419 M01S00391.vej +++| LMC 4000 SET ACCESS LEVEL SELECTION ON *RTCM* 00420 M01S00392.vej +++| STD CM+3 00421 M01S00393.vej +++| MONITOR RTCM REQUEST TRACK CHAIN 00422 M01S00394.vej +++| LDD CM+4 00423 M01S00395.vej +++| NJN AIF7 IF DISK SPACE ASSIGNED 00424 M01S00396.vej +++| 00425 M01S00397.vej +++|* PROCESS DEVICE FULL. 00426 M01S00398.vej +++| 00427 M01S00399.vej +++| LDD CP CONSOLE MESSAGE = *TRACK LIMIT.* 00428 M01S00400.vej +++| ADN MS2W 00429 M01S00401.vej +++| CWM AIFE,TR 00430 M01S00402.vej +++| LDN ZERL CLEAR PARAMETERS 00431 M01S00403.vej +++| CRD CM 00432 M01S00404.vej +++| LDN TKLE SET TRACK LIMIT EVENT 00433 M01S00405.vej +++| STD CM+4 00434 M01S00406.vej +++|* LDN 0 SET SYSTEM EVENT 00435 M01S00407.vej +++|* STD CM+3 00436 M01S00408.vej +++| MONITOR EATM 00437 M01S00409.vej +++| AIF6 RJM DRF DROP FILE 00438 M01S00410.vej +++| ERROR ERFD *FNT/DEVICE FULL.* 00439 M01S00411.vej +++| 00440 M01S00412.vej +++|* SET INFORMATION IN FNT/FST AND SYSTEM SECTOR. 00441 M01S00413.vej +++| 00442 M01S00414.vej +++| AIF7 STD T6 SET FIRST TRACK 00443 M01S00415.vej +++| STD FS+1 00444 M01S00416.vej +++| STM IOSS+ENTQ*5+1 00445 M01S00417.vej +++| STD FS+2 SET CURRENT TRACK 00446 M01S00418.vej +++| LDD CM+1 SET EQUIPMENT 00447 M01S00419.vej +++| STD FS 00448 M01S00420.vej +++| STM IOSS+ENTQ*5+0 00449 M01S00421.vej +++| STD T5 00450 M01S00422.vej +++| LDC QFFT*100 00451 M01S00423.vej +++| STD FN+4 00452 M01S00424.vej +++| LDD MA SET FNT IN SYSTEM SECTOR 00453 M01S00425.vej +++| CWD FN 00454 M01S00426.vej +++| CRM FNSS,ON 00455 M01S00427.vej +++| LDN 15 SET FILE NOT BUSY 00456 M01S00428.vej +++| STD FS+4 00457 M01S00429.vej +++| LDN 2 SET INITIAL FILE LENGTH 00458 M01S00430.vej +++| STM FLSS+1 00459 M01S00431.vej +++| LDC FLSS GET ADDRESS OF SYSTEM SECTOR FILE LENGTH 00460 M01S00432.vej +++| RJM RFI SET FILE SIZE INDEX IN QFT ENTRY 00461 M01S00433.vej +++| LDC 2RIN SET DISPOSITION CODE FIELD 00462 M01S00434.vej +++| STM DCSS 00463 M01S00435.vej +++| LDN 1 SET FILE PLACED IN QUEUE FLAG 00464 M01S00436.vej +++| STM FGSS 00465 M01S00437.vej +++| LDD CP ASSIGN QFT TO EJT 00466 M01S00438.vej +++| ADN TFSW 00467 M01S00439.vej +++| CRD CM 00468 M01S00440.vej +++| LDD CM 00469 M01S00441.vej +++| STM IOSS+ENTQ*5+4 00470 M01S00442.vej +++| SFA EJT SET CREATION JSN 00471 M01S00443.vej +++| ADK JSNE 00472 M01S00444.vej +++| CRD CM 00473 M01S00445.vej +++| LDD CM 00474 M01S00446.vej +++| STM CJSS 00475 M01S00447.vej +++| LDD CM+1 00476 M01S00448.vej +++| STM CJSS+1 00477 M01S00449.vej +++| LDC MMFL SET RESIDENT MACHINE ID 00478 M01S00450.vej +++| CRD CM 00479 M01S00451.vej +++| LDD CM 00480 M01S00452.vej +++| STM RMSS 00481 M01S00453.vej +++| STM CMSS 00482 M01S00454.vej +++| LDN PDTL SET QUEUED DATE/TIME 00483 M01S00455.vej +++| CRD CM 00484 M01S00456.vej +++| LDD CM+2 00485 M01S00457.vej +++| STM CDSS+2 00486 M01S00458.vej +++| LDD CM+3 00487 M01S00459.vej +++| STM CDSS+3 00488 M01S00460.vej +++| LDD CM+4 00489 M01S00461.vej +++| STM CDSS+4 00490 M01S00462.vej +++| LDM ACSS+3 GET CREATION USER INDEX 00491 M01S00463.vej +++| LPN 77 00492 M01S00464.vej +++| STM IOSS+JSNQ*5+2 00493 M01S00465.vej +++| LDM ACSS+4 00494 M01S00466.vej +++| STM IOSS+JSNQ*5+3 00495 M01S00467.vej +++| 00496 M01S00468.vej +++|* GET CREATION FAMILY ORDINAL. 00497 M01S00469.vej +++| 00498 M01S00470.vej +++| LDD MA 00499 M01S00471.vej +++| CWM FMSS,ON 00500 M01S00472.vej +++| SBN 1 00501 M01S00473.vej +++| CRD FN READ FAMILY NAME 00502 M01S00474.vej +++| LDN 1 00503 M01S00475.vej +++| RJM GFO 00504 M01S00476.vej +++| LDD FN+4 00505 M01S00477.vej +++| NJN AIF8 IF ORDINAL FOUND 00506 M01S00478.vej +++| STM IOSS+JSNQ*5+2 SET NO CREATION USER 00507 M01S00479.vej +++| STM IOSS+JSNQ*5+3 00508 M01S00480.vej +++| UJN AIF9 MOVE FILE NAME TO FNT WORD 00509 M01S00481.vej +++| 00510 M01S00482.vej +++| AIF8 SHN 6 00511 M01S00483.vej +++| RAM IOSS+5*JSNQ+2 00512 M01S00484.vej +++| AIF9 LDD MA MOVE FILE NAME TO FNT WORD 00513 M01S00485.vej +++| CWM FNSS,ON 00514 M01S00486.vej +++| SBN 1 00515 M01S00487.vej +++| CRD FN 00516 M01S00488.vej +++| LJM AIFX RETURN 00517 M01S00489.vej +++| 00518 M01S00490.vej +++| AIFE DATA C* TRACK LIMIT.* 00519 M01S00491.vej +++| CUT SPACE 4,10 00520 M01S00492.vej +++|** CUT - CONVERT USER NAME TO TID. 00521 M01S00493.vej +++|* 00522 M01S00494.vej +++|* ENTRY (T1+3 - T1+4) = TID FROM FET. 00523 M01S00495.vej +++|* (OT) = ORIGIN TYPE. 00524 M01S00496.vej +++|* 00525 M01S00497.vej +++|* EXIT ROUTING INFORMATION SET IN SYSTEM SECTOR. 00526 M01S00498.vej +++|* 00527 M01S00499.vej +++|* USES T1, T2, CN - CN+4, FN - FN+4. 00528 M01S00500.vej +++|* 00529 M01S00501.vej +++|* CALLS GFO, VCA, *0AV*. 00530 M01S00502.vej +++|* 00531 M01S00503.vej +++|* MACROS ABORT, ERROR, EXECUTE. 00532 M01S00504.vej +++| 00533 M01S00505.vej +++| 00534 M01S00506.vej +++| CUT4.1 LDD T1 CHECK USER INDEX 00535 M01S00507.vej +++| SHN 14 00536 M01S00508.vej +++| ADD T2 00537 M01S00509.vej +++| ZJN CUT4.4 IF NO USER INDEX PRESENT 00538 M01S00510.vej +++| STM DASS+4 SET DESTINATION TID (USER INDEX) 00539 M01S00511.vej +++| STM IOSS+SCLQ*5+2 00540 M01S00512.vej +++| SHN -14 00541 M01S00513.vej +++| STM IOSS+SCLQ*5+1 00542 M01S00514.vej +++| LDM DASS+3 COMBINE UI WITH 7TH CHARACTER OF UN 00543 M01S00515.vej +++| SCN 77 00544 M01S00516.vej +++| LMD T1 00545 M01S00517.vej +++| STM DASS+3 00546 M01S00518.vej +++| LDD MA GET FAMILY ORDINAL 00547 M01S00519.vej +++| CWM FDSS,ON 00548 M01S00520.vej +++| SBN 1 00549 M01S00521.vej +++| CRD FN 00550 M01S00522.vej +++|* LDN (NONZERO) DO NOT ADD FAMILY 00551 M01S00523.vej +++| RJM GFO GET FAMILY ORDINAL 00552 M01S00524.vej +++| LDD FN+4 00553 M01S00525.vej +++| ZJN CUT4.4 IF FAMILY NOT FOUND 00554 M01S00526.vej +++| SHN 6 00555 M01S00527.vej +++| RAM IOSS+SCLQ*5+1 00556 M01S00528.vej +++| UJN CUTX RETURN 00557 M01S00529.vej +++| 00558 M01S00530.vej +++| CUT4.4 ERROR ERTD *INCORRECT TID* 00559 M01S00531.vej +++| 00560 M01S00532.vej +++| CUT5 LDN 0 SET BATCH ID 00561 M01S00533.vej +++| STM IOSS+SCLQ*5+1 00562 M01S00534.vej +++| LDD T5 00563 M01S00535.vej +++| STM IOSS+SCLQ*5+2 00564 M01S00536.vej +++| SBN IDLM CHECK FOR INCORRECT ID 00565 M01S00537.vej +++| PJN CUT4.4 IF INCORRECT TID 00566 M01S00538.vej +++| 00567 M01S00539.vej +++| CUT SUBR ENTRY/EXIT 00568 M01S00540.vej +++| LDD OT 00569 M01S00541.vej +++| LMN EIOT 00570 M01S00542.vej +++| NJN CUT5 IF NOT REMOTE BATCH 00571 M01S00543.vej +++| LDD T1+3 00572 M01S00544.vej +++| SHN -6 00573 M01S00545.vej +++| LMN 77 00574 M01S00546.vej +++| NJN CUT4.4 IF NOT COMPLEMENT OF ADDRESS 00575 M01S00547.vej +++| LDD T1+3 00576 M01S00548.vej +++| SHN 14 00577 M01S00549.vej +++| LMN 77 00578 M01S00550.vej +++| LMD T1+4 00579 M01S00551.vej +++| LMC 777777 00580 M01S00552.vej +++| RJM VCA VALIDATE CENTRAL ADDRESS 00581 M01S00553.vej +++| ZJN CUT1 IF INCORRECT ADDRESS 00582 M01S00554.vej +++| ADN 1 00583 M01S00555.vej +++| RJM VCA VALIDATE CENTRAL ADDRESS 00584 M01S00556.vej +++| NJN CUT2 IF VALID ADDRESS 00585 M01S00557.vej +++| CUT1 ABORT ERBA * BUFFER ARGUMENT ERROR.* 00586 M01S00558.vej +++| 00587 M01S00559.vej +++| CUT2 SHN 14 READ USER NAME 00588 M01S00560.vej +++| ADD RA 00589 M01S00561.vej +++| SHN 6 00590 M01S00562.vej +++| CRD FN 00591 M01S00563.vej +++| CRM DASS,ON 00592 M01S00564.vej +++| SBN 2 00593 M01S00565.vej +++| CRD CN 00594 M01S00566.vej +++| CRM FDSS,ON 00595 M01S00567.vej +++| LDD CN 00596 M01S00568.vej +++| NJN CUT3 IF FAMILY NAME PRESENT 00597 M01S00569.vej +++| LDC FOTP SET DEFAULT FAMILY NAME 00598 M01S00570.vej +++| CRD CN 00599 M01S00571.vej +++| LDD CN 00600 M01S00572.vej +++| SHN 14 00601 M01S00573.vej +++| LMD CN+1 00602 M01S00574.vej +++| ADN 1 00603 M01S00575.vej +++| CRD CN 00604 M01S00576.vej +++| CRM FDSS,ON 00605 M01S00577.vej +++| CUT3 LDD FN+3 00606 M01S00578.vej +++| LPN 37 00607 M01S00579.vej +++| STD T1 00608 M01S00580.vej +++| SHN 14 00609 M01S00581.vej +++| LMD FN+4 00610 M01S00582.vej +++| STD T2 00611 M01S00583.vej +++| NJN CUT4 IF USER INDEX PRESENT 00612 M01S00584.vej +++| EXECUTE 0AV,OVL0 VALIDATE USER NAME 00613 M01S00585.vej +++| PJN CUT4 IF NO ERROR 00614 M01S00586.vej +++| ERROR ERUA * DEVICE UNAVAILABLE.* 00615 M01S00587.vej +++| 00616 M01S00588.vej +++| CUT4 LJM CUT4.1 CHECK USER INDEX 00617 M01S00589.vej +++| DRF SPACE 4,10 00618 M01S00590.vej +++|** DRF - DROP FILE AND QFT ENTRY. 00619 M01S00591.vej +++|* 00620 M01S00592.vej +++|* ENTRY (FA) = FNT ADDRESS. 00621 M01S00593.vej +++|* (QA) = ORDINAL OF QFT ENTRY. 00622 M01S00594.vej +++|* 00623 M01S00595.vej +++|* EXIT (A) = (QA) = 0. 00624 M01S00596.vej +++|* 00625 M01S00597.vej +++|* CALLS *0DF*, *0DQ*. 00626 M01S00598.vej +++|* 00627 M01S00599.vej +++|* MACROS EXECUTE. 00628 M01S00600.vej +++| 00629 M01S00601.vej +++| 00630 M01S00602.vej +++| DRF SUBR ENTRY/EXIT 00631 M01S00603.vej +++| LDN 1 00632 M01S00604.vej +++| STM OVL0-1 SELECT UNLOAD OPTION FOR *0DF* 00633 M01S00605.vej +++| LDD FA 00634 M01S00606.vej +++| ZJN DRF1 IF NO FILE 00635 M01S00607.vej +++| EXECUTE 0DF,OVL0 DROP LOCAL FILE 00636 M01S00608.vej +++| DRF1 LDD QA 00637 M01S00609.vej +++| ZJN DRFX IF NO QFT ENTRY 00638 M01S00610.vej +++|* LDN 1 00639 M01S00611.vej +++|* STM OVL0-1 SELECT NO DROP OF DISK SPACE 00640 M01S00612.vej +++| EXECUTE 0DQ,OVL0 00641 M01S00613.vej +++| LDN 0 CLEAR QFT ORDINAL 00642 M01S00614.vej +++| STD QA 00643 M01S00615.vej +++| UJN DRFX RETURN 00644 M01S00616.vej +++| GFA SPACE 4,5 00645 M01S00617.vej +++|** GFA - GET FET ADDRESS. 00646 M01S00618.vej +++|* 00647 M01S00619.vej +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00648 M01S00620.vej +++|* 00649 M01S00621.vej +++|* EXIT (A) = FET ADDRESS. 00650 M01S00622.vej +++| 00651 M01S00623.vej +++| 00652 M01S00624.vej +++| GFA SUBR ENTRY/EXIT 00653 M01S00625.vej +++| LDD IR+3 00654 M01S00626.vej +++| LPN 37 00655 M01S00627.vej +++| SHN 6 00656 M01S00628.vej +++| ADD RA 00657 M01S00629.vej +++| SHN 6 00658 M01S00630.vej +++| ADD IR+4 00659 M01S00631.vej +++| UJN GFAX RETURN 00660 M01S00632.vej +++| WIF SPACE 4,25 00661 M01S00633.vej +++|** WIF - WRITE INPUT FILE. 00662 M01S00634.vej +++|* 00663 M01S00635.vej +++|* ENTRY (T5) = EQUIPMENT. 00664 M01S00636.vej +++|* (T6) = FIRST TRACK. 00665 M01S00637.vej +++|* (FA) = NFL FNT ENTRY OFFSET. 00666 M01S00638.vej +++|* (FN - FN+4) = FNT ENTRY. 00667 M01S00639.vej +++|* (FS - FS+4) = FST ENTRY. 00668 M01S00640.vej +++|* (QA) = ORDINAL OF QFT ENTRY. 00669 M01S00641.vej +++|* *BFMS* CONTAINS SYSTEM SECTOR BUFFER. 00670 M01S00642.vej +++|* 00671 M01S00643.vej +++|* EXIT (FA) = RELATIVE FNT ADDRESS IN NFL. 00672 M01S00644.vej +++|* 00673 M01S00645.vej +++|* ERROR TO *VEJ4*. 00674 M01S00646.vej +++|* 00675 M01S00647.vej +++|* USES FA, SC, T5, CM - CM+4, FN - FN+4, FS - FS+4. 00676 M01S00648.vej +++|* 00677 M01S00649.vej +++|* CALLS DRF, WEI, WSS. 00678 M01S00650.vej +++|* 00679 M01S00651.vej +++|* MACROS ENDMS, NFA, SETMS, SFA. 00680 M01S00652.vej +++| 00681 M01S00653.vej +++| 00682 M01S00654.vej +++| WIF SUBR ENTRY/EXIT 00683 M01S00655.vej +++| 00684 M01S00656.vej +++|* WRITE SYSTEM SECTOR AND EOI. 00685 M01S00657.vej +++| 00686 M01S00658.vej +++| LDD FA 00687 M01S00659.vej +++| ZJN WIFX IF NO FILE 00688 M01S00660.vej +++| STM FASS SET FST ADDRESS IN SYSTEM SECTOR 00689 M01S00661.vej +++| STD SC SAVE FNT OFFSET 00690 M01S00662.vej +++| LDN FSMS 00691 M01S00663.vej +++| STD FS+3 00692 M01S00664.vej +++| NFA FA,R UPDATE FNT / FST IN NFL 00693 M01S00665.vej +++| CWD FN 00694 M01S00666.vej +++| ADN FSTL 00695 M01S00667.vej +++| CWD FS 00696 M01S00668.vej +++| LDD QA 00697 M01S00669.vej +++| STM GQSS 00698 M01S00670.vej +++| LDN 0 CLEAR FST ADDRESS 00699 M01S00671.vej +++| STD FA 00700 M01S00672.vej +++| SETMS IO,,WDSB 00701 M01S00673.vej +++| RJM WSS WRITE SYSTEM SECTOR 00702 M01S00674.vej +++| MJN WIF1 IF ERROR 00703 M01S00675.vej +++| RJM WEI WRITE EOI SECTOR 00704 M01S00676.vej +++| PJN WIF2 IF NO ERROR 00705 M01S00677.vej +++| WIF1 LDD SC 00706 M01S00678.vej +++| STD FA 00707 M01S00679.vej +++| RJM DRF DROP FILE 00708 M01S00680.vej +++| LJM VEJ4 RETRY ASSIGNING INPUT FILE 00709 M01S00681.vej +++| 00710 M01S00682.vej +++| WIF2 ENDMS 00711 M01S00683.vej +++| LDD SC UPDATE FNT/FST IN NFL 00712 M01S00684.vej +++| STD FA 00713 M01S00685.vej +++| LDN 2 UPDATE QFT ENTRY 00714 M01S00686.vej +++| STM IOSS+JSNQ*5+4
| Line S00687 Modification History | |
|---|---|
M01 (Added by) | vej |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00715 M02S00687.ns2663 ---| LDN QFTE SET QFT LENGTH 00716 M01S00001.ns2663 +++| LDN QFTE-1 00717 M01S00688.vej +++| STD T5
| Line S00689 Modification History | |
|---|---|
M01 (Added by) | vej |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00718 M02S00689.ns2663 ---| SFA QFT,QA
| Line S00690 Modification History | |
|---|---|
M01 (Added by) | vej |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00719 M02S00690.ns2663 ---| CWM IOSS,T5 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 M01S00691.vej +++| LJM WIFX RETURN 00726 M01S00692.vej +++| VCA SPACE 4,10 00727 M01S00693.vej +++|** VCA - VALIDATE CENTRAL ADDRESS. 00728 M01S00694.vej +++|* 00729 M01S00695.vej +++|* ENTRY (A) = CENTRAL ADDRESS TO VALIDATE. 00730 M01S00696.vej +++|* 00731 M01S00697.vej +++|* EXIT (A) = 0, IF ADDR .LE. 1, OR .GE. FL. 00732 M01S00698.vej +++|* (A) = CENTRAL ADDRESS IF VALID. 00733 M01S00699.vej +++|* (T1 - T2) = CENTRAL ADDRESS. 00734 M01S00700.vej +++| 00735 M01S00701.vej +++| 00736 M01S00702.vej +++| VCA1 STD T1 CLEAR UPPER PART OF ADDRESS 00737 M01S00703.vej +++| VCA2 LDN 0 SET BAD ADDRESS 00738 M01S00704.vej +++| 00739 M01S00705.vej +++| VCA SUBR ENTRY/EXIT 00740 M01S00706.vej +++| STD T2 00741 M01S00707.vej +++| SCN 1 00742 M01S00708.vej +++| ZJN VCA1 IF ADDRESS .LE. 1 00743 M01S00709.vej +++| SCN 77 00744 M01S00710.vej +++| SHN 6 00745 M01S00711.vej +++| STD T1 00746 M01S00712.vej +++| SHN 6 00747 M01S00713.vej +++| SBD FL 00748 M01S00714.vej +++| PJN VCA2 IF ADDRESS .GE. FL 00749 M01S00715.vej +++| LDD T1 00750 M01S00716.vej +++| SHN 14 00751 M01S00717.vej +++| LMD T2 00752 M01S00718.vej +++| UJN VCAX RETURN 00753 M01S00719.vej +++| SPACE 4 00754 M01S00720.vej +++|* COMMON DECKS. 00755 M01S00721.vej +++| 00756 M01S00722.vej +++| 00757 M01S00723.vej +++| SSJ$ EQU 1 ALLOW NON-SYSTEM ORIGIN SSJ= JOBS 00758 M01S00724.vej +++|*CALL COMPCUA 00759 M01S00725.vej +++|*CALL COMPCTE 00760 M01S00726.vej +++| IFP$ SET 1 SELECT *COMPGFP* REMOTE INITIALIZATION 00761 M01S00727.vej +++| QFT$ SET 1 SELECT *COMPGFP* QFT ADDRESSING 00762 M01S00728.vej +++| EJT$ SET 1 SELECT *COMPGFP* EJT ADDRESSING 00763 M01S00729.vej +++|*CALL COMPGFP 00764 M01S00730.vej +++|*CALL COMPRFI 00765 M01S00731.vej +++|*CALL COMPSFB 00766 M01S00732.vej +++| GFO$ SET 1 SELECT *COMPUFT* GET FAMILY ORDINAL 00767 M01S00733.vej +++|*CALL COMPUFT 00768 M01S00734.vej +++|*CALL COMPWEI 00769 M01S00735.vej +++| WCS$ EQU 1 CONSECUTIVE SECTOR AFTER SYSTEM SECTOR 00770 M01S00736.vej +++|*CALL COMPWSS 00771 M01S00737.vej +++| PRS TITLE PRESET. 00772 M01S00738.vej +++|** PRS - PRESET ROUTINE. 00773 M01S00739.vej +++|* 00774 M01S00740.vej +++|* EXIT (OT) = JOB ORIGIN TYPE. 00775 M01S00741.vej +++|* 00776 M01S00742.vej +++|* USES FA, QA, CM - CM+4, T1 - T5. 00777 M01S00743.vej +++|* 00778 M01S00744.vej +++|* CALLS CUT, DOT, GFA, IFP, VCA. 00779 M01S00745.vej +++|* 00780 M01S00746.vej +++|* MACROS ABORT. 00781 M01S00747.vej +++| 00782 M01S00748.vej +++| 00783 M01S00749.vej +++| PRS SUBR ENTRY/EXIT 00784 M01S00750.vej +++| LDN 0 00785 M01S00751.vej +++| STD FA CLEAR FST ADDRESS 00786 M01S00752.vej +++| STD QA CLEAR QFT ORDINAL 00787 M01S00753.vej +++| RJM IFP INITIALIZE *COMPGFP* ROUTINES 00788 M01S00754.vej +++| RJM DOT DETERMINE ORIGIN TYPE 00789 M01S00755.vej +++| MJN PRS1 IF NOT SUBSYSTEM 00790 M01S00756.vej +++| LDD IR+3 CHECK FET ADDRESS 00791 M01S00757.vej +++| LPN 37 00792 M01S00758.vej +++| SHN 14 00793 M01S00759.vej +++| LMD IR+4 00794 M01S00760.vej +++| RJM VCA VALIDATE CENTRAL ADDRESS 00795 M01S00761.vej +++| ZJN PRS1 IF INCORRECT ADDRESS 00796 M01S00762.vej +++| ADN 4 00797 M01S00763.vej +++| RJM VCA VALIDATE CENTRAL ADDRESS 00798 M01S00764.vej +++| NJN PRS2 IF VALID ADDRESS 00799 M01S00765.vej +++| PRS1 ABORT ERIR * VEJ - INCORRECT REQUEST.* 00800 M01S00766.vej +++| 00801 M01S00767.vej +++|* SET FET PARAMETERS. 00802 M01S00768.vej +++| 00803 M01S00769.vej +++| PRS2 RJM GFA GET FET ADDRESS 00804 M01S00770.vej +++| ADN 2 00805 M01S00771.vej +++| CRD T1 READ LWA 00806 M01S00772.vej +++| ADN 1 00807 M01S00773.vej +++| CRD CM READ FWA 00808 M01S00774.vej +++| LDD T1+3 00809 M01S00775.vej +++| LPN 37 00810 M01S00776.vej +++| STD T1+3 00811 M01S00777.vej +++| SHN 14 00812 M01S00778.vej +++| LMD T1+4 00813 M01S00779.vej +++| SBN 1 00814 M01S00780.vej +++| SHN -6 00815 M01S00781.vej +++| SBD FL 00816 M01S00782.vej +++| PJN PRS3 IF LWA .GE. FL 00817 M01S00783.vej +++| LDD CM+3 00818 M01S00784.vej +++| LPN 37 00819 M01S00785.vej +++| STD CM+3 00820 M01S00786.vej +++| LDD T1+3 00821 M01S00787.vej +++| SBD CM+3 00822 M01S00788.vej +++| SHN 14 00823 M01S00789.vej +++| ADD T1+4 00824 M01S00790.vej +++| SBD CM+4 00825 M01S00791.vej +++| ZJN PRS3 IF ZERO WORD COUNT 00826 M01S00792.vej +++| PJN PRS4 IF FWA .LE. LWA 00827 M01S00793.vej +++| PRS3 ABORT ERBA * VEJ - BUFFER ARGUMENT ERROR.* 00828 M01S00794.vej +++| 00829 M01S00795.vej +++| PRS4 STD T1 00830 M01S00796.vej +++| SBN BUFL 00831 M01S00797.vej +++| MJN PRS5 IF BUFFER LENGTH .LT. 18 CM WORDS 00832 M01S00798.vej +++| LDN BUFL SET MAXIMUM BUFFER SIZE 00833 M01S00799.vej +++| STD T1 00834 M01S00800.vej +++| PRS5 LDD CM+3 READ JOB/USER COMMANDS FROM CM BUFFER 00835 M01S00801.vej +++| SHN 6 00836 M01S00802.vej +++| ADD RA 00837 M01S00803.vej +++| SHN 6 00838 M01S00804.vej +++| ADD CM+4 00839 M01S00805.vej +++| CRM STMT,T1 00840 M01S00806.vej +++| 00841 M01S00807.vej +++|* PROCESS TID. 00842 M01S00808.vej +++| 00843 M01S00809.vej +++| RJM GFA READ TID 00844 M01S00810.vej +++| ADN 1 00845 M01S00811.vej +++| CRD T1 00846 M01S00812.vej +++| LDC 501 CLEAR SYSTEM SECTOR 00847 M01S00813.vej +++| STD T3 00848 M01S00814.vej +++| PRS6 LDN 0 00849 M01S00815.vej +++| STM BFMS,T3 00850 M01S00816.vej +++| SOD T3 00851 M01S00817.vej +++| PJN PRS6 IF NOT END OF BUFFER 00852 M01S00818.vej +++| RJM CUT CONVERT USER NAME TO TID 00853 M01S00819.vej +++| 00854 M01S00820.vej +++|* PROCESS ACCESS LEVEL. 00855 M01S00821.vej +++| 00856 M01S00822.vej +++| LDK SSML CHECK OPERATING SYSTEM SECURITY MODE 00857 M01S00823.vej +++| CRD CM 00858 M01S00824.vej +++| LDD CM 00859 M01S00825.vej +++| LPN 7 00860 M01S00826.vej +++| ZJN PRS7 IF SYSTEM IN UNSECURED MODE 00861 M01S00827.vej +++| RJM GFA READ *SP* BIT AND ACCESS LEVEL 00862 M01S00828.vej +++| ADN 1 00863 M01S00829.vej +++| CRD T1 00864 M01S00830.vej +++| ADN 4-1 00865 M01S00831.vej +++| CRD CM 00866 M01S00832.vej +++| LDD T1+1 00867 M01S00833.vej +++| LPN 10 00868 M01S00834.vej +++| ZJN PRS7 IF *SP* BIT NOT SET 00869 M01S00835.vej +++| AOM VEJA SET *ACCESS LEVEL SPECIFIED* FLAG 00870 M01S00836.vej +++| LDD CM+1 00871 M01S00837.vej +++| LPN 7 00872 M01S00838.vej +++| RAM VEJB SET ACCESS LEVEL 00873 M01S00839.vej +++| PRS7 LJM PRSX RETURN 00874 M01S00840.vej +++| SPACE 4 00875 M01S00841.vej +++|* BUFFERS AND OVERLAY ADDRESSES. 00876 M01S00842.vej +++| 00877 M01S00843.vej +++| 00878 M01S00844.vej +++| STMT EQU * JOB AND USER COMMAND BUFFER 00879 M01S00845.vej +++| 00880 M01S00846.vej +++| BUFL EQU 9D*2 COMMAND BUFFER LENGTH 00881 M01S00847.vej +++| OVL0 EQU STMT+BUFL*5+10 OVERLAY LOAD ADDRESS 00882 M01S00848.vej +++| WDSB EQU OVL0 WRITE ERROR PROCESSING BUFFER 00883 M01S00849.vej +++| ERRNG BFMS-OVL0-ZAVL 00884 M01S00850.vej +++| ERRNG EPFW-OVL0-ZBFL 00885 M01S00851.vej +++| ERRNG BFMS-OVL0-ZDFL 00886 M01S00852.vej +++| ERRNG BFMS-OVL0-ZDQL 00887 M01S00853.vej +++| ERRNG BFMS-OVL0-ZVJL 00888 M01S00854.vej +++| DOT SPACE 4,10 00889 M01S00855.vej +++|** DOT - DETERMINE ORIGIN TYPE OF CONTROL POINT. 00890 M01S00856.vej +++|* 00891 M01S00857.vej +++|* ENTRY NONE. 00892 M01S00858.vej +++|* 00893 M01S00859.vej +++|* EXIT (OT) = ORIGIN TYPE. 00894 M01S00860.vej +++|* (A) .GE. 0, IF JOB IS VALID CALLER. 00895 M01S00861.vej +++|* 00896 M01S00862.vej +++|* USES T1, CM - CM+4, CN - CN+4. 00897 M01S00863.vej +++|* 00898 M01S00864.vej +++|* MACROS SFA. 00899 M01S00865.vej +++| 00900 M01S00866.vej +++| 00901 M01S00867.vej +++| DOT3 LDD CP READ EJT ORDINAL FROM CP AREA 00902 M01S00868.vej +++| ADN TFSW 00903 M01S00869.vej +++| CRD CN 00904 M01S00870.vej +++| SFA EJT,CN GET EJT ADDRESS 00905 M01S00871.vej +++| ADN SCLE 00906 M01S00872.vej +++| CRD CN 00907 M01S00873.vej +++| LDD CN SET ORIGIN TYPE 00908 M01S00874.vej +++| LPN 17 00909 M01S00875.vej +++| STD OT 00910 M01S00876.vej +++| LDD CM+2 00911 M01S00877.vej +++| NJN DOTX IF VALID CALL 00912 M01S00878.vej +++| LCN 0 FLAG INCORRECT CALL 00913 M01S00879.vej +++| 00914 M01S00880.vej +++| DOT SUBR ENTRY/EXIT 00915 M01S00881.vej +++| LDD CP READ SUBSYSTEM ID 00916 M01S00882.vej +++| ADN JCIW 00917 M01S00883.vej +++| CRD CM 00918 M01S00884.vej +++| LDN 0 00919 M01S00885.vej +++| STD T1 00920 M01S00886.vej +++| DOT1 LDM TQPR,T1 00921 M01S00887.vej +++| ZJN DOT3 IF END OF TABLE 00922 M01S00888.vej +++| LMD CM+2 00923 M01S00889.vej +++| ZJN DOT2 IF MATCH 00924 M01S00890.vej +++| LDN TQPRE ADVANCE INDEX 00925 M01S00891.vej +++| RAD T1 00926 M01S00892.vej +++| UJN DOT1 00927 M01S00893.vej +++| 00928 M01S00894.vej +++| DOT2 LDM TQPR+1,T1 SET ORIGIN TYPE 00929 M01S00895.vej +++| STD OT 00930 M01S00896.vej +++| UJN DOTX RETURN 00931 M01S00897.vej +++| 00932 M01S00898.vej +++| 00933 M01S00899.vej +++|* TQPR - TABLE OF SUBSYSTEM ID-S. 00934 M01S00900.vej +++|* 00935 M01S00901.vej +++|*T 12/ SI, 12/ OT
Figure
00936 M01S00902.vej +++|* SI = SUBSYSTEM ID. 00937 M01S00903.vej +++|* OT = ORIGIN TYPE. 00938 M01S00904.vej +++| 00939 M01S00905.vej +++| 00940 M01S00906.vej +++| TQPR BSS 0 00941 M01S00907.vej +++| CON RBSI,EIOT RBF 00942 M01S00908.vej +++| TQPRE EQU *-TQPR LENGTH OF AN ENTRY 00943 M01S00909.vej +++| CON BISI,BCOT BATCHIO 00944 M01S00910.vej +++| CON 0,0 END OF TABLE 00945 M01S00911.vej +++| SPACE 4 00946 M01S00912.vej +++|* COMMON DECKS. 00947 M01S00913.vej +++| 00948 M01S00914.vej +++| 00949 M01S00915.vej +++|*CALL COMPCRS 00950 M01S00916.vej +++| SPACE 4,10 00951 M01S00917.vej +++| IFP HERE 00952 M01S00918.vej +++| SPACE 4,10 00953 M01S00919.vej +++| END
cdc/nos2.source/opl.opl871/deck/vej.txt · Last modified: by 127.0.0.1