TITLE 'AHLMCER - MONITOR CALL EVENT ROUTER *00001000 ' 00002000 MCACTIV EQU X'80' /* BIT MCHACT IN MCHEAD MAP */ 00003000 NOTACTIV EQU 8 /* CC IF ROUTING IS NOT ACTIV */ 00004000 MCREG EQU 8 /* CONTROL REGISTER 8 */ 00005000 MCINT EQU X'40' /* MONITOR CALL PI CODE */ 00006000 MCINCNTL EQU X'80' /* RECURSION INDICATOR */ 00007000 INCTL EQU X'40' /* APPLICATION IN CTL INDIC. */ 00008000 BRNCHENT EQU X'10' /* AHLMCIH WAS ENTERED VIA THE 00009000 * NON-PFLIH ENTRY PT, AHLMCIHB */ 00010000 * DO; /* SETEVENT 0055 00011000 * MF(L,SETLST,DEFINED(MCAWORK)) */ 00012000 * 0055 00013000 * /***************************************************************/ 00014000 * /* */ 00015000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY THE SETEVENT */ 00016000 * /* MACRO. THIS CODE WILL BE EITHER AN INITIALIZED PARAMETER */ 00017000 * /* LIST, OR IF IT IS THE RESULT OF STANDARD OR EXECUTE FORM IT */ 00018000 * /* WILL FILL in the list, GENERATE ALL LINKAGES AND CALL THE */ 00019000 * /* PROPER sERVICE, EITHER AHLSETEV OR AHLSETD */ 00020000 * /* */ 00021000 * /***************************************************************/ 00022000 * 0056 00023000 * DCL 0056 00024000 * 1 SETLST DEFINED(MCAWORK), /* PLIST FOR SETEVENT */ 00025000 * 2 SETLST01 PTR(8), /* ACTION FLAGS */ 00026000 * 2 * PTR(8), 0056 00027000 * 2 SETLST02 PTR(8), /* EID COUNT */ 00028000 * 2 SETLST03 PTR(8), /* CLASS COUNT */ 00029000 * 2 SETLST04 CHAR(8), /* APPLICATION NAME */ 00030000 * 2 SETLST05 PTR(31), /* EID LIST ADDRESS */ 00031000 * 2 SETLST06 PTR(31), /* CLASS LIST ADDRESS */ 00032000 * 2 SETLST07 PTR(31); /* MCQE ADDRESS */ 00033000 * END; 0057 00034000 * GEN(EJECT); 0058 00035000 * 0058 00036000 EJECT 00037000 * /*****************************************************************/ 00038000 * /* */ 00039000 * /* THE FOLLOWING ADCONS ARE USED BY IEAVNP17 TO INITIALIZE THE */ 00040000 * /* MCHEAD. */ 00041000 * /* */ 00042000 * /*****************************************************************/ 00043000 * 0059 00044000 * GENERATE; 0059 00045000 AHLMCER CSECT 00046000 DC A(AHLMCER1) 00047000 DC A(AHLMCFRR) 00048000 *********************************************************************** 00049000 * * 00050000 * THE REGISTER CONTENTS FROM AHLMCIH ARE AS FOLLOWS: * 00051000 * MCERBASE (R12) CONTAINS THE ENTRY POINT ADDRESS, AHLMCER1 * 00052000 * HEADREG (R11) CONTAINS THE ADDRESS OF THE MCHEAD * 00053000 * MCRWSAPT R(13) CONTAINS THE ADDRESS OF THE MCRWSA * 00054000 * * 00055000 *********************************************************************** 00056000 USING AHLMCER1,MCERBASE 00057000 *********************************************************************** 00058000 * * 00059000 * CONTROL IS RECEIVED AT THE FOLLOWING EP FROM AHLMCIH. THE * 00060000 * CURRENT EVENT IDENTIFIER (EID) IS GATHERED FROM THE HDWR * 00061000 * LOCATIONS INTO THE MCRWSA AND THE USE COUNT IN THE MCHEAD IS * 00062000 * INCREMENTED BY CDS LOGIC. THE CDS ALSO VERIFIES * 00063000 * THE CURRENT MCCE ADDRESS FOR USE BY AHLMCER. * 00064000 * * 00065000 *********************************************************************** 00066000 AHLMCER1 PACK MCREID(1,MCRWSAPT),FLCMCNUM /* GET CLASS FROM FLC */ 00067000 MVN MCREID(1,MCRWSAPT),FLCMTRCD+1 MOVE 2ND DIGIT OF CXXX 00068000 MVC MCREID+1(1,MCRWSAPT),FLCMTRCD+2 MOVE 3RD AND 4TH DIGIT 00069000 LM WORK1,WORK2,MCHCUR(HEADREG) /* LOAD THE CURRENT MCCE 00070000 * ADDRESS AND USE COUNT */ 00071000 AHLCSD1 LR MCCEAD,WORK1 /* MOVE FOR COMPARE AND SWAP */ 00072000 LR USECOUNT,WORK2 /* DITTO */ 00073000 LA USECOUNT,1(USECOUNT) /* INCREMENT USE COUNT */ 00074000 CDS WORK1,MCCEAD,MCHCUR(HEADREG) /* STORE NEW USE COUNT */ 00075000 BC 7,AHLCSD1 /* IF EITHER ADDRESS OR USE 00076000 * COUNT HAS CHANGED, REDO 00077000 * ARITHMETIC */ 00078000 LTR MCCEAD,MCCEAD /* Q. IS MCCE ADDR = ZERO */ 00079000 BE AHLXIT1 /* IF SO, NOTHING TO DO - EXIT*/ 00080000 *********************************************************************** 00081000 * * 00082000 * SAVE MCCE ADDRESS FOR USE DURING ERROR RECOVERY @YM03668 00083000 * * 00084000 *********************************************************************** 00085000 ST MCCEAD,MCCESAV(0,MCRWSAPT) SAVE ADDR IN MCRWSA @YM03368 00086000 *********************************************************************** 00087000 * * 00088000 * CHECK FOR THE EXISTENCE OF AN EVENT DIRECTORY, THEN USE THE * 00089000 * PBINT SRCH FACILITY TO LOCATE THE APPLICABLE MCEE FOR THIS * 00090000 * EVENT. IF THE EID IN THE LOCATED MCEE MATCHES THE CURRENT * 00091000 * EID, CALL CALLFGBR TO ROUTE THE EVENT TO THE APPLICABLE * 00092000 * ROUTINES. * 00093000 * * 00094000 *********************************************************************** 00095000 L MCDA,MCCEEDA(MCCEAD) /* LOAD EVENT DIRECTORY ADDR */ 00096000 LTR MCDA,MCDA /* Q. IS THERE ONE */ 00097000 BE AHLCLASS /* IF NOT, PROCESS CLASSES */ 00098000 SRCH (MCDA),SARG=MCREID(MCRWSAPT),TYPE=5,KEYL=2 USE SRCH TO 00099000 * LOCATE APPLICABLE EVENT ELEMENT, 00100000 * THE ADDRESS OF WHICH WILL BE 00101000 * RETURNED IN REGISTER 15 */ 00102000 LTR TEMPPTR,TEMPPTR /* IS MCED EMPTY */ 00103000 BNP AHLCLASS /* IF SO, GO PROCESS CLASSES */ 00104000 CLC MCEEEID(2,TEMPPTR),MCREID(MCRWSAPT) /* Q. DOES EID IN 00105000 * FOUND MCEE MATCH 00106000 * CURRENT EVENT */ 00107000 BNE AHLCLASS /* IF NOT, PROCESS CLASSES */ 00108000 LR ELEMAD,TEMPPTR /* MOVE MCEE ADDR TO PERMANENT 00109000 * LOCATION */ 00110000 BAL RETURNER,CALLFGBR /* GO TO SUBROUTINE TO CALL 00111000 * APPLICATION REQUESTING EVENT 00112000 *********************************************************************** 00113000 * * 00114000 * CHECK FOR THE EXISTENCE OF A CLASS DIRECTORY, THEN CONVERT THE * 00115000 * CURRENT CLASS INTO AN INDEX TO SEE IF THERE ARE ANY MCCLES TO * 00116000 * RECEIVE THIS CLASS. IF SO, CALL CALLFGBR TO PASS CONTROL TO * 00117000 * ALL ROUTINES REFLECTED IN ALL MCCLES ON THE CHAIN. * 00118000 * * 00119000 *********************************************************************** 00120000 AHLCLASS L MCDA,MCCECDA(MCCEAD) /* LOAD CLASS DIRECTORY ADDR */ 00121000 LTR MCDA,MCDA /* Q. IS MCCD ADDR ZERO */ 00122000 BE AHLXIT1 /* IF SO, EXIT FROM AHLMCIH */ 00123000 SR WORK2,WORK2 /* CLEAR BEFORE INSERT */ 00124000 IC WORK2,FLCMCNUM /* PICK UP CLASS OF MC */ 00125000 SLL WORK2,2 /* USE AS INDEX INTO MCCD */ 00126000 L ELEMAD,MCCDCLE(WORK2,MCDA) /* LOAD MCCLE ADDR */ 00127000 LTR ELEMAD,ELEMAD /* Q. DOES MCCD EXIST */ 00128000 BE AHLXIT1 /* IF NOT, EXIT FROM AHLMCIH */ 00129000 BAL RETURNER,CALLFGBR /* GO TO CALL APPLICATION(S) */ 00130000 * GENERATE; 0060 00131000 *********************************************************************** 00132000 * * 00133000 * /*EXIT CODE. THE USE COUNT IN THE MCHEAD IS DECREMENTED BY ONE TO * 00134000 * INDICATE THAT WE ARE DONE USING IT. IF THE MCCE ADDRESS IN THE * 00135000 * MCHEAD HAS CHANGED FROM THE ONE THAT WAS USED DURING AHLMCER * 00136000 * THE USE COUNT IN THE OLD MCCE (THE ONE THAT AHLMCER USED) IS * 00137000 * DECREMENTED BY ONE. IF THIS USE COUNT GOES TO ZERO, THE SRB IN * 00138000 * THE OLD MCCE IS SCHEDULED SO THAT TABLES MAY BE FREED. ALL * 00139000 * DECREMENTING IS DONE VIA CDS AND CS LOGIC. * 00140000 * * 00141000 * THE FRR IS THEN REMOVED, THE RECURSION FLAG RESET, THE REGISTERS * 00142000 * RELOADED, AND CONTROL IS RETURNED TO THE CALLER. NOTE THAT THE * 00143000 * RETURN IS MADE TO THE CALLER OF AHLMCIH, AND NOT TO AHLMCIH.*/ * 00144000 * * 00145000 *********************************************************************** 00146000 AHLXIT1 L WORK2,MCHCNT(HEADREG) /* LOAD USE COUNT FROM MCHEAD */ 00147000 LR WORK1,MCCEAD /* CREATE BACKUP FOR MCCE @ */ 00148000 AHLCSD2 LR USECOUNT,WORK2 /* CREATE COPY OF USE COUNT */ 00149000 BCTR USECOUNT,0 /* DECREMENT USE COUNT BY 1 */ 00150000 CDS WORK1,MCCEAD,MCHCUR(HEADREG) /* DECREMENT COUNT AND 00151000 * VERIFY MCCE ADDRESS */ 00152000 BC 8,AHLXIT2 /* IF SUCCESSFUL, EXIT */ 00153000 CR WORK1,MCCEAD /* Q. DID TABLE ADDR CHANGE */ 00154000 BE AHLCSD2 /* IF NOT, REDO TO SET CORRECT 00155000 * COUNT */ 00156000 LTR MCCEAD,MCCEAD /* Q. WAS OLD ONE ZERO */ 00157000 BE AHLXIT2 /* IF SO, EXIT */ 00158000 L WORK2,MCCECNT(MCCEAD) /* LOAD USE COUNT FROM MCCE */ 00159000 AHLCSD3 LR USECOUNT,WORK2 /* CREATE COPY OF COUNT */ 00160000 BCTR USECOUNT,0 /* DECREMENT BY 1 */ 00161000 CS WORK2,USECOUNT,MCCECNT(MCCEAD) /* PLACE IN MCCE */ 00162000 BC 7,AHLCSD3 /* IF DIDNT GO, REDO UNTIL OK */ 00163000 LTR USECOUNT,USECOUNT /* Q. DID COUNT BECOME ZERO */ 00164000 BNE AHLXIT2 /* IF NOT, EXIT */ 00165000 LA SRBREG,MCCESRB(MCCEAD) /* SRB ADDR TO REG 1 */ 00166000 SCHEDULE SRB=(1) /* SCHEDULE SRB TO FREE TABLES*/ 00167000 AHLXIT2 SETFRR D,WRKREGS=(WORK1,WORK2) REMOVE ERROR RECOVERY 00168000 AHLXIT3 NI MCRWSAF(MCRWSAPT),X'FF'-MCINCNTL-BRNCHENT /*RESET FLGS*/ 00169000 AHLXIT4 LM MCQEAD,RETURNAD,MCRMCIH(MCRWSAPT) /* RESTORE REGS */ 00170000 BR RETURNAD /* RETURN TO CALLER */ 00171000 EJECT 00172000 * GENERATE; 0061 00173000 *********************************************************************** 00174000 * * 00175000 * /*THE FOLLOWING SUBROUTINE PASSES CONTROL TO EACH ROUTINE REFLECTED * 00176000 * IN THE MCEE/MCCLES ASSOCIATED WITH THE EVENT UNDER CONSIDERATION. * 00177000 * IT IS PASSED (IN ELEMAD) THE ADDRESS OF THE FIRST MCEE/MCCLE ON * 00178000 * THE CHAIN ASSOCIATED WITH THE CURRENT EVENT. IT LOADS THE * 00179000 * REQUIRED DATA INTO THE REGISTERS, THEN SAVES ALL REGISTERS IN * 00180000 * MCROUTSA BEFORE BRANCHING TO THE PROPER ROUTINE. ON RETURN * 00181000 * FROM THE ROUTINES, THE REGISTERS ARE RELOADED, AND THE NEXT * 00182000 * MCEE/MCCLE ON THE CHAIN IS USED TO ROUTE THE EVENT. THIS * 00183000 * PROCESSING CONTINUES UNTIL THE END OF THE MCEE/MCCLE CHAIN * 00184000 * IS REACHED, AT WHICH TIME RETURN IS MADE TO THE MAINLINE. */ * 00185000 * * 00186000 *********************************************************************** 00187000 CALLFGBR L MCAPTR,MCRMCA(MCRWSAPT) /* LOAD PTR TO APPLICATION WORK 00188000 * SAVE AREA */ 00189000 AHLCALNX LM APPLCRTN,MCQEAD,MCEERTN(ELEMAD) /* LOAD ROUTINE AND 00190000 * MCQE ADDRESS FROM ELEMENT */ 00191000 LR TMPMCQE,MCQEAD /* MOVE MCQE TO USABLE REG */ 00192000 L APPTAB,MCQEAT(TMPMCQE) /* LOAD APPLICATION TABLE 00193000 * ADDRESS FROM MCQE */ 00194000 STM MCQEAD,APPLCRTN,MCROUTSA(MCRWSAPT) /* SAVE ALL REGS */ 00195000 OI MCRWSAF(MCRWSAPT),INCTL /* INDICATE APPLICATION IN 00196000 * CONTROL - THIS FLAG IS USED 00197000 * FOR ERROR RECOVERY */ 00198000 BALR RETURNAD,APPLCRTN /* CALL INDICATED APPLICATION */ 00199000 *********************************************************************** 00200000 * * 00201000 * /* RETURN FROM THE CALLED ROUTINE IS MADE TO THE FOLLOWING * 00202000 * INSTRUCTION. THE REGISTER SAVE AREA IS RELOCATED, AND * 00203000 * THE REGISTERS ARE RELOADED BEFORE CALLING THE NEXT ROUTINE.*/ * 00204000 * * 00205000 *********************************************************************** 00206000 AHLRELOD L MCRWSAPT,PSALCCAV /* LOAD LCCA ADDR */ 00207000 L MCRWSAPT,LCCACPUS(MCRWSAPT) /* LOAD WSAVT ADDR */ 00208000 L MCRWSAPT,WSACGTF(MCRWSAPT) /* LOAD MCRWSA ADDR */ 00209000 LM MCQEAD,APPLCRTN,MCROUTSA(MCRWSAPT) /* RELOAD REGS */ 00210000 NI MCRWSAF(MCRWSAPT),X'FF'-INCTL /* TURN OFF IN-APPLICATION 00211000 * INDICATOR */ 00212000 L ELEMAD,MCEEEIDL(ELEMAD) /* LOAD NEXT ELEMENT TO GET 00213000 * CONTROL ON THIS EVENT */ 00214000 LTR ELEMAD,ELEMAD /* Q. ANY MORE FOR THIS EVENT */ 00215000 BNZ AHLCALNX /* IF SO, CALL NEXT APPLICATION 00216000 * ROUTINE */ 00217000 BR RETURNER /* IF NOT, RETURN FROM SUBROUT*/ 00218000 EJECT 00219000 *AHLMCFRR: 0062 00220000 * 0062 00221000 * /*****************************************************************/ 00222000 * /* */ 00223000 * /* ERROR RECOVERY CODE, ENTERED FROM RTM. ADDRESSIBILITY IS SET */ 00224000 * /* UP, AND THE RTCA AND RETURN ADDRESSES ARE SAVED IN */ 00225000 * /* NON-VOLATILE REGISTERS */ 00226000 * /* */ 00227000 * /*****************************************************************/ 00228000 * 0062 00229000 * GENERATE; 0062 00230000 AHLMCFRR DS 0H 0062 00231000 USING AHLMCFRR,TEMPPTR /* TEMPORARY ADDRESSIBILITY */ 00232000 DROP MCERBASE 00233000 L MCERBASE,MCERORG /* LOAD BASE FROM DC */ 00234000 USING AHLMCER1,MCERBASE /* TELL ASSEMBLER */ 00235000 DROP TEMPPTR 00236000 * RESPECIFY 0063 00237000 * (SDWAPTR, 0063 00238000 * SDWAAD, 0063 00239000 * RETURNAD, 0063 00240000 * RTMADDR, 0063 00241000 * RETRYAD, 0063 00242000 * MCRWSAPT)RSTD; 0063 00243000 * SDWAPTR=SDWAAD; /* SAVE RTCA ADDRESS */ 00244000 LR SDWAPTR,SDWAAD 0064 00245000 * RTMADDR=RETURNAD; /* SAVE RETURN ADDRESS */ 00246000 LR RTMADDR,RETURNAD 0065 00247000 * DO; /* SETRP DUMP(NO) WKAREA(SDWAPTR) 00248000 * RECPARM(MCERID) */ 00249000 * RESPECIFY 0067 00250000 * (GPR00P, 0067 00251000 * GPR01P, 0067 00252000 * GPR14P, 0067 00253000 * GPR15P)RSTD; 0067 00254000 * GPR01P=SDWAPTR; 0068 00255000 LR GPR01P,SDWAPTR 0068 00256000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00257000 MVI SDWARCDE(GPR01P),X'00' 0069 00258000 * GPR15P=ADDR(MCERID); /* ACCESS RECORD PARAMETER LIST */ 00259000 LA GPR15P,MCERID 0070 00260000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD PARAMETERS */ 00261000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0071 00262000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 00263000 NI SDWAREQ(GPR01P),B'01111111' 0072 00264000 * RESPECIFY 0073 00265000 * (GPR00P, 0073 00266000 * GPR01P, 0073 00267000 * GPR14P, 0073 00268000 * GPR15P)UNRSTD; 0073 00269000 * END; 0074 00270000 * 0075 00271000 * /*****************************************************************/ 00272000 * /* */ 00273000 * /* THE FOLLOWING CODE CHECKS FOR AND HANDLES IF APPLICABLE ENTRY */ 00274000 * /* DUE TO ACR. IF THIS IS THE CASE, A RETRY IS SCHEDULED TO THE */ 00275000 * /* INTERRUPTED ADDRESS, IGNORING THE ERROR */ 00276000 * /* */ 00277000 * /*****************************************************************/ 00278000 * 0075 00279000 * IF SDWAINSF='1'B&SDWAREGU='0'B&SDWAPSWU='0'B THEN 0075 00280000 TM SDWAINSF(SDWAPTR),B'00000100' 0075 00281000 BNO @RF00075 0075 00282000 TM SDWAREGU(SDWAPTR),B'01100000' 0075 00283000 BNZ @RF00075 0075 00284000 * DO; 0076 00285000 * RETRYAD=SDWANXTP; /* SET RETRY TO INTER. ADDR */ 00286000 SR RETRYAD,RETRYAD 0077 00287000 ICM RETRYAD,7,SDWANXTP(SDWAPTR) 0077 00288000 * DO; /* SETRP RETADDR(RETRYADR) 0078 00289000 * RC(SDWARETY) RETREGS(YES) 0078 00290000 * WKAREA(SDWAPTR) */ 00291000 * RESPECIFY 0079 00292000 * (GPR00P, 0079 00293000 * GPR01P, 0079 00294000 * GPR14P, 0079 00295000 * GPR15P)RSTD; 0079 00296000 * GPR01P=SDWAPTR; 0080 00297000 LR GPR01P,SDWAPTR 0080 00298000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 00299000 MVI SDWARCDE(GPR01P),X'04' 0081 00300000 * GPR01P->SDWARTYA=ADDR(RETRYADR);/* SAVE RETRY ADDRESS */ 00301000 ST RETRYAD,SDWARTYA(,GPR01P) 0082 00302000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 00303000 OI SDWAUPRG(GPR01P),B'00001000' 0083 00304000 * RESPECIFY 0084 00305000 * (GPR00P, 0084 00306000 * GPR01P, 0084 00307000 * GPR14P, 0084 00308000 * GPR15P)UNRSTD; 0084 00309000 * END; /* SET UP FOR RETRY */ 00310000 * GO TO RTM; /* RETURN TO RTM - CONTINE */ 00311000 BR RTMADDR 0086 00312000 * END; 0087 00313000 * 0088 00314000 * /*****************************************************************/ 00315000 * /* */ 00316000 * /* SETUP FOR RETRY ROUTINES BY REFRESHING THE BASE REGISTER, THE */ 00317000 * /* POINTER TO MCRWSA, AND THE MCHEAD ADDRESS, IN THE REGISTERS IN*/ 00318000 * /* THE RTCA THAT ARE PASSED TO THE RETRY ROUTINE */ 00319000 * /* */ 00320000 * /*****************************************************************/ 00321000 * 0088 00322000 * SDWASR12=MCERORG; /* RESET BASE REG FOR RETRIES */ 00323000 @RF00075 MVC SDWASR12(4,SDWAPTR),MCERORG 0088 00324000 * MCRWSAPT=ADDR(MCRWSA); /* ESTABLISH MCRWSA ADDR */ 00325000 L @15,LCCAPTR 0089 00326000 L @15,LCCACPUS(,@15) 0089 00327000 L MCRWSAPT,WSACGTF(,@15) 0089 00328000 * RESPECIFY 0090 00329000 * MCRWSA BASED(MCRWSAPT); 0090 00330000 * SDWASR13=MCRWSAPT; /* REFRESH SAVEAREA PTR */ 00331000 ST MCRWSAPT,SDWASR13(,SDWAPTR) 0091 00332000 * SDWASR11=CVTGTF; /* REFRESH MCHEAD ADDRESS */ 00333000 L @15,CVTPTR 0092 00334000 MVC SDWASR11(4,SDWAPTR),CVTGTF(@15) 0092 00335000 * SDWASR04=MCCESAV; /* REFRESH MCCE ADDR @YM03668*/ 00336000 MVC SDWASR04(4,SDWAPTR),MCCESAV(MCRWSAPT) 0093 00337000 * 0094 00338000 * /*****************************************************************/ 00339000 * /* */ 00340000 * /* IF THE MCERROR BIT IS ON, A RECURSIVE ERROR HAS OCCURRED. ALL */ 00341000 * /* FLAGS ARE RESET, THE FRR IS DELETED, AND A RETRY IS SCHEDULED */ 00342000 * /* FOR THE SECONDARY EXIT ROUTINE (LABEL AHLXITA). NO MORE */ 00343000 * /* ENTRIES INTO AHLMCER WILL BE MADE UNTIL APPLICATIONS HAVE BEEN*/ 00344000 * /* RESTARTED. */ 00345000 * /* */ 00346000 * /*****************************************************************/ 00347000 * 0094 00348000 * IF MCERROR='1'B THEN 0094 00349000 TM MCERROR(MCRWSAPT),B'00100000' 0094 00350000 BNO @RF00094 0094 00351000 * DO; 0095 00352000 * MCERROR='0'B; /* RESET ERROR FLAG */ 00353000 * MCINCTL='0'B; /* RESET RECURSION FLAG */ 00354000 NI MCERROR(MCRWSAPT),B'01011111' 0097 00355000 * GEN(SETFRR D,WRKREGS=(WORK1,WORK2));/* REMOVE FRR */ 00356000 SETFRR D,WRKREGS=(WORK1,WORK2) 00357000 * DO; /* SETRP RETADDR(AHLXITA) 0099 00358000 * RC(SDWARETY) RETREGS(YES) 0099 00359000 * WKAREA(SDWAPTR) */ 00360000 * RESPECIFY 0100 00361000 * (GPR00P, 0100 00362000 * GPR01P, 0100 00363000 * GPR14P, 0100 00364000 * GPR15P)RSTD; 0100 00365000 * GPR01P=SDWAPTR; 0101 00366000 LR GPR01P,SDWAPTR 0101 00367000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 00368000 MVI SDWARCDE(GPR01P),X'04' 0102 00369000 * GPR01P->SDWARTYA=ADDR(AHLXITA);/* SAVE RETRY ADDRESS */ 00370000 LA @07,AHLXITA 0103 00371000 ST @07,SDWARTYA(,GPR01P) 0103 00372000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 00373000 OI SDWAUPRG(GPR01P),B'00001000' 0104 00374000 * RESPECIFY 0105 00375000 * (GPR00P, 0105 00376000 * GPR01P, 0105 00377000 * GPR14P, 0105 00378000 * GPR15P)UNRSTD; 0105 00379000 * END; 0106 00380000 * GO TO RTM; /* RETURN TO RTM TO RETRY */ 00381000 BR RTMADDR 0107 00382000 * END; 0108 00383000 * 0109 00384000 * /*****************************************************************/ 00385000 * /* */ 00386000 * /* IF THE MCINFGBR BIT IS ON, AN APPLICATION WAS IN CONTROL WHEN */ 00387000 * /* THE ERROR OCCURRED. RETRY ROUTINE AHLTFGBR IS SCHEDULED TO */ 00388000 * /* TERMINATE THAT APPLICATION. */ 00389000 * /* */ 00390000 * /*****************************************************************/ 00391000 * 0109 00392000 * IF MCINFGBR='1'B THEN 0109 00393000 @RF00094 TM MCINFGBR(MCRWSAPT),B'01000000' 0109 00394000 BNO @RF00109 0109 00395000 * DO; 0110 00396000 * MCINFGBR='0'B; /* RESET FLAG - ERROR IN RETRY 0111 00397000 * WILL BE CONSIDERED A BAD 0111 00398000 * ERROR, RESULTING IN THE 0111 00399000 * TERMINATION OF ALL FGBRS */ 00400000 NI MCINFGBR(MCRWSAPT),B'10111111' 0111 00401000 * IF SDWAPERC='0'B THEN 0112 00402000 TM SDWAPERC(SDWAPTR),B'00010000' 0112 00403000 BNZ @RF00112 0112 00404000 * CALL AHLSDUMP; /* IF AHLMCIH WAS NOT PECOLATED 00405000 * TO, TAKE SDUMP IF POSSIBLE. IF 00406000 * IT HAS BEEN PERCOLATED TO, PD 00407000 * IS ASSUMED DONE */ 00408000 BAL @14,AHLSDUMP 0113 00409000 * DO; /* SETRP RETADDR(AHLTFGBR) 0114 00410000 * RC(SDWARETY) RETREGS(YES) 0114 00411000 * WKAREA(SDWAPTR) */ 00412000 @RF00112 DS 0H 0115 00413000 * RESPECIFY 0115 00414000 * (GPR00P, 0115 00415000 * GPR01P, 0115 00416000 * GPR14P, 0115 00417000 * GPR15P)RSTD; 0115 00418000 * GPR01P=SDWAPTR; 0116 00419000 LR GPR01P,SDWAPTR 0116 00420000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 00421000 MVI SDWARCDE(GPR01P),X'04' 0117 00422000 * GPR01P->SDWARTYA=ADDR(AHLTFGBR);/* SAVE RETRY ADDRESS */ 00423000 LA @07,AHLTFGBR 0118 00424000 ST @07,SDWARTYA(,GPR01P) 0118 00425000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 00426000 OI SDWAUPRG(GPR01P),B'00001000' 0119 00427000 * RESPECIFY 0120 00428000 * (GPR00P, 0120 00429000 * GPR01P, 0120 00430000 * GPR14P, 0120 00431000 * GPR15P)UNRSTD; 0120 00432000 * END; 0121 00433000 * GO TO RTM; /* RETURN TO RTM - RTRY */ 00434000 BR RTMADDR 0122 00435000 * END; 0123 00436000 * 0124 00437000 * /*****************************************************************/ 00438000 * /* */ 00439000 * /* FALL THROUGH TO HERE INDICATES ERROR IN AHLMCER. PD ACTION IS */ 00440000 * /* TAKEN AND A RETRY TO AHLTALL IS SCHEDULED TO TERMINATE ROUTING*/ 00441000 * /* AND ALL APPLICATIONS */ 00442000 * /* */ 00443000 * /*****************************************************************/ 00444000 * 0124 00445000 * CALL AHLSDUMP; /* ATTEMP SDUMP FOR PD */ 00446000 @RF00109 BAL @14,AHLSDUMP 0124 00447000 * DO; /* SETRP RETADDR(AHLTALL) 0125 00448000 * RC(SDWARETY) RETREGS(YES) 0125 00449000 * WKAREA(SDWAPTR) */ 00450000 * RESPECIFY 0126 00451000 * (GPR00P, 0126 00452000 * GPR01P, 0126 00453000 * GPR14P, 0126 00454000 * GPR15P)RSTD; 0126 00455000 * GPR01P=SDWAPTR; 0127 00456000 LR GPR01P,SDWAPTR 0127 00457000 * GPR01P->SDWARCDE=SDWARETY; /* STORE RC INTO SDWA */ 00458000 MVI SDWARCDE(GPR01P),X'04' 0128 00459000 * GPR01P->SDWARTYA=ADDR(AHLTALL);/* SAVE RETRY ADDRESS */ 00460000 LA @07,AHLTALL 0129 00461000 ST @07,SDWARTYA(,GPR01P) 0129 00462000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 00463000 OI SDWAUPRG(GPR01P),B'00001000' 0130 00464000 * RESPECIFY 0131 00465000 * (GPR00P, 0131 00466000 * GPR01P, 0131 00467000 * GPR14P, 0131 00468000 * GPR15P)UNRSTD; 0131 00469000 * END; 0132 00470000 * GO TO RTM; 0133 00471000 BR RTMADDR 0133 00472000 * 0134 00473000 * /*****************************************************************/ 00474000 * /* */ 00475000 * /* THIS ROUTINE IS CALLED TO TAKE AN SVC DUMP IF AN ERROR */ 00476000 * /* OCCURRED DURING AHLMCER PROCESSING */ 00477000 * /* */ 00478000 * /*****************************************************************/ 00479000 * 0134 00480000 * RFY 0134 00481000 * (SDUMPSAV, 0134 00482000 * SDUMPBUF)RSTD; 0134 00483000 * 0134 00484000 * /*****************************************************************/ 00485000 * /* */ 00486000 * /* RESERVE THE SDUMP BUFFER */ 00487000 * /* */ 00488000 * /*****************************************************************/ 00489000 * 0135 00490000 *AHLSDUMP: 0135 00491000 * SDUMPSAV=RETURNAD; /* SAVE RETURN ADDRESS */ 00492000 AHLSDUMP LR SDUMPSAV,RETURNAD 0135 00493000 * SDUMPBUF=CVTSDBF; /* FIND THE SVCDUMP BUFFER */ 00494000 L @15,CVTPTR 0136 00495000 L SDUMPBUF,CVTSDBF(,@15) 0136 00496000 * IF SDUMPBUF>0 THEN 0137 00497000 LTR SDUMPBUF,SDUMPBUF 0137 00498000 BNP @RF00137 0137 00499000 * DO; /* Q. IS THE BUFFER AVAILABLE */ 00500000 * RFY 0139 00501000 * FRRWORK RSTD; 0139 00502000 * FRRWORK=SDUMPMSK|SDUMPBUF; /* IF SO, TURN ON HI-ORDER BIT TO 00503000 * RESERVE IT */ 00504000 L FRRWORK,SDUMPMSK 0140 00505000 OR FRRWORK,SDUMPBUF 0140 00506000 * CS(SDUMPMSK,FRRWORK,CVTSDBF);/* USE CS LOGIC TO RESERVE IT */ 00507000 L @15,SDUMPMSK 0141 00508000 L @08,CVTPTR 0141 00509000 CS @15,FRRWORK,CVTSDBF(@08) 0141 00510000 BZ @BC00141 0141 00511000 ST @15,SDUMPMSK 0141 00512000 @BC00141 DS 0H 0142 00513000 * BC(7,SDUMPSAV); /* RETURN WITHOUT A DUMP IF CANT 00514000 * GET BUFFER */ 00515000 BCR 7,SDUMPSAV 0142 00516000 * RFY 0143 00517000 * FRRWORK UNRSTD; 0143 00518000 * 0143 00519000 * /*************************************************************/ 00520000 * /* */ 00521000 * /* WE HAVE THE BUFFER -- MOVE THE MCRWSA AND THE RTCA INTO */ 00522000 * /* IT. EACH OF THESE TWO CONTROL BLOCKS MUST BE PRECEDED BY A*/ 00523000 * /* 6-BYTE DESCRIPTOR CONTAINING (A) THE ADDRESS FROM WHICH */ 00524000 * /* THE DATA WAS MOVED AND (B) THE 2-BYTE LENGTH OF THE DATA. */ 00525000 * /* THE LAST TABLE MUST BE FOLLOWED BY 6 BYTES OF ZEROES. */ 00526000 * /* */ 00527000 * /*************************************************************/ 00528000 * 0144 00529000 * MCRADD=ADDR(MCRWSA); /* PUT MCRWSA ADDRESS INTO BUFFER*/ 00530000 ST MCRWSAPT,MCRADD(,DUMPBUF) 0144 00531000 * MCRLEN=LENGTH(MCRWSA); /* LENGTH TO BUFFER */ 00532000 MVC MCRLEN(2,DUMPBUF),@CH01941 0145 00533000 * MCRDATA=MCRWSA; /* MOVE THE MCRWSA INTO THE 0146 00534000 * BUFFER */ 00535000 MVC MCRDATA(136,DUMPBUF),MCRWSA(MCRWSAPT) 0146 00536000 * SDWADD=ADDR(SDWA); /* ADDRESS OF RTCA (SDWA) INTO 0147 00537000 * THE BUFF */ 00538000 ST SDWAPTR,SDWADD(,DUMPBUF) 0147 00539000 * SDWLEN=LENGTH(SDWA); /* MOVE LENGTH TO THE BUFFER */ 00540000 LA @15,512 0148 00541000 STH @15,SDWLEN(,DUMPBUF) 0148 00542000 * RFY 0149 00543000 * (MV1, 0149 00544000 * MV2, 0149 00545000 * MV3, 0149 00546000 * MV4)RSTD; 0149 00547000 * MV1=ADDR(SDWDATA); /* TARGET FOR MVCL */ 00548000 LA MV1,SDWDATA(,DUMPBUF) 0150 00549000 * MV2=LENGTH(SDWA); /* NUMBER OF BYTES TO MOVE */ 00550000 LR MV2,@15 0151 00551000 * MV3=ADDR(SDWA); /* SOURCE OF MVCL */ 00552000 * MV4=MV2; /* SAME AS MV2 */ 00553000 LR MV4,MV2 0153 00554000 * MVCL(MV1,MV3); /* MOVE THE RTCA INTO THE SVCDUMP 00555000 * BUFFER */ 00556000 MVCL MV1,MV3 0154 00557000 * ENDOFBUF='000000000000'X; /* END OF DATA INDICATOR */ 00558000 MVC ENDOFBUF(6,DUMPBUF),@CB01913 0155 00559000 * RFY 0156 00560000 * (MV1, 0156 00561000 * MV2, 0156 00562000 * MV3, 0156 00563000 * MV4)UNRSTD; 0156 00564000 * RFY 0157 00565000 * SDUMPBUF UNRSTD; 0157 00566000 * 0157 00567000 * /*************************************************************/ 00568000 * /* */ 00569000 * /* TAKE A DUMP OF SQA, THIS MODULE, AND THE SDUMP BUFFER */ 00570000 * /* */ 00571000 * /*************************************************************/ 00572000 * 0158 00573000 * RFY 0158 00574000 * (SDMPASID, 0158 00575000 * APPTAB)RSTD; 0158 00576000 * SDMPASID=PSAAOLD->ASCBASID; /* RUN IT IN THIS MEMORY */ 00577000 L @15,PSAAOLD 0159 00578000 SR SDMPASID,SDMPASID 0159 00579000 ICM SDMPASID,3,ASCBASID(@15) 0159 00580000 * APPTAB=MCRMCA; /* USE MCAWSA AS A WORK ARE TO 0160 00581000 * BUILD PLIST */ 00582000 L APPTAB,MCRMCA(,MCRWSAPT) 0160 00583000 * MCAWSA(1:32)=MCAWSA(1:32)&&MCAWSA(1:32);/* CLEAR PLIST */ 00584000 L @15,AWSAPTR(,MCRWSAPT) 0161 00585000 XC MCAWSA(32,@15),MCAWSA(@15) 0161 00586000 * SECONDSV=MCRWSAPT; /* SAVE MCRWSA ADDRESS @YM03677*/ 00587000 LR SECONDSV,MCRWSAPT 0162 00588000 * RFY 0163 00589000 * MCRWSA BASED(SECONDSV); /* @YM03677*/ 00590000 * SAVERAD=ADDR(MCAWORK); /* GIVE SDUMP A SAVE AREA 0164 00591000 * @YM03677*/ 00592000 L SAVERAD,AWSAPTR(,SECONDSV) 0164 00593000 LA SAVERAD,MCAWORK(,SAVERAD) 0164 00594000 * GENERATE; 0165 00595000 SDUMP HDR='ERROR IN MODULE AHLMCER',SDATA=SQA,BUFFER=YES, *00596000 BRANCH=YES,ASID=(SDMPASID),LIST=MCERSTG, *00597000 MF=(E,(APPTAB)) 00598000 * MCRWSAPT=SECONDSV; /* RESTORE MCRWSA ADDRESS 0166 00599000 * @YM03677*/ 00600000 LR MCRWSAPT,SECONDSV 0166 00601000 * RFY 0167 00602000 * MCRWSA BASED(MCRWSAPT); /* @YM03677*/ 00603000 * END; /* END OF BUFFER AVAILABLE PATH */ 00604000 * GO TO SDUMPSAV; /* RETURN TO CALLER */ 00605000 @RF00137 BR SDUMPSAV 0169 00606000 * RFY 0170 00607000 * (SDMPASID, 0170 00608000 * APPTAB, 0170 00609000 * SDUMPSAV)UNRSTD; 0170 00610000 * 0171 00611000 * /*****************************************************************/ 00612000 * /* */ 00613000 * /* THE FOLLOWING ROUTINE DISABLES THE APPLICATION WHICH WAS IN */ 00614000 * /* CONTROL AT THE TIME OF THE ERROR. THE MCQE ADDRESS IS FOUND IN*/ 00615000 * /* THE FIRST WORD OF MCROUTSA. */ 00616000 * /* */ 00617000 * /*****************************************************************/ 00618000 * 0171 00619000 *AHLTFGBR: 0171 00620000 * RFY 0171 00621000 * MCRWSA BASED(WSACGTF); 0171 00622000 AHLTFGBR DS 0H 0172 00623000 * RFY 0172 00624000 * MCQE BASED(TMPMCQE); 0172 00625000 * RFY 0173 00626000 * TMPMCQE RSTD; 0173 00627000 * TMPMCQE=MCROUTSA(1:4); /* LOAD MCQE ADDR FROM MCRWSA */ 00628000 * 0174 00629000 L @15,LCCAPTR 0174 00630000 L @15,LCCACPUS(,@15) 0174 00631000 L @15,WSACGTF(,@15) 0174 00632000 L TMPMCQE,MCROUTSA(,@15) 0174 00633000 * /*****************************************************************/ 00634000 * /* */ 00635000 * /* DISABLE VIA SETEVENT ALL ROUTINES FOR THIS APPLICATION */ 00636000 * /* */ 00637000 * /*****************************************************************/ 00638000 * 0175 00639000 * DO; /* SETEVENT MCQE(MCQE) 0175 00640000 * ACTION(DISABLE) EIDNO(0) 0175 00641000 * CLASSNO(0) NAME(MCQENAME) 0175 00642000 * MF(E,SETLST) */ 00643000 * 0175 00644000 * /***************************************************************/ 00645000 * /* */ 00646000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY THE SETEVENT */ 00647000 * /* MACRO. THIS CODE WILL BE EITHER AN INITIALIZED PARAMETER */ 00648000 * /* LIST, OR IF IT IS THE RESULT OF STANDARD OR EXECUTE FORM IT */ 00649000 * /* WILL FILL in the list, GENERATE ALL LINKAGES AND CALL THE */ 00650000 * /* PROPER sERVICE, EITHER AHLSETEV OR AHLSETD */ 00651000 * /* */ 00652000 * /***************************************************************/ 00653000 * 0176 00654000 * DCL 0176 00655000 * AHLPPTR REG(1)PTR(31)RSTD; /* PARAMETER LIST ADDRESS */ 00656000 * DCL 0177 00657000 * AHLSETEV ENTRY OPTIONS(EXIT,SEQFLOW)BASED(MCHSETE)VALRG(0);/* 00658000 * ENTRY FOR ADD ACTIVAT,FREE */ 00659000 * DCL 0178 00660000 * AHLSETD ENTRY OPTIONS(EXIT,SEQFLOW)BASED(MCHSETD)VALRG(0);/* 00661000 * ENTRY FOR DISABLE AND CHANGE */ 00662000 * DCL 0179 00663000 * 1 SEPL BASED(AHLPPTR)BDY(WORD),/* DSECT PARAMETER LIST */ 00664000 * 2 SEFG PTR(8), /* ACTION GLAGS */ 00665000 * 2 * PTR(8), 0179 00666000 * 2 SEEN PTR(8), /* EID COUNT */ 00667000 * 2 SECN PTR(8), /* CLASS COUNT */ 00668000 * 2 SENM CHAR(8), /* APPLICATION NMAE */ 00669000 * 2 SEEL PTR(31), /* ADDRESS OF LIST OF EIDS */ 00670000 * 2 SECL PTR(31), /* ADDRESS OF LIST OF CLASSES */ 00671000 * 2 SEMC PTR(31); /* MCQE ADDRESS */ 00672000 * AHLPPTR=ADDR(SETLST); /* SET UP PLIST PTR */ 00673000 L AHLPPTR,AWSAPTR(,@15) 0180 00674000 LA AHLPPTR,SETLST(,AHLPPTR) 0180 00675000 * SEMC=ADDR(MCQE); /* SET UP MCQE ADDRESS */ 00676000 ST TMPMCQE,SEMC(,AHLPPTR) 0181 00677000 * SENM=MCQENAME; /* MOVE NAME INTO PLIST */ 00678000 MVC SENM(8,AHLPPTR),MCQENAME(TMPMCQE) 0182 00679000 * SEFG=32; /* MOVE FLAGS INTO PLIST */ 00680000 MVI SEFG(AHLPPTR),X'20' 0183 00681000 * SEEN=0; /* SET TO VALUE SPECIFIED */ 00682000 MVI SEEN(AHLPPTR),X'00' 0184 00683000 * SECN=0; /* SET TO VALUE SPECIFIED */ 00684000 MVI SECN(AHLPPTR),X'00' 0185 00685000 * IF SEFG=32|SEFG=8 THEN /* CHECK FOR DISABLE OR * CHANGE */ 00686000 CLI SEFG(AHLPPTR),32 0186 00687000 BE @RT00186 0186 00688000 CLI SEFG(AHLPPTR),8 0186 00689000 BNE @RF00186 0186 00690000 @RT00186 DS 0H 0187 00691000 * CALL AHLSETD; /* YES */ 00692000 L @09,CVTPTR 0187 00693000 L @09,CVTGTF(,@09) 0187 00694000 L @15,MCHSETD(,@09) 0187 00695000 BALR @14,@15 0187 00696000 * ELSE /* NO */ 00697000 * CALL AHLSETEV; 0188 00698000 B @RC00186 0188 00699000 @RF00186 L @09,CVTPTR 0188 00700000 L @09,CVTGTF(,@09) 0188 00701000 L @15,MCHSETE(,@09) 0188 00702000 BALR @14,@15 0188 00703000 * END; /* DISABLE ALL ROUTINES FOR THIS 00704000 * APPLICATION */ 00705000 * 0189 00706000 @RC00186 DS 0H 0190 00707000 * /*****************************************************************/ 00708000 * /* */ 00709000 * /* SCHEDULE SRB IN THIS APPLICATIONS MCQE IF IT HAS NOT ALREADY */ 00710000 * /* BEEN SCHEDULED. THE SRB ROUTINE WILL POST THE TERMINATION ECB */ 00711000 * /* IN THE MCQE. PROCESSING THEN CONTINUES AT LABEL AHLRELOD TO */ 00712000 * /* CONTINUE PROCESSING OF THIS EVENT WITH THE NEXT MCEE/MCCLE. */ 00713000 * /* */ 00714000 * /*****************************************************************/ 00715000 * 0190 00716000 * GENERATE; 0190 00717000 TS MCQESCHE(TMPMCQE) /* Q. IS SRB IN THIS MCQE 00718000 * ALREADY SCHEDULED */ 00719000 BC 7,AHLRELOD /* IF SO, DONT SCHEDULE AGAIN */ 00720000 LA SRBREG,MCQESRB(TMPMCQE) /* IF NOT SCHEDULED, DO SO */ 00721000 SCHEDULE SRB=(1) 00722000 B AHLRELOD 00723000 * 0191 00724000 * /*****************************************************************/ 00725000 * /* */ 00726000 * /* THIS ROUTINE RECEIVES CONTROL AS A RETRY ROUTINE WHEN ERROR */ 00727000 * /* RECOVERY DETERMINES THAT ALL APPLICATIONS ARE TO BE */ 00728000 * /* TERMINATED. ROUTING IS MARKED AS INACTIVE AND ALL APPLICATIONS*/ 00729000 * /* ARE TERMINATED BY SCHEDULING THE SRB IN EACH MCQE. */ 00730000 * /* */ 00731000 * /*****************************************************************/ 00732000 * 0191 00733000 *AHLTALL: 0191 00734000 * RFY 0191 00735000 * MCCE BASED(MCCEAD); 0191 00736000 AHLTALL DS 0H 0192 00737000 * RFY 0192 00738000 * TMPMCQE RSTD; 0192 00739000 * MCHTERM='1'B; /* SET TERMINATION FLAG TO 0193 00740000 * INDICATE THAT AHLMCER HAS 0193 00741000 * TERMINATED MC ROUTING. */ 00742000 * MCHACT='0'B; /* TURN OFF ACTIVE FLAG */ 00743000 L @15,CVTPTR 0194 00744000 L @15,CVTGTF(,@15) 0194 00745000 OI MCHTERM(@15),B'01000000' 0194 00746000 NI MCHACT(@15),B'01111111' 0194 00747000 * MCERROR='1'B; /* SET CRITICAL ERROR FLAG, IN 0195 00748000 * CASE OF ERROR SCHEDULING SRBS.*/ 00749000 L @15,LCCAPTR 0195 00750000 L @15,LCCACPUS(,@15) 0195 00751000 L @15,WSACGTF(,@15) 0195 00752000 OI MCERROR(@15),B'00100000' 0195 00753000 * RFY 0196 00754000 * (MSGPTR, 0196 00755000 * SAVERAD)RSTD; /* @YM3668*/ 00756000 * SAVERAD=ADDR(MCAWORK); /* FIND SAVEAREA FOR RECORD 0197 00757000 * @YM3668*/ 00758000 L SAVERAD,AWSAPTR(,@15) 0197 00759000 LA SAVERAD,MCAWORK(,SAVERAD) 0197 00760000 * MSGPTR=M132ADDR; /* PICK UP MESSAGE ADDRESS */ 00761000 L MSGPTR,M132ADDR 0198 00762000 * GENERATE; 0199 00763000 RECORD TYPE=WTO,RCVRY=SETFRR,DATAADR=(MSGPTR),BUFFER=NO 00764000 * MCRWSAPT=WSACGTF; /* REESTABLISH MCRWSA ADDR 0200 00765000 * @YM3668*/ 00766000 L @15,LCCAPTR 0200 00767000 L @15,LCCACPUS(,@15) 0200 00768000 L MCRWSAPT,WSACGTF(,@15) 0200 00769000 * RFY 0201 00770000 * (MSGPTR, 0201 00771000 * SAVERAD)UNRSTD; /* @YM3668*/ 00772000 * TMPMCQE=MCCEQEA; /* LOAD FIRST MCQE ADDRESS */ 00773000 L TMPMCQE,MCCEQEA(,MCCEAD) 0202 00774000 * GENERATE; 0203 00775000 AHLMCPST TS MCQESCHE(TMPMCQE) /* Q. HAS SRB IN THIS MCQE AL- 00776000 * READY BEEN SCHEDULED */ 00777000 BC 7,AHLMCLNK /* IF SO, DONT SCHEDULE */ 00778000 LA SRBREG,MCQESRB(TMPMCQE) /* IF NOT, FIND SRB */ 00779000 SCHEDULE SRB=(1) /* SCHEDULE IT */ 00780000 AHLMCLNK L TMPMCQE,MCQEMCQE(TMPMCQE) /* LOAD NEXT MCQE ADDR */ 00781000 LTR TMPMCQE,TMPMCQE /* Q. IS THIS LAST ONE */ 00782000 BNE AHLMCPST /* IF NOT, SCHEDULE THIS ONE */ 00783000 * MCERROR='0'B; /* RESET CRITICAL ERROR FLAG */ 00784000 L @15,LCCAPTR 0204 00785000 L @15,LCCACPUS(,@15) 0204 00786000 L @15,WSACGTF(,@15) 0204 00787000 NI MCERROR(@15),B'11011111' 0204 00788000 * GO TO AHLXIT1; /* QUIT */ 00789000 B AHLXIT1 0205 00790000 * 0206 00791000 * /*****************************************************************/ 00792000 * /* */ 00793000 * /* THE FOLLOWING EXIT CODE IS IDENTICAL TO THE CODE AT LABEL */ 00794000 * /* AHLXIT1 EXCEPT THAT THE SETFRR HAS BEEN REMOVED. THIS EXIT IS */ 00795000 * /* USED IF A RECURSIVE ERROR OCCURS, AND IS SCHEDULED AS A RETRY */ 00796000 * /* ROUTINE IN THAT CASE */ 00797000 * /* */ 00798000 * /*****************************************************************/ 00799000 * 0206 00800000 * GENERATE; 0206 00801000 AHLXITA L USECOUNT,MCHCNT(HEADREG) /* LOAD USE COUNT FROM MCHEAD*/ 00802000 LR WORK1,MCCEAD /* CREATE BACKUP FOR MCCE @ */ 00803000 AHLCSDB LR WORK2,USECOUNT /* CREATE COPY OF USE COUNT */ 00804000 BCTR USECOUNT,0 /* DECREMENT USE COUNT BY 1 */ 00805000 CDS WORK1,MCCEAD,MCHCUR(HEADREG) /* DECREMENT COUNT AND 00806000 * VERIFY MCCE ADDRESS */ 00807000 BC 8,AHLXITB /* IF SUCCESSFUL, EXIT */ 00808000 CR WORK1,MCCEAD /* Q. DID TABLE ADDR CHANGE */ 00809000 BE AHLCSDB /* IF NOT, REDO TO SET CORRECT 00810000 * COUNT */ 00811000 LTR MCCEAD,MCCEAD /* Q. WAS OLD ONE ZERO */ 00812000 BE AHLXITB /* IF SO, EXIT */ 00813000 L WORK2,MCCECNT(MCCEAD) /* LOAD USE COUNT FROM MCCE */ 00814000 AHLCSDC LR USECOUNT,WORK2 /* CREATE COPY OF COUNT */ 00815000 BCTR USECOUNT,0 /* DECREMENT BY 1 */ 00816000 CS WORK2,USECOUNT,MCCECNT(MCCEAD) /* PLACE IN MCCE */ 00817000 BC 7,AHLCSDC /* IF DIDNT GO, REDO UNTIL OK */ 00818000 LTR USECOUNT,USECOUNT /* Q. DID COUNT BECOME ZERO */ 00819000 BNE AHLXITB /* IF NOT, EXIT */ 00820000 LA SRBREG,MCCESRB(MCCEAD) /* SRB ADDR TO REG 1 */ 00821000 SCHEDULE SRB=(SRBREG) /* SCHEDULE SRB TO FREE TABLES*/ 00822000 AHLXITB NI MCRWSAF(MCRWSAPT),X'FF'-MCINCNTL-BRNCHENT /*RESET FLGS*/ 00823000 AHLXITC LM MCQEAD,RETURNAD,MCRMCIH(MCRWSAPT) /* RESTORE REGS */ 00824000 BR RETURNAD /* RETURN TO CALLER */ 00825000 LTORG 00826000 M132ADDR DC A(AHLMCMSG) 00827000 AHLMCMSG CSECT 00828000 WTO 'AHL132I MC ROUTING FACILITY TERMINATING ON ERROR CONDITION',*00829000 ROUTCDE=(2),DESC=(4),MF=L 00830000 AHLMCER CSECT 00831000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00832000 * GPR00P PTR(31)REG(0), 0207 00833000 * GPR01P PTR(31)REG(1), 0207 00834000 * GPR14P PTR(31)REG(14), 0207 00835000 * GPR15P PTR(31)REG(15); 0207 00836000 * DECLARE /* COMMON VARIABLES */ 00837000 * I256C CHAR(256)BASED, 0208 00838000 * I031F FIXED(31)BASED, 0208 00839000 * I031P PTR(31)BASED, 0208 00840000 * I015F FIXED(15)BASED, 0208 00841000 * I015P PTR(15)BASED, 0208 00842000 * I008P PTR(8)BASED, 0208 00843000 * I001C CHAR(1)BASED; 0208 00844000 *AHLMCERN: 0209 00845000 * END AHLMCER 0209 00846000 * 0209 00847000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00848000 */*%INCLUDE SYSLIB (CVT ) */ 00849000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 00850000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00851000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00852000 */*%INCLUDE SYSLIB (IHALCCA ) */ 00853000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00854000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 00855000 */*%INCLUDE SYSLIB (IHASRB ) */ 00856000 */*%INCLUDE SYSLIB (MCCE ) */ 00857000 */*%INCLUDE SYSLIB (MCQE ) */ 00858000 */*%INCLUDE SYSLIB (MCCD ) */ 00859000 */*%INCLUDE SYSLIB (MCEE ) */ 00860000 */*%INCLUDE SYSLIB (MCCLE ) */ 00861000 */*%INCLUDE SYSLIB (MCHEAD ) */ 00862000 */*%INCLUDE SYSLIB (MCRWSA ) */ 00863000 */*%INCLUDE SYSLIB (MCAWSA ) */ 00864000 * 0209 00865000 * ; 0209 00866000 AHLMCERN DS 0H 0209 00867000 @DATA DS 0H 00868000 @CH01941 DC H'136' 00869000 @DATD DSECT 00870000 DS 0F 00871000 AHLMCER CSECT 00872000 DS 0F 00873000 @DATD DSECT 00874000 DS 0D 00875000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00876000 @ENDDATD EQU * 00877000 AHLMCER CSECT 00878000 DS 0F 00879000 @SIZDATD DC AL1(0) 00880000 DC AL3(@ENDDATD-@DATD) 00881000 DS 0D 00882000 MCERORG DC AL4(AHLMCER1) 00883000 SDUMPMSK DC XL4'80000000' 00884000 @CB01913 DC X'000000000000' 00885000 DS CL2 00886000 MCERSTG DS CL8 00887000 ORG MCERSTG 00888000 @NM00084 DC AL4(AHLMCER) 00889000 @NM00085 DC XL1'80' 00890000 @NM00086 DC AL3(AHLMCERN) 00891000 ORG MCERSTG+8 00892000 MCERID DC CL24'AHLMCER AHLMCER AHLMCER' 00893000 AHLMPTCH DC 100X'00' 00894000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00895000 @01 EQU 01 00896000 @02 EQU 02 00897000 @03 EQU 03 00898000 @04 EQU 04 00899000 @05 EQU 05 00900000 @06 EQU 06 00901000 @07 EQU 07 00902000 @08 EQU 08 00903000 @09 EQU 09 00904000 @10 EQU 10 00905000 @11 EQU 11 00906000 @12 EQU 12 00907000 @13 EQU 13 00908000 @14 EQU 14 00909000 @15 EQU 15 00910000 SDWAAD EQU @01 00911000 APPTAB EQU @02 00912000 MCCEAD EQU @04 00913000 RTMADDR EQU @04 00914000 RETRYAD EQU @05 00915000 SDWAPTR EQU @06 00916000 MV3 EQU @06 00917000 MV4 EQU @07 00918000 MSGPTR EQU @07 00919000 SECONDSV EQU @08 00920000 TMPMCQE EQU @08 00921000 MV1 EQU @08 00922000 MV2 EQU @09 00923000 SDMPASID EQU @09 00924000 FRRWORK EQU @09 00925000 DUMPBUF EQU @10 00926000 SDUMPBUF EQU @10 00927000 SDUMPSAV EQU @11 00928000 SAVERAD EQU @13 00929000 MCRWSAPT EQU @13 00930000 RETURNAD EQU @14 00931000 GPR00P EQU @00 00932000 GPR01P EQU @01 00933000 GPR14P EQU @14 00934000 GPR15P EQU @15 00935000 AHLPPTR EQU @01 00936000 APPLCRTN EQU @15 00937000 ELEMAD EQU @06 00938000 HEADREG EQU @11 00939000 MCAPTR EQU @03 00940000 MCDA EQU @02 00941000 MCERBASE EQU @12 00942000 MCQEAD EQU @00 00943000 RETURNER EQU @07 00944000 SRBREG EQU @01 00945000 TEMPPTR EQU @15 00946000 USECOUNT EQU @05 00947000 WORK1 EQU @02 00948000 WORK2 EQU @03 00949000 ENTRY AHLMPTCH 00950000 CVTPTR EQU 16 00951000 PSA EQU 0 00952000 FLCRNPSW EQU PSA 00953000 FLCROPSW EQU PSA+8 00954000 FLCICCW2 EQU PSA+16 00955000 PSAEEPSW EQU PSA+132 00956000 PSAESPSW EQU PSA+136 00957000 FLCSVILC EQU PSAESPSW+1 00958000 PSAEPPSW EQU PSA+140 00959000 FLCPIILC EQU PSAEPPSW+1 00960000 FLCPICOD EQU PSAEPPSW+2 00961000 PSAPICOD EQU FLCPICOD+1 00962000 FLCTEA EQU PSAEPPSW+4 00963000 FLCPER EQU PSA+152 00964000 FLCMCLA EQU PSA+168 00965000 FLCIOEL EQU FLCMCLA+4 00966000 FLCIOA EQU FLCMCLA+16 00967000 FLCFSA EQU FLCMCLA+80 00968000 PSALCCAV EQU PSA+528 00969000 PSAAOLD EQU PSA+548 00970000 PSASUPER EQU PSA+552 00971000 PSASUP1 EQU PSASUPER 00972000 PSASUP2 EQU PSASUPER+1 00973000 PSASUP3 EQU PSASUPER+2 00974000 PSASUP4 EQU PSASUPER+3 00975000 PSACLHT EQU PSA+640 00976000 PSALKSA EQU PSA+696 00977000 PSAHLHI EQU PSA+760 00978000 PSADSSFL EQU PSA+836 00979000 PSADSSF1 EQU PSADSSFL 00980000 PSADSSF3 EQU PSADSSFL+2 00981000 PSADSSF4 EQU PSADSSFL+3 00982000 PSARSVT EQU PSA+896 00983000 CVTMAP EQU 0 00984000 CVTDAR EQU CVTMAP+72 00985000 CVTFLGS1 EQU CVTDAR 00986000 CVTDCB EQU CVTMAP+116 00987000 CVTIERLC EQU CVTMAP+144 00988000 CVTOPTA EQU CVTMAP+182 00989000 CVTOPTB EQU CVTMAP+183 00990000 CVTGTF EQU CVTMAP+236 00991000 CVTGTFST EQU CVTGTF 00992000 CVTGTFS EQU CVTGTFST 00993000 CVTSTATE EQU CVTGTFST 00994000 CVTTMODE EQU CVTGTFST 00995000 CVTFORM EQU CVTGTFST 00996000 CVTUSR EQU CVTGTFST 00997000 CVTAQAVT EQU CVTMAP+240 00998000 CVTTCMFG EQU CVTAQAVT 00999000 CVTVOLM2 EQU CVTMAP+244 01000000 CVTTATA EQU CVTVOLM2 01001000 CVTTSKS EQU CVTTATA 01002000 CVTVOLF2 EQU CVTTSKS 01003000 CVTTAT EQU CVTTATA+1 01004000 CVTATER EQU CVTMAP+248 01005000 CVTEXT1 EQU CVTMAP+252 01006000 CVTPURG EQU CVTMAP+260 01007000 CVTQMSG EQU CVTMAP+268 01008000 CVTDMSR EQU CVTMAP+272 01009000 CVTERPV EQU CVTMAP+316 01010000 CVTINTLA EQU CVTMAP+320 01011000 CVTAPF EQU CVTMAP+324 01012000 CVTEXT2 EQU CVTMAP+328 01013000 CVTHJES EQU CVTMAP+332 01014000 CVTPGSIA EQU CVTMAP+348 01015000 CVTA1F1 EQU CVTMAP+356 01016000 CVTSYSK EQU CVTMAP+357 01017000 CVTVOLM1 EQU CVTMAP+380 01018000 CVTVOLF1 EQU CVTVOLM1 01019000 CVTATMCT EQU CVTMAP+388 01020000 CVTXTNT1 EQU 0 01021000 CVTXTNT2 EQU 0 01022000 CVTDSSV EQU CVTXTNT2 01023000 CVTRSV90 EQU CVTXTNT2+5 01024000 CVTQID EQU CVTXTNT2+24 01025000 CVTRV400 EQU CVTXTNT2+52 01026000 CVTRV409 EQU CVTXTNT2+53 01027000 CVTATCVT EQU CVTXTNT2+64 01028000 CVTRV429 EQU CVTXTNT2+84 01029000 CVTRV438 EQU CVTXTNT2+85 01030000 CVTRV457 EQU CVTXTNT2+112 01031000 CVTRV466 EQU CVTXTNT2+113 01032000 CVTFIX EQU 0 01033000 CVTRELNO EQU CVTFIX+252 01034000 WSAC EQU 0 01035000 WSACGTF EQU WSAC+4 01036000 ASCB EQU 0 01037000 ASCBASID EQU ASCB+36 01038000 ASCBFW1 EQU ASCB+100 01039000 ASCBRCTF EQU ASCBFW1+2 01040000 ASCBFLG1 EQU ASCBFW1+3 01041000 ASCBDSP1 EQU ASCB+114 01042000 ASCBFLG2 EQU ASCB+115 01043000 LCCA EQU 0 01044000 LCCAIHRC EQU LCCA+520 01045000 LCCAIHR1 EQU LCCAIHRC 01046000 LCCAIHR2 EQU LCCAIHRC+1 01047000 LCCAIHR3 EQU LCCAIHRC+2 01048000 LCCAIHR4 EQU LCCAIHRC+3 01049000 LCCASPIN EQU LCCA+524 01050000 LCCASPN1 EQU LCCASPIN 01051000 LCCASPN2 EQU LCCASPIN+1 01052000 LCCASPN3 EQU LCCASPIN+2 01053000 LCCASPN4 EQU LCCASPIN+3 01054000 LCCACPUS EQU LCCA+536 01055000 LCCADSF1 EQU LCCA+540 01056000 LCCADSF2 EQU LCCA+541 01057000 LCCASPSA EQU LCCA+544 01058000 LCCACRFL EQU LCCA+692 01059000 LCCACREX EQU LCCA+693 01060000 LCCALKFG EQU LCCA+694 01061000 LCCASRBF EQU LCCA+720 01062000 SDWA EQU 0 01063000 SDWAFIOB EQU SDWA+4 01064000 SDWAABCC EQU SDWAFIOB 01065000 SDWACMPF EQU SDWAABCC 01066000 SDWAREQ EQU SDWACMPF 01067000 SDWACTL1 EQU SDWA+8 01068000 SDWACMKA EQU SDWACTL1 01069000 SDWAMWPA EQU SDWACTL1+1 01070000 SDWAPMKA EQU SDWACTL1+4 01071000 SDWACTL2 EQU SDWA+16 01072000 SDWACMKP EQU SDWACTL2 01073000 SDWAMWPP EQU SDWACTL2+1 01074000 SDWAPMKP EQU SDWACTL2+4 01075000 SDWANXTP EQU SDWACTL2+5 01076000 SDWAGRSV EQU SDWA+24 01077000 SDWANAME EQU SDWA+88 01078000 SDWAEC1 EQU SDWA+104 01079000 SDWAEMK1 EQU SDWAEC1 01080000 SDWAMWP1 EQU SDWAEC1+1 01081000 SDWAINT1 EQU SDWAEC1+2 01082000 SDWANXT1 EQU SDWAEC1+4 01083000 SDWAAEC1 EQU SDWA+112 01084000 SDWAILC1 EQU SDWAAEC1+1 01085000 SDWAINC1 EQU SDWAAEC1+2 01086000 SDWAICD1 EQU SDWAINC1+1 01087000 SDWAEC2 EQU SDWA+120 01088000 SDWAEMK2 EQU SDWAEC2 01089000 SDWAMWP2 EQU SDWAEC2+1 01090000 SDWAINT2 EQU SDWAEC2+2 01091000 SDWANXT2 EQU SDWAEC2+4 01092000 SDWAAEC2 EQU SDWA+128 01093000 SDWAILC2 EQU SDWAAEC2+1 01094000 SDWAINC2 EQU SDWAAEC2+2 01095000 SDWAICD2 EQU SDWAINC2+1 01096000 SDWASRSV EQU SDWA+136 01097000 SDWASR04 EQU SDWASRSV+16 01098000 SDWASR11 EQU SDWASRSV+44 01099000 SDWASR12 EQU SDWASRSV+48 01100000 SDWASR13 EQU SDWASRSV+52 01101000 SDWAIDNT EQU SDWA+200 01102000 SDWAMCH EQU SDWA+204 01103000 SDWASTCK EQU SDWAMCH 01104000 SDWAMCHI EQU SDWAMCH+8 01105000 SDWAMCHS EQU SDWAMCHI 01106000 SDWAMCHD EQU SDWAMCHI+1 01107000 SDWAREGU EQU SDWAMCHD 01108000 SDWAPSWU EQU SDWAMCHD 01109000 SDWAINSF EQU SDWAMCHD 01110000 SDWARSR1 EQU SDWAMCH+12 01111000 SDWARSR2 EQU SDWAMCH+13 01112000 SDWAFLGS EQU SDWA+232 01113000 SDWAERRA EQU SDWAFLGS 01114000 SDWAERRB EQU SDWAFLGS+1 01115000 SDWAERRC EQU SDWAFLGS+2 01116000 SDWAPERC EQU SDWAERRC 01117000 SDWAERRD EQU SDWAFLGS+3 01118000 SDWAIOFS EQU SDWA+238 01119000 SDWARTYA EQU SDWA+240 01120000 SDWACPUA EQU SDWA+248 01121000 SDWAPARQ EQU SDWA+252 01122000 SDWARCDE EQU SDWAPARQ 01123000 SDWAACF2 EQU SDWAPARQ+1 01124000 SDWAUPRG EQU SDWAACF2 01125000 SDWAACF3 EQU SDWAPARQ+2 01126000 SDWAACF4 EQU SDWAPARQ+3 01127000 SDWALKWA EQU SDWA+256 01128000 SDWALKWS EQU SDWALKWA 01129000 SDWARECP EQU SDWA+292 01130000 SDWASNPA EQU SDWA+320 01131000 SDWADUMP EQU SDWASNPA 01132000 SDWADPFS EQU SDWADUMP+1 01133000 SDWADDAT EQU SDWASNPA+4 01134000 SDWASDAT EQU SDWADDAT 01135000 SDWAPDAT EQU SDWADDAT+2 01136000 SDWADPSA EQU SDWA+328 01137000 SDWADPSL EQU SDWADPSA 01138000 SDWARA EQU SDWA+400 01139000 SDWADPVA EQU SDWARA+2 01140000 FRRS EQU 0 01141000 FRRSHEAD EQU FRRS 01142000 FRRSPTR EQU 0 01143000 FRRSENTR EQU 0 01144000 FRRSFLGS EQU FRRSENTR+4 01145000 FRRSFLG1 EQU FRRSFLGS 01146000 FRREPTR EQU 0 01147000 SRBPTR EQU 0 01148000 SRBSECT EQU 0 01149000 SRB EQU SRBSECT 01150000 SRBFLC EQU SRB+12 01151000 MCCE EQU 0 01152000 MCCEQEA EQU MCCE+16 01153000 MCQE EQU 0 01154000 MCQENAME EQU MCQE+8 01155000 MCQEFLGS EQU MCQE+41 01156000 MCCD EQU 0 01157000 MCCDFLG1 EQU MCCD+8 01158000 MCEE EQU 0 01159000 MCEEFLGS EQU MCEE+8 01160000 MCEEFLG1 EQU MCEEFLGS 01161000 MCCLE EQU 0 01162000 MCCLFLGS EQU MCCLE+8 01163000 MCCLFLG1 EQU MCCLFLGS 01164000 MCHEAD EQU 0 01165000 MCHFLGS EQU MCHEAD+24 01166000 MCHFLG1 EQU MCHFLGS 01167000 MCHACT EQU MCHFLG1 01168000 MCHTERM EQU MCHFLG1 01169000 MCHSETE EQU MCHEAD+28 01170000 MCHSETD EQU MCHEAD+32 01171000 MCRWSA EQU 0 01172000 MCRMCIH EQU MCRWSA 01173000 MCROUTSA EQU MCRWSA+64 01174000 MCRMCA EQU MCRWSA+128 01175000 MCRWSAF EQU MCRWSA+132 01176000 MCINCTL EQU MCRWSAF 01177000 MCINFGBR EQU MCRWSAF 01178000 MCERROR EQU MCRWSAF 01179000 MCAWSA EQU 0 01180000 MCATRAIL EQU MCAWSA+256 01181000 MCATRL1 EQU MCATRAIL 01182000 MCATRL2 EQU MCATRAIL+1 01183000 MCATRL3 EQU MCATRAIL+2 01184000 MCATRL4 EQU MCATRAIL+3 01185000 MCATRL5 EQU MCATRAIL+4 01186000 MCATRL6 EQU MCATRAIL+5 01187000 MCATRL7 EQU MCATRAIL+6 01188000 MCAWORK EQU MCAWSA+584 01189000 RETRYADR EQU 0 01190000 RTM EQU 0 01191000 SDMPBUFR EQU 0 01192000 MCRADD EQU SDMPBUFR 01193000 MCRLEN EQU SDMPBUFR+4 01194000 MCRDATA EQU SDMPBUFR+6 01195000 SDWADD EQU SDMPBUFR+142 01196000 SDWLEN EQU SDMPBUFR+146 01197000 SDWDATA EQU SDMPBUFR+148 01198000 ENDOFBUF EQU SDMPBUFR+660 01199000 I256C EQU 0 01200000 AHLSETEV EQU 0 01201000 AHLSETD EQU 0 01202000 SEPL EQU 0 01203000 SEFG EQU SEPL 01204000 SEEN EQU SEPL+2 01205000 SECN EQU SEPL+3 01206000 SENM EQU SEPL+4 01207000 SEMC EQU SEPL+20 01208000 I001C EQU 0 01209000 I008P EQU 0 01210000 I015F EQU 0 01211000 I015P EQU 0 01212000 I031F EQU 0 01213000 I031P EQU 0 01214000 RETURNPT EQU 0 01215000 CVTS01 EQU CVTPGSIA 01216000 CVTLPDIA EQU CVTS01+12 01217000 CVTDIRST EQU CVTLPDIA 01218000 CVTSLIDA EQU CVTS01+24 01219000 CVTCTLFG EQU CVTS01+50 01220000 CVTSDBF EQU CVTS01+240 01221000 CVTRV210 EQU CVTS01+424 01222000 CVTRV219 EQU CVTS01+425 01223000 CVTRV228 EQU CVTS01+426 01224000 CVTRV237 EQU CVTS01+427 01225000 CVTMFRTR EQU CVTS01+452 01226000 CVTRV262 EQU CVTS01+468 01227000 CVTRV271 EQU CVTS01+469 01228000 CVTRV280 EQU CVTS01+470 01229000 CVTRV289 EQU CVTS01+471 01230000 CVTGSDA EQU CVTS01+600 01231000 PSARSVTE EQU PSARSVT 01232000 ASCBPTR EQU PSAAOLD 01233000 LCCAPTR EQU PSALCCAV 01234000 AWSAPTR EQU MCRMCA 01235000 MCCESAV EQU MCRMCIH+60 01236000 SETLST EQU MCAWORK 01237000 FLC EQU PSA 01238000 * START UNREFERENCED COMPONENTS 01239000 SETLST07 EQU SETLST+20 01240000 SETLST06 EQU SETLST+16 01241000 SETLST05 EQU SETLST+12 01242000 SETLST04 EQU SETLST+4 01243000 SETLST03 EQU SETLST+3 01244000 SETLST02 EQU SETLST+2 01245000 @NM00087 EQU SETLST+1 01246000 SETLST01 EQU SETLST 01247000 PSARSAV EQU PSARSVTE+60 01248000 PSARSTK EQU PSARSVTE+56 01249000 PSAESAV3 EQU PSARSVTE+52 01250000 PSAESTK3 EQU PSARSVTE+48 01251000 PSAESAV2 EQU PSARSVTE+44 01252000 PSAESTK2 EQU PSARSVTE+40 01253000 PSAESAV1 EQU PSARSVTE+36 01254000 PSAESTK1 EQU PSARSVTE+32 01255000 PSAPSAV EQU PSARSVTE+28 01256000 PSAPSTK EQU PSARSVTE+24 01257000 PSAMSAV EQU PSARSVTE+20 01258000 PSAMSTK EQU PSARSVTE+16 01259000 PSASSAV EQU PSARSVTE+12 01260000 PSASSTK EQU PSARSVTE+8 01261000 PSANSTK EQU PSARSVTE+4 01262000 PSACSTK EQU PSARSVTE 01263000 CVTTPIO EQU CVTS01+608 01264000 CVTADV EQU CVTS01+604 01265000 CVTGSDAB EQU CVTGSDA 01266000 CVTQV3 EQU CVTS01+596 01267000 CVTQV2 EQU CVTS01+592 01268000 CVTQV1 EQU CVTS01+588 01269000 CVTRPT EQU CVTS01+584 01270000 CVTSSRB EQU CVTS01+580 01271000 CVTCSDRL EQU CVTS01+576 01272000 CVTEXP1 EQU CVTS01+572 01273000 CVTRMPMT EQU CVTS01+568 01274000 CVTRMPTT EQU CVTS01+564 01275000 CVTVPSA EQU CVTS01+560 01276000 CVTVSTOP EQU CVTS01+556 01277000 CVTGTFR8 EQU CVTS01+552 01278000 CVTQUIT EQU CVTS01+548 01279000 CVTVACR EQU CVTS01+544 01280000 CVTWTCB EQU CVTS01+540 01281000 CVTSTPRS EQU CVTS01+536 01282000 CVT0PT02 EQU CVTS01+532 01283000 CVTDARCM EQU CVTS01+528 01284000 CVTIRECM EQU CVTS01+524 01285000 CVTJRECM EQU CVTS01+520 01286000 CVTVEMS0 EQU CVTS01+516 01287000 CVTSPFRR EQU CVTS01+512 01288000 CVTRLSTG EQU CVTS01+508 01289000 CVT0TC0A EQU CVTS01+504 01290000 CVTGMBR EQU CVTS01+500 01291000 CVTLFRM EQU CVTS01+496 01292000 CVTRMBR EQU CVTS01+492 01293000 CVTVIOP EQU CVTS01+488 01294000 CVTRV307 EQU CVTS01+486 01295000 CVTRV306 EQU CVTS01+484 01296000 CVTRV305 EQU CVTS01+482 01297000 CVTRV304 EQU CVTS01+480 01298000 CVTRV303 EQU CVTS01+478 01299000 CVTRV302 EQU CVTS01+476 01300000 CVTRV301 EQU CVTS01+475 01301000 CVTRV300 EQU CVTS01+474 01302000 CVTRV299 EQU CVTS01+473 01303000 CVTRV298 EQU CVTS01+472 01304000 CVTRV297 EQU CVTRV289 01305000 CVTRV296 EQU CVTRV289 01306000 CVTRV295 EQU CVTRV289 01307000 CVTRV294 EQU CVTRV289 01308000 CVTRV293 EQU CVTRV289 01309000 CVTRV292 EQU CVTRV289 01310000 CVTRV291 EQU CVTRV289 01311000 CVTRV290 EQU CVTRV289 01312000 CVTRV288 EQU CVTRV280 01313000 CVTRV287 EQU CVTRV280 01314000 CVTRV286 EQU CVTRV280 01315000 CVTRV285 EQU CVTRV280 01316000 CVTRV284 EQU CVTRV280 01317000 CVTRV283 EQU CVTRV280 01318000 CVTRV282 EQU CVTRV280 01319000 CVTRV281 EQU CVTRV280 01320000 CVTRV279 EQU CVTRV271 01321000 CVTRV278 EQU CVTRV271 01322000 CVTRV277 EQU CVTRV271 01323000 CVTRV276 EQU CVTRV271 01324000 CVTRV275 EQU CVTRV271 01325000 CVTRV274 EQU CVTRV271 01326000 CVTRV273 EQU CVTRV271 01327000 CVTRV272 EQU CVTRV271 01328000 CVTRV270 EQU CVTRV262 01329000 CVTRV269 EQU CVTRV262 01330000 CVTRV268 EQU CVTRV262 01331000 CVTRV267 EQU CVTRV262 01332000 CVTRV266 EQU CVTRV262 01333000 CVTRV265 EQU CVTRV262 01334000 CVTRV264 EQU CVTRV262 01335000 CVTRV263 EQU CVTRV262 01336000 CVTVFP EQU CVTS01+464 01337000 CVTVSI EQU CVTS01+460 01338000 CVTVPSIB EQU CVTS01+456 01339000 CVTMFACT EQU CVTMFRTR 01340000 CVTMFCTL EQU CVTS01+448 01341000 CVTPVBP EQU CVTS01+444 01342000 CVTPWI EQU CVTS01+440 01343000 CVTRV254 EQU CVTS01+438 01344000 CVTRV253 EQU CVTS01+436 01345000 CVTRV252 EQU CVTS01+434 01346000 CVTRV251 EQU CVTS01+433 01347000 CVTRV250 EQU CVTS01+432 01348000 CVTRV249 EQU CVTS01+431 01349000 CVTRV248 EQU CVTS01+430 01350000 CVTRV247 EQU CVTS01+429 01351000 CVTRV246 EQU CVTS01+428 01352000 CVTRV245 EQU CVTRV237 01353000 CVTRV244 EQU CVTRV237 01354000 CVTRV243 EQU CVTRV237 01355000 CVTRV242 EQU CVTRV237 01356000 CVTRV241 EQU CVTRV237 01357000 CVTRV240 EQU CVTRV237 01358000 CVTRV239 EQU CVTRV237 01359000 CVTRV238 EQU CVTRV237 01360000 CVTRV236 EQU CVTRV228 01361000 CVTRV235 EQU CVTRV228 01362000 CVTRV234 EQU CVTRV228 01363000 CVTRV233 EQU CVTRV228 01364000 CVTRV232 EQU CVTRV228 01365000 CVTRV231 EQU CVTRV228 01366000 CVTRV230 EQU CVTRV228 01367000 CVTRV229 EQU CVTRV228 01368000 CVTRV227 EQU CVTRV219 01369000 CVTRV226 EQU CVTRV219 01370000 CVTRV225 EQU CVTRV219 01371000 CVTRV224 EQU CVTRV219 01372000 CVTRV223 EQU CVTRV219 01373000 CVTRV222 EQU CVTRV219 01374000 CVTRV221 EQU CVTRV219 01375000 CVTRV220 EQU CVTRV219 01376000 CVTRV218 EQU CVTRV210 01377000 CVTRV217 EQU CVTRV210 01378000 CVTRV216 EQU CVTRV210 01379000 CVTRV215 EQU CVTRV210 01380000 CVTRV214 EQU CVTRV210 01381000 CVTRV213 EQU CVTRV210 01382000 CVTRV212 EQU CVTRV210 01383000 CVTRV211 EQU CVTRV210 01384000 CVTLCCAT EQU CVTS01+420 01385000 CVTPCCAT EQU CVTS01+416 01386000 CVTIPCRP EQU CVTS01+412 01387000 CVTIPCRI EQU CVTS01+408 01388000 CVTIPCDS EQU CVTS01+404 01389000 CVTAIDVT EQU CVTS01+400 01390000 CVTSSAP EQU CVTS01+396 01391000 CVTEHCIR EQU CVTS01+392 01392000 CVTEHDEF EQU CVTS01+388 01393000 CVTDAIR EQU CVTS01+384 01394000 CVTPERFM EQU CVTS01+380 01395000 CVT044R2 EQU CVTS01+376 01396000 CVTFETCH EQU CVTS01+372 01397000 CVTRSTWD EQU CVTS01+368 01398000 CVTSPOST EQU CVTS01+364 01399000 CVTIOBP EQU CVTS01+360 01400000 CVTASMVT EQU CVTS01+356 01401000 CVTRECRQ EQU CVTS01+352 01402000 CVTWSAC EQU CVTS01+348 01403000 CVTRV149 EQU CVTS01+344 01404000 CVTWSAL EQU CVTS01+340 01405000 CVTSPSA EQU CVTS01+336 01406000 CVTGLMN EQU CVTS01+332 01407000 CVTVEAC0 EQU CVTS01+328 01408000 CVT062R1 EQU CVTS01+324 01409000 CVTRPOST EQU CVTS01+320 01410000 CVTDQIQE EQU CVTS01+316 01411000 CVTCSD EQU CVTS01+312 01412000 CVTLKRMA EQU CVTS01+308 01413000 CVTRSPIE EQU CVTS01+304 01414000 CVTRENQ EQU CVTS01+300 01415000 CVTLQCB EQU CVTS01+296 01416000 CVTFQCB EQU CVTS01+292 01417000 CVTQCS01 EQU CVTS01+288 01418000 CVTAPFT EQU CVTS01+284 01419000 CVTPARRL EQU CVTS01+280 01420000 CVTVWAIT EQU CVTS01+276 01421000 CVTGSPL EQU CVTS01+272 01422000 CVTLSMQ EQU CVTS01+268 01423000 CVTGSMQ EQU CVTS01+264 01424000 CVTEXPRO EQU CVTS01+260 01425000 CVTOPCTP EQU CVTS01+256 01426000 CVTSIC EQU CVTS01+252 01427000 CVTTPIOS EQU CVTS01+248 01428000 CVTRTMS EQU CVTS01+244 01429000 CVTSCBP EQU CVTS01+236 01430000 CVTSDMP EQU CVTS01+232 01431000 CVTSV60 EQU CVTS01+228 01432000 CVTRTMCT EQU CVTS01+224 01433000 CVTASCBL EQU CVTS01+220 01434000 CVTASCBH EQU CVTS01+216 01435000 CVTGDA EQU CVTS01+212 01436000 CVTASVT EQU CVTS01+208 01437000 CVTVVMDI EQU CVTS01+204 01438000 CVTAQTOP EQU CVTS01+200 01439000 CVTIOSCS EQU CVTS01+196 01440000 CVTSDRM EQU CVTS01+192 01441000 CVTOPTE EQU CVTS01+188 01442000 CVTSTXU EQU CVTS01+184 01443000 CVTQUIS EQU CVTS01+180 01444000 CVTPARS EQU CVTS01+176 01445000 CVTS1EE EQU CVTS01+172 01446000 CVTFRAS EQU CVTS01+168 01447000 CVTQSAS EQU CVTS01+164 01448000 CVTCRAS EQU CVTS01+160 01449000 CVTCRMN EQU CVTS01+156 01450000 CVTDELCP EQU CVTS01+152 01451000 CVTFRECL EQU CVTS01+148 01452000 CVTGETCL EQU CVTS01+144 01453000 CVTBLDCP EQU CVTS01+140 01454000 CVTAUTHL EQU CVTS01+136 01455000 CVTSCAN EQU CVTS01+132 01456000 CVTRV144 EQU CVTS01+130 01457000 CVTMAXMP EQU CVTS01+128 01458000 CVTSTCK EQU CVTS01+124 01459000 CVTRV139 EQU CVTS01+123 01460000 CVTDSSAC EQU CVTS01+122 01461000 CVTRV513 EQU CVTS01+121 01462000 CVTIOSPL EQU CVTS01+120 01463000 CVTPTGT EQU CVTS01+116 01464000 CVTCSPIE EQU CVTS01+112 01465000 CVTSMFEX EQU CVTS01+108 01466000 CVTOLT0A EQU CVTS01+104 01467000 CVTSRBRT EQU CVTS01+100 01468000 CVTPUTL EQU CVTS01+96 01469000 CVTRV519 EQU CVTS01+92 01470000 CVTRV327 EQU CVTS01+88 01471000 CVTRV326 EQU CVTS01+84 01472000 CVTRV325 EQU CVTS01+80 01473000 CVTRV324 EQU CVTS01+76 01474000 CVT0VL01 EQU CVTS01+72 01475000 CVTSHRVM EQU CVTS01+68 01476000 CVTRV332 EQU CVTS01+64 01477000 CVTTAS EQU CVTS01+60 01478000 CVTRSCN EQU CVTS01+56 01479000 CVTTRAC2 EQU CVTS01+54 01480000 CVTTRACE EQU CVTS01+52 01481000 CVTAPG EQU CVTS01+51 01482000 CVTSDTRC EQU CVTCTLFG 01483000 CVTGTRCE EQU CVTCTLFG 01484000 CVTNOMP EQU CVTCTLFG 01485000 CVTRSV79 EQU CVTCTLFG 01486000 CVTDSTAT EQU CVTCTLFG 01487000 CVTRSV78 EQU CVTCTLFG 01488000 CVTRV333 EQU CVTCTLFG 01489000 CVTRV323 EQU CVTCTLFG 01490000 CVTSPVLK EQU CVTS01+49 01491000 CVTRSV77 EQU CVTS01+48 01492000 CVTRV331 EQU CVTS01+44 01493000 CVTRV330 EQU CVTS01+40 01494000 CVTRV329 EQU CVTS01+36 01495000 CVTRV328 EQU CVTS01+32 01496000 CVTRV322 EQU CVTS01+28 01497000 CVTSLID EQU CVTSLIDA+1 01498000 CVTSYLK EQU CVTSLIDA 01499000 CVTRV321 EQU CVTS01+20 01500000 CVTRV320 EQU CVTS01+16 01501000 CVTLPDIR EQU CVTLPDIA+1 01502000 CVTRSV69 EQU CVTDIRST 01503000 CVTRSV68 EQU CVTDIRST 01504000 CVTRSV67 EQU CVTDIRST 01505000 CVTRSV66 EQU CVTDIRST 01506000 CVTRSV65 EQU CVTDIRST 01507000 CVTRSV64 EQU CVTDIRST 01508000 CVTRSV63 EQU CVTDIRST 01509000 CVTDICOM EQU CVTDIRST 01510000 CVTPVTP EQU CVTS01+8 01511000 CVTLPDSR EQU CVTS01+4 01512000 CVTGETL EQU CVTS01 01513000 SECL EQU SEPL+16 01514000 SEEL EQU SEPL+12 01515000 @NM00088 EQU SEPL+1 01516000 MCASWORK EQU MCAWSA+644 01517000 MCAREC EQU MCAWSA+284 01518000 MCARECPR EQU MCAWSA+268 01519000 MCAMCR EQU MCAWSA+264 01520000 MCATRL8 EQU MCATRAIL+7 01521000 MCAFRECT EQU MCATRL7 01522000 MCAFRECC EQU MCATRL7 01523000 MCAFRESP EQU MCATRL7 01524000 MCAFREXJ EQU MCATRL7 01525000 MCAFRSBR EQU MCATRL6 01526000 MCAFRDMJ EQU MCATRL6 01527000 MCAFRDPC EQU MCATRL6 01528000 MCAFRPIC EQU MCATRL6 01529000 MCAFRPIJ EQU MCATRL6 01530000 @NM00083 EQU MCATRL5 01531000 MCADREGS EQU MCATRL5 01532000 MCAFRRB EQU MCATRL5 01533000 MCAFRRJ EQU MCATRL5 01534000 MCAFRRA EQU MCATRL5 01535000 MCAFRERT EQU MCATRL5 01536000 MCAFREPC EQU MCATRL5 01537000 MCAMJOBN EQU MCATRL4 01538000 MCAMSDWA EQU MCATRL4 01539000 MCAMBTU EQU MCATRL4 01540000 MCAMIOSB EQU MCATRL4 01541000 MCAMTCB EQU MCATRL4 01542000 MCAMASCB EQU MCATRL4 01543000 MCAMUCB EQU MCATRL4 01544000 MCAMEXT EQU MCATRL4 01545000 MCAFRFRT EQU MCATRL3 01546000 MCAFRFA EQU MCATRL3 01547000 MCAFRSJ EQU MCATRL3 01548000 MCAFRSA EQU MCATRL3 01549000 MCAPIF EQU MCATRL3 01550000 MCASIOF EQU MCATRL3 01551000 MCAIOF EQU MCATRL3 01552000 MCASVCF EQU MCATRL3 01553000 MCATDIR EQU MCATRL2 01554000 MCALSR EQU MCATRL2 01555000 MCAERROR EQU MCATRL2 01556000 MCAUIO EQU MCATRL2 01557000 MCASTA EQU MCATRL2 01558000 MCAFRR EQU MCATRL2 01559000 MCASRM EQU MCATRL2 01560000 MCARNIO EQU MCATRL2 01561000 MCAUSR EQU MCATRL1 01562000 MCAPI EQU MCATRL1 01563000 MCASRB EQU MCATRL1 01564000 MCADSP EQU MCATRL1 01565000 MCASIO EQU MCATRL1 01566000 MCAIO EQU MCATRL1 01567000 MCAEXT EQU MCATRL1 01568000 MCASVC EQU MCATRL1 01569000 MCAMSG EQU MCAWSA+192 01570000 MCASETEV EQU MCAWSA+128 01571000 MCAFWORK EQU MCAWSA+112 01572000 MCASFEOB EQU MCAWSA+56 01573000 MCASBLOK EQU MCAWSA 01574000 MCREID EQU MCRWSA+134 01575000 MCRRESV EQU MCRWSAF 01576000 MCRBRENT EQU MCRWSAF 01577000 MCHEADTR EQU MCHEAD+48 01578000 MCHEADRD EQU MCHEAD+44 01579000 MCHFRRAD EQU MCHEAD+40 01580000 MCHMCER EQU MCHEAD+36 01581000 @NM00082 EQU MCHFLGS+1 01582000 @NM00081 EQU MCHFLG1 01583000 MCHDIS EQU MCHEAD+20 01584000 MCHCTL EQU MCHEAD+16 01585000 MCHCNT EQU MCHEAD+12 01586000 MCHCUR EQU MCHEAD+8 01587000 MCHIDEN EQU MCHEAD 01588000 MCCLMCQL EQU MCCLE+24 01589000 MCCLEIDL EQU MCCLE+20 01590000 MCCLMCQE EQU MCCLE+16 01591000 MCCLRTN EQU MCCLE+12 01592000 MCCLCLAS EQU MCCLFLGS+2 01593000 MCCLFLG2 EQU MCCLFLGS+1 01594000 MCCLRESV EQU MCCLFLG1 01595000 MCCLDIS EQU MCCLFLG1 01596000 MCCLIDEN EQU MCCLE 01597000 MCEEMCQL EQU MCEE+24 01598000 MCEEEIDL EQU MCEE+20 01599000 MCEEMCQE EQU MCEE+16 01600000 MCEERTN EQU MCEE+12 01601000 MCEEEID EQU MCEEFLGS+2 01602000 MCEEFLG2 EQU MCEEFLGS+1 01603000 MCEERESV EQU MCEEFLG1 01604000 MCEEDIS EQU MCEEFLG1 01605000 MCEEIDEN EQU MCEE 01606000 MCCDCLE EQU MCCD+12 01607000 MCCDCNT EQU MCCD+10 01608000 MCCDRESV EQU MCCDFLG1 01609000 MCCDDEL EQU MCCDFLG1 01610000 MCCDIDEN EQU MCCD 01611000 MCQESRB EQU MCQE+44 01612000 @NM00080 EQU MCQE+42 01613000 @NM00079 EQU MCQEFLGS 01614000 MCQEACT EQU MCQEFLGS 01615000 MCQESCHE EQU MCQE+40 01616000 MCQETECB EQU MCQE+36 01617000 MCQEAT EQU MCQE+32 01618000 MCQEMCCL EQU MCQE+28 01619000 MCQEMCEE EQU MCQE+24 01620000 MCQEMCQE EQU MCQE+20 01621000 MCQEASCB EQU MCQE+16 01622000 MCQEIDEN EQU MCQE 01623000 MCCESRB EQU MCCE+44 01624000 MCCEECB EQU MCCE+40 01625000 MCCEMCCE EQU MCCE+36 01626000 MCCECNT EQU MCCE+32 01627000 MCCEOMCQ EQU MCCE+28 01628000 MCCEOCDA EQU MCCE+24 01629000 MCCEOEDA EQU MCCE+20 01630000 MCCECDA EQU MCCE+12 01631000 MCCEEDA EQU MCCE+8 01632000 MCCEIDEN EQU MCCE 01633000 @NM00078 EQU SRB+40 01634000 @NM00077 EQU SRB+38 01635000 SRBPRIOR EQU SRB+37 01636000 SRBPKF EQU SRB+36 01637000 SRBSAVE EQU SRB+32 01638000 SRBPARM EQU SRB+28 01639000 SRBRMTR EQU SRB+24 01640000 SRBEP EQU SRB+20 01641000 SRBPTCB EQU SRBFLC+4 01642000 SRBPASID EQU SRBFLC+2 01643000 SRBCPAFF EQU SRBFLC 01644000 SRBASCB EQU SRB+8 01645000 SRBFLNK EQU SRB+4 01646000 SRBID EQU SRB 01647000 FRRSPARM EQU FRRSENTR+8 01648000 @NM00076 EQU FRRSFLGS+1 01649000 @NM00075 EQU FRRSFLG1 01650000 FRRSNEST EQU FRRSFLG1 01651000 FRRSRCUR EQU FRRSFLG1 01652000 FRRSFRRA EQU FRRSENTR 01653000 FRRSENTS EQU FRRS+84 01654000 FRRSRTMW EQU FRRS+16 01655000 FRRSCURR EQU FRRSHEAD+12 01656000 FRRSELEN EQU FRRSHEAD+8 01657000 FRRSLAST EQU FRRSHEAD+4 01658000 FRRSEMP EQU FRRSHEAD 01659000 @NM00074 EQU SDWA+512 01660000 SDWAVRA EQU SDWARA+4 01661000 SDWAURAL EQU SDWARA+3 01662000 @NM00073 EQU SDWADPVA 01663000 SDWAEBC EQU SDWADPVA 01664000 SDWAHEX EQU SDWADPVA 01665000 SDWAVRAL EQU SDWARA 01666000 @NM00072 EQU SDWA+396 01667000 SDWACOMP EQU SDWA+392 01668000 SDWARCPL EQU SDWA+364 01669000 @NM00071 EQU SDWADPSA+32 01670000 SDWATO4 EQU SDWADPSL+28 01671000 SDWAFRM4 EQU SDWADPSL+24 01672000 SDWATO3 EQU SDWADPSL+20 01673000 SDWAFRM3 EQU SDWADPSL+16 01674000 SDWATO2 EQU SDWADPSL+12 01675000 SDWAFRM2 EQU SDWADPSL+8 01676000 SDWATO1 EQU SDWADPSL+4 01677000 SDWAFRM1 EQU SDWADPSL 01678000 @NM00070 EQU SDWADDAT+3 01679000 @NM00069 EQU SDWAPDAT 01680000 SDWAUSPL EQU SDWAPDAT 01681000 SDWADPSW EQU SDWAPDAT 01682000 SDWATJPA EQU SDWAPDAT 01683000 SDWATLPA EQU SDWAPDAT 01684000 SDWADREG EQU SDWAPDAT 01685000 SDWADSAH EQU SDWAPDAT 01686000 SDWADSAS EQU SDWAPDAT 01687000 @NM00068 EQU SDWADDAT+1 01688000 @NM00067 EQU SDWASDAT 01689000 SDWAQQS EQU SDWASDAT 01690000 SDWACBS EQU SDWASDAT 01691000 SDWAGTF EQU SDWASDAT 01692000 SDWASWA EQU SDWASDAT 01693000 SDWALSQA EQU SDWASDAT 01694000 SDWASQA EQU SDWASDAT 01695000 SDWANUC EQU SDWASDAT 01696000 @NM00066 EQU SDWADUMP+2 01697000 @NM00065 EQU SDWADPFS 01698000 SDWASLST EQU SDWADPFS 01699000 @NM00064 EQU SDWADPFS 01700000 SDWADLST EQU SDWADPFS 01701000 SDWADPT EQU SDWADPFS 01702000 SDWADPID EQU SDWADUMP 01703000 SDWADPLA EQU SDWA+316 01704000 SDWAREXN EQU SDWARECP+16 01705000 SDWACSCT EQU SDWARECP+8 01706000 SDWAMODN EQU SDWARECP 01707000 @NM00063 EQU SDWALKWA+32 01708000 SDWATALW EQU SDWALKWS+28 01709000 SDWATDLW EQU SDWALKWS+24 01710000 SDWATNLW EQU SDWALKWS+20 01711000 SDWAAPLW EQU SDWALKWS+16 01712000 SDWAIPLW EQU SDWALKWS+12 01713000 SDWAILLW EQU SDWALKWS+8 01714000 SDWAIULW EQU SDWALKWS+4 01715000 SDWAICLW EQU SDWALKWS 01716000 SDWAFLLK EQU SDWAACF4 01717000 SDWACMS EQU SDWAACF4 01718000 SDWAOPTM EQU SDWAACF4 01719000 SDWATADB EQU SDWAACF4 01720000 SDWATDNB EQU SDWAACF4 01721000 SDWATNCB EQU SDWAACF4 01722000 SDWAILCH EQU SDWAACF4 01723000 SDWAIUCB EQU SDWAACF4 01724000 SDWAICAT EQU SDWAACF3 01725000 SDWAIPRG EQU SDWAACF3 01726000 SDWASALL EQU SDWAACF3 01727000 SDWAASMP EQU SDWAACF3 01728000 SDWADISP EQU SDWAACF3 01729000 @NM00062 EQU SDWAACF3 01730000 @NM00061 EQU SDWAACF2 01731000 SDWAFREE EQU SDWAACF2 01732000 @NM00060 EQU SDWAACF2 01733000 SDWASPIN EQU SDWAACF2 01734000 @NM00059 EQU SDWAACF2 01735000 SDWARCRD EQU SDWAACF2 01736000 SDWALCPU EQU SDWACPUA+2 01737000 @NM00058 EQU SDWACPUA 01738000 SDWARECA EQU SDWA+244 01739000 @NM00057 EQU SDWA+239 01740000 @NM00056 EQU SDWAIOFS 01741000 SDWANIOP EQU SDWAIOFS 01742000 SDWANOIO EQU SDWAIOFS 01743000 SDWAIOHT EQU SDWAIOFS 01744000 SDWAIOQR EQU SDWAIOFS 01745000 SDWAFMID EQU SDWA+236 01746000 @NM00055 EQU SDWAERRD 01747000 SDWAMCIV EQU SDWAERRD 01748000 SDWARPIV EQU SDWAERRD 01749000 SDWAMABD EQU SDWAERRD 01750000 SDWACTS EQU SDWAERRD 01751000 SDWASTAE EQU SDWAERRD 01752000 SDWANRBE EQU SDWAERRD 01753000 SDWACLUP EQU SDWAERRD 01754000 @NM00054 EQU SDWAERRC 01755000 SDWAEAS EQU SDWAERRC 01756000 SDWAIRB EQU SDWAERRC 01757000 SDWASTAI EQU SDWAERRC 01758000 SDWASTAF EQU SDWAERRC 01759000 SDWASRBM EQU SDWAERRB 01760000 SDWALDIS EQU SDWAERRB 01761000 SDWAENRB EQU SDWAERRB 01762000 SDWATYP1 EQU SDWAERRB 01763000 @NM00053 EQU SDWAERRB 01764000 SDWAPGIO EQU SDWAERRA 01765000 SDWATEXC EQU SDWAERRA 01766000 SDWASVCE EQU SDWAERRA 01767000 SDWAABTM EQU SDWAERRA 01768000 SDWASVCD EQU SDWAERRA 01769000 SDWARKEY EQU SDWAERRA 01770000 SDWAPCHK EQU SDWAERRA 01771000 SDWAMCHK EQU SDWAERRA 01772000 SDWATIME EQU SDWAMCH+20 01773000 SDWARFSA EQU SDWAMCH+16 01774000 @NM00052 EQU SDWAMCH+14 01775000 SDWAVEQR EQU SDWARSR2 01776000 SDWAPGFX EQU SDWARSR2 01777000 SDWAFLSQ EQU SDWARSR2 01778000 SDWAFSQA EQU SDWARSR2 01779000 SDWANUCL EQU SDWARSR2 01780000 SDWASPER EQU SDWARSR2 01781000 SDWAINTC EQU SDWARSR2 01782000 SDWAOFLN EQU SDWARSR2 01783000 SDWACHNG EQU SDWARSR1 01784000 SDWAMSER EQU SDWARSR1 01785000 @NM00051 EQU SDWARSR1 01786000 SDWACPID EQU SDWAMCH+10 01787000 SDWATERR EQU SDWAMCHD 01788000 SDWAFPRX EQU SDWAMCHD 01789000 SDWAACR EQU SDWAMCHD 01790000 SDWASCK EQU SDWAMCHD 01791000 SDWASKYF EQU SDWAMCHD 01792000 @NM00050 EQU SDWAMCHS 01793000 SDWARSRF EQU SDWAMCHS 01794000 SDWARSRC EQU SDWAMCHS 01795000 SDWAINVP EQU SDWAMCHS 01796000 SDWATSVL EQU SDWAMCHS 01797000 SDWARCDF EQU SDWAMCHS 01798000 SDWASRVL EQU SDWAMCHS 01799000 SDWASCKE EQU SDWASTCK+4 01800000 SDWASCKB EQU SDWASTCK 01801000 SDWALNTH EQU SDWAIDNT+1 01802000 SDWASPID EQU SDWAIDNT 01803000 SDWASR15 EQU SDWASRSV+60 01804000 SDWASR14 EQU SDWASRSV+56 01805000 SDWASR10 EQU SDWASRSV+40 01806000 SDWASR09 EQU SDWASRSV+36 01807000 SDWASR08 EQU SDWASRSV+32 01808000 SDWASR07 EQU SDWASRSV+28 01809000 SDWASR06 EQU SDWASRSV+24 01810000 SDWASR05 EQU SDWASRSV+20 01811000 SDWASR03 EQU SDWASRSV+12 01812000 SDWASR02 EQU SDWASRSV+8 01813000 SDWASR01 EQU SDWASRSV+4 01814000 SDWASR00 EQU SDWASRSV 01815000 SDWATRN2 EQU SDWAAEC2+4 01816000 SDWAIPC2 EQU SDWAICD2 01817000 SDWAIMC2 EQU SDWAICD2 01818000 SDWAIPR2 EQU SDWAICD2 01819000 @NM00049 EQU SDWAINC2 01820000 @NM00048 EQU SDWAILC2 01821000 SDWAIL2 EQU SDWAILC2 01822000 @NM00047 EQU SDWAILC2 01823000 @NM00046 EQU SDWAAEC2 01824000 SDWAADD2 EQU SDWANXT2+1 01825000 @NM00045 EQU SDWANXT2 01826000 @NM00044 EQU SDWAEC2+3 01827000 SDWASGN2 EQU SDWAINT2 01828000 SDWAEXP2 EQU SDWAINT2 01829000 SDWADEC2 EQU SDWAINT2 01830000 SDWAFPO2 EQU SDWAINT2 01831000 SDWACC2 EQU SDWAINT2 01832000 @NM00043 EQU SDWAINT2 01833000 SDWAPGM2 EQU SDWAMWP2 01834000 SDWAWAT2 EQU SDWAMWP2 01835000 SDWAMCK2 EQU SDWAMWP2 01836000 SDWAECT2 EQU SDWAMWP2 01837000 SDWAKEY2 EQU SDWAMWP2 01838000 SDWAEXT2 EQU SDWAEMK2 01839000 SDWAIO2 EQU SDWAEMK2 01840000 SDWATRM2 EQU SDWAEMK2 01841000 @NM00042 EQU SDWAEMK2 01842000 SDWAPER2 EQU SDWAEMK2 01843000 @NM00041 EQU SDWAEMK2 01844000 SDWATRAN EQU SDWAAEC1+4 01845000 SDWAIPC1 EQU SDWAICD1 01846000 SDWAIMC1 EQU SDWAICD1 01847000 SDWAIPR1 EQU SDWAICD1 01848000 @NM00040 EQU SDWAINC1 01849000 @NM00039 EQU SDWAILC1 01850000 SDWAIL1 EQU SDWAILC1 01851000 @NM00038 EQU SDWAILC1 01852000 @NM00037 EQU SDWAAEC1 01853000 SDWAADD1 EQU SDWANXT1+1 01854000 @NM00036 EQU SDWANXT1 01855000 @NM00035 EQU SDWAEC1+3 01856000 SDWASGN1 EQU SDWAINT1 01857000 SDWAEXP1 EQU SDWAINT1 01858000 SDWADEC1 EQU SDWAINT1 01859000 SDWAFPO1 EQU SDWAINT1 01860000 SDWACC1 EQU SDWAINT1 01861000 @NM00034 EQU SDWAINT1 01862000 SDWAPGM1 EQU SDWAMWP1 01863000 SDWAWAT1 EQU SDWAMWP1 01864000 SDWAMCK1 EQU SDWAMWP1 01865000 SDWAECT1 EQU SDWAMWP1 01866000 SDWAKEY1 EQU SDWAMWP1 01867000 SDWAEXT1 EQU SDWAEMK1 01868000 SDWAIO1 EQU SDWAEMK1 01869000 SDWATRM1 EQU SDWAEMK1 01870000 @NM00033 EQU SDWAEMK1 01871000 SDWAPER1 EQU SDWAEMK1 01872000 @NM00032 EQU SDWAEMK1 01873000 SDWAIOBR EQU SDWA+100 01874000 SDWAEPA EQU SDWA+96 01875000 @NM00031 EQU SDWANAME+4 01876000 SDWARBAD EQU SDWANAME 01877000 SDWAGR15 EQU SDWAGRSV+60 01878000 SDWAGR14 EQU SDWAGRSV+56 01879000 SDWAGR13 EQU SDWAGRSV+52 01880000 SDWAGR12 EQU SDWAGRSV+48 01881000 SDWAGR11 EQU SDWAGRSV+44 01882000 SDWAGR10 EQU SDWAGRSV+40 01883000 SDWAGR09 EQU SDWAGRSV+36 01884000 SDWAGR08 EQU SDWAGRSV+32 01885000 SDWAGR07 EQU SDWAGRSV+28 01886000 SDWAGR06 EQU SDWAGRSV+24 01887000 SDWAGR05 EQU SDWAGRSV+20 01888000 SDWAGR04 EQU SDWAGRSV+16 01889000 SDWAGR03 EQU SDWAGRSV+12 01890000 SDWAGR02 EQU SDWAGRSV+8 01891000 SDWAGR01 EQU SDWAGRSV+4 01892000 SDWAGR00 EQU SDWAGRSV 01893000 SDWASGP EQU SDWAPMKP 01894000 SDWAEUP EQU SDWAPMKP 01895000 SDWADOP EQU SDWAPMKP 01896000 SDWAFPP EQU SDWAPMKP 01897000 SDWACCP EQU SDWAPMKP 01898000 SDWAILP EQU SDWAPMKP 01899000 SDWAINTP EQU SDWACTL2+2 01900000 SDWASPVP EQU SDWAMWPP 01901000 SDWAWATP EQU SDWAMWPP 01902000 SDWAMCKP EQU SDWAMWPP 01903000 @NM00030 EQU SDWAMWPP 01904000 SDWAKEYP EQU SDWAMWPP 01905000 SDWAEXTP EQU SDWACMKP 01906000 SDWAIOP EQU SDWACMKP 01907000 SDWANXTA EQU SDWACTL1+5 01908000 SDWASGA EQU SDWAPMKA 01909000 SDWAEUA EQU SDWAPMKA 01910000 SDWADOA EQU SDWAPMKA 01911000 SDWAFPA EQU SDWAPMKA 01912000 SDWACCA EQU SDWAPMKA 01913000 SDWAILA EQU SDWAPMKA 01914000 SDWAINTA EQU SDWACTL1+2 01915000 SDWASPVA EQU SDWAMWPA 01916000 SDWAWATA EQU SDWAMWPA 01917000 SDWAMCKA EQU SDWAMWPA 01918000 @NM00029 EQU SDWAMWPA 01919000 SDWAKEYA EQU SDWAMWPA 01920000 SDWAEXTA EQU SDWACMKA 01921000 SDWAIOA EQU SDWACMKA 01922000 SDWACMPC EQU SDWAABCC+1 01923000 @NM00028 EQU SDWACMPF 01924000 SDWASTCC EQU SDWACMPF 01925000 @NM00027 EQU SDWACMPF 01926000 SDWASTEP EQU SDWACMPF 01927000 SDWAPARM EQU SDWA 01928000 LCCAR125 EQU LCCA+964 01929000 LCCAR124 EQU LCCA+960 01930000 LCCAR123 EQU LCCA+956 01931000 LCCAR122 EQU LCCA+952 01932000 LCCAR121 EQU LCCA+948 01933000 LCCAR120 EQU LCCA+944 01934000 LCCAR119 EQU LCCA+940 01935000 LCCAR118 EQU LCCA+936 01936000 LCCAR117 EQU LCCA+932 01937000 LCCAR116 EQU LCCA+928 01938000 LCCAR115 EQU LCCA+924 01939000 LCCAR114 EQU LCCA+920 01940000 LCCAR113 EQU LCCA+916 01941000 LCCAR112 EQU LCCA+912 01942000 LCCAR111 EQU LCCA+908 01943000 LCCAR110 EQU LCCA+904 01944000 LCCAR109 EQU LCCA+900 01945000 LCCAR108 EQU LCCA+896 01946000 LCCADRT2 EQU LCCA+888 01947000 LCCADRT1 EQU LCCA+880 01948000 LCCAR103 EQU LCCA+876 01949000 LCCAESS2 EQU LCCA+872 01950000 LCCASPLJ EQU LCCA+868 01951000 LCCASMQJ EQU LCCA+864 01952000 LCCAIRT EQU LCCA+736 01953000 LCCARV90 EQU LCCA+732 01954000 LCCARV89 EQU LCCA+728 01955000 LCCAPGTA EQU LCCASRBF+2 01956000 LCCASAFN EQU LCCASRBF 01957000 LCCAECSA EQU LCCA+716 01958000 LCCAICR0 EQU LCCA+712 01959000 LCCALWTM EQU LCCA+704 01960000 LCCARV78 EQU LCCA+700 01961000 LCCAPINV EQU LCCA+696 01962000 LCCARV88 EQU LCCA+695 01963000 LCCARV87 EQU LCCALKFG 01964000 LCCARV86 EQU LCCALKFG 01965000 LCCARV85 EQU LCCALKFG 01966000 LCCARV84 EQU LCCALKFG 01967000 LCCALKRD EQU LCCALKFG 01968000 LCCALKAQ EQU LCCALKFG 01969000 LCCALKSA EQU LCCALKFG 01970000 LCCALKDP EQU LCCALKFG 01971000 LCCACRST EQU LCCACREX 01972000 LCCACRDP EQU LCCACREX 01973000 LCCACRLM EQU LCCACREX 01974000 LCCACRIN EQU LCCACREX 01975000 LCCACRRT EQU LCCACREX 01976000 LCCACRLE EQU LCCACREX 01977000 LCCACRRM EQU LCCACREX 01978000 LCCACREF EQU LCCACREX 01979000 LCCAVARY EQU LCCACRFL 01980000 LCCARV73 EQU LCCACRFL 01981000 LCCARV72 EQU LCCACRFL 01982000 LCCARV71 EQU LCCACRFL 01983000 LCCARV70 EQU LCCACRFL 01984000 LCCARV69 EQU LCCACRFL 01985000 LCCACLMS EQU LCCACRFL 01986000 LCCACRTM EQU LCCACRFL 01987000 LCCALCR0 EQU LCCA+688 01988000 LCCACRLC EQU LCCA+684 01989000 LCCARCPU EQU LCCA+680 01990000 LCCADCPU EQU LCCA+676 01991000 LCCASRBJ EQU LCCA+672 01992000 LCCADSSR EQU LCCA+668 01993000 LCCADSSC EQU LCCA+660 01994000 LCCADSS3 EQU LCCA+648 01995000 LCCADSS2 EQU LCCA+636 01996000 LCCADSS1 EQU LCCA+624 01997000 LCCAWTIM EQU LCCA+616 01998000 LCCAITOD EQU LCCA+608 01999000 LCCADTOD EQU LCCA+600 02000000 LCCASTOD EQU LCCA+592 02001000 LCCARIR5 EQU LCCASPSA+44 02002000 LCCARIR4 EQU LCCASPSA+40 02003000 LCCARIR3 EQU LCCASPSA+36 02004000 LCCARIR2 EQU LCCASPSA+32 02005000 LCCARPR5 EQU LCCASPSA+28 02006000 LCCARPR4 EQU LCCASPSA+24 02007000 LCCARPR3 EQU LCCASPSA+20 02008000 LCCARPR2 EQU LCCASPSA+16 02009000 LCCADSR5 EQU LCCASPSA+12 02010000 LCCADSR4 EQU LCCASPSA+8 02011000 LCCADSR3 EQU LCCASPSA+4 02012000 LCCADSR2 EQU LCCASPSA 02013000 LCCARV68 EQU LCCA+543 02014000 LCCAPSMK EQU LCCA+542 02015000 LCCARV67 EQU LCCADSF2 02016000 LCCARV66 EQU LCCADSF2 02017000 LCCARV65 EQU LCCADSF2 02018000 LCCARV64 EQU LCCADSF2 02019000 LCCADSRW EQU LCCADSF2 02020000 LCCADSPL EQU LCCADSF2 02021000 LCCAGSRB EQU LCCADSF2 02022000 LCCASRBM EQU LCCADSF2 02023000 LCCARV61 EQU LCCADSF1 02024000 LCCARV60 EQU LCCADSF1 02025000 LCCARV59 EQU LCCADSF1 02026000 LCCARV58 EQU LCCADSF1 02027000 LCCATIMR EQU LCCADSF1 02028000 LCCADSS EQU LCCADSF1 02029000 LCCAVCPU EQU LCCADSF1 02030000 LCCAACR EQU LCCADSF1 02031000 LCCAASCP EQU LCCA+532 02032000 LCCAESSA EQU LCCA+528 02033000 LCCARV55 EQU LCCASPN4 02034000 LCCARV54 EQU LCCASPN4 02035000 LCCARV53 EQU LCCASPN4 02036000 LCCARV52 EQU LCCASPN4 02037000 LCCARV51 EQU LCCASPN4 02038000 LCCARV50 EQU LCCASPN4 02039000 LCCARV49 EQU LCCASPN4 02040000 LCCARV48 EQU LCCASPN4 02041000 LCCARV47 EQU LCCASPN3 02042000 LCCARV46 EQU LCCASPN3 02043000 LCCARV45 EQU LCCASPN3 02044000 LCCARV44 EQU LCCASPN3 02045000 LCCARV43 EQU LCCASPN3 02046000 LCCARV42 EQU LCCASPN3 02047000 LCCARV41 EQU LCCASPN3 02048000 LCCARV40 EQU LCCASPN3 02049000 LCCARV39 EQU LCCASPN2 02050000 LCCARV38 EQU LCCASPN2 02051000 LCCARV37 EQU LCCASPN2 02052000 LCCARV36 EQU LCCASPN2 02053000 LCCARV35 EQU LCCASPN2 02054000 LCCARV34 EQU LCCASPN2 02055000 LCCARV33 EQU LCCASPN2 02056000 LCCARV32 EQU LCCASPN2 02057000 LCCARV31 EQU LCCASPN1 02058000 LCCARV30 EQU LCCASPN1 02059000 LCCAMFIO EQU LCCASPN1 02060000 LCCARSTR EQU LCCASPN1 02061000 LCCATSPN EQU LCCASPN1 02062000 LCCALOCK EQU LCCASPN1 02063000 LCCASIGP EQU LCCASPN1 02064000 LCCAPTLB EQU LCCASPN1 02065000 LCCARV27 EQU LCCAIHR4 02066000 LCCARV26 EQU LCCAIHR4 02067000 LCCARV25 EQU LCCAIHR4 02068000 LCCARV24 EQU LCCAIHR4 02069000 LCCARV23 EQU LCCAIHR4 02070000 LCCARV22 EQU LCCAIHR4 02071000 LCCARV21 EQU LCCAIHR4 02072000 LCCARV20 EQU LCCAIHR4 02073000 LCCARV19 EQU LCCAIHR3 02074000 LCCARV18 EQU LCCAIHR3 02075000 LCCARV17 EQU LCCAIHR3 02076000 LCCARV16 EQU LCCAIHR3 02077000 LCCARV15 EQU LCCAIHR3 02078000 LCCARV14 EQU LCCAIHR3 02079000 LCCARV13 EQU LCCAIHR3 02080000 LCCARV12 EQU LCCAIHR3 02081000 LCCARV11 EQU LCCAIHR2 02082000 LCCARV10 EQU LCCAIHR2 02083000 LCCARV09 EQU LCCAIHR2 02084000 LCCARV08 EQU LCCAIHR2 02085000 LCCARV07 EQU LCCAIHR2 02086000 LCCARV06 EQU LCCAIHR2 02087000 LCCARV05 EQU LCCAIHR2 02088000 LCCARV04 EQU LCCAIHR2 02089000 LCCARV03 EQU LCCAIHR1 02090000 LCCARV02 EQU LCCAIHR1 02091000 LCCARV01 EQU LCCAIHR1 02092000 LCCAPPIE EQU LCCAIHR1 02093000 LCCAPSG1 EQU LCCAIHR1 02094000 LCCAPDAT EQU LCCAIHR1 02095000 LCCAXRC2 EQU LCCAIHR1 02096000 LCCAXRC1 EQU LCCAIHR1 02097000 LCCAIOPS EQU LCCA+512 02098000 LCCAGPGR EQU LCCA+448 02099000 LCCARSFP EQU LCCA+416 02100000 LCCARSGR EQU LCCA+352 02101000 LCCAXGR3 EQU LCCA+288 02102000 LCCAXGR2 EQU LCCA+224 02103000 LCCAXGR1 EQU LCCA+160 02104000 LCCACR0 EQU LCCA+156 02105000 LCCAMCR1 EQU LCCA+152 02106000 LCCAPVAD EQU LCCA+148 02107000 LCCAPINT EQU LCCA+144 02108000 LCCAPPSW EQU LCCA+136 02109000 LCCAPGR2 EQU LCCA+72 02110000 LCCAPGR1 EQU LCCA+8 02111000 LCCARV77 EQU LCCA+6 02112000 LCCACPUA EQU LCCA+4 02113000 LCCALCCA EQU LCCA 02114000 ASCBEND EQU ASCB+208 02115000 ASCBSRBT EQU ASCB+200 02116000 ASCBSWTL EQU ASCB+196 02117000 ASCBRS14 EQU ASCB+195 02118000 ASCBSMCT EQU ASCB+194 02119000 ASCBRS12 EQU ASCB+192 02120000 ASCBPCTT EQU ASCB+188 02121000 ASCBVGTT EQU ASCB+184 02122000 ASCBLGCB EQU ASCB+180 02123000 ASCBJBNS EQU ASCB+176 02124000 ASCBJBNI EQU ASCB+172 02125000 ASCBMCC EQU ASCB+168 02126000 ASCBRTWA EQU ASCB+164 02127000 ASCBIQEA EQU ASCB+160 02128000 ASCBXMPQ EQU ASCB+156 02129000 ASCBRS01 EQU ASCB+154 02130000 ASCBFMCT EQU ASCB+152 02131000 ASCBOUXB EQU ASCB+148 02132000 ASCBOUCB EQU ASCB+144 02133000 ASCBMECB EQU ASCB+140 02134000 ASCBQECB EQU ASCB+136 02135000 ASCBCMSB EQU ASCB+132 02136000 ASCBCMSF EQU ASCB+128 02137000 ASCBTCBS EQU ASCB+124 02138000 ASCBNVSC EQU ASCB+122 02139000 ASCBVSC EQU ASCB+120 02140000 ASCBSRBS EQU ASCB+118 02141000 ASCBSSRB EQU ASCB+116 02142000 ASCBRV06 EQU ASCBFLG2 02143000 ASCBRV05 EQU ASCBFLG2 02144000 ASCBRV04 EQU ASCBFLG2 02145000 ASCBSNQS EQU ASCBFLG2 02146000 ASCBS2S EQU ASCBFLG2 02147000 ASCBCEXT EQU ASCBFLG2 02148000 ASCBPXMT EQU ASCBFLG2 02149000 ASCBXMPT EQU ASCBFLG2 02150000 ASCBRF07 EQU ASCBDSP1 02151000 ASCBRF06 EQU ASCBDSP1 02152000 ASCBRF05 EQU ASCBDSP1 02153000 ASCBRF04 EQU ASCBDSP1 02154000 ASCBRF03 EQU ASCBDSP1 02155000 ASCBRF02 EQU ASCBDSP1 02156000 ASCBFAIL EQU ASCBDSP1 02157000 ASCBNOQ EQU ASCBDSP1 02158000 ASCBSWCT EQU ASCB+112 02159000 ASCBASXB EQU ASCB+108 02160000 ASCBTMCH EQU ASCB+104 02161000 ASCBNSWP EQU ASCBFLG1 02162000 ASCBTYP1 EQU ASCBFLG1 02163000 ASCBSTND EQU ASCBFLG1 02164000 ASCBABNT EQU ASCBFLG1 02165000 ASCBTERM EQU ASCBFLG1 02166000 ASCBS3S EQU ASCBFLG1 02167000 ASCBCMSH EQU ASCBFLG1 02168000 ASCBTOFF EQU ASCBFLG1 02169000 ASCBRF01 EQU ASCBRCTF 02170000 ASCBTMLW EQU ASCBRCTF 02171000 ASCBOUT EQU ASCBRCTF 02172000 ASCBWAIT EQU ASCBRCTF 02173000 ASCBRV08 EQU ASCBRCTF 02174000 ASCBFQU EQU ASCBRCTF 02175000 ASCBFRS EQU ASCBRCTF 02176000 ASCBTMNO EQU ASCBRCTF 02177000 ASCBAFFN EQU ASCBFW1 02178000 ASCBDUMP EQU ASCB+96 02179000 ASCBQSVC EQU ASCB+92 02180000 ASCBUBET EQU ASCB+88 02181000 ASCBECB EQU ASCB+84 02182000 ASCBJSTL EQU ASCB+80 02183000 ASCBEWST EQU ASCB+72 02184000 ASCBEJST EQU ASCB+64 02185000 ASCBTSB EQU ASCB+60 02186000 ASCBCSCB EQU ASCB+56 02187000 ASCBRSM EQU ASCB+52 02188000 ASCBLDA EQU ASCB+48 02189000 ASCBSTOR EQU ASCB+44 02190000 ASCBDP EQU ASCB+43 02191000 ASCBRV07 EQU ASCB+42 02192000 ASCBIOSM EQU ASCB+40 02193000 ASCBSEQN EQU ASCB+38 02194000 ASCBCPUS EQU ASCB+32 02195000 ASCBSPL EQU ASCB+28 02196000 ASCBLSLQ EQU ASCB+24 02197000 ASCBFSLQ EQU ASCB+20 02198000 ASCBIOSP EQU ASCB+16 02199000 ASCBLOCK EQU ASCB+12 02200000 ASCBBWDP EQU ASCB+8 02201000 ASCBFWDP EQU ASCB+4 02202000 ASCBASCB EQU ASCB 02203000 ASCBEGIN EQU ASCB 02204000 WSACCCH EQU WSAC+52 02205000 WSACRRSA EQU WSAC+48 02206000 WSACREST EQU WSAC+44 02207000 WSACRSTI EQU WSAC+40 02208000 WSACABTM EQU WSAC+36 02209000 WSACMF1 EQU WSAC+32 02210000 WSACEDS0 EQU WSAC+28 02211000 WSACIOS EQU WSAC+24 02212000 WSACRTMK EQU WSAC+20 02213000 WSACACR EQU WSAC+16 02214000 WSACTIME EQU WSAC+12 02215000 WSACOPTM EQU WSAC+8 02216000 WSACCWSA EQU WSAC 02217000 CVTLEVL EQU CVTRELNO+2 02218000 CVTNUMB EQU CVTRELNO 02219000 CVTMDL EQU CVTFIX+250 02220000 @NM00002 EQU CVTFIX+248 02221000 @NM00001 EQU CVTFIX 02222000 CVTRV482 EQU CVTXTNT2+128 02223000 CVTRV481 EQU CVTXTNT2+124 02224000 CVTRV480 EQU CVTXTNT2+120 02225000 CVTRV479 EQU CVTXTNT2+118 02226000 CVTRV478 EQU CVTXTNT2+117 02227000 CVTRV477 EQU CVTXTNT2+116 02228000 CVTRV476 EQU CVTXTNT2+115 02229000 CVTRV475 EQU CVTXTNT2+114 02230000 CVTRV474 EQU CVTRV466 02231000 CVTRV473 EQU CVTRV466 02232000 CVTRV472 EQU CVTRV466 02233000 CVTRV471 EQU CVTRV466 02234000 CVTRV470 EQU CVTRV466 02235000 CVTRV469 EQU CVTRV466 02236000 CVTRV468 EQU CVTRV466 02237000 CVTRV467 EQU CVTRV466 02238000 CVTRV465 EQU CVTRV457 02239000 CVTRV464 EQU CVTRV457 02240000 CVTRV463 EQU CVTRV457 02241000 CVTRV462 EQU CVTRV457 02242000 CVTRV461 EQU CVTRV457 02243000 CVTRV460 EQU CVTRV457 02244000 CVTRV459 EQU CVTRV457 02245000 CVTRV458 EQU CVTRV457 02246000 CVTRV456 EQU CVTXTNT2+108 02247000 CVTRV455 EQU CVTXTNT2+104 02248000 CVTRV454 EQU CVTXTNT2+100 02249000 CVTRV453 EQU CVTXTNT2+96 02250000 CVTRV452 EQU CVTXTNT2+94 02251000 CVTRV451 EQU CVTXTNT2+92 02252000 CVTRV450 EQU CVTXTNT2+90 02253000 CVTRV449 EQU CVTXTNT2+88 02254000 CVTRV448 EQU CVTXTNT2+87 02255000 CVTRV447 EQU CVTXTNT2+86 02256000 CVTRV446 EQU CVTRV438 02257000 CVTRV445 EQU CVTRV438 02258000 CVTRV444 EQU CVTRV438 02259000 CVTRV443 EQU CVTRV438 02260000 CVTRV442 EQU CVTRV438 02261000 CVTRV441 EQU CVTRV438 02262000 CVTRV440 EQU CVTRV438 02263000 CVTRV439 EQU CVTRV438 02264000 CVTRV437 EQU CVTRV429 02265000 CVTRV436 EQU CVTRV429 02266000 CVTRV435 EQU CVTRV429 02267000 CVTRV434 EQU CVTRV429 02268000 CVTRV433 EQU CVTRV429 02269000 CVTRV432 EQU CVTRV429 02270000 CVTRV431 EQU CVTRV429 02271000 CVTRV430 EQU CVTRV429 02272000 CVTRV428 EQU CVTXTNT2+80 02273000 CVTRV427 EQU CVTXTNT2+76 02274000 CVTRV426 EQU CVTXTNT2+72 02275000 CVTRV425 EQU CVTXTNT2+68 02276000 CVTATACT EQU CVTATCVT 02277000 CVTRV423 EQU CVTXTNT2+62 02278000 CVTRV422 EQU CVTXTNT2+60 02279000 CVTRV421 EQU CVTXTNT2+58 02280000 CVTRV420 EQU CVTXTNT2+56 02281000 CVTRV419 EQU CVTXTNT2+55 02282000 CVTRV418 EQU CVTXTNT2+54 02283000 CVTRV417 EQU CVTRV409 02284000 CVTRV416 EQU CVTRV409 02285000 CVTRV415 EQU CVTRV409 02286000 CVTRV414 EQU CVTRV409 02287000 CVTRV413 EQU CVTRV409 02288000 CVTRV412 EQU CVTRV409 02289000 CVTRV411 EQU CVTRV409 02290000 CVTRV410 EQU CVTRV409 02291000 CVTRV408 EQU CVTRV400 02292000 CVTRV407 EQU CVTRV400 02293000 CVTRV406 EQU CVTRV400 02294000 CVTRV405 EQU CVTRV400 02295000 CVTRV404 EQU CVTRV400 02296000 CVTRV403 EQU CVTRV400 02297000 CVTRV402 EQU CVTRV400 02298000 CVTRV401 EQU CVTRV400 02299000 CVTRSVA1 EQU CVTXTNT2+48 02300000 CVTRSVA0 EQU CVTXTNT2+44 02301000 CVTRSV99 EQU CVTXTNT2+40 02302000 CVTRSV98 EQU CVTXTNT2+36 02303000 CVTRSV97 EQU CVTXTNT2+34 02304000 CVTRSV96 EQU CVTXTNT2+32 02305000 CVTOLTEP EQU CVTXTNT2+28 02306000 CVTQIDA EQU CVTQID+1 02307000 CVTRSV95 EQU CVTQID 02308000 CVTRSV94 EQU CVTXTNT2+20 02309000 CVTRSV93 EQU CVTXTNT2+16 02310000 CVTRSV92 EQU CVTXTNT2+12 02311000 CVTDEBVR EQU CVTXTNT2+8 02312000 CVTRSV91 EQU CVTXTNT2+6 02313000 CVTRSV9H EQU CVTRSV90 02314000 CVTRSV9G EQU CVTRSV90 02315000 CVTRSV9F EQU CVTRSV90 02316000 CVTRSV9E EQU CVTRSV90 02317000 CVTRSV9D EQU CVTRSV90 02318000 CVTRSV9C EQU CVTRSV90 02319000 CVTRSV9B EQU CVTRSV90 02320000 CVTRSV9A EQU CVTRSV90 02321000 CVTNUCLS EQU CVTXTNT2+4 02322000 CVTDSSVA EQU CVTDSSV+1 02323000 CVTRSV89 EQU CVTDSSV 02324000 CVTRSV88 EQU CVTXTNT1+8 02325000 CVTRSV87 EQU CVTXTNT1+4 02326000 CVTFACHN EQU CVTXTNT1 02327000 CVTRV488 EQU CVTMAP+412 02328000 CVTRV487 EQU CVTMAP+408 02329000 CVTRV486 EQU CVTMAP+404 02330000 CVTRV485 EQU CVTMAP+400 02331000 CVTRV484 EQU CVTMAP+396 02332000 CVTAUTH EQU CVTMAP+392 02333000 CVTATMCA EQU CVTATMCT+1 02334000 CVTATMST EQU CVTATMCT 02335000 CVTRSV61 EQU CVTMAP+384 02336000 CVTVOLT1 EQU CVTVOLM1+1 02337000 CVTVOLI1 EQU CVTVOLF1 02338000 CVTSTOA EQU CVTMAP+376 02339000 CVTRSV58 EQU CVTMAP+374 02340000 CVTRSV57 EQU CVTMAP+372 02341000 CVTDDCE EQU CVTMAP+368 02342000 CVTPNWFR EQU CVTMAP+364 02343000 CVTSMF EQU CVTMAP+360 02344000 CVTSULK EQU CVTMAP+358 02345000 CVTSLKO EQU CVTSYSK 02346000 CVTSLKP EQU CVTSYSK 02347000 CVTSLKQ EQU CVTSYSK 02348000 CVTSLKR EQU CVTSYSK 02349000 CVTRSV56 EQU CVTSYSK 02350000 CVTRSV55 EQU CVTSYSK 02351000 CVTRSV54 EQU CVTSYSK 02352000 CVTRSV53 EQU CVTSYSK 02353000 CVTRSV52 EQU CVTA1F1 02354000 CVTRSV51 EQU CVTA1F1 02355000 CVTRSV50 EQU CVTA1F1 02356000 CVTRSV49 EQU CVTA1F1 02357000 CVTRSV48 EQU CVTA1F1 02358000 CVTRSV47 EQU CVTA1F1 02359000 CVTSRSW EQU CVTA1F1 02360000 CVTPFSW EQU CVTA1F1 02361000 CVTPCVT EQU CVTMAP+352 02362000 CVTRSV46 EQU CVTMAP+344 02363000 CVTRSV45 EQU CVTMAP+340 02364000 CVTRSV44 EQU CVTMAP+338 02365000 CVTRSV43 EQU CVTMAP+336 02366000 CVTHJESA EQU CVTHJES+1 02367000 CVTRSV42 EQU CVTHJES 02368000 CVTEXT2A EQU CVTEXT2+1 02369000 CVTRSV41 EQU CVTEXT2 02370000 CVTAPFA EQU CVTAPF+1 02371000 CVTRSV40 EQU CVTAPF 02372000 CVTRV518 EQU CVTINTLA 02373000 CVTRV517 EQU CVTERPV 02374000 CVTEORM EQU CVTMAP+312 02375000 CVTMCHPR EQU CVTMAP+308 02376000 CVTTZ EQU CVTMAP+304 02377000 CVTJEPS EQU CVTMAP+300 02378000 CVTJESCT EQU CVTMAP+296 02379000 CVTMODE EQU CVTMAP+292 02380000 CVTPTRV EQU CVTMAP+288 02381000 CVTREAL EQU CVTMAP+284 02382000 CVTRSV39 EQU CVTMAP+280 02383000 CVTRSV38 EQU CVTMAP+276 02384000 CVTDMSRA EQU CVTDMSR+1 02385000 CVTRSV37 EQU CVTDMSR 02386000 CVTQMSGA EQU CVTQMSG+1 02387000 CVTRSV36 EQU CVTQMSG 02388000 CVTAMFF EQU CVTMAP+264 02389000 CVTPURGA EQU CVTPURG+1 02390000 CVTRSV35 EQU CVTPURG 02391000 CVTCBSP EQU CVTMAP+256 02392000 CVTATERA EQU CVTATER+1 02393000 CVTSYST EQU CVTATER 02394000 CVTVOLT2 EQU CVTTAT 02395000 CVTVOLI2 EQU CVTVOLF2 02396000 CVTAQAVB EQU CVTAQAVT+1 02397000 CVTRSV34 EQU CVTTCMFG 02398000 CVTRSV33 EQU CVTTCMFG 02399000 CVTRSV32 EQU CVTTCMFG 02400000 CVTRSV31 EQU CVTTCMFG 02401000 CVTRSV30 EQU CVTTCMFG 02402000 CVTRSV29 EQU CVTTCMFG 02403000 CVTRSV28 EQU CVTTCMFG 02404000 CVTTCRDY EQU CVTTCMFG 02405000 CVTGTFA EQU CVTGTF+1 02406000 CVTRSV27 EQU CVTGTFST 02407000 CVTRNIO EQU CVTGTFST 02408000 CVTRV319 EQU CVTUSR 02409000 CVTRV318 EQU CVTFORM 02410000 CVTRV317 EQU CVTTMODE 02411000 CVTRV316 EQU CVTSTATE 02412000 CVTRV315 EQU CVTGTFS 02413000 CVTGTFAV EQU CVTGTFS 02414000 CVT0SCR1 EQU CVTMAP+232 02415000 CVTRV515 EQU CVTMAP+228 02416000 CVTRMS EQU CVTMAP+224 02417000 CVTPATCH EQU CVTMAP+220 02418000 CVTTSCE EQU CVTMAP+216 02419000 CVTLNKSC EQU CVTMAP+214 02420000 CVTQABST EQU CVTMAP+212 02421000 CVTMDLDS EQU CVTMAP+208 02422000 CVTUSER EQU CVTMAP+204 02423000 CVTABEND EQU CVTMAP+200 02424000 CVTSMCA EQU CVTMAP+196 02425000 CVTRSV18 EQU CVTMAP+192 02426000 CVTQLPAQ EQU CVTMAP+188 02427000 CVTQCDSR EQU CVTMAP+184 02428000 CVTRSV17 EQU CVTOPTB 02429000 CVTRSV16 EQU CVTOPTB 02430000 CVTFP EQU CVTOPTB 02431000 CVTAPTHR EQU CVTOPTB 02432000 CVTNLOG EQU CVTOPTB 02433000 CVTTOD EQU CVTOPTB 02434000 CVTCTIMS EQU CVTOPTB 02435000 CVTPROT EQU CVTOPTB 02436000 CVTXPFP EQU CVTOPTA 02437000 CVTASCII EQU CVTOPTA 02438000 CVTRSV13 EQU CVTOPTA 02439000 CVTRSV12 EQU CVTOPTA 02440000 CVTNIP EQU CVTOPTA 02441000 CVTDDR EQU CVTOPTA 02442000 CVTAPR EQU CVTOPTA 02443000 CVTCCH EQU CVTOPTA 02444000 CVTSNCTR EQU CVTMAP+180 02445000 CVTQMWR EQU CVTMAP+176 02446000 CVTQOCR EQU CVTMAP+172 02447000 CVT1EF00 EQU CVTMAP+168 02448000 CVTMZ00 EQU CVTMAP+164 02449000 CVTHEAD EQU CVTMAP+160 02450000 CVTRSV11 EQU CVTMAP+156 02451000 CVT0PT01 EQU CVTMAP+152 02452000 CVTMSER EQU CVTMAP+148 02453000 CVTRV516 EQU CVTIERLC 02454000 CVTILCH EQU CVTMAP+140 02455000 CVT0DS EQU CVTMAP+136 02456000 CVTFBOSV EQU CVTMAP+132 02457000 CVTNUCB EQU CVTMAP+128 02458000 CVTIXAVL EQU CVTMAP+124 02459000 CVTIOQET EQU CVTMAP+120 02460000 CVTDCBA EQU CVTMAP+117 02461000 CVTMVS2 EQU CVTDCB 02462000 CVT6DAT EQU CVTDCB 02463000 CVT4MPS EQU CVTDCB 02464000 CVTRSV09 EQU CVTDCB 02465000 CVT4MS1 EQU CVTDCB 02466000 CVT2SPS EQU CVTDCB 02467000 CVT1SSS EQU CVTDCB 02468000 CVTRSV08 EQU CVTDCB 02469000 CVTSTB EQU CVTMAP+112 02470000 CVTQTD00 EQU CVTMAP+108 02471000 CVTQTE00 EQU CVTMAP+104 02472000 CVTCUCB EQU CVTMAP+100 02473000 CVTSJQ EQU CVTMAP+96 02474000 CVTPBLDL EQU CVTMAP+92 02475000 CVTTPC EQU CVTMAP+88 02476000 CVTSVDCB EQU CVTMAP+84 02477000 CVTBRET EQU CVTMAP+82 02478000 CVTEXIT EQU CVTMAP+80 02479000 CVT0FN00 EQU CVTMAP+76 02480000 CVTDARA EQU CVTDAR+1 02481000 CVTRSV07 EQU CVTFLGS1 02482000 CVTRSV06 EQU CVTFLGS1 02483000 CVTRSV05 EQU CVTFLGS1 02484000 CVTRSV04 EQU CVTFLGS1 02485000 CVTRSV03 EQU CVTFLGS1 02486000 CVTRSV02 EQU CVTFLGS1 02487000 CVTRSV01 EQU CVTFLGS1 02488000 CVTDMPLK EQU CVTFLGS1 02489000 CVTXITP EQU CVTMAP+68 02490000 CVTZDTAB EQU CVTMAP+64 02491000 CVTMSLT EQU CVTMAP+60 02492000 CVTDATE EQU CVTMAP+56 02493000 CVTBTERM EQU CVTMAP+52 02494000 CVTSYSAD EQU CVTMAP+48 02495000 CVTXTLER EQU CVTMAP+44 02496000 CVTILK2 EQU CVTMAP+40 02497000 CVTILK1 EQU CVTMAP+36 02498000 CVTPRLTV EQU CVTMAP+32 02499000 CVTPCNVT EQU CVTMAP+28 02500000 CVT0VL00 EQU CVTMAP+24 02501000 CVTXAPG EQU CVTMAP+20 02502000 CVTBUF EQU CVTMAP+16 02503000 CVTJOB EQU CVTMAP+12 02504000 CVTLINK EQU CVTMAP+8 02505000 CVT0EF00 EQU CVTMAP+4 02506000 CVTTCBP EQU CVTMAP 02507000 CVT EQU CVTMAP 02508000 @NM00026 EQU PSA+3412 02509000 PSASTAK EQU PSA+3072 02510000 @NM00025 EQU PSA+1032 02511000 PSAUSEND EQU PSA+1032 02512000 PSAPCPSW EQU PSA+1024 02513000 PSARV060 EQU PSA+1020 02514000 PSARV059 EQU PSA+1018 02515000 PSASVC13 EQU PSA+1016 02516000 PSALSFCC EQU PSA+1012 02517000 PSASFACC EQU PSA+1008 02518000 PSASTOP EQU PSA+992 02519000 PSASTART EQU PSA+976 02520000 PSARSPSW EQU PSA+968 02521000 PSASRPSW EQU PSA+960 02522000 PSARV045 EQU PSA+892 02523000 PSARV044 EQU PSA+888 02524000 PSARV043 EQU PSA+884 02525000 PSARV042 EQU PSA+880 02526000 PSARV041 EQU PSA+876 02527000 PSARV040 EQU PSA+872 02528000 PSARV025 EQU PSA+868 02529000 PSADSSED EQU PSA+868 02530000 PSADSSPR EQU PSA+864 02531000 PSADSSFW EQU PSA+860 02532000 PSADSS14 EQU PSA+856 02533000 PSADSSPP EQU PSA+848 02534000 PSADSSRP EQU PSA+840 02535000 PSADSS05 EQU PSADSSF4 02536000 PSADSS10 EQU PSADSSF4 02537000 PSADSSVE EQU PSADSSF4 02538000 PSADSSDE EQU PSADSSF4 02539000 PSADSSC0 EQU PSADSSF4 02540000 PSADSSIE EQU PSADSSF4 02541000 PSADSS12 EQU PSADSSF4 02542000 PSADSSRC EQU PSADSSF4 02543000 PSARV057 EQU PSADSSF3 02544000 PSARV056 EQU PSADSSF3 02545000 PSARV055 EQU PSADSSF3 02546000 PSADSSMC EQU PSADSSF3 02547000 PSADSSRW EQU PSADSSF3 02548000 PSADSSNM EQU PSADSSF3 02549000 PSADSSES EQU PSADSSF3 02550000 PSADSSGP EQU PSADSSF3 02551000 PSADSSF2 EQU PSADSSFL+1 02552000 PSADSSPI EQU PSADSSF1 02553000 PSADSSOI EQU PSADSSF1 02554000 PSADSSSP EQU PSADSSF1 02555000 PSADSSTP EQU PSADSSF1 02556000 PSADSSDW EQU PSADSSF1 02557000 PSADSSDD EQU PSADSSF1 02558000 PSADSSDM EQU PSADSSF1 02559000 PSADSSMV EQU PSADSSF1 02560000 PSADSSTS EQU PSA+816 02561000 PSADSSWK EQU PSA+812 02562000 PSADSSR3 EQU PSA+808 02563000 PSADSSR2 EQU PSA+804 02564000 PSADSSRS EQU PSA+800 02565000 PSASTOR EQU PSA+796 02566000 PSACPUSA EQU PSA+794 02567000 PSAVSTAP EQU PSA+792 02568000 PSAWKVAP EQU PSA+788 02569000 PSAWKRAP EQU PSA+784 02570000 PSAMCHIC EQU PSA+783 02571000 PSARV061 EQU PSA+782 02572000 PSASYMSK EQU PSA+781 02573000 PSAMCHFL EQU PSA+780 02574000 PSACR0 EQU PSA+776 02575000 PSAPSWSV EQU PSA+768 02576000 PSALITA EQU PSA+764 02577000 PSACLHS EQU PSAHLHI 02578000 PSALKR15 EQU PSALKSA+60 02579000 PSALKR14 EQU PSALKSA+56 02580000 PSALKR13 EQU PSALKSA+52 02581000 PSALKR12 EQU PSALKSA+48 02582000 PSALKR11 EQU PSALKSA+44 02583000 PSALKR10 EQU PSALKSA+40 02584000 PSALKR9 EQU PSALKSA+36 02585000 PSALKR8 EQU PSALKSA+32 02586000 PSALKR7 EQU PSALKSA+28 02587000 PSALKR6 EQU PSALKSA+24 02588000 PSALKR5 EQU PSALKSA+20 02589000 PSALKR4 EQU PSALKSA+16 02590000 PSALKR3 EQU PSALKSA+12 02591000 PSALKR2 EQU PSALKSA+8 02592000 PSALKR1 EQU PSALKSA+4 02593000 PSALKR0 EQU PSALKSA 02594000 PSARV023 EQU PSACLHT+52 02595000 PSALOCAL EQU PSACLHT+48 02596000 PSACMSL EQU PSACLHT+44 02597000 PSAOPTL EQU PSACLHT+40 02598000 PSATPACL EQU PSACLHT+36 02599000 PSATPDNL EQU PSACLHT+32 02600000 PSATPNCL EQU PSACLHT+28 02601000 PSAIOSLL EQU PSACLHT+24 02602000 PSAIOSUL EQU PSACLHT+20 02603000 PSAIOSCL EQU PSACLHT+16 02604000 PSAIOSSL EQU PSACLHT+12 02605000 PSASALCL EQU PSACLHT+8 02606000 PSAASML EQU PSACLHT+4 02607000 PSADISPL EQU PSACLHT 02608000 PSASRSA EQU PSA+636 02609000 PSARV050 EQU PSA+634 02610000 PSADSSGO EQU PSA+633 02611000 PSARECUR EQU PSA+632 02612000 PSAHLHIS EQU PSA+628 02613000 PSAIPCSA EQU PSA+624 02614000 @NM00024 EQU PSA+621 02615000 PSAIPCDM EQU PSA+620 02616000 PSAIPCD EQU PSA+616 02617000 @NM00023 EQU PSA+613 02618000 PSAIPCRM EQU PSA+612 02619000 PSAIPCR EQU PSA+608 02620000 PSAMCHEX EQU PSA+600 02621000 PSAMPSW EQU PSA+592 02622000 PSAEXPS2 EQU PSA+584 02623000 PSAEXPS1 EQU PSA+576 02624000 PSAPIREG EQU PSA+572 02625000 PSARSREG EQU PSA+568 02626000 PSAGPREG EQU PSA+556 02627000 PSARV022 EQU PSASUP4 02628000 PSARV021 EQU PSASUP4 02629000 PSARV020 EQU PSASUP4 02630000 PSARV019 EQU PSASUP4 02631000 PSARV018 EQU PSASUP4 02632000 PSARV017 EQU PSASUP4 02633000 PSARV016 EQU PSASUP4 02634000 PSARV015 EQU PSASUP4 02635000 PSARV014 EQU PSASUP3 02636000 PSARV013 EQU PSASUP3 02637000 PSARV012 EQU PSASUP3 02638000 PSARV011 EQU PSASUP3 02639000 PSARV010 EQU PSASUP3 02640000 PSARV009 EQU PSASUP3 02641000 PSARV008 EQU PSASUP3 02642000 PSAIOSUP EQU PSASUP3 02643000 PSALCR EQU PSASUP2 02644000 PSARTM EQU PSASUP2 02645000 PSAACR EQU PSASUP2 02646000 PSAIPCE2 EQU PSASUP2 02647000 PSAIPCES EQU PSASUP2 02648000 PSAIPCEC EQU PSASUP2 02649000 PSAGTF EQU PSASUP2 02650000 PSAIPCRI EQU PSASUP2 02651000 PSAIPCRP EQU PSASUP1 02652000 PSAIPCDR EQU PSASUP1 02653000 PSADISP EQU PSASUP1 02654000 PSALOCK EQU PSASUP1 02655000 PSAPI EQU PSASUP1 02656000 PSAEXT EQU PSASUP1 02657000 PSASVC EQU PSASUP1 02658000 PSAIO EQU PSASUP1 02659000 PSAANEW EQU PSA+544 02660000 PSATOLD EQU PSA+540 02661000 PSATNEW EQU PSA+536 02662000 PSALCCAR EQU PSA+532 02663000 PSAPCCAR EQU PSA+524 02664000 PSAPCCAV EQU PSA+520 02665000 PSACPULA EQU PSA+518 02666000 PSACPUPA EQU PSA+516 02667000 PSAPSA EQU PSA+512 02668000 FLCHDEND EQU PSA+512 02669000 FLCCRSAV EQU FLCMCLA+280 02670000 FLCGRSAV EQU FLCMCLA+216 02671000 FLCFPSAV EQU FLCMCLA+184 02672000 FLCFLA EQU FLCMCLA+88 02673000 FLCRGNCD EQU FLCMCLA+84 02674000 FLCFSAA EQU FLCFSA+1 02675000 @NM00022 EQU FLCFSA 02676000 @NM00021 EQU FLCMCLA+72 02677000 FLCMCIC EQU FLCMCLA+64 02678000 @NM00020 EQU FLCMCLA+20 02679000 FLCIOAA EQU FLCIOA+1 02680000 @NM00019 EQU FLCIOA 02681000 @NM00018 EQU FLCMCLA+15 02682000 @NM00017 EQU FLCMCLA+14 02683000 @NM00016 EQU FLCMCLA+12 02684000 FLCLCL EQU FLCMCLA+8 02685000 FLCIOELA EQU FLCIOEL+1 02686000 @NM00015 EQU FLCIOEL 02687000 FLCCHNID EQU FLCMCLA 02688000 @NM00014 EQU PSA+160 02689000 FLCMTRCD EQU PSA+157 02690000 @NM00013 EQU PSA+156 02691000 FLCPERA EQU FLCPER+1 02692000 @NM00012 EQU FLCPER 02693000 @NM00011 EQU PSA+151 02694000 FLCPERCD EQU PSA+150 02695000 FLCMCNUM EQU PSA+149 02696000 @NM00010 EQU PSA+148 02697000 FLCTEAA EQU FLCTEA+1 02698000 @NM00009 EQU FLCTEA 02699000 PSAPIPC EQU PSAPICOD 02700000 PSAPIMC EQU PSAPICOD 02701000 PSAPIPER EQU PSAPICOD 02702000 PSARV049 EQU FLCPICOD 02703000 FLCPILCB EQU FLCPIILC 02704000 @NM00008 EQU FLCPIILC 02705000 @NM00007 EQU PSAEPPSW 02706000 FLCSVCN EQU PSAESPSW+2 02707000 FLCSILCB EQU FLCSVILC 02708000 @NM00006 EQU FLCSVILC 02709000 @NM00005 EQU PSAESPSW 02710000 FLCEICOD EQU PSAEEPSW+2 02711000 PSASPAD EQU PSAEEPSW 02712000 @NM00004 EQU PSA+128 02713000 FLCINPSW EQU PSA+120 02714000 FLCMNPSW EQU PSA+112 02715000 FLCPNPSW EQU PSA+104 02716000 FLCSNPSW EQU PSA+96 02717000 FLCENPSW EQU PSA+88 02718000 FLCTRACE EQU PSA+84 02719000 FLCTIMER EQU PSA+80 02720000 FLCCVT2 EQU PSA+76 02721000 FLCCAW EQU PSA+72 02722000 FLCCSW EQU PSA+64 02723000 FLCIOPSW EQU PSA+56 02724000 FLCMOPSW EQU PSA+48 02725000 FLCPOPSW EQU PSA+40 02726000 FLCSOPSW EQU PSA+32 02727000 FLCEOPSW EQU PSA+24 02728000 @NM00003 EQU FLCICCW2+4 02729000 FLCCVT EQU FLCICCW2 02730000 FLCICCW1 EQU FLCROPSW 02731000 FLCIPPSW EQU FLCRNPSW 02732000 * END UNREFERENCED COMPONENTS 02733000 @ENDDATA EQU * 02734000 END AHLMCER,(C'PL/S-II',0502,74116) 02735000