TITLE 'EP=BLSDFPDR -- IPCS PM/DM FREE DAS CONTROLLED DATA SETS*00001000 S ' 00002000 * /* CHANGE ACTIVITY 00003000 * THIS MODULE IS WRITTEN FOR @G57LPSR 00004000 BLSDFPDR CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSDFPDR 78.065' 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 BLSUALLR 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 EJECT 00024000 * 0122 00025000 * /*****************************************************************/ 00026000 * /* */ 00027000 * /* INITIALIZE MODULE STATUS */ 00028000 * /* */ 00029000 * /*****************************************************************/ 00030000 * 0122 00031000 * MODNAME=LMODNMC; /* INIT THE MODULE NAME */ 00032000 MVC MODNAME(8),@CC01227 0122 00033000 * RETCODE=ZERO; /* INIT THE MODULE RETURN CODE */ 00034000 SLR @10,@10 0123 00035000 ST @10,RETCODE 0123 00036000 * ANCHOR=ZERO; /* INIT THE MESSAGE LIST ANCHOR */ 00037000 * 0124 00038000 ST @10,ANCHOR 0124 00039000 * /*****************************************************************/ 00040000 * /* */ 00041000 * /* VALIDATE THE ZZ1 CONTROL BLOCK POINTER */ 00042000 * /* */ 00043000 * /*****************************************************************/ 00044000 * 0125 00045000 * IF ZZ1IDE^=ZZZIDENT THEN /* TEST FOR INVALID ZZ1 BLK OR 0125 00046000 * ZZ1 PTR */ 00047000 L @08,ZZ2ZZ1P(,R9) 0125 00048000 CLC ZZ1IDE(4,@08),@CC00036 0125 00049000 BE @RF00125 0125 00050000 * DO; /* INVALID ZZ1 BLOCK OR ZZ1 0126 00051000 * POINTER */ 00052000 * CHSTR847=ZZ2ZZ1P; /* ZZ1 POINTER IN ZZ2 */ 00053000 STCM @08,15,CHSTR847 0127 00054000 * CHSTR88=LHEX0FC; /* TRANSLATE IT TO PRINTABLE HEX */ 00055000 MVI CHSTR88,X'0F' 0128 00056000 * UNPK(CTEMP,CHSTR8); 0129 00057000 UNPK CTEMP(9),CHSTR8(8) 0129 00058000 * TR(CTEMP,HEXTBL); 0130 00059000 TR CTEMP(9),HEXTBL 0130 00060000 * DO; /* BLSDMSG 0131 00061000 * (ZZ2,INVCB,ANCHOR,BLSDMSGS) 0131 00062000 * INSERT(LZZ1C,LZZ1C,CTEMP18) */ 00063000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT INSERT */ 00064000 LA @08,IOPTLIST+12 0132 00065000 ST @08,IOPTLIST 0132 00066000 * IOPTLIST(2)=ADDR(LZZ1C); /* INSERT NAME POINTER */ 00067000 LA @08,@CC01225 0133 00068000 ST @08,IOPTLIST+4 0133 00069000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00070000 ST @10,IOPTLIST+8 0134 00071000 * RFY 0135 00072000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00073000 * I015F=LENGTH(LZZ1C); /* INSERT LENGTH */ 00074000 LA @15,3 0136 00075000 LA @14,IOPTLIST+8 0136 00076000 STH @15,I015F(,@14) 0136 00077000 * IOPTLIST(4)=ADDR(IOPTLIST(7));/* CHAIN TO NEXT INSERT */ 00078000 LA @14,IOPTLIST+24 0137 00079000 ST @14,IOPTLIST+12 0137 00080000 * IOPTLIST(5)=ADDR(LZZ1C); /* INSERT NAME POINTER */ 00081000 ST @08,IOPTLIST+16 0138 00082000 * IOPTLIST(6)=0; /* ZERO RESERVED FIELD */ 00083000 ST @10,IOPTLIST+20 0139 00084000 * RFY 0140 00085000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS BYTES 1-2 */ 00086000 * I015F=LENGTH(LZZ1C); /* INSERT LENGTH */ 00087000 LA @08,IOPTLIST+20 0141 00088000 STH @15,I015F(,@08) 0141 00089000 * IOPTLIST(7)=0; /* LAST INSERT */ 00090000 ST @10,IOPTLIST+24 0142 00091000 * IOPTLIST(8)=ADDR(CTEMP18);/* INSERT NAME POINTER */ 00092000 LA @08,CTEMP18 0143 00093000 ST @08,IOPTLIST+28 0143 00094000 * IOPTLIST(9)=0; /* ZERO RESERVED FIELD */ 00095000 ST @10,IOPTLIST+32 0144 00096000 * RFY 0145 00097000 * I015F BASED(ADDR(IOPTLIST(9)));/* ACCESS BYTES 1-2 */ 00098000 * I015F=LENGTH(CTEMP18); /* INSERT LENGTH */ 00099000 LA @10,IOPTLIST+32 0146 00100000 MVC I015F(2,@10),@CH00046 0146 00101000 * CALL BLSDMSG0(ZZ2,INVCB,ANCHOR,BLSDMSGS,'00000000'B,ADDR( 00102000 * IOPTLIST)); /* BUILD MESSAGE */ 00103000 ST R9,@AL00001 0147 00104000 LA @10,@CF01213 0147 00105000 ST @10,@AL00001+4 0147 00106000 LA @10,ANCHOR 0147 00107000 ST @10,@AL00001+8 0147 00108000 L @10,ZZ2MSGSP(,R9) 0147 00109000 ST @10,@AL00001+12 0147 00110000 LA @10,@CB01241 0147 00111000 ST @10,@AL00001+16 0147 00112000 LA @10,IOPTLIST 0147 00113000 ST @10,@AFTEMPS+12 0147 00114000 LA @10,@AFTEMPS+12 0147 00115000 ST @10,@AL00001+20 0147 00116000 L @15,ZZ2MSG0P(,R9) 0147 00117000 LA @01,@AL00001 0147 00118000 BALR @14,@15 0147 00119000 * END; /* BLSDMSG 0148 00120000 * (ZZ2,INVCB,ANCHOR,BLSDMSGS) 0148 00121000 * INSERT(LZZ1C,LZZ1C,CTEMP18) */ 00122000 * DO; /* BLSDMSG 0149 00123000 * (ZZ2,HDRMSG,ANCHOR,BLSDMSGS) 00124000 * LIFO 0149 00125000 * ROUTE(TERM)INSERT(MODNAME) */ 00126000 * IOPTLIST(1)=0; /* LAST INSERT */ 00127000 SLR @10,@10 0150 00128000 ST @10,IOPTLIST 0150 00129000 * IOPTLIST(2)=ADDR(MODNAME);/* INSERT NAME POINTER */ 00130000 LA @08,MODNAME 0151 00131000 ST @08,IOPTLIST+4 0151 00132000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00133000 ST @10,IOPTLIST+8 0152 00134000 * RFY 0153 00135000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00136000 * I015F=LENGTH(MODNAME); /* INSERT LENGTH */ 00137000 LA @10,IOPTLIST+8 0154 00138000 MVC I015F(2,@10),@CH00046 0154 00139000 * CALL BLSDMSG0(ZZ2,HDRMSG,ANCHOR,BLSDMSGS,'10010000'B,ADDR( 00140000 * IOPTLIST)); /* BUILD MESSAGE */ 00141000 ST R9,@AL00001 0155 00142000 LA @10,@CF01211 0155 00143000 ST @10,@AL00001+4 0155 00144000 LA @10,ANCHOR 0155 00145000 ST @10,@AL00001+8 0155 00146000 L @10,ZZ2MSGSP(,R9) 0155 00147000 ST @10,@AL00001+12 0155 00148000 LA @10,@CB01244 0155 00149000 ST @10,@AL00001+16 0155 00150000 LA @10,IOPTLIST 0155 00151000 ST @10,@AFTEMPS+12 0155 00152000 LA @10,@AFTEMPS+12 0155 00153000 ST @10,@AL00001+20 0155 00154000 L @15,ZZ2MSG0P(,R9) 0155 00155000 LA @01,@AL00001 0155 00156000 BALR @14,@15 0155 00157000 * END; /* BLSDMSG 0156 00158000 * (ZZ2,HDRMSG,ANCHOR,BLSDMSGS) 00159000 * LIFO 0156 00160000 * ROUTE(TERM)INSERT(MODNAME) */ 00161000 * DO; /* ABEND(F145C) DUMP USER */ 00162000 * RESPECIFY 0158 00163000 * (GPR01F) RESTRICTED; 0158 00164000 * GPR01F=(F145C)&'00000FFF'X;/* COMP CODE IN BITS 20-31 */ 00165000 LA GPR01F,145 0159 00166000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00167000 O GPR01F,@CF00059 0160 00168000 * SVC(13); /* ISSUE ABEND SVC */ 00169000 SVC 13 0161 00170000 * RESPECIFY 0162 00171000 * (GPR01F) UNRESTRICTED; 0162 00172000 * END; /* ABEND(F145C) DUMP USER INVALID 00173000 * ZZ1 POINTER OR ZZ1 BLOCK */ 00174000 * END; /* INVALID ZZ1 BLOCK OR ZZ1 0164 00175000 * POINTER */ 00176000 * 0164 00177000 * /*****************************************************************/ 00178000 * /* */ 00179000 * /* CLOSE AND FREE EACH DATA SET ON THE DMCB CHAIN -- IF NO DATA */ 00180000 * /* SETS ARE ALLOCATED, THE DO WHILE WILL FALL THROUGH AND RETURN */ 00181000 * /* TO THE CALLER */ 00182000 * /* */ 00183000 * /*****************************************************************/ 00184000 * 0165 00185000 * DMCBPTR=ZZ1DMCBP; /* INIT THE CURRENT DMCB ON CHAIN 00186000 * POINTER */ 00187000 @RF00125 L @10,ZZ2ZZ1P(,R9) 0165 00188000 L @10,ZZ1DMCBP(,@10) 0165 00189000 ST @10,DMCBPTR 0165 00190000 * NXTPTR=ZZZNULL; /* INIT THE NEXT DMCB ON CHAIN 0166 00191000 * POINTER */ 00192000 L NXTPTR,@CF00059 0166 00193000 * DO WHILE DMCBPTR^=ZZZNULL; /* LOOP THROUGH THE DMCB CHAIN */ 00194000 B @DE00167 0167 00195000 @DL00167 DS 0H 0168 00196000 * NXTPTR=DMCBNEXT; /* REMEMBER THE NEXT DMCB ON THE 00197000 * CHAIN */ 00198000 L @10,DMCBPTR 0168 00199000 L NXTPTR,DMCBNEXT(,@10) 0168 00200000 * CALL PROCESS; /* PROCESS THIS DMCB */ 00201000 BAL @14,PROCESS 0169 00202000 * DMCBPTR=NXTPTR; /* SET UP FOR THE NEXT DMCB */ 00203000 ST NXTPTR,DMCBPTR 0170 00204000 * END; /* LOOP THROUGH THE DMCB CHAIN */ 00205000 * 0171 00206000 @DE00167 CLC DMCBPTR(4),@CF00059 0171 00207000 BNE @DL00167 0171 00208000 * /*****************************************************************/ 00209000 * /* */ 00210000 * /* ALL DONE */ 00211000 * /* */ 00212000 * /*****************************************************************/ 00213000 * 0172 00214000 * RETURN CODE(RETCODE); 0172 00215000 L @10,RETCODE 0172 00216000 L @13,4(,@13) 0172 00217000 L @00,@SIZDATD 0172 00218000 LR @01,@11 0172 00219000 BLSUFRER R,LV=(0),A=(1) 00220000 LR @15,@10 0172 00221000 L @14,12(,@13) 0172 00222000 LM @00,@12,20(@13) 0172 00223000 BR @14 0172 00224000 EJECT 00225000 * 0173 00226000 * /*****************************************************************/ 00227000 * /* */ 00228000 * /* PROCESS A DATA SET ON THE DMCB CHAIN */ 00229000 * /* */ 00230000 * /*****************************************************************/ 00231000 * 0173 00232000 *PROCESS: 0173 00233000 * PROCEDURE; /* PROCESS A DATA SET ON THE DMCB 00234000 * CHAIN */ 00235000 PROCESS STM @14,@12,@SA00002 0173 00236000 * SUBCODE=ZERO; /* INIT THE SUBROUTINE RETURN 0174 00237000 * CODE */ 00238000 SLR @10,@10 0174 00239000 ST @10,SUBCODE 0174 00240000 * CURPTR=DMCBPTR; /* REMEMBER THE CURRENT DMCB 0175 00241000 * ADDRESS */ 00242000 * 0175 00243000 L @08,DMCBPTR 0175 00244000 LR CURPTR,@08 0175 00245000 * /*****************************************************************/ 00246000 * /* */ 00247000 * /* VALIDATE THE DMCB */ 00248000 * /* */ 00249000 * /*****************************************************************/ 00250000 * 0176 00251000 * IF DMCBID^=LDMCBC THEN /* TEST FOR INVALID DMCB OR DMCB 00252000 * POINTER */ 00253000 CLC DMCBID(4,@08),@CC01223 0176 00254000 BE @RF00176 0176 00255000 * DO; /* INVALID DMCB OR DMCB POINTER */ 00256000 * CHSTR847=DMCBPTR; /* ADDRESS OF THE INVALID DMCB */ 00257000 STCM @08,15,CHSTR847 0178 00258000 * CHSTR88=LHEX0FC; /* TRANSLATE IT TO PRINTABLE HEX */ 00259000 MVI CHSTR88,X'0F' 0179 00260000 * UNPK(CTEMP,CHSTR8); 0180 00261000 UNPK CTEMP(9),CHSTR8(8) 0180 00262000 * TR(CTEMP,HEXTBL); 0181 00263000 TR CTEMP(9),HEXTBL 0181 00264000 * DO; /* BLSDMSG 0182 00265000 * (ZZ2,INVCB,ANCHOR,BLSDMSGS) 0182 00266000 * INSERT(LDMCBC,LDMCBC,CTEMP18) */ 00267000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT INSERT */ 00268000 LA @08,IOPTLIST+12 0183 00269000 ST @08,IOPTLIST 0183 00270000 * IOPTLIST(2)=ADDR(LDMCBC); /* INSERT NAME POINTER */ 00271000 LA @08,@CC01223 0184 00272000 ST @08,IOPTLIST+4 0184 00273000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00274000 ST @10,IOPTLIST+8 0185 00275000 * RFY 0186 00276000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00277000 * I015F=LENGTH(LDMCBC); /* INSERT LENGTH */ 00278000 LA @04,4 0187 00279000 LA @15,IOPTLIST+8 0187 00280000 STH @04,I015F(,@15) 0187 00281000 * IOPTLIST(4)=ADDR(IOPTLIST(7));/* CHAIN TO NEXT INSERT */ 00282000 LA @15,IOPTLIST+24 0188 00283000 ST @15,IOPTLIST+12 0188 00284000 * IOPTLIST(5)=ADDR(LDMCBC); /* INSERT NAME POINTER */ 00285000 ST @08,IOPTLIST+16 0189 00286000 * IOPTLIST(6)=0; /* ZERO RESERVED FIELD */ 00287000 ST @10,IOPTLIST+20 0190 00288000 * RFY 0191 00289000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS BYTES 1-2 */ 00290000 * I015F=LENGTH(LDMCBC); /* INSERT LENGTH */ 00291000 LA @08,IOPTLIST+20 0192 00292000 STH @04,I015F(,@08) 0192 00293000 * IOPTLIST(7)=0; /* LAST INSERT */ 00294000 ST @10,IOPTLIST+24 0193 00295000 * IOPTLIST(8)=ADDR(CTEMP18);/* INSERT NAME POINTER */ 00296000 LA @08,CTEMP18 0194 00297000 ST @08,IOPTLIST+28 0194 00298000 * IOPTLIST(9)=0; /* ZERO RESERVED FIELD */ 00299000 ST @10,IOPTLIST+32 0195 00300000 * RFY 0196 00301000 * I015F BASED(ADDR(IOPTLIST(9)));/* ACCESS BYTES 1-2 */ 00302000 * I015F=LENGTH(CTEMP18); /* INSERT LENGTH */ 00303000 LA @10,IOPTLIST+32 0197 00304000 MVC I015F(2,@10),@CH00046 0197 00305000 * CALL BLSDMSG0(ZZ2,INVCB,ANCHOR,BLSDMSGS,'00000000'B,ADDR( 00306000 * IOPTLIST)); /* BUILD MESSAGE */ 00307000 ST R9,@AL00001 0198 00308000 LA @10,@CF01213 0198 00309000 ST @10,@AL00001+4 0198 00310000 LA @10,ANCHOR 0198 00311000 ST @10,@AL00001+8 0198 00312000 L @10,ZZ2MSGSP(,R9) 0198 00313000 ST @10,@AL00001+12 0198 00314000 LA @10,@CB01241 0198 00315000 ST @10,@AL00001+16 0198 00316000 LA @10,IOPTLIST 0198 00317000 ST @10,@AFTEMPS 0198 00318000 LA @10,@AFTEMPS 0198 00319000 ST @10,@AL00001+20 0198 00320000 L @15,ZZ2MSG0P(,R9) 0198 00321000 LA @01,@AL00001 0198 00322000 BALR @14,@15 0198 00323000 * END; /* BLSDMSG 0199 00324000 * (ZZ2,INVCB,ANCHOR,BLSDMSGS) 0199 00325000 * INSERT(LDMCBC,LDMCBC,CTEMP18) */ 00326000 * DO; /* BLSDMSG 0200 00327000 * (ZZ2,HDRMSG,ANCHOR,BLSDMSGS) 00328000 * LIFO 0200 00329000 * ROUTE(TERM)INSERT(MODNAME) */ 00330000 * IOPTLIST(1)=0; /* LAST INSERT */ 00331000 SLR @10,@10 0201 00332000 ST @10,IOPTLIST 0201 00333000 * IOPTLIST(2)=ADDR(MODNAME);/* INSERT NAME POINTER */ 00334000 LA @08,MODNAME 0202 00335000 ST @08,IOPTLIST+4 0202 00336000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00337000 ST @10,IOPTLIST+8 0203 00338000 * RFY 0204 00339000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00340000 * I015F=LENGTH(MODNAME); /* INSERT LENGTH */ 00341000 LA @10,IOPTLIST+8 0205 00342000 MVC I015F(2,@10),@CH00046 0205 00343000 * CALL BLSDMSG0(ZZ2,HDRMSG,ANCHOR,BLSDMSGS,'10010000'B,ADDR( 00344000 * IOPTLIST)); /* BUILD MESSAGE */ 00345000 ST R9,@AL00001 0206 00346000 LA @10,@CF01211 0206 00347000 ST @10,@AL00001+4 0206 00348000 LA @10,ANCHOR 0206 00349000 ST @10,@AL00001+8 0206 00350000 L @10,ZZ2MSGSP(,R9) 0206 00351000 ST @10,@AL00001+12 0206 00352000 LA @10,@CB01244 0206 00353000 ST @10,@AL00001+16 0206 00354000 LA @10,IOPTLIST 0206 00355000 ST @10,@AFTEMPS 0206 00356000 LA @10,@AFTEMPS 0206 00357000 ST @10,@AL00001+20 0206 00358000 L @15,ZZ2MSG0P(,R9) 0206 00359000 LA @01,@AL00001 0206 00360000 BALR @14,@15 0206 00361000 * END; /* BLSDMSG 0207 00362000 * (ZZ2,HDRMSG,ANCHOR,BLSDMSGS) 00363000 * LIFO 0207 00364000 * ROUTE(TERM)INSERT(MODNAME) */ 00365000 * DO; /* ABEND(F145C) DUMP USER */ 00366000 * RESPECIFY 0209 00367000 * (GPR01F) RESTRICTED; 0209 00368000 * GPR01F=(F145C)&'00000FFF'X;/* COMP CODE IN BITS 20-31 */ 00369000 LA GPR01F,145 0210 00370000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00371000 O GPR01F,@CF00059 0211 00372000 * SVC(13); /* ISSUE ABEND SVC */ 00373000 SVC 13 0212 00374000 * RESPECIFY 0213 00375000 * (GPR01F) UNRESTRICTED; 0213 00376000 * END; /* ABEND(F145C) DUMP USER INVALID 00377000 * DMCB POINTER OR DMCB */ 00378000 * END; /* INVALID DMCB OR DMCB POINTER */ 00379000 * 0215 00380000 * /*****************************************************************/ 00381000 * /* */ 00382000 * /* VERIFY THAT IF THE DATA SET IS TO BE CLOSED, THIS MODULE IS IS*/ 00383000 * /* EXECUTING UNDER THE SAME TASK THAT ACCESSED IT */ 00384000 * /* */ 00385000 * /*****************************************************************/ 00386000 * 0216 00387000 * IF DMCBOPN^=LHEX0C& /* TEST IF DATA SET IS OPEN AND */ 00388000 * DMCBTVP->ZZ2TCBP^=PSATOLD THEN/* IF TASKS DON'T MATCH */ 00389000 @RF00176 L @10,DMCBPTR 0216 00390000 CLI DMCBOPN(@10),X'00' 0216 00391000 BE @RF00216 0216 00392000 L @10,DMCBTVP(,@10) 0216 00393000 CLC ZZ2TCBP(4,@10),PSATOLD 0216 00394000 BE @RF00216 0216 00395000 * DO; /* CLOSE IS REQUIRED AND TASKS 0217 00396000 * DON'T MATCH */ 00397000 * RETCODE=MAX(RETCODE,FOUR); /* TELL THE CALLER */ 00398000 L @10,RETCODE 0218 00399000 LA @08,4 0218 00400000 CR @10,@08 0218 00401000 BNL *+6 00402000 LR @10,@08 0218 00403000 ST @10,RETCODE 0218 00404000 * END; /* CLOSE IS REQUIRED AND TASKS 0219 00405000 * DON'T MATCH */ 00406000 * ELSE 0220 00407000 * DO; /* CLOSE AND FREE THE DATA SET */ 00408000 * 0220 00409000 B @RC00216 0220 00410000 @RF00216 DS 0H 0221 00411000 * /*************************************************************/ 00412000 * /* */ 00413000 * /* IF THE PROBLEM DIRECTORY DATA SET IS OPEN, CLOSE IT */ 00414000 * /* */ 00415000 * /*************************************************************/ 00416000 * 0221 00417000 * IF DMCBOPN^=LHEX0C THEN /* IF THE DATA SET IS OPEN */ 00418000 L @10,DMCBPTR 0221 00419000 CLI DMCBOPN(@10),X'00' 0221 00420000 BE @RF00221 0221 00421000 * DO; /* DATA SET IS OPEN */ 00422000 * CALL CLOSE; /* CLOSE THE DATA SET */ 00423000 BAL @14,CLOSE 0223 00424000 * RETCODE=MAX(RETCODE,SUBCODE);/* TELL THE CALLER */ 00425000 L @10,RETCODE 0224 00426000 L @08,SUBCODE 0224 00427000 CR @10,@08 0224 00428000 BNL *+6 00429000 LR @10,@08 0224 00430000 ST @10,RETCODE 0224 00431000 * END; /* DATA SET IS OPEN */ 00432000 * 0225 00433000 * /*************************************************************/ 00434000 * /* */ 00435000 * /* IF NO CLOSE ERROR, FREE THE DATA SET */ 00436000 * /* */ 00437000 * /*************************************************************/ 00438000 * 0226 00439000 * IF SUBCODE=ZERO THEN /* TEST FOR PRIOR ERROR */ 00440000 @RF00221 L @10,SUBCODE 0226 00441000 LTR @10,@10 0226 00442000 BNZ @RF00226 0226 00443000 * DO; /* NO ERROR */ 00444000 * CALL FREE; /* OK SO FAR, DO FREE */ 00445000 BAL @14,FREE 0228 00446000 * RETCODE=MAX(RETCODE,SUBCODE);/* TELL THE CALLER */ 00447000 L @10,RETCODE 0229 00448000 L @08,SUBCODE 0229 00449000 CR @10,@08 0229 00450000 BNL *+6 00451000 LR @10,@08 0229 00452000 ST @10,RETCODE 0229 00453000 * END; /* NO ERROR */ 00454000 * END; /* CLOSE AND FREE THE DATA SET */ 00455000 * END; /* PROCESS A DATA SET ON THE DMCB 00456000 * CHAIN */ 00457000 @EL00002 DS 0H 0232 00458000 @EF00002 DS 0H 0232 00459000 @ER00002 LM @14,@12,@SA00002 0232 00460000 BR @14 0232 00461000 EJECT 00462000 * 0233 00463000 * /*****************************************************************/ 00464000 * /* */ 00465000 * /* PROCEDURE TO CLOSE THE DATA SET */ 00466000 * /* */ 00467000 * /*****************************************************************/ 00468000 * 0233 00469000 *CLOSE: 0233 00470000 * PROCEDURE; 0233 00471000 CLOSE STM @14,@12,@SA00003 0233 00472000 * DO; /* BLSCLOSE(DMCBPTR) */ 00473000 * RFY 0235 00474000 * GPR01P RSTD; 0235 00475000 * GPR01P=DMCBPTR; /* ADDRESS THE DMCB */ 00476000 L GPR01P,DMCBPTR 0236 00477000 * RFY 0237 00478000 * DMCB BASED(GPR01P); 0237 00479000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB ? */ 00480000 * THEN 0238 00481000 LR @10,GPR01P 0238 00482000 N @10,@CF01268 0238 00483000 CLR @10,GPR01P 0238 00484000 BNE @RF00238 0238 00485000 CLC DMCBID(4,GPR01P),@CC01223 0238 00486000 BNE @RF00238 0238 00487000 * DO; 0239 00488000 * DMCBRQST=DMCBCLR; /* INDICATE CLOSE REQUEST */ 00489000 MVI DMCBRQST(GPR01P),X'02' 0240 00490000 * DMCBTMP='0'B; /* INDICATE NON TEMP CLOSE */ 00491000 * DMCBRM6='0'B; /* INDICATE */ 00492000 * DMCBRM5='0'B; /* DISP OPTION */ 00493000 NI DMCBTMP(GPR01P),B'00011111' 0243 00494000 * CALL DMCBRI->DMCBDMGR; /* CALL BLSCRQST */ 00495000 L @15,DMCBRI(,GPR01P) 0244 00496000 BALR @14,@15 0244 00497000 * END; 0245 00498000 * ELSE 0246 00499000 * DO; 0246 00500000 B @RC00238 0246 00501000 @RF00238 DS 0H 0247 00502000 * RFY 0247 00503000 * (GPR00F, 0247 00504000 * GPR15F) RSTD; 0247 00505000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00506000 SLR GPR00F,GPR00F 0248 00507000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00508000 LA GPR15F,16 0249 00509000 * RFY 0250 00510000 * (GPR00F, 0250 00511000 * GPR15F); 0250 00512000 * END; 0251 00513000 * RFY 0252 00514000 * DMCB; 0252 00515000 @RC00238 DS 0H 0253 00516000 * RFY 0253 00517000 * GPR01P; 0253 00518000 * END; /* BLSCLOSE(DMCBPTR) CLOSE THE 0254 00519000 * DATA SET */ 00520000 * RESPECIFY 0255 00521000 * (RF) RESTRICTED; 0255 00522000 * SUBCODE=RF; /* SAVE THE CLOSE RETCODE */ 00523000 ST RF,SUBCODE 0256 00524000 * RESPECIFY 0257 00525000 * (RF) UNRESTRICTED; 0257 00526000 * IF SUBCODE^=ZERO THEN /* TEST FOR DATA SET CLOSE ERROR */ 00527000 L @10,SUBCODE 0258 00528000 SLR @08,@08 0258 00529000 CR @10,@08 0258 00530000 BE @RF00258 0258 00531000 * DO; /* DATA SET CLOSE ERROR */ 00532000 * SUBCODE=ERROR; /* PASS TO CALLER */ 00533000 MVC SUBCODE(4),@CF00046 0260 00534000 * DO; /* BLSDMSG 0261 00535000 * (ZZ2,CLOSERR,DMCBMSG,BLSDMSGS) 00536000 * INSERT(DMCBDSN)LIFO 0261 00537000 * ROUTE(TERM) */ 00538000 * IOPTLIST(1)=0; /* LAST INSERT */ 00539000 ST @08,IOPTLIST 0262 00540000 * IOPTLIST(2)=ADDR(DMCBDSN);/* INSERT NAME POINTER */ 00541000 L @10,DMCBPTR 0263 00542000 LA @15,DMCBDSN(,@10) 0263 00543000 ST @15,IOPTLIST+4 0263 00544000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00545000 ST @08,IOPTLIST+8 0264 00546000 * RFY 0265 00547000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00548000 * I015F=LENGTH(DMCBDSN); /* INSERT LENGTH */ 00549000 LA @08,IOPTLIST+8 0266 00550000 MVC I015F(2,@08),@CH00084 0266 00551000 * CALL BLSDMSG0(ZZ2,CLOSERR,DMCBMSG,BLSDMSGS,'10010000'B,ADDR( 00552000 * IOPTLIST)); /* BUILD MESSAGE */ 00553000 ST R9,@AL00001 0267 00554000 LA @08,@CF01215 0267 00555000 ST @08,@AL00001+4 0267 00556000 LA @10,DMCBMSG(,@10) 0267 00557000 ST @10,@AL00001+8 0267 00558000 L @10,ZZ2MSGSP(,R9) 0267 00559000 ST @10,@AL00001+12 0267 00560000 LA @10,@CB01244 0267 00561000 ST @10,@AL00001+16 0267 00562000 LA @10,IOPTLIST 0267 00563000 ST @10,@AFTEMPS+4 0267 00564000 LA @10,@AFTEMPS+4 0267 00565000 ST @10,@AL00001+20 0267 00566000 L @15,ZZ2MSG0P(,R9) 0267 00567000 LA @01,@AL00001 0267 00568000 BALR @14,@15 0267 00569000 * END; /* BLSDMSG 0268 00570000 * (ZZ2,CLOSERR,DMCBMSG,BLSDMSGS) 00571000 * INSERT(DMCBDSN)LIFO 0268 00572000 * ROUTE(TERM) */ 00573000 * END; /* DATA SET CLOSE ERROR */ 00574000 * END CLOSE; 0270 00575000 @EL00003 DS 0H 0270 00576000 @EF00003 DS 0H 0270 00577000 @ER00003 LM @14,@12,@SA00003 0270 00578000 BR @14 0270 00579000 EJECT 00580000 * 0271 00581000 * /*****************************************************************/ 00582000 * /* */ 00583000 * /* PROCEDURE TO FREE THE DATA SET */ 00584000 * /* */ 00585000 * /*****************************************************************/ 00586000 * 0271 00587000 *FREE: 0271 00588000 * PROCEDURE; 0271 00589000 FREE STM @14,@12,@SA00004 0271 00590000 * TEMPDSN=DMCBDSN; /* SAVE THE DATA SET NAME IN CASE 00591000 * OF ERROR */ 00592000 L @10,DMCBPTR 0272 00593000 MVC TEMPDSN(44),DMCBDSN(@10) 0272 00594000 * DO; /* BLSFREE (DMCBPTR) */ 00595000 * IF(DMCBPTR&'FFFFFFF8'X)=DMCBPTR&DMCBPTR->DMCBID='DMCB' THEN/* 00596000 * TEST FOR VALID DMCB */ 00597000 LR @08,@10 0274 00598000 N @08,@CF01268 0274 00599000 CLR @08,@10 0274 00600000 BNE @RF00274 0274 00601000 CLC DMCBID(4,@10),@CC01223 0274 00602000 BNE @RF00274 0274 00603000 * DO; /* VALID DMCB */ 00604000 * CALL DMCBPTR->DMCBFR->DMCBDMGR(DMCBPTR->DMCB,DMCBPTR,0);/* 00605000 * CALL TO BLSCFREE */ 00606000 ST @10,@AL00001 0276 00607000 LA @08,DMCBPTR 0276 00608000 ST @08,@AL00001+4 0276 00609000 LA @08,@CF00043 0276 00610000 ST @08,@AL00001+8 0276 00611000 L @15,DMCBFR(,@10) 0276 00612000 LA @01,@AL00001 0276 00613000 BALR @14,@15 0276 00614000 * END; /* VALID DMCB */ 00615000 * ELSE 0278 00616000 * DO; /* INVALID DMCB */ 00617000 B @RC00274 0278 00618000 @RF00274 DS 0H 0279 00619000 * RFY 0279 00620000 * (GPR00F, 0279 00621000 * GPR15F) RSTD; 0279 00622000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00623000 SLR GPR00F,GPR00F 0280 00624000 * GPR15F=16; /* INVALID DMCB */ 00625000 LA GPR15F,16 0281 00626000 * RFY 0282 00627000 * (GPR00F, 0282 00628000 * GPR15F) UNRSTD; 0282 00629000 * END; /* INVALID DMCB */ 00630000 * END; /* BLSFREE (DMCBPTR) FREE THE 0284 00631000 * DATA SET */ 00632000 @RC00274 DS 0H 0285 00633000 * RESPECIFY 0285 00634000 * (R0, 0285 00635000 * RF) RESTRICTED; 0285 00636000 * ANCHOR=R0; /* SAVE MESSAGE CHAIN IF PRESENT */ 00637000 ST R0,ANCHOR 0286 00638000 * SUBCODE=RF; /* SAVE THE FREE RETCODE */ 00639000 ST RF,SUBCODE 0287 00640000 * RESPECIFY 0288 00641000 * (R0, 0288 00642000 * RF) UNRESTRICTED; 0288 00643000 * IF SUBCODE^=0 THEN /* TEST FOR DATA SET FREE ERROR */ 00644000 L @10,SUBCODE 0289 00645000 SLR @08,@08 0289 00646000 CR @10,@08 0289 00647000 BE @RF00289 0289 00648000 * DO; /* DATA SET FREE ERROR */ 00649000 * SUBCODE=ERROR; /* PASS TO CALLER */ 00650000 MVC SUBCODE(4),@CF00046 0291 00651000 * IF DMCBPTR^=ZZZNULL THEN /* IF STILL ALLOCATED */ 00652000 L @10,DMCBPTR 0292 00653000 CL @10,@CF00059 0292 00654000 BE @RF00292 0292 00655000 * DMCBMSG=ZERO; /* ZERO THE DMCB MESSAGE POINTER */ 00656000 ST @08,DMCBMSG(,@10) 0293 00657000 * DO; /* BLSDMSG 0294 00658000 * (ZZ2,FREEERR,ANCHOR,BLSDMSGS) 00659000 * INSERT(TEMPDSN)LIFO 0294 00660000 * ROUTE(TERM) */ 00661000 @RF00292 DS 0H 0295 00662000 * IOPTLIST(1)=0; /* LAST INSERT */ 00663000 SLR @10,@10 0295 00664000 ST @10,IOPTLIST 0295 00665000 * IOPTLIST(2)=ADDR(TEMPDSN);/* INSERT NAME POINTER */ 00666000 LA @08,TEMPDSN 0296 00667000 ST @08,IOPTLIST+4 0296 00668000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00669000 ST @10,IOPTLIST+8 0297 00670000 * RFY 0298 00671000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00672000 * I015F=LENGTH(TEMPDSN); /* INSERT LENGTH */ 00673000 LA @10,IOPTLIST+8 0299 00674000 MVC I015F(2,@10),@CH00084 0299 00675000 * CALL BLSDMSG0(ZZ2,FREEERR,ANCHOR,BLSDMSGS,'10010000'B,ADDR( 00676000 * IOPTLIST)); /* BUILD MESSAGE */ 00677000 ST R9,@AL00001 0300 00678000 LA @10,@CF01217 0300 00679000 ST @10,@AL00001+4 0300 00680000 LA @10,ANCHOR 0300 00681000 ST @10,@AL00001+8 0300 00682000 L @10,ZZ2MSGSP(,R9) 0300 00683000 ST @10,@AL00001+12 0300 00684000 LA @10,@CB01244 0300 00685000 ST @10,@AL00001+16 0300 00686000 LA @10,IOPTLIST 0300 00687000 ST @10,@AFTEMPS+8 0300 00688000 LA @10,@AFTEMPS+8 0300 00689000 ST @10,@AL00001+20 0300 00690000 L @15,ZZ2MSG0P(,R9) 0300 00691000 LA @01,@AL00001 0300 00692000 BALR @14,@15 0300 00693000 * END; /* BLSDMSG 0301 00694000 * (ZZ2,FREEERR,ANCHOR,BLSDMSGS) 00695000 * INSERT(TEMPDSN)LIFO 0301 00696000 * ROUTE(TERM) */ 00697000 * END; /* DATA SET FREE ERROR */ 00698000 * IF DMCBPTR=ZZZNULL THEN /* IF NOT ALLOCATED */ 00699000 @RF00289 L @10,@CF00059 0303 00700000 CL @10,DMCBPTR 0303 00701000 BNE @RF00303 0303 00702000 * DO; /* NO LONGER ALLOCATED */ 00703000 * IF CURPTR=ZZ1DSDP THEN /* TEST FOR DSD BEING FREED */ 00704000 L @08,ZZ2ZZ1P(,R9) 0305 00705000 CL CURPTR,ZZ1DSDP(,@08) 0305 00706000 BNE @RF00305 0305 00707000 * ZZ1DSDP=ZZZNULL; /* NULL THE DSD DMCB POINTER */ 00708000 ST @10,ZZ1DSDP(,@08) 0306 00709000 * IF CURPTR=ZZ1PDRP THEN /* TEST FOR PDR BEING FREED */ 00710000 @RF00305 L @10,ZZ2ZZ1P(,R9) 0307 00711000 CL CURPTR,ZZ1PDRP(,@10) 0307 00712000 BNE @RF00307 0307 00713000 * ZZ1PDRP=ZZZNULL; /* NULL THE PDR DMCB POINTER */ 00714000 MVC ZZ1PDRP(4,@10),@CF00059 0308 00715000 * END; /* NO LONGER ALLOCATED */ 00716000 * END FREE; 0310 00717000 @EL00004 DS 0H 0310 00718000 @EF00004 DS 0H 0310 00719000 @ER00004 LM @14,@12,@SA00004 0310 00720000 BR @14 0310 00721000 EJECT 00722000 * 0311 00723000 * /*****************************************************************/ 00724000 * /* */ 00725000 * /* PROCEDURE STATEMENTS END */ 00726000 * /* */ 00727000 * /*****************************************************************/ 00728000 * 0311 00729000 */*BLSUPEND--MVS IPCS MODULE */ 00730000 * 0311 00731000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00732000 * GPR00F FIXED(31) REG(0), 0311 00733000 * GPR01F FIXED(31) REG(1), 0311 00734000 * GPR15F FIXED(31) REG(15), 0311 00735000 * GPR01P PTR(31) REG(1); 0311 00736000 * DECLARE /* COMMON VARIABLES */ 00737000 * I256C CHAR(256) BASED, 0312 00738000 * I031F FIXED(31) BASED, 0312 00739000 * I031P PTR(31) BASED, 0312 00740000 * I015F FIXED(15) BASED, 0312 00741000 * I015P PTR(15) BASED, 0312 00742000 * I008P PTR(8) BASED, 0312 00743000 * I001C CHAR(1) BASED; 0312 00744000 * DECLARE 0313 00745000 * IOPTLIST(9) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 00746000 * GENERATE NODEFS NOREFS DATA; 0314 00747000 * END /* BLRPEND */ 00748000 * 0315 00749000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00750000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00751000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00752000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00753000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00754000 */*%INCLUDE SYSLIB (IKJECT ) */ 00755000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00756000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00757000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00758000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00759000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00760000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00761000 * 0315 00762000 * ; 0315 00763000 @EL00001 L @13,4(,@13) 0315 00764000 @EF00001 L @00,@SIZDATD 0315 00765000 LR @01,@11 0315 00766000 BLSUFRER R,LV=(0),A=(1) 00767000 @ER00001 LM @14,@12,12(@13) 0315 00768000 BR @14 0315 00769000 @DATA DS 0H 00770000 @CH00084 DC H'44' 00771000 @DATD DSECT 00772000 DS 0F 00773000 @SA00001 DS 18F 00774000 @SA00002 DS 15F 00775000 @SA00003 DS 15F 00776000 @SA00004 DS 15F 00777000 @AL00001 DS 6A 00778000 @AFTEMPS DS 4F 00779000 BLSDFPDR CSECT 00780000 DS 0F 00781000 @CF00043 DC F'0' 00782000 @CF00046 DC F'8' 00783000 @CH00046 EQU @CF00046+2 00784000 @CF01217 DC F'4046' 00785000 @CF01215 DC F'4047' 00786000 @CF01211 DC F'4071' 00787000 @CF01213 DC F'4072' 00788000 @CF00059 DC XL4'80000000' 00789000 @CF01268 DC XL4'FFFFFFF8' 00790000 @DATD DSECT 00791000 DS 0D 00792000 DMCBPTR DS A 00793000 ANCHOR DS A 00794000 MODSTAT DS CL16 00795000 ORG MODSTAT 00796000 MODNAME DS CL8 00797000 RETCODE DS FL4 00798000 SUBCODE DS FL4 00799000 ORG MODSTAT+16 00800000 CHSTR8 DS CL8 00801000 ORG CHSTR8 00802000 @NM00093 DS CL3 00803000 CHSTR847 DS CL4 00804000 ORG CHSTR847 00805000 CHSTR846 DS CL3 00806000 CHSTR87 DS CL1 00807000 ORG CHSTR8+7 00808000 CHSTR88 DS CL1 00809000 ORG CHSTR8+8 00810000 CTEMP DS CL9 00811000 ORG CTEMP 00812000 CTEMP18 DS CL8 00813000 ORG CTEMP18 00814000 CTEMP14 DS CL4 00815000 CTEMP58 DS CL4 00816000 ORG CTEMP58 00817000 CTEMP56 DS CL2 00818000 CTEMP78 DS CL2 00819000 ORG CTEMP+9 00820000 TEMPDSN DS CL44 00821000 DS CL3 00822000 IOPTLIST DS 9A 00823000 BLSDFPDR CSECT 00824000 DS 0F 00825000 @SIZDATD DC AL1(0) 00826000 DC AL3(@ENDDATD-@DATD) 00827000 DS 0D 00828000 @CC01227 DC C'BLSDFPDR' 00829000 @CC00036 DC C'IPCS' 00830000 @CC01223 DC C'DMCB' 00831000 @CC01225 DC C'ZZ1' 00832000 @CB01241 DC B'00000000' 00833000 @CB01244 DC B'10010000' 00834000 @DATD DSECT 00835000 SPACE 2 00836000 *********************************************************************** 00837000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00838000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00839000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00840000 *********************************************************************** 00841000 SPACE 00842000 BLSDFPDR CSECT 00843000 ORG 00844000 DS 0D 00845000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSDFPDR+19)/20+7)/8)CL8'BLSDFPDR' 00846000 BLSDFPDR CSECT 00847000 * /* 00848000 HEXTBL EQU *-240 00849000 DC CL16'0123456789ABCDEF' 00850000 @DATD DSECT 00851000 SPACE 2 00852000 *********************************************************************** 00853000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00854000 *********************************************************************** 00855000 SPACE 00856000 DS 0D 00857000 @DATD DSECT 00858000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00859000 @ENDDATD EQU * 00860000 BLSDFPDR CSECT 00861000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00862000 @01 EQU 01 00863000 @02 EQU 02 00864000 @03 EQU 03 00865000 @04 EQU 04 00866000 @05 EQU 05 00867000 @06 EQU 06 00868000 @07 EQU 07 00869000 @08 EQU 08 00870000 @09 EQU 09 00871000 @10 EQU 10 00872000 @11 EQU 11 00873000 @12 EQU 12 00874000 @13 EQU 13 00875000 @14 EQU 14 00876000 @15 EQU 15 00877000 NXTPTR EQU @02 00878000 CURPTR EQU @05 00879000 R9 EQU @09 00880000 R0 EQU @00 00881000 R1 EQU @01 00882000 R2 EQU @02 00883000 R3 EQU @03 00884000 R4 EQU @04 00885000 R5 EQU @05 00886000 RB EQU @11 00887000 RD EQU @13 00888000 RE EQU @14 00889000 RF EQU @15 00890000 GPR01F EQU @01 00891000 GPR01P EQU @01 00892000 GPR00F EQU @00 00893000 GPR15F EQU @15 00894000 RA EQU @10 00895000 RC EQU @12 00896000 R6 EQU @06 00897000 R7 EQU @07 00898000 R8 EQU @08 00899000 PSA EQU 0 00900000 FLCRNPSW EQU PSA 00901000 FLCROPSW EQU PSA+8 00902000 FLCICCW2 EQU PSA+16 00903000 PSAEEPSW EQU PSA+132 00904000 PSAESPSW EQU PSA+136 00905000 FLCSVILC EQU PSAESPSW+1 00906000 PSAEPPSW EQU PSA+140 00907000 FLCPIILC EQU PSAEPPSW+1 00908000 FLCPICOD EQU PSAEPPSW+2 00909000 PSAPICOD EQU FLCPICOD+1 00910000 FLCTEA EQU PSAEPPSW+4 00911000 FLCPER EQU PSA+152 00912000 FLCMCLA EQU PSA+168 00913000 FLCIOEL EQU FLCMCLA+4 00914000 FLCIOA EQU FLCMCLA+16 00915000 FLCFSA EQU FLCMCLA+80 00916000 PSATOLD EQU PSA+540 00917000 PSASUPER EQU PSA+552 00918000 PSASUP1 EQU PSASUPER 00919000 PSASUP2 EQU PSASUPER+1 00920000 PSASUP3 EQU PSASUPER+2 00921000 PSASUP4 EQU PSASUPER+3 00922000 PSACLHT EQU PSA+640 00923000 PSALKSA EQU PSA+696 00924000 PSAHLHI EQU PSA+760 00925000 PSADSSFL EQU PSA+836 00926000 PSADSSF1 EQU PSADSSFL 00927000 PSADSSF3 EQU PSADSSFL+2 00928000 PSADSSF4 EQU PSADSSFL+3 00929000 PSARSVT EQU PSA+896 00930000 ZZ1 EQU 0 00931000 ZZ1IDE EQU ZZ1 00932000 ZZ1PDRP EQU ZZ1+40 00933000 ZZ1DSDP EQU ZZ1+44 00934000 ZZ1DMCBP EQU ZZ1+48 00935000 ZZ1ATTN EQU ZZ1+360 00936000 ZZ1EVE EQU ZZ1ATTN+4 00937000 ZZ1F EQU ZZ1+368 00938000 ZZ1N EQU ZZ1+1116 00939000 ZZ2 EQU 0 00940000 ZZ2AMD EQU ZZ2 00941000 @NM00013 EQU ZZ2AMD+7 00942000 ZZ2PRT EQU ZZ2+138 00943000 ZZ2PRTT EQU ZZ2PRT+4 00944000 ZZ2PRTT1 EQU ZZ2PRTT+1 00945000 ZZ2A EQU ZZ2+272 00946000 ZZ2AF EQU ZZ2A+16 00947000 ZZ2APID EQU ZZ2A+64 00948000 ZZ2AD EQU ZZ2A+74 00949000 ZZ2ADD EQU ZZ2AD 00950000 ZZ2ADDT EQU ZZ2ADD+2 00951000 ZZ2ADM EQU ZZ2AD+46 00952000 ZZ2ADMT EQU ZZ2ADM+2 00953000 ZZ2ADP EQU ZZ2AD+56 00954000 ZZ2ADPT EQU ZZ2ADP+2 00955000 ZZ2AQAS EQU ZZ2A+144 00956000 ZZ2AQD EQU ZZ2A+160 00957000 ZZ2AQDT EQU ZZ2AQD+10 00958000 ZZ2AQDF EQU ZZ2AQD+52 00959000 ZZ2STG EQU ZZ2+960 00960000 ZZ2ALLOP EQU ZZ2+992 00961000 ZZ2FREEP EQU ZZ2+996 00962000 ZZ2FF19P EQU ZZ2+1000 00963000 ZZ2FRE1P EQU ZZ2+1004 00964000 ZZ2FF18P EQU ZZ2+1008 00965000 ZZ2DYNAP EQU ZZ2+1012 00966000 ZZ2ZZ2CP EQU ZZ2+1016 00967000 ZZ2ZZ2DP EQU ZZ2+1020 00968000 ZZ2STAIP EQU ZZ2+1024 00969000 ZZ2FF02P EQU ZZ2+1028 00970000 ZZ2GETLP EQU ZZ2+1032 00971000 ZZ2PARSP EQU ZZ2+1036 00972000 ZZ2PTGTP EQU ZZ2+1040 00973000 ZZ2PUTLP EQU ZZ2+1044 00974000 ZZ2SCANP EQU ZZ2+1048 00975000 ZZ2STCKP EQU ZZ2+1052 00976000 ZZ2ALOCP EQU ZZ2+1056 00977000 ZZ2MSGSP EQU ZZ2+1060 00978000 ZZ2TRMOP EQU ZZ2+1064 00979000 ZZ2TRMVP EQU ZZ2+1068 00980000 ZZ2MSG0P EQU ZZ2+1076 00981000 ZZ2PUTNP EQU ZZ2+1084 00982000 ZZ2TRMNP EQU ZZ2+1088 00983000 ZZ2ENQ0P EQU ZZ2+1092 00984000 ZZ2ADSDP EQU ZZ2+1096 00985000 ZZ2APDRP EQU ZZ2+1100 00986000 ZZ2FDSDP EQU ZZ2+1104 00987000 ZZ2TCBP EQU ZZ2+1256 00988000 ZZ2ZZ1P EQU ZZ2+1264 00989000 ZZ2DVTP EQU ZZ2+1276 00990000 ZZ2BVTP EQU ZZ2+1280 00991000 ZZ2CPPL EQU ZZ2+1292 00992000 ZZ2CPPLC EQU ZZ2CPPL 00993000 ZZ2ITR EQU ZZ2+2840 00994000 ZZ2ITRE EQU ZZ2ITR+16 00995000 ZZ2ITSE EQU ZZ2+2864 00996000 ZZ2ES EQU ZZ2+2872 00997000 ZZ2AMDX EQU ZZ2+7160 00998000 ZZ2AXO EQU ZZ2+7934 00999000 ZZ2AXOT EQU ZZ2AXO+2 01000000 CMD EQU 0 01001000 CMDT EQU CMD+4 01002000 PSCB EQU 0 01003000 PSCBATR1 EQU PSCB+16 01004000 ECT EQU 0 01005000 ECTSWS EQU ECT+28 01006000 ECTSWS2 EQU ECT+40 01007000 ECTSWS21 EQU ECTSWS2 01008000 UPT EQU 0 01009000 UPTSWS EQU UPT+12 01010000 SA EQU 0 01011000 SA1 EQU SA 01012000 SAR EQU SA+12 01013000 SAR1 EQU SAR+12 01014000 BVT EQU 0 01015000 BVTPUTLP EQU BVT+4 01016000 BVTPUTOP EQU BVT+12 01017000 BVTPUTTP EQU BVT+16 01018000 BVTPUTVP EQU BVT+20 01019000 BVTPUTAP EQU BVT+24 01020000 BVTPRTTP EQU BVT+28 01021000 BVTPRTAP EQU BVT+32 01022000 BVTPUTDP EQU BVT+36 01023000 BVTMONP EQU BVT+40 01024000 BVTMON2P EQU BVT+44 01025000 BVTVSARP EQU BVT+48 01026000 BVTVSENP EQU BVT+64 01027000 BVTVSERP EQU BVT+68 01028000 BVTVSGEP EQU BVT+72 01029000 BVTVSGUP EQU BVT+76 01030000 BVTVSPOP EQU BVT+80 01031000 BVTVSPUP EQU BVT+84 01032000 BVTMPKNP EQU BVT+104 01033000 BVTMONLP EQU BVT+108 01034000 BVTPUTCP EQU BVT+132 01035000 BVTMPK1P EQU BVT+136 01036000 BVTZZ2RP EQU BVT+140 01037000 BVTPGMRP EQU BVT+144 01038000 BVTMONAP EQU BVT+148 01039000 BVTBLDDP EQU BVT+152 01040000 BVTBLDLP EQU BVT+156 01041000 BVTPGMCP EQU BVT+160 01042000 BVTPGMDP EQU BVT+164 01043000 BVTPGMLP EQU BVT+168 01044000 BVTMONCP EQU BVT+180 01045000 BVTMONDP EQU BVT+184 01046000 BVTMONTP EQU BVT+188 01047000 BVTPARIP EQU BVT+192 01048000 BVTPARUP EQU BVT+196 01049000 BVTPRTNP EQU BVT+204 01050000 BVTVSCRP EQU BVT+208 01051000 BVTVSMRP EQU BVT+212 01052000 BVTMONXP EQU BVT+216 01053000 BVTTRMAP EQU BVT+228 01054000 BLSDMSGS EQU 0 01055000 BLSDMSG0 EQU 0 01056000 DVT EQU 0 01057000 DVTDEQPP EQU DVT+8 01058000 DVTENQPP EQU DVT+12 01059000 DVTAUTHP EQU DVT+20 01060000 DVTLPCLP EQU DVT+24 01061000 DVTBP00P EQU DVT+28 01062000 DVTCN00P EQU DVT+32 01063000 DVTDF00P EQU DVT+36 01064000 DVTDS00P EQU DVT+44 01065000 DVTFL00P EQU DVT+48 01066000 DVTFP00P EQU DVT+52 01067000 DVTGD00P EQU DVT+56 01068000 DVTGG00P EQU DVT+60 01069000 DVTGP00P EQU DVT+64 01070000 DVTND00P EQU DVT+68 01071000 DVTND01P EQU DVT+72 01072000 DVTOD00P EQU DVT+76 01073000 DVTPS00P EQU DVT+80 01074000 DVTSD00P EQU DVT+84 01075000 DVTSL00P EQU DVT+88 01076000 DVTTL00P EQU DVT+92 01077000 DVTUD00P EQU DVT+96 01078000 DVTUP00P EQU DVT+100 01079000 DVTLP00P EQU DVT+104 01080000 DVTLALLP EQU DVT+108 01081000 DVTLPFMP EQU DVT+112 01082000 DVTCLOSP EQU DVT+116 01083000 DVTOPENP EQU DVT+120 01084000 DVTPERAP EQU DVT+124 01085000 DVTDALLP EQU DVT+128 01086000 DMCB EQU 0 01087000 DMCBID EQU DMCB 01088000 DMCBNEXT EQU DMCB+4 01089000 DMCBTVP EQU DMCB+8 01090000 DMCBFTY EQU DMCB+20 01091000 DMCBOPN EQU DMCB+21 01092000 DMCBRQST EQU DMCB+22 01093000 DMCBRMOD EQU DMCB+23 01094000 DMCBOUT EQU DMCBRMOD 01095000 DMCBTMP EQU DMCBOUT 01096000 DMCBRM6 EQU DMCBRMOD 01097000 DMCBRM5 EQU DMCBRMOD 01098000 DMCBOPTS EQU DMCB+24 01099000 DMCBGKY EQU DMCBOPTS 01100000 DMCBMFLG EQU DMCB+28 01101000 DMCBBUFP EQU DMCB+32 01102000 DMCBKEYP EQU DMCB+44 01103000 DMCBMSG EQU DMCB+52 01104000 DMCBRI EQU DMCB+64 01105000 DMCBACBE EQU DMCB+124 01106000 DMCBDSN EQU DMCB+284 01107000 DMCBSPEC EQU DMCB+380 01108000 DMCBFR EQU DMCB+412 01109000 DMCBAMS EQU DMCB+416 01110000 DMCBAUDT EQU DMCB+568 01111000 DMCBLSCP EQU DMCBAUDT+16 01112000 DMCBDMGR EQU 0 01113000 I015F EQU 0 01114000 BLSCALOC EQU 0 01115000 BLSDADSD EQU 0 01116000 BLSDAPDR EQU 0 01117000 BLSDDEQP EQU 0 01118000 BLSDENQP EQU 0 01119000 BLSDENQ0 EQU 0 01120000 BLSDFDSD EQU 0 01121000 BLSEAUTH EQU 0 01122000 BLSELPCL EQU 0 01123000 BLSELPFM EQU 0 01124000 BLSFBP00 EQU 0 01125000 BLSFCLOS EQU 0 01126000 BLSFCN00 EQU 0 01127000 BLSFDALL EQU 0 01128000 BLSFDF00 EQU 0 01129000 BLSFDS00 EQU 0 01130000 BLSFFL00 EQU 0 01131000 BLSFFP00 EQU 0 01132000 BLSFGD00 EQU 0 01133000 BLSFGG00 EQU 0 01134000 BLSFGP00 EQU 0 01135000 BLSFLALL EQU 0 01136000 BLSFLP00 EQU 0 01137000 BLSFND00 EQU 0 01138000 BLSFND01 EQU 0 01139000 BLSFOD00 EQU 0 01140000 BLSFOPEN EQU 0 01141000 BLSFPERA EQU 0 01142000 BLSFPS00 EQU 0 01143000 BLSFSD00 EQU 0 01144000 BLSFSL00 EQU 0 01145000 BLSFTL00 EQU 0 01146000 BLSFUD00 EQU 0 01147000 BLSFUP00 EQU 0 01148000 BLSUALLO EQU 0 01149000 BLSUBLDD EQU 0 01150000 BLSUBLDL EQU 0 01151000 BLSUDYNA EQU 0 01152000 BLSUFREE EQU 0 01153000 BLSUFRE1 EQU 0 01154000 BLSUMON EQU 0 01155000 BLSUMONA EQU 0 01156000 BLSUMONC EQU 0 01157000 BLSUMOND EQU 0 01158000 BLSUMONL EQU 0 01159000 BLSUMONT EQU 0 01160000 BLSUMONX EQU 0 01161000 BLSUMON2 EQU 0 01162000 BLSUMPKN EQU 0 01163000 BLSUMPK1 EQU 0 01164000 BLSUPARI EQU 0 01165000 BLSUPARU EQU 0 01166000 BLSUPGMC EQU 0 01167000 BLSUPGMD EQU 0 01168000 BLSUPGML EQU 0 01169000 BLSUPGMR EQU 0 01170000 BLSUPRTA EQU 0 01171000 BLSUPRTN EQU 0 01172000 BLSUPRTT EQU 0 01173000 BLSUPUTA EQU 0 01174000 BLSUPUTC EQU 0 01175000 BLSUPUTD EQU 0 01176000 BLSUPUTL EQU 0 01177000 BLSUPUTN EQU 0 01178000 BLSUPUTO EQU 0 01179000 BLSUPUTT EQU 0 01180000 BLSUPUTV EQU 0 01181000 BLSUSTAI EQU 0 01182000 BLSUTRMA EQU 0 01183000 BLSUTRMN EQU 0 01184000 BLSUTRMO EQU 0 01185000 BLSUTRMV EQU 0 01186000 BLSUVSAR EQU 0 01187000 BLSUVSCR EQU 0 01188000 BLSUVSEN EQU 0 01189000 BLSUVSER EQU 0 01190000 BLSUVSGE EQU 0 01191000 BLSUVSGU EQU 0 01192000 BLSUVSMR EQU 0 01193000 BLSUVSPO EQU 0 01194000 BLSUVSPU EQU 0 01195000 BLSUZZ2C EQU 0 01196000 BLSUZZ2D EQU 0 01197000 BLSUZZ2R EQU 0 01198000 DMCBRQC EQU 0 01199000 IKJEFF02 EQU 0 01200000 IKJEFF18 EQU 0 01201000 IKJEFF19 EQU 0 01202000 IKJGETL EQU 0 01203000 IKJPARS EQU 0 01204000 IKJPTGT EQU 0 01205000 IKJPUTL EQU 0 01206000 IKJSCAN EQU 0 01207000 IKJSTCK EQU 0 01208000 I001C EQU 0 01209000 I008P EQU 0 01210000 I015P EQU 0 01211000 I031F EQU 0 01212000 I031P EQU 0 01213000 I256C EQU 0 01214000 CPPL EQU ZZ2CPPL 01215000 CPPLUPT EQU CPPL+4 01216000 CPPLPSCB EQU CPPL+8 01217000 CPPLECT EQU CPPL+12 01218000 PSARSVTE EQU PSARSVT 01219000 DMCBVSM EQU DMCBAMS 01220000 DMCBQSM EQU DMCBAMS 01221000 FLC EQU PSA 01222000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01223000 DMCBRES7 EQU DMCBQSM+96 01224000 DMCBDCB EQU DMCBQSM 01225000 DMCBACB EQU DMCBVSM+76 01226000 DMCBRPL EQU DMCBVSM 01227000 PSARSAV EQU PSARSVTE+60 01228000 PSARSTK EQU PSARSVTE+56 01229000 PSAESAV3 EQU PSARSVTE+52 01230000 PSAESTK3 EQU PSARSVTE+48 01231000 PSAESAV2 EQU PSARSVTE+44 01232000 PSAESTK2 EQU PSARSVTE+40 01233000 PSAESAV1 EQU PSARSVTE+36 01234000 PSAESTK1 EQU PSARSVTE+32 01235000 PSAPSAV EQU PSARSVTE+28 01236000 PSAPSTK EQU PSARSVTE+24 01237000 PSAMSAV EQU PSARSVTE+20 01238000 PSAMSTK EQU PSARSVTE+16 01239000 PSASSAV EQU PSARSVTE+12 01240000 PSASSTK EQU PSARSVTE+8 01241000 PSANSTK EQU PSARSVTE+4 01242000 PSACSTK EQU PSARSVTE 01243000 CPPLCBUF EQU CPPL 01244000 DMCBWRK EQU DMCB+648 01245000 DMCBRES8 EQU DMCB+640 01246000 DMCBMODN EQU DMCB+632 01247000 DMCBCARY EQU DMCBAUDT+20 01248000 DMCBCLC EQU DMCBAUDT+12 01249000 DMCBOPC EQU DMCBAUDT+8 01250000 DMCBFRC EQU DMCBAUDT+4 01251000 DMCBALC EQU DMCBAUDT 01252000 DMCBRES6 EQU DMCB+410 01253000 DMCBIRSC EQU DMCB+408 01254000 DMCBSUBC EQU DMCB+404 01255000 DMCBDRBP EQU DMCB+400 01256000 DMCBRSZM EQU DMCB+398 01257000 DMCBRSZA EQU DMCB+396 01258000 DMCBCISZ EQU DMCB+394 01259000 DMCBDCBL EQU DMCB+392 01260000 DMCBDCLR EQU DMCB+390 01261000 DMCBDCFM EQU DMCB+389 01262000 DMCBRES5 EQU DMCB+388 01263000 DMCBLBRT EQU DMCB+386 01264000 DMCBLBSQ EQU DMCB+384 01265000 DMCBLBPS EQU DMCB+383 01266000 DMCBLBTY EQU DMCB+382 01267000 DMCBRES4 EQU DMCB+381 01268000 DMCBSPRS EQU DMCBSPEC 01269000 DMCBSPRN EQU DMCBSPEC 01270000 DMCBSPCT EQU DMCBSPEC 01271000 DMCBSPRL EQU DMCBSPEC 01272000 DMCBSPSE EQU DMCB+376 01273000 DMCBSPPR EQU DMCB+372 01274000 DMCBSPTY EQU DMCB+369 01275000 DMCBODIS EQU DMCB+368 01276000 DMCBDISP EQU DMCB+367 01277000 DMCBSTAT EQU DMCB+366 01278000 DMCBRES3 EQU DMCB+364 01279000 DMCBMEMB EQU DMCB+356 01280000 DMCBMODL EQU DMCB+348 01281000 DMCBRES9 EQU DMCB+340 01282000 DMCBPID EQU DMCB+332 01283000 DMCBTYPE EQU DMCB+328 01284000 DMCBUNIT EQU DMCB+276 01285000 DMCBDSOR EQU DMCB+274 01286000 DMCBVOL EQU DMCB+268 01287000 DMCBDDNM EQU DMCB+260 01288000 DMCBSYNM EQU DMCB+132 01289000 DMCBRPLF EQU DMCB+128 01290000 DMCBDCBE EQU DMCBACBE 01291000 DMCBARC EQU DMCB+120 01292000 DMCBCPC EQU DMCB+116 01293000 DMCBRET EQU DMCB+112 01294000 DMCBSTL EQU DMCB+96 01295000 DMCBEOB EQU DMCB+92 01296000 DMCBFRE EQU DMCB+88 01297000 DMCBRES2 EQU DMCB+85 01298000 DMCBSPID EQU DMCB+84 01299000 DMCBRESC EQU DMCB+80 01300000 DMCBZZ1P EQU DMCB+76 01301000 DMCBMSGS EQU DMCB+72 01302000 DMCBMSG0 EQU DMCB+68 01303000 DMCBRRL EQU DMCB+60 01304000 DMCBRBA EQU DMCB+56 01305000 DMCBKEYL EQU DMCB+48 01306000 DMCBKPC EQU DMCBKEYP 01307000 DMCBORL EQU DMCB+40 01308000 DMCBBLEN EQU DMCB+36 01309000 DMCBBFPC EQU DMCBBUFP 01310000 DMCBRES1 EQU DMCB+31 01311000 DMCBACCM EQU DMCB+30 01312000 DMCBREJ EQU DMCB+29 01313000 DMCBRESB EQU DMCBMFLG 01314000 DMCBFMOD EQU DMCBMFLG 01315000 DMCBLOPT EQU DMCB+27 01316000 DMCBLRM EQU DMCB+26 01317000 DMCBLRQ EQU DMCB+25 01318000 DMCBOPRS EQU DMCBOPTS 01319000 DMCBLRD EQU DMCBOPTS 01320000 DMCBBWD EQU DMCBOPTS 01321000 DMCBUPD EQU DMCBOPTS 01322000 DMCBAPX EQU DMCBOPTS 01323000 DMCBRNO EQU DMCBGKY 01324000 DMCBKYD EQU DMCBOPTS 01325000 DMCBRMRS EQU DMCBRMOD 01326000 DMCBRESA EQU DMCBOPN 01327000 DMCBSOUT EQU DMCBOPN 01328000 DMCBSIN EQU DMCBOPN 01329000 DMCBVSF EQU DMCBFTY 01330000 DMCBKSF EQU DMCBFTY 01331000 DMCBFTRS EQU DMCBFTY 01332000 DMCBSHF EQU DMCBFTY 01333000 DMCBIRL EQU DMCB+16 01334000 DMCBRTC EQU DMCB+12 01335000 DVT99999 EQU DVT+256 01336000 DVT0064P EQU DVT+252 01337000 DVT0063P EQU DVT+248 01338000 DVT0062P EQU DVT+244 01339000 DVT0061P EQU DVT+240 01340000 DVT0060P EQU DVT+236 01341000 DVT0059P EQU DVT+232 01342000 DVT0058P EQU DVT+228 01343000 DVT0057P EQU DVT+224 01344000 DVT0056P EQU DVT+220 01345000 DVT0055P EQU DVT+216 01346000 DVT0054P EQU DVT+212 01347000 DVT0053P EQU DVT+208 01348000 DVT0052P EQU DVT+204 01349000 DVT0051P EQU DVT+200 01350000 DVT0050P EQU DVT+196 01351000 DVT0049P EQU DVT+192 01352000 DVT0048P EQU DVT+188 01353000 DVT0047P EQU DVT+184 01354000 DVT0046P EQU DVT+180 01355000 DVT0045P EQU DVT+176 01356000 DVT0044P EQU DVT+172 01357000 DVT0043P EQU DVT+168 01358000 DVT0042P EQU DVT+164 01359000 DVT0041P EQU DVT+160 01360000 DVT0040P EQU DVT+156 01361000 DVT0039P EQU DVT+152 01362000 DVT0038P EQU DVT+148 01363000 DVT0037P EQU DVT+144 01364000 DVT0036P EQU DVT+140 01365000 DVT0035P EQU DVT+136 01366000 DVT0034P EQU DVT+132 01367000 DVT0011P EQU DVT+40 01368000 DVT0005P EQU DVT+16 01369000 DVT0002P EQU DVT+4 01370000 DVT0001P EQU DVT 01371000 BVT99999 EQU BVT+256 01372000 BVT0064P EQU BVT+252 01373000 BVT0063P EQU BVT+248 01374000 BVT0062P EQU BVT+244 01375000 BVT0061P EQU BVT+240 01376000 BVT0060P EQU BVT+236 01377000 BVT0059P EQU BVT+232 01378000 BVT0057P EQU BVT+224 01379000 BVT0056P EQU BVT+220 01380000 BVTSTBLP EQU BVT+200 01381000 BVT0045P EQU BVT+176 01382000 BVT0044P EQU BVT+172 01383000 BVT0033P EQU BVT+128 01384000 BVT0032P EQU BVT+124 01385000 BVT0031P EQU BVT+120 01386000 BVT0030P EQU BVT+116 01387000 BVT0029P EQU BVT+112 01388000 BVT0026P EQU BVT+100 01389000 BVT0025P EQU BVT+96 01390000 BVT0024P EQU BVT+92 01391000 BVT0023P EQU BVT+88 01392000 BVT0016P EQU BVT+60 01393000 BVT0015P EQU BVT+56 01394000 BVT0014P EQU BVT+52 01395000 BVT0003P EQU BVT+8 01396000 BVT0001P EQU BVT 01397000 SA99 EQU SA+72 01398000 SARC EQU SAR+56 01399000 SARB EQU SAR+52 01400000 SARA EQU SAR+48 01401000 SAR9 EQU SAR+44 01402000 SAR8 EQU SAR+40 01403000 SAR7 EQU SAR+36 01404000 SAR6 EQU SAR+32 01405000 SAR5 EQU SAR+28 01406000 SAR4 EQU SAR+24 01407000 SAR3 EQU SAR+20 01408000 SAR2 EQU SAR+16 01409000 SAR0 EQU SAR+8 01410000 SARF EQU SAR+4 01411000 SARE EQU SAR 01412000 SAFWD EQU SA+8 01413000 SABAK EQU SA+4 01414000 SA1L EQU SA1+1 01415000 SA1P EQU SA1 01416000 UPTPREFL EQU UPT+23 01417000 UPTPREFX EQU UPT+16 01418000 @NM00068 EQU UPT+15 01419000 UPTLDEL EQU UPT+14 01420000 UPTCDEL EQU UPT+13 01421000 UPTWTP EQU UPTSWS 01422000 UPTMODE EQU UPTSWS 01423000 UPTALD EQU UPTSWS 01424000 UPTPAUS EQU UPTSWS 01425000 UPTNCOM EQU UPTSWS 01426000 UPTMID EQU UPTSWS 01427000 UPTNPRM EQU UPTSWS 01428000 UPTRCVR EQU UPTSWS 01429000 UPTUSER EQU UPT+2 01430000 @NM00067 EQU UPT 01431000 @NM00066 EQU ECT+52 01432000 @NM00065 EQU ECT+48 01433000 @NM00064 EQU ECT+44 01434000 @NM00063 EQU ECTSWS2+1 01435000 @NM00062 EQU ECTSWS21 01436000 ECTTABND EQU ECTSWS21 01437000 ECTDEFCS EQU ECTSWS21 01438000 ECTBKPB EQU ECT+36 01439000 ECTUSER EQU ECT+32 01440000 ECTDDNUM EQU ECT+29 01441000 ECTATTN EQU ECTSWS 01442000 ECTBKGRD EQU ECTSWS 01443000 ECTNNOT EQU ECTSWS 01444000 ECTNMAL EQU ECTSWS 01445000 ECTLOGF EQU ECTSWS 01446000 ECTATRM EQU ECTSWS 01447000 @NM00061 EQU ECTSWS 01448000 ECTNOPD EQU ECTSWS 01449000 ECTSCMD EQU ECT+20 01450000 ECTPCMD EQU ECT+12 01451000 ECTSMSG EQU ECT+9 01452000 ECTMSGF EQU ECT+8 01453000 ECTIOWA EQU ECT+4 01454000 ECTRTCD EQU ECT+1 01455000 ECTRCDF EQU ECT 01456000 PSCBU EQU PSCB+64 01457000 PSCBRSZ EQU PSCB+60 01458000 PSCBLINE EQU PSCB+59 01459000 PSCBCHAR EQU PSCB+58 01460000 PSCBUPTL EQU PSCB+56 01461000 PSCBUPT EQU PSCB+52 01462000 PSCBRLGB EQU PSCB+48 01463000 PSCBDEST EQU PSCB+40 01464000 @NM00060 EQU PSCB+36 01465000 @NM00059 EQU PSCB+32 01466000 @NM00058 EQU PSCB+28 01467000 PSCBLTI2 EQU PSCB+24 01468000 PSCBLTIM EQU PSCB+20 01469000 PSCBATR2 EQU PSCB+18 01470000 @NM00057 EQU PSCBATR1 01471000 @NM00056 EQU PSCBATR1 01472000 @NM00055 EQU PSCBATR1 01473000 PSCBATTN EQU PSCBATR1 01474000 PSCBVMNT EQU PSCBATR1 01475000 PSCBJCL EQU PSCBATR1 01476000 PSCBACCT EQU PSCBATR1 01477000 PSCBCTRL EQU PSCBATR1 01478000 PSCBGPNM EQU PSCB+8 01479000 PSCBUSRL EQU PSCB+7 01480000 PSCBUSER EQU PSCB 01481000 CMDT1 EQU CMDT 01482000 CMDO EQU CMD+2 01483000 CMDL EQU CMD 01484000 ZZ299999 EQU ZZ2+8192 01485000 ZZ2AXOT1 EQU ZZ2AXOT 01486000 ZZ2AXOL EQU ZZ2AXO 01487000 @NM00054 EQU ZZ2+7288 01488000 @NM00053 EQU ZZ2AMDX+4 01489000 ZZ2AMDXC EQU ZZ2AMDX 01490000 ZZ2HSD EQU ZZ2+3056 01491000 @NM00052 EQU ZZ2ES 01492000 @NM00051 EQU ZZ2+2868 01493000 ZZ2ITSEC EQU ZZ2ITSE+1 01494000 @NM00050 EQU ZZ2ITSE 01495000 ZZ2ITSEP EQU ZZ2ITSE 01496000 ZZ2ITSEW EQU ZZ2ITSE 01497000 @NM00049 EQU ZZ2ITR+20 01498000 ZZ2ITREC EQU ZZ2ITRE+1 01499000 @NM00048 EQU ZZ2ITRE 01500000 ZZ2ITREP EQU ZZ2ITRE 01501000 ZZ2ITREW EQU ZZ2ITRE 01502000 @NM00047 EQU ZZ2ITR+9 01503000 ZZ2ITRRC EQU ZZ2ITR+8 01504000 ZZ2ITR2P EQU ZZ2ITR+4 01505000 ZZ2ITRPP EQU ZZ2ITR 01506000 @NM00046 EQU ZZ2+1544 01507000 ZZ2PGM EQU ZZ2+1536 01508000 @NM00045 EQU ZZ2+1526 01509000 ZZ2CW EQU ZZ2+1524 01510000 @NM00044 EQU ZZ2+1504 01511000 @NM00043 EQU ZZ2+1352 01512000 ZZ2FFSYP EQU ZZ2+1348 01513000 ZZ2SASYP EQU ZZ2+1344 01514000 ZZ2RDSYP EQU ZZ2+1340 01515000 ZZ2RASYP EQU ZZ2+1336 01516000 ZZ2PHSYP EQU ZZ2+1332 01517000 ZZ2ESSYP EQU ZZ2+1328 01518000 ZZ200SYP EQU ZZ2+1324 01519000 ZZ2SCWP EQU ZZ2+1320 01520000 ZZ2TTLP EQU ZZ2+1316 01521000 ZZ2LOADP EQU ZZ2+1312 01522000 ZZ2VRESP EQU ZZ2+1308 01523000 ZZ2CPPLE EQU ZZ2CPPL+12 01524000 ZZ2CPPLP EQU ZZ2CPPL+8 01525000 ZZ2CPPLU EQU ZZ2CPPL+4 01526000 ZZ2VRSAP EQU ZZ2+1288 01527000 ZZ2RVTP EQU ZZ2+1284 01528000 @NM00042 EQU ZZ2+1272 01529000 @NM00041 EQU ZZ2+1268 01530000 ZZ2RPLP EQU ZZ2+1260 01531000 @NM00040 EQU ZZ2+1252 01532000 ZZ2ZZ2P EQU ZZ2+1248 01533000 @NM00039 EQU ZZ2+1112 01534000 ZZ2FPDRP EQU ZZ2+1108 01535000 @NM00038 EQU ZZ2+1080 01536000 ZZ2FT25P EQU ZZ2+1072 01537000 @NM00037 EQU ZZ2+976 01538000 ZZ2TOD EQU ZZ2+968 01539000 ZZ2STGN EQU ZZ2STG+4 01540000 ZZ2STGP EQU ZZ2STG 01541000 @NM00036 EQU ZZ2+952 01542000 ZZ2SCMDE EQU ZZ2+944 01543000 ZZ2SCMDN EQU ZZ2+936 01544000 ZZ2IDENT EQU ZZ2+928 01545000 ZZ2A9999 EQU ZZ2A+656 01546000 @NM00035 EQU ZZ2A+224 01547000 @NM00034 EQU ZZ2A+220 01548000 ZZ2AQD99 EQU ZZ2AQD+60 01549000 @NM00033 EQU ZZ2AQD+56 01550000 @NM00032 EQU ZZ2AQDF 01551000 ZZ2AQDFA EQU ZZ2AQDF 01552000 ZZ2AQDIL EQU ZZ2AQD+48 01553000 ZZ2AQDIM EQU ZZ2AQD+44 01554000 ZZ2AQDT9 EQU ZZ2AQDT+34 01555000 ZZ2AQDTE EQU ZZ2AQDT+33 01556000 ZZ2AQDTD EQU ZZ2AQDT+2 01557000 @NM00031 EQU ZZ2AQDT+1 01558000 ZZ2AQDTY EQU ZZ2AQDT 01559000 ZZ2AQDT0 EQU ZZ2AQDT 01560000 ZZ2AQDLB EQU ZZ2AQD+9 01561000 ZZ2AQDOB EQU ZZ2AQD+8 01562000 ZZ2AQDLE EQU ZZ2AQD+4 01563000 ZZ2AQDOF EQU ZZ2AQD 01564000 ZZ2AQD00 EQU ZZ2AQD 01565000 ZZ2AQAS9 EQU ZZ2AQAS+16 01566000 @NM00030 EQU ZZ2AQAS+12 01567000 ZZ2AQAS2 EQU ZZ2AQAS+8 01568000 ZZ2AQAS1 EQU ZZ2AQAS+4 01569000 @NM00029 EQU ZZ2AQAS+2 01570000 ZZ2AQAST EQU ZZ2AQAS 01571000 ZZ2AQAS0 EQU ZZ2AQAS 01572000 ZZ2AZZ6P EQU ZZ2A+140 01573000 ZZ2ADPTA EQU ZZ2ADPT 01574000 ZZ2ADPL EQU ZZ2ADP 01575000 ZZ2ADMTA EQU ZZ2ADMT 01576000 ZZ2ADML EQU ZZ2ADM 01577000 ZZ2ADDTA EQU ZZ2ADDT 01578000 ZZ2ADDL EQU ZZ2ADD 01579000 @NM00028 EQU ZZ2A+72 01580000 ZZ2APIDB EQU ZZ2APID+3 01581000 ZZ2APIDA EQU ZZ2APID 01582000 @NM00027 EQU ZZ2A+24 01583000 @NM00026 EQU ZZ2AF+5 01584000 ZZ2AFX EQU ZZ2AF+5 01585000 @NM00025 EQU ZZ2AF+3 01586000 ZZ2AFS EQU ZZ2AF+2 01587000 ZZ2AFD EQU ZZ2AF+2 01588000 ZZ2AFQ EQU ZZ2AF+2 01589000 ZZ2AF$ EQU ZZ2AF+2 01590000 @NM00024 EQU ZZ2AF+2 01591000 ZZ2AFM EQU ZZ2AF+2 01592000 @NM00023 EQU ZZ2AF+2 01593000 @NM00022 EQU ZZ2AF+1 01594000 ZZ2AFV EQU ZZ2AF+1 01595000 @NM00021 EQU ZZ2AF+1 01596000 ZZ2AFC EQU ZZ2AF+1 01597000 @NM00020 EQU ZZ2AF 01598000 ZZ2AFFS EQU ZZ2AF 01599000 ZZ2AFT EQU ZZ2AF 01600000 ZZ2AFP EQU ZZ2AF 01601000 @NM00019 EQU ZZ2A+8 01602000 ZZ2ALINE EQU ZZ2A+4 01603000 @NM00018 EQU ZZ2A+3 01604000 ZZ2ASE EQU ZZ2A+2 01605000 ZZ2ACH EQU ZZ2A 01606000 @NM00017 EQU ZZ2+264 01607000 @NM00016 EQU ZZ2+263 01608000 ZZ2PRTT0 EQU ZZ2PRTT 01609000 ZZ2PRTO EQU ZZ2PRT+2 01610000 ZZ2PRTL EQU ZZ2PRT 01611000 @NM00015 EQU ZZ2AMD+56 01612000 ZZ2AMDXP EQU ZZ2AMD+52 01613000 ZZ2AMDD EQU ZZ2AMD+48 01614000 ZZ2AMDL EQU ZZ2AMD+44 01615000 ZZ2AMDU EQU ZZ2AMD+28 01616000 ZZ2AMDF EQU ZZ2AMD+24 01617000 ZZ2AMDS EQU ZZ2AMD+20 01618000 ZZ2AMDC EQU ZZ2AMD+16 01619000 ZZ2AMDP EQU ZZ2AMD+12 01620000 ZZ2AMDB EQU ZZ2AMD+8 01621000 @NM00014 EQU @NM00013 01622000 ZZ2AMD2 EQU @NM00013 01623000 ZZ2AMD1 EQU @NM00013 01624000 ZZ2AMD0 EQU ZZ2AMD+6 01625000 ZZ2AMDA EQU ZZ2AMD+4 01626000 ZZ2AMDT EQU ZZ2AMD 01627000 ZZ199999 EQU ZZ1+3072 01628000 @NM00012 EQU ZZ1+2160 01629000 ZZ1TRTAS EQU ZZ1+1904 01630000 ZZ1TRUPC EQU ZZ1+1648 01631000 ZZ1TRCTX EQU ZZ1+1392 01632000 ZZ1NASID EQU ZZ1N+274 01633000 ZZ1NSTRL EQU ZZ1N+272 01634000 ZZ1NOFF EQU ZZ1N+268 01635000 ZZ1NBDY EQU ZZ1N+264 01636000 ZZ1NADE EQU ZZ1N+260 01637000 ZZ1NADB EQU ZZ1N+256 01638000 ZZ1NSTR EQU ZZ1N 01639000 @NM00011 EQU ZZ1+1080 01640000 ZZ1TREBC EQU ZZ1+824 01641000 ZZ1TRHEX EQU ZZ1+568 01642000 @NM00010 EQU ZZ1+377 01643000 ZZ1USTAE EQU ZZ1+376 01644000 @NM00009 EQU ZZ1F+1 01645000 @NM00008 EQU ZZ1F 01646000 ZZ1FM EQU ZZ1F 01647000 ZZ1FX EQU ZZ1F 01648000 ZZ1FU EQU ZZ1F 01649000 ZZ1EVEC EQU ZZ1EVE+1 01650000 @NM00007 EQU ZZ1EVE 01651000 ZZ1EVEP EQU ZZ1EVE 01652000 ZZ1EVEW EQU ZZ1EVE 01653000 ZZ1ACMP EQU ZZ1ATTN 01654000 @NM00006 EQU ZZ1+144 01655000 ZZ1FPP EQU ZZ1+140 01656000 ZZ1ZZ6P EQU ZZ1+136 01657000 @NM00005 EQU ZZ1+84 01658000 ZZ1PLINE EQU ZZ1+80 01659000 ZZ1PGSZ EQU ZZ1+76 01660000 ZZ1PCNT EQU ZZ1+72 01661000 @NM00004 EQU ZZ1+68 01662000 ZZ1TPAGE EQU ZZ1+64 01663000 ZZ1TLINE EQU ZZ1+60 01664000 @NM00003 EQU ZZ1+52 01665000 ZZ1ZZ2P EQU ZZ1+36 01666000 ZZ1327WP EQU ZZ1+32 01667000 ZZ1ACBP EQU ZZ1+28 01668000 @NM00002 EQU ZZ1+24 01669000 ZZ1PDCBP EQU ZZ1+20 01670000 ZZ1BLRBL EQU ZZ1+16 01671000 @NM00001 EQU ZZ1+12 01672000 ZZ1PNULL EQU ZZ1+8 01673000 ZZ1NULL EQU ZZ1+4 01674000 @NM00092 EQU PSA+3668 01675000 PSASTAK EQU PSA+3072 01676000 @NM00091 EQU PSA+1048 01677000 PSAUSEND EQU PSA+1048 01678000 PSARV062 EQU PSA+1044 01679000 PSACDAL EQU PSA+1040 01680000 PSAWTCOD EQU PSA+1036 01681000 PSAATCVT EQU PSA+1032 01682000 PSAPCPSW EQU PSA+1024 01683000 PSAPIR2 EQU PSA+1020 01684000 PSARV059 EQU PSA+1018 01685000 PSASVC13 EQU PSA+1016 01686000 PSALSFCC EQU PSA+1012 01687000 PSASFACC EQU PSA+1008 01688000 PSASTOP EQU PSA+992 01689000 PSASTART EQU PSA+976 01690000 PSARSPSW EQU PSA+968 01691000 PSASRPSW EQU PSA+960 01692000 PSARV045 EQU PSA+892 01693000 PSARV044 EQU PSA+888 01694000 PSARV043 EQU PSA+884 01695000 PSARV042 EQU PSA+880 01696000 PSARV041 EQU PSA+876 01697000 PSARV040 EQU PSA+872 01698000 PSARV025 EQU PSA+868 01699000 PSADSSED EQU PSA+868 01700000 PSADSSPR EQU PSA+864 01701000 PSADSSFW EQU PSA+860 01702000 PSADSS14 EQU PSA+856 01703000 PSADSSPP EQU PSA+848 01704000 PSADSSRP EQU PSA+840 01705000 PSADSS05 EQU PSADSSF4 01706000 PSADSS10 EQU PSADSSF4 01707000 PSADSSVE EQU PSADSSF4 01708000 PSADSSDE EQU PSADSSF4 01709000 PSADSSC0 EQU PSADSSF4 01710000 PSADSSIE EQU PSADSSF4 01711000 PSADSS12 EQU PSADSSF4 01712000 PSADSSRC EQU PSADSSF4 01713000 PSARV057 EQU PSADSSF3 01714000 PSARV056 EQU PSADSSF3 01715000 PSARV055 EQU PSADSSF3 01716000 PSADSSMC EQU PSADSSF3 01717000 PSADSSRW EQU PSADSSF3 01718000 PSADSSNM EQU PSADSSF3 01719000 PSADSSES EQU PSADSSF3 01720000 PSADSSGP EQU PSADSSF3 01721000 PSADSSF2 EQU PSADSSFL+1 01722000 PSADSSPI EQU PSADSSF1 01723000 PSADSSOI EQU PSADSSF1 01724000 PSADSSSP EQU PSADSSF1 01725000 PSADSSTP EQU PSADSSF1 01726000 PSADSSDW EQU PSADSSF1 01727000 PSADSSDD EQU PSADSSF1 01728000 PSADSSDM EQU PSADSSF1 01729000 PSADSSMV EQU PSADSSF1 01730000 PSADSSTS EQU PSA+816 01731000 PSADSSWK EQU PSA+812 01732000 PSADSSR3 EQU PSA+808 01733000 PSADSSR2 EQU PSA+804 01734000 PSADSSRS EQU PSA+800 01735000 PSASTOR EQU PSA+796 01736000 PSACPUSA EQU PSA+794 01737000 PSAVSTAP EQU PSA+792 01738000 PSAWKVAP EQU PSA+788 01739000 PSAWKRAP EQU PSA+784 01740000 PSAMCHIC EQU PSA+783 01741000 PSARV061 EQU PSA+782 01742000 PSASYMSK EQU PSA+781 01743000 PSAMCHFL EQU PSA+780 01744000 PSACR0 EQU PSA+776 01745000 PSAPSWSV EQU PSA+768 01746000 PSALITA EQU PSA+764 01747000 PSACLHS EQU PSAHLHI 01748000 PSALKR15 EQU PSALKSA+60 01749000 PSALKR14 EQU PSALKSA+56 01750000 PSALKR13 EQU PSALKSA+52 01751000 PSALKR12 EQU PSALKSA+48 01752000 PSALKR11 EQU PSALKSA+44 01753000 PSALKR10 EQU PSALKSA+40 01754000 PSALKR9 EQU PSALKSA+36 01755000 PSALKR8 EQU PSALKSA+32 01756000 PSALKR7 EQU PSALKSA+28 01757000 PSALKR6 EQU PSALKSA+24 01758000 PSALKR5 EQU PSALKSA+20 01759000 PSALKR4 EQU PSALKSA+16 01760000 PSALKR3 EQU PSALKSA+12 01761000 PSALKR2 EQU PSALKSA+8 01762000 PSALKR1 EQU PSALKSA+4 01763000 PSALKR0 EQU PSALKSA 01764000 PSARV023 EQU PSACLHT+52 01765000 PSALOCAL EQU PSACLHT+48 01766000 PSACMSL EQU PSACLHT+44 01767000 PSAOPTL EQU PSACLHT+40 01768000 PSATPACL EQU PSACLHT+36 01769000 PSATPDNL EQU PSACLHT+32 01770000 PSATPNCL EQU PSACLHT+28 01771000 PSAIOSLL EQU PSACLHT+24 01772000 PSAIOSUL EQU PSACLHT+20 01773000 PSAIOSCL EQU PSACLHT+16 01774000 PSAIOSSL EQU PSACLHT+12 01775000 PSASALCL EQU PSACLHT+8 01776000 PSAASML EQU PSACLHT+4 01777000 PSADISPL EQU PSACLHT 01778000 PSASRSA EQU PSA+636 01779000 PSARV050 EQU PSA+634 01780000 PSADSSGO EQU PSA+633 01781000 PSARECUR EQU PSA+632 01782000 PSAHLHIS EQU PSA+628 01783000 PSAIPCSA EQU PSA+624 01784000 @NM00090 EQU PSA+621 01785000 PSAIPCDM EQU PSA+620 01786000 PSAIPCD EQU PSA+616 01787000 @NM00089 EQU PSA+613 01788000 PSAIPCRM EQU PSA+612 01789000 PSAIPCR EQU PSA+608 01790000 PSAMCHEX EQU PSA+600 01791000 PSAMPSW EQU PSA+592 01792000 PSAEXPS2 EQU PSA+584 01793000 PSAEXPS1 EQU PSA+576 01794000 PSAPIREG EQU PSA+572 01795000 PSARSREG EQU PSA+568 01796000 PSAGPREG EQU PSA+556 01797000 PSARV022 EQU PSASUP4 01798000 PSARV021 EQU PSASUP4 01799000 PSARV020 EQU PSASUP4 01800000 PSARV019 EQU PSASUP4 01801000 PSARV018 EQU PSASUP4 01802000 PSARV017 EQU PSASUP4 01803000 PSARV016 EQU PSASUP4 01804000 PSARV015 EQU PSASUP4 01805000 PSARV014 EQU PSASUP3 01806000 PSARV013 EQU PSASUP3 01807000 PSARV012 EQU PSASUP3 01808000 PSAESTA EQU PSASUP3 01809000 PSASPR EQU PSASUP3 01810000 PSAPSREG EQU PSASUP3 01811000 PSAPI2 EQU PSASUP3 01812000 PSAIOSUP EQU PSASUP3 01813000 PSALCR EQU PSASUP2 01814000 PSARTM EQU PSASUP2 01815000 PSAACR EQU PSASUP2 01816000 PSAIPCE2 EQU PSASUP2 01817000 PSAIPCES EQU PSASUP2 01818000 PSAIPCEC EQU PSASUP2 01819000 PSAGTF EQU PSASUP2 01820000 PSAIPCRI EQU PSASUP2 01821000 PSATYPE6 EQU PSASUP1 01822000 PSATCTL EQU PSASUP1 01823000 PSADISP EQU PSASUP1 01824000 PSALOCK EQU PSASUP1 01825000 PSAPI EQU PSASUP1 01826000 PSAEXT EQU PSASUP1 01827000 PSASVC EQU PSASUP1 01828000 PSAIO EQU PSASUP1 01829000 PSAAOLD EQU PSA+548 01830000 PSAANEW EQU PSA+544 01831000 PSATNEW EQU PSA+536 01832000 PSALCCAR EQU PSA+532 01833000 PSALCCAV EQU PSA+528 01834000 PSAPCCAR EQU PSA+524 01835000 PSAPCCAV EQU PSA+520 01836000 PSACPULA EQU PSA+518 01837000 PSACPUPA EQU PSA+516 01838000 PSAPSA EQU PSA+512 01839000 FLCHDEND EQU PSA+512 01840000 FLCCRSAV EQU FLCMCLA+280 01841000 FLCGRSAV EQU FLCMCLA+216 01842000 FLCFPSAV EQU FLCMCLA+184 01843000 FLCFLA EQU FLCMCLA+88 01844000 FLCRGNCD EQU FLCMCLA+84 01845000 FLCFSAA EQU FLCFSA+1 01846000 @NM00088 EQU FLCFSA 01847000 @NM00087 EQU FLCMCLA+72 01848000 FLCMCIC EQU FLCMCLA+64 01849000 @NM00086 EQU FLCMCLA+20 01850000 FLCIOAA EQU FLCIOA+1 01851000 @NM00085 EQU FLCIOA 01852000 @NM00084 EQU FLCMCLA+15 01853000 @NM00083 EQU FLCMCLA+14 01854000 @NM00082 EQU FLCMCLA+12 01855000 FLCLCL EQU FLCMCLA+8 01856000 FLCIOELA EQU FLCIOEL+1 01857000 @NM00081 EQU FLCIOEL 01858000 FLCCHNID EQU FLCMCLA 01859000 @NM00080 EQU PSA+160 01860000 FLCMTRCD EQU PSA+157 01861000 @NM00079 EQU PSA+156 01862000 FLCPERA EQU FLCPER+1 01863000 @NM00078 EQU FLCPER 01864000 @NM00077 EQU PSA+151 01865000 FLCPERCD EQU PSA+150 01866000 FLCMCNUM EQU PSA+149 01867000 @NM00076 EQU PSA+148 01868000 FLCTEAA EQU FLCTEA+1 01869000 @NM00075 EQU FLCTEA 01870000 PSAPIPC EQU PSAPICOD 01871000 PSAPIMC EQU PSAPICOD 01872000 PSAPIPER EQU PSAPICOD 01873000 PSARV049 EQU FLCPICOD 01874000 FLCPILCB EQU FLCPIILC 01875000 @NM00074 EQU FLCPIILC 01876000 @NM00073 EQU PSAEPPSW 01877000 FLCSVCN EQU PSAESPSW+2 01878000 FLCSILCB EQU FLCSVILC 01879000 @NM00072 EQU FLCSVILC 01880000 @NM00071 EQU PSAESPSW 01881000 FLCEICOD EQU PSAEEPSW+2 01882000 PSASPAD EQU PSAEEPSW 01883000 @NM00070 EQU PSA+128 01884000 FLCINPSW EQU PSA+120 01885000 FLCMNPSW EQU PSA+112 01886000 FLCPNPSW EQU PSA+104 01887000 FLCSNPSW EQU PSA+96 01888000 FLCENPSW EQU PSA+88 01889000 FLCTRACE EQU PSA+84 01890000 FLCTIMER EQU PSA+80 01891000 FLCCVT2 EQU PSA+76 01892000 FLCCAW EQU PSA+72 01893000 FLCCSW EQU PSA+64 01894000 FLCIOPSW EQU PSA+56 01895000 FLCMOPSW EQU PSA+48 01896000 FLCPOPSW EQU PSA+40 01897000 FLCSOPSW EQU PSA+32 01898000 FLCEOPSW EQU PSA+24 01899000 @NM00069 EQU FLCICCW2+4 01900000 FLCCVT EQU FLCICCW2 01901000 FLCICCW1 EQU FLCROPSW 01902000 FLCIPPSW EQU FLCRNPSW 01903000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01904000 @RC00216 EQU @EL00002 01905000 @RF00226 EQU @EL00002 01906000 @RF00258 EQU @EL00003 01907000 @RF00303 EQU @EL00004 01908000 @RF00307 EQU @EL00004 01909000 @ENDDATA EQU * 01910000 END BLSDFPDR,(C'PLS2208',0701,78065) 01911000