TITLE 'IGCSW10D, SWITCH TO 3705 BACKUP *00001000 ' 00002000 IGCSW10D CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 * 02S0342 00005000 * /*****************************************************************/ 00006000 * /* */ 00007000 * /* PROLOGUE: THIS SEGMENT COMPLETES THE PROLOGUE CODE THAT WAS */ 00008000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. */ 00009000 * /* */ 00010000 * /*****************************************************************/ 00011000 * 02S0342 00012000 * RBASE=RBRNCH; /* SET UP BASE REGISTER @YM07272*/ 00013000 LR RBASE,RBRNCH 02S0342 00014000 * GEN REFS(RBASE) NOSETS; 02S0343 00015000 * /* @YM07272*/ 00016000 * /* 00017000 USING IGCSW10D,RBASE INFORM THE ASSEMBLER OF THE 00018000 * BASE REGISTER TO BE USED FOR 00019000 * ADDRESSING CODE 00020000 * GEN NOREFS NOSETS; 02S0344 00021000 * /* 00022000 IGCSW10D IEDHJN AFTERHJN MODULE IDENTIFICATION MACRO 00023000 * ROPCAVT=RPARM; /* SET THE BASE POINTER FOR THE 00024000 * OPERATOR CONTROL ADDRESS 02S0345 00025000 * VECTOR TABLE */ 00026000 LR ROPCAVT,RPARM 02S0345 00027000 * ROPCWK=OPCWORK; /* SET THE BASE REGISTER TO BE 00028000 * USED FOR ADDRESSING AUTOMATIC 00029000 * DATA WITH THE POINTER TO THE 00030000 * OPERATOR CONTROL RESIDENT WORK 00031000 * AREA */ 00032000 L ROPCWK,OPCWORK(,ROPCAVT) 02S0346 00033000 * GEN REFS(ROPCWK) NOSETS; 02S0347 00034000 * /* 00035000 USING @DATD,ROPCWK INFORM THE ASSEMBLER OF THE 00036000 * BASE REGISTER TO BE USED FOR 00037000 * ADDRESSING AUTOMATIC DATA 00038000 * RSAVE=ADDR(OPCSAVE); /* SET THE SAVE AREA POINTER 00039000 * REGISTER WITH THE POINTER TO 00040000 * THE OPERATOR CONTROL SAVE AREA*/ 00041000 LA @11,OPCSAVE(,ROPCAVT) 02S0348 00042000 LR RSAVE,@11 02S0348 00043000 * 02S0349 00044000 * /*****************************************************************/ 00045000 * /* */ 00046000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00047000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00048000 * /* */ 00049000 * /*****************************************************************/ 00050000 * 02S0349 00051000 * 03S0349 00052000 * /*****************************************************************/ 00053000 * /* */ 00054000 * /* PROCESS.INITIAL: THIS SEGMENT DOES THE INITIAL PROCESSING. */ 00055000 * /* */ 00056000 * /*****************************************************************/ 00057000 * 03S0349 00058000 * ERRSW=OFF; /* INITIALIZE THE ERROR SWITCH TO 00059000 * ZERO */ 00060000 NI ERRSW,B'01111111' 03S0349 00061000 * RPWAIT=OFF; /* INITIALIZE THE REPLY WAIT 00062000 * SWITCH TO ZERO */ 00063000 NI RPWAIT,B'01111111' 03S0350 00064000 * RAVT=OPCAVTPT; /* SET THE BASE POINTER FOR THE 00065000 * TCAM ADDRESS VECTOR TABLE */ 00066000 L RAVT,OPCAVTPT(,ROPCAVT) 03S0351 00067000 * ROPCE=OPCCOPCE; /* SET THE BASE POINTER FOR THE 00068000 * OPERATOR CONTROL ELEMENT */ 00069000 L ROPCE,OPCCOPCE(,ROPCAVT) 03S0352 00070000 * RWORKA=OPCWORK; /* GET ADDRESS OF WORK AREA */ 00071000 L RWORKA,OPCWORK(,ROPCAVT) 03S0353 00072000 * RSAVE=ADDR(OPCSAVE); /* GET SAVE AREA ADDRESS */ 00073000 LR RSAVE,@11 03S0354 00074000 * 03S0355 00075000 * /*****************************************************************/ 00076000 * /* */ 00077000 * /* PROCESS.COMINV: THIS SEGMENT ESTABLISHES THE TTE POINTER */ 00078000 * /* */ 00079000 * /*****************************************************************/ 00080000 * 03S0355 00081000 * OCBACKUP=OPCDOUBL; /* SET ELEMENT WITH DDNAME */ 00082000 MVC OCBACKUP(8,ROPCE),OPCDOUBL(ROPCAVT) 03S0355 00083000 * IF OCNONAME=OFF THEN /* IF NAME FOUND BY DCBLOCAT 00084000 * ROUTINE @YM07031*/ 00085000 TM OCNONAME(ROPCE),B'00001000' 03S0356 00086000 BNZ @RF00356 03S0356 00087000 * DO; /* THEN ALREADY HAVE DCB ADDRESS 00088000 * @YM07031*/ 00089000 * RPARM=OCELEM; /* SETUP DCB ADDRESS */ 00090000 L RPARM,OCELEM(,ROPCE) 03S0358 00091000 * GEN; 03S0359 00092000 * /* 00093000 B GOODDCB GOOD RETURN-CONTINUE 00094000 * END; 03S0360 00095000 * ELSE 03S0361 00096000 * DO; 03S0361 00097000 B @RC00356 03S0361 00098000 @RF00356 DS 0H 03S0362 00099000 * CALL TRMOFLOC; /* CALL TTE PTR ROUTINE */ 00100000 L @15,OPCTOFLK(,ROPCAVT) 03S0362 00101000 BALR @14,@15 03S0362 00102000 * GEN; 03S0363 00103000 * /* 00104000 B GOODTRM GOOD RETURN-CONTINUE 00105000 * RZERO=MSG16; /* SET STATION NAME NOT FOUND 00106000 * @YM07031*/ 00107000 LH RZERO,MSG16 03S0364 00108000 * CALL ERREXIT; /* CALL THE ERROR EXIT RTN */ 00109000 BAL @14,ERREXIT 03S0365 00110000 * GEN; 03S0366 00111000 * /* 00112000 B TRMERROR BAD RETURN @YM07272 00113000 * END; 03S0367 00114000 *GOODDCB: 03S0368 00115000 * RDCB=RPARM; /* SET DCB BASE */ 00116000 @RC00356 DS 0H 03S0368 00117000 GOODDCB LR RDCB,RPARM 03S0368 00118000 * IF DCBDSGTR=OFF THEN /* CHECK DCB FOR 3705 */ 00119000 TM DCBDSGTR+20(RDCB),B'00000100' 03S0369 00120000 BNZ @RF00369 03S0369 00121000 * DO; 03S0370 00122000 * RZERO=NO3705; /* SET NOT 3705 MSG NUMBER */ 00123000 LH RZERO,NO3705 03S0371 00124000 * CALL ERREXIT; /* CALL THE ERROR EXIT RTN */ 00125000 BAL @14,ERREXIT 03S0372 00126000 * END; 03S0373 00127000 * ELSE 03S0374 00128000 * DO; 03S0374 00129000 B @RC00369 03S0374 00130000 @RF00369 DS 0H 03S0375 00131000 * RLCB=DCBIOBAD+DCBEIOBX-LCBOFF;/* SET UP FIRST LCB ADDRESS */ 00132000 LA @11,20 03S0375 00133000 ALR @11,RDCB 03S0375 00134000 SLR RLCB,RLCB 03S0375 00135000 IC RLCB,DCBEIOBX(,@11) 03S0375 00136000 AL RLCB,DCBIOBAD(,@11) 03S0375 00137000 SL RLCB,@CF00044 03S0375 00138000 * RPARM=LCBTTCIN; /* GET NCP TTCIN */ 00139000 LH RPARM,LCBTTCIN(,RLCB) 03S0376 00140000 N RPARM,@CF02004 03S0376 00141000 * CALL IEDQTNT; /* CALL NCP TTE ROUTINE */ 00142000 L @15,AVTRNMPT(,RAVT) 03S0377 00143000 BALR @14,@15 03S0377 00144000 *GOODTRM: 03S0378 00145000 * RTRM=RPARM-LENGTH(IEDNTRM); /* SETUP TTE POINTER */ 00146000 GOODTRM LR RTRM,RPARM 03S0378 00147000 SL RTRM,@CF01731 03S0378 00148000 * END; 03S0379 00149000 *TRMERROR: 03S0380 00150000 * IF ERRSW=OFF THEN 02S0380 00151000 @RC00369 DS 0H 02S0380 00152000 TRMERROR TM ERRSW,B'10000000' 02S0380 00153000 BNZ @RF00380 02S0380 00154000 * DO; 02S0381 00155000 * 03S0382 00156000 * /*************************************************************/ 00157000 * /* */ 00158000 * /* PROCESS.VALIDATE: THIS SEGMENT VALIDATES THAT THE ENTRY IS*/ 00159000 * /* AN NCP AND HAS AN INACTIVE STATUS */ 00160000 * /* */ 00161000 * /*************************************************************/ 00162000 * 03S0382 00163000 * IF TRMPREF=OFF|TRMTYPE^=TRMLNCP THEN/* IS TTE A NCP */ 00164000 TM TRMPREF(RTRM),B'00010000' 03S0382 00165000 BZ @RT00382 03S0382 00166000 CLI TRMTYPE(RTRM),X'0F' 03S0382 00167000 BE @RF00382 03S0382 00168000 @RT00382 DS 0H 03S0383 00169000 * DO; 03S0383 00170000 * RZERO=MSG18; /* SET NOT 3705 MSG NUMBER */ 00171000 LH RZERO,MSG18 03S0384 00172000 * CALL ERREXIT; /* CALL ERROR EXIT ROUTINE */ 00173000 BAL @14,ERREXIT 03S0385 00174000 * END; 03S0386 00175000 * ELSE 03S0387 00176000 * IF TRMRSACT=ON|TRMINPG=ON|TRMIPLDM=ON THEN/* ARE THE ACTIVE 00177000 * OR ACT/DEACT OR IPL/DMP BITS 00178000 * ON */ 00179000 B @RC00382 03S0387 00180000 @RF00382 TM TRMRSACT(RTRM),B'10100000' 03S0387 00181000 BNZ @RT00387 03S0387 00182000 TM TRMIPLDM(RTRM),B'10000000' 03S0387 00183000 BNO @RF00387 03S0387 00184000 @RT00387 DS 0H 03S0388 00185000 * DO; 03S0388 00186000 * RZERO=MSG203; /* SET 3705 IS ACTIVE MESSAGE */ 00187000 LH RZERO,MSG203 03S0389 00188000 * CALL ERREXIT; /* CALL ERROR EXIT ROUTINE */ 00189000 BAL @14,ERREXIT 03S0390 00190000 * END; 03S0391 00191000 * ELSE /* @YM07272*/ 00192000 * 03S0392 00193000 * /*********************************************************/ 00194000 * /* */ 00195000 * /* PROCESS.PROCSW: THIS SEGMENT WILL START THE SWITCH TO */ 00196000 * /* THE 3705 BACKUP */ 00197000 * /* */ 00198000 * /*********************************************************/ 00199000 * 03S0392 00200000 * IF TRMNCPI=ON THEN /* DOES THE 3705 HAVE DEV DEP 00201000 * INFORMATION */ 00202000 B @RC00387 03S0392 00203000 @RF00387 TM TRMNCPI(RTRM),B'00001000' 03S0392 00204000 BNO @RF00392 03S0392 00205000 * DO; 03S0393 00206000 * RZERO=TRMNCPIM; /* SET UP MASK FOR DEV DEP RTN */ 00207000 LA RZERO,8 03S0394 00208000 * RPARM=ADDR(IEDQTRM);/* PUT TTE POINTER IN REGISTER 1 00209000 * @YM07710*/ 00210000 LA RPARM,IEDQTRM(,RTRM) 03S0395 00211000 * CALL DDFLOOK; /* CALL THE 3705 DEV DEP ROUTINE */ 00212000 L @15,AVTDDFT(,RAVT) 03S0396 00213000 BALR @14,@15 03S0396 00214000 * RNCP=RBRNCH; /* SET DEV DEP FLD POINTER BASE */ 00215000 LR RNCP,RBRNCH 03S0397 00216000 * OPCWRKSP(1)=RBRNCH; /* SAVE DEVICE DEP FLD ADDR */ 00217000 ST RBRNCH,OPCWRKSP(,ROPCAVT) 03S0398 00218000 * OCMODNME=OCBACKUP; /* SAVE OLD NCPNAME */ 00219000 MVC OCMODNME(8,ROPCE),OCBACKUP(ROPCE) 03S0399 00220000 * OCBACKUP=NCPBKUPN; /* GET BACKUP NCPNAME */ 00221000 MVC OCBACKUP(8,ROPCE),NCPBKUPN(RNCP) 03S0400 00222000 * OPCDOUBL=OCBACKUP; /* SET ELEMENT WITH BACKUP 03S0401 00223000 * NCPNAME */ 00224000 MVC OPCDOUBL(8,ROPCAVT),OCBACKUP(ROPCE) 03S0401 00225000 * CALL TRMOFLOC; /* CALL TTE POINTER ROUTINE */ 00226000 L @15,OPCTOFLK(,ROPCAVT) 03S0402 00227000 BALR @14,@15 03S0402 00228000 * GEN; 03S0403 00229000 * /* 00230000 B TESTBKUP GOOD RETURN-CONTINUE @YM07272 00231000 * DO; 03S0404 00232000 * RZERO=MSG184; /* NO BACKUP MSG @YM07662*/ 00233000 LH RZERO,MSG184 03S0405 00234000 * OCBACKUP=OCMODNME;/* RESTORE NCP NAME @YM07662*/ 00235000 MVC OCBACKUP(8,ROPCE),OCMODNME(ROPCE) 03S0406 00236000 * CALL ERREXIT; /* CALL THE ERROR EXIT ROUTINE */ 00237000 BAL @14,ERREXIT 03S0407 00238000 * END; 03S0408 00239000 * END; 03S0409 00240000 * ELSE 03S0410 00241000 * DO; 03S0410 00242000 B @RC00392 03S0410 00243000 @RF00392 DS 0H 03S0411 00244000 * RZERO=MSG184; /* SET BACKUP NOT SETUP MSG */ 00245000 LH RZERO,MSG184 03S0411 00246000 * CALL ERREXIT; /* CALL THE ERROR EXIT ROUTINE */ 00247000 BAL @14,ERREXIT 03S0412 00248000 * END; 03S0413 00249000 * IF ERRSW=OFF THEN 02S0414 00250000 @RC00392 DS 0H 02S0414 00251000 @RC00387 DS 0H 02S0414 00252000 @RC00382 TM ERRSW,B'10000000' 02S0414 00253000 BNZ @RF00414 02S0414 00254000 * DO; 02S0415 00255000 * 03S0416 00256000 * /*********************************************************/ 00257000 * /* */ 00258000 * /* PROCESS.PROCSWC: THIS SEGMENT WILL COMPLETE THE SWITCH*/ 00259000 * /* TO THE 3705 BACKUP */ 00260000 * /* */ 00261000 * /*********************************************************/ 00262000 * 03S0416 00263000 *TESTBKUP: /* @YM07272*/ 00264000 * RTRM=RPARM-LENGTH(IEDNTRM);/* SET UP TTE ADDRESS @YM07272*/ 00265000 * 03S0416 00266000 TESTBKUP LR RTRM,RPARM 03S0416 00267000 SL RTRM,@CF01731 03S0416 00268000 * /*********************************************************/ 00269000 * /* */ 00270000 * /* THIS ROUTINE VALIDATES THAT THE ENTRY IS AN NCP AND */ 00271000 * /* HAS AN INACTIVE STATUS @YM07272*/ 00272000 * /* */ 00273000 * /*********************************************************/ 00274000 * 03S0417 00275000 * IF TRMPREF=OFF|TRMTYPE^=TRMLNCP THEN/* IS TTE A NCP 03S0417 00276000 * @YM07272*/ 00277000 TM TRMPREF(RTRM),B'00010000' 03S0417 00278000 BZ @RT00417 03S0417 00279000 CLI TRMTYPE(RTRM),X'0F' 03S0417 00280000 BE @RF00417 03S0417 00281000 @RT00417 DS 0H 03S0418 00282000 * DO; /* @YM07272*/ 00283000 * RZERO=MSG18; /* SET NOT 3795 MESSAGE NO 03S0419 00284000 * @YM07272*/ 00285000 LH RZERO,MSG18 03S0419 00286000 * CALL ERREXIT; /* CALL ERROR EXIT @YM07272*/ 00287000 BAL @14,ERREXIT 03S0420 00288000 * END; /* @YM07272*/ 00289000 * ELSE /* @YM07272*/ 00290000 * IF TRMRSACT=ON|TRMINPG=ON|TRMIPLDM=ON THEN/* ARE THE 00291000 * ACTIVE OR OR ACT/DEACT OR 00292000 * IPL/DMP BITS ON @YM07272*/ 00293000 B @RC00417 03S0422 00294000 @RF00417 TM TRMRSACT(RTRM),B'10100000' 03S0422 00295000 BNZ @RT00422 03S0422 00296000 TM TRMIPLDM(RTRM),B'10000000' 03S0422 00297000 BNO @RF00422 03S0422 00298000 @RT00422 DS 0H 03S0423 00299000 * DO; /* @YM07272*/ 00300000 * RZERO=MSG203; /* SET 3705 IS ACTIVE MESSAGE NO 00301000 * @YM07272*/ 00302000 LH RZERO,MSG203 03S0424 00303000 * CALL ERREXIT; /* CALL ERRPR EXIT ROUTINE 03S0425 00304000 * @YM07272*/ 00305000 BAL @14,ERREXIT 03S0425 00306000 * END; /* @YM07272*/ 00307000 * IF ERRSW=OFF THEN /* IF NO ERROR FOUND THEN 03S0427 00308000 * CONTINUE @YM07272*/ 00309000 @RF00422 DS 0H 03S0427 00310000 @RC00417 TM ERRSW,B'10000000' 03S0427 00311000 BNZ @RF00427 03S0427 00312000 * DO; /* @YM07272*/ 00313000 * RQCB=TRMDESTQ; /* SET INVALID STATUS MSG */ 00314000 SLR RQCB,RQCB 03S0429 00315000 ICM RQCB,7,TRMDESTQ(RTRM) 03S0429 00316000 * RDCB=QCBDCBAD; /* SET DCB POINTER BASE */ 00317000 L @11,QCBDCBAD-1(,RQCB) 03S0430 00318000 LA @11,0(,@11) 03S0430 00319000 LR RDCB,@11 03S0430 00320000 * IF DCBOFOPN=ON THEN /* BACKUP DCB HAS OPEN STATUS 00321000 * @YM07710*/ 00322000 TM DCBOFOPN+40(RDCB),B'00010000' 03S0431 00323000 BNO @RF00431 03S0431 00324000 * IF TRMRSACT=OFF&TRMINPG=OFF&TRMIPLDM=OFF THEN/* ARE 00325000 * THE ACTIVE OR ACT/DEACT OR 00326000 * IPL/DMP BITS OFF */ 00327000 TM TRMRSACT(RTRM),B'10100000' 03S0432 00328000 BNZ @RF00432 03S0432 00329000 TM TRMIPLDM(RTRM),B'10000000' 03S0432 00330000 BNZ @RF00432 03S0432 00331000 * IF TRMNCPI=ON THEN/* DOES BACKUP 3705 HAVE DEV 00332000 * DEP INFORMATION */ 00333000 TM TRMNCPI(RTRM),B'00001000' 03S0433 00334000 BNO @RF00433 03S0433 00335000 * DO; 03S0434 00336000 * RZERO=TRMNCPIM;/* SET UP MASK FOR 3705 DEVICE 00337000 * DEPEND INFORMATION */ 00338000 LA RZERO,8 03S0435 00339000 * RPARM=ADDR(IEDQTRM);/* SETUP OLD 3705 TTE 00340000 * POINTER @YM07710*/ 00341000 LA RPARM,IEDQTRM(,RTRM) 03S0436 00342000 * CALL DDFLOOK;/* CALL 3705 DEVICE DEPEND 03S0437 00343000 * INFORMATION ROUTINE */ 00344000 L @15,AVTDDFT(,RAVT) 03S0437 00345000 BALR @14,@15 03S0437 00346000 * RNCP=RBRNCH;/* SET BASE FOR DEV DEP INFO 00347000 * @YM07710*/ 00348000 LR RNCP,RBRNCH 03S0438 00349000 * OPCWRKSP(2)=RNCP;/* SAVE BACKUP DEV. DEPEND 00350000 * INFORMATION POINTER @YM07710*/ 00351000 ST RNCP,OPCWRKSP+4(,ROPCAVT) 03S0439 00352000 * IF NCPBKUP=OFF THEN 03S0440 00353000 TM NCPBKUP(RNCP),B'00000100' 03S0440 00354000 BNZ @RF00440 03S0440 00355000 * DO; /* IS 3705 AVAILABLE AS A BACKUP 00356000 * @YM07710*/ 00357000 * RZERO=MSG184;/* NO, SET MESSAGE NUMBER 00358000 * FOR INVALID BACKUP @YM07710*/ 00359000 LH RZERO,MSG184 03S0442 00360000 * CALL ERREXIT;/* CALL ERROR EXIT ROUTINE 00361000 * @YM07710*/ 00362000 BAL @14,ERREXIT 03S0443 00363000 * END; /* @YM07710*/ 00364000 * ELSE /* BACKUP IS VALID, CONTINUE 00365000 * @YM07710*/ 00366000 * IF OCCONSOL=ON THEN 03S0445 00367000 B @RC00440 03S0445 00368000 @RF00440 TM OCCONSOL(ROPCE),B'10000000' 03S0445 00369000 BNO @RF00445 03S0445 00370000 * DO; /* CONSOLE INPUT? */ 00371000 * WRKAREA=WRKAREA&&WRKAREA;/* CLEAR WTOR 00372000 * LIST */ 00373000 XC WRKAREA(114),WRKAREA 03S0447 00374000 * WTORPRM=WTORLST;/* MOVE LIST TO WORK 00375000 * AREA */ 00376000 MVI WTORPRM+94,C' ' 03S0448 00377000 MVC WTORPRM+95(3),WTORPRM+94 03S0448 00378000 MVC WTORPRM(94),WTORLST 03S0448 00379000 * RPLYADR=ADDR(REPLY);/* INITIALIZE REPLY 00380000 * ADDRESS */ 00381000 LA @11,REPLY 03S0449 00382000 ST @11,RPLYADR 03S0449 00383000 * RPLYLEN=8;/* INITIALIZE REPLY LENGTH */ 00384000 MVI RPLYLEN,X'08' 03S0450 00385000 * ECBADR=ADDR(ECB);/* INITEALIZE ECB 00386000 * ADDRESS */ 00387000 LA @11,ECB 03S0451 00388000 ST @11,ECBADR 03S0451 00389000 * SWFR=OCMODNME;/* SET SWITCH FROM 3705 00390000 * AND @YM08114*/ 00391000 MVC SWFR(8),OCMODNME(ROPCE) 03S0452 00392000 * SWTO=OCBACKUP;/* SWITCH TO 3705 IN WTOR 00393000 * @YM08114*/ 00394000 MVC SWTO(8),OCBACKUP(ROPCE) 03S0453 00395000 * DO WHILE(RPWAIT=OFF); 03S0454 00396000 B @DE00454 03S0454 00397000 @DL00454 DS 0H 03S0455 00398000 * ECB=ECB&&ECB;/* CLEAR ECB FOR WAIT */ 00399000 XC ECB(4),ECB 03S0455 00400000 * RPARM=ADDR(RPLYADR);/* SETUP FOR WTOR*/ 00401000 LA RPARM,RPLYADR 03S0456 00402000 * GEN(WTOR ,MF=(E,(1)));/* ISSUE MSG 00403000 * FOR CONTINUE OR CANCEL */ 00404000 WTOR ,MF=(E,(1)) 00405000 * GEN(WAIT ECB=ECB);/* WAIT ON ECB */ 00406000 WAIT ECB=ECB 00407000 * REPLY=REPLY|BLKS; 03S0459 00408000 OC REPLY(8),BLKS 03S0459 00409000 * IF REPLY^=CONTINUE THEN/* CHECK FOR 00410000 * CONTINUE REPLY */ 00411000 CLC REPLY(8),CONTINUE 03S0460 00412000 BE @RF00460 03S0460 00413000 * DO; 03S0461 00414000 * IF REPLY=CANCEL THEN/* @YM07272*/ 00415000 CLC REPLY(8),CANCEL 03S0462 00416000 BNE @RF00462 03S0462 00417000 * DO; 03S0463 00418000 * RPWAIT=ON;/* GO BACK AND WAIT 00419000 * FOR PROPER REPLY */ 00420000 OI RPWAIT,B'10000000' 03S0464 00421000 * RZERO=MSG204;/* SET UP ERROR 00422000 * MESSAGE 204 */ 00423000 LH RZERO,MSG204 03S0465 00424000 * CALL ERREXIT;/* CALL ERROR EXIT 00425000 * ROUTINE */ 00426000 BAL @14,ERREXIT 03S0466 00427000 * END; 03S0467 00428000 * END; 03S0468 00429000 * ELSE 03S0469 00430000 * DO; 03S0469 00431000 B @RC00460 03S0469 00432000 @RF00460 DS 0H 03S0470 00433000 * RPWAIT=ON;/* GO BACK AND WAIT FOR 00434000 * PROPER REPLY */ 00435000 OI RPWAIT,B'10000000' 03S0470 00436000 * END; 03S0471 00437000 * END; 03S0472 00438000 @RC00460 DS 0H 03S0472 00439000 @DE00454 TM RPWAIT,B'10000000' 03S0472 00440000 BZ @DL00454 03S0472 00441000 * END; 03S0473 00442000 * IF ERRSW=OFF THEN/* @YM07272*/ 00443000 @RF00445 DS 0H 03S0474 00444000 @RC00440 TM ERRSW,B'10000000' 03S0474 00445000 BNZ @RF00474 03S0474 00446000 * DO; 03S0475 00447000 * RNCP=OPCWRKSP(2);/* DEVICE DEPEND SECTION 00448000 * OF BACKUP @YM07710*/ 00449000 L RNCP,OPCWRKSP+4(,ROPCAVT) 03S0476 00450000 * RPARM=OPCWRKSP(1);/* MAP ADDR OF BACKUP 00451000 * 3705 DEV DEP FLD INFO @YM07710*/ 00452000 L RPARM,OPCWRKSP(,ROPCAVT) 03S0477 00453000 * RNCP->NCPFLAG1=RPARM->NCPFLAG1;/* SAVE 00454000 * FLAGS IN BACKUP @YM07272*/ 00455000 MVC NCPFLAG1(1,RNCP),NCPFLAG1(RPARM) 03S0478 00456000 * RNCP->NCPDPDCB=RPARM->NCPDPDCB;/* SAVE 00457000 * DUMP DCB ADDRESS @YM07272*/ 00458000 MVC NCPDPDCB(4,RNCP),NCPDPDCB(RPARM) 03S0479 00459000 * RNCP->NCPLTRAC=RPARM->NCPLTRAC;/* SAVE 00460000 * LINE TRACE TABLE @YM07272*/ 00461000 MVC NCPLTRAC(4,RNCP),NCPLTRAC(RPARM) 03S0480 00462000 * RNCP->NCPCKPT=RPARM->NCPCKPT;/* SAVE 00463000 * CHECKPOINT DCB ADDRESS 03S0481 00464000 * @YM07272*/ 00465000 MVC NCPCKPT(4,RNCP),NCPCKPT(RPARM) 03S0481 00466000 * RLCB=DCBIOBAD+DCBEIOBX-(ADDR(LCBFLAG1)-ADDR 00467000 * (IEDQLCB));/* */ 00468000 LA @11,20 03S0482 00469000 ALR @11,RDCB 03S0482 00470000 SLR @07,@07 03S0482 00471000 IC @07,DCBEIOBX(,@11) 03S0482 00472000 AL @07,DCBIOBAD(,@11) 03S0482 00473000 SL @07,@CF00044 03S0482 00474000 LR RLCB,@07 03S0482 00475000 * LCBIPLRQ=ON;/* SET 3705 NEEDS IPL SWITCH */ 00476000 OI LCBIPLRQ(RLCB),B'00100000' 03S0483 00477000 * LCBPRI=PRIAIPL;/* SET DE PRIORITY */ 00478000 MVI LCBPRI(RLCB),X'DE' 03S0484 00479000 * LCBQCBA=ADDR(AVTOPCOB);/* SET OP CTL QCB 00480000 * ADDRESS */ 00481000 LA @11,AVTOPCOB(,RAVT) 03S0485 00482000 STCM @11,7,LCBQCBA(RLCB) 03S0485 00483000 * OPCAQFST=RLCB;/* SET LCB ADDRESS IN FIRST 00484000 * ADDRESS */ 00485000 STCM RLCB,7,OPCAQFST(ROPCAVT) 03S0486 00486000 * OPCAQSEC=RLCB;/* SET LCB ADDRESS IN 03S0487 00487000 * SECOND ADDRESS */ 00488000 STCM RLCB,7,OPCAQSEC(ROPCAVT) 03S0487 00489000 * OPCAQREQ=SVCRCC0;/* SET SVC REQUEST CODE */ 00490000 MVI OPCAQREQ(ROPCAVT),X'C0' 03S0488 00491000 * OPCAQRQ3=ACTC80;/* SET ACTION CODE */ 00492000 MVI OPCAQRQ3(ROPCAVT),X'80' 03S0489 00493000 * RPARM=ADDR(OPCAQCTL);/* POINTER TO SVC 00494000 * 102 PARM LIST */ 00495000 LA RPARM,OPCAQCTL(,ROPCAVT) 03S0490 00496000 * GEN(SVC 102); 03S0491 00497000 SVC 102 00498000 * RZERO=MSGNO;/* SET REQUEST PERFORMED */ 00499000 LH RZERO,MSGNO 03S0492 00500000 * OPCMODID=WTGMOD; 03S0493 00501000 MVC OPCMODID(2,ROPCAVT),WTGMOD 03S0493 00502000 * END; 03S0494 00503000 * END; 03S0495 00504000 * ELSE 03S0496 00505000 * DO; 03S0496 00506000 B @RC00433 03S0496 00507000 @RF00433 DS 0H 03S0497 00508000 * RZERO=MSG184;/* SET UP ERROR MESSAGE 184 */ 00509000 LH RZERO,MSG184 03S0497 00510000 * CALL ERREXIT;/* CALL ERROR EXIT ROUTINE */ 00511000 BAL @14,ERREXIT 03S0498 00512000 * END; 03S0499 00513000 * ELSE 03S0500 00514000 * DO; 03S0500 00515000 B @RC00432 03S0500 00516000 @RF00432 DS 0H 03S0501 00517000 * RZERO=MSG206; /* SET 3705 IS ACTIVE MSG */ 00518000 LH RZERO,MSG206 03S0501 00519000 * CALL ERREXIT; /* CALL ERROR EXIT ROUTINE */ 00520000 BAL @14,ERREXIT 03S0502 00521000 * END; 03S0503 00522000 * ELSE 03S0504 00523000 * DO; 03S0504 00524000 B @RC00431 03S0504 00525000 @RF00431 DS 0H 03S0505 00526000 * RZERO=MSG17; /* SET INVALID STATUS MESSAGE */ 00527000 LH RZERO,MSG17 03S0505 00528000 * CALL ERREXIT; /* CALL THE ERROR EXIT ROUTINE */ 00529000 BAL @14,ERREXIT 03S0506 00530000 * END; 03S0507 00531000 * END; /* @YM07272*/ 00532000 @RC00431 DS 0H 03S0509 00533000 * END; 02S0509 00534000 @RF00427 DS 0H 02S0510 00535000 * END; 02S0510 00536000 @RF00414 DS 0H 02S0511 00537000 * 03S0511 00538000 * /*****************************************************************/ 00539000 * /* */ 00540000 * /* PROCESS.EPILOGUE: THIS SEGMENT COMPLETES THE EXIT CODE THAT */ 00541000 * /* WAS ALTERED BY THE MODULE PROCEDURE STATEMENT. THE XCTL SYSTEM*/ 00542000 * /* MACRO INSTRUCTION IS USED BY THIS SEGMENT TO TRANSFER CONTROL */ 00543000 * /* TO THE NEXT MODULE THAT IS TO BE EXECUTED. */ 00544000 * /* */ 00545000 * /*****************************************************************/ 00546000 * 03S0511 00547000 * RPARM=ROPCAVT; /* SET THE ARGUMENT REGISTER IN 00548000 * PREPARATION TO TRANSFERRING 00549000 * CONTROL TO THE NEXT MODULE */ 00550000 @RF00380 LR RPARM,ROPCAVT 03S0511 00551000 * GEN EXIT REFS(OPCXCTL,ROPCAVT) NOSEQFLOW SETS(RBRNCH); 03S0512 00552000 * /* 00553000 XCTL SF=(E,OPCXCTL(ROPCAVT)) TRANSFER CONTROL MACRO 00554000 * 02S0513 00555000 * /*****************************************************************/ 00556000 * /* */ 00557000 * /* ERREXIT: THIS ROUTINE SETS UP THE ERROR MODULE ID AND SETS THE*/ 00558000 * /* ERROR EXIT SWITCH */ 00559000 * /* */ 00560000 * /*****************************************************************/ 00561000 * 02S0513 00562000 *ERREXIT: 02S0513 00563000 * PROC OPTIONS(RETREG,NOSAVE,NOSAVEAREA); 02S0513 00564000 ERREXIT DS 0H 02S0514 00565000 * OPCWRKSP(1)=RRETURN; /* SAVE RETURN REGISTER @YM07272*/ 00566000 ST RRETURN,OPCWRKSP(,ROPCAVT) 02S0514 00567000 * OPCMODID=ERRMOD; /* SET ERROR MODULE ID */ 00568000 MVC OPCMODID(2,ROPCAVT),ERRMOD 02S0515 00569000 * ERRSW=ON; /* SET ERROR SWITCH TO ONE */ 00570000 OI ERRSW,B'10000000' 02S0516 00571000 * RRETURN=OPCWRKSP(1); /* SET UP RETURN REGISTER 02S0517 00572000 * @YM07272*/ 00573000 L @11,OPCWRKSP(,ROPCAVT) 02S0517 00574000 LR RRETURN,@11 02S0517 00575000 * END ERREXIT; 02S0518 00576000 @EL00002 DS 0H 02S0518 00577000 @EF00002 DS 0H 02S0518 00578000 @ER00002 BR @14 02S0518 00579000 * END IGCSW10D 01S0519 00580000 * 01S0519 00581000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00582000 */*%INCLUDE SYSLIB (TAVTD ) */ 00583000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00584000 */*%INCLUDE SYSLIB (IHADCB ) */ 00585000 */*%INCLUDE SYSLIB (TLCBD ) */ 00586000 */*%INCLUDE SYSLIB (TNCPID ) */ 00587000 */*%INCLUDE SYSLIB (TOPCED ) */ 00588000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00589000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00590000 */*%INCLUDE SYSLIB (TQCBD ) */ 00591000 */*%INCLUDE SYSLIB (TTNTD ) */ 00592000 */*%INCLUDE SYSLIB (TTRMD ) */ 00593000 */*%INCLUDE SYSUT5 (RFY ) */ 00594000 */*%INCLUDE SYSUT5 (DCL ) */ 00595000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00596000 */*%INCLUDE SYSUT5 (PROCESS ) */ 00597000 */*%INCLUDE SYSUT5 (INITIAL ) */ 00598000 */*%INCLUDE SYSUT5 (COMINV ) */ 00599000 */*%INCLUDE SYSUT5 (VALIDATE) */ 00600000 */*%INCLUDE SYSUT5 (PROCSW ) */ 00601000 */*%INCLUDE SYSUT5 (PROCSWC ) */ 00602000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 00603000 */*%INCLUDE SYSUT5 (ERREXIT ) */ 00604000 * 01S0519 00605000 * ; 01S0519 00606000 @DATA DS 0H 00607000 @DATD DSECT 00608000 DS 0F 00609000 IGCSW10D CSECT 00610000 DS 0F 00611000 @CF01731 DC F'14' 00612000 @CF00044 DC F'32' 00613000 @CF02004 DC XL4'0000FFFF' 00614000 @DATD DSECT 00615000 DS 0D 00616000 RPWAIT DS BL1 00617000 ERRSW DS BL1 00618000 DS CL6 00619000 WRKAREA DS CL114 00620000 ORG WRKAREA 00621000 @NM00192 DS CL4 00622000 REPLY DS CL8 00623000 ECB DS CL4 00624000 WTORPRM DS CL98 00625000 ORG WTORPRM 00626000 RPLYADR DS AL4 00627000 ORG RPLYADR 00628000 RPLYLEN DS AL1 00629000 ORG WTORPRM+4 00630000 ECBADR DS AL4 00631000 MSGLEN DS FL2 00632000 MSCFLGS DS CL2 00633000 MESSAGE DS CL82 00634000 ORG MESSAGE 00635000 @NM00193 DS CL20 00636000 SWFR DS CL8 00637000 @NM00194 DS CL4 00638000 SWTO DS CL8 00639000 ORG WTORPRM+94 00640000 DESCCD DS CL2 00641000 ROUTCD DS CL2 00642000 ORG WRKAREA+114 00643000 IGCSW10D CSECT 00644000 NOPR ((@ENDDATD-@DATD)/561*16) 00645000 DS 0F 00646000 @SIZDATD DC AL1(0) 00647000 DC AL3(@ENDDATD-@DATD) 00648000 DS 0D 00649000 MSGNO DC H'202' 00650000 NO3705 DC H'173' 00651000 MSG184 DC H'184' 00652000 MSG204 DC H'204' 00653000 MSG206 DC H'206' 00654000 MSG16 DC H'16' 00655000 MSG17 DC H'17' 00656000 MSG18 DC H'18' 00657000 MSG203 DC H'203' 00658000 PATCH DC XL104'0' 00659000 ERRMOD DC CL2'03' 00660000 WTGMOD DC CL2'M3' 00661000 CANCEL DC CL8'CANCEL' 00662000 CONTINUE DC CL8'CONTINUE' 00663000 BLKS DC CL8' ' 00664000 IGCSW10D CSECT 00665000 WTORLST WTOR 'IED205A SWITCH FROM TO WAITING-REPLY 'X00666000 'CONTINUE'' OR ''CANCEL''.',0,8,0,ROUTCDE=1,DESC=2,MF=L 00667000 @DATD DSECT 00668000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00669000 @ENDDATD EQU * 00670000 IGCSW10D CSECT 00671000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00672000 @01 EQU 01 00673000 @02 EQU 02 00674000 @03 EQU 03 00675000 @04 EQU 04 00676000 @05 EQU 05 00677000 @06 EQU 06 00678000 @07 EQU 07 00679000 @08 EQU 08 00680000 @09 EQU 09 00681000 @10 EQU 10 00682000 @11 EQU 11 00683000 @12 EQU 12 00684000 @13 EQU 13 00685000 @14 EQU 14 00686000 @15 EQU 15 00687000 LCBXPTR EQU @05 00688000 ROPCE EQU @03 00689000 ROPCAVT EQU @02 00690000 RTRM EQU @08 00691000 RAVT EQU @04 00692000 RLCB EQU @09 00693000 RQCB EQU @10 00694000 RNCP EQU @09 00695000 RDCB EQU @10 00696000 RZERO EQU @00 00697000 RPARM EQU @01 00698000 ROPRE EQU @03 00699000 RWORKA EQU @05 00700000 ROPCWK EQU @06 00701000 RBASE EQU @12 00702000 RSAVE EQU @13 00703000 RRETURN EQU @14 00704000 RBRNCH EQU @15 00705000 IEDQAVTD EQU 0 00706000 AVTSAVEX EQU IEDQAVTD+288 00707000 @NM00003 EQU IEDQAVTD+388 00708000 AVTCKFLG EQU @NM00003 00709000 AVTBASE EQU IEDQAVTD+412 00710000 AVTPKF EQU AVTBASE 00711000 AVTRNMPT EQU IEDQAVTD+424 00712000 AVTHG02 EQU IEDQAVTD+528 00713000 AVTDISP EQU IEDQAVTD+552 00714000 AVTHD EQU IEDQAVTD+556 00715000 AVTSCOPT EQU AVTHD 00716000 AVTSAVTP EQU IEDQAVTD+612 00717000 AVTSAVTF EQU AVTSAVTP 00718000 AVTCKPEL EQU IEDQAVTD+652 00719000 AVTCKRMV EQU AVTCKPEL 00720000 AVTCKELF EQU IEDQAVTD+680 00721000 AVTCKBYT EQU IEDQAVTD+691 00722000 AVTHG01 EQU IEDQAVTD+692 00723000 AVTCKLNK EQU IEDQAVTD+696 00724000 AVTCRELE EQU IEDQAVTD+708 00725000 AVTCCELE EQU AVTCRELE 00726000 AVTCLRHI EQU IEDQAVTD+716 00727000 AVTADBUF EQU IEDQAVTD+720 00728000 AVTSYSER EQU IEDQAVTD+728 00729000 AVTCKPQB EQU IEDQAVTD+804 00730000 AVTCKPTB EQU AVTCKPQB 00731000 AVTCKPEC EQU AVTCKPQB+4 00732000 AVTCKPCC EQU AVTCKPEC 00733000 AVTOPCQB EQU IEDQAVTD+816 00734000 AVTOPCOB EQU AVTOPCQB 00735000 AVTOPCEC EQU AVTOPCQB+4 00736000 AVTOPCCC EQU AVTOPCEC 00737000 AVTOLTQB EQU IEDQAVTD+828 00738000 AVTCWFL1 EQU IEDQAVTD+924 00739000 AVTCWFL2 EQU IEDQAVTD+925 00740000 AVTSUBT EQU IEDQAVTD+948 00741000 AVTIOTR EQU IEDQAVTD+949 00742000 AVTBIT1 EQU IEDQAVTD+1050 00743000 AVTBIT2 EQU IEDQAVTD+1051 00744000 AVTBIT3 EQU IEDQAVTD+1052 00745000 AVTDDFT EQU IEDQAVTD+1064 00746000 AVTBIT4 EQU IEDQAVTD+1136 00747000 @NM00083 EQU IEDQAVTD+1232 00748000 IEDQAPTR EQU 0 00749000 IEDNSVTD EQU 0 00750000 SAVTDIAG EQU IEDNSVTD 00751000 SAVTDIAF EQU SAVTDIAG 00752000 SAVTLUSQ EQU IEDNSVTD+88 00753000 SAVTTCPU EQU IEDNSVTD+238 00754000 SAVTZELM EQU IEDNSVTD+270 00755000 SAVTRDRV EQU IEDNSVTD+284 00756000 SAVTCKQB EQU IEDNSVTD+300 00757000 SAVTCKTB EQU SAVTCKQB 00758000 SAVTCKEC EQU SAVTCKQB+4 00759000 SAVTCKCC EQU SAVTCKEC 00760000 IHADCB EQU 0 00761000 DCBPTR EQU 0 00762000 IHADCS1A EQU 0 00763000 DCBBCKUP EQU IHADCS1A+8 00764000 IHADCS2K EQU 0 00765000 DCBDUMPD EQU IHADCS2K 00766000 DCBTRSTA EQU IHADCS2K+5 00767000 DCBDSORG EQU IHADCS2K+6 00768000 DCBDSRG2 EQU DCBDSORG+1 00769000 DCBDSGTR EQU DCBDSRG2 00770000 DCBIOBAD EQU IHADCS2K+8 00771000 DCBRNCKD EQU IHADCS2K+12 00772000 DCBEXLST EQU IHADCS2K+16 00773000 DCBEIOBX EQU DCBEXLST 00774000 IHADCS24 EQU 0 00775000 DCBOFLGS EQU IHADCS24+8 00776000 DCBOFLWR EQU DCBOFLGS 00777000 DCBOFOPN EQU DCBOFLGS 00778000 DCBIFLG EQU IHADCS24+9 00779000 DCBMACR EQU IHADCS24+10 00780000 DCBMACR1 EQU DCBMACR 00781000 DCBMRFE EQU DCBMACR1 00782000 DCBMRGET EQU DCBMRFE 00783000 DCBMRAPG EQU DCBMACR1 00784000 DCBMRRD EQU DCBMRAPG 00785000 DCBMRCI EQU DCBMACR1 00786000 DCBMRMVG EQU DCBMRCI 00787000 DCBMRLCG EQU DCBMACR1 00788000 DCBMRABC EQU DCBMACR1 00789000 DCBMRPT1 EQU DCBMRABC 00790000 DCBMRSBG EQU DCBMRPT1 00791000 DCBMRCRL EQU DCBMACR1 00792000 DCBMRCHK EQU DCBMRCRL 00793000 DCBMRRDX EQU DCBMRCHK 00794000 DCBMRDMG EQU DCBMACR1 00795000 DCBMACR2 EQU DCBMACR+1 00796000 DCBMRPUT EQU DCBMACR2 00797000 DCBMRWRT EQU DCBMACR2 00798000 DCBMRMVP EQU DCBMACR2 00799000 DCBMR5WD EQU DCBMACR2 00800000 DCBMRLDM EQU DCBMR5WD 00801000 DCBMRLCP EQU DCBMRLDM 00802000 DCBMR4WD EQU DCBMACR2 00803000 DCBMRPT2 EQU DCBMR4WD 00804000 DCBMRTMD EQU DCBMRPT2 00805000 DCBMR3WD EQU DCBMACR2 00806000 DCBMRCTL EQU DCBMR3WD 00807000 DCBMRSTK EQU DCBMRCTL 00808000 DCBMR1WD EQU DCBMACR2 00809000 DCBMRSWA EQU DCBMR1WD 00810000 DCBMRDMD EQU DCBMRSWA 00811000 IHADCS25 EQU 0 00812000 DCBMACRF EQU IHADCS25+2 00813000 DCBMACF1 EQU DCBMACRF 00814000 DCBMFFE EQU DCBMACF1 00815000 DCBMFGET EQU DCBMFFE 00816000 DCBMFAPG EQU DCBMACF1 00817000 DCBMFRD EQU DCBMFAPG 00818000 DCBMFCI EQU DCBMACF1 00819000 DCBMFMVG EQU DCBMFCI 00820000 DCBMFLCG EQU DCBMACF1 00821000 DCBMFABC EQU DCBMACF1 00822000 DCBMFPT1 EQU DCBMFABC 00823000 DCBMFSBG EQU DCBMFPT1 00824000 DCBMFCRL EQU DCBMACF1 00825000 DCBMFCHK EQU DCBMFCRL 00826000 DCBMFDMG EQU DCBMACF1 00827000 DCBMACF2 EQU DCBMACRF+1 00828000 DCBMFPUT EQU DCBMACF2 00829000 DCBMFWRT EQU DCBMACF2 00830000 DCBMFMVP EQU DCBMACF2 00831000 DCBMF5WD EQU DCBMACF2 00832000 DCBMFLDM EQU DCBMF5WD 00833000 DCBMFLCP EQU DCBMFLDM 00834000 DCBMF4WD EQU DCBMACF2 00835000 DCBMFPT2 EQU DCBMF4WD 00836000 DCBMFTMD EQU DCBMFPT2 00837000 DCBMF3WD EQU DCBMACF2 00838000 DCBMFCTL EQU DCBMF3WD 00839000 DCBMFSTK EQU DCBMFCTL 00840000 DCBMF1WD EQU DCBMACF2 00841000 DCBMFSWA EQU DCBMF1WD 00842000 DCBMFDMD EQU DCBMFSWA 00843000 DCBDEBAD EQU IHADCS25+4 00844000 DCBIFLGS EQU DCBDEBAD 00845000 IHADCS27 EQU 0 00846000 DCBGET EQU IHADCS27 00847000 IHADCS43 EQU 0 00848000 DCBSCTAB EQU IHADCS43 00849000 IEDQLCB EQU 0 00850000 LCBRCB EQU IEDQLCB 00851000 LCBQCBA EQU LCBRCB+1 00852000 LCBPRI EQU LCBRCB+4 00853000 LCBTSOB EQU IEDQLCB+19 00854000 LCBCHAIN EQU IEDQLCB+20 00855000 LCBSCRNN EQU LCBCHAIN 00856000 LCBTETEN EQU LCBCHAIN 00857000 LCBINSRC EQU IEDQLCB+21 00858000 LCBLKMDE EQU LCBINSRC+2 00859000 LCBNTXT EQU IEDQLCB+24 00860000 LCBSTAT4 EQU LCBNTXT 00861000 LCBIPLRQ EQU LCBSTAT4 00862000 LCBPHASE EQU LCBSTAT4 00863000 LCBSCBDA EQU IEDQLCB+25 00864000 LCBMHA EQU IEDQLCB+29 00865000 LCBFLAG1 EQU IEDQLCB+32 00866000 LCBIOBSN EQU IEDQLCB+33 00867000 LCBSENS0 EQU LCBIOBSN+1 00868000 LCBLOSDT EQU LCBSENS0 00869000 LCBTMOUT EQU LCBSENS0 00870000 LCBFLAG3 EQU LCBIOBSN+7 00871000 LCBCSW EQU LCBIOBSN+8 00872000 LCBCSWST EQU LCBCSW+3 00873000 LCBCSWUS EQU LCBCSWST 00874000 LCBCSWCS EQU LCBCSWST+1 00875000 LCBSIOCC EQU LCBIOBSN+15 00876000 LCBDCBPT EQU IEDQLCB+52 00877000 LCBRCQCB EQU IEDQLCB+56 00878000 LCBTHSQ EQU IEDQLCB+60 00879000 LCBINCAM EQU LCBTHSQ 00880000 LCBERRCT EQU IEDQLCB+62 00881000 LCBLSPCI EQU IEDQLCB+65 00882000 LCBRCBFR EQU LCBLSPCI 00883000 LCBSTATE EQU IEDQLCB+70 00884000 LCBSTAT1 EQU LCBSTATE 00885000 LCBSTAT2 EQU LCBSTATE+1 00886000 LCBBEOTN EQU LCBSTAT2 00887000 LCBSYNC EQU LCBSTAT2 00888000 LCBDIAL EQU LCBSTAT2 00889000 LCBTSTSW EQU IEDQLCB+72 00890000 LCBERB EQU IEDQLCB+76 00891000 LCBERBST EQU IEDQLCB+84 00892000 LCBDLNKN EQU LCBERBST 00893000 LCBERBCT EQU IEDQLCB+88 00894000 LCBRBCT2 EQU LCBERBCT+1 00895000 LCBTTCIN EQU IEDQLCB+90 00896000 LCBMSGFM EQU IEDQLCB+92 00897000 LCBOBRCH EQU IEDQLCB+96 00898000 LCBINVPT EQU LCBOBRCH+1 00899000 LCBBFRW EQU LCBINVPT 00900000 LCBTPCD EQU IEDQLCB+100 00901000 LCBSTAT5 EQU LCBTPCD 00902000 LCBSTAT6 EQU LCBTPCD+4 00903000 LCBRSPSV EQU LCBTPCD+8 00904000 LCBSAVSN EQU IEDQLCB+112 00905000 LCBERCCW EQU IEDQLCB+120 00906000 LCBCPA EQU IEDQLCB+144 00907000 IEDQLPTR EQU 0 00908000 IEDQLCBX EQU 0 00909000 LCBXCON EQU IEDQLCBX 00910000 LCBXFLAG EQU LCBXCON 00911000 LCBXDCT EQU LCBXCON+1 00912000 LCBXRADR EQU LCBXCON+4 00913000 IEDNCP EQU 0 00914000 NCPFLAG1 EQU IEDNCP+1 00915000 NCPBKUP EQU NCPFLAG1 00916000 NCPBKUPN EQU IEDNCP+2 00917000 NCPDPDCB EQU IEDNCP+18 00918000 NCPCKPT EQU IEDNCP+22 00919000 NCPLTRAC EQU IEDNCP+26 00920000 IEDQOPCE EQU 0 00921000 OCELEM EQU IEDQOPCE+4 00922000 OCUNIT EQU IEDQOPCE+8 00923000 OCRUDEST EQU OCUNIT 00924000 OCCKPKEY EQU OCRUDEST 00925000 OCSCAN EQU OCCKPKEY 00926000 OCNONAME EQU OCSCAN 00927000 OCOPTCDE EQU IEDQOPCE+12 00928000 OCSWITCH EQU IEDQOPCE+13 00929000 OCFLAG EQU IEDQOPCE+14 00930000 OCCONSOL EQU OCFLAG 00931000 @NM00154 EQU IEDQOPCE+16 00932000 OCDEST EQU @NM00154 00933000 OCREQVAL EQU OCDEST+1 00934000 OCLINENO EQU IEDQOPCE+22 00935000 OCTIOT EQU OCLINENO 00936000 OCTRUNIT EQU IEDQOPCE+24 00937000 OCRSID EQU OCTRUNIT 00938000 OCALSTAT EQU OCRSID 00939000 OCPARM EQU IEDQOPCE+28 00940000 OCBACKUP EQU IEDQOPCE+32 00941000 OCMODNME EQU IEDQOPCE+40 00942000 OCIPLWA EQU OCMODNME 00943000 OCCKDATA EQU IEDQOPCE+48 00944000 OCRSTGTM EQU OCCKDATA 00945000 IEDQOPCN EQU 0 00946000 OCLDNME EQU IEDQOPCN 00947000 OCLINTTE EQU OCLDNME 00948000 OCREQFLG EQU OCLINTTE+2 00949000 OCPREFLG EQU OCLINTTE+3 00950000 IEDQOPCD EQU 0 00951000 OPCDOUBL EQU IEDQOPCD 00952000 OPCAVTPT EQU IEDQOPCD+8 00953000 OPCCOPCE EQU IEDQOPCD+12 00954000 OPCDCBLK EQU IEDQOPCD+16 00955000 OPCTOFLK EQU IEDQOPCD+24 00956000 OPCSAVE EQU IEDQOPCD+56 00957000 OPCWORK EQU IEDQOPCD+140 00958000 OPCAQCTL EQU IEDQOPCD+180 00959000 OPCXCTL EQU IEDQOPCD+204 00960000 OPCLDNME EQU IEDQOPCD+212 00961000 OPCMODID EQU OPCLDNME+3 00962000 OPCSPEC EQU IEDQOPCD+300 00963000 OPCWRKSP EQU IEDQOPCD+320 00964000 OPCPWCOB EQU IEDQOPCD+368 00965000 OPCPWQCB EQU OPCPWCOB 00966000 OPCPWECB EQU OPCPWCOB+4 00967000 IEDQQCB EQU 0 00968000 QCBDSFLG EQU IEDQQCB 00969000 QCBDISK EQU QCBDSFLG 00970000 QCBEOLDT EQU IEDQQCB+16 00971000 QCBBYTE1 EQU QCBEOLDT+1 00972000 QCBLKRLN EQU IEDQQCB+18 00973000 QCBRETCT EQU QCBLKRLN 00974000 QCBSTAT EQU IEDQQCB+19 00975000 QCBINSRC EQU IEDQQCB+21 00976000 @NM00181 EQU QCBINSRC 00977000 QCBTSOF2 EQU @NM00181+1 00978000 QCBTSOF1 EQU @NM00181+2 00979000 QCBINTVL EQU IEDQQCB+24 00980000 QCBPREN EQU IEDQQCB+28 00981000 QCBLKRRN EQU QCBPREN+1 00982000 QCBDCBAD EQU IEDQQCB+33 00983000 QCBFLAG EQU IEDQQCB+36 00984000 IEDQQPTR EQU 0 00985000 IEDQPQCB EQU 0 00986000 QCBFHDLZ EQU IEDQPQCB+3 00987000 QCBPFEFO EQU QCBFHDLZ+1 00988000 QCBFHDTZ EQU IEDQPQCB+6 00989000 QCBINTLF EQU IEDQPQCB+12 00990000 IEDNQCB EQU 0 00991000 QCBSTAT1 EQU IEDNQCB+4 00992000 QCBPLCBA EQU IEDNQCB+5 00993000 IEDQTNTD EQU 0 00994000 IEDQTCDE EQU IEDQTNTD 00995000 IEDQTDCE EQU IEDQTNTD+46 00996000 IEDQNPTR EQU 0 00997000 IEDTNTA EQU 0 00998000 IEDTRM EQU 0 00999000 IEDNTRM EQU IEDTRM 01000000 TRMBYTE4 EQU IEDNTRM 01001000 TRMBYTE3 EQU IEDNTRM+1 01002000 TRMBYTE2 EQU IEDNTRM+2 01003000 TRMRSACT EQU TRMBYTE2 01004000 TRMINPG EQU TRMBYTE2 01005000 TRMBYTE1 EQU IEDNTRM+3 01006000 TRMSCPRQ EQU TRMBYTE1 01007000 TRMBYTE0 EQU IEDNTRM+6 01008000 TRMSIBPT EQU IEDNTRM+7 01009000 TRMTYPE EQU IEDNTRM+11 01010000 IEDQTRM EQU IEDTRM+14 01011000 TRMSTATE EQU IEDQTRM 01012000 TRMLOG EQU TRMSTATE 01013000 TRMPREF EQU TRMSTATE 01014000 TRMDESTQ EQU IEDQTRM+1 01015000 TRMINSEQ EQU IEDQTRM+4 01016000 TLISTCNT EQU TRMINSEQ 01017000 TRMOUTSQ EQU IEDQTRM+6 01018000 TLISTEN EQU TRMOUTSQ 01019000 TRMDSORG EQU TLISTEN 01020000 TRMALTD EQU IEDQTRM+8 01021000 TRMDEVFL EQU IEDQTRM+10 01022000 TRMNCPI EQU TRMDEVFL+1 01023000 TRMSTAT EQU IEDQTRM+12 01024000 IEDQTNT EQU 0 01025000 TRMOFLOC EQU 0 01026000 DDFLOOK EQU 0 01027000 DCBLOOK EQU 0 01028000 IEDNSLP EQU 0 01029000 IEDQDPTR EQU 0 01030000 IEDQEPTR EQU 0 01031000 IEDQTPTR EQU 0 01032000 TNTCODE EQU 0 01033000 TNTDCODE EQU 0 01034000 TNTFIRST EQU 0 01035000 LCBRSPIN EQU LCBIOBSN 01036000 LCBLUSNS EQU LCBRSPIN+5 01037000 LCBSCPRS EQU LCBRSPIN+9 01038000 LCBCSWU1 EQU LCBSCPRS+2 01039000 LCBRSPFG EQU LCBRSPIN+15 01040000 LCBCOREQ EQU LCBTPCD 01041000 @NM00137 EQU LCBCPA+40 01042000 LCBQNX EQU LCBERCCW 01043000 LCBQNXMN EQU LCBQNX 01044000 LCBCANCL EQU LCBSAVSN 01045000 LCBCANFG EQU LCBCANCL 01046000 OCCKPKY1 EQU OCCKPKEY 01047000 OCCKPTYP EQU OCCKPKY1 01048000 OCICACTN EQU OCMODNME 01049000 OCICDADR EQU OCICACTN 01050000 OCICSW EQU OCICDADR+3 01051000 OPCAQWD EQU OPCAQCTL 01052000 OPCAQWD1 EQU OPCAQWD 01053000 OPCAQREQ EQU OPCAQWD1 01054000 OPCAQFST EQU OPCAQWD1+1 01055000 OPCAQWD2 EQU OPCAQWD+4 01056000 OPCAQSEC EQU OPCAQWD2+1 01057000 OPCAQWD3 EQU OPCAQWD+8 01058000 OPCAQRQ3 EQU OPCAQWD3 01059000 TRMPRE1 EQU TRMBYTE4 01060000 TRMNCP1 EQU TRMBYTE4 01061000 TRMPRE EQU TRMBYTE3 01062000 TRMNCP EQU TRMBYTE3 01063000 TRMIPLDM EQU TRMNCP 01064000 TRMPU EQU TRMBYTE3 01065000 TRMLU EQU TRMBYTE3 01066000 TRMLINK EQU TRMBYTE3 01067000 OCCIB EQU OCREQVAL 01068000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01069000 @NM00191 EQU TRMLINK 01070000 TRMLSTAT EQU TRMLINK 01071000 TRMLINT EQU TRMLINK 01072000 TRMEPMOD EQU TRMLINK 01073000 TRMLULOG EQU TRMLU 01074000 TRMINERR EQU TRMLU 01075000 TRMLUREQ EQU TRMLU 01076000 TRMSESRQ EQU TRMLU 01077000 TRMTDIFF EQU TRMLU 01078000 TRMLUTM EQU TRMLU 01079000 TRMLUIT EQU TRMLU 01080000 TRMAUTO EQU TRMLU 01081000 TRMPCONT EQU TRMPU 01082000 @NM00190 EQU TRMPU 01083000 TRMNCONT EQU TRMNCP 01084000 TRMQUCKN EQU TRMNCP 01085000 TRMSLOWN EQU TRMNCP 01086000 TRMSYGEN EQU TRMNCP 01087000 TRMNCPCL EQU TRMNCP 01088000 TRMINOUT EQU TRMPRE 01089000 TRMRDOUT EQU TRMPRE 01090000 TRMNLOUT EQU TRMPRE 01091000 TRMWROUT EQU TRMPRE 01092000 TRMASNXI EQU TRMPRE 01093000 TRMSTMM EQU TRMPRE 01094000 TRMCMODE EQU TRMPRE 01095000 TRMSTPND EQU TRMPRE 01096000 @NM00189 EQU TRMNCP1 01097000 TRMINOP EQU TRMNCP1 01098000 TRMLYNCH EQU TRMPRE1 01099000 TRMSPOUT EQU TRMPRE1 01100000 TRMERLCK EQU TRMPRE1 01101000 TRMQNPL EQU TRMPRE1 01102000 TRMSPACT EQU TRMPRE1 01103000 TRMOCNI EQU TRMPRE1 01104000 TRMSESSN EQU TRMPRE1 01105000 TRMCONT EQU TRMPRE1 01106000 OPCAQLST EQU OPCAQWD3+1 01107000 OPCAQRQ2 EQU OPCAQWD2 01108000 OCICINAC EQU OCICSW 01109000 @NM00160 EQU OCICSW 01110000 OCICATST EQU OCICDADR+1 01111000 OCICTYPE EQU OCICDADR 01112000 @NM00159 EQU OCCKPKY1 01113000 OCCKPENV EQU OCCKPKY1 01114000 OCCKPRST EQU OCCKPTYP 01115000 OCCKPNCP EQU OCCKPTYP 01116000 OCCKPINC EQU OCCKPTYP 01117000 @NM00144 EQU LCBCANCL+3 01118000 LCBCANTH EQU LCBCANCL+1 01119000 @NM00143 EQU LCBCANFG 01120000 LCBCANCD EQU LCBCANFG 01121000 @NM00142 EQU LCBCANFG 01122000 LCBCANEB EQU LCBCANFG 01123000 LCBCANXT EQU LCBCANFG 01124000 LCBUNADD EQU LCBQNX+21 01125000 LCBUASZE EQU LCBQNX+20 01126000 LCBDSTEA EQU LCBQNX+16 01127000 @NM00141 EQU LCBQNX+4 01128000 LCBSTSAV EQU LCBQNX+1 01129000 @NM00140 EQU LCBQNXMN 01130000 LCBNX509 EQU LCBQNXMN 01131000 LCBNX162 EQU LCBQNXMN 01132000 LCBNX142 EQU LCBQNXMN 01133000 LCBNX064 EQU LCBQNXMN 01134000 @NM00139 EQU @NM00137+4 01135000 LCBNCPPT EQU @NM00137+1 01136000 @NM00138 EQU @NM00137 01137000 LCBWRSCH EQU LCBCOREQ+8 01138000 LCBCQLNK EQU LCBCOREQ+4 01139000 LCBCQELE EQU LCBCOREQ 01140000 LCBPAKCH EQU LCBRSPIN+16 01141000 @NM00136 EQU LCBRSPFG 01142000 LCBRSRH EQU LCBRSPFG 01143000 LCBEXPI EQU LCBRSPFG 01144000 @NM00135 EQU LCBRSPIN+12 01145000 LCBUSUE1 EQU LCBCSWU1 01146000 @NM00134 EQU LCBCSWU1 01147000 @NM00133 EQU LCBSCPRS+1 01148000 LCBDFCMD EQU LCBSCPRS 01149000 LCBUSER EQU LCBLUSNS+2 01150000 LCBSMIN EQU LCBLUSNS+1 01151000 LCBSMAJ EQU LCBLUSNS 01152000 LCBRHSV EQU LCBRSPIN+2 01153000 LCBSNS0 EQU LCBRSPIN+1 01154000 @NM00132 EQU LCBRSPIN 01155000 TRMOPT EQU IEDTRM+34 01156000 TRMOPTBL EQU IEDQTRM+18 01157000 TRMOPNO EQU IEDQTRM+17 01158000 TRMCHCIN EQU IEDQTRM+16 01159000 TRMSENSE EQU TRMSTAT+3 01160000 TRMTEMPR EQU TRMSTAT+2 01161000 TRMSIO EQU TRMSTAT 01162000 @NM00188 EQU TRMDEVFL+1 01163000 TRMTPIN EQU TRMDEVFL+1 01164000 TRMRNTRM EQU TRMDEVFL+1 01165000 @NM00187 EQU TRMDEVFL+1 01166000 TRMLMD EQU TRMDEVFL+1 01167000 TRMCONC EQU TRMDEVFL+1 01168000 TRMTSOB EQU TRMDEVFL 01169000 TRMBFDY EQU TRMDEVFL 01170000 TRMTBLK EQU TRMDEVFL 01171000 TRMSBLK EQU TRMDEVFL 01172000 TRMBLKS EQU TRMDEVFL 01173000 TRMADDC EQU TRMDEVFL 01174000 TRMDDIG EQU TRMDEVFL 01175000 TRMBUFS EQU TRMDEVFL 01176000 TRMPRILK EQU TRMALTD 01177000 TRMLGB EQU TRMDSORG 01178000 TRMUTERM EQU TLISTCNT 01179000 TRMSCNYN EQU TRMSTATE 01180000 TRMOPTFN EQU TRMSTATE 01181000 TRMHELDN EQU TRMSTATE 01182000 TRMACPTN EQU TRMSTATE 01183000 TRMPROC EQU TRMLOG 01184000 TRMLIST EQU TRMLOG 01185000 TRMLINE EQU TRMSTATE 01186000 TRMSUBST EQU IEDNTRM+12 01187000 TRMRLMCT EQU IEDNTRM+10 01188000 TRMCOHTG EQU TRMSIBPT+1 01189000 TRMGPCNT EQU TRMSIBPT 01190000 TRMBUFRD EQU TRMBYTE0 01191000 TRMSNA EQU TRMBYTE0 01192000 TRMGP EQU TRMBYTE0 01193000 TRMDIAL EQU TRMBYTE0 01194000 @NM00186 EQU TRMBYTE0 01195000 TRMOUTPT EQU TRMBYTE0 01196000 TRMINPUT EQU TRMBYTE0 01197000 TRMUDEF EQU TRMBYTE0 01198000 TRMCOHRT EQU IEDNTRM+4 01199000 TRMSTOTE EQU TRMBYTE1 01200000 TRMCKPRN EQU TRMBYTE1 01201000 TRMTSATN EQU TRMBYTE1 01202000 TRMTRACE EQU TRMBYTE1 01203000 TRMSWBCK EQU TRMBYTE1 01204000 TRMAUTOC EQU TRMBYTE1 01205000 TRMINPTP EQU TRMBYTE1 01206000 TRMWTNEG EQU TRMSCPRQ 01207000 TRMWRBRK EQU TRMBYTE2 01208000 TRMNOSND EQU TRMBYTE2 01209000 TRMPREP EQU TRMBYTE2 01210000 TRMGPACT EQU TRMBYTE2 01211000 TRMANDL EQU TRMBYTE2 01212000 TRMCLOSN EQU TRMINPG 01213000 TRMREMB EQU TRMBYTE2 01214000 TNTTRMAD EQU IEDTNTA 01215000 TNTLEN EQU IEDQTNTD+44 01216000 TNTMIDEN EQU IEDQTNTD+41 01217000 TNTENLEN EQU IEDQTNTD+40 01218000 TNTSRCHX EQU IEDQTNTD+38 01219000 QCBTTCIN EQU QCBPLCBA+1 01220000 @NM00185 EQU QCBPLCBA 01221000 @NM00184 EQU QCBSTAT1 01222000 QCBFLUSH EQU QCBSTAT1 01223000 QCBNDXRQ EQU QCBSTAT1 01224000 QCBESIG EQU QCBSTAT1 01225000 QCBRCVRQ EQU QCBSTAT1 01226000 QCBSNDRQ EQU QCBSTAT1 01227000 QCBWAITC EQU QCBSTAT1 01228000 QCBPLCBN EQU QCBSTAT1 01229000 QCBCHAIN EQU IEDNQCB 01230000 QCBPQBCK EQU IEDQPQCB+25 01231000 QCBPRIPQ EQU IEDQPQCB+24 01232000 QCBCFHDR EQU IEDQPQCB+21 01233000 QCBLFEFO EQU IEDQPQCB+18 01234000 QCBFFEFO EQU IEDQPQCB+15 01235000 QCBPREVF EQU QCBINTLF 01236000 QCBINTFF EQU IEDQPQCB+9 01237000 QCBDATSQ EQU QCBFHDTZ+1 01238000 @NM00183 EQU QCBFHDTZ 01239000 @NM00182 EQU QCBPFEFO 01240000 QCBDATFL EQU QCBFHDLZ 01241000 QCBDNHDR EQU IEDQPQCB 01242000 QCBQBACK EQU IEDQQCB+37 01243000 QCBCKPT EQU QCBFLAG 01244000 QCBPROC EQU QCBFLAG 01245000 QCBSDFFO EQU QCBFLAG 01246000 QCBTERMQ EQU QCBFLAG 01247000 QCBRSRV EQU QCBFLAG 01248000 QCBREAD EQU QCBFLAG 01249000 QCBNOBRK EQU QCBFLAG 01250000 QCBTSSES EQU QCBFLAG 01251000 QCBLGBAD EQU QCBDCBAD 01252000 QCBRELLN EQU IEDQQCB+32 01253000 QCBTJID EQU QCBLKRRN+1 01254000 QCBCARCT EQU QCBLKRRN 01255000 QCBPRLVL EQU QCBPREN 01256000 QCBMSGCT EQU IEDQQCB+26 01257000 QCBEXTO EQU QCBINTVL 01258000 QCBDISC EQU QCBTSOF1 01259000 QCBDELAY EQU QCBTSOF1 01260000 QCBPARTO EQU QCBTSOF1 01261000 QCBSATRD EQU QCBTSOF1 01262000 QCBNOBUF EQU QCBTSOF1 01263000 QCBTPUT EQU QCBTSOF1 01264000 QCBTGET EQU QCBTSOF1 01265000 QCBWRBRK EQU QCBTSOF1 01266000 QCBSATLC EQU QCBTSOF2 01267000 QCBSATTI EQU QCBTSOF2 01268000 QCBSATCH EQU QCBTSOF2 01269000 QCBSIMRD EQU QCBTSOF2 01270000 QCBDSSMI EQU QCBTSOF2 01271000 QCBPOSTO EQU QCBTSOF2 01272000 QCBBUFQ EQU QCBTSOF2 01273000 QCBINHBN EQU QCBTSOF2 01274000 QCBSATCT EQU @NM00181 01275000 QCBSCBOF EQU IEDQQCB+20 01276000 QCBTIME EQU QCBSTAT 01277000 QCBCLOCK EQU QCBSTAT 01278000 QCBSCHDL EQU QCBSTAT 01279000 QCBSMODE EQU QCBSTAT 01280000 QCBSEND EQU QCBSTAT 01281000 QCBBUFRD EQU QCBSTAT 01282000 QCBTRMHO EQU QCBSTAT 01283000 QCBEOM EQU QCBSTAT 01284000 QCBHUCT EQU QCBRETCT 01285000 QCBIEND EQU QCBRETCT 01286000 QCBEND EQU QCBRETCT 01287000 QCBNL EQU QCBRETCT 01288000 QCBLOGCT EQU QCBRETCT 01289000 @NM00180 EQU QCBBYTE1 01290000 QCBRITRM EQU QCBBYTE1 01291000 @NM00179 EQU QCBEOLDT 01292000 QCBSLINK EQU IEDQQCB+13 01293000 QCBSTPRI EQU IEDQQCB+12 01294000 QCBSTCHN EQU IEDQQCB+9 01295000 QCBSTVTO EQU IEDQQCB+8 01296000 QCBLINK EQU IEDQQCB+5 01297000 QCBPRI EQU IEDQQCB+4 01298000 QCBELCHN EQU IEDQQCB+1 01299000 QCBHELD EQU QCBDSFLG 01300000 QCBFQCB EQU QCBDSFLG 01301000 QCBDRQQ EQU QCBDSFLG 01302000 QCBALTMH EQU QCBDSFLG 01303000 QCBREUS EQU QCBDISK 01304000 QCBNREUS EQU QCBDISK 01305000 QCBCORE EQU QCBDSFLG 01306000 QCBTSQ EQU QCBDSFLG 01307000 OPCBOTTM EQU IEDQOPCD+1184 01308000 @NM00178 EQU IEDQOPCD+1100 01309000 @NM00177 EQU IEDQOPCD+948 01310000 @NM00176 EQU IEDQOPCD+940 01311000 @NM00175 EQU IEDQOPCD+380 01312000 @NM00174 EQU OPCPWCOB+9 01313000 @NM00173 EQU OPCPWCOB+8 01314000 @NM00172 EQU OPCPWECB+1 01315000 OPCPWCCC EQU OPCPWECB 01316000 OPCPWCHN EQU OPCPWQCB+1 01317000 OPCPWVTO EQU OPCPWQCB 01318000 OPCWAITV EQU IEDQOPCD+364 01319000 OPCTOTCK EQU IEDQOPCD+360 01320000 OPCAPXTL EQU IEDQOPCD+356 01321000 OPCDECR EQU IEDQOPCD+352 01322000 OPCBUFWT EQU IEDQOPCD+348 01323000 OPCADGOT EQU IEDQOPCD+318 01324000 OPCRQCNT EQU IEDQOPCD+316 01325000 OPPOLSTP EQU IEDQOPCD+312 01326000 OPCCKCIB EQU IEDQOPCD+308 01327000 OPCEND EQU IEDQOPCD+307 01328000 OPCSTCBS EQU IEDQOPCD+306 01329000 OPCHNEND EQU IEDQOPCD+302 01330000 OPCOQSW EQU IEDQOPCD+301 01331000 @NM00171 EQU OPCSPEC 01332000 @NM00170 EQU OPCSPEC 01333000 @NM00169 EQU OPCSPEC 01334000 @NM00168 EQU OPCSPEC 01335000 OPCFRMCA EQU OPCSPEC 01336000 OPCRSTRT EQU OPCSPEC 01337000 OPCPART EQU OPCSPEC 01338000 OPCALTD EQU OPCSPEC 01339000 OPCBFEND EQU IEDQOPCD+296 01340000 OPCBFIRS EQU IEDQOPCD+292 01341000 OPCAVBUF EQU IEDQOPCD+290 01342000 OPCIPLCT EQU IEDQOPCD+289 01343000 OPCCLNTS EQU IEDQOPCD+288 01344000 OPCHA8 EQU IEDQOPCD+286 01345000 OPCBFREQ EQU IEDQOPCD+284 01346000 OPCFREBF EQU IEDQOPCD+280 01347000 OPCGETBF EQU IEDQOPCD+276 01348000 OPCNEXT EQU IEDQOPCD+272 01349000 OPCFMDFC EQU IEDQOPCD+268 01350000 OPCSCNC EQU IEDQOPCD+264 01351000 OPCHORTG EQU IEDQOPCD+260 01352000 OPCHORT EQU IEDQOPCD+256 01353000 OPCCKPTL EQU IEDQOPCD+252 01354000 OPCCKPTF EQU IEDQOPCD+248 01355000 OPCWAITA EQU IEDQOPCD+244 01356000 OPCWAITR EQU IEDQOPCD+240 01357000 OPCWAITP EQU IEDQOPCD+236 01358000 OPCWAITO EQU IEDQOPCD+232 01359000 OPCWAITN EQU IEDQOPCD+228 01360000 OPCWAITL EQU IEDQOPCD+224 01361000 OPCWAITC EQU IEDQOPCD+220 01362000 @NM00167 EQU OPCLDNME+5 01363000 @NM00166 EQU OPCLDNME 01364000 OPCWAIT EQU IEDQOPCD+192 01365000 OPCCKERB EQU IEDQOPCD+164 01366000 OPCBFERB EQU IEDQOPCD+148 01367000 OPCFLAG2 EQU IEDQOPCD+147 01368000 OPCFLAG1 EQU IEDQOPCD+146 01369000 OPCWRKSZ EQU IEDQOPCD+144 01370000 OPCRSAVE EQU IEDQOPCD+132 01371000 OPCQCBAD EQU IEDQOPCD+128 01372000 OPCTRMWA EQU IEDQOPCD+52 01373000 OPCPSTWT EQU IEDQOPCD+48 01374000 OPCTNTEA EQU IEDQOPCD+44 01375000 OPCPGCK EQU IEDQOPCD+40 01376000 OPCLCB EQU IEDQOPCD+36 01377000 @NM00165 EQU IEDQOPCD+32 01378000 OPCIPLAD EQU IEDQOPCD+28 01379000 OPCOPTLK EQU IEDQOPCD+20 01380000 @NM00164 EQU OCLDNME+4 01381000 @NM00163 EQU OCPREFLG 01382000 OCTOTEP EQU OCPREFLG 01383000 OCREPOST EQU OCPREFLG 01384000 OCRSPSNT EQU OCPREFLG 01385000 OCBFREQ EQU OCPREFLG 01386000 OCIDLE EQU OCREQFLG 01387000 OCFORCE EQU OCREQFLG 01388000 OCDCARD EQU OCREQFLG 01389000 OCPARTAL EQU OCREQFLG 01390000 OCADNCP EQU OCREQFLG 01391000 @NM00162 EQU OCREQFLG 01392000 @NM00161 EQU OCREQFLG 01393000 OCFLUSHZ EQU OCREQFLG 01394000 OCRESPCT EQU OCLINTTE 01395000 OCCKPTWA EQU OCCKDATA+4 01396000 @NM00158 EQU OCRSTGTM+2 01397000 OCCKDAT2 EQU OCRSTGTM+1 01398000 OCCKDAT1 EQU OCRSTGTM 01399000 OCPTRSAV EQU OCMODNME+4 01400000 OCPUADR EQU OCIPLWA+2 01401000 OCWTGSAV EQU OCIPLWA 01402000 OCDVRDCT EQU OCBACKUP+6 01403000 OCNCP EQU OCBACKUP+4 01404000 OCBUFGOT EQU OCBACKUP+2 01405000 OCBUFNED EQU OCBACKUP 01406000 OCWTG EQU IEDQOPCE+30 01407000 OCRESNUM EQU OCPARM 01408000 OCSEQ EQU OCTRUNIT+2 01409000 @NM00157 EQU OCRSID+1 01410000 OCNONE EQU OCALSTAT 01411000 OCSOME EQU OCALSTAT 01412000 OCALLFLG EQU OCALSTAT 01413000 OCACTREQ EQU OCALSTAT 01414000 OCREDRVE EQU OCALSTAT 01415000 OCSEQIND EQU OCALSTAT 01416000 @NM00156 EQU OCALSTAT 01417000 OCRENTRD EQU OCALSTAT 01418000 OCWTGB EQU OCTIOT 01419000 OCTRMTBL EQU IEDQOPCE+20 01420000 @NM00155 EQU @NM00154+2 01421000 OCCONID EQU OCDEST 01422000 OCRLN EQU IEDQOPCE+15 01423000 OCRESP EQU OCFLAG 01424000 OCATTACH EQU OCFLAG 01425000 OCSSCP EQU OCFLAG 01426000 OCOUTPUT EQU OCFLAG 01427000 OCLINE EQU OCFLAG 01428000 OCMPP EQU OCFLAG 01429000 OCTOTE EQU OCFLAG 01430000 @NM00153 EQU OCSWITCH 01431000 OCQUCKN EQU OCSWITCH 01432000 OCPRIFLG EQU OCOPTCDE 01433000 @NM00152 EQU OCRUDEST+1 01434000 @NM00151 EQU OCSCAN 01435000 OCNOTUCB EQU OCSCAN 01436000 OCALLRLN EQU OCSCAN 01437000 OCDDNAME EQU OCSCAN 01438000 OCDDNRLN EQU OCSCAN 01439000 OCADDR EQU OCSCAN 01440000 OCELMPTR EQU OCELEM+1 01441000 OCELMPRI EQU OCELEM 01442000 OCLINK EQU IEDQOPCE 01443000 NCPTXID EQU IEDNCP+10 01444000 @NM00150 EQU NCPFLAG1 01445000 NCPTRACE EQU NCPFLAG1 01446000 NCPIPLD EQU NCPFLAG1 01447000 NCPREST EQU NCPFLAG1 01448000 NCPBGUP EQU NCPFLAG1 01449000 NCPDAUTO EQU NCPFLAG1 01450000 NCPIAUTO EQU NCPFLAG1 01451000 NCPLEN EQU IEDNCP 01452000 LCBERADR EQU LCBXRADR+1 01453000 LCBPCIRC EQU LCBXRADR 01454000 LCBDCT3 EQU LCBXDCT+2 01455000 LCBDCT2 EQU LCBXDCT+1 01456000 LCBDCT1 EQU LCBXDCT 01457000 @NM00149 EQU LCBXFLAG 01458000 LCBERPND EQU LCBXFLAG 01459000 LCBSRCPF EQU LCBXFLAG 01460000 LCBGPCTV EQU LCBXFLAG 01461000 @NM00148 EQU LCBXFLAG 01462000 @NM00147 EQU LCBXFLAG 01463000 @NM00146 EQU LCBXFLAG 01464000 @NM00145 EQU LCBXFLAG 01465000 LCBCCW10 EQU LCBCPA+72 01466000 LCBCCW9 EQU LCBCPA+64 01467000 LCBCCW8 EQU LCBCPA+56 01468000 LCBCCW7 EQU LCBCPA+48 01469000 LCBCCW6 EQU LCBCPA+40 01470000 LCBCCW5 EQU LCBCPA+32 01471000 LCBCCW4 EQU LCBCPA+24 01472000 LCBCCW3 EQU LCBCPA+16 01473000 LCBCCW2 EQU LCBCPA+8 01474000 LCBCCW1 EQU LCBCPA 01475000 @NM00131 EQU LCBERCCW 01476000 LCBCSWSV EQU LCBSAVSN+1 01477000 LCBSNSV EQU LCBSAVSN 01478000 LCBBFSNS EQU LCBRSPSV 01479000 LCBWAITC EQU LCBTPCD+5 01480000 LCBINPAK EQU LCBSTAT6 01481000 LCBMHBID EQU LCBSTAT6 01482000 LCBRTRRO EQU LCBSTAT6 01483000 LCBHDRPD EQU LCBSTAT6 01484000 LCBCHN EQU LCBSTAT6 01485000 LCBBFRSV EQU LCBTPCD+1 01486000 @NM00130 EQU LCBSTAT5 01487000 LCBLUS EQU LCBSTAT5 01488000 LCBLUNIT EQU LCBSTAT5 01489000 LCBPERM EQU LCBSTAT5 01490000 LCBNXCMD EQU LCBBFRW 01491000 LCBERMSK EQU LCBOBRCH 01492000 LCBSCBA EQU IEDQLCB+93 01493000 LCBOLT EQU LCBMSGFM 01494000 LCBEOT EQU LCBMSGFM 01495000 LCBENQ EQU LCBMSGFM 01496000 LCBTTD EQU LCBMSGFM 01497000 LCBRSTRT EQU LCBMSGFM 01498000 LCBVSTRT EQU LCBMSGFM 01499000 LCBACKI EQU LCBMSGFM 01500000 LCBNAK EQU LCBMSGFM 01501000 @NM00129 EQU LCBRBCT2 01502000 LCBDCNT EQU LCBRBCT2 01503000 LCBRBCT1 EQU LCBERBCT 01504000 LCBERBCH EQU IEDQLCB+85 01505000 LCBCOMPL EQU LCBDLNKN 01506000 LCBPRCPG EQU LCBERBST 01507000 LCBERROR EQU LCBERBST 01508000 @NM00128 EQU LCBERBST 01509000 LCBINQ EQU LCBERBST 01510000 LCBRDERR EQU LCBERBST 01511000 LCBEOMSG EQU LCBERBST 01512000 LCBMSG EQU LCBERBST 01513000 LCBERBLK EQU IEDQLCB+81 01514000 LCBERBPY EQU IEDQLCB+80 01515000 LCBERBQB EQU LCBERB+1 01516000 LCBERBKY EQU LCBERB 01517000 LCBRECAD EQU IEDQLCB+73 01518000 @NM00127 EQU LCBTSTSW 01519000 @NM00126 EQU LCBTSTSW 01520000 @NM00125 EQU LCBTSTSW 01521000 @NM00124 EQU LCBTSTSW 01522000 @NM00123 EQU LCBTSTSW 01523000 @NM00122 EQU LCBTSTSW 01524000 @NM00121 EQU LCBTSTSW 01525000 LCBCONCT EQU LCBTSTSW 01526000 LCBRESP EQU LCBSTAT2 01527000 LCBBFRAV EQU LCBDIAL 01528000 LCBATTN EQU LCBSYNC 01529000 LCBNEGRP EQU LCBSTAT2 01530000 LCBSNDPR EQU LCBSTAT2 01531000 LCBCONNN EQU LCBBEOTN 01532000 LCBMSGNN EQU LCBSTAT2 01533000 LCBTRACE EQU LCBSTAT2 01534000 LCBSENDN EQU LCBSTAT1 01535000 LCBRECVN EQU LCBSTAT1 01536000 LCBFREEN EQU LCBSTAT1 01537000 LCBCONT EQU LCBSTAT1 01538000 LCBINITN EQU LCBSTAT1 01539000 LCBOCNI EQU LCBSTAT1 01540000 LCBOCWTN EQU LCBSTAT1 01541000 LCBRCLLN EQU LCBSTAT1 01542000 LCBRECOF EQU IEDQLCB+68 01543000 LCBRDBFR EQU LCBRCBFR 01544000 LCBUCBX EQU IEDQLCB+64 01545000 LCBTTBIN EQU LCBERRCT 01546000 @NM00120 EQU LCBINCAM 01547000 LCBGETMN EQU LCBINCAM 01548000 LCBRESTR EQU LCBRCQCB 01549000 LCBPCILK EQU LCBDCBPT 01550000 LCBSTART EQU LCBIOBSN+16 01551000 LCBAP4OL EQU LCBSIOCC 01552000 LCBAP3OL EQU LCBSIOCC 01553000 LCBAP2OL EQU LCBSIOCC 01554000 LCBAP1OL EQU LCBSIOCC 01555000 LCBSIOC2 EQU LCBSIOCC 01556000 LCBSIOC1 EQU LCBSIOCC 01557000 @NM00119 EQU LCBSIOCC 01558000 LCBCSWRC EQU LCBCSW+5 01559000 LCBCSCHC EQU LCBCSWCS 01560000 LCBCSICC EQU LCBCSWCS 01561000 LCBCSCCC EQU LCBCSWCS 01562000 LCBCSCDC EQU LCBCSWCS 01563000 LCBCSPTC EQU LCBCSWCS 01564000 LCBCSPGC EQU LCBCSWCS 01565000 LCBCSIL EQU LCBCSWCS 01566000 LCBCSPCI EQU LCBCSWCS 01567000 LCBUSUE EQU LCBCSWUS 01568000 LCBUSUC EQU LCBCSWUS 01569000 LCBUSDE EQU LCBCSWUS 01570000 LCBUSCE EQU LCBCSWUS 01571000 LCBUSBSY EQU LCBCSWUS 01572000 LCBUSCUE EQU LCBCSWUS 01573000 LCBUSSM EQU LCBCSWUS 01574000 LCBUSAT EQU LCBCSWUS 01575000 LCBCSWCA EQU LCBCSW 01576000 LCBOBR EQU LCBFLAG3 01577000 LCBOBRRD EQU LCBFLAG3 01578000 LCBIOMSG EQU LCBFLAG3 01579000 LCBSOHC EQU LCBFLAG3 01580000 LCBRLAD EQU LCBFLAG3 01581000 LCBSOHR EQU LCBFLAG3 01582000 @NM00118 EQU LCBFLAG3 01583000 LCBECBPT EQU LCBIOBSN+4 01584000 LCBECBCC EQU LCBIOBSN+3 01585000 LCBSENS1 EQU LCBIOBSN+2 01586000 LCBABORT EQU LCBTMOUT 01587000 LCBNOTIN EQU LCBLOSDT 01588000 LCBOVRUN EQU LCBSENS0 01589000 LCBDATCK EQU LCBSENS0 01590000 LCBEQUCK EQU LCBSENS0 01591000 LCBBUSCK EQU LCBSENS0 01592000 LCBINTRQ EQU LCBSENS0 01593000 LCBCMDRJ EQU LCBSENS0 01594000 LCBFLAG2 EQU LCBIOBSN 01595000 @NM00117 EQU LCBFLAG1 01596000 LCBUNREL EQU LCBFLAG1 01597000 LCBEXCPN EQU LCBFLAG1 01598000 @NM00116 EQU LCBFLAG1 01599000 LCBERPIN EQU LCBFLAG1 01600000 @NM00115 EQU LCBFLAG1 01601000 LCBFSBFR EQU LCBMHA 01602000 LCBISZE EQU IEDQLCB+28 01603000 LCBLNENT EQU LCBSCBDA+1 01604000 @NM00114 EQU LCBSCBDA 01605000 LCBCPGMH EQU LCBSTAT4 01606000 LCBREAL EQU LCBPHASE 01607000 @NM00113 EQU LCBSTAT4 01608000 LCBACTRQ EQU LCBSTAT4 01609000 LCBDACRQ EQU LCBSTAT4 01610000 LCBDMPRQ EQU LCBSTAT4 01611000 @NM00112 EQU LCBLKMDE 01612000 LCBLOCKI EQU LCBLKMDE 01613000 LCBLOCKR EQU LCBLKMDE 01614000 LCBHMFLG EQU LCBLKMDE 01615000 LCBBDFLG EQU LCBLKMDE 01616000 @NM00111 EQU LCBINSRC 01617000 LCBABRTN EQU LCBCHAIN 01618000 LCBCTLMD EQU LCBTETEN 01619000 LCBBFRSZ EQU LCBCHAIN 01620000 LCBUREQN EQU LCBCHAIN 01621000 LCBNORTY EQU LCBCHAIN 01622000 LCBERMSG EQU LCBCHAIN 01623000 LCBEXCP EQU LCBCHAIN 01624000 LCBINVRQ EQU LCBSCRNN 01625000 LCB2741N EQU LCBTSOB 01626000 LCBINHBN EQU LCBTSOB 01627000 LCBCIRCD EQU LCBTSOB 01628000 LCBPREP EQU LCBTSOB 01629000 LCBSOPL EQU LCBTSOB 01630000 LCBSATRD EQU LCBTSOB 01631000 LCBTSBUF EQU LCBTSOB 01632000 LCBWRBRK EQU LCBTSOB 01633000 LCBTDL EQU IEDQLCB+18 01634000 LCBEOLTD EQU IEDQLCB+16 01635000 LCBRSLNK EQU IEDQLCB+13 01636000 LCBRSPRI EQU IEDQLCB+12 01637000 LCBSTCBA EQU IEDQLCB+9 01638000 LCBRSKEY EQU IEDQLCB+8 01639000 LCBLINK EQU LCBRCB+5 01640000 LCBKEY EQU LCBRCB 01641000 DCBBUFSI EQU IHADCS43+6 01642000 DCBUNTCT EQU IHADCS43+5 01643000 DCBILCT EQU IHADCS43+4 01644000 DCBSCTAD EQU DCBSCTAB+1 01645000 @NM00110 EQU DCBSCTAB 01646000 DCBPUT EQU DCBGET 01647000 DCBDEBA EQU DCBDEBAD+1 01648000 @NM00109 EQU DCBIFLGS 01649000 DCBIFIOE EQU DCBIFLGS 01650000 DCBIFPCT EQU DCBIFLGS 01651000 DCBIFEC EQU DCBIFLGS 01652000 DCBMFSTI EQU DCBMFDMD 01653000 DCBMFAWR EQU DCBMFSTK 01654000 DCBMFUIP EQU DCBMFTMD 01655000 DCBMFIDW EQU DCBMFLCP 01656000 DCBMFWRK EQU DCBMFMVP 01657000 DCBMFRDQ EQU DCBMFWRT 01658000 DCBMFGTQ EQU DCBMFPUT 01659000 DCBMFSTL EQU DCBMACF2 01660000 DCBMFCK EQU DCBMFDMG 01661000 DCBMFRDX EQU DCBMFCHK 01662000 DCBMFDBF EQU DCBMFSBG 01663000 DCBMFRDI EQU DCBMFLCG 01664000 DCBMFRDK EQU DCBMFMVG 01665000 DCBMFWRQ EQU DCBMFRD 01666000 DCBMFPTQ EQU DCBMFGET 01667000 DCBMFECP EQU DCBMACF1 01668000 DCBTIOT EQU IHADCS25 01669000 DCBMRSTI EQU DCBMRDMD 01670000 DCBMRAWR EQU DCBMRSTK 01671000 DCBMRUIP EQU DCBMRTMD 01672000 DCBMRIDW EQU DCBMRLCP 01673000 DCBMRWRK EQU DCBMRMVP 01674000 DCBMRRDQ EQU DCBMRWRT 01675000 DCBMRGTQ EQU DCBMRPUT 01676000 DCBMRSTL EQU DCBMACR2 01677000 DCBMRCK EQU DCBMRDMG 01678000 DCBPGFXA EQU DCBMRRDX 01679000 DCBMRDBF EQU DCBMRSBG 01680000 DCBMRRDI EQU DCBMRLCG 01681000 DCBMRRDK EQU DCBMRMVG 01682000 DCBMRWRQ EQU DCBMRRD 01683000 DCBMRPTQ EQU DCBMRGET 01684000 DCBMRECP EQU DCBMACR1 01685000 @NM00108 EQU DCBIFLG 01686000 DCBIBIOE EQU DCBIFLG 01687000 DCBIBPCT EQU DCBIFLG 01688000 DCBIBEC EQU DCBIFLG 01689000 DCBOFIOF EQU DCBOFLGS 01690000 DCBOFUEX EQU DCBOFLGS 01691000 DCBOFTM EQU DCBOFLGS 01692000 DCBOFPPC EQU DCBOFLGS 01693000 DCBOFEOV EQU DCBOFLGS 01694000 DCBOFLRB EQU DCBOFLGS 01695000 DCBOFIOD EQU DCBOFLWR 01696000 DCBDDNAM EQU IHADCS24 01697000 DCBEXLSA EQU DCBEXLST+1 01698000 DCBRNCKA EQU DCBRNCKD+1 01699000 @NM00107 EQU DCBRNCKD 01700000 @NM00106 EQU DCBDSRG2 01701000 DCBDSRG1 EQU DCBDSORG 01702000 DCBCHNGL EQU DCBTRSTA 01703000 DCBNIDLE EQU DCBTRSTA 01704000 DCBBAKUP EQU DCBTRSTA 01705000 DCBIPLED EQU DCBTRSTA 01706000 DCBRSTRT EQU DCBTRSTA 01707000 DCBINITL EQU DCBTRSTA 01708000 DCBAUTOD EQU DCBTRSTA 01709000 DCBAUTOI EQU DCBTRSTA 01710000 @NM00105 EQU IHADCS2K+4 01711000 DCBDUMPA EQU DCBDUMPD+1 01712000 DCBUNITN EQU DCBDUMPD 01713000 DCBBCKUA EQU DCBBCKUP+1 01714000 @NM00104 EQU DCBBCKUP 01715000 DCBIPLTX EQU IHADCS1A 01716000 @NM00103 EQU IHADCB 01717000 SAVTBITN EQU IEDNSVTD+312 01718000 @NM00102 EQU SAVTCKQB+8 01719000 @NM00101 EQU SAVTCKEC+1 01720000 @NM00100 EQU SAVTCKCC 01721000 SAVTCKPO EQU SAVTCKCC 01722000 SAVTCKWA EQU SAVTCKCC 01723000 SAVTCKCH EQU SAVTCKTB+1 01724000 SAVTCKVT EQU SAVTCKTB 01725000 @NM00099 EQU IEDNSVTD+297 01726000 SAVTRDFG EQU SAVTRDRV+12 01727000 @NM00098 EQU SAVTRDRV+5 01728000 SAVTRDPY EQU SAVTRDRV+4 01729000 SAVTRDQB EQU SAVTRDRV+1 01730000 SAVTRDKY EQU SAVTRDRV 01731000 SAVTNID EQU IEDNSVTD+280 01732000 SAVTDVAS EQU IEDNSVTD+276 01733000 SAVTPLSZ EQU IEDNSVTD+274 01734000 @NM00097 EQU IEDNSVTD+273 01735000 SAVTSUBL EQU IEDNSVTD+272 01736000 @NM00096 EQU SAVTZELM+1 01737000 SAVTSUBM EQU SAVTZELM 01738000 SAVTMHDX EQU IEDNSVTD+268 01739000 SAVTNAT1 EQU IEDNSVTD+266 01740000 SAVTSH20 EQU IEDNSVTD+264 01741000 SAVTLCBS EQU IEDNSVTD+260 01742000 SAVTRNMP EQU IEDNSVTD+256 01743000 SAVTTNTX EQU IEDNSVTD+252 01744000 SAVTNAX EQU IEDNSVTD+248 01745000 SAVTSUBV EQU IEDNSVTD+247 01746000 SAVTSUBA EQU IEDNSVTD+246 01747000 SAVTSIBC EQU IEDNSVTD+244 01748000 SAVTBSM EQU IEDNSVTD+240 01749000 SAVTSCPT EQU SAVTTCPU 01750000 SAVTRQTG EQU IEDNSVTD+236 01751000 SAVTRQCH EQU IEDNSVTD+232 01752000 SAVTMAND EQU IEDNSVTD+228 01753000 SAVTSPLN EQU IEDNSVTD+224 01754000 SAVTNADL EQU IEDNSVTD+222 01755000 SAVTNATL EQU IEDNSVTD+220 01756000 SAVTMHTB EQU IEDNSVTD+216 01757000 SAVTSSMH EQU IEDNSVTD+212 01758000 SAVTQRS EQU IEDNSVTD+208 01759000 SAVTRQIN EQU IEDNSVTD+204 01760000 SAVTDFCO EQU IEDNSVTD+200 01761000 SAVTSAO EQU IEDNSVTD+196 01762000 SAVTSARI EQU IEDNSVTD+192 01763000 SAVTSAC EQU IEDNSVTD+188 01764000 SAVTSAI EQU IEDNSVTD+184 01765000 SAVTCSCI EQU IEDNSVTD+180 01766000 SAVTSSRP EQU IEDNSVTD+176 01767000 SAVTSSRQ EQU IEDNSVTD+172 01768000 SAVTSCLU EQU IEDNSVTD+168 01769000 SAVTXTRQ EQU IEDNSVTD+164 01770000 SAVTMVBF EQU IEDNSVTD+160 01771000 @NM00095 EQU IEDNSVTD+148 01772000 SAVTIPCQ EQU IEDNSVTD+144 01773000 @NM00094 EQU IEDNSVTD+136 01774000 SAVTXFMI EQU IEDNSVTD+132 01775000 @NM00093 EQU IEDNSVTD+124 01776000 SAVTXFMO EQU IEDNSVTD+120 01777000 @NM00092 EQU IEDNSVTD+116 01778000 SAVTSSSR EQU IEDNSVTD+112 01779000 SAVTSCPQ EQU IEDNSVTD+108 01780000 SAVTSLCB EQU IEDNSVTD+104 01781000 SAVTLUSR EQU IEDNSVTD+100 01782000 @NM00091 EQU SAVTLUSQ+8 01783000 SAVTLUSP EQU SAVTLUSQ+4 01784000 SAVTLUSB EQU SAVTLUSQ 01785000 @NM00090 EQU IEDNSVTD+84 01786000 SAVTSAT EQU IEDNSVTD+80 01787000 SAVTNAT EQU IEDNSVTD+76 01788000 SAVTCLUP EQU IEDNSVTD+72 01789000 SAVTPIUT EQU IEDNSVTD+68 01790000 SAVTRNTA EQU IEDNSVTD+64 01791000 SAVTDNIR EQU IEDNSVTD+60 01792000 SAVTCNIR EQU IEDNSVTD+56 01793000 SAVTFLDH EQU IEDNSVTD+52 01794000 SAVTSRTN EQU IEDNSVTD+48 01795000 SAVTSREQ EQU IEDNSVTD+44 01796000 SAVTFAIL EQU IEDNSVTD+42 01797000 SAVTSUSE EQU IEDNSVTD+40 01798000 SAVTSIB EQU IEDNSVTD+36 01799000 SAVTPRTN EQU IEDNSVTD+32 01800000 @NM00089 EQU IEDNSVTD+28 01801000 SAVTWH20 EQU IEDNSVTD+26 01802000 SAVTPWT EQU IEDNSVTD+24 01803000 SAVTPRTQ EQU IEDNSVTD+20 01804000 SAVTPREQ EQU IEDNSVTD+16 01805000 SAVTPH20 EQU IEDNSVTD+14 01806000 SAVTPUSE EQU IEDNSVTD+12 01807000 SAVTPLCB EQU IEDNSVTD+8 01808000 SAVTPOOL EQU IEDNSVTD+4 01809000 SAVTPRMT EQU SAVTDIAF 01810000 SAVTVIRT EQU SAVTDIAF 01811000 AVTCPBNO EQU IEDQAVTD+1244 01812000 AVTHRESS EQU IEDQAVTD+1243 01813000 @NM00088 EQU IEDQAVTD+1242 01814000 @NM00087 EQU IEDQAVTD+1241 01815000 @NM00086 EQU IEDQAVTD+1240 01816000 @NM00085 EQU IEDQAVTD+1237 01817000 @NM00084 EQU IEDQAVTD+1236 01818000 AVTHRESE EQU @NM00083 01819000 AVTRADDR EQU IEDQAVTD+1228 01820000 AVTNADDR EQU IEDQAVTD+1224 01821000 AVTHRESN EQU IEDQAVTD+1220 01822000 AVTVOLRN EQU IEDQAVTD+1216 01823000 AVTTOTNN EQU IEDQAVTD+1212 01824000 AVTTRCYN EQU IEDQAVTD+1208 01825000 AVTRCTRN EQU IEDQAVTD+1204 01826000 AVTNOVON EQU IEDQAVTD+1200 01827000 AVTADEBN EQU IEDQAVTD+1196 01828000 AVTVOLRR EQU IEDQAVTD+1192 01829000 AVTTOTNR EQU IEDQAVTD+1188 01830000 AVTTRCYR EQU IEDQAVTD+1184 01831000 AVTRCTRR EQU IEDQAVTD+1180 01832000 AVTNOVOR EQU IEDQAVTD+1176 01833000 AVTADEBR EQU IEDQAVTD+1172 01834000 AVTLODPT EQU IEDQAVTD+1168 01835000 AVTIOBN EQU IEDQAVTD+1164 01836000 AVTIOBR EQU IEDQAVTD+1160 01837000 AVTCPBPT EQU IEDQAVTD+1156 01838000 AVTFCPB EQU IEDQAVTD+1152 01839000 @NM00082 EQU IEDQAVTD+1148 01840000 AVTINCPQ EQU IEDQAVTD+1144 01841000 @NM00081 EQU IEDQAVTD+1140 01842000 @NM00080 EQU IEDQAVTD+1137 01843000 @NM00079 EQU AVTBIT4 01844000 @NM00078 EQU AVTBIT4 01845000 @NM00077 EQU AVTBIT4 01846000 @NM00076 EQU AVTBIT4 01847000 @NM00075 EQU AVTBIT4 01848000 @NM00074 EQU AVTBIT4 01849000 @NM00073 EQU AVTBIT4 01850000 AVTRUFTN EQU AVTBIT4 01851000 @NM00072 EQU IEDQAVTD+1132 01852000 AVTNOBFQ EQU IEDQAVTD+1128 01853000 @NM00071 EQU IEDQAVTD+1124 01854000 AVTDKENQ EQU IEDQAVTD+1120 01855000 @NM00070 EQU IEDQAVTD+1116 01856000 AVTDKAPQ EQU IEDQAVTD+1112 01857000 AVTCOPY EQU IEDQAVTD+1108 01858000 AVTIA EQU IEDQAVTD+1104 01859000 AVTFL EQU IEDQAVTD+1100 01860000 @NM00069 EQU IEDQAVTD+1096 01861000 AVTNCPBQ EQU IEDQAVTD+1092 01862000 AVTTOTNC EQU IEDQAVTD+1088 01863000 AVTCMAX EQU IEDQAVTD+1084 01864000 AVTCMIN EQU IEDQAVTD+1080 01865000 AVTHM02 EQU IEDQAVTD+1076 01866000 AVTOPCIN EQU IEDQAVTD+1074 01867000 AVTDCTLN EQU IEDQAVTD+1072 01868000 AVTOPMSK EQU IEDQAVTD+1068 01869000 AVTSTEAL EQU IEDQAVTD+1060 01870000 AVTOPTN EQU IEDQAVTD+1056 01871000 AVTDSKCT EQU IEDQAVTD+1054 01872000 AVTCKRST EQU IEDQAVTD+1053 01873000 AVTSTAN EQU AVTBIT3 01874000 AVTSTACN EQU AVTBIT3 01875000 AVTSTAIN EQU AVTBIT3 01876000 AVTSTAYN EQU AVTBIT3 01877000 AVTOLTBN EQU AVTBIT3 01878000 AVTTSAB EQU AVTBIT3 01879000 AVTRFULN EQU AVTBIT3 01880000 AVTRECVN EQU AVTBIT3 01881000 @NM00068 EQU AVTBIT2 01882000 @NM00067 EQU AVTBIT2 01883000 AVTOPEIN EQU AVTBIT2 01884000 AVTSTRTN EQU AVTBIT2 01885000 AVTTOPOL EQU AVTBIT2 01886000 AVTCOPYN EQU AVTBIT2 01887000 AVTREUSN EQU AVTBIT2 01888000 AVTEXTSC EQU AVTBIT2 01889000 AVTDISKN EQU AVTBIT1 01890000 AVTQUCKN EQU AVTBIT1 01891000 AVTCLOSN EQU AVTBIT1 01892000 AVTREADN EQU AVTBIT1 01893000 AVTDLAYN EQU AVTBIT1 01894000 AVTAQTAN EQU AVTBIT1 01895000 AVTTSON EQU AVTBIT1 01896000 AVTAPLKN EQU AVTBIT1 01897000 AVTDUMBR EQU IEDQAVTD+1048 01898000 AVTDLQX EQU IEDQAVTD+1046 01899000 AVTINTLV EQU IEDQAVTD+1044 01900000 AVTSMCNT EQU IEDQAVTD+1042 01901000 AVTAVFCT EQU IEDQAVTD+1040 01902000 AVTOPCON EQU IEDQAVTD+1038 01903000 AVTOPCNT EQU IEDQAVTD+1036 01904000 AVTLNCNT EQU IEDQAVTD+1034 01905000 AVTKEYLE EQU IEDQAVTD+1032 01906000 AVTHA16 EQU IEDQAVTD+1030 01907000 AVTHA7 EQU IEDQAVTD+1028 01908000 AVTHA4 EQU IEDQAVTD+1026 01909000 AVTHA3 EQU IEDQAVTD+1024 01910000 AVTHA2 EQU IEDQAVTD+1022 01911000 AVTGETMS EQU IEDQAVTD+1021 01912000 @NM00066 EQU IEDQAVTD+1020 01913000 AVTGETMD EQU IEDQAVTD+1016 01914000 AVTGETMN EQU IEDQAVTD+1012 01915000 AVTCWTOT EQU IEDQAVTD+1008 01916000 AVTCWINT EQU IEDQAVTD+956 01917000 AVTDTRAP EQU IEDQAVTD+952 01918000 @NM00065 EQU IEDQAVTD+950 01919000 @NM00064 EQU AVTIOTR 01920000 AVTIOTRH EQU AVTIOTR 01921000 AVTIOTRE EQU AVTIOTR 01922000 @NM00063 EQU AVTSUBT 01923000 AVTSUBPT EQU AVTSUBT 01924000 AVTSUBON EQU AVTSUBT 01925000 AVTAFE30 EQU IEDQAVTD+944 01926000 AVTAFE20 EQU IEDQAVTD+940 01927000 AVTAFE10 EQU IEDQAVTD+936 01928000 AVTCWEC2 EQU IEDQAVTD+932 01929000 AVTCWPM2 EQU IEDQAVTD+928 01930000 AVTCWTS2 EQU IEDQAVTD+927 01931000 AVTCWTS1 EQU IEDQAVTD+926 01932000 AVTCWCLD EQU AVTCWFL2 01933000 AVTCWRAP EQU AVTCWFL2 01934000 @NM00062 EQU AVTCWFL2 01935000 @NM00061 EQU AVTCWFL2 01936000 @NM00060 EQU AVTCWFL2 01937000 @NM00059 EQU AVTCWFL2 01938000 @NM00058 EQU AVTCWFL2 01939000 AVTCWACT EQU AVTCWFL2 01940000 @NM00057 EQU AVTCWFL1 01941000 @NM00056 EQU AVTCWFL1 01942000 @NM00055 EQU AVTCWFL1 01943000 @NM00054 EQU AVTCWFL1 01944000 @NM00053 EQU AVTCWFL1 01945000 @NM00052 EQU AVTCWFL1 01946000 @NM00051 EQU AVTCWFL1 01947000 AVTCOMWN EQU AVTCWFL1 01948000 AVTCWEC1 EQU IEDQAVTD+920 01949000 AVTCWPM1 EQU IEDQAVTD+916 01950000 AVTCAREA EQU IEDQAVTD+912 01951000 AVTFZERO EQU IEDQAVTD+908 01952000 AVTCADDR EQU IEDQAVTD+904 01953000 AVTCOREC EQU IEDQAVTD+900 01954000 @NM00050 EQU IEDQAVTD+892 01955000 AVTCPBCB EQU IEDQAVTD+888 01956000 @NM00049 EQU IEDQAVTD+880 01957000 AVTDSIOB EQU IEDQAVTD+876 01958000 @NM00048 EQU IEDQAVTD+868 01959000 AVTCPRMB EQU IEDQAVTD+864 01960000 @NM00047 EQU IEDQAVTD+856 01961000 AVTCLOSB EQU IEDQAVTD+852 01962000 @NM00046 EQU IEDQAVTD+844 01963000 AVTACTIB EQU IEDQAVTD+840 01964000 @NM00045 EQU IEDQAVTD+836 01965000 AVTOLTEB EQU IEDQAVTD+832 01966000 AVTOLTCH EQU AVTOLTQB+1 01967000 AVTOLTVT EQU AVTOLTQB 01968000 @NM00044 EQU AVTOPCQB+8 01969000 @NM00043 EQU AVTOPCEC+1 01970000 @NM00042 EQU AVTOPCCC 01971000 AVTOPCPO EQU AVTOPCCC 01972000 AVTOPCWA EQU AVTOPCCC 01973000 AVTOPCCH EQU AVTOPCOB+1 01974000 AVTOPCVT EQU AVTOPCOB 01975000 @NM00041 EQU AVTCKPQB+9 01976000 AVTCKPTS EQU AVTCKPQB+8 01977000 @NM00040 EQU AVTCKPEC+1 01978000 @NM00039 EQU AVTCKPCC 01979000 AVTCKPPO EQU AVTCKPCC 01980000 AVTCKPWA EQU AVTCKPCC 01981000 AVTCKPCH EQU AVTCKPTB+1 01982000 AVTCKPVT EQU AVTCKPTB 01983000 @NM00038 EQU IEDQAVTD+796 01984000 AVTBFRTB EQU IEDQAVTD+792 01985000 @NM00037 EQU IEDQAVTD+784 01986000 AVTBFREB EQU IEDQAVTD+780 01987000 AVTTIMQ EQU IEDQAVTD+776 01988000 @NM00036 EQU IEDQAVTD+772 01989000 AVTIMQPS EQU IEDQAVTD+768 01990000 AVTINOUT EQU IEDQAVTD+766 01991000 AVTREFTM EQU IEDQAVTD+764 01992000 @NM00035 EQU IEDQAVTD+752 01993000 AVTDELYB EQU IEDQAVTD+748 01994000 AVTOCQPT EQU IEDQAVTD+744 01995000 AVTTSOPT EQU IEDQAVTD+740 01996000 AVTSUPPT EQU IEDQAVTD+736 01997000 AVTCBQCB EQU IEDQAVTD+732 01998000 AVTMSGS EQU IEDQAVTD+729 01999000 @NM00034 EQU AVTSYSER 02000000 @NM00033 EQU AVTSYSER 02001000 @NM00032 EQU AVTSYSER 02002000 @NM00031 EQU AVTSYSER 02003000 @NM00030 EQU AVTSYSER 02004000 @NM00029 EQU AVTSYSER 02005000 AVTCMAXN EQU AVTSYSER 02006000 AVTCMINN EQU AVTSYSER 02007000 AVT2260L EQU IEDQAVTD+724 02008000 AVTABEPL EQU AVTADBUF 02009000 AVTHFF EQU AVTCLRHI+2 02010000 @NM00028 EQU AVTCLRHI 02011000 AVTCCLNK EQU AVTCRELE+5 02012000 AVTCCPRI EQU AVTCRELE+4 02013000 AVTCCQCB EQU AVTCCELE+1 02014000 AVTCCKEY EQU AVTCCELE 02015000 AVTDELAD EQU IEDQAVTD+704 02016000 AVTDELEM EQU IEDQAVTD+700 02017000 AVTBSX EQU AVTCKLNK 02018000 AVTOPETR EQU AVTHG01 02019000 @NM00027 EQU AVTCKBYT 02020000 AVTCKONQ EQU AVTCKBYT 02021000 @NM00026 EQU AVTCKBYT 02022000 @NM00025 EQU AVTCKBYT 02023000 @NM00024 EQU AVTCKBYT 02024000 @NM00023 EQU AVTCKBYT 02025000 @NM00022 EQU AVTCKBYT 02026000 @NM00021 EQU AVTCKBYT 02027000 AVTOPERT EQU IEDQAVTD+690 02028000 AVTOPXCL EQU IEDQAVTD+688 02029000 AVTOPERL EQU IEDQAVTD+687 02030000 @NM00020 EQU IEDQAVTD+686 02031000 AVTCKTIM EQU IEDQAVTD+684 02032000 AVTCKELV EQU IEDQAVTD+682 02033000 AVTCPRCD EQU IEDQAVTD+681 02034000 AVTWARMN EQU AVTCKELF 02035000 AVTCRTLN EQU AVTCKELF 02036000 AVTCPIPN EQU AVTCKELF 02037000 AVTCCLCN EQU AVTCKELF 02038000 AVTCINCN EQU AVTCKELF 02039000 @NM00019 EQU AVTCKELF 02040000 AVTCMCPN EQU AVTCKELF 02041000 AVTCRDYN EQU AVTCKELF 02042000 AVTCKQAD EQU IEDQAVTD+677 02043000 AVTSCBSZ EQU IEDQAVTD+676 02044000 @NM00018 EQU IEDQAVTD+672 02045000 AVTCKELE EQU IEDQAVTD+668 02046000 @NM00017 EQU AVTCKPEL+8 02047000 AVTCKRLK EQU AVTCKPEL+5 02048000 AVTCKRPR EQU AVTCKPEL+4 02049000 AVTCKRMQ EQU AVTCKRMV+1 02050000 AVTCKRKY EQU AVTCKRMV 02051000 AVTHK EQU IEDQAVTD+648 02052000 AVTHI EQU IEDQAVTD+644 02053000 AVTIOT EQU IEDQAVTD+640 02054000 AVTNX EQU IEDQAVTD+636 02055000 AVTTONE EQU IEDQAVTD+632 02056000 AVTA3TL EQU IEDQAVTD+628 02057000 AVTDMECB EQU IEDQAVTD+624 02058000 AVTABEND EQU IEDQAVTD+618 02059000 AVTPLCBN EQU IEDQAVTD+616 02060000 @NM00016 EQU AVTSAVTP+1 02061000 @NM00015 EQU AVTSAVTF 02062000 AVTSNA EQU AVTSAVTF 02063000 AVTONSNA EQU AVTSAVTF 02064000 AVTVTMCP EQU AVTSAVTF 02065000 @NM00014 EQU IEDQAVTD+608 02066000 AVTCMBSS EQU IEDQAVTD+604 02067000 AVTRCV EQU IEDQAVTD+600 02068000 AVTSEND EQU IEDQAVTD+596 02069000 AVTCSCH EQU IEDQAVTD+592 02070000 AVTQ1 EQU IEDQAVTD+588 02071000 AVTE7 EQU IEDQAVTD+584 02072000 AVTHB EQU IEDQAVTD+580 02073000 AVTR1 EQU IEDQAVTD+576 02074000 AVTBZ EQU IEDQAVTD+572 02075000 AVTEZ EQU IEDQAVTD+568 02076000 AVTEC EQU IEDQAVTD+564 02077000 AVTEW EQU IEDQAVTD+560 02078000 AVTNDIAL EQU AVTSCOPT 02079000 AVTN2741 EQU AVTSCOPT 02080000 AVTCONCO EQU AVTSCOPT 02081000 AVTCONC EQU AVTSCOPT 02082000 AVTCMBUF EQU AVTSCOPT 02083000 AVTAPDMP EQU AVTSCOPT 02084000 @NM00013 EQU AVTSCOPT 02085000 AVTHA EQU AVTDISP 02086000 AVTEA EQU IEDQAVTD+548 02087000 AVTAX EQU IEDQAVTD+544 02088000 AVTA3 EQU IEDQAVTD+540 02089000 AVTGD EQU IEDQAVTD+536 02090000 AVTAL EQU IEDQAVTD+532 02091000 AVTOLTST EQU AVTHG02 02092000 AVTE8 EQU IEDQAVTD+524 02093000 AVTUI EQU IEDQAVTD+520 02094000 AVTCOMPT EQU IEDQAVTD+516 02095000 AVTCRSRF EQU IEDQAVTD+512 02096000 @NM00012 EQU IEDQAVTD+508 02097000 AVTKA02 EQU IEDQAVTD+504 02098000 AVTOPTPT EQU IEDQAVTD+500 02099000 AVTPCBPT EQU IEDQAVTD+496 02100000 AVTOSECB EQU IEDQAVTD+492 02101000 AVTOPECA EQU IEDQAVTD+488 02102000 AVTOLECA EQU IEDQAVTD+484 02103000 AVTCKECA EQU IEDQAVTD+480 02104000 AVTCWECA EQU IEDQAVTD+476 02105000 AVTCWTCB EQU IEDQAVTD+472 02106000 AVTOLTCB EQU IEDQAVTD+468 02107000 AVTOCTCB EQU IEDQAVTD+464 02108000 AVTCKTCB EQU IEDQAVTD+460 02109000 AVTAS EQU IEDQAVTD+456 02110000 AVTNOLBF EQU IEDQAVTD+454 02111000 AVTNCKPR EQU IEDQAVTD+453 02112000 AVTCIB EQU IEDQAVTD+452 02113000 AVTSPLPT EQU IEDQAVTD+448 02114000 AVTMVBFR EQU IEDQAVTD+444 02115000 AVTSBTA EQU IEDQAVTD+440 02116000 AVTRARTN EQU IEDQAVTD+436 02117000 AVTBSCAN EQU IEDQAVTD+432 02118000 AVTRDYA EQU IEDQAVTD+428 02119000 AVTDISTR EQU IEDQAVTD+420 02120000 AVTPARM3 EQU IEDQAVTD+416 02121000 @NM00011 EQU AVTPKF 02122000 @NM00010 EQU AVTPKF 02123000 @NM00009 EQU AVTPKF 02124000 AVTFTCHF EQU AVTPKF 02125000 @NM00008 EQU AVTPKF 02126000 @NM00007 EQU AVTPKF 02127000 @NM00006 EQU AVTPKF 02128000 @NM00005 EQU AVTPKF 02129000 AVTPARM EQU IEDQAVTD+408 02130000 AVTEXS2A EQU IEDQAVTD+402 02131000 AVTEXA2S EQU IEDQAVTD+396 02132000 AVTOCGET EQU IEDQAVTD+392 02133000 AVTCKAVT EQU @NM00003+1 02134000 @NM00004 EQU AVTCKFLG 02135000 AVTCKHLT EQU AVTCKFLG 02136000 AVTCKREQ EQU AVTCKFLG 02137000 AVTCKENV EQU AVTCKFLG 02138000 AVTCKNAC EQU AVTCKFLG 02139000 AVTCKTAC EQU AVTCKFLG 02140000 @NM00002 EQU IEDQAVTD+384 02141000 AVTREADD EQU IEDQAVTD+380 02142000 AVTREADY EQU IEDQAVTD+376 02143000 AVTRACE EQU IEDQAVTD+372 02144000 AVTTCB EQU IEDQAVTD+368 02145000 AVTPASWD EQU IEDQAVTD+360 02146000 AVTCTLCH EQU IEDQAVTD+352 02147000 AVTDOUBL EQU IEDQAVTD+344 02148000 AVTDOUBX EQU IEDQAVTD+336 02149000 AVTDPARM EQU IEDQAVTD+332 02150000 AVTCSTCS EQU IEDQAVTD+328 02151000 AVTDLQ EQU AVTSAVEX+32 02152000 @NM00001 EQU AVTSAVEX 02153000 AVTSAVE4 EQU IEDQAVTD+216 02154000 AVTSAVE3 EQU IEDQAVTD+144 02155000 AVTSAVE2 EQU IEDQAVTD+72 02156000 AVTSAVE1 EQU IEDQAVTD 02157000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02158000 @RF00462 EQU @RC00460 02159000 @RC00432 EQU @RC00431 02160000 @RC00433 EQU @RC00432 02161000 @RF00474 EQU @RC00433 02162000 @ENDDATA EQU * 02163000 END IGCSW10D,(C'PLS0705',0701,77033) 02164000