TITLE 'IGG019LU, 3886 READ MODULE *00001000 ' 00002000 IGG019LU CSECT , 0001 00003000 @PROLOG STM @14,@12,12(@13) 0001 00004000 BALR @08,0 0001 00005000 @PSTART DS 0H 0001 00006000 USING @PSTART,@08 0001 00007000 * DECBPT=PLSRG1; /* LOAD ADDR OF PARM LIST */ 00008000 LR DECBPT,PLSRG1 0048 00009000 * DCBPTR=DECDCBAD; /* SETUP PTR FOR THE DCB */ 00010000 L DCBPTR,DECDCBAD(,DECBPT) 0049 00011000 * IOBSTPTR=LASTIOB+PREFLNTH; /* SETUP BASE FOR THE IOB */ 00012000 L @14,DCBIOBA+52(,DCBPTR) 0050 00013000 LA IOBSTPTR,8 0050 00014000 SLR @12,@12 0050 00015000 ICM @12,7,LASTIOB(@14) 0050 00016000 ALR IOBSTPTR,@12 0050 00017000 * DECIOBPT=IOBSTPTR; /* POINT PRM LST TO IOB */ 00018000 ST IOBSTPTR,DECIOBPT(,DECBPT) 0051 00019000 * IOBECBPT=DECBPT; /* POINT IOB TO DECB */ 00020000 ST DECBPT,IOBECBPT(,IOBSTPTR) 0052 00021000 * IF DECRDSF=OFF| /* RBL TYPE READ */ 00022000 * DECWRSFR=OFF /* */ 00023000 * THEN /* NO,GOTO PROBLEM DET */ 00024000 TM DECRDSF(DECBPT),B'10000001' 0053 00025000 BO @RF00053 0053 00026000 * DO; 0054 00027000 * GEN; 0055 00028000 DMABCOND 201,DCB=(DCBPTR),SVC=YES 00029000 * END; 0056 00030000 * 0056 00031000 */* SETUP DCB BYTES FOR SCAN COMMAND */ 00032000 */* */ 00033000 * 0057 00034000 * /*****************************************************************/ 00035000 * /* */ 00036000 * /* SETUP DOCUMENT LINE NUMBER IN DCB FIELD */ 00037000 * /* */ 00038000 * /*****************************************************************/ 00039000 * 0057 00040000 */* */ 00041000 * 0057 00042000 *RDYDCBLN: /* READY DCB LINE NUMBER */ 00043000 * WK1PTR=ADDR(DCBLNNUM); /* INIT PTR TO LNNUM */ 00044000 @RF00053 DS 0H 0057 00045000 RDYDCBLN LA WK1PTR,4 0057 00046000 ALR WK1PTR,DCBPTR 0057 00047000 * IF LINNO=NOTSPCFD /* LINNO NOT SPECIFIED */ 00048000 * THEN /* YES, */ 00049000 ICM @14,15,LINNO(DECBPT) 0058 00050000 BNZ @RF00058 0058 00051000 * DCBLNNUM=DCBLNNUM+ONE; /* INCREMENT LINE NUMBER */ 00052000 LA @14,1 0059 00053000 SLR @12,@12 0059 00054000 IC @12,DCBLNNUM+4(,DCBPTR) 0059 00055000 ALR @14,@12 0059 00056000 STC @14,DCBLNNUM+4(,DCBPTR) 0059 00057000 * ELSE /* NO,IT IS SPECFD */ 00058000 * DO; 0060 00059000 B @RC00058 0060 00060000 @RF00058 DS 0H 0061 00061000 * IF LINNOFMNOLMT /* FMAT NO > 63 */ 00208000 * THEN /* YES,SETUP & ISSUE MSG */ 00209000 CLI DCBLFMAT+4(DCBPTR),63 0104 00210000 BNH @RF00104 0104 00211000 * DO; 0105 00212000 * IEC042I=MESSAGE; /* PUT MSG IN IOB WORK AREA */ 00213000 L @14,IOBSTART(,IOBSTPTR) 0106 00214000 MVC IEC042I(67,@14),MESSAGE 0106 00215000 * WK2REG=DCBLFMAT; /* SETUP REG FOR GEN INSTRUC */ 00216000 SLR WK2REG,WK2REG 0107 00217000 IC WK2REG,DCBLFMAT+4(,DCBPTR) 0107 00218000 * GEN REFS(WK2REG,XXXNO); 0108 00219000 CVD WK2REG,WKDISP(IOBSTPTR) CONVERT NO TO DECIMAL 00220000 * UNPK(XXXNOB,XXXNOC); /* UNPACK - INVLD FMAT NO */ 00221000 L @14,IOBSTART(,IOBSTPTR) 0109 00222000 L @12,IOBSTART(,IOBSTPTR) 0109 00223000 UNPK XXXNOB(4,@14),XXXNOC(2,@12) 0109 00224000 * SIGN=PLUSSIGN; /* LET NUMBER PRINT */ 00225000 L @14,IOBSTART(,IOBSTPTR) 0110 00226000 OI SIGN(@14),B'11110000' 0110 00227000 * XXXNOA=BLANKS; /* BLANK OUT PART OF MSG */ 00228000 L @14,IOBSTART(,IOBSTPTR) 0111 00229000 MVC XXXNOA(4,@14),@CC00725 0111 00230000 * YYYYTXT=LINEFMAT; /* MOVE IN MSG TEST */ 00231000 L @14,IOBSTART(,IOBSTPTR) 0112 00232000 MVC YYYYTXT(12,@14),@CC00717 0112 00233000 * PLSRG1=ADDR(IEC042I); /* SETUP REG FOR WTO */ 00234000 L PLSRG1,IOBSTART(,IOBSTPTR) 0113 00235000 LA PLSRG1,IEC042I(,PLSRG1) 0113 00236000 * GENERATE; 0114 00237000 WTO MF=(E,(1)) ISSUE WRITE TO PROGRAMMER 00238000 * IEC042I=IEC042I&&IEC042I;/* ZERO OUT MSG AREA IN IOB */ 00239000 L @14,IOBSTART(,IOBSTPTR) 0115 00240000 XC IEC042I(67,@14),IEC042I(@14) 0115 00241000 * END; 0116 00242000 * ELSE 0117 00243000 * ; 0117 00244000 @RF00104 DS 0H 0118 00245000 * END; 0118 00246000 * DATCOUNT=DCBBLKSI+HDRCNT; /* SETUP DATA COUNT IN CCW */ 00247000 @RC00084 L @14,IOBSTART(,IOBSTPTR) 0119 00248000 LA @12,20 0119 00249000 AH @12,DCBBLKSI+52(,DCBPTR) 0119 00250000 STH @12,DATCOUNT(,@14) 0119 00251000 * IOBREAD=ON; /* TURN ON READ BIT IN IOB */ 00252000 LR @14,IOBSTPTR 0120 00253000 AL @14,@CF00977 0120 00254000 OI IOBREAD-8(@14),B'00100000' 0120 00255000 * DCBIOBA=LASTIOB; /* LOAD ADDR OF IOB IN DCB */ 00256000 L @14,DCBIOBA+52(,DCBPTR) 0121 00257000 SLR @12,@12 0121 00258000 ICM @12,7,LASTIOB(@14) 0121 00259000 ST @12,DCBIOBA+52(,DCBPTR) 0121 00260000 * IOBSTPTR=IOBSTPTR-PREFLNTH; /* POINT IOB TO SAM IOB */ 00261000 SH IOBSTPTR,@CH00032 0122 00262000 * ENTERG=DCBEOBRA; /* SETUP REG FOR EOB BALR */ 00263000 SLR ENTERG,ENTERG 0123 00264000 ICM ENTERG,7,DCBEOBRA+72(DCBPTR) 0123 00265000 * CALL EOBROUT; /* BALR TO END-OF-BLK ROUTINE */ 00266000 BALR @14,@15 0124 00267000 * END IGG019LU 0125 00268000 * 0125 00269000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00270000 */*%INCLUDE SYSUT5 (TOPSEGMT) */ 00271000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00272000 */*%INCLUDE SYSUT5 (DECLARES) */ 00273000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00274000 */*%INCLUDE SYSLIB (IHADCB ) */ 00275000 */*%INCLUDE SYSLIB (IEZIOB ) */ 00276000 */*%INCLUDE SYSUT5 (DCLREGCT) */ 00277000 */*%INCLUDE SYSLIB (IHADECB ) */ 00278000 */*%INCLUDE SYSUT5 (RDYDCBLN) */ 00279000 */*%INCLUDE SYSUT5 (RDYDCBFN) */ 00280000 * 0125 00281000 * ; 0125 00282000 @EL00001 DS 0H 0125 00283000 @EF00001 DS 0H 0125 00284000 @ER00001 LM @14,@12,12(@13) 0125 00285000 BR @14 0125 00286000 @DATA DS 0H 00287000 @CH00136 DC H'3' 00288000 @CH00032 DC H'8' 00289000 DS 0F 00290000 DS 0F 00291000 @CF00977 DC F'-8' 00292000 DS 0D 00293000 @CC00725 DC C' ' 00294000 @CC00723 DC C' ' 00295000 @CC00714 DC C'NO LINE FMAT' 00296000 @CC00717 DC C'LINEFMAT ' 00297000 @CC00720 DC C'RD LINENO ' 00298000 MTAREA DS CL100 00299000 IGG019LU CSECT 00300000 MESSAGE WTO 'IEC042I INVALID DATA - XXXXXXXX SPECIFIED FOR YYYYYYYYX00301000 YYYY',MF=L,ROUTCDE=11,DESC=6 00302000 IGG019LU CSECT 00303000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00304000 @01 EQU 01 00305000 @02 EQU 02 00306000 @03 EQU 03 00307000 @04 EQU 04 00308000 @05 EQU 05 00309000 @06 EQU 06 00310000 @07 EQU 07 00311000 @08 EQU 08 00312000 @09 EQU 09 00313000 @10 EQU 10 00314000 @11 EQU 11 00315000 @12 EQU 12 00316000 @13 EQU 13 00317000 @14 EQU 14 00318000 @15 EQU 15 00319000 DCBPTR EQU @02 00320000 IOBSTPTR EQU @03 00321000 WK1PTR EQU @04 00322000 ENTERG EQU @15 00323000 PLSRG1 EQU @01 00324000 WK2REG EQU @05 00325000 DECBPT EQU @06 00326000 BASREG EQU @08 00327000 IHADCB EQU 0 00328000 IHADCS07 EQU 0 00329000 DCBWTOID EQU IHADCS07 00330000 IHADCS08 EQU 0 00331000 DCBERRCN EQU IHADCS08 00332000 DCBLNNUM EQU DCBERRCN 00333000 DCBERRCA EQU DCBERRCN+1 00334000 DCBLFMAT EQU DCBERRCA 00335000 DCBORFLG EQU DCBERRCA+1 00336000 DCBEOPFG EQU DCBORFLG 00337000 DCBDSPLY EQU IHADCS08+4 00338000 DCBFRID EQU DCBDSPLY 00339000 DCBRESCN EQU IHADCS08+8 00340000 DCBRDLNE EQU DCBRESCN 00341000 DCBFRTBA EQU DCBRDLNE 00342000 DCBRESCA EQU DCBFRTBA+1 00343000 DCBORBYT EQU IHADCS08+12 00344000 DCBEIB EQU IHADCS08+14 00345000 IHADCS11 EQU 0 00346000 DCBRELB EQU IHADCS11 00347000 DCBREL EQU DCBRELB+1 00348000 DCBBUFCB EQU IHADCS11+4 00349000 DCBDSORG EQU IHADCS11+10 00350000 DCBDSRG1 EQU DCBDSORG 00351000 DCBDSRG2 EQU DCBDSORG+1 00352000 DCBIOBAD EQU IHADCS11+12 00353000 DCBODEB EQU DCBIOBAD 00354000 DCBLNP EQU DCBODEB 00355000 DCBQSLM EQU DCBLNP 00356000 DCBIOBAA EQU DCBODEB+1 00357000 IHADCS50 EQU 0 00358000 DCBSVCXL EQU IHADCS50 00359000 DCBEODAD EQU IHADCS50+4 00360000 DCBBFALN EQU DCBEODAD 00361000 DCBHIARC EQU DCBBFALN 00362000 DCBBFTEK EQU DCBHIARC 00363000 DCBBFT EQU DCBBFTEK 00364000 DCBEXLST EQU IHADCS50+8 00365000 DCBRECFM EQU DCBEXLST 00366000 DCBRECLA EQU DCBRECFM 00367000 IHADCS24 EQU 0 00368000 DCBOFLGS EQU IHADCS24+8 00369000 DCBOFLWR EQU DCBOFLGS 00370000 DCBIFLG EQU IHADCS24+9 00371000 DCBMACR EQU IHADCS24+10 00372000 DCBMACR1 EQU DCBMACR 00373000 DCBMRFE EQU DCBMACR1 00374000 DCBMRGET EQU DCBMRFE 00375000 DCBMRAPG EQU DCBMACR1 00376000 DCBMRRD EQU DCBMRAPG 00377000 DCBMRCI EQU DCBMACR1 00378000 DCBMRMVG EQU DCBMRCI 00379000 DCBMRLCG EQU DCBMACR1 00380000 DCBMRABC EQU DCBMACR1 00381000 DCBMRPT1 EQU DCBMRABC 00382000 DCBMRSBG EQU DCBMRPT1 00383000 DCBMRCRL EQU DCBMACR1 00384000 DCBMRCHK EQU DCBMRCRL 00385000 DCBMRRDX EQU DCBMRCHK 00386000 DCBMRDMG EQU DCBMACR1 00387000 DCBMACR2 EQU DCBMACR+1 00388000 DCBMRPUT EQU DCBMACR2 00389000 DCBMRWRT EQU DCBMACR2 00390000 DCBMRMVP EQU DCBMACR2 00391000 DCBMR5WD EQU DCBMACR2 00392000 DCBMRLDM EQU DCBMR5WD 00393000 DCBMRLCP EQU DCBMRLDM 00394000 DCBMR4WD EQU DCBMACR2 00395000 DCBMRPT2 EQU DCBMR4WD 00396000 DCBMRTMD EQU DCBMRPT2 00397000 DCBMR3WD EQU DCBMACR2 00398000 DCBMRCTL EQU DCBMR3WD 00399000 DCBMRSTK EQU DCBMRCTL 00400000 DCBMR1WD EQU DCBMACR2 00401000 DCBMRSWA EQU DCBMR1WD 00402000 DCBMRDMD EQU DCBMRSWA 00403000 IHADCS25 EQU 0 00404000 DCBMACRF EQU IHADCS25+2 00405000 DCBMACF1 EQU DCBMACRF 00406000 DCBMFFE EQU DCBMACF1 00407000 DCBMFGET EQU DCBMFFE 00408000 DCBMFAPG EQU DCBMACF1 00409000 DCBMFRD EQU DCBMFAPG 00410000 DCBMFCI EQU DCBMACF1 00411000 DCBMFMVG EQU DCBMFCI 00412000 DCBMFLCG EQU DCBMACF1 00413000 DCBMFABC EQU DCBMACF1 00414000 DCBMFPT1 EQU DCBMFABC 00415000 DCBMFSBG EQU DCBMFPT1 00416000 DCBMFCRL EQU DCBMACF1 00417000 DCBMFCHK EQU DCBMFCRL 00418000 DCBMFDMG EQU DCBMACF1 00419000 DCBMACF2 EQU DCBMACRF+1 00420000 DCBMFPUT EQU DCBMACF2 00421000 DCBMFWRT EQU DCBMACF2 00422000 DCBMFMVP EQU DCBMACF2 00423000 DCBMF5WD EQU DCBMACF2 00424000 DCBMFLDM EQU DCBMF5WD 00425000 DCBMFLCP EQU DCBMFLDM 00426000 DCBMF4WD EQU DCBMACF2 00427000 DCBMFPT2 EQU DCBMF4WD 00428000 DCBMFTMD EQU DCBMFPT2 00429000 DCBMF3WD EQU DCBMACF2 00430000 DCBMFCTL EQU DCBMF3WD 00431000 DCBMFSTK EQU DCBMFCTL 00432000 DCBMF1WD EQU DCBMACF2 00433000 DCBMFSWA EQU DCBMF1WD 00434000 DCBMFDMD EQU DCBMFSWA 00435000 DCBDEBAD EQU IHADCS25+4 00436000 DCBIFLGS EQU DCBDEBAD 00437000 IHADCS26 EQU 0 00438000 DCBWRITE EQU IHADCS26 00439000 DCBREAD EQU DCBWRITE 00440000 DCBWRITA EQU DCBREAD+1 00441000 IHADCS27 EQU 0 00442000 DCBGET EQU IHADCS27 00443000 DCBPUT EQU DCBGET 00444000 DCBGETA EQU DCBPUT+1 00445000 IHADCS36 EQU 0 00446000 DCBGERR EQU IHADCS36 00447000 DCBPERR EQU DCBGERR 00448000 DCBCHECK EQU DCBPERR 00449000 DCBOPTCD EQU DCBCHECK 00450000 DCBOPTH EQU DCBOPTCD 00451000 DCBOPTO EQU DCBOPTH 00452000 DCBOPTZ EQU DCBOPTCD 00453000 DCBGERRA EQU DCBCHECK+1 00454000 DCBPERRA EQU DCBGERRA 00455000 DCBSYNAD EQU IHADCS36+4 00456000 DCBCIND1 EQU IHADCS36+8 00457000 DCBCIND2 EQU IHADCS36+9 00458000 DCBBLKSI EQU IHADCS36+10 00459000 DCBIOBA EQU IHADCS36+16 00460000 DCBCICB EQU DCBIOBA 00461000 IHADCS52 EQU 0 00462000 DCBDIRCT EQU IHADCS52 00463000 DCBQSWS EQU DCBDIRCT 00464000 DCBUSASI EQU DCBQSWS 00465000 DCBQADFS EQU DCBUSASI 00466000 DCBBUFOF EQU DCBDIRCT+1 00467000 IHADCS37 EQU 0 00468000 DCBFLAG1 EQU IHADCS37 00469000 IHADCS38 EQU 0 00470000 DCBEOBR EQU IHADCS38 00471000 DCBEOBRA EQU DCBEOBR+1 00472000 DCBPOINT EQU IHADCS38+12 00473000 DCBCNTRL EQU DCBPOINT 00474000 IHADCS40 EQU 0 00475000 DCBEOBAD EQU IHADCS40 00476000 DCBCCCW EQU IHADCS40+4 00477000 DCBRECAD EQU DCBCCCW 00478000 DCBRECBT EQU DCBRECAD 00479000 DCBRCREL EQU DCBRECBT 00480000 @NM00031 EQU IHADCS40+12 00481000 DCBEROPT EQU @NM00031 00482000 IOBSTRNG EQU 0 00483000 LASTIOB EQU IOBSTRNG+1 00484000 IOBPREFX EQU 0 00485000 IOBCFLG1 EQU IOBPREFX 00486000 IOBSTDRD EQU 0 00487000 IOBFLAG1 EQU IOBSTDRD 00488000 IOBCYCCK EQU IOBFLAG1 00489000 IOBRSTRT EQU IOBFLAG1 00490000 IOBFLAG2 EQU IOBSTDRD+1 00491000 IOBPURGE EQU IOBFLAG2 00492000 IOBRDHA0 EQU IOBFLAG2 00493000 IOBSENS0 EQU IOBSTDRD+2 00494000 IOBS0B7 EQU IOBSENS0 00495000 IOBSENS1 EQU IOBSTDRD+3 00496000 IOBECBPT EQU IOBSTDRD+4 00497000 IOBFLAG3 EQU IOBSTDRD+8 00498000 IOBFL3 EQU IOBFLAG3 00499000 IOBCSW EQU IOBSTDRD+9 00500000 IOBIOCSW EQU IOBCSW 00501000 IOBSTART EQU IOBSTDRD+16 00502000 IOBDCBPT EQU IOBSTDRD+20 00503000 IOBFLAG4 EQU IOBDCBPT 00504000 IOBRESTR EQU IOBSTDRD+24 00505000 IOBINCAM EQU IOBSTDRD+28 00506000 IOBBTAMF EQU IOBINCAM 00507000 LNNUMCMP EQU 0 00508000 LNFNOCMP EQU 0 00509000 EOBROUT EQU 0 00510000 CCWSDATA EQU 0 00511000 DATCOUNT EQU CCWSDATA+22 00512000 DATAREA EQU CCWSDATA+24 00513000 DIGAREA EQU DATAREA 00514000 IEC042I EQU DATAREA+4 00515000 XXXNO EQU IEC042I+28 00516000 XXXNOA EQU XXXNO 00517000 XXXNOB EQU XXXNO+4 00518000 XXXNOC EQU XXXNOB+2 00519000 SIGN EQU XXXNOC+1 00520000 YYYYTXT EQU IEC042I+51 00521000 DECB EQU 0 00522000 DECBPTR EQU DECB+4 00523000 DECTYPE EQU DECBPTR 00524000 DECTYPE1 EQU DECTYPE 00525000 DECTYPE2 EQU DECTYPE+1 00526000 DECRDSF EQU DECTYPE2 00527000 DECWRSFR EQU DECTYPE2 00528000 DECDCBAD EQU DECB+8 00529000 DECIOBPT EQU DECB+16 00530000 DECNEXT EQU DECB+20 00531000 DECBS01 EQU 0 00532000 DECBECB EQU DECBS01 00533000 DECBRB EQU DECBECB 00534000 DECBECBF EQU DECBRB 00535000 DECBTYP1 EQU DECBS01+4 00536000 DECBTYP2 EQU DECBS01+5 00537000 DECBEXC1 EQU DECBS01+24 00538000 DECBEXC2 EQU DECBS01+25 00539000 DECBS02 EQU 0 00540000 @NM00047 EQU DECBS02 00541000 DECCC2 EQU @NM00047+1 00542000 DECCC3 EQU @NM00047+2 00543000 @NM00049 EQU DECBS02+4 00544000 @NM00050 EQU @NM00049 00545000 @NM00051 EQU @NM00049+1 00546000 DECTYPRU EQU @NM00051 00547000 DECNA EQU DECBS02+28 00548000 DECBS03 EQU 0 00549000 DECCPOL EQU DECBS03+20 00550000 @NM00059 EQU DECBS03+36 00551000 DECBS04 EQU 0 00552000 @NM00062 EQU DECBS04+4 00553000 @NM00063 EQU @NM00062 00554000 @NM00066 EQU DECBS04+8 00555000 DECBUFCT EQU @NM00066 00556000 DECONLTT EQU DECBUFCT 00557000 DECENTRY EQU DECBS04+20 00558000 DECFLAGS EQU DECBS04+24 00559000 DECWACK EQU DECFLAGS 00560000 DECREVRS EQU DECFLAGS 00561000 DECERRST EQU DECBS04+29 00562000 DECPOLPT EQU DECBS04+36 00563000 IOBORG01 EQU IOBPREFX+8 00564000 IOBNIOBA EQU IOBORG01 00565000 IOBNFLG1 EQU IOBNIOBA 00566000 IOBREAD EQU IOBNFLG1 00567000 IOBORG02 EQU IOBPREFX+8 00568000 IOBDQADA EQU IOBORG02 00569000 IOBDEQIN EQU IOBDQADA 00570000 IOBORG03 EQU IOBPREFX+12 00571000 IOBORG04 EQU IOBINCAM 00572000 IOBORG12 EQU IOBINCAM 00573000 IOBFL4 EQU IOBORG12 00574000 IOBEXTEN EQU IOBSTDRD+32 00575000 IOBSEEK EQU IOBEXTEN 00576000 IOBBB EQU IOBSEEK+1 00577000 IOBCC EQU IOBSEEK+3 00578000 IOBHH EQU IOBSEEK+5 00579000 IOBORG05 EQU IOBEXTEN 00580000 IOBORG06 EQU IOBEXTEN 00581000 IOBNXTPT EQU IOBORG06+4 00582000 IOBSTATA EQU IOBNXTPT 00583000 IOBORG07 EQU IOBEXTEN+8 00584000 W1IEXTEN EQU IOBORG07 00585000 IOBORG08 EQU IOBEXTEN+8 00586000 IOBINDCT EQU IOBORG08+4 00587000 IOBUNSQR EQU IOBORG08+5 00588000 IOBFCHAD EQU IOBORG08+8 00589000 IOBORG09 EQU IOBEXTEN+8 00590000 IOBDPLAD EQU IOBORG09+4 00591000 IOBDTYPE EQU IOBORG09+8 00592000 IOBDTYP2 EQU IOBORG09+9 00593000 IOBDSTAT EQU IOBORG09+10 00594000 IOBSTAT1 EQU IOBDSTAT 00595000 IOBORG10 EQU IOBEXTEN+8 00596000 IOBSEEK2 EQU IOBORG10 00597000 IOBORG11 EQU IOBEXTEN 00598000 IOBERCT EQU IOBORG11 00599000 IOBUCBXV EQU IOBERCT 00600000 IOBNAME EQU IOBORG11+4 00601000 DECBS05 EQU DECNEXT 00602000 DECBLNNM EQU DECBS05+4 00603000 DECBLFMT EQU DECBS05+8 00604000 LINNO EQU DECBLNNM 00605000 LINFNO EQU DECBLFMT 00606000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00607000 DECBHDRA EQU DECBS05 00608000 IOBCSWSV EQU IOBORG11+17 00609000 IOBSENSV EQU IOBORG11+16 00610000 IOBRCD EQU IOBORG11+12 00611000 IOBMDREC EQU IOBORG11+8 00612000 IOBNAMEA EQU IOBNAME+1 00613000 IOBNAMSZ EQU IOBNAME 00614000 IOBERCTA EQU IOBERCT+1 00615000 IOBRTYPE EQU IOBUCBXV 00616000 IOBRDCHP EQU IOBORG10+20 00617000 IOBNEXTA EQU IOBORG10+16 00618000 IOBREADA EQU IOBORG10+12 00619000 IOBBUFC EQU IOBORG10+8 00620000 IOBSK2R EQU IOBSEEK2+7 00621000 IOBSK2HH EQU IOBSEEK2+5 00622000 IOBSK2CC EQU IOBSEEK2+3 00623000 IOBSK2BB EQU IOBSEEK2+1 00624000 IOBSK2M EQU IOBSEEK2 00625000 IOBCHNPR EQU IOBORG09+40 00626000 IOBDNCRF EQU IOBORG09+32 00627000 IOBRSV35 EQU IOBORG09+24 00628000 IOBDQPTR EQU IOBORG09+20 00629000 IOBRSV34 EQU IOBORG09+18 00630000 IOBDBYTN EQU IOBORG09+16 00631000 IOBDCPND EQU IOBORG09+12 00632000 IOBSTAT2 EQU IOBDSTAT+1 00633000 IOBSIORT EQU IOBSTAT1 00634000 IOBADDVU EQU IOBSTAT1 00635000 IOBBUFF EQU IOBSTAT1 00636000 IOBENQUE EQU IOBSTAT1 00637000 IOBPASS2 EQU IOBSTAT1 00638000 IOBSYNCH EQU IOBSTAT1 00639000 IOBNEWVL EQU IOBSTAT1 00640000 IOBABNRM EQU IOBSTAT1 00641000 IOBRELEX EQU IOBDTYP2 00642000 IOBADDTY EQU IOBDTYP2 00643000 IOBTYPE EQU IOBDTYP2 00644000 IOBRQUST EQU IOBDTYP2 00645000 IOBSUFFX EQU IOBDTYP2 00646000 IOBSBLKL EQU IOBDTYP2 00647000 IOBSKEY EQU IOBDTYP2 00648000 IOBRELBL EQU IOBDTYPE 00649000 IOBRDEXC EQU IOBDTYPE 00650000 IOBDYNBF EQU IOBDTYPE 00651000 IOBACTAD EQU IOBDTYPE 00652000 IOBFDBCK EQU IOBDTYPE 00653000 IOBEXTSC EQU IOBDTYPE 00654000 IOBOVFLO EQU IOBDTYPE 00655000 IOBVERFY EQU IOBDTYPE 00656000 IOBDPLB EQU IOBDPLAD+1 00657000 IOBDAYLI EQU IOBDPLAD 00658000 IOBDIOBS EQU IOBORG09+2 00659000 IOBDBYTR EQU IOBORG09 00660000 IOBBCHAD EQU IOBORG08+12 00661000 IOBFCHNB EQU IOBFCHAD+1 00662000 IOBCOUNT EQU IOBFCHAD 00663000 IOBASYN EQU IOBORG08+7 00664000 IOBAPP EQU IOBORG08+6 00665000 IOBRSV32 EQU IOBUNSQR 00666000 IOBRSV31 EQU IOBUNSQR 00667000 IOBRSV30 EQU IOBUNSQR 00668000 IOBKNRWR EQU IOBUNSQR 00669000 IOBKNWR EQU IOBUNSQR 00670000 IOBNTAV2 EQU IOBUNSQR 00671000 IOBNTAV1 EQU IOBUNSQR 00672000 IOBCPBSY EQU IOBUNSQR 00673000 IOBCHNNL EQU IOBINDCT 00674000 IOBRSV29 EQU IOBINDCT 00675000 IOBRSV28 EQU IOBINDCT 00676000 IOBRSV27 EQU IOBINDCT 00677000 IOBKEYAD EQU IOBINDCT 00678000 IOBOVPTR EQU IOBINDCT 00679000 IOBUNSCH EQU IOBINDCT 00680000 IOBDEQCP EQU IOBINDCT 00681000 IOBCCWAD EQU IOBORG08 00682000 W1OEXTEN EQU W1IEXTEN 00683000 IOBCCW EQU IOBORG06+8 00684000 IOBNXTPB EQU IOBNXTPT+1 00685000 IOBRSV26 EQU IOBSTATA 00686000 IOBRSV25 EQU IOBSTATA 00687000 IOBRSV24 EQU IOBSTATA 00688000 IOBRSV23 EQU IOBSTATA 00689000 IOBRSV22 EQU IOBSTATA 00690000 IOBRSV21 EQU IOBSTATA 00691000 IOBRSV20 EQU IOBSTATA 00692000 IOBAVLFL EQU IOBSTATA 00693000 IOBRSV37 EQU IOBORG06+1 00694000 IOBUCBXG EQU IOBORG06 00695000 IOBCPA EQU IOBORG05+32 00696000 IOBERINF EQU IOBORG05+16 00697000 IOBERCCW EQU IOBORG05+8 00698000 IOBSNDPT EQU IOBORG05+7 00699000 IOBRCVPT EQU IOBORG05+6 00700000 IOBWORK EQU IOBORG05+1 00701000 IOBUCBX EQU IOBORG05 00702000 IOBR EQU IOBSEEK+7 00703000 IOBHH2 EQU IOBHH+1 00704000 IOBHH1 EQU IOBHH 00705000 IOBCC2 EQU IOBCC+1 00706000 IOBCC1 EQU IOBCC 00707000 IOBBB2 EQU IOBBB+1 00708000 IOBBB1 EQU IOBBB 00709000 IOBM EQU IOBSEEK 00710000 IOBRSV46 EQU IOBFL4 00711000 IOBRSV47 EQU IOBFL4 00712000 IOBENT EQU IOBFL4 00713000 IOBEQP EQU IOBFL4 00714000 IOBBUS EQU IOBFL4 00715000 IOBDCK EQU IOBFL4 00716000 IOBREJ EQU IOBFL4 00717000 IOBOVR EQU IOBFL4 00718000 IOBCRILC EQU IOBORG04+1 00719000 IOBCRDCC EQU IOBORG04 00720000 IOBGQECB EQU IOBORG03 00721000 IOBSWAP EQU IOBORG02+4 00722000 IOBDQADB EQU IOBDQADA+1 00723000 IOBRSV13 EQU IOBDEQIN 00724000 IOBRSV12 EQU IOBDEQIN 00725000 IOBRSV11 EQU IOBDEQIN 00726000 IOBRSV10 EQU IOBDEQIN 00727000 IOBRSV09 EQU IOBDEQIN 00728000 IOBRSV08 EQU IOBDEQIN 00729000 IOBRSV07 EQU IOBDEQIN 00730000 IOBDEQ EQU IOBDEQIN 00731000 IOBNECB EQU IOBORG01+4 00732000 IOBNIOBB EQU IOBNIOBA+1 00733000 IOBFIRST EQU IOBNFLG1 00734000 IOBUPERR EQU IOBNFLG1 00735000 IOBSPAN EQU IOBNFLG1 00736000 IOBBKSPC EQU IOBNFLG1 00737000 IOBUPDAT EQU IOBNFLG1 00738000 IOBWRITE EQU IOBNFLG1 00739000 IOBPRTOV EQU IOBNFLG1 00740000 DECWAREA EQU DECBS04+44 00741000 DECWLNG EQU DECBS04+42 00742000 DECRSV56 EQU DECBS04+40 00743000 DECPOLPA EQU DECPOLPT+1 00744000 DECNDXPL EQU DECPOLPT 00745000 DECADRPT EQU DECBS04+32 00746000 DECCSWST EQU DECBS04+30 00747000 DECRSV55 EQU DECERRST 00748000 DECRSV54 EQU DECERRST 00749000 DECRSV53 EQU DECERRST 00750000 DECDSABL EQU DECERRST 00751000 DECDIAGN EQU DECERRST 00752000 DECERPER EQU DECERRST 00753000 DECUNDEF EQU DECERRST 00754000 DECSIO3 EQU DECERRST 00755000 DECTPCOD EQU DECBS04+28 00756000 DECRESPN EQU DECBS04+26 00757000 DECRLN EQU DECBS04+25 00758000 DECSTXNQ EQU DECFLAGS 00759000 DECSSMSG EQU DECREVRS 00760000 DECNEGRP EQU DECFLAGS 00761000 DECNOBUF EQU DECFLAGS 00762000 DECBADID EQU DECFLAGS 00763000 DECALTAC EQU DECFLAGS 00764000 DECDIFAC EQU DECWACK 00765000 DECERRMS EQU DECWACK 00766000 DECENTRA EQU DECENTRY+1 00767000 DECCMCOD EQU DECENTRY 00768000 DECCOUNT EQU DECBS04+18 00769000 DECSENS1 EQU DECBS04+17 00770000 DECSENS0 EQU DECBS04+16 00771000 @NM00067 EQU DECBS04+12 00772000 DECDCBAA EQU @NM00066+1 00773000 DECRSV52 EQU DECONLTT 00774000 DECRSV51 EQU DECONLTT 00775000 DECRSV50 EQU DECONLTT 00776000 DECRSV49 EQU DECONLTT 00777000 DECRSV48 EQU DECONLTT 00778000 DECRSV47 EQU DECONLTT 00779000 DECRCVMS EQU DECONLTT 00780000 DECONLTS EQU DECONLTT 00781000 @NM00065 EQU DECBS04+6 00782000 @NM00064 EQU @NM00062+1 00783000 DECSLNTH EQU @NM00063 00784000 DECSAREA EQU @NM00063 00785000 DECSTRME EQU @NM00063 00786000 DECRSV46 EQU @NM00063 00787000 DECRSV45 EQU @NM00063 00788000 DECRSV44 EQU @NM00063 00789000 DECRSV43 EQU @NM00063 00790000 DECRDAPL EQU @NM00063 00791000 @NM00061 EQU DECBS04 00792000 @NM00060 EQU @NM00059+1 00793000 DECRSV42 EQU @NM00059 00794000 DECADRCH EQU DECBS03+32 00795000 DECRSV41 EQU DECBS03+28 00796000 DECRSV40 EQU DECBS03+26 00797000 DECUCBDX EQU DECBS03+25 00798000 DECRSV39 EQU DECBS03+24 00799000 DECCPOLA EQU DECCPOL+1 00800000 DECNMMSG EQU DECCPOL 00801000 DECRSV38 EQU DECBS03+16 00802000 @NM00058 EQU DECBS03+12 00803000 @NM00057 EQU DECBS03+8 00804000 @NM00056 EQU DECBS03+6 00805000 DECOPCOD EQU DECBS03+5 00806000 DECRSV37 EQU DECBS03+4 00807000 LINEDECB EQU DECBS03 00808000 DECNAA EQU DECNA+1 00809000 DECRSV36 EQU DECNA 00810000 DECRECPT EQU DECBS02+24 00811000 DECKYADR EQU DECBS02+20 00812000 @NM00055 EQU DECBS02+16 00813000 @NM00054 EQU DECBS02+12 00814000 @NM00053 EQU DECBS02+8 00815000 @NM00052 EQU DECBS02+6 00816000 DECRSV35 EQU @NM00051 00817000 DECWRADD EQU @NM00051 00818000 DECSRKEY EQU @NM00051 00819000 DECOPRD EQU @NM00051 00820000 DECTYPR EQU DECTYPRU 00821000 DECTYPU EQU DECTYPRU 00822000 DECBKLNS EQU @NM00051 00823000 DECKEYS EQU @NM00051 00824000 DECRELBA EQU @NM00050 00825000 DECRDEX EQU @NM00050 00826000 DECDYNBF EQU @NM00050 00827000 DECACTAD EQU @NM00050 00828000 DECFDBCK EQU @NM00050 00829000 DECEXSRC EQU @NM00050 00830000 DECOFLOW EQU @NM00050 00831000 DECVERFY EQU @NM00050 00832000 DECRSV34 EQU @NM00047+3 00833000 DECCCKFF EQU DECCC3 00834000 DECCCOPT EQU DECCC3 00835000 DECCCSDK EQU DECCC3 00836000 DECCCWDI EQU DECCC3 00837000 DECCCNBK EQU DECCC3 00838000 DECCCEXS EQU DECCC3 00839000 DECCCWRI EQU DECCC3 00840000 DECRSV33 EQU DECCC3 00841000 DECCCREX EQU DECCC2 00842000 DECCCUER EQU DECCC2 00843000 DECCCEOD EQU DECCC2 00844000 DECCCERR EQU DECCC2 00845000 DECCCINV EQU DECCC2 00846000 DECCCNSP EQU DECCC2 00847000 DECCCRLC EQU DECCC2 00848000 DECCCRNF EQU DECCC2 00849000 @NM00048 EQU @NM00047 00850000 DECEXRKU EQU DECBEXC2 00851000 DECEXASR EQU DECBEXC2 00852000 DECRSV32 EQU DECBEXC2 00853000 DECRSV31 EQU DECBEXC2 00854000 DECRSV30 EQU DECBEXC2 00855000 DECRSV29 EQU DECBEXC2 00856000 DECRSV28 EQU DECBEXC2 00857000 DECRSV27 EQU DECBEXC2 00858000 DECEXDUP EQU DECBEXC1 00859000 DECEXOFL EQU DECBEXC1 00860000 DECEXUBK EQU DECBEXC1 00861000 DECEXERR EQU DECBEXC1 00862000 DECEXINV EQU DECBEXC1 00863000 DECEXNSP EQU DECBEXC1 00864000 DECEXRLC EQU DECBEXC1 00865000 DECEXRNF EQU DECBEXC1 00866000 DECBKEY EQU DECBS01+20 00867000 DECBLOGR EQU DECBS01+16 00868000 DECBAREA EQU DECBS01+12 00869000 DECBDCBA EQU DECBS01+8 00870000 DECBLGTH EQU DECBS01+6 00871000 DECRSV26 EQU DECBTYP2 00872000 DECRSV25 EQU DECBTYP2 00873000 DECBWRKN EQU DECBTYP2 00874000 DECBWRK EQU DECBTYP2 00875000 DECRSV24 EQU DECBTYP2 00876000 DECBRDKU EQU DECBTYP2 00877000 DECRSV23 EQU DECBTYP2 00878000 DECBRDK EQU DECBTYP2 00879000 DECBARS EQU DECBTYP1 00880000 DECBLNS EQU DECBTYP1 00881000 DECRSV22 EQU DECBTYP1 00882000 DECRSV21 EQU DECBTYP1 00883000 DECRSV20 EQU DECBTYP1 00884000 DECRSV19 EQU DECBTYP1 00885000 DECRSV18 EQU DECBTYP1 00886000 DECRSV17 EQU DECBTYP1 00887000 DECBRBA EQU DECBRB+1 00888000 DECRSV16 EQU DECBECBF 00889000 DECRSV15 EQU DECBECBF 00890000 DECRSV14 EQU DECBECBF 00891000 DECRSV13 EQU DECBECBF 00892000 DECRSV12 EQU DECBECBF 00893000 DECRSV11 EQU DECBECBF 00894000 DECBPOST EQU DECBECBF 00895000 DECBWAIT EQU DECBECBF 00896000 DECNEXTA EQU DECNEXT+1 00897000 DECRSV10 EQU DECNEXT 00898000 DECAREA EQU DECB+12 00899000 DECLNGTH EQU DECBPTR+2 00900000 DECRSV09 EQU DECTYPE2 00901000 DECWRSZ EQU DECTYPE2 00902000 DECRSV08 EQU DECTYPE2 00903000 DECWRSD EQU DECTYPE2 00904000 DECWRSF EQU DECTYPE2 00905000 DECRDSB EQU DECTYPE2 00906000 DECRSV07 EQU DECTYPE1 00907000 DECRSV06 EQU DECTYPE1 00908000 DECRSV05 EQU DECTYPE1 00909000 DECRSV04 EQU DECTYPE1 00910000 DECRSV03 EQU DECTYPE1 00911000 DECRSV02 EQU DECTYPE1 00912000 DECRSV01 EQU DECTYPE1 00913000 DECLNS EQU DECTYPE1 00914000 DECSDECB EQU DECB 00915000 @NM00046 EQU DATAREA+71 00916000 @NM00045 EQU IEC042I+63 00917000 @NM00044 EQU IEC042I+36 00918000 @NM00043 EQU XXXNOC+1 00919000 @NM00042 EQU XXXNOC 00920000 @NM00041 EQU XXXNOB 00921000 @NM00040 EQU IEC042I+4 00922000 @NM00039 EQU IEC042I 00923000 @NM00038 EQU CCWSDATA+16 00924000 @NM00037 EQU CCWSDATA+8 00925000 @NM00036 EQU CCWSDATA 00926000 IOBERRCT EQU IOBSTDRD+30 00927000 IOBRSV19 EQU IOBINCAM+1 00928000 IOBOLTST EQU IOBBTAMF 00929000 IOBRFTMG EQU IOBBTAMF 00930000 IOBRSV17 EQU IOBBTAMF 00931000 IOBRSV16 EQU IOBBTAMF 00932000 IOBRSV15 EQU IOBBTAMF 00933000 IOBRSV14 EQU IOBBTAMF 00934000 IOBINUSE EQU IOBBTAMF 00935000 IOBPRMER EQU IOBBTAMF 00936000 IOBRSTRB EQU IOBRESTR+1 00937000 IOBREPOS EQU IOBRESTR 00938000 IOBDCBPB EQU IOBDCBPT+1 00939000 IOBRSV44 EQU IOBFLAG4 00940000 IOBRSV43 EQU IOBFLAG4 00941000 IOBRSV42 EQU IOBFLAG4 00942000 IOBRSV41 EQU IOBFLAG4 00943000 IOBRSV40 EQU IOBFLAG4 00944000 IOBRSV39 EQU IOBFLAG4 00945000 IOBRSV38 EQU IOBFLAG4 00946000 IOBGDPOL EQU IOBFLAG4 00947000 IOBSTRTB EQU IOBSTART+1 00948000 IOBSIOCC EQU IOBSTART 00949000 IOBSTBYT EQU IOBIOCSW+3 00950000 IOBCMDA EQU IOBIOCSW 00951000 IOBLOG EQU IOBFL3 00952000 IOBICL EQU IOBFL3 00953000 IOBMSG EQU IOBFL3 00954000 IOBCNC EQU IOBFL3 00955000 IOBACU EQU IOBFL3 00956000 IOBCDC EQU IOBFL3 00957000 IOBICC EQU IOBFL3 00958000 IOBCCC EQU IOBFL3 00959000 IOBECBPB EQU IOBECBPT+1 00960000 IOBECBCC EQU IOBECBPT 00961000 IOBS1B7 EQU IOBSENS1 00962000 IOBS1B6 EQU IOBSENS1 00963000 IOBS1B5 EQU IOBSENS1 00964000 IOBS1B4 EQU IOBSENS1 00965000 IOBS1B3 EQU IOBSENS1 00966000 IOBS1B2 EQU IOBSENS1 00967000 IOBS1B1 EQU IOBSENS1 00968000 IOBS1B0 EQU IOBSENS1 00969000 IOBSNSC9 EQU IOBS0B7 00970000 IOBS0B6 EQU IOBSENS0 00971000 IOBS0B5 EQU IOBSENS0 00972000 IOBS0B4 EQU IOBSENS0 00973000 IOBS0B3 EQU IOBSENS0 00974000 IOBS0B2 EQU IOBSENS0 00975000 IOBS0B1 EQU IOBSENS0 00976000 IOBS0B0 EQU IOBSENS0 00977000 IOBPNCH EQU IOBFLAG2 00978000 IOBSTATO EQU IOBFLAG2 00979000 IOBSKUPD EQU IOBFLAG2 00980000 IOBALTTR EQU IOBFLAG2 00981000 IOBRRT2 EQU IOBRDHA0 00982000 IOBRRT3 EQU IOBPURGE 00983000 IOBSENSE EQU IOBFLAG2 00984000 IOBHALT EQU IOBFLAG2 00985000 IOBSPSVC EQU IOBRSTRT 00986000 IOBUNREL EQU IOBFLAG1 00987000 IOBIOERR EQU IOBFLAG1 00988000 IOBFCREX EQU IOBCYCCK 00989000 IOBRPSTN EQU IOBFLAG1 00990000 IOBERRTN EQU IOBFLAG1 00991000 IOBCMDCH EQU IOBFLAG1 00992000 IOBDATCH EQU IOBFLAG1 00993000 IOBCNOPA EQU IOBPREFX+12 00994000 IOBCICB EQU IOBPREFX+8 00995000 IOBCECB EQU IOBPREFX+4 00996000 IOBCONOP EQU IOBPREFX+3 00997000 IOBCINOP EQU IOBPREFX+2 00998000 IOBRSV05 EQU IOBPREFX+1 00999000 IOBPCI EQU IOBCFLG1 01000000 IOBRSTCH EQU IOBCFLG1 01001000 IOBABAPP EQU IOBCFLG1 01002000 IOBPTST EQU IOBCFLG1 01003000 IOBRSV04 EQU IOBCFLG1 01004000 IOBRSV03 EQU IOBCFLG1 01005000 IOBRSV02 EQU IOBCFLG1 01006000 IOBRSV01 EQU IOBCFLG1 01007000 @NM00035 EQU IOBSTRNG 01008000 DCBEOB EQU IHADCS40+20 01009000 DCBPRECL EQU IHADCS40+18 01010000 @NM00034 EQU IHADCS40+16 01011000 @NM00033 EQU @NM00031+1 01012000 @NM00032 EQU DCBEROPT 01013000 DCBERABE EQU DCBEROPT 01014000 DCBERSKP EQU DCBEROPT 01015000 DCBERACC EQU DCBEROPT 01016000 @NM00030 EQU IHADCS40+10 01017000 @NM00029 EQU IHADCS40+9 01018000 @NM00028 EQU IHADCS40+8 01019000 DCBRECA EQU DCBRECAD+1 01020000 @NM00027 EQU DCBRECBT 01021000 DCBRCFGT EQU DCBRCREL 01022000 DCBRCTRU EQU DCBRCREL 01023000 DCBLCCW EQU DCBEOBAD 01024000 DCBNOTE EQU DCBCNTRL 01025000 DCBLRECL EQU IHADCS38+10 01026000 @NM00026 EQU IHADCS38+8 01027000 DCBEOBW EQU IHADCS38+4 01028000 DCBNCP EQU DCBEOBR 01029000 @NM00025 EQU DCBFLAG1 01030000 DCBSTFLS EQU DCBFLAG1 01031000 DCBSTQCK EQU DCBFLAG1 01032000 DCBDIRCQ EQU DCBBUFOF 01033000 DCBQSTRU EQU DCBUSASI 01034000 @NM00024 EQU DCBUSASI 01035000 DCBQADF3 EQU DCBQADFS 01036000 DCBQADF2 EQU DCBQADFS 01037000 DCBQADF1 EQU DCBQADFS 01038000 DCBBLBP EQU DCBUSASI 01039000 @NM00023 EQU DCBUSASI 01040000 DCBCICBA EQU DCBCICB+1 01041000 @NM00022 EQU DCBCICB 01042000 DCBOFFSW EQU IHADCS36+15 01043000 DCBOFFSR EQU IHADCS36+14 01044000 DCBWCPL EQU IHADCS36+13 01045000 DCBWCPO EQU IHADCS36+12 01046000 DCBCNQSM EQU DCBCIND2 01047000 DCBCNFEO EQU DCBCIND2 01048000 DCBCNCHS EQU DCBCIND2 01049000 DCBCNBFP EQU DCBCIND2 01050000 DCBCNIOE EQU DCBCIND2 01051000 DCBCNCLO EQU DCBCIND2 01052000 DCBCNWRO EQU DCBCIND2 01053000 DCBCNSTO EQU DCBCIND2 01054000 DCBCNEXB EQU DCBCIND1 01055000 @NM00021 EQU DCBCIND1 01056000 DCBCNBRM EQU DCBCIND1 01057000 @NM00020 EQU DCBCIND1 01058000 DCBCNEVA EQU DCBCIND1 01059000 DCBCNEVB EQU DCBCIND1 01060000 DCBCNSRD EQU DCBCIND1 01061000 DCBCNTOV EQU DCBCIND1 01062000 DCBSYNA EQU DCBSYNAD+1 01063000 DCBIOBL EQU DCBSYNAD 01064000 DCBCHCKA EQU DCBPERRA 01065000 @NM00019 EQU DCBOPTCD 01066000 DCBOPTT EQU DCBOPTCD 01067000 DCBSRCHD EQU DCBOPTZ 01068000 DCBOPTQ EQU DCBOPTCD 01069000 DCBBCKPT EQU DCBOPTO 01070000 DCBOPTC EQU DCBOPTCD 01071000 DCBOPTU EQU DCBOPTCD 01072000 DCBOPTW EQU DCBOPTCD 01073000 DCBPUTA EQU DCBGETA 01074000 @NM00018 EQU DCBPUT 01075000 DCBREADA EQU DCBWRITA 01076000 @NM00017 EQU DCBREAD 01077000 DCBDEBA EQU DCBDEBAD+1 01078000 @NM00016 EQU DCBIFLGS 01079000 DCBIFIOE EQU DCBIFLGS 01080000 DCBIFPCT EQU DCBIFLGS 01081000 DCBIFEC EQU DCBIFLGS 01082000 DCBMFSTI EQU DCBMFDMD 01083000 DCBMFAWR EQU DCBMFSTK 01084000 DCBMFUIP EQU DCBMFTMD 01085000 DCBMFIDW EQU DCBMFLCP 01086000 DCBMFWRK EQU DCBMFMVP 01087000 DCBMFRDQ EQU DCBMFWRT 01088000 DCBMFGTQ EQU DCBMFPUT 01089000 DCBMFSTL EQU DCBMACF2 01090000 DCBMFCK EQU DCBMFDMG 01091000 DCBMFRDX EQU DCBMFCHK 01092000 DCBMFDBF EQU DCBMFSBG 01093000 DCBMFRDI EQU DCBMFLCG 01094000 DCBMFRDK EQU DCBMFMVG 01095000 DCBMFWRQ EQU DCBMFRD 01096000 DCBMFPTQ EQU DCBMFGET 01097000 DCBMFECP EQU DCBMACF1 01098000 DCBTIOT EQU IHADCS25 01099000 DCBMRSTI EQU DCBMRDMD 01100000 DCBMRAWR EQU DCBMRSTK 01101000 DCBMRUIP EQU DCBMRTMD 01102000 DCBMRIDW EQU DCBMRLCP 01103000 DCBMRWRK EQU DCBMRMVP 01104000 DCBMRRDQ EQU DCBMRWRT 01105000 DCBMRGTQ EQU DCBMRPUT 01106000 DCBMRSTL EQU DCBMACR2 01107000 DCBMRCK EQU DCBMRDMG 01108000 DCBPGFXA EQU DCBMRRDX 01109000 DCBMRDBF EQU DCBMRSBG 01110000 DCBMRRDI EQU DCBMRLCG 01111000 DCBMRRDK EQU DCBMRMVG 01112000 DCBMRWRQ EQU DCBMRRD 01113000 DCBMRPTQ EQU DCBMRGET 01114000 DCBMRECP EQU DCBMACR1 01115000 @NM00015 EQU DCBIFLG 01116000 DCBIBIOE EQU DCBIFLG 01117000 DCBIBPCT EQU DCBIFLG 01118000 DCBIBEC EQU DCBIFLG 01119000 DCBOFIOF EQU DCBOFLGS 01120000 DCBOFUEX EQU DCBOFLGS 01121000 DCBOFTM EQU DCBOFLGS 01122000 DCBOFPPC EQU DCBOFLGS 01123000 DCBOFOPN EQU DCBOFLGS 01124000 DCBOFEOV EQU DCBOFLGS 01125000 DCBOFLRB EQU DCBOFLGS 01126000 DCBOFIOD EQU DCBOFLWR 01127000 DCBDDNAM EQU IHADCS24 01128000 DCBEXLSA EQU DCBEXLST+1 01129000 DCBRECKL EQU DCBRECFM 01130000 DCBRECCC EQU DCBRECFM 01131000 DCBRECSB EQU DCBRECFM 01132000 DCBRECBR EQU DCBRECFM 01133000 DCBRECTO EQU DCBRECLA 01134000 DCBRECL EQU DCBRECLA 01135000 DCBEODA EQU DCBEODAD+1 01136000 DCBBFA EQU DCBBFTEK 01137000 DCBH0 EQU DCBBFTEK 01138000 DCBBFTKD EQU DCBBFTEK 01139000 DCBBFTE EQU DCBBFT 01140000 DCBBFTKR EQU DCBBFT 01141000 DCBBFTS EQU DCBBFT 01142000 DCBH1 EQU DCBBFTEK 01143000 DCBSVCXA EQU DCBSVCXL+1 01144000 @NM00014 EQU DCBSVCXL 01145000 DCBODEBA EQU DCBIOBAA 01146000 @NM00013 EQU DCBQSLM 01147000 DCBUPDBT EQU DCBQSLM 01148000 DCBUPDCM EQU DCBQSLM 01149000 DCB1DVDS EQU DCBQSLM 01150000 @NM00012 EQU DCBDSRG2 01151000 DCBDSGTR EQU DCBDSRG2 01152000 DCBACBM EQU DCBDSRG2 01153000 @NM00011 EQU DCBDSRG2 01154000 DCBDSGTQ EQU DCBDSRG2 01155000 DCBDSGTX EQU DCBDSRG2 01156000 DCBDSGGS EQU DCBDSRG2 01157000 DCBDSGU EQU DCBDSRG1 01158000 DCBDSGPO EQU DCBDSRG1 01159000 DCBDSGMQ EQU DCBDSRG1 01160000 DCBDSGCQ EQU DCBDSRG1 01161000 DCBDSGCX EQU DCBDSRG1 01162000 DCBDSGDA EQU DCBDSRG1 01163000 DCBDSGPS EQU DCBDSRG1 01164000 DCBDSGIS EQU DCBDSRG1 01165000 DCBBUFL EQU IHADCS11+8 01166000 DCBBUFCA EQU DCBBUFCB+1 01167000 DCBBUFNO EQU DCBBUFCB 01168000 DCBDEVT EQU DCBREL 01169000 DCBKEYLE EQU DCBRELB 01170000 @NM00010 EQU IHADCS08+15 01171000 DCBORDCK EQU DCBEIB 01172000 DCBORHPR EQU DCBEIB 01173000 DCBORWLR EQU DCBEIB 01174000 DCBORECK EQU DCBEIB 01175000 DCBORERR EQU DCBEIB 01176000 DCBORREJ EQU DCBEIB 01177000 DCBORNRM EQU DCBEIB 01178000 @NM00009 EQU DCBEIB 01179000 @NM00008 EQU IHADCS08+13 01180000 @NM00007 EQU DCBORBYT 01181000 DCBORBFP EQU DCBORBYT 01182000 DCBOREOF EQU DCBORBYT 01183000 DCBORSYN EQU DCBORBYT 01184000 DCBRDLNA EQU DCBRESCA 01185000 @NM00006 EQU DCBFRTBA 01186000 DCBDSPLA EQU DCBFRID+1 01187000 @NM00005 EQU DCBFRID 01188000 @NM00004 EQU DCBERRCA+2 01189000 @NM00003 EQU DCBORFLG 01190000 DCBWTOIA EQU DCBWTOID+1 01191000 @NM00002 EQU DCBWTOID 01192000 @NM00001 EQU IHADCB 01193000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01194000 @ENDDATA EQU * 01195000 END IGG019LU,(C'PL/S-II',0503,74050) 01196000