TITLE 'IEDQW25, SEND SERVICE MODULE *00001000 ' 00002000 IEDQW25 CSECT , 01S0001 00003000 @PROLOG STM @14,@12,12(@13) 01S0001 00004000 BALR @12,0 01S0001 00005000 @PSTART DS 0H 01S0001 00006000 USING @PSTART,@12 01S0001 00007000 * /* 00008000 IEDQW25 IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00009000 * RAVT=TOTAVTPT; /* SET THE AVT BASE */ 00010000 L RAVT,TOTAVTPT(,ROLTCB) 02S0328 00011000 * ROLTWK=ADDR(TOTSERV); /* SET THE BASE REGISTER TO BE 00012000 * USED FOR ADDRESSING AUTOMATIC 00013000 * DATA */ 00014000 LA ROLTWK,TOTSERV(,ROLTCB) 02S0329 00015000 * GEN REFS(ROLTWK) NOSETS; 02S0330 00016000 * /* 00017000 USING @DATD,ROLTWK INFORM THE ASSEMBLER OF THE 00018000 * BASE REGISTER TO BE USED FOR 00019000 * ADDRESSING AUTOMATIC DATA*/ 00020000 * TOTSAVE1(5:8)=RSAVE; /* SAVE CALLER SAVE AREA IN 02S0331 00021000 * IEDQW25 SAVE AREA */ 00022000 STCM RSAVE,15,TOTSAVE1+4(ROLTCB) 02S0331 00023000 * RSAVE=ADDR(TOTSAVE1); /* SET IEDQW25 SAVE AREA ADDRESS */ 00024000 LA RSAVE,TOTSAVE1(,ROLTCB) 02S0332 00025000 * 02S0333 00026000 * /*****************************************************************/ 00027000 * /* */ 00028000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00029000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00030000 * /* */ 00031000 * /*****************************************************************/ 00032000 * 02S0333 00033000 * 03S0333 00034000 * /*****************************************************************/ 00035000 * /* */ 00036000 * /* PROCESS.INITIAL: THIS SEGMENT DOES THE INITIAL PROCESSING. */ 00037000 * /* */ 00038000 * /*****************************************************************/ 00039000 * 03S0333 00040000 * DO; 03S0333 00041000 * ERRSW=OFF; /* INITIALIZE THE ERROR SWITCH TO 00042000 * ZERO */ 00043000 NI ERRSW,B'01111111' 03S0334 00044000 * END; 03S0335 00045000 * 03S0336 00046000 * /*****************************************************************/ 00047000 * /* */ 00048000 * /* PROCESS.PRIRSEC: THIS SEGMENT DOES THE PRIMARY OR SECONDARY */ 00049000 * /* DEVICE CHECKING */ 00050000 * /* */ 00051000 * /*****************************************************************/ 00052000 * 03S0336 00053000 * RFY 03S0336 00054000 * RPARM RSTD; /* RESTRICT REGISTER 1 */ 00055000 * RFY 03S0337 00056000 * RWORK RSTD; /* RESTRICT REGISTER 0 */ 00057000 * BASRPAR=RPARM; /* SAVE SEND PARM ADDRESS */ 00058000 ST RPARM,BASRPAR(,ROLTCB) 03S0338 00059000 * RTECB=SENDTCB; /* SET UP POINTER TO THE TECB 00060000 * FIELD */ 00061000 L @11,SENDTCB(,RSEND) 03S0339 00062000 LR RTECB,@11 03S0339 00063000 * IF SENDTCB=ZERO|TECBSNCT=BZERO|TECBSNOC=BZERO THEN 03S0340 00064000 LTR @11,@11 03S0340 00065000 BZ @RT00340 03S0340 00066000 CLI TECBSNCT(RTECB),X'00' 03S0340 00067000 BE @RT00340 03S0340 00068000 CLI TECBSNOC(RTECB),X'00' 03S0340 00069000 BNE @RF00340 03S0340 00070000 @RT00340 DS 0H 03S0341 00071000 * DO; /* IS TECB OMITTED OF SENSE 03S0341 00072000 * COUNTS ZERO @YM08477*/ 00073000 * RLTCB=ADDR(SENSDFLT); /* SET UP SENSE DEFAULT ADDRESS 00074000 * IN TECB SENSE ADDRESS REGISTER 00075000 * @YM08477*/ 00076000 LA RLTCB,@CB02597 03S0342 00077000 * END; 03S0343 00078000 * ELSE 03S0344 00079000 * DO; 03S0344 00080000 B @RC00340 03S0344 00081000 @RF00340 DS 0H 03S0345 00082000 * IF TECBSNOCTESTDSN(1:TOTTTBEL)=LCDSSMNM(1:TOTTTBEL) THEN 00155000 L @11,TOTTNTPR(,ROLTCB) 03S0361 00156000 SLR @09,@09 03S0361 00157000 IC @09,TOTTTBEL(,ROLTCB) 03S0361 00158000 BCTR @09,0 03S0361 00159000 EX @09,@SC02721 03S0361 00160000 BNE @RF00361 03S0361 00161000 * DO; /* IS PRIMARY TNT ENTRY EQUAL TO 00162000 * CDS SYMBOLIC NAME */ 00163000 * RIOB=ADDR(TOTPRIBK); /* SET UP IOBLOCK BASE POINTER 00164000 * FOR PRIMARY DEVICE ENTRY */ 00165000 LA @11,TOTPRIBK(,ROLTCB) 03S0363 00166000 LR RIOB,@11 03S0363 00167000 * BASRIOB=ADDR(TOTPRIBK); /* SAVE THE IOBLOCK BASE POINTER 00168000 * FOR THE PRIMARY DEVICE ENTRY */ 00169000 ST @11,BASRIOB(,ROLTCB) 03S0364 00170000 * OLTPRSC=ON; /* SET TEST DEVICE BIT ON FOR 00171000 * PRIMARY DEVICE */ 00172000 OI OLTPRSC(RIOB),B'00100000' 03S0365 00173000 * END; 03S0366 00174000 * ELSE 03S0367 00175000 * IF TOTSRTNT->TESTDSN(1:TOTTTBEL)=LCDSSMNM(1:TOTTTBEL) THEN 00176000 B @RC00361 03S0367 00177000 @RF00361 L @11,TOTSRTNT(,ROLTCB) 03S0367 00178000 SLR @09,@09 03S0367 00179000 IC @09,TOTTTBEL(,ROLTCB) 03S0367 00180000 BCTR @09,0 03S0367 00181000 EX @09,@SC02721 03S0367 00182000 BNE @RF00367 03S0367 00183000 * DO; /* IS SECONDARY TNT ENTRY EQUAL 00184000 * TO CDS SYMBOLIC NAME */ 00185000 * RIOB=ADDR(TOTSCIBK); /* SET UP THE BASE POINTER FOR 00186000 * THE SECONDARY DEVICE ENTRY */ 00187000 LA @11,TOTSCIBK(,ROLTCB) 03S0369 00188000 LR RIOB,@11 03S0369 00189000 * BASRIOB=ADDR(TOTSCIBK);/* SAVE THE BASE POINTER FOR THE 00190000 * SECONDARY DEVICE ENTRY */ 00191000 ST @11,BASRIOB(,ROLTCB) 03S0370 00192000 * OLTPRSC=OFF; /* SET TEST DEVICE BIT ON FOR 00193000 * SECONDARY DEVICE */ 00194000 NI OLTPRSC(RIOB),B'11011111' 03S0371 00195000 * END; 03S0372 00196000 * ELSE 03S0373 00197000 * DO; 03S0373 00198000 B @RC00367 03S0373 00199000 @RF00367 DS 0H 03S0374 00200000 * RETCDE=DEVNPRSC; /* SET RETURN CODE OF 08 IN 03S0374 00201000 * REGISTER 15 INDICATING DEVICE 00202000 * NOT PRIMARY OR SECONDARY */ 00203000 LA RETCDE,8 03S0374 00204000 * CALL ERREXIT; /* CALL THE ERROR EXIT SUBROUTINE*/ 00205000 BAL @14,ERREXIT 03S0375 00206000 * END; 03S0376 00207000 * END; 03S0377 00208000 @RC00367 DS 0H 03S0377 00209000 @RC00361 DS 0H 03S0378 00210000 * IF ERRSW=ON THEN 03S0378 00211000 @RC00352 TM ERRSW,B'10000000' 03S0378 00212000 BNO @RF00378 03S0378 00213000 * DO; /* TEST ERROR SWITCH TO GET TO 00214000 * EXIT */ 00215000 * END; 03S0380 00216000 * ELSE 03S0381 00217000 * DO; 03S0381 00218000 B @RC00378 03S0381 00219000 @RF00378 DS 0H 03S0382 00220000 * RIOB=BASRIOB; /* SET UP IOBLOCK BASE POINTER */ 00221000 L RIOB,BASRIOB(,ROLTCB) 03S0382 00222000 * RPARM=OLTTCOFF; /* GET COUNTERFEIT TNT OFFSET 00223000 * (TTCIN) */ 00224000 LH RPARM,OLTTCOFF(,RIOB) 03S0383 00225000 N RPARM,@CF02719 03S0383 00226000 * CALL IEDQTNT; /* FIND TTE ADDRESS */ 00227000 L @15,AVTRNMPT(,RAVT) 03S0384 00228000 BALR @14,@15 03S0384 00229000 * RTRM=RTRM-LENGTH(IEDNTRM); /* ADJUST TTE BASE */ 00230000 SL RTRM,@CF00037 03S0385 00231000 * BASRTRM=RTRM; /* SAVE TTE ADDRESS */ 00232000 ST RTRM,BASRTRM(,ROLTCB) 03S0386 00233000 * IF TRMPREF=ON&TRMTYPE=TRMLUNT THEN 03S0387 00234000 TM TRMPREF(RTRM),B'00010000' 03S0387 00235000 BNO @RF00387 03S0387 00236000 CLI TRMTYPE(RTRM),X'30' 03S0387 00237000 BNE @RF00387 03S0387 00238000 * DO; /* IS THIS A 3705 LU RESOURCE */ 00239000 * RDCT=AVTCSTCS+(TRMCHCIN-1)*AVTDCTLN;/* DCT ENTRY ADDRESS */ 00240000 SLR @07,@07 03S0389 00241000 IC @07,TRMCHCIN(,RTRM) 03S0389 00242000 BCTR @07,0 03S0389 00243000 MH @07,AVTDCTLN(,RAVT) 03S0389 00244000 AL @07,AVTCSTCS(,RAVT) 03S0389 00245000 LR RDCT,@07 03S0389 00246000 * RSEND=BASRPAR; /* SET UP THE SEND PARAMETER LIST 00247000 * POINTER */ 00248000 L RSEND,BASRPAR(,ROLTCB) 03S0390 00249000 * IF SENDTCB^=ZERO THEN 03S0391 00250000 L @11,SENDTCB(,RSEND) 03S0391 00251000 LTR @11,@11 03S0391 00252000 BZ @RF00391 03S0391 00253000 * DO; /* TECB ADDRESS ZERO @YM08477*/ 00254000 * RTECB=SENDTCB; /* SET UP THE TECB BASE POINTER */ 00255000 LR RTECB,@11 03S0393 00256000 * IF LCDSFBTE=ASCII THEN 03S0394 00257000 CLI LCDSFBTE(RCDS),X'80' 03S0394 00258000 BNE @RF00394 03S0394 00259000 * LTCBALT=ON; /* TURN ON THE ASCII BIT IN THE 00260000 * TECB */ 00261000 OI LTCBALT(RLTCB),B'00001000' 03S0395 00262000 * ELSE 03S0396 00263000 * LTCBALT=OFF; /* TURN OFF THE ASCII BIT IN THE 00264000 * TECB */ 00265000 B @RC00394 03S0396 00266000 @RF00394 NI LTCBALT(RLTCB),B'11110111' 03S0396 00267000 * END; /* @YM08477*/ 00268000 * END; 03S0398 00269000 * ELSE 03S0399 00270000 * DO; 03S0399 00271000 B @RC00387 03S0399 00272000 @RF00387 DS 0H 03S0400 00273000 * RETCDE=RC0C; /* SET RETURN CODE OF 0C-TEST 00274000 * DEVICE IS NOT A 3770 OR 3270 00275000 * TERMINAL */ 00276000 LA RETCDE,12 03S0400 00277000 * CALL ERREXIT; /* CALL ERROR EXIT SUBROUTINE */ 00278000 BAL @14,ERREXIT 03S0401 00279000 * END; 03S0402 00280000 * END; 03S0403 00281000 @RC00387 DS 0H 03S0404 00282000 * RFY 03S0404 00283000 * RCDS UNRSTD; 03S0404 00284000 @RC00378 DS 0H 03S0405 00285000 * RFY 03S0405 00286000 * RPARM UNRSTD; 03S0405 00287000 * RFY 03S0406 00288000 * RWORK UNRSTD; 03S0406 00289000 * RFY 02S0407 00290000 * RPARM RSTD; 02S0407 00291000 * IF ERRSW=ON THEN 02S0408 00292000 TM ERRSW,B'10000000' 02S0408 00293000 BNO @RF00408 02S0408 00294000 * DO; /* IS ERROR EXIT SWITCH OFF 02S0409 00295000 * @YM08534*/ 00296000 * END; /* @YM08534*/ 00297000 * ELSE /* @YM08534*/ 00298000 * DO; 02S0411 00299000 B @RC00408 02S0411 00300000 @RF00408 DS 0H 02S0412 00301000 * RSEND=BASRPAR; /* SETUP SEND PARM ADDRESS */ 00302000 L RSEND,BASRPAR(,ROLTCB) 02S0412 00303000 * IF SENDSTPE=OFF THEN 02S0413 00304000 TM SENDSTPE(RSEND),B'00000010' 02S0413 00305000 BNZ @RF00413 02S0413 00306000 * DO; /* IS THIS A SEND REQUEST */ 00307000 * 03S0415 00308000 * /*********************************************************/ 00309000 * /* */ 00310000 * /* PROCESS.SENDREQ: THIS PROCESS BUILDS THE BUFFER AND */ 00311000 * /* POST IT TO THE DESTINATION QCB WHEN A SEND REQUEST IS */ 00312000 * /* ISSUED BY THE OLT. */ 00313000 * /* */ 00314000 * /*********************************************************/ 00315000 * 03S0415 00316000 * RFY 03S0415 00317000 * RSEND RSTD; 03S0415 00318000 * RFY 03S0416 00319000 * RWORK RSTD; 03S0416 00320000 * RRESPL=TOTRESPL; /* SET UP THE ADDRESS OF THE 00321000 * RESPL */ 00322000 L RRESPL,TOTRESPL(,ROLTCB) 03S0417 00323000 * RWORK=ADDR(TOTWAWRK); /* SAVE RETURN ADDRESS */ 00324000 LA RWORK,TOTWAWRK(,ROLTCB) 03S0418 00325000 * RPARM=((SENDRLN+AVTHDRSZ+LRHLEN)/AVTKEYLE)+ONE;/* 03S0419 00326000 * CALCULATE THE NUMBER OF UNITS 00327000 * REQUIRED @YM09025*/ 00328000 LA @11,33 03S0419 00329000 LH @07,SENDRLN(,RSEND) 03S0419 00330000 N @07,@CF02719 03S0419 00331000 ALR @11,@07 03S0419 00332000 LR @08,@11 03S0419 00333000 SRDA @08,32 03S0419 00334000 LH @11,AVTKEYLE(,RAVT) 03S0419 00335000 DR @08,@11 03S0419 00336000 AL @09,@CF00062 03S0419 00337000 LR RPARM,@09 03S0419 00338000 * RSAVE=ADDR(TOTSAVE6); /* SET UP IEDQWA SAVE AREA */ 00339000 LA RSAVE,TOTSAVE6(,ROLTCB) 03S0420 00340000 * CALL ALLOCBUF; /* CALL IEDQWA TO REQUEST A 03S0421 00341000 * BUFFER */ 00342000 L @15,RESABUF(,RRESPL) 03S0421 00343000 BALR @14,@15 03S0421 00344000 * RSAVE=ADDR(TOTSAVE1); /* SET UP IEDQW25 SAVE AREA */ 00345000 LA RSAVE,TOTSAVE1(,ROLTCB) 03S0422 00346000 * RFY 03S0423 00347000 * RPRF RSTD; 03S0423 00348000 * RPRF=RPARM; /* GET ADDRESS OF BUFFER RETURNED 00349000 * BY TCAM */ 00350000 LR RPRF,RPARM 03S0424 00351000 * BASRPRF=RPRF; /* SAVE ADDRESS OF BUFFER 03S0425 00352000 * RETURNED BY TCAM */ 00353000 ST RPRF,BASRPRF(,ROLTCB) 03S0425 00354000 * RLCB=ADDR(TOTWKSPC)-(ADDR(LCBRCQCB)-ADDR(IEDQLCB));/* MAP 00355000 * LCB STRUCTURE ON THE WORKSPACE 00356000 * IN THE OLTCB */ 00357000 LA @11,TOTWKSPC(,ROLTCB) 03S0426 00358000 LR @09,@11 03S0426 00359000 SL @09,@CF01567 03S0426 00360000 LR RLCB,@09 03S0426 00361000 * BASRLCB=RLCB; /* SAVE ADDRESS OF THE LCB 03S0427 00362000 * @YM08477*/ 00363000 ST RLCB,BASRLCB(,ROLTCB) 03S0427 00364000 * RTTCP=ADDR(TOTWKSPC); /* SET UP TOTE/TCAM BASE POINTER 00365000 * @YM08477*/ 00366000 LR RTTCP,@11 03S0428 00367000 * RTRM=BASRTRM; /* GET POINTER FROM BASE POINTER 00368000 * SAVE AREA */ 00369000 L RTRM,BASRTRM(,ROLTCB) 03S0429 00370000 * RSCB=ADDR(TTCSCB); /* GET ADDRESS BASE FOR SCB FOUND 00371000 * IN THE WORKAREA */ 00372000 LA @09,40 03S0430 00373000 LR RSCB,RTTCP 03S0430 00374000 ALR RSCB,@09 03S0430 00375000 LA @07,TTCSCB(,RSCB) 03S0430 00376000 LR RSCB,@07 03S0430 00377000 * RFY 03S0431 00378000 * IEDQLCB BASED(RRETURN);/* @YM08477*/ 00379000 * RRETURN=BASRLCB; /* SET UP THE LCB ADDRESS 03S0432 00380000 * @YM08477*/ 00381000 L @05,BASRLCB(,ROLTCB) 03S0432 00382000 LR RRETURN,@05 03S0432 00383000 * LCBSCBA=ADDR(TTCSCB); /* GET SCB ADDRESS */ 00384000 STCM @07,7,LCBSCBA(RRETURN) 03S0433 00385000 * SCBSTATE=BZERO; /* CLEAR STATUS BYTE */ 00386000 MVI SCBSTATE(RSCB),X'00' 03S0434 00387000 * SCBDESTQ=TRMDESTQ; /* POST MSG TO DUMMY QCB */ 00388000 MVC SCBDESTQ(3,RSCB),TRMDESTQ(RTRM) 03S0435 00389000 * PRFLCB=RRETURN; /* SET LCB ADDRESS TO DUMMY LCB 00390000 * IN WORKAREA */ 00391000 STCM RRETURN,7,PRFLCB(RPRF) 03S0436 00392000 * RFY 03S0437 00393000 * IEDQLCB BASED(RLCB); /* @YM08477*/ 00394000 * RSEND=BASRPAR; /* GET BASE POINTER FOR SEND PARM 00395000 * LIST */ 00396000 L RSEND,BASRPAR(,ROLTCB) 03S0438 00397000 * RIOB=BASRIOB; /* GET BASE POINTER FOR THE TEST 00398000 * ENTRY */ 00399000 L RIOB,BASRIOB(,ROLTCB) 03S0439 00400000 * PRFDEST=OLTTCOFF; /* CONTERFEIT TTCIN OF THE 03S0440 00401000 * RESOURCE LU */ 00402000 LH @07,OLTTCOFF(,RIOB) 03S0440 00403000 N @07,@CF02719 03S0440 00404000 STH @07,PRFDEST(,RPRF) 03S0440 00405000 * PRFSIZE=SENDRLN+AVTHDRSZ+LRHLEN;/* SIZE OF DATA IN THE 00406000 * BUFFER EQUAL THE MESSAGE SIZE 00407000 * PLUS PREFIX SIZE PLUS RH */ 00408000 LA @07,33 03S0441 00409000 LH @05,SENDRLN(,RSEND) 03S0441 00410000 N @05,@CF02719 03S0441 00411000 ALR @07,@05 03S0441 00412000 STH @07,PRFSIZE(,RPRF) 03S0441 00413000 * RRESPL=TOTRESPL; /* PUT THE ADDRESS OF THE RESPL 00414000 * IN ITS BASE REGISTER */ 00415000 L RRESPL,TOTRESPL(,ROLTCB) 03S0442 00416000 * PRFSRCE=0; 03S0443 00417000 SLR @05,@05 03S0443 00418000 STH @05,PRFSRCE(,RPRF) 03S0443 00419000 * RFY 03S0444 00420000 * RPRF UNRSTD; 03S0444 00421000 * BASNBUNT(4:4)=((SENDRLN+AVTHDRSZ+LRHLEN)/AVTKEYLE)+ONE;/* 00422000 * SET UNIT COUNT */ 00423000 LR @08,@07 03S0445 00424000 SRDA @08,32 03S0445 00425000 LH @07,AVTKEYLE(,RAVT) 03S0445 00426000 DR @08,@07 03S0445 00427000 AL @09,@CF00062 03S0445 00428000 STC @09,BASNBUNT+3(,ROLTCB) 03S0445 00429000 * RFY 03S0446 00430000 * RPRF RSTD; 03S0446 00431000 * RPRF=BASRPRF; /* RESTORE THE ADDRESS OF THE 00432000 * BUFFER */ 00433000 L @07,BASRPRF(,ROLTCB) 03S0447 00434000 LR RPRF,@07 03S0447 00435000 * PRFNBUNT=BASNBUNT(4:4); /* SET UNIT COUNT */ 00436000 STC @09,PRFNBUNT(,RPRF) 03S0448 00437000 * PRFSTAT1=PRFSTAT1&&PRFSTAT1;/* CLEAR STATUS BYTE */ 00438000 XC PRFSTAT1(1,RPRF),PRFSTAT1(RPRF) 03S0449 00439000 * PRFSCAN=PRFSCAN&&PRFSCAN;/* CLEAR SCAN POINTER */ 00440000 LH @09,PRFSCAN(,RPRF) 03S0450 00441000 LR @07,@09 03S0450 00442000 XR @07,@09 03S0450 00443000 STH @07,PRFSCAN(,RPRF) 03S0450 00444000 * RTTCP=ADDR(TOTWKSPC); /* SET UP TOTE/TCAM BASE POINTER */ 00445000 LR RTTCP,@11 03S0451 00446000 * RSCB=ADDR(TTCSCB); /* GET ADDRESS OF THE SCB */ 00447000 LA @11,40 03S0452 00448000 ALR @11,RTTCP 03S0452 00449000 LA RSCB,TTCSCB(,@11) 03S0452 00450000 * PRFQCBA=SCBDESTQ; /* SET ADDRESS OF QCB TH WHICH 00451000 * BUFFER IS TO BE POSTED */ 00452000 MVC PRFQCBA(3,RPRF),SCBDESTQ(RSCB) 03S0453 00453000 * PRFPRI=PRIDESTQ; /* SET PRIORITY FOR POST TO 03S0454 00454000 * DESTINATION QCB */ 00455000 MVI PRFPRI(RPRF),X'E4' 03S0454 00456000 * RTRH=ADDR(PRFSHDR); /* GET THE ADDRESS OF THE RH 00457000 * BUFFER POSITION */ 00458000 LA RTRH,PRFSHDR(,RPRF) 03S0455 00459000 * IF SENDSTPE=ON THEN 03S0456 00460000 TM SENDSTPE(RSEND),B'00000010' 03S0456 00461000 BNO @RF00456 03S0456 00462000 * TRHTYPE=ON; /* SET IF RESPONSE OR REQUEST 00463000 * FROM OLT SEND */ 00464000 OI TRHTYPE(RTRH),B'10000000' 03S0457 00465000 * ELSE 03S0458 00466000 * TRHTYPE=OFF; 03S0458 00467000 B @RC00456 03S0458 00468000 @RF00456 NI TRHTYPE(RTRH),B'01111111' 03S0458 00469000 * RLTCB=BASRTEC; /* PUT THE TECB ADDRESS IN ITS 00470000 * BASE REGISTER @YM08477*/ 00471000 @RC00456 L RLTCB,BASRTEC(,ROLTCB) 03S0459 00472000 * IF LTCBFIR=ON|LTCBONLY=ON THEN 03S0460 00473000 TM LTCBFIR(RLTCB),B'10010000' 03S0460 00474000 BZ @RF00460 03S0460 00475000 * TRHBC=ON; /* BEGIN CHAINING */ 00476000 OI TRHBC(RTRH),B'00000010' 03S0461 00477000 * ELSE 03S0462 00478000 * TRHBC=OFF; 03S0462 00479000 B @RC00460 03S0462 00480000 @RF00460 NI TRHBC(RTRH),B'11111101' 03S0462 00481000 * IF LTCBLAST=ON|LTCBONLY=ON THEN 03S0463 00482000 @RC00460 TM LTCBLAST(RLTCB),B'00110000' 03S0463 00483000 BZ @RF00463 03S0463 00484000 * TRHEC=ON; /* END CHAINING */ 00485000 OI TRHEC(RTRH),B'00000001' 03S0464 00486000 * ELSE 03S0465 00487000 * TRHEC=OFF; 03S0465 00488000 B @RC00463 03S0465 00489000 @RF00463 NI TRHEC(RTRH),B'11111110' 03S0465 00490000 * TRHDR1=ON; /* DEFENDENT RESPONSE IS ALWAYS 00491000 * ON FOR A SEND REQUEST FROM THE 00492000 * OLT */ 00493000 @RC00463 DS 0H 03S0467 00494000 * TRHDR2=OFF; /* ALWAYS OFF FOR TCAM */ 00495000 OI TRHDR1(RTRH),B'10000000' 03S0467 00496000 NI TRHDR2(RTRH),B'11011111' 03S0467 00497000 * IF SENDREX=ON THEN 03S0468 00498000 TM SENDREX(RSEND),B'00010000' 03S0468 00499000 BNO @RF00468 03S0468 00500000 * TRHER=ON; /* EXCEPTION RESPONSE */ 00501000 OI TRHER(RTRH),B'00010000' 03S0469 00502000 * ELSE 03S0470 00503000 * TRHER=OFF; 03S0470 00504000 B @RC00468 03S0470 00505000 @RF00468 NI TRHER(RTRH),B'11101111' 03S0470 00506000 * IF $CTEQTT=OFF&TOTAPTST=OFF THEN/* CT/AP EQU TEST DEVICE 00507000 * @YM08097*/ 00508000 @RC00468 TM $CTEQTT(ROLTCB),B'00010000' 03S0471 00509000 BNZ @RF00471 03S0471 00510000 TM TOTAPTST(ROLTCB),B'00001000' 03S0471 00511000 BNZ @RF00471 03S0471 00512000 * DO; /* @YM08097*/ 00513000 * IF SENDBBKT=ON THEN 03S0473 00514000 TM SENDBBKT(RSEND),B'10000000' 03S0473 00515000 BNO @RF00473 03S0473 00516000 * TRHBB=ON; /* BEGIN BRACKETS */ 00517000 OI TRHBB(RTRH),B'10000000' 03S0474 00518000 * ELSE 03S0475 00519000 * TRHBB=OFF; 03S0475 00520000 B @RC00473 03S0475 00521000 @RF00473 NI TRHBB(RTRH),B'01111111' 03S0475 00522000 * IF SENDEBKT=ON THEN 03S0476 00523000 @RC00473 TM SENDEBKT(RSEND),B'01000000' 03S0476 00524000 BNO @RF00476 03S0476 00525000 * TRHEB=ON; /* END BRACKETS */ 00526000 OI TRHEB(RTRH),B'01000000' 03S0477 00527000 * ELSE 03S0478 00528000 * TRHEB=OFF; 03S0478 00529000 B @RC00476 03S0478 00530000 @RF00476 NI TRHEB(RTRH),B'10111111' 03S0478 00531000 * END; /* @YM08097*/ 00532000 * ELSE 03S0480 00533000 * ; 03S0480 00534000 @RF00471 DS 0H 03S0481 00535000 * IF SENDCREQ=OFF|SENDCCMD=OFF THEN 03S0481 00536000 @RC00471 TM SENDCREQ(RSEND),B'11000000' 03S0481 00537000 BO @RF00481 03S0481 00538000 * TRHCDI=ON; /* CHANGE DIRECTION REQUEST */ 00539000 OI TRHCDI(RTRH),B'00100000' 03S0482 00540000 * ELSE 03S0483 00541000 * TRHCDI=OFF; 03S0483 00542000 B @RC00481 03S0483 00543000 @RF00481 NI TRHCDI(RTRH),B'11011111' 03S0483 00544000 * IF SENDCDSL=ON THEN 03S0484 00545000 @RC00481 TM SENDCDSL(RSEND),B'00000100' 03S0484 00546000 BNO @RF00484 03S0484 00547000 * TRHCSI=ON; /* CODE SELECTION INDICATOR */ 00548000 OI TRHCSI(RTRH),B'00001000' 03S0485 00549000 * ELSE 03S0486 00550000 * TRHCSI=OFF; 03S0486 00551000 B @RC00484 03S0486 00552000 @RF00484 NI TRHCSI(RTRH),B'11110111' 03S0486 00553000 * RIOB=BASRIOB; /* GET POINTER FROM BASE POINTER 00554000 * SAVE AREA */ 00555000 @RC00484 L RIOB,BASRIOB(,ROLTCB) 03S0487 00556000 * IF SENDRFME=ON THEN 03S0488 00557000 TM SENDRFME(RSEND),B'00100000' 03S0488 00558000 BNO @RF00488 03S0488 00559000 * OLTFME=ON; /* SAVE ACTUAL RESPONSE FROM SEND 00560000 * REQUEST FOR SECONDARY DEVICE */ 00561000 OI OLTFME(RIOB),B'00000100' 03S0489 00562000 * ELSE 03S0490 00563000 * OLTFME=OFF; 03S0490 00564000 B @RC00488 03S0490 00565000 @RF00488 NI OLTFME(RIOB),B'11111011' 03S0490 00566000 * IF SENDREX=ON THEN 03S0491 00567000 @RC00488 TM SENDREX(RSEND),B'00010000' 03S0491 00568000 BNO @RF00491 03S0491 00569000 * OLTEX=ON; /* SAVE ACTUAL RESPONSE FROM SEND 00570000 * REQUEST FOR SECONDARY DEVICE */ 00571000 OI OLTEX(RIOB),B'00001000' 03S0492 00572000 * ELSE 03S0493 00573000 * OLTEX=OFF; 03S0493 00574000 B @RC00491 03S0493 00575000 @RF00491 NI OLTEX(RIOB),B'11110111' 03S0493 00576000 * RPLMVP=ADDR(TOTWOWRK); /* ADDRESSIBILITY TO THE MOVE 00577000 * PARAMETER LIST */ 00578000 @RC00491 LA RPLMVP,TOTWOWRK(,ROLTCB) 03S0494 00579000 * RSAVE=ADDR(TOTSAVE6); /* SET UP THE POINTER TO THE 00580000 * IEDMVBFR SAVE AREA */ 00581000 LA RSAVE,TOTSAVE6(,ROLTCB) 03S0495 00582000 * PLMVTU=RPRF; /* ADDRESS OF TCAM BUFFER THAT 00583000 * WILL CONTAIN THE MESSAGE */ 00584000 ST RPRF,PLMVTU(,RPLMVP) 03S0496 00585000 * PLMVLNTH=SENDRLN; /* LENGTH OF DATA TO BE MOVED 00586000 * @YM09025*/ 00587000 LH @11,SENDRLN(,RSEND) 03S0497 00588000 N @11,@CF02719 03S0497 00589000 STH @11,PLMVLNTH(,RPLMVP) 03S0497 00590000 * PLMVTD=ADDR(PRFSHDR)+LRHLEN;/* LOCATION IN THE BUFFER 00591000 * WHERE THE DATA IS TO BE MOVED */ 00592000 LA @11,PRFSHDR(,RPRF) 03S0498 00593000 AL @11,@CF00068 03S0498 00594000 ST @11,PLMVTD(,RPLMVP) 03S0498 00595000 * PLMVSU=SENDARA; /* SOURCE UNIT ADDRESS */ 00596000 L @11,SENDARA(,RSEND) 03S0499 00597000 ST @11,PLMVSU(,RPLMVP) 03S0499 00598000 * PLMVSD=SENDARA; /* SOURCE DATA ADDRESS */ 00599000 ST @11,PLMVSD(,RPLMVP) 03S0500 00600000 * PLMVFLG1=BZERO; /* CLEAR FLAGS */ 00601000 MVI PLMVFLG1(RPLMVP),X'00' 03S0501 00602000 * PLMVSCTG=ON; /* INDICATE THAT THE MESSAGE IS 00603000 * IN A CONTIGUOUS AREA */ 00604000 OI PLMVSCTG(RPLMVP),B'01000000' 03S0502 00605000 * PLMVFLG2=BZERO; /* CLEAR FLAG BYTE TWO @YM08477*/ 00606000 MVI PLMVFLG2(RPLMVP),X'00' 03S0503 00607000 * RPARM=RPLMVP; /* REGISTER ONE POINTS TO MOVE 00608000 * PARM LIST @YM08477*/ 00609000 LR RPARM,RPLMVP 03S0504 00610000 * CALL IEDMVBFR; /* GO PUT MESSAGE INTO TCAM 03S0505 00611000 * BUFFER */ 00612000 L @11,AVTSAVTP(,RAVT) 03S0505 00613000 L @15,SAVTMVBF(,@11) 03S0505 00614000 BALR @14,@15 03S0505 00615000 * RSAVE=ADDR(TOTSAVE1); /* SET UP POINTER TO THE IEDQW25 00616000 * SAVE AREA */ 00617000 LA RSAVE,TOTSAVE1(,ROLTCB) 03S0506 00618000 * RWORK=ADDR(TOTWAWRK); /* GET ADDRESS OF WORK AREA TO BE 00619000 * USED BY POST/WAIT ROUTINE */ 00620000 LA RWORK,TOTWAWRK(,ROLTCB) 03S0507 00621000 * RPRF=BASRPRF; /* SET REGISTER 1 TO BUFFER TO BE 00622000 * POSTED */ 00623000 L RPRF,BASRPRF(,ROLTCB) 03S0508 00624000 * GEN(ICM RPARM,8,REQKEY);/* SET ELEMENT KEY IN REGISTER 00625000 * ZERO */ 00626000 ICM RPARM,8,REQKEY 00627000 * PRFLINK=ADDR(TOTWOWRK); /* CHAIN WAITING ELEMENT TO THE 00628000 * BUFFER */ 00629000 LA @11,TOTWOWRK(,ROLTCB) 03S0510 00630000 STCM @11,7,PRFLINK(RPRF) 03S0510 00631000 * RTTCP=ADDR(TOTWAWRK); /* SET ADDRESS BASE FOR TCAM/TOTE 00632000 * STRUCTURE */ 00633000 LA RTTCP,TOTWAWRK(,ROLTCB) 03S0511 00634000 * REQQCB=ADDR(TTCQCB); /* SET QCB TO THE QCB USED BY 00635000 * IEDQWA */ 00636000 LA @11,40 03S0512 00637000 ALR @11,RTTCP 03S0512 00638000 ST @11,REQQCB(,ROLTCB) 03S0512 00639000 * REQLINK=ZERO; /* CLEAR LINK FIELD INDICATING 00640000 * LAST ELEMENT */ 00641000 SLR @11,@11 03S0513 00642000 STCM @11,7,REQLINK(ROLTCB) 03S0513 00643000 * REQPRI=PRILNSCL; /* SET PRIORITY TO ONE LEVEL 00644000 * LOWER THAN QCB POST TO 03S0514 00645000 * DESTINATION QCB @OX21052*/ 00646000 MVI REQPRI(ROLTCB),X'E3' 03S0514 00647000 * RTRM=BASRTRM; /* GET THE TTE POINTER */ 00648000 L RTRM,BASRTRM(,ROLTCB) 03S0515 00649000 * TRMTDIFF=ON; /* TEST DEVICE ID FOR TOTE */ 00650000 L @11,TRMTDIFF-3(,RTRM) 03S0516 00651000 @GL00005 LR @09,@11 03S0516 00652000 O @09,@CF02737 03S0516 00653000 CS @11,@09,TRMTDIFF-3(RTRM) 03S0516 00654000 BNE @GL00005 03S0516 00655000 * RPARM=RPRF; /* NOW PUT DESTINATION QCB IN 00656000 * REGISTER ONE */ 00657000 LR RPARM,RPRF 03S0517 00658000 * RRESPL=TOTRESPL; /* SET UP THE ADDRESS OF THE 00659000 * RESPL */ 00660000 L RRESPL,TOTRESPL(,ROLTCB) 03S0518 00661000 * CALL POSTWAIT; /* CALL IEDQWA TO POST OUTPUT 00662000 * BUFFER AND REQUEST ELEMENT TO 00663000 * TCAM */ 00664000 L @15,RESPLRVT(,RRESPL) 03S0519 00665000 BALR @14,@15 03S0519 00666000 * RETCDE=RCGOOD; /* GOOD RETURN CODE 00 */ 00667000 SLR RETCDE,RETCDE 03S0520 00668000 * TOTRTCOD=RETCDE; /* SAVE RETURN CODE IN OLTCB */ 00669000 STC RETCDE,TOTRTCOD(,ROLTCB) 03S0521 00670000 * RFY 03S0522 00671000 * RPARM UNRSTD; /* UNRESTRICT REGISTER 1 */ 00672000 * RFY 03S0523 00673000 * RWORK UNRSTD; /* UNRESTRICT REGISTER 10 */ 00674000 * END; 02S0524 00675000 * ELSE 02S0525 00676000 * DO; /* NO,IT IS A SEND RESPONSE */ 00677000 B @RC00413 02S0525 00678000 @RF00413 DS 0H 02S0526 00679000 * 03S0526 00680000 * /*********************************************************/ 00681000 * /* */ 00682000 * /* PROCESS.SENDREC: THIS PROCESS BUILDS A PIU AND POST IT*/ 00683000 * /* TO THE DFOUT MODULE WHEN A SEND RESPONSE IS ISSUED BY */ 00684000 * /* THE OLT. */ 00685000 * /* */ 00686000 * /*********************************************************/ 00687000 * 03S0526 00688000 * RFY 03S0526 00689000 * RPARM RSTD; /* RESTRICT REGISTER 1 */ 00690000 * RFY 03S0527 00691000 * RWORK RSTD; /* RESTRICT REGISTER 10 */ 00692000 * RWORK=ADDR(TOTWAWRK); /* SAVE RETURN ADDRESS */ 00693000 LA RWORK,TOTWAWRK(,ROLTCB) 03S0528 00694000 * RPARM=ONE; /* THE NUMBER OF UNITS REQUIRED 00695000 * IS 1 @YM08477*/ 00696000 LA RPARM,1 03S0529 00697000 * RSAVE=ADDR(TOTSAVE6); /* SET UP THE POINTER TO THE 00698000 * IEDQWA SAVE AREA */ 00699000 LA RSAVE,TOTSAVE6(,ROLTCB) 03S0530 00700000 * RRESPL=TOTRESPL; /* SET UP THE ADDRESS THE RESPL */ 00701000 L RRESPL,TOTRESPL(,ROLTCB) 03S0531 00702000 * CALL ALLOCBUF; /* CALL IEDQWA TO REQUEST A 03S0532 00703000 * BUFFER */ 00704000 L @15,RESABUF(,RRESPL) 03S0532 00705000 BALR @14,@15 03S0532 00706000 * RSAVE=ADDR(TOTSAVE1); /* SET UP THE POINTER TO THE 00707000 * IEDQW25 SAVE AREA */ 00708000 LA RSAVE,TOTSAVE1(,ROLTCB) 03S0533 00709000 * RPRF=RPARM; /* SET UP THE BUFFER ADDRESS */ 00710000 LR RPRF,RPARM 03S0534 00711000 * BASRPRF=RPRF; /* SAVE THE BUFFER ADDRESS */ 00712000 ST RPRF,BASRPRF(,ROLTCB) 03S0535 00713000 * RPIU=ADDR(PRFSUNIT); /* SET PIU POINTER TO THE START 00714000 * OF THE PIU MESSAGE */ 00715000 LA RPIU,PRFSUNIT(,RPRF) 03S0536 00716000 * BASRPIU=RPIU; /* SAVE THE PIU POINTER */ 00717000 ST RPIU,BASRPIU(,ROLTCB) 03S0537 00718000 * RTTH=ADDR(PIUTH); /* SET TH POINTER TO THE START OF 00719000 * THE TH INFORMATION */ 00720000 LR RTTH,RPIU 03S0538 00721000 * PRF2TNTI=ON; /* TTCIN OFFSETS EXIST IN PIU */ 00722000 * PRF2FORM=ON; /* 2ND WORD IN THIS PREFIX */ 00723000 LR @11,RPRF 03S0540 00724000 SL @11,@CF00047 03S0540 00725000 OI PRF2TNTI(@11),B'11000000' 03S0540 00726000 * PRF2SEQP=ADDR(TTHSNF); /* POINTER TO SEQUENCE NUMBER 00727000 * AREA */ 00728000 LA @09,TTHSNF(,RTTH) 03S0541 00729000 ST @09,PRF2SEQP(,@11) 03S0541 00730000 * PRFPIUO=ONE; /* OFFSET TO PIU */ 00731000 MVI PRFPIUO(RPRF),X'01' 03S0542 00732000 * PRFQCBA=SAVTDFCO; /* SET ADDRESS OF QCB TO WHICH 00733000 * THE BUFFER IS TO BE POSTED */ 00734000 L @11,AVTSAVTP(,RAVT) 03S0543 00735000 MVC PRFQCBA(3,RPRF),SAVTDFCO+1(@11) 03S0543 00736000 * TTHFTYPE=TTHFID1; /* FID 1 */ 00737000 NI TTHFTYPE(RTTH),B'00011111' 03S0544 00738000 OI TTHFTYPE(RTTH),B'00010000' 03S0544 00739000 * TTHBBIU=ON; /* BEGIN SEQMENT */ 00740000 * TTHEBIU=ON; /* END SEQMENT */ 00741000 OI TTHBBIU(RTTH),B'00001100' 03S0546 00742000 * RIOB=BASRIOB; /* GET POINTER FROM BASE POINTER 00743000 * SAVE AREA */ 00744000 L RIOB,BASRIOB(,ROLTCB) 03S0547 00745000 * IF OLTEN=ON THEN 03S0548 00746000 TM OLTEN(RIOB),B'00000010' 03S0548 00747000 BNO @RF00548 03S0548 00748000 * TTHEFI=ON; /* EXPEDITED/NORMAL INDICATOR */ 00749000 OI TTHEFI(RTTH),B'00000001' 03S0549 00750000 * ELSE 03S0550 00751000 * TTHEFI=OFF; 03S0550 00752000 B @RC00548 03S0550 00753000 @RF00548 NI TTHEFI(RTTH),B'11111110' 03S0550 00754000 * TTHBYTE1=BZERO; /* CLEAR TH BYTE ONE */ 00755000 @RC00548 MVI TTHBYTE1(RTTH),X'00' 03S0551 00756000 * TTHDAF=OLTTCOFF; /* TTCIN OF LU */ 00757000 MVC TTHDAF(2,RTTH),OLTTCOFF(RIOB) 03S0552 00758000 * RFY 03S0553 00759000 * IEDRESPL BASED(RPARM);/* @YM08477*/ 00760000 * RPARM=TOTRESPL; /* SET UP ADDRESS OF RESPL 03S0554 00761000 * @YM08477*/ 00762000 L RPARM,TOTRESPL(,ROLTCB) 03S0554 00763000 * TTHOAF=RESMHSRC; /* TTCIN OF THE TOTEMH */ 00764000 MVC TTHOAF(2,RTTH),RESMHSRC(RPARM) 03S0555 00765000 * RFY 03S0556 00766000 * IEDRESPL BASED(RRESPL);/* @YM08477*/ 00767000 * IF OLTPRSC=ON THEN 03S0557 00768000 TM OLTPRSC(RIOB),B'00100000' 03S0557 00769000 BNO @RF00557 03S0557 00770000 * TTHSNF=TOTPRSEQ; 03S0558 00771000 MVC TTHSNF(2,RTTH),TOTPRSEQ(ROLTCB) 03S0558 00772000 * ELSE 03S0559 00773000 * TTHSNF=TOTSCSEQ; /* SEQUENCE NUMBER */ 00774000 B @RC00557 03S0559 00775000 @RF00557 MVC TTHSNF(2,RTTH),TOTSCSEQ(ROLTCB) 03S0559 00776000 * RSEND=BASRPAR; /* GET THE POINTER TO THE SEND 00777000 * PARM LIST */ 00778000 @RC00557 L RSEND,BASRPAR(,ROLTCB) 03S0560 00779000 * RPIU=BASRPIU; /* SET UP THE BUFFER ADDRESS 00780000 * @YM08477*/ 00781000 L RPIU,BASRPIU(,ROLTCB) 03S0561 00782000 * RTRH=ADDR(PIURH); /* GET THE ADDRESS OF THE RH 00783000 * BUFFER POSITION */ 00784000 LA RTRH,PIURH(,RPIU) 03S0562 00785000 * IEDRH=IEDRH&&IEDRH; /* CLEAR THE RH */ 00786000 XC IEDRH(3,RTRH),IEDRH(RTRH) 03S0563 00787000 * IF SENDSTPE=ON THEN 03S0564 00788000 TM SENDSTPE(RSEND),B'00000010' 03S0564 00789000 BNO @RF00564 03S0564 00790000 * TRHTYPE=ON; /* SET IF RESPONSE OR REQUEST 00791000 * FROM OLT SEND */ 00792000 OI TRHTYPE(RTRH),B'10000000' 03S0565 00793000 * ELSE 03S0566 00794000 * TRHTYPE=OFF; 03S0566 00795000 B @RC00564 03S0566 00796000 @RF00564 NI TRHTYPE(RTRH),B'01111111' 03S0566 00797000 * IF SENDREX=ON THEN 03S0567 00798000 @RC00564 TM SENDREX(RSEND),B'00010000' 03S0567 00799000 BNO @RF00567 03S0567 00800000 * TRHSDI=ON; /* SET IF SENSE DATA INDICATED 00801000 * FROM OLT SEND */ 00802000 OI TRHSDI(RTRH),B'00000100' 03S0568 00803000 * ELSE 03S0569 00804000 * TRHSDI=OFF; 03S0569 00805000 B @RC00567 03S0569 00806000 @RF00567 NI TRHSDI(RTRH),B'11111011' 03S0569 00807000 * TRHBC=ON; /* BEGIN CHAINING */ 00808000 @RC00567 DS 0H 03S0571 00809000 * TRHEC=ON; /* END CHAINING */ 00810000 OI TRHBC(RTRH),B'00000011' 03S0571 00811000 * TRHDR1=ON; /* DEFENDENT RESPONSE IS ALWAYS 00812000 * ON FOR A SEND REQUEST FROM THE 00813000 * OLT */ 00814000 * TRHDR2=OFF; /* ALWAYS OFF FOR TCAM */ 00815000 OI TRHDR1(RTRH),B'10000000' 03S0573 00816000 NI TRHDR2(RTRH),B'11011111' 03S0573 00817000 * IF SENDREX=ON THEN 03S0574 00818000 TM SENDREX(RSEND),B'00010000' 03S0574 00819000 BNO @RF00574 03S0574 00820000 * TRHER=ON; /* EXCEPTION RESPONSE */ 00821000 OI TRHER(RTRH),B'00010000' 03S0575 00822000 * ELSE 03S0576 00823000 * TRHER=OFF; 03S0576 00824000 B @RC00574 03S0576 00825000 @RF00574 NI TRHER(RTRH),B'11101111' 03S0576 00826000 * RIOB=BASRIOB; /* GET THE POINTER FROM THE BASE 00827000 * POINTER SAVE AREA */ 00828000 @RC00574 L RIOB,BASRIOB(,ROLTCB) 03S0577 00829000 * IF SENDRFME=ON THEN 03S0578 00830000 TM SENDRFME(RSEND),B'00100000' 03S0578 00831000 BNO @RF00578 03S0578 00832000 * OLTFME=ON; /* SAVE ACTUAL RESPONSE FROM SEND 00833000 * REQUEST FOR SECONDARY DEVICE */ 00834000 OI OLTFME(RIOB),B'00000100' 03S0579 00835000 * ELSE 03S0580 00836000 * OLTFME=OFF; 03S0580 00837000 B @RC00578 03S0580 00838000 @RF00578 NI OLTFME(RIOB),B'11111011' 03S0580 00839000 * IF SENDREX=ON THEN 03S0581 00840000 @RC00578 TM SENDREX(RSEND),B'00010000' 03S0581 00841000 BNO @RF00581 03S0581 00842000 * OLTEX=ON; /* SAVE ACTUAL RESPONSE FROM SEND 00843000 * REQUEST FOR SECONDARY DEVICE */ 00844000 OI OLTEX(RIOB),B'00001000' 03S0582 00845000 * ELSE 03S0583 00846000 * OLTEX=OFF; 03S0583 00847000 B @RC00581 03S0583 00848000 @RF00581 NI OLTEX(RIOB),B'11110111' 03S0583 00849000 * RPIU=BASRPIU; /* GET THE POINTER TO THE PIU */ 00850000 @RC00581 L RPIU,BASRPIU(,ROLTCB) 03S0584 00851000 * RTTH=ADDR(PIUTH); /* ALSO GET THE POINTER TO THE TH*/ 00852000 LR RTTH,RPIU 03S0585 00853000 * IF SENDREX=ON THEN 03S0586 00854000 TM SENDREX(RSEND),B'00010000' 03S0586 00855000 BNO @RF00586 03S0586 00856000 * DO; /* IS THIS A NEGATIVE RESPONSE */ 00857000 * RPIU=ADDR(PIURU); /* POINT PIU TO RU FIELD */ 00858000 LA @11,PIURU(,RPIU) 03S0588 00859000 LR RPIU,@11 03S0588 00860000 * RFY 03S0589 00861000 * LTECB BASED(RPARM); 03S0589 00862000 * RPARM=BASRTEC; /* SET UP TECB SENSE ADDRESS 00863000 * @YM08477*/ 00864000 L RPARM,BASRTEC(,ROLTCB) 03S0590 00865000 * IEDPIU=LTCBSENS; /* SET THE FOUR BYTES OF SENSE 00866000 * INFORMATION IN THE RU */ 00867000 MVI IEDPIU+4(RPIU),C' ' 03S0591 00868000 MVC IEDPIU+5(8,RPIU),IEDPIU+4(RPIU) 03S0591 00869000 MVC IEDPIU(4,RPIU),LTCBSENS(RPARM) 03S0591 00870000 * RFY 03S0592 00871000 * LTECB BASED(RLTCB); 03S0592 00872000 * TTHDCF=LRHLEN+LSENLEN;/* SET DATA COUNT OF SEVEN IN 00873000 * TH DATA COUNT DATA */ 00874000 MVC TTHDCF(2,RTTH),@CH00583 03S0593 00875000 * END; 03S0594 00876000 * ELSE 03S0595 00877000 * TTHDCF=LRHLEN; /* SET DATA COUNT OF THREE IN TH 00878000 * DATA COUNT DATA */ 00879000 B @RC00586 03S0595 00880000 @RF00586 MVC TTHDCF(2,RTTH),@CH00068 03S0595 00881000 * RWORK=ADDR(TOTWAWRK); /* GET ADDRESS OF WORK AREA TO BE 00882000 * USED BY POST/WAIT ROUTINE */ 00883000 @RC00586 LA RWORK,TOTWAWRK(,ROLTCB) 03S0596 00884000 * RRESPL=TOTRESPL; /* SET UP THE ADDRESS OF THE 00885000 * RESPL */ 00886000 L RRESPL,TOTRESPL(,ROLTCB) 03S0597 00887000 * RPARM=RPRF; /* SET REGISTER 1 TO BUFFER TO BE 00888000 * POSTED */ 00889000 LR RPARM,RPRF 03S0598 00890000 * CALL POSTWAIT; /* CALL IEDQWA TO POST OUTPUT 00891000 * BUFFER AND REQUEST ELEMENT TO 00892000 * TCAM */ 00893000 L @15,RESPLRVT(,RRESPL) 03S0599 00894000 BALR @14,@15 03S0599 00895000 * RETCDE=RCGOOD; /* GOOD RETURN CODE 00 */ 00896000 SLR RETCDE,RETCDE 03S0600 00897000 * TOTRTCOD=RETCDE; /* SAVE RETURN CODE IN OLTCB */ 00898000 STC RETCDE,TOTRTCOD(,ROLTCB) 03S0601 00899000 * RFY 03S0602 00900000 * RPARM UNRSTD; /* UNRESTRICT REGISTER 1 */ 00901000 * RFY 03S0603 00902000 * RPRF UNRSTD; /* UNRESTRICT REGISTER 8 */ 00903000 * RFY 03S0604 00904000 * RWORK UNRSTD; /* UNRESTRICT REGISTER 10 */ 00905000 * END; 02S0605 00906000 * END; 02S0606 00907000 @RC00413 DS 0H 02S0607 00908000 * 03S0607 00909000 * /*****************************************************************/ 00910000 * /* */ 00911000 * /* PROCESS.EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE */ 00912000 * /* THAT WAS ALTERED BY THE MODULE PROCEDURE STATEMENT. */ 00913000 * /* */ 00914000 * /*****************************************************************/ 00915000 * 03S0607 00916000 * RFY 03S0607 00917000 * RWORK RSTD; 03S0607 00918000 @RC00408 DS 0H 03S0608 00919000 * IF $TRACE=ON|$RETMASK^=BZERO THEN 03S0608 00920000 TM $TRACE(ROLTCB),B'00000100' 03S0608 00921000 BO @RT00608 03S0608 00922000 CLI $RETMASK(ROLTCB),X'00' 03S0608 00923000 BE @RF00608 03S0608 00924000 @RT00608 DS 0H 03S0609 00925000 * DO; /* WAS TRACE FUNCTION SPECIFIED 00926000 * OR A BAD RETURN CODE */ 00927000 * GEN REFS(RSAVE,RBRNCH,RRETURN,TOTRESPL,RESPLM2,ROLTCB,RBASE) 00928000 * NOSETS; 03S0610 00929000 L RSAVE,4(RSAVE) RESTORE R13 00930000 L RRETURN,12(RSAVE) RESTORE R14 00931000 USING TOTOLTCB,ROLTCB 00932000 L RBRNCH,TOTRESPL GET RESPL ADDRESS 00933000 DROP ROLTCB 00934000 USING IEDRESPL,RBRNCH SET RESPL ADDRESSABILITY 00935000 L RBRNCH,RESPLM2 GET TRACE ROUTINE ADDRESS 00936000 LM ROLTCB,RBASE,28(RSAVE) RESTORE REGISTERS 00937000 BR RBRNCH EXIT TO IEDQWM2 00938000 DROP RBRNCH 00939000 * END; 03S0611 00940000 * ELSE 03S0612 00941000 * DO; 03S0612 00942000 B @RC00608 03S0612 00943000 @RF00608 DS 0H 03S0613 00944000 * GEN REFS(RSAVE,RBRNCH,RRETURN,RWORK,RBASE,TOTRTCOD) NOSETS; 00945000 L RSAVE,4(RSAVE) RESTORE R13 00946000 L RRETURN,12(RSAVE) RESTORE R14 00947000 LM RWORK,RBASE,20(RSAVE) RESTORE REGISTERS 00948000 SLR RETCDE,RETCDE CLEAR RETURN CODE REGISTER 00949000 IC RETCDE,TOTRTCOD(,ROLTCB) GET RETURN CODE FROM OLTCB 00950000 BR RRETURN RETURN TO IEDQWA 00951000 * END; 03S0614 00952000 * RFY 03S0615 00953000 * RWORK UNRSTD; 03S0615 00954000 * RFY 02S0616 00955000 * RPARM UNRSTD; 02S0616 00956000 * 02S0617 00957000 * /*****************************************************************/ 00958000 * /* */ 00959000 * /* ERREXIT: THIS ROUTINE SETS UP THE ERROR MODULE ID AND SETS THE*/ 00960000 * /* ERROR EXIT SWITCH */ 00961000 * /* */ 00962000 * /*****************************************************************/ 00963000 * 02S0617 00964000 *ERREXIT: 02S0617 00965000 * PROC OPTIONS(RETREG,NOSAVE,NOSAVEAREA); 02S0617 00966000 @EL00001 DS 0H 02S0617 00967000 @EF00001 DS 0H 02S0617 00968000 @ER00001 LM @14,@12,12(@13) 02S0617 00969000 BR @14 02S0617 00970000 ERREXIT DS 0H 02S0618 00971000 * BASRRET=RRETURN; /* SAVE RETURN REGISTER */ 00972000 ST RRETURN,BASRRET(,ROLTCB) 02S0618 00973000 * ERRSW=ON; /* SET ERROR SWITCH TO ONE */ 00974000 OI ERRSW,B'10000000' 02S0619 00975000 * TOTRTCOD=RETCDE; /* PUT RETURN CODE INTO OLTCB */ 00976000 STC RETCDE,TOTRTCOD(,ROLTCB) 02S0620 00977000 * RRETURN=BASRRET; /* SET UP RETURN REGISTER TO 00978000 * RETURN */ 00979000 L @11,BASRRET(,ROLTCB) 02S0621 00980000 LR RRETURN,@11 02S0621 00981000 * END ERREXIT; 02S0622 00982000 @EL00002 DS 0H 02S0622 00983000 @EF00002 DS 0H 02S0622 00984000 @ER00002 BR @14 02S0622 00985000 * END IEDQW25 01S0623 00986000 * 01S0623 00987000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00988000 */*%INCLUDE SYSLIB (TAVTD ) */ 00989000 */*%INCLUDE SYSLIB (TBINDD ) */ 00990000 */*%INCLUDE SYSLIB (TBNDD ) */ 00991000 */*%INCLUDE SYSLIB (TDCTD ) */ 00992000 */*%INCLUDE SYSLIB (IOBLOCKS) */ 00993000 */*%INCLUDE SYSLIB (TLCBD ) */ 00994000 */*%INCLUDE SYSLIB (OLTCB ) */ 00995000 */*%INCLUDE SYSLIB (TPIUD ) */ 00996000 */*%INCLUDE SYSLIB (TPLMVD ) */ 00997000 */*%INCLUDE SYSLIB (TPRFD ) */ 00998000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00999000 */*%INCLUDE SYSLIB (RESPL ) */ 01000000 */*%INCLUDE SYSLIB (TRHD ) */ 01001000 */*%INCLUDE SYSLIB (TSCBD ) */ 01002000 */*%INCLUDE SYSLIB (TTHD ) */ 01003000 */*%INCLUDE SYSLIB (TTRMD ) */ 01004000 */*%INCLUDE SYSLIB (TTTCD ) */ 01005000 */*%INCLUDE SYSUT5 (RFY ) */ 01006000 */*%INCLUDE SYSUT5 (DCL ) */ 01007000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01008000 */*%INCLUDE SYSUT5 (PROCESS ) */ 01009000 */*%INCLUDE SYSUT5 (INITIAL ) */ 01010000 */*%INCLUDE SYSUT5 (PRIRSEC ) */ 01011000 */*%INCLUDE SYSUT5 (SENDREQ ) */ 01012000 */*%INCLUDE SYSUT5 (SENDREC ) */ 01013000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 01014000 */*%INCLUDE SYSUT5 (ERREXIT ) */ 01015000 * 01S0623 01016000 * ; 01S0623 01017000 @DATA DS 0H 01018000 @CH00583 DC H'7' 01019000 @SC02721 CLC TESTDSN(0,@11),LCDSSMNM(RCDS) 01020000 @DATD DSECT 01021000 DS 0F 01022000 IEDQW25 CSECT 01023000 DS 0F 01024000 @CF00062 DC F'1' 01025000 @CF00068 DC F'3' 01026000 @CH00068 EQU @CF00068+2 01027000 @CF00047 DC F'8' 01028000 @CF00037 DC F'18' 01029000 @CF01567 DC F'56' 01030000 @CF02719 DC XL4'0000FFFF' 01031000 @CF02737 DC BL4'00000000000000000000000000010000' 01032000 @DATD DSECT 01033000 DS 0D 01034000 ERRSW DS BL1 01035000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01036000 @ENDDATD EQU * 01037000 IEDQW25 CSECT 01038000 NOPR ((@ENDDATD-@DATD)/561*16) 01039000 DS 0F 01040000 @SIZDATD DC AL1(0) 01041000 DC AL3(@ENDDATD-@DATD) 01042000 DS 0D 01043000 @CB02597 DC X'00000000000000000010800000' 01044000 DS CL1 01045000 PATCH DC XL50'0' 01046000 REQKEY DC X'E0' 01047000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01048000 @01 EQU 01 01049000 @02 EQU 02 01050000 @03 EQU 03 01051000 @04 EQU 04 01052000 @05 EQU 05 01053000 @06 EQU 06 01054000 @07 EQU 07 01055000 @08 EQU 08 01056000 @09 EQU 09 01057000 @10 EQU 10 01058000 @11 EQU 11 01059000 @12 EQU 12 01060000 @13 EQU 13 01061000 @14 EQU 14 01062000 @15 EQU 15 01063000 RBIN EQU @03 01064000 RBND EQU @03 01065000 LCBXPTR EQU @05 01066000 RTRM EQU @01 01067000 RAVT EQU @04 01068000 RLCB EQU @06 01069000 RSCB EQU @03 01070000 RTTCP EQU @06 01071000 RDCT EQU @06 01072000 RPLMVP EQU @06 01073000 RPRF EQU @08 01074000 RRESPL EQU @06 01075000 RIOB EQU @03 01076000 RPIU EQU @03 01077000 RTTH EQU @06 01078000 RTRH EQU @06 01079000 ROLTCB EQU @02 01080000 RWORK EQU @00 01081000 RPARM EQU @01 01082000 RSEND EQU @01 01083000 RTECB EQU @03 01084000 RLTCB EQU @03 01085000 RSAVT EQU @06 01086000 RCDS EQU @08 01087000 ROLTWK EQU @10 01088000 RBASE EQU @12 01089000 RSAVE EQU @13 01090000 RRETURN EQU @14 01091000 RBRNCH EQU @15 01092000 RETCDE EQU @15 01093000 IEDQAVTD EQU 0 01094000 AVTSAVEX EQU IEDQAVTD+288 01095000 AVTCSTCS EQU IEDQAVTD+328 01096000 @NM00003 EQU IEDQAVTD+388 01097000 AVTCKFLG EQU @NM00003 01098000 AVTBASE EQU IEDQAVTD+412 01099000 AVTPKF EQU AVTBASE 01100000 AVTRNMPT EQU IEDQAVTD+424 01101000 AVTOSECB EQU IEDQAVTD+492 01102000 AVTECB1 EQU AVTOSECB 01103000 AVTHG02 EQU IEDQAVTD+528 01104000 AVTDISP EQU IEDQAVTD+552 01105000 AVTHD EQU IEDQAVTD+556 01106000 AVTSCOPT EQU AVTHD 01107000 AVTSAVTP EQU IEDQAVTD+612 01108000 AVTSAVTF EQU AVTSAVTP 01109000 AVTCKPEL EQU IEDQAVTD+652 01110000 AVTCKRMV EQU AVTCKPEL 01111000 AVTCKELF EQU IEDQAVTD+680 01112000 AVTCKBYT EQU IEDQAVTD+691 01113000 AVTHG01 EQU IEDQAVTD+692 01114000 AVTCKLNK EQU IEDQAVTD+696 01115000 AVTCRELE EQU IEDQAVTD+708 01116000 AVTCCELE EQU AVTCRELE 01117000 AVTCLRHI EQU IEDQAVTD+716 01118000 AVTADBUF EQU IEDQAVTD+720 01119000 AVTSYSER EQU IEDQAVTD+728 01120000 AVTBFRFG EQU IEDQAVTD+784 01121000 AVTCKPQB EQU IEDQAVTD+804 01122000 AVTCKPTB EQU AVTCKPQB 01123000 AVTCKPEC EQU AVTCKPQB+4 01124000 AVTCKPCC EQU AVTCKPEC 01125000 AVTOPCQB EQU IEDQAVTD+816 01126000 AVTOPCOB EQU AVTOPCQB 01127000 AVTOPCEC EQU AVTOPCQB+4 01128000 AVTOPCCC EQU AVTOPCEC 01129000 AVTOLTQB EQU IEDQAVTD+828 01130000 AVTCWFL1 EQU IEDQAVTD+924 01131000 AVTCWFL2 EQU IEDQAVTD+925 01132000 AVTSUBT EQU IEDQAVTD+948 01133000 AVTIOTR EQU IEDQAVTD+949 01134000 AVTKEYLE EQU IEDQAVTD+1032 01135000 AVTBIT1 EQU IEDQAVTD+1050 01136000 AVTBIT2 EQU IEDQAVTD+1051 01137000 AVTBIT3 EQU IEDQAVTD+1052 01138000 AVTDCTLN EQU IEDQAVTD+1072 01139000 AVTBIT4 EQU IEDQAVTD+1136 01140000 @NM00085 EQU IEDQAVTD+1232 01141000 IEDQAPTR EQU 0 01142000 IEDNSVTD EQU 0 01143000 SAVTDIAG EQU IEDNSVTD 01144000 SAVTDIAF EQU SAVTDIAG 01145000 SAVTLUSQ EQU IEDNSVTD+88 01146000 SAVTMVBF EQU IEDNSVTD+160 01147000 SAVTDFCO EQU IEDNSVTD+200 01148000 SAVTTCPU EQU IEDNSVTD+238 01149000 SAVTZELM EQU IEDNSVTD+270 01150000 SAVTRDRV EQU IEDNSVTD+284 01151000 SAVTCKQB EQU IEDNSVTD+300 01152000 SAVTCKTB EQU SAVTCKQB 01153000 SAVTCKEC EQU SAVTCKQB+4 01154000 SAVTCKCC EQU SAVTCKEC 01155000 SAVTNETF EQU IEDNSVTD+324 01156000 SAVTCDRV EQU IEDNSVTD+332 01157000 IEDBIN EQU 0 01158000 BINNAME EQU IEDBIN 01159000 BINBUD EQU 0 01160000 BINBLD EQU 0 01161000 IEDBNDD EQU 0 01162000 BNDPRIM EQU IEDBNDD+4 01163000 BNDSECD EQU IEDBNDD+5 01164000 BNDCOMM1 EQU IEDBNDD+6 01165000 BNDCOMM2 EQU IEDBNDD+7 01166000 BNDSMSRU EQU IEDBNDD+10 01167000 BNDPMSRU EQU IEDBNDD+11 01168000 BNDLUPFL EQU IEDBNDD+14 01169000 BNDPSCH EQU IEDBNDD+15 01170000 IEDDCT EQU 0 01171000 DCTBYTE1 EQU IEDDCT+1 01172000 DCTBYTE2 EQU IEDDCT+2 01173000 DCTBYTE3 EQU IEDDCT+3 01174000 DCTBYTE4 EQU IEDDCT+4 01175000 DCTBYTE5 EQU IEDDCT+5 01176000 IOBLOCKS EQU 0 01177000 OLTTCOFF EQU IOBLOCKS+6 01178000 OLTFLAG1 EQU IOBLOCKS+26 01179000 OLTPRSC EQU OLTFLAG1 01180000 OLTEX EQU OLTFLAG1 01181000 OLTFME EQU OLTFLAG1 01182000 OLTEN EQU OLTFLAG1 01183000 OLTFLAG2 EQU IOBLOCKS+46 01184000 OLTSN EQU IOBLOCKS+48 01185000 IOB EQU IOBLOCKS+56 01186000 IOBECBAD EQU IOB+4 01187000 IOBCSW EQU IOB+8 01188000 IOBCCWAD EQU IOB+16 01189000 IOBFLG4 EQU IOB+36 01190000 DCB EQU IOBLOCKS+100 01191000 OLTDEBA EQU DCB+44 01192000 IEDQLCB EQU 0 01193000 LCBRCB EQU IEDQLCB 01194000 LCBTSOB EQU IEDQLCB+19 01195000 LCBCHAIN EQU IEDQLCB+20 01196000 LCBSCRNN EQU LCBCHAIN 01197000 LCBTETEN EQU LCBCHAIN 01198000 LCBINSRC EQU IEDQLCB+21 01199000 LCBLKMDE EQU LCBINSRC+2 01200000 LCBNTXT EQU IEDQLCB+24 01201000 LCBSTAT4 EQU LCBNTXT 01202000 LCBPHASE EQU LCBSTAT4 01203000 LCBSCBDA EQU IEDQLCB+25 01204000 LCBMHA EQU IEDQLCB+29 01205000 LCBFLAG1 EQU IEDQLCB+32 01206000 LCBIOBSN EQU IEDQLCB+33 01207000 LCBSNS EQU LCBIOBSN+1 01208000 LCBSENS0 EQU LCBSNS 01209000 LCBLOSDT EQU LCBSENS0 01210000 LCBTMOUT EQU LCBSENS0 01211000 LCBFLAG3 EQU LCBIOBSN+7 01212000 LCBCSW EQU LCBIOBSN+8 01213000 LCBCSWST EQU LCBCSW+3 01214000 LCBCSWUS EQU LCBCSWST 01215000 LCBCSWCS EQU LCBCSWST+1 01216000 LCBSIOCC EQU LCBIOBSN+15 01217000 LCBDCBPT EQU IEDQLCB+52 01218000 LCBRCQCB EQU IEDQLCB+56 01219000 LCBRESTR EQU LCBRCQCB 01220000 @NM00146 EQU IEDQLCB+60 01221000 LCBINCAM EQU @NM00146 01222000 LCBERRCT EQU IEDQLCB+62 01223000 LCBLSPCI EQU IEDQLCB+65 01224000 LCBRCBFR EQU LCBLSPCI 01225000 LCBSTATE EQU IEDQLCB+70 01226000 LCBSTAT1 EQU LCBSTATE 01227000 LCBSTAT2 EQU LCBSTATE+1 01228000 LCBBEOTN EQU LCBSTAT2 01229000 LCBSYNC EQU LCBSTAT2 01230000 LCBDIAL EQU LCBSTAT2 01231000 LCBTSTSW EQU IEDQLCB+72 01232000 LCBERB EQU IEDQLCB+76 01233000 LCBERBST EQU IEDQLCB+84 01234000 LCBDLNKN EQU LCBERBST 01235000 LCBERBCT EQU IEDQLCB+88 01236000 LCBRBCT2 EQU LCBERBCT+1 01237000 LCBMSGFM EQU IEDQLCB+92 01238000 LCBSCBA EQU IEDQLCB+93 01239000 LCBOBRCH EQU IEDQLCB+96 01240000 LCBERMSK EQU LCBOBRCH 01241000 LCBNXMOD EQU LCBERMSK 01242000 LCBSTAT7 EQU LCBNXMOD 01243000 LCBINVPT EQU LCBOBRCH+1 01244000 LCBBFRW EQU LCBINVPT 01245000 LCBTPCD EQU IEDQLCB+100 01246000 LCBSTAT5 EQU LCBTPCD 01247000 LCBSTAT6 EQU LCBTPCD+4 01248000 LCBRSPSV EQU LCBTPCD+8 01249000 LCBSAVSN EQU IEDQLCB+112 01250000 LCBERCCW EQU IEDQLCB+120 01251000 LCBCPA EQU IEDQLCB+144 01252000 LCBCCW5 EQU LCBCPA+32 01253000 LCBATTEL EQU LCBCCW5 01254000 LCBQEBPL EQU LCBATTEL 01255000 IEDQLPTR EQU 0 01256000 IEDQLCBX EQU 0 01257000 LCBXCON EQU IEDQLCBX 01258000 LCBXFLAG EQU LCBXCON 01259000 LCBXDCT EQU LCBXCON+1 01260000 LCBXRADR EQU LCBXCON+4 01261000 TOTOLTCB EQU 0 01262000 $SCTTBLE EQU TOTOLTCB 01263000 $TESTOPT EQU $SCTTBLE+2 01264000 $ERROPT EQU $SCTTBLE+3 01265000 $PDEVFLG EQU $SCTTBLE+10 01266000 $CDSFLGS EQU $SCTTBLE+11 01267000 $EXECFLG EQU $SCTTBLE+33 01268000 $OLTFLGS EQU $SCTTBLE+36 01269000 $TRACE EQU $OLTFLGS 01270000 $TOTFLG1 EQU $SCTTBLE+38 01271000 $CTEQTT EQU $TOTFLG1 01272000 $RETMASK EQU $SCTTBLE+70 01273000 TOTSAVE1 EQU TOTOLTCB+120 01274000 TOTSAVE2 EQU TOTOLTCB+192 01275000 TOTSAVE5 EQU TOTOLTCB+408 01276000 TOTSAVE6 EQU TOTOLTCB+480 01277000 TOTSRENT EQU TOTOLTCB+576 01278000 TOTCTENT EQU TOTOLTCB+584 01279000 TOTCTFLG EQU TOTCTENT+22 01280000 TOTCTDFL EQU TOTOLTCB+624 01281000 TOTCUTST EQU TOTOLTCB+628 01282000 TOTCUFLG EQU TOTCUTST 01283000 TOTPLIST EQU TOTOLTCB+664 01284000 TOTOECBA EQU TOTPLIST+12 01285000 TOTOFLG EQU TOTOECBA 01286000 TOTAPENT EQU TOTOLTCB+736 01287000 TOTAPFLG EQU TOTAPENT+22 01288000 TOTAPDFL EQU TOTOLTCB+767 01289000 TOTOLTPL EQU TOTOLTCB+820 01290000 TOTWTORP EQU TOTOLTCB+832 01291000 TOTWTOPL EQU TOTOLTCB+840 01292000 TOTRTCOD EQU TOTOLTCB+1010 01293000 TOTPLNKQ EQU TOTOLTCB+1012 01294000 TOTWKSPC EQU TOTOLTCB+1024 01295000 TOTAVTPT EQU TOTOLTCB+1172 01296000 TOTRESPL EQU TOTOLTCB+1180 01297000 TOTFLG01 EQU TOTOLTCB+1184 01298000 TOTAPTST EQU TOTFLG01 01299000 TOTFLG02 EQU TOTOLTCB+1185 01300000 TOTFLG03 EQU TOTOLTCB+1186 01301000 TOTFLG04 EQU TOTOLTCB+1187 01302000 TOTFLG05 EQU TOTOLTCB+1188 01303000 TOTFLG06 EQU TOTOLTCB+1189 01304000 TOTFLG07 EQU TOTOLTCB+1190 01305000 TOTFLG08 EQU TOTOLTCB+1191 01306000 TOTFLG09 EQU TOTOLTCB+1192 01307000 TOTFLG10 EQU TOTOLTCB+1193 01308000 TOTTTBEL EQU TOTOLTCB+1194 01309000 TOTPRECB EQU TOTOLTCB+1316 01310000 TOTPRIBK EQU TOTPRECB 01311000 TOTPRENT EQU TOTOLTCB+1320 01312000 TOTTNTPR EQU TOTPRENT+16 01313000 TOTPRFLG EQU TOTPRENT+22 01314000 TOTPRSN EQU TOTOLTCB+1364 01315000 TOTPRSEQ EQU TOTPRSN+2 01316000 TOTPRDCB EQU TOTOLTCB+1416 01317000 TOTSCECB EQU TOTOLTCB+1488 01318000 TOTSCIBK EQU TOTSCECB 01319000 TOTSCENT EQU TOTOLTCB+1492 01320000 TOTSRTNT EQU TOTSCENT+16 01321000 TOTSCFLG EQU TOTSCENT+22 01322000 TOTSCSN EQU TOTOLTCB+1536 01323000 TOTSCSEQ EQU TOTSCSN+2 01324000 TOTSCDCB EQU TOTOLTCB+1588 01325000 TOTCROLT EQU TOTOLTCB+1660 01326000 TOTTDTBL EQU TOTOLTCB+1748 01327000 @NM00232 EQU TOTTDTBL 01328000 TOTWAWRK EQU TOTOLTCB+1824 01329000 TOTWOWRK EQU TOTOLTCB+1904 01330000 TOTSERV EQU TOTOLTCB+2096 01331000 OLTCBPTR EQU 0 01332000 IEDPIU EQU 0 01333000 PIUTH EQU IEDPIU 01334000 PIURH EQU IEDPIU+10 01335000 PIUEND EQU IEDPIU+13 01336000 IEDPLMV EQU 0 01337000 PLMVTU EQU IEDPLMV 01338000 PLMVTD EQU IEDPLMV+4 01339000 PLMVSU EQU IEDPLMV+8 01340000 PLMVSD EQU IEDPLMV+12 01341000 PLMVLNTH EQU IEDPLMV+16 01342000 PLMVFLGS EQU IEDPLMV+18 01343000 PLMVFLG1 EQU PLMVFLGS 01344000 PLMVSCTG EQU PLMVFLG1 01345000 PLMVFLG2 EQU PLMVFLGS+1 01346000 IEDPLMVP EQU 0 01347000 IEDQPRF EQU 0 01348000 PRFRCB EQU IEDQPRF 01349000 PRFKEY EQU PRFRCB 01350000 PRFQCBA EQU PRFRCB+1 01351000 PRFPRI EQU PRFRCB+4 01352000 PRFLINK EQU PRFRCB+5 01353000 PRFTIC EQU IEDQPRF+8 01354000 PRFTICC EQU PRFTIC 01355000 PRFTI0 EQU PRFTIC+1 01356000 PRFVTCHK EQU PRFTI0+2 01357000 PRFNBUNT EQU IEDQPRF+12 01358000 PRFSUNIT EQU PRFNBUNT 01359000 PRFPLQCB EQU PRFSUNIT 01360000 PRFPIUO EQU PRFPLQCB 01361000 PRFLCB EQU IEDQPRF+13 01362000 PRFSRCSZ EQU IEDQPRF+16 01363000 PRFSRCE EQU PRFSRCSZ 01364000 PRFSIZE EQU PRFSRCSZ+2 01365000 PRFSTAT1 EQU IEDQPRF+20 01366000 PRFEOFN EQU PRFSTAT1 01367000 PRFCORE EQU IEDQPRF+21 01368000 PRFXTRA EQU PRFCORE 01369000 PRFLU1TT EQU PRFXTRA+1 01370000 PRFSCAN EQU IEDQPRF+24 01371000 PRFTQBCK EQU IEDQPRF+26 01372000 PRFNTXT EQU PRFTQBCK 01373000 PRFEOBOF EQU PRFNTXT 01374000 PRFLU2TT EQU PRFNTXT+1 01375000 PRFCHDR EQU IEDQPRF+32 01376000 PRFHQBCK EQU IEDQPRF+35 01377000 PRFDEST EQU IEDQPRF+40 01378000 IEDQPPTR EQU 0 01379000 IEDPF1 EQU 0 01380000 PRF1FLG1 EQU IEDPF1+3 01381000 PRF1WD2 EQU IEDPF1+4 01382000 PRF1SEQP EQU PRF1WD2 01383000 PRF1SQID EQU PRF1SEQP 01384000 PRF1TAG1 EQU PRF1SQID 01385000 PRF1RULN EQU PRF1SEQP+2 01386000 IEDPF2 EQU 0 01387000 PRF2FLG2 EQU IEDPF2 01388000 PRF2TNTI EQU PRF2FLG2 01389000 PRF2FORM EQU PRF2FLG2 01390000 PRF2WD2 EQU IEDPF2+4 01391000 PRF2SEQP EQU PRF2WD2 01392000 IEDRESPL EQU 0 01393000 RESOBQCB EQU IEDRESPL+12 01394000 RESFLAGS EQU IEDRESPL+49 01395000 RESQHBL EQU IEDRESPL+60 01396000 RESPLRVT EQU IEDRESPL+76 01397000 RESABUF EQU IEDRESPL+80 01398000 RESMHSRC EQU IEDRESPL+88 01399000 RESPLADR EQU IEDRESPL+96 01400000 RESPLAC EQU RESPLADR+44 01401000 RESPL42 EQU RESPLADR+56 01402000 RESPLM2 EQU RESPLADR+68 01403000 IEDRH EQU 0 01404000 TRHBYTE0 EQU IEDRH 01405000 TRHTYPE EQU TRHBYTE0 01406000 TRHSDI EQU TRHBYTE0 01407000 TRHBC EQU TRHBYTE0 01408000 TRHEC EQU TRHBYTE0 01409000 TRHBYTE1 EQU IEDRH+1 01410000 TRHDR1 EQU TRHBYTE1 01411000 TRHDR2 EQU TRHBYTE1 01412000 TRHER EQU TRHBYTE1 01413000 TRHBYTE2 EQU IEDRH+2 01414000 TRHBB EQU TRHBYTE2 01415000 TRHEB EQU TRHBYTE2 01416000 TRHCDI EQU TRHBYTE2 01417000 TRHCSI EQU TRHBYTE2 01418000 IEDQSCB EQU 0 01419000 SCBSTATE EQU IEDQSCB 01420000 SCBSEQIN EQU SCBSTATE 01421000 SCBDESTQ EQU IEDQSCB+1 01422000 SCBRCVCT EQU IEDQSCB+4 01423000 SCBMBHEN EQU IEDQSCB+5 01424000 SCBBKFCT EQU IEDQSCB+9 01425000 SCBEOBSZ EQU SCBBKFCT+1 01426000 SCBSALEV EQU IEDQSCB+12 01427000 SCBQTYPE EQU SCBSALEV 01428000 SCBERRST EQU IEDQSCB+16 01429000 SCBERR1 EQU SCBERRST 01430000 SCBHDRRN EQU SCBERR1 01431000 SCBORIGN EQU SCBERR1 01432000 SCBNOTRM EQU SCBERR1 01433000 SCBSEQHN EQU SCBERR1 01434000 SCBSEQLN EQU SCBERR1 01435000 SCBCUTFN EQU SCBERR1 01436000 SCBERR2 EQU SCBERRST+1 01437000 SCBABRTN EQU SCBERR2 01438000 SCBERR3 EQU SCBERRST+2 01439000 SCBLOSTN EQU SCBERR3 01440000 SCBTMIDN EQU SCBERR3 01441000 SCBFORMN EQU SCBERR3 01442000 SCBATTN EQU SCBERR3 01443000 SCBXCEPN EQU SCBERR3 01444000 SCBERR4 EQU SCBERRST+3 01445000 SCBTXTTN EQU SCBERR4 01446000 SCBCTLUN EQU SCBERR4 01447000 SCBCHANN EQU SCBERR4 01448000 SCBDLPTR EQU IEDQSCB+22 01449000 SCBEOBAC EQU SCBDLPTR 01450000 SCBCTBAC EQU SCBEOBAC 01451000 SCBBSCFM EQU IEDQSCB+24 01452000 SCBDATEN EQU SCBBSCFM 01453000 SCBITBSZ EQU IEDQSCB+40 01454000 SCBCTBSV EQU SCBITBSZ 01455000 SCBDNSEG EQU IEDQSCB+41 01456000 SCBCLSEG EQU IEDQSCB+45 01457000 SCBITBAC EQU IEDQSCB+48 01458000 SCBCTBFL EQU SCBITBAC 01459000 SCBBLKCT EQU SCBCTBFL 01460000 SCBDCSEG EQU IEDQSCB+49 01461000 SCBSTAT1 EQU IEDQSCB+60 01462000 SCBCORE EQU IEDQSCB+61 01463000 SCBSCAN EQU IEDQSCB+64 01464000 SCBNTXT EQU IEDQSCB+66 01465000 SCBCHDR EQU IEDQSCB+72 01466000 SCBCCSEG EQU IEDQSCB+75 01467000 SCBEND EQU IEDQSCB+84 01468000 IEDQSPTR EQU 0 01469000 IEDTH EQU 0 01470000 TTHBYTE0 EQU IEDTH 01471000 TTHFTYPE EQU TTHBYTE0 01472000 TTHBBIU EQU TTHBYTE0 01473000 TTHEBIU EQU TTHBYTE0 01474000 TTHEFI EQU TTHBYTE0 01475000 TTHBYTE1 EQU IEDTH+1 01476000 TTHDAF EQU IEDTH+2 01477000 TTHOAF EQU IEDTH+4 01478000 TTHSNF EQU IEDTH+6 01479000 TTHTAG EQU TTHSNF 01480000 TTHTAG1 EQU TTHTAG 01481000 TTHDCF EQU IEDTH+8 01482000 IEDTRM EQU 0 01483000 IEDNTRM EQU IEDTRM 01484000 TRMINDEX EQU IEDNTRM 01485000 TRMCOHTG EQU IEDNTRM+2 01486000 TRMBYTE6 EQU TRMCOHTG 01487000 TRMCDF0 EQU TRMBYTE6 01488000 TRMBYTE5 EQU TRMCOHTG+1 01489000 TRMBYTE4 EQU IEDNTRM+4 01490000 TRMBYTE3 EQU IEDNTRM+5 01491000 TRMBYTE2 EQU IEDNTRM+6 01492000 TRMINPG EQU TRMBYTE2 01493000 TRMBYTE1 EQU IEDNTRM+7 01494000 TRMSCPRQ EQU TRMBYTE1 01495000 TRMBYTE0 EQU IEDNTRM+10 01496000 TRMNOWCD EQU TRMBYTE0 01497000 TRMSIBPT EQU IEDNTRM+11 01498000 TRMLTRAC EQU TRMSIBPT 01499000 TRMRLMCT EQU IEDNTRM+14 01500000 TRMLGBST EQU TRMRLMCT 01501000 TRMTYPE EQU IEDNTRM+15 01502000 IEDQTRM EQU IEDTRM+18 01503000 TRMSTATE EQU IEDQTRM 01504000 TRMLOG EQU TRMSTATE 01505000 TRMPREF EQU TRMSTATE 01506000 TRMDESTQ EQU IEDQTRM+1 01507000 TRMRSTRT EQU TRMDESTQ+2 01508000 TRMINSEQ EQU IEDQTRM+4 01509000 TLISTCNT EQU TRMINSEQ 01510000 TRMSESCT EQU TLISTCNT 01511000 TRMOUTSQ EQU IEDQTRM+6 01512000 TLISTEN EQU TRMOUTSQ 01513000 TRMDSORG EQU TLISTEN 01514000 TRMPLIM EQU TLISTEN+1 01515000 TRMALTD EQU IEDQTRM+8 01516000 TRMPRILK EQU TRMALTD 01517000 TRMDEVFL EQU IEDQTRM+10 01518000 TRMADDC EQU TRMDEVFL 01519000 TRMNCPI EQU TRMDEVFL+1 01520000 TRMSTAT EQU IEDQTRM+12 01521000 TRMSIO EQU TRMSTAT 01522000 TRMOWNER EQU TRMSIO 01523000 TRMCHCIN EQU IEDQTRM+16 01524000 IEDTTCD EQU 0 01525000 IEDTTCP EQU 0 01526000 IEDTTCPL EQU 0 01527000 TTCSVCPL EQU IEDTTCPL 01528000 TTCSVCW1 EQU TTCSVCPL 01529000 TTCSVCW2 EQU TTCSVCPL+4 01530000 IEDTTCFD EQU 0 01531000 IEDTTCQB EQU 0 01532000 TTCQCB EQU IEDTTCQB 01533000 TTCSCB EQU IEDTTCQB+12 01534000 IEDQTNT EQU 0 01535000 IEDMVBFR EQU 0 01536000 ALLOCBUF EQU 0 01537000 POSTWAIT EQU 0 01538000 SENDMAP EQU 0 01539000 SENDTCB EQU SENDMAP+4 01540000 SENDCDS EQU SENDMAP+8 01541000 SENDARA EQU SENDMAP+12 01542000 SENDRLN EQU SENDMAP+16 01543000 SENDFLG EQU SENDMAP+18 01544000 SENDBBKT EQU SENDFLG 01545000 SENDEBKT EQU SENDFLG 01546000 SENDRFME EQU SENDFLG 01547000 SENDREX EQU SENDFLG 01548000 SENDCDSL EQU SENDFLG 01549000 SENDSTPE EQU SENDFLG 01550000 SENDCCMD EQU SENDFLG+1 01551000 SENDCREQ EQU SENDFLG+1 01552000 TESTDSN EQU 0 01553000 TTECB EQU 0 01554000 TECBFDCT EQU TTECB 01555000 TECBFDLN EQU TTECB+1 01556000 TECBSNLN EQU TTECB+2 01557000 TECBSNCT EQU TTECB+5 01558000 TECBSNOC EQU TTECB+6 01559000 TECBFD01 EQU TTECB+8 01560000 LTECB EQU 0 01561000 LTCBSENS EQU LTECB+3 01562000 LTCBRESP EQU LTECB+7 01563000 LTCBRTPE EQU LTECB+10 01564000 LTCBBRCH EQU LTECB+11 01565000 LTCBALT EQU LTCBBRCH 01566000 LTCBCHN EQU LTECB+12 01567000 LTCBFIR EQU LTCBCHN 01568000 LTCBLAST EQU LTCBCHN 01569000 LTCBONLY EQU LTCBCHN 01570000 LCDS EQU 0 01571000 LCDSFBTE EQU LCDS+5 01572000 LCDSSMNM EQU LCDS+12 01573000 SENDBNDA EQU 0 01574000 LCBRSPIN EQU LCBIOBSN 01575000 LCBRHSV EQU LCBRSPIN+2 01576000 LCBLUSNS EQU LCBRSPIN+5 01577000 LCBSCPRS EQU LCBRSPIN+9 01578000 LCBCSWU1 EQU LCBSCPRS+2 01579000 LCBRSPFG EQU LCBRSPIN+15 01580000 LCBCOREQ EQU LCBTPCD 01581000 @NM00168 EQU LCBCPA+40 01582000 LCBQNX EQU LCBERCCW 01583000 LCBQNXMN EQU LCBQNX 01584000 LCBCANCL EQU LCBSAVSN 01585000 LCBCANFG EQU LCBCANCL 01586000 PIURU EQU PIUEND 01587000 @NM00247 EQU PRFSRCSZ 01588000 PRFSHDR EQU IEDQPRF+42 01589000 TRMDIALQ EQU TRMPLIM 01590000 @NM00277 EQU TRMSTATE 01591000 TRMCDFD0 EQU TRMBYTE5 01592000 TRMPRE1 EQU TRMBYTE4 01593000 TRMNCP1 EQU TRMBYTE4 01594000 TRMLU1 EQU TRMBYTE4 01595000 TRMLINK1 EQU TRMBYTE4 01596000 TRMDCONS EQU TRMLINK1 01597000 TRMPRE EQU TRMBYTE3 01598000 TRMNCP EQU TRMBYTE3 01599000 TRMPU EQU TRMBYTE3 01600000 TRMLU EQU TRMBYTE3 01601000 TRMTDIFF EQU TRMLU 01602000 TRMCDMGR EQU TRMBYTE3 01603000 TRMLINK EQU TRMBYTE3 01604000 REQELEM EQU TOTWOWRK 01605000 REQQCB EQU REQELEM 01606000 @NM00310 EQU REQELEM+4 01607000 REQPRI EQU @NM00310 01608000 REQLINK EQU @NM00310+1 01609000 BASSAVE EQU TOTSAVE2 01610000 BASNBUNT EQU BASSAVE 01611000 BASRPAR EQU BASSAVE+4 01612000 BASRIOB EQU BASSAVE+8 01613000 BASRTRM EQU BASSAVE+12 01614000 BASRPRF EQU BASSAVE+20 01615000 BASRPIU EQU BASSAVE+24 01616000 BASRRET EQU BASSAVE+28 01617000 BASRTEC EQU BASSAVE+32 01618000 BASRLCB EQU BASSAVE+36 01619000 SCBRGSAV EQU SCBEND 01620000 TRMOPT EQU IEDQTRM+20 01621000 TRMPOOLP EQU TRMINSEQ 01622000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01623000 BASRBIN EQU BASSAVE+16 01624000 TRMLDISC EQU TRMLINK 01625000 @NM00294 EQU TRMLINK 01626000 TRMLALOC EQU TRMLINK 01627000 TRMLSTAT EQU TRMLINK 01628000 TRMLINT EQU TRMLINK 01629000 TRMEPMOD EQU TRMLINK 01630000 TRMCDLOG EQU TRMCDMGR 01631000 @NM00293 EQU TRMCDMGR 01632000 @NM00292 EQU TRMCDMGR 01633000 @NM00291 EQU TRMCDMGR 01634000 @NM00290 EQU TRMCDMGR 01635000 @NM00289 EQU TRMCDMGR 01636000 TRMBKDUP EQU TRMCDMGR 01637000 TRMLULOG EQU TRMLU 01638000 @NM00288 EQU TRMLU 01639000 @NM00287 EQU TRMLU 01640000 @NM00286 EQU TRMLU 01641000 @NM00285 EQU TRMLU 01642000 @NM00284 EQU TRMLU 01643000 TRMAUTO EQU TRMLU 01644000 TRMPCONT EQU TRMPU 01645000 TRMPDOCQ EQU TRMPU 01646000 TRMPULOC EQU TRMPU 01647000 TRMPDNAS EQU TRMPU 01648000 TRMPALOC EQU TRMPU 01649000 TRMNCONT EQU TRMNCP 01650000 TRMQUCKN EQU TRMNCP 01651000 TRMSLOWN EQU TRMNCP 01652000 TRMSYGEN EQU TRMNCP 01653000 TRMNCPCL EQU TRMNCP 01654000 TRMIPLDM EQU TRMNCP 01655000 TRMINOUT EQU TRMPRE 01656000 TRMRDOUT EQU TRMPRE 01657000 TRMNLOUT EQU TRMPRE 01658000 TRMWROUT EQU TRMPRE 01659000 TRMASNXI EQU TRMPRE 01660000 TRMSTMM EQU TRMPRE 01661000 TRMCMODE EQU TRMPRE 01662000 TRMSTPND EQU TRMPRE 01663000 TRMNCPLK EQU TRMLINK1 01664000 @NM00283 EQU TRMLINK1 01665000 TRMDCONN EQU TRMDCONS 01666000 TRMDCOP EQU TRMDCONS 01667000 TRMPMARY EQU TRMLU1 01668000 @NM00282 EQU TRMLU1 01669000 @NM00281 EQU TRMLU1 01670000 TRMCDSRQ EQU TRMLU1 01671000 TRMLSCVP EQU TRMLU1 01672000 @NM00280 EQU TRMLU1 01673000 @NM00279 EQU TRMNCP1 01674000 TRMANS EQU TRMNCP1 01675000 TRMLINOP EQU TRMNCP1 01676000 TRMINOP EQU TRMNCP1 01677000 TRMLYNCH EQU TRMPRE1 01678000 TRMSPOUT EQU TRMPRE1 01679000 TRMERLCK EQU TRMPRE1 01680000 TRMQNPL EQU TRMPRE1 01681000 TRMSPACT EQU TRMPRE1 01682000 TRMOCNI EQU TRMPRE1 01683000 TRMSESSN EQU TRMPRE1 01684000 TRMCONT EQU TRMPRE1 01685000 TRMINERR EQU TRMCDFD0 01686000 TRMLUTM EQU TRMCDFD0 01687000 TRMLUIT EQU TRMCDFD0 01688000 TRMLUREQ EQU TRMCDFD0 01689000 TRMCDPRE EQU TRMCDFD0 01690000 TRMWASCD EQU TRMCDFD0 01691000 TRMSRPFG EQU TRMCDFD0 01692000 TRMSESRQ EQU TRMCDFD0 01693000 @NM00278 EQU @NM00277 01694000 TRMENTRY EQU @NM00277 01695000 TRMSRPTR EQU TRMDIALQ 01696000 PRFSVFLG EQU @NM00247+3 01697000 PRFSVFFO EQU @NM00247 01698000 @NM00175 EQU LCBCANCL+3 01699000 LCBCANTH EQU LCBCANCL+1 01700000 @NM00174 EQU LCBCANFG 01701000 LCBCANCD EQU LCBCANFG 01702000 @NM00173 EQU LCBCANFG 01703000 LCBCANEB EQU LCBCANFG 01704000 LCBCANXT EQU LCBCANFG 01705000 LCBUNADD EQU LCBQNX+21 01706000 LCBUASZE EQU LCBQNX+20 01707000 LCBDSTEA EQU LCBQNX+16 01708000 @NM00172 EQU LCBQNX+8 01709000 LCBIOSBS EQU LCBQNX+5 01710000 @NM00171 EQU LCBQNX+4 01711000 LCBSTSAV EQU LCBQNX+1 01712000 @NM00170 EQU LCBQNXMN 01713000 LCBNX509 EQU LCBQNXMN 01714000 LCBNX162 EQU LCBQNXMN 01715000 LCBNX142 EQU LCBQNXMN 01716000 LCBNX064 EQU LCBQNXMN 01717000 LCBSIBPT EQU @NM00168+8 01718000 LCBSUSPT EQU @NM00168+4 01719000 LCBNCPPT EQU @NM00168+1 01720000 @NM00169 EQU @NM00168 01721000 LCBWRSCH EQU LCBCOREQ+8 01722000 LCBCQLNK EQU LCBCOREQ+4 01723000 LCBCQELE EQU LCBCOREQ 01724000 LCBPAKCH EQU LCBRSPIN+16 01725000 @NM00167 EQU LCBRSPFG 01726000 LCBIMRSP EQU LCBRSPFG 01727000 LCBPRSPO EQU LCBRSPFG 01728000 LCBRSRH EQU LCBRSPFG 01729000 LCBEXPI EQU LCBRSPFG 01730000 @NM00166 EQU LCBRSPIN+12 01731000 LCBUSUE1 EQU LCBCSWU1 01732000 @NM00165 EQU LCBCSWU1 01733000 @NM00164 EQU LCBSCPRS+1 01734000 LCBDFCMD EQU LCBSCPRS 01735000 LCBUSER EQU LCBLUSNS+2 01736000 LCBSMIN EQU LCBLUSNS+1 01737000 LCBSMAJ EQU LCBLUSNS 01738000 LCBPACRS EQU LCBRHSV 01739000 @NM00163 EQU LCBRHSV 01740000 LCBSNS0 EQU LCBRSPIN+1 01741000 @NM00162 EQU LCBRSPIN 01742000 LCDSFLGS EQU LCDS+9 01743000 LCDSBTEC EQU LCDS+8 01744000 LCDSSTPE EQU LCDS+7 01745000 LCDSCLSS EQU LCDS+6 01746000 LCDSTRMF EQU LCDS+4 01747000 LCDSUNTA EQU LCDS 01748000 LTCBSEQN EQU LTECB+16 01749000 LTCBCTL EQU LTECB+13 01750000 @NM00309 EQU LTCBCHN 01751000 LTCBMID EQU LTCBCHN 01752000 @NM00308 EQU LTCBBRCH 01753000 LTCBREQ EQU LTCBBRCH 01754000 LTCBCMD EQU LTCBBRCH 01755000 LTCBEB EQU LTCBBRCH 01756000 LTCBBB EQU LTCBBRCH 01757000 @NM00307 EQU LTCBRTPE 01758000 LTCBRSP EQU LTCBRTPE 01759000 @NM00306 EQU LTCBRTPE 01760000 LTCBLORR EQU LTECB+8 01761000 @NM00305 EQU LTCBRESP 01762000 LTCBFME EQU LTCBRESP 01763000 LTCBEX EQU LTCBRESP 01764000 @NM00304 EQU LTCBRESP 01765000 LTCBUSER EQU LTCBSENS+2 01766000 LTCBSSMD EQU LTCBSENS+1 01767000 LTCBSYSS EQU LTCBSENS 01768000 @NM00303 EQU LTECB 01769000 TECBEVOC EQU TTECB+7 01770000 TECBFLGS EQU TTECB+4 01771000 @NM00302 EQU SENDFLG+1 01772000 SENDFMHR EQU SENDFLG 01773000 @NM00301 EQU SENDFLG 01774000 @NM00300 EQU SENDMAP+2 01775000 @NM00299 EQU SENDMAP+1 01776000 @NM00298 EQU SENDMAP 01777000 TTCQSTCB EQU TTCQCB+8 01778000 TTCQBECB EQU TTCQCB+4 01779000 TTCQBELC EQU TTCQCB+1 01780000 TTCQBFLG EQU TTCQCB 01781000 @NM00297 EQU IEDTTCFD 01782000 @NM00296 EQU IEDTTCPL+8 01783000 TTCLAST EQU TTCSVCW2 01784000 TTCFIRST EQU TTCSVCW1+1 01785000 TTCPCODE EQU TTCSVCW1 01786000 @NM00295 EQU IEDTTCD 01787000 TRMOPTBL EQU IEDQTRM+18 01788000 TRMOPNO EQU IEDQTRM+17 01789000 TRMSENSE EQU TRMSTAT+3 01790000 TRMTEMPR EQU TRMSTAT+2 01791000 TRMNADDR EQU TRMOWNER 01792000 @NM00276 EQU TRMDEVFL+1 01793000 TRMTPIN EQU TRMDEVFL+1 01794000 @NM00275 EQU TRMNCPI 01795000 TRMRNTRM EQU TRMDEVFL+1 01796000 @NM00274 EQU TRMDEVFL+1 01797000 TRMLMD EQU TRMDEVFL+1 01798000 TRMCONC EQU TRMDEVFL+1 01799000 TRMTSOB EQU TRMDEVFL 01800000 TRMBFDY EQU TRMDEVFL 01801000 TRMTBLK EQU TRMDEVFL 01802000 TRMSBLK EQU TRMDEVFL 01803000 TRMBLKS EQU TRMDEVFL 01804000 TRMSCV EQU TRMADDC 01805000 TRMDDIG EQU TRMDEVFL 01806000 TRMBUFS EQU TRMDEVFL 01807000 TRMSTEAL EQU TRMPRILK 01808000 TRMLGB EQU TRMDSORG 01809000 TRMUTERM EQU TRMSESCT 01810000 TRMVERIF EQU TRMRSTRT 01811000 @NM00273 EQU TRMRSTRT 01812000 @NM00272 EQU TRMDESTQ 01813000 TRMSCNYN EQU TRMSTATE 01814000 TRMOPTFN EQU TRMSTATE 01815000 TRMHELDN EQU TRMSTATE 01816000 TRMACPTN EQU TRMSTATE 01817000 TRMPROC EQU TRMLOG 01818000 TRMLIST EQU TRMLOG 01819000 TRMLINE EQU TRMSTATE 01820000 TRMSUBST EQU IEDNTRM+16 01821000 TRMPRIME EQU TRMLGBST 01822000 TRMOWNR EQU TRMLTRAC+1 01823000 TRMGPCNT EQU TRMLTRAC 01824000 TRMBUFRD EQU TRMBYTE0 01825000 TRMSNA EQU TRMBYTE0 01826000 TRMGP EQU TRMBYTE0 01827000 TRMDIAL EQU TRMBYTE0 01828000 TRMACDC EQU TRMNOWCD 01829000 TRMOUTPT EQU TRMBYTE0 01830000 TRMINPUT EQU TRMBYTE0 01831000 TRMUDEF EQU TRMBYTE0 01832000 TRMCOHRT EQU IEDNTRM+8 01833000 TRMSTOTE EQU TRMBYTE1 01834000 TRMCKPRN EQU TRMBYTE1 01835000 TRMTSATN EQU TRMBYTE1 01836000 TRMTRACE EQU TRMBYTE1 01837000 TRMSWBCK EQU TRMBYTE1 01838000 TRMAUTOC EQU TRMBYTE1 01839000 TRMINPTP EQU TRMBYTE1 01840000 TRMWTNEG EQU TRMSCPRQ 01841000 TRMWRBRK EQU TRMBYTE2 01842000 TRMNOSND EQU TRMBYTE2 01843000 TRMPREP EQU TRMBYTE2 01844000 TRMGPACT EQU TRMBYTE2 01845000 TRMANDL EQU TRMBYTE2 01846000 TRMCLOSN EQU TRMINPG 01847000 TRMREMB EQU TRMBYTE2 01848000 TRMRSACT EQU TRMBYTE2 01849000 @NM00271 EQU TRMCDF0 01850000 TRMPURGE EQU TRMCDF0 01851000 TRMCDST EQU TRMINDEX 01852000 TTHTAG2 EQU TTHTAG+1 01853000 @NM00270 EQU TTHTAG1 01854000 TTHTAGS EQU TTHTAG1 01855000 @NM00269 EQU TTHBYTE0 01856000 SCBTRANS EQU IEDQSCB+81 01857000 SCBUNTCT EQU IEDQSCB+80 01858000 SCBEOB EQU IEDQSCB+78 01859000 SCBNXCPB EQU SCBCCSEG 01860000 SCBNHDR EQU SCBCHDR 01861000 SCBCRCD EQU IEDQSCB+69 01862000 SCBTQBCK EQU SCBNTXT 01863000 SCBOSEQ EQU SCBSCAN 01864000 SCBXTRA EQU SCBCORE 01865000 SCBNOPST EQU SCBSTAT1 01866000 SCBNIDLE EQU SCBSTAT1 01867000 SCBCEND EQU SCBSTAT1 01868000 SCBCBGN EQU SCBSTAT1 01869000 SCBSIZE EQU IEDQSCB+58 01870000 SCBSRCE EQU IEDQSCB+56 01871000 SCBDEOB EQU IEDQSCB+52 01872000 SCBFEFO EQU SCBDCSEG 01873000 SCBCTBND EQU SCBBLKCT 01874000 SCBSCHDR EQU SCBCLSEG 01875000 SCBHBFNO EQU IEDQSCB+44 01876000 SCBSCSEG EQU SCBDNSEG 01877000 SCBBCTR EQU SCBCTBSV 01878000 SCBCCHDR EQU IEDQSCB+37 01879000 SCBDESTL EQU IEDQSCB+36 01880000 SCBDCHDR EQU IEDQSCB+33 01881000 SCBCPBNO EQU IEDQSCB+32 01882000 SCBMBSSA EQU IEDQSCB+25 01883000 SCBMLMTN EQU SCBBSCFM 01884000 SCBNOEOT EQU SCBBSCFM 01885000 @NM00268 EQU SCBBSCFM 01886000 SCBNPDTR EQU SCBDATEN 01887000 SCBCNTEN EQU SCBBSCFM 01888000 SCBRCVTX EQU SCBBSCFM 01889000 SCBNONTR EQU SCBBSCFM 01890000 SCBTRNSP EQU SCBBSCFM 01891000 SCBENDCR EQU SCBCTBAC+1 01892000 SCBCRLEN EQU SCBCTBAC 01893000 SCBMRFSD EQU IEDQSCB+20 01894000 SCBUNDFN EQU SCBERR4 01895000 SCBSTERN EQU SCBCHANN 01896000 SCBCPMEN EQU SCBCTLUN 01897000 @NM00267 EQU SCBERR4 01898000 SCBTRMLN EQU SCBERR4 01899000 SCBCONNN EQU SCBERR4 01900000 SCBAPERR EQU SCBTXTTN 01901000 SCBSLCTN EQU SCBERR4 01902000 SCBPERRN EQU SCBXCEPN 01903000 SCBTHRSN EQU SCBATTN 01904000 SCBFIERN EQU SCBFORMN 01905000 SCBUSERN EQU SCBERR3 01906000 SCBSATTN EQU SCBERR3 01907000 SCBTMINN EQU SCBERR3 01908000 SCBXPD EQU SCBTMIDN 01909000 SCBXPI EQU SCBLOSTN 01910000 SCBSOHE EQU SCBERR2 01911000 SCBFRWDN EQU SCBERR2 01912000 SCBRRJN EQU SCBABRTN 01913000 SCBOLTR EQU SCBERR2 01914000 SCBALN EQU SCBERR2 01915000 SCBCODER EQU SCBERR2 01916000 SCBCRMAX EQU SCBERR2 01917000 SCBCRMIN EQU SCBERR2 01918000 SCBRVISL EQU SCBCUTFN 01919000 SCBNOBFN EQU SCBERR1 01920000 @NM00266 EQU SCBERR1 01921000 SCBNOVAC EQU SCBSEQLN 01922000 SCBNOTSO EQU SCBSEQHN 01923000 SCBRVITX EQU SCBNOTRM 01924000 SCBHANG EQU SCBORIGN 01925000 SCBNOLOG EQU SCBHDRRN 01926000 SCBMRFPL EQU IEDQSCB+13 01927000 SCBBFMM EQU SCBQTYPE 01928000 SCBBBFTM EQU SCBQTYPE 01929000 SCBNOFF EQU SCBQTYPE 01930000 SCBCONC EQU SCBQTYPE 01931000 SCBNREUS EQU SCBQTYPE 01932000 SCBREUS EQU SCBQTYPE 01933000 SCBCOREQ EQU SCBQTYPE 01934000 SCBNORCL EQU SCBQTYPE 01935000 SCBCTBSZ EQU SCBEOBSZ 01936000 @NM00265 EQU SCBBKFCT 01937000 SCBPRI EQU IEDQSCB+8 01938000 SCBMACR EQU SCBMBHEN 01939000 SCBSNDCT EQU SCBRCVCT 01940000 SCBCODE EQU SCBSTATE 01941000 SCBPRER EQU SCBSTATE 01942000 SCBCKPT EQU SCBSTATE 01943000 SCBMSGLN EQU SCBSTATE 01944000 SCBERSDS EQU SCBSTATE 01945000 SCBLCK1N EQU SCBSTATE 01946000 SCBMGFMN EQU SCBSEQIN 01947000 SCBTRANP EQU SCBSTATE 01948000 @NM00264 EQU TRHBYTE2 01949000 @NM00263 EQU TRHBYTE2 01950000 @NM00262 EQU TRHBYTE2 01951000 @NM00261 EQU TRHBYTE2 01952000 TRHPI EQU TRHBYTE1 01953000 TRHQRI EQU TRHBYTE1 01954000 @NM00260 EQU TRHBYTE1 01955000 @NM00259 EQU TRHBYTE1 01956000 @NM00258 EQU TRHBYTE1 01957000 TRHFI EQU TRHBYTE0 01958000 @NM00257 EQU TRHBYTE0 01959000 TRHRUCAT EQU TRHBYTE0 01960000 RESAPDCB EQU IEDRESPL+180 01961000 RESTLIB EQU IEDRESPL+176 01962000 RESPL33 EQU RESPLADR+76 01963000 RESPL25 EQU RESPLADR+72 01964000 RESPL47 EQU RESPLADR+64 01965000 RESPL44 EQU RESPLADR+60 01966000 RESPL43 EQU RESPL42 01967000 RESPL16 EQU RESPLADR+52 01968000 RESPL41 EQU RESPLADR+48 01969000 RESPL21 EQU RESPLAC 01970000 RESPL36 EQU RESPLADR+40 01971000 RESPL28 EQU RESPLADR+36 01972000 RESPL37 EQU RESPLADR+32 01973000 RESPLP2 EQU RESPLADR+28 01974000 RESPLP1 EQU RESPLADR+24 01975000 RESPL39 EQU RESPLADR+20 01976000 RESPLAA EQU RESPLADR+16 01977000 RESPL35 EQU RESPLADR+12 01978000 RESPLAJ EQU RESPLADR+8 01979000 RESPLAB EQU RESPLADR+4 01980000 RESPLWO EQU RESPLADR 01981000 RESTOTMH EQU IEDRESPL+92 01982000 RESMHNAT EQU IEDRESPL+90 01983000 RESFBUF EQU IEDRESPL+84 01984000 RESADDAF EQU RESQHBL+12 01985000 RESADDND EQU RESQHBL+8 01986000 RESREMEL EQU RESQHBL+4 01987000 RESREMFR EQU RESQHBL 01988000 RESTNTPT EQU IEDRESPL+57 01989000 @NM00256 EQU IEDRESPL+56 01990000 RESTRMQ EQU IEDRESPL+52 01991000 @NM00255 EQU IEDRESPL+50 01992000 @NM00254 EQU RESFLAGS 01993000 RESFIRST EQU RESFLAGS 01994000 RESINIT EQU RESFLAGS 01995000 RESWBFNC EQU IEDRESPL+48 01996000 RESSMGRA EQU IEDRESPL+44 01997000 RESSTAEA EQU IEDRESPL+40 01998000 RESETXRA EQU IEDRESPL+36 01999000 RESDMTTE EQU IEDRESPL+33 02000000 RESTNTCT EQU IEDRESPL+32 02001000 RESEFQCB EQU IEDRESPL+28 02002000 RESBKAVL EQU IEDRESPL+26 02003000 RESBKTOT EQU IEDRESPL+24 02004000 RESTTLST EQU IEDRESPL+20 02005000 RESOBBKW EQU RESOBQCB+4 02006000 RESOBFWD EQU RESOBQCB 02007000 RESTECB1 EQU IEDRESPL+8 02008000 @NM00253 EQU IEDRESPL+5 02009000 @NM00252 EQU IEDRESPL+4 02010000 RESTECBS EQU IEDRESPL 02011000 @NM00251 EQU IEDPF2+1 02012000 @NM00250 EQU PRF2FLG2 02013000 PRF2TERM EQU PRF2FLG2 02014000 PRF2SMI EQU PRF2FLG2 02015000 PRF1RCDE EQU PRF1RULN 02016000 PRF1TAG2 EQU PRF1SQID+1 02017000 @NM00249 EQU PRF1TAG1 02018000 PRF1TAGS EQU PRF1TAG1 02019000 @NM00248 EQU PRF1FLG1 02020000 PRF1LOGD EQU PRF1FLG1 02021000 PRF1USS EQU PRF1FLG1 02022000 PRF1FORM EQU PRF1FLG1 02023000 PRF1EXPI EQU PRF1FLG1 02024000 PRF1FIDI EQU PRF1FLG1 02025000 PRF1RH EQU IEDPF1 02026000 PRFISEQ EQU IEDQPRF+38 02027000 PRFSTXT EQU PRFHQBCK 02028000 PRFNHDR EQU PRFCHDR 02029000 PRFCRCD EQU IEDQPRF+29 02030000 PRFSVSEQ EQU PRFLU2TT 02031000 PRFSVPRI EQU PRFEOBOF 02032000 PRFISIZE EQU PRFSCAN+1 02033000 @NM00246 EQU PRFSCAN 02034000 PRFEOB EQU PRFLU1TT 02035000 PRFSTSO EQU PRFXTRA 02036000 PRFNHDRN EQU PRFSTAT1 02037000 PRFNLSTN EQU PRFSTAT1 02038000 PRFLOCK EQU PRFEOFN 02039000 PRFDUPLN EQU PRFSTAT1 02040000 PRFTSMSG EQU PRFSTAT1 02041000 PRFITCPN EQU PRFSTAT1 02042000 PRFERMGN EQU PRFSTAT1 02043000 PRFCNCLN EQU PRFSTAT1 02044000 @NM00245 EQU PRFVTCHK 02045000 PRFITSET EQU PRFVTCHK 02046000 @NM00244 EQU PRFVTCHK 02047000 @NM00243 EQU PRFTI0 02048000 @NM00242 EQU PRFTICC 02049000 @NM00241 EQU PRFTICC 02050000 @NM00240 EQU PRFTICC 02051000 PRFTICON EQU PRFTICC 02052000 @NM00239 EQU PRFTICC 02053000 @NM00238 EQU PRFTICC 02054000 PRFBFMM EQU PRFTICC 02055000 PRFEOMSG EQU PRFTICC 02056000 PRFCOUNT EQU PRFLINK+1 02057000 @NM00237 EQU PRFLINK 02058000 PRFFLAGS EQU PRFPRI 02059000 PRFIOADR EQU PRFQCBA 02060000 PRFOPCDE EQU PRFKEY 02061000 PLMVUNCA EQU IEDPLMV+20 02062000 @NM00236 EQU PLMVFLG1 02063000 PLMVTSKP EQU PLMVFLG1 02064000 PLMVSSKP EQU PLMVFLG1 02065000 PLMVTCTG EQU PLMVFLG1 02066000 PLMVUNCF EQU PLMVFLG1 02067000 TOTOBEND EQU TOTOLTCB+2100 02068000 @NM00235 EQU TOTOLTCB+2044 02069000 TOTOLTEN EQU TOTOLTCB+1820 02070000 TOTAPNAM EQU TOTOLTCB+1812 02071000 TOTGRABP EQU TOTOLTCB+1808 02072000 TOTWAITI EQU TOTOLTCB+1800 02073000 @NM00234 EQU TOTOLTCB+1798 02074000 TOTTLCNT EQU TOTOLTCB+1796 02075000 TOTECBPT EQU TOTOLTCB+1792 02076000 TOTWECBA EQU TOTOLTCB+1788 02077000 TOTTDEND EQU TOTOLTCB+1788 02078000 @NM00233 EQU TOTTDTBL+1 02079000 TOTTSWPM EQU @NM00232 02080000 TOTTDIAC EQU @NM00232 02081000 TOTTDTHD EQU @NM00232 02082000 TOTTDLST EQU @NM00232 02083000 TOTTDORN EQU @NM00232 02084000 TOTTDGRB EQU @NM00232 02085000 TOTTDLIN EQU @NM00232 02086000 TOTTDTRM EQU @NM00232 02087000 @NM00231 EQU TOTOLTCB+1710 02088000 TOTCONND EQU TOTOLTCB+1710 02089000 TOTCONAP EQU TOTOLTCB+1709 02090000 TOTCONCT EQU TOTOLTCB+1708 02091000 TOTCONTB EQU TOTOLTCB+1698 02092000 TOTOLTTE EQU TOTOLTCB+1698 02093000 TOTOLTTB EQU TOTOLTCB+1668 02094000 TOTTRMND EQU TOTCROLT 02095000 TOTSCDEB EQU TOTSCDCB+44 02096000 @NM00230 EQU TOTSCDCB 02097000 TOTSCIOB EQU TOTOLTCB+1544 02098000 TOTSTECB EQU TOTOLTCB+1540 02099000 @NM00229 EQU TOTSCSN 02100000 @NM00228 EQU TOTOLTCB+1535 02101000 TOTSFLGS EQU TOTOLTCB+1534 02102000 TOTSDTCT EQU TOTOLTCB+1532 02103000 TOTSDTBF EQU TOTOLTCB+1528 02104000 TOTSCBUF EQU TOTSCENT+32 02105000 TOTSCCCW EQU TOTSCENT+28 02106000 TOTSCQCB EQU TOTSCENT+24 02107000 @NM00227 EQU TOTSCENT+23 02108000 @NM00226 EQU TOTSCFLG 02109000 TOTSEXNM EQU TOTSCFLG 02110000 TOTSCFME EQU TOTSCFLG 02111000 TOTSCEX EQU TOTSCFLG 02112000 TOTSUNRD EQU TOTSCFLG 02113000 TOTSPRSC EQU TOTSCFLG 02114000 TOTSCLU EQU TOTSCFLG 02115000 TOTSCTAS EQU TOTSCFLG 02116000 TOTSCLEN EQU TOTSCENT+20 02117000 TOTSDTNT EQU TOTSCENT+12 02118000 TOTSCLCB EQU TOTSCENT+9 02119000 TOTSCRLN EQU TOTSCENT+8 02120000 TOTSRSID EQU TOTSCENT+6 02121000 TOTSCOFF EQU TOTSCENT+4 02122000 TOTNCOFF EQU TOTSCENT+2 02123000 TOTSCUCB EQU TOTSCENT 02124000 TOTPRDEB EQU TOTPRDCB+44 02125000 @NM00225 EQU TOTPRDCB 02126000 TOTPRIOB EQU TOTOLTCB+1372 02127000 TOTPTECB EQU TOTOLTCB+1368 02128000 @NM00224 EQU TOTPRSN 02129000 @NM00223 EQU TOTOLTCB+1363 02130000 TOTPFLGS EQU TOTOLTCB+1362 02131000 TOTPDTCT EQU TOTOLTCB+1360 02132000 TOTPDTBF EQU TOTOLTCB+1356 02133000 TOTPRBUF EQU TOTPRENT+32 02134000 TOTPRCCW EQU TOTPRENT+28 02135000 TOTPRQCB EQU TOTPRENT+24 02136000 @NM00222 EQU TOTPRENT+23 02137000 @NM00221 EQU TOTPRFLG 02138000 TOTPEXNM EQU TOTPRFLG 02139000 TOTPRFME EQU TOTPRFLG 02140000 TOTPREX EQU TOTPRFLG 02141000 TOTPUNRD EQU TOTPRFLG 02142000 TOTPPRSC EQU TOTPRFLG 02143000 TOTPRLU EQU TOTPRFLG 02144000 TOTPRTAS EQU TOTPRFLG 02145000 TOTPRLEN EQU TOTPRENT+20 02146000 TOTPDTNT EQU TOTPRENT+12 02147000 TOTPRLCB EQU TOTPRENT+9 02148000 TOTPRRLN EQU TOTPRENT+8 02149000 TOTPRSID EQU TOTPRENT+6 02150000 TOTPROFF EQU TOTPRENT+4 02151000 TOTPCOFF EQU TOTPRENT+2 02152000 TOTPRUCB EQU TOTPRENT 02153000 TOTTRMBF EQU TOTPRIBK 02154000 TOTPASS EQU TOTOLTCB+1252 02155000 TOTEXT EQU TOTOLTCB+1196 02156000 @NM00220 EQU TOTOLTCB+1195 02157000 TOTOLTRS EQU TOTFLG10 02158000 TOTOLTWT EQU TOTFLG10 02159000 TOTOLTED EQU TOTFLG10 02160000 TOTTNTRQ EQU TOTFLG10 02161000 @NM00219 EQU TOTFLG10 02162000 @NM00218 EQU TOTFLG10 02163000 @NM00217 EQU TOTFLG10 02164000 TOTTERMS EQU TOTFLG10 02165000 TOTMACFT EQU TOTFLG09 02166000 TOTPRECT EQU TOTFLG09 02167000 TOTLNCON EQU TOTFLG09 02168000 TOTNOBRK EQU TOTFLG09 02169000 TOTAPTRM EQU TOTFLG09 02170000 TOTCTCON EQU TOTFLG09 02171000 TOTAPOUT EQU TOTFLG09 02172000 TOTAPCON EQU TOTFLG09 02173000 @NM00216 EQU TOTFLG08 02174000 TOTFMCTL EQU TOTFLG08 02175000 TOTMSSRC EQU TOTFLG07 02176000 TOTMSPRT EQU TOTFLG07 02177000 TOTMSREP EQU TOTFLG07 02178000 TOTMSCEC EQU TOTFLG07 02179000 @NM00215 EQU TOTFLG07 02180000 @NM00214 EQU TOTFLG07 02181000 TOTSECEX EQU TOTFLG07 02182000 TOTPRIEX EQU TOTFLG07 02183000 TOTNPERR EQU TOTFLG06 02184000 TOTOTACT EQU TOTFLG06 02185000 TOTCANCL EQU TOTFLG06 02186000 TOTABEND EQU TOTFLG06 02187000 TOTNCMFG EQU TOTFLG06 02188000 TOTWACAN EQU TOTFLG06 02189000 TOTCBOPN EQU TOTFLG06 02190000 TOTOTERM EQU TOTFLG06 02191000 TOTNDMSG EQU TOTFLG05 02192000 TOTEXIOF EQU TOTFLG05 02193000 TOTTMOUT EQU TOTFLG05 02194000 TOTSRCON EQU TOTFLG05 02195000 TOTSRCE EQU TOTFLG05 02196000 TOTREPLY EQU TOTFLG05 02197000 TOTCECOM EQU TOTFLG05 02198000 TOTPRINT EQU TOTFLG05 02199000 TOTTTSWT EQU TOTFLG04 02200000 @NM00213 EQU TOTFLG04 02201000 @NM00212 EQU TOTFLG04 02202000 TOTSCCTF EQU TOTFLG04 02203000 TOTPRCTF EQU TOTFLG04 02204000 TOTCLOSE EQU TOTFLG04 02205000 TOTDTCHD EQU TOTFLG04 02206000 TOTNUMDV EQU TOTFLG04 02207000 @NM00211 EQU TOTFLG03 02208000 TOTREPEX EQU TOTFLG03 02209000 TOTTSINC EQU TOTFLG03 02210000 TOTIMNCP EQU TOTFLG03 02211000 TOTOPTER EQU TOTFLG03 02212000 TOTTSTER EQU TOTFLG03 02213000 TOTTDFER EQU TOTFLG03 02214000 TOTAPOER EQU TOTFLG03 02215000 TOTDEVRN EQU TOTFLG02 02216000 TOTCONCU EQU TOTFLG02 02217000 TOTCONMD EQU TOTFLG02 02218000 TOTCHKSZ EQU TOTFLG02 02219000 TOTOLTRQ EQU TOTFLG02 02220000 TOTDEV0X EQU TOTFLG02 02221000 TOTTSST EQU TOTFLG02 02222000 TOTTTSPE EQU TOTFLG02 02223000 TOTCLNED EQU TOTFLG01 02224000 TOTCLNST EQU TOTFLG01 02225000 TOTPRMPT EQU TOTFLG01 02226000 TOTEXIT EQU TOTFLG01 02227000 TOTIPLCU EQU TOTFLG01 02228000 TOTCONFG EQU TOTFLG01 02229000 TOTFINAL EQU TOTFLG01 02230000 TOTSTAE EQU TOTOLTCB+1176 02231000 @NM00210 EQU TOTOLTCB+1152 02232000 TOTWKEND EQU TOTOLTCB+1152 02233000 @NM00209 EQU TOTOLTCB+1020 02234000 TOTPLBKW EQU TOTPLNKQ+4 02235000 TOTPLFWD EQU TOTPLNKQ 02236000 @NM00208 EQU TOTOLTCB+1011 02237000 TOTOLTID EQU TOTOLTCB+1008 02238000 TOTINBUF EQU TOTWTOPL+88 02239000 TOTOTBUF EQU TOTWTOPL+4 02240000 @NM00207 EQU TOTWTOPL+2 02241000 TOTOTCNT EQU TOTWTOPL+1 02242000 @NM00206 EQU TOTWTOPL 02243000 TOTINECB EQU TOTWTORP+4 02244000 TOTINADR EQU TOTWTORP+1 02245000 TOTINCNT EQU TOTWTORP 02246000 TOT#TBLE EQU TOTOLTPL+8 02247000 @NM00205 EQU TOTOLTPL 02248000 TOTCMPCD EQU TOTOLTCB+816 02249000 TOTTCBAD EQU TOTOLTCB+812 02250000 TOTRESSV EQU TOTOLTCB+808 02251000 TOTOTECB EQU TOTOLTCB+804 02252000 TOTOLTMQ EQU TOTOLTCB+800 02253000 TOTPARML EQU TOTOLTCB+796 02254000 TOTPDECB EQU TOTOLTCB+776 02255000 TOTAPDCB EQU TOTOLTCB+772 02256000 @NM00204 EQU TOTOLTCB+768 02257000 @NM00203 EQU TOTAPDFL 02258000 TOTAPIAC EQU TOTAPDFL 02259000 TOTAPHD EQU TOTAPDFL 02260000 TOTAPLST EQU TOTAPDFL 02261000 TOTAPGP EQU TOTAPDFL 02262000 @NM00202 EQU TOTAPDFL 02263000 TOTAPLIN EQU TOTAPDFL 02264000 TOTAPTER EQU TOTAPDFL 02265000 TOTAPRNL EQU TOTAPENT+23 02266000 TOTAPEND EQU TOTAPENT+23 02267000 TOTAPSWD EQU TOTAPFLG 02268000 @NM00201 EQU TOTAPFLG 02269000 TOTAPORN EQU TOTAPFLG 02270000 TOTAPASN EQU TOTAPFLG 02271000 TOTAPTLN EQU TOTAPENT+20 02272000 TOTARTNT EQU TOTAPENT+16 02273000 TOTAPTNT EQU TOTAPENT+12 02274000 TOTAPLCB EQU TOTAPENT+9 02275000 TOTAPRLN EQU TOTAPENT+8 02276000 TOTARSID EQU TOTAPENT+6 02277000 TOTAROFF EQU TOTAPENT+4 02278000 TOTAPOFF EQU TOTAPENT+2 02279000 TOTAPUCB EQU TOTAPENT 02280000 TOTUSCOR EQU TOTOLTCB+732 02281000 TOTOPCLN EQU TOTOLTCB+728 02282000 @NM00200 EQU TOTOLTCB+690 02283000 TOTOALTT EQU TOTOLTCB+688 02284000 TOTOLADR EQU TOTPLIST+16 02285000 @NM00199 EQU TOTOECBA+1 02286000 @NM00198 EQU TOTOFLG 02287000 TOTOATTC EQU TOTOFLG 02288000 TOTORTCD EQU TOTPLIST+11 02289000 TOTORLN EQU TOTPLIST+10 02290000 TOTOELNG EQU TOTPLIST+9 02291000 TOTOVBCD EQU TOTPLIST+8 02292000 TOTOLINK EQU TOTPLIST+5 02293000 TOTOPRI EQU TOTPLIST+4 02294000 TOTOQCBA EQU TOTPLIST+1 02295000 TOTOKEY EQU TOTPLIST 02296000 TOTWOOPC EQU TOTOLTCB+640 02297000 TOTCURS4 EQU TOTCUTST+11 02298000 TOTCURS3 EQU TOTCUTST+10 02299000 TOTCURS2 EQU TOTCUTST+9 02300000 TOTCURS1 EQU TOTCUTST+8 02301000 TOTCUSAV EQU TOTCUTST+4 02302000 TOTCUCUU EQU TOTCUTST+2 02303000 TOTCU#AD EQU TOTCUTST+1 02304000 @NM00197 EQU TOTCUFLG 02305000 TOTCUCUP EQU TOTCUFLG 02306000 TOTCUDON EQU TOTCUFLG 02307000 @NM00196 EQU TOTOLTCB+625 02308000 @NM00195 EQU TOTCTDFL 02309000 TOTCTIAC EQU TOTCTDFL 02310000 TOTCTHD EQU TOTCTDFL 02311000 TOTCTLST EQU TOTCTDFL 02312000 TOTCTGP EQU TOTCTDFL 02313000 @NM00194 EQU TOTCTDFL 02314000 TOTCTLIN EQU TOTCTDFL 02315000 TOTCTTRM EQU TOTCTDFL 02316000 TOTCTNAM EQU TOTCTENT+31 02317000 TOTCTRNL EQU TOTCTENT+23 02318000 TOTCTEND EQU TOTCTENT+23 02319000 TOTCTSWD EQU TOTCTFLG 02320000 @NM00193 EQU TOTCTFLG 02321000 TOTCTORN EQU TOTCTFLG 02322000 TOTCTASN EQU TOTCTFLG 02323000 TOTCTTLN EQU TOTCTENT+20 02324000 TOTCRTNT EQU TOTCTENT+16 02325000 TOTCTTNT EQU TOTCTENT+12 02326000 TOTCTLCB EQU TOTCTENT+9 02327000 TOTCTRLN EQU TOTCTENT+8 02328000 TOTCRSID EQU TOTCTENT+6 02329000 TOTCROFF EQU TOTCTENT+4 02330000 TOTCTOFF EQU TOTCTENT+2 02331000 TOTCTUCB EQU TOTCTENT 02332000 TOTSRLCB EQU TOTSRENT+4 02333000 @NM00192 EQU TOTSRENT+2 02334000 TOTSROFF EQU TOTSRENT 02335000 TOTMMSPC EQU TOTOLTCB+572 02336000 TOTBKRQD EQU TOTOLTCB+570 02337000 TOTBKASN EQU TOTOLTCB+568 02338000 TOTSVEND EQU TOTOLTCB+568 02339000 TOTWOSV4 EQU TOTOLTCB+564 02340000 TOTWOSV3 EQU TOTOLTCB+560 02341000 TOTWOSV2 EQU TOTOLTCB+556 02342000 TOTWOSV1 EQU TOTOLTCB+552 02343000 @NM00191 EQU TOTSAVE5+68 02344000 TOTOLTEP EQU TOTSAVE5+64 02345000 @NM00190 EQU TOTSAVE5+48 02346000 TOTOLTPT EQU TOTSAVE5+44 02347000 @NM00189 EQU TOTSAVE5 02348000 TOTSAVE4 EQU TOTOLTCB+336 02349000 TOTSAVE3 EQU TOTOLTCB+264 02350000 TOTSMGRT EQU TOTOLTCB+116 02351000 @NM00188 EQU $SCTTBLE+92 02352000 $EXT EQU $SCTTBLE+88 02353000 $PASS EQU $SCTTBLE+84 02354000 $TABLE EQU $SCTTBLE+80 02355000 $MSGIDAC EQU $SCTTBLE+78 02356000 @NM00187 EQU $SCTTBLE+72 02357000 @NM00186 EQU $SCTTBLE+71 02358000 $R249255 EQU $SCTTBLE+69 02359000 $R241248 EQU $SCTTBLE+68 02360000 $R233240 EQU $SCTTBLE+67 02361000 $R225232 EQU $SCTTBLE+66 02362000 $R217224 EQU $SCTTBLE+65 02363000 $R209216 EQU $SCTTBLE+64 02364000 $R201208 EQU $SCTTBLE+63 02365000 $R193200 EQU $SCTTBLE+62 02366000 $R185192 EQU $SCTTBLE+61 02367000 $R177184 EQU $SCTTBLE+60 02368000 $R169176 EQU $SCTTBLE+59 02369000 $R161168 EQU $SCTTBLE+58 02370000 $R153160 EQU $SCTTBLE+57 02371000 $R145152 EQU $SCTTBLE+56 02372000 $R137144 EQU $SCTTBLE+55 02373000 $R129136 EQU $SCTTBLE+54 02374000 $R121128 EQU $SCTTBLE+53 02375000 $R113120 EQU $SCTTBLE+52 02376000 $R105112 EQU $SCTTBLE+51 02377000 $R097104 EQU $SCTTBLE+50 02378000 $R089096 EQU $SCTTBLE+49 02379000 $R081088 EQU $SCTTBLE+48 02380000 $R073080 EQU $SCTTBLE+47 02381000 $R065072 EQU $SCTTBLE+46 02382000 $R057064 EQU $SCTTBLE+45 02383000 $R049056 EQU $SCTTBLE+44 02384000 $R041048 EQU $SCTTBLE+43 02385000 $R033040 EQU $SCTTBLE+42 02386000 $R025032 EQU $SCTTBLE+41 02387000 $R017024 EQU $SCTTBLE+40 02388000 $TOTFLG2 EQU $SCTTBLE+39 02389000 @NM00185 EQU $TOTFLG1 02390000 $TERMSEC EQU $TOTFLG1 02391000 $TDATBLK EQU $TOTFLG1 02392000 $LINESHR EQU $TOTFLG1 02393000 @NM00184 EQU $SCTTBLE+37 02394000 @NM00183 EQU $OLTFLGS 02395000 $LASTSEC EQU $OLTFLGS 02396000 $RETCODE EQU $OLTFLGS 02397000 $CONTCB EQU $OLTFLGS 02398000 $RETAIN EQU $OLTFLGS 02399000 $CLEANRT EQU $OLTFLGS 02400000 $MANINTV EQU $OLTFLGS 02401000 $OLTSIZE EQU $SCTTBLE+34 02402000 $QSCTMOD EQU $EXECFLG 02403000 $CTRLMOD EQU $EXECFLG 02404000 $CLEANUP EQU $EXECFLG 02405000 $LSTPDEV EQU $EXECFLG 02406000 $ERRCNT EQU $EXECFLG 02407000 $RTNSLCT EQU $EXECFLG 02408000 $MULTDEV EQU $EXECFLG 02409000 $CECCMIN EQU $EXECFLG 02410000 $RMSKCNT EQU $SCTTBLE+32 02411000 $CDS8T19 EQU $SCTTBLE+20 02412000 $PDEVDSC EQU $SCTTBLE+16 02413000 $PDEVADR EQU $SCTTBLE+12 02414000 $COMMCN EQU $CDSFLGS 02415000 $CUSTSYM EQU $CDSFLGS 02416000 $TWOCHSW EQU $CDSFLGS 02417000 $SYMNAME EQU $CDSFLGS 02418000 $EXTINTC EQU $CDSFLGS 02419000 $CEVOL EQU $CDSFLGS 02420000 $SHARED EQU $CDSFLGS 02421000 $FPM EQU $CDSFLGS 02422000 $LASTSUB EQU $PDEVFLG 02423000 $PATHDEF EQU $PDEVFLG 02424000 $TERMNDX EQU $PDEVFLG 02425000 @NM00182 EQU $PDEVFLG 02426000 $LASTDEV EQU $PDEVFLG 02427000 $TSSSYS1 EQU $PDEVFLG 02428000 $EXFILPT EQU $PDEVFLG 02429000 $FPMOLD EQU $PDEVFLG 02430000 $TSSSYM EQU $SCTTBLE+8 02431000 $SPARE1 EQU $SCTTBLE+7 02432000 $DRIVER EQU $SCTTBLE+6 02433000 $RT0916 EQU $SCTTBLE+5 02434000 $RT0108 EQU $SCTTBLE+4 02435000 $LOOPTST EQU $ERROPT 02436000 $LOOPERR EQU $ERROPT 02437000 $NERRPRT EQU $ERROPT 02438000 $NOCNTRL EQU $ERROPT 02439000 $ALTPRNT EQU $ERROPT 02440000 $CATERR EQU $ERROPT 02441000 $ASTERIK EQU $ERROPT 02442000 $TESTERR EQU $ERROPT 02443000 $FSTCOMM EQU $TESTOPT 02444000 $INDEFLP EQU $TESTOPT 02445000 $NOPRT EQU $TESTOPT 02446000 @NM00181 EQU $TESTOPT 02447000 $ERRLPCT EQU $SCTTBLE 02448000 LCBERADR EQU LCBXRADR+1 02449000 LCBPCIRC EQU LCBXRADR 02450000 LCBDCT3 EQU LCBXDCT+2 02451000 LCBDCT2 EQU LCBXDCT+1 02452000 LCBDCT1 EQU LCBXDCT 02453000 @NM00180 EQU LCBXFLAG 02454000 LCBERPND EQU LCBXFLAG 02455000 LCBSRCPF EQU LCBXFLAG 02456000 LCBGPCTV EQU LCBXFLAG 02457000 @NM00179 EQU LCBXFLAG 02458000 @NM00178 EQU LCBXFLAG 02459000 @NM00177 EQU LCBXFLAG 02460000 @NM00176 EQU LCBXFLAG 02461000 LCBCCW10 EQU LCBCPA+72 02462000 LCBCCW9 EQU LCBCPA+64 02463000 LCBCCW8 EQU LCBCPA+56 02464000 LCBCCW7 EQU LCBCPA+48 02465000 LCBCCW6 EQU LCBCPA+40 02466000 LCBCP EQU LCBQEBPL+4 02467000 LCBIOSB EQU LCBQEBPL+1 02468000 LCBSIO EQU LCBQEBPL 02469000 LCBCCW4 EQU LCBCPA+24 02470000 LCBCCW3 EQU LCBCPA+16 02471000 LCBCCW2 EQU LCBCPA+8 02472000 LCBCCW1 EQU LCBCPA 02473000 @NM00161 EQU LCBERCCW+16 02474000 LCBATL05 EQU LCBERCCW+8 02475000 @NM00160 EQU LCBERCCW 02476000 LCBCSWSV EQU LCBSAVSN+1 02477000 LCBSNSV EQU LCBSAVSN 02478000 LCBBFSNS EQU LCBRSPSV 02479000 LCBWAITC EQU LCBTPCD+5 02480000 LCBINPAK EQU LCBSTAT6 02481000 LCBMHBID EQU LCBSTAT6 02482000 @NM00159 EQU LCBSTAT6 02483000 LCBHDRPD EQU LCBSTAT6 02484000 LCBCHN EQU LCBSTAT6 02485000 LCBBFRSV EQU LCBTPCD+1 02486000 @NM00158 EQU LCBSTAT5 02487000 LCBSUSFG EQU LCBSTAT5 02488000 LCBLUS EQU LCBSTAT5 02489000 LCBLUNIT EQU LCBSTAT5 02490000 LCBPERM EQU LCBSTAT5 02491000 LCBNXCMD EQU LCBBFRW 02492000 @NM00157 EQU LCBSTAT7 02493000 LCBCDFD0 EQU LCBSTAT7 02494000 LCBOLT EQU LCBMSGFM 02495000 LCBEOT EQU LCBMSGFM 02496000 LCBENQ EQU LCBMSGFM 02497000 LCBTTD EQU LCBMSGFM 02498000 LCBRSTRT EQU LCBMSGFM 02499000 LCBVSTRT EQU LCBMSGFM 02500000 LCBACKI EQU LCBMSGFM 02501000 LCBNAK EQU LCBMSGFM 02502000 LCBTTCIN EQU IEDQLCB+90 02503000 @NM00156 EQU LCBRBCT2 02504000 LCBDCNT EQU LCBRBCT2 02505000 LCBRBCT1 EQU LCBERBCT 02506000 LCBERBCH EQU IEDQLCB+85 02507000 LCBCOMPL EQU LCBDLNKN 02508000 LCBPRCPG EQU LCBERBST 02509000 LCBERROR EQU LCBERBST 02510000 @NM00155 EQU LCBERBST 02511000 LCBINQ EQU LCBERBST 02512000 LCBRDERR EQU LCBERBST 02513000 LCBEOMSG EQU LCBERBST 02514000 LCBMSG EQU LCBERBST 02515000 LCBERBLK EQU IEDQLCB+81 02516000 LCBERBPY EQU IEDQLCB+80 02517000 LCBERBQB EQU LCBERB+1 02518000 LCBERBKY EQU LCBERB 02519000 LCBRECAD EQU IEDQLCB+73 02520000 @NM00154 EQU LCBTSTSW 02521000 @NM00153 EQU LCBTSTSW 02522000 @NM00152 EQU LCBTSTSW 02523000 @NM00151 EQU LCBTSTSW 02524000 @NM00150 EQU LCBTSTSW 02525000 @NM00149 EQU LCBTSTSW 02526000 @NM00148 EQU LCBTSTSW 02527000 LCBCONCT EQU LCBTSTSW 02528000 LCBRESP EQU LCBSTAT2 02529000 LCBBFRAV EQU LCBDIAL 02530000 LCBATTN EQU LCBSYNC 02531000 LCBNEGRP EQU LCBSTAT2 02532000 LCBSNDPR EQU LCBSTAT2 02533000 LCBCONNN EQU LCBBEOTN 02534000 LCBMSGNN EQU LCBSTAT2 02535000 LCBTRACE EQU LCBSTAT2 02536000 LCBSENDN EQU LCBSTAT1 02537000 LCBRECVN EQU LCBSTAT1 02538000 LCBFREEN EQU LCBSTAT1 02539000 LCBCONT EQU LCBSTAT1 02540000 LCBINITN EQU LCBSTAT1 02541000 LCBOCNI EQU LCBSTAT1 02542000 LCBOCWTN EQU LCBSTAT1 02543000 LCBRCLLN EQU LCBSTAT1 02544000 LCBRECOF EQU IEDQLCB+68 02545000 LCBRDBFR EQU LCBRCBFR 02546000 LCBUCBX EQU IEDQLCB+64 02547000 LCBTTBIN EQU LCBERRCT 02548000 LCBINTBF EQU LCBINCAM+1 02549000 @NM00147 EQU LCBINCAM 02550000 LCBGETMN EQU LCBINCAM 02551000 @NM00145 EQU LCBRESTR+1 02552000 LCBCMDSV EQU LCBRESTR 02553000 LCBPCILK EQU LCBDCBPT 02554000 LCBSTART EQU LCBIOBSN+16 02555000 LCBAP4OL EQU LCBSIOCC 02556000 LCBAP3OL EQU LCBSIOCC 02557000 LCBAP2OL EQU LCBSIOCC 02558000 LCBAP1OL EQU LCBSIOCC 02559000 LCBSIOC2 EQU LCBSIOCC 02560000 LCBSIOC1 EQU LCBSIOCC 02561000 @NM00144 EQU LCBSIOCC 02562000 LCBCSWRC EQU LCBCSW+5 02563000 LCBCSCHC EQU LCBCSWCS 02564000 LCBCSICC EQU LCBCSWCS 02565000 LCBCSCCC EQU LCBCSWCS 02566000 LCBCSCDC EQU LCBCSWCS 02567000 LCBCSPTC EQU LCBCSWCS 02568000 LCBCSPGC EQU LCBCSWCS 02569000 LCBCSIL EQU LCBCSWCS 02570000 LCBCSPCI EQU LCBCSWCS 02571000 LCBUSUE EQU LCBCSWUS 02572000 LCBUSUC EQU LCBCSWUS 02573000 LCBUSDE EQU LCBCSWUS 02574000 LCBUSCE EQU LCBCSWUS 02575000 LCBUSBSY EQU LCBCSWUS 02576000 LCBUSCUE EQU LCBCSWUS 02577000 LCBUSSM EQU LCBCSWUS 02578000 LCBUSAT EQU LCBCSWUS 02579000 LCBCSWCA EQU LCBCSW 02580000 LCBOBR EQU LCBFLAG3 02581000 LCBOBRRD EQU LCBFLAG3 02582000 LCBIOMSG EQU LCBFLAG3 02583000 LCBSOHC EQU LCBFLAG3 02584000 LCBRLAD EQU LCBFLAG3 02585000 LCBSOHR EQU LCBFLAG3 02586000 @NM00143 EQU LCBFLAG3 02587000 LCBECBPT EQU LCBIOBSN+4 02588000 LCBECBCC EQU LCBIOBSN+3 02589000 LCBSENS1 EQU LCBSNS+1 02590000 LCBABORT EQU LCBTMOUT 02591000 LCBNOTIN EQU LCBLOSDT 02592000 LCBOVRUN EQU LCBSENS0 02593000 LCBDATCK EQU LCBSENS0 02594000 LCBEQUCK EQU LCBSENS0 02595000 LCBBUSCK EQU LCBSENS0 02596000 LCBINTRQ EQU LCBSENS0 02597000 LCBCMDRJ EQU LCBSENS0 02598000 LCBFLAG2 EQU LCBIOBSN 02599000 @NM00142 EQU LCBFLAG1 02600000 LCBUNREL EQU LCBFLAG1 02601000 LCBEXCPN EQU LCBFLAG1 02602000 @NM00141 EQU LCBFLAG1 02603000 LCBERPIN EQU LCBFLAG1 02604000 @NM00140 EQU LCBFLAG1 02605000 LCBFSBFR EQU LCBMHA 02606000 LCBISZE EQU IEDQLCB+28 02607000 LCBLNENT EQU LCBSCBDA+1 02608000 @NM00139 EQU LCBSCBDA 02609000 LCBCPGMH EQU LCBSTAT4 02610000 LCBREAL EQU LCBPHASE 02611000 @NM00138 EQU LCBSTAT4 02612000 LCBACTRQ EQU LCBSTAT4 02613000 LCBIPLRQ EQU LCBSTAT4 02614000 LCBDACRQ EQU LCBSTAT4 02615000 LCBDMPRQ EQU LCBSTAT4 02616000 @NM00137 EQU LCBLKMDE 02617000 LCBLOCKI EQU LCBLKMDE 02618000 LCBLOCKR EQU LCBLKMDE 02619000 LCBHMFLG EQU LCBLKMDE 02620000 LCBBDFLG EQU LCBLKMDE 02621000 LCBLKDST EQU LCBINSRC 02622000 LCBABRTN EQU LCBCHAIN 02623000 LCBCTLMD EQU LCBTETEN 02624000 LCBBFRSZ EQU LCBCHAIN 02625000 LCBUREQN EQU LCBCHAIN 02626000 LCBNORTY EQU LCBCHAIN 02627000 LCBERMSG EQU LCBCHAIN 02628000 LCBEXCP EQU LCBCHAIN 02629000 LCBINVRQ EQU LCBSCRNN 02630000 LCB2741N EQU LCBTSOB 02631000 LCBINHBN EQU LCBTSOB 02632000 LCBCIRCD EQU LCBTSOB 02633000 LCBPREP EQU LCBTSOB 02634000 LCBSOPL EQU LCBTSOB 02635000 LCBSATRD EQU LCBTSOB 02636000 LCBTSBUF EQU LCBTSOB 02637000 LCBWRBRK EQU LCBTSOB 02638000 LCBTDL EQU IEDQLCB+18 02639000 LCBEOLTD EQU IEDQLCB+16 02640000 LCBRSLNK EQU IEDQLCB+13 02641000 LCBRSPRI EQU IEDQLCB+12 02642000 LCBSTCBA EQU IEDQLCB+9 02643000 LCBRSKEY EQU IEDQLCB+8 02644000 LCBLINK EQU LCBRCB+5 02645000 LCBPRI EQU LCBRCB+4 02646000 LCBQCBA EQU LCBRCB+1 02647000 LCBKEY EQU LCBRCB 02648000 @NM00136 EQU DCB+70 02649000 DCBXENDA EQU DCB+68 02650000 DCBCENDA EQU DCB+66 02651000 DCBSIOA EQU DCB+64 02652000 DCBPCIA EQU DCB+62 02653000 DCBEOEA EQU DCB+60 02654000 @NM00135 EQU DCB+53 02655000 DCBOPTCD EQU DCB+52 02656000 @NM00134 EQU DCB+49 02657000 DCBOFLGS EQU DCB+48 02658000 DCBDEBAD EQU OLTDEBA+1 02659000 DCBIFLGS EQU OLTDEBA 02660000 DCBMACFR EQU DCB+42 02661000 DCBTIOT EQU DCB+40 02662000 DCBEXLST EQU DCB+37 02663000 DCBRECFM EQU DCB+36 02664000 DCBEODAD EQU DCB+33 02665000 DCBBGFEK EQU DCB+32 02666000 DCBIOBAD EQU DCB+28 02667000 DCBDSORG EQU DCB+26 02668000 DCBBUFL EQU DCB+24 02669000 DCBBUFCB EQU DCB+21 02670000 DCBBUFNO EQU DCB+20 02671000 DCBDCDEP EQU DCB 02672000 IOBCSWS EQU IOB+37 02673000 @NM00133 EQU IOBFLG4 02674000 IOBCSWNV EQU IOBFLG4 02675000 IOBATNE EQU IOBFLG4 02676000 IOBPRI EQU IOBFLG4 02677000 IOBSEC EQU IOBFLG4 02678000 IOBCSWV EQU IOBFLG4 02679000 IOBATTN EQU IOBFLG4 02680000 IOBWORK EQU IOB+33 02681000 IOBUCBX EQU IOB+32 02682000 IOBERRCT EQU IOB+30 02683000 IOBINCR EQU IOB+28 02684000 IOBRSTAD EQU IOB+25 02685000 IOBREPM EQU IOB+24 02686000 IOBDCBAD EQU IOB+20 02687000 @NM00132 EQU IOBCCWAD+1 02688000 IOBSIOCD EQU IOBCCWAD 02689000 IOBCSW1 EQU IOBCSW+1 02690000 IOBFLG3 EQU IOBCSW 02691000 @NM00131 EQU IOBECBAD+1 02692000 IOBECBCD EQU IOBECBAD 02693000 IOBSNS EQU IOB+2 02694000 IOBFLG2 EQU IOB+1 02695000 IOBFLG1 EQU IOB 02696000 TECBADDR EQU IOBLOCKS+52 02697000 OLTSEQ EQU OLTSN+2 02698000 @NM00130 EQU OLTSN 02699000 @NM00129 EQU IOBLOCKS+47 02700000 @NM00128 EQU OLTFLAG2 02701000 OLTSIOAC EQU OLTFLAG2 02702000 OLTLV3IO EQU OLTFLAG2 02703000 OLTMVDAT EQU OLTFLAG2 02704000 OLTPTIMD EQU OLTFLAG2 02705000 OLTDTCNT EQU IOBLOCKS+44 02706000 OLTDTBUF EQU IOBLOCKS+40 02707000 OLTBUFA EQU IOBLOCKS+36 02708000 OLTCCWA EQU IOBLOCKS+32 02709000 OLTQCBA EQU IOBLOCKS+28 02710000 @NM00127 EQU IOBLOCKS+27 02711000 @NM00126 EQU OLTFLAG1 02712000 OLTUNRD EQU OLTFLAG1 02713000 @NM00125 EQU OLTFLAG1 02714000 OLTTNTAS EQU OLTFLAG1 02715000 OLTTDLN EQU IOBLOCKS+24 02716000 OLTRLTNT EQU IOBLOCKS+20 02717000 OLTTCTNT EQU IOBLOCKS+16 02718000 OLTLCBA EQU IOBLOCKS+13 02719000 OLTTCRLN EQU IOBLOCKS+12 02720000 OLTTRSID EQU IOBLOCKS+10 02721000 OLTTNOFF EQU IOBLOCKS+8 02722000 OLTUCBA EQU IOBLOCKS+4 02723000 ECBOLT EQU IOBLOCKS 02724000 @NM00124 EQU DCTBYTE5 02725000 DCTRQDIS EQU DCTBYTE5 02726000 DCTLSCR EQU DCTBYTE5 02727000 DCTL3270 EQU DCTBYTE5 02728000 DCTSCS EQU DCTBYTE5 02729000 DCTTSPRF EQU DCTBYTE4 02730000 DCTFMPRF EQU DCTBYTE4 02731000 DCT2760 EQU DCTBYTE3 02732000 DCTNOIDL EQU DCTBYTE3 02733000 DCTCONTN EQU DCTBYTE3 02734000 DCTBUFF EQU DCTBYTE3 02735000 DCTCHECK EQU DCTBYTE3 02736000 DCTENCTL EQU DCTBYTE3 02737000 DCTWTTA EQU DCTBYTE3 02738000 DCT1050 EQU DCTBYTE3 02739000 DCTAUDIO EQU DCTBYTE2 02740000 DCTLOCAL EQU DCTBYTE2 02741000 DCTCONT EQU DCTBYTE2 02742000 DCTXMIT EQU DCTBYTE2 02743000 DCTSTCTL EQU DCTBYTE2 02744000 DCTTWX EQU DCTBYTE2 02745000 DCTBRDST EQU DCTBYTE2 02746000 DCTBISYN EQU DCTBYTE2 02747000 DCTUMASK EQU DCTBYTE1 02748000 DCTSADEV EQU DCTBYTE1 02749000 DCT3270 EQU DCTBYTE1 02750000 DCT2741 EQU DCTBYTE1 02751000 DCT5041 EQU DCTBYTE1 02752000 DCTATTEN EQU DCTBYTE1 02753000 DCTBREAK EQU DCTBYTE1 02754000 DCTINHIB EQU DCTBYTE1 02755000 DCTBYTE0 EQU IEDDCT 02756000 BNDUSD EQU IEDBNDD+37 02757000 BNDUDFL EQU IEDBNDD+36 02758000 BNDPLUN EQU IEDBNDD+28 02759000 BNDPLUNL EQU IEDBNDD+27 02760000 BNDCRYP EQU IEDBNDD+26 02761000 @NM00123 EQU IEDBNDD+25 02762000 BNDSCSZE EQU BNDPSCH+9 02763000 BNDALTCL EQU BNDPSCH+8 02764000 BNDALTRW EQU BNDPSCH+7 02765000 BNDDFCL EQU BNDPSCH+6 02766000 BNDDFRW EQU BNDPSCH+5 02767000 @NM00122 EQU BNDPSCH 02768000 BNDLUTYP EQU BNDLUPFL 02769000 BNDPSF EQU BNDLUPFL 02770000 BNDPRPC EQU IEDBNDD+13 02771000 BNDPSPC EQU IEDBNDD+12 02772000 @NM00121 EQU BNDPMSRU 02773000 BNDNMAXP EQU BNDPMSRU 02774000 @NM00120 EQU BNDSMSRU 02775000 BNDNMAX EQU BNDSMSRU 02776000 BNDSRPC EQU IEDBNDD+9 02777000 BNDSSPC EQU IEDBNDD+8 02778000 BNDCRES EQU BNDCOMM2 02779000 @NM00119 EQU BNDCOMM2 02780000 @NM00118 EQU BNDCOMM2 02781000 @NM00117 EQU BNDCOMM2 02782000 BNDSPKR EQU BNDCOMM2 02783000 BNDRECOV EQU BNDCOMM2 02784000 BNDFMODE EQU BNDCOMM2 02785000 @NM00116 EQU BNDCOMM1 02786000 @NM00115 EQU BNDCOMM1 02787000 @NM00114 EQU BNDCOMM1 02788000 BNDALT EQU BNDCOMM1 02789000 BNDBTERM EQU BNDCOMM1 02790000 BNDBRACK EQU BNDCOMM1 02791000 BNDFMUSE EQU BNDCOMM1 02792000 @NM00113 EQU BNDCOMM1 02793000 BNDSEBI EQU BNDSECD 02794000 BNDSCMP EQU BNDSECD 02795000 @NM00112 EQU BNDSECD 02796000 @NM00111 EQU BNDSECD 02797000 BNDSEXC EQU BNDSECD 02798000 BNDSDEF EQU BNDSECD 02799000 BNDSRQM EQU BNDSECD 02800000 BNDSCHN EQU BNDSECD 02801000 BNDPEBI EQU BNDPRIM 02802000 BNDPCMP EQU BNDPRIM 02803000 @NM00110 EQU BNDPRIM 02804000 @NM00109 EQU BNDPRIM 02805000 BNDPEXC EQU BNDPRIM 02806000 BNDPDEF EQU BNDPRIM 02807000 BNDPRQM EQU BNDPRIM 02808000 BNDPCHN EQU BNDPRIM 02809000 BNDTSPRF EQU IEDBNDD+3 02810000 BNDFMPRF EQU IEDBNDD+2 02811000 BNDFORMT EQU IEDBNDD+1 02812000 BNDRUCDE EQU IEDBNDD 02813000 BINLDAT EQU BINBLD+1 02814000 BINLDATL EQU BINBLD 02815000 BINUDAT EQU BINBUD+1 02816000 BINUDATL EQU BINBUD 02817000 BINIMAGE EQU IEDBIN+10 02818000 BINLEN EQU IEDBIN+8 02819000 @NM00108 EQU BINNAME+1 02820000 BINENDCK EQU BINNAME 02821000 SAVTLLCB EQU IEDNSVTD+380 02822000 SAVTSCF0 EQU IEDNSVTD+376 02823000 SAVTLSNY EQU IEDNSVTD+372 02824000 SAVTLSZP EQU IEDNSVTD+368 02825000 SAVTOMSU EQU IEDNSVTD+364 02826000 SAVTGTSB EQU IEDNSVTD+360 02827000 SAVTHIBL EQU IEDNSVTD+356 02828000 SAVTHISY EQU IEDNSVTD+352 02829000 SAVTNAX2 EQU IEDNSVTD+348 02830000 SAVTCDRU EQU IEDNSVTD+344 02831000 SAVTPOLC EQU IEDNSVTD+342 02832000 SAVTPOLM EQU IEDNSVTD+340 02833000 SAVTPOLR EQU IEDNSVTD+336 02834000 SAVTCDRN EQU SAVTCDRV 02835000 SAVTPOLL EQU IEDNSVTD+328 02836000 SAVTPOLN EQU IEDNSVTD+326 02837000 @NM00107 EQU IEDNSVTD+325 02838000 @NM00106 EQU SAVTNETF 02839000 SAVTSDIS EQU SAVTNETF 02840000 SAVTROUT EQU SAVTNETF 02841000 SAVTNETW EQU SAVTNETF 02842000 SAVTDIAL EQU IEDNSVTD+320 02843000 SAVTRQUT EQU IEDNSVTD+316 02844000 SAVTBITN EQU IEDNSVTD+312 02845000 @NM00105 EQU SAVTCKQB+8 02846000 @NM00104 EQU SAVTCKEC+1 02847000 @NM00103 EQU SAVTCKCC 02848000 SAVTCKPO EQU SAVTCKCC 02849000 SAVTCKWA EQU SAVTCKCC 02850000 SAVTCKCH EQU SAVTCKTB+1 02851000 SAVTCKVT EQU SAVTCKTB 02852000 @NM00102 EQU IEDNSVTD+297 02853000 SAVTRDFG EQU SAVTRDRV+12 02854000 @NM00101 EQU SAVTRDRV+5 02855000 SAVTRDPY EQU SAVTRDRV+4 02856000 SAVTRDQB EQU SAVTRDRV+1 02857000 SAVTRDKY EQU SAVTRDRV 02858000 SAVTNID EQU IEDNSVTD+280 02859000 SAVTDVAS EQU IEDNSVTD+276 02860000 SAVTPLSZ EQU IEDNSVTD+274 02861000 @NM00100 EQU IEDNSVTD+273 02862000 SAVTSUBL EQU IEDNSVTD+272 02863000 @NM00099 EQU SAVTZELM+1 02864000 SAVTSUBM EQU SAVTZELM 02865000 SAVTMHDX EQU IEDNSVTD+268 02866000 SAVTNAT1 EQU IEDNSVTD+266 02867000 SAVTSH20 EQU IEDNSVTD+264 02868000 SAVTLCBS EQU IEDNSVTD+260 02869000 SAVTRNMP EQU IEDNSVTD+256 02870000 SAVTTNTX EQU IEDNSVTD+252 02871000 SAVTNAX EQU IEDNSVTD+248 02872000 SAVTSUBV EQU IEDNSVTD+247 02873000 SAVTSUBA EQU IEDNSVTD+246 02874000 SAVTSIBC EQU IEDNSVTD+244 02875000 SAVTBSM EQU IEDNSVTD+240 02876000 SAVTSCPT EQU SAVTTCPU 02877000 SAVTRQTG EQU IEDNSVTD+236 02878000 SAVTRQCH EQU IEDNSVTD+232 02879000 SAVTMAND EQU IEDNSVTD+228 02880000 SAVTSPLN EQU IEDNSVTD+224 02881000 SAVTNADL EQU IEDNSVTD+222 02882000 SAVTNATL EQU IEDNSVTD+220 02883000 SAVTMHTB EQU IEDNSVTD+216 02884000 SAVTSSMH EQU IEDNSVTD+212 02885000 SAVTQRS EQU IEDNSVTD+208 02886000 SAVTRQIN EQU IEDNSVTD+204 02887000 SAVTSAO EQU IEDNSVTD+196 02888000 SAVTSARI EQU IEDNSVTD+192 02889000 SAVTSAC EQU IEDNSVTD+188 02890000 SAVTSAI EQU IEDNSVTD+184 02891000 SAVTCSCI EQU IEDNSVTD+180 02892000 SAVTSSRP EQU IEDNSVTD+176 02893000 SAVTSSRQ EQU IEDNSVTD+172 02894000 SAVTSCLU EQU IEDNSVTD+168 02895000 SAVTXTRQ EQU IEDNSVTD+164 02896000 @NM00098 EQU IEDNSVTD+148 02897000 SAVTIPCQ EQU IEDNSVTD+144 02898000 @NM00097 EQU IEDNSVTD+136 02899000 SAVTXFMI EQU IEDNSVTD+132 02900000 @NM00096 EQU IEDNSVTD+124 02901000 SAVTXFMO EQU IEDNSVTD+120 02902000 @NM00095 EQU IEDNSVTD+116 02903000 SAVTSSSR EQU IEDNSVTD+112 02904000 SAVTSCPQ EQU IEDNSVTD+108 02905000 SAVTSLCB EQU IEDNSVTD+104 02906000 SAVTLUSR EQU IEDNSVTD+100 02907000 @NM00094 EQU SAVTLUSQ+8 02908000 SAVTLUSP EQU SAVTLUSQ+4 02909000 SAVTLUSB EQU SAVTLUSQ 02910000 @NM00093 EQU IEDNSVTD+84 02911000 SAVTSAT EQU IEDNSVTD+80 02912000 SAVTNAT EQU IEDNSVTD+76 02913000 SAVTCLUP EQU IEDNSVTD+72 02914000 SAVTPIUT EQU IEDNSVTD+68 02915000 SAVTRNTA EQU IEDNSVTD+64 02916000 SAVTDNIR EQU IEDNSVTD+60 02917000 SAVTCNIR EQU IEDNSVTD+56 02918000 SAVTFLDH EQU IEDNSVTD+52 02919000 SAVTSRTN EQU IEDNSVTD+48 02920000 SAVTSREQ EQU IEDNSVTD+44 02921000 SAVTFAIL EQU IEDNSVTD+42 02922000 SAVTSUSE EQU IEDNSVTD+40 02923000 SAVTSIB EQU IEDNSVTD+36 02924000 SAVTPRTN EQU IEDNSVTD+32 02925000 @NM00092 EQU IEDNSVTD+28 02926000 SAVTWH20 EQU IEDNSVTD+26 02927000 SAVTPWT EQU IEDNSVTD+24 02928000 SAVTPRTQ EQU IEDNSVTD+20 02929000 SAVTPREQ EQU IEDNSVTD+16 02930000 SAVTPH20 EQU IEDNSVTD+14 02931000 SAVTPUSE EQU IEDNSVTD+12 02932000 SAVTPLCB EQU IEDNSVTD+8 02933000 SAVTPOOL EQU IEDNSVTD+4 02934000 SAVTPRMT EQU SAVTDIAF 02935000 SAVTVIRT EQU SAVTDIAF 02936000 AVTSITS EQU IEDQAVTD+1264 02937000 AVTMSUHI EQU IEDQAVTD+1260 02938000 AVTSITU EQU IEDQAVTD+1256 02939000 AVTSITP EQU IEDQAVTD+1252 02940000 AVTPADDR EQU IEDQAVTD+1248 02941000 @NM00091 EQU IEDQAVTD+1246 02942000 AVTCPBNO EQU IEDQAVTD+1244 02943000 AVTHRESS EQU IEDQAVTD+1243 02944000 @NM00090 EQU IEDQAVTD+1242 02945000 @NM00089 EQU IEDQAVTD+1241 02946000 @NM00088 EQU IEDQAVTD+1240 02947000 @NM00087 EQU IEDQAVTD+1237 02948000 @NM00086 EQU IEDQAVTD+1236 02949000 AVTHRESE EQU @NM00085 02950000 AVTRADDR EQU IEDQAVTD+1228 02951000 AVTNADDR EQU IEDQAVTD+1224 02952000 AVTHRESN EQU IEDQAVTD+1220 02953000 AVTVOLRN EQU IEDQAVTD+1216 02954000 AVTTOTNN EQU IEDQAVTD+1212 02955000 AVTTRCYN EQU IEDQAVTD+1208 02956000 AVTRCTRN EQU IEDQAVTD+1204 02957000 AVTNOVON EQU IEDQAVTD+1200 02958000 AVTADEBN EQU IEDQAVTD+1196 02959000 AVTVOLRR EQU IEDQAVTD+1192 02960000 AVTTOTNR EQU IEDQAVTD+1188 02961000 AVTTRCYR EQU IEDQAVTD+1184 02962000 AVTRCTRR EQU IEDQAVTD+1180 02963000 AVTNOVOR EQU IEDQAVTD+1176 02964000 AVTADEBR EQU IEDQAVTD+1172 02965000 AVTLODPT EQU IEDQAVTD+1168 02966000 AVTIOBN EQU IEDQAVTD+1164 02967000 AVTIOBR EQU IEDQAVTD+1160 02968000 AVTCPBPT EQU IEDQAVTD+1156 02969000 AVTFCPB EQU IEDQAVTD+1152 02970000 @NM00084 EQU IEDQAVTD+1148 02971000 AVTINCPQ EQU IEDQAVTD+1144 02972000 @NM00083 EQU IEDQAVTD+1140 02973000 @NM00082 EQU IEDQAVTD+1137 02974000 @NM00081 EQU AVTBIT4 02975000 @NM00080 EQU AVTBIT4 02976000 @NM00079 EQU AVTBIT4 02977000 @NM00078 EQU AVTBIT4 02978000 @NM00077 EQU AVTBIT4 02979000 @NM00076 EQU AVTBIT4 02980000 @NM00075 EQU AVTBIT4 02981000 AVTRUFTN EQU AVTBIT4 02982000 @NM00074 EQU IEDQAVTD+1132 02983000 AVTNOBFQ EQU IEDQAVTD+1128 02984000 @NM00073 EQU IEDQAVTD+1124 02985000 AVTDKENQ EQU IEDQAVTD+1120 02986000 @NM00072 EQU IEDQAVTD+1116 02987000 AVTDKAPQ EQU IEDQAVTD+1112 02988000 AVTCOPY EQU IEDQAVTD+1108 02989000 AVTIA EQU IEDQAVTD+1104 02990000 AVTFL EQU IEDQAVTD+1100 02991000 @NM00071 EQU IEDQAVTD+1096 02992000 AVTNCPBQ EQU IEDQAVTD+1092 02993000 AVTTOTNC EQU IEDQAVTD+1088 02994000 AVTCMAX EQU IEDQAVTD+1084 02995000 AVTCMIN EQU IEDQAVTD+1080 02996000 AVTHM02 EQU IEDQAVTD+1076 02997000 AVTOPCIN EQU IEDQAVTD+1074 02998000 AVTOPMSK EQU IEDQAVTD+1068 02999000 AVTDDFT EQU IEDQAVTD+1064 03000000 AVTSTEAL EQU IEDQAVTD+1060 03001000 AVTOPTN EQU IEDQAVTD+1056 03002000 AVTDSKCT EQU IEDQAVTD+1054 03003000 AVTCKRST EQU IEDQAVTD+1053 03004000 AVTSTAN EQU AVTBIT3 03005000 AVTSTACN EQU AVTBIT3 03006000 AVTSTAIN EQU AVTBIT3 03007000 AVTSTAYN EQU AVTBIT3 03008000 AVTOLTBN EQU AVTBIT3 03009000 AVTTSAB EQU AVTBIT3 03010000 AVTRFULN EQU AVTBIT3 03011000 AVTRECVN EQU AVTBIT3 03012000 @NM00070 EQU AVTBIT2 03013000 @NM00069 EQU AVTBIT2 03014000 AVTOPEIN EQU AVTBIT2 03015000 AVTSTRTN EQU AVTBIT2 03016000 AVTTOPOL EQU AVTBIT2 03017000 AVTCOPYN EQU AVTBIT2 03018000 AVTREUSN EQU AVTBIT2 03019000 AVTEXTSC EQU AVTBIT2 03020000 AVTDISKN EQU AVTBIT1 03021000 AVTQUCKN EQU AVTBIT1 03022000 AVTCLOSN EQU AVTBIT1 03023000 AVTREADN EQU AVTBIT1 03024000 AVTDLAYN EQU AVTBIT1 03025000 AVTAQTAN EQU AVTBIT1 03026000 AVTTSON EQU AVTBIT1 03027000 AVTAPLKN EQU AVTBIT1 03028000 AVTDUMBR EQU IEDQAVTD+1048 03029000 AVTDLQX EQU IEDQAVTD+1046 03030000 AVTINTLV EQU IEDQAVTD+1044 03031000 AVTSMCNT EQU IEDQAVTD+1042 03032000 AVTAVFCT EQU IEDQAVTD+1040 03033000 AVTOPCON EQU IEDQAVTD+1038 03034000 AVTOPCNT EQU IEDQAVTD+1036 03035000 AVTLNCNT EQU IEDQAVTD+1034 03036000 AVTHA16 EQU IEDQAVTD+1030 03037000 AVTHA7 EQU IEDQAVTD+1028 03038000 AVTHA4 EQU IEDQAVTD+1026 03039000 AVTHA3 EQU IEDQAVTD+1024 03040000 AVTHA2 EQU IEDQAVTD+1022 03041000 AVTGETMS EQU IEDQAVTD+1021 03042000 @NM00068 EQU IEDQAVTD+1020 03043000 AVTGETMD EQU IEDQAVTD+1016 03044000 AVTGETMN EQU IEDQAVTD+1012 03045000 AVTCWTOT EQU IEDQAVTD+1008 03046000 AVTCWINT EQU IEDQAVTD+956 03047000 AVTDTRAP EQU IEDQAVTD+952 03048000 @NM00067 EQU IEDQAVTD+950 03049000 @NM00066 EQU AVTIOTR 03050000 AVTIOTRH EQU AVTIOTR 03051000 AVTIOTRE EQU AVTIOTR 03052000 @NM00065 EQU AVTSUBT 03053000 AVTSUBPT EQU AVTSUBT 03054000 AVTSUBON EQU AVTSUBT 03055000 AVTAFE30 EQU IEDQAVTD+944 03056000 AVTAFE20 EQU IEDQAVTD+940 03057000 AVTAFE10 EQU IEDQAVTD+936 03058000 AVTCWEC2 EQU IEDQAVTD+932 03059000 AVTCWPM2 EQU IEDQAVTD+928 03060000 AVTCWTS2 EQU IEDQAVTD+927 03061000 AVTCWTS1 EQU IEDQAVTD+926 03062000 AVTCWCLD EQU AVTCWFL2 03063000 AVTCWRAP EQU AVTCWFL2 03064000 @NM00064 EQU AVTCWFL2 03065000 @NM00063 EQU AVTCWFL2 03066000 @NM00062 EQU AVTCWFL2 03067000 @NM00061 EQU AVTCWFL2 03068000 @NM00060 EQU AVTCWFL2 03069000 AVTCWACT EQU AVTCWFL2 03070000 @NM00059 EQU AVTCWFL1 03071000 @NM00058 EQU AVTCWFL1 03072000 @NM00057 EQU AVTCWFL1 03073000 @NM00056 EQU AVTCWFL1 03074000 @NM00055 EQU AVTCWFL1 03075000 @NM00054 EQU AVTCWFL1 03076000 @NM00053 EQU AVTCWFL1 03077000 AVTCOMWN EQU AVTCWFL1 03078000 AVTCWEC1 EQU IEDQAVTD+920 03079000 AVTCWPM1 EQU IEDQAVTD+916 03080000 AVTCAREA EQU IEDQAVTD+912 03081000 AVTFZERO EQU IEDQAVTD+908 03082000 AVTCADDR EQU IEDQAVTD+904 03083000 AVTCOREC EQU IEDQAVTD+900 03084000 @NM00052 EQU IEDQAVTD+892 03085000 AVTCPBCB EQU IEDQAVTD+888 03086000 @NM00051 EQU IEDQAVTD+880 03087000 AVTDSIOB EQU IEDQAVTD+876 03088000 @NM00050 EQU IEDQAVTD+868 03089000 AVTCPRMB EQU IEDQAVTD+864 03090000 @NM00049 EQU IEDQAVTD+856 03091000 AVTCLOSB EQU IEDQAVTD+852 03092000 @NM00048 EQU IEDQAVTD+844 03093000 AVTACTIB EQU IEDQAVTD+840 03094000 @NM00047 EQU IEDQAVTD+836 03095000 AVTOLTEB EQU IEDQAVTD+832 03096000 AVTOLTCH EQU AVTOLTQB+1 03097000 AVTOLTVT EQU AVTOLTQB 03098000 @NM00046 EQU AVTOPCQB+8 03099000 @NM00045 EQU AVTOPCEC+1 03100000 @NM00044 EQU AVTOPCCC 03101000 AVTOPCPO EQU AVTOPCCC 03102000 AVTOPCWA EQU AVTOPCCC 03103000 AVTOPCCH EQU AVTOPCOB+1 03104000 AVTOPCVT EQU AVTOPCOB 03105000 @NM00043 EQU AVTCKPQB+9 03106000 AVTCKPTS EQU AVTCKPQB+8 03107000 @NM00042 EQU AVTCKPEC+1 03108000 @NM00041 EQU AVTCKPCC 03109000 AVTCKPPO EQU AVTCKPCC 03110000 AVTCKPWA EQU AVTCKPCC 03111000 AVTCKPCH EQU AVTCKPTB+1 03112000 AVTCKPVT EQU AVTCKPTB 03113000 @NM00040 EQU IEDQAVTD+796 03114000 AVTBFRTB EQU IEDQAVTD+792 03115000 @NM00039 EQU IEDQAVTD+788 03116000 AVTSELCH EQU IEDQAVTD+785 03117000 AVTBFRTN EQU AVTBFRFG 03118000 AVTBFREB EQU IEDQAVTD+780 03119000 AVTTIMQ EQU IEDQAVTD+776 03120000 @NM00038 EQU IEDQAVTD+772 03121000 AVTIMQPS EQU IEDQAVTD+768 03122000 AVTINOUT EQU IEDQAVTD+766 03123000 AVTREFTM EQU IEDQAVTD+764 03124000 @NM00037 EQU IEDQAVTD+752 03125000 AVTDELYB EQU IEDQAVTD+748 03126000 AVTOCQPT EQU IEDQAVTD+744 03127000 AVTTSOPT EQU IEDQAVTD+740 03128000 AVTSUPPT EQU IEDQAVTD+736 03129000 AVTCBQCB EQU IEDQAVTD+732 03130000 AVTMSGS EQU IEDQAVTD+729 03131000 @NM00036 EQU AVTSYSER 03132000 @NM00035 EQU AVTSYSER 03133000 @NM00034 EQU AVTSYSER 03134000 @NM00033 EQU AVTSYSER 03135000 @NM00032 EQU AVTSYSER 03136000 @NM00031 EQU AVTSYSER 03137000 AVTCMAXN EQU AVTSYSER 03138000 AVTCMINN EQU AVTSYSER 03139000 AVT2260L EQU IEDQAVTD+724 03140000 AVTABEPL EQU AVTADBUF 03141000 AVTHFF EQU AVTCLRHI+2 03142000 @NM00030 EQU AVTCLRHI 03143000 AVTCCLNK EQU AVTCRELE+5 03144000 AVTCCPRI EQU AVTCRELE+4 03145000 AVTCCQCB EQU AVTCCELE+1 03146000 AVTCCKEY EQU AVTCCELE 03147000 AVTDELAD EQU IEDQAVTD+704 03148000 AVTDELEM EQU IEDQAVTD+700 03149000 AVTBSX EQU AVTCKLNK 03150000 AVTOPETR EQU AVTHG01 03151000 @NM00029 EQU AVTCKBYT 03152000 AVTCKONQ EQU AVTCKBYT 03153000 @NM00028 EQU AVTCKBYT 03154000 @NM00027 EQU AVTCKBYT 03155000 @NM00026 EQU AVTCKBYT 03156000 @NM00025 EQU AVTCKBYT 03157000 @NM00024 EQU AVTCKBYT 03158000 @NM00023 EQU AVTCKBYT 03159000 AVTOPERT EQU IEDQAVTD+690 03160000 AVTOPXCL EQU IEDQAVTD+688 03161000 AVTOPERL EQU IEDQAVTD+687 03162000 @NM00022 EQU IEDQAVTD+686 03163000 AVTCKTIM EQU IEDQAVTD+684 03164000 AVTCKELV EQU IEDQAVTD+682 03165000 AVTCPRCD EQU IEDQAVTD+681 03166000 AVTWARMN EQU AVTCKELF 03167000 AVTCRTLN EQU AVTCKELF 03168000 AVTCPIPN EQU AVTCKELF 03169000 AVTCCLCN EQU AVTCKELF 03170000 AVTCINCN EQU AVTCKELF 03171000 @NM00021 EQU AVTCKELF 03172000 AVTCMCPN EQU AVTCKELF 03173000 AVTNQBCK EQU AVTCKELF 03174000 AVTCKQAD EQU IEDQAVTD+677 03175000 AVTSCBSZ EQU IEDQAVTD+676 03176000 @NM00020 EQU IEDQAVTD+672 03177000 AVTCKELE EQU IEDQAVTD+668 03178000 @NM00019 EQU AVTCKPEL+8 03179000 AVTCKRLK EQU AVTCKPEL+5 03180000 AVTCKRPR EQU AVTCKPEL+4 03181000 AVTCKRMQ EQU AVTCKRMV+1 03182000 AVTCKRKY EQU AVTCKRMV 03183000 AVTHK EQU IEDQAVTD+648 03184000 AVTHI EQU IEDQAVTD+644 03185000 AVTIOT EQU IEDQAVTD+640 03186000 AVTNX EQU IEDQAVTD+636 03187000 AVTTONE EQU IEDQAVTD+632 03188000 AVTA3TL EQU IEDQAVTD+628 03189000 AVTDMECB EQU IEDQAVTD+624 03190000 AVTABEND EQU IEDQAVTD+618 03191000 AVTPLCBN EQU IEDQAVTD+616 03192000 @NM00018 EQU AVTSAVTP+1 03193000 @NM00017 EQU AVTSAVTF 03194000 AVTSNA EQU AVTSAVTF 03195000 AVTONSNA EQU AVTSAVTF 03196000 AVTVTMCP EQU AVTSAVTF 03197000 @NM00016 EQU IEDQAVTD+608 03198000 AVTCMBSS EQU IEDQAVTD+604 03199000 AVTRCV EQU IEDQAVTD+600 03200000 AVTSEND EQU IEDQAVTD+596 03201000 AVTCSCH EQU IEDQAVTD+592 03202000 AVTQ1 EQU IEDQAVTD+588 03203000 AVTE7 EQU IEDQAVTD+584 03204000 AVTHB EQU IEDQAVTD+580 03205000 AVTR1 EQU IEDQAVTD+576 03206000 AVTBZ EQU IEDQAVTD+572 03207000 AVTEZ EQU IEDQAVTD+568 03208000 AVTEC EQU IEDQAVTD+564 03209000 AVTEW EQU IEDQAVTD+560 03210000 AVTNDIAL EQU AVTSCOPT 03211000 AVTN2741 EQU AVTSCOPT 03212000 AVTCONCO EQU AVTSCOPT 03213000 AVTCONC EQU AVTSCOPT 03214000 AVTCMBUF EQU AVTSCOPT 03215000 AVTAPDMP EQU AVTSCOPT 03216000 @NM00015 EQU AVTSCOPT 03217000 AVTHA EQU AVTDISP 03218000 AVTEA EQU IEDQAVTD+548 03219000 AVTAX EQU IEDQAVTD+544 03220000 AVTA3 EQU IEDQAVTD+540 03221000 AVTGD EQU IEDQAVTD+536 03222000 AVTAL EQU IEDQAVTD+532 03223000 AVTOLTST EQU AVTHG02 03224000 AVTE8 EQU IEDQAVTD+524 03225000 AVTUI EQU IEDQAVTD+520 03226000 AVTCOMPT EQU IEDQAVTD+516 03227000 AVTCRSRF EQU IEDQAVTD+512 03228000 @NM00014 EQU IEDQAVTD+508 03229000 AVTKA02 EQU IEDQAVTD+504 03230000 AVTOPTPT EQU IEDQAVTD+500 03231000 AVTPCBPT EQU IEDQAVTD+496 03232000 @NM00013 EQU AVTECB1 03233000 AVTCOMP EQU AVTECB1 03234000 @NM00012 EQU AVTECB1 03235000 AVTOPECA EQU IEDQAVTD+488 03236000 AVTOLECA EQU IEDQAVTD+484 03237000 AVTCKECA EQU IEDQAVTD+480 03238000 AVTCWECA EQU IEDQAVTD+476 03239000 AVTCWTCB EQU IEDQAVTD+472 03240000 AVTOLTCB EQU IEDQAVTD+468 03241000 AVTOCTCB EQU IEDQAVTD+464 03242000 AVTCKTCB EQU IEDQAVTD+460 03243000 AVTAS EQU IEDQAVTD+456 03244000 AVTNOLBF EQU IEDQAVTD+454 03245000 AVTNCKPR EQU IEDQAVTD+453 03246000 AVTCIB EQU IEDQAVTD+452 03247000 AVTSPLPT EQU IEDQAVTD+448 03248000 AVTMVBFR EQU IEDQAVTD+444 03249000 AVTSBTA EQU IEDQAVTD+440 03250000 AVTRARTN EQU IEDQAVTD+436 03251000 AVTBSCAN EQU IEDQAVTD+432 03252000 AVTRDYA EQU IEDQAVTD+428 03253000 AVTDISTR EQU IEDQAVTD+420 03254000 AVTPARM3 EQU IEDQAVTD+416 03255000 @NM00011 EQU AVTPKF 03256000 @NM00010 EQU AVTPKF 03257000 @NM00009 EQU AVTPKF 03258000 AVTFTCHF EQU AVTPKF 03259000 @NM00008 EQU AVTPKF 03260000 @NM00007 EQU AVTPKF 03261000 @NM00006 EQU AVTPKF 03262000 @NM00005 EQU AVTPKF 03263000 AVTPARM EQU IEDQAVTD+408 03264000 AVTEXS2A EQU IEDQAVTD+402 03265000 AVTEXA2S EQU IEDQAVTD+396 03266000 AVTOCGET EQU IEDQAVTD+392 03267000 AVTCKAVT EQU @NM00003+1 03268000 @NM00004 EQU AVTCKFLG 03269000 AVTCKHLT EQU AVTCKFLG 03270000 AVTCKREQ EQU AVTCKFLG 03271000 AVTCKENV EQU AVTCKFLG 03272000 AVTCKNAC EQU AVTCKFLG 03273000 AVTCKTAC EQU AVTCKFLG 03274000 @NM00002 EQU IEDQAVTD+384 03275000 AVTREADD EQU IEDQAVTD+380 03276000 AVTREADY EQU IEDQAVTD+376 03277000 AVTRACE EQU IEDQAVTD+372 03278000 AVTTCB EQU IEDQAVTD+368 03279000 AVTPASWD EQU IEDQAVTD+360 03280000 AVTCTLCH EQU IEDQAVTD+352 03281000 AVTDOUBL EQU IEDQAVTD+344 03282000 AVTDOUBX EQU IEDQAVTD+336 03283000 AVTDPARM EQU IEDQAVTD+332 03284000 AVTDLQ EQU AVTSAVEX+32 03285000 @NM00001 EQU AVTSAVEX 03286000 AVTSAVE4 EQU IEDQAVTD+216 03287000 AVTSAVE3 EQU IEDQAVTD+144 03288000 AVTSAVE2 EQU IEDQAVTD+72 03289000 AVTSAVE1 EQU IEDQAVTD 03290000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03291000 @RF00391 EQU @RC00387 03292000 @RC00394 EQU @RC00387 03293000 @RC00476 EQU @RC00471 03294000 @PB00002 EQU @EL00001 03295000 @RC00608 EQU @PB00002 03296000 @ENDDATA EQU * 03297000 END IEDQW25,(C'PLS0036',0701,78090) 03298000