TITLE 'IEAVVRP2 - REPLY PROCESSOR - STAGE 2 - *00001000 ' 00002000 * /*SAVE SRB POINTER */ 00003000 IEAVVRP2 CSECT ENTRY POINT OF MODULE 00004000 USING *,15 ADDRESSABILITY 00005000 MODID BR=YES MODULE ID 00006000 LR SRBPTR,ZEROREG SAVE SRB ADDRESS 00007000 LR R8,RTNREG SAVE RETURN REGISTER 00008000 LR R8,RTNREG SAVE RETURN REGISTER 00009000 DROP 15 00010000 BALR BASREG,ZEROREG MODULE ADDRESSABILITY 00011000 DS 0H 00012000 USING *,12 ADDRESSABILITY 00013000 * ERRCDE=BASREG; /* SAVE BASE REGISTER */ 00014000 LR ERRCDE,BASREG 0091 00015000 * GEN REFS(PSALITA,FLC); 0092 00016000 * /*ISSUE SETLOCKS */ 00017000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, XX00018000 RELATED=(ORE,IEAVVRP2(CLEANUP)) 00019000 SETLOCK OBTAIN,TYPE=CMS,MODE=UNCOND, XX00020000 RELATED=(ORE,IEAVVRP2(CLEANUP)) 00021000 LR BASREG,ERRCDE RESTORE BASE REGISTER 00022000 L R4,SRBPTCB(,SRBPTR) SET TCB ADDRESS 00023000 L R2,@SIZDATD SIZE OF GETMAIN 00024000 L R7,SRBASCB(,SRBPTR) SET ASCB ADDRESS 00025000 SR R1,R1 GETMAIN INTERFACE 00026000 LR BASREG,ERRCDE RESTORE BASE REGISTER 00027000 L R4,SRBPTCB(,SRBPTR) SET TCB ADDRESS 00028000 L R2,@SIZDATD SIZE OF GETMAIN 00029000 L R7,SRBASCB(,SRBPTR) SET ASCB ADDRESS 00030000 SR R1,R1 GETMAIN INTERFACE 00031000 GETMAIN RU,LV=(R2),SP=229,BRANCH=YES YM04721 00032000 LR R9,R1 SET DATA REGISTER 00033000 USING @DATD,R9 ADDRESSABILITY FOR DATA AREA 00034000 LR RTNREG,R8 RESTORE RETURN REGISTER 00035000 LR RTNREG,R8 RESTORE RETURN REGISTER 00036000 * SAVREG=RTNREG; /* SAVE RETURN ADDRESS */ 00037000 ST RTNREG,SAVREG 0093 00038000 * RECEXADD=UCMFRRAD; /* SET ADDR OF RECOVERY EXIT */ 00039000 L @07,CVTPTR 0094 00040000 L @07,UCMBASPT(,@07) 0094 00041000 L @07,UCMFRRAD(,@07) 0094 00042000 ST @07,RECEXADD 0094 00043000 * GEN REFS(PSACSTK,FRRSCURR,FRRSLAST,PSALSFCC,FRRSPARM,FRRSENTR, 0095 00044000 * FRRSELEN,FRRSFRRA,RECEXADD); 0095 00045000 * /*ISSUE FRR */ 00046000 SETFRR A,FRRAD=RECEXADD,WRKREGS=(2,4),PARMAD=(2) 00047000 * PARMPTR=R2; /* BASE FOR PARM LIST */ 00048000 LR PARMPTR,R2 0096 00049000 * PARMID='VRP2'; /* SET MODULE ID */ 00050000 MVC PARMID(4,PARMPTR),@CC01901 0097 00051000 * ERRCDE=0; /* INIT ERROR CODE TO ZERO */ 00052000 SLR ERRCDE,ERRCDE 0098 00053000 * UCMMCSPT=UCMPRFXP; /* ADDR OF MCS PREFIX */ 00054000 L @07,CVTPTR 0099 00055000 L @07,UCMBASPT(,@07) 0099 00056000 LR @01,@07 0099 00057000 AL @01,@CF01936 0099 00058000 L @15,UCMPRFXP(,@01) 0099 00059000 ST @15,UCMMCSPT 0099 00060000 * UCMEXTPT=UCM2PTR; /* ADDR OF UCM EXTENSION */ 00061000 LR @01,@07 0100 00062000 AL @01,@CF01937 0100 00063000 L UCMEXTPT,UCM2PTR(,@01) 0100 00064000 * RFY 0101 00065000 * (R8) UNRSTD; /* UNRESTRICT REG3 @ZM30120*/ 00066000 */********************************************************************/ 00067000 */* SCANID SEGMENT */ 00068000 */* THE FOLLOWING SEGMENT SCANS THE ORE/WQE CHAIN IN AN ATTEMPT TO */ 00069000 */* FIND A REPLY ID MATCH. THE REPLY ID,WHICH WAS PASSED AS A */ 00070000 */* PARAMETER BY THE FIRST STAGE OF REPLY (IEAVVRP1), IS COMPARED */ 00071000 */* AGAINST THE ORE IDS. IF A MATCH IS FOUND, THE ORE IS CHECKED TO */ 00072000 */* DETERMINE IF A DOM HAS BEEN ISSUED. IF THE ORE HAS BEEN DOMED OR */ 00073000 */* IF THERE ARE NO MORE ORES ON THE CHAIN, THE TEMPORARY BUFFER WILL*/ 00074000 */* BE FREED AND REPLY PROCESSING TERMINATED. */ 00075000 */* */ 00076000 */* IF THE REPLY IDS MATCH AND THE ORE HAS NOT BEEN DOMED, THE */ 00077000 */* MESSAGE ID IN THE ASSOCIATED WQE IS COMPARED AGAINST THE MESSAGE */ 00078000 */* ID PASSED AS A PARAMETER BY THE FIRST STAGE OF REPLY. IF THE IDS */ 00079000 */* MATCH, REPLY PROCESSING CONTINUES NORMALLY.IF THEY DO NOT MATCH, */ 00080000 */* THE TEMPORARY BUFFER IS FREED AND PROCESSING ENDS. */ 00081000 */********************************************************************/ 00082000 * 0102 00083000 * RFY 0102 00084000 * (BYPASSW) RSTD; /* RESTRICT SWITCH REGISTER */ 00085000 * OREPTR=UCMRPYQ; /* GET ADDR OF FIRST ORE */ 00086000 L @08,CVTPTR 0103 00087000 L @08,UCMBASPT(,@08) 0103 00088000 L OREPTR,UCMRPYQ(,@08) 0103 00089000 * NXTORE=ADDR(UCMRPYQ); /* SAVE ADDR OF ORE */ 00090000 LA @08,UCMRPYQ(,@08) 0104 00091000 ST @08,NXTORE 0104 00092000 * BYPASSW=0; /* TURN BYPASS SWITCH OFF */ 00093000 * 0105 00094000 SLR BYPASSW,BYPASSW 0105 00095000 * /*****************************************************************/ 00096000 * /* */ 00097000 * /* SCAN ORE CHAIN FOR REPLY ID MATCH. */ 00098000 * /* */ 00099000 * /*****************************************************************/ 00100000 * 0106 00101000 * DO WHILE(BYPASSW=0); /* SCAN FOR ID MATCH */ 00102000 * 0106 00103000 B @DE00106 0106 00104000 @DL00106 DS 0H 0107 00105000 * /***************************************************************/ 00106000 * /* */ 00107000 * /* CHECK TO DETERMINE IF THERE ARE ANY MORE ORES ON THE CHAIN. */ 00108000 * /* */ 00109000 * /***************************************************************/ 00110000 * 0107 00111000 * IF OREPTR^=0 THEN /* ANY ORES ? */ 00112000 LTR OREPTR,OREPTR 0107 00113000 BZ @RF00107 0107 00114000 * DO; /* IF YES, */ 00115000 * 0108 00116000 * /***********************************************************/ 00117000 * /* */ 00118000 * /* CHECK REPLY ID WITH ORE ID */ 00119000 * /* */ 00120000 * /***********************************************************/ 00121000 * 0109 00122000 * IF RPYID=OREID THEN /* IDS MATCH ? */ 00123000 L @08,SRBPARM(,SRBPTR) 0109 00124000 CLC RPYID(2,@08),OREID(OREPTR) 0109 00125000 BNE @RF00109 0109 00126000 * DO; /* IF YES, */ 00127000 * 0110 00128000 * /*******************************************************/ 00129000 * /* */ 00130000 * /* HAS THIS ORE BEEN MARKED TO BE DELETED ? */ 00131000 * /* */ 00132000 * /*******************************************************/ 00133000 * 0111 00134000 * IF OREBUFC^='1'B THEN /* DELETE ORE ? */ 00135000 TM OREBUFC(OREPTR),B'00100000' 0111 00136000 BO @RF00111 0111 00137000 * DO; /* IF NO, */ 00138000 * WQEPTR=OREWQE; /* GET ADDR OF WQE */ 00139000 * 0113 00140000 L @03,OREWQE(,OREPTR) 0113 00141000 ST @03,WQEPTR 0113 00142000 * /***************************************************/ 00143000 * /* */ 00144000 * /* CHECK MESSAGE ID PASSED BY REPLY 1 WITH MESSAGE */ 00145000 * /* ID IN WQE. */ 00146000 * /* */ 00147000 * /***************************************************/ 00148000 * 0114 00149000 * IF WQESEQN^=RPYSEQ THEN/* MESSAGE IDS MATCH ? */ 00150000 CLC WQESEQN(3,@03),RPYSEQ(@08) 0114 00151000 BE @RF00114 0114 00152000 * DO; /* IF NO, */ 00153000 * ERRCDE=1; /* TURN ERROR INDICATOR ON */ 00154000 LA ERRCDE,1 0116 00155000 * END; /* END IF MSG IDS DON'T MATCH */ 00156000 * BYPASSW=1; /* TURN BYPASS SWITCH ON */ 00157000 @RF00114 LA BYPASSW,1 0118 00158000 * END; /* END IF DOM BIT IS NOT ON */ 00159000 * ELSE /* IF THE DOM BIT IS ON */ 00160000 * DO; /* END REPLY 2 PROCESSING */ 00161000 * 0120 00162000 B @RC00111 0120 00163000 @RF00111 DS 0H 0121 00164000 * /***************************************************/ 00165000 * /* */ 00166000 * /* TEST TO SEE IF TEMPORARY BUFFER EXIST */ 00167000 * /* */ 00168000 * /***************************************************/ 00169000 * 0121 00170000 * IF OREOPBUF^=0 THEN/* TEMPORARY BUFFER ? */ 00171000 SLR @08,@08 0121 00172000 L @05,OREOPBUF(,OREPTR) 0121 00173000 CR @05,@08 0121 00174000 BE @RF00121 0121 00175000 * DO; /* FREE TEMP BUFFER */ 00176000 */********************************************************************/ 00177000 */* FREE BUFFER SEGMENT */ 00178000 */* */ 00179000 */* THE FOLLOWING SEGMENT FREES THE TEMPORARY BUFFER ASSOCIATED WITH */ 00180000 */* THE REPLY WHICH WAS CREATED BY THE FIRST STAGE OF REPLY */ 00181000 */* PROCESSING. THE TEMPORARY BUFFER WHICH IS POINTED TO OUT OF THE */ 00182000 */* ORE CONTAINS THE ACTUAL REPLY TEXT AS SPECIFIED BY THE USER WHO */ 00183000 */* IS RESPONDING TO THE ORIGINAL WTOR MESSAGE. */ 00184000 */* */ 00185000 */* INPUT: */ 00186000 */* OREOPBUF - POINTER TO THE TEMPORARY BUFFER */ 00187000 */* */ 00188000 */********************************************************************/ 00189000 * 0123 00190000 * RFY 0123 00191000 * (R3, 0123 00192000 * R7) RSTD; /* RESTRICT REG 3 @ZM30120*/ 00193000 * R4=ORETCB; /* SET TCB ADDRESS */ 00194000 L R4,ORETCB(,OREPTR) 0124 00195000 * ZEROREG=TEMPLNT+2;/* LENGTH OF FREEMAIN */ 00196000 L @15,OREOPBUF(,OREPTR) 0125 00197000 LA ZEROREG,2 0125 00198000 AH ZEROREG,TEMPLNT(,@15) 0125 00199000 * SAVREG2=R7; /* SAVE CONTENT OF REG 7 */ 00200000 LR SAVREG2,R7 0126 00201000 * R7=ASCBTAB(OREASID);/* SET ADDRESS OF ASCB */ 00202000 LH @05,OREASID(,OREPTR) 0127 00203000 SLA @05,2 0127 00204000 L @01,CVTPTR 0127 00205000 L @01,ASVTPTR(,@01) 0127 00206000 L R7,ASCBTAB+524(@05,@01) 0127 00207000 * R1=OREOPBUF; /* ADDR OF TEMPORARY BUFFER */ 00208000 LR R1,@15 0128 00209000 * OREOPBUF=0; /* ZERO POINTER TO TEMP BUFFER */ 00210000 ST @08,OREOPBUF(,OREPTR) 0129 00211000 * GEN REFS(CVTCRMN); 0130 00212000 * /*ISSUE FREEMAIN */ 00213000 FREEMAIN RU,LV=(0),A=(1),SP=231,BRANCH=YES 00214000 * RFY 0131 00215000 * (R3, 0131 00216000 * R7) UNRSTD; /* UNRESTRICT REG 3 @ZM30120*/ 00217000 * END; /* IF NO TEMP BUFFER */ 00218000 * ERRCDE=1; /* TURN ERROR INDICATOR ON */ 00219000 @RF00121 LA @08,1 0133 00220000 LR ERRCDE,@08 0133 00221000 * BYPASSW=1; /* TURN BYPASS SWITCH ON */ 00222000 LR BYPASSW,@08 0134 00223000 * END; /* END IF DOM BIT IS ON */ 00224000 * END; /* END IF REPLY IDS MATCH */ 00225000 * ELSE /* IF REPLY IDS DO NOT MATCH */ 00226000 * DO; /* CHECK NEXT ORE */ 00227000 B @RC00109 0137 00228000 @RF00109 DS 0H 0138 00229000 * NXTORE=OREPTR; /* SAVE CURRENT ORE POINTER */ 00230000 ST OREPTR,NXTORE 0138 00231000 * OREPTR=ORELKP; /* GET NEXT ORE POINTER */ 00232000 L OREPTR,ORELKP(,OREPTR) 0139 00233000 * END; /* CHECK FOR ID MATCH */ 00234000 * END; /* END CHECK IF ORE EXIST */ 00235000 * ELSE /* IF NO MORE ORES ON CHAIN */ 00236000 * DO; /* END PROCESSING */ 00237000 B @RC00107 0142 00238000 @RF00107 DS 0H 0143 00239000 * ERRCDE=1; /* TURN ERROR INDICATOR ON */ 00240000 LA @08,1 0143 00241000 LR ERRCDE,@08 0143 00242000 * BYPASSW=1; /* TURN BYPASS SWITCH ON */ 00243000 LR BYPASSW,@08 0144 00244000 * END; /* END IF NO ORES */ 00245000 * END; /* END ID TEST */ 00246000 @RC00107 DS 0H 0146 00247000 @DE00106 SLR @08,@08 0146 00248000 CR BYPASSW,@08 0146 00249000 BE @DL00106 0146 00250000 * RFY 0147 00251000 * (BYPASSW) UNRSTD; /* UNRESTRICT REG 7 */ 00252000 * 0147 00253000 * /*****************************************************************/ 00254000 * /* */ 00255000 * /* TEST TO DETERMINE IF AN ERROR HAS BEEN DETECTED WHILE SCANNING*/ 00256000 * /* FOR AN ID MATCH. */ 00257000 * /* */ 00258000 * /*****************************************************************/ 00259000 * 0148 00260000 * IF ERRCDE=0 THEN /* ERROR INDICATOR SET */ 00261000 CR ERRCDE,@08 0148 00262000 BNE @RF00148 0148 00263000 * DO; /* IF NO, */ 00264000 * 0149 00265000 * /*************************************************************/ 00266000 * /* */ 00267000 * /* CHECK FOR USER PROTECK KEY ZERO BEFORE VALIDITY CHECKING */ 00268000 * /* USER'S BUFFER AND ECB. */ 00269000 * /* */ 00270000 * /*************************************************************/ 00271000 * 0150 00272000 * IF OREKEY0^='1'B THEN /* KEY0 USER ? */ 00273000 TM OREKEY0(OREPTR),B'01000000' 0150 00274000 BO @RF00150 0150 00275000 * DO; /* IF NO, */ 00276000 */********************************************************************/ 00277000 */* VALIDITY CHECK SEGMENT */ 00278000 */* */ 00279000 */* THE FOLLOWING SEGMENT CHECKS THE VALIDITY OF THE USER'S BUFFER */ 00280000 */* AND ECB ADDRESSES. IF THEY ARE NOT VALID, THE USER WILL BE */ 00281000 */* ABENDED WITH A 'E23' ABEND CODE. */ 00282000 */* */ 00283000 */* INPUT: */ 00284000 */* CVT0VL01 - VALIDITY CHECK ENTRY POINT */ 00285000 */* ORERPYA - ADDRESS OF REPLY BUFFER */ 00286000 */* ORELNTH - MAXIMUM LENGTH OF REPLY */ 00287000 */* ORETCB - POINTER TO TCB */ 00288000 */* OREECB - POINTER TO REQUESTOR'S REPLY ECB */ 00289000 */* */ 00290000 */* OUTPUT: */ 00291000 */* NORMAL - VALID ADDRESSES (CONTINUE PROCESSING) */ 00292000 */* */ 00293000 */* ERROR - ABEND CODE 'E23', ERROR INDICATOR SET */ 00294000 */* */ 00295000 */********************************************************************/ 00296000 * 0152 00297000 * RFY 0152 00298000 * (BYPASSW) RSTD; /* RESTRICT REG 7 */ 00299000 * BYPASSW=OREPTR; /* SAVE ORE POINTER */ 00300000 LR BYPASSW,OREPTR 0153 00301000 * R4=ORETCB; /* USER'S TCB */ 00302000 L R4,ORETCB(,OREPTR) 0154 00303000 * R15=CVT0VL00; /* ENTRY PTR TO VALIDITY CHECK */ 00304000 L @08,CVTPTR 0155 00305000 L R15,CVT0VL00(,@08) 0155 00306000 * R1=ORERPYA; /* START OF USER BUFFER */ 00307000 L @08,ORERPYA-1(,OREPTR) 0156 00308000 LA @08,0(,@08) 0156 00309000 LR R1,@08 0156 00310000 * R2=ORERPYA+ORELNTH-1; /* SET END OF USER BUFFER 0157 00311000 * @ZA02399*/ 00312000 SLR @03,@03 0157 00313000 IC @03,ORELNTH(,OREPTR) 0157 00314000 ALR @08,@03 0157 00315000 BCTR @08,0 0157 00316000 LR R2,@08 0157 00317000 * GEN; 0158 00318000 * 0158 00319000 * /* VALIDITY CHECK USER BUFFER */ 00320000 BALR RTNREG,R15 BRANCH TO VALIDITY CHECK 00321000 * /*********************************************************/ 00322000 * /* */ 00323000 * /* SINCE VALIDITY CHECK SETS THE CONDITION CODE, THE */ 00324000 * /* FOLLOWING BRANCH WILL BE TAKEN IF THE CONDITION CODE */ 00325000 * /* IS NON-ZERO. THEREFORE, THIS SEGMENT NON-STRUCTURED. */ 00326000 * /* */ 00327000 * /*********************************************************/ 00328000 * 0159 00329000 * R2=BYPASSW; /* RESTORE ORE POINTER */ 00330000 LR R2,BYPASSW 0159 00331000 * BC(7,ERROR); /* BR IF NON-ZERO RTN CODE */ 00332000 BC 7,ERROR 0160 00333000 * R15=CVT0VL01; /* ENTRY PTR TO VALIDITY CHECK */ 00334000 L @08,CVTPTR 0161 00335000 L R15,CVT0VL01(,@08) 0161 00336000 * R1=OREECB; /* SET ADDR OF ECB */ 00337000 L R1,OREECB(,OREPTR) 0162 00338000 * R2=0; /* ZERO LAST ADDR POINTER */ 00339000 SLR R2,R2 0163 00340000 * GEN; 0164 00341000 * 0164 00342000 * /*VALIDITY CHECK USER ECB */ 00343000 BALR RTNREG,R15 BRANCH TO VALIDITY CHECK 00344000 * /*********************************************************/ 00345000 * /* */ 00346000 * /* SINCE VALIDITY CHECK SETS THE CONDITION CODE, THE */ 00347000 * /* FOLLOWING BRANCH WILL BE TAKEN IF THE CONDITION CODE */ 00348000 * /* IS ZERO. THEREFORE, THIS SEGMENT NON-STRUCTURED. */ 00349000 * /* */ 00350000 * /*********************************************************/ 00351000 * 0165 00352000 * R2=BYPASSW; /* RESTORE ORE POINTER */ 00353000 LR R2,BYPASSW 0165 00354000 * BC(8,ENDSEG); /* BRANCH IF ZERO RTN CODE */ 00355000 BC 8,ENDSEG 0166 00356000 *ERROR: /* SET UP TO ABEND USER */ 00357000 */********************************************************************/ 00358000 */* FREE BUFFER SEGMENT */ 00359000 */* */ 00360000 */* THE FOLLOWING SEGMENT FREES THE TEMPORARY BUFFER ASSOCIATED WITH */ 00361000 */* THE REPLY WHICH WAS CREATED BY THE FIRST STAGE OF REPLY */ 00362000 */* PROCESSING. THE TEMPORARY BUFFER WHICH IS POINTED TO OUT OF THE */ 00363000 */* ORE CONTAINS THE ACTUAL REPLY TEXT AS SPECIFIED BY THE USER WHO */ 00364000 */* IS RESPONDING TO THE ORIGINAL WTOR MESSAGE. */ 00365000 */* */ 00366000 */* INPUT: */ 00367000 */* OREOPBUF - POINTER TO THE TEMPORARY BUFFER */ 00368000 */* */ 00369000 */********************************************************************/ 00370000 * 0167 00371000 * RFY 0167 00372000 * (R3, 0167 00373000 * R7) RSTD; /* RESTRICT REG 3 @ZM30120*/ 00374000 ERROR DS 0H 0168 00375000 * R4=ORETCB; /* SET TCB ADDRESS */ 00376000 L R4,ORETCB(,OREPTR) 0168 00377000 * ZEROREG=TEMPLNT+2; /* LENGTH OF FREEMAIN */ 00378000 L @08,OREOPBUF(,OREPTR) 0169 00379000 LA ZEROREG,2 0169 00380000 AH ZEROREG,TEMPLNT(,@08) 0169 00381000 * SAVREG2=R7; /* SAVE CONTENT OF REG 7 */ 00382000 LR SAVREG2,R7 0170 00383000 * R7=ASCBTAB(OREASID); /* SET ADDRESS OF ASCB */ 00384000 LH @15,OREASID(,OREPTR) 0171 00385000 SLA @15,2 0171 00386000 L @01,CVTPTR 0171 00387000 L @01,ASVTPTR(,@01) 0171 00388000 L R7,ASCBTAB+524(@15,@01) 0171 00389000 * R1=OREOPBUF; /* ADDR OF TEMPORARY BUFFER */ 00390000 LR R1,@08 0172 00391000 * OREOPBUF=0; /* ZERO POINTER TO TEMP BUFFER */ 00392000 SLR @08,@08 0173 00393000 ST @08,OREOPBUF(,OREPTR) 0173 00394000 * GEN REFS(CVTCRMN); 0174 00395000 * /*ISSUE FREEMAIN */ 00396000 FREEMAIN RU,LV=(0),A=(1),SP=231,BRANCH=YES 00397000 * RFY 0175 00398000 * (R3, 0175 00399000 * R7) UNRSTD; /* UNRESTRICT REG 3 @ZM30120*/ 00400000 * GEN REFS(CVTBTERM); 0176 00401000 * /*ABEND USER */ 00402000 CALLRTM TYPE=ABTERM,COMPCOD=X'E23',TCB=(4) 00403000 * BYPASSW=SAVREG2; /* RESTORE SAVED ORE POINTER */ 00404000 LR BYPASSW,SAVREG2 0177 00405000 * ERRCDE=1; /* TURN ERROR INDICATOR ON */ 00406000 LA ERRCDE,1 0178 00407000 *ENDSEG: 0179 00408000 * OREPTR=BYPASSW; /* RESTORE ORE POINTER */ 00409000 ENDSEG LR OREPTR,BYPASSW 0179 00410000 * RFY 0180 00411000 * (BYPASSW) UNRSTD; /* UNRESTRICT REG 7 */ 00412000 * END; /* END VALIDITY CHECK */ 00413000 * 0181 00414000 * /*************************************************************/ 00415000 * /* */ 00416000 * /* TEST TO DETERMINE IF AN ERROR HAS BEEN DETECTED BY THE */ 00417000 * /* VALIDITY CHECK SEGMENT. */ 00418000 * /* */ 00419000 * /*************************************************************/ 00420000 * 0182 00421000 * IF ERRCDE=0 THEN /* ERROR INDICATOR SET ? */ 00422000 @RF00150 SLR @08,@08 0182 00423000 CR ERRCDE,@08 0182 00424000 BNE @RF00182 0182 00425000 * DO; /* IF NO, */ 00426000 */********************************************************************/ 00427000 */* MOVE AND POST SEGMENT */ 00428000 */* */ 00429000 */* THIS SEGMENT MOVES THE REPLY TEXT FROM THE TEMPORARY BUFFER TO */ 00430000 */* THE USER SPECIFIED BUFFER AREA. AFTER THE MOVE OPERATION, THE */ 00431000 */* USER'S ECB IS POSTED. */ 00432000 */* */ 00433000 */* INPUT: */ 00434000 */* OREECB - ADDRESS OF USER'S ECB */ 00435000 */* ORERPYA- ADDRESS OF USER'S REPLY BUFFER */ 00436000 */* CVT0PT01-POST ENTRY POINT */ 00437000 */* */ 00438000 */* OUTPUT: */ 00439000 */* POST ISSUED FOR USER'S ECB */ 00440000 */* */ 00441000 */********************************************************************/ 00442000 * 0184 00443000 * IF TEMPLNT^=0 THEN /* TEST FOR NULL REPLT */ 00444000 L @07,OREOPBUF(,OREPTR) 0184 00445000 LH @05,TEMPLNT(,@07) 0184 00446000 CR @05,@08 0184 00447000 BE @RF00184 0184 00448000 * DO; /* IF NO, */ 00449000 * USERBUF(1:TEMPLNT)=TEMPTXT(1:TEMPLNT);/* MOVE TEXT */ 00450000 L @08,ORERPYA-1(,OREPTR) 0186 00451000 BCTR @05,0 0186 00452000 EX @05,@SM01938 0186 00453000 * END; /* END IF REPLY NOT NULL */ 00454000 * RFY 0188 00455000 * (BYPASSW) RSTD; /* RESTRICT REG 7 */ 00456000 @RF00184 DS 0H 0189 00457000 * BYPASSW=BASREG; /* SAVE BASE REGISTER */ 00458000 LR BYPASSW,BASREG 0189 00459000 * R10=0; /* POST INTERFACE */ 00460000 SLR R10,R10 0190 00461000 * R11=0; /* POST INTERFACE/NORMAL POST */ 00462000 SLR R11,R11 0191 00463000 * R13=0; /* POST INTERFACE */ 00464000 SLR R13,R13 0192 00465000 * R11=OREECBA; /* ADDRESS OF ECB */ 00466000 L R11,OREECBA-1(,OREPTR) 0193 00467000 LA R11,0(,R11) 0193 00468000 * R15=CVT0PT01; /* POST ENTRY POINT */ 00469000 L @08,CVTPTR 0194 00470000 L R15,CVT0PT01(,@08) 0194 00471000 * BASREG=0; /* POST INTERFACE */ 00472000 SLR BASREG,BASREG 0195 00473000 * GEN; 0196 00474000 * /*ISSUE NORMAL POST */ 00475000 BALR RTNREG,R15 BRANCH TO POST 00476000 * BASREG=BYPASSW; /* RESTORE BASE REGISTER */ 00477000 LR BASREG,BYPASSW 0197 00478000 * RFY 0198 00479000 * (BYPASSW) UNRSTD; /* UNRESTRICT REG 7 */ 00480000 */********************************************************************/ 00481000 */* AVAILID SEGMENT */ 00482000 */* */ 00483000 */* THE FOLLOWING SEGMENT MARKS THE REPLY ID ASSIGNMENT PATTERN IN */ 00484000 */* THE UCM TO INDICATE THAT THE REPLY ID WHICH HAS BEEN PROCESSED */ 00485000 */* CAN BE REASSIGNED. */ 00486000 */* */ 00487000 */* INPUT: */ 00488000 */* OREID - REPLY ID */ 00489000 */* UCMRPYI - REPLY ID ASSIGNMENT BIT PATTERN */ 00490000 */* */ 00491000 */* OUTPUT: */ 00492000 */* UCM ASSIGNMENT BIT PATTERN MASKED */ 00493000 */* */ 00494000 */********************************************************************/ 00495000 * 0199 00496000 * PACK(PAREA,OREID); /* CONVERT REPLY ID */ 00497000 PACK PAREA(8),OREID(2,OREPTR) 0199 00498000 * CVB(CREG,PAREA); /* CONVERT ID TO BINARY FORM */ 00499000 CVB CREG,PAREA 0200 00500000 * UCMRPYI(CREG/8+1)= /* FIND MATCHING BYTE PATTERN */ 00501000 * UCMRPYI(CREG/8+1)& /* AND (OP) MATCHING BYTE */ 00502000 * BITMAP(CREG//8+1); /* WITH MATCHING BIT MAP */ 00503000 LR @08,CREG 0201 00504000 SRL @08,3 0201 00505000 L @07,CVTPTR 0201 00506000 L @03,UCMBASPT(,@07) 0201 00507000 ALR @03,@08 0201 00508000 LR @08,CREG 0201 00509000 N @08,@CF01904 0201 00510000 LA @01,BITMAP(@08) 0201 00511000 NC UCMRPYI(1,@03),0(@01) 0201 00512000 */********************************************************************/ 00513000 */* REMOVE ORE SEGMENT */ 00514000 */* */ 00515000 */* THE FOLLOWING SEGMENT DECHAINS THE ORE FROM THE ORE CHAIN, FREES */ 00516000 */* THE ORE CORE, DECREASE THE ORE COUNT AND MARK THE WQE TO BE */ 00517000 */* PURGED. */ 00518000 */* */ 00519000 */* INPUT: */ 00520000 */* UCMRPYQ - ORE CHAIN POINTER */ 00521000 */* UCMRQNR - ORE COUNT */ 00522000 */* UCMSYSI - WQE HOUSEKEEPING FLAG */ 00523000 */* OREPTR - POINTER TO CURRENT ORE */ 00524000 */* NXTORE - POINTER TO PREVIOUS ORE */ 00525000 */* */ 00526000 */* OUTPUT: */ 00527000 */* 1) ORE REMOVED FROM THE CHAIN */ 00528000 */* 2) ORE CORE FREED */ 00529000 */* 3) ORE COUNT DECREASED */ 00530000 */* 4) TEMPORARY BUFFER FREED */ 00531000 */* 5) WQE CLEAN-UP FLAG SET */ 00532000 */* */ 00533000 */********************************************************************/ 00534000 */********************************************************************/ 00535000 */* FREE BUFFER SEGMENT */ 00536000 */* */ 00537000 */* THE FOLLOWING SEGMENT FREES THE TEMPORARY BUFFER ASSOCIATED WITH */ 00538000 */* THE REPLY WHICH WAS CREATED BY THE FIRST STAGE OF REPLY */ 00539000 */* PROCESSING. THE TEMPORARY BUFFER WHICH IS POINTED TO OUT OF THE */ 00540000 */* ORE CONTAINS THE ACTUAL REPLY TEXT AS SPECIFIED BY THE USER WHO */ 00541000 */* IS RESPONDING TO THE ORIGINAL WTOR MESSAGE. */ 00542000 */* */ 00543000 */* INPUT: */ 00544000 */* OREOPBUF - POINTER TO THE TEMPORARY BUFFER */ 00545000 */* */ 00546000 */********************************************************************/ 00547000 * 0202 00548000 * RFY 0202 00549000 * (R3, 0202 00550000 * R7) RSTD; /* RESTRICT REG 3 @ZM30120*/ 00551000 * R4=ORETCB; /* SET TCB ADDRESS */ 00552000 L R4,ORETCB(,OREPTR) 0203 00553000 * ZEROREG=TEMPLNT+2; /* LENGTH OF FREEMAIN */ 00554000 L @08,OREOPBUF(,OREPTR) 0204 00555000 LA ZEROREG,2 0204 00556000 AH ZEROREG,TEMPLNT(,@08) 0204 00557000 * SAVREG2=R7; /* SAVE CONTENT OF REG 7 */ 00558000 LR SAVREG2,R7 0205 00559000 * R7=ASCBTAB(OREASID); /* SET ADDRESS OF ASCB */ 00560000 LH @15,OREASID(,OREPTR) 0206 00561000 SLA @15,2 0206 00562000 L @14,CVTPTR 0206 00563000 L @01,ASVTPTR(,@14) 0206 00564000 L R7,ASCBTAB+524(@15,@01) 0206 00565000 * R1=OREOPBUF; /* ADDR OF TEMPORARY BUFFER */ 00566000 LR R1,@08 0207 00567000 * OREOPBUF=0; /* ZERO POINTER TO TEMP BUFFER */ 00568000 SLR @08,@08 0208 00569000 ST @08,OREOPBUF(,OREPTR) 0208 00570000 * GEN REFS(CVTCRMN); 0209 00571000 * /*ISSUE FREEMAIN */ 00572000 FREEMAIN RU,LV=(0),A=(1),SP=231,BRANCH=YES 00573000 * RFY 0210 00574000 * (R3, 0210 00575000 * R7) UNRSTD; /* UNRESTRICT REG 3 @ZM30120*/ 00576000 * NXTORE->ORELKP=ORELKP; /* DECHAIN ORE */ 00577000 L @08,ORELKP(,OREPTR) 0211 00578000 L @07,NXTORE 0211 00579000 ST @08,ORELKP(,@07) 0211 00580000 * UCMRQNR=UCMRQNR-1; /* DECREASE ORE COUNT BY ONE */ 00581000 L @08,CVTPTR 0212 00582000 L @08,UCMBASPT(,@08) 0212 00583000 LH @07,UCMRQNR(,@08) 0212 00584000 BCTR @07,0 0212 00585000 STH @07,UCMRQNR(,@08) 0212 00586000 * UCMSFLG2='80'X; /* SET WQE CLEAN-UP FLAG */ 00587000 L @07,UCMMCSPT 0213 00588000 MVI UCMSFLG2(@07),X'80' 0213 00589000 * WQEORE='0'B; /* INDICATE NO ORE EXIST */ 00590000 L @07,WQEPTR 0214 00591000 NI WQEORE(@07),B'11011111' 0214 00592000 * SAVREG2=OREPTR; /* SAVE CONTENT OF REGISTER */ 00593000 LR SAVREG2,OREPTR 0215 00594000 * ZEROREG=UCMORECP; /* SET CELL POOL ID */ 00595000 L ZEROREG,UCMORECP(,@08) 0216 00596000 * R1=OREPTR; /* SET ADDR OF ORE */ 00597000 LR R1,OREPTR 0217 00598000 * GEN REFS(CVTMAP,CVTFRECL,ZEROREG,PARMREG) SETS(ZEROREG, 00599000 * PARMREG); 0218 00600000 * 0218 00601000 * /*ISSUE FREECELL */ 00602000 FREECELL CPID=(0),CELL=(1),BRANCH=YES,SAVE=NO 00603000 * /*********************************************************/ 00604000 * /* */ 00605000 * /* IF REGISTER 15 IS SET TO HEX '20' ISSUE NORMAL */ 00606000 * /* FREEMAIN TO FREE ORE CELL EXTENSION.REGISTERS 0 AND 1 */ 00607000 * /* ARE SET BY FREECELL. */ 00608000 * /* */ 00609000 * /*********************************************************/ 00610000 * 0219 00611000 * IF R15='20'X THEN /* REGISTER 15 SET ? */ 00612000 C R15,@CF01913 0219 00613000 BNE @RF00219 0219 00614000 * DO; /* ISSUE FREEMAIN */ 00615000 * GEN REFS(ZEROREG,PARMREG,CVTCRMN); 0221 00616000 * /*FREEMAIN SETUP */ 00617000 FREEMAIN RU,LV=(0),A=(1),BRANCH=YES 00618000 * END; /* END NORMAL FREEMAIN */ 00619000 * OREPTR=SAVREG2; /* RESTORE ORE PTR */ 00620000 @RF00219 LR OREPTR,SAVREG2 0223 00621000 */********************************************************************/ 00622000 */* POST REPLY ECB SEGMENT */ 00623000 */* */ 00624000 */* THE FOLLOWING SEGMENT WILL SCAN THE ORE ECB CHAIN POINTED TO */ 00625000 */* OUT OF THE UCM (UCMOECBH). THE FIRST ECB ELEMENT ON THE CHAIN */ 00626000 */* WHOSE POST BIT IS OFF WILL BE POSTED VIA XMPOST. AFTER THE POST */ 00627000 */* HAS BEEN ISSUED, THE ECB ELEMENT'S POST BIT WILL BE TURNED ON */ 00628000 */* INDICATING THAT THIS ECB ELEMENT HAS BEEN POSTED. */ 00629000 */* */ 00630000 */* INPUT: */ 00631000 */* UCMOECBH - ADDRESS OF FIRST ECB ELEMENT ON CHAIN */ 00632000 */* CVT0PT01 - POST ENTRY POINT */ 00633000 */* OUTPUT: */ 00634000 */* REPLY ECB POSTED */ 00635000 */* */ 00636000 */********************************************************************/ 00637000 * 0224 00638000 * IF UCMRQNRWQE(1:LENGTH(WQE))=WQE;/* MOVE WQE 0246 00731000 * @YM7292P*/ 00732000 L @08,WQEPTR 0246 00733000 MVC WQE(192,DUMWQEPT),WQE(@08) 0246 00734000 * WQELKPA=DUMWQEPT;/* CHAIN DUMMY @YM7292P*/ 00735000 STCM DUMWQEPT,7,WQELKPA(@08) 0247 00736000 * RFY 0248 00737000 * WQE BASED(DUMWQEPT);/* USE DUMMY @YM7292P*/ 00738000 * WQEUSE=0; /* ZERO THE USE COUNT @YM7292P*/ 00739000 MVI WQEUSE(DUMWQEPT),X'00' 0249 00740000 * WQEAVAIL=48; /* READY FOR HARDCPY @YM7292P 00741000 * AND OBTAIN DYNAMICALLY 0250 00742000 * @YM7292P 00743000 * ONLY @YM7292P*/ 00744000 MVI WQEAVAIL(DUMWQEPT),X'30' 0250 00745000 * WQEXA=65; /* QUEUE FOR HARDCPY @YM7292P 00746000 * AND ISSUED BY @YM7292P 00747000 * AUTHORIZED USER ONLY @YM7292P*/ 00748000 MVI WQEXA(DUMWQEPT),X'41' 0251 00749000 * WQEMCSF1=160; /* ONLY - ROUTING AND DESCRIPTER 00750000 * CODES EXIST/COMMAND RESPONSE 00751000 * @YM7292P*/ 00752000 MVI WQEMCSF1(DUMWQEPT),X'A0' 0252 00753000 * RFY 0253 00754000 * WQE BASED(WQEPTR);/* RESET WQE BASE @YM7292P*/ 00755000 * R13=UCMASCB; /* SET UP @YM7292P*/ 00756000 L @08,CVTPTR 0254 00757000 L @08,UCMBASPT(,@08) 0254 00758000 L R13,UCMASCB(,@08) 0254 00759000 * R11=ADDR(UCMOECB);/* TO POST @YM7292P*/ 00760000 LA R11,UCMOECB(,@08) 0255 00761000 * CALL XMPOSTSG; /* COMM TASK @YM7292P*/ 00762000 BAL @14,XMPOSTSG 0256 00763000 * END; /* END DO IF CORE GOTTON @ZA02375*/ 00764000 * ELSE 0258 00765000 * ; /* DO NOTHING, NO CORE AVAILABLE 00766000 * @ZA02375*/ 00767000 @RF00243 DS 0H 0259 00768000 * END; /* END DO IF NOT YET GONE 0259 00769000 * @YM7292P 00770000 * TO HARDCPY @YM7292P*/ 00771000 * R4=SRBPTCB; /* SET TCB REG */ 00772000 @RF00239 L R4,SRBPTCB(,SRBPTR) 0260 00773000 * ZEROREG=16; /* SET LENGTH OF GETMAIN */ 00774000 LA ZEROREG,16 0261 00775000 * R7=SRBASCB; /* SET ADDR OF ASCB */ 00776000 L R7,SRBASCB(,SRBPTR) 0262 00777000 * R1=0; /* GETMAIN INTERFACE GET 16 BYTES 00778000 * FOR DOMCB */ 00779000 SLR R1,R1 0263 00780000 * GEN(GETMAIN RU,LV=(ZEROREG),SP=231,BRANCH=YES); 0264 00781000 GETMAIN RU,LV=(ZEROREG),SP=231,BRANCH=YES 00782000 * DOMCPTR=R1; /* SET POINTER TO AREA */ 00783000 LR DOMCPTR,R1 0265 00784000 * DOM4WORD(1:LENGTH(DOM4WORD))=DOM4WORD(1:LENGTH(DOM4WORD))&& 00785000 * DOM4WORD(1:LENGTH(DOM4WORD));/* ZERO AREA */ 00786000 XC DOM4WORD(16,DOMCPTR),DOM4WORD(DOMCPTR) 0266 00787000 * DOMCEND='1'B; /* INDICATE ONLY ONE MSGID */ 00788000 OI DOMCEND(DOMCPTR),B'10000000' 0267 00789000 * DOMCIDA=WQESEQN; /* MOVE IN MSGID */ 00790000 L @08,WQEPTR 0268 00791000 MVC DOMCIDA(3,DOMCPTR),WQESEQN(@08) 0268 00792000 * DOMCSEXT='1'B; /* IND.TAKE SUB-SYS EXIT@Y02668P */ 00793000 OI DOMCSEXT(DOMCPTR),B'01000000' 0269 00794000 * DOMCSIZE=16; /* SET SIZE OF DOMCB */ 00795000 MVI DOMCSIZE(DOMCPTR),X'10' 0270 00796000 * DOMCASID=WQEASID; /* SET ASID FIELD */ 00797000 MVC DOMCASID(2,DOMCPTR),WQEASID(@08) 0271 00798000 * DOMCJTCB=WQEJSTCB; /* SET JOBSTEP TCB */ 00799000 L @08,WQEJSTCB(,@08) 0272 00800000 ST @08,DOMCJTCB(,DOMCPTR) 0272 00801000 * DOMCLNKA=UCMDOME; /* SET DOMCB LINKPTR */ 00802000 L @08,UCMMCSPT 0273 00803000 MVC DOMCLNKA(3,DOMCPTR),UCMDOME+1(@08) 0273 00804000 * UCMDOME=DOMCPTR; /* PUT DOMCB ON CHAIN */ 00805000 ST DOMCPTR,UCMDOME(,@08) 0274 00806000 * R13=UCMASCB; /* GET ADDR OF COMMTASK ASCB */ 00807000 L @08,CVTPTR 0275 00808000 L @08,UCMBASPT(,@08) 0275 00809000 L R13,UCMASCB(,@08) 0275 00810000 * R11=ADDR(UCMDECB); /* DOM REQUEST ECB */ 00811000 LA R11,UCMDECB(,@08) 0276 00812000 * CALL XMPOSTSG; /* POST DOM REQUEST ECB */ 00813000 BAL @14,XMPOSTSG 0277 00814000 * RFY 0278 00815000 * (R7, 0278 00816000 * R3) UNRSTD; /* UNRESTRICT REGS */ 00817000 * END; /* END NORMAL PROCESSING */ 00818000 * END; /* IF AN ERROR WAS DETECTED */ 00819000 @RF00182 DS 0H 0281 00820000 */********************************************************************/ 00821000 */* CLEANUP SEGMENT */ 00822000 */* */ 00823000 */* THE FOLLOWING SEGMENT FREES THE CORE OCCUPIED BY THE SRB AND THE */ 00824000 */* PARAMETER LIST ASSOCIATED WITH THE SRB AND RELEASE ALL LOCKS. */ 00825000 */* */ 00826000 */* INPUT: */ 00827000 */* SRBPTR - POINTER TO SRB */ 00828000 */* */ 00829000 */********************************************************************/ 00830000 * 0281 00831000 * RFY 0281 00832000 * (R7) RSTD; /* RESTRICT REG 7 */ 00833000 @RF00148 DS 0H 0282 00834000 * R7=SRBASCB; /* SET ADDR OF ASCB */ 00835000 L R7,SRBASCB(,SRBPTR) 0282 00836000 * R4=SRBPTCB; /* ADDRESS OF TCB */ 00837000 L R4,SRBPTCB(,SRBPTR) 0283 00838000 * R1=SRBPTR; /* ADDRESS OF SRB */ 00839000 LR R1,SRBPTR 0284 00840000 * R2=LENGTH(SRBSECT)+5; /* SET LENGTH OF FREEMAIN */ 00841000 LA R2,49 0285 00842000 * GEN REFS(CVTCRMN) /* ISSUE FREEMAIN */ 00843000 * SETS(SAVREG); 0286 00844000 * /*FREEMAIN */ 00845000 FREEMAIN RU,LV=(2),A=(1),SP=239,BRANCH=YES 00846000 LR R1,R9 SET ADDRESS OF DATA AREA 00847000 L R2,@SIZDATD SET LENGTH FOR FREEMAIN 00848000 L R10,SAVREG SAVE RETURN REGISTER 00849000 FREEMAIN RU,LV=(R2),A=(1),SP=229,BRANCH=YES YM04721 00850000 * R7=BASREG; /* SAVE BASE REGISTER */ 00851000 LR R7,BASREG 0287 00852000 * GEN REFS(PSALITA,FLC,PSACSTK,FRRSCURR,FRRSEMP,FRRSELEN); 0288 00853000 * /*RELEASE LOCKS */ 00854000 SETFRR D,WRKREGS=(2,4) 00855000 SETLOCK RELEASE,TYPE=CMS,RELATED=(ORE,IEAVVRP2(SETLOCKS)) 00856000 SETLOCK RELEASE,TYPE=LOCAL,RELATED=(ORE,IEAVVRP2(SETLOCKS)) 00857000 * BASREG=R7; /* RESTORE BASE REGISTER */ 00858000 LR BASREG,R7 0289 00859000 * RFY 0290 00860000 * (R7) UNRSTD; /* UNRESTRICT REG 7 */ 00861000 * RTNREG=R10; /* RESTORE RETURN REG */ 00862000 LR RTNREG,R10 0291 00863000 * GEN; 0292 00864000 * /*RETURN TO CALLER */ 00865000 BR RTNREG RETURN 00866000 *XMPOSTSG: /* XMPOST PROC */ 00867000 * PROC; /* ENTRY POINT */ 00868000 XMPOSTSG STM @14,@12,@SA00002 0293 00869000 * R15=CVT0PT01; /* POST ENTRY POINT */ 00870000 L @08,CVTPTR 0294 00871000 L R15,CVT0PT01(,@08) 0294 00872000 */*R1 IS SETUP AS A BIT MASK FOR LATER USE WHEN BASE REG BECOMES 0295 00873000 * UNAVAILABLE @ZA03242*/ 00874000 * 0295 00875000 * R1=0; /* CLEAR R1 FOR USE AS MASK 0295 00876000 * @ZA03242*/ 00877000 SLR R1,R1 0295 00878000 * R1=R1|'80000000'X; /* SETUP MASK @ZA03242*/ 00879000 L @07,@CF01923 0296 00880000 OR R1,@07 0296 00881000 * R11=R11|'80000000'X; /* INDICATE XMPOST */ 00882000 OR R11,@07 0297 00883000 * BASREG=UCMWAKUP; /* POST INTERFACE */ 00884000 L @08,UCMBASPT(,@08) 0298 00885000 L BASREG,UCMWAKUP(,@08) 0298 00886000 * BASREG=BASREG|R1; /* INDICATE ERRET IS TO BE 0299 00887000 * SCHEDULED TO RUN IN MASTER 0299 00888000 * SCHED MEMORY @ZA03242*/ 00889000 OR BASREG,R1 0299 00890000 * R10=0; /* POST INTERFACE */ 00891000 SLR R10,R10 0300 00892000 * GEN; 0301 00893000 * /*ISSUE XMPOST */ 00894000 BALR RTNREG,R15 BRANCH TO POST 00895000 LR R13,R9 RESTORE REG 13 00896000 * RETURN; /* RETURN TO CALLER */ 00897000 @EL00002 DS 0H 0302 00898000 @EF00002 DS 0H 0302 00899000 @ER00002 LM @14,@12,@SA00002 0302 00900000 BR @14 0302 00901000 * END XMPOSTSG; /* END XMPOST PROC */ 00902000 *GETCELL: 0304 00903000 * PROC OPTIONS(SAVEAREA,NOSAVE(1));/* @ZA02375*/ 00904000 GETCELL STM @14,@00,12(@13) 0304 00905000 STM @02,@12,28(@13) 0304 00906000 ST @13,@SA00003+4 0304 00907000 LA @14,@SA00003 0304 00908000 ST @14,8(,@13) 0304 00909000 LR @13,@14 0304 00910000 */********************************************************************/ 00911000 */* */ 00912000 */* FUNCTION: THIS ROUTINE WILL GET CORE FOR A WQE FROM A @ZA02375*/ 00913000 */* CELL. THE CORE WILL BE ZEROED OUT. ON EXIT FROM THIS @ZA02375*/ 00914000 */* ROUTINE, GETWQESW WILL BE EQUAL TO @ZA02375*/ 00915000 */* YESS- CORE WAS GOTTON FOR A WQE @ZA02375*/ 00916000 */* NO - THE CELL WAS FULL AND NO EXTENSIONS COULD BE @ZA02375*/ 00917000 */* CONSTRUCTED @ZA02375*/ 00918000 */* */ 00919000 */********************************************************************/ 00920000 * 0305 00921000 * CONTSW=YESS; /* ROUTINE SHOULD CONTINU@ZA02375*/ 00922000 MVI CONTSW,X'01' 0305 00923000 * GETWQESW=NO; /* CORE NOT GOTTEN YET @ZA02375*/ 00924000 MVI GETWQESW,X'00' 0306 00925000 * RFY 0307 00926000 * (R0, 0307 00927000 * R1, 0307 00928000 * R4, 0307 00929000 * R7, 0307 00930000 * R14, 0307 00931000 * R15) RSTD; /* RESTRICT REGISTERS @ZA02375*/ 00932000 * R4=SRBPTCB; /* SET TCB ADDRESS @ZA02375*/ 00933000 L R4,SRBPTCB(,SRBPTR) 0308 00934000 * R7=SRBASCB; /* SET ASCB ADDRESS @ZA02375*/ 00935000 L R7,SRBASCB(,SRBPTR) 0309 00936000 * DO WHILE(CONTSW=YESS); /* LOOP TIL CORE GOTTON OR NONE 00937000 * LEFT @ZA02375*/ 00938000 B @DE00310 0310 00939000 @DL00310 DS 0H 0311 00940000 * R0=UCMWQECP; /* GET WQE CELL POOL ID @ZA02375*/ 00941000 L @08,CVTPTR 0311 00942000 L @08,UCMBASPT(,@08) 0311 00943000 L R0,UCMWQECP(,@08) 0311 00944000 * GEN(GETCELL CPID=(R0),BRANCH=YES)/* GET CORE FROM CELL@ZA02375 */ 00945000 * REFS(R0,CVTGETCL); /* @ZA02375*/ 00946000 * 0312 00947000 GETCELL CPID=(R0),BRANCH=YES 00948000 * /***************************************************************/ 00949000 * /* */ 00950000 * /* WAS THE GETCELL SUCCESSFUL ? @ZA02375*/ 00951000 * /* */ 00952000 * /***************************************************************/ 00953000 * 0313 00954000 * IF R15=0 THEN /* DID WE GET A CELL? @ZA02375*/ 00955000 LTR R15,R15 0313 00956000 BNZ @RF00313 0313 00957000 * DO; /* YES. @ZA02375*/ 00958000 * R1->BITZERO(1:LENGTH(WQE)*8)=''B;/* ZERO THE CORE@ZA02375 */ 00959000 XC BITZERO(192,R1),BITZERO(R1) 0315 00960000 * UCMWQNR=UCMWQNR+1; /* INCREMENT WQE COUNT @ZA02375*/ 00961000 L @08,CVTPTR 0316 00962000 L @08,UCMBASPT(,@08) 0316 00963000 LA @05,1 0316 00964000 AH @05,UCMWQNR(,@08) 0316 00965000 STH @05,UCMWQNR(,@08) 0316 00966000 * GETWQESW=YESS; /* SAY CORE WAS GOTTON @ZA02375*/ 00967000 MVI GETWQESW,X'01' 0317 00968000 * CONTSW=NO; /* DONT CONTINUE LOOKING FOR CORE 00969000 * @ZA02375*/ 00970000 MVI CONTSW,X'00' 0318 00971000 * END; /* @ZA02375*/ 00972000 * 0319 00973000 * /***************************************************************/ 00974000 * /* */ 00975000 * /* NO CORE WAS LEFT IN THE CELL. CAN WE GET AN EXTENSION? */ 00976000 * /* */ 00977000 * /***************************************************************/ 00978000 * 0320 00979000 * ELSE /* NO CORE LEFT IN THE CELL 0320 00980000 * @ZA02375*/ 00981000 * DO; /* @ZA02375*/ 00982000 B @RC00313 0320 00983000 @RF00313 DS 0H 0321 00984000 * IF R15=4 THEN /* AN EXTENSION ALLOWED? @ZA02375*/ 00985000 C R15,@CF00146 0321 00986000 BNE @RF00321 0321 00987000 * CALL GETEXT; /* YES, GET AN EXTENSION. ON 0322 00988000 * RETURN, CONTSW=YES IF AN 0322 00989000 * EXTENSION WAS FOUND. CONTSW=NO 00990000 * IF NO CORE WAS LEFT FOR 0322 00991000 * EXTENSION. @ZA02375*/ 00992000 BAL @14,GETEXT 0322 00993000 * ELSE /* AN EXTENSION WAS NOT ALLOWED 00994000 * TO BE ADDED TO THE CELL 0323 00995000 * @ZA02375*/ 00996000 * CONTSW=NO; /* DONT CONTINUE LOOKING FOR CORE 00997000 * @ZA02375*/ 00998000 B @RC00321 0323 00999000 @RF00321 MVI CONTSW,X'00' 0323 01000000 * END; /* @ZA02375*/ 01001000 @RC00321 DS 0H 0325 01002000 * END; /* CONTINUE TO LOOP @ZA02375*/ 01003000 @RC00313 DS 0H 0325 01004000 @DE00310 CLI CONTSW,X'01' 0325 01005000 BE @DL00310 0325 01006000 * RETURN; /* RETURN TO CALLER @ZA02375*/ 01007000 @EL00003 L @13,4(,@13) 0326 01008000 @EF00003 DS 0H 0326 01009000 @ER00003 LM @14,@00,12(@13) 0326 01010000 LM @02,@12,28(@13) 0326 01011000 BR @14 0326 01012000 * RFY 0327 01013000 * (R0, 0327 01014000 * R1, 0327 01015000 * R4, 0327 01016000 * R7, 0327 01017000 * R14, 0327 01018000 * R15) UNRSTD; /* FREE REGS FOR PLS USE @ZA02375*/ 01019000 * END GETCELL; /* @ZA02375*/ 01020000 *GETEXT: 0329 01021000 * PROC OPTIONS(SAVEAREA); /* @ZA02375*/ 01022000 GETEXT STM @14,@12,12(@13) 0329 01023000 ST @13,@SA00004+4 0329 01024000 LA @14,@SA00004 0329 01025000 ST @14,8(,@13) 0329 01026000 LR @13,@14 0329 01027000 */********************************************************************/ 01028000 */* */ 01029000 */* FUNCTION: THIS ROUTINE WILL GET CORE FROM SUBPOOL 231 AND@ZA02375*/ 01030000 */* BUILD AN EXTENSION TO THE CELL. IF CORE IS GOTTON, THEN@ZA02375*/ 01031000 */* CONTSW=YES BUT IF NO CORE IS AVAILABLE OR IF THE @ZA02375*/ 01032000 */* BUILDING OF THE CELL POOL FAILED THEN CONTSW=NO @ZA02375*/ 01033000 */* */ 01034000 */********************************************************************/ 01035000 * 0330 01036000 * RFY 0330 01037000 * (R0, 0330 01038000 * R1, 0330 01039000 * R3, 0330 01040000 * R4, 0330 01041000 * R7, 0330 01042000 * R13, 0330 01043000 * R14, 0330 01044000 * R15) RSTD; /* RESTRICT REGS @ZA02375*/ 01045000 * R0=WQEPLSZ; /* GET SIZE OF WQE EXTENSION 0331 01046000 * @ZA02375*/ 01047000 L R0,@CF00110 0331 01048000 * R4=SRBPTCB; /* SET TCB ADDRESS @ZA02375*/ 01049000 L R4,SRBPTCB(,SRBPTR) 0332 01050000 * R7=SRBASCB; /* SET ASCB ADDRESS @ZA02375*/ 01051000 * 0333 01052000 L R7,SRBASCB(,SRBPTR) 0333 01053000 * /*****************************************************************/ 01054000 * /* */ 01055000 * /* GET CORE FOR AN EXTENSION @ZA02375*/ 01056000 * /* */ 01057000 * /*****************************************************************/ 01058000 * 0334 01059000 * GEN(GETMAIN RC,LV=(R0),SP=231,BRANCH=YES)/* @ZA02375*/ 01060000 * REFS(R0,CVTPTR,CVTCRMN,CVTMAP) SETS(R1,R3,R14,R15);/* @ZA02375*/ 01061000 GETMAIN RC,LV=(R0),SP=231,BRANCH=YES 01062000 * IF R15=0 THEN /* WAS THERE CORE AVAILABLE? 0335 01063000 * @ZA02375*/ 01064000 LTR R15,R15 0335 01065000 BNZ @RF00335 0335 01066000 * DO; /* YES @ZA02375*/ 01067000 * CPEXTSAV=R1; /* SAVE ADDR OF CORE @ZA02375*/ 01068000 LR CPEXTSAV,R1 0337 01069000 * R0=UCMWQECP; /* GET CELL POOL ID @ZA02375*/ 01070000 L @11,CVTPTR 0338 01071000 L @11,UCMBASPT(,@11) 0338 01072000 L R0,UCMWQECP(,@11) 0338 01073000 * R15=LENGTH(WQE); /* GET SIZE OF CELL NEED @ZA02375*/ 01074000 LA R15,192 0339 01075000 * GEN REFS(R0,R1,R2,R3,R13,CVTBLDCP,CVTMAP)/* @ZA02375*/ 01076000 * SETS(R15); 0340 01077000 * /* @ZA02375*/ 01078000 BLDCPOOL CPID=(R0),SP=231,CSIZE=(R15),CPADDR=(R1),BRANCH=YES, XX01079000 AUTODEL=YES,POOLSIZ=4,SERIAL=YES @ZA20159 01080000 * IF R15^=0 THEN /* WAS CELL POOL BUILT? @ZA02375*/ 01081000 LTR R15,R15 0341 01082000 BZ @RF00341 0341 01083000 * DO; /* NO @ZA02375*/ 01084000 * R0=FRWQEXT; /* GET SUBPOOL # AND LENGTH 0343 01085000 * @ZA02375*/ 01086000 L R0,FRWQEXT 0343 01087000 * R1=CPEXTSAV; /* GET ADDR OF CORE TO FREE 0344 01088000 * @ZA02375*/ 01089000 * 0344 01090000 LR R1,CPEXTSAV 0344 01091000 * /*********************************************************/ 01092000 * /* */ 01093000 * /* FREE THE CORE. AN EXTESNION COULD NOT BE BUILT */ 01094000 * /* */ 01095000 * /*********************************************************/ 01096000 * 0345 01097000 * GEN(FREEMAIN R,LV=(R0),A=(R1),BRANCH=YES)/* @ZA02375*/ 01098000 * REFS(R0,R1,CVTPTR,CVTRMBR,CVTMAP)/* @ZA02375*/ 01099000 * SETS(R14,R15); /* @ZA02375*/ 01100000 FREEMAIN R,LV=(R0),A=(R1),BRANCH=YES 01101000 * CONTSW=NO; /* DONT CONTINUE,BUILD EXTENT 0346 01102000 * FAILED @ZA02375*/ 01103000 MVI CONTSW,X'00' 0346 01104000 * END; /* @ZA02375*/ 01105000 * ELSE 0348 01106000 * ; /* CONTINUE AND DO GETCELL IN 0348 01107000 * CALLING ROUT @ZA02375*/ 01108000 @RF00341 DS 0H 0349 01109000 * END; /* @ZA02375*/ 01110000 * ELSE /* CORE WAS NOT AVAILABLE 0350 01111000 * @ZA02375*/ 01112000 * CONTSW=NO; /* DONT CONTINUE,NO CORE LEFT 0350 01113000 * @ZA02375*/ 01114000 B @RC00335 0350 01115000 @RF00335 MVI CONTSW,X'00' 0350 01116000 * RETURN; /* RETURN TO GETCELL @ZA02375*/ 01117000 @EL00004 L @13,4(,@13) 0351 01118000 @EF00004 DS 0H 0351 01119000 @ER00004 LM @14,@12,12(@13) 0351 01120000 BR @14 0351 01121000 * RFY 0352 01122000 * (R0, 0352 01123000 * R1, 0352 01124000 * R3, 0352 01125000 * R4, 0352 01126000 * R7, 0352 01127000 * R13, 0352 01128000 * R14, 0352 01129000 * R15) UNRSTD; /* @ZA02375*/ 01130000 * END GETEXT; /* @ZA02375*/ 01131000 B @EL00004 0353 01132000 @PB00004 DS 0H 0353 01133000 * END IEAVVRP2 /* END REPLY PROCESSING */ 01134000 * 0354 01135000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01136000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01137000 */*%INCLUDE SYSUT5 (DECLARES) */ 01138000 */*%INCLUDE SYSLIB (CVT ) */ 01139000 */*%INCLUDE SYSLIB (IHAORE ) */ 01140000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01141000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01142000 */*%INCLUDE SYSLIB (IHAWQE ) */ 01143000 */*%INCLUDE SYSLIB (IHAASVT ) */ 01144000 */*%INCLUDE SYSLIB (IHASRB ) */ 01145000 */*%INCLUDE SYSLIB (IHACTM ) */ 01146000 */*%INCLUDE SYSLIB (IEECUCM ) */ 01147000 */*%INCLUDE SYSLIB (IHADOMC ) */ 01148000 */*%INCLUDE SYSUT5 (SETLOCKS) */ 01149000 */*%INCLUDE SYSUT5 (SCANID ) */ 01150000 */*%INCLUDE SYSUT5 (FREEBUF ) */ 01151000 */*%INCLUDE SYSUT5 (FREEBUF ) */ 01152000 */*%INCLUDE SYSUT5 (FREEBUF ) */ 01153000 */*%INCLUDE SYSUT5 (VALCHK ) */ 01154000 */*%INCLUDE SYSUT5 (MOVEPST ) */ 01155000 */*%INCLUDE SYSUT5 (AVAILID ) */ 01156000 */*%INCLUDE SYSUT5 (OREREMV ) */ 01157000 */*%INCLUDE SYSUT5 (POSTOECB) */ 01158000 */*%INCLUDE SYSUT5 (CLEANUP ) */ 01159000 * 0354 01160000 * ; 0354 01161000 @DATA DS 0H 01162000 @SM01938 MVC USERBUF(0,@08),TEMPTXT(@07) 01163000 @DATD DSECT 01164000 DS 0F 01165000 @SA00001 DS 18F 01166000 @SA00002 DS 15F 01167000 @SA00003 DS 18F 01168000 @SA00004 DS 18F 01169000 IEAVVRP2 CSECT 01170000 DS 0F 01171000 @CF00146 DC F'4' 01172000 @CF01904 DC F'7' 01173000 @CF00110 DC F'4096' 01174000 @CF01937 DC F'-8' 01175000 @CF01936 DC F'-4' 01176000 @CF01923 DC XL4'80000000' 01177000 @CF01913 DC XL4'20' 01178000 @DATD DSECT 01179000 DS 0D 01180000 SAVREG DS A 01181000 RECEXADD DS A 01182000 WQEPTR DS A 01183000 NXTORE DS A 01184000 FRRSPTR DS A 01185000 FRREPTR DS A 01186000 WMJPTR DS A 01187000 WMNPTR DS A 01188000 UCMMCSPT DS A 01189000 UCMEILPT DS A 01190000 UCMUEWPT DS A 01191000 UCMDVEPT DS A 01192000 UCMFXPTR DS A 01193000 UCMPXPTR DS A 01194000 PAREA DS CL8 01195000 CONTSW DS BL1 01196000 GETWQESW DS BL1 01197000 DS CL2 01198000 REGSAVE DS CL72 01199000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01200000 @ENDDATD EQU * 01201000 IEAVVRP2 CSECT 01202000 DS 0F 01203000 @SIZDATD DC AL1(0) 01204000 DC AL3(@ENDDATD-@DATD) 01205000 DS 0D 01206000 @CC01901 DC C'VRP2' 01207000 BITMAP DS CL8 01208000 ORG BITMAP 01209000 @NM00001 DC XL1'7F' 01210000 @NM00002 DC XL1'BF' 01211000 @NM00003 DC XL1'DF' 01212000 @NM00004 DC XL1'EF' 01213000 @NM00005 DC XL1'F7' 01214000 @NM00006 DC XL1'FB' 01215000 @NM00007 DC XL1'FD' 01216000 @NM00008 DC XL1'FE' 01217000 ORG BITMAP+8 01218000 PATCHAR DC CL150' ' 01219000 DS CL2 01220000 FRWQEXT DS CL4 01221000 ORG FRWQEXT 01222000 @NM00009 DC AL1(231) 01223000 @NM00010 DC AL3(4096) 01224000 ORG FRWQEXT+4 01225000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01226000 @01 EQU 01 01227000 @02 EQU 02 01228000 @03 EQU 03 01229000 @04 EQU 04 01230000 @05 EQU 05 01231000 @06 EQU 06 01232000 @07 EQU 07 01233000 @08 EQU 08 01234000 @09 EQU 09 01235000 @10 EQU 10 01236000 @11 EQU 11 01237000 @12 EQU 12 01238000 @13 EQU 13 01239000 @14 EQU 14 01240000 @15 EQU 15 01241000 UCMEXTPT EQU @03 01242000 CPEXTSAV EQU @10 01243000 SAVREG2 EQU @05 01244000 PARMPTR EQU @03 01245000 DUMWQEPT EQU @05 01246000 ERRCDE EQU @05 01247000 DOMCPTR EQU @05 01248000 BASREG EQU @12 01249000 R9 EQU @09 01250000 RTNREG EQU @14 01251000 PARMREG EQU @01 01252000 ZEROREG EQU @00 01253000 SRBPTR EQU @06 01254000 WWBPTR EQU @04 01255000 OREPTR EQU @02 01256000 BYPASSW EQU @07 01257000 R1 EQU @01 01258000 R2 EQU @02 01259000 R3 EQU @03 01260000 R4 EQU @04 01261000 R7 EQU @07 01262000 R15 EQU @15 01263000 R8 EQU @08 01264000 R10 EQU @10 01265000 R11 EQU @11 01266000 R13 EQU @13 01267000 CREG EQU @04 01268000 R0 EQU @00 01269000 R14 EQU @14 01270000 CVTPTR EQU 16 01271000 PSA EQU 0 01272000 FLCRNPSW EQU PSA 01273000 FLCROPSW EQU PSA+8 01274000 FLCICCW2 EQU PSA+16 01275000 PSAEEPSW EQU PSA+132 01276000 PSAESPSW EQU PSA+136 01277000 FLCSVILC EQU PSAESPSW+1 01278000 PSAEPPSW EQU PSA+140 01279000 FLCPIILC EQU PSAEPPSW+1 01280000 FLCPICOD EQU PSAEPPSW+2 01281000 PSAPICOD EQU FLCPICOD+1 01282000 FLCTEA EQU PSAEPPSW+4 01283000 FLCPER EQU PSA+152 01284000 FLCMCLA EQU PSA+168 01285000 FLCIOEL EQU FLCMCLA+4 01286000 FLCIOA EQU FLCMCLA+16 01287000 FLCFSA EQU FLCMCLA+80 01288000 PSASUPER EQU PSA+552 01289000 PSASUP1 EQU PSASUPER 01290000 PSASUP2 EQU PSASUPER+1 01291000 PSASUP3 EQU PSASUPER+2 01292000 PSASUP4 EQU PSASUPER+3 01293000 PSACLHT EQU PSA+640 01294000 PSALKSA EQU PSA+696 01295000 PSAHLHI EQU PSA+760 01296000 PSALITA EQU PSA+764 01297000 PSADSSFL EQU PSA+836 01298000 PSADSSF1 EQU PSADSSFL 01299000 PSADSSF3 EQU PSADSSFL+2 01300000 PSADSSF4 EQU PSADSSFL+3 01301000 PSARSVT EQU PSA+896 01302000 PSALSFCC EQU PSA+1012 01303000 RPYPARM EQU 0 01304000 RPYID EQU RPYPARM 01305000 RPYSEQ EQU RPYPARM+2 01306000 ASCBTAB EQU 0 01307000 TEMPBUF EQU 0 01308000 TEMPLNT EQU TEMPBUF 01309000 TEMPTXT EQU TEMPBUF+2 01310000 USERBUF EQU 0 01311000 DOM4WORD EQU 0 01312000 BITZERO EQU 0 01313000 CVTMAP EQU 0 01314000 CVT0VL00 EQU CVTMAP+24 01315000 CVTBTERM EQU CVTMAP+52 01316000 CVTDAR EQU CVTMAP+72 01317000 CVTFLGS1 EQU CVTDAR 01318000 CVTCUCB EQU CVTMAP+100 01319000 CVTDCB EQU CVTMAP+116 01320000 CVTIOQET EQU CVTMAP+120 01321000 CVTIERLC EQU CVTMAP+144 01322000 CVT0PT01 EQU CVTMAP+152 01323000 CVTHEAD EQU CVTMAP+160 01324000 CVTSV76C EQU CVTHEAD 01325000 CVTOPTA EQU CVTMAP+182 01326000 CVTOPTB EQU CVTMAP+183 01327000 CVTGTF EQU CVTMAP+236 01328000 CVTGTFST EQU CVTGTF 01329000 CVTGTFS EQU CVTGTFST 01330000 CVTSTATE EQU CVTGTFST 01331000 CVTTMODE EQU CVTGTFST 01332000 CVTFORM EQU CVTGTFST 01333000 CVTAQAVT EQU CVTMAP+240 01334000 CVTTCMFG EQU CVTAQAVT 01335000 CVTVOLM2 EQU CVTMAP+244 01336000 CVTTATA EQU CVTVOLM2 01337000 CVTTSKS EQU CVTTATA 01338000 CVTVOLF2 EQU CVTTSKS 01339000 CVTTAT EQU CVTTATA+1 01340000 CVTATER EQU CVTMAP+248 01341000 CVTEXT1 EQU CVTMAP+252 01342000 CVTPURG EQU CVTMAP+260 01343000 CVTQMSG EQU CVTMAP+268 01344000 CVTDMSR EQU CVTMAP+272 01345000 CVTRSV37 EQU CVTDMSR 01346000 CVTDMSRF EQU CVTRSV37 01347000 CVTERPV EQU CVTMAP+316 01348000 CVTINTLA EQU CVTMAP+320 01349000 CVTAPF EQU CVTMAP+324 01350000 CVTEXT2 EQU CVTMAP+328 01351000 CVTHJES EQU CVTMAP+332 01352000 CVTPGSIA EQU CVTMAP+348 01353000 CVTA1F1 EQU CVTMAP+356 01354000 CVTSYSK EQU CVTMAP+357 01355000 CVTVOLM1 EQU CVTMAP+380 01356000 CVTVOLF1 EQU CVTVOLM1 01357000 CVTATMCT EQU CVTMAP+388 01358000 CVTXTNT1 EQU 0 01359000 CVTXTNT2 EQU 0 01360000 CVTDSSV EQU CVTXTNT2 01361000 CVTFLGBT EQU CVTXTNT2+5 01362000 CVTQID EQU CVTXTNT2+24 01363000 CVTRV400 EQU CVTXTNT2+52 01364000 CVTRV409 EQU CVTXTNT2+53 01365000 CVTATCVT EQU CVTXTNT2+64 01366000 CVTRV429 EQU CVTXTNT2+84 01367000 CVTRV438 EQU CVTXTNT2+85 01368000 CVTRV457 EQU CVTXTNT2+112 01369000 CVTRV466 EQU CVTXTNT2+113 01370000 CVTFIX EQU 0 01371000 CVTRELNO EQU CVTFIX+252 01372000 OREF EQU 0 01373000 ORELKP EQU OREF 01374000 OREID EQU OREF+4 01375000 OREXA EQU OREF+6 01376000 OREKEY0 EQU OREXA 01377000 OREXC EQU OREF+7 01378000 OREBUFC EQU OREXC 01379000 ORETCB EQU OREF+8 01380000 OREWQE EQU OREF+12 01381000 ORERPY EQU OREF+16 01382000 ORELNTH EQU ORERPY 01383000 ORERPYA EQU ORERPY+1 01384000 OREECB EQU OREF+20 01385000 OREECBA EQU OREECB+1 01386000 OREASID EQU OREF+24 01387000 OREOPBUF EQU OREF+28 01388000 FRRS EQU 0 01389000 FRRSHEAD EQU FRRS 01390000 FRRSEMP EQU FRRSHEAD 01391000 FRRSLAST EQU FRRSHEAD+4 01392000 FRRSELEN EQU FRRSHEAD+8 01393000 FRRSCURR EQU FRRSHEAD+12 01394000 FRRSENTR EQU 0 01395000 FRRSFRRA EQU FRRSENTR 01396000 FRRSFLGS EQU FRRSENTR+4 01397000 FRRSFLG1 EQU FRRSFLGS 01398000 FRRSPARM EQU FRRSENTR+8 01399000 WQE EQU 0 01400000 WQELKP EQU WQE 01401000 WQEUSE EQU WQELKP 01402000 WQELKPA EQU WQELKP+1 01403000 WQETS EQU WQE+13 01404000 WQETXT EQU WQE+31 01405000 WQEXA EQU WQE+160 01406000 WQEORE EQU WQEXA 01407000 WQEASID EQU WQE+161 01408000 WQEAVAIL EQU WQE+163 01409000 WQEBUFC EQU WQEAVAIL 01410000 WQESEQN EQU WQE+169 01411000 WQEMCSF EQU WQE+172 01412000 WQEMCSF1 EQU WQEMCSF 01413000 WQEMCSF2 EQU WQEMCSF+1 01414000 WQEMSGTP EQU WQE+174 01415000 WQEMSGT1 EQU WQEMSGTP 01416000 WQEROUT EQU WQE+176 01417000 WQEROUT1 EQU WQEROUT 01418000 WQEROUT2 EQU WQEROUT+1 01419000 WQEDESCD EQU WQE+184 01420000 WQEDC1 EQU WQEDESCD 01421000 WQEDC2 EQU WQEDESCD+1 01422000 WQEJSTCB EQU WQE+188 01423000 WMJM EQU 0 01424000 WMJMEXT EQU WMJM 01425000 WMJMEXTA EQU WMJMEXT+1 01426000 WMJMMLW EQU WMJM+4 01427000 WMJMTS EQU WMJM+13 01428000 WMJMSER EQU WMJM+122 01429000 WMJMSER1 EQU WMJMSER 01430000 WMJMLTYP EQU WMJM+134 01431000 WMJMLTY1 EQU WMJMLTYP 01432000 WMJMECBF EQU WMJM+148 01433000 WMJMDSP EQU WMJM+160 01434000 WMJMBUF EQU WMJM+163 01435000 WMJMCS EQU WMJM+172 01436000 WMJMCS1 EQU WMJMCS 01437000 WMJMCS2 EQU WMJMCS+1 01438000 WMJMMT EQU WMJM+174 01439000 WMJMMT1 EQU WMJMMT 01440000 WMJMRTC EQU WMJM+176 01441000 WMJMRCT1 EQU WMJMRTC 01442000 WMJMRCT2 EQU WMJMRTC+1 01443000 WMJMDEC EQU WMJM+184 01444000 WMJMDEC1 EQU WMJMDEC 01445000 WMJMDEC2 EQU WMJMDEC+1 01446000 WMNM EQU 0 01447000 WMNMEXT EQU WMNM 01448000 WMNMML1 EQU WMNM+4 01449000 WMNMLT1 EQU WMNM+5 01450000 WMNMST1 EQU WMNM+84 01451000 WMNMML2 EQU WMNM+100 01452000 WMNMLT2 EQU WMNM+101 01453000 WMNMST2 EQU WMNM+180 01454000 ASVT EQU 0 01455000 ASVTFRST EQU ASVT+524 01456000 ASVTENTY EQU ASVT+528 01457000 SRBSECT EQU 0 01458000 SRB EQU SRBSECT 01459000 SRBASCB EQU SRB+8 01460000 SRBFLC EQU SRB+12 01461000 SRBPTCB EQU SRBFLC+4 01462000 SRBPARM EQU SRB+28 01463000 WWB EQU 0 01464000 WWBFWDPT EQU WWB 01465000 WWBASCB EQU WWB+8 01466000 WWBFLAGS EQU WWB+16 01467000 WWBPOSTD EQU WWBFLAGS 01468000 WWBECB EQU WWB+20 01469000 PARMLIST EQU 0 01470000 PARMSTAT EQU PARMLIST 01471000 PARMFLAG EQU PARMSTAT+1 01472000 PARMID EQU PARMLIST+20 01473000 UCM2EXT EQU 0 01474000 UCM2STA EQU UCM2EXT+8 01475000 UCM2SFLG EQU UCM2STA 01476000 UCMPRFX EQU 0 01477000 UCMSAVE0 EQU UCMPRFX+4 01478000 UCMDOME EQU UCMPRFX+76 01479000 UCMSFLGS EQU UCMPRFX+84 01480000 UCMSFLG1 EQU UCMSFLGS 01481000 UCMSFLG2 EQU UCMSFLGS+1 01482000 UCMXSA EQU UCMPRFX+104 01483000 UCMSDS1 EQU UCMPRFX+156 01484000 UCM2PTR EQU 0 01485000 UCMPRFXP EQU 0 01486000 UCM EQU 0 01487000 UCMOECB EQU UCM+8 01488000 UCMDECB EQU UCM+12 01489000 UCMRPYQ EQU UCM+28 01490000 UCMRPYI EQU UCM+32 01491000 UCMRQLM EQU UCM+45 01492000 UCMRQNR EQU UCM+56 01493000 UCMWQNR EQU UCM+58 01494000 UCMPXB EQU UCM+68 01495000 UCMMODE EQU UCMPXB 01496000 UCMVDATA EQU UCM+72 01497000 UCMOECBH EQU UCM+264 01498000 UCMORECP EQU UCM+272 01499000 UCMWQECP EQU UCM+276 01500000 UCMASCB EQU UCM+280 01501000 UCMFRRAD EQU UCM+288 01502000 UCMWAKUP EQU UCM+292 01503000 UCMRSV42 EQU UCM+300 01504000 UCMRSV51 EQU UCM+301 01505000 UCMEIL EQU 0 01506000 UCMRECBA EQU UCMEIL+24 01507000 UCMEXIT EQU 0 01508000 UCMLIST EQU 0 01509000 UCMSTS EQU UCMLIST+24 01510000 UCMATR EQU UCMLIST+25 01511000 UCMXA EQU UCMLIST+26 01512000 UCMAUTH EQU UCMLIST+40 01513000 UCMAUTHA EQU UCMAUTH 01514000 UCMDISP EQU UCMLIST+42 01515000 UCMDISP1 EQU UCMDISP 01516000 UCMDISP2 EQU UCMDISP+1 01517000 UCMMSG EQU UCMLIST+60 01518000 UCMMSG1 EQU UCMMSG 01519000 UCMDEVC EQU UCMLIST+63 01520000 UCMRCT EQU UCMLIST+68 01521000 UCMSDS5 EQU UCMRCT 01522000 UCMFEXTA EQU 0 01523000 UCMFMGFS EQU UCMFEXTA+8 01524000 UCMFFLG1 EQU UCMFMGFS 01525000 UCMPEXTA EQU 0 01526000 UCMPDM1 EQU UCMPEXTA+4 01527000 DOMC EQU 0 01528000 DOMCLNK EQU DOMC 01529000 DOMCNTRL EQU DOMCLNK 01530000 DOMCLNKA EQU DOMCLNK+1 01531000 UCMBASPT EQU CVTCUCB 01532000 CVTS01 EQU CVTPGSIA 01533000 CVTLPDIA EQU CVTS01+12 01534000 CVTDIRST EQU CVTLPDIA 01535000 CVTSLIDA EQU CVTS01+24 01536000 CVTCTLFG EQU CVTS01+50 01537000 CVT0VL01 EQU CVTS01+72 01538000 CVTBLDCP EQU CVTS01+140 01539000 CVTGETCL EQU CVTS01+144 01540000 CVTFRECL EQU CVTS01+148 01541000 CVTCRMN EQU CVTS01+156 01542000 CVTASVT EQU CVTS01+208 01543000 CVTRV210 EQU CVTS01+424 01544000 CVTRV219 EQU CVTS01+425 01545000 CVTRV228 EQU CVTS01+426 01546000 CVTRV237 EQU CVTS01+427 01547000 CVTMFRTR EQU CVTS01+452 01548000 CVTRV262 EQU CVTS01+468 01549000 CVTRV271 EQU CVTS01+469 01550000 CVTRV280 EQU CVTS01+470 01551000 CVTRV289 EQU CVTS01+471 01552000 CVTRMBR EQU CVTS01+492 01553000 CVTGSDA EQU CVTS01+600 01554000 ASVTPTR EQU CVTASVT 01555000 FLC EQU PSA 01556000 PSARSVTE EQU PSARSVT 01557000 PSACSTK EQU PSARSVTE 01558000 UCMIECBA EQU UCMRECBA+4 01559000 DOMCID EQU DOMCLNK+4 01560000 DOMCFLAG EQU DOMCID 01561000 DOMCEND EQU DOMCFLAG 01562000 DOMCSEXT EQU DOMCFLAG 01563000 DOMCIDA EQU DOMCID+1 01564000 DOMCTJID EQU DOMCID+4 01565000 DOMCASID EQU DOMCTJID 01566000 DOMCSIZE EQU DOMCID+6 01567000 DOMCJTCB EQU DOMCID+8 01568000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01569000 DOMCLSQA EQU DOMCID+7 01570000 DOMCRS13 EQU DOMCFLAG 01571000 DOMCRS12 EQU DOMCFLAG 01572000 DOMCRS11 EQU DOMCFLAG 01573000 DOMCRS10 EQU DOMCFLAG 01574000 DOMCRS09 EQU DOMCFLAG 01575000 DOMCRS08 EQU DOMCFLAG 01576000 UCMIECBP EQU UCMIECBA+1 01577000 UCMIECBF EQU UCMIECBA 01578000 PSARSAV EQU PSARSVTE+60 01579000 PSARSTK EQU PSARSVTE+56 01580000 PSAESAV3 EQU PSARSVTE+52 01581000 PSAESTK3 EQU PSARSVTE+48 01582000 PSAESAV2 EQU PSARSVTE+44 01583000 PSAESTK2 EQU PSARSVTE+40 01584000 PSAESAV1 EQU PSARSVTE+36 01585000 PSAESTK1 EQU PSARSVTE+32 01586000 PSAPSAV EQU PSARSVTE+28 01587000 PSAPSTK EQU PSARSVTE+24 01588000 PSAMSAV EQU PSARSVTE+20 01589000 PSAMSTK EQU PSARSVTE+16 01590000 PSASSAV EQU PSARSVTE+12 01591000 PSASSTK EQU PSARSVTE+8 01592000 PSANSTK EQU PSARSVTE+4 01593000 CVTRV628 EQU CVTS01+728 01594000 CVTRV627 EQU CVTS01+724 01595000 CVTRV626 EQU CVTS01+720 01596000 CVTRV625 EQU CVTS01+716 01597000 CVTRV624 EQU CVTS01+712 01598000 CVTRV623 EQU CVTS01+708 01599000 CVTRV622 EQU CVTS01+704 01600000 CVTRV621 EQU CVTS01+700 01601000 CVTIHASU EQU CVTS01+696 01602000 CVTRV619 EQU CVTS01+692 01603000 CVTRV618 EQU CVTS01+688 01604000 CVTRV617 EQU CVTS01+684 01605000 CVTRV616 EQU CVTS01+680 01606000 CVTRV615 EQU CVTS01+676 01607000 CVTRV614 EQU CVTS01+672 01608000 CVTRV613 EQU CVTS01+668 01609000 CVTTCASP EQU CVTS01+664 01610000 CVT0PT03 EQU CVTS01+660 01611000 CVT0PT0E EQU CVTS01+656 01612000 CVTRV609 EQU CVTS01+652 01613000 CVTCGK EQU CVTS01+648 01614000 CVTRAC EQU CVTS01+644 01615000 CVTHSM EQU CVTS01+640 01616000 CVTRV605 EQU CVTS01+636 01617000 CVTRV604 EQU CVTS01+632 01618000 CVTEFF02 EQU CVTS01+628 01619000 CVTCBBR EQU CVTS01+624 01620000 CVTSSCR EQU CVTS01+620 01621000 CVTEVENT EQU CVTS01+616 01622000 CVTCRCA EQU CVTS01+612 01623000 CVTTPIO EQU CVTS01+608 01624000 CVTADV EQU CVTS01+604 01625000 CVTGSDAB EQU CVTGSDA 01626000 CVTQV3 EQU CVTS01+596 01627000 CVTQV2 EQU CVTS01+592 01628000 CVTQV1 EQU CVTS01+588 01629000 CVTRPT EQU CVTS01+584 01630000 CVTSSRB EQU CVTS01+580 01631000 CVTCSDRL EQU CVTS01+576 01632000 CVTEXP1 EQU CVTS01+572 01633000 CVTRMPMT EQU CVTS01+568 01634000 CVTRMPTT EQU CVTS01+564 01635000 CVTVPSA EQU CVTS01+560 01636000 CVTVSTOP EQU CVTS01+556 01637000 CVTGTFR8 EQU CVTS01+552 01638000 CVTQUIT EQU CVTS01+548 01639000 CVTVACR EQU CVTS01+544 01640000 CVTWTCB EQU CVTS01+540 01641000 CVTSTPRS EQU CVTS01+536 01642000 CVT0PT02 EQU CVTS01+532 01643000 CVTDARCM EQU CVTS01+528 01644000 CVTIRECM EQU CVTS01+524 01645000 CVTJRECM EQU CVTS01+520 01646000 CVTVEMS0 EQU CVTS01+516 01647000 CVTSPFRR EQU CVTS01+512 01648000 CVTRLSTG EQU CVTS01+508 01649000 CVT0TC0A EQU CVTS01+504 01650000 CVTGMBR EQU CVTS01+500 01651000 CVTLFRM EQU CVTS01+496 01652000 CVTVIOP EQU CVTS01+488 01653000 CVTRV307 EQU CVTS01+486 01654000 CVTRV306 EQU CVTS01+484 01655000 CVTRV305 EQU CVTS01+482 01656000 CVTRV304 EQU CVTS01+480 01657000 CVTRV303 EQU CVTS01+478 01658000 CVTRV302 EQU CVTS01+476 01659000 CVTTRCA EQU CVTS01+472 01660000 CVTRV297 EQU CVTRV289 01661000 CVTRV296 EQU CVTRV289 01662000 CVTRV295 EQU CVTRV289 01663000 CVTRV294 EQU CVTRV289 01664000 CVTRV293 EQU CVTRV289 01665000 CVTRV292 EQU CVTRV289 01666000 CVTRV291 EQU CVTRV289 01667000 CVTRV290 EQU CVTRV289 01668000 CVTRV288 EQU CVTRV280 01669000 CVTRV287 EQU CVTRV280 01670000 CVTRV286 EQU CVTRV280 01671000 CVTRV285 EQU CVTRV280 01672000 CVTRV284 EQU CVTRV280 01673000 CVTRV283 EQU CVTRV280 01674000 CVTRV282 EQU CVTRV280 01675000 CVTRV281 EQU CVTRV280 01676000 CVTRV279 EQU CVTRV271 01677000 CVTRV278 EQU CVTRV271 01678000 CVTRV277 EQU CVTRV271 01679000 CVTRV276 EQU CVTRV271 01680000 CVTRV275 EQU CVTRV271 01681000 CVTRV274 EQU CVTRV271 01682000 CVTRV273 EQU CVTRV271 01683000 CVTRV272 EQU CVTRV271 01684000 CVTRV270 EQU CVTRV262 01685000 CVTRV269 EQU CVTRV262 01686000 CVTRV268 EQU CVTRV262 01687000 CVTRV267 EQU CVTRV262 01688000 CVTRV266 EQU CVTRV262 01689000 CVTRV265 EQU CVTRV262 01690000 CVTRV264 EQU CVTRV262 01691000 CVTRV263 EQU CVTRV262 01692000 CVTVFP EQU CVTS01+464 01693000 CVTVSI EQU CVTS01+460 01694000 CVTVPSIB EQU CVTS01+456 01695000 CVTMFACT EQU CVTMFRTR 01696000 CVTMFCTL EQU CVTS01+448 01697000 CVTPVBP EQU CVTS01+444 01698000 CVTPWI EQU CVTS01+440 01699000 CVTRV254 EQU CVTS01+438 01700000 CVTRV253 EQU CVTS01+436 01701000 CVTRV252 EQU CVTS01+434 01702000 CVTRV251 EQU CVTS01+433 01703000 CVTRV250 EQU CVTS01+432 01704000 CVTRV249 EQU CVTS01+431 01705000 CVTRV248 EQU CVTS01+430 01706000 CVTRV247 EQU CVTS01+429 01707000 CVTRV246 EQU CVTS01+428 01708000 CVTRV245 EQU CVTRV237 01709000 CVTRV244 EQU CVTRV237 01710000 CVTRV243 EQU CVTRV237 01711000 CVTRV242 EQU CVTRV237 01712000 CVTRV241 EQU CVTRV237 01713000 CVTRV240 EQU CVTRV237 01714000 CVTRV239 EQU CVTRV237 01715000 CVTRV238 EQU CVTRV237 01716000 CVTRV236 EQU CVTRV228 01717000 CVTRV235 EQU CVTRV228 01718000 CVTRV234 EQU CVTRV228 01719000 CVTRV233 EQU CVTRV228 01720000 CVTRV232 EQU CVTRV228 01721000 CVTRV231 EQU CVTRV228 01722000 CVTRV230 EQU CVTRV228 01723000 CVTRV229 EQU CVTRV228 01724000 CVTRV227 EQU CVTRV219 01725000 CVTRV226 EQU CVTRV219 01726000 CVTRV225 EQU CVTRV219 01727000 CVTRV224 EQU CVTRV219 01728000 CVTRV223 EQU CVTRV219 01729000 CVTRV222 EQU CVTRV219 01730000 CVTRV221 EQU CVTRV219 01731000 CVTRV220 EQU CVTRV219 01732000 CVTRV218 EQU CVTRV210 01733000 CVTRV217 EQU CVTRV210 01734000 CVTRV216 EQU CVTRV210 01735000 CVTRV215 EQU CVTRV210 01736000 CVTRV214 EQU CVTRV210 01737000 CVTRV213 EQU CVTRV210 01738000 CVTRV212 EQU CVTRV210 01739000 CVTRV211 EQU CVTRV210 01740000 CVTLCCAT EQU CVTS01+420 01741000 CVTPCCAT EQU CVTS01+416 01742000 CVTIPCRP EQU CVTS01+412 01743000 CVTIPCRI EQU CVTS01+408 01744000 CVTIPCDS EQU CVTS01+404 01745000 CVTAIDVT EQU CVTS01+400 01746000 CVTSSAP EQU CVTS01+396 01747000 CVTEHCIR EQU CVTS01+392 01748000 CVTEHDEF EQU CVTS01+388 01749000 CVTDAIR EQU CVTS01+384 01750000 CVTPERFM EQU CVTS01+380 01751000 CVT044R2 EQU CVTS01+376 01752000 CVTFETCH EQU CVTS01+372 01753000 CVTRSTWD EQU CVTS01+368 01754000 CVTSPOST EQU CVTS01+364 01755000 CVTIOBP EQU CVTS01+360 01756000 CVTASMVT EQU CVTS01+356 01757000 CVTRECRQ EQU CVTS01+352 01758000 CVTWSAC EQU CVTS01+348 01759000 CVTRV149 EQU CVTS01+344 01760000 CVTWSAL EQU CVTS01+340 01761000 CVTSPSA EQU CVTS01+336 01762000 CVTGLMN EQU CVTS01+332 01763000 CVTVEAC0 EQU CVTS01+328 01764000 CVT062R1 EQU CVTS01+324 01765000 CVTRPOST EQU CVTS01+320 01766000 CVTDQIQE EQU CVTS01+316 01767000 CVTCSD EQU CVTS01+312 01768000 CVTLKRMA EQU CVTS01+308 01769000 CVTRSPIE EQU CVTS01+304 01770000 CVTRENQ EQU CVTS01+300 01771000 CVTLQCB EQU CVTS01+296 01772000 CVTFQCB EQU CVTS01+292 01773000 CVTQCS01 EQU CVTS01+288 01774000 CVTAPFT EQU CVTS01+284 01775000 CVTPARRL EQU CVTS01+280 01776000 CVTVWAIT EQU CVTS01+276 01777000 CVTGSPL EQU CVTS01+272 01778000 CVTLSMQ EQU CVTS01+268 01779000 CVTGSMQ EQU CVTS01+264 01780000 CVTEXPRO EQU CVTS01+260 01781000 CVTOPCTP EQU CVTS01+256 01782000 CVTSIC EQU CVTS01+252 01783000 CVTTPIOS EQU CVTS01+248 01784000 CVTRTMS EQU CVTS01+244 01785000 CVTSDBF EQU CVTS01+240 01786000 CVTSCBP EQU CVTS01+236 01787000 CVTSDMP EQU CVTS01+232 01788000 CVTSV60 EQU CVTS01+228 01789000 CVTRTMCT EQU CVTS01+224 01790000 CVTASCBL EQU CVTS01+220 01791000 CVTASCBH EQU CVTS01+216 01792000 CVTGDA EQU CVTS01+212 01793000 CVTVVMDI EQU CVTS01+204 01794000 CVTAQTOP EQU CVTS01+200 01795000 CVTIOSCS EQU CVTS01+196 01796000 CVTSDRM EQU CVTS01+192 01797000 CVTOPTE EQU CVTS01+188 01798000 CVTSTXU EQU CVTS01+184 01799000 CVTQUIS EQU CVTS01+180 01800000 CVTPARS EQU CVTS01+176 01801000 CVTS1EE EQU CVTS01+172 01802000 CVTFRAS EQU CVTS01+168 01803000 CVTQSAS EQU CVTS01+164 01804000 CVTCRAS EQU CVTS01+160 01805000 CVTDELCP EQU CVTS01+152 01806000 CVTAUTHL EQU CVTS01+136 01807000 CVTSCAN EQU CVTS01+132 01808000 CVTRV144 EQU CVTS01+130 01809000 CVTMAXMP EQU CVTS01+128 01810000 CVTSTCK EQU CVTS01+124 01811000 CVTRV139 EQU CVTS01+123 01812000 CVTDSSAC EQU CVTS01+122 01813000 CVTRV513 EQU CVTS01+121 01814000 CVTIOSPL EQU CVTS01+120 01815000 CVTPTGT EQU CVTS01+116 01816000 CVTCSPIE EQU CVTS01+112 01817000 CVTSMFEX EQU CVTS01+108 01818000 CVTOLT0A EQU CVTS01+104 01819000 CVTSRBRT EQU CVTS01+100 01820000 CVTPUTL EQU CVTS01+96 01821000 CVTASCRL EQU CVTS01+92 01822000 CVTASCRF EQU CVTS01+88 01823000 CVTRV326 EQU CVTS01+84 01824000 CVTRV325 EQU CVTS01+80 01825000 CVTRV324 EQU CVTS01+76 01826000 CVTSHRVM EQU CVTS01+68 01827000 CVTRV332 EQU CVTS01+64 01828000 CVTTAS EQU CVTS01+60 01829000 CVTRSCN EQU CVTS01+56 01830000 CVTTRAC2 EQU CVTS01+54 01831000 CVTTRACE EQU CVTS01+52 01832000 CVTAPG EQU CVTS01+51 01833000 CVTSDTRC EQU CVTCTLFG 01834000 CVTGTRCE EQU CVTCTLFG 01835000 CVTNOMP EQU CVTCTLFG 01836000 CVTRSV79 EQU CVTCTLFG 01837000 CVTDSTAT EQU CVTCTLFG 01838000 CVTRSV78 EQU CVTCTLFG 01839000 CVTRV333 EQU CVTCTLFG 01840000 CVTRV323 EQU CVTCTLFG 01841000 CVTSPVLK EQU CVTS01+49 01842000 CVTRSV77 EQU CVTS01+48 01843000 CVTRV331 EQU CVTS01+44 01844000 CVTRV330 EQU CVTS01+40 01845000 CVTRV329 EQU CVTS01+36 01846000 CVTRV328 EQU CVTS01+32 01847000 CVTRV322 EQU CVTS01+28 01848000 CVTSLID EQU CVTSLIDA+1 01849000 CVTSYLK EQU CVTSLIDA 01850000 CVTRV321 EQU CVTS01+20 01851000 CVTRV320 EQU CVTS01+16 01852000 CVTLPDIR EQU CVTLPDIA+1 01853000 CVTRSV69 EQU CVTDIRST 01854000 CVTRSV68 EQU CVTDIRST 01855000 CVTRSV67 EQU CVTDIRST 01856000 CVTRSV66 EQU CVTDIRST 01857000 CVTRSV65 EQU CVTDIRST 01858000 CVTRSV64 EQU CVTDIRST 01859000 CVTRSV63 EQU CVTDIRST 01860000 CVTDICOM EQU CVTDIRST 01861000 CVTPVTP EQU CVTS01+8 01862000 CVTLPDSR EQU CVTS01+4 01863000 CVTGETL EQU CVTS01 01864000 DOMCPROC EQU DOMCNTRL 01865000 DOMCDBL EQU DOMCNTRL 01866000 DOMCWR EQU DOMCNTRL 01867000 DOMCDBAJ EQU DOMCNTRL 01868000 DOMCAUTH EQU DOMCNTRL 01869000 DOMCRS03 EQU DOMCNTRL 01870000 DOMCRS02 EQU DOMCNTRL 01871000 DOMCRS01 EQU DOMCNTRL 01872000 UCMPRSV2 EQU UCMPEXTA+20 01873000 UCMPRSV1 EQU UCMPDM1+8 01874000 UCMPNMCC EQU UCMPDM1+4 01875000 UCMPWQE EQU UCMPDM1 01876000 UCMPUCMP EQU UCMPEXTA 01877000 UCMFRSV3 EQU UCMFEXTA+20 01878000 UCMF80WQ EQU UCMFEXTA+18 01879000 UCMF60WQ EQU UCMFEXTA+16 01880000 UCMFRSV2 EQU UCMFMGFS+4 01881000 UCMFRSV1 EQU UCMFMGFS+2 01882000 UCMFFLG2 EQU UCMFMGFS+1 01883000 UCMFBR07 EQU UCMFFLG1 01884000 UCMFBR06 EQU UCMFFLG1 01885000 UCMFBR05 EQU UCMFFLG1 01886000 UCMFBR04 EQU UCMFFLG1 01887000 UCMFBR03 EQU UCMFFLG1 01888000 UCMFMSGN EQU UCMFFLG1 01889000 UCMFMSGA EQU UCMFFLG1 01890000 UCMFMSGE EQU UCMFFLG1 01891000 UCMFPPTR EQU UCMFEXTA+4 01892000 UCMFUCMF EQU UCMFEXTA 01893000 UCMRCTA EQU UCMRCT+1 01894000 UCMRSV31 EQU UCMSDS5 01895000 UCMSDS5G EQU UCMSDS5 01896000 UCMSDS5F EQU UCMSDS5 01897000 UCMRSV30 EQU UCMSDS5 01898000 UCMRSV29 EQU UCMSDS5 01899000 UCMSDS5C EQU UCMSDS5 01900000 UCMSDS5B EQU UCMSDS5 01901000 UCMSDS5A EQU UCMSDS5 01902000 UCMMLAST EQU UCMLIST+64 01903000 UCMVHRSN EQU UCMDEVC 01904000 UCMDEVG EQU UCMDEVC 01905000 UCMDEVF EQU UCMDEVC 01906000 UCMDEVE EQU UCMDEVC 01907000 UCMDEVD EQU UCMDEVC 01908000 UCMDEVCC EQU UCMDEVC 01909000 UCMDEVB EQU UCMDEVC 01910000 UCMDEVA EQU UCMDEVC 01911000 UCMXOR EQU UCMLIST+62 01912000 UCMMSG2 EQU UCMMSG+1 01913000 UCMRSV27 EQU UCMMSG1 01914000 UCMRSV26 EQU UCMMSG1 01915000 UCMMSGF EQU UCMMSG1 01916000 UCMMSGE EQU UCMMSG1 01917000 UCMMSGD EQU UCMMSG1 01918000 UCMMSGC EQU UCMMSG1 01919000 UCMMSGB EQU UCMMSG1 01920000 UCMMSGA EQU UCMMSG1 01921000 UCMCOMPC EQU UCMLIST+56 01922000 UCMWLAST EQU UCMLIST+52 01923000 UCMOAOEN EQU UCMLIST+48 01924000 UCMALTEN EQU UCMLIST+44 01925000 UCMRV007 EQU UCMDISP2 01926000 UCMRV006 EQU UCMDISP2 01927000 UCMRV005 EQU UCMDISP2 01928000 UCMRV004 EQU UCMDISP2 01929000 UCMRV003 EQU UCMDISP2 01930000 UCMDISPK EQU UCMDISP2 01931000 UCMDISPJ EQU UCMDISP2 01932000 UCMDISPI EQU UCMDISP2 01933000 UCMDISPH EQU UCMDISP1 01934000 UCMDISPG EQU UCMDISP1 01935000 UCMDISPF EQU UCMDISP1 01936000 UCMDISPE EQU UCMDISP1 01937000 UCMDISPD EQU UCMDISP1 01938000 UCMDISPC EQU UCMDISP1 01939000 UCMDISPB EQU UCMDISP1 01940000 UCMDISPA EQU UCMDISP1 01941000 UCMAUTHB EQU UCMAUTH+1 01942000 UCMRSV23 EQU UCMAUTHA 01943000 UCMRSV22 EQU UCMAUTHA 01944000 UCMRSV21 EQU UCMAUTHA 01945000 UCMRSV20 EQU UCMAUTHA 01946000 UCMRSV19 EQU UCMAUTHA 01947000 UCMAUTH3 EQU UCMAUTHA 01948000 UCMAUTH2 EQU UCMAUTHA 01949000 UCMAUTH1 EQU UCMAUTHA 01950000 UCMOUTQ EQU UCMLIST+36 01951000 UCMRSV18 EQU UCMLIST+34 01952000 UCMRTCD EQU UCMLIST+32 01953000 UCMXB EQU UCMLIST+28 01954000 @NM00048 EQU UCMXA+1 01955000 UCMID EQU UCMXA 01956000 UCMRSV17 EQU UCMATR 01957000 UCMRSV16 EQU UCMATR 01958000 UCMAT04 EQU UCMATR 01959000 UCMLF EQU UCMATR 01960000 UCMUF EQU UCMATR 01961000 UCMXF EQU UCMATR 01962000 UCMIF EQU UCMATR 01963000 UCMOF EQU UCMATR 01964000 UCMTC EQU UCMSTS 01965000 UCMTD EQU UCMSTS 01966000 UCMTB EQU UCMSTS 01967000 UCMTA EQU UCMSTS 01968000 UCMCF EQU UCMSTS 01969000 UCMBF EQU UCMSTS 01970000 UCMPF EQU UCMSTS 01971000 UCMAF EQU UCMSTS 01972000 UCMNAME EQU UCMLIST+16 01973000 UCMUCB EQU UCMLIST+12 01974000 UCMDCB EQU UCMLIST+8 01975000 UCMSBR EQU UCMLIST+4 01976000 UCMECB EQU UCMLIST 01977000 UCMTPSAV EQU UCMEXIT+208 01978000 UCMXTSAV EQU UCMEXIT+136 01979000 UCMDESCD EQU UCMEXIT+132 01980000 UCMROUTC EQU UCMEXIT+128 01981000 UCMMSTXT EQU UCMEXIT 01982000 UCMDECBA EQU UCMEIL+20 01983000 UCMOECBA EQU UCMEIL+16 01984000 UCMAECBA EQU UCMEIL+12 01985000 UCMXECBA EQU UCMEIL+8 01986000 UCMNIPTR EQU UCMEIL+4 01987000 UCMRSV15 EQU UCMEIL+3 01988000 UCMRTCT EQU UCMEIL+2 01989000 UCMRPYL EQU UCMEIL+1 01990000 @NM00047 EQU UCMEIL 01991000 UCMRSV60 EQU UCM+302 01992000 UCMRSV59 EQU UCMRSV51 01993000 UCMRSV58 EQU UCMRSV51 01994000 UCMRSV57 EQU UCMRSV51 01995000 UCMRSV56 EQU UCMRSV51 01996000 UCMRSV55 EQU UCMRSV51 01997000 UCMRSV54 EQU UCMRSV51 01998000 UCMRSV53 EQU UCMRSV51 01999000 UCMRSV52 EQU UCMRSV51 02000000 UCMRSV50 EQU UCMRSV42 02001000 UCMRSV49 EQU UCMRSV42 02002000 UCMRSV48 EQU UCMRSV42 02003000 UCMRSV47 EQU UCMRSV42 02004000 UCMRSV46 EQU UCMRSV42 02005000 UCMRSV45 EQU UCMRSV42 02006000 UCMRSV44 EQU UCMRSV42 02007000 UCMRSV43 EQU UCMRSV42 02008000 UCMJES3T EQU UCM+296 02009000 UCMSWCH EQU UCM+284 02010000 UCMOECBT EQU UCM+268 02011000 UCMWECBT EQU UCM+260 02012000 UCMWECBH EQU UCM+256 02013000 UCMMBEND EQU UCM+252 02014000 UCMCTID EQU UCM+250 02015000 UCMRSV61 EQU UCM+248 02016000 UCMRP2AD EQU UCM+244 02017000 UCMCRAAD EQU UCM+240 02018000 UCMWQLM1 EQU UCM+238 02019000 UCMRV001 EQU UCM+237 02020000 UCMRQLM1 EQU UCM+236 02021000 UCMMBPTR EQU UCM+232 02022000 UCMMQNXT EQU UCM+228 02023000 UCMMQEND EQU UCM+224 02024000 UCMMQPTR EQU UCM+220 02025000 UCMTRECB EQU UCM+216 02026000 UCMMNECB EQU UCM+212 02027000 UCMMNTR EQU UCM+208 02028000 UCMR9SV EQU UCM+204 02029000 UCMSAVE4 EQU UCM+140 02030000 UCMSAVE3 EQU UCM+84 02031000 UCMVEL EQU UCMVDATA+8 02032000 UCMVEZ EQU UCMVDATA+4 02033000 UCMVEA EQU UCMVDATA 02034000 UCMINCR EQU UCM+71 02035000 UCMMODEL EQU UCM+70 02036000 UCMCORE EQU UCM+69 02037000 UCMFIX EQU UCMMODE 02038000 UCMMCS EQU UCMMODE 02039000 UCMOGCE EQU UCMMODE 02040000 UCMAMFA EQU UCMMODE 02041000 UCMRSV14 EQU UCMMODE 02042000 UCMTPUTA EQU UCMMODE 02043000 UCMNOCON EQU UCMMODE 02044000 UCMRSV11 EQU UCMMODE 02045000 UCMPXA EQU UCM+64 02046000 UCMWQEND EQU UCM+60 02047000 UCMWQECB EQU UCM+52 02048000 UCMRQECB EQU UCM+48 02049000 UCMWQLM EQU UCM+46 02050000 @NM00046 EQU UCMRPYI 02051000 UCMWTOQ EQU UCM+24 02052000 UCMLSTP EQU UCM+20 02053000 UCMARECB EQU UCM+16 02054000 UCMLECB EQU UCMDECB 02055000 UCMAECB EQU UCM+4 02056000 UCMXECB EQU UCM 02057000 UCMGMCNT EQU UCMPRFX+158 02058000 UCMSDS2 EQU UCMPRFX+157 02059000 UCMRSV09 EQU UCMSDS1 02060000 UCMRSV08 EQU UCMSDS1 02061000 UCMRSV07 EQU UCMSDS1 02062000 UCMRSV06 EQU UCMSDS1 02063000 UCMRSV05 EQU UCMSDS1 02064000 UCMRSV04 EQU UCMSDS1 02065000 UCMSDS1B EQU UCMSDS1 02066000 UCMSDS1A EQU UCMSDS1 02067000 UCMDTINT EQU UCMPRFX+152 02068000 UCMLOGAD EQU UCMPRFX+148 02069000 UCMNPECB EQU UCMPRFX+144 02070000 UCMTPPTR EQU UCMPRFX+140 02071000 UCMDOMRT EQU UCMPRFX+136 02072000 UCMRUTCK EQU UCMPRFX+132 02073000 UCMQRTN EQU UCMPRFX+128 02074000 UCM6WD EQU UCMXSA+20 02075000 UCM5WD EQU UCMXSA+16 02076000 UCM4WD EQU UCMXSA+12 02077000 UCM3WD EQU UCMXSA+8 02078000 UCM2WD EQU UCMXSA+4 02079000 UCM1WD EQU UCMXSA 02080000 UCMRSV03 EQU UCMPRFX+102 02081000 UCMHRDRT EQU UCMPRFX+100 02082000 UCMUEXIT EQU UCMPRFX+97 02083000 UCMXCT EQU UCMPRFX+96 02084000 UCMHCUCM EQU UCMPRFX+92 02085000 UCMCMID EQU UCMPRFX+88 02086000 UCMOWTOR EQU UCMPRFX+86 02087000 UCMRSV02 EQU UCMSFLG2 02088000 UCMSYSO EQU UCMSFLG2 02089000 UCMSYSN EQU UCMSFLG2 02090000 UCMSYSM EQU UCMSFLG2 02091000 UCMSYSL EQU UCMSFLG2 02092000 UCMSYSK EQU UCMSFLG2 02093000 UCMSYSJ EQU UCMSFLG2 02094000 UCMSYSI EQU UCMSFLG2 02095000 UCMRSV35 EQU UCMSFLG1 02096000 UCMSYSG EQU UCMSFLG1 02097000 UCMSYSF EQU UCMSFLG1 02098000 UCMSYSE EQU UCMSFLG1 02099000 UCMSYSD EQU UCMSFLG1 02100000 UCMSYSC EQU UCMSFLG1 02101000 UCMSYSB EQU UCMSFLG1 02102000 UCMRSV01 EQU UCMSFLG1 02103000 UCMWTOX EQU UCMPRFX+80 02104000 UCMSVR0 EQU UCMSAVE0+68 02105000 UCMSVQ0 EQU UCMSAVE0+64 02106000 UCMSVP0 EQU UCMSAVE0+60 02107000 UCMSVO0 EQU UCMSAVE0+56 02108000 UCMSVN0 EQU UCMSAVE0+52 02109000 UCMSVM0 EQU UCMSAVE0+48 02110000 UCMSVL0 EQU UCMSAVE0+44 02111000 UCMSVK0 EQU UCMSAVE0+40 02112000 UCMSVJ0 EQU UCMSAVE0+36 02113000 UCMSVI0 EQU UCMSAVE0+32 02114000 UCMSVH0 EQU UCMSAVE0+28 02115000 UCMSVG0 EQU UCMSAVE0+24 02116000 UCMSVF0 EQU UCMSAVE0+20 02117000 UCMSVE0 EQU UCMSAVE0+16 02118000 UCMSVD0 EQU UCMSAVE0+12 02119000 UCMSVC0 EQU UCMSAVE0+8 02120000 UCMSVB0 EQU UCMSAVE0+4 02121000 UCMSVA0 EQU UCMSAVE0 02122000 UCMMCENT EQU UCMPRFX 02123000 UCM2FEXT EQU UCM2EXT+12 02124000 UCM2STAA EQU UCM2STA+1 02125000 UCMRV008 EQU UCM2SFLG 02126000 UCMRSV34 EQU UCM2SFLG 02127000 UCMRSV33 EQU UCM2SFLG 02128000 UCM2WTOI EQU UCM2SFLG 02129000 UCM2DSTR EQU UCM2SFLG 02130000 UCM2DTAK EQU UCM2SFLG 02131000 UCM2SENT EQU UCM2SFLG 02132000 UCM2SDWA EQU UCM2SFLG 02133000 UCM2PST EQU UCM2EXT+4 02134000 UCM2RID EQU UCM2EXT+2 02135000 UCM2WID EQU UCM2EXT 02136000 PARMRGAD EQU PARMLIST+16 02137000 PARMRTAD EQU PARMLIST+12 02138000 PARMCLAD EQU PARMLIST+8 02139000 PARMSYAD EQU PARMLIST+4 02140000 PARMCTBK EQU PARMSTAT+3 02141000 PARMSYSR EQU PARMSTAT+2 02142000 @NM00045 EQU PARMFLAG 02143000 @NM00044 EQU PARMFLAG 02144000 @NM00043 EQU PARMFLAG 02145000 PARMWARG EQU PARMFLAG 02146000 PARMFRID EQU PARMFLAG 02147000 PARMRECU EQU PARMFLAG 02148000 PARMCWT EQU PARMFLAG 02149000 PARMSDWA EQU PARMFLAG 02150000 PARMFTPT EQU PARMSTAT 02151000 WWBRESRV EQU WWB+17 02152000 WWBTCBAD EQU WWB+12 02153000 WWBBCKPT EQU WWB+4 02154000 @NM00042 EQU SRB+40 02155000 @NM00041 EQU SRB+38 02156000 SRBPRIOR EQU SRB+37 02157000 SRBPKF EQU SRB+36 02158000 SRBSAVE EQU SRB+32 02159000 SRBRMTR EQU SRB+24 02160000 SRBEP EQU SRB+20 02161000 SRBPASID EQU SRBFLC+2 02162000 SRBCPAFF EQU SRBFLC 02163000 SRBFLNK EQU SRB+4 02164000 SRBID EQU SRB 02165000 ASVTEND EQU ASVT+528 02166000 ASVTAVAL EQU ASVTENTY 02167000 ASVTAVAI EQU ASVTFRST 02168000 ASVTRS00 EQU ASVT+520 02169000 ASVTMAXU EQU ASVT+516 02170000 ASVTASVT EQU ASVT+512 02171000 ASVTBEGN EQU ASVT+512 02172000 @NM00040 EQU ASVT 02173000 WQERSVC7 EQU WMNM+184 02174000 WQERSVC6 EQU WMNM+181 02175000 WQERSVC5 EQU WMNMST2 02176000 WQERSVC4 EQU WMNMST2 02177000 WQERSVC3 EQU WMNMST2 02178000 WQERSVC2 EQU WMNMST2 02179000 WQERSVC1 EQU WMNMST2 02180000 WQERSVB9 EQU WMNMST2 02181000 WQERSVB8 EQU WMNMST2 02182000 WMNMTPD2 EQU WMNMST2 02183000 WMNMTXT2 EQU WMNM+108 02184000 WMNMHCT2 EQU WMNM+104 02185000 WMNMTL2 EQU WMNM+103 02186000 WQERSV74 EQU WMNM+102 02187000 WQERSV73 EQU WMNMLT2 02188000 WQERSV72 EQU WMNMLT2 02189000 WQERSV71 EQU WMNMLT2 02190000 WQERSV70 EQU WMNMLT2 02191000 WMNMLT2D EQU WMNMLT2 02192000 WMNMLT2C EQU WMNMLT2 02193000 WMNMLT2B EQU WMNMLT2 02194000 WMNMLT2A EQU WMNMLT2 02195000 WMNMML2H EQU WMNMML2 02196000 WMNMML2G EQU WMNMML2 02197000 WQERSV69 EQU WMNMML2 02198000 WMNMML2E EQU WMNMML2 02199000 WMNMML2D EQU WMNMML2 02200000 WMNMML2C EQU WMNMML2 02201000 WMNMML2B EQU WMNMML2 02202000 WQERSV68 EQU WMNMML2 02203000 WMNMNX2 EQU WMNM+97 02204000 WMNMUC2 EQU WMNM+96 02205000 WQERSVB7 EQU WMNM+88 02206000 WQERSVB6 EQU WMNM+85 02207000 WQERSVB5 EQU WMNMST1 02208000 WQERSVB4 EQU WMNMST1 02209000 WQERSVB3 EQU WMNMST1 02210000 WQERSVB2 EQU WMNMST1 02211000 WQERSVB1 EQU WMNMST1 02212000 WQERSVA9 EQU WMNMST1 02213000 WQERSVA8 EQU WMNMST1 02214000 WMNMTPD1 EQU WMNMST1 02215000 WMNMTXT1 EQU WMNM+12 02216000 WMNMHCT1 EQU WMNM+8 02217000 WMNMTL1 EQU WMNM+7 02218000 WQERSV67 EQU WMNM+6 02219000 WQERSV66 EQU WMNMLT1 02220000 WQERSV65 EQU WMNMLT1 02221000 WQERSV64 EQU WMNMLT1 02222000 WQERSV63 EQU WMNMLT1 02223000 WMNMLT1D EQU WMNMLT1 02224000 WMNMLT1C EQU WMNMLT1 02225000 WMNMLT1B EQU WMNMLT1 02226000 WMNMLT1A EQU WMNMLT1 02227000 WMNMML1H EQU WMNMML1 02228000 WMNMML1G EQU WMNMML1 02229000 WMNMML1F EQU WMNMML1 02230000 WMNMML1E EQU WMNMML1 02231000 WMNMML1D EQU WMNMML1 02232000 WMNMML1C EQU WMNMML1 02233000 WMNMML1B EQU WMNMML1 02234000 WQERSV62 EQU WMNMML1 02235000 WMNMNX1 EQU WMNMEXT+1 02236000 WMNMUC1 EQU WMNMEXT 02237000 WMJMJTCB EQU WMJM+188 02238000 WMJMDEC4 EQU WMJMDEC+3 02239000 WMJMDEC3 EQU WMJMDEC+2 02240000 WQERSV61 EQU WMJMDEC2 02241000 WQERSV60 EQU WMJMDEC2 02242000 WQERSV59 EQU WMJMDEC2 02243000 WQERSV58 EQU WMJMDEC2 02244000 WQERSV57 EQU WMJMDEC2 02245000 WQERSV56 EQU WMJMDEC2 02246000 WMJMDECJ EQU WMJMDEC2 02247000 WMJMDECI EQU WMJMDEC2 02248000 WMJMDECH EQU WMJMDEC1 02249000 WMJMDECG EQU WMJMDEC1 02250000 WMJMDECF EQU WMJMDEC1 02251000 WMJMDECE EQU WMJMDEC1 02252000 WMJMDECD EQU WMJMDEC1 02253000 WMJMDECC EQU WMJMDEC1 02254000 WMJMDECB EQU WMJMDEC1 02255000 WMJMDECA EQU WMJMDEC1 02256000 WQERSV54 EQU WMJM+181 02257000 WMJMUID EQU WMJM+180 02258000 WMJMRCT4 EQU WMJMRTC+3 02259000 WMJMRCT3 EQU WMJMRTC+2 02260000 WQERSV53 EQU WMJMRCT2 02261000 WMJMRCTO EQU WMJMRCT2 02262000 WMJMRCTN EQU WMJMRCT2 02263000 WMJMRCTM EQU WMJMRCT2 02264000 WMJMRCTL EQU WMJMRCT2 02265000 WMJMRCTK EQU WMJMRCT2 02266000 WMJMRCTJ EQU WMJMRCT2 02267000 WMJMRCTI EQU WMJMRCT2 02268000 WMJMRCTH EQU WMJMRCT1 02269000 WMJMRCTG EQU WMJMRCT1 02270000 WMJMRCTF EQU WMJMRCT1 02271000 WMJMRCTE EQU WMJMRCT1 02272000 WMJMRCTD EQU WMJMRCT1 02273000 WMJMRCTC EQU WMJMRCT1 02274000 WMJMRCTB EQU WMJMRCT1 02275000 WMJMRCTA EQU WMJMRCT1 02276000 WMJMMT2 EQU WMJMMT+1 02277000 WQERSV52 EQU WMJMMT1 02278000 WQERSV51 EQU WMJMMT1 02279000 WMJMMT1F EQU WMJMMT1 02280000 WQERSV50 EQU WMJMMT1 02281000 WMJMMT1D EQU WMJMMT1 02282000 WQERSVA6 EQU WMJMMT1 02283000 WMJMMT1B EQU WMJMMT1 02284000 WMJMMT1A EQU WMJMMT1 02285000 WQERSV11 EQU WMJMCS2 02286000 WQERSV49 EQU WMJMCS2 02287000 WMJMCS2F EQU WMJMCS2 02288000 WQERSV48 EQU WMJMCS2 02289000 WQERSV47 EQU WMJMCS2 02290000 WMJMCS2C EQU WMJMCS2 02291000 WMJMCS2B EQU WMJMCS2 02292000 WMJMCS2A EQU WMJMCS2 02293000 WMJMCS1H EQU WMJMCS1 02294000 WMJMCS1G EQU WMJMCS1 02295000 WMJMCS1F EQU WMJMCS1 02296000 WMJMCS1E EQU WMJMCS1 02297000 WMJMCS1D EQU WMJMCS1 02298000 WMJMCS1C EQU WMJMCS1 02299000 WMJMCS1B EQU WMJMCS1 02300000 WMJMCS1A EQU WMJMCS1 02301000 WMJMSEQ EQU WMJM+169 02302000 WMJMRTCT EQU WMJM+168 02303000 WMJMTCB EQU WMJM+164 02304000 WQERSV45 EQU WMJMBUF 02305000 WMJMBUFG EQU WMJMBUF 02306000 WMJMBUFF EQU WMJMBUF 02307000 WMJMBUFE EQU WMJMBUF 02308000 WMJMBUFD EQU WMJMBUF 02309000 WMJMBUFC EQU WMJMBUF 02310000 WMJMBUFB EQU WMJMBUF 02311000 WMJMBUFA EQU WMJMBUF 02312000 WMJMASID EQU WMJM+161 02313000 WMJMDSPH EQU WMJMDSP 02314000 WMJMDSPG EQU WMJMDSP 02315000 WMJMDSPF EQU WMJMDSP 02316000 WMJMDSPE EQU WMJMDSP 02317000 WMJMDSPD EQU WMJMDSP 02318000 WMJMDSPC EQU WMJMDSP 02319000 WMJMDSPB EQU WMJMDSP 02320000 WMJMDSPA EQU WMJMDSP 02321000 WQERSVA5 EQU WMJM+156 02322000 WQERSVA4 EQU WMJM+152 02323000 WQERSVD8 EQU WMJM+149 02324000 WQERSVD7 EQU WMJMECBF 02325000 WQERSVD6 EQU WMJMECBF 02326000 WQERSVD5 EQU WMJMECBF 02327000 WQERSVD4 EQU WMJMECBF 02328000 WQERSVD3 EQU WMJMECBF 02329000 WQERSVD2 EQU WMJMECBF 02330000 WMJMMAJD EQU WMJMECBF 02331000 WMJMWAIT EQU WMJMECBF 02332000 WMJMMSGN EQU WMJM+144 02333000 WMJMAECB EQU WMJM+140 02334000 WMJMMIN EQU WMJM+136 02335000 WMJMLTY2 EQU WMJMLTYP+1 02336000 WQERSV38 EQU WMJMLTY1 02337000 WQERSV37 EQU WMJMLTY1 02338000 WQERSV36 EQU WMJMLTY1 02339000 WQERSV35 EQU WMJMLTY1 02340000 WMJMLTYD EQU WMJMLTY1 02341000 WMJMLTYC EQU WMJMLTY1 02342000 WMJMLTYB EQU WMJMLTY1 02343000 WMJMLTYA EQU WMJMLTY1 02344000 WQERSV34 EQU WMJM+132 02345000 WMJMCONS EQU WMJM+124 02346000 WMJMSER2 EQU WMJMSER+1 02347000 WQERSV33 EQU WMJMSER1 02348000 WQERSV32 EQU WMJMSER1 02349000 WQERSV31 EQU WMJMSER1 02350000 WMJMSERE EQU WMJMSER1 02351000 WMJMSERD EQU WMJMSER1 02352000 WMJMSERC EQU WMJMSER1 02353000 WMJMSERB EQU WMJMSER1 02354000 WMJMSERA EQU WMJMSER1 02355000 WQERSV30 EQU WMJM+120 02356000 WQERSV29 EQU WMJM+116 02357000 WMJMRESA EQU WMJM+108 02358000 WNJNPAD3 EQU WMJM+107 02359000 WMJMHCID EQU WMJM+103 02360000 WMJMTXT EQU WMJM+31 02361000 WMJMPAD2 EQU WMJM+30 02362000 WMJMJBNM EQU WMJM+22 02363000 WMJMPAD1 EQU WMJM+21 02364000 WMJMTSSS EQU WMJMTS+6 02365000 WMJMTSP2 EQU WMJMTS+5 02366000 WMJMTSMM EQU WMJMTS+3 02367000 WMJMTSP1 EQU WMJMTS+2 02368000 WMJMTSHH EQU WMJMTS 02369000 WMJMPAD EQU WMJM+12 02370000 WMJMRR EQU WMJM+8 02371000 WMJMTXTL EQU WMJM+6 02372000 WMJMAREA EQU WMJM+5 02373000 WMJMMLWH EQU WMJMMLW 02374000 WMJMMLWG EQU WMJMMLW 02375000 WMJMMLWF EQU WMJMMLW 02376000 WMJMMLWE EQU WMJMMLW 02377000 WMJMMLWD EQU WMJMMLW 02378000 WMJMMLWC EQU WMJMMLW 02379000 WMJMMLWB EQU WMJMMLW 02380000 WMJMMLWA EQU WMJMMLW 02381000 WMJMNXT EQU WMJMEXTA 02382000 WMJMUC EQU WMJMEXT 02383000 WQERSV26 EQU WQE+186 02384000 WQERSV25 EQU WQEDC2 02385000 WQERSV24 EQU WQEDC2 02386000 WQERSV23 EQU WQEDC2 02387000 WQERSV22 EQU WQEDC2 02388000 WQERSV21 EQU WQEDC2 02389000 WQERSV20 EQU WQEDC2 02390000 WQEDCJ EQU WQEDC2 02391000 WQEDCI EQU WQEDC2 02392000 WQEDCH EQU WQEDC1 02393000 WQEDCG EQU WQEDC1 02394000 WQEDCF EQU WQEDC1 02395000 WQEDCE EQU WQEDC1 02396000 WQEDCD EQU WQEDC1 02397000 WQEDCC EQU WQEDC1 02398000 WQEDCB EQU WQEDC1 02399000 WQEDCA EQU WQEDC1 02400000 WQERPYID EQU WQE+182 02401000 WQERSV18 EQU WQE+181 02402000 WQEUCMID EQU WQE+180 02403000 WQERSV17 EQU WQE+178 02404000 WQERSV16 EQU WQEROUT2 02405000 WQEROUTO EQU WQEROUT2 02406000 WQEROUTN EQU WQEROUT2 02407000 WQEROUTM EQU WQEROUT2 02408000 WQEROUTL EQU WQEROUT2 02409000 WQEROUTK EQU WQEROUT2 02410000 WQEROUTJ EQU WQEROUT2 02411000 WQEROUTI EQU WQEROUT2 02412000 WQEROUTH EQU WQEROUT1 02413000 WQEROUTG EQU WQEROUT1 02414000 WQEROUTF EQU WQEROUT1 02415000 WQEROUTE EQU WQEROUT1 02416000 WQEROUTD EQU WQEROUT1 02417000 WQEROUTC EQU WQEROUT1 02418000 WQEROUTB EQU WQEROUT1 02419000 WQEROUTA EQU WQEROUT1 02420000 WQERSV15 EQU WQEMSGT1 02421000 WQERSV14 EQU WQEMSGT1 02422000 WQEMSGTF EQU WQEMSGT1 02423000 WQERSV13 EQU WQEMSGT1 02424000 WQEMSGTD EQU WQEMSGT1 02425000 WQEMSGTC EQU WQEMSGT1 02426000 WQEMSGTB EQU WQEMSGT1 02427000 WQEMSGTA EQU WQEMSGT1 02428000 WQEMCSP EQU WQEMCSF2 02429000 WQEMCSO EQU WQEMCSF2 02430000 WQEMCSN EQU WQEMCSF2 02431000 WQERSV10 EQU WQEMCSF2 02432000 WQERSV09 EQU WQEMCSF2 02433000 WQEMCSK EQU WQEMCSF2 02434000 WQEMCSJ EQU WQEMCSF2 02435000 WQEMCSI EQU WQEMCSF2 02436000 WQEMCSH EQU WQEMCSF1 02437000 WQEMCSG EQU WQEMCSF1 02438000 WQEMCSFF EQU WQEMCSF1 02439000 WQEMCSE EQU WQEMCSF1 02440000 WQEMCSD EQU WQEMCSF1 02441000 WQEMCSC EQU WQEMCSF1 02442000 WQEMCSB EQU WQEMCSF1 02443000 WQEMCSA EQU WQEMCSF1 02444000 WQERTCT EQU WQE+168 02445000 WQETCB EQU WQE+164 02446000 WQERSV07 EQU WQEAVAIL 02447000 WQERSV06 EQU WQEAVAIL 02448000 WQEBUFF EQU WQEAVAIL 02449000 WQEBUFE EQU WQEAVAIL 02450000 WQEBUFD EQU WQEAVAIL 02451000 WQEBUFB EQU WQEAVAIL 02452000 WQEBUFA EQU WQEAVAIL 02453000 WQEAUTH EQU WQEXA 02454000 WQESUSP EQU WQEXA 02455000 WQEDOM EQU WQEXA 02456000 WQEWTOR EQU WQEXA 02457000 WQEQDFHC EQU WQEXA 02458000 WQEQFHC EQU WQEXA 02459000 WQEPURGE EQU WQEXA 02460000 WQEPAD3 EQU WQE+159 02461000 WQETXTL EQU WQETXT+127 02462000 @NM00039 EQU WQETXT 02463000 WQEPAD2 EQU WQE+30 02464000 WQEJOBNM EQU WQE+22 02465000 WQEPAD1 EQU WQE+21 02466000 WQETSSS EQU WQETS+6 02467000 WQEPER2 EQU WQETS+5 02468000 WQETSMM EQU WQETS+3 02469000 WQEPER1 EQU WQETS+2 02470000 WQETSHH EQU WQETS 02471000 WQEPAD EQU WQE+12 02472000 WQERR EQU WQE+8 02473000 WQENBR EQU WQE+4 02474000 @NM00038 EQU FRRSFLGS+1 02475000 @NM00037 EQU FRRSFLG1 02476000 FRRSNEST EQU FRRSFLG1 02477000 FRRSRCUR EQU FRRSFLG1 02478000 FRRSENTS EQU FRRS+84 02479000 FRRSRTMW EQU FRRS+16 02480000 ORERSV11 EQU OREF+26 02481000 OREM EQU OREF+24 02482000 ORETJID2 EQU OREECB 02483000 ORETCBA EQU ORETCB+1 02484000 ORETJID1 EQU ORETCB 02485000 ORERSV10 EQU OREXC 02486000 ORERSV09 EQU OREXC 02487000 ORERSV08 EQU OREXC 02488000 OREBUFE EQU OREXC 02489000 OREBUFD EQU OREXC 02490000 OREBUFB EQU OREXC 02491000 OREBUFA EQU OREXC 02492000 ORERSV06 EQU OREXA 02493000 ORERSV05 EQU OREXA 02494000 ORERSV04 EQU OREXA 02495000 ORERSV03 EQU OREXA 02496000 ORESUSP EQU OREXA 02497000 ORESWAP EQU OREXA 02498000 ORERSV01 EQU OREXA 02499000 CVTLEVL EQU CVTRELNO+2 02500000 CVTNUMB EQU CVTRELNO 02501000 CVTMDL EQU CVTFIX+250 02502000 @NM00012 EQU CVTFIX+248 02503000 @NM00011 EQU CVTFIX 02504000 CVTRV482 EQU CVTXTNT2+128 02505000 CVTRV481 EQU CVTXTNT2+124 02506000 CVTRV480 EQU CVTXTNT2+120 02507000 CVTRV479 EQU CVTXTNT2+118 02508000 CVTRV478 EQU CVTXTNT2+117 02509000 CVTRV477 EQU CVTXTNT2+116 02510000 CVTRV476 EQU CVTXTNT2+115 02511000 CVTRV475 EQU CVTXTNT2+114 02512000 CVTRV474 EQU CVTRV466 02513000 CVTRV473 EQU CVTRV466 02514000 CVTRV472 EQU CVTRV466 02515000 CVTRV471 EQU CVTRV466 02516000 CVTRV470 EQU CVTRV466 02517000 CVTRV469 EQU CVTRV466 02518000 CVTRV468 EQU CVTRV466 02519000 CVTRV467 EQU CVTRV466 02520000 CVTRV465 EQU CVTRV457 02521000 CVTRV464 EQU CVTRV457 02522000 CVTRV463 EQU CVTRV457 02523000 CVTRV462 EQU CVTRV457 02524000 CVTRV461 EQU CVTRV457 02525000 CVTRV460 EQU CVTRV457 02526000 CVTRV459 EQU CVTRV457 02527000 CVTRV458 EQU CVTRV457 02528000 CVTRV456 EQU CVTXTNT2+108 02529000 CVTRV455 EQU CVTXTNT2+104 02530000 CVTRV454 EQU CVTXTNT2+100 02531000 CVTRV453 EQU CVTXTNT2+96 02532000 CVTRV452 EQU CVTXTNT2+94 02533000 CVTRV451 EQU CVTXTNT2+92 02534000 CVTRV450 EQU CVTXTNT2+90 02535000 CVTRV449 EQU CVTXTNT2+88 02536000 CVTRV448 EQU CVTXTNT2+87 02537000 CVTRV447 EQU CVTXTNT2+86 02538000 CVTRV446 EQU CVTRV438 02539000 CVTRV445 EQU CVTRV438 02540000 CVTRV444 EQU CVTRV438 02541000 CVTRV443 EQU CVTRV438 02542000 CVTRV442 EQU CVTRV438 02543000 CVTRV441 EQU CVTRV438 02544000 CVTRV440 EQU CVTRV438 02545000 CVTRV439 EQU CVTRV438 02546000 CVTRV437 EQU CVTRV429 02547000 CVTRV436 EQU CVTRV429 02548000 CVTRV435 EQU CVTRV429 02549000 CVTRV434 EQU CVTRV429 02550000 CVTRV433 EQU CVTRV429 02551000 CVTRV432 EQU CVTRV429 02552000 CVTRV431 EQU CVTRV429 02553000 CVTRV430 EQU CVTRV429 02554000 CVTRV428 EQU CVTXTNT2+80 02555000 CVTRV427 EQU CVTXTNT2+76 02556000 CVTRV426 EQU CVTXTNT2+72 02557000 CVTRV425 EQU CVTXTNT2+68 02558000 CVTATACT EQU CVTATCVT 02559000 CVTRV423 EQU CVTXTNT2+62 02560000 CVTRV422 EQU CVTXTNT2+60 02561000 CVTRV421 EQU CVTXTNT2+58 02562000 CVTRV420 EQU CVTXTNT2+56 02563000 CVTRV419 EQU CVTXTNT2+55 02564000 CVTRV418 EQU CVTXTNT2+54 02565000 CVTRV417 EQU CVTRV409 02566000 CVTRV416 EQU CVTRV409 02567000 CVTRV415 EQU CVTRV409 02568000 CVTRV414 EQU CVTRV409 02569000 CVTRV413 EQU CVTRV409 02570000 CVTRV412 EQU CVTRV409 02571000 CVTRV411 EQU CVTRV409 02572000 CVTRV410 EQU CVTRV409 02573000 CVTRV408 EQU CVTRV400 02574000 CVTRV407 EQU CVTRV400 02575000 CVTRV406 EQU CVTRV400 02576000 CVTRV405 EQU CVTRV400 02577000 CVTRV404 EQU CVTRV400 02578000 CVTRV403 EQU CVTRV400 02579000 CVTRV402 EQU CVTRV400 02580000 CVTRV401 EQU CVTRV400 02581000 CVTICB EQU CVTXTNT2+48 02582000 CVTSKTA EQU CVTXTNT2+44 02583000 CVTCCVT EQU CVTXTNT2+40 02584000 CVTRSV98 EQU CVTXTNT2+36 02585000 CVTRSV97 EQU CVTXTNT2+34 02586000 CVTRSV96 EQU CVTXTNT2+32 02587000 CVTOLTEP EQU CVTXTNT2+28 02588000 CVTQIDA EQU CVTQID+1 02589000 CVTRSV95 EQU CVTQID 02590000 CVTRSV94 EQU CVTXTNT2+20 02591000 CVTRSV93 EQU CVTXTNT2+16 02592000 CVTRSV92 EQU CVTXTNT2+12 02593000 CVTDEBVR EQU CVTXTNT2+8 02594000 CVTRSV91 EQU CVTXTNT2+6 02595000 CVTRSV9H EQU CVTFLGBT 02596000 CVTRSV9G EQU CVTFLGBT 02597000 CVTRSV9F EQU CVTFLGBT 02598000 CVTRSV9E EQU CVTFLGBT 02599000 CVTRSV9D EQU CVTFLGBT 02600000 CVTRSV9C EQU CVTFLGBT 02601000 CVTVME EQU CVTFLGBT 02602000 CVTNPE EQU CVTFLGBT 02603000 CVTNUCLS EQU CVTXTNT2+4 02604000 CVTDSSVA EQU CVTDSSV+1 02605000 CVTRSV89 EQU CVTDSSV 02606000 CVTRSV88 EQU CVTXTNT1+8 02607000 CVTRSV87 EQU CVTXTNT1+4 02608000 CVTFACHN EQU CVTXTNT1 02609000 CVTRV488 EQU CVTMAP+412 02610000 CVTRV487 EQU CVTMAP+408 02611000 CVTRV486 EQU CVTMAP+404 02612000 CVTRV485 EQU CVTMAP+400 02613000 CVTACTAP EQU CVTMAP+396 02614000 CVTAUTH EQU CVTMAP+392 02615000 CVTATMCA EQU CVTATMCT+1 02616000 CVTATMST EQU CVTATMCT 02617000 CVTRSV61 EQU CVTMAP+384 02618000 CVTVOLT1 EQU CVTVOLM1+1 02619000 CVTVOLI1 EQU CVTVOLF1 02620000 CVTSTOA EQU CVTMAP+376 02621000 CVTRSV58 EQU CVTMAP+374 02622000 CVTRSV57 EQU CVTMAP+372 02623000 CVTDDCE EQU CVTMAP+368 02624000 CVTPNWFR EQU CVTMAP+364 02625000 CVTSMF EQU CVTMAP+360 02626000 CVTSULK EQU CVTMAP+358 02627000 CVTSLKO EQU CVTSYSK 02628000 CVTSLKP EQU CVTSYSK 02629000 CVTSLKQ EQU CVTSYSK 02630000 CVTSLKR EQU CVTSYSK 02631000 CVTRSV56 EQU CVTSYSK 02632000 CVTRSV55 EQU CVTSYSK 02633000 CVTRSV54 EQU CVTSYSK 02634000 CVTRSV53 EQU CVTSYSK 02635000 CVTRSV52 EQU CVTA1F1 02636000 CVTRSV51 EQU CVTA1F1 02637000 CVTRSV50 EQU CVTA1F1 02638000 CVTRSV49 EQU CVTA1F1 02639000 CVTRSV48 EQU CVTA1F1 02640000 CVTRSV47 EQU CVTA1F1 02641000 CVTSRSW EQU CVTA1F1 02642000 CVTPFSW EQU CVTA1F1 02643000 CVTPCVT EQU CVTMAP+352 02644000 CVTRSV46 EQU CVTMAP+344 02645000 CVTRSV45 EQU CVTMAP+340 02646000 CVTRSV44 EQU CVTMAP+338 02647000 CVTRSV43 EQU CVTMAP+336 02648000 CVTHJESA EQU CVTHJES+1 02649000 CVTRSV42 EQU CVTHJES 02650000 CVTEXT2A EQU CVTEXT2+1 02651000 CVTRSV41 EQU CVTEXT2 02652000 CVTAPFA EQU CVTAPF+1 02653000 CVTRSV40 EQU CVTAPF 02654000 CVTRV518 EQU CVTINTLA 02655000 CVTRV517 EQU CVTERPV 02656000 CVTEORM EQU CVTMAP+312 02657000 CVTMCHPR EQU CVTMAP+308 02658000 CVTTZ EQU CVTMAP+304 02659000 CVTJEPS EQU CVTMAP+300 02660000 CVTJESCT EQU CVTMAP+296 02661000 CVTMODE EQU CVTMAP+292 02662000 CVTPTRV EQU CVTMAP+288 02663000 CVTREAL EQU CVTMAP+284 02664000 CVTRSV39 EQU CVTMAP+280 02665000 CVTRSV38 EQU CVTMAP+276 02666000 CVTDMSRA EQU CVTDMSR+1 02667000 CVTRV634 EQU CVTDMSRF 02668000 CVTRV633 EQU CVTDMSRF 02669000 CVTRV632 EQU CVTDMSRF 02670000 CVTRV631 EQU CVTDMSRF 02671000 CVTRV630 EQU CVTDMSRF 02672000 CVTRV629 EQU CVTDMSRF 02673000 CVTUDUMP EQU CVTDMSRF 02674000 CVTSDUMP EQU CVTDMSRF 02675000 CVTQMSGA EQU CVTQMSG+1 02676000 CVTRSV36 EQU CVTQMSG 02677000 CVTAMFF EQU CVTMAP+264 02678000 CVTPURGA EQU CVTPURG+1 02679000 CVTRSV35 EQU CVTPURG 02680000 CVTCBSP EQU CVTMAP+256 02681000 CVTATERA EQU CVTATER+1 02682000 CVTSYST EQU CVTATER 02683000 CVTVOLT2 EQU CVTTAT 02684000 CVTVOLI2 EQU CVTVOLF2 02685000 CVTAQAVB EQU CVTAQAVT+1 02686000 CVTRSV34 EQU CVTTCMFG 02687000 CVTRSV33 EQU CVTTCMFG 02688000 CVTRSV32 EQU CVTTCMFG 02689000 CVTRSV31 EQU CVTTCMFG 02690000 CVTRSV30 EQU CVTTCMFG 02691000 CVTRSV29 EQU CVTTCMFG 02692000 CVTRSV28 EQU CVTTCMFG 02693000 CVTTCRDY EQU CVTTCMFG 02694000 CVTGTFA EQU CVTGTF+1 02695000 CVTRSV27 EQU CVTGTFST 02696000 CVTRNIO EQU CVTGTFST 02697000 CVTUSR EQU CVTGTFST 02698000 CVTRV318 EQU CVTFORM 02699000 CVTRV317 EQU CVTTMODE 02700000 CVTRV316 EQU CVTSTATE 02701000 CVTRV315 EQU CVTGTFS 02702000 CVTGTFAV EQU CVTGTFS 02703000 CVT0SCR1 EQU CVTMAP+232 02704000 CVTRV515 EQU CVTMAP+228 02705000 CVTRMS EQU CVTMAP+224 02706000 CVTPATCH EQU CVTMAP+220 02707000 CVTTSCE EQU CVTMAP+216 02708000 CVTLNKSC EQU CVTMAP+214 02709000 CVTQABST EQU CVTMAP+212 02710000 CVTMDLDS EQU CVTMAP+208 02711000 CVTUSER EQU CVTMAP+204 02712000 CVTABEND EQU CVTMAP+200 02713000 CVTSMCA EQU CVTMAP+196 02714000 CVTRSV18 EQU CVTMAP+192 02715000 CVTQLPAQ EQU CVTMAP+188 02716000 CVTQCDSR EQU CVTMAP+184 02717000 CVTRSV17 EQU CVTOPTB 02718000 CVTRSV16 EQU CVTOPTB 02719000 CVTFP EQU CVTOPTB 02720000 CVTAPTHR EQU CVTOPTB 02721000 CVTNLOG EQU CVTOPTB 02722000 CVTTOD EQU CVTOPTB 02723000 CVTCTIMS EQU CVTOPTB 02724000 CVTPROT EQU CVTOPTB 02725000 CVTXPFP EQU CVTOPTA 02726000 CVTASCII EQU CVTOPTA 02727000 CVTRSV13 EQU CVTOPTA 02728000 CVTRSV12 EQU CVTOPTA 02729000 CVTNIP EQU CVTOPTA 02730000 CVTDDR EQU CVTOPTA 02731000 CVTAPR EQU CVTOPTA 02732000 CVTCCH EQU CVTOPTA 02733000 CVTSNCTR EQU CVTMAP+180 02734000 CVTQMWR EQU CVTMAP+176 02735000 CVTQOCR EQU CVTMAP+172 02736000 CVT1EF00 EQU CVTMAP+168 02737000 CVTMZ00 EQU CVTMAP+164 02738000 CVTSV76Q EQU CVTSV76C 02739000 CVTRSV11 EQU CVTMAP+156 02740000 CVTMSER EQU CVTMAP+148 02741000 CVTRV516 EQU CVTIERLC 02742000 CVTILCH EQU CVTMAP+140 02743000 CVT0DS EQU CVTMAP+136 02744000 CVTFBOSV EQU CVTMAP+132 02745000 CVTNUCB EQU CVTMAP+128 02746000 CVTIXAVL EQU CVTMAP+124 02747000 CVTSV76M EQU CVTIOQET 02748000 CVTDCBA EQU CVTMAP+117 02749000 CVTMVS2 EQU CVTDCB 02750000 CVT6DAT EQU CVTDCB 02751000 CVT4MPS EQU CVTDCB 02752000 CVTRSV09 EQU CVTDCB 02753000 CVT4MS1 EQU CVTDCB 02754000 CVT2SPS EQU CVTDCB 02755000 CVT1SSS EQU CVTDCB 02756000 CVTRSV08 EQU CVTDCB 02757000 CVTSTB EQU CVTMAP+112 02758000 CVTQTD00 EQU CVTMAP+108 02759000 CVTQTE00 EQU CVTMAP+104 02760000 CVTSJQ EQU CVTMAP+96 02761000 CVTPBLDL EQU CVTMAP+92 02762000 CVTTPC EQU CVTMAP+88 02763000 CVTSVDCB EQU CVTMAP+84 02764000 CVTBRET EQU CVTMAP+82 02765000 CVTEXIT EQU CVTMAP+80 02766000 CVT0FN00 EQU CVTMAP+76 02767000 CVTDARA EQU CVTDAR+1 02768000 CVTRSV07 EQU CVTFLGS1 02769000 CVTRSV06 EQU CVTFLGS1 02770000 CVTRSV05 EQU CVTFLGS1 02771000 CVTRSV04 EQU CVTFLGS1 02772000 CVTRSV03 EQU CVTFLGS1 02773000 CVTRSV02 EQU CVTFLGS1 02774000 CVTRSV01 EQU CVTFLGS1 02775000 CVTDMPLK EQU CVTFLGS1 02776000 CVTXITP EQU CVTMAP+68 02777000 CVTZDTAB EQU CVTMAP+64 02778000 CVTMSLT EQU CVTMAP+60 02779000 CVTDATE EQU CVTMAP+56 02780000 CVTSYSAD EQU CVTMAP+48 02781000 CVTXTLER EQU CVTMAP+44 02782000 CVTILK2 EQU CVTMAP+40 02783000 CVTILK1 EQU CVTMAP+36 02784000 CVTPRLTV EQU CVTMAP+32 02785000 CVTPCNVT EQU CVTMAP+28 02786000 CVTXAPG EQU CVTMAP+20 02787000 CVTBUF EQU CVTMAP+16 02788000 CVTJOB EQU CVTMAP+12 02789000 CVTLINK EQU CVTMAP+8 02790000 CVT0EF00 EQU CVTMAP+4 02791000 CVTTCBP EQU CVTMAP 02792000 CVT EQU CVTMAP 02793000 @NM00036 EQU PSA+3668 02794000 PSASTAK EQU PSA+3072 02795000 @NM00035 EQU PSA+1048 02796000 PSAUSEND EQU PSA+1048 02797000 PSARV062 EQU PSA+1044 02798000 PSACDAL EQU PSA+1040 02799000 PSAWTCOD EQU PSA+1036 02800000 PSAATCVT EQU PSA+1032 02801000 PSAPCPSW EQU PSA+1024 02802000 PSAPIR2 EQU PSA+1020 02803000 PSARV059 EQU PSA+1018 02804000 PSASVC13 EQU PSA+1016 02805000 PSASFACC EQU PSA+1008 02806000 PSASTOP EQU PSA+992 02807000 PSASTART EQU PSA+976 02808000 PSARSPSW EQU PSA+968 02809000 PSASRPSW EQU PSA+960 02810000 PSARV045 EQU PSA+892 02811000 PSARV044 EQU PSA+888 02812000 PSARV043 EQU PSA+884 02813000 PSARV042 EQU PSA+880 02814000 PSARV041 EQU PSA+876 02815000 PSARV040 EQU PSA+872 02816000 PSARV025 EQU PSA+868 02817000 PSADSSED EQU PSA+868 02818000 PSADSSPR EQU PSA+864 02819000 PSADSSFW EQU PSA+860 02820000 PSADSS14 EQU PSA+856 02821000 PSADSSPP EQU PSA+848 02822000 PSADSSRP EQU PSA+840 02823000 PSADSS05 EQU PSADSSF4 02824000 PSADSS10 EQU PSADSSF4 02825000 PSADSSVE EQU PSADSSF4 02826000 PSADSSDE EQU PSADSSF4 02827000 PSADSSC0 EQU PSADSSF4 02828000 PSADSSIE EQU PSADSSF4 02829000 PSADSS12 EQU PSADSSF4 02830000 PSADSSRC EQU PSADSSF4 02831000 PSARV057 EQU PSADSSF3 02832000 PSARV056 EQU PSADSSF3 02833000 PSARV055 EQU PSADSSF3 02834000 PSADSSMC EQU PSADSSF3 02835000 PSADSSRW EQU PSADSSF3 02836000 PSADSSNM EQU PSADSSF3 02837000 PSADSSES EQU PSADSSF3 02838000 PSADSSGP EQU PSADSSF3 02839000 PSADSSF2 EQU PSADSSFL+1 02840000 PSADSSPI EQU PSADSSF1 02841000 PSADSSOI EQU PSADSSF1 02842000 PSADSSSP EQU PSADSSF1 02843000 PSADSSTP EQU PSADSSF1 02844000 PSADSSDW EQU PSADSSF1 02845000 PSADSSDD EQU PSADSSF1 02846000 PSADSSDM EQU PSADSSF1 02847000 PSADSSMV EQU PSADSSF1 02848000 PSADSSTS EQU PSA+816 02849000 PSADSSWK EQU PSA+812 02850000 PSADSSR3 EQU PSA+808 02851000 PSADSSR2 EQU PSA+804 02852000 PSADSSRS EQU PSA+800 02853000 PSASTOR EQU PSA+796 02854000 PSACPUSA EQU PSA+794 02855000 PSAVSTAP EQU PSA+792 02856000 PSAWKVAP EQU PSA+788 02857000 PSAWKRAP EQU PSA+784 02858000 PSAMCHIC EQU PSA+783 02859000 PSARV061 EQU PSA+782 02860000 PSASYMSK EQU PSA+781 02861000 PSAMCHFL EQU PSA+780 02862000 PSACR0 EQU PSA+776 02863000 PSAPSWSV EQU PSA+768 02864000 PSACLHS EQU PSAHLHI 02865000 PSALKR15 EQU PSALKSA+60 02866000 PSALKR14 EQU PSALKSA+56 02867000 PSALKR13 EQU PSALKSA+52 02868000 PSALKR12 EQU PSALKSA+48 02869000 PSALKR11 EQU PSALKSA+44 02870000 PSALKR10 EQU PSALKSA+40 02871000 PSALKR9 EQU PSALKSA+36 02872000 PSALKR8 EQU PSALKSA+32 02873000 PSALKR7 EQU PSALKSA+28 02874000 PSALKR6 EQU PSALKSA+24 02875000 PSALKR5 EQU PSALKSA+20 02876000 PSALKR4 EQU PSALKSA+16 02877000 PSALKR3 EQU PSALKSA+12 02878000 PSALKR2 EQU PSALKSA+8 02879000 PSALKR1 EQU PSALKSA+4 02880000 PSALKR0 EQU PSALKSA 02881000 PSARV023 EQU PSACLHT+52 02882000 PSALOCAL EQU PSACLHT+48 02883000 PSACMSL EQU PSACLHT+44 02884000 PSAOPTL EQU PSACLHT+40 02885000 PSATPACL EQU PSACLHT+36 02886000 PSATPDNL EQU PSACLHT+32 02887000 PSATPNCL EQU PSACLHT+28 02888000 PSAIOSLL EQU PSACLHT+24 02889000 PSAIOSUL EQU PSACLHT+20 02890000 PSAIOSCL EQU PSACLHT+16 02891000 PSAIOSSL EQU PSACLHT+12 02892000 PSASALCL EQU PSACLHT+8 02893000 PSAASML EQU PSACLHT+4 02894000 PSADISPL EQU PSACLHT 02895000 PSASRSA EQU PSA+636 02896000 PSARV050 EQU PSA+634 02897000 PSADSSGO EQU PSA+633 02898000 PSARECUR EQU PSA+632 02899000 PSAHLHIS EQU PSA+628 02900000 PSAIPCSA EQU PSA+624 02901000 @NM00034 EQU PSA+621 02902000 PSAIPCDM EQU PSA+620 02903000 PSAIPCD EQU PSA+616 02904000 @NM00033 EQU PSA+613 02905000 PSAIPCRM EQU PSA+612 02906000 PSAIPCR EQU PSA+608 02907000 PSAMCHEX EQU PSA+600 02908000 PSAMPSW EQU PSA+592 02909000 PSAEXPS2 EQU PSA+584 02910000 PSAEXPS1 EQU PSA+576 02911000 PSAPIREG EQU PSA+572 02912000 PSARSREG EQU PSA+568 02913000 PSAGPREG EQU PSA+556 02914000 PSARV022 EQU PSASUP4 02915000 PSARV021 EQU PSASUP4 02916000 PSARV020 EQU PSASUP4 02917000 PSARV019 EQU PSASUP4 02918000 PSARV018 EQU PSASUP4 02919000 PSARV017 EQU PSASUP4 02920000 PSARV016 EQU PSASUP4 02921000 PSARV015 EQU PSASUP4 02922000 PSARV014 EQU PSASUP3 02923000 PSAULCMS EQU PSASUP3 02924000 PSARV012 EQU PSASUP3 02925000 PSAESTA EQU PSASUP3 02926000 PSASPR EQU PSASUP3 02927000 PSAPSREG EQU PSASUP3 02928000 PSAPI2 EQU PSASUP3 02929000 PSAIOSUP EQU PSASUP3 02930000 PSALCR EQU PSASUP2 02931000 PSARTM EQU PSASUP2 02932000 PSAACR EQU PSASUP2 02933000 PSAIPCE2 EQU PSASUP2 02934000 PSAIPCES EQU PSASUP2 02935000 PSAIPCEC EQU PSASUP2 02936000 PSAGTF EQU PSASUP2 02937000 PSAIPCRI EQU PSASUP2 02938000 PSATYPE6 EQU PSASUP1 02939000 PSATCTL EQU PSASUP1 02940000 PSADISP EQU PSASUP1 02941000 PSALOCK EQU PSASUP1 02942000 PSAPI EQU PSASUP1 02943000 PSAEXT EQU PSASUP1 02944000 PSASVC EQU PSASUP1 02945000 PSAIO EQU PSASUP1 02946000 PSAAOLD EQU PSA+548 02947000 PSAANEW EQU PSA+544 02948000 PSATOLD EQU PSA+540 02949000 PSATNEW EQU PSA+536 02950000 PSALCCAR EQU PSA+532 02951000 PSALCCAV EQU PSA+528 02952000 PSAPCCAR EQU PSA+524 02953000 PSAPCCAV EQU PSA+520 02954000 PSACPULA EQU PSA+518 02955000 PSACPUPA EQU PSA+516 02956000 PSAPSA EQU PSA+512 02957000 FLCHDEND EQU PSA+512 02958000 FLCCRSAV EQU FLCMCLA+280 02959000 FLCGRSAV EQU FLCMCLA+216 02960000 FLCFPSAV EQU FLCMCLA+184 02961000 FLCFLA EQU FLCMCLA+88 02962000 FLCRGNCD EQU FLCMCLA+84 02963000 FLCFSAA EQU FLCFSA+1 02964000 @NM00032 EQU FLCFSA 02965000 @NM00031 EQU FLCMCLA+72 02966000 FLCMCIC EQU FLCMCLA+64 02967000 @NM00030 EQU FLCMCLA+20 02968000 FLCIOAA EQU FLCIOA+1 02969000 @NM00029 EQU FLCIOA 02970000 @NM00028 EQU FLCMCLA+15 02971000 @NM00027 EQU FLCMCLA+14 02972000 @NM00026 EQU FLCMCLA+12 02973000 FLCLCL EQU FLCMCLA+8 02974000 FLCIOELA EQU FLCIOEL+1 02975000 @NM00025 EQU FLCIOEL 02976000 FLCCHNID EQU FLCMCLA 02977000 @NM00024 EQU PSA+160 02978000 FLCMTRCD EQU PSA+157 02979000 @NM00023 EQU PSA+156 02980000 FLCPERA EQU FLCPER+1 02981000 @NM00022 EQU FLCPER 02982000 @NM00021 EQU PSA+151 02983000 FLCPERCD EQU PSA+150 02984000 FLCMCNUM EQU PSA+149 02985000 @NM00020 EQU PSA+148 02986000 FLCTEAA EQU FLCTEA+1 02987000 @NM00019 EQU FLCTEA 02988000 PSAPIPC EQU PSAPICOD 02989000 PSAPIMC EQU PSAPICOD 02990000 PSAPIPER EQU PSAPICOD 02991000 PSARV049 EQU FLCPICOD 02992000 FLCPILCB EQU FLCPIILC 02993000 @NM00018 EQU FLCPIILC 02994000 @NM00017 EQU PSAEPPSW 02995000 FLCSVCN EQU PSAESPSW+2 02996000 FLCSILCB EQU FLCSVILC 02997000 @NM00016 EQU FLCSVILC 02998000 @NM00015 EQU PSAESPSW 02999000 FLCEICOD EQU PSAEEPSW+2 03000000 PSASPAD EQU PSAEEPSW 03001000 @NM00014 EQU PSA+128 03002000 FLCINPSW EQU PSA+120 03003000 FLCMNPSW EQU PSA+112 03004000 FLCPNPSW EQU PSA+104 03005000 FLCSNPSW EQU PSA+96 03006000 FLCENPSW EQU PSA+88 03007000 FLCTRACE EQU PSA+84 03008000 FLCTIMER EQU PSA+80 03009000 FLCCVT2 EQU PSA+76 03010000 FLCCAW EQU PSA+72 03011000 FLCCSW EQU PSA+64 03012000 FLCIOPSW EQU PSA+56 03013000 FLCMOPSW EQU PSA+48 03014000 FLCPOPSW EQU PSA+40 03015000 FLCSOPSW EQU PSA+32 03016000 FLCEOPSW EQU PSA+24 03017000 @NM00013 EQU FLCICCW2+4 03018000 FLCCVT EQU FLCICCW2 03019000 FLCICCW1 EQU FLCROPSW 03020000 FLCIPPSW EQU FLCRNPSW 03021000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03022000 @RC00109 EQU @RC00107 03023000 @PB00003 EQU @PB00004 03024000 @RC00335 EQU @EL00004 03025000 @RC00111 EQU @RC00109 03026000 @PB00002 EQU @PB00003 03027000 @ENDDATA EQU * 03028000 END IEAVVRP2,(C'PLS1921',0701,78060) 03029000