TITLE 'ILRSRT01 - PART MONITOR AND SLOT SORT FRR *00001000 ' 00002000 ILRSRT01 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(24) 0001 00007000 DC C'ILRSRT01 78110 UZ16491 ' 0001 00008000 DROP @15 00009000 @PROLOG BALR @10,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@10 0001 00012000 * PTR@DATD=REG0; /* GET PTR TO 200 BYTE WORK AREA */ 00013000 LR PTR@DATD,REG0 0107 00014000 * GEN(USING @DATD,PTR@DATD); /* TELL ASSEMBLER ABOUT DSECT 0108 00015000 * BASE */ 00016000 USING @DATD,PTR@DATD 00017000 * WORKAREA=''B; /* CLEAR THE FRR WORK AREA */ 00018000 XC WORKAREA(200,PTR@DATD),WORKAREA(PTR@DATD) 0109 00019000 * SAVE14=REG14; 0110 00020000 ST REG14,SAVE14 0110 00021000 * RFY 0111 00022000 * (REG0, 0111 00023000 * REG14) UNRSTD; 0111 00024000 * SDWAPTR=REG1; 0112 00025000 ST REG1,SDWAPTR 0112 00026000 * ASMVTPTR=CVTASMVT; /* GET BASE FOR ASMVT */ 00027000 L @12,CVTPTR 0113 00028000 L ASMVTPTR,CVTASMVT(,@12) 0113 00029000 * REG13=ADDR(REGSVARE); /* GET REG SAVE AREA ADDRESS */ 00030000 LA REG13,REGSVARE 0114 00031000 * EPAPTR=SDWAPARM->ATAEPATH; /* SET STANDARD EPATH REG 4 */ 00032000 L @12,SDWAPARM(,REG1) 0115 00033000 L EPAPTR,ATAEPATH(,@12) 0115 00034000 * ADDR(SDWAVRA)->ATA=SDWAPARM->ATA;/* COPY ATA TO RECORDING AREA */ 00035000 MVC ATA+404(24,REG1),ATA(@12) 0116 00036000 * SDWAURAL=LENGTH(ATA); /* UPDATE COUNT OF DATA IN 0117 00037000 * RECORDING AREA */ 00038000 MVI SDWAURAL(REG1),X'18' 0117 00039000 *SRTSETRP: 0118 00040000 * DO; /* SETRP FRELOCK(SALLOC,ASM(PARTL 00041000 * OCK))RECORD(YES)RECPARM(RECNAM 00042000 * ES) */ 00043000 SRTSETRP DS 0H 0119 00044000 * RESPECIFY 0119 00045000 * (GPR00P, 0119 00046000 * GPR01P, 0119 00047000 * GPR14P, 0119 00048000 * GPR15P) RSTD; 0119 00049000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00050000 MVI SDWARCDE(GPR01P),X'00' 0120 00051000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00052000 OI SDWARCRD(GPR01P),B'10000000' 0121 00053000 * GPR15P=ADDR(RECNAMES); /* ACCESS RECORD PARAMETER LIST */ 00054000 LA GPR15P,RECNAMES 0122 00055000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD PARAMETERS */ 00056000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0123 00057000 * GPR01P->SDWAAPLW=ADDR(PARTLOCK);/* INITIALIZE ASMPAT LOCKWORD */ 00058000 L @12,ASMPART(,ASMVTPTR) 0124 00059000 LA @12,PARTLOCK(,@12) 0124 00060000 ST @12,SDWAAPLW(,GPR01P) 0124 00061000 * GPR01P->SDWAACF3=GPR01P->SDWAACF3|'00001100'B;/* INITIALIZE 0125 00062000 * LOCK FLAGS */ 00063000 OI SDWAACF3(GPR01P),B'00001100' 0125 00064000 * RESPECIFY 0126 00065000 * (GPR00P, 0126 00066000 * GPR01P, 0126 00067000 * GPR14P, 0126 00068000 * GPR15P) UNRSTD; 0126 00069000 * END; 0127 00070000 * IF SDWAPARM->ATASRT=BITON THEN /* INDICATE ILRSRT WAS IN CONTROL 00071000 * AT FAILURE */ 00072000 L @12,SDWAPARM(,REG1) 0128 00073000 TM ATASRT(@12),B'00010000' 0128 00074000 BNO @RF00128 0128 00075000 * SDWACSCT=SRT; 0129 00076000 MVC SDWACSCT(8,REG1),@CC02146 0129 00077000 * IF EPAPTR=0 THEN 0130 00078000 @RF00128 SLR @12,@12 0130 00079000 CR EPAPTR,@12 0130 00080000 BE @RT00130 0130 00081000 * GOTO RESCHED; /* NOT ENOUGH DATA FOR RECOVERY */ 00082000 * EVAL(ADDR(SDWAVRA)+SDWAURAL)->EPATH=EPATH;/* COPY EPATH */ 00083000 LA @11,SDWAVRA(,REG1) 0132 00084000 SLR @08,@08 0132 00085000 IC @08,SDWAURAL(,REG1) 0132 00086000 ALR @11,@08 0132 00087000 MVC EPATH(40,@11),EPATH(EPAPTR) 0132 00088000 * SDWAURAL=SDWAURAL+LENGTH(EPATH);/* UPDATE SPACE USED */ 00089000 AH @08,@CH01042 0133 00090000 STC @08,SDWAURAL(,REG1) 0133 00091000 * IF EPAPARM=0 THEN 0134 00092000 C @12,EPAPARM(,EPAPTR) 0134 00093000 BE @RT00134 0134 00094000 * GOTO RESCHED; /* NOT ENOUGH DATA FOR RECOVERY */ 00095000 * 0136 00096000 * /*****************************************************************/ 00097000 * /* */ 00098000 * /* THE FOLLOWING ROUTINE WILL VALIDITY CHECK THE IOE AND IF IT IS*/ 00099000 * /* A READ IOE RETURN IT TO THE UNSORTED READ QUEUE. IF IT IS A */ 00100000 * /* WRITE ITS ADDRESS IS LEFT IN EPAIOEIP TO BE PROCESSED LATER */ 00101000 * /* WHEN THE CHAIN OF WRITE IOE'S IS PROCESSED */ 00102000 * /* */ 00103000 * /*****************************************************************/ 00104000 * 0136 00105000 * RFY 0136 00106000 * (REG0, 0136 00107000 * REG15) RSTD; 0136 00108000 * REG0=EPAIOEIP; /* GET ADDR OF IOE */ 00109000 L REG0,EPAIOEIP(,EPAPTR) 0137 00110000 * STM(REG2,REG7,REGSVARE); /* THESE ARE DESTROYED */ 00111000 STM REG2,REG7,REGSVARE 0138 00112000 * CALL ILRVIOE; /* VALIDITY CHECK THE IOE */ 00113000 L @15,@CV02114 0139 00114000 BALR @14,@15 0139 00115000 * LM(REG2,REG7,REGSVARE); 0140 00116000 LM REG2,REG7,REGSVARE 0140 00117000 * IF REG15=0 THEN /* THE IOE IS OKAY */ 00118000 SLR @14,@14 0141 00119000 CR REG15,@14 0141 00120000 BNE @RF00141 0141 00121000 * IF EPAIOEIP->IOEAIA^=0 THEN /* THERE IS AN AIA */ 00122000 L @12,EPAIOEIP(,EPAPTR) 0142 00123000 L @11,IOEAIA(,@12) 0142 00124000 CR @11,@14 0142 00125000 BE @RF00142 0142 00126000 * IF EPAIOEIP->IOEAIA->AIAWRITE=BITOFF THEN 0143 00127000 TM AIAWRITE(@11),B'10000000' 0143 00128000 BNZ @RF00143 0143 00129000 * DO; /* THE IOE IS FOR A READ REQUEST */ 00130000 * RFY 0145 00131000 * (REG0, 0145 00132000 * REG15) UNRSTD; 0145 00133000 * 0145 00134000 * /*********************************************************/ 00135000 * /* */ 00136000 * /* PUT THE IOE BACK ON THE UNSORTED READ QUEUE ON THE */ 00137000 * /* PARTE. THE ADDR OF THE PARTE IS IN THE PARMLIST USED */ 00138000 * /* BY PART MONITOR AND SLOT SORT */ 00139000 * /* */ 00140000 * /*********************************************************/ 00141000 * 0146 00142000 * RFY 0146 00143000 * (REG11, 0146 00144000 * REG12) RSTD; 0146 00145000 * REG11=PAREIOEQ; /* GET PTR TO 1ST IOE 0N UNSORTED 00146000 * READ QUEUE */ 00147000 L @08,EPAPARM(,EPAPTR) 0147 00148000 L @08,PAREPTR(,@08) 0147 00149000 L REG11,PAREIOEQ(,@08) 0147 00150000 * REG12=EPAIOEIP; /* GET PTR TO IOE THAT WILL BE 0148 00151000 * PUT BACK ON THE QUEUE */ 00152000 L @08,EPAIOEIP(,EPAPTR) 0148 00153000 LR REG12,@08 0148 00154000 * EPAIOEIP=0; /* FINISHED WITH THIS IOE */ 00155000 ST @14,EPAIOEIP(,EPAPTR) 0149 00156000 *CSLOOP1: 0150 00157000 * REG12->IOENXT=REG11; /* CHAIN NEW IOE */ 00158000 CSLOOP1 ST REG11,IOENXT(,REG12) 0150 00159000 * CS(REG11,REG12,PAREIOEQ);/* UPDATE QUEUE HEAD */ 00160000 L @08,EPAPARM(,EPAPTR) 0151 00161000 L @08,PAREPTR(,@08) 0151 00162000 CS REG11,@12,PAREIOEQ(@08) 0151 00163000 * BC(7,CSLOOP1); /* TRY AGAIN IF FAILURE */ 00164000 BC 7,CSLOOP1 0152 00165000 * RFY 0153 00166000 * (REG11, 0153 00167000 * REG12) UNRSTD; 0153 00168000 * END; /* END OF IOE FOR READ REQUEST */ 00169000 * ELSE 0155 00170000 * EPAIOEIP->IOENXT=0; /* WRITE IOE, SO LEAVE IT FOR 0155 00171000 * LATER PROCESSING WHEN THE 0155 00172000 * QUEUES ARE ADDRESSED */ 00173000 B @RC00143 0155 00174000 @RF00143 L @12,EPAIOEIP(,EPAPTR) 0155 00175000 SLR @11,@11 0155 00176000 ST @11,IOENXT(,@12) 0155 00177000 * ELSE 0156 00178000 * DO; /* THERE IS NO AIA SO RETURN IOE */ 00179000 B @RC00142 0156 00180000 @RF00142 DS 0H 0157 00181000 * RFY 0157 00182000 * (REG11, 0157 00183000 * REG12) RSTD; 0157 00184000 * REG1=EPAIOEIP; 0158 00185000 L REG1,EPAIOEIP(,EPAPTR) 0158 00186000 * EPAIOEIP=0; /* FINISHED WITH THIS IOE */ 00187000 * 0159 00188000 SLR @08,@08 0159 00189000 ST @08,EPAIOEIP(,EPAPTR) 0159 00190000 * /***********************************************************/ 00191000 * /* */ 00192000 * /* BEGIN ILRGMA MACRO EXPANSION */ 00193000 * /* */ 00194000 * /***********************************************************/ 00195000 * 0160 00196000 * DO; /* ILRGMA FREE 0160 00197000 * CELL(IOE)WORKREGS(REG11,REG12)*/ 00198000 * DECLARE /* ASMVT VECTOR TO ILRPEX */ 00199000 * ILRPEX ENTRY BASED(ASMPEX) VALRG(0); 0161 00200000 * DECLARE /* MAP FOR CELL CONTROL WORDS */ 00201000 * 1 GMACELL BASED BDY(WORD), 0162 00202000 * 2 GMANEXT PTR(31); /* PTR NEXT FREE CELL */ 00203000 * RESPECIFY 0163 00204000 * (R0, 0163 00205000 * R1, 0163 00206000 * REG11, 0163 00207000 * REG12, 0163 00208000 * R14, 0163 00209000 * R15) RESTRICTED; 0163 00210000 * RESPECIFY 0164 00211000 * ASMPOOLS BASED(REG11); 0164 00212000 * RESPECIFY 0165 00213000 * GMACELL BASED(R1); 0165 00214000 * REG11=ADDR(ASMIOEPC); 0166 00215000 LA REG11,ASMIOEPC(,ASMVTPTR) 0166 00216000 * R14=ASMCPAVL; 0167 00217000 L R14,ASMCPAVL(,REG11) 0167 00218000 *GMA00042: 0168 00219000 * GMANEXT=R14; /* PUT ADDR CURRENT FIRST IN 0168 00220000 * INPUT CELL */ 00221000 GMA00042 ST R14,GMANEXT(,R1) 0168 00222000 * CS(R14,R1,ASMCPAVL); /* ADD INPUT CELL TO POOL */ 00223000 CS R14,@01,ASMCPAVL(REG11) 0169 00224000 * BC(7,GMA00042); 0170 00225000 BC 7,GMA00042 0170 00226000 * RESPECIFY 0171 00227000 * (R0, 0171 00228000 * R1, 0171 00229000 * REG11, 0171 00230000 * REG12, 0171 00231000 * R14, 0171 00232000 * R15) UNRESTRICTED; 0171 00233000 * END; /* ILRGMA FREE 0172 00234000 * CELL(IOE)WORKREGS(REG11,REG12)*/ 00235000 * 0172 00236000 * /***********************************************************/ 00237000 * /* */ 00238000 * /* END ILRGMA MACRO EXPANSION RELEASE THE IOE */ 00239000 * /* */ 00240000 * /***********************************************************/ 00241000 * 0173 00242000 * REG1=SDWAPTR; /* REG1 WAS DESTROYED */ 00243000 L REG1,SDWAPTR 0173 00244000 * END; /* END FOR NO AIA */ 00245000 * ELSE /* IOE IS NOT VALID */ 00246000 * EPAIOEIP=0; /* IOE IS BAD SO THROW IT AWAY */ 00247000 B @RC00141 0175 00248000 @RF00141 SLR @12,@12 0175 00249000 ST @12,EPAIOEIP(,EPAPTR) 0175 00250000 * 0176 00251000 * /*****************************************************************/ 00252000 * /* */ 00253000 * /* NOW PROCESS THE READ AND WRITE IOE QUEUES THAT ARE CHECK */ 00254000 * /* POINTED IN THE EPATH (EPAIOEQP) AND PARMLIST (WRTIOEQ). IF */ 00255000 * /* THERE ARE VALID READ IOE'S THEY ARE RETURNED TO THE UNSORTED */ 00256000 * /* READ QUEUE, PAREIOEQ. THE WRITE IOE'S ARE RETURNED TO THE */ 00257000 * /* WRITE QUEUE ADDRESSED BY EPAWRTQ -- THE ASM CLASS LOCK FOR THE*/ 00258000 * /* WRITE QUEUE MUST BE HELD WHILE DOING THIS */ 00259000 * /* */ 00260000 * /*****************************************************************/ 00261000 * 0176 00262000 * RFY 0176 00263000 * (REG0, 0176 00264000 * REG5, 0176 00265000 * REG6, 0176 00266000 * REG7, 0176 00267000 * REG8) RSTD; 0176 00268000 * 0176 00269000 @RC00141 DS 0H 0177 00270000 * /*****************************************************************/ 00271000 * /* */ 00272000 * /* SET UP TO VALIDITY CHECK THE READ IOE QUEUE REGS 5-7 DESTROYED*/ 00273000 * /* */ 00274000 * /*****************************************************************/ 00275000 * 0177 00276000 * REG0=ADDR(EPAIOEQP); 0177 00277000 LA REG0,EPAIOEQP(,EPAPTR) 0177 00278000 * REG8=ADDR(VCKWORK); 0178 00279000 LA REG8,VCKWORK 0178 00280000 * CALL ILRVIOEQ; /* VERIFY THE QUEUE OF READ IOE'S*/ 00281000 * 0179 00282000 L @15,@CV02116 0179 00283000 BALR @14,@15 0179 00284000 * /*****************************************************************/ 00285000 * /* */ 00286000 * /* IF ANY IOE WAS VALID EPAIOEQP WILL POINT TO A VALID IOE OR */ 00287000 * /* QUEUE OF IOE'S. BUT IF NO IOE WAS VALID EPAIOEQP WILL BE ZERO */ 00288000 * /* */ 00289000 * /*****************************************************************/ 00290000 * 0180 00291000 * RFY 0180 00292000 * (REG0, 0180 00293000 * REG5, 0180 00294000 * REG6, 0180 00295000 * REG7, 0180 00296000 * REG8) UNRSTD; 0180 00297000 * IF EPAIOEQP^=0 THEN 0181 00298000 L @12,EPAIOEQP(,EPAPTR) 0181 00299000 LTR @12,@12 0181 00300000 BZ @RF00181 0181 00301000 * DO; /* THERE ARE VALID IOE'S LEFT */ 00302000 * RFY 0183 00303000 * (REG12) RSTD; 0183 00304000 * REG12=EPAIOEQP; 0184 00305000 * 0184 00306000 L @11,EPAIOEQP(,EPAPTR) 0184 00307000 LR REG12,@11 0184 00308000 * /*************************************************************/ 00309000 * /* */ 00310000 * /* MUST FIND THE LAST IOE ON THE QUEUE SO THE QUEUE CAN BE */ 00311000 * /* CHAINED TO THE CURRENT QUEUE ON THE PARTE */ 00312000 * /* */ 00313000 * /*************************************************************/ 00314000 * 0185 00315000 * DO WHILE(REG12->IOENXT^=0); 0185 00316000 B @DE00185 0185 00317000 @DL00185 DS 0H 0186 00318000 * REG12=REG12->IOENXT; 0186 00319000 L REG12,IOENXT(,REG12) 0186 00320000 * END; /* END OF DO WHILE */ 00321000 * 0187 00322000 @DE00185 ICM @11,15,IOENXT(REG12) 0187 00323000 BNZ @DL00185 0187 00324000 * /*************************************************************/ 00325000 * /* */ 00326000 * /* REG12 NOW HAS THE ADDR OF THE LAST IOE */ 00327000 * /* */ 00328000 * /*************************************************************/ 00329000 * 0188 00330000 * RFY 0188 00331000 * (REG11, 0188 00332000 * REG14) RSTD; 0188 00333000 * REG11=PAREIOEQ; /* GET CURRENT TOP OF UNSORTED 0189 00334000 * READ QUEUE */ 00335000 L @15,EPAPARM(,EPAPTR) 0189 00336000 L @15,PAREPTR(,@15) 0189 00337000 L REG11,PAREIOEQ(,@15) 0189 00338000 * REG14=EPAIOEQP; 0190 00339000 L REG14,EPAIOEQP(,EPAPTR) 0190 00340000 *CSLOOP2: 0191 00341000 * REG12->IOENXT=REG11; 0191 00342000 CSLOOP2 ST REG11,IOENXT(,REG12) 0191 00343000 * CS(REG11,REG14,PAREIOEQ); 0192 00344000 L @15,EPAPARM(,EPAPTR) 0192 00345000 L @15,PAREPTR(,@15) 0192 00346000 CS REG11,@14,PAREIOEQ(@15) 0192 00347000 * BC(7,CSLOOP2); 0193 00348000 BC 7,CSLOOP2 0193 00349000 * END; /* END OF VALID IOE'S LEFT */ 00350000 * 0195 00351000 * /*****************************************************************/ 00352000 * /* */ 00353000 * /* THE QUEUE OF WRITE IOE'S ADDRESSED BY WRTIOEQ WILL BE VALIDITY*/ 00354000 * /* CHECKED AND RETURNED (ALONG WITH THE IOE ADDRESSED BY */ 00355000 * /* EPAIOEIP) TO THE WRITE QUEUE POINTED TO BY EPAWRTQ */ 00356000 * /* */ 00357000 * /*****************************************************************/ 00358000 * 0195 00359000 * IF WRTIOEQ^=EPAWRTQ->WRTQSTRT THEN 0195 00360000 @RF00181 L @15,EPAPARM(,EPAPTR) 0195 00361000 L @08,EPAWRTQ(,EPAPTR) 0195 00362000 CLC WRTIOEQ(4,@15),WRTQSTRT(@08) 0195 00363000 BE @RF00195 0195 00364000 * DO; /* THE IOE'S ARE NOT ALREADY ON 00365000 * THE WRITE QUEUE */ 00366000 * 0196 00367000 * /*************************************************************/ 00368000 * /* */ 00369000 * /* SET UP TO VALIDITY CHECK THE QUEUE OF IOE'S BEFORE PUTTING*/ 00370000 * /* THEM BACK ON THE WRITE QUEUE */ 00371000 * /* */ 00372000 * /*************************************************************/ 00373000 * 0197 00374000 * RFY 0197 00375000 * (REG0, 0197 00376000 * REG5, 0197 00377000 * REG6, 0197 00378000 * REG7, 0197 00379000 * REG8) RSTD; 0197 00380000 * REG0=ADDR(WRTIOEQ); 0198 00381000 LA REG0,WRTIOEQ(,@15) 0198 00382000 * REG8=ADDR(VCKWORK); 0199 00383000 LA REG8,VCKWORK 0199 00384000 * CALL ILRVIOEQ; 0200 00385000 L @15,@CV02116 0200 00386000 BALR @14,@15 0200 00387000 * RFY 0201 00388000 * (REG0, 0201 00389000 * REG5, 0201 00390000 * REG6, 0201 00391000 * REG7, 0201 00392000 * REG8) UNRSTD; 0201 00393000 * 0201 00394000 * /*************************************************************/ 00395000 * /* */ 00396000 * /* IF A VALID IOE WAS ON THE CHAIN WRTIOEQ -> WRTQSTRT IS NON*/ 00397000 * /* ZERO */ 00398000 * /* */ 00399000 * /*************************************************************/ 00400000 * 0202 00401000 * IF WRTIOEQ^=0 THEN /* IOE'S ON QUE TO RETURN */ 00402000 SLR @15,@15 0202 00403000 L @08,EPAPARM(,EPAPTR) 0202 00404000 L @08,WRTIOEQ(,@08) 0202 00405000 CR @08,@15 0202 00406000 BE @RF00202 0202 00407000 * IF EPAIOEIP^=0 THEN /* AND A SINGLE IOE TO RETURN 0203 00408000 * ALSO */ 00409000 L @05,EPAIOEIP(,EPAPTR) 0203 00410000 CR @05,@15 0203 00411000 BE @RF00203 0203 00412000 * EPAIOEIP->IOENXT=WRTIOEQ;/* CHAIN SINGLE IOE TO THE CHAIN 00413000 * OF IOE'S */ 00414000 ST @08,IOENXT(,@05) 0204 00415000 * ELSE /* THERE IS A CHAIN OF IOE'S BUT 00416000 * NO SINGLE */ 00417000 * EPAIOEIP=WRTIOEQ; /* SET UP QUEUE FOR RETURN TO 0205 00418000 * WRITE QUEUE */ 00419000 B @RC00203 0205 00420000 @RF00203 L @15,EPAPARM(,EPAPTR) 0205 00421000 MVC EPAIOEIP(4,EPAPTR),WRTIOEQ(@15) 0205 00422000 * ELSE 0206 00423000 * ; /* THERE IS NO CHAIN OF IOE'S TO 00424000 * RETURN */ 00425000 @RF00202 DS 0H 0207 00426000 * END; /* END FOR IOE'S NOT ALREADY ON 00427000 * ITS WRITE QUEUE */ 00428000 @RC00202 DS 0H 0208 00429000 * IF EPAIOEIP^=0 THEN /* IS THERE AN IOE TO RETURN */ 00430000 @RF00195 ICM @15,15,EPAIOEIP(EPAPTR) 0208 00431000 BZ @RF00208 0208 00432000 * DO; /* YES THERE IS AN IOE TO RETURN */ 00433000 * RFY 0210 00434000 * REG11 RSTD; 0210 00435000 * REG11=ADDR(PARTLOCK); /* SETLOCK REQUIRES REG11 TO 0211 00436000 * POINT TO THE LOCKWORD */ 00437000 L REG11,ASMPART(,ASMVTPTR) 0211 00438000 LA REG11,PARTLOCK(,REG11) 0211 00439000 * GEN REFS(PSALITA,FLC) SETS(REG11,REG12,REG13,REG14); 0212 00440000 GETCLASS SETLOCK OBTAIN,TYPE=ASM,ADDR=(11),MODE=UNCOND, *00441000 RELATED=(WRITEQUE(ILRSRT01(SRTSETRP))) 00442000 * REG13=ADDR(REGSVARE); /* RELOAD SAVE AREA ADDRESS */ 00443000 * 0213 00444000 LA REG13,REGSVARE 0213 00445000 * /*************************************************************/ 00446000 * /* */ 00447000 * /* MUST FIND LAST IOE ON THE CHAIN TO PUT BACK ON WRITE QUEUE*/ 00448000 * /* */ 00449000 * /*************************************************************/ 00450000 * 0214 00451000 * REG11=EPAIOEIP; 0214 00452000 L REG11,EPAIOEIP(,EPAPTR) 0214 00453000 * DO WHILE(REG11->IOENXT^=0); 0215 00454000 B @DE00215 0215 00455000 @DL00215 DS 0H 0216 00456000 * REG11=REG11->IOENXT; 0216 00457000 L REG11,IOENXT(,REG11) 0216 00458000 * END; /* END OF DO WHILE */ 00459000 * 0217 00460000 @DE00215 SLR @15,@15 0217 00461000 C @15,IOENXT(,REG11) 0217 00462000 BNE @DL00215 0217 00463000 * /*************************************************************/ 00464000 * /* */ 00465000 * /* REG11 NOW POINTS TO THE LAST IOE ON THE CHAIN */ 00466000 * /* */ 00467000 * /*************************************************************/ 00468000 * 0218 00469000 * IF EPAWRTQ->WRTQSTRT^=0 THEN 0218 00470000 L @08,EPAWRTQ(,EPAPTR) 0218 00471000 L @08,WRTQSTRT(,@08) 0218 00472000 CR @08,@15 0218 00473000 BE @RF00218 0218 00474000 * REG11->IOENXT=EPAWRTQ->WRTQSTRT;/* CHAIN LAST IN CHAIN TO 00475000 * WRITE QUEUE */ 00476000 ST @08,IOENXT(,REG11) 0219 00477000 * ELSE 0220 00478000 * EPAWRTQ->WRTQEND=REG11; /* UPDATE LAST ELEMENT ANCHOR */ 00479000 B @RC00218 0220 00480000 @RF00218 L @15,EPAWRTQ(,EPAPTR) 0220 00481000 ST REG11,WRTQEND(,@15) 0220 00482000 * EPAWRTQ->WRTQSTRT=EPAIOEIP; /* UPDATE QUEUE HEAD */ 00483000 @RC00218 L @15,EPAWRTQ(,EPAPTR) 0221 00484000 MVC WRTQSTRT(4,@15),EPAIOEIP(EPAPTR) 0221 00485000 * RFY 0222 00486000 * REG11 UNRSTD; 0222 00487000 * END; /* FOR YES THERE IS AN IOE TO 0223 00488000 * RETURN */ 00489000 * 0224 00490000 * /*****************************************************************/ 00491000 * /* */ 00492000 * /* CURPCCW: NOW THE CURRENT PCCW CHECK--POINTED IN THE PARMLIST */ 00493000 * /* IS VALIDITY CHECKED ALONG WITH THE AIA ANCHORED IN IT. IF THE */ 00494000 * /* PCCW IS VALID IT IS RETURNED TO ITS POOL. IF THE AIA IS VALID */ 00495000 * /* IT IS PUT ON THE PART AIA ERROR QUEUE */ 00496000 * /* */ 00497000 * /*****************************************************************/ 00498000 * 0224 00499000 * RFY 0224 00500000 * (REG0, 0224 00501000 * REG15) RSTD; 0224 00502000 * 0224 00503000 @RF00208 DS 0H 0225 00504000 * /*****************************************************************/ 00505000 * /* */ 00506000 * /* SET UP TO VALIDITY CHECK THE PCCW */ 00507000 * /* */ 00508000 * /*****************************************************************/ 00509000 * 0225 00510000 * REG0=PCCWPTR; 0225 00511000 L @11,EPAPARM(,EPAPTR) 0225 00512000 L REG0,PCCWPTR(,@11) 0225 00513000 * STM(REG2,REG7,REGSVARE); 0226 00514000 STM REG2,REG7,REGSVARE 0226 00515000 * CALL ILRVPCCW; 0227 00516000 L @15,@CV02119 0227 00517000 BALR @14,@15 0227 00518000 * LM(REG2,REG7,REGSVARE); 0228 00519000 LM REG2,REG7,REGSVARE 0228 00520000 * IF REG15=0 THEN 0229 00521000 LTR REG15,REG15 0229 00522000 BNZ @RF00229 0229 00523000 * DO; /* THE PCCW IS GOOD */ 00524000 * IF(SDWACMPC&CMPCMASK)=CONVRTER THEN/* CONVERT ERROR IN SRT */ 00525000 MVC @TS00001(3),SDWACMPC(REG1) 0231 00526000 NC @TS00001(3),@CB02144 0231 00527000 CLC @TS00001(3),@CB02139 0231 00528000 BNE @RF00231 0231 00529000 * DO; /* CONVERT ERROR */ 00530000 * RFY 0233 00531000 * (REG0, 0233 00532000 * REG15) UNRSTD; 0233 00533000 * 0233 00534000 */* ****************************************************************** 00535000 * */ 00536000 */* THIS CODE IS DELETED BY APAR OZ28762 */ 00537000 */* IF SDWAURAL+LENGTH(AIA)+LENGTH(IDAEDB)<=SDWAVRAL THEN */ 00538000 */* DO; *ROOM IN RECORDING AREA, SO COPY AIA AND EDB* */ 00539000 */* @ZA28762*/ 00540000 */* ****************************************************************** 00541000 * */ 00542000 * 0234 00543000 * /*********************************************************/ 00544000 * /* */ 00545000 * /* THE AIA AND THE LAST 16 BYTES OF THE FIRST EDB ARE */ 00546000 * /* COPIED INTO THE SDWA. THERE IS NOT ENOUGH SPACE IN THE*/ 00547000 * /* VARIABLE RECORDING AREA TO COPY ANY MORE INFORMATION */ 00548000 * /* @ZA28762*/ 00549000 * /* */ 00550000 * /*********************************************************/ 00551000 * 0234 00552000 * EVAL(ADDR(SDWAVRA)+SDWAURAL)->AIA=PCCWAIA->AIA;/* COPY 0234 00553000 * AREA INTO VARIABLE RECORDING 00554000 * AREA @ZA28762*/ 00555000 LA @15,SDWAVRA(,REG1) 0234 00556000 SLR @11,@11 0234 00557000 IC @11,SDWAURAL(,REG1) 0234 00558000 ALR @15,@11 0234 00559000 L @08,EPAPARM(,EPAPTR) 0234 00560000 L @05,PCCWPTR(,@08) 0234 00561000 L @05,PCCWAIA(,@05) 0234 00562000 MVC AIA(28,@15),AIA(@05) 0234 00563000 * SDWAVRA(EVAL(SDWAURAL+LENGTH(AIA)+1):LENGTH(SDWAVRA))=( 00564000 * PAREEDBP+LENGTH(IDAEDBHD))->IDAEDB((LENGTH(IDAEDB)+1)- 00565000 * 16:LENGTH(IDAEDB)); 0235 00566000 * 0235 00567000 LA @15,29 0235 00568000 LR @05,@11 0235 00569000 ALR @05,@15 0235 00570000 ALR @05,REG1 0235 00571000 ALR @11,@15 0235 00572000 LCR @11,@11 0235 00573000 AH @11,@CH02039 0235 00574000 L @15,PAREPTR(,@08) 0235 00575000 L @15,PAREEDBP(,@15) 0235 00576000 EX @11,@SM02244 0235 00577000 * /*********************************************************/ 00578000 * /* */ 00579000 * /* COPY LAST FOUR WORDS OF THE FIRST EDB INTO VARIABLE */ 00580000 * /* RECORDING AREA @ZA28762*/ 00581000 * /* */ 00582000 * /*********************************************************/ 00583000 * 0236 00584000 * SDWAURAL=LENGTH(SDWAVRA);/* UPDATE COUNT FOR SPACE USED 00585000 * @ZA28762*/ 00586000 MVI SDWAURAL(REG1),X'6C' 0236 00587000 */* ****************************************************************** 00588000 * */ 00589000 */* THIS CODE IS DELETED BY APAR OZ28762 */ 00590000 */* END; *END FOR ROOM TO COPY AIA AND EDB* */ 00591000 */* ELSE; *NO ROOM TO COPY* */ 00592000 */* @ZA28762*/ 00593000 */* ****************************************************************** 00594000 * */ 00595000 * 0237 00596000 * END; /* END FOR CONVERT ERROR */ 00597000 */* ****************************************************************** 00598000 * */ 00599000 */* THIS CODE IS DELETED BY APAR OZ28762 */ 00600000 */* ELSE DO; *NOT A CONVERT ERROR* */ 00601000 */* @ZA28762*/ 00602000 */* ****************************************************************** 00603000 * */ 00604000 * 0238 00605000 * /*************************************************************/ 00606000 * /* */ 00607000 * /* SET UP TO VALIDITY CHECK THE AIA FROM THE PCCW */ 00608000 * /* */ 00609000 * /*************************************************************/ 00610000 * 0238 00611000 * RFY 0238 00612000 * (REG0, 0238 00613000 * REG15) RSTD; 0238 00614000 @RF00231 DS 0H 0239 00615000 * REG0=PCCWAIA; 0239 00616000 L @11,EPAPARM(,EPAPTR) 0239 00617000 L @11,PCCWPTR(,@11) 0239 00618000 L REG0,PCCWAIA(,@11) 0239 00619000 * STM(REG2,REG7,REGSVARE); 0240 00620000 STM REG2,REG7,REGSVARE 0240 00621000 * CALL ILRVAIA; 0241 00622000 L @15,@CV02115 0241 00623000 BALR @14,@15 0241 00624000 * LM(REG2,REG7,REGSVARE); 0242 00625000 LM REG2,REG7,REGSVARE 0242 00626000 * IF REG15^=0 THEN /* THE AIA IS BAD */ 00627000 LTR REG15,REG15 0243 00628000 BNZ @RT00243 0243 00629000 * GOTO ZPCCWAIA; 0244 00630000 * 0244 00631000 */* ****************************************************************** 00632000 * */ 00633000 */* THIS CODE IS DELETED BY APAR OZ28762 */ 00634000 */* END; *FOR NOT A CONVERT ERROR* */ 00635000 */* @ZA28762*/ 00636000 */* ****************************************************************** 00637000 * */ 00638000 * 0245 00639000 * /*************************************************************/ 00640000 * /* */ 00641000 * /* THE AIA IS VALID AT THIS POINT AND WILL NOW BE FLAGGED AND*/ 00642000 * /* PUT ON THE PART AIA ERROR QUEUE */ 00643000 * /* */ 00644000 * /*************************************************************/ 00645000 * 0245 00646000 * RFY 0245 00647000 * (REG0, 0245 00648000 * REG15) UNRSTD; 0245 00649000 * IF PCCWAIA->AIADUPLX=BITON& /* AIA IS FOR DUPLEX */ 00650000 * PAREDPLX=BITON THEN /* AND THIS IS A DUPLEX PARTE */ 00651000 L @15,EPAPARM(,EPAPTR) 0246 00652000 L @11,PCCWPTR(,@15) 0246 00653000 L @11,PCCWAIA(,@11) 0246 00654000 TM AIADUPLX(@11),B'00010000' 0246 00655000 BNO @RF00246 0246 00656000 L @15,PAREPTR(,@15) 0246 00657000 TM PAREDPLX(@15),B'00100000' 0246 00658000 BNO @RF00246 0246 00659000 * PCCWAIA->AIASECER=BITON; 0247 00660000 OI AIASECER(@11),B'00000100' 0247 00661000 * ELSE 0248 00662000 * PCCWAIA->AIAPRIER=BITON; 0248 00663000 * 0248 00664000 B @RC00246 0248 00665000 @RF00246 L @15,EPAPARM(,EPAPTR) 0248 00666000 L @15,PCCWPTR(,@15) 0248 00667000 L @15,PCCWAIA(,@15) 0248 00668000 OI AIAPRIER(@15),B'00001000' 0248 00669000 * /*************************************************************/ 00670000 * /* */ 00671000 * /* SET UP THEN COMPARE AND SWAP THE AIA ONTO THE AIA ERROR */ 00672000 * /* QUEUE */ 00673000 * /* */ 00674000 * /*************************************************************/ 00675000 * 0249 00676000 * RFY 0249 00677000 * (REG11, 0249 00678000 * REG12) RSTD; 0249 00679000 @RC00246 DS 0H 0250 00680000 * REG12=PCCWAIA; 0250 00681000 L @15,EPAPARM(,EPAPTR) 0250 00682000 L @15,PCCWPTR(,@15) 0250 00683000 L REG12,PCCWAIA(,@15) 0250 00684000 * REG11=PARTAIAE; 0251 00685000 L @15,ASMPART(,ASMVTPTR) 0251 00686000 L REG11,PARTAIAE(,@15) 0251 00687000 *CSLOOP3: 0252 00688000 * REG12->AIANXAIA=REG11; /* CHAIN NEW AIA TO ERROR QUEUE 00689000 * @ZM43067*/ 00690000 CSLOOP3 ST REG11,AIANXAIA(,REG12) 0252 00691000 * CS(REG11,REG12,PARTAIAE); 0253 00692000 L @15,ASMPART(,ASMVTPTR) 0253 00693000 CS REG11,@12,PARTAIAE(@15) 0253 00694000 * BC(7,CSLOOP3); 0254 00695000 BC 7,CSLOOP3 0254 00696000 *ZPCCWAIA: 0255 00697000 * ; 0255 00698000 ZPCCWAIA DS 0H 0256 00699000 * PCCWAIA=0; /* FINISHED WITH THE AIA IN THE 00700000 * PCCW */ 00701000 L @15,EPAPARM(,EPAPTR) 0256 00702000 L @15,PCCWPTR(,@15) 0256 00703000 SLR @08,@08 0256 00704000 ST @08,PCCWAIA(,@15) 0256 00705000 * END; /* END FOR THE PCCW IS GOOD */ 00706000 * ELSE /* THE PCCW IS BAD */ 00707000 * BADPCCW=BITON; /* DON'T LET IT GET PUT BACK INTO 00708000 * ITS POOL */ 00709000 B @RC00229 0258 00710000 @RF00229 OI BADPCCW,B'10000000' 0258 00711000 * 0259 00712000 * /*****************************************************************/ 00713000 * /* */ 00714000 * /* THE IOE'S ON THE INTERNAL FREE QUEUE BUILT BY ILRSRT ARE */ 00715000 * /* VALIDITY CHECKED AND PUT BACK IN ITS POOL */ 00716000 * /* */ 00717000 * /*****************************************************************/ 00718000 * 0259 00719000 * RFY 0259 00720000 * (REG0, 0259 00721000 * REG8, 0259 00722000 * REG5, 0259 00723000 * REG7, 0259 00724000 * REG6) RSTD; 0259 00725000 @RC00229 DS 0H 0260 00726000 * REG0=ADDR(EPAFFIOE); 0260 00727000 LA REG0,EPAFFIOE(,EPAPTR) 0260 00728000 * REG8=ADDR(VCKWORK); 0261 00729000 LA REG8,VCKWORK 0261 00730000 * CALL ILRVIOEQ; 0262 00731000 L @15,@CV02116 0262 00732000 BALR @14,@15 0262 00733000 * IF EPAFFIOE^=0 THEN 0263 00734000 L @15,EPAFFIOE(,EPAPTR) 0263 00735000 LTR @15,@15 0263 00736000 BZ @RF00263 0263 00737000 * DO; /* THERE ARE VALID IOE'S LEFT */ 00738000 * RFY 0265 00739000 * (REG0, 0265 00740000 * REG5, 0265 00741000 * REG6, 0265 00742000 * REG7) UNRSTD; 0265 00743000 * RFY 0266 00744000 * (REG14, 0266 00745000 * REG11, 0266 00746000 * REG12) RSTD; 0266 00747000 * RFY 0267 00748000 * ASMPOOLS BASED(REG8); 0267 00749000 * REG8=ADDR(ASMIOEPC); 0268 00750000 LA REG8,ASMIOEPC(,ASMVTPTR) 0268 00751000 * REG12=EPAFFIOE; 0269 00752000 LR REG12,@15 0269 00753000 * REG14=REG12; 0270 00754000 LR REG14,REG12 0270 00755000 * DO WHILE(REG14->IOENXT^=0); /* FIND LAST IOE ON CHAIN */ 00756000 B @DE00271 0271 00757000 @DL00271 DS 0H 0272 00758000 * REG14=REG14->IOENXT; 0272 00759000 L REG14,IOENXT(,REG14) 0272 00760000 * END; /* END OF DO WHILE */ 00761000 @DE00271 ICM @15,15,IOENXT(REG14) 0273 00762000 BNZ @DL00271 0273 00763000 * REG11=ASMCPAVL; /* GET 1ST IOE IN THE POOL */ 00764000 L REG11,ASMCPAVL(,REG8) 0274 00765000 *CSLOOP5: 0275 00766000 * REG14->IOENXT=REG11; /* CHAIN LAST TO CURRENT 1ST IN 00767000 * THE POOL */ 00768000 CSLOOP5 ST REG11,IOENXT(,REG14) 0275 00769000 * CS(REG11,REG12,ASMCPAVL); 0276 00770000 CS REG11,@12,ASMCPAVL(REG8) 0276 00771000 * BC(7,CSLOOP5); 0277 00772000 BC 7,CSLOOP5 0277 00773000 * END; /* END FOR VALID IOE'S */ 00774000 * RFY 0279 00775000 * (REG8, 0279 00776000 * REG11, 0279 00777000 * REG12, 0279 00778000 * REG14) UNRSTD; 0279 00779000 @RF00263 DS 0H 0280 00780000 * 0280 00781000 * /*****************************************************************/ 00782000 * /* */ 00783000 * /* PROCIORB ** VALIDITY CHECK THE IORB IF CHECK-POINTED THEN */ 00784000 * /* INSURE THAT AT LEAST ONE VALID IORB IS ON THE PARTE */ 00785000 * /* CHECK-POINTED IN THE PARMLIST */ 00786000 * /* */ 00787000 * /*****************************************************************/ 00788000 * 0280 00789000 * IF IORBPTR^=0 THEN 0280 00790000 L @12,EPAPARM(,EPAPTR) 0280 00791000 L @12,IORBPTR(,@12) 0280 00792000 LTR @12,@12 0280 00793000 BZ @RF00280 0280 00794000 * DO; /* THE IORB IS CHECK-POINTED, GET 00795000 * IT VALIDITY CHECKED AND 0281 00796000 * REFRESHED */ 00797000 * RFY 0282 00798000 * (REG0, 0282 00799000 * REG15) RSTD; 0282 00800000 * STM(REG2,REG7,REGSVARE); 0283 00801000 STM REG2,REG7,REGSVARE 0283 00802000 * REG0=IORBPTR; 0284 00803000 LR REG0,@12 0284 00804000 * CALL ILRVIORB; 0285 00805000 L @15,@CV02120 0285 00806000 BALR @14,@15 0285 00807000 * LM(REG2,REG7,REGSVARE); 0286 00808000 LM REG2,REG7,REGSVARE 0286 00809000 * IF REG15^=0 THEN 0287 00810000 SLR @14,@14 0287 00811000 CR REG15,@14 0287 00812000 BE @RF00287 0287 00813000 * DO; /* INVALID IORB CONTROL BLOCKS */ 00814000 * IORBPTRS=IORBPTR; /* SAVE IORBPTR FOR LOOP */ 00815000 L @12,EPAPARM(,EPAPTR) 0289 00816000 L IORBPTRS,IORBPTR(,@12) 0289 00817000 * IORBPTR=0; /* GET RID OF IORB ADDR SO IT 0290 00818000 * WILL NOT BE USED AGAIN */ 00819000 * 0290 00820000 ST @14,IORBPTR(,@12) 0290 00821000 * /*********************************************************/ 00822000 * /* */ 00823000 * /* REMOVE THE IORB FORM THE CHAIN ON THE PARTE */ 00824000 * /* */ 00825000 * /*********************************************************/ 00826000 * 0291 00827000 * RFY 0291 00828000 * REG11 RSTD; 0291 00829000 * REG11=PAREIORB; 0292 00830000 L @12,PAREPTR(,@12) 0292 00831000 L REG11,PAREIORB(,@12) 0292 00832000 * IF REG11=0|REG11=IORBPTRS THEN 0293 00833000 CR REG11,@14 0293 00834000 BE @RT00293 0293 00835000 CR REG11,IORBPTRS 0293 00836000 BNE @RF00293 0293 00837000 @RT00293 DS 0H 0294 00838000 * DO; /* NEED A NEW IORB */ 00839000 * PAREIORB=0; 0295 00840000 L @14,EPAPARM(,EPAPTR) 0295 00841000 L @14,PAREPTR(,@14) 0295 00842000 SLR @12,@12 0295 00843000 ST @12,PAREIORB(,@14) 0295 00844000 * CALL NEWIORB; 0296 00845000 BAL @14,NEWIORB 0296 00846000 * GOTO CKIORBOK; /* SEE IF IORB WAS GOTTEN */ 00847000 B CKIORBOK 0297 00848000 * END; /* END FOR NEED A NEW IORB */ 00849000 * ELSE /* THERE IS AN IORB ON THE PARTE 00850000 * BUT THE 1ST ONE IS NOT THE BAD 00851000 * ONE */ 00852000 * DO; /* FIND BAD IORB AND ZERO POINTER 00853000 * TO IT */ 00854000 @RF00293 DS 0H 0300 00855000 * DO WHILE(REG11->IORIORB^=0®11->IORIORB^=IORBPTRS); 00856000 B @DE00300 0300 00857000 @DL00300 DS 0H 0301 00858000 * REG11=REG11->IORIORB; 0301 00859000 L REG11,IORIORB(,REG11) 0301 00860000 * END; /* END DO WHILE */ 00861000 @DE00300 L @14,IORIORB(,REG11) 0302 00862000 LTR @14,@14 0302 00863000 BZ @DC00300 0302 00864000 CR @14,IORBPTRS 0302 00865000 BNE @DL00300 0302 00866000 @DC00300 DS 0H 0303 00867000 * REG11->IORIORB=0; /* MAKE SURE PTR TO BAD IORB IS 00868000 * ZERO */ 00869000 SLR @14,@14 0303 00870000 ST @14,IORIORB(,REG11) 0303 00871000 * GOTO ULKPARTE; /* GO UNLOCK PARTE IF REQUIRED */ 00872000 B ULKPARTE 0304 00873000 * RFY 0305 00874000 * (REG0, 0305 00875000 * REG11, 0305 00876000 * REG15) UNRSTD; 0305 00877000 * END; /* END OF FIND BAD IORB */ 00878000 * END; /* FOR INVALID IORB CONTROL 0307 00879000 * BLOCKS */ 00880000 * ELSE 0308 00881000 * ; /* THE IORB WAS VALID */ 00882000 @RF00287 DS 0H 0309 00883000 * END; /* FOR IORB IS CHECK-POINTED */ 00884000 * ELSE /* THERE IS NO IORB CHECK-POINTED*/ 00885000 * IF(SDWACMPC&CMPCMASK)=ERRIORB THEN/* ABEND FOR IORB ERROR FROM 00886000 * ILRPTM */ 00887000 B @RC00280 0310 00888000 @RF00280 MVC @TS00001(3),SDWACMPC(REG1) 0310 00889000 NC @TS00001(3),@CB02144 0310 00890000 CLC @TS00001(3),@CB02141 0310 00891000 BNE @RF00310 0310 00892000 * DO; /* GET NEW IORB */ 00893000 * CALL NEWIORB; 0312 00894000 BAL @14,NEWIORB 0312 00895000 * GOTO CKIORBOK; 0313 00896000 B CKIORBOK 0313 00897000 * END; /* FOR GET NEW IORB */ 00898000 * ELSE /* NO ERROR HAPPENED */ 00899000 * GOTO ULKPARTE; /* UNLOCK PARTE IF LOCKED */ 00900000 * IF SDWAPARM->ATASRT=BITOFF THEN 0316 00901000 @RC00280 L @12,SDWAPARM(,REG1) 0316 00902000 TM ATASRT(@12),B'00010000' 0316 00903000 BZ @RT00316 0316 00904000 * GOTO CKIORBOK; /* IF SLOT/SORT WAS NOT 0317 00905000 * PROCESSING THERE IS NO CHAIN 00906000 * OF PCCW'S TO PROCESS FOR I/O */ 00907000 * 0318 00908000 * /*****************************************************************/ 00909000 * /* */ 00910000 * /* CHANPCCW: ** SLOT/SORT WAS IN CONTROL, SEE IF THERE ARE PCCW'S*/ 00911000 * /* CHAINED TO THE IORB READY FOR I/O. IF THERE ARE, THE PCCW */ 00912000 * /* ADDRESSED BY PCCWPTR IS REMOVED FROM THE CHAIN AND THE */ 00913000 * /* REMAINING PCCW'S ARE SENT TO IOS */ 00914000 * /* */ 00915000 * /*****************************************************************/ 00916000 * 0318 00917000 * RFY 0318 00918000 * (REG0, 0318 00919000 * REG8, 0318 00920000 * REG5, 0318 00921000 * REG6, 0318 00922000 * REG7) RSTD; 0318 00923000 * 0318 00924000 * /*****************************************************************/ 00925000 * /* */ 00926000 * /* SET UP AND GO VALIDITY CHECK THE CHAIN OF PCCW'S ON THE IORB */ 00927000 * /* */ 00928000 * /*****************************************************************/ 00929000 * 0319 00930000 * REG0=ADDR(IORPCCW); 0319 00931000 L @12,EPAPARM(,EPAPTR) 0319 00932000 L @12,IORBPTR(,@12) 0319 00933000 LA REG0,IORPCCW(,@12) 0319 00934000 * REG8=ADDR(VCKWORK); 0320 00935000 LA REG8,VCKWORK 0320 00936000 * CALL ILRVPCWQ; 0321 00937000 L @15,@CV02118 0321 00938000 BALR @14,@15 0321 00939000 * RFY 0322 00940000 * (REG0, 0322 00941000 * REG8, 0322 00942000 * REG5, 0322 00943000 * REG6, 0322 00944000 * REG7) UNRSTD; 0322 00945000 * 0322 00946000 * /*****************************************************************/ 00947000 * /* */ 00948000 * /* IF THERE WERE VALID PCCW'S LEFT THEN IORPCCW POINTS TO THE */ 00949000 * /* FIRST ONE, OTHERWISE IORPCCW IS ZERO */ 00950000 * /* */ 00951000 * /*****************************************************************/ 00952000 * 0323 00953000 * IF IORPCCW=0 THEN /* THERE ARE NO VALID PCCW'S TO 00954000 * PROCESS */ 00955000 SLR @12,@12 0323 00956000 L @11,EPAPARM(,EPAPTR) 0323 00957000 L @08,IORBPTR(,@11) 0323 00958000 L @05,IORPCCW(,@08) 0323 00959000 CR @05,@12 0323 00960000 BE @RT00323 0323 00961000 * GOTO CKIORBOK; /* CHECK IF IORB IS OK AND UNLOCK 00962000 * THE PARTE @ZA30141*/ 00963000 * 0324 00964000 * /*****************************************************************/ 00965000 * /* */ 00966000 * /* THERE ARE VALID PCCW'S LEFT TO SEND TO IOS, GO DOWN THE */ 00967000 * /* IORPCCW CHAIN TO FIND THE LAST PCCW. IF IT IS = PCCWPTR THEN */ 00968000 * /* REMOVE IT. ELSE LEAVE IT ON THE CHAIN. SAVE A COUNT OF THE */ 00969000 * /* PCCW'S AND THE ADDRESS OF THE LAST ONE */ 00970000 * /* */ 00971000 * /*****************************************************************/ 00972000 * 0325 00973000 * IF IORPCCW=PCCWPTR THEN 0325 00974000 C @05,PCCWPTR(,@11) 0325 00975000 BNE @RF00325 0325 00976000 * DO; 0326 00977000 * IORPCCW=0; 0327 00978000 ST @12,IORPCCW(,@08) 0327 00979000 * GOTO CKIORBOK; /* CHECK IF IORB IS OK AND UNLOCK 00980000 * THE PARTE @ZA30141*/ 00981000 B CKIORBOK 0328 00982000 * END; 0329 00983000 * ELSE 0330 00984000 * DO; /* THERE IS MORE THAN ONE PCCW */ 00985000 @RF00325 DS 0H 0331 00986000 * LASTPCCW=IORPCCW; 0331 00987000 L @12,EPAPARM(,EPAPTR) 0331 00988000 L @12,IORBPTR(,@12) 0331 00989000 L LASTPCCW,IORPCCW(,@12) 0331 00990000 * COUNT=1; 0332 00991000 LA COUNT,1 0332 00992000 * DO WHILE(LASTPCCW->PCCWPCCW^=0&LASTPCCW->PCCWPCCW^=PCCWPTR); 00993000 B @DE00333 0333 00994000 @DL00333 DS 0H 0334 00995000 * LASTPCCW=LASTPCCW->PCCWPCCW; 0334 00996000 L LASTPCCW,PCCWPCCW(,LASTPCCW) 0334 00997000 * COUNT=COUNT+1; 0335 00998000 AH COUNT,@CH00045 0335 00999000 * END; /* FOR DO WHILE */ 01000000 @DE00333 L @12,PCCWPCCW(,LASTPCCW) 0336 01001000 LTR @12,@12 0336 01002000 BZ @DC00333 0336 01003000 L @11,EPAPARM(,EPAPTR) 0336 01004000 C @12,PCCWPTR(,@11) 0336 01005000 BNE @DL00333 0336 01006000 @DC00333 DS 0H 0337 01007000 * LASTPCCW->PCCWPCCW=0; /* MAKE SURE PCCWPTR IS NOT ON 0337 01008000 * THE CHAIN */ 01009000 SLR @12,@12 0337 01010000 ST @12,PCCWPCCW(,LASTPCCW) 0337 01011000 * END; /* FOR THERE IS MORE THAN ONE 0338 01012000 * PCCW */ 01013000 * 0339 01014000 * /*****************************************************************/ 01015000 * /* */ 01016000 * /* AT THIS POINT THERE ARE VALID PCCW'S TO SEND TO IOS. FIX UP */ 01017000 * /* THE LAST PCCW, UPDATE THE PAT MAP, AND ISSUE STARTIO */ 01018000 * /* */ 01019000 * /*****************************************************************/ 01020000 * 0339 01021000 * LASTPCCW->PCCWN='03'X; /* MAKE LAST CCW A NOP */ 01022000 MVI PCCWN(LASTPCCW),X'03' 0339 01023000 * LASTPCCW->PCCWNFG(1)='20'X; /* MAKE SURE NO CHAINING */ 01024000 * 0340 01025000 MVI PCCWNFG(LASTPCCW),X'20' 0340 01026000 * /*****************************************************************/ 01027000 * /* */ 01028000 * /* UPDATE PAT CYLINDER MAP ENTRY */ 01029000 * /* */ 01030000 * /*****************************************************************/ 01031000 * 0341 01032000 * RFY 0341 01033000 * PATCYLMP BASED(EPACYLA); 0341 01034000 * RFY 0342 01035000 * PAT BASED(PAREPATP); 0342 01036000 * RFY 0343 01037000 * (REG0, 0343 01038000 * REG14, 0343 01039000 * REG15) RSTD; 0343 01040000 * IF PATCYLMW=1 THEN 0344 01041000 L @12,EPAPARM(,EPAPTR) 0344 01042000 L @12,PAREPTR(,@12) 0344 01043000 L @12,PAREPATP(,@12) 0344 01044000 CLC PATCYLMW(2,@12),@CH00045 0344 01045000 BNE @RF00344 0344 01046000 * DO; /* ONE WORD PER CYLINDER MAP 0345 01047000 * ENTRY */ 01048000 * REG0=PATCYLMP(1:4); /* GET CURRENT MAP WORD */ 01049000 L @12,EPACYLA(,EPAPTR) 0346 01050000 L REG0,PATCYLMP(,@12) 0346 01051000 *SET1WCYL: 0347 01052000 * REG1=REG0|NEWMAP(1:4); /* ADD IN NEW WRITES */ 01053000 SET1WCYL L @12,EPAWTPAT(,EPAPTR) 0347 01054000 LR REG1,REG0 0347 01055000 O REG1,NEWMAP(,@12) 0347 01056000 * CS(REG0,REG1,PATCYLMP(1:4)); 0348 01057000 L @12,EPACYLA(,EPAPTR) 0348 01058000 CS REG0,@01,PATCYLMP(@12) 0348 01059000 * BC(7,SET1WCYL); 0349 01060000 BC 7,SET1WCYL 0349 01061000 * END; /* FOR ONE WORD */ 01062000 * ELSE 0351 01063000 * DO; /* TWO WORDS PER CYLINDER */ 01064000 B @RC00344 0351 01065000 @RF00344 DS 0H 0352 01066000 * LM(REG0,REG1,PATCYLMP); /* GET CURRENT MAP DWORD */ 01067000 L @12,EPACYLA(,EPAPTR) 0352 01068000 LM REG0,REG1,PATCYLMP(@12) 0352 01069000 *SET2WCYL: 0353 01070000 * REG14=REG0|NEWMAP(1:4); /* ADD IN NEW WRITES */ 01071000 SET2WCYL L @12,EPAWTPAT(,EPAPTR) 0353 01072000 LR REG14,REG0 0353 01073000 O REG14,NEWMAP(,@12) 0353 01074000 * REG15=REG1|NEWMAP(5:8); 0354 01075000 LR REG15,REG1 0354 01076000 O REG15,NEWMAP+4(,@12) 0354 01077000 * CDS(REG0,REG14,PATCYLMP); 0355 01078000 L @12,EPACYLA(,EPAPTR) 0355 01079000 CDS REG0,REG14,PATCYLMP(@12) 0355 01080000 * BC(7,SET2WCYL); 0356 01081000 BC 7,SET2WCYL 0356 01082000 * END; /* FOR TWO WORDS */ 01083000 * 0357 01084000 * /*****************************************************************/ 01085000 * /* */ 01086000 * /* SET UP IORB AND IOSB FOR IOS */ 01087000 * /* */ 01088000 * /*****************************************************************/ 01089000 * 0358 01090000 * RFY 0358 01091000 * IOSB BASED(IORIOSB); 0358 01092000 @RC00344 DS 0H 0359 01093000 * IORAPND=''B; /* CLEAR APPENDAGE FLAGS */ 01094000 L @12,EPAPARM(,EPAPTR) 0359 01095000 L @11,IORBPTR(,@12) 0359 01096000 NI IORAPND(@11),B'11111000' 0359 01097000 * IORRQSZ=COUNT; /* SET NUMBER OF PCCW */ 01098000 STC COUNT,IORRQSZ(,@11) 0360 01099000 * IOSUCB=PAREUCBP; /* GET ADDR UCB */ 01100000 L @11,IORIOSB(,@11) 0361 01101000 L @12,PAREPTR(,@12) 0361 01102000 MVC IOSUCB(4,@11),PAREUCBP(@12) 0361 01103000 * IOSFLA='C0'X; /* COMMAND AND DATA CHAINING */ 01104000 MVI IOSFLA(@11),X'C0' 0362 01105000 * IOSPROC=0; /* MUST BE ZEROED BY THE DRIVER */ 01106000 MVI IOSPROC(@11),X'00' 0363 01107000 * IOSERP=0; 0364 01108000 SLR @08,@08 0364 01109000 ST @08,IOSERP(,@11) 0364 01110000 * IOSIPIB=0; 0365 01111000 ST @08,IOSIPIB(,@11) 0365 01112000 * RFY 0366 01113000 * (REG14, 0366 01114000 * REG15) UNRSTD; 0366 01115000 * 0366 01116000 * /*****************************************************************/ 01117000 * /* */ 01118000 * /* UPDATE SLOTS AVAILABLE IN THE PARTE */ 01119000 * /* */ 01120000 * /*****************************************************************/ 01121000 * 0367 01122000 * REG0=PARESLTA; /* GET CURRENT # OF SLOTS */ 01123000 L REG0,PARESLTA(,@12) 0367 01124000 *DECRSLTA: 0368 01125000 * REG1=REG0-EPAWRTCT; /* SUBTRACT WRITE FROM IT */ 01126000 DECRSLTA LR REG1,REG0 0368 01127000 SH REG1,EPAWRTCT(,EPAPTR) 0368 01128000 * CS(REG0,REG1,PARESLTA); 0369 01129000 L @12,EPAPARM(,EPAPTR) 0369 01130000 L @12,PAREPTR(,@12) 0369 01131000 CS REG0,@01,PARESLTA(@12) 0369 01132000 * BC(7,DECRSLTA); 0370 01133000 * 0370 01134000 BC 7,DECRSLTA 0370 01135000 * /*****************************************************************/ 01136000 * /* */ 01137000 * /* ADD ONE TO NUMBER OF CALLS TO IOS */ 01138000 * /* */ 01139000 * /*****************************************************************/ 01140000 * 0371 01141000 * REG0=ASMIOCNT; 0371 01142000 L REG0,ASMIOCNT(,ASMVTPTR) 0371 01143000 *INCRIOCT: 0372 01144000 * REG1=REG0+1; 0372 01145000 INCRIOCT LA REG1,1 0372 01146000 ALR REG1,REG0 0372 01147000 * CS(REG0,REG1,ASMIOCNT); 0373 01148000 CS REG0,@01,ASMIOCNT(ASMVTPTR) 0373 01149000 * BC(7,INCRIOCT); 0374 01150000 BC 7,INCRIOCT 0374 01151000 * IORTSMP=''B; /* ZERO TIMESTAMP FIELD */ 01152000 L @12,EPAPARM(,EPAPTR) 0375 01153000 L @12,IORBPTR(,@12) 0375 01154000 XC IORTSMP(8,@12),IORTSMP(@12) 0375 01155000 * RFY 0376 01156000 * REG11 RSTD; 0376 01157000 * REG11=ADDR(PARTLOCK); /* SETLOCK REQUIRES ADDR OF LOCK 01158000 * WORD IN REG 11 */ 01159000 * 0377 01160000 L REG11,ASMPART(,ASMVTPTR) 0377 01161000 LA REG11,PARTLOCK(,REG11) 0377 01162000 * /*****************************************************************/ 01163000 * /* */ 01164000 * /* RELEASE THE ASM CLASS LOCK BEFORE ISSUING STARTIO */ 01165000 * /* */ 01166000 * /*****************************************************************/ 01167000 * 0378 01168000 * GEN REFS(PSALITA,FLC) SETS(REG11,REG12,REG13,REG14); 0378 01169000 RELCLASS SETLOCK RELEASE,TYPE=ASM,ADDR=(11), *01170000 RELATED=(WRITEQUE(ILRSRT01(GETCLASS))) 01171000 * REG13=ADDR(REGSVARE); /* REG13 WAS DESTROYED BY SETLOCK*/ 01172000 LA REG13,REGSVARE 0379 01173000 * STM(REG2,REG12,REGSVARE); /* SAVE REGS AROUND STARTIO MACRO*/ 01174000 STM REG2,REG12,REGSVARE 0380 01175000 * REG1=IOSSRB; 0381 01176000 L @12,EPAPARM(,EPAPTR) 0381 01177000 L @08,IORBPTR(,@12) 0381 01178000 L @08,IORIOSB(,@08) 0381 01179000 L REG1,IOSSRB(,@08) 0381 01180000 * IORBPTR=0; /* DO NOT FREE THE IORB AFTER 0382 01181000 * STARTIO */ 01182000 SLR @08,@08 0382 01183000 ST @08,IORBPTR(,@12) 0382 01184000 * GEN REFS(CVTPTR,CVTMAP,CVTIXAVL,IOCOM,IOCSTIO); 0383 01185000 STARTIO SRB=(1) 01186000 * LM(REG2,REG12,REGSVARE); 0384 01187000 LM REG2,REG12,REGSVARE 0384 01188000 * RFY 0385 01189000 * (REG0, 0385 01190000 * REG11) UNRSTD; 0385 01191000 *CKIORBOK: /* IS THERE STILL AN IORB ON THE 01192000 * PARTE */ 01193000 * IF PAREIORB^=0 THEN 0386 01194000 CKIORBOK SLR @12,@12 0386 01195000 L @11,EPAPARM(,EPAPTR) 0386 01196000 L @08,PAREPTR(,@11) 0386 01197000 C @12,PAREIORB(,@08) 0386 01198000 BE @RF00386 0386 01199000 * DO; /* PARTE HAS AN IORB */ 01200000 * IF IORBPTR^=0 THEN /* FREE THE IORB */ 01201000 L @11,IORBPTR(,@11) 0388 01202000 CR @11,@12 0388 01203000 BE @RF00388 0388 01204000 * IORFUSE=BITOFF; 0389 01205000 NI IORFUSE(@11),B'01111111' 0389 01206000 * ELSE 0390 01207000 * ; 0390 01208000 @RF00388 DS 0H 0391 01209000 *ULKPARTE: /* DID CURRENT PART MONITOR LOCK 01210000 * THE PARTE */ 01211000 * IF EPACPUID=PARECPCT THEN 0391 01212000 ULKPARTE L @12,EPAPARM(,EPAPTR) 0391 01213000 L @12,PAREPTR(,@12) 0391 01214000 CLC EPACPUID(2,EPAPTR),PARECPCT(@12) 0391 01215000 BNE @RF00391 0391 01216000 * DO; /* CURRENT PART MON. LOCKED THE 01217000 * PARTE */ 01218000 * PARENODE=ABS(SPARENOD); /* PARENODE COULD BE NEGATIVE */ 01219000 L @11,SPARENOD(,@12) 0393 01220000 LPR @11,@11 0393 01221000 ST @11,PARENODE(,@12) 0393 01222000 * RFY 0394 01223000 * (REG0) RSTD; 0394 01224000 * REG1=PARELKUP; 0395 01225000 L REG1,PARELKUP(,@12) 0395 01226000 *UNLK: 0396 01227000 * REG0=REG1&&PAREFSPC; /* SET PAREFSIP = 0 */ 01228000 UNLK LR REG0,REG1 0396 01229000 X REG0,@CF01278 0396 01230000 * CS(REG1,REG0,PARELKUP); 0397 01231000 L @12,EPAPARM(,EPAPTR) 0397 01232000 L @12,PAREPTR(,@12) 0397 01233000 CS REG1,@00,PARELKUP(@12) 0397 01234000 * BC(7,UNLK); 0398 01235000 BC 7,UNLK 0398 01236000 * END; /* FOR CURRENT PART MON */ 01237000 * END; /* FOR PARTE HAS AN IORB */ 01238000 @RF00391 DS 0H 0401 01239000 *RESCHED: 0401 01240000 * 0401 01241000 * /*****************************************************************/ 01242000 * /* */ 01243000 * /* RESCHEDULE PART MONITOR */ 01244000 * /* */ 01245000 * /*****************************************************************/ 01246000 * 0401 01247000 * REG0=0; /* IF NOT RUNNING COUNT IS ZERO */ 01248000 @RF00386 DS 0H 0401 01249000 RESCHED SLR REG0,REG0 0401 01250000 * REG1=1; 0402 01251000 LA REG1,1 0402 01252000 * CS(REG0,REG1,ASMSRBCT); /* SET COUNT = 1 */ 01253000 CS REG0,@01,ASMSRBCT(ASMVTPTR) 0403 01254000 * BC(7,PTMRUNNG); /* IF FAILURE IT'S ALREADY 0404 01255000 * RUNNING */ 01256000 BC 7,PTMRUNNG 0404 01257000 * REG1=ASMPSRB; /* GET ADDR OF SRB FOR PTM */ 01258000 L REG1,ASMPSRB(,ASMVTPTR) 0405 01259000 * GEN REFS(CVTGSMQ,SRBFLNK,SRBSECT); 0406 01260000 SCHEDULE SRB=(1),SCOPE=GLOBAL 01261000 *PTMRUNNG: 0407 01262000 * IF EPAPTR^=0 THEN /* COULD COME HERE WITHOUT AN 0407 01263000 * EPATH */ 01264000 PTMRUNNG SLR @12,@12 0407 01265000 CR EPAPTR,@12 0407 01266000 BE @RF00407 0407 01267000 * DO; 0408 01268000 * IF EPAMSPAD^=0 THEN 0409 01269000 L @11,EPAMSPAD(,EPAPTR) 0409 01270000 CR @11,@12 0409 01271000 BE @RF00409 0409 01272000 * DO; /* PTM FAILED BEFORE WRITING 0410 01273000 * DSFULL MSG */ 01274000 * 0410 01275000 * /*********************************************************/ 01276000 * /* */ 01277000 * /* SET BITS FOR DSFULL CONDITION */ 01278000 * /* */ 01279000 * /*********************************************************/ 01280000 * 0411 01281000 * IF MSGNUM=5 THEN /* MSG ILR005I REQUESTED */ 01282000 CLC MSGNUM(2,@11),@CH00976 0411 01283000 BNE @RF00411 0411 01284000 * ASMPLPAF=BITON; /* PLPA FILLED */ 01285000 OI ASMPLPAF(ASMVTPTR),B'00000100' 0412 01286000 * ELSE 0413 01287000 * IF MSGNUM=6 THEN /* MSG ILR006I REQUESTED */ 01288000 B @RC00411 0413 01289000 @RF00411 L @12,EPAMSPAD(,EPAPTR) 0413 01290000 CLC MSGNUM(2,@12),@CH01120 0413 01291000 BNE @RF00413 0413 01292000 * ASMCOMMF=BITON; /* COMMON FILLED */ 01293000 OI ASMCOMMF(ASMVTPTR),B'00000010' 0414 01294000 * ELSE 0415 01295000 * IF MSGNUM=7 THEN /* MSG ILR007I REQUESTED */ 01296000 B @RC00413 0415 01297000 @RF00413 L @12,EPAMSPAD(,EPAPTR) 0415 01298000 CLC MSGNUM(2,@12),@CH01125 0415 01299000 BNE @RF00415 0415 01300000 * DO; 0416 01301000 * ASMDUPLX=BITOFF;/* DUPLEX IS SUSPENDED */ 01302000 * ASMNODPX=BITON; 0418 01303000 OI ASMNODPX(ASMVTPTR),B'00001000' 0418 01304000 NI ASMDUPLX(ASMVTPTR),B'01111111' 0418 01305000 * END; 0419 01306000 * ELSE 0420 01307000 * IF MSGNUM=10 THEN /* WAS MSG ILR010I REQUESTED */ 01308000 B @RC00415 0420 01309000 @RF00415 L @12,EPAMSPAD(,EPAPTR) 0420 01310000 CLC MSGNUM(2,@12),@CH02213 0420 01311000 BNE @RF00420 0420 01312000 * DO; /* YES, WAS IT PLPA OR COMMON 0421 01313000 * THAT FILLED */ 01314000 * IF MSGCBADR->PAREPLPA=BITON THEN/* IT WAS PLPA */ 01315000 L @12,MSGCBADR(,@12) 0422 01316000 TM PAREPLPA(@12),B'10000000' 0422 01317000 BNO @RF00422 0422 01318000 * ASMPLPAF=BITON;/* SET PLPA FULL BIT ON */ 01319000 OI ASMPLPAF(ASMVTPTR),B'00000100' 0423 01320000 * ELSE /* IT HAD TO BE COMMON */ 01321000 * ASMCOMMF=BITON;/* SET COMMON FULL BIT ON */ 01322000 B @RC00422 0424 01323000 @RF00422 OI ASMCOMMF(ASMVTPTR),B'00000010' 0424 01324000 * END; /* FOR WAS IT PLPA OR COMMON */ 01325000 @RC00422 DS 0H 0426 01326000 * REG1=EPAMSPAD; 0426 01327000 @RF00420 DS 0H 0426 01328000 @RC00415 DS 0H 0426 01329000 @RC00413 DS 0H 0426 01330000 @RC00411 L REG1,EPAMSPAD(,EPAPTR) 0426 01331000 * CALL ILRMSG00; /* ISSUE MSG THAT PTM WANTED TO 01332000 * ISSUE */ 01333000 L @15,ASMPMSG0(,ASMVTPTR) 0427 01334000 BALR @14,@15 0427 01335000 * END; /* FOR PTM FAILED */ 01336000 * ELSE 0429 01337000 * ; /* PTM DID NOT FAIL IN DSFULL 0429 01338000 * ROUTINE */ 01339000 @RF00409 DS 0H 0430 01340000 * IF PCCWPTR^=0&BADPCCW=BITOFF THEN 0430 01341000 L @12,EPAPARM(,EPAPTR) 0430 01342000 L @12,PCCWPTR(,@12) 0430 01343000 LTR @12,@12 0430 01344000 BZ @RF00430 0430 01345000 TM BADPCCW,B'10000000' 0430 01346000 BNZ @RF00430 0430 01347000 * DO; /* THERE IS A PCCW TO RETURN */ 01348000 * RFY 0432 01349000 * (REG11, 0432 01350000 * REG12) RSTD; 0432 01351000 * REG12=PCCWPTR; 0433 01352000 L @08,EPAPARM(,EPAPTR) 0433 01353000 L @08,PCCWPTR(,@08) 0433 01354000 LR REG12,@08 0433 01355000 * REG11=ASMPCCWA; 0434 01356000 L REG11,ASMPCCWA(,ASMVTPTR) 0434 01357000 *CSLOOP4: 0435 01358000 * REG12->PCCWPCCW=REG11; 0435 01359000 CSLOOP4 ST REG11,PCCWPCCW(,REG12) 0435 01360000 * CS(REG11,REG12,ASMPCCWA); 0436 01361000 CS REG11,@12,ASMPCCWA(ASMVTPTR) 0436 01362000 * BC(7,CSLOOP4); 0437 01363000 BC 7,CSLOOP4 0437 01364000 * RFY 0438 01365000 * (REG11, 0438 01366000 * REG12) UNRSTD; 0438 01367000 * END; /* FOR THERE IS A PCCW TO RETURN */ 01368000 * END; /* THERE IS AN EPATH */ 01369000 @RF00430 DS 0H 0441 01370000 * RFY 0441 01371000 * REG14 RSTD; 0441 01372000 @RF00407 DS 0H 0442 01373000 * REG14=SAVE14; 0442 01374000 L REG14,SAVE14 0442 01375000 * RETURN; 0443 01376000 @EL00001 DS 0H 0443 01377000 @EF00001 DS 0H 0443 01378000 @ER00001 BR @14 0443 01379000 *NEWIORB: 0444 01380000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0444 01381000 * 0444 01382000 NEWIORB DS 0H 0445 01383000 * /*****************************************************************/ 01384000 * /* */ 01385000 * /* THIS ROUTINE ISSUES A GETMAIN FOR THE IORB,IOSB,SRB CONTROL */ 01386000 * /* BLOCK COMBINATION. IF SUCCESSFUL THEY ARE CONSTRUCTED AND THE */ 01387000 * /* IORB IS ANCHORED IN THE PARTE. IF THE GETMAIN IS NOT */ 01388000 * /* SUCCESSFUL THE PARENUSE BIT IS TURNED ON AND MESSAGE ILR009I */ 01389000 * /* IS ISSUED */ 01390000 * /* */ 01391000 * /*****************************************************************/ 01392000 * 0445 01393000 * SAVERTN=REG14; 0445 01394000 LR SAVERTN,REG14 0445 01395000 * RFY 0446 01396000 * REG14 UNRSTD; 0446 01397000 * RFY 0447 01398000 * REG11 RSTD; 0447 01399000 * REG11=ADDR(PARTLOCK); 0448 01400000 * 0448 01401000 L REG11,ASMPART(,ASMVTPTR) 0448 01402000 LA REG11,PARTLOCK(,REG11) 0448 01403000 * /*****************************************************************/ 01404000 * /* */ 01405000 * /* RELEASE THE ASM CLASS LOCK IF WE HAVE IT AND GET INTO DISABLED*/ 01406000 * /* MODE FOR FRR SERIALIZATION UNTIL WE GET THE SALLOC LOCK */ 01407000 * /* */ 01408000 * /*****************************************************************/ 01409000 * 0449 01410000 * GEN; 0449 01411000 SETLOCK RELEASE,TYPE=ASM,ADDR=(11),DISABLED, *01412000 RELATED=(WRTQUEUE(ILRSRT01(GETCLASS))) 01413000 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, *01414000 RELATED=(CSA(ILRSRT01(SRTRETP))) 01415000 * REG13=ADDR(REGSVARE); 0450 01416000 LA REG13,REGSVARE 0450 01417000 * STM(REG2,REG7,REGSVARE); 0451 01418000 STM REG2,REG7,REGSVARE 0451 01419000 * RFY 0452 01420000 * (REG0, 0452 01421000 * REG4, 0452 01422000 * REG7, 0452 01423000 * REG15) RSTD; 0452 01424000 * REG0=LENGTH(BLOCKS); 0453 01425000 LA REG0,272 0453 01426000 * GEN SETS(REG0,REG1) REFS(CVTSPSA,WSAG,WSAGGMFM,CVTGLMN); 0454 01427000 GETMAIN BRANCH=(YES,GLOBAL),RC,LV=(0),SP=245 01428000 * RFY 0455 01429000 * REG11 UNRSTD; 0455 01430000 * LM(REG2,REG7,REGSVARE); 0456 01431000 LM REG2,REG7,REGSVARE 0456 01432000 * IF REG15^=0 THEN 0457 01433000 SLR @14,@14 0457 01434000 CR REG15,@14 0457 01435000 BE @RF00457 0457 01436000 * DO; /* THE STORAGE WAS NOT OBTAINED */ 01437000 * PARENUSE=BITON; /* LET MAIN LINE KNOW THAT PARTE 01438000 * SHOULD NOT BE USED */ 01439000 * 0459 01440000 L @12,EPAPARM(,EPAPTR) 0459 01441000 L @12,PAREPTR(,@12) 0459 01442000 OI PARENUSE(@12),B'10000000' 0459 01443000 * /*************************************************************/ 01444000 * /* */ 01445000 * /* SET UP PARM LIST FOR ILRMSG00 */ 01446000 * /* */ 01447000 * /*************************************************************/ 01448000 * 0460 01449000 * MSGNO=0; /* MSG ILR009I REQUESTED */ 01450000 STH @14,MSGNO 0460 01451000 * MSGPAGE=0; 0461 01452000 STH @14,MSGPAGE 0461 01453000 * MSGPARTE=PAREPTR; /* MOVE IN PTR TO THE PARTE */ 01454000 ST @12,MSGPARTE 0462 01455000 * REG1=ADDR(MSGLIST); 0463 01456000 LA REG1,MSGLIST 0463 01457000 * CALL ILRMSG00; /* GO ISSUE THE MESSAGE */ 01458000 L @15,ASMPMSG0(,ASMVTPTR) 0464 01459000 BALR @14,@15 0464 01460000 * IF PARELOCL=BITON THEN 0465 01461000 L @14,EPAPARM(,EPAPTR) 0465 01462000 L @14,PAREPTR(,@14) 0465 01463000 TM PARELOCL(@14),B'00010000' 0465 01464000 BNO @RF00465 0465 01465000 * DO; /* LOCAL PARTE SO SUBTRACT ITS 0466 01466000 * SLOTS FROM TOTAL AVAILABLE */ 01467000 * RFY 0467 01468000 * (REG11, 0467 01469000 * REG12, 0467 01470000 * REG6, 0467 01471000 * REG7, 0467 01472000 * REG14) RSTD; 0467 01473000 * REG11=ASMSLOTS; 0468 01474000 L REG11,ASMSLOTS(,ASMVTPTR) 0468 01475000 *CSLOOP6: 0469 01476000 * REG12=REG11-PARESZSL; 0469 01477000 CSLOOP6 L @05,EPAPARM(,EPAPTR) 0469 01478000 L @05,PAREPTR(,@05) 0469 01479000 LR REG12,REG11 0469 01480000 SL REG12,PARESZSL(,@05) 0469 01481000 * CS(REG11,REG12,ASMSLOTS); 0470 01482000 CS REG11,@12,ASMSLOTS(ASMVTPTR) 0470 01483000 * BC(7,CSLOOP6); 0471 01484000 BC 7,CSLOOP6 0471 01485000 * END; /* LOCAL PARTE */ 01486000 * END; /* STORAGE NOT OBTAINED */ 01487000 * ELSE /* STORAGE WAS OBTAINED */ 01488000 * DO; /* BUILD THE CONTROL BLOCKS */ 01489000 B @RC00457 0474 01490000 @RF00457 DS 0H 0475 01491000 * RFY 0475 01492000 * BLOCKS BASED(REG1); 0475 01493000 * REG6=REG1; /* GET THE STORAGE ADDR */ 01494000 LR REG6,REG1 0476 01495000 * REG7=LENGTH(BLOCKS); /* SET LENGTH FOR MVCL 0477 01496000 * INSTRUCTION */ 01497000 LA REG7,272 0477 01498000 * MVCL(REG6,REG14); /* CLEAR THE STORAGE. REG15 IS 0478 01499000 * ZERO FROM THE GETMAIN AND 0478 01500000 * REG14 DOES NOT MATTER FOR THIS 01501000 * TYPE OF MVCL */ 01502000 MVCL REG6,REG14 0478 01503000 * RFY 0479 01504000 * (REG6, 0479 01505000 * REG7, 0479 01506000 * REG11, 0479 01507000 * REG12, 0479 01508000 * REG15) UNRSTD; 0479 01509000 * RFY 0480 01510000 * IORB BASED(ADDR(NIORB)); 0480 01511000 * RFY 0481 01512000 * IOSB BASED(ADDR(NIOSB)); 0481 01513000 * RFY 0482 01514000 * SRBSECT BASED(ADDR(NSRB)); 0482 01515000 * 0482 01516000 * /*************************************************************/ 01517000 * /* */ 01518000 * /* SET UP FIELDS SO ILRVIORB WILL REFRESH THE CONTROL BLOCKS.*/ 01519000 * /* ILRVIORB WILL TEST THESE FIELDS THEN COMPLETE THE BUILDING*/ 01520000 * /* OF THE IORB, IOSB, AND SRB. THE RETURN CODE IS NOT TESTED */ 01521000 * /* IN THIS CASE SINCE THE CONTROL BLOCKS SHOULD VERIFY */ 01522000 * /* */ 01523000 * /*************************************************************/ 01524000 * 0483 01525000 * IORID='88'X; /* IORB ID */ 01526000 MVI IORID(REG1),X'88' 0483 01527000 * IORPARTE=PAREPTR; /* PARTE PTR TO IORB */ 01528000 L @15,EPAPARM(,EPAPTR) 0484 01529000 MVC IORPARTE(4,REG1),PAREPTR(@15) 0484 01530000 * IOSASID='0001'X; /* MASTER SCHEDULER ASID TO IOSB */ 01531000 LA @15,112 0485 01532000 ALR @15,REG1 0485 01533000 MVC IOSASID(2,@15),@CB02230 0485 01534000 * IOSDVRID=IOSMISID; /* DRIVER ID TO IOSB */ 01535000 MVI IOSDVRID(@15),X'01' 0486 01536000 * REG0=REG1; 0487 01537000 LR REG0,REG1 0487 01538000 * REG1=SDWAPTR; 0488 01539000 L REG1,SDWAPTR 0488 01540000 * STM(REG2,REG7,REGSVARE); 0489 01541000 STM REG2,REG7,REGSVARE 0489 01542000 * CALL ILRVIORB; 0490 01543000 L @15,@CV02120 0490 01544000 BALR @14,@15 0490 01545000 * LM(REG2,REG7,REGSVARE); 0491 01546000 LM REG2,REG7,REGSVARE 0491 01547000 * PAREIORB=REG0; /* PUT ADDR OF NEW IORB IN PARTE */ 01548000 L @15,EPAPARM(,EPAPTR) 0492 01549000 L @15,PAREPTR(,@15) 0492 01550000 ST REG0,PAREIORB(,@15) 0492 01551000 * END; /* STORAGE WAS OBTAINED */ 01552000 * REG1=SDWAPTR; /* REG1 WAS DESTROYED */ 01553000 @RC00457 L REG1,SDWAPTR 0494 01554000 * RFY 0495 01555000 * REG14 RSTD; 0495 01556000 * REG14=SAVERTN; 0496 01557000 LR REG14,SAVERTN 0496 01558000 * END NEWIORB; 0497 01559000 @EL00002 DS 0H 0497 01560000 @EF00002 DS 0H 0497 01561000 @ER00002 BR @14 0497 01562000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01563000 * GPR00P PTR(31) REG(0), 0498 01564000 * GPR01P PTR(31) REG(1), 0498 01565000 * GPR14P PTR(31) REG(14), 0498 01566000 * GPR15P PTR(31) REG(15); 0498 01567000 * DECLARE /* COMMON VARIABLES */ 01568000 * I256C CHAR(256) BASED, 0499 01569000 * I031F FIXED(31) BASED, 0499 01570000 * I031P PTR(31) BASED, 0499 01571000 * I015F FIXED(15) BASED, 0499 01572000 * I015P PTR(15) BASED, 0499 01573000 * I008P PTR(8) BASED, 0499 01574000 * I001C CHAR(1) BASED; 0499 01575000 * END ILRSRT01 0500 01576000 * 0500 01577000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01578000 */*%INCLUDE SYSLIB (ILRAIA ) */ 01579000 */*%INCLUDE SYSLIB (ILRASMVT) */ 01580000 */*%INCLUDE SYSLIB (ILRATA ) */ 01581000 */*%INCLUDE SYSLIB (CVT ) */ 01582000 */*%INCLUDE SYSLIB (IDAEDB ) */ 01583000 */*%INCLUDE SYSLIB (ILREPATH) */ 01584000 */*%INCLUDE SYSLIB (IECDIOCM) */ 01585000 */*%INCLUDE SYSLIB (ILRIOE ) */ 01586000 */*%INCLUDE SYSLIB (ILRIORB ) */ 01587000 */*%INCLUDE SYSLIB (IECDIOSB) */ 01588000 */*%INCLUDE SYSLIB (ILRPART ) */ 01589000 */*%INCLUDE SYSLIB (ILRPAT ) */ 01590000 */*%INCLUDE SYSLIB (ILRPCCW ) */ 01591000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01592000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01593000 */*%INCLUDE SYSLIB (IHASRB ) */ 01594000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 01595000 * 0500 01596000 * ; 0500 01597000 @DATA DS 0H 01598000 @CH00045 DC H'1' 01599000 @CH00976 DC H'5' 01600000 @CH01120 DC H'6' 01601000 @CH01125 DC H'7' 01602000 @CH02213 DC H'10' 01603000 @CH01042 DC H'40' 01604000 @CH02039 DC H'108' 01605000 @SM02244 MVC SDWAVRA-1(0,@05),IDAEDB+16(@15) 01606000 @DATD DSECT 01607000 DS 0F 01608000 ILRSRT01 CSECT 01609000 DS 0F 01610000 @CF01278 DC XL4'80000000' 01611000 @DATD DSECT 01612000 DS 0D 01613000 SDWAPTR DS A 01614000 SAVE14 DS A 01615000 @TS00001 DS CL3 01616000 DS CL1 01617000 REGSVARE DS CL72 01618000 VCKWORK DS CL92 01619000 ORG VCKWORK 01620000 MSGLIST DS CL8 01621000 ORG MSGLIST 01622000 MSGNO DS FL2 01623000 MSGPAGE DS FL2 01624000 MSGPARTE DS AL4 01625000 ORG VCKWORK+92 01626000 BADPCCW DS BL1 01627000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01628000 @ENDDATD EQU * 01629000 ILRSRT01 CSECT 01630000 NOPR ((@ENDDATD-@DATD)/201*16) 01631000 DS 0F 01632000 @SIZDATD DC AL1(0) 01633000 DC AL3(@ENDDATD-@DATD) 01634000 @CV02114 DC V(ILRVIOE) 01635000 @CV02115 DC V(ILRVAIA) 01636000 @CV02116 DC V(ILRVIOEQ) 01637000 @CV02118 DC V(ILRVPCWQ) 01638000 @CV02119 DC V(ILRVPCCW) 01639000 @CV02120 DC V(ILRVIORB) 01640000 DS 0D 01641000 @CC02146 DC C'ILRSRT ' 01642000 @CB02139 DC X'083000' 01643000 @CB02141 DC X'084000' 01644000 @CB02144 DC X'FFF000' 01645000 @CB02230 DC X'0001' 01646000 RECNAMES DS CL24 01647000 ORG RECNAMES 01648000 @NM00108 DC CL8'ILRPTM ' 01649000 @NM00109 DC CL8'ILRPTM ' 01650000 @NM00110 DC CL8'ILRSRT01' 01651000 ORG RECNAMES+24 01652000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01653000 @01 EQU 01 01654000 @02 EQU 02 01655000 @03 EQU 03 01656000 @04 EQU 04 01657000 @05 EQU 05 01658000 @06 EQU 06 01659000 @07 EQU 07 01660000 @08 EQU 08 01661000 @09 EQU 09 01662000 @10 EQU 10 01663000 @11 EQU 11 01664000 @12 EQU 12 01665000 @13 EQU 13 01666000 @14 EQU 14 01667000 @15 EQU 15 01668000 SAVERTN EQU @08 01669000 IORBPTRS EQU @02 01670000 LASTPCCW EQU @02 01671000 COUNT EQU @05 01672000 BASEREG EQU @10 01673000 ASMVTPTR EQU @03 01674000 EPAPTR EQU @04 01675000 REG0 EQU @00 01676000 REG1 EQU @01 01677000 REG2 EQU @02 01678000 REG4 EQU @04 01679000 REG5 EQU @05 01680000 REG6 EQU @06 01681000 REG7 EQU @07 01682000 REG8 EQU @08 01683000 PTR@DATD EQU @09 01684000 REG11 EQU @11 01685000 REG12 EQU @12 01686000 REG13 EQU @13 01687000 REG14 EQU @14 01688000 REG15 EQU @15 01689000 R0 EQU @00 01690000 R1 EQU @01 01691000 R14 EQU @14 01692000 R15 EQU @15 01693000 GPR00P EQU @00 01694000 GPR01P EQU @01 01695000 GPR14P EQU @14 01696000 GPR15P EQU @15 01697000 PSA EQU 0 01698000 FLCRNPSW EQU PSA 01699000 FLCROPSW EQU PSA+8 01700000 FLCICCW2 EQU PSA+16 01701000 FLCCVT EQU FLCICCW2 01702000 PSAEEPSW EQU PSA+132 01703000 PSAESPSW EQU PSA+136 01704000 FLCSVILC EQU PSAESPSW+1 01705000 PSAEPPSW EQU PSA+140 01706000 FLCPIILC EQU PSAEPPSW+1 01707000 FLCPICOD EQU PSAEPPSW+2 01708000 PSAPICOD EQU FLCPICOD+1 01709000 FLCTEA EQU PSAEPPSW+4 01710000 FLCPER EQU PSA+152 01711000 FLCMCLA EQU PSA+168 01712000 FLCIOEL EQU FLCMCLA+4 01713000 FLCIOA EQU FLCMCLA+16 01714000 FLCFSA EQU FLCMCLA+80 01715000 PSASUPER EQU PSA+552 01716000 PSASUP1 EQU PSASUPER 01717000 PSASUP2 EQU PSASUPER+1 01718000 PSASUP3 EQU PSASUPER+2 01719000 PSASUP4 EQU PSASUPER+3 01720000 PSACLHT EQU PSA+640 01721000 PSALKSA EQU PSA+696 01722000 PSAHLHI EQU PSA+760 01723000 PSALITA EQU PSA+764 01724000 PSADSSFL EQU PSA+836 01725000 PSADSSF1 EQU PSADSSFL 01726000 PSADSSF3 EQU PSADSSFL+2 01727000 PSADSSF4 EQU PSADSSFL+3 01728000 PSARSVT EQU PSA+896 01729000 AIA EQU 0 01730000 AIAFLG1 EQU AIA+9 01731000 AIAWRITE EQU AIAFLG1 01732000 AIADUPLX EQU AIAFLG1 01733000 AIAFLG2 EQU AIA+10 01734000 AIAPRIER EQU AIAFLG2 01735000 AIASECER EQU AIAFLG2 01736000 AIAFLG3 EQU AIA+11 01737000 AIANXAIA EQU AIA+12 01738000 AIAID EQU AIA+16 01739000 AIALPID EQU AIAID 01740000 AIALGID EQU AIALPID 01741000 AIALSID EQU AIALGID 01742000 AIASSID EQU AIALSID+1 01743000 AIARPN EQU AIALPID+4 01744000 AIALSID2 EQU AIARPN 01745000 AIALPMEP EQU AIALSID2 01746000 AIAGRPSZ EQU AIA+24 01747000 AIALGE EQU AIAGRPSZ 01748000 ASMVT EQU 0 01749000 ASMFLAG1 EQU ASMVT 01750000 ASMDUPLX EQU ASMFLAG1 01751000 ASMNODPX EQU ASMFLAG1 01752000 ASMPLPAF EQU ASMFLAG1 01753000 ASMCOMMF EQU ASMFLAG1 01754000 ASMFLAG2 EQU ASMVT+1 01755000 ASMPART EQU ASMVT+8 01756000 ASMSTAGQ EQU ASMVT+32 01757000 ASMPCCWQ EQU ASMVT+64 01758000 ASMPCCWA EQU ASMPCCWQ 01759000 ASMIOCNT EQU ASMVT+80 01760000 ASMSRBCT EQU ASMVT+84 01761000 ASMPSRB EQU ASMVT+88 01762000 ASMSLOTS EQU ASMVT+112 01763000 ASMLSAI EQU ASMVT+144 01764000 ASMGOSQS EQU ASMVT+152 01765000 ASMPEX EQU ASMVT+224 01766000 ASMPMSG0 EQU ASMVT+260 01767000 ASMIOEPC EQU ASMVT+296 01768000 ASMWKSA1 EQU ASMVT+368 01769000 ASMWKSA2 EQU ASMVT+448 01770000 ASMWKSA3 EQU ASMVT+528 01771000 ASMWKSA4 EQU ASMVT+608 01772000 ASMWKSA5 EQU ASMVT+688 01773000 ASMPOOLS EQU 0 01774000 ASMCPAVQ EQU ASMPOOLS+8 01775000 ASMCPAVL EQU ASMCPAVQ 01776000 ASMCPRSQ EQU ASMPOOLS+16 01777000 ATA EQU 0 01778000 ATASFLGS EQU ATA+1 01779000 ATASRT EQU ATASFLGS+1 01780000 ATARFLGS EQU ATA+4 01781000 ATARCRSN EQU ATA+6 01782000 ATACLEAR EQU ATA+8 01783000 ATAEPATH EQU ATACLEAR+4 01784000 CVTMAP EQU 0 01785000 CVTDAR EQU CVTMAP+72 01786000 CVTFLGS1 EQU CVTDAR 01787000 CVTDCB EQU CVTMAP+116 01788000 CVTIOQET EQU CVTMAP+120 01789000 CVTIXAVL EQU CVTMAP+124 01790000 CVTIERLC EQU CVTMAP+144 01791000 CVTHEAD EQU CVTMAP+160 01792000 CVTSV76C EQU CVTHEAD 01793000 CVTOPTA EQU CVTMAP+182 01794000 CVTOPTB EQU CVTMAP+183 01795000 CVTGTF EQU CVTMAP+236 01796000 CVTGTFST EQU CVTGTF 01797000 CVTGTFS EQU CVTGTFST 01798000 CVTSTATE EQU CVTGTFST 01799000 CVTTMODE EQU CVTGTFST 01800000 CVTFORM EQU CVTGTFST 01801000 CVTAQAVT EQU CVTMAP+240 01802000 CVTTCMFG EQU CVTAQAVT 01803000 CVTVOLM2 EQU CVTMAP+244 01804000 CVTTATA EQU CVTVOLM2 01805000 CVTTSKS EQU CVTTATA 01806000 CVTVOLF2 EQU CVTTSKS 01807000 CVTTAT EQU CVTTATA+1 01808000 CVTATER EQU CVTMAP+248 01809000 CVTEXT1 EQU CVTMAP+252 01810000 CVTPURG EQU CVTMAP+260 01811000 CVTQMSG EQU CVTMAP+268 01812000 CVTDMSR EQU CVTMAP+272 01813000 CVTRSV37 EQU CVTDMSR 01814000 CVTDMSRF EQU CVTRSV37 01815000 CVTERPV EQU CVTMAP+316 01816000 CVTINTLA EQU CVTMAP+320 01817000 CVTAPF EQU CVTMAP+324 01818000 CVTEXT2 EQU CVTMAP+328 01819000 CVTHJES EQU CVTMAP+332 01820000 CVTPGSIA EQU CVTMAP+348 01821000 CVTA1F1 EQU CVTMAP+356 01822000 CVTSYSK EQU CVTMAP+357 01823000 CVTVOLM1 EQU CVTMAP+380 01824000 CVTVOLF1 EQU CVTVOLM1 01825000 CVTATMCT EQU CVTMAP+388 01826000 CVTXTNT1 EQU 0 01827000 CVTXTNT2 EQU 0 01828000 CVTDSSV EQU CVTXTNT2 01829000 CVTFLGBT EQU CVTXTNT2+5 01830000 CVTQID EQU CVTXTNT2+24 01831000 CVTRV400 EQU CVTXTNT2+52 01832000 CVTRV409 EQU CVTXTNT2+53 01833000 CVTATCVT EQU CVTXTNT2+64 01834000 CVTRV429 EQU CVTXTNT2+84 01835000 CVTRV438 EQU CVTXTNT2+85 01836000 CVTRV457 EQU CVTXTNT2+112 01837000 CVTRV466 EQU CVTXTNT2+113 01838000 CVTFIX EQU 0 01839000 CVTRELNO EQU CVTFIX+252 01840000 IDAEDBHD EQU 0 01841000 IDAEDB EQU 0 01842000 EDBFLG1 EQU IDAEDB+2 01843000 EPATH EQU 0 01844000 EPAPARM EQU EPATH 01845000 EPAIOEIP EQU EPATH+4 01846000 EPAIOEQP EQU EPATH+8 01847000 EPAFFIOE EQU EPATH+12 01848000 EPAWRTQ EQU EPATH+20 01849000 EPAWTPAT EQU EPATH+24 01850000 EPACYLA EQU EPATH+28 01851000 EPAMSPAD EQU EPATH+32 01852000 EPAWRTCT EQU EPATH+36 01853000 EPACPUID EQU EPATH+38 01854000 IOCOM EQU 0 01855000 IOCSTIO EQU IOCOM+28 01856000 IOE EQU 0 01857000 IOENXT EQU IOE 01858000 IOELSIDA EQU IOE+4 01859000 IOEAIA EQU IOE+8 01860000 IOEWORK EQU IOE+12 01861000 IORB EQU 0 01862000 IORID EQU IORB 01863000 IORRQSZ EQU IORB+2 01864000 IORFLGS EQU IORB+3 01865000 IORFUSE EQU IORFLGS 01866000 IORAPND EQU IORFLGS 01867000 IORIORB EQU IORB+4 01868000 IORPCCW EQU IORB+8 01869000 IORIOSB EQU IORB+12 01870000 IORTSMP EQU IORB+24 01871000 IORPARTE EQU IORB+32 01872000 IOSB EQU 0 01873000 IOSFLA EQU IOSB 01874000 IOSACHN EQU IOSFLA 01875000 IOSFLB EQU IOSB+1 01876000 IOSFLC EQU IOSB+2 01877000 IOSDVALT EQU IOSFLC 01878000 IOSPROC EQU IOSB+3 01879000 IOSDVRID EQU IOSB+4 01880000 IOSASID EQU IOSB+6 01881000 IOSPKEY EQU IOSB+12 01882000 IOSOPT EQU IOSB+14 01883000 IOSOPT2 EQU IOSB+15 01884000 IOSUCB EQU IOSB+16 01885000 @NM00015 EQU IOSB+20 01886000 IOSCSW EQU @NM00015+1 01887000 IOSTATUS EQU IOSCSW+3 01888000 IOSSRB EQU IOSB+28 01889000 IOSIPIB EQU IOSB+44 01890000 IOSERP EQU IOSB+52 01891000 IOSPATH EQU IOSB+86 01892000 IOSCHN EQU IOSPATH 01893000 IOSCKEY EQU IOSB+89 01894000 IOSEEKA EQU IOSB+100 01895000 IOSCCHH EQU IOSEEKA+3 01896000 IOSSKHH EQU IOSCCHH+2 01897000 PART EQU 0 01898000 PARTHDR EQU PART 01899000 PARTAIAE EQU PARTHDR+12 01900000 PARTTPAR EQU PARTHDR+24 01901000 PARTLOCK EQU PARTHDR+44 01902000 PARTCOMQ EQU PARTHDR+48 01903000 PARTSPLQ EQU PARTHDR+56 01904000 PARTDUPQ EQU PARTHDR+64 01905000 PARTLOCQ EQU PARTHDR+72 01906000 PARTENT EQU 0 01907000 PARELKUP EQU PARTENT+4 01908000 PARELKFL EQU PARELKUP 01909000 PARECPCT EQU PARELKUP+2 01910000 PARETYPE EQU PARTENT+8 01911000 PAREPLPA EQU PARETYPE 01912000 PAREDPLX EQU PARETYPE 01913000 PARELOCL EQU PARETYPE 01914000 PAREFLG1 EQU PARTENT+9 01915000 PARENUSE EQU PAREFLG1 01916000 PAREIOEQ EQU PARTENT+12 01917000 PARESZSL EQU PARTENT+16 01918000 PARESLTA EQU PARTENT+20 01919000 PAREIORB EQU PARTENT+28 01920000 PAREPATP EQU PARTENT+32 01921000 PAREEDBP EQU PARTENT+40 01922000 PAREUCBP EQU PARTENT+44 01923000 PARENODE EQU PARTENT+48 01924000 PAT EQU 0 01925000 PATHDR EQU PAT 01926000 PATCYLMW EQU PATHDR+12 01927000 PATMAP EQU PAT+16 01928000 PATCYLMP EQU 0 01929000 PCCW EQU 0 01930000 PCCWFLGS EQU PCCW+2 01931000 PCCWPCCW EQU PCCW+4 01932000 PCCWAIA EQU PCCW+8 01933000 PCCWCHHR EQU PCCW+16 01934000 PCCWSEEK EQU PCCW+24 01935000 PCCWSSEC EQU PCCW+32 01936000 PCCWSRCH EQU PCCW+40 01937000 PCCWTIC EQU PCCW+48 01938000 PCCWRW EQU PCCW+56 01939000 PCCWNOP EQU PCCW+64 01940000 PCCWN EQU PCCWNOP 01941000 PCCWNFG EQU PCCWNOP+4 01942000 SDWA EQU 0 01943000 SDWAPARM EQU SDWA 01944000 SDWAFIOB EQU SDWA+4 01945000 SDWAABCC EQU SDWAFIOB 01946000 SDWACMPF EQU SDWAABCC 01947000 SDWACMPC EQU SDWAABCC+1 01948000 SDWACTL1 EQU SDWA+8 01949000 SDWACMKA EQU SDWACTL1 01950000 SDWAMWPA EQU SDWACTL1+1 01951000 SDWAPMKA EQU SDWACTL1+4 01952000 SDWACTL2 EQU SDWA+16 01953000 SDWACMKP EQU SDWACTL2 01954000 SDWAMWPP EQU SDWACTL2+1 01955000 SDWAPMKP EQU SDWACTL2+4 01956000 SDWAGRSV EQU SDWA+24 01957000 SDWANAME EQU SDWA+88 01958000 SDWAEC1 EQU SDWA+104 01959000 SDWAEMK1 EQU SDWAEC1 01960000 SDWAMWP1 EQU SDWAEC1+1 01961000 SDWAINT1 EQU SDWAEC1+2 01962000 SDWANXT1 EQU SDWAEC1+4 01963000 SDWAAEC1 EQU SDWA+112 01964000 SDWAILC1 EQU SDWAAEC1+1 01965000 SDWAINC1 EQU SDWAAEC1+2 01966000 SDWAICD1 EQU SDWAINC1+1 01967000 SDWAEC2 EQU SDWA+120 01968000 SDWAEMK2 EQU SDWAEC2 01969000 SDWAMWP2 EQU SDWAEC2+1 01970000 SDWAINT2 EQU SDWAEC2+2 01971000 SDWANXT2 EQU SDWAEC2+4 01972000 SDWAAEC2 EQU SDWA+128 01973000 SDWAILC2 EQU SDWAAEC2+1 01974000 SDWAINC2 EQU SDWAAEC2+2 01975000 SDWAICD2 EQU SDWAINC2+1 01976000 SDWASRSV EQU SDWA+136 01977000 SDWAIDNT EQU SDWA+200 01978000 SDWAMCH EQU SDWA+204 01979000 SDWASTCK EQU SDWAMCH 01980000 SDWAMCHI EQU SDWAMCH+8 01981000 SDWAMCHS EQU SDWAMCHI 01982000 SDWAMCHD EQU SDWAMCHI+1 01983000 SDWARSR1 EQU SDWAMCH+12 01984000 SDWARSR2 EQU SDWAMCH+13 01985000 SDWAFLGS EQU SDWA+232 01986000 SDWAERRA EQU SDWAFLGS 01987000 SDWAERRB EQU SDWAFLGS+1 01988000 SDWAERRC EQU SDWAFLGS+2 01989000 SDWAERRD EQU SDWAFLGS+3 01990000 SDWAIOFS EQU SDWA+238 01991000 SDWACPUA EQU SDWA+248 01992000 SDWAPARQ EQU SDWA+252 01993000 SDWARCDE EQU SDWAPARQ 01994000 SDWAACF2 EQU SDWAPARQ+1 01995000 SDWARCRD EQU SDWAACF2 01996000 SDWAACF3 EQU SDWAPARQ+2 01997000 SDWAACF4 EQU SDWAPARQ+3 01998000 SDWALKWA EQU SDWA+256 01999000 SDWALKWS EQU SDWALKWA 02000000 SDWAAPLW EQU SDWALKWS+16 02001000 SDWARECP EQU SDWA+292 02002000 SDWACSCT EQU SDWARECP+8 02003000 SDWASNPA EQU SDWA+320 02004000 SDWADUMP EQU SDWASNPA 02005000 SDWADPFS EQU SDWADUMP+1 02006000 SDWADDAT EQU SDWASNPA+4 02007000 SDWASDAT EQU SDWADDAT 02008000 SDWAPDAT EQU SDWADDAT+2 02009000 SDWADPSA EQU SDWA+328 02010000 SDWADPSL EQU SDWADPSA 02011000 SDWARA EQU SDWA+400 02012000 SDWADPVA EQU SDWARA+2 02013000 SDWAURAL EQU SDWARA+3 02014000 SDWAVRA EQU SDWARA+4 02015000 SRBSECT EQU 0 02016000 SRB EQU SRBSECT 02017000 SRBFLNK EQU SRB+4 02018000 SRBFLC EQU SRB+12 02019000 WSAG EQU 0 02020000 WSAGGMFM EQU WSAG+4 02021000 NEWMAP EQU 0 02022000 MSGPLIST EQU 0 02023000 MSGNUM EQU MSGPLIST 02024000 MSGCBADR EQU MSGPLIST+4 02025000 PARMLIST EQU 0 02026000 IORBPTR EQU PARMLIST 02027000 PAREPTR EQU PARMLIST+4 02028000 PCCWPTR EQU PARMLIST+8 02029000 WRTIOEQ EQU PARMLIST+12 02030000 @NM00103 EQU 0 02031000 WRTQSTRT EQU @NM00103 02032000 WRTQEND EQU @NM00103+4 02033000 BLOCKS EQU 0 02034000 NIORB EQU BLOCKS 02035000 NIOSB EQU BLOCKS+112 02036000 NSRB EQU BLOCKS+224 02037000 WORKAREA EQU 0 02038000 ILRMSG00 EQU 0 02039000 I256C EQU 0 02040000 GMACELL EQU 0 02041000 GMANEXT EQU GMACELL 02042000 ILRPEX EQU 0 02043000 I001C EQU 0 02044000 I008P EQU 0 02045000 I015F EQU 0 02046000 I015P EQU 0 02047000 I031F EQU 0 02048000 I031P EQU 0 02049000 PATCYL EQU 0 02050000 ASM1WKSV EQU ASMWKSA1 02051000 ASM1RGSV EQU ASM1WKSV 02052000 ASM1WRKA EQU ASM1WKSV+60 02053000 ASM2WKSV EQU ASMWKSA2 02054000 ASM2WRKA EQU ASM2WKSV+52 02055000 ASM2FLGS EQU ASM2WRKA+12 02056000 ASM3WKSV EQU ASMWKSA3 02057000 ASM4WKSV EQU ASMWKSA4 02058000 ASM4RGSV EQU ASM4WKSV 02059000 ASM5WKSV EQU ASMWKSA5 02060000 ASM5RGSV EQU ASM5WKSV 02061000 CVTPTR EQU FLCCVT 02062000 CVTS01 EQU CVTPGSIA 02063000 CVTLPDIA EQU CVTS01+12 02064000 CVTDIRST EQU CVTLPDIA 02065000 CVTSLIDA EQU CVTS01+24 02066000 CVTCTLFG EQU CVTS01+50 02067000 CVTGSMQ EQU CVTS01+264 02068000 CVTGLMN EQU CVTS01+332 02069000 CVTSPSA EQU CVTS01+336 02070000 CVTASMVT EQU CVTS01+356 02071000 CVTRV210 EQU CVTS01+424 02072000 CVTRV219 EQU CVTS01+425 02073000 CVTRV228 EQU CVTS01+426 02074000 CVTRV237 EQU CVTS01+427 02075000 CVTMFRTR EQU CVTS01+452 02076000 CVTRV262 EQU CVTS01+468 02077000 CVTRV271 EQU CVTS01+469 02078000 CVTRV280 EQU CVTS01+470 02079000 CVTRV289 EQU CVTS01+471 02080000 CVTGSDA EQU CVTS01+600 02081000 IOSATTSC EQU IOSIPIB 02082000 IOSWTOWA EQU IOSIPIB 02083000 IOSPCISC EQU IOSIPIB 02084000 FLC EQU PSA 02085000 PSARSVTE EQU PSARSVT 02086000 SPARENOD EQU PARENODE 02087000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02088000 PSARSAV EQU PSARSVTE+60 02089000 PSARSTK EQU PSARSVTE+56 02090000 PSAESAV3 EQU PSARSVTE+52 02091000 PSAESTK3 EQU PSARSVTE+48 02092000 PSAESAV2 EQU PSARSVTE+44 02093000 PSAESTK2 EQU PSARSVTE+40 02094000 PSAESAV1 EQU PSARSVTE+36 02095000 PSAESTK1 EQU PSARSVTE+32 02096000 PSAPSAV EQU PSARSVTE+28 02097000 PSAPSTK EQU PSARSVTE+24 02098000 PSAMSAV EQU PSARSVTE+20 02099000 PSAMSTK EQU PSARSVTE+16 02100000 PSASSAV EQU PSARSVTE+12 02101000 PSASSTK EQU PSARSVTE+8 02102000 PSANSTK EQU PSARSVTE+4 02103000 PSACSTK EQU PSARSVTE 02104000 IOSPCIWA EQU IOSPCISC+44 02105000 IOSPCIRS EQU IOSPCISC+8 02106000 @NM00020 EQU IOSPCISC+4 02107000 @NM00019 EQU IOSPCISC 02108000 IOSWRNDR EQU IOSWTOWA+4 02109000 IOSWTOPT EQU IOSWTOWA+3 02110000 IOSWTOCP EQU IOSWTOWA+2 02111000 IOSWTOCH EQU IOSWTOWA 02112000 IOSATTWA EQU IOSATTSC+40 02113000 @NM00018 EQU IOSATTSC+24 02114000 IOSATTSN EQU IOSATTSC 02115000 CVTRV628 EQU CVTS01+728 02116000 CVTRV627 EQU CVTS01+724 02117000 CVTRV626 EQU CVTS01+720 02118000 CVTRV625 EQU CVTS01+716 02119000 CVTRV624 EQU CVTS01+712 02120000 CVTRV623 EQU CVTS01+708 02121000 CVTRV622 EQU CVTS01+704 02122000 CVTRV621 EQU CVTS01+700 02123000 CVTIHASU EQU CVTS01+696 02124000 CVTSUSP EQU CVTS01+692 02125000 CVTT6SVC EQU CVTS01+688 02126000 CVTCDAL EQU CVTS01+684 02127000 CVTTCTL EQU CVTS01+680 02128000 CVTRSUME EQU CVTS01+676 02129000 CVTJTERM EQU CVTS01+672 02130000 CVTASMRM EQU CVTS01+668 02131000 CVTTCASP EQU CVTS01+664 02132000 CVT0PT03 EQU CVTS01+660 02133000 CVT0PT0E EQU CVTS01+656 02134000 CVTRV609 EQU CVTS01+652 02135000 CVTCGK EQU CVTS01+648 02136000 CVTRAC EQU CVTS01+644 02137000 CVTHSM EQU CVTS01+640 02138000 CVTRV605 EQU CVTS01+636 02139000 CVTRV604 EQU CVTS01+632 02140000 CVTEFF02 EQU CVTS01+628 02141000 CVTCBBR EQU CVTS01+624 02142000 CVTSSCR EQU CVTS01+620 02143000 CVTEVENT EQU CVTS01+616 02144000 CVTCRCA EQU CVTS01+612 02145000 CVTTPIO EQU CVTS01+608 02146000 CVTADV EQU CVTS01+604 02147000 CVTGSDAB EQU CVTGSDA 02148000 CVTQV3 EQU CVTS01+596 02149000 CVTQV2 EQU CVTS01+592 02150000 CVTQV1 EQU CVTS01+588 02151000 CVTRPT EQU CVTS01+584 02152000 CVTSSRB EQU CVTS01+580 02153000 CVTCSDRL EQU CVTS01+576 02154000 CVTEXP1 EQU CVTS01+572 02155000 CVTRMPMT EQU CVTS01+568 02156000 CVTRMPTT EQU CVTS01+564 02157000 CVTVPSA EQU CVTS01+560 02158000 CVTVSTOP EQU CVTS01+556 02159000 CVTGTFR8 EQU CVTS01+552 02160000 CVTQUIT EQU CVTS01+548 02161000 CVTVACR EQU CVTS01+544 02162000 CVTWTCB EQU CVTS01+540 02163000 CVTSTPRS EQU CVTS01+536 02164000 CVT0PT02 EQU CVTS01+532 02165000 CVTDARCM EQU CVTS01+528 02166000 CVTIRECM EQU CVTS01+524 02167000 CVTJRECM EQU CVTS01+520 02168000 CVTVEMS0 EQU CVTS01+516 02169000 CVTSPFRR EQU CVTS01+512 02170000 CVTRLSTG EQU CVTS01+508 02171000 CVT0TC0A EQU CVTS01+504 02172000 CVTGMBR EQU CVTS01+500 02173000 CVTLFRM EQU CVTS01+496 02174000 CVTRMBR EQU CVTS01+492 02175000 CVTVIOP EQU CVTS01+488 02176000 CVTRV307 EQU CVTS01+486 02177000 CVTRV306 EQU CVTS01+484 02178000 CVTRV305 EQU CVTS01+482 02179000 CVTRV304 EQU CVTS01+480 02180000 CVTRV303 EQU CVTS01+478 02181000 CVTRV302 EQU CVTS01+476 02182000 CVTTRCA EQU CVTS01+472 02183000 CVTRV297 EQU CVTRV289 02184000 CVTRV296 EQU CVTRV289 02185000 CVTRV295 EQU CVTRV289 02186000 CVTRV294 EQU CVTRV289 02187000 CVTRV293 EQU CVTRV289 02188000 CVTRV292 EQU CVTRV289 02189000 CVTRV291 EQU CVTRV289 02190000 CVTRV290 EQU CVTRV289 02191000 CVTRV288 EQU CVTRV280 02192000 CVTRV287 EQU CVTRV280 02193000 CVTRV286 EQU CVTRV280 02194000 CVTRV285 EQU CVTRV280 02195000 CVTRV284 EQU CVTRV280 02196000 CVTRV283 EQU CVTRV280 02197000 CVTRV282 EQU CVTRV280 02198000 CVTRV281 EQU CVTRV280 02199000 CVTRV279 EQU CVTRV271 02200000 CVTRV278 EQU CVTRV271 02201000 CVTRV277 EQU CVTRV271 02202000 CVTRV276 EQU CVTRV271 02203000 CVTRV275 EQU CVTRV271 02204000 CVTRV274 EQU CVTRV271 02205000 CVTRV273 EQU CVTRV271 02206000 CVTRV272 EQU CVTRV271 02207000 CVTRV270 EQU CVTRV262 02208000 CVTRV269 EQU CVTRV262 02209000 CVTRV268 EQU CVTRV262 02210000 CVTRV267 EQU CVTRV262 02211000 CVTRV266 EQU CVTRV262 02212000 CVTRV265 EQU CVTRV262 02213000 CVTRV264 EQU CVTRV262 02214000 CVTRV263 EQU CVTRV262 02215000 CVTVFP EQU CVTS01+464 02216000 CVTVSI EQU CVTS01+460 02217000 CVTVPSIB EQU CVTS01+456 02218000 CVTMFACT EQU CVTMFRTR 02219000 CVTMFCTL EQU CVTS01+448 02220000 CVTPVBP EQU CVTS01+444 02221000 CVTPWI EQU CVTS01+440 02222000 CVTRV254 EQU CVTS01+438 02223000 CVTRV253 EQU CVTS01+436 02224000 CVTRV252 EQU CVTS01+434 02225000 CVTRV251 EQU CVTS01+433 02226000 CVTRV250 EQU CVTS01+432 02227000 CVTRV249 EQU CVTS01+431 02228000 CVTRV248 EQU CVTS01+430 02229000 CVTRV247 EQU CVTS01+429 02230000 CVTRV246 EQU CVTS01+428 02231000 CVTRV245 EQU CVTRV237 02232000 CVTRV244 EQU CVTRV237 02233000 CVTRV243 EQU CVTRV237 02234000 CVTRV242 EQU CVTRV237 02235000 CVTRV241 EQU CVTRV237 02236000 CVTRV240 EQU CVTRV237 02237000 CVTRV239 EQU CVTRV237 02238000 CVTRV238 EQU CVTRV237 02239000 CVTRV236 EQU CVTRV228 02240000 CVTRV235 EQU CVTRV228 02241000 CVTRV234 EQU CVTRV228 02242000 CVTRV233 EQU CVTRV228 02243000 CVTRV232 EQU CVTRV228 02244000 CVTRV231 EQU CVTRV228 02245000 CVTRV230 EQU CVTRV228 02246000 CVTRV229 EQU CVTRV228 02247000 CVTRV227 EQU CVTRV219 02248000 CVTRV226 EQU CVTRV219 02249000 CVTRV225 EQU CVTRV219 02250000 CVTRV224 EQU CVTRV219 02251000 CVTRV223 EQU CVTRV219 02252000 CVTRV222 EQU CVTRV219 02253000 CVTRV221 EQU CVTRV219 02254000 CVTRV220 EQU CVTRV219 02255000 CVTRV218 EQU CVTRV210 02256000 CVTRV217 EQU CVTRV210 02257000 CVTRV216 EQU CVTRV210 02258000 CVTRV215 EQU CVTRV210 02259000 CVTRV214 EQU CVTRV210 02260000 CVTRV213 EQU CVTRV210 02261000 CVTRV212 EQU CVTRV210 02262000 CVTRV211 EQU CVTRV210 02263000 CVTLCCAT EQU CVTS01+420 02264000 CVTPCCAT EQU CVTS01+416 02265000 CVTIPCRP EQU CVTS01+412 02266000 CVTIPCRI EQU CVTS01+408 02267000 CVTIPCDS EQU CVTS01+404 02268000 CVTAIDVT EQU CVTS01+400 02269000 CVTSSAP EQU CVTS01+396 02270000 CVTEHCIR EQU CVTS01+392 02271000 CVTEHDEF EQU CVTS01+388 02272000 CVTDAIR EQU CVTS01+384 02273000 CVTPERFM EQU CVTS01+380 02274000 CVT044R2 EQU CVTS01+376 02275000 CVTFETCH EQU CVTS01+372 02276000 CVTRSTWD EQU CVTS01+368 02277000 CVTSPOST EQU CVTS01+364 02278000 CVTIOBP EQU CVTS01+360 02279000 CVTRECRQ EQU CVTS01+352 02280000 CVTWSAC EQU CVTS01+348 02281000 CVTRV149 EQU CVTS01+344 02282000 CVTWSAL EQU CVTS01+340 02283000 CVTVEAC0 EQU CVTS01+328 02284000 CVT062R1 EQU CVTS01+324 02285000 CVTRPOST EQU CVTS01+320 02286000 CVTDQIQE EQU CVTS01+316 02287000 CVTCSD EQU CVTS01+312 02288000 CVTLKRMA EQU CVTS01+308 02289000 CVTRSPIE EQU CVTS01+304 02290000 CVTRENQ EQU CVTS01+300 02291000 CVTLQCB EQU CVTS01+296 02292000 CVTFQCB EQU CVTS01+292 02293000 CVTQCS01 EQU CVTS01+288 02294000 CVTAPFT EQU CVTS01+284 02295000 CVTPARRL EQU CVTS01+280 02296000 CVTVWAIT EQU CVTS01+276 02297000 CVTGSPL EQU CVTS01+272 02298000 CVTLSMQ EQU CVTS01+268 02299000 CVTEXPRO EQU CVTS01+260 02300000 CVTOPCTP EQU CVTS01+256 02301000 CVTSIC EQU CVTS01+252 02302000 CVTTPIOS EQU CVTS01+248 02303000 CVTRTMS EQU CVTS01+244 02304000 CVTSDBF EQU CVTS01+240 02305000 CVTSCBP EQU CVTS01+236 02306000 CVTSDMP EQU CVTS01+232 02307000 CVTSV60 EQU CVTS01+228 02308000 CVTRTMCT EQU CVTS01+224 02309000 CVTASCBL EQU CVTS01+220 02310000 CVTASCBH EQU CVTS01+216 02311000 CVTGDA EQU CVTS01+212 02312000 CVTASVT EQU CVTS01+208 02313000 CVTVVMDI EQU CVTS01+204 02314000 CVTAQTOP EQU CVTS01+200 02315000 CVTIOSCS EQU CVTS01+196 02316000 CVTSDRM EQU CVTS01+192 02317000 CVTOPTE EQU CVTS01+188 02318000 CVTSTXU EQU CVTS01+184 02319000 CVTQUIS EQU CVTS01+180 02320000 CVTPARS EQU CVTS01+176 02321000 CVTS1EE EQU CVTS01+172 02322000 CVTFRAS EQU CVTS01+168 02323000 CVTQSAS EQU CVTS01+164 02324000 CVTCRAS EQU CVTS01+160 02325000 CVTCRMN EQU CVTS01+156 02326000 CVTDELCP EQU CVTS01+152 02327000 CVTFRECL EQU CVTS01+148 02328000 CVTGETCL EQU CVTS01+144 02329000 CVTBLDCP EQU CVTS01+140 02330000 CVTAUTHL EQU CVTS01+136 02331000 CVTSCAN EQU CVTS01+132 02332000 CVTRV144 EQU CVTS01+130 02333000 CVTMAXMP EQU CVTS01+128 02334000 CVTSTCK EQU CVTS01+124 02335000 CVTRV139 EQU CVTS01+123 02336000 CVTDSSAC EQU CVTS01+122 02337000 CVTRV513 EQU CVTS01+121 02338000 CVTIOSPL EQU CVTS01+120 02339000 CVTPTGT EQU CVTS01+116 02340000 CVTCSPIE EQU CVTS01+112 02341000 CVTSMFEX EQU CVTS01+108 02342000 CVTOLT0A EQU CVTS01+104 02343000 CVTSRBRT EQU CVTS01+100 02344000 CVTPUTL EQU CVTS01+96 02345000 CVTASCRL EQU CVTS01+92 02346000 CVTASCRF EQU CVTS01+88 02347000 CVTRV326 EQU CVTS01+84 02348000 CVTRV325 EQU CVTS01+80 02349000 CVTRV324 EQU CVTS01+76 02350000 CVT0VL01 EQU CVTS01+72 02351000 CVTSHRVM EQU CVTS01+68 02352000 CVTRV332 EQU CVTS01+64 02353000 CVTTAS EQU CVTS01+60 02354000 CVTRSCN EQU CVTS01+56 02355000 CVTTRAC2 EQU CVTS01+54 02356000 CVTTRACE EQU CVTS01+52 02357000 CVTAPG EQU CVTS01+51 02358000 CVTSDTRC EQU CVTCTLFG 02359000 CVTGTRCE EQU CVTCTLFG 02360000 CVTNOMP EQU CVTCTLFG 02361000 CVTRSV79 EQU CVTCTLFG 02362000 CVTDSTAT EQU CVTCTLFG 02363000 CVTRSV78 EQU CVTCTLFG 02364000 CVTRV333 EQU CVTCTLFG 02365000 CVTRV323 EQU CVTCTLFG 02366000 CVTSPVLK EQU CVTS01+49 02367000 CVTRSV77 EQU CVTS01+48 02368000 CVTRV331 EQU CVTS01+44 02369000 CVTRV330 EQU CVTS01+40 02370000 CVTRV329 EQU CVTS01+36 02371000 CVTRV328 EQU CVTS01+32 02372000 CVTRV322 EQU CVTS01+28 02373000 CVTSLID EQU CVTSLIDA+1 02374000 CVTSYLK EQU CVTSLIDA 02375000 CVTRV321 EQU CVTS01+20 02376000 CVTRV320 EQU CVTS01+16 02377000 CVTLPDIR EQU CVTLPDIA+1 02378000 CVTRSV69 EQU CVTDIRST 02379000 CVTRSV68 EQU CVTDIRST 02380000 CVTRSV67 EQU CVTDIRST 02381000 CVTRSV66 EQU CVTDIRST 02382000 CVTRSV65 EQU CVTDIRST 02383000 CVTRSV64 EQU CVTDIRST 02384000 CVTRSV63 EQU CVTDIRST 02385000 CVTDICOM EQU CVTDIRST 02386000 CVTPVTP EQU CVTS01+8 02387000 CVTLPDSR EQU CVTS01+4 02388000 CVTGETL EQU CVTS01 02389000 ASM5FLGS EQU ASM5WKSV+64 02390000 ASM5AIA EQU ASM5WKSV+60 02391000 ASM5GCTR EQU ASM5WKSV+56 02392000 ASM5SR14 EQU ASM5WKSV+52 02393000 @NM00006 EQU ASM5RGSV+4 02394000 ASM5RG2 EQU ASM5RGSV 02395000 @NM00005 EQU ASM4RGSV+4 02396000 ASM4RG2 EQU ASM4RGSV 02397000 ASM3SR13 EQU ASM3WKSV+28 02398000 ASM3R14B EQU ASM3WKSV+24 02399000 ASM3R14A EQU ASM3WKSV+20 02400000 ASM3GRPA EQU ASM3WKSV+16 02401000 ASM3TMPA EQU ASM3WKSV+12 02402000 ASM3PIOP EQU ASM3WKSV+8 02403000 ASM3GENQ EQU ASM3WKSV+4 02404000 ASM3SWPQ EQU ASM3WKSV 02405000 ASM2SR14 EQU ASM2WRKA+16 02406000 @NM00004 EQU ASM2WRKA+13 02407000 ASM2WFLG EQU ASM2FLGS 02408000 ASM2RFLG EQU ASM2FLGS 02409000 ASM2DUPQ EQU ASM2WRKA+8 02410000 ASM2CAQ EQU ASM2WRKA+4 02411000 ASM2PAQ EQU ASM2WRKA 02412000 ASM2RGSV EQU ASM2WKSV 02413000 ASM1NXTA EQU ASM1WRKA+4 02414000 ASM1ASCB EQU ASM1WRKA 02415000 ASM1RG15 EQU ASM1RGSV+56 02416000 @NM00003 EQU ASM1RGSV+4 02417000 ASM1RG1 EQU ASM1RGSV 02418000 @NM00107 EQU NSRB+48 02419000 @NM00106 EQU NSRB 02420000 @NM00105 EQU NIOSB+112 02421000 @NM00104 EQU NIOSB 02422000 NIORSAVE EQU BLOCKS+40 02423000 SRTWORK EQU PARMLIST+16 02424000 MSGTYPE EQU MSGPLIST+2 02425000 WSAGSCHE EQU WSAG+40 02426000 WSAGREST EQU WSAG+36 02427000 WSAGNQDQ EQU WSAG+32 02428000 WSAGMEMT EQU WSAG+28 02429000 WSAGOPTM EQU WSAG+24 02430000 WSAGSTAT EQU WSAG+20 02431000 WSAGEMS0 EQU WSAG+16 02432000 WSAGSSRS EQU WSAG+12 02433000 WSAGRSM EQU WSAG+8 02434000 WSAGPGIO EQU WSAG 02435000 @NM00102 EQU SRB+40 02436000 @NM00101 EQU SRB+38 02437000 SRBPRIOR EQU SRB+37 02438000 SRBPKF EQU SRB+36 02439000 SRBSAVE EQU SRB+32 02440000 SRBPARM EQU SRB+28 02441000 SRBRMTR EQU SRB+24 02442000 SRBEP EQU SRB+20 02443000 SRBPTCB EQU SRBFLC+4 02444000 SRBPASID EQU SRBFLC+2 02445000 SRBCPAFF EQU SRBFLC 02446000 SRBASCB EQU SRB+8 02447000 SRBID EQU SRB 02448000 @NM00100 EQU SDWA+512 02449000 @NM00099 EQU SDWADPVA 02450000 SDWAEBC EQU SDWADPVA 02451000 SDWAHEX EQU SDWADPVA 02452000 SDWAVRAL EQU SDWARA 02453000 @NM00098 EQU SDWA+396 02454000 SDWACOMP EQU SDWA+392 02455000 SDWARCPL EQU SDWA+364 02456000 @NM00097 EQU SDWADPSA+32 02457000 SDWATO4 EQU SDWADPSL+28 02458000 SDWAFRM4 EQU SDWADPSL+24 02459000 SDWATO3 EQU SDWADPSL+20 02460000 SDWAFRM3 EQU SDWADPSL+16 02461000 SDWATO2 EQU SDWADPSL+12 02462000 SDWAFRM2 EQU SDWADPSL+8 02463000 SDWATO1 EQU SDWADPSL+4 02464000 SDWAFRM1 EQU SDWADPSL 02465000 @NM00096 EQU SDWADDAT+3 02466000 @NM00095 EQU SDWAPDAT 02467000 SDWAUSPL EQU SDWAPDAT 02468000 SDWADPSW EQU SDWAPDAT 02469000 SDWATJPA EQU SDWAPDAT 02470000 SDWATLPA EQU SDWAPDAT 02471000 SDWADREG EQU SDWAPDAT 02472000 SDWADSAH EQU SDWAPDAT 02473000 SDWADSAS EQU SDWAPDAT 02474000 @NM00094 EQU SDWADDAT+1 02475000 @NM00093 EQU SDWASDAT 02476000 SDWAQQS EQU SDWASDAT 02477000 SDWACBS EQU SDWASDAT 02478000 SDWAGTF EQU SDWASDAT 02479000 SDWASWA EQU SDWASDAT 02480000 SDWALSQA EQU SDWASDAT 02481000 SDWASQA EQU SDWASDAT 02482000 SDWANUC EQU SDWASDAT 02483000 @NM00092 EQU SDWADUMP+2 02484000 @NM00091 EQU SDWADPFS 02485000 SDWASLST EQU SDWADPFS 02486000 @NM00090 EQU SDWADPFS 02487000 SDWADLST EQU SDWADPFS 02488000 SDWADPT EQU SDWADPFS 02489000 SDWADPID EQU SDWADUMP 02490000 SDWADPLA EQU SDWA+316 02491000 SDWAREXN EQU SDWARECP+16 02492000 SDWAMODN EQU SDWARECP 02493000 @NM00089 EQU SDWA+290 02494000 SDWAASID EQU SDWA+288 02495000 SDWATALW EQU SDWALKWS+28 02496000 SDWATDLW EQU SDWALKWS+24 02497000 SDWATNLW EQU SDWALKWS+20 02498000 SDWAIPLW EQU SDWALKWS+12 02499000 SDWAILLW EQU SDWALKWS+8 02500000 SDWAIULW EQU SDWALKWS+4 02501000 SDWAICLW EQU SDWALKWS 02502000 SDWAFLLK EQU SDWAACF4 02503000 SDWACMS EQU SDWAACF4 02504000 SDWAOPTM EQU SDWAACF4 02505000 SDWATADB EQU SDWAACF4 02506000 SDWATDNB EQU SDWAACF4 02507000 SDWATNCB EQU SDWAACF4 02508000 SDWAILCH EQU SDWAACF4 02509000 SDWAIUCB EQU SDWAACF4 02510000 SDWAICAT EQU SDWAACF3 02511000 SDWAIPRG EQU SDWAACF3 02512000 SDWASALL EQU SDWAACF3 02513000 SDWAASMP EQU SDWAACF3 02514000 SDWADISP EQU SDWAACF3 02515000 @NM00088 EQU SDWAACF3 02516000 @NM00087 EQU SDWAACF2 02517000 SDWAFREE EQU SDWAACF2 02518000 SDWAUPRG EQU SDWAACF2 02519000 @NM00086 EQU SDWAACF2 02520000 SDWASPIN EQU SDWAACF2 02521000 @NM00085 EQU SDWAACF2 02522000 SDWALCPU EQU SDWACPUA+2 02523000 @NM00084 EQU SDWACPUA 02524000 SDWARECA EQU SDWA+244 02525000 SDWARTYA EQU SDWA+240 02526000 @NM00083 EQU SDWA+239 02527000 @NM00082 EQU SDWAIOFS 02528000 SDWANIOP EQU SDWAIOFS 02529000 SDWANOIO EQU SDWAIOFS 02530000 SDWAIOHT EQU SDWAIOFS 02531000 SDWAIOQR EQU SDWAIOFS 02532000 SDWAFMID EQU SDWA+236 02533000 @NM00081 EQU SDWAERRD 02534000 SDWAMCIV EQU SDWAERRD 02535000 SDWARPIV EQU SDWAERRD 02536000 SDWAMABD EQU SDWAERRD 02537000 SDWACTS EQU SDWAERRD 02538000 SDWASTAE EQU SDWAERRD 02539000 SDWANRBE EQU SDWAERRD 02540000 SDWACLUP EQU SDWAERRD 02541000 @NM00080 EQU SDWAERRC 02542000 SDWAEAS EQU SDWAERRC 02543000 SDWAPERC EQU SDWAERRC 02544000 SDWAIRB EQU SDWAERRC 02545000 SDWASTAI EQU SDWAERRC 02546000 SDWASTAF EQU SDWAERRC 02547000 SDWASRBM EQU SDWAERRB 02548000 SDWALDIS EQU SDWAERRB 02549000 SDWAENRB EQU SDWAERRB 02550000 SDWATYP1 EQU SDWAERRB 02551000 @NM00079 EQU SDWAERRB 02552000 SDWAPGIO EQU SDWAERRA 02553000 SDWATEXC EQU SDWAERRA 02554000 SDWASVCE EQU SDWAERRA 02555000 SDWAABTM EQU SDWAERRA 02556000 SDWASVCD EQU SDWAERRA 02557000 SDWARKEY EQU SDWAERRA 02558000 SDWAPCHK EQU SDWAERRA 02559000 SDWAMCHK EQU SDWAERRA 02560000 SDWATIME EQU SDWAMCH+20 02561000 SDWARFSA EQU SDWAMCH+16 02562000 @NM00078 EQU SDWAMCH+14 02563000 SDWAVEQR EQU SDWARSR2 02564000 SDWAPGFX EQU SDWARSR2 02565000 SDWAFLSQ EQU SDWARSR2 02566000 SDWAFSQA EQU SDWARSR2 02567000 SDWANUCL EQU SDWARSR2 02568000 SDWASPER EQU SDWARSR2 02569000 SDWAINTC EQU SDWARSR2 02570000 SDWAOFLN EQU SDWARSR2 02571000 SDWACHNG EQU SDWARSR1 02572000 SDWAMSER EQU SDWARSR1 02573000 @NM00077 EQU SDWARSR1 02574000 SDWACPID EQU SDWAMCH+10 02575000 SDWATERR EQU SDWAMCHD 02576000 SDWAFPRX EQU SDWAMCHD 02577000 SDWAINSF EQU SDWAMCHD 02578000 SDWAACR EQU SDWAMCHD 02579000 SDWASCK EQU SDWAMCHD 02580000 SDWAPSWU EQU SDWAMCHD 02581000 SDWAREGU EQU SDWAMCHD 02582000 SDWASKYF EQU SDWAMCHD 02583000 @NM00076 EQU SDWAMCHS 02584000 SDWARSRF EQU SDWAMCHS 02585000 SDWARSRC EQU SDWAMCHS 02586000 SDWAINVP EQU SDWAMCHS 02587000 SDWATSVL EQU SDWAMCHS 02588000 SDWARCDF EQU SDWAMCHS 02589000 SDWASRVL EQU SDWAMCHS 02590000 SDWASCKE EQU SDWASTCK+4 02591000 SDWASCKB EQU SDWASTCK 02592000 SDWALNTH EQU SDWAIDNT+1 02593000 SDWASPID EQU SDWAIDNT 02594000 SDWASR15 EQU SDWASRSV+60 02595000 SDWASR14 EQU SDWASRSV+56 02596000 SDWASR13 EQU SDWASRSV+52 02597000 SDWASR12 EQU SDWASRSV+48 02598000 SDWASR11 EQU SDWASRSV+44 02599000 SDWASR10 EQU SDWASRSV+40 02600000 SDWASR09 EQU SDWASRSV+36 02601000 SDWASR08 EQU SDWASRSV+32 02602000 SDWASR07 EQU SDWASRSV+28 02603000 SDWASR06 EQU SDWASRSV+24 02604000 SDWASR05 EQU SDWASRSV+20 02605000 SDWASR04 EQU SDWASRSV+16 02606000 SDWASR03 EQU SDWASRSV+12 02607000 SDWASR02 EQU SDWASRSV+8 02608000 SDWASR01 EQU SDWASRSV+4 02609000 SDWASR00 EQU SDWASRSV 02610000 SDWATRN2 EQU SDWAAEC2+4 02611000 SDWAIPC2 EQU SDWAICD2 02612000 SDWAIMC2 EQU SDWAICD2 02613000 SDWAIPR2 EQU SDWAICD2 02614000 @NM00075 EQU SDWAINC2 02615000 @NM00074 EQU SDWAILC2 02616000 SDWAIL2 EQU SDWAILC2 02617000 @NM00073 EQU SDWAILC2 02618000 @NM00072 EQU SDWAAEC2 02619000 SDWAADD2 EQU SDWANXT2+1 02620000 @NM00071 EQU SDWANXT2 02621000 @NM00070 EQU SDWAEC2+3 02622000 SDWASGN2 EQU SDWAINT2 02623000 SDWAEXP2 EQU SDWAINT2 02624000 SDWADEC2 EQU SDWAINT2 02625000 SDWAFPO2 EQU SDWAINT2 02626000 SDWACC2 EQU SDWAINT2 02627000 @NM00069 EQU SDWAINT2 02628000 SDWAPGM2 EQU SDWAMWP2 02629000 SDWAWAT2 EQU SDWAMWP2 02630000 SDWAMCK2 EQU SDWAMWP2 02631000 SDWAECT2 EQU SDWAMWP2 02632000 SDWAKEY2 EQU SDWAMWP2 02633000 SDWAEXT2 EQU SDWAEMK2 02634000 SDWAIO2 EQU SDWAEMK2 02635000 SDWATRM2 EQU SDWAEMK2 02636000 @NM00068 EQU SDWAEMK2 02637000 SDWAPER2 EQU SDWAEMK2 02638000 @NM00067 EQU SDWAEMK2 02639000 SDWATRAN EQU SDWAAEC1+4 02640000 SDWAIPC1 EQU SDWAICD1 02641000 SDWAIMC1 EQU SDWAICD1 02642000 SDWAIPR1 EQU SDWAICD1 02643000 @NM00066 EQU SDWAINC1 02644000 @NM00065 EQU SDWAILC1 02645000 SDWAIL1 EQU SDWAILC1 02646000 @NM00064 EQU SDWAILC1 02647000 @NM00063 EQU SDWAAEC1 02648000 SDWAADD1 EQU SDWANXT1+1 02649000 @NM00062 EQU SDWANXT1 02650000 @NM00061 EQU SDWAEC1+3 02651000 SDWASGN1 EQU SDWAINT1 02652000 SDWAEXP1 EQU SDWAINT1 02653000 SDWADEC1 EQU SDWAINT1 02654000 SDWAFPO1 EQU SDWAINT1 02655000 SDWACC1 EQU SDWAINT1 02656000 @NM00060 EQU SDWAINT1 02657000 SDWAPGM1 EQU SDWAMWP1 02658000 SDWAWAT1 EQU SDWAMWP1 02659000 SDWAMCK1 EQU SDWAMWP1 02660000 SDWAECT1 EQU SDWAMWP1 02661000 SDWAKEY1 EQU SDWAMWP1 02662000 SDWAEXT1 EQU SDWAEMK1 02663000 SDWAIO1 EQU SDWAEMK1 02664000 SDWATRM1 EQU SDWAEMK1 02665000 @NM00059 EQU SDWAEMK1 02666000 SDWAPER1 EQU SDWAEMK1 02667000 @NM00058 EQU SDWAEMK1 02668000 SDWAIOBR EQU SDWA+100 02669000 SDWAEPA EQU SDWA+96 02670000 @NM00057 EQU SDWANAME+4 02671000 SDWARBAD EQU SDWANAME 02672000 SDWAGR15 EQU SDWAGRSV+60 02673000 SDWAGR14 EQU SDWAGRSV+56 02674000 SDWAGR13 EQU SDWAGRSV+52 02675000 SDWAGR12 EQU SDWAGRSV+48 02676000 SDWAGR11 EQU SDWAGRSV+44 02677000 SDWAGR10 EQU SDWAGRSV+40 02678000 SDWAGR09 EQU SDWAGRSV+36 02679000 SDWAGR08 EQU SDWAGRSV+32 02680000 SDWAGR07 EQU SDWAGRSV+28 02681000 SDWAGR06 EQU SDWAGRSV+24 02682000 SDWAGR05 EQU SDWAGRSV+20 02683000 SDWAGR04 EQU SDWAGRSV+16 02684000 SDWAGR03 EQU SDWAGRSV+12 02685000 SDWAGR02 EQU SDWAGRSV+8 02686000 SDWAGR01 EQU SDWAGRSV+4 02687000 SDWAGR00 EQU SDWAGRSV 02688000 SDWANXTP EQU SDWACTL2+5 02689000 SDWASGP EQU SDWAPMKP 02690000 SDWAEUP EQU SDWAPMKP 02691000 SDWADOP EQU SDWAPMKP 02692000 SDWAFPP EQU SDWAPMKP 02693000 SDWACCP EQU SDWAPMKP 02694000 SDWAILP EQU SDWAPMKP 02695000 SDWAINTP EQU SDWACTL2+2 02696000 SDWASPVP EQU SDWAMWPP 02697000 SDWAWATP EQU SDWAMWPP 02698000 SDWAMCKP EQU SDWAMWPP 02699000 @NM00056 EQU SDWAMWPP 02700000 SDWAKEYP EQU SDWAMWPP 02701000 SDWAEXTP EQU SDWACMKP 02702000 SDWAIOP EQU SDWACMKP 02703000 SDWANXTA EQU SDWACTL1+5 02704000 SDWASGA EQU SDWAPMKA 02705000 SDWAEUA EQU SDWAPMKA 02706000 SDWADOA EQU SDWAPMKA 02707000 SDWAFPA EQU SDWAPMKA 02708000 SDWACCA EQU SDWAPMKA 02709000 SDWAILA EQU SDWAPMKA 02710000 SDWAINTA EQU SDWACTL1+2 02711000 SDWASPVA EQU SDWAMWPA 02712000 SDWAWATA EQU SDWAMWPA 02713000 SDWAMCKA EQU SDWAMWPA 02714000 @NM00055 EQU SDWAMWPA 02715000 SDWAKEYA EQU SDWAMWPA 02716000 SDWAEXTA EQU SDWACMKA 02717000 SDWAIOA EQU SDWACMKA 02718000 @NM00054 EQU SDWACMPF 02719000 SDWASTCC EQU SDWACMPF 02720000 @NM00053 EQU SDWACMPF 02721000 SDWASTEP EQU SDWACMPF 02722000 SDWAREQ EQU SDWACMPF 02723000 @NM00028 EQU PCCW+72 02724000 PCCWNCT EQU PCCWNOP+6 02725000 PCCWNAD EQU PCCWNOP+1 02726000 PCCWCNT EQU PCCWRW+6 02727000 PCCWRWFG EQU PCCWRW+4 02728000 PCCWADDR EQU PCCWRW+1 02729000 PCCWRDWT EQU PCCWRW 02730000 PCCWTCT EQU PCCWTIC+6 02731000 PCCWTFG EQU PCCWTIC+4 02732000 PCCWTAD EQU PCCWTIC+1 02733000 PCCWT EQU PCCWTIC 02734000 PCCWSICT EQU PCCWSRCH+6 02735000 PCCWSIFG EQU PCCWSRCH+4 02736000 PCCWSIAD EQU PCCWSRCH+1 02737000 PCCWSIDE EQU PCCWSRCH 02738000 PCCWSSCT EQU PCCWSSEC+6 02739000 PCCWSSFG EQU PCCWSSEC+4 02740000 PCCWSSAD EQU PCCWSSEC+1 02741000 PCCWSS EQU PCCWSSEC 02742000 PCCWSKCT EQU PCCWSEEK+6 02743000 PCCWSKFG EQU PCCWSEEK+4 02744000 PCCWSKAD EQU PCCWSEEK+1 02745000 PCCWSK EQU PCCWSEEK 02746000 PCCWR EQU PCCWCHHR+7 02747000 PCCWHH EQU PCCWCHHR+5 02748000 PCCWCC EQU PCCWCHHR+3 02749000 PCCWBB EQU PCCWCHHR+1 02750000 PCCWM EQU PCCWCHHR 02751000 PCCWIORB EQU PCCW+12 02752000 @NM00027 EQU PCCW+3 02753000 @NM00026 EQU PCCWFLGS 02754000 PCCWFERR EQU PCCWFLGS 02755000 PCCWSECT EQU PCCW+1 02756000 PCCWID EQU PCCW 02757000 PATCYLS EQU PATMAP 02758000 PATRSV1 EQU PATHDR+14 02759000 PATCYLSZ EQU PATHDR+10 02760000 PATCYLNO EQU PATHDR+8 02761000 PATPART EQU PATHDR+4 02762000 PATIDENT EQU PATHDR 02763000 @NM00025 EQU PARTENT+62 02764000 PARELCYL EQU PARTENT+60 02765000 PARERQTM EQU PARTENT+56 02766000 PAREWTQE EQU PARTENT+52 02767000 PAREPCTP EQU PARTENT+36 02768000 PARERRCT EQU PARTENT+24 02769000 PARENN EQU PARTENT+10 02770000 @NM00024 EQU PAREFLG1 02771000 PAREINCP EQU PAREFLG1 02772000 PAREDSBD EQU PAREFLG1 02773000 @NM00023 EQU PARETYPE 02774000 PARECOMM EQU PARETYPE 02775000 PAREIORN EQU PARELKUP+1 02776000 @NM00022 EQU PARELKFL 02777000 PAREFSIP EQU PARELKFL 02778000 PAREPARE EQU PARTENT 02779000 PARTENTS EQU PART+80 02780000 PARTLOCL EQU PARTLOCQ+4 02781000 PARTLOCF EQU PARTLOCQ 02782000 PARTDUPL EQU PARTDUPQ+4 02783000 PARTDUPF EQU PARTDUPQ 02784000 PARTSPLL EQU PARTSPLQ+4 02785000 PARTSPLF EQU PARTSPLQ 02786000 PARTCOML EQU PARTCOMQ+4 02787000 PARTCOMF EQU PARTCOMQ 02788000 PARTLKUP EQU PARTHDR+40 02789000 @NM00021 EQU PARTHDR+34 02790000 PARTLCNT EQU PARTHDR+32 02791000 PARTPCTQ EQU PARTHDR+28 02792000 PARTDSNL EQU PARTTPAR 02793000 PARTCIR2 EQU PARTHDR+20 02794000 PARTCIR1 EQU PARTHDR+16 02795000 PARTEUSE EQU PARTHDR+8 02796000 PARTSIZE EQU PARTHDR+4 02797000 PARTIDEN EQU PARTHDR 02798000 IOSEND EQU IOSB+108 02799000 IOSSKR EQU IOSEEKA+7 02800000 IOSSKH2 EQU IOSSKHH+1 02801000 IOSSKH1 EQU IOSSKHH 02802000 IOSSKCC EQU IOSCCHH 02803000 IOSSKBB EQU IOSEEKA+1 02804000 IOSSKM EQU IOSEEKA 02805000 IOSEEK EQU IOSB+92 02806000 IOSMDM EQU IOSB+91 02807000 IOSMDB EQU IOSB+90 02808000 IOSCKEY7 EQU IOSCKEY 02809000 IOSCKEY6 EQU IOSCKEY 02810000 IOSCKEY5 EQU IOSCKEY 02811000 IOSCKEY4 EQU IOSCKEY 02812000 @NM00017 EQU IOSCKEY 02813000 IOSFMSK EQU IOSB+88 02814000 IOSCUDEV EQU IOSPATH+1 02815000 @NM00016 EQU IOSCHN 02816000 IOSPATH3 EQU IOSCHN 02817000 IOSPATH2 EQU IOSCHN 02818000 IOSEXP EQU IOSCHN 02819000 IOSGDP EQU IOSCHN 02820000 IOSAFF EQU IOSB+85 02821000 IOSRSS1B EQU IOSB+84 02822000 IOSDSID EQU IOSB+80 02823000 IOSVST EQU IOSB+76 02824000 IOSRST EQU IOSB+72 02825000 IOSDIE EQU IOSB+68 02826000 IOSABN EQU IOSB+64 02827000 IOSNRM EQU IOSB+60 02828000 IOSPCI EQU IOSB+56 02829000 IOSPCHN EQU IOSB+48 02830000 IOSSNS EQU IOSB+42 02831000 IOSAPMSK EQU IOSB+40 02832000 IOSRES4A EQU IOSB+36 02833000 IOSUSE EQU IOSB+32 02834000 IOSCSWRC EQU IOSCSW+5 02835000 IOSTSB EQU IOSTATUS+1 02836000 IOSTSA EQU IOSTATUS 02837000 IOSCSWCA EQU IOSCSW 02838000 IOSCC EQU @NM00015 02839000 IOSOPT2X EQU IOSOPT2 02840000 IOSIGP EQU IOSOPT2 02841000 IOSHTP EQU IOSOPT2 02842000 IOSRELSE EQU IOSOPT 02843000 IOSAPR EQU IOSOPT 02844000 IOSTSLL EQU IOSOPT 02845000 IOSNERP EQU IOSOPT 02846000 IOSPSLL EQU IOSOPT 02847000 IOSQISCE EQU IOSOPT 02848000 IOSDEP EQU IOSOPT 02849000 IOSBYP EQU IOSOPT 02850000 IOSCOD EQU IOSB+13 02851000 IOSPKY7 EQU IOSPKEY 02852000 IOSPGDPX EQU IOSPKEY 02853000 IOSIDR EQU IOSPKEY 02854000 IOSLCL EQU IOSPKEY 02855000 @NM00014 EQU IOSPKEY 02856000 IOSPGAD EQU IOSB+8 02857000 IOSPRLVL EQU IOSB+5 02858000 IOSFLC7 EQU IOSFLC 02859000 IOSCTCNR EQU IOSFLC 02860000 IOSRWAIT EQU IOSFLC 02861000 IOSTP EQU IOSFLC 02862000 IOSCC3WE EQU IOSFLC 02863000 IOSVERIF EQU IOSDVALT 02864000 IOSDVMNT EQU IOSFLC 02865000 IOSLOG EQU IOSFLB 02866000 IOSBDCST EQU IOSFLB 02867000 IOSMSG EQU IOSFLB 02868000 IOSFLB4 EQU IOSFLB 02869000 IOSFLB3 EQU IOSFLB 02870000 IOSNOTRS EQU IOSFLB 02871000 IOSSDR EQU IOSFLB 02872000 IOSDIESE EQU IOSFLB 02873000 IOSIOSB EQU IOSFLA 02874000 IOSDOM EQU IOSFLA 02875000 IOSEX EQU IOSFLA 02876000 IOSSMDB EQU IOSFLA 02877000 IOSSMDA EQU IOSFLA 02878000 IOSERR EQU IOSFLA 02879000 IOSCCHN EQU IOSACHN 02880000 IOSDCHN EQU IOSACHN 02881000 @NM00013 EQU IORB+40 02882000 IORRSV EQU IORB+36 02883000 IORERR EQU IORB+20 02884000 IORSAVE EQU IORB+16 02885000 IORSCCW EQU IORPCCW 02886000 IORFAE EQU IORAPND 02887000 IORFNE EQU IORAPND 02888000 IORFDI EQU IORAPND 02889000 IORSWAP EQU IORFLGS 02890000 @NM00012 EQU IORFLGS 02891000 IORFRPS EQU IORFLGS 02892000 IORNUM EQU IORB+1 02893000 @NM00011 EQU IOE+16 02894000 IOEBKPTR EQU IOEWORK 02895000 IOENXTGT EQU IOELSIDA 02896000 IOENXTLE EQU IOENXT 02897000 IOCOEND EQU IOCOM+128 02898000 IOCPATCH EQU IOCOM+124 02899000 IOCUCBBM EQU IOCOM+120 02900000 IOCQCNT EQU IOCOM+116 02901000 IOCIOSDQ EQU IOCOM+112 02902000 IOCIOSEQ EQU IOCOM+108 02903000 IOCSVCF EQU IOCOM+104 02904000 IOCTCCW EQU IOCOM+100 02905000 IOCRSVTB EQU IOCOM+96 02906000 IOCMFCNT EQU IOCOM+92 02907000 IOCMFHK EQU IOCOM+88 02908000 IOCGENA EQU IOCOM+84 02909000 IOCCCH EQU IOCOM+80 02910000 IOCASYNQ EQU IOCOM+76 02911000 IOCLCHTB EQU IOCOM+72 02912000 IOCATTBL EQU IOCOM+68 02913000 IOCOMEX EQU IOCOM+64 02914000 IOCSYNCH EQU IOCOM+56 02915000 IOCCATLK EQU IOCOM+48 02916000 IOCPRGID EQU IOCOM+44 02917000 IOCIOSCP EQU IOCOM+40 02918000 IOCORMGT EQU IOCOM+36 02919000 IOCVOID EQU IOCOM+32 02920000 IOCSCOMP EQU IOCOM+24 02921000 IOCHD160 EQU IOCOM+20 02922000 IOCINT EQU IOCOM+16 02923000 IOCCTBL EQU IOCOM+12 02924000 IOCHIO EQU IOCOM+8 02925000 IOCPST EQU IOCOM+4 02926000 IOCPGCT EQU IOCOM+2 02927000 IOCVOICT EQU IOCOM 02928000 EPALFIOE EQU EPATH+16 02929000 EDBTKBAL EQU IDAEDB+20 02930000 EDBHIRBA EQU IDAEDB+16 02931000 EDBLORBA EQU IDAEDB+12 02932000 EDBSTTRK EQU IDAEDB+8 02933000 EDBLPMBA EQU IDAEDB+4 02934000 EDBM EQU IDAEDB+3 02935000 @NM00010 EQU EDBFLG1 02936000 EDBPSDS EQU EDBFLG1 02937000 EDBTOFLW EQU EDBFLG1 02938000 EDBLKR EQU EDBFLG1 02939000 @NM00009 EQU IDAEDB 02940000 EDBLPMBC EQU IDAEDBHD+4 02941000 EDBLEN EQU IDAEDBHD+2 02942000 EDBNO EQU IDAEDBHD+1 02943000 EDBID EQU IDAEDBHD 02944000 CVTLEVL EQU CVTRELNO+2 02945000 CVTNUMB EQU CVTRELNO 02946000 CVTMDL EQU CVTFIX+250 02947000 @NM00008 EQU CVTFIX+248 02948000 @NM00007 EQU CVTFIX 02949000 CVTRV482 EQU CVTXTNT2+128 02950000 CVTRV481 EQU CVTXTNT2+124 02951000 CVTRV480 EQU CVTXTNT2+120 02952000 CVTRV479 EQU CVTXTNT2+118 02953000 CVTRV478 EQU CVTXTNT2+117 02954000 CVTRV477 EQU CVTXTNT2+116 02955000 CVTRV476 EQU CVTXTNT2+115 02956000 CVTRV475 EQU CVTXTNT2+114 02957000 CVTRV474 EQU CVTRV466 02958000 CVTRV473 EQU CVTRV466 02959000 CVTRV472 EQU CVTRV466 02960000 CVTRV471 EQU CVTRV466 02961000 CVTRV470 EQU CVTRV466 02962000 CVTRV469 EQU CVTRV466 02963000 CVTRV468 EQU CVTRV466 02964000 CVTRV467 EQU CVTRV466 02965000 CVTRV465 EQU CVTRV457 02966000 CVTRV464 EQU CVTRV457 02967000 CVTRV463 EQU CVTRV457 02968000 CVTRV462 EQU CVTRV457 02969000 CVTRV461 EQU CVTRV457 02970000 CVTRV460 EQU CVTRV457 02971000 CVTRV459 EQU CVTRV457 02972000 CVTRV458 EQU CVTRV457 02973000 CVTRV456 EQU CVTXTNT2+108 02974000 CVTRV455 EQU CVTXTNT2+104 02975000 CVTRV454 EQU CVTXTNT2+100 02976000 CVTRV453 EQU CVTXTNT2+96 02977000 CVTRV452 EQU CVTXTNT2+94 02978000 CVTRV451 EQU CVTXTNT2+92 02979000 CVTRV450 EQU CVTXTNT2+90 02980000 CVTRV449 EQU CVTXTNT2+88 02981000 CVTRV448 EQU CVTXTNT2+87 02982000 CVTRV447 EQU CVTXTNT2+86 02983000 CVTRV446 EQU CVTRV438 02984000 CVTRV445 EQU CVTRV438 02985000 CVTRV444 EQU CVTRV438 02986000 CVTRV443 EQU CVTRV438 02987000 CVTRV442 EQU CVTRV438 02988000 CVTRV441 EQU CVTRV438 02989000 CVTRV440 EQU CVTRV438 02990000 CVTRV439 EQU CVTRV438 02991000 CVTRV437 EQU CVTRV429 02992000 CVTRV436 EQU CVTRV429 02993000 CVTRV435 EQU CVTRV429 02994000 CVTRV434 EQU CVTRV429 02995000 CVTRV433 EQU CVTRV429 02996000 CVTRV432 EQU CVTRV429 02997000 CVTRV431 EQU CVTRV429 02998000 CVTRV430 EQU CVTRV429 02999000 CVTRV428 EQU CVTXTNT2+80 03000000 CVTRV427 EQU CVTXTNT2+76 03001000 CVTRV426 EQU CVTXTNT2+72 03002000 CVTRV425 EQU CVTXTNT2+68 03003000 CVTATACT EQU CVTATCVT 03004000 CVTRV423 EQU CVTXTNT2+62 03005000 CVTRV422 EQU CVTXTNT2+60 03006000 CVTRV421 EQU CVTXTNT2+58 03007000 CVTRV420 EQU CVTXTNT2+56 03008000 CVTRV419 EQU CVTXTNT2+55 03009000 CVTRV418 EQU CVTXTNT2+54 03010000 CVTRV417 EQU CVTRV409 03011000 CVTRV416 EQU CVTRV409 03012000 CVTRV415 EQU CVTRV409 03013000 CVTRV414 EQU CVTRV409 03014000 CVTRV413 EQU CVTRV409 03015000 CVTRV412 EQU CVTRV409 03016000 CVTRV411 EQU CVTRV409 03017000 CVTRV410 EQU CVTRV409 03018000 CVTRV408 EQU CVTRV400 03019000 CVTRV407 EQU CVTRV400 03020000 CVTRV406 EQU CVTRV400 03021000 CVTRV405 EQU CVTRV400 03022000 CVTRV404 EQU CVTRV400 03023000 CVTRV403 EQU CVTRV400 03024000 CVTRV402 EQU CVTRV400 03025000 CVTRV401 EQU CVTRV400 03026000 CVTICB EQU CVTXTNT2+48 03027000 CVTSKTA EQU CVTXTNT2+44 03028000 CVTCCVT EQU CVTXTNT2+40 03029000 CVTRSV98 EQU CVTXTNT2+36 03030000 CVTRSV97 EQU CVTXTNT2+34 03031000 CVTRSV96 EQU CVTXTNT2+32 03032000 CVTOLTEP EQU CVTXTNT2+28 03033000 CVTQIDA EQU CVTQID+1 03034000 CVTRSV95 EQU CVTQID 03035000 CVTRSV94 EQU CVTXTNT2+20 03036000 CVTRSV93 EQU CVTXTNT2+16 03037000 CVTRSV92 EQU CVTXTNT2+12 03038000 CVTDEBVR EQU CVTXTNT2+8 03039000 CVTRSV91 EQU CVTXTNT2+6 03040000 CVTRSV9H EQU CVTFLGBT 03041000 CVTRSV9G EQU CVTFLGBT 03042000 CVTRSV9F EQU CVTFLGBT 03043000 CVTRSV9E EQU CVTFLGBT 03044000 CVTRSV9D EQU CVTFLGBT 03045000 CVTRSV9C EQU CVTFLGBT 03046000 CVTVME EQU CVTFLGBT 03047000 CVTNPE EQU CVTFLGBT 03048000 CVTNUCLS EQU CVTXTNT2+4 03049000 CVTDSSVA EQU CVTDSSV+1 03050000 CVTRSV89 EQU CVTDSSV 03051000 CVTRSV88 EQU CVTXTNT1+8 03052000 CVTRSV87 EQU CVTXTNT1+4 03053000 CVTFACHN EQU CVTXTNT1 03054000 CVTRV488 EQU CVTMAP+412 03055000 CVTRV487 EQU CVTMAP+408 03056000 CVTRV486 EQU CVTMAP+404 03057000 CVTRV485 EQU CVTMAP+400 03058000 CVTACTAP EQU CVTMAP+396 03059000 CVTAUTH EQU CVTMAP+392 03060000 CVTATMCA EQU CVTATMCT+1 03061000 CVTATMST EQU CVTATMCT 03062000 CVTRSV61 EQU CVTMAP+384 03063000 CVTVOLT1 EQU CVTVOLM1+1 03064000 CVTVOLI1 EQU CVTVOLF1 03065000 CVTSTOA EQU CVTMAP+376 03066000 CVTRSV58 EQU CVTMAP+374 03067000 CVTRSV57 EQU CVTMAP+372 03068000 CVTDDCE EQU CVTMAP+368 03069000 CVTPNWFR EQU CVTMAP+364 03070000 CVTSMF EQU CVTMAP+360 03071000 CVTSULK EQU CVTMAP+358 03072000 CVTSLKO EQU CVTSYSK 03073000 CVTSLKP EQU CVTSYSK 03074000 CVTSLKQ EQU CVTSYSK 03075000 CVTSLKR EQU CVTSYSK 03076000 CVTRSV56 EQU CVTSYSK 03077000 CVTRSV55 EQU CVTSYSK 03078000 CVTRSV54 EQU CVTSYSK 03079000 CVTRSV53 EQU CVTSYSK 03080000 CVTRSV52 EQU CVTA1F1 03081000 CVTRSV51 EQU CVTA1F1 03082000 CVTRSV50 EQU CVTA1F1 03083000 CVTRSV49 EQU CVTA1F1 03084000 CVTRSV48 EQU CVTA1F1 03085000 CVTRSV47 EQU CVTA1F1 03086000 CVTSRSW EQU CVTA1F1 03087000 CVTPFSW EQU CVTA1F1 03088000 CVTPCVT EQU CVTMAP+352 03089000 CVTRSV46 EQU CVTMAP+344 03090000 CVTRSV45 EQU CVTMAP+340 03091000 CVTRSV44 EQU CVTMAP+338 03092000 CVTRSV43 EQU CVTMAP+336 03093000 CVTHJESA EQU CVTHJES+1 03094000 CVTRSV42 EQU CVTHJES 03095000 CVTEXT2A EQU CVTEXT2+1 03096000 CVTRSV41 EQU CVTEXT2 03097000 CVTAPFA EQU CVTAPF+1 03098000 CVTRSV40 EQU CVTAPF 03099000 CVTRV518 EQU CVTINTLA 03100000 CVTRV517 EQU CVTERPV 03101000 CVTEORM EQU CVTMAP+312 03102000 CVTMCHPR EQU CVTMAP+308 03103000 CVTTZ EQU CVTMAP+304 03104000 CVTJEPS EQU CVTMAP+300 03105000 CVTJESCT EQU CVTMAP+296 03106000 CVTMODE EQU CVTMAP+292 03107000 CVTPTRV EQU CVTMAP+288 03108000 CVTREAL EQU CVTMAP+284 03109000 CVTRSV39 EQU CVTMAP+280 03110000 CVTRSV38 EQU CVTMAP+276 03111000 CVTDMSRA EQU CVTDMSR+1 03112000 CVTRV634 EQU CVTDMSRF 03113000 CVTRV633 EQU CVTDMSRF 03114000 CVTRV632 EQU CVTDMSRF 03115000 CVTRV631 EQU CVTDMSRF 03116000 CVTRV630 EQU CVTDMSRF 03117000 CVTRV629 EQU CVTDMSRF 03118000 CVTUDUMP EQU CVTDMSRF 03119000 CVTSDUMP EQU CVTDMSRF 03120000 CVTQMSGA EQU CVTQMSG+1 03121000 CVTRSV36 EQU CVTQMSG 03122000 CVTAMFF EQU CVTMAP+264 03123000 CVTPURGA EQU CVTPURG+1 03124000 CVTRSV35 EQU CVTPURG 03125000 CVTCBSP EQU CVTMAP+256 03126000 CVTATERA EQU CVTATER+1 03127000 CVTSYST EQU CVTATER 03128000 CVTVOLT2 EQU CVTTAT 03129000 CVTVOLI2 EQU CVTVOLF2 03130000 CVTAQAVB EQU CVTAQAVT+1 03131000 CVTRSV34 EQU CVTTCMFG 03132000 CVTRSV33 EQU CVTTCMFG 03133000 CVTRSV32 EQU CVTTCMFG 03134000 CVTRSV31 EQU CVTTCMFG 03135000 CVTRSV30 EQU CVTTCMFG 03136000 CVTRSV29 EQU CVTTCMFG 03137000 CVTLDEV EQU CVTTCMFG 03138000 CVTTCRDY EQU CVTTCMFG 03139000 CVTGTFA EQU CVTGTF+1 03140000 CVTRSV27 EQU CVTGTFST 03141000 CVTRNIO EQU CVTGTFST 03142000 CVTUSR EQU CVTGTFST 03143000 CVTRV318 EQU CVTFORM 03144000 CVTRV317 EQU CVTTMODE 03145000 CVTRV316 EQU CVTSTATE 03146000 CVTRV315 EQU CVTGTFS 03147000 CVTGTFAV EQU CVTGTFS 03148000 CVT0SCR1 EQU CVTMAP+232 03149000 CVTRV515 EQU CVTMAP+228 03150000 CVTRMS EQU CVTMAP+224 03151000 CVTPATCH EQU CVTMAP+220 03152000 CVTTSCE EQU CVTMAP+216 03153000 CVTLNKSC EQU CVTMAP+214 03154000 CVTQABST EQU CVTMAP+212 03155000 CVTMDLDS EQU CVTMAP+208 03156000 CVTUSER EQU CVTMAP+204 03157000 CVTABEND EQU CVTMAP+200 03158000 CVTSMCA EQU CVTMAP+196 03159000 CVTRSV18 EQU CVTMAP+192 03160000 CVTQLPAQ EQU CVTMAP+188 03161000 CVTQCDSR EQU CVTMAP+184 03162000 CVTRSV17 EQU CVTOPTB 03163000 CVTRSV16 EQU CVTOPTB 03164000 CVTFP EQU CVTOPTB 03165000 CVTAPTHR EQU CVTOPTB 03166000 CVTNLOG EQU CVTOPTB 03167000 CVTTOD EQU CVTOPTB 03168000 CVTCTIMS EQU CVTOPTB 03169000 CVTPROT EQU CVTOPTB 03170000 CVTXPFP EQU CVTOPTA 03171000 CVTASCII EQU CVTOPTA 03172000 CVTRSV13 EQU CVTOPTA 03173000 CVTRSV12 EQU CVTOPTA 03174000 CVTNIP EQU CVTOPTA 03175000 CVTDDR EQU CVTOPTA 03176000 CVTAPR EQU CVTOPTA 03177000 CVTCCH EQU CVTOPTA 03178000 CVTSNCTR EQU CVTMAP+180 03179000 CVTQMWR EQU CVTMAP+176 03180000 CVTQOCR EQU CVTMAP+172 03181000 CVT1EF00 EQU CVTMAP+168 03182000 CVTMZ00 EQU CVTMAP+164 03183000 CVTSV76Q EQU CVTSV76C 03184000 CVTRSV11 EQU CVTMAP+156 03185000 CVT0PT01 EQU CVTMAP+152 03186000 CVTMSER EQU CVTMAP+148 03187000 CVTRV516 EQU CVTIERLC 03188000 CVTILCH EQU CVTMAP+140 03189000 CVT0DS EQU CVTMAP+136 03190000 CVTFBOSV EQU CVTMAP+132 03191000 CVTNUCB EQU CVTMAP+128 03192000 CVTSV76M EQU CVTIOQET 03193000 CVTDCBA EQU CVTMAP+117 03194000 CVTMVS2 EQU CVTDCB 03195000 CVT6DAT EQU CVTDCB 03196000 CVT4MPS EQU CVTDCB 03197000 CVTRSV09 EQU CVTDCB 03198000 CVT4MS1 EQU CVTDCB 03199000 CVT2SPS EQU CVTDCB 03200000 CVT1SSS EQU CVTDCB 03201000 CVTRSV08 EQU CVTDCB 03202000 CVTSTB EQU CVTMAP+112 03203000 CVTQTD00 EQU CVTMAP+108 03204000 CVTQTE00 EQU CVTMAP+104 03205000 CVTCUCB EQU CVTMAP+100 03206000 CVTSJQ EQU CVTMAP+96 03207000 CVTPBLDL EQU CVTMAP+92 03208000 CVTTPC EQU CVTMAP+88 03209000 CVTSVDCB EQU CVTMAP+84 03210000 CVTBRET EQU CVTMAP+82 03211000 CVTEXIT EQU CVTMAP+80 03212000 CVT0FN00 EQU CVTMAP+76 03213000 CVTDARA EQU CVTDAR+1 03214000 CVTRSV07 EQU CVTFLGS1 03215000 CVTRSV06 EQU CVTFLGS1 03216000 CVTRSV05 EQU CVTFLGS1 03217000 CVTRSV04 EQU CVTFLGS1 03218000 CVTRSV03 EQU CVTFLGS1 03219000 CVTRSV02 EQU CVTFLGS1 03220000 CVTRSV01 EQU CVTFLGS1 03221000 CVTDMPLK EQU CVTFLGS1 03222000 CVTXITP EQU CVTMAP+68 03223000 CVTZDTAB EQU CVTMAP+64 03224000 CVTMSLT EQU CVTMAP+60 03225000 CVTDATE EQU CVTMAP+56 03226000 CVTBTERM EQU CVTMAP+52 03227000 CVTSYSAD EQU CVTMAP+48 03228000 CVTXTLER EQU CVTMAP+44 03229000 CVTILK2 EQU CVTMAP+40 03230000 CVTILK1 EQU CVTMAP+36 03231000 CVTPRLTV EQU CVTMAP+32 03232000 CVTPCNVT EQU CVTMAP+28 03233000 CVT0VL00 EQU CVTMAP+24 03234000 CVTXAPG EQU CVTMAP+20 03235000 CVTBUF EQU CVTMAP+16 03236000 CVTJOB EQU CVTMAP+12 03237000 CVTLINK EQU CVTMAP+8 03238000 CVT0EF00 EQU CVTMAP+4 03239000 CVTTCBP EQU CVTMAP 03240000 CVT EQU CVTMAP 03241000 ATAWORKA EQU ATACLEAR 03242000 ATARCODE EQU ATA+7 03243000 ATARCRF8 EQU ATARCRSN 03244000 ATARCRF7 EQU ATARCRSN 03245000 ATARCRF6 EQU ATARCRSN 03246000 ATARCRF5 EQU ATARCRSN 03247000 ATARCRF4 EQU ATARCRSN 03248000 ATARCRF3 EQU ATARCRSN 03249000 ATARCRF2 EQU ATARCRSN 03250000 ATARCRF1 EQU ATARCRSN 03251000 ATARSV2 EQU ATARFLGS 03252000 ATABADPK EQU ATARFLGS 03253000 ATASCCWP EQU ATARFLGS 03254000 ATASGNST EQU ATARFLGS 03255000 ATARSV1 EQU ATASFLGS+1 03256000 ATASWPDR EQU ATASFLGS+1 03257000 ATATRPAG EQU ATASFLGS+1 03258000 ATASWAP EQU ATASFLGS+1 03259000 ATAPAGCM EQU ATASFLGS 03260000 ATAPAGIO EQU ATASFLGS 03261000 ATAPOS EQU ATASFLGS 03262000 ATAPCOMP EQU ATASFLGS 03263000 ATAVIOCM EQU ATASFLGS 03264000 ATASCOMP EQU ATASFLGS 03265000 ATASLSQA EQU ATASFLGS 03266000 ATAQIOE EQU ATASFLGS 03267000 ATAMODID EQU ATA 03268000 ASMCPRES EQU ASMCPRSQ+4 03269000 ASMCPTAK EQU ASMCPRSQ 03270000 ASMCPCNT EQU ASMCPAVQ+4 03271000 ASMCPEXT EQU ASMPOOLS+6 03272000 ASMCPSIZ EQU ASMPOOLS+4 03273000 ASMCPID EQU ASMPOOLS 03274000 ASMRSV12 EQU ASMVT+1000 03275000 ASMSAVE EQU ASMVT+928 03276000 ASMWKSA7 EQU ASMVT+848 03277000 ASMWKSA6 EQU ASMVT+768 03278000 ASMACEPC EQU ASMVT+344 03279000 ASMSWKPC EQU ASMVT+328 03280000 ASMBWKPC EQU ASMVT+312 03281000 ASMRSV10 EQU ASMVT+280 03282000 ASMPVACE EQU ASMVT+276 03283000 ASMPIOFR EQU ASMVT+272 03284000 ASMPVACQ EQU ASMVT+268 03285000 ASMPMSGS EQU ASMVT+264 03286000 ASMPFRLG EQU ASMVT+256 03287000 ASMPRLG EQU ASMVT+252 03288000 ASMPACT EQU ASMVT+248 03289000 ASMPSAV EQU ASMVT+244 03290000 ASMPCMP EQU ASMVT+240 03291000 ASMPCMPA EQU ASMVT+236 03292000 ASMPCMPN EQU ASMVT+232 03293000 ASMPCMPD EQU ASMVT+228 03294000 ASMVRMTR EQU ASMVT+220 03295000 ASMPSRBC EQU ASMVT+216 03296000 ASMPSRMT EQU ASMVT+212 03297000 ASMPSWPD EQU ASMVT+208 03298000 ASMPTM EQU ASMVT+204 03299000 ASMPFRSW EQU ASMVT+200 03300000 ASMPFRSL EQU ASMVT+196 03301000 ASMPQIOE EQU ASMVT+192 03302000 ASMRSV8 EQU ASMVT+188 03303000 ASMVSAMW EQU ASMVT+184 03304000 ASMTASCB EQU ASMVT+180 03305000 ASMRLGWQ EQU ASMVT+176 03306000 ASMRLGRQ EQU ASMVT+172 03307000 ASMTMECB EQU ASMVT+168 03308000 ASMTCBPT EQU ASMVT+164 03309000 ASMREQCT EQU ASMVT+160 03310000 ASMGOSWK EQU ASMGOSQS+4 03311000 ASMGOSWT EQU ASMGOSQS 03312000 ASMLSAIH EQU ASMLSAI+4 03313000 ASMLSAIL EQU ASMLSAI 03314000 ASMCINV EQU ASMVT+140 03315000 ASMSTGXA EQU ASMVT+136 03316000 ASMLGVT EQU ASMVT+132 03317000 ASMSLOTV EQU ASMVT+128 03318000 ASMERRS EQU ASMVT+124 03319000 ASMNVSC EQU ASMVT+120 03320000 ASMVSC EQU ASMVT+116 03321000 ASMBKSLT EQU ASMVT+108 03322000 ASMRSV7 EQU ASMVT+92 03323000 ASMBURST EQU ASMVT+76 03324000 ASMPCCWN EQU ASMVT+72 03325000 ASMPCCWC EQU ASMPCCWQ+4 03326000 ASMRSV6 EQU ASMVT+48 03327000 ASMIORQC EQU ASMVT+44 03328000 ASMIORQR EQU ASMVT+40 03329000 ASMSTAGL EQU ASMSTAGQ+4 03330000 ASMSTAGF EQU ASMSTAGQ 03331000 ASMRSV5 EQU ASMVT+28 03332000 ASMMSGBF EQU ASMVT+24 03333000 ASMEREC EQU ASMVT+20 03334000 ASMTRPAG EQU ASMVT+16 03335000 ASMGOS EQU ASMVT+12 03336000 ASMSART EQU ASMVT+4 03337000 ASMDSSFS EQU ASMVT+2 03338000 ASMWARM EQU ASMFLAG2 03339000 ASMQUICK EQU ASMFLAG2 03340000 ASMNOTPT EQU ASMFLAG2 03341000 ASMNOTMR EQU ASMFLAG2 03342000 ASMNOSAV EQU ASMFLAG2 03343000 ASMCALLQ EQU ASMFLAG2 03344000 ASMPLPAS EQU ASMFLAG1 03345000 ASMRSV1 EQU ASMFLAG1 03346000 ASMNOLCL EQU ASMFLAG1 03347000 ASMNOCWQ EQU ASMFLAG1 03348000 AIADPXCT EQU AIALGE 03349000 AIACEPTR EQU AIALPMEP 03350000 AIASLOT EQU AIASSID+1 03351000 @NM00002 EQU AIASSID 03352000 @NM00001 EQU AIALSID 03353000 AIARCSN EQU AIANXAIA+2 03354000 AIACYL EQU AIANXAIA 03355000 AIARSV9 EQU AIAFLG3 03356000 AIARSV8 EQU AIAFLG3 03357000 AIARSV7 EQU AIAFLG3 03358000 AIALPMEC EQU AIAFLG3 03359000 AIARSV6 EQU AIAFLG3 03360000 AIATRPSP EQU AIAFLG3 03361000 AIAPRINO EQU AIAFLG3 03362000 AIARSV5 EQU AIAFLG3 03363000 AIABADID EQU AIAFLG2 03364000 AIAERROR EQU AIAFLG2 03365000 AIARSV4 EQU AIAFLG2 03366000 AIAIORTY EQU AIAFLG2 03367000 AIATERMR EQU AIAFLG2 03368000 AIAFRAUX EQU AIAFLG2 03369000 AIARSV1 EQU AIAFLG1 03370000 AIASWPFX EQU AIAFLG1 03371000 AIAPAGDS EQU AIAFLG1 03372000 AIALSQA EQU AIAFLG1 03373000 AIAVIO EQU AIAFLG1 03374000 AIAPRIV EQU AIAFLG1 03375000 AIAOP EQU AIA+8 03376000 AIABQPA EQU AIA+4 03377000 AIAFQPA EQU AIA 03378000 @NM00052 EQU PSA+3668 03379000 PSASTAK EQU PSA+3072 03380000 @NM00051 EQU PSA+1048 03381000 PSAUSEND EQU PSA+1048 03382000 PSARV062 EQU PSA+1044 03383000 PSACDAL EQU PSA+1040 03384000 PSAWTCOD EQU PSA+1036 03385000 PSAATCVT EQU PSA+1032 03386000 PSAPCPSW EQU PSA+1024 03387000 PSAPIR2 EQU PSA+1020 03388000 PSARV059 EQU PSA+1018 03389000 PSASVC13 EQU PSA+1016 03390000 PSALSFCC EQU PSA+1012 03391000 PSASFACC EQU PSA+1008 03392000 PSASTOP EQU PSA+992 03393000 PSASTART EQU PSA+976 03394000 PSARSPSW EQU PSA+968 03395000 PSASRPSW EQU PSA+960 03396000 PSARV045 EQU PSA+892 03397000 PSARV044 EQU PSA+888 03398000 PSARV043 EQU PSA+884 03399000 PSARV042 EQU PSA+880 03400000 PSARV041 EQU PSA+876 03401000 PSARV040 EQU PSA+872 03402000 PSARV025 EQU PSA+868 03403000 PSADSSED EQU PSA+868 03404000 PSADSSPR EQU PSA+864 03405000 PSADSSFW EQU PSA+860 03406000 PSADSS14 EQU PSA+856 03407000 PSADSSPP EQU PSA+848 03408000 PSADSSRP EQU PSA+840 03409000 PSADSS05 EQU PSADSSF4 03410000 PSADSS10 EQU PSADSSF4 03411000 PSADSSVE EQU PSADSSF4 03412000 PSADSSDE EQU PSADSSF4 03413000 PSADSSC0 EQU PSADSSF4 03414000 PSADSSIE EQU PSADSSF4 03415000 PSADSS12 EQU PSADSSF4 03416000 PSADSSRC EQU PSADSSF4 03417000 PSARV057 EQU PSADSSF3 03418000 PSARV056 EQU PSADSSF3 03419000 PSARV055 EQU PSADSSF3 03420000 PSADSSMC EQU PSADSSF3 03421000 PSADSSRW EQU PSADSSF3 03422000 PSADSSNM EQU PSADSSF3 03423000 PSADSSES EQU PSADSSF3 03424000 PSADSSGP EQU PSADSSF3 03425000 PSADSSF2 EQU PSADSSFL+1 03426000 PSADSSPI EQU PSADSSF1 03427000 PSADSSOI EQU PSADSSF1 03428000 PSADSSSP EQU PSADSSF1 03429000 PSADSSTP EQU PSADSSF1 03430000 PSADSSDW EQU PSADSSF1 03431000 PSADSSDD EQU PSADSSF1 03432000 PSADSSDM EQU PSADSSF1 03433000 PSADSSMV EQU PSADSSF1 03434000 PSADSSTS EQU PSA+816 03435000 PSADSSWK EQU PSA+812 03436000 PSADSSR3 EQU PSA+808 03437000 PSADSSR2 EQU PSA+804 03438000 PSADSSRS EQU PSA+800 03439000 PSASTOR EQU PSA+796 03440000 PSACPUSA EQU PSA+794 03441000 PSAVSTAP EQU PSA+792 03442000 PSAWKVAP EQU PSA+788 03443000 PSAWKRAP EQU PSA+784 03444000 PSAMCHIC EQU PSA+783 03445000 PSARV061 EQU PSA+782 03446000 PSASYMSK EQU PSA+781 03447000 PSAMCHFL EQU PSA+780 03448000 PSACR0 EQU PSA+776 03449000 PSAPSWSV EQU PSA+768 03450000 PSACLHS EQU PSAHLHI 03451000 PSALKR15 EQU PSALKSA+60 03452000 PSALKR14 EQU PSALKSA+56 03453000 PSALKR13 EQU PSALKSA+52 03454000 PSALKR12 EQU PSALKSA+48 03455000 PSALKR11 EQU PSALKSA+44 03456000 PSALKR10 EQU PSALKSA+40 03457000 PSALKR9 EQU PSALKSA+36 03458000 PSALKR8 EQU PSALKSA+32 03459000 PSALKR7 EQU PSALKSA+28 03460000 PSALKR6 EQU PSALKSA+24 03461000 PSALKR5 EQU PSALKSA+20 03462000 PSALKR4 EQU PSALKSA+16 03463000 PSALKR3 EQU PSALKSA+12 03464000 PSALKR2 EQU PSALKSA+8 03465000 PSALKR1 EQU PSALKSA+4 03466000 PSALKR0 EQU PSALKSA 03467000 PSARV023 EQU PSACLHT+52 03468000 PSALOCAL EQU PSACLHT+48 03469000 PSACMSL EQU PSACLHT+44 03470000 PSAOPTL EQU PSACLHT+40 03471000 PSATPACL EQU PSACLHT+36 03472000 PSATPDNL EQU PSACLHT+32 03473000 PSATPNCL EQU PSACLHT+28 03474000 PSAIOSLL EQU PSACLHT+24 03475000 PSAIOSUL EQU PSACLHT+20 03476000 PSAIOSCL EQU PSACLHT+16 03477000 PSAIOSSL EQU PSACLHT+12 03478000 PSASALCL EQU PSACLHT+8 03479000 PSAASML EQU PSACLHT+4 03480000 PSADISPL EQU PSACLHT 03481000 PSASRSA EQU PSA+636 03482000 PSARV050 EQU PSA+634 03483000 PSADSSGO EQU PSA+633 03484000 PSARECUR EQU PSA+632 03485000 PSAHLHIS EQU PSA+628 03486000 PSAIPCSA EQU PSA+624 03487000 @NM00050 EQU PSA+621 03488000 PSAIPCDM EQU PSA+620 03489000 PSAIPCD EQU PSA+616 03490000 @NM00049 EQU PSA+613 03491000 PSAIPCRM EQU PSA+612 03492000 PSAIPCR EQU PSA+608 03493000 PSAMCHEX EQU PSA+600 03494000 PSAMPSW EQU PSA+592 03495000 PSAEXPS2 EQU PSA+584 03496000 PSAEXPS1 EQU PSA+576 03497000 PSAPIREG EQU PSA+572 03498000 PSARSREG EQU PSA+568 03499000 PSAGPREG EQU PSA+556 03500000 PSARV022 EQU PSASUP4 03501000 PSARV021 EQU PSASUP4 03502000 PSARV020 EQU PSASUP4 03503000 PSARV019 EQU PSASUP4 03504000 PSARV018 EQU PSASUP4 03505000 PSARV017 EQU PSASUP4 03506000 PSARV016 EQU PSASUP4 03507000 PSARV015 EQU PSASUP4 03508000 PSARV014 EQU PSASUP3 03509000 PSAULCMS EQU PSASUP3 03510000 PSARV012 EQU PSASUP3 03511000 PSAESTA EQU PSASUP3 03512000 PSASPR EQU PSASUP3 03513000 PSAPSREG EQU PSASUP3 03514000 PSAPI2 EQU PSASUP3 03515000 PSAIOSUP EQU PSASUP3 03516000 PSALCR EQU PSASUP2 03517000 PSARTM EQU PSASUP2 03518000 PSAACR EQU PSASUP2 03519000 PSAIPCE2 EQU PSASUP2 03520000 PSAIPCES EQU PSASUP2 03521000 PSAIPCEC EQU PSASUP2 03522000 PSAGTF EQU PSASUP2 03523000 PSAIPCRI EQU PSASUP2 03524000 PSATYPE6 EQU PSASUP1 03525000 PSATCTL EQU PSASUP1 03526000 PSADISP EQU PSASUP1 03527000 PSALOCK EQU PSASUP1 03528000 PSAPI EQU PSASUP1 03529000 PSAEXT EQU PSASUP1 03530000 PSASVC EQU PSASUP1 03531000 PSAIO EQU PSASUP1 03532000 PSAAOLD EQU PSA+548 03533000 PSAANEW EQU PSA+544 03534000 PSATOLD EQU PSA+540 03535000 PSATNEW EQU PSA+536 03536000 PSALCCAR EQU PSA+532 03537000 PSALCCAV EQU PSA+528 03538000 PSAPCCAR EQU PSA+524 03539000 PSAPCCAV EQU PSA+520 03540000 PSACPULA EQU PSA+518 03541000 PSACPUPA EQU PSA+516 03542000 PSAPSA EQU PSA+512 03543000 FLCHDEND EQU PSA+512 03544000 FLCCRSAV EQU FLCMCLA+280 03545000 FLCGRSAV EQU FLCMCLA+216 03546000 FLCFPSAV EQU FLCMCLA+184 03547000 FLCFLA EQU FLCMCLA+88 03548000 FLCRGNCD EQU FLCMCLA+84 03549000 FLCFSAA EQU FLCFSA+1 03550000 @NM00048 EQU FLCFSA 03551000 @NM00047 EQU FLCMCLA+72 03552000 FLCMCIC EQU FLCMCLA+64 03553000 @NM00046 EQU FLCMCLA+20 03554000 FLCIOAA EQU FLCIOA+1 03555000 @NM00045 EQU FLCIOA 03556000 @NM00044 EQU FLCMCLA+15 03557000 @NM00043 EQU FLCMCLA+14 03558000 @NM00042 EQU FLCMCLA+12 03559000 FLCLCL EQU FLCMCLA+8 03560000 FLCIOELA EQU FLCIOEL+1 03561000 @NM00041 EQU FLCIOEL 03562000 FLCCHNID EQU FLCMCLA 03563000 @NM00040 EQU PSA+160 03564000 FLCMTRCD EQU PSA+157 03565000 @NM00039 EQU PSA+156 03566000 FLCPERA EQU FLCPER+1 03567000 @NM00038 EQU FLCPER 03568000 @NM00037 EQU PSA+151 03569000 FLCPERCD EQU PSA+150 03570000 FLCMCNUM EQU PSA+149 03571000 @NM00036 EQU PSA+148 03572000 FLCTEAA EQU FLCTEA+1 03573000 @NM00035 EQU FLCTEA 03574000 PSAPIPC EQU PSAPICOD 03575000 PSAPIMC EQU PSAPICOD 03576000 PSAPIPER EQU PSAPICOD 03577000 PSARV049 EQU FLCPICOD 03578000 FLCPILCB EQU FLCPIILC 03579000 @NM00034 EQU FLCPIILC 03580000 @NM00033 EQU PSAEPPSW 03581000 FLCSVCN EQU PSAESPSW+2 03582000 FLCSILCB EQU FLCSVILC 03583000 @NM00032 EQU FLCSVILC 03584000 @NM00031 EQU PSAESPSW 03585000 FLCEICOD EQU PSAEEPSW+2 03586000 PSASPAD EQU PSAEEPSW 03587000 @NM00030 EQU PSA+128 03588000 FLCINPSW EQU PSA+120 03589000 FLCMNPSW EQU PSA+112 03590000 FLCPNPSW EQU PSA+104 03591000 FLCSNPSW EQU PSA+96 03592000 FLCENPSW EQU PSA+88 03593000 FLCTRACE EQU PSA+84 03594000 FLCTIMER EQU PSA+80 03595000 FLCCVT2 EQU PSA+76 03596000 FLCCAW EQU PSA+72 03597000 FLCCSW EQU PSA+64 03598000 FLCIOPSW EQU PSA+56 03599000 FLCMOPSW EQU PSA+48 03600000 FLCPOPSW EQU PSA+40 03601000 FLCSOPSW EQU PSA+32 03602000 FLCEOPSW EQU PSA+24 03603000 @NM00029 EQU FLCICCW2+4 03604000 FLCICCW1 EQU FLCROPSW 03605000 FLCIPPSW EQU FLCRNPSW 03606000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03607000 @RT00130 EQU RESCHED 03608000 @RT00134 EQU RESCHED 03609000 @RC00142 EQU @RC00141 03610000 @RC00203 EQU @RC00202 03611000 @RT00243 EQU ZPCCWAIA 03612000 @RF00310 EQU ULKPARTE 03613000 @RT00316 EQU CKIORBOK 03614000 @RT00323 EQU CKIORBOK 03615000 @RF00465 EQU @RC00457 03616000 @RC00143 EQU @RC00142 03617000 @ENDDATA EQU * 03618000 END ILRSRT01,(C'PLS1800',0701,78110) 03619000