TITLE 'IEDQNT, 3705 CHECKPOINT - LOAD 1 *00001000 ' 00002000 IEDQNT CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 * RBASE=REG15; /* SET BASE REGISTER */ 00005000 LR RBASE,REG15 02S0303 00006000 * GEN REFS(RBASE) NOSETS; 02S0304 00007000 * /* 00008000 USING IEDQNT,RBASE ESTABLISH ADDRESSABILITY 00009000 IEDQNT IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00010000 * RCAVT=AVTCKAVT; /* GET ADDRESS OF THE CKPT AVT */ 00011000 L RCAVT,AVTCKAVT-1(,RAVT) 02S0305 00012000 LA RCAVT,0(,RCAVT) 02S0305 00013000 * RCKPT=CAVTNWA; /* GET ADDR OF CKPT WORK AREA */ 00014000 L RCKPT,CAVTNWA(,RCAVT) 02S0306 00015000 * CKPSAVE2(1)=REG12; /* SAVE BASE ADDRESS OF IEDQNF */ 00016000 ST REG12,CKPSAVE2(,RCKPT) 02S0307 00017000 * CKPSAVE2(2)=REG14; /* SAVE RETURN ADDRESS */ 00018000 ST REG14,CKPSAVE2+4(,RCKPT) 02S0308 00019000 * ROPCE=OPCCKPTF; /* GET OPCE ADDRESS - OPCE TO BE 00020000 * CKPT'D IS THE FIRST ONE ON THE 00021000 * OP CONTROL QUEUE FOR 02S0309 00022000 * CHECKPOINT */ 00023000 L @10,AVTOCGET(,RAVT) 02S0309 00024000 L ROPCE,OPCCKPTF(,@10) 02S0309 00025000 * RSAVE=ADDR(CKPSAVE1(1)); /* SET SAVE AREA ADDRESS */ 00026000 LR RSAVE,RCKPT 02S0310 00027000 * RFY 02S0311 00028000 * (REG12, 02S0311 00029000 * REG14) UNRSTD; 02S0311 00030000 * 02S0312 00031000 * /*****************************************************************/ 00032000 * /* */ 00033000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00034000 * /* PERFORM THE FUNCTION OF THE MODULE. FIRST THE COMMAND IS */ 00035000 * /* IDENTIFIED AND THE 'SELECT' VALUES ARE SET UP. CONTROL */ 00036000 * /* COMMANDS (SUCH AS IPL) ARE THOSE WHICH ARE DIRECTED TO THE */ 00037000 * /* 3705 ITSELF. RESOURCE COMMANDS (SUCH AS MODIFY BHSET) ARE */ 00038000 * /* THOSE WHICH ARE DIRECTED TO A RESOURCE OF THE 3705. SPECIAL */ 00039000 * /* PROCESSING IS DONE FOR EACH OF THE TWO TYPES OF COMMANDS. IF */ 00040000 * /* I/O IS REQUESTED, THEN IEDQNW IS CALLED TO ISSUE THE EXCP TO */ 00041000 * /* GET THE I/O STARTED. */ 00042000 * /* */ 00043000 * /*****************************************************************/ 00044000 * 02S0312 00045000 * 03S0312 00046000 * /*****************************************************************/ 00047000 * /* */ 00048000 * /* PROCESS.COMMAND: THIS SEGMENT DETERMINES THE COMMAND THAT IS */ 00049000 * /* TO BE CHECKPOINTED BY LOOKING FOR ICHNG, TCHNG, OR A SPECIFIC */ 00050000 * /* MODIFY COMMAND. WHEN THE COMMAND IS FOUND, THE 'SELECT' VALUES*/ 00051000 * /* FOR THE COMMAND ARE INSERTED INTO CKPNSELT. THE FIRST BYTE OF */ 00052000 * /* THIS FIELD (CKPCUSEL) IS USED IN SUBSEQUENT DECISIONS TO */ 00053000 * /* SELECT THE PATH THAT IS TO BE TAKEN FOR THE COMMAND. AFTER */ 00054000 * /* EACH 'SELECT' VALUE IS USED, THE SELECT FIELD IF SHIFTED SO */ 00055000 * /* THAT A NEW 'SELECT' VALUE APPEARS IN CKPCUSEL. */ 00056000 * /* */ 00057000 * /*****************************************************************/ 00058000 * 03S0312 00059000 * DO; 03S0312 00060000 * RFY 03S0313 00061000 * RTAB RSTD; 03S0313 00062000 * IF OCOPTCDE=OCICHNG /* TEST FOR ICHNG COMMAND */ 00063000 * THEN /* THIS IS AN ICHNG COMMAND */ 00064000 CLI OCOPTCDE(ROPCE),X'49' 03S0314 00065000 BNE @RF00314 03S0314 00066000 * CKPSLVAL=ICHNGSEL; /* GET ICHNG SELECT VALUES */ 00067000 MVC CKPSLVAL(3,RCKPT),ICHNGSEL 03S0315 00068000 * ELSE /* NOT AN ICHNG */ 00069000 * IF OCOPTCDE=OCTCHNG /* TEST FOR TCHNG COMMAND */ 00070000 * THEN /* THIS IS A TCHNG COMMSND */ 00071000 B @RC00314 03S0316 00072000 @RF00314 CLI OCOPTCDE(ROPCE),X'56' 03S0316 00073000 BNE @RF00316 03S0316 00074000 * CKPSLVAL=TCHNGSEL; /* GET TCHNG SELECT VALUES */ 00075000 MVC CKPSLVAL(3,RCKPT),TCHNGSEL 03S0317 00076000 * ELSE /* NOT A TCHNG COMMAND */ 00077000 * DO; 03S0318 00078000 B @RC00316 03S0318 00079000 @RF00316 DS 0H 03S0319 00080000 * RTAB=ADDR(CMDTABLE); /* GET ADDRESS OF THE TABLE OF 00081000 * VALID MODIFY COMMANDS */ 00082000 LA RTAB,CMDTABLE 03S0319 00083000 * DO WHILE OCSWITCH^=CMDID;/* SEARCH COMMAND TABLE LOOKING 00084000 * FOR THE CURRENT COMMAND */ 00085000 B @DE00320 03S0320 00086000 @DL00320 DS 0H 03S0321 00087000 * RTAB=RTAB+LENGTH(TABENTRY);/* POINT TO NEXT ENTRY */ 00088000 AL RTAB,@CF00327 03S0321 00089000 * END; 03S0322 00090000 @DE00320 CLC OCSWITCH(1,ROPCE),CMDID(RTAB) 03S0322 00091000 BNE @DL00320 03S0322 00092000 * CKPSLVAL=TABSELCT; /* GET THE SELECT VALUES FOR THIS 00093000 * COMMAND */ 00094000 MVC CKPSLVAL(3,RCKPT),TABSELCT(RTAB) 03S0323 00095000 * END; 03S0324 00096000 * RFY 03S0325 00097000 * RTAB UNRSTD; 03S0325 00098000 @RC00316 DS 0H 03S0325 00099000 @RC00314 DS 0H 03S0326 00100000 * END; 03S0326 00101000 * IF CKPCUSEL=CNT /* TEST COMMAND TYPE */ 00102000 * THEN /* COMMAND IS A CONTROL COMMAND */ 00103000 CLI CKPCUSEL(RCKPT),1 02S0327 00104000 BNE @RF00327 02S0327 00105000 * 03S0328 00106000 * /***************************************************************/ 00107000 * /* */ 00108000 * /* PROCESS.CONTROL: THIS SEGMENT PROCESSES THE CONTROL COMMANDS*/ 00109000 * /* THAT ARE DIRECTED TO THE LOCAL 3705. THE CONTROL RECORD AREA*/ 00110000 * /* IN THE CHECKPOINT WORKAREA IS INITIALIZED WITH ALL OF THE */ 00111000 * /* CHANGEABLE DATA (EXCEPT FOR NCPTRACE) IN THE 3705'S DEVICE */ 00112000 * /* DEPENDENT FIELDS. A WRITE IS REQUESTED FROM THE CONTROL */ 00113000 * /* PORTION OF THE WORKAREA. */ 00114000 * /* */ 00115000 * /***************************************************************/ 00116000 * 03S0328 00117000 * DO; 03S0328 00118000 * MVC(CKPSLVAL,CKPSLNEW); /* SHIFT 'SELECT' VALUES FOR NEXT 00119000 * PATH SELECTION */ 00120000 MVC CKPSLVAL(3,RCKPT),CKPSLNEW(RCKPT) 03S0329 00121000 * IF OCSWITCH=OCACTVTE /* TEST FOR ACTIVATE COMMAND */ 00122000 * THEN /* THIS IS AN ACTIVATE COMMAND */ 00123000 CLI OCSWITCH(ROPCE),X'22' 03S0330 00124000 BNE @RF00330 03S0330 00125000 * IF NCPREST=OFF /* TEST FOR 3705 RESTART */ 00126000 * THEN /* THIS IS NOT A 3705 RESTART */ 00127000 L @14,CKPNDEVF(,RCKPT) 03S0331 00128000 TM NCPREST(@14),B'00010000' 03S0331 00129000 BNZ @RF00331 03S0331 00130000 * DO; 03S0332 00131000 * NCPREST=ON; /* INDICATE RESTART FOR NEXT 00132000 * ENTRY */ 00133000 OI NCPREST(@14),B'00010000' 03S0333 00134000 * CKPCUSEL=TIMEDATE; /* UPDATE SELECT VALUE TO 03S0334 00135000 * INDICATE THAT TIME DATA IS 00136000 * NEEDED */ 00137000 MVI CKPCUSEL(RCKPT),X'01' 03S0334 00138000 * END; 03S0335 00139000 * IF CKPCUSEL=TIMEDATE /* TEST FOR REQUEST FOR TIME 00140000 * UPDATE */ 00141000 * THEN /* TIME UPDATE IS REQUESTED */ 00142000 @RF00331 DS 0H 03S0336 00143000 @RF00330 CLI CKPCUSEL(RCKPT),1 03S0336 00144000 BNE @RF00336 03S0336 00145000 * DO; 03S0337 00146000 * GEN NOREFS SETS(REG00,RPARM); 03S0338 00147000 * /* 00148000 TIME , GET DATE AND TIME 00149000 * CKPDATE=RPARM; /* SET DATE */ 00150000 STCM RPARM,15,CKPDATE(RCKPT) 03S0339 00151000 * CKPTIME=REG00; /* SET TIME */ 00152000 STCM REG00,15,CKPTIME(RCKPT) 03S0340 00153000 * END; 03S0341 00154000 * CKPBCKUP=NCPBKUPN; /* UPDATE BACKUP NAME */ 00155000 @RF00336 L @14,CKPNDEVF(,RCKPT) 03S0342 00156000 MVC CKPBCKUP(8,RCKPT),NCPBKUPN(@14) 03S0342 00157000 * CKPIPLTX=NCPTXID; /* UPDATE IPL TEXT NAME */ 00158000 MVC CKPIPLTX(8,RCKPT),NCPTXID(@14) 03S0343 00159000 * CKPTRSTA=NCPFLAG1; /* UPDATE STATUS FLAGS */ 00160000 MVC CKPTRSTA(1,RCKPT),NCPFLAG1(@14) 03S0344 00161000 * RPARM=ADDR(CKPTRSTA)-(ADDR(NCPFLAG1)-ADDR(IEDNCP));/* SET REG 00162000 * TO POINT TO CKPTRSTA AS IF IT 00163000 * WERE THE NCPFLAG1 FIELD */ 00164000 LA RPARM,CKPTRSTA(,RCKPT) 03S0345 00165000 BCTR RPARM,0 03S0345 00166000 * RPARM->NCPTRACE=OFF; /* TURN OFF THE NCPTRACE FLAG IN 00167000 * THE CKPT FIELD */ 00168000 NI NCPTRACE(RPARM),B'11111101' 03S0346 00169000 * CKPRWCMD=CKPWRITE; /* SET COMMAND TYPE TO WRITE */ 00170000 MVI CKPRWCMD(RCKPT),X'05' 03S0347 00171000 * CKPRWBC=CKPCRLEN; /* SET LENGTH TO LENGTH OF 03S0348 00172000 * CONTROL RECORD */ 00173000 SLR @14,@14 03S0348 00174000 IC @14,CKPCRLEN(,RCKPT) 03S0348 00175000 STH @14,CKPRWBC(,RCKPT) 03S0348 00176000 * CKPRWADD=ADDR(CKPNCNTL); /* SET DATA ADDR TO THE CONTROL 00177000 * RECORD */ 00178000 LA @14,CKPNCNTL(,RCKPT) 03S0349 00179000 STCM @14,7,CKPRWADD(RCKPT) 03S0349 00180000 * MVC(CKPSLVAL,CKPSLNEW); /* SHIFT 'SELECT' VALUES FOR NEXT 00181000 * PATH SELECTION */ 00182000 MVC CKPSLVAL(3,RCKPT),CKPSLNEW(RCKPT) 03S0350 00183000 * CKPENCDE=0; /* SET I/O REQUESTED */ 00184000 MVI CKPENCDE(RCKPT),X'00' 03S0351 00185000 * END; 03S0352 00186000 * ELSE /* COMMAND IS A RESOURCE COMMAND */ 00187000 * 03S0353 00188000 * /***************************************************************/ 00189000 * /* */ 00190000 * /* PROCESS.RESOURCE: THIS SEGMENT PROCESSES THE COMMANDS THAT */ 00191000 * /* ARE DIRECTED TO A RESOURCE OF A 3705. EACH RESOURCE HAS TWO */ 00192000 * /* NONCONTIGUOUS RECORDS ON THE CKPT DATA SET THAT ARE */ 00193000 * /* MAINTAINED IN A 'FLIP/FLOP' MANNER. IF THE FIRST RECORD WAS */ 00194000 * /* UPDATED ON THE LAST CKPT, THEN THE SECOND RECORD WILL BE */ 00195000 * /* UPDATED ON THIS CKPT (AND VICE VERSA). THIS SEGMENT SETS UP */ 00196000 * /* TO READ THE RECORD MOST RECENTLY WRITTEN TO GET THE MOST UP */ 00197000 * /* TO DATE CKPT INFORMATION FOR THIS RESOURCE. */ 00198000 * /* */ 00199000 * /***************************************************************/ 00200000 * 03S0353 00201000 * DO; 03S0353 00202000 B @RC00327 03S0353 00203000 @RF00327 DS 0H 03S0354 00204000 * REG15=ADDR(CKPRW); /* SET ADDR TO CONTAIN ADDR OF 00205000 * GETMAIN'ED AREA */ 00206000 LA REG15,CKPRW(,RCKPT) 03S0354 00207000 * REG00=CKPBLKSZ; /* GET NUMBER OF BYTES TO GETMAIN*/ 00208000 LH REG00,CKPBLKSZ(,RCKPT) 03S0355 00209000 * GEN REFS(REG00,REG15,CKPGETML) SETS(RPARM); 03S0356 00210000 * /* @YM07021 00211000 GETMAIN EC,LV=(REG00),A=(REG15),SP=0,MF=(E,CKPGETML(RCKPT)) 00212000 * IF REG15=0 /* TEST RETURN FROM GETMAIN */ 00213000 * THEN /* GETMAIN WAS GOOD */ 00214000 SLR @14,@14 03S0357 00215000 CR REG15,@14 03S0357 00216000 BNE @RF00357 03S0357 00217000 * DO; 03S0358 00218000 * CKPENCDE=0; /* CLEAR ERROR INDICATOR */ 00219000 MVI CKPENCDE(RCKPT),X'00' 03S0359 00220000 * IF OCOPTCDE=OCICHNG /* TEST COMMAND TYPE */ 00221000 * THEN /* COMMAND IS AN ICHNG */ 00222000 CLI OCOPTCDE(ROPCE),X'49' 03S0360 00223000 BNE @RF00360 03S0360 00224000 * 04S0361 00225000 * /*******************************************************/ 00226000 * /* */ 00227000 * /* PROCESS.RESOURCE.ICINIT: THIS SEGMENT INITIALIZES */ 00228000 * /* FIELDS NEEDED BY IEDQNU TO COMPLETE THE CKPT OF AN */ 00229000 * /* ICHNG COMMAND. THE MOVE BUFFER PARAMETER LIST USED */ 00230000 * /* TO MOVE THE DEVICE RECORD TO THE CKPT RECORD IS */ 00231000 * /* INITIALIZED. */ 00232000 * /* */ 00233000 * /*******************************************************/ 00234000 * 04S0361 00235000 * DO; 04S0361 00236000 * RFY 04S0362 00237000 * RPLMV RSTD; 04S0362 00238000 * RPLMV=ADDR(CKPSAVE2(10));/* GET ADDRESS OF MOVE 04S0363 00239000 * BUFFER PARM LIST */ 00240000 LA RPLMV,CKPSAVE2+36(,RCKPT) 04S0363 00241000 * PLMVFLG1=''B; /* CLEAR FLAG BYTE 1 */ 00242000 MVI PLMVFLG1(RPLMV),X'00' 04S0364 00243000 * PLMVFLG2=''B; /* CLEAR FLAG BYTE 2 */ 00244000 MVI PLMVFLG2(RPLMV),X'00' 04S0365 00245000 * PLMVUNCA=0; /* CLEAR CHAIN ADDRESS */ 00246000 ST @14,PLMVUNCA(,RPLMV) 04S0366 00247000 * IF OCICTYPE=OCICSID /* TEST ICHNG LINE TYPE */ 00248000 * THEN /* THIS IS A SWITCHED LINE WITH 00249000 * ID VERIFICATION */ 00250000 CLI OCICTYPE(ROPCE),0 04S0367 00251000 BNE @RF00367 04S0367 00252000 * 05S0368 00253000 * /***************************************************/ 00254000 * /* */ 00255000 * /* PROCESS.RESOURCE.ICINIT.SWITCHID: THIS SEGMENT */ 00256000 * /* INITIALIZES FOR ICHNG TO A SWITCHED LINE WITH ID*/ 00257000 * /* VERIFICATION. */ 00258000 * /* */ 00259000 * /***************************************************/ 00260000 * 05S0368 00261000 * DO; 05S0368 00262000 * PLMVTU=ADDR(CNRDVBDU);/* SET TARGET TO RECEIVE 00263000 * ... */ 00264000 L @12,RCKPREC+201(,RCKPT) 05S0369 00265000 LA @12,CNRDVBDU(,@12) 05S0369 00266000 ST @12,PLMVTU(,RPLMV) 05S0369 00267000 * PLMVTD=ADDR(CNRDVBDU);/* ... LINE SESSION INFO */ 00268000 ST @12,PLMVTD(,RPLMV) 05S0370 00269000 * PLMVSU=OCUNIT; /* SET UNIT ADDRESS OF UNIT WITH 00270000 * LINE SESSION INFO */ 00271000 L @12,OCUNIT(,ROPCE) 05S0371 00272000 ST @12,PLMVSU(,RPLMV) 05S0371 00273000 * CKPTTCIN=PRUTTCIN;/* SAVE TTCIN OF THE LINE */ 00274000 L @12,IEDPRUQP(,RPLMV) 05S0372 00275000 LH @10,PRUTTCIN(,@12) 05S0372 00276000 N @10,@CF01747 05S0372 00277000 STH @10,CKPTTCIN(,RCKPT) 05S0372 00278000 * CKPDATCT=PRUDATCT;/* SAVE DATA COUNT OF THE LINE 00279000 * SESSION INFO */ 00280000 LH @10,PRUDATCT(,@12) 05S0373 00281000 STH @10,CKPDATCT(,RCKPT) 05S0373 00282000 * PLMVLNTH=PRUDATCT;/* SET MOVE LENGTH */ 00283000 STH @10,PLMVLNTH(,RPLMV) 05S0374 00284000 * PLMVSD=ADDR(IEDBDU);/* START MOVE WITH THE BDU */ 00285000 AL @12,@CF00235 05S0375 00286000 ST @12,PLMVSD(,RPLMV) 05S0375 00287000 * CKPTNTNB=0; /* INDICATE THAT THERE ARE NO 00288000 * MORE DEVICE RECORDS TO PROCESS*/ 00289000 STH @14,CKPTNTNB(,RCKPT) 05S0376 00290000 * END; 05S0377 00291000 * ELSE /* NOT SWITCHED LINE WITH ID 00292000 * VERIFICATION - EITHER LEASED, 00293000 * SWITCHED, OR MULTIPOINT LINE */ 00294000 * 05S0378 00295000 * /***************************************************/ 00296000 * /* */ 00297000 * /* PROCESS.RESOURCE.ICINIT.MULTILEA: THIS SEGMENT */ 00298000 * /* INITIALIZES FOR ICHNG FOR A LEASED OR SWITCHED */ 00299000 * /* LINE WITH NO ID VERIFICATION AND FOR A */ 00300000 * /* MULTIPOINT LINE. THE SINGLE DEVICE RECORD FOR A */ 00301000 * /* LEASED OR SWITCHED LINE IS LOCATED. FOR A */ 00302000 * /* MULTIPOINT LINE THE FIRST VALID DEVICE RECORD */ 00303000 * /* MUST BE FOUND. */ 00304000 * /* */ 00305000 * /***************************************************/ 00306000 * 05S0378 00307000 * DO; 05S0378 00308000 B @RC00367 05S0378 00309000 @RF00367 DS 0H 05S0379 00310000 * IF OCICTYPE=OCICLES/* TEST ICHNG LINE TYPE */ 00311000 * THEN /* THIS IS A LEASED LINE OR A 00312000 * SWITCHED LINE WITH NO ID 05S0379 00313000 * VERIFICATION */ 00314000 CLI OCICTYPE(ROPCE),1 05S0379 00315000 BNE @RF00379 05S0379 00316000 * DO; 05S0380 00317000 * PLMVSU=OCUNIT;/* SET UNIT CONTAINING DEVICE 00318000 * RECORD */ 00319000 L @14,OCUNIT(,ROPCE) 05S0381 00320000 ST @14,PLMVSU(,RPLMV) 05S0381 00321000 * PLMVSD=ADDR(LEARCD);/* POINT TO START OF 00322000 * DEVICE RECORD */ 00323000 L @14,IEDPRUQP(,RPLMV) 05S0382 00324000 LA @14,LEARCD+18(,@14) 05S0382 00325000 ST @14,PLMVSD(,RPLMV) 05S0382 00326000 * CKPTNTNB=0; /* INDICATE THAT THERE ARE NO 00327000 * MORE DEVICE RECORDS TO PROCESS*/ 00328000 SLR @14,@14 05S0383 00329000 STH @14,CKPTNTNB(,RCKPT) 05S0383 00330000 * END; 05S0384 00331000 * ELSE /* NOT LEASED OR SWITCHED - MUST 00332000 * BE MULTIPOINT LINE */ 00333000 * DO; 05S0385 00334000 B @RC00379 05S0385 00335000 @RF00379 DS 0H 05S0386 00336000 * 06S0386 00337000 * /*********************************************/ 00338000 * /* */ 00339000 * /* PROCESS.RESOURCE.ICINIT.MULTILEA.TNTINIT: */ 00340000 * /* THIS SEGMENT FINDS THE FIRST TNT OFFSET IN*/ 00341000 * /* THE CKPT UNITS FOR A MULTIPOINT LINE AND */ 00342000 * /* SAVES IT IN OFFSET. IT INITIALIZES */ 00343000 * /* POINTERS AND COUNTS FOR THE TNT OFFSETS */ 00344000 * /* AND EXITS POINTING TO THE SECOND TNT */ 00345000 * /* OFFSET AND THE FIRST DEVICE RECORD. */ 00346000 * /* */ 00347000 * /*********************************************/ 00348000 * 06S0386 00349000 * DO; 06S0386 00350000 * CKPTNTUN=OCUNIT;/* SET POINTER TO UNIT WITH 00351000 * TNT OFFSETS */ 00352000 L @14,OCUNIT(,ROPCE) 06S0387 00353000 ST @14,CKPTNTUN(,RCKPT) 06S0387 00354000 * CKPTNTPT=ADDR(ICTNTOFF);/* POINT TO FIRST 00355000 * TNT OFFSET */ 00356000 LA @12,ICTNTOFF(,@14) 06S0388 00357000 ST @12,CKPTNTPT(,RCKPT) 06S0388 00358000 * OFSENTRY=CKPTNTPT->MOVECHAR;/* PUT FIRST 00359000 * TNT OFFSET IN WORKAREA */ 00360000 MVC OFSENTRY(3),MOVECHAR(@12) 06S0389 00361000 * CKPTNTPT=CKPTNTPT+LENGTH(ICTNTOFF);/* POINT 00362000 * TO SECOND TNT OFFSET */ 00363000 AL @12,@CF00066 06S0390 00364000 ST @12,CKPTNTPT(,RCKPT) 06S0390 00365000 * CKPTNTNB=ICTNTNO-1;/* GET NUMBER OF TNT 00366000 * OFFSETS LEFT TO SCAN */ 00367000 LH @12,ICTNTNO(,@14) 06S0391 00368000 BCTR @12,0 06S0391 00369000 STH @12,CKPTNTNB(,RCKPT) 06S0391 00370000 * CKPTNTLN=AVTKEYLE-2*LENGTH(ICTNTOFF);/* SET 00371000 * LENGTH OF TNT DATA REMAINING 00372000 * IN THIS UNIT */ 00373000 LH @12,AVTKEYLE(,RAVT) 06S0392 00374000 SL @12,@CF00071 06S0392 00375000 STH @12,CKPTNTLN(,RCKPT) 06S0392 00376000 * REG00=ICTNTNU;/* GET NUMBER OF UNITS 06S0393 00377000 * CONTAINING TNT OFFSETS */ 00378000 SLR REG00,REG00 06S0393 00379000 IC REG00,ICTNTNU(,@14) 06S0393 00380000 * RPARM=OCUNIT;/* GET POINTER TO FIRST UNIT 00381000 * WITH TNT OFFSETS */ 00382000 LR RPARM,@14 06S0394 00383000 * DO UNTIL REG00=0;/* FIND FIRST UNIT THAT 00384000 * CONTAINS DEVICE RECORDS */ 00385000 @DL00395 DS 0H 06S0396 00386000 * RPARM=RPARM->ICTNTTIC;/* GET POINTER TO 00387000 * NEXT UNIT */ 00388000 L RPARM,ICTNTTIC(,RPARM) 06S0396 00389000 * REG00=REG00-1;/* DECREMENT COUNT OF TNT 00390000 * UNITS */ 00391000 BCTR REG00,0 06S0397 00392000 * END; 06S0398 00393000 @DE00395 LTR REG00,REG00 06S0398 00394000 BNZ @DL00395 06S0398 00395000 * PLMVSU=RPARM;/* SET POINTER TO UNIT THAT 00396000 * CONTAINS THE FIRST DEVICE 00397000 * RECORD */ 00398000 ST RPARM,PLMVSU(,RPLMV) 06S0399 00399000 * PLMVTU=RPARM;/* POINT TO SAME UNIT AS 06S0400 00400000 * TARGET */ 00401000 ST RPARM,PLMVTU(,RPLMV) 06S0400 00402000 * PLMVSD=ADDR(MULRCDS);/* POINT TO FIRST 00403000 * DEVICE RECORD */ 00404000 L @14,IEDPRUQP(,RPLMV) 06S0401 00405000 LA @14,MULRCDS+18(,@14) 06S0401 00406000 ST @14,PLMVSD(,RPLMV) 06S0401 00407000 * PLMVTD=ADDR(MULRCDS);/* POINT TO SAME 06S0402 00408000 * RECORD AS TARGET */ 00409000 ST @14,PLMVTD(,RPLMV) 06S0402 00410000 * END; 06S0403 00411000 * DO WHILE OFFSET=0;/* SEARCH TNT OFFSETS FOR A 00412000 * NON-ZERO TNT OFFSET */ 00413000 B @DE00404 05S0404 00414000 @DL00404 DS 0H 05S0405 00415000 * 06S0405 00416000 * /*******************************************/ 00417000 * /* */ 00418000 * /* PROCESS.RESOURCE.ICINIT.MULTILEA.TNTMOVE*/ 00419000 * /* : THIS SEGMENT MOVES THE TNT OFFSET */ 00420000 * /* ENTRY ADDRESSED BY CKPTNTPT INTO */ 00421000 * /* OFSENTRY AND EXITS WITH CKPTNTPT */ 00422000 * /* POINTING TO THE NEXT TNT OFFSET. */ 00423000 * /* */ 00424000 * /*******************************************/ 00425000 * 06S0405 00426000 * DO; 06S0405 00427000 * CKPTNTNB=CKPTNTNB-1;/* DECREMENT NUMBER 00428000 * OF OFFSETS LEFT TO PROCESS */ 00429000 LH @14,CKPTNTNB(,RCKPT) 06S0406 00430000 BCTR @14,0 06S0406 00431000 STH @14,CKPTNTNB(,RCKPT) 06S0406 00432000 * RPARM=ADDR(OFSENTRY);/* SET POINTER TO 00433000 * TARGET OF TNT MOVE */ 00434000 LA RPARM,OFSENTRY 06S0407 00435000 * REG00=LENGTH(ICTNTOFF);/* SET LENGTH OF 00436000 * TNT OFFSET ENTRY */ 00437000 LA REG00,3 06S0408 00438000 * REG15=CKPTNTLN;/* SET LENGTH OF TNT DATA 00439000 * IN THIS UNIT */ 00440000 LH REG15,CKPTNTLN(,RCKPT) 06S0409 00441000 * IF REG15>REG00/* TEST FOR MORE DATA THAN 00442000 * IS NEEDED */ 00443000 * THEN /* THERE IS MORE DATA IN THIS 00444000 * UNIT THAN IS NEEDED */ 00445000 CR REG15,REG00 06S0410 00446000 BNH @RF00410 06S0410 00447000 * REG15=REG00;/* RESET LENGTH-TO-MOVE TO 00448000 * ENTRY LENGTH */ 00449000 LR REG15,REG00 06S0411 00450000 * DO UNTIL REG15=0;/* MOVE THE TNT DATA */ 00451000 @RF00410 DS 0H 06S0412 00452000 @DL00412 DS 0H 06S0413 00453000 * RPARM->MOVECHAR(1:REG15)=CKPTNTPT-> 00454000 * MOVECHAR(1:REG15);/* MOVE TNT DATA 00455000 * FROM THE UNIT TO THE WORKAREA */ 00456000 LR @14,REG15 06S0413 00457000 BCTR @14,0 06S0413 00458000 L @12,CKPTNTPT(,RCKPT) 06S0413 00459000 EX @14,@SM01748 06S0413 00460000 * CKPTNTPT=CKPTNTPT+REG15;/* POINT TO 00461000 * NEXT AVIALABLE DATA */ 00462000 ALR @12,REG15 06S0414 00463000 ST @12,CKPTNTPT(,RCKPT) 06S0414 00464000 * RPARM=RPARM+REG15;/* BUMP TO NEXT 06S0415 00465000 * TARGET BYTE IN WORKAREA */ 00466000 ALR RPARM,REG15 06S0415 00467000 * CKPTNTLN=CKPTNTLN-REG15;/* DECREMENT 00468000 * DATA LEFT IN THIS UNIT */ 00469000 LH @14,CKPTNTLN(,RCKPT) 06S0416 00470000 SLR @14,REG15 06S0416 00471000 STH @14,CKPTNTLN(,RCKPT) 06S0416 00472000 * IF CKPTNTLN<=0/* TEST FOR MORE DATA IN 00473000 * THIS UNIT */ 00474000 * THEN/* NO MORE DATA IN THIS UNIT */ 00475000 LTR @14,@14 06S0417 00476000 BP @RF00417 06S0417 00477000 * DO; 06S0418 00478000 * CKPTNTUN=ICTNTTIC;/* POINT TO NEXT 00479000 * UNIT */ 00480000 L @14,CKPTNTUN(,RCKPT) 06S0419 00481000 L @14,ICTNTTIC(,@14) 06S0419 00482000 ST @14,CKPTNTUN(,RCKPT) 06S0419 00483000 * CKPTNTPT=ADDR(ICTNTDAT);/* POINT TO 00484000 * DATA IN NEXT UNIT */ 00485000 LA @14,ICTNTDAT(,@14) 06S0420 00486000 ST @14,CKPTNTPT(,RCKPT) 06S0420 00487000 * CKPTNTLN=AVTKEYLE;/* SET LENGTH OF 00488000 * DATA IN NEXT UNIT */ 00489000 LH @14,AVTKEYLE(,RAVT) 06S0421 00490000 STH @14,CKPTNTLN(,RCKPT) 06S0421 00491000 * END; 06S0422 00492000 * REG00=REG00-REG15;/* SET DATA LEFT TO 00493000 * BE MOVED */ 00494000 @RF00417 SLR REG00,REG15 06S0423 00495000 * REG15=REG00;/* SET LENGTH FOR NEXT MOVE*/ 00496000 LR REG15,REG00 06S0424 00497000 * END; 06S0425 00498000 @DE00412 LTR REG15,REG15 06S0425 00499000 BNZ @DL00412 06S0425 00500000 * END; 06S0426 00501000 * PLMVLNTH=DEVLEN;/* SET LENGTH OF DEVICE 00502000 * RECORD TO BE SKIPPED */ 00503000 L @14,PLMVSD(,RPLMV) 05S0427 00504000 SLR @12,@12 05S0427 00505000 IC @12,DEVLEN(,@14) 05S0427 00506000 STH @12,PLMVLNTH(,RPLMV) 05S0427 00507000 * RPARM=RPLMV;/* SET ADDRESS OF PARAMETER 00508000 * LIST */ 00509000 LR RPARM,RPLMV 05S0428 00510000 * CALL IEDMVBFR;/* CALL MOVE BUFFER ROUTINE 00511000 * TO SKIP DEVICE RECORD */ 00512000 L @12,AVTSAVTP(,RAVT) 05S0429 00513000 L @15,SAVTMVBF(,@12) 05S0429 00514000 BALR @14,@15 05S0429 00515000 * END; 05S0430 00516000 @DE00404 LH @14,OFFSET 05S0430 00517000 N @14,@CF01747 05S0430 00518000 LTR @14,@14 05S0430 00519000 BZ @DL00404 05S0430 00520000 * OCTRMTBL=OFFSET;/* SAVE TNT OFFSET */ 00521000 LH @14,OFFSET 05S0431 00522000 N @14,@CF01747 05S0431 00523000 STH @14,OCTRMTBL(,ROPCE) 05S0431 00524000 * 06S0432 00525000 * /*********************************************/ 00526000 * /* */ 00527000 * /* PROCESS.RESOURCE.ICINIT.MULTILEA.SETRSID: */ 00528000 * /* THIS SEGMENT FINDS THE RSID IN THE DEVICE */ 00529000 * /* RECORD. PLMVSD POINTS TO THE DEVICE */ 00530000 * /* RECORD. THE FIRST BYTE OF THE DEVICE */ 00531000 * /* RECORD IS THE LENGTH OF THE DEVICE RECORD.*/ 00532000 * /* THE NEXT TWO BYTES ARE THE RSID. MOVE THE */ 00533000 * /* RSID TO A SAVEAREA, REMOVE THE SUBAREA */ 00534000 * /* ADDRESS, AND SAVE RSID IN THE OPCE. */ 00535000 * /* */ 00536000 * /*********************************************/ 00537000 * 06S0432 00538000 * DO; 06S0432 00539000 * RPARM=PLMVSU+12+AVTKEYLE;/* SET END OF THE 00540000 * UNIT ADDRESS */ 00541000 LA RPARM,12 06S0433 00542000 AL RPARM,PLMVSU(,RPLMV) 06S0433 00543000 AH RPARM,AVTKEYLE(,RAVT) 06S0433 00544000 * IF PLMVSD+3<=RPARM/* TEST FOR RSID FULLY 00545000 * CONTAINED IN THIS UNIT */ 00546000 * THEN /* RSID FULLY IN THIS UNIT */ 00547000 L @14,PLMVSD(,RPLMV) 06S0434 00548000 LA @12,3 06S0434 00549000 ALR @12,@14 06S0434 00550000 CR @12,RPARM 06S0434 00551000 BH @RF00434 06S0434 00552000 * RSID=DEVID;/* SAVE RSID */ 00553000 MVC RSID(2),DEVID(@14) 06S0435 00554000 * ELSE /* NOT FULLY IN THIS UNIT */ 00555000 * IF PLMVSD+2=RPARM/* TEST FOR FIRST BYTE 00556000 * OF RSID IN THIS UNIT */ 00557000 * THEN /* FIRST BYTE IS IN THIS UNIT */ 00558000 B @RC00434 06S0436 00559000 @RF00434 L @14,PLMVSD(,RPLMV) 06S0436 00560000 LA @12,2 06S0436 00561000 ALR @12,@14 06S0436 00562000 CR @12,RPARM 06S0436 00563000 BNE @RF00436 06S0436 00564000 * DO; 06S0437 00565000 * RSID1=PLMVSD->MOVECHAR(2:2);/* GET 00566000 * FIRST BYTE OF RSID */ 00567000 MVC RSID1(1),MOVECHAR+1(@14) 06S0438 00568000 * RSID2=PLMVSU->ICTNTTIC->ICTNTDAT(1:1); 00569000 L @14,PLMVSU(,RPLMV) 06S0439 00570000 L @14,ICTNTTIC(,@14) 06S0439 00571000 MVC RSID2(1),ICTNTDAT(@14) 06S0439 00572000 * /* GET SECOND BYTE OF RSID FROM 00573000 * THE NEXT UNIT */ 00574000 * END; 06S0440 00575000 * ELSE /* RSID IN THE NEXT UNIT */ 00576000 * RSID=PLMVSU->ICTNTTIC->ICTNTDAT(1:2);/* 00577000 * GET RSID FROM NEXT UNIT */ 00578000 B @RC00436 06S0441 00579000 @RF00436 L @14,PLMVSU(,RPLMV) 06S0441 00580000 L @14,ICTNTTIC(,@14) 06S0441 00581000 MVC RSID(2),ICTNTDAT(@14) 06S0441 00582000 * OCRSID=(SAVTZELM&&'FFFF'X)&RSID;/* CLEAR 00583000 * SUBAREA ADDR FROM THE RESOURCE 00584000 * ID */ 00585000 @RC00436 DS 0H 06S0442 00586000 @RC00434 L @14,AVTSAVTP(,RAVT) 06S0442 00587000 L @12,@CF01742 06S0442 00588000 LH @14,SAVTZELM(,@14) 06S0442 00589000 N @14,@CF01747 06S0442 00590000 XR @12,@14 06S0442 00591000 SLR @14,@14 06S0442 00592000 ICM @14,3,RSID 06S0442 00593000 NR @12,@14 06S0442 00594000 STH @12,OCRSID(,ROPCE) 06S0442 00595000 * END; 06S0443 00596000 * END; 05S0444 00597000 * CKPTTCIN=OCTRMTBL;/* SET TNT OFFSET FOR THE 05S0445 00598000 * DEVICE */ 00599000 @RC00379 LH @14,OCTRMTBL(,ROPCE) 05S0445 00600000 N @14,@CF01747 05S0445 00601000 STH @14,CKPTTCIN(,RCKPT) 05S0445 00602000 * CKPDATCT=DEVLEN+LENGTH(IEDBDU);/* SET DATA IN 00603000 * CKPT RECORD TO LENGTH OF 05S0446 00604000 * DEVICE RECORD PLUS LENGTH OF A 00605000 * BDU */ 00606000 L @14,PLMVSD(,RPLMV) 05S0446 00607000 LA @12,6 05S0446 00608000 SLR @10,@10 05S0446 00609000 IC @10,DEVLEN(,@14) 05S0446 00610000 ALR @12,@10 05S0446 00611000 STH @12,CKPDATCT(,RCKPT) 05S0446 00612000 * END; 05S0447 00613000 * IF LENCNR+CKPDATCT>CKPBLKSZ/* TEST FOR CKPT DATA TOO 00614000 * BIG FOR CKPT RECORD */ 00615000 * THEN /* DATA IS TOO BIG */ 00616000 @RC00367 LH @14,LENCNR 04S0448 00617000 AH @14,CKPDATCT(,RCKPT) 04S0448 00618000 CH @14,CKPBLKSZ(,RCKPT) 04S0448 00619000 BNH @RF00448 04S0448 00620000 * CKPENCDE=CKPTOOBG;/* SET 'DATA TOO BIG' MESSAGE 00621000 * INDICATOR */ 00622000 MVI CKPENCDE(RCKPT),X'0C' 04S0449 00623000 * RFY 04S0450 00624000 * RPLMV UNRSTD; 04S0450 00625000 @RF00448 DS 0H 04S0451 00626000 * END; 04S0451 00627000 * IF CKPENCDE=0 /* TEST FOR ERRORS DETECTED IN 00628000 * ICHNG INITIALIZATION */ 00629000 * THEN /* NO ERRORS FOUND */ 00630000 @RF00360 CLI CKPENCDE(RCKPT),0 03S0452 00631000 BNE @RF00452 03S0452 00632000 * 04S0453 00633000 * /*******************************************************/ 00634000 * /* */ 00635000 * /* PROCESS.RESOURCE.READINIT: INITIALIZE THE CKPT */ 00636000 * /* WORKAREA FOR A READ OF THE CKPT RECORD. */ 00637000 * /* */ 00638000 * /*******************************************************/ 00639000 * 04S0453 00640000 * DO; 04S0453 00641000 * RPARM=OCTRMTBL; /* GET RESOURCE'S TNT OFFSET */ 00642000 LH RPARM,OCTRMTBL(,ROPCE) 04S0454 00643000 N RPARM,@CF01747 04S0454 00644000 * CKPNRSID=OCRSID; /* GET RESOURCE TO BE CKPT'ED */ 00645000 LH @14,OCRSID(,ROPCE) 04S0455 00646000 N @14,@CF01747 04S0455 00647000 STH @14,CKPNRSID(,RCKPT) 04S0455 00648000 * CALL IEDQTNT; /* GET THE TERMINAL ENTRY ADDRESS 00649000 * FOR THE RESOURCE */ 00650000 L @15,AVTRNMPT(,RAVT) 04S0456 00651000 BALR @14,@15 04S0456 00652000 * CKPTRMAD=RPARM-PREFIXSZ;/* SAVE TERM ENTRY PREFIX 00653000 * ADDR */ 00654000 LR @14,RPARM 04S0457 00655000 SH @14,PREFIXSZ 04S0457 00656000 ST @14,CKPTRMAD(,RCKPT) 04S0457 00657000 * IF TRMCKPRN=ON /* DETERMINE WHICH RECORD TO 00658000 * UPDATE */ 00659000 * THEN /* UPDATE THE SECOND RECORD */ 00660000 TM TRMCKPRN(@14),B'00000010' 04S0458 00661000 BNO @RF00458 04S0458 00662000 * CKPNTRK=0; /* CLEAR ALTERNATE RECORD 04S0459 00663000 * INDICATOR TO INDICATE THAT 00664000 * FIRST RECORD IS TO BE READ FOR 00665000 * INFO */ 00666000 SLR @14,@14 04S0459 00667000 STH @14,CKPNTRK(,RCKPT) 04S0459 00668000 * ELSE /* UPDATE FIRST RECORD */ 00669000 * CKPNTRK=CKPTRKCN; /* SET ALTERNATE RECORD INDICATOR 00670000 * TO INDICATE THAT SECOND RECORD 00671000 * IS TO BE READ FOR INFO */ 00672000 B @RC00458 04S0460 00673000 @RF00458 LH @14,CKPTRKCN(,RCKPT) 04S0460 00674000 STH @14,CKPNTRK(,RCKPT) 04S0460 00675000 * MVC(CKPSLVAL,CKPSLNEW);/* SHIFT 'SELECT' VALUES FOR 00676000 * NEXT PATH SELECTION */ 00677000 @RC00458 MVC CKPSLVAL(3,RCKPT),CKPSLNEW(RCKPT) 04S0461 00678000 * CKPRWCMD=CKPREAD; /* SET READ COMMAND */ 00679000 MVI CKPRWCMD(RCKPT),X'06' 04S0462 00680000 * CKPRWBC=CKPBLKSZ; /* SET LENGTH TO LENGTH OF A 00681000 * BLOCK */ 00682000 LH @14,CKPBLKSZ(,RCKPT) 04S0463 00683000 STH @14,CKPRWBC(,RCKPT) 04S0463 00684000 * END; 04S0464 00685000 * END; 03S0465 00686000 * ELSE /* GETMAIN FAILED */ 00687000 * DO; 03S0466 00688000 B @RC00357 03S0466 00689000 @RF00357 DS 0H 03S0467 00690000 * CKPENCDE=CKPGETFL; /* SET GETMAIN FAILED ERROR CODE */ 00691000 MVI CKPENCDE(RCKPT),X'04' 03S0467 00692000 * CKPRWADD=0; /* CLEAR DATA ADDRESS TO SHOW 00693000 * GETMAIN FAILED */ 00694000 SLR @14,@14 03S0468 00695000 STCM @14,7,CKPRWADD(RCKPT) 03S0468 00696000 * END; 03S0469 00697000 * END; 03S0470 00698000 @RC00357 DS 0H 03S0471 00699000 * IF CKPENCDE=0 /* TEST FOR I/O REQUESTED */ 00700000 * THEN /* I/O WAS REQUESTED */ 00701000 @RC00327 CLI CKPENCDE(RCKPT),0 02S0471 00702000 BNE @RF00471 02S0471 00703000 * DO; 02S0472 00704000 * CALL IEDQNW; /* CALL ROUTINE TO START I/O */ 00705000 L @15,CAVTCRIO(,RCAVT) 02S0473 00706000 BALR @14,@15 02S0473 00707000 * CKPENCDE=REG15; /* SAVE RETURN CODE */ 00708000 STC REG15,CKPENCDE(,RCKPT) 02S0474 00709000 * END; 02S0475 00710000 * 02S0476 00711000 * /*****************************************************************/ 00712000 * /* */ 00713000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00714000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. REGISTER 2 AND */ 00715000 * /* REGISTER 12 ARE RESTORED TO THEIR REQUIRED VALUE FOR IEDQNF. */ 00716000 * /* IF I/O WAS STARTED, THEN RETURN TO IEDQNF TO WAIT FOR I/O */ 00717000 * /* COMPLETION. IF I/O WAS NOT STARTED, RETURN TO IEDQNF */ 00718000 * /* REQUESTING THAT IEDQNU BE LOADED TO WRITE AN ERROR MESSAGE AND*/ 00719000 * /* TO NOTIFY OP CONTROL THAT THE CKPT IS COMPLETE. */ 00720000 * /* */ 00721000 * /*****************************************************************/ 00722000 * 02S0476 00723000 * RFY 02S0476 00724000 * (REG2, 02S0476 00725000 * REG12, 02S0476 00726000 * REG14) RSTD; 02S0476 00727000 @RF00471 DS 0H 02S0477 00728000 * REG2=CAVTTCWA; /* RESTORE ADDRESS OF TCAM 02S0477 00729000 * CHECKPOINT WORKAREA */ 00730000 L REG2,CAVTTCWA(,RCAVT) 02S0477 00731000 * REG12=CKPSAVE2(1); /* RESTORE IEDQNF'S BASE REGISTER*/ 00732000 L REG12,CKPSAVE2(,RCKPT) 02S0478 00733000 * REG14=CKPSAVE2(2); /* RESTORE RETURN ADDRESS */ 00734000 L REG14,CKPSAVE2+4(,RCKPT) 02S0479 00735000 * IF CKPENCDE=0 /* TEST FOR I/O STARTED */ 00736000 * THEN /* I/O WAS STARTED */ 00737000 CLI CKPENCDE(RCKPT),0 02S0480 00738000 BNE @RF00480 02S0480 00739000 * DO; 02S0481 00740000 * CAVTWTG=CKPCNCPW; /* SET WHERE-TO-GO TO MODULE ID 00741000 * OF MODULE TO GET CONTROL WHEN 00742000 * THE I/O COMPLETES */ 00743000 MVI CAVTWTG(RCAVT),X'78' 02S0482 00744000 * REG14=REG14+CKPRETNL; /* SET IEDQNF RETURN POINT THAT 00745000 * REQUESTS NO ADDITIONAL MODULE 00746000 * LOAD */ 00747000 AL REG14,@CF00327 02S0483 00748000 * END; 02S0484 00749000 * ELSE /* I/O WAS NOT STARTED */ 00750000 * DO; 02S0485 00751000 B @RC00480 02S0485 00752000 @RF00480 DS 0H 02S0486 00753000 * REG15=CKPCNCPW; /* SET MODULE ID FOR NEXT MODULE 00754000 * TO BE LOADED */ 00755000 LA REG15,120 02S0486 00756000 * CKPCUSEL=CKPNOTFY; /* SET SELECT VALUE TO REQUEST 00757000 * THAT OP CONTROL BE NOTIFIED 00758000 * THAT CKPT HAS COMPLETED */ 00759000 MVI CKPCUSEL(RCKPT),X'0A' 02S0487 00760000 * END; 02S0488 00761000 * RFY 02S0489 00762000 * (REG2, 02S0489 00763000 * REG12, 02S0489 00764000 * REG14) UNRSTD; 02S0489 00765000 * END IEDQNT 01S0490 00766000 * 01S0490 00767000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00768000 */*%INCLUDE SYSLIB (TAVTD ) */ 00769000 */*%INCLUDE SYSLIB (TBDUD ) */ 00770000 */*%INCLUDE SYSLIB (TCAVTD ) */ 00771000 */*%INCLUDE SYSLIB (TCKPD ) */ 00772000 */*%INCLUDE SYSLIB (TCNRD ) */ 00773000 */*%INCLUDE SYSLIB (TNCPID ) */ 00774000 */*%INCLUDE SYSLIB (TOPCED ) */ 00775000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00776000 */*%INCLUDE SYSLIB (TPLMVD ) */ 00777000 */*%INCLUDE SYSLIB (TPRUD ) */ 00778000 */*%INCLUDE SYSLIB (TTRMD ) */ 00779000 */*%INCLUDE SYSUT5 (RFY ) */ 00780000 */*%INCLUDE SYSUT5 (DCL ) */ 00781000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00782000 */*%INCLUDE SYSUT5 (PROCESS ) */ 00783000 */*%INCLUDE SYSUT5 (COMMAND ) */ 00784000 */*%INCLUDE SYSUT5 (CONTROL ) */ 00785000 */*%INCLUDE SYSUT5 (RESOURCE) */ 00786000 */*%INCLUDE SYSUT5 (ICINIT ) */ 00787000 */*%INCLUDE SYSUT5 (SWITCHID) */ 00788000 */*%INCLUDE SYSUT5 (MULTILEA) */ 00789000 */*%INCLUDE SYSUT5 (TNTINIT ) */ 00790000 */*%INCLUDE SYSUT5 (TNTMOVE ) */ 00791000 */*%INCLUDE SYSUT5 (SETRSID ) */ 00792000 */*%INCLUDE SYSUT5 (READINIT) */ 00793000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 00794000 * 01S0490 00795000 * ; 01S0490 00796000 @EL00001 DS 0H 01S0490 00797000 @EF00001 DS 0H 01S0490 00798000 @ER00001 BR @14 01S0490 00799000 @DATA DS 0H 00800000 @SM01748 MVC MOVECHAR(0,RPARM),MOVECHAR(@12) 00801000 DS 0F 00802000 DS 0F 00803000 @CF00066 DC F'3' 00804000 @CF00327 DC F'4' 00805000 @CF00071 DC F'6' 00806000 @CF00235 DC F'12' 00807000 @CF01747 DC XL4'0000FFFF' 00808000 @CF01742 DC XL4'FFFF' 00809000 DS 0D 00810000 PREFIXSZ DC AL2(14) 00811000 LENCNR DC AL2(CNRDVBDU-IEDQCNRD) 00812000 OFSENTRY DS CL3 00813000 ORG OFSENTRY 00814000 OFFSET DS FL2 00815000 OFSTATUS DS FL1 00816000 ORG OFSENTRY+3 00817000 RSID DS CL2 00818000 ORG RSID 00819000 RSID1 DS CL1 00820000 RSID2 DS CL1 00821000 ORG RSID+2 00822000 CMDTABLE DS CL44 00823000 ORG CMDTABLE 00824000 CHNLD DS CL4 00825000 ORG CHNLD 00826000 @NM00172 DC X'07' 00827000 @NM00173 DC X'01' 00828000 @NM00174 DC X'01' 00829000 @NM00175 DC X'0A' 00830000 ORG CMDTABLE+4 00831000 BKUP DS CL4 00832000 ORG BKUP 00833000 @NM00176 DC X'03' 00834000 @NM00177 DC X'01' 00835000 @NM00178 DC X'02' 00836000 @NM00179 DC X'0A' 00837000 ORG CMDTABLE+8 00838000 IPLC DS CL4 00839000 ORG IPLC 00840000 @NM00180 DC X'11' 00841000 @NM00181 DC X'01' 00842000 @NM00182 DC X'02' 00843000 @NM00183 DC X'0A' 00844000 ORG CMDTABLE+12 00845000 SWBACK DS CL4 00846000 ORG SWBACK 00847000 @NM00184 DC X'16' 00848000 @NM00185 DC X'01' 00849000 @NM00186 DC X'02' 00850000 @NM00187 DC X'0A' 00851000 ORG CMDTABLE+16 00852000 ACTVTE DS CL4 00853000 ORG ACTVTE 00854000 @NM00188 DC X'22' 00855000 @NM00189 DC X'01' 00856000 @NM00190 DC X'02' 00857000 @NM00191 DC X'0A' 00858000 ORG CMDTABLE+20 00859000 BHSET DS CL4 00860000 ORG BHSET 00861000 @NM00192 DC X'1D' 00862000 @NM00193 DC X'02' 00863000 @NM00194 DC X'01' 00864000 @NM00195 DC X'0A' 00865000 ORG CMDTABLE+24 00866000 CHGSSP DS CL4 00867000 ORG CHGSSP 00868000 @NM00196 DC X'A0' 00869000 @NM00197 DC X'02' 00870000 @NM00198 DC X'02' 00871000 @NM00199 DC X'0A' 00872000 ORG CMDTABLE+28 00873000 CHGNP DS CL4 00874000 ORG CHGNP 00875000 @NM00200 DC X'90' 00876000 @NM00201 DC X'02' 00877000 @NM00202 DC X'03' 00878000 @NM00203 DC X'0A' 00879000 ORG CMDTABLE+32 00880000 SESSNL DS CL4 00881000 ORG SESSNL 00882000 @NM00204 DC X'1E' 00883000 @NM00205 DC X'02' 00884000 @NM00206 DC X'04' 00885000 @NM00207 DC X'0A' 00886000 ORG CMDTABLE+36 00887000 TRANL DS CL4 00888000 ORG TRANL 00889000 @NM00208 DC X'1F' 00890000 @NM00209 DC X'02' 00891000 @NM00210 DC X'05' 00892000 @NM00211 DC X'0A' 00893000 ORG CMDTABLE+40 00894000 SSELCT DS CL4 00895000 ORG SSELCT 00896000 @NM00212 DC X'26' 00897000 @NM00213 DC X'02' 00898000 @NM00214 DC X'06' 00899000 @NM00215 DC X'0A' 00900000 ORG CMDTABLE+44 00901000 ICHNG DS CL4 00902000 ORG ICHNG 00903000 @NM00216 DC X'49' 00904000 ICHNGSEL DS CL3 00905000 ORG ICHNGSEL 00906000 @NM00217 DC X'02' 00907000 @NM00218 DC X'07' 00908000 @NM00219 DC X'0A' 00909000 ORG ICHNG+4 00910000 TCHNG DS CL4 00911000 ORG TCHNG 00912000 @NM00220 DC X'56' 00913000 TCHNGSEL DS CL3 00914000 ORG TCHNGSEL 00915000 @NM00221 DC X'02' 00916000 @NM00222 DC X'08' 00917000 @NM00223 DC X'0A' 00918000 ORG TCHNG+4 00919000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00920000 @01 EQU 01 00921000 @02 EQU 02 00922000 @03 EQU 03 00923000 @04 EQU 04 00924000 @05 EQU 05 00925000 @06 EQU 06 00926000 @07 EQU 07 00927000 @08 EQU 08 00928000 @09 EQU 09 00929000 @10 EQU 10 00930000 @11 EQU 11 00931000 @12 EQU 12 00932000 @13 EQU 13 00933000 @14 EQU 14 00934000 @15 EQU 15 00935000 RCAVT EQU @05 00936000 RCKPT EQU @04 00937000 ROPCE EQU @03 00938000 RPLMV EQU @08 00939000 RAVT EQU @09 00940000 REG00 EQU @00 00941000 RPARM EQU @01 00942000 REG2 EQU @02 00943000 RTAB EQU @06 00944000 RBASE EQU @11 00945000 REG12 EQU @12 00946000 RSAVE EQU @13 00947000 REG14 EQU @14 00948000 REG15 EQU @15 00949000 CVTPTR EQU 16 00950000 IEDQAVTD EQU 0 00951000 AVTSAVEX EQU IEDQAVTD+288 00952000 @NM00003 EQU IEDQAVTD+388 00953000 AVTCKFLG EQU @NM00003 00954000 AVTCKAVT EQU @NM00003+1 00955000 AVTOCGET EQU IEDQAVTD+392 00956000 AVTBASE EQU IEDQAVTD+412 00957000 AVTPKF EQU AVTBASE 00958000 AVTRNMPT EQU IEDQAVTD+424 00959000 AVTHG02 EQU IEDQAVTD+528 00960000 AVTDISP EQU IEDQAVTD+552 00961000 AVTHD EQU IEDQAVTD+556 00962000 AVTSCOPT EQU AVTHD 00963000 AVTSAVTP EQU IEDQAVTD+612 00964000 AVTSAVTF EQU AVTSAVTP 00965000 AVTCKPEL EQU IEDQAVTD+652 00966000 AVTCKRMV EQU AVTCKPEL 00967000 AVTCKELF EQU IEDQAVTD+680 00968000 AVTCKBYT EQU IEDQAVTD+691 00969000 AVTHG01 EQU IEDQAVTD+692 00970000 AVTCKLNK EQU IEDQAVTD+696 00971000 AVTCRELE EQU IEDQAVTD+708 00972000 AVTCCELE EQU AVTCRELE 00973000 AVTCLRHI EQU IEDQAVTD+716 00974000 AVTADBUF EQU IEDQAVTD+720 00975000 AVTSYSER EQU IEDQAVTD+728 00976000 AVTCKPQB EQU IEDQAVTD+804 00977000 AVTCKPTB EQU AVTCKPQB 00978000 AVTCKPEC EQU AVTCKPQB+4 00979000 AVTCKPCC EQU AVTCKPEC 00980000 AVTOPCQB EQU IEDQAVTD+816 00981000 AVTOPCOB EQU AVTOPCQB 00982000 AVTOPCEC EQU AVTOPCQB+4 00983000 AVTOPCCC EQU AVTOPCEC 00984000 AVTOLTQB EQU IEDQAVTD+828 00985000 AVTCWFL1 EQU IEDQAVTD+924 00986000 AVTCWFL2 EQU IEDQAVTD+925 00987000 AVTSUBT EQU IEDQAVTD+948 00988000 AVTIOTR EQU IEDQAVTD+949 00989000 AVTKEYLE EQU IEDQAVTD+1032 00990000 AVTBIT1 EQU IEDQAVTD+1050 00991000 AVTBIT2 EQU IEDQAVTD+1051 00992000 AVTBIT3 EQU IEDQAVTD+1052 00993000 AVTBIT4 EQU IEDQAVTD+1136 00994000 @NM00083 EQU IEDQAVTD+1232 00995000 IEDQAPTR EQU 0 00996000 IEDNSVTD EQU 0 00997000 SAVTDIAG EQU IEDNSVTD 00998000 SAVTDIAF EQU SAVTDIAG 00999000 SAVTLUSQ EQU IEDNSVTD+88 01000000 SAVTMVBF EQU IEDNSVTD+160 01001000 SAVTTCPU EQU IEDNSVTD+238 01002000 SAVTZELM EQU IEDNSVTD+270 01003000 SAVTRDRV EQU IEDNSVTD+284 01004000 SAVTCKQB EQU IEDNSVTD+300 01005000 SAVTCKTB EQU SAVTCKQB 01006000 SAVTCKEC EQU SAVTCKQB+4 01007000 SAVTCKCC EQU SAVTCKEC 01008000 IEDBDU EQU 0 01009000 BDUFNFLG EQU IEDBDU+2 01010000 BDUBDUFG EQU IEDBDU+3 01011000 BDURSP EQU IEDBDU+4 01012000 BDUSYRSP EQU BDURSP 01013000 BDUEXRSP EQU BDURSP+1 01014000 BDUEND EQU IEDBDU+6 01015000 IEDQCKAD EQU 0 01016000 CAVTTCWA EQU IEDQCKAD 01017000 CAVTNWA EQU IEDQCKAD+4 01018000 CAVTWTG EQU IEDQCKAD+8 01019000 CAVTWL1 EQU IEDQCKAD+12 01020000 CAVTWL2 EQU CAVTWL1+8 01021000 CAVTCRIO EQU IEDQCKAD+28 01022000 IEDQCKPD EQU 0 01023000 CKPSAVE1 EQU IEDQCKPD 01024000 CKPIOB EQU IEDQCKPD+72 01025000 CKPIOECB EQU CKPIOB+4 01026000 CKPIOSK EQU CKPIOB+32 01027000 CKPEXCP EQU IEDQCKPD+116 01028000 CKPECBL EQU IEDQCKPD+120 01029000 CKPCNVRT EQU CKPECBL 01030000 CKPIOQL EQU IEDQCKPD+132 01031000 @NM00107 EQU CKPIOQL 01032000 CKPCTTRB EQU IEDQCKPD+144 01033000 CKPCRLEN EQU IEDQCKPD+160 01034000 CKPCCWS EQU IEDQCKPD+168 01035000 CKPTIC EQU CKPCCWS+24 01036000 CKPRW EQU CKPCCWS+32 01037000 CKPRWCMD EQU CKPRW 01038000 CKPRWADD EQU CKPRW+1 01039000 CKPRWBC EQU CKPRW+6 01040000 @NM00110 EQU IEDQCKPD+208 01041000 CKPGETML EQU @NM00110 01042000 CKPMSG EQU IEDQCKPD+220 01043000 CKPMSGTX EQU CKPMSG+4 01044000 CKPMSGTP EQU CKPMSG+41 01045000 CKPCNTLR EQU IEDQCKPD+288 01046000 CKPFLAGS EQU CKPCNTLR 01047000 CKPPRQNO EQU CKPCNTLR+17 01048000 IEDQCDRD EQU 0 01049000 CDRTTRLI EQU IEDQCDRD+9 01050000 CDRDATA EQU IEDQCDRD+12 01051000 IEDQCRED EQU 0 01052000 CRELINK EQU IEDQCRED+4 01053000 CREOFFS EQU IEDQCRED+12 01054000 CKPREQTB EQU 0 01055000 CKPCTFLG EQU CKPREQTB 01056000 CKPNRES EQU 0 01057000 CKPNFLG EQU CKPNRES+4 01058000 CKPAVT EQU 0 01059000 IEDQCNRD EQU 0 01060000 CNRDATTM EQU IEDQCNRD+2 01061000 CNRCNTL EQU IEDQCNRD+10 01062000 CNRBHSET EQU IEDQCNRD+12 01063000 CNRBHFUN EQU CNRBHSET 01064000 CNRDEVRC EQU IEDQCNRD+19 01065000 RCKPREC EQU 0 01066000 IEDNCP EQU 0 01067000 NCPFLAG1 EQU IEDNCP+1 01068000 NCPREST EQU NCPFLAG1 01069000 NCPTRACE EQU NCPFLAG1 01070000 NCPBKUPN EQU IEDNCP+2 01071000 NCPTXID EQU IEDNCP+10 01072000 IEDQOPCE EQU 0 01073000 OCELEM EQU IEDQOPCE+4 01074000 OCUNIT EQU IEDQOPCE+8 01075000 OCRUDEST EQU OCUNIT 01076000 OCCKPKEY EQU OCRUDEST 01077000 OCSCAN EQU OCCKPKEY 01078000 OCOPTCDE EQU IEDQOPCE+12 01079000 OCSWITCH EQU IEDQOPCE+13 01080000 OCFLAG EQU IEDQOPCE+14 01081000 @NM00133 EQU IEDQOPCE+16 01082000 OCDEST EQU @NM00133 01083000 OCREQVAL EQU OCDEST+1 01084000 OCTRMTBL EQU IEDQOPCE+20 01085000 OCLINENO EQU IEDQOPCE+22 01086000 OCTIOT EQU OCLINENO 01087000 OCTRUNIT EQU IEDQOPCE+24 01088000 OCRSID EQU OCTRUNIT 01089000 OCALSTAT EQU OCRSID 01090000 OCPARM EQU IEDQOPCE+28 01091000 OCBACKUP EQU IEDQOPCE+32 01092000 OCMODNME EQU IEDQOPCE+40 01093000 OCIPLWA EQU OCMODNME 01094000 OCCKDATA EQU IEDQOPCE+48 01095000 OCRSTGTM EQU OCCKDATA 01096000 IEDQOPCN EQU 0 01097000 OCLDNME EQU IEDQOPCN 01098000 OCLINTTE EQU OCLDNME 01099000 OCREQFLG EQU OCLINTTE+2 01100000 OCPREFLG EQU OCLINTTE+3 01101000 IEDQOPCD EQU 0 01102000 OPCAQCTL EQU IEDQOPCD+180 01103000 OPCLDNME EQU IEDQOPCD+212 01104000 OPCCKPTF EQU IEDQOPCD+248 01105000 OPCSPEC EQU IEDQOPCD+300 01106000 ROPCAVT EQU 0 01107000 IEDPLMV EQU 0 01108000 PLMVTU EQU IEDPLMV 01109000 PLMVTD EQU IEDPLMV+4 01110000 PLMVSU EQU IEDPLMV+8 01111000 PLMVSD EQU IEDPLMV+12 01112000 PLMVLNTH EQU IEDPLMV+16 01113000 PLMVFLG1 EQU IEDPLMV+18 01114000 PLMVFLG2 EQU IEDPLMV+19 01115000 PLMVUNCA EQU IEDPLMV+20 01116000 IEDPLMVP EQU 0 01117000 IEDPRUQD EQU 0 01118000 PRUTTCIN EQU IEDPRUQD 01119000 PRUDATCT EQU IEDPRUQD+2 01120000 PRUTIC EQU IEDPRUQD+8 01121000 PRUDATA EQU IEDPRUQD+12 01122000 IEDPRUND EQU 0 01123000 PRURHTH EQU IEDPRUND 01124000 PRURH EQU PRURHTH 01125000 PRURHFG0 EQU PRURH 01126000 PRURHFG1 EQU PRURH+1 01127000 PRURHFG2 EQU PRURH+2 01128000 PRUTH EQU PRURHTH+3 01129000 PRUFIDN EQU PRUTH 01130000 IEDTRM EQU 0 01131000 IEDNTRM EQU IEDTRM 01132000 TRMBYTE4 EQU IEDNTRM 01133000 TRMBYTE3 EQU IEDNTRM+1 01134000 TRMBYTE2 EQU IEDNTRM+2 01135000 TRMINPG EQU TRMBYTE2 01136000 TRMBYTE1 EQU IEDNTRM+3 01137000 TRMSCPRQ EQU TRMBYTE1 01138000 TRMCKPRN EQU TRMBYTE1 01139000 TRMBYTE0 EQU IEDNTRM+6 01140000 TRMSIBPT EQU IEDNTRM+7 01141000 IEDQTRM EQU IEDTRM+14 01142000 TRMSTATE EQU IEDQTRM 01143000 TRMLOG EQU TRMSTATE 01144000 TRMINSEQ EQU IEDQTRM+4 01145000 TLISTCNT EQU TRMINSEQ 01146000 TRMOUTSQ EQU IEDQTRM+6 01147000 TLISTEN EQU TRMOUTSQ 01148000 TRMDSORG EQU TLISTEN 01149000 TRMALTD EQU IEDQTRM+8 01150000 TRMDEVFL EQU IEDQTRM+10 01151000 TRMSTAT EQU IEDQTRM+12 01152000 RTRM EQU 0 01153000 MOVECHAR EQU 0 01154000 IEDMVBFR EQU 0 01155000 IEDQNW EQU 0 01156000 IEDQTNT EQU 0 01157000 ICTNT EQU 0 01158000 ICTNTTIC EQU ICTNT+8 01159000 ICTNTDAT EQU ICTNT+12 01160000 ICTNTCTL EQU ICTNTDAT 01161000 ICTNTNO EQU ICTNTCTL 01162000 ICTNTNU EQU ICTNTCTL+2 01163000 ICTNTOFF EQU ICTNTDAT+3 01164000 MULTIPNT EQU 0 01165000 MULRCDS EQU MULTIPNT+4 01166000 LEASED EQU 0 01167000 LEARCD EQU LEASED+2 01168000 DEVRCD EQU 0 01169000 DEVLEN EQU DEVRCD 01170000 DEVID EQU DEVRCD+1 01171000 TABENTRY EQU 0 01172000 CMDID EQU TABENTRY 01173000 TABSELCT EQU TABENTRY+1 01174000 CNTTDU EQU TABSELCT+1 01175000 CKPINIT EQU CKPEXCP 01176000 CKPTWA EQU CKPMSGTX 01177000 CKPSAVE2 EQU CKPTWA 01178000 CKPTRMAD EQU CKPTWA+60 01179000 CKPNCNTL EQU CKPCNTLR 01180000 CKPTRSTA EQU CKPNCNTL+2 01181000 CKPIPLTX EQU CKPNCNTL+4 01182000 CKPBLKSZ EQU CKPNCNTL+12 01183000 CKPTRKCN EQU CKPNCNTL+16 01184000 CKPDATTM EQU CKPNCNTL+22 01185000 CKPDATE EQU CKPDATTM 01186000 CKPTIME EQU CKPDATTM+4 01187000 CKPBCKUP EQU CKPNCNTL+30 01188000 CKPNFLDS EQU CKPEXCP 01189000 CKPENCDE EQU CKPNFLDS+7 01190000 CKPNDEVF EQU CKPNFLDS+12 01191000 CKPNSELT EQU CKPNFLDS+16 01192000 CKPCUSEL EQU CKPNSELT 01193000 CKPSLNEW EQU CKPNSELT+1 01194000 CKPNTRK EQU CKPNFLDS+20 01195000 CKPNRSID EQU CKPNFLDS+22 01196000 CKPSLVAL EQU CKPNSELT 01197000 CKPOVER EQU CKPMSGTP+1 01198000 CKPOPNFL EQU CKPFLAGS 01199000 CDRINCFM EQU CDRTTRLI 01200000 CDRCREQR EQU IEDQCDRD 01201000 CDRCKFLG EQU CDRCREQR 01202000 OCCKPKY1 EQU OCCKPKEY 01203000 OCCKPTYP EQU OCCKPKY1 01204000 OCICACTN EQU OCMODNME 01205000 OCICDADR EQU OCICACTN 01206000 OCICTYPE EQU OCICDADR 01207000 OCICSW EQU OCICDADR+3 01208000 OPCAQWD EQU OPCAQCTL 01209000 OPCAQWD1 EQU OPCAQWD 01210000 OPCAQWD2 EQU OPCAQWD+4 01211000 OPCAQWD3 EQU OPCAQWD+8 01212000 IEDPRUQP EQU PLMVSU 01213000 TRMPRE1 EQU TRMBYTE4 01214000 TRMPRE EQU TRMBYTE3 01215000 TRMNCP EQU TRMBYTE3 01216000 TRMPU EQU TRMBYTE3 01217000 TRMLU EQU TRMBYTE3 01218000 TRMLINK EQU TRMBYTE3 01219000 ICCKPT EQU CKPSAVE2+8 01220000 CKPTNTUN EQU ICCKPT 01221000 CKPTNTPT EQU ICCKPT+4 01222000 CKPTNTLN EQU ICCKPT+8 01223000 CKPTNTNB EQU ICCKPT+10 01224000 CKPTC EQU ICCKPT+12 01225000 CKPTTCIN EQU CKPTC 01226000 CKPDATCT EQU CKPTC+2 01227000 CNRDVDAT EQU CNRDEVRC 01228000 CNRDVPRF EQU CNRDVDAT 01229000 CNRDVTC EQU CNRDVPRF 01230000 CNRDVBDU EQU CNRDVDAT+12 01231000 BDUTEXT EQU BDUEND 01232000 CDROPCB EQU CDRDATA 01233000 CKPMSGPN EQU CKPMSGTP+6 01234000 CKPTTRLT EQU CKPTIC+5 01235000 OCCIB EQU OCREQVAL 01236000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01237000 CNRDVRCD EQU CNRDVDAT+18 01238000 @NM00170 EQU CNRDVPRF+4 01239000 CNRDVC EQU CNRDVTC+2 01240000 CNRDVT EQU CNRDVTC 01241000 @NM00169 EQU TRMLINK 01242000 TRMLSTAT EQU TRMLINK 01243000 TRMLINT EQU TRMLINK 01244000 TRMEPMOD EQU TRMLINK 01245000 TRMLULOG EQU TRMLU 01246000 TRMINERR EQU TRMLU 01247000 TRMLUREQ EQU TRMLU 01248000 TRMSESRQ EQU TRMLU 01249000 TRMTDIFF EQU TRMLU 01250000 TRMLUTM EQU TRMLU 01251000 TRMLUIT EQU TRMLU 01252000 TRMAUTO EQU TRMLU 01253000 TRMPCONT EQU TRMPU 01254000 @NM00168 EQU TRMPU 01255000 TRMNCONT EQU TRMNCP 01256000 TRMQUCKN EQU TRMNCP 01257000 TRMSLOWN EQU TRMNCP 01258000 TRMSYGEN EQU TRMNCP 01259000 TRMNCPCL EQU TRMNCP 01260000 TRMIPLDM EQU TRMNCP 01261000 TRMINOUT EQU TRMPRE 01262000 TRMRDOUT EQU TRMPRE 01263000 TRMNLOUT EQU TRMPRE 01264000 TRMWROUT EQU TRMPRE 01265000 TRMASNXI EQU TRMPRE 01266000 TRMSTMM EQU TRMPRE 01267000 TRMCMODE EQU TRMPRE 01268000 TRMSTPND EQU TRMPRE 01269000 TRMLYNCH EQU TRMPRE1 01270000 TRMSPOUT EQU TRMPRE1 01271000 TRMERLCK EQU TRMPRE1 01272000 TRMQNPL EQU TRMPRE1 01273000 TRMSPACT EQU TRMPRE1 01274000 TRMOCNI EQU TRMPRE1 01275000 TRMSESSN EQU TRMPRE1 01276000 TRMCONT EQU TRMPRE1 01277000 OPCAQLST EQU OPCAQWD3+1 01278000 OPCAQRQ3 EQU OPCAQWD3 01279000 OPCAQSEC EQU OPCAQWD2+1 01280000 OPCAQRQ2 EQU OPCAQWD2 01281000 OPCAQFST EQU OPCAQWD1+1 01282000 OPCAQREQ EQU OPCAQWD1 01283000 OCICINAC EQU OCICSW 01284000 @NM00139 EQU OCICSW 01285000 OCICATST EQU OCICDADR+1 01286000 @NM00138 EQU OCCKPKY1 01287000 OCCKPENV EQU OCCKPKY1 01288000 OCCKPRST EQU OCCKPTYP 01289000 OCCKPNCP EQU OCCKPTYP 01290000 OCCKPINC EQU OCCKPTYP 01291000 CDRCKOPT EQU CDRCREQR+41 01292000 CDRCKPQB EQU CDRCREQR+38 01293000 CDRCKQCB EQU CDRCREQR+17 01294000 CDRCKQBC EQU CDRCREQR+14 01295000 CDRCKMSG EQU CDRCREQR+12 01296000 CDRCKOFF EQU CDRCREQR+10 01297000 @NM00124 EQU CDRCREQR+9 01298000 @NM00123 EQU CDRCREQR+8 01299000 CDRCKOUT EQU CDRCREQR+6 01300000 CDRCKIN EQU CDRCREQR+4 01301000 @NM00122 EQU CDRCREQR+1 01302000 CDRCKRNC EQU CDRCKFLG 01303000 CDROPTN EQU CDRINCFM+7 01304000 CDRSEQOU EQU CDRINCFM+5 01305000 CDRSEQIN EQU CDRINCFM+3 01306000 CDROFFS EQU CDRINCFM+1 01307000 CDRSTAT EQU CDRINCFM 01308000 @NM00121 EQU CKPOPNFL 01309000 CKPOPNCR EQU CKPOPNFL 01310000 CKPOPNIN EQU CKPOPNFL 01311000 CKPOPNEN EQU CKPOPNFL 01312000 @NM00120 EQU CKPOPNFL 01313000 CKPTRKSA EQU CKPOVER+4 01314000 CKPTRKLN EQU CKPOVER+2 01315000 CKPRCDSR EQU CKPOVER 01316000 CKPNTTE EQU CKPNFLDS+8 01317000 @NM00119 EQU CKPNFLDS 01318000 @NM00118 EQU CKPNCNTL+21 01319000 CKPBLKPT EQU CKPNCNTL+20 01320000 @NM00117 EQU CKPNCNTL+18 01321000 @NM00116 EQU CKPNCNTL+14 01322000 CKPSWTCH EQU CKPNCNTL+3 01323000 @NM00115 EQU CKPNCNTL 01324000 CKPCTTRA EQU CKPINIT+24 01325000 @NM00114 EQU CKPINIT+22 01326000 CKPIPERE EQU CKPINIT+20 01327000 CKPDATIM EQU CKPINIT+12 01328000 CKPCTTRC EQU CKPINIT+8 01329000 CKPDATLN EQU CKPINIT+6 01330000 CKPKEYLN EQU CKPINIT+5 01331000 CKPRCDNO EQU CKPINIT+4 01332000 CKPHEDNO EQU CKPINIT+2 01333000 CKPCYLNO EQU CKPINIT 01334000 NOTIFY EQU TABSELCT+2 01335000 RESPATH EQU CNTTDU 01336000 TYPE EQU TABSELCT 01337000 DEVDATA EQU DEVRCD+3 01338000 LEADESC EQU LEASED+1 01339000 LEANCPLV EQU LEASED 01340000 MULCURNB EQU MULTIPNT+3 01341000 MULMAX EQU MULTIPNT+2 01342000 MULDESC EQU MULTIPNT+1 01343000 MULNCPLV EQU MULTIPNT 01344000 @NM00171 EQU ICTNT 01345000 TRMOPT EQU IEDTRM+34 01346000 TRMOPTBL EQU IEDQTRM+18 01347000 TRMOPNO EQU IEDQTRM+17 01348000 TRMCHCIN EQU IEDQTRM+16 01349000 TRMSENSE EQU TRMSTAT+3 01350000 TRMTEMPR EQU TRMSTAT+2 01351000 TRMSIO EQU TRMSTAT 01352000 @NM00167 EQU TRMDEVFL+1 01353000 TRMTPIN EQU TRMDEVFL+1 01354000 TRMNCPI EQU TRMDEVFL+1 01355000 TRMRNTRM EQU TRMDEVFL+1 01356000 @NM00166 EQU TRMDEVFL+1 01357000 TRMLMD EQU TRMDEVFL+1 01358000 TRMCONC EQU TRMDEVFL+1 01359000 TRMTSOB EQU TRMDEVFL 01360000 TRMBFDY EQU TRMDEVFL 01361000 TRMTBLK EQU TRMDEVFL 01362000 TRMSBLK EQU TRMDEVFL 01363000 TRMBLKS EQU TRMDEVFL 01364000 TRMADDC EQU TRMDEVFL 01365000 TRMDDIG EQU TRMDEVFL 01366000 TRMBUFS EQU TRMDEVFL 01367000 TRMPRILK EQU TRMALTD 01368000 TRMLGB EQU TRMDSORG 01369000 TRMUTERM EQU TLISTCNT 01370000 TRMDESTQ EQU IEDQTRM+1 01371000 TRMSCNYN EQU TRMSTATE 01372000 TRMOPTFN EQU TRMSTATE 01373000 TRMHELDN EQU TRMSTATE 01374000 TRMACPTN EQU TRMSTATE 01375000 TRMPREF EQU TRMSTATE 01376000 TRMPROC EQU TRMLOG 01377000 TRMLIST EQU TRMLOG 01378000 TRMLINE EQU TRMSTATE 01379000 TRMSUBST EQU IEDNTRM+12 01380000 TRMTYPE EQU IEDNTRM+11 01381000 TRMRLMCT EQU IEDNTRM+10 01382000 TRMCOHTG EQU TRMSIBPT+1 01383000 TRMGPCNT EQU TRMSIBPT 01384000 TRMBUFRD EQU TRMBYTE0 01385000 TRMSNA EQU TRMBYTE0 01386000 TRMGP EQU TRMBYTE0 01387000 TRMDIAL EQU TRMBYTE0 01388000 @NM00165 EQU TRMBYTE0 01389000 TRMOUTPT EQU TRMBYTE0 01390000 TRMINPUT EQU TRMBYTE0 01391000 TRMUDEF EQU TRMBYTE0 01392000 TRMCOHRT EQU IEDNTRM+4 01393000 TRMSTOTE EQU TRMBYTE1 01394000 TRMTSATN EQU TRMBYTE1 01395000 TRMTRACE EQU TRMBYTE1 01396000 TRMSWBCK EQU TRMBYTE1 01397000 TRMAUTOC EQU TRMBYTE1 01398000 TRMINPTP EQU TRMBYTE1 01399000 TRMWTNEG EQU TRMSCPRQ 01400000 TRMWRBRK EQU TRMBYTE2 01401000 TRMNOSND EQU TRMBYTE2 01402000 TRMPREP EQU TRMBYTE2 01403000 TRMGPACT EQU TRMBYTE2 01404000 TRMANDL EQU TRMBYTE2 01405000 TRMCLOSN EQU TRMINPG 01406000 TRMREMB EQU TRMBYTE2 01407000 TRMRSACT EQU TRMBYTE2 01408000 @NM00164 EQU IEDPRUND+4 01409000 PRUTHEFI EQU PRUFIDN 01410000 PRUTHUSS EQU PRUFIDN 01411000 PRUTHEIU EQU PRUFIDN 01412000 PRUTHBIU EQU PRUFIDN 01413000 PRUTHTYE EQU PRUFIDN 01414000 @NM00163 EQU PRURHFG2 01415000 PRURHCSI EQU PRURHFG2 01416000 @NM00162 EQU PRURHFG2 01417000 PRURHCDI EQU PRURHFG2 01418000 PRURHEB EQU PRURHFG2 01419000 PRURHBB EQU PRURHFG2 01420000 PRURHPI EQU PRURHFG1 01421000 @NM00161 EQU PRURHFG1 01422000 PRURHER EQU PRURHFG1 01423000 PRURHDR2 EQU PRURHFG1 01424000 @NM00160 EQU PRURHFG1 01425000 PRURHDR1 EQU PRURHFG1 01426000 PRURHEC EQU PRURHFG0 01427000 PRURHBC EQU PRURHFG0 01428000 PRURHSDI EQU PRURHFG0 01429000 PRURHFI EQU PRURHFG0 01430000 @NM00159 EQU PRURHFG0 01431000 PRURUCAT EQU PRURHFG0 01432000 PRURHTYP EQU PRURHFG0 01433000 PRUNUNIT EQU PRUTIC+1 01434000 @NM00158 EQU PRUTIC 01435000 @NM00157 EQU IEDPRUQD+4 01436000 @NM00156 EQU PLMVFLG1 01437000 PLMVTCTG EQU PLMVFLG1 01438000 PLMVSCTG EQU PLMVFLG1 01439000 PLMVUNCF EQU PLMVFLG1 01440000 OPCBOTTM EQU IEDQOPCD+1172 01441000 @NM00155 EQU IEDQOPCD+1088 01442000 @NM00154 EQU IEDQOPCD+936 01443000 @NM00153 EQU IEDQOPCD+928 01444000 @NM00152 EQU IEDQOPCD+368 01445000 OPCWAITV EQU IEDQOPCD+364 01446000 OPCTOTCK EQU IEDQOPCD+360 01447000 OPCAPXTL EQU IEDQOPCD+356 01448000 OPCDECR EQU IEDQOPCD+352 01449000 OPCBUFWT EQU IEDQOPCD+348 01450000 OPCWRKSP EQU IEDQOPCD+320 01451000 OPCADGOT EQU IEDQOPCD+318 01452000 OPCRQCNT EQU IEDQOPCD+316 01453000 OPPOLSTP EQU IEDQOPCD+312 01454000 OPCCKCIB EQU IEDQOPCD+308 01455000 OPCEND EQU IEDQOPCD+307 01456000 OPCSTCBS EQU IEDQOPCD+306 01457000 OPCHNEND EQU IEDQOPCD+302 01458000 OPCOQSW EQU IEDQOPCD+301 01459000 @NM00151 EQU OPCSPEC 01460000 @NM00150 EQU OPCSPEC 01461000 @NM00149 EQU OPCSPEC 01462000 @NM00148 EQU OPCSPEC 01463000 OPCFRMCA EQU OPCSPEC 01464000 OPCRSTRT EQU OPCSPEC 01465000 OPCPART EQU OPCSPEC 01466000 OPCALTD EQU OPCSPEC 01467000 OPCBFEND EQU IEDQOPCD+296 01468000 OPCBFIRS EQU IEDQOPCD+292 01469000 OPCAVBUF EQU IEDQOPCD+290 01470000 @NM00147 EQU IEDQOPCD+289 01471000 OPCCLNTS EQU IEDQOPCD+288 01472000 OPCHA8 EQU IEDQOPCD+286 01473000 OPCBFREQ EQU IEDQOPCD+284 01474000 OPCFREBF EQU IEDQOPCD+280 01475000 OPCGETBF EQU IEDQOPCD+276 01476000 OPCNEXT EQU IEDQOPCD+272 01477000 OPCFMDFC EQU IEDQOPCD+268 01478000 OPCSCNC EQU IEDQOPCD+264 01479000 OPCHORTG EQU IEDQOPCD+260 01480000 OPCHORT EQU IEDQOPCD+256 01481000 OPCCKPTL EQU IEDQOPCD+252 01482000 OPCWAITA EQU IEDQOPCD+244 01483000 OPCWAITR EQU IEDQOPCD+240 01484000 OPCWAITP EQU IEDQOPCD+236 01485000 OPCWAITO EQU IEDQOPCD+232 01486000 OPCWAITN EQU IEDQOPCD+228 01487000 OPCWAITL EQU IEDQOPCD+224 01488000 OPCWAITC EQU IEDQOPCD+220 01489000 @NM00146 EQU OPCLDNME+5 01490000 OPCMODID EQU OPCLDNME+3 01491000 @NM00145 EQU OPCLDNME 01492000 OPCXCTL EQU IEDQOPCD+204 01493000 OPCWAIT EQU IEDQOPCD+192 01494000 OPCCKERB EQU IEDQOPCD+164 01495000 OPCBFERB EQU IEDQOPCD+148 01496000 OPCFLAG2 EQU IEDQOPCD+147 01497000 OPCFLAG1 EQU IEDQOPCD+146 01498000 OPCWRKSZ EQU IEDQOPCD+144 01499000 OPCWORK EQU IEDQOPCD+140 01500000 OPCRSAVE EQU IEDQOPCD+132 01501000 OPCQCBAD EQU IEDQOPCD+128 01502000 OPCSAVE EQU IEDQOPCD+56 01503000 OPCTRMWA EQU IEDQOPCD+52 01504000 OPCPSTWT EQU IEDQOPCD+48 01505000 OPCTNTEA EQU IEDQOPCD+44 01506000 OPCPGCK EQU IEDQOPCD+40 01507000 OPCLCB EQU IEDQOPCD+36 01508000 @NM00144 EQU IEDQOPCD+32 01509000 OPCIPLAD EQU IEDQOPCD+28 01510000 OPCTOFLK EQU IEDQOPCD+24 01511000 OPCOPTLK EQU IEDQOPCD+20 01512000 OPCDCBLK EQU IEDQOPCD+16 01513000 OPCCOPCE EQU IEDQOPCD+12 01514000 OPCAVTPT EQU IEDQOPCD+8 01515000 OPCDOUBL EQU IEDQOPCD 01516000 @NM00143 EQU OCLDNME+4 01517000 @NM00142 EQU OCPREFLG 01518000 OCTOTEP EQU OCPREFLG 01519000 OCREPOST EQU OCPREFLG 01520000 OCRSPSNT EQU OCPREFLG 01521000 OCBFREQ EQU OCPREFLG 01522000 OCIDLE EQU OCREQFLG 01523000 OCFORCE EQU OCREQFLG 01524000 OCDCARD EQU OCREQFLG 01525000 OCPARTAL EQU OCREQFLG 01526000 OCADNCP EQU OCREQFLG 01527000 @NM00141 EQU OCREQFLG 01528000 @NM00140 EQU OCREQFLG 01529000 OCFLUSHZ EQU OCREQFLG 01530000 OCRESPCT EQU OCLINTTE 01531000 OCCKPTWA EQU OCCKDATA+4 01532000 @NM00137 EQU OCRSTGTM+2 01533000 OCCKDAT2 EQU OCRSTGTM+1 01534000 OCCKDAT1 EQU OCRSTGTM 01535000 OCPTRSAV EQU OCMODNME+4 01536000 OCPUADR EQU OCIPLWA+2 01537000 OCWTGSAV EQU OCIPLWA 01538000 OCDVRDCT EQU OCBACKUP+6 01539000 OCNCP EQU OCBACKUP+4 01540000 OCBUFGOT EQU OCBACKUP+2 01541000 OCBUFNED EQU OCBACKUP 01542000 OCWTG EQU IEDQOPCE+30 01543000 OCRESNUM EQU OCPARM 01544000 OCSEQ EQU OCTRUNIT+2 01545000 @NM00136 EQU OCRSID+1 01546000 OCNONE EQU OCALSTAT 01547000 OCSOME EQU OCALSTAT 01548000 OCALLFLG EQU OCALSTAT 01549000 OCACTREQ EQU OCALSTAT 01550000 OCREDRVE EQU OCALSTAT 01551000 OCSEQIND EQU OCALSTAT 01552000 @NM00135 EQU OCALSTAT 01553000 OCRENTRD EQU OCALSTAT 01554000 OCWTGB EQU OCTIOT 01555000 @NM00134 EQU @NM00133+2 01556000 OCCONID EQU OCDEST 01557000 OCRLN EQU IEDQOPCE+15 01558000 OCRESP EQU OCFLAG 01559000 OCATTACH EQU OCFLAG 01560000 OCSSCP EQU OCFLAG 01561000 OCOUTPUT EQU OCFLAG 01562000 OCLINE EQU OCFLAG 01563000 OCMPP EQU OCFLAG 01564000 OCTOTE EQU OCFLAG 01565000 OCCONSOL EQU OCFLAG 01566000 @NM00132 EQU OCSWITCH 01567000 OCQUCKN EQU OCSWITCH 01568000 OCPRIFLG EQU OCOPTCDE 01569000 @NM00131 EQU OCRUDEST+1 01570000 @NM00130 EQU OCSCAN 01571000 OCNOTUCB EQU OCSCAN 01572000 OCNONAME EQU OCSCAN 01573000 OCALLRLN EQU OCSCAN 01574000 OCDDNAME EQU OCSCAN 01575000 OCDDNRLN EQU OCSCAN 01576000 OCADDR EQU OCSCAN 01577000 OCELMPTR EQU OCELEM+1 01578000 OCELMPRI EQU OCELEM 01579000 OCLINK EQU IEDQOPCE 01580000 NCPLTRAC EQU IEDNCP+26 01581000 NCPCKPT EQU IEDNCP+22 01582000 NCPDPDCB EQU IEDNCP+18 01583000 @NM00129 EQU NCPFLAG1 01584000 NCPBKUP EQU NCPFLAG1 01585000 NCPIPLD EQU NCPFLAG1 01586000 NCPBGUP EQU NCPFLAG1 01587000 NCPDAUTO EQU NCPFLAG1 01588000 NCPIAUTO EQU NCPFLAG1 01589000 NCPLEN EQU IEDNCP 01590000 CNRMSSEL EQU IEDQCNRD+18 01591000 CNRCTLIM EQU IEDQCNRD+17 01592000 CNRCSLIM EQU IEDQCNRD+16 01593000 CNRNEGPL EQU IEDQCNRD+15 01594000 CNRSSPAU EQU IEDQCNRD+14 01595000 CNRBHPOS EQU CNRBHSET+1 01596000 @NM00128 EQU CNRBHFUN 01597000 CNRBHFN0 EQU CNRBHFUN 01598000 @NM00127 EQU CNRCNTL+1 01599000 CNRFRDR EQU CNRCNTL 01600000 CNRFMSS EQU CNRCNTL 01601000 CNRFCTL EQU CNRCNTL 01602000 CNRFCSL EQU CNRCNTL 01603000 CNRFNPL EQU CNRCNTL 01604000 CNRFSSP EQU CNRCNTL 01605000 CNRFBHSC EQU CNRCNTL 01606000 CNRFBHS EQU CNRCNTL 01607000 CNRTIME EQU CNRDATTM+4 01608000 CNRDATE EQU CNRDATTM 01609000 CNRTNTOF EQU IEDQCNRD 01610000 CKPIOTR EQU CKPAVT+21 01611000 CKPSUBT EQU CKPAVT+20 01612000 CKPLODPT EQU CKPAVT+16 01613000 CKPRADDR EQU CKPAVT+12 01614000 CKPNADDR EQU CKPAVT+8 01615000 CKPBIT2 EQU CKPAVT+7 01616000 CKPBIT1 EQU CKPAVT+6 01617000 CKPINTLV EQU CKPAVT+4 01618000 CKPOPCIN EQU CKPAVT+2 01619000 CKPOPCON EQU CKPAVT 01620000 CKPTYPE EQU CKPNRES+5 01621000 @NM00126 EQU CKPNFLG 01622000 CKPLULOG EQU CKPNFLG 01623000 CKPEPMOD EQU CKPNFLG 01624000 CKPRSACT EQU CKPNFLG 01625000 CKPREMB EQU CKPNFLG 01626000 CKPCOHRT EQU CKPNRES+2 01627000 CKPSUBST EQU CKPNRES 01628000 CKPCTSEC EQU CKPREQTB+6 01629000 CKPCTOFF EQU CKPREQTB+4 01630000 CKPCTTTR EQU CKPREQTB+1 01631000 CKPCTDER EQU CKPCTFLG 01632000 CKPCTACT EQU CKPCTFLG 01633000 CREDEB EQU CREOFFS 01634000 CREECB EQU IEDQCRED+8 01635000 @NM00125 EQU CRELINK+1 01636000 CREPRI EQU CRELINK 01637000 CREQCBAD EQU IEDQCRED+1 01638000 CREKEY EQU IEDQCRED 01639000 CDRKEY EQU IEDQCDRD+8 01640000 CDRTIME EQU IEDQCDRD+4 01641000 CDRDATE EQU IEDQCDRD 01642000 CKPSECT1 EQU CKPCNTLR+37 01643000 CKPTTRT1 EQU CKPCNTLR+34 01644000 CKPSECIN EQU CKPCNTLR+32 01645000 CKPSECCR EQU CKPCNTLR+30 01646000 CKPSECLI EQU CKPCNTLR+28 01647000 CKPSECLT EQU CKPCNTLR+26 01648000 CKPINCLN EQU CKPCNTLR+24 01649000 CKPTTRLI EQU CKPCNTLR+21 01650000 CKPRPERT EQU CKPCNTLR+20 01651000 CKPCKRLN EQU CKPCNTLR+18 01652000 CKPCPERT EQU CKPPRQNO 01653000 CKPIPERT EQU CKPCNTLR+16 01654000 CKPCPRCD EQU CKPCNTLR+15 01655000 CKPCKRQS EQU CKPCNTLR+14 01656000 CKPBPERR EQU CKPCNTLR+12 01657000 CKPTTRIN EQU CKPCNTLR+9 01658000 CKPINRNO EQU CKPCNTLR+8 01659000 CKPTTRCR EQU CKPCNTLR+5 01660000 CKPCRRNO EQU CKPCNTLR+4 01661000 CKPINCNO EQU CKPCNTLR+3 01662000 CKPINCNT EQU CKPCNTLR+2 01663000 CKPTTRCT EQU CKPCNTLR+1 01664000 CKPOPCRD EQU CKPFLAGS 01665000 CKPOPTFN EQU CKPFLAGS 01666000 CKPSTAIN EQU CKPFLAGS 01667000 CKPERR EQU CKPFLAGS 01668000 @NM00113 EQU CKPFLAGS 01669000 CKPFSCN2 EQU CKPFLAGS 01670000 CKPFSCN1 EQU CKPFLAGS 01671000 CKPNORML EQU CKPFLAGS 01672000 @NM00112 EQU CKPMSG+65 01673000 CKPMSGGL EQU CKPMSG+61 01674000 @NM00111 EQU CKPMSG+2 01675000 CKPMSGLN EQU CKPMSG 01676000 CKPWKALN EQU @NM00110+10 01677000 @NM00109 EQU CKPRW+5 01678000 CKPRWFLG EQU CKPRW+4 01679000 CKPSCHID EQU CKPCCWS+16 01680000 CKPSETSC EQU CKPCCWS+8 01681000 CKPSEEKC EQU CKPCCWS 01682000 @NM00108 EQU IEDQCKPD+164 01683000 CKPERRCT EQU IEDQCKPD+163 01684000 CKPSWCH2 EQU IEDQCKPD+162 01685000 CKPSWCH1 EQU IEDQCKPD+161 01686000 CKPPARM2 EQU IEDQCKPD+156 01687000 CKPCPARM EQU IEDQCKPD+148 01688000 CKPSECTR EQU CKPCTTRB 01689000 CKPLDRB EQU IEDQCKPD+140 01690000 CKPLREB EQU IEDQCKPD+136 01691000 CKPNDRB EQU @NM00107 01692000 CKPIOQF EQU IEDQCKPD+128 01693000 CKPEPLOC EQU CKPCNVRT 01694000 CKPECB EQU IEDQCKPD+112 01695000 CKPIOR EQU CKPIOSK+7 01696000 CKPIOHH EQU CKPIOSK+5 01697000 CKPIOCC EQU CKPIOSK+3 01698000 CKPIOBB EQU CKPIOSK+1 01699000 CKPIOM EQU CKPIOSK 01700000 CKPIORC EQU CKPIOB+30 01701000 CKPIOBCI EQU CKPIOB+28 01702000 CKPIORST EQU CKPIOB+25 01703000 @NM00106 EQU CKPIOB+24 01704000 CKPIODCB EQU CKPIOB+21 01705000 @NM00105 EQU CKPIOB+20 01706000 CKPIOCPA EQU CKPIOB+17 01707000 CKPIOSIO EQU CKPIOB+16 01708000 CKPIOCSW EQU CKPIOB+9 01709000 CKPIOFL3 EQU CKPIOB+8 01710000 @NM00104 EQU CKPIOECB+1 01711000 CKPIOECC EQU CKPIOECB 01712000 CKPIOSN1 EQU CKPIOB+3 01713000 CKPIOSN0 EQU CKPIOB+2 01714000 CKPIOFL2 EQU CKPIOB+1 01715000 CKPIOFL1 EQU CKPIOB 01716000 CAVTNIOE EQU CAVTWL2+5 01717000 CAVTEOL3 EQU CAVTWL2+4 01718000 CAVTNQE EQU CAVTWL2+1 01719000 CAVTEOL2 EQU CAVTWL2 01720000 CAVTTIOE EQU CAVTWL1+5 01721000 CAVTEOL1 EQU CAVTWL1+4 01722000 CAVTTQE EQU CAVTWL1 01723000 @NM00103 EQU IEDQCKAD+10 01724000 CAVTFLGS EQU IEDQCKAD+9 01725000 BDUXGRPH EQU BDUEXRSP 01726000 BDUXFINL EQU BDUEXRSP 01727000 BDUXINIT EQU BDUEXRSP 01728000 BDURESP EQU BDUSYRSP 01729000 BDUPHASE EQU BDUSYRSP 01730000 BDUERROR EQU BDUSYRSP 01731000 BDUXERLK EQU BDUBDUFG 01732000 BDUALTAK EQU BDUFNFLG 01733000 BDUNEGAK EQU BDUFNFLG 01734000 BDUPOSAK EQU BDUFNFLG 01735000 BDUTPTX EQU BDUFNFLG 01736000 BDUFRSTB EQU BDUFNFLG 01737000 BDULEADG EQU BDUFNFLG 01738000 BDUHEADR EQU BDUFNFLG 01739000 BDUSTHDR EQU BDUFNFLG 01740000 BDUMODIF EQU IEDBDU+1 01741000 BDUCMND EQU IEDBDU 01742000 SAVTBITN EQU IEDNSVTD+312 01743000 @NM00102 EQU SAVTCKQB+8 01744000 @NM00101 EQU SAVTCKEC+1 01745000 @NM00100 EQU SAVTCKCC 01746000 SAVTCKPO EQU SAVTCKCC 01747000 SAVTCKWA EQU SAVTCKCC 01748000 SAVTCKCH EQU SAVTCKTB+1 01749000 SAVTCKVT EQU SAVTCKTB 01750000 @NM00099 EQU IEDNSVTD+297 01751000 SAVTRDFG EQU SAVTRDRV+12 01752000 @NM00098 EQU SAVTRDRV+5 01753000 SAVTRDPY EQU SAVTRDRV+4 01754000 SAVTRDQB EQU SAVTRDRV+1 01755000 SAVTRDKY EQU SAVTRDRV 01756000 SAVTNID EQU IEDNSVTD+280 01757000 SAVTDVAS EQU IEDNSVTD+276 01758000 SAVTPLSZ EQU IEDNSVTD+274 01759000 @NM00097 EQU IEDNSVTD+273 01760000 SAVTSUBL EQU IEDNSVTD+272 01761000 @NM00096 EQU SAVTZELM+1 01762000 SAVTSUBM EQU SAVTZELM 01763000 SAVTMHDX EQU IEDNSVTD+268 01764000 SAVTNAT1 EQU IEDNSVTD+266 01765000 SAVTSH20 EQU IEDNSVTD+264 01766000 SAVTLCBS EQU IEDNSVTD+260 01767000 SAVTRNMP EQU IEDNSVTD+256 01768000 SAVTTNTX EQU IEDNSVTD+252 01769000 SAVTNAX EQU IEDNSVTD+248 01770000 SAVTSUBV EQU IEDNSVTD+247 01771000 SAVTSUBA EQU IEDNSVTD+246 01772000 SAVTSIBC EQU IEDNSVTD+244 01773000 SAVTBSM EQU IEDNSVTD+240 01774000 SAVTSCPT EQU SAVTTCPU 01775000 SAVTRQTG EQU IEDNSVTD+236 01776000 SAVTRQCH EQU IEDNSVTD+232 01777000 SAVTMAND EQU IEDNSVTD+228 01778000 SAVTSPLN EQU IEDNSVTD+224 01779000 SAVTNADL EQU IEDNSVTD+222 01780000 SAVTNATL EQU IEDNSVTD+220 01781000 SAVTMHTB EQU IEDNSVTD+216 01782000 SAVTSSMH EQU IEDNSVTD+212 01783000 SAVTQRS EQU IEDNSVTD+208 01784000 SAVTRQIN EQU IEDNSVTD+204 01785000 SAVTDFCO EQU IEDNSVTD+200 01786000 SAVTSAO EQU IEDNSVTD+196 01787000 SAVTSARI EQU IEDNSVTD+192 01788000 SAVTSAC EQU IEDNSVTD+188 01789000 SAVTSAI EQU IEDNSVTD+184 01790000 SAVTCSCI EQU IEDNSVTD+180 01791000 SAVTSSRP EQU IEDNSVTD+176 01792000 SAVTSSRQ EQU IEDNSVTD+172 01793000 SAVTSCLU EQU IEDNSVTD+168 01794000 SAVTXTRQ EQU IEDNSVTD+164 01795000 @NM00095 EQU IEDNSVTD+148 01796000 SAVTIPCQ EQU IEDNSVTD+144 01797000 @NM00094 EQU IEDNSVTD+136 01798000 SAVTXFMI EQU IEDNSVTD+132 01799000 @NM00093 EQU IEDNSVTD+124 01800000 SAVTXFMO EQU IEDNSVTD+120 01801000 @NM00092 EQU IEDNSVTD+116 01802000 SAVTSSSR EQU IEDNSVTD+112 01803000 SAVTSCPQ EQU IEDNSVTD+108 01804000 SAVTSLCB EQU IEDNSVTD+104 01805000 SAVTLUSR EQU IEDNSVTD+100 01806000 @NM00091 EQU SAVTLUSQ+8 01807000 SAVTLUSP EQU SAVTLUSQ+4 01808000 SAVTLUSB EQU SAVTLUSQ 01809000 @NM00090 EQU IEDNSVTD+84 01810000 SAVTSAT EQU IEDNSVTD+80 01811000 SAVTNAT EQU IEDNSVTD+76 01812000 SAVTCLUP EQU IEDNSVTD+72 01813000 SAVTPIUT EQU IEDNSVTD+68 01814000 SAVTRNTA EQU IEDNSVTD+64 01815000 SAVTDNIR EQU IEDNSVTD+60 01816000 SAVTCNIR EQU IEDNSVTD+56 01817000 SAVTFLDH EQU IEDNSVTD+52 01818000 SAVTSRTN EQU IEDNSVTD+48 01819000 SAVTSREQ EQU IEDNSVTD+44 01820000 SAVTFAIL EQU IEDNSVTD+42 01821000 SAVTSUSE EQU IEDNSVTD+40 01822000 SAVTSIB EQU IEDNSVTD+36 01823000 SAVTPRTN EQU IEDNSVTD+32 01824000 @NM00089 EQU IEDNSVTD+28 01825000 SAVTWH20 EQU IEDNSVTD+26 01826000 SAVTPWT EQU IEDNSVTD+24 01827000 SAVTPRTQ EQU IEDNSVTD+20 01828000 SAVTPREQ EQU IEDNSVTD+16 01829000 SAVTPH20 EQU IEDNSVTD+14 01830000 SAVTPUSE EQU IEDNSVTD+12 01831000 SAVTPLCB EQU IEDNSVTD+8 01832000 SAVTPOOL EQU IEDNSVTD+4 01833000 SAVTPRMT EQU SAVTDIAF 01834000 SAVTVIRT EQU SAVTDIAF 01835000 AVTCPBNO EQU IEDQAVTD+1244 01836000 AVTHRESS EQU IEDQAVTD+1243 01837000 @NM00088 EQU IEDQAVTD+1242 01838000 @NM00087 EQU IEDQAVTD+1241 01839000 @NM00086 EQU IEDQAVTD+1240 01840000 @NM00085 EQU IEDQAVTD+1237 01841000 @NM00084 EQU IEDQAVTD+1236 01842000 AVTHRESE EQU @NM00083 01843000 AVTRADDR EQU IEDQAVTD+1228 01844000 AVTNADDR EQU IEDQAVTD+1224 01845000 AVTHRESN EQU IEDQAVTD+1220 01846000 AVTVOLRN EQU IEDQAVTD+1216 01847000 AVTTOTNN EQU IEDQAVTD+1212 01848000 AVTTRCYN EQU IEDQAVTD+1208 01849000 AVTRCTRN EQU IEDQAVTD+1204 01850000 AVTNOVON EQU IEDQAVTD+1200 01851000 AVTADEBN EQU IEDQAVTD+1196 01852000 AVTVOLRR EQU IEDQAVTD+1192 01853000 AVTTOTNR EQU IEDQAVTD+1188 01854000 AVTTRCYR EQU IEDQAVTD+1184 01855000 AVTRCTRR EQU IEDQAVTD+1180 01856000 AVTNOVOR EQU IEDQAVTD+1176 01857000 AVTADEBR EQU IEDQAVTD+1172 01858000 AVTLODPT EQU IEDQAVTD+1168 01859000 AVTIOBN EQU IEDQAVTD+1164 01860000 AVTIOBR EQU IEDQAVTD+1160 01861000 AVTCPBPT EQU IEDQAVTD+1156 01862000 AVTFCPB EQU IEDQAVTD+1152 01863000 @NM00082 EQU IEDQAVTD+1148 01864000 AVTINCPQ EQU IEDQAVTD+1144 01865000 @NM00081 EQU IEDQAVTD+1140 01866000 @NM00080 EQU IEDQAVTD+1137 01867000 @NM00079 EQU AVTBIT4 01868000 @NM00078 EQU AVTBIT4 01869000 @NM00077 EQU AVTBIT4 01870000 @NM00076 EQU AVTBIT4 01871000 @NM00075 EQU AVTBIT4 01872000 @NM00074 EQU AVTBIT4 01873000 @NM00073 EQU AVTBIT4 01874000 AVTRUFTN EQU AVTBIT4 01875000 @NM00072 EQU IEDQAVTD+1132 01876000 AVTNOBFQ EQU IEDQAVTD+1128 01877000 @NM00071 EQU IEDQAVTD+1124 01878000 AVTDKENQ EQU IEDQAVTD+1120 01879000 @NM00070 EQU IEDQAVTD+1116 01880000 AVTDKAPQ EQU IEDQAVTD+1112 01881000 AVTCOPY EQU IEDQAVTD+1108 01882000 AVTIA EQU IEDQAVTD+1104 01883000 AVTFL EQU IEDQAVTD+1100 01884000 @NM00069 EQU IEDQAVTD+1096 01885000 AVTNCPBQ EQU IEDQAVTD+1092 01886000 AVTTOTNC EQU IEDQAVTD+1088 01887000 AVTCMAX EQU IEDQAVTD+1084 01888000 AVTCMIN EQU IEDQAVTD+1080 01889000 AVTHM02 EQU IEDQAVTD+1076 01890000 AVTOPCIN EQU IEDQAVTD+1074 01891000 AVTDCTLN EQU IEDQAVTD+1072 01892000 AVTOPMSK EQU IEDQAVTD+1068 01893000 AVTDDFT EQU IEDQAVTD+1064 01894000 AVTSTEAL EQU IEDQAVTD+1060 01895000 AVTOPTN EQU IEDQAVTD+1056 01896000 AVTDSKCT EQU IEDQAVTD+1054 01897000 AVTCKRST EQU IEDQAVTD+1053 01898000 AVTSTAN EQU AVTBIT3 01899000 AVTSTACN EQU AVTBIT3 01900000 AVTSTAIN EQU AVTBIT3 01901000 AVTSTAYN EQU AVTBIT3 01902000 AVTOLTBN EQU AVTBIT3 01903000 AVTTSAB EQU AVTBIT3 01904000 AVTRFULN EQU AVTBIT3 01905000 AVTRECVN EQU AVTBIT3 01906000 @NM00068 EQU AVTBIT2 01907000 @NM00067 EQU AVTBIT2 01908000 AVTOPEIN EQU AVTBIT2 01909000 AVTSTRTN EQU AVTBIT2 01910000 AVTTOPOL EQU AVTBIT2 01911000 AVTCOPYN EQU AVTBIT2 01912000 AVTREUSN EQU AVTBIT2 01913000 AVTEXTSC EQU AVTBIT2 01914000 AVTDISKN EQU AVTBIT1 01915000 AVTQUCKN EQU AVTBIT1 01916000 AVTCLOSN EQU AVTBIT1 01917000 AVTREADN EQU AVTBIT1 01918000 AVTDLAYN EQU AVTBIT1 01919000 AVTAQTAN EQU AVTBIT1 01920000 AVTTSON EQU AVTBIT1 01921000 AVTAPLKN EQU AVTBIT1 01922000 AVTDUMBR EQU IEDQAVTD+1048 01923000 AVTDLQX EQU IEDQAVTD+1046 01924000 AVTINTLV EQU IEDQAVTD+1044 01925000 AVTSMCNT EQU IEDQAVTD+1042 01926000 AVTAVFCT EQU IEDQAVTD+1040 01927000 AVTOPCON EQU IEDQAVTD+1038 01928000 AVTOPCNT EQU IEDQAVTD+1036 01929000 AVTLNCNT EQU IEDQAVTD+1034 01930000 AVTHA16 EQU IEDQAVTD+1030 01931000 AVTHA7 EQU IEDQAVTD+1028 01932000 AVTHA4 EQU IEDQAVTD+1026 01933000 AVTHA3 EQU IEDQAVTD+1024 01934000 AVTHA2 EQU IEDQAVTD+1022 01935000 AVTGETMS EQU IEDQAVTD+1021 01936000 @NM00066 EQU IEDQAVTD+1020 01937000 AVTGETMD EQU IEDQAVTD+1016 01938000 AVTGETMN EQU IEDQAVTD+1012 01939000 AVTCWTOT EQU IEDQAVTD+1008 01940000 AVTCWINT EQU IEDQAVTD+956 01941000 AVTDTRAP EQU IEDQAVTD+952 01942000 @NM00065 EQU IEDQAVTD+950 01943000 @NM00064 EQU AVTIOTR 01944000 AVTIOTRH EQU AVTIOTR 01945000 AVTIOTRE EQU AVTIOTR 01946000 @NM00063 EQU AVTSUBT 01947000 AVTSUBPT EQU AVTSUBT 01948000 AVTSUBON EQU AVTSUBT 01949000 AVTAFE30 EQU IEDQAVTD+944 01950000 AVTAFE20 EQU IEDQAVTD+940 01951000 AVTAFE10 EQU IEDQAVTD+936 01952000 AVTCWEC2 EQU IEDQAVTD+932 01953000 AVTCWPM2 EQU IEDQAVTD+928 01954000 AVTCWTS2 EQU IEDQAVTD+927 01955000 AVTCWTS1 EQU IEDQAVTD+926 01956000 AVTCWCLD EQU AVTCWFL2 01957000 AVTCWRAP EQU AVTCWFL2 01958000 @NM00062 EQU AVTCWFL2 01959000 @NM00061 EQU AVTCWFL2 01960000 @NM00060 EQU AVTCWFL2 01961000 @NM00059 EQU AVTCWFL2 01962000 @NM00058 EQU AVTCWFL2 01963000 AVTCWACT EQU AVTCWFL2 01964000 @NM00057 EQU AVTCWFL1 01965000 @NM00056 EQU AVTCWFL1 01966000 @NM00055 EQU AVTCWFL1 01967000 @NM00054 EQU AVTCWFL1 01968000 @NM00053 EQU AVTCWFL1 01969000 @NM00052 EQU AVTCWFL1 01970000 @NM00051 EQU AVTCWFL1 01971000 AVTCOMWN EQU AVTCWFL1 01972000 AVTCWEC1 EQU IEDQAVTD+920 01973000 AVTCWPM1 EQU IEDQAVTD+916 01974000 AVTCAREA EQU IEDQAVTD+912 01975000 AVTFZERO EQU IEDQAVTD+908 01976000 AVTCADDR EQU IEDQAVTD+904 01977000 AVTCOREC EQU IEDQAVTD+900 01978000 @NM00050 EQU IEDQAVTD+892 01979000 AVTCPBCB EQU IEDQAVTD+888 01980000 @NM00049 EQU IEDQAVTD+880 01981000 AVTDSIOB EQU IEDQAVTD+876 01982000 @NM00048 EQU IEDQAVTD+868 01983000 AVTCPRMB EQU IEDQAVTD+864 01984000 @NM00047 EQU IEDQAVTD+856 01985000 AVTCLOSB EQU IEDQAVTD+852 01986000 @NM00046 EQU IEDQAVTD+844 01987000 AVTACTIB EQU IEDQAVTD+840 01988000 @NM00045 EQU IEDQAVTD+836 01989000 AVTOLTEB EQU IEDQAVTD+832 01990000 AVTOLTCH EQU AVTOLTQB+1 01991000 AVTOLTVT EQU AVTOLTQB 01992000 @NM00044 EQU AVTOPCQB+8 01993000 @NM00043 EQU AVTOPCEC+1 01994000 @NM00042 EQU AVTOPCCC 01995000 AVTOPCPO EQU AVTOPCCC 01996000 AVTOPCWA EQU AVTOPCCC 01997000 AVTOPCCH EQU AVTOPCOB+1 01998000 AVTOPCVT EQU AVTOPCOB 01999000 @NM00041 EQU AVTCKPQB+9 02000000 AVTCKPTS EQU AVTCKPQB+8 02001000 @NM00040 EQU AVTCKPEC+1 02002000 @NM00039 EQU AVTCKPCC 02003000 AVTCKPPO EQU AVTCKPCC 02004000 AVTCKPWA EQU AVTCKPCC 02005000 AVTCKPCH EQU AVTCKPTB+1 02006000 AVTCKPVT EQU AVTCKPTB 02007000 @NM00038 EQU IEDQAVTD+796 02008000 AVTBFRTB EQU IEDQAVTD+792 02009000 @NM00037 EQU IEDQAVTD+784 02010000 AVTBFREB EQU IEDQAVTD+780 02011000 AVTTIMQ EQU IEDQAVTD+776 02012000 @NM00036 EQU IEDQAVTD+772 02013000 AVTIMQPS EQU IEDQAVTD+768 02014000 AVTINOUT EQU IEDQAVTD+766 02015000 AVTREFTM EQU IEDQAVTD+764 02016000 @NM00035 EQU IEDQAVTD+752 02017000 AVTDELYB EQU IEDQAVTD+748 02018000 AVTOCQPT EQU IEDQAVTD+744 02019000 AVTTSOPT EQU IEDQAVTD+740 02020000 AVTSUPPT EQU IEDQAVTD+736 02021000 AVTCBQCB EQU IEDQAVTD+732 02022000 AVTMSGS EQU IEDQAVTD+729 02023000 @NM00034 EQU AVTSYSER 02024000 @NM00033 EQU AVTSYSER 02025000 @NM00032 EQU AVTSYSER 02026000 @NM00031 EQU AVTSYSER 02027000 @NM00030 EQU AVTSYSER 02028000 @NM00029 EQU AVTSYSER 02029000 AVTCMAXN EQU AVTSYSER 02030000 AVTCMINN EQU AVTSYSER 02031000 AVT2260L EQU IEDQAVTD+724 02032000 AVTABEPL EQU AVTADBUF 02033000 AVTHFF EQU AVTCLRHI+2 02034000 @NM00028 EQU AVTCLRHI 02035000 AVTCCLNK EQU AVTCRELE+5 02036000 AVTCCPRI EQU AVTCRELE+4 02037000 AVTCCQCB EQU AVTCCELE+1 02038000 AVTCCKEY EQU AVTCCELE 02039000 AVTDELAD EQU IEDQAVTD+704 02040000 AVTDELEM EQU IEDQAVTD+700 02041000 AVTBSX EQU AVTCKLNK 02042000 AVTOPETR EQU AVTHG01 02043000 @NM00027 EQU AVTCKBYT 02044000 AVTCKONQ EQU AVTCKBYT 02045000 @NM00026 EQU AVTCKBYT 02046000 @NM00025 EQU AVTCKBYT 02047000 @NM00024 EQU AVTCKBYT 02048000 @NM00023 EQU AVTCKBYT 02049000 @NM00022 EQU AVTCKBYT 02050000 @NM00021 EQU AVTCKBYT 02051000 AVTOPERT EQU IEDQAVTD+690 02052000 AVTOPXCL EQU IEDQAVTD+688 02053000 AVTOPERL EQU IEDQAVTD+687 02054000 @NM00020 EQU IEDQAVTD+686 02055000 AVTCKTIM EQU IEDQAVTD+684 02056000 AVTCKELV EQU IEDQAVTD+682 02057000 AVTCPRCD EQU IEDQAVTD+681 02058000 AVTWARMN EQU AVTCKELF 02059000 AVTCRTLN EQU AVTCKELF 02060000 AVTCPIPN EQU AVTCKELF 02061000 AVTCCLCN EQU AVTCKELF 02062000 AVTCINCN EQU AVTCKELF 02063000 @NM00019 EQU AVTCKELF 02064000 AVTCMCPN EQU AVTCKELF 02065000 AVTCRDYN EQU AVTCKELF 02066000 AVTCKQAD EQU IEDQAVTD+677 02067000 AVTSCBSZ EQU IEDQAVTD+676 02068000 @NM00018 EQU IEDQAVTD+672 02069000 AVTCKELE EQU IEDQAVTD+668 02070000 @NM00017 EQU AVTCKPEL+8 02071000 AVTCKRLK EQU AVTCKPEL+5 02072000 AVTCKRPR EQU AVTCKPEL+4 02073000 AVTCKRMQ EQU AVTCKRMV+1 02074000 AVTCKRKY EQU AVTCKRMV 02075000 AVTHK EQU IEDQAVTD+648 02076000 AVTHI EQU IEDQAVTD+644 02077000 AVTIOT EQU IEDQAVTD+640 02078000 AVTNX EQU IEDQAVTD+636 02079000 AVTTONE EQU IEDQAVTD+632 02080000 AVTA3TL EQU IEDQAVTD+628 02081000 AVTDMECB EQU IEDQAVTD+624 02082000 AVTABEND EQU IEDQAVTD+618 02083000 AVTPLCBN EQU IEDQAVTD+616 02084000 @NM00016 EQU AVTSAVTP+1 02085000 @NM00015 EQU AVTSAVTF 02086000 AVTSNA EQU AVTSAVTF 02087000 AVTONSNA EQU AVTSAVTF 02088000 AVTVTMCP EQU AVTSAVTF 02089000 @NM00014 EQU IEDQAVTD+608 02090000 AVTCMBSS EQU IEDQAVTD+604 02091000 AVTRCV EQU IEDQAVTD+600 02092000 AVTSEND EQU IEDQAVTD+596 02093000 AVTCSCH EQU IEDQAVTD+592 02094000 AVTQ1 EQU IEDQAVTD+588 02095000 AVTE7 EQU IEDQAVTD+584 02096000 AVTHB EQU IEDQAVTD+580 02097000 AVTR1 EQU IEDQAVTD+576 02098000 AVTBZ EQU IEDQAVTD+572 02099000 AVTEZ EQU IEDQAVTD+568 02100000 AVTEC EQU IEDQAVTD+564 02101000 AVTEW EQU IEDQAVTD+560 02102000 AVTNDIAL EQU AVTSCOPT 02103000 AVTN2741 EQU AVTSCOPT 02104000 AVTCONCO EQU AVTSCOPT 02105000 AVTCONC EQU AVTSCOPT 02106000 AVTCMBUF EQU AVTSCOPT 02107000 AVTAPDMP EQU AVTSCOPT 02108000 @NM00013 EQU AVTSCOPT 02109000 AVTHA EQU AVTDISP 02110000 AVTEA EQU IEDQAVTD+548 02111000 AVTAX EQU IEDQAVTD+544 02112000 AVTA3 EQU IEDQAVTD+540 02113000 AVTGD EQU IEDQAVTD+536 02114000 AVTAL EQU IEDQAVTD+532 02115000 AVTOLTST EQU AVTHG02 02116000 AVTE8 EQU IEDQAVTD+524 02117000 AVTUI EQU IEDQAVTD+520 02118000 AVTCOMPT EQU IEDQAVTD+516 02119000 AVTCRSRF EQU IEDQAVTD+512 02120000 @NM00012 EQU IEDQAVTD+508 02121000 AVTKA02 EQU IEDQAVTD+504 02122000 AVTOPTPT EQU IEDQAVTD+500 02123000 AVTPCBPT EQU IEDQAVTD+496 02124000 AVTOSECB EQU IEDQAVTD+492 02125000 AVTOPECA EQU IEDQAVTD+488 02126000 AVTOLECA EQU IEDQAVTD+484 02127000 AVTCKECA EQU IEDQAVTD+480 02128000 AVTCWECA EQU IEDQAVTD+476 02129000 AVTCWTCB EQU IEDQAVTD+472 02130000 AVTOLTCB EQU IEDQAVTD+468 02131000 AVTOCTCB EQU IEDQAVTD+464 02132000 AVTCKTCB EQU IEDQAVTD+460 02133000 AVTAS EQU IEDQAVTD+456 02134000 AVTNOLBF EQU IEDQAVTD+454 02135000 AVTNCKPR EQU IEDQAVTD+453 02136000 AVTCIB EQU IEDQAVTD+452 02137000 AVTSPLPT EQU IEDQAVTD+448 02138000 AVTMVBFR EQU IEDQAVTD+444 02139000 AVTSBTA EQU IEDQAVTD+440 02140000 AVTRARTN EQU IEDQAVTD+436 02141000 AVTBSCAN EQU IEDQAVTD+432 02142000 AVTRDYA EQU IEDQAVTD+428 02143000 AVTDISTR EQU IEDQAVTD+420 02144000 AVTPARM3 EQU IEDQAVTD+416 02145000 @NM00011 EQU AVTPKF 02146000 @NM00010 EQU AVTPKF 02147000 @NM00009 EQU AVTPKF 02148000 AVTFTCHF EQU AVTPKF 02149000 @NM00008 EQU AVTPKF 02150000 @NM00007 EQU AVTPKF 02151000 @NM00006 EQU AVTPKF 02152000 @NM00005 EQU AVTPKF 02153000 AVTPARM EQU IEDQAVTD+408 02154000 AVTEXS2A EQU IEDQAVTD+402 02155000 AVTEXA2S EQU IEDQAVTD+396 02156000 @NM00004 EQU AVTCKFLG 02157000 AVTCKHLT EQU AVTCKFLG 02158000 AVTCKREQ EQU AVTCKFLG 02159000 AVTCKENV EQU AVTCKFLG 02160000 AVTCKNAC EQU AVTCKFLG 02161000 AVTCKTAC EQU AVTCKFLG 02162000 @NM00002 EQU IEDQAVTD+384 02163000 AVTREADD EQU IEDQAVTD+380 02164000 AVTREADY EQU IEDQAVTD+376 02165000 AVTRACE EQU IEDQAVTD+372 02166000 AVTTCB EQU IEDQAVTD+368 02167000 AVTPASWD EQU IEDQAVTD+360 02168000 AVTCTLCH EQU IEDQAVTD+352 02169000 AVTDOUBL EQU IEDQAVTD+344 02170000 AVTDOUBX EQU IEDQAVTD+336 02171000 AVTDPARM EQU IEDQAVTD+332 02172000 AVTCSTCS EQU IEDQAVTD+328 02173000 AVTDLQ EQU AVTSAVEX+32 02174000 @NM00001 EQU AVTSAVEX 02175000 AVTSAVE4 EQU IEDQAVTD+216 02176000 AVTSAVE3 EQU IEDQAVTD+144 02177000 AVTSAVE2 EQU IEDQAVTD+72 02178000 AVTSAVE1 EQU IEDQAVTD 02179000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02180000 @RF00452 EQU @RC00357 02181000 @RC00480 EQU @EL00001 02182000 @ENDDATA EQU * 02183000 END IEDQNT,(C'PLS0353',0701,76363) 02184000