TITLE 'BLSCRECV -- IPCS DAS OPEN/CLOSE ABEND RECOVERY MODULE *00001000 ' 00002000 * /* CHANGE ACTIVITY 00003000 * THIS MODULE IS WRITTEN FOR @G57LPSR 00004000 BLSCRECV CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSCRECV 78.066' 0002 00010000 DROP @15 00011000 @PROLOG BALR @11,0 0002 00012000 @PSTART DS 0H 0002 00013000 USING @PSTART,@11 0002 00014000 * IF GPR00P=F12C THEN /* WAS A SDWA SUPPLIED */ 00015000 C GPR00P,@CF00568 0011 00016000 BNE @RF00011 0011 00017000 * RETURN CODE(F0C); /* NO SDWA SUPPLIED, CONTINUE 0012 00018000 * WITH TERMINATION */ 00019000 SLR @15,@15 0012 00020000 @EL00001 DS 0H 0012 00021000 @EF00001 DS 0H 0012 00022000 @ER00001 BR @14 0012 00023000 * ELSE 0013 00024000 * DO; /* SDWA WAS SUPPLIED */ 00025000 @RF00011 DS 0H 0014 00026000 * RFY 0014 00027000 * GPR14P RSTD; 0014 00028000 * STM(GPR14P,GPR12P,REGSAVE); /* SAVE THE REGISTERS */ 00029000 STM GPR14P,GPR12P,REGSAVE(GPR13P) 0015 00030000 * RFY 0016 00031000 * (GPR14P, 0016 00032000 * GPR12P, 0016 00033000 * GPR13P) UNRSTD; 0016 00034000 * GPR02P=SDWAPARM; /* ADDRESS DMCB */ 00035000 L GPR02P,SDWAPARM(,SDWAPTR) 0017 00036000 * DMCBCPC=SDWAABCC; /* SAVE ABEND CODE */ 00037000 L @12,SDWAABCC(,SDWAPTR) 0018 00038000 ST @12,DMCBCPC(,GPR02P) 0018 00039000 * DMCBDCBE=SDWAGR15; /* SAVE ABEND REASON CODE */ 00040000 L @12,SDWAGR15(,SDWAPTR) 0019 00041000 ST @12,DMCBDCBE(,GPR02P) 0019 00042000 * DMCBRTC=DMCBARC; /* SET DMCB RETURN CODE */ 00043000 L @12,DMCBARC(,GPR02P) 0020 00044000 ST @12,DMCBRTC(,GPR02P) 0020 00045000 * DO; /* SETRP RETADDR(RTRYADDR)RC(SDWA 00046000 * RETY)FRESDWA(YES)RETREGS(YES)R 00047000 * EGS(14,12) */ 00048000 * RESPECIFY 0022 00049000 * (GPR00P, 0022 00050000 * GPR01P, 0022 00051000 * GPR14P, 0022 00052000 * GPR15P) RSTD; 0022 00053000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 00054000 MVI SDWARCDE(GPR01P),X'04' 0023 00055000 * GPR01P->SDWARTYA=ADDR(RTRYADDR);/* SAVE RETRY ADDRESS */ 00056000 L @12,DMCBRET(,GPR02P) 0024 00057000 ST @12,SDWARTYA(,GPR01P) 0024 00058000 * GPR01P->SDWAFREE='1'B; /* SET FLAG TO FREE SDWA */ 00059000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 00060000 OI SDWAFREE(GPR01P),B'00001100' 0026 00061000 * GEN(RETURN (14,12)); 0027 00062000 RETURN (14,12) 00063000 * RESPECIFY 0028 00064000 * (GPR00P, 0028 00065000 * GPR01P, 0028 00066000 * GPR14P, 0028 00067000 * GPR15P) UNRSTD; 0028 00068000 * END; 0029 00069000 * END; /* SDWA WAS SUPPLIED */ 00070000 EJECT 00071000 * 0031 00072000 * /*****************************************************************/ 00073000 * /* */ 00074000 * /* END OF EXECUTABLE PROCEDURE STATEMENTS */ 00075000 * /* */ 00076000 * /*****************************************************************/ 00077000 * 0031 00078000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00079000 * GPR00P PTR(31) REG(0), 0031 00080000 * GPR01P PTR(31) REG(1), 0031 00081000 * GPR02P PTR(31) REG(2), 0031 00082000 * GPR12P PTR(31) REG(12), 0031 00083000 * GPR13P PTR(31) REG(13), 0031 00084000 * GPR14P PTR(31) REG(14), 0031 00085000 * GPR15P PTR(31) REG(15); 0031 00086000 * DECLARE /* COMMON VARIABLES */ 00087000 * I256C CHAR(256) BASED, 0032 00088000 * I031F FIXED(31) BASED, 0032 00089000 * I031P PTR(31) BASED, 0032 00090000 * I015F FIXED(15) BASED, 0032 00091000 * I015P PTR(15) BASED, 0032 00092000 * I008P PTR(8) BASED, 0032 00093000 * I001C CHAR(1) BASED; 0032 00094000 * DCL 0033 00095000 * 1 DASPATCH LOCAL BDY(DWORD), /* PATCH AREA */ 00096000 * 2 DASPATA(DASPATLN) PTR INIT((DASPATLN)0); 0033 00097000 * END BLSCRECV 0034 00098000 * 0034 00099000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00100000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00101000 * 0034 00102000 * ; 0034 00103000 B @EL00001 0034 00104000 @DATA DS 0H 00105000 @DATD DSECT 00106000 DS 0F 00107000 BLSCRECV CSECT 00108000 DS 0F 00109000 @CF00568 DC F'12' 00110000 @DATD DSECT 00111000 DS 0D 00112000 @ENDDATD EQU * 00113000 BLSCRECV CSECT 00114000 NOPR ((@ENDDATD-@DATD)*16) 00115000 DS 0F 00116000 @SIZDATD DC AL1(0) 00117000 DC AL3(@ENDDATD-@DATD) 00118000 DS 0D 00119000 DASPATCH DS CL80 00120000 ORG DASPATCH 00121000 DASPATA DC 20A(0) 00122000 ORG DASPATCH+80 00123000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00124000 @01 EQU 01 00125000 @02 EQU 02 00126000 @03 EQU 03 00127000 @04 EQU 04 00128000 @05 EQU 05 00129000 @06 EQU 06 00130000 @07 EQU 07 00131000 @08 EQU 08 00132000 @09 EQU 09 00133000 @10 EQU 10 00134000 @11 EQU 11 00135000 @12 EQU 12 00136000 @13 EQU 13 00137000 @14 EQU 14 00138000 @15 EQU 15 00139000 SDWAPTR EQU @01 00140000 GPR02P EQU @02 00141000 GPR13P EQU @13 00142000 GPR00P EQU @00 00143000 GPR12P EQU @12 00144000 GPR14P EQU @14 00145000 GPR01P EQU @01 00146000 GPR15P EQU @15 00147000 SDWA EQU 0 00148000 SDWAPARM EQU SDWA 00149000 SDWAFIOB EQU SDWA+4 00150000 SDWAABCC EQU SDWAFIOB 00151000 SDWACMPF EQU SDWAABCC 00152000 SDWACTL1 EQU SDWA+8 00153000 SDWACMKA EQU SDWACTL1 00154000 SDWAMWPA EQU SDWACTL1+1 00155000 SDWAPMKA EQU SDWACTL1+4 00156000 SDWACTL2 EQU SDWA+16 00157000 SDWACMKP EQU SDWACTL2 00158000 SDWAMWPP EQU SDWACTL2+1 00159000 SDWAPMKP EQU SDWACTL2+4 00160000 SDWAGRSV EQU SDWA+24 00161000 SDWAGR15 EQU SDWAGRSV+60 00162000 SDWANAME EQU SDWA+88 00163000 SDWAEC1 EQU SDWA+104 00164000 SDWAEMK1 EQU SDWAEC1 00165000 SDWAMWP1 EQU SDWAEC1+1 00166000 SDWAINT1 EQU SDWAEC1+2 00167000 SDWANXT1 EQU SDWAEC1+4 00168000 SDWAAEC1 EQU SDWA+112 00169000 SDWAILC1 EQU SDWAAEC1+1 00170000 SDWAINC1 EQU SDWAAEC1+2 00171000 SDWAICD1 EQU SDWAINC1+1 00172000 SDWAEC2 EQU SDWA+120 00173000 SDWAEMK2 EQU SDWAEC2 00174000 SDWAMWP2 EQU SDWAEC2+1 00175000 SDWAINT2 EQU SDWAEC2+2 00176000 SDWANXT2 EQU SDWAEC2+4 00177000 SDWAAEC2 EQU SDWA+128 00178000 SDWAILC2 EQU SDWAAEC2+1 00179000 SDWAINC2 EQU SDWAAEC2+2 00180000 SDWAICD2 EQU SDWAINC2+1 00181000 SDWASRSV EQU SDWA+136 00182000 SDWAIDNT EQU SDWA+200 00183000 SDWAMCH EQU SDWA+204 00184000 SDWASTCK EQU SDWAMCH 00185000 SDWAMCHI EQU SDWAMCH+8 00186000 SDWAMCHS EQU SDWAMCHI 00187000 SDWAMCHD EQU SDWAMCHI+1 00188000 SDWARSR1 EQU SDWAMCH+12 00189000 SDWARSR2 EQU SDWAMCH+13 00190000 SDWAFLGS EQU SDWA+232 00191000 SDWAERRA EQU SDWAFLGS 00192000 SDWAERRB EQU SDWAFLGS+1 00193000 SDWAERRC EQU SDWAFLGS+2 00194000 SDWAERRD EQU SDWAFLGS+3 00195000 SDWAIOFS EQU SDWA+238 00196000 SDWARTYA EQU SDWA+240 00197000 SDWACPUA EQU SDWA+248 00198000 SDWAPARQ EQU SDWA+252 00199000 SDWARCDE EQU SDWAPARQ 00200000 SDWAACF2 EQU SDWAPARQ+1 00201000 SDWAUPRG EQU SDWAACF2 00202000 SDWAFREE EQU SDWAACF2 00203000 SDWAACF3 EQU SDWAPARQ+2 00204000 SDWAACF4 EQU SDWAPARQ+3 00205000 SDWALKWA EQU SDWA+256 00206000 SDWALKWS EQU SDWALKWA 00207000 SDWARECP EQU SDWA+292 00208000 SDWASNPA EQU SDWA+320 00209000 SDWADUMP EQU SDWASNPA 00210000 SDWADPFS EQU SDWADUMP+1 00211000 SDWADDAT EQU SDWASNPA+4 00212000 SDWASDAT EQU SDWADDAT 00213000 SDWASDA0 EQU SDWASDAT 00214000 SDWASDA1 EQU SDWASDAT+1 00215000 SDWAPDAT EQU SDWADDAT+2 00216000 SDWADPSA EQU SDWA+328 00217000 SDWADPSL EQU SDWADPSA 00218000 SDWARA EQU SDWA+400 00219000 SDWADPVA EQU SDWARA+2 00220000 DMCB EQU 0 00221000 DMCBRTC EQU DMCB+12 00222000 DMCBFTY EQU DMCB+20 00223000 DMCBOPN EQU DMCB+21 00224000 DMCBRMOD EQU DMCB+23 00225000 DMCBOUT EQU DMCBRMOD 00226000 DMCBOPTS EQU DMCB+24 00227000 DMCBGKY EQU DMCBOPTS 00228000 DMCBMFLG EQU DMCB+28 00229000 DMCBBUFP EQU DMCB+32 00230000 DMCBKEYP EQU DMCB+44 00231000 DMCBRET EQU DMCB+112 00232000 DMCBCPC EQU DMCB+116 00233000 DMCBARC EQU DMCB+120 00234000 DMCBACBE EQU DMCB+124 00235000 DMCBDCBE EQU DMCBACBE 00236000 DMCBSPEC EQU DMCB+380 00237000 DMCBAMS EQU DMCB+416 00238000 DMCBAUDT EQU DMCB+568 00239000 DMCBLSCP EQU DMCBAUDT+16 00240000 RTRYADDR EQU 0 00241000 REGSAVE EQU 12 00242000 DMCBRQC EQU 0 00243000 I001C EQU 0 00244000 I008P EQU 0 00245000 I015F EQU 0 00246000 I015P EQU 0 00247000 I031F EQU 0 00248000 I031P EQU 0 00249000 I256C EQU 0 00250000 DMCBVSM EQU DMCBAMS 00251000 DMCBQSM EQU DMCBAMS 00252000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00253000 DMCBRES7 EQU DMCBQSM+96 00254000 DMCBDCB EQU DMCBQSM 00255000 DMCBACB EQU DMCBVSM+76 00256000 DMCBRPL EQU DMCBVSM 00257000 DMCBWRK EQU DMCB+648 00258000 DMCBRES8 EQU DMCB+640 00259000 DMCBMODN EQU DMCB+632 00260000 DMCBCARY EQU DMCBAUDT+20 00261000 DMCBCLC EQU DMCBAUDT+12 00262000 DMCBOPC EQU DMCBAUDT+8 00263000 DMCBFRC EQU DMCBAUDT+4 00264000 DMCBALC EQU DMCBAUDT 00265000 DMCBFR EQU DMCB+412 00266000 DMCBRES6 EQU DMCB+410 00267000 DMCBIRSC EQU DMCB+408 00268000 DMCBSUBC EQU DMCB+404 00269000 DMCBDRBP EQU DMCB+400 00270000 DMCBRSZM EQU DMCB+398 00271000 DMCBRSZA EQU DMCB+396 00272000 DMCBCISZ EQU DMCB+394 00273000 DMCBDCBL EQU DMCB+392 00274000 DMCBDCLR EQU DMCB+390 00275000 DMCBDCFM EQU DMCB+389 00276000 DMCBRES5 EQU DMCB+388 00277000 DMCBLBRT EQU DMCB+386 00278000 DMCBLBSQ EQU DMCB+384 00279000 DMCBLBPS EQU DMCB+383 00280000 DMCBLBTY EQU DMCB+382 00281000 DMCBRES4 EQU DMCB+381 00282000 DMCBSPRS EQU DMCBSPEC 00283000 DMCBSPRN EQU DMCBSPEC 00284000 DMCBSPCT EQU DMCBSPEC 00285000 DMCBSPRL EQU DMCBSPEC 00286000 DMCBSPSE EQU DMCB+376 00287000 DMCBSPPR EQU DMCB+372 00288000 DMCBSPTY EQU DMCB+369 00289000 DMCBODIS EQU DMCB+368 00290000 DMCBDISP EQU DMCB+367 00291000 DMCBSTAT EQU DMCB+366 00292000 DMCBRES3 EQU DMCB+364 00293000 DMCBMEMB EQU DMCB+356 00294000 DMCBMODL EQU DMCB+348 00295000 DMCBRES9 EQU DMCB+340 00296000 DMCBPID EQU DMCB+332 00297000 DMCBTYPE EQU DMCB+328 00298000 DMCBDSN EQU DMCB+284 00299000 DMCBUNIT EQU DMCB+276 00300000 DMCBDSOR EQU DMCB+274 00301000 DMCBVOL EQU DMCB+268 00302000 DMCBDDNM EQU DMCB+260 00303000 DMCBSYNM EQU DMCB+132 00304000 DMCBRPLF EQU DMCB+128 00305000 DMCBSTL EQU DMCB+96 00306000 DMCBEOB EQU DMCB+92 00307000 DMCBFRE EQU DMCB+88 00308000 DMCBRES2 EQU DMCB+85 00309000 DMCBSPID EQU DMCB+84 00310000 DMCBRESC EQU DMCB+80 00311000 DMCBZZ1P EQU DMCB+76 00312000 DMCBMSGS EQU DMCB+72 00313000 DMCBMSG0 EQU DMCB+68 00314000 DMCBRI EQU DMCB+64 00315000 DMCBRRL EQU DMCB+60 00316000 DMCBRBA EQU DMCB+56 00317000 DMCBMSG EQU DMCB+52 00318000 DMCBKEYL EQU DMCB+48 00319000 DMCBKPC EQU DMCBKEYP 00320000 DMCBORL EQU DMCB+40 00321000 DMCBBLEN EQU DMCB+36 00322000 DMCBBFPC EQU DMCBBUFP 00323000 DMCBRES1 EQU DMCB+31 00324000 DMCBACCM EQU DMCB+30 00325000 DMCBREJ EQU DMCB+29 00326000 DMCBRESB EQU DMCBMFLG 00327000 DMCBFMOD EQU DMCBMFLG 00328000 DMCBLOPT EQU DMCB+27 00329000 DMCBLRM EQU DMCB+26 00330000 DMCBLRQ EQU DMCB+25 00331000 DMCBOPRS EQU DMCBOPTS 00332000 DMCBLRD EQU DMCBOPTS 00333000 DMCBBWD EQU DMCBOPTS 00334000 DMCBUPD EQU DMCBOPTS 00335000 DMCBAPX EQU DMCBOPTS 00336000 DMCBRNO EQU DMCBGKY 00337000 DMCBKYD EQU DMCBOPTS 00338000 DMCBRMRS EQU DMCBRMOD 00339000 DMCBRM5 EQU DMCBRMOD 00340000 DMCBRM6 EQU DMCBRMOD 00341000 DMCBTMP EQU DMCBOUT 00342000 DMCBRQST EQU DMCB+22 00343000 DMCBRESA EQU DMCBOPN 00344000 DMCBSOUT EQU DMCBOPN 00345000 DMCBSIN EQU DMCBOPN 00346000 DMCBVSF EQU DMCBFTY 00347000 DMCBKSF EQU DMCBFTY 00348000 DMCBFTRS EQU DMCBFTY 00349000 DMCBSHF EQU DMCBFTY 00350000 DMCBIRL EQU DMCB+16 00351000 DMCBTVP EQU DMCB+8 00352000 DMCBNEXT EQU DMCB+4 00353000 DMCBID EQU DMCB 00354000 @NM00043 EQU SDWA+512 00355000 SDWAVRA EQU SDWARA+4 00356000 SDWAURAL EQU SDWARA+3 00357000 @NM00042 EQU SDWADPVA 00358000 SDWAEBC EQU SDWADPVA 00359000 SDWAHEX EQU SDWADPVA 00360000 SDWAVRAL EQU SDWARA 00361000 SDWAERTM EQU SDWA+396 00362000 SDWACOMP EQU SDWA+392 00363000 SDWARCPL EQU SDWA+364 00364000 @NM00041 EQU SDWADPSA+32 00365000 SDWATO4 EQU SDWADPSL+28 00366000 SDWAFRM4 EQU SDWADPSL+24 00367000 SDWATO3 EQU SDWADPSL+20 00368000 SDWAFRM3 EQU SDWADPSL+16 00369000 SDWATO2 EQU SDWADPSL+12 00370000 SDWAFRM2 EQU SDWADPSL+8 00371000 SDWATO1 EQU SDWADPSL+4 00372000 SDWAFRM1 EQU SDWADPSL 00373000 @NM00040 EQU SDWADDAT+3 00374000 @NM00039 EQU SDWAPDAT 00375000 SDWAUSPL EQU SDWAPDAT 00376000 SDWADPSW EQU SDWAPDAT 00377000 SDWATJPA EQU SDWAPDAT 00378000 SDWATLPA EQU SDWAPDAT 00379000 SDWADREG EQU SDWAPDAT 00380000 SDWADSAH EQU SDWAPDAT 00381000 SDWADSAS EQU SDWAPDAT 00382000 @NM00038 EQU SDWASDA1 00383000 SDWAERR EQU SDWASDA1 00384000 SDWAIO EQU SDWASDA1 00385000 SDWADM EQU SDWASDA0 00386000 SDWAQQS EQU SDWASDA0 00387000 SDWACBS EQU SDWASDA0 00388000 SDWAGTF EQU SDWASDA0 00389000 SDWASWA EQU SDWASDA0 00390000 SDWALSQA EQU SDWASDA0 00391000 SDWASQA EQU SDWASDA0 00392000 SDWANUC EQU SDWASDA0 00393000 @NM00037 EQU SDWADUMP+2 00394000 @NM00036 EQU SDWADPFS 00395000 SDWASLST EQU SDWADPFS 00396000 @NM00035 EQU SDWADPFS 00397000 SDWAENSN EQU SDWADPFS 00398000 SDWADLST EQU SDWADPFS 00399000 SDWADPT EQU SDWADPFS 00400000 SDWADPID EQU SDWADUMP 00401000 SDWADPLA EQU SDWA+316 00402000 SDWAREXN EQU SDWARECP+16 00403000 SDWACSCT EQU SDWARECP+8 00404000 SDWAMODN EQU SDWARECP 00405000 SDWASEQ# EQU SDWA+290 00406000 SDWAASID EQU SDWA+288 00407000 SDWATALW EQU SDWALKWS+28 00408000 SDWATDLW EQU SDWALKWS+24 00409000 SDWATNLW EQU SDWALKWS+20 00410000 SDWAAPLW EQU SDWALKWS+16 00411000 SDWAIPLW EQU SDWALKWS+12 00412000 SDWAILLW EQU SDWALKWS+8 00413000 SDWAIULW EQU SDWALKWS+4 00414000 SDWAICLW EQU SDWALKWS 00415000 SDWAFLLK EQU SDWAACF4 00416000 SDWACMS EQU SDWAACF4 00417000 SDWAOPTM EQU SDWAACF4 00418000 SDWATADB EQU SDWAACF4 00419000 SDWATDNB EQU SDWAACF4 00420000 SDWATNCB EQU SDWAACF4 00421000 SDWAILCH EQU SDWAACF4 00422000 SDWAIUCB EQU SDWAACF4 00423000 SDWAICAT EQU SDWAACF3 00424000 SDWAIPRG EQU SDWAACF3 00425000 SDWASALL EQU SDWAACF3 00426000 SDWAASMP EQU SDWAACF3 00427000 SDWADISP EQU SDWAACF3 00428000 @NM00034 EQU SDWAACF3 00429000 @NM00033 EQU SDWAACF2 00430000 @NM00032 EQU SDWAACF2 00431000 SDWASPIN EQU SDWAACF2 00432000 @NM00031 EQU SDWAACF2 00433000 SDWARCRD EQU SDWAACF2 00434000 SDWALCPU EQU SDWACPUA+2 00435000 @NM00030 EQU SDWACPUA 00436000 SDWARECA EQU SDWA+244 00437000 SDWACPUI EQU SDWA+239 00438000 @NM00029 EQU SDWAIOFS 00439000 SDWANIOP EQU SDWAIOFS 00440000 SDWANOIO EQU SDWAIOFS 00441000 SDWAIOHT EQU SDWAIOFS 00442000 SDWAIOQR EQU SDWAIOFS 00443000 SDWAFMID EQU SDWA+236 00444000 SDWAERFL EQU SDWAERRD 00445000 SDWAMCIV EQU SDWAERRD 00446000 SDWARPIV EQU SDWAERRD 00447000 SDWAMABD EQU SDWAERRD 00448000 SDWACTS EQU SDWAERRD 00449000 SDWASTAE EQU SDWAERRD 00450000 SDWANRBE EQU SDWAERRD 00451000 SDWACLUP EQU SDWAERRD 00452000 @NM00028 EQU SDWAERRC 00453000 SDWAEAS EQU SDWAERRC 00454000 SDWAPERC EQU SDWAERRC 00455000 SDWAIRB EQU SDWAERRC 00456000 SDWASTAI EQU SDWAERRC 00457000 SDWASTAF EQU SDWAERRC 00458000 SDWASRBM EQU SDWAERRB 00459000 SDWALDIS EQU SDWAERRB 00460000 SDWAENRB EQU SDWAERRB 00461000 SDWATYP1 EQU SDWAERRB 00462000 @NM00027 EQU SDWAERRB 00463000 SDWAPGIO EQU SDWAERRA 00464000 SDWATEXC EQU SDWAERRA 00465000 SDWASVCE EQU SDWAERRA 00466000 SDWAABTM EQU SDWAERRA 00467000 SDWASVCD EQU SDWAERRA 00468000 SDWARKEY EQU SDWAERRA 00469000 SDWAPCHK EQU SDWAERRA 00470000 SDWAMCHK EQU SDWAERRA 00471000 SDWATIME EQU SDWAMCH+20 00472000 SDWARFSA EQU SDWAMCH+16 00473000 @NM00026 EQU SDWAMCH+14 00474000 SDWAVEQR EQU SDWARSR2 00475000 SDWAPGFX EQU SDWARSR2 00476000 SDWAFLSQ EQU SDWARSR2 00477000 SDWAFSQA EQU SDWARSR2 00478000 SDWANUCL EQU SDWARSR2 00479000 SDWASPER EQU SDWARSR2 00480000 SDWAINTC EQU SDWARSR2 00481000 SDWAOFLN EQU SDWARSR2 00482000 SDWACHNG EQU SDWARSR1 00483000 SDWAMSER EQU SDWARSR1 00484000 @NM00025 EQU SDWARSR1 00485000 SDWACPID EQU SDWAMCH+10 00486000 SDWATERR EQU SDWAMCHD 00487000 SDWAFPRX EQU SDWAMCHD 00488000 SDWAINSF EQU SDWAMCHD 00489000 SDWAACR EQU SDWAMCHD 00490000 SDWASCK EQU SDWAMCHD 00491000 SDWAPSWU EQU SDWAMCHD 00492000 SDWAREGU EQU SDWAMCHD 00493000 SDWASKYF EQU SDWAMCHD 00494000 @NM00024 EQU SDWAMCHS 00495000 SDWARSRF EQU SDWAMCHS 00496000 SDWARSRC EQU SDWAMCHS 00497000 SDWAINVP EQU SDWAMCHS 00498000 SDWATSVL EQU SDWAMCHS 00499000 SDWARCDF EQU SDWAMCHS 00500000 SDWASRVL EQU SDWAMCHS 00501000 SDWASCKE EQU SDWASTCK+4 00502000 SDWASCKB EQU SDWASTCK 00503000 SDWALNTH EQU SDWAIDNT+1 00504000 SDWASPID EQU SDWAIDNT 00505000 SDWASR15 EQU SDWASRSV+60 00506000 SDWASR14 EQU SDWASRSV+56 00507000 SDWASR13 EQU SDWASRSV+52 00508000 SDWASR12 EQU SDWASRSV+48 00509000 SDWASR11 EQU SDWASRSV+44 00510000 SDWASR10 EQU SDWASRSV+40 00511000 SDWASR09 EQU SDWASRSV+36 00512000 SDWASR08 EQU SDWASRSV+32 00513000 SDWASR07 EQU SDWASRSV+28 00514000 SDWASR06 EQU SDWASRSV+24 00515000 SDWASR05 EQU SDWASRSV+20 00516000 SDWASR04 EQU SDWASRSV+16 00517000 SDWASR03 EQU SDWASRSV+12 00518000 SDWASR02 EQU SDWASRSV+8 00519000 SDWASR01 EQU SDWASRSV+4 00520000 SDWASR00 EQU SDWASRSV 00521000 SDWATRN2 EQU SDWAAEC2+4 00522000 SDWAIPC2 EQU SDWAICD2 00523000 SDWAIMC2 EQU SDWAICD2 00524000 SDWAIPR2 EQU SDWAICD2 00525000 @NM00023 EQU SDWAINC2 00526000 @NM00022 EQU SDWAILC2 00527000 SDWAIL2 EQU SDWAILC2 00528000 @NM00021 EQU SDWAILC2 00529000 @NM00020 EQU SDWAAEC2 00530000 SDWAADD2 EQU SDWANXT2+1 00531000 @NM00019 EQU SDWANXT2 00532000 @NM00018 EQU SDWAEC2+3 00533000 SDWASGN2 EQU SDWAINT2 00534000 SDWAEXP2 EQU SDWAINT2 00535000 SDWADEC2 EQU SDWAINT2 00536000 SDWAFPO2 EQU SDWAINT2 00537000 SDWACC2 EQU SDWAINT2 00538000 @NM00017 EQU SDWAINT2 00539000 SDWAPGM2 EQU SDWAMWP2 00540000 SDWAWAT2 EQU SDWAMWP2 00541000 SDWAMCK2 EQU SDWAMWP2 00542000 SDWAECT2 EQU SDWAMWP2 00543000 SDWAKEY2 EQU SDWAMWP2 00544000 SDWAEXT2 EQU SDWAEMK2 00545000 SDWAIO2 EQU SDWAEMK2 00546000 SDWATRM2 EQU SDWAEMK2 00547000 @NM00016 EQU SDWAEMK2 00548000 SDWAPER2 EQU SDWAEMK2 00549000 @NM00015 EQU SDWAEMK2 00550000 SDWATRAN EQU SDWAAEC1+4 00551000 SDWAIPC1 EQU SDWAICD1 00552000 SDWAIMC1 EQU SDWAICD1 00553000 SDWAIPR1 EQU SDWAICD1 00554000 @NM00014 EQU SDWAINC1 00555000 @NM00013 EQU SDWAILC1 00556000 SDWAIL1 EQU SDWAILC1 00557000 @NM00012 EQU SDWAILC1 00558000 @NM00011 EQU SDWAAEC1 00559000 SDWAADD1 EQU SDWANXT1+1 00560000 @NM00010 EQU SDWANXT1 00561000 @NM00009 EQU SDWAEC1+3 00562000 SDWASGN1 EQU SDWAINT1 00563000 SDWAEXP1 EQU SDWAINT1 00564000 SDWADEC1 EQU SDWAINT1 00565000 SDWAFPO1 EQU SDWAINT1 00566000 SDWACC1 EQU SDWAINT1 00567000 @NM00008 EQU SDWAINT1 00568000 SDWAPGM1 EQU SDWAMWP1 00569000 SDWAWAT1 EQU SDWAMWP1 00570000 SDWAMCK1 EQU SDWAMWP1 00571000 SDWAECT1 EQU SDWAMWP1 00572000 SDWAKEY1 EQU SDWAMWP1 00573000 SDWAEXT1 EQU SDWAEMK1 00574000 SDWAIO1 EQU SDWAEMK1 00575000 SDWATRM1 EQU SDWAEMK1 00576000 @NM00007 EQU SDWAEMK1 00577000 SDWAPER1 EQU SDWAEMK1 00578000 @NM00006 EQU SDWAEMK1 00579000 SDWAIOBR EQU SDWA+100 00580000 SDWAEPA EQU SDWA+96 00581000 @NM00005 EQU SDWANAME+4 00582000 SDWARBAD EQU SDWANAME 00583000 SDWAGR14 EQU SDWAGRSV+56 00584000 SDWAGR13 EQU SDWAGRSV+52 00585000 SDWAGR12 EQU SDWAGRSV+48 00586000 SDWAGR11 EQU SDWAGRSV+44 00587000 SDWAGR10 EQU SDWAGRSV+40 00588000 SDWAGR09 EQU SDWAGRSV+36 00589000 SDWAGR08 EQU SDWAGRSV+32 00590000 SDWAGR07 EQU SDWAGRSV+28 00591000 SDWAGR06 EQU SDWAGRSV+24 00592000 SDWAGR05 EQU SDWAGRSV+20 00593000 SDWAGR04 EQU SDWAGRSV+16 00594000 SDWAGR03 EQU SDWAGRSV+12 00595000 SDWAGR02 EQU SDWAGRSV+8 00596000 SDWAGR01 EQU SDWAGRSV+4 00597000 SDWAGR00 EQU SDWAGRSV 00598000 SDWANXTP EQU SDWACTL2+5 00599000 SDWASGP EQU SDWAPMKP 00600000 SDWAEUP EQU SDWAPMKP 00601000 SDWADOP EQU SDWAPMKP 00602000 SDWAFPP EQU SDWAPMKP 00603000 SDWACCP EQU SDWAPMKP 00604000 SDWAILP EQU SDWAPMKP 00605000 SDWAINTP EQU SDWACTL2+2 00606000 SDWASPVP EQU SDWAMWPP 00607000 SDWAWATP EQU SDWAMWPP 00608000 SDWAMCKP EQU SDWAMWPP 00609000 @NM00004 EQU SDWAMWPP 00610000 SDWAKEYP EQU SDWAMWPP 00611000 SDWAEXTP EQU SDWACMKP 00612000 SDWAIOP EQU SDWACMKP 00613000 SDWANXTA EQU SDWACTL1+5 00614000 SDWASGA EQU SDWAPMKA 00615000 SDWAEUA EQU SDWAPMKA 00616000 SDWADOA EQU SDWAPMKA 00617000 SDWAFPA EQU SDWAPMKA 00618000 SDWACCA EQU SDWAPMKA 00619000 SDWAILA EQU SDWAPMKA 00620000 SDWAINTA EQU SDWACTL1+2 00621000 SDWASPVA EQU SDWAMWPA 00622000 SDWAWATA EQU SDWAMWPA 00623000 SDWAMCKA EQU SDWAMWPA 00624000 @NM00003 EQU SDWAMWPA 00625000 SDWAKEYA EQU SDWAMWPA 00626000 SDWAEXTA EQU SDWACMKA 00627000 SDWAIOA EQU SDWACMKA 00628000 SDWACMPC EQU SDWAABCC+1 00629000 @NM00002 EQU SDWACMPF 00630000 SDWASTCC EQU SDWACMPF 00631000 @NM00001 EQU SDWACMPF 00632000 SDWASTEP EQU SDWACMPF 00633000 SDWAREQ EQU SDWACMPF 00634000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00635000 @ENDDATA EQU * 00636000 END BLSCRECV,(C'PLS1113',0701,78066) 00637000