TITLE 'IGCFC10D, INITIAL DEACTIVATE PROCESSOR *00001000 ' 00002000 IGCFC10D CSECT , 01S0001 00003000 @PROLOG BALR @12,0 01S0001 00004000 @PSTART DS 0H 01S0001 00005000 USING @PSTART,@12 01S0001 00006000 * /* 00007000 IGCFC10D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00008000 * ROPCAVT=RPARM; /* SET THE BASE POINTER FOR THE 00009000 * OPERATOR CONTROL ADDRESS 02S0368 00010000 * VECTOR TABLE */ 00011000 LR ROPCAVT,RPARM 02S0368 00012000 * RDATA=OPCWORK; /* SET THE BASE REGISTER TO BE 00013000 * USED FOR ADDRESSING AUTOMATIC 00014000 * DATA WITH THE POINTER TO THE 00015000 * OPERATOR CONTROL RESIDENT WORK 00016000 * AREA */ 00017000 L RDATA,OPCWORK(,ROPCAVT) 02S0369 00018000 * GEN REFS(REG10) NOSETS; 02S0370 00019000 * /* 00020000 USING @DATD,RDATA INFORM THE ASSEMBLER OF THE 00021000 * BASE REGISTER TO BE USED FOR 00022000 * ADDRESSING AUTOMATIC DATA 00023000 * RSAVE=ADDR(OPCSAVE); /* SET THE SAVE AREA POINTER 00024000 * REGISTER WITH THE POINTER TO 00025000 * THE OPERATOR CONTROL SAVE AREA*/ 00026000 LA RSAVE,OPCSAVE(,ROPCAVT) 02S0371 00027000 * 02S0372 00028000 * /*****************************************************************/ 00029000 * /* */ 00030000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00031000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00032000 * /* */ 00033000 * /*****************************************************************/ 00034000 * 02S0372 00035000 * 03S0372 00036000 * /*****************************************************************/ 00037000 * /* */ 00038000 * /* PROCESS.INITIAL: THIS SEGMENT DOES THE INITIAL PROCESSING. */ 00039000 * /* */ 00040000 * /*****************************************************************/ 00041000 * 03S0372 00042000 * DO; 03S0372 00043000 * RAVT=OPCAVTPT; /* SET THE BASE POINTER FOR THE 00044000 * TCAM ADDRESS VECTOR TABLE */ 00045000 L RAVT,OPCAVTPT(,ROPCAVT) 03S0373 00046000 * ROPCE=OPCCOPCE; /* SET THE BASE POINTER FOR THE 00047000 * OPERATOR CONTROL ELEMENT */ 00048000 L ROPCE,OPCCOPCE(,ROPCAVT) 03S0374 00049000 * WORKSP=''B; /* INITIALIZE FLAGS AND SWITCHES 00050000 * TO 0 */ 00051000 XC WORKSP(10,RDATA),WORKSP(RDATA) 03S0375 00052000 * END; 03S0376 00053000 * IF OCWTGSAV^=0 THEN /* IF IS RETURNED OPCE FROM 02S0377 00054000 * ATTACH */ 00055000 SLR @11,@11 02S0377 00056000 LH @09,OCWTGSAV(,ROPCE) 02S0377 00057000 N @09,@CF01560 02S0377 00058000 CR @11,@09 02S0377 00059000 BE @RF00377 02S0377 00060000 * DO; 02S0378 00061000 * OCWTG=OCWTGSAV; /* RESET OCWTG */ 00062000 MVC OCWTG(2,ROPCE),OCWTGSAV(ROPCE) 02S0379 00063000 * OCWTGSAV=0; /* AND CLEAR WTGSAV */ 00064000 STH @11,OCWTGSAV(,ROPCE) 02S0380 00065000 * END; 02S0381 00066000 * ELSE 02S0382 00067000 * ; 02S0382 00068000 @RF00377 DS 0H 02S0383 00069000 * RPARM=OCTRMTBL; /* SET FOR TTE ADDR ROUTINE */ 00070000 LH RPARM,OCTRMTBL(,ROPCE) 02S0383 00071000 N RPARM,@CF01560 02S0383 00072000 * CALL IEDQTNT; /* GET TTE ADDR */ 00073000 L @15,AVTRNMPT(,RAVT) 02S0384 00074000 BALR @14,@15 02S0384 00075000 * RTRM=RPARM; /* SET TTE BASE */ 00076000 LR RTRM,RPARM 02S0385 00077000 * IF OCFORCE=ON THEN /* IF IS FORCE REQUEST */ 00078000 LR @11,ROPCE 02S0386 00079000 AL @11,@CF01561 02S0386 00080000 TM OCFORCE-2(@11),B'00000010' 02S0386 00081000 BNO @RF00386 02S0386 00082000 * DO; /* PERFORM FORCE PROCESSING */ 00083000 * 03S0388 00084000 * /*************************************************************/ 00085000 * /* */ 00086000 * /* PROCESS.FORCE: THIS SEGMENT PERFORMS THE PROCESSING FOR */ 00087000 * /* HUNG COMMANDS. @YM07636*/ 00088000 * /* */ 00089000 * /*************************************************************/ 00090000 * 03S0388 00091000 * IF TRMINPG=ON THEN /* IF CMND AFFECTING RESOURCE 00092000 * @YM07636*/ 00093000 LR @11,RTRM 03S0388 00094000 SL @11,@CF01557 03S0388 00095000 TM TRMINPG(@11),B'00100000' 03S0388 00096000 BNO @RF00388 03S0388 00097000 * IF TRMPCONT=TRMCAPND&TRMTYPE=TRMPUNT THEN/* IF PU IS IN THE 00098000 * 'CONTACT @YM07398*/ 00099000 TM TRMPCONT(@11),B'00000010' 03S0389 00100000 BNO @RF00389 03S0389 00101000 TM TRMPCONT(@11),B'00000101' 03S0389 00102000 BNZ @RF00389 03S0389 00103000 CLI TRMTYPE(@11),X'18' 03S0389 00104000 BNE @RF00389 03S0389 00105000 * DO; /* BUT NOT CONTACTED' STATE THEN 00106000 * DO DISCONTACT */ 00107000 * OCSWITCH=OCDISCON; /* SET TO DISCONTACT REQ */ 00108000 MVI OCSWITCH(ROPCE),X'F0' 03S0391 00109000 * OCPRIFLG=OPRA0; /* SET TO GO TO SSCP */ 00110000 MVI OCPRIFLG(ROPCE),X'01' 03S0392 00111000 * OCELMPRI=PRIHIFLG; /* SET SSCP PRIORITY */ 00112000 MVI OCELMPRI(ROPCE),X'E9' 03S0393 00113000 * OCACTREQ=ON; /* SET ACT/DEACT FLAG */ 00114000 OI OCACTREQ(ROPCE),B'00001000' 03S0394 00115000 * OPCMODID=SSCPMOD; /* SET XCTL TO IGCA010D */ 00116000 MVC OPCMODID(2,ROPCAVT),@CC01507 03S0395 00117000 * OUTFLAG=ON; /* SET ON OUT FLAG */ 00118000 OI OUTFLAG(RDATA),B'10000000' 03S0396 00119000 * END; 03S0397 00120000 * ELSE /* @YM07636*/ 00121000 * DO; /* ELSE GO TO CLEANUP @YM07636*/ 00122000 B @RC00389 03S0398 00123000 @RF00389 DS 0H 03S0399 00124000 * OUTFLAG=ON; /* SET TO GET OUT @YM07398*/ 00125000 OI OUTFLAG(RDATA),B'10000000' 03S0399 00126000 * OPCMODID=CLNUPMOD; /* SET TO CLEANUP'S ID @YM07398*/ 00127000 MVC OPCMODID(2,ROPCAVT),@CC01515 03S0400 00128000 * OCELMPRI=PRIFRCDC; /* SET PRIORITY FOR CLEANUP 03S0401 00129000 * @YM07398*/ 00130000 MVI OCELMPRI(ROPCE),X'C4' 03S0401 00131000 * END; /* @YM07398*/ 00132000 * ELSE /* @YM07636*/ 00133000 * DO; /* SET UP NOT VALID MSG */ 00134000 B @RC00388 03S0403 00135000 @RF00388 DS 0H 03S0404 00136000 * OCPARM=INVALMSG; /* SET OCPARM=MSG 540 */ 00137000 LA @11,540 03S0404 00138000 STH @11,OCPARM(,ROPCE) 03S0404 00139000 * REG00=INVALMSG; /* SET REG0 SAME */ 00140000 LR REG00,@11 03S0405 00141000 * OPCMODID=MSGMOD1; /* SET TO XCTL TO IGC0H10D */ 00142000 MVC OPCMODID(2,ROPCAVT),@CC01513 03S0406 00143000 * END; 03S0407 00144000 * END; 02S0408 00145000 * ELSE 02S0409 00146000 * DO; /* ELSE PERFORM NONFORCE 02S0409 00147000 * PROCESSING */ 00148000 B @RC00386 02S0409 00149000 @RF00386 DS 0H 02S0410 00150000 * 03S0410 00151000 * /*************************************************************/ 00152000 * /* */ 00153000 * /* PROCESS.NONFORCE: THIS SEGMENT PROCESSES NON-FORCE */ 00154000 * /* DEACTIVATE COMMANDS */ 00155000 * /* */ 00156000 * /*************************************************************/ 00157000 * 03S0410 00158000 * IF TRMRSACT=OFF&TRMINPG=OFF THEN/* IF RESOURCE IS INACTIVE */ 00159000 LR @11,RTRM 03S0410 00160000 AL @11,@CF01564 03S0410 00161000 TM TRMRSACT-2(@11),B'10100000' 03S0410 00162000 BNZ @RF00410 03S0410 00163000 * IF OCTOTE=OFF THEN /* AND NOT TOTE CMND */ 00164000 TM OCTOTE(ROPCE),B'01000000' 03S0411 00165000 BNZ @RF00411 03S0411 00166000 * IF OCIDLE=ON THEN /* IF DEACT IDLE, IS INVALID */ 00167000 LR @11,ROPCE 03S0412 00168000 AL @11,@CF01561 03S0412 00169000 TM OCIDLE-2(@11),B'00000001' 03S0412 00170000 BNO @RF00412 03S0412 00171000 * DO; 03S0413 00172000 * OCPARM=INVALIDL; /* SET INVALID IDLE MSG NO */ 00173000 LA @11,513 03S0414 00174000 STH @11,OCPARM(,ROPCE) 03S0414 00175000 * REG00=INVALIDL; /* ALSO IN REG0 */ 00176000 LR REG00,@11 03S0415 00177000 * OPCMODID=MSGMOD1; /* SET XCTL TO IGC0H10D */ 00178000 MVC OPCMODID(2,ROPCAVT),@CC01513 03S0416 00179000 * END; 03S0417 00180000 * ELSE /* IF NOT IDLE THEN */ 00181000 * DO; 03S0418 00182000 B @RC00412 03S0418 00183000 @RF00412 DS 0H 03S0419 00184000 * TRMREMB=OFF; /* SET OFF REMEMBER BIT */ 00185000 LR @06,RTRM 03S0419 00186000 AL @06,@CF01564 03S0419 00187000 LA @05,TRMREMB-2(,@06) 03S0419 00188000 LR @07,@05 03S0419 00189000 LA @11,3 03S0419 00190000 NR @07,@11 03S0419 00191000 LCR @07,@07 03S0419 00192000 ALR @05,@07 03S0419 00193000 L @11,0(,@05) 03S0419 00194000 @GL00002 LR @09,@11 03S0419 00195000 N @09,@CB01565+3(@07) 03S0419 00196000 CS @11,@09,0(@05) 03S0419 00197000 BNE @GL00002 03S0419 00198000 * CKPTFLAG=ON; /* SET TO BE CHECKPOINTED */ 00199000 OI CKPTFLAG(RDATA),B'00001000' 03S0420 00200000 * OCPARM=LOGDACT; /* SET LOGICAL DEACT MSG */ 00201000 LA @11,539 03S0421 00202000 STH @11,OCPARM(,ROPCE) 03S0421 00203000 * REG00=LOGDACT; /* ALSO IN REG0 */ 00204000 LR REG00,@11 03S0422 00205000 * OPCMODID=MSGMOD1; /* SET XCTL TO IGC0H10D */ 00206000 MVC OPCMODID(2,ROPCAVT),@CC01513 03S0423 00207000 * END; 03S0424 00208000 * ELSE /* ELSE IS TOTE REQUEST AND IF 00209000 * FOR */ 00210000 * IF TRMTYPE=TRMLNCP|TRMTYPE=TRMSDLC THEN/* LINE OR NCP */ 00211000 B @RC00411 03S0425 00212000 @RF00411 LR @11,RTRM 03S0425 00213000 SL @11,@CF01557 03S0425 00214000 CLI TRMTYPE(@11),X'0F' 03S0425 00215000 BE @RT00425 03S0425 00216000 CLI TRMTYPE(@11),X'21' 03S0425 00217000 BNE @RF00425 03S0425 00218000 @RT00425 DS 0H 03S0426 00219000 * DO; /* @YM05729*/ 00220000 * OCPARM=LOGDACT; /* SET LOGICAL DEACTIVATE MSG. 00221000 * NO. @YM05729*/ 00222000 MVC OCPARM(2,ROPCE),@CH01521 03S0427 00223000 * TRMSTOTE=ON; /* THEN TURN ON TOTE FLAG */ 00224000 LR @11,RTRM 03S0428 00225000 AL @11,@CF01569 03S0428 00226000 OI TRMSTOTE-3(@11),B'00000001' 03S0428 00227000 * END; /* @YM05729*/ 00228000 * ELSE 03S0430 00229000 * ; 03S0430 00230000 @RF00425 DS 0H 03S0431 00231000 * ELSE 03S0431 00232000 * CALL PROCDACT; /* ELSE PROCESS DEACT COMMAND */ 00233000 B @RC00410 03S0431 00234000 @RF00410 BAL @14,PROCDACT 03S0431 00235000 * END; 02S0432 00236000 @RC00410 DS 0H 02S0433 00237000 * IF OUTFLAG=OFF THEN /* PERFORM EXIT PROCESSING IF 00238000 * OUTFLAG OFF */ 00239000 @RC00386 TM OUTFLAG(RDATA),B'10000000' 02S0433 00240000 BNZ @RF00433 02S0433 00241000 * IF OCPARM=LOGDACT&OCWTG=CLNOCMOD&TRMTYPE=TRMLNCP THEN/* 02S0434 00242000 * @YM08123 00243000 * IF ALREADY INACT & CLEANUP REG 00244000 * & LNCP THEN @YM08123*/ 00245000 CLC OCPARM(2,ROPCE),@CH01521 02S0434 00246000 BNE @RF00434 02S0434 00247000 CLC OCWTG(2,ROPCE),@CC01517 02S0434 00248000 BNE @RF00434 02S0434 00249000 LR @11,RTRM 02S0434 00250000 AL @11,@CF00870 02S0434 00251000 CLI TRMTYPE-11(@11),X'0F' 02S0434 00252000 BNE @RF00434 02S0434 00253000 * DO; /* BUILD CLEANUP REQUEST AND POST 00254000 * TO RESIDENT CLEANUP @YM07825*/ 00255000 * REG00=1; /* INDICATE TURN ON IN-PROGRESS 00256000 * BITS @YM07825*/ 00257000 LA REG00,1 02S0436 00258000 * RPARM=ROPCE; /* POINT TO CURRENT OPCE @YM07825*/ 00259000 LR RPARM,ROPCE 02S0437 00260000 * CALL PROGRTNE; /* CALL IN-PROGRESS ROUTINE 02S0438 00261000 * @YM07825*/ 00262000 L @15,OPCPGCK(,ROPCAVT) 02S0438 00263000 BALR @14,@15 02S0438 00264000 * RPARM=1; /* SET NUMBER OF BUFFERS NEEDED 00265000 * @YM07825*/ 00266000 LA RPARM,1 02S0439 00267000 * CALL ALLOCBUF; /* GET BUFFER TO BUILD REQ UNIT 00268000 * TO CLEANUP @YM07825*/ 00269000 L @15,OPCGETBF(,ROPCAVT) 02S0440 00270000 BALR @14,@15 02S0440 00271000 * RPARM->IEDCUREQ=''B; /* CLEAR REQUEST UNIT @YM07825*/ 00272000 XC IEDCUREQ(44,RPARM),IEDCUREQ(RPARM) 02S0441 00273000 * RPARM->CURTTCIN=OCTRMTBL; /* SET CURRENT TTCIN @YM07825*/ 00274000 LH @11,OCTRMTBL(,ROPCE) 02S0442 00275000 N @11,@CF01560 02S0442 00276000 STH @11,CURTTCIN(,RPARM) 02S0442 00277000 * RPARM->CUROPCE=ROPCE; /* SET CURRENT OPCE POINTER 02S0443 00278000 * @YM07825*/ 00279000 ST ROPCE,CUROPCE(,RPARM) 02S0443 00280000 * ROPCE=RPARM; /* SET ADDRESSABILITY TO CU 02S0444 00281000 * REQUEST ELEM @YM07825*/ 00282000 LR ROPCE,RPARM 02S0444 00283000 * CURTRM=RTRM; /* COPY TTE ADDR INTO REQ ELEM 00284000 * @YM07825*/ 00285000 ST RTRM,CURTRM(,ROPCE) 02S0445 00286000 * CURQCB=SAVTCLUP; /* SET QCB ADDR OF POST @YM07825*/ 00287000 L @11,AVTSAVTP(,RAVT) 02S0446 00288000 MVC CURQCB(3,ROPCE),SAVTCLUP+1(@11) 02S0446 00289000 * CURPRI=PRICULCB; /* SET POST PRIORITY @YM07825*/ 00290000 MVI CURPRI(ROPCE),X'C0' 02S0447 00291000 * CURLINK=PRUINTIC; /* SET INVALID TIC IN LINK FIELD 00292000 * @YM07825*/ 00293000 MVC CURLINK(4,ROPCE),@CF01210 02S0448 00294000 * CURSWCH=CURCUREQ; /* SET SWITCH VALUE INDICATING 00295000 * CLEANUP @YM07825*/ 00296000 MVI CURSWCH(ROPCE),X'39' 02S0449 00297000 * OPCAQWD1=ROPCE; /* ELEMT ADDR IN FIRST WORD OF 00298000 * AQCTL PARM @YM07825*/ 00299000 ST ROPCE,OPCAQWD1(,ROPCAVT) 02S0450 00300000 * OPCAQWD2=ROPCE; /* SET ALSO IN SECOND WORD OF 00301000 * LIST @YM07825*/ 00302000 ST ROPCE,OPCAQWD2(,ROPCAVT) 02S0451 00303000 * OPCAQREQ=POSTCODE; /* SET CODE INDICATING SNGLE ELMT 00304000 * POST @YM07825*/ 00305000 MVI OPCAQREQ(ROPCAVT),X'0C' 02S0452 00306000 * OPCAQRQ2=POSTEOL; /* SET END OF PARM LIST INDICATOR 00307000 * @YM07825*/ 00308000 MVI OPCAQRQ2(ROPCAVT),X'80' 02S0453 00309000 * RPARM=ADDR(OPCAQCTL); /* POINT TO AQCTL PARM LIST 02S0454 00310000 * @YM07825*/ 00311000 LA RPARM,OPCAQCTL(,ROPCAVT) 02S0454 00312000 * SVC(102); /* POST ELEMENT TO RESIDENT 02S0455 00313000 * CLEANUP @YM07825*/ 00314000 SVC 102 02S0455 00315000 * OPCMODID=CNTLMOD; /* SET TO XCTL TO OP CTL CONTROL 00316000 * MODULE @YM07825*/ 00317000 MVC OPCMODID(2,ROPCAVT),@CC01509 02S0456 00318000 * END; /* END BUILD CLEANUP ELEMENT 00319000 * @YM07825*/ 00320000 * ELSE /* ELSE NORMAL EXIT PROCESSING 00321000 * @YM07825*/ 00322000 * DO; 02S0458 00323000 B @RC00434 02S0458 00324000 @RF00434 DS 0H 02S0459 00325000 * 03S0459 00326000 * /***********************************************************/ 00327000 * /* */ 00328000 * /* PROCESS.EXITCODE: THIS SEGMENT SETS UP TO EITHER RETURN */ 00329000 * /* VIA OCWTG, VIA CHECKPOINT AND MSG MODULE, OR VIA A MSG */ 00330000 * /* MODULE */ 00331000 * /* */ 00332000 * /***********************************************************/ 00333000 * 03S0459 00334000 * REG00=OCPARM; /* SET MSG NO IN REG00 */ 00335000 LH REG00,OCPARM(,ROPCE) 03S0459 00336000 * IF OCWTG=0 THEN /* IF NOT INTERNAL CALL */ 00337000 LH @11,OCWTG(,ROPCE) 03S0460 00338000 N @11,@CF01560 03S0460 00339000 LTR @11,@11 03S0460 00340000 BNZ @RF00460 03S0460 00341000 * IF OCTOTE=OFF THEN /* AND NOT TOTE REQUEST */ 00342000 TM OCTOTE(ROPCE),B'01000000' 03S0461 00343000 BNZ @RF00461 03S0461 00344000 * IF CKPTFLAG=ON THEN /* AND IS TO BE CHECKPOINTED */ 00345000 TM CKPTFLAG(RDATA),B'00001000' 03S0462 00346000 BNO @RF00462 03S0462 00347000 * DO; /* THEN */ 00348000 * OCWTG=OPCMODID; /* SET MSG MOD IN OCWTG */ 00349000 MVC OCWTG(2,ROPCE),OPCMODID(ROPCAVT) 03S0464 00350000 * OPCMODID=CKPTMOD; /* SET XCTL TO CKPT */ 00351000 MVC OPCMODID(2,ROPCAVT),@CC01523 03S0465 00352000 * END; 03S0466 00353000 * ELSE 03S0467 00354000 * ; 03S0467 00355000 @RF00462 DS 0H 03S0468 00356000 * ELSE /* ELSE IF TOTE REQUEST */ 00357000 * DO; /* THEN */ 00358000 B @RC00461 03S0468 00359000 @RF00461 DS 0H 03S0469 00360000 * REG00=0; /* SET GOOD COMPLETION CODE */ 00361000 SLR REG00,REG00 03S0469 00362000 * OPCMODID=CNTLMOD2; /* SET XCTL TO 07 */ 00363000 MVC OPCMODID(2,ROPCAVT),@CC01525 03S0470 00364000 * END; 03S0471 00365000 * ELSE /* ELSE IF INTERNAL CALL */ 00366000 * DO; /* THEN */ 00367000 B @RC00460 03S0472 00368000 @RF00460 DS 0H 03S0473 00369000 * OPCMODID=OCWTG; /* SET RETURN TO INVOKER */ 00370000 MVC OPCMODID(2,ROPCAVT),OCWTG(ROPCE) 03S0473 00371000 * OCWTG=0; /* SET WTG=0 */ 00372000 SLR @11,@11 03S0474 00373000 STH @11,OCWTG(,ROPCE) 03S0474 00374000 * END; 03S0475 00375000 * END; 02S0476 00376000 * ELSE 02S0477 00377000 * ; 02S0477 00378000 @RF00433 DS 0H 02S0478 00379000 * 02S0478 00380000 * /*****************************************************************/ 00381000 * /* */ 00382000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00383000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. THE XCTL SYSTEM */ 00384000 * /* MACRO INSTRUCTION IS USED BY THIS SEGMENT TO TRANSFER CONTROL */ 00385000 * /* TO THE NEXT MODULE THAT IS TO BE EXECUTED. */ 00386000 * /* */ 00387000 * /*****************************************************************/ 00388000 * 02S0478 00389000 * IF OPCMODID=CNTLMOD THEN /* SET REG0 IF TO GO TO IGC0010D */ 00390000 @RC00433 CLC OPCMODID(2,ROPCAVT),@CC01509 02S0478 00391000 BNE @RF00478 02S0478 00392000 * REG00=0; 02S0479 00393000 SLR REG00,REG00 02S0479 00394000 * ELSE 02S0480 00395000 * ; 02S0480 00396000 @RF00478 DS 0H 02S0481 00397000 * RFY 02S0481 00398000 * REG01 RSTD; /* RESTRICT THE ARGUMENT REGISTER 00399000 * TO BE USED TO CONTAIN THE 00400000 * POINTER TO THE OPERATOR 02S0481 00401000 * CONTROL ADDRESS VECTOR TABLE 00402000 * FROM USE BY THE COMPILER */ 00403000 * REG01=ROPCAVT; /* SET THE ARGUMENT REGISTER IN 00404000 * PREPARATION TO TRANSFERRING 00405000 * CONTROL TO THE NEXT MODULE */ 00406000 LR REG01,ROPCAVT 02S0482 00407000 * GEN EXIT REFS(OPCXCTL,ROPCAVT) NOSEQFLOW SETS(REG15); 02S0483 00408000 * /* 00409000 XCTL SF=(E,OPCXCTL(ROPCAVT)) TRANSFER CONTROL MACRO 00410000 * 02S0484 00411000 * /*****************************************************************/ 00412000 * /* */ 00413000 * /* PROCDACT: THIS ROUTINE IS CALLED TO START THE PROCESSING OF */ 00414000 * /* DEACT COMMANDS. IT CALLS THE IN-PROG ROUTINE TO SYNCH ON THE */ 00415000 * /* RESOURCE. */ 00416000 * /* */ 00417000 * /*****************************************************************/ 00418000 * 02S0484 00419000 *PROCDACT: 02S0484 00420000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0484 00421000 PROCDACT DS 0H 02S0485 00422000 * PROCDSAV=REG14; /* SAVE THE RETURN ADDR */ 00423000 ST REG14,PROCDSAV(,RDATA) 02S0485 00424000 * REG00=1; /* SET PARM=TURN ON IN-PROG */ 00425000 LA REG00,1 02S0486 00426000 * OCWTGSAV=OCWTG; /* SAVE WTG */ 00427000 MVC OCWTGSAV(2,ROPCE),OCWTG(ROPCE) 02S0487 00428000 * OCWTG=THISMOD; /* SET NEW WTG=THIS MODULE */ 00429000 MVC OCWTG(2,ROPCE),@CC01529 02S0488 00430000 * RPARM=ROPCE; /* POINT TO OPCE */ 00431000 LR RPARM,ROPCE 02S0489 00432000 * CALL PROGRTNE; /* CALL THE IN-PROGRESS ROUTINE */ 00433000 L @15,OPCPGCK(,ROPCAVT) 02S0490 00434000 BALR @14,@15 02S0490 00435000 * IF REG00^=ATTACHED THEN /* IF NOT ATTACHED */ 00436000 C REG00,@CF00132 02S0491 00437000 BE @RF00491 02S0491 00438000 * DO; /* THEN */ 00439000 * OCWTG=OCWTGSAV; /* RESET WTG */ 00440000 MVC OCWTG(2,ROPCE),OCWTGSAV(ROPCE) 02S0493 00441000 * OCWTGSAV=0; /* RESET WTGSAV */ 00442000 SLR @11,@11 02S0494 00443000 STH @11,OCWTGSAV(,ROPCE) 02S0494 00444000 * IF REG00=REJECTED THEN /* IF AFFECTS PRI OPER TERMINAL */ 00445000 C REG00,@CF00067 02S0495 00446000 BNE @RF00495 02S0495 00447000 * DO; /* THEN */ 00448000 * OCPARM=OPERTERM; /* SET AFFECTS PRI OPER TERM MSG */ 00449000 LA @11,517 02S0497 00450000 STH @11,OCPARM(,ROPCE) 02S0497 00451000 * REG00=OPERTERM; /* ALSO REG00 */ 00452000 LR REG00,@11 02S0498 00453000 * OPCMODID=MSGMOD1; /* SET XCTL TO 0H */ 00454000 MVC OPCMODID(2,ROPCAVT),@CC01513 02S0499 00455000 * FINIFLAG=ON; /* SET ON FINI FLAG */ 00456000 OI FINIFLAG(RDATA),B'01000000' 02S0500 00457000 * END; 02S0501 00458000 * ELSE /* ELSE CHECK FOR TOTE OWNED 00459000 * RESOURCES */ 00460000 * DO; 02S0502 00461000 B @RC00495 02S0502 00462000 @RF00495 DS 0H 02S0503 00463000 * REG01=NEXTMOD; /* SET RETURN TO FP IF MUST 02S0503 00464000 * SUSPEND */ 00465000 L REG01,@CF01527 02S0503 00466000 * IF OCTOTE=OFF THEN /* IF NOT TOTE REQUEST @ZM47937*/ 00467000 TM OCTOTE(ROPCE),B'01000000' 02S0504 00468000 BNZ @RF00504 02S0504 00469000 * CALL TOTCHECK; /* AND GO CHECK */ 00470000 L @15,OPCTOTCK(,ROPCAVT) 02S0505 00471000 BALR @14,@15 02S0505 00472000 * ELSE 02S0506 00473000 * REG00=0; /* SET RETURN CODE FOR NO SUSPEND 00474000 * @ZM47937*/ 00475000 B @RC00504 02S0506 00476000 @RF00504 SLR REG00,REG00 02S0506 00477000 * IF REG00^=0 THEN /* IF MUST SUSPEND */ 00478000 @RC00504 LTR REG00,REG00 02S0507 00479000 BZ @RF00507 02S0507 00480000 * DO; /* THEN */ 00481000 * OPCMODID=CNTLMOD; /* SET EXIT TO IGC0010D */ 00482000 MVC OPCMODID(2,ROPCAVT),@CC01509 02S0509 00483000 * OUTFLAG=ON; /* SET FLAGS TO EXIT */ 00484000 * FINIFLAG=ON; 02S0511 00485000 OI OUTFLAG(RDATA),B'11000000' 02S0511 00486000 * END; 02S0512 00487000 * ELSE 02S0513 00488000 * ; 02S0513 00489000 @RF00507 DS 0H 02S0514 00490000 * END; 02S0514 00491000 * END; 02S0515 00492000 * ELSE /* ELSE IS ATTACHED AND WILL 00493000 * RETURN LATER */ 00494000 * DO; /* SO */ 00495000 B @RC00491 02S0516 00496000 @RF00491 DS 0H 02S0517 00497000 * OPCMODID=CNTLMOD; /* SET XCTL TO IGC0010D */ 00498000 MVC OPCMODID(2,ROPCAVT),@CC01509 02S0517 00499000 * OUTFLAG=ON; /* SET TO GET OUT */ 00500000 * FINIFLAG=ON; /* SET ON FINI FLAG */ 00501000 OI OUTFLAG(RDATA),B'11000000' 02S0519 00502000 * END; 02S0520 00503000 * IF FINIFLAG=OFF THEN /* IF FINI FLAG OFF */ 00504000 @RC00491 TM FINIFLAG(RDATA),B'01000000' 02S0521 00505000 BNZ @RF00521 02S0521 00506000 * DO; /* THEN */ 00507000 * 03S0523 00508000 * /*************************************************************/ 00509000 * /* */ 00510000 * /* PROCESS.NONFORCE.DEACT: THIS SEGMENT PERFORMS THE */ 00511000 * /* PROCESSING TO PASS CONTROL TO PASS CONTROL TO IGCFP10D TO */ 00512000 * /* DETERMINE THE NO OF UNITS NECESSARY TO DEACT THE LOWEST */ 00513000 * /* LEVEL ACTIVE RESOURCES, GET AS MANY AS NEEDED(POSSIBLY */ 00514000 * /* THRU REDRIVE) AND BUILD THE NECESSARY OPCES FOR DEACT OR */ 00515000 * /* FOR SESSION TERMINATION REQUESTS */ 00516000 * /* */ 00517000 * /*************************************************************/ 00518000 * 03S0523 00519000 * OPCMODID=NEXTMOD; /* SET XCTL TO IGCFP10D */ 00520000 MVC OPCMODID(2,ROPCAVT),@CC01527 03S0523 00521000 * OUTFLAG=ON; /* SET FLAG TO GET OUT */ 00522000 OI OUTFLAG(RDATA),B'10000000' 03S0524 00523000 * END; 02S0525 00524000 * ELSE 02S0526 00525000 * ; 02S0526 00526000 @RF00521 DS 0H 02S0527 00527000 * REG14=PROCDSAV; /* RESTORE REG14 */ 00528000 L REG14,PROCDSAV(,RDATA) 02S0527 00529000 * END PROCDACT; 02S0528 00530000 @EL00002 DS 0H 02S0528 00531000 @EF00002 DS 0H 02S0528 00532000 @ER00002 BR @14 02S0528 00533000 * END IGCFC10D 01S0529 00534000 * 01S0529 00535000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00536000 */*%INCLUDE SYSLIB (TAVTD ) */ 00537000 */*%INCLUDE SYSLIB (TCURD ) */ 00538000 */*%INCLUDE SYSLIB (TOPCED ) */ 00539000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00540000 */*%INCLUDE SYSLIB (TOPRED ) */ 00541000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00542000 */*%INCLUDE SYSLIB (TPRUD ) */ 00543000 */*%INCLUDE SYSLIB (TSIBD ) */ 00544000 */*%INCLUDE SYSLIB (TTRMD ) */ 00545000 */*%INCLUDE SYSUT5 (RFY ) */ 00546000 */*%INCLUDE SYSUT5 (DCL ) */ 00547000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00548000 */*%INCLUDE SYSUT5 (PROCESS ) */ 00549000 */*%INCLUDE SYSUT5 (INITIAL ) */ 00550000 */*%INCLUDE SYSUT5 (FORCE ) */ 00551000 */*%INCLUDE SYSUT5 (NONFORCE) */ 00552000 */*%INCLUDE SYSUT5 (EXITCODE) */ 00553000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 00554000 */*%INCLUDE SYSUT5 (PROCDACT) */ 00555000 */*%INCLUDE SYSUT5 (DEACT ) */ 00556000 * 01S0529 00557000 * ; 01S0529 00558000 @DATA DS 0H 00559000 @CH01521 DC H'539' 00560000 @DATD DSECT 00561000 DS 0F 00562000 IGCFC10D CSECT 00563000 DS 0F 00564000 @CF00132 DC F'2' 00565000 @CF00067 DC F'3' 00566000 @CF01557 DC F'14' 00567000 @CF01564 DC F'-12' 00568000 @CF01569 DC F'-11' 00569000 @CF01561 DC F'-6' 00570000 @CF00870 DC F'-3' 00571000 @CF01210 DC XL4'08000002' 00572000 @CF01560 DC XL4'0000FFFF' 00573000 @CF01527 DC XL2'0' 00574000 DC C'FP' 00575000 @DATD DSECT 00576000 DS 0D 00577000 @ENDDATD EQU * 00578000 IGCFC10D CSECT 00579000 NOPR ((@ENDDATD-@DATD)*16) 00580000 DS 0F 00581000 @SIZDATD DC AL1(0) 00582000 DC AL3(@ENDDATD-@DATD) 00583000 DS 0D 00584000 @CC01507 DC C'A0' 00585000 @CC01509 DC C'00' 00586000 @CC01513 DC C'0H' 00587000 @CC01515 DC C'C0' 00588000 @CC01517 DC C'C1' 00589000 @CC01523 DC C'06' 00590000 @CC01525 DC C'07' 00591000 @CC01527 DC C'FP' 00592000 @CC01529 DC C'FC' 00593000 @CB01565 DC B'111111111111111111111111101111111111111111111111111111C00594000 11' 00595000 DS CL1 00596000 ADPATCH DC XL104'0' 00597000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00598000 @01 EQU 01 00599000 @02 EQU 02 00600000 @03 EQU 03 00601000 @04 EQU 04 00602000 @05 EQU 05 00603000 @06 EQU 06 00604000 @07 EQU 07 00605000 @08 EQU 08 00606000 @09 EQU 09 00607000 @10 EQU 10 00608000 @11 EQU 11 00609000 @12 EQU 12 00610000 @13 EQU 13 00611000 @14 EQU 14 00612000 @15 EQU 15 00613000 RCUR EQU @03 00614000 ROPCE EQU @03 00615000 ROPCAVT EQU @02 00616000 IEDPRUQP EQU @06 00617000 RAVT EQU @04 00618000 RSIB EQU @05 00619000 RTRM EQU @08 00620000 REG00 EQU @00 00621000 RZERO EQU @00 00622000 REG01 EQU @01 00623000 RPARM EQU @01 00624000 REG10 EQU @10 00625000 RDATA EQU @10 00626000 RBASE EQU @12 00627000 RSAVE EQU @13 00628000 REG14 EQU @14 00629000 REG15 EQU @15 00630000 REG02 EQU @02 00631000 REG03 EQU @03 00632000 REG04 EQU @04 00633000 REG05 EQU @05 00634000 REG06 EQU @06 00635000 REG07 EQU @07 00636000 REG08 EQU @08 00637000 REG09 EQU @09 00638000 REG11 EQU @11 00639000 REG12 EQU @12 00640000 REG13 EQU @13 00641000 ROPRE EQU @03 00642000 IEDQAVTD EQU 0 00643000 AVTSAVEX EQU IEDQAVTD+288 00644000 @NM00003 EQU IEDQAVTD+388 00645000 AVTCKFLG EQU @NM00003 00646000 AVTBASE EQU IEDQAVTD+412 00647000 AVTPKF EQU AVTBASE 00648000 AVTRNMPT EQU IEDQAVTD+424 00649000 AVTOSECB EQU IEDQAVTD+492 00650000 AVTECB1 EQU AVTOSECB 00651000 AVTHG02 EQU IEDQAVTD+528 00652000 AVTDISP EQU IEDQAVTD+552 00653000 AVTHD EQU IEDQAVTD+556 00654000 AVTSCOPT EQU AVTHD 00655000 AVTSAVTP EQU IEDQAVTD+612 00656000 AVTSAVTF EQU AVTSAVTP 00657000 AVTCKPEL EQU IEDQAVTD+652 00658000 AVTCKRMV EQU AVTCKPEL 00659000 AVTCKELF EQU IEDQAVTD+680 00660000 AVTCKBYT EQU IEDQAVTD+691 00661000 AVTHG01 EQU IEDQAVTD+692 00662000 AVTCKLNK EQU IEDQAVTD+696 00663000 AVTCRELE EQU IEDQAVTD+708 00664000 AVTCCELE EQU AVTCRELE 00665000 AVTCLRHI EQU IEDQAVTD+716 00666000 AVTADBUF EQU IEDQAVTD+720 00667000 AVTSYSER EQU IEDQAVTD+728 00668000 AVTCKPQB EQU IEDQAVTD+804 00669000 AVTCKPTB EQU AVTCKPQB 00670000 AVTCKPEC EQU AVTCKPQB+4 00671000 AVTCKPCC EQU AVTCKPEC 00672000 AVTOPCQB EQU IEDQAVTD+816 00673000 AVTOPCOB EQU AVTOPCQB 00674000 AVTOPCEC EQU AVTOPCQB+4 00675000 AVTOPCCC EQU AVTOPCEC 00676000 AVTOLTQB EQU IEDQAVTD+828 00677000 AVTCWFL1 EQU IEDQAVTD+924 00678000 AVTCWFL2 EQU IEDQAVTD+925 00679000 AVTSUBT EQU IEDQAVTD+948 00680000 AVTIOTR EQU IEDQAVTD+949 00681000 AVTBIT1 EQU IEDQAVTD+1050 00682000 AVTBIT2 EQU IEDQAVTD+1051 00683000 AVTBIT3 EQU IEDQAVTD+1052 00684000 AVTBIT4 EQU IEDQAVTD+1136 00685000 @NM00085 EQU IEDQAVTD+1232 00686000 IEDQAPTR EQU 0 00687000 IEDNSVTD EQU 0 00688000 SAVTDIAG EQU IEDNSVTD 00689000 SAVTDIAF EQU SAVTDIAG 00690000 SAVTCLUP EQU IEDNSVTD+72 00691000 SAVTLUSQ EQU IEDNSVTD+88 00692000 SAVTTCPU EQU IEDNSVTD+238 00693000 SAVTZELM EQU IEDNSVTD+270 00694000 SAVTRDRV EQU IEDNSVTD+284 00695000 SAVTCKQB EQU IEDNSVTD+300 00696000 SAVTCKTB EQU SAVTCKQB 00697000 SAVTCKEC EQU SAVTCKQB+4 00698000 SAVTCKCC EQU SAVTCKEC 00699000 IEDCUREQ EQU 0 00700000 CURQCB EQU IEDCUREQ+1 00701000 CURPRI EQU IEDCUREQ+4 00702000 CURLINK EQU IEDCUREQ+8 00703000 CURTOTIN EQU IEDCUREQ+12 00704000 CURSWCH EQU CURTOTIN+1 00705000 CURFLG2 EQU IEDCUREQ+14 00706000 CURFLG3 EQU IEDCUREQ+15 00707000 CURTTCIN EQU IEDCUREQ+20 00708000 CUROPCE EQU IEDCUREQ+36 00709000 CURTRM EQU IEDCUREQ+40 00710000 IEDQOPCE EQU 0 00711000 OCELEM EQU IEDQOPCE+4 00712000 OCELMPRI EQU OCELEM 00713000 OCUNIT EQU IEDQOPCE+8 00714000 OCRUDEST EQU OCUNIT 00715000 OCCKPKEY EQU OCRUDEST 00716000 OCSCAN EQU OCCKPKEY 00717000 OCOPTCDE EQU IEDQOPCE+12 00718000 OCPRIFLG EQU OCOPTCDE 00719000 OCSWITCH EQU IEDQOPCE+13 00720000 OCFLAG EQU IEDQOPCE+14 00721000 OCTOTE EQU OCFLAG 00722000 @NM00110 EQU IEDQOPCE+16 00723000 OCDEST EQU @NM00110 00724000 OCREQVAL EQU OCDEST+1 00725000 OCTRMTBL EQU IEDQOPCE+20 00726000 OCLINENO EQU IEDQOPCE+22 00727000 OCTIOT EQU OCLINENO 00728000 OCTRUNIT EQU IEDQOPCE+24 00729000 OCRSID EQU OCTRUNIT 00730000 OCALSTAT EQU OCRSID 00731000 OCACTREQ EQU OCALSTAT 00732000 OCPARM EQU IEDQOPCE+28 00733000 OCWTG EQU IEDQOPCE+30 00734000 OCBACKUP EQU IEDQOPCE+32 00735000 OCMODNME EQU IEDQOPCE+40 00736000 OCIPLWA EQU OCMODNME 00737000 OCWTGSAV EQU OCIPLWA 00738000 OCCKDATA EQU IEDQOPCE+48 00739000 OCRSTGTM EQU OCCKDATA 00740000 IEDQOPCN EQU 0 00741000 OCLDNME EQU IEDQOPCN 00742000 OCLINTTE EQU OCLDNME 00743000 OCREQFLG EQU OCLINTTE+2 00744000 OCFORCE EQU OCREQFLG 00745000 OCIDLE EQU OCREQFLG 00746000 OCPREFLG EQU OCLINTTE+3 00747000 IEDQOPCD EQU 0 00748000 OPCAVTPT EQU IEDQOPCD+8 00749000 OPCCOPCE EQU IEDQOPCD+12 00750000 OPCPGCK EQU IEDQOPCD+40 00751000 OPCSAVE EQU IEDQOPCD+56 00752000 OPCWORK EQU IEDQOPCD+140 00753000 OPCAQCTL EQU IEDQOPCD+180 00754000 OPCXCTL EQU IEDQOPCD+204 00755000 OPCLDNME EQU IEDQOPCD+212 00756000 OPCMODID EQU OPCLDNME+3 00757000 OPCHORT EQU IEDQOPCD+256 00758000 OPCGETBF EQU IEDQOPCD+276 00759000 OPCSPEC EQU IEDQOPCD+300 00760000 OPCTOTCK EQU IEDQOPCD+360 00761000 OPCPWCOB EQU IEDQOPCD+368 00762000 OPCPWQCB EQU OPCPWCOB 00763000 OPCPWECB EQU OPCPWCOB+4 00764000 IEDOPRED EQU 0 00765000 OPRESAVE EQU IEDOPRED+8 00766000 OPREFLG3 EQU IEDOPRED+14 00767000 IEDPRUQD EQU 0 00768000 PRUTIC EQU IEDPRUQD+8 00769000 IEDPRUND EQU 0 00770000 PRURHTH EQU IEDPRUND 00771000 PRURH EQU PRURHTH 00772000 PRURHFG0 EQU PRURH 00773000 PRURHFG1 EQU PRURH+1 00774000 PRURHFG2 EQU PRURH+2 00775000 PRUTH EQU PRURHTH+3 00776000 PRUFIDN EQU PRUTH 00777000 IEDSIBD EQU 0 00778000 SIBSESSN EQU IEDSIBD+10 00779000 SIBPACIN EQU IEDSIBD+11 00780000 SIBSEQN EQU IEDSIBD+12 00781000 SIBSTAT1 EQU IEDSIBD+16 00782000 SIBSTAT2 EQU IEDSIBD+17 00783000 SIBBIND EQU IEDSIBD+20 00784000 SIBBIND1 EQU SIBBIND 00785000 SIBBIND2 EQU SIBBIND+1 00786000 SIBBIND3 EQU SIBBIND+2 00787000 SIBSTAT0 EQU IEDSIBD+23 00788000 IEDQTRM EQU 0 00789000 TRMSTATE EQU IEDQTRM 00790000 TRMLOG EQU TRMSTATE 00791000 TRMINSEQ EQU IEDQTRM+4 00792000 TLISTCNT EQU TRMINSEQ 00793000 TRMOUTSQ EQU IEDQTRM+6 00794000 TLISTEN EQU TRMOUTSQ 00795000 TRMDSORG EQU TLISTEN 00796000 TRMALTD EQU IEDQTRM+8 00797000 TRMDEVFL EQU IEDQTRM+10 00798000 TRMSTAT EQU IEDQTRM+12 00799000 IEDQTPTR EQU 0 00800000 IEDNTRM EQU 0 00801000 TRMBYTE4 EQU IEDNTRM 00802000 TRMBYTE3 EQU IEDNTRM+1 00803000 TRMBYTE2 EQU IEDNTRM+2 00804000 TRMRSACT EQU TRMBYTE2 00805000 TRMREMB EQU TRMBYTE2 00806000 TRMINPG EQU TRMBYTE2 00807000 TRMBYTE1 EQU IEDNTRM+3 00808000 TRMSCPRQ EQU TRMBYTE1 00809000 TRMSTOTE EQU TRMBYTE1 00810000 TRMBYTE0 EQU IEDNTRM+6 00811000 TRMSIBPT EQU IEDNTRM+7 00812000 TRMTYPE EQU IEDNTRM+11 00813000 ALLOCBUF EQU 0 00814000 IEDQTNT EQU 0 00815000 PROGRTNE EQU 0 00816000 TOTCHECK EQU 0 00817000 WORKSP EQU 0 00818000 PROCDSAV EQU WORKSP+4 00819000 FLAGS EQU WORKSP+8 00820000 OUTFLAG EQU FLAGS 00821000 FINIFLAG EQU FLAGS 00822000 CKPTFLAG EQU FLAGS 00823000 COHORTLK EQU 0 00824000 OCCKPKY1 EQU OCCKPKEY 00825000 OCCKPTYP EQU OCCKPKY1 00826000 OCICACTN EQU OCMODNME 00827000 OCICDADR EQU OCICACTN 00828000 OCICSW EQU OCICDADR+3 00829000 OPCAQWD EQU OPCAQCTL 00830000 OPCAQWD1 EQU OPCAQWD 00831000 OPCAQREQ EQU OPCAQWD1 00832000 OPCAQWD2 EQU OPCAQWD+4 00833000 OPCAQRQ2 EQU OPCAQWD2 00834000 OPCAQWD3 EQU OPCAQWD+8 00835000 TRMPRE1 EQU TRMBYTE4 00836000 TRMNCP1 EQU TRMBYTE4 00837000 TRMPRE EQU TRMBYTE3 00838000 TRMNCP EQU TRMBYTE3 00839000 TRMPU EQU TRMBYTE3 00840000 TRMPCONT EQU TRMPU 00841000 TRMLU EQU TRMBYTE3 00842000 TRMLINK EQU TRMBYTE3 00843000 OCCIB EQU OCREQVAL 00844000 TRMOPT EQU IEDQTRM+20 00845000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00846000 @NM00152 EQU TRMLINK 00847000 TRMLSTAT EQU TRMLINK 00848000 TRMLINT EQU TRMLINK 00849000 TRMEPMOD EQU TRMLINK 00850000 TRMLULOG EQU TRMLU 00851000 TRMINERR EQU TRMLU 00852000 TRMLUREQ EQU TRMLU 00853000 TRMSESRQ EQU TRMLU 00854000 TRMTDIFF EQU TRMLU 00855000 TRMLUTM EQU TRMLU 00856000 TRMLUIT EQU TRMLU 00857000 TRMAUTO EQU TRMLU 00858000 @NM00151 EQU TRMPU 00859000 TRMNCONT EQU TRMNCP 00860000 TRMQUCKN EQU TRMNCP 00861000 TRMSLOWN EQU TRMNCP 00862000 TRMSYGEN EQU TRMNCP 00863000 TRMNCPCL EQU TRMNCP 00864000 TRMIPLDM EQU TRMNCP 00865000 TRMINOUT EQU TRMPRE 00866000 TRMRDOUT EQU TRMPRE 00867000 TRMNLOUT EQU TRMPRE 00868000 TRMWROUT EQU TRMPRE 00869000 TRMASNXI EQU TRMPRE 00870000 TRMSTMM EQU TRMPRE 00871000 TRMCMODE EQU TRMPRE 00872000 TRMSTPND EQU TRMPRE 00873000 @NM00150 EQU TRMNCP1 00874000 TRMINOP EQU TRMNCP1 00875000 TRMLYNCH EQU TRMPRE1 00876000 TRMSPOUT EQU TRMPRE1 00877000 TRMERLCK EQU TRMPRE1 00878000 TRMQNPL EQU TRMPRE1 00879000 TRMSPACT EQU TRMPRE1 00880000 TRMOCNI EQU TRMPRE1 00881000 TRMSESSN EQU TRMPRE1 00882000 TRMCONT EQU TRMPRE1 00883000 OPCAQLST EQU OPCAQWD3+1 00884000 OPCAQRQ3 EQU OPCAQWD3 00885000 OPCAQSEC EQU OPCAQWD2+1 00886000 OPCAQFST EQU OPCAQWD1+1 00887000 OCICINAC EQU OCICSW 00888000 @NM00116 EQU OCICSW 00889000 OCICATST EQU OCICDADR+1 00890000 OCICTYPE EQU OCICDADR 00891000 @NM00115 EQU OCCKPKY1 00892000 OCCKPENV EQU OCCKPKY1 00893000 OCCKPRST EQU OCCKPTYP 00894000 OCCKPNCP EQU OCCKPTYP 00895000 OCCKPINC EQU OCCKPTYP 00896000 DONEFLAG EQU FLAGS 00897000 THRUFLAG EQU FLAGS 00898000 ERRFLAG EQU FLAGS 00899000 TTCINSAV EQU WORKSP 00900000 TRMSUBST EQU IEDNTRM+12 00901000 TRMRLMCT EQU IEDNTRM+10 00902000 TRMCOHTG EQU TRMSIBPT+1 00903000 TRMGPCNT EQU TRMSIBPT 00904000 TRMBUFRD EQU TRMBYTE0 00905000 TRMSNA EQU TRMBYTE0 00906000 TRMGP EQU TRMBYTE0 00907000 TRMDIAL EQU TRMBYTE0 00908000 @NM00149 EQU TRMBYTE0 00909000 TRMOUTPT EQU TRMBYTE0 00910000 TRMINPUT EQU TRMBYTE0 00911000 TRMUDEF EQU TRMBYTE0 00912000 TRMCOHRT EQU IEDNTRM+4 00913000 TRMCKPRN EQU TRMBYTE1 00914000 TRMTSATN EQU TRMBYTE1 00915000 TRMTRACE EQU TRMBYTE1 00916000 TRMSWBCK EQU TRMBYTE1 00917000 TRMAUTOC EQU TRMBYTE1 00918000 TRMINPTP EQU TRMBYTE1 00919000 TRMWTNEG EQU TRMSCPRQ 00920000 TRMWRBRK EQU TRMBYTE2 00921000 TRMNOSND EQU TRMBYTE2 00922000 TRMPREP EQU TRMBYTE2 00923000 TRMGPACT EQU TRMBYTE2 00924000 TRMANDL EQU TRMBYTE2 00925000 TRMCLOSN EQU TRMINPG 00926000 TRMOPTBL EQU IEDQTRM+18 00927000 TRMOPNO EQU IEDQTRM+17 00928000 TRMCHCIN EQU IEDQTRM+16 00929000 TRMSENSE EQU TRMSTAT+3 00930000 TRMTEMPR EQU TRMSTAT+2 00931000 TRMSIO EQU TRMSTAT 00932000 @NM00148 EQU TRMDEVFL+1 00933000 TRMTPIN EQU TRMDEVFL+1 00934000 TRMNCPI EQU TRMDEVFL+1 00935000 TRMRNTRM EQU TRMDEVFL+1 00936000 @NM00147 EQU TRMDEVFL+1 00937000 TRMLMD EQU TRMDEVFL+1 00938000 TRMCONC EQU TRMDEVFL+1 00939000 TRMTSOB EQU TRMDEVFL 00940000 TRMBFDY EQU TRMDEVFL 00941000 TRMTBLK EQU TRMDEVFL 00942000 TRMSBLK EQU TRMDEVFL 00943000 TRMBLKS EQU TRMDEVFL 00944000 TRMADDC EQU TRMDEVFL 00945000 TRMDDIG EQU TRMDEVFL 00946000 TRMBUFS EQU TRMDEVFL 00947000 TRMPRILK EQU TRMALTD 00948000 TRMLGB EQU TRMDSORG 00949000 TRMUTERM EQU TLISTCNT 00950000 TRMDESTQ EQU IEDQTRM+1 00951000 TRMSCNYN EQU TRMSTATE 00952000 TRMOPTFN EQU TRMSTATE 00953000 TRMHELDN EQU TRMSTATE 00954000 TRMACPTN EQU TRMSTATE 00955000 TRMPREF EQU TRMSTATE 00956000 TRMPROC EQU TRMLOG 00957000 TRMLIST EQU TRMLOG 00958000 TRMLINE EQU TRMSTATE 00959000 SIBLUTYP EQU SIBSTAT0 00960000 SIBCD EQU SIBSTAT0 00961000 @NM00146 EQU SIBBIND3 00962000 SIBCRES EQU SIBBIND3 00963000 SIBSPKR EQU SIBBIND3 00964000 SIBRECOV EQU SIBBIND3 00965000 SIBFMODE EQU SIBBIND3 00966000 SIBALT EQU SIBBIND2 00967000 SIBBTERM EQU SIBBIND2 00968000 SIBBRACK EQU SIBBIND2 00969000 SIBFMUSE EQU SIBBIND2 00970000 SIBSEBI EQU SIBBIND2 00971000 SIBSCMP EQU SIBBIND2 00972000 SIBSEXC EQU SIBBIND2 00973000 SIBSDEF EQU SIBBIND2 00974000 SIBSRQM EQU SIBBIND1 00975000 SIBSCHNG EQU SIBBIND1 00976000 SIBPEBI EQU SIBBIND1 00977000 SIBPCMP EQU SIBBIND1 00978000 SIBPEXC EQU SIBBIND1 00979000 SIBPDEF EQU SIBBIND1 00980000 SIBPRQM EQU SIBBIND1 00981000 SIBPCHN EQU SIBBIND1 00982000 SIBFMPRO EQU IEDSIBD+19 00983000 SIBTSPRO EQU IEDSIBD+18 00984000 @NM00145 EQU SIBSTAT2 00985000 SIBDACLU EQU SIBSTAT2 00986000 SIBRDSCN EQU SIBSTAT2 00987000 SIBTERM EQU SIBSTAT2 00988000 SIBUSS EQU SIBSTAT2 00989000 SIBBSTAT EQU SIBSTAT1 00990000 SIBRTRP EQU SIBSTAT1 00991000 SIBFTERM EQU SIBSTAT1 00992000 SIBRQEND EQU SIBSTAT1 00993000 SIBRQSHT EQU SIBSTAT1 00994000 SIBSEQO EQU SIBSEQN+2 00995000 SIBSEQI EQU SIBSEQN 00996000 SIBNCNT EQU SIBPACIN 00997000 SIBMCNT EQU SIBPACIN 00998000 SIBDSTAT EQU SIBSESSN 00999000 SIBSSTAT EQU SIBSESSN 01000000 SIBINBIU EQU SIBSESSN 01001000 SIBSHUTC EQU SIBSESSN 01002000 SIBLGOFF EQU SIBSESSN 01003000 SIBINDEX EQU IEDSIBD+8 01004000 SIBCHAIN EQU IEDSIBD+4 01005000 SIBRUSEG EQU IEDSIBD 01006000 @NM00144 EQU IEDPRUND+4 01007000 PRUTHEFI EQU PRUFIDN 01008000 PRUTHUSS EQU PRUFIDN 01009000 PRUTHEIU EQU PRUFIDN 01010000 PRUTHBIU EQU PRUFIDN 01011000 PRUTHTYE EQU PRUFIDN 01012000 @NM00143 EQU PRURHFG2 01013000 PRURHCSI EQU PRURHFG2 01014000 @NM00142 EQU PRURHFG2 01015000 PRURHCDI EQU PRURHFG2 01016000 PRURHEB EQU PRURHFG2 01017000 PRURHBB EQU PRURHFG2 01018000 PRURHPI EQU PRURHFG1 01019000 @NM00141 EQU PRURHFG1 01020000 PRURHER EQU PRURHFG1 01021000 PRURHDR2 EQU PRURHFG1 01022000 @NM00140 EQU PRURHFG1 01023000 PRURHDR1 EQU PRURHFG1 01024000 PRURHEC EQU PRURHFG0 01025000 PRURHBC EQU PRURHFG0 01026000 PRURHSDI EQU PRURHFG0 01027000 PRURHFI EQU PRURHFG0 01028000 @NM00139 EQU PRURHFG0 01029000 PRURUCAT EQU PRURHFG0 01030000 PRURHTYP EQU PRURHFG0 01031000 PRUDATA EQU IEDPRUQD+12 01032000 PRUNUNIT EQU PRUTIC+1 01033000 @NM00138 EQU PRUTIC 01034000 @NM00137 EQU IEDPRUQD+4 01035000 PRUDATCT EQU IEDPRUQD+2 01036000 PRUTTCIN EQU IEDPRUQD 01037000 @NM00136 EQU OPREFLG3 01038000 OPREATCH EQU OPREFLG3 01039000 @NM00135 EQU OPREFLG3 01040000 OPREFLG2 EQU IEDOPRED+13 01041000 OPREFLG1 EQU IEDOPRED+12 01042000 OPRETIC EQU OPRESAVE 01043000 OPRELINK EQU IEDOPRED+5 01044000 OPREPRI EQU IEDOPRED+4 01045000 OPREQCB EQU IEDOPRED+1 01046000 OPREKEY EQU IEDOPRED 01047000 OPCBOTTM EQU IEDQOPCD+1184 01048000 @NM00134 EQU IEDQOPCD+1100 01049000 @NM00133 EQU IEDQOPCD+948 01050000 @NM00132 EQU IEDQOPCD+940 01051000 @NM00131 EQU IEDQOPCD+380 01052000 @NM00130 EQU OPCPWCOB+9 01053000 @NM00129 EQU OPCPWCOB+8 01054000 @NM00128 EQU OPCPWECB+1 01055000 OPCPWCCC EQU OPCPWECB 01056000 OPCPWCHN EQU OPCPWQCB+1 01057000 OPCPWVTO EQU OPCPWQCB 01058000 OPCWAITV EQU IEDQOPCD+364 01059000 OPCAPXTL EQU IEDQOPCD+356 01060000 OPCDECR EQU IEDQOPCD+352 01061000 OPCBUFWT EQU IEDQOPCD+348 01062000 OPCWRKSP EQU IEDQOPCD+320 01063000 OPCADGOT EQU IEDQOPCD+318 01064000 OPCRQCNT EQU IEDQOPCD+316 01065000 OPPOLSTP EQU IEDQOPCD+312 01066000 OPCCKCIB EQU IEDQOPCD+308 01067000 OPCEND EQU IEDQOPCD+307 01068000 OPCSTCBS EQU IEDQOPCD+306 01069000 OPCHNEND EQU IEDQOPCD+302 01070000 OPCOQSW EQU IEDQOPCD+301 01071000 @NM00127 EQU OPCSPEC 01072000 @NM00126 EQU OPCSPEC 01073000 @NM00125 EQU OPCSPEC 01074000 @NM00124 EQU OPCSPEC 01075000 OPCFRMCA EQU OPCSPEC 01076000 OPCRSTRT EQU OPCSPEC 01077000 OPCPART EQU OPCSPEC 01078000 OPCALTD EQU OPCSPEC 01079000 OPCBFEND EQU IEDQOPCD+296 01080000 OPCBFIRS EQU IEDQOPCD+292 01081000 OPCAVBUF EQU IEDQOPCD+290 01082000 OPCIPLCT EQU IEDQOPCD+289 01083000 OPCCLNTS EQU IEDQOPCD+288 01084000 OPCHA8 EQU IEDQOPCD+286 01085000 OPCBFREQ EQU IEDQOPCD+284 01086000 OPCFREBF EQU IEDQOPCD+280 01087000 OPCNEXT EQU IEDQOPCD+272 01088000 OPCFMDFC EQU IEDQOPCD+268 01089000 OPCSCNC EQU IEDQOPCD+264 01090000 OPCHORTG EQU IEDQOPCD+260 01091000 OPCCKPTL EQU IEDQOPCD+252 01092000 OPCCKPTF EQU IEDQOPCD+248 01093000 OPCWAITA EQU IEDQOPCD+244 01094000 OPCWAITR EQU IEDQOPCD+240 01095000 OPCWAITP EQU IEDQOPCD+236 01096000 OPCWAITO EQU IEDQOPCD+232 01097000 OPCWAITN EQU IEDQOPCD+228 01098000 OPCWAITL EQU IEDQOPCD+224 01099000 OPCWAITC EQU IEDQOPCD+220 01100000 @NM00123 EQU OPCLDNME+5 01101000 @NM00122 EQU OPCLDNME 01102000 OPCWAIT EQU IEDQOPCD+192 01103000 OPCCKERB EQU IEDQOPCD+164 01104000 OPCBFERB EQU IEDQOPCD+148 01105000 OPCFLAG2 EQU IEDQOPCD+147 01106000 OPCFLAG1 EQU IEDQOPCD+146 01107000 OPCWRKSZ EQU IEDQOPCD+144 01108000 OPCRSAVE EQU IEDQOPCD+132 01109000 OPCQCBAD EQU IEDQOPCD+128 01110000 OPCTRMWA EQU IEDQOPCD+52 01111000 OPCPSTWT EQU IEDQOPCD+48 01112000 OPCTNTEA EQU IEDQOPCD+44 01113000 OPCLCB EQU IEDQOPCD+36 01114000 @NM00121 EQU IEDQOPCD+32 01115000 OPCIPLAD EQU IEDQOPCD+28 01116000 OPCTOFLK EQU IEDQOPCD+24 01117000 OPCOPTLK EQU IEDQOPCD+20 01118000 OPCDCBLK EQU IEDQOPCD+16 01119000 OPCDOUBL EQU IEDQOPCD 01120000 @NM00120 EQU OCLDNME+4 01121000 @NM00119 EQU OCPREFLG 01122000 OCTOTEP EQU OCPREFLG 01123000 OCREPOST EQU OCPREFLG 01124000 OCRSPSNT EQU OCPREFLG 01125000 OCBFREQ EQU OCPREFLG 01126000 OCDCARD EQU OCREQFLG 01127000 OCPARTAL EQU OCREQFLG 01128000 OCADNCP EQU OCREQFLG 01129000 @NM00118 EQU OCREQFLG 01130000 @NM00117 EQU OCREQFLG 01131000 OCFLUSHZ EQU OCREQFLG 01132000 OCRESPCT EQU OCLINTTE 01133000 OCCKPTWA EQU OCCKDATA+4 01134000 @NM00114 EQU OCRSTGTM+2 01135000 OCCKDAT2 EQU OCRSTGTM+1 01136000 OCCKDAT1 EQU OCRSTGTM 01137000 OCPTRSAV EQU OCMODNME+4 01138000 OCPUADR EQU OCIPLWA+2 01139000 OCDVRDCT EQU OCBACKUP+6 01140000 OCNCP EQU OCBACKUP+4 01141000 OCBUFGOT EQU OCBACKUP+2 01142000 OCBUFNED EQU OCBACKUP 01143000 OCRESNUM EQU OCPARM 01144000 OCSEQ EQU OCTRUNIT+2 01145000 @NM00113 EQU OCRSID+1 01146000 OCNONE EQU OCALSTAT 01147000 OCSOME EQU OCALSTAT 01148000 OCALLFLG EQU OCALSTAT 01149000 OCREDRVE EQU OCALSTAT 01150000 OCSEQIND EQU OCALSTAT 01151000 @NM00112 EQU OCALSTAT 01152000 OCRENTRD EQU OCALSTAT 01153000 OCWTGB EQU OCTIOT 01154000 @NM00111 EQU @NM00110+2 01155000 OCCONID EQU OCDEST 01156000 OCRLN EQU IEDQOPCE+15 01157000 OCRESP EQU OCFLAG 01158000 OCATTACH EQU OCFLAG 01159000 OCSSCP EQU OCFLAG 01160000 OCOUTPUT EQU OCFLAG 01161000 OCLINE EQU OCFLAG 01162000 OCMPP EQU OCFLAG 01163000 OCCONSOL EQU OCFLAG 01164000 @NM00109 EQU OCSWITCH 01165000 OCQUCKN EQU OCSWITCH 01166000 @NM00108 EQU OCRUDEST+1 01167000 @NM00107 EQU OCSCAN 01168000 OCNOTUCB EQU OCSCAN 01169000 OCNONAME EQU OCSCAN 01170000 OCALLRLN EQU OCSCAN 01171000 OCDDNAME EQU OCSCAN 01172000 OCDDNRLN EQU OCSCAN 01173000 OCADDR EQU OCSCAN 01174000 OCELMPTR EQU OCELEM+1 01175000 OCLINK EQU IEDQOPCE 01176000 CURPIUPC EQU IEDCUREQ+32 01177000 CURTOTBF EQU IEDCUREQ+28 01178000 CURNEWBF EQU IEDCUREQ+24 01179000 CURNXTRC EQU IEDCUREQ+22 01180000 CURFAILT EQU IEDCUREQ+18 01181000 CURPIUCT EQU IEDCUREQ+16 01182000 @NM00106 EQU CURFLG3 01183000 CURDIAL EQU CURFLG3 01184000 CURNCURE EQU CURFLG3 01185000 CURFIRST EQU CURFLG3 01186000 CURTOTEP EQU CURFLG3 01187000 CUREPOST EQU CURFLG3 01188000 CURTERM EQU CURFLG2 01189000 CURATTCH EQU CURFLG2 01190000 @NM00105 EQU CURFLG2 01191000 CURENDCH EQU CURFLG2 01192000 CURF1ID EQU CURFLG2 01193000 CURF1SEQ EQU CURFLG2 01194000 CURF0FIN EQU CURFLG2 01195000 CURFLG1 EQU CURTOTIN 01196000 CURELEM EQU IEDCUREQ+5 01197000 CURKEY EQU IEDCUREQ 01198000 SAVTBITN EQU IEDNSVTD+312 01199000 @NM00104 EQU SAVTCKQB+8 01200000 @NM00103 EQU SAVTCKEC+1 01201000 @NM00102 EQU SAVTCKCC 01202000 SAVTCKPO EQU SAVTCKCC 01203000 SAVTCKWA EQU SAVTCKCC 01204000 SAVTCKCH EQU SAVTCKTB+1 01205000 SAVTCKVT EQU SAVTCKTB 01206000 @NM00101 EQU IEDNSVTD+297 01207000 SAVTRDFG EQU SAVTRDRV+12 01208000 @NM00100 EQU SAVTRDRV+5 01209000 SAVTRDPY EQU SAVTRDRV+4 01210000 SAVTRDQB EQU SAVTRDRV+1 01211000 SAVTRDKY EQU SAVTRDRV 01212000 SAVTNID EQU IEDNSVTD+280 01213000 SAVTDVAS EQU IEDNSVTD+276 01214000 SAVTPLSZ EQU IEDNSVTD+274 01215000 @NM00099 EQU IEDNSVTD+273 01216000 SAVTSUBL EQU IEDNSVTD+272 01217000 @NM00098 EQU SAVTZELM+1 01218000 SAVTSUBM EQU SAVTZELM 01219000 SAVTMHDX EQU IEDNSVTD+268 01220000 SAVTNAT1 EQU IEDNSVTD+266 01221000 SAVTSH20 EQU IEDNSVTD+264 01222000 SAVTLCBS EQU IEDNSVTD+260 01223000 SAVTRNMP EQU IEDNSVTD+256 01224000 SAVTTNTX EQU IEDNSVTD+252 01225000 SAVTNAX EQU IEDNSVTD+248 01226000 SAVTSUBV EQU IEDNSVTD+247 01227000 SAVTSUBA EQU IEDNSVTD+246 01228000 SAVTSIBC EQU IEDNSVTD+244 01229000 SAVTBSM EQU IEDNSVTD+240 01230000 SAVTSCPT EQU SAVTTCPU 01231000 SAVTRQTG EQU IEDNSVTD+236 01232000 SAVTRQCH EQU IEDNSVTD+232 01233000 SAVTMAND EQU IEDNSVTD+228 01234000 SAVTSPLN EQU IEDNSVTD+224 01235000 SAVTNADL EQU IEDNSVTD+222 01236000 SAVTNATL EQU IEDNSVTD+220 01237000 SAVTMHTB EQU IEDNSVTD+216 01238000 SAVTSSMH EQU IEDNSVTD+212 01239000 SAVTQRS EQU IEDNSVTD+208 01240000 SAVTRQIN EQU IEDNSVTD+204 01241000 SAVTDFCO EQU IEDNSVTD+200 01242000 SAVTSAO EQU IEDNSVTD+196 01243000 SAVTSARI EQU IEDNSVTD+192 01244000 SAVTSAC EQU IEDNSVTD+188 01245000 SAVTSAI EQU IEDNSVTD+184 01246000 SAVTCSCI EQU IEDNSVTD+180 01247000 SAVTSSRP EQU IEDNSVTD+176 01248000 SAVTSSRQ EQU IEDNSVTD+172 01249000 SAVTSCLU EQU IEDNSVTD+168 01250000 SAVTXTRQ EQU IEDNSVTD+164 01251000 SAVTMVBF EQU IEDNSVTD+160 01252000 @NM00097 EQU IEDNSVTD+148 01253000 SAVTIPCQ EQU IEDNSVTD+144 01254000 @NM00096 EQU IEDNSVTD+136 01255000 SAVTXFMI EQU IEDNSVTD+132 01256000 @NM00095 EQU IEDNSVTD+124 01257000 SAVTXFMO EQU IEDNSVTD+120 01258000 @NM00094 EQU IEDNSVTD+116 01259000 SAVTSSSR EQU IEDNSVTD+112 01260000 SAVTSCPQ EQU IEDNSVTD+108 01261000 SAVTSLCB EQU IEDNSVTD+104 01262000 SAVTLUSR EQU IEDNSVTD+100 01263000 @NM00093 EQU SAVTLUSQ+8 01264000 SAVTLUSP EQU SAVTLUSQ+4 01265000 SAVTLUSB EQU SAVTLUSQ 01266000 @NM00092 EQU IEDNSVTD+84 01267000 SAVTSAT EQU IEDNSVTD+80 01268000 SAVTNAT EQU IEDNSVTD+76 01269000 SAVTPIUT EQU IEDNSVTD+68 01270000 SAVTRNTA EQU IEDNSVTD+64 01271000 SAVTDNIR EQU IEDNSVTD+60 01272000 SAVTCNIR EQU IEDNSVTD+56 01273000 SAVTFLDH EQU IEDNSVTD+52 01274000 SAVTSRTN EQU IEDNSVTD+48 01275000 SAVTSREQ EQU IEDNSVTD+44 01276000 SAVTFAIL EQU IEDNSVTD+42 01277000 SAVTSUSE EQU IEDNSVTD+40 01278000 SAVTSIB EQU IEDNSVTD+36 01279000 SAVTPRTN EQU IEDNSVTD+32 01280000 @NM00091 EQU IEDNSVTD+28 01281000 SAVTWH20 EQU IEDNSVTD+26 01282000 SAVTPWT EQU IEDNSVTD+24 01283000 SAVTPRTQ EQU IEDNSVTD+20 01284000 SAVTPREQ EQU IEDNSVTD+16 01285000 SAVTPH20 EQU IEDNSVTD+14 01286000 SAVTPUSE EQU IEDNSVTD+12 01287000 SAVTPLCB EQU IEDNSVTD+8 01288000 SAVTPOOL EQU IEDNSVTD+4 01289000 SAVTPRMT EQU SAVTDIAF 01290000 SAVTVIRT EQU SAVTDIAF 01291000 AVTCPBNO EQU IEDQAVTD+1244 01292000 AVTHRESS EQU IEDQAVTD+1243 01293000 @NM00090 EQU IEDQAVTD+1242 01294000 @NM00089 EQU IEDQAVTD+1241 01295000 @NM00088 EQU IEDQAVTD+1240 01296000 @NM00087 EQU IEDQAVTD+1237 01297000 @NM00086 EQU IEDQAVTD+1236 01298000 AVTHRESE EQU @NM00085 01299000 AVTRADDR EQU IEDQAVTD+1228 01300000 AVTNADDR EQU IEDQAVTD+1224 01301000 AVTHRESN EQU IEDQAVTD+1220 01302000 AVTVOLRN EQU IEDQAVTD+1216 01303000 AVTTOTNN EQU IEDQAVTD+1212 01304000 AVTTRCYN EQU IEDQAVTD+1208 01305000 AVTRCTRN EQU IEDQAVTD+1204 01306000 AVTNOVON EQU IEDQAVTD+1200 01307000 AVTADEBN EQU IEDQAVTD+1196 01308000 AVTVOLRR EQU IEDQAVTD+1192 01309000 AVTTOTNR EQU IEDQAVTD+1188 01310000 AVTTRCYR EQU IEDQAVTD+1184 01311000 AVTRCTRR EQU IEDQAVTD+1180 01312000 AVTNOVOR EQU IEDQAVTD+1176 01313000 AVTADEBR EQU IEDQAVTD+1172 01314000 AVTLODPT EQU IEDQAVTD+1168 01315000 AVTIOBN EQU IEDQAVTD+1164 01316000 AVTIOBR EQU IEDQAVTD+1160 01317000 AVTCPBPT EQU IEDQAVTD+1156 01318000 AVTFCPB EQU IEDQAVTD+1152 01319000 @NM00084 EQU IEDQAVTD+1148 01320000 AVTINCPQ EQU IEDQAVTD+1144 01321000 @NM00083 EQU IEDQAVTD+1140 01322000 @NM00082 EQU IEDQAVTD+1137 01323000 @NM00081 EQU AVTBIT4 01324000 @NM00080 EQU AVTBIT4 01325000 @NM00079 EQU AVTBIT4 01326000 @NM00078 EQU AVTBIT4 01327000 @NM00077 EQU AVTBIT4 01328000 @NM00076 EQU AVTBIT4 01329000 @NM00075 EQU AVTBIT4 01330000 AVTRUFTN EQU AVTBIT4 01331000 @NM00074 EQU IEDQAVTD+1132 01332000 AVTNOBFQ EQU IEDQAVTD+1128 01333000 @NM00073 EQU IEDQAVTD+1124 01334000 AVTDKENQ EQU IEDQAVTD+1120 01335000 @NM00072 EQU IEDQAVTD+1116 01336000 AVTDKAPQ EQU IEDQAVTD+1112 01337000 AVTCOPY EQU IEDQAVTD+1108 01338000 AVTIA EQU IEDQAVTD+1104 01339000 AVTFL EQU IEDQAVTD+1100 01340000 @NM00071 EQU IEDQAVTD+1096 01341000 AVTNCPBQ EQU IEDQAVTD+1092 01342000 AVTTOTNC EQU IEDQAVTD+1088 01343000 AVTCMAX EQU IEDQAVTD+1084 01344000 AVTCMIN EQU IEDQAVTD+1080 01345000 AVTHM02 EQU IEDQAVTD+1076 01346000 AVTOPCIN EQU IEDQAVTD+1074 01347000 AVTDCTLN EQU IEDQAVTD+1072 01348000 AVTOPMSK EQU IEDQAVTD+1068 01349000 AVTDDFT EQU IEDQAVTD+1064 01350000 AVTSTEAL EQU IEDQAVTD+1060 01351000 AVTOPTN EQU IEDQAVTD+1056 01352000 AVTDSKCT EQU IEDQAVTD+1054 01353000 AVTCKRST EQU IEDQAVTD+1053 01354000 AVTSTAN EQU AVTBIT3 01355000 AVTSTACN EQU AVTBIT3 01356000 AVTSTAIN EQU AVTBIT3 01357000 AVTSTAYN EQU AVTBIT3 01358000 AVTOLTBN EQU AVTBIT3 01359000 AVTTSAB EQU AVTBIT3 01360000 AVTRFULN EQU AVTBIT3 01361000 AVTRECVN EQU AVTBIT3 01362000 @NM00070 EQU AVTBIT2 01363000 @NM00069 EQU AVTBIT2 01364000 AVTOPEIN EQU AVTBIT2 01365000 AVTSTRTN EQU AVTBIT2 01366000 AVTTOPOL EQU AVTBIT2 01367000 AVTCOPYN EQU AVTBIT2 01368000 AVTREUSN EQU AVTBIT2 01369000 AVTEXTSC EQU AVTBIT2 01370000 AVTDISKN EQU AVTBIT1 01371000 AVTQUCKN EQU AVTBIT1 01372000 AVTCLOSN EQU AVTBIT1 01373000 AVTREADN EQU AVTBIT1 01374000 AVTDLAYN EQU AVTBIT1 01375000 AVTAQTAN EQU AVTBIT1 01376000 AVTTSON EQU AVTBIT1 01377000 AVTAPLKN EQU AVTBIT1 01378000 AVTDUMBR EQU IEDQAVTD+1048 01379000 AVTDLQX EQU IEDQAVTD+1046 01380000 AVTINTLV EQU IEDQAVTD+1044 01381000 AVTSMCNT EQU IEDQAVTD+1042 01382000 AVTAVFCT EQU IEDQAVTD+1040 01383000 AVTOPCON EQU IEDQAVTD+1038 01384000 AVTOPCNT EQU IEDQAVTD+1036 01385000 AVTLNCNT EQU IEDQAVTD+1034 01386000 AVTKEYLE EQU IEDQAVTD+1032 01387000 AVTHA16 EQU IEDQAVTD+1030 01388000 AVTHA7 EQU IEDQAVTD+1028 01389000 AVTHA4 EQU IEDQAVTD+1026 01390000 AVTHA3 EQU IEDQAVTD+1024 01391000 AVTHA2 EQU IEDQAVTD+1022 01392000 AVTGETMS EQU IEDQAVTD+1021 01393000 @NM00068 EQU IEDQAVTD+1020 01394000 AVTGETMD EQU IEDQAVTD+1016 01395000 AVTGETMN EQU IEDQAVTD+1012 01396000 AVTCWTOT EQU IEDQAVTD+1008 01397000 AVTCWINT EQU IEDQAVTD+956 01398000 AVTDTRAP EQU IEDQAVTD+952 01399000 @NM00067 EQU IEDQAVTD+950 01400000 @NM00066 EQU AVTIOTR 01401000 AVTIOTRH EQU AVTIOTR 01402000 AVTIOTRE EQU AVTIOTR 01403000 @NM00065 EQU AVTSUBT 01404000 AVTSUBPT EQU AVTSUBT 01405000 AVTSUBON EQU AVTSUBT 01406000 AVTAFE30 EQU IEDQAVTD+944 01407000 AVTAFE20 EQU IEDQAVTD+940 01408000 AVTAFE10 EQU IEDQAVTD+936 01409000 AVTCWEC2 EQU IEDQAVTD+932 01410000 AVTCWPM2 EQU IEDQAVTD+928 01411000 AVTCWTS2 EQU IEDQAVTD+927 01412000 AVTCWTS1 EQU IEDQAVTD+926 01413000 AVTCWCLD EQU AVTCWFL2 01414000 AVTCWRAP EQU AVTCWFL2 01415000 @NM00064 EQU AVTCWFL2 01416000 @NM00063 EQU AVTCWFL2 01417000 @NM00062 EQU AVTCWFL2 01418000 @NM00061 EQU AVTCWFL2 01419000 @NM00060 EQU AVTCWFL2 01420000 AVTCWACT EQU AVTCWFL2 01421000 @NM00059 EQU AVTCWFL1 01422000 @NM00058 EQU AVTCWFL1 01423000 @NM00057 EQU AVTCWFL1 01424000 @NM00056 EQU AVTCWFL1 01425000 @NM00055 EQU AVTCWFL1 01426000 @NM00054 EQU AVTCWFL1 01427000 @NM00053 EQU AVTCWFL1 01428000 AVTCOMWN EQU AVTCWFL1 01429000 AVTCWEC1 EQU IEDQAVTD+920 01430000 AVTCWPM1 EQU IEDQAVTD+916 01431000 AVTCAREA EQU IEDQAVTD+912 01432000 AVTFZERO EQU IEDQAVTD+908 01433000 AVTCADDR EQU IEDQAVTD+904 01434000 AVTCOREC EQU IEDQAVTD+900 01435000 @NM00052 EQU IEDQAVTD+892 01436000 AVTCPBCB EQU IEDQAVTD+888 01437000 @NM00051 EQU IEDQAVTD+880 01438000 AVTDSIOB EQU IEDQAVTD+876 01439000 @NM00050 EQU IEDQAVTD+868 01440000 AVTCPRMB EQU IEDQAVTD+864 01441000 @NM00049 EQU IEDQAVTD+856 01442000 AVTCLOSB EQU IEDQAVTD+852 01443000 @NM00048 EQU IEDQAVTD+844 01444000 AVTACTIB EQU IEDQAVTD+840 01445000 @NM00047 EQU IEDQAVTD+836 01446000 AVTOLTEB EQU IEDQAVTD+832 01447000 AVTOLTCH EQU AVTOLTQB+1 01448000 AVTOLTVT EQU AVTOLTQB 01449000 @NM00046 EQU AVTOPCQB+8 01450000 @NM00045 EQU AVTOPCEC+1 01451000 @NM00044 EQU AVTOPCCC 01452000 AVTOPCPO EQU AVTOPCCC 01453000 AVTOPCWA EQU AVTOPCCC 01454000 AVTOPCCH EQU AVTOPCOB+1 01455000 AVTOPCVT EQU AVTOPCOB 01456000 @NM00043 EQU AVTCKPQB+9 01457000 AVTCKPTS EQU AVTCKPQB+8 01458000 @NM00042 EQU AVTCKPEC+1 01459000 @NM00041 EQU AVTCKPCC 01460000 AVTCKPPO EQU AVTCKPCC 01461000 AVTCKPWA EQU AVTCKPCC 01462000 AVTCKPCH EQU AVTCKPTB+1 01463000 AVTCKPVT EQU AVTCKPTB 01464000 @NM00040 EQU IEDQAVTD+796 01465000 AVTBFRTB EQU IEDQAVTD+792 01466000 @NM00039 EQU IEDQAVTD+784 01467000 AVTBFREB EQU IEDQAVTD+780 01468000 AVTTIMQ EQU IEDQAVTD+776 01469000 @NM00038 EQU IEDQAVTD+772 01470000 AVTIMQPS EQU IEDQAVTD+768 01471000 AVTINOUT EQU IEDQAVTD+766 01472000 AVTREFTM EQU IEDQAVTD+764 01473000 @NM00037 EQU IEDQAVTD+752 01474000 AVTDELYB EQU IEDQAVTD+748 01475000 AVTOCQPT EQU IEDQAVTD+744 01476000 AVTTSOPT EQU IEDQAVTD+740 01477000 AVTSUPPT EQU IEDQAVTD+736 01478000 AVTCBQCB EQU IEDQAVTD+732 01479000 AVTMSGS EQU IEDQAVTD+729 01480000 @NM00036 EQU AVTSYSER 01481000 @NM00035 EQU AVTSYSER 01482000 @NM00034 EQU AVTSYSER 01483000 @NM00033 EQU AVTSYSER 01484000 @NM00032 EQU AVTSYSER 01485000 @NM00031 EQU AVTSYSER 01486000 AVTCMAXN EQU AVTSYSER 01487000 AVTCMINN EQU AVTSYSER 01488000 AVT2260L EQU IEDQAVTD+724 01489000 AVTABEPL EQU AVTADBUF 01490000 AVTHFF EQU AVTCLRHI+2 01491000 @NM00030 EQU AVTCLRHI 01492000 AVTCCLNK EQU AVTCRELE+5 01493000 AVTCCPRI EQU AVTCRELE+4 01494000 AVTCCQCB EQU AVTCCELE+1 01495000 AVTCCKEY EQU AVTCCELE 01496000 AVTDELAD EQU IEDQAVTD+704 01497000 AVTDELEM EQU IEDQAVTD+700 01498000 AVTBSX EQU AVTCKLNK 01499000 AVTOPETR EQU AVTHG01 01500000 @NM00029 EQU AVTCKBYT 01501000 AVTCKONQ EQU AVTCKBYT 01502000 @NM00028 EQU AVTCKBYT 01503000 @NM00027 EQU AVTCKBYT 01504000 @NM00026 EQU AVTCKBYT 01505000 @NM00025 EQU AVTCKBYT 01506000 @NM00024 EQU AVTCKBYT 01507000 @NM00023 EQU AVTCKBYT 01508000 AVTOPERT EQU IEDQAVTD+690 01509000 AVTOPXCL EQU IEDQAVTD+688 01510000 AVTOPERL EQU IEDQAVTD+687 01511000 @NM00022 EQU IEDQAVTD+686 01512000 AVTCKTIM EQU IEDQAVTD+684 01513000 AVTCKELV EQU IEDQAVTD+682 01514000 AVTCPRCD EQU IEDQAVTD+681 01515000 AVTWARMN EQU AVTCKELF 01516000 AVTCRTLN EQU AVTCKELF 01517000 AVTCPIPN EQU AVTCKELF 01518000 AVTCCLCN EQU AVTCKELF 01519000 AVTCINCN EQU AVTCKELF 01520000 @NM00021 EQU AVTCKELF 01521000 AVTCMCPN EQU AVTCKELF 01522000 AVTNQBCK EQU AVTCKELF 01523000 AVTCKQAD EQU IEDQAVTD+677 01524000 AVTSCBSZ EQU IEDQAVTD+676 01525000 @NM00020 EQU IEDQAVTD+672 01526000 AVTCKELE EQU IEDQAVTD+668 01527000 @NM00019 EQU AVTCKPEL+8 01528000 AVTCKRLK EQU AVTCKPEL+5 01529000 AVTCKRPR EQU AVTCKPEL+4 01530000 AVTCKRMQ EQU AVTCKRMV+1 01531000 AVTCKRKY EQU AVTCKRMV 01532000 AVTHK EQU IEDQAVTD+648 01533000 AVTHI EQU IEDQAVTD+644 01534000 AVTIOT EQU IEDQAVTD+640 01535000 AVTNX EQU IEDQAVTD+636 01536000 AVTTONE EQU IEDQAVTD+632 01537000 AVTA3TL EQU IEDQAVTD+628 01538000 AVTDMECB EQU IEDQAVTD+624 01539000 AVTABEND EQU IEDQAVTD+618 01540000 AVTPLCBN EQU IEDQAVTD+616 01541000 @NM00018 EQU AVTSAVTP+1 01542000 @NM00017 EQU AVTSAVTF 01543000 AVTSNA EQU AVTSAVTF 01544000 AVTONSNA EQU AVTSAVTF 01545000 AVTVTMCP EQU AVTSAVTF 01546000 @NM00016 EQU IEDQAVTD+608 01547000 AVTCMBSS EQU IEDQAVTD+604 01548000 AVTRCV EQU IEDQAVTD+600 01549000 AVTSEND EQU IEDQAVTD+596 01550000 AVTCSCH EQU IEDQAVTD+592 01551000 AVTQ1 EQU IEDQAVTD+588 01552000 AVTE7 EQU IEDQAVTD+584 01553000 AVTHB EQU IEDQAVTD+580 01554000 AVTR1 EQU IEDQAVTD+576 01555000 AVTBZ EQU IEDQAVTD+572 01556000 AVTEZ EQU IEDQAVTD+568 01557000 AVTEC EQU IEDQAVTD+564 01558000 AVTEW EQU IEDQAVTD+560 01559000 AVTNDIAL EQU AVTSCOPT 01560000 AVTN2741 EQU AVTSCOPT 01561000 AVTCONCO EQU AVTSCOPT 01562000 AVTCONC EQU AVTSCOPT 01563000 AVTCMBUF EQU AVTSCOPT 01564000 AVTAPDMP EQU AVTSCOPT 01565000 @NM00015 EQU AVTSCOPT 01566000 AVTHA EQU AVTDISP 01567000 AVTEA EQU IEDQAVTD+548 01568000 AVTAX EQU IEDQAVTD+544 01569000 AVTA3 EQU IEDQAVTD+540 01570000 AVTGD EQU IEDQAVTD+536 01571000 AVTAL EQU IEDQAVTD+532 01572000 AVTOLTST EQU AVTHG02 01573000 AVTE8 EQU IEDQAVTD+524 01574000 AVTUI EQU IEDQAVTD+520 01575000 AVTCOMPT EQU IEDQAVTD+516 01576000 AVTCRSRF EQU IEDQAVTD+512 01577000 @NM00014 EQU IEDQAVTD+508 01578000 AVTKA02 EQU IEDQAVTD+504 01579000 AVTOPTPT EQU IEDQAVTD+500 01580000 AVTPCBPT EQU IEDQAVTD+496 01581000 @NM00013 EQU AVTECB1 01582000 AVTCOMP EQU AVTECB1 01583000 @NM00012 EQU AVTECB1 01584000 AVTOPECA EQU IEDQAVTD+488 01585000 AVTOLECA EQU IEDQAVTD+484 01586000 AVTCKECA EQU IEDQAVTD+480 01587000 AVTCWECA EQU IEDQAVTD+476 01588000 AVTCWTCB EQU IEDQAVTD+472 01589000 AVTOLTCB EQU IEDQAVTD+468 01590000 AVTOCTCB EQU IEDQAVTD+464 01591000 AVTCKTCB EQU IEDQAVTD+460 01592000 AVTAS EQU IEDQAVTD+456 01593000 AVTNOLBF EQU IEDQAVTD+454 01594000 AVTNCKPR EQU IEDQAVTD+453 01595000 AVTCIB EQU IEDQAVTD+452 01596000 AVTSPLPT EQU IEDQAVTD+448 01597000 AVTMVBFR EQU IEDQAVTD+444 01598000 AVTSBTA EQU IEDQAVTD+440 01599000 AVTRARTN EQU IEDQAVTD+436 01600000 AVTBSCAN EQU IEDQAVTD+432 01601000 AVTRDYA EQU IEDQAVTD+428 01602000 AVTDISTR EQU IEDQAVTD+420 01603000 AVTPARM3 EQU IEDQAVTD+416 01604000 @NM00011 EQU AVTPKF 01605000 @NM00010 EQU AVTPKF 01606000 @NM00009 EQU AVTPKF 01607000 AVTFTCHF EQU AVTPKF 01608000 @NM00008 EQU AVTPKF 01609000 @NM00007 EQU AVTPKF 01610000 @NM00006 EQU AVTPKF 01611000 @NM00005 EQU AVTPKF 01612000 AVTPARM EQU IEDQAVTD+408 01613000 AVTEXS2A EQU IEDQAVTD+402 01614000 AVTEXA2S EQU IEDQAVTD+396 01615000 AVTOCGET EQU IEDQAVTD+392 01616000 AVTCKAVT EQU @NM00003+1 01617000 @NM00004 EQU AVTCKFLG 01618000 AVTCKHLT EQU AVTCKFLG 01619000 AVTCKREQ EQU AVTCKFLG 01620000 AVTCKENV EQU AVTCKFLG 01621000 AVTCKNAC EQU AVTCKFLG 01622000 AVTCKTAC EQU AVTCKFLG 01623000 @NM00002 EQU IEDQAVTD+384 01624000 AVTREADD EQU IEDQAVTD+380 01625000 AVTREADY EQU IEDQAVTD+376 01626000 AVTRACE EQU IEDQAVTD+372 01627000 AVTTCB EQU IEDQAVTD+368 01628000 AVTPASWD EQU IEDQAVTD+360 01629000 AVTCTLCH EQU IEDQAVTD+352 01630000 AVTDOUBL EQU IEDQAVTD+344 01631000 AVTDOUBX EQU IEDQAVTD+336 01632000 AVTDPARM EQU IEDQAVTD+332 01633000 AVTCSTCS EQU IEDQAVTD+328 01634000 AVTDLQ EQU AVTSAVEX+32 01635000 @NM00001 EQU AVTSAVEX 01636000 AVTSAVE4 EQU IEDQAVTD+216 01637000 AVTSAVE3 EQU IEDQAVTD+144 01638000 AVTSAVE2 EQU IEDQAVTD+72 01639000 AVTSAVE1 EQU IEDQAVTD 01640000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01641000 @RC00388 EQU @RC00386 01642000 @RC00411 EQU @RC00410 01643000 @RC00434 EQU @RC00433 01644000 @RC00460 EQU @RC00433 01645000 @RC00495 EQU @RC00491 01646000 @RC00389 EQU @RC00388 01647000 @RC00412 EQU @RC00411 01648000 @RC00461 EQU @RC00460 01649000 @ENDDATA EQU * 01650000 END IGCFC10D,(C'PLS2131',0701,77227) 01651000