TITLE 'IDA121A5--MVM I/O MANAGER ASYNCHRONOUS ROUTINE *00001000 ' 00002000 IDA121A5 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IDA121A5 78.172' 0001 00008000 DROP @15 00009000 @PROLOG BALR @08,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@08 0001 00012000 * RIOMB=R1; /* SAVE POINTER TO IOMB */ 00013000 LR RIOMB,R1 0120 00014000 * IOSBPTR=IOMIOSB; /* ADDRESSING FOR IOSB */ 00015000 L IOSBPTR,IOMIOSB(,RIOMB) 0121 00016000 */********************************************************************/ 00017000 */* IF NOT AN ASYNCH REQUEST, FIND PLH WITH EOV WAIT ON. */ 00018000 */* IF EOV WAITING, SET DEFERRED REQUEST PENDING BIT. @Z30SSMR*/ 00019000 */********************************************************************/ 00020000 * 0122 00021000 * RESPECIFY 0122 00022000 * (RRPL, 0122 00023000 * RPLH, 0122 00024000 * RAMB, 0122 00025000 * RBUFC, 0122 00026000 * R7) RSTD; /* @ZA00960*/ 00027000 * RPLH=IOMPLH; /* PLH ADDRESS */ 00028000 L RPLH,IOMPLH(,RIOMB) 0123 00029000 * RAMB=IOMAMB; /* AMB ADDRESS */ 00030000 L RAMB,IOMAMB(,RIOMB) 0124 00031000 * RBUFC=IOMBUFC; /* BUFC ADDRESS IN REGISTER 4 */ 00032000 L RBUFC,IOMBUFC(,RIOMB) 0125 00033000 * ECBCOD=IOSCOD; /* POST ECB @ZA00960*/ 00034000 L @15,IOMECBPT(,RIOMB) 0126 00035000 MVC ECBCOD(1,@15),IOSCOD(IOSBPTR) 0126 00036000 * IF IOMXEOVW=ON THEN /* EOV WAIT BIT ON @ZA02269*/ 00037000 L @15,IOMUFLD(,RIOMB) 0127 00038000 TM IOMXEOVW(@15),B'01000000' 0127 00039000 BNO @RF00127 0127 00040000 * DO; /* @ZA00960*/ 00041000 * IOMXEOVW=OFF; /* IOMBX EOV WAIT OFF @ZA02269*/ 00042000 NI IOMXEOVW(@15),B'10111111' 0129 00043000 * R7=AMBPH+LENGTH(IDAPLHDR); /* FIRST PLH ENTRY @ZA00960*/ 00044000 LA R7,16 0130 00045000 AL R7,AMBPH(,RAMB) 0130 00046000 * DO UNTIL R7=ZERO; /* CHECK ALL FOR EOV @Z30SSMR*/ 00047000 @DL00131 DS 0H 0132 00048000 * IF R7->PLHEOVW=ON THEN /* PLH FOUND. @ZA00960*/ 00049000 TM PLHEOVW(R7),B'10000000' 0132 00050000 BNO @RF00132 0132 00051000 * DO; /* SEE WHETHER IT IS @Z30SSMR*/ 00052000 * R7->PLHDRPND=ON; /* READY FOR RETRY @Z30SSMR*/ 00053000 OI PLHDRPND(R7),B'00000010' 0134 00054000 * END; /* END PLH FOUND WAITING @Z30SSMR*/ 00055000 * R7=R7->PLHCHAIN; /* CHECK NEXT PLH @Z30SSMR*/ 00056000 @RF00132 L R7,PLHCHAIN(,R7) 0136 00057000 * END; /* @ZA00960*/ 00058000 @DE00131 LTR R7,R7 0137 00059000 BNZ @DL00131 0137 00060000 * IF PLHASYRQ=OFF THEN /* IF CURR REQ IS SYN, @Z30SSMR*/ 00061000 TM PLHASYRQ(RPLH),B'00000100' 0138 00062000 BZ @RT00138 0138 00063000 * RETURN; /* RETURN TO CALLER @Z30SSMR*/ 00064000 * END; /* @ZA00960*/ 00065000 */********************************************************************/ 00066000 */* SET UP REGISTERS FOR BRANCH TO ADDRESS IN PLHARET */ 00067000 */********************************************************************/ 00068000 * 0141 00069000 *EXIT: 0141 00070000 * RESPECIFY 0141 00071000 * (RSAVE, 0141 00072000 * R15) RSTD; 0141 00073000 @RF00127 DS 0H 0141 00074000 EXIT DS 0H 0142 00075000 * RRPL=PLHCRPL; /* RPL ADDR IN REG 1 @ZA02269*/ 00076000 L RRPL,PLHCRPL(,RPLH) 0142 00077000 * RSAVE=ADDR(IOMXR14)-RGSVHDR; /* SET SAVE AREA IN IOMBX@ZA14809*/ 00078000 L @09,IOMUFLD(,RIOMB) 0143 00079000 LA RSAVE,IOMXR14(,@09) 0143 00080000 SL RSAVE,@CF00066 0143 00081000 * IOMXR14=R14; /* SAVE R14 IN IOMBX @ZA14809*/ 00082000 ST R14,IOMXR14(,@09) 0144 00083000 * R15=PLHARET; /* ASYNCH ROUTINE RETURN ADDRESS */ 00084000 L R15,PLHARET(,RPLH) 0145 00085000 * GEN(BR 15); /* BRANCH TO ADDRESS IN PLHARET */ 00086000 BR 15 00087000 */********************************************************************/ 00088000 */* MAINTENANCE SPACE */ 00089000 */********************************************************************/ 00090000 * 0147 00091000 * GEN(DC 50X'00'); 0147 00092000 DC 50X'00' 00093000 * END IDA121A5 0148 00094000 * 0148 00095000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00096000 */*%INCLUDE SYSLIB (IDAAMB ) */ 00097000 */*%INCLUDE SYSLIB (IDAAMBXN) */ 00098000 */*%INCLUDE SYSLIB (IDAIOMB ) */ 00099000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00100000 */*%INCLUDE SYSLIB (IDAPLH ) */ 00101000 * 0148 00102000 * ; 0148 00103000 @EL00001 DS 0H 0148 00104000 @EF00001 DS 0H 0148 00105000 @ER00001 BR @14 0148 00106000 @DATA DS 0H 00107000 @DATD DSECT 00108000 DS 0F 00109000 IDA121A5 CSECT 00110000 DS 0F 00111000 @CF00066 DC F'12' 00112000 @DATD DSECT 00113000 DS 0D 00114000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00115000 @ENDDATD EQU * 00116000 IDA121A5 CSECT 00117000 DS 0F 00118000 @SIZDATD DC AL1(0) 00119000 DC AL3(@ENDDATD-@DATD) 00120000 DS 0D 00121000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00122000 @01 EQU 01 00123000 @02 EQU 02 00124000 @03 EQU 03 00125000 @04 EQU 04 00126000 @05 EQU 05 00127000 @06 EQU 06 00128000 @07 EQU 07 00129000 @08 EQU 08 00130000 @09 EQU 09 00131000 @10 EQU 10 00132000 @11 EQU 11 00133000 @12 EQU 12 00134000 @13 EQU 13 00135000 @14 EQU 14 00136000 @15 EQU 15 00137000 R1 EQU @01 00138000 RRPL EQU @01 00139000 IPIBPTR EQU @02 00140000 RPLH EQU @02 00141000 RAMB EQU @03 00142000 RBUFC EQU @04 00143000 IOSBPTR EQU @05 00144000 R7 EQU @07 00145000 RIOMB EQU @12 00146000 RSAVE EQU @13 00147000 R14 EQU @14 00148000 R15 EQU @15 00149000 RBASE EQU @08 00150000 RW1 EQU @09 00151000 RW2 EQU @10 00152000 RW3 EQU @11 00153000 R0 EQU @00 00154000 ECBCOD EQU 0 00155000 IDAAMB EQU 0 00156000 AMBPH EQU IDAAMB+12 00157000 AMBEOVR EQU IDAAMB+24 00158000 AMBFLG0 EQU AMBEOVR 00159000 AMBFLG1 EQU IDAAMB+25 00160000 AMBDSORG EQU IDAAMB+26 00161000 AMBIOBAD EQU IDAAMB+28 00162000 AMBINFL EQU IDAAMB+42 00163000 AMBDEBPT EQU IDAAMB+44 00164000 AMBOFLGS EQU IDAAMB+48 00165000 AMBFLG2 EQU IDAAMB+49 00166000 AMBEOVPT EQU IDAAMB+56 00167000 AMBCSWD1 EQU IDAAMB+84 00168000 AMBAFLG EQU AMBCSWD1 00169000 IDAAMBXN EQU 0 00170000 AMBXEOV EQU IDAAMBXN 00171000 AMBXCSWD EQU IDAAMBXN+16 00172000 IDAIOMBX EQU 0 00173000 IOMXFLGS EQU IDAIOMBX+1 00174000 IOMXEOVW EQU IOMXFLGS 00175000 IOMXPDET EQU IDAIOMBX+4 00176000 IOMXR14 EQU IDAIOMBX+16 00177000 IOMXRECB EQU IDAIOMBX+20 00178000 IOMXECB EQU IOMXRECB 00179000 IOMXRSLT EQU IOMXECB 00180000 IDAIOMB EQU 0 00181000 IOMBUFC EQU IDAIOMB+4 00182000 IOMPLH EQU IDAIOMB+12 00183000 IOMAMB EQU IDAIOMB+16 00184000 IOMECBPT EQU IDAIOMB+24 00185000 IOMIOSB EQU IDAIOMB+36 00186000 IOMFLAGS EQU IDAIOMB+40 00187000 IOMFL EQU IOMFLAGS 00188000 IOMAPEND EQU IOMFL 00189000 IOMSTIND EQU IOMFLAGS+2 00190000 IOMSAVER EQU IDAIOMB+52 00191000 IOMUFLD EQU IDAIOMB+120 00192000 IOSB EQU 0 00193000 IOSFLA EQU IOSB 00194000 IOSACHN EQU IOSFLA 00195000 IOSFLB EQU IOSB+1 00196000 IOSFLC EQU IOSB+2 00197000 IOSDVALT EQU IOSFLC 00198000 IOSPKEY EQU IOSB+12 00199000 IOSCOD EQU IOSB+13 00200000 IOSOPT EQU IOSB+14 00201000 IOSOPT2 EQU IOSB+15 00202000 @NM00023 EQU IOSB+20 00203000 IOSCSW EQU @NM00023+1 00204000 IOSTATUS EQU IOSCSW+3 00205000 IOSIPIB EQU IOSB+44 00206000 IOSPATH EQU IOSB+86 00207000 IOSCHN EQU IOSPATH 00208000 IOSCKEY EQU IOSB+89 00209000 IOSEEKA EQU IOSB+100 00210000 IOSCCHH EQU IOSEEKA+3 00211000 IOSSKHH EQU IOSCCHH+2 00212000 IDAPLHDR EQU 0 00213000 IDAPLH EQU 0 00214000 PLHFLG1 EQU IDAPLH+2 00215000 PLHEOVW EQU PLHFLG1 00216000 PLHASYRQ EQU PLHFLG1 00217000 PLHDRPND EQU PLHFLG1 00218000 PLHFLG2 EQU IDAPLH+3 00219000 PLHEFLGS EQU IDAPLH+4 00220000 PLHFLG3 EQU IDAPLH+6 00221000 PLHAFLGS EQU IDAPLH+7 00222000 PLHCRPL EQU IDAPLH+20 00223000 PLHCRBA EQU IDAPLH+28 00224000 PLHJORBA EQU PLHCRBA 00225000 PLHJCODE EQU IDAPLH+40 00226000 PLHDIOB EQU IDAPLH+76 00227000 PLHARET EQU IDAPLH+80 00228000 PLHCHAIN EQU IDAPLH+112 00229000 PLHRETO EQU IDAPLH+116 00230000 PLHRET1 EQU IDAPLH+120 00231000 PLHEOVPT EQU IDAPLH+180 00232000 PLHIXSPL EQU IDAPLH+200 00233000 PLHSSRBA EQU PLHIXSPL 00234000 PLHWAX EQU IDAPLH+232 00235000 PLHKEYPT EQU IDAPLH+248 00236000 PLHEND EQU IDAPLH+280 00237000 PLHKEY EQU 0 00238000 PLHPDL EQU 0 00239000 PLHPDLE EQU 0 00240000 PLHRRN EQU 0 00241000 @NM00001 EQU IOSCOD 00242000 IOSATTSC EQU IOSIPIB 00243000 IOSWTOWA EQU IOSIPIB 00244000 IOSPCISC EQU IOSIPIB 00245000 PLHEXTEN EQU PLHEND 00246000 PLHBMWRK EQU PLHEXTEN+5 00247000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00248000 PLHBMSV5 EQU PLHEXTEN+24 00249000 PLHBMSV4 EQU PLHEXTEN+20 00250000 PLHBMSV3 EQU PLHEXTEN+16 00251000 PLHBMSV2 EQU PLHEXTEN+12 00252000 PLHBMSV1 EQU PLHEXTEN+8 00253000 PLHRDCNT EQU PLHEXTEN+6 00254000 PLHBMSOV EQU PLHBMWRK 00255000 PLHBEUC EQU PLHBMWRK 00256000 PLHBMRDF EQU PLHBMWRK 00257000 @NM00036 EQU PLHEXTEN+4 00258000 PLHRESR1 EQU PLHEXTEN 00259000 IOSPCIWA EQU IOSPCISC+44 00260000 IOSPCIRS EQU IOSPCISC+8 00261000 @NM00028 EQU IOSPCISC+4 00262000 @NM00027 EQU IOSPCISC 00263000 IOSWRNDR EQU IOSWTOWA+4 00264000 IOSWTOPT EQU IOSWTOWA+3 00265000 IOSWTOCP EQU IOSWTOWA+2 00266000 IOSWTOCH EQU IOSWTOWA 00267000 IOSATTWA EQU IOSATTSC+40 00268000 @NM00026 EQU IOSATTSC+24 00269000 IOSATTSN EQU IOSATTSC 00270000 ECBCOMP EQU @NM00001 00271000 @NM00002 EQU @NM00001 00272000 PLHERRET EQU IDAPLH+276 00273000 PLHASCB EQU IDAPLH+272 00274000 PLHECB EQU IDAPLH+268 00275000 @NM00035 EQU IDAPLH+265 00276000 PLHDRMSK EQU IDAPLH+264 00277000 PLHR13 EQU IDAPLH+260 00278000 PLHPARM1 EQU IDAPLH+256 00279000 PLHDRRSC EQU IDAPLH+252 00280000 PLHSLRBA EQU IDAPLH+244 00281000 PLHSRCSG EQU IDAPLH+242 00282000 PLHNOSEG EQU IDAPLH+240 00283000 PLHLLOR EQU IDAPLH+236 00284000 PLHXPLH EQU PLHWAX 00285000 @NM00034 EQU PLHIXSPL+8 00286000 PLHIXBFC EQU PLHIXSPL+4 00287000 PLHHIREC EQU PLHSSRBA 00288000 PLHISPLP EQU IDAPLH+196 00289000 PLHRBUFC EQU IDAPLH+192 00290000 PLHIBUFC EQU IDAPLH+188 00291000 PLHNRBA EQU IDAPLH+184 00292000 PLHDDDD EQU PLHEOVPT 00293000 PLHAR14 EQU IDAPLH+176 00294000 @NM00033 EQU IDAPLH+172 00295000 @NM00032 EQU IDAPLH+168 00296000 PLHASAVE EQU IDAPLH+164 00297000 PLHRETOS EQU IDAPLH+118 00298000 PLHAMB EQU IDAPLH+108 00299000 PLHSAVE6 EQU IDAPLH+104 00300000 PLHSAVE5 EQU IDAPLH+100 00301000 PLHSAVE4 EQU IDAPLH+96 00302000 PLHSAVE3 EQU IDAPLH+92 00303000 PLHSAVE2 EQU IDAPLH+88 00304000 PLHSAVE1 EQU IDAPLH+84 00305000 PLHIIOB EQU PLHDIOB 00306000 PLHSRSID EQU IDAPLH+74 00307000 PLHRDFC EQU IDAPLH+72 00308000 PLHRDFP EQU IDAPLH+68 00309000 PLHFSP EQU IDAPLH+64 00310000 PLHRECP EQU IDAPLH+60 00311000 PLHNBUFC EQU IDAPLH+56 00312000 PLHDBUFC EQU IDAPLH+52 00313000 PLHLRECL EQU IDAPLH+48 00314000 PLHARDB EQU IDAPLH+44 00315000 @NM00031 EQU IDAPLH+43 00316000 PLHEOVR EQU IDAPLH+42 00317000 PLHRCODE EQU IDAPLH+41 00318000 PLHUCODE EQU PLHJCODE 00319000 PLHJNRBA EQU IDAPLH+36 00320000 PLHJRNLL EQU IDAPLH+32 00321000 PLHUPECB EQU PLHJORBA 00322000 PLHDSIDA EQU IDAPLH+24 00323000 PLHMRPL EQU IDAPLH+16 00324000 PLHBFRNO EQU IDAPLH+15 00325000 PLHFRCNT EQU IDAPLH+14 00326000 PLHRMIN EQU IDAPLH+13 00327000 PLHDSTYP EQU IDAPLH+12 00328000 PLHACB EQU IDAPLH+8 00329000 PLHRAE EQU PLHAFLGS 00330000 PLHRABWD EQU PLHAFLGS 00331000 PLHIOSID EQU PLHAFLGS 00332000 PLHDBDC EQU PLHAFLGS 00333000 PLHVAMB EQU PLHAFLGS 00334000 PLHIOSRQ EQU PLHAFLGS 00335000 PLHDRLM EQU PLHAFLGS 00336000 PLHEOVDF EQU PLHFLG3 00337000 PLHRVRS EQU PLHFLG3 00338000 PLHBWD EQU PLHFLG3 00339000 PLHSLVLD EQU PLHFLG3 00340000 PLHRAHD EQU PLHFLG3 00341000 PLHSRBSG EQU PLHFLG3 00342000 @NM00030 EQU PLHEFLGS+1 00343000 PLHRSTRT EQU PLHEFLGS+1 00344000 PLHDSCAN EQU PLHEFLGS 00345000 PLHINVAL EQU PLHEFLGS 00346000 PLHEODX EQU PLHEFLGS 00347000 PLHNOADV EQU PLHEFLGS 00348000 PLHSRINV EQU PLHEFLGS 00349000 PLHSKPER EQU PLHEFLGS 00350000 PLH1ST EQU PLHEFLGS 00351000 PLHNOSPC EQU PLHEFLGS 00352000 PLHIWAIT EQU PLHFLG2 00353000 PLHSVADV EQU PLHFLG2 00354000 PLHCIINS EQU PLHFLG2 00355000 PLHKRE EQU PLHFLG2 00356000 PLHADDTE EQU PLHFLG2 00357000 PLHKEYMD EQU PLHFLG2 00358000 PLHSQINS EQU PLHFLG2 00359000 PLHUPD EQU PLHFLG2 00360000 @NM00029 EQU PLHFLG1 00361000 PLHRDEXC EQU PLHFLG1 00362000 PLHSSR EQU PLHFLG1 00363000 PLHASKBF EQU PLHFLG1 00364000 PLHENDRQ EQU PLHFLG1 00365000 PLHATV EQU IDAPLH+1 00366000 PLHAVL EQU IDAPLH 00367000 PLHIOSDQ EQU IDAPLHDR+12 00368000 PLHDRCUR EQU IDAPLHDR+10 00369000 PLHDRMAX EQU IDAPLHDR+8 00370000 PLHDRREQ EQU IDAPLHDR+4 00371000 PLHELTH EQU IDAPLHDR+2 00372000 PLHCNT EQU IDAPLHDR+1 00373000 PLHID EQU IDAPLHDR 00374000 IOSEND EQU IOSB+108 00375000 IOSSKR EQU IOSEEKA+7 00376000 IOSSKH2 EQU IOSSKHH+1 00377000 IOSSKH1 EQU IOSSKHH 00378000 IOSSKCC EQU IOSCCHH 00379000 IOSSKBB EQU IOSEEKA+1 00380000 IOSSKM EQU IOSEEKA 00381000 IOSEEK EQU IOSB+92 00382000 IOSMDM EQU IOSB+91 00383000 IOSMDB EQU IOSB+90 00384000 IOSCKEY7 EQU IOSCKEY 00385000 IOSCKEY6 EQU IOSCKEY 00386000 IOSCKEY5 EQU IOSCKEY 00387000 IOSCKEY4 EQU IOSCKEY 00388000 @NM00025 EQU IOSCKEY 00389000 IOSFMSK EQU IOSB+88 00390000 IOSCUDEV EQU IOSPATH+1 00391000 @NM00024 EQU IOSCHN 00392000 IOSPATH3 EQU IOSCHN 00393000 IOSPATH2 EQU IOSCHN 00394000 IOSEXP EQU IOSCHN 00395000 IOSGDP EQU IOSCHN 00396000 IOSAFF EQU IOSB+85 00397000 IOSRSS1B EQU IOSB+84 00398000 IOSDSID EQU IOSB+80 00399000 IOSVST EQU IOSB+76 00400000 IOSRST EQU IOSB+72 00401000 IOSDIE EQU IOSB+68 00402000 IOSABN EQU IOSB+64 00403000 IOSNRM EQU IOSB+60 00404000 IOSPCI EQU IOSB+56 00405000 IOSERP EQU IOSB+52 00406000 IOSPCHN EQU IOSB+48 00407000 IOSSNS EQU IOSB+42 00408000 IOSAPMSK EQU IOSB+40 00409000 IOSRES4A EQU IOSB+36 00410000 IOSUSE EQU IOSB+32 00411000 IOSSRB EQU IOSB+28 00412000 IOSCSWRC EQU IOSCSW+5 00413000 IOSTSB EQU IOSTATUS+1 00414000 IOSTSA EQU IOSTATUS 00415000 IOSCSWCA EQU IOSCSW 00416000 IOSCC EQU @NM00023 00417000 IOSUCB EQU IOSB+16 00418000 IOSOPT2X EQU IOSOPT2 00419000 IOSIGP EQU IOSOPT2 00420000 IOSHTP EQU IOSOPT2 00421000 IOSRELSE EQU IOSOPT 00422000 IOSAPR EQU IOSOPT 00423000 IOSTSLL EQU IOSOPT 00424000 IOSNERP EQU IOSOPT 00425000 IOSPSLL EQU IOSOPT 00426000 IOSQISCE EQU IOSOPT 00427000 IOSDEP EQU IOSOPT 00428000 IOSBYP EQU IOSOPT 00429000 IOSPKY7 EQU IOSPKEY 00430000 IOSPGDPX EQU IOSPKEY 00431000 IOSIDR EQU IOSPKEY 00432000 IOSLCL EQU IOSPKEY 00433000 @NM00022 EQU IOSPKEY 00434000 IOSPGAD EQU IOSB+8 00435000 IOSASID EQU IOSB+6 00436000 IOSPRLVL EQU IOSB+5 00437000 IOSDVRID EQU IOSB+4 00438000 IOSPROC EQU IOSB+3 00439000 IOSFLC7 EQU IOSFLC 00440000 IOSCTCNR EQU IOSFLC 00441000 IOSRWAIT EQU IOSFLC 00442000 IOSTP EQU IOSFLC 00443000 IOSCC3WE EQU IOSFLC 00444000 IOSVERIF EQU IOSDVALT 00445000 IOSDVMNT EQU IOSFLC 00446000 IOSLOG EQU IOSFLB 00447000 IOSBDCST EQU IOSFLB 00448000 IOSMSG EQU IOSFLB 00449000 IOSFLB4 EQU IOSFLB 00450000 IOSFLB3 EQU IOSFLB 00451000 IOSNOTRS EQU IOSFLB 00452000 IOSSDR EQU IOSFLB 00453000 IOSDIESE EQU IOSFLB 00454000 IOSIOSB EQU IOSFLA 00455000 IOSDOM EQU IOSFLA 00456000 IOSEX EQU IOSFLA 00457000 IOSSMDB EQU IOSFLA 00458000 IOSSMDA EQU IOSFLA 00459000 IOSERR EQU IOSFLA 00460000 IOSCCHN EQU IOSACHN 00461000 IOSDCHN EQU IOSACHN 00462000 IOMNXT1 EQU IDAIOMB+116 00463000 IOMSAVEF EQU IOMSAVER+60 00464000 IOMSAVEE EQU IOMSAVER+56 00465000 IOMSAVED EQU IOMSAVER+52 00466000 IOMSAVEC EQU IOMSAVER+48 00467000 IOMSAVEB EQU IOMSAVER+44 00468000 IOMSAVEA EQU IOMSAVER+40 00469000 IOMSAVE9 EQU IOMSAVER+36 00470000 IOMSAVE8 EQU IOMSAVER+32 00471000 IOMSAVE7 EQU IOMSAVER+28 00472000 IOMSAVE6 EQU IOMSAVER+24 00473000 IOMSAVE5 EQU IOMSAVER+20 00474000 IOMSAVE4 EQU IOMSAVER+16 00475000 IOMSAVE3 EQU IOMSAVER+12 00476000 IOMSAVE2 EQU IOMSAVER+8 00477000 IOMSAVE1 EQU IOMSAVER+4 00478000 IOMSAVE0 EQU IOMSAVER 00479000 IOMNSEG EQU IDAIOMB+50 00480000 IOMNBUF EQU IDAIOMB+48 00481000 IOMNMOD EQU IDAIOMB+46 00482000 IOMLOCK EQU IDAIOMB+45 00483000 IOMPFERR EQU IDAIOMB+44 00484000 IOMCKEY EQU IDAIOMB+43 00485000 @NM00021 EQU IOMSTIND 00486000 IOMSRBM EQU IOMSTIND 00487000 IOMSLOC EQU IOMSTIND 00488000 IOMLLOCK EQU IOMSTIND 00489000 IOMEOVXC EQU IOMSTIND 00490000 IOMEOVTS EQU IOMSTIND 00491000 IOMEOVW EQU IOMSTIND 00492000 IOMAMUSE EQU IOMSTIND 00493000 @NM00020 EQU IOMFL+1 00494000 IOMIRBSW EQU IOMFL+1 00495000 IOMEEXIT EQU IOMFL+1 00496000 @NM00019 EQU IOMFL+1 00497000 IOMCPRB EQU IOMFL+1 00498000 IOMDDR EQU IOMFL+1 00499000 IOMCSW EQU IOMFL 00500000 IOMPGFIX EQU IOMFL 00501000 IOMADERR EQU IOMFL 00502000 IOMCBERR EQU IOMFL 00503000 @NM00018 EQU IOMFL 00504000 IOMPURGE EQU IOMFL 00505000 IOMAE EQU IOMAPEND 00506000 IOMNE EQU IOMAPEND 00507000 IOMPGAD EQU IDAIOMB+32 00508000 IOMVSL EQU IDAIOMB+28 00509000 IOMIQE EQU IDAIOMB+20 00510000 IOMCPA EQU IDAIOMB+8 00511000 IOMBID EQU IDAIOMB 00512000 IOMXRBPT EQU IOMXECB+1 00513000 IOMXIOCC EQU IOMXRSLT 00514000 IOMXPOST EQU IOMXRSLT 00515000 IOMXWAIT EQU IOMXECB 00516000 IOMXRPL EQU IOMXPDET+8 00517000 IOMXR13S EQU IOMXPDET+4 00518000 IOMXBFLG EQU IOMXPDET 00519000 @NM00017 EQU IOMXFLGS 00520000 IOMXSCAN EQU IOMXFLGS 00521000 IOMXUSE EQU IOMXFLGS 00522000 IOMXLOCK EQU IDAIOMBX 00523000 AMBXBM2S EQU IDAAMBXN+20 00524000 AMBXRDCT EQU AMBXCSWD+2 00525000 @NM00016 EQU AMBXCSWD 00526000 AMBXECB EQU IDAAMBXN+12 00527000 AMBXASCB EQU IDAAMBXN+8 00528000 @NM00015 EQU AMBXEOV+7 00529000 AMBXEVRC EQU AMBXEOV+6 00530000 AMBXEOVR EQU AMBXEOV+5 00531000 AMBXRSC EQU AMBXEOV+4 00532000 AMBXEVPT EQU AMBXEOV 00533000 AMBTRACE EQU IDAAMB+120 00534000 AMBVIOT EQU IDAAMB+116 00535000 AMBSZCP EQU IDAAMB+114 00536000 AMBSZFW EQU IDAAMB+112 00537000 AMBSZWR EQU IDAAMB+110 00538000 AMBSZRD EQU IDAAMB+108 00539000 AMBEXEX EQU IDAAMB+100 00540000 AMBWSHD EQU IDAAMB+96 00541000 AMBCPA EQU IDAAMB+92 00542000 AMBBM2SH EQU IDAAMB+88 00543000 AMBRDCNT EQU AMBCSWD1+2 00544000 @NM00014 EQU AMBCSWD1+1 00545000 @NM00013 EQU AMBAFLG 00546000 AMBCFX EQU AMBAFLG 00547000 AMBSIS EQU AMBAFLG 00548000 AMBDFR EQU AMBAFLG 00549000 AMBICI EQU AMBAFLG 00550000 AMBGSR EQU AMBAFLG 00551000 AMBLSR EQU AMBAFLG 00552000 @NM00012 EQU AMBAFLG 00553000 AMBUPLH EQU IDAAMB+80 00554000 AMBPAMBL EQU IDAAMB+76 00555000 AMBPIXP EQU IDAAMB+72 00556000 @NM00011 EQU IDAAMB+68 00557000 AMBIWA EQU IDAAMB+64 00558000 AMBWKA EQU IDAAMB+60 00559000 AMBAMBXN EQU AMBEOVPT 00560000 AMBEDB EQU IDAAMB+52 00561000 AMBRPT EQU IDAAMB+50 00562000 AMBPUG EQU AMBFLG2 00563000 AMBBUSY EQU AMBOFLGS 00564000 AMBEXFG EQU AMBOFLGS 00565000 @NM00010 EQU AMBOFLGS 00566000 AMBOPEN EQU AMBOFLGS 00567000 @NM00009 EQU AMBOFLGS 00568000 AMBDEBAD EQU AMBDEBPT+1 00569000 AMBIFLGS EQU AMBDEBPT 00570000 AMBAMETH EQU IDAAMB+43 00571000 AMBUPX EQU AMBINFL 00572000 AMBUCRA EQU AMBINFL 00573000 AMBSCRA EQU AMBINFL 00574000 AMBCAT EQU AMBINFL 00575000 @NM00008 EQU AMBINFL 00576000 @NM00007 EQU AMBINFL 00577000 AMBTIOT EQU IDAAMB+40 00578000 @NM00006 EQU IDAAMB+38 00579000 AMBDDSN EQU IDAAMB+35 00580000 AMBCDSN EQU IDAAMB+32 00581000 AMBIOMB EQU AMBIOBAD 00582000 @NM00005 EQU AMBDSORG+1 00583000 AMBDORGA EQU AMBDSORG+1 00584000 @NM00004 EQU AMBDSORG 00585000 AMBINBUF EQU AMBFLG1 00586000 AMBJRN EQU AMBFLG1 00587000 AMBUBF EQU AMBFLG1 00588000 AMBSPEED EQU AMBFLG1 00589000 AMBPCAT EQU AMBFLG1 00590000 AMBMCAT EQU AMBFLG1 00591000 AMBTYPE EQU AMBFLG1 00592000 AMBCREAT EQU AMBFLG1 00593000 @NM00003 EQU AMBFLG0 00594000 AMBPSDS EQU AMBFLG0 00595000 AMBDSB EQU IDAAMB+20 00596000 AMBCACB EQU IDAAMB+16 00597000 AMBBUFC EQU IDAAMB+8 00598000 AMBLINK EQU IDAAMB+4 00599000 AMBLEN EQU IDAAMB+2 00600000 AMBRSC EQU IDAAMB+1 00601000 AMBID EQU IDAAMB 00602000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00603000 @RT00138 EQU @EL00001 00604000 @ENDDATA EQU * 00605000 END IDA121A5,(C'PLS2236',0701,78172) 00606000