TITLE 'IGCVF10D - 3705 S/S TERMINAL LOAD 2 *00001000 ' 00002000 IGCVF10D CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 IGCVF10D IEDHJN SKIPID,HJN IDENTIFICATION MACRO @Y17XAR4 00007000 * ROPCAVT=RPARM; /* OP CONTROL AVT ADDRESS */ 00008000 LR ROPCAVT,RPARM 0375 00009000 * RAVT=OPCAVTPT; /* TCAM AVT ADDRESS */ 00010000 L RAVT,OPCAVTPT(,ROPCAVT) 0376 00011000 * ROPCE=OPCCOPCE; /* ADDR OF PASSED ELEMENT */ 00012000 L ROPCE,OPCCOPCE(,ROPCAVT) 0377 00013000 */********************************************************************/ 00014000 */* */ 00015000 */* MAIN PROGRAM LOGIC @Y17XAR4*/ 00016000 */* */ 00017000 */********************************************************************/ 00018000 * 0378 00019000 * RPREV=ROPCE; /* ASSUME INPUT IS NOT AN ERROR 00020000 * BUFFER @Y17XAR4*/ 00021000 LR RPREV,ROPCE 0378 00022000 * IF OPCRSTRT=ON THEN /* IS A RESTART IN PROGRESS ? 0379 00023000 * @Y17XAR4*/ 00024000 TM OPCRSTRT(ROPCAVT),B'00100000' 0379 00025000 BNO @RF00379 0379 00026000 * CALL RESTART; /* YES @Y17XAR4*/ 00027000 BAL @14,RESTART 0380 00028000 * ELSE /* NO, NOT RESTART @Y17XAR4*/ 00029000 * IF OCELMPRI=PRIHIFLG&OCPRIFLG=OPRVF THEN/* @Y17XAR4*/ 00030000 B @RC00379 0381 00031000 @RF00379 CLI OCELMPRI(ROPCE),X'E9' 0381 00032000 BNE @RF00381 0381 00033000 CLI OCPRIFLG(ROPCE),X'07' 0381 00034000 BNE @RF00381 0381 00035000 * CALL VFBUFFER; /* PROCESS ERROR BUFFER IF 0382 00036000 * INDICATED BY PRIORITY AND FLAG 00037000 * @Y17XAR4*/ 00038000 BAL @14,VFBUFFER 0382 00039000 * ELSE /* @Y17XAR4*/ 00040000 * IF OCELMPRI=PRIMEDFG&OCPRIFLG=OPRVF THEN/* @Y17XAR4*/ 00041000 B @RC00381 0383 00042000 @RF00381 CLI OCELMPRI(ROPCE),X'DF' 0383 00043000 BNE @RF00383 0383 00044000 CLI OCPRIFLG(ROPCE),X'07' 0383 00045000 BNE @RF00383 0383 00046000 * DO; /* IF INDICATED BY PRIOR- 0384 00047000 * ITY/FLAG, THEN @Y17XAR4*/ 00048000 * CALL VFBUFFER; /* PROCESS REQUEST BUFFER & ITS 00049000 * ASSOCIATED @Y17XAR4*/ 00050000 BAL @14,VFBUFFER 0385 00051000 * CALL VFOPCE; /* OPCE FROM WAITV Q @Y17XAR4*/ 00052000 BAL @14,VFOPCE 0386 00053000 * END; /* @Y17XAR4*/ 00054000 * ELSE /* @Y17XAR4*/ 00055000 * IF OCELMPRI=PRIMEDFG&OCPRIFLG=OPRVAVF THEN/* @Y17XAR4*/ 00056000 B @RC00383 0388 00057000 @RF00383 CLI OCELMPRI(ROPCE),X'DF' 0388 00058000 BNE @RF00388 0388 00059000 CLI OCPRIFLG(ROPCE),X'0B' 0388 00060000 BNE @RF00388 0388 00061000 * CALL VFOPCE; /* PROCESS OPCE IF INDICATED BY 00062000 * PRIORITY/FLAG @Y17XAR4*/ 00063000 BAL @14,VFOPCE 0389 00064000 * ELSE /* MUST BE A PLCB @Y17XAR4*/ 00065000 * CALL PROCPLCB; /* PROCESS THE PLCB @Y17XAR4*/ 00066000 B @RC00388 0390 00067000 @RF00388 BAL @14,PROCPLCB 0390 00068000 * CALL XCTLOK; /* TERMINATE @Y17XAR4*/ 00069000 @RC00388 DS 0H 0391 00070000 @RC00383 DS 0H 0391 00071000 @RC00381 DS 0H 0391 00072000 @RC00379 BAL @14,XCTLOK 0391 00073000 * RESPECIFY 0392 00074000 * RPARM UNRESTRICTED; /* FREE UP REG. ONE @Y17XAR4*/ 00075000 * 0393 00076000 */********************************************************************/ 00077000 */* */ 00078000 */* THE PASSED ELEMENT WAS AN OPCE. ITS ADDRESS @Y17XAR4*/ 00079000 */* IS CONTAINED IN ROPCE (REG. 3). ENTRY WAS @Y17XAR4*/ 00080000 */* FROM IGCV910D. OR, THE PASSED ELEMENT WAS A @Y17XAR4*/ 00081000 */* REQUEST BUFFER FROM STOPLINE. THE OPCE ASSO- @Y17XAR4*/ 00082000 */* CIATED WITH THE BUFFER HAS BEEN FOUND ON THE @Y17XAR4*/ 00083000 */* WAITV CHAIN, AND THE BUFFER HAS BEEN FREED. @Y17XAR4*/ 00084000 */* */ 00085000 */********************************************************************/ 00086000 * 0393 00087000 *VFOPCE: /* @Y17XAR4*/ 00088000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XAR4*/ 00089000 B @PB00002 0393 00090000 VFOPCE DS 0H 0394 00091000 * OPCWRKSP(ONE)=RRET; /* SAVE RETURN ADDR. @Y17XAR4*/ 00092000 ST RRET,OPCWRKSP(,ROPCAVT) 0394 00093000 * RTRM=OCMODNME(ONE:FOUR); /* GET TTE ADDRESS @Y17XAR4*/ 00094000 ICM RTRM,15,OCMODNME(ROPCE) 0395 00095000 * RTRM=RTRM-LENGTH(IEDNTRM); /* GET PREFIX ADDR. @Y17XAR4*/ 00096000 SL RTRM,@CF01628 0396 00097000 * IF TRMTYPE=TRMPUNT THEN /* IS TTE FOR A PU ? @Y17XAR4*/ 00098000 CLI TRMTYPE(RTRM),X'18' 0397 00099000 BNE @RF00397 0397 00100000 * CALL PUREQ; /* YES, PROCESS PU @Y17XAR4*/ 00101000 BAL @14,PUREQ 0398 00102000 * ELSE /* NO, MUST BE LU OR PRE- SNA 0399 00103000 * 3705 TERMINAL @Y17XAR4*/ 00104000 * CALL LUTRMREQ; /* PROCESS LU OR TRM @Y17XAR4*/ 00105000 B @RC00397 0399 00106000 @RF00397 BAL @14,LUTRMREQ 0399 00107000 * RRET=OPCWRKSP(ONE); /* GET RETURN ADDR. @Y17XAR4*/ 00108000 @RC00397 L RRET,OPCWRKSP(,ROPCAVT) 0400 00109000 * RETURN; /* RETURN TO CALLER @Y17XAR4*/ 00110000 @EL00002 DS 0H 0401 00111000 @EF00002 DS 0H 0401 00112000 @ER00002 BR @14 0401 00113000 * END VFOPCE; /* OPCE IS PROCESSED @Y17XAR4*/ 00114000 * 0403 00115000 */********************************************************************/ 00116000 */* */ 00117000 */* THE PASSED ELEMENT WAS A REQUEST BUFFER OR @Y17XAR4*/ 00118000 */* AN ERROR BUFFER FROM STOPLINE (IEDNSL). ITS @Y17XAR4*/ 00119000 */* ADDRESS IS CONTAINED IN ROPCE (REG. 3). IF @Y17XAR4*/ 00120000 */* THE ELEMENT IS AN ERROR BUFFER, TCAM FOUND A @Y17XAR4*/ 00121000 */* TERMINAL IN TSO SESSION. @Y17XAR4*/ 00122000 */* */ 00123000 */********************************************************************/ 00124000 * 0403 00125000 *VFBUFFER: /* @Y17XAR4*/ 00126000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XAR4*/ 00127000 VFBUFFER DS 0H 0404 00128000 * OPCWRKSP(ONE)=RRET; /* SAVE RETURN ADDR. @Y17XAR4*/ 00129000 ST RRET,OPCWRKSP(,ROPCAVT) 0404 00130000 * RPRF=ROPCE; /* SET BUFFER BASE @Y17XAR4*/ 00131000 LR RPRF,ROPCE 0405 00132000 * NSLOPCEP=NSLOPCEP&MASKOFF; /* CLEAR HIGH ORDER BYTE OF OPCE 00133000 * ADDRESS @YM06107*/ 00134000 L @15,NSLOPCEP(,IEDNSLP) 0406 00135000 N @15,@CF03122 0406 00136000 ST @15,NSLOPCEP(,IEDNSLP) 0406 00137000 * RPREV=ADDR(OPCWAITV); /* DUMMY PREVIOUS @Y17XAR4*/ 00138000 LA RPREV,OPCWAITV(,ROPCAVT) 0407 00139000 * ROPCE=RPREV->OCLINK; /* 1ST OPCE ON WAITV @Y17XAR4*/ 00140000 L ROPCE,OCLINK(,RPREV) 0408 00141000 * DO WHILE(ROPCE^=NSLOPCEP&ROPCE^=ZERO);/* SCAN THE WAITV CHAIN FOR 00142000 * OPCE @Y17XAR4*/ 00143000 B @DE00409 0409 00144000 @DL00409 DS 0H 0410 00145000 * RPREV=ROPCE; /* SET NEW PREVIOUS @Y17XAR4*/ 00146000 LR RPREV,ROPCE 0410 00147000 * ROPCE=RPREV->OCLINK; /* NEXT OPCE ON Q @Y17XAR4*/ 00148000 L ROPCE,OCLINK(,RPREV) 0411 00149000 * END; /* END OF WAITV SCAN @Y17XAR4*/ 00150000 @DE00409 C ROPCE,NSLOPCEP(,IEDNSLP) 0412 00151000 BE @DC00409 0412 00152000 LTR ROPCE,ROPCE 0412 00153000 BNZ @DL00409 0412 00154000 @DC00409 DS 0H 0413 00155000 * IF ROPCE=ZERO THEN /* WHY DID SCAN END @Y17XAR4*/ 00156000 LTR ROPCE,ROPCE 0413 00157000 BNZ @RF00413 0413 00158000 * DO; /* NO MATCHING OPCE @Y17XAR4*/ 00159000 * CALL BUFFREE; /* FREE THE BUFFER @Y17XAR4*/ 00160000 BAL @14,BUFFREE 0415 00161000 * CALL SETUP00; /* EXIT TO IGC0010D @Y17XAR4*/ 00162000 BAL @14,SETUP00 0416 00163000 * END; /* @Y17XAR4*/ 00164000 * ELSE /* A MATCH WAS FOUND @Y17XAR4*/ 00165000 * DO; /* DE-LINK MATCHING @Y17XAR4*/ 00166000 B @RC00413 0418 00167000 @RF00413 DS 0H 0419 00168000 * RPREV->OCLINK=OCLINK; /* OPCE FROM WAITV @Y17XAR4*/ 00169000 L @15,OCLINK(,ROPCE) 0419 00170000 ST @15,OCLINK(,RPREV) 0419 00171000 * OPCCOPCE=ROPCE; /* CURRENT OPCE PTR. @Y17XAR4*/ 00172000 ST ROPCE,OPCCOPCE(,ROPCAVT) 0420 00173000 * OCUNIT=ENDCHAIN; /* END OF OPCE CHAIN @Y17XAR4*/ 00174000 MVC OCUNIT(4,ROPCE),@CF02163 0421 00175000 * IF PRFPRI=PRIHIFLG THEN /* NSL ERROR BUFFER @Y17XAR4*/ 00176000 CLI PRFPRI(IEDQPPTR),X'E9' 0422 00177000 BNE @RF00422 0422 00178000 * DO; /* YES, INDICATE AN @Y17XAR4*/ 00179000 * RPREV=ZERO; /* ERROR BUFFER @Y17XAR4*/ 00180000 SLR RPREV,RPREV 0424 00181000 * CALL XCTLOK; /* AND TERMINATE @Y17XAR4*/ 00182000 BAL @14,XCTLOK 0425 00183000 * END; /* @Y17XAR4*/ 00184000 * ELSE /* NOT ERROR BUFFER @Y17XAR4*/ 00185000 * DO; /* PROCESS REQUEST @Y17XAR4*/ 00186000 B @RC00422 0427 00187000 @RF00422 DS 0H 0428 00188000 * CALL BUFFREE; /* FREE THE BUFFER @Y17XAR4*/ 00189000 BAL @14,BUFFREE 0428 00190000 * RRET=OPCWRKSP(ONE); /* GET RETURN ADDR. @Y17XAR4*/ 00191000 L RRET,OPCWRKSP(,ROPCAVT) 0429 00192000 * RETURN; /* RETURN TO CALLER @Y17XAR4*/ 00193000 @EL00003 DS 0H 0430 00194000 @EF00003 DS 0H 0430 00195000 @ER00003 BR @14 0430 00196000 * END; /* @Y17XAR4*/ 00197000 * END; /* @Y17XAR4*/ 00198000 * END VFBUFFER; /* BUFFER PROCESSED @Y17XAR4*/ 00199000 B @EL00003 0433 00200000 * 0434 00201000 */********************************************************************/ 00202000 */* THE PASSED ELEMENT WAS A PLCB RETURNED FROM TCAM. */ 00203000 */* THIS INDICATES THAT ALL I/O FOR THE TERMINAL HAS BEEN */ 00204000 */* STOPPED. @Y17XAR4*/ 00205000 */********************************************************************/ 00206000 * 0434 00207000 *PROCPLCB: 0434 00208000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XAR4*/ 00209000 PROCPLCB DS 0H 0435 00210000 * OPCWRKSP(ONE)=RRET; /* SAVE RETURN ADDR. @Y17XAR4*/ 00211000 ST RRET,OPCWRKSP(,ROPCAVT) 0435 00212000 * RLCB=ROPCE; /* PLCB ADDRESS */ 00213000 LR RLCB,ROPCE 0436 00214000 * RPREV=ADDR(OPCWAITV); /* ADDR OF WAITV CHAIN */ 00215000 LA RPREV,OPCWAITV(,ROPCAVT) 0437 00216000 *SRCHLOOP: 0438 00217000 * ROPCE=RPREV->OCLINK; /* NEXT OPCE ON WAITV CHAIN */ 00218000 SRCHLOOP L ROPCE,OCLINK(,RPREV) 0438 00219000 * IF ROPCE=ZERO THEN /* END OF CHAIN? @Y17XAR4*/ 00220000 LTR ROPCE,ROPCE 0439 00221000 BNZ @RF00439 0439 00222000 * DO; /* YES, NO MATCHING OPCE */ 00223000 * LCBQCBA=RLCB; /* POST PLCB TO SELF @Y17XAR4*/ 00224000 STCM RLCB,7,LCBQCBA(IEDQLPTR) 0441 00225000 * LCBPRI=PRILNFRE; /* LINEFREE PRIORITY @Y17XAR4*/ 00226000 MVI LCBPRI(IEDQLPTR),X'E0' 0442 00227000 * CALL POSTPLCB; /* POST THE PLCB @Y17XAR4*/ 00228000 BAL @14,POSTPLCB 0443 00229000 * CALL SETUP00; /* XCTL TO IGC0010D @Y17XAR4*/ 00230000 BAL @14,SETUP00 0444 00231000 * END; 0445 00232000 * IF OCWTG=THISMOD& /* ELEMENT FOR VF & @Y17XAR4*/ 00233000 * OCTRMTBL=LCBTTCIN THEN /* OPCE AND PLCB FOR SAME 0446 00234000 * TERMINAL? @Y17XAR4*/ 00235000 @RF00439 CLC OCWTG(2,ROPCE),@CC03135 0446 00236000 BNE @RF00446 0446 00237000 CLC OCTRMTBL(2,ROPCE),LCBTTCIN(IEDQLPTR) 0446 00238000 BE @RT00446 0446 00239000 * GO TO FOUND; /* YES, MATCHING OPCE FOUND */ 00240000 * ELSE /* NO, KEEP LOOKING */ 00241000 * DO; 0448 00242000 @RF00446 DS 0H 0449 00243000 * RPREV=ROPCE; /* PREVIOUS OPCE = THIS OPCE */ 00244000 LR RPREV,ROPCE 0449 00245000 * GO TO SRCHLOOP; /* GO LOOK AT NEXT OPCE */ 00246000 B SRCHLOOP 0450 00247000 * END; 0451 00248000 *FOUND: 0452 00249000 * RPREV->OCLINK=OCLINK; /* DELINK OPCE FROM WAITV CHN */ 00250000 FOUND L @15,OCLINK(,ROPCE) 0452 00251000 ST @15,OCLINK(,RPREV) 0452 00252000 * OPCCOPCE=ROPCE; /* POINTER TO CURRENT OPCE */ 00253000 ST ROPCE,OPCCOPCE(,ROPCAVT) 0453 00254000 * OCUNIT=ENDCHAIN; /* SET END OF TIC CHAIN */ 00255000 MVC OCUNIT(4,ROPCE),@CF02163 0454 00256000 * RTRM=OCMODNME(ONE:FOUR); /* TTE ADDRESS @Y17XAR4*/ 00257000 ICM RTRM,15,OCMODNME(ROPCE) 0455 00258000 * RTRM=RTRM-LENGTH(IEDNTRM); /* GET PREFIX ADDR. @Y17XAR4*/ 00259000 SL RTRM,@CF01628 0456 00260000 * IF TRMHELDN=OFF THEN /* IS TERMINAL HELD @Y17XAR4*/ 00261000 TM TRMHELDN(RTRM),B'00000100' 0457 00262000 BNZ @RF00457 0457 00263000 * LCBQCBA=SAVTSPLN; /* NO, POST TO NSL @YM06116*/ 00264000 L @15,AVTSAVTP(,IEDQAPTR) 0458 00265000 MVC LCBQCBA(3,IEDQLPTR),SAVTSPLN+1(@15) 0458 00266000 * ELSE /* YES, IT IS HELD @YM06116*/ 00267000 * DO; /* POST PLCB TO SELF @YM06116*/ 00268000 B @RC00457 0459 00269000 @RF00457 DS 0H 0460 00270000 * LCBQCBA=RLCB; /* WITH LINE FREE @YM06116*/ 00271000 STCM RLCB,7,LCBQCBA(IEDQLPTR) 0460 00272000 * LCBPRI=PRILNFRE; /* PRIORITY @YM06116*/ 00273000 MVI LCBPRI(IEDQLPTR),X'E0' 0461 00274000 * END; /* @Y17XAR4*/ 00275000 * CALL POSTPLCB; /* POST THE PLCB @YM06116*/ 00276000 @RC00457 BAL @14,POSTPLCB 0463 00277000 * CALL LUTRMREQ; /* PROCESS TERMINAL @Y17XAR4*/ 00278000 BAL @14,LUTRMREQ 0464 00279000 * RRET=OPCWRKSP(ONE); /* GET RETURN ADDR. @Y17XAR4*/ 00280000 L RRET,OPCWRKSP(,ROPCAVT) 0465 00281000 * RETURN; /* RETURN TO CALLER @Y17XAR4*/ 00282000 @EL00004 DS 0H 0466 00283000 @EF00004 DS 0H 0466 00284000 @ER00004 BR @14 0466 00285000 * END PROCPLCB; /* PLCB AND ITS MATCHING OPCE 0467 00286000 * PROCESSED @Y17XAR4*/ 00287000 * 0468 00288000 */********************************************************************/ 00289000 */* */ 00290000 */* THE FOLLOWING CODE PROCESSES REQUESTS TO VARY @Y17XAR4*/ 00291000 */* A PU ON OR OFF. AT ENTRY, ROPCE (REG. 3) @Y17XAR4*/ 00292000 */* POINTS TO THE OPCE. IF THE ORIGINAL INPUT @Y17XAR4*/ 00293000 */* WAS A REQUEST BUFFER, IT HAS ALREADY BEEN @Y17XAR4*/ 00294000 */* FREED. @Y17XAR4*/ 00295000 */* */ 00296000 */********************************************************************/ 00297000 * 0468 00298000 *PUREQ: /* @Y17XAR4*/ 00299000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XAR4*/ 00300000 PUREQ DS 0H 0469 00301000 * RESPECIFY 0469 00302000 * RZERO RESTRICTED; /* RESTRICT REG. 0 @Y17XAR4*/ 00303000 * OPCWRKSP(TWO)=RRET; /* SAVE RETURN ADDR. @Y17XAR4*/ 00304000 ST RRET,OPCWRKSP+4(,ROPCAVT) 0470 00305000 * RZERO=ALLONMSG; /* ASSUME ALL LU'S WERE VARIED 0471 00306000 * ONTP @Y17XAR4*/ 00307000 LA RZERO,554 0471 00308000 * IF OCSWITCH^=OCONTPB& /* VARY ONTP, B OR @Y17XAR4*/ 00309000 * OCSWITCH^=OCONTPE THEN /* VARY ONTP, E ? @Y17XAR4*/ 00310000 CLI OCSWITCH(ROPCE),X'0B' 0472 00311000 BE @RF00472 0472 00312000 CLI OCSWITCH(ROPCE),X'0A' 0472 00313000 BE @RF00472 0472 00314000 * DO; /* NO, NOT VARY ONTP @Y17XAR4*/ 00315000 * IF OCSWITCH^=OCOFFTPB& /* VARY OFFTP, B OR @Y17XAR4*/ 00316000 * OCSWITCH^=OCOFFTPE THEN /* VARY OFFTP, E ? @Y17XAR4*/ 00317000 CLI OCSWITCH(ROPCE),X'06' 0474 00318000 BE @RF00474 0474 00319000 CLI OCSWITCH(ROPCE),X'05' 0474 00320000 BE @RF00474 0474 00321000 * CALL SETUP00; /* NO, EXIT @Y17XAR4*/ 00322000 BAL @14,SETUP00 0475 00323000 * ELSE /* IT'S VARY OFFTP @Y17XAR4*/ 00324000 * RZERO=RZERO+THREE; /* ASSUME ALL LU'S WERE VARIED 0476 00325000 * OFFTP @Y17XAR4*/ 00326000 B @RC00474 0476 00327000 @RF00474 AL RZERO,@CF00100 0476 00328000 * END; /* OFFTP MSG. SET @Y17XAR4*/ 00329000 * ELSE 0478 00330000 * ; /* ONTP/OFFTP MSG OK @Y17XAR4*/ 00331000 @RF00472 DS 0H 0479 00332000 * IF OCNONE=OFF| /* WERE ALL LU'S @Y17XAR4*/ 00333000 * OCSOME=OFF THEN /* VARIED ON OR OFF @Y17XAR4*/ 00334000 @RC00472 TM OCNONE(ROPCE),B'00000011' 0479 00335000 BO @RF00479 0479 00336000 * DO; /* NO, NOT ALL LU'S @Y17XAR4*/ 00337000 * RZERO=RZERO+ONE; /* ASSUME SOME LU'S @Y17XAR4*/ 00338000 LA @15,1 0481 00339000 ALR RZERO,@15 0481 00340000 * IF OCNONE=ON THEN /* SOME OR NONE ? @Y17XAR4*/ 00341000 TM OCNONE(ROPCE),B'00000001' 0482 00342000 BNO @RF00482 0482 00343000 * RZERO=RZERO+ONE; /* NO LU'S VARIED @Y17XAR4*/ 00344000 ALR RZERO,@15 0483 00345000 * ELSE /* MUST BE SOME LU'S @Y17XAR4*/ 00346000 * IF OCSOME=OFF THEN /* IS IT SOME LU'S ? @Y17XAR4*/ 00347000 B @RC00482 0484 00348000 @RF00482 TM OCSOME(ROPCE),B'00000010' 0484 00349000 BNZ @RF00484 0484 00350000 * CALL SETUP00; /* NO, EXIT @Y17XAR4*/ 00351000 BAL @14,SETUP00 0485 00352000 * ELSE 0486 00353000 * ; /* SOME LU'S VARIED @Y17XAR4*/ 00354000 @RF00484 DS 0H 0487 00355000 * END; /* SOME OR NONE - OK @Y17XAR4*/ 00356000 * ELSE 0488 00357000 * ; /* ALL LU'S VARIED @Y17XAR4*/ 00358000 @RF00479 DS 0H 0489 00359000 */********************************************************************/ 00360000 */* AT THIS POINT, RZERO CONTAINS THE CORRECT @Y17XAR4*/ 00361000 */* MESSAGE NUMBER: @Y17XAR4*/ 00362000 */* @Y17XAR4*/ 00363000 */* 554 = ALL LU'S VARIED ON @Y17XAR4*/ 00364000 */* 555 = SOME LU'S VARIED ON @Y17XAR4*/ 00365000 */* 556 = NO LU'S VARIED ON @Y17XAR4*/ 00366000 */* 557 = ALL LU'S VARIED OFF @Y17XAR4*/ 00367000 */* 558 = SOME LU'S VARIED OFF @Y17XAR4*/ 00368000 */* 559 = NO LU'S VARIED OFF @Y17XAR4*/ 00369000 */********************************************************************/ 00370000 * 0489 00371000 * RRET=OPCWRKSP(TWO); /* GET RETURN ADDR. @Y17XAR4*/ 00372000 @RC00479 L RRET,OPCWRKSP+4(,ROPCAVT) 0489 00373000 * RETURN; /* RETURN TO CALLER @Y17XAR4*/ 00374000 @EL00005 DS 0H 0490 00375000 @EF00005 DS 0H 0490 00376000 @ER00005 BR @14 0490 00377000 * END PUREQ; /* PU IS PROCESSED @Y17XAR4*/ 00378000 * 0492 00379000 */********************************************************************/ 00380000 */* THE FOLLOWING CODE PROCESSES REQUESTS TO VARY @Y17XAR4*/ 00381000 */* AN LU OR A PRE-SNA 3705 TERMINAL ON OR OFF. @Y17XAR4*/ 00382000 */* AT ENTRY, ROPCE (REG. 3) POINTS TO THE OPCE, @Y17XAR4*/ 00383000 */* AND RTRM (REG. 8) POINTS TO THE TTE PREFIX. @Y17XAR4*/ 00384000 */* IF THE ORIGINAL INPUT WAS A REQUEST BUFFER, @Y17XAR4*/ 00385000 */* IT HAS ALREADY BEEN FREED. IF THE ORIGINAL @Y17XAR4*/ 00386000 */* INPUT WAS A PLCB, IT MAY HAVE BEEN POSTED TO @Y17XAR4*/ 00387000 */* STOPLINE (IEDNSL) OR TO ITSELF. ALL I/O FOR @YM06116*/ 00388000 */* THE TERMINAL/LU HAS BEEN TEMPORARILY HALTED. @YM06116*/ 00389000 */********************************************************************/ 00390000 * 0492 00391000 *LUTRMREQ: /* @Y17XAR4*/ 00392000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XAR4*/ 00393000 LUTRMREQ DS 0H 0493 00394000 * OPCWRKSP(TWO)=RRET; /* SAVE RETURN ADDR. @Y17XAR4*/ 00395000 ST RRET,OPCWRKSP+4(,ROPCAVT) 0493 00396000 * IF OCSWITCH=OCONTPE| /* VARY ONTP,E OR @Y17XAR4*/ 00397000 * OCSWITCH=OCONTPB THEN /* VARY ONTP,B ? @Y17XAR4*/ 00398000 CLI OCSWITCH(ROPCE),X'0A' 0494 00399000 BE @RT00494 0494 00400000 CLI OCSWITCH(ROPCE),X'0B' 0494 00401000 BNE @RF00494 0494 00402000 @RT00494 DS 0H 0495 00403000 * DO; /* YES @Y17XAR4*/ 00404000 * RZERO=STARTMSG; /* TERMINAL-STARTED MSG NO */ 00405000 LA RZERO,20 0496 00406000 * IF OCTOTE=ON THEN /* TOTE START-TERMINAL REQST */ 00407000 TM OCTOTE(ROPCE),B'01000000' 0497 00408000 BNO @RF00497 0497 00409000 * DO; /* YES, TOTE @Y17XAR4*/ 00410000 * IF OCOPTCDE^=SPECTOTE THEN/* IF NOT SPECIAL CMND TO LEAVE 00411000 * TERMINAL ALLOC TO TOTE */ 00412000 CLI OCOPTCDE(ROPCE),X'55' 0499 00413000 BE @RF00499 0499 00414000 * TRMSTOTE=OFF; /* YES, TURN OFF TOTE-IN-CTL */ 00415000 NI TRMSTOTE(RTRM),B'11111110' 0500 00416000 * ELSE 0501 00417000 * ; /* @Y17XAR4*/ 00418000 @RF00499 DS 0H 0502 00419000 * END; /* END TOTE ONTP @Y17XAR4*/ 00420000 * ELSE 0503 00421000 * ; /* NOT TOTE REQUEST @Y17XAR4*/ 00422000 @RF00497 DS 0H 0504 00423000 * END; /* END ONTP LOGIC @Y17XAR4*/ 00424000 * ELSE /* NO, NOT ONTP @Y17XAR4*/ 00425000 * IF OCSWITCH=OCOFFTPE| /* VARY OFFTP, E OR @Y17XAR4*/ 00426000 * OCSWITCH=OCOFFTPB THEN /* VARY OFFTP, B ? @Y17XAR4*/ 00427000 B @RC00494 0505 00428000 @RF00494 CLI OCSWITCH(ROPCE),X'05' 0505 00429000 BE @RT00505 0505 00430000 CLI OCSWITCH(ROPCE),X'06' 0505 00431000 BNE @RF00505 0505 00432000 @RT00505 DS 0H 0506 00433000 * DO; /* YES @Y17XAR4*/ 00434000 * RZERO=STOPMSG; /* TERMINAL-STOPPED MSG NO */ 00435000 LA RZERO,26 0507 00436000 * IF OCTOTE=ON THEN /* TOTE STOP-TERMINAL REQUEST */ 00437000 TM OCTOTE(ROPCE),B'01000000' 0508 00438000 BNO @RF00508 0508 00439000 * TRMSTOTE=ON; /* YES, MARK TERMINAL AS BEING 0509 00440000 * UNDER TOTE CONTROL */ 00441000 OI TRMSTOTE(RTRM),B'00000001' 0509 00442000 * ELSE 0510 00443000 * ; /* @Y17XAR4*/ 00444000 @RF00508 DS 0H 0511 00445000 * END; /* END OFFTP LOGIC @Y17XAR4*/ 00446000 * ELSE 0512 00447000 * ; /* @Y17XAR4*/ 00448000 @RF00505 DS 0H 0513 00449000 * RRET=OPCWRKSP(TWO); /* GET RETURN ADDR. @Y17XAR4*/ 00450000 @RC00494 L RRET,OPCWRKSP+4(,ROPCAVT) 0513 00451000 * RETURN; /* RETURN TO CALLER @Y17XAR4*/ 00452000 @EL00006 DS 0H 0514 00453000 @EF00006 DS 0H 0514 00454000 @ER00006 BR @14 0514 00455000 * RESPECIFY 0515 00456000 * RZERO UNRESTRICTED; /* FREE REG. ZERO @Y17XAR4*/ 00457000 * END LUTRMREQ; /* LU OR TERMINAL IS PROCESSED 0516 00458000 * @Y17XAR4*/ 00459000 * 0517 00460000 */********************************************************************/ 00461000 */* THE FOLLOWING CODE PROCESSES AN INCIDENT CHECKPOINT */ 00462000 */* RECORD AT RESTART TIME. THE INPUT IS AN OPCE @Y17XAR4*/ 00463000 */* POINTED TO BY ROPCE (REG. 3). @Y17XAR4*/ 00464000 */********************************************************************/ 00465000 * 0517 00466000 *RESTART: 0517 00467000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XAR4*/ 00468000 RESTART DS 0H 0518 00469000 * RESPECIFY 0518 00470000 * RPARM RESTRICTED; /* RESTRICT REG. ONE @Y17XAR4*/ 00471000 * OPCWRKSP(ONE)=RRET; /* SAVE RETURN ADDR. @Y17XAR4*/ 00472000 ST RRET,OPCWRKSP(,ROPCAVT) 0519 00473000 * RTRM=OCMODNME(ONE:FOUR); /* TTE ADDRESS @Y17XAR4*/ 00474000 ICM RTRM,15,OCMODNME(ROPCE) 0520 00475000 * RTRM=RTRM-LENGTH(IEDNTRM); /* GET PREFIX ADDR. @Y17XAR4*/ 00476000 SL RTRM,@CF01628 0521 00477000 * RQCB=TRMDESTQ; /* DESTINATION QCB ADDRESS */ 00478000 SLR RQCB,RQCB 0522 00479000 ICM RQCB,7,TRMDESTQ(RTRM) 0522 00480000 * IF TRMTYPE=TRMPSNA THEN /* PRE-SNA TERMINAL @Y17XAR4*/ 00481000 CLI TRMTYPE(RTRM),X'4F' 0523 00482000 BNE @RF00523 0523 00483000 * CALL TRESTART; /* YES, PROCESS IT @Y17XAR4*/ 00484000 BAL @14,TRESTART 0524 00485000 * ELSE /* NOT PRE-SNA TTE @Y17XAR4*/ 00486000 * IF TRMTYPE=TRMLUNT THEN /* IS TTE FOR AN LU @Y17XAR4*/ 00487000 B @RC00523 0525 00488000 @RF00523 CLI TRMTYPE(RTRM),X'30' 0525 00489000 BNE @RF00525 0525 00490000 * DO; /* YES, IT IS @Y17XAR4*/ 00491000 * RPARM=RTRM; /* PASS LU TTE ADDR. @Y17XAR4*/ 00492000 LR RPARM,RTRM 0527 00493000 * CALL LRESTART; /* PROCESS THE LU @Y17XAR4*/ 00494000 BAL @14,LRESTART 0528 00495000 * END; /* @Y17XAR4*/ 00496000 * ELSE /* MUST BE A PU TTE @Y17XAR4*/ 00497000 * CALL PRESTART; /* PROCESS THE PU @Y17XAR4*/ 00498000 B @RC00525 0530 00499000 @RF00525 BAL @14,PRESTART 0530 00500000 * RRET=OPCWRKSP(ONE); /* GET RETURN ADDR. @Y17XAR4*/ 00501000 @RC00525 DS 0H 0531 00502000 @RC00523 L RRET,OPCWRKSP(,ROPCAVT) 0531 00503000 * RETURN; /* RETURN TO MAIN @Y17XAR4*/ 00504000 @EL00007 DS 0H 0532 00505000 @EF00007 DS 0H 0532 00506000 @ER00007 BR @14 0532 00507000 * END RESTART; /* @Y17XAR4*/ 00508000 * 0534 00509000 */********************************************************************/ 00510000 */* */ 00511000 */* THE FOLLOWING CODE PROCESSES RESTART REQUESTS @Y17XAR4*/ 00512000 */* FOR PRE-SNA 3705 TERMINALS. AT ENTRY, ROPCE @Y17XAR4*/ 00513000 */* (REG. 3) POINTS TO THE OPCE, RQCB (REG. 7) @Y17XAR4*/ 00514000 */* POINTS TO THE QCB, AND RTRM (REG. 8) POINTS @Y17XAR4*/ 00515000 */* TO THE TTE PREFIX. @Y17XAR4*/ 00516000 */* */ 00517000 */********************************************************************/ 00518000 * 0534 00519000 *TRESTART: /* @Y17XAR4*/ 00520000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XAR4*/ 00521000 TRESTART DS 0H 0535 00522000 * RESPECIFY 0535 00523000 * RZERO RESTRICTED; /* RESTRICT REG. 0 @Y17XAR4*/ 00524000 * OPCWRKSP(TWO)=RRET; /* SAVE RETURN ADDR. @Y17XAR4*/ 00525000 ST RRET,OPCWRKSP+4(,ROPCAVT) 0536 00526000 * RESPECIFY 0537 00527000 * RRET UNRESTRICTED; /* FREE REG. 14 TEMP @Y17XAR4*/ 00528000 * RPARM=RTRM; /* PASS TTE ADDRESS @Y17XAR4*/ 00529000 LR RPARM,RTRM 0538 00530000 * IF OCSWITCH=OCONTPB| /* VARY ONTP, B OR @Y17XAR4*/ 00531000 * OCSWITCH=OCONTPE THEN /* VARY ONTP,E ? @Y17XAR4*/ 00532000 CLI OCSWITCH(ROPCE),X'0B' 0539 00533000 BE @RT00539 0539 00534000 CLI OCSWITCH(ROPCE),X'0A' 0539 00535000 BNE @RF00539 0539 00536000 @RT00539 DS 0H 0540 00537000 * DO; /* YES @Y17XAR4*/ 00538000 * CALL ONOFFTPB; /* PROCESS ONTP, B @Y17XAR4*/ 00539000 BAL @14,ONOFFTPB 0541 00540000 * IF AVTSTAIN=ON THEN /* INVITATION LIST CHKPT'D ? */ 00541000 TM AVTSTAIN(IEDQAPTR),B'00000100' 0542 00542000 BNO @RF00542 0542 00543000 * TRMRSACT=ON; /* YES, MARK TERMINAL AS ACTIVE 00544000 * @Y17XAR4*/ 00545000 LA @11,TRMRSACT(,RTRM) 0543 00546000 LR @10,@11 0543 00547000 LA @15,3 0543 00548000 NR @10,@15 0543 00549000 LCR @10,@10 0543 00550000 ALR @11,@10 0543 00551000 L @15,0(,@11) 0543 00552000 @GL00011 LR @14,@15 0543 00553000 O @14,@CB03218+3(@10) 0543 00554000 CS @15,@14,0(@11) 0543 00555000 BNE @GL00011 0543 00556000 * ELSE 0544 00557000 * ; /* @Y17XAR4*/ 00558000 @RF00542 DS 0H 0545 00559000 * END; /* END ONTP LOGIC @Y17XAR4*/ 00560000 * ELSE 0546 00561000 * DO; /* MUST BE OFFTP @Y17XAR4*/ 00562000 B @RC00539 0546 00563000 @RF00539 DS 0H 0547 00564000 * IF QCBDISK=NOTDISK|AVTAS=AVTFZERO/* IF NO DISK QUEING 0547 00565000 * @OY12258 00566000 * NOR HOLD MACRO, @OY12258*/ 00567000 * THEN 0547 00568000 TM QCBDISK(IEDQQPTR),B'00110000' 0547 00569000 BZ @RT00547 0547 00570000 CLC AVTAS(4,IEDQAPTR),AVTFZERO(IEDQAPTR) 0547 00571000 BE @RT00547 0547 00572000 * GOTO REOFFTPE; /* THEN ONLY STOP @OY12258 00573000 * INPUT @OY12258*/ 00574000 * ELSE /* IF DISK QUEUES & @Y17XAR4*/ 00575000 * CALL ONOFFTPB; /* HOLD, SET HOLD @Y17XAR4*/ 00576000 BAL @14,ONOFFTPB 0549 00577000 *REOFFTPE: 0550 00578000 * IF AVTSTAIN=ON THEN /* INVITATION LIST CHKPT'D ? */ 00579000 REOFFTPE TM AVTSTAIN(IEDQAPTR),B'00000100' 0550 00580000 BNO @RF00550 0550 00581000 * TRMRSACT=OFF; /* YES, MARK TERMINAL AS INACTIVE 00582000 * @Y17XAR4*/ 00583000 LA @11,TRMRSACT(,RTRM) 0551 00584000 LR @10,@11 0551 00585000 LA @15,3 0551 00586000 NR @10,@15 0551 00587000 LCR @10,@10 0551 00588000 ALR @11,@10 0551 00589000 L @15,0(,@11) 0551 00590000 @GL00013 LR @14,@15 0551 00591000 N @14,@CB03222+3(@10) 0551 00592000 CS @15,@14,0(@11) 0551 00593000 BNE @GL00013 0551 00594000 * ELSE 0552 00595000 * ; /* @Y17XAR4*/ 00596000 @RF00550 DS 0H 0553 00597000 * END; /* END OFFTP LOGIC @Y17XAR4*/ 00598000 * RESPECIFY 0554 00599000 * RRET RESTRICTED; /* RE-RESTRICT REG14 @Y17XAR4*/ 00600000 @RC00539 DS 0H 0555 00601000 * RRET=OPCWRKSP(TWO); /* GET RETURN ADDR. @Y17XAR4*/ 00602000 L RRET,OPCWRKSP+4(,ROPCAVT) 0555 00603000 * RETURN; /* RETURN TO CALLER @Y17XAR4*/ 00604000 @EL00008 DS 0H 0556 00605000 @EF00008 DS 0H 0556 00606000 @ER00008 BR @14 0556 00607000 * RESPECIFY 0557 00608000 * RZERO UNRESTRICTED; /* FREE REGISTER 0 @Y17XAR4*/ 00609000 * END TRESTART; /* END OF RESTART PROCESS- ING 0558 00610000 * FOR TERMINALS @Y17XAR4*/ 00611000 * 0559 00612000 */********************************************************************/ 00613000 */* */ 00614000 */* THE FOLLOWING CODE PROCESSES RESTART REQUESTS @Y17XAR4*/ 00615000 */* FOR PU'S. AT ENTRY, ROPCE (REG. 3) POINTS TO @Y17XAR4*/ 00616000 */* THE OPCE, RQCB (REG. 7) POINTS TO THE PU'S @Y17XAR4*/ 00617000 */* QCB, AND RTRM (REG. 8) POINTS TO THE PU'S TTE @Y17XAR4*/ 00618000 */* PREFIX. @Y17XAR4*/ 00619000 */* */ 00620000 */********************************************************************/ 00621000 * 0559 00622000 *PRESTART: /* @Y17XAR4*/ 00623000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XAR4*/ 00624000 PRESTART DS 0H 0560 00625000 * OPCWRKSP(TWO)=RRET; /* SAVE RETURN ADDR. @Y17XAR4*/ 00626000 ST RRET,OPCWRKSP+4(,ROPCAVT) 0560 00627000 * RPARM=RTRM; /* PASS TTE ADDRESS @Y17XAR4*/ 00628000 LR RPARM,RTRM 0561 00629000 * CALL ONOFFTPB; /* SET HOLD FLAGS @Y17XAR4*/ 00630000 BAL @14,ONOFFTPB 0562 00631000 * IF TRMSUBST^=ZERO THEN /* DOES PU HAVE LU'S @Y17XAR4*/ 00632000 LH @15,TRMSUBST(,RTRM) 0563 00633000 N @15,@CF03226 0563 00634000 LTR @15,@15 0563 00635000 BZ @RF00563 0563 00636000 * DO; /* YES, PROCESS THEM @Y17XAR4*/ 00637000 * RPARM=TRMSUBST; /* GET TNT OFFSET OF 1ST 0565 00638000 * SUB-ENTITY FOR PU @Y17XAR4*/ 00639000 LR RPARM,@15 0565 00640000 * CALL IEDQTNT; /* CONVERT TO TTE @Y17XAR4*/ 00641000 L @15,AVTRNMPT(,IEDQAPTR) 0566 00642000 BALR @14,@15 0566 00643000 * RPARM=RPARM-LENGTH(IEDNTRM);/* BACK UP TO LU'S TTE PREFIX 0567 00644000 * @Y17XAR4*/ 00645000 SL RPARM,@CF01628 0567 00646000 * DO WHILE(RPARM^=RTRM); /* SCAN FOR END OF LU'S FOR THIS 00647000 * PU @Y17XAR4*/ 00648000 B @DE00568 0568 00649000 @DL00568 DS 0H 0569 00650000 * CALL LRESTART; /* PROCESS LU @Y17XAR4*/ 00651000 BAL @14,LRESTART 0569 00652000 * RPARM=RPARM->TRMCOHRT; /* GET TNT OFFSET OF NEXT 0570 00653000 * SUB-ENTITY FOR PU @Y17XAR4*/ 00654000 LH @15,TRMCOHRT(,RPARM) 0570 00655000 N @15,@CF03226 0570 00656000 LR RPARM,@15 0570 00657000 * CALL IEDQTNT; /* CONVERT TO A TTE @Y17XAR4*/ 00658000 L @15,AVTRNMPT(,IEDQAPTR) 0571 00659000 BALR @14,@15 0571 00660000 * RPARM=RPARM-LENGTH(IEDNTRM);/* BACK UP TO PREFIX @Y17XAR4*/ 00661000 SL RPARM,@CF01628 0572 00662000 * END; /* END OF LU SCAN @Y17XAR4*/ 00663000 @DE00568 CR RPARM,RTRM 0573 00664000 BNE @DL00568 0573 00665000 * END; /* ALL LUS PROCESSED @Y17XAR4*/ 00666000 * ELSE 0575 00667000 * ; /* OR NO LU'S FOR PU @Y17XAR4*/ 00668000 @RF00563 DS 0H 0576 00669000 * RRET=OPCWRKSP(TWO); /* GET RETURN ADDR. @Y17XAR4*/ 00670000 L RRET,OPCWRKSP+4(,ROPCAVT) 0576 00671000 * RETURN; /* RETURN TO CALLER @Y17XAR4*/ 00672000 @EL00009 DS 0H 0577 00673000 @EF00009 DS 0H 0577 00674000 @ER00009 BR @14 0577 00675000 * END PRESTART; /* END OF RESTART PROCESS- ING 0578 00676000 * FOR PU AND ALL ASSOCIATED LU'S 00677000 * @Y17XAR4*/ 00678000 * 0579 00679000 */********************************************************************/ 00680000 */* */ 00681000 */* THE FOLLOWING CODE PROCESSES RESTART REQUESTS @Y17XAR4*/ 00682000 */* FOR LU'S. AT ENTRY, ROPCE (REG. 3) POINTS TO @Y17XAR4*/ 00683000 */* THE OPCE AND RPARM (REG. 1) POINTS TO THE TTE @Y17XAR4*/ 00684000 */* PREFIX FOR THE LU. @Y17XAR4*/ 00685000 */* */ 00686000 */********************************************************************/ 00687000 * 0579 00688000 *LRESTART: /* @Y17XAR4*/ 00689000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XAR4*/ 00690000 LRESTART DS 0H 0580 00691000 * OPCWRKSP(THREE)=RRET; /* SAVE RETURN ADDR. @Y17XAR4*/ 00692000 ST RRET,OPCWRKSP+8(,ROPCAVT) 0580 00693000 * RQCB=RPARM->TRMDESTQ; /* GET LU'S QCB ADDR @Y17XAR4*/ 00694000 SLR RQCB,RQCB 0581 00695000 ICM RQCB,7,TRMDESTQ(RPARM) 0581 00696000 * CALL ONOFFTPB; /* SET HOLD FLAGS @Y17XAR4*/ 00697000 BAL @14,ONOFFTPB 0582 00698000 * IF OCSWITCH=OCONTPB| /* VARY ONTP, B OR @Y17XAR4*/ 00699000 * OCSWITCH=OCONTPE THEN /* VARY ONTP, E ? @Y17XAR4*/ 00700000 CLI OCSWITCH(ROPCE),X'0B' 0583 00701000 BE @RT00583 0583 00702000 CLI OCSWITCH(ROPCE),X'0A' 0583 00703000 BNE @RF00583 0583 00704000 @RT00583 DS 0H 0584 00705000 * RPARM->TRMLULOG=ON; /* LOGON'S ALLOWED @Y17XAR4*/ 00706000 LA @11,TRMLULOG(,RPARM) 0584 00707000 LR @10,@11 0584 00708000 LA @15,3 0584 00709000 NR @10,@15 0584 00710000 LCR @10,@10 0584 00711000 ALR @11,@10 0584 00712000 L @15,0(,@11) 0584 00713000 @GL00015 LR @00,@15 0584 00714000 O @00,@CB03227+3(@10) 0584 00715000 CS @15,@00,0(@11) 0584 00716000 BNE @GL00015 0584 00717000 * ELSE /* NOT VARY ONTP @Y17XAR4*/ 00718000 * IF OCSWITCH=OCOFFTPB| /* VARY OFFTP, B OR @Y17XAR4*/ 00719000 * OCSWITCH=OCOFFTPE THEN /* VARY OFFTP, E ? @Y17XAR4*/ 00720000 B @RC00583 0585 00721000 @RF00583 CLI OCSWITCH(ROPCE),X'06' 0585 00722000 BE @RT00585 0585 00723000 CLI OCSWITCH(ROPCE),X'05' 0585 00724000 BNE @RF00585 0585 00725000 @RT00585 DS 0H 0586 00726000 * RPARM->TRMLULOG=OFF; /* LOGONS PROHIBITED @Y17XAR4*/ 00727000 LA @11,TRMLULOG(,RPARM) 0586 00728000 LR @10,@11 0586 00729000 LA @15,3 0586 00730000 NR @10,@15 0586 00731000 LCR @10,@10 0586 00732000 ALR @11,@10 0586 00733000 L @15,0(,@11) 0586 00734000 @GL00017 LR @00,@15 0586 00735000 N @00,@CB03231+3(@10) 0586 00736000 CS @15,@00,0(@11) 0586 00737000 BNE @GL00017 0586 00738000 * ELSE 0587 00739000 * ; /* @Y17XAR4*/ 00740000 @RF00585 DS 0H 0588 00741000 * RRET=OPCWRKSP(THREE); /* GET RETURN ADDR. @Y17XAR4*/ 00742000 @RC00583 L RRET,OPCWRKSP+8(,ROPCAVT) 0588 00743000 * RETURN; /* RETURN TO CALLER @Y17XAR4*/ 00744000 @EL00010 DS 0H 0589 00745000 @EF00010 DS 0H 0589 00746000 @ER00010 BR @14 0589 00747000 * RESPECIFY 0590 00748000 * RPARM UNRESTRICTED; /* FREE REGISTER ONE @Y17XAR4*/ 00749000 * END LRESTART; /* END OF RESTART PRO- CESSING 0591 00750000 * FOR LU @Y17XAR4*/ 00751000 @PB00010 DS 0H 0592 00752000 * 0592 00753000 */********************************************************************/ 00754000 */* */ 00755000 */* THE FOLLOWING ROUTINE SETS UP TO TRANSFER TO @Y17XAR4*/ 00756000 */* IGC0010D, THE FIRST LOAD OF OPERATOR CONTROL @Y17XAR4*/ 00757000 */* */ 00758000 */********************************************************************/ 00759000 * 0592 00760000 *SETUP00: /* @Y17XAR4*/ 00761000 * RESPECIFY 0592 00762000 * RZERO RESTRICTED; /* RESTRICT REG ZERO @Y17XAR4*/ 00763000 SETUP00 DS 0H 0593 00764000 * RZERO=ZERO; /* NO RETURN CODE @Y17XAR4*/ 00765000 SLR RZERO,RZERO 0593 00766000 * OPCMODID=FRSTLOAD; /* XCTL TO IGC0010D @Y17XAR4*/ 00767000 MVC OPCMODID(2,ROPCAVT),@CC03137 0594 00768000 * CALL XCTL; /* EXIT THIS MODULE @Y17XAR4*/ 00769000 BAL @14,XCTL 0595 00770000 * 0596 00771000 */********************************************************************/ 00772000 */* */ 00773000 */* TERMINATION PROCESSING @Y17XAR4*/ 00774000 */* */ 00775000 */********************************************************************/ 00776000 * 0596 00777000 *XCTLOK: 0596 00778000 * RESPECIFY 0596 00779000 * RPARM RESTRICTED; /* RESTRICT REG. ONE @Y17XAR4*/ 00780000 XCTLOK DS 0H 0597 00781000 * OCSWITCH=OCSWITCH|HEX40; /* SET FLAG SO MSG MODULE WILL 0597 00782000 * NOT INSERT 'ALL' IN MSG */ 00783000 OI OCSWITCH(ROPCE),X'40' 0597 00784000 * IF RPREV=ZERO /* IF ERROR BUFFER @Y17XAR4*/ 00785000 * THEN 0598 00786000 LTR RPREV,RPREV 0598 00787000 BNZ @RF00598 0598 00788000 * DO; /* THEN SET TO EXIT @YA10019*/ 00789000 * PRFTI0=ADDR(IEDQPRF); /* LINK IN ERROR BFR @Y17XAR4*/ 00790000 STCM IEDQPPTR,7,PRFTI0(IEDQPPTR) 0600 00791000 * PRFNBUNT=TWO; /* SET UNIT NUMBER @Y17XAR4*/ 00792000 MVI PRFNBUNT(IEDQPPTR),X'02' 0601 00793000 * OPCMODID=WRT03; /* SET MESSAGE RTN @Y17XAR4*/ 00794000 MVC OPCMODID(2,ROPCAVT),@CC03139 0602 00795000 * OCPARM=TWELVE; /* SET MSG. NUMBER @Y17XAR4*/ 00796000 LA @15,12 0603 00797000 STH @15,OCPARM(,ROPCE) 0603 00798000 * RZERO=TWELVE; /* SET MSG. NUMBER @Y17XAR4*/ 00799000 LR RZERO,@15 0604 00800000 * IF OCTOTE=ON| /* TOTE REQUEST OR @Y17XAR4*/ 00801000 * OCMPP=ON /* APPLICATION REQ @Y17XAR4*/ 00802000 * THEN 0605 00803000 TM OCTOTE(ROPCE),B'01100000' 0605 00804000 BZ @RF00605 0605 00805000 * DO; /* THEN @YA10019*/ 00806000 * RZERO=FOUR; /* SET RETURN CODE @Y17XAR4*/ 00807000 LA RZERO,4 0607 00808000 * OPCMODID=WRT07; /* EXIT TO IGC0710D @Y17XAR4*/ 00809000 MVC OPCMODID(2,ROPCAVT),@CC03143 0608 00810000 * END; /* @YA10019*/ 00811000 * GO TO XCTL; /* EXIT TO NXT RTN @YA10019*/ 00812000 B XCTL 0610 00813000 * END; /* @YA10019*/ 00814000 * ELSE /* NOT ERROR BUFFER @Y17XAR4*/ 00815000 * IF OCTOTE=ON| /* TOTE REQUEST? OR */ 00816000 * OCMPP=ON THEN /* MPP REQUEST? */ 00817000 @RF00598 TM OCTOTE(ROPCE),B'01100000' 0612 00818000 BZ @RF00612 0612 00819000 * DO; /* YES */ 00820000 * OCPARM=ZERO; /* GOOD RETURN CODE */ 00821000 SLR @15,@15 0614 00822000 STH @15,OCPARM(,ROPCE) 0614 00823000 * OCWTG=WRT07; /* NAME OF WRITER MODULE */ 00824000 MVC OCWTG(2,ROPCE),@CC03143 0615 00825000 * END; 0616 00826000 * ELSE /* NO, NOT TOTE OR MPP */ 00827000 * DO; 0617 00828000 B @RC00612 0617 00829000 @RF00612 DS 0H 0618 00830000 * OCPARM=RZERO; /* MESSAGE NUMBER */ 00831000 STH RZERO,OCPARM(,ROPCE) 0618 00832000 * OCWTG=WRT09; /* NAME OF MESSAGE MODULE */ 00833000 MVC OCWTG(2,ROPCE),@CC03145 0619 00834000 * END; 0620 00835000 * OPCMODID=CHKPT; /* CHECKPOINT MODULE @Y17XAR4*/ 00836000 @RC00612 MVC OPCMODID(2,ROPCAVT),@CC03141 0621 00837000 *XCTL: /* @Y17XAR4*/ 00838000 * OPCFLAG1=ZERO; /* CLEAR ALL FLAGS @Y17XAR4*/ 00839000 XCTL MVI OPCFLAG1(ROPCAVT),X'00' 0622 00840000 * RPARM=ROPCAVT; /* OP CTL AVT ADDRESS */ 00841000 LR RPARM,ROPCAVT 0623 00842000 * GEN EXIT REFS(OPCXCTL); 0624 00843000 * /* GENERATE XCTL @Y17XAR4*/ 00844000 XCTL SF=(E,OPCXCTL(ROPCAVT)) XCTL TO NEXT MODULE @Y17XAR4 00845000 * RESPECIFY 0625 00846000 * RZERO UNRESTRICTED; /* FREE REG. ZERO @Y17XAR4*/ 00847000 * 0626 00848000 */********************************************************************/ 00849000 */* */ 00850000 */* THIS SUBROUTINE SETS THE HOLD FLAGS ON OR OFF @Y17XAR4*/ 00851000 */* IN THE TTE AND THE QCB, FOR VARY OFFTP,B AND @Y17XAR4*/ 00852000 */* VARY ONTP,B COMMANDS. RPARM (REG. 1) POINTS @Y17XAR4*/ 00853000 */* TO THE TTE PREFIX AT ENTRY. @Y17XAR4*/ 00854000 */* */ 00855000 */********************************************************************/ 00856000 * 0626 00857000 *ONOFFTPB: /* @Y17XAR4*/ 00858000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XAR4*/ 00859000 B @PB00011 0626 00860000 ONOFFTPB DS 0H 0627 00861000 * OPCWRKSP(FOUR)=RRET; /* SAVE RETURN ADDR. @Y17XAR4*/ 00862000 ST RRET,OPCWRKSP+12(,ROPCAVT) 0627 00863000 * IF OCSWITCH=OCONTPB THEN /* VARY ONTP, B ? @Y17XAR4*/ 00864000 CLI OCSWITCH(ROPCE),X'0B' 0628 00865000 BNE @RF00628 0628 00866000 * DO; /* YES @Y17XAR4*/ 00867000 * RPARM->TRMHELDN=OFF; /* INDICATE NOT HELD @Y17XAR4*/ 00868000 NI TRMHELDN(RPARM),B'11111011' 0630 00869000 * QCBTRMHO=OFF; /* IN TTE AND QCB @Y17XAR4*/ 00870000 NI QCBTRMHO(IEDQQPTR),B'10111111' 0631 00871000 * END; /* @Y17XAR4*/ 00872000 * ELSE /* NOT VARY ONTP, B @Y17XAR4*/ 00873000 * IF OCSWITCH=OCOFFTPB THEN /* VARY OFFTP, B ? @Y17XAR4*/ 00874000 B @RC00628 0633 00875000 @RF00628 CLI OCSWITCH(ROPCE),X'06' 0633 00876000 BNE @RF00633 0633 00877000 * DO; /* YES @Y17XAR4*/ 00878000 * RPARM->TRMHELDN=ON; /* INDICATE HELD IN @Y17XAR4*/ 00879000 OI TRMHELDN(RPARM),B'00000100' 0635 00880000 * QCBTRMHO=ON; /* TTE AND QCB @Y17XAR4*/ 00881000 OI QCBTRMHO(IEDQQPTR),B'01000000' 0636 00882000 * END; /* @Y17XAR4*/ 00883000 * ELSE 0638 00884000 * ; /* NOT A B-TYPE CMD. @Y17XAR4*/ 00885000 @RF00633 DS 0H 0639 00886000 * RRET=OPCWRKSP(FOUR); /* GET RETURN ADDR. @Y17XAR4*/ 00887000 @RC00628 L RRET,OPCWRKSP+12(,ROPCAVT) 0639 00888000 * RETURN; /* RETURN TO CALLER @Y17XAR4*/ 00889000 @EL00011 DS 0H 0640 00890000 @EF00011 DS 0H 0640 00891000 @ER00011 BR @14 0640 00892000 * END ONOFFTPB; /* @Y17XAR4*/ 00893000 * 0642 00894000 */********************************************************************/ 00895000 */* THIS SUBROUTINE FREES A PLCB BY POSTING IT TO ITSELF */ 00896000 */* WITH A E0 PRIORITY, WHICH WILL CAUSE TCAM TO RESUME */ 00897000 */* NORMAL SCHEDULING OF OPERATIONS FOR THE PLCB'S TERM- */ 00898000 */* INAL, OR IT POSTS A PLCB TO STOPLINE (IEDNSL) @Y17XAR4*/ 00899000 */* TO PUT THE SEND SCHEDULER'S STCB INTO THE @Y17XAR4*/ 00900000 */* PLCB'S STCB CHAIN. IN EITHER CASE, LCBQCBA @Y17XAR4*/ 00901000 */* AND LCBPRI ARE ALREADY SET AT ENTRY. @Y17XAR4*/ 00902000 */********************************************************************/ 00903000 * 0642 00904000 *POSTPLCB: /* @Y17XAR4*/ 00905000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XAR4*/ 00906000 POSTPLCB DS 0H 0643 00907000 * RFY 0643 00908000 * RCURRENT RSTD; 0643 00909000 * OPCWRKSP(THREE)=RRET; /* SAVE RETURN ADDR. @Y17XAR4*/ 00910000 ST RRET,OPCWRKSP+8(,ROPCAVT) 0644 00911000 */********************************************************************/ 00912000 */* THIS SECTION SETS UP THE PARAMETER LIST AND @Y17XAR4*/ 00913000 */* EXECUTES AN SVC 102 TO TPOST AN ELEMENT TO A TCAM QCB.*/ 00914000 */* THE ELEMENT ADDRESS IS IN RPARM AND THE QCB ADDRESS */ 00915000 */* IS IN THE FIRST WORD OF THE ELEMENT. @Y17XAR4*/ 00916000 */********************************************************************/ 00917000 * 0645 00918000 *DOITAGIN: 0645 00919000 * RCURRENT=TCXREADY; /* GET CURENT ELEM @Y17XARR*/ 00920000 DOITAGIN L @15,CVTPTR 0645 00921000 L @15,TCXPTR(,@15) 0645 00922000 L RCURRENT,TCXREADY(,@15) 0645 00923000 * LCBLINK=RCURRENT; /* LINK CUR. TO PLCB @Y17XARR*/ 00924000 STCM RCURRENT,7,LCBLINK(IEDQLPTR) 0646 00925000 * CS(RCURRENT,RLCB,TCXREADY); /* SWAP PLCB ON QUE @Y17XARR*/ 00926000 CS RCURRENT,@09,TCXREADY(@15) 0647 00927000 * BC(7,DOITAGIN); /* NO, TRY IT AGAIN @Y17XARR*/ 00928000 BC 7,DOITAGIN 0648 00929000 * OPCAQFST=ADDR(AVTOSECB); /* GET THE ECB ADDR @Y17XARR*/ 00930000 LA @15,AVTOSECB(,IEDQAPTR) 0649 00931000 STCM @15,7,OPCAQFST(ROPCAVT) 0649 00932000 * OPCAQWD2=ADDR(AVTFZERO); /* CLEAR FOR TJID @Y17XARR*/ 00933000 LA @15,AVTFZERO(,IEDQAPTR) 0650 00934000 ST @15,OPCAQWD2(,ROPCAVT) 0650 00935000 * OPCAQREQ=REQSTCDE; /* THIS IS A POST @Y17XARR*/ 00936000 MVI OPCAQREQ(ROPCAVT),X'20' 0651 00937000 * OPCAQRQ3=ENDLIST; /* MARK END OF LIST @Y17XARR*/ 00938000 MVI OPCAQRQ3(ROPCAVT),X'80' 0652 00939000 * OPCAQLST=TCXTCB; /* GET TCAM TCB ADDR @Y17XARR*/ 00940000 L @15,CVTPTR 0653 00941000 L @15,TCXPTR(,@15) 0653 00942000 MVC OPCAQLST(3,ROPCAVT),TCXTCB+1(@15) 0653 00943000 * RPARM=ADDR(OPCAQCTL); /* ADDR OF SVC 102 PARM LIST */ 00944000 LA RPARM,OPCAQCTL(,ROPCAVT) 0654 00945000 * SVC(102); /* TPOST THE ELEMENT @Y17XAR4*/ 00946000 SVC 102 0655 00947000 * RRET=OPCWRKSP(THREE); /* GET RETURN ADDR. @Y17XAR4*/ 00948000 L RRET,OPCWRKSP+8(,ROPCAVT) 0656 00949000 * RFY 0657 00950000 * RCURRENT UNRSTD; 0657 00951000 * END POSTPLCB; /* PLCB IS POSTED @Y17XAR4*/ 00952000 @EL00012 DS 0H 0658 00953000 @EF00012 DS 0H 0658 00954000 @ER00012 BR @14 0658 00955000 * 0659 00956000 */********************************************************************/ 00957000 */* THIS SUBROUTINE FREES A BUFFER BY CALLING THE @Y17XAR4*/ 00958000 */* OPCFREBF ROUTINE, WHICH POSTS THE BUFFER TO @Y17XAR4*/ 00959000 */* THE BUFFER RETURN QCB. @Y17XAR4*/ 00960000 */********************************************************************/ 00961000 * 0659 00962000 *BUFFREE: /* @Y17XAR4*/ 00963000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XAR4*/ 00964000 BUFFREE DS 0H 0660 00965000 * RESPECIFY 0660 00966000 * RSAVE RESTRICTED; /* RESTRICT REG. 13 @Y17XAR4*/ 00967000 * OPCWRKSP(THREE)=RRET; /* SAVE RETURN ADDR. @Y17XAR4*/ 00968000 ST RRET,OPCWRKSP+8(,ROPCAVT) 0661 00969000 * PRFTIC=ENDCHAIN; /* SET INVALID TIC @Y17XAR4*/ 00970000 MVC PRFTIC(4,IEDQPPTR),@CB02163 0662 00971000 * RPARM=RPRF; /* PASS BUFFER ADDR. @Y17XAR4*/ 00972000 LR RPARM,RPRF 0663 00973000 * RSAVE=ADDR(OPCSAVE); /* SAVE AREA ADDRESS @Y17XAR4*/ 00974000 LA RSAVE,OPCSAVE(,ROPCAVT) 0664 00975000 * CALL FREEBUF; /* CALL OPCFREBF ROUTINE TO FREE 00976000 * BUFFER @Y17XAR4*/ 00977000 L @15,OPCFREBF(,ROPCAVT) 0665 00978000 BALR @14,@15 0665 00979000 * RRET=OPCWRKSP(THREE); /* GET RETURN ADDR. @Y17XAR4*/ 00980000 L RRET,OPCWRKSP+8(,ROPCAVT) 0666 00981000 * RETURN; /* RETURN TO CALLER @Y17XAR4*/ 00982000 @EL00013 DS 0H 0667 00983000 @EF00013 DS 0H 0667 00984000 @ER00013 BR @14 0667 00985000 * RESPECIFY 0668 00986000 * RSAVE UNRESTRICTED; /* FREE UP REG. 13 @Y17XAR4*/ 00987000 * RESPECIFY 0669 00988000 * RPARM UNRESTRICTED; /* FREE UP REG. ONE @Y17XAR4*/ 00989000 * END BUFFREE; /* END OF SUBROUTINE @Y17XAR4*/ 00990000 * END IGCVF10D 0671 00991000 * 0671 00992000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00993000 */*%INCLUDE SYSLIB (TAVTD ) */ 00994000 */*%INCLUDE SYSLIB (CVT ) */ 00995000 */*%INCLUDE SYSLIB (TLCBD ) */ 00996000 */*%INCLUDE SYSLIB (TNSLD ) */ 00997000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00998000 */*%INCLUDE SYSLIB (TOPCED ) */ 00999000 */*%INCLUDE SYSLIB (TOPRED ) */ 01000000 */*%INCLUDE SYSLIB (TPRFD ) */ 01001000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01002000 */*%INCLUDE SYSLIB (TQCBD ) */ 01003000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01004000 */*%INCLUDE SYSLIB (TTCXD ) */ 01005000 */*%INCLUDE SYSLIB (TTRMD ) */ 01006000 * 0671 01007000 * ; 0671 01008000 @EL00001 DS 0H 0671 01009000 @EF00001 DS 0H 0671 01010000 @ER00001 BR @14 0671 01011000 @DATA DS 0H 01012000 DS 0F 01013000 DS 0F 01014000 @CF00100 DC F'3' 01015000 @CF01628 DC F'14' 01016000 @CF02163 DC XL4'08000002' 01017000 @CF03122 DC XL4'00FFFFFF' 01018000 @CF03226 DC XL4'0000FFFF' 01019000 DS 0D 01020000 @CC03135 DC C'VF' 01021000 @CC03137 DC C'00' 01022000 @CC03139 DC C'03' 01023000 @CC03141 DC C'06' 01024000 @CC03143 DC C'07' 01025000 @CC03145 DC C'09' 01026000 @CB02163 DC X'08000002' 01027000 @CB03218 DC B'000000000000000000000000100000000000000000000000000000C01028000 00' 01029000 @CB03222 DC B'111111111111111111111111011111111111111111111111111111C01030000 11' 01031000 @CB03227 DC B'000000000000000000000000000000010000000000000000000000C01032000 00' 01033000 @CB03231 DC B'111111111111111111111111111111101111111111111111111111C01034000 11' 01035000 VFPATCH DC 204X'00' 01036000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01037000 @01 EQU 01 01038000 @02 EQU 02 01039000 @03 EQU 03 01040000 @04 EQU 04 01041000 @05 EQU 05 01042000 @06 EQU 06 01043000 @07 EQU 07 01044000 @08 EQU 08 01045000 @09 EQU 09 01046000 @10 EQU 10 01047000 @11 EQU 11 01048000 @12 EQU 12 01049000 @13 EQU 13 01050000 @14 EQU 14 01051000 @15 EQU 15 01052000 RZERO EQU @00 01053000 RPARM EQU @01 01054000 ROPCAVT EQU @02 01055000 ROPCE EQU @03 01056000 ROPRE EQU @03 01057000 RAVT EQU @04 01058000 IEDQAPTR EQU @04 01059000 RPREV EQU @05 01060000 RPRF EQU @06 01061000 IEDQPPTR EQU @06 01062000 IEDNSLP EQU @06 01063000 RQCB EQU @07 01064000 IEDQQPTR EQU @07 01065000 RTRM EQU @08 01066000 RLCB EQU @09 01067000 IEDQLPTR EQU @09 01068000 RCURRENT EQU @10 01069000 RSAVE EQU @13 01070000 RRET EQU @14 01071000 LCBXPTR EQU @05 01072000 RBASE EQU @12 01073000 RBRNCH EQU @15 01074000 RWORK EQU @10 01075000 CVTPTR EQU 16 01076000 TCBPTR EQU 0 01077000 TCBFIX EQU 0 01078000 TCBFRS EQU TCBFIX 01079000 TCB EQU 0 01080000 TCBPIE EQU TCB+4 01081000 TCBPMASK EQU TCBPIE 01082000 TCBCMP EQU TCB+16 01083000 TCBCMPF EQU TCBCMP 01084000 TCBCPP EQU TCBCMPF 01085000 TCBSTCC EQU TCBCMPF 01086000 TCBCDBL EQU TCBCMPF 01087000 TCBCWTO EQU TCBCMPF 01088000 TCBCIND EQU TCBCMPF 01089000 TCBCMSG EQU TCBCMPF 01090000 TCBTRN EQU TCB+20 01091000 TCBABF EQU TCBTRN 01092000 TCBMSS EQU TCB+24 01093000 TCBPKF EQU TCB+28 01094000 TCBFLGS EQU TCB+29 01095000 TCBFLGS1 EQU TCBFLGS 01096000 TCBFERA EQU TCBFLGS1 01097000 TCBNONPR EQU TCBFLGS1 01098000 TCBPDUMP EQU TCBFLGS1 01099000 TCBFT EQU TCBFLGS1 01100000 TCBFLGS2 EQU TCBFLGS+1 01101000 TCBSYSTK EQU TCBFLGS2 01102000 TCBFDSOP EQU TCBFLGS2 01103000 TCBFLGS3 EQU TCBFLGS+2 01104000 TCBADINP EQU TCBFLGS3 01105000 TCBABTRM EQU TCBFLGS3 01106000 TCBABGM EQU TCBFLGS3 01107000 TCBRSV06 EQU TCBFLGS3 01108000 TCBRSV07 EQU TCBFLGS3 01109000 TCBRSV08 EQU TCBFLGS3 01110000 TCBDWSTA EQU TCBFLGS3 01111000 TCBFLGS4 EQU TCBFLGS+3 01112000 TCBFLGS5 EQU TCBFLGS+4 01113000 TCBABWF EQU TCBFLGS5 01114000 TCBFTJST EQU TCB+44 01115000 TCBJPQ EQU TCBFTJST 01116000 TCBPURGE EQU TCBJPQ 01117000 TCBFTJSA EQU TCBJPQ+1 01118000 TCBGRS EQU TCB+48 01119000 TCBFSA EQU TCB+112 01120000 TCBIDF EQU TCBFSA 01121000 TCBTME EQU TCB+120 01122000 TCBPIB EQU TCB+124 01123000 TCBJSTCB EQU TCBPIB 01124000 TCBPIBT EQU TCBJSTCB 01125000 TCBPIBA EQU TCBJSTCB+1 01126000 TCBTSFLG EQU TCB+148 01127000 TCBTSTSK EQU TCBTSFLG 01128000 TCBPQE EQU TCB+152 01129000 TCBFTFLG EQU TCBPQE+1 01130000 TCBFTFL1 EQU TCBFTFLG 01131000 TCBFTFL2 EQU TCBFTFLG+1 01132000 TCBFTFL3 EQU TCBFTFLG+2 01133000 TCBAQE EQU TCB+156 01134000 TCBSTAB EQU TCB+160 01135000 TCBNSTAE EQU TCBSTAB 01136000 TCBXCTL EQU TCBNSTAE 01137000 TCBSCAT EQU TCBNSTAE 01138000 TCBSUPER EQU TCBNSTAE 01139000 TCBRETRY EQU TCBNSTAE 01140000 TCBVALID EQU TCBNSTAE 01141000 TCBTCT EQU TCB+164 01142000 TCBTCTGF EQU TCBTCT 01143000 TCBSCNDY EQU TCB+172 01144000 TCBNDSP EQU TCBSCNDY 01145000 TCBNDSP1 EQU TCBNDSP+1 01146000 TCBNDSP2 EQU TCBNDSP+2 01147000 TCBNDSP3 EQU TCBNDSP+3 01148000 TCBLJSND EQU TCBNDSP3 01149000 TCBRV302 EQU TCBNDSP3 01150000 TCBSRBND EQU TCBNDSP3 01151000 TCBNDINT EQU TCBNDSP3 01152000 TCBJSCB EQU TCB+180 01153000 TCBRECDE EQU TCBJSCB 01154000 TCBEXT1 EQU TCB+196 01155000 TCBBITS EQU TCB+200 01156000 TCBNDSP4 EQU TCBBITS 01157000 TCBNDSP5 EQU TCBBITS+1 01158000 TCBFLGS6 EQU TCBBITS+2 01159000 TCBCPU EQU TCBFLGS6 01160000 TCBSPVLK EQU TCBFLGS6 01161000 TCBRV303 EQU TCBFLGS6 01162000 TCBMIGR EQU TCBFLGS6 01163000 TCBAPG EQU TCBFLGS6 01164000 TCBNTJS EQU TCBFLGS6 01165000 TCBFLGS7 EQU TCBBITS+3 01166000 TCBGPECB EQU TCBFLGS7 01167000 TCBRSV33 EQU TCBFLGS7 01168000 TCBRSV34 EQU TCBFLGS7 01169000 TCBSTACK EQU TCBFLGS7 01170000 TCBRSTSK EQU TCBFLGS7 01171000 TCBADMP EQU TCBFLGS7 01172000 TCBDAR EQU TCB+204 01173000 TCBDARC EQU TCBDAR 01174000 TCBEXT2 EQU TCB+208 01175000 TCBPCB EQU TCB+212 01176000 TCBARB EQU TCB+220 01177000 TCBTTQE EQU TCB+224 01178000 IEDQAVTD EQU 0 01179000 AVTSAVEX EQU IEDQAVTD+288 01180000 @NM00003 EQU IEDQAVTD+388 01181000 AVTCKFLG EQU @NM00003 01182000 AVTBASE EQU IEDQAVTD+412 01183000 AVTPKF EQU AVTBASE 01184000 AVTRNMPT EQU IEDQAVTD+424 01185000 AVTAS EQU IEDQAVTD+456 01186000 AVTOSECB EQU IEDQAVTD+492 01187000 AVTECB1 EQU AVTOSECB 01188000 AVTHG02 EQU IEDQAVTD+528 01189000 AVTDISP EQU IEDQAVTD+552 01190000 AVTHD EQU IEDQAVTD+556 01191000 AVTSCOPT EQU AVTHD 01192000 AVTSAVTP EQU IEDQAVTD+612 01193000 AVTSAVTF EQU AVTSAVTP 01194000 AVTCKPEL EQU IEDQAVTD+652 01195000 AVTCKRMV EQU AVTCKPEL 01196000 AVTCKELF EQU IEDQAVTD+680 01197000 AVTCKBYT EQU IEDQAVTD+691 01198000 AVTHG01 EQU IEDQAVTD+692 01199000 AVTCKLNK EQU IEDQAVTD+696 01200000 AVTCRELE EQU IEDQAVTD+708 01201000 AVTCCELE EQU AVTCRELE 01202000 AVTCLRHI EQU IEDQAVTD+716 01203000 AVTADBUF EQU IEDQAVTD+720 01204000 AVTSYSER EQU IEDQAVTD+728 01205000 AVTCKPQB EQU IEDQAVTD+804 01206000 AVTCKPTB EQU AVTCKPQB 01207000 AVTCKPEC EQU AVTCKPQB+4 01208000 AVTCKPCC EQU AVTCKPEC 01209000 AVTOPCQB EQU IEDQAVTD+816 01210000 AVTOPCOB EQU AVTOPCQB 01211000 AVTOPCEC EQU AVTOPCQB+4 01212000 AVTOPCCC EQU AVTOPCEC 01213000 AVTOLTQB EQU IEDQAVTD+828 01214000 AVTFZERO EQU IEDQAVTD+908 01215000 AVTCWFL1 EQU IEDQAVTD+924 01216000 AVTCWFL2 EQU IEDQAVTD+925 01217000 AVTSUBT EQU IEDQAVTD+948 01218000 AVTIOTR EQU IEDQAVTD+949 01219000 AVTBIT1 EQU IEDQAVTD+1050 01220000 AVTBIT2 EQU IEDQAVTD+1051 01221000 AVTBIT3 EQU IEDQAVTD+1052 01222000 AVTSTAIN EQU AVTBIT3 01223000 AVTBIT4 EQU IEDQAVTD+1136 01224000 @NM00085 EQU IEDQAVTD+1232 01225000 IEDNSVTD EQU 0 01226000 SAVTDIAG EQU IEDNSVTD 01227000 SAVTDIAF EQU SAVTDIAG 01228000 SAVTLUSQ EQU IEDNSVTD+88 01229000 SAVTSPLN EQU IEDNSVTD+224 01230000 SAVTTCPU EQU IEDNSVTD+238 01231000 SAVTZELM EQU IEDNSVTD+270 01232000 SAVTRDRV EQU IEDNSVTD+284 01233000 SAVTCKQB EQU IEDNSVTD+300 01234000 SAVTCKTB EQU SAVTCKQB 01235000 SAVTCKEC EQU SAVTCKQB+4 01236000 SAVTCKCC EQU SAVTCKEC 01237000 CVTMAP EQU 0 01238000 CVTDAR EQU CVTMAP+72 01239000 CVTFLGS1 EQU CVTDAR 01240000 CVTDCB EQU CVTMAP+116 01241000 CVTIERLC EQU CVTMAP+144 01242000 CVTOPTA EQU CVTMAP+182 01243000 CVTOPTB EQU CVTMAP+183 01244000 CVTGTF EQU CVTMAP+236 01245000 CVTGTFST EQU CVTGTF 01246000 CVTGTFS EQU CVTGTFST 01247000 CVTSTATE EQU CVTGTFST 01248000 CVTTMODE EQU CVTGTFST 01249000 CVTFORM EQU CVTGTFST 01250000 CVTAQAVT EQU CVTMAP+240 01251000 CVTTCMFG EQU CVTAQAVT 01252000 CVTVOLM2 EQU CVTMAP+244 01253000 CVTTATA EQU CVTVOLM2 01254000 CVTTSKS EQU CVTTATA 01255000 CVTVOLF2 EQU CVTTSKS 01256000 CVTTAT EQU CVTTATA+1 01257000 CVTATER EQU CVTMAP+248 01258000 CVTEXT1 EQU CVTMAP+252 01259000 CVTPURG EQU CVTMAP+260 01260000 CVTQMSG EQU CVTMAP+268 01261000 CVTDMSR EQU CVTMAP+272 01262000 CVTRSV37 EQU CVTDMSR 01263000 CVTDMSRF EQU CVTRSV37 01264000 CVTERPV EQU CVTMAP+316 01265000 CVTINTLA EQU CVTMAP+320 01266000 CVTAPF EQU CVTMAP+324 01267000 CVTEXT2 EQU CVTMAP+328 01268000 CVTHJES EQU CVTMAP+332 01269000 CVTPGSIA EQU CVTMAP+348 01270000 CVTA1F1 EQU CVTMAP+356 01271000 CVTSYSK EQU CVTMAP+357 01272000 CVTVOLM1 EQU CVTMAP+380 01273000 CVTVOLF1 EQU CVTVOLM1 01274000 CVTATMCT EQU CVTMAP+388 01275000 CVTXTNT1 EQU 0 01276000 CVTXTNT2 EQU 0 01277000 CVTDSSV EQU CVTXTNT2 01278000 CVTFLGBT EQU CVTXTNT2+5 01279000 CVTQID EQU CVTXTNT2+24 01280000 CVTSHS EQU CVTXTNT2+40 01281000 CVTRV400 EQU CVTXTNT2+52 01282000 CVTRV409 EQU CVTXTNT2+53 01283000 CVTATCVT EQU CVTXTNT2+64 01284000 CVTRV429 EQU CVTXTNT2+84 01285000 CVTRV438 EQU CVTXTNT2+85 01286000 CVTRV457 EQU CVTXTNT2+112 01287000 CVTRV466 EQU CVTXTNT2+113 01288000 CVTFIX EQU 0 01289000 CVTRELNO EQU CVTFIX+252 01290000 IEDQLCB EQU 0 01291000 LCBRCB EQU IEDQLCB 01292000 LCBQCBA EQU LCBRCB+1 01293000 LCBPRI EQU LCBRCB+4 01294000 LCBLINK EQU LCBRCB+5 01295000 LCBTSOB EQU IEDQLCB+19 01296000 LCBCHAIN EQU IEDQLCB+20 01297000 LCBSCRNN EQU LCBCHAIN 01298000 LCBTETEN EQU LCBCHAIN 01299000 LCBINSRC EQU IEDQLCB+21 01300000 LCBLKMDE EQU LCBINSRC+2 01301000 LCBNTXT EQU IEDQLCB+24 01302000 LCBSTAT4 EQU LCBNTXT 01303000 LCBPHASE EQU LCBSTAT4 01304000 LCBSCBDA EQU IEDQLCB+25 01305000 LCBMHA EQU IEDQLCB+29 01306000 LCBFLAG1 EQU IEDQLCB+32 01307000 LCBIOBSN EQU IEDQLCB+33 01308000 LCBSNS EQU LCBIOBSN+1 01309000 LCBSENS0 EQU LCBSNS 01310000 LCBLOSDT EQU LCBSENS0 01311000 LCBTMOUT EQU LCBSENS0 01312000 LCBFLAG3 EQU LCBIOBSN+7 01313000 LCBCSW EQU LCBIOBSN+8 01314000 LCBCSWST EQU LCBCSW+3 01315000 LCBCSWUS EQU LCBCSWST 01316000 LCBCSWCS EQU LCBCSWST+1 01317000 LCBSIOCC EQU LCBIOBSN+15 01318000 LCBDCBPT EQU IEDQLCB+52 01319000 LCBRCQCB EQU IEDQLCB+56 01320000 LCBTHSQ EQU IEDQLCB+60 01321000 LCBINCAM EQU LCBTHSQ 01322000 LCBERRCT EQU IEDQLCB+62 01323000 LCBLSPCI EQU IEDQLCB+65 01324000 LCBRCBFR EQU LCBLSPCI 01325000 LCBSTATE EQU IEDQLCB+70 01326000 LCBSTAT1 EQU LCBSTATE 01327000 LCBSTAT2 EQU LCBSTATE+1 01328000 LCBBEOTN EQU LCBSTAT2 01329000 LCBSYNC EQU LCBSTAT2 01330000 LCBDIAL EQU LCBSTAT2 01331000 LCBTSTSW EQU IEDQLCB+72 01332000 LCBERB EQU IEDQLCB+76 01333000 LCBERBST EQU IEDQLCB+84 01334000 LCBDLNKN EQU LCBERBST 01335000 LCBERBCT EQU IEDQLCB+88 01336000 LCBRBCT2 EQU LCBERBCT+1 01337000 LCBTTCIN EQU IEDQLCB+90 01338000 LCBMSGFM EQU IEDQLCB+92 01339000 LCBOBRCH EQU IEDQLCB+96 01340000 LCBINVPT EQU LCBOBRCH+1 01341000 LCBBFRW EQU LCBINVPT 01342000 LCBTPCD EQU IEDQLCB+100 01343000 LCBSTAT5 EQU LCBTPCD 01344000 LCBSTAT6 EQU LCBTPCD+4 01345000 LCBRSPSV EQU LCBTPCD+8 01346000 LCBSAVSN EQU IEDQLCB+112 01347000 LCBERCCW EQU IEDQLCB+120 01348000 LCBCPA EQU IEDQLCB+144 01349000 LCBCCW5 EQU LCBCPA+32 01350000 IEDQLCBX EQU 0 01351000 LCBXCON EQU IEDQLCBX 01352000 LCBXFLAG EQU LCBXCON 01353000 LCBXDCT EQU LCBXCON+1 01354000 LCBXRADR EQU LCBXCON+4 01355000 IEDNNSLD EQU 0 01356000 IEDNSLD EQU 0 01357000 NSLPLCB EQU IEDNSLD+8 01358000 NSLGPCUS EQU IEDNSLD+12 01359000 NSLERB EQU IEDNSLD+20 01360000 NSLESTAT EQU NSLERB+8 01361000 NSLGRPNM EQU IEDNSLD+36 01362000 NSLOPCEP EQU NSLGRPNM 01363000 IEDQOPCD EQU 0 01364000 OPCAVTPT EQU IEDQOPCD+8 01365000 OPCCOPCE EQU IEDQOPCD+12 01366000 OPCSAVE EQU IEDQOPCD+56 01367000 OPCFLAG1 EQU IEDQOPCD+146 01368000 OPCAQCTL EQU IEDQOPCD+180 01369000 OPCXCTL EQU IEDQOPCD+204 01370000 OPCLDNME EQU IEDQOPCD+212 01371000 OPCMODID EQU OPCLDNME+3 01372000 OPCFREBF EQU IEDQOPCD+280 01373000 OPCSPEC EQU IEDQOPCD+300 01374000 OPCRSTRT EQU OPCSPEC 01375000 OPCWRKSP EQU IEDQOPCD+320 01376000 OPCWAITV EQU IEDQOPCD+364 01377000 OPCPWCOB EQU IEDQOPCD+368 01378000 OPCPWQCB EQU OPCPWCOB 01379000 OPCPWECB EQU OPCPWCOB+4 01380000 IEDQOPCE EQU 0 01381000 OCLINK EQU IEDQOPCE 01382000 OCELEM EQU IEDQOPCE+4 01383000 OCELMPRI EQU OCELEM 01384000 OCUNIT EQU IEDQOPCE+8 01385000 OCRUDEST EQU OCUNIT 01386000 OCCKPKEY EQU OCRUDEST 01387000 OCSCAN EQU OCCKPKEY 01388000 OCOPTCDE EQU IEDQOPCE+12 01389000 OCPRIFLG EQU OCOPTCDE 01390000 OCSWITCH EQU IEDQOPCE+13 01391000 OCFLAG EQU IEDQOPCE+14 01392000 OCTOTE EQU OCFLAG 01393000 OCMPP EQU OCFLAG 01394000 @NM00170 EQU IEDQOPCE+16 01395000 OCDEST EQU @NM00170 01396000 OCREQVAL EQU OCDEST+1 01397000 OCTRMTBL EQU IEDQOPCE+20 01398000 OCLINENO EQU IEDQOPCE+22 01399000 OCTIOT EQU OCLINENO 01400000 OCTRUNIT EQU IEDQOPCE+24 01401000 OCRSID EQU OCTRUNIT 01402000 OCALSTAT EQU OCRSID 01403000 OCSOME EQU OCALSTAT 01404000 OCNONE EQU OCALSTAT 01405000 OCPARM EQU IEDQOPCE+28 01406000 OCWTG EQU IEDQOPCE+30 01407000 OCBACKUP EQU IEDQOPCE+32 01408000 OCMODNME EQU IEDQOPCE+40 01409000 OCIPLWA EQU OCMODNME 01410000 OCCKDATA EQU IEDQOPCE+48 01411000 OCRSTGTM EQU OCCKDATA 01412000 IEDQOPCN EQU 0 01413000 OCLDNME EQU IEDQOPCN 01414000 OCLINTTE EQU OCLDNME 01415000 OCREQFLG EQU OCLINTTE+2 01416000 OCPREFLG EQU OCLINTTE+3 01417000 IEDOPRED EQU 0 01418000 OPRESAVE EQU IEDOPRED+8 01419000 OPREFLG3 EQU IEDOPRED+14 01420000 IEDQPRF EQU 0 01421000 PRFRCB EQU IEDQPRF 01422000 PRFKEY EQU PRFRCB 01423000 PRFQCBA EQU PRFRCB+1 01424000 PRFPRI EQU PRFRCB+4 01425000 PRFLINK EQU PRFRCB+5 01426000 PRFTIC EQU IEDQPRF+8 01427000 PRFTICC EQU PRFTIC 01428000 PRFTI0 EQU PRFTIC+1 01429000 PRFNBUNT EQU IEDQPRF+12 01430000 PRFSUNIT EQU PRFNBUNT 01431000 PRFPLQCB EQU PRFSUNIT 01432000 @NM00189 EQU IEDQPRF+16 01433000 PRFSVFFO EQU @NM00189 01434000 PRFSTAT1 EQU IEDQPRF+20 01435000 PRFEOFN EQU PRFSTAT1 01436000 PRFCORE EQU IEDQPRF+21 01437000 PRFXTRA EQU PRFCORE 01438000 PRFSCAN EQU IEDQPRF+24 01439000 PRFTQBCK EQU IEDQPRF+26 01440000 PRFNTXT EQU PRFTQBCK 01441000 PRFEOBOF EQU PRFNTXT 01442000 PRFCHDR EQU IEDQPRF+32 01443000 PRFHQBCK EQU IEDQPRF+35 01444000 IEDPF1 EQU 0 01445000 PRF1FLG1 EQU IEDPF1+3 01446000 PRF1WD2 EQU IEDPF1+4 01447000 PRF1SEQP EQU PRF1WD2 01448000 PRF1SQID EQU PRF1SEQP 01449000 PRF1TAG1 EQU PRF1SQID 01450000 IEDPF2 EQU 0 01451000 PRF2FLG2 EQU IEDPF2 01452000 PRF2WD2 EQU IEDPF2+4 01453000 IEDQQCB EQU 0 01454000 QCBDSFLG EQU IEDQQCB 01455000 QCBDISK EQU QCBDSFLG 01456000 QCBEOLDT EQU IEDQQCB+16 01457000 QCBBYTE1 EQU QCBEOLDT+1 01458000 QCBLKRLN EQU IEDQQCB+18 01459000 QCBRETCT EQU QCBLKRLN 01460000 QCBSTAT EQU IEDQQCB+19 01461000 QCBTRMHO EQU QCBSTAT 01462000 QCBINSRC EQU IEDQQCB+21 01463000 @NM00197 EQU QCBINSRC 01464000 QCBTSOF2 EQU @NM00197+1 01465000 QCBTSOF1 EQU @NM00197+2 01466000 QCBINTVL EQU IEDQQCB+24 01467000 QCBPREN EQU IEDQQCB+28 01468000 QCBLKRRN EQU QCBPREN+1 01469000 QCBDCBAD EQU IEDQQCB+33 01470000 QCBFLAG EQU IEDQQCB+36 01471000 IEDQPQCB EQU 0 01472000 QCBFHDLZ EQU IEDQPQCB+3 01473000 QCBPFEFO EQU QCBFHDLZ+1 01474000 QCBFHDTZ EQU IEDQPQCB+6 01475000 QCBINTLF EQU IEDQPQCB+12 01476000 IEDNQCB EQU 0 01477000 QCBSTAT1 EQU IEDNQCB+4 01478000 QCBPLCBA EQU IEDNQCB+5 01479000 TCBXTNT2 EQU 0 01480000 TCBGTF EQU TCBXTNT2 01481000 TCBTFLG EQU TCBGTF 01482000 TCBRV146 EQU TCBXTNT2+28 01483000 TCBRV155 EQU TCBXTNT2+29 01484000 TCBRV164 EQU TCBXTNT2+30 01485000 TCBRV173 EQU TCBXTNT2+31 01486000 IEDQTCXD EQU 0 01487000 TCXATTEN EQU IEDQTCXD+4 01488000 TCXTCB EQU IEDQTCXD+8 01489000 TCXREADY EQU IEDQTCXD+24 01490000 TCXFLAG1 EQU IEDQTCXD+34 01491000 TCXBUFA EQU IEDQTCXD+80 01492000 TCXDSAVE EQU IEDQTCXD+104 01493000 TCXQE8 EQU IEDQTCXD+216 01494000 IEDTRM EQU 0 01495000 IEDNTRM EQU IEDTRM 01496000 TRMBYTE4 EQU IEDNTRM 01497000 TRMBYTE3 EQU IEDNTRM+1 01498000 TRMBYTE2 EQU IEDNTRM+2 01499000 TRMRSACT EQU TRMBYTE2 01500000 TRMINPG EQU TRMBYTE2 01501000 TRMBYTE1 EQU IEDNTRM+3 01502000 TRMSCPRQ EQU TRMBYTE1 01503000 TRMSTOTE EQU TRMBYTE1 01504000 TRMCOHRT EQU IEDNTRM+4 01505000 TRMBYTE0 EQU IEDNTRM+6 01506000 TRMSIBPT EQU IEDNTRM+7 01507000 TRMTYPE EQU IEDNTRM+11 01508000 TRMSUBST EQU IEDNTRM+12 01509000 IEDQTRM EQU IEDTRM+14 01510000 TRMSTATE EQU IEDQTRM 01511000 TRMLOG EQU TRMSTATE 01512000 TRMHELDN EQU TRMSTATE 01513000 TRMDESTQ EQU IEDQTRM+1 01514000 TRMINSEQ EQU IEDQTRM+4 01515000 TLISTCNT EQU TRMINSEQ 01516000 TRMOUTSQ EQU IEDQTRM+6 01517000 TLISTEN EQU TRMOUTSQ 01518000 TRMDSORG EQU TLISTEN 01519000 TRMALTD EQU IEDQTRM+8 01520000 TRMDEVFL EQU IEDQTRM+10 01521000 TRMSTAT EQU IEDQTRM+12 01522000 FREEBUF EQU 0 01523000 IEDQTNT EQU 0 01524000 TCXPTR EQU CVTAQAVT 01525000 CVTS01 EQU CVTPGSIA 01526000 CVTLPDIA EQU CVTS01+12 01527000 CVTDIRST EQU CVTLPDIA 01528000 CVTSLIDA EQU CVTS01+24 01529000 CVTCTLFG EQU CVTS01+50 01530000 CVTRV210 EQU CVTS01+424 01531000 CVTRV219 EQU CVTS01+425 01532000 CVTRV228 EQU CVTS01+426 01533000 CVTRV237 EQU CVTS01+427 01534000 CVTMFRTR EQU CVTS01+452 01535000 CVTRV262 EQU CVTS01+468 01536000 CVTRV271 EQU CVTS01+469 01537000 CVTRV280 EQU CVTS01+470 01538000 CVTRV289 EQU CVTS01+471 01539000 CVTGSDA EQU CVTS01+600 01540000 LCBRSPIN EQU LCBIOBSN 01541000 LCBLUSNS EQU LCBRSPIN+5 01542000 LCBSCPRS EQU LCBRSPIN+9 01543000 LCBCSWU1 EQU LCBSCPRS+2 01544000 LCBRSPFG EQU LCBRSPIN+15 01545000 LCBCOREQ EQU LCBTPCD 01546000 @NM00134 EQU LCBCPA+40 01547000 LCBQNX EQU LCBERCCW 01548000 LCBQNXMN EQU LCBQNX 01549000 LCBQEBPL EQU LCBQNX+4 01550000 LCBCANCL EQU LCBSAVSN 01551000 LCBCANFG EQU LCBCANCL 01552000 OPCAQWD EQU OPCAQCTL 01553000 OPCAQWD1 EQU OPCAQWD 01554000 OPCAQREQ EQU OPCAQWD1 01555000 OPCAQFST EQU OPCAQWD1+1 01556000 OPCAQWD2 EQU OPCAQWD+4 01557000 OPCAQWD3 EQU OPCAQWD+8 01558000 OPCAQRQ3 EQU OPCAQWD3 01559000 OPCAQLST EQU OPCAQWD3+1 01560000 OCCKPKY1 EQU OCCKPKEY 01561000 OCCKPTYP EQU OCCKPKY1 01562000 OCICACTN EQU OCMODNME 01563000 OCICDADR EQU OCICACTN 01564000 OCICSW EQU OCICDADR+3 01565000 TCBS01 EQU TCBPCB 01566000 TCBFOE EQU TCBS01+32 01567000 TCBESTAE EQU TCBS01+52 01568000 TCBESTRM EQU TCBESTAE+1 01569000 TCBFBYT1 EQU TCBS01+64 01570000 TCBFBYT2 EQU TCBS01+65 01571000 TCBRV124 EQU TCBS01+66 01572000 TCBRV133 EQU TCBS01+67 01573000 TRMPRE1 EQU TRMBYTE4 01574000 TRMNCP1 EQU TRMBYTE4 01575000 TRMPRE EQU TRMBYTE3 01576000 TRMNCP EQU TRMBYTE3 01577000 TRMPU EQU TRMBYTE3 01578000 TRMLU EQU TRMBYTE3 01579000 TRMLULOG EQU TRMLU 01580000 TRMLINK EQU TRMBYTE3 01581000 OCCIB EQU OCREQVAL 01582000 PRFSHDR EQU IEDQPRF+42 01583000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01584000 @NM00216 EQU TRMLINK 01585000 TRMLSTAT EQU TRMLINK 01586000 TRMLINT EQU TRMLINK 01587000 TRMEPMOD EQU TRMLINK 01588000 TRMINERR EQU TRMLU 01589000 TRMLUREQ EQU TRMLU 01590000 TRMSESRQ EQU TRMLU 01591000 TRMTDIFF EQU TRMLU 01592000 TRMLUTM EQU TRMLU 01593000 TRMLUIT EQU TRMLU 01594000 TRMAUTO EQU TRMLU 01595000 TRMPCONT EQU TRMPU 01596000 @NM00215 EQU TRMPU 01597000 TRMNCONT EQU TRMNCP 01598000 TRMQUCKN EQU TRMNCP 01599000 TRMSLOWN EQU TRMNCP 01600000 TRMSYGEN EQU TRMNCP 01601000 TRMNCPCL EQU TRMNCP 01602000 TRMIPLDM EQU TRMNCP 01603000 TRMINOUT EQU TRMPRE 01604000 TRMRDOUT EQU TRMPRE 01605000 TRMNLOUT EQU TRMPRE 01606000 TRMWROUT EQU TRMPRE 01607000 TRMASNXI EQU TRMPRE 01608000 TRMSTMM EQU TRMPRE 01609000 TRMCMODE EQU TRMPRE 01610000 TRMSTPND EQU TRMPRE 01611000 @NM00214 EQU TRMNCP1 01612000 TRMINOP EQU TRMNCP1 01613000 TRMLYNCH EQU TRMPRE1 01614000 TRMSPOUT EQU TRMPRE1 01615000 TRMERLCK EQU TRMPRE1 01616000 TRMQNPL EQU TRMPRE1 01617000 TRMSPACT EQU TRMPRE1 01618000 TRMOCNI EQU TRMPRE1 01619000 TRMSESSN EQU TRMPRE1 01620000 TRMCONT EQU TRMPRE1 01621000 @NM00207 EQU TCBS01+84 01622000 TCBSVCA2 EQU TCBS01+80 01623000 TCBSWASA EQU TCBS01+76 01624000 TCBDBTB EQU TCBS01+72 01625000 TCBRPT EQU TCBS01+68 01626000 TCBRV141 EQU TCBRV133 01627000 TCBRV140 EQU TCBRV133 01628000 TCBRV139 EQU TCBRV133 01629000 TCBRV138 EQU TCBRV133 01630000 TCBRV137 EQU TCBRV133 01631000 TCBRV136 EQU TCBRV133 01632000 TCBRV135 EQU TCBRV133 01633000 TCBRV134 EQU TCBRV133 01634000 TCBRV132 EQU TCBRV124 01635000 TCBRV131 EQU TCBRV124 01636000 TCBRV130 EQU TCBRV124 01637000 TCBRV129 EQU TCBRV124 01638000 TCBRV128 EQU TCBRV124 01639000 TCBRV127 EQU TCBRV124 01640000 TCBRV126 EQU TCBRV124 01641000 TCBRV125 EQU TCBRV124 01642000 TCBRV123 EQU TCBFBYT2 01643000 TCBRV122 EQU TCBFBYT2 01644000 TCBECBNV EQU TCBFBYT2 01645000 TCBSSSYN EQU TCBFBYT2 01646000 TCBFPRAP EQU TCBFBYT2 01647000 TCBFDW EQU TCBFBYT2 01648000 TCBFMW EQU TCBFBYT2 01649000 TCBCNCB EQU TCBFBYT2 01650000 TCBLLH EQU TCBFBYT1 01651000 TCBRV113 EQU TCBFBYT1 01652000 TCBEOT EQU TCBFBYT1 01653000 TCBRTM2 EQU TCBFBYT1 01654000 TCBPGNLY EQU TCBFBYT1 01655000 TCBNDIOS EQU TCBFBYT1 01656000 TCBACTIV EQU TCBFBYT1 01657000 TCBEOTFM EQU TCBFBYT1 01658000 TCBAFFN EQU TCBS01+62 01659000 TCBCCPVI EQU TCBS01+60 01660000 TCBUKYSP EQU TCBS01+56 01661000 TCBMODE EQU TCBESTAE+3 01662000 TCBERTYP EQU TCBESTAE+2 01663000 TCBRV314 EQU TCBESTRM 01664000 TCBRV313 EQU TCBESTRM 01665000 TCBRV312 EQU TCBESTRM 01666000 TCBRV311 EQU TCBESTRM 01667000 TCBRV310 EQU TCBESTRM 01668000 TCBRV309 EQU TCBESTRM 01669000 TCBRV308 EQU TCBESTRM 01670000 TCBETERM EQU TCBESTRM 01671000 TCBSCBKY EQU TCBESTAE 01672000 TCBRTM12 EQU TCBS01+48 01673000 TCBTCBID EQU TCBS01+44 01674000 TCBRSV96 EQU TCBS01+40 01675000 TCBSWA EQU TCBS01+36 01676000 TCBFOEA EQU TCBFOE+1 01677000 TCBRSV42 EQU TCBFOE 01678000 TCBRV306 EQU TCBS01+28 01679000 TCBRSV41 EQU TCBS01+27 01680000 TCBTID EQU TCBS01+26 01681000 TCBRSVAA EQU TCBS01+25 01682000 TCBABCUR EQU TCBS01+24 01683000 TCBTMSAV EQU TCBS01+20 01684000 TCBIOTIM EQU TCBS01+16 01685000 TCBRTWA EQU TCBS01+12 01686000 TCBBACK EQU TCBS01+8 01687000 TCBTIRB EQU TCBS01+4 01688000 TCBAECB EQU TCBS01 01689000 OCICINAC EQU OCICSW 01690000 @NM00176 EQU OCICSW 01691000 OCICATST EQU OCICDADR+1 01692000 OCICTYPE EQU OCICDADR 01693000 @NM00175 EQU OCCKPKY1 01694000 OCCKPENV EQU OCCKPKY1 01695000 OCCKPRST EQU OCCKPTYP 01696000 OCCKPNCP EQU OCCKPTYP 01697000 OCCKPINC EQU OCCKPTYP 01698000 OPCAQSEC EQU OPCAQWD2+1 01699000 OPCAQRQ2 EQU OPCAQWD2 01700000 @NM00141 EQU LCBCANCL+3 01701000 LCBCANTH EQU LCBCANCL+1 01702000 @NM00140 EQU LCBCANFG 01703000 LCBCANCD EQU LCBCANFG 01704000 @NM00139 EQU LCBCANFG 01705000 LCBCANEB EQU LCBCANFG 01706000 LCBCANXT EQU LCBCANFG 01707000 LCBUNADD EQU LCBQNX+21 01708000 LCBUASZE EQU LCBQNX+20 01709000 LCBDSTEA EQU LCBQNX+16 01710000 @NM00138 EQU LCBQNX+12 01711000 LCBCP EQU LCBQEBPL+4 01712000 LCBIOSB EQU LCBQEBPL+1 01713000 LCBSIO EQU LCBQEBPL 01714000 LCBSTSAV EQU LCBQNX+1 01715000 @NM00137 EQU LCBQNXMN 01716000 LCBNX509 EQU LCBQNXMN 01717000 LCBNX162 EQU LCBQNXMN 01718000 LCBNX142 EQU LCBQNXMN 01719000 LCBNX064 EQU LCBQNXMN 01720000 @NM00136 EQU @NM00134+4 01721000 LCBNCPPT EQU @NM00134+1 01722000 @NM00135 EQU @NM00134 01723000 LCBWRSCH EQU LCBCOREQ+8 01724000 LCBCQLNK EQU LCBCOREQ+4 01725000 LCBCQELE EQU LCBCOREQ 01726000 LCBPAKCH EQU LCBRSPIN+16 01727000 @NM00133 EQU LCBRSPFG 01728000 LCBRSRH EQU LCBRSPFG 01729000 LCBEXPI EQU LCBRSPFG 01730000 @NM00132 EQU LCBRSPIN+12 01731000 LCBUSUE1 EQU LCBCSWU1 01732000 @NM00131 EQU LCBCSWU1 01733000 @NM00130 EQU LCBSCPRS+1 01734000 LCBDFCMD EQU LCBSCPRS 01735000 LCBUSER EQU LCBLUSNS+2 01736000 LCBSMIN EQU LCBLUSNS+1 01737000 LCBSMAJ EQU LCBLUSNS 01738000 LCBRHSV EQU LCBRSPIN+2 01739000 LCBSNS0 EQU LCBRSPIN+1 01740000 @NM00129 EQU LCBRSPIN 01741000 CVTRV628 EQU CVTS01+728 01742000 CVTRV627 EQU CVTS01+724 01743000 CVTRV626 EQU CVTS01+720 01744000 CVTRV625 EQU CVTS01+716 01745000 CVTRV624 EQU CVTS01+712 01746000 CVTRV623 EQU CVTS01+708 01747000 CVTRV622 EQU CVTS01+704 01748000 CVTRV621 EQU CVTS01+700 01749000 CVTRV620 EQU CVTS01+696 01750000 CVTRV619 EQU CVTS01+692 01751000 CVTRV618 EQU CVTS01+688 01752000 CVTRV617 EQU CVTS01+684 01753000 CVTRV616 EQU CVTS01+680 01754000 CVTRV615 EQU CVTS01+676 01755000 CVTRV614 EQU CVTS01+672 01756000 CVTRV613 EQU CVTS01+668 01757000 CVTTCASP EQU CVTS01+664 01758000 CVT0PT03 EQU CVTS01+660 01759000 CVT0PT0E EQU CVTS01+656 01760000 CVTIRM EQU CVTS01+652 01761000 CVTCGK EQU CVTS01+648 01762000 CVTRV607 EQU CVTS01+644 01763000 CVTRV606 EQU CVTS01+640 01764000 CVTRV605 EQU CVTS01+636 01765000 CVTRV604 EQU CVTS01+632 01766000 CVTEFF02 EQU CVTS01+628 01767000 CVTCBBR EQU CVTS01+624 01768000 CVTSSCR EQU CVTS01+620 01769000 CVTEVENT EQU CVTS01+616 01770000 CVTCRCA EQU CVTS01+612 01771000 CVTTPIO EQU CVTS01+608 01772000 CVTADV EQU CVTS01+604 01773000 CVTGSDAB EQU CVTGSDA 01774000 CVTQV3 EQU CVTS01+596 01775000 CVTQV2 EQU CVTS01+592 01776000 CVTQV1 EQU CVTS01+588 01777000 CVTRPT EQU CVTS01+584 01778000 CVTSSRB EQU CVTS01+580 01779000 CVTCSDRL EQU CVTS01+576 01780000 CVTEXP1 EQU CVTS01+572 01781000 CVTRMPMT EQU CVTS01+568 01782000 CVTRMPTT EQU CVTS01+564 01783000 CVTVPSA EQU CVTS01+560 01784000 CVTVSTOP EQU CVTS01+556 01785000 CVTGTFR8 EQU CVTS01+552 01786000 CVTQUIT EQU CVTS01+548 01787000 CVTVACR EQU CVTS01+544 01788000 CVTWTCB EQU CVTS01+540 01789000 CVTSTPRS EQU CVTS01+536 01790000 CVT0PT02 EQU CVTS01+532 01791000 CVTDARCM EQU CVTS01+528 01792000 CVTIRECM EQU CVTS01+524 01793000 CVTJRECM EQU CVTS01+520 01794000 CVTVEMS0 EQU CVTS01+516 01795000 CVTSPFRR EQU CVTS01+512 01796000 CVTRLSTG EQU CVTS01+508 01797000 CVT0TC0A EQU CVTS01+504 01798000 CVTGMBR EQU CVTS01+500 01799000 CVTLFRM EQU CVTS01+496 01800000 CVTRMBR EQU CVTS01+492 01801000 CVTVIOP EQU CVTS01+488 01802000 CVTRV307 EQU CVTS01+486 01803000 CVTRV306 EQU CVTS01+484 01804000 CVTRV305 EQU CVTS01+482 01805000 CVTRV304 EQU CVTS01+480 01806000 CVTRV303 EQU CVTS01+478 01807000 CVTRV302 EQU CVTS01+476 01808000 CVTTRCA EQU CVTS01+472 01809000 CVTRV297 EQU CVTRV289 01810000 CVTRV296 EQU CVTRV289 01811000 CVTRV295 EQU CVTRV289 01812000 CVTRV294 EQU CVTRV289 01813000 CVTRV293 EQU CVTRV289 01814000 CVTRV292 EQU CVTRV289 01815000 CVTRV291 EQU CVTRV289 01816000 CVTRV290 EQU CVTRV289 01817000 CVTRV288 EQU CVTRV280 01818000 CVTRV287 EQU CVTRV280 01819000 CVTRV286 EQU CVTRV280 01820000 CVTRV285 EQU CVTRV280 01821000 CVTRV284 EQU CVTRV280 01822000 CVTRV283 EQU CVTRV280 01823000 CVTRV282 EQU CVTRV280 01824000 CVTRV281 EQU CVTRV280 01825000 CVTRV279 EQU CVTRV271 01826000 CVTRV278 EQU CVTRV271 01827000 CVTRV277 EQU CVTRV271 01828000 CVTRV276 EQU CVTRV271 01829000 CVTRV275 EQU CVTRV271 01830000 CVTRV274 EQU CVTRV271 01831000 CVTRV273 EQU CVTRV271 01832000 CVTRV272 EQU CVTRV271 01833000 CVTRV270 EQU CVTRV262 01834000 CVTRV269 EQU CVTRV262 01835000 CVTRV268 EQU CVTRV262 01836000 CVTRV267 EQU CVTRV262 01837000 CVTRV266 EQU CVTRV262 01838000 CVTRV265 EQU CVTRV262 01839000 CVTRV264 EQU CVTRV262 01840000 CVTRV263 EQU CVTRV262 01841000 CVTVFP EQU CVTS01+464 01842000 CVTVSI EQU CVTS01+460 01843000 CVTVPSIB EQU CVTS01+456 01844000 CVTMFACT EQU CVTMFRTR 01845000 CVTMFCTL EQU CVTS01+448 01846000 CVTPVBP EQU CVTS01+444 01847000 CVTPWI EQU CVTS01+440 01848000 CVTRV254 EQU CVTS01+438 01849000 CVTRV253 EQU CVTS01+436 01850000 CVTRV252 EQU CVTS01+434 01851000 CVTRV251 EQU CVTS01+433 01852000 CVTRV250 EQU CVTS01+432 01853000 CVTRV249 EQU CVTS01+431 01854000 CVTRV248 EQU CVTS01+430 01855000 CVTRV247 EQU CVTS01+429 01856000 CVTRV246 EQU CVTS01+428 01857000 CVTRV245 EQU CVTRV237 01858000 CVTRV244 EQU CVTRV237 01859000 CVTRV243 EQU CVTRV237 01860000 CVTRV242 EQU CVTRV237 01861000 CVTRV241 EQU CVTRV237 01862000 CVTRV240 EQU CVTRV237 01863000 CVTRV239 EQU CVTRV237 01864000 CVTRV238 EQU CVTRV237 01865000 CVTRV236 EQU CVTRV228 01866000 CVTRV235 EQU CVTRV228 01867000 CVTRV234 EQU CVTRV228 01868000 CVTRV233 EQU CVTRV228 01869000 CVTRV232 EQU CVTRV228 01870000 CVTRV231 EQU CVTRV228 01871000 CVTRV230 EQU CVTRV228 01872000 CVTRV229 EQU CVTRV228 01873000 CVTRV227 EQU CVTRV219 01874000 CVTRV226 EQU CVTRV219 01875000 CVTRV225 EQU CVTRV219 01876000 CVTRV224 EQU CVTRV219 01877000 CVTRV223 EQU CVTRV219 01878000 CVTRV222 EQU CVTRV219 01879000 CVTRV221 EQU CVTRV219 01880000 CVTRV220 EQU CVTRV219 01881000 CVTRV218 EQU CVTRV210 01882000 CVTRV217 EQU CVTRV210 01883000 CVTRV216 EQU CVTRV210 01884000 CVTRV215 EQU CVTRV210 01885000 CVTRV214 EQU CVTRV210 01886000 CVTRV213 EQU CVTRV210 01887000 CVTRV212 EQU CVTRV210 01888000 CVTRV211 EQU CVTRV210 01889000 CVTLCCAT EQU CVTS01+420 01890000 CVTPCCAT EQU CVTS01+416 01891000 CVTIPCRP EQU CVTS01+412 01892000 CVTIPCRI EQU CVTS01+408 01893000 CVTIPCDS EQU CVTS01+404 01894000 CVTAIDVT EQU CVTS01+400 01895000 CVTSSAP EQU CVTS01+396 01896000 CVTEHCIR EQU CVTS01+392 01897000 CVTEHDEF EQU CVTS01+388 01898000 CVTDAIR EQU CVTS01+384 01899000 CVTPERFM EQU CVTS01+380 01900000 CVT044R2 EQU CVTS01+376 01901000 CVTFETCH EQU CVTS01+372 01902000 CVTRSTWD EQU CVTS01+368 01903000 CVTSPOST EQU CVTS01+364 01904000 CVTIOBP EQU CVTS01+360 01905000 CVTASMVT EQU CVTS01+356 01906000 CVTRECRQ EQU CVTS01+352 01907000 CVTWSAC EQU CVTS01+348 01908000 CVTRV149 EQU CVTS01+344 01909000 CVTWSAL EQU CVTS01+340 01910000 CVTSPSA EQU CVTS01+336 01911000 CVTGLMN EQU CVTS01+332 01912000 CVTVEAC0 EQU CVTS01+328 01913000 CVT062R1 EQU CVTS01+324 01914000 CVTRPOST EQU CVTS01+320 01915000 CVTDQIQE EQU CVTS01+316 01916000 CVTCSD EQU CVTS01+312 01917000 CVTLKRMA EQU CVTS01+308 01918000 CVTRSPIE EQU CVTS01+304 01919000 CVTRENQ EQU CVTS01+300 01920000 CVTLQCB EQU CVTS01+296 01921000 CVTFQCB EQU CVTS01+292 01922000 CVTQCS01 EQU CVTS01+288 01923000 CVTAPFT EQU CVTS01+284 01924000 CVTPARRL EQU CVTS01+280 01925000 CVTVWAIT EQU CVTS01+276 01926000 CVTGSPL EQU CVTS01+272 01927000 CVTLSMQ EQU CVTS01+268 01928000 CVTGSMQ EQU CVTS01+264 01929000 CVTEXPRO EQU CVTS01+260 01930000 CVTOPCTP EQU CVTS01+256 01931000 CVTSIC EQU CVTS01+252 01932000 CVTTPIOS EQU CVTS01+248 01933000 CVTRTMS EQU CVTS01+244 01934000 CVTSDBF EQU CVTS01+240 01935000 CVTSCBP EQU CVTS01+236 01936000 CVTSDMP EQU CVTS01+232 01937000 CVTSV60 EQU CVTS01+228 01938000 CVTRTMCT EQU CVTS01+224 01939000 CVTASCBL EQU CVTS01+220 01940000 CVTASCBH EQU CVTS01+216 01941000 CVTGDA EQU CVTS01+212 01942000 CVTASVT EQU CVTS01+208 01943000 CVTVVMDI EQU CVTS01+204 01944000 CVTAQTOP EQU CVTS01+200 01945000 CVTIOSCS EQU CVTS01+196 01946000 CVTSDRM EQU CVTS01+192 01947000 CVTOPTE EQU CVTS01+188 01948000 CVTSTXU EQU CVTS01+184 01949000 CVTQUIS EQU CVTS01+180 01950000 CVTPARS EQU CVTS01+176 01951000 CVTS1EE EQU CVTS01+172 01952000 CVTFRAS EQU CVTS01+168 01953000 CVTQSAS EQU CVTS01+164 01954000 CVTCRAS EQU CVTS01+160 01955000 CVTCRMN EQU CVTS01+156 01956000 CVTDELCP EQU CVTS01+152 01957000 CVTFRECL EQU CVTS01+148 01958000 CVTGETCL EQU CVTS01+144 01959000 CVTBLDCP EQU CVTS01+140 01960000 CVTAUTHL EQU CVTS01+136 01961000 CVTSCAN EQU CVTS01+132 01962000 CVTRV144 EQU CVTS01+130 01963000 CVTMAXMP EQU CVTS01+128 01964000 CVTSTCK EQU CVTS01+124 01965000 CVTRV139 EQU CVTS01+123 01966000 CVTDSSAC EQU CVTS01+122 01967000 CVTRV513 EQU CVTS01+121 01968000 CVTIOSPL EQU CVTS01+120 01969000 CVTPTGT EQU CVTS01+116 01970000 CVTCSPIE EQU CVTS01+112 01971000 CVTSMFEX EQU CVTS01+108 01972000 CVTOLT0A EQU CVTS01+104 01973000 CVTSRBRT EQU CVTS01+100 01974000 CVTPUTL EQU CVTS01+96 01975000 CVTASCRL EQU CVTS01+92 01976000 CVTASCRF EQU CVTS01+88 01977000 CVTRV326 EQU CVTS01+84 01978000 CVTRV325 EQU CVTS01+80 01979000 CVTRV324 EQU CVTS01+76 01980000 CVT0VL01 EQU CVTS01+72 01981000 CVTSHRVM EQU CVTS01+68 01982000 CVTRV332 EQU CVTS01+64 01983000 CVTTAS EQU CVTS01+60 01984000 CVTRSCN EQU CVTS01+56 01985000 CVTTRAC2 EQU CVTS01+54 01986000 CVTTRACE EQU CVTS01+52 01987000 CVTAPG EQU CVTS01+51 01988000 CVTSDTRC EQU CVTCTLFG 01989000 CVTGTRCE EQU CVTCTLFG 01990000 CVTNOMP EQU CVTCTLFG 01991000 CVTRSV79 EQU CVTCTLFG 01992000 CVTDSTAT EQU CVTCTLFG 01993000 CVTRSV78 EQU CVTCTLFG 01994000 CVTRV333 EQU CVTCTLFG 01995000 CVTRV323 EQU CVTCTLFG 01996000 CVTSPVLK EQU CVTS01+49 01997000 CVTRSV77 EQU CVTS01+48 01998000 CVTRV331 EQU CVTS01+44 01999000 CVTRV330 EQU CVTS01+40 02000000 CVTRV329 EQU CVTS01+36 02001000 CVTRV328 EQU CVTS01+32 02002000 CVTRV322 EQU CVTS01+28 02003000 CVTSLID EQU CVTSLIDA+1 02004000 CVTSYLK EQU CVTSLIDA 02005000 CVTRV321 EQU CVTS01+20 02006000 CVTRV320 EQU CVTS01+16 02007000 CVTLPDIR EQU CVTLPDIA+1 02008000 CVTRSV69 EQU CVTDIRST 02009000 CVTRSV68 EQU CVTDIRST 02010000 CVTRSV67 EQU CVTDIRST 02011000 CVTRSV66 EQU CVTDIRST 02012000 CVTRSV65 EQU CVTDIRST 02013000 CVTRSV64 EQU CVTDIRST 02014000 CVTRSV63 EQU CVTDIRST 02015000 CVTDICOM EQU CVTDIRST 02016000 CVTPVTP EQU CVTS01+8 02017000 CVTLPDSR EQU CVTS01+4 02018000 CVTGETL EQU CVTS01 02019000 TRMOPT EQU IEDTRM+34 02020000 TRMOPTBL EQU IEDQTRM+18 02021000 TRMOPNO EQU IEDQTRM+17 02022000 TRMCHCIN EQU IEDQTRM+16 02023000 TRMSENSE EQU TRMSTAT+3 02024000 TRMTEMPR EQU TRMSTAT+2 02025000 TRMSIO EQU TRMSTAT 02026000 @NM00213 EQU TRMDEVFL+1 02027000 TRMTPIN EQU TRMDEVFL+1 02028000 TRMNCPI EQU TRMDEVFL+1 02029000 TRMRNTRM EQU TRMDEVFL+1 02030000 @NM00212 EQU TRMDEVFL+1 02031000 TRMLMD EQU TRMDEVFL+1 02032000 TRMCONC EQU TRMDEVFL+1 02033000 TRMTSOB EQU TRMDEVFL 02034000 TRMBFDY EQU TRMDEVFL 02035000 TRMTBLK EQU TRMDEVFL 02036000 TRMSBLK EQU TRMDEVFL 02037000 TRMBLKS EQU TRMDEVFL 02038000 TRMADDC EQU TRMDEVFL 02039000 TRMDDIG EQU TRMDEVFL 02040000 TRMBUFS EQU TRMDEVFL 02041000 TRMPRILK EQU TRMALTD 02042000 TRMLGB EQU TRMDSORG 02043000 TRMUTERM EQU TLISTCNT 02044000 TRMSCNYN EQU TRMSTATE 02045000 TRMOPTFN EQU TRMSTATE 02046000 TRMACPTN EQU TRMSTATE 02047000 TRMPREF EQU TRMSTATE 02048000 TRMPROC EQU TRMLOG 02049000 TRMLIST EQU TRMLOG 02050000 TRMLINE EQU TRMSTATE 02051000 TRMRLMCT EQU IEDNTRM+10 02052000 TRMCOHTG EQU TRMSIBPT+1 02053000 TRMGPCNT EQU TRMSIBPT 02054000 TRMBUFRD EQU TRMBYTE0 02055000 TRMSNA EQU TRMBYTE0 02056000 TRMGP EQU TRMBYTE0 02057000 TRMDIAL EQU TRMBYTE0 02058000 @NM00211 EQU TRMBYTE0 02059000 TRMOUTPT EQU TRMBYTE0 02060000 TRMINPUT EQU TRMBYTE0 02061000 TRMUDEF EQU TRMBYTE0 02062000 TRMCKPRN EQU TRMBYTE1 02063000 TRMTSATN EQU TRMBYTE1 02064000 TRMTRACE EQU TRMBYTE1 02065000 TRMSWBCK EQU TRMBYTE1 02066000 TRMAUTOC EQU TRMBYTE1 02067000 TRMINPTP EQU TRMBYTE1 02068000 TRMWTNEG EQU TRMSCPRQ 02069000 TRMWRBRK EQU TRMBYTE2 02070000 TRMNOSND EQU TRMBYTE2 02071000 TRMPREP EQU TRMBYTE2 02072000 TRMGPACT EQU TRMBYTE2 02073000 TRMANDL EQU TRMBYTE2 02074000 TRMCLOSN EQU TRMINPG 02075000 TRMREMB EQU TRMBYTE2 02076000 TCXEND EQU IEDQTCXD+224 02077000 TCXNCPIO EQU IEDQTCXD+220 02078000 TCXACTE8 EQU TCXQE8 02079000 TCXABEPL EQU IEDQTCXD+212 02080000 TCXSRBS EQU IEDQTCXD+208 02081000 TCXSIOSB EQU IEDQTCXD+204 02082000 TCXESAVE EQU IEDQTCXD+132 02083000 TCXERPPM EQU IEDQTCXD+128 02084000 TCXERPSV EQU IEDQTCXD+116 02085000 TCXSATTN EQU IEDQTCXD+112 02086000 @NM00210 EQU TCXDSAVE+4 02087000 @NM00209 EQU TCXDSAVE 02088000 TCXPLCB EQU IEDQTCXD+100 02089000 TCXBITS EQU IEDQTCXD+98 02090000 TCXSCBSZ EQU IEDQTCXD+97 02091000 TCXBIT1 EQU IEDQTCXD+96 02092000 TCXCOMPT EQU IEDQTCXD+92 02093000 TCXAVAIL EQU IEDQTCXD+88 02094000 TCXBUFL EQU IEDQTCXD+84 02095000 TCXTOTE EQU TCXBUFA 02096000 TCXCKPM EQU IEDQTCXD+79 02097000 TCXNCKPR EQU IEDQTCXD+78 02098000 TCXSZAIB EQU IEDQTCXD+76 02099000 TCXAIBC EQU IEDQTCXD+72 02100000 TCXPEBC EQU IEDQTCXD+68 02101000 TCXPEWAC EQU IEDQTCXD+64 02102000 TCXQRQ EQU IEDQTCXD+60 02103000 TCXOCQ EQU IEDQTCXD+56 02104000 TCXPNTQ EQU IEDQTCXD+52 02105000 TCXPUTQ EQU IEDQTCXD+48 02106000 TCXGETQ EQU IEDQTCXD+44 02107000 TCXTSI EQU IEDQTCXD+40 02108000 TCXRPT EQU IEDQTCXD+36 02109000 TCXCC3TS EQU IEDQTCXD+35 02110000 TCXAPDMP EQU TCXFLAG1 02111000 TCXAPPL EQU TCXFLAG1 02112000 TCXRTM EQU TCXFLAG1 02113000 TCXMCPCD EQU TCXFLAG1 02114000 TCXAUTH EQU TCXFLAG1 02115000 TCXASID EQU IEDQTCXD+32 02116000 TCXASCB EQU IEDQTCXD+28 02117000 TCXPASWD EQU IEDQTCXD+16 02118000 TCXDISP EQU IEDQTCXD+12 02119000 TCXATTLN EQU TCXATTEN 02120000 TCXAVT EQU IEDQTCXD 02121000 @NM00208 EQU TCBXTNT2+32 02122000 TCBRV181 EQU TCBRV173 02123000 TCBRV180 EQU TCBRV173 02124000 TCBRV179 EQU TCBRV173 02125000 TCBRV178 EQU TCBRV173 02126000 TCBRV177 EQU TCBRV173 02127000 TCBRV176 EQU TCBRV173 02128000 TCBRV175 EQU TCBRV173 02129000 TCBRV174 EQU TCBRV173 02130000 TCBRV172 EQU TCBRV164 02131000 TCBRV171 EQU TCBRV164 02132000 TCBRV170 EQU TCBRV164 02133000 TCBRV169 EQU TCBRV164 02134000 TCBRV168 EQU TCBRV164 02135000 TCBRV167 EQU TCBRV164 02136000 TCBRV166 EQU TCBRV164 02137000 TCBRV165 EQU TCBRV164 02138000 TCBRV163 EQU TCBRV155 02139000 TCBRV162 EQU TCBRV155 02140000 TCBRV161 EQU TCBRV155 02141000 TCBRV160 EQU TCBRV155 02142000 TCBRV159 EQU TCBRV155 02143000 TCBRV158 EQU TCBRV155 02144000 TCBRV157 EQU TCBRV155 02145000 TCBRV156 EQU TCBRV155 02146000 TCBRV154 EQU TCBRV146 02147000 TCBRV153 EQU TCBRV146 02148000 TCBRV152 EQU TCBRV146 02149000 TCBRV151 EQU TCBRV146 02150000 TCBRV150 EQU TCBRV146 02151000 TCBRV149 EQU TCBRV146 02152000 TCBRV148 EQU TCBRV146 02153000 TCBRV147 EQU TCBRV146 02154000 TCBRV145 EQU TCBXTNT2+26 02155000 TCBRV144 EQU TCBXTNT2+24 02156000 TCBRV143 EQU TCBXTNT2+20 02157000 TCBRV142 EQU TCBXTNT2+16 02158000 TCBRSV49 EQU TCBXTNT2+12 02159000 TCBEVENT EQU TCBXTNT2+8 02160000 TCBRCMP EQU TCBXTNT2+5 02161000 TCBRSVAB EQU TCBXTNT2+4 02162000 TCBGTFA EQU TCBGTF+1 02163000 TCBRSV47 EQU TCBTFLG 02164000 TCBRSV46 EQU TCBTFLG 02165000 TCBRSV45 EQU TCBTFLG 02166000 TCBRSV44 EQU TCBTFLG 02167000 TCBRSV43 EQU TCBTFLG 02168000 TCBDSPIT EQU TCBTFLG 02169000 TCBERRTN EQU TCBTFLG 02170000 TCBASYNC EQU TCBTFLG 02171000 QCBTTCIN EQU QCBPLCBA+1 02172000 @NM00201 EQU QCBPLCBA 02173000 @NM00200 EQU QCBSTAT1 02174000 QCBFLUSH EQU QCBSTAT1 02175000 QCBNDXRQ EQU QCBSTAT1 02176000 QCBESIG EQU QCBSTAT1 02177000 QCBRCVRQ EQU QCBSTAT1 02178000 QCBSNDRQ EQU QCBSTAT1 02179000 QCBWAITC EQU QCBSTAT1 02180000 QCBPLCBN EQU QCBSTAT1 02181000 QCBCHAIN EQU IEDNQCB 02182000 QCBPQBCK EQU IEDQPQCB+25 02183000 QCBPRIPQ EQU IEDQPQCB+24 02184000 QCBCFHDR EQU IEDQPQCB+21 02185000 QCBLFEFO EQU IEDQPQCB+18 02186000 QCBFFEFO EQU IEDQPQCB+15 02187000 QCBPREVF EQU QCBINTLF 02188000 QCBINTFF EQU IEDQPQCB+9 02189000 QCBDATSQ EQU QCBFHDTZ+1 02190000 @NM00199 EQU QCBFHDTZ 02191000 @NM00198 EQU QCBPFEFO 02192000 QCBDATFL EQU QCBFHDLZ 02193000 QCBDNHDR EQU IEDQPQCB 02194000 QCBQBACK EQU IEDQQCB+37 02195000 QCBCKPT EQU QCBFLAG 02196000 QCBPROC EQU QCBFLAG 02197000 QCBSDFFO EQU QCBFLAG 02198000 QCBTERMQ EQU QCBFLAG 02199000 QCBRSRV EQU QCBFLAG 02200000 QCBREAD EQU QCBFLAG 02201000 QCBNOBRK EQU QCBFLAG 02202000 QCBTSSES EQU QCBFLAG 02203000 QCBLGBAD EQU QCBDCBAD 02204000 QCBRELLN EQU IEDQQCB+32 02205000 QCBTJID EQU QCBLKRRN+1 02206000 QCBCARCT EQU QCBLKRRN 02207000 QCBPRLVL EQU QCBPREN 02208000 QCBMSGCT EQU IEDQQCB+26 02209000 QCBEXTO EQU QCBINTVL 02210000 QCBDISC EQU QCBTSOF1 02211000 QCBDELAY EQU QCBTSOF1 02212000 QCBPARTO EQU QCBTSOF1 02213000 QCBSATRD EQU QCBTSOF1 02214000 QCBNOBUF EQU QCBTSOF1 02215000 QCBTPUT EQU QCBTSOF1 02216000 QCBTGET EQU QCBTSOF1 02217000 QCBWRBRK EQU QCBTSOF1 02218000 QCBSATLC EQU QCBTSOF2 02219000 QCBSATTI EQU QCBTSOF2 02220000 QCBSATCH EQU QCBTSOF2 02221000 QCBSIMRD EQU QCBTSOF2 02222000 QCBDSSMI EQU QCBTSOF2 02223000 QCBPOSTO EQU QCBTSOF2 02224000 QCBBUFQ EQU QCBTSOF2 02225000 QCBINHBN EQU QCBTSOF2 02226000 QCBSATCT EQU @NM00197 02227000 QCBSCBOF EQU IEDQQCB+20 02228000 QCBTIME EQU QCBSTAT 02229000 QCBCLOCK EQU QCBSTAT 02230000 QCBSCHDL EQU QCBSTAT 02231000 QCBSMODE EQU QCBSTAT 02232000 QCBSEND EQU QCBSTAT 02233000 QCBBUFRD EQU QCBSTAT 02234000 QCBEOM EQU QCBSTAT 02235000 QCBHUCT EQU QCBRETCT 02236000 QCBIEND EQU QCBRETCT 02237000 QCBEND EQU QCBRETCT 02238000 QCBNL EQU QCBRETCT 02239000 QCBLOGCT EQU QCBRETCT 02240000 @NM00196 EQU QCBBYTE1 02241000 QCBRITRM EQU QCBBYTE1 02242000 @NM00195 EQU QCBEOLDT 02243000 QCBSLINK EQU IEDQQCB+13 02244000 QCBSTPRI EQU IEDQQCB+12 02245000 QCBSTCHN EQU IEDQQCB+9 02246000 QCBSTVTO EQU IEDQQCB+8 02247000 QCBLINK EQU IEDQQCB+5 02248000 QCBPRI EQU IEDQQCB+4 02249000 QCBELCHN EQU IEDQQCB+1 02250000 QCBHELD EQU QCBDSFLG 02251000 QCBFQCB EQU QCBDSFLG 02252000 QCBDRQQ EQU QCBDSFLG 02253000 QCBALTMH EQU QCBDSFLG 02254000 QCBREUS EQU QCBDISK 02255000 QCBNREUS EQU QCBDISK 02256000 QCBCORE EQU QCBDSFLG 02257000 QCBTSQ EQU QCBDSFLG 02258000 PRF2SEQP EQU PRF2WD2 02259000 @NM00194 EQU IEDPF2+1 02260000 @NM00193 EQU PRF2FLG2 02261000 PRF2TERM EQU PRF2FLG2 02262000 PRF2SMI EQU PRF2FLG2 02263000 PRF2FORM EQU PRF2FLG2 02264000 PRF2TNTI EQU PRF2FLG2 02265000 PRF1RULN EQU PRF1SEQP+2 02266000 PRF1TAG2 EQU PRF1SQID+1 02267000 @NM00192 EQU PRF1TAG1 02268000 PRF1TAGS EQU PRF1TAG1 02269000 @NM00191 EQU PRF1FLG1 02270000 PRF1LOGD EQU PRF1FLG1 02271000 PRF1USS EQU PRF1FLG1 02272000 PRF1FORM EQU PRF1FLG1 02273000 PRF1EXPI EQU PRF1FLG1 02274000 PRF1FIDI EQU PRF1FLG1 02275000 PRF1RH EQU IEDPF1 02276000 PRFDEST EQU IEDQPRF+40 02277000 PRFISEQ EQU IEDQPRF+38 02278000 PRFSTXT EQU PRFHQBCK 02279000 PRFNHDR EQU PRFCHDR 02280000 PRFCRCD EQU IEDQPRF+29 02281000 PRFSVSEQ EQU PRFNTXT+1 02282000 PRFSVPRI EQU PRFEOBOF 02283000 PRFISIZE EQU PRFSCAN+1 02284000 @NM00190 EQU PRFSCAN 02285000 PRFEOB EQU PRFXTRA+1 02286000 PRFSTSO EQU PRFXTRA 02287000 PRFNHDRN EQU PRFSTAT1 02288000 PRFNLSTN EQU PRFSTAT1 02289000 PRFLOCK EQU PRFEOFN 02290000 PRFDUPLN EQU PRFSTAT1 02291000 PRFTSMSG EQU PRFSTAT1 02292000 PRFITCPN EQU PRFSTAT1 02293000 PRFERMGN EQU PRFSTAT1 02294000 PRFCNCLN EQU PRFSTAT1 02295000 PRFSVFLG EQU @NM00189+3 02296000 PRFSIZE EQU PRFSVFFO+2 02297000 PRFSRCE EQU PRFSVFFO 02298000 PRFLCB EQU IEDQPRF+13 02299000 PRFPIUO EQU PRFPLQCB 02300000 @NM00188 EQU PRFTICC 02301000 @NM00187 EQU PRFTICC 02302000 @NM00186 EQU PRFTICC 02303000 PRFTICON EQU PRFTICC 02304000 @NM00185 EQU PRFTICC 02305000 @NM00184 EQU PRFTICC 02306000 PRFBFMM EQU PRFTICC 02307000 PRFEOMSG EQU PRFTICC 02308000 PRFCOUNT EQU PRFLINK+1 02309000 @NM00183 EQU PRFLINK 02310000 PRFFLAGS EQU PRFPRI 02311000 PRFIOADR EQU PRFQCBA 02312000 PRFOPCDE EQU PRFKEY 02313000 @NM00182 EQU OPREFLG3 02314000 OPREATCH EQU OPREFLG3 02315000 @NM00181 EQU OPREFLG3 02316000 OPREFLG2 EQU IEDOPRED+13 02317000 OPREFLG1 EQU IEDOPRED+12 02318000 OPRETIC EQU OPRESAVE 02319000 OPRELINK EQU IEDOPRED+5 02320000 OPREPRI EQU IEDOPRED+4 02321000 OPREQCB EQU IEDOPRED+1 02322000 OPREKEY EQU IEDOPRED 02323000 @NM00180 EQU OCLDNME+4 02324000 @NM00179 EQU OCPREFLG 02325000 OCTOTEP EQU OCPREFLG 02326000 OCREPOST EQU OCPREFLG 02327000 OCRSPSNT EQU OCPREFLG 02328000 OCBFREQ EQU OCPREFLG 02329000 OCIDLE EQU OCREQFLG 02330000 OCFORCE EQU OCREQFLG 02331000 OCDCARD EQU OCREQFLG 02332000 OCPARTAL EQU OCREQFLG 02333000 OCADNCP EQU OCREQFLG 02334000 @NM00178 EQU OCREQFLG 02335000 @NM00177 EQU OCREQFLG 02336000 OCFLUSHZ EQU OCREQFLG 02337000 OCRESPCT EQU OCLINTTE 02338000 OCCKPTWA EQU OCCKDATA+4 02339000 @NM00174 EQU OCRSTGTM+2 02340000 OCCKDAT2 EQU OCRSTGTM+1 02341000 OCCKDAT1 EQU OCRSTGTM 02342000 OCPTRSAV EQU OCMODNME+4 02343000 OCPUADR EQU OCIPLWA+2 02344000 OCWTGSAV EQU OCIPLWA 02345000 OCDVRDCT EQU OCBACKUP+6 02346000 OCNCP EQU OCBACKUP+4 02347000 OCBUFGOT EQU OCBACKUP+2 02348000 OCBUFNED EQU OCBACKUP 02349000 OCRESNUM EQU OCPARM 02350000 OCSEQ EQU OCTRUNIT+2 02351000 @NM00173 EQU OCRSID+1 02352000 OCALLFLG EQU OCALSTAT 02353000 OCACTREQ EQU OCALSTAT 02354000 OCREDRVE EQU OCALSTAT 02355000 OCSEQIND EQU OCALSTAT 02356000 @NM00172 EQU OCALSTAT 02357000 OCRENTRD EQU OCALSTAT 02358000 OCWTGB EQU OCTIOT 02359000 @NM00171 EQU @NM00170+2 02360000 OCCONID EQU OCDEST 02361000 OCRLN EQU IEDQOPCE+15 02362000 OCRESP EQU OCFLAG 02363000 OCATTACH EQU OCFLAG 02364000 OCSSCP EQU OCFLAG 02365000 OCOUTPUT EQU OCFLAG 02366000 OCLINE EQU OCFLAG 02367000 OCCONSOL EQU OCFLAG 02368000 @NM00169 EQU OCSWITCH 02369000 OCQUCKN EQU OCSWITCH 02370000 @NM00168 EQU OCRUDEST+1 02371000 @NM00167 EQU OCSCAN 02372000 OCNOTUCB EQU OCSCAN 02373000 OCNONAME EQU OCSCAN 02374000 OCALLRLN EQU OCSCAN 02375000 OCDDNAME EQU OCSCAN 02376000 OCDDNRLN EQU OCSCAN 02377000 OCADDR EQU OCSCAN 02378000 OCELMPTR EQU OCELEM+1 02379000 OPCBOTTM EQU IEDQOPCD+1184 02380000 @NM00166 EQU IEDQOPCD+1100 02381000 @NM00165 EQU IEDQOPCD+948 02382000 @NM00164 EQU IEDQOPCD+940 02383000 @NM00163 EQU IEDQOPCD+380 02384000 @NM00162 EQU OPCPWCOB+9 02385000 @NM00161 EQU OPCPWCOB+8 02386000 @NM00160 EQU OPCPWECB+1 02387000 OPCPWCCC EQU OPCPWECB 02388000 OPCPWCHN EQU OPCPWQCB+1 02389000 OPCPWVTO EQU OPCPWQCB 02390000 OPCTOTCK EQU IEDQOPCD+360 02391000 OPCAPXTL EQU IEDQOPCD+356 02392000 OPCDECR EQU IEDQOPCD+352 02393000 OPCBUFWT EQU IEDQOPCD+348 02394000 OPCADGOT EQU IEDQOPCD+318 02395000 OPCRQCNT EQU IEDQOPCD+316 02396000 OPPOLSTP EQU IEDQOPCD+312 02397000 OPCCKCIB EQU IEDQOPCD+308 02398000 OPCEND EQU IEDQOPCD+307 02399000 OPCSTCBS EQU IEDQOPCD+306 02400000 OPCHNEND EQU IEDQOPCD+302 02401000 OPCOQSW EQU IEDQOPCD+301 02402000 @NM00159 EQU OPCSPEC 02403000 @NM00158 EQU OPCSPEC 02404000 @NM00157 EQU OPCSPEC 02405000 @NM00156 EQU OPCSPEC 02406000 OPCFRMCA EQU OPCSPEC 02407000 OPCPART EQU OPCSPEC 02408000 OPCALTD EQU OPCSPEC 02409000 OPCBFEND EQU IEDQOPCD+296 02410000 OPCBFIRS EQU IEDQOPCD+292 02411000 OPCAVBUF EQU IEDQOPCD+290 02412000 OPCIPLCT EQU IEDQOPCD+289 02413000 OPCCLNTS EQU IEDQOPCD+288 02414000 OPCHA8 EQU IEDQOPCD+286 02415000 OPCBFREQ EQU IEDQOPCD+284 02416000 OPCGETBF EQU IEDQOPCD+276 02417000 OPCNEXT EQU IEDQOPCD+272 02418000 OPCFMDFC EQU IEDQOPCD+268 02419000 OPCSCNC EQU IEDQOPCD+264 02420000 OPCHORTG EQU IEDQOPCD+260 02421000 OPCHORT EQU IEDQOPCD+256 02422000 OPCCKPTL EQU IEDQOPCD+252 02423000 OPCCKPTF EQU IEDQOPCD+248 02424000 OPCWAITA EQU IEDQOPCD+244 02425000 OPCWAITR EQU IEDQOPCD+240 02426000 OPCWAITP EQU IEDQOPCD+236 02427000 OPCWAITO EQU IEDQOPCD+232 02428000 OPCWAITN EQU IEDQOPCD+228 02429000 OPCWAITL EQU IEDQOPCD+224 02430000 OPCWAITC EQU IEDQOPCD+220 02431000 @NM00155 EQU OPCLDNME+5 02432000 @NM00154 EQU OPCLDNME 02433000 OPCWAIT EQU IEDQOPCD+192 02434000 OPCCKERB EQU IEDQOPCD+164 02435000 OPCBFERB EQU IEDQOPCD+148 02436000 OPCFLAG2 EQU IEDQOPCD+147 02437000 OPCWRKSZ EQU IEDQOPCD+144 02438000 OPCWORK EQU IEDQOPCD+140 02439000 OPCRSAVE EQU IEDQOPCD+132 02440000 OPCQCBAD EQU IEDQOPCD+128 02441000 OPCTRMWA EQU IEDQOPCD+52 02442000 OPCPSTWT EQU IEDQOPCD+48 02443000 OPCTNTEA EQU IEDQOPCD+44 02444000 OPCPGCK EQU IEDQOPCD+40 02445000 OPCLCB EQU IEDQOPCD+36 02446000 @NM00153 EQU IEDQOPCD+32 02447000 OPCIPLAD EQU IEDQOPCD+28 02448000 OPCTOFLK EQU IEDQOPCD+24 02449000 OPCOPTLK EQU IEDQOPCD+20 02450000 OPCDCBLK EQU IEDQOPCD+16 02451000 OPCDOUBL EQU IEDQOPCD 02452000 NSLTTEPT EQU IEDNSLD+44 02453000 @NM00152 EQU NSLGRPNM+4 02454000 NSLREQTY EQU IEDNSLD+35 02455000 @NM00151 EQU IEDNSLD+34 02456000 NSLUNCNT EQU NSLERB+12 02457000 NSLBUFFR EQU NSLERB+9 02458000 @NM00150 EQU NSLESTAT 02459000 NSLMPPI EQU NSLESTAT 02460000 @NM00149 EQU NSLESTAT 02461000 NSLELINK EQU NSLERB+5 02462000 NSLERBPR EQU NSLERB+4 02463000 NSLERQCB EQU NSLERB 02464000 NSLFLGBK EQU IEDNSLD+19 02465000 NSLPRIBK EQU IEDNSLD+18 02466000 NSLTTCIN EQU IEDNSLD+16 02467000 NSLCTTRM EQU IEDNSLD+13 02468000 @NM00148 EQU NSLGPCUS 02469000 NSLDRDRV EQU NSLGPCUS 02470000 NSLSDIAL EQU NSLGPCUS 02471000 NSLNGPSL EQU NSLGPCUS 02472000 NSLGPTSP EQU NSLGPCUS 02473000 NSLNGPST EQU NSLGPCUS 02474000 NSLSAVE EQU IEDNSLD+9 02475000 @NM00147 EQU NSLPLCB 02476000 NSLPLCBR EQU NSLPLCB 02477000 NSLOPRE EQU IEDNSLD 02478000 NSLSAVE2 EQU IEDNNSLD+4 02479000 NSLSAVE1 EQU IEDNNSLD 02480000 LCBERADR EQU LCBXRADR+1 02481000 LCBPCIRC EQU LCBXRADR 02482000 LCBDCT3 EQU LCBXDCT+2 02483000 LCBDCT2 EQU LCBXDCT+1 02484000 LCBDCT1 EQU LCBXDCT 02485000 @NM00146 EQU LCBXFLAG 02486000 LCBERPND EQU LCBXFLAG 02487000 LCBSRCPF EQU LCBXFLAG 02488000 LCBGPCTV EQU LCBXFLAG 02489000 @NM00145 EQU LCBXFLAG 02490000 @NM00144 EQU LCBXFLAG 02491000 @NM00143 EQU LCBXFLAG 02492000 @NM00142 EQU LCBXFLAG 02493000 LCBCCW10 EQU LCBCPA+72 02494000 LCBCCW9 EQU LCBCPA+64 02495000 LCBCCW8 EQU LCBCPA+56 02496000 LCBCCW7 EQU LCBCPA+48 02497000 LCBCCW6 EQU LCBCPA+40 02498000 LCBATTEL EQU LCBCCW5 02499000 LCBCCW4 EQU LCBCPA+24 02500000 LCBCCW3 EQU LCBCPA+16 02501000 LCBCCW2 EQU LCBCPA+8 02502000 LCBCCW1 EQU LCBCPA 02503000 @NM00128 EQU LCBERCCW+16 02504000 LCBATL05 EQU LCBERCCW+8 02505000 @NM00127 EQU LCBERCCW 02506000 LCBCSWSV EQU LCBSAVSN+1 02507000 LCBSNSV EQU LCBSAVSN 02508000 LCBBFSNS EQU LCBRSPSV 02509000 LCBWAITC EQU LCBTPCD+5 02510000 LCBINPAK EQU LCBSTAT6 02511000 LCBMHBID EQU LCBSTAT6 02512000 LCBRTRRO EQU LCBSTAT6 02513000 LCBHDRPD EQU LCBSTAT6 02514000 LCBCHN EQU LCBSTAT6 02515000 LCBBFRSV EQU LCBTPCD+1 02516000 @NM00126 EQU LCBSTAT5 02517000 LCBLUS EQU LCBSTAT5 02518000 LCBLUNIT EQU LCBSTAT5 02519000 LCBPERM EQU LCBSTAT5 02520000 LCBNXCMD EQU LCBBFRW 02521000 LCBERMSK EQU LCBOBRCH 02522000 LCBSCBA EQU IEDQLCB+93 02523000 LCBOLT EQU LCBMSGFM 02524000 LCBEOT EQU LCBMSGFM 02525000 LCBENQ EQU LCBMSGFM 02526000 LCBTTD EQU LCBMSGFM 02527000 LCBRSTRT EQU LCBMSGFM 02528000 LCBVSTRT EQU LCBMSGFM 02529000 LCBACKI EQU LCBMSGFM 02530000 LCBNAK EQU LCBMSGFM 02531000 @NM00125 EQU LCBRBCT2 02532000 LCBDCNT EQU LCBRBCT2 02533000 LCBRBCT1 EQU LCBERBCT 02534000 LCBERBCH EQU IEDQLCB+85 02535000 LCBCOMPL EQU LCBDLNKN 02536000 LCBPRCPG EQU LCBERBST 02537000 LCBERROR EQU LCBERBST 02538000 @NM00124 EQU LCBERBST 02539000 LCBINQ EQU LCBERBST 02540000 LCBRDERR EQU LCBERBST 02541000 LCBEOMSG EQU LCBERBST 02542000 LCBMSG EQU LCBERBST 02543000 LCBERBLK EQU IEDQLCB+81 02544000 LCBERBPY EQU IEDQLCB+80 02545000 LCBERBQB EQU LCBERB+1 02546000 LCBERBKY EQU LCBERB 02547000 LCBRECAD EQU IEDQLCB+73 02548000 @NM00123 EQU LCBTSTSW 02549000 @NM00122 EQU LCBTSTSW 02550000 @NM00121 EQU LCBTSTSW 02551000 @NM00120 EQU LCBTSTSW 02552000 @NM00119 EQU LCBTSTSW 02553000 @NM00118 EQU LCBTSTSW 02554000 @NM00117 EQU LCBTSTSW 02555000 LCBCONCT EQU LCBTSTSW 02556000 LCBRESP EQU LCBSTAT2 02557000 LCBBFRAV EQU LCBDIAL 02558000 LCBATTN EQU LCBSYNC 02559000 LCBNEGRP EQU LCBSTAT2 02560000 LCBSNDPR EQU LCBSTAT2 02561000 LCBCONNN EQU LCBBEOTN 02562000 LCBMSGNN EQU LCBSTAT2 02563000 LCBTRACE EQU LCBSTAT2 02564000 LCBSENDN EQU LCBSTAT1 02565000 LCBRECVN EQU LCBSTAT1 02566000 LCBFREEN EQU LCBSTAT1 02567000 LCBCONT EQU LCBSTAT1 02568000 LCBINITN EQU LCBSTAT1 02569000 LCBOCNI EQU LCBSTAT1 02570000 LCBOCWTN EQU LCBSTAT1 02571000 LCBRCLLN EQU LCBSTAT1 02572000 LCBRECOF EQU IEDQLCB+68 02573000 LCBRDBFR EQU LCBRCBFR 02574000 LCBUCBX EQU IEDQLCB+64 02575000 LCBTTBIN EQU LCBERRCT 02576000 @NM00116 EQU LCBINCAM 02577000 LCBGETMN EQU LCBINCAM 02578000 LCBRESTR EQU LCBRCQCB 02579000 LCBPCILK EQU LCBDCBPT 02580000 LCBSTART EQU LCBIOBSN+16 02581000 LCBAP4OL EQU LCBSIOCC 02582000 LCBAP3OL EQU LCBSIOCC 02583000 LCBAP2OL EQU LCBSIOCC 02584000 LCBAP1OL EQU LCBSIOCC 02585000 LCBSIOC2 EQU LCBSIOCC 02586000 LCBSIOC1 EQU LCBSIOCC 02587000 @NM00115 EQU LCBSIOCC 02588000 LCBCSWRC EQU LCBCSW+5 02589000 LCBCSCHC EQU LCBCSWCS 02590000 LCBCSICC EQU LCBCSWCS 02591000 LCBCSCCC EQU LCBCSWCS 02592000 LCBCSCDC EQU LCBCSWCS 02593000 LCBCSPTC EQU LCBCSWCS 02594000 LCBCSPGC EQU LCBCSWCS 02595000 LCBCSIL EQU LCBCSWCS 02596000 LCBCSPCI EQU LCBCSWCS 02597000 LCBUSUE EQU LCBCSWUS 02598000 LCBUSUC EQU LCBCSWUS 02599000 LCBUSDE EQU LCBCSWUS 02600000 LCBUSCE EQU LCBCSWUS 02601000 LCBUSBSY EQU LCBCSWUS 02602000 LCBUSCUE EQU LCBCSWUS 02603000 LCBUSSM EQU LCBCSWUS 02604000 LCBUSAT EQU LCBCSWUS 02605000 LCBCSWCA EQU LCBCSW 02606000 LCBOBR EQU LCBFLAG3 02607000 LCBOBRRD EQU LCBFLAG3 02608000 LCBIOMSG EQU LCBFLAG3 02609000 LCBSOHC EQU LCBFLAG3 02610000 LCBRLAD EQU LCBFLAG3 02611000 LCBSOHR EQU LCBFLAG3 02612000 @NM00114 EQU LCBFLAG3 02613000 LCBECBPT EQU LCBIOBSN+4 02614000 LCBECBCC EQU LCBIOBSN+3 02615000 LCBSENS1 EQU LCBSNS+1 02616000 LCBABORT EQU LCBTMOUT 02617000 LCBNOTIN EQU LCBLOSDT 02618000 LCBOVRUN EQU LCBSENS0 02619000 LCBDATCK EQU LCBSENS0 02620000 LCBEQUCK EQU LCBSENS0 02621000 LCBBUSCK EQU LCBSENS0 02622000 LCBINTRQ EQU LCBSENS0 02623000 LCBCMDRJ EQU LCBSENS0 02624000 LCBFLAG2 EQU LCBIOBSN 02625000 @NM00113 EQU LCBFLAG1 02626000 LCBUNREL EQU LCBFLAG1 02627000 LCBEXCPN EQU LCBFLAG1 02628000 @NM00112 EQU LCBFLAG1 02629000 LCBERPIN EQU LCBFLAG1 02630000 @NM00111 EQU LCBFLAG1 02631000 LCBFSBFR EQU LCBMHA 02632000 LCBISZE EQU IEDQLCB+28 02633000 LCBLNENT EQU LCBSCBDA+1 02634000 @NM00110 EQU LCBSCBDA 02635000 LCBCPGMH EQU LCBSTAT4 02636000 LCBREAL EQU LCBPHASE 02637000 @NM00109 EQU LCBSTAT4 02638000 LCBACTRQ EQU LCBSTAT4 02639000 LCBIPLRQ EQU LCBSTAT4 02640000 LCBDACRQ EQU LCBSTAT4 02641000 LCBDMPRQ EQU LCBSTAT4 02642000 @NM00108 EQU LCBLKMDE 02643000 LCBLOCKI EQU LCBLKMDE 02644000 LCBLOCKR EQU LCBLKMDE 02645000 LCBHMFLG EQU LCBLKMDE 02646000 LCBBDFLG EQU LCBLKMDE 02647000 @NM00107 EQU LCBINSRC 02648000 LCBABRTN EQU LCBCHAIN 02649000 LCBCTLMD EQU LCBTETEN 02650000 LCBBFRSZ EQU LCBCHAIN 02651000 LCBUREQN EQU LCBCHAIN 02652000 LCBNORTY EQU LCBCHAIN 02653000 LCBERMSG EQU LCBCHAIN 02654000 LCBEXCP EQU LCBCHAIN 02655000 LCBINVRQ EQU LCBSCRNN 02656000 LCB2741N EQU LCBTSOB 02657000 LCBINHBN EQU LCBTSOB 02658000 LCBCIRCD EQU LCBTSOB 02659000 LCBPREP EQU LCBTSOB 02660000 LCBSOPL EQU LCBTSOB 02661000 LCBSATRD EQU LCBTSOB 02662000 LCBTSBUF EQU LCBTSOB 02663000 LCBWRBRK EQU LCBTSOB 02664000 LCBTDL EQU IEDQLCB+18 02665000 LCBEOLTD EQU IEDQLCB+16 02666000 LCBRSLNK EQU IEDQLCB+13 02667000 LCBRSPRI EQU IEDQLCB+12 02668000 LCBSTCBA EQU IEDQLCB+9 02669000 LCBRSKEY EQU IEDQLCB+8 02670000 LCBKEY EQU LCBRCB 02671000 CVTLEVL EQU CVTRELNO+2 02672000 CVTNUMB EQU CVTRELNO 02673000 CVTMDL EQU CVTFIX+250 02674000 @NM00106 EQU CVTFIX+248 02675000 @NM00105 EQU CVTFIX 02676000 CVTRV482 EQU CVTXTNT2+128 02677000 CVTRV481 EQU CVTXTNT2+124 02678000 CVTRV480 EQU CVTXTNT2+120 02679000 CVTRV479 EQU CVTXTNT2+118 02680000 CVTRV478 EQU CVTXTNT2+117 02681000 CVTRV477 EQU CVTXTNT2+116 02682000 CVTRV476 EQU CVTXTNT2+115 02683000 CVTRV475 EQU CVTXTNT2+114 02684000 CVTRV474 EQU CVTRV466 02685000 CVTRV473 EQU CVTRV466 02686000 CVTRV472 EQU CVTRV466 02687000 CVTRV471 EQU CVTRV466 02688000 CVTRV470 EQU CVTRV466 02689000 CVTRV469 EQU CVTRV466 02690000 CVTRV468 EQU CVTRV466 02691000 CVTRV467 EQU CVTRV466 02692000 CVTRV465 EQU CVTRV457 02693000 CVTRV464 EQU CVTRV457 02694000 CVTRV463 EQU CVTRV457 02695000 CVTRV462 EQU CVTRV457 02696000 CVTRV461 EQU CVTRV457 02697000 CVTRV460 EQU CVTRV457 02698000 CVTRV459 EQU CVTRV457 02699000 CVTRV458 EQU CVTRV457 02700000 CVTRV456 EQU CVTXTNT2+108 02701000 CVTRV455 EQU CVTXTNT2+104 02702000 CVTRV454 EQU CVTXTNT2+100 02703000 CVTRV453 EQU CVTXTNT2+96 02704000 CVTRV452 EQU CVTXTNT2+94 02705000 CVTRV451 EQU CVTXTNT2+92 02706000 CVTRV450 EQU CVTXTNT2+90 02707000 CVTRV449 EQU CVTXTNT2+88 02708000 CVTRV448 EQU CVTXTNT2+87 02709000 CVTRV447 EQU CVTXTNT2+86 02710000 CVTRV446 EQU CVTRV438 02711000 CVTRV445 EQU CVTRV438 02712000 CVTRV444 EQU CVTRV438 02713000 CVTRV443 EQU CVTRV438 02714000 CVTRV442 EQU CVTRV438 02715000 CVTRV441 EQU CVTRV438 02716000 CVTRV440 EQU CVTRV438 02717000 CVTRV439 EQU CVTRV438 02718000 CVTRV437 EQU CVTRV429 02719000 CVTRV436 EQU CVTRV429 02720000 CVTRV435 EQU CVTRV429 02721000 CVTRV434 EQU CVTRV429 02722000 CVTRV433 EQU CVTRV429 02723000 CVTRV432 EQU CVTRV429 02724000 CVTRV431 EQU CVTRV429 02725000 CVTRV430 EQU CVTRV429 02726000 CVTRV428 EQU CVTXTNT2+80 02727000 CVTRV427 EQU CVTXTNT2+76 02728000 CVTRV426 EQU CVTXTNT2+72 02729000 CVTRV425 EQU CVTXTNT2+68 02730000 CVTATACT EQU CVTATCVT 02731000 CVTRV423 EQU CVTXTNT2+62 02732000 CVTRV422 EQU CVTXTNT2+60 02733000 CVTRV421 EQU CVTXTNT2+58 02734000 CVTRV420 EQU CVTXTNT2+56 02735000 CVTRV419 EQU CVTXTNT2+55 02736000 CVTRV418 EQU CVTXTNT2+54 02737000 CVTRV417 EQU CVTRV409 02738000 CVTRV416 EQU CVTRV409 02739000 CVTRV415 EQU CVTRV409 02740000 CVTRV414 EQU CVTRV409 02741000 CVTRV413 EQU CVTRV409 02742000 CVTRV412 EQU CVTRV409 02743000 CVTRV411 EQU CVTRV409 02744000 CVTRV410 EQU CVTRV409 02745000 CVTRV408 EQU CVTRV400 02746000 CVTRV407 EQU CVTRV400 02747000 CVTRV406 EQU CVTRV400 02748000 CVTRV405 EQU CVTRV400 02749000 CVTRV404 EQU CVTRV400 02750000 CVTRV403 EQU CVTRV400 02751000 CVTRV402 EQU CVTRV400 02752000 CVTRV401 EQU CVTRV400 02753000 CVTICB EQU CVTXTNT2+48 02754000 CVTSKTA EQU CVTXTNT2+44 02755000 CVTSHSB EQU CVTSHS 02756000 CVTRSV98 EQU CVTXTNT2+36 02757000 CVTRSV97 EQU CVTXTNT2+34 02758000 CVTRSV96 EQU CVTXTNT2+32 02759000 CVTOLTEP EQU CVTXTNT2+28 02760000 CVTQIDA EQU CVTQID+1 02761000 CVTRSV95 EQU CVTQID 02762000 CVTRSV94 EQU CVTXTNT2+20 02763000 CVTRSV93 EQU CVTXTNT2+16 02764000 CVTRSV92 EQU CVTXTNT2+12 02765000 CVTDEBVR EQU CVTXTNT2+8 02766000 CVTRSV91 EQU CVTXTNT2+6 02767000 CVTRSV9H EQU CVTFLGBT 02768000 CVTRSV9G EQU CVTFLGBT 02769000 CVTRSV9F EQU CVTFLGBT 02770000 CVTRSV9E EQU CVTFLGBT 02771000 CVTRSV9D EQU CVTFLGBT 02772000 CVTRSV9C EQU CVTFLGBT 02773000 CVTVME EQU CVTFLGBT 02774000 CVTNPE EQU CVTFLGBT 02775000 CVTNUCLS EQU CVTXTNT2+4 02776000 CVTDSSVA EQU CVTDSSV+1 02777000 CVTRSV89 EQU CVTDSSV 02778000 CVTRSV88 EQU CVTXTNT1+8 02779000 CVTRSV87 EQU CVTXTNT1+4 02780000 CVTFACHN EQU CVTXTNT1 02781000 CVTRV488 EQU CVTMAP+412 02782000 CVTRV487 EQU CVTMAP+408 02783000 CVTRV486 EQU CVTMAP+404 02784000 CVTRV485 EQU CVTMAP+400 02785000 CVTACTAP EQU CVTMAP+396 02786000 CVTAUTH EQU CVTMAP+392 02787000 CVTATMCA EQU CVTATMCT+1 02788000 CVTATMST EQU CVTATMCT 02789000 CVTRSV61 EQU CVTMAP+384 02790000 CVTVOLT1 EQU CVTVOLM1+1 02791000 CVTVOLI1 EQU CVTVOLF1 02792000 CVTSTOA EQU CVTMAP+376 02793000 CVTRSV58 EQU CVTMAP+374 02794000 CVTRSV57 EQU CVTMAP+372 02795000 CVTDDCE EQU CVTMAP+368 02796000 CVTPNWFR EQU CVTMAP+364 02797000 CVTSMF EQU CVTMAP+360 02798000 CVTSULK EQU CVTMAP+358 02799000 CVTSLKO EQU CVTSYSK 02800000 CVTSLKP EQU CVTSYSK 02801000 CVTSLKQ EQU CVTSYSK 02802000 CVTSLKR EQU CVTSYSK 02803000 CVTRSV56 EQU CVTSYSK 02804000 CVTRSV55 EQU CVTSYSK 02805000 CVTRSV54 EQU CVTSYSK 02806000 CVTRSV53 EQU CVTSYSK 02807000 CVTRSV52 EQU CVTA1F1 02808000 CVTRSV51 EQU CVTA1F1 02809000 CVTRSV50 EQU CVTA1F1 02810000 CVTRSV49 EQU CVTA1F1 02811000 CVTRSV48 EQU CVTA1F1 02812000 CVTRSV47 EQU CVTA1F1 02813000 CVTSRSW EQU CVTA1F1 02814000 CVTPFSW EQU CVTA1F1 02815000 CVTPCVT EQU CVTMAP+352 02816000 CVTRSV46 EQU CVTMAP+344 02817000 CVTRSV45 EQU CVTMAP+340 02818000 CVTRSV44 EQU CVTMAP+338 02819000 CVTRSV43 EQU CVTMAP+336 02820000 CVTHJESA EQU CVTHJES+1 02821000 CVTRSV42 EQU CVTHJES 02822000 CVTEXT2A EQU CVTEXT2+1 02823000 CVTRSV41 EQU CVTEXT2 02824000 CVTAPFA EQU CVTAPF+1 02825000 CVTRSV40 EQU CVTAPF 02826000 CVTRV518 EQU CVTINTLA 02827000 CVTRV517 EQU CVTERPV 02828000 CVTEORM EQU CVTMAP+312 02829000 CVTMCHPR EQU CVTMAP+308 02830000 CVTTZ EQU CVTMAP+304 02831000 CVTJEPS EQU CVTMAP+300 02832000 CVTJESCT EQU CVTMAP+296 02833000 CVTMODE EQU CVTMAP+292 02834000 CVTPTRV EQU CVTMAP+288 02835000 CVTREAL EQU CVTMAP+284 02836000 CVTRSV39 EQU CVTMAP+280 02837000 CVTRSV38 EQU CVTMAP+276 02838000 CVTDMSRA EQU CVTDMSR+1 02839000 CVTRV634 EQU CVTDMSRF 02840000 CVTRV633 EQU CVTDMSRF 02841000 CVTRV632 EQU CVTDMSRF 02842000 CVTRV631 EQU CVTDMSRF 02843000 CVTRV630 EQU CVTDMSRF 02844000 CVTRV629 EQU CVTDMSRF 02845000 CVTUDUMP EQU CVTDMSRF 02846000 CVTSDUMP EQU CVTDMSRF 02847000 CVTQMSGA EQU CVTQMSG+1 02848000 CVTRSV36 EQU CVTQMSG 02849000 CVTAMFF EQU CVTMAP+264 02850000 CVTPURGA EQU CVTPURG+1 02851000 CVTRSV35 EQU CVTPURG 02852000 CVTCBSP EQU CVTMAP+256 02853000 CVTATERA EQU CVTATER+1 02854000 CVTSYST EQU CVTATER 02855000 CVTVOLT2 EQU CVTTAT 02856000 CVTVOLI2 EQU CVTVOLF2 02857000 CVTAQAVB EQU CVTAQAVT+1 02858000 CVTRSV34 EQU CVTTCMFG 02859000 CVTRSV33 EQU CVTTCMFG 02860000 CVTRSV32 EQU CVTTCMFG 02861000 CVTRSV31 EQU CVTTCMFG 02862000 CVTRSV30 EQU CVTTCMFG 02863000 CVTRSV29 EQU CVTTCMFG 02864000 CVTRSV28 EQU CVTTCMFG 02865000 CVTTCRDY EQU CVTTCMFG 02866000 CVTGTFA EQU CVTGTF+1 02867000 CVTRSV27 EQU CVTGTFST 02868000 CVTRNIO EQU CVTGTFST 02869000 CVTUSR EQU CVTGTFST 02870000 CVTRV318 EQU CVTFORM 02871000 CVTRV317 EQU CVTTMODE 02872000 CVTRV316 EQU CVTSTATE 02873000 CVTRV315 EQU CVTGTFS 02874000 CVTGTFAV EQU CVTGTFS 02875000 CVT0SCR1 EQU CVTMAP+232 02876000 CVTRV515 EQU CVTMAP+228 02877000 CVTRMS EQU CVTMAP+224 02878000 CVTPATCH EQU CVTMAP+220 02879000 CVTTSCE EQU CVTMAP+216 02880000 CVTLNKSC EQU CVTMAP+214 02881000 CVTQABST EQU CVTMAP+212 02882000 CVTMDLDS EQU CVTMAP+208 02883000 CVTUSER EQU CVTMAP+204 02884000 CVTABEND EQU CVTMAP+200 02885000 CVTSMCA EQU CVTMAP+196 02886000 CVTRSV18 EQU CVTMAP+192 02887000 CVTQLPAQ EQU CVTMAP+188 02888000 CVTQCDSR EQU CVTMAP+184 02889000 CVTRSV17 EQU CVTOPTB 02890000 CVTRSV16 EQU CVTOPTB 02891000 CVTFP EQU CVTOPTB 02892000 CVTAPTHR EQU CVTOPTB 02893000 CVTNLOG EQU CVTOPTB 02894000 CVTTOD EQU CVTOPTB 02895000 CVTCTIMS EQU CVTOPTB 02896000 CVTPROT EQU CVTOPTB 02897000 CVTXPFP EQU CVTOPTA 02898000 CVTASCII EQU CVTOPTA 02899000 CVTRSV13 EQU CVTOPTA 02900000 CVTRSV12 EQU CVTOPTA 02901000 CVTNIP EQU CVTOPTA 02902000 CVTDDR EQU CVTOPTA 02903000 CVTAPR EQU CVTOPTA 02904000 CVTCCH EQU CVTOPTA 02905000 CVTSNCTR EQU CVTMAP+180 02906000 CVTQMWR EQU CVTMAP+176 02907000 CVTQOCR EQU CVTMAP+172 02908000 CVT1EF00 EQU CVTMAP+168 02909000 CVTMZ00 EQU CVTMAP+164 02910000 CVTHEAD EQU CVTMAP+160 02911000 CVTRSV11 EQU CVTMAP+156 02912000 CVT0PT01 EQU CVTMAP+152 02913000 CVTMSER EQU CVTMAP+148 02914000 CVTRV516 EQU CVTIERLC 02915000 CVTILCH EQU CVTMAP+140 02916000 CVT0DS EQU CVTMAP+136 02917000 CVTFBOSV EQU CVTMAP+132 02918000 CVTNUCB EQU CVTMAP+128 02919000 CVTIXAVL EQU CVTMAP+124 02920000 CVTIOQET EQU CVTMAP+120 02921000 CVTDCBA EQU CVTMAP+117 02922000 CVTMVS2 EQU CVTDCB 02923000 CVT6DAT EQU CVTDCB 02924000 CVT4MPS EQU CVTDCB 02925000 CVTRSV09 EQU CVTDCB 02926000 CVT4MS1 EQU CVTDCB 02927000 CVT2SPS EQU CVTDCB 02928000 CVT1SSS EQU CVTDCB 02929000 CVTRSV08 EQU CVTDCB 02930000 CVTSTB EQU CVTMAP+112 02931000 CVTQTD00 EQU CVTMAP+108 02932000 CVTQTE00 EQU CVTMAP+104 02933000 CVTCUCB EQU CVTMAP+100 02934000 CVTSJQ EQU CVTMAP+96 02935000 CVTPBLDL EQU CVTMAP+92 02936000 CVTTPC EQU CVTMAP+88 02937000 CVTSVDCB EQU CVTMAP+84 02938000 CVTBRET EQU CVTMAP+82 02939000 CVTEXIT EQU CVTMAP+80 02940000 CVT0FN00 EQU CVTMAP+76 02941000 CVTDARA EQU CVTDAR+1 02942000 CVTRSV07 EQU CVTFLGS1 02943000 CVTRSV06 EQU CVTFLGS1 02944000 CVTRSV05 EQU CVTFLGS1 02945000 CVTRSV04 EQU CVTFLGS1 02946000 CVTRSV03 EQU CVTFLGS1 02947000 CVTRSV02 EQU CVTFLGS1 02948000 CVTRSV01 EQU CVTFLGS1 02949000 CVTDMPLK EQU CVTFLGS1 02950000 CVTXITP EQU CVTMAP+68 02951000 CVTZDTAB EQU CVTMAP+64 02952000 CVTMSLT EQU CVTMAP+60 02953000 CVTDATE EQU CVTMAP+56 02954000 CVTBTERM EQU CVTMAP+52 02955000 CVTSYSAD EQU CVTMAP+48 02956000 CVTXTLER EQU CVTMAP+44 02957000 CVTILK2 EQU CVTMAP+40 02958000 CVTILK1 EQU CVTMAP+36 02959000 CVTPRLTV EQU CVTMAP+32 02960000 CVTPCNVT EQU CVTMAP+28 02961000 CVT0VL00 EQU CVTMAP+24 02962000 CVTXAPG EQU CVTMAP+20 02963000 CVTBUF EQU CVTMAP+16 02964000 CVTJOB EQU CVTMAP+12 02965000 CVTLINK EQU CVTMAP+8 02966000 CVT0EF00 EQU CVTMAP+4 02967000 CVTTCBP EQU CVTMAP 02968000 CVT EQU CVTMAP 02969000 SAVTBITN EQU IEDNSVTD+312 02970000 @NM00104 EQU SAVTCKQB+8 02971000 @NM00103 EQU SAVTCKEC+1 02972000 @NM00102 EQU SAVTCKCC 02973000 SAVTCKPO EQU SAVTCKCC 02974000 SAVTCKWA EQU SAVTCKCC 02975000 SAVTCKCH EQU SAVTCKTB+1 02976000 SAVTCKVT EQU SAVTCKTB 02977000 @NM00101 EQU IEDNSVTD+297 02978000 SAVTRDFG EQU SAVTRDRV+12 02979000 @NM00100 EQU SAVTRDRV+5 02980000 SAVTRDPY EQU SAVTRDRV+4 02981000 SAVTRDQB EQU SAVTRDRV+1 02982000 SAVTRDKY EQU SAVTRDRV 02983000 SAVTNID EQU IEDNSVTD+280 02984000 SAVTDVAS EQU IEDNSVTD+276 02985000 SAVTPLSZ EQU IEDNSVTD+274 02986000 @NM00099 EQU IEDNSVTD+273 02987000 SAVTSUBL EQU IEDNSVTD+272 02988000 @NM00098 EQU SAVTZELM+1 02989000 SAVTSUBM EQU SAVTZELM 02990000 SAVTMHDX EQU IEDNSVTD+268 02991000 SAVTNAT1 EQU IEDNSVTD+266 02992000 SAVTSH20 EQU IEDNSVTD+264 02993000 SAVTLCBS EQU IEDNSVTD+260 02994000 SAVTRNMP EQU IEDNSVTD+256 02995000 SAVTTNTX EQU IEDNSVTD+252 02996000 SAVTNAX EQU IEDNSVTD+248 02997000 SAVTSUBV EQU IEDNSVTD+247 02998000 SAVTSUBA EQU IEDNSVTD+246 02999000 SAVTSIBC EQU IEDNSVTD+244 03000000 SAVTBSM EQU IEDNSVTD+240 03001000 SAVTSCPT EQU SAVTTCPU 03002000 SAVTRQTG EQU IEDNSVTD+236 03003000 SAVTRQCH EQU IEDNSVTD+232 03004000 SAVTMAND EQU IEDNSVTD+228 03005000 SAVTNADL EQU IEDNSVTD+222 03006000 SAVTNATL EQU IEDNSVTD+220 03007000 SAVTMHTB EQU IEDNSVTD+216 03008000 SAVTSSMH EQU IEDNSVTD+212 03009000 SAVTQRS EQU IEDNSVTD+208 03010000 SAVTRQIN EQU IEDNSVTD+204 03011000 SAVTDFCO EQU IEDNSVTD+200 03012000 SAVTSAO EQU IEDNSVTD+196 03013000 SAVTSARI EQU IEDNSVTD+192 03014000 SAVTSAC EQU IEDNSVTD+188 03015000 SAVTSAI EQU IEDNSVTD+184 03016000 SAVTCSCI EQU IEDNSVTD+180 03017000 SAVTSSRP EQU IEDNSVTD+176 03018000 SAVTSSRQ EQU IEDNSVTD+172 03019000 SAVTSCLU EQU IEDNSVTD+168 03020000 SAVTXTRQ EQU IEDNSVTD+164 03021000 SAVTMVBF EQU IEDNSVTD+160 03022000 @NM00097 EQU IEDNSVTD+148 03023000 SAVTIPCQ EQU IEDNSVTD+144 03024000 @NM00096 EQU IEDNSVTD+136 03025000 SAVTXFMI EQU IEDNSVTD+132 03026000 @NM00095 EQU IEDNSVTD+124 03027000 SAVTXFMO EQU IEDNSVTD+120 03028000 @NM00094 EQU IEDNSVTD+116 03029000 SAVTSSSR EQU IEDNSVTD+112 03030000 SAVTSCPQ EQU IEDNSVTD+108 03031000 SAVTSLCB EQU IEDNSVTD+104 03032000 SAVTLUSR EQU IEDNSVTD+100 03033000 @NM00093 EQU SAVTLUSQ+8 03034000 SAVTLUSP EQU SAVTLUSQ+4 03035000 SAVTLUSB EQU SAVTLUSQ 03036000 @NM00092 EQU IEDNSVTD+84 03037000 SAVTSAT EQU IEDNSVTD+80 03038000 SAVTNAT EQU IEDNSVTD+76 03039000 SAVTCLUP EQU IEDNSVTD+72 03040000 SAVTPIUT EQU IEDNSVTD+68 03041000 SAVTRNTA EQU IEDNSVTD+64 03042000 SAVTDNIR EQU IEDNSVTD+60 03043000 SAVTCNIR EQU IEDNSVTD+56 03044000 SAVTFLDH EQU IEDNSVTD+52 03045000 SAVTSRTN EQU IEDNSVTD+48 03046000 SAVTSREQ EQU IEDNSVTD+44 03047000 SAVTFAIL EQU IEDNSVTD+42 03048000 SAVTSUSE EQU IEDNSVTD+40 03049000 SAVTSIB EQU IEDNSVTD+36 03050000 SAVTPRTN EQU IEDNSVTD+32 03051000 @NM00091 EQU IEDNSVTD+28 03052000 SAVTWH20 EQU IEDNSVTD+26 03053000 SAVTPWT EQU IEDNSVTD+24 03054000 SAVTPRTQ EQU IEDNSVTD+20 03055000 SAVTPREQ EQU IEDNSVTD+16 03056000 SAVTPH20 EQU IEDNSVTD+14 03057000 SAVTPUSE EQU IEDNSVTD+12 03058000 SAVTPLCB EQU IEDNSVTD+8 03059000 SAVTPOOL EQU IEDNSVTD+4 03060000 SAVTPRMT EQU SAVTDIAF 03061000 SAVTVIRT EQU SAVTDIAF 03062000 AVTCPBNO EQU IEDQAVTD+1244 03063000 AVTHRESS EQU IEDQAVTD+1243 03064000 @NM00090 EQU IEDQAVTD+1242 03065000 @NM00089 EQU IEDQAVTD+1241 03066000 @NM00088 EQU IEDQAVTD+1240 03067000 @NM00087 EQU IEDQAVTD+1237 03068000 @NM00086 EQU IEDQAVTD+1236 03069000 AVTHRESE EQU @NM00085 03070000 AVTRADDR EQU IEDQAVTD+1228 03071000 AVTNADDR EQU IEDQAVTD+1224 03072000 AVTHRESN EQU IEDQAVTD+1220 03073000 AVTVOLRN EQU IEDQAVTD+1216 03074000 AVTTOTNN EQU IEDQAVTD+1212 03075000 AVTTRCYN EQU IEDQAVTD+1208 03076000 AVTRCTRN EQU IEDQAVTD+1204 03077000 AVTNOVON EQU IEDQAVTD+1200 03078000 AVTADEBN EQU IEDQAVTD+1196 03079000 AVTVOLRR EQU IEDQAVTD+1192 03080000 AVTTOTNR EQU IEDQAVTD+1188 03081000 AVTTRCYR EQU IEDQAVTD+1184 03082000 AVTRCTRR EQU IEDQAVTD+1180 03083000 AVTNOVOR EQU IEDQAVTD+1176 03084000 AVTADEBR EQU IEDQAVTD+1172 03085000 AVTLODPT EQU IEDQAVTD+1168 03086000 AVTIOBN EQU IEDQAVTD+1164 03087000 AVTIOBR EQU IEDQAVTD+1160 03088000 AVTCPBPT EQU IEDQAVTD+1156 03089000 AVTFCPB EQU IEDQAVTD+1152 03090000 @NM00084 EQU IEDQAVTD+1148 03091000 AVTINCPQ EQU IEDQAVTD+1144 03092000 @NM00083 EQU IEDQAVTD+1140 03093000 @NM00082 EQU IEDQAVTD+1137 03094000 @NM00081 EQU AVTBIT4 03095000 @NM00080 EQU AVTBIT4 03096000 @NM00079 EQU AVTBIT4 03097000 @NM00078 EQU AVTBIT4 03098000 @NM00077 EQU AVTBIT4 03099000 @NM00076 EQU AVTBIT4 03100000 @NM00075 EQU AVTBIT4 03101000 AVTRUFTN EQU AVTBIT4 03102000 @NM00074 EQU IEDQAVTD+1132 03103000 AVTNOBFQ EQU IEDQAVTD+1128 03104000 @NM00073 EQU IEDQAVTD+1124 03105000 AVTDKENQ EQU IEDQAVTD+1120 03106000 @NM00072 EQU IEDQAVTD+1116 03107000 AVTDKAPQ EQU IEDQAVTD+1112 03108000 AVTCOPY EQU IEDQAVTD+1108 03109000 AVTIA EQU IEDQAVTD+1104 03110000 AVTFL EQU IEDQAVTD+1100 03111000 @NM00071 EQU IEDQAVTD+1096 03112000 AVTNCPBQ EQU IEDQAVTD+1092 03113000 AVTTOTNC EQU IEDQAVTD+1088 03114000 AVTCMAX EQU IEDQAVTD+1084 03115000 AVTCMIN EQU IEDQAVTD+1080 03116000 AVTHM02 EQU IEDQAVTD+1076 03117000 AVTOPCIN EQU IEDQAVTD+1074 03118000 AVTDCTLN EQU IEDQAVTD+1072 03119000 AVTOPMSK EQU IEDQAVTD+1068 03120000 AVTDDFT EQU IEDQAVTD+1064 03121000 AVTSTEAL EQU IEDQAVTD+1060 03122000 AVTOPTN EQU IEDQAVTD+1056 03123000 AVTDSKCT EQU IEDQAVTD+1054 03124000 AVTCKRST EQU IEDQAVTD+1053 03125000 AVTSTAN EQU AVTBIT3 03126000 AVTSTACN EQU AVTBIT3 03127000 AVTSTAYN EQU AVTBIT3 03128000 AVTOLTBN EQU AVTBIT3 03129000 AVTTSAB EQU AVTBIT3 03130000 AVTRFULN EQU AVTBIT3 03131000 AVTRECVN EQU AVTBIT3 03132000 @NM00070 EQU AVTBIT2 03133000 @NM00069 EQU AVTBIT2 03134000 AVTOPEIN EQU AVTBIT2 03135000 AVTSTRTN EQU AVTBIT2 03136000 AVTTOPOL EQU AVTBIT2 03137000 AVTCOPYN EQU AVTBIT2 03138000 AVTREUSN EQU AVTBIT2 03139000 AVTEXTSC EQU AVTBIT2 03140000 AVTDISKN EQU AVTBIT1 03141000 AVTQUCKN EQU AVTBIT1 03142000 AVTCLOSN EQU AVTBIT1 03143000 AVTREADN EQU AVTBIT1 03144000 AVTDLAYN EQU AVTBIT1 03145000 AVTAQTAN EQU AVTBIT1 03146000 AVTTSON EQU AVTBIT1 03147000 AVTAPLKN EQU AVTBIT1 03148000 AVTDUMBR EQU IEDQAVTD+1048 03149000 AVTDLQX EQU IEDQAVTD+1046 03150000 AVTINTLV EQU IEDQAVTD+1044 03151000 AVTSMCNT EQU IEDQAVTD+1042 03152000 AVTAVFCT EQU IEDQAVTD+1040 03153000 AVTOPCON EQU IEDQAVTD+1038 03154000 AVTOPCNT EQU IEDQAVTD+1036 03155000 AVTLNCNT EQU IEDQAVTD+1034 03156000 AVTKEYLE EQU IEDQAVTD+1032 03157000 AVTHA16 EQU IEDQAVTD+1030 03158000 AVTHA7 EQU IEDQAVTD+1028 03159000 AVTHA4 EQU IEDQAVTD+1026 03160000 AVTHA3 EQU IEDQAVTD+1024 03161000 AVTHA2 EQU IEDQAVTD+1022 03162000 AVTGETMS EQU IEDQAVTD+1021 03163000 @NM00068 EQU IEDQAVTD+1020 03164000 AVTGETMD EQU IEDQAVTD+1016 03165000 AVTGETMN EQU IEDQAVTD+1012 03166000 AVTCWTOT EQU IEDQAVTD+1008 03167000 AVTCWINT EQU IEDQAVTD+956 03168000 AVTDTRAP EQU IEDQAVTD+952 03169000 @NM00067 EQU IEDQAVTD+950 03170000 @NM00066 EQU AVTIOTR 03171000 AVTIOTRH EQU AVTIOTR 03172000 AVTIOTRE EQU AVTIOTR 03173000 @NM00065 EQU AVTSUBT 03174000 AVTSUBPT EQU AVTSUBT 03175000 AVTSUBON EQU AVTSUBT 03176000 AVTAFE30 EQU IEDQAVTD+944 03177000 AVTAFE20 EQU IEDQAVTD+940 03178000 AVTAFE10 EQU IEDQAVTD+936 03179000 AVTCWEC2 EQU IEDQAVTD+932 03180000 AVTCWPM2 EQU IEDQAVTD+928 03181000 AVTCWTS2 EQU IEDQAVTD+927 03182000 AVTCWTS1 EQU IEDQAVTD+926 03183000 AVTCWCLD EQU AVTCWFL2 03184000 AVTCWRAP EQU AVTCWFL2 03185000 @NM00064 EQU AVTCWFL2 03186000 @NM00063 EQU AVTCWFL2 03187000 @NM00062 EQU AVTCWFL2 03188000 @NM00061 EQU AVTCWFL2 03189000 @NM00060 EQU AVTCWFL2 03190000 AVTCWACT EQU AVTCWFL2 03191000 @NM00059 EQU AVTCWFL1 03192000 @NM00058 EQU AVTCWFL1 03193000 @NM00057 EQU AVTCWFL1 03194000 @NM00056 EQU AVTCWFL1 03195000 @NM00055 EQU AVTCWFL1 03196000 @NM00054 EQU AVTCWFL1 03197000 @NM00053 EQU AVTCWFL1 03198000 AVTCOMWN EQU AVTCWFL1 03199000 AVTCWEC1 EQU IEDQAVTD+920 03200000 AVTCWPM1 EQU IEDQAVTD+916 03201000 AVTCAREA EQU IEDQAVTD+912 03202000 AVTCADDR EQU IEDQAVTD+904 03203000 AVTCOREC EQU IEDQAVTD+900 03204000 @NM00052 EQU IEDQAVTD+892 03205000 AVTCPBCB EQU IEDQAVTD+888 03206000 @NM00051 EQU IEDQAVTD+880 03207000 AVTDSIOB EQU IEDQAVTD+876 03208000 @NM00050 EQU IEDQAVTD+868 03209000 AVTCPRMB EQU IEDQAVTD+864 03210000 @NM00049 EQU IEDQAVTD+856 03211000 AVTCLOSB EQU IEDQAVTD+852 03212000 @NM00048 EQU IEDQAVTD+844 03213000 AVTACTIB EQU IEDQAVTD+840 03214000 @NM00047 EQU IEDQAVTD+836 03215000 AVTOLTEB EQU IEDQAVTD+832 03216000 AVTOLTCH EQU AVTOLTQB+1 03217000 AVTOLTVT EQU AVTOLTQB 03218000 @NM00046 EQU AVTOPCQB+8 03219000 @NM00045 EQU AVTOPCEC+1 03220000 @NM00044 EQU AVTOPCCC 03221000 AVTOPCPO EQU AVTOPCCC 03222000 AVTOPCWA EQU AVTOPCCC 03223000 AVTOPCCH EQU AVTOPCOB+1 03224000 AVTOPCVT EQU AVTOPCOB 03225000 @NM00043 EQU AVTCKPQB+9 03226000 AVTCKPTS EQU AVTCKPQB+8 03227000 @NM00042 EQU AVTCKPEC+1 03228000 @NM00041 EQU AVTCKPCC 03229000 AVTCKPPO EQU AVTCKPCC 03230000 AVTCKPWA EQU AVTCKPCC 03231000 AVTCKPCH EQU AVTCKPTB+1 03232000 AVTCKPVT EQU AVTCKPTB 03233000 @NM00040 EQU IEDQAVTD+796 03234000 AVTBFRTB EQU IEDQAVTD+792 03235000 @NM00039 EQU IEDQAVTD+784 03236000 AVTBFREB EQU IEDQAVTD+780 03237000 AVTTIMQ EQU IEDQAVTD+776 03238000 @NM00038 EQU IEDQAVTD+772 03239000 AVTIMQPS EQU IEDQAVTD+768 03240000 AVTINOUT EQU IEDQAVTD+766 03241000 AVTREFTM EQU IEDQAVTD+764 03242000 @NM00037 EQU IEDQAVTD+752 03243000 AVTDELYB EQU IEDQAVTD+748 03244000 AVTOCQPT EQU IEDQAVTD+744 03245000 AVTTSOPT EQU IEDQAVTD+740 03246000 AVTSUPPT EQU IEDQAVTD+736 03247000 AVTCBQCB EQU IEDQAVTD+732 03248000 AVTMSGS EQU IEDQAVTD+729 03249000 @NM00036 EQU AVTSYSER 03250000 @NM00035 EQU AVTSYSER 03251000 @NM00034 EQU AVTSYSER 03252000 @NM00033 EQU AVTSYSER 03253000 @NM00032 EQU AVTSYSER 03254000 @NM00031 EQU AVTSYSER 03255000 AVTCMAXN EQU AVTSYSER 03256000 AVTCMINN EQU AVTSYSER 03257000 AVT2260L EQU IEDQAVTD+724 03258000 AVTABEPL EQU AVTADBUF 03259000 AVTHFF EQU AVTCLRHI+2 03260000 @NM00030 EQU AVTCLRHI 03261000 AVTCCLNK EQU AVTCRELE+5 03262000 AVTCCPRI EQU AVTCRELE+4 03263000 AVTCCQCB EQU AVTCCELE+1 03264000 AVTCCKEY EQU AVTCCELE 03265000 AVTDELAD EQU IEDQAVTD+704 03266000 AVTDELEM EQU IEDQAVTD+700 03267000 AVTBSX EQU AVTCKLNK 03268000 AVTOPETR EQU AVTHG01 03269000 @NM00029 EQU AVTCKBYT 03270000 AVTCKONQ EQU AVTCKBYT 03271000 @NM00028 EQU AVTCKBYT 03272000 @NM00027 EQU AVTCKBYT 03273000 @NM00026 EQU AVTCKBYT 03274000 @NM00025 EQU AVTCKBYT 03275000 @NM00024 EQU AVTCKBYT 03276000 @NM00023 EQU AVTCKBYT 03277000 AVTOPERT EQU IEDQAVTD+690 03278000 AVTOPXCL EQU IEDQAVTD+688 03279000 AVTOPERL EQU IEDQAVTD+687 03280000 @NM00022 EQU IEDQAVTD+686 03281000 AVTCKTIM EQU IEDQAVTD+684 03282000 AVTCKELV EQU IEDQAVTD+682 03283000 AVTCPRCD EQU IEDQAVTD+681 03284000 AVTWARMN EQU AVTCKELF 03285000 AVTCRTLN EQU AVTCKELF 03286000 AVTCPIPN EQU AVTCKELF 03287000 AVTCCLCN EQU AVTCKELF 03288000 AVTCINCN EQU AVTCKELF 03289000 @NM00021 EQU AVTCKELF 03290000 AVTCMCPN EQU AVTCKELF 03291000 AVTCRDYN EQU AVTCKELF 03292000 AVTCKQAD EQU IEDQAVTD+677 03293000 AVTSCBSZ EQU IEDQAVTD+676 03294000 @NM00020 EQU IEDQAVTD+672 03295000 AVTCKELE EQU IEDQAVTD+668 03296000 @NM00019 EQU AVTCKPEL+8 03297000 AVTCKRLK EQU AVTCKPEL+5 03298000 AVTCKRPR EQU AVTCKPEL+4 03299000 AVTCKRMQ EQU AVTCKRMV+1 03300000 AVTCKRKY EQU AVTCKRMV 03301000 AVTHK EQU IEDQAVTD+648 03302000 AVTHI EQU IEDQAVTD+644 03303000 AVTIOT EQU IEDQAVTD+640 03304000 AVTNX EQU IEDQAVTD+636 03305000 AVTTONE EQU IEDQAVTD+632 03306000 AVTA3TL EQU IEDQAVTD+628 03307000 AVTDMECB EQU IEDQAVTD+624 03308000 AVTABEND EQU IEDQAVTD+618 03309000 AVTPLCBN EQU IEDQAVTD+616 03310000 @NM00018 EQU AVTSAVTP+1 03311000 @NM00017 EQU AVTSAVTF 03312000 AVTSNA EQU AVTSAVTF 03313000 AVTONSNA EQU AVTSAVTF 03314000 AVTVTMCP EQU AVTSAVTF 03315000 @NM00016 EQU IEDQAVTD+608 03316000 AVTCMBSS EQU IEDQAVTD+604 03317000 AVTRCV EQU IEDQAVTD+600 03318000 AVTSEND EQU IEDQAVTD+596 03319000 AVTCSCH EQU IEDQAVTD+592 03320000 AVTQ1 EQU IEDQAVTD+588 03321000 AVTE7 EQU IEDQAVTD+584 03322000 AVTHB EQU IEDQAVTD+580 03323000 AVTR1 EQU IEDQAVTD+576 03324000 AVTBZ EQU IEDQAVTD+572 03325000 AVTEZ EQU IEDQAVTD+568 03326000 AVTEC EQU IEDQAVTD+564 03327000 AVTEW EQU IEDQAVTD+560 03328000 AVTNDIAL EQU AVTSCOPT 03329000 AVTN2741 EQU AVTSCOPT 03330000 AVTCONCO EQU AVTSCOPT 03331000 AVTCONC EQU AVTSCOPT 03332000 AVTCMBUF EQU AVTSCOPT 03333000 AVTAPDMP EQU AVTSCOPT 03334000 @NM00015 EQU AVTSCOPT 03335000 AVTHA EQU AVTDISP 03336000 AVTEA EQU IEDQAVTD+548 03337000 AVTAX EQU IEDQAVTD+544 03338000 AVTA3 EQU IEDQAVTD+540 03339000 AVTGD EQU IEDQAVTD+536 03340000 AVTAL EQU IEDQAVTD+532 03341000 AVTOLTST EQU AVTHG02 03342000 AVTE8 EQU IEDQAVTD+524 03343000 AVTUI EQU IEDQAVTD+520 03344000 AVTCOMPT EQU IEDQAVTD+516 03345000 AVTCRSRF EQU IEDQAVTD+512 03346000 @NM00014 EQU IEDQAVTD+508 03347000 AVTKA02 EQU IEDQAVTD+504 03348000 AVTOPTPT EQU IEDQAVTD+500 03349000 AVTPCBPT EQU IEDQAVTD+496 03350000 @NM00013 EQU AVTECB1 03351000 AVTCOMP EQU AVTECB1 03352000 @NM00012 EQU AVTECB1 03353000 AVTOPECA EQU IEDQAVTD+488 03354000 AVTOLECA EQU IEDQAVTD+484 03355000 AVTCKECA EQU IEDQAVTD+480 03356000 AVTCWECA EQU IEDQAVTD+476 03357000 AVTCWTCB EQU IEDQAVTD+472 03358000 AVTOLTCB EQU IEDQAVTD+468 03359000 AVTOCTCB EQU IEDQAVTD+464 03360000 AVTCKTCB EQU IEDQAVTD+460 03361000 AVTNOLBF EQU IEDQAVTD+454 03362000 AVTNCKPR EQU IEDQAVTD+453 03363000 AVTCIB EQU IEDQAVTD+452 03364000 AVTSPLPT EQU IEDQAVTD+448 03365000 AVTMVBFR EQU IEDQAVTD+444 03366000 AVTSBTA EQU IEDQAVTD+440 03367000 AVTRARTN EQU IEDQAVTD+436 03368000 AVTBSCAN EQU IEDQAVTD+432 03369000 AVTRDYA EQU IEDQAVTD+428 03370000 AVTDISTR EQU IEDQAVTD+420 03371000 AVTPARM3 EQU IEDQAVTD+416 03372000 @NM00011 EQU AVTPKF 03373000 @NM00010 EQU AVTPKF 03374000 @NM00009 EQU AVTPKF 03375000 AVTFTCHF EQU AVTPKF 03376000 @NM00008 EQU AVTPKF 03377000 @NM00007 EQU AVTPKF 03378000 @NM00006 EQU AVTPKF 03379000 @NM00005 EQU AVTPKF 03380000 AVTPARM EQU IEDQAVTD+408 03381000 AVTEXS2A EQU IEDQAVTD+402 03382000 AVTEXA2S EQU IEDQAVTD+396 03383000 AVTOCGET EQU IEDQAVTD+392 03384000 AVTCKAVT EQU @NM00003+1 03385000 @NM00004 EQU AVTCKFLG 03386000 AVTCKHLT EQU AVTCKFLG 03387000 AVTCKREQ EQU AVTCKFLG 03388000 AVTCKENV EQU AVTCKFLG 03389000 AVTCKNAC EQU AVTCKFLG 03390000 AVTCKTAC EQU AVTCKFLG 03391000 @NM00002 EQU IEDQAVTD+384 03392000 AVTREADD EQU IEDQAVTD+380 03393000 AVTREADY EQU IEDQAVTD+376 03394000 AVTRACE EQU IEDQAVTD+372 03395000 AVTTCB EQU IEDQAVTD+368 03396000 AVTPASWD EQU IEDQAVTD+360 03397000 AVTCTLCH EQU IEDQAVTD+352 03398000 AVTDOUBL EQU IEDQAVTD+344 03399000 AVTDOUBX EQU IEDQAVTD+336 03400000 AVTDPARM EQU IEDQAVTD+332 03401000 AVTCSTCS EQU IEDQAVTD+328 03402000 AVTDLQ EQU AVTSAVEX+32 03403000 @NM00001 EQU AVTSAVEX 03404000 AVTSAVE4 EQU IEDQAVTD+216 03405000 AVTSAVE3 EQU IEDQAVTD+144 03406000 AVTSAVE2 EQU IEDQAVTD+72 03407000 AVTSAVE1 EQU IEDQAVTD 03408000 @NM00206 EQU TCB+232 03409000 TCBRV190 EQU TCB+229 03410000 TCBSVCA1 EQU TCB+228 03411000 TCBJSONQ EQU TCBTTQE 03412000 TCBARBA EQU TCBARB+1 03413000 TCBRSV85 EQU TCBARB 03414000 TCBGQE EQU TCB+216 03415000 TCBEXT2A EQU TCBEXT2+1 03416000 TCBRSV39 EQU TCBEXT2 03417000 TCBSTMCT EQU TCB+207 03418000 TCBSYSCT EQU TCB+206 03419000 TCBRSV37 EQU TCB+205 03420000 TCBEXSVC EQU TCBDAR 03421000 TCBDARMS EQU TCBDAR 03422000 TCBDARWT EQU TCBDAR 03423000 TCBDARO EQU TCBDAR 03424000 TCBDARMC EQU TCBDARC 03425000 TCBDARD EQU TCBDAR 03426000 TCBDARS EQU TCBDAR 03427000 TCBDARP EQU TCBDAR 03428000 TCBGTOFM EQU TCBFLGS7 03429000 TCBRSV84 EQU TCBADMP 03430000 TCBRSV83 EQU TCBRSTSK 03431000 TCBSVCS EQU TCBFLGS7 03432000 TCBFWDD EQU TCBSTACK 03433000 TCBFDDEI EQU TCBRSV34 03434000 TCBFDDT EQU TCBRSV33 03435000 TCBFDD EQU TCBGPECB 03436000 TCBSTIJS EQU TCBNTJS 03437000 TCBDSINQ EQU TCBAPG 03438000 TCBRUNJB EQU TCBMIGR 03439000 TCBRUNPN EQU TCBRV303 03440000 TCBFPROT EQU TCBSPVLK 03441000 TCBPANIC EQU TCBCPU 03442000 TCBPIE17 EQU TCBFLGS6 03443000 TCBRV EQU TCBFLGS6 03444000 TCBRSV79 EQU TCBNDSP5 03445000 TCBRSV78 EQU TCBNDSP5 03446000 TCBRSV77 EQU TCBNDSP5 03447000 TCBRSV76 EQU TCBNDSP5 03448000 TCBRSV75 EQU TCBNDSP5 03449000 TCBRSV74 EQU TCBNDSP5 03450000 TCBNDGTF EQU TCBNDSP5 03451000 TCBNDSPL EQU TCBNDSP5 03452000 TCBRSV93 EQU TCBNDSP4 03453000 TCBRSV92 EQU TCBNDSP4 03454000 TCBRSV91 EQU TCBNDSP4 03455000 TCBRSV90 EQU TCBNDSP4 03456000 TCBRSV89 EQU TCBNDSP4 03457000 TCBRSV88 EQU TCBNDSP4 03458000 TCBRSV87 EQU TCBNDSP4 03459000 TCBRSV86 EQU TCBNDSP4 03460000 TCBEXT1A EQU TCBEXT1+1 03461000 TCBRSV32 EQU TCBEXT1 03462000 TCBEXCPD EQU TCB+192 03463000 TCBIOBRC EQU TCB+188 03464000 TCBDDWTC EQU TCB+186 03465000 TCBDDEXC EQU TCB+184 03466000 TCBJSCBB EQU TCBJSCB+1 03467000 @NM00205 EQU TCBRECDE 03468000 TCBREC EQU TCBRECDE 03469000 TCBMDIDS EQU TCB+176 03470000 TCBRSV28 EQU TCBNDINT 03471000 TCBRSV27 EQU TCBNDSP3 03472000 TCBRSV26 EQU TCBNDSP3 03473000 TCBRSV25 EQU TCBNDSP3 03474000 TCBRSV24 EQU TCBNDSP3 03475000 TCBNDSDA EQU TCBSRBND 03476000 TCBABTER EQU TCBRV302 03477000 TCBTERM EQU TCBLJSND 03478000 TCBABE EQU TCBNDSP2 03479000 TCBDSS EQU TCBNDSP2 03480000 TCBOWAIT EQU TCBNDSP2 03481000 TCBIWAIT EQU TCBNDSP2 03482000 TCBNDTS EQU TCBNDSP2 03483000 TCBNDSVC EQU TCBNDSP2 03484000 TCBSTPP EQU TCBNDSP2 03485000 TCBABD EQU TCBNDSP2 03486000 TCBRSV22 EQU TCBNDSP1 03487000 TCBPIEND EQU TCBNDSP1 03488000 TCBTPSP EQU TCBNDSP1 03489000 TCBDDRND EQU TCBNDSP1 03490000 TCBRSPND EQU TCBNDSP1 03491000 TCBRSTND EQU TCBNDSP1 03492000 TCBDARPN EQU TCBNDSP1 03493000 TCBDARTN EQU TCBNDSP1 03494000 TCBNDSP0 EQU TCBNDSP 03495000 TCBUSER EQU TCB+168 03496000 TCBTCTB EQU TCBTCT+1 03497000 TCBRSV9C EQU TCBTCTGF 03498000 TCBRSV9B EQU TCBTCTGF 03499000 TCBRSV9A EQU TCBTCTGF 03500000 TCBRSV99 EQU TCBTCTGF 03501000 TCBRSV98 EQU TCBTCTGF 03502000 TCBRSV97 EQU TCBTCTGF 03503000 TCBRSV20 EQU TCBTCTGF 03504000 TCBSMFGF EQU TCBTCTGF 03505000 TCBSTABB EQU TCBSTAB+1 03506000 TCBSTCUR EQU TCBVALID 03507000 TCBRV301 EQU TCBRETRY 03508000 TCBSYNCH EQU TCBSUPER 03509000 TCBHALT EQU TCBNSTAE 03510000 TCBPPSUP EQU TCBSCAT 03511000 TCB33E EQU TCBXCTL 03512000 TCBQUIES EQU TCBNSTAE 03513000 TCBSTABE EQU TCBNSTAE 03514000 TCBDDRTI EQU TCBAQE 03515000 TCBRSV73 EQU TCBFTFL3 03516000 TCBRSV72 EQU TCBFTFL3 03517000 TCBFTDUM EQU TCBFTFL3 03518000 TCBRSV71 EQU TCBFTFL3 03519000 TCBRSV70 EQU TCBFTFL3 03520000 TCBRSV69 EQU TCBFTFL3 03521000 TCBRSV68 EQU TCBFTFL3 03522000 TCBRSV67 EQU TCBFTFL3 03523000 TCBRSV66 EQU TCBFTFL2 03524000 TCBSYSAB EQU TCBFTFL2 03525000 @NM00204 EQU TCBFTFL2 03526000 TCBRSV65 EQU TCBFTFL2 03527000 TCBLPAGE EQU TCBFTFL2 03528000 TCBDDEN EQU TCBFTFL2 03529000 TCBRSV62 EQU TCBFTFL2 03530000 TCBRSV61 EQU TCBFTFL2 03531000 TCBENQ EQU TCBFTFL1 03532000 TCBFTCOM EQU TCBFTFL1 03533000 TCBFTTOP EQU TCBFTFL1 03534000 TCBRSV60 EQU TCBFTFL1 03535000 TCBRSV59 EQU TCBFTFL1 03536000 TCBRSV58 EQU TCBFTFL1 03537000 TCBVTAM EQU TCBFTFL1 03538000 TCBTCAM EQU TCBFTFL1 03539000 TCBFTLMP EQU TCBPQE 03540000 TCBTSDP EQU TCB+151 03541000 TCBTSLP EQU TCB+150 03542000 TCBSTPCT EQU TCB+149 03543000 TCBCPUBN EQU TCBTSFLG 03544000 TCBDYDSP EQU TCBTSFLG 03545000 TCBRSV18 EQU TCBTSFLG 03546000 TCBRSV17 EQU TCBTSFLG 03547000 TCBTIOTG EQU TCBTSFLG 03548000 TCBATT EQU TCBTSFLG 03549000 TCBSTPPR EQU TCBTSFLG 03550000 TCBRV300 EQU TCBTSTSK 03551000 TCBECB EQU TCB+144 03552000 TCBIQE EQU TCB+140 03553000 TCBLTC EQU TCB+136 03554000 TCBOTC EQU TCB+132 03555000 TCBNTC EQU TCB+128 03556000 TCBJSTCA EQU TCBPIBA 03557000 TCBSCHED EQU TCBPIBT 03558000 TCBWRITE EQU TCBPIBT 03559000 TCBSCHTI EQU TCBPIBT 03560000 TCBRSV54 EQU TCBPIBT 03561000 TCBSTOP EQU TCBPIBT 03562000 TCBSIZE EQU TCBPIBT 03563000 TCBPART EQU TCBPIBT 03564000 TCBTQET EQU TCBTME 03565000 TCBTCB EQU TCB+116 03566000 TCBFSAB EQU TCBFSA+1 03567000 TCBQEL EQU TCBIDF 03568000 TCBGRS15 EQU TCBGRS+60 03569000 TCBGRS14 EQU TCBGRS+56 03570000 TCBGRS13 EQU TCBGRS+52 03571000 TCBGRS12 EQU TCBGRS+48 03572000 TCBGRS11 EQU TCBGRS+44 03573000 TCBGRS10 EQU TCBGRS+40 03574000 TCBGRS9 EQU TCBGRS+36 03575000 TCBGRS8 EQU TCBGRS+32 03576000 TCBGRS7 EQU TCBGRS+28 03577000 TCBGRS6 EQU TCBGRS+24 03578000 TCBGRS5 EQU TCBGRS+20 03579000 TCBGRS4 EQU TCBGRS+16 03580000 TCBGRS3 EQU TCBGRS+12 03581000 TCBGRS2 EQU TCBGRS+8 03582000 TCBGRS1 EQU TCBGRS+4 03583000 TCBGRS0 EQU TCBGRS 03584000 TCBJPQB EQU TCBFTJSA 03585000 TCBRSV15 EQU TCBPURGE 03586000 TCBRSV14 EQU TCBPURGE 03587000 TCBRSV13 EQU TCBPURGE 03588000 TCBRSV12 EQU TCBPURGE 03589000 TCBRSV11 EQU TCBPURGE 03590000 TCBRSV10 EQU TCBPURGE 03591000 TCBRSV09 EQU TCBPURGE 03592000 TCBJPQF EQU TCBPURGE 03593000 TCBJLB EQU TCB+40 03594000 TCBLLS EQU TCB+36 03595000 TCBDSP EQU TCB+35 03596000 TCBLMP EQU TCB+34 03597000 TCBPNDSP EQU TCBFLGS5 03598000 TCBFCD1 EQU TCBFLGS5 03599000 TCBSTP EQU TCBFLGS5 03600000 TCBSYS EQU TCBFLGS5 03601000 TCBANDSP EQU TCBFLGS5 03602000 TCBPAGE EQU TCBFLGS5 03603000 TCBUXNDF EQU TCBABWF 03604000 TCBFC EQU TCBFLGS5 03605000 TCBONDSP EQU TCBFLGS4 03606000 TCBMPCND EQU TCBFLGS4 03607000 TCBMPCVQ EQU TCBFLGS4 03608000 TCBUXNDV EQU TCBFLGS4 03609000 TCBHNDSP EQU TCBFLGS4 03610000 TCBRQENA EQU TCBFLGS4 03611000 TCBSER EQU TCBFLGS4 03612000 TCBNDUMP EQU TCBFLGS4 03613000 TCBRSV53 EQU TCBDWSTA 03614000 TCBPKCHG EQU TCBRSV08 03615000 TCBSCHAB EQU TCBRSV07 03616000 TCBFLREG EQU TCBRSV06 03617000 TCBRSV52 EQU TCBABGM 03618000 TCBSYSER EQU TCBABTRM 03619000 TCBRSV51 EQU TCBADINP 03620000 TCBFSM EQU TCBFLGS3 03621000 TCBFTS EQU TCBFLGS2 03622000 TCBFETXR EQU TCBFLGS2 03623000 TCBRSV50 EQU TCBFDSOP 03624000 TCBFJMC EQU TCBFLGS2 03625000 TCBFSMC EQU TCBFLGS2 03626000 TCBFABOP EQU TCBFLGS2 03627000 TCBFSTI EQU TCBFLGS2 03628000 TCBFOINP EQU TCBSYSTK 03629000 TCBFX EQU TCBFLGS1 03630000 TCBFS EQU TCBFLGS1 03631000 TCBPOOL EQU TCBFT 03632000 TCBDMPA EQU TCBPDUMP 03633000 TCBJSTE EQU TCBNONPR 03634000 @NM00203 EQU TCBFERA 03635000 TCBFE EQU TCBFLGS1 03636000 TCBFA EQU TCBFLGS1 03637000 TCBZERO EQU TCBPKF 03638000 TCBFLAG EQU TCBPKF 03639000 TCBMSSB EQU TCBMSS+1 03640000 TCBRSV03 EQU TCBMSS 03641000 TCBTRNB EQU TCBTRN+1 03642000 TCBRSV02 EQU TCBABF 03643000 TCBOLTEP EQU TCBABF 03644000 TCBTCP EQU TCBABF 03645000 TCBTCPP EQU TCBABF 03646000 TCBRSV01 EQU TCBABF 03647000 TCBGRPH EQU TCBABF 03648000 TCBNOCHK EQU TCBABF 03649000 TCBMOD91 EQU TCBABF 03650000 TCBCMPC EQU TCBCMP+1 03651000 TCBRV318 EQU TCBCMSG 03652000 TCBRV317 EQU TCBCIND 03653000 TCBRV316 EQU TCBCWTO 03654000 TCBCASID EQU TCBCDBL 03655000 TCBNOCC EQU TCBSTCC 03656000 TCBDMPO EQU TCBCPP 03657000 TCBCSTEP EQU TCBCMPF 03658000 TCBCREQ EQU TCBCMPF 03659000 TCBTIO EQU TCB+12 03660000 TCBDEB EQU TCB+8 03661000 TCBPIEA EQU TCBPIE+1 03662000 TCBPM EQU TCBPMASK 03663000 @NM00202 EQU TCBPMASK 03664000 TCBRBP EQU TCB 03665000 TCBFRS6 EQU TCBFRS+24 03666000 TCBFRS4 EQU TCBFRS+16 03667000 TCBFRS2 EQU TCBFRS+8 03668000 TCBFRS0 EQU TCBFRS 03669000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03670000 @RC00413 EQU @EL00003 03671000 @RC00422 EQU @EL00003 03672000 @RT00446 EQU FOUND 03673000 @RC00474 EQU @RC00472 03674000 @RC00482 EQU @RC00479 03675000 @RT00547 EQU REOFFTPE 03676000 @PB00009 EQU @PB00010 03677000 @RF00605 EQU XCTL 03678000 @PB00013 EQU @EL00001 03679000 @PB00008 EQU @PB00009 03680000 @PB00012 EQU @PB00013 03681000 @PB00007 EQU @PB00008 03682000 @PB00011 EQU @PB00012 03683000 @PB00006 EQU @PB00007 03684000 @PB00005 EQU @PB00006 03685000 @PB00004 EQU @PB00005 03686000 @PB00003 EQU @PB00004 03687000 @PB00002 EQU @PB00003 03688000 @ENDDATA EQU * 03689000 END IGCVF10D,(C'PLS2324',0701,77109) 03690000