TITLE '********** ICKRT01: RECLAIM ALTERNATE TRACK *********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 ICKRT01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'ICKRT01 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 XC @ZTEMPS(@ZLEN),@ZTEMPS 00032000 MVC @PC00001(24),0(@01) 0002 00033000 * 0176 00034000 EJECT 00035000 * 0177 00036000 */***** B E G I N E X E C U T I O N *****************************/ 00037000 * 0177 00038000 * IF GDTDBG = NULLPTR 0177 00039000 * THEN; 0177 00040000 L @10,@PC00001 0177 00041000 L @10,GDTDBG(,@10) 0177 00042000 LTR @10,@10 0177 00043000 BZ @RT00177 0177 00044000 * ELSE 0179 00045000 * CALL ICKDB010 (GDTTBL 0179 00046000 * ,'RT00'); 0179 00047000 * 0179 00048000 * 0179 00049000 L @10,@PC00001 0179 00050000 ST @10,@AL00001 0179 00051000 LA @15,@CC00504 0179 00052000 ST @15,@AL00001+4 0179 00053000 MVI @AL00001+4,X'80' 0179 00054000 L @15,GDTDBG(,@10) 0179 00055000 LA @01,@AL00001 0179 00056000 BALR @14,@15 0179 00057000 */* OBTAIN NUMBER OF TRACKS PER CYLINDER (UDEVINFO) */ 00058000 * CALL ICKDVIN0 (GDTTBL 0180 00059000 * ,VOLIB 0180 00060000 * ,DEVTKCYL 0180 00061000 * ,POOLID 0180 00062000 * ,INFOPTR 0180 00063000 * ,INFOLEN 0180 00064000 * ,RETCODE); 0180 00065000 @RT00177 L @10,@PC00001 0180 00066000 ST @10,@AL00001 0180 00067000 L @15,@PC00001+4 0180 00068000 ST @15,@AL00001+4 0180 00069000 LA @15,@CF00337 0180 00070000 ST @15,@AL00001+8 0180 00071000 LA @15,POOLID 0180 00072000 ST @15,@AL00001+12 0180 00073000 LA @15,INFOPTR 0180 00074000 ST @15,@AL00001+16 0180 00075000 LA @15,INFOLEN 0180 00076000 ST @15,@AL00001+20 0180 00077000 LA @15,RETCODE 0180 00078000 ST @15,@AL00001+24 0180 00079000 L @15,GDTDIN(,@10) 0180 00080000 LA @01,@AL00001 0180 00081000 BALR @14,@15 0180 00082000 */* SET CONDITION CODE INITIALLY TO INDICATE SUCCESSFUL COMPLETION */ 00083000 * CONDCODE = SUCCEEDS; 0181 00084000 L @10,@PC00001+20 0181 00085000 SLR @15,@15 0181 00086000 ST @15,CONDCODE(,@10) 0181 00087000 */* WRITE ALTERNATE HOME-ADDRESS WITH DEFECT-FLAG OFF (UDEVOP) */ 00088000 * CALL ICKDVOP0 (GDTTBL 0182 00089000 * ,VOLIB 0182 00090000 * ,ACTWAHA 0182 00091000 * ,ALTCCHH 0182 00092000 * ,RECNUM 0182 00093000 * ,POOLID 0182 00094000 * ,DUMMYPTR 0182 00095000 * ,DUMMYLEN 0182 00096000 * ,RETCODE); 0182 00097000 L @10,@PC00001 0182 00098000 ST @10,@AL00001 0182 00099000 L @15,@PC00001+4 0182 00100000 ST @15,@AL00001+4 0182 00101000 LA @15,@CF00121 0182 00102000 ST @15,@AL00001+8 0182 00103000 L @15,@PC00001+8 0182 00104000 ST @15,@AL00001+12 0182 00105000 LA @15,RECNUM 0182 00106000 ST @15,@AL00001+16 0182 00107000 LA @15,POOLID 0182 00108000 ST @15,@AL00001+20 0182 00109000 LA @15,DUMMYPTR 0182 00110000 ST @15,@AL00001+24 0182 00111000 LA @15,DUMMYLEN 0182 00112000 ST @15,@AL00001+28 0182 00113000 LA @15,RETCODE 0182 00114000 ST @15,@AL00001+32 0182 00115000 L @15,GDTDOP(,@10) 0182 00116000 LA @01,@AL00001 0182 00117000 BALR @14,@15 0182 00118000 */* IF WRITE OPERATION FAILS */ 00119000 * IF RETCODE = CPFAILS 0183 00120000 */* THEN INDICATE RECLAMATION FAILS AND TRACK IS UNRECOVERABLE */ 00121000 * THEN DO; CONDCODE = FAILS; END; 0183 00122000 CLC RETCODE(4),@CF00046 0183 00123000 BNE @RF00183 0183 00124000 L @10,@PC00001+20 0185 00125000 MVC CONDCODE(4,@10),@CF00118 0185 00126000 */* ELSE */ 00127000 * ELSE DO; 0187 00128000 * 0187 00129000 B @RC00183 0187 00130000 @RF00183 DS 0H 0188 00131000 */* IF THE DEFECT-FLAG IS SET DUE TO RECOVERY */ 00132000 * IF RETCODE = DFLAGONA 0188 00133000 */* THEN INDICATE RECLAMATION FAILS BUT TRACK RECOVERED */ 00134000 * THEN DO; 0188 00135000 * 0188 00136000 CLC RETCODE(4),@CF00121 0188 00137000 BNE @RF00188 0188 00138000 * CONDCODE = FAILSRCR; 0190 00139000 L @10,@PC00001+20 0190 00140000 MVC CONDCODE(4,@10),@CF00167 0190 00141000 * END; 0191 00142000 */* END-ELSE */ 00143000 * END; 0192 00144000 @RF00188 DS 0H 0193 00145000 */* IF NO ERROR DETECTED (CONDCODE = 0) */ 00146000 * IF CONDCODE = SUCCEEDS 0193 00147000 */* THEN */ 00148000 * THEN DO; 0193 00149000 * 0193 00150000 @RC00183 L @10,@PC00001+20 0193 00151000 L @10,CONDCODE(,@10) 0193 00152000 LTR @10,@10 0193 00153000 BNZ @RF00193 0193 00154000 */* WRITE STANDARD-LENGTH RECORD-ZERO TO RESET THE DEFECT-FLAG */ 00155000 */* (UDEVOP) */ 00156000 * CALL ICKDVOP0 (GDTTBL 0195 00157000 * ,VOLIB 0195 00158000 * ,ACTWRZS 0195 00159000 * ,ALTCCHH 0195 00160000 * ,RECNUM 0195 00161000 * ,POOLID 0195 00162000 * ,ADDR (ALTCCHH) 0195 00163000 * ,LENGTH (ALTCCHH) 0195 00164000 * ,RETCODE); 0195 00165000 L @10,@PC00001 0195 00166000 ST @10,@AL00001 0195 00167000 L @15,@PC00001+4 0195 00168000 ST @15,@AL00001+4 0195 00169000 LA @15,@CF00163 0195 00170000 ST @15,@AL00001+8 0195 00171000 L @15,@PC00001+8 0195 00172000 ST @15,@AL00001+12 0195 00173000 LA @14,RECNUM 0195 00174000 ST @14,@AL00001+16 0195 00175000 LA @14,POOLID 0195 00176000 ST @14,@AL00001+20 0195 00177000 ST @15,@AFTEMPS 0195 00178000 LA @15,@AFTEMPS 0195 00179000 ST @15,@AL00001+24 0195 00180000 LA @15,@CF00046 0195 00181000 ST @15,@AL00001+28 0195 00182000 LA @15,RETCODE 0195 00183000 ST @15,@AL00001+32 0195 00184000 L @15,GDTDOP(,@10) 0195 00185000 LA @01,@AL00001 0195 00186000 BALR @14,@15 0195 00187000 */* IF WRITE OPERATION IS SUCCESSFUL */ 00188000 * IF RETCODE = SUCCESS 0196 00189000 */* THEN */ 00190000 * THEN DO; 0196 00191000 * 0196 00192000 L @10,RETCODE 0196 00193000 LTR @10,@10 0196 00194000 BNZ @RF00196 0196 00195000 */* INCREMENT COUNT OF AVAILABLE ALTERNATE TRACKS */ 00196000 * ALTCOUNT = ALTCOUNT + 1; 0198 00197000 L @10,@PC00001+12 0198 00198000 LA @15,1 0198 00199000 AL @15,ALTCOUNT(,@10) 0198 00200000 ST @15,ALTCOUNT(,@10) 0198 00201000 */* IF RECLAIMED ALTERNATE TRACK IS BEFORE THE NEXT */ 00202000 */* AVAILABLE ALTERNATE TRACK */ 00203000 * IF ALTCCHH < ALTPTR 0199 00204000 */* THEN */ 00205000 * THEN DO; 0199 00206000 * 0199 00207000 L @10,@PC00001+8 0199 00208000 L @10,ALTCCHH(,@10) 0199 00209000 L @15,@PC00001+16 0199 00210000 CL @10,ALTPTR(,@15) 0199 00211000 BNL @RF00199 0199 00212000 */* MAKE RECLAIMED ALTERATE TRACK THE NEXT AVAILABLE */ 00213000 */* ALTERNATE TRACK */ 00214000 * ALTPTR = ALTCCHH; 0201 00215000 ST @10,ALTPTR(,@15) 0201 00216000 */* END-THEN */ 00217000 * END; 0202 00218000 */* END-THEN (WRITE OPERATION IS SUCCESSFUL) */ 00219000 * END; 0203 00220000 */* ELSE */ 00221000 * ELSE DO; 0204 00222000 * 0204 00223000 B @RC00196 0204 00224000 @RF00196 DS 0H 0205 00225000 */* IF WRITE OPERATION FAILS */ 00226000 * IF RETCODE = CPFAILS 0205 00227000 */* THEN INDICATE RECLAMATION FAILS AND TRACK IS */ 00228000 */* UNRECOVERABLE */ 00229000 * THEN DO; 0205 00230000 * 0205 00231000 CLC RETCODE(4),@CF00046 0205 00232000 BNE @RF00205 0205 00233000 * CONDCODE = FAILS; 0207 00234000 L @10,@PC00001+20 0207 00235000 MVC CONDCODE(4,@10),@CF00118 0207 00236000 * END; 0208 00237000 */* IF THE DEFECT-FLAG IS SET DUE TO RECOVERY */ 00238000 * IF RETCODE = DFLAGONA 0209 00239000 */* THEN INDICATE RECLAMATION FAILS BUT TRACK RECOVERED */ 00240000 * THEN DO; 0209 00241000 * 0209 00242000 @RF00205 CLC RETCODE(4),@CF00121 0209 00243000 BNE @RF00209 0209 00244000 * CONDCODE = FAILSRCR; 0211 00245000 L @10,@PC00001+20 0211 00246000 MVC CONDCODE(4,@10),@CF00167 0211 00247000 * END; 0212 00248000 */* END-ELSE (WRITE OPERATION UNSUCCESSFUL) */ 00249000 * END; 0213 00250000 @RF00209 DS 0H 0214 00251000 */* END-THEN (CONDCODE = 0) */ 00252000 * END; 0214 00253000 @RC00196 DS 0H 0215 00254000 */* END-PROCEDURE RECLAIM_ALTERNATE_TRACK */ 00255000 * IF GDTDBG = NULLPTR 0215 00256000 * THEN; 0215 00257000 @RF00193 L @10,@PC00001 0215 00258000 L @10,GDTDBG(,@10) 0215 00259000 LTR @10,@10 0215 00260000 BZ @RT00215 0215 00261000 * ELSE 0217 00262000 * CALL ICKDB010 (GDTTBL 0217 00263000 * ,'RT99'); 0217 00264000 L @10,@PC00001 0217 00265000 ST @10,@AL00001 0217 00266000 LA @15,@CC00507 0217 00267000 ST @15,@AL00001+4 0217 00268000 MVI @AL00001+4,X'80' 0217 00269000 L @15,GDTDBG(,@10) 0217 00270000 LA @01,@AL00001 0217 00271000 BALR @14,@15 0217 00272000 * CALL ICKSAFP0 (GDTTBL 0218 00273000 * ,POOLID); 0218 00274000 @RT00215 L @10,@PC00001 0218 00275000 ST @10,@AL00001 0218 00276000 LA @15,POOLID 0218 00277000 ST @15,@AL00001+4 0218 00278000 MVI @AL00001+4,X'80' 0218 00279000 L @15,GDTFPL(,@10) 0218 00280000 LA @01,@AL00001 0218 00281000 BALR @14,@15 0218 00282000 * CALL ICKSAEP0(GDTTBL,MODID); 0219 00283000 * 0219 00284000 * 0219 00285000 L @10,@PC00001 0219 00286000 ST @10,@AL00001 0219 00287000 LA @15,MODID 0219 00288000 ST @15,@AL00001+4 0219 00289000 MVI @AL00001+4,X'80' 0219 00290000 L @15,GDTEPL(,@10) 0219 00291000 LA @01,@AL00001 0219 00292000 BALR @14,@15 0219 00293000 * END ICKRT01 0220 00294000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00295000 */*%INCLUDE SYSLIB (DMSDF01 ) * 00296000 */*%INCLUDE SYSLIB (DMSDF00 ) * 00297000 */*@INCLUDE SYSLIB (DMSDF02 ) * 00298000 *; 0220 00299000 @DATA DS 0H 00300000 @DATD DSECT 00301000 DS 0F 00302000 @SA00001 DS 18F 00303000 @PC00001 DS 6F 00304000 @AL00001 DS 9A 00305000 @AFTEMPS DS 1F 00306000 @ZTEMPS DS C 00307000 @ZTEMPND EQU * 00308000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00309000 ICKRT01 CSECT 00310000 DS 0F 00311000 @CF00167 DC F'1' 00312000 @CF00118 DC F'2' 00313000 @CF00046 DC F'4' 00314000 @CF00121 DC F'6' 00315000 @CF00163 DC F'8' 00316000 @CF00337 DC F'204' 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 RECNUM DS F 00326000 DUMMYPTR DS A 00327000 DUMMYLEN DS F 00328000 INFOPTR DS A 00329000 INFOLEN DS F 00330000 RETCODE DS F 00331000 LISTPTR DS A 00332000 SETRC DS H 00333000 TESTRC DS H 00334000 LISTLN DS FL1 00335000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00336000 @ENDDATD EQU * 00337000 ICKRT01 CSECT 00338000 DS 0F 00339000 @SIZDATD DC AL1(0) 00340000 DC AL3(@ENDDATD-@DATD) 00341000 DS 0D 00342000 @CC00504 DC C'RT00' 00343000 @CC00507 DC C'RT99' 00344000 MODID DC CL4'RT01' 00345000 POOLID DC CL4'RP01' 00346000 PTCHRT01 DS CL256 00347000 ORG PTCHRT01 00348000 @NM00018 DC 256X'00' 00349000 ORG PTCHRT01+256 00350000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00351000 @01 EQU 01 00352000 @02 EQU 02 00353000 @03 EQU 03 00354000 @04 EQU 04 00355000 @05 EQU 05 00356000 @06 EQU 06 00357000 @07 EQU 07 00358000 @08 EQU 08 00359000 @09 EQU 09 00360000 @10 EQU 10 00361000 @11 EQU 11 00362000 @12 EQU 12 00363000 @13 EQU 13 00364000 @14 EQU 14 00365000 @15 EQU 15 00366000 REG12 EQU @12 00367000 REG0 EQU @00 00368000 REG1 EQU @01 00369000 REG10 EQU @10 00370000 REG11 EQU @11 00371000 REG13 EQU @13 00372000 REG14 EQU @14 00373000 REG15 EQU @15 00374000 REG2 EQU @02 00375000 REG3 EQU @03 00376000 REG4 EQU @04 00377000 REG5 EQU @05 00378000 REG6 EQU @06 00379000 REG7 EQU @07 00380000 REG8 EQU @08 00381000 REG9 EQU @09 00382000 RTNREG EQU @15 00383000 ICKSAEP0 EQU 0 00384000 ICKSAFP0 EQU 0 00385000 TRACE1 EQU 0 00386000 OLDERID1 EQU TRACE1 00387000 TRACE2 EQU 0 00388000 STAEPARM EQU 0 00389000 STAEPFX EQU STAEPARM 00390000 IOCSTR EQU 0 00391000 IOCDSO EQU IOCSTR+13 00392000 IOCRFM EQU IOCSTR+14 00393000 IOCMAC EQU IOCSTR+15 00394000 IOCMSG EQU IOCSTR+16 00395000 OPNAGL EQU 0 00396000 OPNOPT EQU OPNAGL 00397000 OPNRFM EQU OPNAGL+1 00398000 OPNTYP EQU OPNAGL+2 00399000 OPNMOD EQU OPNAGL+3 00400000 UVOLLIST EQU 0 00401000 UVOLENT EQU UVOLLIST+2 00402000 ICKDVIN0 EQU 0 00403000 ICKDVOP0 EQU 0 00404000 DARGLIST EQU 0 00405000 DARGSTID EQU DARGLIST+8 00406000 DARGARY EQU DARGLIST+20 00407000 DARGINS EQU DARGARY 00408000 DARGINL EQU DARGARY+2 00409000 FMTLIST EQU 0 00410000 FMTFLGS EQU FMTLIST 00411000 FMTSPF EQU FMTLIST+2 00412000 FMTRFNO EQU FMTSPF 00413000 FMTILEN EQU FMTRFNO 00414000 FMTIOFF EQU FMTLIST+4 00415000 FMTTRBC EQU FMTIOFF 00416000 FMTSTO EQU FMTTRBC 00417000 FMTOCOL EQU FMTLIST+6 00418000 FMTCNVF EQU FMTLIST+10 00419000 ICKDB010 EQU 0 00420000 DMPITM EQU 0 00421000 DMPARY EQU 0 00422000 DMPTRM EQU 0 00423000 ICKDVCL0 EQU 0 00424000 ICKDVON0 EQU 0 00425000 ICKIOCL0 EQU 0 00426000 ICKIOGT0 EQU 0 00427000 ICKIOIT0 EQU 0 00428000 ICKIOOP0 EQU 0 00429000 ICKIOPT0 EQU 0 00430000 ICKIOTM0 EQU 0 00431000 ICKSACL0 EQU 0 00432000 ICKSADE0 EQU 0 00433000 ICKSAFS0 EQU 0 00434000 ICKSAGP0 EQU 0 00435000 ICKSAGS0 EQU 0 00436000 ICKSALD0 EQU 0 00437000 ICKSAPR0 EQU 0 00438000 ICKSASC0 EQU 0 00439000 ICKSASN0 EQU 0 00440000 ICKSAST0 EQU 0 00441000 ICKSATI0 EQU 0 00442000 ICKSAVC0 EQU 0 00443000 ICKSAWO0 EQU 0 00444000 ICKTPEA0 EQU 0 00445000 ICKTPES0 EQU 0 00446000 ICKTPPR0 EQU 0 00447000 ICKTPRE0 EQU 0 00448000 ICKTPRS0 EQU 0 00449000 LISTTEST EQU 0 00450000 NEWERID1 EQU 5 00451000 NEWERID2 EQU 5 00452000 TRKSPCYL EQU 0 00453000 GDTTBL EQU 0 00454000 GDTTR1 EQU GDTTBL+8 00455000 GDTTR2 EQU GDTTBL+12 00456000 GDTDIN EQU GDTTBL+44 00457000 GDTDOP EQU GDTTBL+48 00458000 GDTDBG EQU GDTTBL+52 00459000 GDTDVO EQU GDTTBL+56 00460000 GDTPRT EQU GDTTBL+60 00461000 GDTESS EQU GDTTBL+64 00462000 GDTESA EQU GDTTBL+68 00463000 GDTRST EQU GDTTBL+72 00464000 GDTRES EQU GDTTBL+76 00465000 GDTCAL EQU GDTTBL+80 00466000 GDTGSP EQU GDTTBL+84 00467000 GDTFSP EQU GDTTBL+88 00468000 GDTGPL EQU GDTTBL+92 00469000 GDTFPL EQU GDTTBL+96 00470000 GDTLOD EQU GDTTBL+100 00471000 GDTDEL EQU GDTTBL+104 00472000 GDTPRL EQU GDTTBL+108 00473000 GDTEPL EQU GDTTBL+112 00474000 GDTTIM EQU GDTTBL+116 00475000 GDTIIO EQU GDTTBL+120 00476000 GDTTIO EQU GDTTBL+124 00477000 GDTOPN EQU GDTTBL+136 00478000 GDTCLS EQU GDTTBL+140 00479000 GDTGET EQU GDTTBL+144 00480000 GDTPUT EQU GDTTBL+148 00481000 GDTSNP EQU GDTTBL+160 00482000 GDTWTO EQU GDTTBL+168 00483000 GDTSCR EQU GDTTBL+172 00484000 GDTVCK EQU GDTTBL+176 00485000 GDTDVC EQU GDTTBL+180 00486000 GDTSTE EQU GDTTBL+188 00487000 VOLIB EQU 0 00488000 ALTCCHH EQU 0 00489000 ALTCOUNT EQU 0 00490000 ALTPTR EQU 0 00491000 CONDCODE EQU 0 00492000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00493000 ALTPTRT EQU ALTPTR+2 00494000 ALTPTRC EQU ALTPTR 00495000 ALTCCHHT EQU ALTCCHH+2 00496000 ALTCCHHC EQU ALTCCHH 00497000 GDTCVR EQU GDTTBL+184 00498000 GDTSPR EQU GDTTBL+164 00499000 GDTABH EQU GDTTBL+156 00500000 GDTABT EQU GDTTBL+152 00501000 GDTTOH EQU GDTTBL+132 00502000 GDTRIP EQU GDTTBL+128 00503000 GDTDVH EQU GDTTBL+40 00504000 GDTIOH EQU GDTTBL+36 00505000 GDTSAH EQU GDTTBL+32 00506000 GDTTPH EQU GDTTBL+28 00507000 GDTRIH EQU GDTTBL+24 00508000 GDTSTH EQU GDTTBL+20 00509000 GDTDBH EQU GDTTBL+16 00510000 GDTPRM EQU GDTTBL+4 00511000 GDTHDR EQU GDTTBL 00512000 @NM00017 EQU DMPARY+15 00513000 DMPARYTP EQU DMPARY+14 00514000 DMPARYEX EQU DMPARY+12 00515000 DMPARYIC EQU DMPARY+10 00516000 DMPARYSZ EQU DMPARY+8 00517000 DMPARYNM EQU DMPARY 00518000 @NM00016 EQU DMPITM+15 00519000 DMPITMTP EQU DMPITM+14 00520000 DMPITMLN EQU DMPITM+12 00521000 DMPITMPT EQU DMPITM+8 00522000 DMPITMNM EQU DMPITM 00523000 @NM00015 EQU FMTCNVF+1 00524000 FMTBS EQU FMTCNVF+1 00525000 FMTSS EQU FMTCNVF+1 00526000 FMTAL EQU FMTCNVF+1 00527000 FMTZS EQU FMTCNVF+1 00528000 @NM00014 EQU FMTCNVF 00529000 FMTPU EQU FMTCNVF 00530000 FMTBD EQU FMTCNVF 00531000 FMTBHD EQU FMTCNVF 00532000 FMTBHA EQU FMTCNVF 00533000 FMTBH EQU FMTCNVF 00534000 FMTOLEN EQU FMTLIST+8 00535000 FMTRIO EQU FMTOCOL 00536000 FMTSPT EQU FMTSTO 00537000 FMTSTL EQU FMTILEN 00538000 @NM00013 EQU FMTFLGS+1 00539000 FMTHDF EQU FMTFLGS 00540000 FMTDFF EQU FMTFLGS 00541000 FMTSTF EQU FMTFLGS 00542000 FMTREPF EQU FMTFLGS 00543000 FMTBDF EQU FMTFLGS 00544000 FMTIDF EQU FMTFLGS 00545000 FMTSCF EQU FMTFLGS 00546000 FMTEOLF EQU FMTFLGS 00547000 DARGDTM EQU DARGARY+4 00548000 DARGPCT EQU DARGINL 00549000 DARGREP EQU DARGINS 00550000 @NM00012 EQU DARGLIST+19 00551000 DARGIND EQU DARGLIST+18 00552000 DARGRETL EQU DARGLIST+16 00553000 DARGCNT EQU DARGLIST+14 00554000 DARGILP EQU DARGLIST+12 00555000 DARGSENT EQU DARGSTID+3 00556000 DARGSMOD EQU DARGSTID 00557000 DARGRETP EQU DARGLIST+4 00558000 DARGDBP EQU DARGLIST 00559000 UVOLVOL EQU UVOLENT+4 00560000 UVOLDEV EQU UVOLENT 00561000 UVOLCNT EQU UVOLLIST 00562000 OPNRSVD EQU OPNAGL+28 00563000 OPNVOL EQU OPNAGL+24 00564000 OPNBLK EQU OPNAGL+20 00565000 OPNREC EQU OPNAGL+16 00566000 OPNDSN EQU OPNAGL+12 00567000 OPNDDN EQU OPNAGL+8 00568000 OPNIOC EQU OPNAGL+4 00569000 @NM00011 EQU OPNMOD 00570000 OPNMODRC EQU OPNMOD 00571000 OPNMODAC EQU OPNMOD 00572000 @NM00010 EQU OPNTYP 00573000 OPNTYPSO EQU OPNTYP 00574000 OPNTYPSI EQU OPNTYP 00575000 @NM00009 EQU OPNRFM 00576000 OPNRFMBK EQU OPNRFM 00577000 OPNRFMSF EQU OPNRFM 00578000 OPNRFMUN EQU OPNRFM 00579000 OPNRFMVR EQU OPNRFM 00580000 OPNRFMFX EQU OPNRFM 00581000 @NM00008 EQU OPNOPT 00582000 OPNOPTJM EQU OPNOPT 00583000 OPNOPTKS EQU OPNOPT 00584000 OPNOPTBK EQU OPNOPT 00585000 OPNOPTUP EQU OPNOPT 00586000 OPNOPTOT EQU OPNOPT 00587000 OPNOPTIN EQU OPNOPT 00588000 IOCEXT EQU IOCSTR+36 00589000 IOCRRN EQU IOCSTR+32 00590000 @NM00007 EQU IOCSTR+30 00591000 IOCPNM EQU IOCSTR+28 00592000 IOCCBP EQU IOCSTR+24 00593000 IOCDSN EQU IOCSTR+20 00594000 @NM00006 EQU IOCSTR+17 00595000 @NM00005 EQU IOCMSG 00596000 IOCMSGOP EQU IOCMSG 00597000 IOCMACPA EQU IOCMAC 00598000 @NM00004 EQU IOCMAC 00599000 IOCMACBK EQU IOCMAC 00600000 IOCMACUP EQU IOCMAC 00601000 IOCMACOT EQU IOCMAC 00602000 IOCMACIN EQU IOCMAC 00603000 @NM00003 EQU IOCRFM 00604000 IOCRFMBK EQU IOCRFM 00605000 IOCRFMSF EQU IOCRFM 00606000 IOCRFMUN EQU IOCRFM 00607000 IOCRFMVR EQU IOCRFM 00608000 IOCRFMFX EQU IOCRFM 00609000 @NM00002 EQU IOCDSO 00610000 IOCDSOPS EQU IOCDSO 00611000 IOCKYL EQU IOCSTR+12 00612000 IOCTRN EQU IOCSTR+8 00613000 IOCDLN EQU IOCSTR+4 00614000 IOCDAD EQU IOCSTR 00615000 STAEWORK EQU STAEPARM+32 00616000 STARPTR EQU STAEPFX+28 00617000 STASPTR EQU STAEPFX+24 00618000 STALEN EQU STAEPFX+20 00619000 STAID EQU STAEPFX+16 00620000 STAEPA EQU STAEPFX+12 00621000 STAGDT EQU STAEPFX+8 00622000 STABPTR EQU STAEPFX+4 00623000 STAFPTR EQU STAEPFX 00624000 NEWID2 EQU TRACE2+95 00625000 OLDERID2 EQU TRACE2 00626000 NEWID1 EQU TRACE1+95 00627000 CALLID EQU OLDERID1+90 00628000 @NM00001 EQU OLDERID1 00629000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00630000 @RF00199 EQU @RC00196 00631000 @ENDDATA EQU * 00632000 END ICKRT01,(C'PLS1735',0701,78192) 00633000