TITLE '***************** ICKEX03: DMS TERMINATION **********00001000 *********' 00002000 MACRO 00003000 GETMAIN &R,&LV= 00004000 L REG15,0(REG1) GDTTBL ADDRESS 00005000 L REG15,GDTPRL(REG15) PROL ROUTINE ADDRESS 00006000 CNOP 2,4 BOUNDARY ALIGNMENT 00007000 LA REG14,*+14 RETURN ADDRESS 00008000 BALR REG1,REG15 LINKAGE TO PROL ROUTINE 00009000 DC A(MODID) MODULE ID ADDRESS 00010000 DC A(@SIZDATD) AUTOMATIC STORAGE SIZE ADDRESS 00011000 MEND 00012000 ICKEX03 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'ICKEX03 78.192' 0002 00018000 DROP @15 00019000 @PROLOG STM @14,@12,12(@13) 0002 00020000 BALR @12,0 0002 00021000 @PSTART DS 0H 0002 00022000 USING @PSTART,@12 0002 00023000 L @00,@SIZDATD 0002 00024000 GETMAIN R,LV=(0) 00025000 LR @11,@01 0002 00026000 USING @DATD,@11 0002 00027000 ST @13,@SA00001+4 0002 00028000 LM @00,@01,20(@13) 0002 00029000 ST @11,8(,@13) 0002 00030000 LR @13,@11 0002 00031000 MVC @PC00001(8),0(@01) 0002 00032000 * /*PATCH AREA FOR MAINTENANCE */ 00033000 * /************************************************************/ 00034000 * /* */ 00035000 * /* SUMMARIZE AND PRINT THE STORAGE AND PERFORMANCE */ 00036000 * /* MEASUREMENTS OBTAINED IF THE ICKDMS STATISTICS OPTION */ 00037000 * /* IS 'ON' */ 00038000 * /* */ 00039000 * /************************************************************/ 00040000 * 0183 00041000 * /* 'USTATS' CALL GENERATED HERE IF STATISTICS OPTION 'ON' */ 00042000 * 0183 00043000 * 0183 00044000 * 0183 00045000 * /************************************************************/ 00046000 * /* */ 00047000 * /* ISSUE ICKDMS TERMINATION MESSAGE */ 00048000 * /* */ 00049000 * /************************************************************/ 00050000 * 0183 00051000 * DDSTRU = ADDR(PRNTLIST); 0183 00052000 LA @10,PRNTLIST 0183 00053000 ST @10,DDSTRU 0183 00054000 * PRNTLIST = '00'X; 0184 00055000 XC PRNTLIST+1(19),PRNTLIST+1 0184 00056000 MVI PRNTLIST,X'00' 0184 00057000 * DARGSMOD = LASTMSG; 0185 00058000 MVC DARGSMOD(3,@10),@CC00477 0185 00059000 * DARGSENT = LASTMSG#; 0186 00060000 MVI DARGSENT(@10),X'02' 0186 00061000 * DARGDBP = ADDR(MAXCOND); 0187 00062000 L @15,@PC00001+4 0187 00063000 ST @15,DARGDBP(,@10) 0187 00064000 * DARGILP = 2; 0188 00065000 * 0188 00066000 MVC DARGILP(2,@10),@CH00109 0188 00067000 * CALL ICKTPPR0(GDTTBL,PRTFILE,DDSTRU); 0189 00068000 * 0189 00069000 L @10,@PC00001 0189 00070000 ST @10,@AL00001 0189 00071000 LA @15,@CF00087 0189 00072000 ST @15,@AL00001+4 0189 00073000 LA @15,DDSTRU 0189 00074000 ST @15,@AL00001+8 0189 00075000 MVI @AL00001+8,X'80' 0189 00076000 L @15,GDTPRT(,@10) 0189 00077000 LA @01,@AL00001 0189 00078000 BALR @14,@15 0189 00079000 * /************************************************************/ 00080000 * /* */ 00081000 * /* TURN OFF ICKDMS TEST OPTION (IF TEST OPTION 'ON') */ 00082000 * /* */ 00083000 * /************************************************************/ 00084000 * 0190 00085000 * IF GDTDBH ^= NULLPTR 0190 00086000 * THEN 0190 00087000 L @10,@PC00001 0190 00088000 L @15,GDTDBH(,@10) 0190 00089000 LTR @15,@15 0190 00090000 BZ @RF00190 0190 00091000 * DO; 0191 00092000 * /******************************************************/ 00093000 * /* */ 00094000 * /* FREE STORAGE HELD BY 'TEST OPTION DATA AREA' */ 00095000 * /* */ 00096000 * /******************************************************/ 00097000 * 0192 00098000 * CALL ICKSAFS0(GDTTBL,GDTDBH); 0192 00099000 * 0192 00100000 ST @10,@AL00001 0192 00101000 LA @15,GDTDBH(,@10) 0192 00102000 ST @15,@AL00001+4 0192 00103000 L @15,GDTFSP(,@10) 0192 00104000 LA @01,@AL00001 0192 00105000 BALR @14,@15 0192 00106000 * GDTDBH = NULLPTR; 0193 00107000 L @10,@PC00001 0193 00108000 SLR @15,@15 0193 00109000 ST @15,GDTDBH(,@10) 0193 00110000 * END; 0194 00111000 * 0194 00112000 * IF GDTDBG ^= NULLPTR 0195 00113000 * THEN 0195 00114000 @RF00190 L @10,@PC00001 0195 00115000 L @15,GDTDBG(,@10) 0195 00116000 LTR @15,@15 0195 00117000 BZ @RF00195 0195 00118000 * DO; 0196 00119000 * /******************************************************/ 00120000 * /* */ 00121000 * /* DELETE THE ICKDMS DUMP ROUTINE (ICKDB01) */ 00122000 * /* */ 00123000 * /******************************************************/ 00124000 * 0197 00125000 * CALL ICKSADE0(GDTTBL,'ICKDB01 '); 0197 00126000 * 0197 00127000 ST @10,@AL00001 0197 00128000 LA @15,@CC00484 0197 00129000 ST @15,@AL00001+4 0197 00130000 L @15,GDTDEL(,@10) 0197 00131000 LA @01,@AL00001 0197 00132000 BALR @14,@15 0197 00133000 * GDTDBG = NULLPTR; 0198 00134000 L @10,@PC00001 0198 00135000 SLR @15,@15 0198 00136000 ST @15,GDTDBG(,@10) 0198 00137000 * END; 0199 00138000 * 0199 00139000 * /************************************************************/ 00140000 * /* */ 00141000 * /* OBTAIN ICKDMS INVOKER'S PAGE NUMBER PARAMETER ADDRESS */ 00142000 * /* */ 00143000 * /************************************************************/ 00144000 * 0200 00145000 * PAGEPTR = NULLPTR; 0200 00146000 * 0200 00147000 @RF00195 SLR @10,@10 0200 00148000 ST @10,PAGEPTR 0200 00149000 * CALL SCANPARM; 0201 00150000 * 0201 00151000 BAL @14,SCANPARM 0201 00152000 * /************************************************************/ 00153000 * /* */ 00154000 * /* TERMINATE THE TEXT PROCESSING FACILITY */ 00155000 * /* AND UPDATE THE NEXT AVAILABLE PAGE NUMBER (IF SUPPLIED) */ 00156000 * /* IN THE ICKDMS INVOKER'S PARAMETER LIST (URESET MACRO) */ 00157000 * /* */ 00158000 * /************************************************************/ 00159000 * 0202 00160000 * CALL ICKTPRE0(GDTTBL,PRTFILE,PAGEPTR); 0202 00161000 * 0202 00162000 L @10,@PC00001 0202 00163000 ST @10,@AL00001 0202 00164000 LA @15,@CF00087 0202 00165000 ST @15,@AL00001+4 0202 00166000 LA @15,PAGEPTR 0202 00167000 ST @15,@AL00001+8 0202 00168000 MVI @AL00001+8,X'80' 0202 00169000 L @15,GDTRES(,@10) 0202 00170000 LA @01,@AL00001 0202 00171000 BALR @14,@15 0202 00172000 * /************************************************************/ 00173000 * /* */ 00174000 * /* TERMINATE THE INPUT/OUTPUT ADAPTER FACILITY */ 00175000 * /* */ 00176000 * /************************************************************/ 00177000 * 0203 00178000 * CALL ICKIOTM0(GDTTBL); 0203 00179000 * 0203 00180000 L @10,@PC00001 0203 00181000 ST @10,@AL00001 0203 00182000 MVI @AL00001,X'80' 0203 00183000 L @15,GDTTIO(,@10) 0203 00184000 LA @01,@AL00001 0203 00185000 BALR @14,@15 0203 00186000 * /************************************************************/ 00187000 * /* */ 00188000 * /* RETURN TO THE ICKDMS EXECUTIVE (ICKEX01) */ 00189000 * /* */ 00190000 * /************************************************************/ 00191000 * 0204 00192000 * CALL ICKSAEP0(GDTTBL,MODID); 0204 00193000 L @10,@PC00001 0204 00194000 ST @10,@AL00001 0204 00195000 LA @15,MODID 0204 00196000 ST @15,@AL00001+4 0204 00197000 MVI @AL00001+4,X'80' 0204 00198000 L @15,GDTEPL(,@10) 0204 00199000 LA @01,@AL00001 0204 00200000 BALR @14,@15 0204 00201000 */********************************************************************/ 00202000 */* */ 00203000 */* PROCEDURE NAME - SCANPARM */ 00204000 */* */ 00205000 */* FUNCTION - SCAN INVOKER'S PARAMETER LIST AND OBTAIN THE ADDRESS */ 00206000 */* OF THE PAGE NUMBER PARAMETER, IF SUPPLIED BY THE */ 00207000 */* ICKDMS INVOKER. CHECK FOR THE END OF THE VARIABLE */ 00208000 */* LENGTH LIST INDICATED BY A '1' IN THE SIGN BIT OF */ 00209000 */* THE FINAL PARAMETER */ 00210000 */* */ 00211000 */* INPUT - INVOKER'S PARAMETER LIST - ADDRESS CONTAINED IN THE */ 00212000 */* GDT 'GDTPRM' FIELD */ 00213000 */* */ 00214000 */* OUTPUT - ADDRESS OF THE PAGE NUMBER PARAMETER IN THE ICKDMS */ 00215000 */* INVOKER'S PARAMETER LIST (IF PROVIDED TO ICKDMS) */ 00216000 */* */ 00217000 */********************************************************************/ 00218000 * 0205 00219000 *SCANPARM: PROCEDURE; 0205 00220000 @EL00001 L @13,4(,@13) 0205 00221000 @EF00001 L @00,@SIZDATD 0205 00222000 LR @01,@11 0205 00223000 FREEMAIN R,LV=(0),A=(1) 00224000 @ER00001 LM @14,@12,12(@13) 0205 00225000 BR @14 0205 00226000 SCANPARM STM @14,@12,12(@13) 0205 00227000 * /************************************************************/ 00228000 * /* */ 00229000 * /* DECLARES FOR OBTAINING INVOKER'S PAGE NUMBER */ 00230000 * /* PARAMETER ADDRESS (SCANPARM) */ 00231000 * /* */ 00232000 * /************************************************************/ 00233000 * 0206 00234000 * /*ICKDMS INVOKER'S PARAMETER LIST */ 00235000 * DCL 1 PARMLIST BOUNDARY(WORD) BASED(GDTPRM), 0206 00236000 * 2 OPTPARM PTR(31), /*SYSTEM OPTIONS PARAMETER */ 00237000 * 3 OPTLAST BIT(1), /*OPTIONS PARM LIST END FLAG */ 00238000 * 2 DDPARM PTR(31), /*DDNAME LIST PARAMETER */ 00239000 * 3 DDLAST BIT(1), /*DDNAME PARM LIST END FLAG */ 00240000 * 2 PAGEPARM PTR(31), /*PAGE NUMBER PARAMETER */ 00241000 * 3 PAGELAST BIT(1), /*PAGENO PARM LIST END FLAG */ 00242000 * 2 IOPARM PTR(31), /*IOLIST PARAMETER */ 00243000 * 3 IOLAST BIT(1); /*IOLIST PARM LIST END FLAG */ 00244000 * 0206 00245000 * DCL PARMEND BIT(1) CONSTANT('1'B); 0207 00246000 * /*PARAMETER LIST END INDICATOR*/ 00247000 * OLDERID2 = NEWERID2; 0208 00248000 L @10,@PC00001 0208 00249000 L @15,GDTTR2(,@10) 0208 00250000 MVC @TS00001(95),NEWERID2(@15) 0208 00251000 MVC OLDERID2(95,@15),@TS00001 0208 00252000 * NEWID2 = 'EX3S'; 0209 00253000 * 0209 00254000 MVC NEWID2(4,@15),@CC00499 0209 00255000 * /************************************************************/ 00256000 * /* */ 00257000 * /* DETERMINE IF THE PARAMETER LIST POINTER IS IN THE GDT */ 00258000 * /* */ 00259000 * /************************************************************/ 00260000 * 0210 00261000 * IF GDTPRM ^= NULLPTR 0210 00262000 * THEN 0210 00263000 L @10,GDTPRM(,@10) 0210 00264000 LTR @10,@10 0210 00265000 BZ @RF00210 0210 00266000 * DO; 0211 00267000 * /******************************************************/ 00268000 * /* */ 00269000 * /* DETERMINE IF THE PAGE NUMBER PARAMETER IS PRESENT */ 00270000 * /* */ 00271000 * /******************************************************/ 00272000 * 0212 00273000 * IF OPTLAST ^= PARMEND & DDLAST ^= PARMEND 0212 00274000 * THEN 0212 00275000 TM OPTLAST(@10),B'10000000' 0212 00276000 BO @RF00212 0212 00277000 TM DDLAST(@10),B'10000000' 0212 00278000 BO @RF00212 0212 00279000 * /**************************************************/ 00280000 * /* */ 00281000 * /* OBTAIN ADDRESS OF THE PAGE NUMBER PARAMETER */ 00282000 * /* */ 00283000 * /**************************************************/ 00284000 * 0213 00285000 * PAGEPTR = PAGEPARM; 0213 00286000 * 0213 00287000 L @10,PAGEPARM(,@10) 0213 00288000 ST @10,PAGEPTR 0213 00289000 * END; 0214 00290000 * 0214 00291000 * RETURN; 0215 00292000 * 0215 00293000 @EL00002 DS 0H 0215 00294000 @EF00002 DS 0H 0215 00295000 @ER00002 LM @14,@12,12(@13) 0215 00296000 BR @14 0215 00297000 * END SCANPARM; 0216 00298000 * 0216 00299000 * 0216 00300000 B @EL00002 0216 00301000 * END ICKEX03 0217 00302000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00303000 */*%INCLUDE SYSLIB (DMSDF01 ) * 00304000 */*%INCLUDE SYSLIB (DMSDF00 ) * 00305000 */*@INCLUDE SYSLIB (DMSDF02 ) * 00306000 *; 0217 00307000 @DATA DS 0H 00308000 @CH00109 DC H'2' 00309000 @DATD DSECT 00310000 DS 0F 00311000 @SA00001 DS 18F 00312000 @PC00001 DS 2F 00313000 @AL00001 DS 3A 00314000 ICKEX03 CSECT 00315000 DS 0F 00316000 @CF00087 DC F'0' 00317000 @DATD DSECT 00318000 DS 0D 00319000 LISTSCAN DS A 00320000 IOCSPTR DS A 00321000 OPNPTR DS A 00322000 DDSTRU DS A 00323000 FSADDR DS A 00324000 DMPINDEX DS A 00325000 PAGEPTR DS A 00326000 LISTPTR DS A 00327000 SETRC DS H 00328000 TESTRC DS H 00329000 LISTLN DS FL1 00330000 @TS00001 DS CL95 00331000 PRNTLIST DS CL20 00332000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00333000 @ENDDATD EQU * 00334000 ICKEX03 CSECT 00335000 DS 0F 00336000 @SIZDATD DC AL1(0) 00337000 DC AL3(@ENDDATD-@DATD) 00338000 DS 0D 00339000 @CC00484 DC C'ICKDB01 ' 00340000 @CC00499 DC C'EX3S' 00341000 @CC00477 DC C'UV0' 00342000 MODID DC CL4'EX03' 00343000 FIXAREA DS CL50 00344000 ORG FIXAREA 00345000 @NM00018 DC 50X'00' 00346000 ORG FIXAREA+50 00347000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00348000 @01 EQU 01 00349000 @02 EQU 02 00350000 @03 EQU 03 00351000 @04 EQU 04 00352000 @05 EQU 05 00353000 @06 EQU 06 00354000 @07 EQU 07 00355000 @08 EQU 08 00356000 @09 EQU 09 00357000 @10 EQU 10 00358000 @11 EQU 11 00359000 @12 EQU 12 00360000 @13 EQU 13 00361000 @14 EQU 14 00362000 @15 EQU 15 00363000 REG0 EQU @00 00364000 REG1 EQU @01 00365000 REG10 EQU @10 00366000 REG11 EQU @11 00367000 REG12 EQU @12 00368000 REG13 EQU @13 00369000 REG14 EQU @14 00370000 REG15 EQU @15 00371000 REG2 EQU @02 00372000 REG3 EQU @03 00373000 REG4 EQU @04 00374000 REG5 EQU @05 00375000 REG6 EQU @06 00376000 REG7 EQU @07 00377000 REG8 EQU @08 00378000 REG9 EQU @09 00379000 RTNREG EQU @15 00380000 ICKSADE0 EQU 0 00381000 ICKSAEP0 EQU 0 00382000 ICKSAFS0 EQU 0 00383000 TRACE1 EQU 0 00384000 OLDERID1 EQU TRACE1 00385000 TRACE2 EQU 0 00386000 OLDERID2 EQU TRACE2 00387000 NEWID2 EQU TRACE2+95 00388000 NEWERID2 EQU 5 00389000 STAEPARM EQU 0 00390000 STAEPFX EQU STAEPARM 00391000 ICKIOTM0 EQU 0 00392000 IOCSTR EQU 0 00393000 IOCDSO EQU IOCSTR+13 00394000 IOCRFM EQU IOCSTR+14 00395000 IOCMAC EQU IOCSTR+15 00396000 IOCMSG EQU IOCSTR+16 00397000 OPNAGL EQU 0 00398000 OPNOPT EQU OPNAGL 00399000 OPNRFM EQU OPNAGL+1 00400000 OPNTYP EQU OPNAGL+2 00401000 OPNMOD EQU OPNAGL+3 00402000 UVOLLIST EQU 0 00403000 UVOLENT EQU UVOLLIST+2 00404000 ICKTPPR0 EQU 0 00405000 ICKTPRE0 EQU 0 00406000 DARGLIST EQU 0 00407000 DARGDBP EQU DARGLIST 00408000 DARGSTID EQU DARGLIST+8 00409000 DARGSMOD EQU DARGSTID 00410000 DARGSENT EQU DARGSTID+3 00411000 DARGILP EQU DARGLIST+12 00412000 DARGARY EQU DARGLIST+20 00413000 DARGINS EQU DARGARY 00414000 DARGINL EQU DARGARY+2 00415000 FMTLIST EQU 0 00416000 FMTFLGS EQU FMTLIST 00417000 FMTSPF EQU FMTLIST+2 00418000 FMTRFNO EQU FMTSPF 00419000 FMTILEN EQU FMTRFNO 00420000 FMTIOFF EQU FMTLIST+4 00421000 FMTTRBC EQU FMTIOFF 00422000 FMTSTO EQU FMTTRBC 00423000 FMTOCOL EQU FMTLIST+6 00424000 FMTCNVF EQU FMTLIST+10 00425000 DMPITM EQU 0 00426000 DMPARY EQU 0 00427000 PARMLIST EQU 0 00428000 OPTPARM EQU PARMLIST 00429000 OPTLAST EQU OPTPARM 00430000 DDPARM EQU PARMLIST+4 00431000 DDLAST EQU DDPARM 00432000 PAGEPARM EQU PARMLIST+8 00433000 IOPARM EQU PARMLIST+12 00434000 DMPTRM EQU 0 00435000 ICKDB010 EQU 0 00436000 ICKDVCL0 EQU 0 00437000 ICKDVIN0 EQU 0 00438000 ICKDVON0 EQU 0 00439000 ICKDVOP0 EQU 0 00440000 ICKIOCL0 EQU 0 00441000 ICKIOGT0 EQU 0 00442000 ICKIOIT0 EQU 0 00443000 ICKIOOP0 EQU 0 00444000 ICKIOPT0 EQU 0 00445000 ICKSACL0 EQU 0 00446000 ICKSAFP0 EQU 0 00447000 ICKSAGP0 EQU 0 00448000 ICKSAGS0 EQU 0 00449000 ICKSALD0 EQU 0 00450000 ICKSAPR0 EQU 0 00451000 ICKSASC0 EQU 0 00452000 ICKSASN0 EQU 0 00453000 ICKSAST0 EQU 0 00454000 ICKSATI0 EQU 0 00455000 ICKSAVC0 EQU 0 00456000 ICKSAWO0 EQU 0 00457000 ICKTPEA0 EQU 0 00458000 ICKTPES0 EQU 0 00459000 ICKTPRS0 EQU 0 00460000 LISTTEST EQU 0 00461000 NEWERID1 EQU 5 00462000 GDTTBL EQU 0 00463000 GDTPRM EQU GDTTBL+4 00464000 GDTTR1 EQU GDTTBL+8 00465000 GDTTR2 EQU GDTTBL+12 00466000 GDTDBH EQU GDTTBL+16 00467000 GDTDIN EQU GDTTBL+44 00468000 GDTDOP EQU GDTTBL+48 00469000 GDTDBG EQU GDTTBL+52 00470000 GDTDVO EQU GDTTBL+56 00471000 GDTPRT EQU GDTTBL+60 00472000 GDTESS EQU GDTTBL+64 00473000 GDTESA EQU GDTTBL+68 00474000 GDTRST EQU GDTTBL+72 00475000 GDTRES EQU GDTTBL+76 00476000 GDTCAL EQU GDTTBL+80 00477000 GDTGSP EQU GDTTBL+84 00478000 GDTFSP EQU GDTTBL+88 00479000 GDTGPL EQU GDTTBL+92 00480000 GDTFPL EQU GDTTBL+96 00481000 GDTLOD EQU GDTTBL+100 00482000 GDTDEL EQU GDTTBL+104 00483000 GDTPRL EQU GDTTBL+108 00484000 GDTEPL EQU GDTTBL+112 00485000 GDTTIM EQU GDTTBL+116 00486000 GDTIIO EQU GDTTBL+120 00487000 GDTTIO EQU GDTTBL+124 00488000 GDTOPN EQU GDTTBL+136 00489000 GDTCLS EQU GDTTBL+140 00490000 GDTGET EQU GDTTBL+144 00491000 GDTPUT EQU GDTTBL+148 00492000 GDTSNP EQU GDTTBL+160 00493000 GDTWTO EQU GDTTBL+168 00494000 GDTSCR EQU GDTTBL+172 00495000 GDTVCK EQU GDTTBL+176 00496000 GDTDVC EQU GDTTBL+180 00497000 GDTSTE EQU GDTTBL+188 00498000 MAXCOND EQU 0 00499000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00500000 GDTCVR EQU GDTTBL+184 00501000 GDTSPR EQU GDTTBL+164 00502000 GDTABH EQU GDTTBL+156 00503000 GDTABT EQU GDTTBL+152 00504000 GDTTOH EQU GDTTBL+132 00505000 GDTRIP EQU GDTTBL+128 00506000 GDTDVH EQU GDTTBL+40 00507000 GDTIOH EQU GDTTBL+36 00508000 GDTSAH EQU GDTTBL+32 00509000 GDTTPH EQU GDTTBL+28 00510000 GDTRIH EQU GDTTBL+24 00511000 GDTSTH EQU GDTTBL+20 00512000 GDTHDR EQU GDTTBL 00513000 IOLAST EQU IOPARM 00514000 PAGELAST EQU PAGEPARM 00515000 @NM00017 EQU DMPARY+15 00516000 DMPARYTP EQU DMPARY+14 00517000 DMPARYEX EQU DMPARY+12 00518000 DMPARYIC EQU DMPARY+10 00519000 DMPARYSZ EQU DMPARY+8 00520000 DMPARYNM EQU DMPARY 00521000 @NM00016 EQU DMPITM+15 00522000 DMPITMTP EQU DMPITM+14 00523000 DMPITMLN EQU DMPITM+12 00524000 DMPITMPT EQU DMPITM+8 00525000 DMPITMNM EQU DMPITM 00526000 @NM00015 EQU FMTCNVF+1 00527000 FMTBS EQU FMTCNVF+1 00528000 FMTSS EQU FMTCNVF+1 00529000 FMTAL EQU FMTCNVF+1 00530000 FMTZS EQU FMTCNVF+1 00531000 @NM00014 EQU FMTCNVF 00532000 FMTPU EQU FMTCNVF 00533000 FMTBD EQU FMTCNVF 00534000 FMTBHD EQU FMTCNVF 00535000 FMTBHA EQU FMTCNVF 00536000 FMTBH EQU FMTCNVF 00537000 FMTOLEN EQU FMTLIST+8 00538000 FMTRIO EQU FMTOCOL 00539000 FMTSPT EQU FMTSTO 00540000 FMTSTL EQU FMTILEN 00541000 @NM00013 EQU FMTFLGS+1 00542000 FMTHDF EQU FMTFLGS 00543000 FMTDFF EQU FMTFLGS 00544000 FMTSTF EQU FMTFLGS 00545000 FMTREPF EQU FMTFLGS 00546000 FMTBDF EQU FMTFLGS 00547000 FMTIDF EQU FMTFLGS 00548000 FMTSCF EQU FMTFLGS 00549000 FMTEOLF EQU FMTFLGS 00550000 DARGDTM EQU DARGARY+4 00551000 DARGPCT EQU DARGINL 00552000 DARGREP EQU DARGINS 00553000 @NM00012 EQU DARGLIST+19 00554000 DARGIND EQU DARGLIST+18 00555000 DARGRETL EQU DARGLIST+16 00556000 DARGCNT EQU DARGLIST+14 00557000 DARGRETP EQU DARGLIST+4 00558000 UVOLVOL EQU UVOLENT+4 00559000 UVOLDEV EQU UVOLENT 00560000 UVOLCNT EQU UVOLLIST 00561000 OPNRSVD EQU OPNAGL+28 00562000 OPNVOL EQU OPNAGL+24 00563000 OPNBLK EQU OPNAGL+20 00564000 OPNREC EQU OPNAGL+16 00565000 OPNDSN EQU OPNAGL+12 00566000 OPNDDN EQU OPNAGL+8 00567000 OPNIOC EQU OPNAGL+4 00568000 @NM00011 EQU OPNMOD 00569000 OPNMODRC EQU OPNMOD 00570000 OPNMODAC EQU OPNMOD 00571000 @NM00010 EQU OPNTYP 00572000 OPNTYPSO EQU OPNTYP 00573000 OPNTYPSI EQU OPNTYP 00574000 @NM00009 EQU OPNRFM 00575000 OPNRFMBK EQU OPNRFM 00576000 OPNRFMSF EQU OPNRFM 00577000 OPNRFMUN EQU OPNRFM 00578000 OPNRFMVR EQU OPNRFM 00579000 OPNRFMFX EQU OPNRFM 00580000 @NM00008 EQU OPNOPT 00581000 OPNOPTJM EQU OPNOPT 00582000 OPNOPTKS EQU OPNOPT 00583000 OPNOPTBK EQU OPNOPT 00584000 OPNOPTUP EQU OPNOPT 00585000 OPNOPTOT EQU OPNOPT 00586000 OPNOPTIN EQU OPNOPT 00587000 IOCEXT EQU IOCSTR+36 00588000 IOCRRN EQU IOCSTR+32 00589000 @NM00007 EQU IOCSTR+30 00590000 IOCPNM EQU IOCSTR+28 00591000 IOCCBP EQU IOCSTR+24 00592000 IOCDSN EQU IOCSTR+20 00593000 @NM00006 EQU IOCSTR+17 00594000 @NM00005 EQU IOCMSG 00595000 IOCMSGOP EQU IOCMSG 00596000 IOCMACPA EQU IOCMAC 00597000 @NM00004 EQU IOCMAC 00598000 IOCMACBK EQU IOCMAC 00599000 IOCMACUP EQU IOCMAC 00600000 IOCMACOT EQU IOCMAC 00601000 IOCMACIN EQU IOCMAC 00602000 @NM00003 EQU IOCRFM 00603000 IOCRFMBK EQU IOCRFM 00604000 IOCRFMSF EQU IOCRFM 00605000 IOCRFMUN EQU IOCRFM 00606000 IOCRFMVR EQU IOCRFM 00607000 IOCRFMFX EQU IOCRFM 00608000 @NM00002 EQU IOCDSO 00609000 IOCDSOPS EQU IOCDSO 00610000 IOCKYL EQU IOCSTR+12 00611000 IOCTRN EQU IOCSTR+8 00612000 IOCDLN EQU IOCSTR+4 00613000 IOCDAD EQU IOCSTR 00614000 STAEWORK EQU STAEPARM+32 00615000 STARPTR EQU STAEPFX+28 00616000 STASPTR EQU STAEPFX+24 00617000 STALEN EQU STAEPFX+20 00618000 STAID EQU STAEPFX+16 00619000 STAEPA EQU STAEPFX+12 00620000 STAGDT EQU STAEPFX+8 00621000 STABPTR EQU STAEPFX+4 00622000 STAFPTR EQU STAEPFX 00623000 NEWID1 EQU TRACE1+95 00624000 CALLID EQU OLDERID1+90 00625000 @NM00001 EQU OLDERID1 00626000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00627000 @RF00210 EQU @EL00002 00628000 @RF00212 EQU @EL00002 00629000 @PB00002 EQU @EL00001 00630000 @ENDDATA EQU * 00631000 END ICKEX03,(C'PLS1712',0701,78192) 00632000