TITLE 'IGE0904I, 370X MISCELLANEOUS DATA RECORDER(MDR) INTERFA*00001000 ACE ' 00002000 IGE0904I CSECT , 01S0001 00003000 @PROLOG BALR @12,0 01S0001 00004000 @PSTART DS 0H 01S0001 00005000 USING @PSTART,@12 01S0001 00006000 * 02S0389 00007000 * /*****************************************************************/ 00008000 * /* */ 00009000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00010000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00011000 * /* */ 00012000 * /*****************************************************************/ 00013000 * 02S0389 00014000 * DO; 02S0389 00015000 * GEN REFS(RBASE) NOSETS; 02S0390 00016000 * /* 00017000 IGE0904I IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00018000 * RAVT=TCXAVT; /* ESTABLISH AVT ADDRESS */ 00019000 L @09,CVTPTR 02S0391 00020000 L @09,TCXPTR(,@09) 02S0391 00021000 L RAVT,TCXAVT(,@09) 02S0391 00022000 * IOSBPTR=RPARM; /* SET UP IOSB ADDRESS @G36XREB*/ 00023000 LR IOSBPTR,RPARM 02S0392 00024000 * RFY 02S0393 00025000 * RPARM UNRSTD; 02S0393 00026000 * RLCB=IOSUSE; /* GET LCB ADDRESS FROM IOSB 00027000 * @G36XREB*/ 00028000 L RLCB,IOSUSE(,IOSBPTR) 02S0394 00029000 * IF LCBGETMN=ON /* IF A GETMAIN HAS ALREADY BEEN 00030000 * DONE(WHICH WILL BE TRUE IF WE 00031000 * ARE RETURNING FROM IGE0625F TO 00032000 * PROCESS THE NEXT RECORD ON THE 00033000 * LCB OBR CHAIN) */ 00034000 * THEN 02S0395 00035000 TM LCBGETMN(RLCB),B'10000000' 02S0395 00036000 BNO @RF00395 02S0395 00037000 * RMDR=LCBRECAD-LENGTH(MDRFREE);/* ..THEN SETUP GETMAINED AREA 00038000 * ADDRESSABILITY */ 00039000 L RMDR,LCBRECAD-1(,RLCB) 02S0396 00040000 LA RMDR,0(,RMDR) 02S0396 00041000 BCTR RMDR,0 02S0396 00042000 BCTR RMDR,0 02S0396 00043000 * ELSE 02S0397 00044000 * 03S0397 00045000 * /*************************************************************/ 00046000 * /* */ 00047000 * /* PROCESS.GETMAIN: THIS SEGMENT GETMAINS A STORAGE AREA IN */ 00048000 * /* WHICH TO FORMAT INFORMATION FOR IGE0625F AND BUILD */ 00049000 * /* MESSAGES FOR THE SYSTEM OPERATOR. */ 00050000 * /* */ 00051000 * /*************************************************************/ 00052000 * 03S0397 00053000 * DO; 03S0397 00054000 B @RC00395 03S0397 00055000 @RF00395 DS 0H 03S0398 00056000 * RFY 03S0398 00057000 * RCORESZE RSTD; 03S0398 00058000 * RCORESZE=MAX(RMSLNMAX,AVTKEYLE-F0GARLEN-SRHDRLDF)+LENGTH( 00059000 * TPERHDR)+76; /* CALCULATE MAXIMUM ACTUAL CORE 00060000 * SIZE NEEDED FOR ANY RECORD ON 00061000 * THE OBR QUEUE @OY18083*/ 00062000 LH RCORESZE,AVTKEYLE(,RAVT) 03S0399 00063000 SL RCORESZE,@CF03144 03S0399 00064000 LA @09,35 03S0399 00065000 CR RCORESZE,@09 03S0399 00066000 BNL *+6 00067000 LR RCORESZE,@09 03S0399 00068000 AL RCORESZE,@CF03145 03S0399 00069000 * RCORESZE=RCORESZE+7; /* THESE TWO INSTRUCTIONS ROUNDUP 00070000 * CORE SIZE TO DOUBLEWORD 03S0400 00071000 * MULTIPLE */ 00072000 AL RCORESZE,@CF00150 03S0400 00073000 * RCORESZE=RCORESZE&ROUNDMSK; 03S0401 00074000 N RCORESZE,@CF03047 03S0401 00075000 * RFY 03S0402 00076000 * (REG15, 03S0402 00077000 * RPARM) RSTD; 03S0402 00078000 * GEN CODE REFS(RCORESZE) SETS(REG00,RPARM) NODEFS NOEXIT 00079000 * NOFLOWS SEQFLOW; 03S0403 00080000 * /* 00081000 GETMAIN R,LV=(RCORESZE),SP=254 00082000 * IF REG15=0 /* IF THE GETMAIN WORKED */ 00083000 * THEN 03S0404 00084000 LTR REG15,REG15 03S0404 00085000 BNZ @RF00404 03S0404 00086000 * DO; /* ..THEN SETUP GETMAINED AREA 00087000 * ADDRESSABILITY */ 00088000 * RMDR=RPARM; /* MOVE CORE ADDRESS */ 00089000 LR RMDR,RPARM 03S0406 00090000 * RFY 03S0407 00091000 * (RPARM, 03S0407 00092000 * REG15) UNRSTD; 03S0407 00093000 * LCBRECAD=RMDR+LENGTH(MDRFREE);/* SAVE CORE ADDRESS */ 00094000 LA @09,2 03S0408 00095000 ALR @09,RMDR 03S0408 00096000 STCM @09,7,LCBRECAD(RLCB) 03S0408 00097000 * MDRFREE=RCORESZE; /* SAVE CORE SIZE */ 00098000 STH RCORESZE,MDRFREE(,RMDR) 03S0409 00099000 * RFY 03S0410 00100000 * RCORESZE UNRSTD; 03S0410 00101000 * LCBGETMN=ON; /* INDICATE GETMAIN DONE */ 00102000 OI LCBGETMN(RLCB),B'10000000' 03S0411 00103000 * END; 03S0412 00104000 * ELSE 03S0413 00105000 * DO WHILE LCBOBRCH^=0; /* ..ELSE FREE ALL RECORDS ON THE 00106000 * LCB OBR QUEUE */ 00107000 B @RC00404 03S0413 00108000 @RF00404 B @DE00413 03S0413 00109000 @DL00413 DS 0H 03S0414 00110000 * CALL IPCSOBRQ; /* GET A RECORD FROM THE OBR 00111000 * QUEUE */ 00112000 BAL @14,IPCSOBRQ 03S0414 00113000 * CALL IPCSTCXQ; /* PUT THE RECORD ON THE TCX 00114000 * READY QUEUE FOR POSTING TO 00115000 * BUFFER DISPOSITION */ 00116000 BAL @14,IPCSTCXQ 03S0415 00117000 * END; 03S0416 00118000 @DE00413 L @09,LCBOBRCH(,RLCB) 03S0416 00119000 LTR @09,@09 03S0416 00120000 BNZ @DL00413 03S0416 00121000 * END; 03S0417 00122000 @RC00404 DS 0H 03S0418 00123000 * 03S0418 00124000 * /***************************************************************/ 00125000 * /* */ 00126000 * /* PROCESS.HANDLE: THIS SEGMENT PROCESSES THE RECORDS ON THE */ 00127000 * /* LCB OBR QUEUE. */ 00128000 * /* */ 00129000 * /***************************************************************/ 00130000 * 03S0418 00131000 * DO UNTIL 1^=1; /* LOOP UNTIL WE EXIT */ 00132000 @RC00395 DS 0H 03S0418 00133000 @DL00418 DS 0H 03S0419 00134000 * IF LCBGETMN=ON /* IF THERE IS A GETMAINED 03S0419 00135000 * STORAGE AREA AVAILABLE */ 00136000 * THEN 03S0419 00137000 TM LCBGETMN(RLCB),B'10000000' 03S0419 00138000 BNO @RF00419 03S0419 00139000 * DO; /* ..THEN PROCESS THE NEXT RECORD 00140000 * ON THE LCB OBR QUEUE */ 00141000 * IF LCBOBRCH^=0 /* IF THERE ARE MORE RECORDS ON 00142000 * THE LCB OBR QUEUE */ 00143000 * THEN 03S0421 00144000 L @09,LCBOBRCH(,RLCB) 03S0421 00145000 LTR @09,@09 03S0421 00146000 BZ @RF00421 03S0421 00147000 * DO; /* ..THEN PROCESS THE NEXT RECORD*/ 00148000 * CALL IPCSOBRQ; /* GET THE NEXT RECORD ON THE 00149000 * QUEUE */ 00150000 BAL @14,IPCSOBRQ 03S0423 00151000 * 04S0424 00152000 * /*****************************************************/ 00153000 * /* */ 00154000 * /* PROCESS.HANDLE.BLDREC: THIS SEGMENT PROCESSES A */ 00155000 * /* RECORD FROM THE LCB OBR QUEUE. */ 00156000 * /* */ 00157000 * /*****************************************************/ 00158000 * 04S0424 00159000 * DO; 04S0424 00160000 * GEN CODE REFS(REG10) NOSETS NOEXIT NOFLOWS NODEFS 00161000 * SEQFLOW; 04S0425 00162000 * /*@OY18083*/ 00163000 USING @DATD,10 @OY18083 00164000 * RFY 04S0426 00165000 * REG10 RSTD; /* @OY18083*/ 00166000 * REG10=ADDR(COMPSAVE);/* SET ADDRESS COMPILER SAVE 00167000 * AREA @OY18083*/ 00168000 LA REG10,COMPSAVE(,RMDR) 04S0427 00169000 * IF TTHFTYPE=TTHFID1/* IF THE RECORD IS A FID1 RMS 00170000 * PIU */ 00171000 * THEN 04S0428 00172000 LA @11,PRFPIUO(,RPRF) 04S0428 00173000 SLR @09,@09 04S0428 00174000 IC @09,PRFPIUO(,RPRF) 04S0428 00175000 ALR @11,@09 04S0428 00176000 TM TTHFTYPE(@11),B'00010000' 04S0428 00177000 BNO @RF00428 04S0428 00178000 TM TTHFTYPE(@11),B'11100000' 04S0428 00179000 BNZ @RF00428 04S0428 00180000 * DO; /* ..THEN PROCESS AN RMS PIU */ 00181000 * 05S0430 00182000 * /***********************************************/ 00183000 * /* */ 00184000 * /* PROCESS.HANDLE.BLDREC.BLDMDR: THIS SEGMENT */ 00185000 * /* FORMATS INFORMATION FROM 370X RMS PIUS IN */ 00186000 * /* THE GETMAINED STORAGE AREA FOR XCTL TO */ 00187000 * /* IGE0625F AND SUBSEQUENT RECORDING ON LOGREC.*/ 00188000 * /* */ 00189000 * /***********************************************/ 00190000 * 05S0430 00191000 * DO; 05S0430 00192000 * MDRBUFSZ=TTHDCF-LENGTH(IEDRH)-LENGTH(RUCNTL)+ 00193000 * LENGTH(MDRHDR);/* SET DATA AREA SIZE */ 00194000 LA @09,28 05S0431 00195000 SLR @07,@07 05S0431 00196000 ICM @07,3,TTHDCF(@11) 05S0431 00197000 ALR @09,@07 05S0431 00198000 STH @09,MDRBUFSZ(,RMDR) 05S0431 00199000 * MDRSECID=TCAM370X;/* SETUP A SECONDARY ID 00200000 * FIELD */ 00201000 MVI MDRSECID(RMDR),X'8A' 05S0432 00202000 * MDRRECID=RURECID;/* SETUP RECORD 05S0433 00203000 * IDENTIFICATION */ 00204000 IC @09,RURECID(,@11) 05S0433 00205000 STC @09,MDRRECID(,RMDR) 05S0433 00206000 * RFY 05S0434 00207000 * RPARM RSTD; 05S0434 00208000 * RPARM=RUNA; /* MOVE NETWORK ADDRESS */ 00209000 SLR RPARM,RPARM 05S0435 00210000 ICM RPARM,3,RUNA(@11) 05S0435 00211000 * RFY 05S0436 00212000 * REG15 RSTD; 05S0436 00213000 * CALL IEDIAP03;/* GET TTCIN FOR NETWORK 05S0437 00214000 * ADDRESS */ 00215000 L @11,AVTSAVTP(,RAVT) 05S0437 00216000 L @15,SAVTNAX(,@11) 05S0437 00217000 BALR @14,@15 05S0437 00218000 * RFY 05S0438 00219000 * RPARM UNRSTD; 05S0438 00220000 * IF REG15^=0 /* IF A TTCIN WAS FOUND */ 00221000 * THEN 05S0439 00222000 LTR REG15,REG15 05S0439 00223000 BZ @RF00439 05S0439 00224000 * DO; /* ..THEN MOVE RESOURCE NAME TO 00225000 * DATA AREA */ 00226000 * NAMEADDR=ADDR(TNTFIRST)+(REG15-1)*(TNTENLEN 00227000 * +LENGTH(TNTTRMAD));/* CALCULATE ENTRY 00228000 * NAME ADDRESS */ 00229000 L @14,IEDQNPTR(,RAVT) 05S0441 00230000 LA NAMEADDR,82 05S0441 00231000 ALR NAMEADDR,@14 05S0441 00232000 LR @01,REG15 05S0441 00233000 BCTR @01,0 05S0441 00234000 SLR @11,@11 05S0441 00235000 IC @11,TNTENLEN(,@14) 05S0441 00236000 LA @14,3 05S0441 00237000 ALR @14,@11 05S0441 00238000 MR @00,@14 05S0441 00239000 ALR NAMEADDR,@01 05S0441 00240000 * RFY 05S0442 00241000 * REG15 UNRSTD; 05S0442 00242000 * MDRNAME='';/* BLANK ENTRY NAME FOR SHORT 00243000 * NAMES */ 00244000 MVI MDRNAME(RMDR),C' ' 05S0443 00245000 MVC MDRNAME+1(7,RMDR),MDRNAME(RMDR) 05S0443 00246000 * MDRNAME(1:TNTENLEN)=TTENAME(1:TNTENLEN); 00247000 BCTR @11,0 05S0444 00248000 EX @11,@SM03151 05S0444 00249000 * /* MOVE ENTRY NAME TO DATA AREA */ 00250000 * END; 05S0445 00251000 * ELSE 05S0446 00252000 * MDRNAME=UNKNOWN;/* ..ELSE SETUP OBVIOUSLY 00253000 * ERRONEOUS NAME */ 00254000 B @RC00439 05S0446 00255000 @RF00439 MVC MDRNAME(8,RMDR),@CC03013 05S0446 00256000 * MDRNETA=RUNA;/* SET NETWORK ADDRESS IN DATA 00257000 * AREA */ 00258000 @RC00439 LA @11,PRFPIUO(,RPRF) 05S0447 00259000 SLR @09,@09 05S0447 00260000 IC @09,PRFPIUO(,RPRF) 05S0447 00261000 ALR @09,@11 05S0447 00262000 MVC MDRNETA(2,RMDR),RUNA(@09) 05S0447 00263000 * PIUDLEN=TTHDCF-LENGTH(IEDRH)-LENGTH(RUCNTL); 00264000 SLR PIUDLEN,PIUDLEN 05S0448 00265000 ICM PIUDLEN,3,TTHDCF(@09) 05S0448 00266000 SL PIUDLEN,@CF00032 05S0448 00267000 * /* CALCULATE PIU DATA LENGTH */ 00268000 * UNITDLEN=ADDR(PRFPIUO)+AVTKEYLE-ADDR(RUDATA); 00269000 AH @11,AVTKEYLE(,RAVT) 05S0449 00270000 LA UNITDLEN,RUDATA(,@09) 05S0449 00271000 SLR @11,UNITDLEN 05S0449 00272000 LR UNITDLEN,@11 05S0449 00273000 * /* CALCULATE HEAD UNIT DATA 05S0450 00274000 * LENGTH */ 00275000 * IF PIUDLEN<=UNITDLEN/* IF THE PIU IS 05S0450 00276000 * CONTAINED IN ONE BUFFER UNIT */ 00277000 * THEN 05S0450 00278000 CR PIUDLEN,UNITDLEN 05S0450 00279000 BH @RF00450 05S0450 00280000 * MDRDATA(1:PIUDLEN)=RUDATA(1:PIUDLEN);/* 00281000 * ..THEN MOVE ALL OF THE PIU'S 00282000 * DATA IN ONE OPERATION */ 00283000 LR @11,PIUDLEN 05S0451 00284000 BCTR @11,0 05S0451 00285000 EX @11,@SM03153 05S0451 00286000 * ELSE 05S0452 00287000 * DO; /* ..ELSE MOVE ALL OF THE PIU'S 00288000 * DATA IN MULTIPLE OPERATIONS */ 00289000 B @RC00450 05S0452 00290000 @RF00450 DS 0H 05S0453 00291000 * MDRDATA(1:UNITDLEN)=RUDATA(1:UNITDLEN);/* 00292000 * MOVE THE FIRST UNIT'S DATA */ 00293000 LR @11,UNITDLEN 05S0453 00294000 BCTR @11,0 05S0453 00295000 LA @09,PRFPIUO(,RPRF) 05S0453 00296000 SLR @07,@07 05S0453 00297000 IC @07,PRFPIUO(,RPRF) 05S0453 00298000 ALR @09,@07 05S0453 00299000 EX @11,@SM03153 05S0453 00300000 * DO LOOPINDX=UNITDLEN TO PIUDLEN-1 BY 00301000 * AVTKEYLE;/* MOVE THE REMAINING 00302000 * UNITS' DATA-LOOPINDX IS THE 00303000 * INDEX INTO THE DATA AREA OF 00304000 * THE TARGET OF THE CURRENT 00305000 * UNIT'S DATA */ 00306000 LR LOOPINDX,UNITDLEN 05S0454 00307000 B @DE00454 05S0454 00308000 @DL00454 DS 0H 05S0455 00309000 * RPRF=PRFTIC;/* GET NEXT UNIT ADDRESS */ 00310000 L RPRF,PRFTIC(,RPRF) 05S0455 00311000 * LENDATTM=MIN(AVTKEYLE,(PIUDLEN-LOOPINDX)) 00312000 * ; /* CALCULATE SIZE OF DATA TO MOVE*/ 00313000 LR LENDATTM,PIUDLEN 05S0456 00314000 SLR LENDATTM,LOOPINDX 05S0456 00315000 LH @11,AVTKEYLE(,RAVT) 05S0456 00316000 CR @11,LENDATTM 05S0456 00317000 BNH *+6 00318000 LR @11,LENDATTM 05S0456 00319000 LR LENDATTM,@11 05S0456 00320000 * MDRDATA(LOOPINDX+1:LOOPINDX+LENDATTM)= 00321000 * UNITDATA(1:LENDATTM);/* MOVE THE 00322000 * DATA FROM THE UNIT TO THE DATA 00323000 * AREA */ 00324000 LR @11,RMDR 05S0457 00325000 ALR @11,LOOPINDX 05S0457 00326000 LR @15,LENDATTM 05S0457 00327000 BCTR @15,0 05S0457 00328000 EX @15,@SM03155 05S0457 00329000 * END; 05S0458 00330000 AH LOOPINDX,AVTKEYLE(,RAVT) 05S0458 00331000 @DE00454 LR @11,PIUDLEN 05S0458 00332000 BCTR @11,0 05S0458 00333000 CR LOOPINDX,@11 05S0458 00334000 BNH @DL00454 05S0458 00335000 * END; 05S0459 00336000 * MDRWTO=''B; /* CLEAR AN UNUSED FIELD IN THE 00337000 * DATA AREA */ 00338000 @RC00450 XC MDRWTO(18,RMDR),MDRWTO(RMDR) 05S0460 00339000 * END; 05S0461 00340000 * CASEINDX=XCTL;/* SETUP XCTL TO IGE0625F FOR 00341000 * WRITE TO LOGREC */ 00342000 LA CASEINDX,3 04S0462 00343000 * END; 04S0463 00344000 * ELSE 04S0464 00345000 * DO; /* ..ELSE PROCESS FID0 SOH 04S0464 00346000 * RECORDS */ 00347000 B @RC00428 04S0464 00348000 @RF00428 DS 0H 04S0465 00349000 * DATADDR=ADDR(SOHDATA0);/* SETUP DATA ADDRESS */ 00350000 LA @11,PRFPIUO(,RPRF) 04S0465 00351000 SLR @09,@09 04S0465 00352000 IC @09,PRFPIUO(,RPRF) 04S0465 00353000 ALR @11,@09 04S0465 00354000 LA @09,SOHDATA0(,@11) 04S0465 00355000 ST @09,DATADDR 04S0465 00356000 * IF SOHSTX=DLE /* IF THERE IS A DLE IN THE DATA 00357000 * FOR TRANSPARENT MODE */ 00358000 * THEN 04S0466 00359000 CLI SOHSTX(@11),X'10' 04S0466 00360000 BNE @RF00466 04S0466 00361000 * DATADDR=DATADDR+1;/* ..THEN SKIP THE DLE */ 00362000 AL @09,@CF00095 04S0467 00363000 ST @09,DATADDR 04S0467 00364000 * ELSE 04S0468 00365000 * ; 04S0468 00366000 @RF00466 DS 0H 04S0469 00367000 * SOHDLEN=MIN((ADDR(PRFPIUO)+AVTKEYLE),(TTHDCF+ADDR 00368000 * (PIURH)))-ADDR(SOHDATA1);/* DETERMINE 04S0469 00369000 * BUFFER UNIT DATA LENGTH */ 00370000 LA @11,PRFPIUO(,RPRF) 04S0469 00371000 LH SOHDLEN,AVTKEYLE(,RAVT) 04S0469 00372000 ALR SOHDLEN,@11 04S0469 00373000 SLR @09,@09 04S0469 00374000 IC @09,PRFPIUO(,RPRF) 04S0469 00375000 ALR @11,@09 04S0469 00376000 LA @09,PIURH(,@11) 04S0469 00377000 SLR @07,@07 04S0469 00378000 ICM @07,3,TTHDCF(@11) 04S0469 00379000 ALR @09,@07 04S0469 00380000 CR SOHDLEN,@09 04S0469 00381000 BNH *+6 00382000 LR SOHDLEN,@09 04S0469 00383000 L @09,DATADDR 04S0469 00384000 LA @07,SOHDATA1(,@09) 04S0469 00385000 SLR SOHDLEN,@07 04S0469 00386000 * IF SOHTYPE=SOHC/* IF THE RECORD IS AN SOH%C PIU*/ 00387000 * THEN 04S0470 00388000 CLI SOHTYPE(@11),C'C' 04S0470 00389000 BNE @RF00470 04S0470 00390000 * DO; /* ..THEN PROCESS AN SOH%C PIU */ 00391000 * 05S0472 00392000 * /*******************************************/ 00393000 * /* */ 00394000 * /* PROCESS.HANDLE.BLDREC.BLDWTO: THIS */ 00395000 * /* SEGMENT PROCESSES SOH%C RECORDS. */ 00396000 * /* */ 00397000 * /*******************************************/ 00398000 * 05S0472 00399000 * DO; 05S0472 00400000 * MDRFLAGS=WTOBEGFI;/* INITIALIZE WTO FLAGS*/ 00401000 MVC MDRFLAGS(2,RMDR),@CB03015 05S0473 00402000 * MDRMSGID=MSGNUM;/* MOVE MESSAGE NUMBER 00403000 * INTO DATA AREA */ 00404000 MVI MDRMSGID+7(RMDR),C' ' 05S0474 00405000 MVC MDRMSGID(7,RMDR),@CC03019 05S0474 00406000 * MDREBCCU=UCBNAME;/* MOVE CHANNEL AND UNIT 00407000 * ADDRESS INTO MESSAGE */ 00408000 MVI MDREBCCU+3(RMDR),C' ' 05S0475 00409000 L @11,UCBPTR(,IOSBPTR) 05S0475 00410000 MVC MDREBCCU(3,RMDR),UCBNAME(@11) 05S0475 00411000 * MDRWTOL=LENGTH(WTOHDR)+SOHDLEN;/* SET 00412000 * MESSAGE LENGTH */ 00413000 LA @11,16 05S0476 00414000 ALR @11,SOHDLEN 05S0476 00415000 STH @11,MDRWTOL(,RMDR) 05S0476 00416000 * MDRDATA1(1:SOHDLEN)=SOHDATA1(1:SOHDLEN); 00417000 LR @07,SOHDLEN 05S0477 00418000 BCTR @07,0 05S0477 00419000 EX @07,@SM03157 05S0477 00420000 * /* MOVE MESSAGE DATA TO DATA AREA*/ 00421000 * WTOENDFG=WTOENDFI;/* SET WTO END FLAGS 00422000 * FOR MESSAGE */ 00423000 LA @09,WTOHDR(,RMDR) 05S0478 00424000 ALR @09,@11 05S0478 00425000 MVC WTOENDFG(4,@09),@CB03017 05S0478 00426000 * IF MDRCDE8=ON/* IF THE MESSAGE IS TO GO 00427000 * TO THE SYSTEM TP CONSOLE */ 00428000 * THEN 05S0479 00429000 TM MDRCDE8(RMDR),B'00000010' 05S0479 00430000 BNO @RF00479 05S0479 00431000 * WTOCDE8=ON;/* ..THEN SO INDICATE */ 00432000 OI WTOCDE8(@09),B'00000001' 05S0480 00433000 * ELSE 05S0481 00434000 * IF MDRCDE10=ON/* IF THE MESSAGE IS TO 00435000 * GO TO THE SYSTEM MAINTENANCE 00436000 * CONSOLE */ 00437000 * THEN 05S0481 00438000 B @RC00479 05S0481 00439000 @RF00479 TM MDRCDE10(RMDR),B'00000100' 05S0481 00440000 BNO @RF00481 05S0481 00441000 * WTOCDE10=ON;/* ..THEN SO INDICATE */ 00442000 LA @11,WTOHDR(,RMDR) 05S0482 00443000 AH @11,MDRWTOL(,RMDR) 05S0482 00444000 OI WTOCDE10(@11),B'01000000' 05S0482 00445000 * ELSE 05S0483 00446000 * WTOCDE2=ON;/* ..ELSE INDICATE THAT 00447000 * THE MESSAGE IS TO GO TO THE 00448000 * SYSTEM MASTER CONSOLE */ 00449000 B @RC00481 05S0483 00450000 @RF00481 LA @11,WTOHDR(,RMDR) 05S0483 00451000 AH @11,MDRWTOL(,RMDR) 05S0483 00452000 OI WTOCDE2(@11),B'01000000' 05S0483 00453000 * END; 05S0484 00454000 @RC00481 DS 0H 05S0484 00455000 @RC00479 DS 0H 05S0485 00456000 * CASEINDX=WTO;/* SETUP WTO EXECUTION */ 00457000 LA CASEINDX,2 04S0485 00458000 * END; 04S0486 00459000 * ELSE 04S0487 00460000 * DO; /* ..ELSE PROCESS SOH%E AND SOH%R 00461000 * RECORDS */ 00462000 B @RC00470 04S0487 00463000 @RF00470 DS 0H 04S0488 00464000 * MDRWTO=''B;/* CLEAR FIELDS IN THE GETMAINED 00465000 * WORKAREA WHICH ARE NOT USED 00466000 * FOR SOH%E AND SOH%R RECORDS */ 00467000 XC MDRWTO(18,RMDR),MDRWTO(RMDR) 04S0488 00468000 * MDRSECID=''B; 04S0489 00469000 MVI MDRSECID(RMDR),X'00' 04S0489 00470000 * 05S0490 00471000 * /*******************************************/ 00472000 * /* */ 00473000 * /* PROCESS.HANDLE.BLDREC.BLDSOH: THIS */ 00474000 * /* SEGMENT PROCESSES AN SOH%E OR SOH%R */ 00475000 * /* RECORD. */ 00476000 * /* */ 00477000 * /*******************************************/ 00478000 * 05S0490 00479000 * DO; 05S0490 00480000 * IF SOHTYPE=SOHE/* IF THE RECORD IS AN 00481000 * SOH%E PIU */ 00482000 * THEN 05S0491 00483000 LA @11,PRFPIUO(,RPRF) 05S0491 00484000 SLR @09,@09 05S0491 00485000 IC @09,PRFPIUO(,RPRF) 05S0491 00486000 ALR @11,@09 05S0491 00487000 CLI SOHTYPE(@11),C'E' 05S0491 00488000 BNE @RF00491 05S0491 00489000 * DO; /* ..THEN PROCESS AN SOH%E RECORD*/ 00490000 * MDRRECID=SOHFLAGS;/* MOVE RECORD ID */ 00491000 L @11,DATADDR 05S0493 00492000 IC @09,SOHFLAGS(,@11) 05S0493 00493000 STC @09,MDRRECID(,RMDR) 05S0493 00494000 * IF MDRRECID=ID2715/* IF THE RECORD IS 00495000 * FROM A 2715 DEVICE */ 00496000 * THEN 05S0494 00497000 CLI MDRRECID(RMDR),8 05S0494 00498000 BNE @RF00494 05S0494 00499000 * DO;/* THEN ADJUST OUR DATAMOVE 00500000 * PARAMETERS TO COMPENSATE FOR 00501000 * UNIQUE IDIOCY OF THE 2715 00502000 * RECORD FORMAT */ 00503000 * DATADDR=DATADDR+GL2715;/* BUMP 00504000 * PAST GARBAGE IN THE RECORD */ 00505000 LA @09,2 05S0496 00506000 ALR @11,@09 05S0496 00507000 ST @11,DATADDR 05S0496 00508000 * SOHDLEN=SOHDLEN-GL2715;/* REDUCE 00509000 * MESSAGE LENGTH BY GARBAGE 00510000 * LENGTH */ 00511000 SLR SOHDLEN,@09 05S0497 00512000 * END; 05S0498 00513000 * ELSE 05S0499 00514000 * ; 05S0499 00515000 @RF00494 DS 0H 05S0500 00516000 * MDRDATA2(1:SOHDLEN)=SOHDATA1(1:SOHDLEN) 00517000 * ;/* MOVE SOH DATA @OY18083*/ 00518000 LR @11,SOHDLEN 05S0500 00519000 BCTR @11,0 05S0500 00520000 L @09,DATADDR 05S0500 00521000 EX @11,@SM03161 05S0500 00522000 * MDRBUFSZ=LENGTH(SOHHDR)+SOHDLEN;/* 00523000 * SET DATA SIZE @OY18083*/ 00524000 LA @11,26 05S0501 00525000 ALR @11,SOHDLEN 05S0501 00526000 STH @11,MDRBUFSZ(,RMDR) 05S0501 00527000 * END; 05S0502 00528000 * ELSE 05S0503 00529000 * DO; /* ..ELSE PROCESS AN SOH%R RECORD*/ 00530000 B @RC00491 05S0503 00531000 @RF00491 DS 0H 05S0504 00532000 * MDRRECID=SOHRID;/* SETUP SOH%R RECORD 00533000 * ID */ 00534000 MVI MDRRECID(RMDR),X'13' 05S0504 00535000 * DATADDR=DATADDR-1;/* BACKUP DATA 00536000 * POINTER SINCE THERE IS NO 00537000 * CONTROL BYTE AT THE FRONT OF 00538000 * SOH%R DATA */ 00539000 L @11,DATADDR 05S0505 00540000 BCTR @11,0 05S0505 00541000 ST @11,DATADDR 05S0505 00542000 * SOHDLEN=SOHDLEN+1;/* INCREASE DATA 00543000 * SIZE FOR SAME REASON */ 00544000 LA SOHDLEN,1(,SOHDLEN) 05S0506 00545000 * RFY 05S0507 00546000 * (ROPCAVT, 05S0507 00547000 * REG11) RSTD;/* @OY18083*/ 00548000 * REG11=IOSBPTR;/* SAVE RQE PTR 05S0508 00549000 * @OY18083*/ 00550000 LR REG11,IOSBPTR 05S0508 00551000 * REG09=TTHOAF;/* SET CONNECTION 05S0509 00552000 * @OY18083*/ 00553000 LA @07,PRFPIUO(,RPRF) 05S0509 00554000 SLR @15,@15 05S0509 00555000 IC @15,PRFPIUO(,RPRF) 05S0509 00556000 ALR @07,@15 05S0509 00557000 SLR REG09,REG09 05S0509 00558000 ICM REG09,3,TTHOAF(@07) 05S0509 00559000 * IF REG09^=0/* TTCIN VALID @OY18083*/ 00560000 * THEN 05S0510 00561000 LTR REG09,REG09 05S0510 00562000 BZ @RF00510 05S0510 00563000 * DO;/* @OY18083*/ 00564000 * NAMEADDR=ADDR(TNTFIRST)+(REG09-1)*( 00565000 * TNTENLEN+LENGTH(TNTTRMAD)); 00566000 L @15,IEDQNPTR(,RAVT) 05S0512 00567000 LA NAMEADDR,82 05S0512 00568000 ALR NAMEADDR,@15 05S0512 00569000 LR @01,REG09 05S0512 00570000 BCTR @01,0 05S0512 00571000 SLR @14,@14 05S0512 00572000 IC @14,TNTENLEN(,@15) 05S0512 00573000 LA @00,3 05S0512 00574000 ALR @00,@14 05S0512 00575000 MR @00,@00 05S0512 00576000 ALR NAMEADDR,@01 05S0512 00577000 * MDRTNAME='';/* BLANK NAME 05S0513 00578000 * @OY18083*/ 00579000 MVI MDRTNAME(RMDR),C' ' 05S0513 00580000 MVC MDRTNAME+1(7,RMDR),MDRTNAME(RMDR) 05S0513 00581000 * MDRTNAME(1:TNTENLEN)=TTENAME(1: 00582000 * TNTENLEN);/* SET NAME 05S0514 00583000 * @OY18083*/ 00584000 BCTR @14,0 05S0514 00585000 EX @14,@SM03163 05S0514 00586000 * REG6SAVE=RPRF;/* SAVE REG 6 05S0515 00587000 * @OY18083*/ 00588000 STCM RPRF,15,REG6SAVE(RMDR) 05S0515 00589000 * REG07=IEDQNPTR;/* LOAD TNT 05S0516 00590000 * ADDRESS @OY18083*/ 00591000 LR REG07,@15 05S0516 00592000 * GENERATE(BAL 6,46(,7));/* FIND 00593000 * TTE ADDRESS @OY18083*/ 00594000 BAL 6,46(,7) 00595000 * RPARM=REG08;/* GET TERMINAL ADDR 00596000 * @OY18083*/ 00597000 LR RPARM,REG08 05S0518 00598000 * ROPCAVT=AVTOCGET;/* LOAD OPCON 00599000 * AVT @OY18083*/ 00600000 L ROPCAVT,AVTOCGET(,RAVT) 05S0519 00601000 * REG13=ADDR(REGSAVE);/* LOAD 05S0520 00602000 * SAVEAREA @OY18083*/ 00603000 LA REG13,REGSAVE(,RMDR) 05S0520 00604000 * DO UNTIL TRMTYPE=TRMNSDLC;/* 00605000 * LOCATE LINE @OY18083*/ 00606000 @DL00521 DS 0H 05S0522 00607000 * CALL COHORTLK;/* ENTRY @OY18083*/ 00608000 L @15,OPCHORT(,ROPCAVT) 05S0522 00609000 BALR @14,@15 05S0522 00610000 * REG08=RPARM;/* SET REGISTER 00611000 * @OY18083*/ 00612000 LR REG08,RPARM 05S0523 00613000 * END;/* @OY18083*/ 00614000 @DE00521 LR @09,IEDQTPTR 05S0524 00615000 AL @09,@CF03165 05S0524 00616000 CLI TRMTYPE-11(@09),X'20' 05S0524 00617000 BNE @DL00521 05S0524 00618000 * RAVT=TCXAVT;/* RESTORE AVT 05S0525 00619000 * ADDRESS @OY18083*/ 00620000 L @09,CVTPTR 05S0525 00621000 L @09,TCXPTR(,@09) 05S0525 00622000 L RAVT,TCXAVT(,@09) 05S0525 00623000 * REG09=REG00;/* SET CONNECTED 00624000 * @OY18083*/ 00625000 LR REG09,REG00 05S0526 00626000 * NAMEADDR=ADDR(TNTFIRST)+(REG09-1)*( 00627000 * TNTENLEN+LENGTH(TNTTRMAD)); 00628000 L @15,IEDQNPTR(,RAVT) 05S0527 00629000 LA NAMEADDR,82 05S0527 00630000 ALR NAMEADDR,@15 05S0527 00631000 LR @01,REG09 05S0527 00632000 BCTR @01,0 05S0527 00633000 SLR @14,@14 05S0527 00634000 IC @14,TNTENLEN(,@15) 05S0527 00635000 LA @15,3 05S0527 00636000 ALR @15,@14 05S0527 00637000 MR @00,@15 05S0527 00638000 ALR NAMEADDR,@01 05S0527 00639000 * MDRLNAME='';/* BLANK NAME 05S0528 00640000 * @OY18083*/ 00641000 MVI MDRLNAME(RMDR),C' ' 05S0528 00642000 MVC MDRLNAME+1(7,RMDR),MDRLNAME(RMDR) 05S0528 00643000 * MDRLNAME(1:TNTENLEN)=TTENAME(1: 00644000 * TNTENLEN);/* SET NAME 05S0529 00645000 * @OY18083*/ 00646000 BCTR @14,0 05S0529 00647000 EX @14,@SM03166 05S0529 00648000 * RPRF=REG6SAVE;/* RESTORE REG 6 00649000 * @OY18083*/ 00650000 ICM RPRF,15,REG6SAVE(RMDR) 05S0530 00651000 * END;/* @OY18083*/ 00652000 * ELSE 05S0532 00653000 * DO;/* @OY18083*/ 00654000 B @RC00510 05S0532 00655000 @RF00510 DS 0H 05S0533 00656000 * MDRTNAME=UNKNOWN;/* BLANK 05S0533 00657000 * TERMINAL NAME @OY18083*/ 00658000 MVC MDRTNAME(8,RMDR),@CC03013 05S0533 00659000 * MDRLNAME=UNKNOWN;/* BLANK LINE 00660000 * NAME @OY18083*/ 00661000 MVC MDRLNAME(8,RMDR),@CC03013 05S0534 00662000 * END;/* @OY18083*/ 00663000 * MDRDATA2(1:SOHDLEN)=SOHDATA1(1:SOHDLEN) 00664000 * ;/* MOVE SOH DATA @OY18083*/ 00665000 @RC00510 LR @09,SOHDLEN 05S0536 00666000 BCTR @09,0 05S0536 00667000 L @07,DATADDR 05S0536 00668000 EX @09,@SM03168 05S0536 00669000 * MDRBUFSZ=LENGTH(SOHHDR)+SOHDLEN+16;/* 00670000 * SET RECORD LENGTH @OY18083*/ 00671000 LA @09,42 05S0537 00672000 ALR @09,SOHDLEN 05S0537 00673000 STH @09,MDRBUFSZ(,RMDR) 05S0537 00674000 * IOSBPTR=REG11;/* RESTORE RQE @OY18083*/ 00675000 LR IOSBPTR,REG11 05S0538 00676000 * RFY 05S0539 00677000 * (ROPCAVT, 05S0539 00678000 * REG11) UNRSTD;/* @OY18083*/ 00679000 * END; /* @OY18083*/ 00680000 * END; 05S0541 00681000 @RC00491 DS 0H 05S0542 00682000 * CASEINDX=XCTL;/* SETUP XCTL TO IGE0625F */ 00683000 LA CASEINDX,3 04S0542 00684000 * END; 04S0543 00685000 * END; 04S0544 00686000 @RC00470 DS 0H 04S0545 00687000 * END; 04S0545 00688000 @RC00428 DS 0H 04S0546 00689000 * CALL IPCSTCXQ; /* PUT THE PROCESSED RECORD ON 00690000 * THE TCX READY QUEUE FOR 03S0546 00691000 * POSTING TO BUFFER DISPOSITION */ 00692000 BAL @14,IPCSTCXQ 03S0546 00693000 * END; 03S0547 00694000 * ELSE 03S0548 00695000 * DO; /* ..ELSE FREE THE GETMAINED 00696000 * STORAGE AREA AND SETUP RETURN 00697000 * TO IGG019TH */ 00698000 B @RC00421 03S0548 00699000 @RF00421 DS 0H 03S0549 00700000 * RFY 03S0549 00701000 * RCORESZE RSTD; 03S0549 00702000 * RCORESZE=MDRFREE; /* GET GETMAINED AREA SIZE FOR 00703000 * FREEMAIN */ 00704000 LH RCORESZE,MDRFREE(,RMDR) 03S0550 00705000 * GEN CODE REFS(RCORESZE,RMDR) SETS(REG00,RPARM) NODEFS 00706000 * NOEXIT NOFLOWS SEQFLOW; 03S0551 00707000 * /* 00708000 FREEMAIN R,LV=(RCORESZE),A=(RMDR),SP=254 00709000 * RFY 03S0552 00710000 * RCORESZE UNRSTD; 03S0552 00711000 * LCBGETMN=OFF; /* NO LONGER INDICATE THAT A 00712000 * GETMAIN HAS BEEN DONE */ 00713000 NI LCBGETMN(RLCB),B'01111111' 03S0553 00714000 * CASEINDX=ERREXCP; /* SETUP ERROR EXCP EXIT TO 03S0554 00715000 * IGG019TH */ 00716000 LA CASEINDX,1 03S0554 00717000 * END; 03S0555 00718000 * END; 03S0556 00719000 * ELSE 03S0557 00720000 * CASEINDX=ERREXCP; /* SETUP ERROR EXCP EXIT TO 03S0557 00721000 * IGG019TH */ 00722000 B @RC00419 03S0557 00723000 @RF00419 LA CASEINDX,1 03S0557 00724000 * 04S0558 00725000 * /*************************************************************/ 00726000 * /* */ 00727000 * /* PROCESS.HANDLE.EXIT: THIS SEGMENT DISPOSES OF THE */ 00728000 * /* FORMATTED DATA CREATED IN THE GETMAINED DATA AREA BY THIS */ 00729000 * /* MODULE. */ 00730000 * /* */ 00731000 * /*************************************************************/ 00732000 * 04S0558 00733000 * DO; 04S0558 00734000 @RC00419 DS 0H 04S0559 00735000 * RFY 04S0559 00736000 * RPARM RSTD; 04S0559 00737000 * RPARM=IOSBPTR; /* RESTORE IOSB POINTER @G36XREB*/ 00738000 LR RPARM,IOSBPTR 04S0560 00739000 * DO; /* CASE(CASEINDX)NAMES(CERREXCP,C 00740000 * WTO,CXTL625F) */ 00741000 * DCL 04S0562 00742000 * CL0001@ LABEL BASED(CP0001@(CASEINDX)) VALUERANGE( 00743000 * CERREXCP,CWTO,CXTL625F);/* BRANCH TARGET */ 00744000 * DCL 04S0563 00745000 * CP0001@(3) PTR(31) INIT(ADDR(CERREXCP),ADDR(CWTO),ADDR( 00746000 * CXTL625F)); 04S0563 00747000 * GOTO CL0001@; /* BRANCH TO SELECTED CASE */ 00748000 LR @11,CASEINDX 04S0564 00749000 SLA @11,2 04S0564 00750000 L @11,CP0001@-4(@11) 04S0564 00751000 BR @11 04S0564 00752000 * 05S0565 00753000 * /*********************************************************/ 00754000 * /* */ 00755000 * /* PROCESS.HANDLE.EXIT.ERREXCP: THIS SEGMENT IS THE */ 00756000 * /* SUBCASE OF THE EXIT CASE WHICH RETURNS CONTROL TO IOS.*/ 00757000 * /* */ 00758000 * /*********************************************************/ 00759000 * 05S0565 00760000 *CERREXCP: 05S0565 00761000 * DO; /* SUBCASE */ 00762000 CERREXCP DS 0H 05S0566 00763000 * SVC(15); /* ERROR EXCP */ 00764000 SVC 15 05S0566 00765000 * SVC(3); /* EXIT */ 00766000 SVC 3 05S0567 00767000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00768000 B CE0001@ 05S0568 00769000 * END; /* END OF SUBCASE */ 00770000 * 05S0570 00771000 * /*********************************************************/ 00772000 * /* */ 00773000 * /* PROCESS.HANDLE.EXIT.WTO: THIS SEGMENT IS THE SUBCASE */ 00774000 * /* OF THE EXIT CASE WHICH WRITES AN SOHC MESSAGE TO THE */ 00775000 * /* OPERATOR. */ 00776000 * /* */ 00777000 * /*********************************************************/ 00778000 * 05S0570 00779000 *CWTO: 05S0570 00780000 * DO; /* SUBCASE */ 00781000 CWTO DS 0H 05S0571 00782000 * RPARM=ADDR(WTOHDR); /* GET ADDRESS OF MESSAGE */ 00783000 LA RPARM,WTOHDR(,RMDR) 05S0571 00784000 * GEN CODE NODEFS NOEXIT NOFLOWS REFS(RPARM) SEQFLOW NOSETS 00785000 * ; 05S0572 00786000 * /* 00787000 WTO MF=(E,(RPARM)) 00788000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00789000 B CE0001@ 05S0573 00790000 * END; /* END OF SUBCASE */ 00791000 * 05S0575 00792000 * /*********************************************************/ 00793000 * /* */ 00794000 * /* PROCESS.HANDLE.EXIT.XCTL: THIS SEGMENT IS THE SUBCASE */ 00795000 * /* OF THE EXIT CASE WHICH EXITS TO THE SYSTEM XCTL */ 00796000 * /* ROUTINE TO XCTL TO IGE0625F TO WRITE A RECORD ON */ 00797000 * /* SYS1.LOGREC. */ 00798000 * /* */ 00799000 * /*********************************************************/ 00800000 * 05S0575 00801000 *CXTL625F: 05S0575 00802000 * DO; /* SUBCASE */ 00803000 CXTL625F DS 0H 05S0576 00804000 * MDRCCU=UCBCUA&UCBMASK;/* SETUP CHANNEL AND UNIT ADDRESS*/ 00805000 L @11,UCBPTR(,IOSBPTR) 05S0576 00806000 MVC MDRCCU(2,RMDR),UCBCUA(@11) 05S0576 00807000 NC MDRCCU(2,RMDR),@CB03010 05S0576 00808000 * LCBOBR=OFF; /* MAKE SURE THAT IGE0625F WILL 00809000 * CHECK FOR A TCAM REQUEST */ 00810000 NI LCBOBR(RLCB),B'11111110' 05S0577 00811000 * EWTCBUFF=LCBRECAD; /* ADDR OF TPER BUFFER @G36XREB*/ 00812000 L @11,EWAPTR(,IOSBPTR) 05S0578 00813000 MVC EWTCBUFF(3,@11),LCBRECAD(RLCB) 05S0578 00814000 * EWAMDR=ON; /* INDICATE TP ERR RECORD 05S0579 00815000 * @G36XREB*/ 00816000 OI EWAMDR(@11),B'10000000' 05S0579 00817000 * RFY 05S0580 00818000 * (REG13, 05S0580 00819000 * REG14) RSTD; 05S0580 00820000 * REG13=XCTL625F; /* SETUP XCTL TO IGE0625F */ 00821000 L REG13,@CF03025 05S0581 00822000 * MDRXCTL=XCTL904I; /* SETUP RETURN XCTL TO THIS 00823000 * MODULE */ 00824000 MVC MDRXCTL(2,RMDR),@CB03023 05S0582 00825000 * REG14=CVTXTLER; /* GET ADDRESS OF SYSTEM XCTL 00826000 * ROUTINE */ 00827000 L @11,CVTPTR 05S0583 00828000 L REG14,CVTXTLER(,@11) 05S0583 00829000 * GEN CODE EXIT NOFLOWS REFS(REG13,REG14) NOSEQFLOW NOSETS; 00830000 * /* 00831000 BR REG14 BRANCH TO SYSTEM XCTL ROUTINE 00832000 * RFY 05S0585 00833000 * (REG13, 05S0585 00834000 * REG14) UNRSTD; 05S0585 00835000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00836000 * END; /* END OF SUBCASE */ 00837000 *CE0001@: 04S0588 00838000 * END; /* END OF CASE */ 00839000 CE0001@ DS 0H 04S0589 00840000 * RFY 04S0589 00841000 * RPARM UNRSTD; 04S0589 00842000 * END; 04S0590 00843000 * END; 03S0591 00844000 @DE00418 B @DL00418 03S0591 00845000 * END; 02S0592 00846000 * 02S0593 00847000 * /*****************************************************************/ 00848000 * /* */ 00849000 * /* IPCSOBRQ: THIS INTERNAL PROCEDURE REMOVES RECORDS FROM THE LCB*/ 00850000 * /* OBR QUEUE. */ 00851000 * /* */ 00852000 * /*****************************************************************/ 00853000 * 02S0593 00854000 *IPCSOBRQ: 02S0593 00855000 * PROC OPTIONS(NOENTREG,NOPARMREG,NORETREG,NOSAVE,NOSAVEAREA); 00856000 @EL00001 DS 0H 02S0593 00857000 @EF00001 DS 0H 02S0593 00858000 @ER00001 BR @14 02S0593 00859000 IPCSOBRQ DS 0H 02S0594 00860000 * RFY 02S0594 00861000 * RPIU RSTD; 02S0594 00862000 * RPRF=LCBOBRCH; /* GET TOP RECORD */ 00863000 L RPRF,LCBOBRCH(,RLCB) 02S0595 00864000 *CSLOOP1: 02S0596 00865000 * RPIU=PRFLINK; /* GET SECOND RECORD */ 00866000 CSLOOP1 L RPIU,PRFLINK-1(,RPRF) 02S0596 00867000 LA RPIU,0(,RPIU) 02S0596 00868000 * CS(RPRF,RPIU,LCBOBRCH); /* COMPARE FIRST AND THIRD 02S0597 00869000 * OPERANDS-IF EQUAL, REPLACE 00870000 * THIRD OPERAND WITH SECOND 00871000 * OPERAND--ELSE REPLACE FIRST 00872000 * OPERAND WITH THIRD OPERAND AND 00873000 * SET NONZERO CONDITION CODE */ 00874000 CS RPRF,@05,LCBOBRCH(RLCB) 02S0597 00875000 * BC(MASK0111,CSLOOP1); /* REPEAT UNTIL IT WORKS */ 00876000 BC 7,CSLOOP1 02S0598 00877000 * RFY 02S0599 00878000 * RPIU UNRSTD; 02S0599 00879000 * END IPCSOBRQ; 02S0600 00880000 @EL00002 DS 0H 02S0600 00881000 @EF00002 DS 0H 02S0600 00882000 @ER00002 BR @14 02S0600 00883000 * 02S0601 00884000 * /*****************************************************************/ 00885000 * /* */ 00886000 * /* IPCSTCXQ: THIS INTERNAL PROCEDURE POSTS TCAM BUFFERS TO BUFFER*/ 00887000 * /* DISPOSITION VIA THE TCX READY QUEUE. */ 00888000 * /* */ 00889000 * /*****************************************************************/ 00890000 * 02S0601 00891000 *IPCSTCXQ: 02S0601 00892000 * PROC OPTIONS(NOENTREG,NOPARMREG,NORETREG,NOSAVE,NOSAVEAREA); 00893000 IPCSTCXQ DS 0H 02S0602 00894000 * RFY 02S0602 00895000 * RPIU RSTD; 02S0602 00896000 * IF LCBSTAT1^=CLSDWNIP /* IF CLOSEDOWN IS NOT IN 02S0603 00897000 * PROGRESS */ 00898000 * THEN 02S0603 00899000 CLI LCBSTAT1(RLCB),X'FF' 02S0603 00900000 BE @RF00603 02S0603 00901000 * DO; /* ..THEN DO THE POST */ 00902000 * PRFNBUNT=0; /* BUFFER DISPOSITION WILL 02S0605 00903000 * CALCULATE THE NUMBER OF UNITS 00904000 * IN A BUFFER WHEN PRFNBUNT IS 00905000 * ZERO */ 00906000 MVI PRFNBUNT(RPRF),X'00' 02S0605 00907000 * PRFQCBA=ADDR(AVTBFRTB); /* SETUP QCB TO BE POSTED */ 00908000 LA @11,AVTBFRTB(,RAVT) 02S0606 00909000 STCM @11,7,PRFQCBA(RPRF) 02S0606 00910000 * PRFPRI=PRIBFRTB; /* SETUP PRIORITY */ 00911000 MVI PRFPRI(RPRF),X'E0' 02S0607 00912000 * RPIU=TCXREADY; /* GET TOP ELEMENT ON QUEUE */ 00913000 L @11,CVTPTR 02S0608 00914000 L @11,TCXPTR(,@11) 02S0608 00915000 L RPIU,TCXREADY(,@11) 02S0608 00916000 *CSLOOP2: 02S0609 00917000 * PRFLINK=RPIU; /* MAKE THE TOP ELEMENT THE 02S0609 00918000 * SECOND ELEMENT */ 00919000 CSLOOP2 STCM RPIU,7,PRFLINK(RPRF) 02S0609 00920000 * CS(RPIU,RPRF,TCXREADY); /* COMPARE FIRST AND THIRD 02S0610 00921000 * OPERANDS-IF EQUAL, REPLACE 00922000 * THIRD OPERAND WITH SECOND 00923000 * OPERAND--ELSE REPLACE FIRST 00924000 * OPERAND WITH THIRD OPERAND AND 00925000 * SET NONZERO CONDITION 02S0610 00926000 * CODE(COMPARE AND SWAP) */ 00927000 L @11,CVTPTR 02S0610 00928000 L @11,TCXPTR(,@11) 02S0610 00929000 CS RPIU,@06,TCXREADY(@11) 02S0610 00930000 * BC(MASK0111,CSLOOP2); /* REPEAT UNTIL IT WORKS */ 00931000 BC 7,CSLOOP2 02S0611 00932000 * END; 02S0612 00933000 * ELSE 02S0613 00934000 * ; /* ..ELSE SKIP THE POST */ 00935000 @RF00603 DS 0H 02S0614 00936000 * RFY 02S0614 00937000 * RPIU UNRSTD; 02S0614 00938000 * END IPCSTCXQ; 02S0615 00939000 @EL00003 DS 0H 02S0615 00940000 @EF00003 DS 0H 02S0615 00941000 @ER00003 BR @14 02S0615 00942000 * END IGE0904I 01S0616 00943000 * 01S0616 00944000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00945000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00946000 */*%INCLUDE SYSLIB (TTRMD ) */ 00947000 */*%INCLUDE SYSLIB (TAVTD ) */ 00948000 */*%INCLUDE SYSLIB (TBDUD ) */ 00949000 */*%INCLUDE SYSLIB (CVT ) */ 00950000 */*%INCLUDE SYSLIB (EWAMAP ) */ 00951000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00952000 */*%INCLUDE SYSLIB (TLCBD ) */ 00953000 */*%INCLUDE SYSLIB (TPIUD ) */ 00954000 */*%INCLUDE SYSLIB (TPRFD ) */ 00955000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00956000 */*%INCLUDE SYSLIB (TTCXD ) */ 00957000 */*%INCLUDE SYSLIB (TTNTD ) */ 00958000 */*%INCLUDE SYSLIB (TRHD ) */ 00959000 */*%INCLUDE SYSLIB (TTHD ) */ 00960000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00961000 */*%INCLUDE SYSUT5 (RFY ) */ 00962000 */*%INCLUDE SYSUT5 (DCL ) */ 00963000 */*%INCLUDE SYSUT5 (PROCESS ) */ 00964000 */*%INCLUDE SYSUT5 (GETMAIN ) */ 00965000 */*%INCLUDE SYSUT5 (HANDLE ) */ 00966000 */*%INCLUDE SYSUT5 (BLDREC ) */ 00967000 */*%INCLUDE SYSUT5 (BLDMDR ) */ 00968000 */*%INCLUDE SYSUT5 (BLDWTO ) */ 00969000 */*%INCLUDE SYSUT5 (BLDSOH ) */ 00970000 */*%INCLUDE SYSUT5 (EXIT ) */ 00971000 */*%INCLUDE SYSUT5 (ERREXCP ) */ 00972000 */*%INCLUDE SYSUT5 (WTO ) */ 00973000 */*%INCLUDE SYSUT5 (XCTL ) */ 00974000 */*%INCLUDE SYSUT5 (IPCSOBRQ) */ 00975000 */*%INCLUDE SYSUT5 (IPCSTCXQ) */ 00976000 * 01S0616 00977000 * ; 01S0616 00978000 @DATA DS 0H 00979000 @SM03151 MVC MDRNAME(0,RMDR),TTENAME(NAMEADDR) 00980000 @SM03153 MVC MDRDATA(0,RMDR),RUDATA(@09) 00981000 @SM03155 MVC MDRDATA(0,@11),UNITDATA(RPRF) 00982000 @SM03157 MVC MDRDATA1(0,RMDR),SOHDATA1(@09) 00983000 @SM03161 MVC MDRDATA2(0,RMDR),SOHDATA1(@09) 00984000 @SM03163 MVC MDRTNAME(0,RMDR),TTENAME(NAMEADDR) 00985000 @SM03166 MVC MDRLNAME(0,RMDR),TTENAME(NAMEADDR) 00986000 @SM03168 MVC MDRDATA2(0,RMDR),SOHDATA1(@07) 00987000 @DATD DSECT 00988000 DS 0F 00989000 IGE0904I CSECT 00990000 DS 0F 00991000 @CF00095 DC F'1' 00992000 @CF00150 DC F'7' 00993000 @CF00032 DC F'8' 00994000 @CF03144 DC F'34' 00995000 @CF03145 DC F'114' 00996000 @CF03025 DC F'6256' 00997000 @CF03165 DC F'-3' 00998000 @CF03047 DC XL4'FFFFFFF8' 00999000 @DATD DSECT 01000000 DS 0D 01001000 DATADDR DS A 01002000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01003000 @ENDDATD EQU * 01004000 IGE0904I CSECT 01005000 NOPR ((@ENDDATD-@DATD)/9*16) 01006000 DS 0F 01007000 @SIZDATD DC AL1(0) 01008000 DC AL3(@ENDDATD-@DATD) 01009000 DS 0D 01010000 @CC03013 DC C'*UNKNOWN' 01011000 @CC03019 DC C'IED151I' 01012000 @CB03017 DC X'10000000' 01013000 @CB03010 DC X'3FFF' 01014000 @CB03015 DC X'8000' 01015000 @CB03023 DC X'2359' 01016000 DS CL3 01017000 CP0001@ DC AL4(CERREXCP) 01018000 DC AL4(CWTO) 01019000 DC AL4(CXTL625F) 01020000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01021000 @01 EQU 01 01022000 @02 EQU 02 01023000 @03 EQU 03 01024000 @04 EQU 04 01025000 @05 EQU 05 01026000 @06 EQU 06 01027000 @07 EQU 07 01028000 @08 EQU 08 01029000 @09 EQU 09 01030000 @10 EQU 10 01031000 @11 EQU 11 01032000 @12 EQU 12 01033000 @13 EQU 13 01034000 @14 EQU 14 01035000 @15 EQU 15 01036000 NAMEADDR EQU @07 01037000 UNITDLEN EQU @05 01038000 PIUDLEN EQU @02 01039000 LENDATTM EQU @09 01040000 LOOPINDX EQU @07 01041000 CASEINDX EQU @07 01042000 SOHDLEN EQU @05 01043000 ROPCAVT EQU @02 01044000 IEDQTPTR EQU @08 01045000 IOSBPTR EQU @08 01046000 LCBXPTR EQU @05 01047000 RAVT EQU @13 01048000 RLCB EQU @04 01049000 RPRF EQU @06 01050000 REG00 EQU @00 01051000 RPARM EQU @01 01052000 RCORESZE EQU @02 01053000 RMDR EQU @03 01054000 RPIU EQU @05 01055000 REG07 EQU @07 01056000 REG08 EQU @08 01057000 REG09 EQU @09 01058000 REG10 EQU @10 01059000 REG11 EQU @11 01060000 RBASE EQU @12 01061000 REG13 EQU @13 01062000 REG14 EQU @14 01063000 REG15 EQU @15 01064000 REG01 EQU @01 01065000 REG02 EQU @02 01066000 REG03 EQU @03 01067000 REG04 EQU @04 01068000 REG05 EQU @05 01069000 REG06 EQU @06 01070000 REG12 EQU @12 01071000 CVTPTR EQU 16 01072000 IEDQOPCD EQU 0 01073000 OPCAQCTL EQU IEDQOPCD+180 01074000 OPCLDNME EQU IEDQOPCD+212 01075000 OPCHORT EQU IEDQOPCD+256 01076000 OPCSPEC EQU IEDQOPCD+300 01077000 OPCPWCOB EQU IEDQOPCD+368 01078000 OPCPWQCB EQU OPCPWCOB 01079000 OPCPWECB EQU OPCPWCOB+4 01080000 IEDQTRM EQU 0 01081000 TRMSTATE EQU IEDQTRM 01082000 TRMLOG EQU TRMSTATE 01083000 TRMINSEQ EQU IEDQTRM+4 01084000 TLISTCNT EQU TRMINSEQ 01085000 TRMOUTSQ EQU IEDQTRM+6 01086000 TLISTEN EQU TRMOUTSQ 01087000 TRMDSORG EQU TLISTEN 01088000 TRMALTD EQU IEDQTRM+8 01089000 TRMDEVFL EQU IEDQTRM+10 01090000 TRMSTAT EQU IEDQTRM+12 01091000 IEDNTRM EQU 0 01092000 TRMBYTE4 EQU IEDNTRM 01093000 TRMBYTE3 EQU IEDNTRM+1 01094000 TRMBYTE2 EQU IEDNTRM+2 01095000 TRMINPG EQU TRMBYTE2 01096000 TRMBYTE1 EQU IEDNTRM+3 01097000 TRMSCPRQ EQU TRMBYTE1 01098000 TRMBYTE0 EQU IEDNTRM+6 01099000 TRMSIBPT EQU IEDNTRM+7 01100000 TRMTYPE EQU IEDNTRM+11 01101000 IEDQAVTD EQU 0 01102000 AVTSAVEX EQU IEDQAVTD+288 01103000 AVTREADD EQU IEDQAVTD+380 01104000 AVTBUFSW EQU IEDQAVTD+384 01105000 @NM00024 EQU IEDQAVTD+388 01106000 AVTCKFLG EQU @NM00024 01107000 AVTOCGET EQU IEDQAVTD+392 01108000 AVTBASE EQU IEDQAVTD+412 01109000 AVTPKF EQU AVTBASE 01110000 AVTRNMPT EQU IEDQAVTD+424 01111000 AVTOSECB EQU IEDQAVTD+492 01112000 AVTECB1 EQU AVTOSECB 01113000 AVTHG02 EQU IEDQAVTD+528 01114000 AVTDISP EQU IEDQAVTD+552 01115000 AVTHD EQU IEDQAVTD+556 01116000 AVTSCOPT EQU AVTHD 01117000 AVTSAVTP EQU IEDQAVTD+612 01118000 AVTSAVTF EQU AVTSAVTP 01119000 AVTCKPEL EQU IEDQAVTD+652 01120000 AVTCKRMV EQU AVTCKPEL 01121000 AVTCKELF EQU IEDQAVTD+680 01122000 AVTCKBYT EQU IEDQAVTD+691 01123000 AVTHG01 EQU IEDQAVTD+692 01124000 AVTCKLNK EQU IEDQAVTD+696 01125000 AVTCRELE EQU IEDQAVTD+708 01126000 AVTCCELE EQU AVTCRELE 01127000 AVTCLRHI EQU IEDQAVTD+716 01128000 AVTADBUF EQU IEDQAVTD+720 01129000 AVTSYSER EQU IEDQAVTD+728 01130000 AVTBFRFG EQU IEDQAVTD+784 01131000 AVTBFRTB EQU IEDQAVTD+792 01132000 AVTCKPQB EQU IEDQAVTD+804 01133000 AVTCKPTB EQU AVTCKPQB 01134000 AVTCKPEC EQU AVTCKPQB+4 01135000 AVTCKPCC EQU AVTCKPEC 01136000 AVTOPCQB EQU IEDQAVTD+816 01137000 AVTOPCOB EQU AVTOPCQB 01138000 AVTOPCEC EQU AVTOPCQB+4 01139000 AVTOPCCC EQU AVTOPCEC 01140000 AVTOLTQB EQU IEDQAVTD+828 01141000 AVTCWFL1 EQU IEDQAVTD+924 01142000 AVTCWFL2 EQU IEDQAVTD+925 01143000 AVTSUBT EQU IEDQAVTD+948 01144000 AVTIOTR EQU IEDQAVTD+949 01145000 AVTKEYLE EQU IEDQAVTD+1032 01146000 AVTBIT1 EQU IEDQAVTD+1050 01147000 AVTBIT2 EQU IEDQAVTD+1051 01148000 AVTBIT3 EQU IEDQAVTD+1052 01149000 AVTBIT4 EQU IEDQAVTD+1136 01150000 @NM00106 EQU IEDQAVTD+1232 01151000 IEDQAPTR EQU 0 01152000 IEDNSVTD EQU 0 01153000 SAVTDIAG EQU IEDNSVTD 01154000 SAVTDIAF EQU SAVTDIAG 01155000 SAVTLUSQ EQU IEDNSVTD+88 01156000 SAVTTCPU EQU IEDNSVTD+238 01157000 SAVTNAX EQU IEDNSVTD+248 01158000 SAVTZELM EQU IEDNSVTD+270 01159000 SAVTRDRV EQU IEDNSVTD+284 01160000 SAVTCKQB EQU IEDNSVTD+300 01161000 SAVTCKTB EQU SAVTCKQB 01162000 SAVTCKEC EQU SAVTCKQB+4 01163000 SAVTCKCC EQU SAVTCKEC 01164000 IEDBDU EQU 0 01165000 BDUFNFLG EQU IEDBDU+2 01166000 BDUBDUFG EQU IEDBDU+3 01167000 BDURSP EQU IEDBDU+4 01168000 BDUSYRSP EQU BDURSP 01169000 BDUEXRSP EQU BDURSP+1 01170000 BDUEND EQU IEDBDU+6 01171000 CVTMAP EQU 0 01172000 CVTXTLER EQU CVTMAP+44 01173000 CVTDAR EQU CVTMAP+72 01174000 CVTFLGS1 EQU CVTDAR 01175000 CVTDCB EQU CVTMAP+116 01176000 CVTIERLC EQU CVTMAP+144 01177000 CVTOPTA EQU CVTMAP+182 01178000 CVTOPTB EQU CVTMAP+183 01179000 CVTGTF EQU CVTMAP+236 01180000 CVTGTFST EQU CVTGTF 01181000 CVTGTFS EQU CVTGTFST 01182000 CVTSTATE EQU CVTGTFST 01183000 CVTTMODE EQU CVTGTFST 01184000 CVTFORM EQU CVTGTFST 01185000 CVTAQAVT EQU CVTMAP+240 01186000 CVTTCMFG EQU CVTAQAVT 01187000 CVTVOLM2 EQU CVTMAP+244 01188000 CVTTATA EQU CVTVOLM2 01189000 CVTTSKS EQU CVTTATA 01190000 CVTVOLF2 EQU CVTTSKS 01191000 CVTTAT EQU CVTTATA+1 01192000 CVTATER EQU CVTMAP+248 01193000 CVTEXT1 EQU CVTMAP+252 01194000 CVTPURG EQU CVTMAP+260 01195000 CVTQMSG EQU CVTMAP+268 01196000 CVTDMSR EQU CVTMAP+272 01197000 CVTRSV37 EQU CVTDMSR 01198000 CVTDMSRF EQU CVTRSV37 01199000 CVTERPV EQU CVTMAP+316 01200000 CVTINTLA EQU CVTMAP+320 01201000 CVTAPF EQU CVTMAP+324 01202000 CVTEXT2 EQU CVTMAP+328 01203000 CVTHJES EQU CVTMAP+332 01204000 CVTPGSIA EQU CVTMAP+348 01205000 CVTA1F1 EQU CVTMAP+356 01206000 CVTSYSK EQU CVTMAP+357 01207000 CVTVOLM1 EQU CVTMAP+380 01208000 CVTVOLF1 EQU CVTVOLM1 01209000 CVTATMCT EQU CVTMAP+388 01210000 CVTXTNT1 EQU 0 01211000 CVTXTNT2 EQU 0 01212000 CVTDSSV EQU CVTXTNT2 01213000 CVTFLGBT EQU CVTXTNT2+5 01214000 CVTQID EQU CVTXTNT2+24 01215000 CVTSHS EQU CVTXTNT2+40 01216000 CVTRV400 EQU CVTXTNT2+52 01217000 CVTRV409 EQU CVTXTNT2+53 01218000 CVTATCVT EQU CVTXTNT2+64 01219000 CVTRV429 EQU CVTXTNT2+84 01220000 CVTRV438 EQU CVTXTNT2+85 01221000 CVTRV457 EQU CVTXTNT2+112 01222000 CVTRV466 EQU CVTXTNT2+113 01223000 CVTFIX EQU 0 01224000 CVTRELNO EQU CVTFIX+252 01225000 EWA EQU 0 01226000 EWAHDR EQU EWA 01227000 EWAFLAGS EQU EWA+4 01228000 EWAFLG1 EQU EWAFLAGS 01229000 EWASCCD EQU EWAFLG1 01230000 EWASCC3 EQU EWASCCD 01231000 EWAFLG2 EQU EWAFLAGS+1 01232000 EWAMDR EQU EWAFLG2 01233000 EWAFLG3 EQU EWAFLAGS+2 01234000 EWASNSCT EQU EWAFLAGS+3 01235000 EWACNTRS EQU EWA+10 01236000 EWAERPIB EQU EWA+16 01237000 EWARGFG1 EQU EWAERPIB+4 01238000 EWARGFG2 EQU EWAERPIB+5 01239000 EWAXCSW1 EQU EWAERPIB+6 01240000 EWAXCSW2 EQU EWAERPIB+7 01241000 EWAIERP EQU EWA+32 01242000 IOSB EQU 0 01243000 IOSFLA EQU IOSB 01244000 IOSACHN EQU IOSFLA 01245000 IOSFLB EQU IOSB+1 01246000 IOSFLC EQU IOSB+2 01247000 IOSDVALT EQU IOSFLC 01248000 IOSPKEY EQU IOSB+12 01249000 IOSOPT EQU IOSB+14 01250000 IOSOPT2 EQU IOSB+15 01251000 IOSUCB EQU IOSB+16 01252000 @NM00138 EQU IOSB+20 01253000 IOSCSW EQU @NM00138+1 01254000 IOSTATUS EQU IOSCSW+3 01255000 IOSUSE EQU IOSB+32 01256000 IOSIPIB EQU IOSB+44 01257000 IOSERP EQU IOSB+52 01258000 IOSPATH EQU IOSB+86 01259000 IOSCHN EQU IOSPATH 01260000 IOSCKEY EQU IOSB+89 01261000 IOSEEKA EQU IOSB+100 01262000 IOSCCHH EQU IOSEEKA+3 01263000 IOSSKHH EQU IOSCCHH+2 01264000 IEDQLCB EQU 0 01265000 LCBRCB EQU IEDQLCB 01266000 LCBTSOB EQU IEDQLCB+19 01267000 LCBCHAIN EQU IEDQLCB+20 01268000 LCBSCRNN EQU LCBCHAIN 01269000 LCBTETEN EQU LCBCHAIN 01270000 LCBINSRC EQU IEDQLCB+21 01271000 LCBLKMDE EQU LCBINSRC+2 01272000 LCBNTXT EQU IEDQLCB+24 01273000 LCBSTAT4 EQU LCBNTXT 01274000 LCBPHASE EQU LCBSTAT4 01275000 LCBSCBDA EQU IEDQLCB+25 01276000 LCBMHA EQU IEDQLCB+29 01277000 LCBFLAG1 EQU IEDQLCB+32 01278000 LCBIOBSN EQU IEDQLCB+33 01279000 LCBSNS EQU LCBIOBSN+1 01280000 LCBSENS0 EQU LCBSNS 01281000 LCBLOSDT EQU LCBSENS0 01282000 LCBTMOUT EQU LCBSENS0 01283000 LCBFLAG3 EQU LCBIOBSN+7 01284000 LCBOBR EQU LCBFLAG3 01285000 LCBCSW EQU LCBIOBSN+8 01286000 LCBCSWST EQU LCBCSW+3 01287000 LCBCSWUS EQU LCBCSWST 01288000 LCBCSWCS EQU LCBCSWST+1 01289000 LCBSIOCC EQU LCBIOBSN+15 01290000 LCBDCBPT EQU IEDQLCB+52 01291000 LCBRCQCB EQU IEDQLCB+56 01292000 LCBRESTR EQU LCBRCQCB 01293000 LCBTHSQ EQU IEDQLCB+60 01294000 LCBINCAM EQU LCBTHSQ 01295000 LCBGETMN EQU LCBINCAM 01296000 LCBERRCT EQU IEDQLCB+62 01297000 LCBLSPCI EQU IEDQLCB+65 01298000 LCBRCBFR EQU LCBLSPCI 01299000 LCBSTATE EQU IEDQLCB+70 01300000 LCBSTAT1 EQU LCBSTATE 01301000 LCBSTAT2 EQU LCBSTATE+1 01302000 LCBBEOTN EQU LCBSTAT2 01303000 LCBSYNC EQU LCBSTAT2 01304000 LCBDIAL EQU LCBSTAT2 01305000 LCBTSTSW EQU IEDQLCB+72 01306000 LCBRECAD EQU IEDQLCB+73 01307000 LCBERB EQU IEDQLCB+76 01308000 LCBERBST EQU IEDQLCB+84 01309000 LCBDLNKN EQU LCBERBST 01310000 LCBERBCT EQU IEDQLCB+88 01311000 LCBRBCT2 EQU LCBERBCT+1 01312000 LCBMSGFM EQU IEDQLCB+92 01313000 LCBOBRCH EQU IEDQLCB+96 01314000 LCBINVPT EQU LCBOBRCH+1 01315000 LCBBFRW EQU LCBINVPT 01316000 LCBTPCD EQU IEDQLCB+100 01317000 LCBSTAT5 EQU LCBTPCD 01318000 LCBSTAT6 EQU LCBTPCD+4 01319000 LCBRSPSV EQU LCBTPCD+8 01320000 LCBSAVSN EQU IEDQLCB+112 01321000 LCBERCCW EQU IEDQLCB+120 01322000 LCBCPA EQU IEDQLCB+144 01323000 LCBCCW5 EQU LCBCPA+32 01324000 LCBATTEL EQU LCBCCW5 01325000 LCBQEBPL EQU LCBATTEL 01326000 IEDQLPTR EQU 0 01327000 IEDQLCBX EQU 0 01328000 LCBXCON EQU IEDQLCBX 01329000 LCBXFLAG EQU LCBXCON 01330000 LCBXDCT EQU LCBXCON+1 01331000 LCBXRADR EQU LCBXCON+4 01332000 IEDPIU EQU 0 01333000 PIUTH EQU IEDPIU 01334000 PIURH EQU IEDPIU+10 01335000 PIURU EQU IEDPIU+13 01336000 IEDQPRF EQU 0 01337000 PRFRCB EQU IEDQPRF 01338000 PRFKEY EQU PRFRCB 01339000 PRFQCBA EQU PRFRCB+1 01340000 PRFPRI EQU PRFRCB+4 01341000 PRFLINK EQU PRFRCB+5 01342000 PRFTIC EQU IEDQPRF+8 01343000 PRFTICC EQU PRFTIC 01344000 PRFNBUNT EQU IEDQPRF+12 01345000 PRFSUNIT EQU PRFNBUNT 01346000 PRFPLQCB EQU PRFSUNIT 01347000 PRFPIUO EQU PRFPLQCB 01348000 @NM00192 EQU IEDQPRF+16 01349000 PRFSVFFO EQU @NM00192 01350000 PRFSTAT1 EQU IEDQPRF+20 01351000 PRFEOFN EQU PRFSTAT1 01352000 PRFCORE EQU IEDQPRF+21 01353000 PRFXTRA EQU PRFCORE 01354000 PRFSCAN EQU IEDQPRF+24 01355000 PRFTQBCK EQU IEDQPRF+26 01356000 PRFNTXT EQU PRFTQBCK 01357000 PRFEOBOF EQU PRFNTXT 01358000 PRFCHDR EQU IEDQPRF+32 01359000 PRFHQBCK EQU IEDQPRF+35 01360000 IEDQPPTR EQU 0 01361000 IEDPF1 EQU 0 01362000 PRF1FLG1 EQU IEDPF1+3 01363000 PRF1WD2 EQU IEDPF1+4 01364000 PRF1SEQP EQU PRF1WD2 01365000 PRF1SQID EQU PRF1SEQP 01366000 PRF1TAG1 EQU PRF1SQID 01367000 IEDPF2 EQU 0 01368000 PRF2FLG2 EQU IEDPF2 01369000 PRF2WD2 EQU IEDPF2+4 01370000 IEDQTCXD EQU 0 01371000 TCXAVT EQU IEDQTCXD 01372000 TCXATTEN EQU IEDQTCXD+4 01373000 TCXREADY EQU IEDQTCXD+24 01374000 TCXFLAG1 EQU IEDQTCXD+34 01375000 TCXBUFA EQU IEDQTCXD+80 01376000 TCXDSAVE EQU IEDQTCXD+104 01377000 TCXQE8 EQU IEDQTCXD+216 01378000 IEDQTNTD EQU 0 01379000 IEDQTCDE EQU IEDQTNTD 01380000 TNTENLEN EQU IEDQTNTD+40 01381000 IEDQTDCE EQU IEDQTNTD+46 01382000 TNTFIRST EQU 0 01383000 IEDTNTA EQU 0 01384000 TNTTRMAD EQU IEDTNTA 01385000 IEDRH EQU 0 01386000 TRHBYTE0 EQU IEDRH 01387000 TRHBYTE1 EQU IEDRH+1 01388000 TRHBYTE2 EQU IEDRH+2 01389000 IEDTH EQU 0 01390000 TTHBYTE0 EQU IEDTH 01391000 TTHFTYPE EQU TTHBYTE0 01392000 TTHOAF EQU IEDTH+4 01393000 TTHSNF EQU IEDTH+6 01394000 TTHTAG EQU TTHSNF 01395000 TTHTAG1 EQU TTHTAG 01396000 TTHDCF EQU IEDTH+8 01397000 UCB EQU 0 01398000 UCBOB EQU 0 01399000 UCBJBNR EQU UCBOB 01400000 UCBFL5 EQU UCBOB+1 01401000 UCBAF EQU UCBFL5 01402000 UCBSTAT EQU UCBOB+3 01403000 UCBCHAN EQU UCBOB+4 01404000 UCBCHA EQU UCBCHAN 01405000 UCBSFLS EQU UCBOB+6 01406000 UCBFLA EQU UCBSFLS 01407000 UCBFL1 EQU UCBFLA 01408000 UCBBSY EQU UCBFL1 01409000 UCBNRY EQU UCBFL1 01410000 UCBPST EQU UCBFL1 01411000 UCBCUB EQU UCBFL1 01412000 UCBFLB EQU UCBSFLS+1 01413000 UCBCHM EQU UCBOB+8 01414000 UCBCHM1 EQU UCBCHM 01415000 UCBPTH0 EQU UCBCHM1 01416000 UCBPTH1 EQU UCBCHM1 01417000 UCBWGT EQU UCBOB+12 01418000 UCBNAME EQU UCBOB+13 01419000 UCBTYP EQU UCBOB+16 01420000 UCBTBYT1 EQU UCBTYP 01421000 UCB1FEA5 EQU UCBTBYT1 01422000 UCB1FEA6 EQU UCBTBYT1 01423000 UCBTBYT2 EQU UCBTYP+1 01424000 UCB2OPT2 EQU UCBTBYT2 01425000 UCBDUDN1 EQU UCB2OPT2 01426000 UCB2OPT3 EQU UCBTBYT2 01427000 UCBDUDN2 EQU UCB2OPT3 01428000 UCB2OPT4 EQU UCBTBYT2 01429000 UCBRWTAU EQU UCB2OPT4 01430000 UCB2OPT6 EQU UCBTBYT2 01431000 UCB2OPT7 EQU UCBTBYT2 01432000 UCBTBYT3 EQU UCBTYP+2 01433000 UCBDVCLS EQU UCBTBYT3 01434000 UCBTBYT4 EQU UCBTYP+3 01435000 UCBEXTPT EQU UCBOB+20 01436000 UCBFLC EQU UCBEXTPT 01437000 UCBDEV EQU UCBOB+24 01438000 UCBCMEXT EQU 0 01439000 UCBATI EQU UCBCMEXT+3 01440000 @NM00214 EQU UCBATI 01441000 UCBFLP1 EQU UCBCMEXT+5 01442000 UCBMT EQU 0 01443000 UCBOCR EQU 0 01444000 UCB3540X EQU 0 01445000 UCBDKBYT EQU UCB3540X+6 01446000 UCB3800X EQU 0 01447000 UCBOPTNS EQU UCB3800X 01448000 UCBACTIV EQU UCB3800X+3 01449000 UCBMDRBF EQU UCB3800X+36 01450000 UCBUCS EQU 0 01451000 UCBUCSOP EQU UCBUCS+4 01452000 UCBFCBOP EQU UCBUCS+5 01453000 TTENAME EQU 0 01454000 IEDIAP03 EQU 0 01455000 COHORTLK EQU 0 01456000 MDRMAP EQU 0 01457000 TPERHDR EQU MDRMAP 01458000 MDRFREE EQU TPERHDR 01459000 MDRHDR EQU TPERHDR+2 01460000 MDRBUFSZ EQU MDRHDR 01461000 MDRSECID EQU MDRHDR+2 01462000 MDRXCTL EQU MDRHDR+3 01463000 MDRRECID EQU MDRHDR+5 01464000 MDRCDE10 EQU MDRRECID 01465000 MDRCDE8 EQU MDRRECID 01466000 MDRWTO EQU MDRHDR+6 01467000 MDRCCU EQU MDRHDR+24 01468000 MDRNAME EQU MDRHDR+26 01469000 MDRNETA EQU MDRHDR+34 01470000 MDRDATA EQU MDRMAP+38 01471000 WTOMAP EQU 0 01472000 WTOHDR EQU WTOMAP+8 01473000 MDRWTOL EQU WTOHDR 01474000 MDRFLAGS EQU WTOHDR+2 01475000 MDRMSGID EQU WTOHDR+4 01476000 MDREBCCU EQU WTOHDR+12 01477000 MDRDATA1 EQU WTOMAP+24 01478000 SOHMAP EQU 0 01479000 SOHHDR EQU SOHMAP+2 01480000 MDRDATA2 EQU SOHMAP+28 01481000 MDRTNAME EQU SOHMAP+32 01482000 MDRLNAME EQU SOHMAP+40 01483000 REGSAVE EQU SOHMAP+48 01484000 COMPSAVE EQU SOHMAP+96 01485000 REG6SAVE EQU SOHMAP+104 01486000 SOHDATA EQU 0 01487000 SOHFLAGS EQU SOHDATA 01488000 SOHDATA1 EQU SOHDATA+1 01489000 WTOENDFG EQU 0 01490000 @NM00223 EQU WTOENDFG+2 01491000 WTOCDE2 EQU @NM00223 01492000 WTOCDE8 EQU @NM00223 01493000 @NM00226 EQU WTOENDFG+3 01494000 WTOCDE10 EQU @NM00226 01495000 CL0001@ EQU 0 01496000 TNTCODE EQU 0 01497000 TNTDCODE EQU 0 01498000 UCBBGN EQU 0 01499000 UCBDCPTR EQU 0 01500000 OPCAQWD EQU OPCAQCTL 01501000 OPCAQWD1 EQU OPCAQWD 01502000 OPCAQWD2 EQU OPCAQWD+4 01503000 OPCAQWD3 EQU OPCAQWD+8 01504000 TRMPRE1 EQU TRMBYTE4 01505000 TRMNCP1 EQU TRMBYTE4 01506000 TRMPRE EQU TRMBYTE3 01507000 TRMNCP EQU TRMBYTE3 01508000 TRMPU EQU TRMBYTE3 01509000 TRMLU EQU TRMBYTE3 01510000 TRMLINK EQU TRMBYTE3 01511000 CVTS01 EQU CVTPGSIA 01512000 CVTLPDIA EQU CVTS01+12 01513000 CVTDIRST EQU CVTLPDIA 01514000 CVTSLIDA EQU CVTS01+24 01515000 CVTCTLFG EQU CVTS01+50 01516000 CVTRV210 EQU CVTS01+424 01517000 CVTRV219 EQU CVTS01+425 01518000 CVTRV228 EQU CVTS01+426 01519000 CVTRV237 EQU CVTS01+427 01520000 CVTMFRTR EQU CVTS01+452 01521000 CVTRV262 EQU CVTS01+468 01522000 CVTRV271 EQU CVTS01+469 01523000 CVTRV280 EQU CVTS01+470 01524000 CVTRV289 EQU CVTS01+471 01525000 CVTGSDA EQU CVTS01+600 01526000 EWAPTR EQU IOSERP 01527000 EWADDIOS EQU EWAIERP 01528000 IOSATTSC EQU IOSIPIB 01529000 IOSWTOWA EQU IOSIPIB 01530000 IOSPCISC EQU IOSIPIB 01531000 LCBRSPIN EQU LCBIOBSN 01532000 LCBLUSNS EQU LCBRSPIN+5 01533000 LCBSCPRS EQU LCBRSPIN+9 01534000 LCBCSWU1 EQU LCBSCPRS+2 01535000 LCBRSPFG EQU LCBRSPIN+15 01536000 LCBCOREQ EQU LCBTPCD 01537000 @NM00172 EQU LCBCPA+40 01538000 LCBQNX EQU LCBERCCW 01539000 LCBQNXMN EQU LCBQNX 01540000 LCBCANCL EQU LCBSAVSN 01541000 LCBCANFG EQU LCBCANCL 01542000 TCXPTR EQU CVTAQAVT 01543000 IEDQNPTR EQU AVTRNMPT 01544000 UCBPTR EQU IOSUCB 01545000 UCBOBS01 EQU UCBDEV 01546000 UCBSTAB EQU UCBOBS01+10 01547000 UCBBSVL EQU UCBSTAB 01548000 UCBPRSRS EQU UCBSTAB 01549000 UCBDMCT EQU UCBOBS01+11 01550000 UCBFL4 EQU UCBOBS01+13 01551000 UCBOBS02 EQU UCBDEV 01552000 UCBTFL1 EQU UCBOBS02+19 01553000 UCBXTN EQU UCBOBS02+20 01554000 UCBVOPT EQU UCBXTN 01555000 UCBOBS03 EQU UCBDEV 01556000 UCBXTADR EQU UCBOBS03 01557000 UCBOBS04 EQU UCBDEV 01558000 UCBBTA EQU UCBOBS04+12 01559000 UCBOBS06 EQU UCBDEV 01560000 UCBAOF EQU UCBOBS06 01561000 UCBAOF1 EQU UCBAOF 01562000 UCBAOF2 EQU UCBAOF+1 01563000 @NM00213 EQU UCBOBS06+3 01564000 UCBIRB EQU UCBOBS06+4 01565000 UCBGRAF EQU UCBIRB 01566000 UCBLDNCA EQU UCBOBS06+8 01567000 UCBRDYQ EQU UCBLDNCA 01568000 UCBIRLN EQU UCBRDYQ 01569000 UCBLDNCB EQU UCBRDYQ+1 01570000 UCBCTLNK EQU UCBOBS06+12 01571000 UCBOBS07 EQU UCBDEV 01572000 UCBOBS08 EQU UCBDEV 01573000 UCBCTCAD EQU UCBOBS08 01574000 UCBCTCF1 EQU UCBOBS08+4 01575000 UCBOBS09 EQU UCBDEV 01576000 UNITDATA EQU PRFPIUO 01577000 UCBCUA EQU UCBCHA 01578000 RU EQU PIURU 01579000 RUCNTL EQU RU 01580000 RUNA EQU RUCNTL+3 01581000 RUDATA EQU RU+5 01582000 RURECID EQU RUDATA+3 01583000 SOHRU EQU PIURU 01584000 SOHTYPE EQU SOHRU+8 01585000 SOHSTX EQU SOHRU+9 01586000 SOHDATA0 EQU SOHRU+10 01587000 ETW EQU EWAIERP 01588000 EWTCBUFF EQU ETW+41 01589000 BDUTEXT EQU BDUEND 01590000 PRFSHDR EQU IEDQPRF+42 01591000 RSRCTNTI EQU SOHFLAGS 01592000 TRMOPT EQU IEDQTRM+20 01593000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01594000 @NM00228 EQU ETW 01595000 @NM00221 EQU SOHRU 01596000 @NM00217 EQU RUDATA+4 01597000 @NM00216 EQU RUDATA 01598000 @NM00215 EQU RUCNTL 01599000 UCBRV066 EQU UCBOBS09+4 01600000 UCBIOSBA EQU UCBOBS09 01601000 UCBRV042 EQU UCBOBS08+5 01602000 UCBRV082 EQU UCBCTCF1 01603000 UCBRV081 EQU UCBCTCF1 01604000 UCBRV080 EQU UCBCTCF1 01605000 UCBRV079 EQU UCBCTCF1 01606000 UCBRV078 EQU UCBCTCF1 01607000 UCBRV077 EQU UCBCTCF1 01608000 UCBRV076 EQU UCBCTCF1 01609000 UCBCTC80 EQU UCBCTCF1 01610000 UCBCTCAL EQU UCBCTCAD 01611000 UCBICNCB EQU UCBOBS07+4 01612000 UCBRV040 EQU UCBOBS07 01613000 UCBCTLNA EQU UCBCTLNK+1 01614000 UCBRLN EQU UCBCTLNK 01615000 UCBRDYQA EQU UCBLDNCB 01616000 UCBINRLN EQU UCBIRLN 01617000 UCBIRBA EQU UCBIRB+1 01618000 UCBRV039 EQU UCBGRAF 01619000 UCBDWNR EQU UCBGRAF 01620000 UCBRPND EQU UCBGRAF 01621000 UCBUPM EQU UCBGRAF 01622000 UCBBTAM EQU UCBGRAF 01623000 UCBDRNO EQU UCBGRAF 01624000 UCBDRO EQU UCBGRAF 01625000 UCBOIP EQU UCBGRAF 01626000 UCBATRCD EQU @NM00213 01627000 UCBSKPFG EQU @NM00213 01628000 UCBRIPND EQU @NM00213 01629000 UCBRTIAC EQU @NM00213 01630000 UCBRSV79 EQU @NM00213 01631000 UCBRSV78 EQU @NM00213 01632000 UCBRSV77 EQU @NM00213 01633000 UCBOLTEP EQU @NM00213 01634000 UCBATNCT EQU UCBOBS06+2 01635000 UCBRSV76 EQU UCBAOF2 01636000 UCBRSV75 EQU UCBAOF2 01637000 UCBRSV74 EQU UCBAOF2 01638000 UCBRSV73 EQU UCBAOF2 01639000 UCBRSV72 EQU UCBAOF2 01640000 UCBRSV71 EQU UCBAOF2 01641000 UCBRSV70 EQU UCBAOF2 01642000 UCBRSV69 EQU UCBAOF2 01643000 UCBRSV68 EQU UCBAOF1 01644000 UCBRSV67 EQU UCBAOF1 01645000 UCBRSV66 EQU UCBAOF1 01646000 UCBRSV65 EQU UCBAOF1 01647000 UCBRSV64 EQU UCBAOF1 01648000 UCBOFNL EQU UCBAOF1 01649000 UCBOFSP EQU UCBAOF1 01650000 UCBOFMCR EQU UCBAOF1 01651000 UCBBTB EQU UCBBTA+1 01652000 UCBDI EQU UCBBTA 01653000 UCBSNS EQU UCBOBS04+8 01654000 UCBTEB EQU UCBOBS04+4 01655000 UCBGCB EQU UCBOBS04+3 01656000 UCBOPEN EQU UCBOBS04+2 01657000 UCBSTART EQU UCBOBS04 01658000 UCBXTNB EQU UCBXTN+1 01659000 UCBRSV22 EQU UCBVOPT 01660000 UCBRSV21 EQU UCBVOPT 01661000 UCBRSV20 EQU UCBVOPT 01662000 UCBESVE EQU UCBVOPT 01663000 UCBERPC EQU UCBVOPT 01664000 UCBESVC EQU UCBVOPT 01665000 UCBEVA EQU UCBVOPT 01666000 UCBESV EQU UCBVOPT 01667000 UCBRV009 EQU UCBTFL1 01668000 UCBRV008 EQU UCBTFL1 01669000 UCBRV007 EQU UCBTFL1 01670000 UCBRV006 EQU UCBTFL1 01671000 UCBRV005 EQU UCBTFL1 01672000 UCBRV038 EQU UCBTFL1 01673000 UCBNSLTP EQU UCBTFL1 01674000 UCBNLTP EQU UCBTFL1 01675000 UCBRES1B EQU UCBOBS02+18 01676000 UCBFSER EQU UCBOBS02+12 01677000 @NM00212 EQU UCBOBS02+4 01678000 UCBFSEQ EQU UCBOBS02+2 01679000 UCBFSCT EQU UCBOBS02 01680000 UCBNEXP EQU UCBOBS01+20 01681000 UCBBASE EQU UCBOBS01+16 01682000 UCBRES1A EQU UCBOBS01+15 01683000 UCBUSER EQU UCBOBS01+14 01684000 UCBFL47 EQU UCBFL4 01685000 UCBFL46 EQU UCBFL4 01686000 UCBFL45 EQU UCBFL4 01687000 UCBRV065 EQU UCBFL4 01688000 UCBDSS EQU UCBFL4 01689000 UCBRV028 EQU UCBFL4 01690000 UCBWDAV EQU UCBFL4 01691000 UCBDAVV EQU UCBFL4 01692000 UCBSQC EQU UCBOBS01+12 01693000 UCBDATP EQU UCBOBS01+12 01694000 UCBDMC EQU UCBDMCT 01695000 UCBMOUNT EQU UCBDMCT 01696000 UCBBNUL EQU UCBSTAB 01697000 UCBSHAR EQU UCBSTAB 01698000 UCBBSTR EQU UCBSTAB 01699000 UCBBPUB EQU UCBSTAB 01700000 UCBBPRV EQU UCBSTAB 01701000 UCBBALB EQU UCBPRSRS 01702000 UCBPGFL EQU UCBSTAB 01703000 UCBDVSHR EQU UCBBSVL 01704000 UCBVOLI EQU UCBOBS01+4 01705000 UCBVTOC EQU UCBOBS01 01706000 @NM00180 EQU LCBCANCL+3 01707000 LCBCANTH EQU LCBCANCL+1 01708000 @NM00179 EQU LCBCANFG 01709000 LCBCANCD EQU LCBCANFG 01710000 @NM00178 EQU LCBCANFG 01711000 LCBCANEB EQU LCBCANFG 01712000 LCBCANXT EQU LCBCANFG 01713000 LCBUNADD EQU LCBQNX+21 01714000 LCBUASZE EQU LCBQNX+20 01715000 LCBDSTEA EQU LCBQNX+16 01716000 @NM00177 EQU LCBQNX+8 01717000 LCBIOSBS EQU LCBQNX+5 01718000 @NM00176 EQU LCBQNX+4 01719000 LCBSTSAV EQU LCBQNX+1 01720000 @NM00175 EQU LCBQNXMN 01721000 LCBNX509 EQU LCBQNXMN 01722000 LCBNX162 EQU LCBQNXMN 01723000 LCBNX142 EQU LCBQNXMN 01724000 LCBNX064 EQU LCBQNXMN 01725000 @NM00174 EQU @NM00172+4 01726000 LCBNCPPT EQU @NM00172+1 01727000 @NM00173 EQU @NM00172 01728000 LCBWRSCH EQU LCBCOREQ+8 01729000 LCBCQLNK EQU LCBCOREQ+4 01730000 LCBCQELE EQU LCBCOREQ 01731000 LCBPAKCH EQU LCBRSPIN+16 01732000 @NM00171 EQU LCBRSPFG 01733000 LCBRSRH EQU LCBRSPFG 01734000 LCBEXPI EQU LCBRSPFG 01735000 @NM00170 EQU LCBRSPIN+12 01736000 LCBUSUE1 EQU LCBCSWU1 01737000 @NM00169 EQU LCBCSWU1 01738000 @NM00168 EQU LCBSCPRS+1 01739000 LCBDFCMD EQU LCBSCPRS 01740000 LCBUSER EQU LCBLUSNS+2 01741000 LCBSMIN EQU LCBLUSNS+1 01742000 LCBSMAJ EQU LCBLUSNS 01743000 LCBRHSV EQU LCBRSPIN+2 01744000 LCBSNS0 EQU LCBRSPIN+1 01745000 @NM00167 EQU LCBRSPIN 01746000 IOSPCIWA EQU IOSPCISC+44 01747000 IOSPCIRS EQU IOSPCISC+8 01748000 @NM00143 EQU IOSPCISC+4 01749000 @NM00142 EQU IOSPCISC 01750000 IOSWRNDR EQU IOSWTOWA+4 01751000 IOSWTOPT EQU IOSWTOWA+3 01752000 IOSWTOCP EQU IOSWTOWA+2 01753000 IOSWTOCH EQU IOSWTOWA 01754000 IOSATTWA EQU IOSATTSC+40 01755000 @NM00141 EQU IOSATTSC+24 01756000 IOSATTSN EQU IOSATTSC 01757000 EWAEND EQU EWADDIOS+71 01758000 EWASCSW EQU EWADDIOS+64 01759000 EWASNS EQU EWADDIOS 01760000 CVTRV628 EQU CVTS01+728 01761000 CVTRV627 EQU CVTS01+724 01762000 CVTRV626 EQU CVTS01+720 01763000 CVTRV625 EQU CVTS01+716 01764000 CVTRV624 EQU CVTS01+712 01765000 CVTRV623 EQU CVTS01+708 01766000 CVTRV622 EQU CVTS01+704 01767000 CVTRV621 EQU CVTS01+700 01768000 CVTRV620 EQU CVTS01+696 01769000 CVTRV619 EQU CVTS01+692 01770000 CVTRV618 EQU CVTS01+688 01771000 CVTRV617 EQU CVTS01+684 01772000 CVTRV616 EQU CVTS01+680 01773000 CVTRV615 EQU CVTS01+676 01774000 CVTRV614 EQU CVTS01+672 01775000 CVTRV613 EQU CVTS01+668 01776000 CVTTCASP EQU CVTS01+664 01777000 CVT0PT03 EQU CVTS01+660 01778000 CVT0PT0E EQU CVTS01+656 01779000 CVTIRM EQU CVTS01+652 01780000 CVTCGK EQU CVTS01+648 01781000 CVTRV607 EQU CVTS01+644 01782000 CVTRV606 EQU CVTS01+640 01783000 CVTRV605 EQU CVTS01+636 01784000 CVTRV604 EQU CVTS01+632 01785000 CVTEFF02 EQU CVTS01+628 01786000 CVTCBBR EQU CVTS01+624 01787000 CVTSSCR EQU CVTS01+620 01788000 CVTEVENT EQU CVTS01+616 01789000 CVTCRCA EQU CVTS01+612 01790000 CVTTPIO EQU CVTS01+608 01791000 CVTADV EQU CVTS01+604 01792000 CVTGSDAB EQU CVTGSDA 01793000 CVTQV3 EQU CVTS01+596 01794000 CVTQV2 EQU CVTS01+592 01795000 CVTQV1 EQU CVTS01+588 01796000 CVTRPT EQU CVTS01+584 01797000 CVTSSRB EQU CVTS01+580 01798000 CVTCSDRL EQU CVTS01+576 01799000 CVTEXP1 EQU CVTS01+572 01800000 CVTRMPMT EQU CVTS01+568 01801000 CVTRMPTT EQU CVTS01+564 01802000 CVTVPSA EQU CVTS01+560 01803000 CVTVSTOP EQU CVTS01+556 01804000 CVTGTFR8 EQU CVTS01+552 01805000 CVTQUIT EQU CVTS01+548 01806000 CVTVACR EQU CVTS01+544 01807000 CVTWTCB EQU CVTS01+540 01808000 CVTSTPRS EQU CVTS01+536 01809000 CVT0PT02 EQU CVTS01+532 01810000 CVTDARCM EQU CVTS01+528 01811000 CVTIRECM EQU CVTS01+524 01812000 CVTJRECM EQU CVTS01+520 01813000 CVTVEMS0 EQU CVTS01+516 01814000 CVTSPFRR EQU CVTS01+512 01815000 CVTRLSTG EQU CVTS01+508 01816000 CVT0TC0A EQU CVTS01+504 01817000 CVTGMBR EQU CVTS01+500 01818000 CVTLFRM EQU CVTS01+496 01819000 CVTRMBR EQU CVTS01+492 01820000 CVTVIOP EQU CVTS01+488 01821000 CVTRV307 EQU CVTS01+486 01822000 CVTRV306 EQU CVTS01+484 01823000 CVTRV305 EQU CVTS01+482 01824000 CVTRV304 EQU CVTS01+480 01825000 CVTRV303 EQU CVTS01+478 01826000 CVTRV302 EQU CVTS01+476 01827000 CVTTRCA EQU CVTS01+472 01828000 CVTRV297 EQU CVTRV289 01829000 CVTRV296 EQU CVTRV289 01830000 CVTRV295 EQU CVTRV289 01831000 CVTRV294 EQU CVTRV289 01832000 CVTRV293 EQU CVTRV289 01833000 CVTRV292 EQU CVTRV289 01834000 CVTRV291 EQU CVTRV289 01835000 CVTRV290 EQU CVTRV289 01836000 CVTRV288 EQU CVTRV280 01837000 CVTRV287 EQU CVTRV280 01838000 CVTRV286 EQU CVTRV280 01839000 CVTRV285 EQU CVTRV280 01840000 CVTRV284 EQU CVTRV280 01841000 CVTRV283 EQU CVTRV280 01842000 CVTRV282 EQU CVTRV280 01843000 CVTRV281 EQU CVTRV280 01844000 CVTRV279 EQU CVTRV271 01845000 CVTRV278 EQU CVTRV271 01846000 CVTRV277 EQU CVTRV271 01847000 CVTRV276 EQU CVTRV271 01848000 CVTRV275 EQU CVTRV271 01849000 CVTRV274 EQU CVTRV271 01850000 CVTRV273 EQU CVTRV271 01851000 CVTRV272 EQU CVTRV271 01852000 CVTRV270 EQU CVTRV262 01853000 CVTRV269 EQU CVTRV262 01854000 CVTRV268 EQU CVTRV262 01855000 CVTRV267 EQU CVTRV262 01856000 CVTRV266 EQU CVTRV262 01857000 CVTRV265 EQU CVTRV262 01858000 CVTRV264 EQU CVTRV262 01859000 CVTRV263 EQU CVTRV262 01860000 CVTVFP EQU CVTS01+464 01861000 CVTVSI EQU CVTS01+460 01862000 CVTVPSIB EQU CVTS01+456 01863000 CVTMFACT EQU CVTMFRTR 01864000 CVTMFCTL EQU CVTS01+448 01865000 CVTPVBP EQU CVTS01+444 01866000 CVTPWI EQU CVTS01+440 01867000 CVTRV254 EQU CVTS01+438 01868000 CVTRV253 EQU CVTS01+436 01869000 CVTRV252 EQU CVTS01+434 01870000 CVTRV251 EQU CVTS01+433 01871000 CVTRV250 EQU CVTS01+432 01872000 CVTRV249 EQU CVTS01+431 01873000 CVTRV248 EQU CVTS01+430 01874000 CVTRV247 EQU CVTS01+429 01875000 CVTRV246 EQU CVTS01+428 01876000 CVTRV245 EQU CVTRV237 01877000 CVTRV244 EQU CVTRV237 01878000 CVTRV243 EQU CVTRV237 01879000 CVTRV242 EQU CVTRV237 01880000 CVTRV241 EQU CVTRV237 01881000 CVTRV240 EQU CVTRV237 01882000 CVTRV239 EQU CVTRV237 01883000 CVTRV238 EQU CVTRV237 01884000 CVTRV236 EQU CVTRV228 01885000 CVTRV235 EQU CVTRV228 01886000 CVTRV234 EQU CVTRV228 01887000 CVTRV233 EQU CVTRV228 01888000 CVTRV232 EQU CVTRV228 01889000 CVTRV231 EQU CVTRV228 01890000 CVTRV230 EQU CVTRV228 01891000 CVTRV229 EQU CVTRV228 01892000 CVTRV227 EQU CVTRV219 01893000 CVTRV226 EQU CVTRV219 01894000 CVTRV225 EQU CVTRV219 01895000 CVTRV224 EQU CVTRV219 01896000 CVTRV223 EQU CVTRV219 01897000 CVTRV222 EQU CVTRV219 01898000 CVTRV221 EQU CVTRV219 01899000 CVTRV220 EQU CVTRV219 01900000 CVTRV218 EQU CVTRV210 01901000 CVTRV217 EQU CVTRV210 01902000 CVTRV216 EQU CVTRV210 01903000 CVTRV215 EQU CVTRV210 01904000 CVTRV214 EQU CVTRV210 01905000 CVTRV213 EQU CVTRV210 01906000 CVTRV212 EQU CVTRV210 01907000 CVTRV211 EQU CVTRV210 01908000 CVTLCCAT EQU CVTS01+420 01909000 CVTPCCAT EQU CVTS01+416 01910000 CVTIPCRP EQU CVTS01+412 01911000 CVTIPCRI EQU CVTS01+408 01912000 CVTIPCDS EQU CVTS01+404 01913000 CVTAIDVT EQU CVTS01+400 01914000 CVTSSAP EQU CVTS01+396 01915000 CVTEHCIR EQU CVTS01+392 01916000 CVTEHDEF EQU CVTS01+388 01917000 CVTDAIR EQU CVTS01+384 01918000 CVTPERFM EQU CVTS01+380 01919000 CVT044R2 EQU CVTS01+376 01920000 CVTFETCH EQU CVTS01+372 01921000 CVTRSTWD EQU CVTS01+368 01922000 CVTSPOST EQU CVTS01+364 01923000 CVTIOBP EQU CVTS01+360 01924000 CVTASMVT EQU CVTS01+356 01925000 CVTRECRQ EQU CVTS01+352 01926000 CVTWSAC EQU CVTS01+348 01927000 CVTRV149 EQU CVTS01+344 01928000 CVTWSAL EQU CVTS01+340 01929000 CVTSPSA EQU CVTS01+336 01930000 CVTGLMN EQU CVTS01+332 01931000 CVTVEAC0 EQU CVTS01+328 01932000 CVT062R1 EQU CVTS01+324 01933000 CVTRPOST EQU CVTS01+320 01934000 CVTDQIQE EQU CVTS01+316 01935000 CVTCSD EQU CVTS01+312 01936000 CVTLKRMA EQU CVTS01+308 01937000 CVTRSPIE EQU CVTS01+304 01938000 CVTRENQ EQU CVTS01+300 01939000 CVTLQCB EQU CVTS01+296 01940000 CVTFQCB EQU CVTS01+292 01941000 CVTQCS01 EQU CVTS01+288 01942000 CVTAPFT EQU CVTS01+284 01943000 CVTPARRL EQU CVTS01+280 01944000 CVTVWAIT EQU CVTS01+276 01945000 CVTGSPL EQU CVTS01+272 01946000 CVTLSMQ EQU CVTS01+268 01947000 CVTGSMQ EQU CVTS01+264 01948000 CVTEXPRO EQU CVTS01+260 01949000 CVTOPCTP EQU CVTS01+256 01950000 CVTSIC EQU CVTS01+252 01951000 CVTTPIOS EQU CVTS01+248 01952000 CVTRTMS EQU CVTS01+244 01953000 CVTSDBF EQU CVTS01+240 01954000 CVTSCBP EQU CVTS01+236 01955000 CVTSDMP EQU CVTS01+232 01956000 CVTSV60 EQU CVTS01+228 01957000 CVTRTMCT EQU CVTS01+224 01958000 CVTASCBL EQU CVTS01+220 01959000 CVTASCBH EQU CVTS01+216 01960000 CVTGDA EQU CVTS01+212 01961000 CVTASVT EQU CVTS01+208 01962000 CVTVVMDI EQU CVTS01+204 01963000 CVTAQTOP EQU CVTS01+200 01964000 CVTIOSCS EQU CVTS01+196 01965000 CVTSDRM EQU CVTS01+192 01966000 CVTOPTE EQU CVTS01+188 01967000 CVTSTXU EQU CVTS01+184 01968000 CVTQUIS EQU CVTS01+180 01969000 CVTPARS EQU CVTS01+176 01970000 CVTS1EE EQU CVTS01+172 01971000 CVTFRAS EQU CVTS01+168 01972000 CVTQSAS EQU CVTS01+164 01973000 CVTCRAS EQU CVTS01+160 01974000 CVTCRMN EQU CVTS01+156 01975000 CVTDELCP EQU CVTS01+152 01976000 CVTFRECL EQU CVTS01+148 01977000 CVTGETCL EQU CVTS01+144 01978000 CVTBLDCP EQU CVTS01+140 01979000 CVTAUTHL EQU CVTS01+136 01980000 CVTSCAN EQU CVTS01+132 01981000 CVTRV144 EQU CVTS01+130 01982000 CVTMAXMP EQU CVTS01+128 01983000 CVTSTCK EQU CVTS01+124 01984000 CVTRV139 EQU CVTS01+123 01985000 CVTDSSAC EQU CVTS01+122 01986000 CVTRV513 EQU CVTS01+121 01987000 CVTIOSPL EQU CVTS01+120 01988000 CVTPTGT EQU CVTS01+116 01989000 CVTCSPIE EQU CVTS01+112 01990000 CVTSMFEX EQU CVTS01+108 01991000 CVTOLT0A EQU CVTS01+104 01992000 CVTSRBRT EQU CVTS01+100 01993000 CVTPUTL EQU CVTS01+96 01994000 CVTASCRL EQU CVTS01+92 01995000 CVTASCRF EQU CVTS01+88 01996000 CVTRV326 EQU CVTS01+84 01997000 CVTRV325 EQU CVTS01+80 01998000 CVTRV324 EQU CVTS01+76 01999000 CVT0VL01 EQU CVTS01+72 02000000 CVTSHRVM EQU CVTS01+68 02001000 CVTRV332 EQU CVTS01+64 02002000 CVTTAS EQU CVTS01+60 02003000 CVTRSCN EQU CVTS01+56 02004000 CVTTRAC2 EQU CVTS01+54 02005000 CVTTRACE EQU CVTS01+52 02006000 CVTAPG EQU CVTS01+51 02007000 CVTSDTRC EQU CVTCTLFG 02008000 CVTGTRCE EQU CVTCTLFG 02009000 CVTNOMP EQU CVTCTLFG 02010000 CVTRSV79 EQU CVTCTLFG 02011000 CVTDSTAT EQU CVTCTLFG 02012000 CVTRSV78 EQU CVTCTLFG 02013000 CVTRV333 EQU CVTCTLFG 02014000 CVTRV323 EQU CVTCTLFG 02015000 CVTSPVLK EQU CVTS01+49 02016000 CVTRSV77 EQU CVTS01+48 02017000 CVTRV331 EQU CVTS01+44 02018000 CVTRV330 EQU CVTS01+40 02019000 CVTRV329 EQU CVTS01+36 02020000 CVTRV328 EQU CVTS01+32 02021000 CVTRV322 EQU CVTS01+28 02022000 CVTSLID EQU CVTSLIDA+1 02023000 CVTSYLK EQU CVTSLIDA 02024000 CVTRV321 EQU CVTS01+20 02025000 CVTRV320 EQU CVTS01+16 02026000 CVTLPDIR EQU CVTLPDIA+1 02027000 CVTRSV69 EQU CVTDIRST 02028000 CVTRSV68 EQU CVTDIRST 02029000 CVTRSV67 EQU CVTDIRST 02030000 CVTRSV66 EQU CVTDIRST 02031000 CVTRSV65 EQU CVTDIRST 02032000 CVTRSV64 EQU CVTDIRST 02033000 CVTRSV63 EQU CVTDIRST 02034000 CVTDICOM EQU CVTDIRST 02035000 CVTPVTP EQU CVTS01+8 02036000 CVTLPDSR EQU CVTS01+4 02037000 CVTGETL EQU CVTS01 02038000 @NM00020 EQU TRMLINK 02039000 TRMLSTAT EQU TRMLINK 02040000 TRMLINT EQU TRMLINK 02041000 TRMEPMOD EQU TRMLINK 02042000 TRMLULOG EQU TRMLU 02043000 TRMINERR EQU TRMLU 02044000 TRMLUREQ EQU TRMLU 02045000 TRMSESRQ EQU TRMLU 02046000 TRMTDIFF EQU TRMLU 02047000 TRMLUTM EQU TRMLU 02048000 TRMLUIT EQU TRMLU 02049000 TRMAUTO EQU TRMLU 02050000 TRMPCONT EQU TRMPU 02051000 @NM00019 EQU TRMPU 02052000 TRMNCONT EQU TRMNCP 02053000 TRMQUCKN EQU TRMNCP 02054000 TRMSLOWN EQU TRMNCP 02055000 TRMSYGEN EQU TRMNCP 02056000 TRMNCPCL EQU TRMNCP 02057000 TRMIPLDM EQU TRMNCP 02058000 TRMINOUT EQU TRMPRE 02059000 TRMRDOUT EQU TRMPRE 02060000 TRMNLOUT EQU TRMPRE 02061000 TRMWROUT EQU TRMPRE 02062000 TRMASNXI EQU TRMPRE 02063000 TRMSTMM EQU TRMPRE 02064000 TRMCMODE EQU TRMPRE 02065000 TRMSTPND EQU TRMPRE 02066000 @NM00018 EQU TRMNCP1 02067000 TRMINOP EQU TRMNCP1 02068000 TRMLYNCH EQU TRMPRE1 02069000 TRMSPOUT EQU TRMPRE1 02070000 TRMERLCK EQU TRMPRE1 02071000 TRMQNPL EQU TRMPRE1 02072000 TRMSPACT EQU TRMPRE1 02073000 TRMOCNI EQU TRMPRE1 02074000 TRMSESSN EQU TRMPRE1 02075000 TRMCONT EQU TRMPRE1 02076000 OPCAQLST EQU OPCAQWD3+1 02077000 OPCAQRQ3 EQU OPCAQWD3 02078000 OPCAQSEC EQU OPCAQWD2+1 02079000 OPCAQRQ2 EQU OPCAQWD2 02080000 OPCAQFST EQU OPCAQWD1+1 02081000 OPCAQREQ EQU OPCAQWD1 02082000 @NM00227 EQU @NM00226 02083000 @NM00225 EQU @NM00223 02084000 @NM00224 EQU @NM00223 02085000 @NM00222 EQU WTOENDFG 02086000 @NM00220 EQU SOHMAP 02087000 @NM00219 EQU WTOMAP 02088000 MDRCDE2 EQU MDRRECID 02089000 @NM00218 EQU MDRRECID 02090000 UCBERADR EQU UCBUCS+12 02091000 UCBFCBID EQU UCBUCS+8 02092000 UCBERCNT EQU UCBUCS+7 02093000 UCBRSV51 EQU UCBUCS+6 02094000 UCBRSV50 EQU UCBFCBOP 02095000 UCBRSV49 EQU UCBFCBOP 02096000 UCBRSV48 EQU UCBFCBOP 02097000 UCBRSV47 EQU UCBFCBOP 02098000 UCBRSV46 EQU UCBFCBOP 02099000 UCBRSV45 EQU UCBFCBOP 02100000 UCBRSV44 EQU UCBFCBOP 02101000 UCBFCBO1 EQU UCBFCBOP 02102000 UCBUCSPE EQU UCBUCSOP 02103000 UCBRSV43 EQU UCBUCSOP 02104000 UCBRSV42 EQU UCBUCSOP 02105000 UCBRSV41 EQU UCBUCSOP 02106000 UCBRSV40 EQU UCBUCSOP 02107000 UCBRSV39 EQU UCBUCSOP 02108000 UCBUCSO2 EQU UCBUCSOP 02109000 UCBUCSO1 EQU UCBUCSOP 02110000 UCBUCSID EQU UCBUCS 02111000 UCBMDRBA EQU UCBMDRBF+1 02112000 UCBRV075 EQU UCBMDRBF 02113000 UCBRV074 EQU UCB3800X+32 02114000 UCBIMAGE EQU UCB3800X+28 02115000 UCBFCBNM EQU UCB3800X+24 02116000 UCBCHAR4 EQU UCB3800X+20 02117000 UCBCHAR3 EQU UCB3800X+16 02118000 UCBCHAR2 EQU UCB3800X+12 02119000 UCBCHAR1 EQU UCB3800X+8 02120000 UCBCGMID EQU UCB3800X+4 02121000 UCBBRSTA EQU UCBACTIV 02122000 UCBRV063 EQU UCBACTIV 02123000 UCBRV062 EQU UCBACTIV 02124000 UCBRV061 EQU UCBACTIV 02125000 UCBRV060 EQU UCBACTIV 02126000 UCBRV059 EQU UCBACTIV 02127000 UCBRV058 EQU UCBACTIV 02128000 UCBRV057 EQU UCBACTIV 02129000 UCBRV050 EQU UCB3800X+2 02130000 UCBCGMNO EQU UCB3800X+1 02131000 UCBRV083 EQU UCBOPTNS 02132000 UCBBRSTR EQU UCBOPTNS 02133000 UCBRV056 EQU UCBOPTNS 02134000 UCBRV055 EQU UCBOPTNS 02135000 UCBRV054 EQU UCBOPTNS 02136000 UCBRV053 EQU UCBOPTNS 02137000 UCBRV052 EQU UCBOPTNS 02138000 UCBRV051 EQU UCBOPTNS 02139000 UCBRV073 EQU UCB3540X+7 02140000 UCBRV072 EQU UCBDKBYT 02141000 UCBRV071 EQU UCBDKBYT 02142000 UCBRV070 EQU UCBDKBYT 02143000 UCBRV069 EQU UCBDKBYT 02144000 UCBRV068 EQU UCBDKBYT 02145000 UCBRV067 EQU UCBDKBYT 02146000 UCBVLVER EQU UCBDKBYT 02147000 UCBDKAMX EQU UCBDKBYT 02148000 UCBVLSER EQU UCB3540X 02149000 UCBRDATA EQU UCBOCR+4 02150000 UCBFRID EQU UCBOCR 02151000 UCBCLN EQU UCBMT+14 02152000 UCBERG EQU UCBMT+12 02153000 UCBMS EQU UCBMT+11 02154000 UCBNB EQU UCBMT+10 02155000 UCBPW EQU UCBMT+9 02156000 UCBPR EQU UCBMT+8 02157000 UCBSIO EQU UCBMT+6 02158000 UCBTW EQU UCBMT+5 02159000 UCBTR EQU UCBMT+4 02160000 UCBTWT EQU UCBMT+3 02161000 UCBTRT EQU UCBMT+2 02162000 UCBCTD EQU UCBMT 02163000 UCBWTOID EQU UCBCMEXT+17 02164000 UCBRV043 EQU UCBCMEXT+16 02165000 UCBASID EQU UCBCMEXT+14 02166000 UCBMFCNT EQU UCBCMEXT+12 02167000 UCBPMSK EQU UCBCMEXT+10 02168000 UCBCCWOF EQU UCBCMEXT+8 02169000 UCBRV041 EQU UCBCMEXT+6 02170000 UCBRV036 EQU UCBFLP1 02171000 UCBRV035 EQU UCBFLP1 02172000 UCBERLOG EQU UCBFLP1 02173000 UCBRV033 EQU UCBFLP1 02174000 UCBRV032 EQU UCBFLP1 02175000 UCBRV031 EQU UCBFLP1 02176000 UCBSHRUP EQU UCBFLP1 02177000 UCBNSRCH EQU UCBFLP1 02178000 UCBSNSCT EQU UCBCMEXT+4 02179000 UCBHPDV EQU @NM00214 02180000 UCBHALI EQU @NM00214 02181000 UCBRSV09 EQU @NM00214 02182000 UCBRSV08 EQU @NM00214 02183000 UCBRSV07 EQU @NM00214 02184000 UCBRSV06 EQU @NM00214 02185000 UCBRSV05 EQU @NM00214 02186000 UCBRSV04 EQU @NM00214 02187000 UCBDTI EQU UCBCMEXT+2 02188000 UCBSTI EQU UCBCMEXT+1 02189000 UCBETI EQU UCBCMEXT 02190000 UCBEXTP EQU UCBEXTPT+1 02191000 UCBDDRSW EQU UCBFLC 02192000 UCBTICBT EQU UCBFLC 02193000 UCBIVRR EQU UCBFLC 02194000 UCBIVRS EQU UCBFLC 02195000 UCBITF EQU UCBFLC 02196000 UCBUDE EQU UCBFLC 02197000 UCBWAA EQU UCBFLC 02198000 UCBATTP EQU UCBFLC 02199000 UCBUNTYP EQU UCBTBYT4 02200000 UCBRSV11 EQU UCBDVCLS 02201000 UCBRSV10 EQU UCBDVCLS 02202000 UCB3CHAR EQU UCBDVCLS 02203000 UCB3UREC EQU UCBDVCLS 02204000 UCB3DISP EQU UCBDVCLS 02205000 UCB3DACC EQU UCBDVCLS 02206000 UCB3COMM EQU UCBDVCLS 02207000 UCB3TAPE EQU UCBDVCLS 02208000 UCBDVPWR EQU UCB2OPT7 02209000 UCBVLPWR EQU UCB2OPT6 02210000 UCB2OPT5 EQU UCBTBYT2 02211000 UCBRVDEV EQU UCBRWTAU 02212000 UCBRPS EQU UCBDUDN2 02213000 UCBRR EQU UCBDUDN1 02214000 UCB2OPT1 EQU UCBTBYT2 02215000 UCB2OPT0 EQU UCBTBYT2 02216000 UCB1FEA7 EQU UCBTBYT1 02217000 UCBD6250 EQU UCB1FEA6 02218000 UCBD1600 EQU UCB1FEA5 02219000 UCB1FEA4 EQU UCBTBYT1 02220000 UCB1FEA3 EQU UCBTBYT1 02221000 UCB1FEA2 EQU UCBTBYT1 02222000 UCB1FEA1 EQU UCBTBYT1 02223000 UCB1FEA0 EQU UCBTBYT1 02224000 UCBRV029 EQU UCBWGT 02225000 UCBVHRSN EQU UCBWGT 02226000 UCBVORSN EQU UCBWGT 02227000 UCBMTPXP EQU UCBWGT 02228000 UCBREW EQU UCBWGT 02229000 UCBPUB EQU UCBWGT 02230000 UCBOUT EQU UCBWGT 02231000 UCBIN EQU UCBWGT 02232000 UCBCPU EQU UCBOB+11 02233000 UCBLCI EQU UCBOB+10 02234000 UCBCNT EQU UCBOB+9 02235000 UCBRV017 EQU UCBCHM1 02236000 UCBRV016 EQU UCBCHM1 02237000 UCBRV015 EQU UCBCHM1 02238000 UCBRV014 EQU UCBCHM1 02239000 UCBSPB EQU UCBPTH1 02240000 UCBPPB EQU UCBPTH1 02241000 UCBSPA EQU UCBPTH0 02242000 UCBPPA EQU UCBPTH0 02243000 UCBSIGP EQU UCBFLB 02244000 UCBVALPH EQU UCBFLB 02245000 UCBCRHSN EQU UCBFLB 02246000 UCBCRHRV EQU UCBFLB 02247000 UCBRESVH EQU UCBFLB 02248000 UCBSPST EQU UCBFLB 02249000 UCBASNS EQU UCBFLB 02250000 UCBIORST EQU UCBFLB 02251000 UCBQISCE EQU UCBFL1 02252000 UCBACTV EQU UCBFL1 02253000 UCBSAP EQU UCBFL1 02254000 UCBNOTRC EQU UCBCUB 02255000 UCBPSNS EQU UCBFL1 02256000 UCBUSING EQU UCBPST 02257000 UCBNOTRD EQU UCBNRY 02258000 UCBBUSYD EQU UCBBSY 02259000 UCBUA EQU UCBCHAN+1 02260000 UCBDADI EQU UCBSTAT 02261000 UCBSYSR EQU UCBSTAT 02262000 UCBPRES EQU UCBSTAT 02263000 UCBALOC EQU UCBSTAT 02264000 UCBUNLD EQU UCBSTAT 02265000 UCBRESV EQU UCBSTAT 02266000 UCBCHGS EQU UCBSTAT 02267000 UCBONLI EQU UCBSTAT 02268000 UCBID EQU UCBOB+2 02269000 UCBALTPH EQU UCBFL5 02270000 UCBALTCU EQU UCBFL5 02271000 UCBNALOC EQU UCBFL5 02272000 UCBENVRD EQU UCBFL5 02273000 UCBVSDR EQU UCBFL5 02274000 UCBSASK EQU UCBFL5 02275000 UCBAMV EQU UCBAF 02276000 UCBDCC EQU UCBFL5 02277000 UCBMONT EQU UCBJBNR 02278000 UCBRV011 EQU UCBJBNR 02279000 UCBRSV02 EQU UCBJBNR 02280000 UCBOLDSM EQU UCBJBNR 02281000 UCBRV003 EQU UCBJBNR 02282000 UCBDUC EQU UCBJBNR 02283000 UCBJES3 EQU UCBJBNR 02284000 UCBVRDEV EQU UCBJBNR 02285000 UCBCMSEG EQU UCBOB 02286000 UCBPFXND EQU UCB+512 02287000 UCBIOQ EQU UCB+508 02288000 UCBLOCK EQU UCB+504 02289000 UCBPXST EQU UCB+504 02290000 @NM00211 EQU UCB 02291000 TTHTAG2 EQU TTHTAG+1 02292000 @NM00210 EQU TTHTAG1 02293000 TTHTAGS EQU TTHTAG1 02294000 TTHDAF EQU IEDTH+2 02295000 TTHBYTE1 EQU IEDTH+1 02296000 TTHEFI EQU TTHBYTE0 02297000 @NM00209 EQU TTHBYTE0 02298000 TTHEBIU EQU TTHBYTE0 02299000 TTHBBIU EQU TTHBYTE0 02300000 @NM00208 EQU TRHBYTE2 02301000 @NM00207 EQU TRHBYTE2 02302000 @NM00206 EQU TRHBYTE2 02303000 TRHCSI EQU TRHBYTE2 02304000 @NM00205 EQU TRHBYTE2 02305000 TRHCDI EQU TRHBYTE2 02306000 TRHEB EQU TRHBYTE2 02307000 TRHBB EQU TRHBYTE2 02308000 TRHPI EQU TRHBYTE1 02309000 @NM00204 EQU TRHBYTE1 02310000 @NM00203 EQU TRHBYTE1 02311000 @NM00202 EQU TRHBYTE1 02312000 TRHER EQU TRHBYTE1 02313000 TRHDR2 EQU TRHBYTE1 02314000 @NM00201 EQU TRHBYTE1 02315000 TRHDR1 EQU TRHBYTE1 02316000 TRHEC EQU TRHBYTE0 02317000 TRHBC EQU TRHBYTE0 02318000 TRHSDI EQU TRHBYTE0 02319000 TRHFI EQU TRHBYTE0 02320000 @NM00200 EQU TRHBYTE0 02321000 TRHRUCAT EQU TRHBYTE0 02322000 TRHTYPE EQU TRHBYTE0 02323000 TNTLEN EQU IEDQTNTD+44 02324000 TNTMIDEN EQU IEDQTNTD+41 02325000 TNTSRCHX EQU IEDQTNTD+38 02326000 TCXEND EQU IEDQTCXD+224 02327000 TCXNCPIO EQU IEDQTCXD+220 02328000 TCXACTE8 EQU TCXQE8 02329000 TCXABEPL EQU IEDQTCXD+212 02330000 TCXSRBS EQU IEDQTCXD+208 02331000 TCXSIOSB EQU IEDQTCXD+204 02332000 TCXESAVE EQU IEDQTCXD+132 02333000 TCXERPPM EQU IEDQTCXD+128 02334000 TCXERPSV EQU IEDQTCXD+116 02335000 TCXSATTN EQU IEDQTCXD+112 02336000 @NM00199 EQU TCXDSAVE+4 02337000 @NM00198 EQU TCXDSAVE 02338000 TCXPLCB EQU IEDQTCXD+100 02339000 TCXBITS EQU IEDQTCXD+98 02340000 TCXSCBSZ EQU IEDQTCXD+97 02341000 TCXBIT1 EQU IEDQTCXD+96 02342000 TCXCOMPT EQU IEDQTCXD+92 02343000 TCXAVAIL EQU IEDQTCXD+88 02344000 TCXBUFL EQU IEDQTCXD+84 02345000 TCXTOTE EQU TCXBUFA 02346000 TCXCKPM EQU IEDQTCXD+79 02347000 TCXNCKPR EQU IEDQTCXD+78 02348000 TCXSZAIB EQU IEDQTCXD+76 02349000 TCXAIBC EQU IEDQTCXD+72 02350000 TCXPEBC EQU IEDQTCXD+68 02351000 TCXPEWAC EQU IEDQTCXD+64 02352000 TCXQRQ EQU IEDQTCXD+60 02353000 TCXOCQ EQU IEDQTCXD+56 02354000 TCXPNTQ EQU IEDQTCXD+52 02355000 TCXPUTQ EQU IEDQTCXD+48 02356000 TCXGETQ EQU IEDQTCXD+44 02357000 TCXTSI EQU IEDQTCXD+40 02358000 TCXRPT EQU IEDQTCXD+36 02359000 TCXCC3TS EQU IEDQTCXD+35 02360000 TCXAPDMP EQU TCXFLAG1 02361000 TCXAPPL EQU TCXFLAG1 02362000 TCXRTM EQU TCXFLAG1 02363000 TCXMCPCD EQU TCXFLAG1 02364000 TCXAUTH EQU TCXFLAG1 02365000 TCXASID EQU IEDQTCXD+32 02366000 TCXASCB EQU IEDQTCXD+28 02367000 TCXPASWD EQU IEDQTCXD+16 02368000 TCXDISP EQU IEDQTCXD+12 02369000 TCXTCB EQU IEDQTCXD+8 02370000 TCXATTLN EQU TCXATTEN 02371000 PRF2SEQP EQU PRF2WD2 02372000 @NM00197 EQU IEDPF2+1 02373000 @NM00196 EQU PRF2FLG2 02374000 PRF2TERM EQU PRF2FLG2 02375000 PRF2SMI EQU PRF2FLG2 02376000 PRF2FORM EQU PRF2FLG2 02377000 PRF2TNTI EQU PRF2FLG2 02378000 PRF1RULN EQU PRF1SEQP+2 02379000 PRF1TAG2 EQU PRF1SQID+1 02380000 @NM00195 EQU PRF1TAG1 02381000 PRF1TAGS EQU PRF1TAG1 02382000 @NM00194 EQU PRF1FLG1 02383000 PRF1LOGD EQU PRF1FLG1 02384000 PRF1USS EQU PRF1FLG1 02385000 PRF1FORM EQU PRF1FLG1 02386000 PRF1EXPI EQU PRF1FLG1 02387000 PRF1FIDI EQU PRF1FLG1 02388000 PRF1RH EQU IEDPF1 02389000 PRFDEST EQU IEDQPRF+40 02390000 PRFISEQ EQU IEDQPRF+38 02391000 PRFSTXT EQU PRFHQBCK 02392000 PRFNHDR EQU PRFCHDR 02393000 PRFCRCD EQU IEDQPRF+29 02394000 PRFSVSEQ EQU PRFNTXT+1 02395000 PRFSVPRI EQU PRFEOBOF 02396000 PRFISIZE EQU PRFSCAN+1 02397000 @NM00193 EQU PRFSCAN 02398000 PRFEOB EQU PRFXTRA+1 02399000 PRFSTSO EQU PRFXTRA 02400000 PRFNHDRN EQU PRFSTAT1 02401000 PRFNLSTN EQU PRFSTAT1 02402000 PRFLOCK EQU PRFEOFN 02403000 PRFDUPLN EQU PRFSTAT1 02404000 PRFTSMSG EQU PRFSTAT1 02405000 PRFITCPN EQU PRFSTAT1 02406000 PRFERMGN EQU PRFSTAT1 02407000 PRFCNCLN EQU PRFSTAT1 02408000 PRFSVFLG EQU @NM00192+3 02409000 PRFSIZE EQU PRFSVFFO+2 02410000 PRFSRCE EQU PRFSVFFO 02411000 PRFLCB EQU IEDQPRF+13 02412000 PRFTI0 EQU PRFTIC+1 02413000 @NM00191 EQU PRFTICC 02414000 @NM00190 EQU PRFTICC 02415000 @NM00189 EQU PRFTICC 02416000 PRFTICON EQU PRFTICC 02417000 @NM00188 EQU PRFTICC 02418000 @NM00187 EQU PRFTICC 02419000 PRFBFMM EQU PRFTICC 02420000 PRFEOMSG EQU PRFTICC 02421000 PRFCOUNT EQU PRFLINK+1 02422000 @NM00186 EQU PRFLINK 02423000 PRFFLAGS EQU PRFPRI 02424000 PRFIOADR EQU PRFQCBA 02425000 PRFOPCDE EQU PRFKEY 02426000 LCBERADR EQU LCBXRADR+1 02427000 LCBPCIRC EQU LCBXRADR 02428000 LCBDCT3 EQU LCBXDCT+2 02429000 LCBDCT2 EQU LCBXDCT+1 02430000 LCBDCT1 EQU LCBXDCT 02431000 @NM00185 EQU LCBXFLAG 02432000 LCBERPND EQU LCBXFLAG 02433000 LCBSRCPF EQU LCBXFLAG 02434000 LCBGPCTV EQU LCBXFLAG 02435000 @NM00184 EQU LCBXFLAG 02436000 @NM00183 EQU LCBXFLAG 02437000 @NM00182 EQU LCBXFLAG 02438000 @NM00181 EQU LCBXFLAG 02439000 LCBCCW10 EQU LCBCPA+72 02440000 LCBCCW9 EQU LCBCPA+64 02441000 LCBCCW8 EQU LCBCPA+56 02442000 LCBCCW7 EQU LCBCPA+48 02443000 LCBCCW6 EQU LCBCPA+40 02444000 LCBCP EQU LCBQEBPL+4 02445000 LCBIOSB EQU LCBQEBPL+1 02446000 LCBSIO EQU LCBQEBPL 02447000 LCBCCW4 EQU LCBCPA+24 02448000 LCBCCW3 EQU LCBCPA+16 02449000 LCBCCW2 EQU LCBCPA+8 02450000 LCBCCW1 EQU LCBCPA 02451000 @NM00166 EQU LCBERCCW+16 02452000 LCBATL05 EQU LCBERCCW+8 02453000 @NM00165 EQU LCBERCCW 02454000 LCBCSWSV EQU LCBSAVSN+1 02455000 LCBSNSV EQU LCBSAVSN 02456000 LCBBFSNS EQU LCBRSPSV 02457000 LCBWAITC EQU LCBTPCD+5 02458000 LCBINPAK EQU LCBSTAT6 02459000 LCBMHBID EQU LCBSTAT6 02460000 LCBRTRRO EQU LCBSTAT6 02461000 LCBHDRPD EQU LCBSTAT6 02462000 LCBCHN EQU LCBSTAT6 02463000 LCBBFRSV EQU LCBTPCD+1 02464000 @NM00164 EQU LCBSTAT5 02465000 LCBLUS EQU LCBSTAT5 02466000 LCBLUNIT EQU LCBSTAT5 02467000 LCBPERM EQU LCBSTAT5 02468000 LCBNXCMD EQU LCBBFRW 02469000 LCBERMSK EQU LCBOBRCH 02470000 LCBSCBA EQU IEDQLCB+93 02471000 LCBOLT EQU LCBMSGFM 02472000 LCBEOT EQU LCBMSGFM 02473000 LCBENQ EQU LCBMSGFM 02474000 LCBTTD EQU LCBMSGFM 02475000 LCBRSTRT EQU LCBMSGFM 02476000 LCBVSTRT EQU LCBMSGFM 02477000 LCBACKI EQU LCBMSGFM 02478000 LCBNAK EQU LCBMSGFM 02479000 LCBTTCIN EQU IEDQLCB+90 02480000 @NM00163 EQU LCBRBCT2 02481000 LCBDCNT EQU LCBRBCT2 02482000 LCBRBCT1 EQU LCBERBCT 02483000 LCBERBCH EQU IEDQLCB+85 02484000 LCBCOMPL EQU LCBDLNKN 02485000 LCBPRCPG EQU LCBERBST 02486000 LCBERROR EQU LCBERBST 02487000 @NM00162 EQU LCBERBST 02488000 LCBINQ EQU LCBERBST 02489000 LCBRDERR EQU LCBERBST 02490000 LCBEOMSG EQU LCBERBST 02491000 LCBMSG EQU LCBERBST 02492000 LCBERBLK EQU IEDQLCB+81 02493000 LCBERBPY EQU IEDQLCB+80 02494000 LCBERBQB EQU LCBERB+1 02495000 LCBERBKY EQU LCBERB 02496000 @NM00161 EQU LCBTSTSW 02497000 @NM00160 EQU LCBTSTSW 02498000 @NM00159 EQU LCBTSTSW 02499000 @NM00158 EQU LCBTSTSW 02500000 @NM00157 EQU LCBTSTSW 02501000 @NM00156 EQU LCBTSTSW 02502000 @NM00155 EQU LCBTSTSW 02503000 LCBCONCT EQU LCBTSTSW 02504000 LCBRESP EQU LCBSTAT2 02505000 LCBBFRAV EQU LCBDIAL 02506000 LCBATTN EQU LCBSYNC 02507000 LCBNEGRP EQU LCBSTAT2 02508000 LCBSNDPR EQU LCBSTAT2 02509000 LCBCONNN EQU LCBBEOTN 02510000 LCBMSGNN EQU LCBSTAT2 02511000 LCBTRACE EQU LCBSTAT2 02512000 LCBSENDN EQU LCBSTAT1 02513000 LCBRECVN EQU LCBSTAT1 02514000 LCBFREEN EQU LCBSTAT1 02515000 LCBCONT EQU LCBSTAT1 02516000 LCBINITN EQU LCBSTAT1 02517000 LCBOCNI EQU LCBSTAT1 02518000 LCBOCWTN EQU LCBSTAT1 02519000 LCBRCLLN EQU LCBSTAT1 02520000 LCBRECOF EQU IEDQLCB+68 02521000 LCBRDBFR EQU LCBRCBFR 02522000 LCBUCBX EQU IEDQLCB+64 02523000 LCBTTBIN EQU LCBERRCT 02524000 @NM00154 EQU LCBINCAM 02525000 @NM00153 EQU LCBRESTR+1 02526000 LCBCMDSV EQU LCBRESTR 02527000 LCBPCILK EQU LCBDCBPT 02528000 LCBSTART EQU LCBIOBSN+16 02529000 LCBAP4OL EQU LCBSIOCC 02530000 LCBAP3OL EQU LCBSIOCC 02531000 LCBAP2OL EQU LCBSIOCC 02532000 LCBAP1OL EQU LCBSIOCC 02533000 LCBSIOC2 EQU LCBSIOCC 02534000 LCBSIOC1 EQU LCBSIOCC 02535000 @NM00152 EQU LCBSIOCC 02536000 LCBCSWRC EQU LCBCSW+5 02537000 LCBCSCHC EQU LCBCSWCS 02538000 LCBCSICC EQU LCBCSWCS 02539000 LCBCSCCC EQU LCBCSWCS 02540000 LCBCSCDC EQU LCBCSWCS 02541000 LCBCSPTC EQU LCBCSWCS 02542000 LCBCSPGC EQU LCBCSWCS 02543000 LCBCSIL EQU LCBCSWCS 02544000 LCBCSPCI EQU LCBCSWCS 02545000 LCBUSUE EQU LCBCSWUS 02546000 LCBUSUC EQU LCBCSWUS 02547000 LCBUSDE EQU LCBCSWUS 02548000 LCBUSCE EQU LCBCSWUS 02549000 LCBUSBSY EQU LCBCSWUS 02550000 LCBUSCUE EQU LCBCSWUS 02551000 LCBUSSM EQU LCBCSWUS 02552000 LCBUSAT EQU LCBCSWUS 02553000 LCBCSWCA EQU LCBCSW 02554000 LCBOBRRD EQU LCBFLAG3 02555000 LCBIOMSG EQU LCBFLAG3 02556000 LCBSOHC EQU LCBFLAG3 02557000 LCBRLAD EQU LCBFLAG3 02558000 LCBSOHR EQU LCBFLAG3 02559000 @NM00151 EQU LCBFLAG3 02560000 LCBECBPT EQU LCBIOBSN+4 02561000 LCBECBCC EQU LCBIOBSN+3 02562000 LCBSENS1 EQU LCBSNS+1 02563000 LCBABORT EQU LCBTMOUT 02564000 LCBNOTIN EQU LCBLOSDT 02565000 LCBOVRUN EQU LCBSENS0 02566000 LCBDATCK EQU LCBSENS0 02567000 LCBEQUCK EQU LCBSENS0 02568000 LCBBUSCK EQU LCBSENS0 02569000 LCBINTRQ EQU LCBSENS0 02570000 LCBCMDRJ EQU LCBSENS0 02571000 LCBFLAG2 EQU LCBIOBSN 02572000 @NM00150 EQU LCBFLAG1 02573000 LCBUNREL EQU LCBFLAG1 02574000 LCBEXCPN EQU LCBFLAG1 02575000 @NM00149 EQU LCBFLAG1 02576000 LCBERPIN EQU LCBFLAG1 02577000 @NM00148 EQU LCBFLAG1 02578000 LCBFSBFR EQU LCBMHA 02579000 LCBISZE EQU IEDQLCB+28 02580000 LCBLNENT EQU LCBSCBDA+1 02581000 @NM00147 EQU LCBSCBDA 02582000 LCBCPGMH EQU LCBSTAT4 02583000 LCBREAL EQU LCBPHASE 02584000 @NM00146 EQU LCBSTAT4 02585000 LCBACTRQ EQU LCBSTAT4 02586000 LCBIPLRQ EQU LCBSTAT4 02587000 LCBDACRQ EQU LCBSTAT4 02588000 LCBDMPRQ EQU LCBSTAT4 02589000 @NM00145 EQU LCBLKMDE 02590000 LCBLOCKI EQU LCBLKMDE 02591000 LCBLOCKR EQU LCBLKMDE 02592000 LCBHMFLG EQU LCBLKMDE 02593000 LCBBDFLG EQU LCBLKMDE 02594000 @NM00144 EQU LCBINSRC 02595000 LCBABRTN EQU LCBCHAIN 02596000 LCBCTLMD EQU LCBTETEN 02597000 LCBBFRSZ EQU LCBCHAIN 02598000 LCBUREQN EQU LCBCHAIN 02599000 LCBNORTY EQU LCBCHAIN 02600000 LCBERMSG EQU LCBCHAIN 02601000 LCBEXCP EQU LCBCHAIN 02602000 LCBINVRQ EQU LCBSCRNN 02603000 LCB2741N EQU LCBTSOB 02604000 LCBINHBN EQU LCBTSOB 02605000 LCBCIRCD EQU LCBTSOB 02606000 LCBPREP EQU LCBTSOB 02607000 LCBSOPL EQU LCBTSOB 02608000 LCBSATRD EQU LCBTSOB 02609000 LCBTSBUF EQU LCBTSOB 02610000 LCBWRBRK EQU LCBTSOB 02611000 LCBTDL EQU IEDQLCB+18 02612000 LCBEOLTD EQU IEDQLCB+16 02613000 LCBRSLNK EQU IEDQLCB+13 02614000 LCBRSPRI EQU IEDQLCB+12 02615000 LCBSTCBA EQU IEDQLCB+9 02616000 LCBRSKEY EQU IEDQLCB+8 02617000 LCBLINK EQU LCBRCB+5 02618000 LCBPRI EQU LCBRCB+4 02619000 LCBQCBA EQU LCBRCB+1 02620000 LCBKEY EQU LCBRCB 02621000 IOSEND EQU IOSB+108 02622000 IOSSKR EQU IOSEEKA+7 02623000 IOSSKH2 EQU IOSSKHH+1 02624000 IOSSKH1 EQU IOSSKHH 02625000 IOSSKCC EQU IOSCCHH 02626000 IOSSKBB EQU IOSEEKA+1 02627000 IOSSKM EQU IOSEEKA 02628000 IOSEEK EQU IOSB+92 02629000 IOSMDM EQU IOSB+91 02630000 IOSMDB EQU IOSB+90 02631000 IOSCKEY7 EQU IOSCKEY 02632000 IOSCKEY6 EQU IOSCKEY 02633000 IOSCKEY5 EQU IOSCKEY 02634000 IOSCKEY4 EQU IOSCKEY 02635000 @NM00140 EQU IOSCKEY 02636000 IOSFMSK EQU IOSB+88 02637000 IOSCUDEV EQU IOSPATH+1 02638000 @NM00139 EQU IOSCHN 02639000 IOSPATH3 EQU IOSCHN 02640000 IOSPATH2 EQU IOSCHN 02641000 IOSEXP EQU IOSCHN 02642000 IOSGDP EQU IOSCHN 02643000 IOSAFF EQU IOSB+85 02644000 IOSRSS1B EQU IOSB+84 02645000 IOSDSID EQU IOSB+80 02646000 IOSVST EQU IOSB+76 02647000 IOSRST EQU IOSB+72 02648000 IOSDIE EQU IOSB+68 02649000 IOSABN EQU IOSB+64 02650000 IOSNRM EQU IOSB+60 02651000 IOSPCI EQU IOSB+56 02652000 IOSPCHN EQU IOSB+48 02653000 IOSSNS EQU IOSB+42 02654000 IOSAPMSK EQU IOSB+40 02655000 IOSRES4A EQU IOSB+36 02656000 IOSSRB EQU IOSB+28 02657000 IOSCSWRC EQU IOSCSW+5 02658000 IOSTSB EQU IOSTATUS+1 02659000 IOSTSA EQU IOSTATUS 02660000 IOSCSWCA EQU IOSCSW 02661000 IOSCC EQU @NM00138 02662000 IOSOPT2X EQU IOSOPT2 02663000 IOSHTP EQU IOSOPT2 02664000 IOSRELSE EQU IOSOPT 02665000 IOSAPR EQU IOSOPT 02666000 IOSTSLL EQU IOSOPT 02667000 IOSNERP EQU IOSOPT 02668000 IOSPSLL EQU IOSOPT 02669000 IOSQISCE EQU IOSOPT 02670000 IOSDEP EQU IOSOPT 02671000 IOSBYP EQU IOSOPT 02672000 IOSCOD EQU IOSB+13 02673000 IOSPKY7 EQU IOSPKEY 02674000 IOSPGDPX EQU IOSPKEY 02675000 IOSIDR EQU IOSPKEY 02676000 IOSLCL EQU IOSPKEY 02677000 @NM00137 EQU IOSPKEY 02678000 IOSPGAD EQU IOSB+8 02679000 IOSASID EQU IOSB+6 02680000 IOSPRLVL EQU IOSB+5 02681000 IOSDVRID EQU IOSB+4 02682000 IOSPROC EQU IOSB+3 02683000 IOSFLC7 EQU IOSFLC 02684000 IOSFLC6 EQU IOSFLC 02685000 IOSRWAIT EQU IOSFLC 02686000 IOSTP EQU IOSFLC 02687000 IOSCC3WE EQU IOSFLC 02688000 IOSVERIF EQU IOSDVALT 02689000 IOSDVMNT EQU IOSFLC 02690000 IOSLOG EQU IOSFLB 02691000 IOSBDCST EQU IOSFLB 02692000 IOSMSG EQU IOSFLB 02693000 IOSFLB4 EQU IOSFLB 02694000 IOSFLB3 EQU IOSFLB 02695000 IOSFLB2 EQU IOSFLB 02696000 IOSSDR EQU IOSFLB 02697000 IOSDIESE EQU IOSFLB 02698000 IOSIOSB EQU IOSFLA 02699000 IOSDOM EQU IOSFLA 02700000 IOSEX EQU IOSFLA 02701000 IOSSMDB EQU IOSFLA 02702000 IOSSMDA EQU IOSFLA 02703000 IOSERR EQU IOSFLA 02704000 IOSCCHN EQU IOSACHN 02705000 IOSDCHN EQU IOSACHN 02706000 EWADDISP EQU EWA+29 02707000 EWADCNT EQU EWA+28 02708000 EWACPU EQU EWA+27 02709000 @NM00136 EQU EWA+26 02710000 EWACHA EQU EWA+24 02711000 EWACSEQ EQU EWAXCSW2 02712000 EWACDIN EQU EWAXCSW2 02713000 @NM00135 EQU EWAXCSW2 02714000 EWACTEC EQU EWAXCSW2 02715000 EWACDAV EQU EWAXCSW1 02716000 EWACCHV EQU EWAXCSW1 02717000 EWACCMD EQU EWAXCSW1 02718000 EWACUNS EQU EWAXCSW1 02719000 EWACSQV EQU EWAXCSW1 02720000 @NM00134 EQU EWAXCSW1 02721000 EWACITF EQU EWAXCSW1 02722000 @NM00133 EQU EWARGFG2 02723000 EWACCUE EQU EWARGFG2 02724000 EWACSTG EQU EWARGFG2 02725000 EWACSCU EQU EWARGFG2 02726000 EWACCHA EQU EWARGFG2 02727000 EWACCPU EQU EWARGFG2 02728000 EWANORTY EQU EWARGFG1 02729000 EWACCNT EQU EWARGFG1 02730000 EWACSNS EQU EWARGFG1 02731000 @NM00132 EQU EWARGFG1 02732000 EWACHIO EQU EWARGFG1 02733000 EWACTIO EQU EWARGFG1 02734000 EWACINT EQU EWARGFG1 02735000 EWACSIO EQU EWARGFG1 02736000 EWAUCB EQU EWAERPIB+1 02737000 @NM00131 EQU EWAERPIB 02738000 EWASTUP EQU EWA+14 02739000 EWACNTR4 EQU EWACNTRS+3 02740000 EWACNTR3 EQU EWACNTRS+2 02741000 EWACNTR2 EQU EWACNTRS+1 02742000 EWACNTR1 EQU EWACNTRS 02743000 EWASSTAT EQU EWA+8 02744000 EWASCTMX EQU EWASNSCT 02745000 @NM00130 EQU EWASNSCT 02746000 EWAJAM EQU EWAFLG3 02747000 @NM00129 EQU EWAFLG2 02748000 EWADIR EQU EWAFLG2 02749000 EWACOVF EQU EWAFLG2 02750000 EWAWTEMP EQU EWAFLG2 02751000 EWABDSNS EQU EWAFLG1 02752000 EWADDMSG EQU EWAFLG1 02753000 EWASCC1 EQU EWASCC3 02754000 EWASCC2 EQU EWASCC3 02755000 @NM00128 EQU EWAFLG1 02756000 EWASLIS EQU EWAFLG1 02757000 EWAEXT EQU EWAHDR 02758000 CVTLEVL EQU CVTRELNO+2 02759000 CVTNUMB EQU CVTRELNO 02760000 CVTMDL EQU CVTFIX+250 02761000 @NM00127 EQU CVTFIX+248 02762000 @NM00126 EQU CVTFIX 02763000 CVTRV482 EQU CVTXTNT2+128 02764000 CVTRV481 EQU CVTXTNT2+124 02765000 CVTRV480 EQU CVTXTNT2+120 02766000 CVTRV479 EQU CVTXTNT2+118 02767000 CVTRV478 EQU CVTXTNT2+117 02768000 CVTRV477 EQU CVTXTNT2+116 02769000 CVTRV476 EQU CVTXTNT2+115 02770000 CVTRV475 EQU CVTXTNT2+114 02771000 CVTRV474 EQU CVTRV466 02772000 CVTRV473 EQU CVTRV466 02773000 CVTRV472 EQU CVTRV466 02774000 CVTRV471 EQU CVTRV466 02775000 CVTRV470 EQU CVTRV466 02776000 CVTRV469 EQU CVTRV466 02777000 CVTRV468 EQU CVTRV466 02778000 CVTRV467 EQU CVTRV466 02779000 CVTRV465 EQU CVTRV457 02780000 CVTRV464 EQU CVTRV457 02781000 CVTRV463 EQU CVTRV457 02782000 CVTRV462 EQU CVTRV457 02783000 CVTRV461 EQU CVTRV457 02784000 CVTRV460 EQU CVTRV457 02785000 CVTRV459 EQU CVTRV457 02786000 CVTRV458 EQU CVTRV457 02787000 CVTRV456 EQU CVTXTNT2+108 02788000 CVTRV455 EQU CVTXTNT2+104 02789000 CVTRV454 EQU CVTXTNT2+100 02790000 CVTRV453 EQU CVTXTNT2+96 02791000 CVTRV452 EQU CVTXTNT2+94 02792000 CVTRV451 EQU CVTXTNT2+92 02793000 CVTRV450 EQU CVTXTNT2+90 02794000 CVTRV449 EQU CVTXTNT2+88 02795000 CVTRV448 EQU CVTXTNT2+87 02796000 CVTRV447 EQU CVTXTNT2+86 02797000 CVTRV446 EQU CVTRV438 02798000 CVTRV445 EQU CVTRV438 02799000 CVTRV444 EQU CVTRV438 02800000 CVTRV443 EQU CVTRV438 02801000 CVTRV442 EQU CVTRV438 02802000 CVTRV441 EQU CVTRV438 02803000 CVTRV440 EQU CVTRV438 02804000 CVTRV439 EQU CVTRV438 02805000 CVTRV437 EQU CVTRV429 02806000 CVTRV436 EQU CVTRV429 02807000 CVTRV435 EQU CVTRV429 02808000 CVTRV434 EQU CVTRV429 02809000 CVTRV433 EQU CVTRV429 02810000 CVTRV432 EQU CVTRV429 02811000 CVTRV431 EQU CVTRV429 02812000 CVTRV430 EQU CVTRV429 02813000 CVTRV428 EQU CVTXTNT2+80 02814000 CVTRV427 EQU CVTXTNT2+76 02815000 CVTRV426 EQU CVTXTNT2+72 02816000 CVTRV425 EQU CVTXTNT2+68 02817000 CVTATACT EQU CVTATCVT 02818000 CVTRV423 EQU CVTXTNT2+62 02819000 CVTRV422 EQU CVTXTNT2+60 02820000 CVTRV421 EQU CVTXTNT2+58 02821000 CVTRV420 EQU CVTXTNT2+56 02822000 CVTRV419 EQU CVTXTNT2+55 02823000 CVTRV418 EQU CVTXTNT2+54 02824000 CVTRV417 EQU CVTRV409 02825000 CVTRV416 EQU CVTRV409 02826000 CVTRV415 EQU CVTRV409 02827000 CVTRV414 EQU CVTRV409 02828000 CVTRV413 EQU CVTRV409 02829000 CVTRV412 EQU CVTRV409 02830000 CVTRV411 EQU CVTRV409 02831000 CVTRV410 EQU CVTRV409 02832000 CVTRV408 EQU CVTRV400 02833000 CVTRV407 EQU CVTRV400 02834000 CVTRV406 EQU CVTRV400 02835000 CVTRV405 EQU CVTRV400 02836000 CVTRV404 EQU CVTRV400 02837000 CVTRV403 EQU CVTRV400 02838000 CVTRV402 EQU CVTRV400 02839000 CVTRV401 EQU CVTRV400 02840000 CVTICB EQU CVTXTNT2+48 02841000 CVTSKTA EQU CVTXTNT2+44 02842000 CVTSHSB EQU CVTSHS 02843000 CVTRSV98 EQU CVTXTNT2+36 02844000 CVTRSV97 EQU CVTXTNT2+34 02845000 CVTRSV96 EQU CVTXTNT2+32 02846000 CVTOLTEP EQU CVTXTNT2+28 02847000 CVTQIDA EQU CVTQID+1 02848000 CVTRSV95 EQU CVTQID 02849000 CVTRSV94 EQU CVTXTNT2+20 02850000 CVTRSV93 EQU CVTXTNT2+16 02851000 CVTRSV92 EQU CVTXTNT2+12 02852000 CVTDEBVR EQU CVTXTNT2+8 02853000 CVTRSV91 EQU CVTXTNT2+6 02854000 CVTRSV9H EQU CVTFLGBT 02855000 CVTRSV9G EQU CVTFLGBT 02856000 CVTRSV9F EQU CVTFLGBT 02857000 CVTRSV9E EQU CVTFLGBT 02858000 CVTRSV9D EQU CVTFLGBT 02859000 CVTRSV9C EQU CVTFLGBT 02860000 CVTVME EQU CVTFLGBT 02861000 CVTNPE EQU CVTFLGBT 02862000 CVTNUCLS EQU CVTXTNT2+4 02863000 CVTDSSVA EQU CVTDSSV+1 02864000 CVTRSV89 EQU CVTDSSV 02865000 CVTRSV88 EQU CVTXTNT1+8 02866000 CVTRSV87 EQU CVTXTNT1+4 02867000 CVTFACHN EQU CVTXTNT1 02868000 CVTRV488 EQU CVTMAP+412 02869000 CVTRV487 EQU CVTMAP+408 02870000 CVTRV486 EQU CVTMAP+404 02871000 CVTRV485 EQU CVTMAP+400 02872000 CVTACTAP EQU CVTMAP+396 02873000 CVTAUTH EQU CVTMAP+392 02874000 CVTATMCA EQU CVTATMCT+1 02875000 CVTATMST EQU CVTATMCT 02876000 CVTRSV61 EQU CVTMAP+384 02877000 CVTVOLT1 EQU CVTVOLM1+1 02878000 CVTVOLI1 EQU CVTVOLF1 02879000 CVTSTOA EQU CVTMAP+376 02880000 CVTRSV58 EQU CVTMAP+374 02881000 CVTRSV57 EQU CVTMAP+372 02882000 CVTDDCE EQU CVTMAP+368 02883000 CVTPNWFR EQU CVTMAP+364 02884000 CVTSMF EQU CVTMAP+360 02885000 CVTSULK EQU CVTMAP+358 02886000 CVTSLKO EQU CVTSYSK 02887000 CVTSLKP EQU CVTSYSK 02888000 CVTSLKQ EQU CVTSYSK 02889000 CVTSLKR EQU CVTSYSK 02890000 CVTRSV56 EQU CVTSYSK 02891000 CVTRSV55 EQU CVTSYSK 02892000 CVTRSV54 EQU CVTSYSK 02893000 CVTRSV53 EQU CVTSYSK 02894000 CVTRSV52 EQU CVTA1F1 02895000 CVTRSV51 EQU CVTA1F1 02896000 CVTRSV50 EQU CVTA1F1 02897000 CVTRSV49 EQU CVTA1F1 02898000 CVTRSV48 EQU CVTA1F1 02899000 CVTRSV47 EQU CVTA1F1 02900000 CVTSRSW EQU CVTA1F1 02901000 CVTPFSW EQU CVTA1F1 02902000 CVTPCVT EQU CVTMAP+352 02903000 CVTRSV46 EQU CVTMAP+344 02904000 CVTRSV45 EQU CVTMAP+340 02905000 CVTRSV44 EQU CVTMAP+338 02906000 CVTRSV43 EQU CVTMAP+336 02907000 CVTHJESA EQU CVTHJES+1 02908000 CVTRSV42 EQU CVTHJES 02909000 CVTEXT2A EQU CVTEXT2+1 02910000 CVTRSV41 EQU CVTEXT2 02911000 CVTAPFA EQU CVTAPF+1 02912000 CVTRSV40 EQU CVTAPF 02913000 CVTRV518 EQU CVTINTLA 02914000 CVTRV517 EQU CVTERPV 02915000 CVTEORM EQU CVTMAP+312 02916000 CVTMCHPR EQU CVTMAP+308 02917000 CVTTZ EQU CVTMAP+304 02918000 CVTJEPS EQU CVTMAP+300 02919000 CVTJESCT EQU CVTMAP+296 02920000 CVTMODE EQU CVTMAP+292 02921000 CVTPTRV EQU CVTMAP+288 02922000 CVTREAL EQU CVTMAP+284 02923000 CVTRSV39 EQU CVTMAP+280 02924000 CVTRSV38 EQU CVTMAP+276 02925000 CVTDMSRA EQU CVTDMSR+1 02926000 CVTRV634 EQU CVTDMSRF 02927000 CVTRV633 EQU CVTDMSRF 02928000 CVTRV632 EQU CVTDMSRF 02929000 CVTRV631 EQU CVTDMSRF 02930000 CVTRV630 EQU CVTDMSRF 02931000 CVTRV629 EQU CVTDMSRF 02932000 CVTUDUMP EQU CVTDMSRF 02933000 CVTSDUMP EQU CVTDMSRF 02934000 CVTQMSGA EQU CVTQMSG+1 02935000 CVTRSV36 EQU CVTQMSG 02936000 CVTAMFF EQU CVTMAP+264 02937000 CVTPURGA EQU CVTPURG+1 02938000 CVTRSV35 EQU CVTPURG 02939000 CVTCBSP EQU CVTMAP+256 02940000 CVTATERA EQU CVTATER+1 02941000 CVTSYST EQU CVTATER 02942000 CVTVOLT2 EQU CVTTAT 02943000 CVTVOLI2 EQU CVTVOLF2 02944000 CVTAQAVB EQU CVTAQAVT+1 02945000 CVTRSV34 EQU CVTTCMFG 02946000 CVTRSV33 EQU CVTTCMFG 02947000 CVTRSV32 EQU CVTTCMFG 02948000 CVTRSV31 EQU CVTTCMFG 02949000 CVTRSV30 EQU CVTTCMFG 02950000 CVTRSV29 EQU CVTTCMFG 02951000 CVTRSV28 EQU CVTTCMFG 02952000 CVTTCRDY EQU CVTTCMFG 02953000 CVTGTFA EQU CVTGTF+1 02954000 CVTRSV27 EQU CVTGTFST 02955000 CVTRNIO EQU CVTGTFST 02956000 CVTUSR EQU CVTGTFST 02957000 CVTRV318 EQU CVTFORM 02958000 CVTRV317 EQU CVTTMODE 02959000 CVTRV316 EQU CVTSTATE 02960000 CVTRV315 EQU CVTGTFS 02961000 CVTGTFAV EQU CVTGTFS 02962000 CVT0SCR1 EQU CVTMAP+232 02963000 CVTRV515 EQU CVTMAP+228 02964000 CVTRMS EQU CVTMAP+224 02965000 CVTPATCH EQU CVTMAP+220 02966000 CVTTSCE EQU CVTMAP+216 02967000 CVTLNKSC EQU CVTMAP+214 02968000 CVTQABST EQU CVTMAP+212 02969000 CVTMDLDS EQU CVTMAP+208 02970000 CVTUSER EQU CVTMAP+204 02971000 CVTABEND EQU CVTMAP+200 02972000 CVTSMCA EQU CVTMAP+196 02973000 CVTRSV18 EQU CVTMAP+192 02974000 CVTQLPAQ EQU CVTMAP+188 02975000 CVTQCDSR EQU CVTMAP+184 02976000 CVTRSV17 EQU CVTOPTB 02977000 CVTRSV16 EQU CVTOPTB 02978000 CVTFP EQU CVTOPTB 02979000 CVTAPTHR EQU CVTOPTB 02980000 CVTNLOG EQU CVTOPTB 02981000 CVTTOD EQU CVTOPTB 02982000 CVTCTIMS EQU CVTOPTB 02983000 CVTPROT EQU CVTOPTB 02984000 CVTXPFP EQU CVTOPTA 02985000 CVTASCII EQU CVTOPTA 02986000 CVTRSV13 EQU CVTOPTA 02987000 CVTRSV12 EQU CVTOPTA 02988000 CVTNIP EQU CVTOPTA 02989000 CVTDDR EQU CVTOPTA 02990000 CVTAPR EQU CVTOPTA 02991000 CVTCCH EQU CVTOPTA 02992000 CVTSNCTR EQU CVTMAP+180 02993000 CVTQMWR EQU CVTMAP+176 02994000 CVTQOCR EQU CVTMAP+172 02995000 CVT1EF00 EQU CVTMAP+168 02996000 CVTMZ00 EQU CVTMAP+164 02997000 CVTHEAD EQU CVTMAP+160 02998000 CVTRSV11 EQU CVTMAP+156 02999000 CVT0PT01 EQU CVTMAP+152 03000000 CVTMSER EQU CVTMAP+148 03001000 CVTRV516 EQU CVTIERLC 03002000 CVTILCH EQU CVTMAP+140 03003000 CVT0DS EQU CVTMAP+136 03004000 CVTFBOSV EQU CVTMAP+132 03005000 CVTNUCB EQU CVTMAP+128 03006000 CVTIXAVL EQU CVTMAP+124 03007000 CVTIOQET EQU CVTMAP+120 03008000 CVTDCBA EQU CVTMAP+117 03009000 CVTMVS2 EQU CVTDCB 03010000 CVT6DAT EQU CVTDCB 03011000 CVT4MPS EQU CVTDCB 03012000 CVTRSV09 EQU CVTDCB 03013000 CVT4MS1 EQU CVTDCB 03014000 CVT2SPS EQU CVTDCB 03015000 CVT1SSS EQU CVTDCB 03016000 CVTRSV08 EQU CVTDCB 03017000 CVTSTB EQU CVTMAP+112 03018000 CVTQTD00 EQU CVTMAP+108 03019000 CVTQTE00 EQU CVTMAP+104 03020000 CVTCUCB EQU CVTMAP+100 03021000 CVTSJQ EQU CVTMAP+96 03022000 CVTPBLDL EQU CVTMAP+92 03023000 CVTTPC EQU CVTMAP+88 03024000 CVTSVDCB EQU CVTMAP+84 03025000 CVTBRET EQU CVTMAP+82 03026000 CVTEXIT EQU CVTMAP+80 03027000 CVT0FN00 EQU CVTMAP+76 03028000 CVTDARA EQU CVTDAR+1 03029000 CVTRSV07 EQU CVTFLGS1 03030000 CVTRSV06 EQU CVTFLGS1 03031000 CVTRSV05 EQU CVTFLGS1 03032000 CVTRSV04 EQU CVTFLGS1 03033000 CVTRSV03 EQU CVTFLGS1 03034000 CVTRSV02 EQU CVTFLGS1 03035000 CVTRSV01 EQU CVTFLGS1 03036000 CVTDMPLK EQU CVTFLGS1 03037000 CVTXITP EQU CVTMAP+68 03038000 CVTZDTAB EQU CVTMAP+64 03039000 CVTMSLT EQU CVTMAP+60 03040000 CVTDATE EQU CVTMAP+56 03041000 CVTBTERM EQU CVTMAP+52 03042000 CVTSYSAD EQU CVTMAP+48 03043000 CVTILK2 EQU CVTMAP+40 03044000 CVTILK1 EQU CVTMAP+36 03045000 CVTPRLTV EQU CVTMAP+32 03046000 CVTPCNVT EQU CVTMAP+28 03047000 CVT0VL00 EQU CVTMAP+24 03048000 CVTXAPG EQU CVTMAP+20 03049000 CVTBUF EQU CVTMAP+16 03050000 CVTJOB EQU CVTMAP+12 03051000 CVTLINK EQU CVTMAP+8 03052000 CVT0EF00 EQU CVTMAP+4 03053000 CVTTCBP EQU CVTMAP 03054000 CVT EQU CVTMAP 03055000 BDUXGRPH EQU BDUEXRSP 03056000 BDUXFINL EQU BDUEXRSP 03057000 BDUXINIT EQU BDUEXRSP 03058000 BDURESP EQU BDUSYRSP 03059000 BDUPHASE EQU BDUSYRSP 03060000 BDUERROR EQU BDUSYRSP 03061000 BDUXERLK EQU BDUBDUFG 03062000 BDUALTAK EQU BDUFNFLG 03063000 BDUNEGAK EQU BDUFNFLG 03064000 BDUPOSAK EQU BDUFNFLG 03065000 BDUTPTX EQU BDUFNFLG 03066000 BDUFRSTB EQU BDUFNFLG 03067000 BDULEADG EQU BDUFNFLG 03068000 BDUHEADR EQU BDUFNFLG 03069000 BDUSTHDR EQU BDUFNFLG 03070000 BDUMODIF EQU IEDBDU+1 03071000 BDUCMND EQU IEDBDU 03072000 SAVTLLCB EQU IEDNSVTD+316 03073000 SAVTBITN EQU IEDNSVTD+312 03074000 @NM00125 EQU SAVTCKQB+8 03075000 @NM00124 EQU SAVTCKEC+1 03076000 @NM00123 EQU SAVTCKCC 03077000 SAVTCKPO EQU SAVTCKCC 03078000 SAVTCKWA EQU SAVTCKCC 03079000 SAVTCKCH EQU SAVTCKTB+1 03080000 SAVTCKVT EQU SAVTCKTB 03081000 @NM00122 EQU IEDNSVTD+297 03082000 SAVTRDFG EQU SAVTRDRV+12 03083000 @NM00121 EQU SAVTRDRV+5 03084000 SAVTRDPY EQU SAVTRDRV+4 03085000 SAVTRDQB EQU SAVTRDRV+1 03086000 SAVTRDKY EQU SAVTRDRV 03087000 SAVTNID EQU IEDNSVTD+280 03088000 SAVTDVAS EQU IEDNSVTD+276 03089000 SAVTPLSZ EQU IEDNSVTD+274 03090000 @NM00120 EQU IEDNSVTD+273 03091000 SAVTSUBL EQU IEDNSVTD+272 03092000 @NM00119 EQU SAVTZELM+1 03093000 SAVTSUBM EQU SAVTZELM 03094000 SAVTMHDX EQU IEDNSVTD+268 03095000 SAVTNAT1 EQU IEDNSVTD+266 03096000 SAVTSH20 EQU IEDNSVTD+264 03097000 SAVTLCBS EQU IEDNSVTD+260 03098000 SAVTRNMP EQU IEDNSVTD+256 03099000 SAVTTNTX EQU IEDNSVTD+252 03100000 SAVTSUBV EQU IEDNSVTD+247 03101000 SAVTSUBA EQU IEDNSVTD+246 03102000 SAVTSIBC EQU IEDNSVTD+244 03103000 SAVTBSM EQU IEDNSVTD+240 03104000 SAVTSCPT EQU SAVTTCPU 03105000 SAVTRQTG EQU IEDNSVTD+236 03106000 SAVTRQCH EQU IEDNSVTD+232 03107000 SAVTMAND EQU IEDNSVTD+228 03108000 SAVTSPLN EQU IEDNSVTD+224 03109000 SAVTNADL EQU IEDNSVTD+222 03110000 SAVTNATL EQU IEDNSVTD+220 03111000 SAVTMHTB EQU IEDNSVTD+216 03112000 SAVTSSMH EQU IEDNSVTD+212 03113000 SAVTQRS EQU IEDNSVTD+208 03114000 SAVTRQIN EQU IEDNSVTD+204 03115000 SAVTDFCO EQU IEDNSVTD+200 03116000 SAVTSAO EQU IEDNSVTD+196 03117000 SAVTSARI EQU IEDNSVTD+192 03118000 SAVTSAC EQU IEDNSVTD+188 03119000 SAVTSAI EQU IEDNSVTD+184 03120000 SAVTCSCI EQU IEDNSVTD+180 03121000 SAVTSSRP EQU IEDNSVTD+176 03122000 SAVTSSRQ EQU IEDNSVTD+172 03123000 SAVTSCLU EQU IEDNSVTD+168 03124000 SAVTXTRQ EQU IEDNSVTD+164 03125000 SAVTMVBF EQU IEDNSVTD+160 03126000 @NM00118 EQU IEDNSVTD+148 03127000 SAVTIPCQ EQU IEDNSVTD+144 03128000 @NM00117 EQU IEDNSVTD+136 03129000 SAVTXFMI EQU IEDNSVTD+132 03130000 @NM00116 EQU IEDNSVTD+124 03131000 SAVTXFMO EQU IEDNSVTD+120 03132000 @NM00115 EQU IEDNSVTD+116 03133000 SAVTSSSR EQU IEDNSVTD+112 03134000 SAVTSCPQ EQU IEDNSVTD+108 03135000 SAVTSLCB EQU IEDNSVTD+104 03136000 SAVTLUSR EQU IEDNSVTD+100 03137000 @NM00114 EQU SAVTLUSQ+8 03138000 SAVTLUSP EQU SAVTLUSQ+4 03139000 SAVTLUSB EQU SAVTLUSQ 03140000 @NM00113 EQU IEDNSVTD+84 03141000 SAVTSAT EQU IEDNSVTD+80 03142000 SAVTNAT EQU IEDNSVTD+76 03143000 SAVTCLUP EQU IEDNSVTD+72 03144000 SAVTPIUT EQU IEDNSVTD+68 03145000 SAVTRNTA EQU IEDNSVTD+64 03146000 SAVTDNIR EQU IEDNSVTD+60 03147000 SAVTCNIR EQU IEDNSVTD+56 03148000 SAVTFLDH EQU IEDNSVTD+52 03149000 SAVTSRTN EQU IEDNSVTD+48 03150000 SAVTSREQ EQU IEDNSVTD+44 03151000 SAVTFAIL EQU IEDNSVTD+42 03152000 SAVTSUSE EQU IEDNSVTD+40 03153000 SAVTSIB EQU IEDNSVTD+36 03154000 SAVTPRTN EQU IEDNSVTD+32 03155000 @NM00112 EQU IEDNSVTD+28 03156000 SAVTWH20 EQU IEDNSVTD+26 03157000 SAVTPWT EQU IEDNSVTD+24 03158000 SAVTPRTQ EQU IEDNSVTD+20 03159000 SAVTPREQ EQU IEDNSVTD+16 03160000 SAVTPH20 EQU IEDNSVTD+14 03161000 SAVTPUSE EQU IEDNSVTD+12 03162000 SAVTPLCB EQU IEDNSVTD+8 03163000 SAVTPOOL EQU IEDNSVTD+4 03164000 SAVTPRMT EQU SAVTDIAF 03165000 SAVTVIRT EQU SAVTDIAF 03166000 AVTCPBNO EQU IEDQAVTD+1244 03167000 AVTHRESS EQU IEDQAVTD+1243 03168000 @NM00111 EQU IEDQAVTD+1242 03169000 @NM00110 EQU IEDQAVTD+1241 03170000 @NM00109 EQU IEDQAVTD+1240 03171000 @NM00108 EQU IEDQAVTD+1237 03172000 @NM00107 EQU IEDQAVTD+1236 03173000 AVTHRESE EQU @NM00106 03174000 AVTRADDR EQU IEDQAVTD+1228 03175000 AVTNADDR EQU IEDQAVTD+1224 03176000 AVTHRESN EQU IEDQAVTD+1220 03177000 AVTVOLRN EQU IEDQAVTD+1216 03178000 AVTTOTNN EQU IEDQAVTD+1212 03179000 AVTTRCYN EQU IEDQAVTD+1208 03180000 AVTRCTRN EQU IEDQAVTD+1204 03181000 AVTNOVON EQU IEDQAVTD+1200 03182000 AVTADEBN EQU IEDQAVTD+1196 03183000 AVTVOLRR EQU IEDQAVTD+1192 03184000 AVTTOTNR EQU IEDQAVTD+1188 03185000 AVTTRCYR EQU IEDQAVTD+1184 03186000 AVTRCTRR EQU IEDQAVTD+1180 03187000 AVTNOVOR EQU IEDQAVTD+1176 03188000 AVTADEBR EQU IEDQAVTD+1172 03189000 AVTLODPT EQU IEDQAVTD+1168 03190000 AVTIOBN EQU IEDQAVTD+1164 03191000 AVTIOBR EQU IEDQAVTD+1160 03192000 AVTCPBPT EQU IEDQAVTD+1156 03193000 AVTFCPB EQU IEDQAVTD+1152 03194000 @NM00105 EQU IEDQAVTD+1148 03195000 AVTINCPQ EQU IEDQAVTD+1144 03196000 @NM00104 EQU IEDQAVTD+1140 03197000 @NM00103 EQU IEDQAVTD+1137 03198000 @NM00102 EQU AVTBIT4 03199000 @NM00101 EQU AVTBIT4 03200000 @NM00100 EQU AVTBIT4 03201000 @NM00099 EQU AVTBIT4 03202000 @NM00098 EQU AVTBIT4 03203000 @NM00097 EQU AVTBIT4 03204000 @NM00096 EQU AVTBIT4 03205000 AVTRUFTN EQU AVTBIT4 03206000 @NM00095 EQU IEDQAVTD+1132 03207000 AVTNOBFQ EQU IEDQAVTD+1128 03208000 @NM00094 EQU IEDQAVTD+1124 03209000 AVTDKENQ EQU IEDQAVTD+1120 03210000 @NM00093 EQU IEDQAVTD+1116 03211000 AVTDKAPQ EQU IEDQAVTD+1112 03212000 AVTCOPY EQU IEDQAVTD+1108 03213000 AVTIA EQU IEDQAVTD+1104 03214000 AVTFL EQU IEDQAVTD+1100 03215000 @NM00092 EQU IEDQAVTD+1096 03216000 AVTNCPBQ EQU IEDQAVTD+1092 03217000 AVTTOTNC EQU IEDQAVTD+1088 03218000 AVTCMAX EQU IEDQAVTD+1084 03219000 AVTCMIN EQU IEDQAVTD+1080 03220000 AVTHM02 EQU IEDQAVTD+1076 03221000 AVTOPCIN EQU IEDQAVTD+1074 03222000 AVTDCTLN EQU IEDQAVTD+1072 03223000 AVTOPMSK EQU IEDQAVTD+1068 03224000 AVTDDFT EQU IEDQAVTD+1064 03225000 AVTSTEAL EQU IEDQAVTD+1060 03226000 AVTOPTN EQU IEDQAVTD+1056 03227000 AVTDSKCT EQU IEDQAVTD+1054 03228000 AVTCKRST EQU IEDQAVTD+1053 03229000 AVTSTAN EQU AVTBIT3 03230000 AVTSTACN EQU AVTBIT3 03231000 AVTSTAIN EQU AVTBIT3 03232000 AVTSTAYN EQU AVTBIT3 03233000 AVTOLTBN EQU AVTBIT3 03234000 AVTTSAB EQU AVTBIT3 03235000 AVTRFULN EQU AVTBIT3 03236000 AVTRECVN EQU AVTBIT3 03237000 @NM00091 EQU AVTBIT2 03238000 @NM00090 EQU AVTBIT2 03239000 AVTOPEIN EQU AVTBIT2 03240000 AVTSTRTN EQU AVTBIT2 03241000 AVTTOPOL EQU AVTBIT2 03242000 AVTCOPYN EQU AVTBIT2 03243000 AVTREUSN EQU AVTBIT2 03244000 AVTEXTSC EQU AVTBIT2 03245000 AVTDISKN EQU AVTBIT1 03246000 AVTQUCKN EQU AVTBIT1 03247000 AVTCLOSN EQU AVTBIT1 03248000 AVTREADN EQU AVTBIT1 03249000 AVTDLAYN EQU AVTBIT1 03250000 AVTAQTAN EQU AVTBIT1 03251000 AVTTSON EQU AVTBIT1 03252000 AVTAPLKN EQU AVTBIT1 03253000 AVTDUMBR EQU IEDQAVTD+1048 03254000 AVTDLQX EQU IEDQAVTD+1046 03255000 AVTINTLV EQU IEDQAVTD+1044 03256000 AVTSMCNT EQU IEDQAVTD+1042 03257000 AVTAVFCT EQU IEDQAVTD+1040 03258000 AVTOPCON EQU IEDQAVTD+1038 03259000 AVTOPCNT EQU IEDQAVTD+1036 03260000 AVTLNCNT EQU IEDQAVTD+1034 03261000 AVTHA16 EQU IEDQAVTD+1030 03262000 AVTHA7 EQU IEDQAVTD+1028 03263000 AVTHA4 EQU IEDQAVTD+1026 03264000 AVTHA3 EQU IEDQAVTD+1024 03265000 AVTHA2 EQU IEDQAVTD+1022 03266000 AVTGETMS EQU IEDQAVTD+1021 03267000 @NM00089 EQU IEDQAVTD+1020 03268000 AVTGETMD EQU IEDQAVTD+1016 03269000 AVTGETMN EQU IEDQAVTD+1012 03270000 AVTCWTOT EQU IEDQAVTD+1008 03271000 AVTCWINT EQU IEDQAVTD+956 03272000 AVTDTRAP EQU IEDQAVTD+952 03273000 @NM00088 EQU IEDQAVTD+950 03274000 @NM00087 EQU AVTIOTR 03275000 AVTIOTRH EQU AVTIOTR 03276000 AVTIOTRE EQU AVTIOTR 03277000 @NM00086 EQU AVTSUBT 03278000 AVTSUBPT EQU AVTSUBT 03279000 AVTSUBON EQU AVTSUBT 03280000 AVTAFE30 EQU IEDQAVTD+944 03281000 AVTAFE20 EQU IEDQAVTD+940 03282000 AVTAFE10 EQU IEDQAVTD+936 03283000 AVTCWEC2 EQU IEDQAVTD+932 03284000 AVTCWPM2 EQU IEDQAVTD+928 03285000 AVTCWTS2 EQU IEDQAVTD+927 03286000 AVTCWTS1 EQU IEDQAVTD+926 03287000 AVTCWCLD EQU AVTCWFL2 03288000 AVTCWRAP EQU AVTCWFL2 03289000 @NM00085 EQU AVTCWFL2 03290000 @NM00084 EQU AVTCWFL2 03291000 @NM00083 EQU AVTCWFL2 03292000 @NM00082 EQU AVTCWFL2 03293000 @NM00081 EQU AVTCWFL2 03294000 AVTCWACT EQU AVTCWFL2 03295000 @NM00080 EQU AVTCWFL1 03296000 @NM00079 EQU AVTCWFL1 03297000 @NM00078 EQU AVTCWFL1 03298000 @NM00077 EQU AVTCWFL1 03299000 @NM00076 EQU AVTCWFL1 03300000 @NM00075 EQU AVTCWFL1 03301000 @NM00074 EQU AVTCWFL1 03302000 AVTCOMWN EQU AVTCWFL1 03303000 AVTCWEC1 EQU IEDQAVTD+920 03304000 AVTCWPM1 EQU IEDQAVTD+916 03305000 AVTCAREA EQU IEDQAVTD+912 03306000 AVTFZERO EQU IEDQAVTD+908 03307000 AVTCADDR EQU IEDQAVTD+904 03308000 AVTCOREC EQU IEDQAVTD+900 03309000 @NM00073 EQU IEDQAVTD+892 03310000 AVTCPBCB EQU IEDQAVTD+888 03311000 @NM00072 EQU IEDQAVTD+880 03312000 AVTDSIOB EQU IEDQAVTD+876 03313000 @NM00071 EQU IEDQAVTD+868 03314000 AVTCPRMB EQU IEDQAVTD+864 03315000 @NM00070 EQU IEDQAVTD+856 03316000 AVTCLOSB EQU IEDQAVTD+852 03317000 @NM00069 EQU IEDQAVTD+844 03318000 AVTACTIB EQU IEDQAVTD+840 03319000 @NM00068 EQU IEDQAVTD+836 03320000 AVTOLTEB EQU IEDQAVTD+832 03321000 AVTOLTCH EQU AVTOLTQB+1 03322000 AVTOLTVT EQU AVTOLTQB 03323000 @NM00067 EQU AVTOPCQB+8 03324000 @NM00066 EQU AVTOPCEC+1 03325000 @NM00065 EQU AVTOPCCC 03326000 AVTOPCPO EQU AVTOPCCC 03327000 AVTOPCWA EQU AVTOPCCC 03328000 AVTOPCCH EQU AVTOPCOB+1 03329000 AVTOPCVT EQU AVTOPCOB 03330000 @NM00064 EQU AVTCKPQB+9 03331000 AVTCKPTS EQU AVTCKPQB+8 03332000 @NM00063 EQU AVTCKPEC+1 03333000 @NM00062 EQU AVTCKPCC 03334000 AVTCKPPO EQU AVTCKPCC 03335000 AVTCKPWA EQU AVTCKPCC 03336000 AVTCKPCH EQU AVTCKPTB+1 03337000 AVTCKPVT EQU AVTCKPTB 03338000 @NM00061 EQU IEDQAVTD+796 03339000 @NM00060 EQU IEDQAVTD+788 03340000 AVTSELCH EQU IEDQAVTD+785 03341000 AVTBFRTN EQU AVTBFRFG 03342000 AVTBFREB EQU IEDQAVTD+780 03343000 AVTTIMQ EQU IEDQAVTD+776 03344000 @NM00059 EQU IEDQAVTD+772 03345000 AVTIMQPS EQU IEDQAVTD+768 03346000 AVTINOUT EQU IEDQAVTD+766 03347000 AVTREFTM EQU IEDQAVTD+764 03348000 @NM00058 EQU IEDQAVTD+752 03349000 AVTDELYB EQU IEDQAVTD+748 03350000 AVTOCQPT EQU IEDQAVTD+744 03351000 AVTTSOPT EQU IEDQAVTD+740 03352000 AVTSUPPT EQU IEDQAVTD+736 03353000 AVTCBQCB EQU IEDQAVTD+732 03354000 AVTMSGS EQU IEDQAVTD+729 03355000 @NM00057 EQU AVTSYSER 03356000 @NM00056 EQU AVTSYSER 03357000 @NM00055 EQU AVTSYSER 03358000 @NM00054 EQU AVTSYSER 03359000 @NM00053 EQU AVTSYSER 03360000 @NM00052 EQU AVTSYSER 03361000 AVTCMAXN EQU AVTSYSER 03362000 AVTCMINN EQU AVTSYSER 03363000 AVT2260L EQU IEDQAVTD+724 03364000 AVTABEPL EQU AVTADBUF 03365000 AVTHFF EQU AVTCLRHI+2 03366000 @NM00051 EQU AVTCLRHI 03367000 AVTCCLNK EQU AVTCRELE+5 03368000 AVTCCPRI EQU AVTCRELE+4 03369000 AVTCCQCB EQU AVTCCELE+1 03370000 AVTCCKEY EQU AVTCCELE 03371000 AVTDELAD EQU IEDQAVTD+704 03372000 AVTDELEM EQU IEDQAVTD+700 03373000 AVTBSX EQU AVTCKLNK 03374000 AVTOPETR EQU AVTHG01 03375000 @NM00050 EQU AVTCKBYT 03376000 AVTCKONQ EQU AVTCKBYT 03377000 @NM00049 EQU AVTCKBYT 03378000 @NM00048 EQU AVTCKBYT 03379000 @NM00047 EQU AVTCKBYT 03380000 @NM00046 EQU AVTCKBYT 03381000 @NM00045 EQU AVTCKBYT 03382000 @NM00044 EQU AVTCKBYT 03383000 AVTOPERT EQU IEDQAVTD+690 03384000 AVTOPXCL EQU IEDQAVTD+688 03385000 AVTOPERL EQU IEDQAVTD+687 03386000 @NM00043 EQU IEDQAVTD+686 03387000 AVTCKTIM EQU IEDQAVTD+684 03388000 AVTCKELV EQU IEDQAVTD+682 03389000 AVTCPRCD EQU IEDQAVTD+681 03390000 AVTWARMN EQU AVTCKELF 03391000 AVTCRTLN EQU AVTCKELF 03392000 AVTCPIPN EQU AVTCKELF 03393000 AVTCCLCN EQU AVTCKELF 03394000 AVTCINCN EQU AVTCKELF 03395000 @NM00042 EQU AVTCKELF 03396000 AVTCMCPN EQU AVTCKELF 03397000 AVTNQBCK EQU AVTCKELF 03398000 AVTCKQAD EQU IEDQAVTD+677 03399000 AVTSCBSZ EQU IEDQAVTD+676 03400000 @NM00041 EQU IEDQAVTD+672 03401000 AVTCKELE EQU IEDQAVTD+668 03402000 @NM00040 EQU AVTCKPEL+8 03403000 AVTCKRLK EQU AVTCKPEL+5 03404000 AVTCKRPR EQU AVTCKPEL+4 03405000 AVTCKRMQ EQU AVTCKRMV+1 03406000 AVTCKRKY EQU AVTCKRMV 03407000 AVTHK EQU IEDQAVTD+648 03408000 AVTHI EQU IEDQAVTD+644 03409000 AVTIOT EQU IEDQAVTD+640 03410000 AVTNX EQU IEDQAVTD+636 03411000 AVTTONE EQU IEDQAVTD+632 03412000 AVTA3TL EQU IEDQAVTD+628 03413000 AVTDMECB EQU IEDQAVTD+624 03414000 AVTABEND EQU IEDQAVTD+618 03415000 AVTPLCBN EQU IEDQAVTD+616 03416000 @NM00039 EQU AVTSAVTP+1 03417000 @NM00038 EQU AVTSAVTF 03418000 AVTSNA EQU AVTSAVTF 03419000 AVTONSNA EQU AVTSAVTF 03420000 AVTVTMCP EQU AVTSAVTF 03421000 @NM00037 EQU IEDQAVTD+608 03422000 AVTCMBSS EQU IEDQAVTD+604 03423000 AVTRCV EQU IEDQAVTD+600 03424000 AVTSEND EQU IEDQAVTD+596 03425000 AVTCSCH EQU IEDQAVTD+592 03426000 AVTQ1 EQU IEDQAVTD+588 03427000 AVTE7 EQU IEDQAVTD+584 03428000 AVTHB EQU IEDQAVTD+580 03429000 AVTR1 EQU IEDQAVTD+576 03430000 AVTBZ EQU IEDQAVTD+572 03431000 AVTEZ EQU IEDQAVTD+568 03432000 AVTEC EQU IEDQAVTD+564 03433000 AVTEW EQU IEDQAVTD+560 03434000 AVTNDIAL EQU AVTSCOPT 03435000 AVTN2741 EQU AVTSCOPT 03436000 AVTCONCO EQU AVTSCOPT 03437000 AVTCONC EQU AVTSCOPT 03438000 AVTCMBUF EQU AVTSCOPT 03439000 AVTAPDMP EQU AVTSCOPT 03440000 @NM00036 EQU AVTSCOPT 03441000 AVTHA EQU AVTDISP 03442000 AVTEA EQU IEDQAVTD+548 03443000 AVTAX EQU IEDQAVTD+544 03444000 AVTA3 EQU IEDQAVTD+540 03445000 AVTGD EQU IEDQAVTD+536 03446000 AVTAL EQU IEDQAVTD+532 03447000 AVTOLTST EQU AVTHG02 03448000 AVTE8 EQU IEDQAVTD+524 03449000 AVTUI EQU IEDQAVTD+520 03450000 AVTCOMPT EQU IEDQAVTD+516 03451000 AVTCRSRF EQU IEDQAVTD+512 03452000 @NM00035 EQU IEDQAVTD+508 03453000 AVTKA02 EQU IEDQAVTD+504 03454000 AVTOPTPT EQU IEDQAVTD+500 03455000 AVTPCBPT EQU IEDQAVTD+496 03456000 @NM00034 EQU AVTECB1 03457000 AVTCOMP EQU AVTECB1 03458000 @NM00033 EQU AVTECB1 03459000 AVTOPECA EQU IEDQAVTD+488 03460000 AVTOLECA EQU IEDQAVTD+484 03461000 AVTCKECA EQU IEDQAVTD+480 03462000 AVTCWECA EQU IEDQAVTD+476 03463000 AVTCWTCB EQU IEDQAVTD+472 03464000 AVTOLTCB EQU IEDQAVTD+468 03465000 AVTOCTCB EQU IEDQAVTD+464 03466000 AVTCKTCB EQU IEDQAVTD+460 03467000 AVTAS EQU IEDQAVTD+456 03468000 AVTNOLBF EQU IEDQAVTD+454 03469000 AVTNCKPR EQU IEDQAVTD+453 03470000 AVTCIB EQU IEDQAVTD+452 03471000 AVTSPLPT EQU IEDQAVTD+448 03472000 AVTMVBFR EQU IEDQAVTD+444 03473000 AVTSBTA EQU IEDQAVTD+440 03474000 AVTRARTN EQU IEDQAVTD+436 03475000 AVTBSCAN EQU IEDQAVTD+432 03476000 AVTRDYA EQU IEDQAVTD+428 03477000 AVTDISTR EQU IEDQAVTD+420 03478000 AVTPARM3 EQU IEDQAVTD+416 03479000 @NM00032 EQU AVTPKF 03480000 @NM00031 EQU AVTPKF 03481000 @NM00030 EQU AVTPKF 03482000 AVTFTCHF EQU AVTPKF 03483000 @NM00029 EQU AVTPKF 03484000 @NM00028 EQU AVTPKF 03485000 @NM00027 EQU AVTPKF 03486000 @NM00026 EQU AVTPKF 03487000 AVTPARM EQU IEDQAVTD+408 03488000 AVTEXS2A EQU IEDQAVTD+402 03489000 AVTEXA2S EQU IEDQAVTD+396 03490000 AVTCKAVT EQU @NM00024+1 03491000 @NM00025 EQU AVTCKFLG 03492000 AVTCKHLT EQU AVTCKFLG 03493000 AVTCKREQ EQU AVTCKFLG 03494000 AVTCKENV EQU AVTCKFLG 03495000 AVTCKNAC EQU AVTCKFLG 03496000 AVTCKTAC EQU AVTCKFLG 03497000 AVTBUENT EQU IEDQAVTD+386 03498000 @NM00023 EQU IEDQAVTD+385 03499000 AVTFULLT EQU AVTBUFSW 03500000 AVTUNCON EQU AVTBUFSW 03501000 @NM00022 EQU AVTBUFSW 03502000 AVTBUFTR EQU AVTREADD 03503000 AVTREADY EQU IEDQAVTD+376 03504000 AVTRACE EQU IEDQAVTD+372 03505000 AVTTCB EQU IEDQAVTD+368 03506000 AVTPASWD EQU IEDQAVTD+360 03507000 AVTCTLCH EQU IEDQAVTD+352 03508000 AVTDOUBL EQU IEDQAVTD+344 03509000 AVTDOUBX EQU IEDQAVTD+336 03510000 AVTDPARM EQU IEDQAVTD+332 03511000 AVTCSTCS EQU IEDQAVTD+328 03512000 AVTDLQ EQU AVTSAVEX+32 03513000 @NM00021 EQU AVTSAVEX 03514000 AVTSAVE4 EQU IEDQAVTD+216 03515000 AVTSAVE3 EQU IEDQAVTD+144 03516000 AVTSAVE2 EQU IEDQAVTD+72 03517000 AVTSAVE1 EQU IEDQAVTD 03518000 TRMSUBST EQU IEDNTRM+12 03519000 TRMRLMCT EQU IEDNTRM+10 03520000 TRMCOHTG EQU TRMSIBPT+1 03521000 TRMGPCNT EQU TRMSIBPT 03522000 TRMBUFRD EQU TRMBYTE0 03523000 TRMSNA EQU TRMBYTE0 03524000 TRMGP EQU TRMBYTE0 03525000 TRMDIAL EQU TRMBYTE0 03526000 @NM00017 EQU TRMBYTE0 03527000 TRMOUTPT EQU TRMBYTE0 03528000 TRMINPUT EQU TRMBYTE0 03529000 TRMUDEF EQU TRMBYTE0 03530000 TRMCOHRT EQU IEDNTRM+4 03531000 TRMSTOTE EQU TRMBYTE1 03532000 TRMCKPRN EQU TRMBYTE1 03533000 TRMTSATN EQU TRMBYTE1 03534000 TRMTRACE EQU TRMBYTE1 03535000 TRMSWBCK EQU TRMBYTE1 03536000 TRMAUTOC EQU TRMBYTE1 03537000 TRMINPTP EQU TRMBYTE1 03538000 TRMWTNEG EQU TRMSCPRQ 03539000 TRMWRBRK EQU TRMBYTE2 03540000 TRMNOSND EQU TRMBYTE2 03541000 TRMPREP EQU TRMBYTE2 03542000 TRMGPACT EQU TRMBYTE2 03543000 TRMANDL EQU TRMBYTE2 03544000 TRMCLOSN EQU TRMINPG 03545000 TRMREMB EQU TRMBYTE2 03546000 TRMRSACT EQU TRMBYTE2 03547000 TRMOPTBL EQU IEDQTRM+18 03548000 TRMOPNO EQU IEDQTRM+17 03549000 TRMCHCIN EQU IEDQTRM+16 03550000 TRMSENSE EQU TRMSTAT+3 03551000 TRMTEMPR EQU TRMSTAT+2 03552000 TRMSIO EQU TRMSTAT 03553000 @NM00016 EQU TRMDEVFL+1 03554000 TRMTPIN EQU TRMDEVFL+1 03555000 TRMNCPI EQU TRMDEVFL+1 03556000 TRMRNTRM EQU TRMDEVFL+1 03557000 @NM00015 EQU TRMDEVFL+1 03558000 TRMLMD EQU TRMDEVFL+1 03559000 TRMCONC EQU TRMDEVFL+1 03560000 TRMTSOB EQU TRMDEVFL 03561000 TRMBFDY EQU TRMDEVFL 03562000 TRMTBLK EQU TRMDEVFL 03563000 TRMSBLK EQU TRMDEVFL 03564000 TRMBLKS EQU TRMDEVFL 03565000 TRMADDC EQU TRMDEVFL 03566000 TRMDDIG EQU TRMDEVFL 03567000 TRMBUFS EQU TRMDEVFL 03568000 TRMPRILK EQU TRMALTD 03569000 TRMLGB EQU TRMDSORG 03570000 TRMUTERM EQU TLISTCNT 03571000 TRMDESTQ EQU IEDQTRM+1 03572000 TRMSCNYN EQU TRMSTATE 03573000 TRMOPTFN EQU TRMSTATE 03574000 TRMHELDN EQU TRMSTATE 03575000 TRMACPTN EQU TRMSTATE 03576000 TRMPREF EQU TRMSTATE 03577000 TRMPROC EQU TRMLOG 03578000 TRMLIST EQU TRMLOG 03579000 TRMLINE EQU TRMSTATE 03580000 OPCBOTTM EQU IEDQOPCD+1188 03581000 OPCDSRWT EQU IEDQOPCD+1184 03582000 @NM00014 EQU IEDQOPCD+1100 03583000 @NM00013 EQU IEDQOPCD+948 03584000 @NM00012 EQU IEDQOPCD+940 03585000 @NM00011 EQU IEDQOPCD+380 03586000 @NM00010 EQU OPCPWCOB+9 03587000 @NM00009 EQU OPCPWCOB+8 03588000 @NM00008 EQU OPCPWECB+1 03589000 OPCPWCCC EQU OPCPWECB 03590000 OPCPWCHN EQU OPCPWQCB+1 03591000 OPCPWVTO EQU OPCPWQCB 03592000 OPCWAITV EQU IEDQOPCD+364 03593000 OPCTOTCK EQU IEDQOPCD+360 03594000 OPCAPXTL EQU IEDQOPCD+356 03595000 OPCDECR EQU IEDQOPCD+352 03596000 OPCBUFWT EQU IEDQOPCD+348 03597000 OPCWRKSP EQU IEDQOPCD+320 03598000 OPCADGOT EQU IEDQOPCD+318 03599000 OPCRQCNT EQU IEDQOPCD+316 03600000 OPPOLSTP EQU IEDQOPCD+312 03601000 OPCCKCIB EQU IEDQOPCD+308 03602000 OPCEND EQU IEDQOPCD+307 03603000 OPCSTCBS EQU IEDQOPCD+306 03604000 OPCHNEND EQU IEDQOPCD+302 03605000 OPCOQSW EQU IEDQOPCD+301 03606000 @NM00007 EQU OPCSPEC 03607000 @NM00006 EQU OPCSPEC 03608000 @NM00005 EQU OPCSPEC 03609000 @NM00004 EQU OPCSPEC 03610000 OPCFRMCA EQU OPCSPEC 03611000 OPCRSTRT EQU OPCSPEC 03612000 OPCPART EQU OPCSPEC 03613000 OPCALTD EQU OPCSPEC 03614000 OPCBFEND EQU IEDQOPCD+296 03615000 OPCBFIRS EQU IEDQOPCD+292 03616000 OPCAVBUF EQU IEDQOPCD+290 03617000 OPCIPLCT EQU IEDQOPCD+289 03618000 OPCCLNTS EQU IEDQOPCD+288 03619000 OPCHA8 EQU IEDQOPCD+286 03620000 OPCBFREQ EQU IEDQOPCD+284 03621000 OPCFREBF EQU IEDQOPCD+280 03622000 OPCGETBF EQU IEDQOPCD+276 03623000 OPCNEXT EQU IEDQOPCD+272 03624000 OPCFMDFC EQU IEDQOPCD+268 03625000 OPCSCNC EQU IEDQOPCD+264 03626000 OPCHORTG EQU IEDQOPCD+260 03627000 OPCCKPTL EQU IEDQOPCD+252 03628000 OPCCKPTF EQU IEDQOPCD+248 03629000 OPCWAITA EQU IEDQOPCD+244 03630000 OPCWAITR EQU IEDQOPCD+240 03631000 OPCWAITP EQU IEDQOPCD+236 03632000 OPCWAITO EQU IEDQOPCD+232 03633000 OPCWAITN EQU IEDQOPCD+228 03634000 OPCWAITL EQU IEDQOPCD+224 03635000 OPCWAITC EQU IEDQOPCD+220 03636000 @NM00003 EQU OPCLDNME+5 03637000 OPCMODID EQU OPCLDNME+3 03638000 @NM00002 EQU OPCLDNME 03639000 OPCXCTL EQU IEDQOPCD+204 03640000 OPCWAIT EQU IEDQOPCD+192 03641000 OPCCKERB EQU IEDQOPCD+164 03642000 OPCBFERB EQU IEDQOPCD+148 03643000 OPCFLAG2 EQU IEDQOPCD+147 03644000 OPCFLAG1 EQU IEDQOPCD+146 03645000 OPCWRKSZ EQU IEDQOPCD+144 03646000 OPCWORK EQU IEDQOPCD+140 03647000 OPCRSAVE EQU IEDQOPCD+132 03648000 OPCQCBAD EQU IEDQOPCD+128 03649000 OPCSAVE EQU IEDQOPCD+56 03650000 OPCTRMWA EQU IEDQOPCD+52 03651000 OPCPSTWT EQU IEDQOPCD+48 03652000 OPCTNTEA EQU IEDQOPCD+44 03653000 OPCPGCK EQU IEDQOPCD+40 03654000 OPCLCB EQU IEDQOPCD+36 03655000 @NM00001 EQU IEDQOPCD+32 03656000 OPCIPLAD EQU IEDQOPCD+28 03657000 OPCTOFLK EQU IEDQOPCD+24 03658000 OPCOPTLK EQU IEDQOPCD+20 03659000 OPCDCBLK EQU IEDQOPCD+16 03660000 OPCCOPCE EQU IEDQOPCD+12 03661000 OPCAVTPT EQU IEDQOPCD+8 03662000 OPCDOUBL EQU IEDQOPCD 03663000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03664000 @RC00421 EQU @RC00419 03665000 @PB00003 EQU @EL00001 03666000 @PB00002 EQU @PB00003 03667000 @ENDDATA EQU * 03668000 END IGE0904I,(C'PLS1057',0701,77348) 03669000