WS06 TITLE 'AHLREADR, DATA INTERFACE TO THE TRACE WRITER *00001000 ' 00002000 * 0028 00003000 * /*****************************************************************/ 00004000 * /* */ 00005000 * /* STRUCTURE DECLARES */ 00006000 * /* */ 00007000 * /*****************************************************************/ 00008000 * 0028 00009000 * ; 0028 00010000 * 0028 00011000 */* */ 00012000 */* FRR PARM SAVE AREA - ENTRY POINTS AHLREAD1 AND AHLRDFR ONLY */ 00013000 */* */ 00014000 * 0029 00015000 * DECLARE 0029 00016000 * 1 FRRPARM BASED(R9PARM), /* FRR PARM SAVE AREA */ 00017000 * 3 ECBSAVE PTR(31), /* SAVE AREA FOR LOCAL ECB TO BE 00018000 * POSTED */ 00019000 * 3 SAVESRB PTR(31), /* SRB@ FOR AHLREADR. IF 0 THE 0029 00020000 * AREA HAS BEEN FREED OR SHOULD 00021000 * NOT BE FREED ( THE PLIST HAS 00022000 * BEEN QUEUED IN THE GTFPCT) */ 00023000 * 3 MCCESAVE PTR(31), /* MCCE @ */ 00024000 * 3 GMANSAVE PTR(31), /* SAVE AREA FOR @ OF 800 BYTE 0029 00025000 * GETMAINED AREA. IF 0 THE AREA 00026000 * HAS BEEN FREED */ 00027000 * 3 FRRTRAIL PTR(32), /* TRAIL USED BY FRR ROUTINE 0029 00028000 * (AHLRDFR) TO DETERMINE WHAT 0029 00029000 * SHOULD BE CLEANED UP. THE 0029 00030000 * TRAIL BITS ARE SET BY THE MAIN 00031000 * ENTRY POINT (AHLREAD1). SEE 0029 00032000 * ALSO SAVESRB AND GMANSAVE FOR 00033000 * TRAIL INFORMATION USED BY THE 00034000 * FRR ROUTINE */ 00035000 * 5 MCENQD BIT(1), /* THE MC CONTROL BLOCKS ARE 0029 00036000 * ENQ'D ON */ 00037000 * 5 LOCHELD BIT(1), /* THE LOCAL LOCK IS HELD */ 00038000 * 5 SLOCHELD BIT(1), /* THE SALLOC LOCK IS HELD */ 00039000 * 5 POSTDONE BIT(1), /* LOCAL ECB HAS BEEN POSTED OR 00040000 * DOES NOT NEED TO BE POSTED */ 00041000 * 3 RTNSAVE PTR(31); /* R14 SAVE AREA 0029 00042000 * */ 00043000 * 0030 00044000 */* */ 00045000 */* INPUT PARAMETER LIST - ENTRY POINTS AHLREAD1, AHLREAD2, AHLRDCU2, 00046000 * AHLRDCU3 */ 00047000 */* */ 00048000 * 0030 00049000 * DECLARE 0030 00050000 * 1 AHLRDPL BASED(PLISTREG), /* INPUT PARAMETER LIST */ 00051000 * 3 AHLCHAIN PTR(31), /* THIS IS THE AHLRDPLQ QUEUE 0030 00052000 * CHAIN FIELD AND WILL POINT TO 00053000 * THE NEXT AHLRDPL OR BE 0 - 0030 00054000 * AHLREAD1 ONLY */ 00055000 * 3 AHLRDID CHAR(8), /* THIS ID IS MATCHED WITH THE 0030 00056000 * MCQENAME FIELD TO DETERMINE 0030 00057000 * WHICH APPLICATION THE DATA IS 00058000 * TO COME FROM - AHLREAD1 ONLY */ 00059000 * 3 * PTR(16), 0030 00060000 * 3 AHLRDDID CHAR(6) BDY(WORD,3),/* DUMP ID */ 00061000 * 4 AHLRDDASI PTR(16), /* ASID OF ADDR SPACE BEING 0030 00062000 * DUMPED */ 00063000 * 4 AHLRDTCB PTR(31), /* TCB ADDR FOR DUMP OR 0 */ 00064000 * 3 AHLRDECB PTR(31), /* ECB@ TO BE POSTED IN ERROR 0030 00065000 * RECOVERY OR IF GTF NOT FOUND 00066000 * (AHLREAD1) OR WHEN THE GTF 0030 00067000 * WRITER COMPLETES THE DUMP 0030 00068000 * REQUEST (AHLREAD2) */ 00069000 * 3 AHLRDATA PTR(31), /* ADDR OF DATA AREA */ 00070000 * 3 AHLRDASC PTR(31), /* ASCB ADDR WHERE ECB IS LOCATED*/ 00071000 * 3 AHLPCOD FIXED(31), /* COMPLETION CODE TO BE USED IN 00072000 * POSTING THE LOCAL ECB - 0030 00073000 * AHLREAD2 AND AHLRDCU3 ONLY */ 00074000 * 3 AHLRDSRB PTR(31); /* ADDR OF STORAGE OBTAINED FOR 00075000 * AHLREADR'S SRBS. THE SAME SRB 00076000 * IS USED BOTH FOR AHLREAD1 AND 00077000 * AHLREAD2. THE SRB IS 0030 00078000 * IMMEDIATELY FOLLOWED BY THIS 00079000 * PARMLIST WHICH MUST BE FREED 00080000 * WHEN THE SRB IS FREED */ 00081000 */* STORAGE LIST FOR SDUMP */ 00082000 * 0031 00083000 * DECLARE 0031 00084000 * 1 READRMOD STATIC LOCAL, 0031 00085000 * 3 * PTR(31) INIT(ADDR(AHLREADR)),/* ADDR OF START OF MODULE */ 00086000 * 3 * PTR(32), 0031 00087000 * 5 * BIT(8) INIT('80'X), /* END OF LIST INDICATOR */ 00088000 * 5 * PTR(24) INIT(ADDR(AHLREADN));/* ADDR OF END OF MODULE 00089000 * */ 00090000 * 0032 00091000 * /*****************************************************************/ 00092000 * /* */ 00093000 * /* CONSTANT DECLARES */ 00094000 * /* */ 00095000 * /*****************************************************************/ 00096000 * 0032 00097000 * DECLARE 0032 00098000 * ON BIT(1) CONSTANT('1'B), /* USED TO TURN BITS ON */ 00099000 * OFF BIT(1) CONSTANT('0'B), /* USED TO TURN BITS OFF */ 00100000 * ECBSIGN BIT(32) CONSTANT('80000000'X),/* USED TO TURN ON HIGH 00101000 * ORDER BIT IN REGISTER 0032 00102000 * CONTAINING ECB@ FOR XMPOST*/ 00103000 * ERRCODE FIXED(8) CONSTANT(4), /* ERROR RETURN CODE */ 00104000 * XPOSTCD FIXED(8) CONSTANT(0); /* RETURN CODE FOR CROSS-MEMORY 00105000 * POST */ 00106000 * GEN; 0033 00107000 AHLRDSP EQU 245 SUBPOOL FOR GETMAINS AND FREEMAINS 00108000 * 0034 00109000 * /*****************************************************************/ 00110000 * /* */ 00111000 * /* MISCELLANEOUS DECLARES */ 00112000 * /* */ 00113000 * /*****************************************************************/ 00114000 * 0034 00115000 * DECLARE 0034 00116000 * READBASE PTR(31) INIT(ADDR(AHLREADR)) STATIC LOCAL;/* BASE ADDR*/ 00117000 * DECLARE 0035 00118000 * CVTPTR PTR(31) DEFINED(FLCCVT);/* BASE FOR CVT */ 00119000 * DECLARE 0036 00120000 * FRRSPTR PTR(31) BASED, /* INCLUDED TO ELIMINATE ERRORS */ 00121000 * FRREPTR PTR(31) BASED, /* DURING COMPILATION */ 00122000 * AWSAPTR PTR(31) BASED, /* DITTO */ 00123000 * ASCBPTR PTR(31) BASED; /* DITTO */ 00124000 * DECLARE 0037 00125000 * ACRADDR LABEL BASED(SDWANXT1),/* MAPS ACR RETRY ADDRESS */ 00126000 * SRBADDR LABEL BASED(RTNSAVE); /* MAPS ALL OTHER RETRY ADDRESSES*/ 00127000 * DECLARE 0038 00128000 * RECID CHAR(24) INIT('AHLREADRAHLREADRAHLRDFR ') STATIC LOCAL; 00129000 * DECLARE 0039 00130000 * CLRPARM BIT(192) BASED(R1) BDY(WORD);/* USED TO CLEAR SVCDUMP'S 00131000 * PARMLIST */ 00132000 * DECLARE 0040 00133000 * I256C CHAR(256) BASED; 0040 00134000 * DECLARE 0041 00135000 * AHLREAD2 LABEL LOCAL EXTERNAL,/* DECLARE LABEL FOR ENTRY */ 00136000 * AHLRDCU3 LABEL LOCAL EXTERNAL,/* DECLARE LABEL FOR ENTRY */ 00137000 * AHLRDXP1 LABEL LOCAL EXTERNAL,/* DECLARE LABEL FOR ENTRY */ 00138000 * AHLRDFR LABEL LOCAL EXTERNAL; /* DECLARE LABEL FOR ENTRY 0041 00139000 * */ 00140000 * RFY 0042 00141000 * MCCE BASED(R0); 0042 00142000 * RFY 0043 00143000 * MCQE BASED(MCQEPNT); 0043 00144000 * GEN REFS(AHLREAD1,AHLRDCU2) NOEXIT NOFLOWS SEQFLOW; 0044 00145000 AHLREADR CSECT 00146000 DC A(AHLREAD1) ADCON FOR MAIN ENTRY POINT 00147000 DC A(AHLRDCU2) ADCON FOR ITS RMTR ENTRY POINT 00148000 *AHLREAD1: 0045 00149000 * GEN SETS(BASEREG) REFS(R15ENTRY,READBASE) NOEXIT NOFLOWS SEQFLOW 00150000 * NODEFS; 0045 00151000 * 0045 00152000 AHLREAD1 DS 0H 0045 00153000 USING AHLREAD1,R15ENTRY SETUP TEMP BASE 00154000 L BASEREG,READBASE GET BASE ADDRESS UPON ENTRY 00155000 USING AHLREADR,BASEREG TELL ASSEMBLER ABOUT OUR BASE 00156000 DROP R15ENTRY TELL ASSEMBLER TO QUIT USING R15 00157000 * /*****************************************************************/ 00158000 * /* */ 00159000 * /* THIS ENTRY POINT PERFORMS MAIN LINE FUNCTIONS - QUEUING THE */ 00160000 * /* PLIST ONTO THE CHAIN IN THE GTFPCT AND NOTIFYING THE GTF */ 00161000 * /* WRITER VIA A CROSS-MEMORY POST TO DUMP THE GTF BUFFERS */ 00162000 * /* */ 00163000 * /*****************************************************************/ 00164000 * 0046 00165000 * DO; 0046 00166000 * 0046 00167000 * /***************************************************************/ 00168000 * /* */ 00169000 * /* HOUSEKEEPING - DEFINE THE ERROR ENVIRONMENT VIA SETFRR AND */ 00170000 * /* SAVE REG14, REQUESTOR'S ECB@ AND AHLREAD1'S SRB@ IN THE FRR */ 00171000 * /* PARM AREA. THE ECB MUST BE POSTED DURING ERROR RECOVERY */ 00172000 * /* PROCESSING OR IF GTF IS NOT RUNNING. THE SRB MUST BE */ 00173000 * /* FREEMAINED BOTH DURING NORMAL PROCESSING AND ERROR RECOVERY */ 00174000 * /* IF THE PARMLIST IS NOT QUEUED */ 00175000 * /* */ 00176000 * /***************************************************************/ 00177000 * 0047 00178000 * RFY 0047 00179000 * (R14, 0047 00180000 * FRRADDR, 0047 00181000 * R12WORK, 0047 00182000 * PLISTREG, 0047 00183000 * R1) RSTD; 0047 00184000 * PLISTREG=R1; /* SAVE PARMLIST ADDRESS */ 00185000 LR PLISTREG,R1 0048 00186000 * RFY 0049 00187000 * R1 UNRSTD; 0049 00188000 * FRRADDR=ADDR(AHLRDFR); /* GET @ OF THE RECOVERY ROUTINE */ 00189000 LA FRRADDR,AHLRDFR 0050 00190000 * GEN SETS(R9PARM,R12WORK) REFS(FRRADDR,PSACSTK,FRRSCURR,FRRSLAST, 00191000 * FRRSENTR,FRRS,PSA,PSALSFCC,FRRSELEN,FRRSFRRA,FRRSPARM) NOEXIT 00192000 * NOFLOWS SEQFLOW; 0051 00193000 SETFRR A,FRRAD=(FRRADDR),PARMAD=(R9PARM), *00194000 WRKREGS=(R9PARM,R12WORK) ADD FRR ROUTINE TO STACK 00195000 * RTNSAVE=R14; /* SAVE SCHEDULER RETURN @ */ 00196000 ST R14,RTNSAVE(,R9PARM) 0052 00197000 * RFY 0053 00198000 * (R14, 0053 00199000 * FRRADDR, 0053 00200000 * R12WORK) UNRSTD; 0053 00201000 * ECBSAVE=AHLRDECB; /* SAVE ECB @ */ 00202000 MVC ECBSAVE(4,R9PARM),AHLRDECB(PLISTREG) 0054 00203000 * SAVESRB=AHLRDSRB; /* SAVE SRB @ 0055 00204000 * */ 00205000 MVC SAVESRB(4,R9PARM),AHLRDSRB(PLISTREG) 0055 00206000 * 0056 00207000 * /***************************************************************/ 00208000 * /* */ 00209000 * /* ENQ ON THE MC CONTROL BLOCKS TO PREVENT THEIR CHANGING WHILE*/ 00210000 * /* I AM SCANNING AND USING THEM. THE @ OF THE MCCE WILL BE */ 00211000 * /* RETURNED IN R0. THE MCCE @ MUST BE SAVED FOR USE IN DEQUING */ 00212000 * /* THE CONTROL BLOCKS LATER */ 00213000 * /* */ 00214000 * /***************************************************************/ 00215000 * 0056 00216000 * DO; 0056 00217000 * 0056 00218000 * /*************************************************************/ 00219000 * /* */ 00220000 * /* THE ENQING MACRO EXPECTS REG3 TO CONTAIN THE @ OF THE */ 00221000 * /* MCAWSA. A BRANCH ENTRY GETMAIN IS REQUIRED TO FULFILL THIS*/ 00222000 * /* REQUIREMENT */ 00223000 * /* */ 00224000 * /*************************************************************/ 00225000 * 0057 00226000 * DO; 0057 00227000 * 0057 00228000 * /***********************************************************/ 00229000 * /* */ 00230000 * /* THE SALLOC LOCK MUST BE HELD BEFORE PERFORMING A BRANCH */ 00231000 * /* ENTRY GETMAIN FOR SUBPOOL AHLRDSP */ 00232000 * /* */ 00233000 * /***********************************************************/ 00234000 * 0058 00235000 * GEN REFS(PSALITA,FLC) EXIT NOFLOWS SEQFLOW; 0058 00236000 GETSAL3 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, *00237000 RELATED=(GLOBAL,AHLREADR(FREESAL3,FREESAL4)) 00238000 * SLOCHELD=ON; /* INDICATE SALLOC LOCK HELD 0059 00239000 * */ 00240000 OI SLOCHELD(R9PARM),B'00100000' 0059 00241000 * 0060 00242000 * /***********************************************************/ 00243000 * /* */ 00244000 * /* GET THE DUMMY MCAWSA */ 00245000 * /* */ 00246000 * /***********************************************************/ 00247000 * 0060 00248000 * RFY 0060 00249000 * (R0, 0060 00250000 * R1, 0060 00251000 * R15, 0060 00252000 * CODERG) RSTD; 0060 00253000 * R0=LENGTH(MCAWSA); /* LENGTH OF AREA TO BE ACQUIRED */ 00254000 LA R0,800 0061 00255000 * GEN SETS(R14,R15,R1,R3,R4) REFS(R0,CVTSPSA,WSAGGMFM,WSAG, 00256000 * CVTGLMN,CVTMAP) EXIT SEQFLOW NOFLOWS; 0062 00257000 GETMAIN RC,LV=(0),SP=AHLRDSP,BRANCH=(YES,GLOBAL) 00258000 * CODERG=R15; /* SAVE RETURN CODE */ 00259000 LR CODERG,R15 0063 00260000 * RFY 0064 00261000 * R3 RSTD; 0064 00262000 * R3=R1; /* LOAD ADDRESS OF 'MCAWSA' INTO 00263000 * R3 FOR SETEVENT SERVICE (ENQ) */ 00264000 LR R3,R1 0065 00265000 * RFY 0066 00266000 * (R1, 0066 00267000 * R15) UNRSTD; 0066 00268000 * 0066 00269000 * /***********************************************************/ 00270000 * /* */ 00271000 * /* RELEASE SALLOC LOCK */ 00272000 * /* */ 00273000 * /***********************************************************/ 00274000 * 0067 00275000 * GEN REFS(PSALITA,FLC) EXIT NOFLOWS SEQFLOW; 0067 00276000 FREESAL3 SETLOCK RELEASE,TYPE=SALLOC, *00277000 RELATED=(GLOBAL,AHLREADR(GETSAL3)) 00278000 * SLOCHELD=OFF; /* INDICATE SALLOC LOCK NOT HELD */ 00279000 NI SLOCHELD(R9PARM),B'11011111' 0068 00280000 * END; 0069 00281000 * 0069 00282000 * /*************************************************************/ 00283000 * /* */ 00284000 * /* CHECK FOR SUCCESSFUL GETMAIN */ 00285000 * /* */ 00286000 * /*************************************************************/ 00287000 * 0070 00288000 * IF CODERG^=0 THEN /* CHECK FOR SUCCESSFUL GETMAIN */ 00289000 SLR @12,@12 0070 00290000 CR CODERG,@12 0070 00291000 BNE @RT00070 0070 00292000 * GO TO CLEANUP; /* UNSUCCESSFUL - POST REQUESTOR */ 00293000 * RFY 0072 00294000 * CODERG UNRSTD; 0072 00295000 * GMANSAVE=R3; /* SAVE ADDRESS OF GETMAINED AREA 00296000 * */ 00297000 ST R3,GMANSAVE(,R9PARM) 0073 00298000 * MCENQD=ON; /* INDICATE THAT DEQ OF MC 0074 00299000 * CONTROL BLOCKS WILL BE 0074 00300000 * REQUIRED */ 00301000 * 0074 00302000 OI MCENQD(R9PARM),B'10000000' 0074 00303000 * /*************************************************************/ 00304000 * /* */ 00305000 * /* ENQ ON THE MC CONTROL BLOCKS */ 00306000 * /* */ 00307000 * /*************************************************************/ 00308000 * 0075 00309000 * DO; /* SETEVENT ACTION(ENQ) */ 00310000 * 0075 00311000 * /***********************************************************/ 00312000 * /* */ 00313000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY THE */ 00314000 * /* SETEVENT MACRO. THIS CODE WILL BE EITHER AN INITIALIZED */ 00315000 * /* PARAMETER LIST, OR IF IT IS THE RESULT OF STANDARD OR */ 00316000 * /* EXECUTE FORM IT WILL FILL in the list, GENERATE ALL */ 00317000 * /* LINKAGES AND CALL THE PROPER sERVICE, EITHER AHLSETEV OR*/ 00318000 * /* AHLSETD */ 00319000 * /* */ 00320000 * /***********************************************************/ 00321000 * 0076 00322000 * DCL 0076 00323000 * AHLPPTR REG(1) PTR(31) RSTD;/* PARAMETER LIST ADDRESS */ 00324000 * DCL 0077 00325000 * AHLSETEV ENTRY OPTIONS(EXIT,SEQFLOW) BASED(MCHSETE) VALRG(0 00326000 * ); /* ENTRY FOR ADD ACTIVAT,FREE */ 00327000 * DCL 0078 00328000 * AHLSETD ENTRY OPTIONS(EXIT,SEQFLOW) BASED(MCHSETD) VALRG(0) 00329000 * ; /* ENTRY FOR DISABLE AND CHANGE */ 00330000 * DCL 0079 00331000 * 1 SEPL BASED(AHLPPTR) BDY(WORD),/* DSECT PARAMETER LIST */ 00332000 * 2 SEFG PTR(8), /* ACTION GLAGS */ 00333000 * 2 * PTR(8), 0079 00334000 * 2 SEEN PTR(8), /* EID COUNT */ 00335000 * 2 SECN PTR(8), /* CLASS COUNT */ 00336000 * 2 SENM CHAR(8), /* APPLICATION NMAE */ 00337000 * 2 SEEL PTR(31), /* ADDRESS OF LIST OF EIDS */ 00338000 * 2 SECL PTR(31), /* ADDRESS OF LIST OF CLASSES */ 00339000 * 2 SEMC PTR(31); /* MCQE ADDRESS */ 00340000 * AHLPPTR=0; /* SET TO INDCIATE ENQ */ 00341000 LR AHLPPTR,@12 0080 00342000 * CALL AHLSETD; 0081 00343000 L @12,CVTPTR 0081 00344000 L @12,CVTGTF(,@12) 0081 00345000 L @15,MCHSETD(,@12) 0081 00346000 BALR @14,@15 0081 00347000 * END; /* LOCK UP THE MC CONTROL BLOCKS */ 00348000 * ; 0083 00349000 * MCCESAVE=R0; /* SAVE THE MCCE @ IN THE FRR 0084 00350000 * PARM AREA */ 00351000 ST R0,MCCESAVE(,R9PARM) 0084 00352000 * RFY 0085 00353000 * R3 UNRSTD; 0085 00354000 * END; 0086 00355000 * 0087 00356000 * /***************************************************************/ 00357000 * /* */ 00358000 * /* SCAN THE MCQE CHAIN LOOKING FOR THE GTF MCQE. IF FOUND */ 00359000 * /* NORMAL PROCESSING WILL CONTINUE, IF NOT CLEANUP FUNCTIONS */ 00360000 * /* MUST BE PERFORMED */ 00361000 * /* */ 00362000 * /***************************************************************/ 00363000 * 0087 00364000 * IF R0=0 THEN /* WAS THE MCCE @ RETURNED ? */ 00365000 LTR R0,R0 0087 00366000 BZ @RT00087 0087 00367000 * GO TO CLEANUP; /* IF NOT THE CHAIN CANNOT BE 0088 00368000 * SCANNED */ 00369000 * RFY 0089 00370000 * MCQEPNT RSTD; 0089 00371000 * MCQEPNT=MCCEQEA; /* GET @ OF START OF MCQE QUEUE 00372000 * FROM THE MCCE */ 00373000 LR @12,R0 0090 00374000 L MCQEPNT,MCCEQEA(,@12) 0090 00375000 * RFY 0091 00376000 * R0 UNRSTD; 0091 00377000 *MCQESCAN: 0092 00378000 * DO; 0092 00379000 MCQESCAN DS 0H 0093 00380000 * IF MCQEPNT=0 THEN /* END OF QUEUE? */ 00381000 LTR MCQEPNT,MCQEPNT 0093 00382000 BZ @RT00093 0093 00383000 * GO TO CLEANUP; /* YES - GTF IS NOT ON MCQE CHAIN*/ 00384000 */* OTHERWISE CONTINUE SCANNING QUEUE */ 00385000 * 0095 00386000 * IF MCQENAME=AHLRDID THEN /* IS IT THE GTF MCQE ? */ 00387000 CLC MCQENAME(8,MCQEPNT),AHLRDID(PLISTREG) 0095 00388000 BE @RT00095 0095 00389000 * GO TO GOODMCQE; /* YES - GET OUT OF SCAN LOOP */ 00390000 * ELSE 0097 00391000 * DO; 0097 00392000 * MCQEPNT=MCQEMCQE; /* STEP TO NEXT MCQE ON QUEUE */ 00393000 L MCQEPNT,MCQEMCQE(,MCQEPNT) 0098 00394000 * GO TO MCQESCAN; /* CONTINUE LOOKING FOR END OF 0099 00395000 * QUEUE OR GTF MCQE */ 00396000 B MCQESCAN 0099 00397000 * END; 0100 00398000 * END; 0101 00399000 *GOODMCQE: 0102 00400000 * 0102 00401000 * /***************************************************************/ 00402000 * /* */ 00403000 * /* IF THIS IS GTF'S ADDR SPACE BEING DUMPED, DO NOT ATTEMPT TO */ 00404000 * /* GET TRACE DATA FROM THE TRACE WRITER BECAUSE IT IS MARKED */ 00405000 * /* NONDISPATCHABLE. @YM03681*/ 00406000 * /* */ 00407000 * /***************************************************************/ 00408000 * 0102 00409000 * IF MCQEASCB=AHLRDASC THEN 0102 00410000 GOODMCQE CLC MCQEASCB(4,MCQEPNT),AHLRDASC(PLISTREG) 0102 00411000 BE @RT00102 0102 00412000 * GO TO CLEANUP; 0103 00413000 * 0103 00414000 * /***************************************************************/ 00415000 * /* */ 00416000 * /* ENSURE THAT THE GTFPCT POINTER IS GOOD AND ADD THE INPUT */ 00417000 * /* PLIST TO THE QUEUE IN THE PCT. THE GTF WRITER WILL LATER */ 00418000 * /* DEQUE THE PLIST. ONCE ON THE QUEUE THE PLIST MAY NOT BE */ 00419000 * /* REFERENCED AGAIN BY THIS PROGRAM. A COMPARE & SWAP IS USED */ 00420000 * /* TO OBTAIN A STABLE COPY OF THE QUEUE BEFORE ADDING THE PLIST*/ 00421000 * /* */ 00422000 * /***************************************************************/ 00423000 * 0104 00424000 * RFY 0104 00425000 * PCTPTR RSTD; 0104 00426000 * PCTPTR=MCQEAT; /* GET @ OF GTFPCT */ 00427000 L PCTPTR,MCQEAT(,MCQEPNT) 0105 00428000 * RFY 0106 00429000 * MCQEPNT UNRSTD; 0106 00430000 * IF PCTPTR=0 THEN /* IS THERE A GTFPCT ? */ 00431000 LTR PCTPTR,PCTPTR 0107 00432000 BZ @RT00107 0107 00433000 * GO TO CLEANUP; /* NO - THE PLIST CANNOT BE 0108 00434000 * QUEUED */ 00435000 * DO; 0109 00436000 * 0109 00437000 * /*************************************************************/ 00438000 * /* */ 00439000 * /* UPDATE THE SRB FOR AHLREAD1 FOR USE WITH AHLREAD2. THE GTF*/ 00440000 * /* WRITER WILL USE THIS SRB IN SCHEDULING REENTRY TO AHLREADR*/ 00441000 * /* TO POST THE REQUEST ORIGINATOR */ 00442000 * /* */ 00443000 * /*************************************************************/ 00444000 * 0110 00445000 * RFY 0110 00446000 * SRBPTR RSTD; 0110 00447000 * SRBPTR=AHLRDSRB; /* GET POINTER TO SRB */ 00448000 L SRBPTR,AHLRDSRB(,PLISTREG) 0111 00449000 * SRBEP=ADDR(AHLREAD2); /* FILL IN ADDRESS OF SRB ROUTINE*/ 00450000 LA @12,AHLREAD2 0112 00451000 ST @12,SRBEP(,SRBPTR) 0112 00452000 * SRBRMTR=ADDR(AHLRDCU3); /* AND THE ADDRESS OF ITS 0113 00453000 * RESOURCE MANAGER TERMINATION 00454000 * ROUTINE */ 00455000 LA @12,AHLRDCU3 0113 00456000 ST @12,SRBRMTR(,SRBPTR) 0113 00457000 * RFY 0114 00458000 * SRBPTR UNRSTD; 0114 00459000 * 0115 00460000 * /*************************************************************/ 00461000 * /* */ 00462000 * /* COMPLETE THE PARMLIST (AHLRDPLQ CHAINING) AND ADD IT TO */ 00463000 * /* THE QUEUE */ 00464000 * /* */ 00465000 * /*************************************************************/ 00466000 * 0115 00467000 * RFY 0115 00468000 * R12WORK RSTD; 0115 00469000 * R12WORK=AHLRDPLQ; /* GET @ OF LAST ITEM PLACED ON 00470000 * QUEUE */ 00471000 L R12WORK,AHLRDPLQ(,PCTPTR) 0116 00472000 *ADDPLIST: 0117 00473000 * AHLCHAIN=R12WORK; /* PUSH IT DOWN IN THE QUEUE 0117 00474000 * (LIFO) */ 00475000 ADDPLIST ST R12WORK,AHLCHAIN(,PLISTREG) 0117 00476000 * CS(R12WORK,PLISTREG,AHLRDPLQ);/* C&S TO PLACE THIS PLIST AT 00477000 * TOP OF QUEUE IN PCT */ 00478000 CS R12WORK,PLISTREG,AHLRDPLQ(PCTPTR) 0118 00479000 * BC(4,ADDPLIST); /* QUEUE WAS UPDATED SINCE WE 0119 00480000 * LAST LOOKED AT IT - CONTINUE 00481000 * ATTEMPT TO GET A STABLE COPY 00482000 * OF THE PLIST. R12WORK HAS NEW 00483000 * LAST ITEM PLACED ON THE QUEUE */ 00484000 BC 4,ADDPLIST 0119 00485000 * RFY 0120 00486000 * (R12WORK, 0120 00487000 * PLISTREG) UNRSTD; 0120 00488000 * 0120 00489000 */* THE COMPARE AND SWAP WAS SUCCESSFUL - THE */ 00490000 */* PLIST HAS BEEN ADDED TO THE AHLRDPLQ IN */ 00491000 */* THE GTFPCT */ 00492000 * 0121 00493000 * SAVESRB=0; /* INDICATE THAT THE SRB SHOULD 00494000 * NOT BE FREEMAINED DURING 0121 00495000 * NORMAL CLEANUP OR FRR 0121 00496000 * PROCESSING */ 00497000 SLR @12,@12 0121 00498000 ST @12,SAVESRB(,R9PARM) 0121 00499000 * POSTDONE=ON; /* INDICATE LOCAL POST NOT 0122 00500000 * REQUIRED DURING CLEANUP */ 00501000 OI POSTDONE(R9PARM),B'00010000' 0122 00502000 * END; 0123 00503000 * 0124 00504000 * /***************************************************************/ 00505000 * /* */ 00506000 * /* PERFORM A CROSS-MEMORY POST TO NOTIFY THE GTF WRITER TO DUMP*/ 00507000 * /* THE GTF BUFFERS. A BRANCH & LINK ENTRY TO THE POST ROUTINE */ 00508000 * /* IS USED SINCE AHLREADR IS AN SRB ROUTINE */ 00509000 * /* */ 00510000 * /***************************************************************/ 00511000 * 0124 00512000 * DO; 0124 00513000 * 0124 00514000 * /*************************************************************/ 00515000 * /* */ 00516000 * /* THE SALLOC LOCK MUST BE OBTAINED BEFORE PERFORMING A */ 00517000 * /* CROSS-MEMORY POST */ 00518000 * /* */ 00519000 * /*************************************************************/ 00520000 * 0125 00521000 * GEN REFS(PSALITA,FLC) EXIT NOFLOWS SEQFLOW; 0125 00522000 GETSAL1 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, *00523000 RELATED=(GLOBAL,AHLREADR(FREESAL1,FREESAL4)) 00524000 * SLOCHELD=ON; /* INDICATE THAT THE SALLOC LOCK 00525000 * IS HELD */ 00526000 * 0126 00527000 OI SLOCHELD(R9PARM),B'00100000' 0126 00528000 * /*************************************************************/ 00529000 * /* */ 00530000 * /* SET UP FOR BRANCH & LINK ENTRY TO CROSS MEMORY POST */ 00531000 * /* */ 00532000 * /*************************************************************/ 00533000 * 0127 00534000 * RFY 0127 00535000 * (POSTRTN, 0127 00536000 * POSTECB, 0127 00537000 * POSTERR, 0127 00538000 * POSTASCB, 0127 00539000 * POSTECB, 0127 00540000 * R15, 0127 00541000 * R14) RSTD; 0127 00542000 * POSTRTN=XPOSTCD; /* COMPLETION CODE */ 00543000 SLR POSTRTN,POSTRTN 0128 00544000 * POSTECB=ADDR(WRTRCOM); /* GTF WRITER'S ECB @ */ 00545000 LA POSTECB,WRTRCOM(,PCTPTR) 0129 00546000 * POSTECB=POSTECB|ECBSIGN; /* TURN ON SIGN BIT - RQ'D BY 0130 00547000 * XMPOST */ 00548000 O POSTECB,@CF01791 0130 00549000 * POSTERR=ADDR(AHLRDXP1); /* ADDR TO WHICH CONTROL IS TO BE 00550000 * GIVEN IF XMPOST FAILS */ 00551000 LA POSTERR,AHLRDXP1 0131 00552000 * POSTASCB=GTFASCB; /* GTF ASCB @ */ 00553000 L POSTASCB,GTFASCB(,PCTPTR) 0132 00554000 * R15=CVT0PT01; /* @ OF CROSS-MEMORY POST ROUTINE*/ 00555000 L @04,CVTPTR 0133 00556000 L R15,CVT0PT01(,@04) 0133 00557000 * RFY 0134 00558000 * PCTPTR UNRSTD; 0134 00559000 * 0135 00560000 * /*************************************************************/ 00561000 * /* */ 00562000 * /* PERFORM CROSS-MEMORY POST */ 00563000 * /* */ 00564000 * /*************************************************************/ 00565000 * 0135 00566000 * GEN SETS(R14) REFS(R15) EXIT SEQFLOW NOFLOWS(BALR R14,R15); 00567000 BALR R14,R15 00568000 * RFY 0136 00569000 * (POSTRTN, 0136 00570000 * POSTECB, 0136 00571000 * POSTERR, 0136 00572000 * POSTASCB, 0136 00573000 * POSTECB, 0136 00574000 * R15) UNRSTD; 0136 00575000 *UNLOCK: 0137 00576000 * 0137 00577000 * /*************************************************************/ 00578000 * /* */ 00579000 * /* BASE REGISTER MUST BE RESTORED AND SALLOC LOCK RELEASED */ 00580000 * /* */ 00581000 * /*************************************************************/ 00582000 * 0137 00583000 * GEN SETS(BASEREG) REFS(R14) NOEXIT NOFLOWS SEQFLOW; 0137 00584000 UNLOCK DS 0H 0137 00585000 DROP BASEREG 00586000 USING UNLOCK,R14 SETUP TEMP BASE 00587000 L BASEREG,READBASE GET BASE ADDRESS AT MAIN ENTRY 00588000 USING AHLREADR,BASEREG TELL ASSEMBLER ABOUT OUR BASE 00589000 DROP R14 TELL ASSEMBLER TO QUIT USING R14 00590000 * RFY 0138 00591000 * R14 UNRSTD; 0138 00592000 * GEN REFS(PSALITA,FLC) EXIT NOFLOWS SEQFLOW; 0139 00593000 FREESAL1 SETLOCK RELEASE,TYPE=SALLOC, *00594000 RELATED=(GLOBAL,AHLREADR(GETSAL1)) 00595000 * SLOCHELD=OFF; /* INDICATE THAT THE SALLOC LOCK 00596000 * HAS BEEN RELEASED */ 00597000 NI SLOCHELD(R9PARM),B'11011111' 0140 00598000 * END; 0141 00599000 * RFY 0142 00600000 * SAVER14 RSTD; 0142 00601000 * SAVER14=RTNSAVE; /* RELOAD R14 RETURN ADDRESS TO 00602000 * MAKE FOLLOWING CODE USEABLE BY 00603000 * AHLREAD1 AND AHLRDFR 0143 00604000 * */ 00605000 L SAVER14,RTNSAVE(,R9PARM) 0143 00606000 * 0144 00607000 * /***************************************************************/ 00608000 * /* */ 00609000 * /* RELEASE THE MC CONTROL BLOCKS. THE MCCE @ MUST BE IN REG0 */ 00610000 * /* AND THE 'MCAWSA' @ IN REG3 */ 00611000 * /* */ 00612000 * /***************************************************************/ 00613000 * 0144 00614000 *MCDEQ: 0144 00615000 * RFY 0144 00616000 * (R0, 0144 00617000 * R3) RSTD; 0144 00618000 MCDEQ DS 0H 0145 00619000 * R3=GMANSAVE; /* RESTORE 'MCAWSA' BASE */ 00620000 L R3,GMANSAVE(,R9PARM) 0145 00621000 * IF MCENQD=OFF THEN /* IS A DEQ REQUIRED ? */ 00622000 TM MCENQD(R9PARM),B'10000000' 0146 00623000 BZ @RT00146 0146 00624000 * GO TO FREEMCA; /* NO - BYPASS DEQ OF MC CONTROL 00625000 * BLOCKS */ 00626000 * R0=MCCESAVE; /* RESTORE MCCE BASE */ 00627000 L R0,MCCESAVE(,R9PARM) 0148 00628000 * DO; /* SETEVENT ACTION(DEQ) */ 00629000 * 0149 00630000 * /*************************************************************/ 00631000 * /* */ 00632000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY THE SETEVENT*/ 00633000 * /* MACRO. THIS CODE WILL BE EITHER AN INITIALIZED PARAMETER */ 00634000 * /* LIST, OR IF IT IS THE RESULT OF STANDARD OR EXECUTE FORM */ 00635000 * /* IT WILL FILL in the list, GENERATE ALL LINKAGES AND CALL */ 00636000 * /* THE PROPER sERVICE, EITHER AHLSETEV OR AHLSETD */ 00637000 * /* */ 00638000 * /*************************************************************/ 00639000 * 0150 00640000 * AHLPPTR=0; /* SET TO INDCIATE ENQ */ 00641000 SLR AHLPPTR,AHLPPTR 0150 00642000 * AHLPPTR=AHLPPTR-1; /* MODIFY TO INDICATE DEQ */ 00643000 BCTR AHLPPTR,0 0151 00644000 * CALL AHLSETD; 0152 00645000 L @12,CVTPTR 0152 00646000 L @12,CVTGTF(,@12) 0152 00647000 L @15,MCHSETD(,@12) 0152 00648000 BALR @14,@15 0152 00649000 * END; /* FREE UP THE CONTROL BLOCKS */ 00650000 * MCENQD=OFF; /* INDICATE THAT THE MC CONTROL 00651000 * BLOCKS HAVE BEEN DEQ'D 0154 00652000 * */ 00653000 NI MCENQD(R9PARM),B'01111111' 0154 00654000 *FREEMCA: 0155 00655000 * 0155 00656000 * /***************************************************************/ 00657000 * /* */ 00658000 * /* CHECK FOR AREAS TO BE FREEMAINED */ 00659000 * /* */ 00660000 * /***************************************************************/ 00661000 * 0155 00662000 * IF R3^=0|SAVESRB^=0 THEN /* ARE THERE ANY FREEMAINS TO BE 00663000 * PERFORMED */ 00664000 FREEMCA SLR @12,@12 0155 00665000 CR R3,@12 0155 00666000 BNE @RT00155 0155 00667000 C @12,SAVESRB(,R9PARM) 0155 00668000 BE @RF00155 0155 00669000 @RT00155 DS 0H 0156 00670000 * DO; /* YES */ 00671000 * 0156 00672000 * /***********************************************************/ 00673000 * /* */ 00674000 * /* THE SALLOC LOCK MUST BE OBTAINED BEFORE PERFORMING A */ 00675000 * /* BRANCH AND LINK FREEMAIN */ 00676000 * /* */ 00677000 * /***********************************************************/ 00678000 * 0157 00679000 * GEN REFS(PSALITA,FLC) EXIT NOFLOWS SEQFLOW; 0157 00680000 GETSAL2 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, *00681000 RELATED=(GLOBAL,AHLREADR(FREESAL2,FREESAL4)) 00682000 * SLOCHELD=ON; /* INDICATE THAT THE SALLOC LOCK 00683000 * IS HELD */ 00684000 * 0158 00685000 OI SLOCHELD(R9PARM),B'00100000' 0158 00686000 * /***********************************************************/ 00687000 * /* */ 00688000 * /* FREE THE DUMMY MCAWSA OBTAINED FROM SQA. A BRANCH AND */ 00689000 * /* LINK ENTRY IS REQUIRED SINCE AHLREADR IS AN SRB ROUTINE */ 00690000 * /* */ 00691000 * /***********************************************************/ 00692000 * 0159 00693000 * DO; 0159 00694000 * 0159 00695000 * /*********************************************************/ 00696000 * /* */ 00697000 * /* SET UP FOR BRANCH & LINK ENTRY TO FREEMAIN */ 00698000 * /* */ 00699000 * /*********************************************************/ 00700000 * 0160 00701000 * RFY 0160 00702000 * R1 RSTD; 0160 00703000 * IF R3=0 THEN /* CHECK FOR VALID MCAWSA POINTER*/ 00704000 LTR R3,R3 0161 00705000 BZ @RT00161 0161 00706000 * GO TO FREESRB; /* NOT VALID - BYPASS FREEMAIN */ 00707000 * R0=LENGTH(MCAWSA); /* LENGTH OF AREA TO BE RELEASED */ 00708000 LA R0,800 0163 00709000 * R1=R3; /* ADDRESS OF AREA */ 00710000 LR R1,R3 0164 00711000 * RFY 0165 00712000 * R3 UNRSTD; 0165 00713000 * 0166 00714000 * /*********************************************************/ 00715000 * /* */ 00716000 * /* FREE THE 'MCAWSA' */ 00717000 * /* */ 00718000 * /*********************************************************/ 00719000 * 0166 00720000 * GEN SETS(R14,R15,R3,R4) REFS(R1,R0,CVTSPSA,WSAGGMFM,WSAG, 00721000 * CVTGLMN,CVTMAP) EXIT NOFLOWS SEQFLOW; 0166 00722000 FREEMAIN RU,LV=(0),A=(1),BRANCH=(YES,GLOBAL),SP=AHLRDSP 00723000 * GMANSAVE=0; /* INDICATE THAT THE AREA WAS 0167 00724000 * FREED */ 00725000 SLR @12,@12 0167 00726000 ST @12,GMANSAVE(,R9PARM) 0167 00727000 * END; 0168 00728000 * IF SAVESRB=0 THEN /* ANY MORE AREAS TO FREEMAIN ? */ 00729000 C @12,SAVESRB(,R9PARM) 0169 00730000 BE @RT00169 0169 00731000 * GO TO RELEASE; /* NO 0170 00732000 * */ 00733000 *FREESRB: 0171 00734000 * 0171 00735000 * /***********************************************************/ 00736000 * /* */ 00737000 * /* FREE THE SRB AND PLIST OBTAINED FROM SQA FOR AHLREAD1. */ 00738000 * /* THE SALLOC LOCK IS ALREADY HELD */ 00739000 * /* */ 00740000 * /***********************************************************/ 00741000 * 0171 00742000 * DO; 0171 00743000 * 0171 00744000 FREESRB DS 0H 0172 00745000 * /*********************************************************/ 00746000 * /* */ 00747000 * /* SET UP FOR BRANCH ENTRY FREEMAIN */ 00748000 * /* */ 00749000 * /*********************************************************/ 00750000 * 0172 00751000 * R0=LENGTH(SRBSECT)+LENGTH(AHLRDPL);/* LENGTH OF AREA TO 00752000 * BE RELEASED */ 00753000 LA R0,84 0172 00754000 * R1=SAVESRB; /* ADDRESS OF AREA */ 00755000 * 0173 00756000 L R1,SAVESRB(,R9PARM) 0173 00757000 * /*********************************************************/ 00758000 * /* */ 00759000 * /* FREE THE SRB AND PLIST */ 00760000 * /* */ 00761000 * /*********************************************************/ 00762000 * 0174 00763000 * GEN SETS(R14,R15,R3,R4) REFS(R1,R0,CVTSPSA,WSAGGMFM,WSAG, 00764000 * CVTGLMN,CVTMAP) EXIT SEQFLOW NOFLOWS; 0174 00765000 FREEMAIN RU,LV=(0),A=(1),BRANCH=(YES,GLOBAL),SP=AHLRDSP 00766000 * SAVESRB=0; /* INDICATE THAT THE AHLREADR SRB 00767000 * HAS BEEN RELEASED */ 00768000 SLR @12,@12 0175 00769000 ST @12,SAVESRB(,R9PARM) 0175 00770000 * RFY 0176 00771000 * (R0, 0176 00772000 * R1) UNRSTD; 0176 00773000 * END; 0177 00774000 *RELEASE: 0178 00775000 * 0178 00776000 * /***********************************************************/ 00777000 * /* */ 00778000 * /* RELEASE THE SALLOC LOCK */ 00779000 * /* */ 00780000 * /***********************************************************/ 00781000 * 0178 00782000 * GEN REFS(PSALITA,FLC) EXIT NOFLOWS SEQFLOW; 0178 00783000 RELEASE DS 0H 0178 00784000 FREESAL2 SETLOCK RELEASE,TYPE=SALLOC, *00785000 RELATED=(GLOBAL,AHLREADR(GETSAL2)) 00786000 * SLOCHELD=OFF; /* INDICATE THAT THE SALLOC LOCK 00787000 * HAS BEEN RELEASED */ 00788000 NI SLOCHELD(R9PARM),B'11011111' 0179 00789000 * END; 0180 00790000 * 0180 00791000 * /***************************************************************/ 00792000 * /* */ 00793000 * /* DELETE THE FRR ROUTINE FROM THE STACK */ 00794000 * /* */ 00795000 * /***************************************************************/ 00796000 * 0181 00797000 * RFY 0181 00798000 * (R14, 0181 00799000 * R12WORK) RSTD; 0181 00800000 @RF00155 DS 0H 0182 00801000 * GEN SETS(R9PARM,R12WORK) REFS(PSACSTK,FRRSCURR,FRRSEMP,FRRSELEN) 00802000 * NOEXIT NOFLOWS SEQFLOW; 0182 00803000 * 0182 00804000 SETFRR D,WRKREGS=(R9PARM,R12WORK) DELETE FRR FROM LIST 00805000 * /***************************************************************/ 00806000 * /* */ 00807000 * /* RESTORE R14 AND EXIT */ 00808000 * /* */ 00809000 * /***************************************************************/ 00810000 * 0183 00811000 * R14=SAVER14; /* RESTORE R14 */ 00812000 LR R14,SAVER14 0183 00813000 * GEN REFS(R14) EXIT(BR R14 RETURN TO SRB SCHEDULER OR RTM); 0184 00814000 BR R14 RETURN TO SRB SCHEDULER OR RTM 00815000 * RFY 0185 00816000 * (R14, 0185 00817000 * R12WORK) UNRSTD; 0185 00818000 *CLEANUP: 0186 00819000 * 0186 00820000 * /***************************************************************/ 00821000 * /* */ 00822000 * /* GTF COULD NOT BE FOUND. POST REQUESTOR'S ECB INDICATING */ 00823000 * /* ERROR CONDITION. BRANCH AND LINK ENTRY TO POST MUST BE USED */ 00824000 * /* SINCE AHLREADR IS AN SRB ROUTINE */ 00825000 * /* */ 00826000 * /***************************************************************/ 00827000 * 0186 00828000 * SAVER14=RTNSAVE; /* RELOAD RETURN ADDRESS INTO REG 00829000 * SO THAT THE FOLLOWING CODE MAY 00830000 * BE USED BY AHLREAD1 AND 0186 00831000 * AHLRDFR */ 00832000 CLEANUP L SAVER14,RTNSAVE(,R9PARM) 0186 00833000 *LOCLPOST: 0187 00834000 * DO; 0187 00835000 * 0187 00836000 LOCLPOST DS 0H 0188 00837000 * /*************************************************************/ 00838000 * /* */ 00839000 * /* LOCAL LOCK MUST BE OBTAINED BEFORE BRANCH AND LINK POST */ 00840000 * /* */ 00841000 * /*************************************************************/ 00842000 * 0188 00843000 * GEN REFS(PSALITA,FLC) EXIT SEQFLOW NOFLOWS; 0188 00844000 GETLOC1 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, *00845000 RELATED=(POST,AHLREADR(FREELOC1)) 00846000 * LOCHELD=ON; /* INDICATE THAT THE LOCAL LOCK 00847000 * IS HELD */ 00848000 * 0189 00849000 OI LOCHELD(R9PARM),B'01000000' 0189 00850000 * /*************************************************************/ 00851000 * /* */ 00852000 * /* SET UP FOR LOCAL POST */ 00853000 * /* */ 00854000 * /*************************************************************/ 00855000 * 0190 00856000 * RFY 0190 00857000 * (POSTRTN, 0190 00858000 * POSTECB, 0190 00859000 * R15, 0190 00860000 * R14) RSTD; 0190 00861000 * POSTRTN=ERRCODE; /* COMPLETION CODE */ 00862000 LA POSTRTN,4 0191 00863000 * POSTECB=ECBSAVE; /* REQUESTOR'S ECB @ */ 00864000 L POSTECB,ECBSAVE(,R9PARM) 0192 00865000 * R15=CVT0PT02; /* @ OF POST ROUTINE 0193 00866000 * */ 00867000 L @12,CVTPTR 0193 00868000 L R15,CVT0PT02(,@12) 0193 00869000 * 0194 00870000 * /*************************************************************/ 00871000 * /* */ 00872000 * /* POST REQUESTER */ 00873000 * /* */ 00874000 * /*************************************************************/ 00875000 * 0194 00876000 * GEN SETS(R14) REFS(R15) EXIT SEQFLOW NOFLOWS(BALR R14,R15); 00877000 BALR R14,R15 00878000 * RFY 0195 00879000 * (POSTRTN, 0195 00880000 * POSTECB, 0195 00881000 * R15, 0195 00882000 * R14) UNRSTD; 0195 00883000 * POSTDONE=ON; /* INDICATE THAT THE ECB HAS BEEN 00884000 * POSTED */ 00885000 OI POSTDONE(R9PARM),B'00010000' 0196 00886000 *RELLOCL: 0197 00887000 * 0197 00888000 * /*************************************************************/ 00889000 * /* */ 00890000 * /* RELEASE LOCAL LOCK */ 00891000 * /* */ 00892000 * /*************************************************************/ 00893000 * 0197 00894000 * GEN REFS(PSALITA,FLC) EXIT SEQFLOW NOFLOWS; 0197 00895000 RELLOCL DS 0H 0197 00896000 FREELOC1 SETLOCK RELEASE,TYPE=LOCAL, *00897000 RELATED=(POST,AHLREADR(GETLOC1)) 00898000 * LOCHELD=OFF; /* INDICATE THAT THE LOCAL LOCK 00899000 * HAS BEEN RELEASED */ 00900000 NI LOCHELD(R9PARM),B'10111111' 0198 00901000 * END; 0199 00902000 * 0199 00903000 * /***************************************************************/ 00904000 * /* */ 00905000 * /* CONTINUE WITH NORMAL CLEANUP FUNCTIONS */ 00906000 * /* */ 00907000 * /***************************************************************/ 00908000 * 0200 00909000 * GO TO MCDEQ; 0200 00910000 B MCDEQ 0200 00911000 * RFY 0201 00912000 * SAVER14 UNRSTD; 0201 00913000 * END; 0202 00914000 *AHLRDFR: 0203 00915000 * GEN SETS(BASEREG) REFS(READBASE,R15ENTRY) NOEXIT NOFLOWS SEQFLOW 00916000 * NODEFS; 0203 00917000 * 0203 00918000 AHLRDFR DS 0H 0203 00919000 USING AHLRDFR,R15ENTRY SETUP TEMP BASE 00920000 L BASEREG,READBASE GET BASE ADDRESS UPON ENTRY 00921000 USING AHLREADR,BASEREG TELL ASSEMBLER ABOUT OUR BASE 00922000 DROP R15ENTRY TELL ASSEMBLER TO QUIT USING R15 00923000 * /*****************************************************************/ 00924000 * /* */ 00925000 * /* THIS ENTRY POINT PERFORMS ERROR RECOVERY FUNCTIONS IN THE */ 00926000 * /* EVENT OF A FAILURE IN THE MAIN LINE CODE (AHLREAD1) - TWO */ 00927000 * /* BASIC COURSES OF ACTION ARE FOLLOWED: 1. IF THE ERROR IS A */ 00928000 * /* RECOVERABLE ACR MACHINE CHECK THIS ROUTINE NOTIFIES RTM TO */ 00929000 * /* RETRY AT THE NEXT INSTRUCTION, 2. ALL OTHER ERRORS WILL RESULT*/ 00930000 * /* IN RTM BEING NOTIFIED TO CONTINUE AT AHLREAD1'S RETURN ADDRESS*/ 00931000 * /* AND A GRACEFUL CLEANUP OF CONTROL BLOCKS AND LOCKS */ 00932000 * /* */ 00933000 * /*****************************************************************/ 00934000 * 0204 00935000 * DO; 0204 00936000 * 0204 00937000 * /***************************************************************/ 00938000 * /* */ 00939000 * /* HOUSEKEEPING - SAVE R14 AND RELOAD BASE FOR FRR PARM AREA */ 00940000 * /* */ 00941000 * /***************************************************************/ 00942000 * 0205 00943000 * RFY 0205 00944000 * (R14, 0205 00945000 * SDWAPTR, 0205 00946000 * R1, 0205 00947000 * SAVER14, 0205 00948000 * R0) RSTD; 0205 00949000 * SDWAPTR=R1; /* GET POINTER TO SDWA */ 00950000 LR SDWAPTR,R1 0206 00951000 * SAVER14=R14; /* SAVE RETURN ADDRESS */ 00952000 LR SAVER14,R14 0207 00953000 * R1=R0; /* GET POINTER TO WORKAREA TO BE 00954000 * USED TO BUILD PARMLIST FOR 0208 00955000 * SDUMP */ 00956000 LR R1,R0 0208 00957000 * RFY 0209 00958000 * (R0, 0209 00959000 * R14) UNRSTD; 0209 00960000 * R9PARM=SDWAPARM; /* POINTER TO FRR PARM SAVE AREA 00961000 * */ 00962000 L R9PARM,SDWAPARM(,SDWAPTR) 0210 00963000 * 0211 00964000 * /***************************************************************/ 00965000 * /* */ 00966000 * /* DUMP AHLREADR AND SQA USING SVCDUMP */ 00967000 * /* */ 00968000 * /***************************************************************/ 00969000 * 0211 00970000 * DO; 0211 00971000 * 0211 00972000 * /*************************************************************/ 00973000 * /* */ 00974000 * /* SET UP THE PARMLIST FOR SVCDUMP */ 00975000 * /* */ 00976000 * /*************************************************************/ 00977000 * 0212 00978000 * RFY 0212 00979000 * R12WORK RSTD; 0212 00980000 * CLRPARM=CLRPARM&&CLRPARM; /* CLEAR PARMLIST */ 00981000 XC CLRPARM(24,R1),CLRPARM(R1) 0213 00982000 * R12WORK=PSAAOLD->ASCBASID; /* GET ASID */ 00983000 * 0214 00984000 L @04,PSAAOLD 0214 00985000 SLR R12WORK,R12WORK 0214 00986000 ICM R12WORK,3,ASCBASID(@04) 0214 00987000 * /*************************************************************/ 00988000 * /* */ 00989000 * /* TAKE A DUMP */ 00990000 * /* */ 00991000 * /*************************************************************/ 00992000 * 0215 00993000 * GEN SETS(R15) REFS(R1,R12WORK,READRMOD,CVTSDMP,CVTMAP,CVTPTR) 00994000 * EXIT NOFLOWS SEQFLOW; 0215 00995000 SDUMP HDR='DUMP OF AHLREADR',SDATA=SQA,BRANCH=YES, *00996000 LIST=READRMOD,ASID=(R12WORK),MF=(E,(1)) 00997000 * RFY 0216 00998000 * (R1, 0216 00999000 * R12WORK) UNRSTD; 0216 01000000 * END; 0217 01001000 * 0218 01002000 * /***************************************************************/ 01003000 * /* */ 01004000 * /* IF THE FOLLOWING CONDITIONS ARE MET THE ERROR IS A */ 01005000 * /* RECOVERABLE ACR MACHINE CHECK ERROR: 1. IT IS A MACHINE */ 01006000 * /* CHECK, 2. THERE WAS AN INSTRUCTION FAILURE, 3. THE PSW IS */ 01007000 * /* VALID AND 4. THE REGISTERS ARE VALID */ 01008000 * /* */ 01009000 * /***************************************************************/ 01010000 * 0218 01011000 * IF SDWAMCHK=ON&SDWAINSF=ON&SDWAREGU=OFF&SDWAPSWU=OFF THEN 0218 01012000 TM SDWAMCHK(SDWAPTR),B'10000000' 0218 01013000 BNO @RF00218 0218 01014000 TM SDWAINSF(SDWAPTR),B'00000100' 0218 01015000 BNO @RF00218 0218 01016000 TM SDWAREGU(SDWAPTR),B'01100000' 0218 01017000 BNZ @RF00218 0218 01018000 * DO; /* ACR TYPE ERROR */ 01019000 * 0219 01020000 * /***********************************************************/ 01021000 * /* */ 01022000 * /* NOTIFY RTM TO RETRY AT THE NEXT INSTRUCTION AND RETURN */ 01023000 * /* TO RTM */ 01024000 * /* */ 01025000 * /***********************************************************/ 01026000 * 0220 01027000 * DO; /* SETRP RECPARM(RECID) 0220 01028000 * RECORD(YES) RC(SDWARETY) 0220 01029000 * RETADDR(ACRADDR) 0220 01030000 * WKAREA(SDWAPTR) */ 01031000 * RESPECIFY 0221 01032000 * (GPR00P, 0221 01033000 * GPR01P, 0221 01034000 * GPR14P, 0221 01035000 * GPR15P) RSTD; 0221 01036000 * GPR01P=SDWAPTR; 0222 01037000 LR GPR01P,SDWAPTR 0222 01038000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 01039000 MVI SDWARCDE(GPR01P),X'04' 0223 01040000 * GPR01P->SDWARTYA=ADDR(ACRADDR);/* SAVE RETRY ADDRESS */ 01041000 MVC SDWARTYA(4,GPR01P),SDWANXT1(SDWAPTR) 0224 01042000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 01043000 OI SDWARCRD(GPR01P),B'10000000' 0225 01044000 * GPR15P=ADDR(RECID); /* ACCESS RECORD PARAMETER LIST */ 01045000 LA GPR15P,RECID 0226 01046000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD 0227 01047000 * PARAMETERS */ 01048000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0227 01049000 * RESPECIFY 0228 01050000 * (GPR00P, 0228 01051000 * GPR01P, 0228 01052000 * GPR14P, 0228 01053000 * GPR15P) UNRSTD; 0228 01054000 * END; 0229 01055000 * RFY 0230 01056000 * R14 RSTD; 0230 01057000 * R14=SAVER14; /* RETORE R14 RETURN ADDRESS */ 01058000 LR R14,SAVER14 0231 01059000 * GEN REFS(R14) EXIT(BR R14 RETURN TO RTM); 0232 01060000 BR R14 RETURN TO RTM 01061000 * END; 0233 01062000 * ELSE /* ALL OTHER TYPES OF ERRORS */ 01063000 * DO; 0234 01064000 * 0234 01065000 B @RC00218 0234 01066000 @RF00218 DS 0H 0235 01067000 * /***********************************************************/ 01068000 * /* */ 01069000 * /* NOTIFY RTM TO RETRY AT AHLREAD1'S RETURN ADDRESS AND */ 01070000 * /* PERFORM CLEANUP FUNCTIONS. CLEANUP FUNCTIONS MAY INCLUDE*/ 01071000 * /* POSTING THE ORIGINATOR OF THE REQUEST TO THE GTF WRITER,*/ 01072000 * /* RELEASING LOCKS, DEQING THE MC CONTROL BLOCKS, RELEASING*/ 01073000 * /* GETMAINED AREAS AND DELETING THE FRR ROUTINE FROM THE */ 01074000 * /* STACK. */ 01075000 * /* */ 01076000 * /***********************************************************/ 01077000 * 0235 01078000 * DO; 0235 01079000 * 0235 01080000 * /*********************************************************/ 01081000 * /* */ 01082000 * /* NOTIFY RTM OF RETRY ADDRESS */ 01083000 * /* */ 01084000 * /*********************************************************/ 01085000 * 0236 01086000 * DO; /* SETRP RECPARM(RECID) 0236 01087000 * RECORD(YES) RC(SDWARETY) 0236 01088000 * RETADDR(SRBADDR) 0236 01089000 * WKAREA(SDWAPTR) */ 01090000 * RESPECIFY 0237 01091000 * (GPR00P, 0237 01092000 * GPR01P, 0237 01093000 * GPR14P, 0237 01094000 * GPR15P) RSTD; 0237 01095000 * GPR01P=SDWAPTR; 0238 01096000 LR GPR01P,SDWAPTR 0238 01097000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 01098000 MVI SDWARCDE(GPR01P),X'04' 0239 01099000 * GPR01P->SDWARTYA=ADDR(SRBADDR);/* SAVE RETRY ADDRESS */ 01100000 MVC SDWARTYA(4,GPR01P),RTNSAVE(R9PARM) 0240 01101000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD INDICATOR */ 01102000 OI SDWARCRD(GPR01P),B'10000000' 0241 01103000 * GPR15P=ADDR(RECID); /* ACCESS RECORD PARAMETER LIST */ 01104000 LA GPR15P,RECID 0242 01105000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD 0243 01106000 * PARAMETERS */ 01107000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0243 01108000 * RESPECIFY 0244 01109000 * (GPR00P, 0244 01110000 * GPR01P, 0244 01111000 * GPR14P, 0244 01112000 * GPR15P) UNRSTD; 0244 01113000 * END; 0245 01114000 * RFY 0246 01115000 * SDWAPTR UNRSTD; 0246 01116000 * 0247 01117000 * /*********************************************************/ 01118000 * /* */ 01119000 * /* RELEASE THE SALLOC LOCK IF IT IS HELD */ 01120000 * /* */ 01121000 * /*********************************************************/ 01122000 * 0247 01123000 * IF SLOCHELD=ON THEN /* IS THE LOCK HELD ? */ 01124000 TM SLOCHELD(R9PARM),B'00100000' 0247 01125000 BNO @RF00247 0247 01126000 * DO; /* YES - RELEASE IT */ 01127000 * GEN REFS(PSALITA,FLC) EXIT NOFLOWS SEQFLOW; 0249 01128000 FREESAL4 SETLOCK RELEASE,TYPE=SALLOC,RELATED=(GLOBAL,AHLREADR(GETSAL1,G*01129000 ETSAL2,GETSAL3)) 01130000 * END; 0250 01131000 * 0250 01132000 * /*********************************************************/ 01133000 * /* */ 01134000 * /* POST THE LOCAL ECB IS THE PARMLIST WAS NOT QUEUED AND */ 01135000 * /* THE POST WAS NOT PERFORMED AS PART OF NORMAL CLEANUP */ 01136000 * /* */ 01137000 * /*********************************************************/ 01138000 * 0251 01139000 * IF POSTDONE=OFF THEN 0251 01140000 @RF00247 TM POSTDONE(R9PARM),B'00010000' 0251 01141000 BZ @RT00251 0251 01142000 * GO TO LOCLPOST; /* POST IS REQUIRED */ 01143000 * ELSE /* POST NOT REQUIRED */ 01144000 * 0253 01145000 * /*******************************************************/ 01146000 * /* */ 01147000 * /* IF THE LOCAL LOCK WAS HELD RELEASE IT */ 01148000 * /* */ 01149000 * /*******************************************************/ 01150000 * 0253 01151000 * IF LOCHELD=OFF THEN 0253 01152000 TM LOCHELD(R9PARM),B'01000000' 0253 01153000 BZ @RT00253 0253 01154000 * GO TO MCDEQ; /* NOT HELD, BYPASS LOCK RELEASE */ 01155000 * GO TO RELLOCL; /* RELEASE THE LOCAL LOCK */ 01156000 B RELLOCL 0255 01157000 * END; 0256 01158000 * END; 0257 01159000 * RFY 0258 01160000 * SAVER14 UNRSTD; 0258 01161000 @RC00218 DS 0H 0259 01162000 * END; 0259 01163000 *AHLRDXP1: 0260 01164000 * GEN SETS(BASEREG) REFS(READBASE,R15ENTRY) NOEXIT NOFLOWS SEQFLOW 01165000 * NODEFS; 0260 01166000 * 0260 01167000 AHLRDXP1 DS 0H 0260 01168000 USING AHLRDXP1,R15ENTRY SETUP TEMP BASE 01169000 L BASEREG,READBASE GET BASE ADDRESS UPON ENTRY 01170000 USING AHLREADR,BASEREG TELL ASSEMBLER ABOUT OUR BASE 01171000 DROP R15ENTRY TELL ASSEMBLER TO QUIT USING R15 01172000 * /*****************************************************************/ 01173000 * /* */ 01174000 * /* THIS ENTRY POINT PERFORMS CLEANUP FUNCTIONS IN THE EVENT OF A */ 01175000 * /* FAILURE PERFORMING THE CROSS-MEMORY POST TO THE GTF WRITER - */ 01176000 * /* CLEANUP FUNCTIONS INCLUDE: NONE */ 01177000 * /* */ 01178000 * /*****************************************************************/ 01179000 * 0261 01180000 * DO; 0261 01181000 * 0261 01182000 * /***************************************************************/ 01183000 * /* */ 01184000 * /* SINCE NOTHING CAN BE GAINED PRESUMABLY BY REATTEMPTING THE */ 01185000 * /* CROSS-MEMORY POST TO THE GTF WRITER AND THIS IS THE ONLY */ 01186000 * /* INFORMATION AVAILABLE A SIMPLE RETURN IS MADE. IT IS ASSUMED*/ 01187000 * /* THAT SINCE THE GTF WRITER IS STILL ACTIVE IT WILL POST THE */ 01188000 * /* REQUESTOR WHEN IT IS DISPATCHED AND LOCATES THE QUEUED */ 01189000 * /* PARMLIST */ 01190000 * /* */ 01191000 * /***************************************************************/ 01192000 * 0262 01193000 * GEN REFS(R14) EXIT(BR R14 RETURN TO DISPATCHER); 0262 01194000 BR R14 RETURN TO DISPATCHER 01195000 * END; 0263 01196000 *AHLREAD2: 0264 01197000 * GEN SETS(BASEREG) REFS(READBASE,R15ENTRY) NOEXIT NOFLOWS SEQFLOW 01198000 * NODEFS; 0264 01199000 * 0264 01200000 AHLREAD2 DS 0H 0264 01201000 USING AHLREAD2,R15ENTRY SETUP TEMP BASE 01202000 L BASEREG,READBASE GET BASE ADDRESS UPON ENTRY 01203000 USING AHLREADR,BASEREG TELL ASSEMBLER ABOUT OUR BASE 01204000 DROP R15ENTRY TELL ASSEMBLER TO QUIT USING R15 01205000 * /*****************************************************************/ 01206000 * /* */ 01207000 * /* THIS ENTRY POINT PERFORMS MAIN LINE FUNCTIONS - POSTING THE */ 01208000 * /* REQUESTOR'S ECB OF THE GTF WRITER'S COMPLETION AND FREEMAINING*/ 01209000 * /* THE SRB USED TO SCHEDULE AHLREAD1 AND THIS ENTRY POINT */ 01210000 * /* */ 01211000 * /*****************************************************************/ 01212000 * 0265 01213000 * DO; 0265 01214000 * 0265 01215000 * /***************************************************************/ 01216000 * /* */ 01217000 * /* HOUSEKEEPING - SET UP PARMLIST BASE AND SAVE RETURN ADDRESS */ 01218000 * /* */ 01219000 * /***************************************************************/ 01220000 * 0266 01221000 * RFY 0266 01222000 * AHLRDPL BASED(R1); 0266 01223000 * RFY 0267 01224000 * (R14, 0267 01225000 * SAVER14, 0267 01226000 * R1) RSTD; 0267 01227000 * 0267 01228000 * /***************************************************************/ 01229000 * /* */ 01230000 * /* COMMON LOGIC FOR AHLREAD2, AHLRDCU2 AND AHLRDCU3 FOLLOWS */ 01231000 * /* */ 01232000 * /***************************************************************/ 01233000 * 0268 01234000 *COMMON: 0268 01235000 * SAVER14=R14; /* SAVE THE RETURN ADDRESS */ 01236000 COMMON LR SAVER14,R14 0268 01237000 * RFY 0269 01238000 * R14 UNRSTD; 0269 01239000 * 0270 01240000 * /***************************************************************/ 01241000 * /* */ 01242000 * /* POST REQUESTOR OF COMPLETION OF REQUEST - BRANCH ENTRY TO */ 01243000 * /* LOCAL POST MUST BE USED SINCE AHLREAD2 IS AN SRB ROUTINE */ 01244000 * /* */ 01245000 * /***************************************************************/ 01246000 * 0270 01247000 * DO; 0270 01248000 * 0270 01249000 * /*************************************************************/ 01250000 * /* */ 01251000 * /* LOCAL LOCK IS REQ'D FOR LOCAL BRANCH ENTRY POST */ 01252000 * /* */ 01253000 * /*************************************************************/ 01254000 * 0271 01255000 * GEN REFS(PSALITA,FLC) EXIT SEQFLOW NOFLOWS; 0271 01256000 * 0271 01257000 GETLOC2 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, *01258000 RELATED=(LPOST,AHLREADR(FREELOC2)) 01259000 * /*************************************************************/ 01260000 * /* */ 01261000 * /* SET UP FOR LOCAL POST */ 01262000 * /* */ 01263000 * /*************************************************************/ 01264000 * 0272 01265000 * RFY 0272 01266000 * (POSTRTN, 0272 01267000 * POSTECB, 0272 01268000 * R14, 0272 01269000 * R15) RSTD; 0272 01270000 * POSTRTN=AHLPCOD; /* COMPLETION CODE */ 01271000 L POSTRTN,AHLPCOD(,R1) 0273 01272000 * POSTECB=AHLRDECB; /* ECB @ */ 01273000 L POSTECB,AHLRDECB(,R1) 0274 01274000 * R15=CVT0PT02; /* @ OF LOCAL POST ROUTINE */ 01275000 * 0275 01276000 L @12,CVTPTR 0275 01277000 L R15,CVT0PT02(,@12) 0275 01278000 * /*************************************************************/ 01279000 * /* */ 01280000 * /* PERFORM LOCAL POST */ 01281000 * /* */ 01282000 * /*************************************************************/ 01283000 * 0276 01284000 * GEN SETS(R14) REFS(R15) EXIT SEQFLOW NOFLOWS(BALR R14,R15); 01285000 BALR R14,R15 01286000 * RFY 0277 01287000 * (POSTRTN, 0277 01288000 * POSTECB, 0277 01289000 * R14, 0277 01290000 * R15) UNRSTD; 0277 01291000 * 0278 01292000 * /*************************************************************/ 01293000 * /* */ 01294000 * /* RELEASE LOCAL LOCK */ 01295000 * /* */ 01296000 * /*************************************************************/ 01297000 * 0278 01298000 * GEN REFS(PSALITA,FLC) EXIT SEQFLOW NOFLOWS; 0278 01299000 FREELOC2 SETLOCK RELEASE,TYPE=LOCAL,RELATED=(LPOST,AHLREADR(GETLOC2)) 01300000 * END; 0279 01301000 * 0280 01302000 * /***************************************************************/ 01303000 * /* */ 01304000 * /* FREE THE SRB AND PLIST - BRANCH ENTRY FREEMAIN IS EMPLOYED */ 01305000 * /* */ 01306000 * /***************************************************************/ 01307000 * 0280 01308000 * DO; 0280 01309000 * 0280 01310000 * /*************************************************************/ 01311000 * /* */ 01312000 * /* SALLOC LOCK IS REQ'D TO FREE SPACE IN SQA */ 01313000 * /* */ 01314000 * /*************************************************************/ 01315000 * 0281 01316000 * GEN REFS(PSALITA,FLC) EXIT SEQFLOW NOFLOWS; 0281 01317000 * 0281 01318000 GETSAL6 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, *01319000 RELATED=(FREEMAIN,AHLREADR(GETSAL6)) 01320000 * /*************************************************************/ 01321000 * /* */ 01322000 * /* SET UP FOR BRANCH ENTRY FREEMAIN */ 01323000 * /* */ 01324000 * /*************************************************************/ 01325000 * 0282 01326000 * RFY 0282 01327000 * R0 RSTD; 0282 01328000 * R0=LENGTH(SRBSECT)+LENGTH(AHLRDPL);/* LENGTH OF AREA TO BE 0283 01329000 * RELEASED */ 01330000 LA R0,84 0283 01331000 * R1=AHLRDSRB; /* ADDRESS OF AREA */ 01332000 * 0284 01333000 L R1,AHLRDSRB(,R1) 0284 01334000 * /*************************************************************/ 01335000 * /* */ 01336000 * /* FREE THE SRB AND PLIST */ 01337000 * /* */ 01338000 * /*************************************************************/ 01339000 * 0285 01340000 * GEN SETS(R14,R15,R3,R4) REFS(R1,R0,CVTSPSA,WSAGGMFM,WSAG, 0285 01341000 * CVTGLMN,CVTMAP) EXIT SEQFLOW NOFLOWS; 0285 01342000 FREEMAIN RU,LV=(0),A=(1),BRANCH=(YES,GLOBAL),SP=AHLRDSP 01343000 * RFY 0286 01344000 * (R0, 0286 01345000 * R1) UNRSTD; 0286 01346000 * 0287 01347000 * /*************************************************************/ 01348000 * /* */ 01349000 * /* RELEASE THE SALLOC LOCK */ 01350000 * /* */ 01351000 * /*************************************************************/ 01352000 * 0287 01353000 * GEN REFS(PSALITA,FLC) EXIT SEQFLOW NOFLOWS; 0287 01354000 FREESAL6 SETLOCK RELEASE,TYPE=SALLOC, *01355000 RELATED=(FREEMAIN,AHLREADR(GETSAL6)) 01356000 * END; 0288 01357000 * 0288 01358000 * /***************************************************************/ 01359000 * /* */ 01360000 * /* RESTORE R14 RETURN ADDRESS AND EXIT */ 01361000 * /* */ 01362000 * /***************************************************************/ 01363000 * 0289 01364000 * RFY 0289 01365000 * R14 RSTD; 0289 01366000 * R14=SAVER14; /* RESTORE RETURN ADDRESS */ 01367000 LR R14,SAVER14 0290 01368000 * GEN REFS(R14) EXIT(BR R14 RETURN TO CALLER); 0291 01369000 BR R14 RETURN TO CALLER 01370000 * RFY 0292 01371000 * (R14, 0292 01372000 * PLISTREG, 0292 01373000 * SAVER14) UNRSTD; 0292 01374000 * END; 0293 01375000 *AHLRDCU2: 0294 01376000 * GEN SETS(BASEREG) REFS(READBASE,R15ENTRY) NOEXIT NOFLOWS SEQFLOW 01377000 * NODEFS; 0294 01378000 * 0294 01379000 AHLRDCU2 DS 0H 0294 01380000 USING AHLRDCU2,R15ENTRY SETUP TEMP BASE 01381000 L BASEREG,READBASE GET BASE ADDRESS UPON ENTRY 01382000 USING AHLREADR,BASEREG TELL ASSEMBLER ABOUT OUR BASE 01383000 DROP R15ENTRY TELL ASSEMBLER TO QUIT USING R15 01384000 * /*****************************************************************/ 01385000 * /* */ 01386000 * /* THIS ENTRY POINT PERFORMS CLEANUP FUNCTIONS IN THE EVENT OF */ 01387000 * /* THE AHLREADR SRB BEING PURGED - CLEANUP FUNCTIONS INCLUDE: 1. */ 01388000 * /* POSTING REQUESTOR'S ECB, 2. FREEMAINING THE SRB FOR AHLREAD1 */ 01389000 * /* */ 01390000 * /*****************************************************************/ 01391000 * 0295 01392000 * DO; 0295 01393000 * 0295 01394000 * /***************************************************************/ 01395000 * /* */ 01396000 * /* HOUSEKEEPING - SET UP PARMLIST BASE AND SET COMPLETION CODE */ 01397000 * /* FOR LOCAL POST */ 01398000 * /* */ 01399000 * /***************************************************************/ 01400000 * 0296 01401000 * RFY 0296 01402000 * (R14, 0296 01403000 * PLISTREG, 0296 01404000 * R1) RSTD; 0296 01405000 * R1=PLISTREG; /* SET UP PARMLIST BASE */ 01406000 LR R1,PLISTREG 0297 01407000 * AHLPCOD=ERRCODE; /* SET UP COMPLETION CODE SO THAT 01408000 * COMMON CODE MAY BE USED */ 01409000 * 0298 01410000 MVC AHLPCOD(4,R1),@CF00052 0298 01411000 * /***************************************************************/ 01412000 * /* */ 01413000 * /* GO PERFORM ALL NECESSARY FUNCTIONS */ 01414000 * /* */ 01415000 * /***************************************************************/ 01416000 * 0299 01417000 * GO TO COMMON; 0299 01418000 B COMMON 0299 01419000 * RFY 0300 01420000 * (R14, 0300 01421000 * PLISTREG, 0300 01422000 * R1) UNRSTD; 0300 01423000 * END; 0301 01424000 *AHLRDCU3: 0302 01425000 * GEN SETS(BASEREG) REFS(READBASE,R15ENTRY) NOEXIT NOFLOWS SEQFLOW 01426000 * NODEFS; 0302 01427000 * 0302 01428000 AHLRDCU3 DS 0H 0302 01429000 USING AHLRDCU3,R15ENTRY SETUP TEMP BASE 01430000 L BASEREG,READBASE GET BASE ADDRESS UPON ENTRY 01431000 USING AHLREADR,BASEREG TELL ASSEMBLER ABOUT OUR BASE 01432000 DROP R15ENTRY TELL ASSEMBLER TO QUIT USING R15 01433000 * /*****************************************************************/ 01434000 * /* */ 01435000 * /* THIS ENTRY POINT PERFORMS CLEANUP FUNCTIONS IN THE EVENT OF */ 01436000 * /* THE AHLREAD2 SRB BEING PURGED - CLEANUP FUNCTIONS INCLUDE: 1. */ 01437000 * /* POSTING THE REQUESTOR'S ECB. 2. FREEMAINING THE SRB FOR */ 01438000 * /* AHLREAD2 */ 01439000 * /* */ 01440000 * /*****************************************************************/ 01441000 * 0303 01442000 * DO; 0303 01443000 * 0303 01444000 * /***************************************************************/ 01445000 * /* */ 01446000 * /* HOUSEKEEPING - SET UP PARMLIST BASE */ 01447000 * /* */ 01448000 * /***************************************************************/ 01449000 * 0304 01450000 * RFY 0304 01451000 * (R14, 0304 01452000 * PLISTREG, 0304 01453000 * R1) RSTD; 0304 01454000 * R1=PLISTREG; /* SET UP PARMLIST BASE */ 01455000 * 0305 01456000 LR R1,PLISTREG 0305 01457000 * /***************************************************************/ 01458000 * /* */ 01459000 * /* BRANCH TO COMMON LOGIC FOR ALL REQUIRED PROCESSING */ 01460000 * /* */ 01461000 * /***************************************************************/ 01462000 * 0306 01463000 * GO TO COMMON; 0306 01464000 B COMMON 0306 01465000 * RFY 0307 01466000 * (R14, 0307 01467000 * PLISTREG, 0307 01468000 * R1) UNRSTD; 0307 01469000 * END; 0308 01470000 *AHLREADN: 0309 01471000 * END AHLREADR 0309 01472000 * 0309 01473000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01474000 */*%INCLUDE SYSUT5 (PROLOG ) */ 01475000 */*%INCLUDE SYSUT5 (FL1STMTS) */ 01476000 */*%INCLUDE SYSUT5 (DECLS ) */ 01477000 */*%INCLUDE SYSLIB (CVT ) */ 01478000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 01479000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01480000 */*%INCLUDE SYSLIB (IHASRB ) */ 01481000 */*%INCLUDE SYSLIB (MCHEAD ) */ 01482000 */*%INCLUDE SYSLIB (MCCE ) */ 01483000 */*%INCLUDE SYSLIB (MCQE ) */ 01484000 */*%INCLUDE SYSLIB (GTFPCT ) */ 01485000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01486000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01487000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01488000 */*%INCLUDE SYSLIB (MCAWSA ) */ 01489000 */*%INCLUDE SYSUT5 (READR ) */ 01490000 */*%INCLUDE SYSUT5 (FRRERR ) */ 01491000 */*%INCLUDE SYSUT5 (XPOST1 ) */ 01492000 */*%INCLUDE SYSUT5 (XPOST2 ) */ 01493000 */*%INCLUDE SYSUT5 (PURGEMOD) */ 01494000 */*%INCLUDE SYSUT5 (PURGEMD2) */ 01495000 * 0309 01496000 * ; 0309 01497000 AHLREADN DS 0H 0309 01498000 @DATA DS 0H 01499000 @DATD DSECT 01500000 DS 0F 01501000 AHLREADR CSECT 01502000 DS 0F 01503000 @CF00052 DC F'4' 01504000 @CF01791 DC XL4'80000000' 01505000 @DATD DSECT 01506000 DS 0D 01507000 @ENDDATD EQU * 01508000 AHLREADR CSECT 01509000 NOPR ((@ENDDATD-@DATD)*16) 01510000 DS 0F 01511000 @SIZDATD DC AL1(0) 01512000 DC AL3(@ENDDATD-@DATD) 01513000 DS 0D 01514000 READBASE DC AL4(AHLREADR) 01515000 READRMOD DS CL8 01516000 ORG READRMOD 01517000 @NM00093 DC AL4(AHLREADR) 01518000 @NM00094 DS AL4 01519000 ORG @NM00094 01520000 @NM00095 DC X'80' 01521000 @NM00096 DC AL3(AHLREADN) 01522000 ORG READRMOD+8 01523000 RECID DC CL24'AHLREADRAHLREADRAHLRDFR ' 01524000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01525000 @01 EQU 01 01526000 @02 EQU 02 01527000 @03 EQU 03 01528000 @04 EQU 04 01529000 @05 EQU 05 01530000 @06 EQU 06 01531000 @07 EQU 07 01532000 @08 EQU 08 01533000 @09 EQU 09 01534000 @10 EQU 10 01535000 @11 EQU 11 01536000 @12 EQU 12 01537000 @13 EQU 13 01538000 @14 EQU 14 01539000 @15 EQU 15 01540000 SRBPTR EQU @01 01541000 PCTPTR EQU @08 01542000 SDWAPTR EQU @08 01543000 R0 EQU @00 01544000 R1 EQU @01 01545000 PLISTREG EQU @02 01546000 SAVER14 EQU @02 01547000 R3 EQU @03 01548000 CODERG EQU @04 01549000 R4 EQU @04 01550000 BASEREG EQU @05 01551000 MCQEPNT EQU @06 01552000 R9PARM EQU @09 01553000 POSTRTN EQU @10 01554000 FRRADDR EQU @11 01555000 POSTECB EQU @11 01556000 POSTERR EQU @12 01557000 R12WORK EQU @12 01558000 POSTASCB EQU @13 01559000 R14 EQU @14 01560000 R15ENTRY EQU @15 01561000 R15 EQU @15 01562000 GPR00P EQU @00 01563000 GPR01P EQU @01 01564000 GPR14P EQU @14 01565000 GPR15P EQU @15 01566000 AHLPPTR EQU @01 01567000 ENTRY AHLREAD2 01568000 ENTRY AHLRDCU3 01569000 ENTRY AHLRDXP1 01570000 ENTRY AHLRDFR 01571000 PSA EQU 0 01572000 FLCRNPSW EQU PSA 01573000 FLCROPSW EQU PSA+8 01574000 FLCICCW2 EQU PSA+16 01575000 FLCCVT EQU FLCICCW2 01576000 PSAEEPSW EQU PSA+132 01577000 PSAESPSW EQU PSA+136 01578000 FLCSVILC EQU PSAESPSW+1 01579000 PSAEPPSW EQU PSA+140 01580000 FLCPIILC EQU PSAEPPSW+1 01581000 FLCPICOD EQU PSAEPPSW+2 01582000 PSAPICOD EQU FLCPICOD+1 01583000 FLCTEA EQU PSAEPPSW+4 01584000 FLCPER EQU PSA+152 01585000 FLCMCLA EQU PSA+168 01586000 FLCIOEL EQU FLCMCLA+4 01587000 FLCIOA EQU FLCMCLA+16 01588000 FLCFSA EQU FLCMCLA+80 01589000 PSAAOLD EQU PSA+548 01590000 PSASUPER EQU PSA+552 01591000 PSASUP1 EQU PSASUPER 01592000 PSASUP2 EQU PSASUPER+1 01593000 PSASUP3 EQU PSASUPER+2 01594000 PSASUP4 EQU PSASUPER+3 01595000 PSACLHT EQU PSA+640 01596000 PSALKSA EQU PSA+696 01597000 PSAHLHI EQU PSA+760 01598000 PSALITA EQU PSA+764 01599000 PSADSSFL EQU PSA+836 01600000 PSADSSF1 EQU PSADSSFL 01601000 PSADSSF3 EQU PSADSSFL+2 01602000 PSADSSF4 EQU PSADSSFL+3 01603000 PSARSVT EQU PSA+896 01604000 PSALSFCC EQU PSA+1012 01605000 CVTMAP EQU 0 01606000 CVTDAR EQU CVTMAP+72 01607000 CVTFLGS1 EQU CVTDAR 01608000 CVTDCB EQU CVTMAP+116 01609000 CVT0PT01 EQU CVTMAP+152 01610000 CVTOPTA EQU CVTMAP+182 01611000 CVTOPTB EQU CVTMAP+183 01612000 CVTGTF EQU CVTMAP+236 01613000 CVTGTFST EQU CVTGTF 01614000 CVTGTFS EQU CVTGTFST 01615000 CVTSTATE EQU CVTGTFST 01616000 CVTTMODE EQU CVTGTFST 01617000 CVTFORM EQU CVTGTFST 01618000 CVTUSR EQU CVTGTFST 01619000 CVTAQAVT EQU CVTMAP+240 01620000 CVTTCMFG EQU CVTAQAVT 01621000 CVTVOLM2 EQU CVTMAP+244 01622000 CVTTATA EQU CVTVOLM2 01623000 CVTTSKS EQU CVTTATA 01624000 CVTVOLF2 EQU CVTTSKS 01625000 CVTTAT EQU CVTTATA+1 01626000 CVTATER EQU CVTMAP+248 01627000 CVTEXT1 EQU CVTMAP+252 01628000 CVTPURG EQU CVTMAP+260 01629000 CVTQMSG EQU CVTMAP+268 01630000 CVTDMSR EQU CVTMAP+272 01631000 CVTAPF EQU CVTMAP+324 01632000 CVTEXT2 EQU CVTMAP+328 01633000 CVTHJES EQU CVTMAP+332 01634000 CVTPGSIA EQU CVTMAP+348 01635000 CVTA1F1 EQU CVTMAP+356 01636000 CVTSYSK EQU CVTMAP+357 01637000 CVTVOLM1 EQU CVTMAP+380 01638000 CVTVOLF1 EQU CVTVOLM1 01639000 CVTATMCT EQU CVTMAP+388 01640000 CVTXTNT1 EQU 0 01641000 CVTXTNT2 EQU 0 01642000 CVTDSSV EQU CVTXTNT2 01643000 CVTRSV90 EQU CVTXTNT2+5 01644000 CVTQID EQU CVTXTNT2+24 01645000 CVTRV400 EQU CVTXTNT2+52 01646000 CVTRV409 EQU CVTXTNT2+53 01647000 CVTATCVT EQU CVTXTNT2+64 01648000 CVTRV429 EQU CVTXTNT2+84 01649000 CVTRV438 EQU CVTXTNT2+85 01650000 CVTRV457 EQU CVTXTNT2+112 01651000 CVTRV466 EQU CVTXTNT2+113 01652000 CVTFIX EQU 0 01653000 CVTRELNO EQU CVTFIX+252 01654000 WSAG EQU 0 01655000 WSAGGMFM EQU WSAG+4 01656000 SRBSECT EQU 0 01657000 SRB EQU SRBSECT 01658000 SRBFLC EQU SRB+12 01659000 SRBEP EQU SRB+20 01660000 SRBRMTR EQU SRB+24 01661000 MCHEAD EQU 0 01662000 MCHFLGS EQU MCHEAD+24 01663000 MCHFLG1 EQU MCHFLGS 01664000 MCHSETE EQU MCHEAD+28 01665000 MCHSETD EQU MCHEAD+32 01666000 MCCE EQU 0 01667000 MCCEQEA EQU MCCE+16 01668000 MCQE EQU 0 01669000 MCQENAME EQU MCQE+8 01670000 MCQEASCB EQU MCQE+16 01671000 MCQEMCQE EQU MCQE+20 01672000 MCQEAT EQU MCQE+32 01673000 MCQEFLGS EQU MCQE+41 01674000 GTFPCT EQU 0 01675000 GTFSTAT EQU GTFPCT+8 01676000 GTFOPTS EQU GTFPCT+12 01677000 GTFOPTS1 EQU GTFOPTS 01678000 GTFOPTS2 EQU GTFOPTS+1 01679000 GTFOPTS3 EQU GTFOPTS+2 01680000 GTFOPTS4 EQU GTFOPTS+3 01681000 PCTCATF EQU GTFPCT+16 01682000 NEXTBLOK EQU GTFPCT+180 01683000 AHLRDPLQ EQU GTFPCT+196 01684000 WRTRCOM EQU GTFPCT+204 01685000 TRMWRIT EQU GTFPCT+212 01686000 WRTRERR EQU GTFPCT+216 01687000 GTFSSRB EQU GTFPCT+220 01688000 QLOCKWRD EQU GTFPCT+236 01689000 QLOCKECB EQU GTFPCT+240 01690000 AUDITFLG EQU GTFPCT+296 01691000 GTFASCB EQU GTFPCT+300 01692000 FRRS EQU 0 01693000 FRRSHEAD EQU FRRS 01694000 FRRSEMP EQU FRRSHEAD 01695000 FRRSLAST EQU FRRSHEAD+4 01696000 FRRSELEN EQU FRRSHEAD+8 01697000 FRRSCURR EQU FRRSHEAD+12 01698000 FRRSPTR EQU 0 01699000 FRRSENTR EQU 0 01700000 FRRSFRRA EQU FRRSENTR 01701000 FRRSFLGS EQU FRRSENTR+4 01702000 FRRSFLG1 EQU FRRSFLGS 01703000 FRRSPARM EQU FRRSENTR+8 01704000 FRREPTR EQU 0 01705000 SDWA EQU 0 01706000 SDWAPARM EQU SDWA 01707000 SDWAFIOB EQU SDWA+4 01708000 SDWAABCC EQU SDWAFIOB 01709000 SDWACMPF EQU SDWAABCC 01710000 SDWACTL1 EQU SDWA+8 01711000 SDWACMKA EQU SDWACTL1 01712000 SDWAMWPA EQU SDWACTL1+1 01713000 SDWAPMKA EQU SDWACTL1+4 01714000 SDWACTL2 EQU SDWA+16 01715000 SDWACMKP EQU SDWACTL2 01716000 SDWAMWPP EQU SDWACTL2+1 01717000 SDWAPMKP EQU SDWACTL2+4 01718000 SDWAGRSV EQU SDWA+24 01719000 SDWANAME EQU SDWA+88 01720000 SDWAEC1 EQU SDWA+104 01721000 SDWAEMK1 EQU SDWAEC1 01722000 SDWAMWP1 EQU SDWAEC1+1 01723000 SDWAINT1 EQU SDWAEC1+2 01724000 SDWANXT1 EQU SDWAEC1+4 01725000 SDWAAEC1 EQU SDWA+112 01726000 SDWAILC1 EQU SDWAAEC1+1 01727000 SDWAINC1 EQU SDWAAEC1+2 01728000 SDWAICD1 EQU SDWAINC1+1 01729000 SDWAEC2 EQU SDWA+120 01730000 SDWAEMK2 EQU SDWAEC2 01731000 SDWAMWP2 EQU SDWAEC2+1 01732000 SDWAINT2 EQU SDWAEC2+2 01733000 SDWANXT2 EQU SDWAEC2+4 01734000 SDWAAEC2 EQU SDWA+128 01735000 SDWAILC2 EQU SDWAAEC2+1 01736000 SDWAINC2 EQU SDWAAEC2+2 01737000 SDWAICD2 EQU SDWAINC2+1 01738000 SDWASRSV EQU SDWA+136 01739000 SDWAIDNT EQU SDWA+200 01740000 SDWAMCH EQU SDWA+204 01741000 SDWASTCK EQU SDWAMCH 01742000 SDWAMCHI EQU SDWAMCH+8 01743000 SDWAMCHS EQU SDWAMCHI 01744000 SDWAMCHD EQU SDWAMCHI+1 01745000 SDWAREGU EQU SDWAMCHD 01746000 SDWAPSWU EQU SDWAMCHD 01747000 SDWAINSF EQU SDWAMCHD 01748000 SDWARSR1 EQU SDWAMCH+12 01749000 SDWARSR2 EQU SDWAMCH+13 01750000 SDWAFLGS EQU SDWA+232 01751000 SDWAERRA EQU SDWAFLGS 01752000 SDWAMCHK EQU SDWAERRA 01753000 SDWAERRB EQU SDWAFLGS+1 01754000 SDWAERRC EQU SDWAFLGS+2 01755000 SDWAERRD EQU SDWAFLGS+3 01756000 SDWAIOFS EQU SDWA+238 01757000 SDWARTYA EQU SDWA+240 01758000 SDWACPUA EQU SDWA+248 01759000 SDWAPARQ EQU SDWA+252 01760000 SDWARCDE EQU SDWAPARQ 01761000 SDWAACF2 EQU SDWAPARQ+1 01762000 SDWARCRD EQU SDWAACF2 01763000 SDWAACF3 EQU SDWAPARQ+2 01764000 SDWAACF4 EQU SDWAPARQ+3 01765000 SDWALKWA EQU SDWA+256 01766000 SDWALKWS EQU SDWALKWA 01767000 SDWARECP EQU SDWA+292 01768000 SDWASNPA EQU SDWA+320 01769000 SDWADUMP EQU SDWASNPA 01770000 SDWADPFS EQU SDWADUMP+1 01771000 SDWADDAT EQU SDWASNPA+4 01772000 SDWASDAT EQU SDWADDAT 01773000 SDWAPDAT EQU SDWADDAT+2 01774000 SDWADPSA EQU SDWA+328 01775000 SDWADPSL EQU SDWADPSA 01776000 SDWARA EQU SDWA+400 01777000 SDWADPVA EQU SDWARA+2 01778000 ASCB EQU 0 01779000 ASCBASID EQU ASCB+36 01780000 ASCBFW1 EQU ASCB+100 01781000 ASCBRCTF EQU ASCBFW1+2 01782000 ASCBFLG1 EQU ASCBFW1+3 01783000 ASCBDSP1 EQU ASCB+114 01784000 ASCBFLG2 EQU ASCB+115 01785000 ASCBPTR EQU 0 01786000 MCAWSA EQU 0 01787000 MCATRAIL EQU MCAWSA+256 01788000 MCATRL1 EQU MCATRAIL 01789000 MCATRL2 EQU MCATRAIL+1 01790000 MCATRL3 EQU MCATRAIL+2 01791000 MCATRL4 EQU MCATRAIL+3 01792000 MCATRL5 EQU MCATRAIL+4 01793000 MCATRL6 EQU MCATRAIL+5 01794000 MCATRL7 EQU MCATRAIL+6 01795000 AWSAPTR EQU 0 01796000 FRRPARM EQU 0 01797000 ECBSAVE EQU FRRPARM 01798000 SAVESRB EQU FRRPARM+4 01799000 MCCESAVE EQU FRRPARM+8 01800000 GMANSAVE EQU FRRPARM+12 01801000 FRRTRAIL EQU FRRPARM+16 01802000 MCENQD EQU FRRTRAIL 01803000 LOCHELD EQU FRRTRAIL 01804000 SLOCHELD EQU FRRTRAIL 01805000 POSTDONE EQU FRRTRAIL 01806000 RTNSAVE EQU FRRPARM+20 01807000 AHLRDPL EQU 0 01808000 AHLCHAIN EQU AHLRDPL 01809000 AHLRDID EQU AHLRDPL+4 01810000 AHLRDDID EQU AHLRDPL+14 01811000 AHLRDECB EQU AHLRDPL+20 01812000 AHLRDASC EQU AHLRDPL+28 01813000 AHLPCOD EQU AHLRDPL+32 01814000 AHLRDSRB EQU AHLRDPL+36 01815000 ACRADDR EQU 0 01816000 SRBADDR EQU 0 01817000 CLRPARM EQU 0 01818000 I256C EQU 0 01819000 AHLSETD EQU 0 01820000 SEPL EQU 0 01821000 AHLSETEV EQU 0 01822000 CVTPTR EQU FLCCVT 01823000 CVTS01 EQU CVTPGSIA 01824000 CVTLPDIA EQU CVTS01+12 01825000 CVTDIRST EQU CVTLPDIA 01826000 CVTSLIDA EQU CVTS01+24 01827000 CVTCTLFG EQU CVTS01+50 01828000 CVTSDMP EQU CVTS01+232 01829000 CVTGLMN EQU CVTS01+332 01830000 CVTSPSA EQU CVTS01+336 01831000 CVTRV210 EQU CVTS01+424 01832000 CVTRV219 EQU CVTS01+425 01833000 CVTRV228 EQU CVTS01+426 01834000 CVTRV237 EQU CVTS01+427 01835000 CVTMFRTR EQU CVTS01+452 01836000 CVTRV262 EQU CVTS01+468 01837000 CVTRV271 EQU CVTS01+469 01838000 CVTRV280 EQU CVTS01+470 01839000 CVTRV289 EQU CVTS01+471 01840000 CVT0PT02 EQU CVTS01+532 01841000 CVTGSDA EQU CVTS01+600 01842000 FLC EQU PSA 01843000 PSARSVTE EQU PSARSVT 01844000 PSACSTK EQU PSARSVTE 01845000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01846000 PSARSAV EQU PSARSVTE+60 01847000 PSARSTK EQU PSARSVTE+56 01848000 PSAESAV3 EQU PSARSVTE+52 01849000 PSAESTK3 EQU PSARSVTE+48 01850000 PSAESAV2 EQU PSARSVTE+44 01851000 PSAESTK2 EQU PSARSVTE+40 01852000 PSAESAV1 EQU PSARSVTE+36 01853000 PSAESTK1 EQU PSARSVTE+32 01854000 PSAPSAV EQU PSARSVTE+28 01855000 PSAPSTK EQU PSARSVTE+24 01856000 PSAMSAV EQU PSARSVTE+20 01857000 PSAMSTK EQU PSARSVTE+16 01858000 PSASSAV EQU PSARSVTE+12 01859000 PSASSTK EQU PSARSVTE+8 01860000 PSANSTK EQU PSARSVTE+4 01861000 CVTTPIO EQU CVTS01+608 01862000 CVTADV EQU CVTS01+604 01863000 CVTGSDAB EQU CVTGSDA 01864000 CVTQV3 EQU CVTS01+596 01865000 CVTQV2 EQU CVTS01+592 01866000 CVTQV1 EQU CVTS01+588 01867000 CVTRPT EQU CVTS01+584 01868000 CVTSSRB EQU CVTS01+580 01869000 CVTCSDRL EQU CVTS01+576 01870000 CVTEXP1 EQU CVTS01+572 01871000 CVTRMPMT EQU CVTS01+568 01872000 CVTRMPTT EQU CVTS01+564 01873000 CVTVPSA EQU CVTS01+560 01874000 CVTVSTOP EQU CVTS01+556 01875000 CVTGTFR8 EQU CVTS01+552 01876000 CVTQUIT EQU CVTS01+548 01877000 CVTVACR EQU CVTS01+544 01878000 CVTWTCB EQU CVTS01+540 01879000 CVTSTPRS EQU CVTS01+536 01880000 CVTDARCM EQU CVTS01+528 01881000 CVTIRECM EQU CVTS01+524 01882000 CVTJRECM EQU CVTS01+520 01883000 CVTVEMS0 EQU CVTS01+516 01884000 CVTSPFRR EQU CVTS01+512 01885000 CVTRLSTG EQU CVTS01+508 01886000 CVT0TC0A EQU CVTS01+504 01887000 CVTGMBR EQU CVTS01+500 01888000 CVTLFRM EQU CVTS01+496 01889000 CVTRMBR EQU CVTS01+492 01890000 CVTVIOP EQU CVTS01+488 01891000 CVTRV307 EQU CVTS01+486 01892000 CVTRV306 EQU CVTS01+484 01893000 CVTRV305 EQU CVTS01+482 01894000 CVTRV304 EQU CVTS01+480 01895000 CVTRV303 EQU CVTS01+478 01896000 CVTRV302 EQU CVTS01+476 01897000 CVTRV301 EQU CVTS01+475 01898000 CVTRV300 EQU CVTS01+474 01899000 CVTRV299 EQU CVTS01+473 01900000 CVTRV298 EQU CVTS01+472 01901000 CVTRV297 EQU CVTRV289 01902000 CVTRV296 EQU CVTRV289 01903000 CVTRV295 EQU CVTRV289 01904000 CVTRV294 EQU CVTRV289 01905000 CVTRV293 EQU CVTRV289 01906000 CVTRV292 EQU CVTRV289 01907000 CVTRV291 EQU CVTRV289 01908000 CVTRV290 EQU CVTRV289 01909000 CVTRV288 EQU CVTRV280 01910000 CVTRV287 EQU CVTRV280 01911000 CVTRV286 EQU CVTRV280 01912000 CVTRV285 EQU CVTRV280 01913000 CVTRV284 EQU CVTRV280 01914000 CVTRV283 EQU CVTRV280 01915000 CVTRV282 EQU CVTRV280 01916000 CVTRV281 EQU CVTRV280 01917000 CVTRV279 EQU CVTRV271 01918000 CVTRV278 EQU CVTRV271 01919000 CVTRV277 EQU CVTRV271 01920000 CVTRV276 EQU CVTRV271 01921000 CVTRV275 EQU CVTRV271 01922000 CVTRV274 EQU CVTRV271 01923000 CVTRV273 EQU CVTRV271 01924000 CVTRV272 EQU CVTRV271 01925000 CVTRV270 EQU CVTRV262 01926000 CVTRV269 EQU CVTRV262 01927000 CVTRV268 EQU CVTRV262 01928000 CVTRV267 EQU CVTRV262 01929000 CVTRV266 EQU CVTRV262 01930000 CVTRV265 EQU CVTRV262 01931000 CVTRV264 EQU CVTRV262 01932000 CVTRV263 EQU CVTRV262 01933000 CVTVFP EQU CVTS01+464 01934000 CVTVSI EQU CVTS01+460 01935000 CVTVPSIB EQU CVTS01+456 01936000 CVTMFACT EQU CVTMFRTR 01937000 CVTMFCTL EQU CVTS01+448 01938000 CVTPVBP EQU CVTS01+444 01939000 CVTPWI EQU CVTS01+440 01940000 CVTRV254 EQU CVTS01+438 01941000 CVTRV253 EQU CVTS01+436 01942000 CVTRV252 EQU CVTS01+434 01943000 CVTRV251 EQU CVTS01+433 01944000 CVTRV250 EQU CVTS01+432 01945000 CVTRV249 EQU CVTS01+431 01946000 CVTRV248 EQU CVTS01+430 01947000 CVTRV247 EQU CVTS01+429 01948000 CVTRV246 EQU CVTS01+428 01949000 CVTRV245 EQU CVTRV237 01950000 CVTRV244 EQU CVTRV237 01951000 CVTRV243 EQU CVTRV237 01952000 CVTRV242 EQU CVTRV237 01953000 CVTRV241 EQU CVTRV237 01954000 CVTRV240 EQU CVTRV237 01955000 CVTRV239 EQU CVTRV237 01956000 CVTRV238 EQU CVTRV237 01957000 CVTRV236 EQU CVTRV228 01958000 CVTRV235 EQU CVTRV228 01959000 CVTRV234 EQU CVTRV228 01960000 CVTRV233 EQU CVTRV228 01961000 CVTRV232 EQU CVTRV228 01962000 CVTRV231 EQU CVTRV228 01963000 CVTRV230 EQU CVTRV228 01964000 CVTRV229 EQU CVTRV228 01965000 CVTRV227 EQU CVTRV219 01966000 CVTRV226 EQU CVTRV219 01967000 CVTRV225 EQU CVTRV219 01968000 CVTRV224 EQU CVTRV219 01969000 CVTRV223 EQU CVTRV219 01970000 CVTRV222 EQU CVTRV219 01971000 CVTRV221 EQU CVTRV219 01972000 CVTRV220 EQU CVTRV219 01973000 CVTRV218 EQU CVTRV210 01974000 CVTRV217 EQU CVTRV210 01975000 CVTRV216 EQU CVTRV210 01976000 CVTRV215 EQU CVTRV210 01977000 CVTRV214 EQU CVTRV210 01978000 CVTRV213 EQU CVTRV210 01979000 CVTRV212 EQU CVTRV210 01980000 CVTRV211 EQU CVTRV210 01981000 CVTLCCAT EQU CVTS01+420 01982000 CVTPCCAT EQU CVTS01+416 01983000 CVTIPCRP EQU CVTS01+412 01984000 CVTIPCRI EQU CVTS01+408 01985000 CVTIPCDS EQU CVTS01+404 01986000 CVTAIDVT EQU CVTS01+400 01987000 CVTSSAP EQU CVTS01+396 01988000 CVTEHCIR EQU CVTS01+392 01989000 CVTEHDEF EQU CVTS01+388 01990000 CVTDAIR EQU CVTS01+384 01991000 CVTPERFM EQU CVTS01+380 01992000 CVT044R2 EQU CVTS01+376 01993000 CVTFETCH EQU CVTS01+372 01994000 CVTRSTWD EQU CVTS01+368 01995000 CVTSPOST EQU CVTS01+364 01996000 CVTIOBP EQU CVTS01+360 01997000 CVTASMVT EQU CVTS01+356 01998000 CVTRECRQ EQU CVTS01+352 01999000 CVTWSAC EQU CVTS01+348 02000000 CVTWSAG EQU CVTS01+344 02001000 CVTWSAL EQU CVTS01+340 02002000 CVTVEAC0 EQU CVTS01+328 02003000 CVT062R1 EQU CVTS01+324 02004000 CVTRPOST EQU CVTS01+320 02005000 CVTDQIQE EQU CVTS01+316 02006000 CVTCSD EQU CVTS01+312 02007000 CVTLKRMA EQU CVTS01+308 02008000 CVTRSPIE EQU CVTS01+304 02009000 CVTRENQ EQU CVTS01+300 02010000 CVTLQCB EQU CVTS01+296 02011000 CVTFQCB EQU CVTS01+292 02012000 CVTQCS01 EQU CVTS01+288 02013000 CVTAPFT EQU CVTS01+284 02014000 CVTPARRL EQU CVTS01+280 02015000 CVTVWAIT EQU CVTS01+276 02016000 CVTGSPL EQU CVTS01+272 02017000 CVTLSMQ EQU CVTS01+268 02018000 CVTGSMQ EQU CVTS01+264 02019000 CVTEXPRO EQU CVTS01+260 02020000 CVTOPCTP EQU CVTS01+256 02021000 CVTSIC EQU CVTS01+252 02022000 CVTTPIOS EQU CVTS01+248 02023000 CVTRTMS EQU CVTS01+244 02024000 CVTSDBF EQU CVTS01+240 02025000 CVTSCBP EQU CVTS01+236 02026000 CVTSV60 EQU CVTS01+228 02027000 CVTRTMCT EQU CVTS01+224 02028000 CVTASCBL EQU CVTS01+220 02029000 CVTASCBH EQU CVTS01+216 02030000 CVTGDA EQU CVTS01+212 02031000 CVTASVT EQU CVTS01+208 02032000 CVTVVMDI EQU CVTS01+204 02033000 CVTAQTOP EQU CVTS01+200 02034000 CVTIOSCS EQU CVTS01+196 02035000 CVTSDRM EQU CVTS01+192 02036000 CVTOPTE EQU CVTS01+188 02037000 CVTSTXU EQU CVTS01+184 02038000 CVTQUIS EQU CVTS01+180 02039000 CVTPARS EQU CVTS01+176 02040000 CVTS1EE EQU CVTS01+172 02041000 CVTFRAS EQU CVTS01+168 02042000 CVTQSAS EQU CVTS01+164 02043000 CVTCRAS EQU CVTS01+160 02044000 CVTCRMN EQU CVTS01+156 02045000 CVTDELCP EQU CVTS01+152 02046000 CVTFRECL EQU CVTS01+148 02047000 CVTGETCL EQU CVTS01+144 02048000 CVTBLDCP EQU CVTS01+140 02049000 CVTAUTHL EQU CVTS01+136 02050000 CVTSCAN EQU CVTS01+132 02051000 CVTRV144 EQU CVTS01+130 02052000 CVTMAXMP EQU CVTS01+128 02053000 CVTSTCK EQU CVTS01+124 02054000 CVTRV139 EQU CVTS01+123 02055000 CVTDSSAC EQU CVTS01+122 02056000 CVTRV513 EQU CVTS01+121 02057000 CVTIOSPL EQU CVTS01+120 02058000 CVTPTGT EQU CVTS01+116 02059000 CVTCSPIE EQU CVTS01+112 02060000 CVTSMFEX EQU CVTS01+108 02061000 CVTOLT0A EQU CVTS01+104 02062000 CVTSRBRT EQU CVTS01+100 02063000 CVTPUTL EQU CVTS01+96 02064000 CVTSYSWT EQU CVTS01+92 02065000 CVTRV327 EQU CVTS01+88 02066000 CVTRV326 EQU CVTS01+84 02067000 CVTRV325 EQU CVTS01+80 02068000 CVTRV324 EQU CVTS01+76 02069000 CVT0VL01 EQU CVTS01+72 02070000 CVTSHRVM EQU CVTS01+68 02071000 CVTRV332 EQU CVTS01+64 02072000 CVTTAS EQU CVTS01+60 02073000 CVTRSCN EQU CVTS01+56 02074000 CVTTRAC2 EQU CVTS01+54 02075000 CVTTRACE EQU CVTS01+52 02076000 CVTAPG EQU CVTS01+51 02077000 CVTSDTRC EQU CVTCTLFG 02078000 CVTGTRCE EQU CVTCTLFG 02079000 CVTNOMP EQU CVTCTLFG 02080000 CVTRSV79 EQU CVTCTLFG 02081000 CVTDSTAT EQU CVTCTLFG 02082000 CVTRSV78 EQU CVTCTLFG 02083000 CVTRV333 EQU CVTCTLFG 02084000 CVTRV323 EQU CVTCTLFG 02085000 CVTSPVLK EQU CVTS01+49 02086000 CVTRSV77 EQU CVTS01+48 02087000 CVTRV331 EQU CVTS01+44 02088000 CVTRV330 EQU CVTS01+40 02089000 CVTRV329 EQU CVTS01+36 02090000 CVTRV328 EQU CVTS01+32 02091000 CVTRV322 EQU CVTS01+28 02092000 CVTSLID EQU CVTSLIDA+1 02093000 CVTSYLK EQU CVTSLIDA 02094000 CVTRV321 EQU CVTS01+20 02095000 CVTRV320 EQU CVTS01+16 02096000 CVTLPDIR EQU CVTLPDIA+1 02097000 CVTRSV69 EQU CVTDIRST 02098000 CVTRSV68 EQU CVTDIRST 02099000 CVTRSV67 EQU CVTDIRST 02100000 CVTRSV66 EQU CVTDIRST 02101000 CVTRSV65 EQU CVTDIRST 02102000 CVTRSV64 EQU CVTDIRST 02103000 CVTRSV63 EQU CVTDIRST 02104000 CVTDICOM EQU CVTDIRST 02105000 CVTPVTP EQU CVTS01+8 02106000 CVTLPDSR EQU CVTS01+4 02107000 CVTGETL EQU CVTS01 02108000 SEMC EQU SEPL+20 02109000 SECL EQU SEPL+16 02110000 SEEL EQU SEPL+12 02111000 SENM EQU SEPL+4 02112000 SECN EQU SEPL+3 02113000 SEEN EQU SEPL+2 02114000 @NM00097 EQU SEPL+1 02115000 SEFG EQU SEPL 02116000 AHLRDATA EQU AHLRDPL+24 02117000 AHLRDTCB EQU AHLRDDID+2 02118000 AHLR$ASI EQU AHLRDDID 02119000 @NM00092 EQU AHLRDPL+12 02120000 MCASWORK EQU MCAWSA+644 02121000 MCAWORK EQU MCAWSA+584 02122000 MCAREC EQU MCAWSA+284 02123000 MCARECPR EQU MCAWSA+268 02124000 MCAMCR EQU MCAWSA+264 02125000 MCATRL8 EQU MCATRAIL+7 02126000 MCAFRECT EQU MCATRL7 02127000 MCAFRECC EQU MCATRL7 02128000 MCAFRESP EQU MCATRL7 02129000 MCAFREXJ EQU MCATRL7 02130000 MCAFRSBR EQU MCATRL6 02131000 MCAFRDMJ EQU MCATRL6 02132000 MCAFRDPC EQU MCATRL6 02133000 MCAFRPIC EQU MCATRL6 02134000 MCAFRPIJ EQU MCATRL6 02135000 @NM00091 EQU MCATRL5 02136000 MCADREGS EQU MCATRL5 02137000 MCAFRRB EQU MCATRL5 02138000 MCAFRRJ EQU MCATRL5 02139000 MCAFRRA EQU MCATRL5 02140000 MCAFRERT EQU MCATRL5 02141000 MCAFREPC EQU MCATRL5 02142000 MCAMJOBN EQU MCATRL4 02143000 MCAMSDWA EQU MCATRL4 02144000 MCAMBTU EQU MCATRL4 02145000 MCAMIOSB EQU MCATRL4 02146000 MCAMTCB EQU MCATRL4 02147000 MCAMASCB EQU MCATRL4 02148000 MCAMUCB EQU MCATRL4 02149000 MCAMEXT EQU MCATRL4 02150000 MCAFRFRT EQU MCATRL3 02151000 MCAFRFA EQU MCATRL3 02152000 MCAFRSJ EQU MCATRL3 02153000 MCAFRSA EQU MCATRL3 02154000 MCAPIF EQU MCATRL3 02155000 MCASIOF EQU MCATRL3 02156000 MCAIOF EQU MCATRL3 02157000 MCASVCF EQU MCATRL3 02158000 MCATDIR EQU MCATRL2 02159000 MCALSR EQU MCATRL2 02160000 MCAERROR EQU MCATRL2 02161000 MCAUIO EQU MCATRL2 02162000 MCASTA EQU MCATRL2 02163000 MCAFRR EQU MCATRL2 02164000 MCASRM EQU MCATRL2 02165000 MCARNIO EQU MCATRL2 02166000 MCAUSR EQU MCATRL1 02167000 MCAPI EQU MCATRL1 02168000 MCASRB EQU MCATRL1 02169000 MCADSP EQU MCATRL1 02170000 MCASIO EQU MCATRL1 02171000 MCAIO EQU MCATRL1 02172000 MCAEXT EQU MCATRL1 02173000 MCASVC EQU MCATRL1 02174000 MCAMSG EQU MCAWSA+192 02175000 MCASETEV EQU MCAWSA+128 02176000 MCAFWORK EQU MCAWSA+112 02177000 MCASFEOB EQU MCAWSA+56 02178000 MCASBLOK EQU MCAWSA 02179000 ASCBEND EQU ASCB+208 02180000 ASCBSRBT EQU ASCB+200 02181000 ASCBSWTL EQU ASCB+196 02182000 ASCBRS14 EQU ASCB+195 02183000 ASCBSMCT EQU ASCB+194 02184000 ASCBRS12 EQU ASCB+192 02185000 ASCBPCTT EQU ASCB+188 02186000 ASCBVGTT EQU ASCB+184 02187000 ASCBLGCB EQU ASCB+180 02188000 ASCBJBNS EQU ASCB+176 02189000 ASCBJBNI EQU ASCB+172 02190000 ASCBMCC EQU ASCB+168 02191000 ASCBRTWA EQU ASCB+164 02192000 ASCBIQEA EQU ASCB+160 02193000 ASCBXMPQ EQU ASCB+156 02194000 ASCBRS01 EQU ASCB+154 02195000 ASCBFMCT EQU ASCB+152 02196000 ASCBOUXB EQU ASCB+148 02197000 ASCBOUCB EQU ASCB+144 02198000 ASCBMECB EQU ASCB+140 02199000 ASCBQECB EQU ASCB+136 02200000 ASCBCMSB EQU ASCB+132 02201000 ASCBCMSF EQU ASCB+128 02202000 ASCBTCBS EQU ASCB+124 02203000 ASCBNVSC EQU ASCB+122 02204000 ASCBVSC EQU ASCB+120 02205000 ASCBSRBS EQU ASCB+118 02206000 ASCBSSRB EQU ASCB+116 02207000 ASCBRV06 EQU ASCBFLG2 02208000 ASCBRV05 EQU ASCBFLG2 02209000 ASCBRV04 EQU ASCBFLG2 02210000 ASCBSNQS EQU ASCBFLG2 02211000 ASCBS2S EQU ASCBFLG2 02212000 ASCBCEXT EQU ASCBFLG2 02213000 ASCBPXMT EQU ASCBFLG2 02214000 ASCBXMPT EQU ASCBFLG2 02215000 ASCBRF07 EQU ASCBDSP1 02216000 ASCBRF06 EQU ASCBDSP1 02217000 ASCBRF05 EQU ASCBDSP1 02218000 ASCBRF04 EQU ASCBDSP1 02219000 ASCBRF03 EQU ASCBDSP1 02220000 ASCBRF02 EQU ASCBDSP1 02221000 ASCBFAIL EQU ASCBDSP1 02222000 ASCBNOQ EQU ASCBDSP1 02223000 ASCBSWCT EQU ASCB+112 02224000 ASCBASXB EQU ASCB+108 02225000 ASCBTMCH EQU ASCB+104 02226000 ASCBNSWP EQU ASCBFLG1 02227000 ASCBTYP1 EQU ASCBFLG1 02228000 ASCBSTND EQU ASCBFLG1 02229000 ASCBABNT EQU ASCBFLG1 02230000 ASCBTERM EQU ASCBFLG1 02231000 ASCBS3S EQU ASCBFLG1 02232000 ASCBCMSH EQU ASCBFLG1 02233000 ASCBTOFF EQU ASCBFLG1 02234000 ASCBRF01 EQU ASCBRCTF 02235000 ASCBTMLW EQU ASCBRCTF 02236000 ASCBOUT EQU ASCBRCTF 02237000 ASCBWAIT EQU ASCBRCTF 02238000 ASCBRV08 EQU ASCBRCTF 02239000 ASCBFQU EQU ASCBRCTF 02240000 ASCBFRS EQU ASCBRCTF 02241000 ASCBTMNO EQU ASCBRCTF 02242000 ASCBAFFN EQU ASCBFW1 02243000 ASCBDUMP EQU ASCB+96 02244000 ASCBQSVC EQU ASCB+92 02245000 ASCBUBET EQU ASCB+88 02246000 ASCBECB EQU ASCB+84 02247000 ASCBJSTL EQU ASCB+80 02248000 ASCBEWST EQU ASCB+72 02249000 ASCBEJST EQU ASCB+64 02250000 ASCBTSB EQU ASCB+60 02251000 ASCBCSCB EQU ASCB+56 02252000 ASCBRSM EQU ASCB+52 02253000 ASCBLDA EQU ASCB+48 02254000 ASCBSTOR EQU ASCB+44 02255000 ASCBDP EQU ASCB+43 02256000 ASCBRV07 EQU ASCB+42 02257000 ASCBIOSM EQU ASCB+40 02258000 ASCBSEQN EQU ASCB+38 02259000 ASCBCPUS EQU ASCB+32 02260000 ASCBSPL EQU ASCB+28 02261000 ASCBLSLQ EQU ASCB+24 02262000 ASCBFSLQ EQU ASCB+20 02263000 ASCBIOSP EQU ASCB+16 02264000 ASCBLOCK EQU ASCB+12 02265000 ASCBBWDP EQU ASCB+8 02266000 ASCBFWDP EQU ASCB+4 02267000 ASCBASCB EQU ASCB 02268000 ASCBEGIN EQU ASCB 02269000 @NM00090 EQU SDWA+512 02270000 SDWAVRA EQU SDWARA+4 02271000 SDWAURAL EQU SDWARA+3 02272000 @NM00089 EQU SDWADPVA 02273000 SDWAEBC EQU SDWADPVA 02274000 SDWAHEX EQU SDWADPVA 02275000 SDWAVRAL EQU SDWARA 02276000 @NM00088 EQU SDWA+396 02277000 SDWACOMP EQU SDWA+392 02278000 SDWARCPL EQU SDWA+364 02279000 @NM00087 EQU SDWADPSA+32 02280000 SDWATO4 EQU SDWADPSL+28 02281000 SDWAFRM4 EQU SDWADPSL+24 02282000 SDWATO3 EQU SDWADPSL+20 02283000 SDWAFRM3 EQU SDWADPSL+16 02284000 SDWATO2 EQU SDWADPSL+12 02285000 SDWAFRM2 EQU SDWADPSL+8 02286000 SDWATO1 EQU SDWADPSL+4 02287000 SDWAFRM1 EQU SDWADPSL 02288000 @NM00086 EQU SDWADDAT+3 02289000 @NM00085 EQU SDWAPDAT 02290000 SDWAUSPL EQU SDWAPDAT 02291000 SDWADPSW EQU SDWAPDAT 02292000 SDWATJPA EQU SDWAPDAT 02293000 SDWATLPA EQU SDWAPDAT 02294000 SDWADREG EQU SDWAPDAT 02295000 SDWADSAH EQU SDWAPDAT 02296000 SDWADSAS EQU SDWAPDAT 02297000 @NM00084 EQU SDWADDAT+1 02298000 @NM00083 EQU SDWASDAT 02299000 SDWAQQS EQU SDWASDAT 02300000 SDWACBS EQU SDWASDAT 02301000 SDWAGTF EQU SDWASDAT 02302000 SDWASWA EQU SDWASDAT 02303000 SDWALSQA EQU SDWASDAT 02304000 SDWASQA EQU SDWASDAT 02305000 SDWANUC EQU SDWASDAT 02306000 @NM00082 EQU SDWADUMP+2 02307000 @NM00081 EQU SDWADPFS 02308000 SDWASLST EQU SDWADPFS 02309000 @NM00080 EQU SDWADPFS 02310000 SDWADLST EQU SDWADPFS 02311000 SDWADPT EQU SDWADPFS 02312000 SDWADPID EQU SDWADUMP 02313000 SDWADPLA EQU SDWA+316 02314000 SDWAREXN EQU SDWARECP+16 02315000 SDWACSCT EQU SDWARECP+8 02316000 SDWAMODN EQU SDWARECP 02317000 @NM00079 EQU SDWALKWA+32 02318000 SDWATALW EQU SDWALKWS+28 02319000 SDWATDLW EQU SDWALKWS+24 02320000 SDWATNLW EQU SDWALKWS+20 02321000 SDWAAPLW EQU SDWALKWS+16 02322000 SDWAIPLW EQU SDWALKWS+12 02323000 SDWAILLW EQU SDWALKWS+8 02324000 SDWAIULW EQU SDWALKWS+4 02325000 SDWAICLW EQU SDWALKWS 02326000 SDWAFLLK EQU SDWAACF4 02327000 SDWACMS EQU SDWAACF4 02328000 SDWAOPTM EQU SDWAACF4 02329000 SDWATADB EQU SDWAACF4 02330000 SDWATDNB EQU SDWAACF4 02331000 SDWATNCB EQU SDWAACF4 02332000 SDWAILCH EQU SDWAACF4 02333000 SDWAIUCB EQU SDWAACF4 02334000 SDWAICAT EQU SDWAACF3 02335000 SDWAIPRG EQU SDWAACF3 02336000 SDWASALL EQU SDWAACF3 02337000 SDWAASMP EQU SDWAACF3 02338000 SDWADISP EQU SDWAACF3 02339000 @NM00078 EQU SDWAACF3 02340000 @NM00077 EQU SDWAACF2 02341000 SDWAFREE EQU SDWAACF2 02342000 SDWAUPRG EQU SDWAACF2 02343000 @NM00076 EQU SDWAACF2 02344000 SDWASPIN EQU SDWAACF2 02345000 @NM00075 EQU SDWAACF2 02346000 SDWALCPU EQU SDWACPUA+2 02347000 @NM00074 EQU SDWACPUA 02348000 SDWARECA EQU SDWA+244 02349000 @NM00073 EQU SDWA+239 02350000 @NM00072 EQU SDWAIOFS 02351000 SDWANIOP EQU SDWAIOFS 02352000 SDWANOIO EQU SDWAIOFS 02353000 SDWAIOHT EQU SDWAIOFS 02354000 SDWAIOQR EQU SDWAIOFS 02355000 SDWAFMID EQU SDWA+236 02356000 @NM00071 EQU SDWAERRD 02357000 SDWAMCIV EQU SDWAERRD 02358000 SDWARPIV EQU SDWAERRD 02359000 SDWAMABD EQU SDWAERRD 02360000 SDWACTS EQU SDWAERRD 02361000 SDWASTAE EQU SDWAERRD 02362000 SDWANRBE EQU SDWAERRD 02363000 SDWACLUP EQU SDWAERRD 02364000 @NM00070 EQU SDWAERRC 02365000 SDWAEAS EQU SDWAERRC 02366000 SDWAPERC EQU SDWAERRC 02367000 SDWAIRB EQU SDWAERRC 02368000 SDWASTAI EQU SDWAERRC 02369000 SDWASTAF EQU SDWAERRC 02370000 SDWASRBM EQU SDWAERRB 02371000 SDWALDIS EQU SDWAERRB 02372000 SDWAENRB EQU SDWAERRB 02373000 SDWATYP1 EQU SDWAERRB 02374000 @NM00069 EQU SDWAERRB 02375000 SDWAPGIO EQU SDWAERRA 02376000 SDWATEXC EQU SDWAERRA 02377000 SDWASVCE EQU SDWAERRA 02378000 SDWAABTM EQU SDWAERRA 02379000 SDWASVCD EQU SDWAERRA 02380000 SDWARKEY EQU SDWAERRA 02381000 SDWAPCHK EQU SDWAERRA 02382000 SDWATIME EQU SDWAMCH+20 02383000 SDWARFSA EQU SDWAMCH+16 02384000 @NM00068 EQU SDWAMCH+14 02385000 SDWAVEQR EQU SDWARSR2 02386000 SDWAPGFX EQU SDWARSR2 02387000 SDWAFLSQ EQU SDWARSR2 02388000 SDWAFSQA EQU SDWARSR2 02389000 SDWANUCL EQU SDWARSR2 02390000 SDWASPER EQU SDWARSR2 02391000 SDWAINTC EQU SDWARSR2 02392000 SDWAOFLN EQU SDWARSR2 02393000 SDWACHNG EQU SDWARSR1 02394000 SDWAMSER EQU SDWARSR1 02395000 @NM00067 EQU SDWARSR1 02396000 SDWACPID EQU SDWAMCH+10 02397000 SDWATERR EQU SDWAMCHD 02398000 SDWAFPRX EQU SDWAMCHD 02399000 SDWAACR EQU SDWAMCHD 02400000 SDWASCK EQU SDWAMCHD 02401000 SDWASKYF EQU SDWAMCHD 02402000 @NM00066 EQU SDWAMCHS 02403000 SDWARSRF EQU SDWAMCHS 02404000 SDWARSRC EQU SDWAMCHS 02405000 SDWAINVP EQU SDWAMCHS 02406000 SDWATSVL EQU SDWAMCHS 02407000 SDWARCDF EQU SDWAMCHS 02408000 SDWASRVL EQU SDWAMCHS 02409000 SDWASCKE EQU SDWASTCK+4 02410000 SDWASCKB EQU SDWASTCK 02411000 SDWALNTH EQU SDWAIDNT+1 02412000 SDWASPID EQU SDWAIDNT 02413000 SDWASR15 EQU SDWASRSV+60 02414000 SDWASR14 EQU SDWASRSV+56 02415000 SDWASR13 EQU SDWASRSV+52 02416000 SDWASR12 EQU SDWASRSV+48 02417000 SDWASR11 EQU SDWASRSV+44 02418000 SDWASR10 EQU SDWASRSV+40 02419000 SDWASR09 EQU SDWASRSV+36 02420000 SDWASR08 EQU SDWASRSV+32 02421000 SDWASR07 EQU SDWASRSV+28 02422000 SDWASR06 EQU SDWASRSV+24 02423000 SDWASR05 EQU SDWASRSV+20 02424000 SDWASR04 EQU SDWASRSV+16 02425000 SDWASR03 EQU SDWASRSV+12 02426000 SDWASR02 EQU SDWASRSV+8 02427000 SDWASR01 EQU SDWASRSV+4 02428000 SDWASR00 EQU SDWASRSV 02429000 SDWATRN2 EQU SDWAAEC2+4 02430000 SDWAIPC2 EQU SDWAICD2 02431000 SDWAIMC2 EQU SDWAICD2 02432000 SDWAIPR2 EQU SDWAICD2 02433000 @NM00065 EQU SDWAINC2 02434000 @NM00064 EQU SDWAILC2 02435000 SDWAIL2 EQU SDWAILC2 02436000 @NM00063 EQU SDWAILC2 02437000 @NM00062 EQU SDWAAEC2 02438000 SDWAADD2 EQU SDWANXT2+1 02439000 @NM00061 EQU SDWANXT2 02440000 @NM00060 EQU SDWAEC2+3 02441000 SDWASGN2 EQU SDWAINT2 02442000 SDWAEXP2 EQU SDWAINT2 02443000 SDWADEC2 EQU SDWAINT2 02444000 SDWAFPO2 EQU SDWAINT2 02445000 SDWACC2 EQU SDWAINT2 02446000 @NM00059 EQU SDWAINT2 02447000 SDWAPGM2 EQU SDWAMWP2 02448000 SDWAWAT2 EQU SDWAMWP2 02449000 SDWAMCK2 EQU SDWAMWP2 02450000 SDWAECT2 EQU SDWAMWP2 02451000 SDWAKEY2 EQU SDWAMWP2 02452000 SDWAEXT2 EQU SDWAEMK2 02453000 SDWAIO2 EQU SDWAEMK2 02454000 SDWATRM2 EQU SDWAEMK2 02455000 @NM00058 EQU SDWAEMK2 02456000 SDWAPER2 EQU SDWAEMK2 02457000 @NM00057 EQU SDWAEMK2 02458000 SDWATRAN EQU SDWAAEC1+4 02459000 SDWAIPC1 EQU SDWAICD1 02460000 SDWAIMC1 EQU SDWAICD1 02461000 SDWAIPR1 EQU SDWAICD1 02462000 @NM00056 EQU SDWAINC1 02463000 @NM00055 EQU SDWAILC1 02464000 SDWAIL1 EQU SDWAILC1 02465000 @NM00054 EQU SDWAILC1 02466000 @NM00053 EQU SDWAAEC1 02467000 SDWAADD1 EQU SDWANXT1+1 02468000 @NM00052 EQU SDWANXT1 02469000 @NM00051 EQU SDWAEC1+3 02470000 SDWASGN1 EQU SDWAINT1 02471000 SDWAEXP1 EQU SDWAINT1 02472000 SDWADEC1 EQU SDWAINT1 02473000 SDWAFPO1 EQU SDWAINT1 02474000 SDWACC1 EQU SDWAINT1 02475000 @NM00050 EQU SDWAINT1 02476000 SDWAPGM1 EQU SDWAMWP1 02477000 SDWAWAT1 EQU SDWAMWP1 02478000 SDWAMCK1 EQU SDWAMWP1 02479000 SDWAECT1 EQU SDWAMWP1 02480000 SDWAKEY1 EQU SDWAMWP1 02481000 SDWAEXT1 EQU SDWAEMK1 02482000 SDWAIO1 EQU SDWAEMK1 02483000 SDWATRM1 EQU SDWAEMK1 02484000 @NM00049 EQU SDWAEMK1 02485000 SDWAPER1 EQU SDWAEMK1 02486000 @NM00048 EQU SDWAEMK1 02487000 SDWAIOBR EQU SDWA+100 02488000 SDWAEPA EQU SDWA+96 02489000 @NM00047 EQU SDWANAME+4 02490000 SDWARBAD EQU SDWANAME 02491000 SDWAGR15 EQU SDWAGRSV+60 02492000 SDWAGR14 EQU SDWAGRSV+56 02493000 SDWAGR13 EQU SDWAGRSV+52 02494000 SDWAGR12 EQU SDWAGRSV+48 02495000 SDWAGR11 EQU SDWAGRSV+44 02496000 SDWAGR10 EQU SDWAGRSV+40 02497000 SDWAGR09 EQU SDWAGRSV+36 02498000 SDWAGR08 EQU SDWAGRSV+32 02499000 SDWAGR07 EQU SDWAGRSV+28 02500000 SDWAGR06 EQU SDWAGRSV+24 02501000 SDWAGR05 EQU SDWAGRSV+20 02502000 SDWAGR04 EQU SDWAGRSV+16 02503000 SDWAGR03 EQU SDWAGRSV+12 02504000 SDWAGR02 EQU SDWAGRSV+8 02505000 SDWAGR01 EQU SDWAGRSV+4 02506000 SDWAGR00 EQU SDWAGRSV 02507000 SDWANXTP EQU SDWACTL2+5 02508000 SDWASGP EQU SDWAPMKP 02509000 SDWAEUP EQU SDWAPMKP 02510000 SDWADOP EQU SDWAPMKP 02511000 SDWAFPP EQU SDWAPMKP 02512000 SDWACCP EQU SDWAPMKP 02513000 SDWAILP EQU SDWAPMKP 02514000 SDWAINTP EQU SDWACTL2+2 02515000 SDWASPVP EQU SDWAMWPP 02516000 SDWAWATP EQU SDWAMWPP 02517000 SDWAMCKP EQU SDWAMWPP 02518000 @NM00046 EQU SDWAMWPP 02519000 SDWAKEYP EQU SDWAMWPP 02520000 SDWAEXTP EQU SDWACMKP 02521000 SDWAIOP EQU SDWACMKP 02522000 SDWANXTA EQU SDWACTL1+5 02523000 SDWASGA EQU SDWAPMKA 02524000 SDWAEUA EQU SDWAPMKA 02525000 SDWADOA EQU SDWAPMKA 02526000 SDWAFPA EQU SDWAPMKA 02527000 SDWACCA EQU SDWAPMKA 02528000 SDWAILA EQU SDWAPMKA 02529000 SDWAINTA EQU SDWACTL1+2 02530000 SDWASPVA EQU SDWAMWPA 02531000 SDWAWATA EQU SDWAMWPA 02532000 SDWAMCKA EQU SDWAMWPA 02533000 @NM00045 EQU SDWAMWPA 02534000 SDWAKEYA EQU SDWAMWPA 02535000 SDWAEXTA EQU SDWACMKA 02536000 SDWAIOA EQU SDWACMKA 02537000 SDWACMPC EQU SDWAABCC+1 02538000 @NM00044 EQU SDWACMPF 02539000 SDWASTCC EQU SDWACMPF 02540000 @NM00043 EQU SDWACMPF 02541000 SDWASTEP EQU SDWACMPF 02542000 SDWAREQ EQU SDWACMPF 02543000 @NM00042 EQU FRRSFLGS+1 02544000 @NM00041 EQU FRRSFLG1 02545000 FRRSNEST EQU FRRSFLG1 02546000 FRRSRCUR EQU FRRSFLG1 02547000 FRRSENTS EQU FRRS+84 02548000 FRRSRTMW EQU FRRS+16 02549000 PCTWTOMD EQU GTFPCT+312 02550000 PCTDMPMD EQU GTFPCT+308 02551000 TRANSMAX EQU GTFPCT+304 02552000 @NM00040 EQU AUDITFLG+3 02553000 AFSLEBLD EQU AUDITFLG+3 02554000 WSERFG06 EQU AUDITFLG+3 02555000 WSERFG05 EQU AUDITFLG+3 02556000 WSERFG04 EQU AUDITFLG+3 02557000 WSERFG03 EQU AUDITFLG+3 02558000 WSERFG02 EQU AUDITFLG+2 02559000 WSERFLAG EQU AUDITFLG+2 02560000 TERMFLAG EQU AUDITFLG+2 02561000 AFXWRIT EQU AUDITFLG+2 02562000 AFQLWAIT EQU AUDITFLG+2 02563000 AFSLEGET EQU AUDITFLG+2 02564000 AFBUFGET EQU AUDITFLG+2 02565000 AFFEOB EQU AUDITFLG+2 02566000 AFBLKFIX EQU AUDITFLG+1 02567000 AFEQFIX EQU AUDITFLG+1 02568000 AFPGRLSE EQU AUDITFLG+1 02569000 AFWRAP EQU AUDITFLG+1 02570000 AFBUFOFF EQU AUDITFLG+1 02571000 AFLDFX EQU AUDITFLG+1 02572000 AFCLOSE EQU AUDITFLG+1 02573000 AFOPEN EQU AUDITFLG+1 02574000 AFGMBLOK EQU AUDITFLG 02575000 AFGMSRB EQU AUDITFLG 02576000 AFWAIT EQU AUDITFLG 02577000 AFTERM EQU AUDITFLG 02578000 AFINIT EQU AUDITFLG 02579000 AFWWRIT EQU AUDITFLG 02580000 AFCWRIT EQU AUDITFLG 02581000 AFIWRIT EQU AUDITFLG 02582000 EQSHORT EQU GTFPCT+292 02583000 SLEMAX EQU GTFPCT+288 02584000 SLECNT EQU GTFPCT+284 02585000 RQPURGE EQU GTFPCT+280 02586000 RQTOTAL EQU GTFPCT+276 02587000 WRTDLST EQU GTFPCT+272 02588000 NUMOFBUF EQU GTFPCT+268 02589000 SBUFDISA EQU GTFPCT+264 02590000 SLESUSED EQU GTFPCT+260 02591000 EQMIN EQU GTFPCT+256 02592000 EQLENGTH EQU GTFPCT+252 02593000 WQMAX EQU GTFPCT+248 02594000 WQLENGTH EQU GTFPCT+244 02595000 QLECBP EQU QLOCKECB 02596000 @NM00039 EQU QLOCKECB 02597000 @NM00038 EQU QLOCKWRD+3 02598000 SCHEDBUF EQU QLOCKWRD+2 02599000 POSTWRIT EQU QLOCKWRD+1 02600000 QLOCK EQU QLOCKWRD 02601000 WRITERDD EQU GTFPCT+228 02602000 GTFLOSTR EQU GTFPCT+224 02603000 SRBAVAIL EQU GTFSSRB 02604000 WRTRERRP EQU WRTRERR 02605000 @NM00037 EQU WRTRERR 02606000 TRMWRITP EQU TRMWRIT 02607000 @NM00036 EQU TRMWRIT 02608000 GTFCMECB EQU GTFPCT+208 02609000 WRTRCOMP EQU WRTRCOM 02610000 @NM00035 EQU WRTRCOM 02611000 TRANSCNT EQU GTFPCT+200 02612000 SFEOBRTN EQU GTFPCT+192 02613000 SBLOKRTN EQU GTFPCT+188 02614000 CURRBLOK EQU GTFPCT+184 02615000 GBCDS EQU NEXTBLOK 02616000 WSMODEND EQU GTFPCT+176 02617000 WSMODBEG EQU GTFPCT+172 02618000 BCBPAGE EQU GTFPCT+156 02619000 SLEPAGE EQU GTFPCT+152 02620000 SAVECNT EQU GTFPCT+148 02621000 SLQHEAD EQU GTFPCT+144 02622000 HQLENGTH EQU GTFPCT+140 02623000 QTAIL EQU GTFPCT+136 02624000 HQHEAD EQU GTFPCT+132 02625000 WQHEAD EQU GTFPCT+128 02626000 RQHEAD EQU GTFPCT+124 02627000 EQHEAD EQU GTFPCT+120 02628000 WPOSTSRB EQU GTFPCT+116 02629000 WTSKTCBA EQU GTFPCT+112 02630000 WRTRTCBA EQU GTFPCT+108 02631000 TRMWTASK EQU GTFPCT+104 02632000 WTSKATTH EQU GTFPCT+100 02633000 WTSKINIT EQU GTFPCT+96 02634000 WTASKECB EQU GTFPCT+92 02635000 WMTABPTR EQU GTFPCT+88 02636000 ATTCHECB EQU GTFPCT+84 02637000 AHLECB EQU GTFPCT+80 02638000 STOPECBA EQU GTFPCT+76 02639000 ECBADRLT EQU GTFPCT+72 02640000 FIXLEN EQU GTFPCT+68 02641000 FIXPTR EQU GTFPCT+64 02642000 INITPTR EQU GTFPCT+60 02643000 MCQEPTR EQU GTFPCT+56 02644000 GTFEIDL EQU GTFPCT+52 02645000 GTFPIBL EQU GTFPCT+48 02646000 GTFPIFT EQU GTFPCT+44 02647000 GTFSVCBL EQU GTFPCT+40 02648000 GTFSVCFT EQU GTFPCT+36 02649000 GTFIOBL EQU GTFPCT+32 02650000 GTFIOFT EQU GTFPCT+28 02651000 GTFSIOBL EQU GTFPCT+24 02652000 GTFSIOFT EQU GTFPCT+20 02653000 @NM00034 EQU PCTCATF+1 02654000 PCTPIF EQU PCTCATF+1 02655000 PCTSIOF EQU PCTCATF+1 02656000 PCTIOF EQU PCTCATF+1 02657000 PCTSVCF EQU PCTCATF+1 02658000 PCTRR EQU PCTCATF+1 02659000 PCTSRM EQU PCTCATF+1 02660000 PCTRNIO EQU PCTCATF+1 02661000 PCTUSR EQU PCTCATF 02662000 PCTPI EQU PCTCATF 02663000 @NM00033 EQU PCTCATF 02664000 PCTDSP EQU PCTCATF 02665000 PCTSIO EQU PCTCATF 02666000 PCTIO EQU PCTCATF 02667000 PCTEXT EQU PCTCATF 02668000 PCTSVC EQU PCTCATF 02669000 OPTTIME EQU GTFOPTS4 02670000 OPTRES3 EQU GTFOPTS4 02671000 OPTIOSIO EQU GTFOPTS3 02672000 OPTRES2 EQU GTFOPTS3 02673000 OPTRR EQU GTFOPTS3 02674000 OPTSRM EQU GTFOPTS3 02675000 OPTRNIO EQU GTFOPTS3 02676000 OPTEXT EQU GTFOPTS3 02677000 OPTIOP EQU GTFOPTS2 02678000 OPTIO EQU GTFOPTS2 02679000 OPTPIP EQU GTFOPTS2 02680000 OPTPI EQU GTFOPTS2 02681000 OPTSIOP EQU GTFOPTS2 02682000 OPTSIO EQU GTFOPTS2 02683000 OPTSVCP EQU GTFOPTS2 02684000 OPTSVC EQU GTFOPTS2 02685000 OPTPCI EQU GTFOPTS1 02686000 OPTRES1 EQU GTFOPTS1 02687000 OPTDSP EQU GTFOPTS1 02688000 OPTTRC EQU GTFOPTS1 02689000 OPTUSR EQU GTFOPTS1 02690000 OPTSYS EQU GTFOPTS1 02691000 OPTSYSP EQU GTFOPTS1 02692000 OPTSYSM EQU GTFOPTS1 02693000 GTFRESV EQU GTFSTAT 02694000 GTFDEBUG EQU GTFSTAT 02695000 GTFMODE EQU GTFSTAT 02696000 GTFPCTID EQU GTFPCT 02697000 MCQESRB EQU MCQE+44 02698000 @NM00032 EQU MCQE+42 02699000 @NM00031 EQU MCQEFLGS 02700000 MCQEACT EQU MCQEFLGS 02701000 MCQESCHE EQU MCQE+40 02702000 MCQETECB EQU MCQE+36 02703000 MCQEMCCL EQU MCQE+28 02704000 MCQEMCEE EQU MCQE+24 02705000 MCQEIDEN EQU MCQE 02706000 MCCESRB EQU MCCE+44 02707000 MCCEECB EQU MCCE+40 02708000 MCCEMCCE EQU MCCE+36 02709000 MCCECNT EQU MCCE+32 02710000 MCCEOMCQ EQU MCCE+28 02711000 MCCEOCDA EQU MCCE+24 02712000 MCCEOEDA EQU MCCE+20 02713000 MCCECDA EQU MCCE+12 02714000 MCCEEDA EQU MCCE+8 02715000 MCCEIDEN EQU MCCE 02716000 MCHEADTR EQU MCHEAD+48 02717000 MCHEADRD EQU MCHEAD+44 02718000 MCHFRRAD EQU MCHEAD+40 02719000 MCHMCER EQU MCHEAD+36 02720000 @NM00030 EQU MCHFLGS+1 02721000 @NM00029 EQU MCHFLG1 02722000 MCHTERM EQU MCHFLG1 02723000 MCHACT EQU MCHFLG1 02724000 MCHDIS EQU MCHEAD+20 02725000 MCHCTL EQU MCHEAD+16 02726000 MCHCNT EQU MCHEAD+12 02727000 MCHCUR EQU MCHEAD+8 02728000 MCHIDEN EQU MCHEAD 02729000 @NM00028 EQU SRB+40 02730000 @NM00027 EQU SRB+38 02731000 SRBPRIOR EQU SRB+37 02732000 SRBPKF EQU SRB+36 02733000 SRBSAVE EQU SRB+32 02734000 SRBPARM EQU SRB+28 02735000 SRBPTCB EQU SRBFLC+4 02736000 SRBPASID EQU SRBFLC+2 02737000 SRBCPAFF EQU SRBFLC 02738000 SRBASCB EQU SRB+8 02739000 SRBFLNK EQU SRB+4 02740000 SRBID EQU SRB 02741000 WSAGSCHE EQU WSAG+40 02742000 WSAGREST EQU WSAG+36 02743000 WSAGNQDQ EQU WSAG+32 02744000 WSAGMEMT EQU WSAG+28 02745000 WSAGOPTM EQU WSAG+24 02746000 WSAGSTAT EQU WSAG+20 02747000 WSAGEMS0 EQU WSAG+16 02748000 WSAGSSRS EQU WSAG+12 02749000 WSAGRSM EQU WSAG+8 02750000 WSAGPGIO EQU WSAG 02751000 CVTLEVL EQU CVTRELNO+2 02752000 CVTNUMB EQU CVTRELNO 02753000 CVTMDL EQU CVTFIX+250 02754000 @NM00002 EQU CVTFIX+248 02755000 @NM00001 EQU CVTFIX 02756000 CVTRV482 EQU CVTXTNT2+128 02757000 CVTRV481 EQU CVTXTNT2+124 02758000 CVTRV480 EQU CVTXTNT2+120 02759000 CVTRV479 EQU CVTXTNT2+118 02760000 CVTRV478 EQU CVTXTNT2+117 02761000 CVTRV477 EQU CVTXTNT2+116 02762000 CVTRV476 EQU CVTXTNT2+115 02763000 CVTRV475 EQU CVTXTNT2+114 02764000 CVTRV474 EQU CVTRV466 02765000 CVTRV473 EQU CVTRV466 02766000 CVTRV472 EQU CVTRV466 02767000 CVTRV471 EQU CVTRV466 02768000 CVTRV470 EQU CVTRV466 02769000 CVTRV469 EQU CVTRV466 02770000 CVTRV468 EQU CVTRV466 02771000 CVTRV467 EQU CVTRV466 02772000 CVTRV465 EQU CVTRV457 02773000 CVTRV464 EQU CVTRV457 02774000 CVTRV463 EQU CVTRV457 02775000 CVTRV462 EQU CVTRV457 02776000 CVTRV461 EQU CVTRV457 02777000 CVTRV460 EQU CVTRV457 02778000 CVTRV459 EQU CVTRV457 02779000 CVTRV458 EQU CVTRV457 02780000 CVTRV456 EQU CVTXTNT2+108 02781000 CVTRV455 EQU CVTXTNT2+104 02782000 CVTRV454 EQU CVTXTNT2+100 02783000 CVTRV453 EQU CVTXTNT2+96 02784000 CVTRV452 EQU CVTXTNT2+94 02785000 CVTRV451 EQU CVTXTNT2+92 02786000 CVTRV450 EQU CVTXTNT2+90 02787000 CVTRV449 EQU CVTXTNT2+88 02788000 CVTRV448 EQU CVTXTNT2+87 02789000 CVTRV447 EQU CVTXTNT2+86 02790000 CVTRV446 EQU CVTRV438 02791000 CVTRV445 EQU CVTRV438 02792000 CVTRV444 EQU CVTRV438 02793000 CVTRV443 EQU CVTRV438 02794000 CVTRV442 EQU CVTRV438 02795000 CVTRV441 EQU CVTRV438 02796000 CVTRV440 EQU CVTRV438 02797000 CVTRV439 EQU CVTRV438 02798000 CVTRV437 EQU CVTRV429 02799000 CVTRV436 EQU CVTRV429 02800000 CVTRV435 EQU CVTRV429 02801000 CVTRV434 EQU CVTRV429 02802000 CVTRV433 EQU CVTRV429 02803000 CVTRV432 EQU CVTRV429 02804000 CVTRV431 EQU CVTRV429 02805000 CVTRV430 EQU CVTRV429 02806000 CVTRV428 EQU CVTXTNT2+80 02807000 CVTRV427 EQU CVTXTNT2+76 02808000 CVTRV426 EQU CVTXTNT2+72 02809000 CVTRV425 EQU CVTXTNT2+68 02810000 CVTATACT EQU CVTATCVT 02811000 CVTRV423 EQU CVTXTNT2+62 02812000 CVTRV422 EQU CVTXTNT2+60 02813000 CVTRV421 EQU CVTXTNT2+58 02814000 CVTRV420 EQU CVTXTNT2+56 02815000 CVTRV419 EQU CVTXTNT2+55 02816000 CVTRV418 EQU CVTXTNT2+54 02817000 CVTRV417 EQU CVTRV409 02818000 CVTRV416 EQU CVTRV409 02819000 CVTRV415 EQU CVTRV409 02820000 CVTRV414 EQU CVTRV409 02821000 CVTRV413 EQU CVTRV409 02822000 CVTRV412 EQU CVTRV409 02823000 CVTRV411 EQU CVTRV409 02824000 CVTRV410 EQU CVTRV409 02825000 CVTRV408 EQU CVTRV400 02826000 CVTRV407 EQU CVTRV400 02827000 CVTRV406 EQU CVTRV400 02828000 CVTRV405 EQU CVTRV400 02829000 CVTRV404 EQU CVTRV400 02830000 CVTRV403 EQU CVTRV400 02831000 CVTRV402 EQU CVTRV400 02832000 CVTRV401 EQU CVTRV400 02833000 CVTRSVA1 EQU CVTXTNT2+48 02834000 CVTRSVA0 EQU CVTXTNT2+44 02835000 CVTRSV99 EQU CVTXTNT2+40 02836000 CVTRSV98 EQU CVTXTNT2+36 02837000 CVTRSV97 EQU CVTXTNT2+34 02838000 CVTRSV96 EQU CVTXTNT2+32 02839000 CVTOLTEP EQU CVTXTNT2+28 02840000 CVTQIDA EQU CVTQID+1 02841000 CVTRSV95 EQU CVTQID 02842000 CVTRSV94 EQU CVTXTNT2+20 02843000 CVTRSV93 EQU CVTXTNT2+16 02844000 CVTRSV92 EQU CVTXTNT2+12 02845000 CVTDEBVR EQU CVTXTNT2+8 02846000 CVTRSV91 EQU CVTXTNT2+6 02847000 CVTRSV9H EQU CVTRSV90 02848000 CVTRSV9G EQU CVTRSV90 02849000 CVTRSV9F EQU CVTRSV90 02850000 CVTRSV9E EQU CVTRSV90 02851000 CVTRSV9D EQU CVTRSV90 02852000 CVTRSV9C EQU CVTRSV90 02853000 CVTRSV9B EQU CVTRSV90 02854000 CVTRSV9A EQU CVTRSV90 02855000 CVTNUCLS EQU CVTXTNT2+4 02856000 CVTDSSVA EQU CVTDSSV+1 02857000 CVTRSV89 EQU CVTDSSV 02858000 CVTRSV88 EQU CVTXTNT1+8 02859000 CVTRSV87 EQU CVTXTNT1+4 02860000 CVTFACHN EQU CVTXTNT1 02861000 CVTRV488 EQU CVTMAP+412 02862000 CVTRV487 EQU CVTMAP+408 02863000 CVTRV486 EQU CVTMAP+404 02864000 CVTRV485 EQU CVTMAP+400 02865000 CVTRV484 EQU CVTMAP+396 02866000 CVTAUTH EQU CVTMAP+392 02867000 CVTATMCA EQU CVTATMCT+1 02868000 CVTATMST EQU CVTATMCT 02869000 CVTRSV61 EQU CVTMAP+384 02870000 CVTVOLT1 EQU CVTVOLM1+1 02871000 CVTVOLI1 EQU CVTVOLF1 02872000 CVTSTOA EQU CVTMAP+376 02873000 CVTRSV58 EQU CVTMAP+374 02874000 CVTRSV57 EQU CVTMAP+372 02875000 CVTDDCE EQU CVTMAP+368 02876000 CVTPNWFR EQU CVTMAP+364 02877000 CVTSMF EQU CVTMAP+360 02878000 CVTSULK EQU CVTMAP+358 02879000 CVTSLKO EQU CVTSYSK 02880000 CVTSLKP EQU CVTSYSK 02881000 CVTSLKQ EQU CVTSYSK 02882000 CVTSLKR EQU CVTSYSK 02883000 CVTRSV56 EQU CVTSYSK 02884000 CVTRSV55 EQU CVTSYSK 02885000 CVTRSV54 EQU CVTSYSK 02886000 CVTRSV53 EQU CVTSYSK 02887000 CVTRSV52 EQU CVTA1F1 02888000 CVTRSV51 EQU CVTA1F1 02889000 CVTRSV50 EQU CVTA1F1 02890000 CVTRSV49 EQU CVTA1F1 02891000 CVTRSV48 EQU CVTA1F1 02892000 CVTRSV47 EQU CVTA1F1 02893000 CVTSRSW EQU CVTA1F1 02894000 CVTPFSW EQU CVTA1F1 02895000 CVTPCVT EQU CVTMAP+352 02896000 CVTRSV46 EQU CVTMAP+344 02897000 CVTRSV45 EQU CVTMAP+340 02898000 CVTRSV44 EQU CVTMAP+338 02899000 CVTRSV43 EQU CVTMAP+336 02900000 CVTHJESA EQU CVTHJES+1 02901000 CVTRSV42 EQU CVTHJES 02902000 CVTEXT2A EQU CVTEXT2+1 02903000 CVTRSV41 EQU CVTEXT2 02904000 CVTAPFA EQU CVTAPF+1 02905000 CVTRSV40 EQU CVTAPF 02906000 CVTINTLA EQU CVTMAP+320 02907000 CVTERPV EQU CVTMAP+316 02908000 CVTEORM EQU CVTMAP+312 02909000 CVTMCHPR EQU CVTMAP+308 02910000 CVTTZ EQU CVTMAP+304 02911000 CVTJEPS EQU CVTMAP+300 02912000 CVTJESCT EQU CVTMAP+296 02913000 CVTMODE EQU CVTMAP+292 02914000 CVTPTRV EQU CVTMAP+288 02915000 CVTREAL EQU CVTMAP+284 02916000 CVTRSV39 EQU CVTMAP+280 02917000 CVTRSV38 EQU CVTMAP+276 02918000 CVTDMSRA EQU CVTDMSR+1 02919000 CVTRSV37 EQU CVTDMSR 02920000 CVTQMSGA EQU CVTQMSG+1 02921000 CVTRSV36 EQU CVTQMSG 02922000 CVTAMFF EQU CVTMAP+264 02923000 CVTPURGA EQU CVTPURG+1 02924000 CVTRSV35 EQU CVTPURG 02925000 CVTCBSP EQU CVTMAP+256 02926000 CVTATERA EQU CVTATER+1 02927000 CVTSYST EQU CVTATER 02928000 CVTVOLT2 EQU CVTTAT 02929000 CVTVOLI2 EQU CVTVOLF2 02930000 CVTAQAVB EQU CVTAQAVT+1 02931000 CVTRSV34 EQU CVTTCMFG 02932000 CVTRSV33 EQU CVTTCMFG 02933000 CVTRSV32 EQU CVTTCMFG 02934000 CVTRSV31 EQU CVTTCMFG 02935000 CVTRSV30 EQU CVTTCMFG 02936000 CVTRSV29 EQU CVTTCMFG 02937000 CVTRSV28 EQU CVTTCMFG 02938000 CVTTCRDY EQU CVTTCMFG 02939000 CVTGTFA EQU CVTGTF+1 02940000 CVTRSV27 EQU CVTGTFST 02941000 CVTRNIO EQU CVTGTFST 02942000 CVTRV319 EQU CVTUSR 02943000 CVTRV318 EQU CVTFORM 02944000 CVTRV317 EQU CVTTMODE 02945000 CVTRV316 EQU CVTSTATE 02946000 CVTRV315 EQU CVTGTFS 02947000 CVTGTFAV EQU CVTGTFS 02948000 CVT0SCR1 EQU CVTMAP+232 02949000 CVTRV515 EQU CVTMAP+228 02950000 CVTRMS EQU CVTMAP+224 02951000 CVTPATCH EQU CVTMAP+220 02952000 CVTTSCE EQU CVTMAP+216 02953000 CVTLNKSC EQU CVTMAP+214 02954000 CVTQABST EQU CVTMAP+212 02955000 CVTMDLDS EQU CVTMAP+208 02956000 CVTUSER EQU CVTMAP+204 02957000 CVTABEND EQU CVTMAP+200 02958000 CVTSMCA EQU CVTMAP+196 02959000 CVTRSV18 EQU CVTMAP+192 02960000 CVTQLPAQ EQU CVTMAP+188 02961000 CVTQCDSR EQU CVTMAP+184 02962000 CVTRSV17 EQU CVTOPTB 02963000 CVTRSV16 EQU CVTOPTB 02964000 CVTFP EQU CVTOPTB 02965000 CVTAPTHR EQU CVTOPTB 02966000 CVTNLOG EQU CVTOPTB 02967000 CVTTOD EQU CVTOPTB 02968000 CVTCTIMS EQU CVTOPTB 02969000 CVTPROT EQU CVTOPTB 02970000 CVTXPFP EQU CVTOPTA 02971000 CVTASCII EQU CVTOPTA 02972000 CVTRSV13 EQU CVTOPTA 02973000 CVTRSV12 EQU CVTOPTA 02974000 CVTNIP EQU CVTOPTA 02975000 CVTDDR EQU CVTOPTA 02976000 CVTAPR EQU CVTOPTA 02977000 CVTCCH EQU CVTOPTA 02978000 CVTSNCTR EQU CVTMAP+180 02979000 CVTQMWR EQU CVTMAP+176 02980000 CVTQOCR EQU CVTMAP+172 02981000 CVT1EF00 EQU CVTMAP+168 02982000 CVTMZ00 EQU CVTMAP+164 02983000 CVTHEAD EQU CVTMAP+160 02984000 CVTRSV11 EQU CVTMAP+156 02985000 CVTMSER EQU CVTMAP+148 02986000 CVTIERLC EQU CVTMAP+144 02987000 CVTILCH EQU CVTMAP+140 02988000 CVT0DS EQU CVTMAP+136 02989000 CVTFBOSV EQU CVTMAP+132 02990000 CVTNUCB EQU CVTMAP+128 02991000 CVTIXAVL EQU CVTMAP+124 02992000 CVTIOQET EQU CVTMAP+120 02993000 CVTDCBA EQU CVTMAP+117 02994000 CVTMVS2 EQU CVTDCB 02995000 CVT6DAT EQU CVTDCB 02996000 CVT4MPS EQU CVTDCB 02997000 CVTRSV09 EQU CVTDCB 02998000 CVT4MS1 EQU CVTDCB 02999000 CVT2SPS EQU CVTDCB 03000000 CVT1SSS EQU CVTDCB 03001000 CVTRSV08 EQU CVTDCB 03002000 CVTSTB EQU CVTMAP+112 03003000 CVTQTD00 EQU CVTMAP+108 03004000 CVTQTE00 EQU CVTMAP+104 03005000 CVTCUCB EQU CVTMAP+100 03006000 CVTSJQ EQU CVTMAP+96 03007000 CVTPBLDL EQU CVTMAP+92 03008000 CVTTPC EQU CVTMAP+88 03009000 CVTSVDCB EQU CVTMAP+84 03010000 CVTBRET EQU CVTMAP+82 03011000 CVTEXIT EQU CVTMAP+80 03012000 CVT0FN00 EQU CVTMAP+76 03013000 CVTDARA EQU CVTDAR+1 03014000 CVTRSV07 EQU CVTFLGS1 03015000 CVTRSV06 EQU CVTFLGS1 03016000 CVTRSV05 EQU CVTFLGS1 03017000 CVTRSV04 EQU CVTFLGS1 03018000 CVTRSV03 EQU CVTFLGS1 03019000 CVTRSV02 EQU CVTFLGS1 03020000 CVTRSV01 EQU CVTFLGS1 03021000 CVTDMPLK EQU CVTFLGS1 03022000 CVTXITP EQU CVTMAP+68 03023000 CVTZDTAB EQU CVTMAP+64 03024000 CVTMSLT EQU CVTMAP+60 03025000 CVTDATE EQU CVTMAP+56 03026000 CVTBTERM EQU CVTMAP+52 03027000 CVTSYSAD EQU CVTMAP+48 03028000 CVTXTLER EQU CVTMAP+44 03029000 CVTILK2 EQU CVTMAP+40 03030000 CVTILK1 EQU CVTMAP+36 03031000 CVTPRLTV EQU CVTMAP+32 03032000 CVTPCNVT EQU CVTMAP+28 03033000 CVT0VL00 EQU CVTMAP+24 03034000 CVTXAPG EQU CVTMAP+20 03035000 CVTBUF EQU CVTMAP+16 03036000 CVTJOB EQU CVTMAP+12 03037000 CVTLINK EQU CVTMAP+8 03038000 CVT0EF00 EQU CVTMAP+4 03039000 CVTTCBP EQU CVTMAP 03040000 CVT EQU CVTMAP 03041000 @NM00026 EQU PSA+3412 03042000 PSASTAK EQU PSA+3072 03043000 @NM00025 EQU PSA+1032 03044000 PSAUSEND EQU PSA+1032 03045000 PSAPCPSW EQU PSA+1024 03046000 PSARV060 EQU PSA+1020 03047000 PSARV059 EQU PSA+1018 03048000 PSASVC13 EQU PSA+1016 03049000 PSASFACC EQU PSA+1008 03050000 PSASTOP EQU PSA+992 03051000 PSASTART EQU PSA+976 03052000 PSARSPSW EQU PSA+968 03053000 PSASRPSW EQU PSA+960 03054000 PSARV045 EQU PSA+892 03055000 PSARV044 EQU PSA+888 03056000 PSARV043 EQU PSA+884 03057000 PSARV042 EQU PSA+880 03058000 PSARV041 EQU PSA+876 03059000 PSARV040 EQU PSA+872 03060000 PSARV025 EQU PSA+868 03061000 PSADSSED EQU PSA+868 03062000 PSADSSPR EQU PSA+864 03063000 PSADSSFW EQU PSA+860 03064000 PSADSS14 EQU PSA+856 03065000 PSADSSPP EQU PSA+848 03066000 PSADSSRP EQU PSA+840 03067000 PSADSS05 EQU PSADSSF4 03068000 PSADSS10 EQU PSADSSF4 03069000 PSADSSVE EQU PSADSSF4 03070000 PSADSSDE EQU PSADSSF4 03071000 PSADSSC0 EQU PSADSSF4 03072000 PSADSSIE EQU PSADSSF4 03073000 PSADSS12 EQU PSADSSF4 03074000 PSADSSRC EQU PSADSSF4 03075000 PSARV057 EQU PSADSSF3 03076000 PSARV056 EQU PSADSSF3 03077000 PSARV055 EQU PSADSSF3 03078000 PSARV054 EQU PSADSSF3 03079000 PSADSSRW EQU PSADSSF3 03080000 PSADSSNM EQU PSADSSF3 03081000 PSADSSES EQU PSADSSF3 03082000 PSADSSGP EQU PSADSSF3 03083000 PSADSSF2 EQU PSADSSFL+1 03084000 PSADSSPI EQU PSADSSF1 03085000 PSADSSOI EQU PSADSSF1 03086000 PSADSSSP EQU PSADSSF1 03087000 PSADSSTP EQU PSADSSF1 03088000 PSADSSDW EQU PSADSSF1 03089000 PSADSSDD EQU PSADSSF1 03090000 PSADSSDM EQU PSADSSF1 03091000 PSADSSMV EQU PSADSSF1 03092000 PSADSSTS EQU PSA+816 03093000 PSADSSWK EQU PSA+812 03094000 PSADSSR3 EQU PSA+808 03095000 PSADSSR2 EQU PSA+804 03096000 PSADSSRS EQU PSA+800 03097000 PSASTOR EQU PSA+796 03098000 PSARV058 EQU PSA+794 03099000 PSAVSTAP EQU PSA+792 03100000 PSAWKVAP EQU PSA+788 03101000 PSAWKRAP EQU PSA+784 03102000 PSAMCHIC EQU PSA+783 03103000 PSAMODE EQU PSA+782 03104000 PSASYMSK EQU PSA+781 03105000 PSAMCHFL EQU PSA+780 03106000 PSACR0 EQU PSA+776 03107000 PSAPSWSV EQU PSA+768 03108000 PSACLHS EQU PSAHLHI 03109000 PSALKR15 EQU PSALKSA+60 03110000 PSALKR14 EQU PSALKSA+56 03111000 PSALKR13 EQU PSALKSA+52 03112000 PSALKR12 EQU PSALKSA+48 03113000 PSALKR11 EQU PSALKSA+44 03114000 PSALKR10 EQU PSALKSA+40 03115000 PSALKR9 EQU PSALKSA+36 03116000 PSALKR8 EQU PSALKSA+32 03117000 PSALKR7 EQU PSALKSA+28 03118000 PSALKR6 EQU PSALKSA+24 03119000 PSALKR5 EQU PSALKSA+20 03120000 PSALKR4 EQU PSALKSA+16 03121000 PSALKR3 EQU PSALKSA+12 03122000 PSALKR2 EQU PSALKSA+8 03123000 PSALKR1 EQU PSALKSA+4 03124000 PSALKR0 EQU PSALKSA 03125000 PSARV023 EQU PSACLHT+52 03126000 PSALOCAL EQU PSACLHT+48 03127000 PSACMSL EQU PSACLHT+44 03128000 PSAOPTL EQU PSACLHT+40 03129000 PSATPACL EQU PSACLHT+36 03130000 PSATPDNL EQU PSACLHT+32 03131000 PSATPNCL EQU PSACLHT+28 03132000 PSAIOSLL EQU PSACLHT+24 03133000 PSAIOSUL EQU PSACLHT+20 03134000 PSAIOSCL EQU PSACLHT+16 03135000 PSAIOSSL EQU PSACLHT+12 03136000 PSASALCL EQU PSACLHT+8 03137000 PSAASML EQU PSACLHT+4 03138000 PSADISPL EQU PSACLHT 03139000 PSASRSA EQU PSA+636 03140000 PSARV050 EQU PSA+634 03141000 PSADSSGO EQU PSA+633 03142000 PSARECUR EQU PSA+632 03143000 PSAHLHIS EQU PSA+628 03144000 PSAIPCSA EQU PSA+624 03145000 @NM00024 EQU PSA+621 03146000 PSAIPCDM EQU PSA+620 03147000 PSAIPCD EQU PSA+616 03148000 @NM00023 EQU PSA+613 03149000 PSAIPCRM EQU PSA+612 03150000 PSAIPCR EQU PSA+608 03151000 PSAMCHEX EQU PSA+600 03152000 PSAMPSW EQU PSA+592 03153000 PSAEXPS2 EQU PSA+584 03154000 PSAEXPS1 EQU PSA+576 03155000 PSAPIREG EQU PSA+572 03156000 PSARSREG EQU PSA+568 03157000 PSAGPREG EQU PSA+556 03158000 PSARV022 EQU PSASUP4 03159000 PSARV021 EQU PSASUP4 03160000 PSARV020 EQU PSASUP4 03161000 PSARV019 EQU PSASUP4 03162000 PSARV018 EQU PSASUP4 03163000 PSARV017 EQU PSASUP4 03164000 PSARV016 EQU PSASUP4 03165000 PSARV015 EQU PSASUP4 03166000 PSARV014 EQU PSASUP3 03167000 PSARV013 EQU PSASUP3 03168000 PSARV012 EQU PSASUP3 03169000 PSARV011 EQU PSASUP3 03170000 PSARV010 EQU PSASUP3 03171000 PSARV009 EQU PSASUP3 03172000 PSARV008 EQU PSASUP3 03173000 PSAIOSUP EQU PSASUP3 03174000 PSALCR EQU PSASUP2 03175000 PSARTM EQU PSASUP2 03176000 PSAACR EQU PSASUP2 03177000 PSAIPCE2 EQU PSASUP2 03178000 PSAIPCES EQU PSASUP2 03179000 PSAIPCEC EQU PSASUP2 03180000 PSAGTF EQU PSASUP2 03181000 PSAIPCRI EQU PSASUP2 03182000 PSAIPCRP EQU PSASUP1 03183000 PSAIPCDR EQU PSASUP1 03184000 PSADISP EQU PSASUP1 03185000 PSALOCK EQU PSASUP1 03186000 PSAPI EQU PSASUP1 03187000 PSAEXT EQU PSASUP1 03188000 PSASVC EQU PSASUP1 03189000 PSAIO EQU PSASUP1 03190000 PSAANEW EQU PSA+544 03191000 PSATOLD EQU PSA+540 03192000 PSATNEW EQU PSA+536 03193000 PSALCCAR EQU PSA+532 03194000 PSALCCAV EQU PSA+528 03195000 PSAPCCAR EQU PSA+524 03196000 PSAPCCAV EQU PSA+520 03197000 PSACPULA EQU PSA+518 03198000 PSACPUPA EQU PSA+516 03199000 PSAPSA EQU PSA+512 03200000 FLCHDEND EQU PSA+512 03201000 FLCCRSAV EQU FLCMCLA+280 03202000 FLCGRSAV EQU FLCMCLA+216 03203000 FLCFPSAV EQU FLCMCLA+184 03204000 FLCFLA EQU FLCMCLA+88 03205000 FLCRGNCD EQU FLCMCLA+84 03206000 FLCFSAA EQU FLCFSA+1 03207000 @NM00022 EQU FLCFSA 03208000 @NM00021 EQU FLCMCLA+72 03209000 FLCMCIC EQU FLCMCLA+64 03210000 @NM00020 EQU FLCMCLA+20 03211000 FLCIOAA EQU FLCIOA+1 03212000 @NM00019 EQU FLCIOA 03213000 @NM00018 EQU FLCMCLA+15 03214000 @NM00017 EQU FLCMCLA+14 03215000 @NM00016 EQU FLCMCLA+12 03216000 FLCLCL EQU FLCMCLA+8 03217000 FLCIOELA EQU FLCIOEL+1 03218000 @NM00015 EQU FLCIOEL 03219000 FLCCHNID EQU FLCMCLA 03220000 @NM00014 EQU PSA+160 03221000 FLCMTRCD EQU PSA+157 03222000 @NM00013 EQU PSA+156 03223000 FLCPERA EQU FLCPER+1 03224000 @NM00012 EQU FLCPER 03225000 @NM00011 EQU PSA+151 03226000 FLCPERCD EQU PSA+150 03227000 FLCMCNUM EQU PSA+149 03228000 @NM00010 EQU PSA+148 03229000 FLCTEAA EQU FLCTEA+1 03230000 @NM00009 EQU FLCTEA 03231000 PSAPIPC EQU PSAPICOD 03232000 PSAPIMC EQU PSAPICOD 03233000 PSAPIPER EQU PSAPICOD 03234000 PSARV049 EQU FLCPICOD 03235000 FLCPILCB EQU FLCPIILC 03236000 @NM00008 EQU FLCPIILC 03237000 @NM00007 EQU PSAEPPSW 03238000 FLCSVCN EQU PSAESPSW+2 03239000 FLCSILCB EQU FLCSVILC 03240000 @NM00006 EQU FLCSVILC 03241000 @NM00005 EQU PSAESPSW 03242000 FLCEICOD EQU PSAEEPSW+2 03243000 PSASPAD EQU PSAEEPSW 03244000 @NM00004 EQU PSA+128 03245000 FLCINPSW EQU PSA+120 03246000 FLCMNPSW EQU PSA+112 03247000 FLCPNPSW EQU PSA+104 03248000 FLCSNPSW EQU PSA+96 03249000 FLCENPSW EQU PSA+88 03250000 FLCTRACE EQU PSA+84 03251000 FLCTIMER EQU PSA+80 03252000 FLCCVT2 EQU PSA+76 03253000 FLCCAW EQU PSA+72 03254000 FLCCSW EQU PSA+64 03255000 FLCIOPSW EQU PSA+56 03256000 FLCMOPSW EQU PSA+48 03257000 FLCPOPSW EQU PSA+40 03258000 FLCSOPSW EQU PSA+32 03259000 FLCEOPSW EQU PSA+24 03260000 @NM00003 EQU FLCICCW2+4 03261000 FLCICCW1 EQU FLCROPSW 03262000 FLCIPPSW EQU FLCRNPSW 03263000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03264000 @RT00070 EQU CLEANUP 03265000 @RT00087 EQU CLEANUP 03266000 @RT00093 EQU CLEANUP 03267000 @RT00095 EQU GOODMCQE 03268000 @RT00102 EQU CLEANUP 03269000 @RT00107 EQU CLEANUP 03270000 @RT00146 EQU FREEMCA 03271000 @RT00161 EQU FREESRB 03272000 @RT00169 EQU RELEASE 03273000 @RT00251 EQU LOCLPOST 03274000 @RT00253 EQU MCDEQ 03275000 @ENDDATA EQU * 03276000 END AHLREADR,(C'PL/S-II',0503,73286) 03277000