TITLE 'IEDSAI, INITIAL CMD PROCESSOR *00001000 ' 00002000 IEDSAI CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 DC A(0) QCB 00005000 DC A(0) 00006000 DC X'06' STCB 00007000 DC AL3(*-1) 00008000 USING *,RBASE 00009000 LR RBASE,RLINK 00010000 IEDSAI IEDHJN START,HJN 00011000 * RPRF=RPARM; /* ESTABLISH PRF ADDRESSABILITY */ 00012000 LR RPRF,RPARM 0539 00013000 * PRFLINK=0; /* ONLY ONE PIU @YM08077*/ 00014000 SLR @10,@10 0540 00015000 STCM @10,7,PRFLINK(IEDQPPTR) 0540 00016000 * RPIU=ADDR(PRFPIUO)+PRFPIUO; /* ESTABLISH PIU ADDRESSABILITY */ 00017000 LA RPIU,PRFPIUO(,IEDQPPTR) 0541 00018000 SLR @10,@10 0541 00019000 IC @10,PRFPIUO(,IEDQPPTR) 0541 00020000 ALR RPIU,@10 0541 00021000 * RPARM=TTHOAF; /* TNT INDEX TO CONVERT TO TRM */ 00022000 SLR RPARM,RPARM 0542 00023000 ICM RPARM,3,TTHOAF(RPIU) 0542 00024000 * CALL IEDQTNT; /* CONVERT TTCIN TO TRM ADDR */ 00025000 L @15,AVTRNMPT(,IEDQAPTR) 0543 00026000 BALR @14,@15 0543 00027000 * RTRM=RPARM-LENGTH(IEDNTRM); /* ESTABLISH TRM ADDRESSABILITY */ 00028000 LA @10,14 0544 00029000 LR RTRM,RPARM 0544 00030000 SLR RTRM,@10 0544 00031000 * QCBPTR=TRMDESTQ; /* QCB ADDRESS @YM06505*/ 00032000 SLR @09,@09 0545 00033000 ICM @09,7,TRMDESTQ(RTRM) 0545 00034000 ST @09,QCBPTR 0545 00035000 * RESPSAVE=BDUSYRSP&RSPMASK; /* SAVE BDU RESPONSE W/O PHASE */ 00036000 ALR @10,RPIU 0546 00037000 MVC RESPSAVE(1),BDUSYRSP(@10) 0546 00038000 NI RESPSAVE,X'9F' 0546 00039000 * IF QCBPLCBN=ON THEN /* ESTABLISH PLCB ADDRESSABILITY */ 00040000 L @10,IEDQQPTR 0547 00041000 SL @10,@CF00044 0547 00042000 TM QCBPLCBN(@10),B'10000000' 0547 00043000 BNO @RF00547 0547 00044000 * RLCB=QCBPLCBA; 0548 00045000 L RLCB,QCBPLCBA-1(,@10) 0548 00046000 LA RLCB,0(,RLCB) 0548 00047000 * RETCODE=INITVAL; /* INITILIZE RET CODE */ 00048000 @RF00547 MVI RETCODE,X'FF' 0549 00049000 * 0550 00050000 * /*****************************************************************/ 00051000 * /* */ 00052000 * /* START OF LOGIC */ 00053000 * /* */ 00054000 * /*****************************************************************/ 00055000 * 0550 00056000 * IF BDUERROR=ON THEN /* IF ERROR INPUT */ 00057000 TM BDUERROR+14(RPIU),B'10000000' 0550 00058000 BNO @RF00550 0550 00059000 * CALL ERRLOCK; 0551 00060000 BAL @14,ERRLOCK 0551 00061000 * ELSE 0552 00062000 * ; /* @YM07645*/ 00063000 @RF00550 DS 0H 0553 00064000 * IF(BDUCMND=CD0READ| /* IF THIS IS READ OR */ 00065000 * BDUCMND=CD0INV) THEN /* INVITE INPUT THEN DO */ 00066000 LA @10,14 0553 00067000 ALR @10,RPIU 0553 00068000 CLI BDUCMND(@10),X'01' 0553 00069000 BE @RT00553 0553 00070000 CLI BDUCMND(@10),X'05' 0553 00071000 BNE @RF00553 0553 00072000 @RT00553 DS 0H 0554 00073000 * CALL RDPRPROC; /* READ/INVITE PROCESS */ 00074000 BAL @14,RDPRPROC 0554 00075000 * ELSE 0555 00076000 * IF BDUCMND=CD0CTRL THEN /* IF IT IS A CONTROL CMD */ 00077000 B @RC00553 0555 00078000 @RF00553 CLI BDUCMND+14(RPIU),X'08' 0555 00079000 BNE @RF00555 0555 00080000 * CALL CONTROL; /* DO CONTROL PROCESS */ 00081000 BAL @14,CONTROL 0556 00082000 * ELSE 0557 00083000 * IF BDUCMND=CD0UNSIP THEN /* IF INPUT IS UNSOLICITED THEN */ 00084000 B @RC00555 0557 00085000 @RF00555 CLI BDUCMND+14(RPIU),X'77' 0557 00086000 BNE @RF00557 0557 00087000 * CALL UNSIP; /* DO UNSIP PROCESS */ 00088000 BAL @14,UNSIP 0558 00089000 * ELSE 0559 00090000 * IF BDUCMND=CD0CONT& /* IF THIS IS A CONTACT RESPONSE */ 00091000 * TRMDIAL=ON THEN /* FROM A DIAL TERMINAL */ 00092000 B @RC00557 0559 00093000 @RF00557 CLI BDUCMND+14(RPIU),X'06' 0559 00094000 BNE @RF00559 0559 00095000 TM TRMDIAL(RTRM),B'00001000' 0559 00096000 BNO @RF00559 0559 00097000 * CALL WAITCHN; /* THIS ROUTINE PUTS INPUT ON 0560 00098000 * WAIT CHAIN AND REQUESTS A 0560 00099000 * PLCB. THE RETURN CODE IS SET 00100000 * FOR IEDSARI IF THE PLCB WAS 0560 00101000 * OBTAINED, ELSE IT IS SET FOR 00102000 * DSPDISP */ 00103000 BAL @14,WAITCHN 0560 00104000 * ELSE 0561 00105000 * RETCODE=SAC; /* ALL ELSE GOTO IEDSAC */ 00106000 B @RC00559 0561 00107000 @RF00559 MVI RETCODE,X'30' 0561 00108000 * 0562 00109000 * /*****************************************************************/ 00110000 * /* */ 00111000 * /* EXIT PROCESSING */ 00112000 * /* */ 00113000 * /*****************************************************************/ 00114000 * 0562 00115000 * RFY 0562 00116000 * (RSTCB) RSTD; 0562 00117000 @RC00559 DS 0H 0562 00118000 @RC00557 DS 0H 0562 00119000 @RC00555 DS 0H 0562 00120000 @RC00553 DS 0H 0563 00121000 * IF RETCODE=SAC THEN /* CONTROL IS PASSED TO IEDSAC 0563 00122000 * FOR */ 00123000 CLI RETCODE,X'30' 0563 00124000 BNE @RF00563 0563 00125000 * DO; /* PROCESSING ALL COMMANDS EXCEPT 00126000 * READ */ 00127000 * RQCB=SAVTSAC; /* AND INVITE. */ 00128000 L @10,AVTSAVTP(,IEDQAPTR) 0565 00129000 L RQCB,SAVTSAC(,@10) 0565 00130000 * RPARM=RPRF; /* PASS BUFFER ADDRESS TO IEDSAC */ 00131000 LR RPARM,RPRF 0566 00132000 * RSTCB=RQCB->QCBSTCHN; /* STCB ADDR FROM SAC QCB 0567 00133000 * @YM06906*/ 00134000 L RSTCB,QCBSTCHN-1(,RQCB) 0567 00135000 LA RSTCB,0(,RSTCB) 0567 00136000 * CALL DSPBYPAS; 0568 00137000 LA @15,DSPBYPAS(,RDISP) 0568 00138000 BALR @14,@15 0568 00139000 * END; 0569 00140000 * ELSE 0570 00141000 * IF RETCODE=SARI THEN /* PASS CONTROL TO IEDSARI FOR */ 00142000 B @RC00563 0570 00143000 @RF00563 CLI RETCODE,X'40' 0570 00144000 BNE @RF00570 0570 00145000 * DO; /* PROCESSING READ, INVITE AND 0571 00146000 * DIAL CONTACT COMMANDS */ 00147000 * RPARM=RLCB; /* PASS PLCB ADDRESS TO IEDSARI */ 00148000 LR RPARM,RLCB 0572 00149000 * RQCB=SAVTSARI; 0573 00150000 L @10,AVTSAVTP(,IEDQAPTR) 0573 00151000 L RQCB,SAVTSARI(,@10) 0573 00152000 * RSTCB=RQCB->QCBSTCHN; /* STCB ADDR FROM SARI QCB 0574 00153000 * @YM06906*/ 00154000 L RSTCB,QCBSTCHN-1(,RQCB) 0574 00155000 LA RSTCB,0(,RSTCB) 0574 00156000 * CALL DSPBYPAS; 0575 00157000 LA @15,DSPBYPAS(,RDISP) 0575 00158000 BALR @14,@15 0575 00159000 * END; 0576 00160000 * ELSE 0577 00161000 * CALL DSPDISP; /* END OF PROCESSING */ 00162000 B @RC00570 0577 00163000 @RF00570 LA @15,DSPDISP(,RDISP) 0577 00164000 BALR @14,@15 0577 00165000 * RFY 0578 00166000 * RSTCB UNRSTD; 0578 00167000 * 0578 00168000 * /*****************************************************************/ 00169000 * /* */ 00170000 * /* END OF LOGIC */ 00171000 * /* */ 00172000 * /*****************************************************************/ 00173000 * 0579 00174000 * 0579 00175000 * /*****************************************************************/ 00176000 * /* */ 00177000 * /* BSCSTATS: IF INMSG/OUTMSG PROCESSING IN PROGRESS POST ERB TO */ 00178000 * /* BD. ELSE, IF A BUFFER IS WAITING (SEE IEDSAC WRITE PROCESSING)*/ 00179000 * /* POST BUF TO PATH CONTROL OUTBOUND. CALL BSC STATUS RECORDING */ 00180000 * /* ROUTINE */ 00181000 * /* */ 00182000 * /*****************************************************************/ 00183000 * 0579 00184000 *BSCSTATS: 0579 00185000 * PROC OPTIONS(RETREG,SAVE(14)); 0579 00186000 @EL00001 DS 0H 0579 00187000 @EF00001 DS 0H 0579 00188000 @ER00001 BR @14 0579 00189000 BSCSTATS ST @14,@SA00002 0579 00190000 * TRMSTPND=OFF; /* TURN OFF STATUS PENDING */ 00191000 NI TRMSTPND(RTRM),B'01111111' 0580 00192000 * IF QCBPLCBN=ON THEN /* IF PLCB ASSIGNED */ 00193000 L @10,IEDQQPTR 0581 00194000 AL @10,@CF02301 0581 00195000 TM QCBPLCBN-4(@10),B'10000000' 0581 00196000 BNO @RF00581 0581 00197000 * DO; 0582 00198000 * IF LCBMSGNN=ON THEN /* IF A MSGGEN IS OUT */ 00199000 TM LCBMSGNN(IEDQLPTR),B'01000000' 0583 00200000 BNO @RF00583 0583 00201000 * DO; 0584 00202000 * LCBMSGNN=OFF; /* INDICATE NO MSGGEN OUT */ 00203000 NI LCBMSGNN(IEDQLPTR),B'10111111' 0585 00204000 * PRFPRI='E0'X; /* SET PRIORITY */ 00205000 MVI PRFPRI(IEDQPPTR),X'E0' 0586 00206000 * LCBERBQB=AVTMSGS->BDQCB;/* BD'S QCB ADDR */ 00207000 L @10,AVTMSGS-1(,IEDQAPTR) 0587 00208000 MVC LCBERBQB(3,IEDQLPTR),BDQCB+1(@10) 0587 00209000 * RPARM=ADDR(LCBERB); /* ERB IS POSTED ELEMENT */ 00210000 LA RPARM,LCBERB(,IEDQLPTR) 0588 00211000 * CALL DSPPOSTR; /* POST ERB TO IEDQBD */ 00212000 LA @15,DSPPOSTR(,RDISP) 0589 00213000 BALR @14,@15 0589 00214000 * END; 0590 00215000 * ELSE 0591 00216000 * DO; 0591 00217000 B @RC00583 0591 00218000 @RF00583 DS 0H 0592 00219000 * IF LCBBFRW^=0 THEN /* IF THERE IS A BFR WAITING */ 00220000 L @10,LCBBFRW-1(,IEDQLPTR) 0592 00221000 LA @10,0(,@10) 0592 00222000 LTR @10,@10 0592 00223000 BZ @RF00592 0592 00224000 * DO; 0593 00225000 * RPARM=LCBBFRW; /* SET PTR TO WAITING BFR */ 00226000 LR RPARM,@10 0594 00227000 * RPARM->PRFPRI=PRIPCOUT;/* SET POST PRIORITY @YM05747*/ 00228000 MVI PRFPRI(RPARM),X'E4' 0595 00229000 * RPARM->PRFQCBA=ADDR(IEDPCOUT);/* QCB ADDRESS @YM05747*/ 00230000 L @10,@CV02169 0596 00231000 STCM @10,7,PRFQCBA(RPARM) 0596 00232000 * CALL DSPPOSTR; /* POST WAIT BUFFER TO PATH 0597 00233000 * CONTROL OUT */ 00234000 LA @15,DSPPOSTR(,RDISP) 0597 00235000 BALR @14,@15 0597 00236000 * LCBBFRW=0; /* INDICATE NO BFR WAITS */ 00237000 SLR @10,@10 0598 00238000 STCM @10,7,LCBBFRW(IEDQLPTR) 0598 00239000 * END; 0599 00240000 * END; 0600 00241000 @RF00592 DS 0H 0601 00242000 * END; 0601 00243000 @RC00583 DS 0H 0602 00244000 * IF BDUPHASE^=RSP00& /* IS THIS AN SOH% */ 00245000 * (BDURESP=RSPE0A| /* BSC STATUS */ 00246000 * BDURESP=RSPN05) THEN /* MESSAGE */ 00247000 @RF00581 LA @10,14 0602 00248000 ALR @10,RPIU 0602 00249000 TM BDUPHASE(@10),B'01100000' 0602 00250000 BZ @RF00602 0602 00251000 TM BDURESP(@10),B'00001010' 0602 00252000 BNO @GL00004 0602 00253000 TM BDURESP(@10),B'00010101' 0602 00254000 BZ @RT00602 0602 00255000 @GL00004 TM BDURESP+14(RPIU),B'00000101' 0602 00256000 BNO @RF00602 0602 00257000 TM BDURESP+14(RPIU),B'00011010' 0602 00258000 BNZ @RF00602 0602 00259000 @RT00602 DS 0H 0603 00260000 * DO; 0603 00261000 * IF STATTYPE=REM3270 THEN /* IS THIS REMOTE 3270 STATUS */ 00262000 LA @10,20 0604 00263000 ALR @10,RPIU 0604 00264000 CLI STATTYPE(@10),C'R' 0604 00265000 BNE @RF00604 0604 00266000 * DO; /* YES, IT IS REMOTE 3270 STATUS */ 00267000 * IF(SSCR=ON| /* CMD REJECT */ 00268000 * SSIR=ON| /* INTERVENTION REQUIRED */ 00269000 * SSEC=ON| /* EQUIP CHK */ 00270000 * SSDC=ON| /* DATA CHECK */ 00271000 * SSCC=ON) THEN /* CNTRL CHK */ 00272000 TM SSCR(@10),B'00111110' 0606 00273000 BZ @RF00606 0606 00274000 * CALL RCRDMDR; /* LOG THIS STATUS */ 00275000 BAL @14,RCRDMDR 0607 00276000 * ELSE 0608 00277000 * IF(SSDB=ON| /* IF DEVICE BUSY OR */ 00278000 * SSDE=ON) THEN /* DEVICE END THEN */ 00279000 B @RC00606 0608 00280000 @RF00606 TM SSDB+20(RPIU),B'00001010' 0608 00281000 BNZ @RT00608 0608 00282000 * ; /* DO NOTHING */ 00283000 * ELSE 0610 00284000 * CALL RCRDMDR; /* LOG OTHER STATUS */ 00285000 BAL @14,RCRDMDR 0610 00286000 * END; /* NO, IT IS NOT REMOTE 3270 0611 00287000 * STATUS */ 00288000 * ELSE 0612 00289000 * IF(STATTYPE=CTYPE| /* IS THIS TYPE 'C' STATUS OR */ 00290000 * STATTYPE=ETYPE) THEN /* IS IT TYPE E STATUS? */ 00291000 B @RC00604 0612 00292000 @RF00604 LA @10,20 0612 00293000 ALR @10,RPIU 0612 00294000 CLI STATTYPE(@10),C'C' 0612 00295000 BE @RT00612 0612 00296000 CLI STATTYPE(@10),C'E' 0612 00297000 BNE @RF00612 0612 00298000 @RT00612 DS 0H 0613 00299000 * CALL RCRDMDR; /* THEN LOG STATUS */ 00300000 BAL @14,RCRDMDR 0613 00301000 * END; /* DON'T LOG ANYTHING ELSE */ 00302000 * END BSCSTATS; 0615 00303000 @EL00002 DS 0H 0615 00304000 @EF00002 DS 0H 0615 00305000 @ER00002 L @14,@SA00002 0615 00306000 BR @14 0615 00307000 * 0616 00308000 * /*****************************************************************/ 00309000 * /* */ 00310000 * /* CONTROL: IF THIS IS A RESET COMMAND, TURN OFF ERROR LOCK. IF */ 00311000 * /* COMMAND IS NOT TAGGED, BUFFER WILL BE FREED. IF INPUT CONTAINS*/ 00312000 * /* AN OP CONTROL TAG, IT WILL BE RETURNED TO OP CONTROL SUBTASK. */ 00313000 * /* IF INPUT IS A TAGGED RESET GENERATED BY DEBLOCK OTHER THAN */ 00314000 * /* TSO, INPUT WILL BE BYPASSED TO IEDSAC AND SUBSEQUENTLY POSTED */ 00315000 * /* TO MH AS AN ERROR BUFFER. TAGGED RESETS GENERATED BY TSO ARE */ 00316000 * /* PUT ON WAIT CHAIN AND SENT TO IEDSARI IF A SEND OPERATION IS */ 00317000 * /* IN PROGRESS, ELSE THEY ARE SENT TO IEDSAC. */ 00318000 * /* */ 00319000 * /*****************************************************************/ 00320000 * 0616 00321000 *CONTROL: 0616 00322000 * PROC OPTIONS(RETREG,SAVE(14)); 0616 00323000 CONTROL ST @14,@SA00003 0616 00324000 * IF(BDUMODIF=>CD0CREL& /* IS THIS A RESET @YM06475*/ 00325000 * BDUMODIF=0 THEN /* IF THE STEAL WAS GOOD */ 00773000 LTR RLINK,RLINK 0730 00774000 BNP @RF00730 0730 00775000 * DO; 0731 00776000 * NEWUNIT=RLINK; /* SAVE ADDRESS OF NEW UNIT */ 00777000 LR NEWUNIT,RLINK 0732 00778000 */* */ 00779000 */*COPY THE OLD UNIT INTO THE NEW UNIT */ 00780000 */* */ 00781000 * 0733 00782000 * RCVUNIT(1:AVTKEYLE)=SRCUNIT(1:AVTKEYLE); 0733 00783000 * 0733 00784000 LH @14,AVTKEYLE(,IEDQAPTR) 0733 00785000 BCTR @14,0 0733 00786000 EX @14,@SM02307 0733 00787000 */* */ 00788000 * 0734 00789000 * RPARM=TTHOAF; 0734 00790000 SLR RPARM,RPARM 0734 00791000 ICM RPARM,3,TTHOAF(RPIU) 0734 00792000 * CALL IEDIAP04; /* FIND THIS TERMINALS NETWORK 0735 00793000 * ADDRESS */ 00794000 L @10,AVTSAVTP(,IEDQAPTR) 0735 00795000 L @15,SAVTTNTX(,@10) 0735 00796000 BALR @14,@15 0735 00797000 */* */ 00798000 * 0736 00799000 * RPARM=RLINK; 0736 00800000 LR RPARM,RLINK 0736 00801000 * CALL IEDIAP06; /* FIND THE 3705 LCB ADDRESS */ 00802000 L @10,AVTSAVTP(,IEDQAPTR) 0737 00803000 L @15,SAVTLCBS(,@10) 0737 00804000 BALR @14,@15 0737 00805000 */* */ 00806000 * 0738 00807000 * RFY 0738 00808000 * IEDQLCB BASED(RLINK); 0738 00809000 * RPARM=LCBOBRCH; /* PICK UP HEAD OF OBR CHAIN */ 00810000 L RPARM,LCBOBRCH(,RLINK) 0739 00811000 * RZERO=NEWUNIT; /* RETRIEVE POINTER TO NEW UNIT */ 00812000 LR RZERO,NEWUNIT 0740 00813000 *CSLOOP: 0741 00814000 * RZERO->PRFLINK=RPARM; /* LINK NEW PIU TO FIRST PIU */ 00815000 CSLOOP LR @14,RZERO 0741 00816000 STCM RPARM,7,PRFLINK(@14) 0741 00817000 * CS(RPARM,RZERO,LCBOBRCH); /* TRY TO ADD NEW PIU TO CHAIN */ 00818000 CS RPARM,@00,LCBOBRCH(RLINK) 0742 00819000 * BC(7,CSLOOP); /* TRY AGAIN IF UNSUCCESSFUL */ 00820000 BC 7,CSLOOP 0743 00821000 */* */ 00822000 * 0744 00823000 * RFY 0744 00824000 * IEDQLCB BASED(RLCB); 0744 00825000 * RFY 0745 00826000 * RLINK UNRSTD; 0745 00827000 * END; 0746 00828000 * END RCRDMDR; 0747 00829000 @EL00009 DS 0H 0747 00830000 @EF00009 DS 0H 0747 00831000 @ER00009 L @14,@SA00009 0747 00832000 BR @14 0747 00833000 * RFY 0748 00834000 * RZERO UNRSTD; 0748 00835000 * 0749 00836000 * /*****************************************************************/ 00837000 * /* */ 00838000 * /* RDPRPROC: IF INPUT IS A READ OR INVITE, SUBROUTINES WILL BE */ 00839000 * /* CALLED TO PROCESS NEG RESP TO POLL-QUEUED, BSC STATUS AND WAIT*/ 00840000 * /* CHAIN PROCESSING. ALL VALID RD/INVITES ARE PASSED TO IEDSARI. */ 00841000 * /* REMAINING VALID INPUT IS PASSED TO IEDSAC. IF NO FURTHER */ 00842000 * /* PROCESSING IS REQUIRED CONTROL IS GIVEN TO THE DISPATCHER. */ 00843000 * /* */ 00844000 * /*****************************************************************/ 00845000 * 0749 00846000 *RDPRPROC: 0749 00847000 * PROC OPTIONS(RETREG,SAVE(14)); 0749 00848000 RDPRPROC ST @14,@SA00010 0749 00849000 * IF RESPSAVE=RSPQNEGR THEN /* IF Q-NEGREP RCVD */ 00850000 CLI RESPSAVE,X'03' 0750 00851000 BNE @RF00750 0750 00852000 * CALL NEGREP; /* CALL NEG RESP PROCESSOR */ 00853000 BAL @14,NEGREP 0751 00854000 * ELSE 0752 00855000 * DO; 0752 00856000 B @RC00750 0752 00857000 @RF00750 DS 0H 0753 00858000 * TRMWTNEG=OFF; /* NOT WAITING FOR Q-NEGREP */ 00859000 NI TRMWTNEG(RTRM),B'01111111' 0753 00860000 * TRMQNPL=OFF; /* NOT PROCESSING A Q-NEGREP */ 00861000 NI TRMQNPL(RTRM),B'11110111' 0754 00862000 * END; 0755 00863000 * IF RETCODE=INITVAL THEN /* IF RET CODE STILL NOT SET */ 00864000 @RC00750 CLI RETCODE,X'FF' 0756 00865000 BNE @RF00756 0756 00866000 * DO; 0757 00867000 * IF TRMSTPND=ON| /* IF BSC STATUS PENDING */ 00868000 * (BDUPHASE^=RSP00&(BDURESP=RSPE0A|/* OR BSC ERR STAT RECVD*/ 00869000 * BDURESP=RSPN05)) THEN /* OR BSC NORM STAT RECVD */ 00870000 TM TRMSTPND(RTRM),B'10000000' 0758 00871000 BO @RT00758 0758 00872000 LA @10,14 0758 00873000 ALR @10,RPIU 0758 00874000 TM BDUPHASE(@10),B'01100000' 0758 00875000 BZ @RF00758 0758 00876000 TM BDURESP(@10),B'00001010' 0758 00877000 BNO @GL00018 0758 00878000 TM BDURESP(@10),B'00010101' 0758 00879000 BZ @RT00758 0758 00880000 @GL00018 TM BDURESP+14(RPIU),B'00000101' 0758 00881000 BNO @RF00758 0758 00882000 TM BDURESP+14(RPIU),B'00011010' 0758 00883000 BNZ @RF00758 0758 00884000 @RT00758 DS 0H 0759 00885000 * CALL BSCSTATS; /* CALL BSC STATUS PROCESSING */ 00886000 BAL @14,BSCSTATS 0759 00887000 * CALL WAITCHN; /* PUT THIS INPUT ON WAIT CHAIN */ 00888000 @RF00758 BAL @14,WAITCHN 0760 00889000 * END; 0761 00890000 * END RDPRPROC; 0762 00891000 @EL00010 DS 0H 0762 00892000 @EF00010 DS 0H 0762 00893000 @ER00010 L @14,@SA00010 0762 00894000 BR @14 0762 00895000 * 0763 00896000 * /*****************************************************************/ 00897000 * /* */ 00898000 * /* REQPLCB: PLACE THE CURRENT INPUT ON QCB'S WAIT CHAIN AND */ 00899000 * /* REQUEST A PLCB */ 00900000 * /* */ 00901000 * /*****************************************************************/ 00902000 * 0763 00903000 * RFY 0763 00904000 * (RLINK) RSTD; 0763 00905000 *REQPLCB: 0764 00906000 * PROC OPTIONS(RETREG,SAVE(14)); 0764 00907000 REQPLCB ST @14,@SA00011 0764 00908000 * IF QCBWAITC=OFF THEN /* IF QCB HAS NO WAIT CHAIN */ 00909000 L @14,IEDQQPTR 0765 00910000 SL @14,@CF00044 0765 00911000 TM QCBWAITC(@14),B'01000000' 0765 00912000 BNZ @RF00765 0765 00913000 * DO; 0766 00914000 * QCBWAITC=ON; /* THEN INDICATE A WAIT CHAIN */ 00915000 OI QCBWAITC(@14),B'01000000' 0767 00916000 * QCBPLCBA=RPRF; /* AND PUT INPUT ON WAIT CHAIN */ 00917000 STCM RPRF,7,QCBPLCBA(@14) 0768 00918000 * END; 0769 00919000 * ELSE 0770 00920000 * DO; /* IF THERE IS A QCB WAIT CHAIN */ 00921000 B @RC00765 0770 00922000 @RF00765 DS 0H 0771 00923000 * CURBFR=RPRF; /* SAVE PTR TO THIS INPUT */ 00924000 LR CURBFR,RPRF 0771 00925000 * RPRF=QCBPLCBA; /* POINT TO WAIT CHAIN */ 00926000 L @14,IEDQQPTR 0772 00927000 AL @14,@CF02301 0772 00928000 L RPRF,QCBPLCBA-5(,@14) 0772 00929000 LA RPRF,0(,RPRF) 0772 00930000 * DO WHILE(PRFLINK^=0); /* FIND END OF QCB WAIT CHAIN */ 00931000 B @DE00773 0773 00932000 @DL00773 DS 0H 0774 00933000 * RPRF=PRFLINK; /* BUMP TO NEXT PIU */ 00934000 L @14,PRFLINK-1(,IEDQPPTR) 0774 00935000 LA @14,0(,@14) 0774 00936000 LR RPRF,@14 0774 00937000 * END; 0775 00938000 @DE00773 L @14,PRFLINK-1(,IEDQPPTR) 0775 00939000 LA @14,0(,@14) 0775 00940000 LTR @14,@14 0775 00941000 BNZ @DL00773 0775 00942000 * PRFLINK=CURBFR; /* LINK CURRENT INPUT TO QCB'S 0776 00943000 * WAIT CHAIN */ 00944000 STCM CURBFR,7,PRFLINK(IEDQPPTR) 0776 00945000 * RPRF=CURBFR; /* RESTORE PTR TO CURRENT INPUT */ 00946000 LR RPRF,CURBFR 0777 00947000 * END; 0778 00948000 * 0779 00949000 * /*****************************************************************/ 00950000 * /* */ 00951000 * /* IF NO PLCB REQ IS PENDING, CALL IEDIAP TO REQUEST ONE. UPON */ 00952000 * /* RETURN CHANGE THE STATE OF THE PLCB FROM SEND TO RECEIVE. */ 00953000 * /* PRESERVE THE STATUS OF THE LCBOCNI BIT DURING THE STATE */ 00954000 * /* CHANGE. */ 00955000 * /* */ 00956000 * /*****************************************************************/ 00957000 * 0779 00958000 * IF QCBRCVRQ=OFF THEN /* IF NO PLCB REQ IS PENDING */ 00959000 @RC00765 L @14,IEDQQPTR 0779 00960000 SL @14,@CF00044 0779 00961000 TM QCBRCVRQ(@14),B'00010000' 0779 00962000 BNZ @RF00779 0779 00963000 * DO; 0780 00964000 * QCBRCVRQ=ON; /* REQ RECV */ 00965000 OI QCBRCVRQ(@14),B'00010000' 0781 00966000 * RPARM=QCBPTR; /* DEST QCB ADDRESS @YM06505*/ 00967000 L RPARM,QCBPTR 0782 00968000 * CALL IEDIAP; /* CALL IEDIAP TO REQ PLCB */ 00969000 L @10,AVTSAVTP(,IEDQAPTR) 0783 00970000 L @15,SAVTPREQ(,@10) 0783 00971000 BALR @14,@15 0783 00972000 * IF RLINK=0 THEN /* IF PLCB REQUEST WAS ENQUEUED */ 00973000 LTR RLINK,RLINK 0784 00974000 BNZ @RF00784 0784 00975000 * RETCODE=NOPST; /* SET RET CODE FOR DSPDISP */ 00976000 MVI RETCODE,X'00' 0785 00977000 * ELSE /* ELSE, GOT A PLCB */ 00978000 * DO; 0786 00979000 B @RC00784 0786 00980000 @RF00784 DS 0H 0787 00981000 * RLCB=RLINK; /* SETUP ADDRESSABILITY TO PLCB */ 00982000 LR RLCB,RLINK 0787 00983000 * IF LCBOCNI=ON THEN /* PRESERVE STATUS OF OCNI */ 00984000 TM LCBOCNI(RLCB),B'00100000' 0788 00985000 BNO @RF00788 0788 00986000 * DO; 0789 00987000 * LCBSTAT1=0; /* TURN ALL BITS OFF AND */ 00988000 MVI LCBSTAT1(RLCB),X'00' 0790 00989000 * LCBOCNI=ON; /* TURN OCNI BACK ON */ 00990000 * LCBRECVN=ON; /* THEN INDICATE RECEIVE STATE */ 00991000 OI LCBOCNI(RLCB),B'00100010' 0792 00992000 * END; 0793 00993000 * ELSE 0794 00994000 * DO; 0794 00995000 B @RC00788 0794 00996000 @RF00788 DS 0H 0795 00997000 * LCBSTAT1=0; /* TURN ALL BITS OFF */ 00998000 MVI LCBSTAT1(RLCB),X'00' 0795 00999000 * LCBRECVN=ON; /* INDICATE RECEIVE STATE */ 01000000 OI LCBRECVN(RLCB),B'00000010' 0796 01001000 * END; 0797 01002000 * RETCODE=SARI; /* INDICATE BYPASS TO IEDSARI */ 01003000 @RC00788 MVI RETCODE,X'40' 0798 01004000 * END; 0799 01005000 * END; 0800 01006000 * ELSE /* THERE IS ALREADY A PLCB 0801 01007000 * REQUEST SO */ 01008000 * RETCODE=NOPST; /* SET RET CODE FOR DSPDISP */ 01009000 B @RC00779 0801 01010000 @RF00779 MVI RETCODE,X'00' 0801 01011000 * RFY 0802 01012000 * (RLINK) UNRSTD; 0802 01013000 * END REQPLCB; 0803 01014000 @EL00011 DS 0H 0803 01015000 @EF00011 DS 0H 0803 01016000 @ER00011 L @14,@SA00011 0803 01017000 BR @14 0803 01018000 * 0804 01019000 * /*****************************************************************/ 01020000 * /* */ 01021000 * /* SNDRESET: BUILD A RESET CONDITIONAL IN CURRENT BUFFER AND POST*/ 01022000 * /* TO PATH CONTROL OUT. */ 01023000 * /* */ 01024000 * /*****************************************************************/ 01025000 * 0804 01026000 *SNDRESET: 0804 01027000 * PROC OPTIONS(RETREG,SAVE(14)); 0804 01028000 SNDRESET ST @14,@SA00012 0804 01029000 * TTHBYTE0=TTH0BYT0; /* INDICATE FID 0 PIU */ 01030000 MVI TTHBYTE0(RPIU),X'0C' 0805 01031000 * TTHBYTE1=TTH0BYT1; /* NO FLAGS */ 01032000 MVI TTHBYTE1(RPIU),X'00' 0806 01033000 * CUROAF=TTHOAF; /* SAVE OAF */ 01034000 MVC CUROAF(2),TTHOAF(RPIU) 0807 01035000 * TTHOAF=TTHDAF; /* REVERSE OAF AND */ 01036000 MVC @TS00001(2),TTHDAF(RPIU) 0808 01037000 MVC TTHOAF(2,RPIU),@TS00001 0808 01038000 * TTHDAF=CUROAF; /* DAF PAIR */ 01039000 MVC TTHDAF(2,RPIU),CUROAF 0809 01040000 * TTHTAG=0; /* INDICATE NO TAG */ 01041000 SLR @10,@10 0810 01042000 STCM @10,3,TTHTAG(RPIU) 0810 01043000 * TTHDCF=LENGTH(IEDRH)+LENGTH(IEDBDU)+/* SET DATA LENGTH */ 01044000 * LENGTH(PIU0PAD); 0811 01045000 MVC TTHDCF(2,RPIU),@CH01422 0811 01046000 * PIU0RH=TRHFID0; /* BUILD FID 0 RH */ 01047000 MVC PIU0RH(3,RPIU),@CB01834 0812 01048000 * IEDBDU=IEDBDU&&IEDBDU; /* CLEAR BDU */ 01049000 LA @10,14 0813 01050000 ALR @10,RPIU 0813 01051000 XC IEDBDU(6,@10),IEDBDU(@10) 0813 01052000 * BDUCMND=CD0CTRL; /* RESET */ 01053000 MVI BDUCMND(@10),X'08' 0814 01054000 * BDUMODIF=CD0CRC; /* CONDITIONAL */ 01055000 MVI BDUMODIF(@10),X'50' 0815 01056000 * RPARM=RPRF; /* BFR ADDRESS IN PARM REG */ 01057000 LR RPARM,RPRF 0816 01058000 * PRFPRI=PRIPCOUT; /* PRIORITY OF THIS POST */ 01059000 MVI PRFPRI(IEDQPPTR),X'E4' 0817 01060000 * PRFQCBA=ADDR(IEDPCOUT); /* QCB ADDRESS */ 01061000 L @10,@CV02169 0818 01062000 STCM @10,7,PRFQCBA(IEDQPPTR) 0818 01063000 * CALL DSPPOSTR; /* POST RESET COND TO PATH CTRL */ 01064000 LA @15,DSPPOSTR(,RDISP) 0819 01065000 BALR @14,@15 0819 01066000 * END SNDRESET; 0820 01067000 @EL00012 DS 0H 0820 01068000 @EF00012 DS 0H 0820 01069000 @ER00012 L @14,@SA00012 0820 01070000 BR @14 0820 01071000 * 0821 01072000 * /*****************************************************************/ 01073000 * /* */ 01074000 * /* UNSIP: UNSOLICITED RESPONSES ARE GENERATED BY TSO ATTENTION. */ 01075000 * /* IF A PLCB IS ASSIGNED AND IT IS MARKED SENDING, THIS INPUT IS */ 01076000 * /* PUT ON PLCB'S WAIT CHAIN AND CONTROL IS GIVEN TO THE */ 01077000 * /* DISPATCHER. IF PLCB IS NOT ASSIGNED OR IT IS ASSIGNED BUT NOT */ 01078000 * /* MARKED SENDING, THIS INPUT IS BYPASSED TO IEDSAC. */ 01079000 * /* */ 01080000 * /*****************************************************************/ 01081000 * 0821 01082000 *UNSIP: 0821 01083000 * PROC OPTIONS(SAVE(14),RETREG); 0821 01084000 UNSIP ST @14,@SA00013 0821 01085000 * RETCODE=SAC; /* SEND THIS INPUT TO IEDSAC */ 01086000 MVI RETCODE,X'30' 0822 01087000 * IF QCBPLCBN=ON THEN /* IF HAVE A PLCB */ 01088000 L @10,IEDQQPTR 0823 01089000 AL @10,@CF02301 0823 01090000 TM QCBPLCBN-4(@10),B'10000000' 0823 01091000 BNO @RF00823 0823 01092000 * IF LCBSENDN=ON THEN /* AND IT IS MARKED SENDING */ 01093000 TM LCBSENDN(RLCB),B'00000001' 0824 01094000 BNO @RF00824 0824 01095000 * DO; 0825 01096000 * IF(BDUPHASE^=RSP00& /* IF IT IS TSO ATTENTION */ 01097000 * BDURESP=RSPE13) THEN 0826 01098000 LA @10,14 0826 01099000 ALR @10,RPIU 0826 01100000 TM BDUPHASE(@10),B'01100000' 0826 01101000 BZ @RF00826 0826 01102000 TM BDURESP(@10),B'00010011' 0826 01103000 BNO @RF00826 0826 01104000 TM BDURESP(@10),B'00001100' 0826 01105000 BNZ @RF00826 0826 01106000 * CALL PIULCBWC; /* PUT THIS ON WAIT CHAIN */ 01107000 BAL @14,PIULCBWC 0827 01108000 * ELSE /* NO, IT IS NOT TSO ATTENTION */ 01109000 * CALL FREEBFR; /* DISCARD THIS INPUT */ 01110000 B @RC00826 0828 01111000 @RF00826 BAL @14,FREEBFR 0828 01112000 * RETCODE=NOPST; /* GIVE CONTROL TO TCAM 0829 01113000 * DISPATCHER */ 01114000 @RC00826 MVI RETCODE,X'00' 0829 01115000 * END; 0830 01116000 * END UNSIP; 0831 01117000 @EL00013 DS 0H 0831 01118000 @EF00013 DS 0H 0831 01119000 @ER00013 L @14,@SA00013 0831 01120000 BR @14 0831 01121000 * 0832 01122000 * /*****************************************************************/ 01123000 * /* */ 01124000 * /* WAITCHN: IF THE PLCB IS ASSIGNED, CURRENT INPUT IS PLACED ON */ 01125000 * /* PLCB'S WAIT CHAIN. ELSE, CURRENT INPUT IS PLACED ON QCB'S WAIT*/ 01126000 * /* CHAIN AND A PLCB IS REQUESTED. IF THE PLCB REQUEST IS */ 01127000 * /* SATISFIED AND INPUT IS PENDING, CONTROL IS PASSED TO IEDSARI, */ 01128000 * /* ELSE EXIT IS MADE VIA DSPDISP. */ 01129000 * /* */ 01130000 * /*****************************************************************/ 01131000 * 0832 01132000 * RFY 0832 01133000 * (RLINK) RSTD; 0832 01134000 *WAITCHN: 0833 01135000 * PROC OPTIONS(SAVE(14),RETREG); 0833 01136000 WAITCHN ST @14,@SA00014 0833 01137000 * IF QCBPLCBN=ON THEN /* IF A PLCB IS ASSIGNED */ 01138000 L @14,IEDQQPTR 0834 01139000 AL @14,@CF02301 0834 01140000 TM QCBPLCBN-4(@14),B'10000000' 0834 01141000 BNO @RF00834 0834 01142000 * DO; 0835 01143000 * IF LCBWAITC=0 THEN /* IF THERE IS NOTHING ON WAIT 0836 01144000 * CHAIN */ 01145000 L @14,LCBWAITC-1(,RLCB) 0836 01146000 LA @14,0(,@14) 0836 01147000 LTR @14,@14 0836 01148000 BNZ @RF00836 0836 01149000 * LCBWAITC=RPRF; /* PUT CURRENT INPUT ON WAIT 0837 01150000 * CHAIN */ 01151000 STCM RPRF,7,LCBWAITC(RLCB) 0837 01152000 * ELSE /* ELSE, THERE IS A WAIT CHAIN TO 01153000 * WHICH THIS INPUT */ 01154000 * DO; /* MUST BE LINKED IN FIFO ORDER */ 01155000 B @RC00836 0838 01156000 @RF00836 DS 0H 0839 01157000 * CURBFR=RPRF; /* SAVE PTR TO THIS INPUT */ 01158000 LR CURBFR,RPRF 0839 01159000 * RPRF=LCBWAITC; /* POINT TO WAIT CHAIN */ 01160000 L RPRF,LCBWAITC-1(,RLCB) 0840 01161000 LA RPRF,0(,RPRF) 0840 01162000 * DO WHILE(PRFLINK^=0); /* FIND END OF WAIT CHAIN */ 01163000 B @DE00841 0841 01164000 @DL00841 DS 0H 0842 01165000 * RPRF=PRFLINK; /* BUMP PTR TO NEXT PIU */ 01166000 L @14,PRFLINK-1(,IEDQPPTR) 0842 01167000 LA @14,0(,@14) 0842 01168000 LR RPRF,@14 0842 01169000 * END; 0843 01170000 @DE00841 L @14,PRFLINK-1(,IEDQPPTR) 0843 01171000 LA @14,0(,@14) 0843 01172000 LTR @14,@14 0843 01173000 BNZ @DL00841 0843 01174000 * PRFLINK=CURBFR; /* LINK CURRENT INPUT TO WAIT 0844 01175000 * CHAIN */ 01176000 STCM CURBFR,7,PRFLINK(IEDQPPTR) 0844 01177000 * RPRF=CURBFR; /* RESTORE PTR TO CURRENT INPUT */ 01178000 LR RPRF,CURBFR 0845 01179000 * END; 0846 01180000 * IF LCBRECVN=ON& /* IF PLCB IS RECEIVING */ 01181000 * (TRMRDOUT=ON| /* AND IF A READ IS OUT */ 01182000 * TRMINOUT=ON| /* OR AN INVITE IS OUT */ 01183000 * TRMINPTP=ON| /* OR GEN POLL INPUT PENDING */ 01184000 * LCBCONT=ON) THEN /* OR READ CONTINUE WAS DONE */ 01185000 @RC00836 TM LCBRECVN(RLCB),B'00000010' 0847 01186000 BNO @RF00847 0847 01187000 TM TRMRDOUT(RTRM),B'00000011' 0847 01188000 BNZ @RT00847 0847 01189000 TM TRMINPTP(RTRM),B'01000000' 0847 01190000 BO @RT00847 0847 01191000 TM LCBCONT(RLCB),B'00001000' 0847 01192000 BNO @RF00847 0847 01193000 @RT00847 DS 0H 0848 01194000 * RETCODE=SARI; /* THEN BYPASS TO IEDSARI */ 01195000 MVI RETCODE,X'40' 0848 01196000 * ELSE /* OTHERWISE */ 01197000 * RETCODE=NOPST; /* GO TO DISPATCHER */ 01198000 B @RC00847 0849 01199000 @RF00847 MVI RETCODE,X'00' 0849 01200000 * END; 0850 01201000 * ELSE /* IF NO PLCB ASSIGNED THEN */ 01202000 * CALL REQPLCB; /* REQUEST A PLCB */ 01203000 B @RC00834 0851 01204000 @RF00834 BAL @14,REQPLCB 0851 01205000 * TRMINPTP=OFF; /* TURN OFF TRMINPTP SO THERE 0852 01206000 * CANNOT BE ANOTHER BYPASS TO 0852 01207000 * IEDSARI WHILE PRIOR INPUT IS 01208000 * BEING PROCESSED */ 01209000 @RC00834 NI TRMINPTP(RTRM),B'10111111' 0852 01210000 * RFY 0853 01211000 * (RLINK) UNRSTD; 0853 01212000 * END WAITCHN; 0854 01213000 @EL00014 DS 0H 0854 01214000 @EF00014 DS 0H 0854 01215000 @ER00014 L @14,@SA00014 0854 01216000 BR @14 0854 01217000 * END IEDSAI 0855 01218000 * 0855 01219000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01220000 */*%INCLUDE SYSLIB (TAVTD ) */ 01221000 */*%INCLUDE SYSLIB (TBDUD ) */ 01222000 */*%INCLUDE SYSLIB (TCD0D ) */ 01223000 */*%INCLUDE SYSLIB (TDISPD ) */ 01224000 */*%INCLUDE SYSLIB (TEXTD ) */ 01225000 */*%INCLUDE SYSLIB (IHADCBDF) */ 01226000 */*%INCLUDE SYSLIB (IHADCB ) */ 01227000 */*%INCLUDE SYSLIB (TLCBD ) */ 01228000 */*%INCLUDE SYSLIB (TPIU0D ) */ 01229000 */*%INCLUDE SYSLIB (TPRFD ) */ 01230000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01231000 */*%INCLUDE SYSLIB (TQCBD ) */ 01232000 */*%INCLUDE SYSLIB (TREQD ) */ 01233000 */*%INCLUDE SYSLIB (TRHD ) */ 01234000 */*%INCLUDE SYSLIB (TRSPD ) */ 01235000 */*%INCLUDE SYSLIB (TTHD ) */ 01236000 */*%INCLUDE SYSLIB (TTRMD ) */ 01237000 * 0855 01238000 * ; 0855 01239000 @DATA DS 0H 01240000 @CH01422 DC H'10' 01241000 @SM02307 MVC RCVUNIT(0,RLINK),SRCUNIT(IEDQPPTR) 01242000 DS 0F 01243000 @SA00010 DS 1F 01244000 @SA00003 DS 1F 01245000 @SA00013 DS 1F 01246000 @SA00014 DS 1F 01247000 @SA00002 DS 1F 01248000 @SA00009 DS 1F 01249000 @SA00011 DS 1F 01250000 @SA00006 DS 1F 01251000 @SA00007 DS 1F 01252000 @SA00012 DS 1F 01253000 DS 0F 01254000 @CF00058 DC F'6' 01255000 @CF00044 DC F'8' 01256000 @CF02301 DC F'-4' 01257000 @CV02169 DC V(IEDPCOUT) 01258000 DS 0D 01259000 QCBPTR DC A(0) 01260000 @TS00001 DS CL2 01261000 @CB01834 DC X'0B8000' 01262000 RESPSAVE DS BL1 01263000 CUROAF DS BL2 01264000 RETCODE DS BL1 01265000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01266000 @01 EQU 01 01267000 @02 EQU 02 01268000 @03 EQU 03 01269000 @04 EQU 04 01270000 @05 EQU 05 01271000 @06 EQU 06 01272000 @07 EQU 07 01273000 @08 EQU 08 01274000 @09 EQU 09 01275000 @10 EQU 10 01276000 @11 EQU 11 01277000 @12 EQU 12 01278000 @13 EQU 13 01279000 @14 EQU 14 01280000 @15 EQU 15 01281000 CURBFR EQU @05 01282000 NEWUNIT EQU @05 01283000 RPRFSAV EQU @09 01284000 R14SAV1 EQU @05 01285000 IEDQAPTR EQU @13 01286000 RDISP EQU @11 01287000 IEDQLPTR EQU @04 01288000 LCBXPTR EQU @05 01289000 IEDQPPTR EQU @06 01290000 RTRM EQU @08 01291000 RERB EQU @14 01292000 RPIU EQU @02 01293000 RLINK EQU @15 01294000 RPARM EQU @01 01295000 RZERO EQU @00 01296000 RAVT EQU @13 01297000 RSTCB EQU @03 01298000 RLCB EQU @04 01299000 RPRF EQU @06 01300000 RHOLD EQU @06 01301000 RLAST EQU @07 01302000 RQCB EQU @07 01303000 RBASE EQU @12 01304000 RRETURN EQU @14 01305000 IEDQAVTD EQU 0 01306000 AVTSAVEX EQU IEDQAVTD+216 01307000 AVTREADD EQU IEDQAVTD+308 01308000 AVTBUFSW EQU IEDQAVTD+312 01309000 @NM00004 EQU IEDQAVTD+316 01310000 AVTCKFLG EQU @NM00004 01311000 AVTBASE EQU IEDQAVTD+340 01312000 AVTPKF EQU AVTBASE 01313000 AVTRNMPT EQU IEDQAVTD+352 01314000 AVTOSECB EQU IEDQAVTD+420 01315000 AVTECB1 EQU AVTOSECB 01316000 AVTHG02 EQU IEDQAVTD+456 01317000 AVTDISP EQU IEDQAVTD+480 01318000 AVTHD EQU IEDQAVTD+484 01319000 AVTSCOPT EQU AVTHD 01320000 AVTSAVTP EQU IEDQAVTD+540 01321000 AVTSAVTF EQU AVTSAVTP 01322000 AVTCKPEL EQU IEDQAVTD+580 01323000 AVTCKRMV EQU AVTCKPEL 01324000 AVTCKELF EQU IEDQAVTD+608 01325000 AVTCKBYT EQU IEDQAVTD+619 01326000 AVTHG01 EQU IEDQAVTD+620 01327000 AVTCKLNK EQU IEDQAVTD+624 01328000 AVTCRELE EQU IEDQAVTD+636 01329000 AVTCCELE EQU AVTCRELE 01330000 AVTCLRHI EQU IEDQAVTD+644 01331000 AVTADBUF EQU IEDQAVTD+648 01332000 AVTSYSER EQU IEDQAVTD+656 01333000 AVTMSGS EQU IEDQAVTD+657 01334000 AVTBFRFG EQU IEDQAVTD+712 01335000 AVTBFRTB EQU IEDQAVTD+720 01336000 AVTCKPQB EQU IEDQAVTD+732 01337000 AVTCKPTB EQU AVTCKPQB 01338000 AVTCKPEC EQU AVTCKPQB+4 01339000 AVTCKPCC EQU AVTCKPEC 01340000 AVTOPCQB EQU IEDQAVTD+744 01341000 AVTOPCOB EQU AVTOPCQB 01342000 AVTOPCEC EQU AVTOPCQB+4 01343000 AVTOPCCC EQU AVTOPCEC 01344000 AVTOLTQB EQU IEDQAVTD+756 01345000 AVTCWFL1 EQU IEDQAVTD+852 01346000 AVTCWFL2 EQU IEDQAVTD+853 01347000 AVTSUBT EQU IEDQAVTD+876 01348000 AVTIOTR EQU IEDQAVTD+877 01349000 AVTKEYLE EQU IEDQAVTD+960 01350000 AVTBIT1 EQU IEDQAVTD+978 01351000 AVTBIT2 EQU IEDQAVTD+979 01352000 AVTBIT3 EQU IEDQAVTD+980 01353000 AVTSTEAL EQU IEDQAVTD+988 01354000 AVTBIT4 EQU IEDQAVTD+1064 01355000 @NM00086 EQU IEDQAVTD+1160 01356000 IEDNSVTD EQU 0 01357000 SAVTDIAG EQU IEDNSVTD 01358000 SAVTDIAF EQU SAVTDIAG 01359000 SAVTPREQ EQU IEDNSVTD+16 01360000 SAVTLUSQ EQU IEDNSVTD+88 01361000 SAVTXFMI EQU IEDNSVTD+132 01362000 SAVTSAC EQU IEDNSVTD+188 01363000 SAVTSARI EQU IEDNSVTD+192 01364000 SAVTTCPU EQU IEDNSVTD+238 01365000 SAVTTNTX EQU IEDNSVTD+252 01366000 SAVTLCBS EQU IEDNSVTD+260 01367000 SAVTZELM EQU IEDNSVTD+270 01368000 SAVTRDRV EQU IEDNSVTD+284 01369000 SAVTCKQB EQU IEDNSVTD+300 01370000 SAVTCKTB EQU SAVTCKQB 01371000 SAVTCKEC EQU SAVTCKQB+4 01372000 SAVTCKCC EQU SAVTCKEC 01373000 IEDBDU EQU 0 01374000 BDUCMND EQU IEDBDU 01375000 BDUMODIF EQU IEDBDU+1 01376000 BDUFNFLG EQU IEDBDU+2 01377000 BDUBDUFG EQU IEDBDU+3 01378000 BDURSP EQU IEDBDU+4 01379000 BDUSYRSP EQU BDURSP 01380000 BDUERROR EQU BDUSYRSP 01381000 BDUPHASE EQU BDUSYRSP 01382000 BDURESP EQU BDUSYRSP 01383000 BDUEXRSP EQU BDURSP+1 01384000 BDUXINIT EQU BDUEXRSP 01385000 BDUEND EQU IEDBDU+6 01386000 IEDQDISP EQU 0 01387000 DSPDISP EQU 4 01388000 DSPBYPAS EQU 20 01389000 DSPPOSTR EQU 28 01390000 IHADCB EQU 0 01391000 DCBPTR EQU 0 01392000 IHADCS11 EQU 0 01393000 DCBRELB EQU IHADCS11 01394000 DCBREL EQU DCBRELB+1 01395000 DCBBUFCB EQU IHADCS11+4 01396000 DCBDSORG EQU IHADCS11+10 01397000 DCBDSRG1 EQU DCBDSORG 01398000 DCBDSRG2 EQU DCBDSORG+1 01399000 DCBIOBAD EQU IHADCS11+12 01400000 DCBODEB EQU DCBIOBAD 01401000 DCBLNP EQU DCBODEB 01402000 DCBQSLM EQU DCBLNP 01403000 DCBIOBAA EQU DCBODEB+1 01404000 IHADCS50 EQU 0 01405000 DCBSVCXL EQU IHADCS50 01406000 DCBEODAD EQU IHADCS50+4 01407000 DCBBFALN EQU DCBEODAD 01408000 DCBHIARC EQU DCBBFALN 01409000 DCBBFTEK EQU DCBHIARC 01410000 DCBBFT EQU DCBBFTEK 01411000 DCBEXLST EQU IHADCS50+8 01412000 DCBRECFM EQU DCBEXLST 01413000 DCBRECLA EQU DCBRECFM 01414000 IHADCS24 EQU 0 01415000 DCBOFLGS EQU IHADCS24+8 01416000 DCBOFLWR EQU DCBOFLGS 01417000 DCBIFLG EQU IHADCS24+9 01418000 DCBIBPCT EQU DCBIFLG 01419000 DCBMACR EQU IHADCS24+10 01420000 DCBMACR1 EQU DCBMACR 01421000 DCBMRFE EQU DCBMACR1 01422000 DCBMRGET EQU DCBMRFE 01423000 DCBMRAPG EQU DCBMACR1 01424000 DCBMRRD EQU DCBMRAPG 01425000 DCBMRCI EQU DCBMACR1 01426000 DCBMRMVG EQU DCBMRCI 01427000 DCBMRLCG EQU DCBMACR1 01428000 DCBMRABC EQU DCBMACR1 01429000 DCBMRPT1 EQU DCBMRABC 01430000 DCBMRSBG EQU DCBMRPT1 01431000 DCBMRCRL EQU DCBMACR1 01432000 DCBMRCHK EQU DCBMRCRL 01433000 DCBMRRDX EQU DCBMRCHK 01434000 DCBMRDMG EQU DCBMACR1 01435000 DCBMACR2 EQU DCBMACR+1 01436000 DCBMRPUT EQU DCBMACR2 01437000 DCBMRWRT EQU DCBMACR2 01438000 DCBMRMVP EQU DCBMACR2 01439000 DCBMR5WD EQU DCBMACR2 01440000 DCBMRLDM EQU DCBMR5WD 01441000 DCBMRLCP EQU DCBMRLDM 01442000 DCBMR4WD EQU DCBMACR2 01443000 DCBMRPT2 EQU DCBMR4WD 01444000 DCBMRTMD EQU DCBMRPT2 01445000 DCBMR3WD EQU DCBMACR2 01446000 DCBMRCTL EQU DCBMR3WD 01447000 DCBMRSTK EQU DCBMRCTL 01448000 DCBMR1WD EQU DCBMACR2 01449000 DCBMRSWA EQU DCBMR1WD 01450000 DCBMRDMD EQU DCBMRSWA 01451000 IHADCS25 EQU 0 01452000 DCBMACRF EQU IHADCS25+2 01453000 DCBMACF1 EQU DCBMACRF 01454000 DCBMFFE EQU DCBMACF1 01455000 DCBMFGET EQU DCBMFFE 01456000 DCBMFAPG EQU DCBMACF1 01457000 DCBMFRD EQU DCBMFAPG 01458000 DCBMFCI EQU DCBMACF1 01459000 DCBMFMVG EQU DCBMFCI 01460000 DCBMFLCG EQU DCBMACF1 01461000 DCBMFABC EQU DCBMACF1 01462000 DCBMFPT1 EQU DCBMFABC 01463000 DCBMFSBG EQU DCBMFPT1 01464000 DCBMFCRL EQU DCBMACF1 01465000 DCBMFCHK EQU DCBMFCRL 01466000 DCBMFDMG EQU DCBMACF1 01467000 DCBMACF2 EQU DCBMACRF+1 01468000 DCBMFPUT EQU DCBMACF2 01469000 DCBMFWRT EQU DCBMACF2 01470000 DCBMFMVP EQU DCBMACF2 01471000 DCBMF5WD EQU DCBMACF2 01472000 DCBMFLDM EQU DCBMF5WD 01473000 DCBMFLCP EQU DCBMFLDM 01474000 DCBMF4WD EQU DCBMACF2 01475000 DCBMFPT2 EQU DCBMF4WD 01476000 DCBMFTMD EQU DCBMFPT2 01477000 DCBMF3WD EQU DCBMACF2 01478000 DCBMFCTL EQU DCBMF3WD 01479000 DCBMFSTK EQU DCBMFCTL 01480000 DCBMF1WD EQU DCBMACF2 01481000 DCBMFSWA EQU DCBMF1WD 01482000 DCBMFDMD EQU DCBMFSWA 01483000 DCBDEBAD EQU IHADCS25+4 01484000 DCBIFLGS EQU DCBDEBAD 01485000 DCBIFPCT EQU DCBIFLGS 01486000 IHADCS28 EQU 0 01487000 DCBOPTCD EQU IHADCS28 01488000 DCBOPTZ EQU DCBOPTCD 01489000 IEDQLCB EQU 0 01490000 LCBRCB EQU IEDQLCB 01491000 LCBTSOB EQU IEDQLCB+19 01492000 LCBCHAIN EQU IEDQLCB+20 01493000 LCBSCRNN EQU LCBCHAIN 01494000 LCBTETEN EQU LCBCHAIN 01495000 LCBINSRC EQU IEDQLCB+21 01496000 LCBLKMDE EQU LCBINSRC+2 01497000 LCBNTXT EQU IEDQLCB+24 01498000 LCBSTAT4 EQU LCBNTXT 01499000 LCBPHASE EQU LCBSTAT4 01500000 LCBSCBDA EQU IEDQLCB+25 01501000 LCBMHA EQU IEDQLCB+29 01502000 LCBFLAG1 EQU IEDQLCB+32 01503000 LCBIOBSN EQU IEDQLCB+33 01504000 LCBSNS EQU LCBIOBSN+1 01505000 LCBSENS0 EQU LCBSNS 01506000 LCBLOSDT EQU LCBSENS0 01507000 LCBTMOUT EQU LCBSENS0 01508000 LCBFLAG3 EQU LCBIOBSN+7 01509000 LCBCSW EQU LCBIOBSN+8 01510000 LCBCSWST EQU LCBCSW+3 01511000 LCBCSWUS EQU LCBCSWST 01512000 LCBCSWCS EQU LCBCSWST+1 01513000 LCBSIOCC EQU LCBIOBSN+15 01514000 LCBDCBPT EQU IEDQLCB+52 01515000 LCBRCQCB EQU IEDQLCB+56 01516000 LCBRESTR EQU LCBRCQCB 01517000 LCBTHSQ EQU IEDQLCB+60 01518000 LCBINCAM EQU LCBTHSQ 01519000 LCBERRCT EQU IEDQLCB+62 01520000 LCBLSPCI EQU IEDQLCB+65 01521000 LCBRCBFR EQU LCBLSPCI 01522000 LCBSTATE EQU IEDQLCB+70 01523000 LCBSTAT1 EQU LCBSTATE 01524000 LCBOCNI EQU LCBSTAT1 01525000 LCBCONT EQU LCBSTAT1 01526000 LCBRECVN EQU LCBSTAT1 01527000 LCBSENDN EQU LCBSTAT1 01528000 LCBSTAT2 EQU LCBSTATE+1 01529000 LCBMSGNN EQU LCBSTAT2 01530000 LCBBEOTN EQU LCBSTAT2 01531000 LCBSYNC EQU LCBSTAT2 01532000 LCBDIAL EQU LCBSTAT2 01533000 LCBTSTSW EQU IEDQLCB+72 01534000 LCBERB EQU IEDQLCB+76 01535000 LCBERBQB EQU LCBERB+1 01536000 LCBERBLK EQU IEDQLCB+81 01537000 LCBERBST EQU IEDQLCB+84 01538000 LCBINQ EQU LCBERBST 01539000 LCBDLNKN EQU LCBERBST 01540000 LCBERBCH EQU IEDQLCB+85 01541000 LCBERBCT EQU IEDQLCB+88 01542000 LCBRBCT2 EQU LCBERBCT+1 01543000 LCBMSGFM EQU IEDQLCB+92 01544000 LCBOBRCH EQU IEDQLCB+96 01545000 LCBINVPT EQU LCBOBRCH+1 01546000 LCBBFRW EQU LCBINVPT 01547000 LCBTPCD EQU IEDQLCB+100 01548000 LCBSTAT5 EQU LCBTPCD 01549000 LCBSTAT6 EQU LCBTPCD+4 01550000 LCBWAITC EQU LCBTPCD+5 01551000 LCBRSPSV EQU LCBTPCD+8 01552000 LCBSAVSN EQU IEDQLCB+112 01553000 LCBERCCW EQU IEDQLCB+120 01554000 LCBCPA EQU IEDQLCB+144 01555000 LCBCCW5 EQU LCBCPA+32 01556000 LCBATTEL EQU LCBCCW5 01557000 LCBQEBPL EQU LCBATTEL 01558000 IEDQLCBX EQU 0 01559000 LCBXCON EQU IEDQLCBX 01560000 LCBXFLAG EQU LCBXCON 01561000 LCBXDCT EQU LCBXCON+1 01562000 LCBXRADR EQU LCBXCON+4 01563000 IEDPIU0 EQU 0 01564000 PIU0TH EQU IEDPIU0 01565000 PIU0RH EQU IEDPIU0+10 01566000 PIU0PAD EQU IEDPIU0+13 01567000 PIU0RU EQU IEDPIU0+14 01568000 IEDQPRF EQU 0 01569000 PRFRCB EQU IEDQPRF 01570000 PRFKEY EQU PRFRCB 01571000 PRFQCBA EQU PRFRCB+1 01572000 PRFPRI EQU PRFRCB+4 01573000 PRFLINK EQU PRFRCB+5 01574000 PRFTIC EQU IEDQPRF+8 01575000 PRFTICC EQU PRFTIC 01576000 PRFNBUNT EQU IEDQPRF+12 01577000 PRFSUNIT EQU PRFNBUNT 01578000 PRFPLQCB EQU PRFSUNIT 01579000 PRFPIUO EQU PRFPLQCB 01580000 @NM00165 EQU IEDQPRF+16 01581000 PRFSVFFO EQU @NM00165 01582000 PRFSTAT1 EQU IEDQPRF+20 01583000 PRFEOFN EQU PRFSTAT1 01584000 PRFCORE EQU IEDQPRF+21 01585000 PRFXTRA EQU PRFCORE 01586000 PRFSCAN EQU IEDQPRF+24 01587000 PRFISIZE EQU PRFSCAN+1 01588000 PRFTQBCK EQU IEDQPRF+26 01589000 PRFNTXT EQU PRFTQBCK 01590000 PRFEOBOF EQU PRFNTXT 01591000 PRFCHDR EQU IEDQPRF+32 01592000 PRFHQBCK EQU IEDQPRF+35 01593000 IEDPF1 EQU 0 01594000 PRF1FLG1 EQU IEDPF1+3 01595000 PRF1WD2 EQU IEDPF1+4 01596000 PRF1SEQP EQU PRF1WD2 01597000 PRF1SQID EQU PRF1SEQP 01598000 PRF1TAG1 EQU PRF1SQID 01599000 IEDPF2 EQU 0 01600000 PRF2FLG2 EQU IEDPF2 01601000 PRF2WD2 EQU IEDPF2+4 01602000 IEDQQCB EQU 0 01603000 QCBDSFLG EQU IEDQQCB 01604000 QCBDISK EQU QCBDSFLG 01605000 QCBELCHN EQU IEDQQCB+1 01606000 QCBSTCHN EQU IEDQQCB+9 01607000 QCBEOLDT EQU IEDQQCB+16 01608000 QCBBYTE1 EQU QCBEOLDT+1 01609000 QCBLKRLN EQU IEDQQCB+18 01610000 QCBRETCT EQU QCBLKRLN 01611000 QCBSTAT EQU IEDQQCB+19 01612000 QCBINSRC EQU IEDQQCB+21 01613000 @NM00175 EQU QCBINSRC 01614000 QCBTSOF2 EQU @NM00175+1 01615000 QCBTSOF1 EQU @NM00175+2 01616000 QCBINTVL EQU IEDQQCB+24 01617000 QCBPREN EQU IEDQQCB+28 01618000 QCBLKRRN EQU QCBPREN+1 01619000 QCBDCBAD EQU IEDQQCB+33 01620000 QCBFLAG EQU IEDQQCB+36 01621000 IEDQPQCB EQU 0 01622000 QCBFHDLZ EQU IEDQPQCB+3 01623000 QCBPFEFO EQU QCBFHDLZ+1 01624000 QCBFHDTZ EQU IEDQPQCB+6 01625000 QCBINTLF EQU IEDQPQCB+12 01626000 IEDNQCB EQU 0 01627000 QCBSTAT1 EQU IEDNQCB+4 01628000 QCBPLCBN EQU QCBSTAT1 01629000 QCBWAITC EQU QCBSTAT1 01630000 QCBRCVRQ EQU QCBSTAT1 01631000 QCBPLCBA EQU IEDNQCB+5 01632000 IEDREQD EQU 0 01633000 REQLINK EQU IEDREQD+5 01634000 REQROUTE EQU IEDREQD+12 01635000 REQRCDS EQU IEDREQD+14 01636000 REQDATA EQU IEDREQD+16 01637000 IEDRH EQU 0 01638000 TRHBYTE0 EQU IEDRH 01639000 TRHBYTE1 EQU IEDRH+1 01640000 TRHBYTE2 EQU IEDRH+2 01641000 IEDTH EQU 0 01642000 TTHBYTE0 EQU IEDTH 01643000 TTHBYTE1 EQU IEDTH+1 01644000 TTHDAF EQU IEDTH+2 01645000 TTHOAF EQU IEDTH+4 01646000 TTHSNF EQU IEDTH+6 01647000 TTHTAG EQU TTHSNF 01648000 TTHTAG1 EQU TTHTAG 01649000 TTHTAGS EQU TTHTAG1 01650000 TTHTAG2 EQU TTHTAG+1 01651000 TTHDCF EQU IEDTH+8 01652000 IEDTRM EQU 0 01653000 IEDNTRM EQU IEDTRM 01654000 TRMBYTE4 EQU IEDNTRM 01655000 TRMBYTE3 EQU IEDNTRM+1 01656000 TRMBYTE2 EQU IEDNTRM+2 01657000 TRMINPG EQU TRMBYTE2 01658000 TRMBYTE1 EQU IEDNTRM+3 01659000 TRMSCPRQ EQU TRMBYTE1 01660000 TRMWTNEG EQU TRMSCPRQ 01661000 TRMINPTP EQU TRMBYTE1 01662000 TRMTSATN EQU TRMBYTE1 01663000 TRMBYTE0 EQU IEDNTRM+6 01664000 TRMDIAL EQU TRMBYTE0 01665000 TRMSIBPT EQU IEDNTRM+7 01666000 IEDQTRM EQU IEDTRM+14 01667000 TRMSTATE EQU IEDQTRM 01668000 TRMLINE EQU TRMSTATE 01669000 TRMLOG EQU TRMSTATE 01670000 TRMDESTQ EQU IEDQTRM+1 01671000 TRMINSEQ EQU IEDQTRM+4 01672000 TLISTCNT EQU TRMINSEQ 01673000 TRMOUTSQ EQU IEDQTRM+6 01674000 TLISTEN EQU TRMOUTSQ 01675000 TRMDSORG EQU TLISTEN 01676000 TRMALTD EQU IEDQTRM+8 01677000 TRMDEVFL EQU IEDQTRM+10 01678000 TRMSTAT EQU IEDQTRM+12 01679000 RCVUNIT EQU 12 01680000 BDQCB EQU 0 01681000 IEDXFMI EQU 0 01682000 IEDIAP EQU 0 01683000 IEDIAP04 EQU 0 01684000 IEDIAP06 EQU 0 01685000 IEDQGA02 EQU 0 01686000 IEDQTNT EQU 0 01687000 STATMSG EQU 0 01688000 STATTYPE EQU STATMSG+1 01689000 SSBYTE1 EQU STATMSG+5 01690000 SSDB EQU SSBYTE1 01691000 SSDE EQU SSBYTE1 01692000 SSBYTE2 EQU STATMSG+6 01693000 SSCR EQU SSBYTE2 01694000 SSIR EQU SSBYTE2 01695000 SSEC EQU SSBYTE2 01696000 SSDC EQU SSBYTE2 01697000 SSCC EQU SSBYTE2 01698000 DSPCHAIN EQU 12 01699000 DSPLIFO EQU 56 01700000 DSPLIFOR EQU 60 01701000 DSPLIST EQU 8 01702000 DSPPOST EQU 24 01703000 DSPPRIO EQU 48 01704000 DSPPRIOR EQU 52 01705000 DSPTRACE EQU 64 01706000 DSPTSTQ EQU 32 01707000 DSPTSTQR EQU 36 01708000 DSPUNAV EQU 40 01709000 DSPUNAVR EQU 44 01710000 DSPWAIT EQU 16 01711000 QCBLDCB EQU 0 01712000 LCBRSPIN EQU LCBIOBSN 01713000 LCBLUSNS EQU LCBRSPIN+5 01714000 LCBSCPRS EQU LCBRSPIN+9 01715000 LCBCSWU1 EQU LCBSCPRS+2 01716000 LCBRSPFG EQU LCBRSPIN+15 01717000 LCBCOREQ EQU LCBTPCD 01718000 @NM00145 EQU LCBCPA+40 01719000 LCBQNX EQU LCBERCCW 01720000 LCBQNXMN EQU LCBQNX 01721000 LCBCANCL EQU LCBSAVSN 01722000 LCBCANFG EQU LCBCANCL 01723000 IEDQQPTR EQU QCBPTR 01724000 REQLDATA EQU REQDATA 01725000 REQSDATA EQU REQDATA 01726000 TRMPRE1 EQU TRMBYTE4 01727000 TRMQNPL EQU TRMPRE1 01728000 TRMERLCK EQU TRMPRE1 01729000 TRMLYNCH EQU TRMPRE1 01730000 TRMNCP1 EQU TRMBYTE4 01731000 TRMPRE EQU TRMBYTE3 01732000 TRMSTPND EQU TRMPRE 01733000 TRMRDOUT EQU TRMPRE 01734000 TRMINOUT EQU TRMPRE 01735000 TRMNCP EQU TRMBYTE3 01736000 TRMPU EQU TRMBYTE3 01737000 TRMLU EQU TRMBYTE3 01738000 TRMLINK EQU TRMBYTE3 01739000 SRCUNIT EQU PRFPIUO 01740000 BDUTEXT EQU BDUEND 01741000 INOP EQU PRFPIUO+1 01742000 PRFSHDR EQU IEDQPRF+42 01743000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01744000 @NM00196 EQU TRMLINK 01745000 TRMLSTAT EQU TRMLINK 01746000 TRMLINT EQU TRMLINK 01747000 TRMEPMOD EQU TRMLINK 01748000 TRMLULOG EQU TRMLU 01749000 TRMINERR EQU TRMLU 01750000 TRMLUREQ EQU TRMLU 01751000 TRMSESRQ EQU TRMLU 01752000 TRMTDIFF EQU TRMLU 01753000 TRMLUTM EQU TRMLU 01754000 TRMLUIT EQU TRMLU 01755000 TRMAUTO EQU TRMLU 01756000 TRMPCONT EQU TRMPU 01757000 @NM00195 EQU TRMPU 01758000 TRMNCONT EQU TRMNCP 01759000 TRMQUCKN EQU TRMNCP 01760000 TRMSLOWN EQU TRMNCP 01761000 TRMSYGEN EQU TRMNCP 01762000 TRMNCPCL EQU TRMNCP 01763000 TRMIPLDM EQU TRMNCP 01764000 TRMNLOUT EQU TRMPRE 01765000 TRMWROUT EQU TRMPRE 01766000 TRMASNXI EQU TRMPRE 01767000 TRMSTMM EQU TRMPRE 01768000 TRMCMODE EQU TRMPRE 01769000 @NM00194 EQU TRMNCP1 01770000 TRMINOP EQU TRMNCP1 01771000 TRMSPOUT EQU TRMPRE1 01772000 TRMSPACT EQU TRMPRE1 01773000 TRMOCNI EQU TRMPRE1 01774000 TRMSESSN EQU TRMPRE1 01775000 TRMCONT EQU TRMPRE1 01776000 REQSTNT EQU REQSDATA+4 01777000 REQSTTE EQU REQSDATA 01778000 REQLTNT EQU REQLDATA 01779000 @NM00153 EQU LCBCANCL+3 01780000 LCBCANTH EQU LCBCANCL+1 01781000 @NM00152 EQU LCBCANFG 01782000 LCBCANCD EQU LCBCANFG 01783000 @NM00151 EQU LCBCANFG 01784000 LCBCANEB EQU LCBCANFG 01785000 LCBCANXT EQU LCBCANFG 01786000 LCBUNADD EQU LCBQNX+21 01787000 LCBUASZE EQU LCBQNX+20 01788000 LCBDSTEA EQU LCBQNX+16 01789000 @NM00150 EQU LCBQNX+8 01790000 LCBIOSBS EQU LCBQNX+5 01791000 @NM00149 EQU LCBQNX+4 01792000 LCBSTSAV EQU LCBQNX+1 01793000 @NM00148 EQU LCBQNXMN 01794000 LCBNX509 EQU LCBQNXMN 01795000 LCBNX162 EQU LCBQNXMN 01796000 LCBNX142 EQU LCBQNXMN 01797000 LCBNX064 EQU LCBQNXMN 01798000 @NM00147 EQU @NM00145+4 01799000 LCBNCPPT EQU @NM00145+1 01800000 @NM00146 EQU @NM00145 01801000 LCBWRSCH EQU LCBCOREQ+8 01802000 LCBCQLNK EQU LCBCOREQ+4 01803000 LCBCQELE EQU LCBCOREQ 01804000 LCBPAKCH EQU LCBRSPIN+16 01805000 @NM00144 EQU LCBRSPFG 01806000 LCBRSRH EQU LCBRSPFG 01807000 LCBEXPI EQU LCBRSPFG 01808000 @NM00143 EQU LCBRSPIN+12 01809000 LCBUSUE1 EQU LCBCSWU1 01810000 @NM00142 EQU LCBCSWU1 01811000 @NM00141 EQU LCBSCPRS+1 01812000 LCBDFCMD EQU LCBSCPRS 01813000 LCBUSER EQU LCBLUSNS+2 01814000 LCBSMIN EQU LCBLUSNS+1 01815000 LCBSMAJ EQU LCBLUSNS 01816000 LCBRHSV EQU LCBRSPIN+2 01817000 LCBSNS0 EQU LCBRSPIN+1 01818000 @NM00140 EQU LCBRSPIN 01819000 SSOC EQU SSBYTE2 01820000 @NM00199 EQU SSBYTE2 01821000 @NM00198 EQU SSBYTE1 01822000 @NM00197 EQU SSBYTE1 01823000 DA EQU STATMSG+4 01824000 CU EQU STATMSG+3 01825000 STX EQU STATMSG+2 01826000 STATFLAG EQU STATMSG 01827000 TRMOPT EQU IEDTRM+34 01828000 TRMOPTBL EQU IEDQTRM+18 01829000 TRMOPNO EQU IEDQTRM+17 01830000 TRMCHCIN EQU IEDQTRM+16 01831000 TRMSENSE EQU TRMSTAT+3 01832000 TRMTEMPR EQU TRMSTAT+2 01833000 TRMSIO EQU TRMSTAT 01834000 @NM00193 EQU TRMDEVFL+1 01835000 TRMTPIN EQU TRMDEVFL+1 01836000 TRMNCPI EQU TRMDEVFL+1 01837000 TRMRNTRM EQU TRMDEVFL+1 01838000 @NM00192 EQU TRMDEVFL+1 01839000 TRMLMD EQU TRMDEVFL+1 01840000 TRMCONC EQU TRMDEVFL+1 01841000 TRMTSOB EQU TRMDEVFL 01842000 TRMBFDY EQU TRMDEVFL 01843000 TRMTBLK EQU TRMDEVFL 01844000 TRMSBLK EQU TRMDEVFL 01845000 TRMBLKS EQU TRMDEVFL 01846000 TRMADDC EQU TRMDEVFL 01847000 TRMDDIG EQU TRMDEVFL 01848000 TRMBUFS EQU TRMDEVFL 01849000 TRMPRILK EQU TRMALTD 01850000 TRMLGB EQU TRMDSORG 01851000 TRMUTERM EQU TLISTCNT 01852000 TRMSCNYN EQU TRMSTATE 01853000 TRMOPTFN EQU TRMSTATE 01854000 TRMHELDN EQU TRMSTATE 01855000 TRMACPTN EQU TRMSTATE 01856000 TRMPREF EQU TRMSTATE 01857000 TRMPROC EQU TRMLOG 01858000 TRMLIST EQU TRMLOG 01859000 TRMSUBST EQU IEDNTRM+12 01860000 TRMTYPE EQU IEDNTRM+11 01861000 TRMRLMCT EQU IEDNTRM+10 01862000 TRMCOHTG EQU TRMSIBPT+1 01863000 TRMGPCNT EQU TRMSIBPT 01864000 TRMBUFRD EQU TRMBYTE0 01865000 TRMSNA EQU TRMBYTE0 01866000 TRMGP EQU TRMBYTE0 01867000 @NM00191 EQU TRMBYTE0 01868000 TRMOUTPT EQU TRMBYTE0 01869000 TRMINPUT EQU TRMBYTE0 01870000 TRMUDEF EQU TRMBYTE0 01871000 TRMCOHRT EQU IEDNTRM+4 01872000 TRMSTOTE EQU TRMBYTE1 01873000 TRMCKPRN EQU TRMBYTE1 01874000 TRMTRACE EQU TRMBYTE1 01875000 TRMSWBCK EQU TRMBYTE1 01876000 TRMAUTOC EQU TRMBYTE1 01877000 TRMWRBRK EQU TRMBYTE2 01878000 TRMNOSND EQU TRMBYTE2 01879000 TRMPREP EQU TRMBYTE2 01880000 TRMGPACT EQU TRMBYTE2 01881000 TRMANDL EQU TRMBYTE2 01882000 TRMCLOSN EQU TRMINPG 01883000 TRMREMB EQU TRMBYTE2 01884000 TRMRSACT EQU TRMBYTE2 01885000 @NM00190 EQU TTHTAG1 01886000 TTHEFI EQU TTHBYTE0 01887000 @NM00189 EQU TTHBYTE0 01888000 TTHEBIU EQU TTHBYTE0 01889000 TTHBBIU EQU TTHBYTE0 01890000 TTHFTYPE EQU TTHBYTE0 01891000 @NM00188 EQU TRHBYTE2 01892000 @NM00187 EQU TRHBYTE2 01893000 @NM00186 EQU TRHBYTE2 01894000 TRHCSI EQU TRHBYTE2 01895000 @NM00185 EQU TRHBYTE2 01896000 TRHCDI EQU TRHBYTE2 01897000 TRHEB EQU TRHBYTE2 01898000 TRHBB EQU TRHBYTE2 01899000 TRHPI EQU TRHBYTE1 01900000 @NM00184 EQU TRHBYTE1 01901000 @NM00183 EQU TRHBYTE1 01902000 @NM00182 EQU TRHBYTE1 01903000 TRHER EQU TRHBYTE1 01904000 TRHDR2 EQU TRHBYTE1 01905000 @NM00181 EQU TRHBYTE1 01906000 TRHDR1 EQU TRHBYTE1 01907000 TRHEC EQU TRHBYTE0 01908000 TRHBC EQU TRHBYTE0 01909000 TRHSDI EQU TRHBYTE0 01910000 TRHFI EQU TRHBYTE0 01911000 @NM00180 EQU TRHBYTE0 01912000 TRHRUCAT EQU TRHBYTE0 01913000 TRHTYPE EQU TRHBYTE0 01914000 REQRCD2 EQU REQRCDS+1 01915000 REQRCD1 EQU REQRCDS 01916000 REQSWTCH EQU REQROUTE+1 01917000 REQFLAG EQU REQROUTE 01918000 REQRQCBA EQU IEDREQD+9 01919000 REQRPRI EQU IEDREQD+8 01920000 REQPRI EQU IEDREQD+4 01921000 REQQCBA EQU IEDREQD+1 01922000 REQTYPE EQU IEDREQD 01923000 QCBTTCIN EQU QCBPLCBA+1 01924000 @NM00179 EQU QCBPLCBA 01925000 @NM00178 EQU QCBSTAT1 01926000 QCBFLUSH EQU QCBSTAT1 01927000 QCBNDXRQ EQU QCBSTAT1 01928000 QCBESIG EQU QCBSTAT1 01929000 QCBSNDRQ EQU QCBSTAT1 01930000 QCBCHAIN EQU IEDNQCB 01931000 QCBPQBCK EQU IEDQPQCB+25 01932000 QCBPRIPQ EQU IEDQPQCB+24 01933000 QCBCFHDR EQU IEDQPQCB+21 01934000 QCBLFEFO EQU IEDQPQCB+18 01935000 QCBFFEFO EQU IEDQPQCB+15 01936000 QCBPREVF EQU QCBINTLF 01937000 QCBINTFF EQU IEDQPQCB+9 01938000 QCBDATSQ EQU QCBFHDTZ+1 01939000 @NM00177 EQU QCBFHDTZ 01940000 @NM00176 EQU QCBPFEFO 01941000 QCBDATFL EQU QCBFHDLZ 01942000 QCBDNHDR EQU IEDQPQCB 01943000 QCBQBACK EQU IEDQQCB+37 01944000 QCBCKPT EQU QCBFLAG 01945000 QCBPROC EQU QCBFLAG 01946000 QCBSDFFO EQU QCBFLAG 01947000 QCBTERMQ EQU QCBFLAG 01948000 QCBRSRV EQU QCBFLAG 01949000 QCBREAD EQU QCBFLAG 01950000 QCBNOBRK EQU QCBFLAG 01951000 QCBTSSES EQU QCBFLAG 01952000 QCBLGBAD EQU QCBDCBAD 01953000 QCBRELLN EQU IEDQQCB+32 01954000 QCBTJID EQU QCBLKRRN+1 01955000 QCBCARCT EQU QCBLKRRN 01956000 QCBPRLVL EQU QCBPREN 01957000 QCBMSGCT EQU IEDQQCB+26 01958000 QCBEXTO EQU QCBINTVL 01959000 QCBDISC EQU QCBTSOF1 01960000 QCBDELAY EQU QCBTSOF1 01961000 QCBPARTO EQU QCBTSOF1 01962000 QCBSATRD EQU QCBTSOF1 01963000 QCBNOBUF EQU QCBTSOF1 01964000 QCBTPUT EQU QCBTSOF1 01965000 QCBTGET EQU QCBTSOF1 01966000 QCBWRBRK EQU QCBTSOF1 01967000 QCBSATLC EQU QCBTSOF2 01968000 QCBSATTI EQU QCBTSOF2 01969000 QCBSATCH EQU QCBTSOF2 01970000 QCBSIMRD EQU QCBTSOF2 01971000 QCBDSSMI EQU QCBTSOF2 01972000 QCBPOSTO EQU QCBTSOF2 01973000 QCBBUFQ EQU QCBTSOF2 01974000 QCBINHBN EQU QCBTSOF2 01975000 QCBSATCT EQU @NM00175 01976000 QCBSCBOF EQU IEDQQCB+20 01977000 QCBTIME EQU QCBSTAT 01978000 QCBCLOCK EQU QCBSTAT 01979000 QCBSCHDL EQU QCBSTAT 01980000 QCBSMODE EQU QCBSTAT 01981000 QCBSEND EQU QCBSTAT 01982000 QCBBUFRD EQU QCBSTAT 01983000 QCBTRMHO EQU QCBSTAT 01984000 QCBEOM EQU QCBSTAT 01985000 QCBHUCT EQU QCBRETCT 01986000 QCBIEND EQU QCBRETCT 01987000 QCBEND EQU QCBRETCT 01988000 QCBNL EQU QCBRETCT 01989000 QCBLOGCT EQU QCBRETCT 01990000 @NM00174 EQU QCBBYTE1 01991000 QCBRITRM EQU QCBBYTE1 01992000 @NM00173 EQU QCBEOLDT 01993000 QCBSLINK EQU IEDQQCB+13 01994000 QCBSTPRI EQU IEDQQCB+12 01995000 QCBSTVTO EQU IEDQQCB+8 01996000 QCBLINK EQU IEDQQCB+5 01997000 QCBPRI EQU IEDQQCB+4 01998000 QCBCNTEN EQU QCBELCHN+2 01999000 @NM00172 EQU QCBELCHN+2 02000000 @NM00171 EQU QCBELCHN 02001000 QCBHELD EQU QCBDSFLG 02002000 QCBFQCB EQU QCBDSFLG 02003000 QCBDRQQ EQU QCBDSFLG 02004000 QCBALTMH EQU QCBDSFLG 02005000 QCBREUS EQU QCBDISK 02006000 QCBNREUS EQU QCBDISK 02007000 QCBCORE EQU QCBDSFLG 02008000 QCBTSQ EQU QCBDSFLG 02009000 PRF2SEQP EQU PRF2WD2 02010000 @NM00170 EQU IEDPF2+1 02011000 @NM00169 EQU PRF2FLG2 02012000 PRF2TERM EQU PRF2FLG2 02013000 PRF2SMI EQU PRF2FLG2 02014000 PRF2FORM EQU PRF2FLG2 02015000 PRF2TNTI EQU PRF2FLG2 02016000 PRF1RULN EQU PRF1SEQP+2 02017000 PRF1TAG2 EQU PRF1SQID+1 02018000 @NM00168 EQU PRF1TAG1 02019000 PRF1TAGS EQU PRF1TAG1 02020000 @NM00167 EQU PRF1FLG1 02021000 PRF1LOGD EQU PRF1FLG1 02022000 PRF1USS EQU PRF1FLG1 02023000 PRF1FORM EQU PRF1FLG1 02024000 PRF1EXPI EQU PRF1FLG1 02025000 PRF1FIDI EQU PRF1FLG1 02026000 PRF1RH EQU IEDPF1 02027000 PRFDEST EQU IEDQPRF+40 02028000 PRFISEQ EQU IEDQPRF+38 02029000 PRFSTXT EQU PRFHQBCK 02030000 PRFNHDR EQU PRFCHDR 02031000 PRFCRCD EQU IEDQPRF+29 02032000 PRFSVSEQ EQU PRFNTXT+1 02033000 PRFSVPRI EQU PRFEOBOF 02034000 @NM00166 EQU PRFSCAN 02035000 PRFEOB EQU PRFXTRA+1 02036000 PRFSTSO EQU PRFXTRA 02037000 PRFNHDRN EQU PRFSTAT1 02038000 PRFNLSTN EQU PRFSTAT1 02039000 PRFLOCK EQU PRFEOFN 02040000 PRFDUPLN EQU PRFSTAT1 02041000 PRFTSMSG EQU PRFSTAT1 02042000 PRFITCPN EQU PRFSTAT1 02043000 PRFERMGN EQU PRFSTAT1 02044000 PRFCNCLN EQU PRFSTAT1 02045000 PRFSVFLG EQU @NM00165+3 02046000 PRFSIZE EQU PRFSVFFO+2 02047000 PRFSRCE EQU PRFSVFFO 02048000 PRFLCB EQU IEDQPRF+13 02049000 PRFTI0 EQU PRFTIC+1 02050000 @NM00164 EQU PRFTICC 02051000 @NM00163 EQU PRFTICC 02052000 @NM00162 EQU PRFTICC 02053000 PRFTICON EQU PRFTICC 02054000 @NM00161 EQU PRFTICC 02055000 @NM00160 EQU PRFTICC 02056000 PRFBFMM EQU PRFTICC 02057000 PRFEOMSG EQU PRFTICC 02058000 PRFCOUNT EQU PRFLINK+1 02059000 @NM00159 EQU PRFLINK 02060000 PRFFLAGS EQU PRFPRI 02061000 PRFIOADR EQU PRFQCBA 02062000 PRFOPCDE EQU PRFKEY 02063000 LCBERADR EQU LCBXRADR+1 02064000 LCBPCIRC EQU LCBXRADR 02065000 LCBDCT3 EQU LCBXDCT+2 02066000 LCBDCT2 EQU LCBXDCT+1 02067000 LCBDCT1 EQU LCBXDCT 02068000 @NM00158 EQU LCBXFLAG 02069000 LCBERPND EQU LCBXFLAG 02070000 LCBSRCPF EQU LCBXFLAG 02071000 LCBGPCTV EQU LCBXFLAG 02072000 @NM00157 EQU LCBXFLAG 02073000 @NM00156 EQU LCBXFLAG 02074000 @NM00155 EQU LCBXFLAG 02075000 @NM00154 EQU LCBXFLAG 02076000 LCBCCW10 EQU LCBCPA+72 02077000 LCBCCW9 EQU LCBCPA+64 02078000 LCBCCW8 EQU LCBCPA+56 02079000 LCBCCW7 EQU LCBCPA+48 02080000 LCBCCW6 EQU LCBCPA+40 02081000 LCBCP EQU LCBQEBPL+4 02082000 LCBIOSB EQU LCBQEBPL+1 02083000 LCBSIO EQU LCBQEBPL 02084000 LCBCCW4 EQU LCBCPA+24 02085000 LCBCCW3 EQU LCBCPA+16 02086000 LCBCCW2 EQU LCBCPA+8 02087000 LCBCCW1 EQU LCBCPA 02088000 @NM00139 EQU LCBERCCW+16 02089000 LCBATL05 EQU LCBERCCW+8 02090000 @NM00138 EQU LCBERCCW 02091000 LCBCSWSV EQU LCBSAVSN+1 02092000 LCBSNSV EQU LCBSAVSN 02093000 LCBBFSNS EQU LCBRSPSV 02094000 LCBINPAK EQU LCBSTAT6 02095000 LCBMHBID EQU LCBSTAT6 02096000 LCBRTRRO EQU LCBSTAT6 02097000 LCBHDRPD EQU LCBSTAT6 02098000 LCBCHN EQU LCBSTAT6 02099000 LCBBFRSV EQU LCBTPCD+1 02100000 @NM00137 EQU LCBSTAT5 02101000 LCBLUS EQU LCBSTAT5 02102000 LCBLUNIT EQU LCBSTAT5 02103000 LCBPERM EQU LCBSTAT5 02104000 LCBNXCMD EQU LCBBFRW 02105000 LCBERMSK EQU LCBOBRCH 02106000 LCBSCBA EQU IEDQLCB+93 02107000 LCBOLT EQU LCBMSGFM 02108000 LCBEOT EQU LCBMSGFM 02109000 LCBENQ EQU LCBMSGFM 02110000 LCBTTD EQU LCBMSGFM 02111000 LCBRSTRT EQU LCBMSGFM 02112000 LCBVSTRT EQU LCBMSGFM 02113000 LCBACKI EQU LCBMSGFM 02114000 LCBNAK EQU LCBMSGFM 02115000 LCBTTCIN EQU IEDQLCB+90 02116000 @NM00136 EQU LCBRBCT2 02117000 LCBDCNT EQU LCBRBCT2 02118000 LCBRBCT1 EQU LCBERBCT 02119000 LCBCOMPL EQU LCBDLNKN 02120000 LCBPRCPG EQU LCBERBST 02121000 LCBERROR EQU LCBERBST 02122000 LCBLOGDV EQU LCBERBST 02123000 LCBRDERR EQU LCBERBST 02124000 LCBEOMSG EQU LCBERBST 02125000 LCBMSG EQU LCBERBST 02126000 LCBERBPY EQU IEDQLCB+80 02127000 LCBERBKY EQU LCBERB 02128000 LCBRECAD EQU IEDQLCB+73 02129000 @NM00135 EQU LCBTSTSW 02130000 @NM00134 EQU LCBTSTSW 02131000 @NM00133 EQU LCBTSTSW 02132000 @NM00132 EQU LCBTSTSW 02133000 @NM00131 EQU LCBTSTSW 02134000 @NM00130 EQU LCBTSTSW 02135000 @NM00129 EQU LCBTSTSW 02136000 LCBCONCT EQU LCBTSTSW 02137000 LCBRESP EQU LCBSTAT2 02138000 LCBBFRAV EQU LCBDIAL 02139000 LCBATTN EQU LCBSYNC 02140000 LCBNEGRP EQU LCBSTAT2 02141000 LCBSNDPR EQU LCBSTAT2 02142000 LCBCONNN EQU LCBBEOTN 02143000 LCBTRACE EQU LCBSTAT2 02144000 LCBFREEN EQU LCBSTAT1 02145000 LCBINITN EQU LCBSTAT1 02146000 LCBOCWTN EQU LCBSTAT1 02147000 LCBRCLLN EQU LCBSTAT1 02148000 LCBRECOF EQU IEDQLCB+68 02149000 LCBRDBFR EQU LCBRCBFR 02150000 LCBUCBX EQU IEDQLCB+64 02151000 LCBTTBIN EQU LCBERRCT 02152000 @NM00128 EQU LCBINCAM 02153000 LCBGETMN EQU LCBINCAM 02154000 @NM00127 EQU LCBRESTR+1 02155000 LCBCMDSV EQU LCBRESTR 02156000 LCBPCILK EQU LCBDCBPT 02157000 LCBSTART EQU LCBIOBSN+16 02158000 LCBAP4OL EQU LCBSIOCC 02159000 LCBAP3OL EQU LCBSIOCC 02160000 LCBAP2OL EQU LCBSIOCC 02161000 LCBAP1OL EQU LCBSIOCC 02162000 LCBSIOC2 EQU LCBSIOCC 02163000 LCBSIOC1 EQU LCBSIOCC 02164000 @NM00126 EQU LCBSIOCC 02165000 LCBCSWRC EQU LCBCSW+5 02166000 LCBCSCHC EQU LCBCSWCS 02167000 LCBCSICC EQU LCBCSWCS 02168000 LCBCSCCC EQU LCBCSWCS 02169000 LCBCSCDC EQU LCBCSWCS 02170000 LCBCSPTC EQU LCBCSWCS 02171000 LCBCSPGC EQU LCBCSWCS 02172000 LCBCSIL EQU LCBCSWCS 02173000 LCBCSPCI EQU LCBCSWCS 02174000 LCBUSUE EQU LCBCSWUS 02175000 LCBUSUC EQU LCBCSWUS 02176000 LCBUSDE EQU LCBCSWUS 02177000 LCBUSCE EQU LCBCSWUS 02178000 LCBUSBSY EQU LCBCSWUS 02179000 LCBUSCUE EQU LCBCSWUS 02180000 LCBUSSM EQU LCBCSWUS 02181000 LCBUSAT EQU LCBCSWUS 02182000 LCBCSWCA EQU LCBCSW 02183000 LCBOBR EQU LCBFLAG3 02184000 LCBOBRRD EQU LCBFLAG3 02185000 LCBIOMSG EQU LCBFLAG3 02186000 LCBSOHC EQU LCBFLAG3 02187000 LCBRLAD EQU LCBFLAG3 02188000 LCBSOHR EQU LCBFLAG3 02189000 @NM00125 EQU LCBFLAG3 02190000 LCBECBPT EQU LCBIOBSN+4 02191000 LCBECBCC EQU LCBIOBSN+3 02192000 LCBSENS1 EQU LCBSNS+1 02193000 LCBABORT EQU LCBTMOUT 02194000 LCBNOTIN EQU LCBLOSDT 02195000 LCBOVRUN EQU LCBSENS0 02196000 LCBDATCK EQU LCBSENS0 02197000 LCBEQUCK EQU LCBSENS0 02198000 LCBBUSCK EQU LCBSENS0 02199000 LCBINTRQ EQU LCBSENS0 02200000 LCBCMDRJ EQU LCBSENS0 02201000 LCBFLAG2 EQU LCBIOBSN 02202000 @NM00124 EQU LCBFLAG1 02203000 LCBUNREL EQU LCBFLAG1 02204000 LCBEXCPN EQU LCBFLAG1 02205000 @NM00123 EQU LCBFLAG1 02206000 LCBERPIN EQU LCBFLAG1 02207000 @NM00122 EQU LCBFLAG1 02208000 LCBFSBFR EQU LCBMHA 02209000 LCBISZE EQU IEDQLCB+28 02210000 LCBLNENT EQU LCBSCBDA+1 02211000 @NM00121 EQU LCBSCBDA 02212000 LCBCPGMH EQU LCBSTAT4 02213000 LCBREAL EQU LCBPHASE 02214000 @NM00120 EQU LCBSTAT4 02215000 LCBACTRQ EQU LCBSTAT4 02216000 LCBIPLRQ EQU LCBSTAT4 02217000 LCBDACRQ EQU LCBSTAT4 02218000 LCBDMPRQ EQU LCBSTAT4 02219000 @NM00119 EQU LCBLKMDE 02220000 LCBLOCKI EQU LCBLKMDE 02221000 LCBLOCKR EQU LCBLKMDE 02222000 LCBHMFLG EQU LCBLKMDE 02223000 LCBBDFLG EQU LCBLKMDE 02224000 @NM00118 EQU LCBINSRC 02225000 LCBABRTN EQU LCBCHAIN 02226000 LCBCTLMD EQU LCBTETEN 02227000 LCBBFRSZ EQU LCBCHAIN 02228000 LCBUREQN EQU LCBCHAIN 02229000 LCBNORTY EQU LCBCHAIN 02230000 LCBERMSG EQU LCBCHAIN 02231000 LCBEXCP EQU LCBCHAIN 02232000 LCBINVRQ EQU LCBSCRNN 02233000 LCB2741N EQU LCBTSOB 02234000 LCBINHBN EQU LCBTSOB 02235000 LCBCIRCD EQU LCBTSOB 02236000 LCBPREP EQU LCBTSOB 02237000 LCBSOPL EQU LCBTSOB 02238000 LCBSATRD EQU LCBTSOB 02239000 LCBTSBUF EQU LCBTSOB 02240000 LCBWRBRK EQU LCBTSOB 02241000 LCBTDL EQU IEDQLCB+18 02242000 LCBEOLTD EQU IEDQLCB+16 02243000 LCBRSLNK EQU IEDQLCB+13 02244000 LCBRSPRI EQU IEDQLCB+12 02245000 LCBSTCBA EQU IEDQLCB+9 02246000 LCBRSKEY EQU IEDQLCB+8 02247000 LCBLINK EQU LCBRCB+5 02248000 LCBPRI EQU LCBRCB+4 02249000 LCBQCBA EQU LCBRCB+1 02250000 LCBKEY EQU LCBRCB 02251000 @NM00117 EQU IHADCS28+1 02252000 @NM00116 EQU DCBOPTCD 02253000 DCBSRCHD EQU DCBOPTZ 02254000 @NM00115 EQU DCBOPTCD 02255000 DCBDEBA EQU DCBDEBAD+1 02256000 @NM00114 EQU DCBIFLGS 02257000 DCBIFIOE EQU DCBIFLGS 02258000 DCBCH12 EQU DCBIFPCT 02259000 DCBCH9 EQU DCBIFPCT 02260000 DCBIFEC EQU DCBIFLGS 02261000 DCBMFSTI EQU DCBMFDMD 02262000 DCBMFAWR EQU DCBMFSTK 02263000 DCBMFUIP EQU DCBMFTMD 02264000 DCBMFIDW EQU DCBMFLCP 02265000 DCBMFWRK EQU DCBMFMVP 02266000 DCBMFRDQ EQU DCBMFWRT 02267000 DCBMFGTQ EQU DCBMFPUT 02268000 DCBMFSTL EQU DCBMACF2 02269000 DCBMFCK EQU DCBMFDMG 02270000 DCBMFRDX EQU DCBMFCHK 02271000 DCBMFDBF EQU DCBMFSBG 02272000 DCBMFRDI EQU DCBMFLCG 02273000 DCBMFRDK EQU DCBMFMVG 02274000 DCBMFWRQ EQU DCBMFRD 02275000 DCBMFPTQ EQU DCBMFGET 02276000 DCBMFECP EQU DCBMACF1 02277000 DCBTIOT EQU IHADCS25 02278000 DCBMRSTI EQU DCBMRDMD 02279000 DCBMRAWR EQU DCBMRSTK 02280000 DCBMRUIP EQU DCBMRTMD 02281000 DCBMRIDW EQU DCBMRLCP 02282000 DCBMRWRK EQU DCBMRMVP 02283000 DCBMRRDQ EQU DCBMRWRT 02284000 DCBMRGTQ EQU DCBMRPUT 02285000 DCBMRSTL EQU DCBMACR2 02286000 DCBMRCK EQU DCBMRDMG 02287000 DCBPGFXA EQU DCBMRRDX 02288000 DCBMRDBF EQU DCBMRSBG 02289000 DCBMRRDI EQU DCBMRLCG 02290000 DCBMRRDK EQU DCBMRMVG 02291000 DCBMRWRQ EQU DCBMRRD 02292000 DCBMRPTQ EQU DCBMRGET 02293000 DCBMRECP EQU DCBMACR1 02294000 @NM00113 EQU DCBIFLG 02295000 DCBIBIOE EQU DCBIFLG 02296000 DCBICH12 EQU DCBIBPCT 02297000 DCBICH9 EQU DCBIBPCT 02298000 DCBIBEC EQU DCBIFLG 02299000 DCBOFIOF EQU DCBOFLGS 02300000 DCBOFUEX EQU DCBOFLGS 02301000 DCBOFTM EQU DCBOFLGS 02302000 DCBOFPPC EQU DCBOFLGS 02303000 DCBOFOPN EQU DCBOFLGS 02304000 DCBOFEOV EQU DCBOFLGS 02305000 DCBOFLRB EQU DCBOFLGS 02306000 DCBOFIOD EQU DCBOFLWR 02307000 DCBDDNAM EQU IHADCS24 02308000 DCBEXLSA EQU DCBEXLST+1 02309000 DCBRECKL EQU DCBRECFM 02310000 DCBRECCC EQU DCBRECFM 02311000 DCBRECSB EQU DCBRECFM 02312000 DCBRECBR EQU DCBRECFM 02313000 DCBRECTO EQU DCBRECLA 02314000 DCBRECL EQU DCBRECLA 02315000 DCBEODA EQU DCBEODAD+1 02316000 DCBBFA EQU DCBBFTEK 02317000 DCBH0 EQU DCBBFTEK 02318000 DCBBFTKD EQU DCBBFTEK 02319000 DCBBFTE EQU DCBBFT 02320000 DCBBFTKR EQU DCBBFT 02321000 DCBBFTS EQU DCBBFT 02322000 DCBH1 EQU DCBBFTEK 02323000 DCBSVCXA EQU DCBSVCXL+1 02324000 @NM00112 EQU DCBSVCXL 02325000 DCBODEBA EQU DCBIOBAA 02326000 @NM00111 EQU DCBQSLM 02327000 DCBUPDBT EQU DCBQSLM 02328000 DCBUPDCM EQU DCBQSLM 02329000 DCB1DVDS EQU DCBQSLM 02330000 @NM00110 EQU DCBDSRG2 02331000 DCBDSGTR EQU DCBDSRG2 02332000 DCBACBM EQU DCBDSRG2 02333000 @NM00109 EQU DCBDSRG2 02334000 DCBDSGTQ EQU DCBDSRG2 02335000 DCBDSGTX EQU DCBDSRG2 02336000 DCBDSGGS EQU DCBDSRG2 02337000 DCBDSGU EQU DCBDSRG1 02338000 DCBDSGPO EQU DCBDSRG1 02339000 @NM00108 EQU DCBDSRG1 02340000 @NM00107 EQU DCBDSRG1 02341000 DCBDSGCX EQU DCBDSRG1 02342000 DCBDSGDA EQU DCBDSRG1 02343000 DCBDSGPS EQU DCBDSRG1 02344000 DCBDSGIS EQU DCBDSRG1 02345000 DCBBUFL EQU IHADCS11+8 02346000 DCBBUFCA EQU DCBBUFCB+1 02347000 DCBBUFNO EQU DCBBUFCB 02348000 DCBDEVT EQU DCBREL 02349000 DCBKEYLE EQU DCBRELB 02350000 @NM00106 EQU IHADCB 02351000 BDUXGRPH EQU BDUEXRSP 02352000 BDUXFINL EQU BDUEXRSP 02353000 BDUXERLK EQU BDUBDUFG 02354000 BDUALTAK EQU BDUFNFLG 02355000 BDUNEGAK EQU BDUFNFLG 02356000 BDUPOSAK EQU BDUFNFLG 02357000 BDUTPTX EQU BDUFNFLG 02358000 BDUFRSTB EQU BDUFNFLG 02359000 BDULEADG EQU BDUFNFLG 02360000 BDUHEADR EQU BDUFNFLG 02361000 BDUSTHDR EQU BDUFNFLG 02362000 SAVTLLCB EQU IEDNSVTD+316 02363000 SAVTBITN EQU IEDNSVTD+312 02364000 @NM00105 EQU SAVTCKQB+8 02365000 @NM00104 EQU SAVTCKEC+1 02366000 @NM00103 EQU SAVTCKCC 02367000 SAVTCKPO EQU SAVTCKCC 02368000 SAVTCKWA EQU SAVTCKCC 02369000 SAVTCKCH EQU SAVTCKTB+1 02370000 SAVTCKVT EQU SAVTCKTB 02371000 @NM00102 EQU IEDNSVTD+297 02372000 SAVTRDFG EQU SAVTRDRV+12 02373000 @NM00101 EQU SAVTRDRV+5 02374000 SAVTRDPY EQU SAVTRDRV+4 02375000 SAVTRDQB EQU SAVTRDRV+1 02376000 SAVTRDKY EQU SAVTRDRV 02377000 SAVTNID EQU IEDNSVTD+280 02378000 SAVTDVAS EQU IEDNSVTD+276 02379000 SAVTPLSZ EQU IEDNSVTD+274 02380000 @NM00100 EQU IEDNSVTD+273 02381000 SAVTSUBL EQU IEDNSVTD+272 02382000 @NM00099 EQU SAVTZELM+1 02383000 SAVTSUBM EQU SAVTZELM 02384000 SAVTMHDX EQU IEDNSVTD+268 02385000 SAVTNAT1 EQU IEDNSVTD+266 02386000 SAVTSH20 EQU IEDNSVTD+264 02387000 SAVTRNMP EQU IEDNSVTD+256 02388000 SAVTNAX EQU IEDNSVTD+248 02389000 SAVTSUBV EQU IEDNSVTD+247 02390000 SAVTSUBA EQU IEDNSVTD+246 02391000 SAVTSIBC EQU IEDNSVTD+244 02392000 SAVTBSM EQU IEDNSVTD+240 02393000 SAVTSCPT EQU SAVTTCPU 02394000 SAVTRQTG EQU IEDNSVTD+236 02395000 SAVTRQCH EQU IEDNSVTD+232 02396000 SAVTMAND EQU IEDNSVTD+228 02397000 SAVTSPLN EQU IEDNSVTD+224 02398000 SAVTNADL EQU IEDNSVTD+222 02399000 SAVTNATL EQU IEDNSVTD+220 02400000 SAVTMHTB EQU IEDNSVTD+216 02401000 SAVTSSMH EQU IEDNSVTD+212 02402000 SAVTQRS EQU IEDNSVTD+208 02403000 SAVTRQIN EQU IEDNSVTD+204 02404000 SAVTDFCO EQU IEDNSVTD+200 02405000 SAVTSAO EQU IEDNSVTD+196 02406000 SAVTSAI EQU IEDNSVTD+184 02407000 SAVTCSCI EQU IEDNSVTD+180 02408000 SAVTSSRP EQU IEDNSVTD+176 02409000 SAVTSSRQ EQU IEDNSVTD+172 02410000 SAVTSCLU EQU IEDNSVTD+168 02411000 SAVTXTRQ EQU IEDNSVTD+164 02412000 SAVTMVBF EQU IEDNSVTD+160 02413000 @NM00098 EQU IEDNSVTD+148 02414000 SAVTIPCQ EQU IEDNSVTD+144 02415000 @NM00097 EQU IEDNSVTD+136 02416000 @NM00096 EQU IEDNSVTD+124 02417000 SAVTXFMO EQU IEDNSVTD+120 02418000 @NM00095 EQU IEDNSVTD+116 02419000 SAVTSSSR EQU IEDNSVTD+112 02420000 SAVTSCPQ EQU IEDNSVTD+108 02421000 SAVTSLCB EQU IEDNSVTD+104 02422000 SAVTLUSR EQU IEDNSVTD+100 02423000 @NM00094 EQU SAVTLUSQ+8 02424000 SAVTLUSP EQU SAVTLUSQ+4 02425000 SAVTLUSB EQU SAVTLUSQ 02426000 @NM00093 EQU IEDNSVTD+84 02427000 SAVTSAT EQU IEDNSVTD+80 02428000 SAVTNAT EQU IEDNSVTD+76 02429000 SAVTCLUP EQU IEDNSVTD+72 02430000 SAVTPIUT EQU IEDNSVTD+68 02431000 SAVTRNTA EQU IEDNSVTD+64 02432000 SAVTDNIR EQU IEDNSVTD+60 02433000 SAVTCNIR EQU IEDNSVTD+56 02434000 SAVTFLDH EQU IEDNSVTD+52 02435000 SAVTSRTN EQU IEDNSVTD+48 02436000 SAVTSREQ EQU IEDNSVTD+44 02437000 SAVTFAIL EQU IEDNSVTD+42 02438000 SAVTSUSE EQU IEDNSVTD+40 02439000 SAVTSIB EQU IEDNSVTD+36 02440000 SAVTPRTN EQU IEDNSVTD+32 02441000 @NM00092 EQU IEDNSVTD+28 02442000 SAVTWH20 EQU IEDNSVTD+26 02443000 SAVTPWT EQU IEDNSVTD+24 02444000 SAVTPRTQ EQU IEDNSVTD+20 02445000 SAVTPH20 EQU IEDNSVTD+14 02446000 SAVTPUSE EQU IEDNSVTD+12 02447000 SAVTPLCB EQU IEDNSVTD+8 02448000 SAVTPOOL EQU IEDNSVTD+4 02449000 SAVTPRMT EQU SAVTDIAF 02450000 SAVTVIRT EQU SAVTDIAF 02451000 AVTCPBNO EQU IEDQAVTD+1172 02452000 AVTHRESS EQU IEDQAVTD+1171 02453000 @NM00091 EQU IEDQAVTD+1170 02454000 @NM00090 EQU IEDQAVTD+1169 02455000 @NM00089 EQU IEDQAVTD+1168 02456000 @NM00088 EQU IEDQAVTD+1165 02457000 @NM00087 EQU IEDQAVTD+1164 02458000 AVTHRESE EQU @NM00086 02459000 AVTRADDR EQU IEDQAVTD+1156 02460000 AVTNADDR EQU IEDQAVTD+1152 02461000 AVTHRESN EQU IEDQAVTD+1148 02462000 AVTVOLRN EQU IEDQAVTD+1144 02463000 AVTTOTNN EQU IEDQAVTD+1140 02464000 AVTTRCYN EQU IEDQAVTD+1136 02465000 AVTRCTRN EQU IEDQAVTD+1132 02466000 AVTNOVON EQU IEDQAVTD+1128 02467000 AVTADEBN EQU IEDQAVTD+1124 02468000 AVTVOLRR EQU IEDQAVTD+1120 02469000 AVTTOTNR EQU IEDQAVTD+1116 02470000 AVTTRCYR EQU IEDQAVTD+1112 02471000 AVTRCTRR EQU IEDQAVTD+1108 02472000 AVTNOVOR EQU IEDQAVTD+1104 02473000 AVTADEBR EQU IEDQAVTD+1100 02474000 AVTLODPT EQU IEDQAVTD+1096 02475000 AVTIOBN EQU IEDQAVTD+1092 02476000 AVTIOBR EQU IEDQAVTD+1088 02477000 AVTCPBPT EQU IEDQAVTD+1084 02478000 AVTFCPB EQU IEDQAVTD+1080 02479000 @NM00085 EQU IEDQAVTD+1076 02480000 AVTINCPQ EQU IEDQAVTD+1072 02481000 @NM00084 EQU IEDQAVTD+1068 02482000 @NM00083 EQU IEDQAVTD+1065 02483000 @NM00082 EQU AVTBIT4 02484000 @NM00081 EQU AVTBIT4 02485000 @NM00080 EQU AVTBIT4 02486000 @NM00079 EQU AVTBIT4 02487000 @NM00078 EQU AVTBIT4 02488000 @NM00077 EQU AVTBIT4 02489000 @NM00076 EQU AVTBIT4 02490000 AVTRUFTN EQU AVTBIT4 02491000 @NM00075 EQU IEDQAVTD+1060 02492000 AVTNOBFQ EQU IEDQAVTD+1056 02493000 @NM00074 EQU IEDQAVTD+1052 02494000 AVTDKENQ EQU IEDQAVTD+1048 02495000 @NM00073 EQU IEDQAVTD+1044 02496000 AVTDKAPQ EQU IEDQAVTD+1040 02497000 AVTCOPY EQU IEDQAVTD+1036 02498000 AVTIA EQU IEDQAVTD+1032 02499000 AVTFL EQU IEDQAVTD+1028 02500000 @NM00072 EQU IEDQAVTD+1024 02501000 AVTNCPBQ EQU IEDQAVTD+1020 02502000 AVTTOTNC EQU IEDQAVTD+1016 02503000 AVTCMAX EQU IEDQAVTD+1012 02504000 AVTCMIN EQU IEDQAVTD+1008 02505000 AVTHM02 EQU IEDQAVTD+1004 02506000 AVTOPCIN EQU IEDQAVTD+1002 02507000 AVTDCTLN EQU IEDQAVTD+1000 02508000 AVTOPMSK EQU IEDQAVTD+996 02509000 AVTDDFT EQU IEDQAVTD+992 02510000 AVTOPTN EQU IEDQAVTD+984 02511000 AVTDSKCT EQU IEDQAVTD+982 02512000 AVTCKRST EQU IEDQAVTD+981 02513000 AVTSTAN EQU AVTBIT3 02514000 AVTSTACN EQU AVTBIT3 02515000 AVTSTAIN EQU AVTBIT3 02516000 AVTSTAYN EQU AVTBIT3 02517000 AVTOLTBN EQU AVTBIT3 02518000 AVTTSAB EQU AVTBIT3 02519000 AVTRFULN EQU AVTBIT3 02520000 AVTRECVN EQU AVTBIT3 02521000 @NM00071 EQU AVTBIT2 02522000 @NM00070 EQU AVTBIT2 02523000 AVTOPEIN EQU AVTBIT2 02524000 AVTSTRTN EQU AVTBIT2 02525000 AVTTOPOL EQU AVTBIT2 02526000 AVTCOPYN EQU AVTBIT2 02527000 AVTREUSN EQU AVTBIT2 02528000 AVTEXTSC EQU AVTBIT2 02529000 AVTDISKN EQU AVTBIT1 02530000 AVTQUCKN EQU AVTBIT1 02531000 AVTCLOSN EQU AVTBIT1 02532000 AVTREADN EQU AVTBIT1 02533000 AVTDLAYN EQU AVTBIT1 02534000 AVTAQTAN EQU AVTBIT1 02535000 AVTTSON EQU AVTBIT1 02536000 AVTAPLKN EQU AVTBIT1 02537000 AVTDUMBR EQU IEDQAVTD+976 02538000 AVTDLQX EQU IEDQAVTD+974 02539000 AVTINTLV EQU IEDQAVTD+972 02540000 AVTSMCNT EQU IEDQAVTD+970 02541000 AVTAVFCT EQU IEDQAVTD+968 02542000 AVTOPCON EQU IEDQAVTD+966 02543000 AVTOPCNT EQU IEDQAVTD+964 02544000 AVTLNCNT EQU IEDQAVTD+962 02545000 AVTHA16 EQU IEDQAVTD+958 02546000 AVTHA7 EQU IEDQAVTD+956 02547000 AVTHA4 EQU IEDQAVTD+954 02548000 AVTHA3 EQU IEDQAVTD+952 02549000 AVTHA2 EQU IEDQAVTD+950 02550000 AVTGETMS EQU IEDQAVTD+949 02551000 @NM00069 EQU IEDQAVTD+948 02552000 AVTGETMD EQU IEDQAVTD+944 02553000 AVTGETMN EQU IEDQAVTD+940 02554000 AVTCWTOT EQU IEDQAVTD+936 02555000 AVTCWINT EQU IEDQAVTD+884 02556000 AVTDTRAP EQU IEDQAVTD+880 02557000 @NM00068 EQU IEDQAVTD+878 02558000 @NM00067 EQU AVTIOTR 02559000 AVTIOTRH EQU AVTIOTR 02560000 AVTIOTRE EQU AVTIOTR 02561000 @NM00066 EQU AVTSUBT 02562000 AVTSUBPT EQU AVTSUBT 02563000 AVTSUBON EQU AVTSUBT 02564000 AVTAFE30 EQU IEDQAVTD+872 02565000 AVTAFE20 EQU IEDQAVTD+868 02566000 AVTAFE10 EQU IEDQAVTD+864 02567000 AVTCWEC2 EQU IEDQAVTD+860 02568000 AVTCWPM2 EQU IEDQAVTD+856 02569000 AVTCWTS2 EQU IEDQAVTD+855 02570000 AVTCWTS1 EQU IEDQAVTD+854 02571000 AVTCWCLD EQU AVTCWFL2 02572000 AVTCWRAP EQU AVTCWFL2 02573000 @NM00065 EQU AVTCWFL2 02574000 @NM00064 EQU AVTCWFL2 02575000 @NM00063 EQU AVTCWFL2 02576000 @NM00062 EQU AVTCWFL2 02577000 @NM00061 EQU AVTCWFL2 02578000 AVTCWACT EQU AVTCWFL2 02579000 @NM00060 EQU AVTCWFL1 02580000 @NM00059 EQU AVTCWFL1 02581000 @NM00058 EQU AVTCWFL1 02582000 @NM00057 EQU AVTCWFL1 02583000 @NM00056 EQU AVTCWFL1 02584000 @NM00055 EQU AVTCWFL1 02585000 @NM00054 EQU AVTCWFL1 02586000 AVTCOMWN EQU AVTCWFL1 02587000 AVTCWEC1 EQU IEDQAVTD+848 02588000 AVTCWPM1 EQU IEDQAVTD+844 02589000 AVTCAREA EQU IEDQAVTD+840 02590000 AVTFZERO EQU IEDQAVTD+836 02591000 AVTCADDR EQU IEDQAVTD+832 02592000 AVTCOREC EQU IEDQAVTD+828 02593000 @NM00053 EQU IEDQAVTD+820 02594000 AVTCPBCB EQU IEDQAVTD+816 02595000 @NM00052 EQU IEDQAVTD+808 02596000 AVTDSIOB EQU IEDQAVTD+804 02597000 @NM00051 EQU IEDQAVTD+796 02598000 AVTCPRMB EQU IEDQAVTD+792 02599000 @NM00050 EQU IEDQAVTD+784 02600000 AVTCLOSB EQU IEDQAVTD+780 02601000 @NM00049 EQU IEDQAVTD+772 02602000 AVTACTIB EQU IEDQAVTD+768 02603000 @NM00048 EQU IEDQAVTD+764 02604000 AVTOLTEB EQU IEDQAVTD+760 02605000 AVTOLTCH EQU AVTOLTQB+1 02606000 AVTOLTVT EQU AVTOLTQB 02607000 @NM00047 EQU AVTOPCQB+8 02608000 @NM00046 EQU AVTOPCEC+1 02609000 @NM00045 EQU AVTOPCCC 02610000 AVTOPCPO EQU AVTOPCCC 02611000 AVTOPCWA EQU AVTOPCCC 02612000 AVTOPCCH EQU AVTOPCOB+1 02613000 AVTOPCVT EQU AVTOPCOB 02614000 @NM00044 EQU AVTCKPQB+9 02615000 AVTCKPTS EQU AVTCKPQB+8 02616000 @NM00043 EQU AVTCKPEC+1 02617000 @NM00042 EQU AVTCKPCC 02618000 AVTCKPPO EQU AVTCKPCC 02619000 AVTCKPWA EQU AVTCKPCC 02620000 AVTCKPCH EQU AVTCKPTB+1 02621000 AVTCKPVT EQU AVTCKPTB 02622000 @NM00041 EQU IEDQAVTD+724 02623000 @NM00040 EQU IEDQAVTD+716 02624000 AVTSELCH EQU IEDQAVTD+713 02625000 AVTBFRTN EQU AVTBFRFG 02626000 AVTBFREB EQU IEDQAVTD+708 02627000 AVTTIMQ EQU IEDQAVTD+704 02628000 @NM00039 EQU IEDQAVTD+700 02629000 AVTIMQPS EQU IEDQAVTD+696 02630000 AVTINOUT EQU IEDQAVTD+694 02631000 AVTREFTM EQU IEDQAVTD+692 02632000 @NM00038 EQU IEDQAVTD+680 02633000 AVTDELYB EQU IEDQAVTD+676 02634000 AVTOCQPT EQU IEDQAVTD+672 02635000 AVTTSOPT EQU IEDQAVTD+668 02636000 AVTSUPPT EQU IEDQAVTD+664 02637000 AVTCBQCB EQU IEDQAVTD+660 02638000 @NM00037 EQU AVTSYSER 02639000 @NM00036 EQU AVTSYSER 02640000 @NM00035 EQU AVTSYSER 02641000 @NM00034 EQU AVTSYSER 02642000 @NM00033 EQU AVTSYSER 02643000 @NM00032 EQU AVTSYSER 02644000 AVTCMAXN EQU AVTSYSER 02645000 AVTCMINN EQU AVTSYSER 02646000 AVT2260L EQU IEDQAVTD+652 02647000 AVTABEPL EQU AVTADBUF 02648000 AVTHFF EQU AVTCLRHI+2 02649000 @NM00031 EQU AVTCLRHI 02650000 AVTCCLNK EQU AVTCRELE+5 02651000 AVTCCPRI EQU AVTCRELE+4 02652000 AVTCCQCB EQU AVTCCELE+1 02653000 AVTCCKEY EQU AVTCCELE 02654000 AVTDELAD EQU IEDQAVTD+632 02655000 AVTDELEM EQU IEDQAVTD+628 02656000 AVTBSX EQU AVTCKLNK 02657000 AVTOPETR EQU AVTHG01 02658000 @NM00030 EQU AVTCKBYT 02659000 AVTCKONQ EQU AVTCKBYT 02660000 @NM00029 EQU AVTCKBYT 02661000 @NM00028 EQU AVTCKBYT 02662000 @NM00027 EQU AVTCKBYT 02663000 @NM00026 EQU AVTCKBYT 02664000 @NM00025 EQU AVTCKBYT 02665000 @NM00024 EQU AVTCKBYT 02666000 AVTOPERT EQU IEDQAVTD+618 02667000 AVTOPXCL EQU IEDQAVTD+616 02668000 AVTOPERL EQU IEDQAVTD+615 02669000 @NM00023 EQU IEDQAVTD+614 02670000 AVTCKTIM EQU IEDQAVTD+612 02671000 AVTCKELV EQU IEDQAVTD+610 02672000 AVTCPRCD EQU IEDQAVTD+609 02673000 AVTWARMN EQU AVTCKELF 02674000 AVTCRTLN EQU AVTCKELF 02675000 AVTCPIPN EQU AVTCKELF 02676000 AVTCCLCN EQU AVTCKELF 02677000 AVTCINCN EQU AVTCKELF 02678000 @NM00022 EQU AVTCKELF 02679000 AVTCMCPN EQU AVTCKELF 02680000 AVTNQBCK EQU AVTCKELF 02681000 AVTCKQAD EQU IEDQAVTD+605 02682000 AVTSCBSZ EQU IEDQAVTD+604 02683000 @NM00021 EQU IEDQAVTD+600 02684000 AVTCKELE EQU IEDQAVTD+596 02685000 @NM00020 EQU AVTCKPEL+8 02686000 AVTCKRLK EQU AVTCKPEL+5 02687000 AVTCKRPR EQU AVTCKPEL+4 02688000 AVTCKRMQ EQU AVTCKRMV+1 02689000 AVTCKRKY EQU AVTCKRMV 02690000 AVTHK EQU IEDQAVTD+576 02691000 AVTHI EQU IEDQAVTD+572 02692000 AVTIOT EQU IEDQAVTD+568 02693000 AVTNX EQU IEDQAVTD+564 02694000 AVTTONE EQU IEDQAVTD+560 02695000 AVTA3TL EQU IEDQAVTD+556 02696000 AVTDMECB EQU IEDQAVTD+552 02697000 AVTABEND EQU IEDQAVTD+546 02698000 AVTPLCBN EQU IEDQAVTD+544 02699000 @NM00019 EQU AVTSAVTP+1 02700000 @NM00018 EQU AVTSAVTF 02701000 AVTSNA EQU AVTSAVTF 02702000 AVTONSNA EQU AVTSAVTF 02703000 AVTVTMCP EQU AVTSAVTF 02704000 @NM00017 EQU IEDQAVTD+536 02705000 AVTCMBSS EQU IEDQAVTD+532 02706000 AVTRCV EQU IEDQAVTD+528 02707000 AVTSEND EQU IEDQAVTD+524 02708000 AVTCSCH EQU IEDQAVTD+520 02709000 AVTQ1 EQU IEDQAVTD+516 02710000 AVTE7 EQU IEDQAVTD+512 02711000 AVTHB EQU IEDQAVTD+508 02712000 AVTR1 EQU IEDQAVTD+504 02713000 AVTBZ EQU IEDQAVTD+500 02714000 AVTEZ EQU IEDQAVTD+496 02715000 AVTEC EQU IEDQAVTD+492 02716000 AVTEW EQU IEDQAVTD+488 02717000 AVTNDIAL EQU AVTSCOPT 02718000 AVTN2741 EQU AVTSCOPT 02719000 AVTCONCO EQU AVTSCOPT 02720000 AVTCONC EQU AVTSCOPT 02721000 AVTCMBUF EQU AVTSCOPT 02722000 AVTAPDMP EQU AVTSCOPT 02723000 @NM00016 EQU AVTSCOPT 02724000 AVTHA EQU AVTDISP 02725000 AVTEA EQU IEDQAVTD+476 02726000 AVTAX EQU IEDQAVTD+472 02727000 AVTA3 EQU IEDQAVTD+468 02728000 AVTGD EQU IEDQAVTD+464 02729000 AVTAL EQU IEDQAVTD+460 02730000 AVTOLTST EQU AVTHG02 02731000 AVTE8 EQU IEDQAVTD+452 02732000 AVTUI EQU IEDQAVTD+448 02733000 AVTCOMPT EQU IEDQAVTD+444 02734000 AVTCRSRF EQU IEDQAVTD+440 02735000 @NM00015 EQU IEDQAVTD+436 02736000 AVTKA02 EQU IEDQAVTD+432 02737000 AVTOPTPT EQU IEDQAVTD+428 02738000 AVTPCBPT EQU IEDQAVTD+424 02739000 @NM00014 EQU AVTECB1 02740000 AVTCOMP EQU AVTECB1 02741000 @NM00013 EQU AVTECB1 02742000 AVTOPECA EQU IEDQAVTD+416 02743000 AVTOLECA EQU IEDQAVTD+412 02744000 AVTCKECA EQU IEDQAVTD+408 02745000 AVTCWECA EQU IEDQAVTD+404 02746000 AVTCWTCB EQU IEDQAVTD+400 02747000 AVTOLTCB EQU IEDQAVTD+396 02748000 AVTOCTCB EQU IEDQAVTD+392 02749000 AVTCKTCB EQU IEDQAVTD+388 02750000 AVTAS EQU IEDQAVTD+384 02751000 AVTNOLBF EQU IEDQAVTD+382 02752000 AVTNCKPR EQU IEDQAVTD+381 02753000 AVTCIB EQU IEDQAVTD+380 02754000 AVTSPLPT EQU IEDQAVTD+376 02755000 AVTMVBFR EQU IEDQAVTD+372 02756000 AVTSBTA EQU IEDQAVTD+368 02757000 AVTRARTN EQU IEDQAVTD+364 02758000 AVTBSCAN EQU IEDQAVTD+360 02759000 AVTRDYA EQU IEDQAVTD+356 02760000 AVTDISTR EQU IEDQAVTD+348 02761000 AVTPARM3 EQU IEDQAVTD+344 02762000 @NM00012 EQU AVTPKF 02763000 @NM00011 EQU AVTPKF 02764000 @NM00010 EQU AVTPKF 02765000 AVTFTCHF EQU AVTPKF 02766000 @NM00009 EQU AVTPKF 02767000 @NM00008 EQU AVTPKF 02768000 @NM00007 EQU AVTPKF 02769000 @NM00006 EQU AVTPKF 02770000 AVTPARM EQU IEDQAVTD+336 02771000 AVTEXS2A EQU IEDQAVTD+330 02772000 AVTEXA2S EQU IEDQAVTD+324 02773000 AVTOCGET EQU IEDQAVTD+320 02774000 AVTCKAVT EQU @NM00004+1 02775000 @NM00005 EQU AVTCKFLG 02776000 AVTCKHLT EQU AVTCKFLG 02777000 AVTCKREQ EQU AVTCKFLG 02778000 AVTCKENV EQU AVTCKFLG 02779000 AVTCKNAC EQU AVTCKFLG 02780000 AVTCKTAC EQU AVTCKFLG 02781000 AVTBUENT EQU IEDQAVTD+314 02782000 @NM00003 EQU IEDQAVTD+313 02783000 AVTFULLT EQU AVTBUFSW 02784000 AVTUNCON EQU AVTBUFSW 02785000 @NM00002 EQU AVTBUFSW 02786000 AVTBUFTR EQU AVTREADD 02787000 AVTREADY EQU IEDQAVTD+304 02788000 AVTRACE EQU IEDQAVTD+300 02789000 AVTTCB EQU IEDQAVTD+296 02790000 AVTPASWD EQU IEDQAVTD+288 02791000 AVTCTLCH EQU IEDQAVTD+280 02792000 AVTDOUBL EQU IEDQAVTD+272 02793000 AVTDOUBX EQU IEDQAVTD+264 02794000 AVTDPARM EQU IEDQAVTD+260 02795000 AVTCSTCS EQU IEDQAVTD+256 02796000 AVTDLQ EQU AVTSAVEX+32 02797000 @NM00001 EQU AVTSAVEX 02798000 AVTSAVE4 EQU IEDQAVTD+144 02799000 AVTSAVE3 EQU IEDQAVTD+72 02800000 AVTSAVE2 EQU IEDQAVTD 02801000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02802000 @RF00602 EQU @EL00002 02803000 @RF00612 EQU @EL00002 02804000 @RC00604 EQU @EL00002 02805000 @RC00619 EQU @EL00003 02806000 @RC00640 EQU @EL00003 02807000 @RF00684 EQU @EL00005 02808000 @RC00686 EQU @EL00005 02809000 @RC00713 EQU @EL00008 02810000 @RF00730 EQU @EL00009 02811000 @RF00756 EQU @EL00010 02812000 @RC00779 EQU @EL00011 02813000 @RF00824 EQU @EL00013 02814000 @RF00823 EQU @EL00013 02815000 @RC00847 EQU @RC00834 02816000 @PB00014 EQU @EL00001 02817000 @RT00608 EQU @RC00604 02818000 @RC00606 EQU @RC00604 02819000 @RC00621 EQU @RC00619 02820000 @RF00688 EQU @RC00686 02821000 @RC00784 EQU @RC00779 02822000 @PB00013 EQU @PB00014 02823000 @RC00623 EQU @RC00621 02824000 @PB00012 EQU @PB00013 02825000 @RF00631 EQU @RC00623 02826000 @PB00011 EQU @PB00012 02827000 @PB00010 EQU @PB00011 02828000 @PB00009 EQU @PB00010 02829000 @PB00008 EQU @PB00009 02830000 @PB00007 EQU @PB00008 02831000 @PB00006 EQU @PB00007 02832000 @PB00005 EQU @PB00006 02833000 @PB00004 EQU @PB00005 02834000 @PB00003 EQU @PB00004 02835000 @PB00002 EQU @PB00003 02836000 @RC00570 EQU @PB00002 02837000 @RC00563 EQU @PB00002 02838000 @ENDDATA EQU * 02839000 END IEDSAI,(C'PLS2257',0701,78089) 02840000