TITLE 'IDAOCEA4 - VSAM BLDVRP/DLVRP ESTAE ROUTINE. *00001000 ' 00002000 IDAOCEA4 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IDAOCEA4 77.026' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 * IF R0=NOSDWA THEN /* IF NO SDWA WAS PASSED THEN, */ 00013000 C R0,@CF00032 0086 00014000 BNE @RF00086 0086 00015000 * RETURN CODE(0); /* EXIT WITH PERCOLATION. */ 00016000 SLR @15,@15 0087 00017000 @EL00001 DS 0H 0087 00018000 @EF00001 DS 0H 0087 00019000 @ER00001 BR @14 0087 00020000 * ELSE /* OTHERWISE AN SDWA WAS PASSED 00021000 * AND PROCESSING MAY OCCUR. */ 00022000 * DO; /* PROCESS THIS CALL. */ 00023000 @RF00086 DS 0H 0089 00024000 * RFY 0089 00025000 * (R0) UNRSTD; /* RELEASE REGISTER ZERO. */ 00026000 * GEN( STM R14,R12,12(R13)); /* STORE REGS AS PASSED. */ 00027000 STM R14,R12,12(R13) 00028000 * IF(SDWAPCHK=ON| /* IS THIS A PROGRAM CHECK OR, */ 00029000 * SDWASVCD=ON| /* IS THIS SVC 13 EFFECTED, OR, */ 00030000 * SDWAABTM=ON) /* ABTERM ENTRY, AND */ 00031000 * &(SDWACLUP^=ON) THEN /* NOT JUST MINOR PASS, THEN */ 00032000 TM SDWAPCHK(SDWAPTR),B'01011000' 0091 00033000 BZ @RF00091 0091 00034000 TM SDWACLUP(SDWAPTR),B'10000000' 0091 00035000 BO @RF00091 0091 00036000 * DO; /* PROCESS THE ERROR. */ 00037000 * 0092 00038000 * /*********************************************************/ 00039000 * /* */ 00040000 * /* PREPARE REGISTERS FOR A CALL TO IDAOCEA1. */ 00041000 * /* */ 00042000 * /*********************************************************/ 00043000 * 0093 00044000 * RCORE=SDWAPARM; /* PICK-UP ADDRESS OF FORCORE. */ 00045000 L RCORE,SDWAPARM(,SDWAPTR) 0093 00046000 * RRPLVSAM=ON; /* TURN ON COMPATABILITY BIT FOR 00047000 * IDAOCEA1. */ 00048000 OI RRPLVSAM(RCORE),B'00001000' 0094 00049000 * IDARTSA(5:8)=R13; /* BACK CHAIN SAVEAREA. */ 00050000 STCM R13,15,IDARTSA+4(RCORE) 0095 00051000 * R13->REGSAVE(9:12)=ADDR(IDARTSA);/* FORWARD CHAIN 0096 00052000 * SAVEAREA */ 00053000 LA @10,IDARTSA(,RCORE) 0096 00054000 STCM @10,15,REGSAVE+8(R13) 0096 00055000 * R7=SDWAPTR; /* PASS THE RTCA(SDWA). */ 00056000 LR R7,SDWAPTR 0097 00057000 * R8=ADDR(IDARRPL); /* PASS DUMMY RRPL. */ 00058000 LA R8,IDARRPL(,RCORE) 0098 00059000 * R5=ZERO; /* ZERO REG(5). */ 00060000 SLR R5,R5 0099 00061000 * R6=ZERO; /* ZERO REG(5). */ 00062000 SLR R6,R6 0100 00063000 * R11=ZERO; /* ZERO REG(11). */ 00064000 SLR R11,R11 0101 00065000 * R2=ZERO; /* ZERO REG(2). */ 00066000 SLR R2,R2 0102 00067000 * R13=ADDR(IDARTSA); /* PASS THE ADDRES OF A SAVEAREA.*/ 00068000 LR R13,@10 0103 00069000 * CALL IDAOCEA1; /* PERFORM ERROR RECORDING. */ 00070000 L @15,@CV01225 0104 00071000 BALR @14,@15 0104 00072000 * R13=R13->REGSAVE(5:8); /* RESTORE MWA POINTER. */ 00073000 ICM @10,15,REGSAVE+4(R13) 0105 00074000 LR R13,@10 0105 00075000 * SDWAPTR=R7; /* RESTORE SDWA PTR. */ 00076000 LR SDWAPTR,R7 0106 00077000 * GEN( LM R14,R12,12(R13));/* RESTORE PASSED REGS. @ZA18260*/ 00078000 LM R14,R12,12(R13) 00079000 * RETURN CODE(0); /* EXIT WITH PERCOLATION. */ 00080000 SLR @15,@15 0108 00081000 BR @14 0108 00082000 * END; /* END OF PROCESSING IF NOT MINOR 00083000 * CALL. */ 00084000 * END; /* END OF DO GROUP FOR SDWA 0110 00085000 * OBTAINED. */ 00086000 * END IDAOCEA4 /* END OF THIS MODULE. */ 00087000 * 0111 00088000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00089000 */*%INCLUDE SYSLIB (LCGPLSSW) */ 00090000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00091000 */*%INCLUDE SYSLIB (IDAFOREC) */ 00092000 */*%INCLUDE SYSLIB (IECDSECT) */ 00093000 */*%INCLUDE SYSLIB (IECDSECS) */ 00094000 */*%INCLUDE SYSLIB (IEFJFCBN) */ 00095000 */*%INCLUDE SYSLIB (IEFJFCBX) */ 00096000 */*%INCLUDE SYSLIB (IDAPDPRM) */ 00097000 */*%INCLUDE SYSLIB (IDARTMAC) */ 00098000 * 0111 00099000 * ; 0111 00100000 B @EL00001 0111 00101000 @DATA DS 0H 00102000 @DATD DSECT 00103000 DS 0F 00104000 IDAOCEA4 CSECT 00105000 DS 0F 00106000 @CF00032 DC F'12' 00107000 @DATD DSECT 00108000 DS 0D 00109000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00110000 @ENDDATD EQU * 00111000 IDAOCEA4 CSECT 00112000 DS 0F 00113000 @SIZDATD DC AL1(0) 00114000 DC AL3(@ENDDATD-@DATD) 00115000 @CV01225 DC V(IDAOCEA1) 00116000 DS 0D 00117000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00118000 @01 EQU 01 00119000 @02 EQU 02 00120000 @03 EQU 03 00121000 @04 EQU 04 00122000 @05 EQU 05 00123000 @06 EQU 06 00124000 @07 EQU 07 00125000 @08 EQU 08 00126000 @09 EQU 09 00127000 @10 EQU 10 00128000 @11 EQU 11 00129000 @12 EQU 12 00130000 @13 EQU 13 00131000 @14 EQU 14 00132000 @15 EQU 15 00133000 SDWAPTR EQU @01 00134000 RCORE EQU @04 00135000 R0 EQU @00 00136000 R2 EQU @02 00137000 R5 EQU @05 00138000 R6 EQU @06 00139000 R7 EQU @07 00140000 R8 EQU @08 00141000 R11 EQU @11 00142000 R12 EQU @12 00143000 R13 EQU @13 00144000 GPR00F EQU @00 00145000 GPR00P EQU @00 00146000 GPR01F EQU @01 00147000 GPR01P EQU @01 00148000 GPR14F EQU @14 00149000 GPR14P EQU @14 00150000 GPR15F EQU @15 00151000 GPR15P EQU @15 00152000 R10 EQU @10 00153000 R14 EQU @14 00154000 R15 EQU @15 00155000 R3 EQU @03 00156000 R9 EQU @09 00157000 SDWA EQU 0 00158000 SDWAPARM EQU SDWA 00159000 SDWAFIOB EQU SDWA+4 00160000 SDWAABCC EQU SDWAFIOB 00161000 SDWACMPF EQU SDWAABCC 00162000 SDWACTL1 EQU SDWA+8 00163000 SDWACMKA EQU SDWACTL1 00164000 SDWAMWPA EQU SDWACTL1+1 00165000 SDWAPMKA EQU SDWACTL1+4 00166000 SDWACTL2 EQU SDWA+16 00167000 SDWACMKP EQU SDWACTL2 00168000 SDWAMWPP EQU SDWACTL2+1 00169000 SDWAPMKP EQU SDWACTL2+4 00170000 SDWAGRSV EQU SDWA+24 00171000 SDWANAME EQU SDWA+88 00172000 SDWAEC1 EQU SDWA+104 00173000 SDWAEMK1 EQU SDWAEC1 00174000 SDWAMWP1 EQU SDWAEC1+1 00175000 SDWAINT1 EQU SDWAEC1+2 00176000 SDWANXT1 EQU SDWAEC1+4 00177000 SDWAAEC1 EQU SDWA+112 00178000 SDWAILC1 EQU SDWAAEC1+1 00179000 SDWAINC1 EQU SDWAAEC1+2 00180000 SDWAICD1 EQU SDWAINC1+1 00181000 SDWAEC2 EQU SDWA+120 00182000 SDWAEMK2 EQU SDWAEC2 00183000 SDWAMWP2 EQU SDWAEC2+1 00184000 SDWAINT2 EQU SDWAEC2+2 00185000 SDWANXT2 EQU SDWAEC2+4 00186000 SDWAAEC2 EQU SDWA+128 00187000 SDWAILC2 EQU SDWAAEC2+1 00188000 SDWAINC2 EQU SDWAAEC2+2 00189000 SDWAICD2 EQU SDWAINC2+1 00190000 SDWASRSV EQU SDWA+136 00191000 SDWAIDNT EQU SDWA+200 00192000 SDWAMCH EQU SDWA+204 00193000 SDWASTCK EQU SDWAMCH 00194000 SDWAMCHI EQU SDWAMCH+8 00195000 SDWAMCHS EQU SDWAMCHI 00196000 SDWAMCHD EQU SDWAMCHI+1 00197000 SDWARSR1 EQU SDWAMCH+12 00198000 SDWARSR2 EQU SDWAMCH+13 00199000 SDWAFLGS EQU SDWA+232 00200000 SDWAERRA EQU SDWAFLGS 00201000 SDWAPCHK EQU SDWAERRA 00202000 SDWASVCD EQU SDWAERRA 00203000 SDWAABTM EQU SDWAERRA 00204000 SDWAERRB EQU SDWAFLGS+1 00205000 SDWAERRC EQU SDWAFLGS+2 00206000 SDWAERRD EQU SDWAFLGS+3 00207000 SDWACLUP EQU SDWAERRD 00208000 SDWAIOFS EQU SDWA+238 00209000 SDWACPUA EQU SDWA+248 00210000 SDWAPARQ EQU SDWA+252 00211000 SDWAACF2 EQU SDWAPARQ+1 00212000 SDWAACF3 EQU SDWAPARQ+2 00213000 SDWAACF4 EQU SDWAPARQ+3 00214000 SDWALKWA EQU SDWA+256 00215000 SDWALKWS EQU SDWALKWA 00216000 SDWARECP EQU SDWA+292 00217000 SDWASNPA EQU SDWA+320 00218000 SDWADUMP EQU SDWASNPA 00219000 SDWADPFS EQU SDWADUMP+1 00220000 SDWADDAT EQU SDWASNPA+4 00221000 SDWASDAT EQU SDWADDAT 00222000 SDWAPDAT EQU SDWADDAT+2 00223000 SDWADPSA EQU SDWA+328 00224000 SDWADPSL EQU SDWADPSA 00225000 SDWARA EQU SDWA+400 00226000 SDWADPVA EQU SDWARA+2 00227000 FORCORE EQU 0 00228000 DXDSCB EQU FORCORE 00229000 DXJBF EQU FORCORE+100 00230000 DXIOB EQU FORCORE+280 00231000 DXDAADDR EQU FORCORE+312 00232000 DXDCB EQU FORCORE+320 00233000 DXCCW EQU FORCORE+368 00234000 DXCCW5 EQU DXCCW+32 00235000 DXCCW8 EQU DXCCW+56 00236000 DXCCW12 EQU DXCCW+88 00237000 DXXCTL EQU FORCORE+472 00238000 DXVOLSR EQU FORCORE+500 00239000 DXVOLSR1 EQU DXVOLSR 00240000 DXVOLSR2 EQU DXVOLSR+6 00241000 DXVOLSR3 EQU DXVOLSR+12 00242000 DXRESSW EQU FORCORE+524 00243000 DXUCBSAV EQU FORCORE+564 00244000 DXUDCBAD EQU FORCORE+568 00245000 DXPDCBAD EQU FORCORE+572 00246000 DXATCOM1 EQU FORCORE+588 00247000 DXATGENS EQU DXATCOM1 00248000 DXATVGIV EQU DXATGENS 00249000 DXATOUTA EQU DXATCOM1+2 00250000 DXATDACC EQU DXATCOM1+3 00251000 DXATCOM2 EQU FORCORE+592 00252000 DXATEOV EQU DXATCOM2 00253000 DXATOPEN EQU DXATCOM2+1 00254000 DXATALL EQU DXATCOM2+2 00255000 DXATEXC1 EQU FORCORE+604 00256000 DXATEXB1 EQU DXATEXC1 00257000 DXATEXC2 EQU FORCORE+608 00258000 DSECTSIZ EQU FORCORE+612 00259000 IECPREFX EQU 0 00260000 IECEXTPR EQU IECPREFX+32 00261000 IECWTGTB EQU IECEXTPR+72 00262000 IECUPRML EQU IECEXTPR+80 00263000 IECRESWA EQU IECEXTPR+84 00264000 RWARESWA EQU 0 00265000 RWAPREFX EQU RWARESWA 00266000 USERPRML EQU 0 00267000 IECRRPL EQU 0 00268000 RRPLIST EQU IECRRPL 00269000 RRFUNCTN EQU RRPLIST 00270000 RRFLAGS1 EQU RRPLIST+1 00271000 RRFLAGS2 EQU RRPLIST+2 00272000 RRFLAGS3 EQU RRPLIST+3 00273000 RRXRETRY EQU RRPLIST+12 00274000 DSMADTRL EQU 0 00275000 DSMADTW1 EQU DSMADTRL 00276000 DSMADTB1 EQU DSMADTW1 00277000 DSMADTB2 EQU DSMADTW1+1 00278000 WTGTABLE EQU 0 00279000 WTGWTOPR EQU WTGTABLE 00280000 WTG EQU 0 00281000 WTGAREA EQU WTG 00282000 WTGMODNM EQU WTGAREA 00283000 WTGPREFX EQU WTGAREA+16 00284000 WTGPATHS EQU WTG+30 00285000 WTGENTRY EQU 0 00286000 WTGIDTTR EQU WTGENTRY 00287000 APPNMTBL EQU 0 00288000 APPENTRY EQU APPNMTBL+4 00289000 INFMJFCB EQU 0 00290000 JFCBDSNM EQU INFMJFCB 00291000 JFCBELNM EQU INFMJFCB+44 00292000 JFCBTSDM EQU INFMJFCB+52 00293000 JFCFCBID EQU INFMJFCB+56 00294000 JFCBFRID EQU JFCFCBID 00295000 JFCBLTYP EQU INFMJFCB+66 00296000 JFCBOTTR EQU INFMJFCB+67 00297000 JFCBUFOF EQU JFCBOTTR 00298000 JFCBFLSQ EQU JFCBOTTR+1 00299000 JFCFUNC EQU JFCBFLSQ 00300000 JFCBMASK EQU INFMJFCB+72 00301000 JFCBFLG1 EQU JFCBMASK+5 00302000 JFCOPEN EQU JFCBFLG1 00303000 JFCBFLG2 EQU JFCBMASK+6 00304000 JFCDEFER EQU JFCBFLG2 00305000 JFCBIND1 EQU INFMJFCB+86 00306000 JFCBIND2 EQU INFMJFCB+87 00307000 JFCAMPTR EQU INFMJFCB+88 00308000 JFCBUFRQ EQU JFCAMPTR 00309000 JFCBUFNO EQU JFCBUFRQ 00310000 JFCBGNCP EQU JFCAMPTR+1 00311000 JFCBHIAR EQU JFCBGNCP 00312000 JFCBFALN EQU JFCBHIAR 00313000 JFCBFTEK EQU JFCBFALN 00314000 JFCBBFTA EQU JFCBFTEK 00315000 JFCEROPT EQU INFMJFCB+92 00316000 JFCTRTCH EQU INFMJFCB+93 00317000 JFCBX EQU 0 00318000 IDAPDPRM EQU 0 00319000 PDPMSGFL EQU IDAPDPRM+34 00320000 IDAVGTT EQU 0 00321000 VGTTTYPE EQU IDAVGTT+4 00322000 REGSAVE EQU 0 00323000 IKEBC EQU 0 00324000 IKEBF15 EQU 0 00325000 IKEBF31 EQU 0 00326000 IKEBP15 EQU 0 00327000 IKEBP31 EQU 0 00328000 IKEBP8 EQU 0 00329000 DXXWTG EQU DSECTSIZ 00330000 DXXAREA EQU DSECTSIZ+4 00331000 DXXMODNM EQU DXXAREA 00332000 DXXLNG EQU DXXAREA+29 00333000 DXXENTRY EQU DXXAREA+32 00334000 DXXIDTTR EQU DXXENTRY 00335000 DXREGSAV EQU DXCCW8 00336000 DXREG1 EQU DXREGSAV+28 00337000 DXIDENT EQU DXCCW12 00338000 DXRETMOD EQU DXIDENT+2 00339000 @NM00077 EQU DXXCTL 00340000 DXSAVMOD EQU @NM00077+2 00341000 @NM00078 EQU DXRESSW 00342000 JFCKEYLE EQU JFCTRTCH 00343000 JFCCODE EQU JFCKEYLE 00344000 JFCSTACK EQU JFCTRTCH 00345000 JFCMODE EQU JFCSTACK 00346000 JFCSPPRT EQU JFCTRTCH 00347000 JFCBABFS EQU JFCSPPRT+2 00348000 JFCLIMCT EQU JFCBABFS 00349000 JFCDSORG EQU JFCSPPRT+5 00350000 JFCDSRG1 EQU JFCDSORG 00351000 JFCDSRG2 EQU JFCDSORG+1 00352000 JFCRECFM EQU JFCSPPRT+7 00353000 JFCRCFM EQU JFCRECFM 00354000 JFCOPTCD EQU JFCSPPRT+8 00355000 JFCWVCSP EQU JFCOPTCD 00356000 JFCWVCIS EQU JFCWVCSP 00357000 JFCWVCBD EQU JFCWVCIS 00358000 JFCALLOW EQU JFCOPTCD 00359000 JFCRSV17 EQU JFCALLOW 00360000 JFCOVER EQU JFCRSV17 00361000 JFCPCIBT EQU JFCOPTCD 00362000 JFCMAST EQU JFCPCIBT 00363000 JFCEXT EQU JFCMAST 00364000 JFCBCKPT EQU JFCOPTCD 00365000 JFCIND EQU JFCBCKPT 00366000 JFCRSV18 EQU JFCOPTCD 00367000 JFCCYL EQU JFCRSV18 00368000 JFCACT EQU JFCCYL 00369000 JFCREDUC EQU JFCOPTCD 00370000 JFCRSV19 EQU JFCREDUC 00371000 JFCRSV20 EQU JFCRSV19 00372000 JFCRSV21 EQU JFCOPTCD 00373000 JFCDEL EQU JFCRSV21 00374000 JFCOPTJ EQU JFCOPTCD 00375000 JFCREORG EQU JFCOPTJ 00376000 JFCBLKSI EQU JFCSPPRT+9 00377000 JFCBUFSI EQU JFCBLKSI 00378000 JFCAMSYN EQU JFCSPPRT+11 00379000 JFCNCP EQU JFCAMSYN+2 00380000 JFCNTM EQU JFCAMSYN+3 00381000 JFCBFSEQ EQU JFCNTM 00382000 JFCPCI EQU JFCBFSEQ 00383000 JFCRESRV EQU JFCAMSYN+4 00384000 JFCUCSEG EQU JFCRESRV 00385000 JFCUCSOP EQU JFCUCSEG+4 00386000 JFCOUTLI EQU JFCUCSEG+5 00387000 JFCTHRSH EQU JFCOUTLI 00388000 JFCCPRI EQU JFCTHRSH 00389000 JFCBVOLS EQU JFCUCSEG+10 00390000 JFCBS001 EQU JFCBVOLS 00391000 JFCBPQTY EQU JFCBS001+34 00392000 JFCBCTRI EQU JFCBS001+37 00393000 JFCBSQTY EQU JFCBS001+38 00394000 JFCFLGS1 EQU JFCBS001+41 00395000 PDWLIST EQU FORCORE 00396000 PDWWORK EQU DXDCB 00397000 IDARTSA EQU DXJBF 00398000 IDARRPL EQU DXATCOM1 00399000 IDARRFLG EQU IDARRPL+1 00400000 RRPLVSAM EQU IDARRFLG 00401000 IDARSTAT EQU DXATEXC1 00402000 RSTAT EQU IDARSTAT 00403000 RSTATCRO EQU RSTAT+1 00404000 RSTATOP2 EQU RSTAT+2 00405000 IDARRTN EQU DXATEXC2 00406000 DXBTAMX EQU DXREG1 00407000 DXDSNAME EQU DXCCW5 00408000 IDAESPL EQU DXATCOM1 00409000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00410000 RSTATRTN EQU IDARRTN 00411000 @NM00095 EQU RSTAT+3 00412000 @NM00094 EQU RSTATOP2 00413000 RSTATCSA EQU RSTATOP2 00414000 IDARCURS EQU RSTATCRO 00415000 IDARCRCU EQU RSTATCRO 00416000 IDARRSTR EQU RSTATCRO 00417000 IDARCKPT EQU RSTATCRO 00418000 RSTATOPT EQU RSTAT 00419000 @NM00093 EQU IDARRPL+2 00420000 @NM00092 EQU IDARRFLG 00421000 @NM00091 EQU IDARRFLG 00422000 @NM00090 EQU IDARRPL 00423000 PDWORKSP EQU PDWWORK+88 00424000 PDWERRCD EQU PDWWORK+84 00425000 PDWMSGPT EQU PDWWORK+80 00426000 PDWSAVED EQU PDWWORK+76 00427000 PDWSAVEC EQU PDWWORK+72 00428000 PDWSAVEB EQU PDWWORK+68 00429000 PDWSAVEA EQU PDWWORK+64 00430000 PDWSAVE EQU PDWWORK 00431000 WTPROUT EQU PDWLIST+75 00432000 WTPMSG EQU PDWLIST+4 00433000 WTPFLGS EQU PDWLIST+2 00434000 WTPLNGTH EQU PDWLIST 00435000 JFCBEND EQU JFCBS001+58 00436000 JFCBSPTN EQU JFCBS001+57 00437000 JFCBVLCT EQU JFCBS001+56 00438000 JFCBDRLH EQU JFCBS001+53 00439000 JFCBSBNM EQU JFCBS001+50 00440000 JFCBABST EQU JFCBS001+48 00441000 JFCBSPNM EQU JFCBS001+45 00442000 JFCBDQTY EQU JFCBS001+42 00443000 JFCBUAFF EQU JFCFLGS1 00444000 JFCRSV45 EQU JFCFLGS1 00445000 JFCVRDS EQU JFCFLGS1 00446000 JFCBCEOV EQU JFCFLGS1 00447000 JFCRSV42 EQU JFCFLGS1 00448000 JFCBADSP EQU JFCFLGS1 00449000 JFCTOPEN EQU JFCFLGS1 00450000 JFCBDLET EQU JFCFLGS1 00451000 JFCRQID EQU JFCBSQTY 00452000 JFCROUND EQU JFCBCTRI 00453000 JFCALX EQU JFCBCTRI 00454000 JFCMIXG EQU JFCBCTRI 00455000 JFCONTIG EQU JFCBCTRI 00456000 JFCRSV29 EQU JFCBCTRI 00457000 JFCBMSGP EQU JFCBCTRI 00458000 JFCBSPAC EQU JFCBCTRI 00459000 JFCRUNIT EQU JFCBPQTY 00460000 JFCBEXAD EQU JFCBS001+31 00461000 JFCBEXTL EQU JFCBS001+30 00462000 JFCMSVGP EQU JFCBS001+22 00463000 @NM00082 EQU JFCBS001 00464000 JFCAVOLS EQU JFCBVOLS 00465000 JFCBNVOL EQU JFCUCSEG+9 00466000 JFCBNTCS EQU JFCUCSEG+8 00467000 JFCSOWA EQU JFCOUTLI+1 00468000 JFCSEND EQU JFCCPRI 00469000 JFCEQUAL EQU JFCCPRI 00470000 JFCRECV EQU JFCCPRI 00471000 JFCRSV34 EQU JFCCPRI 00472000 JFCRSV33 EQU JFCCPRI 00473000 JFCRSV55 EQU JFCCPRI 00474000 JFCRSV54 EQU JFCCPRI 00475000 JFCRSV53 EQU JFCCPRI 00476000 JFCRSV27 EQU JFCUCSOP 00477000 JFCRSV26 EQU JFCUCSOP 00478000 JFCFCBVR EQU JFCUCSOP 00479000 JFCFCBAL EQU JFCUCSOP 00480000 JFCVER EQU JFCUCSOP 00481000 JFCRSV25 EQU JFCUCSOP 00482000 JFCFOLD EQU JFCUCSOP 00483000 JFCBEXTP EQU JFCUCSOP 00484000 JFCUCSID EQU JFCUCSEG 00485000 JFCINTVL EQU JFCSPPRT+19 00486000 JFCDBUFN EQU JFCRESRV+3 00487000 JFCCYLOF EQU JFCRESRV+2 00488000 JFCRKP EQU JFCRESRV 00489000 JFCPCIR2 EQU JFCPCI 00490000 JFCPCIR1 EQU JFCPCI 00491000 JFCPCIN2 EQU JFCPCI 00492000 JFCPCIN1 EQU JFCPCI 00493000 JFCPCIA2 EQU JFCPCI 00494000 JFCPCIA1 EQU JFCPCI 00495000 JFCPCIX2 EQU JFCPCI 00496000 JFCPCIX1 EQU JFCPCI 00497000 JFCBUFMX EQU JFCNCP 00498000 JFCLRECL EQU JFCAMSYN 00499000 JFCBAXBF EQU JFCBUFSI 00500000 JFCREL EQU JFCREORG 00501000 JFCRSV22 EQU JFCDEL 00502000 JFCSRCHD EQU JFCRSV20 00503000 JFCOPTQ EQU JFCACT 00504000 JFCFEED EQU JFCIND 00505000 JFCCBWU EQU JFCEXT 00506000 JFCWUMSG EQU JFCOVER 00507000 JFCSDNAM EQU JFCWVCBD 00508000 @NM00081 EQU JFCRECFM 00509000 JFCCHAR EQU JFCRECFM 00510000 JFCRFS EQU JFCRECFM 00511000 JFCRFB EQU JFCRECFM 00512000 JFCRFO EQU JFCRCFM 00513000 JFCFMREC EQU JFCRCFM 00514000 JFCRSV16 EQU JFCDSRG2 00515000 JFCRSV15 EQU JFCDSRG2 00516000 JFCORGTR EQU JFCDSRG2 00517000 JFCORGAM EQU JFCDSRG2 00518000 JFCRSV13 EQU JFCDSRG2 00519000 JFCORGTQ EQU JFCDSRG2 00520000 JFCORGTX EQU JFCDSRG2 00521000 JFCORGGS EQU JFCDSRG2 00522000 JFCORGU EQU JFCDSRG1 00523000 JFCORGPO EQU JFCDSRG1 00524000 JFCORGMQ EQU JFCDSRG1 00525000 JFCORGCQ EQU JFCDSRG1 00526000 JFCORGCX EQU JFCDSRG1 00527000 JFCORGDA EQU JFCDSRG1 00528000 JFCORGPS EQU JFCDSRG1 00529000 JFCORGIS EQU JFCDSRG1 00530000 JFCTRKBL EQU JFCLIMCT+1 00531000 @NM00080 EQU JFCLIMCT 00532000 JFCDEN EQU JFCSPPRT+1 00533000 JFCPRTSP EQU JFCSPPRT 00534000 JFCONE EQU JFCMODE 00535000 JFCTWO EQU JFCMODE 00536000 JFCRSV07 EQU JFCMODE 00537000 JFCRSV06 EQU JFCMODE 00538000 JFCMODER EQU JFCMODE 00539000 JFCMODEO EQU JFCMODE 00540000 JFCEBCD EQU JFCMODE 00541000 JFCBIN EQU JFCMODE 00542000 JFCRSV32 EQU JFCCODE 00543000 JFCTTY EQU JFCCODE 00544000 JFCASCII EQU JFCCODE 00545000 JFCNCR EQU JFCCODE 00546000 JFCBUR EQU JFCCODE 00547000 JFCFRI EQU JFCCODE 00548000 JFCBCD EQU JFCCODE 00549000 JFCNOCON EQU JFCCODE 00550000 DXRESIND EQU @NM00078 00551000 DXSAVOFF EQU @NM00077+7 00552000 DXSAVADR EQU DXSAVMOD+2 00553000 DXSAVID EQU DXSAVMOD 00554000 DXABCODE EQU @NM00077 00555000 DXRETCOD EQU DXIDENT+7 00556000 DXRETTTR EQU DXRETMOD+2 00557000 DXRETID EQU DXRETMOD 00558000 DXCALLID EQU DXIDENT 00559000 DXREG0 EQU DXREGSAV+24 00560000 DXREGE EQU DXREGSAV+20 00561000 DXREGD EQU DXREGSAV+16 00562000 DXREGC EQU DXREGSAV+12 00563000 DXREGB EQU DXREGSAV+8 00564000 DXREGA EQU DXREGSAV+4 00565000 DXREG9 EQU DXREGSAV 00566000 DXXEND EQU DXXAREA+48 00567000 DXXLAST EQU DXXAREA+40 00568000 DXXCORE EQU DXXENTRY+5 00569000 DXETTR EQU DXXIDTTR+2 00570000 DXEID EQU DXXIDTTR 00571000 DXXPATHS EQU DXXAREA+30 00572000 DXOPCLSW EQU DXXLNG 00573000 DXXTXTLN EQU DXXAREA+27 00574000 DXXMODSZ EQU DXXAREA+24 00575000 DXXATTRB EQU DXXAREA+22 00576000 @NM00062 EQU DXXAREA+20 00577000 DXXPREFX EQU DXXAREA+16 00578000 @NM00061 EQU DXXAREA+12 00579000 DXXMODEP EQU DXXAREA+8 00580000 DXXMODID EQU DXXMODNM+6 00581000 @NM00060 EQU DXXMODNM 00582000 DXXWTOPR EQU DXXWTG 00583000 VGTTCORE EQU IDAVGTT+32 00584000 @NM00089 EQU IDAVGTT+28 00585000 VGTTPSB EQU IDAVGTT+24 00586000 VGTTVUSE EQU IDAVGTT+20 00587000 VGTTBIB EQU IDAVGTT+16 00588000 VGTTNEXT EQU IDAVGTT+12 00589000 VGTTSIZE EQU IDAVGTT+8 00590000 VGTTSP EQU IDAVGTT+7 00591000 VGTTGSRK EQU IDAVGTT+6 00592000 @NM00088 EQU IDAVGTT+5 00593000 @NM00087 EQU VGTTTYPE 00594000 VGTTOPEN EQU VGTTTYPE 00595000 VGTTCTLG EQU VGTTTYPE 00596000 VGTTLSR EQU VGTTTYPE 00597000 VGTTGSR EQU VGTTTYPE 00598000 VGTTRSTR EQU VGTTTYPE 00599000 VGTTID EQU IDAVGTT 00600000 PDPSFI EQU IDAPDPRM+36 00601000 @NM00086 EQU IDAPDPRM+35 00602000 PDPNOMSG EQU PDPMSGFL 00603000 PDPNOTRC EQU PDPMSGFL 00604000 PDPSPACE EQU PDPMSGFL 00605000 PDPNOTFC EQU PDPMSGFL 00606000 PDPDSTYP EQU IDAPDPRM+33 00607000 PDPKEY EQU IDAPDPRM+32 00608000 PDPCTACB EQU IDAPDPRM+28 00609000 PDPDSN EQU IDAPDPRM+24 00610000 PDPCLSNM EQU IDAPDPRM+20 00611000 PDPVLSER EQU IDAPDPRM+16 00612000 PDPTIOT EQU IDAPDPRM+12 00613000 PDPUCB EQU IDAPDPRM+8 00614000 PDPACB EQU IDAPDPRM+4 00615000 PDPSFC EQU IDAPDPRM+3 00616000 PDPFUNC EQU IDAPDPRM+2 00617000 PDPCODE EQU IDAPDPRM+1 00618000 PDPCALL EQU IDAPDPRM 00619000 JFCBXNXT EQU JFCBX+172 00620000 @NM00085 EQU JFCBX+144 00621000 JFCBXDEV EQU JFCBX+140 00622000 JFCBXNAM EQU JFCBX+96 00623000 @NM00084 EQU JFCBX+94 00624000 JFCBXVOL EQU JFCBX+4 00625000 @NM00083 EQU JFCBX+3 00626000 JFCBXTTR EQU JFCBX 00627000 JFCRSV05 EQU JFCEROPT 00628000 JFCRSV04 EQU JFCEROPT 00629000 JFCRSV03 EQU JFCEROPT 00630000 JFCRSV02 EQU JFCEROPT 00631000 JFCTOPT EQU JFCEROPT 00632000 JFCABN EQU JFCEROPT 00633000 JFCSKP EQU JFCEROPT 00634000 JFCACC EQU JFCEROPT 00635000 JFCBUFL EQU JFCAMPTR+2 00636000 JFCFWORD EQU JFCBFTEK 00637000 JFCDWORD EQU JFCBFTEK 00638000 JFCHIER1 EQU JFCBFTEK 00639000 JFCDYN EQU JFCBFTEK 00640000 JFCEXC EQU JFCBFTEK 00641000 JFCBBFTR EQU JFCBBFTA 00642000 JFCSIM EQU JFCBBFTA 00643000 JFCHIER EQU JFCBFTEK 00644000 JFCBFOUT EQU JFCBUFNO 00645000 JFCBUFIN EQU JFCBUFNO 00646000 JFCTEMP EQU JFCBIND2 00647000 JFCREQ EQU JFCBIND2 00648000 JFCENT EQU JFCBIND2 00649000 JFCSHARE EQU JFCBIND2 00650000 JFCSECUR EQU JFCBIND2 00651000 JFCDISP EQU JFCBIND2 00652000 JFCPDS EQU JFCBIND1 00653000 JFCGDG EQU JFCBIND1 00654000 JFCADDED EQU JFCBIND1 00655000 JFCLOC EQU JFCBIND1 00656000 JFCRLSE EQU JFCBIND1 00657000 JFCBXPDT EQU INFMJFCB+83 00658000 JFCBCRDT EQU INFMJFCB+80 00659000 JFCBOPS2 EQU JFCBMASK+7 00660000 JFCRCTLG EQU JFCBFLG2 00661000 JFCBBUFF EQU JFCBFLG2 00662000 JFCTRACE EQU JFCBFLG2 00663000 JFCSDRPS EQU JFCBFLG2 00664000 JFCMODNW EQU JFCBFLG2 00665000 JFCNRPS EQU JFCDEFER 00666000 JFCOUTOP EQU JFCBFLG2 00667000 JFCINOP EQU JFCBFLG2 00668000 JFCBPWBP EQU JFCOPEN 00669000 @NM00079 EQU JFCOPEN 00670000 JFCDUAL EQU JFCBFLG1 00671000 JFCSLDES EQU JFCBFLG1 00672000 JFCSLCRE EQU JFCBFLG1 00673000 JFCSTAND EQU JFCBFLG1 00674000 JFCBOPS1 EQU JFCBMASK 00675000 JFCBVLSQ EQU INFMJFCB+70 00676000 JFCRSV31 EQU JFCFUNC 00677000 JFCFNCBT EQU JFCFUNC 00678000 JFCFNCBX EQU JFCFUNC 00679000 JFCFNCBD EQU JFCFUNC 00680000 JFCFNCBW EQU JFCFUNC 00681000 JFCFNCBP EQU JFCFUNC 00682000 JFCFNCBR EQU JFCFUNC 00683000 JFCFNCBI EQU JFCFUNC 00684000 JFCBFOFL EQU JFCBUFOF 00685000 JFCNL EQU JFCBLTYP 00686000 JFCSL EQU JFCBLTYP 00687000 JFCNSL EQU JFCBLTYP 00688000 JFCSUL EQU JFCBLTYP 00689000 JFCBLP EQU JFCBLTYP 00690000 JFCBLTM EQU JFCBLTYP 00691000 JFCBAL EQU JFCBLTYP 00692000 JFCRSV38 EQU JFCBLTYP 00693000 JFCVINDX EQU INFMJFCB+64 00694000 JFCNLREC EQU INFMJFCB+62 00695000 JFCBADBF EQU INFMJFCB+60 00696000 JFCAMSTR EQU JFCBFRID+2 00697000 JFCAMCRO EQU JFCBFRID 00698000 JFCBDSCB EQU INFMJFCB+53 00699000 JFCPAT EQU JFCBTSDM 00700000 JFCNDCB EQU JFCBTSDM 00701000 JFCNDSCB EQU JFCBTSDM 00702000 JFCNWRIT EQU JFCBTSDM 00703000 JFCTTR EQU JFCBTSDM 00704000 JFCSDS EQU JFCBTSDM 00705000 JFCVSL EQU JFCBTSDM 00706000 JFCCAT EQU JFCBTSDM 00707000 JFCIPLTX EQU JFCBELNM 00708000 JFCBQNAM EQU JFCBDSNM 00709000 APPNAMID EQU APPNMTBL+24 00710000 APPOFFST EQU APPENTRY+2 00711000 APPCOUNT EQU APPENTRY 00712000 APPSIZE EQU APPNMTBL+2 00713000 APPBAL EQU APPNMTBL 00714000 WTGCORE EQU WTGENTRY+5 00715000 WTGETTR EQU WTGIDTTR+2 00716000 WTGEID EQU WTGIDTTR 00717000 WTGOPD EQU WTGPATHS+1 00718000 WTGRECHK EQU WTGPATHS+1 00719000 WTGTSENQ EQU WTGPATHS+1 00720000 @NM00076 EQU WTGPATHS+1 00721000 WTGTRACE EQU WTGPATHS+1 00722000 @NM00075 EQU WTGPATHS 00723000 WTGJFCBW EQU WTGPATHS 00724000 WTGSMF EQU WTGPATHS 00725000 WTGTCOS EQU WTGPATHS 00726000 WTGNSL EQU WTGPATHS 00727000 WTGPRLSE EQU WTGPATHS 00728000 WTGLNG EQU WTG+29 00729000 WTGTXTLN EQU WTGAREA+27 00730000 WTGMODSZ EQU WTGAREA+24 00731000 WTGATTRB EQU WTGAREA+22 00732000 @NM00074 EQU WTGAREA+20 00733000 @NM00073 EQU WTGAREA+12 00734000 WTGMODEP EQU WTGAREA+8 00735000 WTGMODID EQU WTGMODNM+6 00736000 @NM00072 EQU WTGMODNM 00737000 DSMADTW6 EQU DSMADTRL+20 00738000 DSMADTW5 EQU DSMADTRL+16 00739000 DSMADTW4 EQU DSMADTRL+12 00740000 DSMADTW3 EQU DSMADTRL+8 00741000 DSMADTW2 EQU DSMADTRL+4 00742000 DSMADTB4 EQU DSMADTW1+3 00743000 DSMADTB3 EQU DSMADTW1+2 00744000 @NM00071 EQU DSMADTB2 00745000 DSMDSNE EQU DSMADTB2 00746000 DSMTIOTE EQU DSMADTB2 00747000 DSMSMCE EQU DSMADTB2 00748000 DSMVTOCR EQU DSMADTB2 00749000 DSMASWAP EQU DSMADTB1 00750000 DSMUCBAL EQU DSMADTB1 00751000 DSMRPSAP EQU DSMADTB1 00752000 DSMLOCK EQU DSMADTB1 00753000 @NM00070 EQU DSMADTB1 00754000 DSMVIO EQU DSMADTB1 00755000 DSMISAM EQU DSMADTB1 00756000 RRFWORK EQU RRPLIST+20 00757000 RRMLRTRY EQU RRPLIST+16 00758000 RRUCBPTR EQU RRXRETRY 00759000 RR1RETRY EQU RRPLIST+8 00760000 RR1WRKAR EQU RRPLIST+4 00761000 @NM00069 EQU RRFLAGS3 00762000 RRFTERM EQU RRFLAGS3 00763000 RRFFCEXC EQU RRFLAGS3 00764000 RRFFINFC EQU RRFLAGS3 00765000 RRFNRTCA EQU RRFLAGS3 00766000 @NM00068 EQU RRFLAGS3 00767000 RRFENQUL EQU RRFLAGS2 00768000 RRFPRDET EQU RRFLAGS2 00769000 @NM00067 EQU RRFLAGS2 00770000 RRFQMNGR EQU RRFLAGS2 00771000 RRFENQPW EQU RRFLAGS2 00772000 @NM00066 EQU RRFLAGS2 00773000 RRFFIN1 EQU RRFLAGS2 00774000 RRFTRACE EQU RRFLAGS1 00775000 RRFSMF EQU RRFLAGS1 00776000 RRFNSL EQU RRFLAGS1 00777000 RRFAMSTR EQU RRFLAGS1 00778000 RRFAMEXR EQU RRFLAGS1 00779000 RRFAMEXG EQU RRFLAGS1 00780000 RRFUSREX EQU RRFLAGS1 00781000 @NM00065 EQU RRFLAGS1 00782000 RRFRJFCB EQU RRFUNCTN 00783000 RRFDADSM EQU RRFUNCTN 00784000 DXDCBLST EQU USERPRML 00785000 RWALIST EQU RWARESWA+12 00786000 RWAPARM EQU RWAPREFX+8 00787000 RWATRBUF EQU RWAPREFX+4 00788000 RWATRACE EQU RWAPREFX 00789000 IECQMNGR EQU IECEXTPR+92 00790000 IECMSGQA EQU IECEXTPR+88 00791000 IECDCBNO EQU IECUPRML 00792000 IECRRPRM EQU IECEXTPR+76 00793000 IECREGSV EQU IECEXTPR 00794000 IECCORP2 EQU IECPREFX+28 00795000 IECCORP1 EQU IECPREFX+24 00796000 IECCORPS EQU IECPREFX+20 00797000 IECCORSP EQU IECPREFX+19 00798000 @NM00064 EQU IECPREFX+17 00799000 IECCORKY EQU IECPREFX+16 00800000 IECCORAD EQU IECPREFX+12 00801000 IECCORLN EQU IECPREFX+8 00802000 @NM00063 EQU IECPREFX+4 00803000 IECCORID EQU IECPREFX 00804000 DXATEXB2 EQU DXATEXC2 00805000 DXEXHASP EQU DXATEXB1 00806000 DXATCOM4 EQU FORCORE+600 00807000 DXATCOM3 EQU FORCORE+596 00808000 @NM00059 EQU DXATCOM2+3 00809000 @NM00058 EQU DXATALL 00810000 DXATSWAP EQU DXATALL 00811000 DXATFC EQU DXATALL 00812000 @NM00057 EQU DXATOPEN 00813000 DXATDFIN EQU DXATOPEN 00814000 DXATDSIN EQU DXATOPEN 00815000 DXATMODM EQU DXATOPEN 00816000 DXATMODE EQU DXATOPEN 00817000 DXATMODS EQU DXATOPEN 00818000 DXATIGN EQU DXATOPEN 00819000 DXATVCAT EQU DXATEOV 00820000 DXATDADM EQU DXATEOV 00821000 DXATREMT EQU DXATEOV 00822000 DXATDNEW EQU DXATEOV 00823000 DXATDFRE EQU DXATEOV 00824000 DXATDCHN EQU DXATEOV 00825000 DXATNVOL EQU DXATEOV 00826000 DXATCCAT EQU DXATEOV 00827000 DXATRDDB EQU DXATDACC 00828000 DXATEOF EQU DXATDACC 00829000 @NM00056 EQU DXATDACC 00830000 DXATSMF EQU DXATDACC 00831000 DXATUPDB EQU DXATDACC 00832000 DXATDRCT EQU DXATDACC 00833000 DXATTRAK EQU DXATDACC 00834000 DXATF1CE EQU DXATDACC 00835000 DXATNSL EQU DXATOUTA 00836000 DXATTTM2 EQU DXATOUTA 00837000 DXATTTM1 EQU DXATOUTA 00838000 DXATTRL2 EQU DXATOUTA 00839000 DXATTRL1 EQU DXATOUTA 00840000 DXATDATM EQU DXATOUTA 00841000 DXATHDTM EQU DXATOUTA 00842000 DXATVLHD EQU DXATOUTA 00843000 DXATCLOS EQU DXATCOM1+1 00844000 DXATSRET EQU DXATGENS 00845000 DXATVCIG EQU DXATVGIV 00846000 DXATVTMG EQU DXATVGIV 00847000 DXATVSMG EQU DXATVGIV 00848000 DXATJFCB EQU DXATGENS 00849000 DXATDISP EQU DXATGENS 00850000 DXATREFR EQU DXATGENS 00851000 DXATDMCT EQU DXATGENS 00852000 DXMSGADR EQU FORCORE+584 00853000 DXPRPARC EQU FORCORE+580 00854000 DXUDCBML EQU FORCORE+578 00855000 DXUDCBPL EQU FORCORE+576 00856000 DXPACBAD EQU DXPDCBAD+1 00857000 @NM00055 EQU DXPDCBAD 00858000 DXUACBAD EQU DXUDCBAD+1 00859000 @NM00054 EQU DXUDCBAD 00860000 DXUCBSVV EQU DXUCBSAV+1 00861000 @NM00053 EQU DXUCBSAV 00862000 DXUCBADR EQU FORCORE+560 00863000 DXTIOTAD EQU FORCORE+556 00864000 DXDEBXAD EQU FORCORE+552 00865000 DXDSAB EQU FORCORE+548 00866000 DXDSABAD EQU FORCORE+544 00867000 DXDSABQD EQU FORCORE+540 00868000 DXJSCBAD EQU FORCORE+536 00869000 DXTCBADR EQU FORCORE+532 00870000 DXASCBAD EQU FORCORE+528 00871000 DXEXTSW EQU FORCORE+527 00872000 DXUKEY EQU FORCORE+526 00873000 DXWKEYSV EQU FORCORE+525 00874000 DXUNITOF EQU FORCORE+522 00875000 DXNOUNIT EQU FORCORE+520 00876000 DXVOLSEQ EQU FORCORE+518 00877000 DXVOLMT3 EQU DXVOLSR3 00878000 DXVOLMT2 EQU DXVOLSR2 00879000 DXVOLMT1 EQU DXVOLSR1 00880000 DXWORK4 EQU FORCORE+496 00881000 DXWORK3 EQU FORCORE+492 00882000 DXWORK2 EQU FORCORE+488 00883000 DXWORK1 EQU FORCORE+484 00884000 DXWORK EQU FORCORE+480 00885000 @NM00052 EQU FORCORE+464 00886000 DXCCW11 EQU DXCCW+80 00887000 DXCCW10 EQU DXCCW+72 00888000 DXCCW9 EQU DXCCW+64 00889000 DXCCW7 EQU DXCCW+48 00890000 DXCCW6 EQU DXCCW+40 00891000 DXCCW4 EQU DXCCW+24 00892000 DXCCW3 EQU DXCCW+16 00893000 DXCCW2 EQU DXCCW+8 00894000 DXCCW1 EQU DXCCW 00895000 DXDCBDEB EQU DXDCB+44 00896000 @NM00051 EQU DXDCB+24 00897000 DXDEBDCB EQU DXDCB+20 00898000 @NM00050 EQU DXDCB 00899000 DXDEB EQU DXDAADDR+4 00900000 @NM00049 EQU DXDAADDR 00901000 DXECB EQU FORCORE+276 00902000 DSCCORE EQU FORCORE+96 00903000 DXLBL EQU DXDSCB 00904000 @NM00048 EQU SDWA+512 00905000 SDWAVRA EQU SDWARA+4 00906000 SDWAURAL EQU SDWARA+3 00907000 @NM00047 EQU SDWADPVA 00908000 SDWAEBC EQU SDWADPVA 00909000 SDWAHEX EQU SDWADPVA 00910000 SDWAVRAL EQU SDWARA 00911000 @NM00046 EQU SDWA+396 00912000 SDWACOMP EQU SDWA+392 00913000 SDWARCPL EQU SDWA+364 00914000 @NM00045 EQU SDWADPSA+32 00915000 SDWATO4 EQU SDWADPSL+28 00916000 SDWAFRM4 EQU SDWADPSL+24 00917000 SDWATO3 EQU SDWADPSL+20 00918000 SDWAFRM3 EQU SDWADPSL+16 00919000 SDWATO2 EQU SDWADPSL+12 00920000 SDWAFRM2 EQU SDWADPSL+8 00921000 SDWATO1 EQU SDWADPSL+4 00922000 SDWAFRM1 EQU SDWADPSL 00923000 @NM00044 EQU SDWADDAT+3 00924000 @NM00043 EQU SDWAPDAT 00925000 SDWAUSPL EQU SDWAPDAT 00926000 SDWADPSW EQU SDWAPDAT 00927000 SDWATJPA EQU SDWAPDAT 00928000 SDWATLPA EQU SDWAPDAT 00929000 SDWADREG EQU SDWAPDAT 00930000 SDWADSAH EQU SDWAPDAT 00931000 SDWADSAS EQU SDWAPDAT 00932000 @NM00042 EQU SDWADDAT+1 00933000 @NM00041 EQU SDWASDAT 00934000 SDWAQQS EQU SDWASDAT 00935000 SDWACBS EQU SDWASDAT 00936000 SDWAGTF EQU SDWASDAT 00937000 SDWASWA EQU SDWASDAT 00938000 SDWALSQA EQU SDWASDAT 00939000 SDWASQA EQU SDWASDAT 00940000 SDWANUC EQU SDWASDAT 00941000 @NM00040 EQU SDWADUMP+2 00942000 @NM00039 EQU SDWADPFS 00943000 SDWASLST EQU SDWADPFS 00944000 @NM00038 EQU SDWADPFS 00945000 SDWADLST EQU SDWADPFS 00946000 SDWADPT EQU SDWADPFS 00947000 SDWADPID EQU SDWADUMP 00948000 SDWADPLA EQU SDWA+316 00949000 SDWAREXN EQU SDWARECP+16 00950000 SDWACSCT EQU SDWARECP+8 00951000 SDWAMODN EQU SDWARECP 00952000 @NM00037 EQU SDWALKWA+32 00953000 SDWATALW EQU SDWALKWS+28 00954000 SDWATDLW EQU SDWALKWS+24 00955000 SDWATNLW EQU SDWALKWS+20 00956000 SDWAAPLW EQU SDWALKWS+16 00957000 SDWAIPLW EQU SDWALKWS+12 00958000 SDWAILLW EQU SDWALKWS+8 00959000 SDWAIULW EQU SDWALKWS+4 00960000 SDWAICLW EQU SDWALKWS 00961000 SDWAFLLK EQU SDWAACF4 00962000 SDWACMS EQU SDWAACF4 00963000 SDWAOPTM EQU SDWAACF4 00964000 SDWATADB EQU SDWAACF4 00965000 SDWATDNB EQU SDWAACF4 00966000 SDWATNCB EQU SDWAACF4 00967000 SDWAILCH EQU SDWAACF4 00968000 SDWAIUCB EQU SDWAACF4 00969000 SDWAICAT EQU SDWAACF3 00970000 SDWAIPRG EQU SDWAACF3 00971000 SDWASALL EQU SDWAACF3 00972000 SDWAASMP EQU SDWAACF3 00973000 SDWADISP EQU SDWAACF3 00974000 @NM00036 EQU SDWAACF3 00975000 @NM00035 EQU SDWAACF2 00976000 SDWAFREE EQU SDWAACF2 00977000 SDWAUPRG EQU SDWAACF2 00978000 @NM00034 EQU SDWAACF2 00979000 SDWASPIN EQU SDWAACF2 00980000 @NM00033 EQU SDWAACF2 00981000 SDWARCRD EQU SDWAACF2 00982000 SDWARCDE EQU SDWAPARQ 00983000 SDWALCPU EQU SDWACPUA+2 00984000 @NM00032 EQU SDWACPUA 00985000 SDWARECA EQU SDWA+244 00986000 SDWARTYA EQU SDWA+240 00987000 @NM00031 EQU SDWA+239 00988000 @NM00030 EQU SDWAIOFS 00989000 SDWANIOP EQU SDWAIOFS 00990000 SDWANOIO EQU SDWAIOFS 00991000 SDWAIOHT EQU SDWAIOFS 00992000 SDWAIOQR EQU SDWAIOFS 00993000 SDWAFMID EQU SDWA+236 00994000 @NM00029 EQU SDWAERRD 00995000 SDWAMCIV EQU SDWAERRD 00996000 SDWARPIV EQU SDWAERRD 00997000 SDWAMABD EQU SDWAERRD 00998000 SDWACTS EQU SDWAERRD 00999000 SDWASTAE EQU SDWAERRD 01000000 SDWANRBE EQU SDWAERRD 01001000 @NM00028 EQU SDWAERRC 01002000 SDWAEAS EQU SDWAERRC 01003000 SDWAPERC EQU SDWAERRC 01004000 SDWAIRB EQU SDWAERRC 01005000 SDWASTAI EQU SDWAERRC 01006000 SDWASTAF EQU SDWAERRC 01007000 SDWASRBM EQU SDWAERRB 01008000 SDWALDIS EQU SDWAERRB 01009000 SDWAENRB EQU SDWAERRB 01010000 SDWATYP1 EQU SDWAERRB 01011000 @NM00027 EQU SDWAERRB 01012000 SDWAPGIO EQU SDWAERRA 01013000 SDWATEXC EQU SDWAERRA 01014000 SDWASVCE EQU SDWAERRA 01015000 SDWARKEY EQU SDWAERRA 01016000 SDWAMCHK EQU SDWAERRA 01017000 SDWATIME EQU SDWAMCH+20 01018000 SDWARFSA EQU SDWAMCH+16 01019000 @NM00026 EQU SDWAMCH+14 01020000 SDWAVEQR EQU SDWARSR2 01021000 SDWAPGFX EQU SDWARSR2 01022000 SDWAFLSQ EQU SDWARSR2 01023000 SDWAFSQA EQU SDWARSR2 01024000 SDWANUCL EQU SDWARSR2 01025000 SDWASPER EQU SDWARSR2 01026000 SDWAINTC EQU SDWARSR2 01027000 SDWAOFLN EQU SDWARSR2 01028000 SDWACHNG EQU SDWARSR1 01029000 SDWAMSER EQU SDWARSR1 01030000 @NM00025 EQU SDWARSR1 01031000 SDWACPID EQU SDWAMCH+10 01032000 SDWATERR EQU SDWAMCHD 01033000 SDWAFPRX EQU SDWAMCHD 01034000 SDWAINSF EQU SDWAMCHD 01035000 SDWAACR EQU SDWAMCHD 01036000 SDWASCK EQU SDWAMCHD 01037000 SDWAPSWU EQU SDWAMCHD 01038000 SDWAREGU EQU SDWAMCHD 01039000 SDWASKYF EQU SDWAMCHD 01040000 @NM00024 EQU SDWAMCHS 01041000 SDWARSRF EQU SDWAMCHS 01042000 SDWARSRC EQU SDWAMCHS 01043000 SDWAINVP EQU SDWAMCHS 01044000 SDWATSVL EQU SDWAMCHS 01045000 SDWARCDF EQU SDWAMCHS 01046000 SDWASRVL EQU SDWAMCHS 01047000 SDWASCKE EQU SDWASTCK+4 01048000 SDWASCKB EQU SDWASTCK 01049000 SDWALNTH EQU SDWAIDNT+1 01050000 SDWASPID EQU SDWAIDNT 01051000 SDWASR15 EQU SDWASRSV+60 01052000 SDWASR14 EQU SDWASRSV+56 01053000 SDWASR13 EQU SDWASRSV+52 01054000 SDWASR12 EQU SDWASRSV+48 01055000 SDWASR11 EQU SDWASRSV+44 01056000 SDWASR10 EQU SDWASRSV+40 01057000 SDWASR09 EQU SDWASRSV+36 01058000 SDWASR08 EQU SDWASRSV+32 01059000 SDWASR07 EQU SDWASRSV+28 01060000 SDWASR06 EQU SDWASRSV+24 01061000 SDWASR05 EQU SDWASRSV+20 01062000 SDWASR04 EQU SDWASRSV+16 01063000 SDWASR03 EQU SDWASRSV+12 01064000 SDWASR02 EQU SDWASRSV+8 01065000 SDWASR01 EQU SDWASRSV+4 01066000 SDWASR00 EQU SDWASRSV 01067000 SDWATRN2 EQU SDWAAEC2+4 01068000 SDWAIPC2 EQU SDWAICD2 01069000 SDWAIMC2 EQU SDWAICD2 01070000 SDWAIPR2 EQU SDWAICD2 01071000 @NM00023 EQU SDWAINC2 01072000 @NM00022 EQU SDWAILC2 01073000 SDWAIL2 EQU SDWAILC2 01074000 @NM00021 EQU SDWAILC2 01075000 @NM00020 EQU SDWAAEC2 01076000 SDWAADD2 EQU SDWANXT2+1 01077000 @NM00019 EQU SDWANXT2 01078000 @NM00018 EQU SDWAEC2+3 01079000 SDWASGN2 EQU SDWAINT2 01080000 SDWAEXP2 EQU SDWAINT2 01081000 SDWADEC2 EQU SDWAINT2 01082000 SDWAFPO2 EQU SDWAINT2 01083000 SDWACC2 EQU SDWAINT2 01084000 @NM00017 EQU SDWAINT2 01085000 SDWAPGM2 EQU SDWAMWP2 01086000 SDWAWAT2 EQU SDWAMWP2 01087000 SDWAMCK2 EQU SDWAMWP2 01088000 SDWAECT2 EQU SDWAMWP2 01089000 SDWAKEY2 EQU SDWAMWP2 01090000 SDWAEXT2 EQU SDWAEMK2 01091000 SDWAIO2 EQU SDWAEMK2 01092000 SDWATRM2 EQU SDWAEMK2 01093000 @NM00016 EQU SDWAEMK2 01094000 SDWAPER2 EQU SDWAEMK2 01095000 @NM00015 EQU SDWAEMK2 01096000 SDWATRAN EQU SDWAAEC1+4 01097000 SDWAIPC1 EQU SDWAICD1 01098000 SDWAIMC1 EQU SDWAICD1 01099000 SDWAIPR1 EQU SDWAICD1 01100000 @NM00014 EQU SDWAINC1 01101000 @NM00013 EQU SDWAILC1 01102000 SDWAIL1 EQU SDWAILC1 01103000 @NM00012 EQU SDWAILC1 01104000 @NM00011 EQU SDWAAEC1 01105000 SDWAADD1 EQU SDWANXT1+1 01106000 @NM00010 EQU SDWANXT1 01107000 @NM00009 EQU SDWAEC1+3 01108000 SDWASGN1 EQU SDWAINT1 01109000 SDWAEXP1 EQU SDWAINT1 01110000 SDWADEC1 EQU SDWAINT1 01111000 SDWAFPO1 EQU SDWAINT1 01112000 SDWACC1 EQU SDWAINT1 01113000 @NM00008 EQU SDWAINT1 01114000 SDWAPGM1 EQU SDWAMWP1 01115000 SDWAWAT1 EQU SDWAMWP1 01116000 SDWAMCK1 EQU SDWAMWP1 01117000 SDWAECT1 EQU SDWAMWP1 01118000 SDWAKEY1 EQU SDWAMWP1 01119000 SDWAEXT1 EQU SDWAEMK1 01120000 SDWAIO1 EQU SDWAEMK1 01121000 SDWATRM1 EQU SDWAEMK1 01122000 @NM00007 EQU SDWAEMK1 01123000 SDWAPER1 EQU SDWAEMK1 01124000 @NM00006 EQU SDWAEMK1 01125000 SDWAIOBR EQU SDWA+100 01126000 SDWAEPA EQU SDWA+96 01127000 @NM00005 EQU SDWANAME+4 01128000 SDWARBAD EQU SDWANAME 01129000 SDWAGR15 EQU SDWAGRSV+60 01130000 SDWAGR14 EQU SDWAGRSV+56 01131000 SDWAGR13 EQU SDWAGRSV+52 01132000 SDWAGR12 EQU SDWAGRSV+48 01133000 SDWAGR11 EQU SDWAGRSV+44 01134000 SDWAGR10 EQU SDWAGRSV+40 01135000 SDWAGR09 EQU SDWAGRSV+36 01136000 SDWAGR08 EQU SDWAGRSV+32 01137000 SDWAGR07 EQU SDWAGRSV+28 01138000 SDWAGR06 EQU SDWAGRSV+24 01139000 SDWAGR05 EQU SDWAGRSV+20 01140000 SDWAGR04 EQU SDWAGRSV+16 01141000 SDWAGR03 EQU SDWAGRSV+12 01142000 SDWAGR02 EQU SDWAGRSV+8 01143000 SDWAGR01 EQU SDWAGRSV+4 01144000 SDWAGR00 EQU SDWAGRSV 01145000 SDWANXTP EQU SDWACTL2+5 01146000 SDWASGP EQU SDWAPMKP 01147000 SDWAEUP EQU SDWAPMKP 01148000 SDWADOP EQU SDWAPMKP 01149000 SDWAFPP EQU SDWAPMKP 01150000 SDWACCP EQU SDWAPMKP 01151000 SDWAILP EQU SDWAPMKP 01152000 SDWAINTP EQU SDWACTL2+2 01153000 SDWASPVP EQU SDWAMWPP 01154000 SDWAWATP EQU SDWAMWPP 01155000 SDWAMCKP EQU SDWAMWPP 01156000 @NM00004 EQU SDWAMWPP 01157000 SDWAKEYP EQU SDWAMWPP 01158000 SDWAEXTP EQU SDWACMKP 01159000 SDWAIOP EQU SDWACMKP 01160000 SDWANXTA EQU SDWACTL1+5 01161000 SDWASGA EQU SDWAPMKA 01162000 SDWAEUA EQU SDWAPMKA 01163000 SDWADOA EQU SDWAPMKA 01164000 SDWAFPA EQU SDWAPMKA 01165000 SDWACCA EQU SDWAPMKA 01166000 SDWAILA EQU SDWAPMKA 01167000 SDWAINTA EQU SDWACTL1+2 01168000 SDWASPVA EQU SDWAMWPA 01169000 SDWAWATA EQU SDWAMWPA 01170000 SDWAMCKA EQU SDWAMWPA 01171000 @NM00003 EQU SDWAMWPA 01172000 SDWAKEYA EQU SDWAMWPA 01173000 SDWAEXTA EQU SDWACMKA 01174000 SDWAIOA EQU SDWACMKA 01175000 SDWACMPC EQU SDWAABCC+1 01176000 @NM00002 EQU SDWACMPF 01177000 SDWASTCC EQU SDWACMPF 01178000 @NM00001 EQU SDWACMPF 01179000 SDWASTEP EQU SDWACMPF 01180000 SDWAREQ EQU SDWACMPF 01181000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01182000 @RF00091 EQU @EL00001 01183000 @ENDDATA EQU * 01184000 END IDAOCEA4,(C'PLS1412',0701,77026) 01185000