TITLE 'ICBVPI00 MSVC PRE-INITIALIZER MODULE (JULY 1, 1976) *00001000 ' 00002000 ICBVPI00 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ICBVPI00 77.355' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@15,12(@13) 0001 00010000 STM @01,@12,24(@13) 0001 00011000 BALR @12,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@12 0001 00014000 * 0050 00015000 * /*****************************************************************/ 00016000 * /* */ 00017000 * /* SET UP ADDRESSABILITY AND INITIALIZE VARIABLES @Y30LB24*/ 00018000 * /* */ 00019000 * /*****************************************************************/ 00020000 * 0050 00021000 * PARMPTR=REG1; /* SAVE PARAMETER ADDRESS 0050 00022000 * @Y30LB24*/ 00023000 LR PARMPTR,REG1 0050 00024000 * PARM0=REG0; /* SAVE PARAMETER REGISTER 0051 00025000 * @Y30LB24*/ 00026000 LR PARM0,REG0 0051 00027000 * VVIPTR=ICBVVICB; /* INITIALIZE MSVC CB PTR 0052 00028000 * @Y30LB24*/ 00029000 L @11,CVTPTR 0052 00030000 L @11,CVTEXT2(,@11) 0052 00031000 L @11,CVTICB(,@11) 0052 00032000 L VVIPTR,ICBVVICB(,@11) 0052 00033000 * FAILCODE=RCON0; /* INITIALIZE REASON CODE 0053 00034000 * @Y30LB24*/ 00035000 SLR FAILCODE,FAILCODE 0053 00036000 * REG0=FAILCODE; /* INITIALIZE USER REASON CODE 0054 00037000 * @Y30LB24*/ 00038000 LR REG0,FAILCODE 0054 00039000 * RFY 0055 00040000 * SELRB BASED(PARMPTR); /* BASE SELECT RB @ZA24770*/ 00041000 * 0056 00042000 * /*****************************************************************/ 00043000 * /* */ 00044000 * /* IF MSVC IS DISABLED BECAUSE OF PREVIOUS ERROR THEN RETURN TO */ 00045000 * /* CALLER WITH NO PROCESSING REQUIRED @Y30LB24*/ 00046000 * /* */ 00047000 * /*****************************************************************/ 00048000 * 0056 00049000 * IF ICBV=ON THEN /* NO PREVIOUS ERROR @Y30LB24*/ 00050000 TM ICBV(@11),B'00100000' 0056 00051000 BNO @RF00056 0056 00052000 * DO; /* @Y30LB24*/ 00053000 * 0057 00054000 * /*************************************************************/ 00055000 * /* */ 00056000 * /* CHECK ORDER FOR VALIDITY DURING IPL @Y30LB24*/ 00057000 * /* */ 00058000 * /*************************************************************/ 00059000 * 0058 00060000 * CALL VPICHKOR; /* VALIDATE ORDER @Y30LB24*/ 00061000 * 0058 00062000 BAL @14,VPICHKOR 0058 00063000 * /*************************************************************/ 00064000 * /* */ 00065000 * /* IF THIS IS THE FIRST ENTRY THROUGH THIS CODE, THE MSSC-SVC*/ 00066000 * /* CONTROL BLOCK WILL HAVE TO BE INITIALIZED. @Y30LB24*/ 00067000 * /* */ 00068000 * /*************************************************************/ 00069000 * 0059 00070000 * IF FAILCODE=ZERO THEN /* RETURN CODE 0? @Y30LB24*/ 00071000 SLR @11,@11 0059 00072000 CR FAILCODE,@11 0059 00073000 BNE @RF00059 0059 00074000 * DO; /* @Y30LB24*/ 00075000 * IF VVIPTR=ZERO THEN /* HAS MSVC CB BEEN CREATED 0061 00076000 * @Y30LB24*/ 00077000 CR VVIPTR,@11 0061 00078000 BNE @RF00061 0061 00079000 * CALL VPIBLDCB; /* GO BUILD CONTROL BLOCK 0062 00080000 * @Y30LB24*/ 00081000 BAL @14,VPIBLDCB 0062 00082000 * END; /* @Y30LB24*/ 00083000 * 0063 00084000 @RF00061 DS 0H 0064 00085000 * /*************************************************************/ 00086000 * /* */ 00087000 * /* CREATE RPLV AND ADD TO THE QUEUE IF TRACKING REQUIRED */ 00088000 * /* @Y30LB24*/ 00089000 * /* */ 00090000 * /*************************************************************/ 00091000 * 0064 00092000 * IF FAILCODE=ZERO THEN /* RETURN CODE 0? @Y30LB24*/ 00093000 @RF00059 LTR FAILCODE,FAILCODE 0064 00094000 BNZ @RF00064 0064 00095000 * CALL VPIADDOR; /* BUILD RPL AND ADD TO QUEUE 0065 00096000 * @Y30LB24*/ 00097000 * 0065 00098000 BAL @14,VPIADDOR 0065 00099000 * /*************************************************************/ 00100000 * /* */ 00101000 * /* CHECK FOR ERRORS AND RETURN TO CALLER @Y30LB24*/ 00102000 * /* */ 00103000 * /*************************************************************/ 00104000 * 0066 00105000 * REG0=FAILCODE; /* SET USER REASON CODE @Y30LB24*/ 00106000 @RF00064 LR REG0,FAILCODE 0066 00107000 * IF FAILCODE^=ZERO THEN /* RETURN CODE 0? @Y30LB24*/ 00108000 LTR FAILCODE,FAILCODE 0067 00109000 BZ @RF00067 0067 00110000 * DO; /* @Y30LB24*/ 00111000 * CALL VPINOTOP; /* PRINT ERROR MESSAGE AND CLEAN 00112000 * UP @Y30LB24*/ 00113000 BAL @14,VPINOTOP 0069 00114000 * REG0=FAILCODE; /* SET USER REASON CODE @Y30LB24*/ 00115000 LR REG0,FAILCODE 0070 00116000 * FAILCODE=FOUR; /* SET RETURN CODE TO 4 @Y30LB24*/ 00117000 LA FAILCODE,4 0071 00118000 * END; /* @Y30LB24*/ 00119000 * 0072 00120000 * /*************************************************************/ 00121000 * /* */ 00122000 * /* IF THIS IS SUSPEND THEN CLEAN UP @Y30LB24*/ 00123000 * /* */ 00124000 * /*************************************************************/ 00125000 * 0073 00126000 * IF OPCODE='22'X THEN /* SUSPEND REQUEST? @Y30LB24*/ 00127000 @RF00067 CLI OPCODE(PARMPTR),X'22' 0073 00128000 BNE @RF00073 0073 00129000 * DO; /* @Y30LB24*/ 00130000 * FAILCODE=RCON4; /* SET FAIL CODE TO 1 @Y30LB24*/ 00131000 LA FAILCODE,1 0075 00132000 * CALL VPINOTOP; /* CLEAN UP @Y30LB24*/ 00133000 BAL @14,VPINOTOP 0076 00134000 * REG0=RCON0; /* SET USER REASON CODE @Y30LB24*/ 00135000 SLR REG0,REG0 0077 00136000 * FAILCODE=REG0; /* SET RETURN CODE TO 0 */ 00137000 LR FAILCODE,REG0 0078 00138000 * END; /* @Y30LB24*/ 00139000 * END; /* @Y30LB24*/ 00140000 @RF00073 DS 0H 0081 00141000 * RETURN CODE(FAILCODE); /* RETURN TO MSSC-SVC @Y30LB24*/ 00142000 @RF00056 LR @15,FAILCODE 0081 00143000 L @14,12(,@13) 0081 00144000 LM @01,@12,24(@13) 0081 00145000 BR @14 0081 00146000 * 0082 00147000 */* ****************************************************************** 00148000 * 0082 00149000 * NAME = VPICHKOR, VALIDATE IPL ORDER @Y30LB24 00150000 * 0082 00151000 * INPUT = POINTER TO PARMLIST PASSED TO THE MSSC-SVC. @Y30LB24 00152000 * 0082 00153000 * PROCESS = THIS SUBROUTINE IS CALLED TO DETERMINE THE VALIDITY 00154000 * OF THE ORDERS. VALID ORDERS ARE MOUNT SPECIFIC, PURGE 0082 00155000 ** ASSOCIATE, DISASSOCIATE, SELECT AND TERMINATION. 0082 00156000 * IF AN INVALID ORDER IS FOUND, A FAILCODE IS SET FOR USE 0082 00157000 * BY VPINOTOP TO PRODUCE AN INVALID ORDER MESSAGE TO THE 0082 00158000 ** CONSOLE AND TO THE USER. @ZA24770 00159000 * 0082 00160000 * OUTPUT = INTERNAL WORK FLAG INDICATING THE VALIDITY OF THE 0082 00161000 * REQUEST. @Y30LB24 00162000 * 0082 00163000 ******************************************************************** */ 00164000 */*VPICHKOR: CHART */ 00165000 */*HEADER 0082 00166000 */*JUNE 14, 1974 ICBVPI00 - SEGMENT 00167000 */*VPICHKOR - VALIDATE IPL ORDER */ 00168000 */* E VPICHKOR */ 00169000 */* M SET LOOP CONTROL FOR ORDER CHECK */ 00170000 */*%CHKOR: D (NO,,YES,%END) ORDER MATCH TABLE ENTRY */ 00171000 */* D (NO,,YES,%INVALOR) ALL ORDERS CHECKED */ 00172000 */* COMMENT (1,5,) PURGE, ASSOC, DISASSOC, */ 00173000 */* COMMENT (2,5,) MOUNT SPEC., DEMOUNT */ 00174000 */* COMMENT (3,5,) SUSPEND ARE VALID */ 00175000 */* M (,%CHKOR) PREPARE TO CHECK NEXT ORDER */ 00176000 */*%INVALOR: M INDICATE INVALID ORDER */ 00177000 */*%END: R RETURN TO ICBVPI00 */ 00178000 */*VPICHKOR: END */ 00179000 * 0082 00180000 *VPICHKOR: 0082 00181000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA); 0082 00182000 * 0082 00183000 VPICHKOR DS 0H 0083 00184000 * /*****************************************************************/ 00185000 * /* */ 00186000 * /* ORDERS - ARRAY OF THE FIVE VALID TYPES OF ORDERS USED @Y30LB24*/ 00187000 * /* */ 00188000 * /*****************************************************************/ 00189000 * 0083 00190000 * DECLARE 0083 00191000 * ORDERS(8) CHAR(1) INIT('06'X,'08'X,'14'X,'02'X,'22'X,'2C'X,'89'X, 00192000 * '8A'X); /* @ZA24770*/ 00193000 * 0083 00194000 * /*****************************************************************/ 00195000 * /* */ 00196000 * /* CHECK FOR INVALID MOUNT @Y30LB24*/ 00197000 * /* */ 00198000 * /*****************************************************************/ 00199000 * 0084 00200000 * VALIDORD=ZERO; /* INITIALIZE VALIDORD SWITCH 0084 00201000 * @Y30LB24*/ 00202000 SLR VALIDORD,VALIDORD 0084 00203000 * IF OPCODE=ORDERS(2)&SCRCHBIT=ON THEN/* MOUNT SCRATCH @Y30LB24*/ 00204000 CLC OPCODE(1,PARMPTR),ORDERS+1 0085 00205000 BNE @RF00085 0085 00206000 TM SCRCHBIT(PARMPTR),B'00010000' 0085 00207000 BNO @RF00085 0085 00208000 * DO; /* @Y30LB24*/ 00209000 * FAILCODE=RCON2; /* REASON CODE (217) @Y30LB24*/ 00210000 LA FAILCODE,535 0087 00211000 * VALIDORD=ONE; /* TERMINATE SEARCH @Y30LB24*/ 00212000 LA VALIDORD,1 0088 00213000 * END; /* @Y30LB24*/ 00214000 * 0089 00215000 * /*****************************************************************/ 00216000 * /* */ 00217000 * /* IS THE REQUEST A VALID ORDER? @Y30LB24*/ 00218000 * /* */ 00219000 * /*****************************************************************/ 00220000 * 0090 00221000 * IF PLENGTH<=ZERO| /* INVALID MSC LENGTH @Y30LB24*/ 00222000 * PLENGTH>N256 THEN /* INVALID MSC LENGTH @Y30LB24*/ 00223000 @RF00085 L @11,PLENGTH(,PARMPTR) 0090 00224000 LTR @11,@11 0090 00225000 BNP @RT00090 0090 00226000 C @11,@CF00064 0090 00227000 BNH @RF00090 0090 00228000 @RT00090 DS 0H 0091 00229000 * DO; /* YES @Y30LB24*/ 00230000 * FAILCODE=RCON1; /* REASON CODE (216) @Y30LB24*/ 00231000 LA FAILCODE,534 0092 00232000 * VALIDORD=ONE; /* TERMINATE SEARCH @Y30LB24*/ 00233000 LA VALIDORD,1 0093 00234000 * END; /* @Y30LB24*/ 00235000 * DO I=ONE TO EIGHT WHILE VALIDORD=ZERO;/* @ZA24770*/ 00236000 @RF00090 LA I,1 0095 00237000 @DL00095 LTR VALIDORD,VALIDORD 0095 00238000 BNZ @DC00095 0095 00239000 * IF OPCODE=ORDERS(I) THEN /* VALID ORDER @Y30LB24*/ 00240000 LA @11,ORDERS-1(I) 0096 00241000 CLC OPCODE(1,PARMPTR),0(@11) 0096 00242000 BNE @RF00096 0096 00243000 * VALIDORD=ONE; /* YES, TERMINATE SEARCH @Y30LB24*/ 00244000 LA VALIDORD,1 0097 00245000 * ELSE /* OTHERWISE @Y30LB24*/ 00246000 * 0098 00247000 * /*************************************************************/ 00248000 * /* */ 00249000 * /* IF I = EIGHT THEN ORDER INVALID. (ONLY 7 VALID OPCODES) */ 00250000 * /* @ZA24770*/ 00251000 * /* */ 00252000 * /*************************************************************/ 00253000 * 0098 00254000 * IF I=EIGHT THEN /* INVALID MSC ORDER? @ZA24770*/ 00255000 B @RC00096 0098 00256000 @RF00096 C I,@CF00062 0098 00257000 BNE @RF00098 0098 00258000 * DO; /* YES @Y30LB24*/ 00259000 * FAILCODE=RCON2; /* REASON CODE (217) @Y30LB24*/ 00260000 LA FAILCODE,535 0100 00261000 * VALIDORD=ONE; /* TERMINATE SEARCH @Y30LB24*/ 00262000 LA VALIDORD,1 0101 00263000 * END; /* @Y30LB24*/ 00264000 * END; /* @Y30LB24*/ 00265000 @RF00098 DS 0H 0103 00266000 @RC00096 AL I,@CF00053 0103 00267000 C I,@CF00062 0103 00268000 BNH @DL00095 0103 00269000 @DC00095 DS 0H 0104 00270000 * RETURN; /* RETURN TO ICBVPI00 @Y30LB24*/ 00271000 @EL00002 DS 0H 0104 00272000 @EF00002 DS 0H 0104 00273000 @ER00002 BR @14 0104 00274000 * END VPICHKOR; /* END CHECK ORDER @Y30LB24*/ 00275000 * 0106 00276000 */* ****************************************************************** 00277000 * 0106 00278000 * NAME = VPIBLDCB, INITIALIZE ICBVVICB @Y30LB24 00279000 * 0106 00280000 * INPUT = MSSC-SVC CONTROL BLOCK POINTED TO BY THE CVT. @Y30LB24 00281000 * 0106 00282000 * PROCESS = THIS SUBROUTINE IS CALLED WHEN MAIN STORAGE IS 0106 00283000 * REQUIRED FOR THE CONTROL BLOCK. THE CONTROL BLOCK IS ZEROED 0106 00284000 * AND INITIALIZED WITH AN IDENTIFIER. 0106 00285000 * IF STORAGE CAN NOT BE OBTAINED, A FAILCODE IS SET FOR USE BY 0106 00286000 * VPINOTOP TO RELEASE RESOURCES USED BY THE MSVC PRE-INITIALIZER. 00287000 * @Y30LB24 00288000 * 0106 00289000 * OUTPUT = ICBVVICB POINTED TO BY THE MSSC-SVC CONTROL BLOCK. 0106 00290000 * @Y30LB24 00291000 * 0106 00292000 ******************************************************************** */ 00293000 */*VPIBLDCB: CHART */ 00294000 */*HEADER 0106 00295000 */*JUNE 14, 1974 ICBVPI00 - SEGMENT 0106 00296000 */*VPIBLDCB - CREATE AND INITIALIZE ICBVVICB */ 00297000 */* E VPIBLDCB */ 00298000 */* D (NO,,YES,%END) INITIAL ENTRY FOR ORDER */ 00299000 */* L GETMAIN FOR ICBVVICB SP=241 */ 00300000 */* D (YES,,NO,%INITCB) ERROR FROM GETMAIN */ 00301000 */* M (,%END) INDICATE GETMAIN ERR FOR ICBVVICB */ 00302000 */*%INITCB: P INITIALIZE CONTROL BLOCK - CLEAR & 00303000 */* AND SET ID */ 00304000 */*%END: R RETURN TO ICBVPI00 */ 00305000 */*VPIBLDCB: END */ 00306000 * 0106 00307000 *VPIBLDCB: 0106 00308000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA); 0106 00309000 VPIBLDCB DS 0H 0107 00310000 * DECLARE 0107 00311000 * VID CHAR(4) INIT('MSVC'); /* THE MSVC ID @Y30LB24*/ 00312000 * IF PARM0=ZERO THEN /* FIRST ENTRY FOR ORDER @Y30LB24*/ 00313000 LTR PARM0,PARM0 0108 00314000 BNZ @RF00108 0108 00315000 * DO; /* YES @Y30LB24*/ 00316000 * RETURN; /* RETURN TO ICBVPI00 @Y30LB24*/ 00317000 @EL00003 DS 0H 0110 00318000 @EF00003 DS 0H 0110 00319000 @ER00003 BR @14 0110 00320000 * END; /* @Y30LB24*/ 00321000 * REG0=LENGTH(VVICB); /* SET GETMAIN REG0 @Y30LB24*/ 00322000 @RF00108 LA REG0,120 0112 00323000 *LGET1: 0113 00324000 * GEN(GETMAIN RC,LV=(0),SP=241); /* PERFORM GETMAIN 241 @Y30LB24*/ 00325000 LGET1 GETMAIN RC,LV=(0),SP=241 00326000 * IF REG15=ZERO THEN /* CORE AVAILABLE? @Y30LB24*/ 00327000 LTR REG15,REG15 0114 00328000 BNZ @RF00114 0114 00329000 * DO; /* YES @Y30LB24*/ 00330000 * ICBVVICB=REG1; /* SET PTR IN MSSC CB @Y30LB24*/ 00331000 L @11,CVTPTR 0116 00332000 L @11,CVTEXT2(,@11) 0116 00333000 L @11,CVTICB(,@11) 0116 00334000 ST REG1,ICBVVICB(,@11) 0116 00335000 * VVIPTR=REG1; /* INITIAL VVICB PTR @Y30LB24*/ 00336000 LR VVIPTR,REG1 0117 00337000 * VVICB=VVICB&&VVICB; /* ZERO VVICB @Y30LB24*/ 00338000 XC VVICB(120,VVIPTR),VVICB(VVIPTR) 0118 00339000 * VVICID=VID; /* SET CB ID @Y30LB24*/ 00340000 MVC VVICID(4,VVIPTR),VID 0119 00341000 * RETURN; /* RETURN TO ICBVPI00 @Y30LB24*/ 00342000 B @EL00003 0120 00343000 * END; /* @Y30LB24*/ 00344000 * FAILCODE=RCON3; /* REASON CODE (22A) @Y30LB24*/ 00345000 @RF00114 LA FAILCODE,554 0122 00346000 * RETURN; /* RETURN TO ICBVPI00 @Y30LB24*/ 00347000 B @EL00003 0123 00348000 * END VPIBLDCB; /* END CONTROL BLOCK BUILD 0124 00349000 * @Y30LB24*/ 00350000 * 0125 00351000 */* ****************************************************************** 00352000 * 0125 00353000 * NAME = VPIADDOR, ADD MSC ORDER ENTRY TO RPLV QUEUE @Y30LB24 00354000 * 0125 00355000 * INPUT = POINTER TO THE MSSC-SVC REQUEST, AND ICBVVICB POINTING 00356000 * TO THE RPLV QUEUE. @Y30LB24 00357000 * 0125 00358000 * PROCESS = THIS SUBROUTINE IS CALLED FOR TRACKING OF ORDERS. 0125 00359000 ** ALL VALID ORDERS EXCEPT SPECIFIC MOUNT, DEMOUNT, SELECT, 0125 00360000 ** TERMINATE AND SUSPEND ORDERS ARE TRACKED. 0125 00361000 * A GETMAIN IS DONE FOR STORAGE FOR THE MSVC RPLV. THE MSVC 0125 00362000 * RPLV IS ZEROED AND INITIALIZED WITH THE PROPER FLAGS AND 0125 00363000 * ENTRIES AND CHAINED TO THE LOW PRIORITY QUEUE IN THE ICBVVICB. 00364000 * IF STORAGE CAN NOT BE OBTAINED, A FAILCODE IS SET FOR USE BY 0125 00365000 * VPINOTOP TO RELEASE RESOURCES USED BY THE MSVC PRE-INITIALIZER. 00366000 ** @ZA24770 00367000 * 0125 00368000 * OUTPUT = MSSC-SVC REQUEST ENTRY ADDED TO RPLV CHAIN. @Y30LB24 00369000 * 0125 00370000 ******************************************************************** */ 00371000 */*VPIADDOR: CHART */ 00372000 */*HEADER 0125 00373000 */*JUNE 14, 1974 ICBVPI00 - SEGMENT 0125 00374000 */*VPIADDOR - ADD ENTRY TO IPL TABLE */ 00375000 */* E VPIADDOR */ 00376000 */* D (NO,,YES,%END) INITIAL ENTRY FOR ORDER */ 00377000 */* D (NO,,YES,%END) MOUNT REQUEST */ 00378000 */* D (NO,,YES,%END) DEMOUNT REQUEST */ 00379000 */* D (NO,,YES,%END) SUSPEND REQUEST */ 00380000 */* D (YES,,NO,%END) MSC REASON CODE ZERO */ 00381000 */* L GETMAIN FOR RPLV */ 00382000 */* D (YES,,NO,%BLDRPL) ERROR FROM GETMAIN */ 00383000 */* P (,%END) INDICATE GETMAIN ERROR FOR RPLV */ 00384000 */*%BLDRPL: P BUILD RPLV */ 00385000 */*%NXTSEG: P SET PTR TO FIRST/NEXT RPLV */ 00386000 */* D (YES,,NO,%NXTSEG) LAST RPLV SEGMENT */ 00387000 */* P CHAIN RPLVS */ 00388000 */*%END: R RETURN TO ICBVPI00 MAINLINE */ 00389000 */*VPIADDOR: END */ 00390000 * 0125 00391000 *VPIADDOR: 0125 00392000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA); 0125 00393000 VPIADDOR DS 0H 0126 00394000 * IF OPCODE='08'X| /* MOUNT ORDER @Y30LB24*/ 00395000 * OPCODE='06'X| /* DEMOUNT ORDER @Y30LB24*/ 00396000 * OPCODE='22'X| /* SUSPEND ORDER @ZA24770*/ 00397000 * OPCODE='02'X| /* ACQUIRE ORDER @ZA24770*/ 00398000 * OPCODE='8A'X THEN /* TERMNAT ORDER @ZA24770*/ 00399000 CLI OPCODE(PARMPTR),X'08' 0126 00400000 BE @RT00126 0126 00401000 CLI OPCODE(PARMPTR),X'06' 0126 00402000 BE @RT00126 0126 00403000 CLI OPCODE(PARMPTR),X'22' 0126 00404000 BE @RT00126 0126 00405000 CLI OPCODE(PARMPTR),X'02' 0126 00406000 BE @RT00126 0126 00407000 CLI OPCODE(PARMPTR),X'8A' 0126 00408000 BNE @RF00126 0126 00409000 @RT00126 DS 0H 0127 00410000 * DO; /* YES @Y30LB24*/ 00411000 * RETURN; /* RETURN TO ICBVPI00 @Y30LB24*/ 00412000 @EL00004 DS 0H 0128 00413000 @EF00004 DS 0H 0128 00414000 @ER00004 BR @14 0128 00415000 * END; /* @Y30LB24*/ 00416000 * IF OPCODE='89'X THEN /* IS THIS SELECT@ZA24770 */ 00417000 @RF00126 CLI OPCODE(PARMPTR),X'89' 0130 00418000 BNE @RF00130 0130 00419000 * DO; /* YES @ZA24770*/ 00420000 * SELNOVSL=ON; /* NO VOL SELECT @ZA24770*/ 00421000 OI SELNOVSL(PARMPTR),B'00000001' 0132 00422000 * RETURN; /* RETURN TO VPI @ZA24770*/ 00423000 B @EL00004 0133 00424000 * END; /* @ZA24770*/ 00425000 * IF PARM0=ZERO THEN /* FIRST ENTRY FOR ORDER @Y30LB24*/ 00426000 @RF00130 LTR PARM0,PARM0 0135 00427000 BNZ @RF00135 0135 00428000 * DO; /* YES @Y30LB24*/ 00429000 * RETURN; /* RETURN TO ICBVPI00 @Y30LB24*/ 00430000 B @EL00004 0137 00431000 * END; /* @Y30LB24*/ 00432000 * IF PARM0^=RZERO THEN /* MSC REASON CODE ZERO @Y30LB24*/ 00433000 @RF00135 C PARM0,RZERO 0139 00434000 BE @RF00139 0139 00435000 * DO; /* NO @Y30LB24*/ 00436000 * RETURN; /* RETURN TO VPI @Y30LB24*/ 00437000 B @EL00004 0141 00438000 * END; /* @Y30LB24*/ 00439000 * REG2=LENGTH(RPLV); /* SET RPLV LENGTH @Y30LB24*/ 00440000 @RF00139 LA REG2,132 0143 00441000 * REG3=PLENGTH; /* SET ORDER LENGTH @Y30LB24*/ 00442000 L REG3,PLENGTH(,PARMPTR) 0144 00443000 * REG2=REG2+REG3; /* ADD ORDER LENGTH @Y30LB24*/ 00444000 ALR REG2,REG3 0145 00445000 * REG0=REG2; /* SET GETMAIN REG0 @Y30LB24*/ 00446000 LR REG0,REG2 0146 00447000 *LGET2: 0147 00448000 * GEN(GETMAIN RC,LV=(0),SP=241); /* PERFORM GETMAIN 241 @Y30LB24*/ 00449000 LGET2 GETMAIN RC,LV=(0),SP=241 00450000 * IF REG15^=ZERO THEN /* CORE AVAILABLE? @Y30LB24*/ 00451000 LTR REG15,REG15 0148 00452000 BZ @RF00148 0148 00453000 * DO; /* NO @Y30LB24*/ 00454000 * FAILCODE=RCON3; /* REASON CODE (22A) @Y30LB24*/ 00455000 LA FAILCODE,554 0150 00456000 * RETURN; /* RETURN TO ICBVPI00 @Y30LB24*/ 00457000 B @EL00004 0151 00458000 * END; /* @Y30LB24*/ 00459000 * RPLVPTR=REG1; /* BASE RPLV @Y30LB24*/ 00460000 @RF00148 LR RPLVPTR,REG1 0153 00461000 * RPLV=RPLV&&RPLV; /* ZERO RPLV @Y30LB24*/ 00462000 XC RPLV(132,RPLVPTR),RPLV(RPLVPTR) 0154 00463000 * RPLVTLEN=REG2; /* SET RPL LENGTH @Y30LB24*/ 00464000 STH REG2,RPLVTLEN(,RPLVPTR) 0155 00465000 * RPLVQPTR=ZERO; /* ZERO CHAIN ADDRESS @Y30LB24*/ 00466000 SLR @11,@11 0156 00467000 ST @11,RPLVQPTR(,RPLVPTR) 0156 00468000 * RPLVECB=ZERO; /* ZERO ECB @Y30LB24*/ 00469000 ST @11,RPLVECB(,RPLVPTR) 0157 00470000 * RPLVVICB=VVIPTR; /* SET MSVC CB PTR @Y30LB24*/ 00471000 ST VVIPTR,RPLVVICB(,RPLVPTR) 0158 00472000 * RPLFTIME=ON; /* INDICATE SECOND ENTRY @Y30LB24*/ 00473000 * RPLVPOST=OFF; /* INDICATE NO ECB POST @Y30LB24*/ 00474000 OI RPLFTIME(RPLVPTR),B'10000000' 0160 00475000 NI RPLVPOST(RPLVPTR),B'10111111' 0160 00476000 * RPLVUTIL(1:REG3)=PARMLIST; /* COPY PARM @Y30LB24*/ 00477000 LR @11,REG3 0161 00478000 BCTR @11,0 0161 00479000 EX @11,@SM01305 0161 00480000 * REG1=ADDR(VVIQRPL2); /* FORWARD CHAIN RPL @Y30LB24*/ 00481000 LA REG1,VVIQRPL2(,VVIPTR) 0162 00482000 * REG15=VVIQRPL2; /* POINT TO FIRST RPL @Y30LB24*/ 00483000 L REG15,VVIQRPL2(,VVIPTR) 0163 00484000 * DO WHILE REG15^=ZERO; /* LOOP THRU RPLS @Y30LB24*/ 00485000 B @DE00164 0164 00486000 @DL00164 DS 0H 0165 00487000 * REG1=REG15; /* SET FORWARD CHAIN ADDR 0165 00488000 * @Y30LB24*/ 00489000 LR REG1,REG15 0165 00490000 * REG15=REG15->RPLVQPTR; /* SET RPL ADDR @Y30LB24*/ 00491000 L REG15,RPLVQPTR(,REG15) 0166 00492000 * END; /* @Y30LB24*/ 00493000 @DE00164 LTR REG15,REG15 0167 00494000 BNZ @DL00164 0167 00495000 * REG1->RPLVQPTR=RPLVPTR; /* SET RPL ADDR @Y30LB24*/ 00496000 ST RPLVPTR,RPLVQPTR(,REG1) 0168 00497000 * RETURN; /* RETURN TO ICBVPI00 @Y30LB24*/ 00498000 B @EL00004 0169 00499000 * END VPIADDOR; /* END BUILD AND ADD RPL @Y30LB24*/ 00500000 * 0171 00501000 */* ****************************************************************** 00502000 * 0171 00503000 ** NAME = VPINOTOP, SYSTEM OPERATOR COMMUNICATION @Y30LB2 00504000 * 0171 00505000 * INPUT = INTERNAL WORK FLAG INDICATING THE TYPE OF PROCESSING 0171 00506000 ** ERROR THAT HAS OCCURRED. @Y30LB2 00507000 * 0171 00508000 * PROCESS = THIS SUBROUTINE IS CALLED TO WRITE A MESSAGE 0171 00509000 * TO THE OPERATOR CONSOLE INDICATING THE TYPE OF ERROR. 0171 00510000 * IF ERROR IS A GETMAIN FAILURE A FREEMAIN IS DONE FOR THE 0171 00511000 * RPLVS AND THE MSVC CONTROL BLOCK. 0171 00512000 * MSVC FAILURE IS INDICATED BY SETTING THE ICBV BIT OFF IN THE 0171 00513000 ** MSSC-SVC CONTROL BLOCK. @Y30LB2 00514000 * 0171 00515000 * OUTPUT = INFORMATIONAL MESSAGE TO BE CONVEYED TO THE OPERATOR. 00516000 * ICBV FLAG TURNED OFF INDICATING THE SUSPENSION OF MSS IF A 0171 00517000 ** GETMAIN FAILURE OCCURS. @Y30LB2 00518000 * 0171 00519000 ******************************************************************** */ 00520000 * 0171 00521000 *VPINOTOP: 0171 00522000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA); 0171 00523000 VPINOTOP DS 0H 0172 00524000 * 0172 00525000 * /*****************************************************************/ 00526000 * /* */ 00527000 * /* ** NIPWTO MESSAGE HEADER THE FOLLOWING STRUCTURE MAPS THE */ 00528000 * /* NIPWTO MESSAGE HEADER THAT IS GENERATED BY THE BAL MACRO */ 00529000 * /* -IEAPMNIP TYPE=HEADER- AND IS USED TO PASS INFORMATION TO THE */ 00530000 * /* NIPWTO SERVICE ROUTINE. THE MESSAGE LENGTH FIELD, NWTOLNG, */ 00531000 * /* INCLUDES THE LENGTH OF THE MESSAGE HEADER ITSELF. */ 00532000 * /* */ 00533000 * /*****************************************************************/ 00534000 * 0172 00535000 * DECLARE 0172 00536000 * 1 NWTOHDR BASED, /* MESSAGE HEADER START */ 00537000 * 2 NWTOLNG FIXED(15), /* MESSAGE LENGTH */ 00538000 * 2 NWTOFL CHAR(2), /* NIP MESSAGE FLAGS */ 00539000 * 3 NWTOFLNH BIT(1), /* NOT TO BE HARDCOPIED */ 00540000 * 3 NWTOFLNC BIT(1), /* SUPRESS BLANK COMPRESS */ 00541000 * 3 * BIT(14); /* RESERVED */ 00542000 * 0172 00543000 * /*****************************************************************/ 00544000 * /* */ 00545000 * /* ** END OF NIPWTO MESSAGE HEADER ** NIPWTOR PARAMETER LIST THE */ 00546000 * /* FOLLOWING STRUCTURE MAPS THE NIPWTOR PARAMETER LIST THAT IS */ 00547000 * /* GENERATED BY THE BAL MACRO -IEAPMNIP TYPE=PLIST- AND IS USED */ 00548000 * /* TO PASS INFORMATION TO THE NIPWTOR SERVICE ROUTINE. */ 00549000 * /* */ 00550000 * /*****************************************************************/ 00551000 * 0173 00552000 * DECLARE 0173 00553000 * 1 NWTORLST BASED, /* PARM LIST START */ 00554000 * 2 NWTORRPA PTR(31), /* REPLY AREA ADDRESS */ 00555000 * 2 NWTORECB PTR(31), /* REPLY ECB ADDRESS */ 00556000 * 2 NMTORRDL FIXED(15), /* REPLY AREA LENGTH */ 00557000 * 2 NWTORFL CHAR(1), /* NIP WTOR FLAGS */ 00558000 * 3 NWTORFLA BIT(1), /* ASYNCHRONOUS REQUEST */ 00559000 * 3 * BIT(3), /* RESERVED */ 00560000 * 3 NWTORFLB BIT(1), /* PROVIDE SQA BUFFER */ 00561000 * 3 * BIT(3), /* RESERVED */ 00562000 * 2 * CHAR(1), /* RESERVED */ 00563000 * 2 NWTORMSG PTR(31); /* WTOR MESSAGE HEADER ADDRESS. */ 00564000 * 0173 00565000 * /*****************************************************************/ 00566000 * /* */ 00567000 * /* ** END OF NIPWTOR PARAMETER LIST ** NIP SYSTEM PARAMETER QUEUE*/ 00568000 * /* ENTRY THE FOLLOWING STRUCTURE MAPS THE NIP SYSTEM PARAMETER */ 00569000 * /* ENTRY WHICH IS AN INTERNAL CONTROL BLOCK USED BY NIP TO TRACK */ 00570000 * /* SQA BUFFERS USED TO CONTAIN WTOR REPLIES. THIS IS DONE SO THAT*/ 00571000 * /* IEAVNIPX CAN FREE THESE AREAS AT THE END OF NIP PROCESSING. */ 00572000 * /* ONE SPE IS CONTAINED IN THE NVTSPE FIELD OF THE NVT. IF OTHERS*/ 00573000 * /* ARE REQUIRED, THEY ARE OBTAINED DYNAMICALLY FROM SQA AND */ 00574000 * /* CHAINED TO THE ONE IN THE NVT. */ 00575000 * /* */ 00576000 * /*****************************************************************/ 00577000 * 0174 00578000 * DECLARE 0174 00579000 * 1 NIPSPE BASED, /* NIPSPE START */ 00580000 * 2 NIPSPEQ PTR(31), /* CHAIN PTR */ 00581000 * 2 NIPSPEA PTR(31); /* PARAMETER PTR */ 00582000 * 0174 00583000 * /*****************************************************************/ 00584000 * /* */ 00585000 * /* ** END OF NIPSPE ** NIPMOUNT PARAMETER LIST THE FOLLOWING */ 00586000 * /* STRUCTURE MAPS THE NIPMOUNT PARAMETER LIST THAT IS GENERATED */ 00587000 * /* BY THE BAL MACRO -IEAPMNIP TYPE=MOUNTPL AND IS USED TO PASS */ 00588000 * /* INFORMATION TO THE NIPMOUNT SERVICE ROUTINE. THIS MAPPING MUST*/ 00589000 * /* BE INCLUDED IN ANY MODULE THAT USES THE NIPMOUNT SERVICE, */ 00590000 * /* SINCE IT IS REFERRED TO BY THE NIPMOUNT BAL CALL MACRO, */ 00591000 * /* IEAPMNIP TYPE=MOUNT. */ 00592000 * /* */ 00593000 * /*****************************************************************/ 00594000 * 0175 00595000 * DECLARE 0175 00596000 * 1 NIPMNTPL BASED, /* PARM LIST START */ 00597000 * 2 NMNTDS CHAR(12), /* DATASET NAME OR */ 00598000 * 3 NMNTDSA PTR(31) BDY(BYTE),/* DS NAME ADDRESS */ 00599000 * 2 NMNTVS CHAR(6), /* VOLUME SERIAL OR */ 00600000 * 3 NMNTUCB FIXED(31) BDY(BYTE),/* UCB ADDRESS */ 00601000 * 2 NMNTDT CHAR(2), /* DEVICE TYPE */ 00602000 * 2 NMNTFL CHAR(1), /* NIPMOUNT FLAGS */ 00603000 * 3 * BIT(4), /* ** RESERVED ** */ 00604000 * 3 NMNTFUS BIT(1), /* UCB SCAN ONLY REQUEST */ 00605000 * 3 NMNTFLI BIT(1), /* DS NAME ADDR GIVEN */ 00606000 * 3 NMNTFLC BIT(1), /* CONDITIONAL REQUEST */ 00607000 * 3 NMNTFLB BIT(1), /* UCB ADDRESS GIVEN */ 00608000 * 2 * CHAR(3); /* ** RESERVED ** */ 00609000 * 0175 00610000 * /*****************************************************************/ 00611000 * /* */ 00612000 * /* ** END OF NIPMOUNT PARAMETER LIST ** NIPOPEN PARAMETER LIST */ 00613000 * /* THE FOLLOWING STRUCTURE MAPS THE NIPOPEN PARAMETER LIST THAT */ 00614000 * /* IS GENERATED BY THE BAL MACRO -IEAPMNIP TYPE=OPENPL- AND IS */ 00615000 * /* USED TO PASS INFORMATION TO THE NIPOPEN SERVICE ROUTINE. THIS */ 00616000 * /* MAPPING MUST BE INCLUDED IN ANY MODULE THAT USES THE NIPOPEN */ 00617000 * /* SERVICE, SINCE IT IS REFERRED TO BY THE NIPOPEN BAL CALL */ 00618000 * /* MACRO, IEAPMNIP TYPE=OPEN. */ 00619000 * /* */ 00620000 * /*****************************************************************/ 00621000 * 0176 00622000 * DECLARE 0176 00623000 * 1 NIPOPNPL BASED, /* PARM LIST START */ 00624000 * 2 NOPNDS CHAR(12), /* DATASET NAME OR */ 00625000 * 3 NOPNDSA PTR(31) BDY(BYTE),/* DS NAME ADDRESS */ 00626000 * 2 NOPNDCB PTR(31), /* DCB ADDRESS */ 00627000 * 2 NOPNUCB PTR(32), /* UCB ADDRESS @Z30AAXC*/ 00628000 * 2 NOPNFL CHAR(1), /* NIPOPEN FLAGS */ 00629000 * 3 NOPNFRS BIT(1), /* PERMANENTLY RESIDENT DS */ 00630000 * 3 NOPNFAU BIT(1), /* AUTHORIZED LIBRARY FLAG */ 00631000 * 3 NOPNFLM BIT(1), /* SUPRESS DS NOT FOUND MSG */ 00632000 * 3 NOPNFLI BIT(1), /* DS NAME ADDR GIVEN */ 00633000 * 3 NOPNFLNB BIT(1), /* INITIALIZE BASIC DEB */ 00634000 * 3 NOPNFLLB BIT(1), /* END OF NUCLEUS DEB */ 00635000 * 3 NOPNFLLC BIT(1), /* CONDITIONAL REQUEST */ 00636000 * 3 NOPNFLSX BIT(1), /* FIRST EXTENT ONLY */ 00637000 * 2 NOPNRC CHAR(1), /* NIPOPEN RETURN CODE */ 00638000 * 2 * CHAR(2); /* ** RESERVED ** */ 00639000 * 0176 00640000 * /*****************************************************************/ 00641000 * /* */ 00642000 * /* ** END OF NIPOPEN PARAMETER LIST ** NIPSCHED PARAMETER LIST */ 00643000 * /* THE FOLLOWING STRUCTURE MAPS THE NIPSCHED PARAMETER LIST THAT */ 00644000 * /* IS GENERATED BY THE BAL MACRO -IEAPMNIP TYPE=SCHEDL- AND IS */ 00645000 * /* USED TO PASS INFORMATION TO THE NIPSCHED SERVICE ROUTINE. */ 00646000 * /* */ 00647000 * /*****************************************************************/ 00648000 * 0177 00649000 * DECLARE 0177 00650000 * 1 NIPSCHDL BASED, 0177 00651000 * 2 NSCHDPTR PTR(31), /* ADDRESS OF ROUTINE TO SCHED */ 00652000 * 2 NSCHDPRM PTR(31), /* ADDRESS OF CALLERS AREA */ 00653000 * 2 NSCHDCPU CHAR(2); /* CPU ADDRESS FOR SCHEDULE */ 00654000 * 0177 00655000 * /*****************************************************************/ 00656000 * /* */ 00657000 * /* **** END OF NIPSCHED PARAMETER LIST */ 00658000 * /* */ 00659000 * /*****************************************************************/ 00660000 * 0178 00661000 * DECLARE 0178 00662000 * RNVT PTR(31) REG(2); /* ADDRESS OF THE NVT */ 00663000 * DECLARE 0179 00664000 * RCVT PTR(31) REG(3); /* ADDRESS OF THE CVT */ 00665000 * DECLARE 0180 00666000 * REXIT PTR(31) REG(14); /* RETURN ADDRESS REGISTER */ 00667000 * DECLARE 0181 00668000 * RENTRY PTR(31) REG(15); /* ENTRY ADDRESS REGISTER */ 00669000 */********************************************************************/ 00670000 */* NIP VECTOR TABLE (NVT) */ 00671000 */* */ 00672000 */* DATE=6/27/74,VS2R3 @Y30LPXC*/ 00673000 */* DATE=4/21/76,VS2R3 @ZA10111*/ 00674000 */* */ 00675000 */* THE NIP VECTOR TABLE (NVT) IS THE BASIC CONTROL BLOCK */ 00676000 */* USED FOR COMMUNICATION AND INFORMATION DURING NIP */ 00677000 */* PROCESSING. THE INITIAL PORTION OF THE NVT (INVT) IS */ 00678000 */* ASSEMBLED INTO MODULE IEAVNIP0 AND CONTAINS FIELDS */ 00679000 */* USED BY IEAVNIP0 AND V-CONS FOR NUCLEUS ENTRY POINTS. */ 00680000 */* THE INITIAL NVT IS RELOCATED INTO MODULE IEAVNIPM */ 00681000 */* IN WHICH THE REMAINDER OF THE NVT IS ASSEMBLED. */ 00682000 */* THIS PORTION OF THE NVT CONTAINS POINTERS TO THE */ 00683000 */* VARIOUS SERVICE ROUTINES CONTAINED IN IEAVNIPM PLUS */ 00684000 */* ALL OTHER NVT FIELDS WHICH HAVE NO REQUIREMENT TO */ 00685000 */* BE INCLUDED IN THE INITIAL NVT. THE NVT RESIDES IN */ 00686000 */* IEAVNIPM FOR THE REMAINDER OF NIP PROCESSING. */ 00687000 */* */ 00688000 */********************************************************************/ 00689000 */* */ 00690000 */* DISABLED WAIT STATE CODES LOADED BY NIP - */ 00691000 */* */ 00692000 * 0182 00693000 * DCL 0182 00694000 * NVTFLWIE BIT(8) CONSTANT('21'X);/* I/O ERROR ON CONSOLE EXCP */ 00695000 * DCL 0183 00696000 * NVTFLWAB BIT(8) CONSTANT('30'X);/* UNEXPECTED TASK ABEND */ 00697000 * DCL 0184 00698000 * NVTFLWNU BIT(8) CONSTANT('31'X);/* NO UCB FOR IPL UNIT */ 00699000 * DCL 0185 00700000 * NVTFLWNN BIT(8) CONSTANT('32'X);/* NIP MODULE NOT FOUND BY BLDL*/ 00701000 * DCL 0186 00702000 * NVTFLWBN BIT(8) CONSTANT('33'X);/* I/O ERROR ON BLDL */ 00703000 * DCL 0187 00704000 * NVTFLWCP BIT(8) CONSTANT('34'X);/* CPU NOT 370 WITH RELOCATE */ 00705000 * DCL 0188 00706000 * NVTFLWCK BIT(8) CONSTANT('00'X);/* RESERVED */ 00707000 * DCL 0189 00708000 * NVTFLWSQ BIT(8) CONSTANT('36'X);/* INITIAL SQA PAGES EXHAUSTED */ 00709000 * DCL 0190 00710000 * NVTFLWNL BIT(8) CONSTANT('37'X);/* REQUIRED LIBRARY NOT FOUND */ 00711000 * DCL 0191 00712000 * NVTFLWRS BIT(8) CONSTANT('38'X);/* INSUFFICIENT REAL STORAGE 0191 00713000 * FOR NIP */ 00714000 * DCL 0192 00715000 * NVTFLWLC BIT(8) CONSTANT('0A'X);/* SYS1.LINKLIB NOT CATALOGED */ 00716000 * DCL 0193 00717000 * NVTFLWPR BIT(8) CONSTANT('39'X);/* PERM RESIDENT MOUNT CONFLICT*/ 00718000 * DCL 0194 00719000 * NVTFLWCS BIT(8) CONSTANT('3A'X);/* ERROR DURING LPA COLDSTART */ 00720000 * DCL 0195 00721000 * NVTFLWAX BIT(8) CONSTANT('3B'X);/* REQUIRED LPA MODULE MISSING */ 00722000 * DCL 0196 00723000 * NVTFLWNM BIT(8) CONSTANT('3C'X);/* INSUFFICIENT AUXILIARY 0196 00724000 * STORAGE */ 00725000 * DCL 0197 00726000 * NVTFLWSE BIT(8) CONSTANT('3F'X);/* NIP DIAGNOSED SYSTEM ERROR */ 00727000 * DCL 0198 00728000 * NVTFLWAM BIT(8) CONSTANT('40'X);/* UNEXPECTED NIP TASK ABEND */ 00729000 * DCL 0199 00730000 * NVTFLWNC BIT(8) CONSTANT('07'X);/* NO USABLE MASTER CONSOLE 0199 00731000 * FOUND */ 00732000 * DCL 0200 00733000 * NVTF0BCP BIT(8) CONSTANT('45'X);/* BLDCPOOL FAILED */ 00734000 * DCL 0201 00735000 * NVTF0UPC BIT(8) CONSTANT('46'X);/* NIP0 PROG CHECK */ 00736000 * DCL 0202 00737000 * NVTF0MFA BIT(8) CONSTANT('47'X);/* MALFUNCTION ALERT */ 00738000 * DCL 0203 00739000 * NVTWCN01 BIT(8) CONSTANT('63'X);/* GETMAIN FAILED */ 00740000 * DCL 0204 00741000 * NVTWCN02 BIT(8) CONSTANT('60'X);/* STGINDEX D.S. NOT OPENED */ 00742000 * DCL 0205 00743000 * NVTWCN03 BIT(8) CONSTANT('61'X);/* STGINDEX D.S. RECORDS 0205 00744000 * MISSING */ 00745000 * DCL 0206 00746000 * NVTWCN04 BIT(8) CONSTANT('62'X);/* STGINDEX D.S. PERM. READ 0206 00747000 * ERROR */ 00748000 * DCL 0207 00749000 * NVTWCN05 BIT(8) CONSTANT('4A'X);/* TOD CLOCK ERROR */ 00750000 * DCL 0208 00751000 * NVTWCN06 BIT(8) CONSTANT('63'X);/* GETMAIN FAILED */ 00752000 * DCL 0209 00753000 * NVTWCN07 BIT(8) CONSTANT('5C'X);/* CANT RETRIEVE CATALOG 0209 00754000 * POINTER FROM THE SYS1.NUCLEUS 00755000 * D.S. */ 00756000 * DCL 0210 00757000 * NVTWCN08 BIT(8) CONSTANT('5D'X);/* CANT READ DSCB FOR MASTER 0210 00758000 * CATALOG */ 00759000 * DCL 0211 00760000 * NVTWCN09 BIT(8) CONSTANT('5E'X);/* I/O ERROR READING CATALOG 0211 00761000 * SELF-DESCRIB- ING RECORDS. */ 00762000 * DCL 0212 00763000 * NVTWCN10 BIT(8) CONSTANT('5F'X);/* CATALOG DAMAGE */ 00764000 * DCL 0213 00765000 * NVTWCN11 BIT(8) CONSTANT('64'X);/* RTM ENTERED AT NIP */ 00766000 * DCL 0214 00767000 * NVTWCN12 BIT(8) CONSTANT('65'X);/* INVALID SVC ISSUED */ 00768000 * DCL 0215 00769000 * NVTWCN13 BIT(8) CONSTANT('3D'X);/* IEAVCSEG FAILED */ 00770000 * DCL 0216 00771000 * NVTWCN14 BIT(8) CONSTANT('44'X);/* MACHINE CHECK */ 00772000 * DCL 0217 00773000 * NVTWCN15 BIT(8) CONSTANT('5B'X);/* RUNAWAY CPU */ 00774000 * DCL 0218 00775000 * NVTWCN16 BIT(8) CONSTANT('5A'X);/* IPLED CPU OUT OF 0218 00776000 * SYNCHRONIZATION */ 00777000 * DCL 0219 00778000 * NVTWCN17 BIT(8) CONSTANT('59'X);/* UNDEFINED BLDL RC */ 00779000 * DCL 0220 00780000 * NVTWCN18 BIT(8) CONSTANT('48'X);/* IEAVPCB FAILED */ 00781000 * DCL 0221 00782000 * NVTWCN19 BIT(8) CONSTANT('58'X);/* IEAVSPSA FAILED */ 00783000 * DCL 0222 00784000 * NVTVDASD BIT(8) CONSTANT('2D'X);/* UNCONDITIONAL MOUNT REQUEST 00785000 * FOR VIRTUAL DASD DEVICE 0222 00786000 * @Y30LPXD*/ 00787000 * DECLARE 0223 00788000 * 1 NVT BDY(DWORD) BASED(RNVT), /* BEGIN BASED NVT */ 00789000 * 0223 00790000 * /***************************************************************/ 00791000 * /* */ 00792000 * /* NVT DESCRIPTORS FOR NIP LOADING */ 00793000 * /* */ 00794000 * /***************************************************************/ 00795000 * 0223 00796000 * 2 NVTNPSUF(25) CHAR(2), /* SUFFIX LIST FOR -NPXX */ 00797000 * 2 * CHAR(03), /* RESERVED FOR SUFFIXES */ 00798000 * 2 NVTNPSFX PTR(8), /* INDEX TO NPSUF - THIS LOAD */ 00799000 * 2 NVTNPATR CHAR(1), /* MOD. ATTRIB. - THIS LOAD */ 00800000 * 3 NVTNPREN BIT(2), /* REENTRANT */ 00801000 * 4 * BIT(1), /* RESERVED */ 00802000 * 4 NVTNPREU BIT(1), /* REUSABLE */ 00803000 * 3 * BIT(6), /* RESERVED */ 00804000 * 2 NVTFLLB CHAR(1), /* LIBRARY STATUS FLAGS */ 00805000 * 3 NVTFLSLB BIT(1), /* SVCLIB, LOGREC DEFINED */ 00806000 * 3 * BIT(7), /* RESERVED */ 00807000 * 0223 00808000 * /***************************************************************/ 00809000 * /* */ 00810000 * /* NVT POINTERS TO NUCLEUS CONTROL BLOCKS */ 00811000 * /* */ 00812000 * /***************************************************************/ 00813000 * 0223 00814000 * 2 NVTMSTCB PTR(31), /* NIP/MASTER SCHEDULER TCB */ 00815000 * 2 NVTCMTCB PTR(31), /* COMM TASK TCB ADDRESS */ 00816000 * 2 NVTMASCB PTR(31), /* MASTERS ASCB ADDRESS */ 00817000 * 2 NVTAASCB PTR(31), /* ADDRESS OF ASM ASCB */ 00818000 * 2 NVTASTCB PTR(31), /* ADDR OF ASM TCB */ 00819000 * 2 NVTSVCTB PTR(31), /* ADDRESS OF SVC TABLE */ 00820000 * 2 NVTVBLDL PTR(31), /* BLDL TABLE PTR ADDRESS */ 00821000 * 2 NVTIGCER PTR(31), /* SVC ERROR ROUTINE ADDR */ 00822000 * 2 NVTVVMDI PTR(31), /* LPA HASH VALUE ADDRESS */ 00823000 * 2 NVTMSLNK PTR(31), /* LINK PARMLIST ADDRESS */ 00824000 * 2 NVTDSSNG PTR(31), /* DSS MASK OUT RTN ADDRESS */ 00825000 * 2 NVTMFA PTR(31), /* ADDRESS OF SYSTEM MFA RTN */ 00826000 * 2 NVTNVRSZ PTR(31), /* NIP REGION UPPER LIMIT */ 00827000 * 2 NVTASMAD PTR(31), /* ADDRESS OF ASM ADCONS TAB */ 00828000 * 2 * PTR(31), /* RESERVED */ 00829000 * 2 NVTIGXER PTR(31), /* ESR ERROR ROUTINE @Y30LPXD*/ 00830000 * 2 NVTLNGFX FIXED(31), /* RSM LONG FIX AREA SIZE */ 00831000 * 2 NVTLSQAS PTR(31), /* END OF MASTERS LSQA */ 00832000 * 2 NVTSQANO FIXED(15), /* NO. INITIAL SQA PAGES */ 00833000 * 2 NVTLSQNO FIXED(15), /* NO. OF LSQA PAGES TO FIX */ 00834000 * 2 NVTRGNAV FIXED(15), /* NO. OF AVAILABLE PAGES */ 00835000 * 2 NVTNBMIN FIXED(15), /* MINIMUM NUC. BUF. PAGES */ 00836000 * 2 NVTRSVMN FIXED(15), /* MINIMUM RESRVD PAGES */ 00837000 * 2 NVTNVSQA FIXED(15), /* NUMBER OF VIRT SEG OF SQA */ 00838000 * 0223 00839000 * /***************************************************************/ 00840000 * /* */ 00841000 * /* NVT SAVE AREAS - NUCLEUS CONTROL BLOCKS */ 00842000 * /* */ 00843000 * /***************************************************************/ 00844000 * 0223 00845000 * 2 NVTABSAV CHAR(8) BDY(WORD),/* SVC TABLE - SVC 13 */ 00846000 * 3 NVTABFST PTR(31), 0223 00847000 * 3 NVTABSEC CHAR(4), 0223 00848000 * 2 NVTSVC60 CHAR(8), /* SAVEAREA FOR SVC 60 */ 00849000 * 2 NVTPQSAV FIXED(31), /* PVT ENTRY - GET SQA PAGE */ 00850000 * 2 NVTALSQA PTR(31), /* LOW ADDR OF M.S. LSQA */ 00851000 * 2 NVTLSPQE PTR(31), /* ADDR OR SPQE FOR LSQA */ 00852000 * 2 NVTMFASA PTR(31), /* SA OF MFA ROUTINE ADDR */ 00853000 * 2 NVTRTMSA PTR(31), /* ADDR OF RTM BRANCH ENTRY */ 00854000 * 2 NVTSTMAP PTR(31), /* ADDRESS OF STORAGE MAP */ 00855000 * 0223 00856000 * /***************************************************************/ 00857000 * /* */ 00858000 * /* NVT POINTERS TO NUCLEUS ADDITIONS */ 00859000 * /* */ 00860000 * /***************************************************************/ 00861000 * 0223 00862000 * 2 NVTNUCND PTR(31), /* BUFFER - NEXT AVAIL BYTE */ 00863000 * 2 NVTNBFND PTR(31), /* END OF NUC BUFFER ADDR */ 00864000 * 2 NVTVVPG1 PTR(31), /* ADDRESS OF 1ST V=V PAGE */ 00865000 * 2 NVTN0MSG PTR(31), /* NIP0 MSGS ADDRESS */ 00866000 * 2 NVTSGPSA PTR(31), /* PTR TO SYSGENED PSA */ 00867000 * 2 * FIXED(15), /* RESERVED */ 00868000 * 2 NVTNXSIZ FIXED(15), /* NIPX RESRVD AREA SIZE */ 00869000 * 2 NVTNXPTR PTR(31), /* NIPX NUC. RESRVD AREA PTR */ 00870000 * 0223 00871000 * /***************************************************************/ 00872000 * /* */ 00873000 * /* NVT SYSGEN VARIABLES */ 00874000 * /* */ 00875000 * /***************************************************************/ 00876000 * 0223 00877000 * 2 NVTTRACE FIXED(15), /* NO. TRACE TABLE ENTRIES */ 00878000 * 2 NVTFLSG CHAR(1), /* RESERVED */ 00879000 * 0223 00880000 * /***************************************************************/ 00881000 * /* */ 00882000 * /* NVT STATUS FLAGS */ 00883000 * /* */ 00884000 * /***************************************************************/ 00885000 * 0223 00886000 * 2 NVTFLCN CHAR(1), /* MESSAGE HANDLING FLAGS */ 00887000 * 3 NVTFLAC BIT(1), /* ACTIVE MASTER CONSOLE */ 00888000 * 3 NVTFLIOC BIT(1), /* COMPOSITE MASTER */ 00889000 * 3 NVTMP BIT(1), /* MP SYSTEM IPLED */ 00890000 * 3 NVTFLASM BIT(1), /* NVTNVRSZ VALUE INVALID */ 00891000 * 3 NVTFLNHC BIT(1), /* HARDCOPY DISCONTINUED */ 00892000 * 3 NVTFLNCK BIT(1), /* TOD CLOCK INOPERATIVE */ 00893000 * 3 NVTFLRAC BIT(1), /* WTOR REPLY OUTSTANDING */ 00894000 * 3 NVTCLKER BIT(1), /* TOD CLOCK WAS IN ERROR STATE 00895000 * AT IPL AND HAS BEEN SET TO 0 00896000 * BY NIP0 @ZA10111*/ 00897000 * 2 * PTR(31), /* RESERVED */ 00898000 * 2 NVTMCPSW CHAR(8), /* SAVEAREA FOR M/C NEW PSW */ 00899000 * 0223 00900000 * /***************************************************************/ 00901000 * /* */ 00902000 * /* NVT PSW DESCRIPTORS SYSTEM WAIT STATE PSW */ 00903000 * /* */ 00904000 * /***************************************************************/ 00905000 * 0223 00906000 * 2 NVTWTPSW CHAR(8) BDY(DWORD), 0223 00907000 * 0223 00908000 * /***************************************************************/ 00909000 * /* */ 00910000 * /* SYSTEM WAIT STATE PSW - WORD 1 */ 00911000 * /* */ 00912000 * /***************************************************************/ 00913000 * 0223 00914000 * 3 NVTWPSW1 CHAR(4), 0223 00915000 * 3 NVTWPSW2 FIXED(31), /* PORTION NIP UPDATES */ 00916000 * 4 NVTIDPSW CHAR(2), /* PSW ID - NIP MODULE NAME */ 00917000 */* */ 00918000 */* PSW ID CODES & ASSOCIATED NIP MODULE NAMES */ 00919000 */* ARE REFLECTED BELOW - */ 00920000 */* X'07D4' - IEAVNIPM */ 00921000 */* X'07E7' - IEAVNIPX */ 00922000 */* X'0001' - IEAVNP01 */ 00923000 */* X'00A2' - IEAVNPA2 (MODULE IEAVNP02) */ 00924000 */* X'00B2' -IEAVNPB2 (MODULE IEAVNP02) */ 00925000 */* X'0003' - IEAVNP03 */ 00926000 */* X'0004' - IEAVNP04 */ 00927000 */* X'0005' - IEAVNP05 */ 00928000 */* X'00B5' - IEAVNPB5 */ 00929000 */* X'0006' - IEAVNP06 */ 00930000 */* X'00A6' - IEAVNPA6 */ 00931000 */* X'00B6' - IEAVNPB6 */ 00932000 */* X'0007' - IEAVNP07 */ 00933000 */* X'00A8' - IEAVNPA8 (MODULE IEAVNP08) */ 00934000 */* X'00B8' - IEAVNPB8 (MODULE IEAVNP08) */ 00935000 */* X'00C8' - IEAVNPC8 (MODULE IEAVNP08) */ 00936000 */* X'0009' - IEAVNP09 */ 00937000 */* X'0010' - IEAVNP10 */ 00938000 */* X'0011' - IEAVNP11 */ 00939000 */* X'0012' - IEAVNP12 */ 00940000 */* X'0013' - IEAVNP13 */ 00941000 */* X'0014' - IEAVNP14 */ 00942000 */* X'0015' - IEAVNP15 */ 00943000 */* X'0016' - IEAVNP16 */ 00944000 */* X'0017' - IEAVNP17 */ 00945000 */* */ 00946000 * 0223 00947000 * 4 NVTFLWS1 CHAR(1), /* SYSTEM WSC - BYTE 1 */ 00948000 * 4 NVTFLWSC CHAR(1), /* SYSTEM WSC - BYTE 2 */ 00949000 * 5 NVTIX CHAR(1), /* * ID - END INITIAL NVT */ 00950000 * 0223 00951000 * /***************************************************************/ 00952000 * /* */ 00953000 * /* NVT POINTERS TO IEAVNIPM ROUTINES */ 00954000 * /* */ 00955000 * /***************************************************************/ 00956000 * 0223 00957000 * 2 NVTLOAD PTR(31), /* LOAD ROUTINE ADDRESS */ 00958000 * 2 NVTSENSE PTR(31), /* SENSE ROUTINE ADDRESS */ 00959000 * 2 NVTSWAIT PTR(31), /* SYSTEM WAIT ROUTINE ADDR */ 00960000 * 2 NVTTIME PTR(31), /* TIME ROUTINE ADDRESS */ 00961000 * 2 NVTUCBFN PTR(31), /* UCB FIND ROUTINE ADDR */ 00962000 * 2 NVTWTO PTR(31), /* WTO ROUTINE ADDRESS */ 00963000 * 2 NVTWTOR PTR(31), /* WTOR ROUTINE ADDRESS */ 00964000 * 2 NVTWTOR2 PTR(31), /* WTOR WAIT RTN */ 00965000 * 2 NVTOPEN PTR(31), /* NIPOPEN ROUTINE ADDRESS */ 00966000 * 2 NVTMOUNT PTR(31), /* NIPMOUNT ROUTINE ADDRESS */ 00967000 * 2 NVTPRMPT PTR(31), /* NIPPRMPT ROUTINE */ 00968000 * 2 NVTVIRT PTR(31), /* NIPSWAP TO V=V ROUTINE */ 00969000 * 2 NVTREAL PTR(31), /* NIPSWAP TO V=R ROUTINE */ 00970000 * 2 NVTSCHED PTR(31), /* NIP SCHEDULE ROUTINE */ 00971000 * 2 NVTOPIO PTR(31), /* NIP OPIO ROUTINE ADDRESS */ 00972000 * 2 NVTNIPM(3) PTR(31), /* IEAVNIPM BASE REGS */ 00973000 * 2 NVTNMBLD PTR(31), /* NIPM BLDL ENTRY */ 00974000 * 2 *(4) FIXED(31), /* RESERVED */ 00975000 * 0223 00976000 * /***************************************************************/ 00977000 * /* */ 00978000 * /* NVT POINTERS TO IEAVNIPM DEFINED CONTROL BLOCKS AND POINTERS*/ 00979000 * /* */ 00980000 * /***************************************************************/ 00981000 * 0223 00982000 * 2 NVTDCBIC PTR(31), /* INPUT CONSOLE DCB ADDR */ 00983000 * 2 NVTDCBOC PTR(31), /* OUTPUT CONSOLE DCB ADDR */ 00984000 * 2 NVTDCBSN PTR(31), /* SYS1.NUCLEUS DCB ADDR */ 00985000 * 0223 00986000 * /***************************************************************/ 00987000 * /* */ 00988000 * /* NVT POINTERS TO SQA BUFFERS/QUEUES */ 00989000 * /* */ 00990000 * /***************************************************************/ 00991000 * 0223 00992000 * 2 NVTMBUF PTR(31), /* MSG BUFFER - NEXT BYTE */ 00993000 * 2 NVTMBEND PTR(31), /* END OF NIP MSG BUFFER */ 00994000 * 2 NVTSPE(2) PTR(31), /* NIPSPE QUEUE ORIGIN */ 00995000 * 0223 00996000 * /***************************************************************/ 00997000 * /* */ 00998000 * /* NVT SAVE AREAS USED BY IEAVNIPM ROUTINES */ 00999000 * /* */ 01000000 * /***************************************************************/ 01001000 * 0223 01002000 * 2 NVTTOD FIXED(31), /* TOD CLOCK - HI 32 BITS */ 01003000 * 2 NVTCPUAD CHAR(2), /* ADDRESS OF CPU WITH CLOCK */ 01004000 * 2 * CHAR(2), /* RESERVED */ 01005000 * 2 NVTABCD1 FIXED(15), /* LEVEL 1 ABEND CODE */ 01006000 * 2 NVTABWS1 CHAR(1), /* NIPABEND ENTRY WS CODE */ 01007000 * 2 * CHAR(1), /* RESERVED */ 01008000 * 0223 01009000 * /***************************************************************/ 01010000 * /* */ 01011000 * /* NVT SAVE AREAS USED BY IEAVNPXX ROUTINES */ 01012000 * /* */ 01013000 * /***************************************************************/ 01014000 * 0223 01015000 * 2 NVTRPAGE PTR(31), /* REAL ADDRESS OF ASM LSQA */ 01016000 * 2 NVTPAREA PTR(31), /* 1ST PARM AREA POINTER */ 01017000 * 2 NVTPTAB PTR(31), /* ORIGIN OF PARM TABLE */ 01018000 * 2 NVTQSBUF PTR(31), /* QUICK START BUFFER ADDR */ 01019000 * 2 NVTQSCNT FIXED(15), /* QSR PAGE COUNT */ 01020000 * 2 NVTSPUCB FIXED(16), /* SYS1.PARMLIB UCB ADDR @Z30AAXC*/ 01021000 * 2 NVTVVTCB PTR(31), /* NIP V=V TCB ADDRESS */ 01022000 * 2 NVTVRTCB PTR(31), /* NIP V=R TCB ADDRESS */ 01023000 * 2 *(2) FIXED(31), /* RESERVED FIELDS */ 01024000 * 2 NVTVRBLD PTR(31), /* LPA BLDL ENTRY ADDR (V=R) */ 01025000 * 2 NVTBLDL PTR(31), /* BLDL TABLE BUILD AREA @ */ 01026000 * 2 NVTCSLIB PTR(31), /* SYS1.LPALIB DCB ADDRESS */ 01027000 * 2 NVTCSLNM PTR(31), /* CURRENT LPA NAME ADDR */ 01028000 * 2 NVTCSIOB PTR(31), /* ADDR OF IOB FOR FAILING 0223 01029000 * COLDSTART I/O REQUESTS */ 01030000 * 2 NVTCSLPG PTR(31), /* LAST ASSIGNED ADDRESS IN 0223 01031000 * COLDSTART LPA */ 01032000 * 2 NVTLPACT CHAR(1), /* COUNT OF LPA ROUTINES ADDED BY 01033000 * IEAVNIPM */ 01034000 * 2 * CHAR(3), /* RESERVED */ 01035000 * 2 NVTXCTL CHAR(8) BDY(WORD), /* SAVE XCTL ADDRESS */ 01036000 * 3 NVTXFST PTR(31), 0223 01037000 * 3 NVTXSEC CHAR(4), 0223 01038000 * 2 NVTLOCAT CHAR(8) BDY(WORD),/* SAVE LOCATE SVCENT */ 01039000 * 3 NVTLFST PTR(31), /* POINTER TO SVC ROUTINE */ 01040000 * 3 NVTLSEC CHAR(4), /* FLAGS AND ATTRIBUTES */ 01041000 * 0223 01042000 * /***************************************************************/ 01043000 * /* */ 01044000 * /* SAVE AREA FOR V=V TCB JPQ FIELD */ 01045000 * /* */ 01046000 * /***************************************************************/ 01047000 * 0223 01048000 * 2 NVTVJPQ PTR(31), 0223 01049000 * 0223 01050000 * /***************************************************************/ 01051000 * /* */ 01052000 * /* SAVE AREA FOR V=V TCB LLE FIELD */ 01053000 * /* */ 01054000 * /***************************************************************/ 01055000 * 0223 01056000 * 2 NVTVLLE PTR(31), 0223 01057000 * 0223 01058000 * /***************************************************************/ 01059000 * /* */ 01060000 * /* SAVE AREA FOR V=V TCB PQE FIELD */ 01061000 * /* */ 01062000 * /***************************************************************/ 01063000 * 0223 01064000 * 2 NVTVPQE PTR(31), 0223 01065000 * 0223 01066000 * /***************************************************************/ 01067000 * /* */ 01068000 * /* SAVE AREA FOR V=V TCB MSS FIELD */ 01069000 * /* */ 01070000 * /***************************************************************/ 01071000 * 0223 01072000 * 2 NVTVMSS PTR(31), 0223 01073000 * 0223 01074000 * /***************************************************************/ 01075000 * /* */ 01076000 * /* SAVE AREA FOR V=R TCB JPQ FIELD */ 01077000 * /* */ 01078000 * /***************************************************************/ 01079000 * 0223 01080000 * 2 NVTRJPQ PTR(31), 0223 01081000 * 0223 01082000 * /***************************************************************/ 01083000 * /* */ 01084000 * /* SAVE AREA FOR V=R TCB LLE FIELD */ 01085000 * /* */ 01086000 * /***************************************************************/ 01087000 * 0223 01088000 * 2 NVTRLLE PTR(31), 0223 01089000 * 0223 01090000 * /***************************************************************/ 01091000 * /* */ 01092000 * /* SAVE AREA FOR V=R TCB PQE FIELD */ 01093000 * /* */ 01094000 * /***************************************************************/ 01095000 * 0223 01096000 * 2 NVTRPQE PTR(31), 0223 01097000 * 0223 01098000 * /***************************************************************/ 01099000 * /* */ 01100000 * /* SAVE AREA FOR V=R TCB MSS FIELD */ 01101000 * /* */ 01102000 * /***************************************************************/ 01103000 * 0223 01104000 * 2 NVTRMSS PTR(31), 0223 01105000 * 0223 01106000 * /***************************************************************/ 01107000 * /* */ 01108000 * /* HIGH VIRTUAL ADDRESS OF PLPA */ 01109000 * /* */ 01110000 * /***************************************************************/ 01111000 * 0223 01112000 * 2 NVTLPAND PTR(31), 0223 01113000 * 0223 01114000 * /***************************************************************/ 01115000 * /* */ 01116000 * /* ADDRESS OF PLPA DIRECTORY */ 01117000 * /* */ 01118000 * /***************************************************************/ 01119000 * 0223 01120000 * 2 NVTDIRA PTR(31), 0223 01121000 * 0223 01122000 * /***************************************************************/ 01123000 * /* */ 01124000 * /* CURRENT LOW VIRTUAL ADDRESS OF COMMON AREA */ 01125000 * /* */ 01126000 * /***************************************************************/ 01127000 * 0223 01128000 * 2 NVTLVIRT PTR(31), 0223 01129000 * 0223 01130000 * /***************************************************************/ 01131000 * /* */ 01132000 * /* START OF V=R REGION */ 01133000 * /* */ 01134000 * /***************************************************************/ 01135000 * 0223 01136000 * 2 NVTVRREG PTR(31), 0223 01137000 * 0223 01138000 * /***************************************************************/ 01139000 * /* */ 01140000 * /* LENGTH OF V=R AREA AVAILABLE IN PAGES */ 01141000 * /* */ 01142000 * /***************************************************************/ 01143000 * 0223 01144000 * 2 NVTVRLNG FIXED(31), 0223 01145000 * 0223 01146000 * /***************************************************************/ 01147000 * /* */ 01148000 * /* LOGICAL GROUP NUMBER (LGN) FOR PLPA */ 01149000 * /* */ 01150000 * /***************************************************************/ 01151000 * 0223 01152000 * 2 NVTLPALG CHAR(8), 0223 01153000 * 0223 01154000 * /***************************************************************/ 01155000 * /* */ 01156000 * /* SAVEAREA FOR FINAL VERSION OF ASVT */ 01157000 * /* */ 01158000 * /***************************************************************/ 01159000 * 0223 01160000 * 2 NVTFASVT PTR(31), 0223 01161000 * 0223 01162000 * /***************************************************************/ 01163000 * /* */ 01164000 * /* SAVE AREA FOR CVTREAL VALUE CALCULATED */ 01165000 * /* */ 01166000 * /***************************************************************/ 01167000 * 0223 01168000 * 2 NVTREALR PTR(31), 0223 01169000 * 2 * PTR(31), /* RESERVED */ 01170000 * 2 NVTFBQE1 PTR(31), /* LOW ASM FBQE REAL ADDRESS */ 01171000 * 2 NVTFBQE2 PTR(31), /* HIGH ASM FBQE REAL ADDRESS */ 01172000 * 2 NVTAPQE PTR(31), /* ADDRESS OF ASM VECTOR TAB */ 01173000 * 0223 01174000 * /***************************************************************/ 01175000 * /* */ 01176000 * /* SYSTEM PARAMETER OPTIONS */ 01177000 * /* */ 01178000 * /***************************************************************/ 01179000 * 0223 01180000 * 2 NVTFLPO CHAR(1), /* PARAMETER OPTION FLAGS */ 01181000 * 3 NVTFLLST BIT(1), /* - DISPLAY PARMLIB LISTS */ 01182000 * 3 NVTSYSP BIT(1), /* NIP03 IN PROMPT MODE */ 01183000 * 3 * BIT(2), /* - RESERVED */ 01184000 * 3 NVTFLQS BIT(1), /* - LPA IS QUICK-STARTABLE */ 01185000 * 3 NVTFLWS BIT(1), /* WARM START VAM DATA SETS */ 01186000 * 3 * BIT(2), /* - RESERVED */ 01187000 * 2 * CHAR(3), /* RESERVED */ 01188000 * 2 NVTRCODE PTR(31), 0223 01189000 * 2 NVTRLOCK PTR(31), 0223 01190000 * 2 NVTRMSG PTR(31); 0223 01191000 * GENERATE REFS(NVTLOAD,NVTSENSE,NVTSWAIT,NVTTIME,NVTUCBFN,NVTWTO, 01192000 * NVTWTOR,NVTWTOR2,NVTOPEN,NVTMOUNT,NVTVIRT,NVTREAL,NVTSCHED, 01193000 * NVTOPIO); 0224 01194000 * 01195000 ** REFS ARE GENERATED FOR NVT FIELDS THAT CONTAIN ADDRESSES OF 01196000 ** NIP SERVICE ROUTINES, SO IEAPMNIP MACRO CALLS TO THESE ROUTINES 01197000 ** WILL ASSEMBLE PROPERLY. 01198000 * 0225 01199000 * /*****************************************************************/ 01200000 * /* */ 01201000 * /* HEADER FOR THE FIRST NIP WTO MACRO @Y30LB24*/ 01202000 * /* */ 01203000 * /*****************************************************************/ 01204000 * 0225 01205000 * DECLARE 0225 01206000 * MSG01 STATIC; /* @Y30LB24*/ 01207000 * DECLARE 0226 01208000 * WRITE1 STATIC; /* @Y30LB24*/ 01209000 * DECLARE 0227 01210000 * END1 STATIC; /* @Y30LB24*/ 01211000 * GEN DATA DEFS(MSG01,WRITE1,END1); 0228 01212000 * 0228 01213000 * /*****************************************************************/ 01214000 * /* */ 01215000 * /* HEADER FOR THE SECOND NIP WTO MACRO @Y30LB24*/ 01216000 * /* */ 01217000 * /*****************************************************************/ 01218000 * 0229 01219000 * DECLARE 0229 01220000 * MSG02 STATIC; /* @Y30LB24*/ 01221000 * DECLARE 0230 01222000 * WRITE2 STATIC; /* @Y30LB24*/ 01223000 * DECLARE 0231 01224000 * END2 STATIC; /* @Y30LB24*/ 01225000 * GEN DATA DEFS(MSG02,WRITE2,END2); 0232 01226000 * 0232 01227000 */* HEADERS FOR THE WTO MACRO @ZA24770*/ 01228000 * 0233 01229000 * DECLARE 0233 01230000 * MSG1 STATIC; /* @Y30LB24*/ 01231000 * DECLARE 0234 01232000 * MSG2 STATIC; /* @Y30LB24*/ 01233000 * GEN DATA DEFS(MSG1,MSG2); 0235 01234000 * IF CVTNIP=ON THEN /* IS THIS NIP TIME @ZA24770*/ 01235000 L @11,CVTPTR 0236 01236000 TM CVTNIP(@11),B'00010000' 0236 01237000 BNO @RF00236 0236 01238000 * DO; /* YES @ZA24770*/ 01239000 * 0237 01240000 * /*************************************************************/ 01241000 * /* */ 01242000 * /* IF INVALID ORDER PRINT MESSAGE @Y30LB24*/ 01243000 * /* */ 01244000 * /*************************************************************/ 01245000 * 0238 01246000 * IF FAILCODE=RCON1| /* INVALID ORDER @Y30LB24*/ 01247000 * FAILCODE=RCON2 THEN /* INVALID ORDER @Y30LB24*/ 01248000 C FAILCODE,@CF00072 0238 01249000 BE @RT00238 0238 01250000 C FAILCODE,@CF00074 0238 01251000 BNE @RF00238 0238 01252000 @RT00238 DS 0H 0239 01253000 * DO; /* @Y30LB24*/ 01254000 * RPLVPTR=REG14; /* SAVE RETURN REGISTER @Y30LB24*/ 01255000 LR RPLVPTR,REG14 0240 01256000 * REG3=CVTPTR; /* SETUP NIPWTO REGISTER @Y30LB24*/ 01257000 L @11,CVTPTR 0241 01258000 LR REG3,@11 0241 01259000 * REG2=ICBNVT; /* SETUP NIPWTO REGISTER @Y30LB24*/ 01260000 L @11,CVTEXT2(,@11) 0242 01261000 L @11,CVTICB(,@11) 0242 01262000 L REG2,ICBNVT(,@11) 0242 01263000 *LWTO1: 0243 01264000 * GENERATE CODE REFS(MSG01,NVTWTO); 0243 01265000 LWTO1 DS 0H 0243 01266000 * /* @Y30LB24* 01267000 IEAPMNIP TYPE=WTO,PARAM=MSG01 01268000 * REG14=RPLVPTR; /* RESTORE RETURN REG @Y30LB24*/ 01269000 LR REG14,RPLVPTR 0244 01270000 * END; /* @Y30LB24*/ 01271000 * IF FAILCODE=RCON3 THEN /* GETMAIN FAILURE @Y30LB24*/ 01272000 @RF00238 C FAILCODE,@CF00076 0246 01273000 BNE @RF00246 0246 01274000 * DO; /* @Y30LB24*/ 01275000 * RPLVPTR=REG14; /* SAVE RETURN REGISTER @Y30LB24*/ 01276000 LR RPLVPTR,REG14 0248 01277000 * REG3=CVTPTR; /* SETUP NIPWTO REGISTER @Y30LB24*/ 01278000 L @11,CVTPTR 0249 01279000 LR REG3,@11 0249 01280000 * REG2=ICBNVT; /* SETUP NIPWTO REGISTER @Y30LB24*/ 01281000 L @11,CVTEXT2(,@11) 0250 01282000 L @11,CVTICB(,@11) 0250 01283000 L REG2,ICBNVT(,@11) 0250 01284000 *LWTO2: 0251 01285000 * GENERATE CODE REFS(MSG02,NVTWTO); 0251 01286000 LWTO2 DS 0H 0251 01287000 * /* @Y30LB24* 01288000 IEAPMNIP TYPE=WTO,PARAM=MSG02 01289000 * REG14=RPLVPTR; /* RESTORE RETURN REG @Y30LB24*/ 01290000 LR REG14,RPLVPTR 0252 01291000 * END; /* @Y30LB24*/ 01292000 * END; /* @ZA24770*/ 01293000 * ELSE 0255 01294000 * DO; /* NOT NIP TIME @ZA24770*/ 01295000 * 0255 01296000 B @RC00236 0255 01297000 @RF00236 DS 0H 0256 01298000 * /*************************************************************/ 01299000 * /* */ 01300000 * /* IF INVALID ORDER PRINT MESSAGE @Y30LB24*/ 01301000 * /* */ 01302000 * /*************************************************************/ 01303000 * 0256 01304000 * IF FAILCODE=RCON1| /* INVALID ORDER @Y30LB24*/ 01305000 * FAILCODE=RCON2 THEN /* INVALID ORDER @Y30LB24*/ 01306000 C FAILCODE,@CF00072 0256 01307000 BE @RT00256 0256 01308000 C FAILCODE,@CF00074 0256 01309000 BNE @RF00256 0256 01310000 @RT00256 DS 0H 0257 01311000 * DO; /* @Y30LB24*/ 01312000 * REG1=ADDR(MSG1); /* SET UP REG 1 @Y30LB24*/ 01313000 LA REG1,MSG1 0258 01314000 *LWTO3: 0259 01315000 * GEN(WTO MF=(E,(REG1))); /* SEND ERROR MSG1 @Y30LB24*/ 01316000 LWTO3 WTO MF=(E,(REG1)) 01317000 * END; /* @Y30LB24*/ 01318000 * IF FAILCODE=RCON3 THEN /* GETMAIN FAILURE @Y30LB24*/ 01319000 @RF00256 C FAILCODE,@CF00076 0261 01320000 BNE @RF00261 0261 01321000 * DO; /* @Y30LB24*/ 01322000 * REG1=ADDR(MSG2); /* SET UP REG 1 @Y30LB24*/ 01323000 LA REG1,MSG2 0263 01324000 *LWTO4: 0264 01325000 * GEN(WTO MF=(E,(REG1))); /* SEND ERROR MSG2 @Y30LB24*/ 01326000 LWTO4 WTO MF=(E,(REG1)) 01327000 * END; /* @Y30LB24*/ 01328000 * END; /* @ZA24770*/ 01329000 @RF00261 DS 0H 0267 01330000 * IF FAILCODE=RCON3| /* GETMAIN FAILURE @Y30LB24*/ 01331000 * FAILCODE=RCON4 THEN /* SUSPEND REQUEST @Y30LB24*/ 01332000 @RC00236 C FAILCODE,@CF00076 0267 01333000 BE @RT00267 0267 01334000 C FAILCODE,@CF00053 0267 01335000 BNE @RF00267 0267 01336000 @RT00267 DS 0H 0268 01337000 * DO; /* @Y30LB24*/ 01338000 * ICBV=OFF; /* ACTIVATE FLAG OFF @Y30LB24*/ 01339000 L @11,CVTPTR 0269 01340000 L @11,CVTEXT2(,@11) 0269 01341000 L @11,CVTICB(,@11) 0269 01342000 NI ICBV(@11),B'11011111' 0269 01343000 * IF VVIPTR^=ZERO THEN /* FREE CONTROL BLOCK @Y30LB24*/ 01344000 LTR VVIPTR,VVIPTR 0270 01345000 BZ @RF00270 0270 01346000 * DO; /* @Y30LB24*/ 01347000 * RPLVPTR=VVIQRPL2; /* POINT TO FIRST RPL @Y30LB24*/ 01348000 L RPLVPTR,VVIQRPL2(,VVIPTR) 0272 01349000 * DO WHILE RPLVPTR^=ZERO; /* LOOP THRU RPLS @Y30LB24*/ 01350000 B @DE00273 0273 01351000 @DL00273 DS 0H 0274 01352000 * REG0=RPLVTLEN; /* SET FREEMAIN REG0 @Y30LB24*/ 01353000 LH REG0,RPLVTLEN(,RPLVPTR) 0274 01354000 * GEN(ICM REG0,M8,POOL);/* INDICATE SUBPOOL 241 @Y30LB24*/ 01355000 ICM REG0,M8,POOL 01356000 * REG1=RPLVPTR; /* SET FREEMAIN ADDR @Y30LB24*/ 01357000 LR REG1,RPLVPTR 0276 01358000 * RPLVPTR=RPLVQPTR; /* SET TABLEPTR ADDR @Y30LB24*/ 01359000 L RPLVPTR,RPLVQPTR(,RPLVPTR) 0277 01360000 *LFREM1: 0278 01361000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREE SUBPOOL 241 0278 01362000 * @Y30LB24*/ 01363000 LFREM1 FREEMAIN R,LV=(0),A=(1) 01364000 * END; /* @Y30LB24*/ 01365000 @DE00273 LTR RPLVPTR,RPLVPTR 0279 01366000 BNZ @DL00273 0279 01367000 * REG0=LENGTH(VVICB); /* SET FREEMAIN REG0 @Y30LB24*/ 01368000 LA REG0,120 0280 01369000 * GEN(ICM REG0,M8,POOL); /* INDICATE SUBPOOL 241 @Y30LB24*/ 01370000 ICM REG0,M8,POOL 01371000 * REG1=VVIPTR; /* SET FREEMAIN ADDR @Y30LB24*/ 01372000 LR REG1,VVIPTR 0282 01373000 *LFREM2: 0283 01374000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREEMAIN SUBPOOL 241 0283 01375000 * @Y30LB24*/ 01376000 LFREM2 FREEMAIN R,LV=(0),A=(1) 01377000 * ICBVVICB=ZERO; /* ZERO CONTROL BLOCK PTR 0284 01378000 * @Y30LB24*/ 01379000 L @11,CVTPTR 0284 01380000 L @11,CVTEXT2(,@11) 0284 01381000 L @11,CVTICB(,@11) 0284 01382000 SLR @07,@07 0284 01383000 ST @07,ICBVVICB(,@11) 0284 01384000 * VVIPTR=ZERO; /* ZERO MSVC CB PTR @Y30LB24*/ 01385000 SLR VVIPTR,VVIPTR 0285 01386000 * END; /* @Y30LB24*/ 01387000 * END; /* @Y30LB24*/ 01388000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 01389000 @EL00005 DS 0H 0288 01390000 @EF00005 DS 0H 0288 01391000 @ER00005 BR @14 0288 01392000 * END VPINOTOP; /* END OPER COMM PROCEDURE 0289 01393000 * @Y30LB24*/ 01394000 B @EL00005 0289 01395000 * END ICBVPI00 /* END ICBVPI00 @Y30LB24*/ 01396000 * 0290 01397000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01398000 */*%INCLUDE SYSLIB (CVT ) */ 01399000 */*%INCLUDE SYSLIB (IEZSSC ) */ 01400000 */*%INCLUDE SYSLIB (IEZVVICB) */ 01401000 */*%INCLUDE SYSLIB (IEZRPLV ) */ 01402000 */*%INCLUDE SYSLIB (IEAPMNIP) */ 01403000 */*%INCLUDE SYSLIB (IHANVT ) */ 01404000 * 0290 01405000 * ; 0290 01406000 @DATA DS 0H 01407000 @SM01305 MVC RPLVUTIL(0,RPLVPTR),PARMLIST(PARMPTR) 01408000 @DATD DSECT 01409000 DS 0F 01410000 ICBVPI00 CSECT 01411000 DS 0F 01412000 @CF00053 DC F'1' 01413000 @CF00062 DC F'8' 01414000 @CF00064 DC F'256' 01415000 @CF00072 DC F'534' 01416000 @CF00074 DC F'535' 01417000 @CF00076 DC F'554' 01418000 @DATD DSECT 01419000 DS 0D 01420000 ICBVPI00 CSECT 01421000 DS 0F 01422000 @SIZDATD DC AL1(0) 01423000 DC AL3(@ENDDATD-@DATD) 01424000 DS 0D 01425000 RZERO DC XL4'80000000' 01426000 POOL DC AL1(241) 01427000 VPIPATCH DS CL50 01428000 ORG VPIPATCH 01429000 @NM00001 DC CL20'ICBVPI00 PATCH AREA ' 01430000 @NM00002 DC XL30'0' 01431000 ORG VPIPATCH+50 01432000 VID DC CL4'MSVC' 01433000 ORDERS DC X'06' 01434000 DC X'08' 01435000 DC X'14' 01436000 DC X'02' 01437000 DC X'22' 01438000 DC X'2C' 01439000 DC X'89' 01440000 DC X'8A' 01441000 @DATD DSECT 01442000 * /* @Y30LB24*/ 01443000 M0 EQU 0 01444000 M8 EQU 8 01445000 ICBVPI00 CSECT 01446000 MSG01 IEAPMNIP TYPE=HEADER,MSGST=MSG01,MSGEND=END1 01447000 WRITE1 DC CL36'ICB424I INVALID REQUEST BEFORE MSVC ' 01448000 DC CL14'INITIALIZATION' 01449000 END1 DS 0CL1 01450000 ICBVPI00 CSECT 01451000 MSG02 IEAPMNIP TYPE=HEADER,MSGST=MSG02,MSGEND=END2 01452000 WRITE2 DC CL50'ICB409I GETMAIN FAILURE DURING MSVC INITIALIZATION' 01453000 END2 DS 0CL1 01454000 ICBVPI00 CSECT 01455000 MSG1 WTO 'ICB424I INVALID REQUEST BEFORE MSVC INITIALIZATION', *01456000 ROUTCDE=(2,11),DESC=6,MF=L 01457000 MSG2 WTO 'ICB409I GETMAIN FAILURE DURING MSVC INITIALIZATION', *01458000 ROUTCDE=(2,11),DESC=6,MF=L 01459000 @DATD DSECT 01460000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01461000 @ENDDATD EQU * 01462000 ICBVPI00 CSECT 01463000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01464000 @01 EQU 01 01465000 @02 EQU 02 01466000 @03 EQU 03 01467000 @04 EQU 04 01468000 @05 EQU 05 01469000 @06 EQU 06 01470000 @07 EQU 07 01471000 @08 EQU 08 01472000 @09 EQU 09 01473000 @10 EQU 10 01474000 @11 EQU 11 01475000 @12 EQU 12 01476000 @13 EQU 13 01477000 @14 EQU 14 01478000 @15 EQU 15 01479000 REG0 EQU @00 01480000 REG1 EQU @01 01481000 REG2 EQU @02 01482000 I EQU @02 01483000 REG3 EQU @03 01484000 VALIDORD EQU @03 01485000 RPLVPTR EQU @05 01486000 FAILCODE EQU @06 01487000 VVIPTR EQU @08 01488000 PARM0 EQU @09 01489000 PARMPTR EQU @10 01490000 REG14 EQU @14 01491000 REG15 EQU @15 01492000 RNVT EQU @02 01493000 RCVT EQU @03 01494000 RENTRY EQU @15 01495000 REXIT EQU @14 01496000 RPARM EQU @01 01497000 CVTPTR EQU 16 01498000 CVTMAP EQU 0 01499000 CVTDAR EQU CVTMAP+72 01500000 CVTFLGS1 EQU CVTDAR 01501000 CVTDCB EQU CVTMAP+116 01502000 CVTIOQET EQU CVTMAP+120 01503000 CVTIERLC EQU CVTMAP+144 01504000 CVTHEAD EQU CVTMAP+160 01505000 CVTSV76C EQU CVTHEAD 01506000 CVTOPTA EQU CVTMAP+182 01507000 CVTNIP EQU CVTOPTA 01508000 CVTOPTB EQU CVTMAP+183 01509000 CVTGTF EQU CVTMAP+236 01510000 CVTGTFST EQU CVTGTF 01511000 CVTGTFS EQU CVTGTFST 01512000 CVTSTATE EQU CVTGTFST 01513000 CVTTMODE EQU CVTGTFST 01514000 CVTFORM EQU CVTGTFST 01515000 CVTAQAVT EQU CVTMAP+240 01516000 CVTTCMFG EQU CVTAQAVT 01517000 CVTVOLM2 EQU CVTMAP+244 01518000 CVTTATA EQU CVTVOLM2 01519000 CVTTSKS EQU CVTTATA 01520000 CVTVOLF2 EQU CVTTSKS 01521000 CVTTAT EQU CVTTATA+1 01522000 CVTATER EQU CVTMAP+248 01523000 CVTEXT1 EQU CVTMAP+252 01524000 CVTPURG EQU CVTMAP+260 01525000 CVTQMSG EQU CVTMAP+268 01526000 CVTDMSR EQU CVTMAP+272 01527000 CVTRSV37 EQU CVTDMSR 01528000 CVTDMSRF EQU CVTRSV37 01529000 CVTERPV EQU CVTMAP+316 01530000 CVTINTLA EQU CVTMAP+320 01531000 CVTAPF EQU CVTMAP+324 01532000 CVTEXT2 EQU CVTMAP+328 01533000 CVTHJES EQU CVTMAP+332 01534000 CVTPGSIA EQU CVTMAP+348 01535000 CVTA1F1 EQU CVTMAP+356 01536000 CVTSYSK EQU CVTMAP+357 01537000 CVTVOLM1 EQU CVTMAP+380 01538000 CVTVOLF1 EQU CVTVOLM1 01539000 CVTATMCT EQU CVTMAP+388 01540000 CVTXTNT1 EQU 0 01541000 CVTXTNT2 EQU 0 01542000 CVTDSSV EQU CVTXTNT2 01543000 CVTFLGBT EQU CVTXTNT2+5 01544000 CVTQID EQU CVTXTNT2+24 01545000 CVTICB EQU CVTXTNT2+48 01546000 CVTRV400 EQU CVTXTNT2+52 01547000 CVTRV409 EQU CVTXTNT2+53 01548000 CVTATCVT EQU CVTXTNT2+64 01549000 CVTRV429 EQU CVTXTNT2+84 01550000 CVTRV438 EQU CVTXTNT2+85 01551000 CVTRV457 EQU CVTXTNT2+112 01552000 CVTRV466 EQU CVTXTNT2+113 01553000 CVTFIX EQU 0 01554000 CVTRELNO EQU CVTFIX+252 01555000 ICB2SSCB EQU 0 01556000 ICBOPT EQU ICB2SSCB+48 01557000 ICBNVT EQU ICBOPT 01558000 ICBFLG EQU ICB2SSCB+52 01559000 ICBFG1 EQU ICBFLG 01560000 ICBV EQU ICBFG1 01561000 ICBVVICB EQU ICB2SSCB+76 01562000 ICBTRACE EQU ICB2SSCB+148 01563000 VVICB EQU 0 01564000 VVICID EQU VVICB 01565000 VVIFLGA EQU VVICB+15 01566000 VVIQRPL2 EQU VVICB+44 01567000 RPLV EQU 0 01568000 RPLVQPTR EQU RPLV 01569000 RPLVECB EQU RPLV+4 01570000 RPLTCBPR EQU RPLV+8 01571000 RPLVVICB EQU RPLV+12 01572000 RPLFLAGA EQU RPLV+28 01573000 RPLFTIME EQU RPLFLAGA 01574000 RPLVPOST EQU RPLFLAGA 01575000 RPLVTLEN EQU RPLV+30 01576000 RPLVSAM EQU RPLV+56 01577000 RPLVOPT EQU RPLVSAM+40 01578000 RPLVUTIL EQU RPLV+132 01579000 SELRB EQU 0 01580000 SELFLGS1 EQU SELRB+5 01581000 SELFLGS2 EQU SELRB+6 01582000 SELNOVSL EQU SELFLGS2 01583000 PARMLIST EQU 0 01584000 ORDER EQU PARMLIST 01585000 PLENGTH EQU ORDER 01586000 OPCODE EQU ORDER+4 01587000 @NM00014 EQU ORDER+6 01588000 SCRCHBIT EQU @NM00014 01589000 NWTOHDR EQU 0 01590000 NWTOFL EQU NWTOHDR+2 01591000 NWTORLST EQU 0 01592000 NWTORFL EQU NWTORLST+10 01593000 NIPSPE EQU 0 01594000 NIPMNTPL EQU 0 01595000 NMNTDS EQU NIPMNTPL 01596000 NMNTVS EQU NIPMNTPL+12 01597000 NMNTFL EQU NIPMNTPL+20 01598000 NIPOPNPL EQU 0 01599000 NOPNDS EQU NIPOPNPL 01600000 NOPNFL EQU NIPOPNPL+20 01601000 NIPSCHDL EQU 0 01602000 NVT EQU 0 01603000 NVTNPATR EQU NVT+54 01604000 NVTNPREN EQU NVTNPATR 01605000 NVTFLLB EQU NVT+55 01606000 NVTABSAV EQU NVT+140 01607000 NVTFLCN EQU NVT+211 01608000 NVTWTPSW EQU NVT+224 01609000 NVTWPSW2 EQU NVTWTPSW+4 01610000 NVTFLWSC EQU NVTWPSW2+3 01611000 NVTLOAD EQU NVT+232 01612000 NVTSENSE EQU NVT+236 01613000 NVTSWAIT EQU NVT+240 01614000 NVTTIME EQU NVT+244 01615000 NVTUCBFN EQU NVT+248 01616000 NVTWTO EQU NVT+252 01617000 NVTWTOR EQU NVT+256 01618000 NVTWTOR2 EQU NVT+260 01619000 NVTOPEN EQU NVT+264 01620000 NVTMOUNT EQU NVT+268 01621000 NVTVIRT EQU NVT+276 01622000 NVTREAL EQU NVT+280 01623000 NVTSCHED EQU NVT+284 01624000 NVTOPIO EQU NVT+288 01625000 NVTXCTL EQU NVT+428 01626000 NVTLOCAT EQU NVT+436 01627000 NVTFLPO EQU NVT+528 01628000 CVTS01 EQU CVTPGSIA 01629000 CVTLPDIA EQU CVTS01+12 01630000 CVTDIRST EQU CVTLPDIA 01631000 CVTSLIDA EQU CVTS01+24 01632000 CVTCTLFG EQU CVTS01+50 01633000 CVTRV210 EQU CVTS01+424 01634000 CVTRV219 EQU CVTS01+425 01635000 CVTRV228 EQU CVTS01+426 01636000 CVTRV237 EQU CVTS01+427 01637000 CVTMFRTR EQU CVTS01+452 01638000 CVTRV262 EQU CVTS01+468 01639000 CVTRV271 EQU CVTS01+469 01640000 CVTRV280 EQU CVTS01+470 01641000 CVTRV289 EQU CVTS01+471 01642000 CVTGSDA EQU CVTS01+600 01643000 ICBPTR EQU CVTICB 01644000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01645000 CVTRV628 EQU CVTS01+728 01646000 CVTRV627 EQU CVTS01+724 01647000 CVTRV626 EQU CVTS01+720 01648000 CVTRV625 EQU CVTS01+716 01649000 CVTRV624 EQU CVTS01+712 01650000 CVTRV623 EQU CVTS01+708 01651000 CVTRV622 EQU CVTS01+704 01652000 CVTRV621 EQU CVTS01+700 01653000 CVTIHASU EQU CVTS01+696 01654000 CVTRV619 EQU CVTS01+692 01655000 CVTRV618 EQU CVTS01+688 01656000 CVTRV617 EQU CVTS01+684 01657000 CVTRV616 EQU CVTS01+680 01658000 CVTRV615 EQU CVTS01+676 01659000 CVTRV614 EQU CVTS01+672 01660000 CVTRV613 EQU CVTS01+668 01661000 CVTTCASP EQU CVTS01+664 01662000 CVT0PT03 EQU CVTS01+660 01663000 CVT0PT0E EQU CVTS01+656 01664000 CVTRV609 EQU CVTS01+652 01665000 CVTCGK EQU CVTS01+648 01666000 CVTRAC EQU CVTS01+644 01667000 CVTRV606 EQU CVTS01+640 01668000 CVTRV605 EQU CVTS01+636 01669000 CVTRV604 EQU CVTS01+632 01670000 CVTEFF02 EQU CVTS01+628 01671000 CVTCBBR EQU CVTS01+624 01672000 CVTSSCR EQU CVTS01+620 01673000 CVTEVENT EQU CVTS01+616 01674000 CVTCRCA EQU CVTS01+612 01675000 CVTTPIO EQU CVTS01+608 01676000 CVTADV EQU CVTS01+604 01677000 CVTGSDAB EQU CVTGSDA 01678000 CVTQV3 EQU CVTS01+596 01679000 CVTQV2 EQU CVTS01+592 01680000 CVTQV1 EQU CVTS01+588 01681000 CVTRPT EQU CVTS01+584 01682000 CVTSSRB EQU CVTS01+580 01683000 CVTCSDRL EQU CVTS01+576 01684000 CVTEXP1 EQU CVTS01+572 01685000 CVTRMPMT EQU CVTS01+568 01686000 CVTRMPTT EQU CVTS01+564 01687000 CVTVPSA EQU CVTS01+560 01688000 CVTVSTOP EQU CVTS01+556 01689000 CVTGTFR8 EQU CVTS01+552 01690000 CVTQUIT EQU CVTS01+548 01691000 CVTVACR EQU CVTS01+544 01692000 CVTWTCB EQU CVTS01+540 01693000 CVTSTPRS EQU CVTS01+536 01694000 CVT0PT02 EQU CVTS01+532 01695000 CVTDARCM EQU CVTS01+528 01696000 CVTIRECM EQU CVTS01+524 01697000 CVTJRECM EQU CVTS01+520 01698000 CVTVEMS0 EQU CVTS01+516 01699000 CVTSPFRR EQU CVTS01+512 01700000 CVTRLSTG EQU CVTS01+508 01701000 CVT0TC0A EQU CVTS01+504 01702000 CVTGMBR EQU CVTS01+500 01703000 CVTLFRM EQU CVTS01+496 01704000 CVTRMBR EQU CVTS01+492 01705000 CVTVIOP EQU CVTS01+488 01706000 CVTRV307 EQU CVTS01+486 01707000 CVTRV306 EQU CVTS01+484 01708000 CVTRV305 EQU CVTS01+482 01709000 CVTRV304 EQU CVTS01+480 01710000 CVTRV303 EQU CVTS01+478 01711000 CVTRV302 EQU CVTS01+476 01712000 CVTTRCA EQU CVTS01+472 01713000 CVTRV297 EQU CVTRV289 01714000 CVTRV296 EQU CVTRV289 01715000 CVTRV295 EQU CVTRV289 01716000 CVTRV294 EQU CVTRV289 01717000 CVTRV293 EQU CVTRV289 01718000 CVTRV292 EQU CVTRV289 01719000 CVTRV291 EQU CVTRV289 01720000 CVTRV290 EQU CVTRV289 01721000 CVTRV288 EQU CVTRV280 01722000 CVTRV287 EQU CVTRV280 01723000 CVTRV286 EQU CVTRV280 01724000 CVTRV285 EQU CVTRV280 01725000 CVTRV284 EQU CVTRV280 01726000 CVTRV283 EQU CVTRV280 01727000 CVTRV282 EQU CVTRV280 01728000 CVTRV281 EQU CVTRV280 01729000 CVTRV279 EQU CVTRV271 01730000 CVTRV278 EQU CVTRV271 01731000 CVTRV277 EQU CVTRV271 01732000 CVTRV276 EQU CVTRV271 01733000 CVTRV275 EQU CVTRV271 01734000 CVTRV274 EQU CVTRV271 01735000 CVTRV273 EQU CVTRV271 01736000 CVTRV272 EQU CVTRV271 01737000 CVTRV270 EQU CVTRV262 01738000 CVTRV269 EQU CVTRV262 01739000 CVTRV268 EQU CVTRV262 01740000 CVTRV267 EQU CVTRV262 01741000 CVTRV266 EQU CVTRV262 01742000 CVTRV265 EQU CVTRV262 01743000 CVTRV264 EQU CVTRV262 01744000 CVTRV263 EQU CVTRV262 01745000 CVTVFP EQU CVTS01+464 01746000 CVTVSI EQU CVTS01+460 01747000 CVTVPSIB EQU CVTS01+456 01748000 CVTMFACT EQU CVTMFRTR 01749000 CVTMFCTL EQU CVTS01+448 01750000 CVTPVBP EQU CVTS01+444 01751000 CVTPWI EQU CVTS01+440 01752000 CVTRV254 EQU CVTS01+438 01753000 CVTRV253 EQU CVTS01+436 01754000 CVTRV252 EQU CVTS01+434 01755000 CVTRV251 EQU CVTS01+433 01756000 CVTRV250 EQU CVTS01+432 01757000 CVTRV249 EQU CVTS01+431 01758000 CVTRV248 EQU CVTS01+430 01759000 CVTRV247 EQU CVTS01+429 01760000 CVTRV246 EQU CVTS01+428 01761000 CVTRV245 EQU CVTRV237 01762000 CVTRV244 EQU CVTRV237 01763000 CVTRV243 EQU CVTRV237 01764000 CVTRV242 EQU CVTRV237 01765000 CVTRV241 EQU CVTRV237 01766000 CVTRV240 EQU CVTRV237 01767000 CVTRV239 EQU CVTRV237 01768000 CVTRV238 EQU CVTRV237 01769000 CVTRV236 EQU CVTRV228 01770000 CVTRV235 EQU CVTRV228 01771000 CVTRV234 EQU CVTRV228 01772000 CVTRV233 EQU CVTRV228 01773000 CVTRV232 EQU CVTRV228 01774000 CVTRV231 EQU CVTRV228 01775000 CVTRV230 EQU CVTRV228 01776000 CVTRV229 EQU CVTRV228 01777000 CVTRV227 EQU CVTRV219 01778000 CVTRV226 EQU CVTRV219 01779000 CVTRV225 EQU CVTRV219 01780000 CVTRV224 EQU CVTRV219 01781000 CVTRV223 EQU CVTRV219 01782000 CVTRV222 EQU CVTRV219 01783000 CVTRV221 EQU CVTRV219 01784000 CVTRV220 EQU CVTRV219 01785000 CVTRV218 EQU CVTRV210 01786000 CVTRV217 EQU CVTRV210 01787000 CVTRV216 EQU CVTRV210 01788000 CVTRV215 EQU CVTRV210 01789000 CVTRV214 EQU CVTRV210 01790000 CVTRV213 EQU CVTRV210 01791000 CVTRV212 EQU CVTRV210 01792000 CVTRV211 EQU CVTRV210 01793000 CVTLCCAT EQU CVTS01+420 01794000 CVTPCCAT EQU CVTS01+416 01795000 CVTIPCRP EQU CVTS01+412 01796000 CVTIPCRI EQU CVTS01+408 01797000 CVTIPCDS EQU CVTS01+404 01798000 CVTAIDVT EQU CVTS01+400 01799000 CVTSSAP EQU CVTS01+396 01800000 CVTEHCIR EQU CVTS01+392 01801000 CVTEHDEF EQU CVTS01+388 01802000 CVTDAIR EQU CVTS01+384 01803000 CVTPERFM EQU CVTS01+380 01804000 CVT044R2 EQU CVTS01+376 01805000 CVTFETCH EQU CVTS01+372 01806000 CVTRSTWD EQU CVTS01+368 01807000 CVTSPOST EQU CVTS01+364 01808000 CVTIOBP EQU CVTS01+360 01809000 CVTASMVT EQU CVTS01+356 01810000 CVTRECRQ EQU CVTS01+352 01811000 CVTWSAC EQU CVTS01+348 01812000 CVTRV149 EQU CVTS01+344 01813000 CVTWSAL EQU CVTS01+340 01814000 CVTSPSA EQU CVTS01+336 01815000 CVTGLMN EQU CVTS01+332 01816000 CVTVEAC0 EQU CVTS01+328 01817000 CVT062R1 EQU CVTS01+324 01818000 CVTRPOST EQU CVTS01+320 01819000 CVTDQIQE EQU CVTS01+316 01820000 CVTCSD EQU CVTS01+312 01821000 CVTLKRMA EQU CVTS01+308 01822000 CVTRSPIE EQU CVTS01+304 01823000 CVTRENQ EQU CVTS01+300 01824000 CVTLQCB EQU CVTS01+296 01825000 CVTFQCB EQU CVTS01+292 01826000 CVTQCS01 EQU CVTS01+288 01827000 CVTAPFT EQU CVTS01+284 01828000 CVTPARRL EQU CVTS01+280 01829000 CVTVWAIT EQU CVTS01+276 01830000 CVTGSPL EQU CVTS01+272 01831000 CVTLSMQ EQU CVTS01+268 01832000 CVTGSMQ EQU CVTS01+264 01833000 CVTEXPRO EQU CVTS01+260 01834000 CVTOPCTP EQU CVTS01+256 01835000 CVTSIC EQU CVTS01+252 01836000 CVTTPIOS EQU CVTS01+248 01837000 CVTRTMS EQU CVTS01+244 01838000 CVTSDBF EQU CVTS01+240 01839000 CVTSCBP EQU CVTS01+236 01840000 CVTSDMP EQU CVTS01+232 01841000 CVTSV60 EQU CVTS01+228 01842000 CVTRTMCT EQU CVTS01+224 01843000 CVTASCBL EQU CVTS01+220 01844000 CVTASCBH EQU CVTS01+216 01845000 CVTGDA EQU CVTS01+212 01846000 CVTASVT EQU CVTS01+208 01847000 CVTVVMDI EQU CVTS01+204 01848000 CVTAQTOP EQU CVTS01+200 01849000 CVTIOSCS EQU CVTS01+196 01850000 CVTSDRM EQU CVTS01+192 01851000 CVTOPTE EQU CVTS01+188 01852000 CVTSTXU EQU CVTS01+184 01853000 CVTQUIS EQU CVTS01+180 01854000 CVTPARS EQU CVTS01+176 01855000 CVTS1EE EQU CVTS01+172 01856000 CVTFRAS EQU CVTS01+168 01857000 CVTQSAS EQU CVTS01+164 01858000 CVTCRAS EQU CVTS01+160 01859000 CVTCRMN EQU CVTS01+156 01860000 CVTDELCP EQU CVTS01+152 01861000 CVTFRECL EQU CVTS01+148 01862000 CVTGETCL EQU CVTS01+144 01863000 CVTBLDCP EQU CVTS01+140 01864000 CVTAUTHL EQU CVTS01+136 01865000 CVTSCAN EQU CVTS01+132 01866000 CVTRV144 EQU CVTS01+130 01867000 CVTMAXMP EQU CVTS01+128 01868000 CVTSTCK EQU CVTS01+124 01869000 CVTRV139 EQU CVTS01+123 01870000 CVTDSSAC EQU CVTS01+122 01871000 CVTRV513 EQU CVTS01+121 01872000 CVTIOSPL EQU CVTS01+120 01873000 CVTPTGT EQU CVTS01+116 01874000 CVTCSPIE EQU CVTS01+112 01875000 CVTSMFEX EQU CVTS01+108 01876000 CVTOLT0A EQU CVTS01+104 01877000 CVTSRBRT EQU CVTS01+100 01878000 CVTPUTL EQU CVTS01+96 01879000 CVTASCRL EQU CVTS01+92 01880000 CVTASCRF EQU CVTS01+88 01881000 CVTRV326 EQU CVTS01+84 01882000 CVTRV325 EQU CVTS01+80 01883000 CVTRV324 EQU CVTS01+76 01884000 CVT0VL01 EQU CVTS01+72 01885000 CVTSHRVM EQU CVTS01+68 01886000 CVTRV332 EQU CVTS01+64 01887000 CVTTAS EQU CVTS01+60 01888000 CVTRSCN EQU CVTS01+56 01889000 CVTTRAC2 EQU CVTS01+54 01890000 CVTTRACE EQU CVTS01+52 01891000 CVTAPG EQU CVTS01+51 01892000 CVTSDTRC EQU CVTCTLFG 01893000 CVTGTRCE EQU CVTCTLFG 01894000 CVTNOMP EQU CVTCTLFG 01895000 CVTRSV79 EQU CVTCTLFG 01896000 CVTDSTAT EQU CVTCTLFG 01897000 CVTRSV78 EQU CVTCTLFG 01898000 CVTRV333 EQU CVTCTLFG 01899000 CVTRV323 EQU CVTCTLFG 01900000 CVTSPVLK EQU CVTS01+49 01901000 CVTRSV77 EQU CVTS01+48 01902000 CVTRV331 EQU CVTS01+44 01903000 CVTRV330 EQU CVTS01+40 01904000 CVTRV329 EQU CVTS01+36 01905000 CVTRV328 EQU CVTS01+32 01906000 CVTRV322 EQU CVTS01+28 01907000 CVTSLID EQU CVTSLIDA+1 01908000 CVTSYLK EQU CVTSLIDA 01909000 CVTRV321 EQU CVTS01+20 01910000 CVTRV320 EQU CVTS01+16 01911000 CVTLPDIR EQU CVTLPDIA+1 01912000 CVTRSV69 EQU CVTDIRST 01913000 CVTRSV68 EQU CVTDIRST 01914000 CVTRSV67 EQU CVTDIRST 01915000 CVTRSV66 EQU CVTDIRST 01916000 CVTRSV65 EQU CVTDIRST 01917000 CVTRSV64 EQU CVTDIRST 01918000 CVTRSV63 EQU CVTDIRST 01919000 CVTDICOM EQU CVTDIRST 01920000 CVTPVTP EQU CVTS01+8 01921000 CVTLPDSR EQU CVTS01+4 01922000 CVTGETL EQU CVTS01 01923000 NVTRMSG EQU NVT+540 01924000 NVTRLOCK EQU NVT+536 01925000 NVTRCODE EQU NVT+532 01926000 @NM00041 EQU NVT+529 01927000 @NM00040 EQU NVTFLPO 01928000 NVTFLWS EQU NVTFLPO 01929000 NVTFLQS EQU NVTFLPO 01930000 @NM00039 EQU NVTFLPO 01931000 NVTSYSP EQU NVTFLPO 01932000 NVTFLLST EQU NVTFLPO 01933000 NVTAPQE EQU NVT+524 01934000 NVTFBQE2 EQU NVT+520 01935000 NVTFBQE1 EQU NVT+516 01936000 @NM00038 EQU NVT+512 01937000 NVTREALR EQU NVT+508 01938000 NVTFASVT EQU NVT+504 01939000 NVTLPALG EQU NVT+496 01940000 NVTVRLNG EQU NVT+492 01941000 NVTVRREG EQU NVT+488 01942000 NVTLVIRT EQU NVT+484 01943000 NVTDIRA EQU NVT+480 01944000 NVTLPAND EQU NVT+476 01945000 NVTRMSS EQU NVT+472 01946000 NVTRPQE EQU NVT+468 01947000 NVTRLLE EQU NVT+464 01948000 NVTRJPQ EQU NVT+460 01949000 NVTVMSS EQU NVT+456 01950000 NVTVPQE EQU NVT+452 01951000 NVTVLLE EQU NVT+448 01952000 NVTVJPQ EQU NVT+444 01953000 NVTLSEC EQU NVTLOCAT+4 01954000 NVTLFST EQU NVTLOCAT 01955000 NVTXSEC EQU NVTXCTL+4 01956000 NVTXFST EQU NVTXCTL 01957000 @NM00037 EQU NVT+425 01958000 NVTLPACT EQU NVT+424 01959000 NVTCSLPG EQU NVT+420 01960000 NVTCSIOB EQU NVT+416 01961000 NVTCSLNM EQU NVT+412 01962000 NVTCSLIB EQU NVT+408 01963000 NVTBLDL EQU NVT+404 01964000 NVTVRBLD EQU NVT+400 01965000 @NM00036 EQU NVT+392 01966000 NVTVRTCB EQU NVT+388 01967000 NVTVVTCB EQU NVT+384 01968000 NVTSPUCB EQU NVT+382 01969000 NVTQSCNT EQU NVT+380 01970000 NVTQSBUF EQU NVT+376 01971000 NVTPTAB EQU NVT+372 01972000 NVTPAREA EQU NVT+368 01973000 NVTRPAGE EQU NVT+364 01974000 @NM00035 EQU NVT+363 01975000 NVTABWS1 EQU NVT+362 01976000 NVTABCD1 EQU NVT+360 01977000 @NM00034 EQU NVT+358 01978000 NVTCPUAD EQU NVT+356 01979000 NVTTOD EQU NVT+352 01980000 NVTSPE EQU NVT+344 01981000 NVTMBEND EQU NVT+340 01982000 NVTMBUF EQU NVT+336 01983000 NVTDCBSN EQU NVT+332 01984000 NVTDCBOC EQU NVT+328 01985000 NVTDCBIC EQU NVT+324 01986000 @NM00033 EQU NVT+308 01987000 NVTNMBLD EQU NVT+304 01988000 NVTNIPM EQU NVT+292 01989000 NVTPRMPT EQU NVT+272 01990000 NVTIX EQU NVTFLWSC 01991000 NVTFLWS1 EQU NVTWPSW2+2 01992000 NVTIDPSW EQU NVTWPSW2 01993000 NVTWPSW1 EQU NVTWTPSW 01994000 NVTMCPSW EQU NVT+216 01995000 @NM00032 EQU NVT+212 01996000 NVTCLKER EQU NVTFLCN 01997000 NVTFLRAC EQU NVTFLCN 01998000 NVTFLNCK EQU NVTFLCN 01999000 NVTFLNHC EQU NVTFLCN 02000000 NVTFLASM EQU NVTFLCN 02001000 NVTMP EQU NVTFLCN 02002000 NVTFLIOC EQU NVTFLCN 02003000 NVTFLAC EQU NVTFLCN 02004000 NVTFLSG EQU NVT+210 02005000 NVTTRACE EQU NVT+208 02006000 NVTNXPTR EQU NVT+204 02007000 NVTNXSIZ EQU NVT+202 02008000 @NM00031 EQU NVT+200 02009000 NVTSGPSA EQU NVT+196 02010000 NVTN0MSG EQU NVT+192 02011000 NVTVVPG1 EQU NVT+188 02012000 NVTNBFND EQU NVT+184 02013000 NVTNUCND EQU NVT+180 02014000 NVTSTMAP EQU NVT+176 02015000 NVTRTMSA EQU NVT+172 02016000 NVTMFASA EQU NVT+168 02017000 NVTLSPQE EQU NVT+164 02018000 NVTALSQA EQU NVT+160 02019000 NVTPQSAV EQU NVT+156 02020000 NVTSVC60 EQU NVT+148 02021000 NVTABSEC EQU NVTABSAV+4 02022000 NVTABFST EQU NVTABSAV 02023000 NVTNVSQA EQU NVT+138 02024000 NVTRSVMN EQU NVT+136 02025000 NVTNBMIN EQU NVT+134 02026000 NVTRGNAV EQU NVT+132 02027000 NVTLSQNO EQU NVT+130 02028000 NVTSQANO EQU NVT+128 02029000 NVTLSQAS EQU NVT+124 02030000 NVTLNGFX EQU NVT+120 02031000 NVTIGXER EQU NVT+116 02032000 @NM00030 EQU NVT+112 02033000 NVTASMAD EQU NVT+108 02034000 NVTNVRSZ EQU NVT+104 02035000 NVTMFA EQU NVT+100 02036000 NVTDSSNG EQU NVT+96 02037000 NVTMSLNK EQU NVT+92 02038000 NVTVVMDI EQU NVT+88 02039000 NVTIGCER EQU NVT+84 02040000 NVTVBLDL EQU NVT+80 02041000 NVTSVCTB EQU NVT+76 02042000 NVTASTCB EQU NVT+72 02043000 NVTAASCB EQU NVT+68 02044000 NVTMASCB EQU NVT+64 02045000 NVTCMTCB EQU NVT+60 02046000 NVTMSTCB EQU NVT+56 02047000 @NM00029 EQU NVTFLLB 02048000 NVTFLSLB EQU NVTFLLB 02049000 @NM00028 EQU NVTNPATR 02050000 NVTNPREU EQU NVTNPREN 02051000 @NM00027 EQU NVTNPREN 02052000 NVTNPSFX EQU NVT+53 02053000 @NM00026 EQU NVT+50 02054000 NVTNPSUF EQU NVT 02055000 NSCHDCPU EQU NIPSCHDL+8 02056000 NSCHDPRM EQU NIPSCHDL+4 02057000 NSCHDPTR EQU NIPSCHDL 02058000 @NM00025 EQU NIPOPNPL+22 02059000 NOPNRC EQU NIPOPNPL+21 02060000 NOPNFLSX EQU NOPNFL 02061000 NOPNFLLC EQU NOPNFL 02062000 NOPNFLLB EQU NOPNFL 02063000 NOPNFLNB EQU NOPNFL 02064000 NOPNFLI EQU NOPNFL 02065000 NOPNFLM EQU NOPNFL 02066000 NOPNFAU EQU NOPNFL 02067000 NOPNFRS EQU NOPNFL 02068000 NOPNUCB EQU NIPOPNPL+16 02069000 NOPNDCB EQU NIPOPNPL+12 02070000 NOPNDSA EQU NOPNDS 02071000 @NM00024 EQU NIPMNTPL+21 02072000 NMNTFLB EQU NMNTFL 02073000 NMNTFLC EQU NMNTFL 02074000 NMNTFLI EQU NMNTFL 02075000 NMNTFUS EQU NMNTFL 02076000 @NM00023 EQU NMNTFL 02077000 NMNTDT EQU NIPMNTPL+18 02078000 NMNTUCB EQU NMNTVS 02079000 NMNTDSA EQU NMNTDS 02080000 NIPSPEA EQU NIPSPE+4 02081000 NIPSPEQ EQU NIPSPE 02082000 NWTORMSG EQU NWTORLST+12 02083000 @NM00022 EQU NWTORLST+11 02084000 @NM00021 EQU NWTORFL 02085000 NWTORFLB EQU NWTORFL 02086000 @NM00020 EQU NWTORFL 02087000 NWTORFLA EQU NWTORFL 02088000 NMTORRDL EQU NWTORLST+8 02089000 NWTORECB EQU NWTORLST+4 02090000 NWTORRPA EQU NWTORLST 02091000 @NM00019 EQU NWTOFL 02092000 NWTOFLNC EQU NWTOFL 02093000 NWTOFLNH EQU NWTOFL 02094000 NWTOLNG EQU NWTOHDR 02095000 @NM00018 EQU ORDER+16 02096000 @NM00017 EQU ORDER+7 02097000 @NM00016 EQU @NM00014 02098000 @NM00015 EQU @NM00014 02099000 @NM00013 EQU ORDER+5 02100000 SELUNUSE EQU SELRB+64 02101000 SELGRPPR EQU SELRB+60 02102000 SELVLRET EQU SELRB+56 02103000 SELJFCBX EQU SELRB+52 02104000 SELUNUS2 EQU SELRB+48 02105000 SELRFDDN EQU SELRB+46 02106000 SELDDNUM EQU SELRB+44 02107000 SELDDCAT EQU SELRB+42 02108000 SELUNUS1 EQU SELRB+41 02109000 SELSTNUM EQU SELRB+40 02110000 SELDDNAM EQU SELRB+32 02111000 SELJOBNM EQU SELRB+24 02112000 SELUCBAD EQU SELRB+20 02113000 SELDEVTP EQU SELRB+16 02114000 SELJFCBA EQU SELRB+12 02115000 SELJOBID EQU SELRB+8 02116000 SELUNCNT EQU SELRB+7 02117000 SELRPRIV EQU SELFLGS2 02118000 SELINITC EQU SELFLGS2 02119000 SELCNTWT EQU SELFLGS2 02120000 SELUNSEP EQU SELFLGS2 02121000 SELSUBAL EQU SELFLGS2 02122000 SELSCSPL EQU SELFLGS2 02123000 SELPRSPL EQU SELFLGS2 02124000 SELMXESO EQU SELFLGS1 02125000 SELVRGRP EQU SELFLGS1 02126000 SELVRNEW EQU SELFLGS1 02127000 SELVOLRF EQU SELFLGS1 02128000 SELVENQV EQU SELFLGS1 02129000 SELSEPVL EQU SELFLGS1 02130000 SELDEFER EQU SELFLGS1 02131000 SELPARMT EQU SELFLGS1 02132000 SELRBOPC EQU SELRB+4 02133000 SELRBLEN EQU SELRB 02134000 RPLVBLN EQU RPLVSAM+52 02135000 RPLVRLN EQU RPLVSAM+48 02136000 @NM00012 EQU RPLVSAM+44 02137000 RPLVUPD EQU RPLVOPT+1 02138000 @NM00011 EQU RPLVOPT 02139000 RPLVKGE EQU RPLVOPT 02140000 @NM00010 EQU RPLVOPT 02141000 RPLVNEXT EQU RPLVOPT 02142000 RPLVDIR EQU RPLVOPT 02143000 RPLVLOC EQU RPLVOPT 02144000 RPLVKEY EQU RPLVSAM+36 02145000 RPLVBUF EQU RPLVSAM+32 02146000 @NM00009 EQU RPLVSAM+28 02147000 RPLVACB EQU RPLVSAM+24 02148000 @NM00008 EQU RPLVSAM+3 02149000 RPLVTYP EQU RPLVSAM+2 02150000 @NM00007 EQU RPLVSAM 02151000 @NM00006 EQU RPLV+42 02152000 RPLVDATE EQU RPLV+38 02153000 RPLRMSCC EQU RPLV+36 02154000 RPLVRETC EQU RPLV+34 02155000 RPLRCODE EQU RPLV+32 02156000 RPLVRES1 EQU RPLFLAGA+1 02157000 RPLVJRNL EQU RPLFLAGA 02158000 RPLJRCVY EQU RPLFLAGA 02159000 RPLVVOP EQU RPLFLAGA 02160000 RPLVVIN EQU RPLFLAGA 02161000 RPLVCOMP EQU RPLFLAGA 02162000 RPLVPROG EQU RPLFLAGA 02163000 RPLVRSV3 EQU RPLV+24 02164000 RPLVRSV2 EQU RPLV+20 02165000 RPLVRSV1 EQU RPLV+16 02166000 RPLASCBP EQU RPLTCBPR 02167000 VVIUNUSD EQU VVICB+116 02168000 VVINUSDC EQU VVICB+112 02169000 VVITPFCH EQU VVICB+108 02170000 VVIDVMEL EQU VVICB+104 02171000 VVIVBSTF EQU VVICB+100 02172000 VVISSOBA EQU VVICB+96 02173000 VVIVSCRA EQU VVICB+92 02174000 VVISTPTB EQU VVICB+88 02175000 VVIDVMTA EQU VVICB+84 02176000 VVIJUCB EQU VVICB+80 02177000 VVIIUCB EQU VVICB+76 02178000 VVIRES6 EQU VVICB+72 02179000 VVIRES5 EQU VVICB+68 02180000 VVIRES4 EQU VVICB+64 02181000 VVIUCB EQU VVICB+60 02182000 VVIVJL EQU VVICB+56 02183000 VVIVRR EQU VVICB+52 02184000 VVIQLSPL EQU VVICB+48 02185000 VVIQRPL1 EQU VVICB+40 02186000 VVIVTRK EQU VVICB+37 02187000 VVIOPCD EQU VVICB+36 02188000 VVIVQMP EQU VVICB+32 02189000 VVIECB1 EQU VVICB+28 02190000 VVICATAD EQU VVICB+24 02191000 VVIDCBAD EQU VVICB+20 02192000 VVIACBAD EQU VVICB+16 02193000 VVIFLG7 EQU VVIFLGA 02194000 VVIFLG6 EQU VVIFLGA 02195000 VVIFLG5 EQU VVIFLGA 02196000 VVIFLG4 EQU VVIFLGA 02197000 VVIFLG3 EQU VVIFLGA 02198000 VVIFLG2 EQU VVIFLGA 02199000 VVIFLG1 EQU VVIFLGA 02200000 VVIFLG0 EQU VVIFLGA 02201000 VVIALCON EQU VVICB+14 02202000 VVICPUID EQU VVICB+12 02203000 VVIUCAT EQU VVICB+4 02204000 ICBLORD EQU ICBTRACE+256 02205000 ICBOTRC EQU ICBTRACE 02206000 ICBRESV EQU ICB2SSCB+128 02207000 ICBVOLST EQU ICB2SSCB+124 02208000 ICBVSCRA EQU ICB2SSCB+120 02209000 ICBSAMP EQU ICB2SSCB+118 02210000 ICBRESVD EQU ICB2SSCB+117 02211000 ICBCPUID EQU ICB2SSCB+112 02212000 ICBFAB EQU ICB2SSCB+108 02213000 ICBMSSC EQU ICB2SSCB+104 02214000 ICBRSVP EQU ICB2SSCB+100 02215000 ICBAEAP EQU ICB2SSCB+96 02216000 ICBSIOBP EQU ICB2SSCB+92 02217000 ICBIATNA EQU ICB2SSCB+88 02218000 ICBIPRGA EQU ICB2SSCB+84 02219000 ICBSRBP EQU ICB2SSCB+80 02220000 ICBVVIC EQU ICB2SSCB+72 02221000 ICBSIOP EQU ICB2SSCB+68 02222000 ICBMEP EQU ICB2SSCB+64 02223000 ICBIORCI EQU ICB2SSCB+60 02224000 ICB2ACTP EQU ICB2SSCB+56 02225000 ICBFG3 EQU ICBFLG+2 02226000 ICBFG2 EQU ICBFLG+1 02227000 @NM00005 EQU ICBFG1 02228000 ICBMSCA EQU ICBFG1 02229000 ICBMSCMP EQU ICBFG1 02230000 ICBS EQU ICBFG1 02231000 ICBB EQU ICBFG1 02232000 ICBR EQU ICBFG1 02233000 ICBI EQU ICBFG1 02234000 ICBVN02P EQU ICB2SSCB+44 02235000 ICBTCB EQU ICB2SSCB+40 02236000 ICBQHEAD EQU ICB2SSCB+36 02237000 ICBAUCB EQU ICB2SSCB+32 02238000 ICBPUCB EQU ICB2SSCB+28 02239000 ICBCOMQ EQU ICB2SSCB+24 02240000 ICBIOR EQU ICB2SSCB+20 02241000 ICBCOM EQU ICB2SSCB+16 02242000 ICBACTV EQU ICB2SSCB+12 02243000 ICBECB EQU ICB2SSCB+8 02244000 ICBSSNAM EQU ICB2SSCB 02245000 CVTLEVL EQU CVTRELNO+2 02246000 CVTNUMB EQU CVTRELNO 02247000 CVTMDL EQU CVTFIX+250 02248000 @NM00004 EQU CVTFIX+248 02249000 @NM00003 EQU CVTFIX 02250000 CVTRV482 EQU CVTXTNT2+128 02251000 CVTRV481 EQU CVTXTNT2+124 02252000 CVTRV480 EQU CVTXTNT2+120 02253000 CVTRV479 EQU CVTXTNT2+118 02254000 CVTRV478 EQU CVTXTNT2+117 02255000 CVTRV477 EQU CVTXTNT2+116 02256000 CVTRV476 EQU CVTXTNT2+115 02257000 CVTRV475 EQU CVTXTNT2+114 02258000 CVTRV474 EQU CVTRV466 02259000 CVTRV473 EQU CVTRV466 02260000 CVTRV472 EQU CVTRV466 02261000 CVTRV471 EQU CVTRV466 02262000 CVTRV470 EQU CVTRV466 02263000 CVTRV469 EQU CVTRV466 02264000 CVTRV468 EQU CVTRV466 02265000 CVTRV467 EQU CVTRV466 02266000 CVTRV465 EQU CVTRV457 02267000 CVTRV464 EQU CVTRV457 02268000 CVTRV463 EQU CVTRV457 02269000 CVTRV462 EQU CVTRV457 02270000 CVTRV461 EQU CVTRV457 02271000 CVTRV460 EQU CVTRV457 02272000 CVTRV459 EQU CVTRV457 02273000 CVTRV458 EQU CVTRV457 02274000 CVTRV456 EQU CVTXTNT2+108 02275000 CVTRV455 EQU CVTXTNT2+104 02276000 CVTRV454 EQU CVTXTNT2+100 02277000 CVTRV453 EQU CVTXTNT2+96 02278000 CVTRV452 EQU CVTXTNT2+94 02279000 CVTRV451 EQU CVTXTNT2+92 02280000 CVTRV450 EQU CVTXTNT2+90 02281000 CVTRV449 EQU CVTXTNT2+88 02282000 CVTRV448 EQU CVTXTNT2+87 02283000 CVTRV447 EQU CVTXTNT2+86 02284000 CVTRV446 EQU CVTRV438 02285000 CVTRV445 EQU CVTRV438 02286000 CVTRV444 EQU CVTRV438 02287000 CVTRV443 EQU CVTRV438 02288000 CVTRV442 EQU CVTRV438 02289000 CVTRV441 EQU CVTRV438 02290000 CVTRV440 EQU CVTRV438 02291000 CVTRV439 EQU CVTRV438 02292000 CVTRV437 EQU CVTRV429 02293000 CVTRV436 EQU CVTRV429 02294000 CVTRV435 EQU CVTRV429 02295000 CVTRV434 EQU CVTRV429 02296000 CVTRV433 EQU CVTRV429 02297000 CVTRV432 EQU CVTRV429 02298000 CVTRV431 EQU CVTRV429 02299000 CVTRV430 EQU CVTRV429 02300000 CVTRV428 EQU CVTXTNT2+80 02301000 CVTRV427 EQU CVTXTNT2+76 02302000 CVTRV426 EQU CVTXTNT2+72 02303000 CVTRV425 EQU CVTXTNT2+68 02304000 CVTATACT EQU CVTATCVT 02305000 CVTRV423 EQU CVTXTNT2+62 02306000 CVTRV422 EQU CVTXTNT2+60 02307000 CVTRV421 EQU CVTXTNT2+58 02308000 CVTRV420 EQU CVTXTNT2+56 02309000 CVTRV419 EQU CVTXTNT2+55 02310000 CVTRV418 EQU CVTXTNT2+54 02311000 CVTRV417 EQU CVTRV409 02312000 CVTRV416 EQU CVTRV409 02313000 CVTRV415 EQU CVTRV409 02314000 CVTRV414 EQU CVTRV409 02315000 CVTRV413 EQU CVTRV409 02316000 CVTRV412 EQU CVTRV409 02317000 CVTRV411 EQU CVTRV409 02318000 CVTRV410 EQU CVTRV409 02319000 CVTRV408 EQU CVTRV400 02320000 CVTRV407 EQU CVTRV400 02321000 CVTRV406 EQU CVTRV400 02322000 CVTRV405 EQU CVTRV400 02323000 CVTRV404 EQU CVTRV400 02324000 CVTRV403 EQU CVTRV400 02325000 CVTRV402 EQU CVTRV400 02326000 CVTRV401 EQU CVTRV400 02327000 CVTSKTA EQU CVTXTNT2+44 02328000 CVTRSV99 EQU CVTXTNT2+40 02329000 CVTRSV98 EQU CVTXTNT2+36 02330000 CVTRSV97 EQU CVTXTNT2+34 02331000 CVTRSV96 EQU CVTXTNT2+32 02332000 CVTOLTEP EQU CVTXTNT2+28 02333000 CVTQIDA EQU CVTQID+1 02334000 CVTRSV95 EQU CVTQID 02335000 CVTRSV94 EQU CVTXTNT2+20 02336000 CVTRSV93 EQU CVTXTNT2+16 02337000 CVTRSV92 EQU CVTXTNT2+12 02338000 CVTDEBVR EQU CVTXTNT2+8 02339000 CVTRSV91 EQU CVTXTNT2+6 02340000 CVTRSV9H EQU CVTFLGBT 02341000 CVTRSV9G EQU CVTFLGBT 02342000 CVTRSV9F EQU CVTFLGBT 02343000 CVTRSV9E EQU CVTFLGBT 02344000 CVTRSV9D EQU CVTFLGBT 02345000 CVTRSV9C EQU CVTFLGBT 02346000 CVTVME EQU CVTFLGBT 02347000 CVTNPE EQU CVTFLGBT 02348000 CVTNUCLS EQU CVTXTNT2+4 02349000 CVTDSSVA EQU CVTDSSV+1 02350000 CVTRSV89 EQU CVTDSSV 02351000 CVTRSV88 EQU CVTXTNT1+8 02352000 CVTRSV87 EQU CVTXTNT1+4 02353000 CVTFACHN EQU CVTXTNT1 02354000 CVTRV488 EQU CVTMAP+412 02355000 CVTRV487 EQU CVTMAP+408 02356000 CVTRV486 EQU CVTMAP+404 02357000 CVTRV485 EQU CVTMAP+400 02358000 CVTACTAP EQU CVTMAP+396 02359000 CVTAUTH EQU CVTMAP+392 02360000 CVTATMCA EQU CVTATMCT+1 02361000 CVTATMST EQU CVTATMCT 02362000 CVTRSV61 EQU CVTMAP+384 02363000 CVTVOLT1 EQU CVTVOLM1+1 02364000 CVTVOLI1 EQU CVTVOLF1 02365000 CVTSTOA EQU CVTMAP+376 02366000 CVTRSV58 EQU CVTMAP+374 02367000 CVTRSV57 EQU CVTMAP+372 02368000 CVTDDCE EQU CVTMAP+368 02369000 CVTPNWFR EQU CVTMAP+364 02370000 CVTSMF EQU CVTMAP+360 02371000 CVTSULK EQU CVTMAP+358 02372000 CVTSLKO EQU CVTSYSK 02373000 CVTSLKP EQU CVTSYSK 02374000 CVTSLKQ EQU CVTSYSK 02375000 CVTSLKR EQU CVTSYSK 02376000 CVTRSV56 EQU CVTSYSK 02377000 CVTRSV55 EQU CVTSYSK 02378000 CVTRSV54 EQU CVTSYSK 02379000 CVTRSV53 EQU CVTSYSK 02380000 CVTRSV52 EQU CVTA1F1 02381000 CVTRSV51 EQU CVTA1F1 02382000 CVTRSV50 EQU CVTA1F1 02383000 CVTRSV49 EQU CVTA1F1 02384000 CVTRSV48 EQU CVTA1F1 02385000 CVTRSV47 EQU CVTA1F1 02386000 CVTSRSW EQU CVTA1F1 02387000 CVTPFSW EQU CVTA1F1 02388000 CVTPCVT EQU CVTMAP+352 02389000 CVTRSV46 EQU CVTMAP+344 02390000 CVTRSV45 EQU CVTMAP+340 02391000 CVTRSV44 EQU CVTMAP+338 02392000 CVTRSV43 EQU CVTMAP+336 02393000 CVTHJESA EQU CVTHJES+1 02394000 CVTRSV42 EQU CVTHJES 02395000 CVTEXT2A EQU CVTEXT2+1 02396000 CVTRSV41 EQU CVTEXT2 02397000 CVTAPFA EQU CVTAPF+1 02398000 CVTRSV40 EQU CVTAPF 02399000 CVTRV518 EQU CVTINTLA 02400000 CVTRV517 EQU CVTERPV 02401000 CVTEORM EQU CVTMAP+312 02402000 CVTMCHPR EQU CVTMAP+308 02403000 CVTTZ EQU CVTMAP+304 02404000 CVTJEPS EQU CVTMAP+300 02405000 CVTJESCT EQU CVTMAP+296 02406000 CVTMODE EQU CVTMAP+292 02407000 CVTPTRV EQU CVTMAP+288 02408000 CVTREAL EQU CVTMAP+284 02409000 CVTRSV39 EQU CVTMAP+280 02410000 CVTRSV38 EQU CVTMAP+276 02411000 CVTDMSRA EQU CVTDMSR+1 02412000 CVTRV634 EQU CVTDMSRF 02413000 CVTRV633 EQU CVTDMSRF 02414000 CVTRV632 EQU CVTDMSRF 02415000 CVTRV631 EQU CVTDMSRF 02416000 CVTRV630 EQU CVTDMSRF 02417000 CVTRV629 EQU CVTDMSRF 02418000 CVTUDUMP EQU CVTDMSRF 02419000 CVTSDUMP EQU CVTDMSRF 02420000 CVTQMSGA EQU CVTQMSG+1 02421000 CVTRSV36 EQU CVTQMSG 02422000 CVTAMFF EQU CVTMAP+264 02423000 CVTPURGA EQU CVTPURG+1 02424000 CVTRSV35 EQU CVTPURG 02425000 CVTCBSP EQU CVTMAP+256 02426000 CVTATERA EQU CVTATER+1 02427000 CVTSYST EQU CVTATER 02428000 CVTVOLT2 EQU CVTTAT 02429000 CVTVOLI2 EQU CVTVOLF2 02430000 CVTAQAVB EQU CVTAQAVT+1 02431000 CVTRSV34 EQU CVTTCMFG 02432000 CVTRSV33 EQU CVTTCMFG 02433000 CVTRSV32 EQU CVTTCMFG 02434000 CVTRSV31 EQU CVTTCMFG 02435000 CVTRSV30 EQU CVTTCMFG 02436000 CVTRSV29 EQU CVTTCMFG 02437000 CVTRSV28 EQU CVTTCMFG 02438000 CVTTCRDY EQU CVTTCMFG 02439000 CVTGTFA EQU CVTGTF+1 02440000 CVTRSV27 EQU CVTGTFST 02441000 CVTRNIO EQU CVTGTFST 02442000 CVTUSR EQU CVTGTFST 02443000 CVTRV318 EQU CVTFORM 02444000 CVTRV317 EQU CVTTMODE 02445000 CVTRV316 EQU CVTSTATE 02446000 CVTRV315 EQU CVTGTFS 02447000 CVTGTFAV EQU CVTGTFS 02448000 CVT0SCR1 EQU CVTMAP+232 02449000 CVTRV515 EQU CVTMAP+228 02450000 CVTRMS EQU CVTMAP+224 02451000 CVTPATCH EQU CVTMAP+220 02452000 CVTTSCE EQU CVTMAP+216 02453000 CVTLNKSC EQU CVTMAP+214 02454000 CVTQABST EQU CVTMAP+212 02455000 CVTMDLDS EQU CVTMAP+208 02456000 CVTUSER EQU CVTMAP+204 02457000 CVTABEND EQU CVTMAP+200 02458000 CVTSMCA EQU CVTMAP+196 02459000 CVTRSV18 EQU CVTMAP+192 02460000 CVTQLPAQ EQU CVTMAP+188 02461000 CVTQCDSR EQU CVTMAP+184 02462000 CVTRSV17 EQU CVTOPTB 02463000 CVTRSV16 EQU CVTOPTB 02464000 CVTFP EQU CVTOPTB 02465000 CVTAPTHR EQU CVTOPTB 02466000 CVTNLOG EQU CVTOPTB 02467000 CVTTOD EQU CVTOPTB 02468000 CVTCTIMS EQU CVTOPTB 02469000 CVTPROT EQU CVTOPTB 02470000 CVTXPFP EQU CVTOPTA 02471000 CVTASCII EQU CVTOPTA 02472000 CVTRSV13 EQU CVTOPTA 02473000 CVTRSV12 EQU CVTOPTA 02474000 CVTDDR EQU CVTOPTA 02475000 CVTAPR EQU CVTOPTA 02476000 CVTCCH EQU CVTOPTA 02477000 CVTSNCTR EQU CVTMAP+180 02478000 CVTQMWR EQU CVTMAP+176 02479000 CVTQOCR EQU CVTMAP+172 02480000 CVT1EF00 EQU CVTMAP+168 02481000 CVTMZ00 EQU CVTMAP+164 02482000 CVTSV76Q EQU CVTSV76C 02483000 CVTRSV11 EQU CVTMAP+156 02484000 CVT0PT01 EQU CVTMAP+152 02485000 CVTMSER EQU CVTMAP+148 02486000 CVTRV516 EQU CVTIERLC 02487000 CVTILCH EQU CVTMAP+140 02488000 CVT0DS EQU CVTMAP+136 02489000 CVTFBOSV EQU CVTMAP+132 02490000 CVTNUCB EQU CVTMAP+128 02491000 CVTIXAVL EQU CVTMAP+124 02492000 CVTSV76M EQU CVTIOQET 02493000 CVTDCBA EQU CVTMAP+117 02494000 CVTMVS2 EQU CVTDCB 02495000 CVT6DAT EQU CVTDCB 02496000 CVT4MPS EQU CVTDCB 02497000 CVTRSV09 EQU CVTDCB 02498000 CVT4MS1 EQU CVTDCB 02499000 CVT2SPS EQU CVTDCB 02500000 CVT1SSS EQU CVTDCB 02501000 CVTRSV08 EQU CVTDCB 02502000 CVTSTB EQU CVTMAP+112 02503000 CVTQTD00 EQU CVTMAP+108 02504000 CVTQTE00 EQU CVTMAP+104 02505000 CVTCUCB EQU CVTMAP+100 02506000 CVTSJQ EQU CVTMAP+96 02507000 CVTPBLDL EQU CVTMAP+92 02508000 CVTTPC EQU CVTMAP+88 02509000 CVTSVDCB EQU CVTMAP+84 02510000 CVTBRET EQU CVTMAP+82 02511000 CVTEXIT EQU CVTMAP+80 02512000 CVT0FN00 EQU CVTMAP+76 02513000 CVTDARA EQU CVTDAR+1 02514000 CVTRSV07 EQU CVTFLGS1 02515000 CVTRSV06 EQU CVTFLGS1 02516000 CVTRSV05 EQU CVTFLGS1 02517000 CVTRSV04 EQU CVTFLGS1 02518000 CVTRSV03 EQU CVTFLGS1 02519000 CVTRSV02 EQU CVTFLGS1 02520000 CVTRSV01 EQU CVTFLGS1 02521000 CVTDMPLK EQU CVTFLGS1 02522000 CVTXITP EQU CVTMAP+68 02523000 CVTZDTAB EQU CVTMAP+64 02524000 CVTMSLT EQU CVTMAP+60 02525000 CVTDATE EQU CVTMAP+56 02526000 CVTBTERM EQU CVTMAP+52 02527000 CVTSYSAD EQU CVTMAP+48 02528000 CVTXTLER EQU CVTMAP+44 02529000 CVTILK2 EQU CVTMAP+40 02530000 CVTILK1 EQU CVTMAP+36 02531000 CVTPRLTV EQU CVTMAP+32 02532000 CVTPCNVT EQU CVTMAP+28 02533000 CVT0VL00 EQU CVTMAP+24 02534000 CVTXAPG EQU CVTMAP+20 02535000 CVTBUF EQU CVTMAP+16 02536000 CVTJOB EQU CVTMAP+12 02537000 CVTLINK EQU CVTMAP+8 02538000 CVT0EF00 EQU CVTMAP+4 02539000 CVTTCBP EQU CVTMAP 02540000 CVT EQU CVTMAP 02541000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02542000 @RF00246 EQU @RC00236 02543000 @RF00267 EQU @EL00005 02544000 @RF00270 EQU @EL00005 02545000 @ENDDATA EQU * 02546000 END ICBVPI00,(C'PLS1748',0701,77355) 02547000