TITLE 'IGG019LS,3886 CHECK MODULE *00001000 ' 00002000 IGG019LS CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 ODDSADSP EQU 20 SAVE AREA DISP FOR STM 00005000 ZERO EQU 0 ZERO EQUATE 00006000 STM RETR,WRKR3,ODDSADSP(SAVR) SAVE USER REGS 00007000 BALR BASR,ZERO SETUP BASE REG 00008000 CHCK3886 DS 0H 00009000 USING CHCK3886,BASR ESTABLISH ADDRESSABILITY 00010000 * DECBR=PARR; /* LOAD DECB ADDR FROM REG 1 */ 00011000 LR DECBR,PARR 0031 00012000 * IOBR=DECIOBPT; /* LOAD IOB ADDR */ 00013000 L IOBR,DECIOBPT(,DECBR) 0032 00014000 * DCBR=DECDCBAD; /* LOAD PTR TO DCB */ 00015000 L DCBR,DECDCBAD(,DECBR) 0033 00016000 */* WAIT FOR COMPLETION OF READ COMMAND */ 00017000 * 0034 00018000 * DO WHILE(ECBBYT=NOTCOMPL); /* IF READ NOT COMPL,WAIT */ 00019000 B @DE00034 0034 00020000 @DL00034 DS 0H 0035 00021000 * GEN; 0035 00022000 WAIT ECB=(1) WAIT ON ECB 00023000 * END; 0036 00024000 * 0036 00025000 @DE00034 TM ECBBYT(DECBR),B'01111111' 0036 00026000 BZ @DL00034 0036 00027000 */* CALL PROBLEM DETERMINATION FOR INVALID DECB */ 00028000 * 0037 00029000 * IF DECRDSF=OFF| /* RBL TYPE READ */ 00030000 * DECWRSFR=OFF /* */ 00031000 * THEN /* YES,GOTO PROBLEM DETERMNTN */ 00032000 TM DECRDSF(DECBR),B'10000001' 0037 00033000 BO @RF00037 0037 00034000 * DO; 0038 00035000 * GEN; 0039 00036000 DMABCOND 201,DCB=(DCBR),SVC=YES 00037000 * END; 0040 00038000 * IF DECAREA=NOADDR| /* LIST-EXECUTE AND NO ADDRES */ 00039000 * DECBHDRA=NOADDR /* */ 00040000 * THEN /* YES,GOTO PROB DETERMINATN */ 00041000 @RF00037 SLR @07,@07 0041 00042000 C @07,DECAREA(,DECBR) 0041 00043000 BE @RT00041 0041 00044000 C @07,DECBHDRA(,DECBR) 0041 00045000 BNE @RF00041 0041 00046000 @RT00041 DS 0H 0042 00047000 * DO; 0042 00048000 * GEN; 0043 00049000 DMABCOND 200,DCB=(DCBR),SVC=YES 00050000 * END; 0044 00051000 * 0044 00052000 */* FOR GOOD COMPLETION OF ECB MOVE DATA TO USER */ 00053000 * 0045 00054000 * IF ECBBYT=GOODEND /* READ HAD GOOD COMPLETION */ 00055000 * THEN /* YES,MOVE DATA TO USER */ 00056000 @RF00041 TM ECBBYT(DECBR),B'01111111' 0045 00057000 BNO @RF00045 0045 00058000 */* */ 00059000 */* MOVERTN SEGMENT-MOVES THE DATA TO THE USERS DATA AREA AND CONTROL*/ 00060000 */* INFORMATION TO THE USER'S HEADER AREA */ 00061000 */* */ 00062000 * 0046 00063000 *MOVERTN: /* LABEL FOR MOVE ROUTINE */ 00064000 * DO; 0046 00065000 MOVERTN DS 0H 0047 00066000 * USERDATA(1:DCBBLKSI)=DATA3886;/* MOVE DATA TO USERS AREA */ 00067000 L @07,DECAREA(,DECBR) 0047 00068000 LH @06,DCBBLKSI+52(,DCBR) 0047 00069000 BCTR @06,0 0047 00070000 EX @06,@SM00679 0047 00071000 * USERHDR=HDR3886; /* GIVE USER HEADER */ 00072000 L @07,DECBHDRA(,DECBR) 0048 00073000 MVC USERHDR(20,@07),HDR3886(IOBR) 0048 00074000 * IF LII3886=ENDOFPAG /* END OF PAGE IN HEADER */ 00075000 * THEN /* YES TURN ON EOP BIT */ 00076000 CLI LII3886(IOBR),C'5' 0049 00077000 BNE @RF00049 0049 00078000 * DCBEOPFG=ON; /* IN DCB */ 00079000 OI DCBEOPFG+4(DCBR),B'10000000' 0050 00080000 * DRCD3886=DRCD3886&&DRCD3886;/* ZERO OUT INPUT AREA */ 00081000 @RF00049 XC DRCD3886(150,IOBR),DRCD3886(IOBR) 0051 00082000 * RETR=SAVE14; /* HAVE RETURN INLINE AFTER CHECK 00083000 * MACRO */ 00084000 L RETR,SAVE14(,SAVR) 0052 00085000 * END; 0053 00086000 * ELSE /* NO,PROCESS ERROR CONDITION */ 00087000 */* */ 00088000 */* ERRCOND SEGMENT-ISSUES EOV MACRO(SVC 55),BALR TO SYNAD FOR PERM */ 00089000 */* ERRORS,REISSUE EOV MACRO TO FLIP FLAGS */ 00090000 */* */ 00091000 * 0054 00092000 *ERRCOND: /* LABEL FOR ERROR CONDITION */ 00093000 * DO; 0054 00094000 B @RC00045 0054 00095000 @RF00045 DS 0H 0054 00096000 ERRCOND DS 0H 0055 00097000 * SYNADR=IOBR-EIGHT; /* LOAD REG 0 FOR IGG0005E 0055 00098000 * POINTING TO THE SAM IOB */ 00099000 LR SYNADR,IOBR 0055 00100000 SH SYNADR,@CH00050 0055 00101000 * PARR=DCBR; /* SETUP DCB POINTER */ 00102000 LR PARR,DCBR 0056 00103000 * GEN; 0057 00104000 ODSADSP3 EQU 64 DISPLACEMENT TO END OF SAVE AREA 00105000 STM SYNADR,PARR,ODSADSP3(SAVR) SAVE DCB AND IOB POINTERS 00106000 EOV ZERO(PARR) GOTO SYNAD/EOV PROCESSOR 00107000 * CALL SYNADRTN; /* GEN BALR TO SYNAD ROUTINE */ 00108000 BALR @14,@15 0058 00109000 * GEN; 0059 00110000 LA ENTR,ZERO(ENTR) ZERO HIGH ORDER BYTE OF REG 15 00111000 * CHKRG8=ENTR; /* SAVE CONTENTS OF REG 15 -SYNAD 00112000 * WILL INDICATE ACTN */ 00113000 ST ENTR,CHKRG8(,SAVR) 0060 00114000 * GEN; 0061 00115000 LM SYNADR,PARR,ODSADSP3(SAVR) RESTORE DCB AND IOB FOR EOV 00116000 EOV ZERO(PARR) GOTO RESOLVE PURGED IOB S 00117000 * IF WRKR3^=ZEROREG&WRKR3^=DCBSYNA/* TST IF CNAD SUP BC ADDR */ 00118000 * THEN /* YES, */ 00119000 LTR WRKR3,WRKR3 0062 00120000 BZ @RF00062 0062 00121000 SLR @07,@07 0062 00122000 ICM @07,7,DCBSYNA+52(DCBR) 0062 00123000 CR WRKR3,@07 0062 00124000 BE @RF00062 0062 00125000 * RETR=WRKR3; /* PUT ADDR IN RETURN REG */ 00126000 LR RETR,WRKR3 0063 00127000 * ELSE /* NO, */ 00128000 * RETR=SAVE14; /* GET ADD AFTER CHECK */ 00129000 B @RC00062 0064 00130000 @RF00062 L RETR,SAVE14(,SAVR) 0064 00131000 * END; 0065 00132000 @RC00062 DS 0H 0066 00133000 * GEN; 0066 00134000 @RC00045 DS 0H 0066 00135000 ODSADSP2 EQU 24 DISPLACEMENT TO REG 15 00136000 LM ENTR,WRKR3,ODSADSP2(SAVR) RESTORE USER REGS 00137000 * END IGG019LS 0067 00138000 * 0067 00139000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00140000 */*%INCLUDE SYSUT5 (TOPSEGMT) */ 00141000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00142000 */*%INCLUDE SYSUT5 (DECLARES) */ 00143000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00144000 */*%INCLUDE SYSLIB (IHADCB ) */ 00145000 */*%INCLUDE SYSLIB (IHADECB ) */ 00146000 */*%INCLUDE SYSUT5 (DCLREGCT) */ 00147000 */*%INCLUDE SYSUT5 (MOVERTN ) */ 00148000 */*%INCLUDE SYSUT5 (ERRCOND ) */ 00149000 * 0067 00150000 * ; 0067 00151000 @EL00001 DS 0H 0067 00152000 @EF00001 DS 0H 0067 00153000 @ER00001 BR @14 0067 00154000 @DATA DS 0H 00155000 @CH00050 DC H'8' 00156000 @SM00679 MVC USERDATA(0,@07),DATA3886(IOBR) 00157000 DS 0F 00158000 DS 0F 00159000 DS 0D 00160000 MTAREA DS CL100 00161000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00162000 @01 EQU 01 00163000 @02 EQU 02 00164000 @03 EQU 03 00165000 @04 EQU 04 00166000 @05 EQU 05 00167000 @06 EQU 06 00168000 @07 EQU 07 00169000 @08 EQU 08 00170000 @09 EQU 09 00171000 @10 EQU 10 00172000 @11 EQU 11 00173000 @12 EQU 12 00174000 @13 EQU 13 00175000 @14 EQU 14 00176000 @15 EQU 15 00177000 DCBR EQU @02 00178000 DECBR EQU @04 00179000 IOBR EQU @03 00180000 ENTR EQU @15 00181000 SAVR EQU @13 00182000 SYNADR EQU @00 00183000 PARR EQU @01 00184000 BASR EQU @05 00185000 WRKR3 EQU @08 00186000 REG9 EQU @09 00187000 REG10 EQU @10 00188000 REG11 EQU @11 00189000 REG12 EQU @12 00190000 RETR EQU @14 00191000 R6 EQU @06 00192000 R7 EQU @07 00193000 IHADCB EQU 0 00194000 IHADCS07 EQU 0 00195000 DCBWTOID EQU IHADCS07 00196000 IHADCS08 EQU 0 00197000 DCBERRCN EQU IHADCS08 00198000 DCBERRCA EQU DCBERRCN+1 00199000 DCBORFLG EQU DCBERRCA+1 00200000 DCBEOPFG EQU DCBORFLG 00201000 DCBDSPLY EQU IHADCS08+4 00202000 DCBFRID EQU DCBDSPLY 00203000 DCBRESCN EQU IHADCS08+8 00204000 DCBRDLNE EQU DCBRESCN 00205000 DCBFRTBA EQU DCBRDLNE 00206000 DCBRESCA EQU DCBFRTBA+1 00207000 DCBORBYT EQU IHADCS08+12 00208000 DCBEIB EQU IHADCS08+14 00209000 IHADCS11 EQU 0 00210000 DCBRELB EQU IHADCS11 00211000 DCBREL EQU DCBRELB+1 00212000 DCBBUFCB EQU IHADCS11+4 00213000 DCBDSORG EQU IHADCS11+10 00214000 DCBDSRG1 EQU DCBDSORG 00215000 DCBDSRG2 EQU DCBDSORG+1 00216000 DCBIOBAD EQU IHADCS11+12 00217000 DCBODEB EQU DCBIOBAD 00218000 DCBLNP EQU DCBODEB 00219000 DCBQSLM EQU DCBLNP 00220000 DCBIOBAA EQU DCBODEB+1 00221000 IHADCS50 EQU 0 00222000 DCBSVCXL EQU IHADCS50 00223000 DCBEODAD EQU IHADCS50+4 00224000 DCBBFALN EQU DCBEODAD 00225000 DCBHIARC EQU DCBBFALN 00226000 DCBBFTEK EQU DCBHIARC 00227000 DCBBFT EQU DCBBFTEK 00228000 DCBEXLST EQU IHADCS50+8 00229000 DCBRECFM EQU DCBEXLST 00230000 DCBRECLA EQU DCBRECFM 00231000 IHADCS24 EQU 0 00232000 DCBOFLGS EQU IHADCS24+8 00233000 DCBOFLWR EQU DCBOFLGS 00234000 DCBIFLG EQU IHADCS24+9 00235000 DCBMACR EQU IHADCS24+10 00236000 DCBMACR1 EQU DCBMACR 00237000 DCBMRFE EQU DCBMACR1 00238000 DCBMRGET EQU DCBMRFE 00239000 DCBMRAPG EQU DCBMACR1 00240000 DCBMRRD EQU DCBMRAPG 00241000 DCBMRCI EQU DCBMACR1 00242000 DCBMRMVG EQU DCBMRCI 00243000 DCBMRLCG EQU DCBMACR1 00244000 DCBMRABC EQU DCBMACR1 00245000 DCBMRPT1 EQU DCBMRABC 00246000 DCBMRSBG EQU DCBMRPT1 00247000 DCBMRCRL EQU DCBMACR1 00248000 DCBMRCHK EQU DCBMRCRL 00249000 DCBMRRDX EQU DCBMRCHK 00250000 DCBMRDMG EQU DCBMACR1 00251000 DCBMACR2 EQU DCBMACR+1 00252000 DCBMRPUT EQU DCBMACR2 00253000 DCBMRWRT EQU DCBMACR2 00254000 DCBMRMVP EQU DCBMACR2 00255000 DCBMR5WD EQU DCBMACR2 00256000 DCBMRLDM EQU DCBMR5WD 00257000 DCBMRLCP EQU DCBMRLDM 00258000 DCBMR4WD EQU DCBMACR2 00259000 DCBMRPT2 EQU DCBMR4WD 00260000 DCBMRTMD EQU DCBMRPT2 00261000 DCBMR3WD EQU DCBMACR2 00262000 DCBMRCTL EQU DCBMR3WD 00263000 DCBMRSTK EQU DCBMRCTL 00264000 DCBMR1WD EQU DCBMACR2 00265000 DCBMRSWA EQU DCBMR1WD 00266000 DCBMRDMD EQU DCBMRSWA 00267000 IHADCS25 EQU 0 00268000 DCBMACRF EQU IHADCS25+2 00269000 DCBMACF1 EQU DCBMACRF 00270000 DCBMFFE EQU DCBMACF1 00271000 DCBMFGET EQU DCBMFFE 00272000 DCBMFAPG EQU DCBMACF1 00273000 DCBMFRD EQU DCBMFAPG 00274000 DCBMFCI EQU DCBMACF1 00275000 DCBMFMVG EQU DCBMFCI 00276000 DCBMFLCG EQU DCBMACF1 00277000 DCBMFABC EQU DCBMACF1 00278000 DCBMFPT1 EQU DCBMFABC 00279000 DCBMFSBG EQU DCBMFPT1 00280000 DCBMFCRL EQU DCBMACF1 00281000 DCBMFCHK EQU DCBMFCRL 00282000 DCBMFDMG EQU DCBMACF1 00283000 DCBMACF2 EQU DCBMACRF+1 00284000 DCBMFPUT EQU DCBMACF2 00285000 DCBMFWRT EQU DCBMACF2 00286000 DCBMFMVP EQU DCBMACF2 00287000 DCBMF5WD EQU DCBMACF2 00288000 DCBMFLDM EQU DCBMF5WD 00289000 DCBMFLCP EQU DCBMFLDM 00290000 DCBMF4WD EQU DCBMACF2 00291000 DCBMFPT2 EQU DCBMF4WD 00292000 DCBMFTMD EQU DCBMFPT2 00293000 DCBMF3WD EQU DCBMACF2 00294000 DCBMFCTL EQU DCBMF3WD 00295000 DCBMFSTK EQU DCBMFCTL 00296000 DCBMF1WD EQU DCBMACF2 00297000 DCBMFSWA EQU DCBMF1WD 00298000 DCBMFDMD EQU DCBMFSWA 00299000 DCBDEBAD EQU IHADCS25+4 00300000 DCBIFLGS EQU DCBDEBAD 00301000 IHADCS26 EQU 0 00302000 DCBWRITE EQU IHADCS26 00303000 DCBREAD EQU DCBWRITE 00304000 DCBWRITA EQU DCBREAD+1 00305000 IHADCS27 EQU 0 00306000 DCBGET EQU IHADCS27 00307000 DCBPUT EQU DCBGET 00308000 DCBGETA EQU DCBPUT+1 00309000 IHADCS36 EQU 0 00310000 DCBGERR EQU IHADCS36 00311000 DCBPERR EQU DCBGERR 00312000 DCBCHECK EQU DCBPERR 00313000 DCBOPTCD EQU DCBCHECK 00314000 DCBOPTH EQU DCBOPTCD 00315000 DCBOPTO EQU DCBOPTH 00316000 DCBOPTZ EQU DCBOPTCD 00317000 DCBGERRA EQU DCBCHECK+1 00318000 DCBPERRA EQU DCBGERRA 00319000 DCBSYNAD EQU IHADCS36+4 00320000 DCBSYNA EQU DCBSYNAD+1 00321000 DCBCIND1 EQU IHADCS36+8 00322000 DCBCIND2 EQU IHADCS36+9 00323000 DCBBLKSI EQU IHADCS36+10 00324000 DCBIOBA EQU IHADCS36+16 00325000 DCBCICB EQU DCBIOBA 00326000 IHADCS52 EQU 0 00327000 DCBDIRCT EQU IHADCS52 00328000 DCBQSWS EQU DCBDIRCT 00329000 DCBUSASI EQU DCBQSWS 00330000 DCBQADFS EQU DCBUSASI 00331000 DCBBUFOF EQU DCBDIRCT+1 00332000 IHADCS37 EQU 0 00333000 DCBFLAG1 EQU IHADCS37 00334000 IHADCS38 EQU 0 00335000 DCBEOBR EQU IHADCS38 00336000 DCBPOINT EQU IHADCS38+12 00337000 DCBCNTRL EQU DCBPOINT 00338000 IHADCS40 EQU 0 00339000 DCBEOBAD EQU IHADCS40 00340000 DCBCCCW EQU IHADCS40+4 00341000 DCBRECAD EQU DCBCCCW 00342000 DCBRECBT EQU DCBRECAD 00343000 DCBRCREL EQU DCBRECBT 00344000 @NM00031 EQU IHADCS40+12 00345000 DCBEROPT EQU @NM00031 00346000 DECB EQU 0 00347000 DECSDECB EQU DECB 00348000 DECBPTR EQU DECB+4 00349000 DECTYPE EQU DECBPTR 00350000 DECTYPE1 EQU DECTYPE 00351000 DECTYPE2 EQU DECTYPE+1 00352000 DECRDSF EQU DECTYPE2 00353000 DECWRSFR EQU DECTYPE2 00354000 DECDCBAD EQU DECB+8 00355000 DECAREA EQU DECB+12 00356000 DECIOBPT EQU DECB+16 00357000 DECNEXT EQU DECB+20 00358000 DECBS01 EQU 0 00359000 DECBECB EQU DECBS01 00360000 DECBRB EQU DECBECB 00361000 DECBECBF EQU DECBRB 00362000 DECBTYP1 EQU DECBS01+4 00363000 DECBTYP2 EQU DECBS01+5 00364000 DECBEXC1 EQU DECBS01+24 00365000 DECBEXC2 EQU DECBS01+25 00366000 DECBS02 EQU 0 00367000 @NM00035 EQU DECBS02 00368000 DECCC2 EQU @NM00035+1 00369000 DECCC3 EQU @NM00035+2 00370000 @NM00037 EQU DECBS02+4 00371000 @NM00038 EQU @NM00037 00372000 @NM00039 EQU @NM00037+1 00373000 DECTYPRU EQU @NM00039 00374000 DECNA EQU DECBS02+28 00375000 DECBS03 EQU 0 00376000 DECCPOL EQU DECBS03+20 00377000 @NM00047 EQU DECBS03+36 00378000 DECBS04 EQU 0 00379000 @NM00050 EQU DECBS04+4 00380000 @NM00051 EQU @NM00050 00381000 @NM00054 EQU DECBS04+8 00382000 DECBUFCT EQU @NM00054 00383000 DECONLTT EQU DECBUFCT 00384000 DECENTRY EQU DECBS04+20 00385000 DECFLAGS EQU DECBS04+24 00386000 DECWACK EQU DECFLAGS 00387000 DECREVRS EQU DECFLAGS 00388000 DECERRST EQU DECBS04+29 00389000 DECPOLPT EQU DECBS04+36 00390000 USERDATA EQU 0 00391000 USERHDR EQU 0 00392000 IOB3886 EQU 0 00393000 DRCD3886 EQU IOB3886+56 00394000 HDR3886 EQU DRCD3886 00395000 LII3886 EQU HDR3886+5 00396000 DATA3886 EQU DRCD3886+20 00397000 SYNADRTN EQU 0 00398000 USERSAVE EQU 0 00399000 SAVE14 EQU USERSAVE+20 00400000 CHKRG8 EQU USERSAVE+60 00401000 DECBS05 EQU DECNEXT 00402000 DECBHDRA EQU DECBS05 00403000 EVNTCB EQU DECSDECB 00404000 @NM00056 EQU EVNTCB 00405000 ECBBYT EQU @NM00056 00406000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00407000 @NM00058 EQU EVNTCB+1 00408000 @NM00057 EQU @NM00056 00409000 DECBLFMT EQU DECBS05+8 00410000 DECBLNNM EQU DECBS05+4 00411000 @NM00065 EQU USERSAVE+64 00412000 @NM00064 EQU USERSAVE+24 00413000 @NM00063 EQU USERSAVE 00414000 @NM00062 EQU HDR3886+6 00415000 @NM00061 EQU HDR3886 00416000 @NM00060 EQU IOB3886+32 00417000 @NM00059 EQU IOB3886 00418000 DECWAREA EQU DECBS04+44 00419000 DECWLNG EQU DECBS04+42 00420000 DECRSV56 EQU DECBS04+40 00421000 DECPOLPA EQU DECPOLPT+1 00422000 DECNDXPL EQU DECPOLPT 00423000 DECADRPT EQU DECBS04+32 00424000 DECCSWST EQU DECBS04+30 00425000 DECRSV55 EQU DECERRST 00426000 DECRSV54 EQU DECERRST 00427000 DECRSV53 EQU DECERRST 00428000 DECDSABL EQU DECERRST 00429000 DECDIAGN EQU DECERRST 00430000 DECERPER EQU DECERRST 00431000 DECUNDEF EQU DECERRST 00432000 DECSIO3 EQU DECERRST 00433000 DECTPCOD EQU DECBS04+28 00434000 DECRESPN EQU DECBS04+26 00435000 DECRLN EQU DECBS04+25 00436000 DECSTXNQ EQU DECFLAGS 00437000 DECSSMSG EQU DECREVRS 00438000 DECNEGRP EQU DECFLAGS 00439000 DECNOBUF EQU DECFLAGS 00440000 DECBADID EQU DECFLAGS 00441000 DECALTAC EQU DECFLAGS 00442000 DECDIFAC EQU DECWACK 00443000 DECERRMS EQU DECWACK 00444000 DECENTRA EQU DECENTRY+1 00445000 DECCMCOD EQU DECENTRY 00446000 DECCOUNT EQU DECBS04+18 00447000 DECSENS1 EQU DECBS04+17 00448000 DECSENS0 EQU DECBS04+16 00449000 @NM00055 EQU DECBS04+12 00450000 DECDCBAA EQU @NM00054+1 00451000 DECRSV52 EQU DECONLTT 00452000 DECRSV51 EQU DECONLTT 00453000 DECRSV50 EQU DECONLTT 00454000 DECRSV49 EQU DECONLTT 00455000 DECRSV48 EQU DECONLTT 00456000 DECRSV47 EQU DECONLTT 00457000 DECRCVMS EQU DECONLTT 00458000 DECONLTS EQU DECONLTT 00459000 @NM00053 EQU DECBS04+6 00460000 @NM00052 EQU @NM00050+1 00461000 DECSLNTH EQU @NM00051 00462000 DECSAREA EQU @NM00051 00463000 DECSTRME EQU @NM00051 00464000 DECRSV46 EQU @NM00051 00465000 DECRSV45 EQU @NM00051 00466000 DECRSV44 EQU @NM00051 00467000 DECRSV43 EQU @NM00051 00468000 DECRDAPL EQU @NM00051 00469000 @NM00049 EQU DECBS04 00470000 @NM00048 EQU @NM00047+1 00471000 DECRSV42 EQU @NM00047 00472000 DECADRCH EQU DECBS03+32 00473000 DECRSV41 EQU DECBS03+28 00474000 DECRSV40 EQU DECBS03+26 00475000 DECUCBDX EQU DECBS03+25 00476000 DECRSV39 EQU DECBS03+24 00477000 DECCPOLA EQU DECCPOL+1 00478000 DECNMMSG EQU DECCPOL 00479000 DECRSV38 EQU DECBS03+16 00480000 @NM00046 EQU DECBS03+12 00481000 @NM00045 EQU DECBS03+8 00482000 @NM00044 EQU DECBS03+6 00483000 DECOPCOD EQU DECBS03+5 00484000 DECRSV37 EQU DECBS03+4 00485000 LINEDECB EQU DECBS03 00486000 DECNAA EQU DECNA+1 00487000 DECRSV36 EQU DECNA 00488000 DECRECPT EQU DECBS02+24 00489000 DECKYADR EQU DECBS02+20 00490000 @NM00043 EQU DECBS02+16 00491000 @NM00042 EQU DECBS02+12 00492000 @NM00041 EQU DECBS02+8 00493000 @NM00040 EQU DECBS02+6 00494000 DECRSV35 EQU @NM00039 00495000 DECWRADD EQU @NM00039 00496000 DECSRKEY EQU @NM00039 00497000 DECOPRD EQU @NM00039 00498000 DECTYPR EQU DECTYPRU 00499000 DECTYPU EQU DECTYPRU 00500000 DECBKLNS EQU @NM00039 00501000 DECKEYS EQU @NM00039 00502000 DECRELBA EQU @NM00038 00503000 DECRDEX EQU @NM00038 00504000 DECDYNBF EQU @NM00038 00505000 DECACTAD EQU @NM00038 00506000 DECFDBCK EQU @NM00038 00507000 DECEXSRC EQU @NM00038 00508000 DECOFLOW EQU @NM00038 00509000 DECVERFY EQU @NM00038 00510000 DECRSV34 EQU @NM00035+3 00511000 DECCCKFF EQU DECCC3 00512000 DECCCOPT EQU DECCC3 00513000 DECCCSDK EQU DECCC3 00514000 DECCCWDI EQU DECCC3 00515000 DECCCNBK EQU DECCC3 00516000 DECCCEXS EQU DECCC3 00517000 DECCCWRI EQU DECCC3 00518000 DECRSV33 EQU DECCC3 00519000 DECCCREX EQU DECCC2 00520000 DECCCUER EQU DECCC2 00521000 DECCCEOD EQU DECCC2 00522000 DECCCERR EQU DECCC2 00523000 DECCCINV EQU DECCC2 00524000 DECCCNSP EQU DECCC2 00525000 DECCCRLC EQU DECCC2 00526000 DECCCRNF EQU DECCC2 00527000 @NM00036 EQU @NM00035 00528000 DECEXRKU EQU DECBEXC2 00529000 DECEXASR EQU DECBEXC2 00530000 DECRSV32 EQU DECBEXC2 00531000 DECRSV31 EQU DECBEXC2 00532000 DECRSV30 EQU DECBEXC2 00533000 DECRSV29 EQU DECBEXC2 00534000 DECRSV28 EQU DECBEXC2 00535000 DECRSV27 EQU DECBEXC2 00536000 DECEXDUP EQU DECBEXC1 00537000 DECEXOFL EQU DECBEXC1 00538000 DECEXUBK EQU DECBEXC1 00539000 DECEXERR EQU DECBEXC1 00540000 DECEXINV EQU DECBEXC1 00541000 DECEXNSP EQU DECBEXC1 00542000 DECEXRLC EQU DECBEXC1 00543000 DECEXRNF EQU DECBEXC1 00544000 DECBKEY EQU DECBS01+20 00545000 DECBLOGR EQU DECBS01+16 00546000 DECBAREA EQU DECBS01+12 00547000 DECBDCBA EQU DECBS01+8 00548000 DECBLGTH EQU DECBS01+6 00549000 DECRSV26 EQU DECBTYP2 00550000 DECRSV25 EQU DECBTYP2 00551000 DECBWRKN EQU DECBTYP2 00552000 DECBWRK EQU DECBTYP2 00553000 DECRSV24 EQU DECBTYP2 00554000 DECBRDKU EQU DECBTYP2 00555000 DECRSV23 EQU DECBTYP2 00556000 DECBRDK EQU DECBTYP2 00557000 DECBARS EQU DECBTYP1 00558000 DECBLNS EQU DECBTYP1 00559000 DECRSV22 EQU DECBTYP1 00560000 DECRSV21 EQU DECBTYP1 00561000 DECRSV20 EQU DECBTYP1 00562000 DECRSV19 EQU DECBTYP1 00563000 DECRSV18 EQU DECBTYP1 00564000 DECRSV17 EQU DECBTYP1 00565000 DECBRBA EQU DECBRB+1 00566000 DECRSV16 EQU DECBECBF 00567000 DECRSV15 EQU DECBECBF 00568000 DECRSV14 EQU DECBECBF 00569000 DECRSV13 EQU DECBECBF 00570000 DECRSV12 EQU DECBECBF 00571000 DECRSV11 EQU DECBECBF 00572000 DECBPOST EQU DECBECBF 00573000 DECBWAIT EQU DECBECBF 00574000 DECNEXTA EQU DECNEXT+1 00575000 DECRSV10 EQU DECNEXT 00576000 DECLNGTH EQU DECBPTR+2 00577000 DECRSV09 EQU DECTYPE2 00578000 DECWRSZ EQU DECTYPE2 00579000 DECRSV08 EQU DECTYPE2 00580000 DECWRSD EQU DECTYPE2 00581000 DECWRSF EQU DECTYPE2 00582000 DECRDSB EQU DECTYPE2 00583000 DECRSV07 EQU DECTYPE1 00584000 DECRSV06 EQU DECTYPE1 00585000 DECRSV05 EQU DECTYPE1 00586000 DECRSV04 EQU DECTYPE1 00587000 DECRSV03 EQU DECTYPE1 00588000 DECRSV02 EQU DECTYPE1 00589000 DECRSV01 EQU DECTYPE1 00590000 DECLNS EQU DECTYPE1 00591000 DCBEOB EQU IHADCS40+20 00592000 DCBPRECL EQU IHADCS40+18 00593000 @NM00034 EQU IHADCS40+16 00594000 @NM00033 EQU @NM00031+1 00595000 @NM00032 EQU DCBEROPT 00596000 DCBERABE EQU DCBEROPT 00597000 DCBERSKP EQU DCBEROPT 00598000 DCBERACC EQU DCBEROPT 00599000 @NM00030 EQU IHADCS40+10 00600000 @NM00029 EQU IHADCS40+9 00601000 @NM00028 EQU IHADCS40+8 00602000 DCBRECA EQU DCBRECAD+1 00603000 @NM00027 EQU DCBRECBT 00604000 DCBRCFGT EQU DCBRCREL 00605000 DCBRCTRU EQU DCBRCREL 00606000 DCBLCCW EQU DCBEOBAD 00607000 DCBNOTE EQU DCBCNTRL 00608000 DCBLRECL EQU IHADCS38+10 00609000 @NM00026 EQU IHADCS38+8 00610000 DCBEOBW EQU IHADCS38+4 00611000 DCBEOBRA EQU DCBEOBR+1 00612000 DCBNCP EQU DCBEOBR 00613000 @NM00025 EQU DCBFLAG1 00614000 DCBSTFLS EQU DCBFLAG1 00615000 DCBSTQCK EQU DCBFLAG1 00616000 DCBDIRCQ EQU DCBBUFOF 00617000 DCBQSTRU EQU DCBUSASI 00618000 @NM00024 EQU DCBUSASI 00619000 DCBQADF3 EQU DCBQADFS 00620000 DCBQADF2 EQU DCBQADFS 00621000 DCBQADF1 EQU DCBQADFS 00622000 DCBBLBP EQU DCBUSASI 00623000 @NM00023 EQU DCBUSASI 00624000 DCBCICBA EQU DCBCICB+1 00625000 @NM00022 EQU DCBCICB 00626000 DCBOFFSW EQU IHADCS36+15 00627000 DCBOFFSR EQU IHADCS36+14 00628000 DCBWCPL EQU IHADCS36+13 00629000 DCBWCPO EQU IHADCS36+12 00630000 DCBCNQSM EQU DCBCIND2 00631000 DCBCNFEO EQU DCBCIND2 00632000 DCBCNCHS EQU DCBCIND2 00633000 DCBCNBFP EQU DCBCIND2 00634000 DCBCNIOE EQU DCBCIND2 00635000 DCBCNCLO EQU DCBCIND2 00636000 DCBCNWRO EQU DCBCIND2 00637000 DCBCNSTO EQU DCBCIND2 00638000 DCBCNEXB EQU DCBCIND1 00639000 @NM00021 EQU DCBCIND1 00640000 DCBCNBRM EQU DCBCIND1 00641000 @NM00020 EQU DCBCIND1 00642000 DCBCNEVA EQU DCBCIND1 00643000 DCBCNEVB EQU DCBCIND1 00644000 DCBCNSRD EQU DCBCIND1 00645000 DCBCNTOV EQU DCBCIND1 00646000 DCBIOBL EQU DCBSYNAD 00647000 DCBCHCKA EQU DCBPERRA 00648000 @NM00019 EQU DCBOPTCD 00649000 DCBOPTT EQU DCBOPTCD 00650000 DCBSRCHD EQU DCBOPTZ 00651000 DCBOPTQ EQU DCBOPTCD 00652000 DCBBCKPT EQU DCBOPTO 00653000 DCBOPTC EQU DCBOPTCD 00654000 DCBOPTU EQU DCBOPTCD 00655000 DCBOPTW EQU DCBOPTCD 00656000 DCBPUTA EQU DCBGETA 00657000 @NM00018 EQU DCBPUT 00658000 DCBREADA EQU DCBWRITA 00659000 @NM00017 EQU DCBREAD 00660000 DCBDEBA EQU DCBDEBAD+1 00661000 @NM00016 EQU DCBIFLGS 00662000 DCBIFIOE EQU DCBIFLGS 00663000 DCBIFPCT EQU DCBIFLGS 00664000 DCBIFEC EQU DCBIFLGS 00665000 DCBMFSTI EQU DCBMFDMD 00666000 DCBMFAWR EQU DCBMFSTK 00667000 DCBMFUIP EQU DCBMFTMD 00668000 DCBMFIDW EQU DCBMFLCP 00669000 DCBMFWRK EQU DCBMFMVP 00670000 DCBMFRDQ EQU DCBMFWRT 00671000 DCBMFGTQ EQU DCBMFPUT 00672000 DCBMFSTL EQU DCBMACF2 00673000 DCBMFCK EQU DCBMFDMG 00674000 DCBMFRDX EQU DCBMFCHK 00675000 DCBMFDBF EQU DCBMFSBG 00676000 DCBMFRDI EQU DCBMFLCG 00677000 DCBMFRDK EQU DCBMFMVG 00678000 DCBMFWRQ EQU DCBMFRD 00679000 DCBMFPTQ EQU DCBMFGET 00680000 DCBMFECP EQU DCBMACF1 00681000 DCBTIOT EQU IHADCS25 00682000 DCBMRSTI EQU DCBMRDMD 00683000 DCBMRAWR EQU DCBMRSTK 00684000 DCBMRUIP EQU DCBMRTMD 00685000 DCBMRIDW EQU DCBMRLCP 00686000 DCBMRWRK EQU DCBMRMVP 00687000 DCBMRRDQ EQU DCBMRWRT 00688000 DCBMRGTQ EQU DCBMRPUT 00689000 DCBMRSTL EQU DCBMACR2 00690000 DCBMRCK EQU DCBMRDMG 00691000 DCBPGFXA EQU DCBMRRDX 00692000 DCBMRDBF EQU DCBMRSBG 00693000 DCBMRRDI EQU DCBMRLCG 00694000 DCBMRRDK EQU DCBMRMVG 00695000 DCBMRWRQ EQU DCBMRRD 00696000 DCBMRPTQ EQU DCBMRGET 00697000 DCBMRECP EQU DCBMACR1 00698000 @NM00015 EQU DCBIFLG 00699000 DCBIBIOE EQU DCBIFLG 00700000 DCBIBPCT EQU DCBIFLG 00701000 DCBIBEC EQU DCBIFLG 00702000 DCBOFIOF EQU DCBOFLGS 00703000 DCBOFUEX EQU DCBOFLGS 00704000 DCBOFTM EQU DCBOFLGS 00705000 DCBOFPPC EQU DCBOFLGS 00706000 DCBOFOPN EQU DCBOFLGS 00707000 DCBOFEOV EQU DCBOFLGS 00708000 DCBOFLRB EQU DCBOFLGS 00709000 DCBOFIOD EQU DCBOFLWR 00710000 DCBDDNAM EQU IHADCS24 00711000 DCBEXLSA EQU DCBEXLST+1 00712000 DCBRECKL EQU DCBRECFM 00713000 DCBRECCC EQU DCBRECFM 00714000 DCBRECSB EQU DCBRECFM 00715000 DCBRECBR EQU DCBRECFM 00716000 DCBRECTO EQU DCBRECLA 00717000 DCBRECL EQU DCBRECLA 00718000 DCBEODA EQU DCBEODAD+1 00719000 DCBBFA EQU DCBBFTEK 00720000 DCBH0 EQU DCBBFTEK 00721000 DCBBFTKD EQU DCBBFTEK 00722000 DCBBFTE EQU DCBBFT 00723000 DCBBFTKR EQU DCBBFT 00724000 DCBBFTS EQU DCBBFT 00725000 DCBH1 EQU DCBBFTEK 00726000 DCBSVCXA EQU DCBSVCXL+1 00727000 @NM00014 EQU DCBSVCXL 00728000 DCBODEBA EQU DCBIOBAA 00729000 @NM00013 EQU DCBQSLM 00730000 DCBUPDBT EQU DCBQSLM 00731000 DCBUPDCM EQU DCBQSLM 00732000 DCB1DVDS EQU DCBQSLM 00733000 @NM00012 EQU DCBDSRG2 00734000 DCBDSGTR EQU DCBDSRG2 00735000 DCBACBM EQU DCBDSRG2 00736000 @NM00011 EQU DCBDSRG2 00737000 DCBDSGTQ EQU DCBDSRG2 00738000 DCBDSGTX EQU DCBDSRG2 00739000 DCBDSGGS EQU DCBDSRG2 00740000 DCBDSGU EQU DCBDSRG1 00741000 DCBDSGPO EQU DCBDSRG1 00742000 DCBDSGMQ EQU DCBDSRG1 00743000 DCBDSGCQ EQU DCBDSRG1 00744000 DCBDSGCX EQU DCBDSRG1 00745000 DCBDSGDA EQU DCBDSRG1 00746000 DCBDSGPS EQU DCBDSRG1 00747000 DCBDSGIS EQU DCBDSRG1 00748000 DCBBUFL EQU IHADCS11+8 00749000 DCBBUFCA EQU DCBBUFCB+1 00750000 DCBBUFNO EQU DCBBUFCB 00751000 DCBDEVT EQU DCBREL 00752000 DCBKEYLE EQU DCBRELB 00753000 @NM00010 EQU IHADCS08+15 00754000 DCBORDCK EQU DCBEIB 00755000 DCBORHPR EQU DCBEIB 00756000 DCBORWLR EQU DCBEIB 00757000 DCBORECK EQU DCBEIB 00758000 DCBORERR EQU DCBEIB 00759000 DCBORREJ EQU DCBEIB 00760000 DCBORNRM EQU DCBEIB 00761000 @NM00009 EQU DCBEIB 00762000 @NM00008 EQU IHADCS08+13 00763000 @NM00007 EQU DCBORBYT 00764000 DCBORBFP EQU DCBORBYT 00765000 DCBOREOF EQU DCBORBYT 00766000 DCBORSYN EQU DCBORBYT 00767000 DCBRDLNA EQU DCBRESCA 00768000 @NM00006 EQU DCBFRTBA 00769000 DCBDSPLA EQU DCBFRID+1 00770000 @NM00005 EQU DCBFRID 00771000 @NM00004 EQU DCBERRCA+2 00772000 @NM00003 EQU DCBORFLG 00773000 DCBLFMAT EQU DCBERRCA 00774000 DCBLNNUM EQU DCBERRCN 00775000 DCBWTOIA EQU DCBWTOID+1 00776000 @NM00002 EQU DCBWTOID 00777000 @NM00001 EQU IHADCB 00778000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00779000 @ENDDATA EQU * 00780000 END IGG019LS,(C'PL/S-II',0503,74050) 00781000