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