TITLE 'IRARMSRV - SYSTEM RESOURCES MANAGER SERVICE ROUTINE *00001000 ' 00002000 IRARMSRV CSECT , 00003000 @PSTART DS 0H 00004000 USING @PSTART,@08 00005000 * /* 00006000 ENTRY IRARMI02 00007000 IRARMI02 DS 0H 00008000 L @15,RMCTRMSA(,RMCTPTR) SRM SAVE AREA START ADDRESS 00009000 STM @00,@14,192+000(@15) SAVE INVOKING RTNE REGS 00010000 LR @13,@15 ROUTINE SAVE AREA ADDRESS 00011000 BALR @15,0 SETUP ENTRY ADDRESSABILITY 00012000 LA @08,*-@PSTART DISPLACEMENT TO MODULE BASE 00013000 LCR @08,@08 NEGATIVE FOR SUBTRACT 00014000 ALR @08,@15 SETUP MODULE ADDRESSABILITY 00015000 * WRKREG1=SVEREG; /* PRESERVE SRM SAVE AREA START 00016000 * ADDRESS */ 00017000 LR WRKREG1,SVEREG 0070 00018000 * SVEREG=SVEREG+LEVEL5; /* SAVE AREA FOR CALLED ROUTINE */ 00019000 AL SVEREG,@CF01410 0071 00020000 * GENERATE CODE REFS(CVTPTR,CVTMAP,CVTVEAC0); 0072 00021000 ASCBCHAP MOVE REPOSITION ASCBS IN THE LIST 00022000 * PASSED IN REG 1 00023000 * SVEREG=WRKREG1; /* RESTORE SRM SAVE AREA START 0073 00024000 * ADDRESS */ 00025000 * 0073 00026000 LR SVEREG,WRKREG1 0073 00027000 * /*****************************************************************/ 00028000 * /* */ 00029000 * /* ? IRACTLEP ENN(I02) */ 00030000 * /* */ 00031000 * /*****************************************************************/ 00032000 * 0074 00033000 * GEN CODE EXIT NOSEQFLOW; 0074 00034000 * /* 00035000 LM @00,@14,192+000(@13) RELOAD INVOKING RTNE REGS 00036000 BR RTNREG RETURN TO INVOKER 00037000 * 0075 00038000 * /*****************************************************************/ 00039000 * /* */ 00040000 * /* ? IRACTLEP EPN(I03)CODEREG(8)SAVE(0,14) */ 00041000 * /* */ 00042000 * /*****************************************************************/ 00043000 * 0075 00044000 * DCL 0075 00045000 * IRARMI03 ENTRY INT; 0075 00046000 * GEN CODE REFS(RMCTRMSA) NOEXIT SEQFLOW DEFS(IRARMI03); 0076 00047000 * /* 00048000 ENTRY IRARMI03 00049000 IRARMI03 DS 0H 00050000 L @15,RMCTRMSA(,RMCTPTR) SRM SAVE AREA START ADDRESS 00051000 STM @00,@14,192+000(@15) SAVE INVOKING RTNE REGS 00052000 LR @13,@15 ROUTINE SAVE AREA ADDRESS 00053000 BALR @15,0 SETUP ENTRY ADDRESSABILITY 00054000 LA @08,*-@PSTART DISPLACEMENT TO MODULE BASE 00055000 LCR @08,@08 NEGATIVE FOR SUBTRACT 00056000 ALR @08,@15 SETUP MODULE ADDRESSABILITY 00057000 * WRKREG1=SVEREG; /* PRESERVE SRM SAVE AREA START 00058000 * ADDRESS */ 00059000 LR WRKREG1,SVEREG 0077 00060000 * SVEREG=SVEREG+LEVEL5; /* SAVE AREA FOR CALLED ROUTINE */ 00061000 AL SVEREG,@CF01410 0078 00062000 * RESPECIFY 0079 00063000 * PVTPTR RSTD; 0079 00064000 * PVTPTR=CVTPVTP; /* ADDRESSABILITY TO PVT */ 00065000 L @12,CVTPTR 0080 00066000 L PVTPTR,CVTPVTP(,@12) 0080 00067000 * CALL IEAVRFR; /* REAL PAGE FRAME REPLACEMENT */ 00068000 L @15,PVTPRFR(,PVTPTR) 0081 00069000 BALR @14,@15 0081 00070000 * RESPECIFY 0082 00071000 * PVTPTR UNRSTD; 0082 00072000 * SVEREG=WRKREG1; /* RESTORE SRM SAVE AREA START 0083 00073000 * ADDRESS */ 00074000 * 0083 00075000 LR SVEREG,WRKREG1 0083 00076000 * /*****************************************************************/ 00077000 * /* */ 00078000 * /* ? IRACTLEP ENN(I03) */ 00079000 * /* */ 00080000 * /*****************************************************************/ 00081000 * 0084 00082000 * GEN CODE EXIT NOSEQFLOW; 0084 00083000 * /* 00084000 LM @00,@14,192+000(@13) RELOAD INVOKING RTNE REGS 00085000 BR RTNREG RETURN TO INVOKER 00086000 * 0085 00087000 * /*****************************************************************/ 00088000 * /* */ 00089000 * /* ? IRACTLEP EPN(I04)CODEREG(8)SAVE(2,14) */ 00090000 * /* */ 00091000 * /*****************************************************************/ 00092000 * 0085 00093000 * DCL 0085 00094000 * IRARMI04 ENTRY INT; 0085 00095000 * GEN CODE REFS(RMCTRMSA) NOEXIT SEQFLOW DEFS(IRARMI04); 0086 00096000 * /* 00097000 ENTRY IRARMI04 00098000 IRARMI04 DS 0H 00099000 L @15,RMCTRMSA(,RMCTPTR) SRM SAVE AREA START ADDRESS 00100000 STM @02,@14,192+008(@15) SAVE INVOKING RTNE REGS 00101000 LR @13,@15 ROUTINE SAVE AREA ADDRESS 00102000 BALR @15,0 SETUP ENTRY ADDRESSABILITY 00103000 LA @08,*-@PSTART DISPLACEMENT TO MODULE BASE 00104000 LCR @08,@08 NEGATIVE FOR SUBTRACT 00105000 ALR @08,@15 SETUP MODULE ADDRESSABILITY 00106000 * IF R1=CON0 THEN /* GET STORAGE REQUEST */ 00107000 LTR R1,R1 0087 00108000 BNZ @RF00087 0087 00109000 * DO; /* GETCELL OR GETMAIN REQUEST */ 00110000 * IF R0=CELLSIZE THEN /* GETCELL REQUEST */ 00111000 C R0,CELLSIZE 0089 00112000 BNE @RF00089 0089 00113000 * DO; 0090 00114000 *GETREQ: 0091 00115000 * R0=RMCTCPID; /* CELL POOL ID OF SRM STORAGE */ 00116000 * 0091 00117000 GETREQ L R0,RMCTCPID(,RMCTPTR) 0091 00118000 * /*********************************************************/ 00119000 * /* */ 00120000 * /* ISSUE GETCELL REQUEST. */ 00121000 * /* */ 00122000 * /*********************************************************/ 00123000 * 0092 00124000 * GENERATE CODE REFS(CVTPTR,CVTMAP,CVTGETCL) 0092 00125000 * (GETCELL CPID=(0),BRANCH=YES,SAVE=NO); 0092 00126000 GETCELL CPID=(0),BRANCH=YES,SAVE=NO 00127000 * IF RTNCOD^=CON0 THEN /* NO FREE CELLS IN THE POOL (4) 00128000 * POOL CHAIN POINTERS DESTROYED 00129000 * (8) OR FIRST POOL NOT BUILT 0093 00130000 * (12). (CODE 16 SHOULDN'T 0093 00131000 * OCCUR) @Z40BPJC*/ 00132000 * 0093 00133000 LTR RTNCOD,RTNCOD 0093 00134000 BZ @RF00093 0093 00135000 * /*******************************************************/ 00136000 * /* */ 00137000 * /* EXPAND THE POOL TO MEET THE INCREASED DEMAND FOR */ 00138000 * /* STORAGE BY ADDING A 2K BYTE EXTENSION TO THE */ 00139000 * /* EXISTING POOL. */ 00140000 * /* */ 00141000 * /*******************************************************/ 00142000 * 0094 00143000 * DO; 0094 00144000 * R0=BLOCKLEN; /* LENGTH OF BLOCK TO GETMAIN */ 00145000 LA R0,2048 0095 00146000 * CALL GETSTOR; /* GET STORAGE */ 00147000 BAL @14,GETSTOR 0096 00148000 * IF RTNCOD=CON0 THEN /* STORAGE FOR EXTENSION OBTAINED*/ 00149000 LTR RTNCOD,RTNCOD 0097 00150000 BNZ @RF00097 0097 00151000 * DO; /* ADD STORAGE TO EXISTING POOL */ 00152000 * RMCTPTR=CVTOPCTP;/* RESTORE RMCT POINTER */ 00153000 L @12,CVTPTR 0099 00154000 L RMCTPTR,CVTOPCTP(,@12) 0099 00155000 * R0=RMCTCPID; /* CELL POOL ID OF SRM STORAGE */ 00156000 L R0,RMCTCPID(,RMCTPTR) 0100 00157000 * WRKREG1=SVEREG; /* PRESERVE SRM SAVE AREA START 00158000 * ADDRESS */ 00159000 LR WRKREG1,SVEREG 0101 00160000 * SVEREG=SVEREG+ /* SAVE AREA FOR CALLED ROUTINE */ 00161000 * LEVEL5; 0102 00162000 AL SVEREG,@CF01410 0102 00163000 * GENERATE CODE REFS(CVTPTR,CVTMAP,CVTBLDCP,OUXBEND); 00164000 * /*@ZA10808*/ 00165000 BLDCPOOL CPID=(0),BRANCH=YES,POOLSIZ=2,CSIZE=OUXBEND, XX00166000 SP=245,CPADDR=(1),AUTODEL=YES,BNDRY=DWORD @ZA10808 00167000 * SVEREG=WRKREG1; /* RESTORE SAVEAREA ADDRESS */ 00168000 LR SVEREG,WRKREG1 0104 00169000 * IF RTNCOD=CON0 /* EXTENSION ADDED TO SRM POOL */ 00170000 * THEN /* TRY GETCELL AGAIN */ 00171000 LTR RTNCOD,RTNCOD 0105 00172000 BNZ @RF00105 0105 00173000 * DO; 0106 00174000 * R1=CON0; /* CLEAR FOR GETCELL REQUEST */ 00175000 SLR R1,R1 0107 00176000 * GOTO GETREQ;/* RE-ISSUE GETCELL REQUEST */ 00177000 B GETREQ 0108 00178000 * END; 0109 00179000 * ELSE /* POOL EXTENSION NOT BUILT */ 00180000 * DO; /* FREE STORAGE OBTAINED BY 0110 00181000 * GETMAIN FOR POOL EXTENSION */ 00182000 @RF00105 DS 0H 0111 00183000 * R0=BLOCKLEN;/* BLOCK LENGTH FOR FREEMAIN */ 00184000 LA R0,2048 0111 00185000 * CALL FREESTOR;/* FREE BLOCK */ 00186000 BAL @14,FREESTOR 0112 00187000 * RTNCOD=CON4;/* INDICATE GETCELL FAILED */ 00188000 LA RTNCOD,4 0113 00189000 * END; 0114 00190000 * END; 0115 00191000 * END; 0116 00192000 * END; 0117 00193000 * ELSE /* GETMAIN REQUEST */ 00194000 * CALL GETSTOR; /* GETMAIN STORAGE */ 00195000 B @RC00089 0118 00196000 @RF00089 BAL @14,GETSTOR 0118 00197000 * END; 0119 00198000 * ELSE /* FREE STORAGE REQUEST */ 00199000 * DO; /* FREECELL OR FREEMAIN REQUEST */ 00200000 B @RC00087 0120 00201000 @RF00087 DS 0H 0121 00202000 * IF R0=CELLSIZE THEN /* FREECELL REQUEST */ 00203000 C R0,CELLSIZE 0121 00204000 BNE @RF00121 0121 00205000 * DO; 0122 00206000 * R0=RMCTCPID; /* CELL POOL ID OF SRM STORAGE */ 00207000 * 0123 00208000 L R0,RMCTCPID(,RMCTPTR) 0123 00209000 * /*********************************************************/ 00210000 * /* */ 00211000 * /* ISSUE FREECELL REQUEST. */ 00212000 * /* */ 00213000 * /*********************************************************/ 00214000 * 0124 00215000 * GENERATE CODE REFS(CVTPTR,CVTMAP,CVTFRECL) 0124 00216000 * (FREECELL CPID=(0),CELL=(1),BRANCH=YES,SAVE=NO); 0124 00217000 FREECELL CPID=(0),CELL=(1),BRANCH=YES,SAVE=NO 00218000 * IF RTNCOD=CON20 THEN /* EXTENSION TO SRM POOL DELETED */ 00219000 C RTNCOD,@CF02350 0125 00220000 BNE @RF00125 0125 00221000 * DO; /* FREE STORAGE RETURNED */ 00222000 * R0=BLOCKLEN; /* LENGTH OF STORAGE TO RETURN */ 00223000 LA R0,2048 0127 00224000 * CALL FREESTOR; /* FREE STORAGE */ 00225000 BAL @14,FREESTOR 0128 00226000 * END; 0129 00227000 * END; 0130 00228000 * ELSE /* FREEMAIN REQUEST */ 00229000 * CALL FREESTOR; /* FREEMAIN STORAGE */ 00230000 B @RC00121 0131 00231000 @RF00121 BAL @14,FREESTOR 0131 00232000 * END; 0132 00233000 * 0132 00234000 @RC00121 DS 0H 0133 00235000 * /*****************************************************************/ 00236000 * /* */ 00237000 * /* ? IRACTLEP ENN(I04) */ 00238000 * /* */ 00239000 * /*****************************************************************/ 00240000 * 0133 00241000 * GEN CODE EXIT NOSEQFLOW; 0133 00242000 @RC00087 DS 0H 0133 00243000 * /* 00244000 LM @02,@14,192+008(@13) RELOAD INVOKING RTNE REGS 00245000 BR RTNREG RETURN TO INVOKER 00246000 *FREESTOR: /* FREEMAIN STORAGE */ 00247000 * GENERATE CODE REFS(PSALITA,FLC,CVTPTR,CVTSPSA,CVTMAP,WSAGGMFM,WSAG, 00248000 * CVTGLMN); 0134 00249000 FREESTOR DS 0H 0134 00250000 LR @09,@13 PRESERVE SRM SAVE AREA 00251000 * START ADDRESS 00252000 LR @05,@14 PRESERVE RETURN ADDRESS 00253000 RMI04005 DS 0H 00254000 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, XX00255000 RELATED=(SALLOC,IRARMSRV(RMI04010)) 00256000 FREEMAIN RC,LV=(0),A=(1),KEY=0,SP=245,BRANCH=(YES,GLOBAL) 00257000 RMI04010 DS 0H 00258000 SETLOCK RELEASE,TYPE=SALLOC, XX00259000 RELATED=(SALLOC,IRARMSRV(RMI04005)) 00260000 LR @13,@09 RESTORE SRM SAVE AREA 00261000 * START ADDRESS 00262000 BR @05 RETURN 00263000 *GETSTOR: /* GETMAIN STORAGE */ 00264000 * GENERATE CODE REFS(PSALITA,FLC,CVTPTR,CVTSPSA,CVTMAP,WSAGGMFM,WSAG, 00265000 * CVTGLMN); 0135 00266000 GETSTOR DS 0H 0135 00267000 LR @09,@13 PRESERVE SRM SAVE AREA 00268000 * START ADDRESS 00269000 LR @05,@14 PRESERVE RETURN ADDRESS 00270000 RMI04015 DS 0H 00271000 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, XX00272000 RELATED=(SALLOC,IRARMSRV(RMI04020)) 00273000 GETMAIN RC,LV=(0),KEY=0,SP=245,BRANCH=(YES,GLOBAL) 00274000 RMI04020 DS 0H 00275000 SETLOCK RELEASE,TYPE=SALLOC, XX00276000 RELATED=(SALLOC,IRARMSRV(RMI04015)) 00277000 LR @13,@09 RESTORE SRM SAVE AREA 00278000 * START ADDRESS 00279000 BR @05 RETURN 00280000 * 0136 00281000 * /*****************************************************************/ 00282000 * /* */ 00283000 * /* ? IRACTLEP EPN(I05)CODEREG(8)SAVE(0,14) */ 00284000 * /* */ 00285000 * /*****************************************************************/ 00286000 * 0136 00287000 * DCL 0136 00288000 * IRARMI05 ENTRY INT; 0136 00289000 * GEN CODE REFS(RMCTRMSA) NOEXIT SEQFLOW DEFS(IRARMI05); 0137 00290000 * /* 00291000 ENTRY IRARMI05 00292000 IRARMI05 DS 0H 00293000 L @15,RMCTRMSA(,RMCTPTR) SRM SAVE AREA START ADDRESS 00294000 STM @00,@14,192+000(@15) SAVE INVOKING RTNE REGS 00295000 LR @13,@15 ROUTINE SAVE AREA ADDRESS 00296000 BALR @15,0 SETUP ENTRY ADDRESSABILITY 00297000 LA @08,*-@PSTART DISPLACEMENT TO MODULE BASE 00298000 LCR @08,@08 NEGATIVE FOR SUBTRACT 00299000 ALR @08,@15 SETUP MODULE ADDRESSABILITY 00300000 * GENERATE CODE REFS(PSALITA,FLC,FLCCVT,RMCTTELM,RMCTPTR,TQEFLGS,TQE, 00301000 * RMCTTBS,RMCTTOC,TQEOFF,TQEVAL,CVTQTD00,CVTQTE00,CVTMAP); 0138 00302000 * 0138 00303000 LR @05,@13 SRM SAVE AREA START ADDRESS 00304000 LR @06,@01 NEW SRM TIMER VALUE IN SRM 00305000 * 32 BIT FORMAT 00306000 * 00307000 * CONVERT SRM 32 BIT TIME TO 64 BIT TIME OF CENTURY. 00308000 * 00309000 SL @06,RMCTTBS(,RMCTPTR) ADD BASE TIME 00310000 SR @07,@07 00311000 SRDL @06,MICROSEC CONVERT TIME TO MICROSECONDS 00312000 L @09,RMCTTOC(,RMCTPTR) HIGH ORDER 32 BITS OF TOC OF 00313000 * LAST ENTRY TO SRM 00314000 LR @10,@09 00315000 N @09,SIGNIF REMOVE UNWANTED SIGNIFICANCE 00316000 OR @06,@09 HIGH ORDER SIGNIFICANCE OF 00317000 * NEW TIMER VALUE 00318000 CLR @06,@10 INSURE NEW TIMER VALUE GREATER 00319000 * THAN CURRENT TIME 00320000 BNL NOADD TIMER VALUE OK 00321000 AL @06,LOSTSIG ADJUST NEW TIMER VALUE 00322000 NOADD DS 0H 00323000 RMI05001 DS 0H 00324000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, XX00325000 RELATED=(DISP,IRARMSRV(RMI05005)) GET DISP LOCK 00326000 L @12,FLCCVT ADDRESSABILITY TO CVT 00327000 L TQEPTR,RMCTTELM(,RMCTPTR) ADDRESSABILITY TO SRM TQE 00328000 TM TQEFLGS-TQE(TQEPTR),TQEOFFQ SRM TQE ENQUEUED 00329000 BO RMI05003 SRM TQE ALREADY DEQUEUED 00330000 L @15,CVTQTD00-CVTMAP(,@12) ADDRESS OF DEQ TQE ROUTINE 00331000 BALR @02,@15 DEQ TQE 00332000 RMI05003 DS 0H 00333000 STM @06,@07,TQEVAL-TQE(TQEPTR) SET UP NEW TIMER VAL IN TQE 00334000 L @15,CVTQTE00-CVTMAP(,@12) ADDRESS OF ENQ TQE ROUTINE 00335000 BALR @02,@15 ENQ TQE 00336000 RMI05005 DS 0H 00337000 SETLOCK RELEASE,TYPE=DISP, XX00338000 RELATED=(DISP,IRARMSRV(RMI05001)) RELEASE DISP LOCK 00339000 SR @15,@15 SET RETURN CODE 00340000 LR @13,@05 RESTORE SRM SAVE AREA ADDRESS 00341000 * /*****************************************************************/ 00342000 * /* */ 00343000 * /* ? IRACTLEP ENN(I05) */ 00344000 * /* */ 00345000 * /*****************************************************************/ 00346000 * 0139 00347000 * GEN CODE EXIT NOSEQFLOW; 0139 00348000 * /* 00349000 LM @00,@14,192+000(@13) RELOAD INVOKING RTNE REGS 00350000 BR RTNREG RETURN TO INVOKER 00351000 * GENERATE CODE; 0140 00352000 DS 0F 00353000 SIGNIF DC XL4'FFC00000' MASK FOR TIME CONVERT 00354000 LOSTSIG DC XL4'00200000' RESTORE LOST SIGNIFICANCE 00355000 MICROSEC EQU 10 1.024 MILLISECS TO MICROSECS 00356000 TQEOFFQ EQU X'80' TQE DEQUEUED 00357000 * 0141 00358000 * /*****************************************************************/ 00359000 * /* */ 00360000 * /* ? IRACTLEP EPN(I06)CODEREG(8)SAVE(0,14) */ 00361000 * /* */ 00362000 * /*****************************************************************/ 00363000 * 0141 00364000 * DCL 0141 00365000 * IRARMI06 ENTRY INT; 0141 00366000 * GEN CODE REFS(RMCTRMSA) NOEXIT SEQFLOW DEFS(IRARMI06); 0142 00367000 * /* 00368000 ENTRY IRARMI06 00369000 IRARMI06 DS 0H 00370000 L @15,RMCTRMSA(,RMCTPTR) SRM SAVE AREA START ADDRESS 00371000 STM @00,@14,192+000(@15) SAVE INVOKING RTNE REGS 00372000 LR @13,@15 ROUTINE SAVE AREA ADDRESS 00373000 BALR @15,0 SETUP ENTRY ADDRESSABILITY 00374000 LA @08,*-@PSTART DISPLACEMENT TO MODULE BASE 00375000 LCR @08,@08 NEGATIVE FOR SUBTRACT 00376000 ALR @08,@15 SETUP MODULE ADDRESSABILITY 00377000 * WRKREG1=SVEREG; /* PRESERVE SRM SAVE AREA START 00378000 * ADDRESS */ 00379000 LR WRKREG1,SVEREG 0143 00380000 * RESPECIFY 0144 00381000 * (COMPCODE, 0144 00382000 * ECBADDR, 0144 00383000 * ERRETPT, 0144 00384000 * ASCBADD) RSTD; 0144 00385000 * COMPCODE=R0; /* COMPLETION CODE @ZA16887*/ 00386000 LR COMPCODE,R0 0145 00387000 * ECBADDR=R1| /* ADDRESS OF ECB TO XMPOST */ 00388000 * HIORDER; /* XMPOST TO BE PERFORMED */ 00389000 L @07,@CF02352 0146 00390000 LR ECBADDR,R1 0146 00391000 OR ECBADDR,@07 0146 00392000 * ERRETPT=RMEXXPE| /* ERROR ENTRY POINT ADDRESS */ 00393000 * HIORDER; /* DO NOT SCHEDULE ERROR ROUTINE 00394000 * IN THE WAIT TASK MEMORY */ 00395000 O @07,RMEXXPE(,RMCTPTR) 0147 00396000 LR ERRETPT,@07 0147 00397000 * ASCBADD=ASCBPTR; /* ASCB ADDRESS OF MEM TO XMPOST */ 00398000 LR ASCBADD,ASCBPTR 0148 00399000 * CALL XMPOST; /* XMPOST MEMORY */ 00400000 L @07,CVTPTR 0149 00401000 L @15,CVT0PT01(,@07) 0149 00402000 BALR @14,@15 0149 00403000 * RTNCOD=CON0; /* INDICATE SUCCESSFUL COMPLETION*/ 00404000 SLR RTNCOD,RTNCOD 0150 00405000 * RESPECIFY 0151 00406000 * (COMPCODE, 0151 00407000 * ECBADDR, 0151 00408000 * ERRETPT, 0151 00409000 * ASCBADD) UNRSTD; 0151 00410000 * SVEREG=WRKREG1; /* RESTORE SRM SAVE AREA START 0152 00411000 * ADDRESS */ 00412000 * 0152 00413000 LR SVEREG,WRKREG1 0152 00414000 * /*****************************************************************/ 00415000 * /* */ 00416000 * /* ? IRACTLEP ENN(I06) */ 00417000 * /* */ 00418000 * /*****************************************************************/ 00419000 * 0153 00420000 * GEN CODE EXIT NOSEQFLOW; 0153 00421000 * /* 00422000 LM @00,@14,192+000(@13) RELOAD INVOKING RTNE REGS 00423000 BR RTNREG RETURN TO INVOKER 00424000 * 0154 00425000 * /*****************************************************************/ 00426000 * /* */ 00427000 * /* ? IRACTLEP EPN(I07)CODEREG(8)SAVE(0,14) */ 00428000 * /* */ 00429000 * /*****************************************************************/ 00430000 * 0154 00431000 * DCL 0154 00432000 * IRARMI07 ENTRY INT; 0154 00433000 * GEN CODE REFS(RMCTRMSA) NOEXIT SEQFLOW DEFS(IRARMI07); 0155 00434000 * /* 00435000 ENTRY IRARMI07 00436000 IRARMI07 DS 0H 00437000 L @15,RMCTRMSA(,RMCTPTR) SRM SAVE AREA START ADDRESS 00438000 STM @00,@14,192+000(@15) SAVE INVOKING RTNE REGS 00439000 LR @13,@15 ROUTINE SAVE AREA ADDRESS 00440000 BALR @15,0 SETUP ENTRY ADDRESSABILITY 00441000 LA @08,*-@PSTART DISPLACEMENT TO MODULE BASE 00442000 LCR @08,@08 NEGATIVE FOR SUBTRACT 00443000 ALR @08,@15 SETUP MODULE ADDRESSABILITY 00444000 * RESPECIFY 0156 00445000 * (PVTPTR) RSTD; 0156 00446000 * PVTPTR=CVTPVTP; /* ADDRESSABILITY TO PVT */ 00447000 L @12,CVTPTR 0157 00448000 L PVTPTR,CVTPVTP(,@12) 0157 00449000 * R0=PVTSRBID; /* CELL POOL ID OF RSM STORAGE */ 00450000 L R0,PVTSRBID(,PVTPTR) 0158 00451000 */* */ 00452000 */* OBTAIN STORAGE FOR AN SRB FROM THE RSM CELL POOL. */ 00453000 */* */ 00454000 * 0159 00455000 * GENERATE CODE REFS(CVTPTR,CVTMAP,CVTGETCL) 0159 00456000 * (GETCELL CPID=(0),BRANCH=YES,SAVE=NO); 0159 00457000 GETCELL CPID=(0),BRANCH=YES,SAVE=NO 00458000 * IF RTNCOD=CON0 THEN /* CELL FOR SRB OBTAINED */ 00459000 LTR RTNCOD,RTNCOD 0160 00460000 BNZ @RF00160 0160 00461000 * DO; 0161 00462000 * RESPECIFY 0162 00463000 * SRBPTR RSTD; /* SRB POINTER */ 00464000 * SRB=''B; /* CLEAR SRB STORAGE */ 00465000 XC SRB(44,SRBPTR),SRB(SRBPTR) 0163 00466000 * SRBEP=PVTPSWIN; /* ADDRESS OF SWAP-IN ROUTINE */ 00467000 L @12,PVTPSWIN(,PVTPTR) 0164 00468000 ST @12,SRBEP(,SRBPTR) 0164 00469000 * SRBRMTR=PVTPSRBP; /* ADDRESS OF RSM ROUTINE THAT 0165 00470000 * WILL CLEAN-UP RSM SRBS WHICH 00471000 * HAVE BEEN SCHEDULED BUT NOT 0165 00472000 * DISPATCHED WHEN AN ERROR OCCUR*/ 00473000 L @12,PVTPSRBP(,PVTPTR) 0165 00474000 ST @12,SRBRMTR(,SRBPTR) 0165 00475000 * SRBPARM=ASCBPTR; /* ADDRESS OF ASCB OF MEMORY TO 00476000 * BE SWAPPED-IN */ 00477000 ST ASCBPTR,SRBPARM(,SRBPTR) 0166 00478000 * SRBPASID=ASCBASID; /* ASID OF MEMORY TO SWAP-IN */ 00479000 LH @12,ASCBASID(,ASCBPTR) 0167 00480000 N @12,@CF02450 0167 00481000 STH @12,SRBPASID(,SRBPTR) 0167 00482000 * SRBASCB=ADDR(IEAMASCB); /* MSTR ASCB ADDRESS INDICATING 00483000 * THE MEMRY IN WHICH THE ROUTINE 00484000 * SHOULD BE DISPATCHED @Z40WPEB*/ 00485000 L @12,@CV02355 0168 00486000 ST @12,SRBASCB(,SRBPTR) 0168 00487000 * GENERATE CODE REFS(CVTMAP,CVTPTR,CVTGSMQ,SRBFLNK,SRBSECT) 0169 00488000 * (SCHEDULE SRB=(1),SCOPE=GLOBAL); 0169 00489000 SCHEDULE SRB=(1),SCOPE=GLOBAL 00490000 * RTNCOD=CON0; /* INDICATE SUCCESSFUL COMPLETION*/ 00491000 SLR RTNCOD,RTNCOD 0170 00492000 * END; 0171 00493000 * RESPECIFY 0172 00494000 * (PVTPTR) UNRSTD; 0172 00495000 * 0172 00496000 @RF00160 DS 0H 0173 00497000 * /*****************************************************************/ 00498000 * /* */ 00499000 * /* ? IRACTLEP ENN(I07) */ 00500000 * /* */ 00501000 * /*****************************************************************/ 00502000 * 0173 00503000 * GEN CODE EXIT NOSEQFLOW; 0173 00504000 * /* 00505000 LM @00,@14,192+000(@13) RELOAD INVOKING RTNE REGS 00506000 BR RTNREG RETURN TO INVOKER 00507000 * 0174 00508000 * /*****************************************************************/ 00509000 * /* */ 00510000 * /* ? IRACTLEP EPN(NOP)CODEREG(8)SAVE(0,14) */ 00511000 * /* */ 00512000 * /*****************************************************************/ 00513000 * 0174 00514000 * DCL 0174 00515000 * IRARMNOP ENTRY INT; 0174 00516000 * GEN CODE DEFS(IRARMNOP) NOEXIT SEQFLOW; 0175 00517000 * 0175 00518000 * /* 00519000 ENTRY IRARMNOP 00520000 IRARMNOP DS 0H 00521000 STM @00,@14,256+000(@13) SAVE INVOKING RTNE REGS 00522000 LA @08,IRARMNOP-@PSTART DISPLACEMENT TO MODULE BASE 00523000 LCR @08,@08 NEGATIVE FOR SUBTRACT 00524000 ALR @08,@15 SETUP MODULE ADDRESSABILITY 00525000 * /*****************************************************************/ 00526000 * /* */ 00527000 * /* ? IRACTLEP ENN(NOP) */ 00528000 * /* */ 00529000 * /*****************************************************************/ 00530000 * 0176 00531000 * GEN CODE EXIT NOSEQFLOW; 0176 00532000 * /* 00533000 LM @00,@14,256+000(@13) RELOAD INVOKING RTNE REGS 00534000 BR RTNREG RETURN TO INVOKER 00535000 * 0177 00536000 * /*****************************************************************/ 00537000 * /* */ 00538000 * /* IRARMR16 -- THIS ROUTINE SETS A RETURN CODE OF 16 AND RETURNS */ 00539000 * /* TO THE CALLER VIA REGISTER 14. IT IS INVOKED BY SYSEVENTS THAT*/ 00540000 * /* ARE CURRENTLY UNDEFINED. THE SYSEVENTS OBTAIN THE ADDRESS OF */ 00541000 * /* THIS ROUTINE VIA AN ENTRY POINT TABLE POINTED TO BY CVTRV609. */ 00542000 * /* THE TABLE AND THE DUMMY SYSEVENTS PROVIDE DOWNWARD */ 00543000 * /* COMPATIBILITY. @ZA31158*/ 00544000 * /* */ 00545000 * /*****************************************************************/ 00546000 * 0177 00547000 * DCL 0177 00548000 * 1 IRARMEPS CHAR(40) LOCAL EXTERNAL BDY(WORD),/* SYSEVENT ENTRY 00549000 * POINT TABLE @ZA31158*/ 00550000 * 2 EPSRSV0 PTR(31) INIT(ADDR(IRARMNOP)),/* RESERVED @ZA31158*/ 00551000 * 2 EPSRSV1 PTR(31) INIT(ADDR(IRARMNOP)),/* RESERVED @ZA31158*/ 00552000 * 2 EPSRSV2 PTR(31) INIT(ADDR(IRARMNOP)),/* RESERVED @ZA31158*/ 00553000 * 2 EPSF53 PTR(31) INIT(ADDR(IRARMR16)),/* EVENT 53 @ZA31158*/ 00554000 * 2 EPSF54 PTR(31) INIT(ADDR(IRARMR16)),/* EVENT 54 @ZA31158*/ 00555000 * 2 EPSF55 PTR(31) INIT(ADDR(IRARMR16)),/* EVENT 55 @ZA31158*/ 00556000 * 2 EPSF56 PTR(31) INIT(ADDR(IRARMR16)),/* EVENT 56 @ZA31158*/ 00557000 * 2 EPSF57 PTR(31) INIT(ADDR(IRARMR16)),/* EVENT 57 @ZA31158*/ 00558000 * 2 EPSF58 PTR(31) INIT(ADDR(IRARMR16)),/* EVENT 58 @ZA31158*/ 00559000 * 2 EPSF59 PTR(31) INIT(ADDR(IRARMR16));/* EVENT 59 @ZA31158*/ 00560000 *IRARMR16: 0178 00561000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @ZA31158*/ 00562000 IRARMR16 DS 0H 0179 00563000 * RETURN CODE(16); /* RETURN WITH CODE SET @ZA31158*/ 00564000 LA @15,16 0179 00565000 @EL00002 DS 0H 0179 00566000 @EF00002 DS 0H 0179 00567000 @ER00002 BR @14 0179 00568000 * END IRARMR16; /* END OF DUMMY ROUTINE @ZA31158*/ 00569000 * 0181 00570000 * /*****************************************************************/ 00571000 * /* */ 00572000 * /* ? IRACTLEP EPN(I09)CODEREG(8)SAVE(0,14) */ 00573000 * /* */ 00574000 * /*****************************************************************/ 00575000 * 0181 00576000 * DCL 0181 00577000 * IRARMI09 ENTRY INT; 0181 00578000 * GEN CODE REFS(RMCTRMSA) NOEXIT SEQFLOW DEFS(IRARMI09); 0182 00579000 * /* 00580000 ENTRY IRARMI09 00581000 IRARMI09 DS 0H 00582000 L @15,RMCTRMSA(,RMCTPTR) SRM SAVE AREA START ADDRESS 00583000 STM @00,@14,192+000(@15) SAVE INVOKING RTNE REGS 00584000 LR @13,@15 ROUTINE SAVE AREA ADDRESS 00585000 BALR @15,0 SETUP ENTRY ADDRESSABILITY 00586000 LA @08,*-@PSTART DISPLACEMENT TO MODULE BASE 00587000 LCR @08,@08 NEGATIVE FOR SUBTRACT 00588000 ALR @08,@15 SETUP MODULE ADDRESSABILITY 00589000 * RESPECIFY 0183 00590000 * WRKREG2 RSTD; /* WORK AREA FOR LENGTH @ZM43072*/ 00591000 * WRKREG2=MSGLNG+CON4; /* OBTAIN WTO LENGTH @ZM43072*/ 00592000 LA WRKREG2,4 0184 00593000 AH WRKREG2,MSGLNG(,MSGPTR) 0184 00594000 * WRKREG1=SVEREG; /* PRESERVE SRM SAVE AREA START 00595000 * ADDRESS */ 00596000 LR WRKREG1,SVEREG 0185 00597000 * SVEREG=SVEREG+LEVEL5; /* SAVE AREA FOR CALLED ROUTINE */ 00598000 AL SVEREG,@CF01410 0186 00599000 */* ISSUE RECORD MACRO USING RECORD'S BUFFER IF POSSIBLE. @ZM43072*/ 00600000 * 0187 00601000 * GENERATE CODE REFS(FLCCVT,PSA,CVTRECRQ,CVTMAP) 0187 00602000 *(RECORD TYPE=WTO,RCVRY=SETFRR,DATAADR=(1),BUFFER=OPT,LENGTH=(7)); 0187 00603000 RECORD TYPE=WTO,RCVRY=SETFRR,DATAADR=(1),BUFFER=OPT,LENGTH=(7) 00604000 * SVEREG=WRKREG1; /* RESTORE SRM SAVE AREA START 0188 00605000 * ADDRESS */ 00606000 LR SVEREG,WRKREG1 0188 00607000 * RESPECIFY 0189 00608000 * WRKREG2 UNRSTD; /* RELEASE REGISTER @ZM43072*/ 00609000 * 0189 00610000 * /*****************************************************************/ 00611000 * /* */ 00612000 * /* ? IRACTLEP ENN(I09) */ 00613000 * /* */ 00614000 * /*****************************************************************/ 00615000 * 0190 00616000 * GEN CODE EXIT NOSEQFLOW; 0190 00617000 * /* 00618000 LM @00,@14,192+000(@13) RELOAD INVOKING RTNE REGS 00619000 BR RTNREG RETURN TO INVOKER 00620000 * 0191 00621000 * /*****************************************************************/ 00622000 * /* */ 00623000 * /* XMPOST ERROR ROUTINE @ZA07127*/ 00624000 * /* */ 00625000 * /*****************************************************************/ 00626000 * 0191 00627000 * DCL 0191 00628000 * RETRY1 LABEL GENERATED; /* RETRY ADDRESS @ZA07127*/ 00629000 * DCL 0192 00630000 * IRARMXPE ENTRY INT; /* ERROR ROUTINE ADDR @ZA07127*/ 00631000 * DCL 0193 00632000 * GPR00P PTR(31) REG(0), 0193 00633000 * GPR01P PTR(31) REG(1), 0193 00634000 * GPR14P PTR(31) REG(14), 0193 00635000 * GPR15P PTR(31) REG(15); /* GENERAL PURPOSE REGS @ZA07127*/ 00636000 * GEN CODE NOEXIT SEQFLOW DEFS(IRARMXPE); 0194 00637000 * /* ENTRY CODE @ZA07127*/ 00638000 ENTRY IRARMXPE 00639000 IRARMXPE DS 0H 00640000 BALR @15,0 00641000 LA @08,*-@PSTART 00642000 LCR @08,@08 00643000 ALR @08,@15 00644000 * RESPECIFY 0195 00645000 * (RTNSAVE, 0195 00646000 * FRRADDR, 0195 00647000 * PARMPTR, 0195 00648000 * R1) RSTD; 0195 00649000 * RTNSAVE=RTNREG; /* SAVE RETURN ADDRESS @ZA07127*/ 00650000 LR RTNSAVE,RTNREG 0196 00651000 * GENERATE CODE REFS(PSALITA,FLC); 0197 00652000 * /* OBTAIN SRM LOCK @ZA07127*/ 00653000 SETLOCK OBTAIN,TYPE=SRM,MODE=UNCOND,RELATED=(SRM,IRARMXPE) 00654000 * FRRADDR=ADDR(IRARMRR3); /* FRR ADDR FOR MACRO INVOCATION 00655000 * @ZA07127*/ 00656000 LA FRRADDR,IRARMRR3 0198 00657000 * GENERATE CODE REFS(PSACSTK,PSALSFCC); 0199 00658000 * /* SET ERROR RECOVERY @ZA07127*/ 00659000 SETFRR A,FRRAD=(FRRADDR),WRKREGS=(WRKREG1,WRKREG2),PARMAD=(PARMPTR) 00660000 * BASEPARM=BASEREG; /* SAVE BASE REGISTER FOR FRR 0200 00661000 * @ZA07127*/ 00662000 ST BASEREG,BASEPARM(,PARMPTR) 0200 00663000 * RETADDR=RTNSAVE; /* SAVE RETURN ADDRESS FOR FRR 0201 00664000 * @ZA07127*/ 00665000 ST RTNSAVE,RETADDR(,PARMPTR) 0201 00666000 * ASCBPTR=R1; /* ASCB IS INPUT FOR ERRET RTN 0202 00667000 * @ZA07127*/ 00668000 LR ASCBPTR,R1 0202 00669000 * RESPECIFY 0203 00670000 * (FRRADDR, 0203 00671000 * PARMPTR, 0203 00672000 * R1) UNRSTD; 0203 00673000 * OUCBPTR=ASCBOUCB; /* OBTAIN ADDRESSABILITY TO OUCB 00674000 * @ZA07127*/ 00675000 L OUCBPTR,ASCBOUCB(,ASCBPTR) 0204 00676000 * IF OUCBPSTR='1'B THEN /* POST WAS FOR SWAPOUT, @ZA16887*/ 00677000 TM OUCBPSTR(OUCBPTR),B'00001000' 0205 00678000 BNO @RF00205 0205 00679000 * DO; /* SO RECOVER, DON'T ABEND 0206 00680000 * @ZA16887*/ 00681000 * OUCBGOB='0'B; /* TURN OFF ALL TRANSITION FLAGS 00682000 * @ZA07127*/ 00683000 * OUCBGOI='0'B; /* GOING IN @ZA07127*/ 00684000 * OUCBGOO='0'B; /* GOING OUT @ZA07127*/ 00685000 NI OUCBGOB(OUCBPTR),B'00011111' 0209 00686000 * OUCBCTI='0'B; /* CLEAR SWAP REASONS @ZA07127*/ 00687000 NI OUCBCTI(OUCBPTR),B'10111111' 0210 00688000 * OUCBLWT='0'B; /* THEY ARE INVALID AND @ZA07127*/ 00689000 NI OUCBLWT(OUCBPTR),B'01111111' 0211 00690000 * OUCBAXS='0'B; /* MEANINGLESS @ZA07127*/ 00691000 NI OUCBAXS(OUCBPTR),B'11111011' 0212 00692000 * OUCBMWT='0'B; /* @ZA07127*/ 00693000 NI OUCBMWT(OUCBPTR),B'11111110' 0213 00694000 * OUCBFXS='0'B; /* @Z40BPJC*/ 00695000 NI OUCBFXS(OUCBPTR),B'11111110' 0214 00696000 * OUCBSRC='00'X; /* @Z40BPJC*/ 00697000 MVI OUCBSRC(OUCBPTR),X'00' 0215 00698000 * IF OUCBPSTE='1'B THEN 0216 00699000 TM OUCBPSTE(OUCBPTR),B'10000000' 0216 00700000 BNO @RF00216 0216 00701000 * DO; /* SECOND FAILURE FOR THIS USER 00702000 * @ZA07127*/ 00703000 * OUCBNSW='1'B; /* MAKE USER NON-SWAPPABLE 0218 00704000 * @ZA07127*/ 00705000 OI OUCBNSW(OUCBPTR),B'10000000' 0218 00706000 * OUCBNDS=OUCBNDS+CON1; /* INCREMENT CNT OF DONT SWAPS 0219 00707000 * @ZA07127*/ 00708000 LA @12,1 0219 00709000 AH @12,OUCBNDS(,OUCBPTR) 0219 00710000 STH @12,OUCBNDS(,OUCBPTR) 0219 00711000 * END; 0220 00712000 * ELSE 0221 00713000 * OUCBPSTE='1'B; /* INDICATE 1ST ENTRY FOR THIS 0221 00714000 * USR @ZA07127*/ 00715000 B @RC00216 0221 00716000 @RF00216 OI OUCBPSTE(OUCBPTR),B'10000000' 0221 00717000 * END; /* END RECOVERY CASE @ZA16887*/ 00718000 * ELSE /* POST WAS FOR OTHER REASON, SO 00719000 * @ZA16887*/ 00720000 * DO; /* ABEND WAITING ADDRESS SPACE 0223 00721000 * @ZA16887*/ 00722000 B @RC00205 0223 00723000 @RF00205 DS 0H 0224 00724000 * RTNCOD=CON0; /* SET REASON CODE=0 @ZA16887*/ 00725000 SLR RTNCOD,RTNCOD 0224 00726000 * GENERATE CODE(ABEND X'55F',,,SYSTEM);/* ISSUE ABEND 55F 0225 00727000 * @ZA16887*/ 00728000 ABEND X'55F',,,SYSTEM 00729000 * END; /* SEE LABEL 'IRARMRR3' BELOW FOR 00730000 * FRR PROCESSING @ZA16887*/ 00731000 * GENERATE CODE REFS(PSALITA,FLC,PSACSTK,PSALSFCC) DEFS(RETRY1); 0227 00732000 * 0227 00733000 @RC00205 DS 0H 0227 00734000 RETRY1 SETFRR D,WRKREGS=(WRKREG1,WRKREG2) 00735000 SETLOCK RELEASE,TYPE=SRM,RELATED=(SRM,IRARMXPE) 00736000 LR RTNREG,RTNSAVE RESTORE REGISTER 14 00737000 BR RTNREG RETURN TO CALLER 00738000 * /*****************************************************************/ 00739000 * /* */ 00740000 * /* FRR ROUTINE FOR ERRET CODE @ZA07127*/ 00741000 * /* */ 00742000 * /*****************************************************************/ 00743000 * 0228 00744000 *IRARMRR3: 0228 00745000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* FRR ROUTINE @ZA07127*/ 00746000 B @PB00003 0228 00747000 IRARMRR3 DS 0H 0229 00748000 * RESPECIFY 0229 00749000 * PARMAREA BASED(SDWAPARM); /* SDWA PARM AREA @ZA07127*/ 00750000 * BASEREG=BASEPARM; /* REINITIALIZE BASE REGISTER 0230 00751000 * @ZA07127*/ 00752000 L @12,SDWAPARM(,SDWAPTR) 0230 00753000 L BASEREG,BASEPARM(,@12) 0230 00754000 * RFY 0231 00755000 * (ASIDREG, 0231 00756000 * RTNSAVE) RSTD; /* HOLD REGS FOR MACROS @ZA16887*/ 00757000 * RTNSAVE=RTNREG; /* SAVE RTM'S RETURN ADDRESS 0232 00758000 * @ZA16887*/ 00759000 LR RTNSAVE,RTNREG 0232 00760000 * IF SDWACMPC=ABEND55F THEN /* FRR INVOKED AFTER 55F ABEND? 00761000 * @ZA16887*/ 00762000 * 0233 00763000 CLC SDWACMPC(3,SDWAPTR),@CB02365 0233 00764000 BNE @RF00233 0233 00765000 * /***************************************************************/ 00766000 * /* */ 00767000 * /* FOR 55F ABEND, VERIFY THE ASCB AND TERMINATE THE WAITING */ 00768000 * /* ADDRESS SPACE. @ZA16887*/ 00769000 * /* */ 00770000 * /***************************************************************/ 00771000 * 0234 00772000 * DO; /* YES, SO TERMINATE WAITING A.S. 00773000 * @ZA16887*/ 00774000 * ASCBPTR=SDWAGR05; /* ADDRESS SPACE TO BE TERMINATED 00775000 * @ZA16887*/ 00776000 L ASCBPTR,SDWAGR05(,SDWAPTR) 0235 00777000 * SVEREG=CVTOPCTP->RMCTRMSA+LEVEL5;/* MACRO SAVE AREA @ZA16887*/ 00778000 L @07,CVTPTR 0236 00779000 L @07,CVTOPCTP(,@07) 0236 00780000 LA SVEREG,256 0236 00781000 AL SVEREG,RMCTRMSA(,@07) 0236 00782000 * IF ASCBPTR^=CON0 THEN /* CHECK VALIDITY OF ASCB ADDRESS 00783000 * @ZA16887*/ 00784000 LTR ASCBPTR,ASCBPTR 0237 00785000 BZ @RF00237 0237 00786000 * DO; /* CHECK BEGINNING AND END ADDR 00787000 * @ZA16887*/ 00788000 * GEN CODE REFS(WRKREG2,ASCBEGIN,ASCBPTR,RTMRETN); 0239 00789000 * /* @ZA16887*/ 00790000 LRA WRKREG2,ASCBEGIN(,ASCBPTR) 00791000 BNE RTMRETN 00792000 LRA WRKREG2,ASCBEND-1(,ASCBPTR) 00793000 BNE RTMRETN 00794000 * IF ASCBASCB='ASCB' THEN /* POINTS TO AN ASCB? @ZA16887*/ 00795000 CLC ASCBASCB(4,ASCBPTR),@CC02438 0240 00796000 BNE @RF00240 0240 00797000 * DO; /* YES, SO SET UP DUMP BUFFER 0241 00798000 * @ZA16887*/ 00799000 * WRKREG1=CVTSDBF; /* ADDRESS OF BUFFER @ZA16887*/ 00800000 L @12,CVTPTR 0242 00801000 L WRKREG1,CVTSDBF(,@12) 0242 00802000 * RFY 0243 00803000 * WRKREG2 RSTD; /* HOLD CS REGISTER @ZA16887*/ 00804000 *SDBFLOOP: 0244 00805000 * IF CVTSDBF>CON0 THEN/* BUFFER FREE TO USE? @ZA16887*/ 00806000 SDBFLOOP L @12,CVTPTR 0244 00807000 L @12,CVTSDBF(,@12) 0244 00808000 LTR @12,@12 0244 00809000 BNP @RF00244 0244 00810000 * DO; /* YES, ATTEMPT TO RESERVE IT 0245 00811000 * @ZA16887*/ 00812000 * WRKREG2=CVTSDBF|SDMPMASK;/* SET HI-ORDER BIT 0246 00813000 * @ZA16887*/ 00814000 O @12,@CF02352 0246 00815000 LR WRKREG2,@12 0246 00816000 * CS(WRKREG1,WRKREG2,CVTSDBF);/* SERIALIZE FIELD 0247 00817000 * @ZA16887*/ 00818000 L @12,CVTPTR 0247 00819000 CS WRKREG1,@07,CVTSDBF(@12) 0247 00820000 * BC(7,SDBFLOOP); /* TRY AGAIN IF UPDATE FAILED 0248 00821000 * @ZA16887*/ 00822000 BC 7,SDBFLOOP 0248 00823000 * RFY 0249 00824000 * WRKREG2 UNRSTD;/* DONE WITH REGISTER @ZA16887*/ 00825000 * 0249 00826000 * /*************************************************/ 00827000 * /* */ 00828000 * /* INITIALIZE SDUMP BUFFER AND COPY THE ASCB AND */ 00829000 * /* OUCB INTO IT PRIOR TO TERMINATING THE ADDRESS */ 00830000 * /* SPACE @ZA16887*/ 00831000 * /* */ 00832000 * /*************************************************/ 00833000 * 0250 00834000 * SDMPDPTR=ADDR(SDMPDATA);/* POINTER TO DATA 0250 00835000 * @ZA16887*/ 00836000 L @12,CVTPTR 0250 00837000 L @12,CVTSDBF(,@12) 0250 00838000 LA @07,SDMPDATA(,@12) 0250 00839000 ST @07,SDMPDPTR(,@12) 0250 00840000 * SDMPLENG=LENGTH(SDMPDATA);/* LENGTH OF DATA 0251 00841000 * @ZA16887*/ 00842000 MVC SDMPLENG(2,@12),@CH02447 0251 00843000 * SDMPFLGS=CON0; /* INITIALIZE FLAG FIELD @ZA16887*/ 00844000 SLR @07,@07 0252 00845000 STH @07,SDMPFLGS(,@12) 0252 00846000 * SDMPEND=''B; /* INDICATE END OF DATA @ZA16887*/ 00847000 XC SDMPEND(6,@12),SDMPEND(@12) 0253 00848000 * SDMPAPTR=ASCBPTR;/* VIRTUAL ADDRESS OF ASCB 0254 00849000 * @ZA16887*/ 00850000 ST ASCBPTR,SDMPAPTR(,@12) 0254 00851000 * SDMPASCB=ASCB; /* COPY ASCB @ZA16887*/ 00852000 MVC SDMPASCB(208,@12),ASCB(ASCBPTR) 0255 00853000 * SDMPABIT='1'B; /* INDICATE ASCB WAS COPIED 0256 00854000 * @ZA16887*/ 00855000 OI SDMPABIT(@12),B'10000000' 0256 00856000 * OUCBPTR=ASCBOUCB;/* GET OUCB ADDRESS @ZA16887*/ 00857000 L OUCBPTR,ASCBOUCB(,ASCBPTR) 0257 00858000 * IF OUCBPTR^=CON0 THEN/* IS ADDRESS VALID? 0258 00859000 * @ZA16887*/ 00860000 CR OUCBPTR,@07 0258 00861000 BE @RF00258 0258 00862000 * DO; /* CHECK BEGINNING AND END ADDR 00863000 * @ZA16887*/ 00864000 * GEN CODE REFS(WRKREG2,OUCBPTR,OUCB,OUCBEND, 00865000 * DUMPBUFF); 0260 00866000 LRA WRKREG2,OUCB(,OUCBPTR) 00867000 BNE DUMPBUFF 00868000 LRA WRKREG2,OUCBEND-1(,OUCBPTR) 00869000 BNE DUMPBUFF 00870000 * SDMPOPTR=OUCBPTR;/* VIRTUAL ADDRESS OF OUCB 00871000 * @ZA16887*/ 00872000 L @12,CVTPTR 0261 00873000 L @12,CVTSDBF(,@12) 0261 00874000 ST OUCBPTR,SDMPOPTR(,@12) 0261 00875000 * SDMPOUCB=OUCB;/* COPY OUCB @ZA16887*/ 00876000 MVC SDMPOUCB(136,@12),OUCB(OUCBPTR) 0262 00877000 * SDMPOBIT='1'B;/* INDICATE OUCB WAS COPIED 0263 00878000 * @ZA16887*/ 00879000 OI SDMPOBIT(@12),B'01000000' 0263 00880000 * END; /* DONE WITH OUCB @ZA16887*/ 00881000 *DUMPBUFF: 0265 00882000 * ASIDREG=CON1; /* SDUMP TO RUN IN MASTER A.S. 0265 00883000 * @ZA16887*/ 00884000 @RF00258 DS 0H 0265 00885000 DUMPBUFF LA ASIDREG,1 0265 00886000 * GEN CODE REFS(ASIDREG); 0266 00887000 * /* SCHEDULE SDUMP @ZA16887*/ 00888000 SDUMP HDR='SRM - IRARMSRV 55F ABEND DURING XMPOST',ASID=(ASIDREG), ++00889000 SDATA=(SQA,PSA,TRT),BUFFER=YES,QUIESCE=NO,BRANCH=YES 00890000 * END; /* DONE WITH SDUMP @ZA16887*/ 00891000 * ASIDREG=ASCBASID; /* TERMINATE WAITING ADDR SPACE 00892000 * @ZA16887*/ 00893000 @RF00244 LH ASIDREG,ASCBASID(,ASCBPTR) 0268 00894000 N ASIDREG,@CF02450 0268 00895000 * GEN CODE REFS(ASIDREG); 0269 00896000 * /* TELL RTM TO TERMINATE @ZA16887*/ 00897000 CALLRTM TYPE=MEMTERM,COMPCOD=X'55F',ASID=(ASIDREG) 00898000 * END; /* END VALID ASCB ADDR CASE 0270 00899000 * @ZA16887*/ 00900000 * END; /* END NON=ZERO ASCB ADDR CASE 0271 00901000 * @ZA16887*/ 00902000 @RF00240 DS 0H 0272 00903000 * RFY 0272 00904000 * ASIDREG UNRSTD; /* FREE UP ASID REGISTER @ZA16887*/ 00905000 @RF00237 DS 0H 0273 00906000 * END; /* END 55F ABEND CASE @ZA16887*/ 00907000 * 0273 00908000 * /*****************************************************************/ 00909000 * /* */ 00910000 * /* FOR CASES OTHER THAN 55F ABEND, RETRY @ZA16887*/ 00911000 * /* */ 00912000 * /*****************************************************************/ 00913000 * 0274 00914000 * ELSE 0274 00915000 * DO; /* SET UP FOR RETRY @ZA16887*/ 00916000 B @RC00233 0274 00917000 @RF00233 DS 0H 0275 00918000 * SDWASR08=BASEPARM; /* RESTORE BASE REG ON RETRY 0275 00919000 * @ZA07127*/ 00920000 L @12,SDWAPARM(,SDWAPTR) 0275 00921000 L @11,BASEPARM(,@12) 0275 00922000 ST @11,SDWASR08(,SDWAPTR) 0275 00923000 * SDWASR10=RETADDR; /* RESTORE RETURN ADDRESS 0276 00924000 * @ZA07127*/ 00925000 L @12,RETADDR(,@12) 0276 00926000 ST @12,SDWASR10(,SDWAPTR) 0276 00927000 * DO; /* SETRP RC(SDWARETY)RETADDR(RETR 00928000 * Y1)RETREGS(YES) */ 00929000 * RESPECIFY 0278 00930000 * (GPR00P, 0278 00931000 * GPR01P, 0278 00932000 * GPR14P, 0278 00933000 * GPR15P) RSTD; 0278 00934000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 00935000 MVI SDWARCDE(GPR01P),X'04' 0279 00936000 * GPR01P->SDWARTYA=ADDR(RETRY1);/* SAVE RETRY ADDRESS */ 00937000 LA @12,RETRY1 0280 00938000 ST @12,SDWARTYA(,GPR01P) 0280 00939000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 00940000 OI SDWAUPRG(GPR01P),B'00001000' 0281 00941000 * RESPECIFY 0282 00942000 * (GPR00P, 0282 00943000 * GPR01P, 0282 00944000 * GPR14P, 0282 00945000 * GPR15P) UNRSTD; 0282 00946000 * END; 0283 00947000 * END; /* END RETRY CASE @ZA16887*/ 00948000 *RTMRETN: 0285 00949000 * RTNREG=RTNSAVE; /* RESTORE RETURN ADDRESS 0285 00950000 * @ZA16887*/ 00951000 @RC00233 DS 0H 0285 00952000 RTMRETN LR RTNREG,RTNSAVE 0285 00953000 * RETURN; /* RETURN TO RTM @ZA16887*/ 00954000 @EL00003 DS 0H 0286 00955000 @EF00003 DS 0H 0286 00956000 @ER00003 BR @14 0286 00957000 * RFY 0287 00958000 * RTNSAVE UNRSTD; /* FREE UP REGISTER @ZA16887*/ 00959000 * END IRARMRR3; /* END OF FRR ROUTINE @ZA07127*/ 00960000 @PB00003 DS 0H 0288 00961000 * GENERATE CODE REFS(RTNCOD,SRBPTR,SRBPARM) DEFS(IRARMSRE); 0289 00962000 ENTRY IRARMSRE SRB ERROR CLEAN-UP 00963000 IRARMSRE DS 0H 00964000 SR RTNCOD,RTNCOD CLEAR SRBPARM TO ALLOW THE 00965000 ST RTNCOD,SRBPARM(,SRBPTR) SRM SRB TO BE RESCHEDULED 00966000 BR RTNREG RETURN @ZA07127 00967000 * END IRARMSRV 0290 00968000 * 0290 00969000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00970000 */*%INCLUDE SYSLIB (IRACNSMP) */ 00971000 */*%INCLUDE SYSLIB (IRARMCT ) */ 00972000 */*%INCLUDE SYSLIB (IRACCT ) */ 00973000 */*%INCLUDE SYSLIB (IRAICT ) */ 00974000 */*%INCLUDE SYSLIB (IRAMCT ) */ 00975000 */*%INCLUDE SYSLIB (IRARCT ) */ 00976000 */*%INCLUDE SYSLIB (IRARMPT ) */ 00977000 */*%INCLUDE SYSLIB (IRARMCA ) */ 00978000 */*%INCLUDE SYSLIB (IRARMEX ) */ 00979000 */*%INCLUDE SYSLIB (IRARMSB ) */ 00980000 */*%INCLUDE SYSLIB (IRAEPAT ) */ 00981000 */*%INCLUDE SYSLIB (IRAEPDT ) */ 00982000 */*%INCLUDE SYSLIB (IRAEPST ) */ 00983000 */*%INCLUDE SYSLIB (IRARRPA ) */ 00984000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00985000 */*%INCLUDE SYSLIB (IRAOUCB ) */ 00986000 */*%INCLUDE SYSLIB (IHAOUXB ) */ 00987000 */*%INCLUDE SYSLIB (CVT ) */ 00988000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00989000 */*%INCLUDE SYSLIB (IHAPVT ) */ 00990000 */*%INCLUDE SYSLIB (IHASRB ) */ 00991000 */*%INCLUDE SYSLIB (IHATQE ) */ 00992000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 00993000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 00994000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00995000 */*%INCLUDE SYSLIB (IRAREGS ) */ 00996000 * 0290 00997000 * ; 0290 00998000 @DATA DS 0H 00999000 @CH02447 DC H'354' 01000000 DS 0F 01001000 DS 0F 01002000 @CF02350 DC F'20' 01003000 @CF01410 DC F'256' 01004000 @CF02352 DC XL4'80000000' 01005000 @CF02450 DC XL4'0000FFFF' 01006000 @CV02355 DC V(IEAMASCB) 01007000 DS 0D 01008000 FRRSPTR DS A 01009000 FRREPTR DS A 01010000 CELLSIZE DC AL4(144) 01011000 @CC02438 DC C'ASCB' 01012000 @CB02365 DC X'55F000' 01013000 DS CL1 01014000 IRARMEPS DS CL40 01015000 ORG IRARMEPS 01016000 EPSRSV0 DC AL4(IRARMNOP) 01017000 EPSRSV1 DC AL4(IRARMNOP) 01018000 EPSRSV2 DC AL4(IRARMNOP) 01019000 EPSF53 DC AL4(IRARMR16) 01020000 EPSF54 DC AL4(IRARMR16) 01021000 EPSF55 DC AL4(IRARMR16) 01022000 EPSF56 DC AL4(IRARMR16) 01023000 EPSF57 DC AL4(IRARMR16) 01024000 EPSF58 DC AL4(IRARMR16) 01025000 EPSF59 DC AL4(IRARMR16) 01026000 ORG IRARMEPS+40 01027000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01028000 @01 EQU 01 01029000 @02 EQU 02 01030000 @03 EQU 03 01031000 @04 EQU 04 01032000 @05 EQU 05 01033000 @06 EQU 06 01034000 @07 EQU 07 01035000 @08 EQU 08 01036000 @09 EQU 09 01037000 @10 EQU 10 01038000 @11 EQU 11 01039000 @12 EQU 12 01040000 @13 EQU 13 01041000 @14 EQU 14 01042000 @15 EQU 15 01043000 RMCTPTR EQU @02 01044000 RRPAPTR EQU @03 01045000 ASCBPTR EQU @05 01046000 OUCBPTR EQU @04 01047000 OUXBPTR EQU @06 01048000 PVTPTR EQU @10 01049000 SRBPTR EQU @01 01050000 TQEPTR EQU @01 01051000 SDWAPTR EQU @01 01052000 R0 EQU @00 01053000 R1 EQU @01 01054000 SVEREG EQU @13 01055000 RTNREG EQU @14 01056000 NTRREG EQU @15 01057000 RTNCOD EQU @15 01058000 MSGPTR EQU @01 01059000 WRKREG2 EQU @07 01060000 WRKREG1 EQU @09 01061000 COMPCODE EQU @10 01062000 ASIDREG EQU @11 01063000 ECBADDR EQU @11 01064000 ERRETPT EQU @12 01065000 ASCBADD EQU @13 01066000 RTNSAVE EQU @10 01067000 FRRADDR EQU @11 01068000 BASEREG EQU @08 01069000 PARMPTR EQU @06 01070000 GPR00P EQU @00 01071000 GPR01P EQU @01 01072000 GPR14P EQU @14 01073000 GPR15P EQU @15 01074000 ENTRY IRARMEPS 01075000 PSA EQU 0 01076000 FLCRNPSW EQU PSA 01077000 FLCROPSW EQU PSA+8 01078000 FLCICCW2 EQU PSA+16 01079000 FLCCVT EQU FLCICCW2 01080000 PSAEEPSW EQU PSA+132 01081000 PSAESPSW EQU PSA+136 01082000 FLCSVILC EQU PSAESPSW+1 01083000 PSAEPPSW EQU PSA+140 01084000 FLCPIILC EQU PSAEPPSW+1 01085000 FLCPICOD EQU PSAEPPSW+2 01086000 PSAPICOD EQU FLCPICOD+1 01087000 FLCTEA EQU PSAEPPSW+4 01088000 FLCPER EQU PSA+152 01089000 FLCMCLA EQU PSA+168 01090000 FLCIOEL EQU FLCMCLA+4 01091000 FLCIOA EQU FLCMCLA+16 01092000 FLCFSA EQU FLCMCLA+80 01093000 PSASUPER EQU PSA+552 01094000 PSASUP1 EQU PSASUPER 01095000 PSASUP2 EQU PSASUPER+1 01096000 PSASUP3 EQU PSASUPER+2 01097000 PSASUP4 EQU PSASUPER+3 01098000 PSACLHT EQU PSA+640 01099000 PSALKSA EQU PSA+696 01100000 PSAHLHI EQU PSA+760 01101000 PSALITA EQU PSA+764 01102000 PSADSSFL EQU PSA+836 01103000 PSADSSF1 EQU PSADSSFL 01104000 PSADSSF3 EQU PSADSSFL+2 01105000 PSADSSF4 EQU PSADSSFL+3 01106000 PSARSVT EQU PSA+896 01107000 PSALSFCC EQU PSA+1012 01108000 RMCT EQU 0 01109000 RMCTRMSA EQU RMCT+32 01110000 RMCTTBS EQU RMCT+120 01111000 RMCTTOC EQU RMCT+128 01112000 RMCTFLGS EQU RMCT+148 01113000 RMCTTELM EQU RMCT+152 01114000 RMCTCPID EQU RMCT+156 01115000 CCT EQU RMCT+192 01116000 CCTFLG1 EQU CCT+124 01117000 ICT EQU RMCT+320 01118000 ICTFLAGS EQU ICT+84 01119000 MCT EQU RMCT+408 01120000 MCTSFLGS EQU MCT+64 01121000 MCTOFLGS EQU MCT+65 01122000 RCT EQU RMCT+504 01123000 RMPT EQU RMCT+592 01124000 RMCA EQU RMCT+664 01125000 RMCAFLGS EQU RMCA+36 01126000 RMCASRC EQU RMCA+124 01127000 RMEX EQU RMCT+832 01128000 RMEPBEVT EQU RMEX 01129000 RMEPBCTL EQU RMEX+16 01130000 RMEXXPE EQU RMEX+56 01131000 RMSB EQU RMCT+896 01132000 EPAT EQU RMCT+1016 01133000 EPDT EQU RMCT+1416 01134000 EPST EQU RMCT+1512 01135000 RMEPBWM3 EQU EPST 01136000 RMEPBIL3 EQU EPST+16 01137000 RMEPBCL3 EQU EPST+32 01138000 RMEPBCSO EQU EPST+48 01139000 RMEPBCSI EQU EPST+64 01140000 RRPA EQU 0 01141000 RRPAINC EQU RRPA 01142000 RRPAVPGN EQU RRPAINC+2 01143000 RRPAFLG0 EQU RRPAVPGN 01144000 RRPAINP EQU RRPA+4 01145000 RRPAFLG EQU RRPA+8 01146000 RRPAINS EQU RRPA+16 01147000 ASCB EQU 0 01148000 ASCBEGIN EQU ASCB 01149000 ASCBASCB EQU ASCB 01150000 ASCBSUPC EQU ASCB+16 01151000 ASCBASID EQU ASCB+36 01152000 ASCBRSM EQU ASCB+52 01153000 ASCBRSMF EQU ASCBRSM 01154000 ASCBFW1 EQU ASCB+100 01155000 ASCBRCTF EQU ASCBFW1+2 01156000 ASCBFLG1 EQU ASCBFW1+3 01157000 ASCBDSP1 EQU ASCB+114 01158000 ASCBFLG2 EQU ASCB+115 01159000 ASCBLKGP EQU ASCB+128 01160000 ASCBOUCB EQU ASCB+144 01161000 ASCBSRQ EQU ASCB+180 01162000 ASCBSRQ1 EQU ASCBSRQ 01163000 ASCBSRQ2 EQU ASCBSRQ+1 01164000 ASCBSRQ3 EQU ASCBSRQ+2 01165000 ASCBSRQ4 EQU ASCBSRQ+3 01166000 OUCB EQU 0 01167000 OUCBQFL EQU OUCB+16 01168000 OUCBGOO EQU OUCBQFL 01169000 OUCBGOI EQU OUCBQFL 01170000 OUCBGOB EQU OUCBQFL 01171000 OUCBSFL EQU OUCB+17 01172000 OUCBNSW EQU OUCBSFL 01173000 OUCBCTI EQU OUCBSFL 01174000 OUCBYFL EQU OUCB+18 01175000 OUCBPSTE EQU OUCBYFL 01176000 OUCBPSTR EQU OUCBYFL 01177000 OUCBAXS EQU OUCBYFL 01178000 OUCBFXS EQU OUCBYFL 01179000 OUCBAFL EQU OUCB+19 01180000 OUCBTFL EQU OUCB+20 01181000 OUCBEFL EQU OUCB+21 01182000 OUCBLWT EQU OUCBEFL 01183000 OUCBMWT EQU OUCBEFL 01184000 OUCBUFL EQU OUCB+23 01185000 OUCBSRC EQU OUCB+37 01186000 OUCBCSW EQU OUCB+84 01187000 OUCBCFL EQU OUCBCSW+2 01188000 OUCBPSS EQU OUCB+112 01189000 OUCBNDS EQU OUCB+132 01190000 OUCBEND EQU OUCB+136 01191000 OUXB EQU 0 01192000 OUXBEND EQU OUXB+144 01193000 CVTMAP EQU 0 01194000 CVTDAR EQU CVTMAP+72 01195000 CVTFLGS1 EQU CVTDAR 01196000 CVTQTE00 EQU CVTMAP+104 01197000 CVTQTD00 EQU CVTMAP+108 01198000 CVTDCB EQU CVTMAP+116 01199000 CVTIOQET EQU CVTMAP+120 01200000 CVTIERLC EQU CVTMAP+144 01201000 CVT0PT01 EQU CVTMAP+152 01202000 CVTHEAD EQU CVTMAP+160 01203000 CVTSV76C EQU CVTHEAD 01204000 CVTOPTA EQU CVTMAP+182 01205000 CVTOPTB EQU CVTMAP+183 01206000 CVTGTF EQU CVTMAP+236 01207000 CVTGTFST EQU CVTGTF 01208000 CVTGTFS EQU CVTGTFST 01209000 CVTSTATE EQU CVTGTFST 01210000 CVTTMODE EQU CVTGTFST 01211000 CVTFORM EQU CVTGTFST 01212000 CVTAQAVT EQU CVTMAP+240 01213000 CVTTCMFG EQU CVTAQAVT 01214000 CVTVOLM2 EQU CVTMAP+244 01215000 CVTTATA EQU CVTVOLM2 01216000 CVTTSKS EQU CVTTATA 01217000 CVTVOLF2 EQU CVTTSKS 01218000 CVTTAT EQU CVTTATA+1 01219000 CVTATER EQU CVTMAP+248 01220000 CVTEXT1 EQU CVTMAP+252 01221000 CVTPURG EQU CVTMAP+260 01222000 CVTQMSG EQU CVTMAP+268 01223000 CVTDMSR EQU CVTMAP+272 01224000 CVTRSV37 EQU CVTDMSR 01225000 CVTDMSRF EQU CVTRSV37 01226000 CVTERPV EQU CVTMAP+316 01227000 CVTINTLA EQU CVTMAP+320 01228000 CVTAPF EQU CVTMAP+324 01229000 CVTEXT2 EQU CVTMAP+328 01230000 CVTHJES EQU CVTMAP+332 01231000 CVTPGSIA EQU CVTMAP+348 01232000 CVTA1F1 EQU CVTMAP+356 01233000 CVTSYSK EQU CVTMAP+357 01234000 CVTVOLM1 EQU CVTMAP+380 01235000 CVTVOLF1 EQU CVTVOLM1 01236000 CVTATMCT EQU CVTMAP+388 01237000 CVTXTNT1 EQU 0 01238000 CVTXTNT2 EQU 0 01239000 CVTDSSV EQU CVTXTNT2 01240000 CVTFLGBT EQU CVTXTNT2+5 01241000 CVTQID EQU CVTXTNT2+24 01242000 CVTRV400 EQU CVTXTNT2+52 01243000 CVTRV409 EQU CVTXTNT2+53 01244000 CVTATCVT EQU CVTXTNT2+64 01245000 CVTRV429 EQU CVTXTNT2+84 01246000 CVTRV438 EQU CVTXTNT2+85 01247000 CVTRV457 EQU CVTXTNT2+112 01248000 CVTRV466 EQU CVTXTNT2+113 01249000 CVTFIX EQU 0 01250000 CVTRELNO EQU CVTFIX+252 01251000 PVT EQU 0 01252000 PVTFLAG1 EQU PVT 01253000 PVTFLAG2 EQU PVT+1 01254000 PVTSRBID EQU PVT+68 01255000 PVTPRFR EQU PVT+120 01256000 PVTPSWIN EQU PVT+160 01257000 PVTPSRBP EQU PVT+188 01258000 PVTQS EQU PVT+304 01259000 PVTWSAX EQU PVT+344 01260000 SRBSECT EQU 0 01261000 SRB EQU SRBSECT 01262000 SRBFLNK EQU SRB+4 01263000 SRBASCB EQU SRB+8 01264000 SRBFLC EQU SRB+12 01265000 SRBPASID EQU SRBFLC+2 01266000 SRBEP EQU SRB+20 01267000 SRBRMTR EQU SRB+24 01268000 SRBPARM EQU SRB+28 01269000 TQE EQU 0 01270000 TQEFLGS EQU TQE+14 01271000 TQEOFF EQU TQEFLGS 01272000 TQEFLGS2 EQU TQE+15 01273000 TQEVAL EQU TQE+16 01274000 TQEEXIT EQU TQE+28 01275000 TQESRB EQU TQE+44 01276000 TQEFLGS3 EQU TQE+88 01277000 TQESTCK EQU TQE+120 01278000 WSAG EQU 0 01279000 WSAGGMFM EQU WSAG+4 01280000 FRRS EQU 0 01281000 FRRSHEAD EQU FRRS 01282000 FRRSENTR EQU 0 01283000 FRRSFLGS EQU FRRSENTR+4 01284000 FRRSFLG1 EQU FRRSFLGS 01285000 SDWA EQU 0 01286000 SDWAPARM EQU SDWA 01287000 SDWAFIOB EQU SDWA+4 01288000 SDWAABCC EQU SDWAFIOB 01289000 SDWACMPF EQU SDWAABCC 01290000 SDWACMPC EQU SDWAABCC+1 01291000 SDWACTL1 EQU SDWA+8 01292000 SDWACMKA EQU SDWACTL1 01293000 SDWAMWPA EQU SDWACTL1+1 01294000 SDWAPMKA EQU SDWACTL1+4 01295000 SDWACTL2 EQU SDWA+16 01296000 SDWACMKP EQU SDWACTL2 01297000 SDWAMWPP EQU SDWACTL2+1 01298000 SDWAPMKP EQU SDWACTL2+4 01299000 SDWAGRSV EQU SDWA+24 01300000 SDWAGR05 EQU SDWAGRSV+20 01301000 SDWANAME EQU SDWA+88 01302000 SDWAEC1 EQU SDWA+104 01303000 SDWAEMK1 EQU SDWAEC1 01304000 SDWAMWP1 EQU SDWAEC1+1 01305000 SDWAINT1 EQU SDWAEC1+2 01306000 SDWANXT1 EQU SDWAEC1+4 01307000 SDWAAEC1 EQU SDWA+112 01308000 SDWAILC1 EQU SDWAAEC1+1 01309000 SDWAINC1 EQU SDWAAEC1+2 01310000 SDWAICD1 EQU SDWAINC1+1 01311000 SDWAEC2 EQU SDWA+120 01312000 SDWAEMK2 EQU SDWAEC2 01313000 SDWAMWP2 EQU SDWAEC2+1 01314000 SDWAINT2 EQU SDWAEC2+2 01315000 SDWANXT2 EQU SDWAEC2+4 01316000 SDWAAEC2 EQU SDWA+128 01317000 SDWAILC2 EQU SDWAAEC2+1 01318000 SDWAINC2 EQU SDWAAEC2+2 01319000 SDWAICD2 EQU SDWAINC2+1 01320000 SDWASRSV EQU SDWA+136 01321000 SDWASR08 EQU SDWASRSV+32 01322000 SDWASR10 EQU SDWASRSV+40 01323000 SDWAIDNT EQU SDWA+200 01324000 SDWAMCH EQU SDWA+204 01325000 SDWASTCK EQU SDWAMCH 01326000 SDWAMCHI EQU SDWAMCH+8 01327000 SDWAMCHS EQU SDWAMCHI 01328000 SDWAMCHD EQU SDWAMCHI+1 01329000 SDWARSR1 EQU SDWAMCH+12 01330000 SDWARSR2 EQU SDWAMCH+13 01331000 SDWAFLGS EQU SDWA+232 01332000 SDWAERRA EQU SDWAFLGS 01333000 SDWAERRB EQU SDWAFLGS+1 01334000 SDWAERRC EQU SDWAFLGS+2 01335000 SDWAERRD EQU SDWAFLGS+3 01336000 SDWAIOFS EQU SDWA+238 01337000 SDWARTYA EQU SDWA+240 01338000 SDWACPUA EQU SDWA+248 01339000 SDWAPARQ EQU SDWA+252 01340000 SDWARCDE EQU SDWAPARQ 01341000 SDWAACF2 EQU SDWAPARQ+1 01342000 SDWAUPRG EQU SDWAACF2 01343000 SDWAACF3 EQU SDWAPARQ+2 01344000 SDWAACF4 EQU SDWAPARQ+3 01345000 SDWALKWA EQU SDWA+256 01346000 SDWALKWS EQU SDWALKWA 01347000 SDWARECP EQU SDWA+292 01348000 SDWASNPA EQU SDWA+320 01349000 SDWADUMP EQU SDWASNPA 01350000 SDWADPFS EQU SDWADUMP+1 01351000 SDWADDAT EQU SDWASNPA+4 01352000 SDWASDAT EQU SDWADDAT 01353000 SDWAPDAT EQU SDWADDAT+2 01354000 SDWADPSA EQU SDWA+328 01355000 SDWADPSL EQU SDWADPSA 01356000 SDWARA EQU SDWA+400 01357000 SDWADPVA EQU SDWARA+2 01358000 IEAVRFR EQU 0 01359000 XMPOST EQU 0 01360000 PARMAREA EQU 0 01361000 BASEPARM EQU PARMAREA 01362000 RETADDR EQU PARMAREA+4 01363000 MSGLNG EQU 0 01364000 SDMPBUFF EQU 0 01365000 SDMPDPTR EQU SDMPBUFF 01366000 SDMPLENG EQU SDMPBUFF+4 01367000 SDMPDATA EQU SDMPBUFF+6 01368000 SDMPFLGS EQU SDMPDATA 01369000 SDMPABIT EQU SDMPFLGS 01370000 SDMPOBIT EQU SDMPFLGS 01371000 SDMPAPTR EQU SDMPDATA+2 01372000 SDMPASCB EQU SDMPDATA+6 01373000 SDMPOPTR EQU SDMPDATA+214 01374000 SDMPOUCB EQU SDMPDATA+218 01375000 SDMPEND EQU SDMPBUFF+360 01376000 IRARMNTR EQU 0 01377000 IRARMRTN EQU 0 01378000 CVTPTR EQU FLCCVT 01379000 CVTS01 EQU CVTPGSIA 01380000 CVTPVTP EQU CVTS01+8 01381000 CVTLPDIA EQU CVTS01+12 01382000 CVTDIRST EQU CVTLPDIA 01383000 CVTSLIDA EQU CVTS01+24 01384000 CVTCTLFG EQU CVTS01+50 01385000 CVTBLDCP EQU CVTS01+140 01386000 CVTGETCL EQU CVTS01+144 01387000 CVTFRECL EQU CVTS01+148 01388000 CVTSDBF EQU CVTS01+240 01389000 CVTOPCTP EQU CVTS01+256 01390000 CVTGSMQ EQU CVTS01+264 01391000 CVTVEAC0 EQU CVTS01+328 01392000 CVTGLMN EQU CVTS01+332 01393000 CVTSPSA EQU CVTS01+336 01394000 CVTRECRQ EQU CVTS01+352 01395000 CVTRV210 EQU CVTS01+424 01396000 CVTRV219 EQU CVTS01+425 01397000 CVTRV228 EQU CVTS01+426 01398000 CVTRV237 EQU CVTS01+427 01399000 CVTMFRTR EQU CVTS01+452 01400000 CVTRV262 EQU CVTS01+468 01401000 CVTRV271 EQU CVTS01+469 01402000 CVTRV280 EQU CVTS01+470 01403000 CVTRV289 EQU CVTS01+471 01404000 CVTGSDA EQU CVTS01+600 01405000 FLC EQU PSA 01406000 PSARSVTE EQU PSARSVT 01407000 PSACSTK EQU PSARSVTE 01408000 TQEECB EQU TQEEXIT 01409000 * START UNREFERENCED COMPONENTS 01410000 PSARSAV EQU PSARSVTE+60 01411000 PSARSTK EQU PSARSVTE+56 01412000 PSAESAV3 EQU PSARSVTE+52 01413000 PSAESTK3 EQU PSARSVTE+48 01414000 PSAESAV2 EQU PSARSVTE+44 01415000 PSAESTK2 EQU PSARSVTE+40 01416000 PSAESAV1 EQU PSARSVTE+36 01417000 PSAESTK1 EQU PSARSVTE+32 01418000 PSAPSAV EQU PSARSVTE+28 01419000 PSAPSTK EQU PSARSVTE+24 01420000 PSAMSAV EQU PSARSVTE+20 01421000 PSAMSTK EQU PSARSVTE+16 01422000 PSASSAV EQU PSARSVTE+12 01423000 PSASSTK EQU PSARSVTE+8 01424000 PSANSTK EQU PSARSVTE+4 01425000 CVTRV628 EQU CVTS01+728 01426000 CVTRV627 EQU CVTS01+724 01427000 CVTRV626 EQU CVTS01+720 01428000 CVTRV625 EQU CVTS01+716 01429000 CVTRV624 EQU CVTS01+712 01430000 CVTRV623 EQU CVTS01+708 01431000 CVTRV622 EQU CVTS01+704 01432000 CVTRV621 EQU CVTS01+700 01433000 CVTIHASU EQU CVTS01+696 01434000 CVTSUSP EQU CVTS01+692 01435000 CVTT6SVC EQU CVTS01+688 01436000 CVTCDAL EQU CVTS01+684 01437000 CVTTCTL EQU CVTS01+680 01438000 CVTRSUME EQU CVTS01+676 01439000 CVTJTERM EQU CVTS01+672 01440000 CVTASMRM EQU CVTS01+668 01441000 CVTTCASP EQU CVTS01+664 01442000 CVT0PT03 EQU CVTS01+660 01443000 CVT0PT0E EQU CVTS01+656 01444000 CVTRV609 EQU CVTS01+652 01445000 CVTCGK EQU CVTS01+648 01446000 CVTRAC EQU CVTS01+644 01447000 CVTHSM EQU CVTS01+640 01448000 CVTRV605 EQU CVTS01+636 01449000 CVTRV604 EQU CVTS01+632 01450000 CVTEFF02 EQU CVTS01+628 01451000 CVTCBBR EQU CVTS01+624 01452000 CVTSSCR EQU CVTS01+620 01453000 CVTEVENT EQU CVTS01+616 01454000 CVTCRCA EQU CVTS01+612 01455000 CVTTPIO EQU CVTS01+608 01456000 CVTADV EQU CVTS01+604 01457000 CVTGSDAB EQU CVTGSDA 01458000 CVTQV3 EQU CVTS01+596 01459000 CVTQV2 EQU CVTS01+592 01460000 CVTQV1 EQU CVTS01+588 01461000 CVTRPT EQU CVTS01+584 01462000 CVTSSRB EQU CVTS01+580 01463000 CVTCSDRL EQU CVTS01+576 01464000 CVTEXP1 EQU CVTS01+572 01465000 CVTRMPMT EQU CVTS01+568 01466000 CVTRMPTT EQU CVTS01+564 01467000 CVTVPSA EQU CVTS01+560 01468000 CVTVSTOP EQU CVTS01+556 01469000 CVTGTFR8 EQU CVTS01+552 01470000 CVTQUIT EQU CVTS01+548 01471000 CVTVACR EQU CVTS01+544 01472000 CVTWTCB EQU CVTS01+540 01473000 CVTSTPRS EQU CVTS01+536 01474000 CVT0PT02 EQU CVTS01+532 01475000 CVTDARCM EQU CVTS01+528 01476000 CVTIRECM EQU CVTS01+524 01477000 CVTJRECM EQU CVTS01+520 01478000 CVTVEMS0 EQU CVTS01+516 01479000 CVTSPFRR EQU CVTS01+512 01480000 CVTRLSTG EQU CVTS01+508 01481000 CVT0TC0A EQU CVTS01+504 01482000 CVTGMBR EQU CVTS01+500 01483000 CVTLFRM EQU CVTS01+496 01484000 CVTRMBR EQU CVTS01+492 01485000 CVTVIOP EQU CVTS01+488 01486000 CVTRV307 EQU CVTS01+486 01487000 CVTRV306 EQU CVTS01+484 01488000 CVTRV305 EQU CVTS01+482 01489000 CVTRV304 EQU CVTS01+480 01490000 CVTRV303 EQU CVTS01+478 01491000 CVTRV302 EQU CVTS01+476 01492000 CVTTRCA EQU CVTS01+472 01493000 CVTRV297 EQU CVTRV289 01494000 CVTRV296 EQU CVTRV289 01495000 CVTRV295 EQU CVTRV289 01496000 CVTRV294 EQU CVTRV289 01497000 CVTRV293 EQU CVTRV289 01498000 CVTRV292 EQU CVTRV289 01499000 CVTRV291 EQU CVTRV289 01500000 CVTRV290 EQU CVTRV289 01501000 CVTRV288 EQU CVTRV280 01502000 CVTRV287 EQU CVTRV280 01503000 CVTRV286 EQU CVTRV280 01504000 CVTRV285 EQU CVTRV280 01505000 CVTRV284 EQU CVTRV280 01506000 CVTRV283 EQU CVTRV280 01507000 CVTRV282 EQU CVTRV280 01508000 CVTRV281 EQU CVTRV280 01509000 CVTRV279 EQU CVTRV271 01510000 CVTRV278 EQU CVTRV271 01511000 CVTRV277 EQU CVTRV271 01512000 CVTRV276 EQU CVTRV271 01513000 CVTRV275 EQU CVTRV271 01514000 CVTRV274 EQU CVTRV271 01515000 CVTRV273 EQU CVTRV271 01516000 CVTRV272 EQU CVTRV271 01517000 CVTRV270 EQU CVTRV262 01518000 CVTRV269 EQU CVTRV262 01519000 CVTRV268 EQU CVTRV262 01520000 CVTRV267 EQU CVTRV262 01521000 CVTRV266 EQU CVTRV262 01522000 CVTRV265 EQU CVTRV262 01523000 CVTRV264 EQU CVTRV262 01524000 CVTRV263 EQU CVTRV262 01525000 CVTVFP EQU CVTS01+464 01526000 CVTVSI EQU CVTS01+460 01527000 CVTVPSIB EQU CVTS01+456 01528000 CVTMFACT EQU CVTMFRTR 01529000 CVTMFCTL EQU CVTS01+448 01530000 CVTPVBP EQU CVTS01+444 01531000 CVTPWI EQU CVTS01+440 01532000 CVTRV254 EQU CVTS01+438 01533000 CVTRV253 EQU CVTS01+436 01534000 CVTRV252 EQU CVTS01+434 01535000 CVTRV251 EQU CVTS01+433 01536000 CVTRV250 EQU CVTS01+432 01537000 CVTRV249 EQU CVTS01+431 01538000 CVTRV248 EQU CVTS01+430 01539000 CVTRV247 EQU CVTS01+429 01540000 CVTRV246 EQU CVTS01+428 01541000 CVTRV245 EQU CVTRV237 01542000 CVTRV244 EQU CVTRV237 01543000 CVTRV243 EQU CVTRV237 01544000 CVTRV242 EQU CVTRV237 01545000 CVTRV241 EQU CVTRV237 01546000 CVTRV240 EQU CVTRV237 01547000 CVTRV239 EQU CVTRV237 01548000 CVTRV238 EQU CVTRV237 01549000 CVTRV236 EQU CVTRV228 01550000 CVTRV235 EQU CVTRV228 01551000 CVTRV234 EQU CVTRV228 01552000 CVTRV233 EQU CVTRV228 01553000 CVTRV232 EQU CVTRV228 01554000 CVTRV231 EQU CVTRV228 01555000 CVTRV230 EQU CVTRV228 01556000 CVTRV229 EQU CVTRV228 01557000 CVTRV227 EQU CVTRV219 01558000 CVTRV226 EQU CVTRV219 01559000 CVTRV225 EQU CVTRV219 01560000 CVTRV224 EQU CVTRV219 01561000 CVTRV223 EQU CVTRV219 01562000 CVTRV222 EQU CVTRV219 01563000 CVTRV221 EQU CVTRV219 01564000 CVTRV220 EQU CVTRV219 01565000 CVTRV218 EQU CVTRV210 01566000 CVTRV217 EQU CVTRV210 01567000 CVTRV216 EQU CVTRV210 01568000 CVTRV215 EQU CVTRV210 01569000 CVTRV214 EQU CVTRV210 01570000 CVTRV213 EQU CVTRV210 01571000 CVTRV212 EQU CVTRV210 01572000 CVTRV211 EQU CVTRV210 01573000 CVTLCCAT EQU CVTS01+420 01574000 CVTPCCAT EQU CVTS01+416 01575000 CVTIPCRP EQU CVTS01+412 01576000 CVTIPCRI EQU CVTS01+408 01577000 CVTIPCDS EQU CVTS01+404 01578000 CVTAIDVT EQU CVTS01+400 01579000 CVTSSAP EQU CVTS01+396 01580000 CVTEHCIR EQU CVTS01+392 01581000 CVTEHDEF EQU CVTS01+388 01582000 CVTDAIR EQU CVTS01+384 01583000 CVTPERFM EQU CVTS01+380 01584000 CVT044R2 EQU CVTS01+376 01585000 CVTFETCH EQU CVTS01+372 01586000 CVTRSTWD EQU CVTS01+368 01587000 CVTSPOST EQU CVTS01+364 01588000 CVTIOBP EQU CVTS01+360 01589000 CVTASMVT EQU CVTS01+356 01590000 CVTWSAC EQU CVTS01+348 01591000 CVTRV149 EQU CVTS01+344 01592000 CVTWSAL EQU CVTS01+340 01593000 CVT062R1 EQU CVTS01+324 01594000 CVTRPOST EQU CVTS01+320 01595000 CVTDQIQE EQU CVTS01+316 01596000 CVTCSD EQU CVTS01+312 01597000 CVTLKRMA EQU CVTS01+308 01598000 CVTRSPIE EQU CVTS01+304 01599000 CVTRENQ EQU CVTS01+300 01600000 CVTLQCB EQU CVTS01+296 01601000 CVTFQCB EQU CVTS01+292 01602000 CVTQCS01 EQU CVTS01+288 01603000 CVTAPFT EQU CVTS01+284 01604000 CVTPARRL EQU CVTS01+280 01605000 CVTVWAIT EQU CVTS01+276 01606000 CVTGSPL EQU CVTS01+272 01607000 CVTLSMQ EQU CVTS01+268 01608000 CVTEXPRO EQU CVTS01+260 01609000 CVTSIC EQU CVTS01+252 01610000 CVTTPIOS EQU CVTS01+248 01611000 CVTRTMS EQU CVTS01+244 01612000 CVTSCBP EQU CVTS01+236 01613000 CVTSDMP EQU CVTS01+232 01614000 CVTSV60 EQU CVTS01+228 01615000 CVTRTMCT EQU CVTS01+224 01616000 CVTASCBL EQU CVTS01+220 01617000 CVTASCBH EQU CVTS01+216 01618000 CVTGDA EQU CVTS01+212 01619000 CVTASVT EQU CVTS01+208 01620000 CVTVVMDI EQU CVTS01+204 01621000 CVTAQTOP EQU CVTS01+200 01622000 CVTIOSCS EQU CVTS01+196 01623000 CVTSDRM EQU CVTS01+192 01624000 CVTOPTE EQU CVTS01+188 01625000 CVTSTXU EQU CVTS01+184 01626000 CVTQUIS EQU CVTS01+180 01627000 CVTPARS EQU CVTS01+176 01628000 CVTS1EE EQU CVTS01+172 01629000 CVTFRAS EQU CVTS01+168 01630000 CVTQSAS EQU CVTS01+164 01631000 CVTCRAS EQU CVTS01+160 01632000 CVTCRMN EQU CVTS01+156 01633000 CVTDELCP EQU CVTS01+152 01634000 CVTAUTHL EQU CVTS01+136 01635000 CVTSCAN EQU CVTS01+132 01636000 CVTRV144 EQU CVTS01+130 01637000 CVTMAXMP EQU CVTS01+128 01638000 CVTSTCK EQU CVTS01+124 01639000 CVTRV139 EQU CVTS01+123 01640000 CVTDSSAC EQU CVTS01+122 01641000 CVTRV513 EQU CVTS01+121 01642000 CVTIOSPL EQU CVTS01+120 01643000 CVTPTGT EQU CVTS01+116 01644000 CVTCSPIE EQU CVTS01+112 01645000 CVTSMFEX EQU CVTS01+108 01646000 CVTOLT0A EQU CVTS01+104 01647000 CVTSRBRT EQU CVTS01+100 01648000 CVTPUTL EQU CVTS01+96 01649000 CVTASCRL EQU CVTS01+92 01650000 CVTASCRF EQU CVTS01+88 01651000 CVTRV326 EQU CVTS01+84 01652000 CVTRV325 EQU CVTS01+80 01653000 CVTRV324 EQU CVTS01+76 01654000 CVT0VL01 EQU CVTS01+72 01655000 CVTSHRVM EQU CVTS01+68 01656000 CVTRV332 EQU CVTS01+64 01657000 CVTTAS EQU CVTS01+60 01658000 CVTRSCN EQU CVTS01+56 01659000 CVTTRAC2 EQU CVTS01+54 01660000 CVTTRACE EQU CVTS01+52 01661000 CVTAPG EQU CVTS01+51 01662000 CVTSDTRC EQU CVTCTLFG 01663000 CVTGTRCE EQU CVTCTLFG 01664000 CVTNOMP EQU CVTCTLFG 01665000 CVTRSV79 EQU CVTCTLFG 01666000 CVTDSTAT EQU CVTCTLFG 01667000 CVTRSV78 EQU CVTCTLFG 01668000 CVTRV333 EQU CVTCTLFG 01669000 CVTRV323 EQU CVTCTLFG 01670000 CVTSPVLK EQU CVTS01+49 01671000 CVTRSV77 EQU CVTS01+48 01672000 CVTRV331 EQU CVTS01+44 01673000 CVTRV330 EQU CVTS01+40 01674000 CVTRV329 EQU CVTS01+36 01675000 CVTRV328 EQU CVTS01+32 01676000 CVTRV322 EQU CVTS01+28 01677000 CVTSLID EQU CVTSLIDA+1 01678000 CVTSYLK EQU CVTSLIDA 01679000 CVTRV321 EQU CVTS01+20 01680000 CVTRV320 EQU CVTS01+16 01681000 CVTLPDIR EQU CVTLPDIA+1 01682000 CVTRSV69 EQU CVTDIRST 01683000 CVTRSV68 EQU CVTDIRST 01684000 CVTRSV67 EQU CVTDIRST 01685000 CVTRSV66 EQU CVTDIRST 01686000 CVTRSV65 EQU CVTDIRST 01687000 CVTRSV64 EQU CVTDIRST 01688000 CVTRSV63 EQU CVTDIRST 01689000 CVTDICOM EQU CVTDIRST 01690000 CVTLPDSR EQU CVTS01+4 01691000 CVTGETL EQU CVTS01 01692000 @NM00085 EQU SDMPFLGS 01693000 @NM00084 EQU SDWA+512 01694000 SDWAVRA EQU SDWARA+4 01695000 SDWAURAL EQU SDWARA+3 01696000 @NM00083 EQU SDWADPVA 01697000 SDWAEBC EQU SDWADPVA 01698000 SDWAHEX EQU SDWADPVA 01699000 SDWAVRAL EQU SDWARA 01700000 @NM00082 EQU SDWA+396 01701000 SDWACOMP EQU SDWA+392 01702000 SDWARCPL EQU SDWA+364 01703000 @NM00081 EQU SDWADPSA+32 01704000 SDWATO4 EQU SDWADPSL+28 01705000 SDWAFRM4 EQU SDWADPSL+24 01706000 SDWATO3 EQU SDWADPSL+20 01707000 SDWAFRM3 EQU SDWADPSL+16 01708000 SDWATO2 EQU SDWADPSL+12 01709000 SDWAFRM2 EQU SDWADPSL+8 01710000 SDWATO1 EQU SDWADPSL+4 01711000 SDWAFRM1 EQU SDWADPSL 01712000 @NM00080 EQU SDWADDAT+3 01713000 @NM00079 EQU SDWAPDAT 01714000 SDWAUSPL EQU SDWAPDAT 01715000 SDWADPSW EQU SDWAPDAT 01716000 SDWATJPA EQU SDWAPDAT 01717000 SDWATLPA EQU SDWAPDAT 01718000 SDWADREG EQU SDWAPDAT 01719000 SDWADSAH EQU SDWAPDAT 01720000 SDWADSAS EQU SDWAPDAT 01721000 @NM00078 EQU SDWADDAT+1 01722000 @NM00077 EQU SDWASDAT 01723000 SDWAQQS EQU SDWASDAT 01724000 SDWACBS EQU SDWASDAT 01725000 SDWAGTF EQU SDWASDAT 01726000 SDWASWA EQU SDWASDAT 01727000 SDWALSQA EQU SDWASDAT 01728000 SDWASQA EQU SDWASDAT 01729000 SDWANUC EQU SDWASDAT 01730000 @NM00076 EQU SDWADUMP+2 01731000 @NM00075 EQU SDWADPFS 01732000 SDWASLST EQU SDWADPFS 01733000 @NM00074 EQU SDWADPFS 01734000 SDWADLST EQU SDWADPFS 01735000 SDWADPT EQU SDWADPFS 01736000 SDWADPID EQU SDWADUMP 01737000 SDWADPLA EQU SDWA+316 01738000 SDWAREXN EQU SDWARECP+16 01739000 SDWACSCT EQU SDWARECP+8 01740000 SDWAMODN EQU SDWARECP 01741000 @NM00073 EQU SDWA+290 01742000 SDWAASID EQU SDWA+288 01743000 SDWATALW EQU SDWALKWS+28 01744000 SDWATDLW EQU SDWALKWS+24 01745000 SDWATNLW EQU SDWALKWS+20 01746000 SDWAAPLW EQU SDWALKWS+16 01747000 SDWAIPLW EQU SDWALKWS+12 01748000 SDWAILLW EQU SDWALKWS+8 01749000 SDWAIULW EQU SDWALKWS+4 01750000 SDWAICLW EQU SDWALKWS 01751000 SDWAFLLK EQU SDWAACF4 01752000 SDWACMS EQU SDWAACF4 01753000 SDWAOPTM EQU SDWAACF4 01754000 SDWATADB EQU SDWAACF4 01755000 SDWATDNB EQU SDWAACF4 01756000 SDWATNCB EQU SDWAACF4 01757000 SDWAILCH EQU SDWAACF4 01758000 SDWAIUCB EQU SDWAACF4 01759000 SDWAICAT EQU SDWAACF3 01760000 SDWAIPRG EQU SDWAACF3 01761000 SDWASALL EQU SDWAACF3 01762000 SDWAASMP EQU SDWAACF3 01763000 SDWADISP EQU SDWAACF3 01764000 @NM00072 EQU SDWAACF3 01765000 @NM00071 EQU SDWAACF2 01766000 SDWAFREE EQU SDWAACF2 01767000 @NM00070 EQU SDWAACF2 01768000 SDWASPIN EQU SDWAACF2 01769000 @NM00069 EQU SDWAACF2 01770000 SDWARCRD EQU SDWAACF2 01771000 SDWALCPU EQU SDWACPUA+2 01772000 @NM00068 EQU SDWACPUA 01773000 SDWARECA EQU SDWA+244 01774000 @NM00067 EQU SDWA+239 01775000 @NM00066 EQU SDWAIOFS 01776000 SDWANIOP EQU SDWAIOFS 01777000 SDWANOIO EQU SDWAIOFS 01778000 SDWAIOHT EQU SDWAIOFS 01779000 SDWAIOQR EQU SDWAIOFS 01780000 SDWAFMID EQU SDWA+236 01781000 @NM00065 EQU SDWAERRD 01782000 SDWAMCIV EQU SDWAERRD 01783000 SDWARPIV EQU SDWAERRD 01784000 SDWAMABD EQU SDWAERRD 01785000 SDWACTS EQU SDWAERRD 01786000 SDWASTAE EQU SDWAERRD 01787000 SDWANRBE EQU SDWAERRD 01788000 SDWACLUP EQU SDWAERRD 01789000 @NM00064 EQU SDWAERRC 01790000 SDWAEAS EQU SDWAERRC 01791000 SDWAPERC EQU SDWAERRC 01792000 SDWAIRB EQU SDWAERRC 01793000 SDWASTAI EQU SDWAERRC 01794000 SDWASTAF EQU SDWAERRC 01795000 SDWASRBM EQU SDWAERRB 01796000 SDWALDIS EQU SDWAERRB 01797000 SDWAENRB EQU SDWAERRB 01798000 SDWATYP1 EQU SDWAERRB 01799000 @NM00063 EQU SDWAERRB 01800000 SDWAPGIO EQU SDWAERRA 01801000 SDWATEXC EQU SDWAERRA 01802000 SDWASVCE EQU SDWAERRA 01803000 SDWAABTM EQU SDWAERRA 01804000 SDWASVCD EQU SDWAERRA 01805000 SDWARKEY EQU SDWAERRA 01806000 SDWAPCHK EQU SDWAERRA 01807000 SDWAMCHK EQU SDWAERRA 01808000 SDWATIME EQU SDWAMCH+20 01809000 SDWARFSA EQU SDWAMCH+16 01810000 @NM00062 EQU SDWAMCH+14 01811000 SDWAVEQR EQU SDWARSR2 01812000 SDWAPGFX EQU SDWARSR2 01813000 SDWAFLSQ EQU SDWARSR2 01814000 SDWAFSQA EQU SDWARSR2 01815000 SDWANUCL EQU SDWARSR2 01816000 SDWASPER EQU SDWARSR2 01817000 SDWAINTC EQU SDWARSR2 01818000 SDWAOFLN EQU SDWARSR2 01819000 SDWACHNG EQU SDWARSR1 01820000 SDWAMSER EQU SDWARSR1 01821000 @NM00061 EQU SDWARSR1 01822000 SDWACPID EQU SDWAMCH+10 01823000 SDWATERR EQU SDWAMCHD 01824000 SDWAFPRX EQU SDWAMCHD 01825000 SDWAINSF EQU SDWAMCHD 01826000 SDWAACR EQU SDWAMCHD 01827000 SDWASCK EQU SDWAMCHD 01828000 SDWAPSWU EQU SDWAMCHD 01829000 SDWAREGU EQU SDWAMCHD 01830000 SDWASKYF EQU SDWAMCHD 01831000 @NM00060 EQU SDWAMCHS 01832000 SDWARSRF EQU SDWAMCHS 01833000 SDWARSRC EQU SDWAMCHS 01834000 SDWAINVP EQU SDWAMCHS 01835000 SDWATSVL EQU SDWAMCHS 01836000 SDWARCDF EQU SDWAMCHS 01837000 SDWASRVL EQU SDWAMCHS 01838000 SDWASCKE EQU SDWASTCK+4 01839000 SDWASCKB EQU SDWASTCK 01840000 SDWALNTH EQU SDWAIDNT+1 01841000 SDWASPID EQU SDWAIDNT 01842000 SDWASR15 EQU SDWASRSV+60 01843000 SDWASR14 EQU SDWASRSV+56 01844000 SDWASR13 EQU SDWASRSV+52 01845000 SDWASR12 EQU SDWASRSV+48 01846000 SDWASR11 EQU SDWASRSV+44 01847000 SDWASR09 EQU SDWASRSV+36 01848000 SDWASR07 EQU SDWASRSV+28 01849000 SDWASR06 EQU SDWASRSV+24 01850000 SDWASR05 EQU SDWASRSV+20 01851000 SDWASR04 EQU SDWASRSV+16 01852000 SDWASR03 EQU SDWASRSV+12 01853000 SDWASR02 EQU SDWASRSV+8 01854000 SDWASR01 EQU SDWASRSV+4 01855000 SDWASR00 EQU SDWASRSV 01856000 SDWATRN2 EQU SDWAAEC2+4 01857000 SDWAIPC2 EQU SDWAICD2 01858000 SDWAIMC2 EQU SDWAICD2 01859000 SDWAIPR2 EQU SDWAICD2 01860000 @NM00059 EQU SDWAINC2 01861000 @NM00058 EQU SDWAILC2 01862000 SDWAIL2 EQU SDWAILC2 01863000 @NM00057 EQU SDWAILC2 01864000 @NM00056 EQU SDWAAEC2 01865000 SDWAADD2 EQU SDWANXT2+1 01866000 @NM00055 EQU SDWANXT2 01867000 @NM00054 EQU SDWAEC2+3 01868000 SDWASGN2 EQU SDWAINT2 01869000 SDWAEXP2 EQU SDWAINT2 01870000 SDWADEC2 EQU SDWAINT2 01871000 SDWAFPO2 EQU SDWAINT2 01872000 SDWACC2 EQU SDWAINT2 01873000 @NM00053 EQU SDWAINT2 01874000 SDWAPGM2 EQU SDWAMWP2 01875000 SDWAWAT2 EQU SDWAMWP2 01876000 SDWAMCK2 EQU SDWAMWP2 01877000 SDWAECT2 EQU SDWAMWP2 01878000 SDWAKEY2 EQU SDWAMWP2 01879000 SDWAEXT2 EQU SDWAEMK2 01880000 SDWAIO2 EQU SDWAEMK2 01881000 SDWATRM2 EQU SDWAEMK2 01882000 @NM00052 EQU SDWAEMK2 01883000 SDWAPER2 EQU SDWAEMK2 01884000 @NM00051 EQU SDWAEMK2 01885000 SDWATRAN EQU SDWAAEC1+4 01886000 SDWAIPC1 EQU SDWAICD1 01887000 SDWAIMC1 EQU SDWAICD1 01888000 SDWAIPR1 EQU SDWAICD1 01889000 @NM00050 EQU SDWAINC1 01890000 @NM00049 EQU SDWAILC1 01891000 SDWAIL1 EQU SDWAILC1 01892000 @NM00048 EQU SDWAILC1 01893000 @NM00047 EQU SDWAAEC1 01894000 SDWAADD1 EQU SDWANXT1+1 01895000 @NM00046 EQU SDWANXT1 01896000 @NM00045 EQU SDWAEC1+3 01897000 SDWASGN1 EQU SDWAINT1 01898000 SDWAEXP1 EQU SDWAINT1 01899000 SDWADEC1 EQU SDWAINT1 01900000 SDWAFPO1 EQU SDWAINT1 01901000 SDWACC1 EQU SDWAINT1 01902000 @NM00044 EQU SDWAINT1 01903000 SDWAPGM1 EQU SDWAMWP1 01904000 SDWAWAT1 EQU SDWAMWP1 01905000 SDWAMCK1 EQU SDWAMWP1 01906000 SDWAECT1 EQU SDWAMWP1 01907000 SDWAKEY1 EQU SDWAMWP1 01908000 SDWAEXT1 EQU SDWAEMK1 01909000 SDWAIO1 EQU SDWAEMK1 01910000 SDWATRM1 EQU SDWAEMK1 01911000 @NM00043 EQU SDWAEMK1 01912000 SDWAPER1 EQU SDWAEMK1 01913000 @NM00042 EQU SDWAEMK1 01914000 SDWAIOBR EQU SDWA+100 01915000 SDWAEPA EQU SDWA+96 01916000 @NM00041 EQU SDWANAME+4 01917000 SDWARBAD EQU SDWANAME 01918000 SDWAGR15 EQU SDWAGRSV+60 01919000 SDWAGR14 EQU SDWAGRSV+56 01920000 SDWAGR13 EQU SDWAGRSV+52 01921000 SDWAGR12 EQU SDWAGRSV+48 01922000 SDWAGR11 EQU SDWAGRSV+44 01923000 SDWAGR10 EQU SDWAGRSV+40 01924000 SDWAGR09 EQU SDWAGRSV+36 01925000 SDWAGR08 EQU SDWAGRSV+32 01926000 SDWAGR07 EQU SDWAGRSV+28 01927000 SDWAGR06 EQU SDWAGRSV+24 01928000 SDWAGR04 EQU SDWAGRSV+16 01929000 SDWAGR03 EQU SDWAGRSV+12 01930000 SDWAGR02 EQU SDWAGRSV+8 01931000 SDWAGR01 EQU SDWAGRSV+4 01932000 SDWAGR00 EQU SDWAGRSV 01933000 SDWANXTP EQU SDWACTL2+5 01934000 SDWASGP EQU SDWAPMKP 01935000 SDWAEUP EQU SDWAPMKP 01936000 SDWADOP EQU SDWAPMKP 01937000 SDWAFPP EQU SDWAPMKP 01938000 SDWACCP EQU SDWAPMKP 01939000 SDWAILP EQU SDWAPMKP 01940000 SDWAINTP EQU SDWACTL2+2 01941000 SDWASPVP EQU SDWAMWPP 01942000 SDWAWATP EQU SDWAMWPP 01943000 SDWAMCKP EQU SDWAMWPP 01944000 @NM00040 EQU SDWAMWPP 01945000 SDWAKEYP EQU SDWAMWPP 01946000 SDWAEXTP EQU SDWACMKP 01947000 SDWAIOP EQU SDWACMKP 01948000 SDWANXTA EQU SDWACTL1+5 01949000 SDWASGA EQU SDWAPMKA 01950000 SDWAEUA EQU SDWAPMKA 01951000 SDWADOA EQU SDWAPMKA 01952000 SDWAFPA EQU SDWAPMKA 01953000 SDWACCA EQU SDWAPMKA 01954000 SDWAILA EQU SDWAPMKA 01955000 SDWAINTA EQU SDWACTL1+2 01956000 SDWASPVA EQU SDWAMWPA 01957000 SDWAWATA EQU SDWAMWPA 01958000 SDWAMCKA EQU SDWAMWPA 01959000 @NM00039 EQU SDWAMWPA 01960000 SDWAKEYA EQU SDWAMWPA 01961000 SDWAEXTA EQU SDWACMKA 01962000 SDWAIOA EQU SDWACMKA 01963000 @NM00038 EQU SDWACMPF 01964000 SDWASTCC EQU SDWACMPF 01965000 @NM00037 EQU SDWACMPF 01966000 SDWASTEP EQU SDWACMPF 01967000 SDWAREQ EQU SDWACMPF 01968000 FRRSPARM EQU FRRSENTR+8 01969000 @NM00036 EQU FRRSFLGS+1 01970000 @NM00035 EQU FRRSFLG1 01971000 FRRSNEST EQU FRRSFLG1 01972000 FRRSRCUR EQU FRRSFLG1 01973000 FRRSFRRA EQU FRRSENTR 01974000 FRRSENTS EQU FRRS+84 01975000 FRRSRTMW EQU FRRS+16 01976000 FRRSCURR EQU FRRSHEAD+12 01977000 FRRSELEN EQU FRRSHEAD+8 01978000 FRRSLAST EQU FRRSHEAD+4 01979000 FRRSEMP EQU FRRSHEAD 01980000 WSAGSCHE EQU WSAG+40 01981000 WSAGREST EQU WSAG+36 01982000 WSAGNQDQ EQU WSAG+32 01983000 WSAGMEMT EQU WSAG+28 01984000 WSAGOPTM EQU WSAG+24 01985000 WSAGSTAT EQU WSAG+20 01986000 WSAGEMS0 EQU WSAG+16 01987000 WSAGSSRS EQU WSAG+12 01988000 WSAGRSM EQU WSAG+8 01989000 WSAGPGIO EQU WSAG 01990000 TQESTCKR EQU TQESTCK+4 01991000 TQESTCKL EQU TQESTCK 01992000 TQERSAVE EQU TQE+116 01993000 @NM00034 EQU TQE+89 01994000 @NM00033 EQU TQEFLGS3 01995000 TQEDIE EQU TQEFLGS3 01996000 TQEDREGS EQU TQESRB 01997000 TQELHPSW EQU TQE+40 01998000 TQEASCB EQU TQE+36 01999000 TQETCB EQU TQE+32 02000000 TQESADDR EQU TQE+24 02001000 TQEVALRH EQU TQEVAL+4 02002000 TQEVALLH EQU TQEVAL 02003000 TQEMIDN EQU TQEFLGS2 02004000 TQEMF1 EQU TQEFLGS2 02005000 TQEOPT EQU TQEFLGS2 02006000 TQELM EQU TQEFLGS2 02007000 TQEDUM EQU TQEFLGS2 02008000 TQECRH EQU TQEFLGS2 02009000 TQEUSER EQU TQEFLGS2 02010000 TQECOMP EQU TQEFLGS2 02011000 TQETYPE EQU TQEFLGS 02012000 TQEXITSP EQU TQEFLGS 02013000 TQEINCOM EQU TQEFLGS 02014000 TQEWLIM EQU TQEFLGS 02015000 @NM00032 EQU TQEFLGS 02016000 TQETOD EQU TQEFLGS 02017000 TQEAID EQU TQE+12 02018000 TQEBLNK EQU TQE+8 02019000 TQEFLNK EQU TQE+4 02020000 TQETQE EQU TQE 02021000 @NM00031 EQU SRB+40 02022000 @NM00030 EQU SRB+38 02023000 SRBPRIOR EQU SRB+37 02024000 SRBPKF EQU SRB+36 02025000 SRBSAVE EQU SRB+32 02026000 SRBPTCB EQU SRBFLC+4 02027000 SRBCPAFF EQU SRBFLC 02028000 SRBID EQU SRB 02029000 PVTEND EQU PVT+1848 02030000 PVTTASID EQU PVT+1846 02031000 PVTXXXXX EQU PVT+1844 02032000 PVTMVCLC EQU PVT+1840 02033000 PVTSPARE EQU PVT+1838 02034000 PVTCHUIC EQU PVT+1836 02035000 PVTCOMFX EQU PVT+1834 02036000 PVTSQAFX EQU PVT+1832 02037000 PVTCNTFX EQU PVT+1830 02038000 PVTDEFFX EQU PVT+1828 02039000 PVTFIXOK EQU PVT+1826 02040000 PVTPEROK EQU PVT+1824 02041000 PVTMAXFX EQU PVT+1822 02042000 PVTPERFX EQU PVT+1820 02043000 PVTRSRB EQU PVT+1776 02044000 PVTRESV5 EQU PVT+1773 02045000 PVTSRBS EQU PVT+1772 02046000 PVTSSRB EQU PVT+1768 02047000 PVTACA EQU PVTWSAX+1400 02048000 PVTSAVE EQU PVTWSAX+1328 02049000 PVTWSA18 EQU PVTWSAX+1256 02050000 PVTWSA17 EQU PVTWSAX+1184 02051000 PVTWSA16 EQU PVTWSAX+1112 02052000 PVTWSA15 EQU PVTWSAX+1040 02053000 PVTWSA14 EQU PVTWSAX+968 02054000 PVTWSA13 EQU PVTWSAX+896 02055000 PVTWSA12 EQU PVTWSAX+824 02056000 PVTWSA11 EQU PVTWSAX+752 02057000 PVTWSA10 EQU PVTWSAX+672 02058000 PVTWSA9 EQU PVTWSAX+592 02059000 PVTWSA8 EQU PVTWSAX+504 02060000 PVTWSA7 EQU PVTWSAX+432 02061000 PVTWSA6 EQU PVTWSAX+360 02062000 PVTWSA5 EQU PVTWSAX+288 02063000 PVTWSA4 EQU PVTWSAX+216 02064000 PVTWSA3 EQU PVTWSAX+144 02065000 PVTWSA2 EQU PVTWSAX+72 02066000 PVTWSA1 EQU PVTWSAX 02067000 PVTCIOQL EQU PVTQS+36 02068000 PVTCIOQF EQU PVTQS+32 02069000 PVTGFADL EQU PVTQS+28 02070000 PVTGFADF EQU PVTQS+24 02071000 PVTFPCBL EQU PVTQS+20 02072000 PVTFPCBF EQU PVTQS+16 02073000 PVTSQAQL EQU PVTQS+14 02074000 PVTSQAQF EQU PVTQS+12 02075000 PVTCFQL EQU PVTQS+10 02076000 PVTCFQF EQU PVTQS+8 02077000 PVTRSRVL EQU PVTQS+6 02078000 PVTRSRVF EQU PVTQS+4 02079000 PVTAFQL EQU PVTQS+2 02080000 PVTAFQF EQU PVTQS 02081000 PVTSPFR EQU PVT+302 02082000 PVTCFMCT EQU PVT+300 02083000 PVTSPREC EQU PVT+296 02084000 PVTCAREC EQU PVT+292 02085000 PVTCAOUT EQU PVT+288 02086000 PVTCAIN EQU PVT+284 02087000 PVTNSWPS EQU PVT+280 02088000 PVTNPREC EQU PVT+276 02089000 PVTSPOUT EQU PVT+272 02090000 PVTSPIN EQU PVT+268 02091000 PVTVAMR EQU PVT+264 02092000 PVTVAMO EQU PVT+260 02093000 PVTVAMI EQU PVT+256 02094000 PVTNPOUT EQU PVT+252 02095000 PVTNPIN EQU PVT+248 02096000 PVTPRSET EQU PVT+244 02097000 PVTFRSLT EQU PVT+240 02098000 PVTPAGIO EQU PVT+236 02099000 PVTSWPIO EQU PVT+232 02100000 PVTPSWPP EQU PVT+228 02101000 PVTPPREF EQU PVT+224 02102000 PVTPOPBR EQU PVT+220 02103000 PVTPRELF EQU PVT+216 02104000 PVTPRELV EQU PVT+212 02105000 PVTPFREE EQU PVT+208 02106000 PVTPRELS EQU PVT+204 02107000 PVTPOUT EQU PVT+200 02108000 PVTPFXLD EQU PVT+196 02109000 PVTPITAS EQU PVT+192 02110000 PVTPDSEG EQU PVT+184 02111000 PVTPCSGB EQU PVT+180 02112000 PVTPCSEG EQU PVT+176 02113000 PVTPINV EQU PVT+172 02114000 PVTPSWPC EQU PVT+168 02115000 PVTPSOUT EQU PVT+164 02116000 PVTPRCV EQU PVT+156 02117000 PVTPRCFI EQU PVT+152 02118000 PVTPRCF EQU PVT+148 02119000 PVTPVRC EQU PVT+144 02120000 PVTPVRIN EQU PVT+140 02121000 PVTPVRLS EQU PVT+136 02122000 PVTPVEQR EQU PVT+132 02123000 PVTPPIOI EQU PVT+128 02124000 PVTPVRPO EQU PVT+124 02125000 PVTPFP2 EQU PVT+116 02126000 PVTPFP EQU PVT+112 02127000 PVTPFTE EQU PVT+108 02128000 PVTPCB EQU PVT+104 02129000 PVTREP2 EQU PVT+100 02130000 PVTPIOCP EQU PVT+96 02131000 PVTPIOP EQU PVT+92 02132000 PVTPGFAD EQU PVT+88 02133000 PVTPGFA EQU PVT+84 02134000 PVTPSQA EQU PVT+80 02135000 PVTPSINT EQU PVT+76 02136000 PVTPSIB EQU PVT+72 02137000 PVTPCIWA EQU PVT+64 02138000 PVTHQSA EQU PVT+62 02139000 PVTLQSA EQU PVT+60 02140000 PVTOROOT EQU PVT+56 02141000 PVTPRCA EQU PVT+52 02142000 PVTREUS EQU PVT+48 02143000 PVTSQNPC EQU PVT+47 02144000 PVTSQVRC EQU PVT+46 02145000 PVTRSUS EQU PVT+44 02146000 PVTVROOT EQU PVT+40 02147000 PVTPCBLO EQU PVT+38 02148000 PVTPCBCT EQU PVT+36 02149000 PVTDFRS EQU PVT+34 02150000 PVTRSQA EQU PVT+32 02151000 PVTPTLB EQU PVT+31 02152000 PVTPCBNO EQU PVT+30 02153000 PVTSRBNO EQU PVT+29 02154000 PVTSQDC EQU PVT+28 02155000 PVTLCSA EQU PVT+26 02156000 PVTLPRIV EQU PVT+24 02157000 PVTLVR EQU PVT+22 02158000 PVTFVR EQU PVT+20 02159000 PVTLPFN EQU PVT+18 02160000 PVTFPFN EQU PVT+16 02161000 PVTPFTP EQU PVT+12 02162000 PVTSSPIN EQU PVT+11 02163000 PVTPCBS EQU PVT+10 02164000 PVTPOOL EQU PVT+8 02165000 PVTAFCOK EQU PVT+6 02166000 PVTAFCLO EQU PVT+4 02167000 PVTAFC EQU PVT+2 02168000 @NM00029 EQU PVTFLAG2 02169000 PVTRSMGM EQU PVTFLAG2 02170000 PVTDUMP EQU PVTFLAG1 02171000 PVTSIT EQU PVTFLAG1 02172000 PVTLSI EQU PVTFLAG1 02173000 PVTAPREF EQU PVTFLAG1 02174000 PVTPCBLT EQU PVTFLAG1 02175000 PVTSRBIU EQU PVTFLAG1 02176000 PVTBGMS EQU PVTFLAG1 02177000 PVTPMSG EQU PVTFLAG1 02178000 CVTLEVL EQU CVTRELNO+2 02179000 CVTNUMB EQU CVTRELNO 02180000 CVTMDL EQU CVTFIX+250 02181000 @NM00004 EQU CVTFIX+248 02182000 @NM00003 EQU CVTFIX 02183000 CVTRV482 EQU CVTXTNT2+128 02184000 CVTRV481 EQU CVTXTNT2+124 02185000 CVTRV480 EQU CVTXTNT2+120 02186000 CVTRV479 EQU CVTXTNT2+118 02187000 CVTRV478 EQU CVTXTNT2+117 02188000 CVTRV477 EQU CVTXTNT2+116 02189000 CVTRV476 EQU CVTXTNT2+115 02190000 CVTRV475 EQU CVTXTNT2+114 02191000 CVTRV474 EQU CVTRV466 02192000 CVTRV473 EQU CVTRV466 02193000 CVTRV472 EQU CVTRV466 02194000 CVTRV471 EQU CVTRV466 02195000 CVTRV470 EQU CVTRV466 02196000 CVTRV469 EQU CVTRV466 02197000 CVTRV468 EQU CVTRV466 02198000 CVTRV467 EQU CVTRV466 02199000 CVTRV465 EQU CVTRV457 02200000 CVTRV464 EQU CVTRV457 02201000 CVTRV463 EQU CVTRV457 02202000 CVTRV462 EQU CVTRV457 02203000 CVTRV461 EQU CVTRV457 02204000 CVTRV460 EQU CVTRV457 02205000 CVTRV459 EQU CVTRV457 02206000 CVTRV458 EQU CVTRV457 02207000 CVTRV456 EQU CVTXTNT2+108 02208000 CVTRV455 EQU CVTXTNT2+104 02209000 CVTRV454 EQU CVTXTNT2+100 02210000 CVTRV453 EQU CVTXTNT2+96 02211000 CVTRV452 EQU CVTXTNT2+94 02212000 CVTRV451 EQU CVTXTNT2+92 02213000 CVTRV450 EQU CVTXTNT2+90 02214000 CVTRV449 EQU CVTXTNT2+88 02215000 CVTRV448 EQU CVTXTNT2+87 02216000 CVTRV447 EQU CVTXTNT2+86 02217000 CVTRV446 EQU CVTRV438 02218000 CVTRV445 EQU CVTRV438 02219000 CVTRV444 EQU CVTRV438 02220000 CVTRV443 EQU CVTRV438 02221000 CVTRV442 EQU CVTRV438 02222000 CVTRV441 EQU CVTRV438 02223000 CVTRV440 EQU CVTRV438 02224000 CVTRV439 EQU CVTRV438 02225000 CVTRV437 EQU CVTRV429 02226000 CVTRV436 EQU CVTRV429 02227000 CVTRV435 EQU CVTRV429 02228000 CVTRV434 EQU CVTRV429 02229000 CVTRV433 EQU CVTRV429 02230000 CVTRV432 EQU CVTRV429 02231000 CVTRV431 EQU CVTRV429 02232000 CVTRV430 EQU CVTRV429 02233000 CVTRV428 EQU CVTXTNT2+80 02234000 CVTRV427 EQU CVTXTNT2+76 02235000 CVTRV426 EQU CVTXTNT2+72 02236000 CVTRV425 EQU CVTXTNT2+68 02237000 CVTATACT EQU CVTATCVT 02238000 CVTRV423 EQU CVTXTNT2+62 02239000 CVTRV422 EQU CVTXTNT2+60 02240000 CVTRV421 EQU CVTXTNT2+58 02241000 CVTRV420 EQU CVTXTNT2+56 02242000 CVTRV419 EQU CVTXTNT2+55 02243000 CVTRV418 EQU CVTXTNT2+54 02244000 CVTRV417 EQU CVTRV409 02245000 CVTRV416 EQU CVTRV409 02246000 CVTRV415 EQU CVTRV409 02247000 CVTRV414 EQU CVTRV409 02248000 CVTRV413 EQU CVTRV409 02249000 CVTRV412 EQU CVTRV409 02250000 CVTRV411 EQU CVTRV409 02251000 CVTRV410 EQU CVTRV409 02252000 CVTRV408 EQU CVTRV400 02253000 CVTRV407 EQU CVTRV400 02254000 CVTRV406 EQU CVTRV400 02255000 CVTRV405 EQU CVTRV400 02256000 CVTRV404 EQU CVTRV400 02257000 CVTRV403 EQU CVTRV400 02258000 CVTRV402 EQU CVTRV400 02259000 CVTRV401 EQU CVTRV400 02260000 CVTICB EQU CVTXTNT2+48 02261000 CVTSKTA EQU CVTXTNT2+44 02262000 CVTCCVT EQU CVTXTNT2+40 02263000 CVTRSV98 EQU CVTXTNT2+36 02264000 CVTRSV97 EQU CVTXTNT2+34 02265000 CVTRSV96 EQU CVTXTNT2+32 02266000 CVTOLTEP EQU CVTXTNT2+28 02267000 CVTQIDA EQU CVTQID+1 02268000 CVTRSV95 EQU CVTQID 02269000 CVTRSV94 EQU CVTXTNT2+20 02270000 CVTRSV93 EQU CVTXTNT2+16 02271000 CVTRSV92 EQU CVTXTNT2+12 02272000 CVTDEBVR EQU CVTXTNT2+8 02273000 CVTRSV91 EQU CVTXTNT2+6 02274000 CVTRSV9H EQU CVTFLGBT 02275000 CVTRSV9G EQU CVTFLGBT 02276000 CVTRSV9F EQU CVTFLGBT 02277000 CVTRSV9E EQU CVTFLGBT 02278000 CVTRSV9D EQU CVTFLGBT 02279000 CVTRSV9C EQU CVTFLGBT 02280000 CVTVME EQU CVTFLGBT 02281000 CVTNPE EQU CVTFLGBT 02282000 CVTNUCLS EQU CVTXTNT2+4 02283000 CVTDSSVA EQU CVTDSSV+1 02284000 CVTRSV89 EQU CVTDSSV 02285000 CVTRSV88 EQU CVTXTNT1+8 02286000 CVTRSV87 EQU CVTXTNT1+4 02287000 CVTFACHN EQU CVTXTNT1 02288000 CVTRV488 EQU CVTMAP+412 02289000 CVTRV487 EQU CVTMAP+408 02290000 CVTRV486 EQU CVTMAP+404 02291000 CVTRV485 EQU CVTMAP+400 02292000 CVTACTAP EQU CVTMAP+396 02293000 CVTAUTH EQU CVTMAP+392 02294000 CVTATMCA EQU CVTATMCT+1 02295000 CVTATMST EQU CVTATMCT 02296000 CVTRSV61 EQU CVTMAP+384 02297000 CVTVOLT1 EQU CVTVOLM1+1 02298000 CVTVOLI1 EQU CVTVOLF1 02299000 CVTSTOA EQU CVTMAP+376 02300000 CVTRSV58 EQU CVTMAP+374 02301000 CVTRSV57 EQU CVTMAP+372 02302000 CVTDDCE EQU CVTMAP+368 02303000 CVTPNWFR EQU CVTMAP+364 02304000 CVTSMF EQU CVTMAP+360 02305000 CVTSULK EQU CVTMAP+358 02306000 CVTSLKO EQU CVTSYSK 02307000 CVTSLKP EQU CVTSYSK 02308000 CVTSLKQ EQU CVTSYSK 02309000 CVTSLKR EQU CVTSYSK 02310000 CVTRSV56 EQU CVTSYSK 02311000 CVTRSV55 EQU CVTSYSK 02312000 CVTRSV54 EQU CVTSYSK 02313000 CVTRSV53 EQU CVTSYSK 02314000 CVTRSV52 EQU CVTA1F1 02315000 CVTRSV51 EQU CVTA1F1 02316000 CVTRSV50 EQU CVTA1F1 02317000 CVTRSV49 EQU CVTA1F1 02318000 CVTRSV48 EQU CVTA1F1 02319000 CVTRSV47 EQU CVTA1F1 02320000 CVTSRSW EQU CVTA1F1 02321000 CVTPFSW EQU CVTA1F1 02322000 CVTPCVT EQU CVTMAP+352 02323000 CVTRSV46 EQU CVTMAP+344 02324000 CVTRSV45 EQU CVTMAP+340 02325000 CVTRSV44 EQU CVTMAP+338 02326000 CVTRSV43 EQU CVTMAP+336 02327000 CVTHJESA EQU CVTHJES+1 02328000 CVTRSV42 EQU CVTHJES 02329000 CVTEXT2A EQU CVTEXT2+1 02330000 CVTRSV41 EQU CVTEXT2 02331000 CVTAPFA EQU CVTAPF+1 02332000 CVTRSV40 EQU CVTAPF 02333000 CVTRV518 EQU CVTINTLA 02334000 CVTRV517 EQU CVTERPV 02335000 CVTEORM EQU CVTMAP+312 02336000 CVTMCHPR EQU CVTMAP+308 02337000 CVTTZ EQU CVTMAP+304 02338000 CVTJEPS EQU CVTMAP+300 02339000 CVTJESCT EQU CVTMAP+296 02340000 CVTMODE EQU CVTMAP+292 02341000 CVTPTRV EQU CVTMAP+288 02342000 CVTREAL EQU CVTMAP+284 02343000 CVTRSV39 EQU CVTMAP+280 02344000 CVTRSV38 EQU CVTMAP+276 02345000 CVTDMSRA EQU CVTDMSR+1 02346000 CVTRV634 EQU CVTDMSRF 02347000 CVTRV633 EQU CVTDMSRF 02348000 CVTRV632 EQU CVTDMSRF 02349000 CVTRV631 EQU CVTDMSRF 02350000 CVTRV630 EQU CVTDMSRF 02351000 CVTRV629 EQU CVTDMSRF 02352000 CVTUDUMP EQU CVTDMSRF 02353000 CVTSDUMP EQU CVTDMSRF 02354000 CVTQMSGA EQU CVTQMSG+1 02355000 CVTRSV36 EQU CVTQMSG 02356000 CVTAMFF EQU CVTMAP+264 02357000 CVTPURGA EQU CVTPURG+1 02358000 CVTRSV35 EQU CVTPURG 02359000 CVTCBSP EQU CVTMAP+256 02360000 CVTATERA EQU CVTATER+1 02361000 CVTSYST EQU CVTATER 02362000 CVTVOLT2 EQU CVTTAT 02363000 CVTVOLI2 EQU CVTVOLF2 02364000 CVTAQAVB EQU CVTAQAVT+1 02365000 CVTRSV34 EQU CVTTCMFG 02366000 CVTRSV33 EQU CVTTCMFG 02367000 CVTRSV32 EQU CVTTCMFG 02368000 CVTRSV31 EQU CVTTCMFG 02369000 CVTRSV30 EQU CVTTCMFG 02370000 CVTRSV29 EQU CVTTCMFG 02371000 CVTLDEV EQU CVTTCMFG 02372000 CVTTCRDY EQU CVTTCMFG 02373000 CVTGTFA EQU CVTGTF+1 02374000 CVTRSV27 EQU CVTGTFST 02375000 CVTRNIO EQU CVTGTFST 02376000 CVTUSR EQU CVTGTFST 02377000 CVTRV318 EQU CVTFORM 02378000 CVTRV317 EQU CVTTMODE 02379000 CVTRV316 EQU CVTSTATE 02380000 CVTRV315 EQU CVTGTFS 02381000 CVTGTFAV EQU CVTGTFS 02382000 CVT0SCR1 EQU CVTMAP+232 02383000 CVTRV515 EQU CVTMAP+228 02384000 CVTRMS EQU CVTMAP+224 02385000 CVTPATCH EQU CVTMAP+220 02386000 CVTTSCE EQU CVTMAP+216 02387000 CVTLNKSC EQU CVTMAP+214 02388000 CVTQABST EQU CVTMAP+212 02389000 CVTMDLDS EQU CVTMAP+208 02390000 CVTUSER EQU CVTMAP+204 02391000 CVTABEND EQU CVTMAP+200 02392000 CVTSMCA EQU CVTMAP+196 02393000 CVTRSV18 EQU CVTMAP+192 02394000 CVTQLPAQ EQU CVTMAP+188 02395000 CVTQCDSR EQU CVTMAP+184 02396000 CVTRSV17 EQU CVTOPTB 02397000 CVTRSV16 EQU CVTOPTB 02398000 CVTFP EQU CVTOPTB 02399000 CVTAPTHR EQU CVTOPTB 02400000 CVTNLOG EQU CVTOPTB 02401000 CVTTOD EQU CVTOPTB 02402000 CVTCTIMS EQU CVTOPTB 02403000 CVTPROT EQU CVTOPTB 02404000 CVTXPFP EQU CVTOPTA 02405000 CVTASCII EQU CVTOPTA 02406000 CVTRSV13 EQU CVTOPTA 02407000 CVTRSV12 EQU CVTOPTA 02408000 CVTNIP EQU CVTOPTA 02409000 CVTDDR EQU CVTOPTA 02410000 CVTAPR EQU CVTOPTA 02411000 CVTCCH EQU CVTOPTA 02412000 CVTSNCTR EQU CVTMAP+180 02413000 CVTQMWR EQU CVTMAP+176 02414000 CVTQOCR EQU CVTMAP+172 02415000 CVT1EF00 EQU CVTMAP+168 02416000 CVTMZ00 EQU CVTMAP+164 02417000 CVTSV76Q EQU CVTSV76C 02418000 CVTRSV11 EQU CVTMAP+156 02419000 CVTMSER EQU CVTMAP+148 02420000 CVTRV516 EQU CVTIERLC 02421000 CVTILCH EQU CVTMAP+140 02422000 CVT0DS EQU CVTMAP+136 02423000 CVTFBOSV EQU CVTMAP+132 02424000 CVTNUCB EQU CVTMAP+128 02425000 CVTIXAVL EQU CVTMAP+124 02426000 CVTSV76M EQU CVTIOQET 02427000 CVTDCBA EQU CVTMAP+117 02428000 CVTMVS2 EQU CVTDCB 02429000 CVT6DAT EQU CVTDCB 02430000 CVT4MPS EQU CVTDCB 02431000 CVTRSV09 EQU CVTDCB 02432000 CVT4MS1 EQU CVTDCB 02433000 CVT2SPS EQU CVTDCB 02434000 CVT1SSS EQU CVTDCB 02435000 CVTRSV08 EQU CVTDCB 02436000 CVTSTB EQU CVTMAP+112 02437000 CVTCUCB EQU CVTMAP+100 02438000 CVTSJQ EQU CVTMAP+96 02439000 CVTPBLDL EQU CVTMAP+92 02440000 CVTTPC EQU CVTMAP+88 02441000 CVTSVDCB EQU CVTMAP+84 02442000 CVTBRET EQU CVTMAP+82 02443000 CVTEXIT EQU CVTMAP+80 02444000 CVT0FN00 EQU CVTMAP+76 02445000 CVTDARA EQU CVTDAR+1 02446000 CVTRSV07 EQU CVTFLGS1 02447000 CVTRSV06 EQU CVTFLGS1 02448000 CVTRSV05 EQU CVTFLGS1 02449000 CVTRSV04 EQU CVTFLGS1 02450000 CVTRSV03 EQU CVTFLGS1 02451000 CVTRSV02 EQU CVTFLGS1 02452000 CVTRSV01 EQU CVTFLGS1 02453000 CVTDMPLK EQU CVTFLGS1 02454000 CVTXITP EQU CVTMAP+68 02455000 CVTZDTAB EQU CVTMAP+64 02456000 CVTMSLT EQU CVTMAP+60 02457000 CVTDATE EQU CVTMAP+56 02458000 CVTBTERM EQU CVTMAP+52 02459000 CVTSYSAD EQU CVTMAP+48 02460000 CVTXTLER EQU CVTMAP+44 02461000 CVTILK2 EQU CVTMAP+40 02462000 CVTILK1 EQU CVTMAP+36 02463000 CVTPRLTV EQU CVTMAP+32 02464000 CVTPCNVT EQU CVTMAP+28 02465000 CVT0VL00 EQU CVTMAP+24 02466000 CVTXAPG EQU CVTMAP+20 02467000 CVTBUF EQU CVTMAP+16 02468000 CVTJOB EQU CVTMAP+12 02469000 CVTLINK EQU CVTMAP+8 02470000 CVT0EF00 EQU CVTMAP+4 02471000 CVTTCBP EQU CVTMAP 02472000 CVT EQU CVTMAP 02473000 OUXBTSW EQU OUXB+140 02474000 OUXBFIXC EQU OUXB+138 02475000 OUXBNVC EQU OUXB+136 02476000 OUXBUIC EQU OUXB+134 02477000 OUXBVSC EQU OUXB+132 02478000 OUXBILS EQU OUXB+128 02479000 OUXBRSV1 EQU OUXB+126 02480000 OUXBWCT EQU OUXB+124 02481000 OUXBPRS EQU OUXB+120 02482000 OUXBSTD EQU OUXB+116 02483000 OUXBITD EQU OUXB+112 02484000 OUXBMSS EQU OUXB+104 02485000 OUXBCPS EQU OUXB+96 02486000 OUXBAET EQU OUXB+92 02487000 OUXBTRR EQU OUXB+88 02488000 OUXBJBR EQU OUXB+84 02489000 OUXBTRT EQU OUXB+80 02490000 OUXBTRS EQU OUXB+76 02491000 OUXBJBT EQU OUXB+72 02492000 OUXBJBS EQU OUXB+68 02493000 OUXBTRC EQU OUXB+64 02494000 OUXBNQT EQU OUXB+60 02495000 OUXBIOSM EQU OUXB+56 02496000 OUXBSTC EQU OUXB+54 02497000 OUXBIOS EQU OUXB+52 02498000 OUXBSTCT EQU OUXB+48 02499000 OUXBCAPR EQU OUXB+44 02500000 OUXBCAPI EQU OUXB+40 02501000 OUXBVAMR EQU OUXB+36 02502000 OUXBVAMO EQU OUXB+32 02503000 OUXBVAMI EQU OUXB+28 02504000 OUXBPREC EQU OUXB+24 02505000 OUXBPOUT EQU OUXB+20 02506000 OUXBPIN EQU OUXB+16 02507000 OUXBRSW EQU OUXB+12 02508000 OUXBMET EQU OUXB+8 02509000 OUXBPET EQU OUXB+4 02510000 OUXBNAME EQU OUXB 02511000 OUCBNTSP EQU OUCB+134 02512000 OUCBTIO EQU OUCB+128 02513000 OUCBTCP EQU OUCB+124 02514000 OUCBPST EQU OUCB+120 02515000 OUCBPS2 EQU OUCBPSS+4 02516000 OUCBPS1 EQU OUCBPSS 02517000 OUCBIOSM EQU OUCB+108 02518000 OUCBTMP EQU OUCB+104 02519000 OUCBR03 EQU OUCB+102 02520000 OUCBIOR EQU OUCB+100 02521000 OUCBCRV EQU OUCB+98 02522000 OUCBIRV EQU OUCB+96 02523000 OUCBWMR EQU OUCB+92 02524000 OUCBCMRV EQU OUCB+88 02525000 OUCBCF2 EQU OUCBCFL 02526000 OUCBRSM EQU OUCBCFL 02527000 OUCBRDY EQU OUCBCFL 02528000 OUCBACN EQU OUCBCSW 02529000 OUCBACT EQU OUCB+80 02530000 OUCBWSS EQU OUCB+78 02531000 OUCBPSO EQU OUCB+76 02532000 OUCBTMO EQU OUCB+72 02533000 OUCBTMS EQU OUCB+68 02534000 OUCBMSO EQU OUCB+64 02535000 OUCBIOC EQU OUCB+60 02536000 OUCBCPU EQU OUCB+56 02537000 OUCBWMS EQU OUCB+52 02538000 OUCBTMW EQU OUCB+48 02539000 OUCBIMCB EQU OUCB+44 02540000 OUCBASCB EQU OUCB+40 02541000 OUCBSWC EQU OUCB+38 02542000 OUCBDMN EQU OUCB+36 02543000 OUCBDMO EQU OUCB+34 02544000 OUCBWMG EQU OUCB+32 02545000 OUCBPGP EQU OUCB+31 02546000 OUCBR40 EQU OUCB+30 02547000 OUCBR30 EQU OUCB+29 02548000 OUCBSPG EQU OUCB+28 02549000 OUCBRDP EQU OUCB+27 02550000 OUCBNDP EQU OUCB+26 02551000 OUCBRPG EQU OUCB+25 02552000 OUCBNPG EQU OUCB+24 02553000 OUCBUF7 EQU OUCBUFL 02554000 OUCBUF6 EQU OUCBUFL 02555000 OUCBUF5 EQU OUCBUFL 02556000 OUCBTSWC EQU OUCBUFL 02557000 OUCBTSWP EQU OUCBUFL 02558000 OUCBRSWP EQU OUCBUFL 02559000 OUCBJSAS EQU OUCBUFL 02560000 OUCBJSFS EQU OUCBUFL 02561000 OUCBNQC EQU OUCB+22 02562000 OUCBQSC EQU OUCBEFL 02563000 OUCBQSS EQU OUCBEFL 02564000 OUCBNQF EQU OUCBEFL 02565000 OUCBCIM EQU OUCBEFL 02566000 OUCBOWT EQU OUCBEFL 02567000 OUCBTRM EQU OUCBEFL 02568000 OUCBINC EQU OUCBTFL 02569000 OUCBINP EQU OUCBTFL 02570000 OUCBMAR EQU OUCBTFL 02571000 OUCBPCH EQU OUCBTFL 02572000 OUCBRTR EQU OUCBTFL 02573000 OUCBNTR EQU OUCBTFL 02574000 OUCBSTR EQU OUCBTFL 02575000 OUCBATR EQU OUCBTFL 02576000 OUCBASW EQU OUCBAFL 02577000 OUCBNWT EQU OUCBAFL 02578000 OUCBR02 EQU OUCBAFL 02579000 OUCBJSR EQU OUCBAFL 02580000 OUCBCPL EQU OUCBAFL 02581000 OUCBRMA EQU OUCBAFL 02582000 OUCBAPG EQU OUCBAFL 02583000 OUCBAF0 EQU OUCBAFL 02584000 OUCBDTA EQU OUCBYFL 02585000 OUCBMNT EQU OUCBYFL 02586000 OUCBLOG EQU OUCBYFL 02587000 OUCBSTT EQU OUCBYFL 02588000 OUCBSCN EQU OUCBSFL 02589000 OUCBENQ EQU OUCBSFL 02590000 OUCBPVL EQU OUCBSFL 02591000 OUCBNSWI EQU OUCBSFL 02592000 OUCBINV EQU OUCBSFL 02593000 OUCBBIB EQU OUCBSFL 02594000 OUCBQF7 EQU OUCBQFL 02595000 OUCBQF6 EQU OUCBQFL 02596000 OUCBOUT EQU OUCBQFL 02597000 OUCBOFF EQU OUCBQFL 02598000 OUCBQF3 EQU OUCBQFL 02599000 OUCBTMA EQU OUCB+12 02600000 OUCBBCK EQU OUCB+8 02601000 OUCBFWD EQU OUCB+4 02602000 OUCBNAME EQU OUCB 02603000 ASCBEND EQU ASCB+208 02604000 ASCBSRBT EQU ASCB+200 02605000 ASCBSWTL EQU ASCB+196 02606000 ASCBRS14 EQU ASCB+195 02607000 ASCBSMCT EQU ASCB+194 02608000 ASCBRS12 EQU ASCB+192 02609000 ASCBPCTT EQU ASCB+188 02610000 ASCBVGTT EQU ASCB+184 02611000 ASCBRV43 EQU ASCBSRQ4 02612000 ASCBRV42 EQU ASCBSRQ4 02613000 ASCBRV41 EQU ASCBSRQ4 02614000 ASCBRV40 EQU ASCBSRQ4 02615000 ASCBRV39 EQU ASCBSRQ4 02616000 ASCBRV38 EQU ASCBSRQ4 02617000 ASCBRV37 EQU ASCBSRQ4 02618000 ASCBRV36 EQU ASCBSRQ4 02619000 ASCBRV35 EQU ASCBSRQ3 02620000 ASCBRV34 EQU ASCBSRQ3 02621000 ASCBRV33 EQU ASCBSRQ3 02622000 ASCBRV32 EQU ASCBSRQ3 02623000 ASCBRV31 EQU ASCBSRQ3 02624000 ASCBRV30 EQU ASCBSRQ3 02625000 ASCBRV29 EQU ASCBSRQ3 02626000 ASCBRV28 EQU ASCBSRQ3 02627000 ASCBRV27 EQU ASCBSRQ2 02628000 ASCBRV26 EQU ASCBSRQ2 02629000 ASCBRV25 EQU ASCBSRQ2 02630000 ASCBRV24 EQU ASCBSRQ2 02631000 ASCBRV23 EQU ASCBSRQ2 02632000 ASCBRV22 EQU ASCBSRQ2 02633000 ASCBRV21 EQU ASCBSRQ2 02634000 ASCBRV20 EQU ASCBSRQ2 02635000 ASCBRV19 EQU ASCBSRQ1 02636000 ASCBRV18 EQU ASCBSRQ1 02637000 ASCBRV17 EQU ASCBSRQ1 02638000 ASCBRV16 EQU ASCBSRQ1 02639000 ASCBRV15 EQU ASCBSRQ1 02640000 ASCBRV14 EQU ASCBSRQ1 02641000 ASCBRV13 EQU ASCBSRQ1 02642000 ASCBSTA EQU ASCBSRQ1 02643000 ASCBJBNS EQU ASCB+176 02644000 ASCBJBNI EQU ASCB+172 02645000 ASCBMCC EQU ASCB+168 02646000 ASCBRTWA EQU ASCB+164 02647000 ASCBIQEA EQU ASCB+160 02648000 ASCBXMPQ EQU ASCB+156 02649000 ASCBRS01 EQU ASCB+154 02650000 ASCBFMCT EQU ASCB+152 02651000 ASCBOUXB EQU ASCB+148 02652000 ASCBMECB EQU ASCB+140 02653000 ASCBQECB EQU ASCB+136 02654000 ASCBLSQH EQU ASCBLKGP+4 02655000 ASCBLOCK EQU ASCBLKGP 02656000 ASCBTCBS EQU ASCB+124 02657000 ASCBNVSC EQU ASCB+122 02658000 ASCBVSC EQU ASCB+120 02659000 ASCBSRBS EQU ASCB+118 02660000 ASCBSSRB EQU ASCB+116 02661000 ASCBRV06 EQU ASCBFLG2 02662000 ASCBRV05 EQU ASCBFLG2 02663000 ASCBRV04 EQU ASCBFLG2 02664000 ASCBSNQS EQU ASCBFLG2 02665000 ASCBS2S EQU ASCBFLG2 02666000 ASCBCEXT EQU ASCBFLG2 02667000 ASCBPXMT EQU ASCBFLG2 02668000 ASCBXMPT EQU ASCBFLG2 02669000 ASCBRF07 EQU ASCBDSP1 02670000 ASCBRF06 EQU ASCBDSP1 02671000 ASCBRF05 EQU ASCBDSP1 02672000 ASCBRF04 EQU ASCBDSP1 02673000 ASCBRF03 EQU ASCBDSP1 02674000 ASCBRF02 EQU ASCBDSP1 02675000 ASCBFAIL EQU ASCBDSP1 02676000 ASCBNOQ EQU ASCBDSP1 02677000 ASCBSWCT EQU ASCB+112 02678000 ASCBASXB EQU ASCB+108 02679000 ASCBTMCH EQU ASCB+104 02680000 ASCBNSWP EQU ASCBFLG1 02681000 ASCBTYP1 EQU ASCBFLG1 02682000 ASCBSTND EQU ASCBFLG1 02683000 ASCBABNT EQU ASCBFLG1 02684000 ASCBTERM EQU ASCBFLG1 02685000 ASCBS3S EQU ASCBFLG1 02686000 ASCBCMSH EQU ASCBFLG1 02687000 ASCBTOFF EQU ASCBFLG1 02688000 ASCBRF01 EQU ASCBRCTF 02689000 ASCBTMLW EQU ASCBRCTF 02690000 ASCBOUT EQU ASCBRCTF 02691000 ASCBWAIT EQU ASCBRCTF 02692000 ASCBRV08 EQU ASCBRCTF 02693000 ASCBFQU EQU ASCBRCTF 02694000 ASCBFRS EQU ASCBRCTF 02695000 ASCBTMNO EQU ASCBRCTF 02696000 ASCBAFFN EQU ASCBFW1 02697000 ASCBDUMP EQU ASCB+96 02698000 ASCBRV44 EQU ASCB+92 02699000 ASCBUBET EQU ASCB+88 02700000 ASCBECB EQU ASCB+84 02701000 ASCBJSTL EQU ASCB+80 02702000 ASCBEWST EQU ASCB+72 02703000 ASCBEJST EQU ASCB+64 02704000 ASCBTSB EQU ASCB+60 02705000 ASCBCSCB EQU ASCB+56 02706000 ASCBRSMA EQU ASCBRSM+1 02707000 ASCBRV54 EQU ASCBRSMF 02708000 ASCBRV53 EQU ASCBRSMF 02709000 ASCBRV52 EQU ASCBRSMF 02710000 ASCBRV51 EQU ASCBRSMF 02711000 ASCBVEQR EQU ASCBRSMF 02712000 ASCBN2LP EQU ASCBRSMF 02713000 ASCB1LPU EQU ASCBRSMF 02714000 ASCB2LPU EQU ASCBRSMF 02715000 ASCBLDA EQU ASCB+48 02716000 ASCBSTOR EQU ASCB+44 02717000 ASCBDP EQU ASCB+43 02718000 ASCBRV07 EQU ASCB+42 02719000 ASCBIOSM EQU ASCB+40 02720000 ASCBSEQN EQU ASCB+38 02721000 ASCBCPUS EQU ASCB+32 02722000 ASCBSPL EQU ASCB+28 02723000 ASCBIOSP EQU ASCB+24 02724000 ASCBSYNC EQU ASCBSUPC+4 02725000 ASCBSVRB EQU ASCBSUPC 02726000 ASCBCMSF EQU ASCB+12 02727000 ASCBBWDP EQU ASCB+8 02728000 ASCBFWDP EQU ASCB+4 02729000 RRPAEND EQU RRPA+24 02730000 RRPAEPA EQU RRPA+20 02731000 RRPARTN EQU RRPAINS 02732000 RRPATOD EQU RRPA+12 02733000 RRPARTC EQU RRPA+11 02734000 RRPAKEY EQU RRPA+10 02735000 RRPARCI EQU RRPAFLG+1 02736000 RRPARFI EQU RRPAFLG+1 02737000 RRPARTI EQU RRPAFLG+1 02738000 RRPACTL EQU RRPAFLG+1 02739000 RRPAF11 EQU RRPAFLG+1 02740000 RRPAIPS EQU RRPAFLG+1 02741000 RRPAWAR EQU RRPAFLG+1 02742000 RRPAF07 EQU RRPAFLG 02743000 RRPAOPT EQU RRPAFLG 02744000 RRPAF05 EQU RRPAFLG 02745000 RRPAF04 EQU RRPAFLG 02746000 RRPADSP EQU RRPAFLG 02747000 RRPASVC EQU RRPAFLG 02748000 RRPAENB EQU RRPAFLG 02749000 RRPADSB EQU RRPAFLG 02750000 RRPAVLU EQU RRPAINP 02751000 RRPACOD EQU RRPAINC+3 02752000 @NM00002 EQU RRPAFLG0 02753000 RRPANSWI EQU RRPAFLG0 02754000 RRPAASD EQU RRPAINC 02755000 EPSTEND EQU EPST+80 02756000 EPSTCSI EQU RMEPBCSI 02757000 EPSTCSO EQU RMEPBCSO 02758000 EPSTCL3 EQU RMEPBCL3 02759000 EPSTIL3 EQU RMEPBIL3 02760000 EPSTWM3 EQU RMEPBWM3 02761000 EPDTEND EQU EPDT+96 02762000 RMEPBRPS EQU EPDT+80 02763000 RMEPBHIT EQU EPDT+64 02764000 RMEPBUXB EQU EPDT+48 02765000 RMEPBIL4 EQU EPDT+32 02766000 RMEPBDEL EQU EPDT+16 02767000 RMEPBIPS EQU EPDT 02768000 EPATEND EQU EPAT+400 02769000 RMEPBPR1 EQU EPAT+368 02770000 RMEPBEQ1 EQU EPAT+336 02771000 RMEPBAP1 EQU EPAT+304 02772000 RMEPBCL1 EQU EPAT+272 02773000 RMEPBWM2 EQU EPAT+240 02774000 RMEPBIL1 EQU EPAT+208 02775000 RMEPBASM EQU EPAT+176 02776000 RMEPBMS2 EQU EPAT+160 02777000 RMEPBPR5 EQU EPAT+144 02778000 RMEPBMS6 EQU EPAT+112 02779000 RMEPBSQA EQU EPAT+96 02780000 RMEPBRM2 EQU EPAT+64 02781000 RMEPBRM1 EQU EPAT+32 02782000 RMEPBCAP EQU EPAT 02783000 RMSBEND EQU RMSB+120 02784000 RMSBRA9 EQU RMSB+116 02785000 RMSBIL0 EQU RMSB+112 02786000 RMSBCL0 EQU RMSB+108 02787000 RMSBRA6 EQU RMSB+104 02788000 RMSBNOP EQU RMSB+100 02789000 RMSBSET EQU RMSB+96 02790000 RMSBWR6 EQU RMSB+92 02791000 RMSBWR4 EQU RMSB+88 02792000 RMSBTRC EQU RMSB+84 02793000 RMSBWMY EQU RMSB+80 02794000 RMSBWMR EQU RMSB+76 02795000 RMSBWMQ EQU RMSB+72 02796000 RMSBWMO EQU RMSB+68 02797000 RMSBWMN EQU RMSB+64 02798000 RMSBWMK EQU RMSB+60 02799000 RMSBWM4 EQU RMSB+56 02800000 RMSBWM1 EQU RMSB+52 02801000 RMSBWM5 EQU RMSB+48 02802000 RMSBCRY EQU RMSB+44 02803000 RMSBCRN EQU RMSB+40 02804000 RMSBCRL EQU RMSB+36 02805000 RMSBI10 EQU RMSB+32 02806000 RMSBI09 EQU RMSB+28 02807000 RMSBR24 EQU RMSB+24 02808000 RMSBI07 EQU RMSB+20 02809000 RMSBI06 EQU RMSB+16 02810000 RMSBI05 EQU RMSB+12 02811000 RMSBI04 EQU RMSB+8 02812000 RMSBI03 EQU RMSB+4 02813000 RMSBI02 EQU RMSB 02814000 RMEXEND EQU RMEX+64 02815000 RMEXSRE EQU RMEX+60 02816000 RMEXRR2 EQU RMEX+52 02817000 RMEXRR1 EQU RMEX+48 02818000 RMEXI48 EQU RMEX+44 02819000 RMEXCET EQU RMEX+40 02820000 RMEXCXX EQU RMEX+36 02821000 RMEXI01 EQU RMEX+32 02822000 RMEXCTL EQU RMEPBCTL 02823000 RMEXEVT EQU RMEPBEVT 02824000 RMCAEND EQU RMCA+168 02825000 RMCAR90 EQU RMCA+164 02826000 RMCAUSSC EQU RMCASRC+36 02827000 RMCAEXSC EQU RMCASRC+32 02828000 RMCANQSC EQU RMCASRC+28 02829000 RMCARQSC EQU RMCASRC+24 02830000 RMCADWSC EQU RMCASRC+20 02831000 RMCARSSC EQU RMCASRC+16 02832000 RMCAXSSC EQU RMCASRC+12 02833000 RMCALWSC EQU RMCASRC+8 02834000 RMCATISC EQU RMCASRC+4 02835000 RMCATOSC EQU RMCASRC 02836000 RMCACPW1 EQU RMCA+120 02837000 RMCACIUS EQU RMCA+118 02838000 RMCAR14 EQU RMCA+116 02839000 RMCAR13 EQU RMCA+112 02840000 RMCAWKA EQU RMCA+80 02841000 RMCAMAS EQU RMCA+76 02842000 RMCAR20 EQU RMCA+74 02843000 RMCABCPG EQU RMCA+73 02844000 RMCALGPG EQU RMCA+72 02845000 RMCAISV EQU RMCA+70 02846000 RMCAR11 EQU RMCA+68 02847000 RMCAINV EQU RMCA+64 02848000 RMCAR10 EQU RMCA+60 02849000 RMCARSV9 EQU RMCA+56 02850000 RMCACHU EQU RMCA+52 02851000 RMCACHP EQU RMCA+48 02852000 RMCARSV8 EQU RMCA+44 02853000 RMCARSV7 EQU RMCA+40 02854000 RMCARSVF EQU RMCAFLGS 02855000 RMCASAAF EQU RMCAFLGS 02856000 RMCARSV5 EQU RMCA+32 02857000 RMCARSV4 EQU RMCA+28 02858000 RMCARSV3 EQU RMCA+24 02859000 RMCATOI EQU RMCA+20 02860000 RMCATRS EQU RMCA+16 02861000 RMCATQS EQU RMCA+12 02862000 RMCARSV2 EQU RMCA+10 02863000 RMCARSV1 EQU RMCA+8 02864000 RMCAINUS EQU RMCA+6 02865000 RMCAR04 EQU RMCA+4 02866000 RMCANAME EQU RMCA 02867000 RMPTEND EQU RMPT+72 02868000 RMPTOPE EQU RMPT+66 02869000 RMPTOPI EQU RMPT+63 02870000 RMPTOPC EQU RMPT+60 02871000 RMPTIOET EQU RMPT+56 02872000 RMPTCPET EQU RMPT+52 02873000 RMPTWMET EQU RMPT+48 02874000 RMPTSAET EQU RMPT+44 02875000 RMPTXCHT EQU RMPT+40 02876000 RMPTRSV3 EQU RMPT+38 02877000 RMPTRSV2 EQU RMPT+36 02878000 RMPTRSV1 EQU RMPT+32 02879000 RMPTTOL EQU RMPT+28 02880000 RMPTTOM EQU RMPT+24 02881000 RMPTTCS EQU RMPT+20 02882000 RMPTIMN EQU RMPT+16 02883000 RMPTERV EQU RMPT+12 02884000 RMPTIOC EQU RMPT+8 02885000 RMPTCPU EQU RMPT+4 02886000 RMPTNAME EQU RMPT 02887000 RCTEND EQU RCT+88 02888000 RCVRSVF3 EQU RCT+84 02889000 RCVRSVF2 EQU RCT+80 02890000 RCVTAPAD EQU RCT+76 02891000 RCVRSVF1 EQU RCT+74 02892000 RCVTOTDF EQU RCT+72 02893000 RCVBPTTM EQU RCT+68 02894000 RCVBPTCT EQU RCT+64 02895000 RCVASMQ EQU RCT+60 02896000 RCVAVQP EQU RCT+56 02897000 RCVCPUC EQU RCT+52 02898000 RCVUICC EQU RCT+48 02899000 RCVPTR EQU RCT+46 02900000 RCVASMQA EQU RCT+44 02901000 RCVAVQC EQU RCT+42 02902000 RCVCPUA EQU RCT+40 02903000 RCVUICA EQU RCT+38 02904000 RCVCTMC EQU RCT+36 02905000 RCCRSVF3 EQU RCT+32 02906000 RCCRSVF2 EQU RCT+28 02907000 RCCRSVF1 EQU RCT+26 02908000 RCCLCHRR EQU RCT+24 02909000 RCCLCHUT EQU RCT+22 02910000 RCCTOTUT EQU RCT+20 02911000 RCCASMTH EQU RCT+18 02912000 RCCASMTL EQU RCT+16 02913000 RCCPTRTH EQU RCT+14 02914000 RCCPTRTL EQU RCT+12 02915000 RCCCPUTH EQU RCT+10 02916000 RCCCPUTL EQU RCT+8 02917000 RCCUICTH EQU RCT+6 02918000 RCCUICTL EQU RCT+4 02919000 RCTRCT EQU RCT 02920000 MCTEND EQU MCT+96 02921000 MCVRSVF3 EQU MCT+92 02922000 MCVRSVF2 EQU MCT+88 02923000 MCVRSVF1 EQU MCT+84 02924000 MCCINTMX EQU MCT+80 02925000 MCCPR1IN EQU MCT+76 02926000 MCCUICIN EQU MCT+72 02927000 MCCUICBD EQU MCT+68 02928000 MCTRSVB1 EQU MCT+67 02929000 MCTXRSVD EQU MCT+66 02930000 MCTFX2 EQU MCTOFLGS 02931000 MCTFX1 EQU MCTOFLGS 02932000 MCTSMS2 EQU MCTOFLGS 02933000 MCTSMS1 EQU MCTOFLGS 02934000 MCTAMS2 EQU MCTOFLGS 02935000 @NM00001 EQU MCTOFLGS 02936000 MCTASM2 EQU MCTOFLGS 02937000 MCTASM1 EQU MCTOFLGS 02938000 MCTSF04 EQU MCTSFLGS 02939000 MCTFAVQ EQU MCTSFLGS 02940000 MCTAVQ1 EQU MCTSFLGS 02941000 MCTSQA2 EQU MCTSFLGS 02942000 MCTSQA1 EQU MCTSFLGS 02943000 MCVAVQC EQU MCT+60 02944000 MCVFRCNT EQU MCT+58 02945000 MCVSTCRI EQU MCT+56 02946000 MCCEND EQU MCT+56 02947000 MCCASMT2 EQU MCT+54 02948000 MCCASMT1 EQU MCT+52 02949000 MCCRSVH1 EQU MCT+50 02950000 MCCPLUS EQU MCT+48 02951000 MCCMS403 EQU MCT+44 02952000 MCCMS402 EQU MCT+40 02953000 MCCMS401 EQU MCT+36 02954000 MCCMS400 EQU MCT+32 02955000 MCCMS203 EQU MCT+28 02956000 MCCMS202 EQU MCT+24 02957000 MCCMS201 EQU MCT+20 02958000 MCCMS200 EQU MCT+16 02959000 MCCMS102 EQU MCT+12 02960000 MCCMS101 EQU MCT+8 02961000 MCCMS100 EQU MCT+4 02962000 MCTMCT EQU MCT 02963000 ICTEND EQU ICT+88 02964000 ICTRSVB3 EQU ICT+87 02965000 ICTRSVB2 EQU ICT+86 02966000 ICTRSVB1 EQU ICT+85 02967000 ICT003 EQU ICTFLAGS 02968000 ICTIOOT EQU ICTFLAGS 02969000 ICTIOL EQU ICTFLAGS 02970000 ICTDRSV4 EQU ICTFLAGS 02971000 ICVIRSV3 EQU ICT+80 02972000 ICVULCBT EQU ICT+76 02973000 ICVOLCBT EQU ICT+72 02974000 ICVLCBPT EQU ICT+68 02975000 ICVLUTBT EQU ICT+64 02976000 ICCEND EQU ICT+64 02977000 ICCRSV01 EQU ICT+62 02978000 ICCEDSUT EQU ICT+60 02979000 ICCSRSV2 EQU ICT+58 02980000 ICCSIGUP EQU ICT+56 02981000 ICCINDAT EQU ICT+52 02982000 ICCINLOT EQU ICT+48 02983000 ICCINHIT EQU ICT+44 02984000 ICCDAUTH EQU ICT+42 02985000 ICCLOUTH EQU ICT+40 02986000 ICCHIUTH EQU ICT+38 02987000 ICCDASF2 EQU ICT+36 02988000 ICCDASF1 EQU ICT+34 02989000 ICCMINRV EQU ICT+32 02990000 ICCMAXRV EQU ICT+30 02991000 ICCRVSCF EQU ICT+28 02992000 ICCMNIOR EQU ICT+26 02993000 ICCLCHN EQU ICT+24 02994000 ICCLCLST EQU ICT+20 02995000 ICCMNSWP EQU ICT+16 02996000 ICCMNUIN EQU ICT+12 02997000 ICCMXICT EQU ICT+8 02998000 ICCMRSV1 EQU ICT+4 02999000 ICTICT EQU ICT 03000000 CCVEND EQU CCT+128 03001000 CCTFLG2 EQU CCT+125 03002000 CCTCPUOT EQU CCTFLG1 03003000 CCTALL EQU CCTFLG1 03004000 CCVCPUCT EQU CCT+122 03005000 CCVENQCT EQU CCT+120 03006000 CCVLGFMC EQU CCT+118 03007000 CCVLGUTL EQU CCT+116 03008000 CCVR07 EQU CCT+114 03009000 CCVR06 EQU CCT+112 03010000 CCVUTILP EQU CCT+110 03011000 CCVR05 EQU CCT+108 03012000 CCVIMBBT EQU CCT+104 03013000 CCVEJST EQU CCT+100 03014000 CCVPGCPF EQU CCT+96 03015000 CCVRVSWF EQU CCT+92 03016000 CCVRBSTD EQU CCT+88 03017000 CCVR04 EQU CCT+84 03018000 CCVRBSWT EQU CCT+80 03019000 CCVR03 EQU CCT+76 03020000 CCCEND EQU CCT+76 03021000 CCCRSVH1 EQU CCT+74 03022000 CCCSCFC2 EQU CCT+72 03023000 CCCSCFC1 EQU CCT+70 03024000 CCCR02 EQU CCT+68 03025000 CCCSIGUR EQU CCT+66 03026000 CCCSIGDP EQU CCT+64 03027000 CCCSCFAC EQU CCT+62 03028000 CCCMINRV EQU CCT+60 03029000 CCCMAXRV EQU CCT+58 03030000 CCCLOSCF EQU CCT+56 03031000 CCCHISCF EQU CCT+54 03032000 CCCUTLOT EQU CCT+52 03033000 CCCUTHIT EQU CCT+50 03034000 CCCAPRHT EQU CCT+48 03035000 CCCAPRLT EQU CCT+46 03036000 CCCR01 EQU CCT+44 03037000 CCCAPGDP EQU CCT+42 03038000 CCCAPMDP EQU CCT+40 03039000 CCCAPLDP EQU CCT+38 03040000 CCCAPBDP EQU CCT+36 03041000 CCCAPROT EQU CCT+34 03042000 CCCAPDIV EQU CCT+32 03043000 CCCRSVF1 EQU CCT+28 03044000 CCCMNSIN EQU CCT+24 03045000 CCCMNUIN EQU CCT+20 03046000 CCCAPDEL EQU CCT+16 03047000 CCCAPMAX EQU CCT+12 03048000 CCCAPMIN EQU CCT+8 03049000 CCCAPMET EQU CCT+4 03050000 CCTCCT EQU CCT 03051000 RMCTEND EQU RMCT+192 03052000 RMCTR50 EQU RMCT+190 03053000 RMCTDMNC EQU RMCT+188 03054000 RMCTDMDE EQU RMCT+184 03055000 RMCTDMDT EQU RMCT+180 03056000 RMCTSRBT EQU RMCT+176 03057000 RMCTOUXB EQU RMCT+172 03058000 RMCTOUCB EQU RMCT+168 03059000 RMCTTOCI EQU RMCT+160 03060000 RMCTF09 EQU RMCTFLGS+1 03061000 RMCTMFS EQU RMCTFLGS+1 03062000 RMCTF07 EQU RMCTFLGS+1 03063000 RMCTF06 EQU RMCTFLGS 03064000 RMCTRSV2 EQU RMCTFLGS 03065000 RMCTSTW EQU RMCTFLGS 03066000 RMCTRSV1 EQU RMCTFLGS 03067000 RMCTINIT EQU RMCTFLGS 03068000 RMCTF03 EQU RMCTFLGS 03069000 RMCTCPS1 EQU RMCTFLGS 03070000 RMCTMFA EQU RMCTFLGS 03071000 RMCTRQSV EQU RMCT+144 03072000 RMCTALR EQU RMCT+140 03073000 RMCTALA EQU RMCT+136 03074000 RMCTTOD EQU RMCT+124 03075000 RMCTR10 EQU RMCT+116 03076000 RMCTINQE EQU RMCT+112 03077000 RMCTOTQE EQU RMCT+108 03078000 RMCTWTQE EQU RMCT+104 03079000 RMCTAQHD EQU RMCT+100 03080000 RMCTAQCT EQU RMCT+96 03081000 RMCTTMQE EQU RMCT+92 03082000 RMCTWAMT EQU RMCT+88 03083000 RMCTWAST EQU RMCT+84 03084000 RMCTEPPR EQU RMCT+80 03085000 RMCTFLTM EQU RMCT+76 03086000 RMCTEPET EQU RMCT+72 03087000 RMCTITT EQU RMCT+68 03088000 RMCTADJC EQU RMCT+64 03089000 RMCTEPBG EQU RMCT+60 03090000 RMCTEPAT EQU RMCT+56 03091000 RMCTEPDT EQU RMCT+52 03092000 RMCTEPPA EQU RMCT+48 03093000 RMCTRMSB EQU RMCT+44 03094000 RMCTRMEX EQU RMCT+40 03095000 RMCTRMPD EQU RMCT+36 03096000 RMCTRLCT EQU RMCT+28 03097000 RMCTWMST EQU RMCT+24 03098000 RMCTRMCA EQU RMCT+20 03099000 RMCTRMPT EQU RMCT+16 03100000 RMCTMCT EQU RMCT+12 03101000 RMCTICT EQU RMCT+8 03102000 RMCTCCT EQU RMCT+4 03103000 RMCTNAME EQU RMCT 03104000 @NM00028 EQU PSA+3668 03105000 PSASTAK EQU PSA+3072 03106000 @NM00027 EQU PSA+1048 03107000 PSAUSEND EQU PSA+1048 03108000 PSARV062 EQU PSA+1044 03109000 PSACDAL EQU PSA+1040 03110000 PSAWTCOD EQU PSA+1036 03111000 PSAATCVT EQU PSA+1032 03112000 PSAPCPSW EQU PSA+1024 03113000 PSAPIR2 EQU PSA+1020 03114000 PSARV059 EQU PSA+1018 03115000 PSASVC13 EQU PSA+1016 03116000 PSASFACC EQU PSA+1008 03117000 PSASTOP EQU PSA+992 03118000 PSASTART EQU PSA+976 03119000 PSARSPSW EQU PSA+968 03120000 PSASRPSW EQU PSA+960 03121000 PSARV045 EQU PSA+892 03122000 PSARV044 EQU PSA+888 03123000 PSARV043 EQU PSA+884 03124000 PSARV042 EQU PSA+880 03125000 PSARV041 EQU PSA+876 03126000 PSARV040 EQU PSA+872 03127000 PSARV025 EQU PSA+868 03128000 PSADSSED EQU PSA+868 03129000 PSADSSPR EQU PSA+864 03130000 PSADSSFW EQU PSA+860 03131000 PSADSS14 EQU PSA+856 03132000 PSADSSPP EQU PSA+848 03133000 PSADSSRP EQU PSA+840 03134000 PSADSS05 EQU PSADSSF4 03135000 PSADSS10 EQU PSADSSF4 03136000 PSADSSVE EQU PSADSSF4 03137000 PSADSSDE EQU PSADSSF4 03138000 PSADSSC0 EQU PSADSSF4 03139000 PSADSSIE EQU PSADSSF4 03140000 PSADSS12 EQU PSADSSF4 03141000 PSADSSRC EQU PSADSSF4 03142000 PSARV057 EQU PSADSSF3 03143000 PSARV056 EQU PSADSSF3 03144000 PSARV055 EQU PSADSSF3 03145000 PSADSSMC EQU PSADSSF3 03146000 PSADSSRW EQU PSADSSF3 03147000 PSADSSNM EQU PSADSSF3 03148000 PSADSSES EQU PSADSSF3 03149000 PSADSSGP EQU PSADSSF3 03150000 PSADSSF2 EQU PSADSSFL+1 03151000 PSADSSPI EQU PSADSSF1 03152000 PSADSSOI EQU PSADSSF1 03153000 PSADSSSP EQU PSADSSF1 03154000 PSADSSTP EQU PSADSSF1 03155000 PSADSSDW EQU PSADSSF1 03156000 PSADSSDD EQU PSADSSF1 03157000 PSADSSDM EQU PSADSSF1 03158000 PSADSSMV EQU PSADSSF1 03159000 PSADSSTS EQU PSA+816 03160000 PSADSSWK EQU PSA+812 03161000 PSADSSR3 EQU PSA+808 03162000 PSADSSR2 EQU PSA+804 03163000 PSADSSRS EQU PSA+800 03164000 PSASTOR EQU PSA+796 03165000 PSACPUSA EQU PSA+794 03166000 PSAVSTAP EQU PSA+792 03167000 PSAWKVAP EQU PSA+788 03168000 PSAWKRAP EQU PSA+784 03169000 PSAMCHIC EQU PSA+783 03170000 PSARV061 EQU PSA+782 03171000 PSASYMSK EQU PSA+781 03172000 PSAMCHFL EQU PSA+780 03173000 PSACR0 EQU PSA+776 03174000 PSAPSWSV EQU PSA+768 03175000 PSACLHS EQU PSAHLHI 03176000 PSALKR15 EQU PSALKSA+60 03177000 PSALKR14 EQU PSALKSA+56 03178000 PSALKR13 EQU PSALKSA+52 03179000 PSALKR12 EQU PSALKSA+48 03180000 PSALKR11 EQU PSALKSA+44 03181000 PSALKR10 EQU PSALKSA+40 03182000 PSALKR9 EQU PSALKSA+36 03183000 PSALKR8 EQU PSALKSA+32 03184000 PSALKR7 EQU PSALKSA+28 03185000 PSALKR6 EQU PSALKSA+24 03186000 PSALKR5 EQU PSALKSA+20 03187000 PSALKR4 EQU PSALKSA+16 03188000 PSALKR3 EQU PSALKSA+12 03189000 PSALKR2 EQU PSALKSA+8 03190000 PSALKR1 EQU PSALKSA+4 03191000 PSALKR0 EQU PSALKSA 03192000 PSARV023 EQU PSACLHT+52 03193000 PSALOCAL EQU PSACLHT+48 03194000 PSACMSL EQU PSACLHT+44 03195000 PSAOPTL EQU PSACLHT+40 03196000 PSATPACL EQU PSACLHT+36 03197000 PSATPDNL EQU PSACLHT+32 03198000 PSATPNCL EQU PSACLHT+28 03199000 PSAIOSLL EQU PSACLHT+24 03200000 PSAIOSUL EQU PSACLHT+20 03201000 PSAIOSCL EQU PSACLHT+16 03202000 PSAIOSSL EQU PSACLHT+12 03203000 PSASALCL EQU PSACLHT+8 03204000 PSAASML EQU PSACLHT+4 03205000 PSADISPL EQU PSACLHT 03206000 PSASRSA EQU PSA+636 03207000 PSARV050 EQU PSA+634 03208000 PSADSSGO EQU PSA+633 03209000 PSARECUR EQU PSA+632 03210000 PSAHLHIS EQU PSA+628 03211000 PSAIPCSA EQU PSA+624 03212000 @NM00026 EQU PSA+621 03213000 PSAIPCDM EQU PSA+620 03214000 PSAIPCD EQU PSA+616 03215000 @NM00025 EQU PSA+613 03216000 PSAIPCRM EQU PSA+612 03217000 PSAIPCR EQU PSA+608 03218000 PSAMCHEX EQU PSA+600 03219000 PSAMPSW EQU PSA+592 03220000 PSAEXPS2 EQU PSA+584 03221000 PSAEXPS1 EQU PSA+576 03222000 PSAPIREG EQU PSA+572 03223000 PSARSREG EQU PSA+568 03224000 PSAGPREG EQU PSA+556 03225000 PSARV022 EQU PSASUP4 03226000 PSARV021 EQU PSASUP4 03227000 PSARV020 EQU PSASUP4 03228000 PSARV019 EQU PSASUP4 03229000 PSARV018 EQU PSASUP4 03230000 PSARV017 EQU PSASUP4 03231000 PSARV016 EQU PSASUP4 03232000 PSARV015 EQU PSASUP4 03233000 PSARV014 EQU PSASUP3 03234000 PSAULCMS EQU PSASUP3 03235000 PSARV012 EQU PSASUP3 03236000 PSAESTA EQU PSASUP3 03237000 PSASPR EQU PSASUP3 03238000 PSAPSREG EQU PSASUP3 03239000 PSAPI2 EQU PSASUP3 03240000 PSAIOSUP EQU PSASUP3 03241000 PSALCR EQU PSASUP2 03242000 PSARTM EQU PSASUP2 03243000 PSAACR EQU PSASUP2 03244000 PSAIPCE2 EQU PSASUP2 03245000 PSAIPCES EQU PSASUP2 03246000 PSAIPCEC EQU PSASUP2 03247000 PSAGTF EQU PSASUP2 03248000 PSAIPCRI EQU PSASUP2 03249000 PSATYPE6 EQU PSASUP1 03250000 PSATCTL EQU PSASUP1 03251000 PSADISP EQU PSASUP1 03252000 PSALOCK EQU PSASUP1 03253000 PSAPI EQU PSASUP1 03254000 PSAEXT EQU PSASUP1 03255000 PSASVC EQU PSASUP1 03256000 PSAIO EQU PSASUP1 03257000 PSAAOLD EQU PSA+548 03258000 PSAANEW EQU PSA+544 03259000 PSATOLD EQU PSA+540 03260000 PSATNEW EQU PSA+536 03261000 PSALCCAR EQU PSA+532 03262000 PSALCCAV EQU PSA+528 03263000 PSAPCCAR EQU PSA+524 03264000 PSAPCCAV EQU PSA+520 03265000 PSACPULA EQU PSA+518 03266000 PSACPUPA EQU PSA+516 03267000 PSAPSA EQU PSA+512 03268000 FLCHDEND EQU PSA+512 03269000 FLCCRSAV EQU FLCMCLA+280 03270000 FLCGRSAV EQU FLCMCLA+216 03271000 FLCFPSAV EQU FLCMCLA+184 03272000 FLCFLA EQU FLCMCLA+88 03273000 FLCRGNCD EQU FLCMCLA+84 03274000 FLCFSAA EQU FLCFSA+1 03275000 @NM00024 EQU FLCFSA 03276000 @NM00023 EQU FLCMCLA+72 03277000 FLCMCIC EQU FLCMCLA+64 03278000 @NM00022 EQU FLCMCLA+20 03279000 FLCIOAA EQU FLCIOA+1 03280000 @NM00021 EQU FLCIOA 03281000 @NM00020 EQU FLCMCLA+15 03282000 @NM00019 EQU FLCMCLA+14 03283000 @NM00018 EQU FLCMCLA+12 03284000 FLCLCL EQU FLCMCLA+8 03285000 FLCIOELA EQU FLCIOEL+1 03286000 @NM00017 EQU FLCIOEL 03287000 FLCCHNID EQU FLCMCLA 03288000 @NM00016 EQU PSA+160 03289000 FLCMTRCD EQU PSA+157 03290000 @NM00015 EQU PSA+156 03291000 FLCPERA EQU FLCPER+1 03292000 @NM00014 EQU FLCPER 03293000 @NM00013 EQU PSA+151 03294000 FLCPERCD EQU PSA+150 03295000 FLCMCNUM EQU PSA+149 03296000 @NM00012 EQU PSA+148 03297000 FLCTEAA EQU FLCTEA+1 03298000 @NM00011 EQU FLCTEA 03299000 PSAPIPC EQU PSAPICOD 03300000 PSAPIMC EQU PSAPICOD 03301000 PSAPIPER EQU PSAPICOD 03302000 PSARV049 EQU FLCPICOD 03303000 FLCPILCB EQU FLCPIILC 03304000 @NM00010 EQU FLCPIILC 03305000 @NM00009 EQU PSAEPPSW 03306000 FLCSVCN EQU PSAESPSW+2 03307000 FLCSILCB EQU FLCSVILC 03308000 @NM00008 EQU FLCSVILC 03309000 @NM00007 EQU PSAESPSW 03310000 FLCEICOD EQU PSAEEPSW+2 03311000 PSASPAD EQU PSAEEPSW 03312000 @NM00006 EQU PSA+128 03313000 FLCINPSW EQU PSA+120 03314000 FLCMNPSW EQU PSA+112 03315000 FLCPNPSW EQU PSA+104 03316000 FLCSNPSW EQU PSA+96 03317000 FLCENPSW EQU PSA+88 03318000 FLCTRACE EQU PSA+84 03319000 FLCTIMER EQU PSA+80 03320000 FLCCVT2 EQU PSA+76 03321000 FLCCAW EQU PSA+72 03322000 FLCCSW EQU PSA+64 03323000 FLCIOPSW EQU PSA+56 03324000 FLCMOPSW EQU PSA+48 03325000 FLCPOPSW EQU PSA+40 03326000 FLCSOPSW EQU PSA+32 03327000 FLCEOPSW EQU PSA+24 03328000 @NM00005 EQU FLCICCW2+4 03329000 FLCICCW1 EQU FLCROPSW 03330000 FLCIPPSW EQU FLCRNPSW 03331000 * END UNREFERENCED COMPONENTS 03332000 @RC00089 EQU @RC00087 03333000 @RF00125 EQU @RC00121 03334000 @RC00216 EQU @RC00205 03335000 @RF00093 EQU @RC00089 03336000 @RF00097 EQU @RC00089 03337000 @ENDDATA EQU * 03338000 END IRARMSRV,(C'PLS1730',0701,78094) 03339000