TITLE 'IEDQNU, 3705 CHECKPOINT - LOAD 2 *00001000 ' 00002000 IEDQNU CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 * RBASE=REG15; /* SET BASE REGISTER */ 00005000 LR RBASE,REG15 02S0503 00006000 * GEN REFS(RBASE) NOSETS; 02S0504 00007000 * /* 00008000 USING IEDQNU,RBASE ESTABLISH ADDRESSABILITY 00009000 IEDQNU IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00010000 * RCAVT=AVTCKAVT; /* GET ADDRESS OF THE CKPT AVT */ 00011000 L RCAVT,AVTCKAVT-1(,RAVT) 02S0505 00012000 LA RCAVT,0(,RCAVT) 02S0505 00013000 * RCKPT=CAVTNWA; /* GET ADDR OF CKPT WORK AREA */ 00014000 L RCKPT,CAVTNWA(,RCAVT) 02S0506 00015000 * CKPSAVE2(1)=REG12; /* SAVE BASE ADDRESS OF IEDQNF */ 00016000 ST REG12,CKPSAVE2(,RCKPT) 02S0507 00017000 * CKPSAVE2(2)=REG14; /* SAVE RETURN ADDRESS */ 00018000 ST REG14,CKPSAVE2+4(,RCKPT) 02S0508 00019000 * ROPCE=OPCCKPTF; /* GET OPCE ADDRESS - OPCE TO BE 00020000 * CKPT'D IS THE FIRST ONE ON THE 00021000 * OP CONTROL QUEUE FOR 02S0509 00022000 * CHECKPOINT */ 00023000 L @10,ROPCAVT(,RAVT) 02S0509 00024000 L ROPCE,OPCCKPTF(,@10) 02S0509 00025000 * RSAVE=ADDR(CKPSAVE1(1)); /* GET ADDR OF SAVE AREA */ 00026000 LR RSAVE,RCKPT 02S0510 00027000 * RFY 02S0511 00028000 * (REG12, 02S0511 00029000 * REG14) UNRSTD; 02S0511 00030000 * 02S0512 00031000 * /*****************************************************************/ 00032000 * /* */ 00033000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00034000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00035000 * /* */ 00036000 * /*****************************************************************/ 00037000 * 02S0512 00038000 * IF CKPENCDE=0 /* TEST FOR I/O STARTED */ 00039000 * THEN /* I/O WAS STARTED */ 00040000 CLI CKPENCDE(RCKPT),0 02S0512 00041000 BNE @RF00512 02S0512 00042000 * IF CKPIOECC=CKPIOCOM /* TEST FOR I/O SUCCESSFUL */ 00043000 * THEN /* I/O WAS SUCCESSFUL */ 00044000 CLI CKPIOECC(RCKPT),X'7F' 02S0513 00045000 BNE @RF00513 02S0513 00046000 * IF CKPCUSEL=CKPNOTFY /* TEST FOR REQUEST FOR 02S0514 00047000 * NOTIFICATION */ 00048000 * THEN 02S0514 00049000 CLI CKPCUSEL(RCKPT),10 02S0514 00050000 BE @RT00514 02S0514 00051000 * ; /* THIS IS A REQUEST FOR 02S0515 00052000 * NOTIFICATION */ 00053000 * ELSE /* THIS IS NOT A REQUEST FOR 00054000 * NOTIFICATION */ 00055000 * 03S0516 00056000 * /***********************************************************/ 00057000 * /* */ 00058000 * /* PROCESS.READRETN: THIS SEGMENT PROCESSES THE RETURN FROM*/ 00059000 * /* A SUCCESSFUL READ OF A RESOURCE'S CKPT RECORD. THE */ 00060000 * /* CURRENT 'SELECT' VALUE IS USED IN A CASE STATEMENT TO */ 00061000 * /* SELECT THE PROCESSING FOR A PARTICULAR OP CONTROL */ 00062000 * /* COMMAND. AFTER THE DATA UPDATE, INITIALIZATION IS DONE */ 00063000 * /* TO WRITE OUT THE UPDATED CHECKPOINT RECORD. */ 00064000 * /* */ 00065000 * /***********************************************************/ 00066000 * 03S0516 00067000 * DO; 03S0516 00068000 * RFY 03S0517 00069000 * RCKPREC RSTD; 03S0517 00070000 * RCKPREC=CKPRWADD; /* GET BASE FOR RESOURCE RECORD */ 00071000 L RCKPREC,CKPRWADD-1(,RCKPT) 03S0518 00072000 LA RCKPREC,0(,RCKPREC) 03S0518 00073000 * DO; /* CASE(CKPCUSEL)NAMES(BHSET,SSPA 00074000 * U,NEGPL,CSLIM,CTLIM,MSSEL,ICHN 00075000 * GW,TCHNG,ICHNGR) */ 00076000 * DCL 03S0520 00077000 * CL0001@ LABEL BASED(CP0001@(CKPCUSEL)) VALUERANGE(BHSET 00078000 * ,SSPAU,NEGPL,CSLIM,CTLIM,MSSEL,ICHNGW,TCHNG,ICHNGR) 00079000 * ; /* BRANCH TARGET */ 00080000 * DCL 03S0521 00081000 * CP0001@(9) PTR(31) INIT(ADDR(BHSET),ADDR(SSPAU),ADDR( 00082000 * NEGPL),ADDR(CSLIM),ADDR(CTLIM),ADDR(MSSEL),ADDR( 00083000 * ICHNGW),ADDR(TCHNG),ADDR(ICHNGR)); 03S0521 00084000 * GOTO CL0001@; /* BRANCH TO SELECTED CASE */ 00085000 SLR @14,@14 03S0522 00086000 IC @14,CKPCUSEL(,RCKPT) 03S0522 00087000 SLA @14,2 03S0522 00088000 L @14,CP0001@-4(@14) 03S0522 00089000 BR @14 03S0522 00090000 * 04S0523 00091000 * /*******************************************************/ 00092000 * /* */ 00093000 * /* PROCESS.READRETN.BHSET: CHECKPOINT A MODIFY BHSET */ 00094000 * /* COMMAND. */ 00095000 * /* */ 00096000 * /*******************************************************/ 00097000 * 04S0523 00098000 *BHSET: 04S0523 00099000 * DO; /* SUBCASE */ 00100000 BHSET DS 0H 04S0524 00101000 * IF OCCKDAT1='80'X THEN 04S0524 00102000 CLI OCCKDAT1(ROPCE),X'80' 04S0524 00103000 BNE @RF00524 04S0524 00104000 * DO; /* IF CHANGE BHSET FUNCTION 04S0525 00105000 * @YM07411*/ 00106000 * CNRFBHSC=ON; /* INDICATE THAT A CHANGE BHSET 00107000 * HAS BEEN CHECKPOINTED @YM07411*/ 00108000 OI CNRFBHSC(RCKPREC),B'01000000' 04S0526 00109000 * CNRBHFUN=OCCKDAT1;/* CKPT THE BHSET FUNCTION BYTE 00110000 * @YM07713*/ 00111000 MVC CNRBHFUN(1,RCKPREC),OCCKDAT1(ROPCE) 04S0527 00112000 * CNRBHPOS=OCCKDAT2;/* CKPT THE BHSET POSITION DATA*/ 00113000 MVC CNRBHPOS(1,RCKPREC),OCCKDAT2(ROPCE) 04S0528 00114000 * END; /* @YM07411*/ 00115000 * ELSE 04S0530 00116000 * DO; /* NOT CHANGE, MUST BE ACT OR 00117000 * DEACT @YM07411*/ 00118000 B @RC00524 04S0530 00119000 @RF00524 DS 0H 04S0531 00120000 * CNRFBHS=ON; /* INDICATE THAT AN ACT OR DEACT 00121000 * BHSET HAS BEEN CHECKPOINTED 00122000 * @YM07411*/ 00123000 OI CNRFBHS(RCKPREC),B'10000000' 04S0531 00124000 * CNRBHFUN=OCCKDAT1;/* CKPT BHSET FUNCTION BYTE 00125000 * @YM07411*/ 00126000 MVC CNRBHFUN(1,RCKPREC),OCCKDAT1(ROPCE) 04S0532 00127000 * END; /* @YM07411*/ 00128000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00129000 B CE0001@ 04S0534 00130000 * END BHSET; /* END OF SUBCASE */ 00131000 * 04S0536 00132000 * /*******************************************************/ 00133000 * /* */ 00134000 * /* PROCESS.READRETN.SSPAU: CHECKPOINT A CHANGE SERVICE */ 00135000 * /* SEEKING PAUSE COMMAND. */ 00136000 * /* */ 00137000 * /*******************************************************/ 00138000 * 04S0536 00139000 *SSPAU: 04S0536 00140000 * DO; /* SUBCASE */ 00141000 SSPAU DS 0H 04S0537 00142000 * CNRFSSP=ON; /* INDICATE THAT A CHANGE SERVICE 00143000 * SEEKING PAUSE COMMAND HAS BEEN 00144000 * CHECKPOINTED */ 00145000 OI CNRFSSP(RCKPREC),B'00100000' 04S0537 00146000 * CNRSSPAU=OCCKDAT1; /* CKPT SERVICE SEEKING PAUSE 00147000 * DATA */ 00148000 MVC CNRSSPAU(1,RCKPREC),OCCKDAT1(ROPCE) 04S0538 00149000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00150000 B CE0001@ 04S0539 00151000 * END SSPAU; /* END OF SUBCASE */ 00152000 * 04S0541 00153000 * /*******************************************************/ 00154000 * /* */ 00155000 * /* PROCESS.READRETN.NEGPL: CHECKPOINT A CHANGE NEGATIVE*/ 00156000 * /* POLL LIMIT COMMAND. */ 00157000 * /* */ 00158000 * /*******************************************************/ 00159000 * 04S0541 00160000 *NEGPL: 04S0541 00161000 * DO; /* SUBCASE */ 00162000 NEGPL DS 0H 04S0542 00163000 * CNRFNPL=ON; /* INDICATE THAT NEGATIVE POLL 00164000 * LIMIT COMMAND HAS BEEN 04S0542 00165000 * CHECKPOINTED */ 00166000 OI CNRFNPL(RCKPREC),B'00010000' 04S0542 00167000 * CNRNEGPL=OCCKDAT1; /* CKPT NEGATIVE POLL LIMIT DATA */ 00168000 MVC CNRNEGPL(1,RCKPREC),OCCKDAT1(ROPCE) 04S0543 00169000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00170000 B CE0001@ 04S0544 00171000 * END NEGPL; /* END OF SUBCASE */ 00172000 * 04S0546 00173000 * /*******************************************************/ 00174000 * /* */ 00175000 * /* PROCESS.READRETN.CSLIM: CHECKPOINT A CHANGE SESSION */ 00176000 * /* LIMIT COMMAND. */ 00177000 * /* */ 00178000 * /*******************************************************/ 00179000 * 04S0546 00180000 *CSLIM: 04S0546 00181000 * DO; /* SUBCASE */ 00182000 CSLIM DS 0H 04S0547 00183000 * CNRFCSL=ON; /* INDICATE THAT A CHANGE SESSION 00184000 * LIMIT COMMAND HAS BEEN 04S0547 00185000 * CHECKPOINTED */ 00186000 OI CNRFCSL(RCKPREC),B'00001000' 04S0547 00187000 * CNRCSLIM=OCCKDAT1; /* CKPT CHANGE SESSION LIMIT DATA*/ 00188000 MVC CNRCSLIM(1,RCKPREC),OCCKDAT1(ROPCE) 04S0548 00189000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00190000 B CE0001@ 04S0549 00191000 * END CSLIM; /* END OF SUBCASE */ 00192000 * 04S0551 00193000 * /*******************************************************/ 00194000 * /* */ 00195000 * /* PROCESS.READRETN.CTLIM: CHECKPOINT A CHANGE */ 00196000 * /* TRANSMISSION LIMIT COMMAND. */ 00197000 * /* */ 00198000 * /*******************************************************/ 00199000 * 04S0551 00200000 *CTLIM: 04S0551 00201000 * DO; /* SUBCASE */ 00202000 CTLIM DS 0H 04S0552 00203000 * CNRFCTL=ON; /* INDICATE THAT A CHANGE 04S0552 00204000 * TRANSMISSIN LIMIT COMMAND HAS 00205000 * BEEN CHECKPOINTED */ 00206000 OI CNRFCTL(RCKPREC),B'00000100' 04S0552 00207000 * CNRCTLIM=OCCKDAT1; /* CKPT CHANGE TRANSMISSION LIMIT 00208000 * DATA */ 00209000 MVC CNRCTLIM(1,RCKPREC),OCCKDAT1(ROPCE) 04S0553 00210000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00211000 B CE0001@ 04S0554 00212000 * END CTLIM; /* END OF SUBCASE */ 00213000 * 04S0556 00214000 * /*******************************************************/ 00215000 * /* */ 00216000 * /* PROCESS.READRETN.MSSEL: CHECKPOINT A CHANGE MODEM */ 00217000 * /* SPEED COMMAND. */ 00218000 * /* */ 00219000 * /*******************************************************/ 00220000 * 04S0556 00221000 *MSSEL: 04S0556 00222000 * DO; /* SUBCASE */ 00223000 MSSEL DS 0H 04S0557 00224000 * CNRFMSS=ON; /* INDICATE THAT A MODEM SPEED 00225000 * SELECT COMMAND HAS BEEN 04S0557 00226000 * CHECKPOINTED */ 00227000 OI CNRFMSS(RCKPREC),B'00000010' 04S0557 00228000 * CNRMSSEL=OCCKDAT1; /* CKPT MODEM SPEED SELECT DATA */ 00229000 MVC CNRMSSEL(1,RCKPREC),OCCKDAT1(ROPCE) 04S0558 00230000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00231000 B CE0001@ 04S0559 00232000 * END MSSEL; /* END OF SUBCASE */ 00233000 * 04S0561 00234000 * /*******************************************************/ 00235000 * /* */ 00236000 * /* PROCESS.READRETN.ICHNGW: CHECKPOINT AN ICHNG COMMAND*/ 00237000 * /* BY WRITING A DEVICE/LINE SESSION RECORD AS PREVIOSLY*/ 00238000 * /* INITIALIZED BY IEDQNT OR BY SEGMENT ICHNGR OF THIS */ 00239000 * /* MODULE.IF MORE DEVICE RECORDS TO WRITE, REQUEST */ 00240000 * /* RETURN TO ICHNGR FOR FURTHER RECORD INITIALIZATION. */ 00241000 * /* */ 00242000 * /*******************************************************/ 00243000 * 04S0561 00244000 *ICHNGW: 04S0561 00245000 * DO; /* SUBCASE */ 00246000 ICHNGW DS 0H 04S0562 00247000 * RFY 04S0562 00248000 * RPLMV RSTD; 04S0562 00249000 * RPLMV=ADDR(CKPSAVE2(10));/* POINT TO MOVE BUFFER PARM 00250000 * LIST */ 00251000 LA RPLMV,CKPSAVE2+36(,RCKPT) 04S0563 00252000 * CNRFRDR=ON; /* INDICATE THAT DEVICE DATA HAS 00253000 * BEEN CKPT'ED */ 00254000 OI CNRFRDR(RCKPREC),B'00000001' 04S0564 00255000 * IF OCICTYPE^=OCICSID/* TEST ICHNG LINE TYPE */ 00256000 * THEN /* NOT SWITCHID - INSERT BDU FOR 00257000 * A REPLACE DEVICE SESSION 04S0565 00258000 * INITIATION INFO CMD */ 00259000 CLI OCICTYPE(ROPCE),0 04S0565 00260000 BE @RF00565 04S0565 00261000 * 05S0566 00262000 * /***************************************************/ 00263000 * /* */ 00264000 * /* PROCESS.READRETN.ICHNGW.INITBDU: THIS SEGMENT */ 00265000 * /* COMPLETES INITIALIZATION FOR THE WRITE OF A */ 00266000 * /* DEVICE RECORD FOR A LEASED, SWITCHED, OR */ 00267000 * /* MULTIPOINT LINE. */ 00268000 * /* */ 00269000 * /***************************************************/ 00270000 * 05S0566 00271000 * DO; 05S0566 00272000 * RPARM=ADDR(CNRDVBDU);/* POINT TO BDU FIELD IN 00273000 * CKPT RECORD */ 00274000 LA RPARM,CNRDVBDU(,RCKPREC) 05S0567 00275000 * RPARM->IEDBDU=''B;/* CLEAR THE BDU */ 00276000 XC IEDBDU(6,RPARM),IEDBDU(RPARM) 05S0568 00277000 * RPARM->BDUCMND=CD0CTRL;/* CONTROL COMMAND */ 00278000 MVI BDUCMND(RPARM),X'08' 05S0569 00279000 * RPARM->BDUMODIF=CD0CRDSI;/* REP DEV SESS INFO */ 00280000 MVI BDUMODIF(RPARM),X'22' 05S0570 00281000 * RPARM->BDUHEADR=ON;/* HEADER PREFIX */ 00282000 OI BDUHEADR(RPARM),B'01000000' 05S0571 00283000 * PLMVTU=ADDR(CNRDVRCD);/* SET TARGET TO RECEIVE 00284000 * ... */ 00285000 LA @14,CNRDVRCD(,RCKPREC) 05S0572 00286000 ST @14,PLMVTU(,RPLMV) 05S0572 00287000 * PLMVTD=ADDR(CNRDVRCD);/* ... DEVICE SESSION INFO */ 00288000 ST @14,PLMVTD(,RPLMV) 05S0573 00289000 * PLMVLNTH=DEVLEN;/* LENGTH FOR DATA MOVE IS LENGTH 00290000 * OF THE DEVICE RECORD */ 00291000 L @14,PLMVSD(,RPLMV) 05S0574 00292000 SLR @12,@12 05S0574 00293000 IC @12,DEVLEN(,@14) 05S0574 00294000 STH @12,PLMVLNTH(,RPLMV) 05S0574 00295000 * END; 05S0575 00296000 * CNRDVTC=CKPTC; /* MOVE IN TTCIN AND DATA COUNT 00297000 * FOR DEVICE/LINE RECORD */ 00298000 @RF00565 MVC CNRDVTC(4,RCKPREC),CKPTC(RCKPT) 04S0576 00299000 * PLMVTCTG=ON; /* TARGET OF MOVE IS CONTIGUOUS 00300000 * AREA */ 00301000 OI PLMVTCTG(RPLMV),B'00100000' 04S0577 00302000 * RPARM=RPLMV; /* POINT TO MOVE BUFFER PARAMETER 00303000 * LIST */ 00304000 LR RPARM,RPLMV 04S0578 00305000 * CALL IEDMVBFR; /* MOVE DEVICE RECORD FROM BUFFER 00306000 * UNITS INTO CKPT RECORD */ 00307000 L @12,AVTSAVTP(,RAVT) 04S0579 00308000 L @15,SAVTMVBF(,@12) 04S0579 00309000 BALR @14,@15 04S0579 00310000 * IF CKPTNTNB^=0 /* TEST FOR MORE DEVICE RECORDS 00311000 * TO CKPT */ 00312000 * THEN /* THERE ARE MORE DEVICE DEVICE 00313000 * RECORDS */ 00314000 LH @14,CKPTNTNB(,RCKPT) 04S0580 00315000 LTR @14,@14 04S0580 00316000 BZ @RF00580 04S0580 00317000 * CKPSLNEW=SELREAD; /* SET SELECT VALUES FOR READ 00318000 * NEXT DEVICE RECORD */ 00319000 MVC CKPSLNEW(3,RCKPT),SELREAD 04S0581 00320000 * ELSE /* NO MORE DEVICE RECORDS */ 00321000 * CKPSLNEW=SELNOTFY;/* SET SELECT VALUE FOR 04S0582 00322000 * NOTIFICATION AFTER WRITE OF 00323000 * DEVICE RECORD */ 00324000 B @RC00580 04S0582 00325000 @RF00580 MVC CKPSLNEW(3,RCKPT),SELNOTFY 04S0582 00326000 * RFY 04S0583 00327000 * RPLMV UNRSTD; 04S0583 00328000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00329000 B CE0001@ 04S0584 00330000 * END ICHNGW; /* END OF SUBCASE */ 00331000 * 04S0586 00332000 * /*******************************************************/ 00333000 * /* */ 00334000 * /* PROCESS.READRETN.TCHNG: CHECKPOINT A TCHNG COMMAND. */ 00335000 * /* */ 00336000 * /*******************************************************/ 00337000 * 04S0586 00338000 *TCHNG: 04S0586 00339000 * DO; /* SUBCASE */ 00340000 TCHNG DS 0H 04S0587 00341000 * RFY 04S0587 00342000 * RPLMV RSTD; 04S0587 00343000 * IF LENCNR+PRUDATCT>CKPBLKSZ/* TEST FOR CKPT DATA TOO 00344000 * BIG FOR CKPT RECORD */ 00345000 * THEN /* DATA IS TOO BIG */ 00346000 L @14,IEDPRUQP(,ROPCE) 04S0588 00347000 LH @14,PRUDATCT(,@14) 04S0588 00348000 LH @12,LENCNR 04S0588 00349000 ALR @12,@14 04S0588 00350000 CH @12,CKPBLKSZ(,RCKPT) 04S0588 00351000 BNH @RF00588 04S0588 00352000 * DO; 04S0589 00353000 * CKPENCDE=CKPTOOBG;/* SET 'DATA TOO BIG' MESSAGE 00354000 * INDICATOR */ 00355000 MVI CKPENCDE(RCKPT),X'0C' 04S0590 00356000 * CKPDATCT=PRUDATCT;/* SAVE VARIABLE LENGTH */ 00357000 STH @14,CKPDATCT(,RCKPT) 04S0591 00358000 * CKPCUSEL=CKPNOTFY;/* REQUEST NOTIFICATION */ 00359000 MVI CKPCUSEL(RCKPT),X'0A' 04S0592 00360000 * END; 04S0593 00361000 * ELSE /* DATA NOT TOO BIG */ 00362000 * DO; 04S0594 00363000 B @RC00588 04S0594 00364000 @RF00588 DS 0H 04S0595 00365000 * CNRFRDR=ON; /* INDICATE THAT DEVICE DATA HAS 00366000 * BEEN CKPT'ED */ 00367000 OI CNRFRDR(RCKPREC),B'00000001' 04S0595 00368000 * RPLMV=ADDR(CKPSAVE2(10));/* POINT TO MOVE BUFFER 00369000 * PARM LIST */ 00370000 LA RPLMV,CKPSAVE2+36(,RCKPT) 04S0596 00371000 * CNRDVT=PRUTTCIN;/* MOVE TNT OFFSET INTO CKPT 00372000 * RECORD */ 00373000 L @14,IEDPRUQP(,ROPCE) 04S0597 00374000 MVC CNRDVT(2,RCKPREC),PRUTTCIN(@14) 04S0597 00375000 * CNRDVC=PRUDATCT;/* MOVE DATA COUNT INTO CKPT 00376000 * RECORD */ 00377000 LH @12,PRUDATCT(,@14) 04S0598 00378000 STCM @12,3,CNRDVC(RCKPREC) 04S0598 00379000 * PLMVTU=ADDR(CNRDVBDU);/* SET TARGET ADDR TO ... */ 00380000 LA @02,CNRDVBDU(,RCKPREC) 04S0599 00381000 ST @02,PLMVTU(,RPLMV) 04S0599 00382000 * PLMVTD=ADDR(CNRDVBDU);/* ... DEVICE RECORD */ 00383000 ST @02,PLMVTD(,RPLMV) 04S0600 00384000 * PLMVSU=OCUNIT; /* SET ADDR OF UNIT CONTAINING 00385000 * THE DATA */ 00386000 L @02,OCUNIT(,ROPCE) 04S0601 00387000 ST @02,PLMVSU(,RPLMV) 04S0601 00388000 * PLMVSD=ADDR(IEDBDU);/* POINT TO START OF DATA TO 00389000 * MOVE */ 00390000 AL @14,@CF00239 04S0602 00391000 ST @14,PLMVSD(,RPLMV) 04S0602 00392000 * PLMVLNTH=PRUDATCT;/* LENGTH IS ALL OF THE DATA */ 00393000 STH @12,PLMVLNTH(,RPLMV) 04S0603 00394000 * PLMVFLG1=''B; /* CLEAR FLAG BYTE 1 */ 00395000 MVI PLMVFLG1(RPLMV),X'00' 04S0604 00396000 * PLMVTCTG=ON; /* TARGET OF THE MOVE IS 04S0605 00397000 * CONTIGUOUS */ 00398000 OI PLMVTCTG(RPLMV),B'00100000' 04S0605 00399000 * PLMVFLG2=''B; /* CLEAR FLAG BYTE 2 */ 00400000 MVI PLMVFLG2(RPLMV),X'00' 04S0606 00401000 * PLMVUNCA=0; /* CLEAR CHAIN ADDRESS */ 00402000 SLR @14,@14 04S0607 00403000 ST @14,PLMVUNCA(,RPLMV) 04S0607 00404000 * RPARM=RPLMV; /* SET ADDRESS OF PARM LIST */ 00405000 LR RPARM,RPLMV 04S0608 00406000 * CALL IEDMVBFR; /* CALL ROUTINE TO MOVE DEVICE 00407000 * DATA TO THE CKPT RECORD */ 00408000 L @12,AVTSAVTP(,RAVT) 04S0609 00409000 L @15,SAVTMVBF(,@12) 04S0609 00410000 BALR @14,@15 04S0609 00411000 * END; 04S0610 00412000 * RFY 04S0611 00413000 * RPLMV UNRSTD; 04S0611 00414000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00415000 B CE0001@ 04S0612 00416000 * END TCHNG; /* END OF SUBCASE */ 00417000 * 04S0614 00418000 * /*******************************************************/ 00419000 * /* */ 00420000 * /* PROCESS.READRETN.ICHNGR: THIS SEGMENT PROCESSES */ 00421000 * /* RETURNS FROM A WRITE OF A DEVICE RECORD FOR ICHNG IF*/ 00422000 * /* THERE ARE MORE DEVICE RECORDS TO PROCESS. IT SETS */ 00423000 * /* THE DEVICE RECORD CKPT'ED INDICATOR FOR THE RESOURCE*/ 00424000 * /* JUST CKPT'ED. IT LOCATES THE NEXT DEVICE RECORD AND */ 00425000 * /* REQUESTS A READ OF THE MOST RECENT CKPT DATA FOR THE*/ 00426000 * /* RESOURCE. */ 00427000 * /* */ 00428000 * /*******************************************************/ 00429000 * 04S0614 00430000 *ICHNGR: 04S0614 00431000 * DO; /* SUBCASE */ 00432000 ICHNGR DS 0H 04S0615 00433000 * RFY 04S0615 00434000 * RPLMV RSTD; 04S0615 00435000 * IF TRMCKPRN=OFF /* TEST FOR WHICH RECORD WAS 00436000 * UPDATED */ 00437000 * THEN /* FIRST WAS UPDATED */ 00438000 L @14,CKPTRMAD(,RCKPT) 04S0616 00439000 TM TRMCKPRN(@14),B'00000010' 04S0616 00440000 BNZ @RF00616 04S0616 00441000 * TRMCKPRN=ON; /* INDICATE THAT SECOND RECORD IS 00442000 * TO BE UPDATED NEXT */ 00443000 OI TRMCKPRN(@14),B'00000010' 04S0617 00444000 * ELSE /* SECOND WAS UPDATED */ 00445000 * TRMCKPRN=OFF; /* INDICATE THAT FIRST RECORD IS 00446000 * TO BE UPDATED NEXT */ 00447000 B @RC00616 04S0618 00448000 @RF00616 L @14,CKPTRMAD(,RCKPT) 04S0618 00449000 NI TRMCKPRN(@14),B'11111101' 04S0618 00450000 * RPLMV=ADDR(CKPSAVE2(10));/* POINT TO MOVE BUFFER PARM 00451000 * LIST */ 00452000 @RC00616 LA RPLMV,CKPSAVE2+36(,RCKPT) 04S0619 00453000 * 05S0620 00454000 * /*****************************************************/ 00455000 * /* */ 00456000 * /* PROCESS.READRETN.ICHNGR.FINDNEXT: THIS SEGMENT */ 00457000 * /* SCANS THE REMAINING DEVICE RECORDS LOOKING FOR */ 00458000 * /* VALID RECORDS TO PROCESS. AT ENTRY CKPTNTPT POINTS*/ 00459000 * /* TO THE TNT OFFSET AND PLMVSD POINTS TO THE DEVICE */ 00460000 * /* RECORD TO PROCESS. A SCAN IS MADE LOOKING FOR A */ 00461000 * /* NON-ZERO TNT OFFSET (WHICH IMPLIES THAT A */ 00462000 * /* CORRESPONDING DEVICE RECORD IS TO BE PROCESSED). */ 00463000 * /* AT EXIT, 'OFFSET=0' IMPLIES THAT THERE IS NO */ 00464000 * /* DEVICE RECORD TO PROCESS. OTHERWISE, 'OFFSET' */ 00465000 * /* CONTAINS THE TNT OFFSET, CKPTNTPT POINTS TO THE */ 00466000 * /* NEXT TNT OFFSET, AND PLMVSD POINTS TO THE DEVICE */ 00467000 * /* RECORD TO PROCESS. */ 00468000 * /* */ 00469000 * /*****************************************************/ 00470000 * 05S0620 00471000 * DO; 05S0620 00472000 * IF CKPTNTNB<=0 /* TEST FOR MORE TNT OFFSETS TO 00473000 * SCAN */ 00474000 * THEN /* THERE ARE NO MORE TNT OFFSETS */ 00475000 SLR @14,@14 05S0621 00476000 CH @14,CKPTNTNB(,RCKPT) 05S0621 00477000 BL @RF00621 05S0621 00478000 * OFFSET=0; /* CLEAR OFFSET TO INDICATE NO 00479000 * MORE TNT OFFSETS */ 00480000 STH @14,OFFSET 05S0622 00481000 * ELSE /* MORE TNT OFFSETS */ 00482000 * DO; 05S0623 00483000 B @RC00621 05S0623 00484000 @RF00621 DS 0H 05S0624 00485000 * CALL TNTMOVE; /* CALL SUBROUTINE TO GET NEXT 00486000 * TNT OFFSET */ 00487000 BAL @14,TNTMOVE 05S0624 00488000 * DO WHILE(CKPTNTNB>0&OFFSET=0);/* SEARCH FOR TNT 00489000 * OFFSET AS LONG AS ANY REMAIN 00490000 * AND A VALID ONE HAS NOT BEEN 00491000 * FOUND */ 00492000 B @DE00625 05S0625 00493000 @DL00625 DS 0H 05S0626 00494000 * CALL TNTMOVE;/* CALL SUBROUTINE TO GET NEXT 00495000 * TNT OFFSET */ 00496000 BAL @14,TNTMOVE 05S0626 00497000 * PLMVLNTH=DEVLEN;/* SET LENGTH OF DEVICE 05S0627 00498000 * RECORD TO BE SKIPPED */ 00499000 L @14,PLMVSD(,RPLMV) 05S0627 00500000 SLR @12,@12 05S0627 00501000 IC @12,DEVLEN(,@14) 05S0627 00502000 STH @12,PLMVLNTH(,RPLMV) 05S0627 00503000 * PLMVFLG1=''B;/* CLEAR FLAGS */ 00504000 MVI PLMVFLG1(RPLMV),X'00' 05S0628 00505000 * RPARM=RPLMV;/* SET ADDRESS OF PARAMETER LIST */ 00506000 LR RPARM,RPLMV 05S0629 00507000 * CALL IEDMVBFR;/* CALL MOVE BUFFER ROUTINE TO 00508000 * SKIP DEVICE RECORD */ 00509000 L @12,AVTSAVTP(,RAVT) 05S0630 00510000 L @15,SAVTMVBF(,@12) 05S0630 00511000 BALR @14,@15 05S0630 00512000 * END; 05S0631 00513000 @DE00625 LH @14,CKPTNTNB(,RCKPT) 05S0631 00514000 LTR @14,@14 05S0631 00515000 BNP @DC00625 05S0631 00516000 LH @14,OFFSET 05S0631 00517000 N @14,@CF02829 05S0631 00518000 LTR @14,@14 05S0631 00519000 BZ @DL00625 05S0631 00520000 @DC00625 DS 0H 05S0632 00521000 * END; 05S0632 00522000 * END; 05S0633 00523000 @RC00621 DS 0H 05S0634 00524000 * IF OFFSET=0 /* TEST FOR VALID TNT OFFSET 00525000 * FOUND */ 00526000 * THEN /* NO MORE DEVICE RECORDS TO 00527000 * PROCESS */ 00528000 LH @14,OFFSET 04S0634 00529000 N @14,@CF02829 04S0634 00530000 LTR @14,@14 04S0634 00531000 BNZ @RF00634 04S0634 00532000 * CKPCUSEL=CKPNOTFY;/* NOTIFY OP CONTROL THAT THE 00533000 * ICHNG CKPT HAS COMPLETED */ 00534000 MVI CKPCUSEL(RCKPT),X'0A' 04S0635 00535000 * ELSE /* MORE DEVICE RECORDS */ 00536000 * 05S0636 00537000 * /***************************************************/ 00538000 * /* */ 00539000 * /* PROCESS.READRETN.ICHNGR.READINIT: THIS SEGMENT */ 00540000 * /* INITIALIZES THE CKPT WORKAREA FIELDS NECESSARY */ 00541000 * /* TO REQUEST A READ OF ANOTHER CKPT RECORD. */ 00542000 * /* */ 00543000 * /***************************************************/ 00544000 * 05S0636 00545000 * DO; 05S0636 00546000 B @RC00634 05S0636 00547000 @RF00634 DS 0H 05S0637 00548000 * CKPDATCT=DEVLEN+LENGTH(IEDBDU);/* SET VARIABLE 00549000 * LENGTH OF CKPT DATA */ 00550000 L @14,PLMVSD(,RPLMV) 05S0637 00551000 LA @12,6 05S0637 00552000 SLR @02,@02 05S0637 00553000 IC @02,DEVLEN(,@14) 05S0637 00554000 ALR @12,@02 05S0637 00555000 STH @12,CKPDATCT(,RCKPT) 05S0637 00556000 * IF LENCNR+CKPDATCT>CKPBLKSZ/* TEST FOR CKPT DATA 00557000 * TOO BIG FOR CKPT RECORD */ 00558000 * THEN /* DATA IS TOO BIG */ 00559000 AH @12,LENCNR 05S0638 00560000 CH @12,CKPBLKSZ(,RCKPT) 05S0638 00561000 BNH @RF00638 05S0638 00562000 * DO; 05S0639 00563000 * CKPENCDE=CKPTOOBG;/* SET 'DATA TOO BIG' 05S0640 00564000 * MESSAGE INDICATOR */ 00565000 MVI CKPENCDE(RCKPT),X'0C' 05S0640 00566000 * CKPCUSEL=CKPNOTFY;/* REQUEST NOTIFICATION */ 00567000 MVI CKPCUSEL(RCKPT),X'0A' 05S0641 00568000 * END; 05S0642 00569000 * ELSE /* DATA NOT TOO BIG */ 00570000 * DO; 05S0643 00571000 B @RC00638 05S0643 00572000 @RF00638 DS 0H 05S0644 00573000 * 06S0644 00574000 * /*********************************************/ 00575000 * /* */ 00576000 * /* PROCESS.READRETN.ICHNGR.READINIT.SETRSID: */ 00577000 * /* THIS SEGMENT FINDS THE RSID IN THE DEVICE */ 00578000 * /* RECORD. PLMVSD POINTS TO THE DEVICE */ 00579000 * /* RECORD. THE FIRST BYTE OF THE DEVICE */ 00580000 * /* RECORD IS THE LENGTH OF THE DEVICE RECORD.*/ 00581000 * /* THE NEXT TWO BYTES ARE THE RSID. MOVE THE */ 00582000 * /* RSID TO A SAVEAREA, REMOVE THE SUBAREA */ 00583000 * /* ADDRESS, AND SAVE RSID IN THE CHECKPOINT */ 00584000 * /* WORKAREA. */ 00585000 * /* */ 00586000 * /*********************************************/ 00587000 * 06S0644 00588000 * DO; 06S0644 00589000 * RPARM=PLMVSU+12+AVTKEYLE;/* SET END OF THE 00590000 * UNIT ADDRESS */ 00591000 LA RPARM,12 06S0645 00592000 AL RPARM,PLMVSU(,RPLMV) 06S0645 00593000 AH RPARM,AVTKEYLE(,RAVT) 06S0645 00594000 * IF PLMVSD+3<=RPARM/* TEST FOR RSID FULLY 00595000 * CONTAINED IN THIS UNIT */ 00596000 * THEN /* RSID FULLY IN THIS UNIT */ 00597000 L @14,PLMVSD(,RPLMV) 06S0646 00598000 LA @12,3 06S0646 00599000 ALR @12,@14 06S0646 00600000 CR @12,RPARM 06S0646 00601000 BH @RF00646 06S0646 00602000 * RSID=DEVID;/* SAVE RSID */ 00603000 MVC RSID(2),DEVID(@14) 06S0647 00604000 * ELSE /* NOT FULLY IN THIS UNIT */ 00605000 * IF PLMVSD+2=RPARM/* TEST FOR FIRST BYTE 00606000 * OF RSID IN THIS UNIT */ 00607000 * THEN /* FIRST BYTE IS IN THIS UNIT */ 00608000 B @RC00646 06S0648 00609000 @RF00646 L @14,PLMVSD(,RPLMV) 06S0648 00610000 LA @12,2 06S0648 00611000 ALR @12,@14 06S0648 00612000 CR @12,RPARM 06S0648 00613000 BNE @RF00648 06S0648 00614000 * DO; 06S0649 00615000 * RSID1=PLMVSD->MOVECHAR(2:2);/* GET 00616000 * FIRST BYTE OF RSID */ 00617000 MVC RSID1(1),MOVECHAR+1(@14) 06S0650 00618000 * RSID2=PLMVSU->ICTNTTIC->ICTNTDAT(1:1); 00619000 L @14,PLMVSU(,RPLMV) 06S0651 00620000 L @14,ICTNTTIC(,@14) 06S0651 00621000 MVC RSID2(1),ICTNTDAT(@14) 06S0651 00622000 * /* GET SECOND BYTE OF RSID FROM 00623000 * THE NEXT UNIT */ 00624000 * END; 06S0652 00625000 * ELSE /* RSID IN THE NEXT UNIT */ 00626000 * RSID=PLMVSU->ICTNTTIC->ICTNTDAT(1:2);/* 00627000 * GET RSID FROM NEXT UNIT */ 00628000 B @RC00648 06S0653 00629000 @RF00648 L @14,PLMVSU(,RPLMV) 06S0653 00630000 L @14,ICTNTTIC(,@14) 06S0653 00631000 MVC RSID(2),ICTNTDAT(@14) 06S0653 00632000 * CKPNRSID=(SAVTZELM&&'FFFF'X)&RSID;/* CLEAR 00633000 * SUBAREA ADDR FROM THE RESOURCE 00634000 * ID */ 00635000 @RC00648 DS 0H 06S0654 00636000 @RC00646 L @14,AVTSAVTP(,RAVT) 06S0654 00637000 L @12,@CF02807 06S0654 00638000 LH @14,SAVTZELM(,@14) 06S0654 00639000 N @14,@CF02829 06S0654 00640000 XR @12,@14 06S0654 00641000 SLR @14,@14 06S0654 00642000 ICM @14,3,RSID 06S0654 00643000 NR @12,@14 06S0654 00644000 STH @12,CKPNRSID(,RCKPT) 06S0654 00645000 * END; 06S0655 00646000 * RPARM=OFFSET;/* GET TNT OFFSET */ 00647000 LH RPARM,OFFSET 05S0656 00648000 N RPARM,@CF02829 05S0656 00649000 * OCTRMTBL=RPARM;/* SAVE THE TNT OFFSET */ 00650000 STH RPARM,OCTRMTBL(,ROPCE) 05S0657 00651000 * CKPTTCIN=RPARM;/* SAVE THE TNT OFFSET */ 00652000 STH RPARM,CKPTTCIN(,RCKPT) 05S0658 00653000 * CALL IEDQTNT;/* GET TERMINAL ENTRY ADDR */ 00654000 L @15,AVTRNMPT(,RAVT) 05S0659 00655000 BALR @14,@15 05S0659 00656000 * CKPTRMAD=RPARM-PREFIXSZ;/* SAVE TERM ENTRY 00657000 * PREFIX ADDR */ 00658000 LR @14,RPARM 05S0660 00659000 SH @14,PREFIXSZ 05S0660 00660000 ST @14,CKPTRMAD(,RCKPT) 05S0660 00661000 * IF TRMCKPRN=ON/* DETERMINE WHICH RECORD TO 00662000 * UPDATE */ 00663000 * THEN /* UPDATE THE SECOND RECORD */ 00664000 TM TRMCKPRN(@14),B'00000010' 05S0661 00665000 BNO @RF00661 05S0661 00666000 * CKPNTRK=0;/* CLEAR ALTERNATE RECORD 05S0662 00667000 * INDICATOR TO INDICATE THAT 00668000 * FIRST RECORD IS TO BE READ FOR 00669000 * INFO */ 00670000 SLR @14,@14 05S0662 00671000 STH @14,CKPNTRK(,RCKPT) 05S0662 00672000 * ELSE /* UPDATE FIRST RECORD */ 00673000 * CKPNTRK=CKPTRKCN;/* SET ALTERNATE RECORD 00674000 * INDICATOR TO INDICATE THAT 00675000 * SECOND RECORD IS TO BE READ 00676000 * FOR INFO */ 00677000 B @RC00661 05S0663 00678000 @RF00661 LH @14,CKPTRKCN(,RCKPT) 05S0663 00679000 STH @14,CKPNTRK(,RCKPT) 05S0663 00680000 * END; 05S0664 00681000 * END; 05S0665 00682000 * RFY 04S0666 00683000 * RPLMV UNRSTD; 04S0666 00684000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00685000 B CE0001@ 04S0667 00686000 * END ICHNGR; /* END OF SUBCASE */ 00687000 *CE0001@: 03S0669 00688000 * END; /* END OF CASE */ 00689000 CE0001@ DS 0H 03S0670 00690000 * 04S0670 00691000 * /*********************************************************/ 00692000 * /* */ 00693000 * /* PROCESS.READRETN.IO: THIS SEGMENT FINISHES THE */ 00694000 * /* INITIALIZATION TO UPDATE THE RESOURCE'S CHECKPOINT */ 00695000 * /* RECORD. IEDQNW IS CALLED TO ISSUE THE EXCP. */ 00696000 * /* */ 00697000 * /*********************************************************/ 00698000 * 04S0670 00699000 * DO; 04S0670 00700000 * IF CKPCUSEL^=CKPNOTFY /* TEST FOR FURTHER I/O REQUIRED */ 00701000 * THEN /* FURTHER I/O REQUIRED */ 00702000 CLI CKPCUSEL(RCKPT),10 04S0671 00703000 BE @RF00671 04S0671 00704000 * DO; 04S0672 00705000 * IF CKPCUSEL=CKPICR/* TEST FOR TYPE OF COMMAND */ 00706000 * THEN /* REQUEST IS FOR A READ FOR 00707000 * ICHNG */ 00708000 CLI CKPCUSEL(RCKPT),9 04S0673 00709000 BNE @RF00673 04S0673 00710000 * CKPRWCMD=CKPREAD;/* SET COMMAND TO A READ */ 00711000 MVI CKPRWCMD(RCKPT),X'06' 04S0674 00712000 * ELSE /* REQUEST FOR A WRITE */ 00713000 * DO; 04S0675 00714000 B @RC00673 04S0675 00715000 @RF00673 DS 0H 04S0676 00716000 * CKPRWCMD=CKPWRITE;/* SET COMMAND CODE IN CCW TO 00717000 * A WRITE */ 00718000 MVI CKPRWCMD(RCKPT),X'05' 04S0676 00719000 * IF CKPNTRK=0 /* TEST FOR WHICH RECORD WAS READ 00720000 * FOR THIS RESOURCE */ 00721000 * THEN /* FIRST RECORD WAS READ */ 00722000 LH @14,CKPNTRK(,RCKPT) 04S0677 00723000 LTR @14,@14 04S0677 00724000 BNZ @RF00677 04S0677 00725000 * CKPNTRK=CKPTRKCN;/* INDICATE THAT SECOND 00726000 * RECORD IS TO BE UPDATED */ 00727000 LH @14,CKPTRKCN(,RCKPT) 04S0678 00728000 STH @14,CKPNTRK(,RCKPT) 04S0678 00729000 * ELSE /* SECOND RECORD WAS READ */ 00730000 * CKPNTRK=0; /* INDICATE THAT FIRST RECORD IS 00731000 * TO BE UPDATED */ 00732000 B @RC00677 04S0679 00733000 @RF00677 SLR @14,@14 04S0679 00734000 STH @14,CKPNTRK(,RCKPT) 04S0679 00735000 * GEN NOREFS SETS(REG00,RPARM); 04S0680 00736000 @RC00677 DS 0H 04S0680 00737000 * /* 00738000 TIME , GET TIME AND DATE 00739000 * CNRDATE=RPARM;/* SET DATE IN RESOURCE RECORD */ 00740000 STCM RPARM,15,CNRDATE(RCKPREC) 04S0681 00741000 * CNRTIME=REG00;/* SET TIME IN RESOURCE RECORD */ 00742000 STCM REG00,15,CNRTIME(RCKPREC) 04S0682 00743000 * CNRTNTOF=OCTRMTBL;/* SET TNT OFFSET OF THE 00744000 * RESOURCE */ 00745000 LH @14,OCTRMTBL(,ROPCE) 04S0683 00746000 N @14,@CF02829 04S0683 00747000 STH @14,CNRTNTOF(,RCKPREC) 04S0683 00748000 * END; 04S0684 00749000 * CALL IEDQNW; /* CALL ROUTINE TO START I/O TO 00750000 * THE CHECKPOINT DATA SET */ 00751000 @RC00673 L @15,CAVTCRIO(,RCAVT) 04S0685 00752000 BALR @14,@15 04S0685 00753000 * IF REG15^=0 /* TEST FOR I/O STARTED */ 00754000 * THEN /* I/O WAS NOT STARTED */ 00755000 LTR REG15,REG15 04S0686 00756000 BZ @RF00686 04S0686 00757000 * DO; 04S0687 00758000 * CKPENCDE=REG15;/* SAVE ERROR RETURN CODE */ 00759000 STC REG15,CKPENCDE(,RCKPT) 04S0688 00760000 * CKPCUSEL=CKPNOTFY;/* SET SELECT VALUE TO 04S0689 00761000 * INDICATE THAT NOTIFICATION IS 00762000 * TO BE DONE */ 00763000 MVI CKPCUSEL(RCKPT),X'0A' 04S0689 00764000 * END; 04S0690 00765000 * END; 04S0691 00766000 @RF00686 DS 0H 04S0692 00767000 * END; 04S0692 00768000 @RF00671 DS 0H 04S0693 00769000 * RFY 03S0693 00770000 * RCKPREC UNRSTD; 03S0693 00771000 * END; 03S0694 00772000 * ELSE /* I/O WAS UNSUCCESSFUL */ 00773000 * DO; 02S0695 00774000 B @RC00513 02S0695 00775000 @RF00513 DS 0H 02S0696 00776000 * CKPCUSEL=CKPNOTFY; /* SET SELECT VALUE TO NOTIFY */ 00777000 MVI CKPCUSEL(RCKPT),X'0A' 02S0696 00778000 * CKPENCDE=CKPIOERR; /* SET I/O ERROR CODE */ 00779000 MVI CKPENCDE(RCKPT),X'28' 02S0697 00780000 * END; 02S0698 00781000 * IF CKPCUSEL=CKPNOTFY /* TEST FOR REQUEST FOR 02S0699 00782000 * NOTIFICATION */ 00783000 * THEN /* THIS IS A REQUEST FOR 02S0699 00784000 * NOTIFICATION */ 00785000 @RC00513 DS 0H 02S0699 00786000 @RF00512 CLI CKPCUSEL(RCKPT),10 02S0699 00787000 BNE @RF00699 02S0699 00788000 * DO; 02S0700 00789000 * IF CKPENCDE^=0 /* TEST FOR ERROR DETECTED */ 00790000 * THEN /* ERROR WAS DETECTED */ 00791000 CLI CKPENCDE(RCKPT),0 02S0701 00792000 BE @RF00701 02S0701 00793000 * 03S0702 00794000 * /***********************************************************/ 00795000 * /* */ 00796000 * /* PROCESS.WRTMSG: THIS SEGMENT LOADS THE MESSAGE MODULE */ 00797000 * /* IEDNMG. THE ERROR CODE IN CKPENCDE IS USED AS AN OFFSET */ 00798000 * /* INTO IEDNMG TO FIND THE POINTER TO THE DESIRED ERROR */ 00799000 * /* MESSAGE. THE DDNAME OF THE CHECKPOINT DATA SET IS */ 00800000 * /* OBTAINED FROM THE TIOT AND IS INSERTED INTO THE MESSAGE.*/ 00801000 * /* A WTO IS ISSUED TO NOTIFY THE OPERATOR OF A CHECKPOINT */ 00802000 * /* ERROR. */ 00803000 * /* */ 00804000 * /***********************************************************/ 00805000 * 03S0702 00806000 * DO; 03S0702 00807000 * RFY 03S0703 00808000 * RTIOT RSTD; 03S0703 00809000 * GEN REFS(IEDNMG) SETS(REG00,RPARM); 03S0704 00810000 * /* 00811000 LOAD EPLOC=IEDNMG LOAD MESSAGE MODULE 00812000 * RPARM=REG00+CKPENCDE; /* GET ADDR OF THE POINTER TO THE 00813000 * ERROR MESSAGE */ 00814000 LR RPARM,REG00 03S0705 00815000 SLR @14,@14 03S0705 00816000 IC @14,CKPENCDE(,RCKPT) 03S0705 00817000 ALR RPARM,@14 03S0705 00818000 * RPARM=MSGPTR; /* GET ADDR OF THE MESSAGE */ 00819000 L RPARM,MSGPTR(,RPARM) 03S0706 00820000 * RTIOT=TCBTIO+DCBTIOT; /* GET ADDR OF THE TIOT ENTRY FOR 00821000 * THE CKPT DATA SET */ 00822000 L @14,AVTTCB(,RAVT) 03S0707 00823000 L @12,DCBPTR-1(,RCKPT) 03S0707 00824000 LH RTIOT,DCBTIOT+40(,@12) 03S0707 00825000 AL RTIOT,TCBTIO(,@14) 03S0707 00826000 * MSGDDNAM=TIOEDDNM; /* MOVE DDNAME FROM THE TIOT 00827000 * ENTRY INTO THE MESSAGE */ 00828000 MVC MSGDDNAM(8,RPARM),TIOEDDNM(RTIOT) 03S0708 00829000 * IF CKPENCDE=CKPTOOBG /* TEST MESSAGE REQUEST */ 00830000 * THEN /* REQUEST FOR 'DATA TOO BIG' MSG*/ 00831000 CLI CKPENCDE(RCKPT),12 03S0709 00832000 BNE @RF00709 03S0709 00833000 * DO; 03S0710 00834000 * REG15=CKPDATCT+LENCNR;/* GET LENGTH OF CKPT DATA */ 00835000 LH REG15,CKPDATCT(,RCKPT) 03S0711 00836000 AH REG15,LENCNR 03S0711 00837000 * CVD(REG15,CONVERT); /* CONVERT TO DECIMAL */ 00838000 CVD REG15,CONVERT(,RCKPT) 03S0712 00839000 * UNPK(MSGNUMB,CONUNPK);/* UNPACK INTO THE MSG */ 00840000 UNPK MSGNUMB(4,RPARM),CONUNPK(3,RCKPT) 03S0713 00841000 * MSGZONE=MSGZONE|ZONE;/* PUT ZONE INTO THE LAST DIGIT */ 00842000 OI MSGZONE(RPARM),X'F0' 03S0714 00843000 * END; 03S0715 00844000 * GEN REFS(RPARM) SETS(REG00); 03S0716 00845000 @RF00709 DS 0H 03S0716 00846000 * /* 00847000 WTO MF=(E,(1)) WRITE ERROR MESSAGE 00848000 DELETE EPLOC=IEDNMG DELETE MESSAGE MODULE 00849000 * RFY 03S0717 00850000 * RTIOT UNRSTD; 03S0717 00851000 * END; 03S0718 00852000 * ELSE 02S0719 00853000 * ; /* NO ERROR */ 00854000 @RF00701 DS 0H 02S0720 00855000 * 03S0720 00856000 * /*************************************************************/ 00857000 * /* */ 00858000 * /* PROCESS.NOTIF: THIS SEGMENT NOTIFIES OPERATOR CONTROL THAT*/ 00859000 * /* THE CHECKPOINT REQUEST HAS COMPLETED. */ 00860000 * /* */ 00861000 * /*************************************************************/ 00862000 * 03S0720 00863000 * DO; 03S0720 00864000 * 04S0721 00865000 * /***********************************************************/ 00866000 * /* */ 00867000 * /* PROCESS.NOTIF.FREEM: DETERMINE IF THERE IS AN AREA TO */ 00868000 * /* FREEMAIN BY CHECKING THE DATA ADDRESS OF THE CCW FOR A */ 00869000 * /* NON-ZERO ADDRESS OTHER THAT THE RESIDENT CONTROL RECORD */ 00870000 * /* OF THE CHECKPOINT WORKAREA. FREE THE AREA IF FOUND. IF */ 00871000 * /* AN AREA WAS PRESENT TO FREE AND THE I/O FROM THE AREA */ 00872000 * /* WAS GOOD, THEN FLIP THE BIT THAT INDICATES WHICH RECORD */ 00873000 * /* FOR THIS RESOURCE IS TO BE UPDATED NEXT. */ 00874000 * /* */ 00875000 * /***********************************************************/ 00876000 * 04S0721 00877000 * DO; 04S0721 00878000 * IF CKPRWADD^=ADDR(CKPNCNTL)&CKPRWADD^=0/* TEST FOR AREA 00879000 * TO FREEMAIN */ 00880000 * THEN /* THERE IS AN AREA TO FREEMAIN */ 00881000 L @14,CKPRWADD-1(,RCKPT) 04S0722 00882000 LA @14,0(,@14) 04S0722 00883000 LA @12,CKPNCNTL(,RCKPT) 04S0722 00884000 CR @14,@12 04S0722 00885000 BE @RF00722 04S0722 00886000 LTR @14,@14 04S0722 00887000 BZ @RF00722 04S0722 00888000 * DO; 04S0723 00889000 * GEN REFS(CKPGETML) SETS(RPARM); 04S0724 00890000 * /* 00891000 FREEMAIN E,MF=(E,CKPGETML(,RCKPT)) 00892000 * IF CKPENCDE=0 /* TEST FOR GOOD I/O PERFORMED */ 00893000 * THEN /* I/O WAS GOOD */ 00894000 CLI CKPENCDE(RCKPT),0 04S0725 00895000 BNE @RF00725 04S0725 00896000 * IF TRMCKPRN=OFF /* TEST FOR WHICH RECORD WAS 00897000 * UPDATED */ 00898000 * THEN /* FIRST WAS UPDATED */ 00899000 L @14,CKPTRMAD(,RCKPT) 04S0726 00900000 TM TRMCKPRN(@14),B'00000010' 04S0726 00901000 BNZ @RF00726 04S0726 00902000 * TRMCKPRN=ON; /* INDICATE THAT SECOND RECORD IS 00903000 * TO BE UPDATED NEXT */ 00904000 OI TRMCKPRN(@14),B'00000010' 04S0727 00905000 * ELSE /* SECOND WAS UPDATED */ 00906000 * TRMCKPRN=OFF; /* INDICATE THAT FIRST RECORD IS 00907000 * TO BE UPDATED NEXT */ 00908000 B @RC00726 04S0728 00909000 @RF00726 L @14,CKPTRMAD(,RCKPT) 04S0728 00910000 NI TRMCKPRN(@14),B'11111101' 04S0728 00911000 * END; 04S0729 00912000 @RC00726 DS 0H 04S0729 00913000 @RF00725 DS 0H 04S0730 00914000 * END; 04S0730 00915000 @RF00722 DS 0H 04S0731 00916000 * CAVTEOL2=EOL; /* RESET END OF WAIT LIST TO THE 00917000 * 3705 CKPT QUEUE */ 00918000 MVI CAVTEOL2(RCAVT),X'80' 03S0731 00919000 * CAVTEOL3=0; /* CLEAN UP WAIT LIST ENTRY ... */ 00920000 MVI CAVTEOL3(RCAVT),X'00' 03S0732 00921000 * CAVTNIOE=0; /* ... FOR 3705 CKPT IO ECB */ 00922000 SLR @14,@14 03S0733 00923000 STCM @14,7,CAVTNIOE(RCAVT) 03S0733 00924000 * CAVTWTG=0; /* CLEAR WHERE-TO-GO FIELD IN 00925000 * CKPT AVT */ 00926000 MVI CAVTWTG(RCAVT),X'00' 03S0734 00927000 * CAVTNWA=0; /* CLEAR POINTER TO THE CKPT 00928000 * WORKAREA */ 00929000 ST @14,CAVTNWA(,RCAVT) 03S0735 00930000 * AVTCCPRI=PRICKPT; /* SET PRIORITY */ 00931000 MVI AVTCCPRI(RAVT),X'EC' 03S0736 00932000 * 04S0737 00933000 * /***********************************************************/ 00934000 * /* */ 00935000 * /* PROCESS.NOTIF.SETQUEUE: THIS SEGMENT QUEUES THE REQUEST */ 00936000 * /* ELEMENT FOR RETURN TO OPERATOR CONTROL. IT TESTS FOR */ 00937000 * /* COMMANDS THAT NEED A TCAM CHECKPOINT AFTER THE 3705 */ 00938000 * /* CHECKPOINT COMPLETES. IF THE COMMANDS NEEDS A TCAM */ 00939000 * /* CHECKPOINT, THEN THE REQUEST ELEMENT IS QUEUED TO TCAM */ 00940000 * /* CHECKPOINT. */ 00941000 * /* */ 00942000 * /***********************************************************/ 00943000 * 04S0737 00944000 * DO; 04S0737 00945000 * AVTCCQCB=ADDR(AVTOPCQB);/* QUEUE REQUEST ELEMENT TO OP 00946000 * CONTROL */ 00947000 LA @14,AVTOPCQB(,RAVT) 04S0738 00948000 STCM @14,7,AVTCCQCB(RAVT) 04S0738 00949000 * IF AVTCKTAC=ON /* TEST FOR PRESENCE OF TCAM CKPT*/ 00950000 * THEN /* TCAM CKPT IS ACTIVE */ 00951000 TM AVTCKTAC(RAVT),B'10000000' 04S0739 00952000 BNO @RF00739 04S0739 00953000 * IF(OCOPTCDE=OCMODIFY&OCSWITCH=OCACTVTE)|(OCOPTCDE=OCICHNG 00954000 * &OCICTYPE^=OCICSID)/* TEST COMMAND TYPE */ 00955000 * THEN /* THIS IS A ACTIVATE 3705 OR AN 00956000 * ICHNG (NOT SWITCH ID LINE) */ 00957000 CLI OCOPTCDE(ROPCE),X'44' 04S0740 00958000 BNE @GL00003 04S0740 00959000 CLI OCSWITCH(ROPCE),X'22' 04S0740 00960000 BE @RT00740 04S0740 00961000 @GL00003 CLI OCOPTCDE(ROPCE),X'49' 04S0740 00962000 BNE @RF00740 04S0740 00963000 CLI OCICTYPE(ROPCE),0 04S0740 00964000 BE @RF00740 04S0740 00965000 @RT00740 DS 0H 04S0741 00966000 * DO; 04S0741 00967000 * AVTCCQCB=ADDR(AVTCKPQB);/* QUEUE REQUEST ELEMENT TO 00968000 * THE TCAM CKPT QUEUE TO REQUEST 00969000 * FURTHER CKPT PROCESSING */ 00970000 LA @14,AVTCKPQB(,RAVT) 04S0742 00971000 STCM @14,7,AVTCCQCB(RAVT) 04S0742 00972000 * AVTCCKEY=CREOPC; /* SET KEY FOR INCIDENT CKPT */ 00973000 MVI AVTCCKEY(RAVT),X'40' 04S0743 00974000 * END; 04S0744 00975000 * END; 04S0745 00976000 @RF00740 DS 0H 04S0745 00977000 @RF00739 DS 0H 04S0746 00978000 * RPARM=ADDR(AVTCCELE); /* GET ADDRESS OF THE REQUEST 00979000 * ELEMENT */ 00980000 LA RPARM,AVTCCELE(,RAVT) 03S0746 00981000 * REG15=CVTAQAVT; /* GET ADDRESS OF THE TCX */ 00982000 L @12,CVTPTR 03S0747 00983000 L REG15,CVTAQAVT(,@12) 03S0747 00984000 * REG00=TCXREADY; /* GET ADDR OF TOP ELEMENT ON 00985000 * ASYNCHRONOUS READY QUEUE */ 00986000 L REG00,TCXREADY(,REG15) 03S0748 00987000 *AGAIN: 03S0749 00988000 * AVTCCLNK=REG00; /* LINK REQUEST ELEMENT TO TOP ON 00989000 * THE QUEUE */ 00990000 AGAIN STCM REG00,7,AVTCCLNK(RAVT) 03S0749 00991000 * CS(REG00,RPARM,TCXREADY); /* UPDATE ASYNCHRONOUS READY 00992000 * QUEUE */ 00993000 CS REG00,@01,TCXREADY(REG15) 03S0750 00994000 * BC(7,AGAIN); /* IF QUEUE WAS UPDATED 03S0751 00995000 * ASYNCHRONOUSLY, TRY AGAIN */ 00996000 BC 7,AGAIN 03S0751 00997000 * GEN REFS(AVTOSECB) SETS(REG00,RPARM); 03S0752 00998000 * /* 00999000 POST AVTOSECB(,RAVT) POST TCAM'S MCP'S ECB COMPLETE 01000000 * END; 03S0753 01001000 * END; 02S0754 01002000 * ELSE /* NOT REQUEST FOR NOTIFICATION */ 01003000 * MVC(CKPSLVAL,CKPSLNEW); /* SHIFT 'SELECT' VALUES FOR NEXT 01004000 * PATH SELECTION */ 01005000 B @RC00699 02S0755 01006000 @RF00699 MVC CKPSLVAL(3,RCKPT),CKPSLNEW(RCKPT) 02S0755 01007000 * 02S0756 01008000 * /*****************************************************************/ 01009000 * /* */ 01010000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 01011000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. */ 01012000 * /* */ 01013000 * /*****************************************************************/ 01014000 * 02S0756 01015000 * RFY 02S0756 01016000 * (REG2, 02S0756 01017000 * REG12, 02S0756 01018000 * REG14) RSTD; 02S0756 01019000 @RC00699 DS 0H 02S0757 01020000 * REG2=CAVTTCWA; /* RESTORE ADDRESS OF TCAM 02S0757 01021000 * CHECKPOINT WORKAREA */ 01022000 L REG2,CAVTTCWA(,RCAVT) 02S0757 01023000 * REG12=CKPSAVE2(1); /* RESTORE IEDQNF'S BASE REGISTER*/ 01024000 L REG12,CKPSAVE2(,RCKPT) 02S0758 01025000 * REG14=CKPSAVE2(2)+CKPRETNL; /* RESTORE RETURN ADDRESS + 4 01026000 * (WHICH INDICATES THAT NO OTHER 01027000 * MODULE IS TO BE LOADED */ 01028000 LA REG14,4 02S0759 01029000 AL REG14,CKPSAVE2+4(,RCKPT) 02S0759 01030000 * RFY 02S0760 01031000 * (REG2, 02S0760 01032000 * REG12, 02S0760 01033000 * REG14) UNRSTD; 02S0760 01034000 * 02S0761 01035000 * /*****************************************************************/ 01036000 * /* */ 01037000 * /* TNTMOVE: THIS SUBROUTINE MOVES A TNT OFFSET AND STATUS BYTE */ 01038000 * /* POINTED TO BY CKPTNTPT INTO DATA AREA OFSENTRY AND EXITS WITH */ 01039000 * /* CKPTNTPT POINTING TO THE NEXT TNT OFFSET. IT ALSO DECREMENTS */ 01040000 * /* CKPTNTNB (THE NUMBER OF TNT/DEVICE ENTRIES LEFT TO SCAN). */ 01041000 * /* */ 01042000 * /*****************************************************************/ 01043000 * 02S0761 01044000 *TNTMOVE: 02S0761 01045000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0761 01046000 @EL00001 DS 0H 02S0761 01047000 @EF00001 DS 0H 02S0761 01048000 @ER00001 BR @14 02S0761 01049000 TNTMOVE ST @14,12(,@13) 02S0761 01050000 * RFY 02S0762 01051000 * RPLMV RSTD; 02S0762 01052000 * CKPTNTNB=CKPTNTNB-1; /* DECREMENT THE NUMBER OF DEVICE 01053000 * RECORDS LEFT */ 01054000 LH @14,CKPTNTNB(,RCKPT) 02S0763 01055000 BCTR @14,0 02S0763 01056000 STH @14,CKPTNTNB(,RCKPT) 02S0763 01057000 * RPARM=ADDR(OFSENTRY); /* SET POINTER TO TARGET OF TNT 01058000 * MOVE */ 01059000 LA RPARM,OFSENTRY 02S0764 01060000 * REG00=LENGTH(ICTNTOFF); /* SET LENGTH OF TNT OFFSET ENTRY*/ 01061000 LA REG00,3 02S0765 01062000 * REG15=CKPTNTLN; /* SET LENGTH OF TNT DATA IN THIS 01063000 * UNIT */ 01064000 LH REG15,CKPTNTLN(,RCKPT) 02S0766 01065000 * IF REG15>REG00 /* TEST FOR MORE DATA THAN IS 01066000 * NEEDED */ 01067000 * THEN /* THERE IS MORE DATA IN THIS 01068000 * UNIT THAN IS NEEDED */ 01069000 CR REG15,REG00 02S0767 01070000 BNH @RF00767 02S0767 01071000 * REG15=REG00; /* RESET LENGTH TO TO TOTAL 02S0768 01072000 * LENGTH OF THE DATA */ 01073000 LR REG15,REG00 02S0768 01074000 * DO UNTIL REG15=0; /* MOVE THE TNT DATA */ 01075000 @RF00767 DS 0H 02S0769 01076000 @DL00769 DS 0H 02S0770 01077000 * RPARM->MOVECHAR(1:REG15)=CKPTNTPT->MOVECHAR(1:REG15);/* MOVE 01078000 * TNT DATA FROM THE UNIT TO THE 01079000 * WORKAREA */ 01080000 LR @14,REG15 02S0770 01081000 BCTR @14,0 02S0770 01082000 L @12,CKPTNTPT(,RCKPT) 02S0770 01083000 EX @14,@SM02830 02S0770 01084000 * CKPTNTPT=CKPTNTPT+REG15; /* POINT TO NEXT AVIALABLE DATA */ 01085000 ALR @12,REG15 02S0771 01086000 ST @12,CKPTNTPT(,RCKPT) 02S0771 01087000 * RPARM=RPARM+REG15; /* BUMP TO NEXT TARGET BYTE IN 01088000 * WORKAREA */ 01089000 ALR RPARM,REG15 02S0772 01090000 * CKPTNTLN=CKPTNTLN-REG15; /* DECREMENT DATA LEFT IN THIS 01091000 * UNIT */ 01092000 LH @14,CKPTNTLN(,RCKPT) 02S0773 01093000 SLR @14,REG15 02S0773 01094000 STH @14,CKPTNTLN(,RCKPT) 02S0773 01095000 * IF CKPTNTLN<=0 /* TEST FOR MORE DATA IN THIS 01096000 * UNIT */ 01097000 * THEN /* NO MORE DATA IN THIS UNIT */ 01098000 LTR @14,@14 02S0774 01099000 BP @RF00774 02S0774 01100000 * DO; 02S0775 01101000 * CKPTNTUN=ICTNTTIC; /* POINT TO NEXT UNIT */ 01102000 L @14,CKPTNTUN(,RCKPT) 02S0776 01103000 L @14,ICTNTTIC(,@14) 02S0776 01104000 ST @14,CKPTNTUN(,RCKPT) 02S0776 01105000 * CKPTNTPT=ADDR(ICTNTDAT); /* POINT TO DATA IN NEXT UNIT */ 01106000 LA @14,ICTNTDAT(,@14) 02S0777 01107000 ST @14,CKPTNTPT(,RCKPT) 02S0777 01108000 * CKPTNTLN=AVTKEYLE; /* SET LENGTH OF DATA IN THIS 01109000 * UNIT */ 01110000 LH @14,AVTKEYLE(,RAVT) 02S0778 01111000 STH @14,CKPTNTLN(,RCKPT) 02S0778 01112000 * END; 02S0779 01113000 * REG00=REG00-REG15; /* SET DATA LEFT TO BE MOVED */ 01114000 @RF00774 SLR REG00,REG15 02S0780 01115000 * REG15=REG00; /* SET LENGTH FOR NEXT MOVE */ 01116000 LR REG15,REG00 02S0781 01117000 * END; 02S0782 01118000 @DE00769 LTR REG15,REG15 02S0782 01119000 BNZ @DL00769 02S0782 01120000 * RFY 02S0783 01121000 * RPLMV UNRSTD; 02S0783 01122000 * END TNTMOVE; 02S0784 01123000 @EL00002 DS 0H 02S0784 01124000 @EF00002 DS 0H 02S0784 01125000 @ER00002 L @14,12(,@13) 02S0784 01126000 BR @14 02S0784 01127000 * END IEDQNU 01S0785 01128000 * 01S0785 01129000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01130000 */*%INCLUDE SYSLIB (TAVTD ) */ 01131000 */*%INCLUDE SYSLIB (TBDUD ) */ 01132000 */*%INCLUDE SYSLIB (TCAVTD ) */ 01133000 */*%INCLUDE SYSLIB (TCD0D ) */ 01134000 */*%INCLUDE SYSLIB (TCKPD ) */ 01135000 */*%INCLUDE SYSLIB (TCNRD ) */ 01136000 */*%INCLUDE SYSLIB (CVT ) */ 01137000 */*%INCLUDE SYSLIB (IHADCBDF) */ 01138000 */*%INCLUDE SYSLIB (IHADCB ) */ 01139000 */*%INCLUDE SYSLIB (TOPCED ) */ 01140000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01141000 */*%INCLUDE SYSLIB (TPLMVD ) */ 01142000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01143000 */*%INCLUDE SYSLIB (TPRUD ) */ 01144000 */*%INCLUDE SYSLIB (TTCXD ) */ 01145000 */*%INCLUDE SYSLIB (TTRMD ) */ 01146000 */*%INCLUDE SYSUT5 (RFY ) */ 01147000 */*%INCLUDE SYSUT5 (DCL ) */ 01148000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01149000 */*%INCLUDE SYSUT5 (PROCESS ) */ 01150000 */*%INCLUDE SYSUT5 (READRETN) */ 01151000 */*%INCLUDE SYSUT5 (BHSET ) */ 01152000 */*%INCLUDE SYSUT5 (SSPAU ) */ 01153000 */*%INCLUDE SYSUT5 (NEGPL ) */ 01154000 */*%INCLUDE SYSUT5 (CSLIM ) */ 01155000 */*%INCLUDE SYSUT5 (CTLIM ) */ 01156000 */*%INCLUDE SYSUT5 (MSSEL ) */ 01157000 */*%INCLUDE SYSUT5 (ICHNGW ) */ 01158000 */*%INCLUDE SYSUT5 (INITBDU ) */ 01159000 */*%INCLUDE SYSUT5 (TCHNG ) */ 01160000 */*%INCLUDE SYSUT5 (ICHNGR ) */ 01161000 */*%INCLUDE SYSUT5 (FINDNEXT) */ 01162000 */*%INCLUDE SYSUT5 (READINIT) */ 01163000 */*%INCLUDE SYSUT5 (SETRSID ) */ 01164000 */*%INCLUDE SYSUT5 (IO ) */ 01165000 */*%INCLUDE SYSUT5 (WRTMSG ) */ 01166000 */*%INCLUDE SYSUT5 (NOTIF ) */ 01167000 */*%INCLUDE SYSUT5 (FREEM ) */ 01168000 */*%INCLUDE SYSUT5 (SETQUEUE) */ 01169000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 01170000 */*%INCLUDE SYSUT5 (TNTMOVE ) */ 01171000 * 01S0785 01172000 * ; 01S0785 01173000 @DATA DS 0H 01174000 @SM02830 MVC MOVECHAR(0,RPARM),MOVECHAR(@12) 01175000 DS 0F 01176000 DS 0F 01177000 @CF00239 DC F'12' 01178000 @CF02829 DC XL4'0000FFFF' 01179000 @CF02807 DC XL4'FFFF' 01180000 DS 0D 01181000 PREFIXSZ DC AL2(14) 01182000 LENCNR DC AL2(CNRDVBDU-IEDQCNRD) 01183000 DS CL4 01184000 IEDNMG DC CL8'IEDNMG' 01185000 OFSENTRY DS CL3 01186000 ORG OFSENTRY 01187000 OFFSET DS FL2 01188000 OFSTATUS DS FL1 01189000 ORG OFSENTRY+3 01190000 SELNOTFY DS CL3 01191000 ORG SELNOTFY 01192000 @NM00187 DC X'07' 01193000 @NM00188 DC X'0A' 01194000 @NM00189 DC X'00' 01195000 ORG SELNOTFY+3 01196000 SELREAD DS CL3 01197000 ORG SELREAD 01198000 @NM00190 DC X'07' 01199000 @NM00191 DC X'09' 01200000 @NM00192 DC X'07' 01201000 ORG SELREAD+3 01202000 RSID DS CL2 01203000 ORG RSID 01204000 RSID1 DS CL1 01205000 RSID2 DS CL1 01206000 ORG RSID+2 01207000 DS CL1 01208000 CP0001@ DC AL4(BHSET) 01209000 DC AL4(SSPAU) 01210000 DC AL4(NEGPL) 01211000 DC AL4(CSLIM) 01212000 DC AL4(CTLIM) 01213000 DC AL4(MSSEL) 01214000 DC AL4(ICHNGW) 01215000 DC AL4(TCHNG) 01216000 DC AL4(ICHNGR) 01217000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01218000 @01 EQU 01 01219000 @02 EQU 02 01220000 @03 EQU 03 01221000 @04 EQU 04 01222000 @05 EQU 05 01223000 @06 EQU 06 01224000 @07 EQU 07 01225000 @08 EQU 08 01226000 @09 EQU 09 01227000 @10 EQU 10 01228000 @11 EQU 11 01229000 @12 EQU 12 01230000 @13 EQU 13 01231000 @14 EQU 14 01232000 @15 EQU 15 01233000 RCAVT EQU @05 01234000 RCKPT EQU @04 01235000 RCKPREC EQU @10 01236000 ROPCE EQU @03 01237000 RPLMV EQU @08 01238000 RAVT EQU @09 01239000 REG15 EQU @15 01240000 REG00 EQU @00 01241000 RPARM EQU @01 01242000 REG2 EQU @02 01243000 RTIOT EQU @07 01244000 RBASE EQU @11 01245000 REG12 EQU @12 01246000 RSAVE EQU @13 01247000 REG14 EQU @14 01248000 CVTPTR EQU 16 01249000 IEDQAVTD EQU 0 01250000 AVTSAVEX EQU IEDQAVTD+288 01251000 AVTTCB EQU IEDQAVTD+368 01252000 @NM00003 EQU IEDQAVTD+388 01253000 AVTCKFLG EQU @NM00003 01254000 AVTCKTAC EQU AVTCKFLG 01255000 AVTCKAVT EQU @NM00003+1 01256000 AVTOCGET EQU IEDQAVTD+392 01257000 AVTBASE EQU IEDQAVTD+412 01258000 AVTPKF EQU AVTBASE 01259000 AVTRNMPT EQU IEDQAVTD+424 01260000 AVTOSECB EQU IEDQAVTD+492 01261000 AVTECB1 EQU AVTOSECB 01262000 AVTHG02 EQU IEDQAVTD+528 01263000 AVTDISP EQU IEDQAVTD+552 01264000 AVTHD EQU IEDQAVTD+556 01265000 AVTSCOPT EQU AVTHD 01266000 AVTSAVTP EQU IEDQAVTD+612 01267000 AVTSAVTF EQU AVTSAVTP 01268000 AVTCKPEL EQU IEDQAVTD+652 01269000 AVTCKRMV EQU AVTCKPEL 01270000 AVTCKELF EQU IEDQAVTD+680 01271000 AVTCKBYT EQU IEDQAVTD+691 01272000 AVTHG01 EQU IEDQAVTD+692 01273000 AVTCKLNK EQU IEDQAVTD+696 01274000 AVTCRELE EQU IEDQAVTD+708 01275000 AVTCCELE EQU AVTCRELE 01276000 AVTCCKEY EQU AVTCCELE 01277000 AVTCCQCB EQU AVTCCELE+1 01278000 AVTCCPRI EQU AVTCRELE+4 01279000 AVTCCLNK EQU AVTCRELE+5 01280000 AVTCLRHI EQU IEDQAVTD+716 01281000 AVTADBUF EQU IEDQAVTD+720 01282000 AVTSYSER EQU IEDQAVTD+728 01283000 AVTCKPQB EQU IEDQAVTD+804 01284000 AVTCKPTB EQU AVTCKPQB 01285000 AVTCKPEC EQU AVTCKPQB+4 01286000 AVTCKPCC EQU AVTCKPEC 01287000 AVTOPCQB EQU IEDQAVTD+816 01288000 AVTOPCOB EQU AVTOPCQB 01289000 AVTOPCEC EQU AVTOPCQB+4 01290000 AVTOPCCC EQU AVTOPCEC 01291000 AVTOLTQB EQU IEDQAVTD+828 01292000 AVTCWFL1 EQU IEDQAVTD+924 01293000 AVTCWFL2 EQU IEDQAVTD+925 01294000 AVTSUBT EQU IEDQAVTD+948 01295000 AVTIOTR EQU IEDQAVTD+949 01296000 AVTKEYLE EQU IEDQAVTD+1032 01297000 AVTBIT1 EQU IEDQAVTD+1050 01298000 AVTBIT2 EQU IEDQAVTD+1051 01299000 AVTBIT3 EQU IEDQAVTD+1052 01300000 AVTBIT4 EQU IEDQAVTD+1136 01301000 @NM00085 EQU IEDQAVTD+1232 01302000 IEDQAPTR EQU 0 01303000 IEDNSVTD EQU 0 01304000 SAVTDIAG EQU IEDNSVTD 01305000 SAVTDIAF EQU SAVTDIAG 01306000 SAVTLUSQ EQU IEDNSVTD+88 01307000 SAVTMVBF EQU IEDNSVTD+160 01308000 SAVTTCPU EQU IEDNSVTD+238 01309000 SAVTZELM EQU IEDNSVTD+270 01310000 SAVTRDRV EQU IEDNSVTD+284 01311000 SAVTCKQB EQU IEDNSVTD+300 01312000 SAVTCKTB EQU SAVTCKQB 01313000 SAVTCKEC EQU SAVTCKQB+4 01314000 SAVTCKCC EQU SAVTCKEC 01315000 IEDBDU EQU 0 01316000 BDUCMND EQU IEDBDU 01317000 BDUMODIF EQU IEDBDU+1 01318000 BDUFNFLG EQU IEDBDU+2 01319000 BDUHEADR EQU BDUFNFLG 01320000 BDUBDUFG EQU IEDBDU+3 01321000 BDURSP EQU IEDBDU+4 01322000 BDUSYRSP EQU BDURSP 01323000 BDUEXRSP EQU BDURSP+1 01324000 BDUEND EQU IEDBDU+6 01325000 IEDQCKAD EQU 0 01326000 CAVTTCWA EQU IEDQCKAD 01327000 CAVTNWA EQU IEDQCKAD+4 01328000 CAVTWTG EQU IEDQCKAD+8 01329000 CAVTWL1 EQU IEDQCKAD+12 01330000 CAVTWL2 EQU CAVTWL1+8 01331000 CAVTEOL2 EQU CAVTWL2 01332000 CAVTEOL3 EQU CAVTWL2+4 01333000 CAVTNIOE EQU CAVTWL2+5 01334000 CAVTCRIO EQU IEDQCKAD+28 01335000 IEDQCKPD EQU 0 01336000 CKPSAVE1 EQU IEDQCKPD 01337000 CKPIOB EQU IEDQCKPD+72 01338000 CKPIOECB EQU CKPIOB+4 01339000 CKPIOECC EQU CKPIOECB 01340000 CKPIODCB EQU CKPIOB+21 01341000 CKPIOSK EQU CKPIOB+32 01342000 CKPEXCP EQU IEDQCKPD+116 01343000 CKPECBL EQU IEDQCKPD+120 01344000 CKPCNVRT EQU CKPECBL 01345000 CKPIOQL EQU IEDQCKPD+132 01346000 @NM00109 EQU CKPIOQL 01347000 CKPCTTRB EQU IEDQCKPD+144 01348000 CKPCCWS EQU IEDQCKPD+168 01349000 CKPTIC EQU CKPCCWS+24 01350000 CKPRW EQU CKPCCWS+32 01351000 CKPRWCMD EQU CKPRW 01352000 CKPRWADD EQU CKPRW+1 01353000 @NM00112 EQU IEDQCKPD+208 01354000 CKPGETML EQU @NM00112 01355000 CKPMSG EQU IEDQCKPD+220 01356000 CKPMSGTX EQU CKPMSG+4 01357000 CKPMSGTP EQU CKPMSG+41 01358000 CKPCNTLR EQU IEDQCKPD+288 01359000 CKPFLAGS EQU CKPCNTLR 01360000 CKPPRQNO EQU CKPCNTLR+17 01361000 IEDQCDRD EQU 0 01362000 CDRTTRLI EQU IEDQCDRD+9 01363000 CDRDATA EQU IEDQCDRD+12 01364000 IEDQCRED EQU 0 01365000 CRELINK EQU IEDQCRED+4 01366000 CREOFFS EQU IEDQCRED+12 01367000 CKPREQTB EQU 0 01368000 CKPCTFLG EQU CKPREQTB 01369000 CKPNRES EQU 0 01370000 CKPNFLG EQU CKPNRES+4 01371000 CKPAVT EQU 0 01372000 IEDQCNRD EQU 0 01373000 CNRTNTOF EQU IEDQCNRD 01374000 CNRDATTM EQU IEDQCNRD+2 01375000 CNRDATE EQU CNRDATTM 01376000 CNRTIME EQU CNRDATTM+4 01377000 CNRCNTL EQU IEDQCNRD+10 01378000 CNRFBHS EQU CNRCNTL 01379000 CNRFBHSC EQU CNRCNTL 01380000 CNRFSSP EQU CNRCNTL 01381000 CNRFNPL EQU CNRCNTL 01382000 CNRFCSL EQU CNRCNTL 01383000 CNRFCTL EQU CNRCNTL 01384000 CNRFMSS EQU CNRCNTL 01385000 CNRFRDR EQU CNRCNTL 01386000 CNRBHSET EQU IEDQCNRD+12 01387000 CNRBHFUN EQU CNRBHSET 01388000 CNRBHPOS EQU CNRBHSET+1 01389000 CNRSSPAU EQU IEDQCNRD+14 01390000 CNRNEGPL EQU IEDQCNRD+15 01391000 CNRCSLIM EQU IEDQCNRD+16 01392000 CNRCTLIM EQU IEDQCNRD+17 01393000 CNRMSSEL EQU IEDQCNRD+18 01394000 CNRDEVRC EQU IEDQCNRD+19 01395000 CVTMAP EQU 0 01396000 CVTDAR EQU CVTMAP+72 01397000 CVTFLGS1 EQU CVTDAR 01398000 CVTDCB EQU CVTMAP+116 01399000 CVTIERLC EQU CVTMAP+144 01400000 CVTOPTA EQU CVTMAP+182 01401000 CVTOPTB EQU CVTMAP+183 01402000 CVTGTF EQU CVTMAP+236 01403000 CVTGTFST EQU CVTGTF 01404000 CVTGTFS EQU CVTGTFST 01405000 CVTSTATE EQU CVTGTFST 01406000 CVTTMODE EQU CVTGTFST 01407000 CVTFORM EQU CVTGTFST 01408000 CVTAQAVT EQU CVTMAP+240 01409000 CVTTCMFG EQU CVTAQAVT 01410000 CVTVOLM2 EQU CVTMAP+244 01411000 CVTTATA EQU CVTVOLM2 01412000 CVTTSKS EQU CVTTATA 01413000 CVTVOLF2 EQU CVTTSKS 01414000 CVTTAT EQU CVTTATA+1 01415000 CVTATER EQU CVTMAP+248 01416000 CVTEXT1 EQU CVTMAP+252 01417000 CVTPURG EQU CVTMAP+260 01418000 CVTQMSG EQU CVTMAP+268 01419000 CVTDMSR EQU CVTMAP+272 01420000 CVTRSV37 EQU CVTDMSR 01421000 CVTDMSRF EQU CVTRSV37 01422000 CVTERPV EQU CVTMAP+316 01423000 CVTINTLA EQU CVTMAP+320 01424000 CVTAPF EQU CVTMAP+324 01425000 CVTEXT2 EQU CVTMAP+328 01426000 CVTHJES EQU CVTMAP+332 01427000 CVTPGSIA EQU CVTMAP+348 01428000 CVTA1F1 EQU CVTMAP+356 01429000 CVTSYSK EQU CVTMAP+357 01430000 CVTVOLM1 EQU CVTMAP+380 01431000 CVTVOLF1 EQU CVTVOLM1 01432000 CVTATMCT EQU CVTMAP+388 01433000 CVTXTNT1 EQU 0 01434000 CVTXTNT2 EQU 0 01435000 CVTDSSV EQU CVTXTNT2 01436000 CVTFLGBT EQU CVTXTNT2+5 01437000 CVTQID EQU CVTXTNT2+24 01438000 CVTSHS EQU CVTXTNT2+40 01439000 CVTRV400 EQU CVTXTNT2+52 01440000 CVTRV409 EQU CVTXTNT2+53 01441000 CVTATCVT EQU CVTXTNT2+64 01442000 CVTRV429 EQU CVTXTNT2+84 01443000 CVTRV438 EQU CVTXTNT2+85 01444000 CVTRV457 EQU CVTXTNT2+112 01445000 CVTRV466 EQU CVTXTNT2+113 01446000 CVTFIX EQU 0 01447000 CVTRELNO EQU CVTFIX+252 01448000 IHADCB EQU 0 01449000 IHADCS1A EQU 0 01450000 DCBBCKUP EQU IHADCS1A+8 01451000 IHADCS2K EQU 0 01452000 DCBDUMPD EQU IHADCS2K 01453000 DCBTRSTA EQU IHADCS2K+5 01454000 DCBDSORG EQU IHADCS2K+6 01455000 DCBDSRG2 EQU DCBDSORG+1 01456000 DCBRNCKD EQU IHADCS2K+12 01457000 DCBEXLST EQU IHADCS2K+16 01458000 IHADCS24 EQU 0 01459000 DCBOFLGS EQU IHADCS24+8 01460000 DCBOFLWR EQU DCBOFLGS 01461000 DCBIFLG EQU IHADCS24+9 01462000 DCBIBPCT EQU DCBIFLG 01463000 DCBMACR EQU IHADCS24+10 01464000 DCBMACR1 EQU DCBMACR 01465000 DCBMRFE EQU DCBMACR1 01466000 DCBMRGET EQU DCBMRFE 01467000 DCBMRAPG EQU DCBMACR1 01468000 DCBMRRD EQU DCBMRAPG 01469000 DCBMRCI EQU DCBMACR1 01470000 DCBMRMVG EQU DCBMRCI 01471000 DCBMRLCG EQU DCBMACR1 01472000 DCBMRABC EQU DCBMACR1 01473000 DCBMRPT1 EQU DCBMRABC 01474000 DCBMRSBG EQU DCBMRPT1 01475000 DCBMRCRL EQU DCBMACR1 01476000 DCBMRCHK EQU DCBMRCRL 01477000 DCBMRRDX EQU DCBMRCHK 01478000 DCBMRDMG EQU DCBMACR1 01479000 DCBMACR2 EQU DCBMACR+1 01480000 DCBMRPUT EQU DCBMACR2 01481000 DCBMRWRT EQU DCBMACR2 01482000 DCBMRMVP EQU DCBMACR2 01483000 DCBMR5WD EQU DCBMACR2 01484000 DCBMRLDM EQU DCBMR5WD 01485000 DCBMRLCP EQU DCBMRLDM 01486000 DCBMR4WD EQU DCBMACR2 01487000 DCBMRPT2 EQU DCBMR4WD 01488000 DCBMRTMD EQU DCBMRPT2 01489000 DCBMR3WD EQU DCBMACR2 01490000 DCBMRCTL EQU DCBMR3WD 01491000 DCBMRSTK EQU DCBMRCTL 01492000 DCBMR1WD EQU DCBMACR2 01493000 DCBMRSWA EQU DCBMR1WD 01494000 DCBMRDMD EQU DCBMRSWA 01495000 IHADCS25 EQU 0 01496000 DCBTIOT EQU IHADCS25 01497000 DCBMACRF EQU IHADCS25+2 01498000 DCBMACF1 EQU DCBMACRF 01499000 DCBMFFE EQU DCBMACF1 01500000 DCBMFGET EQU DCBMFFE 01501000 DCBMFAPG EQU DCBMACF1 01502000 DCBMFRD EQU DCBMFAPG 01503000 DCBMFCI EQU DCBMACF1 01504000 DCBMFMVG EQU DCBMFCI 01505000 DCBMFLCG EQU DCBMACF1 01506000 DCBMFABC EQU DCBMACF1 01507000 DCBMFPT1 EQU DCBMFABC 01508000 DCBMFSBG EQU DCBMFPT1 01509000 DCBMFCRL EQU DCBMACF1 01510000 DCBMFCHK EQU DCBMFCRL 01511000 DCBMFDMG EQU DCBMACF1 01512000 DCBMACF2 EQU DCBMACRF+1 01513000 DCBMFPUT EQU DCBMACF2 01514000 DCBMFWRT EQU DCBMACF2 01515000 DCBMFMVP EQU DCBMACF2 01516000 DCBMF5WD EQU DCBMACF2 01517000 DCBMFLDM EQU DCBMF5WD 01518000 DCBMFLCP EQU DCBMFLDM 01519000 DCBMF4WD EQU DCBMACF2 01520000 DCBMFPT2 EQU DCBMF4WD 01521000 DCBMFTMD EQU DCBMFPT2 01522000 DCBMF3WD EQU DCBMACF2 01523000 DCBMFCTL EQU DCBMF3WD 01524000 DCBMFSTK EQU DCBMFCTL 01525000 DCBMF1WD EQU DCBMACF2 01526000 DCBMFSWA EQU DCBMF1WD 01527000 DCBMFDMD EQU DCBMFSWA 01528000 DCBDEBAD EQU IHADCS25+4 01529000 DCBIFLGS EQU DCBDEBAD 01530000 DCBIFPCT EQU DCBIFLGS 01531000 IHADCS27 EQU 0 01532000 DCBGET EQU IHADCS27 01533000 DCBPUT EQU DCBGET 01534000 DCBGETA EQU DCBPUT+1 01535000 IHADCS43 EQU 0 01536000 DCBSCTAB EQU IHADCS43 01537000 IEDQOPCE EQU 0 01538000 OCELEM EQU IEDQOPCE+4 01539000 OCUNIT EQU IEDQOPCE+8 01540000 OCRUDEST EQU OCUNIT 01541000 OCCKPKEY EQU OCRUDEST 01542000 OCSCAN EQU OCCKPKEY 01543000 OCOPTCDE EQU IEDQOPCE+12 01544000 OCSWITCH EQU IEDQOPCE+13 01545000 OCFLAG EQU IEDQOPCE+14 01546000 @NM00145 EQU IEDQOPCE+16 01547000 OCDEST EQU @NM00145 01548000 OCREQVAL EQU OCDEST+1 01549000 OCTRMTBL EQU IEDQOPCE+20 01550000 OCLINENO EQU IEDQOPCE+22 01551000 OCTIOT EQU OCLINENO 01552000 OCTRUNIT EQU IEDQOPCE+24 01553000 OCRSID EQU OCTRUNIT 01554000 OCALSTAT EQU OCRSID 01555000 OCPARM EQU IEDQOPCE+28 01556000 OCBACKUP EQU IEDQOPCE+32 01557000 OCMODNME EQU IEDQOPCE+40 01558000 OCIPLWA EQU OCMODNME 01559000 OCCKDATA EQU IEDQOPCE+48 01560000 OCRSTGTM EQU OCCKDATA 01561000 OCCKDAT1 EQU OCRSTGTM 01562000 OCCKDAT2 EQU OCRSTGTM+1 01563000 IEDQOPCN EQU 0 01564000 OCLDNME EQU IEDQOPCN 01565000 OCLINTTE EQU OCLDNME 01566000 OCREQFLG EQU OCLINTTE+2 01567000 OCPREFLG EQU OCLINTTE+3 01568000 IEDQOPCD EQU 0 01569000 OPCAQCTL EQU IEDQOPCD+180 01570000 OPCLDNME EQU IEDQOPCD+212 01571000 OPCCKPTF EQU IEDQOPCD+248 01572000 OPCSPEC EQU IEDQOPCD+300 01573000 OPCPWCOB EQU IEDQOPCD+368 01574000 OPCPWQCB EQU OPCPWCOB 01575000 OPCPWECB EQU OPCPWCOB+4 01576000 IEDPLMV EQU 0 01577000 PLMVTU EQU IEDPLMV 01578000 PLMVTD EQU IEDPLMV+4 01579000 PLMVSU EQU IEDPLMV+8 01580000 PLMVSD EQU IEDPLMV+12 01581000 PLMVLNTH EQU IEDPLMV+16 01582000 PLMVFLG1 EQU IEDPLMV+18 01583000 PLMVTCTG EQU PLMVFLG1 01584000 PLMVFLG2 EQU IEDPLMV+19 01585000 PLMVUNCA EQU IEDPLMV+20 01586000 IEDPLMVP EQU 0 01587000 IEDPRUQD EQU 0 01588000 PRUTTCIN EQU IEDPRUQD 01589000 PRUDATCT EQU IEDPRUQD+2 01590000 PRUTIC EQU IEDPRUQD+8 01591000 PRUDATA EQU IEDPRUQD+12 01592000 IEDPRUND EQU 0 01593000 PRURHTH EQU IEDPRUND 01594000 PRURH EQU PRURHTH 01595000 PRURHFG0 EQU PRURH 01596000 PRURHFG1 EQU PRURH+1 01597000 PRURHFG2 EQU PRURH+2 01598000 PRUTH EQU PRURHTH+3 01599000 PRUFIDN EQU PRUTH 01600000 IEDQTCXD EQU 0 01601000 TCXATTEN EQU IEDQTCXD+4 01602000 TCXREADY EQU IEDQTCXD+24 01603000 TCXFLAG1 EQU IEDQTCXD+34 01604000 TCXBUFA EQU IEDQTCXD+80 01605000 TCXDSAVE EQU IEDQTCXD+104 01606000 TCXQE8 EQU IEDQTCXD+216 01607000 TCXPTR EQU 0 01608000 IEDTRM EQU 0 01609000 IEDNTRM EQU IEDTRM 01610000 TRMBYTE4 EQU IEDNTRM 01611000 TRMBYTE3 EQU IEDNTRM+1 01612000 TRMBYTE2 EQU IEDNTRM+2 01613000 TRMINPG EQU TRMBYTE2 01614000 TRMBYTE1 EQU IEDNTRM+3 01615000 TRMSCPRQ EQU TRMBYTE1 01616000 TRMCKPRN EQU TRMBYTE1 01617000 TRMBYTE0 EQU IEDNTRM+6 01618000 TRMSIBPT EQU IEDNTRM+7 01619000 IEDQTRM EQU IEDTRM+14 01620000 TRMSTATE EQU IEDQTRM 01621000 TRMLOG EQU TRMSTATE 01622000 TRMINSEQ EQU IEDQTRM+4 01623000 TLISTCNT EQU TRMINSEQ 01624000 TRMOUTSQ EQU IEDQTRM+6 01625000 TLISTEN EQU TRMOUTSQ 01626000 TRMDSORG EQU TLISTEN 01627000 TRMALTD EQU IEDQTRM+8 01628000 TRMDEVFL EQU IEDQTRM+10 01629000 TRMSTAT EQU IEDQTRM+12 01630000 RTRM EQU 0 01631000 MSGPTR EQU 0 01632000 MOVECHAR EQU 0 01633000 IEDMVBFR EQU 0 01634000 IEDQTNT EQU 0 01635000 IEDQNW EQU 0 01636000 TCB EQU 0 01637000 TCBTIO EQU TCB+12 01638000 TIOENTRY EQU 0 01639000 TIOEDDNM EQU TIOENTRY+4 01640000 ICTNT EQU 0 01641000 ICTNTTIC EQU ICTNT+8 01642000 ICTNTDAT EQU ICTNT+12 01643000 ICTNTCTL EQU ICTNTDAT 01644000 ICTNTOFF EQU ICTNTDAT+3 01645000 MULTIPNT EQU 0 01646000 LEASED EQU 0 01647000 DEVRCD EQU 0 01648000 DEVLEN EQU DEVRCD 01649000 DEVID EQU DEVRCD+1 01650000 MESSAGE EQU 0 01651000 MSGTEXT EQU MESSAGE+4 01652000 MSGDDNAM EQU MSGTEXT+8 01653000 MSGNUMB EQU MSGTEXT+61 01654000 MSGZONE EQU MSGNUMB+3 01655000 CL0001@ EQU 0 01656000 CKPINIT EQU CKPEXCP 01657000 CKPTWA EQU CKPMSGTX 01658000 CKPSAVE2 EQU CKPTWA 01659000 CKPTRMAD EQU CKPTWA+60 01660000 CKPNCNTL EQU CKPCNTLR 01661000 CKPBLKSZ EQU CKPNCNTL+12 01662000 CKPTRKCN EQU CKPNCNTL+16 01663000 CKPDATTM EQU CKPNCNTL+22 01664000 CKPNFLDS EQU CKPEXCP 01665000 CKPENCDE EQU CKPNFLDS+7 01666000 CKPNSELT EQU CKPNFLDS+16 01667000 CKPCUSEL EQU CKPNSELT 01668000 CKPSLNEW EQU CKPNSELT+1 01669000 CKPNTRK EQU CKPNFLDS+20 01670000 CKPNRSID EQU CKPNFLDS+22 01671000 CKPSLVAL EQU CKPNSELT 01672000 CKPOVER EQU CKPMSGTP+1 01673000 CKPOPNFL EQU CKPFLAGS 01674000 CDRINCFM EQU CDRTTRLI 01675000 CDRCREQR EQU IEDQCDRD 01676000 CDRCKFLG EQU CDRCREQR 01677000 CVTS01 EQU CVTPGSIA 01678000 CVTLPDIA EQU CVTS01+12 01679000 CVTDIRST EQU CVTLPDIA 01680000 CVTSLIDA EQU CVTS01+24 01681000 CVTCTLFG EQU CVTS01+50 01682000 CVTRV210 EQU CVTS01+424 01683000 CVTRV219 EQU CVTS01+425 01684000 CVTRV228 EQU CVTS01+426 01685000 CVTRV237 EQU CVTS01+427 01686000 CVTMFRTR EQU CVTS01+452 01687000 CVTRV262 EQU CVTS01+468 01688000 CVTRV271 EQU CVTS01+469 01689000 CVTRV280 EQU CVTS01+470 01690000 CVTRV289 EQU CVTS01+471 01691000 CVTGSDA EQU CVTS01+600 01692000 DCBPTR EQU CKPIODCB 01693000 OCCKPKY1 EQU OCCKPKEY 01694000 OCCKPTYP EQU OCCKPKY1 01695000 OCICACTN EQU OCMODNME 01696000 OCICDADR EQU OCICACTN 01697000 OCICTYPE EQU OCICDADR 01698000 OCICSW EQU OCICDADR+3 01699000 ROPCAVT EQU AVTOCGET 01700000 OPCAQWD EQU OPCAQCTL 01701000 OPCAQWD1 EQU OPCAQWD 01702000 OPCAQWD2 EQU OPCAQWD+4 01703000 OPCAQWD3 EQU OPCAQWD+8 01704000 IEDPRUQP EQU OCUNIT 01705000 TRMPRE1 EQU TRMBYTE4 01706000 TRMNCP1 EQU TRMBYTE4 01707000 TRMPRE EQU TRMBYTE3 01708000 TRMNCP EQU TRMBYTE3 01709000 TRMPU EQU TRMBYTE3 01710000 TRMLU EQU TRMBYTE3 01711000 TRMLINK EQU TRMBYTE3 01712000 ICCKPT EQU CKPSAVE2+8 01713000 CKPTNTUN EQU ICCKPT 01714000 CKPTNTPT EQU ICCKPT+4 01715000 CKPTNTLN EQU ICCKPT+8 01716000 CKPTNTNB EQU ICCKPT+10 01717000 CKPTC EQU ICCKPT+12 01718000 CKPTTCIN EQU CKPTC 01719000 CKPDATCT EQU CKPTC+2 01720000 CNRDVDAT EQU CNRDEVRC 01721000 CNRDVPRF EQU CNRDVDAT 01722000 CNRDVTC EQU CNRDVPRF 01723000 CNRDVT EQU CNRDVTC 01724000 CNRDVC EQU CNRDVTC+2 01725000 CNRDVBDU EQU CNRDVDAT+12 01726000 CNRDVRCD EQU CNRDVDAT+18 01727000 CONVERT EQU CKPSAVE1 01728000 CONUNPK EQU CONVERT+5 01729000 BDUTEXT EQU BDUEND 01730000 CDROPCB EQU CDRDATA 01731000 CKPMSGPN EQU CKPMSGTP+6 01732000 CKPTTRLT EQU CKPTIC+5 01733000 OCCIB EQU OCREQVAL 01734000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01735000 @NM00200 EQU CONVERT 01736000 @NM00193 EQU CNRDVPRF+4 01737000 @NM00186 EQU TRMLINK 01738000 TRMLSTAT EQU TRMLINK 01739000 TRMLINT EQU TRMLINK 01740000 TRMEPMOD EQU TRMLINK 01741000 TRMLULOG EQU TRMLU 01742000 TRMINERR EQU TRMLU 01743000 TRMLUREQ EQU TRMLU 01744000 TRMSESRQ EQU TRMLU 01745000 TRMTDIFF EQU TRMLU 01746000 TRMLUTM EQU TRMLU 01747000 TRMLUIT EQU TRMLU 01748000 TRMAUTO EQU TRMLU 01749000 TRMPCONT EQU TRMPU 01750000 @NM00185 EQU TRMPU 01751000 TRMNCONT EQU TRMNCP 01752000 TRMQUCKN EQU TRMNCP 01753000 TRMSLOWN EQU TRMNCP 01754000 TRMSYGEN EQU TRMNCP 01755000 TRMNCPCL EQU TRMNCP 01756000 TRMIPLDM EQU TRMNCP 01757000 TRMINOUT EQU TRMPRE 01758000 TRMRDOUT EQU TRMPRE 01759000 TRMNLOUT EQU TRMPRE 01760000 TRMWROUT EQU TRMPRE 01761000 TRMASNXI EQU TRMPRE 01762000 TRMSTMM EQU TRMPRE 01763000 TRMCMODE EQU TRMPRE 01764000 TRMSTPND EQU TRMPRE 01765000 @NM00184 EQU TRMNCP1 01766000 TRMINOP EQU TRMNCP1 01767000 TRMLYNCH EQU TRMPRE1 01768000 TRMSPOUT EQU TRMPRE1 01769000 TRMERLCK EQU TRMPRE1 01770000 TRMQNPL EQU TRMPRE1 01771000 TRMSPACT EQU TRMPRE1 01772000 TRMOCNI EQU TRMPRE1 01773000 TRMSESSN EQU TRMPRE1 01774000 TRMCONT EQU TRMPRE1 01775000 OPCAQLST EQU OPCAQWD3+1 01776000 OPCAQRQ3 EQU OPCAQWD3 01777000 OPCAQSEC EQU OPCAQWD2+1 01778000 OPCAQRQ2 EQU OPCAQWD2 01779000 OPCAQFST EQU OPCAQWD1+1 01780000 OPCAQREQ EQU OPCAQWD1 01781000 OCICINAC EQU OCICSW 01782000 @NM00151 EQU OCICSW 01783000 OCICATST EQU OCICDADR+1 01784000 @NM00150 EQU OCCKPKY1 01785000 OCCKPENV EQU OCCKPKY1 01786000 OCCKPRST EQU OCCKPTYP 01787000 OCCKPNCP EQU OCCKPTYP 01788000 OCCKPINC EQU OCCKPTYP 01789000 CVTRV628 EQU CVTS01+728 01790000 CVTRV627 EQU CVTS01+724 01791000 CVTRV626 EQU CVTS01+720 01792000 CVTRV625 EQU CVTS01+716 01793000 CVTRV624 EQU CVTS01+712 01794000 CVTRV623 EQU CVTS01+708 01795000 CVTRV622 EQU CVTS01+704 01796000 CVTRV621 EQU CVTS01+700 01797000 CVTRV620 EQU CVTS01+696 01798000 CVTRV619 EQU CVTS01+692 01799000 CVTRV618 EQU CVTS01+688 01800000 CVTRV617 EQU CVTS01+684 01801000 CVTRV616 EQU CVTS01+680 01802000 CVTRV615 EQU CVTS01+676 01803000 CVTRV614 EQU CVTS01+672 01804000 CVTRV613 EQU CVTS01+668 01805000 CVTTCASP EQU CVTS01+664 01806000 CVT0PT03 EQU CVTS01+660 01807000 CVT0PT0E EQU CVTS01+656 01808000 CVTIRM EQU CVTS01+652 01809000 CVTCGK EQU CVTS01+648 01810000 CVTRV607 EQU CVTS01+644 01811000 CVTRV606 EQU CVTS01+640 01812000 CVTRV605 EQU CVTS01+636 01813000 CVTRV604 EQU CVTS01+632 01814000 CVTEFF02 EQU CVTS01+628 01815000 CVTCBBR EQU CVTS01+624 01816000 CVTSSCR EQU CVTS01+620 01817000 CVTEVENT EQU CVTS01+616 01818000 CVTCRCA EQU CVTS01+612 01819000 CVTTPIO EQU CVTS01+608 01820000 CVTADV EQU CVTS01+604 01821000 CVTGSDAB EQU CVTGSDA 01822000 CVTQV3 EQU CVTS01+596 01823000 CVTQV2 EQU CVTS01+592 01824000 CVTQV1 EQU CVTS01+588 01825000 CVTRPT EQU CVTS01+584 01826000 CVTSSRB EQU CVTS01+580 01827000 CVTCSDRL EQU CVTS01+576 01828000 CVTEXP1 EQU CVTS01+572 01829000 CVTRMPMT EQU CVTS01+568 01830000 CVTRMPTT EQU CVTS01+564 01831000 CVTVPSA EQU CVTS01+560 01832000 CVTVSTOP EQU CVTS01+556 01833000 CVTGTFR8 EQU CVTS01+552 01834000 CVTQUIT EQU CVTS01+548 01835000 CVTVACR EQU CVTS01+544 01836000 CVTWTCB EQU CVTS01+540 01837000 CVTSTPRS EQU CVTS01+536 01838000 CVT0PT02 EQU CVTS01+532 01839000 CVTDARCM EQU CVTS01+528 01840000 CVTIRECM EQU CVTS01+524 01841000 CVTJRECM EQU CVTS01+520 01842000 CVTVEMS0 EQU CVTS01+516 01843000 CVTSPFRR EQU CVTS01+512 01844000 CVTRLSTG EQU CVTS01+508 01845000 CVT0TC0A EQU CVTS01+504 01846000 CVTGMBR EQU CVTS01+500 01847000 CVTLFRM EQU CVTS01+496 01848000 CVTRMBR EQU CVTS01+492 01849000 CVTVIOP EQU CVTS01+488 01850000 CVTRV307 EQU CVTS01+486 01851000 CVTRV306 EQU CVTS01+484 01852000 CVTRV305 EQU CVTS01+482 01853000 CVTRV304 EQU CVTS01+480 01854000 CVTRV303 EQU CVTS01+478 01855000 CVTRV302 EQU CVTS01+476 01856000 CVTTRCA EQU CVTS01+472 01857000 CVTRV297 EQU CVTRV289 01858000 CVTRV296 EQU CVTRV289 01859000 CVTRV295 EQU CVTRV289 01860000 CVTRV294 EQU CVTRV289 01861000 CVTRV293 EQU CVTRV289 01862000 CVTRV292 EQU CVTRV289 01863000 CVTRV291 EQU CVTRV289 01864000 CVTRV290 EQU CVTRV289 01865000 CVTRV288 EQU CVTRV280 01866000 CVTRV287 EQU CVTRV280 01867000 CVTRV286 EQU CVTRV280 01868000 CVTRV285 EQU CVTRV280 01869000 CVTRV284 EQU CVTRV280 01870000 CVTRV283 EQU CVTRV280 01871000 CVTRV282 EQU CVTRV280 01872000 CVTRV281 EQU CVTRV280 01873000 CVTRV279 EQU CVTRV271 01874000 CVTRV278 EQU CVTRV271 01875000 CVTRV277 EQU CVTRV271 01876000 CVTRV276 EQU CVTRV271 01877000 CVTRV275 EQU CVTRV271 01878000 CVTRV274 EQU CVTRV271 01879000 CVTRV273 EQU CVTRV271 01880000 CVTRV272 EQU CVTRV271 01881000 CVTRV270 EQU CVTRV262 01882000 CVTRV269 EQU CVTRV262 01883000 CVTRV268 EQU CVTRV262 01884000 CVTRV267 EQU CVTRV262 01885000 CVTRV266 EQU CVTRV262 01886000 CVTRV265 EQU CVTRV262 01887000 CVTRV264 EQU CVTRV262 01888000 CVTRV263 EQU CVTRV262 01889000 CVTVFP EQU CVTS01+464 01890000 CVTVSI EQU CVTS01+460 01891000 CVTVPSIB EQU CVTS01+456 01892000 CVTMFACT EQU CVTMFRTR 01893000 CVTMFCTL EQU CVTS01+448 01894000 CVTPVBP EQU CVTS01+444 01895000 CVTPWI EQU CVTS01+440 01896000 CVTRV254 EQU CVTS01+438 01897000 CVTRV253 EQU CVTS01+436 01898000 CVTRV252 EQU CVTS01+434 01899000 CVTRV251 EQU CVTS01+433 01900000 CVTRV250 EQU CVTS01+432 01901000 CVTRV249 EQU CVTS01+431 01902000 CVTRV248 EQU CVTS01+430 01903000 CVTRV247 EQU CVTS01+429 01904000 CVTRV246 EQU CVTS01+428 01905000 CVTRV245 EQU CVTRV237 01906000 CVTRV244 EQU CVTRV237 01907000 CVTRV243 EQU CVTRV237 01908000 CVTRV242 EQU CVTRV237 01909000 CVTRV241 EQU CVTRV237 01910000 CVTRV240 EQU CVTRV237 01911000 CVTRV239 EQU CVTRV237 01912000 CVTRV238 EQU CVTRV237 01913000 CVTRV236 EQU CVTRV228 01914000 CVTRV235 EQU CVTRV228 01915000 CVTRV234 EQU CVTRV228 01916000 CVTRV233 EQU CVTRV228 01917000 CVTRV232 EQU CVTRV228 01918000 CVTRV231 EQU CVTRV228 01919000 CVTRV230 EQU CVTRV228 01920000 CVTRV229 EQU CVTRV228 01921000 CVTRV227 EQU CVTRV219 01922000 CVTRV226 EQU CVTRV219 01923000 CVTRV225 EQU CVTRV219 01924000 CVTRV224 EQU CVTRV219 01925000 CVTRV223 EQU CVTRV219 01926000 CVTRV222 EQU CVTRV219 01927000 CVTRV221 EQU CVTRV219 01928000 CVTRV220 EQU CVTRV219 01929000 CVTRV218 EQU CVTRV210 01930000 CVTRV217 EQU CVTRV210 01931000 CVTRV216 EQU CVTRV210 01932000 CVTRV215 EQU CVTRV210 01933000 CVTRV214 EQU CVTRV210 01934000 CVTRV213 EQU CVTRV210 01935000 CVTRV212 EQU CVTRV210 01936000 CVTRV211 EQU CVTRV210 01937000 CVTLCCAT EQU CVTS01+420 01938000 CVTPCCAT EQU CVTS01+416 01939000 CVTIPCRP EQU CVTS01+412 01940000 CVTIPCRI EQU CVTS01+408 01941000 CVTIPCDS EQU CVTS01+404 01942000 CVTAIDVT EQU CVTS01+400 01943000 CVTSSAP EQU CVTS01+396 01944000 CVTEHCIR EQU CVTS01+392 01945000 CVTEHDEF EQU CVTS01+388 01946000 CVTDAIR EQU CVTS01+384 01947000 CVTPERFM EQU CVTS01+380 01948000 CVT044R2 EQU CVTS01+376 01949000 CVTFETCH EQU CVTS01+372 01950000 CVTRSTWD EQU CVTS01+368 01951000 CVTSPOST EQU CVTS01+364 01952000 CVTIOBP EQU CVTS01+360 01953000 CVTASMVT EQU CVTS01+356 01954000 CVTRECRQ EQU CVTS01+352 01955000 CVTWSAC EQU CVTS01+348 01956000 CVTRV149 EQU CVTS01+344 01957000 CVTWSAL EQU CVTS01+340 01958000 CVTSPSA EQU CVTS01+336 01959000 CVTGLMN EQU CVTS01+332 01960000 CVTVEAC0 EQU CVTS01+328 01961000 CVT062R1 EQU CVTS01+324 01962000 CVTRPOST EQU CVTS01+320 01963000 CVTDQIQE EQU CVTS01+316 01964000 CVTCSD EQU CVTS01+312 01965000 CVTLKRMA EQU CVTS01+308 01966000 CVTRSPIE EQU CVTS01+304 01967000 CVTRENQ EQU CVTS01+300 01968000 CVTLQCB EQU CVTS01+296 01969000 CVTFQCB EQU CVTS01+292 01970000 CVTQCS01 EQU CVTS01+288 01971000 CVTAPFT EQU CVTS01+284 01972000 CVTPARRL EQU CVTS01+280 01973000 CVTVWAIT EQU CVTS01+276 01974000 CVTGSPL EQU CVTS01+272 01975000 CVTLSMQ EQU CVTS01+268 01976000 CVTGSMQ EQU CVTS01+264 01977000 CVTEXPRO EQU CVTS01+260 01978000 CVTOPCTP EQU CVTS01+256 01979000 CVTSIC EQU CVTS01+252 01980000 CVTTPIOS EQU CVTS01+248 01981000 CVTRTMS EQU CVTS01+244 01982000 CVTSDBF EQU CVTS01+240 01983000 CVTSCBP EQU CVTS01+236 01984000 CVTSDMP EQU CVTS01+232 01985000 CVTSV60 EQU CVTS01+228 01986000 CVTRTMCT EQU CVTS01+224 01987000 CVTASCBL EQU CVTS01+220 01988000 CVTASCBH EQU CVTS01+216 01989000 CVTGDA EQU CVTS01+212 01990000 CVTASVT EQU CVTS01+208 01991000 CVTVVMDI EQU CVTS01+204 01992000 CVTAQTOP EQU CVTS01+200 01993000 CVTIOSCS EQU CVTS01+196 01994000 CVTSDRM EQU CVTS01+192 01995000 CVTOPTE EQU CVTS01+188 01996000 CVTSTXU EQU CVTS01+184 01997000 CVTQUIS EQU CVTS01+180 01998000 CVTPARS EQU CVTS01+176 01999000 CVTS1EE EQU CVTS01+172 02000000 CVTFRAS EQU CVTS01+168 02001000 CVTQSAS EQU CVTS01+164 02002000 CVTCRAS EQU CVTS01+160 02003000 CVTCRMN EQU CVTS01+156 02004000 CVTDELCP EQU CVTS01+152 02005000 CVTFRECL EQU CVTS01+148 02006000 CVTGETCL EQU CVTS01+144 02007000 CVTBLDCP EQU CVTS01+140 02008000 CVTAUTHL EQU CVTS01+136 02009000 CVTSCAN EQU CVTS01+132 02010000 CVTRV144 EQU CVTS01+130 02011000 CVTMAXMP EQU CVTS01+128 02012000 CVTSTCK EQU CVTS01+124 02013000 CVTRV139 EQU CVTS01+123 02014000 CVTDSSAC EQU CVTS01+122 02015000 CVTRV513 EQU CVTS01+121 02016000 CVTIOSPL EQU CVTS01+120 02017000 CVTPTGT EQU CVTS01+116 02018000 CVTCSPIE EQU CVTS01+112 02019000 CVTSMFEX EQU CVTS01+108 02020000 CVTOLT0A EQU CVTS01+104 02021000 CVTSRBRT EQU CVTS01+100 02022000 CVTPUTL EQU CVTS01+96 02023000 CVTASCRL EQU CVTS01+92 02024000 CVTASCRF EQU CVTS01+88 02025000 CVTRV326 EQU CVTS01+84 02026000 CVTRV325 EQU CVTS01+80 02027000 CVTRV324 EQU CVTS01+76 02028000 CVT0VL01 EQU CVTS01+72 02029000 CVTSHRVM EQU CVTS01+68 02030000 CVTRV332 EQU CVTS01+64 02031000 CVTTAS EQU CVTS01+60 02032000 CVTRSCN EQU CVTS01+56 02033000 CVTTRAC2 EQU CVTS01+54 02034000 CVTTRACE EQU CVTS01+52 02035000 CVTAPG EQU CVTS01+51 02036000 CVTSDTRC EQU CVTCTLFG 02037000 CVTGTRCE EQU CVTCTLFG 02038000 CVTNOMP EQU CVTCTLFG 02039000 CVTRSV79 EQU CVTCTLFG 02040000 CVTDSTAT EQU CVTCTLFG 02041000 CVTRSV78 EQU CVTCTLFG 02042000 CVTRV333 EQU CVTCTLFG 02043000 CVTRV323 EQU CVTCTLFG 02044000 CVTSPVLK EQU CVTS01+49 02045000 CVTRSV77 EQU CVTS01+48 02046000 CVTRV331 EQU CVTS01+44 02047000 CVTRV330 EQU CVTS01+40 02048000 CVTRV329 EQU CVTS01+36 02049000 CVTRV328 EQU CVTS01+32 02050000 CVTRV322 EQU CVTS01+28 02051000 CVTSLID EQU CVTSLIDA+1 02052000 CVTSYLK EQU CVTSLIDA 02053000 CVTRV321 EQU CVTS01+20 02054000 CVTRV320 EQU CVTS01+16 02055000 CVTLPDIR EQU CVTLPDIA+1 02056000 CVTRSV69 EQU CVTDIRST 02057000 CVTRSV68 EQU CVTDIRST 02058000 CVTRSV67 EQU CVTDIRST 02059000 CVTRSV66 EQU CVTDIRST 02060000 CVTRSV65 EQU CVTDIRST 02061000 CVTRSV64 EQU CVTDIRST 02062000 CVTRSV63 EQU CVTDIRST 02063000 CVTDICOM EQU CVTDIRST 02064000 CVTPVTP EQU CVTS01+8 02065000 CVTLPDSR EQU CVTS01+4 02066000 CVTGETL EQU CVTS01 02067000 CDRCKOPT EQU CDRCREQR+41 02068000 CDRCKPQB EQU CDRCREQR+38 02069000 CDRCKQCB EQU CDRCREQR+17 02070000 CDRCKQBC EQU CDRCREQR+14 02071000 CDRCKMSG EQU CDRCREQR+12 02072000 CDRCKOFF EQU CDRCREQR+10 02073000 @NM00126 EQU CDRCREQR+9 02074000 @NM00125 EQU CDRCREQR+8 02075000 CDRCKOUT EQU CDRCREQR+6 02076000 CDRCKIN EQU CDRCREQR+4 02077000 @NM00124 EQU CDRCREQR+1 02078000 CDRCKRNC EQU CDRCKFLG 02079000 CDROPTN EQU CDRINCFM+7 02080000 CDRSEQOU EQU CDRINCFM+5 02081000 CDRSEQIN EQU CDRINCFM+3 02082000 CDROFFS EQU CDRINCFM+1 02083000 CDRSTAT EQU CDRINCFM 02084000 @NM00123 EQU CKPOPNFL 02085000 CKPOPNCR EQU CKPOPNFL 02086000 CKPOPNIN EQU CKPOPNFL 02087000 CKPOPNEN EQU CKPOPNFL 02088000 @NM00122 EQU CKPOPNFL 02089000 CKPTRKSA EQU CKPOVER+4 02090000 CKPTRKLN EQU CKPOVER+2 02091000 CKPRCDSR EQU CKPOVER 02092000 CKPNDEVF EQU CKPNFLDS+12 02093000 CKPNTTE EQU CKPNFLDS+8 02094000 @NM00121 EQU CKPNFLDS 02095000 CKPBCKUP EQU CKPNCNTL+30 02096000 CKPTIME EQU CKPDATTM+4 02097000 CKPDATE EQU CKPDATTM 02098000 @NM00120 EQU CKPNCNTL+21 02099000 CKPBLKPT EQU CKPNCNTL+20 02100000 @NM00119 EQU CKPNCNTL+18 02101000 @NM00118 EQU CKPNCNTL+14 02102000 CKPIPLTX EQU CKPNCNTL+4 02103000 CKPSWTCH EQU CKPNCNTL+3 02104000 CKPTRSTA EQU CKPNCNTL+2 02105000 @NM00117 EQU CKPNCNTL 02106000 CKPCTTRA EQU CKPINIT+24 02107000 @NM00116 EQU CKPINIT+22 02108000 CKPIPERE EQU CKPINIT+20 02109000 CKPDATIM EQU CKPINIT+12 02110000 CKPCTTRC EQU CKPINIT+8 02111000 CKPDATLN EQU CKPINIT+6 02112000 CKPKEYLN EQU CKPINIT+5 02113000 CKPRCDNO EQU CKPINIT+4 02114000 CKPHEDNO EQU CKPINIT+2 02115000 CKPCYLNO EQU CKPINIT 02116000 @NM00199 EQU MSGNUMB 02117000 @NM00198 EQU MSGTEXT+16 02118000 @NM00197 EQU MSGTEXT 02119000 MSGMCS EQU MESSAGE+2 02120000 MSGLEN EQU MESSAGE 02121000 DEVDATA EQU DEVRCD+3 02122000 LEARCD EQU LEASED+2 02123000 LEADESC EQU LEASED+1 02124000 LEANCPLV EQU LEASED 02125000 MULRCDS EQU MULTIPNT+4 02126000 MULCURNB EQU MULTIPNT+3 02127000 MULMAX EQU MULTIPNT+2 02128000 MULDESC EQU MULTIPNT+1 02129000 MULNCPLV EQU MULTIPNT 02130000 ICTNTNU EQU ICTNTCTL+2 02131000 ICTNTNO EQU ICTNTCTL 02132000 @NM00196 EQU ICTNT 02133000 @NM00195 EQU TIOENTRY 02134000 @NM00194 EQU TCB 02135000 TRMOPT EQU IEDTRM+34 02136000 TRMOPTBL EQU IEDQTRM+18 02137000 TRMOPNO EQU IEDQTRM+17 02138000 TRMCHCIN EQU IEDQTRM+16 02139000 TRMSENSE EQU TRMSTAT+3 02140000 TRMTEMPR EQU TRMSTAT+2 02141000 TRMSIO EQU TRMSTAT 02142000 @NM00183 EQU TRMDEVFL+1 02143000 TRMTPIN EQU TRMDEVFL+1 02144000 TRMNCPI EQU TRMDEVFL+1 02145000 TRMRNTRM EQU TRMDEVFL+1 02146000 @NM00182 EQU TRMDEVFL+1 02147000 TRMLMD EQU TRMDEVFL+1 02148000 TRMCONC EQU TRMDEVFL+1 02149000 TRMTSOB EQU TRMDEVFL 02150000 TRMBFDY EQU TRMDEVFL 02151000 TRMTBLK EQU TRMDEVFL 02152000 TRMSBLK EQU TRMDEVFL 02153000 TRMBLKS EQU TRMDEVFL 02154000 TRMADDC EQU TRMDEVFL 02155000 TRMDDIG EQU TRMDEVFL 02156000 TRMBUFS EQU TRMDEVFL 02157000 TRMPRILK EQU TRMALTD 02158000 TRMLGB EQU TRMDSORG 02159000 TRMUTERM EQU TLISTCNT 02160000 TRMDESTQ EQU IEDQTRM+1 02161000 TRMSCNYN EQU TRMSTATE 02162000 TRMOPTFN EQU TRMSTATE 02163000 TRMHELDN EQU TRMSTATE 02164000 TRMACPTN EQU TRMSTATE 02165000 TRMPREF EQU TRMSTATE 02166000 TRMPROC EQU TRMLOG 02167000 TRMLIST EQU TRMLOG 02168000 TRMLINE EQU TRMSTATE 02169000 TRMSUBST EQU IEDNTRM+12 02170000 TRMTYPE EQU IEDNTRM+11 02171000 TRMRLMCT EQU IEDNTRM+10 02172000 TRMCOHTG EQU TRMSIBPT+1 02173000 TRMGPCNT EQU TRMSIBPT 02174000 TRMBUFRD EQU TRMBYTE0 02175000 TRMSNA EQU TRMBYTE0 02176000 TRMGP EQU TRMBYTE0 02177000 TRMDIAL EQU TRMBYTE0 02178000 @NM00181 EQU TRMBYTE0 02179000 TRMOUTPT EQU TRMBYTE0 02180000 TRMINPUT EQU TRMBYTE0 02181000 TRMUDEF EQU TRMBYTE0 02182000 TRMCOHRT EQU IEDNTRM+4 02183000 TRMSTOTE EQU TRMBYTE1 02184000 TRMTSATN EQU TRMBYTE1 02185000 TRMTRACE EQU TRMBYTE1 02186000 TRMSWBCK EQU TRMBYTE1 02187000 TRMAUTOC EQU TRMBYTE1 02188000 TRMINPTP EQU TRMBYTE1 02189000 TRMWTNEG EQU TRMSCPRQ 02190000 TRMWRBRK EQU TRMBYTE2 02191000 TRMNOSND EQU TRMBYTE2 02192000 TRMPREP EQU TRMBYTE2 02193000 TRMGPACT EQU TRMBYTE2 02194000 TRMANDL EQU TRMBYTE2 02195000 TRMCLOSN EQU TRMINPG 02196000 TRMREMB EQU TRMBYTE2 02197000 TRMRSACT EQU TRMBYTE2 02198000 TCXEND EQU IEDQTCXD+224 02199000 TCXNCPIO EQU IEDQTCXD+220 02200000 TCXACTE8 EQU TCXQE8 02201000 TCXABEPL EQU IEDQTCXD+212 02202000 TCXSRBS EQU IEDQTCXD+208 02203000 TCXSIOSB EQU IEDQTCXD+204 02204000 TCXESAVE EQU IEDQTCXD+132 02205000 TCXERPPM EQU IEDQTCXD+128 02206000 TCXERPSV EQU IEDQTCXD+116 02207000 TCXSATTN EQU IEDQTCXD+112 02208000 @NM00180 EQU TCXDSAVE+4 02209000 @NM00179 EQU TCXDSAVE 02210000 TCXPLCB EQU IEDQTCXD+100 02211000 TCXBITS EQU IEDQTCXD+98 02212000 TCXSCBSZ EQU IEDQTCXD+97 02213000 TCXBIT1 EQU IEDQTCXD+96 02214000 TCXCOMPT EQU IEDQTCXD+92 02215000 TCXAVAIL EQU IEDQTCXD+88 02216000 TCXBUFL EQU IEDQTCXD+84 02217000 TCXTOTE EQU TCXBUFA 02218000 TCXCKPM EQU IEDQTCXD+79 02219000 TCXNCKPR EQU IEDQTCXD+78 02220000 TCXSZAIB EQU IEDQTCXD+76 02221000 TCXAIBC EQU IEDQTCXD+72 02222000 TCXPEBC EQU IEDQTCXD+68 02223000 TCXPEWAC EQU IEDQTCXD+64 02224000 TCXQRQ EQU IEDQTCXD+60 02225000 TCXOCQ EQU IEDQTCXD+56 02226000 TCXPNTQ EQU IEDQTCXD+52 02227000 TCXPUTQ EQU IEDQTCXD+48 02228000 TCXGETQ EQU IEDQTCXD+44 02229000 TCXTSI EQU IEDQTCXD+40 02230000 TCXRPT EQU IEDQTCXD+36 02231000 TCXCC3TS EQU IEDQTCXD+35 02232000 TCXAPDMP EQU TCXFLAG1 02233000 TCXAPPL EQU TCXFLAG1 02234000 TCXRTM EQU TCXFLAG1 02235000 TCXMCPCD EQU TCXFLAG1 02236000 TCXAUTH EQU TCXFLAG1 02237000 TCXASID EQU IEDQTCXD+32 02238000 TCXASCB EQU IEDQTCXD+28 02239000 TCXPASWD EQU IEDQTCXD+16 02240000 TCXDISP EQU IEDQTCXD+12 02241000 TCXTCB EQU IEDQTCXD+8 02242000 TCXATTLN EQU TCXATTEN 02243000 TCXAVT EQU IEDQTCXD 02244000 @NM00178 EQU IEDPRUND+4 02245000 PRUTHEFI EQU PRUFIDN 02246000 PRUTHUSS EQU PRUFIDN 02247000 PRUTHEIU EQU PRUFIDN 02248000 PRUTHBIU EQU PRUFIDN 02249000 PRUTHTYE EQU PRUFIDN 02250000 @NM00177 EQU PRURHFG2 02251000 PRURHCSI EQU PRURHFG2 02252000 @NM00176 EQU PRURHFG2 02253000 PRURHCDI EQU PRURHFG2 02254000 PRURHEB EQU PRURHFG2 02255000 PRURHBB EQU PRURHFG2 02256000 PRURHPI EQU PRURHFG1 02257000 @NM00175 EQU PRURHFG1 02258000 PRURHER EQU PRURHFG1 02259000 PRURHDR2 EQU PRURHFG1 02260000 @NM00174 EQU PRURHFG1 02261000 PRURHDR1 EQU PRURHFG1 02262000 PRURHEC EQU PRURHFG0 02263000 PRURHBC EQU PRURHFG0 02264000 PRURHSDI EQU PRURHFG0 02265000 PRURHFI EQU PRURHFG0 02266000 @NM00173 EQU PRURHFG0 02267000 PRURUCAT EQU PRURHFG0 02268000 PRURHTYP EQU PRURHFG0 02269000 PRUNUNIT EQU PRUTIC+1 02270000 @NM00172 EQU PRUTIC 02271000 @NM00171 EQU IEDPRUQD+4 02272000 @NM00170 EQU PLMVFLG1 02273000 PLMVSCTG EQU PLMVFLG1 02274000 PLMVUNCF EQU PLMVFLG1 02275000 OPCBOTTM EQU IEDQOPCD+1184 02276000 @NM00169 EQU IEDQOPCD+1100 02277000 @NM00168 EQU IEDQOPCD+948 02278000 @NM00167 EQU IEDQOPCD+940 02279000 @NM00166 EQU IEDQOPCD+380 02280000 @NM00165 EQU OPCPWCOB+9 02281000 @NM00164 EQU OPCPWCOB+8 02282000 @NM00163 EQU OPCPWECB+1 02283000 OPCPWCCC EQU OPCPWECB 02284000 OPCPWCHN EQU OPCPWQCB+1 02285000 OPCPWVTO EQU OPCPWQCB 02286000 OPCWAITV EQU IEDQOPCD+364 02287000 OPCTOTCK EQU IEDQOPCD+360 02288000 OPCAPXTL EQU IEDQOPCD+356 02289000 OPCDECR EQU IEDQOPCD+352 02290000 OPCBUFWT EQU IEDQOPCD+348 02291000 OPCWRKSP EQU IEDQOPCD+320 02292000 OPCADGOT EQU IEDQOPCD+318 02293000 OPCRQCNT EQU IEDQOPCD+316 02294000 OPPOLSTP EQU IEDQOPCD+312 02295000 OPCCKCIB EQU IEDQOPCD+308 02296000 OPCEND EQU IEDQOPCD+307 02297000 OPCSTCBS EQU IEDQOPCD+306 02298000 OPCHNEND EQU IEDQOPCD+302 02299000 OPCOQSW EQU IEDQOPCD+301 02300000 @NM00162 EQU OPCSPEC 02301000 @NM00161 EQU OPCSPEC 02302000 @NM00160 EQU OPCSPEC 02303000 @NM00159 EQU OPCSPEC 02304000 OPCFRMCA EQU OPCSPEC 02305000 OPCRSTRT EQU OPCSPEC 02306000 OPCPART EQU OPCSPEC 02307000 OPCALTD EQU OPCSPEC 02308000 OPCBFEND EQU IEDQOPCD+296 02309000 OPCBFIRS EQU IEDQOPCD+292 02310000 OPCAVBUF EQU IEDQOPCD+290 02311000 OPCIPLCT EQU IEDQOPCD+289 02312000 OPCCLNTS EQU IEDQOPCD+288 02313000 OPCHA8 EQU IEDQOPCD+286 02314000 OPCBFREQ EQU IEDQOPCD+284 02315000 OPCFREBF EQU IEDQOPCD+280 02316000 OPCGETBF EQU IEDQOPCD+276 02317000 OPCNEXT EQU IEDQOPCD+272 02318000 OPCFMDFC EQU IEDQOPCD+268 02319000 OPCSCNC EQU IEDQOPCD+264 02320000 OPCHORTG EQU IEDQOPCD+260 02321000 OPCHORT EQU IEDQOPCD+256 02322000 OPCCKPTL EQU IEDQOPCD+252 02323000 OPCWAITA EQU IEDQOPCD+244 02324000 OPCWAITR EQU IEDQOPCD+240 02325000 OPCWAITP EQU IEDQOPCD+236 02326000 OPCWAITO EQU IEDQOPCD+232 02327000 OPCWAITN EQU IEDQOPCD+228 02328000 OPCWAITL EQU IEDQOPCD+224 02329000 OPCWAITC EQU IEDQOPCD+220 02330000 @NM00158 EQU OPCLDNME+5 02331000 OPCMODID EQU OPCLDNME+3 02332000 @NM00157 EQU OPCLDNME 02333000 OPCXCTL EQU IEDQOPCD+204 02334000 OPCWAIT EQU IEDQOPCD+192 02335000 OPCCKERB EQU IEDQOPCD+164 02336000 OPCBFERB EQU IEDQOPCD+148 02337000 OPCFLAG2 EQU IEDQOPCD+147 02338000 OPCFLAG1 EQU IEDQOPCD+146 02339000 OPCWRKSZ EQU IEDQOPCD+144 02340000 OPCWORK EQU IEDQOPCD+140 02341000 OPCRSAVE EQU IEDQOPCD+132 02342000 OPCQCBAD EQU IEDQOPCD+128 02343000 OPCSAVE EQU IEDQOPCD+56 02344000 OPCTRMWA EQU IEDQOPCD+52 02345000 OPCPSTWT EQU IEDQOPCD+48 02346000 OPCTNTEA EQU IEDQOPCD+44 02347000 OPCPGCK EQU IEDQOPCD+40 02348000 OPCLCB EQU IEDQOPCD+36 02349000 @NM00156 EQU IEDQOPCD+32 02350000 OPCIPLAD EQU IEDQOPCD+28 02351000 OPCTOFLK EQU IEDQOPCD+24 02352000 OPCOPTLK EQU IEDQOPCD+20 02353000 OPCDCBLK EQU IEDQOPCD+16 02354000 OPCCOPCE EQU IEDQOPCD+12 02355000 OPCAVTPT EQU IEDQOPCD+8 02356000 OPCDOUBL EQU IEDQOPCD 02357000 @NM00155 EQU OCLDNME+4 02358000 @NM00154 EQU OCPREFLG 02359000 OCTOTEP EQU OCPREFLG 02360000 OCREPOST EQU OCPREFLG 02361000 OCRSPSNT EQU OCPREFLG 02362000 OCBFREQ EQU OCPREFLG 02363000 OCIDLE EQU OCREQFLG 02364000 OCFORCE EQU OCREQFLG 02365000 OCDCARD EQU OCREQFLG 02366000 OCPARTAL EQU OCREQFLG 02367000 OCADNCP EQU OCREQFLG 02368000 @NM00153 EQU OCREQFLG 02369000 @NM00152 EQU OCREQFLG 02370000 OCFLUSHZ EQU OCREQFLG 02371000 OCRESPCT EQU OCLINTTE 02372000 OCCKPTWA EQU OCCKDATA+4 02373000 @NM00149 EQU OCRSTGTM+2 02374000 OCPTRSAV EQU OCMODNME+4 02375000 OCPUADR EQU OCIPLWA+2 02376000 OCWTGSAV EQU OCIPLWA 02377000 OCDVRDCT EQU OCBACKUP+6 02378000 OCNCP EQU OCBACKUP+4 02379000 OCBUFGOT EQU OCBACKUP+2 02380000 OCBUFNED EQU OCBACKUP 02381000 OCWTG EQU IEDQOPCE+30 02382000 OCRESNUM EQU OCPARM 02383000 OCSEQ EQU OCTRUNIT+2 02384000 @NM00148 EQU OCRSID+1 02385000 OCNONE EQU OCALSTAT 02386000 OCSOME EQU OCALSTAT 02387000 OCALLFLG EQU OCALSTAT 02388000 OCACTREQ EQU OCALSTAT 02389000 OCREDRVE EQU OCALSTAT 02390000 OCSEQIND EQU OCALSTAT 02391000 @NM00147 EQU OCALSTAT 02392000 OCRENTRD EQU OCALSTAT 02393000 OCWTGB EQU OCTIOT 02394000 @NM00146 EQU @NM00145+2 02395000 OCCONID EQU OCDEST 02396000 OCRLN EQU IEDQOPCE+15 02397000 OCRESP EQU OCFLAG 02398000 OCATTACH EQU OCFLAG 02399000 OCSSCP EQU OCFLAG 02400000 OCOUTPUT EQU OCFLAG 02401000 OCLINE EQU OCFLAG 02402000 OCMPP EQU OCFLAG 02403000 OCTOTE EQU OCFLAG 02404000 OCCONSOL EQU OCFLAG 02405000 @NM00144 EQU OCSWITCH 02406000 OCQUCKN EQU OCSWITCH 02407000 OCPRIFLG EQU OCOPTCDE 02408000 @NM00143 EQU OCRUDEST+1 02409000 @NM00142 EQU OCSCAN 02410000 OCNOTUCB EQU OCSCAN 02411000 OCNONAME EQU OCSCAN 02412000 OCALLRLN EQU OCSCAN 02413000 OCDDNAME EQU OCSCAN 02414000 OCDDNRLN EQU OCSCAN 02415000 OCADDR EQU OCSCAN 02416000 OCELMPTR EQU OCELEM+1 02417000 OCELMPRI EQU OCELEM 02418000 OCLINK EQU IEDQOPCE 02419000 DCBBUFSI EQU IHADCS43+6 02420000 DCBUNTCT EQU IHADCS43+5 02421000 DCBILCT EQU IHADCS43+4 02422000 DCBSCTAD EQU DCBSCTAB+1 02423000 @NM00141 EQU DCBSCTAB 02424000 DCBPUTA EQU DCBGETA 02425000 @NM00140 EQU DCBPUT 02426000 DCBDEBA EQU DCBDEBAD+1 02427000 @NM00139 EQU DCBIFLGS 02428000 DCBIFIOE EQU DCBIFLGS 02429000 DCBCH12 EQU DCBIFPCT 02430000 DCBCH9 EQU DCBIFPCT 02431000 DCBIFEC EQU DCBIFLGS 02432000 DCBMFSTI EQU DCBMFDMD 02433000 DCBMFAWR EQU DCBMFSTK 02434000 DCBMFUIP EQU DCBMFTMD 02435000 DCBMFIDW EQU DCBMFLCP 02436000 DCBMFWRK EQU DCBMFMVP 02437000 DCBMFRDQ EQU DCBMFWRT 02438000 DCBMFGTQ EQU DCBMFPUT 02439000 DCBMFSTL EQU DCBMACF2 02440000 DCBMFCK EQU DCBMFDMG 02441000 DCBMFRDX EQU DCBMFCHK 02442000 DCBMFDBF EQU DCBMFSBG 02443000 DCBMFRDI EQU DCBMFLCG 02444000 DCBMFRDK EQU DCBMFMVG 02445000 DCBMFWRQ EQU DCBMFRD 02446000 DCBMFPTQ EQU DCBMFGET 02447000 DCBMFECP EQU DCBMACF1 02448000 DCBMRSTI EQU DCBMRDMD 02449000 DCBMRAWR EQU DCBMRSTK 02450000 DCBMRUIP EQU DCBMRTMD 02451000 DCBMRIDW EQU DCBMRLCP 02452000 DCBMRWRK EQU DCBMRMVP 02453000 DCBMRRDQ EQU DCBMRWRT 02454000 DCBMRGTQ EQU DCBMRPUT 02455000 DCBMRSTL EQU DCBMACR2 02456000 DCBMRCK EQU DCBMRDMG 02457000 DCBPGFXA EQU DCBMRRDX 02458000 DCBMRDBF EQU DCBMRSBG 02459000 DCBMRRDI EQU DCBMRLCG 02460000 DCBMRRDK EQU DCBMRMVG 02461000 DCBMRWRQ EQU DCBMRRD 02462000 DCBMRPTQ EQU DCBMRGET 02463000 DCBMRECP EQU DCBMACR1 02464000 @NM00138 EQU DCBIFLG 02465000 DCBIBIOE EQU DCBIFLG 02466000 DCBICH12 EQU DCBIBPCT 02467000 DCBICH9 EQU DCBIBPCT 02468000 DCBIBEC EQU DCBIFLG 02469000 DCBOFIOF EQU DCBOFLGS 02470000 DCBOFUEX EQU DCBOFLGS 02471000 DCBOFTM EQU DCBOFLGS 02472000 DCBOFPPC EQU DCBOFLGS 02473000 DCBOFOPN EQU DCBOFLGS 02474000 DCBOFEOV EQU DCBOFLGS 02475000 DCBOFLRB EQU DCBOFLGS 02476000 DCBOFIOD EQU DCBOFLWR 02477000 DCBDDNAM EQU IHADCS24 02478000 DCBEXLSA EQU DCBEXLST+1 02479000 DCBEIOBX EQU DCBEXLST 02480000 DCBRNCKA EQU DCBRNCKD+1 02481000 @NM00137 EQU DCBRNCKD 02482000 DCBIOBAD EQU IHADCS2K+8 02483000 DCBDSGTR EQU DCBDSRG2 02484000 @NM00136 EQU DCBDSRG2 02485000 DCBDSRG1 EQU DCBDSORG 02486000 DCBCHNGL EQU DCBTRSTA 02487000 DCBNIDLE EQU DCBTRSTA 02488000 DCBBAKUP EQU DCBTRSTA 02489000 DCBIPLED EQU DCBTRSTA 02490000 DCBRSTRT EQU DCBTRSTA 02491000 DCBINITL EQU DCBTRSTA 02492000 DCBAUTOD EQU DCBTRSTA 02493000 DCBAUTOI EQU DCBTRSTA 02494000 @NM00135 EQU IHADCS2K+4 02495000 DCBDUMPA EQU DCBDUMPD+1 02496000 DCBUNITN EQU DCBDUMPD 02497000 DCBBCKUA EQU DCBBCKUP+1 02498000 @NM00134 EQU DCBBCKUP 02499000 DCBIPLTX EQU IHADCS1A 02500000 @NM00133 EQU IHADCB 02501000 CVTLEVL EQU CVTRELNO+2 02502000 CVTNUMB EQU CVTRELNO 02503000 CVTMDL EQU CVTFIX+250 02504000 @NM00132 EQU CVTFIX+248 02505000 @NM00131 EQU CVTFIX 02506000 CVTRV482 EQU CVTXTNT2+128 02507000 CVTRV481 EQU CVTXTNT2+124 02508000 CVTRV480 EQU CVTXTNT2+120 02509000 CVTRV479 EQU CVTXTNT2+118 02510000 CVTRV478 EQU CVTXTNT2+117 02511000 CVTRV477 EQU CVTXTNT2+116 02512000 CVTRV476 EQU CVTXTNT2+115 02513000 CVTRV475 EQU CVTXTNT2+114 02514000 CVTRV474 EQU CVTRV466 02515000 CVTRV473 EQU CVTRV466 02516000 CVTRV472 EQU CVTRV466 02517000 CVTRV471 EQU CVTRV466 02518000 CVTRV470 EQU CVTRV466 02519000 CVTRV469 EQU CVTRV466 02520000 CVTRV468 EQU CVTRV466 02521000 CVTRV467 EQU CVTRV466 02522000 CVTRV465 EQU CVTRV457 02523000 CVTRV464 EQU CVTRV457 02524000 CVTRV463 EQU CVTRV457 02525000 CVTRV462 EQU CVTRV457 02526000 CVTRV461 EQU CVTRV457 02527000 CVTRV460 EQU CVTRV457 02528000 CVTRV459 EQU CVTRV457 02529000 CVTRV458 EQU CVTRV457 02530000 CVTRV456 EQU CVTXTNT2+108 02531000 CVTRV455 EQU CVTXTNT2+104 02532000 CVTRV454 EQU CVTXTNT2+100 02533000 CVTRV453 EQU CVTXTNT2+96 02534000 CVTRV452 EQU CVTXTNT2+94 02535000 CVTRV451 EQU CVTXTNT2+92 02536000 CVTRV450 EQU CVTXTNT2+90 02537000 CVTRV449 EQU CVTXTNT2+88 02538000 CVTRV448 EQU CVTXTNT2+87 02539000 CVTRV447 EQU CVTXTNT2+86 02540000 CVTRV446 EQU CVTRV438 02541000 CVTRV445 EQU CVTRV438 02542000 CVTRV444 EQU CVTRV438 02543000 CVTRV443 EQU CVTRV438 02544000 CVTRV442 EQU CVTRV438 02545000 CVTRV441 EQU CVTRV438 02546000 CVTRV440 EQU CVTRV438 02547000 CVTRV439 EQU CVTRV438 02548000 CVTRV437 EQU CVTRV429 02549000 CVTRV436 EQU CVTRV429 02550000 CVTRV435 EQU CVTRV429 02551000 CVTRV434 EQU CVTRV429 02552000 CVTRV433 EQU CVTRV429 02553000 CVTRV432 EQU CVTRV429 02554000 CVTRV431 EQU CVTRV429 02555000 CVTRV430 EQU CVTRV429 02556000 CVTRV428 EQU CVTXTNT2+80 02557000 CVTRV427 EQU CVTXTNT2+76 02558000 CVTRV426 EQU CVTXTNT2+72 02559000 CVTRV425 EQU CVTXTNT2+68 02560000 CVTATACT EQU CVTATCVT 02561000 CVTRV423 EQU CVTXTNT2+62 02562000 CVTRV422 EQU CVTXTNT2+60 02563000 CVTRV421 EQU CVTXTNT2+58 02564000 CVTRV420 EQU CVTXTNT2+56 02565000 CVTRV419 EQU CVTXTNT2+55 02566000 CVTRV418 EQU CVTXTNT2+54 02567000 CVTRV417 EQU CVTRV409 02568000 CVTRV416 EQU CVTRV409 02569000 CVTRV415 EQU CVTRV409 02570000 CVTRV414 EQU CVTRV409 02571000 CVTRV413 EQU CVTRV409 02572000 CVTRV412 EQU CVTRV409 02573000 CVTRV411 EQU CVTRV409 02574000 CVTRV410 EQU CVTRV409 02575000 CVTRV408 EQU CVTRV400 02576000 CVTRV407 EQU CVTRV400 02577000 CVTRV406 EQU CVTRV400 02578000 CVTRV405 EQU CVTRV400 02579000 CVTRV404 EQU CVTRV400 02580000 CVTRV403 EQU CVTRV400 02581000 CVTRV402 EQU CVTRV400 02582000 CVTRV401 EQU CVTRV400 02583000 CVTICB EQU CVTXTNT2+48 02584000 CVTSKTA EQU CVTXTNT2+44 02585000 CVTSHSB EQU CVTSHS 02586000 CVTRSV98 EQU CVTXTNT2+36 02587000 CVTRSV97 EQU CVTXTNT2+34 02588000 CVTRSV96 EQU CVTXTNT2+32 02589000 CVTOLTEP EQU CVTXTNT2+28 02590000 CVTQIDA EQU CVTQID+1 02591000 CVTRSV95 EQU CVTQID 02592000 CVTRSV94 EQU CVTXTNT2+20 02593000 CVTRSV93 EQU CVTXTNT2+16 02594000 CVTRSV92 EQU CVTXTNT2+12 02595000 CVTDEBVR EQU CVTXTNT2+8 02596000 CVTRSV91 EQU CVTXTNT2+6 02597000 CVTRSV9H EQU CVTFLGBT 02598000 CVTRSV9G EQU CVTFLGBT 02599000 CVTRSV9F EQU CVTFLGBT 02600000 CVTRSV9E EQU CVTFLGBT 02601000 CVTRSV9D EQU CVTFLGBT 02602000 CVTRSV9C EQU CVTFLGBT 02603000 CVTVME EQU CVTFLGBT 02604000 CVTNPE EQU CVTFLGBT 02605000 CVTNUCLS EQU CVTXTNT2+4 02606000 CVTDSSVA EQU CVTDSSV+1 02607000 CVTRSV89 EQU CVTDSSV 02608000 CVTRSV88 EQU CVTXTNT1+8 02609000 CVTRSV87 EQU CVTXTNT1+4 02610000 CVTFACHN EQU CVTXTNT1 02611000 CVTRV488 EQU CVTMAP+412 02612000 CVTRV487 EQU CVTMAP+408 02613000 CVTRV486 EQU CVTMAP+404 02614000 CVTRV485 EQU CVTMAP+400 02615000 CVTACTAP EQU CVTMAP+396 02616000 CVTAUTH EQU CVTMAP+392 02617000 CVTATMCA EQU CVTATMCT+1 02618000 CVTATMST EQU CVTATMCT 02619000 CVTRSV61 EQU CVTMAP+384 02620000 CVTVOLT1 EQU CVTVOLM1+1 02621000 CVTVOLI1 EQU CVTVOLF1 02622000 CVTSTOA EQU CVTMAP+376 02623000 CVTRSV58 EQU CVTMAP+374 02624000 CVTRSV57 EQU CVTMAP+372 02625000 CVTDDCE EQU CVTMAP+368 02626000 CVTPNWFR EQU CVTMAP+364 02627000 CVTSMF EQU CVTMAP+360 02628000 CVTSULK EQU CVTMAP+358 02629000 CVTSLKO EQU CVTSYSK 02630000 CVTSLKP EQU CVTSYSK 02631000 CVTSLKQ EQU CVTSYSK 02632000 CVTSLKR EQU CVTSYSK 02633000 CVTRSV56 EQU CVTSYSK 02634000 CVTRSV55 EQU CVTSYSK 02635000 CVTRSV54 EQU CVTSYSK 02636000 CVTRSV53 EQU CVTSYSK 02637000 CVTRSV52 EQU CVTA1F1 02638000 CVTRSV51 EQU CVTA1F1 02639000 CVTRSV50 EQU CVTA1F1 02640000 CVTRSV49 EQU CVTA1F1 02641000 CVTRSV48 EQU CVTA1F1 02642000 CVTRSV47 EQU CVTA1F1 02643000 CVTSRSW EQU CVTA1F1 02644000 CVTPFSW EQU CVTA1F1 02645000 CVTPCVT EQU CVTMAP+352 02646000 CVTRSV46 EQU CVTMAP+344 02647000 CVTRSV45 EQU CVTMAP+340 02648000 CVTRSV44 EQU CVTMAP+338 02649000 CVTRSV43 EQU CVTMAP+336 02650000 CVTHJESA EQU CVTHJES+1 02651000 CVTRSV42 EQU CVTHJES 02652000 CVTEXT2A EQU CVTEXT2+1 02653000 CVTRSV41 EQU CVTEXT2 02654000 CVTAPFA EQU CVTAPF+1 02655000 CVTRSV40 EQU CVTAPF 02656000 CVTRV518 EQU CVTINTLA 02657000 CVTRV517 EQU CVTERPV 02658000 CVTEORM EQU CVTMAP+312 02659000 CVTMCHPR EQU CVTMAP+308 02660000 CVTTZ EQU CVTMAP+304 02661000 CVTJEPS EQU CVTMAP+300 02662000 CVTJESCT EQU CVTMAP+296 02663000 CVTMODE EQU CVTMAP+292 02664000 CVTPTRV EQU CVTMAP+288 02665000 CVTREAL EQU CVTMAP+284 02666000 CVTRSV39 EQU CVTMAP+280 02667000 CVTRSV38 EQU CVTMAP+276 02668000 CVTDMSRA EQU CVTDMSR+1 02669000 CVTRV634 EQU CVTDMSRF 02670000 CVTRV633 EQU CVTDMSRF 02671000 CVTRV632 EQU CVTDMSRF 02672000 CVTRV631 EQU CVTDMSRF 02673000 CVTRV630 EQU CVTDMSRF 02674000 CVTRV629 EQU CVTDMSRF 02675000 CVTUDUMP EQU CVTDMSRF 02676000 CVTSDUMP EQU CVTDMSRF 02677000 CVTQMSGA EQU CVTQMSG+1 02678000 CVTRSV36 EQU CVTQMSG 02679000 CVTAMFF EQU CVTMAP+264 02680000 CVTPURGA EQU CVTPURG+1 02681000 CVTRSV35 EQU CVTPURG 02682000 CVTCBSP EQU CVTMAP+256 02683000 CVTATERA EQU CVTATER+1 02684000 CVTSYST EQU CVTATER 02685000 CVTVOLT2 EQU CVTTAT 02686000 CVTVOLI2 EQU CVTVOLF2 02687000 CVTAQAVB EQU CVTAQAVT+1 02688000 CVTRSV34 EQU CVTTCMFG 02689000 CVTRSV33 EQU CVTTCMFG 02690000 CVTRSV32 EQU CVTTCMFG 02691000 CVTRSV31 EQU CVTTCMFG 02692000 CVTRSV30 EQU CVTTCMFG 02693000 CVTRSV29 EQU CVTTCMFG 02694000 CVTRSV28 EQU CVTTCMFG 02695000 CVTTCRDY EQU CVTTCMFG 02696000 CVTGTFA EQU CVTGTF+1 02697000 CVTRSV27 EQU CVTGTFST 02698000 CVTRNIO EQU CVTGTFST 02699000 CVTUSR EQU CVTGTFST 02700000 CVTRV318 EQU CVTFORM 02701000 CVTRV317 EQU CVTTMODE 02702000 CVTRV316 EQU CVTSTATE 02703000 CVTRV315 EQU CVTGTFS 02704000 CVTGTFAV EQU CVTGTFS 02705000 CVT0SCR1 EQU CVTMAP+232 02706000 CVTRV515 EQU CVTMAP+228 02707000 CVTRMS EQU CVTMAP+224 02708000 CVTPATCH EQU CVTMAP+220 02709000 CVTTSCE EQU CVTMAP+216 02710000 CVTLNKSC EQU CVTMAP+214 02711000 CVTQABST EQU CVTMAP+212 02712000 CVTMDLDS EQU CVTMAP+208 02713000 CVTUSER EQU CVTMAP+204 02714000 CVTABEND EQU CVTMAP+200 02715000 CVTSMCA EQU CVTMAP+196 02716000 CVTRSV18 EQU CVTMAP+192 02717000 CVTQLPAQ EQU CVTMAP+188 02718000 CVTQCDSR EQU CVTMAP+184 02719000 CVTRSV17 EQU CVTOPTB 02720000 CVTRSV16 EQU CVTOPTB 02721000 CVTFP EQU CVTOPTB 02722000 CVTAPTHR EQU CVTOPTB 02723000 CVTNLOG EQU CVTOPTB 02724000 CVTTOD EQU CVTOPTB 02725000 CVTCTIMS EQU CVTOPTB 02726000 CVTPROT EQU CVTOPTB 02727000 CVTXPFP EQU CVTOPTA 02728000 CVTASCII EQU CVTOPTA 02729000 CVTRSV13 EQU CVTOPTA 02730000 CVTRSV12 EQU CVTOPTA 02731000 CVTNIP EQU CVTOPTA 02732000 CVTDDR EQU CVTOPTA 02733000 CVTAPR EQU CVTOPTA 02734000 CVTCCH EQU CVTOPTA 02735000 CVTSNCTR EQU CVTMAP+180 02736000 CVTQMWR EQU CVTMAP+176 02737000 CVTQOCR EQU CVTMAP+172 02738000 CVT1EF00 EQU CVTMAP+168 02739000 CVTMZ00 EQU CVTMAP+164 02740000 CVTHEAD EQU CVTMAP+160 02741000 CVTRSV11 EQU CVTMAP+156 02742000 CVT0PT01 EQU CVTMAP+152 02743000 CVTMSER EQU CVTMAP+148 02744000 CVTRV516 EQU CVTIERLC 02745000 CVTILCH EQU CVTMAP+140 02746000 CVT0DS EQU CVTMAP+136 02747000 CVTFBOSV EQU CVTMAP+132 02748000 CVTNUCB EQU CVTMAP+128 02749000 CVTIXAVL EQU CVTMAP+124 02750000 CVTIOQET EQU CVTMAP+120 02751000 CVTDCBA EQU CVTMAP+117 02752000 CVTMVS2 EQU CVTDCB 02753000 CVT6DAT EQU CVTDCB 02754000 CVT4MPS EQU CVTDCB 02755000 CVTRSV09 EQU CVTDCB 02756000 CVT4MS1 EQU CVTDCB 02757000 CVT2SPS EQU CVTDCB 02758000 CVT1SSS EQU CVTDCB 02759000 CVTRSV08 EQU CVTDCB 02760000 CVTSTB EQU CVTMAP+112 02761000 CVTQTD00 EQU CVTMAP+108 02762000 CVTQTE00 EQU CVTMAP+104 02763000 CVTCUCB EQU CVTMAP+100 02764000 CVTSJQ EQU CVTMAP+96 02765000 CVTPBLDL EQU CVTMAP+92 02766000 CVTTPC EQU CVTMAP+88 02767000 CVTSVDCB EQU CVTMAP+84 02768000 CVTBRET EQU CVTMAP+82 02769000 CVTEXIT EQU CVTMAP+80 02770000 CVT0FN00 EQU CVTMAP+76 02771000 CVTDARA EQU CVTDAR+1 02772000 CVTRSV07 EQU CVTFLGS1 02773000 CVTRSV06 EQU CVTFLGS1 02774000 CVTRSV05 EQU CVTFLGS1 02775000 CVTRSV04 EQU CVTFLGS1 02776000 CVTRSV03 EQU CVTFLGS1 02777000 CVTRSV02 EQU CVTFLGS1 02778000 CVTRSV01 EQU CVTFLGS1 02779000 CVTDMPLK EQU CVTFLGS1 02780000 CVTXITP EQU CVTMAP+68 02781000 CVTZDTAB EQU CVTMAP+64 02782000 CVTMSLT EQU CVTMAP+60 02783000 CVTDATE EQU CVTMAP+56 02784000 CVTBTERM EQU CVTMAP+52 02785000 CVTSYSAD EQU CVTMAP+48 02786000 CVTXTLER EQU CVTMAP+44 02787000 CVTILK2 EQU CVTMAP+40 02788000 CVTILK1 EQU CVTMAP+36 02789000 CVTPRLTV EQU CVTMAP+32 02790000 CVTPCNVT EQU CVTMAP+28 02791000 CVT0VL00 EQU CVTMAP+24 02792000 CVTXAPG EQU CVTMAP+20 02793000 CVTBUF EQU CVTMAP+16 02794000 CVTJOB EQU CVTMAP+12 02795000 CVTLINK EQU CVTMAP+8 02796000 CVT0EF00 EQU CVTMAP+4 02797000 CVTTCBP EQU CVTMAP 02798000 CVT EQU CVTMAP 02799000 @NM00130 EQU CNRBHFUN 02800000 CNRBHFN0 EQU CNRBHFUN 02801000 @NM00129 EQU CNRCNTL+1 02802000 CKPIOTR EQU CKPAVT+21 02803000 CKPSUBT EQU CKPAVT+20 02804000 CKPLODPT EQU CKPAVT+16 02805000 CKPRADDR EQU CKPAVT+12 02806000 CKPNADDR EQU CKPAVT+8 02807000 CKPBIT2 EQU CKPAVT+7 02808000 CKPBIT1 EQU CKPAVT+6 02809000 CKPINTLV EQU CKPAVT+4 02810000 CKPOPCIN EQU CKPAVT+2 02811000 CKPOPCON EQU CKPAVT 02812000 CKPTYPE EQU CKPNRES+5 02813000 @NM00128 EQU CKPNFLG 02814000 CKPLULOG EQU CKPNFLG 02815000 CKPEPMOD EQU CKPNFLG 02816000 CKPRSACT EQU CKPNFLG 02817000 CKPREMB EQU CKPNFLG 02818000 CKPCOHRT EQU CKPNRES+2 02819000 CKPSUBST EQU CKPNRES 02820000 CKPCTSEC EQU CKPREQTB+6 02821000 CKPCTOFF EQU CKPREQTB+4 02822000 CKPCTTTR EQU CKPREQTB+1 02823000 CKPCTDER EQU CKPCTFLG 02824000 CKPCTACT EQU CKPCTFLG 02825000 CREDEB EQU CREOFFS 02826000 CREECB EQU IEDQCRED+8 02827000 @NM00127 EQU CRELINK+1 02828000 CREPRI EQU CRELINK 02829000 CREQCBAD EQU IEDQCRED+1 02830000 CREKEY EQU IEDQCRED 02831000 CDRKEY EQU IEDQCDRD+8 02832000 CDRTIME EQU IEDQCDRD+4 02833000 CDRDATE EQU IEDQCDRD 02834000 CKPSECT1 EQU CKPCNTLR+37 02835000 CKPTTRT1 EQU CKPCNTLR+34 02836000 CKPSECIN EQU CKPCNTLR+32 02837000 CKPSECCR EQU CKPCNTLR+30 02838000 CKPSECLI EQU CKPCNTLR+28 02839000 CKPSECLT EQU CKPCNTLR+26 02840000 CKPINCLN EQU CKPCNTLR+24 02841000 CKPTTRLI EQU CKPCNTLR+21 02842000 CKPRPERT EQU CKPCNTLR+20 02843000 CKPCKRLN EQU CKPCNTLR+18 02844000 CKPCPERT EQU CKPPRQNO 02845000 CKPIPERT EQU CKPCNTLR+16 02846000 CKPCPRCD EQU CKPCNTLR+15 02847000 CKPCKRQS EQU CKPCNTLR+14 02848000 CKPBPERR EQU CKPCNTLR+12 02849000 CKPTTRIN EQU CKPCNTLR+9 02850000 CKPINRNO EQU CKPCNTLR+8 02851000 CKPTTRCR EQU CKPCNTLR+5 02852000 CKPCRRNO EQU CKPCNTLR+4 02853000 CKPINCNO EQU CKPCNTLR+3 02854000 CKPINCNT EQU CKPCNTLR+2 02855000 CKPTTRCT EQU CKPCNTLR+1 02856000 CKPOPCRD EQU CKPFLAGS 02857000 CKPOPTFN EQU CKPFLAGS 02858000 CKPSTAIN EQU CKPFLAGS 02859000 CKPERR EQU CKPFLAGS 02860000 @NM00115 EQU CKPFLAGS 02861000 CKPFSCN2 EQU CKPFLAGS 02862000 CKPFSCN1 EQU CKPFLAGS 02863000 CKPNORML EQU CKPFLAGS 02864000 @NM00114 EQU CKPMSG+65 02865000 CKPMSGGL EQU CKPMSG+61 02866000 @NM00113 EQU CKPMSG+2 02867000 CKPMSGLN EQU CKPMSG 02868000 CKPWKALN EQU @NM00112+10 02869000 CKPRWBC EQU CKPRW+6 02870000 @NM00111 EQU CKPRW+5 02871000 CKPRWFLG EQU CKPRW+4 02872000 CKPSCHID EQU CKPCCWS+16 02873000 CKPSETSC EQU CKPCCWS+8 02874000 CKPSEEKC EQU CKPCCWS 02875000 @NM00110 EQU IEDQCKPD+164 02876000 CKPERRCT EQU IEDQCKPD+163 02877000 CKPSWCH2 EQU IEDQCKPD+162 02878000 CKPSWCH1 EQU IEDQCKPD+161 02879000 CKPCRLEN EQU IEDQCKPD+160 02880000 CKPPARM2 EQU IEDQCKPD+156 02881000 CKPCPARM EQU IEDQCKPD+148 02882000 CKPSECTR EQU CKPCTTRB 02883000 CKPLDRB EQU IEDQCKPD+140 02884000 CKPLREB EQU IEDQCKPD+136 02885000 CKPNDRB EQU @NM00109 02886000 CKPIOQF EQU IEDQCKPD+128 02887000 CKPEPLOC EQU CKPCNVRT 02888000 CKPECB EQU IEDQCKPD+112 02889000 CKPIOR EQU CKPIOSK+7 02890000 CKPIOHH EQU CKPIOSK+5 02891000 CKPIOCC EQU CKPIOSK+3 02892000 CKPIOBB EQU CKPIOSK+1 02893000 CKPIOM EQU CKPIOSK 02894000 CKPIORC EQU CKPIOB+30 02895000 CKPIOBCI EQU CKPIOB+28 02896000 CKPIORST EQU CKPIOB+25 02897000 @NM00108 EQU CKPIOB+24 02898000 @NM00107 EQU CKPIOB+20 02899000 CKPIOCPA EQU CKPIOB+17 02900000 CKPIOSIO EQU CKPIOB+16 02901000 CKPIOCSW EQU CKPIOB+9 02902000 CKPIOFL3 EQU CKPIOB+8 02903000 @NM00106 EQU CKPIOECB+1 02904000 CKPIOSN1 EQU CKPIOB+3 02905000 CKPIOSN0 EQU CKPIOB+2 02906000 CKPIOFL2 EQU CKPIOB+1 02907000 CKPIOFL1 EQU CKPIOB 02908000 CAVTNQE EQU CAVTWL2+1 02909000 CAVTTIOE EQU CAVTWL1+5 02910000 CAVTEOL1 EQU CAVTWL1+4 02911000 CAVTTQE EQU CAVTWL1 02912000 @NM00105 EQU IEDQCKAD+10 02913000 CAVTFLGS EQU IEDQCKAD+9 02914000 BDUXGRPH EQU BDUEXRSP 02915000 BDUXFINL EQU BDUEXRSP 02916000 BDUXINIT EQU BDUEXRSP 02917000 BDURESP EQU BDUSYRSP 02918000 BDUPHASE EQU BDUSYRSP 02919000 BDUERROR EQU BDUSYRSP 02920000 BDUXERLK EQU BDUBDUFG 02921000 BDUALTAK EQU BDUFNFLG 02922000 BDUNEGAK EQU BDUFNFLG 02923000 BDUPOSAK EQU BDUFNFLG 02924000 BDUTPTX EQU BDUFNFLG 02925000 BDUFRSTB EQU BDUFNFLG 02926000 BDULEADG EQU BDUFNFLG 02927000 BDUSTHDR EQU BDUFNFLG 02928000 SAVTBITN EQU IEDNSVTD+312 02929000 @NM00104 EQU SAVTCKQB+8 02930000 @NM00103 EQU SAVTCKEC+1 02931000 @NM00102 EQU SAVTCKCC 02932000 SAVTCKPO EQU SAVTCKCC 02933000 SAVTCKWA EQU SAVTCKCC 02934000 SAVTCKCH EQU SAVTCKTB+1 02935000 SAVTCKVT EQU SAVTCKTB 02936000 @NM00101 EQU IEDNSVTD+297 02937000 SAVTRDFG EQU SAVTRDRV+12 02938000 @NM00100 EQU SAVTRDRV+5 02939000 SAVTRDPY EQU SAVTRDRV+4 02940000 SAVTRDQB EQU SAVTRDRV+1 02941000 SAVTRDKY EQU SAVTRDRV 02942000 SAVTNID EQU IEDNSVTD+280 02943000 SAVTDVAS EQU IEDNSVTD+276 02944000 SAVTPLSZ EQU IEDNSVTD+274 02945000 @NM00099 EQU IEDNSVTD+273 02946000 SAVTSUBL EQU IEDNSVTD+272 02947000 @NM00098 EQU SAVTZELM+1 02948000 SAVTSUBM EQU SAVTZELM 02949000 SAVTMHDX EQU IEDNSVTD+268 02950000 SAVTNAT1 EQU IEDNSVTD+266 02951000 SAVTSH20 EQU IEDNSVTD+264 02952000 SAVTLCBS EQU IEDNSVTD+260 02953000 SAVTRNMP EQU IEDNSVTD+256 02954000 SAVTTNTX EQU IEDNSVTD+252 02955000 SAVTNAX EQU IEDNSVTD+248 02956000 SAVTSUBV EQU IEDNSVTD+247 02957000 SAVTSUBA EQU IEDNSVTD+246 02958000 SAVTSIBC EQU IEDNSVTD+244 02959000 SAVTBSM EQU IEDNSVTD+240 02960000 SAVTSCPT EQU SAVTTCPU 02961000 SAVTRQTG EQU IEDNSVTD+236 02962000 SAVTRQCH EQU IEDNSVTD+232 02963000 SAVTMAND EQU IEDNSVTD+228 02964000 SAVTSPLN EQU IEDNSVTD+224 02965000 SAVTNADL EQU IEDNSVTD+222 02966000 SAVTNATL EQU IEDNSVTD+220 02967000 SAVTMHTB EQU IEDNSVTD+216 02968000 SAVTSSMH EQU IEDNSVTD+212 02969000 SAVTQRS EQU IEDNSVTD+208 02970000 SAVTRQIN EQU IEDNSVTD+204 02971000 SAVTDFCO EQU IEDNSVTD+200 02972000 SAVTSAO EQU IEDNSVTD+196 02973000 SAVTSARI EQU IEDNSVTD+192 02974000 SAVTSAC EQU IEDNSVTD+188 02975000 SAVTSAI EQU IEDNSVTD+184 02976000 SAVTCSCI EQU IEDNSVTD+180 02977000 SAVTSSRP EQU IEDNSVTD+176 02978000 SAVTSSRQ EQU IEDNSVTD+172 02979000 SAVTSCLU EQU IEDNSVTD+168 02980000 SAVTXTRQ EQU IEDNSVTD+164 02981000 @NM00097 EQU IEDNSVTD+148 02982000 SAVTIPCQ EQU IEDNSVTD+144 02983000 @NM00096 EQU IEDNSVTD+136 02984000 SAVTXFMI EQU IEDNSVTD+132 02985000 @NM00095 EQU IEDNSVTD+124 02986000 SAVTXFMO EQU IEDNSVTD+120 02987000 @NM00094 EQU IEDNSVTD+116 02988000 SAVTSSSR EQU IEDNSVTD+112 02989000 SAVTSCPQ EQU IEDNSVTD+108 02990000 SAVTSLCB EQU IEDNSVTD+104 02991000 SAVTLUSR EQU IEDNSVTD+100 02992000 @NM00093 EQU SAVTLUSQ+8 02993000 SAVTLUSP EQU SAVTLUSQ+4 02994000 SAVTLUSB EQU SAVTLUSQ 02995000 @NM00092 EQU IEDNSVTD+84 02996000 SAVTSAT EQU IEDNSVTD+80 02997000 SAVTNAT EQU IEDNSVTD+76 02998000 SAVTCLUP EQU IEDNSVTD+72 02999000 SAVTPIUT EQU IEDNSVTD+68 03000000 SAVTRNTA EQU IEDNSVTD+64 03001000 SAVTDNIR EQU IEDNSVTD+60 03002000 SAVTCNIR EQU IEDNSVTD+56 03003000 SAVTFLDH EQU IEDNSVTD+52 03004000 SAVTSRTN EQU IEDNSVTD+48 03005000 SAVTSREQ EQU IEDNSVTD+44 03006000 SAVTFAIL EQU IEDNSVTD+42 03007000 SAVTSUSE EQU IEDNSVTD+40 03008000 SAVTSIB EQU IEDNSVTD+36 03009000 SAVTPRTN EQU IEDNSVTD+32 03010000 @NM00091 EQU IEDNSVTD+28 03011000 SAVTWH20 EQU IEDNSVTD+26 03012000 SAVTPWT EQU IEDNSVTD+24 03013000 SAVTPRTQ EQU IEDNSVTD+20 03014000 SAVTPREQ EQU IEDNSVTD+16 03015000 SAVTPH20 EQU IEDNSVTD+14 03016000 SAVTPUSE EQU IEDNSVTD+12 03017000 SAVTPLCB EQU IEDNSVTD+8 03018000 SAVTPOOL EQU IEDNSVTD+4 03019000 SAVTPRMT EQU SAVTDIAF 03020000 SAVTVIRT EQU SAVTDIAF 03021000 AVTCPBNO EQU IEDQAVTD+1244 03022000 AVTHRESS EQU IEDQAVTD+1243 03023000 @NM00090 EQU IEDQAVTD+1242 03024000 @NM00089 EQU IEDQAVTD+1241 03025000 @NM00088 EQU IEDQAVTD+1240 03026000 @NM00087 EQU IEDQAVTD+1237 03027000 @NM00086 EQU IEDQAVTD+1236 03028000 AVTHRESE EQU @NM00085 03029000 AVTRADDR EQU IEDQAVTD+1228 03030000 AVTNADDR EQU IEDQAVTD+1224 03031000 AVTHRESN EQU IEDQAVTD+1220 03032000 AVTVOLRN EQU IEDQAVTD+1216 03033000 AVTTOTNN EQU IEDQAVTD+1212 03034000 AVTTRCYN EQU IEDQAVTD+1208 03035000 AVTRCTRN EQU IEDQAVTD+1204 03036000 AVTNOVON EQU IEDQAVTD+1200 03037000 AVTADEBN EQU IEDQAVTD+1196 03038000 AVTVOLRR EQU IEDQAVTD+1192 03039000 AVTTOTNR EQU IEDQAVTD+1188 03040000 AVTTRCYR EQU IEDQAVTD+1184 03041000 AVTRCTRR EQU IEDQAVTD+1180 03042000 AVTNOVOR EQU IEDQAVTD+1176 03043000 AVTADEBR EQU IEDQAVTD+1172 03044000 AVTLODPT EQU IEDQAVTD+1168 03045000 AVTIOBN EQU IEDQAVTD+1164 03046000 AVTIOBR EQU IEDQAVTD+1160 03047000 AVTCPBPT EQU IEDQAVTD+1156 03048000 AVTFCPB EQU IEDQAVTD+1152 03049000 @NM00084 EQU IEDQAVTD+1148 03050000 AVTINCPQ EQU IEDQAVTD+1144 03051000 @NM00083 EQU IEDQAVTD+1140 03052000 @NM00082 EQU IEDQAVTD+1137 03053000 @NM00081 EQU AVTBIT4 03054000 @NM00080 EQU AVTBIT4 03055000 @NM00079 EQU AVTBIT4 03056000 @NM00078 EQU AVTBIT4 03057000 @NM00077 EQU AVTBIT4 03058000 @NM00076 EQU AVTBIT4 03059000 @NM00075 EQU AVTBIT4 03060000 AVTRUFTN EQU AVTBIT4 03061000 @NM00074 EQU IEDQAVTD+1132 03062000 AVTNOBFQ EQU IEDQAVTD+1128 03063000 @NM00073 EQU IEDQAVTD+1124 03064000 AVTDKENQ EQU IEDQAVTD+1120 03065000 @NM00072 EQU IEDQAVTD+1116 03066000 AVTDKAPQ EQU IEDQAVTD+1112 03067000 AVTCOPY EQU IEDQAVTD+1108 03068000 AVTIA EQU IEDQAVTD+1104 03069000 AVTFL EQU IEDQAVTD+1100 03070000 @NM00071 EQU IEDQAVTD+1096 03071000 AVTNCPBQ EQU IEDQAVTD+1092 03072000 AVTTOTNC EQU IEDQAVTD+1088 03073000 AVTCMAX EQU IEDQAVTD+1084 03074000 AVTCMIN EQU IEDQAVTD+1080 03075000 AVTHM02 EQU IEDQAVTD+1076 03076000 AVTOPCIN EQU IEDQAVTD+1074 03077000 AVTDCTLN EQU IEDQAVTD+1072 03078000 AVTOPMSK EQU IEDQAVTD+1068 03079000 AVTDDFT EQU IEDQAVTD+1064 03080000 AVTSTEAL EQU IEDQAVTD+1060 03081000 AVTOPTN EQU IEDQAVTD+1056 03082000 AVTDSKCT EQU IEDQAVTD+1054 03083000 AVTCKRST EQU IEDQAVTD+1053 03084000 AVTSTAN EQU AVTBIT3 03085000 AVTSTACN EQU AVTBIT3 03086000 AVTSTAIN EQU AVTBIT3 03087000 AVTSTAYN EQU AVTBIT3 03088000 AVTOLTBN EQU AVTBIT3 03089000 AVTTSAB EQU AVTBIT3 03090000 AVTRFULN EQU AVTBIT3 03091000 AVTRECVN EQU AVTBIT3 03092000 @NM00070 EQU AVTBIT2 03093000 @NM00069 EQU AVTBIT2 03094000 AVTOPEIN EQU AVTBIT2 03095000 AVTSTRTN EQU AVTBIT2 03096000 AVTTOPOL EQU AVTBIT2 03097000 AVTCOPYN EQU AVTBIT2 03098000 AVTREUSN EQU AVTBIT2 03099000 AVTEXTSC EQU AVTBIT2 03100000 AVTDISKN EQU AVTBIT1 03101000 AVTQUCKN EQU AVTBIT1 03102000 AVTCLOSN EQU AVTBIT1 03103000 AVTREADN EQU AVTBIT1 03104000 AVTDLAYN EQU AVTBIT1 03105000 AVTAQTAN EQU AVTBIT1 03106000 AVTTSON EQU AVTBIT1 03107000 AVTAPLKN EQU AVTBIT1 03108000 AVTDUMBR EQU IEDQAVTD+1048 03109000 AVTDLQX EQU IEDQAVTD+1046 03110000 AVTINTLV EQU IEDQAVTD+1044 03111000 AVTSMCNT EQU IEDQAVTD+1042 03112000 AVTAVFCT EQU IEDQAVTD+1040 03113000 AVTOPCON EQU IEDQAVTD+1038 03114000 AVTOPCNT EQU IEDQAVTD+1036 03115000 AVTLNCNT EQU IEDQAVTD+1034 03116000 AVTHA16 EQU IEDQAVTD+1030 03117000 AVTHA7 EQU IEDQAVTD+1028 03118000 AVTHA4 EQU IEDQAVTD+1026 03119000 AVTHA3 EQU IEDQAVTD+1024 03120000 AVTHA2 EQU IEDQAVTD+1022 03121000 AVTGETMS EQU IEDQAVTD+1021 03122000 @NM00068 EQU IEDQAVTD+1020 03123000 AVTGETMD EQU IEDQAVTD+1016 03124000 AVTGETMN EQU IEDQAVTD+1012 03125000 AVTCWTOT EQU IEDQAVTD+1008 03126000 AVTCWINT EQU IEDQAVTD+956 03127000 AVTDTRAP EQU IEDQAVTD+952 03128000 @NM00067 EQU IEDQAVTD+950 03129000 @NM00066 EQU AVTIOTR 03130000 AVTIOTRH EQU AVTIOTR 03131000 AVTIOTRE EQU AVTIOTR 03132000 @NM00065 EQU AVTSUBT 03133000 AVTSUBPT EQU AVTSUBT 03134000 AVTSUBON EQU AVTSUBT 03135000 AVTAFE30 EQU IEDQAVTD+944 03136000 AVTAFE20 EQU IEDQAVTD+940 03137000 AVTAFE10 EQU IEDQAVTD+936 03138000 AVTCWEC2 EQU IEDQAVTD+932 03139000 AVTCWPM2 EQU IEDQAVTD+928 03140000 AVTCWTS2 EQU IEDQAVTD+927 03141000 AVTCWTS1 EQU IEDQAVTD+926 03142000 AVTCWCLD EQU AVTCWFL2 03143000 AVTCWRAP EQU AVTCWFL2 03144000 @NM00064 EQU AVTCWFL2 03145000 @NM00063 EQU AVTCWFL2 03146000 @NM00062 EQU AVTCWFL2 03147000 @NM00061 EQU AVTCWFL2 03148000 @NM00060 EQU AVTCWFL2 03149000 AVTCWACT EQU AVTCWFL2 03150000 @NM00059 EQU AVTCWFL1 03151000 @NM00058 EQU AVTCWFL1 03152000 @NM00057 EQU AVTCWFL1 03153000 @NM00056 EQU AVTCWFL1 03154000 @NM00055 EQU AVTCWFL1 03155000 @NM00054 EQU AVTCWFL1 03156000 @NM00053 EQU AVTCWFL1 03157000 AVTCOMWN EQU AVTCWFL1 03158000 AVTCWEC1 EQU IEDQAVTD+920 03159000 AVTCWPM1 EQU IEDQAVTD+916 03160000 AVTCAREA EQU IEDQAVTD+912 03161000 AVTFZERO EQU IEDQAVTD+908 03162000 AVTCADDR EQU IEDQAVTD+904 03163000 AVTCOREC EQU IEDQAVTD+900 03164000 @NM00052 EQU IEDQAVTD+892 03165000 AVTCPBCB EQU IEDQAVTD+888 03166000 @NM00051 EQU IEDQAVTD+880 03167000 AVTDSIOB EQU IEDQAVTD+876 03168000 @NM00050 EQU IEDQAVTD+868 03169000 AVTCPRMB EQU IEDQAVTD+864 03170000 @NM00049 EQU IEDQAVTD+856 03171000 AVTCLOSB EQU IEDQAVTD+852 03172000 @NM00048 EQU IEDQAVTD+844 03173000 AVTACTIB EQU IEDQAVTD+840 03174000 @NM00047 EQU IEDQAVTD+836 03175000 AVTOLTEB EQU IEDQAVTD+832 03176000 AVTOLTCH EQU AVTOLTQB+1 03177000 AVTOLTVT EQU AVTOLTQB 03178000 @NM00046 EQU AVTOPCQB+8 03179000 @NM00045 EQU AVTOPCEC+1 03180000 @NM00044 EQU AVTOPCCC 03181000 AVTOPCPO EQU AVTOPCCC 03182000 AVTOPCWA EQU AVTOPCCC 03183000 AVTOPCCH EQU AVTOPCOB+1 03184000 AVTOPCVT EQU AVTOPCOB 03185000 @NM00043 EQU AVTCKPQB+9 03186000 AVTCKPTS EQU AVTCKPQB+8 03187000 @NM00042 EQU AVTCKPEC+1 03188000 @NM00041 EQU AVTCKPCC 03189000 AVTCKPPO EQU AVTCKPCC 03190000 AVTCKPWA EQU AVTCKPCC 03191000 AVTCKPCH EQU AVTCKPTB+1 03192000 AVTCKPVT EQU AVTCKPTB 03193000 @NM00040 EQU IEDQAVTD+796 03194000 AVTBFRTB EQU IEDQAVTD+792 03195000 @NM00039 EQU IEDQAVTD+784 03196000 AVTBFREB EQU IEDQAVTD+780 03197000 AVTTIMQ EQU IEDQAVTD+776 03198000 @NM00038 EQU IEDQAVTD+772 03199000 AVTIMQPS EQU IEDQAVTD+768 03200000 AVTINOUT EQU IEDQAVTD+766 03201000 AVTREFTM EQU IEDQAVTD+764 03202000 @NM00037 EQU IEDQAVTD+752 03203000 AVTDELYB EQU IEDQAVTD+748 03204000 AVTOCQPT EQU IEDQAVTD+744 03205000 AVTTSOPT EQU IEDQAVTD+740 03206000 AVTSUPPT EQU IEDQAVTD+736 03207000 AVTCBQCB EQU IEDQAVTD+732 03208000 AVTMSGS EQU IEDQAVTD+729 03209000 @NM00036 EQU AVTSYSER 03210000 @NM00035 EQU AVTSYSER 03211000 @NM00034 EQU AVTSYSER 03212000 @NM00033 EQU AVTSYSER 03213000 @NM00032 EQU AVTSYSER 03214000 @NM00031 EQU AVTSYSER 03215000 AVTCMAXN EQU AVTSYSER 03216000 AVTCMINN EQU AVTSYSER 03217000 AVT2260L EQU IEDQAVTD+724 03218000 AVTABEPL EQU AVTADBUF 03219000 AVTHFF EQU AVTCLRHI+2 03220000 @NM00030 EQU AVTCLRHI 03221000 AVTDELAD EQU IEDQAVTD+704 03222000 AVTDELEM EQU IEDQAVTD+700 03223000 AVTBSX EQU AVTCKLNK 03224000 AVTOPETR EQU AVTHG01 03225000 @NM00029 EQU AVTCKBYT 03226000 AVTCKONQ EQU AVTCKBYT 03227000 @NM00028 EQU AVTCKBYT 03228000 @NM00027 EQU AVTCKBYT 03229000 @NM00026 EQU AVTCKBYT 03230000 @NM00025 EQU AVTCKBYT 03231000 @NM00024 EQU AVTCKBYT 03232000 @NM00023 EQU AVTCKBYT 03233000 AVTOPERT EQU IEDQAVTD+690 03234000 AVTOPXCL EQU IEDQAVTD+688 03235000 AVTOPERL EQU IEDQAVTD+687 03236000 @NM00022 EQU IEDQAVTD+686 03237000 AVTCKTIM EQU IEDQAVTD+684 03238000 AVTCKELV EQU IEDQAVTD+682 03239000 AVTCPRCD EQU IEDQAVTD+681 03240000 AVTWARMN EQU AVTCKELF 03241000 AVTCRTLN EQU AVTCKELF 03242000 AVTCPIPN EQU AVTCKELF 03243000 AVTCCLCN EQU AVTCKELF 03244000 AVTCINCN EQU AVTCKELF 03245000 @NM00021 EQU AVTCKELF 03246000 AVTCMCPN EQU AVTCKELF 03247000 AVTCRDYN EQU AVTCKELF 03248000 AVTCKQAD EQU IEDQAVTD+677 03249000 AVTSCBSZ EQU IEDQAVTD+676 03250000 @NM00020 EQU IEDQAVTD+672 03251000 AVTCKELE EQU IEDQAVTD+668 03252000 @NM00019 EQU AVTCKPEL+8 03253000 AVTCKRLK EQU AVTCKPEL+5 03254000 AVTCKRPR EQU AVTCKPEL+4 03255000 AVTCKRMQ EQU AVTCKRMV+1 03256000 AVTCKRKY EQU AVTCKRMV 03257000 AVTHK EQU IEDQAVTD+648 03258000 AVTHI EQU IEDQAVTD+644 03259000 AVTIOT EQU IEDQAVTD+640 03260000 AVTNX EQU IEDQAVTD+636 03261000 AVTTONE EQU IEDQAVTD+632 03262000 AVTA3TL EQU IEDQAVTD+628 03263000 AVTDMECB EQU IEDQAVTD+624 03264000 AVTABEND EQU IEDQAVTD+618 03265000 AVTPLCBN EQU IEDQAVTD+616 03266000 @NM00018 EQU AVTSAVTP+1 03267000 @NM00017 EQU AVTSAVTF 03268000 AVTSNA EQU AVTSAVTF 03269000 AVTONSNA EQU AVTSAVTF 03270000 AVTVTMCP EQU AVTSAVTF 03271000 @NM00016 EQU IEDQAVTD+608 03272000 AVTCMBSS EQU IEDQAVTD+604 03273000 AVTRCV EQU IEDQAVTD+600 03274000 AVTSEND EQU IEDQAVTD+596 03275000 AVTCSCH EQU IEDQAVTD+592 03276000 AVTQ1 EQU IEDQAVTD+588 03277000 AVTE7 EQU IEDQAVTD+584 03278000 AVTHB EQU IEDQAVTD+580 03279000 AVTR1 EQU IEDQAVTD+576 03280000 AVTBZ EQU IEDQAVTD+572 03281000 AVTEZ EQU IEDQAVTD+568 03282000 AVTEC EQU IEDQAVTD+564 03283000 AVTEW EQU IEDQAVTD+560 03284000 AVTNDIAL EQU AVTSCOPT 03285000 AVTN2741 EQU AVTSCOPT 03286000 AVTCONCO EQU AVTSCOPT 03287000 AVTCONC EQU AVTSCOPT 03288000 AVTCMBUF EQU AVTSCOPT 03289000 AVTAPDMP EQU AVTSCOPT 03290000 @NM00015 EQU AVTSCOPT 03291000 AVTHA EQU AVTDISP 03292000 AVTEA EQU IEDQAVTD+548 03293000 AVTAX EQU IEDQAVTD+544 03294000 AVTA3 EQU IEDQAVTD+540 03295000 AVTGD EQU IEDQAVTD+536 03296000 AVTAL EQU IEDQAVTD+532 03297000 AVTOLTST EQU AVTHG02 03298000 AVTE8 EQU IEDQAVTD+524 03299000 AVTUI EQU IEDQAVTD+520 03300000 AVTCOMPT EQU IEDQAVTD+516 03301000 AVTCRSRF EQU IEDQAVTD+512 03302000 @NM00014 EQU IEDQAVTD+508 03303000 AVTKA02 EQU IEDQAVTD+504 03304000 AVTOPTPT EQU IEDQAVTD+500 03305000 AVTPCBPT EQU IEDQAVTD+496 03306000 @NM00013 EQU AVTECB1 03307000 AVTCOMP EQU AVTECB1 03308000 @NM00012 EQU AVTECB1 03309000 AVTOPECA EQU IEDQAVTD+488 03310000 AVTOLECA EQU IEDQAVTD+484 03311000 AVTCKECA EQU IEDQAVTD+480 03312000 AVTCWECA EQU IEDQAVTD+476 03313000 AVTCWTCB EQU IEDQAVTD+472 03314000 AVTOLTCB EQU IEDQAVTD+468 03315000 AVTOCTCB EQU IEDQAVTD+464 03316000 AVTCKTCB EQU IEDQAVTD+460 03317000 AVTAS EQU IEDQAVTD+456 03318000 AVTNOLBF EQU IEDQAVTD+454 03319000 AVTNCKPR EQU IEDQAVTD+453 03320000 AVTCIB EQU IEDQAVTD+452 03321000 AVTSPLPT EQU IEDQAVTD+448 03322000 AVTMVBFR EQU IEDQAVTD+444 03323000 AVTSBTA EQU IEDQAVTD+440 03324000 AVTRARTN EQU IEDQAVTD+436 03325000 AVTBSCAN EQU IEDQAVTD+432 03326000 AVTRDYA EQU IEDQAVTD+428 03327000 AVTDISTR EQU IEDQAVTD+420 03328000 AVTPARM3 EQU IEDQAVTD+416 03329000 @NM00011 EQU AVTPKF 03330000 @NM00010 EQU AVTPKF 03331000 @NM00009 EQU AVTPKF 03332000 AVTFTCHF EQU AVTPKF 03333000 @NM00008 EQU AVTPKF 03334000 @NM00007 EQU AVTPKF 03335000 @NM00006 EQU AVTPKF 03336000 @NM00005 EQU AVTPKF 03337000 AVTPARM EQU IEDQAVTD+408 03338000 AVTEXS2A EQU IEDQAVTD+402 03339000 AVTEXA2S EQU IEDQAVTD+396 03340000 @NM00004 EQU AVTCKFLG 03341000 AVTCKHLT EQU AVTCKFLG 03342000 AVTCKREQ EQU AVTCKFLG 03343000 AVTCKENV EQU AVTCKFLG 03344000 AVTCKNAC EQU AVTCKFLG 03345000 @NM00002 EQU IEDQAVTD+384 03346000 AVTREADD EQU IEDQAVTD+380 03347000 AVTREADY EQU IEDQAVTD+376 03348000 AVTRACE EQU IEDQAVTD+372 03349000 AVTPASWD EQU IEDQAVTD+360 03350000 AVTCTLCH EQU IEDQAVTD+352 03351000 AVTDOUBL EQU IEDQAVTD+344 03352000 AVTDOUBX EQU IEDQAVTD+336 03353000 AVTDPARM EQU IEDQAVTD+332 03354000 AVTCSTCS EQU IEDQAVTD+328 03355000 AVTDLQ EQU AVTSAVEX+32 03356000 @NM00001 EQU AVTSAVEX 03357000 AVTSAVE4 EQU IEDQAVTD+216 03358000 AVTSAVE3 EQU IEDQAVTD+144 03359000 AVTSAVE2 EQU IEDQAVTD+72 03360000 AVTSAVE1 EQU IEDQAVTD 03361000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03362000 @RC00524 EQU CE0001@ 03363000 @RC00580 EQU CE0001@ 03364000 @RC00588 EQU CE0001@ 03365000 @RC00634 EQU CE0001@ 03366000 @RC00638 EQU CE0001@ 03367000 @RC00661 EQU CE0001@ 03368000 @RT00514 EQU @RC00513 03369000 @PB00002 EQU @EL00001 03370000 @ENDDATA EQU * 03371000 END IEDQNU,(C'PLS2124',0701,77109) 03372000