TITLE 'EP=BLSCFREE -- FREE (UNALLOCATE) AN IPCS DAS DATA SET *00001000 ' 00002000 * /* CHANGE ACTIVITY 00003000 * THIS MODULE IS WRITTEN FOR @G57LPSR 00004000 BLSCFREE CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSCFREE 78.066' 0002 00010000 DROP @15 00011000 @PROLOG STM @14,@12,12(@13) 0002 00012000 BALR @12,0 0002 00013000 @PSTART DS 0H 0002 00014000 USING @PSTART,@12 0002 00015000 L @00,@SIZDATD 0002 00016000 BLSCGETF R,LV=(0) 00017000 LR @11,@01 0002 00018000 USING @DATD,@11 0002 00019000 ST @13,@SA00001+4 0002 00020000 LM @00,@01,20(@13) 0002 00021000 ST @11,8(,@13) 0002 00022000 LR @13,@11 0002 00023000 MVC @PC00001(12),0(@01) 0002 00024000 EJECT 00025000 * 0121 00026000 * /*****************************************************************/ 00027000 * /* */ 00028000 * /* INITIALIZE FOR FREE FUNCTION */ 00029000 * /* */ 00030000 * /*****************************************************************/ 00031000 * 0121 00032000 * DMCBPP=ADDR(DMCBPPAR); /* BASE THE USER'S DMCB POINTER */ 00033000 L DMCBPP,@PC00001+4 0121 00034000 * DMCBPTR=DMCBP; /* BASE THE DMCB */ 00035000 L DMCBPTR,DMCBP(,DMCBPP) 0122 00036000 * RESPECIFY 0123 00037000 * GPR13P RESTRICTED; 0123 00038000 * DMCBFRC=CSAVR14; /* REMEMBER CALLER'S R14 */ 00039000 L @10,MSAVHSA(,GPR13P) 0124 00040000 L @10,CSAVR14(,@10) 0124 00041000 ST @10,DMCBFRC(,DMCBPTR) 0124 00042000 * RESPECIFY 0125 00043000 * GPR13P UNRESTRICTED; 0125 00044000 * MODNAME=LMODNMC; /* INIT THE MODULE NAME */ 00045000 MVC MODNAME(8),@CC00949 0126 00046000 * RETCODE=F0C; /* INIT THE MODULE RETURN CODE */ 00047000 SLR @10,@10 0127 00048000 ST @10,RETCODE 0127 00049000 * SUBCODE=F0C; /* INIT THE SUBROUTINE RETURN 0128 00050000 * CODE */ 00051000 * 0128 00052000 ST @10,SUBCODE 0128 00053000 * /*****************************************************************/ 00054000 * /* */ 00055000 * /* OBTAIN CURRENT TASK VARIABLE FOR CURRENT TCB */ 00056000 * /* */ 00057000 * /*****************************************************************/ 00058000 * 0129 00059000 * CALL BLSCRTCB(DMCB); /* OBTAIN CURRENT TASK VAR ZZ2 */ 00060000 * 0129 00061000 ST DMCBPTR,@AL00001 0129 00062000 L @15,@CV00923 0129 00063000 LA @01,@AL00001 0129 00064000 BALR @14,@15 0129 00065000 * /*****************************************************************/ 00066000 * /* */ 00067000 * /* PERFORM DYNAMIC FREE FUNCTION */ 00068000 * /* */ 00069000 * /*****************************************************************/ 00070000 * 0130 00071000 * CALL BLSCFDYN(DMCB,PLIST); /* PERFORM DYNAMIC FREE FUNCTION */ 00072000 ST DMCBPTR,@AL00001 0130 00073000 L @10,@PC00001+8 0130 00074000 ST @10,@AL00001+4 0130 00075000 L @15,@CV00922 0130 00076000 LA @01,@AL00001 0130 00077000 BALR @14,@15 0130 00078000 * RESPECIFY 0131 00079000 * GPR15F RESTRICTED; 0131 00080000 * RETCODE=GPR15F; /* SAVE THE RETURN CODE FOR TEST */ 00081000 ST GPR15F,RETCODE 0132 00082000 * RESPECIFY 0133 00083000 * GPR15F UNRESTRICTED; 0133 00084000 EJECT 00085000 * 0134 00086000 * /*****************************************************************/ 00087000 * /* */ 00088000 * /* HANDLE VSAM SPACE RELEASE FOR DISP = DELETE */ 00089000 * /* */ 00090000 * /*****************************************************************/ 00091000 * 0134 00092000 * IF RETCODE<=WARNING& /* TEST SUCCESSFUL DS FREE AND */ 00093000 * DMCBODIS=DISPDEL& /* DS OVERRIDE DISP = DELETE */ 00094000 * DMCBVSF=ON THEN /* AND VSAM ACCESS METHOD */ 00095000 L @10,RETCODE 0134 00096000 C @10,@CF00041 0134 00097000 BH @RF00134 0134 00098000 CLI DMCBODIS(DMCBPTR),4 0134 00099000 BNE @RF00134 0134 00100000 TM DMCBVSF(DMCBPTR),B'00000001' 0134 00101000 BNO @RF00134 0134 00102000 * DO; /* RELEASE VSAM DASD SPACE USING 00103000 * ACCESS METHOD SERVICES */ 00104000 * CALL BLSCFAMS(DMCB,PLIST); /* PERFORM FREE VSAM DASD SPACE */ 00105000 ST DMCBPTR,@AL00001 0136 00106000 L @10,@PC00001+8 0136 00107000 ST @10,@AL00001+4 0136 00108000 L @15,@CV00921 0136 00109000 LA @01,@AL00001 0136 00110000 BALR @14,@15 0136 00111000 * RESPECIFY 0137 00112000 * GPR15F RESTRICTED; 0137 00113000 * SUBCODE=GPR15F; /* SAVE RETURN CODE FOR TEST */ 00114000 ST GPR15F,SUBCODE 0138 00115000 * RESPECIFY 0139 00116000 * GPR15F UNRESTRICTED; 0139 00117000 * IF SUBCODE^=F0C THEN /* TEST FOR SUBROUTINE ERROR */ 00118000 L @10,SUBCODE 0140 00119000 LTR @10,@10 0140 00120000 BZ @RF00140 0140 00121000 * DO; /* FREE VSAM DASD SPACE FAILED */ 00122000 * RETCODE=ERROR; 0142 00123000 MVC RETCODE(4),@CF00052 0142 00124000 * END; /* FREE VSAM DASD SPACE FAILED */ 00125000 * END; /* RELEASE VSAM DASD SPACE USING 00126000 * ACCESS METHOD SERVICES */ 00127000 @RF00140 DS 0H 0145 00128000 EJECT 00129000 * 0145 00130000 * /*****************************************************************/ 00131000 * /* */ 00132000 * /* FREE FUNCTION COMPLETE, SETUP TO RETURN TO CALLER */ 00133000 * /* */ 00134000 * /*****************************************************************/ 00135000 * 0145 00136000 * RESPECIFY 0145 00137000 * GPR13P RESTRICTED; 0145 00138000 @RF00134 DS 0H 0146 00139000 * CSAVR15=RETCODE; /* PASS RETCODE TO CALLER */ 00140000 L @10,MSAVHSA(,GPR13P) 0146 00141000 L @07,RETCODE 0146 00142000 ST @07,CSAVR15(,@10) 0146 00143000 * CSAVR0=DMCBMSG; /* PASS MESSAGE CHAIN TO CALLER */ 00144000 L @07,DMCBMSG(,DMCBPTR) 0147 00145000 ST @07,CSAVR0(,@10) 0147 00146000 * RESPECIFY 0148 00147000 * GPR13P UNRESTRICTED; 0148 00148000 * 0148 00149000 * /*****************************************************************/ 00150000 * /* */ 00151000 * /* UNHOOK THE DMCB FROM THE DMCB CHAIN ANCHORED AT ZZ1DMCBP */ 00152000 * /* */ 00153000 * /*****************************************************************/ 00154000 * 0149 00155000 * IF ZZ1DMCBP=ZZZNULL THEN /* TEST FOR EMPTY DMCB CHAIN */ 00156000 L @10,@CF00065 0149 00157000 L @07,DMCBTVP(,DMCBPTR) 0149 00158000 L @07,ZZ2ZZ1P(,@07) 0149 00159000 CL @10,ZZ1DMCBP(,@07) 0149 00160000 BNE @RF00149 0149 00161000 * DO; /* EMPTY DMCB CHAIN */ 00162000 * RESPECIFY 0151 00163000 * GPR15F RESTRICTED; 0151 00164000 * GPR15F=F4C; /* REASON CODE -- EMPTY CHAIN */ 00165000 LA GPR15F,4 0152 00166000 * RESPECIFY 0153 00167000 * GPR15F UNRESTRICTED; 0153 00168000 * DO; /* ABEND(F135C) DUMP USER */ 00169000 * RESPECIFY 0155 00170000 * (GPR01F) RESTRICTED; 0155 00171000 * GPR01F=(F135C)&'00000FFF'X;/* COMP CODE IN BITS 20-31 */ 00172000 LA GPR01F,135 0156 00173000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00174000 OR GPR01F,@10 0157 00175000 * SVC(13); /* ISSUE ABEND SVC */ 00176000 SVC 13 0158 00177000 * RESPECIFY 0159 00178000 * (GPR01F) UNRESTRICTED; 0159 00179000 * END; /* ABEND(F135C) DUMP USER DMCB 0160 00180000 * CHAIN HANDLING ERROR */ 00181000 * END; /* EMPTY DMCB CHAIN */ 00182000 * ELSE 0162 00183000 * DO; /* CHAIN NOT EMPTY */ 00184000 B @RC00149 0162 00185000 @RF00149 DS 0H 0163 00186000 * OLDPTR=ADDR(ZZ1DMCBP); /* INIT PREVIOUS DMCB POINTER TO 00187000 * ANCHOR */ 00188000 L @10,DMCBTVP(,DMCBPTR) 0163 00189000 L @10,ZZ2ZZ1P(,@10) 0163 00190000 LA OLDPTR,ZZ1DMCBP(,@10) 0163 00191000 * WORKPTR=ZZ1DMCBP; /* INIT CURRENT DMCB POINTER TO 00192000 * HEAD OF CHAIN */ 00193000 L WORKPTR,ZZ1DMCBP(,@10) 0164 00194000 * DO WHILE WORKPTR^=DMCBPTR&WORKPTR->DMCBNEXT^=ZZZNULL;/* 0165 00195000 * SEARCH DMCB CHAIN FOR THIS 0165 00196000 * DMCB OR END OF CHAIN */ 00197000 B @DE00165 0165 00198000 @DL00165 DS 0H 0166 00199000 * IF WORKPTR->DMCBID^=LDMCBC THEN/* TEST FOR INVALID DMCB 0166 00200000 * BLOCK */ 00201000 CLC DMCBID(4,WORKPTR),@CC00945 0166 00202000 BE @RF00166 0166 00203000 * DO; /* INVALID DMCB OR DMCB POINTER */ 00204000 * RESPECIFY 0168 00205000 * GPR15F RESTRICTED; 0168 00206000 * GPR15F=F8C; /* REASON CODE -- INVALID DMCB OR 00207000 * DMCB POINTER */ 00208000 LA GPR15F,8 0169 00209000 * RESPECIFY 0170 00210000 * GPR15F UNRESTRICTED; 0170 00211000 * DO; /* ABEND(F135C) DUMP USER */ 00212000 * RESPECIFY 0172 00213000 * (GPR01F) RESTRICTED; 0172 00214000 * GPR01F=(F135C)&'00000FFF'X;/* COMP CODE IN BITS 20-31*/ 00215000 LA GPR01F,135 0173 00216000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00217000 O GPR01F,@CF00065 0174 00218000 * SVC(13); /* ISSUE ABEND SVC */ 00219000 SVC 13 0175 00220000 * RESPECIFY 0176 00221000 * (GPR01F) UNRESTRICTED; 0176 00222000 * END; /* ABEND(F135C) DUMP USER DMCB 0177 00223000 * CHAIN HANDLING ERROR */ 00224000 * END; /* INVALID DMCB OR DMCB POINTER */ 00225000 * OLDPTR=WORKPTR; /* SET UP FOR NEXT ENTRY */ 00226000 @RF00166 LR OLDPTR,WORKPTR 0179 00227000 * WORKPTR=WORKPTR->DMCBNEXT; 0180 00228000 L WORKPTR,DMCBNEXT(,WORKPTR) 0180 00229000 * END; /* SEARCH DMCB CHAIN FOR THIS 0181 00230000 * DMCB OR END OF CHAIN */ 00231000 @DE00165 CR WORKPTR,DMCBPTR 0181 00232000 BE @DC00165 0181 00233000 CLC DMCBNEXT(4,WORKPTR),@CF00065 0181 00234000 BNE @DL00165 0181 00235000 @DC00165 DS 0H 0182 00236000 * IF WORKPTR^=DMCBPTR THEN /* TEST FOR DMCB NOT ON CHAIN */ 00237000 CR WORKPTR,DMCBPTR 0182 00238000 BE @RF00182 0182 00239000 * DO; /* DMCB NOT ON CHAIN */ 00240000 * RESPECIFY 0184 00241000 * GPR15F RESTRICTED; 0184 00242000 * GPR15F=F12C; /* REASON CODE -- DMCB NOT ON 0185 00243000 * CHAIN */ 00244000 LA GPR15F,12 0185 00245000 * RESPECIFY 0186 00246000 * GPR15F UNRESTRICTED; 0186 00247000 * DO; /* ABEND(F135C) DUMP USER */ 00248000 * RESPECIFY 0188 00249000 * (GPR01F) RESTRICTED; 0188 00250000 * GPR01F=(F135C)&'00000FFF'X;/* COMP CODE IN BITS 20-31 */ 00251000 LA GPR01F,135 0189 00252000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00253000 O GPR01F,@CF00065 0190 00254000 * SVC(13); /* ISSUE ABEND SVC */ 00255000 SVC 13 0191 00256000 * RESPECIFY 0192 00257000 * (GPR01F) UNRESTRICTED; 0192 00258000 * END; /* ABEND(F135C) DUMP USER DMCB 0193 00259000 * CHAIN HANDLING ERROR */ 00260000 * END; /* DMCB NOT ON CHAIN */ 00261000 * IF OLDPTR=ADDR(ZZ1DMCBP) THEN/* TEST FOR FIRST ENTRY */ 00262000 @RF00182 L @10,DMCBTVP(,DMCBPTR) 0195 00263000 L @10,ZZ2ZZ1P(,@10) 0195 00264000 LA @07,ZZ1DMCBP(,@10) 0195 00265000 CR OLDPTR,@07 0195 00266000 BNE @RF00195 0195 00267000 * ZZ1DMCBP=DMCBNEXT; /* UNHOOK FIRST ENTRY */ 00268000 L @07,DMCBNEXT(,DMCBPTR) 0196 00269000 ST @07,ZZ1DMCBP(,@10) 0196 00270000 * ELSE 0197 00271000 * OLDPTR->DMCBNEXT=DMCBNEXT;/* UNHOOK NTH ENTRY */ 00272000 B @RC00195 0197 00273000 @RF00195 L @10,DMCBNEXT(,DMCBPTR) 0197 00274000 ST @10,DMCBNEXT(,OLDPTR) 0197 00275000 * DMCBNEXT=ZZZNULL; /* MARK DMCB NOT CHAINED */ 00276000 @RC00195 MVC DMCBNEXT(4,DMCBPTR),@CF00065 0198 00277000 * END; /* CHAIN NOT EMPTY */ 00278000 SPACE 2 00279000 * IF RETCODE<=WARNING THEN /* TEST FOR SUCCESSFUL FREE */ 00280000 @RC00149 L @10,RETCODE 0200 00281000 LA @07,4 0200 00282000 CR @10,@07 0200 00283000 BH @RF00200 0200 00284000 * DO; /* FREE THE DMCB */ 00285000 * 0201 00286000 * /*************************************************************/ 00287000 * /* */ 00288000 * /* FREE SUCCESSFUL, FREE THE DMCB */ 00289000 * /* */ 00290000 * /*************************************************************/ 00291000 * 0202 00292000 * DMCBP=ZZZNULL; /* NULL CALLER'S DMCB POINTER */ 00293000 MVC DMCBP(4,DMCBPP),@CF00065 0202 00294000 * DMCBID=LBCMDC; /* INVALIDATE THE DMCB */ 00295000 MVC DMCBID(4,DMCBPTR),@CC00947 0203 00296000 * RESPECIFY 0204 00297000 * GPR13P RESTRICTED; 0204 00298000 * IF RETCODE=WARNING THEN /* TEST FOR WARNING CASE */ 00299000 CR @10,@07 0205 00300000 BNE @RF00205 0205 00301000 * CSAVR1=DMCBIRSC; /* PASS THE INFO REASON CODE TO 00302000 * CALLER */ 00303000 L @10,MSAVHSA(,GPR13P) 0206 00304000 LH @05,DMCBIRSC(,DMCBPTR) 0206 00305000 N @05,@CF00964 0206 00306000 ST @05,CSAVR1(,@10) 0206 00307000 * GPR13P=MSAVHSA; /* CALLER'S REGISTER 13 */ 00308000 @RF00205 L GPR13P,MSAVHSA(,GPR13P) 0207 00309000 * DO; /* FREEMAIN(R) LV(DMCBEOB-ADDR(DM 00310000 * CB))SP(DMCBSPID)A(DMCB) */ 00311000 * RESPECIFY 0209 00312000 * (GPR01F, 0209 00313000 * GPR00F) RESTRICTED; 0209 00314000 * GPR00F=DMCBEOB-ADDR(DMCB);/* LENGTH REQUESTED */ 00315000 L GPR00F,DMCBEOB(,DMCBPTR) 0210 00316000 SLR GPR00F,DMCBPTR 0210 00317000 * GPR01F=DMCBSPID; /* SP IN REG 1 */ 00318000 SLR GPR01F,GPR01F 0211 00319000 IC GPR01F,DMCBSPID(,DMCBPTR) 0211 00320000 * GEN(SLL GPR01F,24) 0212 00321000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0212 00322000 SLL GPR01F,24 00323000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00324000 OR GPR00F,GPR01F 0213 00325000 * GPR01F=ADDR(DMCB); /* SET REGISTER ONE */ 00326000 LR GPR01F,DMCBPTR 0214 00327000 * SVC(10); /* R-FORM OF GETMAIN */ 00328000 SVC 10 0215 00329000 * RESPECIFY 0216 00330000 * (GPR01F, 0216 00331000 * GPR00F) UNRESTRICTED; 0216 00332000 * END; /* FREEMAIN(R) LV(DMCBEOB-ADDR(DM 00333000 * CB))SP(DMCBSPID)A(DMCB) */ 00334000 */* DATA ACCESS SERVICES WORK AREA */ 00335000 * 0218 00336000 * GENERATE EXIT NOSEQFLOW REFS(GPR13P); 0218 00337000 * /* 00338000 RETURN (14,12) RETURN TO CALLER 00339000 * RESPECIFY 0219 00340000 * GPR13P UNRESTRICTED; 0219 00341000 * END; /* FREE THE DMCB */ 00342000 * ELSE 0221 00343000 * DO; /* FREE ERROR */ 00344000 * 0221 00345000 @RF00200 DS 0H 0222 00346000 * /*************************************************************/ 00347000 * /* */ 00348000 * /* FREE ERROR, DO NOT FREE THE DMCB */ 00349000 * /* */ 00350000 * /*************************************************************/ 00351000 * 0222 00352000 * DMCBRTC=RETCODE; /* PUT RETURN CODE IN DMCB */ 00353000 L @10,RETCODE 0222 00354000 ST @10,DMCBRTC(,DMCBPTR) 0222 00355000 * RETURN; /* RETURN TO CALLER */ 00356000 @EL00001 L @13,4(,@13) 0223 00357000 @EF00001 L @00,@SIZDATD 0223 00358000 LR @01,@11 0223 00359000 BLSCFREF R,LV=(0),A=(1) 00360000 @ER00001 LM @14,@12,12(@13) 0223 00361000 BR @14 0223 00362000 * END; /* FREE ERROR */ 00363000 EJECT 00364000 * 0225 00365000 * /*****************************************************************/ 00366000 * /* */ 00367000 * /* END OF EXECUTABLE PROCEDURE STATEMENTS */ 00368000 * /* */ 00369000 * /*****************************************************************/ 00370000 * 0225 00371000 */*BLSUPEND--MVS IPCS MODULE */ 00372000 * 0225 00373000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00374000 * GPR00F FIXED(31) REG(0), 0225 00375000 * GPR01F FIXED(31) REG(1), 0225 00376000 * GPR15F FIXED(31) REG(15), 0225 00377000 * GPR01P PTR(31) REG(1), 0225 00378000 * GPR13P PTR(31) REG(13); 0225 00379000 * DECLARE /* COMMON VARIABLES */ 00380000 * I256C CHAR(256) BASED, 0226 00381000 * I031F FIXED(31) BASED, 0226 00382000 * I031P PTR(31) BASED, 0226 00383000 * I015F FIXED(15) BASED, 0226 00384000 * I015P PTR(15) BASED, 0226 00385000 * I008P PTR(8) BASED, 0226 00386000 * I001C CHAR(1) BASED; 0226 00387000 * GENERATE NODEFS NOREFS DATA; 0227 00388000 * END /* BLRPEND THATS ALL FOLKS */ 00389000 * 0228 00390000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00391000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00392000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00393000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00394000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00395000 */*%INCLUDE SYSLIB (IKJECT ) */ 00396000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00397000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00398000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00399000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00400000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00401000 * 0228 00402000 * ; 0228 00403000 B @EL00001 0228 00404000 @DATA DS 0H 00405000 @DATD DSECT 00406000 DS 0F 00407000 @SA00001 DS 18F 00408000 @PC00001 DS 3F 00409000 @AL00001 DS 2A 00410000 BLSCFREE CSECT 00411000 DS 0F 00412000 @CF00041 DC F'4' 00413000 @CF00052 DC F'8' 00414000 @CF00065 DC XL4'80000000' 00415000 @CF00964 DC XL4'0000FFFF' 00416000 @DATD DSECT 00417000 DS 0D 00418000 MODSTAT DS CL16 00419000 ORG MODSTAT 00420000 MODNAME DS CL8 00421000 RETCODE DS FL4 00422000 SUBCODE DS FL4 00423000 ORG MODSTAT+16 00424000 BLSCFREE CSECT 00425000 DS 0F 00426000 @SIZDATD DC AL1(0) 00427000 DC AL3(@ENDDATD-@DATD) 00428000 @CV00921 DC V(BLSCFAMS) 00429000 @CV00922 DC V(BLSCFDYN) 00430000 @CV00923 DC V(BLSCRTCB) 00431000 DS 0D 00432000 @CC00949 DC C'BLSCFREE' 00433000 @CC00945 DC C'DMCB' 00434000 @CC00947 DC C'BCMD' 00435000 @DATD DSECT 00436000 SPACE 2 00437000 *********************************************************************** 00438000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00439000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00440000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00441000 *********************************************************************** 00442000 SPACE 00443000 BLSCFREE CSECT 00444000 ORG 00445000 DS 0D 00446000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSCFREE+19)/20+7)/8)CL8'BLSCFREE' 00447000 @DATD DSECT 00448000 SPACE 2 00449000 *********************************************************************** 00450000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00451000 *********************************************************************** 00452000 SPACE 00453000 DS 0D 00454000 @DATD DSECT 00455000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00456000 @ENDDATD EQU * 00457000 BLSCFREE CSECT 00458000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00459000 @01 EQU 01 00460000 @02 EQU 02 00461000 @03 EQU 03 00462000 @04 EQU 04 00463000 @05 EQU 05 00464000 @06 EQU 06 00465000 @07 EQU 07 00466000 @08 EQU 08 00467000 @09 EQU 09 00468000 @10 EQU 10 00469000 @11 EQU 11 00470000 @12 EQU 12 00471000 @13 EQU 13 00472000 @14 EQU 14 00473000 @15 EQU 15 00474000 WORKPTR EQU @02 00475000 OLDPTR EQU @05 00476000 DMCBPP EQU @06 00477000 DMCBPTR EQU @04 00478000 R0 EQU @00 00479000 R1 EQU @01 00480000 R2 EQU @02 00481000 R3 EQU @03 00482000 R4 EQU @04 00483000 R5 EQU @05 00484000 R9 EQU @09 00485000 RB EQU @11 00486000 RD EQU @13 00487000 RE EQU @14 00488000 RF EQU @15 00489000 GPR13P EQU @13 00490000 GPR15F EQU @15 00491000 GPR01F EQU @01 00492000 GPR00F EQU @00 00493000 GPR01P EQU @01 00494000 RA EQU @10 00495000 RC EQU @12 00496000 R6 EQU @06 00497000 R7 EQU @07 00498000 R8 EQU @08 00499000 ZZ1 EQU 0 00500000 ZZ1DMCBP EQU ZZ1+48 00501000 ZZ1ATTN EQU ZZ1+360 00502000 ZZ1EVE EQU ZZ1ATTN+4 00503000 ZZ1F EQU ZZ1+368 00504000 ZZ1N EQU ZZ1+1116 00505000 ZZ2 EQU 0 00506000 ZZ2AMD EQU ZZ2 00507000 @NM00013 EQU ZZ2AMD+7 00508000 ZZ2PRT EQU ZZ2+138 00509000 ZZ2PRTT EQU ZZ2PRT+4 00510000 ZZ2PRTT1 EQU ZZ2PRTT+1 00511000 ZZ2A EQU ZZ2+272 00512000 ZZ2AF EQU ZZ2A+16 00513000 ZZ2APID EQU ZZ2A+64 00514000 ZZ2AD EQU ZZ2A+74 00515000 ZZ2ADD EQU ZZ2AD 00516000 ZZ2ADDT EQU ZZ2ADD+2 00517000 ZZ2ADM EQU ZZ2AD+46 00518000 ZZ2ADMT EQU ZZ2ADM+2 00519000 ZZ2ADP EQU ZZ2AD+56 00520000 ZZ2ADPT EQU ZZ2ADP+2 00521000 ZZ2AQAS EQU ZZ2A+144 00522000 ZZ2AQD EQU ZZ2A+160 00523000 ZZ2AQDT EQU ZZ2AQD+10 00524000 ZZ2AQDF EQU ZZ2AQD+52 00525000 ZZ2STG EQU ZZ2+960 00526000 ZZ2ALLOP EQU ZZ2+992 00527000 ZZ2FREEP EQU ZZ2+996 00528000 ZZ2FF19P EQU ZZ2+1000 00529000 ZZ2FRE1P EQU ZZ2+1004 00530000 ZZ2FF18P EQU ZZ2+1008 00531000 ZZ2DYNAP EQU ZZ2+1012 00532000 ZZ2ZZ2CP EQU ZZ2+1016 00533000 ZZ2ZZ2DP EQU ZZ2+1020 00534000 ZZ2STAIP EQU ZZ2+1024 00535000 ZZ2FF02P EQU ZZ2+1028 00536000 ZZ2GETLP EQU ZZ2+1032 00537000 ZZ2PARSP EQU ZZ2+1036 00538000 ZZ2PTGTP EQU ZZ2+1040 00539000 ZZ2PUTLP EQU ZZ2+1044 00540000 ZZ2SCANP EQU ZZ2+1048 00541000 ZZ2STCKP EQU ZZ2+1052 00542000 ZZ2ALOCP EQU ZZ2+1056 00543000 ZZ2MSGSP EQU ZZ2+1060 00544000 ZZ2TRMOP EQU ZZ2+1064 00545000 ZZ2TRMVP EQU ZZ2+1068 00546000 ZZ2MSG0P EQU ZZ2+1076 00547000 ZZ2PUTNP EQU ZZ2+1084 00548000 ZZ2TRMNP EQU ZZ2+1088 00549000 ZZ2ENQ0P EQU ZZ2+1092 00550000 ZZ2ADSDP EQU ZZ2+1096 00551000 ZZ2APDRP EQU ZZ2+1100 00552000 ZZ2FDSDP EQU ZZ2+1104 00553000 ZZ2FPDRP EQU ZZ2+1108 00554000 ZZ2ZZ1P EQU ZZ2+1264 00555000 ZZ2DVTP EQU ZZ2+1276 00556000 ZZ2BVTP EQU ZZ2+1280 00557000 ZZ2CPPL EQU ZZ2+1292 00558000 ZZ2CPPLC EQU ZZ2CPPL 00559000 ZZ2ITR EQU ZZ2+2840 00560000 ZZ2ITRE EQU ZZ2ITR+16 00561000 ZZ2ITSE EQU ZZ2+2864 00562000 ZZ2ES EQU ZZ2+2872 00563000 ZZ2AMDX EQU ZZ2+7160 00564000 ZZ2AXO EQU ZZ2+7934 00565000 ZZ2AXOT EQU ZZ2AXO+2 00566000 CMD EQU 0 00567000 CMDT EQU CMD+4 00568000 PSCB EQU 0 00569000 PSCBATR1 EQU PSCB+16 00570000 ECT EQU 0 00571000 ECTSWS EQU ECT+28 00572000 ECTSWS2 EQU ECT+40 00573000 ECTSWS21 EQU ECTSWS2 00574000 UPT EQU 0 00575000 UPTSWS EQU UPT+12 00576000 SA EQU 0 00577000 SA1 EQU SA 00578000 SAR EQU SA+12 00579000 BVT EQU 0 00580000 BVTPUTLP EQU BVT+4 00581000 BVTPUTOP EQU BVT+12 00582000 BVTPUTTP EQU BVT+16 00583000 BVTPUTVP EQU BVT+20 00584000 BVTPUTAP EQU BVT+24 00585000 BVTPRTTP EQU BVT+28 00586000 BVTPRTAP EQU BVT+32 00587000 BVTPUTDP EQU BVT+36 00588000 BVTMONP EQU BVT+40 00589000 BVTMON2P EQU BVT+44 00590000 BVTVSARP EQU BVT+48 00591000 BVTVSENP EQU BVT+64 00592000 BVTVSERP EQU BVT+68 00593000 BVTVSGEP EQU BVT+72 00594000 BVTVSGUP EQU BVT+76 00595000 BVTVSPOP EQU BVT+80 00596000 BVTVSPUP EQU BVT+84 00597000 BVTMPKNP EQU BVT+104 00598000 BVTMONLP EQU BVT+108 00599000 BVTPUTCP EQU BVT+132 00600000 BVTMPK1P EQU BVT+136 00601000 BVTZZ2RP EQU BVT+140 00602000 BVTPGMRP EQU BVT+144 00603000 BVTMONAP EQU BVT+148 00604000 BVTBLDDP EQU BVT+152 00605000 BVTBLDLP EQU BVT+156 00606000 BVTPGMCP EQU BVT+160 00607000 BVTPGMDP EQU BVT+164 00608000 BVTPGMLP EQU BVT+168 00609000 BVTMONCP EQU BVT+180 00610000 BVTMONDP EQU BVT+184 00611000 BVTMONTP EQU BVT+188 00612000 BVTPARIP EQU BVT+192 00613000 BVTPARUP EQU BVT+196 00614000 BVTPRTNP EQU BVT+204 00615000 BVTVSCRP EQU BVT+208 00616000 BVTVSMRP EQU BVT+212 00617000 BVTMONXP EQU BVT+216 00618000 BVTTRMAP EQU BVT+228 00619000 DVT EQU 0 00620000 DVTDEQPP EQU DVT+8 00621000 DVTENQPP EQU DVT+12 00622000 DVTAUTHP EQU DVT+20 00623000 DVTLPCLP EQU DVT+24 00624000 DVTBP00P EQU DVT+28 00625000 DVTCN00P EQU DVT+32 00626000 DVTDF00P EQU DVT+36 00627000 DVTDS00P EQU DVT+44 00628000 DVTFL00P EQU DVT+48 00629000 DVTFP00P EQU DVT+52 00630000 DVTGD00P EQU DVT+56 00631000 DVTGG00P EQU DVT+60 00632000 DVTGP00P EQU DVT+64 00633000 DVTND00P EQU DVT+68 00634000 DVTND01P EQU DVT+72 00635000 DVTOD00P EQU DVT+76 00636000 DVTPS00P EQU DVT+80 00637000 DVTSD00P EQU DVT+84 00638000 DVTSL00P EQU DVT+88 00639000 DVTTL00P EQU DVT+92 00640000 DVTUD00P EQU DVT+96 00641000 DVTUP00P EQU DVT+100 00642000 DVTLP00P EQU DVT+104 00643000 DVTLALLP EQU DVT+108 00644000 DVTLPFMP EQU DVT+112 00645000 DVTCLOSP EQU DVT+116 00646000 DVTOPENP EQU DVT+120 00647000 DVTPERAP EQU DVT+124 00648000 DVTDALLP EQU DVT+128 00649000 DMCB EQU 0 00650000 DMCBID EQU DMCB 00651000 DMCBNEXT EQU DMCB+4 00652000 DMCBTVP EQU DMCB+8 00653000 DMCBRTC EQU DMCB+12 00654000 DMCBFTY EQU DMCB+20 00655000 DMCBVSF EQU DMCBFTY 00656000 DMCBOPN EQU DMCB+21 00657000 DMCBRMOD EQU DMCB+23 00658000 DMCBOUT EQU DMCBRMOD 00659000 DMCBOPTS EQU DMCB+24 00660000 DMCBGKY EQU DMCBOPTS 00661000 DMCBMFLG EQU DMCB+28 00662000 DMCBBUFP EQU DMCB+32 00663000 DMCBKEYP EQU DMCB+44 00664000 DMCBMSG EQU DMCB+52 00665000 DMCBRI EQU DMCB+64 00666000 DMCBSPID EQU DMCB+84 00667000 DMCBFRE EQU DMCB+88 00668000 DMCBEOB EQU DMCB+92 00669000 DMCBACBE EQU DMCB+124 00670000 DMCBODIS EQU DMCB+368 00671000 DMCBSPEC EQU DMCB+380 00672000 DMCBIRSC EQU DMCB+408 00673000 DMCBAMS EQU DMCB+416 00674000 DMCBAUDT EQU DMCB+568 00675000 DMCBFRC EQU DMCBAUDT+4 00676000 DMCBLSCP EQU DMCBAUDT+16 00677000 MSAV EQU 0 00678000 MSAVHSA EQU MSAV+4 00679000 CSAV EQU 0 00680000 CSAVR14 EQU CSAV+12 00681000 CSAVR15 EQU CSAV+16 00682000 CSAVR0 EQU CSAV+20 00683000 CSAVR1 EQU CSAV+24 00684000 DMCBP EQU 0 00685000 BLSCALOC EQU 0 00686000 BLSDADSD EQU 0 00687000 BLSDAPDR EQU 0 00688000 BLSDDEQP EQU 0 00689000 BLSDENQP EQU 0 00690000 BLSDENQ0 EQU 0 00691000 BLSDFDSD EQU 0 00692000 BLSDFPDR EQU 0 00693000 BLSDMSGS EQU 0 00694000 BLSDMSG0 EQU 0 00695000 BLSEAUTH EQU 0 00696000 BLSELPCL EQU 0 00697000 BLSELPFM EQU 0 00698000 BLSFBP00 EQU 0 00699000 BLSFCLOS EQU 0 00700000 BLSFCN00 EQU 0 00701000 BLSFDALL EQU 0 00702000 BLSFDF00 EQU 0 00703000 BLSFDS00 EQU 0 00704000 BLSFFL00 EQU 0 00705000 BLSFFP00 EQU 0 00706000 BLSFGD00 EQU 0 00707000 BLSFGG00 EQU 0 00708000 BLSFGP00 EQU 0 00709000 BLSFLALL EQU 0 00710000 BLSFLP00 EQU 0 00711000 BLSFND00 EQU 0 00712000 BLSFND01 EQU 0 00713000 BLSFOD00 EQU 0 00714000 BLSFOPEN EQU 0 00715000 BLSFPERA EQU 0 00716000 BLSFPS00 EQU 0 00717000 BLSFSD00 EQU 0 00718000 BLSFSL00 EQU 0 00719000 BLSFTL00 EQU 0 00720000 BLSFUD00 EQU 0 00721000 BLSFUP00 EQU 0 00722000 BLSUALLO EQU 0 00723000 BLSUBLDD EQU 0 00724000 BLSUBLDL EQU 0 00725000 BLSUDYNA EQU 0 00726000 BLSUFREE EQU 0 00727000 BLSUFRE1 EQU 0 00728000 BLSUMON EQU 0 00729000 BLSUMONA EQU 0 00730000 BLSUMONC EQU 0 00731000 BLSUMOND EQU 0 00732000 BLSUMONL EQU 0 00733000 BLSUMONT EQU 0 00734000 BLSUMONX EQU 0 00735000 BLSUMON2 EQU 0 00736000 BLSUMPKN EQU 0 00737000 BLSUMPK1 EQU 0 00738000 BLSUPARI EQU 0 00739000 BLSUPARU EQU 0 00740000 BLSUPGMC EQU 0 00741000 BLSUPGMD EQU 0 00742000 BLSUPGML EQU 0 00743000 BLSUPGMR EQU 0 00744000 BLSUPRTA EQU 0 00745000 BLSUPRTN EQU 0 00746000 BLSUPRTT EQU 0 00747000 BLSUPUTA EQU 0 00748000 BLSUPUTC EQU 0 00749000 BLSUPUTD EQU 0 00750000 BLSUPUTL EQU 0 00751000 BLSUPUTN EQU 0 00752000 BLSUPUTO EQU 0 00753000 BLSUPUTT EQU 0 00754000 BLSUPUTV EQU 0 00755000 BLSUSTAI EQU 0 00756000 BLSUTRMA EQU 0 00757000 BLSUTRMN EQU 0 00758000 BLSUTRMO EQU 0 00759000 BLSUTRMV EQU 0 00760000 BLSUVSAR EQU 0 00761000 BLSUVSCR EQU 0 00762000 BLSUVSEN EQU 0 00763000 BLSUVSER EQU 0 00764000 BLSUVSGE EQU 0 00765000 BLSUVSGU EQU 0 00766000 BLSUVSMR EQU 0 00767000 BLSUVSPO EQU 0 00768000 BLSUVSPU EQU 0 00769000 BLSUZZ2C EQU 0 00770000 BLSUZZ2D EQU 0 00771000 BLSUZZ2R EQU 0 00772000 DMCBDMGR EQU 0 00773000 DMCBRQC EQU 0 00774000 IKJEFF02 EQU 0 00775000 IKJEFF18 EQU 0 00776000 IKJEFF19 EQU 0 00777000 IKJGETL EQU 0 00778000 IKJPARS EQU 0 00779000 IKJPTGT EQU 0 00780000 IKJPUTL EQU 0 00781000 IKJSCAN EQU 0 00782000 IKJSTCK EQU 0 00783000 I001C EQU 0 00784000 I008P EQU 0 00785000 I015F EQU 0 00786000 I015P EQU 0 00787000 I031F EQU 0 00788000 I031P EQU 0 00789000 I256C EQU 0 00790000 DMCBPARM EQU 0 00791000 DMCBPPAR EQU 0 00792000 PLIST EQU 0 00793000 CPPL EQU ZZ2CPPL 00794000 CPPLUPT EQU CPPL+4 00795000 CPPLPSCB EQU CPPL+8 00796000 CPPLECT EQU CPPL+12 00797000 DMCBVSM EQU DMCBAMS 00798000 DMCBQSM EQU DMCBAMS 00799000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00800000 DMCBRES7 EQU DMCBQSM+96 00801000 DMCBDCB EQU DMCBQSM 00802000 DMCBACB EQU DMCBVSM+76 00803000 DMCBRPL EQU DMCBVSM 00804000 CPPLCBUF EQU CPPL 00805000 CSAVPAD EQU CSAV 00806000 MSAVWD1 EQU MSAV 00807000 DMCBWRK EQU DMCB+648 00808000 DMCBRES8 EQU DMCB+640 00809000 DMCBMODN EQU DMCB+632 00810000 DMCBCARY EQU DMCBAUDT+20 00811000 DMCBCLC EQU DMCBAUDT+12 00812000 DMCBOPC EQU DMCBAUDT+8 00813000 DMCBALC EQU DMCBAUDT 00814000 DMCBFR EQU DMCB+412 00815000 DMCBRES6 EQU DMCB+410 00816000 DMCBSUBC EQU DMCB+404 00817000 DMCBDRBP EQU DMCB+400 00818000 DMCBRSZM EQU DMCB+398 00819000 DMCBRSZA EQU DMCB+396 00820000 DMCBCISZ EQU DMCB+394 00821000 DMCBDCBL EQU DMCB+392 00822000 DMCBDCLR EQU DMCB+390 00823000 DMCBDCFM EQU DMCB+389 00824000 DMCBRES5 EQU DMCB+388 00825000 DMCBLBRT EQU DMCB+386 00826000 DMCBLBSQ EQU DMCB+384 00827000 DMCBLBPS EQU DMCB+383 00828000 DMCBLBTY EQU DMCB+382 00829000 DMCBRES4 EQU DMCB+381 00830000 DMCBSPRS EQU DMCBSPEC 00831000 DMCBSPRN EQU DMCBSPEC 00832000 DMCBSPCT EQU DMCBSPEC 00833000 DMCBSPRL EQU DMCBSPEC 00834000 DMCBSPSE EQU DMCB+376 00835000 DMCBSPPR EQU DMCB+372 00836000 DMCBSPTY EQU DMCB+369 00837000 DMCBDISP EQU DMCB+367 00838000 DMCBSTAT EQU DMCB+366 00839000 DMCBRES3 EQU DMCB+364 00840000 DMCBMEMB EQU DMCB+356 00841000 DMCBMODL EQU DMCB+348 00842000 DMCBRES9 EQU DMCB+340 00843000 DMCBPID EQU DMCB+332 00844000 DMCBTYPE EQU DMCB+328 00845000 DMCBDSN EQU DMCB+284 00846000 DMCBUNIT EQU DMCB+276 00847000 DMCBDSOR EQU DMCB+274 00848000 DMCBVOL EQU DMCB+268 00849000 DMCBDDNM EQU DMCB+260 00850000 DMCBSYNM EQU DMCB+132 00851000 DMCBRPLF EQU DMCB+128 00852000 DMCBDCBE EQU DMCBACBE 00853000 DMCBARC EQU DMCB+120 00854000 DMCBCPC EQU DMCB+116 00855000 DMCBRET EQU DMCB+112 00856000 DMCBSTL EQU DMCB+96 00857000 DMCBRES2 EQU DMCB+85 00858000 DMCBRESC EQU DMCB+80 00859000 DMCBZZ1P EQU DMCB+76 00860000 DMCBMSGS EQU DMCB+72 00861000 DMCBMSG0 EQU DMCB+68 00862000 DMCBRRL EQU DMCB+60 00863000 DMCBRBA EQU DMCB+56 00864000 DMCBKEYL EQU DMCB+48 00865000 DMCBKPC EQU DMCBKEYP 00866000 DMCBORL EQU DMCB+40 00867000 DMCBBLEN EQU DMCB+36 00868000 DMCBBFPC EQU DMCBBUFP 00869000 DMCBRES1 EQU DMCB+31 00870000 DMCBACCM EQU DMCB+30 00871000 DMCBREJ EQU DMCB+29 00872000 DMCBRESB EQU DMCBMFLG 00873000 DMCBFMOD EQU DMCBMFLG 00874000 DMCBLOPT EQU DMCB+27 00875000 DMCBLRM EQU DMCB+26 00876000 DMCBLRQ EQU DMCB+25 00877000 DMCBOPRS EQU DMCBOPTS 00878000 DMCBLRD EQU DMCBOPTS 00879000 DMCBBWD EQU DMCBOPTS 00880000 DMCBUPD EQU DMCBOPTS 00881000 DMCBAPX EQU DMCBOPTS 00882000 DMCBRNO EQU DMCBGKY 00883000 DMCBKYD EQU DMCBOPTS 00884000 DMCBRMRS EQU DMCBRMOD 00885000 DMCBRM5 EQU DMCBRMOD 00886000 DMCBRM6 EQU DMCBRMOD 00887000 DMCBTMP EQU DMCBOUT 00888000 DMCBRQST EQU DMCB+22 00889000 DMCBRESA EQU DMCBOPN 00890000 DMCBSOUT EQU DMCBOPN 00891000 DMCBSIN EQU DMCBOPN 00892000 DMCBKSF EQU DMCBFTY 00893000 DMCBFTRS EQU DMCBFTY 00894000 DMCBSHF EQU DMCBFTY 00895000 DMCBIRL EQU DMCB+16 00896000 DVT99999 EQU DVT+256 00897000 DVT0064P EQU DVT+252 00898000 DVT0063P EQU DVT+248 00899000 DVT0062P EQU DVT+244 00900000 DVT0061P EQU DVT+240 00901000 DVT0060P EQU DVT+236 00902000 DVT0059P EQU DVT+232 00903000 DVT0058P EQU DVT+228 00904000 DVT0057P EQU DVT+224 00905000 DVT0056P EQU DVT+220 00906000 DVT0055P EQU DVT+216 00907000 DVT0054P EQU DVT+212 00908000 DVT0053P EQU DVT+208 00909000 DVT0052P EQU DVT+204 00910000 DVT0051P EQU DVT+200 00911000 DVT0050P EQU DVT+196 00912000 DVT0049P EQU DVT+192 00913000 DVT0048P EQU DVT+188 00914000 DVT0047P EQU DVT+184 00915000 DVT0046P EQU DVT+180 00916000 DVT0045P EQU DVT+176 00917000 DVT0044P EQU DVT+172 00918000 DVT0043P EQU DVT+168 00919000 DVT0042P EQU DVT+164 00920000 DVT0041P EQU DVT+160 00921000 DVT0040P EQU DVT+156 00922000 DVT0039P EQU DVT+152 00923000 DVT0038P EQU DVT+148 00924000 DVT0037P EQU DVT+144 00925000 DVT0036P EQU DVT+140 00926000 DVT0035P EQU DVT+136 00927000 DVT0034P EQU DVT+132 00928000 DVT0011P EQU DVT+40 00929000 DVT0005P EQU DVT+16 00930000 DVT0002P EQU DVT+4 00931000 DVT0001P EQU DVT 00932000 BVT99999 EQU BVT+256 00933000 BVT0064P EQU BVT+252 00934000 BVT0063P EQU BVT+248 00935000 BVT0062P EQU BVT+244 00936000 BVT0061P EQU BVT+240 00937000 BVT0060P EQU BVT+236 00938000 BVT0059P EQU BVT+232 00939000 BVT0057P EQU BVT+224 00940000 BVT0056P EQU BVT+220 00941000 BVTSTBLP EQU BVT+200 00942000 BVT0045P EQU BVT+176 00943000 BVT0044P EQU BVT+172 00944000 BVT0033P EQU BVT+128 00945000 BVT0032P EQU BVT+124 00946000 BVT0031P EQU BVT+120 00947000 BVT0030P EQU BVT+116 00948000 BVT0029P EQU BVT+112 00949000 BVT0026P EQU BVT+100 00950000 BVT0025P EQU BVT+96 00951000 BVT0024P EQU BVT+92 00952000 BVT0023P EQU BVT+88 00953000 BVT0016P EQU BVT+60 00954000 BVT0015P EQU BVT+56 00955000 BVT0014P EQU BVT+52 00956000 BVT0003P EQU BVT+8 00957000 BVT0001P EQU BVT 00958000 SA99 EQU SA+72 00959000 SARC EQU SAR+56 00960000 SARB EQU SAR+52 00961000 SARA EQU SAR+48 00962000 SAR9 EQU SAR+44 00963000 SAR8 EQU SAR+40 00964000 SAR7 EQU SAR+36 00965000 SAR6 EQU SAR+32 00966000 SAR5 EQU SAR+28 00967000 SAR4 EQU SAR+24 00968000 SAR3 EQU SAR+20 00969000 SAR2 EQU SAR+16 00970000 SAR1 EQU SAR+12 00971000 SAR0 EQU SAR+8 00972000 SARF EQU SAR+4 00973000 SARE EQU SAR 00974000 SAFWD EQU SA+8 00975000 SABAK EQU SA+4 00976000 SA1L EQU SA1+1 00977000 SA1P EQU SA1 00978000 UPTPREFL EQU UPT+23 00979000 UPTPREFX EQU UPT+16 00980000 @NM00068 EQU UPT+15 00981000 UPTLDEL EQU UPT+14 00982000 UPTCDEL EQU UPT+13 00983000 UPTWTP EQU UPTSWS 00984000 UPTMODE EQU UPTSWS 00985000 UPTALD EQU UPTSWS 00986000 UPTPAUS EQU UPTSWS 00987000 UPTNCOM EQU UPTSWS 00988000 UPTMID EQU UPTSWS 00989000 UPTNPRM EQU UPTSWS 00990000 UPTRCVR EQU UPTSWS 00991000 UPTUSER EQU UPT+2 00992000 @NM00067 EQU UPT 00993000 @NM00066 EQU ECT+52 00994000 @NM00065 EQU ECT+48 00995000 @NM00064 EQU ECT+44 00996000 @NM00063 EQU ECTSWS2+1 00997000 @NM00062 EQU ECTSWS21 00998000 ECTTABND EQU ECTSWS21 00999000 ECTDEFCS EQU ECTSWS21 01000000 ECTBKPB EQU ECT+36 01001000 ECTUSER EQU ECT+32 01002000 ECTDDNUM EQU ECT+29 01003000 ECTATTN EQU ECTSWS 01004000 ECTBKGRD EQU ECTSWS 01005000 ECTNNOT EQU ECTSWS 01006000 ECTNMAL EQU ECTSWS 01007000 ECTLOGF EQU ECTSWS 01008000 ECTATRM EQU ECTSWS 01009000 @NM00061 EQU ECTSWS 01010000 ECTNOPD EQU ECTSWS 01011000 ECTSCMD EQU ECT+20 01012000 ECTPCMD EQU ECT+12 01013000 ECTSMSG EQU ECT+9 01014000 ECTMSGF EQU ECT+8 01015000 ECTIOWA EQU ECT+4 01016000 ECTRTCD EQU ECT+1 01017000 ECTRCDF EQU ECT 01018000 PSCBU EQU PSCB+64 01019000 PSCBRSZ EQU PSCB+60 01020000 PSCBLINE EQU PSCB+59 01021000 PSCBCHAR EQU PSCB+58 01022000 PSCBUPTL EQU PSCB+56 01023000 PSCBUPT EQU PSCB+52 01024000 PSCBRLGB EQU PSCB+48 01025000 PSCBDEST EQU PSCB+40 01026000 @NM00060 EQU PSCB+36 01027000 @NM00059 EQU PSCB+32 01028000 @NM00058 EQU PSCB+28 01029000 PSCBLTI2 EQU PSCB+24 01030000 PSCBLTIM EQU PSCB+20 01031000 PSCBATR2 EQU PSCB+18 01032000 @NM00057 EQU PSCBATR1 01033000 @NM00056 EQU PSCBATR1 01034000 @NM00055 EQU PSCBATR1 01035000 PSCBATTN EQU PSCBATR1 01036000 PSCBVMNT EQU PSCBATR1 01037000 PSCBJCL EQU PSCBATR1 01038000 PSCBACCT EQU PSCBATR1 01039000 PSCBCTRL EQU PSCBATR1 01040000 PSCBGPNM EQU PSCB+8 01041000 PSCBUSRL EQU PSCB+7 01042000 PSCBUSER EQU PSCB 01043000 CMDT1 EQU CMDT 01044000 CMDO EQU CMD+2 01045000 CMDL EQU CMD 01046000 ZZ299999 EQU ZZ2+8192 01047000 ZZ2AXOT1 EQU ZZ2AXOT 01048000 ZZ2AXOL EQU ZZ2AXO 01049000 @NM00054 EQU ZZ2+7288 01050000 @NM00053 EQU ZZ2AMDX+4 01051000 ZZ2AMDXC EQU ZZ2AMDX 01052000 ZZ2HSD EQU ZZ2+3056 01053000 @NM00052 EQU ZZ2ES 01054000 @NM00051 EQU ZZ2+2868 01055000 ZZ2ITSEC EQU ZZ2ITSE+1 01056000 @NM00050 EQU ZZ2ITSE 01057000 ZZ2ITSEP EQU ZZ2ITSE 01058000 ZZ2ITSEW EQU ZZ2ITSE 01059000 @NM00049 EQU ZZ2ITR+20 01060000 ZZ2ITREC EQU ZZ2ITRE+1 01061000 @NM00048 EQU ZZ2ITRE 01062000 ZZ2ITREP EQU ZZ2ITRE 01063000 ZZ2ITREW EQU ZZ2ITRE 01064000 @NM00047 EQU ZZ2ITR+9 01065000 ZZ2ITRRC EQU ZZ2ITR+8 01066000 ZZ2ITR2P EQU ZZ2ITR+4 01067000 ZZ2ITRPP EQU ZZ2ITR 01068000 @NM00046 EQU ZZ2+1544 01069000 ZZ2PGM EQU ZZ2+1536 01070000 @NM00045 EQU ZZ2+1526 01071000 ZZ2CW EQU ZZ2+1524 01072000 @NM00044 EQU ZZ2+1504 01073000 @NM00043 EQU ZZ2+1352 01074000 ZZ2FFSYP EQU ZZ2+1348 01075000 ZZ2SASYP EQU ZZ2+1344 01076000 ZZ2RDSYP EQU ZZ2+1340 01077000 ZZ2RASYP EQU ZZ2+1336 01078000 ZZ2PHSYP EQU ZZ2+1332 01079000 ZZ2ESSYP EQU ZZ2+1328 01080000 ZZ200SYP EQU ZZ2+1324 01081000 ZZ2SCWP EQU ZZ2+1320 01082000 ZZ2TTLP EQU ZZ2+1316 01083000 ZZ2LOADP EQU ZZ2+1312 01084000 ZZ2VRESP EQU ZZ2+1308 01085000 ZZ2CPPLE EQU ZZ2CPPL+12 01086000 ZZ2CPPLP EQU ZZ2CPPL+8 01087000 ZZ2CPPLU EQU ZZ2CPPL+4 01088000 ZZ2VRSAP EQU ZZ2+1288 01089000 ZZ2RVTP EQU ZZ2+1284 01090000 @NM00042 EQU ZZ2+1272 01091000 @NM00041 EQU ZZ2+1268 01092000 ZZ2RPLP EQU ZZ2+1260 01093000 ZZ2TCBP EQU ZZ2+1256 01094000 @NM00040 EQU ZZ2+1252 01095000 ZZ2ZZ2P EQU ZZ2+1248 01096000 @NM00039 EQU ZZ2+1112 01097000 @NM00038 EQU ZZ2+1080 01098000 ZZ2FT25P EQU ZZ2+1072 01099000 @NM00037 EQU ZZ2+976 01100000 ZZ2TOD EQU ZZ2+968 01101000 ZZ2STGN EQU ZZ2STG+4 01102000 ZZ2STGP EQU ZZ2STG 01103000 @NM00036 EQU ZZ2+952 01104000 ZZ2SCMDE EQU ZZ2+944 01105000 ZZ2SCMDN EQU ZZ2+936 01106000 ZZ2IDENT EQU ZZ2+928 01107000 ZZ2A9999 EQU ZZ2A+656 01108000 @NM00035 EQU ZZ2A+224 01109000 @NM00034 EQU ZZ2A+220 01110000 ZZ2AQD99 EQU ZZ2AQD+60 01111000 @NM00033 EQU ZZ2AQD+56 01112000 @NM00032 EQU ZZ2AQDF 01113000 ZZ2AQDFA EQU ZZ2AQDF 01114000 ZZ2AQDIL EQU ZZ2AQD+48 01115000 ZZ2AQDIM EQU ZZ2AQD+44 01116000 ZZ2AQDT9 EQU ZZ2AQDT+34 01117000 ZZ2AQDTE EQU ZZ2AQDT+33 01118000 ZZ2AQDTD EQU ZZ2AQDT+2 01119000 @NM00031 EQU ZZ2AQDT+1 01120000 ZZ2AQDTY EQU ZZ2AQDT 01121000 ZZ2AQDT0 EQU ZZ2AQDT 01122000 ZZ2AQDLB EQU ZZ2AQD+9 01123000 ZZ2AQDOB EQU ZZ2AQD+8 01124000 ZZ2AQDLE EQU ZZ2AQD+4 01125000 ZZ2AQDOF EQU ZZ2AQD 01126000 ZZ2AQD00 EQU ZZ2AQD 01127000 ZZ2AQAS9 EQU ZZ2AQAS+16 01128000 @NM00030 EQU ZZ2AQAS+12 01129000 ZZ2AQAS2 EQU ZZ2AQAS+8 01130000 ZZ2AQAS1 EQU ZZ2AQAS+4 01131000 @NM00029 EQU ZZ2AQAS+2 01132000 ZZ2AQAST EQU ZZ2AQAS 01133000 ZZ2AQAS0 EQU ZZ2AQAS 01134000 ZZ2AZZ6P EQU ZZ2A+140 01135000 ZZ2ADPTA EQU ZZ2ADPT 01136000 ZZ2ADPL EQU ZZ2ADP 01137000 ZZ2ADMTA EQU ZZ2ADMT 01138000 ZZ2ADML EQU ZZ2ADM 01139000 ZZ2ADDTA EQU ZZ2ADDT 01140000 ZZ2ADDL EQU ZZ2ADD 01141000 @NM00028 EQU ZZ2A+72 01142000 ZZ2APIDB EQU ZZ2APID+3 01143000 ZZ2APIDA EQU ZZ2APID 01144000 @NM00027 EQU ZZ2A+24 01145000 @NM00026 EQU ZZ2AF+5 01146000 ZZ2AFX EQU ZZ2AF+5 01147000 @NM00025 EQU ZZ2AF+3 01148000 ZZ2AFS EQU ZZ2AF+2 01149000 ZZ2AFD EQU ZZ2AF+2 01150000 ZZ2AFQ EQU ZZ2AF+2 01151000 ZZ2AF$ EQU ZZ2AF+2 01152000 @NM00024 EQU ZZ2AF+2 01153000 ZZ2AFM EQU ZZ2AF+2 01154000 @NM00023 EQU ZZ2AF+2 01155000 @NM00022 EQU ZZ2AF+1 01156000 ZZ2AFV EQU ZZ2AF+1 01157000 @NM00021 EQU ZZ2AF+1 01158000 ZZ2AFC EQU ZZ2AF+1 01159000 @NM00020 EQU ZZ2AF 01160000 ZZ2AFFS EQU ZZ2AF 01161000 ZZ2AFT EQU ZZ2AF 01162000 ZZ2AFP EQU ZZ2AF 01163000 @NM00019 EQU ZZ2A+8 01164000 ZZ2ALINE EQU ZZ2A+4 01165000 @NM00018 EQU ZZ2A+3 01166000 ZZ2ASE EQU ZZ2A+2 01167000 ZZ2ACH EQU ZZ2A 01168000 @NM00017 EQU ZZ2+264 01169000 @NM00016 EQU ZZ2+263 01170000 ZZ2PRTT0 EQU ZZ2PRTT 01171000 ZZ2PRTO EQU ZZ2PRT+2 01172000 ZZ2PRTL EQU ZZ2PRT 01173000 @NM00015 EQU ZZ2AMD+56 01174000 ZZ2AMDXP EQU ZZ2AMD+52 01175000 ZZ2AMDD EQU ZZ2AMD+48 01176000 ZZ2AMDL EQU ZZ2AMD+44 01177000 ZZ2AMDU EQU ZZ2AMD+28 01178000 ZZ2AMDF EQU ZZ2AMD+24 01179000 ZZ2AMDS EQU ZZ2AMD+20 01180000 ZZ2AMDC EQU ZZ2AMD+16 01181000 ZZ2AMDP EQU ZZ2AMD+12 01182000 ZZ2AMDB EQU ZZ2AMD+8 01183000 @NM00014 EQU @NM00013 01184000 ZZ2AMD2 EQU @NM00013 01185000 ZZ2AMD1 EQU @NM00013 01186000 ZZ2AMD0 EQU ZZ2AMD+6 01187000 ZZ2AMDA EQU ZZ2AMD+4 01188000 ZZ2AMDT EQU ZZ2AMD 01189000 ZZ199999 EQU ZZ1+3072 01190000 @NM00012 EQU ZZ1+2160 01191000 ZZ1TRTAS EQU ZZ1+1904 01192000 ZZ1TRUPC EQU ZZ1+1648 01193000 ZZ1TRCTX EQU ZZ1+1392 01194000 ZZ1NASID EQU ZZ1N+274 01195000 ZZ1NSTRL EQU ZZ1N+272 01196000 ZZ1NOFF EQU ZZ1N+268 01197000 ZZ1NBDY EQU ZZ1N+264 01198000 ZZ1NADE EQU ZZ1N+260 01199000 ZZ1NADB EQU ZZ1N+256 01200000 ZZ1NSTR EQU ZZ1N 01201000 @NM00011 EQU ZZ1+1080 01202000 ZZ1TREBC EQU ZZ1+824 01203000 ZZ1TRHEX EQU ZZ1+568 01204000 @NM00010 EQU ZZ1+377 01205000 ZZ1USTAE EQU ZZ1+376 01206000 @NM00009 EQU ZZ1F+1 01207000 @NM00008 EQU ZZ1F 01208000 ZZ1FM EQU ZZ1F 01209000 ZZ1FX EQU ZZ1F 01210000 ZZ1FU EQU ZZ1F 01211000 ZZ1EVEC EQU ZZ1EVE+1 01212000 @NM00007 EQU ZZ1EVE 01213000 ZZ1EVEP EQU ZZ1EVE 01214000 ZZ1EVEW EQU ZZ1EVE 01215000 ZZ1ACMP EQU ZZ1ATTN 01216000 @NM00006 EQU ZZ1+144 01217000 ZZ1FPP EQU ZZ1+140 01218000 ZZ1ZZ6P EQU ZZ1+136 01219000 @NM00005 EQU ZZ1+84 01220000 ZZ1PLINE EQU ZZ1+80 01221000 ZZ1PGSZ EQU ZZ1+76 01222000 ZZ1PCNT EQU ZZ1+72 01223000 @NM00004 EQU ZZ1+68 01224000 ZZ1TPAGE EQU ZZ1+64 01225000 ZZ1TLINE EQU ZZ1+60 01226000 @NM00003 EQU ZZ1+52 01227000 ZZ1DSDP EQU ZZ1+44 01228000 ZZ1PDRP EQU ZZ1+40 01229000 ZZ1ZZ2P EQU ZZ1+36 01230000 ZZ1327WP EQU ZZ1+32 01231000 ZZ1ACBP EQU ZZ1+28 01232000 @NM00002 EQU ZZ1+24 01233000 ZZ1PDCBP EQU ZZ1+20 01234000 ZZ1BLRBL EQU ZZ1+16 01235000 @NM00001 EQU ZZ1+12 01236000 ZZ1PNULL EQU ZZ1+8 01237000 ZZ1NULL EQU ZZ1+4 01238000 ZZ1IDE EQU ZZ1 01239000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01240000 @ENDDATA EQU * 01241000 END BLSCFREE,(C'PLS0022',0701,78066) 01242000