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