TITLE 'HMASMTL2 - HMASMP HMASMICT LMOD SECTION COMPLETE' 00001000 HMASMTL2 CSECT , 0001 00002000 @MAINENT DS 0H 0001 00003000 USING *,@15 0001 00004000 B @PROLOG 0001 00005000 DC AL1(16) 0001 00006000 DC C'HMASMTL2 78.334' 0001 00007000 DROP @15 00008000 @PROLOG STM @14,@12,12(@13) 0001 00009000 BALR @12,0 0001 00010000 @PSTART LA @09,4095(,@12) 0001 00011000 USING @PSTART,@12 0001 00012000 USING @PSTART+4095,@09 0001 00013000 ST @13,@SA00001+4 0001 00014000 LA @14,@SA00001 0001 00015000 ST @14,8(,@13) 0001 00016000 LR @13,@14 0001 00017000 MVC @PC00001(4),0(@01) 0001 00018000 * IOPPTR=CCAIOPTR; /* PTR TO IOP FOR LMOD LOCATE */ 00019000 L IOPPTR,CCAIOPTR(,CCAPTR) 0189 00020000 * IOPPTRF=TBLXIOPF; /* PTR TO IOP FOR BLDL */ 00021000 L @10,@PC00001 0190 00022000 L IOPPTRF,TBLXIOPF(,@10) 0190 00023000 * HMASMMGP=HMASMMGP&&HMASMMGP; /* ZERO ALL MGP FIELDS */ 00024000 XC HMASMMGP(24),HMASMMGP 0191 00025000 * MGPPRINT=ON; /* ALL MSGS TO PRINTER */ 00026000 * MGPHLDS=ON; /* ALL MSGS TO LOG */ 00027000 OI MGPPRINT,B'10010000' 0193 00028000 * TL2RTNCD=ZERO; /* PRESET GOOD RTN CODE */ 00029000 SLR TL2RTNCD,TL2RTNCD 0194 00030000 * 0195 00031000 * /*****************************************************************/ 00032000 * /* */ 00033000 * /* CALL APPROPRIATE PROCEDURE DEPENDING ON FUNCTION */ 00034000 * /* */ 00035000 * /*****************************************************************/ 00036000 * 0195 00037000 * RFY 0195 00038000 * RTNCODE RSTD; /* */ 00039000 * IF CCAACCPT=ON /* IF ACCEPT */ 00040000 * THEN /* THEN */ 00041000 TM CCAACCPT(CCAPTR),B'00100000' 0196 00042000 BNO @RF00196 0196 00043000 * DO; /* */ 00044000 * CALL PROCACPT; /* BUILD LMODS FOR ACCEPT */ 00045000 BAL @14,PROCACPT 0198 00046000 * TL2RTNCD=RTNCODE; /* SAVE RETURN CODE */ 00047000 LR TL2RTNCD,RTNCODE 0199 00048000 * END; /* */ 00049000 * IF CCAAPPLY=ON /* IF APPLY OR */ 00050000 * |CCARES=ON /* RESTORE */ 00051000 * THEN /* */ 00052000 @RF00196 TM CCAAPPLY(CCAPTR),B'01001000' 0201 00053000 BZ @RF00201 0201 00054000 * DO; /* */ 00055000 * CALL PROCAPRS; /* BUILD LMODS FOR APPLY/RESTORE */ 00056000 BAL @14,PROCAPRS 0203 00057000 * TL2RTNCD=RTNCODE; /* SAVE RETURN CODE */ 00058000 LR TL2RTNCD,RTNCODE 0204 00059000 * END; /* */ 00060000 * RFY 0206 00061000 * RTNCODE UNRSTD; /* */ 00062000 @RF00201 DS 0H 0207 00063000 * IOPFUNCT=IOPCLOSE; /* SET TO CLOSE @ZD00002*/ 00064000 MVI IOPFUNCT(IOPPTR),X'50' 0207 00065000 * IOPDSID=IOPANYDD; /* DCB FOR LAST @ZD00002*/ 00066000 MVI IOPDSID(IOPPTR),X'18' 0208 00067000 * CALL HMASMIO(HMASMIOP); /* LIBRARY ACCESSED @ZD00002*/ 00068000 ST IOPPTR,@AL00001 0209 00069000 L @15,@CV01742 0209 00070000 LA @01,@AL00001 0209 00071000 BALR @14,@15 0209 00072000 * TL2RTNCD=MAX(TL2RTNCD,IOPRETRN);/* @ZD00002*/ 00073000 * 0210 00074000 SLR @10,@10 0210 00075000 IC @10,IOPRETRN(,IOPPTR) 0210 00076000 CR TL2RTNCD,@10 0210 00077000 BNL *+6 00078000 LR TL2RTNCD,@10 0210 00079000 * /*****************************************************************/ 00080000 * /* */ 00081000 * /* ALL PROCESSING DONE. RETURN WITH HIGHEST RETURN CODE FROM */ 00082000 * /* CALLED PROCEDURES */ 00083000 * /* */ 00084000 * /*****************************************************************/ 00085000 * 0211 00086000 * RETURN CODE(TL2RTNCD); /* */ 00087000 LR @15,TL2RTNCD 0211 00088000 L @13,4(,@13) 0211 00089000 L @14,12(,@13) 0211 00090000 LM @00,@12,20(@13) 0211 00091000 BR @14 0211 00092000 * 0212 00093000 * /*****************************************************************/ 00094000 * /* */ 00095000 * /* PROCEDURE CALLED TO COMPLETE LMOD SECTION FOR ACCEPT FUNCTION */ 00096000 * /* */ 00097000 * /*****************************************************************/ 00098000 * 0212 00099000 *PROCACPT: 0212 00100000 * PROC; /* */ 00101000 PROCACPT STM @14,@12,@SA00002 0212 00102000 * RFY 0213 00103000 * HMASMIOP BASED(IOPPTR); /* IOP WITH CDS LMOD */ 00104000 * RFY 0214 00105000 * ICTLMOD BASED(CCAICLMD); /* */ 00106000 * RFY 0215 00107000 * ICTIXLF BASED(ICTLCHN(LMDX)); /* LMOD TO MOD CHAIN BASE */ 00108000 * RFY 0216 00109000 * ICTMOD BASED(ICTIXL(LMDIX)); /* MOD BASE */ 00110000 * DECLARE /* */ 00111000 * ACPRTNCD FIXED(8); /* RETURN CODE */ 00112000 * DCL 0218 00113000 * MODLKX FIXED(31); /* LMOD TO MOD INDEX OF 0218 00114000 * REPLACEMENT ELEMENT @Z67SP00*/ 00115000 * ACPRTNCD=ZERO; /* INIT RETURN CODE */ 00116000 * 0219 00117000 SLR ACPRTNCD,ACPRTNCD 0219 00118000 * /*****************************************************************/ 00119000 * /* */ 00120000 * /* LOOP THRU LMODS */ 00121000 * /* */ 00122000 * /*****************************************************************/ 00123000 * 0220 00124000 * DO LMDX=1 BY 1 WHILE /* LOOP THRU LMODS */ 00125000 * (ACPRTNCDICTMOD(1));/* GET LE PARMS 00375000 * @Z67SP00*/ 00376000 L @10,MODLKX 0266 00377000 SLA @10,2 0266 00378000 L @01,@TF00001 0266 00379000 AL @02,@CF01856 0266 00380000 L @02,ICTLCHN-34(@01,@02) 0266 00381000 AL @02,@CF01857 0266 00382000 L @10,ICTIXL(@10,@02) 0266 00383000 ST @10,@AL00001 0266 00384000 LA @01,@AL00001 0266 00385000 BAL @14,LMDBLDL 0266 00386000 * RFY 0267 00387000 * RTNCODE RSTD; /* */ 00388000 * ACPRTNCD=MAX(RTNCODE,ACPRTNCD);/* SAVE RTN CODE */ 00389000 CR ACPRTNCD,RTNCODE 0268 00390000 BNL *+6 00391000 LR ACPRTNCD,RTNCODE 0268 00392000 * IF RTNCODE=ZERO /* LE PARMS OBTAINED */ 00393000 * THEN /* YES */ 00394000 LTR RTNCODE,RTNCODE 0269 00395000 BNZ @RF00269 0269 00396000 * DO; /* */ 00397000 * ICTLFLG1(LMDX)=IOPLMDF1;/* FIRST BYTE OF LE PRMS 0271 00398000 * @ZD00004*/ 00399000 LR @14,LMDX 0271 00400000 MH @14,@CH01093 0271 00401000 L @10,CCAICLMD(,CCAPTR) 0271 00402000 ST @14,@TF00001 0271 00403000 ALR @14,@10 0271 00404000 AL @14,@CF01867 0271 00405000 MVC ICTLFLG1-9(1,@14),IOPLMDF1(IOPPTR) 0271 00406000 * ICTLFLG5(LMDX)=IOPLMDF2;/* SECOND @ZD00004*/ 00407000 LR @14,@10 0272 00408000 AL @14,@TF00001 0272 00409000 AL @14,@CF01868 0272 00410000 MVC ICTLFLG5-10(1,@14),IOPLMDF2(IOPPTR) 0272 00411000 * ICTLFLG6(LMDX)=IOPLMDF3;/* THIRD @ZD00004*/ 00412000 LR @14,@10 0273 00413000 AL @14,@TF00001 0273 00414000 AL @14,@CF01869 0273 00415000 MVC ICTLFLG6-11(1,@14),IOPLMDF3(IOPPTR) 0273 00416000 * ICTLFLG7(LMDX)=IOPLMDF4;/* FOURTH @ZD00004*/ 00417000 AL @10,@TF00001 0274 00418000 AL @10,@CF01870 0274 00419000 MVC ICTLFLG7-12(1,@10),IOPLMDF4(IOPPTR) 0274 00420000 * END; /* */ 00421000 * IF RTNCODE=IOPNOTFD /* LMOD NOT FOUND IN DLIB? */ 00422000 * THEN /* YES */ 00423000 @RF00269 CH RTNCODE,@CH00037 0276 00424000 BNE @RF00276 0276 00425000 * DO; /* WARNING MSG ISSUED */ 00426000 * ICTLRENT(LMDX)=ON;/* USE DEFAULT PARMS */ 00427000 * ICTLREUS(LMDX)=ON;/* */ 00428000 * ICTLDC(LMDX)=ON; /* */ 00429000 * ICTLREFR(LMDX)=ON;/* */ 00430000 LR @14,LMDX 0281 00431000 MH @14,@CH01093 0281 00432000 L @10,CCAICLMD(,CCAPTR) 0281 00433000 ALR @10,@14 0281 00434000 AL @10,@CF01867 0281 00435000 OI ICTLRENT-9(@10),B'01100110' 0281 00436000 * END; /* END LMOD NOT FOUND */ 00437000 * IF RTNCODE=STOPPTF /* LMOD NOT PROCESSABLE */ 00438000 * THEN /* SO */ 00439000 @RF00276 CH RTNCODE,@CH00055 0283 00440000 BNE @RF00283 0283 00441000 * CALL LMDERR; /* MARK IT DONE */ 00442000 BAL @14,LMDERR 0284 00443000 * RFY 0285 00444000 * RTNCODE UNRSTD; /* */ 00445000 @RF00283 DS 0H 0286 00446000 * END; /* END NEED LE PARMS */ 00447000 * END; /* END LMOD NOT COMPLETE */ 00448000 @RF00263 DS 0H 0288 00449000 * END; /* END LOOP ON LMODS */ 00450000 @RF00255 AH LMDX,@CH00063 0288 00451000 @DE00220 CH ACPRTNCD,@CH00033 0288 00452000 BNL @DC00220 0288 00453000 LR @10,LMDX 0288 00454000 MH @10,@CH01093 0288 00455000 L @02,CCAICLMD(,CCAPTR) 0288 00456000 AL @02,@CF01871 0288 00457000 L @10,ICTLEND(@10,@02) 0288 00458000 CL @10,ICTENDNT 0288 00459000 BNE @DL00220 0288 00460000 @DC00220 DS 0H 0289 00461000 * RETURN CODE(ACPRTNCD); /* RETURN WITH HIGHEST RTN CODE */ 00462000 LR @15,ACPRTNCD 0289 00463000 L @14,@SA00002 0289 00464000 LM @00,@12,@SA00002+8 0289 00465000 BR @14 0289 00466000 * END PROCACPT; /* */ 00467000 * 0291 00468000 * /*****************************************************************/ 00469000 * /* */ 00470000 * /* PROCEDURE TO PROCESS THE LMODS FOR APPLY AND RESTORE */ 00471000 * /* */ 00472000 * /*****************************************************************/ 00473000 * 0291 00474000 *PROCAPRS: 0291 00475000 * PROC; /* */ 00476000 PROCAPRS STM @14,@12,@SA00003 0291 00477000 * RFY 0292 00478000 * ICTLMOD BASED(CCAICLMD); /* LMOD BASE */ 00479000 * RFY 0293 00480000 * ICTIXLF BASED(ICTLCHN(LMDX)); /* LMOD TO MOD CHAIN BASE */ 00481000 * RFY 0294 00482000 * ICTMOD BASED(ICTIXL(LMDIX)); /* MOD BASE */ 00483000 * RFY 0295 00484000 * ICTPTF BASED(ICTPPTR(1)); /* PTF BASE */ 00485000 * RFY 0296 00486000 * HMASMIOP BASED(IOPPTR); /* IOP WITH CDS LMOD */ 00487000 * DECLARE 0297 00488000 * APRRTNCD FIXED(8); /* PROC RETURN CODE */ 00489000 * DECLARE /* */ 00490000 * LPRTNCD FIXED(8); /* */ 00491000 * DCL 0299 00492000 * DDNICTX FIXED(8); /* NUMBER OF DDNAMES IN THE ICT 00493000 * @ZD00004*/ 00494000 * DCL 0300 00495000 * LSYSNDX FIXED(8); /* LIB NAME LOOP INDEX @ZD00004*/ 00496000 * DCL 0301 00497000 * SVCLBFND BIT(1); /* ONE OF SYSLIB DDNAMES IS 0301 00498000 * SVCLIB FLAG @ZD00004*/ 00499000 * 0301 00500000 * /*****************************************************************/ 00501000 * /* */ 00502000 * /* LOOP ON LMODS COMPLETING ENTRIES */ 00503000 * /* */ 00504000 * /*****************************************************************/ 00505000 * 0302 00506000 * APRRTNCD=ZERO; /* INIT RETURN CODE */ 00507000 SLR APRRTNCD,APRRTNCD 0302 00508000 * DO LMDX=1 BY 1 WHILE /* LOOP ON LMODS */ 00509000 * (APRRTNCDICTMOD(1));/* GET LE PARMS 0433 01089000 * @Z67SP00*/ 01090000 L @10,APPMODX 0433 01091000 SLA @10,2 0433 01092000 L @01,@TF00001 0433 01093000 AL @02,@CF01856 0433 01094000 L @02,ICTLCHN-34(@01,@02) 0433 01095000 AL @02,@CF01857 0433 01096000 L @10,ICTIXL(@10,@02) 0433 01097000 ST @10,@AL00001 0433 01098000 LA @01,@AL00001 0433 01099000 BAL @14,LMDBLDL 0433 01100000 * RFY 0434 01101000 * RTNCODE RSTD; /* */ 01102000 * APPRTNCD=MAX(APPRTNCD,RTNCODE);/* SAVE RETURN CODE */ 01103000 CR APPRTNCD,RTNCODE 0435 01104000 BNL *+6 01105000 LR APPRTNCD,RTNCODE 0435 01106000 * RFY 0436 01107000 * RTNCODE UNRSTD; /* */ 01108000 * IF APPRTNCD=STOPPTF /* PARMS NOT AVAILABLE */ 01109000 * THEN /* THEN */ 01110000 CH APPRTNCD,@CH00055 0437 01111000 BNE @RF00437 0437 01112000 * CALL LMDERR; /* CALL ERROR ROUTINE */ 01113000 BAL @14,LMDERR 0438 01114000 * IF LEPCHNGD=ON /* IF BLDL WAS OK AND LE PARMS */ 01115000 * THEN /* CHANGED THEN MUST RESET IN CDS*/ 01116000 @RF00437 TM LEPCHNGD,B'10000000' 0439 01117000 BNO @RF00439 0439 01118000 * DO; /* IF IO ERR BIT WILL NOT BE SET */ 01119000 * IOPLINK=ON; /* SET GOT LE PARMS */ 01120000 OI IOPLINK(IOPPTR),B'01000000' 0441 01121000 * IOPFUNCT=IOPUDEO; /* SET TO UPDATE DIRECT @Z67SP00*/ 01122000 MVI IOPFUNCT(IOPPTR),X'56' 0442 01123000 * CALL HMASMIO(HMASMIOP); /* DO IT */ 01124000 ST IOPPTR,@AL00001 0443 01125000 L @15,@CV01742 0443 01126000 LA @01,@AL00001 0443 01127000 BALR @14,@15 0443 01128000 * APPRTNCD=MAX(APPRTNCD,IOPRETRN);/* SAVE RETURN CODE */ 01129000 SLR @10,@10 0444 01130000 IC @10,IOPRETRN(,IOPPTR) 0444 01131000 CR APPRTNCD,@10 0444 01132000 BNL *+6 01133000 LR APPRTNCD,@10 0444 01134000 * END; /* END CHANGED LE PARMS */ 01135000 * END; /* END COPY AND NOT LINKLIB */ 01136000 @RF00439 DS 0H 0447 01137000 * RETURN CODE(APPRTNCD); /* RETURN WITH CODE SET OR CODE 01138000 * FROM STOW REPLACE */ 01139000 @RF00431 LR @15,APPRTNCD 0447 01140000 L @14,@SA00006 0447 01141000 LM @00,@12,@SA00006+8 0447 01142000 BR @14 0447 01143000 * END PROCAPP; /* END PROCEDURE */ 01144000 * 0449 01145000 * /*****************************************************************/ 01146000 * /* */ 01147000 * /* PROCEDURE CALLED TO DETERMINE THE LINK EDIT PARMS THAT SHOULD */ 01148000 * /* BE USED. THIS IS DONE BY EITHER USING THE MODULE LE PARMS FROM*/ 01149000 * /* THE PTF OR BY DOING A BLDL ON THE MODULE IN THE LIBRARY THAT */ 01150000 * /* IT EXISTS IN */ 01151000 * /* */ 01152000 * /*****************************************************************/ 01153000 * 0449 01154000 *LMDBLDL: 0449 01155000 * PROC(LMDBMOD); /* @Z67SP00*/ 01156000 LMDBLDL STM @14,@12,@SA00007 0449 01157000 MVC @PC00007(4),0(@01) 0449 01158000 * DCL 0450 01159000 * LMDBMOD CHAR(*); /* ICT REPLACEMENT MOD ENTRY 0450 01160000 * @Z67SP00*/ 01161000 * DECLARE /* @ZA16555*/ 01162000 * APFPTR PTR(31); /* PTR TO APF SECTION TO CHECK 0451 01163000 * FOR AUTHORIZATION @ZA16555*/ 01164000 * RFY 0452 01165000 * HMASMIOP BASED(IOPPTR); /* IOP WITH LMOD ENTRY */ 01166000 * RFY 0453 01167000 * IOPBS04 BASED(APFPTR); /* APF SECTION OF DIR @ZA16555*/ 01168000 * RFY 0454 01169000 * ICTLMOD BASED(CCAICLMD); /* ICT LMOD BASE */ 01170000 * RFY 0455 01171000 * ICTIXLF BASED(ICTLCHN(LMDX)); /* LMOD TO MOD CHAIN BASE */ 01172000 * RFY 0456 01173000 * ICTMOD BASED(ADDR(LMDBMOD)); /* MOD ENTRY */ 01174000 * RFY 0457 01175000 * ICTPTF BASED(ICTPPTR(1)); /* PTF BASE */ 01176000 * LEPCHNGD=OFF; /* INIT STOW BIT TO INDICATED 0458 01177000 * THAT LE PARMS NOT CHANGED */ 01178000 * 0458 01179000 NI LEPCHNGD,B'01111111' 0458 01180000 * /*****************************************************************/ 01181000 * /* */ 01182000 * /* IF LE PARMS ARE AVAILABLE FROM THE PTF AND THIS IS ACCEPT OR */ 01183000 * /* IF APPLY OR RESTORE AND MOD WAS COPIED AT SYSGEN THEN USE */ 01184000 * /* THEM. ALSO SET BIT IF PARMS ARE NOT EQUAL TO THE EXISTING ONES*/ 01185000 * /* */ 01186000 * /*****************************************************************/ 01187000 * 0459 01188000 * IOPPTRF->IOPRETRN=IOPGOOD; /* INIT IOP RETURN THAT WILL BE 01189000 * THE RETURN CODE FROM THIS PROC*/ 01190000 MVI IOPRETRN(IOPPTRF),X'00' 0459 01191000 * IF ICTMPRMS(1)=ON /* MOD PARMS AVAILABLE? */ 01192000 * &(CCAACCPT=ON /* AND ACCEPT? */ 01193000 * |IOPCOPY=ON) /* OR COPIED AT SYSGEN */ 01194000 * THEN /* YES */ 01195000 L @10,@PC00007 0460 01196000 TM ICTMPRMS(@10),B'00000010' 0460 01197000 BNO @RF00460 0460 01198000 TM CCAACCPT(CCAPTR),B'00100000' 0460 01199000 BO @RT00460 0460 01200000 TM IOPCOPY(IOPPTR),B'10000000' 0460 01201000 BNO @RF00460 0460 01202000 @RT00460 DS 0H 0461 01203000 * DO; /* CHECK EXISTING ONES */ 01204000 * IF ICTMLEP1(1)^=IOPLMDF1 /* IF FIRST BYTE NOT EQUAL 0462 01205000 * @ZD00004*/ 01206000 * |ICTMLEP2(1)^=IOPLMDF2 /* OR SECOND @ZD00004*/ 01207000 * |ICTMLEP3(1)^=IOPLMDF3 /* OR THIRD @ZD00004*/ 01208000 * |ICTMLEP4(1)^=IOPLMDF4 /* OR FOURTH @ZD00004*/ 01209000 * THEN /* IF NOT SAME */ 01210000 L @10,@PC00007 0462 01211000 CLC ICTMLEP1(1,@10),IOPLMDF1(IOPPTR) 0462 01212000 BNE @RT00462 0462 01213000 CLC ICTMLEP2(1,@10),IOPLMDF2(IOPPTR) 0462 01214000 BNE @RT00462 0462 01215000 CLC ICTMLEP3(1,@10),IOPLMDF3(IOPPTR) 0462 01216000 BNE @RT00462 0462 01217000 CLC ICTMLEP4(1,@10),IOPLMDF4(IOPPTR) 0462 01218000 BE @RF00462 0462 01219000 @RT00462 DS 0H 0463 01220000 * DO; /* @ZA12359*/ 01221000 * LEPCHNGD=ON; /* SET PARMS CHANGED BIT */ 01222000 OI LEPCHNGD,B'10000000' 0464 01223000 * IOPLMDF1=ICTMLEP1(1); /* COPY LINKEDIT PARMS...@ZD00004*/ 01224000 L @10,@PC00007 0465 01225000 MVC IOPLMDF1(1,IOPPTR),ICTMLEP1(@10) 0465 01226000 * IOPLMDF2=ICTMLEP2(1); /* FROM ICT TO IOP... @ZD00004*/ 01227000 MVC IOPLMDF2(1,IOPPTR),ICTMLEP2(@10) 0466 01228000 * IOPLMDF3=ICTMLEP3(1); /* ... @ZD00004*/ 01229000 MVC IOPLMDF3(1,IOPPTR),ICTMLEP3(@10) 0467 01230000 * IOPLMDF4=ICTMLEP4(1); /* ... @ZD00004*/ 01231000 MVC IOPLMDF4(1,IOPPTR),ICTMLEP4(@10) 0468 01232000 * END; /* END PARM CHANGED @ZA12359*/ 01233000 * END; /* END PTF LE PARMS AVAILABLE */ 01234000 * 0470 01235000 * /*****************************************************************/ 01236000 * /* */ 01237000 * /* IF LE PARMS WERE NOT AVAILABLE IN THE PTF OR CDS THEN MUST DO */ 01238000 * /* BLDL IN THE LMOD LIBRARY TO GET THE EXISTING ONES */ 01239000 * /* */ 01240000 * /*****************************************************************/ 01241000 * 0471 01242000 * ELSE /* PTF LE PARMS NOT AVAILABLE */ 01243000 * IF IOPLINK=OFF /* AND NOT IN CDS */ 01244000 * THEN /* THEN NEED BLDL */ 01245000 B @RC00460 0471 01246000 @RF00460 TM IOPLINK(IOPPTR),B'01000000' 0471 01247000 BNZ @RF00471 0471 01248000 * DO; /* MUST GET THEM */ 01249000 * DEVDDNAM=ICTTG1(LMDX); /* SEE IF DD PRESENT @Z67SP00*/ 01250000 LR @10,LMDX 0473 01251000 MH @10,@CH01093 0473 01252000 L @05,CCAICLMD(,CCAPTR) 0473 01253000 ALR @05,@10 0473 01254000 AL @05,@CF01866 0473 01255000 MVC DEVDDNAM(8),ICTTG1-15(@05) 0473 01256000 * GEN(DEVTYPE DEVDDNAM,DEVADDR) 0474 01257000 * REFS(DEVDDNAM,DEVADDR); /* @Z67SP00*/ 01258000 DEVTYPE DEVDDNAM,DEVADDR 01259000 * RFY 0475 01260000 * RTNCODE RSTD; /* @Z67SP00*/ 01261000 * IF RTNCODE=ZERO /* IF DD PRESENT @Z67SP00*/ 01262000 * THEN /* @Z67SP00*/ 01263000 LTR RTNCODE,RTNCODE 0476 01264000 BNZ @RF00476 0476 01265000 * DO; /* @Z67SP00*/ 01266000 * RFY 0478 01267000 * RTNCODE UNRSTD; /* @Z67SP00*/ 01268000 * RFY 0479 01269000 * HMASMIOP BASED(IOPPTRF);/* FIXED LEN IOP FOR BLDL */ 01270000 * IOPFUNCT=IOPBLDL; /* DO BLDL */ 01271000 MVI IOPFUNCT(IOPPTRF),X'04' 0480 01272000 * IOPDSID=IOPANYDD; /* TO LIBRARY */ 01273000 MVI IOPDSID(IOPPTRF),X'18' 0481 01274000 * IOPDDNAM=ICTTG1(LMDX);/* TO LMOD LIB */ 01275000 LR @10,LMDX 0482 01276000 MH @10,@CH01093 0482 01277000 L @05,CCAICLMD(,CCAPTR) 0482 01278000 ST @10,@TF00001 0482 01279000 ALR @10,@05 0482 01280000 AL @10,@CF01866 0482 01281000 MVC IOPDDNAM(8,IOPPTRF),ICTTG1-15(@10) 0482 01282000 * IOPNAME=ICTLNAME(LMDX);/* FOR LMOD */ 01283000 AL @05,@TF00001 0483 01284000 AL @05,@CF01871 0483 01285000 MVC IOPNAME(8,IOPPTRF),ICTLNAME(@05) 0483 01286000 * IOPTYPE=IOPMEM; /* @Z67SP00*/ 01287000 MVI IOPTYPE(IOPPTRF),X'11' 0484 01288000 * CALL HMASMIO(HMASMIOP);/* DO BLDL */ 01289000 ST IOPPTRF,@AL00001 0485 01290000 L @15,@CV01742 0485 01291000 LA @01,@AL00001 0485 01292000 BALR @14,@15 0485 01293000 * IF IOPRETRN=IOPGOOD /* IF LMOD FOUND OK */ 01294000 * THEN /* YES */ 01295000 CLI IOPRETRN(IOPPTRF),0 0486 01296000 BNE @RF00486 0486 01297000 * DO; /* MOVE LE PARMS TO LMOD IOP */ 01298000 * LEPCHNGD=ON; /* SET BIT TO CAUSE LMOD TO BE 0488 01299000 * STOWED ON SMPCDS WITH LEPARMS 01300000 * OBTAINED FROM BLDL @ZA12359*/ 01301000 OI LEPCHNGD,B'10000000' 0488 01302000 * IF IOPBRENT=ON /* LMOD RE-ENTRANT? */ 01303000 * THEN /* YES */ 01304000 TM IOPBRENT(IOPPTRF),B'10000000' 0489 01305000 BNO @RF00489 0489 01306000 * IOPPTR->IOPRENT=ON;/* SET LMOD RENT BIT */ 01307000 OI IOPRENT(IOPPTR),B'01000000' 0490 01308000 * IF IOPBREUS=ON /* LMOD REUSEABLE? */ 01309000 * THEN /* YES */ 01310000 @RF00489 TM IOPBREUS(IOPPTRF),B'01000000' 0491 01311000 BNO @RF00491 0491 01312000 * IOPPTR->IOPREUS=ON;/* SET LMOD REUS BIT */ 01313000 OI IOPREUS(IOPPTR),B'00100000' 0492 01314000 * IF IOPBOVLY=ON /* LMOD IN OVERLAY? */ 01315000 * THEN /* YES */ 01316000 @RF00491 TM IOPBOVLY(IOPPTRF),B'00100000' 0493 01317000 BNO @RF00493 0493 01318000 * IOPPTR->IOPOVLY=ON;/* SET LMOD OVLY BIT */ 01319000 OI IOPOVLY(IOPPTR),B'00001000' 0494 01320000 * IF IOPBSCTR=ON /* LMOD SCATTER LOADABLE? */ 01321000 * THEN /* YES */ 01322000 @RF00493 TM IOPBSCTR(IOPPTRF),B'00000100' 0495 01323000 BNO @RF00495 0495 01324000 * IOPPTR->IOPBSCTR=ON;/* SET LMOD SCTR BIT @Z67SP00*/ 01325000 OI IOPBSCTR(IOPPTR),B'00000100' 0496 01326000 * IF IOPBDC=OFF /* LMOD DC IF BIT IS OFF */ 01327000 * THEN /* YES */ 01328000 @RF00495 TM IOPBDC(IOPPTRF),B'10000000' 0497 01329000 BNZ @RF00497 0497 01330000 * IOPPTR->IOPDC=ON;/* SET LMOD DC BIT */ 01331000 OI IOPDC(IOPPTR),B'00000010' 0498 01332000 * IF IOPBNE=ON /* LMOD NOT EDITABLE? */ 01333000 * THEN /* YES */ 01334000 @RF00497 TM IOPBNE(IOPPTRF),B'00001000' 0499 01335000 BNO @RF00499 0499 01336000 * IOPPTR->IOPNE=ON;/* SET LMOD NE BIT */ 01337000 OI IOPNE(IOPPTR),B'10000000' 0500 01338000 * IF IOPBREFR=ON /* LMOD REFRESHABLE? */ 01339000 * THEN /* YES */ 01340000 @RF00499 TM IOPBREFR(IOPPTRF),B'00000001' 0501 01341000 BNO @RF00501 0501 01342000 * IOPPTR->IOPREFR=ON;/* SET LMOD REFR BIT */ 01343000 OI IOPREFR(IOPPTR),B'00000100' 0502 01344000 * IF IOPBAOSL=ON /* IF VS LINK-EDIT @ZA16555*/ 01345000 * THEN /* THEN CHECK FOR */ 01346000 @RF00501 TM IOPBAOSL(IOPPTRF),B'10000000' 0503 01347000 BNO @RF00503 0503 01348000 * DO; /* SPECIAL VS ATTRIBUTES */ 01349000 * IF IOPBAPFP=ON/* IF APF PRESENT @ZA16555*/ 01350000 * THEN /* THEN CHECK APF @ZA16555*/ 01351000 TM IOPBAPFP(IOPPTRF),B'00001000' 0505 01352000 BNO @RF00505 0505 01353000 * DO; /* @ZA16555*/ 01354000 * APFPTR=ADDR(IOPBCEND);/* START OF SCTR 0507 01355000 * @ZA16555*/ 01356000 LA APFPTR,IOPBCEND(,IOPPTRF) 0507 01357000 * IF IOPBSCTR=ON/* SCATTER? @ZA16555*/ 01358000 * THEN /* YES- THEN BUMP PAST @ZA16555*/ 01359000 TM IOPBSCTR(IOPPTRF),B'00000100' 0508 01360000 BNO @RF00508 0508 01361000 * APFPTR=APFPTR+LENGTH(IOPBS01);/* @ZA16555*/ 01362000 AH APFPTR,@CH00055 0509 01363000 * IF IOPALIS=ON/* ALIAS PRESENT? @ZA16555*/ 01364000 * THEN /* YES - THEM BUMP PAST @ZA16555*/ 01365000 @RF00508 TM IOPALIS(IOPPTRF),B'10000000' 0510 01366000 BNO @RF00510 0510 01367000 * APFPTR=APFPTR+LENGTH(IOPBS02);/* @ZA16555*/ 01368000 AH APFPTR,@CH00522 0511 01369000 * IF IOPBSSI=ON/* SSI PRESENT @ZA16555*/ 01370000 * THEN /* YES - INSURE ON HALF @ZA16555*/ 01371000 @RF00510 TM IOPBSSI(IOPPTRF),B'00010000' 0512 01372000 BNO @RF00512 0512 01373000 * DO; /* WORD BDY AND BUMP @ZA16555*/ 01374000 * APFPTR=APFPTR+APFPTR//2;/* PAST 0514 01375000 * @ZA16555*/ 01376000 LR @00,APFPTR 0514 01377000 SRDA @00,32 0514 01378000 D @00,@CF00273 0514 01379000 ALR APFPTR,@00 0514 01380000 * APFPTR=APFPTR+LENGTH(IOPBS03);/* 0515 01381000 * @ZA16555*/ 01382000 AH APFPTR,@CH00037 0515 01383000 * END; /* END SSI PRESENT @ZA16555*/ 01384000 * IF IOPBAPFC=1/* APF=1 @ZA16555*/ 01385000 * THEN /* YES */ 01386000 @RF00512 CLI IOPBAPFC(APFPTR),1 0517 01387000 BNE @RF00517 0517 01388000 * IOPPTR->IOPAPF=ON;/* SET APF BIT */ 01389000 OI IOPAPF(IOPPTR),B'10000000' 0518 01390000 * END; /* END APF PRESENT @ZA16555*/ 01391000 @RF00517 DS 0H 0520 01392000 * IF IOPBPAGA=ON/* PAGE ALIGNMENT ON? */ 01393000 * THEN /* YES */ 01394000 @RF00505 TM IOPBPAGA(IOPPTRF),B'00100000' 0520 01395000 BNO @RF00520 0520 01396000 * IOPPTR->IOPPAGA=ON;/* SET PAGA BIT */ 01397000 OI IOPPAGA(IOPPTR),B'01000000' 0521 01398000 * END; /* END NOT OS SYSTEM */ 01399000 @RF00520 DS 0H 0523 01400000 * END; /* END LMOD FOUND */ 01401000 * 0523 01402000 @RF00503 DS 0H 0524 01403000 * /*******************************************************/ 01404000 * /* */ 01405000 * /* IF LMOD NOT FOUND PUT OUT WARNING MSG */ 01406000 * /* */ 01407000 * /*******************************************************/ 01408000 * 0524 01409000 * IF IOPRETRN=IOPNOTFD /* LMOD NOT FOUND */ 01410000 * THEN /* SO PUT OUT MSG */ 01411000 @RF00486 CLI IOPRETRN(IOPPTRF),4 0524 01412000 BNE @RF00524 0524 01413000 * DO; /* */ 01414000 * MGPCLEAR=MGPCLEAR&&MGPCLEAR;/* ZERO MSG NUMBERS */ 01415000 XC MGPCLEAR(6),MGPCLEAR 0526 01416000 * MGPTYPE=MGPWARN; /* SET MESSAGE SEVERITY @ZD00001*/ 01417000 MVI MGPTYPE,X'02' 0527 01418000 * MGPMGNO1=HMA247I; /* BLDL FAILED IN LIBRARY 0528 01419000 * XXXXXXXX FOR LOAD MODULE 0528 01420000 * XXXXXXXX */ 01421000 MVC MGPMGNO1(2),@CH00458 0528 01422000 * MGPMGNO2=PART014; /* IN PTF XXXXXXX */ 01423000 MVC MGPMGNO2(2),@CH00333 0529 01424000 * MGPVARPT(1)=ADDR(IOPDDNAM);/* DD NAME */ 01425000 LA @10,IOPDDNAM(,IOPPTRF) 0530 01426000 ST @10,MGPVARPT 0530 01427000 * MGPVARPT(2)=ADDR(IOPNAME);/* LMOD NAME */ 01428000 LA @10,IOPNAME(,IOPPTRF) 0531 01429000 ST @10,MGPVARPT+4 0531 01430000 * MGPVARPT(3)=ADDR(ICTPTF(1));/* PTF NUMBER */ 01431000 L @10,@PC00007 0532 01432000 L @10,ICTPPTR(,@10) 0532 01433000 ST @10,MGPVARPT+8 0532 01434000 * CALL HMASMMSG(HMASMMGP);/* SEND MSG */ 01435000 L @15,@CV01743 0533 01436000 LA @01,@AL00533 0533 01437000 BALR @14,@15 0533 01438000 * END; /* END LMOD NOT FOUND */ 01439000 * IF IOPRETRN>=IOPNTOPN /* IF ERROR DOING OPEN */ 01440000 * THEN /* THEN IO WROTE MSG */ 01441000 @RF00524 CLI IOPRETRN(IOPPTRF),12 0535 01442000 BL @RF00535 0535 01443000 * IOPRETRN=STOPPTF; /* RESET RTN CODE TO STOP THIS 0536 01444000 * PTF */ 01445000 MVI IOPRETRN(IOPPTRF),X'08' 0536 01446000 * END; /* END DD PRESENT @Z67SP00*/ 01447000 * ELSE /* IF DD NOT PRESENT @Z67SP00*/ 01448000 * IOPRETRN=IOPGOOD; /* SET DEFAULT RC @Z67SP00*/ 01449000 B @RC00476 0538 01450000 @RF00476 MVI IOPRETRN(IOPPTRF),X'00' 0538 01451000 * END; /* END LE PARMS NOT AVAILABLE */ 01452000 * 0539 01453000 @RC00476 DS 0H 0540 01454000 * /*****************************************************************/ 01455000 * /* */ 01456000 * /* RETURN WITH CODE FROM THE IO OPERATION PERFORMED */ 01457000 * /* */ 01458000 * /*****************************************************************/ 01459000 * 0540 01460000 * RFY 0540 01461000 * HMASMIOP BASED(IOPPTRF); /* */ 01462000 @RF00471 DS 0H 0540 01463000 @RC00460 DS 0H 0541 01464000 * RETURN CODE(IOPRETRN); /* */ 01465000 SLR @15,@15 0541 01466000 IC @15,IOPRETRN(,IOPPTRF) 0541 01467000 L @14,@SA00007 0541 01468000 LM @00,@12,@SA00007+8 0541 01469000 BR @14 0541 01470000 * END LMDBLDL; /* END BLDL PROC */ 01471000 * 0543 01472000 * /*****************************************************************/ 01473000 * /* */ 01474000 * /* PROCEDURE CALLED TO CHECK TO SEE IF LMOD CAN BE COPIED OT */ 01475000 * /* LINKED */ 01476000 * /* */ 01477000 * /*****************************************************************/ 01478000 * 0543 01479000 *COPYCHCK: 0543 01480000 * PROC; /* */ 01481000 COPYCHCK STM @14,@12,@SA00008 0543 01482000 * RFY 0544 01483000 * HMASMIOP BASED(IOPPTR); /* */ 01484000 * RFY 0545 01485000 * ICTLMOD BASED(CCAICLMD); /* */ 01486000 * RFY 0546 01487000 * ICTIXLF BASED(ICTLCHN(LMDX)); /* LMOD TO MOD CHAIN BASE */ 01488000 * RFY 0547 01489000 * ICTMOD BASED(ICTIXL(LMDIX)); /* MOD BASE */ 01490000 * DECLARE /* */ 01491000 * CPYRTNCD FIXED(8); /* RETURN CODE */ 01492000 * 0548 01493000 * /*****************************************************************/ 01494000 * /* */ 01495000 * /* INIT RETURN CODE. IF LMOD WAS COPIED AT SYSGEN AND MOD IS IN */ 01496000 * /* LINK LIB OR THIS IS RESTORE THEN MOD CAN BE COPIED */ 01497000 * /* */ 01498000 * /*****************************************************************/ 01499000 * 0549 01500000 * CPYRTNCD=ZERO; /* INIT RETURN CODE */ 01501000 * 0549 01502000 SLR CPYRTNCD,CPYRTNCD 0549 01503000 * /*****************************************************************/ 01504000 * /* */ 01505000 * /* SET LINK INDICATOR ON AS DEFAULT, IF IT IS FOUND THAT A COPY */ 01506000 * /* IS TO BE DONE, TURN OFF LINK INDICATOR THEN */ 01507000 * /* */ 01508000 * /*****************************************************************/ 01509000 * 0550 01510000 * IF IOPCOPY=ON /* LMOD COPIED AT SYSGEN? */ 01511000 * THEN /* YES */ 01512000 TM IOPCOPY(IOPPTR),B'10000000' 0550 01513000 BNO @RF00550 0550 01514000 * DO; 0551 01515000 * DO LMDIX=1 BY 1 /* @Z67SP00*/ 01516000 * WHILE(ICTIXL(LMDIX)^=ICTENDIX);/* @Z67SP00*/ 01517000 LA LMDIX,1 0552 01518000 B @DE00552 0552 01519000 @DL00552 DS 0H 0553 01520000 * IF CCAAPPLY=ON /* IF APPLY AND MODIFICATION IS */ 01521000 * &(ICTMZAP(1)=ON /* ZAP */ 01522000 * |ICTMXPND(1)=ON) /* OR EXPAND ZAP? */ 01523000 * THEN /* LMOD SO TURN OFF COPY BIT */ 01524000 TM CCAAPPLY(CCAPTR),B'01000000' 0553 01525000 BNO @RF00553 0553 01526000 LR @10,LMDIX 0553 01527000 SLA @10,2 0553 01528000 LR @05,LMDX 0553 01529000 MH @05,@CH01093 0553 01530000 L @15,CCAICLMD(,CCAPTR) 0553 01531000 LA @01,0(@05,@15) 0553 01532000 AL @01,@CF01856 0553 01533000 L @01,ICTLCHN-34(,@01) 0553 01534000 AL @01,@CF01857 0553 01535000 L @01,ICTIXL(@10,@01) 0553 01536000 TM ICTMZAP(@01),B'00110000' 0553 01537000 BZ @RF00553 0553 01538000 * DO; /* @Z67SP00*/ 01539000 * ICTLZAP(LMDX)=ON; /* LMOD HAS A ZAP @Z67SP00*/ 01540000 ST @05,@TF00001 0555 01541000 ALR @05,@15 0555 01542000 AL @05,@CF01858 0555 01543000 OI ICTLZAP-14(@05),B'00000100' 0555 01544000 * IF ICTMXPND(1)=ON THEN/* EXPAND ZAP? @Z67SP00*/ 01545000 L @05,@TF00001 0556 01546000 AL @05,@CF01856 0556 01547000 L @05,ICTLCHN-34(@05,@15) 0556 01548000 AL @05,@CF01857 0556 01549000 L @10,ICTIXL(@10,@05) 0556 01550000 TM ICTMXPND(@10),B'00010000' 0556 01551000 BNO @RF00556 0556 01552000 * DO; /* @Z67SP00*/ 01553000 * ICTLXPND(LMDX)=ON;/* DO AN EXPAND @Z67SP00*/ 01554000 * ICTLLKD(LMDX)=ON; /* DO A LINK @Z67SP00*/ 01555000 * ICTLCPY(LMDX)=OFF;/* NOT A COPY @Z67SP00*/ 01556000 AL @15,@TF00001 0560 01557000 AL @15,@CF01858 0560 01558000 OI ICTLXPND-14(@15),B'00101000' 0560 01559000 NI ICTLCPY-14(@15),B'11101111' 0560 01560000 * END; /* @Z67SP00*/ 01561000 * END; /* @Z67SP00*/ 01562000 * ELSE /* A MOD REPLACEMENT @Z67SP00*/ 01563000 * DO; /* @Z67SP00*/ 01564000 B @RC00553 0563 01565000 @RF00553 DS 0H 0564 01566000 * IF ICTLIBLK(1)=ON /* MOD IN LINK LIB? */ 01567000 * |ICTMRELF(1)=ON /* ... OR RELFILE? */ 01568000 * |(CCARES=ON&ICTMASM(1)=OFF)/* NOT ZAP RESTORE 0564 01569000 * @Z67SP00*/ 01570000 * THEN /* YES */ 01571000 LR @10,LMDIX 0564 01572000 SLA @10,2 0564 01573000 LR @05,LMDX 0564 01574000 MH @05,@CH01093 0564 01575000 L @01,CCAICLMD(,CCAPTR) 0564 01576000 AL @01,@CF01856 0564 01577000 L @05,ICTLCHN-34(@05,@01) 0564 01578000 AL @05,@CF01857 0564 01579000 L @10,ICTIXL(@10,@05) 0564 01580000 TM ICTLIBLK(@10),B'10100000' 0564 01581000 BNZ @RT00564 0564 01582000 TM CCARES(CCAPTR),B'00001000' 0564 01583000 BNO @RF00564 0564 01584000 TM ICTMASM(@10),B'01000000' 0564 01585000 BNZ @RF00564 0564 01586000 @RT00564 DS 0H 0565 01587000 * DO; /* @Z67SP00*/ 01588000 * IF ICTLLKD(LMDX)^=ON THEN/* LINK NOT NEEDED? 0566 01589000 * @Z67SP00*/ 01590000 LR @10,LMDX 0566 01591000 MH @10,@CH01093 0566 01592000 L @05,CCAICLMD(,CCAPTR) 0566 01593000 ST @10,@TF00001 0566 01594000 ALR @10,@05 0566 01595000 AL @10,@CF01858 0566 01596000 TM ICTLLKD-14(@10),B'00001000' 0566 01597000 BO @RF00566 0566 01598000 * DO; /* @Z67SP00*/ 01599000 * ICTLCPY(LMDX)=ON;/* COPY IS TO BE DONE @Z67SP00*/ 01600000 AL @05,@TF00001 0568 01601000 AL @05,@CF01858 0568 01602000 OI ICTLCPY-14(@05),B'00010000' 0568 01603000 * END; /* @Z67SP00*/ 01604000 * END; /* @Z67SP00*/ 01605000 * ELSE /* MOD REPLACEMENT THAT CANNOT BE 01606000 * COPIED @Z67SP00*/ 01607000 * DO; /* @Z67SP00*/ 01608000 B @RC00564 0571 01609000 @RF00564 DS 0H 0572 01610000 * ICTLCPY(LMDX)=OFF;/* NOT A COPY @Z67SP00*/ 01611000 * ICTLLKD(LMDX)=ON; /* DO A LINKEDIT @Z67SP00*/ 01612000 LR @10,LMDX 0573 01613000 MH @10,@CH01093 0573 01614000 L @05,CCAICLMD(,CCAPTR) 0573 01615000 ALR @05,@10 0573 01616000 AL @05,@CF01858 0573 01617000 OI ICTLLKD-14(@05),B'00001000' 0573 01618000 NI ICTLCPY-14(@05),B'11101111' 0573 01619000 * END; /* @Z67SP00*/ 01620000 * END; /* @Z67SP00*/ 01621000 @RC00564 DS 0H 0576 01622000 * END; /* @Z67SP00*/ 01623000 @RC00553 AH LMDIX,@CH00063 0576 01624000 @DE00552 LR @10,LMDIX 0576 01625000 SLA @10,2 0576 01626000 LR @05,LMDX 0576 01627000 MH @05,@CH01093 0576 01628000 L @01,CCAICLMD(,CCAPTR) 0576 01629000 AL @01,@CF01856 0576 01630000 L @05,ICTLCHN-34(@05,@01) 0576 01631000 AL @05,@CF01857 0576 01632000 L @10,ICTIXL(@10,@05) 0576 01633000 CL @10,ICTENDIX 0576 01634000 BNE @DL00552 0576 01635000 * END; /* END LMOD COPIED AT SYSGEN */ 01636000 * 0577 01637000 * /*****************************************************************/ 01638000 * /* */ 01639000 * /* IF MOD LINKED AT SYSGEN THEN CHECK TO SEE IF ANY MODS WERE */ 01640000 * /* REPLACED IN THIS LMOD. CHECK FOR NUCLEUS HIT */ 01641000 * /* */ 01642000 * /*****************************************************************/ 01643000 * 0578 01644000 * ELSE /* LMOD LINKED AT SYSGEN */ 01645000 * DO; /* */ 01646000 B @RC00550 0578 01647000 @RF00550 DS 0H 0579 01648000 * DO LMDIX=1 BY 1 WHILE ICTIXL(LMDIX)^=ICTENDIX;/* LOOP THRU 0579 01649000 * MODS @Z67SP00*/ 01650000 LA LMDIX,1 0579 01651000 B @DE00579 0579 01652000 @DL00579 DS 0H 0580 01653000 * IF ICTMMOD(1)=ON /* MOD REPLACEMENT @Z67SP00*/ 01654000 * |ICTMXPND(1)=ON THEN /* OR EXPAND ZAP? @Z67SP00*/ 01655000 LR @10,LMDIX 0580 01656000 SLA @10,2 0580 01657000 LR @05,LMDX 0580 01658000 MH @05,@CH01093 0580 01659000 L @15,CCAICLMD(,CCAPTR) 0580 01660000 LA @01,0(@05,@15) 0580 01661000 AL @01,@CF01856 0580 01662000 L @01,ICTLCHN-34(,@01) 0580 01663000 AL @01,@CF01857 0580 01664000 L @10,ICTIXL(@10,@01) 0580 01665000 TM ICTMMOD(@10),B'10010000' 0580 01666000 BZ @RF00580 0580 01667000 * DO; /* @Z67SP00*/ 01668000 * ICTLLKD(LMDX)=ON; /* LINK REQUIRED @Z67SP00*/ 01669000 ALR @15,@05 0582 01670000 AL @15,@CF01858 0582 01671000 OI ICTLLKD-14(@15),B'00001000' 0582 01672000 * END; /* @Z67SP00*/ 01673000 * IF ICTMZAP(1)=ON /* ZAP @Z67SP00*/ 01674000 * |ICTMXPND(1)=ON THEN /* OR EXPAND ZAP? @Z67SP00*/ 01675000 @RF00580 LR @10,LMDIX 0584 01676000 SLA @10,2 0584 01677000 LR @05,LMDX 0584 01678000 MH @05,@CH01093 0584 01679000 L @15,CCAICLMD(,CCAPTR) 0584 01680000 LA @01,0(@05,@15) 0584 01681000 AL @01,@CF01856 0584 01682000 L @01,ICTLCHN-34(,@01) 0584 01683000 AL @01,@CF01857 0584 01684000 L @10,ICTIXL(@10,@01) 0584 01685000 TM ICTMZAP(@10),B'00110000' 0584 01686000 BZ @RF00584 0584 01687000 * DO; /* @Z67SP00*/ 01688000 * ICTLZAP(LMDX)=ON; /* ZAP REQUIRED @Z67SP00*/ 01689000 ALR @15,@05 0586 01690000 AL @15,@CF01858 0586 01691000 OI ICTLZAP-14(@15),B'00000100' 0586 01692000 * END; /* @Z67SP00*/ 01693000 * END; /* @Z67SP00*/ 01694000 @RF00584 AH LMDIX,@CH00063 0588 01695000 @DE00579 LR @10,LMDIX 0588 01696000 SLA @10,2 0588 01697000 LR @05,LMDX 0588 01698000 MH @05,@CH01093 0588 01699000 L @15,CCAICLMD(,CCAPTR) 0588 01700000 LA @01,0(@05,@15) 0588 01701000 AL @01,@CF01856 0588 01702000 L @01,ICTLCHN-34(,@01) 0588 01703000 AL @01,@CF01857 0588 01704000 L @10,ICTIXL(@10,@01) 0588 01705000 CL @10,ICTENDIX 0588 01706000 BNE @DL00579 0588 01707000 * IF ICTTG1(LMDX)=TXTNUCL /* LMOD IN NUCLEUS? @ZA12359*/ 01708000 * &ICTLNAME(LMDX,1:7)=TXTIEANC/* AND IT IS IEANUC0 @ZA12359*/ 01709000 * THEN /* THEN SEE IF LINK @ZA12359*/ 01710000 ST @05,@TF00001 0589 01711000 ALR @05,@15 0589 01712000 AL @05,@CF01866 0589 01713000 CLC ICTTG1-15(8,@05),@CC01718 0589 01714000 BNE @RF00589 0589 01715000 AL @15,@TF00001 0589 01716000 AL @15,@CF01871 0589 01717000 CLC ICTLNAME(7,@15),@CC01722 0589 01718000 BNE @RF00589 0589 01719000 * DO; /* IS TO BE DONE @ZA12359*/ 01720000 * DO LMDIX=1 BY 1 WHILE ICTIXL(LMDIX)^=ICTENDIX;/* LOOP 0591 01721000 * THRU MODS */ 01722000 LA LMDIX,1 0591 01723000 B @DE00591 0591 01724000 @DL00591 DS 0H 0592 01725000 * IF(ICTMMOD(1)=ON /* IF MOD REP @ZD00004*/ 01726000 * |ICTMXPND(1)=ON) /* OR IS EXPAND ZAP */ 01727000 * THEN /* THEN */ 01728000 LR @10,LMDIX 0592 01729000 SLA @10,2 0592 01730000 LR @05,LMDX 0592 01731000 MH @05,@CH01093 0592 01732000 L @01,CCAICLMD(,CCAPTR) 0592 01733000 AL @01,@CF01856 0592 01734000 L @05,ICTLCHN-34(@05,@01) 0592 01735000 AL @05,@CF01857 0592 01736000 L @10,ICTIXL(@10,@05) 0592 01737000 TM ICTMMOD(@10),B'10010000' 0592 01738000 BZ @RF00592 0592 01739000 * CCANCPTF=ON; /* SET NUC HIT BIT @XA15537*/ 01740000 OI CCANCPTF(CCAPTR),B'10000000' 0593 01741000 * END; /* END MOD LOOP */ 01742000 @RF00592 AH LMDIX,@CH00063 0594 01743000 @DE00591 LR @10,LMDIX 0594 01744000 SLA @10,2 0594 01745000 LR @05,LMDX 0594 01746000 MH @05,@CH01093 0594 01747000 L @01,CCAICLMD(,CCAPTR) 0594 01748000 AL @01,@CF01856 0594 01749000 L @05,ICTLCHN-34(@05,@01) 0594 01750000 AL @05,@CF01857 0594 01751000 L @10,ICTIXL(@10,@05) 0594 01752000 CL @10,ICTENDIX 0594 01753000 BNE @DL00591 0594 01754000 * IF CCASREL(1)=SYSSVS /* AND THIS IS VS SYSTEM @XA15537*/ 01755000 * &CCANCPTF=ON /* AND NUCLEUS HIT? @XA15537*/ 01756000 * THEN /* THEN MUST CHECK @XA15537*/ 01757000 CLI CCASREL(CCAPTR),C'Y' 0595 01758000 BNE @RF00595 0595 01759000 TM CCANCPTF(CCAPTR),B'10000000' 0595 01760000 BNO @RF00595 0595 01761000 * DO; /* FOR PARMLIB DD CARD @XA15537*/ 01762000 * DEVDDNAM=TXTPRMLB; /* PARMLIB DD NAME @XA15537*/ 01763000 MVC DEVDDNAM(8),@CC01724 0597 01764000 * GEN(DEVTYPE DEVDDNAM,DEVADDR) 0598 01765000 * REFS(DEVDDNAM,DEVADDR);/* DD PRESENT? @XA15537*/ 01766000 DEVTYPE DEVDDNAM,DEVADDR 01767000 * RFY 0599 01768000 * RTNCODE RSTD; /* @XA15537*/ 01769000 * IF RTNCODE^=ZERO /* IF DD NOT PRESENT @XA15537*/ 01770000 * THEN /* THEN ERR @XA15537*/ 01771000 LTR RTNCODE,RTNCODE 0600 01772000 BZ @RF00600 0600 01773000 * DO; /* WRITE MSG @XA15537*/ 01774000 * RFY 0602 01775000 * RTNCODE UNRSTD;/* @XA15537*/ 01776000 * MGPCLEAR=MGPCLEAR&&MGPCLEAR;/* ZERO MSG @XA15537*/ 01777000 XC MGPCLEAR(6),MGPCLEAR 0603 01778000 * MGPTYPE=MGPERR; /* SET MESSAGE SEVERITY @ZD00001*/ 01779000 MVI MGPTYPE,X'03' 0604 01780000 * MGPMGNO1=HMA283I;/* ****ERROR**** XXXXXXXX DDCARD 01781000 * MISSING @XA15537*/ 01782000 MVC MGPMGNO1(2),@CH00606 0605 01783000 * MGPMGNO2=PART013;/* FOR LOAD MODULE XXXXXXXX 0606 01784000 * @XA15537*/ 01785000 MVC MGPMGNO2(2),@CH00526 0606 01786000 * MGPVARPT(1)=ADDR(DEVDDNAM);/* DD NAME @XA15537*/ 01787000 LA @10,DEVDDNAM 0607 01788000 ST @10,MGPVARPT 0607 01789000 * MGPVARPT(2)=ADDR(ICTLNAME(LMDX));/* NAME @XA15537*/ 01790000 LR @10,LMDX 0608 01791000 MH @10,@CH01093 0608 01792000 L @02,CCAICLMD(,CCAPTR) 0608 01793000 AL @02,@CF01871 0608 01794000 LA @10,ICTLNAME(@10,@02) 0608 01795000 ST @10,MGPVARPT+4 0608 01796000 * CALL HMASMMSG(HMASMMGP);/* WRITE MSG @XA15537*/ 01797000 L @15,@CV01743 0609 01798000 LA @01,@AL00609 0609 01799000 BALR @14,@15 0609 01800000 * CALL LMDERR; /* MARK THINGS NOGO ETC @XA15537*/ 01801000 BAL @14,LMDERR 0610 01802000 * CPYRTNCD=STOPPTF;/* SET RTN CODE @XA15537*/ 01803000 LA CPYRTNCD,8 0611 01804000 * END; /* END PARMLIB DD MISS @XA15537*/ 01805000 * END; /* END PARMLIB CHECK @XA15537*/ 01806000 @RF00600 DS 0H 0614 01807000 * END; /* END NUCLEAU HIT GROUP @ZA12359*/ 01808000 @RF00595 DS 0H 0615 01809000 * END; /* END LMOD LINKED AT SYSGEN */ 01810000 @RF00589 DS 0H 0616 01811000 * RETURN CODE(CPYRTNCD); /* RETURN */ 01812000 @RC00550 LR @15,CPYRTNCD 0616 01813000 L @14,@SA00008 0616 01814000 LM @00,@12,@SA00008+8 0616 01815000 BR @14 0616 01816000 * END COPYCHCK; /* END PROC */ 01817000 * END HMASMTL2 /* END TABLE BUILD */ 01818000 * 0618 01819000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01820000 */*%INCLUDE SYSLIB (HMASMCCA) */ 01821000 */*%INCLUDE SYSLIB (HMASMIOP) */ 01822000 */*%INCLUDE SYSLIB (HMASMICT) */ 01823000 */*%INCLUDE SYSLIB (HMASMMGP) */ 01824000 * 0618 01825000 * ; 0618 01826000 @DATA DS 0H 01827000 @CH00063 DC H'1' 01828000 @CH00037 DC H'4' 01829000 @CH00055 DC H'8' 01830000 @CH00034 DC H'9' 01831000 @CH00522 DC H'11' 01832000 @CH00033 DC H'12' 01833000 @CH00526 DC H'13' 01834000 @CH00333 DC H'14' 01835000 @CH01726 DC H'47' 01836000 @CH00458 DC H'48' 01837000 @CH01093 DC H'54' 01838000 @CH00606 DC H'84' 01839000 @CH00708 DC H'255' 01840000 DS 0F 01841000 @AL00387 EQU * LIST WITH 1 ARGUMENT(S) 01842000 @AL00533 EQU * LIST WITH 1 ARGUMENT(S) 01843000 @AL00609 DC A(HMASMMGP) LIST WITH 1 ARGUMENT(S) 01844000 DS 0F 01845000 @SA00001 DS 18F 01846000 @PC00001 DS 1F 01847000 @SA00002 DS 15F 01848000 @SA00003 DS 15F 01849000 @SA00007 DS 15F 01850000 @PC00007 DS 1F 01851000 @SA00004 DS 15F 01852000 @SA00006 DS 15F 01853000 @SA00008 DS 15F 01854000 @AL00001 DS 1A 01855000 @TF00001 DS F 01856000 DS 0F 01857000 @CF00273 DC F'2' 01858000 @CF01871 DC F'-54' 01859000 @CF01865 DC F'-46' 01860000 @CF01867 DC F'-45' 01861000 @CF01868 DC F'-44' 01862000 @CF01869 DC F'-43' 01863000 @CF01870 DC F'-42' 01864000 @CF01861 DC F'-41' 01865000 @CF01858 DC F'-40' 01866000 @CF01866 DC F'-39' 01867000 @CF01873 DC F'-31' 01868000 @CF01874 DC F'-23' 01869000 @CF01856 DC F'-20' 01870000 @CF01857 DC F'-4' 01871000 @CV01742 DC V(HMASMIO) 01872000 @CV01743 DC V(HMASMMSG) 01873000 DS 0D 01874000 MODLKX DS F 01875000 APPMODX DS F 01876000 @CC01714 DC C' ' 01877000 @CC01718 DC C'NUCLEUS ' 01878000 @CC01724 DC C'PARMLIB ' 01879000 @CC01734 DC C'SVCLIB ' 01880000 @CC01736 DC C'LMOD ' 01881000 @CC01738 DC C'SMPCDS ' 01882000 @CC01722 DC C'IEANUC0' 01883000 DS CL1 01884000 ICTENDCH DC X'FFFFFFFF' 01885000 HMASMMGP DS CL24 01886000 ORG HMASMMGP 01887000 MGPFIXED DS CL12 01888000 ORG MGPFIXED 01889000 MGPCLEAR DS CL6 01890000 ORG MGPCLEAR 01891000 MGPMGNO1 DS FL2 01892000 MGPMGNO2 DS FL2 01893000 MGPMGNO3 DS FL2 01894000 ORG MGPFIXED+6 01895000 MGPFLAGS DS BL2 01896000 ORG MGPFLAGS 01897000 MGPPRINT DS BL1 01898000 MGPLIST EQU MGPFLAGS+0 01899000 MGPRPT EQU MGPFLAGS+0 01900000 MGPHLDS EQU MGPFLAGS+0 01901000 MGPWTOR EQU MGPFLAGS+0 01902000 MGPWTO EQU MGPFLAGS+0 01903000 MGPWTP EQU MGPFLAGS+0 01904000 @NM00239 EQU MGPFLAGS+0 01905000 ORG MGPFIXED+8 01906000 MGPTYPE DS FL1 01907000 @NM00240 DS CL3 01908000 ORG HMASMMGP+12 01909000 MGPVAR DS CL12 01910000 ORG MGPVAR 01911000 MGPVARPT DS 3A 01912000 ORG HMASMMGP+24 01913000 DEVDDNAM DS CL8 01914000 DEVADDR DS CL8 01915000 TL2FLGS DS CL1 01916000 ORG TL2FLGS 01917000 LEPCHNGD DS BL1 01918000 @NM00241 EQU TL2FLGS+0 01919000 ORG TL2FLGS+1 01920000 DS CL1 01921000 PATCHTL2 DS CL80 01922000 ORG PATCHTL2 01923000 @NM00242 DC 80X'FF' 01924000 ORG PATCHTL2+80 01925000 TXTSYSPN DC CL8'SYSPUNCH' 01926000 SVCLBFND DS BL1 01927000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01928000 @01 EQU 01 01929000 @02 EQU 02 01930000 @03 EQU 03 01931000 @04 EQU 04 01932000 @05 EQU 05 01933000 @06 EQU 06 01934000 @07 EQU 07 01935000 @08 EQU 08 01936000 @09 EQU 09 01937000 @10 EQU 10 01938000 @11 EQU 11 01939000 @12 EQU 12 01940000 @13 EQU 13 01941000 @14 EQU 14 01942000 @15 EQU 15 01943000 CPYRTNCD EQU @04 01944000 APFPTR EQU @02 01945000 APPRTNCD EQU @05 01946000 ERRIX EQU @02 01947000 LOCRTNCD EQU @02 01948000 LSYSNDX EQU @02 01949000 DDNICTX EQU @07 01950000 LPRTNCD EQU @05 01951000 APRRTNCD EQU @06 01952000 ACPRTNCD EQU @05 01953000 TL2RTNCD EQU @03 01954000 LMDIX EQU @02 01955000 LMDX EQU @03 01956000 IOPPTRF EQU @04 01957000 CCAPTR EQU @11 01958000 IOPPTR EQU @08 01959000 RTNCODE EQU @15 01960000 TBLXOPTS EQU 0 01961000 TBLFLAGS EQU TBLXOPTS+8 01962000 TBLFLG1 EQU TBLFLAGS 01963000 TBLFLG2 EQU TBLFLAGS+2 01964000 TBLFLG3 EQU TBLFLAGS+3 01965000 TBLFLG4 EQU TBLFLAGS+5 01966000 TBLFLG5 EQU TBLFLAGS+7 01967000 HMASMCCA EQU 0 01968000 CCAFBUFR EQU HMASMCCA+4 01969000 CCADSAD EQU CCAFBUFR+124 01970000 CCATPAD EQU CCAFBUFR+128 01971000 CCAFLAG7 EQU CCAFBUFR+132 01972000 CCAFIOP EQU HMASMCCA+140 01973000 CCAIOPTR EQU CCAFIOP 01974000 CCAFSYS EQU HMASMCCA+148 01975000 CCASREL EQU CCAFSYS+12 01976000 CCAFLAGA EQU CCAFSYS+21 01977000 CCAFSTA EQU HMASMCCA+188 01978000 CCAFICT EQU HMASMCCA+192 01979000 CCAICT EQU CCAFICT 01980000 CCAICPTF EQU CCAFICT+4 01981000 CCAICMOD EQU CCAFICT+8 01982000 CCAICLMD EQU CCAFICT+12 01983000 CCAFPGM EQU HMASMCCA+208 01984000 CCABLDLP EQU CCAFPGM 01985000 CCADBLDL EQU CCAFPGM+4 01986000 CCAFGTP EQU HMASMCCA+224 01987000 CCASEGTP EQU CCAFGTP 01988000 @NM00023 EQU HMASMCCA+244 01989000 CCAFFUNC EQU HMASMCCA+264 01990000 CCAFLAG1 EQU CCAFFUNC+8 01991000 CCAAPPLY EQU CCAFLAG1 01992000 CCAACCPT EQU CCAFLAG1 01993000 CCARES EQU CCAFLAG1 01994000 CCAFLAG2 EQU CCAFFUNC+11 01995000 CCANCPTF EQU CCAFLAG2 01996000 CCASVCLB EQU CCAFLAG2 01997000 CCAFPROC EQU HMASMCCA+276 01998000 CCAFLAG3 EQU CCAFPROC 01999000 CCAFDIS EQU HMASMCCA+278 02000000 CCAFLAG4 EQU CCAFDIS 02001000 CCAFLAG5 EQU CCAFDIS+1 02002000 CCAFLAG6 EQU CCAFDIS+2 02003000 CCAFCNV EQU HMASMCCA+281 02004000 CCAFLAG8 EQU CCAFCNV 02005000 CCAFCTL EQU HMASMCCA+282 02006000 CCAFLAG9 EQU CCAFCTL 02007000 CCAFDSNG EQU HMASMCCA+298 02008000 CCAFLAGB EQU CCAFDSNG 02009000 CCABLDLA EQU 0 02010000 @NM00039 EQU CCABLDLA 02011000 CCABLDLL EQU 0 02012000 @NM00041 EQU CCABLDLL 02013000 CCALKDRC EQU @NM00041+20 02014000 @NM00043 EQU CCABLDLL+124 02015000 CCAASMRC EQU @NM00043+20 02016000 @NM00045 EQU CCABLDLL+248 02017000 CCACPYRC EQU @NM00045+20 02018000 @NM00047 EQU CCABLDLL+372 02019000 CCACOMRC EQU @NM00047+20 02020000 @NM00049 EQU CCABLDLL+496 02021000 CCAZAPRC EQU @NM00049+20 02022000 @NM00051 EQU CCABLDLL+620 02023000 CCAIOSUP EQU @NM00051+8 02024000 CCASUPRC EQU @NM00051+20 02025000 @NM00053 EQU CCABLDLL+744 02026000 CCAUPDRC EQU @NM00053+20 02027000 CCABLDLM EQU 0 02028000 CCABELMT EQU CCABLDLM+4 02029000 CCABMPOS EQU CCABELMT 02030000 HMASMIOP EQU 0 02031000 IOPDSID EQU HMASMIOP 02032000 IOPFUNCT EQU HMASMIOP+1 02033000 IOPRETRN EQU HMASMIOP+2 02034000 IOPTYPE EQU HMASMIOP+3 02035000 IOPNAME EQU HMASMIOP+4 02036000 @NM00057 EQU HMASMIOP+12 02037000 @NM00058 EQU @NM00057 02038000 IOPDDNAM EQU HMASMIOP+24 02039000 IOPBUFAD EQU HMASMIOP+52 02040000 IOPDRMAP EQU HMASMIOP+56 02041000 IOPINAME EQU IOPDRMAP 02042000 IOPINAM EQU IOPINAME 02043000 IOPITYP EQU IOPINAM 02044000 IOPTTR EQU IOPDRMAP+8 02045000 IOPUSERL EQU IOPDRMAP+11 02046000 IOPALIS EQU IOPUSERL 02047000 IOPEND EQU IOPDRMAP+12 02048000 IOPLMCTL EQU 0 02049000 IOPQSMIF EQU 0 02050000 @NM00168 EQU IOPQSMIF 02051000 IOPQSMLS EQU IOPQSMIF+8 02052000 IOPQSMNM EQU IOPQSMLS 02053000 IOPBS01 EQU 0 02054000 IOPBS02 EQU 0 02055000 IOPBS03 EQU 0 02056000 IOPBS04 EQU 0 02057000 IOPBAPF EQU IOPBS04 02058000 IOPBAPFC EQU IOPBAPF+1 02059000 HMASMICT EQU 0 02060000 ICTCORE EQU HMASMICT 02061000 ICTPSPLN EQU ICTCORE 02062000 ICTMSPLN EQU ICTCORE+4 02063000 ICTLSPLN EQU ICTCORE+8 02064000 ICTGMSPL EQU 0 02065000 ICTPTF EQU 0 02066000 ICTPTFS EQU ICTPTF 02067000 ICTPFLG1 EQU ICTPTF+7 02068000 ICTPFLG3 EQU ICTPTF+8 02069000 ICTPPROC EQU ICTPFLG3 02070000 ICTPNOGO EQU ICTPFLG3 02071000 ICTPFLG5 EQU ICTPTF+9 02072000 ICTPFLG6 EQU ICTPTF+11 02073000 ICTPFLF EQU ICTPFLG6 02074000 ICTPFLG2 EQU ICTPTF+12 02075000 ICTPFLG4 EQU ICTPTF+13 02076000 ICTPFLG8 EQU ICTPTF+14 02077000 ICTPFLG9 EQU ICTPTF+15 02078000 @NM00195 EQU ICTPFLG9 02079000 ICTPFLGA EQU ICTPTF+16 02080000 ICTPUSR1 EQU ICTPFLGA 02081000 ICTPCHN EQU ICTPTF+64 02082000 ICTPRCHN EQU ICTPTF+68 02083000 ICTPSCHN EQU ICTPTF+72 02084000 ICTPPCHN EQU ICTPTF+76 02085000 ICTPICHN EQU ICTPTF+80 02086000 ICTPNCHN EQU ICTPTF+84 02087000 ICTPVCHN EQU ICTPTF+88 02088000 ICTPDCHN EQU ICTPTF+92 02089000 ICTPBCHN EQU ICTPTF+96 02090000 ICTIXPF EQU 0 02091000 ICTENTLS EQU 0 02092000 ICTENTNT EQU ICTENTLS 02093000 ICTENTNM EQU ICTENTNT 02094000 ICTENTST EQU ICTENTNT+7 02095000 ICTREQLS EQU 0 02096000 ICTREQNT EQU ICTREQLS 02097000 ICTREQNM EQU ICTREQNT 02098000 ICTREQST EQU ICTREQNT+7 02099000 ICTSUPLS EQU 0 02100000 ICTSUPNT EQU ICTSUPLS 02101000 ICTSUPNM EQU ICTSUPNT 02102000 ICTPRELS EQU 0 02103000 ICTPRENT EQU ICTPRELS 02104000 ICTPRENM EQU ICTPRENT 02105000 ICTPREST EQU ICTPRENT+7 02106000 ICTIRQLS EQU 0 02107000 ICTIRQNT EQU ICTIRQLS 02108000 ICTIRQNM EQU ICTIRQNT 02109000 ICTIRQST EQU ICTIRQNT+7 02110000 ICTCSRST EQU ICTIRQNT+15 02111000 ICTNPRLS EQU 0 02112000 ICTNPRNT EQU ICTNPRLS 02113000 ICTNPRNM EQU ICTNPRNT 02114000 ICTVRSLS EQU 0 02115000 ICTVRSNT EQU ICTVRSLS 02116000 ICTVRSNM EQU ICTVRSNT 02117000 ICTDELLS EQU 0 02118000 ICTDELNT EQU ICTDELLS 02119000 ICTDELNM EQU ICTDELNT 02120000 ICTDELST EQU ICTDELNT+7 02121000 ICTSBYLS EQU 0 02122000 ICTSBYNT EQU ICTSBYLS 02123000 ICTSBYNM EQU ICTSBYNT 02124000 ICTMOD EQU 0 02125000 ICTMNAME EQU ICTMOD 02126000 ICTMFLG2 EQU ICTMOD+8 02127000 ICTMCPL EQU ICTMFLG2 02128000 ICTMFLG1 EQU ICTMOD+9 02129000 ICTMMODR EQU ICTMFLG1 02130000 ICTMMOD EQU ICTMMODR 02131000 ICTMASM EQU ICTMMODR 02132000 ICTMZAP EQU ICTMFLG1 02133000 ICTMXPND EQU ICTMFLG1 02134000 ICTMFLG3 EQU ICTMOD+10 02135000 ICTLIBLK EQU ICTMFLG3 02136000 ICTMRELF EQU ICTMFLG3 02137000 ICTMPRMS EQU ICTMFLG3 02138000 ICTMFLG4 EQU ICTMOD+11 02139000 ICTMFLG5 EQU ICTMOD+12 02140000 ICTMODF4 EQU ICTMOD+13 02141000 ICTMLEP1 EQU ICTMODF4 02142000 ICTMODF5 EQU ICTMOD+14 02143000 ICTMLEP2 EQU ICTMODF5 02144000 ICTMODF6 EQU ICTMOD+15 02145000 ICTMLEP3 EQU ICTMODF6 02146000 ICTMODF7 EQU ICTMOD+16 02147000 ICTMLEP4 EQU ICTMODF7 02148000 ICTMACF4 EQU ICTMOD+17 02149000 ICTPPTR EQU ICTMOD+96 02150000 ICTMCHN EQU ICTMOD+100 02151000 ICTMICHN EQU ICTMOD+104 02152000 ICTMACHN EQU ICTMOD+112 02153000 ICTMTCHN EQU ICTMOD+116 02154000 ICTMVCHN EQU ICTMOD+120 02155000 ICTMUCHN EQU ICTMOD+124 02156000 ICTIXMF EQU 0 02157000 ICTMIDLS EQU 0 02158000 ICTMID EQU ICTMIDLS 02159000 ICTMODID EQU ICTMID 02160000 ICTMODST EQU ICTMID+7 02161000 ICTASMLS EQU 0 02162000 ICTASMAD EQU ICTASMLS 02163000 ICTTALLS EQU 0 02164000 ICTTALNM EQU ICTTALLS 02165000 ICTMVRLS EQU 0 02166000 ICTMVRNT EQU ICTMVRLS 02167000 ICTMVRNM EQU ICTMVRNT 02168000 ICTMUMLS EQU 0 02169000 ICTMUMNT EQU ICTMUMLS 02170000 ICTMUMNM EQU ICTMUMNT 02171000 ICTLMOD EQU 0 02172000 ICTLMNAM EQU ICTLMOD 02173000 ICTLNAME EQU ICTLMNAM 02174000 ICTLEND EQU ICTLNAME 02175000 ICTLFLG4 EQU ICTLMOD+8 02176000 ICTLPROC EQU ICTLFLG4 02177000 ICTLNOGO EQU ICTLFLG4 02178000 ICTLCPL EQU ICTLFLG4 02179000 ICTLMSG EQU ICTLFLG4 02180000 ICTLFLG1 EQU ICTLMOD+9 02181000 ICTLRENT EQU ICTLFLG1 02182000 ICTLREUS EQU ICTLFLG1 02183000 ICTLREFR EQU ICTLFLG1 02184000 ICTLDC EQU ICTLFLG1 02185000 ICTLFLG5 EQU ICTLMOD+10 02186000 ICTLFLG6 EQU ICTLMOD+11 02187000 ICTLFLG7 EQU ICTLMOD+12 02188000 ICTLFLG2 EQU ICTLMOD+13 02189000 ICTLINK EQU ICTLFLG2 02190000 ICTLFLG3 EQU ICTLMOD+14 02191000 ICTTIND1 EQU ICTLFLG3 02192000 ICTTIND2 EQU ICTLFLG3 02193000 ICTLXPND EQU ICTLFLG3 02194000 ICTLCPY EQU ICTLFLG3 02195000 ICTLLKD EQU ICTLFLG3 02196000 ICTLZAP EQU ICTLFLG3 02197000 ICTTG1 EQU ICTLMOD+15 02198000 ICTTG2 EQU ICTLMOD+23 02199000 ICTLTTR EQU ICTLMOD+31 02200000 ICTLCHN EQU ICTLMOD+34 02201000 ICTIXLF EQU 0 02202000 ICTIXL EQU ICTIXLF 02203000 CCADSIDA EQU 0 02204000 CCATYPEA EQU 0 02205000 TBLXPARM EQU 0 02206000 TBLXINDX EQU TBLXPARM+4 02207000 TBLXIOPF EQU TBLXPARM+20 02208000 TBLXTBL EQU TBLXPARM+28 02209000 TBLXFLG1 EQU TBLXPARM+80 02210000 TBLXRC EQU TBLXPARM+92 02211000 LMDBMOD EQU 0 02212000 IOPUDATA EQU IOPEND 02213000 IOPINAM3 EQU IOPINAME 02214000 @NM00064 EQU IOPINAM3 02215000 IOPSTCMP EQU IOPUDATA 02216000 IOPDYNDT EQU IOPUDATA 02217000 IOPSPACE EQU IOPDYNDT+44 02218000 IOPDTYPE EQU IOPDYNDT+50 02219000 IOPNTMAX EQU IOPDRMAP 02220000 IOPNTMAP EQU IOPDRMAP 02221000 IOPCDMAP EQU IOPNTMAP 02222000 IOPPTMAP EQU IOPCDMAP 02223000 IOPSCMAP EQU IOPPTMAP 02224000 IOPDIRCT EQU IOPSCMAP+12 02225000 IOPCDMAX EQU IOPDIRCT 02226000 IOPCQMAP EQU IOPDRMAP 02227000 @NM00075 EQU IOPUDATA 02228000 @NM00076 EQU IOPUDATA 02229000 IOPASMNT EQU IOPUDATA 02230000 IOPASMDR EQU IOPASMNT 02231000 IOPABUNT EQU IOPASMDR+1 02232000 IOPLMDNT EQU IOPUDATA 02233000 IOPLMDDR EQU IOPLMDNT 02234000 IOPLMLEP EQU IOPLMDDR+1 02235000 IOPLMDF1 EQU IOPLMLEP 02236000 IOPFLGS2 EQU IOPLMDF1 02237000 IOPAPF EQU IOPFLGS2 02238000 IOPRENT EQU IOPFLGS2 02239000 IOPREUS EQU IOPFLGS2 02240000 IOPOVLY EQU IOPFLGS2 02241000 IOPREFR EQU IOPFLGS2 02242000 IOPDC EQU IOPFLGS2 02243000 IOPLMDF2 EQU IOPLMLEP+1 02244000 IOPNE EQU IOPLMDF2 02245000 IOPPAGA EQU IOPLMDF2 02246000 IOPLMDF3 EQU IOPLMLEP+2 02247000 IOPLMDF4 EQU IOPLMLEP+3 02248000 IOPLMDF5 EQU IOPLMDDR+5 02249000 IOPFLGS3 EQU IOPLMDF5 02250000 IOPCOPY EQU IOPFLGS3 02251000 IOPLINK EQU IOPFLGS3 02252000 IOPLMDFX EQU IOPLMDNT+24 02253000 @NM00085 EQU IOPLMDFX 02254000 IOPLNTRY EQU IOPLMDFX+8 02255000 IOPLSYS EQU IOPLNTRY 02256000 IOPSYSLB EQU IOPLSYS 02257000 IOPLMDND EQU IOPSYSLB 02258000 IOPLMIND EQU IOPLNTRY+8 02259000 IOPMACNT EQU IOPUDATA 02260000 IOPMACDR EQU IOPMACNT 02261000 IOPRMIDE EQU IOPMACDR+1 02262000 IOPRMST EQU IOPRMIDE+7 02263000 IOPFMIDE EQU IOPMACDR+9 02264000 IOPMACFX EQU IOPMACNT+24 02265000 IOPBUNT EQU IOPMACFX 02266000 IOPMCEND EQU IOPMACNT+104 02267000 IOPMACVR EQU IOPMCEND 02268000 IOPMCENT EQU IOPMACVR 02269000 IOPMCDTA EQU IOPMCENT 02270000 IOPMCASM EQU IOPMCDTA 02271000 IOPMACID EQU IOPMCASM 02272000 IOPMACST EQU IOPMCASM+7 02273000 IOPMCIND EQU IOPMCENT+8 02274000 IOPEOFNT EQU IOPUDATA 02275000 IOPSRCNT EQU IOPUDATA 02276000 IOPSRCDR EQU IOPSRCNT 02277000 @NM00096 EQU IOPSRCDR+1 02278000 @NM00098 EQU @NM00096+7 02279000 @NM00102 EQU IOPSRCDR+9 02280000 IOPSRCFX EQU IOPSRCNT+24 02281000 @NM00106 EQU IOPSRCFX 02282000 IOPSREND EQU IOPSRCNT+104 02283000 IOPSRCVR EQU IOPSREND 02284000 IOPSNTRY EQU IOPSRCVR 02285000 IOPSRDTA EQU IOPSNTRY 02286000 IOPSRCID EQU IOPSRDTA 02287000 IOPSRCST EQU IOPSRDTA+7 02288000 IOPMODNT EQU IOPUDATA 02289000 IOPMODDR EQU IOPMODNT 02290000 @NM00112 EQU IOPMODDR+1 02291000 @NM00114 EQU @NM00112+7 02292000 @NM00118 EQU IOPMODDR+9 02293000 IOPMODFX EQU IOPMODNT+24 02294000 @NM00122 EQU IOPMODFX 02295000 IOPMDLEP EQU IOPMODFX+8 02296000 IOPMODF1 EQU IOPMDLEP 02297000 IOPMODF2 EQU IOPMDLEP+1 02298000 IOPMODF3 EQU IOPMDLEP+2 02299000 IOPMODF4 EQU IOPMDLEP+3 02300000 IOPMDEND EQU IOPMODNT+104 02301000 IOPMODVR EQU IOPMDEND 02302000 IOPMNTRY EQU IOPMODVR 02303000 IOPMDDTA EQU IOPMNTRY 02304000 IOPLMODS EQU IOPMDDTA 02305000 IOPMODID EQU IOPLMODS 02306000 IOPMODST EQU IOPLMODS+7 02307000 IOPDLBNT EQU IOPUDATA 02308000 IOPDLBDR EQU IOPDLBNT 02309000 IOPDLBFX EQU IOPDLBNT+24 02310000 @NM00133 EQU IOPDLBFX 02311000 IOPDLEND EQU IOPDLBNT+104 02312000 IOPDLBVR EQU IOPDLEND 02313000 IOPDNTRY EQU IOPDLBVR 02314000 IOPDSYS EQU IOPDNTRY 02315000 IOPSYSNT EQU IOPUDATA 02316000 IOPSYSDR EQU IOPSYSNT 02317000 IOPSYSF1 EQU IOPSYSDR+4 02318000 IOPFLGS7 EQU IOPSYSF1 02319000 IOPSYSFX EQU IOPSYSNT+24 02320000 @NM00140 EQU IOPSYSFX 02321000 IOPSYEND EQU IOPSYSNT+184 02322000 IOPSYSVR EQU IOPSYEND 02323000 IOPSYSTR EQU IOPSYSVR 02324000 IOPSYNTR EQU IOPSYSTR 02325000 IOPPTFNT EQU IOPUDATA 02326000 IOPPTFDR EQU IOPPTFNT 02327000 IOPPSTAT EQU IOPPTFDR+2 02328000 IOPPTFF1 EQU IOPPSTAT 02329000 IOPFLGS5 EQU IOPPTFF1 02330000 IOPPTFF2 EQU IOPPSTAT+1 02331000 IOPPTFF3 EQU IOPPSTAT+3 02332000 IOPPTFFX EQU IOPPTFNT+24 02333000 @NM00149 EQU IOPPTFFX 02334000 @NM00150 EQU @NM00149 02335000 IOPPDTES EQU IOPPTFFX+41 02336000 @NM00153 EQU IOPPDTES 02337000 IOPPTPFX EQU IOPPDTES+6 02338000 IOPDATES EQU IOPPTPFX 02339000 IOPPTEND EQU IOPPTFNT+104 02340000 IOPPTFVR EQU IOPPTEND 02341000 IOPPNTRY EQU IOPPTFVR 02342000 IOPPMODS EQU IOPPNTRY 02343000 IOPENTNT EQU IOPUDATA+104 02344000 IOPSRLNT EQU IOPUDATA+104 02345000 IOPPRENT EQU IOPUDATA+104 02346000 IOPNPRNT EQU IOPUDATA+104 02347000 IOPSUPNT EQU IOPUDATA+104 02348000 IOPREQNT EQU IOPUDATA+104 02349000 IOPIRQNT EQU IOPUDATA+104 02350000 IOPFIDNT EQU IOPUDATA+104 02351000 IOPDELNT EQU IOPUDATA+104 02352000 IOPVERNT EQU IOPUDATA+104 02353000 IOPSBYNT EQU IOPUDATA+104 02354000 IOPQSMNT EQU IOPUDATA 02355000 IOPQSMDR EQU IOPQSMNT 02356000 IOPQFMNT EQU IOPUDATA 02357000 IOPQFMDR EQU IOPQFMNT 02358000 IOPQFEND EQU IOPQFMNT+2 02359000 IOPQFMVR EQU IOPQFEND 02360000 IOPQFMLS EQU IOPQFMVR 02361000 IOPQFMNM EQU IOPQFMLS 02362000 IOPPTSYS EQU IOPUDATA 02363000 IOPPTSDR EQU IOPPTSYS 02364000 IOPPTSFX EQU IOPPTSYS+24 02365000 IOPDSSPC EQU IOPPTSFX 02366000 IOPPTFG1 EQU IOPPTSFX+34 02367000 IOPPSEND EQU IOPPTSYS+1064 02368000 IOPPTSVR EQU IOPPSEND 02369000 IOPPTNTR EQU IOPPTSVR 02370000 @NM00178 EQU IOPPTNTR 02371000 IOPPTFMD EQU @NM00178 02372000 IOPPTREL EQU IOPPTFMD 02373000 IOPBPDS EQU IOPUDATA 02374000 IOPBLEP1 EQU IOPBPDS+8 02375000 IOPBRENT EQU IOPBLEP1 02376000 IOPBREUS EQU IOPBLEP1 02377000 IOPBOVLY EQU IOPBLEP1 02378000 IOPBSCTR EQU IOPBLEP1 02379000 IOPBLEP2 EQU IOPBPDS+9 02380000 IOPBDC EQU IOPBLEP2 02381000 IOPBNE EQU IOPBLEP2 02382000 IOPBREFR EQU IOPBLEP2 02383000 @NM00182 EQU IOPBPDS+18 02384000 IOPBFTB0 EQU @NM00182 02385000 IOPBFTB1 EQU IOPBFTB0 02386000 IOPBAOSL EQU IOPBFTB1 02387000 IOPBPAGA EQU IOPBFTB1 02388000 IOPBSSI EQU IOPBFTB1 02389000 IOPBAPFP EQU IOPBFTB1 02390000 IOPBCEND EQU IOPBPDS+21 02391000 ICTENDNT EQU ICTENDCH 02392000 ICTENDIX EQU ICTENDCH 02393000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02394000 IOPBFTB3 EQU IOPBFTB0+2 02395000 IOPBFTB2 EQU IOPBFTB0+1 02396000 @NM00184 EQU IOPBFTB1 02397000 @NM00183 EQU IOPBFTB1 02398000 IOPBSEPA EQU IOPBPDS+15 02399000 IOPBFTBL EQU IOPBPDS+13 02400000 IOPBSTOR EQU IOPBPDS+10 02401000 IOPBLEF EQU IOPBLEP2 02402000 IOPBTEST EQU IOPBLEP2 02403000 @NM00181 EQU IOPBLEP2 02404000 @NM00180 EQU IOPBLEP1 02405000 IOPBOL EQU IOPBLEP1 02406000 @NM00179 EQU IOPBLEP1 02407000 IOPBNL EQU IOPBPDS+7 02408000 IOPBTTRN EQU IOPBPDS+4 02409000 IOPBZERO EQU IOPBPDS+3 02410000 IOPBTTRT EQU IOPBPDS 02411000 IOPPTIND EQU IOPPTNTR+8 02412000 IOPPTSND EQU IOPPTREL 02413000 @NM00177 EQU IOPPTSFX+872 02414000 IOPSYZPP EQU IOPPTSFX+772 02415000 IOPSYZPR EQU IOPPTSFX+771 02416000 IOPSYZPS EQU IOPPTSFX+763 02417000 IOPSYZAP EQU IOPPTSFX+755 02418000 IOPSYUPP EQU IOPPTSFX+655 02419000 IOPSYUPR EQU IOPPTSFX+654 02420000 IOPSYUPS EQU IOPPTSFX+646 02421000 IOPSYUPD EQU IOPPTSFX+638 02422000 IOPSYSPP EQU IOPPTSFX+538 02423000 IOPSYSPR EQU IOPPTSFX+537 02424000 IOPSYSPS EQU IOPPTSFX+529 02425000 IOPSYSUP EQU IOPPTSFX+521 02426000 IOPSYLKP EQU IOPPTSFX+421 02427000 IOPSYLKR EQU IOPPTSFX+420 02428000 IOPSYLKS EQU IOPPTSFX+412 02429000 IOPSYLKD EQU IOPPTSFX+404 02430000 IOPSYCPP EQU IOPPTSFX+304 02431000 IOPSYCPR EQU IOPPTSFX+303 02432000 IOPSYCPS EQU IOPPTSFX+295 02433000 IOPSYCPY EQU IOPPTSFX+287 02434000 IOPSYCOP EQU IOPPTSFX+187 02435000 IOPSYCOR EQU IOPPTSFX+186 02436000 IOPSYCOS EQU IOPPTSFX+178 02437000 IOPSYCOM EQU IOPPTSFX+170 02438000 IOPSYASP EQU IOPPTSFX+70 02439000 IOPSYASR EQU IOPPTSFX+69 02440000 IOPSYASS EQU IOPPTSFX+61 02441000 IOPSYASM EQU IOPPTSFX+53 02442000 @NM00176 EQU IOPPTSFX+35 02443000 @NM00175 EQU IOPPTFG1 02444000 IOPPTSNJ EQU IOPPTFG1 02445000 IOPPTSNP EQU IOPPTFG1 02446000 IOPSYPLN EQU IOPPTSFX+32 02447000 IOPDSPFX EQU IOPPTSFX+6 02448000 IOPDSDIR EQU IOPDSSPC+4 02449000 IOPDSSEC EQU IOPDSSPC+2 02450000 IOPDSPRM EQU IOPDSSPC 02451000 @NM00174 EQU IOPPTSDR+4 02452000 IOPPTPEM EQU IOPPTSDR+2 02453000 IOPPCNVL EQU IOPPTSDR+1 02454000 @NM00173 EQU IOPPTSDR 02455000 IOPQFMTP EQU IOPQFMLS+8 02456000 @NM00172 EQU IOPQFMLS+7 02457000 IOPQFMND EQU IOPQFMNM 02458000 @NM00171 EQU IOPQFMDR 02459000 @NM00167 EQU IOPQSMDR 02460000 @NM00166 EQU IOPSBYNT+8 02461000 IOPSBYST EQU IOPSBYNT+7 02462000 IOPSBYNM EQU IOPSBYNT 02463000 @NM00165 EQU IOPVERNT+8 02464000 IOPVERST EQU IOPVERNT+7 02465000 IOPVERNM EQU IOPVERNT 02466000 @NM00164 EQU IOPDELNT+8 02467000 IOPDELST EQU IOPDELNT+7 02468000 IOPDELNM EQU IOPDELNT 02469000 @NM00163 EQU IOPFIDNT+8 02470000 IOPFIDST EQU IOPFIDNT+7 02471000 IOPFIDNM EQU IOPFIDNT 02472000 @NM00162 EQU IOPIRQNT+8 02473000 IOPIRQST EQU IOPIRQNT+7 02474000 IOPIRQNM EQU IOPIRQNT 02475000 @NM00161 EQU IOPREQNT+8 02476000 IOPREQST EQU IOPREQNT+7 02477000 IOPREQNM EQU IOPREQNT 02478000 @NM00160 EQU IOPSUPNT+8 02479000 IOPSUPST EQU IOPSUPNT+7 02480000 IOPSUPNM EQU IOPSUPNT 02481000 @NM00159 EQU IOPNPRNT+8 02482000 IOPNPRST EQU IOPNPRNT+7 02483000 IOPNPRNM EQU IOPNPRNT 02484000 @NM00158 EQU IOPPRENT+8 02485000 IOPPREST EQU IOPPRENT+7 02486000 IOPPRENM EQU IOPPRENT 02487000 @NM00157 EQU IOPSRLNT+8 02488000 IOPSRLST EQU IOPSRLNT+7 02489000 @NM00156 EQU IOPSRLNT+4 02490000 IOPSRLNM EQU IOPSRLNT 02491000 @NM00155 EQU IOPENTNT+8 02492000 IOPENTST EQU IOPENTNT+7 02493000 IOPENTNM EQU IOPENTNT 02494000 IOPPIND EQU IOPPNTRY+8 02495000 IOPPTFND EQU IOPPMODS 02496000 IOPPFMID EQU IOPPTFFX+73 02497000 @NM00154 EQU IOPPTPFX+24 02498000 IOPUCLT EQU IOPDATES+21 02499000 IOPUCLD EQU IOPDATES+18 02500000 IOPACCT EQU IOPDATES+15 02501000 IOPACCD EQU IOPDATES+12 02502000 IOPRSTT EQU IOPDATES+9 02503000 IOPRSTD EQU IOPDATES+6 02504000 IOPAPPT EQU IOPDATES+3 02505000 IOPAPPD EQU IOPDATES 02506000 IOPRECT EQU @NM00153+3 02507000 IOPRECD EQU @NM00153 02508000 @NM00152 EQU IOPPTFFX+8 02509000 @NM00151 EQU @NM00149+7 02510000 IOPPRELN EQU @NM00150 02511000 @NM00148 EQU IOPPTFDR+20 02512000 IOPSBYNO EQU IOPPTFDR+13 02513000 IOPDBYNO EQU IOPPTFDR+6 02514000 @NM00147 EQU IOPPTFF3 02515000 IOPFLF EQU IOPPTFF3 02516000 IOPDBYP EQU IOPPTFF3 02517000 IOPSBYP EQU IOPPTFF3 02518000 IOPPMDLP EQU IOPPTFF2+1 02519000 IOPPADDP EQU IOPPTFF2+1 02520000 @NM00146 EQU IOPPTFF2+1 02521000 IOPLRFP EQU IOPPTFF2 02522000 IOPJCLP EQU IOPPTFF2 02523000 IOPSUPP EQU IOPPTFF2 02524000 IOPREQP EQU IOPPTFF2 02525000 IOPPREP EQU IOPPTFF2 02526000 IOPNPRP EQU IOPPTFF2 02527000 IOPIRQP EQU IOPPTFF2 02528000 IOPDELP EQU IOPPTFF2 02529000 IOPREGEN EQU IOPFLGS5 02530000 IOPBYP EQU IOPFLGS5 02531000 IOPDUMMP EQU IOPFLGS5 02532000 @NM00145 EQU IOPFLGS5 02533000 IOPERROR EQU IOPFLGS5 02534000 IOPACC EQU IOPFLGS5 02535000 IOPRES EQU IOPFLGS5 02536000 IOPAPP EQU IOPFLGS5 02537000 IOPPTYPE EQU IOPPTFDR+1 02538000 @NM00144 EQU IOPPTFDR 02539000 IOPSYSTP EQU IOPSYSTR+8 02540000 IOPSYSND EQU IOPSYNTR 02541000 @NM00143 EQU IOPSYSFX+21 02542000 IOPSYSID EQU IOPSYSFX+13 02543000 IOPNUCID EQU IOPSYSFX+12 02544000 IOPSREL EQU IOPSYSFX+8 02545000 @NM00142 EQU @NM00140+7 02546000 @NM00141 EQU @NM00140 02547000 @NM00139 EQU IOPSYSDR+5 02548000 @NM00138 EQU IOPFLGS7 02549000 IOPSYNG EQU IOPFLGS7 02550000 IOPSYDL EQU IOPFLGS7 02551000 IOPSTSNP EQU IOPFLGS7 02552000 IOPMTSNP EQU IOPFLGS7 02553000 IOPPEMAX EQU IOPSYSDR+2 02554000 IOPSCNVL EQU IOPSYSDR+1 02555000 @NM00137 EQU IOPSYSDR 02556000 IOPDLIND EQU IOPDNTRY+8 02557000 IOPDLBND EQU IOPDSYS 02558000 @NM00136 EQU IOPDLBFX+8 02559000 @NM00135 EQU @NM00133+7 02560000 @NM00134 EQU @NM00133 02561000 @NM00132 EQU IOPDLBDR+1 02562000 @NM00131 EQU IOPDLBDR 02563000 IOPMDIND EQU IOPMNTRY+8 02564000 @NM00130 EQU IOPMODST 02565000 IOPMODND EQU IOPMODID 02566000 IOPDLIB EQU IOPMODFX+72 02567000 @NM00129 EQU IOPMODFX+12 02568000 @NM00128 EQU IOPMODF4 02569000 @NM00127 EQU IOPMODF3 02570000 @NM00126 EQU IOPMODF2 02571000 IOPMPAGA EQU IOPMODF2 02572000 IOPMNE EQU IOPMODF2 02573000 @NM00125 EQU IOPMODF1 02574000 IOPMDC EQU IOPMODF1 02575000 IOPMREFR EQU IOPMODF1 02576000 IOPMOVLY EQU IOPMODF1 02577000 IOPMSCTR EQU IOPMODF1 02578000 IOPMREUS EQU IOPMODF1 02579000 IOPMRENT EQU IOPMODF1 02580000 IOPMAPF EQU IOPMODF1 02581000 @NM00124 EQU @NM00122+7 02582000 @NM00123 EQU @NM00122 02583000 @NM00121 EQU IOPMODDR+17 02584000 @NM00120 EQU @NM00118+7 02585000 @NM00119 EQU @NM00118 02586000 @NM00117 EQU @NM00114 02587000 @NM00116 EQU @NM00114 02588000 @NM00115 EQU @NM00114 02589000 @NM00113 EQU @NM00112 02590000 @NM00111 EQU IOPMODDR 02591000 IOPSRIND EQU IOPSNTRY+8 02592000 @NM00110 EQU IOPSRCST 02593000 IOPSRCND EQU IOPSRCID 02594000 IOPSRDLB EQU IOPSRCFX+72 02595000 IOPSRSYS EQU IOPSRCFX+64 02596000 @NM00109 EQU IOPSRCFX+8 02597000 @NM00108 EQU @NM00106+7 02598000 @NM00107 EQU @NM00106 02599000 @NM00105 EQU IOPSRCDR+18 02600000 IOPSRLNG EQU IOPSRCDR+17 02601000 @NM00104 EQU @NM00102+7 02602000 @NM00103 EQU @NM00102 02603000 @NM00101 EQU @NM00098 02604000 @NM00100 EQU @NM00098 02605000 @NM00099 EQU @NM00098 02606000 @NM00097 EQU @NM00096 02607000 @NM00095 EQU IOPSRCDR 02608000 IOPEOFND EQU IOPEOFNT 02609000 IOPMCTYP EQU IOPMCIND 02610000 @NM00094 EQU IOPMACST 02611000 IOPMACND EQU IOPMACID 02612000 IOPMCDLB EQU IOPMACFX+72 02613000 IOPMCSYS EQU IOPMACFX+64 02614000 @NM00093 EQU IOPMACFX+8 02615000 IOPBUTYP EQU IOPBUNT+7 02616000 IOPBUSMD EQU IOPBUNT 02617000 @NM00092 EQU IOPMACDR+18 02618000 IOPMCLNG EQU IOPMACDR+17 02619000 IOPFMST EQU IOPFMIDE+7 02620000 IOPFMID EQU IOPFMIDE 02621000 @NM00091 EQU IOPRMST 02622000 IOPRMASM EQU IOPRMST 02623000 @NM00090 EQU IOPRMST 02624000 IOPRMID EQU IOPRMIDE 02625000 @NM00089 EQU IOPMACDR 02626000 @NM00087 EQU @NM00085+7 02627000 @NM00086 EQU @NM00085 02628000 @NM00084 EQU IOPLMDDR+6 02629000 @NM00083 EQU IOPFLGS3 02630000 IOPCHREP EQU IOPFLGS3 02631000 @NM00082 EQU IOPLMDF4 02632000 @NM00081 EQU IOPLMDF3 02633000 @NM00080 EQU IOPLMDF2 02634000 @NM00079 EQU IOPFLGS2 02635000 IOPSCTR EQU IOPFLGS2 02636000 @NM00078 EQU IOPLMDDR 02637000 @NM00077 EQU IOPASMDR+9 02638000 IOPABUTP EQU IOPABUNT+7 02639000 IOPABUPT EQU IOPABUNT 02640000 IOPNTLVL EQU IOPASMDR 02641000 IOPALLOC EQU @NM00076+4 02642000 IOPUSED EQU @NM00076 02643000 IOPTPSEQ EQU @NM00075+8 02644000 IOPVLSER EQU @NM00075+2 02645000 IOPBLKSI EQU @NM00075 02646000 IOPCQMAX EQU IOPCQMAP+12 02647000 @NM00074 EQU IOPCQMAP+11 02648000 @NM00073 EQU IOPCQMAP+8 02649000 @NM00072 EQU IOPCQMAP 02650000 IOPPTMAX EQU IOPCDMAX 02651000 @NM00071 EQU IOPSCMAP+11 02652000 @NM00070 EQU IOPSCMAP+8 02653000 @NM00069 EQU IOPSCMAP 02654000 IOPDIRMX EQU IOPNTMAX+12 02655000 @NM00068 EQU IOPNTMAX+11 02656000 @NM00067 EQU IOPNTMAX+8 02657000 @NM00066 EQU IOPNTMAX 02658000 @NM00065 EQU IOPDTYPE 02659000 IOPDMOD EQU IOPDTYPE 02660000 IOPDJCL EQU IOPDTYPE 02661000 IOPDSRC EQU IOPDTYPE 02662000 IOPDMAC EQU IOPDTYPE 02663000 IOPSDIR EQU IOPSPACE+4 02664000 IOPSSCND EQU IOPSPACE+2 02665000 IOPSPRIM EQU IOPSPACE 02666000 IOPDSN EQU IOPDYNDT 02667000 IOPNTYPE EQU IOPSTCMP+17 02668000 IOPNNAME EQU IOPSTCMP+9 02669000 IOPOTYPE EQU IOPSTCMP+8 02670000 IOPONAME EQU IOPSTCMP 02671000 IOPISEQ3 EQU IOPINAM3+6 02672000 IOPITYP3 EQU @NM00064+5 02673000 IOPIPTF3 EQU @NM00064 02674000 TBLXEND0 EQU TBLXPARM+124 02675000 @NM00007 EQU TBLXPARM+108 02676000 TBLXIOP3 EQU TBLXPARM+104 02677000 TBLXD2GT EQU TBLXPARM+100 02678000 TBLXDLGT EQU TBLXPARM+96 02679000 @NM00006 EQU TBLXRC+3 02680000 TBLXIRC EQU TBLXRC+2 02681000 TBLXLRC EQU TBLXRC+1 02682000 TBLXTRC EQU TBLXRC 02683000 TBLXIBGN EQU TBLXPARM+88 02684000 TBLXTSLP EQU TBLXPARM+84 02685000 @NM00005 EQU TBLXPARM+83 02686000 @NM00004 EQU TBLXPARM+82 02687000 @NM00003 EQU TBLXPARM+81 02688000 @NM00002 EQU TBLXFLG1 02689000 TBLXTCRC EQU TBLXFLG1 02690000 TBLXFUND EQU TBLXPARM+72 02691000 TBLXFUNC EQU TBLXPARM+64 02692000 @NM00001 EQU TBLXPARM+62 02693000 TBLXCRQI EQU TBLXPARM+61 02694000 TBLXCDSI EQU TBLXPARM+60 02695000 TBLXLMGT EQU TBLXPARM+56 02696000 TBLXSCGT EQU TBLXPARM+52 02697000 TBLXSREL EQU TBLXPARM+48 02698000 TBLXASGT EQU TBLXPARM+44 02699000 TBLXIFGT EQU TBLXPARM+40 02700000 TBLXNULL EQU TBLXPARM+36 02701000 TBLXTOP EQU TBLXPARM+32 02702000 TBLXSEGT EQU TBLXPARM+24 02703000 TBLXIOP2 EQU TBLXPARM+16 02704000 TBLXEND EQU TBLXINDX+8 02705000 TBLXSTRT EQU TBLXINDX+4 02706000 TBLXCUR EQU TBLXINDX 02707000 TBLXHDR EQU TBLXPARM 02708000 @NM00238 EQU ICTLMOD+38 02709000 @NM00237 EQU ICTLFLG3 02710000 @NM00236 EQU ICTLFLG2 02711000 ICTLDEL EQU ICTLFLG2 02712000 @NM00235 EQU ICTLFLG2 02713000 ICTLTDEL EQU ICTLFLG2 02714000 ICTCOPY EQU ICTLFLG2 02715000 @NM00234 EQU ICTLFLG7 02716000 @NM00233 EQU ICTLFLG6 02717000 @NM00232 EQU ICTLFLG5 02718000 ICTLPAGA EQU ICTLFLG5 02719000 ICTLNE EQU ICTLFLG5 02720000 @NM00231 EQU ICTLFLG1 02721000 ICTLOVLY EQU ICTLFLG1 02722000 ICTLSCTR EQU ICTLFLG1 02723000 ICTLAPF EQU ICTLFLG1 02724000 @NM00230 EQU ICTLFLG4 02725000 ICTLPASS EQU ICTLFLG4 02726000 ICTLDDCK EQU ICTLFLG4 02727000 @NM00229 EQU ICTMUMNT+7 02728000 ICTMUMND EQU ICTMUMNM 02729000 @NM00228 EQU ICTMVRNT+7 02730000 ICTMVRND EQU ICTMVRNM 02731000 ICTTALND EQU ICTTALNM 02732000 ICTASMND EQU ICTASMAD 02733000 ICTMIDTY EQU ICTMODST 02734000 ICTMIDAM EQU ICTMODST 02735000 ICTMIDRG EQU ICTMODST 02736000 ICTMIDF1 EQU ICTMODST 02737000 ICTMIDPL EQU ICTMODST 02738000 ICTMIDPS EQU ICTMODST 02739000 @NM00227 EQU ICTMODST 02740000 ICTMIDND EQU ICTMODID 02741000 ICTIXM EQU ICTIXMF 02742000 @NM00226 EQU ICTMOD+128 02743000 ICTMICHA EQU ICTMOD+108 02744000 @NM00225 EQU ICTMOD+95 02745000 ICTMFMID EQU ICTMOD+88 02746000 @NM00224 EQU ICTMOD+87 02747000 ICTMRMID EQU ICTMOD+80 02748000 ICTMSSI EQU ICTMOD+72 02749000 ICTMDOBJ EQU ICTMOD+64 02750000 ICTMSYSL EQU ICTMOD+56 02751000 ICTMDSTL EQU ICTMOD+48 02752000 ICTMASLB EQU ICTMOD+40 02753000 ICTTOLIB EQU ICTMOD+32 02754000 ICTFMLIB EQU ICTMOD+24 02755000 ICTMRELN EQU ICTMOD+22 02756000 @NM00223 EQU ICTMOD+21 02757000 ICTMLANG EQU ICTMOD+20 02758000 @NM00222 EQU ICTMOD+19 02759000 ICTMACF5 EQU ICTMOD+18 02760000 ICTMZMPR EQU ICTMACF4 02761000 ICTMZOMZ EQU ICTMACF4 02762000 ICTMDOAS EQU ICTMACF4 02763000 ICTMXUPD EQU ICTMACF4 02764000 ICTMFXC EQU ICTMACF4 02765000 ICTMFXBS EQU ICTMACF4 02766000 ICTMHASM EQU ICTMACF4 02767000 ICTMACDL EQU ICTMACF4 02768000 @NM00221 EQU ICTMLEP4 02769000 @NM00220 EQU ICTMLEP3 02770000 @NM00219 EQU ICTMLEP2 02771000 ICTMPAGA EQU ICTMLEP2 02772000 ICTMNE EQU ICTMLEP2 02773000 @NM00218 EQU ICTMLEP1 02774000 ICTMDC EQU ICTMLEP1 02775000 ICTMREFR EQU ICTMLEP1 02776000 ICTMOVLY EQU ICTMLEP1 02777000 ICTMSCTR EQU ICTMLEP1 02778000 ICTMREUS EQU ICTMLEP1 02779000 ICTMRENT EQU ICTMLEP1 02780000 ICTMAPF EQU ICTMLEP1 02781000 @NM00217 EQU ICTMFLG5 02782000 ICTMNORL EQU ICTMFLG5 02783000 ICTMELCK EQU ICTMFLG5 02784000 ICTMCOPY EQU ICTMFLG5 02785000 ICTMPASS EQU ICTMFLG5 02786000 @NM00216 EQU ICTMFLG4 02787000 ICTMTSEL EQU ICTMFLG4 02788000 ICTMDSTE EQU ICTMFLG4 02789000 ICTMMIDE EQU ICTMFLG4 02790000 ICTMASOC EQU ICTMFLG4 02791000 ICTMSELM EQU ICTMFLG4 02792000 ICTMIDEL EQU ICTMFLG4 02793000 ICTMISEL EQU ICTMFLG4 02794000 @NM00215 EQU ICTMFLG3 02795000 ICTMALIS EQU ICTMFLG3 02796000 ICTMWRK EQU ICTMFLG3 02797000 ICTMTRX EQU ICTMFLG3 02798000 ICTLIBTX EQU ICTMFLG3 02799000 ICTMSRCU EQU ICTMFLG1 02800000 ICTMSRCR EQU ICTMFLG1 02801000 ICTMMACU EQU ICTMFLG1 02802000 ICTMMACR EQU ICTMFLG1 02803000 @NM00214 EQU ICTMFLG2 02804000 @NM00213 EQU ICTMFLG2 02805000 ICTMMIDU EQU ICTMFLG2 02806000 ICTMDEL EQU ICTMFLG2 02807000 ICTMMSG EQU ICTMFLG2 02808000 ICTMNOGO EQU ICTMFLG2 02809000 ICTMPROC EQU ICTMFLG2 02810000 ICTMEND EQU ICTMNAME 02811000 @NM00212 EQU ICTSBYNT+7 02812000 ICTSBYND EQU ICTSBYNM 02813000 ICTDELEX EQU ICTDELST 02814000 ICTDELND EQU ICTDELNM 02815000 @NM00211 EQU ICTVRSNT+7 02816000 ICTVRSND EQU ICTVRSNM 02817000 @NM00210 EQU ICTNPRNT+7 02818000 ICTNPRND EQU ICTNPRNM 02819000 @NM00209 EQU ICTCSRST 02820000 @NM00208 EQU ICTCSRST 02821000 ICTCSRF EQU ICTCSRST 02822000 @NM00207 EQU ICTCSRST 02823000 ICTCSRNM EQU ICTIRQNT+8 02824000 @NM00206 EQU ICTIRQST 02825000 ICTIREQT EQU ICTIRQST 02826000 ICTIREQI EQU ICTIRQST 02827000 ICTIREQB EQU ICTIRQST 02828000 ICTIREQS EQU ICTIRQST 02829000 @NM00205 EQU ICTIRQST 02830000 ICTIRQND EQU ICTIRQNM 02831000 @NM00204 EQU ICTPREST 02832000 ICTPREQT EQU ICTPREST 02833000 ICTPREQI EQU ICTPREST 02834000 ICTPREQB EQU ICTPREST 02835000 ICTPREQS EQU ICTPREST 02836000 @NM00203 EQU ICTPREST 02837000 ICTPREND EQU ICTPRENM 02838000 @NM00202 EQU ICTSUPNT+7 02839000 ICTSUPND EQU ICTSUPNM 02840000 @NM00201 EQU ICTREQST 02841000 ICTRREQT EQU ICTREQST 02842000 ICTRREQI EQU ICTREQST 02843000 ICTRREQB EQU ICTREQST 02844000 ICTRREQS EQU ICTREQST 02845000 @NM00200 EQU ICTREQST 02846000 ICTREQND EQU ICTREQNM 02847000 @NM00199 EQU ICTENTST 02848000 ICTEREQT EQU ICTENTST 02849000 ICTEREQI EQU ICTENTST 02850000 ICTEREQB EQU ICTENTST 02851000 ICTEREQS EQU ICTENTST 02852000 @NM00198 EQU ICTENTST 02853000 ICTENTND EQU ICTENTNM 02854000 ICTIXP EQU ICTIXPF 02855000 @NM00197 EQU ICTPTF+100 02856000 ICTPTPFX EQU ICTPTF+38 02857000 ICTPRELN EQU ICTPTF+36 02858000 ICTPRECT EQU ICTPTF+33 02859000 ICTPRECD EQU ICTPTF+30 02860000 ICTPVERN EQU ICTPTF+29 02861000 ICTPFMID EQU ICTPTF+22 02862000 ICTPSUPN EQU ICTPTF+20 02863000 ICTPONUM EQU ICTPTF+18 02864000 ICTPTYPE EQU ICTPTF+17 02865000 ICTPUSR8 EQU ICTPFLGA 02866000 ICTPUSR7 EQU ICTPFLGA 02867000 ICTPUSR6 EQU ICTPFLGA 02868000 ICTPUSR5 EQU ICTPFLGA 02869000 ICTPUSR4 EQU ICTPFLGA 02870000 ICTPUSR3 EQU ICTPFLGA 02871000 ICTPUSR2 EQU ICTPFLGA 02872000 ICTPPASS EQU ICTPUSR1 02873000 @NM00196 EQU @NM00195 02874000 ICTPRQBY EQU @NM00195 02875000 ICTPRQOK EQU @NM00195 02876000 ICTPRQCK EQU @NM00195 02877000 @NM00194 EQU ICTPFLG9 02878000 ICTPPDEL EQU ICTPFLG9 02879000 ICTPWRKO EQU ICTPFLG9 02880000 ICTPMSL EQU ICTPFLG9 02881000 @NM00193 EQU ICTPFLG8 02882000 ICTPDCPL EQU ICTPFLG8 02883000 ICTPECPL EQU ICTPFLG8 02884000 ICTPGCPL EQU ICTPFLG8 02885000 @NM00192 EQU ICTPFLG4 02886000 @NM00191 EQU ICTPFLG4 02887000 @NM00190 EQU ICTPFLG4 02888000 ICTPGELM EQU ICTPFLG4 02889000 ICTPDIMP EQU ICTPFLG4 02890000 ICTPDEXP EQU ICTPFLG4 02891000 ICTPREDO EQU ICTPFLG4 02892000 ICTPCDSE EQU ICTPFLG4 02893000 @NM00189 EQU ICTPFLG2 02894000 ICTPRCND EQU ICTPFLG2 02895000 ICTPTPS EQU ICTPFLG2 02896000 ICTPTR1 EQU ICTPFLG2 02897000 ICTPVRSP EQU ICTPFLG2 02898000 @NM00188 EQU ICTPFLG6 02899000 ICTFLF EQU ICTPFLF 02900000 ICTPDBYP EQU ICTPFLG6 02901000 ICTPSBYP EQU ICTPFLG6 02902000 ICTPMDLP EQU ICTPFLG5+1 02903000 ICTPADDP EQU ICTPFLG5+1 02904000 @NM00187 EQU ICTPFLG5+1 02905000 ICTPLRFP EQU ICTPFLG5 02906000 ICTPJCLP EQU ICTPFLG5 02907000 ICTPSUPP EQU ICTPFLG5 02908000 ICTPREQP EQU ICTPFLG5 02909000 ICTPPREP EQU ICTPFLG5 02910000 ICTPNPRP EQU ICTPFLG5 02911000 ICTPIRQP EQU ICTPFLG5 02912000 ICTPDELP EQU ICTPFLG5 02913000 @NM00186 EQU ICTPFLG3 02914000 ICTPSLST EQU ICTPFLG3 02915000 ICTPNOLB EQU ICTPFLG3 02916000 ICTPVERJ EQU ICTPFLG3 02917000 ICTPMSG EQU ICTPFLG3 02918000 ICTPCPL EQU ICTPFLG3 02919000 ICTPROCS EQU ICTPPROC 02920000 ICTREGEN EQU ICTPFLG1 02921000 ICTBYP EQU ICTPFLG1 02922000 ICTDUMMP EQU ICTPFLG1 02923000 @NM00185 EQU ICTPFLG1 02924000 ICTERROR EQU ICTPFLG1 02925000 ICTACC EQU ICTPFLG1 02926000 ICTRES EQU ICTPFLG1 02927000 ICTAPP EQU ICTPFLG1 02928000 ICTPEND EQU ICTPTFS 02929000 ICTLEN EQU ICTGMSPL+1 02930000 ICTSP EQU ICTGMSPL 02931000 ICTLLEN EQU ICTLSPLN+1 02932000 ICTLSP EQU ICTLSPLN 02933000 ICTMLEN EQU ICTMSPLN+1 02934000 ICTMSP EQU ICTMSPLN 02935000 ICTPLEN EQU ICTPSPLN+1 02936000 ICTPSP EQU ICTPSPLN 02937000 IOPBS04E EQU IOPBS04+2 02938000 IOPBAPFL EQU IOPBAPF 02939000 IOPBS2NM EQU IOPBS02+3 02940000 IOPBS2EP EQU IOPBS02 02941000 IOPQSMTP EQU IOPQSMLS+8 02942000 @NM00170 EQU IOPQSMLS+7 02943000 IOPQSMND EQU IOPQSMNM 02944000 @NM00169 EQU @NM00168+7 02945000 IOPQSMFM EQU @NM00168 02946000 @NM00088 EQU IOPLMCTL+17 02947000 IOPLMCRD EQU IOPLMCTL+9 02948000 IOPLMCRN EQU IOPLMCTL+1 02949000 IOPLMCC EQU IOPLMCTL 02950000 @NM00063 EQU IOPUSERL 02951000 @NM00062 EQU IOPUSERL 02952000 IOPINAM2 EQU IOPINAM+1 02953000 IOPITYP2 EQU IOPITYP 02954000 @NM00061 EQU HMASMIOP+32 02955000 IOPDELDD EQU IOPDDNAM 02956000 @NM00060 EQU @NM00057+10 02957000 IOPSEQNO EQU @NM00057+8 02958000 @NM00059 EQU @NM00058+7 02959000 IOPPTFNM EQU @NM00058 02960000 IOPNAM17 EQU IOPNAME 02961000 CCABMREC EQU CCABELMT+10 02962000 CCABPOS EQU CCABMPOS+8 02963000 CCABNAME EQU CCABMPOS 02964000 @NM00056 EQU CCABLDLM+2 02965000 @NM00055 EQU CCABLDLM 02966000 CCAUPDPM EQU @NM00053+24 02967000 @NM00054 EQU @NM00053+21 02968000 CCARUPDT EQU CCAUPDRC 02969000 CCAUPDSP EQU @NM00053+12 02970000 CCAUPDTE EQU @NM00053+8 02971000 CCAUPDNM EQU @NM00053 02972000 CCASUPPM EQU @NM00051+24 02973000 @NM00052 EQU @NM00051+21 02974000 CCARSUP EQU CCASUPRC 02975000 CCASUPSP EQU @NM00051+12 02976000 CCASUPNM EQU @NM00051 02977000 CCAZAPPM EQU @NM00049+24 02978000 @NM00050 EQU @NM00049+21 02979000 CCARZAP EQU CCAZAPRC 02980000 CCAZAPSP EQU @NM00049+12 02981000 CCASPZAP EQU @NM00049+8 02982000 CCAZAPNM EQU @NM00049 02983000 CCACOMPM EQU @NM00047+24 02984000 @NM00048 EQU @NM00047+21 02985000 CCARCOMP EQU CCACOMRC 02986000 CCACOMSP EQU @NM00047+12 02987000 CCACOMRS EQU @NM00047+8 02988000 CCACOMNM EQU @NM00047 02989000 CCACPYPM EQU @NM00045+24 02990000 @NM00046 EQU @NM00045+21 02991000 CCARCOPY EQU CCACPYRC 02992000 CCACPYSP EQU @NM00045+12 02993000 CCACOPY EQU @NM00045+8 02994000 CCACPYNM EQU @NM00045 02995000 CCAASMPM EQU @NM00043+24 02996000 @NM00044 EQU @NM00043+21 02997000 CCARASM EQU CCAASMRC 02998000 CCAASMSP EQU @NM00043+12 02999000 CCAASM EQU @NM00043+8 03000000 CCAASMNM EQU @NM00043 03001000 CCALKDPM EQU @NM00041+24 03002000 @NM00042 EQU @NM00041+21 03003000 CCARLINK EQU CCALKDRC 03004000 CCALKDSP EQU @NM00041+12 03005000 CCALKED EQU @NM00041+8 03006000 CCALKDNM EQU @NM00041 03007000 CCAPGMPM EQU @NM00039+24 03008000 @NM00040 EQU @NM00039+21 03009000 CCABPGRC EQU @NM00039+20 03010000 CCABPGSP EQU @NM00039+12 03011000 CCABPGAD EQU @NM00039+8 03012000 CCABPGNM EQU @NM00039 03013000 CCAEND EQU HMASMCCA+371 03014000 @NM00038 EQU HMASMCCA+309 03015000 CCACURDD EQU CCAFDSNG+3 03016000 CCACURDS EQU CCAFDSNG+2 03017000 @NM00037 EQU CCAFLAGB 03018000 CCAOUTNG EQU CCAFLAGB 03019000 CCALOGNG EQU CCAFLAGB 03020000 CCAFMID EQU HMASMCCA+291 03021000 CCALSTDS EQU CCAFCTL+8 03022000 CCARPTDS EQU CCAFCTL+7 03023000 CCATIME EQU CCAFCTL+4 03024000 CCADATE EQU CCAFCTL+1 03025000 @NM00036 EQU CCAFLAG9 03026000 CCARVCAN EQU CCAFLAG9 03027000 CCARVEST EQU CCAFLAG9 03028000 CCAPTSNJ EQU CCAFLAG9 03029000 CCASTSNP EQU CCAFLAG9 03030000 CCAMTSNP EQU CCAFLAG9 03031000 CCAPTSNP EQU CCAFLAG9 03032000 @NM00035 EQU CCAFLAG8 03033000 CCAACDSC EQU CCAFLAG8 03034000 CCACDSC EQU CCAFLAG8 03035000 @NM00034 EQU CCAFLAG6 03036000 CCAACRUP EQU CCAFLAG6 03037000 CCACRQUP EQU CCAFLAG6 03038000 CCAACDUP EQU CCAFLAG6 03039000 CCACDSUP EQU CCAFLAG6 03040000 @NM00033 EQU CCAFLAG5 03041000 CCAACROS EQU CCAFLAG5 03042000 CCACRQOS EQU CCAFLAG5 03043000 CCAACDOS EQU CCAFLAG5 03044000 CCACDSOS EQU CCAFLAG5 03045000 @NM00032 EQU CCAFLAG4 03046000 CCAACRIS EQU CCAFLAG4 03047000 CCACRQIS EQU CCAFLAG4 03048000 CCAACDIS EQU CCAFLAG4 03049000 CCACDSIS EQU CCAFLAG4 03050000 @NM00031 EQU CCAFLAG3+1 03051000 CCARGNP EQU CCAFLAG3+1 03052000 CCADISRQ EQU CCAFLAG3+1 03053000 CCAICTOK EQU CCAFLAG3 03054000 CCADELP EQU CCAFLAG3 03055000 CCACMPRS EQU CCAFLAG3 03056000 CCAZAPP EQU CCAFLAG3 03057000 CCALINKP EQU CCAFLAG3 03058000 CCACOPYP EQU CCAFLAG3 03059000 CCAASIP EQU CCAFLAG3 03060000 CCAUPDP EQU CCAFLAG3 03061000 CCAEOSMP EQU CCAFLAG2 03062000 CCAEOFNC EQU CCAFLAG2 03063000 @NM00030 EQU CCAFLAG2 03064000 CCACHECK EQU CCAFLAG2 03065000 CCATERM EQU CCAFLAG2 03066000 @NM00029 EQU CCAFLAG1+1 03067000 CCAUNL EQU CCAFLAG1+1 03068000 CCARESET EQU CCAFLAG1+1 03069000 CCALOG EQU CCAFLAG1+1 03070000 CCACNV EQU CCAFLAG1+1 03071000 CCALIST EQU CCAFLAG1 03072000 CCAUPDU EQU CCAFLAG1 03073000 CCAUPDJ EQU CCAFLAG1 03074000 CCAREJ EQU CCAFLAG1 03075000 CCAREC EQU CCAFLAG1 03076000 CCAFUNCT EQU CCAFFUNC 03077000 @NM00028 EQU @NM00023+18 03078000 @NM00027 EQU @NM00023+16 03079000 CCATBLPA EQU @NM00023+12 03080000 @NM00026 EQU @NM00023+8 03081000 @NM00025 EQU @NM00023+4 03082000 @NM00024 EQU @NM00023 03083000 CCAIFGTP EQU CCAFGTP+16 03084000 CCAGTP3 EQU CCAFGTP+12 03085000 CCAGTP2 EQU CCAFGTP+8 03086000 CCAGTP1 EQU CCAFGTP+4 03087000 CCASETAD EQU CCASEGTP 03088000 CCACLST EQU CCAFPGM+12 03089000 CCASPDCB EQU CCAFPGM+8 03090000 CCARVAD EQU CCAFSTA 03091000 CCAACDID EQU CCAFSYS+32 03092000 CCACDSID EQU CCAFSYS+24 03093000 CCALNLEN EQU CCAFSYS+22 03094000 @NM00022 EQU CCAFLAGA 03095000 CCAPSYSF EQU CCAFLAGA 03096000 CCAASYSF EQU CCAFLAGA 03097000 CCACSYSF EQU CCAFLAGA 03098000 CCANUCID EQU CCAFSYS+20 03099000 CCAASREL EQU CCAFSYS+16 03100000 CCACSREL EQU CCASREL 03101000 CCAPEMAX EQU CCAFSYS+10 03102000 CCAPGLEN EQU CCAFSYS+8 03103000 CCAIOPAS EQU CCAFSYS+4 03104000 CCAIOPCS EQU CCAFSYS 03105000 CCAPESIZ EQU CCAFIOP+4 03106000 @NM00021 EQU CCAFLAG7+3 03107000 CCALOGP EQU CCAFLAG7+2 03108000 CCAOUTP EQU CCAFLAG7+2 03109000 CCASLBP EQU CCAFLAG7+2 03110000 CCARPTP EQU CCAFLAG7+2 03111000 CCALISTP EQU CCAFLAG7+2 03112000 CCAJCLP EQU CCAFLAG7+2 03113000 CCAPTFP EQU CCAFLAG7+2 03114000 CCATLBP EQU CCAFLAG7+2 03115000 CCAUT3P EQU CCAFLAG7+1 03116000 CCAUT2P EQU CCAFLAG7+1 03117000 CCAUT1P EQU CCAFLAG7+1 03118000 CCAWK5P EQU CCAFLAG7+1 03119000 CCAWK4P EQU CCAFLAG7+1 03120000 CCAWK3P EQU CCAFLAG7+1 03121000 CCAWK2P EQU CCAFLAG7+1 03122000 CCAWK1P EQU CCAFLAG7+1 03123000 CCAACRQP EQU CCAFLAG7 03124000 CCACRQP EQU CCAFLAG7 03125000 CCASTSP EQU CCAFLAG7 03126000 CCAMTSP EQU CCAFLAG7 03127000 CCAPTSP EQU CCAFLAG7 03128000 CCASCDSP EQU CCAFLAG7 03129000 CCAACDSP EQU CCAFLAG7 03130000 CCACDSP EQU CCAFLAG7 03131000 @NM00020 EQU CCAFBUFR+122 03132000 @NM00019 EQU CCAFBUFR+120 03133000 @NM00018 EQU CCAFBUFR+118 03134000 CCATBFMX EQU CCAFBUFR+116 03135000 CCA4BFMX EQU CCAFBUFR+114 03136000 CCA3BFMX EQU CCAFBUFR+112 03137000 CCA2BFMX EQU CCAFBUFR+110 03138000 CCA1BFMX EQU CCAFBUFR+108 03139000 CCAXBFMX EQU CCAFBUFR+106 03140000 CCAQBFMX EQU CCAFBUFR+104 03141000 CCASBFMX EQU CCAFBUFR+102 03142000 CCAMBFMX EQU CCAFBUFR+100 03143000 CCAPBFMX EQU CCAFBUFR+98 03144000 CCAVBFMX EQU CCAFBUFR+96 03145000 CCAABFMX EQU CCAFBUFR+94 03146000 CCACBFMX EQU CCAFBUFR+92 03147000 @NM00017 EQU CCAFBUFR+88 03148000 @NM00016 EQU CCAFBUFR+84 03149000 CCA4BFSZ EQU CCAFBUFR+80 03150000 CCATBFSZ EQU CCAFBUFR+76 03151000 CCAWBFSZ EQU CCAFBUFR+72 03152000 CCAQBFSZ EQU CCAFBUFR+68 03153000 CCAPBFSZ EQU CCAFBUFR+64 03154000 CCAVBFSZ EQU CCAFBUFR+60 03155000 CCACBFSZ EQU CCAFBUFR+56 03156000 @NM00015 EQU CCAFBUFR+52 03157000 CCA4BFOA EQU CCAFBUFR+48 03158000 CCA4BFIA EQU CCAFBUFR+44 03159000 CCATBFIA EQU CCAFBUFR+40 03160000 CCAWBFOA EQU CCAFBUFR+36 03161000 CCAWBFIA EQU CCAFBUFR+32 03162000 CCAQBFOA EQU CCAFBUFR+28 03163000 CCAQBFIA EQU CCAFBUFR+24 03164000 CCAPBFOA EQU CCAFBUFR+20 03165000 CCAPBFIA EQU CCAFBUFR+16 03166000 CCAVBFOA EQU CCAFBUFR+12 03167000 CCAVBFIA EQU CCAFBUFR+8 03168000 CCACBFOA EQU CCAFBUFR+4 03169000 CCACBFIA EQU CCAFBUFR 03170000 CCAID EQU HMASMCCA 03171000 @NM00014 EQU TBLFLG5 03172000 TBLICTOK EQU TBLFLG5 03173000 @NM00013 EQU TBLFLG4 03174000 TBLBPFM EQU TBLFLG4 03175000 @NM00012 EQU TBLFLG4 03176000 TBLBPIRQ EQU TBLFLG4 03177000 TBLBPREQ EQU TBLFLG4 03178000 TBLBPPRE EQU TBLFLG4 03179000 TBLBPID EQU TBLFLG4 03180000 @NM00011 EQU TBLFLG3+1 03181000 TBLSTS EQU TBLFLG3 03182000 TBLMTS EQU TBLFLG3 03183000 TBLPTS EQU TBLFLG3 03184000 TBLACRQ EQU TBLFLG3 03185000 TBLCRQ EQU TBLFLG3 03186000 TBLSCDS EQU TBLFLG3 03187000 TBLACDS EQU TBLFLG3 03188000 TBLCDS EQU TBLFLG3 03189000 TBLMASS EQU TBLFLG2 03190000 @NM00010 EQU TBLFLG2 03191000 TBLFMID EQU TBLFLG2 03192000 TBLGROUP EQU TBLFLG2 03193000 TBLEXC EQU TBLFLG2 03194000 TBLSEL EQU TBLFLG2 03195000 @NM00009 EQU TBLFLG1+1 03196000 TBLDISW EQU TBLFLG1+1 03197000 TBLDISR EQU TBLFLG1+1 03198000 TBLDISN EQU TBLFLG1+1 03199000 TBLNOJCL EQU TBLFLG1 03200000 TBLFLUSH EQU TBLFLG1 03201000 TBLUSER EQU TBLFLG1 03202000 TBLAPAR EQU TBLFLG1 03203000 TBLCOMP EQU TBLFLG1 03204000 TBLASSEM EQU TBLFLG1 03205000 TBLCHECK EQU TBLFLG1 03206000 TBLNOAPP EQU TBLFLG1 03207000 @NM00008 EQU TBLXOPTS+5 03208000 TBLNUCID EQU TBLXOPTS+4 03209000 TBLJCLGT EQU TBLXOPTS 03210000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03211000 @RF00243 EQU @RC00240 03212000 @RC00327 EQU @RC00324 03213000 @RC00377 EQU @RC00375 03214000 @RF00462 EQU @RC00460 03215000 @RF00535 EQU @RC00476 03216000 @RF00556 EQU @RC00553 03217000 @RF00566 EQU @RC00564 03218000 @ENDDATA EQU * 03219000 END HMASMTL2,(C'PLS2149',0802,78334) 03220000